From 1c016fe3e63fb24c3bbc3b958196dae162cfbb61 Mon Sep 17 00:00:00 2001 From: hristov Date: Mon, 18 Sep 2000 09:12:41 +0000 Subject: [PATCH] Old version of PDF removed --- PDF/Makefile | 52 - PDF/doc/inform.dat | 13 - PDF/doc/pdfdoc.dat | 2408 --------------------------- PDF/doc/v100.dat | 12 - PDF/dpdf/inform.dat | 31 - PDF/dpdf/pdfdoc.doc | 2829 ------------------------------- PDF/dpdf/v100.dat | 30 - PDF/pdf/expdp.inc | 20 - PDF/pdf/impdp.inc | 20 - PDF/pdf/pilot.h | 9 - PDF/pdf/w50510.inc | 15 - PDF/pdf/w50511.inc | 17 - PDF/pdf/w505110.inc | 16 - PDF/pdf/w50511c.inc | 229 --- PDF/pdf/w50512.inc | 17 - PDF/pdf/w505120.inc | 15 - PDF/pdf/w505121.inc | 15 - PDF/pdf/w505122.inc | 15 - PDF/pdf/w50513.inc | 17 - PDF/pdf/w50514.inc | 19 - PDF/pdf/w50514w.inc | 17 - PDF/pdf/w50515.inc | 15 - PDF/pdf/w50516.inc | 16 - PDF/pdf/w50517.inc | 15 - PDF/pdf/w50518.inc | 28 - PDF/pdf/w50519.inc | 16 - PDF/pdf/w5051p0.inc | 15 - PDF/pdf/w5051p1.inc | 22 - PDF/pdf/w5051p2.inc | 20 - PDF/pdf/w5051p3.inc | 23 - PDF/pdf/w5051p7.inc | 15 - PDF/spdf/abfkw1.F | 1152 ------------- PDF/spdf/abfkw2.F | 1152 ------------- PDF/spdf/abfkw3.F | 1152 ------------- PDF/spdf/acfgp1.F | 1502 ----------------- PDF/spdf/acfgp2.F | 1505 ----------------- PDF/spdf/afcplu.F | 26 - PDF/spdf/afgetfv.F | 69 - PDF/spdf/afgin2.F | 41 - PDF/spdf/afgint.F | 41 - PDF/spdf/afpolin.F | 51 - PDF/spdf/afratin.F | 55 - PDF/spdf/alphas2.F | 209 --- PDF/spdf/augetfv.F | 57 - PDF/spdf/aurgam.F | 41 - PDF/spdf/aurpi1.F | 37 - PDF/spdf/aurpi2.F | 37 - PDF/spdf/aurpi3.F | 37 - PDF/spdf/aurpr.F | 37 - PDF/spdf/bbeta.F | 29 - PDF/spdf/beta.F | 17 - PDF/spdf/bxf3.F | 31 - PDF/spdf/bxglue.F | 31 - PDF/spdf/bxqbar.F | 28 - PDF/spdf/ctq1opd.F | 369 ---- PDF/spdf/ctq1opf.F | 108 -- PDF/spdf/ctq1pd.F | 626 ------- PDF/spdf/ctq1pf.F | 125 -- PDF/spdf/ctq2opd.F | 674 -------- PDF/spdf/ctq2opf.F | 159 -- PDF/spdf/ctq2ops.F | 43 - PDF/spdf/ctq2ppd.F | 675 -------- PDF/spdf/ctq2ppf.F | 155 -- PDF/spdf/ctq2pps.F | 43 - PDF/spdf/ctq3pd.F | 368 ---- PDF/spdf/ctq3pds.F | 45 - PDF/spdf/ctq3pf.F | 133 -- PDF/spdf/ctq4Fn.F | 80 - PDF/spdf/ctq4PnX.F | 94 -- PDF/spdf/ctq4RA1.F | 2838 ------------------------------- PDF/spdf/ctq4RA2.F | 2838 ------------------------------- PDF/spdf/ctq4RA4.F | 2838 ------------------------------- PDF/spdf/ctq4RA5.F | 2838 ------------------------------- PDF/spdf/ctq4RD.F | 2838 ------------------------------- PDF/spdf/ctq4RHJ.F | 2838 ------------------------------- PDF/spdf/ctq4RL.F | 2838 ------------------------------- PDF/spdf/ctq4RM.F | 2838 ------------------------------- PDF/spdf/ctq4RlQ.F | 2838 ------------------------------- PDF/spdf/dbfint.F | 78 - PDF/spdf/dflm1.F | 55 - PDF/spdf/dflm2.F | 55 - PDF/spdf/dflm3.F | 55 - PDF/spdf/dflm4.F | 56 - PDF/spdf/dflm5.F | 56 - PDF/spdf/dflm6.F | 56 - PDF/spdf/dflm7.F | 56 - PDF/spdf/dflm8.F | 56 - PDF/spdf/dflm9.F | 56 - PDF/spdf/dgpho1.F | 155 -- PDF/spdf/dgpho2.F | 131 -- PDF/spdf/dgpho3.F | 131 -- PDF/spdf/dgpho4.F | 132 -- PDF/spdf/dopho1.F | 63 - PDF/spdf/dopho2.F | 63 - PDF/spdf/dpolin.F | 41 - PDF/spdf/fxaver.F | 1666 ------------------- PDF/spdf/fxg160.F | 1667 ------------------- PDF/spdf/fxg260.F | 1667 ------------------- PDF/spdf/fxg360.F | 1667 ------------------- PDF/spdf/fxghar.F | 1666 ------------------- PDF/spdf/fxgsof.F | 1666 ------------------- PDF/spdf/fxnlla.F | 1666 ------------------- PDF/spdf/fxvhar.F | 1667 ------------------- PDF/spdf/fxvsof.F | 1667 ------------------- PDF/spdf/gamfun.F | 50 - PDF/spdf/gammado.F | 81 - PDF/spdf/ghrdv.F | 25 - PDF/spdf/ghrgl.F | 27 - PDF/spdf/ghruv.F | 25 - PDF/spdf/ghrxi.F | 27 - PDF/spdf/ghrxs.F | 27 - PDF/spdf/gr94fv.F | 25 - PDF/spdf/gr94fw.F | 24 - PDF/spdf/gr94fws.F | 25 - PDF/spdf/grsf1.F | 17 - PDF/spdf/grsf2.F | 18 - PDF/spdf/grsgalo.F | 247 --- PDF/spdf/grsvh1.F | 2372 -------------------------- PDF/spdf/grsvh2.F | 2372 -------------------------- PDF/spdf/grsvl1.F | 2372 -------------------------- PDF/spdf/grsvl2.F | 2372 -------------------------- PDF/spdf/grv94di.F | 110 -- PDF/spdf/grv94ho.F | 110 -- PDF/spdf/grv94lo.F | 159 -- PDF/spdf/grvfgp.F | 20 - PDF/spdf/grvfqbp.F | 24 - PDF/spdf/grvfv.F | 20 - PDF/spdf/grvfvp.F | 18 - PDF/spdf/grvfw.F | 20 - PDF/spdf/grvfws.F | 25 - PDF/spdf/grvgah0.F | 143 -- PDF/spdf/grvgaho.F | 140 -- PDF/spdf/grvgalo.F | 143 -- PDF/spdf/grvgf.F | 20 - PDF/spdf/grvgfs.F | 25 - PDF/spdf/grvho.F | 113 -- PDF/spdf/grvlo.F | 140 -- PDF/spdf/grvpiho.F | 114 -- PDF/spdf/grvpilo.F | 114 -- PDF/spdf/gs2xcor.F | 23 - PDF/spdf/gs96ho.F | 827 --------- PDF/spdf/gs96lo.F | 827 --------- PDF/spdf/gsxcor.F | 25 - PDF/spdf/hmrs1eb.F | 55 - PDF/spdf/hmrs2eb.F | 56 - PDF/spdf/hmrs3eb.F | 59 - PDF/spdf/hmrsgeb.F | 64 - PDF/spdf/kmrseb.F | 80 - PDF/spdf/kmrsgeb.F | 83 - PDF/spdf/mrsdshd.F | 65 - PDF/spdf/mrsdshp.F | 78 - PDF/spdf/mrseb.F | 46 - PDF/spdf/mrsebp.F | 50 - PDF/spdf/newdo1.F | 109 -- PDF/spdf/pdfset.F | 1645 ------------------ PDF/spdf/pdfsta.F | 96 -- PDF/spdf/pdfvers.F | 61 - PDF/spdf/pdxmt.F | 78 - PDF/spdf/pdzxmt.F | 280 ---- PDF/spdf/pftopdg.F | 37 - PDF/spdf/phlac1.F | 701 -------- PDF/spdf/phlac2.F | 701 -------- PDF/spdf/phlac3.F | 701 -------- PDF/spdf/rxdv.F | 31 - PDF/spdf/rxglue.F | 33 - PDF/spdf/rxqbar.F | 33 - PDF/spdf/rxud.F | 31 - PDF/spdf/sasan1.F | 154 -- PDF/spdf/sasano.F | 157 -- PDF/spdf/sasbeh.F | 55 - PDF/spdf/sasdir.F | 28 - PDF/spdf/sasgam1.F | 170 -- PDF/spdf/sasgam2.F | 267 --- PDF/spdf/sasvm1.F | 199 --- PDF/spdf/sasvmd.F | 202 --- PDF/spdf/seadis.F | 46 - PDF/spdf/sfabfow.F | 1153 ------------- PDF/spdf/sfafg1.F | 2931 -------------------------------- PDF/spdf/sfbma.F | 2716 ------------------------------ PDF/spdf/sfbmb.F | 2717 ------------------------------ PDF/spdf/sfctq11.F | 60 - PDF/spdf/sfctq12.F | 60 - PDF/spdf/sfctq13.F | 60 - PDF/spdf/sfctq14.F | 60 - PDF/spdf/sfctq15.F | 60 - PDF/spdf/sfctq21.F | 60 - PDF/spdf/sfctq22.F | 60 - PDF/spdf/sfctq23.F | 60 - PDF/spdf/sfctq24.F | 60 - PDF/spdf/sfctq25.F | 60 - PDF/spdf/sfctq26.F | 60 - PDF/spdf/sfctq31.F | 60 - PDF/spdf/sfctq32.F | 60 - PDF/spdf/sfctq33.F | 60 - PDF/spdf/sfctq41.F | 47 - PDF/spdf/sfctq42.F | 47 - PDF/spdf/sfctq43.F | 47 - PDF/spdf/sfctq44.F | 47 - PDF/spdf/sfctq45.F | 47 - PDF/spdf/sfctq46.F | 47 - PDF/spdf/sfctq47.F | 47 - PDF/spdf/sfctq48.F | 47 - PDF/spdf/sfctq49.F | 47 - PDF/spdf/sfdisa.F | 1970 ---------------------- PDF/spdf/sfdisd0.F | 1984 ---------------------- PDF/spdf/sfdisdm.F | 1984 ---------------------- PDF/spdf/sfdish.F | 1983 ---------------------- PDF/spdf/sfdiss0.F | 1984 ---------------------- PDF/spdf/sfdsqa.F | 775 --------- PDF/spdf/sfehlq1.F | 239 --- PDF/spdf/sfehlq2.F | 239 --- PDF/spdf/sfgrvh.F | 83 - PDF/spdf/sfgrvl.F | 81 - PDF/spdf/sfgsho.F | 1038 ------------ PDF/spdf/sfgslo1.F | 1039 ------------ PDF/spdf/sfgslo2.F | 1039 ------------ PDF/spdf/sfkbmr2.F | 1014 ----------- PDF/spdf/sfkbmr5.F | 1014 ----------- PDF/spdf/sflacg1.F | 63 - PDF/spdf/sflacg2.F | 63 - PDF/spdf/sflacg3.F | 63 - PDF/spdf/sfmfap.F | 87 - PDF/spdf/sfmfr1.F | 90 - PDF/spdf/sfmfr2.F | 90 - PDF/spdf/sfmrsd0.F | 3038 --------------------------------- PDF/spdf/sfmrsdm.F | 3038 --------------------------------- PDF/spdf/sfmrsg.F | 1981 ---------------------- PDF/spdf/sfmrsj.F | 1970 ---------------------- PDF/spdf/sfmrss0.F | 3038 --------------------------------- PDF/spdf/sfms105.F | 1970 ---------------------- PDF/spdf/sfms110.F | 1970 ---------------------- PDF/spdf/sfms115.F | 1970 ---------------------- PDF/spdf/sfms120.F | 1970 ---------------------- PDF/spdf/sfms125.F | 1970 ---------------------- PDF/spdf/sfms130.F | 1970 ---------------------- PDF/spdf/sfmsap.F | 1981 ---------------------- PDF/spdf/sfmsba.F | 1982 ---------------------- PDF/spdf/sfmsbb0.F | 1983 ---------------------- PDF/spdf/sfmsbd0.F | 1981 ---------------------- PDF/spdf/sfmsbdm.F | 1981 ---------------------- PDF/spdf/sfmsbh.F | 1981 ---------------------- PDF/spdf/sfmsbs0.F | 1981 ---------------------- PDF/spdf/sfmsfa.F | 87 - PDF/spdf/sfmsfg.F | 93 -- PDF/spdf/sfmsjp.F | 1970 ---------------------- PDF/spdf/sfmsqa.F | 788 --------- PDF/spdf/sfmsr1.F | 3880 ------------------------------------------- PDF/spdf/sfmsr2.F | 3879 ------------------------------------------ PDF/spdf/sfmsr3.F | 3879 ------------------------------------------ PDF/spdf/sfmsr4.F | 3880 ------------------------------------------- PDF/spdf/sfmt10.F | 60 - PDF/spdf/sfmt11.F | 60 - PDF/spdf/sfmtu1.F | 60 - PDF/spdf/sfmtu2.F | 60 - PDF/spdf/sfmtu3.F | 60 - PDF/spdf/sfmtu4.F | 60 - PDF/spdf/sfmtu5.F | 60 - PDF/spdf/sfmtu6.F | 60 - PDF/spdf/sfmtu7.F | 60 - PDF/spdf/sfmtu8.F | 60 - PDF/spdf/sfmtu9.F | 60 - PDF/spdf/sfsas11.F | 54 - PDF/spdf/sfsas12.F | 54 - PDF/spdf/sfsas13.F | 54 - PDF/spdf/sfsas14.F | 54 - PDF/spdf/sfsas21.F | 56 - PDF/spdf/sfsas22.F | 56 - PDF/spdf/sfsas23.F | 56 - PDF/spdf/sfsas24.F | 56 - PDF/spdf/sfwhi1.F | 214 --- PDF/spdf/sfwhi2.F | 214 --- PDF/spdf/sfwhi3.F | 214 --- PDF/spdf/sfwhi4.F | 215 --- PDF/spdf/sfwhi5.F | 215 --- PDF/spdf/sfwhi6.F | 215 --- PDF/spdf/smrsp31.F | 1091 ------------ PDF/spdf/smrsp32.F | 1091 ------------ PDF/spdf/smrsp33.F | 1092 ------------ PDF/spdf/smrspi.F | 58 - PDF/spdf/srctq21.F | 60 - PDF/spdf/srctq22.F | 60 - PDF/spdf/srctq23.F | 60 - PDF/spdf/srctq24.F | 60 - PDF/spdf/srctq25.F | 60 - PDF/spdf/srctq26.F | 60 - PDF/spdf/strbebc.F | 142 -- PDF/spdf/strbep.F | 36 - PDF/spdf/strcbp.F | 904 ---------- PDF/spdf/strcep.F | 904 ---------- PDF/spdf/strdo1.F | 53 - PDF/spdf/strdo2.F | 54 - PDF/spdf/strghr.F | 36 - PDF/spdf/strh1b.F | 910 ---------- PDF/spdf/strh1e.F | 910 ---------- PDF/spdf/strh2b.F | 903 ---------- PDF/spdf/strh2e.F | 903 ---------- PDF/spdf/strh3b.F | 1015 ----------- PDF/spdf/strh3b1.F | 1015 ----------- PDF/spdf/strh3b3.F | 1015 ----------- PDF/spdf/strh3e.F | 1015 ----------- PDF/spdf/strh3em.F | 1017 ------------ PDF/spdf/strh3ep.F | 1018 ------------ PDF/spdf/strkb0.F | 3038 --------------------------------- PDF/spdf/strkb02.F | 1015 ----------- PDF/spdf/strkb03.F | 1015 ----------- PDF/spdf/strkb04.F | 1015 ----------- PDF/spdf/strkb05.F | 1015 ----------- PDF/spdf/strkb0o.F | 1014 ----------- PDF/spdf/strkbm.F | 1014 ----------- PDF/spdf/strmrs1.F | 904 ---------- PDF/spdf/strmrs2.F | 904 ---------- PDF/spdf/strmrs3.F | 904 ---------- PDF/spdf/strowp1.F | 85 - PDF/spdf/strowp2.F | 83 - PDF/spdf/strpriv.F | 40 - PDF/spdf/strucb.F | 902 ---------- PDF/spdf/struce.F | 902 ---------- PDF/spdf/strucor.F | 36 - PDF/spdf/structf.F | 87 - PDF/spdf/structm.F | 1788 -------------------- PDF/spdf/structp.F | 374 ----- PDF/spdf/v3.F | 17 - PDF/spdf/valdis.F | 33 - PDF/spdf/wate32.F | 64 - PDF/spdf/whit1g.F | 84 - PDF/spdf/whit1q.F | 78 - PDF/spdf/whit2g.F | 84 - PDF/spdf/whit2q.F | 78 - PDF/spdf/whit3g.F | 84 - PDF/spdf/whit3q.F | 78 - PDF/spdf/whit4g.F | 84 - PDF/spdf/whit4q.F | 78 - PDF/spdf/whit5g.F | 84 - PDF/spdf/whit5q.F | 78 - PDF/spdf/whit6g.F | 84 - PDF/spdf/whit6q.F | 78 - PDF/tpdf/testgam.F | 216 --- PDF/tpdf/testgamo.F | 153 -- PDF/tpdf/testpdf.F | 236 --- PDF/tpdf/testpdfo.F | 161 -- PDF/tpdf/testpdg.F | 212 --- PDF/tpdf/testpdgo.F | 159 -- PDF/tpdf/tpdfupv.F | 101 -- PDF/tpdf/tpdfupvo.F | 84 - 344 files changed, 199973 deletions(-) delete mode 100644 PDF/Makefile delete mode 100644 PDF/doc/inform.dat delete mode 100644 PDF/doc/pdfdoc.dat delete mode 100644 PDF/doc/v100.dat delete mode 100644 PDF/dpdf/inform.dat delete mode 100644 PDF/dpdf/pdfdoc.doc delete mode 100644 PDF/dpdf/v100.dat delete mode 100644 PDF/pdf/expdp.inc delete mode 100644 PDF/pdf/impdp.inc delete mode 100644 PDF/pdf/pilot.h delete mode 100644 PDF/pdf/w50510.inc delete mode 100644 PDF/pdf/w50511.inc delete mode 100644 PDF/pdf/w505110.inc delete mode 100644 PDF/pdf/w50511c.inc delete mode 100644 PDF/pdf/w50512.inc delete mode 100644 PDF/pdf/w505120.inc delete mode 100644 PDF/pdf/w505121.inc delete mode 100644 PDF/pdf/w505122.inc delete mode 100644 PDF/pdf/w50513.inc delete mode 100644 PDF/pdf/w50514.inc delete mode 100644 PDF/pdf/w50514w.inc delete mode 100644 PDF/pdf/w50515.inc delete mode 100644 PDF/pdf/w50516.inc delete mode 100644 PDF/pdf/w50517.inc delete mode 100644 PDF/pdf/w50518.inc delete mode 100644 PDF/pdf/w50519.inc delete mode 100644 PDF/pdf/w5051p0.inc delete mode 100644 PDF/pdf/w5051p1.inc delete mode 100644 PDF/pdf/w5051p2.inc delete mode 100644 PDF/pdf/w5051p3.inc delete mode 100644 PDF/pdf/w5051p7.inc delete mode 100644 PDF/spdf/abfkw1.F delete mode 100644 PDF/spdf/abfkw2.F delete mode 100644 PDF/spdf/abfkw3.F delete mode 100644 PDF/spdf/acfgp1.F delete mode 100644 PDF/spdf/acfgp2.F delete mode 100644 PDF/spdf/afcplu.F delete mode 100644 PDF/spdf/afgetfv.F delete mode 100644 PDF/spdf/afgin2.F delete mode 100644 PDF/spdf/afgint.F delete mode 100644 PDF/spdf/afpolin.F delete mode 100644 PDF/spdf/afratin.F delete mode 100644 PDF/spdf/alphas2.F delete mode 100644 PDF/spdf/augetfv.F delete mode 100644 PDF/spdf/aurgam.F delete mode 100644 PDF/spdf/aurpi1.F delete mode 100644 PDF/spdf/aurpi2.F delete mode 100644 PDF/spdf/aurpi3.F delete mode 100644 PDF/spdf/aurpr.F delete mode 100644 PDF/spdf/bbeta.F delete mode 100644 PDF/spdf/beta.F delete mode 100644 PDF/spdf/bxf3.F delete mode 100644 PDF/spdf/bxglue.F delete mode 100644 PDF/spdf/bxqbar.F delete mode 100644 PDF/spdf/ctq1opd.F delete mode 100644 PDF/spdf/ctq1opf.F delete mode 100644 PDF/spdf/ctq1pd.F delete mode 100644 PDF/spdf/ctq1pf.F delete mode 100644 PDF/spdf/ctq2opd.F delete mode 100644 PDF/spdf/ctq2opf.F delete mode 100644 PDF/spdf/ctq2ops.F delete mode 100644 PDF/spdf/ctq2ppd.F delete mode 100644 PDF/spdf/ctq2ppf.F delete mode 100644 PDF/spdf/ctq2pps.F delete mode 100644 PDF/spdf/ctq3pd.F delete mode 100644 PDF/spdf/ctq3pds.F delete mode 100644 PDF/spdf/ctq3pf.F delete mode 100644 PDF/spdf/ctq4Fn.F delete mode 100644 PDF/spdf/ctq4PnX.F delete mode 100644 PDF/spdf/ctq4RA1.F delete mode 100644 PDF/spdf/ctq4RA2.F delete mode 100644 PDF/spdf/ctq4RA4.F delete mode 100644 PDF/spdf/ctq4RA5.F delete mode 100644 PDF/spdf/ctq4RD.F delete mode 100644 PDF/spdf/ctq4RHJ.F delete mode 100644 PDF/spdf/ctq4RL.F delete mode 100644 PDF/spdf/ctq4RM.F delete mode 100644 PDF/spdf/ctq4RlQ.F delete mode 100644 PDF/spdf/dbfint.F delete mode 100644 PDF/spdf/dflm1.F delete mode 100644 PDF/spdf/dflm2.F delete mode 100644 PDF/spdf/dflm3.F delete mode 100644 PDF/spdf/dflm4.F delete mode 100644 PDF/spdf/dflm5.F delete mode 100644 PDF/spdf/dflm6.F delete mode 100644 PDF/spdf/dflm7.F delete mode 100644 PDF/spdf/dflm8.F delete mode 100644 PDF/spdf/dflm9.F delete mode 100644 PDF/spdf/dgpho1.F delete mode 100644 PDF/spdf/dgpho2.F delete mode 100644 PDF/spdf/dgpho3.F delete mode 100644 PDF/spdf/dgpho4.F delete mode 100644 PDF/spdf/dopho1.F delete mode 100644 PDF/spdf/dopho2.F delete mode 100644 PDF/spdf/dpolin.F delete mode 100644 PDF/spdf/fxaver.F delete mode 100644 PDF/spdf/fxg160.F delete mode 100644 PDF/spdf/fxg260.F delete mode 100644 PDF/spdf/fxg360.F delete mode 100644 PDF/spdf/fxghar.F delete mode 100644 PDF/spdf/fxgsof.F delete mode 100644 PDF/spdf/fxnlla.F delete mode 100644 PDF/spdf/fxvhar.F delete mode 100644 PDF/spdf/fxvsof.F delete mode 100644 PDF/spdf/gamfun.F delete mode 100644 PDF/spdf/gammado.F delete mode 100644 PDF/spdf/ghrdv.F delete mode 100644 PDF/spdf/ghrgl.F delete mode 100644 PDF/spdf/ghruv.F delete mode 100644 PDF/spdf/ghrxi.F delete mode 100644 PDF/spdf/ghrxs.F delete mode 100644 PDF/spdf/gr94fv.F delete mode 100644 PDF/spdf/gr94fw.F delete mode 100644 PDF/spdf/gr94fws.F delete mode 100644 PDF/spdf/grsf1.F delete mode 100644 PDF/spdf/grsf2.F delete mode 100644 PDF/spdf/grsgalo.F delete mode 100644 PDF/spdf/grsvh1.F delete mode 100644 PDF/spdf/grsvh2.F delete mode 100644 PDF/spdf/grsvl1.F delete mode 100644 PDF/spdf/grsvl2.F delete mode 100644 PDF/spdf/grv94di.F delete mode 100644 PDF/spdf/grv94ho.F delete mode 100644 PDF/spdf/grv94lo.F delete mode 100644 PDF/spdf/grvfgp.F delete mode 100644 PDF/spdf/grvfqbp.F delete mode 100644 PDF/spdf/grvfv.F delete mode 100644 PDF/spdf/grvfvp.F delete mode 100644 PDF/spdf/grvfw.F delete mode 100644 PDF/spdf/grvfws.F delete mode 100644 PDF/spdf/grvgah0.F delete mode 100644 PDF/spdf/grvgaho.F delete mode 100644 PDF/spdf/grvgalo.F delete mode 100644 PDF/spdf/grvgf.F delete mode 100644 PDF/spdf/grvgfs.F delete mode 100644 PDF/spdf/grvho.F delete mode 100644 PDF/spdf/grvlo.F delete mode 100644 PDF/spdf/grvpiho.F delete mode 100644 PDF/spdf/grvpilo.F delete mode 100644 PDF/spdf/gs2xcor.F delete mode 100644 PDF/spdf/gs96ho.F delete mode 100644 PDF/spdf/gs96lo.F delete mode 100644 PDF/spdf/gsxcor.F delete mode 100644 PDF/spdf/hmrs1eb.F delete mode 100644 PDF/spdf/hmrs2eb.F delete mode 100644 PDF/spdf/hmrs3eb.F delete mode 100644 PDF/spdf/hmrsgeb.F delete mode 100644 PDF/spdf/kmrseb.F delete mode 100644 PDF/spdf/kmrsgeb.F delete mode 100644 PDF/spdf/mrsdshd.F delete mode 100644 PDF/spdf/mrsdshp.F delete mode 100644 PDF/spdf/mrseb.F delete mode 100644 PDF/spdf/mrsebp.F delete mode 100644 PDF/spdf/newdo1.F delete mode 100644 PDF/spdf/pdfset.F delete mode 100644 PDF/spdf/pdfsta.F delete mode 100644 PDF/spdf/pdfvers.F delete mode 100644 PDF/spdf/pdxmt.F delete mode 100644 PDF/spdf/pdzxmt.F delete mode 100644 PDF/spdf/pftopdg.F delete mode 100644 PDF/spdf/phlac1.F delete mode 100644 PDF/spdf/phlac2.F delete mode 100644 PDF/spdf/phlac3.F delete mode 100644 PDF/spdf/rxdv.F delete mode 100644 PDF/spdf/rxglue.F delete mode 100644 PDF/spdf/rxqbar.F delete mode 100644 PDF/spdf/rxud.F delete mode 100644 PDF/spdf/sasan1.F delete mode 100644 PDF/spdf/sasano.F delete mode 100644 PDF/spdf/sasbeh.F delete mode 100644 PDF/spdf/sasdir.F delete mode 100644 PDF/spdf/sasgam1.F delete mode 100644 PDF/spdf/sasgam2.F delete mode 100644 PDF/spdf/sasvm1.F delete mode 100644 PDF/spdf/sasvmd.F delete mode 100644 PDF/spdf/seadis.F delete mode 100644 PDF/spdf/sfabfow.F delete mode 100644 PDF/spdf/sfafg1.F delete mode 100644 PDF/spdf/sfbma.F delete mode 100644 PDF/spdf/sfbmb.F delete mode 100644 PDF/spdf/sfctq11.F delete mode 100644 PDF/spdf/sfctq12.F delete mode 100644 PDF/spdf/sfctq13.F delete mode 100644 PDF/spdf/sfctq14.F delete mode 100644 PDF/spdf/sfctq15.F delete mode 100644 PDF/spdf/sfctq21.F delete mode 100644 PDF/spdf/sfctq22.F delete mode 100644 PDF/spdf/sfctq23.F delete mode 100644 PDF/spdf/sfctq24.F delete mode 100644 PDF/spdf/sfctq25.F delete mode 100644 PDF/spdf/sfctq26.F delete mode 100644 PDF/spdf/sfctq31.F delete mode 100644 PDF/spdf/sfctq32.F delete mode 100644 PDF/spdf/sfctq33.F delete mode 100644 PDF/spdf/sfctq41.F delete mode 100644 PDF/spdf/sfctq42.F delete mode 100644 PDF/spdf/sfctq43.F delete mode 100644 PDF/spdf/sfctq44.F delete mode 100644 PDF/spdf/sfctq45.F delete mode 100644 PDF/spdf/sfctq46.F delete mode 100644 PDF/spdf/sfctq47.F delete mode 100644 PDF/spdf/sfctq48.F delete mode 100644 PDF/spdf/sfctq49.F delete mode 100644 PDF/spdf/sfdisa.F delete mode 100644 PDF/spdf/sfdisd0.F delete mode 100644 PDF/spdf/sfdisdm.F delete mode 100644 PDF/spdf/sfdish.F delete mode 100644 PDF/spdf/sfdiss0.F delete mode 100644 PDF/spdf/sfdsqa.F delete mode 100644 PDF/spdf/sfehlq1.F delete mode 100644 PDF/spdf/sfehlq2.F delete mode 100644 PDF/spdf/sfgrvh.F delete mode 100644 PDF/spdf/sfgrvl.F delete mode 100644 PDF/spdf/sfgsho.F delete mode 100644 PDF/spdf/sfgslo1.F delete mode 100644 PDF/spdf/sfgslo2.F delete mode 100644 PDF/spdf/sfkbmr2.F delete mode 100644 PDF/spdf/sfkbmr5.F delete mode 100644 PDF/spdf/sflacg1.F delete mode 100644 PDF/spdf/sflacg2.F delete mode 100644 PDF/spdf/sflacg3.F delete mode 100644 PDF/spdf/sfmfap.F delete mode 100644 PDF/spdf/sfmfr1.F delete mode 100644 PDF/spdf/sfmfr2.F delete mode 100644 PDF/spdf/sfmrsd0.F delete mode 100644 PDF/spdf/sfmrsdm.F delete mode 100644 PDF/spdf/sfmrsg.F delete mode 100644 PDF/spdf/sfmrsj.F delete mode 100644 PDF/spdf/sfmrss0.F delete mode 100644 PDF/spdf/sfms105.F delete mode 100644 PDF/spdf/sfms110.F delete mode 100644 PDF/spdf/sfms115.F delete mode 100644 PDF/spdf/sfms120.F delete mode 100644 PDF/spdf/sfms125.F delete mode 100644 PDF/spdf/sfms130.F delete mode 100644 PDF/spdf/sfmsap.F delete mode 100644 PDF/spdf/sfmsba.F delete mode 100644 PDF/spdf/sfmsbb0.F delete mode 100644 PDF/spdf/sfmsbd0.F delete mode 100644 PDF/spdf/sfmsbdm.F delete mode 100644 PDF/spdf/sfmsbh.F delete mode 100644 PDF/spdf/sfmsbs0.F delete mode 100644 PDF/spdf/sfmsfa.F delete mode 100644 PDF/spdf/sfmsfg.F delete mode 100644 PDF/spdf/sfmsjp.F delete mode 100644 PDF/spdf/sfmsqa.F delete mode 100644 PDF/spdf/sfmsr1.F delete mode 100644 PDF/spdf/sfmsr2.F delete mode 100644 PDF/spdf/sfmsr3.F delete mode 100644 PDF/spdf/sfmsr4.F delete mode 100644 PDF/spdf/sfmt10.F delete mode 100644 PDF/spdf/sfmt11.F delete mode 100644 PDF/spdf/sfmtu1.F delete mode 100644 PDF/spdf/sfmtu2.F delete mode 100644 PDF/spdf/sfmtu3.F delete mode 100644 PDF/spdf/sfmtu4.F delete mode 100644 PDF/spdf/sfmtu5.F delete mode 100644 PDF/spdf/sfmtu6.F delete mode 100644 PDF/spdf/sfmtu7.F delete mode 100644 PDF/spdf/sfmtu8.F delete mode 100644 PDF/spdf/sfmtu9.F delete mode 100644 PDF/spdf/sfsas11.F delete mode 100644 PDF/spdf/sfsas12.F delete mode 100644 PDF/spdf/sfsas13.F delete mode 100644 PDF/spdf/sfsas14.F delete mode 100644 PDF/spdf/sfsas21.F delete mode 100644 PDF/spdf/sfsas22.F delete mode 100644 PDF/spdf/sfsas23.F delete mode 100644 PDF/spdf/sfsas24.F delete mode 100644 PDF/spdf/sfwhi1.F delete mode 100644 PDF/spdf/sfwhi2.F delete mode 100644 PDF/spdf/sfwhi3.F delete mode 100644 PDF/spdf/sfwhi4.F delete mode 100644 PDF/spdf/sfwhi5.F delete mode 100644 PDF/spdf/sfwhi6.F delete mode 100644 PDF/spdf/smrsp31.F delete mode 100644 PDF/spdf/smrsp32.F delete mode 100644 PDF/spdf/smrsp33.F delete mode 100644 PDF/spdf/smrspi.F delete mode 100644 PDF/spdf/srctq21.F delete mode 100644 PDF/spdf/srctq22.F delete mode 100644 PDF/spdf/srctq23.F delete mode 100644 PDF/spdf/srctq24.F delete mode 100644 PDF/spdf/srctq25.F delete mode 100644 PDF/spdf/srctq26.F delete mode 100644 PDF/spdf/strbebc.F delete mode 100644 PDF/spdf/strbep.F delete mode 100644 PDF/spdf/strcbp.F delete mode 100644 PDF/spdf/strcep.F delete mode 100644 PDF/spdf/strdo1.F delete mode 100644 PDF/spdf/strdo2.F delete mode 100644 PDF/spdf/strghr.F delete mode 100644 PDF/spdf/strh1b.F delete mode 100644 PDF/spdf/strh1e.F delete mode 100644 PDF/spdf/strh2b.F delete mode 100644 PDF/spdf/strh2e.F delete mode 100644 PDF/spdf/strh3b.F delete mode 100644 PDF/spdf/strh3b1.F delete mode 100644 PDF/spdf/strh3b3.F delete mode 100644 PDF/spdf/strh3e.F delete mode 100644 PDF/spdf/strh3em.F delete mode 100644 PDF/spdf/strh3ep.F delete mode 100644 PDF/spdf/strkb0.F delete mode 100644 PDF/spdf/strkb02.F delete mode 100644 PDF/spdf/strkb03.F delete mode 100644 PDF/spdf/strkb04.F delete mode 100644 PDF/spdf/strkb05.F delete mode 100644 PDF/spdf/strkb0o.F delete mode 100644 PDF/spdf/strkbm.F delete mode 100644 PDF/spdf/strmrs1.F delete mode 100644 PDF/spdf/strmrs2.F delete mode 100644 PDF/spdf/strmrs3.F delete mode 100644 PDF/spdf/strowp1.F delete mode 100644 PDF/spdf/strowp2.F delete mode 100644 PDF/spdf/strpriv.F delete mode 100644 PDF/spdf/strucb.F delete mode 100644 PDF/spdf/struce.F delete mode 100644 PDF/spdf/strucor.F delete mode 100644 PDF/spdf/structf.F delete mode 100644 PDF/spdf/structm.F delete mode 100644 PDF/spdf/structp.F delete mode 100644 PDF/spdf/v3.F delete mode 100644 PDF/spdf/valdis.F delete mode 100644 PDF/spdf/wate32.F delete mode 100644 PDF/spdf/whit1g.F delete mode 100644 PDF/spdf/whit1q.F delete mode 100644 PDF/spdf/whit2g.F delete mode 100644 PDF/spdf/whit2q.F delete mode 100644 PDF/spdf/whit3g.F delete mode 100644 PDF/spdf/whit3q.F delete mode 100644 PDF/spdf/whit4g.F delete mode 100644 PDF/spdf/whit4q.F delete mode 100644 PDF/spdf/whit5g.F delete mode 100644 PDF/spdf/whit5q.F delete mode 100644 PDF/spdf/whit6g.F delete mode 100644 PDF/spdf/whit6q.F delete mode 100644 PDF/tpdf/testgam.F delete mode 100644 PDF/tpdf/testgamo.F delete mode 100644 PDF/tpdf/testpdf.F delete mode 100644 PDF/tpdf/testpdfo.F delete mode 100644 PDF/tpdf/testpdg.F delete mode 100644 PDF/tpdf/testpdgo.F delete mode 100644 PDF/tpdf/tpdfupv.F delete mode 100644 PDF/tpdf/tpdfupvo.F diff --git a/PDF/Makefile b/PDF/Makefile deleted file mode 100644 index 333b0a8ebdd..00000000000 --- a/PDF/Makefile +++ /dev/null @@ -1,52 +0,0 @@ -############################### PDF Makefile ################################## - -# Include machine specific definitions - -include $(ALICE_ROOT)/conf/GeneralDef -include $(ALICE_ROOT)/conf/MachineDef.$(ALICE_TARGET) - -PACKAGE = PDF - -# C++ sources - -SRCS = - -FSRCS = $(wildcard spdf/*.F) - -FOBJS = $(patsubst %.F,tgt_$(ALICE_TARGET)/%.o,$(FSRCS)) - -SRCS = $(FSRCS) -OBJS = $(FOBJS) - -# C++ compilation flags - -CXXFLAGS = $(CXXOPTS) $(CLIBCXXOPTS) $(CLIBDEFS) -I. - -# C compilation flags - -CFLAGS = $(COPT) $(CLIBCOPT) $(CLIBDEFS) -I. - -# FORTRAN compilation flags - -FFLAGS = $(FOPT) $(CLIBFOPT) $(CLIBDEFS) -I. - -# Target - -SLIBRARY = $(LIBDIR)/libpdf.$(SL) -ALIBRARY = $(LIBDIR)/libpdf.a - -default: $(SLIBRARY) - -$(LIBDIR)/libpdf.$(SL): $(OBJS) - -depend: $(SRCS) - -TOCLEAN = $(OBJS) - -############################### General Macros ################################ - -include $(ALICE_ROOT)/conf/GeneralMacros - -############################ Dependencies ##################################### - --include tgt_$(ALICE_TARGET)/Make-depend diff --git a/PDF/doc/inform.dat b/PDF/doc/inform.dat deleted file mode 100644 index 89ecfcdb6d5..00000000000 --- a/PDF/doc/inform.dat +++ /dev/null @@ -1,13 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.1 1996/03/08 17:48:06 mclareni -* Pdf -* -* -* GENERAL INFORMATION -C PDF 6.06 950315 17.05 CERN Program Library W5051 PDF -C Structure Functions Package -C Author: H. Plothow-Besch -C diff --git a/PDF/doc/pdfdoc.dat b/PDF/doc/pdfdoc.dat deleted file mode 100644 index 4caf8811e79..00000000000 --- a/PDF/doc/pdfdoc.dat +++ /dev/null @@ -1,2408 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.1 1996/03/08 17:48:06 mclareni -* Pdf -* -* -1*********************************************************************** - * * - * CERN * - * * - * W5051 PDFLIB 1995.03.15 * - * * - * --------------------------------------------------------------- * - * * - * PDFLIB: Nucleon, Pion and Photon Parton Density Functions * - * and alpha(s) Calculations * - * * - * User's Manual * - * * - * Version 6.06 * - * * - * * - * H. Plothow-Besch/CERN-PPE * - * * - * CH-1211 Geneva 23 * - * BITNET/EARN address: PLOTHOW@CERNVM.CERN.CH * - * Tel.: +41 - 22 - 767 39 80 * - * * - * A complete manual in PostScript format exists on a separate file * - * Requests can be addressed to the CERN Program Library Office * - * * - * Copyright by H. Plothow-Besch * - * * - * Abstract * - * * - * This document describes an integrated package of Parton Den- * - * sity Functions called PDFLIB which has been added to the CERN * - * Program Library Pool W999 and is labelled as W5051. In this pack- * - * age all the different sets of parton density functions of the * - * NUCLEON, the PION and the PHOTON which are available today (about * - * 100 different sets) have been put together. All these sets have * - * been combined in a consistent way such that they all have similar * - * calling sequences and no external data files have to be read in * - * anymore. A default set has been prepared, although those prefering * - * their own set or wanting to test a new one may do so within the * - * package. The selection mode, the program parameters as well as * - * the possibilities to modify the defaults and to control errors * - * occured during execution are described. * - * * - * The package offers as well a program to calculate the strong * - * coupling constant alpha(s) to first or second order (default). * - * The correct Lambda(QCD) associated to the selected set of struc- * - * ture functions and the number of allowed flavours with respect to * - * the given Q**2 is automatically used in the caculation. For those * - * structure functions where the evolution has been performed to * - * leading order only, an alpha(s) value fixed to first order is re- * - * turned. * - * * - * The package is written in standard FORTRAN-77 and is avai- * - * lable on all CERN system areas. * - * * - * Submitter: H. Plothow-Besch/CERN-PPE * - * Language: FORTRAN 77 * - * Library: PDFLIB * - * * - *********************************************************************** -1*********************************************************************** - * * - * * - * _______________________________________________________________ * - * | | * - * | PDFLIB - User's Manual | * - * | | * - * | CERN Program Library entry W5051 | * - * | | * - * | Copyright CERN, Geneva 1990, 1991, 1992, 1993, 1994, 1995 | * - * | | * - * | Copyright and any other appropriate legal protection of | * - * | these computer programs and associated documentation re- | * - * | served in all countries of the world. | * - * | | * - * | These programs or documentation may not be reproduced | * - * | and/or redistributed by any method without prior written | * - * | consent of the Director-General of CERN or his delegate. | * - * | | * - * | Permission for the scientific usage of any programs des- | * - * | cribed herein is granted apriori to those scientific in- | * - * | stitutes associated with the CERN experimental program or | * - * | with whom CERN has concluded a scientific collaboration | * - * | agreement. | * - * | | * - * | Commercial utilisation requires explicit a priori per- | * - * | mission from CERN and will be subjected to payment of a | * - * | licence fee. | * - * | | * - * | These statements are without prejudice to any rights that | * - * | third parties may hold in these programs. | * - * | | * - * | | * - * | Requests for information should be addressed to: | * - * | | * - * | CERN Program Library Office | * - * | CERN-DD Division | * - * | CH-1211 Geneva 23 | * - * | Switzerland | * - * | Tel. +41 22 767 4951 | * - * | Fax. +41 22 767 7155 | * - * | Electronic Mail address: | * - * | | * - * | EARN/Bitnet: CERNLIB@CERNVM | * - * | DECnet: VXCERN::CERNLIB ( node 22.190 ) | * - * | Internet: CERNLIB@CERNVM.CERN.CH | * - * |_____________________________________________________________| * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - ******************************** - 1 - ******************************** -1*********************************************************************** - * * - * Table of Contents * - * page * - * * - * PROGRAM SUMMARY .......................................... 3 * - * * - * 0. Major Differences compared to earlier Versions 4 * - * 0.1 The actual Version 6.06 wrt Version 5.00 ............ 4 * - * 0.2 Version 5.00 wrt Version 4.00 ....................... 4 * - * 0.3 Version 4.00 wrt Version 3.00 ....................... 4 * - * 0.4 Version 3.00 wrt Version 2.00 ....................... 6 * - * 0.5 Version 2.00 wrt Version 1.00 ....................... 7 * - * * - * 1. Introduction 8 * - * * - * 2. The Structure Functions Package PDFLIB 10 * - * 2.1 Parameter Setting and Selection of sets ............ 10 * - * 2.2 The Calling Sequence: PDFLIB Format ................ 12 * - * 2.3 The Calling Sequence: PDG Format ................... 14 * - * 2.4 Error Handling ..................................... 14 * - * 2.5 Features ........................................... 15 * - * 2.6 PION Structure Functions ........................... 16 * - * 2.7 PHOTON Structure Functions ......................... 17 * - * 2.8 How to find PDFLIB ................................. 18 * - * * - * 3. alpha(s) Calculation 18 * - * * - * 4. Conclusions 19 * - * * - * 5. Acknowledgements 21 * - * * - * 6. Appendix 22 * - * A : Example of how to use PDFLIB ........................ 22 * - * B : List of subprograms and COMMON blocks in PDFLIB * - * which are relevant to the user ...................... 25 * - * C : Complete list of subprograms in PDFLIB .............. 26 * - * * - * 7. References 32 * - * * - * 8. List of Tables 34 * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - ******************************** - 2 - ******************************** -1*********************************************************************** - * * - * PROGRAM SUMMARY * - * * - * * - * Titel of Program : PDFLIB, version 6.06 * - * * - * Catalogue number : W5051 in the CERN Computer Program Library * - * * - * Program obtainable from : CERN Computer Program Library Office * - * * - * Computer for which the program is designed and others on which it * - * has been tested: * - * Computer : IBM 3090, VAX, IBM-RISC, DECS, SUN, APOLLO, HP-UX, * - * Silicon Graphics, NEXT, CDC, CRAY, IBM-PC * - * * - * Operating systems : VM/CMS, VAX/VMS, ULTRIX * - * * - * Programming language used : FORTRAN 77, program is available also * - * in the PATCHY and the CMZ format * - * * - * Number of lines in distributed progam, * - * including test data, etc : 99 000 * - * * - * Memory required, * - * including testprograms and some documentation : 5 700 000 bytes * - * * - * No. of bits in a word : 64 * - * * - * Peripherals used : line printer (optional) * - * * - * Keywords : parton density functions, structure functions, W5051, * - * nucleon-, proton-, pion-, photon density parametrisa- * - * tions, Altarelli-Parisi equation, strong coupling * - * constant alpha(s) * - * * - * Nature of physical problem : * - * All theoretical calculations of cross sections involving the * - * hadronic structure of the incoming particles, i.e. protons, pions * - * or photons, use the parton density at a given longitudinal momen- * - * tum X of the parton and at a given momentum transfer Q**2. There * - * is a variety of parametrisations available, but each of them has * - * its own structure for input and/or output. * - * * - * Method of solution : * - * Collection of all available parton density parametrisations and * - * application in an identical format for all of them, regardless of * - * the author's convention or of the particle type. * - * * - * References : * - * [1] H. Plothow-Besch, 'PDFLIB: Structure Functions and alpha(s) * - * Calculations', User's Manual - Version 1.00, W5051 PDFLIB, * - * 1991.03.21, CERN-PPE. * - * [2] H. Plothow-Besch, 'PDFLIB: a library of all available parton * - * density functions of the nucleon, the pion and the photon and * - * the corresponding alpha(s) calculations', * - * Comp. Phys. Comm. 75 (1993) 396-416. * - * * - * * - ******************************** - 3 - ******************************** -1*********************************************************************** - * * - * 0. Major Differences compared to earlier Versions * - * * - * 0.1 The actual Version 6.06 wrt Version 5.00: * - * * - * The following major changes compared to version 5.00 of PDFLIB * - * have been implemented: * - * * - * Several NUCLEON structure function sets have been added: * - * - the NLL sets A' and G of Martin, Roberts and Stirling (MRS-Ap) * - * and (MRS-G) of February 1995 with grid data as well as in its * - * parametrized version (MRS-Ap-F) and (MRS-G-Fit), * - * - the version 3 of the CTEQ group of October 1994 as NLL parame- * - * trisation in the MS_bar as well as in the DIS renormalisation * - * scheme and as LO (CTEQ3M, CTEQ3D, CTEQ3L), * - * - the new sets of GRV of November 1994 as NLL in the MS_bar as * - * well as in the DIS renormalisation scheme and as LO GRV * - * (GRV94-MS, GRV94DI, GRV94-LO), * - * * - * a NEW group of PHOTON structure function sets have been added: * - * - the six NLL sets of the WHIT group (WHIT1-G to WHIT6-G). * - * * - * Please note that as new the default set the MRS set (G) has been * - * chosen (NPTYPE = 1, NGROUP = 3, NSET = 41). * - * * - * More details can be found on the next pages of this updated * - * User's Manual. * - * * - * The response from the Physics community has been very satis- * - * factory, which is encouraging us to keep up-to-date with the * - * latest developments in this area. The author will be pleased to * - * learn about new parton density functions, as well as to receive * - * suggestions to improve both, the usage and the documentation. * - * * - * * - * 0.2 Version 5.00 wrt Version 4.00: * - * * - * The following major changes compared to version 4.00 of PDFLIB * - * have been implemented: * - * * - * NUCLEON structure function sets have been added: * - * - the NLL set A of Martin, Roberts and Stirling (MRS-A) and the * - * parametrized version (MRS-A-Fit) * - * PHOTON structure function sets have been added: * - * - the NLL set of Aurenche, Fontannaz and Guillet (AFG-G). * - * * - * * - * 0.3 Version 4.00 wrt Version 3.00: * - * * - * The following major changes compared to version 3.00 of PDFLIB * - * have been implemented: * - * * - * NUCLEON structure function sets have been updated or added: * - * - the updated NLL sets of Martin, Roberts and Stirling (MRS) of * - * November 1992, the sets S0', D0' and D-' in the MSbar as well * - * as the sets S0', D0' and D-' in the DIS renormalisation * - * scheme. Please note that the previous S0, D0 and D- sets have * - * * - ******************************** - 4 - ******************************** -1*********************************************************************** - * * - * been retracted by the authors. The new MRS(H) set in both * - * schemes have also been added, * - * - the NLL and LO sets of the CTEQ collaboration (CTEQ) in its * - * parametrised form of January 1993. These are the sets 1M, 1MS * - * and 1ML in the MSbar, the set 1D in the DIS renormalisation * - * scheme and the LO set 1L, * - * - the new NLL sets A and B of Berger and Meng (BM) of * - * February 1993 with special gluon distributions, and finally * - * - the new NLL and LO sets of the CTEQ collaboration (CTEQ) in * - * its parametrised form of August 1993. These are the sets 2M, * - * 2MS, 2MF and 2ML in the MSbar, the set 2D in the DIS renorma- * - * lisation scheme and the LO set 2L. The revised CTEQ2 version, * - * CTEQ2p, of November 1993 is recommended by the authors. * - * * - * Please note that the default set has been put to the GRV set HO * - * (NPTYPE = 1, NGROUP = 5, NSET = 3 / former MODE = 72). * - * The MOST DRASTICAL change of the package has been, however, the * - * NEW FORMAT of PARAMETER SETTINGS. Instead of using only ONE para- * - * meter (MODE) to select a set of parton density functions (PDF), * - * each PDF set is now identified by THREE parameters. These are * - * NPTYPE, NGROUP and NSET, for PARTICLE TYPE (Nucleons, Pions or * - * Photons) AUTHOR GROUP (f.ex. MRS, CTEQ, GRV, etc) and the PARAME- * - * TRISATION SET within the group. Therefore the user should provide * - * THREE parameters (NPTYPE, NGROUP, NSET) to the subroutine PDFSET, * - * each time a PDF set shall be selected. But to make life nice and * - * easy, it is also possible to select a PDF set by transferring only * - * ONE parameter to PDFSET as before: this parameter should then * - * identify the NAME of the author group in an unequivocal way; the * - * selection of the PDF set within the author group is made by the * - * corresponding VALUE value (f.ex. PARM(1) = 'MRS' with VALUE(1) = * - * 29.0D0 would select the 29th set of the Nucleon PDFs of MRS, and * - * f.ex. PARM(1) = 'GRVph' with VALUE(1) = 1.0D0 would select the * - * first set of the Photon PDFs of GRV). As a suggestion, the NAME for* - * each PDF set can be found in the NEW COMMON block /W505110/SFNAME, * - * where SFNAME is a CHARACTER*8 array with dimension SFNAME(NPTYMX, * - * NGRMAX,NSETMX), and NPTYMX, NGRMAX, NSETMX are defined by the * - * parameter sequence, +SEQ, W5051P2. In case the user wants to se- * - * lect the DEFAULT, it is sufficient to transfer as the ONLY parame- * - * ter PARM(1) = 'Nset' with VALUE(1) = 0.0D0. This change of format * - * had been necessary to take into account the inflationary growing * - * number of PDFs until now and to foresee already the possibility of * - * adding new PDFs in a more flexible way. Please note that in case * - * of any INCONSISTANCY of parameter settings, it is always chosen * - * the DEFAULT settings ! - * Please also note that the internal COMMON block /W50511/ has been * - * modified to /W50511/ NPTYPE,NGROUP,NSET,MODE,NFL,LO,TMAS. * - * * - * Full backward compatibility with previous versions is ensured !! * - * This means that old programs using PDF sets up to version 3.00 of * - * PDFLIB should run without ANY change. To ensure this, four new * - * COMMON blocks have been added: * - * - /W50519/ NEWVER : to flag the NEW/OLD version with the * - * LOGICAL variable NEWVER, * - * - /W505120/ NPGSMX(NPTYMX,NGRMAX),NSETFL(NPTYMX,NGRMAX,NSETMX) : * - * to provide the actual maximum number of parametrisation sets * - * per particle type and author group, and to flag the retracted * - * * - ******************************** - 5 - ******************************** -1*********************************************************************** - * * - * PDF sets (NSETFL(I,J,K) = 0), * - * - /W505121/ NPTYCR(MODEMX),NGROMX(MODEMX),NSETCR(MODEMAX) : * - * to provide the cross reference to the NPTYPE, NGROUP and NSET * - * value (NEW format) for a given MODE value (OLD format), * - * and * - * - /W505122/ MODECR(NPTYMX,NGRMAX,NSETMX) : to provide the * - * cross reference to the MODE value (OLD version) for a given * - * NPTYPE, NGROUP and NSET value (NEW format). In case of the * - * above added PDF sets NO MODE value is available; in that case * - * MODECR(I,J,K) = -1 is returned. * - * * - * * - * 0.4 Version 3.00 wrt Version 2.00 * - * * - * The following major changes compared to version 2.00 of PDFLIB * - * had been implemented: * - * * - * NUCLEON structure function sets had been updated or added: * - * - the NLL set of Aurenche et al. (ABFOW), * - * - the updated NLL set of Kwiecinski, Martin, Roberts and * - * Stirling (KMRS) set B0 with u_bar not equal to d_bar * - * of April 1992, * - * - the new NLL sets of Martin, Roberts and Stirling (MRS) * - * set S0, D0 and D- with u_bar not equal to d_bar of April 1992. * - * Please note that the default set had been put to the MRS set S0 * - * (MODE = 45). * - * * - * PION structure function sets had been added: * - * - the new LO and NLL sets of Gl"uck, Reya and Vogt (GRV-P) * - * of August 1991, * - * - the new sets 2 and 3 of Aurenche et al. (ABFKW-P). * - * Please also note that the ABFKW set had changed MODE number from * - * 110 -> 180, as well as the SMRS sets from 120ff -> 130ff, and * - * that earlier inconsistencies in the parton density definitions * - * had been corrected. * - * * - * For the first time also PHOTON structure function sets had been * - * added to the package. These sets were the following: * - * - the old Duke and Owens (DO-G) LO and NLL sets, * - * - the old LO sets 1 to 4 of Drees and Grassie (DG-G), * - * - the new LO sets 1 to 3 of Abramowicz, Charchula and Levy * - * (LAC-G), * - * - the new LO sets 1 and 2 and the NLL set of Gordon and Storrow * - * (GS-G) of July 1991, * - * - the new LO and NLL sets, as well as the leading term of the * - * NLL calculation of Gl"uck, Reya and Vogt (GRV-G) * - * of December 1991, * - * - the new NLL sets of Aurenche et al. (ACFGP-G) of April 1992. * - * * - * Some improvements in the usage of the package had been made: * - * - more protections had been implemented and inconsistencies * - * had been corrected to make the package more robust and * - * available on ALL system areas, and finally * - * - the subroutine STRUCTM had been added. STRUCTM is basically * - * the same routine as the old steering subroutine STRUCTF apart * - * from ONE additional parameter in the argument list which had * - * * - ******************************** - 6 - ******************************** -1*********************************************************************** - * * - * been added to transfer separately the parton densities for * - * u_bar and d_bar. The argument list of the subroutine STRUCTF * - * was as before; in case of STRUCTF sea = (u_bar + d_bar)/2 is * - * transferred. The subroutine PFTOPDG, which is the sterring * - * routine in PDG format, was unchanged; this routine always * - * transferred u_bar and d_bar separately. * - * * - * * - * 0.5 Version 2.00 wrt Version 1.00 * - * * - * The following major changes compared to version 1.00 of PDFLIB * - * had been implemented: * - * * - * New parton density functions of the NUCLEON had been added: * - * - the old LO set of Buras and Gaemers of 1978 (BEBC) for com- * - * pleteness, * - * - all the LO sets of Diemoz, Ferroni, Longo and Martinelli (DFLM)* - * including their parametrisation for the NLL average fit, * - * - the new LO set 1.1 of Owens (DO 1.1) of June 1991, * - * and finally * - * - the new LO and NLL sets of Gl"uck, Reya and Vogt (GRV) of * - * May 1991. * - * * - * PION structure function sets had been added to the package: * - * - the old Owens (OW-P) sets 1 and 2, * - * - the newer Aurenche et al. (ABFKW-P) set and * - * - the new Sutton, Martin, Roberts and Stirling (SMRS-P) sets 1, * - * 2 and 3. * - * * - * Some improvements in the usage of the package had been made: * - * - COMMON block names had been changed to avoid interference * - * to those defined by the user (/IMODE/ -> /W50511/, * - * /ALAMB/ -> /W50512/), * - * - three new COMMON blocks had been added: * - * a) /W50513/ XMIN,XMAX,Q2MIN,Q2MAX : * - * to provide the minimum and maximum values of X and Q**2 for * - * each set of structure functions, * - * b) /W50510/ IFLPRT : * - * to provide a print flag at different levels to print * - * b.1) the variables of the three COMMON blocks * - * /W50511/, /W50512/ and /W50513/ at job initialisation * - * b.2) error messages during job execution * - * c) /W50514W/ PDFWGT : * - * to take into account the event weight for error counting * - * - a subroutine PDFSTA had been added to allow at job termination * - * for a summary how often X and Q**2 limits have been exceeded, * - * - the MODE number of some structure functions had been changed * - * to keep consistensy, * - * - the number of parameters which can be set through the sub- * - * routine PDFSET had been extended to 20, * - * - more protections had been implemented and inconsistencies * - * had been corrected to make the package more robust, * - * and finally * - * - a subroutine PFTOPDG had been provided as an interface for * - * those users who prefer the flavour code convention of the PDG * - * instead of the PDFLIB format. * - * * - ******************************** - 7 - ******************************** -1*********************************************************************** - * * - * 1. Introduction * - * * - * * - * The number of useful sets of parton density functions of the * - * NUCLEON available today is about 70 and is still growing. The ol- * - * der sets are leading order evolutions only, like * - * * - * - Buras and Gaemers (BEBC) [1], * - * - Owens and Reya (OR) [2], * - * - Baier, Engels and Petersson (BEP) [3], * - * - Gl"uck, Hoffmann and Reya (GHR) [4], * - * - Duke and Owens (DO) sets 1 and 2 [5], * - * - Eichten, Hinchliffe, Lane and Quigg (EHLQ) sets 1 and 2 [6], * - * - Diemoz, Ferroni, Longo and Martinelli (DFLM) with * - * Lambda_4(QCD) = 200 MeV for soft and hard valence quark and * - * soft and hard gluon distributions [7], and finally * - * - the new LO paramerisation of Owens set 1.1 (DO 1.1) [8]. * - * * - * Most of the sets, essentially the more recent ones, are * - * next-to-leading order evolutions, like * - * * - * - Diemoz, Ferroni, Longo and Martinelli (DFLM) with * - * Lambda_4(QCD) = 160, 260, 360 MeV [7], * - * - Martin, Roberts and Stirling (MRS) sets 1 to 3, sets E and B * - * and sets E' and B' [9], * - * - Harriman, Martin, Roberts and Stirling (HMRS) sets E, E+, E- * - * and B [10], * - * - Kwiecinski, Martin, Roberts and Stirling (KMRS) [11] sets B0 * - * and B-, and for the B- set with different radii for shadowing, * - * - Martin, Roberts and Stirling (MRS-B Lambda) [11] for the B0 * - * set also with different values of Lambda_4(QCD) = 135, 160, * - * 200 and 235 MeV, * - * - Martin, Roberts and Stirling (MRS) [12] sets S0, D0 and D- * - * as well as the upgraded KMRS set B0, all having u_bar not * - * equal to d_bar, * - * - Morfin and Tung (MT) sets 1 to 6 [13], * - * - Gl"uck, Reya and Vogt (GRV) [14] including their new para- * - * metrisation from August 1991, * - * - Aurenche et al. (ABFOW) [15], * - * - the upgraded Martin, Roberts and Stirling (MRS) [16] sets * - * S0', D0' and D-' in the MSbar renormalisation scheme and MRS(H)* - * - the upgraded Martin, Roberts and Stirling (MRS) [17] sets * - * S0', D0' and D-' in the DIS renormalisation scheme and MRS(H), * - * - the sets 1M, 1MS and 1ML in the MSbar and the set 1D in the * - * DIS renormalisation scheme of the CTEQ collaboration (CTEQ) * - * [18] in its parametrised form, * - * - the new sets A and B of Berger and Meng (BM) [19] with special * - * gluon distributions, and * - * - the new sets 2M, 2MS, 2MF and 2ML in the MSbar and the set 2D * - * in the DIS renormalisation scheme of the CTEQ collaboration * - * (CTEQ) [20] in its parametrised form which superseed already * - * the previous CTEQ sets 1M, 1MS, 1ML and 1D. The CTEQ collabo- * - * ration provides also parametrisations to leading order, the * - * sets 1L [18] and 2L [20]. * - * * - * * - * * - ******************************** - 8 - ******************************** -1*********************************************************************** - * * - * There is also a limited number of parton density functions of * - * the PION available. These are the old set to leading order evolu- * - * tion of * - * * - * - Owens (OW-P) [21], sets 1 and 2, * - * * - * and the newer and the very new next-to-leading order evolutions of * - * * - * - Aurenche et al. (ABFKW-P) [22], sets 1, 2 and 3, * - * - Sutton, Martin, Roberts and Stirling (SMRS-P) [23], sets 1, 2 * - * and 3 and * - * - Gl"uck, Reya and Vogt (GRV-P) [24], the LO and NLL sets. * - * * - * In addition there are also a few parton density functions of * - * the PHOTON available. These are the old sets to leading order evo- * - * lution of * - * * - * - Duke and Owens (DO-G) (and the NLL) [25] using an asymptotic * - * solution of the Altarelli-Parisi equation, * - * - Drees and Grassie (DG-G) sets 1 to 4 [26] using a full solu- * - * tion of the Altarelli-Parisi equation, * - * * - * the new leading order evolution of * - * * - * - Abramowicz, Charchula and Levy (LAC-G) [27] sets 1 to 3 using * - * a full solution of the Altarelli-Parisi equation, * - * * - * and the new next-to-leading order evolution of * - * * - * - Gordon and Storrow (GS-G) [28], the LO sets 1 and 2 and the * - * NLL set, * - * - Gl"uck, Reya and Vogt (GRV-G) [29], the LO, NLL and the * - * leading term of the NLL sets, and * - * - Aurenche et al. (ACFGP-G) [30] sets 1 and 2, without and with * - * massive charm. * - * * - * The different sets differ also in the renormalisation scheme * - * they use. The DFLM series, the sets 1 to 6 of the MT series, the * - * new MRS sets S0', D0' and D-' and the new CTEQ sets 1D and 2D are * - * performed in the DIS renormalisation scheme [31]. If the LO evo- * - * lutions of these authors are ignored, all the other sets are * - * performed in the MS_bar renormalisation scheme. All sets are made * - * using four flavours in the initial state (NF = 4). The value of * - * the QCD scale factor, Lambda_4(QCD), ranges from 45 to 500 MeV. * - * * - * We have put together all these different sets of parton density * - * functions in one single package [32]. We have modified the sets * - * such that no external data files for the grids have to be read in * - * anymore. All these structure function sets have been combined in a * - * consistent way such that they all appear in an IDENTICAL STRUCTURE * - * to the user. The selection is made via THREE parameters, NPTYPE, * - * NGROUP and NSET, which identify a PDF set by its PARTICLE TYPE * - * (Nucleon: NPTYPE = 1, Pion: NPTYPE = 2, Photon: NPTYPE = 3), its * - * AUTHOR GROUP (f.ex. MRS: NGROUP = 3, CTEQ: NGROUP = 4, * - * GRV: NGROUP = 5) and its PDF SET WITHIN THE GROUP (NSET = 1,2,3 * - * etc.). It is also possible to select a PDF set by transferring * - * * - ******************************** - 9 - ******************************** -1*********************************************************************** - * * - * only ONE parameter to PDFSET as before: this parameter should then * - * identify the NAME of the author group in an unequivocal way; the * - * selection of the PDF set within the author group is made by the * - * corresponding VALUE value (f.ex. PARM(1) = 'MRS' with VALUE(1) = * - * 29.0D0 would select the 29th set of the Nucleon PDFs of MRS, and * - * f.ex. PARM(1) = 'GRVph' with VALUE(1) = 1.0D0 would select the * - * first set of the Photon PDFs of GRV). As a suggestion, the NAME for* - * each PDF set can be found in the new COMMON block /W505110/SFNAME, * - * where SFNAME is a CHARACTER*8 array with dimension SFNAME(NPTYMX, * - * NGRMAX,NSETMX), and NPTYMX, NGRMAX, NSETMX are defined by the * - * parameter sequence, +SEQ, W5051P2. The parameters should be, * - * NPTYPE, NGROUP, NSET or the 'NAME' of the PDF set with their VALUE * - * values should be set with a call to the subroutine PDFSET at the * - * initialisation phase. A simple SUBROUTINE call, which is IDENTICAL * - * for all applications (nucleons, pions, photons) returns the parton * - * densities for all partons (u, d, s, c, b, t, gluon and their anti- * - * quarks) at a given X value (where X is the fraction of the longi- * - * tudinal momentum carried by the parton) and the Q-scale SCALE (in * - * GeV). A default set has been prepared, in which case it is suffi- * - * cient to transfer as the ONLY parameter PARM(1) = 'Nset' with * - * VALUE(1) = 0.0D0, although those preferring their own private set * - * or wanting to test a new one may do so within the package. Error * - * control can be obtained by setting a print flag to obtain output * - * either during execution and/or as a summary at job termination via * - * a call to the subroutine PDFSTA. In addition, the different parton * - * density sets have been modified such that the library can be used * - * on all the different computer systems known today. The library has * - * been tested on the different system areas to ensure identical re- * - * sults within the given machine precision. * - * * - * Within the same package a program is also provided to calculate * - * the strong coupling constant alpha(s) to second order (default) * - * or to first order (by user's choice). The correct Lambda(QCD) as- * - * sociated to the selected set of structure functions and the number * - * of allowed flavours with respect to the given Q**2 is automati- * - * cally used in the calculation. For those structure functions where * - * the evolution has been performed to leading order only, the * - * alpha(s) value to first order is returned. * - * * - * * - * * - * 2. The Structure Functions Package PDFLIB * - * * - * * - * In the following the use of and the access to the PDFLIB pack- * - * age is described. * - * * - * 2.1 Parameter Setting and Selection of Sets * - * * - * * - * The user may access his/her preferred set of structure func- * - * tions by setting the THREE parameters, NPTYPE, NGROUP and NSET, * - * which identify each set of parton density functions via a call * - * to the subroutine * - * * - * CALL PDFSET(PARM,VALUE) * - * * - ******************************* - 10 - ******************************** -1*********************************************************************** - * * - * at the initialization phase of his/her MAIN program, or use the * - * package as a 'black box' with the default values (see below). The * - * arguments PARM and VALUE are vectors of dimension 20 and have the * - * following meaning * - * * - * PARM(I) = character*20 variable, which defines in any order * - * the variables * - * 'NPTYPE', 'NGROUP', 'NSET', 'MODE', 'INIT0', * - * 'NFL', 'LO', 'TMAS', 'QCDL4', 'QCDL5' and * - * 'XMIN', 'XMAX', 'Q2MIN', 'Q2MAX' * - * VALUE(I) = the corresponding numerical value of the variable * - * PARM(I) * - * (TMAS, QCDL4, QCDL5, XMIN, XMAX, Q2MIN and Q2MAX * - * are DOUBLE PRECISION variables), * - * * - * where * - * * - * NPTYPE = number of particle type ranging from 1 to 3 * - * (Nucleons: NPTYPE = 1, Pions: NPTYPE = 2 and * - * Photons: NPTYPE = 3) (Default: NPTYPE = 1) * - * NGROUP = number of author group ranging from 1 to 7 * - * (Default: NGROUP = 5) * - * NSET = number of a selected structure function set within * - * the author group ranging from 1 to 34 * - * (Default: NSET = 3) * - * (MODE = number of a selected structure function set ranging * - * from 0 to 281 - OLD format !!) * - * (Default: MODE = 45) * - * INIT0 = in case of PARM(1) = 'INIT0' PDFSET fills as the * - * only action the COMMON blocks /W505110/, /W505120/ * - * /W505121/ and /W505122/ * - * NFL = desired number of flavours in the alpha(s) calcula- * - * tion ranging from 3 to 6 * - * (Default: NFL = 5) * - * LO = order of alpha(s) calculation; if LO = 1, alpha(s) * - * to first order only * - * (Default: LO = 2) * - * TMAS = the user defined value of the top-quark mass in * - * GeV/c**2 (optional) * - * (Default: TMAS = 100.0D0) * - * QCDL4 = QCD scale, Lambda_4(QCD), in GeV for four flavours * - * QCDL5 = QCD scale, Lambda_5(QCD), in GeV for five flavours * - * corresponding to QCDL4 * - * * - * and * - * * - * XMIN = minimum allowed X value * - * XMAX = maximum allowed X value * - * Q2MIN = minimum allowed Q**2 value (in (GeV/c)**2) * - * Q2MAX = maximum allowed Q**2 value (in (GeV/c)**2) * - * * - * for each set of structure functions. * - * * - * If the user wants to select the default settings, it is suffi- * - * cient to give PARM(1) = 'Nset' with VALUE(1) = 0.0D0 as the ONLY * - * parameter to PDFSET. Please note that a PDF set may also be iden- * - * * - ******************************* - 11 - ******************************** -1*********************************************************************** - * * - * tified by the NAME of the author group provided in an unequivocal * - * way. The selection of the PDF set within the author group is, in * - * that case, given by the corresponding VALUE value. The NAME for * - * each PDF set can be found in the COMMON block /W505110/SFNAME, * - * where SFNAME is a CHARACTER*8 array with dimension SFNAME(NPTYMX, * - * NGRMAX,NSETMX), and NPTYMX, NGRMAX, NSETMX are defined by the para-* - * meter sequence, +SEQ, W5051P2. Please also note that the variable * - * names can be transferred in lower, upper or mixed character modes. * - * * - * Please also note that PDFSET can be called as often as the user * - * likes. In order to redefine the parameters to select other sets of * - * structure functions which the user wants to investigate, it might * - * be necessary to call PDFSET in an alternating way, but it is al- * - * ways mandatory to transfer either the THREE parameters, NPTYPE, * - * NGROUP, NSET, or the 'NAME' of the author group with their corres- * - * ponding VALUE values. The subroutine PDFSET fills the internal * - * COMMON blocks * - * * - * COMMON/W50511/ NPTYPE,NGROUP,NSET,MODE,NFL,LO,TMAS * - * COMMON/W50512/ QCDL4,QCDL5 * - * COMMON/W50513/ XMIN,XMAX,Q2MIN,Q2MAX * - * * - * at the time the routine is called. Please note that in case of a * - * multiple call to PDFSET with fewer parameters redefined than in a * - * preceeding call, always the last parameters are kept in memory. * - * All variables of the three COMMON blocks can be automatically * - * printed at job initialisation by setting the print flag IFLPRT in * - * the COMMON block * - * * - * COMMON/W50510/ IFLPRT * - * * - * to IFLPRT = 2. * - * * - * * - * * - * 2.2 The Calling Sequence: PDFLIB Format * - * * - * * - * The main steering routine for a set of structure functions is * - * accessed as follows: * - * * - * CALL STRUCTM(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL) * - * * - * Please note that all variables are defined as DOUBLE PRECISION. * - * The user has to provide the following INPUTs: * - * * - * X = X value of parton * - * SCALE = QCD scale in GeV * - * * - * The subroutine STRUCTM returns the following OUTPUT: * - * * - * UPV = up valence quark * - * DNV = down valence quark * - * USEA = sea (up_bar) * - * DSEA = sea (down_bar) * - * STR = strange quark * - * * - ******************************* - 12 - ******************************** -1*********************************************************************** - * * - * CHM = charm quark * - * BOT = bottom quark * - * TOP = top quark * - * GL = gluon * - * * - * This steering routine has separate arguments for u_bar and * - * d_bar-quarks to take into account that some of the new sets of * - * nucleon density functions provide separately the densities for * - * u_bar and d_bar. In case u_bar is not given separately from d_bar * - * it is set USEA = DSEA. * - * * - * Please note that STRUCTM returns X * parton distribution * - * function ! * - * * - * An older version of the main steering routine - * * - * CALL STRUCTF(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,TOP,GL) * - * * - * is still available. Also here all variables are defined as * - * DOUBLE PRECISION. Please note that STRUCTF has only ONE argument * - * for the sea-quark, which gives u_bar = d_bar or (u_bar + d_bar)/2. * - * The user has to provide as above the following INPUTs: * - * * - * X = X value of parton * - * SCALE = QCD scale in GeV * - * * - * The subroutine STRUCTF returns the following OUTPUT: * - * * - * UPV = up valence quark * - * DNV = down valence quark * - * SEA = sea (up_bar = down_bar or (up_bar + down_bar)/2) * - * STR = strange quark * - * CHM = charm quark * - * BOT = bottom quark * - * TOP = top quark * - * GL = gluon * - * * - * Please note that also STRUCTF returns X * parton distribution * - * function ! * - * * - * A list of available sets of NUCLEON structure functions in the * - * package is given in Table 1. * - * * - * The recommended set of structure functions from the different * - * authors is indicated with a flash. If NSET is set to zero * - * (or if any of the three parameters, NPTYPE, NGROUP and NSET, is * - * undefined) a default set is selected which is a nucleon parton * - * dennsity set, the set of MRS (G) with Lambda_4(QCD) = 255 MeV * - * (NPTYPE = 1, NGROUP = 3, NSET = 41). * - * * - * * - * * - * * - * * - * * - * * - * * - ******************************* - 13 - ******************************** -1*********************************************************************** - * * - * 2.3 The Calling Sequence: PDG Format * - * * - * * - * To allow the use of the package with the flavour code conven- * - * tion of the Particle Data Group (PDG) an interface has been writ- * - * ten which translates the PDFLIB format (see Section 2.2) into the * - * PDG format. Instead of calling the subroutine STRUCTM the user * - * preferring the flavour code convention of the PDG accesses the * - * package via a call to the subroutine * - * * - * CALL PFTOPDG(X,SCALE,DXPDF). * - * * - * All variables are defined as DOUBLE PRECISION as before, and * - * X and SCALE are INPUTs provided by the user having the same * - * meaning as above (see Section 2.2). * - * * - * The subroutine PFTOPDG outputs a vector DXPDF(-6:6) of which * - * its variables have the following meaning: * - * * - * DXPDF(0) = gluon * - * DXPDF(1) = sum of down valence + down_bar quark * - * DXPDF(2) = sum of up valence + up_bar quark * - * DXPDF(3) = strange quark * - * DXPDF(4) = charm quark * - * DXPDF(5) = bottom quark * - * DXPDF(6) = top quark * - * and DXPDF(-1) to DXPDF(-6) are the corresponding antiquarks. * - * * - * DXPDF(-1) = DXPDF(-2) stands for down_bar = up_bar or * - * (down_bar + up_bar)/2 in almost all parametrisations. In case * - * where u_bar is not equal to d_bar (like for the retracted MRS S0, * - * D0 and D- sets, the updated MRS S0', D0' and D-' in MS_bar and DIS * - * renormalisation scheme as well as the upgraded KMRS set B0 and one * - * of the MT series) DXPDF(-1) = d_bar and DXPDF(-2) = u_bar. In all * - * sets is DXPDF(3) = DXPDF(-3), DXPDF(4) = DXPDF(-4), * - * DXPDF(5) = DXPDF(-5) and DXPDF(6) = DXPDF(-6) so far. * - * * - * Please note that also PFTOPDG returns X * parton distribution * - * function ! * - * * - * * - * * - * 2.4 Error Handling * - * * - * * - * A note of caution should be addressed here. All structure * - * functions are limited in X and Q**2 which range for most of the * - * sets from * - * * - * 4 - 10 < Q**2 < 10**6 - 10**8 (GeV/c)**2 * - * 10**{-5} - 10**{-4} < X < 1. * - * * - * If the user wants to extend the X or Q**2 ranges, it is pos- * - * sible for some of the structure function sets, but the result * - * should be looked at with great caution. If in doubt, please check * - * with the authors of the structure function set. The program is * - * * - ******************************* - 14 - ******************************** -1*********************************************************************** - * * - * protected against calculations of Q**2 values below Q2MIN (in this * - * case Q**2 = Q2MIN) and of X values in unphysical regions (X < 0 or * - * X > 1). The execution of the program is stopped in the later case. * - * * - * A COMMON block can be accessed * - * * - * COMMON/W50513/ XMIN,XMAX,Q2MIN,Q2MAX * - * * - * where * - * * - * XMIN = minimum allowed X value * - * XMAX = maximum allowed X value * - * Q2MIN = minimum allowed Q**2 value (in (GeV/c)**2) * - * Q2MAX = maximum allowed Q**2 value (in (GeV/c)**2) * - * * - * is given for each set of structure functions. To control how often * - * the X or Q**2 ranges have been exceeded during execution of the * - * user's program a call to the subroutine * - * * - * CALL PDFSTA * - * * - * at the termination phase of his/her MAIN program allows to print * - * a summary of these errors. If the COMMON block * - * * - * COMMON/W50514W/ PDFWGT * - * * - * where * - * * - * PDFWGT = weight * - * * - * is filled by the user on an event-to-event basis the statistics * - * in the error summary takes into account this weight. * - * * - * The print flag in the COMMON/W50510/IFLPRT may be set to * - * IFLPRT = 3 to print an error message EACH TIME a limit is exeeded * - * during job execution. Please note that setting this flag may pro- * - * duce an ENORMOUS AMOUNT of output! * - * * - * * - * * - * 2.5 Features * - * * - * * - * If NPTYPE = 1, NGROUP = 1 and NSET = 1, the user has the possi- * - * bility to use his/her own private set of structure functions * - * (i.e. CDHS effective structure functions could be inseted here, * - * or the user could implement a new set of structure functions for * - * testing purposes). To insert the private set the DUMMY subroutine * - * * - * SUBROUTINE STRPRIV(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL) * - * * - * should be activated by the user. All variables have to be defined * - * as DOUBLE PRECISION. The variables have the same meaning as des- * - * cribed for the subroutine STRUCTM in Section 2.2 (for explanations * - * see there). * - * * - * * - ******************************* - 15 - ******************************** -1*********************************************************************** - * * - * For the calculation of the strong coupling constant alpha(s) * - * (see Section 3) with the user's private set of structure functions * - * the user should provide a value for the variables QCDL4 and QCDL5 * - * via the subroutine PDFSET at the initialization phase. In fact, * - * because only the parameter QCDL5 is used in the alpha(s) calcul- * - * ation, only this definition is mandatory. * - * * - * * - * * - * 2.6 PION Structure Functions * - * * - * * - * All the available sets of structure functions of the PION have * - * been added to the package as well: * - * * - * * - * - the old Owens (OW-P) sets 1 and 2 [21], * - * - the newer sets 1 to 3 of Aurenche et al. (ABFKW-P) [22], * - * - the very new Sutton, Martin, Roberts and Stirling (SMRS-P) * - * sets 1 to 3 [23] and * - * - the very new Gl"uck, Reya and Vogt (GRV-P) [24] sets of LO * - * and NLL calculations. * - * * - * The calling sequence to the pion set of structure functions is * - * kept identical to those described in Section 2.2 for the nucleon * - * structure fuctions. It can be either * - * * - * CALL STRUCTM(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL) * - * * - * or * - * * - * CALL PFTOPDG(X,SCALE,DXPDF) * - * * - * or the old version of the main steering routine * - * * - * CALL STRUCTF(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,TOP,GL) * - * * - * where, as before, the INPUTs are to be provided by the user in * - * DOUBLE PRECISION. The OUTPUT has the same definitions as before * - * (see Section 2.2). In case of the pion structure functions it is * - * also returned X * parton distribution function with * - * UPV = DNV, SEA = STR (USEA = DSEA = STR) and TOP = 0 * - * (DXPDF(1) = DXPDF(2), DXPDF(3) = DXPDF(-1) = DXPDF(-2) and * - * DXPDF(6) = 0). * - * * - * A list of available sets of PION structure functions in the * - * package is given in Table 2. * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - ******************************* - 16 - ******************************** -1*********************************************************************** - * * - * 2.7 PHOTON Structure Functions * - * * - * * - * In the previous version, all the available sets of structure * - * functions of the PHOTON have been added to the package as well, * - * * - * - the old Duke and Owens (DO-G) LO and NLL sets [25], * - * - the old Drees and Grassie (DG-G) sets 1 to 4 [26], * - * - the new Abramowicz, Charchula and Levy (LAC-G) [27] * - * sets 1 to 3, * - * - the new Gordon and Storrow (GS-G) [28] sets, the LO sets 1 * - * and 2 and the NLL set, * - * - the new Gl"uck, Reya and Vogt (GRV-G) [29] sets, the LO, NLL * - * and the leading term of the NLL calculations, and * - * - the new Aurenche et al. (ACFGP-G) [30] NLL sets 1 and 2, * - * without and with massive charm. * - * * - * The calling sequence to the photon set of structure functions * - * is also kept identical to those described in Section 2.2 for the * - * nucleon structure fuctions. It can be either * - * * - * CALL STRUCTM(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL) * - * * - * or * - * * - * CALL PFTOPDG(X,SCALE,DXPDF) * - * * - * or the old version of the main steering routine * - * * - * CALL STRUCTF(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,TOP,GL) * - * * - * where, as before, the INPUTs are to be provided by the user in * - * DOUBLE PRECISION. The OUTPUT has the same definitions as before * - * (see Section 2.2). In case of the photon structure functions it * - * is also returned X * parton distribution function (note that the * - * alpha(QED) has to be taken care of by the user !) with UPV = USEA, * - * DNV = DSEA and TOP = 0 (DXPDF(1) = 2 * DXPDF(-1), DXPDF(2) = * - * 2 * DXPDF(-2), as a result of the definitions - see Section 2.3 -, * - * and DXPDF(6) = 0), while all the other quarks are set identical to * - * their antiquark densities. * - * * - * A list of available sets of PHOTON structure functions in the * - * package is given in Table 3. * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - ******************************* - 17 - ******************************** -1*********************************************************************** - * * - * 2.8 How to find PDFLIB * - * * - * * - * At CERN the PDFLIB library and corresponding documentation are * - * available on all systems in the standard areas. * - * * - * System Library Documentation * - * * - * CERNVM PDFLIB TXTLIB Q PDFLIB DOC Q * - * VXCERN CERN:[PRO.LIB]PDFLIB.OLB CERN:[PRO.DOC]PDFLIB.PS * - * Unix /cern/pro/lib/libpdflib.a /cern/pro/doc/pdf.ps * - * systems * - * * - * The package may be accessed via the CERNLIB command: * - * * - * CERNLIB PDFLIB * - * * - * * - * Whenever you use this program, please give reference to the * - * following papers: * - * * - * H. Plothow-Besch, 'PDFLIB: a library of all available parton * - * density functions of the nucleon, the pion and the photon * - * and the corresponding alpha(s) calculations', * - * Comp. Phys. Comm. 75 (1993) 396-416. * - * * - * and/or * - * * - * H. Plothow-Besch, 'PDFLIB: Structure Functions and * - * alpha_s Calculations', User's Manual - Version 1.00, * - * W5051 PDFLIB, 1991.03.21, CERN-PPE. * - * * - * and/or * - * * - * H. Plothow-Besch, 'PDFLIB: Nucleon, Pion and Photon Parton * - * Density Functions and alpha_s Calculations', * - * User's Manual - Version 6.06, W5051 PDFLIB, 1995.03.15, * - * CERN-PPE. * - * * - * * - * * - * 3. alpha(s) Calculation * - * * - * * - * Within the same package a program is provided to calculate the * - * strong coupling constant alpha(s) to second order as a function * - * of Lambda(QCD) of five flavours and the desired number of fla- * - * vours (NFL) for the selected set of structure functions, which * - * fixes Lambda(QCD). The formula on which the calculations are * - * based upon can be found in Ref. [33]. The same three parameters, * - * NPTYPE, NGROUP and NSET, which select a structure function set, * - * is used to steer the calculation of the alpha(s) value at a given * - * scale from the Lambda(QCD) defined in the selected PDF set. * - * * - * The value of alpha(s) is matched at the thresholds q = m_q. * - * When invoked with NFL < 0, it chooses NFL as the number of fla- * - * * - ******************************* - 18 - ******************************** -1*********************************************************************** - * * - * vours for which the masses are less then q. For the quark masses * - * where thresholds are changed the following values have been used: * - * m_charm = 1.5 GeV/c**2, m_bottom = 4.75 GeV/c**2 and * - * m_top = 100 GeV/c**2. * - * * - * The alpha(s) value can be obtained via a call to: * - * * - * FUNCTION ALPHAS2(SCALE) * - * * - * The user has to provide the following INPUT: * - * * - * SCALE = QCD scale in GeV * - * * - * The function ALPHAS2 returns the following OUTPUT: * - * * - * ALPHAS2 = alpha strong to second order, * - * * - * if LO not equal to one. For those structure functions, for which * - * the evolution is done to leading order only, alpha(s) to first * - * order is returned. * - * * - * The same subroutine * - * * - * SUBROUTINE PDFSET(PARM,VALUE) * - * * - * as described in Section 2.1 should be used to change the default * - * values of the variables NPTYPE, NGROUP, NSET, NFL, LO, TMAS, * - * QCDL4, QCDL5, XMIN, XMAX, Q2MIN and Q2MAX. * - * * - * The internal COMMON block * - * * - * COMMON/W50512/ QCDL4,QCDL5 * - * * - * where * - * * - * QCDL4 = QCD scale, Lambda_4(QCD), in GeV for four flavours * - * QCDL5 = QCD scale, Lambda_5(QCD), in GeV for five flavours * - * corresponding to QCDL4 * - * * - * provides the actual value of Lambda_4(QCD) and Lambda_5(QCD) used * - * in the alpha(s) calculation for four and five flavours, respectiv- * - * ly, for each set of structure functions. * - * * - * * - * * - * 4. Conclusions * - * * - * * - * In the Long Write-up as an example, the NUCLEON structure * - * function distributions at the scale Q**2 = m_W**2 for u and d va- * - * lence quarks as well as for the sea and gluon contributions are * - * shown in Figs. 1 to 4 respectively, as a function of the parton X. * - * The average X values for CERN and FNAL as well as for LHC and SSC * - * energies at that scale are indicated. Please, note the logarithmic * - * scale for the gluon distribution. The d/u ratio of the valence * - * quarks is shown in Fig. 5. It can be seen from all these figures * - * * - ******************************* - 19 - ******************************** -1*********************************************************************** - * * - * these figures that there is a large spread in shape for the dif- * - * ferent sets in all contributions leading to different results in * - * the cross section calculations. It should be pointed out that the * - * spread from the different parametrisations in the SAME renormali- * - * sation scheme is MUCH LARGER than the spread from parametrisations * - * in different renormalisation schemes. This is true for ALL parton * - * densities, and in particular at small X values ! * - * * - * A comparison to recent data is shown in Fig. 6, where the ratio * - * F_2(n)/F_2(p) at Q**2 = m_W**2 is displayed. This ratio mainly re- * - * flects the d/u ratio of valence quarks which is the dominant un- * - * certainty of the W and Z boson cross section ratio in pp or pp_bar * - * reactions at lower energies. In fact, the older sets of structure * - * functions, namely the set of Owens and Reya [2] and the set of * - * Baier et al. [3] have only been implemented for completeness. * - * These sets should not be used for cross section calculations of * - * any hard processes at high energies anymore. From Fig. 6 we con- * - * clude that also the other older sets of structure functions, * - * namely the two sets of Duke and Owens [5] and the two sets of * - * Eichten et al. [6] should be used with some care, because they do * - * not fit the recent low energy deep-inelastic lepton-nucleon data * - * from NMC and BCDMS [34]. This is not surprising because these data * - * were not available when the sets have been made. The new set of * - * DO 1.1 superseeds the old DO sets 1 and 2 but still gives very * - * limited results in the low X region, even though data are avai- * - * lable there. (Please note that the last data point at the lowest * - * X value shown in Fig. 6 is out of range in Q**2 for all sets of * - * structure functions and that the point before last is very much at * - * the limit of the allowed range). * - * * - * In Fig. 7 the F_2(p) distribution of the recent data from Ref. * - * [35] at Q**2 = 5 GeV**2, together with the very recent data at * - * Q**2 = 15 GeV**2 from the H1 and the ZEUS experiments [36] at the * - * the ep-collider HERA is shown as a function of X. Overlayed on the * - * same Figure are a few theoretical predictions of more recent par- * - * ton parametrisations [12,13,14,15,16,20] at Q**2 = 15 GeV**2. * - * Please note that most of these parametrisations are NOT real pre- * - * dictions because the data are fully or partially used in the fits. * - * Apart from Ref. [13] set B2, from Ref. [14] set HO, from Ref. [16] * - * set D-' and (H) and from Ref. [20] the new set 2pM, most of these * - * more recent parametrisations fail to describe well enough the low * - * X behaviour of the present data. * - * * - * From Figs. 6 and 7 we conclude that the recent sets of parton * - * densities, nameley the GRV set HO [14], but also the old MT set * - * B2 [13] - both sets are real predictions -, and the updated MRS * - * set (H) [16], could be preferred for all theoretical predictions * - * involving structure functions, because they fit the present data * - * best which, at the moment, still suffer from large uncertainties. * - * * - * As an example, the u_bar, strange and gluon densities for the * - * different sets of structure functions of the PHOTON are shown in * - * Figs. 7, 8 and 9 of the Long Write-up, respectively, as a function * - * of X at the scale Q**2 = 100 (GeV/c)**2. In Fig. 10 a comparison * - * of F_2(gamma)/alpha(QED) as a function of X at Q**2 = 100 (GeV/c)**2 - * for the different photon structure function sets is made. The * - * * - ******************************* - 20 - ******************************** -1*********************************************************************** - * * - * charm quark density has been taken into account. The theoretical * - * predictions are compared with experimental data from the JADE * - * experiment [37] at the same Q**2 value. Because of the large * - * experimental uncertainties no distinction between the * - * different parton density sets can be made yet. * - * * - * Coming new sets of structure functions could and should be * - * easily implemented in this package. Authors of new sets are kindly * - * requested to provide us with the relevant information. * - * * - * Please return any problems, questions, suggestions for im- * - * provements to the author of the package * - * (e-mail address: PLOTHOW@CERNVM.CERN.CH). * - * * - * Requests for the Long Write-up of the User's Manual can be ad- * - * dressed either to the author or to the CERN Program Library Office.* - * * - * * - * * - * * - * * - * * - * 5. Acknowledgements * - * * - * * - * The author of the package would like to thank * - * M.A. Marquina/CERN-CN for help and support making this package * - * available to the Physics community as part of the CERN Program * - * Library. In addition we give many thanks to G. Folger/CERN-CN and * - * I. McLaren/CERN-CN for thoroughly testing out the package on the * - * different system areas. * - * * - * We also would like to thank J.M. Marraffino/FNAL for the help- * - * ful comments and the correction set which he supplied. * - * * - * And finally we acknowledge K. Charchula/DESY who provided the * - * source code of some of the photon structure functions which had * - * previously been implemented in the package. * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - ******************************* - 21 - ******************************** -1*********************************************************************** - * * - * Appendix A * - * * - * * - * As an example how to use the package, the FORTRAN code to ob- * - * tain Fig. 1 of the Long Write-up which shows the parton density * - * function distributions for the up valence quark as a function of * - * the parton X for all sets of structure functions is given below: * - * * - * PROGRAM PDFUPV * - * C define the maximum number of PDF sets, the name and the cross reference - * PARAMETER (NPTYMX = 3, NGRMAX = 8, NSETMX = 41) * - * COMMON /W505120/ NPGSMX(NPTYMX,NGRMAX),NSETFL(NPTYMX,NGRMAX,NSETMX) - * CHARACTER*8 SFNAME(NPTYMX,NGRMAX,NSETMX) * - * COMMON /W505110/ SFNAME * - * COMMON /W505122/ MODECR(NPTYMX,NGRMAX,NSETMX) * - * C define HBOOK settings * - * PARAMETER (NHBMEM = 500000) * - * COMMON /PAWC/ HMEM(NHBMEM) * - * PARAMETER (NB=900, ID=100) * - * C define DOUBLE PRECISION variables for calling sequence to STRUCTM - * DOUBLE PRECISION DX,DSCALE,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL - * DOUBLE PRECISION ALF,ALPHAS2 * - * REAL X, SCALE, UPV, DNV, USEA, DSEA, STR, CHM, BOT, TOP, GL * - * COMMON/W50516/ FIRST * - * LOGICAL FIRST * - * CHARACTER*20 PARM(20) * - * DOUBLE PRECISION VAL(20) * - * DATA SCALE/80.140/ * - * DATA X00/0.002/,DX0/0.001/,XLOW/0.0015/,XUP/0.9015/ * - * C * - * CALL HLIMIT(NHBMEM) * - * DSCALE=SCALE * - * C first call to PDFSET to initialize COMMON/W505120/ * - * PARM(1) = 'Init0' * - * VAL(1) = 0.D0 * - * CALL PDFSET(PARM,VAL) * - * C loop over all existing sets of Nucleon structure functions (SF) * - * NPTYPE = 1 * - * NHB = 0 * - * DO 20 IGR = 1,NGRMAX * - * IF(NPGSMX(NPTYPE,IGR).EQ.0) GOTO 20 * - * DO ISET = 1,NPGSMX(NPTYPE,IGR) * - * C book histograms for each set of SF separately * - * NHB = NHB + 1 * - * CALL HBOOK1(ID+NHB,'U Valence quark ',NB,XLOW,XUP,0.) * - * C force label printing for each set of SF (not only the 1st) * - * FIRST = .TRUE. * - * C define and set parameters * - * PARM(1) = 'Nptype' * - * VAL(1) = NPTYPE * - * PARM(2) = 'Ngroup' * - * VAL(2) = IGR * - * PARM(3) = 'Nset' * - * VAL(3) = ISET * - * CALL PDFSET(PARM,VAL) * - * * - * * - ******************************* - 22 - ******************************** -1*********************************************************************** - * * - * Example of Fig. 1, cont'd * - * * - * C loop over all X bins * - * DO 10 I=1,NB * - * X = X00 + (I-1)*DX0 * - * DX = X * - * IF(X.LT.XLOW .OR. X.GT.XUP) GOTO 10 * - * CALL STRUCTM(DX,DSCALE,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - * UPV=DUPV * - * IF(X.GT.0.499 .AND. X.LE.0.500) WRITE(6,1000) X,SCALE,UPV * - * 1000 FORMAT(/,' X= ',F6.4,' Q= ',F6.3,' UPV= ',8.4) * - * CALL HF1(ID+NHB,X,UPV) * - * 10 CONTINUE * - * C get alpha(s) for selected set of SF at Q = SCALE * - * ALF = ALPHAS2(DSCALE) * - * WRITE(6,4000) NPTYPE,IGR,ISET,SFNAME(NPTYPE,IGR,ISET), * - * + MODECR(NPTYPE,IGR,ISET),NSF * - * WRITE(6,4001) DSCALE,ALF * - * 4000 FORMAT(/,' Nptype = ',I1,' Ngroup = ',I1,' Nset = ',I2, * - * + ' Name = "'A8,'" CrMode = ',I3,' HBId = ',I3) * - * 4001 FORMAT(1H ,' SCALE = ',F8.4,' alpha(s) = ',F6 * - * C get error summary for each set of SF * - * CALL PDFSTA * - * ENDDO * - * 20 CONTINUE * - * STOP * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - ******************************* - 23 - ******************************** -1*********************************************************************** - * * - * This code will produce the following output: * - * * - * * - * 1. HBOOK Output : * - * * - * one histogram for each set of structure functions. The histo- * - * gram output has then been accessed, and each histogram has been * - * superimposed on one single frame using the PAW package [38] to * - * obtain Fig. 1 of the Long Write-up. * - * * - * * - * 2. Print Output (Example is given for NPTYPE = 1, * - * NGROUP = 3, NSET = 41 only : * - * * - * ___________________________________________________________________ * - *| |* - *| 1***** PDFLIB Version: 6.06 Released on 950315 at 17.05 in |* - *| the CERN Program Library W5051 ***** |* - *| ***** Library compiled on 950315 at 2337 ***** |* - *| |* - *| Nucleon PDFs: Ngroup = 3, Nset = 41, for MRS Set (G) (L255-MSb)|* - *| ------------------------------------------------------------------|* - *| Structure Functions |* - *| ------------------- |* - *| |* - *| X= 0.5000 Q= 80.140 UPV= 0.1176 |* - *| |* - *| Nptype = 1 Ngroup = 3 Nset = 41 Name = "MRS-G " CrMode = -1 HBId = 60 - *| Scale = 80.1400 alpha(s) = 0.1154 |* - *| |* - *| PDFLIB : Summary from PDFSTA |* - *| Nptype = 1 Ngroup = 3 Nset = 41 Name = "MRS-G " CrMode = -1|* - *| Nfl = -5 LO = 2 Tmas = 180.00 GeV/c**2 |* - *| QCDL4 = 0.2550 GeV, QCDL5 = 0.1708 GeV |* - *| Xmin = 0.10E-04, Xmax = 0.99999E+00, Q2min = 5.000 (GeV/c)**2, - *| Q2max = 0.27E+10 (GeV/c)**2 |* - *| |* - *| PDFSTA: NO errors occured |* - *|___________________________________________________________________|* - * * - * * - * Apart from the two top lines the print output shown above is * - * repeated for each set of structure functions. * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - ******************************* - 24 - ******************************** -1*********************************************************************** - * * - * Appendix B * - * * - * * - * A list of subroutines, functions, COMMON blocks and parameters * - * of RELEVANCE to the user which are used in PDFLIB is given below: * - * * - * * - * List of relevant subprograms and COMMON blocks in PDFLIB: * - * * - * _________________________________________________________________ * - * | | * - * | (S = Subroutine, F = Function, C = COMMON, P = Parameter) | * - * | | * - * | ------------------------------------------------------------- | * - * | | * - * | S PDFSET : to set all parameters for PDFLIB | * - * | S STRUCTF : to access PDFLIB with output in PDFLIB format | * - * | S STRUCTM : to access PDFLIB with output in PDFLIB format | * - * | (with u_bar not equal to d_bar) | * - * | S PFTOPDG : to access PDFLIB with output in PDG format | * - * | S PDFSTA : to print summary of parameters and error statistics - * | F ALPHAS2 : to calculate alpha(s) to second order QCD | * - * | | * - * | C W50510 : IFLPRT - to set print flag | * - * | C W50511 : NPTYPE,NGROUP,NSET,MODE,NFL,LO,TMAS | * - * | - to select a structure function set, to | * - * | define number of flavours, flag for leading | * - * | order and value for the mass of the top quark | * - * | C W50512 : QCDL4,QCDL5 - contains Lambda_4(QCD) and | * - * | Lambda_5(QCD) (in GeV) | * - * | C W50513 : XMIN,XMAX,Q2MIN,Q2MAX - contains minimum and | * - * | maximum values of X and Q**2 | * - * | C W50516 : FIRST - to force printing name of structure | * - * | function set in case of multiple choices | * - * | C W50519 : NEWVER - flags NEW/OLD version of PDFLIB format| * - * | C W505110 : SFNAME - contains NAME (CHARACTER*8 array with | * - * | dimension SFNAME(NPTYMX,NGRMAX,NSETMX)) for | * - * | each set of PDFs | * - * | C W505120 : NPGSMX(NPTYMX,NGRMAX),NSETFL(NPTYMX,NGRMAX,NSETMX)* - * | - contains maximum number of stucture functions| * - * | per particle type and author group, and FLAG | * - * | for retracted PDF set (NSETFL(I,J,K) = 0), | * - * | C W505121 : NPTYCR(MODEMX),NGROCR(MODEMX),NSETCR(MODEMX) | * - * | - cross reference to the NPTYPE, NGROUP and | * - * | NSET value (NEW format) for a given MODE | * - * | value (OLD format) | * - * | C W505122 : MODECR(NPTYMX,NGRMAX,NSETMX) - cross reference | * - * | to the MODE value (OLD format) for a given | * - * | NPTYPE, NGROUP and NSET value (NEW format) | * - * | P W5051P2 : MODEMX - maximum number of structure function | * - * | sets in the OLD PDFLIB format | * - * | : NPTYMX,NGRMAX,NSETMX - maximum number of | * - * | structure function sets in the NEW PDFLIB | * - * | format for particle type, author group number | * - * | and number of sets within an author group | * - * | P W5051P7 : L6 - to define logical print unit number | * - * |_______________________________________________________________| * - ******************************* - 25 - ******************************** -1*********************************************************************** - * * - * Appendix C * - * * - * * - * A complete list of subroutines, functions, COMMON blocks and * - * parameters which are used in PDFLIB is given below: * - * * - * * - * Complete list of subprograms and COMMON blocks in PDFLIB: * - * (in alphabetical order) * - * * - * _________________________________________________________________ * - * | | * - * | (S = Subroutine, F = Function, C = COMMON, P = Parameter) | * - * | | * - * | ------------------------------------------------------------- | * - * | | * - * | S ABFKW1 : ABFKW SF set 1 in the pion (NP=2,NG=6,NS=1) | * - * | S ABFKW2 : ABFKW SF set 2 in the pion (NP=2,NG=6,NS=2) | * - * | S ABFKW3 : ABFKW SF set 3 in the pion (NP=2,NG=6,NS=3) | * - * | S ACFGP1 : ACFGP SF set 1 in the photon (NP=3,NG=6,NS=1) | * - * | S ACFGP2 : ACFGP SF set 1 in the photon (mc) (NP=3,NG=6,NS=2)* - * | F AFCPLU : to get PD with massive charm for ACFGP | * - * | F AFGETFV : to interpolate PDs in grid for ACFGP | * - * | F AFPOLIN : to interpolate PDs in grid for ACFGP | * - * | F AFRATIN : to interpolate PDs in grid for ACFGP | * - * | F ALPHAS2 : to calculate alpha(s) to second order QCD | * - * | F AUGETFV : to interpolate logarithmically PDs in grid | * - * | S AURGAM : to get the PDs in the photon for ACFGP-G | * - * | S AURPI1 : to get the PDs in the pion for ABFKW-P set 1 | * - * | S AURPI2 : to get the PDs in the pion for ABFKW-P set 2 | * - * | S AURPI3 : to get the PDs in the pion for ABFKW-P set 3 | * - * | S AURPR : to get the PDs in the nucleon for ABFOW | * - * | F BBETA : DOUBLE PRECISION beta function using DGAMMA | * - * | F BETA : SINGLE PRECISION beta function using GAMMA | * - * | S BXF3 : BEP SF set for up and down valence quarks | * - * | S BXGLUE : BEP SF set for gluons | * - * | S BXQBAR : BEP SF set for antiquarks | * - * | F CTQ1PD : CTEQ SF sets 1M, 1MS, 1ML, 1D and 1L | * - * | F CTQ1PF : Description of CTEQ sets 1M, 1MS, 1ML, 1D, 1L | * - * | F CTQ2OPD : CTEQ SF sets 2M, 2MS, 2ML, 2D and 2L | * - * | F CTQ2OPF : Description of CTEQ sets 2M, 2MS, 2ML, 2D, 2L | * - * | S CTQ2OPS : CTEQ SF sets 2M, 2MS, 2ML, 2D and 2L | * - * | F CTQ2PPD : CTEQ SF sets 2pM, 2pMS, 2pML, 2pD and 2pL | * - * | F CTQ2PPF : Description of CTEQ sets 2pM, 2pMS, 2pML, 2pD, 2pL* - * | S CTQ2PPS : CTEQ SF sets 2pM, 2pMS, 2pML, 2pD and 2pL | * - * | F DBFINT : to interpolate linearly PDs in grid (double precision) - * | S DFLM1 : interface to DFLM 160 (NP=1,NG=2,NS=7) | * - * | S DFLM2 : interface to DFLM 260 (NP=1,NG=2,NS=8) | * - * | S DFLM3 : interface to DFLM 360 (NP=1,NG=2,NS=9) | * - * | S DFLM4 : interface to DFLM soft valence quarks (NP=1,NG=2,NS=1) - * | S DFLM5 : interface to DFLM hard valence quarks (NP=1,NG=2,NS=2) - * | S DFLM6 : interface to DFLM soft gluons (NP=1,NG=2,NS=3) | * - * | S DFLM7 : interface to DFLM hard gluons (NP=1,NG=2,NS=4) | * - * | S DFLM8 : interface to DFLM LO average fit (NP=1,NG=2,NS=5) * - * | S DFLM9 : interface to DFLM NLL average fit (NP=1,NG=2,NS=6)* - * | S DGPHO1 : DG SF set 1 in the photon (NP=3,NG=2,NS=1) | * - * |_______________________________________________________________| * - ******************************* - 26 - ******************************** -1*********************************************************************** - * _________________________________________________________________ * - * | Complete list of subprograms, cont'd | * - * | | * - * | S DGPHO2 : DG SF set 2 in the photon (NP=3,NG=2,NS=2) | * - * | S DGPHO3 : DG SF set 3 in the photon (NP=3,NG=2,NS=3) | * - * | S DGPHO4 : DG SF set 4 in the photon (NP=3,NG=2,NS=4) | * - * | S DOPHO1 : DO SF set 1 in the photon (NP=3,NG=1,NS=1) | * - * | S DOPHO2 : DO SF set 2 in the photon (NP=3,NG=1,NS=2) | * - * | S FXAVER : DFLM SF set of LO central average fit | * - * | S FXG160 : DFLM SF set of NLL with QCDL4 = 160 | * - * | S FXG260 : DFLM SF set of NLL with QCDL4 = 260 | * - * | S FXG360 : DFLM SF set of NLL with QCDL4 = 360 | * - * | S FXGHAR : DFLM SF set of LO hard gluon | * - * | S FXGSOF : DFLM SF set of LO soft gluon | * - * | S FXNLLA : DFLM SF set of NLL central average fit | * - * | S FXVHAR : DFLM SF set of LO hard valence | * - * | S FXVSOF : DFLM SF set of LO soft valence | * - * | F GAMFUN : to calculate GAMMA funct. in either SP or DP prec.* - * | F GAMMADO : to calculate GAMMA funct. in SP (Hastings) | * - * | F GHRDV : GHR SF set for down quarks | * - * | F GHRGL : GHR SF set for gluons | * - * | F GHRUV : GHR SF set for up quarks | * - * | F GHRXI : GHR SF set for antiquarks | * - * | F GHRXS : GHR SF set for strange quarks | * - * | F GRVFGP : GRV SF set for gluons in the pion | * - * | F GRVFQBP : GRV SF set for s, c and b quarks in the pion | * - * | F GRVFV : GRV SF set for up + down valence quarks | * - * | F GRVFVP : GRV SF set for valence quarks in the pion | * - * | F GRVFW : GRV SF set for antiquarks and gluons | * - * | F GRVFWS : GRV SF set for strange, charm and bottom quarks| * - * | S GRVGAH0 : GRV SF set lead. terms of NLL in the photon (NP=3,NG=5,NS=1 - * | S GRVGAHO : GRV SF set of NLL in the photon (NP=3,NG=5,NS=2) * - * | S GRVGALO : GRV SF set of LO in the photon (NP=3,NG=5,NS=3)| * - * | F GRVGF : GRV SF set for u and d quarks and gluons in the photon - * | F GRVGFS : GRV SF set for s, c and b quarks in the photon | * - * | S GRVHO : GRV SF set of NLL (NP=1,NG=5,NS=3) | * - * | S GRVLO : GRV SF set of LO (NP=1,NG=5,NS=4) | * - * | S GRVPIHO : GRV SF set of NLL in the pion (NP=2,NG=5,NS=1) | * - * | S GRVPILO : GRV SF set of LO in the pion (NP=2,NG=5,NS=2) | * - * | S GSXCOR : to get X coordinates for SFGSHO + LO sets 1, 2 | * - * | S HMRS1EB : Description of HMRS sets E, B (1.90-retracted) | * - * | S HMRS2EB : Description of HMRS sets E, B (3.90) | * - * | S HMRS3EB : Description of HMRS sets E, B (4.90) | * - * | S HMRSGEB : Description of HMRS sets E, E+, E- and B | * - * | S KMRSEB : Description of KMRS sets E and B | * - * | S KMRSGEB : Description of KMRS B0 with L=135,160,200,235 | * - * | S MRSDSHP : Description of MRS sets D0', S0', D-', (H) | * - * | S MRSEB : Description of MRS sets E and B | * - * | S MRSEBP : Description of MRS sets E' and B' | * - * | S NEWDO1 : DO SF set 1.1 (NP=1,NG=1,NS=10) | * - * | S PDFSET : to set all parameters for PDFLIB | * - * | S PDFSTA : to print summary of param. and error statistics| * - * | S PDFVERS : to get date and time of PDFLIB Library release | * - * | F PDXMT : Description of MT sets 1 to 11 | * - * | S PDZXMT : MT SF sets 1 to 11 | * - * | S PFTOPDG : to access PDFLIB with output in PDG format | * - * | S PHLAC1 : interface to LAC-G set 1 in the photon | * - * |_______________________________________________________________| * - ******************************* - 27 - ******************************** -1*********************************************************************** - * _________________________________________________________________ * - * | Complete list of subprograms, cont'd | * - * | | * - * | S PHLAC2 : interface to LAC-G set 2 in the photon | * - * | S PHLAC3 : interface to LAC-G set 3 in the photon | * - * | S RXDV : OR SF set for down valence quarks | * - * | S RXGLUE : OR SF set for gluons | * - * | S RXQBAR : OR SF set for antiquarks | * - * | S RXUD : OR SF set for the sum of up + down quarks | * - * | S SEADIS : BEBC SF set for antiquarks | * - * | S SFABFOW : ABFOW SF set (NP=1,NG=6,NS=1) | * - * | S SFBMA : BM SF set A (NP=1,NG=7,NS=1) | * - * | S SFBMB : BM SF set B (NP=1,NG=7,NS=2) | * - * | S SFCTQ11 : CTEQ SF set 1L (LO) (NP=1,NG=4,NS=12) | * - * | S SFCTQ12 : CTEQ SF set 1M (NP=1,NG=4,NS=13) | * - * | S SFCTQ13 : CTEQ SF set 1MS (NP=1,NG=4,NS=14) | * - * | S SFCTQ14 : CTEQ SF set 1ML (NP=1,NG=4,NS=15) | * - * | S SFCTQ15 : CTEQ SF set 1D (NP=1,NG=4,NS=16) | * - * | S SFCTQ21 : CTEQ SF set 2L (LO) (NP=1,NG=4,NS=17) | * - * | S SFCTQ22 : CTEQ SF set 2M (NP=1,NG=4,NS=18) | * - * | S SFCTQ23 : CTEQ SF set 2MS (NP=1,NG=4,NS=19) | * - * | S SFCTQ24 : CTEQ SF set 2MF (NP=1,NG=4,NS=20) | * - * | S SFCTQ25 : CTEQ SF set 2ML (NP=1,NG=4,NS=21) | * - * | S SFCTQ26 : CTEQ SF set 2D (NP=1,NG=4,NS=22) | * - * | S SFDISD0 : MRS SF set D0' (DIS) (NP=1,NG=3,NS=33) | * - * | S SFDISDM : MRS SF set D-' (DIS) (NP=1,NG=3,NS=34) | * - * | S SFDISH : MRS SF set (H) (NP=1,NG=3,NS=36) | * - * | S SFDISS0 : MRS SF set S0' (DIS) (NP=1,NG=3,NS=32) | * - * | S SFEHLQ1 : EHLQ SF set 1 (NP=1,NG=1,NS=8) | * - * | S SFEHLQ2 : EHLQ SF set 2 (NP=1,NG=1,NS=9) | * - * | S SFGRVH : old GRV SF set of NLL (NP=1,NG=5,NS=1) | * - * | S SFGRVL : old GRV SF set of LO (NP=1,NG=5,NS=2) | * - * | S SFGSHO : GS SF set of NLL in the photon (NP=3,NG=4,NS=1)| * - * | S SFGSLO1 : GS SF set 1 of LO in the photon (NP=3,NG=4,NS=2) * - * | S SFGSLO2 : GS SF set 2 of LO in the photon (NP=3,NG=4,NS=3) * - * | S SFKBMR2 : KMRS SF set B- with R2 shadowing (NP=1,NG=3,NS=19)* - * | S SFKBMR5 : KMRS SF set B- with R5 shadowing (NP=1,NG=3,NS=20)* - * | S SFLACG1 : LAC SF set 1 in the photon (NP=3,NG=3,NS=1) | * - * | S SFLACG2 : LAC SF set 2 in the photon (NP=3,NG=3,NS=2) | * - * | S SFLACG3 : LAC SF set 3 in the photon (NP=3,NG=3,NS=3) | * - * | S SFMRSD0 : MRS SF set D0 (NP=1,NG=3,NS=27) | * - * | S SFMRSDM : MRS SF set D- (NP=1,NG=3,NS=28) | * - * | S SFMRSS0 : MRS SF set S0 (NP=1,NG=3,NS=26) | * - * | S SFMSBB0 : MRS SF set B0' (NP=1,NG=3,NS= | * - * | S SFMSBD0 : MRS SF set D0' (NP=1,NG=3.NS=30) | * - * | S SFMSBDM : MRS SF set D-' (NP=1,NG=3,NS=31) | * - * | S SFMSBH : MRS SF set (H) (NP=1,NG=3,NS=35) | * - * | S SFMSBS0 : MRS SF set S0' (NP=1,NG=3,NS=29) | * - * | S SFMT10 : interface to MT set 6 (MS_bar) | * - * | S SFMT11 : interface to MT set LO | * - * | S SFMTU1 : interface to MT set S1 (DIS) | * - * | S SFMTU2 : interface to MT set B1 (DIS) | * - * | S SFMTU3 : interface to MT set B2 (DIS) | * - * | S SFMTU4 : interface to MT set E1 (DIS) | * - * | S SFMTU5 : interface to MT set 6 (u_bar + d_bar)/2 (DIS) | * - * | S SFMTU6 : interface to MT set S1 (MS_bar) | * - * | S SFMTU7 : interface to MT set B1 (MS_bar) | * - * |_______________________________________________________________| * - ******************************* - 28 - ******************************** -1*********************************************************************** - * _________________________________________________________________ * - * | Complete list of subprograms, cont'd | * - * | | * - * | S SFMTU8 : interface to MT set B2 (MS_bar) | * - * | S SFMTU9 : interface to MT set E1 (MS_bar) | * - * | S SMRSP31 : SMRS SF set 1 in the pion (NP=2,NG=3,NS=1) | * - * | S SMRSP32 : SMRS SF set 2 in the pion (NP=2,NG=3,NS=2) | * - * | S SMRSP33 : SMRS SF set 3 in the pion (NP=2,NG=3,NS=3) | * - * | S SMRSPI : Description of SMRS sets 1, 2, 3 in the pion | * - * | S SRCTQ21 : CTEQ SF set 2pL (LO) (NP=1,NG=4,NS=23) | * - * | S SRCTQ22 : CTEQ SF set 2pM (NP=1,NG=4,NS=24) | * - * | S SRCTQ23 : CTEQ SF set 2pMS (NP=1,NG=4,NS=25) | * - * | S SRCTQ24 : CTEQ SF set 2pMF (NP=1,NG=4,NS=26) | * - * | S SRCTQ25 : CTEQ SF set 2pML (NP=1,NG=4,NS=27) | * - * | S SRCTQ26 : CTEQ SF set 2pD (NP=1,NG=4,NS=28) | * - * | S STRBEBC : BEBC SF set (NP=1,NG=1,NS=2) | * - * | S STRBEP : BEP SF set (NP=1,NG=1,NS=4) | * - * | S STRCBP : MRS SF set B' (NP=1,NG=3,NS=7) | * - * | S STRCEP : MRS SF set E' (NP=1,NG=3,NS=6) | * - * | S STRDO1 : DO SF set 1 (NP=1,NG=1,NS=6) | * - * | S STRDO2 : DO SF set 2 (NP=1,NG=1,NS=7) | * - * | S STRGHR : GHR SF set (NP=1,NG=1,NS=5) | * - * | S STRH1B : HMRS SF set B (NP=1,NG=3,NS=9 - retracted) | * - * | S STRH1E : HMRS SF set E (NP=1,NG=3,NS=8 - retracted) | * - * | S STRH2B : HMRS SF set B (NP=1,NG=3,NS=11) | * - * | S STRH2E : HMRS SF set E (NP=1,NG=3,NS=10) | * - * | S STRH3B : HMRS SF set B (NP=1,NG=3,NS=15) | * - * | S STRH3B1 : HMRS SF set B - L=100 (NP=1,NG=3,NS=16) | * - * | S STRH3B3 : HMRS SF set B - L=300 (NP=1,NG=3,NS=17) | * - * | S STRH3E : HMRS SF set E (NP=1,NG=3,NS=14) | * - * | S STRH3EM : HMRS SF set E- (NP=1,NG=3,NS=13) | * - * | S STRH3EP : HMRS SF set E+ (NP=1,NG=3,NS=12) | * - * | S STRKB0 : KMRS SF set B0 (NP=1,NG=3,NS=21), updated version * - * | S STRKB02 : KMRS SF set B0 - L=135 (NP=1,NG=3,NS=22) | * - * | S STRKB03 : KMRS SF set B0 - L=160 (NP=1,NG=3,NS=23) | * - * | S STRKB04 : KMRS SF set B0 - L=200 (NP=1,NG=3,NS=24) | * - * | S STRKB05 : KMRS SF set B0 - L=235 (NP=1,NG=3,NS=25) | * - * | S STRKB0O : KMRS SF set B0 (old version) | * - * | S STRKBM : KMRS SF set B- (NP=1,NG=3,NS=18) | * - * | S STRMRS1 : MRS SF set 1 (NP=1,NG=3,NS=1) | * - * | S STRMRS2 : MRS SF set 2 (NP=1,NG=3,NS=2) | * - * | S STRMRS3 : MRS SF set 3 (NP=1,NG=3,NS=3) | * - * | S STROWP1 : OW SF set 1 in the pion (NP=2,NG=1,NS=1) | * - * | S STROWP2 : OW SF set 2 in the pion (NP=2,NG=1,NS=2) | * - * | S STRPRIV : Dummy subroutine for a new set of SF | * - * | S STRUCB : MRS SF set B (NP=1,NG=3,NS=4) | * - * | S STRUCE : MRS SF set E (NP=1,NG=3,NS=5) | * - * | S STRUCOR : OR SF set (NP=1,NG=1,NS=3) | * - * | S STRUCTF : to access PDFLIB with output in PDFLIB format | * - * | S STRUCTM : to access PDFLIB with output in PDFLIB format | * - * | TESTGAM : main program to test PDFLIB for photons | * - * | TESTGAMO : main program to test PDFLIB for photons (OLD) | * - * | TESTPDF : main program to test PDFLIB in PDFLIB format | * - * | TESTPDFO : main program to test PDFLIB in PDFLIB format (OLD)* - * | TESTPDG : main program to test PDFLIB in PDG format | * - * | TESTPDGO : main program to test PDFLIB in PDG format (OLD)| * - * | TMAINUPV : main program to show how to use the package | * - * |_______________________________________________________________| * - ******************************* - 29 - ******************************** -1*********************************************************************** - * _________________________________________________________________ * - * | Complete list of subprograms, cont'd | * - * | | * - * | TMAINUPVO: main program to show how to use the package (OLD) * - * | F V3 : BEBC SF set to calculate X * VALDIS | * - * | S VALDIS : BEBC SF set for up + down valence quarks | * - * | S VLAMBD : Entry in PDZXMT to get Lambda value for MT sets| * - * | S WATE32 : defines 32 point Gaussian quadrature routine | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * |_______________________________________________________________| * - ******************************* - 30 - ******************************** -1*********************************************************************** - * _________________________________________________________________ * - * | Complete list of subprograms, cont'd | * - * | | * - * | C W50510 : IFLPRT - to set print flag | * - * | C W50511 : NPTYPE,NGROUP,NSET,MODE,NFL,LO,TMAS - | * - * | to select structure function set, to define | * - * | number of flavours, flag for leading order | * - * | and value for the mass of the top quark | * - * | C W50512 : QCDL4,QCDL5 - contains Lambda_4(QCD) and | * - * | Lambda_5(QCD) (in GeV) | * - * | C W50513 : XMIN,XMAX.Q2MIN,Q2MAX - contains minimum | * - * | and maximum values of X and Q**2 | * - * | C W50514 : WXMIN,WXMAX,WQ2MIN,WQ2MAX,WTXMIN,WTXMAX,WQ2MIN,| * - * | WQ2MAX - error counting for fractional and | * - * | total number of X and Q**2 | * - * | C W50514W : PDFWGT - to transmit user filled event weight | * - * | C W50515 : IFLSET,IFLSTA - to transmit flag for call to | * - * | subroutine PDFSET or PDFSTA | * - * | C W50516 : FIRST - to force printing name of structure | * - * | function set in case of multiple choices | * - * | C W50517 : N6 - contains logical print unit number | * - * | C W50518 : save of COMMONs W50510, W50511, W50512, W50513 | * - * | C W50519 : NEWVER - to flag NEW or OLD version of PDFLIB | * - * | format | * - * | C W505110 : SFNAME - contains NAME (CHARACTER*8 array with | * - * | dimension SFNAME(NPTYMX,NGRMAX,NSETMX)) for | * - * | each set of PDFs | * - * | C W505120 : NPGSMX(NPTYMX,NGRMAX),NSETFL(NPTYMX,NGRMAX,NSETMX)* - * | - to provide the actual maximum number of stuc-| * - * | ture function sets per particle type and author| * - * | group, NSETFL(I,J,K) = 0 for retracted PDF set | * - * | C W505121 : NPTYCR(MODEMX),NGROCR(MODEMX),NSETCR(MODEMX) | * - * | - to provide the cross reference to the | * - * | NPTYPE, NGROUP and NSET value (NEW format) for | * - * | a given MODE value (OLD format) | * - * | C W505122 : MODECR(NPTYMX,NGRMAX,NSETMX) - to provide the | * - * | cross reference to the MODE value (OLD format) | * - * | for a given NPTYPE, NGROUP and NSET value | * - * | (NEW format) | * - * | P W5051P0 : LFLPRT - to define print level (D=0) | * - * | P W5051P1 : LPTYPE,LGROUP,LNSET,IFL,LORD,TM - to define | * - * | the defaults for a PDF set given by the | * - * | particle type, author group and number of set | * - * | within an author group, defaults for number of | * - * | flavours, leading order flag and mass of the | * - * | top quark (D=1, 5, 3, 5, 2, 100.D0) | * - * | P W5051P2 : MODEMX - maximum number of structure function | * - * | sets in the OLD PDFLIB format | * - * | : NPTYMX,NGRMAX,NSETMX - maximum number of | * - * | structure function sets in the NEW PDFLIB | * - * | format for particle type, author group number | * - * | and number of sets within an author group | * - * | P W5051P2 : MODEMX - to define maximum number of SF sets | * - * | in PDFLIB (OLD format) (D=281) | * - * | P W5051P7 : L6 - to define logical print unit number (D=6) | * - * | P W5051P7 : L6 - to define logical print unit number | * - * | W50511C : Comments only - complete list of available SFs | * - * |_______________________________________________________________| * - ******************************* - 31 - ******************************** -1*********************************************************************** - * * - * References * - * * - * * - * [1] A.J.Buras and K.J.F. Gaemers : Nucl. Phys. B132 (1978) 249; * - * BEBC WA 59 Collaboration, K. Varnell et al., Z. Phys. C36 (1987) 1. - * * - * [2] J.F.Owens and E. Reya : Phys. Rev. D17 (1978) 3003. * - * * - * [3] R. Baier, J. Engels and B. Petersson : Z. Phys. C2 (1979) 265. * - * * - * [4] Gl"uck, E. Hoffman and E. Reya : Z. Phys. C13 (1982) 119. * - * * - * [5] D.W. Duke and J.F.Owens : Phys. Rev. D30 (1984) 49. * - * * - * [6] E. Eichten, I Hinchliffe, K. Lane and C. Quigg : * - * Rev. Mod. Phys. 56 (1984) 579 and Rev. Mod. Phys. 58 (1985) 1065. - * * - * [7] M. Diemoz, F. Ferroni, E. Longo and G. Martinelli : * - * Z. Phys. C39 (1988) 21. * - * * - * [8] J.F.Owens : Phys. Lett. 266B (1991) 126. * - * * - * [9] A.D. Martin, R.G. Roberts and W.J. Stirling : Phys.Rev. D37 (1988) 1161; - * Phys. Lett. 206B (1988) 327 and Mod. Phys. Lett. A4 (1989) 1135. - * * - * [10] P.N. Harriman, A.D. Martin, R.G. Roberts and W.J. Stirling : * - * Phys. Rev. D42 (1990) 798 and Phys. Lett. 243B (1990) 421. * - * * - * [11] J. Kwiecinski, A.D. Martin, R.G. Roberts and W.J. Stirling : * - * Phys. Rev. D42 (1990) 3645; * - * A.D. Martin, R.G. Roberts and W.J. Stirling : * - * Phys. Rev. D43 (1991) 3648. * - * * - * [12] A.D. Martin, R.G. Roberts and W.J. Stirling : * - * Phys. Rev. D47 (1993) 867. * - * * - * [13] J. Morfin and W.K. Tung : Z. Phys. C52 (1991) 13. * - * * - * [14] M. Gl"uck, E. Reya and A. Vogt : Z. Phys. C48 (1990) 471; * - * Z. Phys. C53 (1992) 127 and Phys. Lett. 306B (1993) 391. * - * * - * [15] P. Aurenche et al. : Phys. Rev. D39 (1989) 3275. * - * * - * [16] A.D. Martin, R.G. Roberts and W.J. Stirling : * - * Phys. Lett. 306B (1993) 145 and Phys. Lett. 309B (1993) 492. * - * * - * [17] A.D. Martin, R.G. Roberts and W.J. Stirling : * - * RAL Preprint, RAL-92-078 (1992) and RAL Preprint, RAL-93-077 (199 - * * - * [18] CTEQ collaboration, J. Botts et al. : Phys. Lett. 304B (1993) 159. - * * - * [19] E.L. Berger and R. Meng : Phys. Lett. 304B (1993) 318; * - * CERN-TH 6739/92; ANL-HEP-CP-92-108 and * - * E.L. Berger, R. Meng and J. Qiu : ANL-HEP-CP-92-79. * - * * - * * - * * - ******************************* - 32 - ******************************** -1*********************************************************************** - * * - * [20] CTEQ collaboration, J. Botts et al. : * - * to be published * - * * - * * - * [21] J.F.Owens : Phys. Rev. D30 (1984) 943. * - * * - * [22] P. Aurenche et al. : Phys. Lett. 233B (1989) 517. * - * * - * [23] P.J. Sutton, A.D. Martin, R.G. Roberts and W.J. Stirling : * - * Phys. Rev. D45 (1992) 2349. * - * * - * [24] M. Gl"uck, E. Reya and A. Vogt : Z. Phys. C53 (1992) 651. * - * * - * [25] D.W. Duke and J.F.Owens : Phys. Rev. D26 (1982) 1600. * - * * - * [26] M. Drees and K. Grassie : Z. Phys. C28 (1985) 451. * - * * - * [27] H. Abramowicz, K. Charchula and A. Levy : * - * Phys. Lett. 269B (1991) 458. * - * * - * [28] L.E. Gordon and J.K. Storrow : Z. Phys. C56 (1992) 307. * - * * - * [29] M. Gl"uck, E. Reya and A. Vogt : Phys. Rev. D46 (1992) 1973 * - * and Phys. Rev. D45 (1992) 3986. * - * * - * [30] P. Aurenche et al. : Z. Phys. C56 (1992) 589. * - * * - * [31] G. Altarelli, R.K. Ellis and G. Martinelli : * - * Nucl. Phys. B143 (1978) 521 and B157 (1979) 461. * - * * - * [32] H. Plothow-Besch, 'PDFLIB: a library of all available parton * - * density functions of the nucleon, the pion and the photon * - * and the corresponding alpha(s) calculations', * - * Comp. Phys. Comm. 75 (1993) 396-416; * - * H. Plothow-Besch, 'PDFLIB: Structure Functions and alpha(s) * - * Calculations', User's Manual - Version 1.00, W5051 PDFLIB, * - * 1991.03.21, CERN-PPE. * - * * - * [33] Review of Particle Properties, June 1992, * - * Phys. Rev. D45 (1992), Part. II, p. III.54. * - * * - * [34] BCDMS Collaboration, A.C. Benvenuti et al. : Phys. Lett. 223B (1989) 485 - * Phys. Lett. 237B (1990) 592 and Phys. Lett. 237B (1990) 599; * - * EMC Collaboration, M. Arneodo et al. : Nucl. Phys. B333 (1990) 1; - * NMC Collaboration, D. Allasia et al. : Phys. Lett. 249B (1990) 366; - * P. Amaudruz et al. : Nucl. Phys. B371 (1992) 3. - * * - * [35] NMC Collaboration, P. Amaudruz et al. : Phys. Lett. 295B (1992) 159. - * * - * [36] H1 Collaboration, I. Abt et al. : DESY preprint 93-117 (1993); * - * ZEUS Collaboration, M. Derrick et al. : DESY preprint 93-110 (1993). - * * - * [37] JADE Collaboration, W. Bartel et al. : Z. Phys. C24 (1984) 231.* - * * - * * - * * - * * - ******************************* - 33 - ******************************** -1*********************************************************************** - * * - * [38] PAW, CERN Program Library Entry Q121, Long Write-up; * - * R. Brun, O. Couet, C. Vandoni and P Zanarini; * - * see also to References therein. * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * List of Tables * - * * - * * - * 1 List of available sets of NUCLEON structure functions in * - * PDFLIB version 6.06 ...................................... 35 * - * * - * * - * 2 List of available sets of PION structure functions in PDFLIB * - * version 6.06 ............................................. 37 * - * * - * * - * 3 List of available sets of PHOTON structure functions in PDFLIB * - * version 6.06 ............................................. 38 * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - ******************************* - 34 - ******************************** -1*********************************************************************** - * * - * Table 1 * - * * - * Available sets of NUCLEON structure functions in PDFLIB * - * * - * ------------------------------------------------------------------- * - * * - * Nptype * - * Ngroup Q**2 Name of Set Scheme Reference * - * Nset min * - * QCDL4 * - * ------------------------------------------------------------------- * - * 0 200 0.3 ->GRV HO MS_bar NLL Default * - * ------------------------------------------------------------------- * - * ------------------------------------------------------------------- * - * 1 1 1 PRIVATE to user * - * 1 1 2 45 0.5 BEBC LO [Nucl.Phys. B132 (1978) 249] - * 1 1 3 500 1.8 OR LO [Phys.Rev. D17 (1978) 3003] - * 1 1 4 470 5 BEP LO [Z. Phys. C2 (1979) 265] - * 1 1 5 400 4 GHR LO [Z. Phys. C13 (1982) 119] - * 1 1 6 200 4 DO Set 1 LO [Phys.Rev. D30 (1984) 49] - * 1 1 7 400 4 DO Set 2 LO * - * 1 1 8 200 5 EHLQ Set 1 LO [Rev.Mod.Phys. 56 (1984) 579; - * 1 1 9 290 5 EHLQ Set 2 LO Rev.Mod.Phys. 58 (1985) 1065] - * 1 1 10 177 4 DO Set 1.1 LO [Phys.Lett.266B (1991) 3275] - * ------------------------------------------------------------------- * - * 1 2 1 200 10 DFLM soft valence LO [Z. Phys. C39 (1988) 21 - * 1 2 2 200 10 DFLM hard valence LO * - * 1 2 3 200 10 DFLM soft gluon LO * - * 1 2 4 200 10 DFLM hard gluon LO * - * 1 2 5 200 10 DFLM central av. LO * - * 1 2 6 300 10 DFLM central av. DIS NLL * - * 1 2 7 160 10 DFLM 160 DIS NLL [unpublished] * - * 1 2 8 260 10 ->DFLM 260 DIS NLL * - * 1 2 9 360 10 DFLM 360 DIS NLL * - * ------------------------------------------------------------------- * - * 1 3 1 107 5 MRS 1 MS_bar NLL [Phys.Rev. D37 (1988) 1181] - * 1 3 2 250 5 MRS 2 MS_bar NLL * - * 1 3 3 178 5 MRS 3 MS_bar NLL * - * 1 3 4 91 5 MRS E MS_bar NLL [Phys.Lett. 206B (1988) 327] - * 1 3 5 228 5 MRS B MS_bar NLL * - * 1 3 6 91 5 MRS E' MS_bar NLL [Mod.Phys. Lett.A4 (1989) 1135 - * 1 3 7 228 5 MRS B' MS_bar NLL * - * 1 3 8 100 5 HMRS E (1.90) MS_bar NLL [retracted] * - * 1 3 9 190 5 HMRS B (1.90) MS_bar NLL * - * 1 3 10 100 5 HMRS E (3.90) MS_bar NLL * - * 1 3 11 190 5 HMRS B (3.90) MS_bar NLL * - * 1 3 12 100 5 HMRS E+(4.90) MS_bar NLL [Phys.Lett. 243B (1990) 421] - * 1 3 13 100 5 HMRS E-(4.90) MS_bar NLL * - * 1 3 14 100 5 HMRS E (4.90) MS_bar NLL [Phys.Rev. D4 (1990) 798] - * 1 3 15 190 5 HMRS B (4.90) MS_bar NLL * - * 1 3 16 100 5 HMRS B (8.90) MS_bar NLL [unpublished] * - * 1 3 17 300 5 HMRS B (8.90) MS_bar NLL * - * 1 3 18 190 5 KMRS B-(7.90) MS_bar NLL [Phys.Rev. D42 (1990) 3645] - * 1 3 19 190 5 KMRS B-R2 Shadow (7.90) MS_bar NLL * - * 1 3 20 190 5 KMRS B-R5 Shadow (7.90) MS_bar NLL * - * 1 3 21 190 5 KMRS B0-190 (7.90) MS_bar NLL (as updated 4.92) * - * * - ******************************* - 35 - ******************************** -1*********************************************************************** - * * - * Table 1 (cont'd) * - * * - * ------------------------------------------------------------------- * - * * - * Nptype * - * Ngroup Q**2 Name of Set Scheme Reference * - * Nset min * - * QCDL4 * - * ------------------------------------------------------------------- * - * 1 3 22 135 5 MRS B0-135 (10.90) MS_bar NLL [Phys.Rev. D43 (1991) 3648] - * 1 3 23 160 5 MRS B0-160 (10.90) MS_bar NLL * - * 1 3 24 200 5 MRS B0-200 (10.90) MS_bar NLL * - * 1 3 25 235 5 MRS B0-235 (10.90) MS_bar NLL * - * 1 3 26 215 5 MRS S0 (4.92) MS_bar NLL [retracted] * - * 1 3 27 215 5 MRS D0 (4.92) MS_bar NLL * - * 1 3 28 215 5 MRS D- (4.92) MS_bar NLL * - * 1 3 29 230 5 MRS S0' (11.92) MS_bar NLL [Phys.Lett. 306B (1993)145 - * 1 3 30 230 5 MRS D0' (11.92) MS_bar NLL * - * 1 3 31 230 5 MRS D-' (11.92) MS_bar NLL * - * 1 3 32 230 5 MRS S0' (2.93) DIS NLL [RAL-92-078 (1992)] - * 1 3 33 230 5 MRS D0' (2.93) DIS NLL * - * 1 3 34 230 5 MRS D-' (2.93) DIS NLL * - * 1 3 35 230 5 MRS (H) (11.93) MS_bar NLL * - * 1 3 36 230 5 MRS (H) (11.93) DIS NLL * - * 1 3 37 230 5 MRS (A) (5.94 MS_bar NLL [RAL-94-055 (1994)] - * 1 3 38 230 5 MRS (A) Fit (5.94) MS_bar NLL * - * 1 3 39 230 5 MRS (Ap) (2.95 MS_bar NLL [RAL-94-104 (1994)] - * 1 3 40 231 5 MRS (Ap) Fit(2.95) MS_bar NLL * - * 1 3 41 255 5 ->MRS (G) (2.95 MS_bar NLL [RAL-95-021 (1995)] - * 1 3 42 255 5 MRS (G) Fit (2.95) MS_bar NLL * - * ------------------------------------------------------------------- * - * 1 4 1 212 4 MT S1 DIS NLL [Z. Phys. C52 (1991) 13] - * 1 4 2 194 4 MT B1 DIS NLL * - * 1 4 3 191 4 MT B2 DIS NLL * - * 1 4 4 155 4 MT E1 DIS NLL * - * 1 4 5 237 4 MT 6 (1/2s) DIS NLL * - * 1 4 6 212 4 MT S1 MS_bar NLL * - * 1 4 7 194 4 MT B1 MS_bar NLL * - * 1 4 8 191 4 MT B2 MS_bar NLL * - * 1 4 9 155 4 MT E1 MS_bar NLL * - * 1 4 10 237 4 MT 6 (1/2s) MS_bar NLL * - * 1 4 11 144 4 MT LO LO * - * 1 4 12 168 4 CTEQ 1L LO [retracted] * - * 1 4 13 231 4 CTEQ 1M MS_bar NLL * - * 1 4 14 231 4 CTEQ 1MS MS_bar NLL * - * 1 4 15 322 4 CTEQ 1ML MS_bar NLL * - * 1 4 16 247 4 CTEQ 1D DIS NLL * - * 1 4 17 190 4 CTEQ 2L LO [retracted] * - * 1 4 18 213 4 CTEQ 2M MS_bar NLL * - * 1 4 19 208 4 CTEQ 2MS MS_bar NLL * - * 1 4 20 208 4 CTEQ 2MF MS_bar NLL * - * 1 4 21 322 4 CTEQ 2ML MS_bar NLL * - * 1 4 22 235 4 CTEQ 2D DIS NLL * - * 1 4 23 190 4 CTEQ 2pL LO [to be published]* - * 1 4 24 213 4 CTEQ 2pM MS_bar NLL * - * ------------------------------------------------------------------- * - * * - ******************************* - 36 - ******************************** -1*********************************************************************** - * * - * Table 1 (cont'd) * - * * - * ------------------------------------------------------------------- * - * * - * Nptype * - * Ngroup Q**2 Name of Set Scheme Reference * - * Nset min * - * QCDL4 * - * ------------------------------------------------------------------- * - * 1 4 25 208 4 CTEQ 2pMS MS_bar NLL * - * 1 4 26 208 4 CTEQ 2pMF MS_bar NLL * - * 1 4 27 322 4 CTEQ 2pML MS_bar NLL * - * 1 4 28 235 4 CTEQ 2pD DIS NLL * - * 1 4 29 177 4 CTEQ 3L LO [MSU-HEP/41024] * - * 1 4 30 239 4 ->CTEQ 3M MS_bar NLL * - * 1 4 31 247 4 CTEQ 3D DIS NLL * - * ------------------------------------------------------------------- * - * 1 5 1 160 0.2 old GRV HO MS_bar NLL [retracted] * - * 1 5 2 220 0.2 old GRV LO LO * - * 1 5 3 200 0.3 GRV HO MS_bar NLL [Z. Phys. C53 (1992) 127] - * 1 5 4 200 0.25 GRV LO LO * - * 1 5 5 200 0.4 GRV 94 LO LO [DO-TH 94/24 (1994)] - * 1 5 6 200 0.4 ->GRV 94 HO MS_bar NLL * - * 1 5 7 200 0.4 GRV 94 HO DIS NLL * - * ------------------------------------------------------------------- * - * 1 6 1 230 2 ABFOW MS_bar NLL [Phys.Rev D39 (1989) 3275] - * ------------------------------------------------------------------- * - * 1 7 1 254 5 BM A MS_bar NLL [Phys.Lett. 304B (1993)318 - * 1 7 2 254 5 BM B MS_bar NLL * - * ------------------------------------------------------------------- * - * * - * * - * Table 2 * - * * - * Available sets of PION structure functions in PDFLIB * - * * - * ------------------------------------------------------------------- * - * * - * Nptype * - * Ngroup Q**2 Name of Set Scheme Reference * - * Nset min * - * QCDL4 * - * ------------------------------------------------------------------- * - * 2 1 1 200 4 OW-P Set 1 LO [Phys.Rev. D30 (1984) 943] - * 2 1 2 400 4 OW-P Set 2 LO * - * ------------------------------------------------------------------- * - * 2 3 1 190 5 SMRS-P 1 MS_bar NLL [Phys.Rev. D45 (1992) 2349] - * 2 3 2 190 5 ->SMRS-P 2 MS_bar NLL * - * 2 3 3 190 5 SMRS-P 3 MS_bar NLL * - * ------------------------------------------------------------------- * - * 2 5 1 200 0.3 ->GRV-P HO MS_bar NLL [Z.Phys. C53 (1992) 651] - * 2 5 2 200 0.25 GRV-P LO LO * - * ------------------------------------------------------------------- * - * 2 6 1 231 2 ->ABFKW-P 1 MS_bar NLL [Phys.Lett.233B (189) 517] - * 2 6 2 181 2 ABFKW-P 2 MS_bar NLL * - * 2 6 3 281 2 ABFKW-P 3 MS_bar NLL * - * ------------------------------------------------------------------- * - ******************************* - 37 - ******************************** -1*********************************************************************** - * * - * Table 3 * - * * - * Available sets of PHOTON structure functions in PDFLIB * - * * - * ------------------------------------------------------------------- * - * * - * Nptype * - * Ngroup Q**2 Name of Set Scheme Reference * - * Nset min * - * QCDL4 * - * ------------------------------------------------------------------- * - * 3 1 1 380 10 DO-G LO LO [Phys.Rev. D26 (1982) 1600] - * 3 1 2 440 10 ->DO-G HO MS_bar NLL * - * ------------------------------------------------------------------- * - * 3 2 1 400 1 ->DG-G Set 1 LO [Z. Phys. C28 (1985) 451] - * 3 2 2 400 1 DG-G Set 2 LO * - * 3 2 3 400 20 DG-G Set 3 LO * - * 3 2 4 400 200 DG-G Set 4 LO * - * ------------------------------------------------------------------- * - * 3 3 1 200 5 LAC-G 1 LO [Phys.Lett.269B (1991) 458] - * 3 3 2 200 5 ->LAC-G 2 LO * - * 3 3 3 200 5 LAC-G 3 LO * - * ------------------------------------------------------------------- * - * 3 4 1 200 5.3 ->GS-G HO MS_bar NLL [Z.Phys. C56 (1992) 307] - * 3 4 2 200 5.3 GS-G LO set 1 LO * - * 3 4 3 200 5.3 GS-G LO set 2 LO * - * ------------------------------------------------------------------- * - * 3 5 1 200 0.3 GRV-G LHO DIS*) NLL [Phys.Rev. D46 (1992) 1973; - * 3 5 2 200 0.3 ->GRV-G HO DIS*) NLL Phys.Rev. D45 (1992) 3986] - * 3 5 3 200 0.25 GRV-G LO LO * - * ------------------------------------------------------------------- * - * 3 6 1 200 2 ACFGP-G HO MS_bar NLL [Z.Phys. C56 (1992) 589] - * 3 6 2 200 2 ->ACFGP-G HO-mc MS_bar NLL * - * 3 6 3 200 2 ->AFG-G HO MS_bar NLL * - * ------------------------------------------------------------------- * - * 3 8 1 400 4 WHIT-G 1 LO [KEK preprint 93-160]* - * 3 8 2 400 4 ->WHIT-G 2 LO * - * 3 8 3 400 4 WHIT-G 3 LO * - * 3 8 4 400 4 WHIT-G 4 LO * - * 3 8 5 400 4 WHIT-G 5 LO * - * 3 8 6 400 4 WHIT-G 6 LO * - * ------------------------------------------------------------------- * - * * - * * - * * - * *) not standard, please consult references. * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - ******************************* - 38 - ******************************** -1*********************************************************************** - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - ******************************* - 39 - ******************************** diff --git a/PDF/doc/v100.dat b/PDF/doc/v100.dat deleted file mode 100644 index 9b457ff6298..00000000000 --- a/PDF/doc/v100.dat +++ /dev/null @@ -1,12 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.1 1996/03/08 17:48:06 mclareni -* Pdf -* -* -* VERSION 6.06 950315 17.05 CERN PROGRAM LIBRARY W5051 -C -C- Structuring of the code in PATCHY format -C- Addition of the test diff --git a/PDF/dpdf/inform.dat b/PDF/dpdf/inform.dat deleted file mode 100644 index dccfe393df7..00000000000 --- a/PDF/dpdf/inform.dat +++ /dev/null @@ -1,31 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.6 1997/07/13 13:22:18 cernlib -* Import version 7.09 -* -* Revision 1.7 1997/07/02 15:02:58 pdflib -* potential bug removed in GRSGALO -* -* Revision 1.6 1997/04/08 15:53:15 pdflib -* Lambda_QCD for CTEQ4 sets corrected -* -* Revision 1.5 1996/12/10 10:49:21 pdflib -* Version 7.07: consistency change for u,d-valence in CTEQ4 -* -* Revision 1.4 1996/11/15 15:06:49 pdflib -* Version 7.06: tabs removed and bug fixed in grsgalo -* -* Revision 1.3 1996/11/07 09:34:23 pdflib -* New version 7.05: cut routine Ctq4RTb in 9 pieces -* -* Revision 1.1.1.1 1996/04/12 15:28:51 plothow -* Version 7.01 -* -* -* GENERAL INFORMATION -C PDF 7.09 970702 16.05 CERN Program Library W5051 PDF -C Structure Functions Package -C Author: H. Plothow-Besch -C diff --git a/PDF/dpdf/pdfdoc.doc b/PDF/dpdf/pdfdoc.doc deleted file mode 100644 index 53a2eca7a3a..00000000000 --- a/PDF/dpdf/pdfdoc.doc +++ /dev/null @@ -1,2829 +0,0 @@ -1*********************************************************************** - * * - * CERN * - * * - * W5051 PDFLIB 1997.07.02 * - * * - * --------------------------------------------------------------- * - * * - * PDFLIB: Nucleon, Pion and Photon Parton Density Functions * - * and alpha(s) Calculations * - * * - * User's Manual * - * * - * Version 7.09 * - * * - * * - * H. Plothow-Besch/CERN-PPE * - * * - * CH-1211 Geneva 23 * - * E-mail address: plothow@mail.cern.ch * - * Tel.: +41 - 22 - 767 39 80 * - * * - * A complete manual in PostScript format exists on a separate file * - * Requests can be addressed to the CERN Program Library Office * - * * - * Copyright by H. Plothow-Besch * - * * - * Abstract * - * * - * This document describes an integrated package of Parton Den- * - * sity Functions called PDFLIB which has been added to the CERN * - * Program Library Pool W999 and is labelled as W5051. In this pack- * - * age all the different sets of parton density functions of the * - * NUCLEON, the PION and the PHOTON which are available today (about * - * 100 different sets) have been put together. All these sets have * - * been combined in a consistent way such that they all have similar * - * calling sequences and no external data files have to be read in * - * anymore. A default set has been prepared, although those prefering * - * their own set or wanting to test a new one may do so within the * - * package. The selection mode, the program parameters as well as * - * the possibilities to modify the defaults and to control errors * - * occured during execution are described. * - * * - * The package offers as well a program to calculate the strong * - * coupling constant alpha(s) to first or second order (default). * - * The correct Lambda(QCD) associated to the selected set of struc- * - * ture functions and the number of allowed flavours with respect to * - * the given Q**2 is automatically used in the caculation. For those * - * structure functions where the evolution has been performed to * - * leading order only, an alpha(s) value fixed to first order is re- * - * turned. * - * * - * The package is written in standard FORTRAN-77 and is avai- * - * lable on all CERN system areas. * - * * - * * - * * - * Submitter: H. Plothow-Besch/CERN-PPE * - * Language: FORTRAN 77 * - * Library: PDFLIB * - * * - * * - * * - * * - * * - * * - * * - * * - *********************************************************************** -1*********************************************************************** - * * - * * - * _______________________________________________________________ * - * | | * - * | PDFLIB - User's Manual | * - * | | * - * | CERN Computer Program Library entry W5051 | * - * | | * - * | Copyright CERN, Geneva 1990, 1991, 1992, 1993, 1994, 1995 | * - * | Copyright CERN, Geneva 1996 | * - * | | * - * | Copyright and any other appropriate legal protection of | * - * | these computer programs and associated documentation re- | * - * | served in all countries of the world. | * - * | | * - * | These programs or documentation may not be reproduced | * - * | and/or redistributed by any method without prior written | * - * | consent of the Director-General of CERN or his delegate. | * - * | | * - * | Permission for the scientific usage of any programs des- | * - * | cribed herein is granted apriori to those scientific in- | * - * | stitutes associated with the CERN experimental program or | * - * | with whom CERN has concluded a scientific collaboration | * - * | agreement. | * - * | | * - * | Commercial utilisation requires explicit a priori per- | * - * | mission from CERN and will be subjected to payment of a | * - * | licence fee. | * - * | | * - * | These statements are without prejudice to any rights that | * - * | third parties may hold in these programs. | * - * | | * - * | | * - * | Requests for information should be addressed to: | * - * | | * - * | CERN Computer Program Library Office | * - * | CERN-CN Division | * - * | CH-1211 Geneva 23 | * - * | Switzerland | * - * | Tel. +41 22 767 4951 | * - * | Fax. +41 22 767 7155 | * - * | Electronic Mail address: | * - * | | * - * | Internet: cernlib@cern.ch | * - * |_____________________________________________________________| * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - ******************************** - 1 - ******************************** -1*********************************************************************** - * * - * Table of Contents * - * page * - * * - * PROGRAM SUMMARY .......................................... 3 * - * * - * PDFLIB : New version 7.09 ................................ 4 * - * * - * 0. Major Differences compared to earlier Versions ........... 4 * - * 0.1 The actual Version 7.09 wrt Version 6.00 ............ 4 * - * 0.2 Version 6.00 wrt Version 5.00 ....................... 5 * - * 0.3 Version 5.00 wrt Version 4.00 ....................... 6 * - * 0.4 Version 4.00 wrt Version 3.00 ....................... 6 * - * 0.5 Version 3.00 wrt Version 2.00 ....................... 6 * - * 0.6 Version 2.00 wrt Version 1.00 ....................... 7 * - * * - * 1. The Library of Parton Densities: PDFLIB ................. 10 * - * 1.1 Introduction ....................................... 10 * - * 1.2 Structure Functions of the Nucleon ................. 12 * - * 1.3 Structure Functions of the Pion .................... 12 * - * 1.4 Structure Functions of the Photon .................. 12 * - * 1.3 The Calling Sequence: PDG Format ................... 14 * - * 1.4 The Library PDFLIB ................................. 14 * - * 1.5 Calculations of the Strong Coupling Constant alpha(s)15 * - * * - * 2. Applications of the Parton Densities Package PDFLIB ..... 10 * - * 2.1 Parameter Setting and Selection of Sets ............ 10 * - * 2.2 The Calling Sequence: PDFLIB Format ................ 12 * - * 2.3 The Calling Sequence: PDG Format ................... 14 * - * 2.4 Error Handling ..................................... 14 * - * 2.5 Features ........................................... 15 * - * 2.6 How to find PDFLIB ................................. 18 * - * * - * 3. PION and PHOTON Parton Densities 18 * - * * - * 4. alpha(s) Calculation 18 * - * * - * 5. Conclusions 19 * - * * - * 6. Acknowledgements 21 * - * * - * 7. References 32 * - * * - * Appendix 22 * - * A : Example of how to use PDFLIB ........................ 22 * - * B : List of subprograms and COMMON blocks in PDFLIB * - * which are relevant to the user ...................... 25 * - * C : Complete list of subprograms in PDFLIB .............. 26 * - * * - * List of Tables 34 * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - ******************************** - 2 - ******************************** -1*********************************************************************** - * * - * PROGRAM SUMMARY * - * * - * * - * Titel of Program : PDFLIB, version 7.09 * - * * - * Catalogue number : W5051 in the CERN Computer Program Library * - * * - * Program obtainable from : CERN Computer Program Library Office * - * * - * Computer for which the program is designed and others on which it * - * has been tested: * - * Computer : IBM 3090, VAX, IBM-RISC, DECS, SUN, APOLLO, HP-UX, * - * Silicon Graphics, NEXT, CDC, CRAY, IBM-PC * - * * - * Operating systems : VM/CMS, VAX/VMS, Unix, Windows NT * - * * - * Programming language used : FORTRAN 77, program is available in * - * the CVS format * - * * - * Number of lines in distributed progam, * - * including test data, etc : 192 000 * - * * - * Memory required, * - * including testprograms and some documentation : 25 Mbytes * - * (Source code: 10 Mbytes, Library: 10 Mbytes) * - * * - * No. of bits in a word : 64 * - * * - * Peripherals used : line printer (optional) * - * * - * Keywords : parton density functions, structure functions, W5051, * - * nucleon-, proton-, pion-, photon density parametrisa- * - * tions, Altarelli-Parisi equation, strong coupling * - * constant alpha(s) * - * * - * Nature of physical problem : * - * All theoretical calculations of cross sections involving the * - * hadronic structure of the incoming particles, i.e. protons, pions * - * or photons, use the parton density at a given longitudinal momen- * - * tum X of the parton and at a given momentum transfer Q**2. There * - * is a variety of parametrisations available, but each of them has * - * its own structure for input and/or output. * - * * - * Method of solution : * - * Collection of all available parton density parametrisations and * - * application in an identical format for all of them, regardless of * - * the author's convention or of the particle type. * - * * - * References : * - * [1] H. Plothow-Besch, 'PDFLIB: Structure Functions and alpha(s) * - * Calculations', User's Manual - Version 1.00, W5051 PDFLIB, * - * 1991.03.21, CERN-PPE. * - * [2] H. Plothow-Besch, 'PDFLIB: a library of all available parton * - * density functions of the nucleon, the pion and the photon and * - * the corresponding alpha(s) calculations', * - * Comp. Phys. Comm. 75 (1993) 396-416. * - * [3] H. Plothow-Besch, 'The Parton Distribution Function Library', * - * Int. J. Mod. Phys. A10 (1995) 2901-2910. * - * * - * * - * * - * * - * * - * * - * * - * * - ******************************** - 3 - ******************************** -1*********************************************************************** - * * - * 0. Major Differences compared to earlier Versions * - * * - * * - * 0.1 The actual Version 7.09 wrt Version 6.00: * - * * - * * - * The following major changes compared to version 6.00 of PDFLIB * - * have been implemented: * - * * - * Several NUCLEON structure function sets have been added: * - * * - * - the NLL sets A of Martin Roberts and Stirling (MRS-A lQ) for * - * low Q**2 of May 1995 in the DIS and the MS_bar renormalisation * - * schemes, as well as the NLL sets A' for 6 different values of * - * alpha_s (MRS-Ap-150, MRS-Ap-201, MRS-Ap-266, MRS-Ap-344, * - * MRS-Ap-435, MRS-Ap-542), the J and J' sets (MRS-J and MRS-Jp) * - * of May 1996 which include the high p_T-jet data of the TEVA- * - * TRON, and the latest MRS sets R1 to R4 (MRS-R1, MRS-R2, * - * MRS-R3, MRS-R4) of May 1996 with grid data as well as in its * - * parametrized form (MRS-R1-F) and (MRS-R2-F); * - * - version 4 of the CTEQ group of June 1996 as NLL parametrisa- * - * tion in the $\overline{MS}$ as well as in the DIS renormalisa- * - * tion scheme and as LO (CTEQ4M, CTEQ4D, CTEQ4L), the CTEQ4M set * - * for 5 different values of alpha_s (CTEQ4A1, CTEQ4A2, CTEQ4A3, * - * CTEQ4A4, CTEQ4A5), a set which includes the high $p_T$-jet * - * data of the TEVATRON (CTEQ4HJ), and a set for low Q**2 * - * (CTEQ4lQ); * - * - the new sets of Gl"uck, Reya, Stratmann and Vogelsang as LO * - * and of August 1995 as NLL in the MS_bar renormalisation scheme * - * of polarized parton distributions in a 'standard' and a * - * 'valence' fit version (GRSVpolS, GRSVpolV). A special COMMON * - * block (COMMON /GRSVA1/ A1P, A1N, A1D) transmits directly the * - * spin asymmetries of the proton, the neutron and the deuteron. * - * * - * A NEW GROUP of authors of PHOTON structure function sets has been * - * added: * - * * - * - the 4 old LO sets of Schuler and Sjostrand of March 1995, as * - * well as the 4 LO sets of their revised version of May 1996 * - * (SaS-G-1D, SaS-G-1M, SaS-G-2D, SaS-G-2MD). * - * * - * Several new PHOTON structure function sets have been added: * - * * - * - the recent LO set of Gl"uck, Reya and Stratmann of February * - * 1996 (GRS-G); * - * - the recent LO and HO sets of Gordon and Storrow of August 1996 * - * (GS-G-LO, GS-G-HO). * - * * - * To take into account the need for more input parameters for parton * - * densities of the photon a NEW SUBROUTINE STRUCTP has been added * - * which should be called instead of STRUCTM in case of applications * - * of the photon. * - * * - * Several CORRECTIONS to existing structure function sets have been * - * performed: * - * * - * - to account for heavy quark contributions (c and b) in the * - * nucleon parton densities of Gl"uck, Reya and Vogt (GRV94), * - * now automatically the OLD GRV parton densities of 1992 are * - * called for c and b quarks as advised in their paper; * - * - corrections for LINNUX-systems suggested by V. Balashov have * - * been taken into account. * - * * - * A BUG in the data tables for the parton densities of the photon of * - * the set of Aurenche, Fontannaz and Guillet (AFG-G) has been fixed. * - * * - ******************************** - 4 - ******************************** -1*********************************************************************** - * * - * More details can be found on the next pages of this updated * - * User's Manual. * - * * - * The response from the Physics community has been very satis- * - * factory, which is encouraging us to keep up-to-date with the * - * latest developments in this area. The author will be pleased to * - * learn about new parton density functions, as well as to receive * - * suggestions to improve both, the usage and the documentation. * - * Please send your comments to plothow@mail.cern.ch. * - * * - * * - * * - * * - * 0.2 Version 6.00 wrt Version 5.00: * - * * - * * - * The following major changes compared to version 5.00 of PDFLIB * - * have been implemented: * - * * - * Several NUCLEON structure function sets have been added: * - * * - * - the NLL sets A' and G of Martin, Roberts and Stirling (MRS-Ap) * - * and (MRS-G) of February 1995 with grid data as well as in its * - * parametrized version (MRS-Ap-F) and (MRS-G-Fit), * - * - the version 3 of the CTEQ group of October 1994 as NLL parame- * - * trisation in the MS_bar as well as in the DIS renormalisation * - * scheme and as LO (CTEQ3M, CTEQ3D, CTEQ3L), * - * - the new sets of GRV of November 1994 as NLL in the MS_bar as * - * well as in the DIS renormalisation scheme and as LO GRV * - * (GRV94-MS, GRV94DI, GRV94-LO). * - * * - * A NEW group of PHOTON structure function sets have been added: * - * * - * - the six NLL sets of the WHIT group (WHIT1-G to WHIT6-G). * - * * - * Please note that as new the default set the MRS set (G) has been * - * chosen (NPTYPE = 1, NGROUP = 3, NSET = 41). * - * * - * * - * * - * * - * 0.3 Version 5.00 wrt Version 4.00: * - * * - * * - * The following major changes compared to version 4.00 of PDFLIB * - * have been implemented: * - * * - * NUCLEON structure function sets have been added: * - * * - * - the NLL set A of Martin, Roberts and Stirling (MRS-A) and the * - * parametrized version (MRS-A-Fit) * - * PHOTON structure function sets have been added: * - * - the NLL set of Aurenche, Fontannaz and Guillet (AFG-G). * - * * - * * - * * - * * - * 0.4 Version 4.00 wrt Version 3.00: * - * * - * * - * The following major changes compared to version 3.00 of PDFLIB * - * have been implemented: * - * * - * NUCLEON structure function sets have been updated or added: * - * * - * * - ******************************** - 5 - ******************************** -1*********************************************************************** - * * - * - the updated NLL sets of Martin, Roberts and Stirling (MRS) of * - * November 1992, the sets S0', D0' and D-' in the MSbar as well * - * as the sets S0', D0' and D-' in the DIS renormalisation * - * scheme. Please note that the previous S0, D0 and D- sets have * - * been retracted by the authors. The new MRS(H) set in both * - * schemes have also been added, * - * - the NLL and LO sets of the CTEQ collaboration (CTEQ) in its * - * parametrised form of January 1993. These are the sets 1M, 1MS * - * and 1ML in the MSbar, the set 1D in the DIS renormalisation * - * scheme and the LO set 1L, * - * - the new NLL sets A and B of Berger and Meng (BM) of * - * February 1993 with special gluon distributions, and finally * - * - the new NLL and LO sets of the CTEQ collaboration (CTEQ) in * - * its parametrised form of August 1993. These are the sets 2M, * - * 2MS, 2MF and 2ML in the MSbar, the set 2D in the DIS renorma- * - * lisation scheme and the LO set 2L. The revised CTEQ2 version, * - * CTEQ2p, of November 1993 is recommended by the authors. * - * * - * Please note that the default set has been put to the GRV set HO * - * (NPTYPE = 1, NGROUP = 5, NSET = 3 / former MODE = 72). * - * * - * The MOST DRASTICAL change of the package has been, however, the * - * NEW FORMAT of PARAMETER SETTINGS. Instead of using only ONE para- * - * meter (MODE) to select a set of parton density functions (PDF), * - * each PDF set is now identified by THREE parameters. These are * - * NPTYPE, NGROUP and NSET, for PARTICLE TYPE (Nucleons, Pions or * - * Photons) AUTHOR GROUP (f.ex. MRS, CTEQ, GRV, etc) and the PARAME- * - * TRISATION SET within the group. Therefore the user should provide * - * THREE parameters (NPTYPE, NGROUP, NSET) to the subroutine PDFSET, * - * each time a PDF set shall be selected. But to make life nice and * - * easy, it is also possible to select a PDF set by transferring only * - * ONE parameter to PDFSET as before: this parameter should then * - * identify the NAME of the author group in an unequivocal way; the * - * selection of the PDF set within the author group is made by the * - * corresponding VALUE value (f.ex. PARM(1) = 'MRS' with VALUE(1) = * - * 29.0D0 would select the 29th set of the Nucleon PDFs of MRS, and * - * f.ex. PARM(1) = 'GRVph' with VALUE(1) = 1.0D0 would select the * - * first set of the Photon PDFs of GRV). As a suggestion, the NAME for* - * each PDF set can be found in the NEW COMMON block /W505110/SFNAME, * - * where SFNAME is a CHARACTER*8 array with dimension SFNAME(NPTYMX, * - * NGRMAX,NSETMX), and NPTYMX, NGRMAX, NSETMX are defined by the * - * parameter sequence, +SEQ, W5051P2. In case the user wants to se- * - * lect the DEFAULT, it is sufficient to transfer as the ONLY parame- * - * ter PARM(1) = 'Nset' with VALUE(1) = 0.0D0. This change of format * - * had been necessary to take into account the inflationary growing * - * number of PDFs until now and to foresee already the possibility of * - * adding new PDFs in a more flexible way. Please note that in case * - * of any INCONSISTANCY of parameter settings, the DEFAULT setting is * - * always chosen. * - * * - * WARNING : Please also note that the internal COMMON block /W50511/ * - * has been modified to /W50511/ NPTYPE,NGROUP,NSET,MODE,NFL,LO,TMAS. * - * * - * A new feature, PDFLIB in quiet mode, has been implemented. If the * - * user does not want to see any output from PDFLIB, not even the * - * version number, he/she must set the parameter PARM(1)='first' with * - * value VAL(1)=0.D0. Under this condition any output is suppressed. * - * * - * Full backward compatibility with previous versions is ensured !! * - * This means that old programs using PDF sets up to version 3.00 of * - * PDFLIB should run without ANY change. To ensure this, four new * - * COMMON blocks have been added: * - * * - * - /W50519/ NEWVER : to flag the NEW/OLD version with the * - * LOGICAL variable NEWVER, * - * * - ******************************** - 6 - ******************************** -1*********************************************************************** - * * - * - /W505120/ NPGSMX(NPTYMX,NGRMAX),NSETFL(NPTYMX,NGRMAX,NSETMX) : * - * to provide the actual maximum number of parametrisation sets * - * per particle type and author group, and to flag the retracted * - * PDF sets (NSETFL(I,J,K) = 0), * - * - /W505121/ NPTYCR(MODEMX),NGROMX(MODEMX),NSETCR(MODEMAX) : * - * to provide the cross reference to the NPTYPE, NGROUP and NSET * - * value (NEW format) for a given MODE value (OLD format), * - * and * - * - /W505122/ MODECR(NPTYMX,NGRMAX,NSETMX) : to provide the * - * cross reference to the MODE value (OLD version) for a given * - * NPTYPE, NGROUP and NSET value (NEW format). In case of the * - * above added PDF sets NO MODE value is available; in that case * - * MODECR(I,J,K) = -1 is returned. * - * * - * * - * * - * * - * 0.5 Version 3.00 wrt Version 2.00 * - * * - * * - * The following major changes compared to version 2.00 of PDFLIB * - * had been implemented: * - * * - * NUCLEON structure function sets had been updated or added: * - * * - * - the NLL set of Aurenche et al. (ABFOW), * - * - the updated NLL set of Kwiecinski, Martin, Roberts and * - * Stirling (KMRS) set B0 with u_bar not equal to d_bar * - * of April 1992, * - * - the new NLL sets of Martin, Roberts and Stirling (MRS) * - * set S0, D0 and D- with u_bar not equal to d_bar of April 1992. * - * * - * Please note that the default set had been put to the MRS set S0 * - * (MODE = 45). * - * * - * PION structure function sets had been added: * - * * - * - the new LO and NLL sets of Gl"uck, Reya and Vogt (GRV-P) * - * of August 1991, * - * - the new sets 2 and 3 of Aurenche et al. (ABFKW-P). * - * * - * Please also note that the ABFKW set had changed MODE number from * - * 110 -> 180, as well as the SMRS sets from 120ff -> 130ff, and * - * that earlier inconsistencies in the parton density definitions * - * had been corrected. * - * * - * For the first time also PHOTON structure function sets had been * - * added to the package. These sets were the following: * - * * - * - the old Duke and Owens (DO-G) LO and NLL sets, * - * - the old LO sets 1 to 4 of Drees and Grassie (DG-G), * - * - the new LO sets 1 to 3 of Abramowicz, Charchula and Levy * - * (LAC-G), * - * - the new LO sets 1 and 2 and the NLL set of Gordon and Storrow * - * (GS-G) of July 1991, * - * - the new LO and NLL sets, as well as the leading term of the * - * NLL calculation of Gl"uck, Reya and Vogt (GRV-G) * - * of December 1991, * - * - the new NLL sets of Aurenche et al. (ACFGP-G) of April 1992. * - * * - * Some improvements in the usage of the package had been made: * - * * - * - more protections had been implemented and inconsistencies * - * had been corrected to make the package more robust and * - * available on ALL system areas, and finally * - * * - ******************************** - 7 - ******************************** -1*********************************************************************** - * * - * - the subroutine STRUCTM had been added. STRUCTM is basically * - * the same routine as the old steering subroutine STRUCTF apart * - * from ONE additional parameter in the argument list which had * - * been added to transfer separately the parton densities for * - * u_bar and d_bar. The argument list of the subroutine STRUCTF * - * was as before; in case of STRUCTF sea = (u_bar + d_bar)/2 is * - * transferred. The subroutine PFTOPDG, which is the sterring * - * routine in PDG format, was unchanged; this routine always * - * transferred u_bar and d_bar separately. * - * * - * * - * * - * * - * 0.6 Version 2.00 wrt Version 1.00 * - * * - * * - * The following major changes compared to version 1.00 of PDFLIB * - * had been implemented: * - * * - * New parton density functions of the NUCLEON had been added: * - * * - * - the old LO set of Buras and Gaemers of 1978 (BEBC) for com- * - * pleteness, * - * - all the LO sets of Diemoz, Ferroni, Longo and Martinelli (DFLM)* - * including their parametrisation for the NLL average fit, * - * - the new LO set 1.1 of Owens (DO 1.1) of June 1991, * - * and finally * - * - the new LO and NLL sets of Gl"uck, Reya and Vogt (GRV) of * - * May 1991. * - * * - * PION structure function sets had been added to the package: * - * * - * - the old Owens (OW-P) sets 1 and 2, * - * - the newer Aurenche et al. (ABFKW-P) set and * - * - the new Sutton, Martin, Roberts and Stirling (SMRS-P) sets 1, * - * 2 and 3. * - * * - * Some improvements in the usage of the package had been made: * - * * - * - COMMON block names had been changed to avoid interference * - * to those defined by the user (/IMODE/ -> /W50511/, * - * /ALAMB/ -> /W50512/), * - * - three new COMMON blocks had been added: * - * a) /W50513/ XMIN,XMAX,Q2MIN,Q2MAX : * - * to provide the minimum and maximum values of X and Q**2 for * - * each set of structure functions, * - * b) /W50510/ IFLPRT : * - * to provide a print flag at different levels to print * - * b.1) the variables of the three COMMON blocks * - * /W50511/, /W50512/ and /W50513/ at job initialisation * - * b.2) error messages during job execution * - * c) /W50514W/ PDFWGT : * - * to take into account the event weight for error counting * - * - a subroutine PDFSTA had been added to allow at job termination * - * for a summary how often X and Q**2 limits have been exceeded, * - * - the MODE number of some structure functions had been changed * - * to keep consistensy, * - * - the number of parameters which can be set through the sub- * - * routine PDFSET had been extended to 20, * - * - more protections had been implemented and inconsistencies * - * had been corrected to make the package more robust, * - * and finally * - * - a subroutine PFTOPDG had been provided as an interface for * - * those users who prefer the flavour code convention of the PDG * - * instead of the PDFLIB format. * - * * - ******************************** - 8 - ******************************** -1*********************************************************************** - * * - * 1. The Library of Parton Densities: PDFLIB * - * * - * * - * 1.1. Introduction * - * * - * * - * Perturbative QCD describes the $Q^2$ dependence of the parton * - * densities through the solution of the Altarelli-Parisi equations. * - * Its predictive power is given by the universality of these densi- * - * ties. Usually these densities are extracted from precision mea- * - * surements in fixed-target experiments of a given process at some * - * scale - recently they have also been extracted from the HERA ep- * - * collision experiments -, and then used to perform calculations for * - * different reactions in an extrapolated range of $Q^2$ provided * - * that the elementary cross sections at the parton level are known. * - * To be able to predict cross sections for a wide range of hard * - * scattering processes, it is of fundamental importance to have a * - * reliable and precise set of parton density distributions, together * - * with a precise value of the strong coupling constant alpha_s. * - * Therefore the momentum distributions of quarks and gluons are key * - * ingredients for the lepton-lepton, lepton-hadron and hadron-hadron * - * collider phenomenology, whenever the hadronic structure of nucle- * - * ons, pions or photons is involved. Apart from the obvious applica- * - * tions mentioned above, the study of parton distributions provides * - * also information about flavour dependence, isospin symmetry, par- * - * tons in nuclei, sum rules, polarized parton distibutions, etc.. * - * For any application the parton densities should therefore be * - * sufficiently well known, and the different sets should be easily * - * accessible. * - * * - * * - * * - * * - * 1.2. Structure Functions of the Nucleon * - * * - * * - * The number of sets of parton density functions of the NUCLEON * - * available today is about 70 and is still growing. The older sets * - * are leading order (LO) evolutions of the Altarelli-Parisi equa- * - * tions only, like * - * * - * - Buras and Gaemers (BEBC) [1], * - * - Owens and Reya (OR) [2], * - * - Baier, Engels and Petersson (BEP) [3], * - * - Gl"uck, Hoffmann and Reya (GHR) [4], * - * - Duke and Owens (DO) sets 1 and 2 [5], * - * - Eichten, Hinchliffe, Lane and Quigg (EHLQ) sets 1 and 2 [6], * - * - Diemoz, Ferroni, Longo and Martinelli (DFLM) [7] with * - * Lambda_4(QCD) = 200 MeV for soft and hard valence quark and * - * soft and hard gluon distributions], * - * * - * and * - * * - * - the set 1.1 of Owens (DO 1.1) [8], replacing the DO [5] sets 1 * - * and 2. * - * * - * Most of the sets, essentially the more recent ones, are * - * next-to-leading order evolutions, like * - * * - * - Diemoz, Ferroni, Longo and Martinelli (DFLM) with * - * Lambda_4(QCD) = 160, 260, 360 MeV [7], * - * - Martin, Roberts and Stirling (MRS) sets 1 to 3, sets E and B * - * and sets E' and B' [9], * - * - Harriman, Martin, Roberts and Stirling (HMRS) sets E, E+, E- * - * and B [10], * - * * - ******************************** - 9 - ******************************** -1*********************************************************************** - * * - * - Kwiecinski, Martin, Roberts and Stirling (KMRS) [11] sets B0 * - * and B-, and for the B- set with different radii for shadowing, * - * - Martin, Roberts and Stirling (MRS-B Lambda) [11] for the B0 * - * set also with different values of Lambda_4(QCD) = 135, 160, * - * 200 and 235 MeV, * - * - Martin, Roberts and Stirling (MRS) [12] sets S0, D0 and D- * - * as well as the upgraded KMRS set B0, all having u_bar not * - * equal to d_bar, * - * - Morfin and Tung (MT) sets 1 to 6 [13], * - * - Gl"uck, Reya and Vogt (GRV) [14] including their new para- * - * metrisation from August 1991, * - * - the set of Aurenche et al. (ABFOW) [15], * - * - the upgraded Martin, Roberts and Stirling (MRS) [16] sets * - * S0', D0' and D-' as well as the more recent MRS(H) set, all in * - * both, the MS_bar and the DIS renormalisation schemes, * - * - the upgraded Martin, Roberts and Stirling (MRS) [17] sets * - * S0', D0' and D-' in the DIS renormalisation scheme and MRS(H), * - * - the Berger and Meng (BM) [17] sets 1 and 2 with special gluon * - * distributions, * - * - the two first versions of the CTEQ collaboration (CTEQ1 and * - * CTEQ2) [18], * - * - the set of Martin, Roberts and Stirling (MRS-A) [19] in form * - * of a grid and in form of a parametrisation, * - * - the two sets of Martin, Roberts and Stirling (MRS-A' and * - * MRS-G) [20] in form of a grid and in form of a parametrisation,* - * - the third versions of the CTEQ collaboration (CTEQ3) [21], * - * - the 1994 set of Gl\"{u}ck, Reya and Vogt (GRV) [22], * - * - the recent sets of Martin, Roberts and Stirling for low Q^2 * - * (MRS-A lQ) [23] and the MRS-A' sets for 6 different values of * - * alpha_s (MRS-Ap-150 to MRS-Ap-542) [24], * - * - the more recent sets of Martin, Roberts and Stirling (MRS-J * - * and MRS-Jp) [25] and the latest sets R1 to R4 (MRS-R1 to * - * MRS-R4) [26] in form of a grid and in form of a parametrisa- * - * tion, * - * - the fourth versions of the CTEQ collaboration (CTEQ4) [27], * - * * - * and finally * - * * - * - the LO and NLL sets of Gl\"{u}ck, Reya, Stratmann and * - * Vogelsang (GRSV) [28] of polarized parton densities, * - * * - * The different NLL sets use either the DIS [44] or the MS_bar * - * renormalisation scheme. Some of the sets are available in both * - * renormalisation schemes. All sets are made using four flavours in * - * the initial state (NF = 4). The value of the QCD scale factor, * - * Lambda_4(QCD), ranges from 45 to 500 MeV. * - * * - * A summary of all parton density functions of the NUCLEON avai- * - * lable in the package can be found in Table 1. * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - ******************************* - 10 - ******************************** -1*********************************************************************** - * * - * 1.3. Structure Functions of the Pion * - * * - * * - * There is also a limited number of parton density functions of * - * the PION available. These are the old set to leading order evolu- * - * tion of * - * * - * - Owens (OW-P) [29], sets 1 and 2, * - * * - * and the next-to-leading order evolutions of * - * * - * - Aurenche et al. (ABFKW-P) [30], sets 1, 2 and 3, * - * - Sutton, Martin, Roberts and Stirling (SMRS-P) [31], sets 1, 2 * - * and 3 and * - * - Gl"uck, Reya and Vogt (GRV-P) [32], the LO and NLL sets. * - * * - * A summary of all parton density functions of the PION availble * - * in the package can be found in Table 2. * - * * - * * - * * - * * - * 1.4. Structure Functions of the Photon * - * * - * * - * In addition there are also a few parton density functions of * - * the PHOTON available. These are the old sets to leading order evo- * - * lution of * - * * - * - Duke and Owens (DO-G) (and the NLL) [33] using an asymptotic * - * solution of the Altarelli-Parisi equation, * - * - Drees and Grassie (DG-G) sets 1 to 4 [34] using a full solu- * - * tion of the Altarelli-Parisi equation, * - * - Abramowicz, Charchula and Levy (LAC-G) [35] sets 1 to 3 using * - * a full solution of the Altarelli-Parisi equation, * - * * - * and of * - * * - * - Watanabe, Hagiwara, Izubuchi and Tanaka (WHIT1 to WHIT6) [36], * - * * - * and the next-to-leading order evolution of * - * * - * - Gordon and Storrow (GS-G) [37], the LO sets 1 and 2 and the * - * NLL set, * - * - Gl"uck, Reya and Vogt (GRV-G) [38], the LO, NLL and the * - * leading term of the NLL sets, * - * - Aurenche et al. (ACFGP-G) [39] sets 1 and 2, without and with * - * massive charm, * - * * - * and finally * - * * - * _ the LO and NLL sets of Aurenche, Fontannaz and Guillet, * - * (AFG-G) [40]. * - * * - * Recently new sets of of the parton densities of the photon have * - * been come out: * - * * - * - Schuler and Sjostrand (SaS-G) [41], * - * - the new sets of Gl"uck, Reya and Stratmann (GRG-G) [42], * - * and * - * - the new sets LO and NLL of Gordon and Storrow (GS-G) [43]. * - * * - * A summary of all parton density functions of the PHOTON avai- * - * lable in the package can be found in Table 3. * - * * - * * - ******************************* - 11 - ******************************** -1*********************************************************************** - * * - * 1.5 The Library PDFLIB * - * * - * * - * We have put together all these different sets of parton density * - * functions in ONE SINGLE PACKAGE [45]. This library PDFLIB can be * - * found in and obtained from the CERN Computer Program Library under * - * the registration number W5051. * - * * - * Please notice that the use of the PDFLIB library does not pre- * - * vent to consult the publications of the different authers, which * - * can be found in the bibliography of this manual, for details about * - * each parton density function. * - * * - * We have modified the sets such that NO external data files for * - * the grids have to be read in anymore. All these structure function * - * sets have been combined in a consistent way such that they all * - * appear in an IDENTICAL STRUCTURE to the user. The selection is * - * made via THREE parameters, NPTYPE, NGROUP and NSET, which identify * - * a PDF set by its PARTICLE TYPE (Nucleon: NPTYPE = 1, * - * Pion: NPTYPE = 2, Photon: NPTYPE = 3), its AUTHOR GROUP (f.ex. * - * MRS: NGROUP = 3, CTEQ: NGROUP = 4, GRV: NGROUP = 5) and its PDF * - * SET WITHIN THE GROUP (NSET = 1,2,3 etc.). These parameters should * - * be set with a call to subroutine PDFSET at the initialization * - * phase. A simple SUBROUTINE call, which is IDENTICAL for all appli- * - * cations (nucleons, pions, photons) returns the parton densities * - * for all partons (u, d, s, c, b, t, gluon and their antiquarks) at * - * a given X value (where X is the fraction of the longitudinal * - * momentum carried by the parton) and the Q-scale SCALE (in GeV). * - * A DEFAULT set has been prepared, although those preferring their * - * OWN PRIVATE set or wanting to test a NEW one may do so within the * - * package. Error control can be obtained by setting a print flag to * - * obtain output either during execution and/or as a summary at job * - * termination via a call to the subroutine PDFSTA. * - * * - * The source code of the different parton density sets has been * - * modified in such a way that the library can be used on all the * - * different computer systems known today. Full backward compatibi- * - * lity will always be assured. PDFLIB has been run under different * - * operating systems like VM/CMS, VAX/VMS and ULTRIX without pro- * - * blems. The library has been tested on the different system areas * - * to ensure identical results within the given machine precision. * - * The program has been run and tested on the following computers: * - * IBM 3090, VAX, IBM-RISC, DECS, SUN, APOLLO, HP-UX, Silicon * - * Graphics, CDC, CRAY, IBM-PC. The programming language is * - * FORTRAN 77. The actual source code manager system used is CVS. * - * The required memory storage including testprograms and some docu- * - * mentation is about 25 Mbytes. The latest edition (July 1997) * - * is version 7.09 and can be requested from the CERN Computer * - * Program Library. To run PDFLIB a link to the CERN library * - * (PACKLIB, MATHLIB and KERNLIB) is required. * - * * - * * - * * - * 1.6. Calculation of the Stroing Coupling constant alpha(s) * - * * - * * - * Within the SAME package a program is also provided to calculate * - * the strong coupling constant alpha(s) to second order (default) * - * or to first order (by user's choice). The correct Lambda(QCD) as- * - * sociated to the selected set of structure functions and the number * - * of allowed flavours with respect to the given Q**2 is automati- * - * cally used in the calculation. For those structure functions where * - * the evolution has been performed to leading order only, the * - * alpha(s) value to first order is returned. * - * * - * * - ******************************* - 12 - ******************************** -1*********************************************************************** - * * - * 2. Application of the Parton Density Package PDFLIB * - * * - * * - * In the following the use of and the access to the PDFLIB pack- * - * age is described. * - * * - * * - * * - * 2.1 Parameter Setting and Selection of Sets * - * * - * * - * To access his/her preferred set of structure functions the user * - * must define the THREE parameters, NPTYPE, NGROUP and NSET, which * - * identify each set of parton density functions via a call to the * - * subroutine * - * * - * CALL PDFSET(PARM,VALUE) * - * * - * at the initialization phase of his/her MAIN program, or use the * - * package as a 'black box' with the default values (see below). An * - * example of the application of PDFLIB is given in the appendix. The * - * arguments PARM and VALUE are VECTORS of DIMENSION 20 and have the * - * following meaning * - * * - * PARM(I) = character*20 variable, which defines in any order * - * the variables * - * 'NPTYPE', 'NGROUP', 'NSET', 'MODE', 'INIT0', * - * 'NFL', 'LO', 'TMAS', 'QCDL4', 'QCDL5' and * - * 'XMIN', 'XMAX', 'Q2MIN', 'Q2MAX' * - * VALUE(I) = the corresponding numerical value of the variable * - * PARM(I) * - * (TMAS, QCDL4, QCDL5, XMIN, XMAX, Q2MIN and Q2MAX * - * are DOUBLE PRECISION variables), * - * * - * where * - * * - * NPTYPE = number of particle type ranging from 1 to 3 * - * (Nucleons: NPTYPE = 1, Pions: NPTYPE = 2 and * - * Photons: NPTYPE = 3) * -* (Default: NPTYPE = 1) * - * NGROUP = number of author group ranging from 1 to 9 * - * (Default: NGROUP = 3) * - * NSET = number of a selected structure function set within * - * the author group ranging from 1 to 58 * - * (Default: NSET = 41) * - * (MODE = number of a selected structure function set ranging * - * from 0 to 281 - OLD format !!) * - * (Default: MODE = 45) * - * INIT0 = in case of PARM(1) = 'INIT0' PDFSET fills as the * - * only action the COMMON blocks /W505110/, /W505120/ * - * /W505121/ and /W505122/ * - * NFL = desired number of flavours in the alpha(s) calcula- * - * tion ranging from 3 to 6 * - * (Default: NFL = 5) * - * LO = order of alpha(s) calculation; if LO = 1, alpha(s) * - * to first order only * - * (Default: LO = 2) * - * TMAS = the user defined value of the top-quark mass in * - * GeV/c**2 (optional) * - * (Default: TMAS = 180.0D0) * - * QCDL4 = QCD scale, Lambda_4(QCD), in GeV for four flavours * - * QCDL5 = QCD scale, Lambda_5(QCD), in GeV for five flavours * - * corresponding to QCDL4 * - * * - * and * - * * - ******************************* - 13 - ******************************** -1*********************************************************************** - * * - * XMIN = minimum allowed X value * - * XMAX = maximum allowed X value * - * Q2MIN = minimum allowed Q**2 value (in (GeV/c)**2) * - * Q2MAX = maximum allowed Q**2 value (in (GeV/c)**2) * - * * - * for each set of structure functions. * - * * - * Please also note that PDFSET can be called as often as the user * - * likes. In order to redefine the parameters to select other sets of * - * structure functions which the user wants to investigate, it might * - * be necessary to call PDFSET in an alternating way, but it is al- * - * ways mandatory to transfer either the THREE parameters, NPTYPE, * - * NGROUP, NSET, or the 'NAME' of the author group with their corres- * - * ponding VALUE values. The subroutine PDFSET fills the internal * - * COMMON blocks * - * * - * COMMON/W50511/ NPTYPE,NGROUP,NSET,MODE,NFL,LO,TMAS * - * COMMON/W50512/ QCDL4,QCDL5 * - * COMMON/W50513/ XMIN,XMAX,Q2MIN,Q2MAX * - * * - * at the time the routine is called. Please note that in case of a * - * multiple call to PDFSET with fewer parameters redefined than in a * - * preceeding call, always the last parameters are kept in memory. * - * All variables of the three COMMON blocks can be automatically * - * printed at job initialisation by setting the print flag IFLPRT in * - * the COMMON block * - * * - * COMMON/W50510/ IFLPRT * - * * - * to IFLPRT = 2. * - * * - * The program is protected against calculations of Q^2 values * - * below Q2MIN (in this case Q^2 = Q2MIN) and of X values in unphysi- * - * cal regions (X < 0 or X > 1). The execution of the program is * - * stopped in the later case. To control how often the X or Q^2 ran- * - * ges have been exceeded during execution of the user's program a * - * call to the subroutine * - * * - * CALL PDFSTA * - * * - * at the termination phase of his/her MAIN program allows to print a * - * summary of these errors. The print flag in the COMMON/W50510/IFLPRT* - * may be set to IFLPRT = 3 to print an error message EACH TIME a * - * limit has been exceeded during job execution. Please note that * - * this may produce an ENORMOUS AMOUNT OF OUTPUT ! * - * * - * * - * * - * * - * * - * 2.2 The Calling Sequence: PDFLIB Format * - * * - * * - * The main steering routine for a set of structure functions is * - * accessed as follows: * - * * - * CALL STRUCTM(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL) * - * * - * Please note that all variables are defined as DOUBLE PRECISION. * - * The user has to provide the following INPUTs: * - * * - * X = X value of parton * - * SCALE = QCD scale in GeV * - * * - * The subroutine STRUCTM returns the following OUTPUT: * - * * - ******************************* - 14 - ******************************** -1*********************************************************************** - * * - * UPV = up valence quark * - * DNV = down valence quark * - * USEA = sea (up_bar) * - * DSEA = sea (down_bar) * - * STR = strange quark * - * CHM = charm quark * - * BOT = bottom quark * - * TOP = top quark * - * GL = gluon * - * * - * In case up_bar is not given separately from down_bar it is set * - * USEA = DSEA. * - * * - * The recommended set of structure functions from the different * - * authors is put in bold characters. If NSET is set to zero (or if * - * any of the parameters, NPTYPE, NGROUP or NSET, is undefined) ONE * - * DEFAULT SET is selected which is always the Nucleon parton densi- * - * ties, the set of MRS set G (NPTYPE = 1, NGROUP = 3, NSET = 41), * - * also in case of NPTYPE = Pion or Photon. * - * * - * Please note that in any of the calling sequences for the * - * nucleon, the pion and the photon it is always returned * - * X * parton distribution function ! * - * * - * * - * * - * * - * 2.3 The Calling Sequence: PDG Format * - * * - * * - * To allow the use of the package with the flavour code conven- * - * tion of the Particle Data Group (PDG) an interface has been writ- * - * ten which translates the PDFLIB format (see Section 2.2) into the * - * PDG format. Instead of calling the subroutine STRUCTM the user * - * preferring the flavour code convention of the PDG accesses the * - * package via a call to the subroutine * - * * - * CALL PFTOPDG(X,SCALE,DXPDF). * - * * - * All variables are defined as DOUBLE PRECISION as before, and * - * X and SCALE are INPUTs provided by the user having the same * - * meaning as before. * - * * - * The subroutine PFTOPDG outputs a vector DXPDF(-6:6) of which * - * its variables have the following meaning: * - * * - * DXPDF(0) = gluon * - * DXPDF(1) = sum of down valence + down_bar quark * - * DXPDF(2) = sum of up valence + up_bar quark * - * DXPDF(3) = strange quark * - * DXPDF(4) = charm quark * - * DXPDF(5) = bottom quark * - * DXPDF(6) = top quark * - * and DXPDF(-1) to DXPDF(-6) are the corresponding antiquarks. * - * * - * DXPDF(-1) = DXPDF(-2) stands for down_bar = up_bar or * - * (down_bar + up_bar)/2 in almost all parametrisations. In case * - * where u_bar is not equal to d_bar DXPDF(-1) = d_bar and * - * DXPDF(-2) = u_bar. In all sets is DXPDF(3) = DXPDF(-3), * - * DXPDF(4) = DXPDF(-4), DXPDF(5) = DXPDF(-5) and * - * DXPDF(6) = DXPDF(-6) so far. * - * * - * * - * * - * * - * * - ******************************* - 15 - ******************************** -1*********************************************************************** - * * - * 2.4 Error Handling * - * * - * * - * A note of caution should be addressed here. All structure * - * functions are limited in X and Q**2 which range for most of the * - * sets from * - * * - * 4 - 10 < Q**2 < 10**6 - 10**8 (GeV/c)**2 * - * 10**{-5} - 10**{-4} < X < 1. * - * * - * If the user wants to extend the X or Q**2 ranges, it is pos- * - * sible for some of the structure function sets, but the result * - * should be looked at with great caution. If in doubt, please check * - * with the authors of the structure function set. The program is * - * protected against calculations of Q**2 values below Q2MIN (in this * - * case Q**2 = Q2MIN) and of X values in unphysical regions (X < 0 or * - * X > 1). The execution of the program is stopped in the later case. * - * * - * A COMMON block can be accessed * - * * - * COMMON/W50513/ XMIN,XMAX,Q2MIN,Q2MAX * - * * - * where * - * * - * XMIN = minimum allowed X value * - * XMAX = maximum allowed X value * - * Q2MIN = minimum allowed Q**2 value (in (GeV/c)**2) * - * Q2MAX = maximum allowed Q**2 value (in (GeV/c)**2) * - * * - * is given for each set of structure functions. To control how often * - * the X or Q**2 ranges have been exceeded during execution of the * - * user's program a call to the subroutine * - * * - * CALL PDFSTA * - * * - * at the termination phase of his/her MAIN program allows to print * - * a summary of these errors. If the COMMON block * - * * - * COMMON/W50514W/ PDFWGT * - * * - * where * - * * - * PDFWGT = weight * - * * - * is filled by the user on an event-to-event basis the statistics * - * in the error summary takes into account this weight. * - * * - * The print flag in the COMMON/W50510/IFLPRT may be set to * - * IFLPRT = 3 to print an error message EACH TIME a limit is exeeded * - * during job execution. Please note that setting this flag may pro- * - * duce an ENORMOUS AMOUNT of output! * - * * - * * - * * - * * - * 2.5 Features * - * * - * * - * If NPTYPE = 1, NGROUP = 1 and NSET = 1, the user has the possi- * - * bility to use his/her own private set of structure functions * - * (i.e. CDHS effective structure functions could be inseted here, * - * or the user could implement a new set of structure functions for * - * testing purposes). To insert the private set the DUMMY subroutine * - * * - * SUBROUTINE STRPRIV(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL) * - * * - ******************************* - 16 - ******************************** -1*********************************************************************** - * * - * should be activated by the user. All variables have to be defined * - * as DOUBLE PRECISION. The variables have the same meaning as des- * - * cribed for the subroutine STRUCTM in Section 2.2 (for explanations * - * see there). * - * * - * For the calculation of the strong coupling constant alpha(s) * - * (see Section 3) with the user's private set of structure functions * - * the user should provide a value for the variables QCDL4 and QCDL5 * - * via the subroutine PDFSET at the initialization phase. In fact, * - * because only the parameter QCDL5 is used in the alpha(s) calcul- * - * ation, only this definition is mandatory. * - * * - * * - * * - * * - * 2.6. How to find PDFLIB * - * * - * * - * At CERN the PDFLIB library and corresponding documentation are * - * available on all systems in the standard areas. * - * * - * System Library * - * * - * VXCERN CERN:[NEW.LIB]PDFLIB.OLB * - * Unix systems /cern/new/lib/libpdflib.a * - * * - * * - * At CERN on Unix systems the package may be accessed via the * - * 'cernlib' command: * - * * - * \ 'cernlib pdflib packlib mathlib kernlib' \ * - * * - * All necessary information about PDFLIB can also be found on the * - * World Wide Web via the path 'CERN.Computing.CERNLIB.documentation' * - * or directly as * - * * - * for the flat version : * - * http://wwwcn.cern.ch/asdoc/pdflib/pdflib.html * - * or for the PostScript version : * - * http://wwwcn.cern.ch/asdoc/psdir/pdflib.ps.gz * - * * - * The source code of PDFLIB may be obtained from asisftp.cern.ch * - * via anonymous ftp with: * - * * - * get /cernlib/share/new/src/mclibs/pdf or * - * get /cernlib/share/new/src/mclibs/pdf.tar or * - * get /cernlib/share/new/src/mclibs/pdf.tar.gz * - * * - * even, if the last two files are not visible via the command 'ls'. * - * * - * * - * Whenever you use this program, please give reference to the * - * following papers: * - * * - * H. Plothow-Besch, 'The Parton Distribution Function Library', * - * Int. J. Mod. Phys. A10 (1995) 2901-2920. * - * * - * and/or * - * * - * H. Plothow-Besch, 'PDFLIB: A Library of all available Parton * - * Density Functions of the Nucleon, the Pion and the Photon and * - * the corresponding alpha_s Calculations', * - * Comp. Phys. Comm. 75 (1993) 396-416. * - * * - * and/or * - * * - ******************************* - 17 - ******************************** -1*********************************************************************** - * * - * H. Plothow-Besch, 'PDFLIB: Structure Functions and alpha_s * - * Calculations', * - * User's Manual - Version 1.00, W5051 PDFLIB, * - * 1991.03.21, CERN-PPE. * - * * - * and/or * - * * - * H. Plothow-Besch, 'PDFLIB: Nucleon, Pion and Photon Parton * - * Density Functions and alpha_s Calculations', * - * Users's Manual - Version 7.09, W5051 PDFLIB, * - * 1997.07.02, CERN-PPE. * - * * - * * - * * - * * - * 3. PION and PHOTON Parton Densities * - * * - * * - * The calling sequences to the PION and the PHOTON sets of parton * - * densities is kept identical to those described in Sections 2.2 and * - * 2.3 for the nucleon structure functions. * - * * - * In case of the PION structure functions it is set and returned * - * UPV = DNV, SEA = STR (USEA = DSEA = STR) and TOP = 0 * - * (DXPDF(1) = DXPDF(2), DXPDF(3) = DXPDF(-1) = DXPDF(-2) and * - * DXPDF(6) = 0). * - * * - * In case of the PHOTON structure functions it is set and * - * returned UPV = USEA, DNV = DSEA and TOP = 0 * - * (DXPDF(1) = 2 * DXPDF(-1), DXPDF(2) = 2 * DXPDF(-2), as a result * - * of the definitions - see Section 2.3 -, and DXPDF(6) = 0), while * - * all the other quarks are set identical to their antiquark densi- * - * ties. Note that the alpha_(QED) has to be taken care of by the * - * user ! * - * * - * To take into account the need for more input parameters for * - * parton densities of the photon a NEW SUBROUTINE STRUCTP has been * - * added which should be called instead of STRUCTM in case of appli- * - * cations of the photon. Therefore, the main steering routine for a * - * set of structure functions of the photon should now be accessed * - * as follows: * - * * - * CALL STRUCTP(X,Q2,P2,IP2,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL) * - * * - * Please note that all variables (INPUT and OUTPUT) are defined as * - * DOUBLE PRECISION. The user has now to provide the following * - * INPUTs: * - * * - * X = x value of parton * - * Q2 = QCD scale in GeV**2 * - * P2 = virtuality of the photon in GeV**2, * - * should be = 0 for an on-shell photon * - * IP2 = parameter to evaluate off-shell anomalous component * - * * - * The OUTPUT parameters are defined as for STRUCTM (see * - * Section 2.2). * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - ******************************* - 18 - ******************************** -1*********************************************************************** - * * - * 4. alpha(s) Calculation * - * * - * * - * Within the same package a program is provided to calculate the * - * strong coupling constant alpha(s) to second order as a function * - * of Lambda(QCD) of five flavours and the desired number of fla- * - * vours (NFL) for the selected set of structure functions, which * - * fixes Lambda(QCD). The formula on which the calculations are * - * based upon can be found in Ref. [46]. The same three parameters, * - * NPTYPE, NGROUP and NSET, which select a structure function set, * - * is used to steer the calculation of the alpha(s) value at a given * - * scale from the Lambda(QCD) defined in the selected structure * - * function. * - * * - * The value of alpha(s) is matched at the thresholds q = m_q. * - * When invoked with NFL < 0, it chooses NFL as the number of fla- * - * vours for which the masses are less then q. For the quark masses * - * where thresholds are changed the following values have been used: * - * m_charm = 1.5 GeV/c**2, m_bottom = 4.75 GeV/c**2 and * - * m_top = 180 GeV/c**2. * - * * - * The alpha(s) value can be obtained via a call to: * - * FUNCTION ALPHAS2(SCALE) * - * * - * The user has to provide the following INPUT: * - * * - * SCALE = QCD scale in GeV * - * * - * The function ALPHAS2 returns the following OUTPUT: * - * * - * ALPHAS2 = alpha strong to second order, * - * * - * if LO not equal to one. For those structure functions, for which * - * the evolution is done to leading order only, alpha(s) to first * - * order is returned. * - * * - * The same subroutine * - * * - * SUBROUTINE PDFSET(PARM,VALUE) * - * * - * as described in Section 2.1 should be used to change the default * - * values of the variables NPTYPE, NGROUP, NSET, NFL, LO, TMAS, * - * QCDL4, QCDL5, XMIN, XMAX, Q2MIN and Q2MAX. * - * * - * The internal COMMON block * - * * - * COMMON/W50512/ QCDL4,QCDL5 * - * * - * where * - * * - * QCDL4 = QCD scale, Lambda_4(QCD), in GeV for four flavours * - * QCDL5 = QCD scale, Lambda_5(QCD), in GeV for five flavours * - * corresponding to QCDL4 * - * * - * provides the actual value of Lambda_4(QCD) and Lambda_5(QCD) used * - * in the alpha(s) calculation for four and five flavours, respectiv- * - * ly, for each set of structure functions. * - * * - * * - * * - * * - * * - * * - * * - * * - * * - ******************************* - 19 - ******************************** -1*********************************************************************** - * * - * 5. Conclusions * - * * - * * - * In the Long Write-up as an example, the NUCLEON structure * - * function distributions at the scale Q**2 = m_W**2 for up valence * - * lence quark is shown in Figs. 1 as a function of the parton X. * - * The average X values for CERN and FNAL as well as for LHC and SSC * - * energies at that scale are indicated. It can be seen from that * - * figures that there is a large spread in shape for the different * - * sets leading to different results in a cross section calculation. * - * It should be pointed out that the spread from the different para- * - * metrisations in the SAME renormalisation scheme is MUCH LARGER * - * than the spread of parametrisations in different renormalisation * - * schemes. This is valid for ALL parton densities, and in particular * - * at small X values ! * - * * - * A comparison to recent data is shown in Fig. 2, where the ratio * - * F_2(n)/F_2(p) at Q**2 = m_W**2 is displayed. Note that the older * - * sets of structure functions, namely the set of Owens and Reya [2] * - * and the set of Baier et al. [3] have only been implemented for * - * completeness. These sets should not be used for cross section cal- * - * culations of any hard processes at high energies anymore. From * - * Fig. 2 we conclude that also the other older sets of structure * - * functions, namely the two sets of Duke and Owens [5] and the two * - * sets of Eichten et al. [6] should be used with some care, because * - * they do not fit the recent low energy deep-inelastic lepton-nuc- * - * leon data from NMC and BCDMS [47]. This is not surprising because * - * these data were not available when the sets have been made. The * - * new set of DO 1.1 superseeds the old DO sets 1 and 2 but still * - * gives very limited results in the low X region, even though data * - * are available there. We conclude that the recent sets of parton * - * densities could be preferred for all theoretical predictions in- * - * volving structure functions, because they fit the present nucleon * - * data best. * - * * - * In Fig. 3 the F_2(p) distribution of the recent data from Ref. * - * [48] at Q**2 = 5 GeV**2, together with the recent data at Q**2 = * - * 15 GeV**2 from the H1 and the ZEUS experiments [49] at the ep- * - * collider HERA is shown as a function of X. Overlayed on the same * - * Figure are a few theoretical predictions of more recent parton * - * parametrisations [12-16] at Q**2 = 15 GeV**2. Please note that * - * most of these parametrisations are NOT TRUE predictions because * - * the data are fully or partially used in the fits. From Figs. 2 * - * and 3 we conclude that the recent sets of parton densities, namely * - * the GRV set HO [14], but also the old MT set B2 [13] - both sets * - * are true predictions -, and the updated MRS set (H) [16], could * - * be preferred for all theoretical predictions involving structure * - * functions, because they fit the present data best which, at the * - * moment,are still suffering from large uncertainties. * - * * - * Figure 4 shows a comparison of F_2(\gamma)/alpha_(QED) at * - * Q**2 = 100 GeV**2 of the different PHOTON structure function sets * - * as a function of X. The charm quark density has been taken into * - * account. The theoretical predictions are compared with experimen- * - * tal data from the JADE experiment [50] at the same Q**2 value. Be- * - * cause of large experimental uncertainties no distinction between * - * the different parton density sets can be made yet. * - * * - * The response from the Physics community has been very satisfac- * - * tory, which is encouraging us to keep up-to-date with the latest * - * developments in this area. Therefore, please CONTINUE SENDING YOUR * - * FEEDBACK ON THE USAGE AND POSSIBLE IMPROVEMENTS TO US. Coming new * - * sets of structure functions should be easily implemented in the * - * package. Authors of {\bf new sets} are kindly asked to PROVIDE US * - * with the RELEVANT INFORMATION. PLEASE RETURN ANY PROBLEMS, QUES- * - * * - ******************************* - 20 - ******************************** -1*********************************************************************** - * * - * TIONS, SUGGESTIONS FOR IMPROVEMENTS TO THE AUTHOR OF THE PACKAGE * - * (e-mail address: plothow@mail.cern.ch). * - * * - * * - * * - * * - * * - * * - * 5. Acknowledgements * - * * - * * - * The author of the package would like to thank * - * M.A. Marquina/CERN-CN for help and support making this package * - * available to the Physics community as part of the CERN Program * - * Library. In addition we give many thanks to G. Folger/CERN-CN and * - * I. McLaren/CERN-CN for thoroughly testing out the package on the * - * different system areas. * - * * - * We also would like to thank J.M. Marraffino/FNAL for the help- * - * ful comments and the correction set which he supplied. * - * * - * And finally we acknowledge K. Charchula/DESY who provided the * - * source code of some of the photon structure functions which had * - * previously been implemented in the package. * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - ******************************* - 21 - ******************************** -1*********************************************************************** - * * - * References * - * * - * * - * [1] A.J.Buras and K.J.F. Gaemers : Nucl. Phys. B132 (1978) 249; * - * BEBC WA 59 Collaboration, K. Varnell et al., Z. Phys. C36 (1987) 1. - * * - * [2] J.F.Owens and E. Reya : Phys. Rev. D17 (1978) 3003. * - * * - * [3] R. Baier, J. Engels and B. Petersson : Z. Phys. C2 (1979) 265. * - * * - * [4] Gl"uck, E. Hoffman and E. Reya : Z. Phys. C13 (1982) 119. * - * * - * [5] D.W. Duke and J.F.Owens : Phys. Rev. D30 (1984) 49. * - * * - * [6] E. Eichten, I Hinchliffe, K. Lane and C. Quigg : * - * Rev. Mod. Phys. 56 (1984) 579 and Rev. Mod. Phys. 58 (1985) 1065. - * * - * [7] M. Diemoz, F. Ferroni, E. Longo and G. Martinelli : * - * Z. Phys. C39 (1988) 21. * - * * - * [8] J.F.Owens : Phys. Lett. 266B (1991) 126. * - * * - * [9] A.D. Martin, R.G. Roberts and W.J. Stirling : Phys.Rev. D37 (1988) 1161; - * Phys. Lett. 206B (1988) 327 and Mod. Phys. Lett. A4 (1989) 1135. - * * - * [10] P.N. Harriman, A.D. Martin, R.G. Roberts and W.J. Stirling : * - * Phys. Rev. D42 (1990) 798 and Phys. Lett. 243B (1990) 421. * - * * - * [11] J. Kwiecinski, A.D. Martin, R.G. Roberts and W.J. Stirling : * - * Phys. Rev. D42 (1990) 3645; * - * A.D. Martin, R.G. Roberts and W.J. Stirling : * - * Phys. Rev. D43 (1991) 3648. * - * * - * [12] A.D. Martin, R.G. Roberts and W.J. Stirling : * - * Phys. Rev. D47 (1993) 867. * - * * - * [13] J. Morfin and W.K. Tung : Z. Phys. C52 (1991) 13. * - * * - * [14] M. Gl"uck, E. Reya and A. Vogt : Z. Phys. C48 (1990) 471; * - * Z. Phys. C53 (1992) 127 and Phys. Lett. 306B (1993) 391. * - * * - * [15] P. Aurenche et al. : Phys. Rev. D39 (1989) 3275. * - * * - * [16] A.D. Martin, R.G. Roberts and W.J. Stirling : * - * Phys. Lett. 306B (1993) 147 and Erratum-ibid. 309B (1993) 492; * - * Durham Preprint, DTP/93/86 (1993). * - * * - * [17] E.L. Berger and R. Meng : Phys. Lett. 304B (1993) 318; * - * CERN-TH 6739/92; ANL-HEP-CP-92-108 and * - * E.L. Berger, R. Meng and J. Qiu : ANL-HEP-CP-92-79. * - * * - * [18] CTEQ collaboration, J. Botts et al. : Phys. Lett. 304B (1993) 159. - * * - * [19] A.D. Martin, R.G. Roberts and W.J. Stirling : * - * Phys. Rev. D50 (1994) 6734. * - * * - * [20] A.D. Martin, R.G. Roberts and W.J. Stirling : * - * Phys. Lett. 354B (1995) 155; * - * A.D. Martin, R.G. Roberts and W.J. Stirling : * - * RAL Preprint, RAL/95-021 (1995). * - * * - * [21] CTEQ collaboration, MSUHEP-41024. * - * * - * [22] M. Gl"uck, E. Reya and A. Vogt : Z. Phys. C67 (1995) 433. * - * * - * * - ******************************* - 22 - ******************************** -1*********************************************************************** - * * - * [23] A.D. Martin, R.G. Roberts and W.J. Stirling : * - * Phys. Rev. D51 (1995) 4756. * - * * - * [24] A.D. Martin, R.G. Roberts and W.J. Stirling : * - * Phys. Lett. 356B (1995) 89. * - * * - * [25] E.W.N. Glover, A.D. Martin, R.G. Roberts and W.J. Stirling : * - * Phys. Lett. 381B (1996) 353. * - * * - * [26] A.D. Martin, R.G. Roberts and W.J. Stirling : * - * Durham Preprint, DTP/96/44 (1996). * - * * - * [27] CTEQ collaboration, MSUHEP-60416, CTEQ-604. * - * * - * [28] M. Gl"uck, E. Reya, M. Stratmann and A. Vogelsang : * - * Phys. Lett. 359B (1995) 201; * - * Phys. Rev. D53 (1995) 4775. * - * * - * [29] J.F.Owens : Phys. Rev. D30 (1984) 943. * - * * - * [30] P. Aurenche et al. : Phys. Lett. 233B (1989) 517. * - * * - * [31] P.J. Sutton, A.D. Martin, R.G. Roberts and W.J. Stirling : * - * Phys. Rev. D45 (1992) 2349. * - * * - * [32] M. Gl"uck, E. Reya and A. Vogt : Z. Phys. C53 (1992) 651. * - * * - * [33] D.W. Duke and J.F.Owens : Phys. Rev. D26 (1982) 1600. * - * * - * [34] M. Drees and K. Grassie : Z. Phys. C28 (1985) 451. * - * * - * [35] H. Abramowicz, K. Charchula and A. Levy : * - * Phys. Lett. 269B (1991) 458. * - * * - * [36] K. Hagiwara et al. : Phys. Rev. D51 (1995) 3197. * - * * - * [37] L.E. Gordon and J.K. Storrow : Z. Phys. C56 (1992) 307. * - * * - * [38] M. Gl"uck, E. Reya and A. Vogt : Phys. Rev. D46 (1992) 1973 * - * and Phys. Rev. D45 (1992) 3986. * - * * - * [39] P. Aurenche et al. : Z. Phys. C56 (1992) 589. * - * * - * [40] P. Aurenche M. Fontannaz, J.Ph. Guillet : Z. Phys. C64 (1994) 621. - * * - * [41] G.A. Schuler and T. Sjostrand : Z. Phys. C68 (1995) 607 and * - * Phys. Lett. 276B (1996) 193. * - * * - * [42] M. Gl"uck, E. Reya, M. Stratmann : Phys. Rev. D51 (1995) 3220. * - * Phys. Rev. D53 (1995) 4775. * - * * - * [43] L.E. Gordon and J.K. Storrow : ANL-HEP-PR-96-33 and MC-TH-96-16. - * * - * [44] G. Altarelli, R.K. Ellis and G. Martinelli : * - * Nucl. Phys. B143 (1978) 521 and B157 (1979) 461. * - * * - * [45] H. Plothow-Besch, 'PDFLIB: Structure Functions and alpha(s) * - * Calculations', User's Manual - Version 1.00, W5051 PDFLIB, * - * 1991.03.21, CERN-PPE. * - * H. Plothow-Besch, 'PDFLIB: a library of all available parton * - * density functions of the nucleon, the pion and the photon * - * and the corresponding alpha(s) calculations', * - * Comp. Phys. Comm. 75 (1993) 396-416; * - * H. Plothow-Besch, 'The Parton Distribution Function Library', * - * Int. J. Mod. Phys. A10 (1995) 2901. * - * * - ******************************* - 23 - ******************************** -1*********************************************************************** - * * - * [46] Review of Particle Properties, June 1992, * - * Phys. Rev. D45 (1992), Part. II, p. III.54. * - * * - * [47] BCDMS Collaboration, A.C. Benvenuti et al. : * - * Phys. Lett. 237B (1990) 592 and Phys. Lett. 237B (1990) 599; * - * EMC Collaboration, M. Arneodo et al. : Nucl. Phys. B333 (1990) 1; - * NMC Collaboration, D. Allasia et al. : Phys. Lett. 249B (1990) 366; - * P. Amaudruz et al. : Nucl. Phys. B371 (1992) 3. - * * - * [48] NMC Collaboration, P. Amaudruz et al. : Phys. Lett. 295B (1992) 159. - * * - * [36] H1 Collaboration, I. Abt et al. : Nucl. Phys. B407 (1993) 515; * - * ZEUS Collaboration, M. Derrick et al. : Phys. Lett. 316B (1993) 412. - * * - * [50] JADE Collaboration, W. Bartel et al. : Z. Phys. C24 (1984) 231.* - * * - * [51] PAW, CERN Program Library Entry Q121, Long Write-up; * - * R. Brun, O. Couet, C. Vandoni and P Zanarini; * - * see also to References therein. * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - ******************************* - 24 - ******************************** -1*********************************************************************** - * * - * Appendix A * - * * - * * - * As an example how to use the package, the FORTRAN code to ob- * - * tain Fig. 1 of the Long Write-up which shows the parton density * - * function distributions for the up valence quark as a function of * - * the parton X for all sets of structure functions is given below: * - * * - * PROGRAM PDFUPV * - * C define the maximum number of PDF sets, the name and the cross reference - * PARAMETER (NPTYMX = 3, NGRMAX = 9, NSETMX = 58) * - * COMMON /W505120/ NPGSMX(NPTYMX,NGRMAX),NSETFL(NPTYMX,NGRMAX,NSETMX) - * CHARACTER*8 SFNAME(NPTYMX,NGRMAX,NSETMX) * - * COMMON /W505110/ SFNAME * - * COMMON /W505122/ MODECR(NPTYMX,NGRMAX,NSETMX) * - * C define HBOOK settings * - * PARAMETER (NHBMEM = 500000) * - * COMMON /PAWC/ HMEM(NHBMEM) * - * PARAMETER (NB=900, ID=100) * - * C define DOUBLE PRECISION variables for calling sequence to STRUCTM* - * DOUBLE PRECISION DX,DSCALE * - * DOUBLE PRECISION DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL * - * DOUBLE PRECISION ALF,ALPHAS2 * - * REAL X, SCALE, UPV, DNV, USEA, DSEA, STR, CHM, BOT, TOP, GL * - * COMMON/W50516/ FIRST * - * LOGICAL FIRST * - * CHARACTER*20 PARM(20) * - * DOUBLE PRECISION VAL(20) * - * DATA SCALE/80.140/ * - * DATA X00/0.002/,DX0/0.001/,XLOW/0.0015/,XUP/0.9015/ * - * C * - * CALL HLIMIT(NHBMEM) * - * DSCALE=SCALE * - * C first call to PDFSET to initialize COMMON/W505120/,/W505120/ and /W505122/ - * PARM(1) = 'Init0' * - * VAL(1) = 0.D0 * - * CALL PDFSET(PARM,VAL) * - * C loop over all existing sets of Nucleon structure functions (SF) * - * NPTYPE = 1 * - * NHB = 0 * - * DO 20 IGR = 1,NGRMAX * - * IF(NPGSMX(NPTYPE,IGR).EQ.0) GOTO 20 * - * DO ISET = 1,NPGSMX(NPTYPE,IGR) * - * C book histograms for each set of SF separately * - * NHB = NHB + 1 * - * CALL HBOOK1(ID+NHB,'U Valence quark ',NB,XLOW,XUP,0.) * - * C force label printing for each set of SF (not only the 1st) * - * FIRST = .TRUE. * - * C define and set parameters * - * PARM(1) = 'Nptype' * - * VAL(1) = NPTYPE * - * PARM(2) = 'Ngroup' * - * VAL(2) = IGR * - * PARM(3) = 'Nset' * - * VAL(3) = ISET * - * CALL PDFSET(PARM,VAL) * - * C loop over all X bins * - * DO 10 I=1,NB * - * X = X00 + (I-1)*DX0 * - * DX = X * - * IF(X.LT.XLOW .OR. X.GT.XUP) GOTO 10 * - * CALL STRUCTM(DX,DSCALE, * - * + DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) * - * UPV=DUPV * - * IF(X.GT.0.499 .AND. X.LE.0.500) WRITE(6,1000) X,SCALE,UPV * - * * - ******************************* - 25 - ******************************** -1*********************************************************************** - * * - * Example of Fig. 1, cont'd * - * * - * 1000 FORMAT(/,' X= ',F6.4,' Q= ',F6.3,' UPV= ',8.4) * - * CALL HF1(ID+NHB,X,UPV) * - * 10 CONTINUE * - * C get alpha(s) for selected set of SF at Q = SCALE * - * ALF = ALPHAS2(DSCALE) * - * WRITE(6,4000) NPTYPE,IGR,ISET,SFNAME(NPTYPE,IGR,ISET), * - * + MODECR(NPTYPE,IGR,ISET),NSF * - * WRITE(6,4001) DSCALE,ALF * - * 4000 FORMAT(/,' Nptype = ',I1,' Ngroup = ',I1,' Nset = ',I2, * - * + ' Name = "'A8,'" CrMode = ',I3,' HBId = ',I3) * - * 4001 FORMAT(1H ,' SCALE = ',F8.4,' alpha(s) = ',F6.4) * - * C get error summary for each set of SF * - * CALL PDFSTA * - * ENDDO * - * 20 CONTINUE * - * C * - * STOP * - * END * - * * - * * - * * - * * - * * - * This code will produce the following output: * - * * - * * - * 1. HBOOK Output : * - * * - * one histogram for each set of structure functions. The histo- * - * gram output has then been accessed, and each histogram has been * - * superimposed on one single frame using the PAW package [51] to * - * obtain Fig. 1 of the Long Write-up. * - * * - * * - * 2. Print Output (Example is given for NPTYPE = 1, * - * NGROUP = 3, NSET = 41 only : * - * * - * ___________________________________________________________________ * - *| |* - *| 1***** PDFLIB Version: 7.09 Released on 970702 at 16.05 in |* - *| the CERN Computer Program Library W5051 ***** |* - *| ***** Library compiled on 970702 at 16.05 ***** |* - *| |* - *| Nucleon PDFs: Ngroup = 3, Nset = 41, for MRS Set (G) Structure |* - *| ------------------------------------------------------------------|* - *| Functions |* - *| --------- |* - *| |* - *| X= 0.5000 Q= 80.140 UPV= 0.1176 |* - *| |* - *| Nptype = 1 Ngroup = 3 Nset = 41 Name = "MRS-G " CrMode = -1 HBId = 60 - *| Scale = 80.1400 alpha(s) = 0.1154 |* - *| |* - *| PDFLIB : Summary from PDFSTA |* - *| Nptype = 1 Ngroup = 3 Nset = 41 Name = "MRS-G " CrMode = -1|* - *| Nfl = -5 LO = 2 Tmas = 180.00 GeV/c**2 |* - *| QCDL4 = 0.2550 GeV, QCDL5 = 0.1708 GeV |* - *| Xmin = 0.10E-04, Xmax = 0.99999E+00, Q2min = 5.000 (GeV/c)**2, - *| Q2max = 0.27E+10 (GeV/c)**2 |* - *| |* - *| PDFSTA: NO errors occured |* - *|___________________________________________________________________|* - * * - * * - ******************************* - 26 - ******************************** -1*********************************************************************** - * * - * Appendix B * - * * - * * - * A list of subroutines, functions, COMMON blocks and parameters * - * of RELEVANCE to the user which are used in PDFLIB is given below: * - * * - * * - * List of relevant subprograms and COMMON blocks in PDFLIB: * - * * - * _________________________________________________________________ * - * | | * - * | (S = Subroutine, F = Function, C = COMMON, P = Parameter) | * - * | | * - * | ------------------------------------------------------------- | * - * | | * - * | S PDFSET : to set all parameters for PDFLIB | * - * | S STRUCTF : to access PDFLIB with output in PDFLIB format | * - * | S STRUCTM : to access PDFLIB with output in PDFLIB format | * - * | (with u_bar not equal to d_bar) | * - * | S STRUCTP : to access PDFLIB with output in PDFLIB format | * - * | for PHOTON structure functions | * - * | S PFTOPDG : to access PDFLIB with output in PDG format | * - * | S PDFSTA : to print summary of parameters and error statistics - * | F ALPHAS2 : to calculate alpha(s) to second order QCD | * - * | | * - * | C W50510 : IFLPRT - to set print flag | * - * | C W50511 : NPTYPE,NGROUP,NSET,MODE,NFL,LO,TMAS | * - * | - to select a structure function set, to | * - * | define number of flavours, flag for leading | * - * | order and value for the mass of the top quark | * - * | C W50512 : QCDL4,QCDL5 - contains Lambda_4(QCD) and | * - * | Lambda_5(QCD) (in GeV) | * - * | C W50513 : XMIN,XMAX,Q2MIN,Q2MAX - contains minimum and | * - * | maximum values of X and Q**2 | * - * | C W50516 : FIRST - to force printing name of structure | * - * | function set in case of multiple choices | * - * | C W50519 : NEWVER - flags NEW/OLD version of PDFLIB format| * - * | C W505110 : SFNAME - contains NAME (CHARACTER*8 array with | * - * | dimension SFNAME(NPTYMX,NGRMAX,NSETMX)) for | * - * | each set of PDFs | * - * | C W505120 : NPGSMX(NPTYMX,NGRMAX),NSETFL(NPTYMX,NGRMAX,NSETMX)* - * | - contains maximum number of stucture functions| * - * | per particle type and author group, and FLAG | * - * | for retracted PDF set (NSETFL(I,J,K) = 0), | * - * | C W505121 : NPTYCR(MODEMX),NGROCR(MODEMX),NSETCR(MODEMX) | * - * | - cross reference to the NPTYPE, NGROUP and | * - * | NSET value (NEW format) for a given MODE | * - * | value (OLD format) | * - * | C W505122 : MODECR(NPTYMX,NGRMAX,NSETMX) - cross reference | * - * | to the MODE value (OLD format) for a given | * - * | NPTYPE, NGROUP and NSET value (NEW format) | * - * | P W5051P2 : MODEMX - maximum number of structure function | * - * | sets in the OLD PDFLIB format | * - * | : NPTYMX,NGRMAX,NSETMX - maximum number of | * - * | structure function sets in the NEW PDFLIB | * - * | format for particle type, author group number | * - * | and number of sets within an author group | * - * | P W5051P7 : L6 - to define logical print unit number | * - * |_______________________________________________________________| * - * * - * * - * * - * * - * * - * * - * * - ******************************* - 27 - ******************************** -1*********************************************************************** - * * - * Appendix C * - * * - * * - * A complete list of subroutines, functions, COMMON blocks and * - * parameters which are used in PDFLIB is given below: * - * * - * * - * Complete list of subprograms and COMMON blocks in PDFLIB: * - * (in alphabetical order) * - * * - * _________________________________________________________________ * - * | | * - * | (S = Subroutine, F = Function, C = COMMON, P = Parameter) | * - * | | * - * | ------------------------------------------------------------- | * - * | | * - * | S ABFKW1 : ABFKW SF set 1 in the pion (NP=2,NG=6,NS=1) | * - * | S ABFKW2 : ABFKW SF set 2 in the pion (NP=2,NG=6,NS=2) | * - * | S ABFKW3 : ABFKW SF set 3 in the pion (NP=2,NG=6,NS=3) | * - * | S ACFGP1 : ACFGP SF set 1 in the photon (NP=3,NG=6,NS=1) | * - * | S ACFGP2 : ACFGP SF set 1 in the photon (mc) (NP=3,NG=6,NS=2)* - * | F AFCPLU : to get PD with massive charm for ACFGP | * - * | F AFGETFV : to interpolate PDs in grid for ACFGP | * - * | F AFGIN2 : to interpolate PDs in grid for ACFGP | * - * | F AFGINT : to interpolate PDs in grid for ACFGP | * - * | F AFPOLIN : to interpolate PDs in grid for ACFGP | * - * | F AFRATIN : to interpolate PDs in grid for ACFGP | * - * | F ALPHAS2 : to calculate alpha(s) to second order QCD | * - * | F AUGETFV : to interpolate logarithmically PDs in grid | * - * | S AURGAM : to get the PDs in the photon for ACFGP-G | * - * | S AURPI1 : to get the PDs in the pion for ABFKW-P set 1 | * - * | S AURPI2 : to get the PDs in the pion for ABFKW-P set 2 | * - * | S AURPI3 : to get the PDs in the pion for ABFKW-P set 3 | * - * | S AURPR : to get the PDs in the nucleon for ABFOW | * - * | F BBETA : DOUBLE PRECISION beta function using DGAMMA | * - * | F BETA : SINGLE PRECISION beta function using GAMMA | * - * | S BXF3 : BEP SF set for up and down valence quarks | * - * | S BXGLUE : BEP SF set for gluons | * - * | S BXQBAR : BEP SF set for antiquarks | * - * | F CTQ1OPD : CTEQ SF sets 1M, 1MS, 1ML, 1D and 1L | * - * | F CTQ1OPF : Description of CTEQ sets 1M, 1MS, 1ML, 1D, 1L | * - * | F CTQ1PD : CTEQ SF sets 1M, 1MS, 1ML, 1D and 1L | * - * | F CTQ1PF : Description of CTEQ sets 1M, 1MS, 1ML, 1D, 1L | * - * | F CTQ2OPD : CTEQ SF sets 2M, 2MS, 2ML, 2D and 2L | * - * | F CTQ2OPF : Description of CTEQ sets 2M, 2MS, 2ML, 2D, 2L | * - * | S CTQ2OPS : CTEQ SF sets 2M, 2MS, 2ML, 2D and 2L | * - * | F CTQ2PPD : CTEQ SF sets 2pM, 2pMS, 2pML, 2pD and 2pL | * - * | F CTQ2PPF : Description of CTEQ sets 2pM, 2pMS, 2pML, 2pD, 2pL* - * | S CTQ2PPS : CTEQ SF sets 2pM, 2pMS, 2pML, 2pD and 2pL | * - * | F CTQ3PD : CTEQ SF sets 3L, 3M and 3D | * - * | S CTQ3PDS : CTEQ SF sets 3L, 3M and 3D | * - * | F CTQ3PF : Description of CTEQ sets 3L, 3M and 3D | * - * | F CTQ4Fn : Description of CTEQ sets 4L, 4D, 4A1-A5, 4HJ and 4lQ - * | F CTQ4PnX : CTEQ SF sets 4L, 4D, 4A1-A5, 4HJ and 4lQ | * - * | S CTQ4RA1 : Parameters of CTEQ set 4 A1 | * - * | S CTQ4RA2 : Parameters of CTEQ set 4 A2 | * - * | S CTQ4RA4 : Parameters of CTEQ set 4 A4 | * - * | S CTQ4RA5 : Parameters of CTEQ set 4 A5 | * - * | S CTQ4RD : Parameters of CTEQ set 4 D | * - * | S CTQ4RHJ : Parameters of CTEQ set 4 HJ | * - * | S CTQ4RL : Parameters of CTEQ set 4 L | * - * | S CTQ4RM : Parameters of CTEQ set 4 M | * - * | S CTQ4RlQ : Parameters of CTEQ set 4 lQ | * - * | F DBFINT : to interpolate linearly PDs in grid (double precision) - * | S DFLM1 : interface to DFLM 160 (NP=1,NG=2,NS=7) | * - * |_______________________________________________________________| * - ******************************* - 28 - ******************************** -1*********************************************************************** - * _________________________________________________________________ * - * | Complete list of subprograms, cont'd | * - * | | * - * | S DFLM2 : interface to DFLM 260 (NP=1,NG=2,NS=8) | * - * | S DFLM3 : interface to DFLM 360 (NP=1,NG=2,NS=9) | * - * | S DFLM4 : interface to DFLM soft valence quarks (NP=1,NG=2,NS=1) - * | S DFLM5 : interface to DFLM hard valence quarks (NP=1,NG=2,NS=2) - * | S DFLM6 : interface to DFLM soft gluons (NP=1,NG=2,NS=3) | * - * | S DFLM7 : interface to DFLM hard gluons (NP=1,NG=2,NS=4) | * - * | S DFLM8 : interface to DFLM LO average fit (NP=1,NG=2,NS=5) * - * | S DFLM9 : interface to DFLM NLL average fit (NP=1,NG=2,NS=6)* - * | S DGPHO1 : DG SF set 1 in the photon (NP=3,NG=2,NS=1) | * - * | S DGPHO2 : DG SF set 2 in the photon (NP=3,NG=2,NS=2) | * - * | S DGPHO3 : DG SF set 3 in the photon (NP=3,NG=2,NS=3) | * - * | S DGPHO4 : DG SF set 4 in the photon (NP=3,NG=2,NS=4) | * - * | S DOPHO1 : DO SF set 1 in the photon (NP=3,NG=1,NS=1) | * - * | S DOPHO2 : DO SF set 2 in the photon (NP=3,NG=1,NS=2) | * - * | F DPOLIN : to interpolate PDs in grid (DOUBLE PRECISION) | * - * | S FXAVER : DFLM SF set of LO central average fit | * - * | S FXG160 : DFLM SF set of NLL with QCDL4 = 160 | * - * | S FXG260 : DFLM SF set of NLL with QCDL4 = 260 | * - * | S FXG360 : DFLM SF set of NLL with QCDL4 = 360 | * - * | S FXGHAR : DFLM SF set of LO hard gluon | * - * | S FXGSOF : DFLM SF set of LO soft gluon | * - * | S FXNLLA : DFLM SF set of NLL central average fit | * - * | S FXVHAR : DFLM SF set of LO hard valence | * - * | S FXVSOF : DFLM SF set of LO soft valence | * - * | F GAMFUN : to calculate GAMMA funct. in either SP or DP prec.* - * | F GAMMADO : to calculate GAMMA funct. in SP (Hastings) | * - * | F GHRDV : GHR SF set for down quarks | * - * | F GHRGL : GHR SF set for gluons | * - * | F GHRUV : GHR SF set for up quarks | * - * | F GHRXI : GHR SF set for antiquarks | * - * | F GHRXS : GHR SF set for strange quarks | * - * | F GR94FV : GRV94 SF set for up + down valence quarks + gluons* - * | F GR94FW : GRV94 SF set for antiquarks | * - * | F GR94FWS : GRV94 SF set for strange quarks | * - * | F GRSF1 : GRS SF set part1 in the photon | * - * | F GRSF2 : GRS SF set part2 in the photon | * - * | S GRSGALO : GRS SF set of LO in the photon (NP=3,NG=5,NS=4)| * - * | S GRSVH1 : GRSV SF set of pol. NLL standard (NP=1,NG=5,NS=10)* - * | S GRSVH2 : GRSV SF set of pol. NLL valence (NP=1,NG=5,NS=11) * - * | S GRSVL1 : GRSV SF set of pol. LO standard (NP=1,NG=5,NS=8) * - * | S GRSVL2 : GRSV SF set of pol. LO valence (NP=1,NG=5,NS=9)| * - * | S GRV94DI : GRV94 SF set of DIS in the nucleon (NP=1,NG=5,NS=7) - * | S GRV94HO : GRV94 SF set of MS_bar in the nucleon (NP=1,NG=5,NS=6) - * | S GRV94LO : GRV94 SF set of LO in the nucleon (NP=1,NG=5,NS=5)* - * | F GRVFGP : GRV SF set for gluons in the pion | * - * | F GRVFQBP : GRV SF set for s, c and b quarks in the pion | * - * | F GRVFV : GRV SF set for up + down valence quarks | * - * | F GRVFVP : GRV SF set for valence quarks in the pion | * - * | F GRVFW : GRV SF set for antiquarks and gluons | * - * | F GRVFWS : GRV SF set for strange, charm and bottom quarks| * - * | S GRVGAH0 : GRV SF set lead. terms of NLL in the photon (NP=3,NG=5,NS=1 - * | S GRVGAHO : GRV SF set of NLL in the photon (NP=3,NG=5,NS=2) * - * | S GRVGALO : GRV SF set of LO in the photon (NP=3,NG=5,NS=3)| * - * | F GRVGF : GRV SF set for u and d quarks and gluons in the photon - * | F GRVGFS : GRV SF set for s, c and b quarks in the photon | * - * | S GRVHO : GRV SF set of NLL (NP=1,NG=5,NS=3) | * - * | S GRVLO : GRV SF set of LO (NP=1,NG=5,NS=4) | * - * | S GRVPIHO : GRV SF set of NLL in the pion (NP=2,NG=5,NS=1) | * - * | S GRVPILO : GRV SF set of LO in the pion (NP=2,NG=5,NS=2) | * - * | S GSXCOR : to get X coordinates for SFGSHO + LO sets 1, 2 | * - * | S GS2XCOR : to get X coordinates for SFGSHO + LO 96 | * - * | S GS96HO : GS-96 SF set of HO in the photon (NP=3,NG=4,NS=4) * - * | S GS96LO : GS-96 SF set of LO in the photon (NP=3,NG=4,NS=5) * - * |_______________________________________________________________| * - ******************************* - 29 - ******************************** -1*********************************************************************** - * _________________________________________________________________ * - * | Complete list of subprograms, cont'd | * - * | | * - * | S HMRS1EB : Description of HMRS sets E, B (1.90-retracted) | * - * | S HMRS2EB : Description of HMRS sets E, B (3.90) | * - * | S HMRS3EB : Description of HMRS sets E, B (4.90) | * - * | S HMRSGEB : Description of HMRS sets E, E+, E- and B | * - * | S KMRSEB : Description of KMRS sets E and B | * - * | S KMRSGEB : Description of KMRS B0 with L=135,160,200,235 | * - * | S MRSDSHD : Description of MRS sets D0', S0', D-', (H) in DIS * - * | S MRSDSHP : Description of MRS sets D0', S0', D-', (H) | * - * | S MRSEB : Description of MRS sets E and B | * - * | S MRSEBP : Description of MRS sets E' and B' | * - * | S NEWDO1 : DO SF set 1.1 (NP=1,NG=1,NS=10) | * - * | S PDFSET : to set all parameters for PDFLIB | * - * | S PDFSTA : to print summary of param. and error statistics| * - * | S PDFVERS : to get date and time of PDFLIB Library release | * - * | F PDXMT : Description of MT sets 1 to 11 | * - * | S PDZXMT : MT SF sets 1 to 11 | * - * | S PFTOPDG : to access PDFLIB with output in PDG format | * - * | S PHLAC1 : interface to LAC-G set 1 in the photon | * - * | S PHLAC2 : interface to LAC-G set 2 in the photon | * - * | S PHLAC3 : interface to LAC-G set 3 in the photon | * - * | S RXDV : OR SF set for down valence quarks | * - * | S RXGLUE : OR SF set for gluons | * - * | S RXQBAR : OR SF set for antiquarks | * - * | S RXUD : OR SF set for the sum of up + down quarks | * - * | S SASAN1 : | * - * | S SASANO : | * - * | S SASBEH : | * - * | S SASDIR : | * - * | S SASGAM1 : | * - * | S SASGAM2 : | * - * | S SASVM1 : | * - * | S SASVMD : | * - * | S SEADIS : BEBC SF set for antiquarks | * - * | S SFABFOW : ABFOW SF set (NP=1,NG=6,NS=1) | * - * | S SFAFG1 : AFG SF set of NLL for Photons (NP=3,NG=6,NS=3) | * - * | S SFBMA : BM SF set A (NP=1,NG=7,NS=1) | * - * | S SFBMB : BM SF set B (NP=1,NG=7,NS=2) | * - * | S SFCTQ11 : CTEQ SF set 1L (LO) (NP=1,NG=4,NS=12) | * - * | S SFCTQ12 : CTEQ SF set 1M (NP=1,NG=4,NS=13) | * - * | S SFCTQ13 : CTEQ SF set 1MS (NP=1,NG=4,NS=14) | * - * | S SFCTQ14 : CTEQ SF set 1ML (NP=1,NG=4,NS=15) | * - * | S SFCTQ15 : CTEQ SF set 1D (NP=1,NG=4,NS=16) | * - * | S SFCTQ21 : CTEQ SF set 2L (LO) (NP=1,NG=4,NS=17) | * - * | S SFCTQ22 : CTEQ SF set 2M (NP=1,NG=4,NS=18) | * - * | S SFCTQ23 : CTEQ SF set 2MS (NP=1,NG=4,NS=19) | * - * | S SFCTQ24 : CTEQ SF set 2MF (NP=1,NG=4,NS=20) | * - * | S SFCTQ25 : CTEQ SF set 2ML (NP=1,NG=4,NS=21) | * - * | S SFCTQ26 : CTEQ SF set 2D (NP=1,NG=4,NS=22) | * - * | S SFCTQ31 : CTEQ SF set 3L (LO) (NP=1,NG=4,NS=29) | * - * | S SFCTQ32 : CTEQ SF set 3M (NP=1,NG=4,NS=30) | * - * | S SFCTQ33 : CTEQ SF set 3D (NP=1,NG=4,NS=31) | * - * | S SFCTQ41 : CTEQ SF set 4L (LO) (NP=1,NG=4,NS=32) | * - * | S SFCTQ42 : CTEQ SF set 4D (NP=1,NG=4,NS=33) | * - * | S SFCTQ43 : CTEQ SF set 4M (NP=1,NG=4,NS=34) | * - * | S SFCTQ44 : CTEQ SF set 4A1 (NP=1,NG=4,NS=35) | * - * | S SFCTQ45 : CTEQ SF set 4A2 (NP=1,NG=4,NS=36) | * - * | S SFCTQ46 : CTEQ SF set 4A4 (NP=1,NG=4,NS=38) | * - * | S SFCTQ47 : CTEQ SF set 4A5 (NP=1,NG=4,NS=39) | * - * | S SFCTQ48 : CTEQ SF set 4HJ (NP=1,NG=4,NS=40) | * - * | S SFCTQ49 : CTEQ SF set 4lQ (NP=1,NG=4,NS=41) | * - * | S SFDISA : MRS SF set A (DIS) (NP=1,NG=3,NS=44) | * - * | S SFDISD0 : MRS SF set D0' (DIS) (NP=1,NG=3,NS=33) | * - * | S SFDISDM : MRS SF set D-' (DIS) (NP=1,NG=3,NS=34) | * - * |_______________________________________________________________| * - ******************************* - 30 - ******************************** -1*********************************************************************** - * _________________________________________________________________ * - * | Complete list of subprograms, cont'd | * - * | | * - * | S SFDISH : MRS SF set (H) (NP=1,NG=3,NS=36) | * - * | S SFDISS0 : MRS SF set S0' (DIS) (NP=1,NG=3,NS=32) | * - * | S SFDSQA : MRS SF set A (DIS) low Q**2 (NP=1,NG=3,NS=44) | * - * | S SFEHLQ1 : EHLQ SF set 1 (NP=1,NG=1,NS=8) | * - * | S SFEHLQ2 : EHLQ SF set 2 (NP=1,NG=1,NS=9) | * - * | S SFGRVH : old GRV SF set of NLL (NP=1,NG=5,NS=1) | * - * | S SFGRVL : old GRV SF set of LO (NP=1,NG=5,NS=2) | * - * | S SFGSHO : GS SF set of NLL in the photon (NP=3,NG=4,NS=1)| * - * | S SFGSLO1 : GS SF set 1 of LO in the photon (NP=3,NG=4,NS=2) * - * | S SFGSLO2 : GS SF set 2 of LO in the photon (NP=3,NG=4,NS=3) * - * | S SFKBMR2 : KMRS SF set B- with R2 shadowing (NP=1,NG=3,NS=19)* - * | S SFKBMR5 : KMRS SF set B- with R5 shadowing (NP=1,NG=3,NS=20)* - * | S SFLACG1 : LAC SF set 1 in the photon (NP=3,NG=3,NS=1) | * - * | S SFLACG2 : LAC SF set 2 in the photon (NP=3,NG=3,NS=2) | * - * | S SFLACG3 : LAC SF set 3 in the photon (NP=3,NG=3,NS=3) | * - * | S SFMFAP : MRS SF set Ap parametrisation (NP=1,NG=3,NS=40)| * - * | S SFMFR1 : MRS SF set R1 parametrisation (NP=1,NG=3,NS=57)| * - * | S SFMFR2 : MRS SF set R2 parametrisation (NP=1,NG=3,NS=58)| * - * | S SFMRSD0 : MRS SF set D0 (NP=1,NG=3,NS=27) | * - * | S SFMRSDM : MRS SF set D- (NP=1,NG=3,NS=28) | * - * | S SFMRSG : MRS SF set G (NP=1,NG=3,NS=41) | * - * | S SFMRSJ : MRS SF set J (NP=1,NG=3,NS=51) | * - * | S SFMRSS0 : MRS SF set S0 (NP=1,NG=3,NS=26) | * - * | S SFMS105 : MRS SF set Ap (150) (NP=1,NG=3,NS=45) | * - * | S SFMS110 : MRS SF set Ap (201) (NP=1,NG=3,NS=46) | * - * | S SFMS115 : MRS SF set Ap (266) (NP=1,NG=3,NS=47) | * - * | S SFMS120 : MRS SF set Ap (344) (NP=1,NG=3,NS=48) | * - * | S SFMS125 : MRS SF set Ap (435) (NP=1,NG=3,NS=49) | * - * | S SFMS130 : MRS SF set Ap (542) (NP=1,NG=3,NS=50) | * - * | S SFMSAP : MRS SF set Ap (NP=1,NG=3,NS=39) | * - * | S SFMSBA : MRS SF set A (NP=1,NG=3,NS=37) | * - * | S SFMSBB0 : MRS SF set B0' (NP=1,NG=3,NS= | * - * | S SFMSBD0 : MRS SF set D0' (NP=1,NG=3.NS=30) | * - * | S SFMSBDM : MRS SF set D-' (NP=1,NG=3,NS=31) | * - * | S SFMSBH : MRS SF set (H) (NP=1,NG=3,NS=35) | * - * | S SFMSBS0 : MRS SF set S0' (NP=1,NG=3,NS=29) | * - * | S SFMSFA : MRS SF set A parametrisation (NP=1,NG=3,NS=38) | * - * | S SFMSFG : MRS SF set G parametrisation (NP=1,NG=3,NS=42) | * - * | S SFMSJP : MRS SF set Jp (NP=1,NG=3,NS=52) | * - * | S SFMSQA : MRS SF set A low Q**2 (NP=1,NG=3,NS=43) | * - * | S SFMSR1 : MRS SF set R1 (NP=1,NG=3,NS=53) | * - * | S SFMSR2 : MRS SF set R2 (NP=1,NG=3,NS=54) | * - * | S SFMSR3 : MRS SF set R3 (NP=1,NG=3,NS=55) | * - * | S SFMSR4 : MRS SF set R4 (NP=1,NG=3,NS=56) | * - * | S SFMT10 : interface to MT set 6 (MS_bar) | * - * | S SFMT11 : interface to MT set LO | * - * | S SFMTU1 : interface to MT set S1 (DIS) | * - * | S SFMTU2 : interface to MT set B1 (DIS) | * - * | S SFMTU3 : interface to MT set B2 (DIS) | * - * | S SFMTU4 : interface to MT set E1 (DIS) | * - * | S SFMTU5 : interface to MT set 6 (u_bar + d_bar)/2 (DIS) | * - * | S SFMTU6 : interface to MT set S1 (MS_bar) | * - * | S SFMTU7 : interface to MT set B1 (MS_bar) | * - * | S SFMTU8 : interface to MT set B2 (MS_bar) | * - * | S SFMTU9 : interface to MT set E1 (MS_bar) | * - * | S SFSAS11 : SaS SF set 1D (V1) (NP=3,NG=9,NS=1) | * - * | S SFSAS12 : SaS SF set 1M (V1) (NP=3,NG=9,NS=2) | * - * | S SFSAS13 : SaS SF set 2D (V1) (NP=3,NG=9,NS=3) | * - * | S SFSAS14 : SaS SF set 2M (V1) (NP=3,NG=9,NS=4) | * - * | S SFSAS21 : SaS SF set 1D (V2) (NP=3,NG=9,NS=5) | * - * | S SFSAS22 : SaS SF set 1M (V2) (NP=3,NG=9,NS=6) | * - * | S SFSAS23 : SaS SF set 2D (V2) (NP=3,NG=9,NS=7) | * - * | S SFSAS24 : SaS SF set 2M (V2) (NP=3,NG=9,NS=8) | * - * |_______________________________________________________________| * - ******************************* - 31 - ******************************** -1*********************************************************************** - * _________________________________________________________________ * - * | Complete list of subprograms, cont'd | * - * | | * - * | S SFWHI1 : WHIT SF set 1 (NP=3,NG=8,NS=1) | * - * | S SFWHI2 : WHIT SF set 2 (NP=3,NG=8,NS=2) | * - * | S SFWHI3 : WHIT SF set 3 (NP=3,NG=8,NS=3) | * - * | S SFWHI4 : WHIT SF set 4 (NP=3,NG=8,NS=4) | * - * | S SFWHI5 : WHIT SF set 5 (NP=3,NG=8,NS=5) | * - * | S SFWHI6 : WHIT SF set 6 (NP=3,NG=8,NS=6) | * - * | S SMRSP31 : SMRS SF set 1 in the pion (NP=2,NG=3,NS=1) | * - * | S SMRSP32 : SMRS SF set 2 in the pion (NP=2,NG=3,NS=2) | * - * | S SMRSP33 : SMRS SF set 3 in the pion (NP=2,NG=3,NS=3) | * - * | S SMRSPI : Description of SMRS sets 1, 2, 3 in the pion | * - * | S SRCTQ21 : CTEQ SF set 2pL (LO) (NP=1,NG=4,NS=23) | * - * | S SRCTQ22 : CTEQ SF set 2pM (NP=1,NG=4,NS=24) | * - * | S SRCTQ23 : CTEQ SF set 2pMS (NP=1,NG=4,NS=25) | * - * | S SRCTQ24 : CTEQ SF set 2pMF (NP=1,NG=4,NS=26) | * - * | S SRCTQ25 : CTEQ SF set 2pML (NP=1,NG=4,NS=27) | * - * | S SRCTQ26 : CTEQ SF set 2pD (NP=1,NG=4,NS=28) | * - * | S STRBEBC : BEBC SF set (NP=1,NG=1,NS=2) | * - * | S STRBEP : BEP SF set (NP=1,NG=1,NS=4) | * - * | S STRCBP : MRS SF set B' (NP=1,NG=3,NS=7) | * - * | S STRCEP : MRS SF set E' (NP=1,NG=3,NS=6) | * - * | S STRDO1 : DO SF set 1 (NP=1,NG=1,NS=6) | * - * | S STRDO2 : DO SF set 2 (NP=1,NG=1,NS=7) | * - * | S STRGHR : GHR SF set (NP=1,NG=1,NS=5) | * - * | S STRH1B : HMRS SF set B (NP=1,NG=3,NS=9 - retracted) | * - * | S STRH1E : HMRS SF set E (NP=1,NG=3,NS=8 - retracted) | * - * | S STRH2B : HMRS SF set B (NP=1,NG=3,NS=11) | * - * | S STRH2E : HMRS SF set E (NP=1,NG=3,NS=10) | * - * | S STRH3B : HMRS SF set B (NP=1,NG=3,NS=15) | * - * | S STRH3B1 : HMRS SF set B - L=100 (NP=1,NG=3,NS=16) | * - * | S STRH3B3 : HMRS SF set B - L=300 (NP=1,NG=3,NS=17) | * - * | S STRH3E : HMRS SF set E (NP=1,NG=3,NS=14) | * - * | S STRH3EM : HMRS SF set E- (NP=1,NG=3,NS=13) | * - * | S STRH3EP : HMRS SF set E+ (NP=1,NG=3,NS=12) | * - * | S STRKB0 : KMRS SF set B0 (NP=1,NG=3,NS=21), updated version * - * | S STRKB02 : KMRS SF set B0 - L=135 (NP=1,NG=3,NS=22) | * - * | S STRKB03 : KMRS SF set B0 - L=160 (NP=1,NG=3,NS=23) | * - * | S STRKB04 : KMRS SF set B0 - L=200 (NP=1,NG=3,NS=24) | * - * | S STRKB05 : KMRS SF set B0 - L=235 (NP=1,NG=3,NS=25) | * - * | S STRKB0O : KMRS SF set B0 (old version) | * - * | S STRKBM : KMRS SF set B- (NP=1,NG=3,NS=18) | * - * | S STRMRS1 : MRS SF set 1 (NP=1,NG=3,NS=1) | * - * | S STRMRS2 : MRS SF set 2 (NP=1,NG=3,NS=2) | * - * | S STRMRS3 : MRS SF set 3 (NP=1,NG=3,NS=3) | * - * | S STROWP1 : OW SF set 1 in the pion (NP=2,NG=1,NS=1) | * - * | S STROWP2 : OW SF set 2 in the pion (NP=2,NG=1,NS=2) | * - * | S STRPRIV : Dummy subroutine for a new set of SF | * - * | S STRUCB : MRS SF set B (NP=1,NG=3,NS=4) | * - * | S STRUCE : MRS SF set E (NP=1,NG=3,NS=5) | * - * | S STRUCOR : OR SF set (NP=1,NG=1,NS=3) | * - * | S STRUCTF : to access PDFLIB with output in PDFLIB format | * - * | S STRUCTM : to access PDFLIB with output in PDFLIB format | * - * | S STRUCTP : to access PDFLIB with output in PDFLIB format for PHOTONS - * | TESTGAM : main program to test PDFLIB for photons | * - * | TESTGAMO : main program to test PDFLIB for photons (OLD) | * - * | TESTPDF : main program to test PDFLIB in PDFLIB format | * - * | TESTPDFO : main program to test PDFLIB in PDFLIB format (OLD)* - * | TESTPDG : main program to test PDFLIB in PDG format | * - * | TESTPDGO : main program to test PDFLIB in PDG format (OLD)| * - * | TMAINUPV : main program to show how to use the package | * - * | TMAINUPVO: main program to show how to use the package (OLD) * - * | F V3 : BEBC SF set to calculate X * VALDIS | * - * | S VALDIS : BEBC SF set for up + down valence quarks | * - * | S VLAMBD : Entry in PDZXMT to get Lambda value for MT sets| * - * |_______________________________________________________________| * - ******************************* - 32 - ******************************** -1*********************************************************************** - * _________________________________________________________________ * - * | Complete list of subprograms, cont'd | * - * | | * - * | S WATE32 : defines 32 point Gaussian quadrature routine | * - * | S WHIT1G : WHIT SF set 1 for gluons | * - * | S WHIT1Q : WHIT SF set 1 for quarks | * - * | S WHIT2G : WHIT SF set 2 for gluons | * - * | S WHIT2Q : WHIT SF set 2 for quarks | * - * | S WHIT3G : WHIT SF set 3 for gluons | * - * | S WHIT3Q : WHIT SF set 3 for quarks | * - * | S WHIT4G : WHIT SF set 4 for gluons | * - * | S WHIT4Q : WHIT SF set 4 for quarks | * - * | S WHIT5G : WHIT SF set 5 for gluons | * - * | S WHIT5Q : WHIT SF set 5 for quarks | * - * | S WHIT6G : WHIT SF set 6 for gluons | * - * | S WHIT6Q : WHIT SF set 6 for quarks | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * |_______________________________________________________________| * - ******************************* - 33 - ******************************** -1*********************************************************************** - * _________________________________________________________________ * - * | Complete list of subprograms, cont'd | * - * | | * - * | | * - * | C W50510 : IFLPRT - to set print flag | * - * | C W50511 : NPTYPE,NGROUP,NSET,MODE,NFL,LO,TMAS - | * - * | to select structure function set, to define | * - * | number of flavours, flag for leading order | * - * | and value for the mass of the top quark | * - * | C W50512 : QCDL4,QCDL5 - contains Lambda_4(QCD) and | * - * | Lambda_5(QCD) (in GeV) | * - * | C W50513 : XMIN,XMAX.Q2MIN,Q2MAX - contains minimum | * - * | and maximum values of X and Q**2 | * - * | C W50514 : WXMIN,WXMAX,WQ2MIN,WQ2MAX,WTXMIN,WTXMAX,WQ2MIN,| * - * | WQ2MAX - error counting for fractional and | * - * | total number of X and Q**2 | * - * | C W50514W : PDFWGT - to transmit user filled event weight | * - * | C W50515 : IFLSET,IFLSTA - to transmit flag for call to | * - * | subroutine PDFSET or PDFSTA | * - * | C W50516 : FIRST - to force printing name of structure | * - * | function set in case of multiple choices | * - * | C W50517 : N6 - contains logical print unit number | * - * | C W50518 : save of COMMONs W50510, W50511, W50512, W50513 | * - * | C W50519 : NEWVER - to flag NEW or OLD version of PDFLIB | * - * | format | * - * | C W505110 : SFNAME - contains NAME (CHARACTER*8 array with | * - * | dimension SFNAME(NPTYMX,NGRMAX,NSETMX)) for | * - * | each set of PDFs | * - * | C W505120 : NPGSMX(NPTYMX,NGRMAX),NSETFL(NPTYMX,NGRMAX,NSETMX)* - * | - to provide the actual maximum number of stuc-| * - * | ture function sets per particle type and author| * - * | group, NSETFL(I,J,K) = 0 for retracted PDF set | * - * | C W505121 : NPTYCR(MODEMX),NGROCR(MODEMX),NSETCR(MODEMX) | * - * | - to provide the cross reference to the | * - * | NPTYPE, NGROUP and NSET value (NEW format) for | * - * | a given MODE value (OLD format) | * - * | C W505122 : MODECR(NPTYMX,NGRMAX,NSETMX) - to provide the | * - * | cross reference to the MODE value (OLD format) | * - * | for a given NPTYPE, NGROUP and NSET value | * - * | (NEW format) | * - * | P W5051P0 : LFLPRT - to define print level (D=0) | * - * | P W5051P1 : LPTYPE,LGROUP,LNSET,IFL,LORD,TM - to define | * - * | the defaults for a PDF set given by the | * - * | particle type, author group and number of set | * - * | within an author group, defaults for number of | * - * | flavours, leading order flag and mass of the | * - * | top quark (D=1, 5, 3, 5, 2, 100.D0) | * - * | P W5051P2 : MODEMX - maximum number of structure function | * - * | sets in the OLD PDFLIB format | * - * | : NPTYMX,NGRMAX,NSETMX - maximum number of | * - * | structure function sets in the NEW PDFLIB | * - * | format for particle type, author group number | * - * | and number of sets within an author group | * - * | P W5051P2 : MODEMX - to define maximum number of SF sets | * - * | in PDFLIB (OLD format) (D=281) | * - * | P W5051P7 : L6 - to define logical print unit number (D=6) | * - * | P W5051P7 : L6 - to define logical print unit number | * - * | W50511C : Comments only - complete list of available SFs | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * | | * - * |_______________________________________________________________| * - ******************************* - 34 - ******************************** -1*********************************************************************** - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * List of Tables * - * * - * * - * 1 List of available sets of NUCLEON structure functions in * - * PDFLIB version 7.09 ...................................... 36 * - * * - * * - * 2 List of available sets of PION structure functions in PDFLIB * - * version 7.09 ............................................. 39 * - * * - * * - * 3 List of available sets of PHOTON structure functions in PDFLIB * - * version 7.09 ............................................. 40 * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - ******************************* - 35 - ******************************** -1*********************************************************************** - * * - * Table 1 * - * * - * Available sets of NUCLEON structure functions in PDFLIB * - * * - * ------------------------------------------------------------------- * - * * - * Nptype * - * Ngroup Q**2 Name of Set Scheme Reference * - * Nset min * - * QCDL4 * - * ------------------------------------------------------------------- * - * 0 200 0.3 ->GRV HO MS_bar NLL Default * - * ------------------------------------------------------------------- * - * ------------------------------------------------------------------- * - * 1 1 1 PRIVATE to user * - * 1 1 2 45 0.5 BEBC LO [Nucl.Phys. B132 (1978) 249] - * 1 1 3 500 1.8 OR LO [Phys.Rev. D17 (1978) 3003] - * 1 1 4 470 5 BEP LO [Z. Phys. C2 (1979) 265] - * 1 1 5 400 4 GHR LO [Z. Phys. C13 (1982) 119] - * 1 1 6 200 4 DO Set 1 LO [Phys.Rev. D30 (1984) 49] - * 1 1 7 400 4 DO Set 2 LO * - * 1 1 8 200 5 EHLQ Set 1 LO [Rev.Mod.Phys. 56 (1984) 579; - * 1 1 9 290 5 EHLQ Set 2 LO Rev.Mod.Phys. 58 (1985) 1065] - * 1 1 10 177 4 DO Set 1.1 LO [Phys.Lett.266B (1991) 3275] - * ------------------------------------------------------------------- * - * 1 2 1 200 10 DFLM soft valence LO [Z. Phys. C39 (1988) 21 - * 1 2 2 200 10 DFLM hard valence LO * - * 1 2 3 200 10 DFLM soft gluon LO * - * 1 2 4 200 10 DFLM hard gluon LO * - * 1 2 5 200 10 DFLM central av. LO * - * 1 2 6 300 10 DFLM central av. DIS NLL * - * 1 2 7 160 10 DFLM 160 DIS NLL [unpublished] * - * 1 2 8 260 10 ->DFLM 260 DIS NLL * - * 1 2 9 360 10 DFLM 360 DIS NLL * - * ------------------------------------------------------------------- * - * 1 3 1 107 5 MRS 1 MS_bar NLL [Phys.Rev. D37 (1988) 1181] - * 1 3 2 250 5 MRS 2 MS_bar NLL * - * 1 3 3 178 5 MRS 3 MS_bar NLL * - * 1 3 4 91 5 MRS E MS_bar NLL [Phys.Lett. 206B (1988) 327] - * 1 3 5 228 5 MRS B MS_bar NLL * - * 1 3 6 91 5 MRS E' MS_bar NLL [Mod.Phys. Lett.A4 (1989) 1135 - * 1 3 7 228 5 MRS B' MS_bar NLL * - * 1 3 8 100 5 HMRS E (1.90) MS_bar NLL [retracted] * - * 1 3 9 190 5 HMRS B (1.90) MS_bar NLL * - * 1 3 10 100 5 HMRS E (3.90) MS_bar NLL * - * 1 3 11 190 5 HMRS B (3.90) MS_bar NLL * - * 1 3 12 100 5 HMRS E+(4.90) MS_bar NLL [Phys.Lett. 243B (1990) 421] - * 1 3 13 100 5 HMRS E-(4.90) MS_bar NLL * - * 1 3 14 100 5 HMRS E (4.90) MS_bar NLL [Phys.Rev. D4 (1990) 798] - * 1 3 15 190 5 HMRS B (4.90) MS_bar NLL * - * 1 3 16 100 5 HMRS B (8.90) MS_bar NLL [unpublished] * - * 1 3 17 300 5 HMRS B (8.90) MS_bar NLL * - * 1 3 18 190 5 KMRS B-(7.90) MS_bar NLL [Phys.Rev. D42 (1990) 3645] - * 1 3 19 190 5 KMRS B-R2 Shadow (7.90) MS_bar NLL * - * 1 3 20 190 5 KMRS B-R5 Shadow (7.90) MS_bar NLL * - * 1 3 21 190 5 KMRS B0-190 (7.90) MS_bar NLL (as updated 4.92) * - * 1 3 22 135 5 MRS B0-135 (10.90) MS_bar NLL [Phys.Rev. D43 (1991) 3648] - * 1 3 23 160 5 MRS B0-160 (10.90) MS_bar NLL * - * 1 3 24 200 5 MRS B0-200 (10.90) MS_bar NLL * - * 1 3 25 235 5 MRS B0-235 (10.90) MS_bar NLL * - * 1 3 26 215 5 MRS S0 (4.92) MS_bar NLL [retracted] * - * 1 3 27 215 5 MRS D0 (4.92) MS_bar NLL * - * 1 3 28 215 5 MRS D- (4.92) MS_bar NLL * - * 1 3 29 230 5 MRS S0' (11.92) MS_bar NLL [Phys.Lett. 306B (1993)145 - * 1 3 30 230 5 MRS D0' (11.92) MS_bar NLL * - * * - ******************************* - 36 - ******************************** -1*********************************************************************** - * * - * Table 1 (cont'd) * - * * - * ------------------------------------------------------------------- * - * * - * Nptype * - * Ngroup Q**2 Name of Set Scheme Reference * - * Nset min * - * QCDL4 * - * ------------------------------------------------------------------- * - * 1 3 31 230 5 MRS D-' (11.92) MS_bar NLL * - * 1 3 32 230 5 MRS S0' (2.93) DIS NLL [RAL-92-078 (1992)] - * 1 3 33 230 5 MRS D0' (2.93) DIS NLL * - * 1 3 34 230 5 MRS D-' (2.93) DIS NLL * - * 1 3 35 230 5 MRS (H) (11.93) MS_bar NLL * - * 1 3 36 230 5 MRS (H) (11.93) DIS NLL * - * 1 3 37 230 5 MRS (A) (5.94 MS_bar NLL [RAL-94-055 (1994)] - * 1 3 38 230 5 MRS (A) Fit (5.94) MS_bar NLL * - * 1 3 39 230 5 MRS (Ap) (2.95 MS_bar NLL [RAL-94-104 (1994)] - * 1 3 40 231 5 MRS (Ap) Fit(2.95) MS_bar NLL * - * 1 3 41 255 5 ->MRS (G) (2.95 MS_bar NLL [RAL-95-021 (1995)] - * 1 3 42 255 5 MRS (G) Fit (2.95) MS_bar NLL * - * 1 3 43 230 .625 MRS Set (A) lowQ^2 MS_bar NLL [Phys.Rev. D51 (1995)4756] - * 1 3 44 230 .625 MRS Set (A) lowQ^2 DIS NLL * - * 1 3 45 150 5 MRS Set (Ap-L150) MS_bar NLL [Phys.Lett. 356B (1995)89] - * 1 3 46 201 5 MRS Set (Ap-L201) MS_bar NLL * - * 1 3 47 266 5 MRS Set (Ap-L266) MS_bar NLL * - * 1 3 48 344 5 MRS Set (Ap-L344) MS_bar NLL * - * 1 3 49 435 5 MRS Set (Ap-L435) MS_bar NLL * - * 1 3 50 542 5 MRS Set (Ap-L542) MS_bar NLL * - * 1 3 51 344 5 MRS Set (J) MS_bar NLL [DTP/96/22 (1996)] - * 1 3 52 507 5 MRS Set (J') MS_bar NLL * - * 1 3 53 241 5 MRS Set (R1) MS_bar NLL [DTP/96/44 (1996)] - * 1 3 54 344 5 MRS Set (R2) MS_bar NLL * - * 1 3 55 241 5 MRS Set (R3) MS_bar NLL * - * 1 3 56 344 5 MRS Set (R4) MS_bar NLL * - * 1 3 57 241 5 MRS Set (R1) MS_bar NLL Fit * - * 1 3 58 344 5 MRS Set (R2) MS_bar NLL Fit * - * ------------------------------------------------------------------- * - * 1 4 1 212 4 MT S1 DIS NLL [Z. Phys. C52 (1991) 13] - * 1 4 2 194 4 MT B1 DIS NLL * - * 1 4 3 191 4 MT B2 DIS NLL * - * 1 4 4 155 4 MT E1 DIS NLL * - * 1 4 5 237 4 MT 6 (1/2s) DIS NLL * - * 1 4 6 212 4 MT S1 MS_bar NLL * - * 1 4 7 194 4 MT B1 MS_bar NLL * - * 1 4 8 191 4 MT B2 MS_bar NLL * - * 1 4 9 155 4 MT E1 MS_bar NLL * - * 1 4 10 237 4 MT 6 (1/2s) MS_bar NLL * - * 1 4 11 144 4 MT LO LO * - * 1 4 12 168 4 CTEQ 1L LO [retracted] * - * 1 4 13 231 4 CTEQ 1M MS_bar NLL * - * 1 4 14 231 4 CTEQ 1MS MS_bar NLL * - * 1 4 15 322 4 CTEQ 1ML MS_bar NLL * - * 1 4 16 247 4 CTEQ 1D DIS NLL * - * 1 4 17 190 4 CTEQ 2L LO [retracted] * - * 1 4 18 213 4 CTEQ 2M MS_bar NLL * - * 1 4 19 208 4 CTEQ 2MS MS_bar NLL * - * 1 4 20 208 4 CTEQ 2MF MS_bar NLL * - * 1 4 21 322 4 CTEQ 2ML MS_bar NLL * - * 1 4 22 235 4 CTEQ 2D DIS NLL * - * 1 4 23 190 4 CTEQ 2pL LO [to be published]* - * 1 4 24 213 4 CTEQ 2pM MS_bar NLL * - * 1 4 25 208 4 CTEQ 2pMS MS_bar NLL * - * 1 4 26 208 4 CTEQ 2pMF MS_bar NLL * - * ------------------------------------------------------------------- * - * * - ******************************* - 37 - ******************************** -1*********************************************************************** - * * - * Table 1 (cont'd) * - * * - * ------------------------------------------------------------------- * - * * - * Nptype * - * Ngroup Q**2 Name of Set Scheme Reference * - * Nset min * - * QCDL4 * - * ------------------------------------------------------------------- * - * 1 4 27 322 4 CTEQ 2pML MS_bar NLL * - * 1 4 28 235 4 CTEQ 2pD DIS NLL * - * 1 4 29 177 4 CTEQ 3L LO [MSU-HEP/41024] * - * 1 4 30 239 4 ->CTEQ 3M MS_bar NLL * - * 1 4 31 247 4 CTEQ 3D DIS NLL * - * 1 4 32 235 2.56 CTEQ 4LO LO [MSUHEP-60426, CTEQ-604] - * 1 4 33 296 2.56 CTEQ 4D DIS NLL * - * 1 4 34 296 2.56 CTEQ 4M MS_bar NLL * - * 1 4 35 213 2.56 CTEQ 4A1 MS_bar NLL * - * 1 4 36 253 2.56 CTEQ 4A2 MS_bar NLL * - * 1 4 37 296 2.56 CTEQ 4A3 MS_bar NLL * - * 1 4 38 344 2.56 CTEQ 4A4 MS_bar NLL * - * 1 4 39 399 2.56 CTEQ 4A5 MS_bar NLL * - * 1 4 40 302 2.56 CTEQ 4HJ MS_bar NLL * - * 1 4 41 259 0.49 CTEQ 4lQ MS_bar NLL * - * ------------------------------------------------------------------- * - * 1 5 1 160 0.2 old GRV HO MS_bar NLL [retracted] * - * 1 5 2 220 0.2 old GRV LO LO * - * 1 5 3 200 0.3 GRV HO MS_bar NLL [Z. Phys. C53 (1992) 127] - * 1 5 4 200 0.25 GRV LO LO * - * 1 5 5 200 0.4 GRV 94 LO LO [DO-TH 94/24 (1994)] - * 1 5 6 200 0.4 ->GRV 94 HO MS_bar NLL * - * 1 5 7 200 0.4 GRV 94 HO DIS NLL * - * 1 5 8 200 0.4 GRSV pol. LO standard LO [Phys.Lett. 359B (1995)201 - * 1 5 9 200 0.4 GRSV pol. LO valence LO * - * 1 5 10 200 0.4 GRSV pol. HO standard LO [Phys.Rev. D53 (1996) 4775 - * 1 5 11 200 0.4 GRSV pol. HO valence LO * - * ------------------------------------------------------------------- * - * 1 6 1 230 2 ABFOW MS_bar NLL [Phys.Rev D39 (1989) 3275] - * ------------------------------------------------------------------- * - * 1 7 1 254 5 BM A MS_bar NLL [Phys.Lett. 304B (1993)318 - * 1 7 2 254 5 BM B MS_bar NLL * - * ------------------------------------------------------------------- * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - ******************************* - 38 - ******************************** -1*********************************************************************** - * * - * * - * * - * * - * * - * * - * * - * * - * Table 2 * - * * - * Available sets of PION structure functions in PDFLIB * - * * - * ------------------------------------------------------------------- * - * * - * Nptype * - * Ngroup Q**2 Name of Set Scheme Reference * - * Nset min * - * QCDL4 * - * ------------------------------------------------------------------- * - * 2 1 1 200 4 OW-P Set 1 LO [Phys.Rev. D30 (1984) 943] - * 2 1 2 400 4 OW-P Set 2 LO * - * ------------------------------------------------------------------- * - * 2 3 1 190 5 SMRS-P 1 MS_bar NLL [Phys.Rev. D45 (1992) 2349] - * 2 3 2 190 5 ->SMRS-P 2 MS_bar NLL * - * 2 3 3 190 5 SMRS-P 3 MS_bar NLL * - * ------------------------------------------------------------------- * - * 2 5 1 200 0.3 ->GRV-P HO MS_bar NLL [Z.Phys. C53 (1992) 651] - * 2 5 2 200 0.25 GRV-P LO LO * - * ------------------------------------------------------------------- * - * 2 6 1 231 2 ->ABFKW-P 1 MS_bar NLL [Phys.Lett.233B (189) 517] - * 2 6 2 181 2 ABFKW-P 2 MS_bar NLL * - * 2 6 3 281 2 ABFKW-P 3 MS_bar NLL * - * ------------------------------------------------------------------- * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - * * - ******************************* - 39 - ******************************** -1*********************************************************************** - * * - * * - * * - * * - * Table 3 * - * * - * Available sets of PHOTON structure functions in PDFLIB * - * * - * ------------------------------------------------------------------- * - * * - * Nptype * - * Ngroup Q**2 Name of Set Scheme Reference * - * Nset min * - * QCDL4 * - * ------------------------------------------------------------------- * - * 3 1 1 380 10 DO-G LO LO [Phys.Rev. D26 (1982) 1600] - * 3 1 2 440 10 ->DO-G HO MS_bar NLL * - * ------------------------------------------------------------------- * - * 3 2 1 400 1 ->DG-G Set 1 LO [Z. Phys. C28 (1985) 451] - * 3 2 2 400 1 DG-G Set 2 LO * - * 3 2 3 400 20 DG-G Set 3 LO * - * 3 2 4 400 200 DG-G Set 4 LO * - * ------------------------------------------------------------------- * - * 3 3 1 200 5 LAC-G 1 LO [Phys.Lett.269B (1991) 458] - * 3 3 2 200 5 ->LAC-G 2 LO * - * 3 3 3 200 5 LAC-G 3 LO * - * ------------------------------------------------------------------- * - * 3 4 1 200 5.3 GS-G HO MS_bar NLL [Z.Phys. C56 (1992) 307] - * 3 4 2 200 5.3 GS-G LO set 1 LO * - * 3 4 3 200 5.3 GS-G LO set 2 LO * - * 3 4 4 200 5.3 ->GS-G-96 HO MS_bar NLL [ANL-HEP-PR-96-33] * - * 3 4 5 200 5.3 GS-G-96 LO LO * - * ------------------------------------------------------------------- * - * 3 5 1 200 0.3 GRV-G LHO DIS*) NLL [Phys.Rev. D46 (1992) 1973; - * 3 5 2 200 0.3 ->GRV-G HO DIS*) NLL Phys.Rev. D45 (1992) 3986] - * 3 5 3 200 0.25 GRV-G LO LO * - * 3 5 4 200 0.6 GRS-G LO LO [Phys. Rev. D51 (1995) 3220 - * ------------------------------------------------------------------- * - * 3 6 1 200 2 ACFGP-G HO MS_bar NLL [Z.Phys. C56 (1992) 589] - * 3 6 2 200 2 ->ACFGP-G HO-mc MS_bar NLL * - * 3 6 3 200 2 ->AFG-G HO MS_bar NLL * - * ------------------------------------------------------------------- * - * 3 8 1 400 4 WHIT-G 1 LO [KEK preprint 93-160]* - * 3 8 2 400 4 ->WHIT-G 2 LO * - * 3 8 3 400 4 WHIT-G 3 LO * - * 3 8 4 400 4 WHIT-G 4 LO * - * 3 8 5 400 4 WHIT-G 5 LO * - * 3 8 6 400 4 WHIT-G 6 LO * - * ------------------------------------------------------------------- * - * 3 9 1 200 0.36 SAS-G Set 1D (V1) LO [Z. Phys. C68 (1995) 607] - * 3 9 2 200 0.36 SAS-G Set 1M (V1) LO * - * 3 9 3 200 4 SAS-G Set 2D (V1) LO * - * 3 9 4 200 4 SAS-G Set 2M (V1) LO * - * 3 9 5 200 0.36 SAS-G Set 1D (V2) LO [CERN-TH/96-04] * - * 3 9 6 200 0.36 SAS-G Set 1M (V2) LO * - * 3 9 7 200 4 SAS-G Set 2D (V2) LO * - * 3 9 8 200 4 SAS-G Set 2M (V2) LO * - * ------------------------------------------------------------------- * - * * - * * - * * - * *) not standard, please consult references. * - * * - * * - * * - * * - * * - ******************************* - 40 - ******************************** diff --git a/PDF/dpdf/v100.dat b/PDF/dpdf/v100.dat deleted file mode 100644 index 08932ddf11e..00000000000 --- a/PDF/dpdf/v100.dat +++ /dev/null @@ -1,30 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.6 1997/07/13 13:22:18 cernlib -* Import version 7.09 -* -* Revision 1.7 1997/07/02 15:03:05 pdflib -* potential bug removed in GRSGALO -* -* Revision 1.6 1997/04/08 15:53:22 pdflib -* Lambda_QCD for CTEQ4 sets corrected -* -* Revision 1.5 1996/12/10 10:49:28 pdflib -* Version 7.07: consistency change for u,d-valence in CTEQ4 -* -* Revision 1.4 1996/11/15 15:06:53 pdflib -* Version 7.06: tabs removed and bug fixed in grsgalo -* -* Revision 1.3 1996/11/07 09:34:29 pdflib -* New version 7.05: cut routine Ctq4RTb in 9 pieces -* -* Revision 1.1.1.1 1996/04/12 15:28:51 plothow -* Version 7.01 -* -* -* VERSION 7.09 970702 16.05 CERN PROGRAM LIBRARY W5051 -C -C- Structuring of the code in PATCHY format -C- Addition of the test diff --git a/PDF/pdf/expdp.inc b/PDF/pdf/expdp.inc deleted file mode 100644 index 8e514858d92..00000000000 --- a/PDF/pdf/expdp.inc +++ /dev/null @@ -1,20 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:10 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:48 plothow -* Version 7.01 -* -* -* -* expdp.inc -* -#if defined(CERNLIB_DOUBLE) - DOUBLE PRECISION -#endif -#if defined(CERNLIB_SINGLE) - REAL -#endif diff --git a/PDF/pdf/impdp.inc b/PDF/pdf/impdp.inc deleted file mode 100644 index 2e413fa10cc..00000000000 --- a/PDF/pdf/impdp.inc +++ /dev/null @@ -1,20 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:10 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:48 plothow -* Version 7.01 -* -* -* -* impdp.inc -* -#if defined(CERNLIB_DOUBLE) - IMPLICIT DOUBLE PRECISION(A-H,O-Z) -#endif -#if defined(CERNLIB_SINGLE) -C IMPLICIT DOUBLE PRECISION(A-H,O-Z) -#endif diff --git a/PDF/pdf/pilot.h b/PDF/pdf/pilot.h deleted file mode 100644 index fe6c43865cf..00000000000 --- a/PDF/pdf/pilot.h +++ /dev/null @@ -1,9 +0,0 @@ -#if 0 -*CMZ : 16/03/95 22.26.48 by H. Plothow-Besch -*Modified by IML -#endif -#if !defined(CERNLIB_SINGLE) -#ifndef CERNLIB_DOUBLE -#define CERNLIB_DOUBLE -#endif -#endif diff --git a/PDF/pdf/w50510.inc b/PDF/pdf/w50510.inc deleted file mode 100644 index f9a747fa4b1..00000000000 --- a/PDF/pdf/w50510.inc +++ /dev/null @@ -1,15 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:11 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:49 plothow -* Version 7.01 -* -* -* -* w50510.inc -* - COMMON/W50510/ IFLPRT diff --git a/PDF/pdf/w50511.inc b/PDF/pdf/w50511.inc deleted file mode 100644 index 87e7b8691cf..00000000000 --- a/PDF/pdf/w50511.inc +++ /dev/null @@ -1,17 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:12 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:49 plothow -* Version 7.01 -* -* -* -* w50511.inc -* - COMMON/W50511/ NPTYPE,NGROUP,NSET,MODE,NFL,LO,TMAS -#include "expdp.inc" - + TMAS diff --git a/PDF/pdf/w505110.inc b/PDF/pdf/w505110.inc deleted file mode 100644 index a3d9490c8d6..00000000000 --- a/PDF/pdf/w505110.inc +++ /dev/null @@ -1,16 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:13 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:50 plothow -* Version 7.01 -* -* -* -* w505110.inc -* - CHARACTER*8 SFNAME(NPTYMX,NGRMAX,NSETMX) - COMMON/W505110/ SFNAME diff --git a/PDF/pdf/w50511c.inc b/PDF/pdf/w50511c.inc deleted file mode 100644 index df8cd7633dd..00000000000 --- a/PDF/pdf/w50511c.inc +++ /dev/null @@ -1,229 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:24 cernlib -* Version 7.04 -* -* Revision 1.2 1996/10/28 16:01:42 pdflib -* PDFLIB new version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:50 plothow -* Version 7.01 -* -* -* -* w50511c.inc -* -C -C------------------------------------------------------------------------------- -C. -C define the following sets by NPTYPE, NGROUP and NSET value : -C -C NPTYPE -C NGROUP -C NSET Lambda Name of set -C (Nfl=4) -C------------------------------------------------------------------------------- -C 0 254 = MRS Set (G) (MSbar) (Default) -C------------------------------------------------------------------------------- -C------------------------------------------------------------------------------- -C 1 1 1 = PRIVATE to user -C 1 1 2 45 = BEBC [Z. Phys. C36 (1978) 1] -C 1 1 3 500 = OR [Phys. Rev. D17 (1978) 3003] -C 1 1 4 470 = BEP [Z. Phys. C2 (1979) 265] -C 1 1 5 400 = GHR [Z. Phys. C13 (1982) 119] -C 1 1 6 200 = DO Set 1 [Phys. Rev. D30 (1984) 49] -C 1 1 7 400 = DO Set 2 -C 1 1 8 200 = EHLQ Set 1 [Rev.Mod.Phys. 56 (1984) 579, -C 1 1 9 290 = EHLQ Set 2 Rev.Mod.Phys. 58 (1985) 1065] -C 1 1 10 177 = New DO 1.1 Set LO [Phys.Lett. 266B (1991) 126] -C------------------------------------------------------------------------------- -C 1 2 1 200 = DFLM soft valence [Z. Phys. C39 (1988) 21] -C 1 2 2 200 = DFLM hard valence -C 1 2 3 200 = DFLM soft gluon -C 1 2 4 200 = DFLM hard gluon -C 1 2 5 200 = DFLM central average (LO) -C 1 2 6 300 = DFLM central average (NLL - DIS) -C 1 2 7 160 = DFLM 160 (DIS) [unpublished] -C 1 2 8 260 = DFLM 260 (DIS) -C 1 2 9 360 = DFLM 360 (DIS) -C------------------------------------------------------------------------------- -C 1 3 1 107 = MRS Set 1 [Phys.Rev. D37 (1988) 1161] -C 1 3 2 250 = MRS Set 2 -C 1 3 3 178 = MRS Set 3 -C 1 3 4 91 = MRS Set E [Phys.Lett. 206B (1988) 327] -C 1 3 5 228 = MRS Set B -C 1 3 6 91 = MRS Set E' [Mod.Phys.Lett. A4 (1989) 1135] -C 1 3 7 228 = MRS Set B' -C 1 3 8 100 = HMRS Set E (Jan. 1990) [retracted] -C 1 3 9 190 = HMRS Set B (Jan. 1990) -C 1 3 10 100 = HMRS Set E (March 1990) -C 1 3 11 190 = HMRS Set B (March 1990) -C 1 3 12 100 = HMRS Set E+ (4.1990) [Phys. Lett. 243B (1990) 421] -C 1 3 13 100 = HMRS Set E- (4.1990) -C 1 3 14 100 = HMRS Set E (4.1990) [Phys. Rev. D42 (1990) 798] -C 1 3 15 190 = HMRS Set B (4.1990) -C 1 3 16 100 = HMRS Set B (Aug. 1990) [unpublished] -C 1 3 17 300 = HMRS Set B (Aug. 1990) -C 1 3 18 190 = KMRS Set B- R2 Shad (7.1990) [Phys.Rev.D42(1990)3645 -C 1 3 19 190 = KMRS Set B- R5 Shad (7.1990) -C 1 3 20 190 = KMRS Set B- (July 1990) -C 1 3 21 190 = KMRS Set B0 (July 1990 - upgraded April 1992) -C 1 3 22 135 = MRS Set B0-L135 (10.1990) [Phys. Rev D43 (1991) 3648 -C 1 3 23 160 = MRS Set B0-L160 (10.1990) -C 1 3 24 200 = MRS Set B0-L200 (10.1990) -C 1 3 25 235 = MRS Set B0-L235 (10.1990) -C 1 3 26 215 = MRS Set S0 (4.1992) [retr.-Phys.Rev. D47 (1993) 867] -C 1 3 27 215 = MRS Set D0 (4.1992) [retracted] -C 1 3 28 215 = MRS Set D- (4.1992) [retracted] -C 1 3 29 230 = MRS Set S0' (MSbar) [Phys.Lett. 306B (1993) 145 -C 1 3 30 230 = MRS Set D0' (MSbar) -C 1 3 31 230 = MRS Set D-' (MSbar) -C 1 3 32 230 = MRS Set S0' (DIS) [RAL preprint RAL-92-078] -C 1 3 33 230 = MRS Set D0' (DIS) -C 1 3 34 230 = MRS Set D-' (DIS) -C 1 3 35 230 = MRS Set (H) (MSbar) -C 1 3 36 230 = MRS Set (H) (DIS) -C 1 3 37 230 = MRS Set (A) (MSbar) [Phys.Rev. D50 (1994) 6734] -C 1 3 38 230 = MRS Set (A) (MSbar) Fit -C 1 3 39 231 = MRS Set (A')(MSbar) [Phys.Lett. 354B (1995) 155] -C 1 3 40 231 = MRS Set (A')(MSbar) Fit -C 1 3 41 254 = MRS Set (G) (MSbar) [RAL-95-021 (1995)] -C 1 3 42 254 = MRS Set (G) (MSbar) Fit -C 1 3 43 230 = MRS Set (A) (MSbar) low Q**2 [Phys.Rev. D51 (1995) 4756] -C 1 3 44 230 = MRS Set (A) (DIS) low Q**2 -C 1 3 45 150 = MRS Set (A'-L150)(MSbar) [Phys.Lett. 356B (1995) 89] -C 1 3 46 201 = MRS Set (A'-L201)(MSbar) -C 1 3 47 266 = MRS Set (A'-L266)(MSbar) -C 1 3 48 344 = MRS Set (A'-L344)(MSbar) -C 1 3 49 435 = MRS Set (A'-L435)(MSbar) -C 1 3 50 542 = MRS Set (A'-L542)(MSbar) -C 1 3 51 344 = MRS Set (J) (MSbar) [Phys.Lett. 381B (1996) 353] -C 1 3 52 507 = MRS Set (J') (MSbar) -C 1 3 53 241 = MRS Set (R1) (MSbar) [DTP/96/44 (1996)] -C 1 3 54 344 = MRS Set (R2) (MSbar) -C 1 3 55 241 = MRS Set (R3) (MSbar) -C 1 3 56 344 = MRS Set (R4) (MSbar) -C 1 3 57 241 = MRS Set (R1) (MSbar) Fit -C 1 3 58 344 = MRS Set (R2) (MSbar) Fit -C------------------------------------------------------------------------------- -C 1 4 1 212 = MT set S1 (DIS) [Z. Phys. C52 (1991) 13. -C 1 4 2 194 = MT set B1 (DIS) -C 1 4 3 191 = MT set B2 (DIS) -C 1 4 4 155 = MT set E1 (DIS) -C 1 4 5 237 = MT set 6 (1/2s) (DIS) -C 1 4 6 212 = MT set S1 (MSbar) -C 1 4 7 194 = MT set B1 (MSbar) -C 1 4 8 191 = MT set B2 (MSbar) -C 1 4 9 155 = MT set E1 (MSbar) -C 1 4 10 237 = MT set 6 (1/2s) (MSbar) -C 1 4 11 144 = MT set LO -C 1 4 12 168 = CTEQ set 1LO [retr.-Phys.Lett. 304B (1993) 159] -C 1 4 13 231 = CTEQ set 1M (MSbar) -C 1 4 14 231 = CTEQ set 1MS (MSbar) -C 1 4 15 322 = CTEQ set 1ML (MSbar) -C 1 4 16 247 = CTEQ set 1D (DIS) -C 1 4 17 190 = CTEQ set 2LO [retracted] -C 1 4 18 213 = CTEQ set 2M (MSbar) -C 1 4 19 208 = CTEQ set 2MS (MSbar) -C 1 4 20 208 = CTEQ set 2MF (MSbar) -C 1 4 21 322 = CTEQ set 2ML (MSbar) -C 1 4 22 235 = CTEQ set 2D (DIS) -C 1 4 23 190 = CTEQ set 2pLO [to be published] -C 1 4 24 213 = CTEQ set 2pM (MSbar) -C 1 4 25 208 = CTEQ set 2pMS (MSbar) -C 1 4 26 208 = CTEQ set 2pMF (MSbar) -C 1 4 27 322 = CTEQ set 2pML (MSbar) -C 1 4 28 235 = CTEQ set 2pD (DIS) -C 1 4 29 177 = CTEQ set 3LO [MSUHEP-41024] -C 1 4 30 239 = CTEQ set 3M (MSbar) -C 1 4 31 247 = CTEQ set 3D (DIS) -C 1 4 32 181 = CTEQ set 4LO [MSUHEP-60426, CTEQ-604] -C 1 4 33 202 = CTEQ set 4D (DIS) -C 1 4 34 202 = CTEQ set 4M (MSbar) -C 1 4 35 140 = CTEQ set 4A1 (MSbar) -C 1 4 36 169 = CTEQ set 4A2 (MSbar) -C 1 4 37 202 = CTEQ set 4A3 (MSbar) -C 1 4 38 239 = CTEQ set 4A4 (MSbar) -C 1 4 39 282 = CTEQ set 4A5 (MSbar) -C 1 4 40 206 = CTEQ set 4HJ (MSbar) -C 1 4 41 174 = CTEQ set 4lQ (MSbar) -C------------------------------------------------------------------------------- -C 1 5 1 160 = GRV Set HO [retr.-Z. Phys. C48 (1990) 471] -C 1 5 2 220 = GRV Set LO [retracted] -C 1 5 3 200 = GRV Set HO (MSbar) [Z. Phys. C53 (1992) 127] -C 1 5 4 200 = GRV Set LO -C 1 5 5 200 = GRV Set LO [Z. Phys. C67 (1995) 433] -C 1 5 6 200 = GRV Set HO (MSbar) -C 1 5 7 200 = GRV Set HO (DIS) -C 1 5 8 200 = GRSV pol. LO stand [Phys. Lett. 359B (1995) 201] -C 1 5 9 200 = GRSV pol. LO val -C 1 5 10 200 = GRSV pol. NLO stand (MSbar) [Phys. Rev. D53 (1996) 4775] -C 1 5 11 200 = GRSV pol. NLO val (MSbar) -C------------------------------------------------------------------------------- -C 1 6 1 230 = ABFOW (MSbar) [Phys. Rev. D39 (1989) 3275] -C------------------------------------------------------------------------------- -C 1 7 1 254 = BM set A (MSbar) [Phys.Lett. 304B (1993) 318 and -C 1 7 2 254 = BM set B (MSbar) CERN - TH 6739/92 (1992)] -C------------------------------------------------------------------------------- -C------------------------------------------------------------------------------- -C 2 1 1 200 = OW Set 1 (Pions) [Phys. Rev. D30 (1984) 49] -C 2 1 2 400 = OW Set 2 (Pions) -C------------------------------------------------------------------------------- -C 2 3 1 190 = SMRS-P Set 1 (Pions) [Phys. Rev. D45 (1992) 2349] -C 2 3 2 190 = SMRS-P Set 2 (Pions) -C 2 3 3 190 = SMRS-P Set 3 (Pions) -C------------------------------------------------------------------------------- -C 2 5 1 200 = GRV-P Set HO (Pions) [Z. Phys. C53 (1992) 651] -C 2 5 2 200 = GRV-P Set LO (Pions) -C------------------------------------------------------------------------------- -C 2 6 1 231 = ABFKW-P Set 1 (Pions) [Phys. Lett. 233B (1989) 517] -C 2 6 2 181 = ABFKW-P Set 2 (Pions) -C 2 6 3 281 = ABFKW-P Set 3 (Pions) -C------------------------------------------------------------------------------- -C------------------------------------------------------------------------------- -C 3 1 1 380 = DO-G Set LO (Photons) [Phys. Rev. D26 (1982) 1600] -C 3 1 2 440 = DO-G Set HO (Photons) -C------------------------------------------------------------------------------- -C 3 2 1 400 = DG-G Set 1 (Photons) [Z. Phys. C28 (1985) 451] -C 3 2 2 400 = DG-G Set 2 (Photons) -C 3 2 3 400 = DG-G Set 3 (Photons) -C 3 2 4 400 = DG-G Set 4 (Photons) -C------------------------------------------------------------------------------- -C 3 3 1 200 = LAC-G Set 1 (Photons) [Phys.Lett. 269B (1991) 458] -C 3 3 2 200 = LAC-G Set 2 (Photons) -C 3 3 3 200 = LAC-G Set 3 (Photons) -C------------------------------------------------------------------------------- -C 3 4 1 200 = GS-G Set HO (Photons) [Z. Phys. C56 (1992) 307] -C 3 4 2 200 = GS-G LO Set 1 (Photons) -C 3 4 3 200 = GS-G LO Set 2 (Photons) -C 3 4 4 200 = GS-96-G HO (Photons) [ANL-HEP-PR-96-33] -C 3 4 5 200 = GS-96-G LO (Photons) -C------------------------------------------------------------------------------- -C 3 5 1 200 = GRV-G Set L-HO (Photons) [Phys. Rev. D46 (1992) 1973 -C 3 5 2 200 = GRV-G Set HO (Photons) +Phys. Rev. D45 (1992) 3986 -C 3 5 3 200 = GRV-G Set LO (Photons) -C 3 5 4 200 = GRS-G Set LO (Photons) [Phys. Rev. D51 (1995) 3220 -C------------------------------------------------------------------------------- -C 3 6 1 200 = ACFGP-G Set HO (Photons) [Z. Phys. C56 (1992) 589] -C 3 6 2 200 = ACFGP-G Set HO-mc (Photons) -C 3 6 3 200 = AFG-G Set HO (Photons) [Z. Phys. C64 (1994) 621] -C------------------------------------------------------------------------------- -C 3 8 1 200 = WHIT-G Set 1 (Photons) [Phys.Rev. D51 (1995) 3197] -C 3 8 2 200 = WHIT-G Set 2 (Photons) -C 3 8 3 200 = WHIT-G Set 3 (Photons) -C 3 8 4 200 = WHIT-G Set 4 (Photons) -C 3 8 5 200 = WHIT-G Set 5 (Photons) -C 3 8 6 200 = WHIT-G Set 6 (Photons) -C------------------------------------------------------------------------------- -C 3 9 1 200 = SaS-G Set 1D (V1) [Z. Phys. C68 (1995) 607] -C 3 9 2 200 = SaS-G Set 1M (V1) -C 3 9 3 200 = SaS-G Set 2D (V1) -C 3 9 4 200 = SaS-G Set 2M (V1) -C 3 9 5 200 = SaS-G Set 1D (V2) [Phys.Lett. 376B (1996) 193] -C 3 9 6 200 = SaS-G Set 1M (V2) -C 3 9 7 200 = SaS-G Set 2D (V2) -C 3 9 8 200 = SaS-G Set 2M (V2) -C------------------------------------------------------------------------------- -C. diff --git a/PDF/pdf/w50512.inc b/PDF/pdf/w50512.inc deleted file mode 100644 index eaba2907975..00000000000 --- a/PDF/pdf/w50512.inc +++ /dev/null @@ -1,17 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:13 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:49 plothow -* Version 7.01 -* -* -* -* w50512.inc -* - COMMON/W50512/ QCDL4,QCDL5 -#include "expdp.inc" - + QCDL4,QCDL5 diff --git a/PDF/pdf/w505120.inc b/PDF/pdf/w505120.inc deleted file mode 100644 index 1b7a39380cb..00000000000 --- a/PDF/pdf/w505120.inc +++ /dev/null @@ -1,15 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:14 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:50 plothow -* Version 7.01 -* -* -* -* w505120.inc -* - COMMON/W505120/ NPGSMX(NPTYMX,NGRMAX),NSETFL(NPTYMX,NGRMAX,NSETMX) diff --git a/PDF/pdf/w505121.inc b/PDF/pdf/w505121.inc deleted file mode 100644 index 827fc6f01c0..00000000000 --- a/PDF/pdf/w505121.inc +++ /dev/null @@ -1,15 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:15 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:50 plothow -* Version 7.01 -* -* -* -* w505121.inc -* - COMMON/W505121/ NPTYCR(MODEMX),NGROCR(MODEMX),NSETCR(MODEMX) diff --git a/PDF/pdf/w505122.inc b/PDF/pdf/w505122.inc deleted file mode 100644 index eb600d62e19..00000000000 --- a/PDF/pdf/w505122.inc +++ /dev/null @@ -1,15 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:15 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:50 plothow -* Version 7.01 -* -* -* -* w505122.inc -* - COMMON/W505122/ MODECR(NPTYMX,NGRMAX,NSETMX) diff --git a/PDF/pdf/w50513.inc b/PDF/pdf/w50513.inc deleted file mode 100644 index 0df4ab4b825..00000000000 --- a/PDF/pdf/w50513.inc +++ /dev/null @@ -1,17 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:16 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:49 plothow -* Version 7.01 -* -* -* -* w50513.inc -* - COMMON/W50513/ XMIN,XMAX,Q2MIN,Q2MAX -#include "expdp.inc" - + XMIN,XMAX,Q2MIN,Q2MAX diff --git a/PDF/pdf/w50514.inc b/PDF/pdf/w50514.inc deleted file mode 100644 index 475b1258251..00000000000 --- a/PDF/pdf/w50514.inc +++ /dev/null @@ -1,19 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:16 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:49 plothow -* Version 7.01 -* -* -* -* w50514.inc -* - COMMON/W50514/ WXMIN,WXMAX,WQ2MIN,WQ2MAX, - + WTXMIN,WTXMAX,WTQ2MIN,WTQ2MAX -#include "expdp.inc" - + WXMIN,WXMAX,WQ2MIN,WQ2MAX, - + WTXMIN,WTXMAX,WTQ2MIN,WTQ2MAX diff --git a/PDF/pdf/w50514w.inc b/PDF/pdf/w50514w.inc deleted file mode 100644 index f6744b7411a..00000000000 --- a/PDF/pdf/w50514w.inc +++ /dev/null @@ -1,17 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:17 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:49 plothow -* Version 7.01 -* -* -* -* w50514w.inc -* - COMMON/W50514W/ PDFWGT -#include "expdp.inc" - + PDFWGT diff --git a/PDF/pdf/w50515.inc b/PDF/pdf/w50515.inc deleted file mode 100644 index d90f2aee89a..00000000000 --- a/PDF/pdf/w50515.inc +++ /dev/null @@ -1,15 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:17 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:49 plothow -* Version 7.01 -* -* -* -* w50515.inc -* - COMMON/W50515/ IFLSET,IFLSTA diff --git a/PDF/pdf/w50516.inc b/PDF/pdf/w50516.inc deleted file mode 100644 index 1314b7f3f7d..00000000000 --- a/PDF/pdf/w50516.inc +++ /dev/null @@ -1,16 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:18 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:49 plothow -* Version 7.01 -* -* -* -* w50516.inc -* - COMMON/W50516/ FIRST - LOGICAL FIRST diff --git a/PDF/pdf/w50517.inc b/PDF/pdf/w50517.inc deleted file mode 100644 index 57ef8547971..00000000000 --- a/PDF/pdf/w50517.inc +++ /dev/null @@ -1,15 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:18 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:49 plothow -* Version 7.01 -* -* -* -* w50517.inc -* - COMMON/W50517/ N6 diff --git a/PDF/pdf/w50518.inc b/PDF/pdf/w50518.inc deleted file mode 100644 index 5ca88682d9b..00000000000 --- a/PDF/pdf/w50518.inc +++ /dev/null @@ -1,28 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.3 1996/10/30 11:05:06 cernlib -* Conflicts resolved -* -* Revision 1.1.1.2 1996/10/30 08:27:19 cernlib -* Version 7.04 -* -* Revision 1.2 1996/10/28 16:01:51 pdflib -* PDFLIB new version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:50 plothow -* Version 7.01 -* -* -* -* w50518.inc -* - COMMON/W50518/ IFLPRTP, - + NPTYPP,NGROPP,NSETP,NFLP,LOP,TMASP, - + QCDL4P,QCDL5P, - + XMINP,XMAXP,Q2MINP,Q2MAXP -#include "expdp.inc" - + TMASP, - + QCDL4P,QCDL5P, - + XMINP,XMAXP,Q2MINP,Q2MAXP diff --git a/PDF/pdf/w50519.inc b/PDF/pdf/w50519.inc deleted file mode 100644 index c3b91c02774..00000000000 --- a/PDF/pdf/w50519.inc +++ /dev/null @@ -1,16 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:19 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:50 plothow -* Version 7.01 -* -* -* -* w50519.inc -* - COMMON/W50519/ NEWVER - LOGICAL NEWVER diff --git a/PDF/pdf/w5051p0.inc b/PDF/pdf/w5051p0.inc deleted file mode 100644 index 1b1c9be4558..00000000000 --- a/PDF/pdf/w5051p0.inc +++ /dev/null @@ -1,15 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:20 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:48 plothow -* Version 7.01 -* -* -* -* w5051p0.inc -* - PARAMETER (LFLPRT = 0) diff --git a/PDF/pdf/w5051p1.inc b/PDF/pdf/w5051p1.inc deleted file mode 100644 index efcdc5cd218..00000000000 --- a/PDF/pdf/w5051p1.inc +++ /dev/null @@ -1,22 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:20 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:48 plothow -* Version 7.01 -* -* -* -* w5051p1.inc -* -C. OLD default PDF was MRS set S0 (MODE = 45 : NPTYPE=1, NGROUP=3, NSET = 26) - PARAMETER (LPTYPO = 1, LGROPO = 3, LNSETO = 26) -C. NEW default PDF is GRV set HO (NPTYPE=1, NGROUP=5, NSET = 3) -C. PARAMETER (LPTYPE = 1, LGROUP = 5, LNSET = 3) -C. PARAMETER (IFL = -5, LORD = 2, TM = 100.D0) -C. NEW default (1995) PDF is MRS set (G) (NPTYPE=1, NGROUP=3, NSET = 41) - PARAMETER (LPTYPE = 1, LGROUP = 3, LNSET = 41) - PARAMETER (IFL = -5, LORD = 2, TM = 180.D0) diff --git a/PDF/pdf/w5051p2.inc b/PDF/pdf/w5051p2.inc deleted file mode 100644 index f3bea3db67d..00000000000 --- a/PDF/pdf/w5051p2.inc +++ /dev/null @@ -1,20 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:21 cernlib -* Version 7.04 -* -* Revision 1.2 1996/10/28 16:01:58 pdflib -* PDFLIB new version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:48 plothow -* Version 7.01 -* -* -* -* w5051p2.inc -* - PARAMETER (MODEMX = 300) - PARAMETER (NPTYMX = 3, NGRMAX = 9, NSETMX = 58) - PARAMETER (NCHDIM=20) diff --git a/PDF/pdf/w5051p3.inc b/PDF/pdf/w5051p3.inc deleted file mode 100644 index 73cf2e2165b..00000000000 --- a/PDF/pdf/w5051p3.inc +++ /dev/null @@ -1,23 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:22 cernlib -* Version 7.04 -* -* Revision 1.2 1996/10/28 16:02:03 pdflib -* PDFLIB new version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:48 plothow -* Version 7.01 -* -* -* -* w5051p3.inc -* - PARAMETER (ND11=10,ND12= 9,ND13=58,ND14=41,ND15=11,ND16= 1,ND17=2, - + ND18= 0,ND19= 0) - PARAMETER (ND21= 2,ND22= 0,ND23= 3,ND24= 0,ND25= 2,ND26= 3,ND27=0, - + ND28= 0,ND29= 0) - PARAMETER (ND31= 2,ND32= 4,ND33= 3,ND34= 5,ND35= 4,ND36= 3,ND37=0, - + ND38= 6,ND39= 8) diff --git a/PDF/pdf/w5051p7.inc b/PDF/pdf/w5051p7.inc deleted file mode 100644 index 2d09c8acc74..00000000000 --- a/PDF/pdf/w5051p7.inc +++ /dev/null @@ -1,15 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:23 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:48 plothow -* Version 7.01 -* -* -* -* w5051p7.inc -* - PARAMETER (L6 = 6) diff --git a/PDF/spdf/abfkw1.F b/PDF/spdf/abfkw1.F deleted file mode 100644 index aad216c95d5..00000000000 --- a/PDF/spdf/abfkw1.F +++ /dev/null @@ -1,1152 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:26 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:53 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE ABFKW1(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL) -#include "pdf/expdp.inc" - + PARPI(40),CALCPI(8,20,25),CALCPIO(8,20,25),ZEROD, - + DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL - REAL X, Q, UPV, DNV, USEA, DSEA, STR, CHM, GL - COMMON/W5051I4/CALCPIO - REAL XPDF(7) - DATA ZEROD/0.D0/ -C---------------------------------------------------------------------- - DATA (PARPI(I),I=1,40) / - + 0.23100001D+00, 0.48144296D+00, 0.85000002D+00, 0.00000000D+00, - + 0.00000000D+00, 0.48144296D+00, 0.85000002D+00, 0.00000000D+00, - + 0.11899999D+01, 0.75000000D+01, 0.13141799D+01, 0.00000000D+00, - + 0.19399996D+01, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.10000002D+00, 0.20000000D+01, 0.10000000D+09/ - DATA ((CALCPI(I,K,1 ),I=1,8), K=1,9) / - + 0.22140269D+00, 0.22140269D+00, 0.19685064D+00, 0.19685064D+00, - + 0.19685064D+00, 0.19685064D+00, 0.13116316D+01,-0.13877788D-16, - + 0.25080273D+00, 0.25080273D+00, 0.22511065D+00, 0.22509599D+00, - + 0.22509599D+00, 0.22511065D+00, 0.22286000D+01, 0.28635159D-01, - + 0.28591723D+00, 0.28591723D+00, 0.25906064D+00, 0.25903234D+00, - + 0.25903234D+00, 0.25906064D+00, 0.33077720D+01, 0.62978723D-01, - + 0.32706236D+00, 0.32706236D+00, 0.29901635D+00, 0.29897542D+00, - + 0.29897542D+00, 0.29901635D+00, 0.45519044D+01, 0.10334740D+00, - + 0.37451469D+00, 0.37451469D+00, 0.34525400D+00, 0.34520145D+00, - + 0.34520145D+00, 0.34525400D+00, 0.59609093D+01, 0.15001828D+00, - + 0.42853598D+00, 0.42853598D+00, 0.39803505D+00, 0.39797187D+00, - + 0.39797187D+00, 0.39803505D+00, 0.75323518D+01, 0.20325375D+00, - + 0.48936317D+00, 0.48936317D+00, 0.45759618D+00, 0.45752335D+00, - + 0.45752335D+00, 0.45759618D+00, 0.92617400D+01, 0.26329141D+00, - + 0.55719981D+00, 0.55719981D+00, 0.52414072D+00, 0.52405919D+00, - + 0.52405919D+00, 0.52414072D+00, 0.11142399D+02, 0.33033552D+00, - + 0.63220956D+00, 0.63220956D+00, 0.59783217D+00, 0.59774287D+00, - + 0.59774287D+00, 0.59783217D+00, 0.13165611D+02, 0.40455054D+00/ - DATA ((CALCPI(I,K,1 ),I=1,8), K=10,18) / - + 0.71450853D+00, 0.71450853D+00, 0.67878657D+00, 0.67869040D+00, - + 0.67869040D+00, 0.67878657D+00, 0.15320719D+02, 0.48605343D+00, - + 0.80415917D+00, 0.80415917D+00, 0.76706634D+00, 0.76696415D+00, - + 0.76696415D+00, 0.76706634D+00, 0.17595287D+02, 0.57490756D+00, - + 0.90116462D+00, 0.90116462D+00, 0.86267465D+00, 0.86256730D+00, - + 0.86256730D+00, 0.86267465D+00, 0.19975278D+02, 0.67111702D+00, - + 0.10054642D+01, 0.10054642D+01, 0.96555100D+00, 0.96543927D+00, - + 0.96543927D+00, 0.96555100D+00, 0.22445275D+02, 0.77462220D+00, - + 0.11169301D+01, 0.11169301D+01, 0.10755678D+01, 0.10754524D+01, - + 0.10754524D+01, 0.10755678D+01, 0.24988714D+02, 0.88529636D+00, - + 0.12353653D+01, 0.12353653D+01, 0.11925281D+01, 0.11924099D+01, - + 0.11924099D+01, 0.11925281D+01, 0.27588132D+02, 0.10029436D+01, - + 0.13605024D+01, 0.13605024D+01, 0.13161653D+01, 0.13160449D+01, - + 0.13160449D+01, 0.13161653D+01, 0.30225438D+02, 0.11272979D+01, - + 0.14920050D+01, 0.14920050D+01, 0.14461432D+01, 0.14460213D+01, - + 0.14460213D+01, 0.14461432D+01, 0.32882177D+02, 0.12580239D+01, - + 0.16294688D+01, 0.16294688D+01, 0.15820581D+01, 0.15819353D+01, - + 0.15819353D+01, 0.15820581D+01, 0.35539797D+02, 0.13947186D+01/ - DATA ((CALCPI(I,K,1 ),I=1,8), K=19,20) / - + 0.17724250D+01, 0.17724250D+01, 0.17234420D+01, 0.17233189D+01, - + 0.17233189D+01, 0.17234420D+01, 0.38179911D+02, 0.15369149D+01, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,2 ),I=1,8), K=1,9) / - + 0.22962650D+00, 0.22962650D+00, 0.19537758D+00, 0.19537758D+00, - + 0.19537758D+00, 0.19537758D+00, 0.13090857D+01,-0.52041704D-17, - + 0.25507198D+00, 0.25507198D+00, 0.21930362D+00, 0.21928667D+00, - + 0.21928667D+00, 0.21930362D+00, 0.20885177D+01, 0.24525223D-01, - + 0.28451053D+00, 0.28451053D+00, 0.24719909D+00, 0.24716658D+00, - + 0.24716658D+00, 0.24719909D+00, 0.29708031D+01, 0.53046751D-01, - + 0.31806604D+00, 0.31806604D+00, 0.27918760D+00, 0.27914087D+00, - + 0.27914087D+00, 0.27918760D+00, 0.39528798D+01, 0.85689272D-01, - + 0.35583388D+00, 0.35583388D+00, 0.31536431D+00, 0.31530467D+00, - + 0.31530467D+00, 0.31536431D+00, 0.50304250D+01, 0.12254893D+00, - + 0.39788326D+00, 0.39788326D+00, 0.35579832D+00, 0.35572701D+00, - + 0.35572701D+00, 0.35579832D+00, 0.61975010D+01, 0.16369581D+00, - + 0.44425831D+00, 0.44425831D+00, 0.40053375D+00, 0.40045195D+00, - + 0.40045195D+00, 0.40053375D+00, 0.74470006D+01, 0.20917500D+00, - + 0.49497074D+00, 0.49497074D+00, 0.44958238D+00, 0.44949122D+00, - + 0.44949122D+00, 0.44958238D+00, 0.87706026D+01, 0.25899925D+00, - + 0.54999776D+00, 0.54999776D+00, 0.50292158D+00, 0.50282213D+00, - + 0.50282213D+00, 0.50292158D+00, 0.10158949D+02, 0.31314686D+00/ - DATA ((CALCPI(I,K,2 ),I=1,8), K=10,18) / - + 0.60927859D+00, 0.60927859D+00, 0.56049086D+00, 0.56038414D+00, - + 0.56038414D+00, 0.56049086D+00, 0.11601786D+02, 0.37155825D+00, - + 0.67271255D+00, 0.67271255D+00, 0.62218991D+00, 0.62207688D+00, - + 0.62207688D+00, 0.62218991D+00, 0.13088130D+02, 0.43413398D+00, - + 0.74015763D+00, 0.74015763D+00, 0.68787725D+00, 0.68775879D+00, - + 0.68775879D+00, 0.68787725D+00, 0.14606447D+02, 0.50073338D+00, - + 0.81143010D+00, 0.81143010D+00, 0.75736975D+00, 0.75724670D+00, - + 0.75724670D+00, 0.75736975D+00, 0.16144842D+02, 0.57117411D+00, - + 0.88630486D+00, 0.88630486D+00, 0.83044306D+00, 0.83031620D+00, - + 0.83031620D+00, 0.83044306D+00, 0.17691241D+02, 0.64523253D+00, - + 0.96451671D+00, 0.96451671D+00, 0.90683286D+00, 0.90670292D+00, - + 0.90670292D+00, 0.90683286D+00, 0.19233583D+02, 0.72264496D+00, - + 0.10457625D+01, 0.10457625D+01, 0.98623695D+00, 0.98610460D+00, - + 0.98610460D+00, 0.98623695D+00, 0.20760000D+02, 0.80310977D+00, - + 0.11297038D+01, 0.11297038D+01, 0.10683181D+01, 0.10681840D+01, - + 0.10681840D+01, 0.10683181D+01, 0.22258984D+02, 0.88629027D+00, - + 0.12159709D+01, 0.12159709D+01, 0.11527077D+01, 0.11525724D+01, - + 0.11525724D+01, 0.11527077D+01, 0.23719549D+02, 0.97181822D+00/ - DATA ((CALCPI(I,K,2 ),I=1,8), K=19,20) / - + 0.13041663D+01, 0.13041663D+01, 0.12390098D+01, 0.12388737D+01, - + 0.12388737D+01, 0.12390098D+01, 0.25131368D+02, 0.10592980D+01, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,3 ),I=1,8), K=1,9) / - + 0.24019491D+00, 0.24019491D+00, 0.19246010D+00, 0.19246010D+00, - + 0.19246010D+00, 0.19246010D+00, 0.13040010D+01, 0.17347235D-17, - + 0.26157540D+00, 0.26157540D+00, 0.21186532D+00, 0.21184668D+00, - + 0.21184668D+00, 0.21186532D+00, 0.19406069D+01, 0.20360455D-01, - + 0.28562114D+00, 0.28562114D+00, 0.23391804D+00, 0.23388239D+00, - + 0.23388239D+00, 0.23391804D+00, 0.26354185D+01, 0.43404993D-01, - + 0.31233178D+00, 0.31233178D+00, 0.25861790D+00, 0.25856676D+00, - + 0.25856676D+00, 0.25861790D+00, 0.33828941D+01, 0.69134146D-01, - + 0.34169028D+00, 0.34169028D+00, 0.28594796D+00, 0.28588275D+00, - + 0.28588275D+00, 0.28594796D+00, 0.41773039D+01, 0.97531782D-01, - + 0.37365221D+00, 0.37365221D+00, 0.31586405D+00, 0.31578608D+00, - + 0.31578608D+00, 0.31586405D+00, 0.50119791D+01, 0.12855449D+00, - + 0.40815374D+00, 0.40815374D+00, 0.34830275D+00, 0.34821324D+00, - + 0.34821324D+00, 0.34830275D+00, 0.58797806D+01, 0.16213959D+00, - + 0.44510634D+00, 0.44510634D+00, 0.38317610D+00, 0.38307619D+00, - + 0.38307619D+00, 0.38317610D+00, 0.67731030D+01, 0.19819979D+00, - + 0.48439760D+00, 0.48439760D+00, 0.42037242D+00, 0.42026315D+00, - + 0.42026315D+00, 0.42037242D+00, 0.76840363D+01, 0.23662403D+00/ - DATA ((CALCPI(I,K,3 ),I=1,8), K=10,18) / - + 0.52589064D+00, 0.52589064D+00, 0.45975572D+00, 0.45963803D+00, - + 0.45963803D+00, 0.45975572D+00, 0.86044965D+01, 0.27727687D+00, - + 0.56942469D+00, 0.56942469D+00, 0.50116627D+00, 0.50104105D+00, - + 0.50104105D+00, 0.50116627D+00, 0.95263616D+01, 0.31999903D+00, - + 0.61481598D+00, 0.61481598D+00, 0.54442155D+00, 0.54428959D+00, - + 0.54428959D+00, 0.54442155D+00, 0.10441605D+02, 0.36460836D+00, - + 0.66185929D+00, 0.66185929D+00, 0.58931768D+00, 0.58917972D+00, - + 0.58917972D+00, 0.58931768D+00, 0.11342420D+02, 0.41090129D+00, - + 0.71032982D+00, 0.71032982D+00, 0.63563143D+00, 0.63548814D+00, - + 0.63548814D+00, 0.63563143D+00, 0.12221339D+02, 0.45865476D+00, - + 0.75998561D+00, 0.75998561D+00, 0.68312252D+00, 0.68297452D+00, - + 0.68297452D+00, 0.68312252D+00, 0.13071337D+02, 0.50762856D+00, - + 0.81057023D+00, 0.81057023D+00, 0.73153641D+00, 0.73138425D+00, - + 0.73138425D+00, 0.73153641D+00, 0.13885922D+02, 0.55756812D+00, - + 0.86181587D+00, 0.86181587D+00, 0.78060726D+00, 0.78045145D+00, - + 0.78045145D+00, 0.78060726D+00, 0.14659213D+02, 0.60820744D+00, - + 0.91344649D+00, 0.91344649D+00, 0.83006119D+00, 0.82990221D+00, - + 0.82990221D+00, 0.83006119D+00, 0.15385999D+02, 0.65927238D+00/ - DATA ((CALCPI(I,K,3 ),I=1,8), K=19,20) / - + 0.96518125D+00, 0.96518125D+00, 0.87961963D+00, 0.87945793D+00, - + 0.87945793D+00, 0.87961963D+00, 0.16061782D+02, 0.71048400D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,4 ),I=1,8), K=1,9) / - + 0.25315509D+00, 0.25315509D+00, 0.18673822D+00, 0.18673822D+00, - + 0.18673822D+00, 0.18673822D+00, 0.12938605D+01,-0.12143064D-16, - + 0.27064908D+00, 0.27064908D+00, 0.20174574D+00, 0.20172502D+00, - + 0.20172502D+00, 0.20174574D+00, 0.17924596D+01, 0.16509816D-01, - + 0.28977941D+00, 0.28977941D+00, 0.21838700D+00, 0.21834698D+00, - + 0.21834698D+00, 0.21838700D+00, 0.23168316D+01, 0.34696115D-01, - + 0.31046903D+00, 0.31046903D+00, 0.23658541D+00, 0.23652738D+00, - + 0.23652738D+00, 0.23658541D+00, 0.28610418D+01, 0.54482693D-01, - + 0.33263853D+00, 0.33263853D+00, 0.25626219D+00, 0.25618735D+00, - + 0.25618735D+00, 0.25626219D+00, 0.34196610D+01, 0.75791072D-01, - + 0.35618798D+00, 0.35618798D+00, 0.27731834D+00, 0.27722775D+00, - + 0.27722775D+00, 0.27731834D+00, 0.39869406D+01, 0.98522428D-01, - + 0.38100736D+00, 0.38100736D+00, 0.29964493D+00, 0.29953959D+00, - + 0.29953959D+00, 0.29964493D+00, 0.45571740D+01, 0.12256797D+00, - + 0.40697315D+00, 0.40697315D+00, 0.32311980D+00, 0.32300061D+00, - + 0.32300061D+00, 0.32311980D+00, 0.51247243D+01, 0.14780556D+00, - + 0.43395011D+00, 0.43395011D+00, 0.34760929D+00, 0.34747709D+00, - + 0.34747709D+00, 0.34760929D+00, 0.56841234D+01, 0.17410141D+00/ - DATA ((CALCPI(I,K,4 ),I=1,8), K=10,18) / - + 0.46179207D+00, 0.46179207D+00, 0.37296900D+00, 0.37282457D+00, - + 0.37282457D+00, 0.37296900D+00, 0.62301588D+01, 0.20131094D+00, - + 0.49034324D+00, 0.49034324D+00, 0.39904517D+00, 0.39888922D+00, - + 0.39888922D+00, 0.39904517D+00, 0.67579471D+01, 0.22928003D+00, - + 0.51943982D+00, 0.51943982D+00, 0.42567618D+00, 0.42550940D+00, - + 0.42550940D+00, 0.42567618D+00, 0.72629999D+01, 0.25784658D+00, - + 0.54891169D+00, 0.54891169D+00, 0.45269431D+00, 0.45251735D+00, - + 0.45251735D+00, 0.45269431D+00, 0.77412779D+01, 0.28684227D+00, - + 0.57858438D+00, 0.57858438D+00, 0.47992766D+00, 0.47974115D+00, - + 0.47974115D+00, 0.47992766D+00, 0.81892322D+01, 0.31609445D+00, - + 0.60828105D+00, 0.60828105D+00, 0.50720216D+00, 0.50700670D+00, - + 0.50700670D+00, 0.50720216D+00, 0.86038347D+01, 0.34542816D+00, - + 0.63782465D+00, 0.63782465D+00, 0.53434362D+00, 0.53413982D+00, - + 0.53413982D+00, 0.53434362D+00, 0.89825949D+01, 0.37466819D+00, - + 0.66703996D+00, 0.66703996D+00, 0.56117987D+00, 0.56096832D+00, - + 0.56096832D+00, 0.56117987D+00, 0.93235663D+01, 0.40364120D+00, - + 0.69575566D+00, 0.69575566D+00, 0.58754275D+00, 0.58732405D+00, - + 0.58732405D+00, 0.58754275D+00, 0.96253409D+01, 0.43217772D+00/ - DATA ((CALCPI(I,K,4 ),I=1,8), K=19,20) / - + 0.72380629D+00, 0.72380629D+00, 0.61327008D+00, 0.61304483D+00, - + 0.61304483D+00, 0.61327008D+00, 0.98870346D+01, 0.46011414D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,5 ),I=1,8), K=1,9) / - + 0.26782645D+00, 0.26782645D+00, 0.17573526D+00, 0.17573526D+00, - + 0.17573526D+00, 0.17573526D+00, 0.12736946D+01,-0.52041704D-17, - + 0.28161029D+00, 0.28161029D+00, 0.18653978D+00, 0.18651150D+00, - + 0.18651150D+00, 0.18653978D+00, 0.16428161D+01, 0.13073499D-01, - + 0.29621305D+00, 0.29621305D+00, 0.19819215D+00, 0.19813682D+00, - + 0.19813682D+00, 0.19819215D+00, 0.20150024D+01, 0.27031571D-01, - + 0.31152966D+00, 0.31152966D+00, 0.21058835D+00, 0.21050717D+00, - + 0.21050717D+00, 0.21058835D+00, 0.23855227D+01, 0.41769767D-01, - + 0.32746372D+00, 0.32746372D+00, 0.22363333D+00, 0.22352746D+00, - + 0.22352746D+00, 0.22363333D+00, 0.27504479D+01, 0.57192518D-01, - + 0.34390855D+00, 0.34390855D+00, 0.23722207D+00, 0.23709264D+00, - + 0.23709264D+00, 0.23722207D+00, 0.31059869D+01, 0.73194145D-01, - + 0.36075557D+00, 0.36075557D+00, 0.25124798D+00, 0.25109612D+00, - + 0.25109612D+00, 0.25124798D+00, 0.34486504D+01, 0.89667244D-01, - + 0.37789270D+00, 0.37789270D+00, 0.26560123D+00, 0.26542805D+00, - + 0.26542805D+00, 0.26560123D+00, 0.37752826D+01, 0.10650101D+00, - + 0.39520565D+00, 0.39520565D+00, 0.28017006D+00, 0.27997668D+00, - + 0.27997668D+00, 0.28017006D+00, 0.40830848D+01, 0.12358257D+00/ - DATA ((CALCPI(I,K,5 ),I=1,8), K=10,18) / - + 0.41257900D+00, 0.41257900D+00, 0.29484183D+00, 0.29462939D+00, - + 0.29462939D+00, 0.29484183D+00, 0.43696458D+01, 0.14079799D+00, - + 0.42989728D+00, 0.42989728D+00, 0.30950408D+00, 0.30927372D+00, - + 0.30927372D+00, 0.30950408D+00, 0.46329556D+01, 0.15803337D+00, - + 0.44704622D+00, 0.44704622D+00, 0.32404572D+00, 0.32379862D+00, - + 0.32379862D+00, 0.32404572D+00, 0.48714123D+01, 0.17517602D+00, - + 0.46391393D+00, 0.46391393D+00, 0.33835823D+00, 0.33809558D+00, - + 0.33809558D+00, 0.33835823D+00, 0.50838214D+01, 0.19211569D+00, - + 0.48039212D+00, 0.48039212D+00, 0.35233683D+00, 0.35205986D+00, - + 0.35205986D+00, 0.35233683D+00, 0.52693863D+01, 0.20874570D+00, - + 0.49637726D+00, 0.49637726D+00, 0.36588164D+00, 0.36559160D+00, - + 0.36559160D+00, 0.36588164D+00, 0.54276925D+01, 0.22496413D+00, - + 0.51177168D+00, 0.51177168D+00, 0.37889870D+00, 0.37859687D+00, - + 0.37859687D+00, 0.37889870D+00, 0.55586853D+01, 0.24067487D+00, - + 0.52648452D+00, 0.52648452D+00, 0.39130095D+00, 0.39098863D+00, - + 0.39098863D+00, 0.39130095D+00, 0.56626433D+01, 0.25578859D+00, - + 0.54043265D+00, 0.54043265D+00, 0.40300904D+00, 0.40268758D+00, - + 0.40268758D+00, 0.40300904D+00, 0.57401466D+01, 0.27022355D+00/ - DATA ((CALCPI(I,K,5 ),I=1,8), K=19,20) / - + 0.55354128D+00, 0.55354128D+00, 0.41395203D+00, 0.41362280D+00, - + 0.41362280D+00, 0.41395203D+00, 0.57920431D+01, 0.28390636D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,6 ),I=1,8), K=1,9) / - + 0.28219647D+00, 0.28219647D+00, 0.15540352D+00, 0.15540352D+00, - + 0.15540352D+00, 0.15540352D+00, 0.12338234D+01,-0.20816682D-16, - + 0.29224646D+00, 0.29224646D+00, 0.16218763D+00, 0.16214704D+00, - + 0.16214704D+00, 0.16218763D+00, 0.14815337D+01, 0.99518348D-02, - + 0.30249649D+00, 0.30249649D+00, 0.16925671D+00, 0.16917819D+00, - + 0.16917819D+00, 0.16925671D+00, 0.17187660D+01, 0.20193827D-01, - + 0.31285396D+00, 0.31285396D+00, 0.17651963D+00, 0.17640575D+00, - + 0.17640575D+00, 0.17651963D+00, 0.19429248D+01, 0.30633863D-01, - + 0.32323902D+00, 0.32323902D+00, 0.18389841D+00, 0.18375170D+00, - + 0.18375170D+00, 0.18389841D+00, 0.21521062D+01, 0.41192835D-01, - + 0.33357043D+00, 0.33357043D+00, 0.19131401D+00, 0.19113695D+00, - + 0.19113695D+00, 0.19131401D+00, 0.23447352D+01, 0.51790394D-01, - + 0.34376980D+00, 0.34376980D+00, 0.19869060D+00, 0.19848564D+00, - + 0.19848564D+00, 0.19869060D+00, 0.25195518D+01, 0.62349195D-01, - + 0.35376133D+00, 0.35376133D+00, 0.20595523D+00, 0.20572480D+00, - + 0.20572480D+00, 0.20595523D+00, 0.26756333D+01, 0.72794584D-01, - + 0.36347235D+00, 0.36347235D+00, 0.21303830D+00, 0.21278481D+00, - + 0.21278481D+00, 0.21303830D+00, 0.28123710D+01, 0.83055111D-01/ - DATA ((CALCPI(I,K,6 ),I=1,8), K=10,18) / - + 0.37283404D+00, 0.37283404D+00, 0.21987426D+00, 0.21960009D+00, - + 0.21960009D+00, 0.21987426D+00, 0.29294598D+01, 0.93063203D-01, - + 0.38178193D+00, 0.38178193D+00, 0.22640205D+00, 0.22610959D+00, - + 0.22610959D+00, 0.22640205D+00, 0.30268775D+01, 0.10275566D+00, - + 0.39025650D+00, 0.39025650D+00, 0.23256568D+00, 0.23225727D+00, - + 0.23225727D+00, 0.23256568D+00, 0.31048625D+01, 0.11207421D+00, - + 0.39820364D+00, 0.39820364D+00, 0.23831460D+00, 0.23799257D+00, - + 0.23799257D+00, 0.23831460D+00, 0.31638875D+01, 0.12096593D+00, - + 0.40557510D+00, 0.40557510D+00, 0.24360413D+00, 0.24327080D+00, - + 0.24327080D+00, 0.24360413D+00, 0.32046324D+01, 0.12938368D+00, - + 0.41232880D+00, 0.41232880D+00, 0.24839575D+00, 0.24805337D+00, - + 0.24805337D+00, 0.24839575D+00, 0.32279537D+01, 0.13728640D+00, - + 0.41842908D+00, 0.41842908D+00, 0.25265724D+00, 0.25230805D+00, - + 0.25230805D+00, 0.25265724D+00, 0.32348559D+01, 0.14463932D+00, - + 0.42384683D+00, 0.42384683D+00, 0.25636286D+00, 0.25600903D+00, - + 0.25600903D+00, 0.25636286D+00, 0.32264602D+01, 0.15141406D+00, - + 0.42855952D+00, 0.42855952D+00, 0.25949327D+00, 0.25913692D+00, - + 0.25913692D+00, 0.25949327D+00, 0.32039765D+01, 0.15758867D+00/ - DATA ((CALCPI(I,K,6 ),I=1,8), K=19,20) / - + 0.43255118D+00, 0.43255118D+00, 0.26203548D+00, 0.26167866D+00, - + 0.26167866D+00, 0.26203548D+00, 0.31686746D+01, 0.16314757D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,7 ),I=1,8), K=1,9) / - + 0.29280552D+00, 0.29280552D+00, 0.12077151D+00, 0.12077151D+00, - + 0.12077151D+00, 0.12077151D+00, 0.11559258D+01,-0.12143064D-16, - + 0.29901167D+00, 0.29901167D+00, 0.12402622D+00, 0.12399452D+00, - + 0.12399452D+00, 0.12402622D+00, 0.12925275D+01, 0.70690170D-02, - + 0.30500058D+00, 0.30500058D+00, 0.12723744D+00, 0.12717719D+00, - + 0.12717719D+00, 0.12723744D+00, 0.14138632D+01, 0.14034489D-01, - + 0.31071654D+00, 0.31071654D+00, 0.13034974D+00, 0.13026403D+00, - + 0.13026403D+00, 0.13034974D+00, 0.15195077D+01, 0.20841335D-01, - + 0.31611428D+00, 0.31611428D+00, 0.13331876D+00, 0.13321060D+00, - + 0.13321060D+00, 0.13331876D+00, 0.16093640D+01, 0.27445092D-01, - + 0.32115233D+00, 0.32115233D+00, 0.13610422D+00, 0.13597655D+00, - + 0.13597655D+00, 0.13610422D+00, 0.16836156D+01, 0.33805193D-01, - + 0.32579325D+00, 0.32579325D+00, 0.13867014D+00, 0.13852580D+00, - + 0.13852580D+00, 0.13867014D+00, 0.17426243D+01, 0.39885133D-01, - + 0.33000415D+00, 0.33000415D+00, 0.14098526D+00, 0.14082701D+00, - + 0.14082701D+00, 0.14098526D+00, 0.17869403D+01, 0.45652956D-01, - + 0.33375653D+00, 0.33375653D+00, 0.14302282D+00, 0.14285330D+00, - + 0.14285330D+00, 0.14302282D+00, 0.18172666D+01, 0.51081052D-01/ - DATA ((CALCPI(I,K,7 ),I=1,8), K=10,18) / - + 0.33702654D+00, 0.33702654D+00, 0.14476066D+00, 0.14458241D+00, - + 0.14458241D+00, 0.14476066D+00, 0.18344337D+01, 0.56146321D-01, - + 0.33979491D+00, 0.33979491D+00, 0.14618121D+00, 0.14599663D+00, - + 0.14599663D+00, 0.14618121D+00, 0.18393737D+01, 0.60830155D-01, - + 0.34204705D+00, 0.34204705D+00, 0.14727138D+00, 0.14708278D+00, - + 0.14708278D+00, 0.14727138D+00, 0.18330943D+01, 0.65118404D-01, - + 0.34377296D+00, 0.34377296D+00, 0.14802250D+00, 0.14783204D+00, - + 0.14783204D+00, 0.14802250D+00, 0.18166544D+01, 0.69001296D-01, - + 0.34496712D+00, 0.34496712D+00, 0.14843014D+00, 0.14823983D+00, - + 0.14823983D+00, 0.14843014D+00, 0.17911408D+01, 0.72473296D-01, - + 0.34562835D+00, 0.34562835D+00, 0.14849389D+00, 0.14830561D+00, - + 0.14830561D+00, 0.14849389D+00, 0.17576475D+01, 0.75532926D-01, - + 0.34575960D+00, 0.34575960D+00, 0.14821709D+00, 0.14803256D+00, - + 0.14803256D+00, 0.14821709D+00, 0.17172568D+01, 0.78182521D-01, - + 0.34536767D+00, 0.34536767D+00, 0.14760657D+00, 0.14742738D+00, - + 0.14742738D+00, 0.14760657D+00, 0.16710221D+01, 0.80427961D-01, - + 0.34446294D+00, 0.34446294D+00, 0.14667231D+00, 0.14649988D+00, - + 0.14649988D+00, 0.14667231D+00, 0.16199548D+01, 0.82278349D-01/ - DATA ((CALCPI(I,K,7 ),I=1,8), K=19,20) / - + 0.34305904D+00, 0.34305904D+00, 0.14542707D+00, 0.14526266D+00, - + 0.14526266D+00, 0.14542707D+00, 0.15650121D+01, 0.83745679D-01, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,8 ),I=1,8), K=1,9) / - + 0.29627045D+00, 0.29627045D+00, 0.89994175D-01, 0.89994175D-01, - + 0.89994175D-01, 0.89994175D-01, 0.10712363D+01, 0.17347235D-17, - + 0.29991929D+00, 0.29991929D+00, 0.91581448D-01, 0.91557910D-01, - + 0.91557910D-01, 0.91581448D-01, 0.11446751D+01, 0.53207716D-02, - + 0.30318589D+00, 0.30318589D+00, 0.93029014D-01, 0.92985973D-01, - + 0.92985973D-01, 0.93029014D-01, 0.12038186D+01, 0.10393913D-01, - + 0.30604346D+00, 0.30604346D+00, 0.94307822D-01, 0.94248960D-01, - + 0.94248960D-01, 0.94307822D-01, 0.12492913D+01, 0.15193291D-01, - + 0.30847170D+00, 0.30847170D+00, 0.95396250D-01, 0.95324964D-01, - + 0.95324964D-01, 0.95396250D-01, 0.12817896D+01, 0.19699292D-01, - + 0.31045523D+00, 0.31045523D+00, 0.96277597D-01, 0.96196993D-01, - + 0.96196993D-01, 0.96277597D-01, 0.13021816D+01, 0.23897082D-01, - + 0.31198185D+00, 0.31198185D+00, 0.96938522D-01, 0.96851433D-01, - + 0.96851433D-01, 0.96938522D-01, 0.13113976D+01, 0.27774901D-01, - + 0.31304339D+00, 0.31304339D+00, 0.97369634D-01, 0.97278626D-01, - + 0.97278626D-01, 0.97369634D-01, 0.13104335D+01, 0.31324756D-01, - + 0.31363523D+00, 0.31363523D+00, 0.97565027D-01, 0.97472411D-01, - + 0.97472411D-01, 0.97565027D-01, 0.13003232D+01, 0.34541991D-01/ - DATA ((CALCPI(I,K,8 ),I=1,8), K=10,18) / - + 0.31375636D+00, 0.31375636D+00, 0.97522168D-01, 0.97430008D-01, - + 0.97430008D-01, 0.97522168D-01, 0.12821164D+01, 0.37425212D-01, - + 0.31340918D+00, 0.31340918D+00, 0.97241659D-01, 0.97151782D-01, - + 0.97151782D-01, 0.97241659D-01, 0.12568598D+01, 0.39976094D-01, - + 0.31259932D+00, 0.31259932D+00, 0.96726997D-01, 0.96641002D-01, - + 0.96641002D-01, 0.96726997D-01, 0.12255793D+01, 0.42199162D-01, - + 0.31133549D+00, 0.31133549D+00, 0.95984311D-01, 0.95903582D-01, - + 0.95903582D-01, 0.95984311D-01, 0.11892648D+01, 0.44101561D-01, - + 0.30962918D+00, 0.30962918D+00, 0.95022085D-01, 0.94947799D-01, - + 0.94947799D-01, 0.95022085D-01, 0.11488584D+01, 0.45692801D-01, - + 0.30749446D+00, 0.30749446D+00, 0.93850858D-01, 0.93783994D-01, - + 0.93783994D-01, 0.93850858D-01, 0.11052434D+01, 0.46984475D-01, - + 0.30494764D+00, 0.30494764D+00, 0.92482918D-01, 0.92424272D-01, - + 0.92424272D-01, 0.92482918D-01, 0.10592368D+01, 0.47989972D-01, - + 0.30200705D+00, 0.30200705D+00, 0.90931995D-01, 0.90882192D-01, - + 0.90882192D-01, 0.90931995D-01, 0.10115844D+01, 0.48724180D-01, - + 0.29869269D+00, 0.29869269D+00, 0.89212952D-01, 0.89172455D-01, - + 0.89172455D-01, 0.89212952D-01, 0.96295666D+00, 0.49203191D-01/ - DATA ((CALCPI(I,K,8 ),I=1,8), K=19,20) / - + 0.29502594D+00, 0.29502594D+00, 0.87341488D-01, 0.87310610D-01, - + 0.87310610D-01, 0.87341488D-01, 0.91394814D+00, 0.49444007D-01, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,9 ),I=1,8), K=1,9) / - + 0.29746990D+00, 0.29746990D+00, 0.58618905D-01, 0.58618905D-01, - + 0.58618905D-01, 0.58618905D-01, 0.95879903D+00, 0.00000000D+00, - + 0.29865936D+00, 0.29865936D+00, 0.59337220D-01, 0.59331484D-01, - + 0.59331484D-01, 0.59337220D-01, 0.98317291D+00, 0.38205398D-02, - + 0.29937827D+00, 0.29937827D+00, 0.59886045D-01, 0.59876712D-01, - + 0.59876712D-01, 0.59886045D-01, 0.99636370D+00, 0.73385077D-02, - + 0.29962647D+00, 0.29962647D+00, 0.60257945D-01, 0.60246833D-01, - + 0.60246833D-01, 0.60257945D-01, 0.99957028D+00, 0.10552393D-01, - + 0.29940561D+00, 0.29940561D+00, 0.60448767D-01, 0.60437447D-01, - + 0.60437447D-01, 0.60448767D-01, 0.99386228D+00, 0.13462569D-01, - + 0.29872179D+00, 0.29872179D+00, 0.60458476D-01, 0.60448281D-01, - + 0.60448281D-01, 0.60458476D-01, 0.98035896D+00, 0.16073356D-01, - + 0.29758293D+00, 0.29758293D+00, 0.60288854D-01, 0.60280902D-01, - + 0.60280902D-01, 0.60288854D-01, 0.96014622D+00, 0.18390535D-01, - + 0.29599955D+00, 0.29599955D+00, 0.59944062D-01, 0.59939271D-01, - + 0.59939271D-01, 0.59944062D-01, 0.93427519D+00, 0.20422013D-01, - + 0.29398441D+00, 0.29398441D+00, 0.59430204D-01, 0.59429312D-01, - + 0.59429312D-01, 0.59430204D-01, 0.90374945D+00, 0.22177435D-01/ - DATA ((CALCPI(I,K,9 ),I=1,8), K=10,18) / - + 0.29155237D+00, 0.29155237D+00, 0.58755112D-01, 0.58758691D-01, - + 0.58758691D-01, 0.58755112D-01, 0.86951194D+00, 0.23668003D-01, - + 0.28872023D+00, 0.28872023D+00, 0.57928092D-01, 0.57936567D-01, - + 0.57936567D-01, 0.57928092D-01, 0.83243682D+00, 0.24906261D-01, - + 0.28550647D+00, 0.28550647D+00, 0.56959680D-01, 0.56973340D-01, - + 0.56973340D-01, 0.56959680D-01, 0.79332319D+00, 0.25905874D-01, - + 0.28193109D+00, 0.28193109D+00, 0.55861386D-01, 0.55880400D-01, - + 0.55880400D-01, 0.55861386D-01, 0.75289100D+00, 0.26681403D-01, - + 0.27801533D+00, 0.27801533D+00, 0.54645452D-01, 0.54669884D-01, - + 0.54669884D-01, 0.54645452D-01, 0.71177900D+00, 0.27248074D-01, - + 0.27378146D+00, 0.27378146D+00, 0.53324616D-01, 0.53354436D-01, - + 0.53354436D-01, 0.53324616D-01, 0.67054484D+00, 0.27621562D-01, - + 0.26925257D+00, 0.26925257D+00, 0.51911889D-01, 0.51946985D-01, - + 0.51946985D-01, 0.51911889D-01, 0.62966687D+00, 0.27817776D-01, - + 0.26445227D+00, 0.26445227D+00, 0.50420342D-01, 0.50460533D-01, - + 0.50460533D-01, 0.50420342D-01, 0.58954703D+00, 0.27852655D-01, - + 0.25940453D+00, 0.25940453D+00, 0.48862915D-01, 0.48907963D-01, - + 0.48907963D-01, 0.48862915D-01, 0.55051520D+00, 0.27741985D-01/ - DATA ((CALCPI(I,K,9 ),I=1,8), K=19,20) / - + 0.25413345D+00, 0.25413345D+00, 0.47252252D-01, 0.47301869D-01, - + 0.47301869D-01, 0.47252252D-01, 0.51283445D+00, 0.27501234D-01, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,10),I=1,8), K=1,9) / - + 0.29775674D+00, 0.29775674D+00, 0.37202371D-01, 0.37202371D-01, - + 0.37202371D-01, 0.37202371D-01, 0.85241179D+00, 0.00000000D+00, - + 0.29694260D+00, 0.29694260D+00, 0.37686403D-01, 0.37688551D-01, - + 0.37688551D-01, 0.37686403D-01, 0.84840328D+00, 0.28224363D-02, - + 0.29563535D+00, 0.29563535D+00, 0.38000182D-01, 0.38005189D-01, - + 0.38005189D-01, 0.38000182D-01, 0.83639726D+00, 0.53473322D-02, - + 0.29385276D+00, 0.29385276D+00, 0.38148626D-01, 0.38157008D-01, - + 0.38157008D-01, 0.38148626D-01, 0.81772801D+00, 0.75869839D-02, - + 0.29161089D+00, 0.29161089D+00, 0.38137001D-01, 0.38149126D-01, - + 0.38149126D-01, 0.38137001D-01, 0.79350277D+00, 0.95524048D-02, - + 0.28892920D+00, 0.28892920D+00, 0.37973416D-01, 0.37989525D-01, - + 0.37989525D-01, 0.37973416D-01, 0.76479389D+00, 0.11257220D-01, - + 0.28582784D+00, 0.28582784D+00, 0.37666585D-01, 0.37686803D-01, - + 0.37686803D-01, 0.37666585D-01, 0.73259099D+00, 0.12715253D-01, - + 0.28232830D+00, 0.28232830D+00, 0.37226296D-01, 0.37250653D-01, - + 0.37250653D-01, 0.37226296D-01, 0.69779736D+00, 0.13941088D-01, - + 0.27845323D+00, 0.27845323D+00, 0.36663104D-01, 0.36691547D-01, - + 0.36691547D-01, 0.36663104D-01, 0.66122903D+00, 0.14949806D-01/ - DATA ((CALCPI(I,K,10),I=1,8), K=10,18) / - + 0.27422621D+00, 0.27422621D+00, 0.35988129D-01, 0.36020536D-01, - + 0.36020536D-01, 0.35988129D-01, 0.62361051D+00, 0.15756818D-01, - + 0.26967163D+00, 0.26967163D+00, 0.35212876D-01, 0.35249066D-01, - + 0.35249066D-01, 0.35212876D-01, 0.58557534D+00, 0.16377723D-01, - + 0.26481453D+00, 0.26481453D+00, 0.34349045D-01, 0.34388790D-01, - + 0.34388790D-01, 0.34349045D-01, 0.54766749D+00, 0.16828132D-01, - + 0.25968038D+00, 0.25968038D+00, 0.33408359D-01, 0.33451395D-01, - + 0.33451395D-01, 0.33408359D-01, 0.51034477D+00, 0.17123530D-01, - + 0.25429493D+00, 0.25429493D+00, 0.32402407D-01, 0.32448439D-01, - + 0.32448439D-01, 0.32402407D-01, 0.47398370D+00, 0.17279127D-01, - + 0.24868399D+00, 0.24868399D+00, 0.31342492D-01, 0.31391207D-01, - + 0.31391207D-01, 0.31342492D-01, 0.43888498D+00, 0.17309723D-01, - + 0.24287330D+00, 0.24287330D+00, 0.30239509D-01, 0.30290580D-01, - + 0.30290580D-01, 0.30239509D-01, 0.40527991D+00, 0.17229594D-01, - + 0.23688831D+00, 0.23688831D+00, 0.29103832D-01, 0.29156926D-01, - + 0.29156926D-01, 0.29103832D-01, 0.37333753D+00, 0.17052389D-01, - + 0.23075407D+00, 0.23075407D+00, 0.27945228D-01, 0.28000009D-01, - + 0.28000009D-01, 0.27945228D-01, 0.34317182D+00, 0.16791046D-01/ - DATA ((CALCPI(I,K,10),I=1,8), K=19,20) / - + 0.22449506D+00, 0.22449506D+00, 0.26772781D-01, 0.26828918D-01, - + 0.26828918D-01, 0.26772781D-01, 0.31484888D+00, 0.16457725D-01, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,11),I=1,8), K=1,9) / - + 0.29754642D+00, 0.29754642D+00, 0.22927418D-01, 0.22927418D-01, - + 0.22927418D-01, 0.22927418D-01, 0.75209677D+00, 0.23852448D-17, - + 0.29487969D+00, 0.29487969D+00, 0.23382349D-01, 0.23387059D-01, - + 0.23387059D-01, 0.23382349D-01, 0.73074782D+00, 0.21034894D-02, - + 0.29173559D+00, 0.29173559D+00, 0.23673990D-01, 0.23683298D-01, - + 0.23683298D-01, 0.23673990D-01, 0.70423221D+00, 0.39371414D-02, - + 0.28814470D+00, 0.28814470D+00, 0.23814528D-01, 0.23828249D-01, - + 0.23828249D-01, 0.23814528D-01, 0.67381735D+00, 0.55205552D-02, - + 0.28413324D+00, 0.28413324D+00, 0.23814474D-01, 0.23832373D-01, - + 0.23832373D-01, 0.23814474D-01, 0.64050375D+00, 0.68700444D-02, - + 0.27972972D+00, 0.27972972D+00, 0.23685953D-01, 0.23707759D-01, - + 0.23707759D-01, 0.23685953D-01, 0.60520174D+00, 0.80032528D-02, - + 0.27496242D+00, 0.27496242D+00, 0.23440833D-01, 0.23466244D-01, - + 0.23466244D-01, 0.23440833D-01, 0.56871673D+00, 0.89371561D-02, - + 0.26985996D+00, 0.26985996D+00, 0.23091093D-01, 0.23119786D-01, - + 0.23119786D-01, 0.23091093D-01, 0.53174497D+00, 0.96885003D-02, - + 0.26445119D+00, 0.26445119D+00, 0.22648663D-01, 0.22680302D-01, - + 0.22680302D-01, 0.22648663D-01, 0.49488175D+00, 0.10273684D-01/ - DATA ((CALCPI(I,K,11),I=1,8), K=10,18) / - + 0.25876500D+00, 0.25876500D+00, 0.22125265D-01, 0.22159509D-01, - + 0.22159509D-01, 0.22125265D-01, 0.45862366D+00, 0.10708635D-01, - + 0.25283026D+00, 0.25283026D+00, 0.21532323D-01, 0.21568827D-01, - + 0.21568827D-01, 0.21532323D-01, 0.42337522D+00, 0.11008745D-01, - + 0.24667563D+00, 0.24667563D+00, 0.20880852D-01, 0.20919276D-01, - + 0.20919276D-01, 0.20880852D-01, 0.38945605D+00, 0.11188784D-01, - + 0.24032947D+00, 0.24032947D+00, 0.20181360D-01, 0.20221371D-01, - + 0.20221371D-01, 0.20181360D-01, 0.35710846D+00, 0.11262826D-01, - + 0.23381966D+00, 0.23381966D+00, 0.19443772D-01, 0.19485047D-01, - + 0.19485047D-01, 0.19443772D-01, 0.32650567D+00, 0.11244182D-01, - + 0.22717349D+00, 0.22717349D+00, 0.18677363D-01, 0.18719596D-01, - + 0.18719596D-01, 0.18677363D-01, 0.29776033D+00, 0.11145353D-01, - + 0.22041750D+00, 0.22041750D+00, 0.17890713D-01, 0.17933610D-01, - + 0.17933610D-01, 0.17890713D-01, 0.27093303D+00, 0.10977987D-01, - + 0.21357742D+00, 0.21357742D+00, 0.17091664D-01, 0.17134952D-01, - + 0.17134952D-01, 0.17091664D-01, 0.24604030D+00, 0.10752856D-01, - + 0.20667799D+00, 0.20667799D+00, 0.16287308D-01, 0.16330732D-01, - + 0.16330732D-01, 0.16287308D-01, 0.22306237D+00, 0.10479841D-01/ - DATA ((CALCPI(I,K,11),I=1,8), K=19,20) / - + 0.19974291D+00, 0.19974291D+00, 0.15483980D-01, 0.15527305D-01, - + 0.15527305D-01, 0.15483980D-01, 0.20195051D+00, 0.10167938D-01, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,12),I=1,8), K=1,9) / - + 0.29640297D+00, 0.29640297D+00, 0.13665669D-01, 0.13665669D-01, - + 0.13665669D-01, 0.13665669D-01, 0.65787755D+00, 0.00000000D+00, - + 0.29193663D+00, 0.29193663D+00, 0.14132189D-01, 0.14136776D-01, - + 0.14136776D-01, 0.14132189D-01, 0.62600897D+00, 0.15652382D-02, - + 0.28703945D+00, 0.28703945D+00, 0.14446488D-01, 0.14455249D-01, - + 0.14455249D-01, 0.14446488D-01, 0.59138448D+00, 0.28969180D-02, - + 0.28175114D+00, 0.28175114D+00, 0.14624791D-01, 0.14637315D-01, - + 0.14637315D-01, 0.14624791D-01, 0.55510072D+00, 0.40177863D-02, - + 0.27610510D+00, 0.27610510D+00, 0.14680333D-01, 0.14696210D-01, - + 0.14696210D-01, 0.14680333D-01, 0.51798369D+00, 0.49461775D-02, - + 0.27013589D+00, 0.27013589D+00, 0.14626909D-01, 0.14645738D-01, - + 0.14645738D-01, 0.14626909D-01, 0.48073623D+00, 0.57006847D-02, - + 0.26387715D+00, 0.26387715D+00, 0.14477495D-01, 0.14498888D-01, - + 0.14498888D-01, 0.14477495D-01, 0.44395226D+00, 0.62987105D-02, - + 0.25736202D+00, 0.25736202D+00, 0.14244500D-01, 0.14268084D-01, - + 0.14268084D-01, 0.14244500D-01, 0.40811182D+00, 0.67567634D-02, - + 0.25062307D+00, 0.25062307D+00, 0.13939746D-01, 0.13965166D-01, - + 0.13965166D-01, 0.13939746D-01, 0.37359569D+00, 0.70904773D-02/ - DATA ((CALCPI(I,K,12),I=1,8), K=10,18) / - + 0.24369222D+00, 0.24369222D+00, 0.13574379D-01, 0.13601298D-01, - + 0.13601298D-01, 0.13574379D-01, 0.34069309D+00, 0.73145506D-02, - + 0.23660063D+00, 0.23660063D+00, 0.13158837D-01, 0.13186940D-01, - + 0.13186940D-01, 0.13158837D-01, 0.30961176D+00, 0.74427461D-02, - + 0.22937860D+00, 0.22937860D+00, 0.12702817D-01, 0.12731811D-01, - + 0.12731811D-01, 0.12702817D-01, 0.28048811D+00, 0.74878711D-02, - + 0.22205549D+00, 0.22205549D+00, 0.12215245D-01, 0.12244859D-01, - + 0.12244859D-01, 0.12215245D-01, 0.25339717D+00, 0.74617721D-02, - + 0.21465962D+00, 0.21465962D+00, 0.11704265D-01, 0.11734250D-01, - + 0.11734250D-01, 0.11704265D-01, 0.22836244D+00, 0.73753352D-02, - + 0.20721815D+00, 0.20721815D+00, 0.11177231D-01, 0.11207362D-01, - + 0.11207362D-01, 0.11177231D-01, 0.20536493D+00, 0.72384924D-02, - + 0.19975697D+00, 0.19975697D+00, 0.10640715D-01, 0.10670788D-01, - + 0.10670788D-01, 0.10640715D-01, 0.18435171D+00, 0.70602391D-02, - + 0.19230071D+00, 0.19230071D+00, 0.10100520D-01, 0.10130355D-01, - + 0.10130355D-01, 0.10100520D-01, 0.16524378D+00, 0.68486610D-02, - + 0.18487256D+00, 0.18487256D+00, 0.95617133D-02, 0.95911482D-02, - + 0.95911482D-02, 0.95617133D-02, 0.14794289D+00, 0.66109679D-02/ - DATA ((CALCPI(I,K,12),I=1,8), K=19,20) / - + 0.17749432D+00, 0.17749432D+00, 0.90286515D-02, 0.90575473D-02, - + 0.90575473D-02, 0.90286515D-02, 0.13233763D+00, 0.63535345D-02, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,13),I=1,8), K=1,9) / - + 0.29376706D+00, 0.29376706D+00, 0.78387303D-02, 0.78387303D-02, - + 0.78387303D-02, 0.78387303D-02, 0.56977944D+00,-0.10842022D-18, - + 0.28753949D+00, 0.28753949D+00, 0.82992423D-02, 0.83030371D-02, - + 0.83030371D-02, 0.82992423D-02, 0.53198477D+00, 0.11547402D-02, - + 0.28095504D+00, 0.28095504D+00, 0.86221448D-02, 0.86292516D-02, - + 0.86292516D-02, 0.86221448D-02, 0.49343504D+00, 0.21142886D-02, - + 0.27405948D+00, 0.27405948D+00, 0.88254134D-02, 0.88353833D-02, - + 0.88353833D-02, 0.88254134D-02, 0.45500176D+00, 0.29018126D-02, - + 0.26689088D+00, 0.26689088D+00, 0.89232913D-02, 0.89357043D-02, - + 0.89357043D-02, 0.89232913D-02, 0.41730661D+00, 0.35356037D-02, - + 0.25948738D+00, 0.25948738D+00, 0.89297360D-02, 0.89442031D-02, - + 0.89442031D-02, 0.89297360D-02, 0.38083258D+00, 0.40333841D-02, - + 0.25188567D+00, 0.25188567D+00, 0.88575617D-02, 0.88737237D-02, - + 0.88737237D-02, 0.88575617D-02, 0.34596172D+00, 0.44114238D-02, - + 0.24412116D+00, 0.24412116D+00, 0.87185879D-02, 0.87361154D-02, - + 0.87361154D-02, 0.87185879D-02, 0.31297024D+00, 0.46847157D-02, - + 0.23622807D+00, 0.23622807D+00, 0.85237290D-02, 0.85423214D-02, - + 0.85423214D-02, 0.85237290D-02, 0.28204684D+00, 0.48671004D-02/ - DATA ((CALCPI(I,K,13),I=1,8), K=10,18) / - + 0.22823931D+00, 0.22823931D+00, 0.82829586D-02, 0.83023435D-02, - + 0.83023435D-02, 0.82829586D-02, 0.25330374D+00, 0.49712557D-02, - + 0.22018643D+00, 0.22018643D+00, 0.80053418D-02, 0.80252738D-02, - + 0.80252738D-02, 0.80053418D-02, 0.22678845D+00, 0.50087498D-02, - + 0.21209957D+00, 0.21209957D+00, 0.76990545D-02, 0.77193142D-02, - + 0.77193142D-02, 0.76990545D-02, 0.20249536D+00, 0.49900799D-02, - + 0.20400738D+00, 0.20400738D+00, 0.73714069D-02, 0.73917997D-02, - + 0.73917997D-02, 0.73714069D-02, 0.18037613D+00, 0.49247111D-02, - + 0.19593696D+00, 0.19593696D+00, 0.70288749D-02, 0.70492297D-02, - + 0.70492297D-02, 0.70288749D-02, 0.16034926D+00, 0.48211209D-02, - + 0.18791377D+00, 0.18791377D+00, 0.66771369D-02, 0.66973047D-02, - + 0.66973047D-02, 0.66771369D-02, 0.14230868D+00, 0.46868481D-02, - + 0.17996164D+00, 0.17996164D+00, 0.63211163D-02, 0.63409687D-02, - + 0.63409687D-02, 0.63211163D-02, 0.12613127D+00, 0.45285457D-02, - + 0.17210265D+00, 0.17210265D+00, 0.59650278D-02, 0.59844557D-02, - + 0.59844557D-02, 0.59650278D-02, 0.11168322D+00, 0.43520357D-02, - + 0.16435718D+00, 0.16435718D+00, 0.56124288D-02, 0.56313409D-02, - + 0.56313409D-02, 0.56124288D-02, 0.98825454D-01, 0.41623693D-02/ - DATA ((CALCPI(I,K,13),I=1,8), K=19,20) / - + 0.15674383D+00, 0.15674383D+00, 0.52662731D-02, 0.52845946D-02, - + 0.52845946D-02, 0.52662731D-02, 0.87418035D-01, 0.39638875D-02, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,14),I=1,8), K=1,9) / - + 0.28915913D+00, 0.28915913D+00, 0.43006111D-02, 0.43006111D-02, - + 0.43006111D-02, 0.43006111D-02, 0.48782985D+00,-0.21684043D-18, - + 0.28122853D+00, 0.28122853D+00, 0.47248837D-02, 0.47277738D-02, - + 0.47277738D-02, 0.47248837D-02, 0.44737307D+00, 0.83952084D-03, - + 0.27304003D+00, 0.27304003D+00, 0.50291445D-02, 0.50344726D-02, - + 0.50344726D-02, 0.50291445D-02, 0.40777850D+00, 0.15209961D-02, - + 0.26464256D+00, 0.26464256D+00, 0.52314023D-02, 0.52387656D-02, - + 0.52387656D-02, 0.52314023D-02, 0.36966700D+00, 0.20662318D-02, - + 0.25607649D+00, 0.25607649D+00, 0.53456693D-02, 0.53547039D-02, - + 0.53547039D-02, 0.53456693D-02, 0.33344757D+00, 0.24921865D-02, - + 0.24738123D+00, 0.24738123D+00, 0.53850384D-02, 0.53954185D-02, - + 0.53954185D-02, 0.53850384D-02, 0.29938921D+00, 0.28146610D-02, - + 0.23859426D+00, 0.23859426D+00, 0.53613287D-02, 0.53727635D-02, - + 0.53727635D-02, 0.53613287D-02, 0.26767619D+00, 0.30479460D-02, - + 0.22975115D+00, 0.22975115D+00, 0.52851410D-02, 0.52973724D-02, - + 0.52973724D-02, 0.52851410D-02, 0.23840383D+00, 0.32048923D-02, - + 0.22088569D+00, 0.22088569D+00, 0.51660207D-02, 0.51788207D-02, - + 0.51788207D-02, 0.51660207D-02, 0.21159776D+00, 0.32971021D-02/ - DATA ((CALCPI(I,K,14),I=1,8), K=10,18) / - + 0.21202983D+00, 0.21202983D+00, 0.50124734D-02, 0.50256422D-02, - + 0.50256422D-02, 0.50124734D-02, 0.18722673D+00, 0.33349643D-02, - + 0.20321362D+00, 0.20321362D+00, 0.48320368D-02, 0.48454006D-02, - + 0.48454006D-02, 0.48320368D-02, 0.16521462D+00, 0.33277437D-02, - + 0.19446520D+00, 0.19446520D+00, 0.46313400D-02, 0.46447486D-02, - + 0.46447486D-02, 0.46313400D-02, 0.14545173D+00, 0.32836549D-02, - + 0.18581075D+00, 0.18581075D+00, 0.44161603D-02, 0.44294853D-02, - + 0.44294853D-02, 0.44161603D-02, 0.12780430D+00, 0.32099318D-02, - + 0.17727450D+00, 0.17727450D+00, 0.41914841D-02, 0.42046171D-02, - + 0.42046171D-02, 0.41914841D-02, 0.11212289D+00, 0.31129002D-02, - + 0.16887866D+00, 0.16887866D+00, 0.39615683D-02, 0.39744189D-02, - + 0.39744189D-02, 0.39615683D-02, 0.98249430D-01, 0.29980483D-02, - + 0.16064341D+00, 0.16064341D+00, 0.37300015D-02, 0.37424955D-02, - + 0.37424955D-02, 0.37300015D-02, 0.86022967D-01, 0.28700966D-02, - + 0.15258695D+00, 0.15258695D+00, 0.34997661D-02, 0.35118441D-02, - + 0.35118441D-02, 0.34997661D-02, 0.75284268D-01, 0.27330682D-02, - + 0.14472546D+00, 0.14472546D+00, 0.32732997D-02, 0.32849152D-02, - + 0.32849152D-02, 0.32732997D-02, 0.65879347D-01, 0.25903565D-02/ - DATA ((CALCPI(I,K,14),I=1,8), K=19,20) / - + 0.13707314D+00, 0.13707314D+00, 0.30525547D-02, 0.30636729D-02, - + 0.30636729D-02, 0.30525547D-02, 0.57662047D-01, 0.24447916D-02, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,15),I=1,8), K=1,9) / - + 0.28222509D+00, 0.28222509D+00, 0.22393187D-02, 0.22393187D-02, - + 0.22393187D-02, 0.22393187D-02, 0.41205820D+00,-0.10842022D-18, - + 0.27268369D+00, 0.27268369D+00, 0.26030856D-02, 0.26051057D-02, - + 0.26051057D-02, 0.26030856D-02, 0.37133594D+00, 0.59779348D-03, - + 0.26300598D+00, 0.26300598D+00, 0.28664049D-02, 0.28700802D-02, - + 0.28700802D-02, 0.28664049D-02, 0.33273633D+00, 0.10717034D-02, - + 0.25324113D+00, 0.25324113D+00, 0.30460412D-02, 0.30510562D-02, - + 0.30510562D-02, 0.30460412D-02, 0.29662360D+00, 0.14410579D-02, - + 0.24342945D+00, 0.24342945D+00, 0.31548719D-02, 0.31609490D-02, - + 0.31609490D-02, 0.31548719D-02, 0.26319926D+00, 0.17207116D-02, - + 0.23360922D+00, 0.23360922D+00, 0.32044441D-02, 0.32113409D-02, - + 0.32113409D-02, 0.32044441D-02, 0.23253568D+00, 0.19240069D-02, - + 0.22381648D+00, 0.22381648D+00, 0.32050511D-02, 0.32125570D-02, - + 0.32125570D-02, 0.32050511D-02, 0.20464233D+00, 0.20628657D-02, - + 0.21408474D+00, 0.21408474D+00, 0.31657052D-02, 0.31736379D-02, - + 0.31736379D-02, 0.31657052D-02, 0.17946199D+00, 0.21477695D-02, - + 0.20444529D+00, 0.20444529D+00, 0.30943466D-02, 0.31025497D-02, - + 0.31025497D-02, 0.30943466D-02, 0.15688904D+00, 0.21879897D-02/ - DATA ((CALCPI(I,K,15),I=1,8), K=10,18) / - + 0.19492704D+00, 0.19492704D+00, 0.29978981D-02, 0.30062384D-02, - + 0.30062384D-02, 0.29978981D-02, 0.13678275D+00, 0.21916570D-02, - + 0.18555659D+00, 0.18555659D+00, 0.28823562D-02, 0.28907213D-02, - + 0.28907213D-02, 0.28823562D-02, 0.11897787D+00, 0.21658647D-02, - + 0.17635823D+00, 0.17635823D+00, 0.27528751D-02, 0.27611713D-02, - + 0.27611713D-02, 0.27528751D-02, 0.10329449D+00, 0.21167644D-02, - + 0.16735392D+00, 0.16735392D+00, 0.26138424D-02, 0.26219922D-02, - + 0.26219922D-02, 0.26138424D-02, 0.89545844D-01, 0.20496506D-02, - + 0.15856330D+00, 0.15856330D+00, 0.24689534D-02, 0.24768941D-02, - + 0.24768941D-02, 0.24689534D-02, 0.77544658D-01, 0.19690437D-02, - + 0.15000374D+00, 0.15000374D+00, 0.23212828D-02, 0.23289646D-02, - + 0.23289646D-02, 0.23212828D-02, 0.67108135D-01, 0.18787694D-02, - + 0.14169034D+00, 0.14169034D+00, 0.21733530D-02, 0.21807375D-02, - + 0.21807375D-02, 0.21733530D-02, 0.58061639D-01, 0.17820330D-02, - + 0.13363600D+00, 0.13363600D+00, 0.20271991D-02, 0.20342577D-02, - + 0.20342577D-02, 0.20271991D-02, 0.50241282D-01, 0.16814906D-02, - + 0.12585146D+00, 0.12585146D+00, 0.18844302D-02, 0.18911428D-02, - + 0.18911428D-02, 0.18844302D-02, 0.43495626D-01, 0.15793153D-02/ - DATA ((CALCPI(I,K,15),I=1,8), K=19,20) / - + 0.11834539D+00, 0.11834539D+00, 0.17462867D-02, 0.17526406D-02, - + 0.17526406D-02, 0.17462867D-02, 0.37686616D-01, 0.14772602D-02, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,16),I=1,8), K=1,9) / - + 0.27272818D+00, 0.27272818D+00, 0.10956471D-02, 0.10956471D-02, - + 0.10956471D-02, 0.10956471D-02, 0.34249698D+00, 0.65052130D-18, - + 0.26170730D+00, 0.26170730D+00, 0.13863456D-02, 0.13876556D-02, - + 0.13876556D-02, 0.13863456D-02, 0.30329660D+00, 0.41400627D-03, - + 0.25069171D+00, 0.25069171D+00, 0.15967928D-02, 0.15991474D-02, - + 0.15991474D-02, 0.15967928D-02, 0.26714722D+00, 0.73435299D-03, - + 0.23972787D+00, 0.23972787D+00, 0.17416181D-02, 0.17447935D-02, - + 0.17447935D-02, 0.17416181D-02, 0.23416439D+00, 0.97726457D-03, - + 0.22885347D+00, 0.22885347D+00, 0.18319667D-02, 0.18357704D-02, - + 0.18357704D-02, 0.18319667D-02, 0.20435773D+00, 0.11551082D-02, - + 0.21810321D+00, 0.21810321D+00, 0.18774388D-02, 0.18817064D-02, - + 0.18817064D-02, 0.18774388D-02, 0.17762809D+00, 0.12785796D-02, - + 0.20750926D+00, 0.20750926D+00, 0.18865106D-02, 0.18911024D-02, - + 0.18911024D-02, 0.18865106D-02, 0.15383820D+00, 0.13571424D-02, - + 0.19710084D+00, 0.19710084D+00, 0.18664477D-02, 0.18712461D-02, - + 0.18712461D-02, 0.18664477D-02, 0.13280992D+00, 0.13989448D-02, - + 0.18690446D+00, 0.18690446D+00, 0.18235224D-02, 0.18284290D-02, - + 0.18284290D-02, 0.18235224D-02, 0.11433926D+00, 0.14110516D-02/ - DATA ((CALCPI(I,K,16),I=1,8), K=10,18) / - + 0.17694394D+00, 0.17694394D+00, 0.17630940D-02, 0.17680274D-02, - + 0.17680274D-02, 0.17630940D-02, 0.98208665D-01, 0.13995340D-02, - + 0.16724043D+00, 0.16724043D+00, 0.16897063D-02, 0.16945997D-02, - + 0.16945997D-02, 0.16897063D-02, 0.84195413D-01, 0.13695764D-02, - + 0.15781244D+00, 0.15781244D+00, 0.16071807D-02, 0.16119803D-02, - + 0.16119803D-02, 0.16071807D-02, 0.72079077D-01, 0.13255766D-02, - + 0.14867593D+00, 0.14867593D+00, 0.15186961D-02, 0.15233595D-02, - + 0.15233595D-02, 0.15186961D-02, 0.61646929D-01, 0.12712328D-02, - + 0.13984434D+00, 0.13984434D+00, 0.14268665D-02, 0.14313608D-02, - + 0.14313608D-02, 0.14268665D-02, 0.52697888D-01, 0.12096262D-02, - + 0.13132865D+00, 0.13132865D+00, 0.13338111D-02, 0.13381117D-02, - + 0.13381117D-02, 0.13338111D-02, 0.45045176D-01, 0.11432969D-02, - + 0.12313751D+00, 0.12313751D+00, 0.12412205D-02, 0.12453100D-02, - + 0.12453100D-02, 0.12412205D-02, 0.38517919D-01, 0.10743143D-02, - + 0.11527727D+00, 0.11527727D+00, 0.11504164D-02, 0.11542833D-02, - + 0.11542833D-02, 0.11504164D-02, 0.32961892D-01, 0.10043407D-02, - + 0.10775216D+00, 0.10775216D+00, 0.10624064D-02, 0.10660444D-02, - + 0.10660444D-02, 0.10624064D-02, 0.28239448D-01, 0.93468997D-03/ - DATA ((CALCPI(I,K,16),I=1,8), K=19,20) / - + 0.10056435D+00, 0.10056435D+00, 0.97793349D-03, 0.98134022D-03, - + 0.98134022D-03, 0.97793349D-03, 0.24229003D-01, 0.86638008D-03, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,17),I=1,8), K=1,9) / - + 0.26052277D+00, 0.26052277D+00, 0.49715228D-03, 0.49715228D-03, - + 0.49715228D-03, 0.49715228D-03, 0.27918187D+00, 0.75216526D-18, - + 0.24819404D+00, 0.24819404D+00, 0.71352997D-03, 0.71431399D-03, - + 0.71431399D-03, 0.71352997D-03, 0.24283528D+00, 0.27642781D-03, - + 0.23602965D+00, 0.23602965D+00, 0.86912497D-03, 0.87051788D-03, - + 0.87051788D-03, 0.86912497D-03, 0.21015823D+00, 0.48501543D-03, - + 0.22407008D+00, 0.22407008D+00, 0.97590592D-03, 0.97776349D-03, - + 0.97776349D-03, 0.97590592D-03, 0.18103734D+00, 0.63863992D-03, - + 0.21234767D+00, 0.21234767D+00, 0.10429504D-02, 0.10451511D-02, - + 0.10451511D-02, 0.10429504D-02, 0.15531329D+00, 0.74706990D-03, - + 0.20089088D+00, 0.20089088D+00, 0.10777614D-02, 0.10802038D-02, - + 0.10802038D-02, 0.10777614D-02, 0.13274637D+00, 0.81841948D-03, - + 0.18972546D+00, 0.18972546D+00, 0.10869194D-02, 0.10895190D-02, - + 0.10895190D-02, 0.10869194D-02, 0.11308471D+00, 0.85981607D-03, - + 0.17887387D+00, 0.17887387D+00, 0.10759529D-02, 0.10786403D-02, - + 0.10786403D-02, 0.10759529D-02, 0.96062038D-01, 0.87727248D-03, - + 0.16835556D+00, 0.16835556D+00, 0.10495403D-02, 0.10522590D-02, - + 0.10522590D-02, 0.10495403D-02, 0.81408318D-01, 0.87589786D-03/ - DATA ((CALCPI(I,K,17),I=1,8), K=10,18) / - + 0.15818706D+00, 0.15818706D+00, 0.10116041D-02, 0.10143086D-02, - + 0.10143086D-02, 0.10116041D-02, 0.68859965D-01, 0.85999786D-03, - + 0.14838202D+00, 0.14838202D+00, 0.96539976D-03, 0.96805400D-03, - + 0.96805400D-03, 0.96539976D-03, 0.58165078D-01, 0.83316921D-03, - + 0.13895132D+00, 0.13895132D+00, 0.91360602D-03, 0.91618197D-03, - + 0.91618197D-03, 0.91360602D-03, 0.49087990D-01, 0.79839468D-03, - + 0.12990319D+00, 0.12990319D+00, 0.85840026D-03, 0.86087677D-03, - + 0.86087677D-03, 0.85840026D-03, 0.41411975D-01, 0.75812262D-03, - + 0.12124327D+00, 0.12124327D+00, 0.80152843D-03, 0.80389009D-03, - + 0.80389009D-03, 0.80152843D-03, 0.34940663D-01, 0.71434038D-03, - + 0.11297483D+00, 0.11297483D+00, 0.74436807D-03, 0.74660431D-03, - + 0.74660431D-03, 0.74436807D-03, 0.29498573D-01, 0.66864055D-03, - + 0.10509881D+00, 0.10509881D+00, 0.68798465D-03, 0.69008890D-03, - + 0.69008890D-03, 0.68798465D-03, 0.24930631D-01, 0.62228009D-03, - + 0.97614041D-01, 0.97614041D-01, 0.63318196D-03, 0.63515094D-03, - + 0.63515094D-03, 0.63318196D-03, 0.21101190D-01, 0.57623314D-03, - + 0.90517350D-01, 0.90517350D-01, 0.58054684D-03, 0.58237994D-03, - + 0.58237994D-03, 0.58054684D-03, 0.17892918D-01, 0.53123799D-03/ - DATA ((CALCPI(I,K,17),I=1,8), K=19,20) / - + 0.83803766D-01, 0.83803766D-01, 0.53048806D-03, 0.53218682D-03, - + 0.53218682D-03, 0.53048806D-03, 0.15205163D-01, 0.48783794D-03, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,18),I=1,8), K=1,9) / - + 0.24552357D+00, 0.24552357D+00, 0.20551589D-03, 0.20551589D-03, - + 0.20551589D-03, 0.20551589D-03, 0.22215256D+00,-0.10842022D-18, - + 0.23210016D+00, 0.23210016D+00, 0.35476244D-03, 0.35519118D-03, - + 0.35519118D-03, 0.35476244D-03, 0.18963119D+00, 0.17583735D-03, - + 0.21901488D+00, 0.21901488D+00, 0.46079852D-03, 0.46155260D-03, - + 0.46155260D-03, 0.46079852D-03, 0.16110909D+00, 0.30509605D-03, - + 0.20629859D+00, 0.20629859D+00, 0.53273736D-03, 0.53373312D-03, - + 0.53373312D-03, 0.53273736D-03, 0.13627356D+00, 0.39735698D-03, - + 0.19397525D+00, 0.19397525D+00, 0.57750324D-03, 0.57867147D-03, - + 0.57867147D-03, 0.57750324D-03, 0.11482620D+00, 0.45989742D-03, - + 0.18206415D+00, 0.18206415D+00, 0.60055711D-03, 0.60184088D-03, - + 0.60184088D-03, 0.60055711D-03, 0.96421925D-01, 0.49848578D-03, - + 0.17058182D+00, 0.17058182D+00, 0.60667172D-03, 0.60802473D-03, - + 0.60802473D-03, 0.60667172D-03, 0.80728178D-01, 0.51816824D-03, - + 0.15954136D+00, 0.15954136D+00, 0.59978599D-03, 0.60117092D-03, - + 0.60117092D-03, 0.59978599D-03, 0.67423942D-01, 0.52312331D-03, - + 0.14895275D+00, 0.14895275D+00, 0.58316462D-03, 0.58455180D-03, - + 0.58455180D-03, 0.58316462D-03, 0.56204205D-01, 0.51682652D-03/ - DATA ((CALCPI(I,K,18),I=1,8), K=10,18) / - + 0.13882298D+00, 0.13882298D+00, 0.55949334D-03, 0.56085954D-03, - + 0.56085954D-03, 0.55949334D-03, 0.46787240D-01, 0.50214934D-03, - + 0.12915617D+00, 0.12915617D+00, 0.53095407D-03, 0.53228147D-03, - + 0.53228147D-03, 0.53095407D-03, 0.38916474D-01, 0.48143734D-03, - + 0.11995376D+00, 0.11995376D+00, 0.49930204D-03, 0.50057736D-03, - + 0.50057736D-03, 0.49930204D-03, 0.32361760D-01, 0.45659006D-03, - + 0.11121462D+00, 0.11121462D+00, 0.46592927D-03, 0.46714300D-03, - + 0.46714300D-03, 0.46592927D-03, 0.26919603D-01, 0.42912669D-03, - + 0.10293527D+00, 0.10293527D+00, 0.43192211D-03, 0.43306784D-03, - + 0.43306784D-03, 0.43192211D-03, 0.22412031D-01, 0.40024570D-03, - + 0.95110046D-01, 0.95110046D-01, 0.39811181D-03, 0.39918567D-03, - + 0.39918567D-03, 0.39811181D-03, 0.18684940D-01, 0.37087707D-03, - + 0.87731293D-01, 0.87731293D-01, 0.36511880D-03, 0.36611897D-03, - + 0.36611897D-03, 0.36511880D-03, 0.15606504D-01, 0.34172820D-03, - + 0.80789557D-01, 0.80789557D-01, 0.33339136D-03, 0.33431766D-03, - + 0.33431766D-03, 0.33339136D-03, 0.13064941D-01, 0.31332387D-03, - + 0.74273789D-01, 0.74273789D-01, 0.30323844D-03, 0.30409197D-03, - + 0.30409197D-03, 0.30323844D-03, 0.10965906D-01, 0.28604028D-03/ - DATA ((CALCPI(I,K,18),I=1,8), K=19,20) / - + 0.68171552D-01, 0.68171552D-01, 0.27485805D-03, 0.27564087D-03, - + 0.27564087D-03, 0.27485805D-03, 0.92305652D-02, 0.26013446D-03, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,19),I=1,8), K=1,9) / - + 0.22767555D+00, 0.22767555D+00, 0.75492920D-04, 0.75492920D-04, - + 0.75492920D-04, 0.75492920D-04, 0.17145378D+00, 0.22658131D-17, - + 0.21341552D+00, 0.21341552D+00, 0.16977480D-03, 0.16999857D-03, - + 0.16999857D-03, 0.16977480D-03, 0.14342797D+00, 0.10473869D-03, - + 0.19967921D+00, 0.19967921D+00, 0.23568267D-03, 0.23607136D-03, - + 0.23607136D-03, 0.23568267D-03, 0.11946329D+00, 0.17967754D-03, - + 0.18648365D+00, 0.18648365D+00, 0.27957009D-03, 0.28007720D-03, - + 0.28007720D-03, 0.27957009D-03, 0.99086719D-01, 0.23138334D-03, - + 0.17384091D+00, 0.17384091D+00, 0.30631608D-03, 0.30690399D-03, - + 0.30690399D-03, 0.30631608D-03, 0.81895609D-01, 0.26489469D-03, - + 0.16175783D+00, 0.16175783D+00, 0.31956160D-03, 0.32020003D-03, - + 0.32020003D-03, 0.31956160D-03, 0.67478017D-01, 0.28398929D-03, - + 0.15023870D+00, 0.15023870D+00, 0.32249482D-03, 0.32315975D-03, - + 0.32315975D-03, 0.32249482D-03, 0.55456144D-01, 0.29197601D-03, - + 0.13928444D+00, 0.13928444D+00, 0.31770441D-03, 0.31837703D-03, - + 0.31837703D-03, 0.31770441D-03, 0.45486484D-01, 0.29154819D-03, - + 0.12889306D+00, 0.12889306D+00, 0.30728873D-03, 0.30795451D-03, - + 0.30795451D-03, 0.30728873D-03, 0.37257801D-01, 0.28489518D-03/ - DATA ((CALCPI(I,K,19),I=1,8), K=10,18) / - + 0.11905977D+00, 0.11905977D+00, 0.29294307D-03, 0.29359107D-03, - + 0.29359107D-03, 0.29294307D-03, 0.30494648D-01, 0.27379165D-03, - + 0.10977723D+00, 0.10977723D+00, 0.27601405D-03, 0.27663624D-03, - + 0.27663624D-03, 0.27601405D-03, 0.24956260D-01, 0.25965334D-03, - + 0.10103574D+00, 0.10103574D+00, 0.25755904D-03, 0.25814979D-03, - + 0.25814979D-03, 0.25755904D-03, 0.20434448D-01, 0.24359790D-03, - + 0.92823486D-01, 0.92823486D-01, 0.23839444D-03, 0.23895005D-03, - + 0.23895005D-03, 0.23839444D-03, 0.16750965D-01, 0.22649424D-03, - + 0.85126731D-01, 0.85126731D-01, 0.21913813D-03, 0.21965644D-03, - + 0.21965644D-03, 0.21913813D-03, 0.13755204D-01, 0.20900600D-03, - + 0.77930087D-01, 0.77930087D-01, 0.20024648D-03, 0.20072656D-03, - + 0.20072656D-03, 0.20024648D-03, 0.11321111D-01, 0.19162938D-03, - + 0.71216724D-01, 0.71216724D-01, 0.18204521D-03, 0.18248708D-03, - + 0.18248708D-03, 0.18204521D-03, 0.93434667D-02, 0.17472477D-03, - + 0.64968611D-01, 0.64968611D-01, 0.16475632D-03, 0.16516074D-03, - + 0.16516074D-03, 0.16475632D-03, 0.77354526D-02, 0.15854433D-03, - + 0.59166738D-01, 0.59166738D-01, 0.14852081D-03, 0.14888907D-03, - + 0.14888907D-03, 0.14852081D-03, 0.64263355D-02, 0.14325521D-03/ - DATA ((CALCPI(I,K,19),I=1,8), K=19,20) / - + 0.53791341D-01, 0.53791341D-01, 0.13341669D-03, 0.13375046D-03, - + 0.13375046D-03, 0.13341669D-03, 0.53583528D-02, 0.12895815D-03, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,20),I=1,8), K=1,9) / - + 0.20692480D+00, 0.20692480D+00, 0.23757744D-04, 0.23757744D-04, - + 0.23757744D-04, 0.23757744D-04, 0.12713652D+00,-0.22446373D-19, - + 0.19213882D+00, 0.19213882D+00, 0.77075819D-04, 0.77178426D-04, - + 0.77178426D-04, 0.77075819D-04, 0.10401171D+00, 0.56844052D-04, - + 0.17807022D+00, 0.17807022D+00, 0.11365191D-03, 0.11382773D-03, - + 0.11382773D-03, 0.11365191D-03, 0.84764292D-01, 0.96428332D-04, - + 0.16471719D+00, 0.16471719D+00, 0.13741082D-03, 0.13763721D-03, - + 0.13763721D-03, 0.13741082D-03, 0.68808573D-01, 0.12276106D-03, - + 0.15207587D+00, 0.15207587D+00, 0.15145519D-03, 0.15171430D-03, - + 0.15171430D-03, 0.15145519D-03, 0.55677262D-01, 0.13900672D-03, - + 0.14013692D+00, 0.14013692D+00, 0.15794090D-03, 0.15821870D-03, - + 0.15821870D-03, 0.15794090D-03, 0.44932006D-01, 0.14737323D-03, - + 0.12888906D+00, 0.12888906D+00, 0.15877722D-03, 0.15906289D-03, - + 0.15906289D-03, 0.15877722D-03, 0.36185171D-01, 0.14981542D-03, - + 0.11831815D+00, 0.11831815D+00, 0.15549754D-03, 0.15578285D-03, - + 0.15578285D-03, 0.15549754D-03, 0.29100816D-01, 0.14790570D-03, - + 0.10840765D+00, 0.10840765D+00, 0.14931374D-03, 0.14959258D-03, - + 0.14959258D-03, 0.14931374D-03, 0.23387172D-01, 0.14288948D-03/ - DATA ((CALCPI(I,K,20),I=1,8), K=10,18) / - + 0.99138896D-01, 0.99138896D-01, 0.14118846D-03, 0.14145643D-03, - + 0.14145643D-03, 0.14118846D-03, 0.18795900D-01, 0.13575831D-03, - + 0.90491326D-01, 0.90491326D-01, 0.13186862D-03, 0.13212267D-03, - + 0.13212267D-03, 0.13186862D-03, 0.15117152D-01, 0.12728398D-03, - + 0.82442764D-01, 0.82442764D-01, 0.12192538D-03, 0.12216356D-03, - + 0.12216356D-03, 0.12192538D-03, 0.12176040D-01, 0.11805906D-03, - + 0.74969684D-01, 0.74969684D-01, 0.11178725D-03, 0.11200844D-03, - + 0.11200844D-03, 0.11178725D-03, 0.98284789D-02, 0.10853048D-03, - + 0.68047472D-01, 0.68047472D-01, 0.10176668D-03, 0.10197042D-03, - + 0.10197042D-03, 0.10176668D-03, 0.79556744D-02, 0.99026539D-04, - + 0.61650681D-01, 0.61650681D-01, 0.92084269D-04, 0.92270612D-04, - + 0.92270612D-04, 0.92084269D-04, 0.64609667D-02, 0.89781480D-04, - + 0.55753288D-01, 0.55753288D-01, 0.82889066D-04, 0.83058423D-04, - + 0.83058423D-04, 0.82889066D-04, 0.52670431D-02, 0.80956060D-04, - + 0.50328924D-01, 0.50328924D-01, 0.74274266D-04, 0.74427321D-04, - + 0.74427321D-04, 0.74274266D-04, 0.43116699D-02, 0.72653525D-04, - + 0.45351102D-01, 0.45351102D-01, 0.66290617D-04, 0.66428237D-04, - + 0.66428237D-04, 0.66290617D-04, 0.35448091D-02, 0.64933241D-04/ - DATA ((CALCPI(I,K,20),I=1,8), K=19,20) / - + 0.40793424D-01, 0.40793424D-01, 0.58957778D-04, 0.59080947D-04, - + 0.59080947D-04, 0.58957778D-04, 0.29271479D-02, 0.57822249D-04, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,21),I=1,8), K=1,9) / - + 0.18318864D+00, 0.18318864D+00, 0.60526524D-05, 0.60526524D-05, - + 0.60526524D-05, 0.60526524D-05, 0.89260371D-01, 0.11564911D-17, - + 0.16825501D+00, 0.16825501D+00, 0.31868105D-04, 0.31906945D-04, - + 0.31906945D-04, 0.31868105D-04, 0.71196291D-01, 0.26780488D-04, - + 0.15423509D+00, 0.15423509D+00, 0.49269449D-04, 0.49335069D-04, - + 0.49335069D-04, 0.49269449D-04, 0.56605687D-01, 0.44993875D-04, - + 0.14110209D+00, 0.14110209D+00, 0.60254134D-04, 0.60337488D-04, - + 0.60337488D-04, 0.60254134D-04, 0.44846104D-01, 0.56664218D-04, - + 0.12883146D+00, 0.12883146D+00, 0.66522966D-04, 0.66617109D-04, - + 0.66617109D-04, 0.66522966D-04, 0.35429195D-01, 0.63511852D-04, - + 0.11739362D+00, 0.11739362D+00, 0.69141215D-04, 0.69240819D-04, - + 0.69240819D-04, 0.69141215D-04, 0.27930872D-01, 0.66618113D-04, - + 0.10675813D+00, 0.10675813D+00, 0.69083136D-04, 0.69184213D-04, - + 0.69184213D-04, 0.69083136D-04, 0.21987626D-01, 0.66971210D-04, - + 0.96892837D-01, 0.96892837D-01, 0.67134711D-04, 0.67234336D-04, - + 0.67234336D-04, 0.67134711D-04, 0.17298778D-01, 0.65368920D-04, - + 0.87764319D-01, 0.87764319D-01, 0.63898112D-04, 0.63994200D-04, - + 0.63994200D-04, 0.63898112D-04, 0.13612361D-01, 0.62423410D-04/ - DATA ((CALCPI(I,K,21),I=1,8), K=10,18) / - + 0.79338195D-01, 0.79338195D-01, 0.59844597D-04, 0.59935726D-04, - + 0.59935726D-04, 0.59844597D-04, 0.10722183D-01, 0.58614435D-04, - + 0.71579402D-01, 0.71579402D-01, 0.55332851D-04, 0.55418113D-04, - + 0.55418113D-04, 0.55332851D-04, 0.84618224D-02, 0.54307895D-04, - + 0.64452480D-01, 0.64452480D-01, 0.50628867D-04, 0.50707751D-04, - + 0.50707751D-04, 0.50628867D-04, 0.66959402D-02, 0.49775910D-04, - + 0.57921843D-01, 0.57921843D-01, 0.45925266D-04, 0.45997561D-04, - + 0.45997561D-04, 0.45925266D-04, 0.53162153D-02, 0.45216300D-04, - + 0.51952035D-01, 0.51952035D-01, 0.41357359D-04, 0.41423078D-04, - + 0.41423078D-04, 0.41357359D-04, 0.42379894D-02, 0.40768789D-04, - + 0.46507965D-01, 0.46507965D-01, 0.37015349D-04, 0.37074665D-04, - + 0.37074665D-04, 0.37015349D-04, 0.33942644D-02, 0.36527319D-04, - + 0.41555133D-01, 0.41555133D-01, 0.32954824D-04, 0.33008026D-04, - + 0.33008026D-04, 0.32954824D-04, 0.27318858D-02, 0.32550646D-04, - + 0.37059821D-01, 0.37059821D-01, 0.29206209D-04, 0.29253659D-04, - + 0.29253659D-04, 0.29206209D-04, 0.22100533D-02, 0.28871875D-04, - + 0.32989269D-01, 0.32989269D-01, 0.25781368D-04, 0.25823473D-04, - + 0.25823473D-04, 0.25781368D-04, 0.17974527D-02, 0.25505134D-04/ - DATA ((CALCPI(I,K,21),I=1,8), K=19,20) / - + 0.29311828D-01, 0.29311828D-01, 0.22678661D-04, 0.22715852D-04, - + 0.22715852D-04, 0.22678661D-04, 0.14694751D-02, 0.22450698D-04, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,22),I=1,8), K=1,9) / - + 0.15631766D+00, 0.15631766D+00, 0.11353256D-05, 0.11353256D-05, - + 0.11353256D-05, 0.11353256D-05, 0.57896626D-01, 0.86558826D-18, - + 0.14171007D+00, 0.14171007D+00, 0.10815586D-04, 0.10827157D-04, - + 0.10827157D-04, 0.10815586D-04, 0.44811714D-01, 0.98757257D-05, - + 0.12820609D+00, 0.12820609D+00, 0.17336821D-04, 0.17356066D-04, - + 0.17356066D-04, 0.17336821D-04, 0.34607543D-01, 0.16558801D-04, - + 0.11574644D+00, 0.11574644D+00, 0.21365099D-04, 0.21389174D-04, - + 0.21389174D-04, 0.21365099D-04, 0.26648530D-01, 0.20721636D-04, - + 0.10428042D+00, 0.10428042D+00, 0.23621131D-04, 0.23647921D-04, - + 0.23647921D-04, 0.23621131D-04, 0.20470875D-01, 0.23089544D-04, - + 0.93753767D-01, 0.93753767D-01, 0.24478933D-04, 0.24506857D-04, - + 0.24506857D-04, 0.24478933D-04, 0.15705372D-01, 0.24040225D-04, - + 0.84113364D-01, 0.84113364D-01, 0.24316530D-04, 0.24344447D-04, - + 0.24344447D-04, 0.24316530D-04, 0.12042402D-01, 0.23954876D-04, - + 0.75306421D-01, 0.75306421D-01, 0.23454436D-04, 0.23481546D-04, - + 0.23481546D-04, 0.23454436D-04, 0.92373339D-02, 0.23156649D-04, - + 0.67280804D-01, 0.67280804D-01, 0.22129620D-04, 0.22155381D-04, - + 0.22155381D-04, 0.22129620D-04, 0.70965346D-02, 0.21884714D-04/ - DATA ((CALCPI(I,K,22),I=1,8), K=10,18) / - + 0.59985351D-01, 0.59985351D-01, 0.20526545D-04, 0.20550618D-04, - + 0.20550618D-04, 0.20526545D-04, 0.54652869D-02, 0.20325375D-04, - + 0.53370094D-01, 0.53370094D-01, 0.18783586D-04, 0.18805779D-04, - + 0.18805779D-04, 0.18783586D-04, 0.42224878D-02, 0.18618547D-04, - + 0.47386482D-01, 0.47386482D-01, 0.17001478D-04, 0.17021713D-04, - + 0.17021713D-04, 0.17001478D-04, 0.32762090D-02, 0.16866250D-04, - + 0.41987576D-01, 0.41987576D-01, 0.15250735D-04, 0.15269013D-04, - + 0.15269013D-04, 0.15250735D-04, 0.25552503D-02, 0.15140074D-04, - + 0.37128215D-01, 0.37128215D-01, 0.13577862D-04, 0.13594240D-04, - + 0.13594240D-04, 0.13577862D-04, 0.20039983D-02, 0.13487419D-04, - + 0.32765165D-01, 0.32765165D-01, 0.12012231D-04, 0.12026806D-04, - + 0.12026806D-04, 0.12012231D-04, 0.15809864D-02, 0.11938405D-04, - + 0.28857231D-01, 0.28857231D-01, 0.10570211D-04, 0.10583102D-04, - + 0.10583102D-04, 0.10570211D-04, 0.12553043D-02, 0.10510025D-04, - + 0.25365346D-01, 0.25365346D-01, 0.92583651D-05, 0.92697058D-05, - + 0.92697058D-05, 0.92583651D-05, 0.10030642D-02, 0.92093599D-05, - + 0.22252630D-01, 0.22252630D-01, 0.80767847D-05, 0.80867137D-05, - + 0.80867137D-05, 0.80767847D-05, 0.80630635D-03, 0.80369326D-05/ - DATA ((CALCPI(I,K,22),I=1,8), K=19,20) / - + 0.19484426D-01, 0.19484426D-01, 0.70212582D-05, 0.70299139D-05, - + 0.70299139D-05, 0.70212582D-05, 0.65189928D-03, 0.69888890D-05, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,23),I=1,8), K=1,9) / - + 0.12603270D+00, 0.12603270D+00, 0.13124404D-06, 0.13124404D-06, - + 0.13124404D-06, 0.13124404D-06, 0.33133863D-01, 0.11498638D-17, - + 0.11237363D+00, 0.11237363D+00, 0.21350665D-05, 0.21373934D-05, - + 0.21373934D-05, 0.21350665D-05, 0.24693838D-01, 0.20284499D-05, - + 0.99984280D-01, 0.99984280D-01, 0.36623638D-05, 0.36661217D-05, - + 0.36661217D-05, 0.36623638D-05, 0.18394445D-01, 0.35757333D-05, - + 0.88764061D-01, 0.88764061D-01, 0.46552743D-05, 0.46598515D-05, - + 0.46598515D-05, 0.46552743D-05, 0.13678118D-01, 0.45849470D-05, - + 0.78629958D-01, 0.78629958D-01, 0.52709325D-05, 0.52759082D-05, - + 0.52759082D-05, 0.52709325D-05, 0.10151135D-01, 0.52139105D-05, - + 0.69499013D-01, 0.69499013D-01, 0.55433968D-05, 0.55484728D-05, - + 0.55484728D-05, 0.55433968D-05, 0.75321029D-02, 0.54972126D-05, - + 0.61292603D-01, 0.61292603D-01, 0.55461294D-05, 0.55511059D-05, - + 0.55511059D-05, 0.55461294D-05, 0.55949427D-02, 0.55087664D-05, - + 0.53935766D-01, 0.53935766D-01, 0.53646674D-05, 0.53694171D-05, - + 0.53694171D-05, 0.53646674D-05, 0.41650551D-02, 0.53344780D-05, - + 0.47357260D-01, 0.47357260D-01, 0.50578930D-05, 0.50623395D-05, - + 0.50623395D-05, 0.50578930D-05, 0.31096906D-02, 0.50335306D-05/ - DATA ((CALCPI(I,K,23),I=1,8), K=10,18) / - + 0.41489712D-01, 0.41489712D-01, 0.46749445D-05, 0.46790479D-05, - + 0.46790479D-05, 0.46749445D-05, 0.23319468D-02, 0.46553098D-05, - + 0.36269610D-01, 0.36269610D-01, 0.42547318D-05, 0.42584775D-05, - + 0.42584775D-05, 0.42547318D-05, 0.17590366D-02, 0.42389280D-05, - + 0.31637321D-01, 0.31637321D-01, 0.38242037D-05, 0.38275942D-05, - + 0.38275942D-05, 0.38242037D-05, 0.13351787D-02, 0.38115002D-05, - + 0.27537078D-01, 0.27537078D-01, 0.34025134D-05, 0.34055622D-05, - + 0.34055622D-05, 0.34025134D-05, 0.10203710D-02, 0.33923156D-05, - + 0.23916932D-01, 0.23916932D-01, 0.30023335D-05, 0.30050608D-05, - + 0.30050608D-05, 0.30023335D-05, 0.78590721D-03, 0.29941581D-05, - + 0.20728687D-01, 0.20728687D-01, 0.26309637D-05, 0.26333936D-05, - + 0.26333936D-05, 0.26309637D-05, 0.61009178D-03, 0.26244184D-05, - + 0.17927800D-01, 0.17927800D-01, 0.22921878D-05, 0.22943455D-05, - + 0.22943455D-05, 0.22921878D-05, 0.47711982D-03, 0.22869544D-05, - + 0.15473275D-01, 0.15473275D-01, 0.19872784D-05, 0.19891895D-05, - + 0.19891895D-05, 0.19872784D-05, 0.37586504D-03, 0.19830995D-05, - + 0.13327523D-01, 0.13327523D-01, 0.17157039D-05, 0.17173932D-05, - + 0.17173932D-05, 0.17157039D-05, 0.29815493D-03, 0.17123714D-05/ - DATA ((CALCPI(I,K,23),I=1,8), K=19,20) / - + 0.11456220D-01, 0.11456220D-01, 0.14758592D-05, 0.14773498D-05, - + 0.14773498D-05, 0.14758592D-05, 0.23793726D-03, 0.14732051D-05, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,24),I=1,8), K=1,9) / - + 0.91781792D-01, 0.91781792D-01, 0.62718613D-08, 0.62718613D-08, - + 0.62718613D-08, 0.62718613D-08, 0.15088826D-01,-0.78684418D-19, - + 0.79959099D-01, 0.79959099D-01,-0.34211818D-06,-0.34243954D-06, - + -0.34243954D-06,-0.34211818D-06, 0.10671818D-01,-0.34708428D-06, - + 0.69510486D-01, 0.69510486D-01,-0.34924180D-06,-0.34964231D-06, - + -0.34964231D-06,-0.34924180D-06, 0.75701257D-02,-0.35317677D-06, - + 0.60284301D-01, 0.60284301D-01,-0.25975426D-06,-0.26009065D-06, - + -0.26009065D-06,-0.25975426D-06, 0.53737194D-02,-0.26286957D-06, - + 0.52160445D-01, 0.52160445D-01,-0.12680777D-06,-0.12700150D-06, - + -0.12700150D-06,-0.12680777D-06, 0.38090692D-02,-0.12927056D-06, - + 0.45025273D-01, 0.45025273D-01,-0.67966148D-09,-0.69086019D-09, - + -0.69086013D-09,-0.67966148D-09, 0.27065500D-02,-0.26244240D-08, - + 0.38774504D-01, 0.38774504D-01, 0.95305780D-07, 0.95487323D-07, - + 0.95487323D-07, 0.95305780D-07, 0.19293303D-02, 0.93771941D-07, - + 0.33312900D-01, 0.33312900D-01, 0.16484995D-06, 0.16521491D-06, - + 0.16521491D-06, 0.16484995D-06, 0.13813427D-02, 0.16364182D-06, - + 0.28553307D-01, 0.28553307D-01, 0.21048478D-06, 0.21101214D-06, - + 0.21101214D-06, 0.21048478D-06, 0.99586559D-03, 0.20953447D-06/ - DATA ((CALCPI(I,K,24),I=1,8), K=10,18) / - + 0.24416398D-01, 0.24416398D-01, 0.23526040D-06, 0.23592276D-06, - + 0.23592276D-06, 0.23526040D-06, 0.72333213D-03, 0.23451392D-06, - + 0.20830185D-01, 0.20830185D-01, 0.24481750D-06, 0.24558494D-06, - + 0.24558494D-06, 0.24481750D-06, 0.52966420D-03, 0.24423195D-06, - + 0.17729544D-01, 0.17729544D-01, 0.24377344D-06, 0.24461619D-06, - + 0.24461619D-06, 0.24377344D-06, 0.39164033D-03, 0.24331479D-06, - + 0.15055765D-01, 0.15055765D-01, 0.23542551D-06, 0.23631570D-06, - + 0.23631570D-06, 0.23542551D-06, 0.29248183D-03, 0.23506676D-06, - + 0.12756110D-01, 0.12756110D-01, 0.22248169D-06, 0.22339441D-06, - + 0.22339441D-06, 0.22248169D-06, 0.22050297D-03, 0.22220149D-06, - + 0.10783366D-01, 0.10783366D-01, 0.20692752D-06, 0.20784137D-06, - + 0.20784137D-06, 0.20692752D-06, 0.16780982D-03, 0.20670897D-06, - + 0.90954194D-02, 0.90954194D-02, 0.19010591D-06, 0.19100319D-06, - + 0.19100319D-06, 0.19010591D-06, 0.12885082D-03, 0.18993569D-06, - + 0.76548396D-02, 0.76548396D-02, 0.17296019D-06, 0.17382683D-06, - + 0.17382683D-06, 0.17296019D-06, 0.99707609D-04, 0.17282781D-06, - + 0.64284761D-02, 0.64284761D-02, 0.15612161D-06, 0.15694690D-06, - + 0.15694690D-06, 0.15612161D-06, 0.77680737D-04, 0.15601879D-06/ - DATA ((CALCPI(I,K,24),I=1,8), K=19,20) / - + 0.53870742D-02, 0.53870742D-02, 0.13998369D-06, 0.14076000D-06, - + 0.14076000D-06, 0.13998369D-06, 0.60875345D-04, 0.13990395D-06, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,25),I=1,8), K=1,9) / - + 0.52261974D-01, 0.52261974D-01, 0.34647466D-10, 0.34647465D-10, - + 0.34647465D-10, 0.34647466D-10, 0.39323972D-02,-0.10645399D-18, - + 0.43765971D-01, 0.43765971D-01,-0.25060587D-06,-0.24839709D-06, - + -0.24839709D-06,-0.25060587D-06, 0.25440795D-02,-0.25063217D-06, - + 0.36578184D-01, 0.36578184D-01,-0.27647795D-06,-0.27282180D-06, - + -0.27282180D-06,-0.27647795D-06, 0.16666412D-02,-0.27649795D-06, - + 0.30493282D-01, 0.30493282D-01,-0.22155575D-06,-0.21701167D-06, - + -0.21701167D-06,-0.22155575D-06, 0.11046134D-02,-0.22157094D-06, - + 0.25355240D-01, 0.25355240D-01,-0.14259920D-06,-0.13758570D-06, - + -0.13758570D-06,-0.14259920D-06, 0.72759861D-03,-0.14261073D-06, - + 0.21029506D-01, 0.21029506D-01,-0.60864861D-07,-0.55691657D-07, - + -0.55691657D-07,-0.60864861D-07, 0.48140977D-03,-0.60873589D-07, - + 0.17397145D-01, 0.17397145D-01, 0.96720394D-08, 0.14784056D-07, - + 0.14784056D-07, 0.96720394D-08, 0.32331307D-03, 0.96654363D-08, - + 0.14355334D-01, 0.14355334D-01, 0.64928563D-07, 0.69827549D-07, - + 0.69827549D-07, 0.64928563D-07, 0.21908799D-03, 0.64923575D-07, - + 0.11815074D-01, 0.11815074D-01, 0.10504045D-06, 0.10962783D-06, - + 0.10962783D-06, 0.10504045D-06, 0.14978562D-03, 0.10503668D-06/ - DATA ((CALCPI(I,K,25),I=1,8), K=10,18) / - + 0.96995208D-02, 0.96995208D-02, 0.13127062D-06, 0.13548837D-06, - + 0.13548837D-06, 0.13127062D-06, 0.10396556D-03, 0.13126778D-06, - + 0.79425484D-02, 0.79425484D-02, 0.14600936D-06, 0.14982969D-06, - + 0.14982969D-06, 0.14600936D-06, 0.73228534D-04, 0.14600723D-06, - + 0.64874238D-02, 0.64874238D-02, 0.15182455D-06, 0.15524163D-06, - + 0.15524163D-06, 0.15182455D-06, 0.52220180D-04, 0.15182295D-06, - + 0.52856239D-02, 0.52856239D-02, 0.15090900D-06, 0.15393254D-06, - + 0.15393254D-06, 0.15090900D-06, 0.37731760D-04, 0.15090780D-06, - + 0.42957828D-02, 0.42957828D-02, 0.14517960D-06, 0.14782974D-06, - + 0.14782974D-06, 0.14517960D-06, 0.27606490D-04, 0.14517871D-06, - + 0.34827510D-02, 0.34827510D-02, 0.13625082D-06, 0.13855423D-06, - + 0.13855423D-06, 0.13625082D-06, 0.20403403D-04, 0.13625015D-06, - + 0.28167610D-02, 0.28167610D-02, 0.12537941D-06, 0.12736640D-06, - + 0.12736640D-06, 0.12537941D-06, 0.15210577D-04, 0.12537891D-06, - + 0.22726872D-02, 0.22726872D-02, 0.11352433D-06, 0.11522664D-06, - + 0.11522664D-06, 0.11352433D-06, 0.11423299D-04, 0.11352396D-06, - + 0.18293940D-02, 0.18293940D-02, 0.10140432D-06, 0.10285361D-06, - + 0.10285361D-06, 0.10140432D-06, 0.86270332D-05, 0.10140404D-06/ - DATA ((CALCPI(I,K,25),I=1,8), K=19,20) / - + 0.14691613D-02, 0.14691613D-02, 0.89530989D-07, 0.90757729D-07, - + 0.90757729D-07, 0.89530989D-07, 0.65425191D-05, 0.89530783D-07, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ -C---------------------------------------------------------------------- - DATA ISTART/0/ - SAVE ISTART,OWLAM2,Q02PI -C - IF (ISTART.EQ.0) THEN - ISTART=1 - DO 11 K=1,25 - DO 11 I=1,20 - DO 11 M=1,8 - 11 CALCPIO(M,I,K) = CALCPI(M,I,K) - OWLAM=PARPI(1) - OWLAM2=OWLAM**2 - Q02PI=PARPI(39) - Q2MAX=PARPI(40) - ENDIF -C -C the conventions are : q(1)=x*u, q(2)=x*d, q(3)=x*str, q(4)=x*usea, -C q(5)=x*dsea, q(6)=x*charm, q(7)=x*gluon -C - X = DX - Q = DQ - Q2 = Q*Q - IDQ2=2 - SB=0. - IF(Q2-Q02PI) 1,1,2 - 2 IF(IDQ2-1) 1,1,3 - 3 SB= LOG( LOG( MAX(Q02PI,Q2)/OWLAM2)/ LOG(Q02PI/OWLAM2)) - 1 CALL AURPI1(1,0,X,SB,XPDF(1)) - CALL AURPI1(2,0,X,SB,XPDF(2)) - CALL AURPI1(3,0,X,SB,XPDF(3)) - CALL AURPI1(4,0,X,SB,XPDF(4)) - CALL AURPI1(5,0,X,SB,XPDF(5)) - CALL AURPI1(8,0,X,SB,XPDF(6)) - CALL AURPI1(7,0,X,SB,XPDF(7)) -C - DUPV=XPDF(1) - XPDF(4) - DDNV=XPDF(2) - XPDF(5) - DUSEA=XPDF(4) - DDSEA=XPDF(5) - DSTR=XPDF(3) - DCHM=XPDF(6) - DGL =XPDF(7) -C - RETURN - END diff --git a/PDF/spdf/abfkw2.F b/PDF/spdf/abfkw2.F deleted file mode 100644 index e03409da3f0..00000000000 --- a/PDF/spdf/abfkw2.F +++ /dev/null @@ -1,1152 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:27 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:53 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE ABFKW2(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL) -#include "pdf/expdp.inc" - + PARPI(40),CALCPI(8,20,25),CALCPIO(8,20,25),ZEROD, - + DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL - REAL X, Q, UPV, DNV, USEA, DSEA, STR, CHM, GL - COMMON/W5051I5/CALCPIO - REAL XPDF(7) - DATA ZEROD/0.D0/ -C---------------------------------------------------------------------- - DATA (PARPI(I),I=1,40) / - + 0.18099999D+00, 0.60926290D+00, 0.10000000D+01, 0.00000000D+00, - + 0.00000000D+00, 0.60926290D+00, 0.10000000D+01, 0.00000000D+00, - + 0.20329999D+01, 0.96999998D+01, 0.83280414D+00, 0.00000000D+00, - + 0.14280005D+01, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.10000002D+00, 0.20000000D+01, 0.10000000D+09/ - DATA ((CALCPI(I,K,1 ),I=1,8), K=1,9) / - + 0.35012248D+00, 0.35012248D+00, 0.33556090D+00, 0.33556090D+00, - + 0.33556090D+00, 0.33556090D+00, 0.83161515D+00,-0.52041704D-17, - + 0.37201120D+00, 0.37201120D+00, 0.35644488D+00, 0.35643017D+00, - + 0.35643017D+00, 0.35644488D+00, 0.16943822D+01, 0.21627137D-01, - + 0.39940177D+00, 0.39940177D+00, 0.38279767D+00, 0.38276892D+00, - + 0.38276892D+00, 0.38279767D+00, 0.27090403D+01, 0.48760048D-01, - + 0.43261897D+00, 0.43261897D+00, 0.41494360D+00, 0.41490152D+00, - + 0.41490152D+00, 0.41494360D+00, 0.38788270D+01, 0.81724886D-01, - + 0.47194124D+00, 0.47194124D+00, 0.45316071D+00, 0.45310598D+00, - + 0.45310598D+00, 0.45316071D+00, 0.52042871D+01, 0.12080131D+00, - + 0.51763555D+00, 0.51763555D+00, 0.49771556D+00, 0.49764887D+00, - + 0.49764887D+00, 0.49771556D+00, 0.66837094D+01, 0.16625757D+00, - + 0.56994488D+00, 0.56994488D+00, 0.54885080D+00, 0.54877279D+00, - + 0.54877279D+00, 0.54885080D+00, 0.83134438D+01, 0.21833799D+00, - + 0.62908077D+00, 0.62908077D+00, 0.60677763D+00, 0.60668894D+00, - + 0.60668894D+00, 0.60677763D+00, 0.10087784D+02, 0.27725545D+00, - + 0.69521725D+00, 0.69521725D+00, 0.67166978D+00, 0.67157102D+00, - + 0.67157102D+00, 0.67166978D+00, 0.11999100D+02, 0.34318535D+00/ - DATA ((CALCPI(I,K,1 ),I=1,8), K=10,18) / - + 0.76848370D+00, 0.76848370D+00, 0.74365640D+00, 0.74354814D+00, - + 0.74354814D+00, 0.74365640D+00, 0.14037940D+02, 0.41625848D+00, - + 0.84895905D+00, 0.84895905D+00, 0.82281626D+00, 0.82269906D+00, - + 0.82269906D+00, 0.82281626D+00, 0.16193174D+02, 0.49655522D+00, - + 0.93666656D+00, 0.93666656D+00, 0.90917250D+00, 0.90904687D+00, - + 0.90904687D+00, 0.90917250D+00, 0.18452166D+02, 0.58410027D+00, - + 0.10315695D+01, 0.10315695D+01, 0.10026884D+01, 0.10025548D+01, - + 0.10025548D+01, 0.10026884D+01, 0.20800966D+02, 0.67885837D+00, - + 0.11335678D+01, 0.11335678D+01, 0.11032639D+01, 0.11031228D+01, - + 0.11031228D+01, 0.11032639D+01, 0.23224522D+02, 0.78073106D+00, - + 0.12424964D+01, 0.12424964D+01, 0.12107340D+01, 0.12105858D+01, - + 0.12105858D+01, 0.12107340D+01, 0.25706912D+02, 0.88955454D+00, - + 0.13581235D+01, 0.13581235D+01, 0.13248675D+01, 0.13247125D+01, - + 0.13247125D+01, 0.13248675D+01, 0.28231576D+02, 0.10050988D+01, - + 0.14801520D+01, 0.14801520D+01, 0.14453671D+01, 0.14452057D+01, - + 0.14452057D+01, 0.14453671D+01, 0.30781557D+02, 0.11270681D+01, - + 0.16082199D+01, 0.16082199D+01, 0.15718716D+01, 0.15717042D+01, - + 0.15717042D+01, 0.15718716D+01, 0.33339740D+02, 0.12551020D+01/ - DATA ((CALCPI(I,K,1 ),I=1,8), K=19,20) / - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,2 ),I=1,8), K=1,9) / - + 0.35450801D+00, 0.35450801D+00, 0.33231685D+00, 0.33231685D+00, - + 0.33231685D+00, 0.33231685D+00, 0.83042667D+00,-0.39898640D-16, - + 0.37318654D+00, 0.37318654D+00, 0.34955323D+00, 0.34953492D+00, - + 0.34953492D+00, 0.34955323D+00, 0.15666705D+01, 0.18428098D-01, - + 0.39580234D+00, 0.39580234D+00, 0.37069078D+00, 0.37065508D+00, - + 0.37065508D+00, 0.37069078D+00, 0.23994112D+01, 0.40810506D-01, - + 0.42247525D+00, 0.42247525D+00, 0.39584907D+00, 0.39579685D+00, - + 0.39579685D+00, 0.39584907D+00, 0.33260917D+01, 0.67268661D-01, - + 0.45329787D+00, 0.45329787D+00, 0.42512047D+00, 0.42505257D+00, - + 0.42505257D+00, 0.42512047D+00, 0.43429635D+01, 0.97896597D-01, - + 0.48834142D+00, 0.48834142D+00, 0.45857604D+00, 0.45849322D+00, - + 0.45849322D+00, 0.45857604D+00, 0.54448091D+01, 0.13276701D+00, - + 0.52765497D+00, 0.52765497D+00, 0.49626478D+00, 0.49616776D+00, - + 0.49616776D+00, 0.49626478D+00, 0.66253462D+01, 0.17193050D+00, - + 0.57125877D+00, 0.57125877D+00, 0.53820690D+00, 0.53809633D+00, - + 0.53809633D+00, 0.53820690D+00, 0.78771848D+01, 0.21540883D+00, - + 0.61914185D+00, 0.61914185D+00, 0.58439154D+00, 0.58426801D+00, - + 0.58426801D+00, 0.58439154D+00, 0.91919815D+01, 0.26319261D+00/ - DATA ((CALCPI(I,K,2 ),I=1,8), K=10,18) / - + 0.67125862D+00, 0.67125862D+00, 0.63477328D+00, 0.63463732D+00, - + 0.63463732D+00, 0.63477328D+00, 0.10560562D+02, 0.31523779D+00, - + 0.72752673D+00, 0.72752673D+00, 0.68927008D+00, 0.68912216D+00, - + 0.68912216D+00, 0.68927008D+00, 0.11973067D+02, 0.37146361D+00, - + 0.78782554D+00, 0.78782554D+00, 0.74776173D+00, 0.74760225D+00, - + 0.74760225D+00, 0.74776173D+00, 0.13419105D+02, 0.43175105D+00, - + 0.85199542D+00, 0.85199542D+00, 0.81008913D+00, 0.80991844D+00, - + 0.80991844D+00, 0.81008913D+00, 0.14887917D+02, 0.49594204D+00, - + 0.91983784D+00, 0.91983784D+00, 0.87605444D+00, 0.87587283D+00, - + 0.87587283D+00, 0.87605444D+00, 0.16368538D+02, 0.56383966D+00, - + 0.99111626D+00, 0.99111626D+00, 0.94542193D+00, 0.94522965D+00, - + 0.94522965D+00, 0.94542193D+00, 0.17849959D+02, 0.63520897D+00, - + 0.10655579D+01, 0.10655579D+01, 0.10179197D+01, 0.10177170D+01, - + 0.10177170D+01, 0.10179197D+01, 0.19321289D+02, 0.70977869D+00, - + 0.11428559D+01, 0.11428559D+01, 0.10932421D+01, 0.10930291D+01, - + 0.10930291D+01, 0.10932421D+01, 0.20771906D+02, 0.78724363D+00, - + 0.12226727D+01, 0.12226727D+01, 0.11710528D+01, 0.11708296D+01, - + 0.11708296D+01, 0.11710528D+01, 0.22191594D+02, 0.86726773D+00/ - DATA ((CALCPI(I,K,2 ),I=1,8), K=19,20) / - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,3 ),I=1,8), K=1,9) / - + 0.35969733D+00, 0.35969733D+00, 0.32591301D+00, 0.32591301D+00, - + 0.32591301D+00, 0.32591301D+00, 0.82805124D+00,-0.43368087D-16, - + 0.37500840D+00, 0.37500840D+00, 0.33921282D+00, 0.33918988D+00, - + 0.33918988D+00, 0.33921282D+00, 0.14320118D+01, 0.15200902D-01, - + 0.39298618D+00, 0.39298618D+00, 0.35514484D+00, 0.35509987D+00, - + 0.35509987D+00, 0.35514484D+00, 0.20896087D+01, 0.33103685D-01, - + 0.41363247D+00, 0.41363247D+00, 0.37371096D+00, 0.37364473D+00, - + 0.37364473D+00, 0.37371096D+00, 0.27961368D+01, 0.53711536D-01, - + 0.43693480D+00, 0.43693480D+00, 0.39489890D+00, 0.39481209D+00, - + 0.39481209D+00, 0.39489890D+00, 0.35466994D+01, 0.77013287D-01, - + 0.46285814D+00, 0.46285814D+00, 0.41867397D+00, 0.41856714D+00, - + 0.41856714D+00, 0.41867397D+00, 0.43355598D+01, 0.10297524D+00, - + 0.49135036D+00, 0.49135036D+00, 0.44498453D+00, 0.44485811D+00, - + 0.44485811D+00, 0.44498453D+00, 0.51565328D+01, 0.13154665D+00, - + 0.52233727D+00, 0.52233727D+00, 0.47375703D+00, 0.47361138D+00, - + 0.47361138D+00, 0.47375703D+00, 0.60029852D+01, 0.16265474D+00, - + 0.55572286D+00, 0.55572286D+00, 0.50489627D+00, 0.50473167D+00, - + 0.50473167D+00, 0.50489627D+00, 0.68679706D+01, 0.19620494D+00/ - DATA ((CALCPI(I,K,3 ),I=1,8), K=10,18) / - + 0.59138844D+00, 0.59138844D+00, 0.53828453D+00, 0.53810115D+00, - + 0.53810115D+00, 0.53828453D+00, 0.77443392D+01, 0.23207998D+00, - + 0.62919277D+00, 0.62919277D+00, 0.57378174D+00, 0.57357971D+00, - + 0.57357971D+00, 0.57378174D+00, 0.86248540D+01, 0.27014009D+00, - + 0.66897271D+00, 0.66897271D+00, 0.61122609D+00, 0.61100547D+00, - + 0.61100547D+00, 0.61122609D+00, 0.95023062D+01, 0.31022354D+00, - + 0.71054429D+00, 0.71054429D+00, 0.65043515D+00, 0.65019595D+00, - + 0.65019595D+00, 0.65043515D+00, 0.10369625D+02, 0.35214781D+00, - + 0.75370431D+00, 0.75370431D+00, 0.69120741D+00, 0.69094963D+00, - + 0.69094963D+00, 0.69120741D+00, 0.11219984D+02, 0.39571110D+00, - + 0.79823235D+00, 0.79823235D+00, 0.73332435D+00, 0.73304796D+00, - + 0.73304796D+00, 0.73332435D+00, 0.12046891D+02, 0.44069438D+00, - + 0.84389311D+00, 0.84389311D+00, 0.77655277D+00, 0.77625773D+00, - + 0.77625773D+00, 0.77655277D+00, 0.12844281D+02, 0.48686372D+00, - + 0.89043914D+00, 0.89043914D+00, 0.82064746D+00, 0.82033373D+00, - + 0.82033373D+00, 0.82064746D+00, 0.13606581D+02, 0.53397296D+00, - + 0.93761367D+00, 0.93761367D+00, 0.86535407D+00, 0.86502166D+00, - + 0.86502166D+00, 0.86535407D+00, 0.14328774D+02, 0.58176661D+00/ - DATA ((CALCPI(I,K,3 ),I=1,8), K=19,20) / - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,4 ),I=1,8), K=1,9) / - + 0.36476665D+00, 0.36476665D+00, 0.31343633D+00, 0.31343633D+00, - + 0.31343633D+00, 0.31343633D+00, 0.82330650D+00,-0.38163916D-16, - + 0.37664555D+00, 0.37664555D+00, 0.32260136D+00, 0.32256942D+00, - + 0.32256942D+00, 0.32260136D+00, 0.12945379D+01, 0.12128303D-01, - + 0.39022327D+00, 0.39022327D+00, 0.33344256D+00, 0.33337871D+00, - + 0.33337871D+00, 0.33344256D+00, 0.17895988D+01, 0.26008755D-01, - + 0.40543373D+00, 0.40543373D+00, 0.34589471D+00, 0.34579887D+00, - + 0.34579887D+00, 0.34589471D+00, 0.23035577D+01, 0.41576230D-01, - + 0.42220829D+00, 0.42220829D+00, 0.35989022D+00, 0.35976223D+00, - + 0.35976223D+00, 0.35989022D+00, 0.28318563D+01, 0.58763054D-01, - + 0.44046046D+00, 0.44046046D+00, 0.37534387D+00, 0.37518352D+00, - + 0.37518352D+00, 0.37534387D+00, 0.33696021D+01, 0.77483727D-01, - + 0.46009403D+00, 0.46009403D+00, 0.39216094D+00, 0.39196800D+00, - + 0.39196800D+00, 0.39216094D+00, 0.39118767D+01, 0.97643063D-01, - + 0.48099992D+00, 0.48099992D+00, 0.41023409D+00, 0.41000832D+00, - + 0.41000832D+00, 0.41023409D+00, 0.44537567D+01, 0.11913303D+00, - + 0.50305752D+00, 0.50305752D+00, 0.42944471D+00, 0.42918588D+00, - + 0.42918588D+00, 0.42944471D+00, 0.49904042D+01, 0.14183407D+00/ - DATA ((CALCPI(I,K,4 ),I=1,8), K=10,18) / - + 0.52613523D+00, 0.52613523D+00, 0.44966342D+00, 0.44937137D+00, - + 0.44937137D+00, 0.44966342D+00, 0.55171440D+01, 0.16561567D+00, - + 0.55009155D+00, 0.55009155D+00, 0.47075121D+00, 0.47042580D+00, - + 0.47042580D+00, 0.47075121D+00, 0.60295332D+01, 0.19033738D+00, - + 0.57477639D+00, 0.57477639D+00, 0.49256067D+00, 0.49220187D+00, - + 0.49220187D+00, 0.49256067D+00, 0.65234244D+01, 0.21585013D+00, - + 0.60003260D+00, 0.60003260D+00, 0.51493758D+00, 0.51454544D+00, - + 0.51454544D+00, 0.51493758D+00, 0.69950194D+01, 0.24199778D+00, - + 0.62569766D+00, 0.62569766D+00, 0.53772257D+00, 0.53729726D+00, - + 0.53729726D+00, 0.53772257D+00, 0.74409132D+01, 0.26861880D+00, - + 0.65160554D+00, 0.65160554D+00, 0.56075296D+00, 0.56029479D+00, - + 0.56029479D+00, 0.56075296D+00, 0.78581281D+01, 0.29554809D+00, - + 0.67758862D+00, 0.67758862D+00, 0.58386467D+00, 0.58337408D+00, - + 0.58337408D+00, 0.58386467D+00, 0.82441367D+01, 0.32261891D+00, - + 0.70347962D+00, 0.70347962D+00, 0.60689412D+00, 0.60637171D+00, - + 0.60637171D+00, 0.60689412D+00, 0.85968749D+01, 0.34966480D+00, - + 0.72911352D+00, 0.72911352D+00, 0.62968019D+00, 0.62912673D+00, - + 0.62912673D+00, 0.62968019D+00, 0.89147454D+01, 0.37652154D+00/ - DATA ((CALCPI(I,K,4 ),I=1,8), K=19,20) / - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,5 ),I=1,8), K=1,9) / - + 0.36743196D+00, 0.36743196D+00, 0.28976010D+00, 0.28976010D+00, - + 0.28976010D+00, 0.28976010D+00, 0.81384158D+00,-0.38163916D-16, - + 0.37601016D+00, 0.37601016D+00, 0.29484821D+00, 0.29478982D+00, - + 0.29478982D+00, 0.29484821D+00, 0.11623402D+01, 0.94648758D-02, - + 0.38554691D+00, 0.38554691D+00, 0.30090458D+00, 0.30078741D+00, - + 0.30078741D+00, 0.30090458D+00, 0.15148449D+01, 0.19952699D-01, - + 0.39594768D+00, 0.39594768D+00, 0.30783659D+00, 0.30766050D+00, - + 0.30766050D+00, 0.30783659D+00, 0.18673407D+01, 0.31369239D-01, - + 0.40712527D+00, 0.40712527D+00, 0.31555913D+00, 0.31532421D+00, - + 0.31532421D+00, 0.31555913D+00, 0.22164485D+01, 0.43627684D-01, - + 0.41898255D+00, 0.41898255D+00, 0.32397756D+00, 0.32368417D+00, - + 0.32368417D+00, 0.32397756D+00, 0.25588348D+01, 0.56631374D-01, - + 0.43141994D+00, 0.43141994D+00, 0.33299510D+00, 0.33264383D+00, - + 0.33264383D+00, 0.33299510D+00, 0.28913769D+01, 0.70281217D-01, - + 0.44433366D+00, 0.44433366D+00, 0.34251111D+00, 0.34210286D+00, - + 0.34210286D+00, 0.34251111D+00, 0.32111869D+01, 0.84473997D-01, - + 0.45761704D+00, 0.45761704D+00, 0.35242237D+00, 0.35195829D+00, - + 0.35195829D+00, 0.35242237D+00, 0.35156443D+01, 0.99103611D-01/ - DATA ((CALCPI(I,K,5 ),I=1,8), K=10,18) / - + 0.47116134D+00, 0.47116134D+00, 0.36262385D+00, 0.36210540D+00, - + 0.36210540D+00, 0.36262385D+00, 0.38024294D+01, 0.11406192D+00, - + 0.48485678D+00, 0.48485678D+00, 0.37300979D+00, 0.37243870D+00, - + 0.37243870D+00, 0.37300979D+00, 0.40695430D+01, 0.12923975D+00, - + 0.49859366D+00, 0.49859366D+00, 0.38347470D+00, 0.38285301D+00, - + 0.38285301D+00, 0.38347470D+00, 0.43153217D+01, 0.14452797D+00, - + 0.51226343D+00, 0.51226343D+00, 0.39391450D+00, 0.39324452D+00, - + 0.39324452D+00, 0.39391450D+00, 0.45384440D+01, 0.15981863D+00, - + 0.52575992D+00, 0.52575992D+00, 0.40422763D+00, 0.40351196D+00, - + 0.40351196D+00, 0.40422763D+00, 0.47379298D+01, 0.17500612D+00, - + 0.53898036D+00, 0.53898036D+00, 0.41431616D+00, 0.41355766D+00, - + 0.41355766D+00, 0.41431616D+00, 0.49131333D+01, 0.18998820D+00, - + 0.55182652D+00, 0.55182652D+00, 0.42408677D+00, 0.42328855D+00, - + 0.42328855D+00, 0.42408677D+00, 0.50637299D+01, 0.20466714D+00, - + 0.56420565D+00, 0.56420565D+00, 0.43345175D+00, 0.43261714D+00, - + 0.43261714D+00, 0.43345175D+00, 0.51896975D+01, 0.21895064D+00, - + 0.57603135D+00, 0.57603135D+00, 0.44232978D+00, 0.44146236D+00, - + 0.44146236D+00, 0.44232978D+00, 0.52912945D+01, 0.23275273D+00/ - DATA ((CALCPI(I,K,5 ),I=1,8), K=19,20) / - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,6 ),I=1,8), K=1,9) / - + 0.36371961D+00, 0.36371961D+00, 0.24715937D+00, 0.24715937D+00, - + 0.24715937D+00, 0.24715937D+00, 0.79501053D+00,-0.41633363D-16, - + 0.36918406D+00, 0.36918406D+00, 0.24848601D+00, 0.24838839D+00, - + 0.24838839D+00, 0.24848601D+00, 0.10329147D+01, 0.71774690D-02, - + 0.37506236D+00, 0.37506236D+00, 0.25030064D+00, 0.25011013D+00, - + 0.25011013D+00, 0.25030064D+00, 0.12630821D+01, 0.14825257D-01, - + 0.38126493D+00, 0.38126493D+00, 0.25251687D+00, 0.25223842D+00, - + 0.25223842D+00, 0.25251687D+00, 0.14831325D+01, 0.22854718D-01, - + 0.38771416D+00, 0.38771416D+00, 0.25506046D+00, 0.25469924D+00, - + 0.25469924D+00, 0.25506046D+00, 0.16912725D+01, 0.31189161D-01, - + 0.39432999D+00, 0.39432999D+00, 0.25785517D+00, 0.25741654D+00, - + 0.25741654D+00, 0.25785517D+00, 0.18859428D+01, 0.39749592D-01, - + 0.40103450D+00, 0.40103450D+00, 0.26082726D+00, 0.26031679D+00, - + 0.26031679D+00, 0.26082726D+00, 0.20658360D+01, 0.48459182D-01, - + 0.40775133D+00, 0.40775133D+00, 0.26390484D+00, 0.26332830D+00, - + 0.26332830D+00, 0.26390484D+00, 0.22299159D+01, 0.57242734D-01, - + 0.41440630D+00, 0.41440630D+00, 0.26701852D+00, 0.26638184D+00, - + 0.26638184D+00, 0.26701852D+00, 0.23774071D+01, 0.66027293D-01/ - DATA ((CALCPI(I,K,6 ),I=1,8), K=10,18) / - + 0.42092808D+00, 0.42092808D+00, 0.27010197D+00, 0.26941122D+00, - + 0.26941122D+00, 0.27010197D+00, 0.25077938D+01, 0.74742768D-01, - + 0.42724871D+00, 0.42724871D+00, 0.27309241D+00, 0.27235378D+00, - + 0.27235378D+00, 0.27309241D+00, 0.26208077D+01, 0.83322457D-01, - + 0.43330415D+00, 0.43330415D+00, 0.27593111D+00, 0.27515086D+00, - + 0.27515086D+00, 0.27593111D+00, 0.27164144D+01, 0.91703603D-01, - + 0.43903486D+00, 0.43903486D+00, 0.27856389D+00, 0.27774834D+00, - + 0.27774834D+00, 0.27856389D+00, 0.27947967D+01, 0.99827898D-01, - + 0.44438619D+00, 0.44438619D+00, 0.28094152D+00, 0.28009698D+00, - + 0.28009698D+00, 0.28094152D+00, 0.28563334D+01, 0.10764193D+00, - + 0.44930884D+00, 0.44930884D+00, 0.28302004D+00, 0.28215280D+00, - + 0.28215280D+00, 0.28302004D+00, 0.29015781D+01, 0.11509756D+00, - + 0.45375911D+00, 0.45375911D+00, 0.28476105D+00, 0.28387731D+00, - + 0.28387731D+00, 0.28476105D+00, 0.29312349D+01, 0.12215221D+00, - + 0.45769919D+00, 0.45769919D+00, 0.28613187D+00, 0.28523773D+00, - + 0.28523773D+00, 0.28613187D+00, 0.29461347D+01, 0.12876909D+00, - + 0.46109722D+00, 0.46109722D+00, 0.28710561D+00, 0.28620701D+00, - + 0.28620701D+00, 0.28710561D+00, 0.29472105D+01, 0.13491727D+00/ - DATA ((CALCPI(I,K,6 ),I=1,8), K=19,20) / - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,7 ),I=1,8), K=1,9) / - + 0.35031868D+00, 0.35031868D+00, 0.17838643D+00, 0.17838643D+00, - + 0.17838643D+00, 0.17838643D+00, 0.75774795D+00,-0.17347235D-17, - + 0.35319490D+00, 0.35319490D+00, 0.17707442D+00, 0.17700394D+00, - + 0.17700394D+00, 0.17707442D+00, 0.89825513D+00, 0.51655107D-02, - + 0.35610678D+00, 0.35610678D+00, 0.17599078D+00, 0.17585755D+00, - + 0.17585755D+00, 0.17599078D+00, 0.10264673D+01, 0.10419464D-01, - + 0.35898919D+00, 0.35898919D+00, 0.17507296D+00, 0.17488466D+00, - + 0.17488466D+00, 0.17507296D+00, 0.11417077D+01, 0.15700814D-01, - + 0.36178843D+00, 0.36178843D+00, 0.17427026D+00, 0.17403450D+00, - + 0.17403450D+00, 0.17427026D+00, 0.12436244D+01, 0.20959492D-01, - + 0.36445318D+00, 0.36445318D+00, 0.17353467D+00, 0.17325888D+00, - + 0.17325888D+00, 0.17353467D+00, 0.13320989D+01, 0.26147937D-01, - + 0.36693594D+00, 0.36693594D+00, 0.17282226D+00, 0.17251366D+00, - + 0.17251366D+00, 0.17282226D+00, 0.14071820D+01, 0.31222316D-01, - + 0.36919317D+00, 0.36919317D+00, 0.17209324D+00, 0.17175880D+00, - + 0.17175880D+00, 0.17209324D+00, 0.14691039D+01, 0.36142724D-01, - + 0.37118536D+00, 0.37118536D+00, 0.17131184D+00, 0.17095825D+00, - + 0.17095825D+00, 0.17131184D+00, 0.15182466D+01, 0.40873144D-01/ - DATA ((CALCPI(I,K,7 ),I=1,8), K=10,18) / - + 0.37287724D+00, 0.37287724D+00, 0.17044653D+00, 0.17008011D+00, - + 0.17008011D+00, 0.17044653D+00, 0.15551267D+01, 0.45381665D-01, - + 0.37423788D+00, 0.37423788D+00, 0.16946996D+00, 0.16909670D+00, - + 0.16909670D+00, 0.16946996D+00, 0.15803743D+01, 0.49640539D-01, - + 0.37524080D+00, 0.37524080D+00, 0.16835903D+00, 0.16798451D+00, - + 0.16798451D+00, 0.16835903D+00, 0.15947127D+01, 0.53626232D-01, - + 0.37586403D+00, 0.37586403D+00, 0.16709480D+00, 0.16672417D+00, - + 0.16672417D+00, 0.16709480D+00, 0.15989375D+01, 0.57319427D-01, - + 0.37609000D+00, 0.37609000D+00, 0.16566240D+00, 0.16530040D+00, - + 0.16530040D+00, 0.16566240D+00, 0.15938966D+01, 0.60704969D-01, - + 0.37590560D+00, 0.37590560D+00, 0.16405095D+00, 0.16370185D+00, - + 0.16370185D+00, 0.16405095D+00, 0.15804711D+01, 0.63771761D-01, - + 0.37530195D+00, 0.37530195D+00, 0.16225331D+00, 0.16192094D+00, - + 0.16192094D+00, 0.16225331D+00, 0.15595582D+01, 0.66512618D-01, - + 0.37427429D+00, 0.37427429D+00, 0.16026589D+00, 0.15995363D+00, - + 0.15995363D+00, 0.16026589D+00, 0.15320546D+01, 0.68924063D-01, - + 0.37282174D+00, 0.37282174D+00, 0.15808841D+00, 0.15779918D+00, - + 0.15779918D+00, 0.15808841D+00, 0.14988422D+01, 0.71006089D-01/ - DATA ((CALCPI(I,K,7 ),I=1,8), K=19,20) / - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,8 ),I=1,8), K=1,9) / - + 0.33891365D+00, 0.33891365D+00, 0.12193780D+00, 0.12193780D+00, - + 0.12193780D+00, 0.12193780D+00, 0.71647517D+00,-0.22551405D-16, - + 0.34048312D+00, 0.34048312D+00, 0.12014300D+00, 0.12010115D+00, - + 0.12010115D+00, 0.12014300D+00, 0.80298019D+00, 0.39753828D-02, - + 0.34189642D+00, 0.34189642D+00, 0.11848590D+00, 0.11841177D+00, - + 0.11841177D+00, 0.11848590D+00, 0.87734632D+00, 0.78824510D-02, - + 0.34310846D+00, 0.34310846D+00, 0.11692131D+00, 0.11682346D+00, - + 0.11682346D+00, 0.11692131D+00, 0.93976006D+00, 0.11682687D-01, - + 0.34408357D+00, 0.34408357D+00, 0.11541412D+00, 0.11530029D+00, - + 0.11530029D+00, 0.11541412D+00, 0.99054686D+00, 0.15345970D-01, - + 0.34479032D+00, 0.34479032D+00, 0.11393328D+00, 0.11381038D+00, - + 0.11381038D+00, 0.11393328D+00, 0.10302042D+01, 0.18846087D-01, - + 0.34520108D+00, 0.34520108D+00, 0.11245157D+00, 0.11232570D+00, - + 0.11232570D+00, 0.11245157D+00, 0.10593167D+01, 0.22160222D-01, - + 0.34529249D+00, 0.34529249D+00, 0.11094584D+00, 0.11082237D+00, - + 0.11082237D+00, 0.11094584D+00, 0.10785614D+01, 0.25269373D-01, - + 0.34504522D+00, 0.34504522D+00, 0.10939667D+00, 0.10928023D+00, - + 0.10928023D+00, 0.10939667D+00, 0.10886816D+01, 0.28158041D-01/ - DATA ((CALCPI(I,K,8 ),I=1,8), K=10,18) / - + 0.34444397D+00, 0.34444397D+00, 0.10778826D+00, 0.10768282D+00, - + 0.10768282D+00, 0.10778826D+00, 0.10904685D+01, 0.30814209D-01, - + 0.34347740D+00, 0.34347740D+00, 0.10610827D+00, 0.10601714D+00, - + 0.10601714D+00, 0.10610827D+00, 0.10847430D+01, 0.33229207D-01, - + 0.34213798D+00, 0.34213798D+00, 0.10434759D+00, 0.10427349D+00, - + 0.10427349D+00, 0.10434759D+00, 0.10723392D+01, 0.35397545D-01, - + 0.34042185D+00, 0.34042185D+00, 0.10250016D+00, 0.10244523D+00, - + 0.10244523D+00, 0.10250016D+00, 0.10540880D+01, 0.37316742D-01, - + 0.33832865D+00, 0.33832865D+00, 0.10056269D+00, 0.10052859D+00, - + 0.10052859D+00, 0.10056269D+00, 0.10308048D+01, 0.38987108D-01, - + 0.33586130D+00, 0.33586130D+00, 0.98534461D-01, 0.98522331D-01, - + 0.98522331D-01, 0.98534461D-01, 0.10032768D+01, 0.40411516D-01, - + 0.33302574D+00, 0.33302574D+00, 0.96416984D-01, 0.96427558D-01, - + 0.96427558D-01, 0.96416984D-01, 0.97225332D+00, 0.41595142D-01, - + 0.32983067D+00, 0.32983067D+00, 0.94213779D-01, 0.94247393D-01, - + 0.94247393D-01, 0.94213779D-01, 0.93843835D+00, 0.42545203D-01, - + 0.32628730D+00, 0.32628730D+00, 0.91930065D-01, 0.91986707D-01, - + 0.91986707D-01, 0.91930065D-01, 0.90248427D+00, 0.43270681D-01/ - DATA ((CALCPI(I,K,8 ),I=1,8), K=19,20) / - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,9 ),I=1,8), K=1,9) / - + 0.33238608D+00, 0.33238608D+00, 0.70040595D-01, 0.70040595D-01, - + 0.70040595D-01, 0.70040595D-01, 0.66031793D+00, 0.17347235D-17, - + 0.33271345D+00, 0.33271345D+00, 0.68816053D-01, 0.68818244D-01, - + 0.68818244D-01, 0.68816053D-01, 0.70473315D+00, 0.29681705D-02, - + 0.33270733D+00, 0.33270733D+00, 0.67648993D-01, 0.67656660D-01, - + 0.67656660D-01, 0.67648993D-01, 0.73875315D+00, 0.57814180D-02, - + 0.33234675D+00, 0.33234675D+00, 0.66510921D-01, 0.66526622D-01, - + 0.66526622D-01, 0.66510921D-01, 0.76312692D+00, 0.84221450D-02, - + 0.33161675D+00, 0.33161675D+00, 0.65380695D-01, 0.65406431D-01, - + 0.65406431D-01, 0.65380695D-01, 0.77857886D+00, 0.10877773D-01, - + 0.33050725D+00, 0.33050725D+00, 0.64241407D-01, 0.64278674D-01, - + 0.64278674D-01, 0.64241407D-01, 0.78592436D+00, 0.13139682D-01, - + 0.32901128D+00, 0.32901128D+00, 0.63079069D-01, 0.63128910D-01, - + 0.63128910D-01, 0.63079069D-01, 0.78598987D+00, 0.15201618D-01, - + 0.32712559D+00, 0.32712559D+00, 0.61882946D-01, 0.61946014D-01, - + 0.61946014D-01, 0.61882946D-01, 0.77961309D+00, 0.17060166D-01, - + 0.32485031D+00, 0.32485031D+00, 0.60645114D-01, 0.60721713D-01, - + 0.60721713D-01, 0.60645114D-01, 0.76762637D+00, 0.18714363D-01/ - DATA ((CALCPI(I,K,9 ),I=1,8), K=10,18) / - + 0.32218876D+00, 0.32218876D+00, 0.59360240D-01, 0.59450376D-01, - + 0.59450376D-01, 0.59360240D-01, 0.75084187D+00, 0.20165536D-01, - + 0.31914731D+00, 0.31914731D+00, 0.58025321D-01, 0.58128746D-01, - + 0.58128746D-01, 0.58025321D-01, 0.73004005D+00, 0.21417078D-01, - + 0.31573511D+00, 0.31573511D+00, 0.56639423D-01, 0.56755673D-01, - + 0.56755673D-01, 0.56639423D-01, 0.70596015D+00, 0.22474230D-01, - + 0.31196386D+00, 0.31196386D+00, 0.55203419D-01, 0.55331851D-01, - + 0.55331851D-01, 0.55203419D-01, 0.67929239D+00, 0.23343841D-01, - + 0.30784758D+00, 0.30784758D+00, 0.53719730D-01, 0.53859557D-01, - + 0.53859557D-01, 0.53719730D-01, 0.65067186D+00, 0.24034136D-01, - + 0.30340232D+00, 0.30340232D+00, 0.52192070D-01, 0.52342393D-01, - + 0.52342393D-01, 0.52192070D-01, 0.62067497D+00, 0.24554476D-01, - + 0.29864590D+00, 0.29864590D+00, 0.50625206D-01, 0.50785040D-01, - + 0.50785040D-01, 0.50625206D-01, 0.58981742D+00, 0.24915126D-01, - + 0.29359760D+00, 0.29359760D+00, 0.49024713D-01, 0.49193014D-01, - + 0.49193014D-01, 0.49024713D-01, 0.55855334D+00, 0.25127030D-01, - + 0.28827795D+00, 0.28827795D+00, 0.47396764D-01, 0.47572451D-01, - + 0.47572451D-01, 0.47396764D-01, 0.52727628D+00, 0.25201593D-01/ - DATA ((CALCPI(I,K,9 ),I=1,8), K=19,20) / - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,10),I=1,8), K=1,9) / - + 0.33311612D+00, 0.33311612D+00, 0.38900848D-01, 0.38900848D-01, - + 0.38900848D-01, 0.38900848D-01, 0.60555744D+00, 0.00000000D+00, - + 0.33199868D+00, 0.33199868D+00, 0.38440375D-01, 0.38454832D-01, - + 0.38454832D-01, 0.38440375D-01, 0.62458520D+00, 0.22866471D-02, - + 0.33043676D+00, 0.33043676D+00, 0.37969307D-01, 0.37997962D-01, - + 0.37997962D-01, 0.37969307D-01, 0.63520631D+00, 0.43898213D-02, - + 0.32843120D+00, 0.32843120D+00, 0.37472250D-01, 0.37514590D-01, - + 0.37514590D-01, 0.37472250D-01, 0.63841151D+00, 0.63055117D-02, - + 0.32598518D+00, 0.32598518D+00, 0.36938515D-01, 0.36993857D-01, - + 0.36993857D-01, 0.36938515D-01, 0.63506941D+00, 0.80320343D-02, - + 0.32310653D+00, 0.32310653D+00, 0.36361096D-01, 0.36428622D-01, - + 0.36428622D-01, 0.36361096D-01, 0.62607358D+00, 0.95709924D-02, - + 0.31980523D+00, 0.31980523D+00, 0.35734938D-01, 0.35813729D-01, - + 0.35813729D-01, 0.35734938D-01, 0.61228013D+00, 0.10925353D-01, - + 0.31609407D+00, 0.31609407D+00, 0.35057287D-01, 0.35146350D-01, - + 0.35146350D-01, 0.35057287D-01, 0.59450584D+00, 0.12099894D-01, - + 0.31198829D+00, 0.31198829D+00, 0.34327272D-01, 0.34425566D-01, - + 0.34425566D-01, 0.34327272D-01, 0.57351938D+00, 0.13100839D-01/ - DATA ((CALCPI(I,K,10),I=1,8), K=10,18) / - + 0.30750533D+00, 0.30750533D+00, 0.33545668D-01, 0.33652126D-01, - + 0.33652126D-01, 0.33545668D-01, 0.55003264D+00, 0.13935675D-01, - + 0.30266466D+00, 0.30266466D+00, 0.32714650D-01, 0.32828198D-01, - + 0.32828198D-01, 0.32714650D-01, 0.52469578D+00, 0.14612938D-01, - + 0.29748745D+00, 0.29748745D+00, 0.31837544D-01, 0.31957117D-01, - + 0.31957117D-01, 0.31837544D-01, 0.49809326D+00, 0.15142004D-01, - + 0.29199638D+00, 0.29199638D+00, 0.30918602D-01, 0.31043158D-01, - + 0.31043158D-01, 0.30918602D-01, 0.47074269D+00, 0.15532884D-01, - + 0.28621535D+00, 0.28621535D+00, 0.29962788D-01, 0.30091319D-01, - + 0.30091319D-01, 0.29962788D-01, 0.44309512D+00, 0.15796036D-01, - + 0.28016920D+00, 0.28016920D+00, 0.28975574D-01, 0.29107116D-01, - + 0.29107116D-01, 0.28975574D-01, 0.41553632D+00, 0.15942176D-01, - + 0.27388348D+00, 0.27388348D+00, 0.27962754D-01, 0.28096394D-01, - + 0.28096394D-01, 0.27962754D-01, 0.38838946D+00, 0.15982109D-01, - + 0.26738416D+00, 0.26738416D+00, 0.26930282D-01, 0.27065163D-01, - + 0.27065163D-01, 0.26930282D-01, 0.36191917D+00, 0.15926575D-01, - + 0.26069742D+00, 0.26069742D+00, 0.25884124D-01, 0.26019451D-01, - + 0.26019451D-01, 0.25884124D-01, 0.33633600D+00, 0.15786113D-01/ - DATA ((CALCPI(I,K,10),I=1,8), K=19,20) / - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,11),I=1,8), K=1,9) / - + 0.33679579D+00, 0.33679579D+00, 0.20800817D-01, 0.20800817D-01, - + 0.20800817D-01, 0.20800817D-01, 0.55224311D+00, 0.11926224D-17, - + 0.33387951D+00, 0.33387951D+00, 0.20911204D-01, 0.20925082D-01, - + 0.20925082D-01, 0.20911204D-01, 0.55443659D+00, 0.17809761D-02, - + 0.33046999D+00, 0.33046999D+00, 0.20958273D-01, 0.20984584D-01, - + 0.20984584D-01, 0.20958273D-01, 0.55013117D+00, 0.33754846D-02, - + 0.32658729D+00, 0.32658729D+00, 0.20937303D-01, 0.20974641D-01, - + 0.20974641D-01, 0.20937303D-01, 0.54040051D+00, 0.47884497D-02, - + 0.32225035D+00, 0.32225035D+00, 0.20845861D-01, 0.20892872D-01, - + 0.20892872D-01, 0.20845861D-01, 0.52613566D+00, 0.60250537D-02, - + 0.31748196D+00, 0.31748196D+00, 0.20684374D-01, 0.20739765D-01, - + 0.20739765D-01, 0.20684374D-01, 0.50820044D+00, 0.70929073D-02, - + 0.31230602D+00, 0.31230602D+00, 0.20454312D-01, 0.20516855D-01, - + 0.20516855D-01, 0.20454312D-01, 0.48738973D+00, 0.80001390D-02, - + 0.30674818D+00, 0.30674818D+00, 0.20158532D-01, 0.20227071D-01, - + 0.20227071D-01, 0.20158532D-01, 0.46442709D+00, 0.87557943D-02, - + 0.30083547D+00, 0.30083547D+00, 0.19800945D-01, 0.19874398D-01, - + 0.19874398D-01, 0.19800945D-01, 0.43996386D+00, 0.93695568D-02/ - DATA ((CALCPI(I,K,11),I=1,8), K=10,18) / - + 0.29459605D+00, 0.29459605D+00, 0.19386288D-01, 0.19463650D-01, - + 0.19463650D-01, 0.19386288D-01, 0.41457506D+00, 0.98515605D-02, - + 0.28805902D+00, 0.28805902D+00, 0.18919937D-01, 0.19000281D-01, - + 0.19000281D-01, 0.18919937D-01, 0.38876043D+00, 0.10212238D-01, - + 0.28125414D+00, 0.28125414D+00, 0.18407717D-01, 0.18490192D-01, - + 0.18490192D-01, 0.18407717D-01, 0.36294641D+00, 0.10462158D-01, - + 0.27421161D+00, 0.27421161D+00, 0.17855725D-01, 0.17939559D-01, - + 0.17939559D-01, 0.17855725D-01, 0.33748903D+00, 0.10611876D-01, - + 0.26696179D+00, 0.26696179D+00, 0.17270174D-01, 0.17354669D-01, - + 0.17354669D-01, 0.17270174D-01, 0.31267814D+00, 0.10671794D-01, - + 0.25953497D+00, 0.25953497D+00, 0.16657260D-01, 0.16741792D-01, - + 0.16741792D-01, 0.16657260D-01, 0.28874279D+00, 0.10652050D-01, - + 0.25196117D+00, 0.25196117D+00, 0.16023043D-01, 0.16107059D-01, - + 0.16107059D-01, 0.16023043D-01, 0.26585708D+00, 0.10562412D-01, - + 0.24426989D+00, 0.24426989D+00, 0.15373345D-01, 0.15456358D-01, - + 0.15456358D-01, 0.15373345D-01, 0.24414596D+00, 0.10412191D-01, - + 0.23648993D+00, 0.23648993D+00, 0.14713672D-01, 0.14795259D-01, - + 0.14795259D-01, 0.14713672D-01, 0.22369156D+00, 0.10210171D-01/ - DATA ((CALCPI(I,K,11),I=1,8), K=19,20) / - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,12),I=1,8), K=1,9) / - + 0.34023086D+00, 0.34023086D+00, 0.10652145D-01, 0.10652145D-01, - + 0.10652145D-01, 0.10652145D-01, 0.50042938D+00, 0.11926224D-17, - + 0.33524297D+00, 0.33524297D+00, 0.11089214D-01, 0.11098860D-01, - + 0.11098860D-01, 0.11089214D-01, 0.49097427D+00, 0.13887080D-02, - + 0.32977284D+00, 0.32977284D+00, 0.11429239D-01, 0.11447161D-01, - + 0.11447161D-01, 0.11429239D-01, 0.47678612D+00, 0.26008151D-02, - + 0.32385638D+00, 0.32385638D+00, 0.11675725D-01, 0.11700680D-01, - + 0.11700680D-01, 0.11675725D-01, 0.45892565D+00, 0.36469582D-02, - + 0.31752530D+00, 0.31752530D+00, 0.11832429D-01, 0.11863277D-01, - + 0.11863277D-01, 0.11832429D-01, 0.43823545D+00, 0.45364925D-02, - + 0.31081405D+00, 0.31081405D+00, 0.11905057D-01, 0.11940763D-01, - + 0.11940763D-01, 0.11905057D-01, 0.41549055D+00, 0.52803396D-02, - + 0.30375715D+00, 0.30375715D+00, 0.11899601D-01, 0.11939226D-01, - + 0.11939226D-01, 0.11899601D-01, 0.39137888D+00, 0.58892910D-02, - + 0.29638969D+00, 0.29638969D+00, 0.11822615D-01, 0.11865315D-01, - + 0.11865315D-01, 0.11822615D-01, 0.36649770D+00, 0.63743199D-02, - + 0.28874705D+00, 0.28874705D+00, 0.11681008D-01, 0.11726024D-01, - + 0.11726024D-01, 0.11681008D-01, 0.34135979D+00, 0.67464134D-02/ - DATA ((CALCPI(I,K,12),I=1,8), K=10,18) / - + 0.28086465D+00, 0.28086465D+00, 0.11481862D-01, 0.11528519D-01, - + 0.11528519D-01, 0.11481862D-01, 0.31639487D+00, 0.70164284D-02, - + 0.27277776D+00, 0.27277776D+00, 0.11232308D-01, 0.11280009D-01, - + 0.11280009D-01, 0.11232308D-01, 0.29195484D+00, 0.71949907D-02, - + 0.26452126D+00, 0.26452126D+00, 0.10939389D-01, 0.10987608D-01, - + 0.10987608D-01, 0.10939389D-01, 0.26831943D+00, 0.72923849D-02, - + 0.25612944D+00, 0.25612944D+00, 0.10609956D-01, 0.10658235D-01, - + 0.10658235D-01, 0.10609956D-01, 0.24570283D+00, 0.73184702D-02, - + 0.24763579D+00, 0.24763579D+00, 0.10250575D-01, 0.10298520D-01, - + 0.10298520D-01, 0.10250575D-01, 0.22426099D+00, 0.72826065D-02, - + 0.23907277D+00, 0.23907277D+00, 0.98674524D-02, 0.99147235D-02, - + 0.99147235D-02, 0.98674524D-02, 0.20409865D+00, 0.71935922D-02, - + 0.23047167D+00, 0.23047167D+00, 0.94663715D-02, 0.95126842D-02, - + 0.95126842D-02, 0.94663715D-02, 0.18527663D+00, 0.70596202D-02, - + 0.22186243D+00, 0.22186243D+00, 0.90526570D-02, 0.90977743D-02, - + 0.90977743D-02, 0.90526570D-02, 0.16781899D+00, 0.68882501D-02, - + 0.21327349D+00, 0.21327349D+00, 0.86311451D-02, 0.86748738D-02, - + 0.86748738D-02, 0.86311451D-02, 0.15171962D+00, 0.66863917D-02/ - DATA ((CALCPI(I,K,12),I=1,8), K=19,20) / - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,13),I=1,8), K=1,9) / - + 0.34136380D+00, 0.34136380D+00, 0.51909346D-02, 0.51909346D-02, - + 0.51909346D-02, 0.51909346D-02, 0.45017673D+00, 0.22768246D-17, - + 0.33416865D+00, 0.33416865D+00, 0.57600044D-02, 0.57660629D-02, - + 0.57660629D-02, 0.57600044D-02, 0.43258651D+00, 0.10774729D-02, - + 0.32655596D+00, 0.32655596D+00, 0.62162263D-02, 0.62273209D-02, - + 0.62273209D-02, 0.62162263D-02, 0.41187469D+00, 0.19948565D-02, - + 0.31857365D+00, 0.31857365D+00, 0.65688772D-02, 0.65841124D-02, - + 0.65841124D-02, 0.65688772D-02, 0.38902390D+00, 0.27661617D-02, - + 0.31026278D+00, 0.31026278D+00, 0.68259178D-02, 0.68444969D-02, - + 0.68444969D-02, 0.68259178D-02, 0.36478314D+00, 0.34030430D-02, - + 0.30166582D+00, 0.30166582D+00, 0.69963705D-02, 0.70175898D-02, - + 0.70175898D-02, 0.69963705D-02, 0.33980354D+00, 0.39179169D-02, - + 0.29282433D+00, 0.29282433D+00, 0.70889405D-02, 0.71121810D-02, - + 0.71121810D-02, 0.70889405D-02, 0.31464086D+00, 0.43225932D-02, - + 0.28377922D+00, 0.28377922D+00, 0.71122362D-02, 0.71369563D-02, - + 0.71369563D-02, 0.71122362D-02, 0.28975167D+00, 0.46285081D-02, - + 0.27457061D+00, 0.27457061D+00, 0.70746759D-02, 0.71004044D-02, - + 0.71004044D-02, 0.70746759D-02, 0.26550532D+00, 0.48466660D-02/ - DATA ((CALCPI(I,K,13),I=1,8), K=10,18) / - + 0.26523761D+00, 0.26523761D+00, 0.69843579D-02, 0.70106879D-02, - + 0.70106879D-02, 0.69843579D-02, 0.24218958D+00, 0.49875327D-02, - + 0.25581813D+00, 0.25581813D+00, 0.68489998D-02, 0.68755825D-02, - + 0.68755825D-02, 0.68489998D-02, 0.22001916D+00, 0.50609957D-02, - + 0.24634871D+00, 0.24634871D+00, 0.66758724D-02, 0.67024114D-02, - + 0.67024114D-02, 0.66758724D-02, 0.19914449D+00, 0.50763155D-02, - + 0.23686435D+00, 0.23686435D+00, 0.64717478D-02, 0.64979942D-02, - + 0.64979942D-02, 0.64717478D-02, 0.17966044D+00, 0.50420907D-02, - + 0.22739834D+00, 0.22739834D+00, 0.62428647D-02, 0.62686119D-02, - + 0.62686119D-02, 0.62428647D-02, 0.16161485D+00, 0.49662355D-02, - + 0.21798215D+00, 0.21798215D+00, 0.59949063D-02, 0.60199857D-02, - + 0.60199857D-02, 0.59949063D-02, 0.14501675D+00, 0.48559714D-02, - + 0.20864529D+00, 0.20864529D+00, 0.57329913D-02, 0.57572681D-02, - + 0.57572681D-02, 0.57329913D-02, 0.12984402D+00, 0.47178280D-02, - + 0.19941523D+00, 0.19941523D+00, 0.54616754D-02, 0.54850443D-02, - + 0.54850443D-02, 0.54616754D-02, 0.11605032D+00, 0.45576550D-02, - + 0.19031730D+00, 0.19031730D+00, 0.51849640D-02, 0.52073461D-02, - + 0.52073461D-02, 0.51849640D-02, 0.10357124D+00, 0.43806436D-02/ - DATA ((CALCPI(I,K,13),I=1,8), K=19,20) / - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,14),I=1,8), K=1,9) / - + 0.33900266D+00, 0.33900266D+00, 0.23881052D-02, 0.23881052D-02, - + 0.23881052D-02, 0.23881052D-02, 0.40155292D+00,-0.32526065D-18, - + 0.32959639D+00, 0.32959639D+00, 0.29617777D-02, 0.29653596D-02, - + 0.29653596D-02, 0.29617777D-02, 0.37840030D+00, 0.82753446D-03, - + 0.31988369D+00, 0.31988369D+00, 0.34210360D-02, 0.34275121D-02, - + 0.34275121D-02, 0.34210360D-02, 0.35358028D+00, 0.15147825D-02, - + 0.30992012D+00, 0.30992012D+00, 0.37786527D-02, 0.37874368D-02, - + 0.37874368D-02, 0.37786527D-02, 0.32795027D+00, 0.20773718D-02, - + 0.29975239D+00, 0.29975239D+00, 0.40450097D-02, 0.40555927D-02, - + 0.40555927D-02, 0.40450097D-02, 0.30213522D+00, 0.25278964D-02, - + 0.28942713D+00, 0.28942713D+00, 0.42307479D-02, 0.42426905D-02, - + 0.42426905D-02, 0.42307479D-02, 0.27664134D+00, 0.28790028D-02, - + 0.27898913D+00, 0.27898913D+00, 0.43457710D-02, 0.43586966D-02, - + 0.43586966D-02, 0.43457710D-02, 0.25187961D+00, 0.31424171D-02, - + 0.26848139D+00, 0.26848139D+00, 0.43993990D-02, 0.44129861D-02, - + 0.44129861D-02, 0.43993990D-02, 0.22816231D+00, 0.33291023D-02, - + 0.25794510D+00, 0.25794510D+00, 0.44003751D-02, 0.44143518D-02, - + 0.44143518D-02, 0.44003751D-02, 0.20571901D+00, 0.34492901D-02/ - DATA ((CALCPI(I,K,14),I=1,8), K=10,18) / - + 0.24741943D+00, 0.24741943D+00, 0.43567934D-02, 0.43709312D-02, - + 0.43709312D-02, 0.43567934D-02, 0.18470551D+00, 0.35124233D-02, - + 0.23694143D+00, 0.23694143D+00, 0.42760971D-02, 0.42902064D-02, - + 0.42902064D-02, 0.42760971D-02, 0.16521479D+00, 0.35271687D-02, - + 0.22654590D+00, 0.22654590D+00, 0.41650665D-02, 0.41789914D-02, - + 0.41789914D-02, 0.41650665D-02, 0.14728752D+00, 0.35014166D-02, - + 0.21626529D+00, 0.21626529D+00, 0.40298181D-02, 0.40434327D-02, - + 0.40434327D-02, 0.40298181D-02, 0.13092160D+00, 0.34422916D-02, - + 0.20612961D+00, 0.20612961D+00, 0.38758163D-02, 0.38890206D-02, - + 0.38890206D-02, 0.38758163D-02, 0.11608121D+00, 0.33561728D-02, - + 0.19616637D+00, 0.19616637D+00, 0.37078918D-02, 0.37206085D-02, - + 0.37206085D-02, 0.37078918D-02, 0.10270492D+00, 0.32487212D-02, - + 0.18640053D+00, 0.18640053D+00, 0.35302685D-02, 0.35424400D-02, - + 0.35424400D-02, 0.35302685D-02, 0.90712788D-01, 0.31249140D-02, - + 0.17685449D+00, 0.17685449D+00, 0.33465970D-02, 0.33581822D-02, - + 0.33581822D-02, 0.33465970D-02, 0.80012495D-01, 0.29890844D-02, - + 0.16754808D+00, 0.16754808D+00, 0.31599922D-02, 0.31709646D-02, - + 0.31709646D-02, 0.31599922D-02, 0.70504500D-01, 0.28449661D-02/ - DATA ((CALCPI(I,K,14),I=1,8), K=19,20) / - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,15),I=1,8), K=1,9) / - + 0.33254679D+00, 0.33254679D+00, 0.10268437D-02, 0.10268437D-02, - + 0.10268437D-02, 0.10268437D-02, 0.35463426D+00, 0.19515639D-17, - + 0.32103718D+00, 0.32103718D+00, 0.15350511D-02, 0.15370048D-02, - + 0.15370048D-02, 0.15350511D-02, 0.32791421D+00, 0.62585318D-03, - + 0.30937097D+00, 0.30937097D+00, 0.19371143D-02, 0.19406061D-02, - + 0.19406061D-02, 0.19371143D-02, 0.30082059D+00, 0.11325320D-02, - + 0.29760669D+00, 0.29760669D+00, 0.22473642D-02, 0.22520477D-02, - + 0.22520477D-02, 0.22473642D-02, 0.27405113D+00, 0.15359343D-02, - + 0.28579277D+00, 0.28579277D+00, 0.24771113D-02, 0.24826921D-02, - + 0.24826921D-02, 0.24771113D-02, 0.24808592D+00, 0.18485763D-02, - + 0.27397596D+00, 0.27397596D+00, 0.26372738D-02, 0.26435029D-02, - + 0.26435029D-02, 0.26372738D-02, 0.22327531D+00, 0.20824543D-02, - + 0.26220040D+00, 0.26220040D+00, 0.27377875D-02, 0.27444559D-02, - + 0.27444559D-02, 0.27377875D-02, 0.19988208D+00, 0.22484764D-02, - + 0.25050737D+00, 0.25050737D+00, 0.27876780D-02, 0.27946119D-02, - + 0.27946119D-02, 0.27876780D-02, 0.17807768D+00, 0.23565372D-02, - + 0.23893543D+00, 0.23893543D+00, 0.27951652D-02, 0.28022210D-02, - + 0.28022210D-02, 0.27951652D-02, 0.15796116D+00, 0.24156353D-02/ - DATA ((CALCPI(I,K,15),I=1,8), K=10,18) / - + 0.22752029D+00, 0.22752029D+00, 0.27676405D-02, 0.27747007D-02, - + 0.27747007D-02, 0.27676405D-02, 0.13957089D+00, 0.24338611D-02, - + 0.21629474D+00, 0.21629474D+00, 0.27117073D-02, 0.27186776D-02, - + 0.27186776D-02, 0.27117073D-02, 0.12289610D+00, 0.24184458D-02, - + 0.20528864D+00, 0.20528864D+00, 0.26332162D-02, 0.26400217D-02, - + 0.26400217D-02, 0.26332162D-02, 0.10788808D+00, 0.23758034D-02, - + 0.19452886D+00, 0.19452886D+00, 0.25373016D-02, 0.25438844D-02, - + 0.25438844D-02, 0.25373016D-02, 0.94469725D-01, 0.23115748D-02, - + 0.18403930D+00, 0.18403930D+00, 0.24284260D-02, 0.24347423D-02, - + 0.24347423D-02, 0.24284260D-02, 0.82543964D-01, 0.22306770D-02, - + 0.17384087D+00, 0.17384087D+00, 0.23104266D-02, 0.23164449D-02, - + 0.23164449D-02, 0.23104266D-02, 0.72000989D-01, 0.21373554D-02, - + 0.16395161D+00, 0.16395161D+00, 0.21865656D-02, 0.21922646D-02, - + 0.21922646D-02, 0.21865656D-02, 0.62724181D-01, 0.20352383D-02, - + 0.15438665D+00, 0.15438665D+00, 0.20595809D-02, 0.20649478D-02, - + 0.20649478D-02, 0.20595809D-02, 0.54594861D-01, 0.19273921D-02, - + 0.14515837D+00, 0.14515837D+00, 0.19317383D-02, 0.19367675D-02, - + 0.19367675D-02, 0.19317383D-02, 0.47496076D-01, 0.18163768D-02/ - DATA ((CALCPI(I,K,15),I=1,8), K=19,20) / - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,16),I=1,8), K=1,9) / - + 0.32176997D+00, 0.32176997D+00, 0.40737579D-03, 0.40737579D-03, - + 0.40737579D-03, 0.40737579D-03, 0.30950802D+00,-0.30493186D-18, - + 0.30835580D+00, 0.30835580D+00, 0.82070349D-03, 0.82168504D-03, - + 0.82168504D-03, 0.82070349D-03, 0.28083323D+00, 0.46338427D-03, - + 0.29496614D+00, 0.29496614D+00, 0.11419643D-02, 0.11436993D-02, - + 0.11436993D-02, 0.11419643D-02, 0.25291374D+00, 0.82871451D-03, - + 0.28165761D+00, 0.28165761D+00, 0.13855121D-02, 0.13878144D-02, - + 0.13878144D-02, 0.13855121D-02, 0.22626249D+00, 0.11111238D-02, - + 0.26847618D+00, 0.26847618D+00, 0.15624583D-02, 0.15651727D-02, - + 0.15651727D-02, 0.15624583D-02, 0.20120250D+00, 0.13223185D-02, - + 0.25546461D+00, 0.25546461D+00, 0.16830218D-02, 0.16860197D-02, - + 0.16860197D-02, 0.16830218D-02, 0.17792501D+00, 0.14730419D-02, - + 0.24266237D+00, 0.24266237D+00, 0.17563436D-02, 0.17595194D-02, - + 0.17595194D-02, 0.17563436D-02, 0.15654724D+00, 0.15729050D-02, - + 0.23010523D+00, 0.23010523D+00, 0.17904961D-02, 0.17937637D-02, - + 0.17937637D-02, 0.17904961D-02, 0.13710931D+00, 0.16303955D-02, - + 0.21782553D+00, 0.21782553D+00, 0.17926444D-02, 0.17959346D-02, - + 0.17959346D-02, 0.17926444D-02, 0.11959379D+00, 0.16530474D-02/ - DATA ((CALCPI(I,K,16),I=1,8), K=10,18) / - + 0.20585208D+00, 0.20585208D+00, 0.17690681D-02, 0.17723261D-02, - + 0.17723261D-02, 0.17690681D-02, 0.10393872D+00, 0.16474683D-02, - + 0.19421024D+00, 0.19421024D+00, 0.17252349D-02, 0.17284179D-02, - + 0.17284179D-02, 0.17252349D-02, 0.90049126D-01, 0.16194169D-02, - + 0.18292194D+00, 0.18292194D+00, 0.16658653D-02, 0.16689407D-02, - + 0.16689407D-02, 0.16658653D-02, 0.77807700D-01, 0.15738726D-02, - + 0.17200575D+00, 0.17200575D+00, 0.15949942D-02, 0.15979379D-02, - + 0.15979379D-02, 0.15949942D-02, 0.67083270D-01, 0.15151004D-02, - + 0.16147698D+00, 0.16147698D+00, 0.15160351D-02, 0.15188303D-02, - + 0.15188303D-02, 0.15160351D-02, 0.57737942D-01, 0.14467182D-02, - + 0.15134775D+00, 0.15134775D+00, 0.14318425D-02, 0.14344781D-02, - + 0.14344781D-02, 0.14318425D-02, 0.49632713D-01, 0.13717621D-02, - + 0.14162717D+00, 0.14162717D+00, 0.13447724D-02, 0.13472423D-02, - + 0.13472423D-02, 0.13447724D-02, 0.42631818D-01, 0.12927493D-02, - + 0.13232145D+00, 0.13232145D+00, 0.12567414D-02, 0.12590432D-02, - + 0.12590432D-02, 0.12567414D-02, 0.36605948D-01, 0.12117391D-02, - + 0.12343408D+00, 0.12343408D+00, 0.11692815D-02, 0.11714161D-02, - + 0.11714161D-02, 0.11692815D-02, 0.31434284D-01, 0.11303904D-02/ - DATA ((CALCPI(I,K,16),I=1,8), K=19,20) / - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,17),I=1,8), K=1,9) / - + 0.30666522D+00, 0.30666522D+00, 0.14660455D-03, 0.14660455D-03, - + 0.14660455D-03, 0.14660455D-03, 0.26627487D+00, 0.00000000D+00, - + 0.29162048D+00, 0.29162048D+00, 0.46084555D-03, 0.46129484D-03, - + 0.46129484D-03, 0.46084555D-03, 0.23698931D+00, 0.33349774D-03, - + 0.27680572D+00, 0.27680572D+00, 0.69973234D-03, 0.70051788D-03, - + 0.70051788D-03, 0.69973234D-03, 0.20941648D+00, 0.58916459D-03, - + 0.26227037D+00, 0.26227037D+00, 0.87652031D-03, 0.87755172D-03, - + 0.87755172D-03, 0.87652031D-03, 0.18386799D+00, 0.78060308D-03, - + 0.24805358D+00, 0.24805358D+00, 0.10013164D-02, 0.10025198D-02, - + 0.10025198D-02, 0.10013164D-02, 0.16050388D+00, 0.91818310D-03, - + 0.23418982D+00, 0.23418982D+00, 0.10830110D-02, 0.10843263D-02, - + 0.10843263D-02, 0.10830110D-02, 0.13935998D+00, 0.10110233D-02, - + 0.22070989D+00, 0.22070989D+00, 0.11294484D-02, 0.11308274D-02, - + 0.11308274D-02, 0.11294484D-02, 0.12041707D+00, 0.10671712D-02, - + 0.20764028D+00, 0.20764028D+00, 0.11473733D-02, 0.11487776D-02, - + 0.11487776D-02, 0.11473733D-02, 0.10359781D+00, 0.10935493D-02, - + 0.19500357D+00, 0.19500357D+00, 0.11426309D-02, 0.11440303D-02, - + 0.11440303D-02, 0.11426309D-02, 0.88785455D-01, 0.10961590D-02/ - DATA ((CALCPI(I,K,17),I=1,8), K=10,18) / - + 0.18281847D+00, 0.18281847D+00, 0.11202227D-02, 0.11215942D-02, - + 0.11215942D-02, 0.11202227D-02, 0.75837338D-01, 0.10801391D-02, - + 0.17109992D+00, 0.17109992D+00, 0.10843932D-02, 0.10857193D-02, - + 0.10857193D-02, 0.10843932D-02, 0.64594818D-01, 0.10498550D-02, - + 0.15985929D+00, 0.15985929D+00, 0.10387136D-02, 0.10399817D-02, - + 0.10399817D-02, 0.10387136D-02, 0.54892435D-01, 0.10089842D-02, - + 0.14910448D+00, 0.14910448D+00, 0.98615555D-03, 0.98735689D-03, - + 0.98735689D-03, 0.98615555D-03, 0.46564629D-01, 0.96059177D-03, - + 0.13884016D+00, 0.13884016D+00, 0.92916273D-03, 0.93029172D-03, - + 0.93029172D-03, 0.92916273D-03, 0.39450894D-01, 0.90720346D-03, - + 0.12906792D+00, 0.12906792D+00, 0.86971779D-03, 0.87077138D-03, - + 0.87077138D-03, 0.86971779D-03, 0.33399614D-01, 0.85087411D-03, - + 0.11978651D+00, 0.11978651D+00, 0.80940421D-03, 0.81038137D-03, - + 0.81038137D-03, 0.80940421D-03, 0.28270305D-01, 0.79325052D-03, - + 0.11099203D+00, 0.11099203D+00, 0.74946350D-03, 0.75036480D-03, - + 0.75036480D-03, 0.74946350D-03, 0.23934948D-01, 0.73562974D-03, - + 0.10267820D+00, 0.10267820D+00, 0.69084749D-03, 0.69167470D-03, - + 0.69167470D-03, 0.69084749D-03, 0.20278901D-01, 0.67901228D-03/ - DATA ((CALCPI(I,K,17),I=1,8), K=19,20) / - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,18),I=1,8), K=1,9) / - + 0.28734139D+00, 0.28734139D+00, 0.46770052D-04, 0.46770052D-04, - + 0.46770052D-04, 0.46770052D-04, 0.22505275D+00,-0.30704944D-18, - + 0.27100656D+00, 0.27100656D+00, 0.27133627D-03, 0.27152066D-03, - + 0.27152066D-03, 0.27133627D-03, 0.19630108D+00, 0.23112086D-03, - + 0.25512465D+00, 0.25512465D+00, 0.43763189D-03, 0.43795093D-03, - + 0.43795093D-03, 0.43763189D-03, 0.17003963D+00, 0.40306695D-03, - + 0.23973226D+00, 0.23973226D+00, 0.55705926D-03, 0.55747395D-03, - + 0.55747395D-03, 0.55705926D-03, 0.14636982D+00, 0.52737673D-03, - + 0.22485705D+00, 0.22485705D+00, 0.63822452D-03, 0.63870357D-03, - + 0.63870357D-03, 0.63822452D-03, 0.12529003D+00, 0.61275852D-03, - + 0.21052083D+00, 0.21052083D+00, 0.68834581D-03, 0.68886420D-03, - + 0.68886420D-03, 0.68834581D-03, 0.10669065D+00, 0.66651780D-03, - + 0.19674164D+00, 0.19674164D+00, 0.71372079D-03, 0.71425884D-03, - + 0.71425884D-03, 0.71372079D-03, 0.90429831D-01, 0.69502936D-03, - + 0.18353298D+00, 0.18353298D+00, 0.71963153D-03, 0.72017396D-03, - + 0.72017396D-03, 0.71963153D-03, 0.76331198D-01, 0.70364208D-03, - + 0.17090433D+00, 0.17090433D+00, 0.71054453D-03, 0.71107968D-03, - + 0.71107968D-03, 0.71054453D-03, 0.64199063D-01, 0.69688051D-03/ - DATA ((CALCPI(I,K,18),I=1,8), K=10,18) / - + 0.15886127D+00, 0.15886127D+00, 0.69018951D-03, 0.69070869D-03, - + 0.69070869D-03, 0.69018951D-03, 0.53831081D-01, 0.67852490D-03, - + 0.14740574D+00, 0.14740574D+00, 0.66165007D-03, 0.66214700D-03, - + 0.66214700D-03, 0.66165007D-03, 0.45025818D-01, 0.65170278D-03, - + 0.13653626D+00, 0.13653626D+00, 0.62745152D-03, 0.62792190D-03, - + 0.62792190D-03, 0.62745152D-03, 0.37589423D-01, 0.61897771D-03, - + 0.12624821D+00, 0.12624821D+00, 0.58963464D-03, 0.59007572D-03, - + 0.59007572D-03, 0.58963464D-03, 0.31340230D-01, 0.58242370D-03, - + 0.11653405D+00, 0.11653405D+00, 0.54982595D-03, 0.55023624D-03, - + 0.55023624D-03, 0.54982595D-03, 0.26111312D-01, 0.54369618D-03, - + 0.10738366D+00, 0.10738366D+00, 0.50930001D-03, 0.50967898D-03, - + 0.50967898D-03, 0.50930001D-03, 0.21751783D-01, 0.50409480D-03, - + 0.98784558D-01, 0.98784558D-01, 0.46903555D-03, 0.46938343D-03, - + 0.46938343D-03, 0.46903555D-03, 0.18127816D-01, 0.46462009D-03, - + 0.90722201D-01, 0.90722201D-01, 0.42976572D-03, 0.43008330D-03, - + 0.43008330D-03, 0.42976572D-03, 0.15122287D-01, 0.42602406D-03, - + 0.83180274D-01, 0.83180274D-01, 0.39202129D-03, 0.39230975D-03, - + 0.39230975D-03, 0.39202129D-03, 0.12633363D-01, 0.38885385D-03/ - DATA ((CALCPI(I,K,18),I=1,8), K=19,20) / - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,19),I=1,8), K=1,9) / - + 0.26395866D+00, 0.26395866D+00, 0.12806974D-04, 0.12806974D-04, - + 0.12806974D-04, 0.12806974D-04, 0.18598241D+00, 0.11536589D-17, - + 0.24673919D+00, 0.24673919D+00, 0.16309166D-03, 0.16316063D-03, - + 0.16316063D-03, 0.16309166D-03, 0.15875377D+00, 0.15219856D-03, - + 0.23020567D+00, 0.23020567D+00, 0.27106979D-03, 0.27118771D-03, - + 0.27118771D-03, 0.27106979D-03, 0.13460231D+00, 0.26180772D-03, - + 0.21437565D+00, 0.21437565D+00, 0.34585977D-03, 0.34601127D-03, - + 0.34601127D-03, 0.34585977D-03, 0.11341881D+00, 0.33799152D-03, - + 0.19926040D+00, 0.19926040D+00, 0.39430293D-03, 0.39447595D-03, - + 0.39447595D-03, 0.39430293D-03, 0.95047207D-01, 0.38762528D-03, - + 0.18486454D+00, 0.18486454D+00, 0.42184129D-03, 0.42202640D-03, - + 0.42202640D-03, 0.42184129D-03, 0.79249293D-01, 0.41617954D-03, - + 0.17118932D+00, 0.17118932D+00, 0.43318564D-03, 0.43337558D-03, - + 0.43337558D-03, 0.43318564D-03, 0.65780106D-01, 0.42839007D-03, - + 0.15823168D+00, 0.15823168D+00, 0.43218780D-03, 0.43237712D-03, - + 0.43237712D-03, 0.43218780D-03, 0.54386231D-01, 0.42813014D-03, - + 0.14598490D+00, 0.14598490D+00, 0.42202134D-03, 0.42220599D-03, - + 0.42220599D-03, 0.42202134D-03, 0.44815762D-01, 0.41859167D-03/ - DATA ((CALCPI(I,K,19),I=1,8), K=10,18) / - + 0.13443884D+00, 0.13443884D+00, 0.40527228D-03, 0.40544938D-03, - + 0.40544938D-03, 0.40527228D-03, 0.36828764D-01, 0.40237655D-03, - + 0.12358024D+00, 0.12358024D+00, 0.38401842D-03, 0.38418600D-03, - + 0.38418600D-03, 0.38401842D-03, 0.30202058D-01, 0.38157616D-03, - + 0.11339309D+00, 0.11339309D+00, 0.35991167D-03, 0.36006849D-03, - + 0.36006849D-03, 0.35991167D-03, 0.24732435D-01, 0.35785413D-03, - + 0.10385892D+00, 0.10385892D+00, 0.33424401D-03, 0.33438939D-03, - + 0.33438939D-03, 0.33424401D-03, 0.20237777D-01, 0.33251249D-03, - + 0.94957156D-01, 0.94957156D-01, 0.30800812D-03, 0.30814180D-03, - + 0.30814180D-03, 0.30800812D-03, 0.16558265D-01, 0.30655254D-03, - + 0.86665412D-01, 0.86665412D-01, 0.28195020D-03, 0.28207228D-03, - + 0.28207228D-03, 0.28195020D-03, 0.13555658D-01, 0.28072794D-03, - + 0.78959834D-01, 0.78959834D-01, 0.25661472D-03, 0.25672549D-03, - + 0.25672549D-03, 0.25661472D-03, 0.11110861D-01, 0.25558947D-03, - + 0.71815395D-01, 0.71815395D-01, 0.23238415D-03, 0.23248412D-03, - + 0.23248412D-03, 0.23238415D-03, 0.91230074D-02, 0.23152509D-03, - + 0.65206193D-01, 0.65206193D-01, 0.20951288D-03, 0.20960264D-03, - + 0.20960264D-03, 0.20951288D-03, 0.75082135D-02, 0.20879382D-03/ - DATA ((CALCPI(I,K,19),I=1,8), K=19,20) / - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,20),I=1,8), K=1,9) / - + 0.23669127D+00, 0.23669127D+00, 0.28711941D-05, 0.28711941D-05, - + 0.28711941D-05, 0.28711941D-05, 0.14923539D+00, 0.11132925D-17, - + 0.21906335D+00, 0.21906335D+00, 0.95742296D-04, 0.95763866D-04, - + 0.95763866D-04, 0.95742296D-04, 0.12439138D+00, 0.93328989D-04, - + 0.20235545D+00, 0.20235545D+00, 0.16022374D-03, 0.16026014D-03, - + 0.16026014D-03, 0.16022374D-03, 0.10300729D+00, 0.15819578D-03, - + 0.18655938D+00, 0.18655938D+00, 0.20299406D-03, 0.20304025D-03, - + 0.20304025D-03, 0.20299406D-03, 0.84772200D-01, 0.20129147D-03, - + 0.17166484D+00, 0.17166484D+00, 0.22907545D-03, 0.22912757D-03, - + 0.22912757D-03, 0.22907545D-03, 0.69390365D-01, 0.22764750D-03, - + 0.15765477D+00, 0.15765477D+00, 0.24221238D-03, 0.24226746D-03, - + 0.24226746D-03, 0.24221238D-03, 0.56518865D-01, 0.24101595D-03, - + 0.14450970D+00, 0.14450970D+00, 0.24563633D-03, 0.24569217D-03, - + 0.24569217D-03, 0.24563633D-03, 0.45834373D-01, 0.24463494D-03, - + 0.13220682D+00, 0.13220682D+00, 0.24192611D-03, 0.24198109D-03, - + 0.24198109D-03, 0.24192611D-03, 0.37031801D-01, 0.24108886D-03, - + 0.12072057D+00, 0.12072057D+00, 0.23314480D-03, 0.23319779D-03, - + 0.23319779D-03, 0.23314480D-03, 0.29828119D-01, 0.23244556D-03/ - DATA ((CALCPI(I,K,20),I=1,8), K=10,18) / - + 0.11002305D+00, 0.11002305D+00, 0.22093141D-03, 0.22098162D-03, - + 0.22098162D-03, 0.22093141D-03, 0.23969255D-01, 0.22034808D-03, - + 0.10008435D+00, 0.10008435D+00, 0.20656140D-03, 0.20660833D-03, - + 0.20660833D-03, 0.20656140D-03, 0.19229493D-01, 0.20607532D-03, - + 0.90872956D-01, 0.90872956D-01, 0.19101519D-03, 0.19105859D-03, - + 0.19105859D-03, 0.19101519D-03, 0.15413119D-01, 0.19061061D-03, - + 0.82356092D-01, 0.82356092D-01, 0.17503155D-03, 0.17507129D-03, - + 0.17507129D-03, 0.17503155D-03, 0.12353238D-01, 0.17469519D-03, - + 0.74500077D-01, 0.74500077D-01, 0.15915224D-03, 0.15918834D-03, - + 0.15918834D-03, 0.15915224D-03, 0.99074948D-02, 0.15887290D-03, - + 0.67270643D-01, 0.67270643D-01, 0.14376248D-03, 0.14379504D-03, - + 0.14379504D-03, 0.14376248D-03, 0.79568139D-02, 0.14353077D-03, - + 0.60633259D-01, 0.60633259D-01, 0.12912489D-03, 0.12915408D-03, - + 0.12915408D-03, 0.12912489D-03, 0.64039421D-02, 0.12893290D-03, - + 0.54553407D-01, 0.54553407D-01, 0.11540590D-03, 0.11543192D-03, - + 0.11543192D-03, 0.11540590D-03, 0.51687923D-02, 0.11524699D-03, - + 0.48996851D-01, 0.48996851D-01, 0.10269847D-03, 0.10272155D-03, - + 0.10272155D-03, 0.10269847D-03, 0.41856346D-02, 0.10256709D-03/ - DATA ((CALCPI(I,K,20),I=1,8), K=19,20) / - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,21),I=1,8), K=1,9) / - + 0.20570850D+00, 0.20570850D+00, 0.48978368D-06, 0.48978368D-06, - + 0.48978368D-06, 0.48978368D-06, 0.11502730D+00,-0.42248415D-18, - + 0.18823309D+00, 0.18823309D+00, 0.51928064D-04, 0.51933292D-04, - + 0.51933292D-04, 0.51928064D-04, 0.93318280D-01, 0.51521842D-04, - + 0.17190066D+00, 0.17190066D+00, 0.86309571D-04, 0.86318273D-04, - + 0.86318273D-04, 0.86309571D-04, 0.75230196D-01, 0.85972687D-04, - + 0.15667015D+00, 0.15667015D+00, 0.10796120D-03, 0.10797209D-03, - + 0.10797209D-03, 0.10796120D-03, 0.60271024D-01, 0.10768207D-03, - + 0.14250440D+00, 0.14250440D+00, 0.12019981D-03, 0.12021194D-03, - + 0.12021194D-03, 0.12019981D-03, 0.48029010D-01, 0.11996879D-03, - + 0.12936043D+00, 0.12936043D+00, 0.12529323D-03, 0.12530589D-03, - + 0.12530589D-03, 0.12529323D-03, 0.38087955D-01, 0.12510223D-03, - + 0.11719466D+00, 0.11719466D+00, 0.12521077D-03, 0.12522344D-03, - + 0.12522344D-03, 0.12521077D-03, 0.30076498D-01, 0.12505303D-03, - + 0.10596194D+00, 0.10596194D+00, 0.12149382D-03, 0.12150615D-03, - + 0.12150615D-03, 0.12149382D-03, 0.23668193D-01, 0.12136369D-03, - + 0.95616090D-01, 0.95616090D-01, 0.11533162D-03, 0.11534335D-03, - + 0.11534335D-03, 0.11533162D-03, 0.18573882D-01, 0.11522439D-03/ - DATA ((CALCPI(I,K,21),I=1,8), K=10,18) / - + 0.86110368D-01, 0.86110368D-01, 0.10764370D-03, 0.10765467D-03, - + 0.10765467D-03, 0.10764370D-03, 0.14547257D-01, 0.10755544D-03, - + 0.77397783D-01, 0.77397783D-01, 0.99122127D-04, 0.99132248D-04, - + 0.99132248D-04, 0.99122127D-04, 0.11381933D-01, 0.99049573D-04, - + 0.69431467D-01, 0.69431467D-01, 0.90277093D-04, 0.90286330D-04, - + 0.90286330D-04, 0.90277093D-04, 0.89038321D-02, 0.90217518D-04, - + 0.62164993D-01, 0.62164993D-01, 0.81474568D-04, 0.81482918D-04, - + 0.81482918D-04, 0.81474568D-04, 0.69694791D-02, 0.81425707D-04, - + 0.55552672D-01, 0.55552672D-01, 0.72968726D-04, 0.72976215D-04, - + 0.72976215D-04, 0.72968726D-04, 0.54642984D-02, 0.72928701D-04, - + 0.49549820D-01, 0.49549820D-01, 0.64926352D-04, 0.64933021D-04, - + 0.64933021D-04, 0.64926352D-04, 0.42953903D-02, 0.64893603D-04, - + 0.44112993D-01, 0.44112993D-01, 0.57447545D-04, 0.57453446D-04, - + 0.57453446D-04, 0.57447545D-04, 0.33874173D-02, 0.57420781D-04, - + 0.39200192D-01, 0.39200192D-01, 0.50584221D-04, 0.50589413D-04, - + 0.50589413D-04, 0.50584221D-04, 0.26818876D-02, 0.50562372D-04, - + 0.34771031D-01, 0.34771031D-01, 0.44352940D-04, 0.44357486D-04, - + 0.44357486D-04, 0.44352940D-04, 0.21333837D-02, 0.44335125D-04/ - DATA ((CALCPI(I,K,21),I=1,8), K=19,20) / - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,22),I=1,8), K=1,9) / - + 0.17116626D+00, 0.17116626D+00, 0.56231149D-07, 0.56231149D-07, - + 0.56231149D-07, 0.56231149D-07, 0.83639872D-01, 0.76929286D-18, - + 0.15451487D+00, 0.15451487D+00, 0.24052761D-04, 0.24053650D-04, - + 0.24053650D-04, 0.24052761D-04, 0.65710784D-01, 0.24006843D-04, - + 0.13920030D+00, 0.13920030D+00, 0.39474321D-04, 0.39475779D-04, - + 0.39475779D-04, 0.39474321D-04, 0.51319235D-01, 0.39436821D-04, - + 0.12514136D+00, 0.12514136D+00, 0.48604732D-04, 0.48606532D-04, - + 0.48606532D-04, 0.48604732D-04, 0.39828486D-01, 0.48574135D-04, - + 0.11226909D+00, 0.11226909D+00, 0.53305228D-04, 0.53307205D-04, - + 0.53307205D-04, 0.53305228D-04, 0.30744208D-01, 0.53280294D-04, - + 0.10051127D+00, 0.10051127D+00, 0.54693175D-04, 0.54695209D-04, - + 0.54695209D-04, 0.54693175D-04, 0.23620324D-01, 0.54672877D-04, - + 0.89797814D-01, 0.89797814D-01, 0.53768172D-04, 0.53770179D-04, - + 0.53770179D-04, 0.53768172D-04, 0.18072063D-01, 0.53751666D-04, - + 0.80059998D-01, 0.80059998D-01, 0.51307172D-04, 0.51309096D-04, - + 0.51309096D-04, 0.51307172D-04, 0.13781706D-01, 0.51293766D-04, - + 0.71230720D-01, 0.71230720D-01, 0.47883546D-04, 0.47885351D-04, - + 0.47885351D-04, 0.47883546D-04, 0.10486468D-01, 0.47872670D-04/ - DATA ((CALCPI(I,K,22),I=1,8), K=10,18) / - + 0.63244892D-01, 0.63244892D-01, 0.43928693D-04, 0.43930358D-04, - + 0.43930358D-04, 0.43928693D-04, 0.79685257D-02, 0.43919881D-04, - + 0.56039652D-01, 0.56039652D-01, 0.39753609D-04, 0.39755124D-04, - + 0.39755124D-04, 0.39753609D-04, 0.60516870D-02, 0.39746478D-04, - + 0.49554577D-01, 0.49554577D-01, 0.35578482D-04, 0.35579846D-04, - + 0.35579846D-04, 0.35578482D-04, 0.45992228D-02, 0.35572719D-04, - + 0.43731867D-01, 0.43731867D-01, 0.31551726D-04, 0.31552941D-04, - + 0.31552941D-04, 0.31551726D-04, 0.35024657D-02, 0.31547074D-04, - + 0.38516480D-01, 0.38516480D-01, 0.27766366D-04, 0.27767441D-04, - + 0.27767441D-04, 0.27766366D-04, 0.26745429D-02, 0.27762615D-04, - + 0.33856245D-01, 0.33856245D-01, 0.24276734D-04, 0.24277678D-04, - + 0.24277678D-04, 0.24276734D-04, 0.20499269D-02, 0.24273714D-04, - + 0.29701933D-01, 0.29701933D-01, 0.21108366D-04, 0.21109189D-04, - + 0.21109189D-04, 0.21108366D-04, 0.15791350D-02, 0.21105937D-04, - + 0.26007296D-01, 0.26007296D-01, 0.18265891D-04, 0.18266605D-04, - + 0.18266605D-04, 0.18265891D-04, 0.12234050D-02, 0.18263940D-04, - + 0.22729072D-01, 0.22729072D-01, 0.15740611D-04, 0.15741227D-04, - + 0.15741227D-04, 0.15740611D-04, 0.95351049D-03, 0.15739045D-04/ - DATA ((CALCPI(I,K,22),I=1,8), K=19,20) / - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,23),I=1,8), K=1,9) / - + 0.13320499D+00, 0.13320499D+00, 0.34520002D-08, 0.34520002D-08, - + 0.34520002D-08, 0.34520002D-08, 0.55462664D-01, 0.20849354D-17, - + 0.11820636D+00, 0.11820636D+00, 0.80765048D-05, 0.80765896D-05, - + 0.80765896D-05, 0.80765048D-05, 0.41845937D-01, 0.80737395D-05, - + 0.10467977D+00, 0.10467977D+00, 0.13146773D-04, 0.13146909D-04, - + 0.13146909D-04, 0.13146773D-04, 0.31407747D-01, 0.13144557D-04, - + 0.92497697D-01, 0.92497697D-01, 0.15958984D-04, 0.15959147D-04, - + 0.15959147D-04, 0.15958984D-04, 0.23428565D-01, 0.15957210D-04, - + 0.81555755D-01, 0.81555755D-01, 0.17284448D-04, 0.17284623D-04, - + 0.17284623D-04, 0.17284448D-04, 0.17377487D-01, 0.17283030D-04, - + 0.71751325D-01, 0.71751325D-01, 0.17478843D-04, 0.17479019D-04, - + 0.17479019D-04, 0.17478843D-04, 0.12828131D-01, 0.17477710D-04, - + 0.62987915D-01, 0.62987915D-01, 0.16901157D-04, 0.16901326D-04, - + 0.16901326D-04, 0.16901157D-04, 0.94346127D-02, 0.16900253D-04, - + 0.55174530D-01, 0.55174530D-01, 0.15846998D-04, 0.15847157D-04, - + 0.15847157D-04, 0.15846998D-04, 0.69202211D-02, 0.15846278D-04, - + 0.48225545D-01, 0.48225545D-01, 0.14516072D-04, 0.14516218D-04, - + 0.14516218D-04, 0.14516072D-04, 0.50647158D-02, 0.14515499D-04/ - DATA ((CALCPI(I,K,23),I=1,8), K=10,18) / - + 0.42060787D-01, 0.42060787D-01, 0.13059574D-04, 0.13059706D-04, - + 0.13059706D-04, 0.13059574D-04, 0.37042547D-02, 0.13059118D-04, - + 0.36605408D-01, 0.36605408D-01, 0.11583180D-04, 0.11583299D-04, - + 0.11583299D-04, 0.11583180D-04, 0.27122284D-02, 0.11582819D-04, - + 0.31789796D-01, 0.31789796D-01, 0.10154824D-04, 0.10154929D-04, - + 0.10154929D-04, 0.10154824D-04, 0.19892978D-02, 0.10154537D-04, - + 0.27549461D-01, 0.27549461D-01, 0.88180035D-05, 0.88180962D-05, - + 0.88180962D-05, 0.88180035D-05, 0.14633796D-02, 0.88177766D-05, - + 0.23824875D-01, 0.23824875D-01, 0.75968481D-05, 0.75969293D-05, - + 0.75969293D-05, 0.75968481D-05, 0.10818880D-02, 0.75966687D-05, - + 0.20561299D-01, 0.20561299D-01, 0.65012925D-05, 0.65013633D-05, - + 0.65013633D-05, 0.65012925D-05, 0.80466039D-03, 0.65011509D-05, - + 0.17708592D-01, 0.17708592D-01, 0.55324326D-05, 0.55324941D-05, - + 0.55324941D-05, 0.55324326D-05, 0.60243422D-03, 0.55323209D-05, - + 0.15220996D-01, 0.15220996D-01, 0.46854441D-05, 0.46854973D-05, - + 0.46854973D-05, 0.46854441D-05, 0.45457813D-03, 0.46853561D-05, - + 0.13056907D-01, 0.13056907D-01, 0.39517963D-05, 0.39518422D-05, - + 0.39518422D-05, 0.39517963D-05, 0.34596439D-03, 0.39517270D-05/ - DATA ((CALCPI(I,K,23),I=1,8), K=19,20) / - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,24),I=1,8), K=1,9) / - + 0.91950370D-01, 0.91950370D-01, 0.67606324D-10, 0.67606316D-10, - + 0.67606316D-10, 0.67606324D-10, 0.31084406D-01, 0.20406171D-17, - + 0.79684852D-01, 0.79684852D-01, 0.91576626D-06, 0.91575163D-06, - + 0.91575163D-06, 0.91576626D-06, 0.22168331D-01, 0.91571349D-06, - + 0.68912819D-01, 0.68912819D-01, 0.16482411D-05, 0.16482201D-05, - + 0.16482201D-05, 0.16482411D-05, 0.15754789D-01, 0.16481998D-05, - + 0.59458278D-01, 0.59458278D-01, 0.20800602D-05, 0.20800381D-05, - + 0.20800381D-05, 0.20800602D-05, 0.11132200D-01, 0.20800281D-05, - + 0.51182817D-01, 0.51182817D-01, 0.23331048D-05, 0.23330847D-05, - + 0.23330847D-05, 0.23331048D-05, 0.78169614D-02, 0.23330797D-05, - + 0.43957520D-01, 0.43957520D-01, 0.24064376D-05, 0.24064213D-05, - + 0.24064213D-05, 0.24064376D-05, 0.54678262D-02, 0.24064181D-05, - + 0.37664877D-01, 0.37664877D-01, 0.23357250D-05, 0.23357134D-05, - + 0.23357134D-05, 0.23357250D-05, 0.38086643D-02, 0.23357098D-05, - + 0.32198611D-01, 0.32198611D-01, 0.21824796D-05, 0.21824729D-05, - + 0.21824729D-05, 0.21824796D-05, 0.26461108D-02, 0.21824678D-05, - + 0.27462349D-01, 0.27462349D-01, 0.19814881D-05, 0.19814861D-05, - + 0.19814861D-05, 0.19814881D-05, 0.18381056D-02, 0.19814790D-05/ - DATA ((CALCPI(I,K,24),I=1,8), K=10,18) / - + 0.23369143D-01, 0.23369143D-01, 0.17576456D-05, 0.17576477D-05, - + 0.17576477D-05, 0.17576456D-05, 0.12771408D-02, 0.17576385D-05, - + 0.19840784D-01, 0.19840784D-01, 0.15318565D-05, 0.15318622D-05, - + 0.15318622D-05, 0.15318565D-05, 0.88883501D-03, 0.15318510D-05, - + 0.16807128D-01, 0.16807128D-01, 0.13168008D-05, 0.13168094D-05, - + 0.13168094D-05, 0.13168008D-05, 0.62129100D-03, 0.13167965D-05, - + 0.14205480D-01, 0.14205480D-01, 0.11194302D-05, 0.11194410D-05, - + 0.11194410D-05, 0.11194302D-05, 0.43682179D-03, 0.11194269D-05, - + 0.11979987D-01, 0.11979987D-01, 0.94337958D-06, 0.94339195D-06, - + 0.94339195D-06, 0.94337958D-06, 0.30928510D-03, 0.94337707D-06, - + 0.10081062D-01, 0.10081062D-01, 0.78959599D-06, 0.78960936D-06, - + 0.78960936D-06, 0.78959599D-06, 0.22096292D-03, 0.78959406D-06, - + 0.84648297D-02, 0.84648297D-02, 0.65732294D-06, 0.65733682D-06, - + 0.65733682D-06, 0.65732294D-06, 0.15950703D-03, 0.65732145D-06, - + 0.70926015D-02, 0.70926015D-02, 0.54494166D-06, 0.54495564D-06, - + 0.54495564D-06, 0.54494166D-06, 0.11639689D-03, 0.54494052D-06, - + 0.59303800D-02, 0.59303800D-02, 0.45036043D-06, 0.45037420D-06, - + 0.45037420D-06, 0.45036043D-06, 0.85900136D-04, 0.45035956D-06/ - DATA ((CALCPI(I,K,24),I=1,8), K=19,20) / - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALCPI(I,K,25),I=1,8), K=1,9) / - + 0.47514881D-01, 0.47514881D-01, 0.81282336D-13, 0.81281770D-13, - + 0.81281770D-13, 0.81282336D-13, 0.11552384D-01,-0.44113689D-19, - + 0.39558775D-01, 0.39558775D-01,-0.51902289D-06,-0.51897352D-06, - + -0.51897352D-06,-0.51902289D-06, 0.74756386D-02,-0.51902295D-06, - + 0.32873176D-01, 0.32873176D-01,-0.60102710D-06,-0.60094582D-06, - + -0.60094582D-06,-0.60102710D-06, 0.48497831D-02,-0.60102715D-06, - + 0.27249678D-01, 0.27249678D-01,-0.53440316D-06,-0.53430266D-06, - + -0.53430266D-06,-0.53440316D-06, 0.31483696D-02,-0.53440320D-06, - + 0.22530902D-01, 0.22530902D-01,-0.41313606D-06,-0.41302571D-06, - + -0.41302571D-06,-0.41313606D-06, 0.20170920D-02,-0.41313609D-06, - + 0.18583085D-01, 0.18583085D-01,-0.28292681D-06,-0.28281350D-06, - + -0.28281350D-06,-0.28292681D-06, 0.12854537D-02,-0.28292683D-06, - + 0.15288645D-01, 0.15288645D-01,-0.17073729D-06,-0.17062586D-06, - + -0.17062586D-06,-0.17073729D-06, 0.82038244D-03,-0.17073731D-06, - + 0.12546762D-01, 0.12546762D-01,-0.80730183D-07,-0.80623900D-07, - + -0.80623900D-07,-0.80730183D-07, 0.52220283D-03,-0.80730194D-07, - + 0.10270913D-01, 0.10270913D-01,-0.12645504D-07,-0.12546449D-07, - + -0.12546449D-07,-0.12645504D-07, 0.33191852D-03,-0.12645512D-07/ - DATA ((CALCPI(I,K,25),I=1,8), K=10,18) / - + 0.83869722D-02, 0.83869722D-02, 0.35232591D-07, 0.35323239D-07, - + 0.35323239D-07, 0.35232591D-07, 0.21186226D-03, 0.35232585D-07, - + 0.68316662D-02, 0.68316662D-02, 0.66871278D-07, 0.66953006D-07, - + 0.66953006D-07, 0.66871278D-07, 0.13598500D-03, 0.66871273D-07, - + 0.55511338D-02, 0.55511338D-02, 0.86095598D-07, 0.86168367D-07, - + 0.86168367D-07, 0.86095598D-07, 0.87862421D-04, 0.86095595D-07, - + 0.44996671D-02, 0.44996671D-02, 0.95920834D-07, 0.95984932D-07, - + 0.95984932D-07, 0.95920834D-07, 0.57373579D-04, 0.95920831D-07, - + 0.36385999D-02, 0.36385999D-02, 0.98939067D-07, 0.98994999D-07, - + 0.98994999D-07, 0.98939067D-07, 0.37963821D-04, 0.98939065D-07, - + 0.29353270D-02, 0.29353270D-02, 0.97257041D-07, 0.97305442D-07, - + 0.97305442D-07, 0.97257041D-07, 0.25480951D-04, 0.97257039D-07, - + 0.23624426D-02, 0.23624426D-02, 0.92456560D-07, 0.92498132D-07, - + 0.92498132D-07, 0.92456560D-07, 0.17376552D-04, 0.92456559D-07, - + 0.18969857D-02, 0.18969857D-02, 0.85730273D-07, 0.85765738D-07, - + 0.85765738D-07, 0.85730273D-07, 0.12050384D-04, 0.85730272D-07, - + 0.15197821D-02, 0.15197821D-02, 0.77968995D-07, 0.77999062D-07, - + 0.77999062D-07, 0.77968995D-07, 0.84914737D-05, 0.77968995D-07/ - DATA ((CALCPI(I,K,25),I=1,8), K=19,20) / - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ -C---------------------------------------------------------------------- - DATA ISTART/0/ - SAVE ISTART,OWLAM2,Q02PI -C - IF (ISTART.EQ.0) THEN - ISTART=1 - DO 11 K=1,25 - DO 11 I=1,20 - DO 11 M=1,8 - 11 CALCPIO(M,I,K) = CALCPI(M,I,K) - OWLAM=PARPI(1) - OWLAM2=OWLAM**2 - Q02PI=PARPI(39) - Q2MAX=PARPI(40) - ENDIF -C -C the conventions are : q(1)=x*u, q(2)=x*d, q(3)=x*str, q(4)=x*usea, -C q(5)=x*dsea, q(6)=x*charm, q(7)=x*gluon -C - X = DX - Q = DQ - Q2 = Q*Q - IDQ2=2 - SB=0. - IF(Q2-Q02PI) 1,1,2 - 2 IF(IDQ2-1) 1,1,3 - 3 SB= LOG( LOG( MAX(Q02PI,Q2)/OWLAM2)/ LOG(Q02PI/OWLAM2)) - 1 CALL AURPI2(1,0,X,SB,XPDF(1)) - CALL AURPI2(2,0,X,SB,XPDF(2)) - CALL AURPI2(3,0,X,SB,XPDF(3)) - CALL AURPI2(4,0,X,SB,XPDF(4)) - CALL AURPI2(5,0,X,SB,XPDF(5)) - CALL AURPI2(8,0,X,SB,XPDF(6)) - CALL AURPI2(7,0,X,SB,XPDF(7)) -C - DUPV=XPDF(1) - XPDF(4) - DDNV=XPDF(2) - XPDF(5) - DUSEA=XPDF(4) - DDSEA=XPDF(5) - DSTR=XPDF(3) - DCHM=XPDF(6) - DGL =XPDF(7) -C - RETURN - END diff --git a/PDF/spdf/abfkw3.F b/PDF/spdf/abfkw3.F deleted file mode 100644 index 251a1e145ae..00000000000 --- a/PDF/spdf/abfkw3.F +++ /dev/null @@ -1,1152 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:28 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:54 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE ABFKW3(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL) -#include "pdf/expdp.inc" - + PARPI(40),CALCPI(8,20,25),CALCPIO(8,20,25),ZEROD, - + DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL - REAL X, Q, UPV, DNV, USEA, DSEA, STR, CHM, GL - COMMON/W5051I6/CALCPIO - REAL XPDF(7) - DATA ZEROD/0.D0/ -C---------------------------------------------------------------------- - DATA (PARPI(I),I=1,40) / - + 0.28100002D+00, 0.38845206D+00, 0.69999999D+00, 0.00000000D+00, - + 0.00000000D+00, 0.38845206D+00, 0.69999999D+00, 0.00000000D+00, - + 0.56699985D+00, 0.53000002D+01, 0.19346480D+01, 0.00000000D+00, - + 0.25959997D+01, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.10000002D+00, 0.20000000D+01, 0.10000000D+09/ - DATA ((CALCPI(I,K,1 ),I=1,8), K=1,9) / - + 0.12821481D+00, 0.12821481D+00, 0.94000201D-01, 0.94000201D-01, - + 0.94000201D-01, 0.94000201D-01, 0.19296297D+01, 0.34694470D-17, - + 0.16706269D+00, 0.16706269D+00, 0.13168872D+00, 0.13167343D+00, - + 0.13167343D+00, 0.13168872D+00, 0.29529459D+01, 0.37834649D-01, - + 0.21189126D+00, 0.21189126D+00, 0.17534196D+00, 0.17531252D+00, - + 0.17531252D+00, 0.17534196D+00, 0.41492404D+01, 0.81641090D-01, - + 0.26300280D+00, 0.26300280D+00, 0.22526172D+00, 0.22521926D+00, - + 0.22521926D+00, 0.22526172D+00, 0.55198687D+01, 0.13172154D+00, - + 0.32065997D+00, 0.32065997D+00, 0.28171031D+00, 0.28165595D+00, - + 0.28165595D+00, 0.28171031D+00, 0.70633861D+01, 0.18833868D+00, - + 0.38510573D+00, 0.38510573D+00, 0.34493036D+00, 0.34486519D+00, - + 0.34486519D+00, 0.34493036D+00, 0.87758667D+01, 0.25173554D+00, - + 0.45655511D+00, 0.45655511D+00, 0.41513665D+00, 0.41506174D+00, - + 0.41506174D+00, 0.41513665D+00, 0.10651241D+02, 0.32212729D+00, - + 0.53518537D+00, 0.53518537D+00, 0.49250627D+00, 0.49242266D+00, - + 0.49242266D+00, 0.49250627D+00, 0.12681165D+02, 0.39969144D+00, - + 0.62112973D+00, 0.62112973D+00, 0.57717230D+00, 0.57708100D+00, - + 0.57708100D+00, 0.57717230D+00, 0.14855182D+02, 0.48456148D+00/ - DATA ((CALCPI(I,K,1 ),I=1,8), K=10,18) / - + 0.71446944D+00, 0.71446944D+00, 0.66921594D+00, 0.66911794D+00, - + 0.66911794D+00, 0.66921594D+00, 0.17160841D+02, 0.57681905D+00, - + 0.81522779D+00, 0.81522779D+00, 0.76866048D+00, 0.76855674D+00, - + 0.76855674D+00, 0.76866048D+00, 0.19583877D+02, 0.67648786D+00, - + 0.92336459D+00, 0.92336459D+00, 0.87546584D+00, 0.87535726D+00, - + 0.87535726D+00, 0.87546584D+00, 0.22108423D+02, 0.78352823D+00, - + 0.10387719D+01, 0.10387719D+01, 0.98952429D+00, 0.98941176D+00, - + 0.98941176D+00, 0.98952429D+00, 0.24717248D+02, 0.89783290D+00, - + 0.11612713D+01, 0.11612713D+01, 0.11106575D+01, 0.11105419D+01, - + 0.11105419D+01, 0.11106575D+01, 0.27392024D+02, 0.10192239D+01, - + 0.12906118D+01, 0.12906118D+01, 0.12386150D+01, 0.12384970D+01, - + 0.12384970D+01, 0.12386150D+01, 0.30113602D+02, 0.11474512D+01, - + 0.14264699D+01, 0.14264699D+01, 0.13730736D+01, 0.13729542D+01, - + 0.13729542D+01, 0.13730736D+01, 0.32862311D+02, 0.12821921D+01, - + 0.15684509D+01, 0.15684509D+01, 0.15136392D+01, 0.15135189D+01, - + 0.15135189D+01, 0.15136392D+01, 0.35618247D+02, 0.14230528D+01, - + 0.17160913D+01, 0.17160913D+01, 0.16598486D+01, 0.16597283D+01, - + 0.16597283D+01, 0.16598486D+01, 0.38361571D+02, 0.15695705D+01/ - DATA ((CALCPI(I,K,1 ),I=1,8), K=19,20) / - + 0.18688627D+01, 0.18688627D+01, 0.18111744D+01, 0.18110546D+01, - + 0.18110546D+01, 0.18111744D+01, 0.41072781D+02, 0.17212181D+01, - + 0.20261771D+01, 0.20261771D+01, 0.19670292D+01, 0.19669105D+01, - + 0.19669105D+01, 0.19670292D+01, 0.43732985D+02, 0.18774087D+01/ - DATA ((CALCPI(I,K,2 ),I=1,8), K=1,9) / - + 0.13825770D+00, 0.13825770D+00, 0.93502573D-01, 0.93502573D-01, - + 0.93502573D-01, 0.93502573D-01, 0.19246194D+01, 0.17347235D-17, - + 0.17173978D+00, 0.17173978D+00, 0.12552391D+00, 0.12550690D+00, - + 0.12550690D+00, 0.12552391D+00, 0.27841085D+01, 0.32253347D-01, - + 0.20927357D+00, 0.20927357D+00, 0.16158395D+00, 0.16155147D+00, - + 0.16155147D+00, 0.16158395D+00, 0.37516700D+01, 0.68555971D-01, - + 0.25097815D+00, 0.25097815D+00, 0.20180138D+00, 0.20175493D+00, - + 0.20175493D+00, 0.20180138D+00, 0.48230626D+01, 0.10902704D+00, - + 0.29693944D+00, 0.29693944D+00, 0.24626185D+00, 0.24620286D+00, - + 0.24620286D+00, 0.24626185D+00, 0.59928410D+01, 0.15375265D+00, - + 0.34721071D+00, 0.34721071D+00, 0.29501848D+00, 0.29494834D+00, - + 0.29494834D+00, 0.29501848D+00, 0.72538108D+01, 0.20278636D+00, - + 0.40181628D+00, 0.40181628D+00, 0.34809551D+00, 0.34801554D+00, - + 0.34801554D+00, 0.34809551D+00, 0.85975660D+01, 0.25615288D+00, - + 0.46074351D+00, 0.46074351D+00, 0.40548033D+00, 0.40539180D+00, - + 0.40539180D+00, 0.40548033D+00, 0.10014442D+02, 0.31384006D+00, - + 0.52394162D+00, 0.52394162D+00, 0.46712230D+00, 0.46702642D+00, - + 0.46702642D+00, 0.46712230D+00, 0.11493727D+02, 0.37579770D+00/ - DATA ((CALCPI(I,K,2 ),I=1,8), K=10,18) / - + 0.59131859D+00, 0.59131859D+00, 0.53292963D+00, 0.53282756D+00, - + 0.53282756D+00, 0.53292963D+00, 0.13023825D+02, 0.44193449D+00, - + 0.66273983D+00, 0.66273983D+00, 0.60276805D+00, 0.60266088D+00, - + 0.60266088D+00, 0.60276805D+00, 0.14592450D+02, 0.51211659D+00, - + 0.73802729D+00, 0.73802729D+00, 0.67645999D+00, 0.67634876D+00, - + 0.67634876D+00, 0.67645999D+00, 0.16186834D+02, 0.58616688D+00, - + 0.81695970D+00, 0.81695970D+00, 0.75378471D+00, 0.75367041D+00, - + 0.75367041D+00, 0.75378471D+00, 0.17793936D+02, 0.66386502D+00, - + 0.89927349D+00, 0.89927349D+00, 0.83447932D+00, 0.83436285D+00, - + 0.83436285D+00, 0.83447932D+00, 0.19400649D+02, 0.74494851D+00, - + 0.98466465D+00, 0.98466465D+00, 0.91824059D+00, 0.91812282D+00, - + 0.91812282D+00, 0.91824059D+00, 0.20994011D+02, 0.82911454D+00, - + 0.10727915D+01, 0.10727915D+01, 0.10047277D+01, 0.10046095D+01, - + 0.10046095D+01, 0.10047277D+01, 0.22561398D+02, 0.91602264D+00, - + 0.11632781D+01, 0.11632781D+01, 0.10935658D+01, 0.10934478D+01, - + 0.10934478D+01, 0.10935658D+01, 0.24090706D+02, 0.10052982D+01, - + 0.12557185D+01, 0.12557185D+01, 0.11843498D+01, 0.11842328D+01, - + 0.11842328D+01, 0.11843498D+01, 0.25570518D+02, 0.10965366D+01/ - DATA ((CALCPI(I,K,2 ),I=1,8), K=19,20) / - + 0.13496811D+01, 0.13496811D+01, 0.12766495D+01, 0.12765341D+01, - + 0.12765341D+01, 0.12766495D+01, 0.26990245D+02, 0.11893079D+01, - + 0.14447144D+01, 0.14447144D+01, 0.13700146D+01, 0.13699015D+01, - + 0.13699015D+01, 0.13700146D+01, 0.28340247D+02, 0.12831619D+01/ - DATA ((CALCPI(I,K,3 ),I=1,8), K=1,9) / - + 0.15101546D+00, 0.15101546D+00, 0.92513729D-01, 0.92513729D-01, - + 0.92513729D-01, 0.92513729D-01, 0.19146227D+01, 0.52041704D-17, - + 0.17916929D+00, 0.17916929D+00, 0.11886813D+00, 0.11885069D+00, - + 0.11885069D+00, 0.11886813D+00, 0.26079692D+01, 0.26723688D-01, - + 0.20995742D+00, 0.20995742D+00, 0.14785133D+00, 0.14781832D+00, - + 0.14781832D+00, 0.14785133D+00, 0.33618996D+01, 0.56091119D-01, - + 0.24336338D+00, 0.24336338D+00, 0.17944661D+00, 0.17939979D+00, - + 0.17939979D+00, 0.17944661D+00, 0.41695510D+01, 0.88086045D-01, - + 0.27935265D+00, 0.27935265D+00, 0.21361940D+00, 0.21356042D+00, - + 0.21356042D+00, 0.21361940D+00, 0.50240311D+01, 0.12267432D+00, - + 0.31785866D+00, 0.31785866D+00, 0.25030321D+00, 0.25023363D+00, - + 0.25023363D+00, 0.25030321D+00, 0.59174672D+01, 0.15978989D+00, - + 0.35879420D+00, 0.35879420D+00, 0.28941106D+00, 0.28933234D+00, - + 0.28933234D+00, 0.28941106D+00, 0.68415748D+01, 0.19934620D+00, - + 0.40204568D+00, 0.40204568D+00, 0.33082974D+00, 0.33074327D+00, - + 0.33074327D+00, 0.33082974D+00, 0.77876678D+01, 0.24123046D+00, - + 0.44747474D+00, 0.44747474D+00, 0.37442143D+00, 0.37432850D+00, - + 0.37432850D+00, 0.37442143D+00, 0.87468404D+01, 0.28530523D+00/ - DATA ((CALCPI(I,K,3 ),I=1,8), K=10,18) / - + 0.49491821D+00, 0.49491821D+00, 0.42002365D+00, 0.41992544D+00, - + 0.41992544D+00, 0.42002365D+00, 0.97101188D+01, 0.33140839D+00, - + 0.54418909D+00, 0.54418909D+00, 0.46745020D+00, 0.46734786D+00, - + 0.46734786D+00, 0.46745020D+00, 0.10668609D+02, 0.37935413D+00, - + 0.59507796D+00, 0.59507796D+00, 0.51649267D+00, 0.51638722D+00, - + 0.51638722D+00, 0.51649267D+00, 0.11613643D+02, 0.42893431D+00, - + 0.64735488D+00, 0.64735488D+00, 0.56692221D+00, 0.56681463D+00, - + 0.56681463D+00, 0.56692221D+00, 0.12536911D+02, 0.47992040D+00, - + 0.70077172D+00, 0.70077172D+00, 0.61849196D+00, 0.61838313D+00, - + 0.61838313D+00, 0.61849196D+00, 0.13430581D+02, 0.53206577D+00, - + 0.75506487D+00, 0.75506487D+00, 0.67093970D+00, 0.67083044D+00, - + 0.67083044D+00, 0.67093970D+00, 0.14287405D+02, 0.58510841D+00, - + 0.80995831D+00, 0.80995831D+00, 0.72399093D+00, 0.72388200D+00, - + 0.72388200D+00, 0.72399093D+00, 0.15100808D+02, 0.63877400D+00, - + 0.86516694D+00, 0.86516694D+00, 0.77736219D+00, 0.77725427D+00, - + 0.77725427D+00, 0.77736219D+00, 0.15864957D+02, 0.69277918D+00, - + 0.92040002D+00, 0.92040002D+00, 0.83076449D+00, 0.83065822D+00, - + 0.83065822D+00, 0.83076449D+00, 0.16574813D+02, 0.74683507D+00/ - DATA ((CALCPI(I,K,3 ),I=1,8), K=19,20) / - + 0.97536478D+00, 0.97536478D+00, 0.88390694D+00, 0.88380289D+00, - + 0.88380289D+00, 0.88390694D+00, 0.17226163D+02, 0.80065078D+00, - + 0.10297700D+01, 0.10297700D+01, 0.93650026D+00, 0.93639894D+00, - + 0.93639894D+00, 0.93650026D+00, 0.17815637D+02, 0.85393701D+00/ - DATA ((CALCPI(I,K,4 ),I=1,8), K=1,9) / - + 0.16692415D+00, 0.16692415D+00, 0.90561489D-01, 0.90561489D-01, - + 0.90561489D-01, 0.90561489D-01, 0.18947253D+01, 0.17347235D-17, - + 0.19026586D+00, 0.19026586D+00, 0.11175541D+00, 0.11173886D+00, - + 0.11173886D+00, 0.11175541D+00, 0.24332533D+01, 0.21778920D-01, - + 0.21511552D+00, 0.21511552D+00, 0.13446678D+00, 0.13443561D+00, - + 0.13443561D+00, 0.13446678D+00, 0.29966805D+01, 0.45094164D-01, - + 0.24137560D+00, 0.24137560D+00, 0.15859806D+00, 0.15855405D+00, - + 0.15855405D+00, 0.15859806D+00, 0.35779189D+01, 0.69848543D-01, - + 0.26894901D+00, 0.26894901D+00, 0.18405246D+00, 0.18399726D+00, - + 0.18399726D+00, 0.18405246D+00, 0.41706395D+01, 0.95945524D-01, - + 0.29771728D+00, 0.29771728D+00, 0.21071199D+00, 0.21064713D+00, - + 0.21064713D+00, 0.21071199D+00, 0.47682891D+01, 0.12326738D+00, - + 0.32755295D+00, 0.32755295D+00, 0.23844989D+00, 0.23837677D+00, - + 0.23837677D+00, 0.23844989D+00, 0.53644818D+01, 0.15168758D+00, - + 0.35831595D+00, 0.35831595D+00, 0.26712702D+00, 0.26704695D+00, - + 0.26704695D+00, 0.26712702D+00, 0.59530343D+01, 0.18106719D+00, - + 0.38985562D+00, 0.38985562D+00, 0.29659383D+00, 0.29650800D+00, - + 0.29650800D+00, 0.29659383D+00, 0.65280608D+01, 0.21125682D+00/ - DATA ((CALCPI(I,K,4 ),I=1,8), K=10,18) / - + 0.42201175D+00, 0.42201175D+00, 0.32669141D+00, 0.32660093D+00, - + 0.32660093D+00, 0.32669141D+00, 0.70840600D+01, 0.24209768D+00, - + 0.45461604D+00, 0.45461604D+00, 0.35725295D+00, 0.35715883D+00, - + 0.35715883D+00, 0.35725295D+00, 0.76159841D+01, 0.27342304D+00, - + 0.48749384D+00, 0.48749384D+00, 0.38810547D+00, 0.38800864D+00, - + 0.38800864D+00, 0.38810547D+00, 0.81192978D+01, 0.30505992D+00, - + 0.52046602D+00, 0.52046602D+00, 0.41907170D+00, 0.41897300D+00, - + 0.41897300D+00, 0.41907170D+00, 0.85900243D+01, 0.33683103D+00, - + 0.55335107D+00, 0.55335107D+00, 0.44997207D+00, 0.44987228D+00, - + 0.44987228D+00, 0.44997207D+00, 0.90247770D+01, 0.36855671D+00, - + 0.58596713D+00, 0.58596713D+00, 0.48062687D+00, 0.48052671D+00, - + 0.48052671D+00, 0.48062687D+00, 0.94207781D+01, 0.40005710D+00, - + 0.61813422D+00, 0.61813422D+00, 0.51085839D+00, 0.51075848D+00, - + 0.51075848D+00, 0.51085839D+00, 0.97758647D+01, 0.43115428D+00, - + 0.64967637D+00, 0.64967637D+00, 0.54049301D+00, 0.54039394D+00, - + 0.54039394D+00, 0.54049301D+00, 0.10088482D+02, 0.46167434D+00, - + 0.68042364D+00, 0.68042364D+00, 0.56936325D+00, 0.56926555D+00, - + 0.56926555D+00, 0.56936325D+00, 0.10357667D+02, 0.49144950D+00/ - DATA ((CALCPI(I,K,4 ),I=1,8), K=19,20) / - + 0.71021408D+00, 0.71021408D+00, 0.59730972D+00, 0.59721388D+00, - + 0.59721388D+00, 0.59730972D+00, 0.10583019D+02, 0.52031996D+00, - + 0.73889551D+00, 0.73889551D+00, 0.62418286D+00, 0.62408930D+00, - + 0.62408930D+00, 0.62418286D+00, 0.10764666D+02, 0.54813569D+00/ - DATA ((CALCPI(I,K,5 ),I=1,8), K=1,9) / - + 0.18615009D+00, 0.18615009D+00, 0.86757238D-01, 0.86757238D-01, - + 0.86757238D-01, 0.86757238D-01, 0.18553132D+01, 0.34694470D-17, - + 0.20495309D+00, 0.20495309D+00, 0.10312192D+00, 0.10310608D+00, - + 0.10310608D+00, 0.10312192D+00, 0.22468147D+01, 0.17268707D-01, - + 0.22435737D+00, 0.22435737D+00, 0.12012473D+00, 0.12009485D+00, - + 0.12009485D+00, 0.12012473D+00, 0.26379097D+01, 0.35194729D-01, - + 0.24424792D+00, 0.24424792D+00, 0.13765097D+00, 0.13760865D+00, - + 0.13760865D+00, 0.13765097D+00, 0.30233411D+01, 0.53663379D-01, - + 0.26452068D+00, 0.26452068D+00, 0.15559727D+00, 0.15554401D+00, - + 0.15554401D+00, 0.15559727D+00, 0.33988506D+01, 0.72571273D-01, - + 0.28506247D+00, 0.28506247D+00, 0.17385140D+00, 0.17378858D+00, - + 0.17378858D+00, 0.17385140D+00, 0.37604487D+01, 0.91806124D-01, - + 0.30575952D+00, 0.30575952D+00, 0.19230084D+00, 0.19222972D+00, - + 0.19222972D+00, 0.19230084D+00, 0.41045496D+01, 0.11125528D+00, - + 0.32649595D+00, 0.32649595D+00, 0.21083122D+00, 0.21075297D+00, - + 0.21075297D+00, 0.21083122D+00, 0.44280073D+01, 0.13080421D+00, - + 0.34715510D+00, 0.34715510D+00, 0.22932760D+00, 0.22924328D+00, - + 0.22924328D+00, 0.22932760D+00, 0.47281239D+01, 0.15033770D+00/ - DATA ((CALCPI(I,K,5 ),I=1,8), K=10,18) / - + 0.36762059D+00, 0.36762059D+00, 0.24767556D+00, 0.24758618D+00, - + 0.24758618D+00, 0.24767556D+00, 0.50026696D+01, 0.16974106D+00, - + 0.38777749D+00, 0.38777749D+00, 0.26576234D+00, 0.26566879D+00, - + 0.26566879D+00, 0.26576234D+00, 0.52498855D+01, 0.18890110D+00, - + 0.40751352D+00, 0.40751352D+00, 0.28347797D+00, 0.28338110D+00, - + 0.28338110D+00, 0.28347797D+00, 0.54684785D+01, 0.20770743D+00, - + 0.42672029D+00, 0.42672029D+00, 0.30071651D+00, 0.30061709D+00, - + 0.30061709D+00, 0.30071651D+00, 0.56576093D+01, 0.22605359D+00, - + 0.44529442D+00, 0.44529442D+00, 0.31737719D+00, 0.31727594D+00, - + 0.31727594D+00, 0.31737719D+00, 0.58168719D+01, 0.24383821D+00, - + 0.46313871D+00, 0.46313871D+00, 0.33336551D+00, 0.33326309D+00, - + 0.33326309D+00, 0.33336551D+00, 0.59462671D+01, 0.26096612D+00, - + 0.48016314D+00, 0.48016314D+00, 0.34859422D+00, 0.34849124D+00, - + 0.34849124D+00, 0.34859422D+00, 0.60461703D+01, 0.27734934D+00, - + 0.49628577D+00, 0.49628577D+00, 0.36298420D+00, 0.36288122D+00, - + 0.36288122D+00, 0.36298420D+00, 0.61172950D+01, 0.29290795D+00, - + 0.51143347D+00, 0.51143347D+00, 0.37646518D+00, 0.37636272D+00, - + 0.37636272D+00, 0.37646518D+00, 0.61606536D+01, 0.30757082D+00/ - DATA ((CALCPI(I,K,5 ),I=1,8), K=19,20) / - + 0.52554254D+00, 0.52554254D+00, 0.38897630D+00, 0.38887487D+00, - + 0.38887487D+00, 0.38897630D+00, 0.61775152D+01, 0.32127618D+00, - + 0.53855912D+00, 0.53855912D+00, 0.40046654D+00, 0.40036658D+00, - + 0.40036658D+00, 0.40046654D+00, 0.61693635D+01, 0.33397202D+00/ - DATA ((CALCPI(I,K,6 ),I=1,8), K=1,9) / - + 0.20815692D+00, 0.20815692D+00, 0.79537344D-01, 0.79537344D-01, - + 0.79537344D-01, 0.79537344D-01, 0.17780108D+01, 0.00000000D+00, - + 0.22237127D+00, 0.22237127D+00, 0.91233284D-01, 0.91217009D-01, - + 0.91217009D-01, 0.91233284D-01, 0.20285821D+01, 0.13016954D-01, - + 0.23652036D+00, 0.23652036D+00, 0.10294598D+00, 0.10291520D+00, - + 0.10291520D+00, 0.10294598D+00, 0.22645799D+01, 0.26060969D-01, - + 0.25051540D+00, 0.25051540D+00, 0.11458697D+00, 0.11454329D+00, - + 0.11454329D+00, 0.11458697D+00, 0.24835026D+01, 0.39043296D-01, - + 0.26428040D+00, 0.26428040D+00, 0.12608111D+00, 0.12602602D+00, - + 0.12602602D+00, 0.12608111D+00, 0.26836091D+01, 0.51888460D-01, - + 0.27773968D+00, 0.27773968D+00, 0.13735389D+00, 0.13728875D+00, - + 0.13728875D+00, 0.13735389D+00, 0.28635744D+01, 0.64521505D-01, - + 0.29082109D+00, 0.29082109D+00, 0.14833460D+00, 0.14826068D+00, - + 0.14826068D+00, 0.14833460D+00, 0.30224311D+01, 0.76871221D-01, - + 0.30345607D+00, 0.30345607D+00, 0.15895645D+00, 0.15887492D+00, - + 0.15887492D+00, 0.15895645D+00, 0.31595930D+01, 0.88870204D-01, - + 0.31558008D+00, 0.31558008D+00, 0.16915683D+00, 0.16906879D+00, - + 0.16906879D+00, 0.16915683D+00, 0.32748177D+01, 0.10045518D+00/ - DATA ((CALCPI(I,K,6 ),I=1,8), K=10,18) / - + 0.32713323D+00, 0.32713323D+00, 0.17887803D+00, 0.17878449D+00, - + 0.17878449D+00, 0.17887803D+00, 0.33681856D+01, 0.11156764D+00, - + 0.33806080D+00, 0.33806080D+00, 0.18806760D+00, 0.18796950D+00, - + 0.18796950D+00, 0.18806760D+00, 0.34400699D+01, 0.12215431D+00, - + 0.34831370D+00, 0.34831370D+00, 0.19667883D+00, 0.19657707D+00, - + 0.19657707D+00, 0.19667883D+00, 0.34911049D+01, 0.13216757D+00, - + 0.35784889D+00, 0.35784889D+00, 0.20467114D+00, 0.20456653D+00, - + 0.20456653D+00, 0.20467114D+00, 0.35221527D+01, 0.14156582D+00, - + 0.36662969D+00, 0.36662969D+00, 0.21201031D+00, 0.21190364D+00, - + 0.21190364D+00, 0.21201031D+00, 0.35342677D+01, 0.15031382D+00, - + 0.37462601D+00, 0.37462601D+00, 0.21866872D+00, 0.21856070D+00, - + 0.21856070D+00, 0.21866872D+00, 0.35286620D+01, 0.15838283D+00, - + 0.38181449D+00, 0.38181449D+00, 0.22462542D+00, 0.22451674D+00, - + 0.22451674D+00, 0.22462542D+00, 0.35066703D+01, 0.16575074D+00, - + 0.38817854D+00, 0.38817854D+00, 0.22986612D+00, 0.22975741D+00, - + 0.22975741D+00, 0.22986612D+00, 0.34697162D+01, 0.17240205D+00, - + 0.39370821D+00, 0.39370821D+00, 0.23438309D+00, 0.23427495D+00, - + 0.23427495D+00, 0.23438309D+00, 0.34192800D+01, 0.17832780D+00/ - DATA ((CALCPI(I,K,6 ),I=1,8), K=19,20) / - + 0.39840004D+00, 0.39840004D+00, 0.23817494D+00, 0.23806792D+00, - + 0.23806792D+00, 0.23817494D+00, 0.33568697D+01, 0.18352533D+00, - + 0.40225680D+00, 0.40225680D+00, 0.24124632D+00, 0.24114093D+00, - + 0.24114093D+00, 0.24124632D+00, 0.32839933D+01, 0.18799799D+00/ - DATA ((CALCPI(I,K,7 ),I=1,8), K=1,9) / - + 0.23100293D+00, 0.23100293D+00, 0.66556988D-01, 0.66556988D-01, - + 0.66556988D-01, 0.66556988D-01, 0.16294238D+01, 0.17347235D-17, - + 0.24034847D+00, 0.24034847D+00, 0.73819110D-01, 0.73806365D-01, - + 0.73806365D-01, 0.73819110D-01, 0.17504465D+01, 0.89976789D-02, - + 0.24921003D+00, 0.24921003D+00, 0.80745149D-01, 0.80721143D-01, - + 0.80721143D-01, 0.80745149D-01, 0.18533173D+01, 0.17645027D-01, - + 0.25754928D+00, 0.25754928D+00, 0.87295945D-01, 0.87262040D-01, - + 0.87262040D-01, 0.87295945D-01, 0.19380990D+01, 0.25902814D-01, - + 0.26533543D+00, 0.26533543D+00, 0.93440694D-01, 0.93398162D-01, - + 0.93398162D-01, 0.93440694D-01, 0.20051235D+01, 0.33739992D-01, - + 0.27254263D+00, 0.27254263D+00, 0.99153735D-01, 0.99103759D-01, - + 0.99103759D-01, 0.99153735D-01, 0.20550180D+01, 0.41130553D-01, - + 0.27914856D+00, 0.27914856D+00, 0.10441325D+00, 0.10435693D+00, - + 0.10435693D+00, 0.10441325D+00, 0.20885678D+01, 0.48052202D-01, - + 0.28513538D+00, 0.28513538D+00, 0.10920207D+00, 0.10914044D+00, - + 0.10914044D+00, 0.10920207D+00, 0.21067258D+01, 0.54487217D-01, - + 0.29048947D+00, 0.29048947D+00, 0.11350739D+00, 0.11344140D+00, - + 0.11344140D+00, 0.11350739D+00, 0.21105715D+01, 0.60422105D-01/ - DATA ((CALCPI(I,K,7 ),I=1,8), K=10,18) / - + 0.29520153D+00, 0.29520153D+00, 0.11732076D+00, 0.11725131D+00, - + 0.11725131D+00, 0.11732076D+00, 0.21012807D+01, 0.65847705D-01, - + 0.29926662D+00, 0.29926662D+00, 0.12063808D+00, 0.12056601D+00, - + 0.12056601D+00, 0.12063808D+00, 0.20800963D+01, 0.70759107D-01, - + 0.30268404D+00, 0.30268404D+00, 0.12345944D+00, 0.12338552D+00, - + 0.12338552D+00, 0.12345944D+00, 0.20483002D+01, 0.75155547D-01, - + 0.30545725D+00, 0.30545725D+00, 0.12578895D+00, 0.12571390D+00, - + 0.12571390D+00, 0.12578895D+00, 0.20071875D+01, 0.79040253D-01, - + 0.30759371D+00, 0.30759371D+00, 0.12763456D+00, 0.12755904D+00, - + 0.12755904D+00, 0.12763456D+00, 0.19580434D+01, 0.82420247D-01, - + 0.30910463D+00, 0.30910463D+00, 0.12900776D+00, 0.12893238D+00, - + 0.12893238D+00, 0.12900776D+00, 0.19021229D+01, 0.85306089D-01, - + 0.31000475D+00, 0.31000475D+00, 0.12992330D+00, 0.12984862D+00, - + 0.12984862D+00, 0.12992330D+00, 0.18406327D+01, 0.87711587D-01, - + 0.31031198D+00, 0.31031198D+00, 0.13039884D+00, 0.13032538D+00, - + 0.13032538D+00, 0.13039884D+00, 0.17747172D+01, 0.89653466D-01, - + 0.31004713D+00, 0.31004713D+00, 0.13045458D+00, 0.13038281D+00, - + 0.13038281D+00, 0.13045458D+00, 0.17054465D+01, 0.91151017D-01/ - DATA ((CALCPI(I,K,7 ),I=1,8), K=19,20) / - + 0.30923347D+00, 0.30923347D+00, 0.13011289D+00, 0.13004323D+00, - + 0.13004323D+00, 0.13011289D+00, 0.16338078D+01, 0.92225716D-01, - + 0.30789643D+00, 0.30789643D+00, 0.12939792D+00, 0.12933075D+00, - + 0.12933075D+00, 0.12939792D+00, 0.15606997D+01, 0.92900840D-01/ - DATA ((CALCPI(I,K,8 ),I=1,8), K=1,9) / - + 0.24434354D+00, 0.24434354D+00, 0.54065089D-01, 0.54065089D-01, - + 0.54065089D-01, 0.54065089D-01, 0.14716872D+01, 0.34694470D-17, - + 0.25029537D+00, 0.25029537D+00, 0.58741459D-01, 0.58731575D-01, - + 0.58731575D-01, 0.58741459D-01, 0.15201810D+01, 0.65477534D-02, - + 0.25563519D+00, 0.25563519D+00, 0.63002654D-01, 0.62984361D-01, - + 0.62984361D-01, 0.63002654D-01, 0.15531386D+01, 0.12642397D-01, - + 0.26035998D+00, 0.26035998D+00, 0.66842795D-01, 0.66817425D-01, - + 0.66817425D-01, 0.66842795D-01, 0.15717256D+01, 0.18278793D-01, - + 0.26446844D+00, 0.26446844D+00, 0.70258812D-01, 0.70227586D-01, - + 0.70227586D-01, 0.70258812D-01, 0.15770653D+01, 0.23454263D-01, - + 0.26796426D+00, 0.26796426D+00, 0.73252646D-01, 0.73216680D-01, - + 0.73216680D-01, 0.73252646D-01, 0.15704171D+01, 0.28171043D-01, - + 0.27085297D+00, 0.27085297D+00, 0.75828350D-01, 0.75788660D-01, - + 0.75788660D-01, 0.75828350D-01, 0.15530551D+01, 0.32433334D-01, - + 0.27314313D+00, 0.27314313D+00, 0.77993030D-01, 0.77950544D-01, - + 0.77950544D-01, 0.77993030D-01, 0.15262694D+01, 0.36248289D-01, - + 0.27484590D+00, 0.27484590D+00, 0.79756386D-01, 0.79711946D-01, - + 0.79711946D-01, 0.79756386D-01, 0.14913414D+01, 0.39625566D-01/ - DATA ((CALCPI(I,K,8 ),I=1,8), K=10,18) / - + 0.27597500D+00, 0.27597500D+00, 0.81130588D-01, 0.81084956D-01, - + 0.81084956D-01, 0.81130588D-01, 0.14495215D+01, 0.42577226D-01, - + 0.27654656D+00, 0.27654656D+00, 0.82130068D-01, 0.82083931D-01, - + 0.82083931D-01, 0.82130068D-01, 0.14020127D+01, 0.45117543D-01, - + 0.27657897D+00, 0.27657897D+00, 0.82771279D-01, 0.82725254D-01, - + 0.82725254D-01, 0.82771279D-01, 0.13499555D+01, 0.47262777D-01, - + 0.27609267D+00, 0.27609267D+00, 0.83072447D-01, 0.83027081D-01, - + 0.83027081D-01, 0.83072447D-01, 0.12944158D+01, 0.49030944D-01, - + 0.27510991D+00, 0.27510991D+00, 0.83053293D-01, 0.83009072D-01, - + 0.83009072D-01, 0.83053293D-01, 0.12363767D+01, 0.50441551D-01, - + 0.27365451D+00, 0.27365451D+00, 0.82734758D-01, 0.82692107D-01, - + 0.82692107D-01, 0.82734758D-01, 0.11767315D+01, 0.51515331D-01, - + 0.27175161D+00, 0.27175161D+00, 0.82138704D-01, 0.82097992D-01, - + 0.82097992D-01, 0.82138704D-01, 0.11162806D+01, 0.52273956D-01, - + 0.26942735D+00, 0.26942735D+00, 0.81287631D-01, 0.81249172D-01, - + 0.81249172D-01, 0.81287631D-01, 0.10557294D+01, 0.52739765D-01, - + 0.26670869D+00, 0.26670869D+00, 0.80204389D-01, 0.80168447D-01, - + 0.80168447D-01, 0.80204389D-01, 0.99569003D+00, 0.52935485D-01/ - DATA ((CALCPI(I,K,8 ),I=1,8), K=19,20) / - + 0.26362306D+00, 0.26362306D+00, 0.78911912D-01, 0.78878704D-01, - + 0.78878704D-01, 0.78911912D-01, 0.93668316D+00, 0.52883968D-01, - + 0.26019814D+00, 0.26019814D+00, 0.77432959D-01, 0.77402657D-01, - + 0.77402657D-01, 0.77432959D-01, 0.87914238D+00, 0.52607944D-01/ - DATA ((CALCPI(I,K,9 ),I=1,8), K=1,9) / - + 0.25393598D+00, 0.25393598D+00, 0.39934850D-01, 0.39934850D-01, - + 0.39934850D-01, 0.39934850D-01, 0.12687427D+01, 0.00000000D+00, - + 0.25658251D+00, 0.25658251D+00, 0.42620330D-01, 0.42615827D-01, - + 0.42615827D-01, 0.42620330D-01, 0.12634749D+01, 0.44683915D-02, - + 0.25860356D+00, 0.25860356D+00, 0.44916190D-01, 0.44908124D-01, - + 0.44908124D-01, 0.44916190D-01, 0.12476484D+01, 0.84881719D-02, - + 0.26002316D+00, 0.26002316D+00, 0.46840163D-01, 0.46829358D-01, - + 0.46829358D-01, 0.46840163D-01, 0.12228611D+01, 0.12079175D-01, - + 0.26086160D+00, 0.26086160D+00, 0.48407661D-01, 0.48394850D-01, - + 0.48394850D-01, 0.48407661D-01, 0.11904608D+01, 0.15258316D-01, - + 0.26114245D+00, 0.26114245D+00, 0.49637207D-01, 0.49623039D-01, - + 0.49623039D-01, 0.49637207D-01, 0.11517779D+01, 0.18045530D-01, - + 0.26088927D+00, 0.26088927D+00, 0.50547429D-01, 0.50532475D-01, - + 0.50532475D-01, 0.50547429D-01, 0.11080570D+01, 0.20460680D-01, - + 0.26012660D+00, 0.26012660D+00, 0.51157841D-01, 0.51142601D-01, - + 0.51142601D-01, 0.51157841D-01, 0.10604534D+01, 0.22524392D-01, - + 0.25887973D+00, 0.25887973D+00, 0.51488547D-01, 0.51473455D-01, - + 0.51473455D-01, 0.51488547D-01, 0.10100286D+01, 0.24257785D-01/ - DATA ((CALCPI(I,K,9 ),I=1,8), K=10,18) / - + 0.25717463D+00, 0.25717463D+00, 0.51560086D-01, 0.51545514D-01, - + 0.51545514D-01, 0.51560086D-01, 0.95774231D+00, 0.25682336D-01, - + 0.25503783D+00, 0.25503783D+00, 0.51393280D-01, 0.51379545D-01, - + 0.51379545D-01, 0.51393280D-01, 0.90445031D+00, 0.26819749D-01, - + 0.25249633D+00, 0.25249633D+00, 0.51009049D-01, 0.50996415D-01, - + 0.50996415D-01, 0.51009049D-01, 0.85090359D+00, 0.27691789D-01, - + 0.24957740D+00, 0.24957740D+00, 0.50428241D-01, 0.50416926D-01, - + 0.50416926D-01, 0.50428241D-01, 0.79774993D+00, 0.28320122D-01, - + 0.24630848D+00, 0.24630848D+00, 0.49671453D-01, 0.49661632D-01, - + 0.49661632D-01, 0.49671453D-01, 0.74553722D+00, 0.28726156D-01, - + 0.24271699D+00, 0.24271699D+00, 0.48758866D-01, 0.48750672D-01, - + 0.48750672D-01, 0.48758866D-01, 0.69471827D+00, 0.28930879D-01, - + 0.23883021D+00, 0.23883021D+00, 0.47710084D-01, 0.47703616D-01, - + 0.47703616D-01, 0.47710084D-01, 0.64565687D+00, 0.28954713D-01, - + 0.23467506D+00, 0.23467506D+00, 0.46543992D-01, 0.46539315D-01, - + 0.46539315D-01, 0.46543992D-01, 0.59863493D+00, 0.28817373D-01, - + 0.23027803D+00, 0.23027803D+00, 0.45278628D-01, 0.45275779D-01, - + 0.45275779D-01, 0.45278628D-01, 0.55386011D+00, 0.28537751D-01/ - DATA ((CALCPI(I,K,9 ),I=1,8), K=19,20) / - + 0.22566501D+00, 0.22566501D+00, 0.43931080D-01, 0.43930068D-01, - + 0.43930068D-01, 0.43931080D-01, 0.51147390D+00, 0.28133812D-01, - + 0.22086116D+00, 0.22086116D+00, 0.42517397D-01, 0.42518208D-01, - + 0.42518208D-01, 0.42517397D-01, 0.47155983D+00, 0.27622508D-01/ - DATA ((CALCPI(I,K,10),I=1,8), K=1,9) / - + 0.25832112D+00, 0.25832112D+00, 0.28960672D-01, 0.28960672D-01, - + 0.28960672D-01, 0.28960672D-01, 0.10839859D+01, 0.23852448D-17, - + 0.25846394D+00, 0.25846394D+00, 0.30539011D-01, 0.30537508D-01, - + 0.30537508D-01, 0.30539011D-01, 0.10505497D+01, 0.31277892D-02, - + 0.25803268D+00, 0.25803268D+00, 0.31792680D-01, 0.31790208D-01, - + 0.31790208D-01, 0.31792680D-01, 0.10110277D+01, 0.58632227D-02, - + 0.25706457D+00, 0.25706457D+00, 0.32748875D-01, 0.32745880D-01, - + 0.32745880D-01, 0.32748875D-01, 0.96693666D+00, 0.82367171D-02, - + 0.25559005D+00, 0.25559005D+00, 0.33429793D-01, 0.33426657D-01, - + 0.33426657D-01, 0.33429793D-01, 0.91947643D+00, 0.10272905D-01, - + 0.25364116D+00, 0.25364116D+00, 0.33858861D-01, 0.33855906D-01, - + 0.33855906D-01, 0.33858861D-01, 0.86974126D+00, 0.11997545D-01, - + 0.25124881D+00, 0.25124881D+00, 0.34058406D-01, 0.34055898D-01, - + 0.34055898D-01, 0.34058406D-01, 0.81870325D+00, 0.13435082D-01, - + 0.24844356D+00, 0.24844356D+00, 0.34050212D-01, 0.34048367D-01, - + 0.34048367D-01, 0.34050212D-01, 0.76720685D+00, 0.14609274D-01, - + 0.24525556D+00, 0.24525556D+00, 0.33855439D-01, 0.33854431D-01, - + 0.33854431D-01, 0.33855439D-01, 0.71597830D+00, 0.15543132D-01/ - DATA ((CALCPI(I,K,10),I=1,8), K=10,18) / - + 0.24171455D+00, 0.24171455D+00, 0.33494520D-01, 0.33494484D-01, - + 0.33494484D-01, 0.33494520D-01, 0.66562790D+00, 0.16258838D-01, - + 0.23784979D+00, 0.23784979D+00, 0.32987116D-01, 0.32988149D-01, - + 0.32988149D-01, 0.32987116D-01, 0.61665720D+00, 0.16777720D-01, - + 0.23369006D+00, 0.23369006D+00, 0.32352031D-01, 0.32354201D-01, - + 0.32354201D-01, 0.32352031D-01, 0.56946665D+00, 0.17120189D-01, - + 0.22926354D+00, 0.22926354D+00, 0.31607147D-01, 0.31610494D-01, - + 0.31610494D-01, 0.31607147D-01, 0.52436404D+00, 0.17305679D-01, - + 0.22459780D+00, 0.22459780D+00, 0.30769357D-01, 0.30773896D-01, - + 0.30773896D-01, 0.30769357D-01, 0.48157360D+00, 0.17352600D-01, - + 0.21971966D+00, 0.21971966D+00, 0.29854510D-01, 0.29860234D-01, - + 0.29860234D-01, 0.29854510D-01, 0.44124553D+00, 0.17278283D-01, - + 0.21465516D+00, 0.21465516D+00, 0.28877363D-01, 0.28884249D-01, - + 0.28884249D-01, 0.28877363D-01, 0.40346553D+00, 0.17098949D-01, - + 0.20942947D+00, 0.20942947D+00, 0.27851556D-01, 0.27859564D-01, - + 0.27859564D-01, 0.27851556D-01, 0.36826407D+00, 0.16829679D-01, - + 0.20406685D+00, 0.20406685D+00, 0.26789589D-01, 0.26798665D-01, - + 0.26798665D-01, 0.26789589D-01, 0.33562547D+00, 0.16484402D-01/ - DATA ((CALCPI(I,K,10),I=1,8), K=19,20) / - + 0.19859055D+00, 0.19859055D+00, 0.25702823D-01, 0.25712905D-01, - + 0.25712905D-01, 0.25702823D-01, 0.30549636D+00, 0.16075896D-01, - + 0.19302282D+00, 0.19302282D+00, 0.24601491D-01, 0.24612506D-01, - + 0.24612506D-01, 0.24601491D-01, 0.27779349D+00, 0.15615799D-01/ - DATA ((CALCPI(I,K,11),I=1,8), K=1,9) / - + 0.25965109D+00, 0.25965109D+00, 0.20571046D-01, 0.20571046D-01, - + 0.20571046D-01, 0.20571046D-01, 0.91677136D+00, 0.23852448D-17, - + 0.25773527D+00, 0.25773527D+00, 0.21504001D-01, 0.21504079D-01, - + 0.21504079D-01, 0.21504001D-01, 0.86884765D+00, 0.22017070D-02, - + 0.25532059D+00, 0.25532059D+00, 0.22180457D-01, 0.22180859D-01, - + 0.22180859D-01, 0.22180457D-01, 0.81844202D+00, 0.40795342D-02, - + 0.25245013D+00, 0.25245013D+00, 0.22629676D-01, 0.22630592D-01, - + 0.22630592D-01, 0.22629676D-01, 0.76678664D+00, 0.56666584D-02, - + 0.24915877D+00, 0.24915877D+00, 0.22874877D-01, 0.22876456D-01, - + 0.22876456D-01, 0.22874877D-01, 0.71480295D+00, 0.69893088D-02, - + 0.24548165D+00, 0.24548165D+00, 0.22939078D-01, 0.22941430D-01, - + 0.22941430D-01, 0.22939078D-01, 0.66326481D+00, 0.80733850D-02, - + 0.24145225D+00, 0.24145225D+00, 0.22843625D-01, 0.22846828D-01, - + 0.22846828D-01, 0.22843625D-01, 0.61282237D+00, 0.89428821D-02, - + 0.23710290D+00, 0.23710290D+00, 0.22608528D-01, 0.22612631D-01, - + 0.22612631D-01, 0.22608528D-01, 0.56399578D+00, 0.96202862D-02, - + 0.23246494D+00, 0.23246494D+00, 0.22252557D-01, 0.22257586D-01, - + 0.22257586D-01, 0.22252557D-01, 0.51719258D+00, 0.10126694D-01/ - DATA ((CALCPI(I,K,11),I=1,8), K=10,18) / - + 0.22756863D+00, 0.22756863D+00, 0.21793214D-01, 0.21799172D-01, - + 0.21799172D-01, 0.21793214D-01, 0.47271709D+00, 0.10481803D-01, - + 0.22244329D+00, 0.22244329D+00, 0.21246762D-01, 0.21253633D-01, - + 0.21253633D-01, 0.21246762D-01, 0.43078194D+00, 0.10703969D-01, - + 0.21711722D+00, 0.21711722D+00, 0.20628233D-01, 0.20635988D-01, - + 0.20635988D-01, 0.20628233D-01, 0.39151968D+00, 0.10810222D-01, - + 0.21161773D+00, 0.21161773D+00, 0.19951446D-01, 0.19960041D-01, - + 0.19960041D-01, 0.19951446D-01, 0.35499405D+00, 0.10816298D-01, - + 0.20597110D+00, 0.20597110D+00, 0.19229015D-01, 0.19238398D-01, - + 0.19238398D-01, 0.19229015D-01, 0.32121090D+00, 0.10736660D-01, - + 0.20020258D+00, 0.20020258D+00, 0.18472376D-01, 0.18482486D-01, - + 0.18482486D-01, 0.18472376D-01, 0.29012844D+00, 0.10584531D-01, - + 0.19433630D+00, 0.19433630D+00, 0.17691814D-01, 0.17702584D-01, - + 0.17702584D-01, 0.17691814D-01, 0.26166677D+00, 0.10371926D-01, - + 0.18839533D+00, 0.18839533D+00, 0.16896497D-01, 0.16907855D-01, - + 0.16907855D-01, 0.16896497D-01, 0.23571664D+00, 0.10109695D-01, - + 0.18240157D+00, 0.18240157D+00, 0.16094523D-01, 0.16106395D-01, - + 0.16106395D-01, 0.16094523D-01, 0.21214719D+00, 0.98075669D-02/ - DATA ((CALCPI(I,K,11),I=1,8), K=19,20) / - + 0.17637578D+00, 0.17637578D+00, 0.15292969D-01, 0.15305279D-01, - + 0.15305279D-01, 0.15292969D-01, 0.19081278D+00, 0.94742091D-02, - + 0.17033758D+00, 0.17033758D+00, 0.14497950D-01, 0.14510623D-01, - + 0.14510623D-01, 0.14497950D-01, 0.17155890D+00, 0.91172811D-02/ - DATA ((CALCPI(I,K,12),I=1,8), K=1,9) / - + 0.25879811D+00, 0.25879811D+00, 0.14270896D-01, 0.14270896D-01, - + 0.14270896D-01, 0.14270896D-01, 0.76643707D+00, 0.11926224D-17, - + 0.25510266D+00, 0.25510266D+00, 0.14821666D-01, 0.14822448D-01, - + 0.14822448D-01, 0.14821666D-01, 0.71227877D+00, 0.15418105D-02, - + 0.25099427D+00, 0.25099427D+00, 0.15176761D-01, 0.15178394D-01, - + 0.15178394D-01, 0.15176761D-01, 0.65839243D+00, 0.28266503D-02, - + 0.24651783D+00, 0.24651783D+00, 0.15363638D-01, 0.15366162D-01, - + 0.15366162D-01, 0.15363638D-01, 0.60565244D+00, 0.38861289D-02, - + 0.24170962D+00, 0.24170962D+00, 0.15403683D-01, 0.15407113D-01, - + 0.15407113D-01, 0.15403683D-01, 0.55466879D+00, 0.47448491D-02, - + 0.23660526D+00, 0.23660526D+00, 0.15317134D-01, 0.15321464D-01, - + 0.15321464D-01, 0.15317134D-01, 0.50589349D+00, 0.54261089D-02, - + 0.23123850D+00, 0.23123850D+00, 0.15122407D-01, 0.15127614D-01, - + 0.15127614D-01, 0.15122407D-01, 0.45967243D+00, 0.59511441D-02, - + 0.22564155D+00, 0.22564155D+00, 0.14836254D-01, 0.14842303D-01, - + 0.14842303D-01, 0.14836254D-01, 0.41623954D+00, 0.63393360D-02, - + 0.21984527D+00, 0.21984527D+00, 0.14473973D-01, 0.14480816D-01, - + 0.14480816D-01, 0.14473973D-01, 0.37573706D+00, 0.66084403D-02/ - DATA ((CALCPI(I,K,12),I=1,8), K=10,18) / - + 0.21387917D+00, 0.21387917D+00, 0.14049427D-01, 0.14057009D-01, - + 0.14057009D-01, 0.14049427D-01, 0.33822838D+00, 0.67746355D-02, - + 0.20777152D+00, 0.20777152D+00, 0.13575140D-01, 0.13583397D-01, - + 0.13583397D-01, 0.13575140D-01, 0.30371095D+00, 0.68526308D-02, - + 0.20154932D+00, 0.20154932D+00, 0.13062362D-01, 0.13071226D-01, - + 0.13071226D-01, 0.13062362D-01, 0.27212883D+00, 0.68557464D-02, - + 0.19523836D+00, 0.19523836D+00, 0.12521126D-01, 0.12530527D-01, - + 0.12530527D-01, 0.12521126D-01, 0.24338378D+00, 0.67959882D-02, - + 0.18886319D+00, 0.18886319D+00, 0.11960319D-01, 0.11970185D-01, - + 0.11970185D-01, 0.11960319D-01, 0.21734539D+00, 0.66841218D-02, - + 0.18244713D+00, 0.18244713D+00, 0.11387747D-01, 0.11398003D-01, - + 0.11398003D-01, 0.11387747D-01, 0.19386016D+00, 0.65297451D-02, - + 0.17601222D+00, 0.17601222D+00, 0.10810194D-01, 0.10820769D-01, - + 0.10820769D-01, 0.10810194D-01, 0.17275924D+00, 0.63413614D-02, - + 0.16957930D+00, 0.16957930D+00, 0.10233498D-01, 0.10244321D-01, - + 0.10244321D-01, 0.10233498D-01, 0.15386517D+00, 0.61264529D-02, - + 0.16316789D+00, 0.16316789D+00, 0.96626210D-02, 0.96736224D-02, - + 0.96736224D-02, 0.96626210D-02, 0.13699740D+00, 0.58915553D-02/ - DATA ((CALCPI(I,K,12),I=1,8), K=19,20) / - + 0.15679627D+00, 0.15679627D+00, 0.91017156D-02, 0.91128305D-02, - + 0.91128305D-02, 0.91017156D-02, 0.12197683D+00, 0.56423328D-02, - + 0.15048145D+00, 0.15048145D+00, 0.85542025D-02, 0.85653690D-02, - + 0.85653690D-02, 0.85542025D-02, 0.10862933D+00, 0.53836526D-02/ - DATA ((CALCPI(I,K,13),I=1,8), K=1,9) / - + 0.25612786D+00, 0.25612786D+00, 0.96354581D-02, 0.96354581D-02, - + 0.96354581D-02, 0.96354581D-02, 0.63230272D+00,-0.10842022D-18, - + 0.25084444D+00, 0.25084444D+00, 0.99594084D-02, 0.99604949D-02, - + 0.99604949D-02, 0.99594084D-02, 0.57717980D+00, 0.10657702D-02, - + 0.24524055D+00, 0.24524055D+00, 0.10138463D-01, 0.10140599D-01, - + 0.10140599D-01, 0.10138463D-01, 0.52432560D+00, 0.19345699D-02, - + 0.23936064D+00, 0.23936064D+00, 0.10196373D-01, 0.10199504D-01, - + 0.10199504D-01, 0.10196373D-01, 0.47424860D+00, 0.26341541D-02, - + 0.23324074D+00, 0.23324074D+00, 0.10151392D-01, 0.10155456D-01, - + 0.10155456D-01, 0.10151392D-01, 0.42725979D+00, 0.31858901D-02, - + 0.22691557D+00, 0.22691557D+00, 0.10020105D-01, 0.10025031D-01, - + 0.10025031D-01, 0.10020105D-01, 0.38352407D+00, 0.36092957D-02, - + 0.22041799D+00, 0.22041799D+00, 0.98173862D-02, 0.98230987D-02, - + 0.98230987D-02, 0.98173862D-02, 0.34312781D+00, 0.39219477D-02, - + 0.21377912D+00, 0.21377912D+00, 0.95564254D-02, 0.95628451D-02, - + 0.95628451D-02, 0.95564254D-02, 0.30607374D+00, 0.41395380D-02, - + 0.20702852D+00, 0.20702852D+00, 0.92489818D-02, 0.92560275D-02, - + 0.92560275D-02, 0.92489818D-02, 0.27230038D+00, 0.42761561D-02/ - DATA ((CALCPI(I,K,13),I=1,8), K=10,18) / - + 0.20019427D+00, 0.20019427D+00, 0.89054557D-02, 0.89130459D-02, - + 0.89130459D-02, 0.89054557D-02, 0.24169604D+00, 0.43443792D-02, - + 0.19330303D+00, 0.19330303D+00, 0.85350013D-02, 0.85430549D-02, - + 0.85430549D-02, 0.85350013D-02, 0.21411055D+00, 0.43554021D-02, - + 0.18638002D+00, 0.18638002D+00, 0.81456233D-02, 0.81540613D-02, - + 0.81540613D-02, 0.81456233D-02, 0.18936651D+00, 0.43191475D-02, - + 0.17944908D+00, 0.17944908D+00, 0.77442653D-02, 0.77530111D-02, - + 0.77530111D-02, 0.77442653D-02, 0.16726861D+00, 0.42443660D-02, - + 0.17253267D+00, 0.17253267D+00, 0.73368952D-02, 0.73458755D-02, - + 0.73458755D-02, 0.73368952D-02, 0.14761164D+00, 0.41387306D-02, - + 0.16565185D+00, 0.16565185D+00, 0.69285874D-02, 0.69377329D-02, - + 0.69377329D-02, 0.69285874D-02, 0.13018709D+00, 0.40089273D-02, - + 0.15882630D+00, 0.15882630D+00, 0.65236030D-02, 0.65328486D-02, - + 0.65328486D-02, 0.65236030D-02, 0.11478856D+00, 0.38607412D-02, - + 0.15207430D+00, 0.15207430D+00, 0.61254672D-02, 0.61347526D-02, - + 0.61347526D-02, 0.61254672D-02, 0.10121588D+00, 0.36991402D-02, - + 0.14541274D+00, 0.14541274D+00, 0.57370450D-02, 0.57463147D-02, - + 0.57463147D-02, 0.57370450D-02, 0.89278292D-01, 0.35283545D-02/ - DATA ((CALCPI(I,K,13),I=1,8), K=19,20) / - + 0.13885713D+00, 0.13885713D+00, 0.53606133D-02, 0.53698169D-02, - + 0.53698169D-02, 0.53606133D-02, 0.78796647D-01, 0.33519532D-02, - + 0.13242156D+00, 0.13242156D+00, 0.49979302D-02, 0.50070221D-02, - + 0.50070221D-02, 0.49979302D-02, 0.69604844D-01, 0.31729167D-02/ - DATA ((CALCPI(I,K,14),I=1,8), K=1,9) / - + 0.25177353D+00, 0.25177353D+00, 0.63042492D-02, 0.63042492D-02, - + 0.63042492D-02, 0.63042492D-02, 0.51366824D+00,-0.32526065D-18, - + 0.24504651D+00, 0.24504651D+00, 0.64940417D-02, 0.64952158D-02, - + 0.64952158D-02, 0.64940417D-02, 0.46100530D+00, 0.72215456D-03, - + 0.23809737D+00, 0.23809737D+00, 0.65797224D-02, 0.65819651D-02, - + 0.65819651D-02, 0.65797224D-02, 0.41195408D+00, 0.12984830D-02, - + 0.23096882D+00, 0.23096882D+00, 0.65805932D-02, 0.65837976D-02, - + 0.65837976D-02, 0.65805932D-02, 0.36668482D+00, 0.17518714D-02, - + 0.22369566D+00, 0.22369566D+00, 0.65113670D-02, 0.65154268D-02, - + 0.65154268D-02, 0.65113670D-02, 0.32524568D+00, 0.20998136D-02, - + 0.21631089D+00, 0.21631089D+00, 0.63848855D-02, 0.63896963D-02, - + 0.63896963D-02, 0.63848855D-02, 0.28756533D+00, 0.23577495D-02, - + 0.20884573D+00, 0.20884573D+00, 0.62125425D-02, 0.62180031D-02, - + 0.62180031D-02, 0.62125425D-02, 0.25352523D+00, 0.25394573D-02, - + 0.20132955D+00, 0.20132955D+00, 0.60042098D-02, 0.60102228D-02, - + 0.60102228D-02, 0.60042098D-02, 0.22295563D+00, 0.26570028D-02, - + 0.19379003D+00, 0.19379003D+00, 0.57684967D-02, 0.57749692D-02, - + 0.57749692D-02, 0.57684967D-02, 0.19565154D+00, 0.27210248D-02/ - DATA ((CALCPI(I,K,14),I=1,8), K=10,18) / - + 0.18625325D+00, 0.18625325D+00, 0.55128456D-02, 0.55196899D-02, - + 0.55196899D-02, 0.55128456D-02, 0.17138562D+00, 0.27408469D-02, - + 0.17874369D+00, 0.17874369D+00, 0.52436469D-02, 0.52507806D-02, - + 0.52507806D-02, 0.52436469D-02, 0.14991744D+00, 0.27246091D-02, - + 0.17128429D+00, 0.17128429D+00, 0.49663453D-02, 0.49736921D-02, - + 0.49736921D-02, 0.49663453D-02, 0.13100207D+00, 0.26793859D-02, - + 0.16389643D+00, 0.16389643D+00, 0.46855324D-02, 0.46930216D-02, - + 0.46930216D-02, 0.46855324D-02, 0.11439664D+00, 0.26112898D-02, - + 0.15659995D+00, 0.15659995D+00, 0.44050347D-02, 0.44126020D-02, - + 0.44126020D-02, 0.44050347D-02, 0.99865574D-01, 0.25255689D-02, - + 0.14941313D+00, 0.14941313D+00, 0.41279969D-02, 0.41355839D-02, - + 0.41355839D-02, 0.41279969D-02, 0.87184474D-01, 0.24266972D-02, - + 0.14235275D+00, 0.14235275D+00, 0.38569581D-02, 0.38645125D-02, - + 0.38645125D-02, 0.38569581D-02, 0.76142868D-01, 0.23184578D-02, - + 0.13543401D+00, 0.13543401D+00, 0.35939252D-02, 0.36014005D-02, - + 0.36014005D-02, 0.35939252D-02, 0.66545972D-01, 0.22040221D-02, - + 0.12867062D+00, 0.12867062D+00, 0.33404406D-02, 0.33477961D-02, - + 0.33477961D-02, 0.33404406D-02, 0.58215662D-01, 0.20860219D-02/ - DATA ((CALCPI(I,K,14),I=1,8), K=19,20) / - + 0.12207475D+00, 0.12207475D+00, 0.30976447D-02, 0.31048451D-02, - + 0.31048451D-02, 0.30976447D-02, 0.50990753D-01, 0.19666172D-02, - + 0.11565711D+00, 0.11565711D+00, 0.28663337D-02, 0.28733488D-02, - + 0.28733488D-02, 0.28663337D-02, 0.44726750D-01, 0.18475573D-02/ - DATA ((CALCPI(I,K,15),I=1,8), K=1,9) / - + 0.24575242D+00, 0.24575242D+00, 0.39751539D-02, 0.39751539D-02, - + 0.39751539D-02, 0.39751539D-02, 0.40981099D+00, 0.65052130D-18, - + 0.23770237D+00, 0.23770237D+00, 0.40858460D-02, 0.40869562D-02, - + 0.40869562D-02, 0.40858460D-02, 0.36179506D+00, 0.47613270D-03, - + 0.22953528D+00, 0.22953528D+00, 0.41242411D-02, 0.41263228D-02, - + 0.41263228D-02, 0.41242411D-02, 0.31817903D+00, 0.84836616D-03, - + 0.22129122D+00, 0.22129122D+00, 0.41051569D-02, 0.41080800D-02, - + 0.41080800D-02, 0.41051569D-02, 0.27884363D+00, 0.11345171D-02, - + 0.21300294D+00, 0.21300294D+00, 0.40398494D-02, 0.40434915D-02, - + 0.40434915D-02, 0.40398494D-02, 0.24362265D+00, 0.13481608D-02, - + 0.20470108D+00, 0.20470108D+00, 0.39377405D-02, 0.39419872D-02, - + 0.39419872D-02, 0.39377405D-02, 0.21226565D+00, 0.15008645D-02, - + 0.19641453D+00, 0.19641453D+00, 0.38071279D-02, 0.38118734D-02, - + 0.38118734D-02, 0.38071279D-02, 0.18450588D+00, 0.16028860D-02, - + 0.18817021D+00, 0.18817021D+00, 0.36550500D-02, 0.36601966D-02, - + 0.36601966D-02, 0.36550500D-02, 0.16005751D+00, 0.16630537D-02, - + 0.17999326D+00, 0.17999326D+00, 0.34875156D-02, 0.34929741D-02, - + 0.34929741D-02, 0.34875156D-02, 0.13862640D+00, 0.16890199D-02/ - DATA ((CALCPI(I,K,15),I=1,8), K=10,18) / - + 0.17190702D+00, 0.17190702D+00, 0.33096082D-02, 0.33152973D-02, - + 0.33152973D-02, 0.33096082D-02, 0.11992046D+00, 0.16873797D-02, - + 0.16393313D+00, 0.16393313D+00, 0.31255879D-02, 0.31314343D-02, - + 0.31314343D-02, 0.31255879D-02, 0.10365558D+00, 0.16637865D-02, - + 0.15609148D+00, 0.15609148D+00, 0.29389907D-02, 0.29449289D-02, - + 0.29449289D-02, 0.29389907D-02, 0.89560899D-01, 0.16230630D-02, - + 0.14840025D+00, 0.14840025D+00, 0.27527137D-02, 0.27586853D-02, - + 0.27586853D-02, 0.27527137D-02, 0.77382365D-01, 0.15692957D-02, - + 0.14087590D+00, 0.14087590D+00, 0.25690932D-02, 0.25750472D-02, - + 0.25750472D-02, 0.25690932D-02, 0.66885018D-01, 0.15059217D-02, - + 0.13353322D+00, 0.13353322D+00, 0.23899777D-02, 0.23958695D-02, - + 0.23958695D-02, 0.23899777D-02, 0.57854248D-01, 0.14358084D-02, - + 0.12638528D+00, 0.12638528D+00, 0.22167932D-02, 0.22225844D-02, - + 0.22225844D-02, 0.22167932D-02, 0.50096238D-01, 0.13613257D-02, - + 0.11944349D+00, 0.11944349D+00, 0.20506038D-02, 0.20562621D-02, - + 0.20562621D-02, 0.20506038D-02, 0.43437702D-01, 0.12844116D-02, - + 0.11271763D+00, 0.11271763D+00, 0.18921664D-02, 0.18976647D-02, - + 0.18976647D-02, 0.18921664D-02, 0.37725089D-01, 0.12066320D-02/ - DATA ((CALCPI(I,K,15),I=1,8), K=19,20) / - + 0.10621587D+00, 0.10621587D+00, 0.17419795D-02, 0.17472958D-02, - + 0.17472958D-02, 0.17419795D-02, 0.32823472D-01, 0.11292341D-02, - + 0.99944809D-01, 0.99944809D-01, 0.16003276D-02, 0.16054443D-02, - + 0.16054443D-02, 0.16003276D-02, 0.28615198D-01, 0.10531942D-02/ - DATA ((CALCPI(I,K,16),I=1,8), K=1,9) / - + 0.23802032D+00, 0.23802032D+00, 0.23986819D-02, 0.23986819D-02, - + 0.23986819D-02, 0.23986819D-02, 0.31998394D+00,-0.10842022D-18, - + 0.22875953D+00, 0.22875953D+00, 0.24626918D-02, 0.24636621D-02, - + 0.24636621D-02, 0.24626918D-02, 0.27792199D+00, 0.30282026D-03, - + 0.21949492D+00, 0.21949492D+00, 0.24785578D-02, 0.24803491D-02, - + 0.24803491D-02, 0.24785578D-02, 0.24058610D+00, 0.53488192D-03, - + 0.21026301D+00, 0.21026301D+00, 0.24569821D-02, 0.24594604D-02, - + 0.24594604D-02, 0.24569821D-02, 0.20762793D+00, 0.70923900D-03, - + 0.20109372D+00, 0.20109372D+00, 0.24061201D-02, 0.24091636D-02, - + 0.24091636D-02, 0.24061201D-02, 0.17872072D+00, 0.83585721D-03, - + 0.19201449D+00, 0.19201449D+00, 0.23324957D-02, 0.23359947D-02, - + 0.23359947D-02, 0.23324957D-02, 0.15349297D+00, 0.92291695D-03, - + 0.18305101D+00, 0.18305101D+00, 0.22418345D-02, 0.22456909D-02, - + 0.22456909D-02, 0.22418345D-02, 0.13158424D+00, 0.97764917D-03, - + 0.17422686D+00, 0.17422686D+00, 0.21389009D-02, 0.21430272D-02, - + 0.21430272D-02, 0.21389009D-02, 0.11264366D+00, 0.10061823D-02, - + 0.16556367D+00, 0.16556367D+00, 0.20276779D-02, 0.20319965D-02, - + 0.20319965D-02, 0.20276779D-02, 0.96334645D-01, 0.10137412D-02/ - DATA ((CALCPI(I,K,16),I=1,8), K=10,18) / - + 0.15708114D+00, 0.15708114D+00, 0.19114664D-02, 0.19159092D-02, - + 0.19159092D-02, 0.19114664D-02, 0.82341921D-01, 0.10047596D-02, - + 0.14879705D+00, 0.14879705D+00, 0.17929667D-02, 0.17974743D-02, - + 0.17974743D-02, 0.17929667D-02, 0.70373881D-01, 0.98297281D-03, - + 0.14072726D+00, 0.14072726D+00, 0.16743616D-02, 0.16788826D-02, - + 0.16788826D-02, 0.16743616D-02, 0.60164413D-01, 0.95151031D-03, - + 0.13288576D+00, 0.13288576D+00, 0.15573858D-02, 0.15618762D-02, - + 0.15618762D-02, 0.15573858D-02, 0.51473534D-01, 0.91297372D-03, - + 0.12528468D+00, 0.12528468D+00, 0.14433891D-02, 0.14478117D-02, - + 0.14478117D-02, 0.14433891D-02, 0.44087108D-01, 0.86950738D-03, - + 0.11793429D+00, 0.11793429D+00, 0.13333942D-02, 0.13377180D-02, - + 0.13377180D-02, 0.13333942D-02, 0.37815928D-01, 0.82286184D-03, - + 0.11084309D+00, 0.11084309D+00, 0.12281469D-02, 0.12323465D-02, - + 0.12323465D-02, 0.12281469D-02, 0.32494234D-01, 0.77445028D-03, - + 0.10401779D+00, 0.10401779D+00, 0.11281622D-02, 0.11322172D-02, - + 0.11322172D-02, 0.11281622D-02, 0.27977991D-01, 0.72539909D-03, - + 0.97463439D-01, 0.97463439D-01, 0.10337644D-02, 0.10376590D-02, - + 0.10376590D-02, 0.10337644D-02, 0.24143013D-01, 0.67659252D-03/ - DATA ((CALCPI(I,K,16),I=1,8), K=19,20) / - + 0.91183419D-01, 0.91183419D-01, 0.94512214D-03, 0.94884464D-03, - + 0.94884464D-03, 0.94512214D-03, 0.20882905D-01, 0.62871192D-03, - + 0.85179574D-01, 0.85179574D-01, 0.86227955D-03, 0.86582162D-03, - + 0.86582162D-03, 0.86227955D-03, 0.18107040D-01, 0.58226995D-03/ - DATA ((CALCPI(I,K,17),I=1,8), K=1,9) / - + 0.22849684D+00, 0.22849684D+00, 0.13723279D-02, 0.13723279D-02, - + 0.13723279D-02, 0.13723279D-02, 0.24341185D+00, 0.20599841D-17, - + 0.21814046D+00, 0.21814046D+00, 0.14085736D-02, 0.14093568D-02, - + 0.14093568D-02, 0.14085736D-02, 0.20795831D+00, 0.18369815D-03, - + 0.20790326D+00, 0.20790326D+00, 0.14144576D-02, 0.14158835D-02, - + 0.14158835D-02, 0.14144576D-02, 0.17718140D+00, 0.32182400D-03, - + 0.19781707D+00, 0.19781707D+00, 0.13971715D-02, 0.13991185D-02, - + 0.13991185D-02, 0.13971715D-02, 0.15057030D+00, 0.42329321D-03, - + 0.18790787D+00, 0.18790787D+00, 0.13622673D-02, 0.13646280D-02, - + 0.13646280D-02, 0.13622673D-02, 0.12769314D+00, 0.49497766D-03, - + 0.17819872D+00, 0.17819872D+00, 0.13139597D-02, 0.13166402D-02, - + 0.13166402D-02, 0.13139597D-02, 0.10811239D+00, 0.54228532D-03, - + 0.16871092D+00, 0.16871092D+00, 0.12559563D-02, 0.12588747D-02, - + 0.12588747D-02, 0.12559563D-02, 0.91423399D-01, 0.57000173D-03, - + 0.15946347D+00, 0.15946347D+00, 0.11912927D-02, 0.11943780D-02, - + 0.11943780D-02, 0.11912927D-02, 0.77254110D-01, 0.58213097D-03, - + 0.15047321D+00, 0.15047321D+00, 0.11224534D-02, 0.11256447D-02, - + 0.11256447D-02, 0.11224534D-02, 0.65263768D-01, 0.58203167D-03/ - DATA ((CALCPI(I,K,17),I=1,8), K=10,18) / - + 0.14175490D+00, 0.14175490D+00, 0.10514589D-02, 0.10547040D-02, - + 0.10547040D-02, 0.10514589D-02, 0.55146147D-01, 0.57251426D-03, - + 0.13332119D+00, 0.13332119D+00, 0.97992289D-03, 0.98317770D-03, - + 0.98317770D-03, 0.97992289D-03, 0.46628587D-01, 0.55590776D-03, - + 0.12518267D+00, 0.12518267D+00, 0.90911521D-03, 0.91234284D-03, - + 0.91234284D-03, 0.90911521D-03, 0.39470762D-01, 0.53412985D-03, - + 0.11734793D+00, 0.11734793D+00, 0.84001331D-03, 0.84318330D-03, - + 0.84318330D-03, 0.84001331D-03, 0.33462929D-01, 0.50874553D-03, - + 0.10982357D+00, 0.10982357D+00, 0.77334844D-03, 0.77643606D-03, - + 0.77643606D-03, 0.77334844D-03, 0.28423477D-01, 0.48101891D-03, - + 0.10261430D+00, 0.10261430D+00, 0.70964688D-03, 0.71263245D-03, - + 0.71263245D-03, 0.70964688D-03, 0.24196408D-01, 0.45195960D-03, - + 0.95722986D-01, 0.95722986D-01, 0.64926600D-03, 0.65213430D-03, - + 0.65213430D-03, 0.64926600D-03, 0.20648794D-01, 0.42236335D-03, - + 0.89150754D-01, 0.89150754D-01, 0.59242565D-03, 0.59516536D-03, - + 0.59516536D-03, 0.59242565D-03, 0.17668059D-01, 0.39284740D-03, - + 0.82897064D-01, 0.82897064D-01, 0.53923530D-03, 0.54183849D-03, - + 0.54183849D-03, 0.53923530D-03, 0.15159374D-01, 0.36388128D-03/ - DATA ((CALCPI(I,K,17),I=1,8), K=19,20) / - + 0.76959826D-01, 0.76959826D-01, 0.48971741D-03, 0.49217904D-03, - + 0.49217904D-03, 0.48971741D-03, 0.13043364D-01, 0.33581336D-03, - + 0.71335508D-01, 0.71335508D-01, 0.44382708D-03, 0.44614461D-03, - + 0.44614461D-03, 0.44382708D-03, 0.11253923D-01, 0.30889356D-03/ - DATA ((CALCPI(I,K,18),I=1,8), K=1,9) / - + 0.21707483D+00, 0.21707483D+00, 0.73510510D-03, 0.73510510D-03, - + 0.73510510D-03, 0.73510510D-03, 0.17928739D+00,-0.35914197D-18, - + 0.20575033D+00, 0.20575033D+00, 0.75465779D-03, 0.75523717D-03, - + 0.75523717D-03, 0.75465779D-03, 0.15059863D+00, 0.10462869D-03, - + 0.19467944D+00, 0.19467944D+00, 0.75645398D-03, 0.75749891D-03, - + 0.75749891D-03, 0.75645398D-03, 0.12624355D+00, 0.18197158D-03, - + 0.18388760D+00, 0.18388760D+00, 0.74487900D-03, 0.74629248D-03, - + 0.74629248D-03, 0.74487900D-03, 0.10561678D+00, 0.23758744D-03, - + 0.17339526D+00, 0.17339526D+00, 0.72342403D-03, 0.72512180D-03, - + 0.72512180D-03, 0.72342403D-03, 0.88234668D-01, 0.27585990D-03, - + 0.16321947D+00, 0.16321947D+00, 0.69457725D-03, 0.69648679D-03, - + 0.69648679D-03, 0.69457725D-03, 0.73643508D-01, 0.30007333D-03, - + 0.15337545D+00, 0.15337545D+00, 0.66055268D-03, 0.66261193D-03, - + 0.66261193D-03, 0.66055268D-03, 0.61437212D-01, 0.31315650D-03, - + 0.14387589D+00, 0.14387589D+00, 0.62314382D-03, 0.62530004D-03, - + 0.62530004D-03, 0.62314382D-03, 0.51258263D-01, 0.31753900D-03, - + 0.13473123D+00, 0.13473123D+00, 0.58378747D-03, 0.58599623D-03, - + 0.58599623D-03, 0.58378747D-03, 0.42791125D-01, 0.31522635D-03/ - DATA ((CALCPI(I,K,18),I=1,8), K=10,18) / - + 0.12594964D+00, 0.12594964D+00, 0.54363293D-03, 0.54585716D-03, - + 0.54585716D-03, 0.54363293D-03, 0.35761787D-01, 0.30787701D-03, - + 0.11753706D+00, 0.11753706D+00, 0.50357781D-03, 0.50578694D-03, - + 0.50578694D-03, 0.50357781D-03, 0.29934302D-01, 0.29684490D-03, - + 0.10949734D+00, 0.10949734D+00, 0.46430950D-03, 0.46647869D-03, - + 0.46647869D-03, 0.46430950D-03, 0.25106893D-01, 0.28322667D-03, - + 0.10183227D+00, 0.10183227D+00, 0.42633993D-03, 0.42844940D-03, - + 0.42844940D-03, 0.42633993D-03, 0.21108414D-01, 0.26790152D-03, - + 0.94541657D-01, 0.94541657D-01, 0.39003592D-03, 0.39207023D-03, - + 0.39207023D-03, 0.39003592D-03, 0.17794878D-01, 0.25156582D-03, - + 0.87623499D-01, 0.87623499D-01, 0.35564601D-03, 0.35759352D-03, - + 0.35759352D-03, 0.35564601D-03, 0.15045868D-01, 0.23476386D-03, - + 0.81074038D-01, 0.81074038D-01, 0.32332339D-03, 0.32517571D-03, - + 0.32517571D-03, 0.32332339D-03, 0.12761147D-01, 0.21791416D-03, - + 0.74887922D-01, 0.74887922D-01, 0.29314573D-03, 0.29489728D-03, - + 0.29489728D-03, 0.29314573D-03, 0.10857858D-01, 0.20133223D-03, - + 0.69058330D-01, 0.69058330D-01, 0.26513197D-03, 0.26677950D-03, - + 0.26677950D-03, 0.26513197D-03, 0.92678860D-02, 0.18525014D-03/ - DATA ((CALCPI(I,K,18),I=1,8), K=19,20) / - + 0.63577119D-01, 0.63577119D-01, 0.23925617D-03, 0.24079840D-03, - + 0.24079840D-03, 0.23925617D-03, 0.79353281D-02, 0.16983269D-03, - + 0.58434971D-01, 0.58434971D-01, 0.21545905D-03, 0.21689632D-03, - + 0.21689632D-03, 0.21545905D-03, 0.68144746D-02, 0.15519119D-03/ - DATA ((CALCPI(I,K,19),I=1,8), K=1,9) / - + 0.20361916D+00, 0.20361916D+00, 0.36223666D-03, 0.36223666D-03, - + 0.36223666D-03, 0.36223666D-03, 0.12676601D+00, 0.19718927D-17, - + 0.19147582D+00, 0.19147582D+00, 0.37174717D-03, 0.37217687D-03, - + 0.37217687D-03, 0.37174717D-03, 0.10461111D+00, 0.54642443D-04, - + 0.17973344D+00, 0.17973344D+00, 0.37197592D-03, 0.37274080D-03, - + 0.37274080D-03, 0.37197592D-03, 0.86231484D-01, 0.94521885D-04, - + 0.16840854D+00, 0.16840854D+00, 0.36523130D-03, 0.36625293D-03, - + 0.36625293D-03, 0.36523130D-03, 0.70993300D-01, 0.12267888D-03, - + 0.15751378D+00, 0.15751378D+00, 0.35348077D-03, 0.35469262D-03, - + 0.35469262D-03, 0.35348077D-03, 0.58410377D-01, 0.14163351D-03, - + 0.14705787D+00, 0.14705787D+00, 0.33801272D-03, 0.33935887D-03, - + 0.33935887D-03, 0.33801272D-03, 0.48055083D-01, 0.15315995D-03, - + 0.13704767D+00, 0.13704767D+00, 0.32000812D-03, 0.32144197D-03, - + 0.32144197D-03, 0.32000812D-03, 0.39554499D-01, 0.15887226D-03, - + 0.12748741D+00, 0.12748741D+00, 0.30042465D-03, 0.30190764D-03, - + 0.30190764D-03, 0.30042465D-03, 0.32592378D-01, 0.16010956D-03, - + 0.11837899D+00, 0.11837899D+00, 0.28001302D-03, 0.28151364D-03, - + 0.28151364D-03, 0.28001302D-03, 0.26899082D-01, 0.15796012D-03/ - DATA ((CALCPI(I,K,19),I=1,8), K=10,18) / - + 0.10972203D+00, 0.10972203D+00, 0.25936718D-03, 0.26085996D-03, - + 0.26085996D-03, 0.25936718D-03, 0.22247529D-01, 0.15331696D-03, - + 0.10151397D+00, 0.10151397D+00, 0.23894237D-03, 0.24040709D-03, - + 0.24040709D-03, 0.23894237D-03, 0.18447916D-01, 0.14690052D-03, - + 0.93750249D-01, 0.93750249D-01, 0.21907852D-03, 0.22049943D-03, - + 0.22049943D-03, 0.21907852D-03, 0.15342800D-01, 0.13928598D-03, - + 0.86424367D-01, 0.86424367D-01, 0.20002104D-03, 0.20138622D-03, - + 0.20138622D-03, 0.20002104D-03, 0.12802401D-01, 0.13092753D-03, - + 0.79528091D-01, 0.79528091D-01, 0.18193789D-03, 0.18323866D-03, - + 0.18323866D-03, 0.18193789D-03, 0.10720084D-01, 0.12217838D-03, - + 0.73051590D-01, 0.73051590D-01, 0.16493526D-03, 0.16616567D-03, - + 0.16616567D-03, 0.16493526D-03, 0.90089315D-02, 0.11330909D-03, - + 0.66983604D-01, 0.66983604D-01, 0.14907078D-03, 0.15022714D-03, - + 0.15022714D-03, 0.14907078D-03, 0.75985466D-02, 0.10452301D-03, - + 0.61311617D-01, 0.61311617D-01, 0.13436434D-03, 0.13544483D-03, - + 0.13544483D-03, 0.13436434D-03, 0.64319118D-02, 0.95969183D-04, - + 0.56022033D-01, 0.56022033D-01, 0.12080736D-03, 0.12181167D-03, - + 0.12181167D-03, 0.12080736D-03, 0.54630107D-02, 0.87753354D-04/ - DATA ((CALCPI(I,K,19),I=1,8), K=19,20) / - + 0.51100347D-01, 0.51100347D-01, 0.10837037D-03, 0.10929942D-03, - + 0.10929942D-03, 0.10837037D-03, 0.46549386D-02, 0.79947206D-04, - + 0.46531326D-01, 0.46531326D-01, 0.97009053D-04, 0.97864705D-04, - + 0.97864705D-04, 0.97009053D-04, 0.39780773D-02, 0.72595761D-04/ - DATA ((CALCPI(I,K,20),I=1,8), K=1,9) / - + 0.18795535D+00, 0.18795535D+00, 0.16002003D-03, 0.16002003D-03, - + 0.16002003D-03, 0.16002003D-03, 0.84958910D-01, 0.20803129D-17, - + 0.17517565D+00, 0.17517565D+00, 0.16366860D-03, 0.16396317D-03, - + 0.16396317D-03, 0.16366860D-03, 0.68804471D-01, 0.25133578D-04, - + 0.16295836D+00, 0.16295836D+00, 0.16331040D-03, 0.16382720D-03, - + 0.16382720D-03, 0.16331040D-03, 0.55727437D-01, 0.43430035D-04, - + 0.15130733D+00, 0.15130733D+00, 0.15986156D-03, 0.16054231D-03, - + 0.16054231D-03, 0.15986156D-03, 0.45126075D-01, 0.56215712D-04, - + 0.14022419D+00, 0.14022419D+00, 0.15425394D-03, 0.15505054D-03, - + 0.15505054D-03, 0.15425394D-03, 0.36554058D-01, 0.64729405D-04, - + 0.12970621D+00, 0.12970621D+00, 0.14702170D-03, 0.14789477D-03, - + 0.14789477D-03, 0.14702170D-03, 0.29642711D-01, 0.69770569D-04, - + 0.11974891D+00, 0.11974891D+00, 0.13869255D-03, 0.13961021D-03, - + 0.13961021D-03, 0.13869255D-03, 0.24077970D-01, 0.72101631D-04, - + 0.11034530D+00, 0.11034530D+00, 0.12970743D-03, 0.13064411D-03, - + 0.13064411D-03, 0.12970743D-03, 0.19602592D-01, 0.72367902D-04, - + 0.10148624D+00, 0.10148624D+00, 0.12040478D-03, 0.12134025D-03, - + 0.12134025D-03, 0.12040478D-03, 0.16004097D-01, 0.71086585D-04/ - DATA ((CALCPI(I,K,20),I=1,8), K=10,18) / - + 0.93160516D-01, 0.93160516D-01, 0.11105260D-03, 0.11197118D-03, - + 0.11197118D-03, 0.11105260D-03, 0.13109239D-01, 0.68682310D-04, - + 0.85355089D-01, 0.85355089D-01, 0.10185503D-03, 0.10274477D-03, - + 0.10274477D-03, 0.10185503D-03, 0.10777823D-01, 0.65496416D-04, - + 0.78055239D-01, 0.78055239D-01, 0.92961348D-04, 0.93813482D-04, - + 0.93813482D-04, 0.92961348D-04, 0.88962548D-02, 0.61798506D-04, - + 0.71244778D-01, 0.71244778D-01, 0.84476855D-04, 0.85285199D-04, - + 0.85285199D-04, 0.84476855D-04, 0.73734434D-02, 0.57799327D-04, - + 0.64906248D-01, 0.64906248D-01, 0.76471165D-04, 0.77231676D-04, - + 0.77231676D-04, 0.76471165D-04, 0.61369375D-02, 0.53660941D-04, - + 0.59021124D-01, 0.59021124D-01, 0.68985444D-04, 0.69695809D-04, - + 0.69695809D-04, 0.68985444D-04, 0.51289226D-02, 0.49505510D-04, - + 0.53570023D-01, 0.53570023D-01, 0.62038867D-04, 0.62698166D-04, - + 0.62698166D-04, 0.62038867D-04, 0.43034132D-02, 0.45423131D-04, - + 0.48532899D-01, 0.48532899D-01, 0.55634069D-04, 0.56242481D-04, - + 0.56242481D-04, 0.55634069D-04, 0.36241649D-02, 0.41478495D-04, - + 0.43889247D-01, 0.43889247D-01, 0.49761407D-04, 0.50319962D-04, - + 0.50319962D-04, 0.49761407D-04, 0.30625534D-02, 0.37716203D-04/ - DATA ((CALCPI(I,K,20),I=1,8), K=19,20) / - + 0.39618284D-01, 0.39618284D-01, 0.44402426D-04, 0.44912797D-04, - + 0.44912797D-04, 0.44402426D-04, 0.25958712D-02, 0.34165165D-04, - + 0.35699128D-01, 0.35699128D-01, 0.39532719D-04, 0.39997051D-04, - + 0.39997051D-04, 0.39532719D-04, 0.22061789D-02, 0.30842283D-04/ - DATA ((CALCPI(I,K,21),I=1,8), K=1,9) / - + 0.16984505D+00, 0.16984505D+00, 0.60885465D-04, 0.60885465D-04, - + 0.60885465D-04, 0.60885465D-04, 0.52924211D-01, 0.88345536D-18, - + 0.15666146D+00, 0.15666146D+00, 0.61446509D-04, 0.61623934D-04, - + 0.61623934D-04, 0.61446509D-04, 0.42003073D-01, 0.93958376D-05, - + 0.14421618D+00, 0.14421618D+00, 0.60899758D-04, 0.61206837D-04, - + 0.61206837D-04, 0.60899758D-04, 0.33396444D-01, 0.16418275D-04, - + 0.13249492D+00, 0.13249492D+00, 0.59362264D-04, 0.59761509D-04, - + 0.59761509D-04, 0.59362264D-04, 0.26585821D-01, 0.21383842D-04, - + 0.12148386D+00, 0.12148386D+00, 0.57143167D-04, 0.57604407D-04, - + 0.57604407D-04, 0.57143167D-04, 0.21198459D-01, 0.24749454D-04, - + 0.11116464D+00, 0.11116464D+00, 0.54369512D-04, 0.54868619D-04, - + 0.54868619D-04, 0.54369512D-04, 0.16947054D-01, 0.26767364D-04, - + 0.10151771D+00, 0.10151771D+00, 0.51206680D-04, 0.51724642D-04, - + 0.51724642D-04, 0.51206680D-04, 0.13590929D-01, 0.27712781D-04, - + 0.92521541D-01, 0.92521541D-01, 0.47812039D-04, 0.48334076D-04, - + 0.48334076D-04, 0.47812039D-04, 0.10940195D-01, 0.27837482D-04, - + 0.84153018D-01, 0.84153018D-01, 0.44305192D-04, 0.44820015D-04, - + 0.44820015D-04, 0.44305192D-04, 0.88441370D-02, 0.27342560D-04/ - DATA ((CALCPI(I,K,21),I=1,8), K=10,18) / - + 0.76387680D-01, 0.76387680D-01, 0.40783839D-04, 0.41283030D-04, - + 0.41283030D-04, 0.40783839D-04, 0.71824561D-02, 0.26396185D-04, - + 0.69199949D-01, 0.69199949D-01, 0.37324313D-04, 0.37801800D-04, - + 0.37801800D-04, 0.37324313D-04, 0.58607578D-02, 0.25135626D-04, - + 0.62563370D-01, 0.62563370D-01, 0.33982934D-04, 0.34434547D-04, - + 0.34434547D-04, 0.33982934D-04, 0.48056069D-02, 0.23669904D-04, - + 0.56450853D-01, 0.56450853D-01, 0.30799491D-04, 0.31222586D-04, - + 0.31222586D-04, 0.30799491D-04, 0.39594263D-02, 0.22084388D-04, - + 0.50834903D-01, 0.50834903D-01, 0.27800110D-04, 0.28193257D-04, - + 0.28193257D-04, 0.27800110D-04, 0.32771831D-02, 0.20444607D-04, - + 0.45687844D-01, 0.45687844D-01, 0.25000224D-04, 0.25362943D-04, - + 0.25362943D-04, 0.25000224D-04, 0.27241266D-02, 0.18800043D-04, - + 0.40982029D-01, 0.40982029D-01, 0.22406888D-04, 0.22739427D-04, - + 0.22739427D-04, 0.22406888D-04, 0.22733375D-02, 0.17187147D-04, - + 0.36690042D-01, 0.36690042D-01, 0.20020736D-04, 0.20323893D-04, - + 0.20323893D-04, 0.20020736D-04, 0.19037882D-02, 0.15631911D-04, - + 0.32784875D-01, 0.32784875D-01, 0.17837766D-04, 0.18112738D-04, - + 0.18112738D-04, 0.17837766D-04, 0.15991541D-02, 0.14152190D-04/ - DATA ((CALCPI(I,K,21),I=1,8), K=19,20) / - + 0.29240095D-01, 0.29240095D-01, 0.15850674D-04, 0.16098936D-04, - + 0.16098936D-04, 0.15850674D-04, 0.13467598D-02, 0.12759488D-04, - + 0.26029990D-01, 0.26029990D-01, 0.14049880D-04, 0.14273088D-04, - + 0.14273088D-04, 0.14049880D-04, 0.11366537D-02, 0.11460395D-04/ - DATA ((CALCPI(I,K,22),I=1,8), K=1,9) / - + 0.14893693D+00, 0.14893693D+00, 0.18659088D-04, 0.18659088D-04, - + 0.18659088D-04, 0.18659088D-04, 0.29653500D-01, 0.10452387D-17, - + 0.13565988D+00, 0.13565988D+00, 0.17993271D-04, 0.18088547D-04, - + 0.18088547D-04, 0.17993271D-04, 0.23024856D-01, 0.22765974D-05, - + 0.12331002D+00, 0.12331002D+00, 0.17476260D-04, 0.17638657D-04, - + 0.17638657D-04, 0.17476260D-04, 0.17956049D-01, 0.42411576D-05, - + 0.11184701D+00, 0.11184701D+00, 0.16890258D-04, 0.17098264D-04, - + 0.17098264D-04, 0.16890258D-04, 0.14050693D-01, 0.57552835D-05, - + 0.10123550D+00, 0.10123550D+00, 0.16241964D-04, 0.16478715D-04, - + 0.16478715D-04, 0.16241964D-04, 0.11030654D-01, 0.68838036D-05, - + 0.91436148D-01, 0.91436148D-01, 0.15493096D-04, 0.15745494D-04, - + 0.15745494D-04, 0.15493096D-04, 0.86995268D-02, 0.76364989D-05, - + 0.82409700D-01, 0.82409700D-01, 0.14649555D-04, 0.14907639D-04, - + 0.14907639D-04, 0.14649555D-04, 0.68965978D-02, 0.80610204D-05, - + 0.74116264D-01, 0.74116264D-01, 0.13740791D-04, 0.13997113D-04, - + 0.13997113D-04, 0.13740791D-04, 0.54973300D-02, 0.82221692D-05, - + 0.66515671D-01, 0.66515671D-01, 0.12790392D-04, 0.13039529D-04, - + 0.13039529D-04, 0.12790392D-04, 0.44067959D-02, 0.81735671D-05/ - DATA ((CALCPI(I,K,22),I=1,8), K=10,18) / - + 0.59567782D-01, 0.59567782D-01, 0.11822215D-04, 0.12060361D-04, - + 0.12060361D-04, 0.11822215D-04, 0.35530492D-02, 0.79646535D-05, - + 0.53232735D-01, 0.53232735D-01, 0.10858081D-04, 0.11082705D-04, - + 0.11082705D-04, 0.10858081D-04, 0.28810796D-02, 0.76390325D-05, - + 0.47471183D-01, 0.47471183D-01, 0.99150661D-05, 0.10124631D-04, - + 0.10124631D-04, 0.99150661D-05, 0.23486757D-02, 0.72323212D-05, - + 0.42244523D-01, 0.42244523D-01, 0.90064951D-05, 0.92002321D-05, - + 0.92002321D-05, 0.90064951D-05, 0.19241141D-02, 0.67736298D-05, - + 0.37515095D-01, 0.37515095D-01, 0.81421094D-05, 0.83198279D-05, - + 0.83198279D-05, 0.81421094D-05, 0.15834187D-02, 0.62861281D-05, - + 0.33246370D-01, 0.33246370D-01, 0.73283836D-05, 0.74903217D-05, - + 0.74903217D-05, 0.73283836D-05, 0.13081901D-02, 0.57877078D-05, - + 0.29403104D-01, 0.29403104D-01, 0.65692553D-05, 0.67159583D-05, - + 0.67159583D-05, 0.65692553D-05, 0.10844362D-02, 0.52920045D-05, - + 0.25951472D-01, 0.25951472D-01, 0.58665925D-05, 0.59988169D-05, - + 0.59988169D-05, 0.58665925D-05, 0.90150889D-03, 0.48091163D-05, - + 0.22859180D-01, 0.22859180D-01, 0.52206265D-05, 0.53392645D-05, - + 0.53392645D-05, 0.52206265D-05, 0.75117828D-03, 0.43462499D-05/ - DATA ((CALCPI(I,K,22),I=1,8), K=19,20) / - + 0.20095550D-01, 0.20095550D-01, 0.46303832D-05, 0.47364044D-05, - + 0.47364044D-05, 0.46303832D-05, 0.62705922D-03, 0.39083370D-05, - + 0.17631577D-01, 0.17631577D-01, 0.40939948D-05, 0.41884015D-05, - + 0.41884015D-05, 0.40939948D-05, 0.52418344D-03, 0.34985020D-05/ - DATA ((CALCPI(I,K,23),I=1,8), K=1,9) / - + 0.12466155D+00, 0.12466155D+00, 0.40617655D-05, 0.40617655D-05, - + 0.40617655D-05, 0.40617655D-05, 0.14051896D-01, 0.73495990D-18, - + 0.11173314D+00, 0.11173314D+00, 0.32938963D-05, 0.33358710D-05, - + 0.33358710D-05, 0.32938963D-05, 0.10660771D-01,-0.64809452D-07, - + 0.99927656D-01, 0.99927656D-01, 0.29399618D-05, 0.30092196D-05, - + 0.30092196D-05, 0.29399618D-05, 0.81551927D-02, 0.16269877D-06, - + 0.89167355D-01, 0.89167355D-01, 0.27551315D-05, 0.28413834D-05, - + 0.28413834D-05, 0.27551315D-05, 0.62804841D-02, 0.46082146D-06, - + 0.79387013D-01, 0.79387013D-01, 0.26597156D-05, 0.27556416D-05, - + 0.27556416D-05, 0.26597156D-05, 0.48642075D-02, 0.76656066D-06, - + 0.70519683D-01, 0.70519683D-01, 0.25930830D-05, 0.26933197D-05, - + 0.26933197D-05, 0.25930830D-05, 0.37947917D-02, 0.10326492D-05, - + 0.62501104D-01, 0.62501104D-01, 0.25218351D-05, 0.26226000D-05, - + 0.26226000D-05, 0.25218351D-05, 0.29816936D-02, 0.12371630D-05, - + 0.55268986D-01, 0.55268986D-01, 0.24372334D-05, 0.25359336D-05, - + 0.25359336D-05, 0.24372334D-05, 0.23591941D-02, 0.13809056D-05, - + 0.48763274D-01, 0.48763274D-01, 0.23354218D-05, 0.24303250D-05, - + 0.24303250D-05, 0.23354218D-05, 0.18796033D-02, 0.14679651D-05/ - DATA ((CALCPI(I,K,23),I=1,8), K=10,18) / - + 0.42926390D-01, 0.42926390D-01, 0.22165796D-05, 0.23065871D-05, - + 0.23065871D-05, 0.22165796D-05, 0.15068345D-02, 0.15051628D-05, - + 0.37703340D-01, 0.37703340D-01, 0.20844329D-05, 0.21689076D-05, - + 0.21689076D-05, 0.20844329D-05, 0.12147442D-02, 0.15017730D-05, - + 0.33041846D-01, 0.33041846D-01, 0.19431609D-05, 0.20217950D-05, - + 0.20217950D-05, 0.19431609D-05, 0.98419305D-03, 0.14666069D-05, - + 0.28892432D-01, 0.28892432D-01, 0.17967575D-05, 0.18694754D-05, - + 0.18694754D-05, 0.17967575D-05, 0.80077746D-03, 0.14075252D-05, - + 0.25208481D-01, 0.25208481D-01, 0.16489621D-05, 0.17158482D-05, - + 0.17158482D-05, 0.16489621D-05, 0.65382251D-03, 0.13314928D-05, - + 0.21946264D-01, 0.21946264D-01, 0.15029021D-05, 0.15641478D-05, - + 0.15641478D-05, 0.15029021D-05, 0.53537088D-03, 0.12443253D-05, - + 0.19064943D-01, 0.19064943D-01, 0.13610616D-05, 0.14169271D-05, - + 0.14169271D-05, 0.13610616D-05, 0.43936516D-03, 0.11507452D-05, - + 0.16526541D-01, 0.16526541D-01, 0.12253560D-05, 0.12761424D-05, - + 0.12761424D-05, 0.12253560D-05, 0.36118695D-03, 0.10545294D-05, - + 0.14295900D-01, 0.14295900D-01, 0.10971589D-05, 0.11431890D-05, - + 0.11431890D-05, 0.10971589D-05, 0.29728882D-03, 0.95859812D-06/ - DATA ((CALCPI(I,K,23),I=1,8), K=19,20) / - + 0.12340602D-01, 0.12340602D-01, 0.97737632D-06, 0.10189805D-05, - + 0.10189805D-05, 0.97737632D-06, 0.24490074D-03, 0.86513980D-06, - + 0.10630890D-01, 0.10630890D-01, 0.86653311D-06, 0.90404004D-06, - + 0.90404004D-06, 0.86653311D-06, 0.20184479D-03, 0.77574186D-06/ - DATA ((CALCPI(I,K,24),I=1,8), K=1,9) / - + 0.95962050D-01, 0.95962050D-01, 0.47362220D-06, 0.47362220D-06, - + 0.47362220D-06, 0.47362220D-06, 0.49045878D-02, 0.20394965D-17, - + 0.84079722D-01, 0.84079722D-01, 0.70130062D-07, 0.69988528D-07, - + 0.69988528D-07, 0.70130062D-07, 0.36451349D-02,-0.31177713D-06, - + 0.73503277D-01, 0.73503277D-01,-0.93949559D-07,-0.90343984D-07, - + -0.90343984D-07,-0.93949559D-07, 0.27512246D-02,-0.40201316D-06, - + 0.64100842D-01, 0.64100842D-01,-0.14362678D-06,-0.13436729D-06, - + -0.13436729D-06,-0.14362678D-06, 0.21021321D-02,-0.39189456D-06, - + 0.55766799D-01, 0.55766799D-01,-0.13315620D-06,-0.11760078D-06, - + -0.11760078D-06,-0.13315620D-06, 0.16167642D-02,-0.33297146D-06, - + 0.48398988D-01, 0.48398988D-01,-0.92538893D-07,-0.70742324D-07, - + -0.70742323D-07,-0.92538893D-07, 0.12544540D-02,-0.25317481D-06, - + 0.41902807D-01, 0.41902807D-01,-0.42348392D-07,-0.14880959D-07, - + -0.14880958D-07,-0.42348392D-07, 0.98199191D-03,-0.17132676D-06, - + 0.36190734D-01, 0.36190734D-01, 0.74222474D-08, 0.39687164D-07, - + 0.39687164D-07, 0.74222474D-08, 0.77374477D-03,-0.95999516D-07, - + 0.31181740D-01, 0.31181740D-01, 0.51602539D-07, 0.87648579D-07, - + 0.87648579D-07, 0.51602539D-07, 0.61314725D-03,-0.31213106D-07/ - DATA ((CALCPI(I,K,24),I=1,8), K=10,18) / - + 0.26801252D-01, 0.26801252D-01, 0.87520725D-07, 0.12629318D-06, - + 0.12629318D-06, 0.87520725D-07, 0.48832221D-03, 0.21298934D-07, - + 0.22980857D-01, 0.22980857D-01, 0.11469355D-06, 0.15517350D-06, - + 0.15517350D-06, 0.11469355D-06, 0.39039186D-03, 0.61816996D-07, - + 0.19658021D-01, 0.19658021D-01, 0.13365167D-06, 0.17490421D-06, - + 0.17490421D-06, 0.13365167D-06, 0.31302545D-03, 0.91492748D-07, - + 0.16775799D-01, 0.16775799D-01, 0.14529177D-06, 0.18649424D-06, - + 0.18649424D-06, 0.14529177D-06, 0.25156265D-03, 0.11172781D-06, - + 0.14282533D-01, 0.14282533D-01, 0.15076037D-06, 0.19121612D-06, - + 0.19121612D-06, 0.15076037D-06, 0.20248137D-03, 0.12407887D-06, - + 0.12131537D-01, 0.12131537D-01, 0.15126112D-06, 0.19040264D-06, - + 0.19040264D-06, 0.15126112D-06, 0.16314146D-03, 0.13008240D-06, - + 0.10280782D-01, 0.10280782D-01, 0.14791039D-06, 0.18529515D-06, - + 0.18529515D-06, 0.14791039D-06, 0.13152577D-03, 0.13112458D-06, - + 0.86925746D-02, 0.86925746D-02, 0.14170656D-06, 0.17700791D-06, - + 0.17700791D-06, 0.14170656D-06, 0.10606210D-03, 0.12842218D-06, - + 0.73332400D-02, 0.73332400D-02, 0.13351233D-06, 0.16650745D-06, - + 0.16650745D-06, 0.13351233D-06, 0.85523934D-04, 0.12301445D-06/ - DATA ((CALCPI(I,K,24),I=1,8), K=19,20) / - + 0.61728066D-02, 0.61728066D-02, 0.12404355D-06, 0.15459991D-06, - + 0.15459991D-06, 0.12404355D-06, 0.68945956D-04, 0.11575973D-06, - + 0.51847001D-02, 0.51847001D-02, 0.11387807D-06, 0.14193947D-06, - + 0.14193947D-06, 0.11387807D-06, 0.55558553D-04, 0.10735073D-06/ - DATA ((CALCPI(I,K,25),I=1,8), K=1,9) / - + 0.60325058D-01, 0.60325058D-01, 0.12021897D-07, 0.12021897D-07, - + 0.12021897D-07, 0.12021897D-07, 0.81120147D-03,-0.11270876D-17, - + 0.50834153D-01, 0.50834153D-01,-0.36274860D-07, 0.32872280D-07, - + 0.32872280D-07,-0.36274860D-07, 0.61140969D-03,-0.45571468D-07, - + 0.42744651D-01, 0.42744651D-01,-0.34258286D-07, 0.80910456D-07, - + 0.80910456D-07,-0.34258286D-07, 0.46844302D-03,-0.41456923D-07, - + 0.35848234D-01, 0.35848234D-01,-0.10842241D-07, 0.13313926D-06, - + 0.13313926D-06,-0.10842241D-07, 0.36321200D-03,-0.16412313D-07, - + 0.29985251D-01, 0.29985251D-01, 0.18938907D-07, 0.17867746D-06, - + 0.17867746D-06, 0.18938907D-07, 0.28205770D-03, 0.14636623D-07, - + 0.25015626D-01, 0.25015626D-01, 0.49079739D-07, 0.21480938D-06, - + 0.21480938D-06, 0.49079739D-07, 0.21978589D-03, 0.45760655D-07, - + 0.20814681D-01, 0.20814681D-01, 0.75514551D-07, 0.24016718D-06, - + 0.24016718D-06, 0.75514551D-07, 0.17211389D-03, 0.72957264D-07, - + 0.17273565D-01, 0.17273565D-01, 0.96144340D-07, 0.25477275D-06, - + 0.25477275D-06, 0.96144340D-07, 0.13490269D-03, 0.94176960D-07, - + 0.14297126D-01, 0.14297126D-01, 0.11060699D-06, 0.25992244D-06, - + 0.25992244D-06, 0.11060699D-06, 0.10566281D-03, 0.10909573D-06/ - DATA ((CALCPI(I,K,25),I=1,8), K=10,18) / - + 0.11802457D-01, 0.11802457D-01, 0.11923453D-06, 0.25722643D-06, - + 0.25722643D-06, 0.11923453D-06, 0.82766725D-04, 0.11807544D-06, - + 0.97175665D-02, 0.97175665D-02, 0.12275219D-06, 0.24837617D-06, - + 0.24837617D-06, 0.12275219D-06, 0.64789615D-04, 0.12186462D-06, - + 0.79801385D-02, 0.79801385D-02, 0.12209600D-06, 0.23502257D-06, - + 0.23502257D-06, 0.12209600D-06, 0.50635791D-04, 0.12141745D-06, - + 0.65364096D-02, 0.65364096D-02, 0.11820595D-06, 0.21861936D-06, - + 0.21861936D-06, 0.11820595D-06, 0.39514631D-04, 0.11768805D-06, - + 0.53401547D-02, 0.53401547D-02, 0.11195715D-06, 0.20039654D-06, - + 0.20039654D-06, 0.11195715D-06, 0.30792202D-04, 0.11156250D-06, - + 0.43517661D-02, 0.43517661D-02, 0.10412636D-06, 0.18136202D-06, - + 0.18136202D-06, 0.10412636D-06, 0.23955915D-04, 0.10382614D-06, - + 0.35374248D-02, 0.35374248D-02, 0.95360916D-07, 0.16229946D-06, - + 0.16229946D-06, 0.95360916D-07, 0.18607293D-04, 0.95132905D-07, - + 0.28683557D-02, 0.28683557D-02, 0.86178300D-07, 0.14379144D-06, - + 0.14379144D-06, 0.86178300D-07, 0.14431662D-04, 0.86005414D-07, - + 0.23201619D-02, 0.23201619D-02, 0.76978650D-07, 0.12625102D-06, - + 0.12625102D-06, 0.76978650D-07, 0.11177135D-04, 0.76847775D-07/ - DATA ((CALCPI(I,K,25),I=1,8), K=19,20) / - + 0.18722314D-02, 0.18722314D-02, 0.68056829D-07, 0.10994897D-06, - + 0.10994897D-06, 0.68056829D-07, 0.86446436D-05, 0.67957915D-07, - + 0.15072110D-02, 0.15072110D-02, 0.59617793D-07, 0.95041092D-07, - + 0.95041092D-07, 0.59617793D-07, 0.66774538D-05, 0.59543153D-07/ -C---------------------------------------------------------------------- - DATA ISTART/0/ - SAVE ISTART,OWLAM2,Q02PI -C - IF (ISTART.EQ.0) THEN - ISTART=1 - DO 11 K=1,25 - DO 11 I=1,20 - DO 11 M=1,8 - 11 CALCPIO(M,I,K) = CALCPI(M,I,K) - OWLAM=PARPI(1) - OWLAM2=OWLAM**2 - Q02PI=PARPI(39) - Q2MAX=PARPI(40) - ENDIF -C -C the conventions are : q(1)=x*u, q(2)=x*d, q(3)=x*str, q(4)=x*usea, -C q(5)=x*dsea, q(6)=x*charm, q(7)=x*gluon -C - X = DX - Q = DQ - Q2 = Q*Q - IDQ2=2 - SB=0. - IF(Q2-Q02PI) 1,1,2 - 2 IF(IDQ2-1) 1,1,3 - 3 SB= LOG( LOG( MAX(Q02PI,Q2)/OWLAM2)/ LOG(Q02PI/OWLAM2)) - 1 CALL AURPI3(1,0,X,SB,XPDF(1)) - CALL AURPI3(2,0,X,SB,XPDF(2)) - CALL AURPI3(3,0,X,SB,XPDF(3)) - CALL AURPI3(4,0,X,SB,XPDF(4)) - CALL AURPI3(5,0,X,SB,XPDF(5)) - CALL AURPI3(8,0,X,SB,XPDF(6)) - CALL AURPI3(7,0,X,SB,XPDF(7)) -C - DUPV=XPDF(1) - XPDF(4) - DDNV=XPDF(2) - XPDF(5) - DUSEA=XPDF(4) - DDSEA=XPDF(5) - DSTR=XPDF(3) - DCHM=XPDF(6) - DGL =XPDF(7) -C - RETURN - END diff --git a/PDF/spdf/acfgp1.F b/PDF/spdf/acfgp1.F deleted file mode 100644 index 14d1fe181a9..00000000000 --- a/PDF/spdf/acfgp1.F +++ /dev/null @@ -1,1502 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.3 1996/11/07 11:52:38 cernlib -* Import version 7.05 -* -* Revision 1.3 1996/11/07 09:35:02 pdflib -* New version 7.05: cut routine Ctq4RTb in 9 pieces -* -* Revision 1.1.1.1 1996/04/12 15:28:56 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE ACFGP1(DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DGL) -C -C INTERPOLATION PROGRAM WHICH INTERPOLATES THE GRID "DATAGA" AND GIVES THE -C QUARK AND GLUON DISTRIBUTIONS IN THE REAL PHOTON, AS FUNCTIONS OF X AND Q2 -C -C THE Q2-EVOLUTION IS PERFORMED WITH BLL AP-EQUATIONS AND NF=4. A MASSIVE -C CHARM DISTRIBUTION (BORROWED FROM GLUCK AND REYA) IS ALSO AVAILABLE. -C -C THE BOUNDARY CONDITIONS ARE SUCH THAT THE DISTRIBUTION FUNCTIONS ARE GIVEN -C BY A VDM "ANSATZ" AT Q2=.25 GEV**2. -C -C THE PROGRAM WORKS FOR 2. GEV**2 < Q2 <5.5E+5 AND .00137 < X < .9986 -C -C THE DISTRIBUTIONS ARE CALCULATED IN THE MSBAR FACTORIZATION SCHEME. -C -C THE VALUE OF LAMBDA-MSB IS 200 MEV -C -C THE OUTPUT IS WRITTEN IN THE FILE 'FILEOUT': -C X*U=X*U(X,Q2) -C X*D= ... -C X*S= ... -C X*C= ... (MASSLESS CHARM WITH C(X,2.)=0) -C X*CM= ... (MASSIVE CHARM WITH MC=1.5 GEV ) -C X*GLU=GLUON(X,Q2)*X -C -C -C F2 = PHOTON STRUCTURE FUNCTION WITHOUT CHARM -C F2C= " " " WITH MASSIVE CHARM -C -#include "pdf/expdp.inc" - + DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL - REAL X, Q, UV, DV, UB, DB, SB, CB, BB, GL - REAL Q2 - DIMENSION XPDF(7),PAR(30),CALC(8,20,32),CALCO(8,20,32) - COMMON/W5051I7/CALCO - EXTERNAL AFCPLU - DATA ZERO/0.0/ -C---------------------------------------------------------------------- - DATA (PAR(I),I=1,30) / - + 0.2000E+00, 0.4800E+00, 0.8500E+00, 0.1000E+01, - + 0.1000E+01, 0.1000E+01, 0.1200E+01, 0.7500E+01, - + 0.1987E+01, 0.1900E+01, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.1000E+01, - + 0.0000E+00, 0.1000E+01, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.4000E+01, 0.0000E+00, 0.1000E+01, 0.1000E+01, - + 0.8000E-01, 0.2000E+01/ - DATA ((CALC(I,K,1 ),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1671E-02, -0.5026E-03, - + 0.6657E-03, -0.5026E-03, 0.6683E-02, 0.9320E-02, - + 0.0000E+00, 0.0000E+00, 0.1669E-02, -0.4992E-03, - + 0.6709E-03, -0.4992E-03, 0.7711E-02, 0.1350E-01, - + 0.0000E+00, 0.0000E+00, 0.1667E-02, -0.4955E-03, - + 0.6764E-03, -0.4955E-03, 0.8915E-02, 0.1832E-01, - + 0.0000E+00, 0.0000E+00, 0.1665E-02, -0.4917E-03, - + 0.6822E-03, -0.4917E-03, 0.1031E-01, 0.2383E-01, - + 0.0000E+00, 0.0000E+00, 0.1663E-02, -0.4875E-03, - + 0.6883E-03, -0.4875E-03, 0.1192E-01, 0.3008E-01, - + 0.0000E+00, 0.0000E+00, 0.1661E-02, -0.4831E-03, - + 0.6947E-03, -0.4831E-03, 0.1375E-01, 0.3713E-01, - + 0.0000E+00, 0.0000E+00, 0.1658E-02, -0.4784E-03, - + 0.7014E-03, -0.4784E-03, 0.1583E-01, 0.4503E-01, - + 0.0000E+00, 0.0000E+00, 0.1655E-02, -0.4733E-03, - + 0.7085E-03, -0.4733E-03, 0.1817E-01, 0.5383E-01, - + 0.0000E+00, 0.0000E+00, 0.1651E-02, -0.4679E-03, - + 0.7159E-03, -0.4679E-03, 0.2079E-01, 0.6360E-01/ - DATA ((CALC(I,K,1 ),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.1647E-02, -0.4621E-03, - + 0.7238E-03, -0.4621E-03, 0.2373E-01, 0.7441E-01, - + 0.0000E+00, 0.0000E+00, 0.1643E-02, -0.4558E-03, - + 0.7321E-03, -0.4558E-03, 0.2700E-01, 0.8633E-01, - + 0.0000E+00, 0.0000E+00, 0.1639E-02, -0.4492E-03, - + 0.7409E-03, -0.4492E-03, 0.3062E-01, 0.9943E-01, - + 0.0000E+00, 0.0000E+00, 0.1633E-02, -0.4420E-03, - + 0.7502E-03, -0.4420E-03, 0.3464E-01, 0.1138E+00, - + 0.0000E+00, 0.0000E+00, 0.1628E-02, -0.4343E-03, - + 0.7600E-03, -0.4343E-03, 0.3907E-01, 0.1295E+00, - + 0.0000E+00, 0.0000E+00, 0.1622E-02, -0.4260E-03, - + 0.7704E-03, -0.4260E-03, 0.4394E-01, 0.1467E+00, - + 0.0000E+00, 0.0000E+00, 0.1615E-02, -0.4172E-03, - + 0.7815E-03, -0.4172E-03, 0.4931E-01, 0.1655E+00, - + 0.0000E+00, 0.0000E+00, 0.1608E-02, -0.4076E-03, - + 0.7932E-03, -0.4076E-03, 0.5520E-01, 0.1859E+00, - + 0.0000E+00, 0.0000E+00, 0.1599E-02, -0.3973E-03, - + 0.8057E-03, -0.3973E-03, 0.6165E-01, 0.2082E+00/ - DATA ((CALC(I,K,1 ),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, 0.1591E-02, -0.3863E-03, - + 0.8189E-03, -0.3863E-03, 0.6871E-01, 0.2324E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,2 ),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1675E-02, -0.4282E-03, - + 0.8187E-03, -0.4282E-03, 0.6700E-02, 0.8422E-02, - + 0.0000E+00, 0.0000E+00, 0.1668E-02, -0.4181E-03, - + 0.8319E-03, -0.4181E-03, 0.7379E-02, 0.1103E-01, - + 0.0000E+00, 0.0000E+00, 0.1661E-02, -0.4075E-03, - + 0.8457E-03, -0.4075E-03, 0.8140E-02, 0.1387E-01, - + 0.0000E+00, 0.0000E+00, 0.1653E-02, -0.3961E-03, - + 0.8603E-03, -0.3961E-03, 0.8986E-02, 0.1696E-01, - + 0.0000E+00, 0.0000E+00, 0.1644E-02, -0.3838E-03, - + 0.8757E-03, -0.3838E-03, 0.9923E-02, 0.2029E-01, - + 0.0000E+00, 0.0000E+00, 0.1634E-02, -0.3707E-03, - + 0.8919E-03, -0.3707E-03, 0.1096E-01, 0.2388E-01, - + 0.0000E+00, 0.0000E+00, 0.1623E-02, -0.3567E-03, - + 0.9091E-03, -0.3567E-03, 0.1209E-01, 0.2775E-01, - + 0.0000E+00, 0.0000E+00, 0.1611E-02, -0.3416E-03, - + 0.9272E-03, -0.3416E-03, 0.1332E-01, 0.3192E-01, - + 0.0000E+00, 0.0000E+00, 0.1598E-02, -0.3254E-03, - + 0.9465E-03, -0.3254E-03, 0.1467E-01, 0.3639E-01/ - DATA ((CALC(I,K,2 ),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.1584E-02, -0.3080E-03, - + 0.9669E-03, -0.3080E-03, 0.1614E-01, 0.4119E-01, - + 0.0000E+00, 0.0000E+00, 0.1568E-02, -0.2893E-03, - + 0.9885E-03, -0.2893E-03, 0.1773E-01, 0.4634E-01, - + 0.0000E+00, 0.0000E+00, 0.1551E-02, -0.2691E-03, - + 0.1012E-02, -0.2691E-03, 0.1946E-01, 0.5188E-01, - + 0.0000E+00, 0.0000E+00, 0.1532E-02, -0.2475E-03, - + 0.1036E-02, -0.2475E-03, 0.2133E-01, 0.5782E-01, - + 0.0000E+00, 0.0000E+00, 0.1512E-02, -0.2242E-03, - + 0.1062E-02, -0.2242E-03, 0.2335E-01, 0.6421E-01, - + 0.0000E+00, 0.0000E+00, 0.1490E-02, -0.1991E-03, - + 0.1090E-02, -0.1991E-03, 0.2554E-01, 0.7109E-01, - + 0.0000E+00, 0.0000E+00, 0.1465E-02, -0.1721E-03, - + 0.1120E-02, -0.1721E-03, 0.2790E-01, 0.7848E-01, - + 0.0000E+00, 0.0000E+00, 0.1439E-02, -0.1429E-03, - + 0.1151E-02, -0.1429E-03, 0.3046E-01, 0.8645E-01, - + 0.0000E+00, 0.0000E+00, 0.1410E-02, -0.1115E-03, - + 0.1185E-02, -0.1115E-03, 0.3321E-01, 0.9504E-01/ - DATA ((CALC(I,K,2 ),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, 0.1379E-02, -0.7764E-04, - + 0.1222E-02, -0.7764E-04, 0.3619E-01, 0.1043E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,3 ),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1659E-02, -0.3433E-03, - + 0.9723E-03, -0.3433E-03, 0.6635E-02, 0.7843E-02, - + 0.0000E+00, 0.0000E+00, 0.1645E-02, -0.3259E-03, - + 0.9931E-03, -0.3259E-03, 0.7163E-02, 0.9673E-02, - + 0.0000E+00, 0.0000E+00, 0.1630E-02, -0.3073E-03, - + 0.1015E-02, -0.3073E-03, 0.7742E-02, 0.1161E-01, - + 0.0000E+00, 0.0000E+00, 0.1613E-02, -0.2873E-03, - + 0.1038E-02, -0.2873E-03, 0.8372E-02, 0.1364E-01, - + 0.0000E+00, 0.0000E+00, 0.1594E-02, -0.2658E-03, - + 0.1063E-02, -0.2658E-03, 0.9056E-02, 0.1579E-01, - + 0.0000E+00, 0.0000E+00, 0.1574E-02, -0.2428E-03, - + 0.1089E-02, -0.2428E-03, 0.9796E-02, 0.1806E-01, - + 0.0000E+00, 0.0000E+00, 0.1553E-02, -0.2181E-03, - + 0.1116E-02, -0.2181E-03, 0.1060E-01, 0.2046E-01, - + 0.0000E+00, 0.0000E+00, 0.1529E-02, -0.1915E-03, - + 0.1146E-02, -0.1915E-03, 0.1146E-01, 0.2299E-01, - + 0.0000E+00, 0.0000E+00, 0.1503E-02, -0.1629E-03, - + 0.1177E-02, -0.1629E-03, 0.1239E-01, 0.2567E-01/ - DATA ((CALC(I,K,3 ),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.1475E-02, -0.1321E-03, - + 0.1210E-02, -0.1321E-03, 0.1339E-01, 0.2852E-01, - + 0.0000E+00, 0.0000E+00, 0.1444E-02, -0.9894E-04, - + 0.1246E-02, -0.9894E-04, 0.1446E-01, 0.3155E-01, - + 0.0000E+00, 0.0000E+00, 0.1410E-02, -0.6324E-04, - + 0.1284E-02, -0.6324E-04, 0.1561E-01, 0.3478E-01, - + 0.0000E+00, 0.0000E+00, 0.1374E-02, -0.2477E-04, - + 0.1324E-02, -0.2477E-04, 0.1686E-01, 0.3822E-01, - + 0.0000E+00, 0.0000E+00, 0.1335E-02, 0.1669E-04, - + 0.1368E-02, 0.1669E-04, 0.1819E-01, 0.4191E-01, - + 0.0000E+00, 0.0000E+00, 0.1292E-02, 0.6140E-04, - + 0.1414E-02, 0.6140E-04, 0.1962E-01, 0.4586E-01, - + 0.0000E+00, 0.0000E+00, 0.1245E-02, 0.1096E-03, - + 0.1464E-02, 0.1096E-03, 0.2117E-01, 0.5011E-01, - + 0.0000E+00, 0.0000E+00, 0.1194E-02, 0.1617E-03, - + 0.1517E-02, 0.1617E-03, 0.2283E-01, 0.5469E-01, - + 0.0000E+00, 0.0000E+00, 0.1140E-02, 0.2178E-03, - + 0.1575E-02, 0.2178E-03, 0.2462E-01, 0.5962E-01/ - DATA ((CALC(I,K,3 ),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, 0.1080E-02, 0.2785E-03, - + 0.1637E-02, 0.2785E-03, 0.2655E-01, 0.6494E-01, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,4 ),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1625E-02, -0.2514E-03, - + 0.1122E-02, -0.2514E-03, 0.6500E-02, 0.7358E-02, - + 0.0000E+00, 0.0000E+00, 0.1602E-02, -0.2260E-03, - + 0.1150E-02, -0.2260E-03, 0.6948E-02, 0.8685E-02, - + 0.0000E+00, 0.0000E+00, 0.1578E-02, -0.1988E-03, - + 0.1180E-02, -0.1988E-03, 0.7432E-02, 0.1006E-01, - + 0.0000E+00, 0.0000E+00, 0.1551E-02, -0.1696E-03, - + 0.1212E-02, -0.1696E-03, 0.7953E-02, 0.1148E-01, - + 0.0000E+00, 0.0000E+00, 0.1522E-02, -0.1382E-03, - + 0.1245E-02, -0.1382E-03, 0.8512E-02, 0.1296E-01, - + 0.0000E+00, 0.0000E+00, 0.1490E-02, -0.1045E-03, - + 0.1281E-02, -0.1045E-03, 0.9113E-02, 0.1450E-01, - + 0.0000E+00, 0.0000E+00, 0.1456E-02, -0.6824E-04, - + 0.1319E-02, -0.6824E-04, 0.9757E-02, 0.1610E-01, - + 0.0000E+00, 0.0000E+00, 0.1419E-02, -0.2924E-04, - + 0.1360E-02, -0.2924E-04, 0.1045E-01, 0.1779E-01, - + 0.0000E+00, 0.0000E+00, 0.1378E-02, 0.1275E-04, - + 0.1403E-02, 0.1275E-04, 0.1119E-01, 0.1957E-01/ - DATA ((CALC(I,K,4 ),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.1334E-02, 0.5797E-04, - + 0.1450E-02, 0.5797E-04, 0.1198E-01, 0.2145E-01, - + 0.0000E+00, 0.0000E+00, 0.1287E-02, 0.1067E-03, - + 0.1499E-02, 0.1067E-03, 0.1284E-01, 0.2345E-01, - + 0.0000E+00, 0.0000E+00, 0.1235E-02, 0.1592E-03, - + 0.1553E-02, 0.1592E-03, 0.1375E-01, 0.2557E-01, - + 0.0000E+00, 0.0000E+00, 0.1179E-02, 0.2158E-03, - + 0.1610E-02, 0.2158E-03, 0.1474E-01, 0.2784E-01, - + 0.0000E+00, 0.0000E+00, 0.1118E-02, 0.2769E-03, - + 0.1671E-02, 0.2769E-03, 0.1579E-01, 0.3028E-01, - + 0.0000E+00, 0.0000E+00, 0.1052E-02, 0.3428E-03, - + 0.1737E-02, 0.3428E-03, 0.1693E-01, 0.3289E-01, - + 0.0000E+00, 0.0000E+00, 0.9810E-03, 0.4140E-03, - + 0.1808E-02, 0.4140E-03, 0.1815E-01, 0.3571E-01, - + 0.0000E+00, 0.0000E+00, 0.9038E-03, 0.4909E-03, - + 0.1885E-02, 0.4909E-03, 0.1947E-01, 0.3875E-01, - + 0.0000E+00, 0.0000E+00, 0.8201E-03, 0.5739E-03, - + 0.1967E-02, 0.5739E-03, 0.2090E-01, 0.4204E-01/ - DATA ((CALC(I,K,4 ),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, 0.7295E-03, 0.6636E-03, - + 0.2056E-02, 0.6636E-03, 0.2243E-01, 0.4560E-01, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,5 ),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1572E-02, -0.1542E-03, - + 0.1264E-02, -0.1542E-03, 0.6288E-02, 0.6899E-02, - + 0.0000E+00, 0.0000E+00, 0.1541E-02, -0.1209E-03, - + 0.1299E-02, -0.1209E-03, 0.6695E-02, 0.7867E-02, - + 0.0000E+00, 0.0000E+00, 0.1507E-02, -0.8520E-04, - + 0.1336E-02, -0.8520E-04, 0.7132E-02, 0.8857E-02, - + 0.0000E+00, 0.0000E+00, 0.1470E-02, -0.4684E-04, - + 0.1375E-02, -0.4684E-04, 0.7599E-02, 0.9865E-02, - + 0.0000E+00, 0.0000E+00, 0.1432E-02, -0.5605E-05, - + 0.1418E-02, -0.5605E-05, 0.8099E-02, 0.1091E-01, - + 0.0000E+00, 0.0000E+00, 0.1388E-02, 0.3874E-04, - + 0.1463E-02, 0.3874E-04, 0.8635E-02, 0.1199E-01, - + 0.0000E+00, 0.0000E+00, 0.1341E-02, 0.8647E-04, - + 0.1511E-02, 0.8647E-04, 0.9210E-02, 0.1311E-01, - + 0.0000E+00, 0.0000E+00, 0.1289E-02, 0.1379E-03, - + 0.1563E-02, 0.1379E-03, 0.9825E-02, 0.1429E-01, - + 0.0000E+00, 0.0000E+00, 0.1234E-02, 0.1932E-03, - + 0.1618E-02, 0.1932E-03, 0.1049E-01, 0.1553E-01/ - DATA ((CALC(I,K,5 ),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.1174E-02, 0.2529E-03, - + 0.1677E-02, 0.2529E-03, 0.1119E-01, 0.1684E-01, - + 0.0000E+00, 0.0000E+00, 0.1109E-02, 0.3173E-03, - + 0.1741E-02, 0.3173E-03, 0.1196E-01, 0.1824E-01, - + 0.0000E+00, 0.0000E+00, 0.1038E-02, 0.3867E-03, - + 0.1810E-02, 0.3867E-03, 0.1277E-01, 0.1973E-01, - + 0.0000E+00, 0.0000E+00, 0.9620E-03, 0.4616E-03, - + 0.1883E-02, 0.4616E-03, 0.1366E-01, 0.2133E-01, - + 0.0000E+00, 0.0000E+00, 0.8794E-03, 0.5425E-03, - + 0.1963E-02, 0.5425E-03, 0.1461E-01, 0.2305E-01, - + 0.0000E+00, 0.0000E+00, 0.7902E-03, 0.6299E-03, - + 0.2048E-02, 0.6299E-03, 0.1563E-01, 0.2492E-01, - + 0.0000E+00, 0.0000E+00, 0.6935E-03, 0.7243E-03, - + 0.2141E-02, 0.7243E-03, 0.1674E-01, 0.2694E-01, - + 0.0000E+00, 0.0000E+00, 0.5890E-03, 0.8263E-03, - + 0.2240E-02, 0.8263E-03, 0.1794E-01, 0.2912E-01, - + 0.0000E+00, 0.0000E+00, 0.4759E-03, 0.9366E-03, - + 0.2348E-02, 0.9366E-03, 0.1924E-01, 0.3150E-01/ - DATA ((CALC(I,K,5 ),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, 0.3534E-03, 0.1056E-02, - + 0.2464E-02, 0.1056E-02, 0.2064E-01, 0.3408E-01, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,6 ),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1509E-02, -0.5692E-04, - + 0.1395E-02, -0.5692E-04, 0.6035E-02, 0.6441E-02, - + 0.0000E+00, 0.0000E+00, 0.1469E-02, -0.1625E-04, - + 0.1436E-02, -0.1625E-04, 0.6426E-02, 0.7136E-02, - + 0.0000E+00, 0.0000E+00, 0.1425E-02, 0.2742E-04, - + 0.1480E-02, 0.2742E-04, 0.6844E-02, 0.7855E-02, - + 0.0000E+00, 0.0000E+00, 0.1378E-02, 0.7439E-04, - + 0.1527E-02, 0.7439E-04, 0.7291E-02, 0.8574E-02, - + 0.0000E+00, 0.0000E+00, 0.1328E-02, 0.1249E-03, - + 0.1577E-02, 0.1249E-03, 0.7770E-02, 0.9307E-02, - + 0.0000E+00, 0.0000E+00, 0.1272E-02, 0.1793E-03, - + 0.1631E-02, 0.1793E-03, 0.8285E-02, 0.1009E-01, - + 0.0000E+00, 0.0000E+00, 0.1213E-02, 0.2380E-03, - + 0.1689E-02, 0.2380E-03, 0.8836E-02, 0.1087E-01, - + 0.0000E+00, 0.0000E+00, 0.1148E-02, 0.3012E-03, - + 0.1751E-02, 0.3012E-03, 0.9427E-02, 0.1171E-01, - + 0.0000E+00, 0.0000E+00, 0.1079E-02, 0.3694E-03, - + 0.1817E-02, 0.3694E-03, 0.1006E-01, 0.1259E-01/ - DATA ((CALC(I,K,6 ),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.1003E-02, 0.4429E-03, - + 0.1889E-02, 0.4429E-03, 0.1075E-01, 0.1353E-01, - + 0.0000E+00, 0.0000E+00, 0.9214E-03, 0.5223E-03, - + 0.1966E-02, 0.5223E-03, 0.1149E-01, 0.1454E-01, - + 0.0000E+00, 0.0000E+00, 0.8329E-03, 0.6081E-03, - + 0.2049E-02, 0.6081E-03, 0.1229E-01, 0.1563E-01, - + 0.0000E+00, 0.0000E+00, 0.7372E-03, 0.7007E-03, - + 0.2139E-02, 0.7007E-03, 0.1315E-01, 0.1681E-01, - + 0.0000E+00, 0.0000E+00, 0.6337E-03, 0.8008E-03, - + 0.2235E-02, 0.8008E-03, 0.1408E-01, 0.1809E-01, - + 0.0000E+00, 0.0000E+00, 0.5217E-03, 0.9090E-03, - + 0.2340E-02, 0.9090E-03, 0.1509E-01, 0.1948E-01, - + 0.0000E+00, 0.0000E+00, 0.4005E-03, 0.1026E-02, - + 0.2453E-02, 0.1026E-02, 0.1618E-01, 0.2100E-01, - + 0.0000E+00, 0.0000E+00, 0.2694E-03, 0.1152E-02, - + 0.2574E-02, 0.1152E-02, 0.1737E-01, 0.2265E-01, - + 0.0000E+00, 0.0000E+00, 0.1276E-03, 0.1289E-02, - + 0.2706E-02, 0.1289E-02, 0.1865E-01, 0.2446E-01/ - DATA ((CALC(I,K,6 ),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.2581E-04, 0.1437E-02, - + 0.2849E-02, 0.1437E-02, 0.2005E-01, 0.2643E-01, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,7 ),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1444E-02, 0.3563E-04, - + 0.1515E-02, 0.3563E-04, 0.5775E-02, 0.5978E-02, - + 0.0000E+00, 0.0000E+00, 0.1396E-02, 0.8289E-04, - + 0.1562E-02, 0.8289E-04, 0.6166E-02, 0.6468E-02, - + 0.0000E+00, 0.0000E+00, 0.1344E-02, 0.1337E-03, - + 0.1612E-02, 0.1337E-03, 0.6585E-02, 0.6960E-02, - + 0.0000E+00, 0.0000E+00, 0.1288E-02, 0.1885E-03, - + 0.1665E-02, 0.1885E-03, 0.7032E-02, 0.7462E-02, - + 0.0000E+00, 0.0000E+00, 0.1227E-02, 0.2475E-03, - + 0.1722E-02, 0.2475E-03, 0.7513E-02, 0.7978E-02, - + 0.0000E+00, 0.0000E+00, 0.1162E-02, 0.3111E-03, - + 0.1784E-02, 0.3111E-03, 0.8029E-02, 0.8515E-02, - + 0.0000E+00, 0.0000E+00, 0.1090E-02, 0.3797E-03, - + 0.1850E-02, 0.3797E-03, 0.8584E-02, 0.9080E-02, - + 0.0000E+00, 0.0000E+00, 0.1014E-02, 0.4538E-03, - + 0.1921E-02, 0.4538E-03, 0.9182E-02, 0.9681E-02, - + 0.0000E+00, 0.0000E+00, 0.9302E-03, 0.5338E-03, - + 0.1998E-02, 0.5338E-03, 0.9828E-02, 0.1032E-01/ - DATA ((CALC(I,K,7 ),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.8400E-03, 0.6202E-03, - + 0.2080E-02, 0.6202E-03, 0.1053E-01, 0.1102E-01, - + 0.0000E+00, 0.0000E+00, 0.7424E-03, 0.7136E-03, - + 0.2170E-02, 0.7136E-03, 0.1128E-01, 0.1177E-01, - + 0.0000E+00, 0.0000E+00, 0.6368E-03, 0.8145E-03, - + 0.2266E-02, 0.8145E-03, 0.1210E-01, 0.1260E-01, - + 0.0000E+00, 0.0000E+00, 0.5226E-03, 0.9237E-03, - + 0.2370E-02, 0.9237E-03, 0.1298E-01, 0.1349E-01, - + 0.0000E+00, 0.0000E+00, 0.3990E-03, 0.1042E-02, - + 0.2483E-02, 0.1042E-02, 0.1394E-01, 0.1448E-01, - + 0.0000E+00, 0.0000E+00, 0.2653E-03, 0.1170E-02, - + 0.2605E-02, 0.1170E-02, 0.1498E-01, 0.1555E-01, - + 0.0000E+00, 0.0000E+00, 0.1206E-03, 0.1308E-02, - + 0.2736E-02, 0.1308E-02, 0.1611E-01, 0.1673E-01, - + 0.0000E+00, 0.0000E+00, -0.3584E-04, 0.1457E-02, - + 0.2879E-02, 0.1457E-02, 0.1734E-01, 0.1803E-01, - + 0.0000E+00, 0.0000E+00, -0.2051E-03, 0.1619E-02, - + 0.3034E-02, 0.1619E-02, 0.1867E-01, 0.1945E-01/ - DATA ((CALC(I,K,7 ),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.3882E-03, 0.1795E-02, - + 0.3201E-02, 0.1795E-02, 0.2012E-01, 0.2101E-01, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,8 ),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1383E-02, 0.1197E-03, - + 0.1623E-02, 0.1197E-03, 0.5533E-02, 0.5504E-02, - + 0.0000E+00, 0.0000E+00, 0.1328E-02, 0.1726E-03, - + 0.1674E-02, 0.1726E-03, 0.5934E-02, 0.5833E-02, - + 0.0000E+00, 0.0000E+00, 0.1269E-02, 0.2296E-03, - + 0.1728E-02, 0.2296E-03, 0.6363E-02, 0.6164E-02, - + 0.0000E+00, 0.0000E+00, 0.1205E-02, 0.2912E-03, - + 0.1787E-02, 0.2912E-03, 0.6823E-02, 0.6502E-02, - + 0.0000E+00, 0.0000E+00, 0.1135E-02, 0.3576E-03, - + 0.1850E-02, 0.3576E-03, 0.7318E-02, 0.6855E-02, - + 0.0000E+00, 0.0000E+00, 0.1059E-02, 0.4293E-03, - + 0.1918E-02, 0.4293E-03, 0.7851E-02, 0.7229E-02, - + 0.0000E+00, 0.0000E+00, 0.9777E-03, 0.5069E-03, - + 0.1991E-02, 0.5069E-03, 0.8426E-02, 0.7628E-02, - + 0.0000E+00, 0.0000E+00, 0.8891E-03, 0.5907E-03, - + 0.2070E-02, 0.5907E-03, 0.9048E-02, 0.8061E-02, - + 0.0000E+00, 0.0000E+00, 0.7933E-03, 0.6813E-03, - + 0.2156E-02, 0.6813E-03, 0.9720E-02, 0.8533E-02/ - DATA ((CALC(I,K,8 ),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.6895E-03, 0.7794E-03, - + 0.2248E-02, 0.7794E-03, 0.1045E-01, 0.9051E-02, - + 0.0000E+00, 0.0000E+00, 0.5772E-03, 0.8855E-03, - + 0.2348E-02, 0.8855E-03, 0.1124E-01, 0.9622E-02, - + 0.0000E+00, 0.0000E+00, 0.4557E-03, 0.1000E-02, - + 0.2456E-02, 0.1000E-02, 0.1209E-01, 0.1025E-01, - + 0.0000E+00, 0.0000E+00, 0.3242E-03, 0.1125E-02, - + 0.2573E-02, 0.1125E-02, 0.1302E-01, 0.1095E-01, - + 0.0000E+00, 0.0000E+00, 0.1819E-03, 0.1259E-02, - + 0.2700E-02, 0.1259E-02, 0.1403E-01, 0.1172E-01, - + 0.0000E+00, 0.0000E+00, 0.2794E-04, 0.1405E-02, - + 0.2838E-02, 0.1405E-02, 0.1513E-01, 0.1257E-01, - + 0.0000E+00, 0.0000E+00, -0.1386E-03, 0.1563E-02, - + 0.2987E-02, 0.1563E-02, 0.1632E-01, 0.1351E-01, - + 0.0000E+00, 0.0000E+00, -0.3188E-03, 0.1734E-02, - + 0.3149E-02, 0.1734E-02, 0.1762E-01, 0.1455E-01, - + 0.0000E+00, 0.0000E+00, -0.5136E-03, 0.1919E-02, - + 0.3324E-02, 0.1919E-02, 0.1903E-01, 0.1569E-01/ - DATA ((CALC(I,K,8 ),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.7244E-03, 0.2119E-02, - + 0.3514E-02, 0.2119E-02, 0.2056E-01, 0.1695E-01, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,9 ),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1331E-02, 0.1925E-03, - + 0.1716E-02, 0.1925E-03, 0.5326E-02, 0.5026E-02, - + 0.0000E+00, 0.0000E+00, 0.1270E-02, 0.2501E-03, - + 0.1771E-02, 0.2501E-03, 0.5741E-02, 0.5228E-02, - + 0.0000E+00, 0.0000E+00, 0.1204E-02, 0.3123E-03, - + 0.1829E-02, 0.3123E-03, 0.6186E-02, 0.5433E-02, - + 0.0000E+00, 0.0000E+00, 0.1132E-02, 0.3796E-03, - + 0.1891E-02, 0.3796E-03, 0.6664E-02, 0.5649E-02, - + 0.0000E+00, 0.0000E+00, 0.1055E-02, 0.4523E-03, - + 0.1959E-02, 0.4523E-03, 0.7180E-02, 0.5880E-02, - + 0.0000E+00, 0.0000E+00, 0.9702E-03, 0.5311E-03, - + 0.2032E-02, 0.5311E-03, 0.7737E-02, 0.6131E-02, - + 0.0000E+00, 0.0000E+00, 0.8788E-03, 0.6164E-03, - + 0.2112E-02, 0.6164E-03, 0.8339E-02, 0.6410E-02, - + 0.0000E+00, 0.0000E+00, 0.7797E-03, 0.7087E-03, - + 0.2197E-02, 0.7087E-03, 0.8992E-02, 0.6720E-02, - + 0.0000E+00, 0.0000E+00, 0.6724E-03, 0.8088E-03, - + 0.2290E-02, 0.8088E-03, 0.9699E-02, 0.7067E-02/ - DATA ((CALC(I,K,9 ),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.5562E-03, 0.9172E-03, - + 0.2391E-02, 0.9172E-03, 0.1047E-01, 0.7458E-02, - + 0.0000E+00, 0.0000E+00, 0.4303E-03, 0.1035E-02, - + 0.2500E-02, 0.1035E-02, 0.1130E-01, 0.7896E-02, - + 0.0000E+00, 0.0000E+00, 0.2941E-03, 0.1162E-02, - + 0.2618E-02, 0.1162E-02, 0.1220E-01, 0.8388E-02, - + 0.0000E+00, 0.0000E+00, 0.1467E-03, 0.1300E-02, - + 0.2747E-02, 0.1300E-02, 0.1319E-01, 0.8939E-02, - + 0.0000E+00, 0.0000E+00, -0.1287E-04, 0.1449E-02, - + 0.2886E-02, 0.1449E-02, 0.1426E-01, 0.9555E-02, - + 0.0000E+00, 0.0000E+00, -0.1855E-03, 0.1611E-02, - + 0.3037E-02, 0.1611E-02, 0.1542E-01, 0.1024E-01, - + 0.0000E+00, 0.0000E+00, -0.3723E-03, 0.1787E-02, - + 0.3202E-02, 0.1787E-02, 0.1669E-01, 0.1100E-01, - + 0.0000E+00, 0.0000E+00, -0.5743E-03, 0.1977E-02, - + 0.3380E-02, 0.1977E-02, 0.1806E-01, 0.1185E-01, - + 0.0000E+00, 0.0000E+00, -0.7929E-03, 0.2183E-02, - + 0.3574E-02, 0.2183E-02, 0.1956E-01, 0.1278E-01/ - DATA ((CALC(I,K,9 ),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.1029E-02, 0.2407E-02, - + 0.3785E-02, 0.2407E-02, 0.2119E-01, 0.1381E-01, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,10),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1290E-02, 0.2527E-03, - + 0.1796E-02, 0.2527E-03, 0.5161E-02, 0.4547E-02, - + 0.0000E+00, 0.0000E+00, 0.1224E-02, 0.3140E-03, - + 0.1852E-02, 0.3140E-03, 0.5591E-02, 0.4649E-02, - + 0.0000E+00, 0.0000E+00, 0.1151E-02, 0.3804E-03, - + 0.1912E-02, 0.3804E-03, 0.6053E-02, 0.4759E-02, - + 0.0000E+00, 0.0000E+00, 0.1073E-02, 0.4525E-03, - + 0.1978E-02, 0.4525E-03, 0.6551E-02, 0.4881E-02, - + 0.0000E+00, 0.0000E+00, 0.9879E-03, 0.5306E-03, - + 0.2049E-02, 0.5306E-03, 0.7090E-02, 0.5021E-02, - + 0.0000E+00, 0.0000E+00, 0.8954E-03, 0.6154E-03, - + 0.2126E-02, 0.6154E-03, 0.7673E-02, 0.5183E-02, - + 0.0000E+00, 0.0000E+00, 0.7952E-03, 0.7074E-03, - + 0.2210E-02, 0.7074E-03, 0.8304E-02, 0.5372E-02, - + 0.0000E+00, 0.0000E+00, 0.6865E-03, 0.8072E-03, - + 0.2301E-02, 0.8072E-03, 0.8990E-02, 0.5593E-02, - + 0.0000E+00, 0.0000E+00, 0.5686E-03, 0.9156E-03, - + 0.2400E-02, 0.9156E-03, 0.9734E-02, 0.5850E-02/ - DATA ((CALC(I,K,10),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.4410E-03, 0.1033E-02, - + 0.2507E-02, 0.1033E-02, 0.1054E-01, 0.6146E-02, - + 0.0000E+00, 0.0000E+00, 0.3027E-03, 0.1161E-02, - + 0.2624E-02, 0.1161E-02, 0.1142E-01, 0.6487E-02, - + 0.0000E+00, 0.0000E+00, 0.1529E-03, 0.1299E-02, - + 0.2751E-02, 0.1299E-02, 0.1238E-01, 0.6877E-02, - + 0.0000E+00, 0.0000E+00, -0.9250E-05, 0.1449E-02, - + 0.2890E-02, 0.1449E-02, 0.1342E-01, 0.7320E-02, - + 0.0000E+00, 0.0000E+00, -0.1847E-03, 0.1612E-02, - + 0.3040E-02, 0.1612E-02, 0.1456E-01, 0.7820E-02, - + 0.0000E+00, 0.0000E+00, -0.3747E-03, 0.1789E-02, - + 0.3204E-02, 0.1789E-02, 0.1579E-01, 0.8381E-02, - + 0.0000E+00, 0.0000E+00, -0.5801E-03, 0.1981E-02, - + 0.3382E-02, 0.1981E-02, 0.1713E-01, 0.9008E-02, - + 0.0000E+00, 0.0000E+00, -0.8024E-03, 0.2189E-02, - + 0.3575E-02, 0.2189E-02, 0.1859E-01, 0.9705E-02, - + 0.0000E+00, 0.0000E+00, -0.1043E-02, 0.2414E-02, - + 0.3786E-02, 0.2414E-02, 0.2018E-01, 0.1048E-01/ - DATA ((CALC(I,K,10),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.1303E-02, 0.2659E-02, - + 0.4015E-02, 0.2659E-02, 0.2191E-01, 0.1133E-01, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,11),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1259E-02, 0.2998E-03, - + 0.1859E-02, 0.2998E-03, 0.5037E-02, 0.4072E-02, - + 0.0000E+00, 0.0000E+00, 0.1188E-02, 0.3641E-03, - + 0.1916E-02, 0.3641E-03, 0.5481E-02, 0.4098E-02, - + 0.0000E+00, 0.0000E+00, 0.1110E-02, 0.4339E-03, - + 0.1978E-02, 0.4339E-03, 0.5959E-02, 0.4135E-02, - + 0.0000E+00, 0.0000E+00, 0.1026E-02, 0.5100E-03, - + 0.2046E-02, 0.5100E-03, 0.6476E-02, 0.4188E-02, - + 0.0000E+00, 0.0000E+00, 0.9340E-03, 0.5927E-03, - + 0.2119E-02, 0.5927E-03, 0.7036E-02, 0.4261E-02, - + 0.0000E+00, 0.0000E+00, 0.8342E-03, 0.6827E-03, - + 0.2200E-02, 0.6827E-03, 0.7645E-02, 0.4358E-02, - + 0.0000E+00, 0.0000E+00, 0.7257E-03, 0.7807E-03, - + 0.2287E-02, 0.7807E-03, 0.8305E-02, 0.4483E-02, - + 0.0000E+00, 0.0000E+00, 0.6081E-03, 0.8871E-03, - + 0.2382E-02, 0.8871E-03, 0.9024E-02, 0.4638E-02, - + 0.0000E+00, 0.0000E+00, 0.4806E-03, 0.1003E-02, - + 0.2486E-02, 0.1003E-02, 0.9807E-02, 0.4829E-02/ - DATA ((CALC(I,K,11),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.3422E-03, 0.1129E-02, - + 0.2600E-02, 0.1129E-02, 0.1066E-01, 0.5057E-02, - + 0.0000E+00, 0.0000E+00, 0.1923E-03, 0.1266E-02, - + 0.2724E-02, 0.1266E-02, 0.1159E-01, 0.5327E-02, - + 0.0000E+00, 0.0000E+00, 0.2992E-04, 0.1414E-02, - + 0.2858E-02, 0.1414E-02, 0.1260E-01, 0.5641E-02, - + 0.0000E+00, 0.0000E+00, -0.1460E-03, 0.1575E-02, - + 0.3005E-02, 0.1575E-02, 0.1370E-01, 0.6002E-02, - + 0.0000E+00, 0.0000E+00, -0.3363E-03, 0.1751E-02, - + 0.3166E-02, 0.1751E-02, 0.1489E-01, 0.6414E-02, - + 0.0000E+00, 0.0000E+00, -0.5424E-03, 0.1941E-02, - + 0.3340E-02, 0.1941E-02, 0.1620E-01, 0.6879E-02, - + 0.0000E+00, 0.0000E+00, -0.7653E-03, 0.2148E-02, - + 0.3530E-02, 0.2148E-02, 0.1761E-01, 0.7397E-02, - + 0.0000E+00, 0.0000E+00, -0.1006E-02, 0.2372E-02, - + 0.3738E-02, 0.2372E-02, 0.1916E-01, 0.7983E-02, - + 0.0000E+00, 0.0000E+00, -0.1267E-02, 0.2615E-02, - + 0.3963E-02, 0.2615E-02, 0.2084E-01, 0.8632E-02/ - DATA ((CALC(I,K,11),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.1549E-02, 0.2879E-02, - + 0.4209E-02, 0.2879E-02, 0.2266E-01, 0.9347E-02, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,12),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1238E-02, 0.3350E-03, - + 0.1908E-02, 0.3350E-03, 0.4950E-02, 0.3607E-02, - + 0.0000E+00, 0.0000E+00, 0.1162E-02, 0.4016E-03, - + 0.1965E-02, 0.4016E-03, 0.5405E-02, 0.3576E-02, - + 0.0000E+00, 0.0000E+00, 0.1079E-02, 0.4744E-03, - + 0.2028E-02, 0.4744E-03, 0.5897E-02, 0.3560E-02, - + 0.0000E+00, 0.0000E+00, 0.9892E-03, 0.5539E-03, - + 0.2097E-02, 0.5539E-03, 0.6431E-02, 0.3563E-02, - + 0.0000E+00, 0.0000E+00, 0.8911E-03, 0.6407E-03, - + 0.2173E-02, 0.6407E-03, 0.7012E-02, 0.3588E-02, - + 0.0000E+00, 0.0000E+00, 0.7844E-03, 0.7355E-03, - + 0.2255E-02, 0.7355E-03, 0.7645E-02, 0.3638E-02, - + 0.0000E+00, 0.0000E+00, 0.6683E-03, 0.8388E-03, - + 0.2346E-02, 0.8388E-03, 0.8335E-02, 0.3717E-02, - + 0.0000E+00, 0.0000E+00, 0.5422E-03, 0.9514E-03, - + 0.2445E-02, 0.9514E-03, 0.9087E-02, 0.3826E-02, - + 0.0000E+00, 0.0000E+00, 0.4053E-03, 0.1074E-02, - + 0.2554E-02, 0.1074E-02, 0.9907E-02, 0.3969E-02/ - DATA ((CALC(I,K,12),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.2568E-03, 0.1208E-02, - + 0.2672E-02, 0.1208E-02, 0.1080E-01, 0.4147E-02, - + 0.0000E+00, 0.0000E+00, 0.9573E-04, 0.1353E-02, - + 0.2802E-02, 0.1353E-02, 0.1178E-01, 0.4364E-02, - + 0.0000E+00, 0.0000E+00, -0.7882E-04, 0.1511E-02, - + 0.2944E-02, 0.1511E-02, 0.1284E-01, 0.4621E-02, - + 0.0000E+00, 0.0000E+00, -0.2679E-03, 0.1683E-02, - + 0.3099E-02, 0.1683E-02, 0.1400E-01, 0.4920E-02, - + 0.0000E+00, 0.0000E+00, -0.4726E-03, 0.1871E-02, - + 0.3269E-02, 0.1871E-02, 0.1526E-01, 0.5264E-02, - + 0.0000E+00, 0.0000E+00, -0.6941E-03, 0.2074E-02, - + 0.3454E-02, 0.2074E-02, 0.1663E-01, 0.5654E-02, - + 0.0000E+00, 0.0000E+00, -0.9338E-03, 0.2294E-02, - + 0.3656E-02, 0.2294E-02, 0.1813E-01, 0.6094E-02, - + 0.0000E+00, 0.0000E+00, -0.1193E-02, 0.2534E-02, - + 0.3876E-02, 0.2534E-02, 0.1976E-01, 0.6586E-02, - + 0.0000E+00, 0.0000E+00, -0.1473E-02, 0.2794E-02, - + 0.4116E-02, 0.2794E-02, 0.2153E-01, 0.7132E-02/ - DATA ((CALC(I,K,12),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.1776E-02, 0.3076E-02, - + 0.4377E-02, 0.3076E-02, 0.2345E-01, 0.7735E-02, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,13),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1222E-02, 0.3601E-03, - + 0.1942E-02, 0.3601E-03, 0.4890E-02, 0.3159E-02, - + 0.0000E+00, 0.0000E+00, 0.1143E-02, 0.4288E-03, - + 0.2000E-02, 0.4288E-03, 0.5354E-02, 0.3087E-02, - + 0.0000E+00, 0.0000E+00, 0.1056E-02, 0.5042E-03, - + 0.2064E-02, 0.5042E-03, 0.5859E-02, 0.3033E-02, - + 0.0000E+00, 0.0000E+00, 0.9603E-03, 0.5869E-03, - + 0.2134E-02, 0.5869E-03, 0.6411E-02, 0.3001E-02, - + 0.0000E+00, 0.0000E+00, 0.8562E-03, 0.6777E-03, - + 0.2211E-02, 0.6777E-03, 0.7013E-02, 0.2993E-02, - + 0.0000E+00, 0.0000E+00, 0.7427E-03, 0.7770E-03, - + 0.2297E-02, 0.7770E-03, 0.7672E-02, 0.3011E-02, - + 0.0000E+00, 0.0000E+00, 0.6191E-03, 0.8857E-03, - + 0.2391E-02, 0.8857E-03, 0.8391E-02, 0.3058E-02, - + 0.0000E+00, 0.0000E+00, 0.4847E-03, 0.1004E-02, - + 0.2494E-02, 0.1004E-02, 0.9178E-02, 0.3135E-02, - + 0.0000E+00, 0.0000E+00, 0.3385E-03, 0.1134E-02, - + 0.2607E-02, 0.1134E-02, 0.1004E-01, 0.3244E-02/ - DATA ((CALC(I,K,13),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.1798E-03, 0.1275E-02, - + 0.2731E-02, 0.1275E-02, 0.1098E-01, 0.3387E-02, - + 0.0000E+00, 0.0000E+00, 0.7585E-05, 0.1430E-02, - + 0.2867E-02, 0.1430E-02, 0.1200E-01, 0.3564E-02, - + 0.0000E+00, 0.0000E+00, -0.1791E-03, 0.1598E-02, - + 0.3016E-02, 0.1598E-02, 0.1312E-01, 0.3777E-02, - + 0.0000E+00, 0.0000E+00, -0.3814E-03, 0.1780E-02, - + 0.3180E-02, 0.1780E-02, 0.1434E-01, 0.4029E-02, - + 0.0000E+00, 0.0000E+00, -0.6005E-03, 0.1979E-02, - + 0.3358E-02, 0.1979E-02, 0.1567E-01, 0.4319E-02, - + 0.0000E+00, 0.0000E+00, -0.8375E-03, 0.2195E-02, - + 0.3554E-02, 0.2195E-02, 0.1712E-01, 0.4650E-02, - + 0.0000E+00, 0.0000E+00, -0.1094E-02, 0.2430E-02, - + 0.3767E-02, 0.2430E-02, 0.1869E-01, 0.5023E-02, - + 0.0000E+00, 0.0000E+00, -0.1371E-02, 0.2685E-02, - + 0.4000E-02, 0.2685E-02, 0.2041E-01, 0.5440E-02, - + 0.0000E+00, 0.0000E+00, -0.1671E-02, 0.2962E-02, - + 0.4254E-02, 0.2962E-02, 0.2227E-01, 0.5903E-02/ - DATA ((CALC(I,K,13),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.1994E-02, 0.3262E-02, - + 0.4531E-02, 0.3262E-02, 0.2430E-01, 0.6414E-02, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,14),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1213E-02, 0.3767E-03, - + 0.1967E-02, 0.3767E-03, 0.4853E-02, 0.2733E-02, - + 0.0000E+00, 0.0000E+00, 0.1130E-02, 0.4476E-03, - + 0.2025E-02, 0.4476E-03, 0.5327E-02, 0.2633E-02, - + 0.0000E+00, 0.0000E+00, 0.1038E-02, 0.5258E-03, - + 0.2090E-02, 0.5258E-03, 0.5847E-02, 0.2554E-02, - + 0.0000E+00, 0.0000E+00, 0.9374E-03, 0.6121E-03, - + 0.2162E-02, 0.6121E-03, 0.6418E-02, 0.2500E-02, - + 0.0000E+00, 0.0000E+00, 0.8271E-03, 0.7071E-03, - + 0.2241E-02, 0.7071E-03, 0.7044E-02, 0.2471E-02, - + 0.0000E+00, 0.0000E+00, 0.7066E-03, 0.8115E-03, - + 0.2330E-02, 0.8115E-03, 0.7731E-02, 0.2468E-02, - + 0.0000E+00, 0.0000E+00, 0.5751E-03, 0.9260E-03, - + 0.2427E-02, 0.9260E-03, 0.8484E-02, 0.2494E-02, - + 0.0000E+00, 0.0000E+00, 0.4317E-03, 0.1051E-02, - + 0.2535E-02, 0.1051E-02, 0.9309E-02, 0.2550E-02, - + 0.0000E+00, 0.0000E+00, 0.2757E-03, 0.1189E-02, - + 0.2653E-02, 0.1189E-02, 0.1021E-01, 0.2635E-02/ - DATA ((CALC(I,K,14),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.1062E-03, 0.1340E-02, - + 0.2783E-02, 0.1340E-02, 0.1120E-01, 0.2752E-02, - + 0.0000E+00, 0.0000E+00, -0.7778E-04, 0.1503E-02, - + 0.2927E-02, 0.1503E-02, 0.1228E-01, 0.2900E-02, - + 0.0000E+00, 0.0000E+00, -0.2773E-03, 0.1681E-02, - + 0.3084E-02, 0.1681E-02, 0.1346E-01, 0.3080E-02, - + 0.0000E+00, 0.0000E+00, -0.4936E-03, 0.1875E-02, - + 0.3256E-02, 0.1875E-02, 0.1475E-01, 0.3294E-02, - + 0.0000E+00, 0.0000E+00, -0.7277E-03, 0.2086E-02, - + 0.3444E-02, 0.2086E-02, 0.1615E-01, 0.3541E-02, - + 0.0000E+00, 0.0000E+00, -0.9809E-03, 0.2316E-02, - + 0.3650E-02, 0.2316E-02, 0.1768E-01, 0.3824E-02, - + 0.0000E+00, 0.0000E+00, -0.1255E-02, 0.2565E-02, - + 0.3876E-02, 0.2565E-02, 0.1934E-01, 0.4142E-02, - + 0.0000E+00, 0.0000E+00, -0.1551E-02, 0.2836E-02, - + 0.4122E-02, 0.2836E-02, 0.2115E-01, 0.4497E-02, - + 0.0000E+00, 0.0000E+00, -0.1870E-02, 0.3130E-02, - + 0.4391E-02, 0.3130E-02, 0.2312E-01, 0.4891E-02/ - DATA ((CALC(I,K,14),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.2215E-02, 0.3449E-02, - + 0.4684E-02, 0.3449E-02, 0.2525E-01, 0.5325E-02, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,15),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1209E-02, 0.3877E-03, - + 0.1984E-02, 0.3877E-03, 0.4835E-02, 0.2333E-02, - + 0.0000E+00, 0.0000E+00, 0.1121E-02, 0.4613E-03, - + 0.2044E-02, 0.4613E-03, 0.5323E-02, 0.2216E-02, - + 0.0000E+00, 0.0000E+00, 0.1025E-02, 0.5430E-03, - + 0.2111E-02, 0.5430E-03, 0.5862E-02, 0.2123E-02, - + 0.0000E+00, 0.0000E+00, 0.9181E-03, 0.6336E-03, - + 0.2185E-02, 0.6336E-03, 0.6456E-02, 0.2056E-02, - + 0.0000E+00, 0.0000E+00, 0.8010E-03, 0.7337E-03, - + 0.2268E-02, 0.7337E-03, 0.7112E-02, 0.2015E-02, - + 0.0000E+00, 0.0000E+00, 0.6726E-03, 0.8440E-03, - + 0.2361E-02, 0.8440E-03, 0.7834E-02, 0.2001E-02, - + 0.0000E+00, 0.0000E+00, 0.5322E-03, 0.9654E-03, - + 0.2463E-02, 0.9654E-03, 0.8627E-02, 0.2015E-02, - + 0.0000E+00, 0.0000E+00, 0.3789E-03, 0.1098E-02, - + 0.2576E-02, 0.1098E-02, 0.9499E-02, 0.2057E-02, - + 0.0000E+00, 0.0000E+00, 0.2120E-03, 0.1244E-02, - + 0.2701E-02, 0.1244E-02, 0.1045E-01, 0.2126E-02/ - DATA ((CALC(I,K,15),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.3050E-04, 0.1404E-02, - + 0.2838E-02, 0.1404E-02, 0.1150E-01, 0.2224E-02, - + 0.0000E+00, 0.0000E+00, -0.1666E-03, 0.1578E-02, - + 0.2990E-02, 0.1578E-02, 0.1264E-01, 0.2350E-02, - + 0.0000E+00, 0.0000E+00, -0.3804E-03, 0.1768E-02, - + 0.3156E-02, 0.1768E-02, 0.1389E-01, 0.2505E-02, - + 0.0000E+00, 0.0000E+00, -0.6120E-03, 0.1974E-02, - + 0.3338E-02, 0.1974E-02, 0.1526E-01, 0.2688E-02, - + 0.0000E+00, 0.0000E+00, -0.8626E-03, 0.2199E-02, - + 0.3537E-02, 0.2199E-02, 0.1674E-01, 0.2901E-02, - + 0.0000E+00, 0.0000E+00, -0.1134E-02, 0.2444E-02, - + 0.3756E-02, 0.2444E-02, 0.1836E-01, 0.3143E-02, - + 0.0000E+00, 0.0000E+00, -0.1426E-02, 0.2710E-02, - + 0.3995E-02, 0.2710E-02, 0.2012E-01, 0.3415E-02, - + 0.0000E+00, 0.0000E+00, -0.1743E-02, 0.2999E-02, - + 0.4255E-02, 0.2999E-02, 0.2203E-01, 0.3719E-02, - + 0.0000E+00, 0.0000E+00, -0.2084E-02, 0.3311E-02, - + 0.4540E-02, 0.3311E-02, 0.2411E-01, 0.4054E-02/ - DATA ((CALC(I,K,15),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.2452E-02, 0.3651E-02, - + 0.4851E-02, 0.3651E-02, 0.2637E-01, 0.4422E-02, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,16),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1210E-02, 0.3954E-03, - + 0.2001E-02, 0.3954E-03, 0.4839E-02, 0.1962E-02, - + 0.0000E+00, 0.0000E+00, 0.1118E-02, 0.4727E-03, - + 0.2063E-02, 0.4727E-03, 0.5348E-02, 0.1838E-02, - + 0.0000E+00, 0.0000E+00, 0.1015E-02, 0.5591E-03, - + 0.2133E-02, 0.5591E-03, 0.5913E-02, 0.1740E-02, - + 0.0000E+00, 0.0000E+00, 0.9014E-03, 0.6552E-03, - + 0.2212E-02, 0.6552E-03, 0.6540E-02, 0.1668E-02, - + 0.0000E+00, 0.0000E+00, 0.7761E-03, 0.7618E-03, - + 0.2300E-02, 0.7618E-03, 0.7234E-02, 0.1623E-02, - + 0.0000E+00, 0.0000E+00, 0.6384E-03, 0.8795E-03, - + 0.2397E-02, 0.8795E-03, 0.8001E-02, 0.1604E-02, - + 0.0000E+00, 0.0000E+00, 0.4875E-03, 0.1009E-02, - + 0.2506E-02, 0.1009E-02, 0.8845E-02, 0.1611E-02, - + 0.0000E+00, 0.0000E+00, 0.3226E-03, 0.1152E-02, - + 0.2626E-02, 0.1152E-02, 0.9773E-02, 0.1644E-02, - + 0.0000E+00, 0.0000E+00, 0.1428E-03, 0.1308E-02, - + 0.2759E-02, 0.1308E-02, 0.1079E-01, 0.1703E-02/ - DATA ((CALC(I,K,16),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.5268E-04, 0.1478E-02, - + 0.2905E-02, 0.1478E-02, 0.1191E-01, 0.1788E-02, - + 0.0000E+00, 0.0000E+00, -0.2649E-03, 0.1665E-02, - + 0.3066E-02, 0.1665E-02, 0.1313E-01, 0.1897E-02, - + 0.0000E+00, 0.0000E+00, -0.4950E-03, 0.1868E-02, - + 0.3242E-02, 0.1868E-02, 0.1446E-01, 0.2031E-02, - + 0.0000E+00, 0.0000E+00, -0.7441E-03, 0.2090E-02, - + 0.3436E-02, 0.2090E-02, 0.1591E-01, 0.2190E-02, - + 0.0000E+00, 0.0000E+00, -0.1013E-02, 0.2330E-02, - + 0.3648E-02, 0.2330E-02, 0.1749E-01, 0.2373E-02, - + 0.0000E+00, 0.0000E+00, -0.1304E-02, 0.2592E-02, - + 0.3881E-02, 0.2592E-02, 0.1922E-01, 0.2582E-02, - + 0.0000E+00, 0.0000E+00, -0.1618E-02, 0.2876E-02, - + 0.4134E-02, 0.2876E-02, 0.2109E-01, 0.2815E-02, - + 0.0000E+00, 0.0000E+00, -0.1957E-02, 0.3183E-02, - + 0.4412E-02, 0.3183E-02, 0.2312E-01, 0.3073E-02, - + 0.0000E+00, 0.0000E+00, -0.2322E-02, 0.3517E-02, - + 0.4714E-02, 0.3517E-02, 0.2533E-01, 0.3358E-02/ - DATA ((CALC(I,K,16),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.2715E-02, 0.3878E-02, - + 0.5044E-02, 0.3878E-02, 0.2772E-01, 0.3670E-02, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,17),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1218E-02, 0.4021E-03, - + 0.2022E-02, 0.4021E-03, 0.4871E-02, 0.1625E-02, - + 0.0000E+00, 0.0000E+00, 0.1119E-02, 0.4848E-03, - + 0.2089E-02, 0.4848E-03, 0.5411E-02, 0.1501E-02, - + 0.0000E+00, 0.0000E+00, 0.1009E-02, 0.5774E-03, - + 0.2164E-02, 0.5774E-03, 0.6014E-02, 0.1404E-02, - + 0.0000E+00, 0.0000E+00, 0.8866E-03, 0.6809E-03, - + 0.2248E-02, 0.6809E-03, 0.6686E-02, 0.1333E-02, - + 0.0000E+00, 0.0000E+00, 0.7510E-03, 0.7958E-03, - + 0.2343E-02, 0.7958E-03, 0.7431E-02, 0.1288E-02, - + 0.0000E+00, 0.0000E+00, 0.6017E-03, 0.9229E-03, - + 0.2448E-02, 0.9229E-03, 0.8255E-02, 0.1269E-02, - + 0.0000E+00, 0.0000E+00, 0.4378E-03, 0.1063E-02, - + 0.2564E-02, 0.1063E-02, 0.9164E-02, 0.1274E-02, - + 0.0000E+00, 0.0000E+00, 0.2588E-03, 0.1217E-02, - + 0.2693E-02, 0.1217E-02, 0.1016E-01, 0.1304E-02, - + 0.0000E+00, 0.0000E+00, 0.6363E-04, 0.1385E-02, - + 0.2835E-02, 0.1385E-02, 0.1126E-01, 0.1356E-02/ - DATA ((CALC(I,K,17),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.1485E-03, 0.1569E-02, - + 0.2992E-02, 0.1569E-02, 0.1246E-01, 0.1430E-02, - + 0.0000E+00, 0.0000E+00, -0.3786E-03, 0.1771E-02, - + 0.3164E-02, 0.1771E-02, 0.1377E-01, 0.1526E-02, - + 0.0000E+00, 0.0000E+00, -0.6278E-03, 0.1989E-02, - + 0.3353E-02, 0.1989E-02, 0.1520E-01, 0.1643E-02, - + 0.0000E+00, 0.0000E+00, -0.8971E-03, 0.2227E-02, - + 0.3560E-02, 0.2227E-02, 0.1675E-01, 0.1781E-02, - + 0.0000E+00, 0.0000E+00, -0.1188E-02, 0.2486E-02, - + 0.3787E-02, 0.2486E-02, 0.1845E-01, 0.1939E-02, - + 0.0000E+00, 0.0000E+00, -0.1502E-02, 0.2767E-02, - + 0.4034E-02, 0.2767E-02, 0.2029E-01, 0.2118E-02, - + 0.0000E+00, 0.0000E+00, -0.1839E-02, 0.3071E-02, - + 0.4305E-02, 0.3071E-02, 0.2229E-01, 0.2317E-02, - + 0.0000E+00, 0.0000E+00, -0.2203E-02, 0.3400E-02, - + 0.4600E-02, 0.3400E-02, 0.2445E-01, 0.2536E-02, - + 0.0000E+00, 0.0000E+00, -0.2595E-02, 0.3757E-02, - + 0.4922E-02, 0.3757E-02, 0.2680E-01, 0.2777E-02/ - DATA ((CALC(I,K,17),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.3016E-02, 0.4143E-02, - + 0.5273E-02, 0.4143E-02, 0.2935E-01, 0.3040E-02, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,18),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1235E-02, 0.4100E-03, - + 0.2055E-02, 0.4100E-03, 0.4941E-02, 0.1323E-02, - + 0.0000E+00, 0.0000E+00, 0.1128E-02, 0.5000E-03, - + 0.2128E-02, 0.5000E-03, 0.5526E-02, 0.1205E-02, - + 0.0000E+00, 0.0000E+00, 0.1008E-02, 0.6013E-03, - + 0.2210E-02, 0.6013E-03, 0.6182E-02, 0.1114E-02, - + 0.0000E+00, 0.0000E+00, 0.8735E-03, 0.7144E-03, - + 0.2302E-02, 0.7144E-03, 0.6913E-02, 0.1048E-02, - + 0.0000E+00, 0.0000E+00, 0.7246E-03, 0.8401E-03, - + 0.2405E-02, 0.8401E-03, 0.7724E-02, 0.1008E-02, - + 0.0000E+00, 0.0000E+00, 0.5606E-03, 0.9790E-03, - + 0.2519E-02, 0.9790E-03, 0.8621E-02, 0.9914E-03, - + 0.0000E+00, 0.0000E+00, 0.3806E-03, 0.1132E-02, - + 0.2645E-02, 0.1132E-02, 0.9609E-02, 0.9973E-03, - + 0.0000E+00, 0.0000E+00, 0.1842E-03, 0.1300E-02, - + 0.2784E-02, 0.1300E-02, 0.1069E-01, 0.1024E-02, - + 0.0000E+00, 0.0000E+00, -0.2965E-04, 0.1483E-02, - + 0.2937E-02, 0.1483E-02, 0.1188E-01, 0.1072E-02/ - DATA ((CALC(I,K,18),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.2617E-03, 0.1683E-02, - + 0.3106E-02, 0.1683E-02, 0.1318E-01, 0.1138E-02, - + 0.0000E+00, 0.0000E+00, -0.5129E-03, 0.1901E-02, - + 0.3291E-02, 0.1901E-02, 0.1460E-01, 0.1223E-02, - + 0.0000E+00, 0.0000E+00, -0.7843E-03, 0.2138E-02, - + 0.3494E-02, 0.2138E-02, 0.1614E-01, 0.1326E-02, - + 0.0000E+00, 0.0000E+00, -0.1077E-02, 0.2396E-02, - + 0.3716E-02, 0.2396E-02, 0.1782E-01, 0.1445E-02, - + 0.0000E+00, 0.0000E+00, -0.1392E-02, 0.2674E-02, - + 0.3959E-02, 0.2674E-02, 0.1964E-01, 0.1581E-02, - + 0.0000E+00, 0.0000E+00, -0.1732E-02, 0.2977E-02, - + 0.4224E-02, 0.2977E-02, 0.2161E-01, 0.1734E-02, - + 0.0000E+00, 0.0000E+00, -0.2096E-02, 0.3303E-02, - + 0.4513E-02, 0.3303E-02, 0.2375E-01, 0.1902E-02, - + 0.0000E+00, 0.0000E+00, -0.2488E-02, 0.3657E-02, - + 0.4828E-02, 0.3657E-02, 0.2607E-01, 0.2087E-02, - + 0.0000E+00, 0.0000E+00, -0.2909E-02, 0.4039E-02, - + 0.5171E-02, 0.4039E-02, 0.2858E-01, 0.2290E-02/ - DATA ((CALC(I,K,18),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.3361E-02, 0.4451E-02, - + 0.5545E-02, 0.4451E-02, 0.3129E-01, 0.2510E-02, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,19),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1265E-02, 0.4210E-03, - + 0.2108E-02, 0.4210E-03, 0.5061E-02, 0.1058E-02, - + 0.0000E+00, 0.0000E+00, 0.1146E-02, 0.5211E-03, - + 0.2189E-02, 0.5211E-03, 0.5708E-02, 0.9493E-03, - + 0.0000E+00, 0.0000E+00, 0.1012E-02, 0.6336E-03, - + 0.2279E-02, 0.6336E-03, 0.6433E-02, 0.8673E-03, - + 0.0000E+00, 0.0000E+00, 0.8619E-03, 0.7591E-03, - + 0.2380E-02, 0.7591E-03, 0.7241E-02, 0.8103E-03, - + 0.0000E+00, 0.0000E+00, 0.6959E-03, 0.8982E-03, - + 0.2492E-02, 0.8982E-03, 0.8136E-02, 0.7765E-03, - + 0.0000E+00, 0.0000E+00, 0.5132E-03, 0.1052E-02, - + 0.2617E-02, 0.1052E-02, 0.9123E-02, 0.7644E-03, - + 0.0000E+00, 0.0000E+00, 0.3133E-03, 0.1220E-02, - + 0.2754E-02, 0.1220E-02, 0.1021E-01, 0.7723E-03, - + 0.0000E+00, 0.0000E+00, 0.9558E-04, 0.1404E-02, - + 0.2905E-02, 0.1404E-02, 0.1139E-01, 0.7988E-03, - + 0.0000E+00, 0.0000E+00, -0.1408E-03, 0.1605E-02, - + 0.3071E-02, 0.1605E-02, 0.1269E-01, 0.8425E-03/ - DATA ((CALC(I,K,19),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.3964E-03, 0.1823E-02, - + 0.3253E-02, 0.1823E-02, 0.1411E-01, 0.9023E-03, - + 0.0000E+00, 0.0000E+00, -0.6723E-03, 0.2062E-02, - + 0.3452E-02, 0.2062E-02, 0.1564E-01, 0.9773E-03, - + 0.0000E+00, 0.0000E+00, -0.9694E-03, 0.2319E-02, - + 0.3670E-02, 0.2319E-02, 0.1731E-01, 0.1067E-02, - + 0.0000E+00, 0.0000E+00, -0.1289E-02, 0.2597E-02, - + 0.3908E-02, 0.2597E-02, 0.1912E-01, 0.1169E-02, - + 0.0000E+00, 0.0000E+00, -0.1632E-02, 0.2898E-02, - + 0.4168E-02, 0.2898E-02, 0.2108E-01, 0.1286E-02, - + 0.0000E+00, 0.0000E+00, -0.2000E-02, 0.3224E-02, - + 0.4452E-02, 0.3224E-02, 0.2321E-01, 0.1415E-02, - + 0.0000E+00, 0.0000E+00, -0.2394E-02, 0.3576E-02, - + 0.4761E-02, 0.3576E-02, 0.2550E-01, 0.1556E-02, - + 0.0000E+00, 0.0000E+00, -0.2817E-02, 0.3955E-02, - + 0.5097E-02, 0.3955E-02, 0.2798E-01, 0.1712E-02, - + 0.0000E+00, 0.0000E+00, -0.3269E-02, 0.4364E-02, - + 0.5464E-02, 0.4364E-02, 0.3066E-01, 0.1879E-02/ - DATA ((CALC(I,K,19),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.3753E-02, 0.4805E-02, - + 0.5862E-02, 0.4805E-02, 0.3356E-01, 0.2062E-02, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,20),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1311E-02, 0.4367E-03, - + 0.2185E-02, 0.4367E-03, 0.5245E-02, 0.8288E-03, - + 0.0000E+00, 0.0000E+00, 0.1175E-02, 0.5500E-03, - + 0.2275E-02, 0.5500E-03, 0.5974E-02, 0.7327E-03, - + 0.0000E+00, 0.0000E+00, 0.1022E-02, 0.6769E-03, - + 0.2376E-02, 0.6769E-03, 0.6787E-02, 0.6623E-03, - + 0.0000E+00, 0.0000E+00, 0.8518E-03, 0.8178E-03, - + 0.2487E-02, 0.8178E-03, 0.7689E-02, 0.6149E-03, - + 0.0000E+00, 0.0000E+00, 0.6638E-03, 0.9733E-03, - + 0.2610E-02, 0.9733E-03, 0.8685E-02, 0.5888E-03, - + 0.0000E+00, 0.0000E+00, 0.4578E-03, 0.1144E-02, - + 0.2746E-02, 0.1144E-02, 0.9779E-02, 0.5818E-03, - + 0.0000E+00, 0.0000E+00, 0.2333E-03, 0.1331E-02, - + 0.2895E-02, 0.1331E-02, 0.1098E-01, 0.5922E-03, - + 0.0000E+00, 0.0000E+00, -0.1005E-04, 0.1534E-02, - + 0.3059E-02, 0.1534E-02, 0.1228E-01, 0.6184E-03, - + 0.0000E+00, 0.0000E+00, -0.2729E-03, 0.1755E-02, - + 0.3238E-02, 0.1755E-02, 0.1370E-01, 0.6589E-03/ - DATA ((CALC(I,K,20),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.5560E-03, 0.1989E-02, - + 0.3434E-02, 0.1989E-02, 0.1524E-01, 0.7126E-03, - + 0.0000E+00, 0.0000E+00, -0.8602E-03, 0.2249E-02, - + 0.3648E-02, 0.2249E-02, 0.1691E-01, 0.7783E-03, - + 0.0000E+00, 0.0000E+00, -0.1186E-02, 0.2529E-02, - + 0.3882E-02, 0.2529E-02, 0.1872E-01, 0.8554E-03, - + 0.0000E+00, 0.0000E+00, -0.1535E-02, 0.2832E-02, - + 0.4138E-02, 0.2832E-02, 0.2068E-01, 0.9431E-03, - + 0.0000E+00, 0.0000E+00, -0.1909E-02, 0.3158E-02, - + 0.4416E-02, 0.3158E-02, 0.2279E-01, 0.1041E-02, - + 0.0000E+00, 0.0000E+00, -0.2308E-02, 0.3509E-02, - + 0.4718E-02, 0.3509E-02, 0.2507E-01, 0.1149E-02, - + 0.0000E+00, 0.0000E+00, -0.2734E-02, 0.3887E-02, - + 0.5048E-02, 0.3887E-02, 0.2753E-01, 0.1267E-02, - + 0.0000E+00, 0.0000E+00, -0.3189E-02, 0.4294E-02, - + 0.5406E-02, 0.4294E-02, 0.3018E-01, 0.1394E-02, - + 0.0000E+00, 0.0000E+00, -0.3675E-02, 0.4732E-02, - + 0.5796E-02, 0.4732E-02, 0.3305E-01, 0.1533E-02/ - DATA ((CALC(I,K,20),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.4194E-02, 0.5202E-02, - + 0.6219E-02, 0.5202E-02, 0.3613E-01, 0.1682E-02, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,21),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1377E-02, 0.4583E-03, - + 0.2293E-02, 0.4583E-03, 0.5506E-02, 0.6351E-03, - + 0.0000E+00, 0.0000E+00, 0.1217E-02, 0.5884E-03, - + 0.2394E-02, 0.5884E-03, 0.6336E-02, 0.5532E-03, - + 0.0000E+00, 0.0000E+00, 0.1039E-02, 0.7330E-03, - + 0.2505E-02, 0.7330E-03, 0.7257E-02, 0.4951E-03, - + 0.0000E+00, 0.0000E+00, 0.8426E-03, 0.8925E-03, - + 0.2628E-02, 0.8925E-03, 0.8272E-02, 0.4579E-03, - + 0.0000E+00, 0.0000E+00, 0.6271E-03, 0.1068E-02, - + 0.2762E-02, 0.1068E-02, 0.9385E-02, 0.4395E-03, - + 0.0000E+00, 0.0000E+00, 0.3917E-03, 0.1258E-02, - + 0.2909E-02, 0.1258E-02, 0.1060E-01, 0.4375E-03, - + 0.0000E+00, 0.0000E+00, 0.1382E-03, 0.1466E-02, - + 0.3071E-02, 0.1466E-02, 0.1192E-01, 0.4502E-03, - + 0.0000E+00, 0.0000E+00, -0.1353E-03, 0.1690E-02, - + 0.3247E-02, 0.1690E-02, 0.1336E-01, 0.4759E-03, - + 0.0000E+00, 0.0000E+00, -0.4289E-03, 0.1933E-02, - + 0.3439E-02, 0.1933E-02, 0.1492E-01, 0.5131E-03/ - DATA ((CALC(I,K,21),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.7432E-03, 0.2195E-02, - + 0.3650E-02, 0.2195E-02, 0.1660E-01, 0.5606E-03, - + 0.0000E+00, 0.0000E+00, -0.1079E-02, 0.2479E-02, - + 0.3879E-02, 0.2479E-02, 0.1841E-01, 0.6176E-03, - + 0.0000E+00, 0.0000E+00, -0.1437E-02, 0.2782E-02, - + 0.4129E-02, 0.2782E-02, 0.2036E-01, 0.6831E-03, - + 0.0000E+00, 0.0000E+00, -0.1818E-02, 0.3108E-02, - + 0.4400E-02, 0.3108E-02, 0.2247E-01, 0.7567E-03, - + 0.0000E+00, 0.0000E+00, -0.2224E-02, 0.3459E-02, - + 0.4696E-02, 0.3459E-02, 0.2474E-01, 0.8379E-03, - + 0.0000E+00, 0.0000E+00, -0.2655E-02, 0.3835E-02, - + 0.5018E-02, 0.3835E-02, 0.2718E-01, 0.9261E-03, - + 0.0000E+00, 0.0000E+00, -0.3114E-02, 0.4239E-02, - + 0.5367E-02, 0.4239E-02, 0.2980E-01, 0.1021E-02, - + 0.0000E+00, 0.0000E+00, -0.3603E-02, 0.4673E-02, - + 0.5747E-02, 0.4673E-02, 0.3265E-01, 0.1132E-02, - + 0.0000E+00, 0.0000E+00, -0.4122E-02, 0.5139E-02, - + 0.6160E-02, 0.5139E-02, 0.3569E-01, 0.1240E-02/ - DATA ((CALC(I,K,21),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.4675E-02, 0.5640E-02, - + 0.6608E-02, 0.5640E-02, 0.3896E-01, 0.1357E-02, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,22),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1462E-02, 0.4873E-03, - + 0.2437E-02, 0.4873E-03, 0.5848E-02, 0.4746E-03, - + 0.0000E+00, 0.0000E+00, 0.1272E-02, 0.6379E-03, - + 0.2548E-02, 0.6379E-03, 0.6801E-02, 0.4074E-03, - + 0.0000E+00, 0.0000E+00, 0.1062E-02, 0.8038E-03, - + 0.2670E-02, 0.8038E-03, 0.7849E-02, 0.3617E-03, - + 0.0000E+00, 0.0000E+00, 0.8324E-03, 0.9852E-03, - + 0.2803E-02, 0.9852E-03, 0.8994E-02, 0.3345E-03, - + 0.0000E+00, 0.0000E+00, 0.5830E-03, 0.1182E-02, - + 0.2948E-02, 0.1182E-02, 0.1024E-01, 0.3231E-03, - + 0.0000E+00, 0.0000E+00, 0.3145E-03, 0.1396E-02, - + 0.3106E-02, 0.1396E-02, 0.1159E-01, 0.3256E-03, - + 0.0000E+00, 0.0000E+00, 0.2579E-04, 0.1627E-02, - + 0.3279E-02, 0.1627E-02, 0.1305E-01, 0.3399E-03, - + 0.0000E+00, 0.0000E+00, -0.2823E-03, 0.1870E-02, - + 0.3467E-02, 0.1870E-02, 0.1463E-01, 0.3645E-03, - + 0.0000E+00, 0.0000E+00, -0.6105E-03, 0.2145E-02, - + 0.3672E-02, 0.2145E-02, 0.1632E-01, 0.3980E-03/ - DATA ((CALC(I,K,22),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.9591E-03, 0.2431E-02, - + 0.3895E-02, 0.2431E-02, 0.1815E-01, 0.4394E-03, - + 0.0000E+00, 0.0000E+00, -0.1329E-02, 0.2736E-02, - + 0.4138E-02, 0.2736E-02, 0.2011E-01, 0.4877E-03, - + 0.0000E+00, 0.0000E+00, -0.1721E-02, 0.3061E-02, - + 0.4403E-02, 0.3061E-02, 0.2221E-01, 0.5423E-03, - + 0.0000E+00, 0.0000E+00, -0.2135E-02, 0.3411E-02, - + 0.4690E-02, 0.3411E-02, 0.2447E-01, 0.6027E-03, - + 0.0000E+00, 0.0000E+00, -0.2574E-02, 0.3786E-02, - + 0.5002E-02, 0.3786E-02, 0.2689E-01, 0.6685E-03, - + 0.0000E+00, 0.0000E+00, -0.3038E-02, 0.4187E-02, - + 0.5341E-02, 0.4187E-02, 0.2949E-01, 0.7397E-03, - + 0.0000E+00, 0.0000E+00, -0.3530E-02, 0.4617E-02, - + 0.5710E-02, 0.4617E-02, 0.3227E-01, 0.8160E-03, - + 0.0000E+00, 0.0000E+00, -0.4051E-02, 0.5077E-02, - + 0.6110E-02, 0.5077E-02, 0.3526E-01, 0.8979E-03, - + 0.0000E+00, 0.0000E+00, -0.4603E-02, 0.5570E-02, - + 0.6544E-02, 0.5570E-02, 0.3848E-01, 0.9852E-03/ - DATA ((CALC(I,K,22),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.5189E-02, 0.6098E-02, - + 0.7015E-02, 0.6098E-02, 0.4193E-01, 0.1079E-02, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,23),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1571E-02, 0.5237E-03, - + 0.2618E-02, 0.5237E-03, 0.6284E-02, 0.3454E-03, - + 0.0000E+00, 0.0000E+00, 0.1341E-02, 0.6990E-03, - + 0.2739E-02, 0.6990E-03, 0.7380E-02, 0.2925E-03, - + 0.0000E+00, 0.0000E+00, 0.1091E-02, 0.8897E-03, - + 0.2870E-02, 0.8897E-03, 0.8573E-02, 0.2584E-03, - + 0.0000E+00, 0.0000E+00, 0.8202E-03, 0.1096E-02, - + 0.3012E-02, 0.1096E-02, 0.9863E-02, 0.2400E-03, - + 0.0000E+00, 0.0000E+00, 0.5302E-03, 0.1318E-02, - + 0.3166E-02, 0.1318E-02, 0.1125E-01, 0.2347E-03, - + 0.0000E+00, 0.0000E+00, 0.2214E-03, 0.1557E-02, - + 0.3334E-02, 0.1557E-02, 0.1275E-01, 0.2404E-03, - + 0.0000E+00, 0.0000E+00, -0.1069E-03, 0.1728E-02, - + 0.3516E-02, 0.1728E-02, 0.1435E-01, 0.2554E-03, - + 0.0000E+00, 0.0000E+00, -0.4535E-03, 0.2033E-02, - + 0.3715E-02, 0.2033E-02, 0.1607E-01, 0.2782E-03, - + 0.0000E+00, 0.0000E+00, -0.8196E-03, 0.2349E-02, - + 0.3930E-02, 0.2349E-02, 0.1791E-01, 0.3075E-03/ - DATA ((CALC(I,K,23),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.1205E-02, 0.2657E-02, - + 0.4164E-02, 0.2657E-02, 0.1987E-01, 0.3425E-03, - + 0.0000E+00, 0.0000E+00, -0.1610E-02, 0.2992E-02, - + 0.4419E-02, 0.2992E-02, 0.2197E-01, 0.3825E-03, - + 0.0000E+00, 0.0000E+00, -0.2036E-02, 0.3345E-02, - + 0.4695E-02, 0.3345E-02, 0.2422E-01, 0.4267E-03, - + 0.0000E+00, 0.0000E+00, -0.2484E-02, 0.3721E-02, - + 0.4996E-02, 0.3721E-02, 0.2661E-01, 0.4750E-03, - + 0.0000E+00, 0.0000E+00, -0.2955E-02, 0.4122E-02, - + 0.5323E-02, 0.4122E-02, 0.2918E-01, 0.5270E-03, - + 0.0000E+00, 0.0000E+00, -0.3451E-02, 0.4549E-02, - + 0.5677E-02, 0.4549E-02, 0.3192E-01, 0.5827E-03, - + 0.0000E+00, 0.0000E+00, -0.3973E-02, 0.5005E-02, - + 0.6061E-02, 0.5005E-02, 0.3485E-01, 0.6419E-03, - + 0.0000E+00, 0.0000E+00, -0.4524E-02, 0.5490E-02, - + 0.6479E-02, 0.5490E-02, 0.3799E-01, 0.7056E-03, - + 0.0000E+00, 0.0000E+00, -0.5105E-02, 0.6009E-02, - + 0.6932E-02, 0.6009E-02, 0.4136E-01, 0.7729E-03/ - DATA ((CALC(I,K,23),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.5720E-02, 0.6563E-02, - + 0.7423E-02, 0.6563E-02, 0.4496E-01, 0.8437E-03, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,24),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1704E-02, 0.5681E-03, - + 0.2840E-02, 0.5681E-03, 0.6817E-02, 0.2441E-03, - + 0.0000E+00, 0.0000E+00, 0.1424E-02, 0.7722E-03, - + 0.2968E-02, 0.7722E-03, 0.8076E-02, 0.2044E-03, - + 0.0000E+00, 0.0000E+00, 0.1123E-02, 0.9913E-03, - + 0.3105E-02, 0.9913E-03, 0.9428E-02, 0.1806E-03, - + 0.0000E+00, 0.0000E+00, 0.8029E-03, 0.1225E-02, - + 0.3254E-02, 0.1225E-02, 0.1087E-01, 0.1695E-03, - + 0.0000E+00, 0.0000E+00, 0.4652E-03, 0.1475E-02, - + 0.3414E-02, 0.1475E-02, 0.1242E-01, 0.1688E-03, - + 0.0000E+00, 0.0000E+00, 0.1104E-03, 0.1739E-02, - + 0.3588E-02, 0.1739E-02, 0.1406E-01, 0.1766E-03, - + 0.0000E+00, 0.0000E+00, -0.2620E-03, 0.2020E-02, - + 0.3777E-02, 0.2020E-02, 0.1581E-01, 0.1913E-03, - + 0.0000E+00, 0.0000E+00, -0.6507E-03, 0.2317E-02, - + 0.3982E-02, 0.2317E-02, 0.1767E-01, 0.2115E-03, - + 0.0000E+00, 0.0000E+00, -0.1057E-02, 0.2631E-02, - + 0.4205E-02, 0.2631E-02, 0.1964E-01, 0.2364E-03/ - DATA ((CALC(I,K,24),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.1480E-02, 0.2963E-02, - + 0.4447E-02, 0.2963E-02, 0.2173E-01, 0.2650E-03, - + 0.0000E+00, 0.0000E+00, -0.1920E-02, 0.3315E-02, - + 0.4710E-02, 0.3315E-02, 0.2396E-01, 0.2970E-03, - + 0.0000E+00, 0.0000E+00, -0.2380E-02, 0.3687E-02, - + 0.4995E-02, 0.3687E-02, 0.2633E-01, 0.3317E-03, - + 0.0000E+00, 0.0000E+00, -0.2859E-02, 0.4082E-02, - + 0.5305E-02, 0.4082E-02, 0.2885E-01, 0.3689E-03, - + 0.0000E+00, 0.0000E+00, -0.3359E-02, 0.4501E-02, - + 0.5642E-02, 0.4501E-02, 0.3153E-01, 0.4087E-03, - + 0.0000E+00, 0.0000E+00, -0.3883E-02, 0.4945E-02, - + 0.6008E-02, 0.4945E-02, 0.3439E-01, 0.4508E-03, - + 0.0000E+00, 0.0000E+00, -0.4431E-02, 0.5418E-02, - + 0.6405E-02, 0.5418E-02, 0.3744E-01, 0.4954E-03, - + 0.0000E+00, 0.0000E+00, -0.5007E-02, 0.5921E-02, - + 0.6836E-02, 0.5921E-02, 0.4070E-01, 0.5424E-03, - + 0.0000E+00, 0.0000E+00, -0.5612E-02, 0.6458E-02, - + 0.7304E-02, 0.6458E-02, 0.4419E-01, 0.5924E-03/ - DATA ((CALC(I,K,24),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.6249E-02, 0.7031E-02, - + 0.7811E-02, 0.7031E-02, 0.4791E-01, 0.6447E-03, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,25),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1862E-02, 0.6211E-03, - + 0.3104E-02, 0.6211E-03, 0.7449E-02, 0.1673E-03, - + 0.0000E+00, 0.0000E+00, 0.1518E-02, 0.8583E-03, - + 0.3234E-02, 0.8583E-03, 0.8888E-02, 0.1390E-03, - + 0.0000E+00, 0.0000E+00, 0.1156E-02, 0.1109E-02, - + 0.3373E-02, 0.1109E-02, 0.1041E-01, 0.1237E-03, - + 0.0000E+00, 0.0000E+00, 0.7779E-03, 0.1374E-02, - + 0.3523E-02, 0.1374E-02, 0.1202E-01, 0.1183E-03, - + 0.0000E+00, 0.0000E+00, 0.3848E-03, 0.1651E-02, - + 0.3686E-02, 0.1651E-02, 0.1372E-01, 0.1208E-03, - + 0.0000E+00, 0.0000E+00, -0.2175E-04, 0.1942E-02, - + 0.3862E-02, 0.1942E-02, 0.1551E-01, 0.1295E-03, - + 0.0000E+00, 0.0000E+00, -0.4424E-03, 0.2248E-02, - + 0.4053E-02, 0.2248E-02, 0.1739E-01, 0.1429E-03, - + 0.0000E+00, 0.0000E+00, -0.8755E-03, 0.2568E-02, - + 0.4259E-02, 0.2568E-02, 0.1937E-01, 0.1600E-03, - + 0.0000E+00, 0.0000E+00, -0.1322E-02, 0.2904E-02, - + 0.4485E-02, 0.2904E-02, 0.2147E-01, 0.1801E-03/ - DATA ((CALC(I,K,25),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.1782E-02, 0.3256E-02, - + 0.4730E-02, 0.3256E-02, 0.2367E-01, 0.2026E-03, - + 0.0000E+00, 0.0000E+00, -0.2256E-02, 0.3627E-02, - + 0.4997E-02, 0.3627E-02, 0.2601E-01, 0.2271E-03, - + 0.0000E+00, 0.0000E+00, -0.2746E-02, 0.4017E-02, - + 0.5288E-02, 0.4017E-02, 0.2847E-01, 0.2532E-03, - + 0.0000E+00, 0.0000E+00, -0.3252E-02, 0.4427E-02, - + 0.5603E-02, 0.4427E-02, 0.3109E-01, 0.2808E-03, - + 0.0000E+00, 0.0000E+00, -0.3777E-02, 0.4861E-02, - + 0.5946E-02, 0.4861E-02, 0.3386E-01, 0.3099E-03, - + 0.0000E+00, 0.0000E+00, -0.4323E-02, 0.5320E-02, - + 0.6318E-02, 0.5320E-02, 0.3680E-01, 0.3404E-03, - + 0.0000E+00, 0.0000E+00, -0.4891E-02, 0.5807E-02, - + 0.6723E-02, 0.5807E-02, 0.3994E-01, 0.3725E-03, - + 0.0000E+00, 0.0000E+00, -0.5484E-02, 0.6323E-02, - + 0.7162E-02, 0.6323E-02, 0.4327E-01, 0.4061E-03, - + 0.0000E+00, 0.0000E+00, -0.6105E-02, 0.6873E-02, - + 0.7639E-02, 0.6873E-02, 0.4684E-01, 0.4420E-03/ - DATA ((CALC(I,K,25),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.6757E-02, 0.7458E-02, - + 0.8157E-02, 0.7458E-02, 0.5065E-01, 0.4794E-03, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,26),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.2044E-02, 0.6816E-03, - + 0.3407E-02, 0.6816E-03, 0.8178E-02, 0.1109E-03, - + 0.0000E+00, 0.0000E+00, 0.1620E-02, 0.9567E-03, - + 0.3533E-02, 0.9567E-03, 0.9813E-02, 0.9210E-04, - + 0.0000E+00, 0.0000E+00, 0.1184E-02, 0.1243E-02, - + 0.3668E-02, 0.1243E-02, 0.1152E-01, 0.8342E-04, - + 0.0000E+00, 0.0000E+00, 0.7369E-03, 0.1539E-02, - + 0.3814E-02, 0.1539E-02, 0.1329E-01, 0.8212E-04, - + 0.0000E+00, 0.0000E+00, 0.2815E-03, 0.1846E-02, - + 0.3973E-02, 0.1846E-02, 0.1514E-01, 0.8635E-04, - + 0.0000E+00, 0.0000E+00, -0.1817E-03, 0.2164E-02, - + 0.4145E-02, 0.2164E-02, 0.1707E-01, 0.9473E-04, - + 0.0000E+00, 0.0000E+00, -0.6536E-03, 0.2493E-02, - + 0.4333E-02, 0.2493E-02, 0.1907E-01, 0.1062E-03, - + 0.0000E+00, 0.0000E+00, -0.1132E-02, 0.2834E-02, - + 0.4537E-02, 0.2834E-02, 0.2117E-01, 0.1199E-03, - + 0.0000E+00, 0.0000E+00, -0.1618E-02, 0.3188E-02, - + 0.4760E-02, 0.3188E-02, 0.2335E-01, 0.1354E-03/ - DATA ((CALC(I,K,26),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.2112E-02, 0.3557E-02, - + 0.5004E-02, 0.3557E-02, 0.2564E-01, 0.1521E-03, - + 0.0000E+00, 0.0000E+00, -0.2615E-02, 0.3941E-02, - + 0.5270E-02, 0.3941E-02, 0.2805E-01, 0.1698E-03, - + 0.0000E+00, 0.0000E+00, -0.3130E-02, 0.4343E-02, - + 0.5561E-02, 0.4343E-02, 0.3058E-01, 0.1885E-03, - + 0.0000E+00, 0.0000E+00, -0.3657E-02, 0.4765E-02, - + 0.5876E-02, 0.4765E-02, 0.3325E-01, 0.2079E-03, - + 0.0000E+00, 0.0000E+00, -0.4199E-02, 0.5208E-02, - + 0.6219E-02, 0.5208E-02, 0.3607E-01, 0.2281E-03, - + 0.0000E+00, 0.0000E+00, -0.4758E-02, 0.5674E-02, - + 0.6592E-02, 0.5674E-02, 0.3905E-01, 0.2492E-03, - + 0.0000E+00, 0.0000E+00, -0.5337E-02, 0.6167E-02, - + 0.6998E-02, 0.6167E-02, 0.4222E-01, 0.2712E-03, - + 0.0000E+00, 0.0000E+00, -0.5938E-02, 0.6688E-02, - + 0.7440E-02, 0.6688E-02, 0.4559E-01, 0.2939E-03, - + 0.0000E+00, 0.0000E+00, -0.6565E-02, 0.7241E-02, - + 0.7919E-02, 0.7241E-02, 0.4919E-01, 0.3184E-03/ - DATA ((CALC(I,K,26),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.7220E-02, 0.7829E-02, - + 0.8440E-02, 0.7829E-02, 0.5300E-01, 0.3430E-03, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,27),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.2253E-02, 0.7503E-03, - + 0.3754E-02, 0.7503E-03, 0.9011E-02, 0.7114E-04, - + 0.0000E+00, 0.0000E+00, 0.1729E-02, 0.1069E-02, - + 0.3867E-02, 0.1069E-02, 0.1086E-01, 0.5971E-04, - + 0.0000E+00, 0.0000E+00, 0.1203E-02, 0.1393E-02, - + 0.3989E-02, 0.1393E-02, 0.1275E-01, 0.5573E-04, - + 0.0000E+00, 0.0000E+00, 0.6762E-03, 0.1723E-02, - + 0.4122E-02, 0.1723E-02, 0.1469E-01, 0.5689E-04, - + 0.0000E+00, 0.0000E+00, 0.1505E-03, 0.2059E-02, - + 0.4269E-02, 0.2059E-02, 0.1668E-01, 0.6163E-04, - + 0.0000E+00, 0.0000E+00, -0.3748E-03, 0.2402E-02, - + 0.4430E-02, 0.2402E-02, 0.1872E-01, 0.6894E-04, - + 0.0000E+00, 0.0000E+00, -0.8993E-03, 0.2752E-02, - + 0.4608E-02, 0.2752E-02, 0.2082E-01, 0.7800E-04, - + 0.0000E+00, 0.0000E+00, -0.1421E-02, 0.3111E-02, - + 0.4803E-02, 0.3111E-02, 0.2300E-01, 0.8825E-04, - + 0.0000E+00, 0.0000E+00, -0.1944E-02, 0.3480E-02, - + 0.5018E-02, 0.3480E-02, 0.2525E-01, 0.9931E-04/ - DATA ((CALC(I,K,27),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.2467E-02, 0.3859E-02, - + 0.5253E-02, 0.3859E-02, 0.2759E-01, 0.1109E-03, - + 0.0000E+00, 0.0000E+00, -0.2993E-02, 0.4252E-02, - + 0.5513E-02, 0.4252E-02, 0.3003E-01, 0.1230E-03, - + 0.0000E+00, 0.0000E+00, -0.3525E-02, 0.4659E-02, - + 0.5794E-02, 0.4659E-02, 0.3258E-01, 0.1354E-03, - + 0.0000E+00, 0.0000E+00, -0.4064E-02, 0.5083E-02, - + 0.6104E-02, 0.5083E-02, 0.3525E-01, 0.1481E-03, - + 0.0000E+00, 0.0000E+00, -0.4613E-02, 0.5527E-02, - + 0.6442E-02, 0.5527E-02, 0.3807E-01, 0.1612E-03, - + 0.0000E+00, 0.0000E+00, -0.5175E-02, 0.5992E-02, - + 0.6810E-02, 0.5992E-02, 0.4103E-01, 0.1743E-03, - + 0.0000E+00, 0.0000E+00, -0.5753E-02, 0.6482E-02, - + 0.7212E-02, 0.6482E-02, 0.4419E-01, 0.1887E-03, - + 0.0000E+00, 0.0000E+00, -0.6350E-02, 0.6999E-02, - + 0.7648E-02, 0.6999E-02, 0.4753E-01, 0.2038E-03, - + 0.0000E+00, 0.0000E+00, -0.6971E-02, 0.7547E-02, - + 0.8123E-02, 0.7547E-02, 0.5107E-01, 0.2184E-03/ - DATA ((CALC(I,K,27),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.7618E-02, 0.8128E-02, - + 0.8639E-02, 0.8128E-02, 0.5487E-01, 0.2347E-03, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,28),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.2488E-02, 0.8293E-03, - + 0.4148E-02, 0.8293E-03, 0.9954E-02, 0.4417E-04, - + 0.0000E+00, 0.0000E+00, 0.1839E-02, 0.1197E-02, - + 0.4234E-02, 0.1197E-02, 0.1203E-01, 0.3802E-04, - + 0.0000E+00, 0.0000E+00, 0.1204E-02, 0.1564E-02, - + 0.4331E-02, 0.1564E-02, 0.1411E-01, 0.3700E-04, - + 0.0000E+00, 0.0000E+00, 0.5842E-03, 0.1929E-02, - + 0.4442E-02, 0.1929E-02, 0.1621E-01, 0.3926E-04, - + 0.0000E+00, 0.0000E+00, -0.2016E-04, 0.2294E-02, - + 0.4567E-02, 0.2294E-02, 0.1832E-01, 0.4360E-04, - + 0.0000E+00, 0.0000E+00, -0.6087E-03, 0.2660E-02, - + 0.4709E-02, 0.2660E-02, 0.2046E-01, 0.4930E-04, - + 0.0000E+00, 0.0000E+00, -0.1188E-02, 0.3027E-02, - + 0.4869E-02, 0.3027E-02, 0.2264E-01, 0.5583E-04, - + 0.0000E+00, 0.0000E+00, -0.1752E-02, 0.3398E-02, - + 0.5048E-02, 0.3398E-02, 0.2485E-01, 0.6283E-04, - + 0.0000E+00, 0.0000E+00, -0.2306E-02, 0.3774E-02, - + 0.5247E-02, 0.3774E-02, 0.2713E-01, 0.7008E-04/ - DATA ((CALC(I,K,28),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.2851E-02, 0.4158E-02, - + 0.5469E-02, 0.4158E-02, 0.2947E-01, 0.7746E-04, - + 0.0000E+00, 0.0000E+00, -0.3391E-02, 0.4551E-02, - + 0.5712E-02, 0.4551E-02, 0.3189E-01, 0.8492E-04, - + 0.0000E+00, 0.0000E+00, -0.3929E-02, 0.4955E-02, - + 0.5983E-02, 0.4955E-02, 0.3441E-01, 0.9244E-04, - + 0.0000E+00, 0.0000E+00, -0.4468E-02, 0.5373E-02, - + 0.6280E-02, 0.5373E-02, 0.3703E-01, 0.1000E-03, - + 0.0000E+00, 0.0000E+00, -0.5012E-02, 0.5809E-02, - + 0.6603E-02, 0.5809E-02, 0.3978E-01, 0.1078E-03, - + 0.0000E+00, 0.0000E+00, -0.5563E-02, 0.6263E-02, - + 0.6961E-02, 0.6263E-02, 0.4268E-01, 0.1157E-03, - + 0.0000E+00, 0.0000E+00, -0.6127E-02, 0.6740E-02, - + 0.7351E-02, 0.6740E-02, 0.4578E-01, 0.1250E-03, - + 0.0000E+00, 0.0000E+00, -0.6706E-02, 0.7240E-02, - + 0.7776E-02, 0.7240E-02, 0.4901E-01, 0.1327E-03, - + 0.0000E+00, 0.0000E+00, -0.7305E-02, 0.7772E-02, - + 0.8238E-02, 0.7772E-02, 0.5246E-01, 0.1414E-03/ - DATA ((CALC(I,K,28),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.7929E-02, 0.8336E-02, - + 0.8741E-02, 0.8336E-02, 0.5613E-01, 0.1509E-03, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,29),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.2758E-02, 0.9195E-03, - + 0.4597E-02, 0.9195E-03, 0.1103E-01, 0.2644E-04, - + 0.0000E+00, 0.0000E+00, 0.1946E-02, 0.1347E-02, - + 0.4639E-02, 0.1347E-02, 0.1337E-01, 0.2369E-04, - + 0.0000E+00, 0.0000E+00, 0.1176E-02, 0.1761E-02, - + 0.4696E-02, 0.1761E-02, 0.1565E-01, 0.2419E-04, - + 0.0000E+00, 0.0000E+00, 0.4450E-03, 0.2163E-02, - + 0.4770E-02, 0.2163E-02, 0.1790E-01, 0.2654E-04, - + 0.0000E+00, 0.0000E+00, -0.2480E-03, 0.2556E-02, - + 0.4863E-02, 0.2556E-02, 0.2012E-01, 0.2988E-04, - + 0.0000E+00, 0.0000E+00, -0.9065E-03, 0.2942E-02, - + 0.4976E-02, 0.2942E-02, 0.2232E-01, 0.3379E-04, - + 0.0000E+00, 0.0000E+00, -0.1552E-02, 0.3321E-02, - + 0.5109E-02, 0.3321E-02, 0.2453E-01, 0.3796E-04, - + 0.0000E+00, 0.0000E+00, -0.2148E-02, 0.3698E-02, - + 0.5264E-02, 0.3698E-02, 0.2674E-01, 0.4218E-04, - + 0.0000E+00, 0.0000E+00, -0.2720E-02, 0.4074E-02, - + 0.5442E-02, 0.4074E-02, 0.2899E-01, 0.4636E-04/ - DATA ((CALC(I,K,29),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.3274E-02, 0.4453E-02, - + 0.5644E-02, 0.4453E-02, 0.3127E-01, 0.5047E-04, - + 0.0000E+00, 0.0000E+00, -0.3813E-02, 0.4836E-02, - + 0.5871E-02, 0.4836E-02, 0.3362E-01, 0.5450E-04, - + 0.0000E+00, 0.0000E+00, -0.4342E-02, 0.5227E-02, - + 0.6123E-02, 0.5227E-02, 0.3604E-01, 0.5847E-04, - + 0.0000E+00, 0.0000E+00, -0.4865E-02, 0.5629E-02, - + 0.6401E-02, 0.5629E-02, 0.3856E-01, 0.6242E-04, - + 0.0000E+00, 0.0000E+00, -0.5387E-02, 0.6045E-02, - + 0.6710E-02, 0.6045E-02, 0.4119E-01, 0.6640E-04, - + 0.0000E+00, 0.0000E+00, -0.5912E-02, 0.6478E-02, - + 0.7047E-02, 0.6478E-02, 0.4391E-01, 0.6982E-04, - + 0.0000E+00, 0.0000E+00, -0.6446E-02, 0.6931E-02, - + 0.7417E-02, 0.6931E-02, 0.4686E-01, 0.7454E-04, - + 0.0000E+00, 0.0000E+00, -0.6991E-02, 0.7403E-02, - + 0.7821E-02, 0.7403E-02, 0.4993E-01, 0.7895E-04, - + 0.0000E+00, 0.0000E+00, -0.7554E-02, 0.7907E-02, - + 0.8260E-02, 0.7907E-02, 0.5320E-01, 0.8349E-04/ - DATA ((CALC(I,K,29),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.8139E-02, 0.8437E-02, - + 0.8739E-02, 0.8437E-02, 0.5667E-01, 0.8814E-04, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,30),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.3081E-02, 0.1028E-02, - + 0.5135E-02, 0.1028E-02, 0.1233E-01, 0.1487E-04, - + 0.0000E+00, 0.0000E+00, 0.2042E-02, 0.1531E-02, - + 0.5103E-02, 0.1531E-02, 0.1497E-01, 0.1400E-04, - + 0.0000E+00, 0.0000E+00, 0.1093E-02, 0.2002E-02, - + 0.5097E-02, 0.2002E-02, 0.1747E-01, 0.1495E-04, - + 0.0000E+00, 0.0000E+00, 0.2250E-03, 0.2446E-02, - + 0.5116E-02, 0.2446E-02, 0.1987E-01, 0.1677E-04, - + 0.0000E+00, 0.0000E+00, -0.5694E-03, 0.2867E-02, - + 0.5162E-02, 0.2867E-02, 0.2217E-01, 0.1889E-04, - + 0.0000E+00, 0.0000E+00, -0.1300E-02, 0.3267E-02, - + 0.5234E-02, 0.3267E-02, 0.2440E-01, 0.2112E-04, - + 0.0000E+00, 0.0000E+00, -0.1974E-02, 0.3653E-02, - + 0.5332E-02, 0.3653E-02, 0.2659E-01, 0.2333E-04, - + 0.0000E+00, 0.0000E+00, -0.2597E-02, 0.4027E-02, - + 0.5456E-02, 0.4027E-02, 0.2875E-01, 0.2542E-04, - + 0.0000E+00, 0.0000E+00, -0.3183E-02, 0.4393E-02, - + 0.5606E-02, 0.4393E-02, 0.3090E-01, 0.2739E-04/ - DATA ((CALC(I,K,30),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.3733E-02, 0.4756E-02, - + 0.5782E-02, 0.4756E-02, 0.3307E-01, 0.2923E-04, - + 0.0000E+00, 0.0000E+00, -0.4257E-02, 0.5118E-02, - + 0.5984E-02, 0.5118E-02, 0.3527E-01, 0.3097E-04, - + 0.0000E+00, 0.0000E+00, -0.4761E-02, 0.5485E-02, - + 0.6207E-02, 0.5485E-02, 0.3753E-01, 0.3263E-04, - + 0.0000E+00, 0.0000E+00, -0.5252E-02, 0.5858E-02, - + 0.6461E-02, 0.5858E-02, 0.3986E-01, 0.3426E-04, - + 0.0000E+00, 0.0000E+00, -0.5735E-02, 0.6241E-02, - + 0.6747E-02, 0.6241E-02, 0.4229E-01, 0.3587E-04, - + 0.0000E+00, 0.0000E+00, -0.6217E-02, 0.6640E-02, - + 0.7059E-02, 0.6640E-02, 0.4481E-01, 0.3728E-04, - + 0.0000E+00, 0.0000E+00, -0.6703E-02, 0.7055E-02, - + 0.7402E-02, 0.7055E-02, 0.4751E-01, 0.3921E-04, - + 0.0000E+00, 0.0000E+00, -0.7198E-02, 0.7475E-02, - + 0.7777E-02, 0.7475E-02, 0.5034E-01, 0.4109E-04, - + 0.0000E+00, 0.0000E+00, -0.7706E-02, 0.7940E-02, - + 0.8185E-02, 0.7940E-02, 0.5336E-01, 0.4273E-04/ - DATA ((CALC(I,K,30),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.8242E-02, 0.8430E-02, - + 0.8630E-02, 0.8430E-02, 0.5653E-01, 0.4452E-04, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,31),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.3507E-02, 0.1169E-02, - + 0.5847E-02, 0.1169E-02, 0.1403E-01, 0.7133E-05, - + 0.0000E+00, 0.0000E+00, 0.2113E-02, 0.1787E-02, - + 0.5686E-02, 0.1787E-02, 0.1711E-01, 0.7043E-05, - + 0.0000E+00, 0.0000E+00, 0.9042E-03, 0.2337E-02, - + 0.5577E-02, 0.2337E-02, 0.1990E-01, 0.7782E-05, - + 0.0000E+00, 0.0000E+00, -0.1506E-03, 0.2833E-02, - + 0.5513E-02, 0.2833E-02, 0.2246E-01, 0.8803E-05, - + 0.0000E+00, 0.0000E+00, -0.1071E-02, 0.3282E-02, - + 0.5492E-02, 0.3282E-02, 0.2482E-01, 0.9785E-05, - + 0.0000E+00, 0.0000E+00, -0.1889E-02, 0.3693E-02, - + 0.5509E-02, 0.3693E-02, 0.2704E-01, 0.1070E-04, - + 0.0000E+00, 0.0000E+00, -0.2617E-02, 0.4075E-02, - + 0.5562E-02, 0.4075E-02, 0.2915E-01, 0.1153E-04, - + 0.0000E+00, 0.0000E+00, -0.3237E-02, 0.4435E-02, - + 0.5648E-02, 0.4435E-02, 0.3118E-01, 0.1225E-04, - + 0.0000E+00, 0.0000E+00, -0.3810E-02, 0.4777E-02, - + 0.5764E-02, 0.4777E-02, 0.3317E-01, 0.1286E-04/ - DATA ((CALC(I,K,31),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.4327E-02, 0.5110E-02, - + 0.5910E-02, 0.5110E-02, 0.3513E-01, 0.1339E-04, - + 0.0000E+00, 0.0000E+00, -0.4804E-02, 0.5436E-02, - + 0.6084E-02, 0.5436E-02, 0.3711E-01, 0.1387E-04, - + 0.0000E+00, 0.0000E+00, -0.5254E-02, 0.5762E-02, - + 0.6277E-02, 0.5762E-02, 0.3911E-01, 0.1430E-04, - + 0.0000E+00, 0.0000E+00, -0.5684E-02, 0.6092E-02, - + 0.6501E-02, 0.6092E-02, 0.4117E-01, 0.1470E-04, - + 0.0000E+00, 0.0000E+00, -0.6102E-02, 0.6428E-02, - + 0.6764E-02, 0.6428E-02, 0.4330E-01, 0.1511E-04, - + 0.0000E+00, 0.0000E+00, -0.6516E-02, 0.6777E-02, - + 0.7036E-02, 0.6777E-02, 0.4552E-01, 0.1546E-04, - + 0.0000E+00, 0.0000E+00, -0.6931E-02, 0.7140E-02, - + 0.7343E-02, 0.7140E-02, 0.4759E-01, 0.1532E-04, - + 0.0000E+00, 0.0000E+00, -0.7349E-02, 0.7518E-02, - + 0.7679E-02, 0.7518E-02, 0.5011E-01, 0.1594E-04, - + 0.0000E+00, 0.0000E+00, -0.7783E-02, 0.7926E-02, - + 0.8045E-02, 0.7926E-02, 0.5287E-01, 0.1677E-04/ - DATA ((CALC(I,K,31),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.8237E-02, 0.8375E-02, - + 0.8443E-02, 0.8375E-02, 0.5570E-01, 0.1729E-04, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,32),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.4201E-02, 0.1401E-02, - + 0.7002E-02, 0.1401E-02, 0.1681E-01, 0.1987E-05, - + 0.0000E+00, 0.0000E+00, 0.2060E-02, 0.2256E-02, - + 0.6566E-02, 0.2256E-02, 0.2079E-01, 0.2022E-05, - + 0.0000E+00, 0.0000E+00, 0.3736E-03, 0.2950E-02, - + 0.6263E-02, 0.2950E-02, 0.2408E-01, 0.2281E-05, - + 0.0000E+00, 0.0000E+00, -0.9719E-03, 0.3522E-02, - + 0.6064E-02, 0.3522E-02, 0.2687E-01, 0.2574E-05, - + 0.0000E+00, 0.0000E+00, -0.2051E-02, 0.4003E-02, - + 0.5947E-02, 0.4003E-02, 0.2928E-01, 0.2776E-05, - + 0.0000E+00, 0.0000E+00, -0.2860E-02, 0.4414E-02, - + 0.5898E-02, 0.4414E-02, 0.3140E-01, 0.2928E-05, - + 0.0000E+00, 0.0000E+00, -0.3754E-02, 0.4773E-02, - + 0.5902E-02, 0.4773E-02, 0.3332E-01, 0.3058E-05, - + 0.0000E+00, 0.0000E+00, -0.4339E-02, 0.5094E-02, - + 0.5952E-02, 0.5094E-02, 0.3510E-01, 0.3146E-05, - + 0.0000E+00, 0.0000E+00, -0.4796E-02, 0.5389E-02, - + 0.6041E-02, 0.5389E-02, 0.3679E-01, 0.3195E-05/ - DATA ((CALC(I,K,32),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.5223E-02, 0.5666E-02, - + 0.6163E-02, 0.5666E-02, 0.3843E-01, 0.3228E-05, - + 0.0000E+00, 0.0000E+00, -0.5601E-02, 0.5933E-02, - + 0.6312E-02, 0.5933E-02, 0.4005E-01, 0.3250E-05, - + 0.0000E+00, 0.0000E+00, -0.5946E-02, 0.6197E-02, - + 0.6300E-02, 0.6197E-02, 0.4168E-01, 0.3262E-05, - + 0.0000E+00, 0.0000E+00, -0.6272E-02, 0.6461E-02, - + 0.6473E-02, 0.6461E-02, 0.4336E-01, 0.3272E-05, - + 0.0000E+00, 0.0000E+00, -0.6588E-02, 0.6732E-02, - + 0.6751E-02, 0.6732E-02, 0.4510E-01, 0.3289E-05, - + 0.0000E+00, 0.0000E+00, -0.6902E-02, 0.7021E-02, - + 0.7020E-02, 0.7021E-02, 0.4681E-01, 0.3209E-05, - + 0.0000E+00, 0.0000E+00, -0.7219E-02, 0.7310E-02, - + 0.7297E-02, 0.7310E-02, 0.4882E-01, 0.3295E-05, - + 0.0000E+00, 0.0000E+00, -0.7523E-02, 0.7606E-02, - + 0.7596E-02, 0.7606E-02, 0.5079E-01, 0.3324E-05, - + 0.0000E+00, 0.0000E+00, -0.7851E-02, 0.7922E-02, - + 0.7916E-02, 0.7922E-02, 0.5287E-01, 0.3328E-05/ - DATA ((CALC(I,K,32),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.8208E-02, 0.8263E-02, - + 0.8256E-02, 0.8263E-02, 0.5513E-01, 0.3346E-05, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ -C---------------------------------------------------------------------- - DATA ISTART/0/ - SAVE ISTART,OWLAM2,Q02,FLAV, /W5051I7/ -C - IF (ISTART.EQ.0) THEN - ISTART=1 - DO 10 K=1,32 - DO 10 I=1,20 - DO 10 M=1,8 - 10 CALCO(M,I,K) = CALC(M,I,K) - OWLAM=PAR(1) - OWLAM2=OWLAM**2 - Q02=PAR(30) - FLAV=PAR(25) - DELTA=PAR(29) - CALL WATE32 - ENDIF -C - X = DX - Q = DQ - Q2 = Q*Q - IDQ2=2 - SB=0. - IF(Q2-Q02) 1,1,2 - 2 IF(IDQ2-1) 1,1,3 - 3 SB= LOG( LOG( MAX(Q02,Q2)/OWLAM2)/ LOG(Q02/OWLAM2)) - 1 CONTINUE - CALL AURGAM(8,0,X,SB,XPDF(7)) - CALL AURGAM(7,0,X,SB,SING) - CALL AURGAM(4,0,X,SB,DPLUSNS) - CALL AURGAM(3,0,X,SB,CPLUSNS) - CALL AURGAM(5,0,X,SB,UPLUSNS) - CALL AURGAM(6,0,X,SB,SPLUSNS) - XPDF(3) = CPLUSNS - XPDF(4) = DPLUSNS - XPDF(5) = UPLUSNS - XPDF(6) = SPLUSNS - XPDF(1) = SING -C - ADD = XPDF(1)/FLAV - UPLUS=XPDF(5)+ADD - DPLUS=-XPDF(4)+ADD - SPLUS=-XPDF(6)+ADD - CPLUS=-XPDF(3)+ADD - UB=UPLUS*0.5 - UV=UB - DB=DPLUS*0.5 - DV=DB - SB=SPLUS*0.5 - CB=CPLUS*0.5 - SING=XPDF(1) - GLU=XPDF(7) - GL=GLU -* - DUV=MAX(ZERO,UV) - DDV=MAX(ZERO,DV) - DUB=MAX(ZERO,UB) - DDB=MAX(ZERO,DB) - DSB=MAX(ZERO,SB) - DCB=MAX(ZERO,CB) - DGL=MAX(ZERO,GL) -C - RETURN - END diff --git a/PDF/spdf/acfgp2.F b/PDF/spdf/acfgp2.F deleted file mode 100644 index 6165d78c077..00000000000 --- a/PDF/spdf/acfgp2.F +++ /dev/null @@ -1,1505 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.3 1996/11/07 11:52:35 cernlib -* Import version 7.05 -* -* Revision 1.3 1996/11/07 09:35:09 pdflib -* New version 7.05: cut routine Ctq4RTb in 9 pieces -* -* Revision 1.1.1.1 1996/04/12 15:28:57 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE ACFGP2(DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DGL) -C -C INTERPOLATION PROGRAM WHICH INTERPOLATES THE GRID "DATAGA" AND GIVES THE -C QUARK AND GLUON DISTRIBUTIONS IN THE REAL PHOTON, AS FUNCTIONS OF X AND Q2 -C -C THE Q2-EVOLUTION IS PERFORMED WITH BLL AP-EQUATIONS AND NF=4. A MASSIVE -C CHARM DISTRIBUTION (BORROWED FROM GLUCK AND REYA) IS ALSO AVAILABLE. -C -C THE BOUNDARY CONDITIONS ARE SUCH THAT THE DISTRIBUTION FUNCTIONS ARE GIVEN -C BY A VDM "ANSATZ" AT Q2=.25 GEV**2. -C -C THE PROGRAM WORKS FOR 2. GEV**2 < Q2 <5.5E+5 AND .00137 < X < .9986 -C -C THE DISTRIBUTIONS ARE CALCULATED IN THE MSBAR FACTORIZATION SCHEME. -C -C THE VALUE OF LAMBDA-MSB IS 200 MEV -C -C THE OUTPUT IS WRITTEN IN THE FILE 'FILEOUT': -C X*U=X*U(X,Q2) -C X*D= ... -C X*S= ... -C X*C= ... (MASSLESS CHARM WITH C(X,2.)=0) -C X*CM= ... (MASSIVE CHARM WITH MC=1.5 GEV ) -C X*GLU=GLUON(X,Q2)*X -C -C -C F2 = PHOTON STRUCTURE FUNCTION WITHOUT CHARM -C F2C= " " " WITH MASSIVE CHARM -C -#include "pdf/expdp.inc" - + DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL - REAL X, Q, UV, DV, UB, DB, SB, CB, BB, GL - REAL Q2 - DIMENSION XPDF(7),PAR(30),CALC(8,20,32),CALCO(8,20,32) - COMMON/W5051I7/CALCO - EXTERNAL AFCPLU - DATA ZERO/0.0/ -C---------------------------------------------------------------------- - DATA (PAR(I),I=1,30) / - + 0.2000E+00, 0.4800E+00, 0.8500E+00, 0.1000E+01, - + 0.1000E+01, 0.1000E+01, 0.1200E+01, 0.7500E+01, - + 0.1987E+01, 0.1900E+01, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.1000E+01, - + 0.0000E+00, 0.1000E+01, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.4000E+01, 0.0000E+00, 0.1000E+01, 0.1000E+01, - + 0.8000E-01, 0.2000E+01/ - DATA ((CALC(I,K,1 ),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1671E-02, -0.5026E-03, - + 0.6657E-03, -0.5026E-03, 0.6683E-02, 0.9320E-02, - + 0.0000E+00, 0.0000E+00, 0.1669E-02, -0.4992E-03, - + 0.6709E-03, -0.4992E-03, 0.7711E-02, 0.1350E-01, - + 0.0000E+00, 0.0000E+00, 0.1667E-02, -0.4955E-03, - + 0.6764E-03, -0.4955E-03, 0.8915E-02, 0.1832E-01, - + 0.0000E+00, 0.0000E+00, 0.1665E-02, -0.4917E-03, - + 0.6822E-03, -0.4917E-03, 0.1031E-01, 0.2383E-01, - + 0.0000E+00, 0.0000E+00, 0.1663E-02, -0.4875E-03, - + 0.6883E-03, -0.4875E-03, 0.1192E-01, 0.3008E-01, - + 0.0000E+00, 0.0000E+00, 0.1661E-02, -0.4831E-03, - + 0.6947E-03, -0.4831E-03, 0.1375E-01, 0.3713E-01, - + 0.0000E+00, 0.0000E+00, 0.1658E-02, -0.4784E-03, - + 0.7014E-03, -0.4784E-03, 0.1583E-01, 0.4503E-01, - + 0.0000E+00, 0.0000E+00, 0.1655E-02, -0.4733E-03, - + 0.7085E-03, -0.4733E-03, 0.1817E-01, 0.5383E-01, - + 0.0000E+00, 0.0000E+00, 0.1651E-02, -0.4679E-03, - + 0.7159E-03, -0.4679E-03, 0.2079E-01, 0.6360E-01/ - DATA ((CALC(I,K,1 ),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.1647E-02, -0.4621E-03, - + 0.7238E-03, -0.4621E-03, 0.2373E-01, 0.7441E-01, - + 0.0000E+00, 0.0000E+00, 0.1643E-02, -0.4558E-03, - + 0.7321E-03, -0.4558E-03, 0.2700E-01, 0.8633E-01, - + 0.0000E+00, 0.0000E+00, 0.1639E-02, -0.4492E-03, - + 0.7409E-03, -0.4492E-03, 0.3062E-01, 0.9943E-01, - + 0.0000E+00, 0.0000E+00, 0.1633E-02, -0.4420E-03, - + 0.7502E-03, -0.4420E-03, 0.3464E-01, 0.1138E+00, - + 0.0000E+00, 0.0000E+00, 0.1628E-02, -0.4343E-03, - + 0.7600E-03, -0.4343E-03, 0.3907E-01, 0.1295E+00, - + 0.0000E+00, 0.0000E+00, 0.1622E-02, -0.4260E-03, - + 0.7704E-03, -0.4260E-03, 0.4394E-01, 0.1467E+00, - + 0.0000E+00, 0.0000E+00, 0.1615E-02, -0.4172E-03, - + 0.7815E-03, -0.4172E-03, 0.4931E-01, 0.1655E+00, - + 0.0000E+00, 0.0000E+00, 0.1608E-02, -0.4076E-03, - + 0.7932E-03, -0.4076E-03, 0.5520E-01, 0.1859E+00, - + 0.0000E+00, 0.0000E+00, 0.1599E-02, -0.3973E-03, - + 0.8057E-03, -0.3973E-03, 0.6165E-01, 0.2082E+00/ - DATA ((CALC(I,K,1 ),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, 0.1591E-02, -0.3863E-03, - + 0.8189E-03, -0.3863E-03, 0.6871E-01, 0.2324E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,2 ),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1675E-02, -0.4282E-03, - + 0.8187E-03, -0.4282E-03, 0.6700E-02, 0.8422E-02, - + 0.0000E+00, 0.0000E+00, 0.1668E-02, -0.4181E-03, - + 0.8319E-03, -0.4181E-03, 0.7379E-02, 0.1103E-01, - + 0.0000E+00, 0.0000E+00, 0.1661E-02, -0.4075E-03, - + 0.8457E-03, -0.4075E-03, 0.8140E-02, 0.1387E-01, - + 0.0000E+00, 0.0000E+00, 0.1653E-02, -0.3961E-03, - + 0.8603E-03, -0.3961E-03, 0.8986E-02, 0.1696E-01, - + 0.0000E+00, 0.0000E+00, 0.1644E-02, -0.3838E-03, - + 0.8757E-03, -0.3838E-03, 0.9923E-02, 0.2029E-01, - + 0.0000E+00, 0.0000E+00, 0.1634E-02, -0.3707E-03, - + 0.8919E-03, -0.3707E-03, 0.1096E-01, 0.2388E-01, - + 0.0000E+00, 0.0000E+00, 0.1623E-02, -0.3567E-03, - + 0.9091E-03, -0.3567E-03, 0.1209E-01, 0.2775E-01, - + 0.0000E+00, 0.0000E+00, 0.1611E-02, -0.3416E-03, - + 0.9272E-03, -0.3416E-03, 0.1332E-01, 0.3192E-01, - + 0.0000E+00, 0.0000E+00, 0.1598E-02, -0.3254E-03, - + 0.9465E-03, -0.3254E-03, 0.1467E-01, 0.3639E-01/ - DATA ((CALC(I,K,2 ),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.1584E-02, -0.3080E-03, - + 0.9669E-03, -0.3080E-03, 0.1614E-01, 0.4119E-01, - + 0.0000E+00, 0.0000E+00, 0.1568E-02, -0.2893E-03, - + 0.9885E-03, -0.2893E-03, 0.1773E-01, 0.4634E-01, - + 0.0000E+00, 0.0000E+00, 0.1551E-02, -0.2691E-03, - + 0.1012E-02, -0.2691E-03, 0.1946E-01, 0.5188E-01, - + 0.0000E+00, 0.0000E+00, 0.1532E-02, -0.2475E-03, - + 0.1036E-02, -0.2475E-03, 0.2133E-01, 0.5782E-01, - + 0.0000E+00, 0.0000E+00, 0.1512E-02, -0.2242E-03, - + 0.1062E-02, -0.2242E-03, 0.2335E-01, 0.6421E-01, - + 0.0000E+00, 0.0000E+00, 0.1490E-02, -0.1991E-03, - + 0.1090E-02, -0.1991E-03, 0.2554E-01, 0.7109E-01, - + 0.0000E+00, 0.0000E+00, 0.1465E-02, -0.1721E-03, - + 0.1120E-02, -0.1721E-03, 0.2790E-01, 0.7848E-01, - + 0.0000E+00, 0.0000E+00, 0.1439E-02, -0.1429E-03, - + 0.1151E-02, -0.1429E-03, 0.3046E-01, 0.8645E-01, - + 0.0000E+00, 0.0000E+00, 0.1410E-02, -0.1115E-03, - + 0.1185E-02, -0.1115E-03, 0.3321E-01, 0.9504E-01/ - DATA ((CALC(I,K,2 ),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, 0.1379E-02, -0.7764E-04, - + 0.1222E-02, -0.7764E-04, 0.3619E-01, 0.1043E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,3 ),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1659E-02, -0.3433E-03, - + 0.9723E-03, -0.3433E-03, 0.6635E-02, 0.7843E-02, - + 0.0000E+00, 0.0000E+00, 0.1645E-02, -0.3259E-03, - + 0.9931E-03, -0.3259E-03, 0.7163E-02, 0.9673E-02, - + 0.0000E+00, 0.0000E+00, 0.1630E-02, -0.3073E-03, - + 0.1015E-02, -0.3073E-03, 0.7742E-02, 0.1161E-01, - + 0.0000E+00, 0.0000E+00, 0.1613E-02, -0.2873E-03, - + 0.1038E-02, -0.2873E-03, 0.8372E-02, 0.1364E-01, - + 0.0000E+00, 0.0000E+00, 0.1594E-02, -0.2658E-03, - + 0.1063E-02, -0.2658E-03, 0.9056E-02, 0.1579E-01, - + 0.0000E+00, 0.0000E+00, 0.1574E-02, -0.2428E-03, - + 0.1089E-02, -0.2428E-03, 0.9796E-02, 0.1806E-01, - + 0.0000E+00, 0.0000E+00, 0.1553E-02, -0.2181E-03, - + 0.1116E-02, -0.2181E-03, 0.1060E-01, 0.2046E-01, - + 0.0000E+00, 0.0000E+00, 0.1529E-02, -0.1915E-03, - + 0.1146E-02, -0.1915E-03, 0.1146E-01, 0.2299E-01, - + 0.0000E+00, 0.0000E+00, 0.1503E-02, -0.1629E-03, - + 0.1177E-02, -0.1629E-03, 0.1239E-01, 0.2567E-01/ - DATA ((CALC(I,K,3 ),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.1475E-02, -0.1321E-03, - + 0.1210E-02, -0.1321E-03, 0.1339E-01, 0.2852E-01, - + 0.0000E+00, 0.0000E+00, 0.1444E-02, -0.9894E-04, - + 0.1246E-02, -0.9894E-04, 0.1446E-01, 0.3155E-01, - + 0.0000E+00, 0.0000E+00, 0.1410E-02, -0.6324E-04, - + 0.1284E-02, -0.6324E-04, 0.1561E-01, 0.3478E-01, - + 0.0000E+00, 0.0000E+00, 0.1374E-02, -0.2477E-04, - + 0.1324E-02, -0.2477E-04, 0.1686E-01, 0.3822E-01, - + 0.0000E+00, 0.0000E+00, 0.1335E-02, 0.1669E-04, - + 0.1368E-02, 0.1669E-04, 0.1819E-01, 0.4191E-01, - + 0.0000E+00, 0.0000E+00, 0.1292E-02, 0.6140E-04, - + 0.1414E-02, 0.6140E-04, 0.1962E-01, 0.4586E-01, - + 0.0000E+00, 0.0000E+00, 0.1245E-02, 0.1096E-03, - + 0.1464E-02, 0.1096E-03, 0.2117E-01, 0.5011E-01, - + 0.0000E+00, 0.0000E+00, 0.1194E-02, 0.1617E-03, - + 0.1517E-02, 0.1617E-03, 0.2283E-01, 0.5469E-01, - + 0.0000E+00, 0.0000E+00, 0.1140E-02, 0.2178E-03, - + 0.1575E-02, 0.2178E-03, 0.2462E-01, 0.5962E-01/ - DATA ((CALC(I,K,3 ),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, 0.1080E-02, 0.2785E-03, - + 0.1637E-02, 0.2785E-03, 0.2655E-01, 0.6494E-01, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,4 ),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1625E-02, -0.2514E-03, - + 0.1122E-02, -0.2514E-03, 0.6500E-02, 0.7358E-02, - + 0.0000E+00, 0.0000E+00, 0.1602E-02, -0.2260E-03, - + 0.1150E-02, -0.2260E-03, 0.6948E-02, 0.8685E-02, - + 0.0000E+00, 0.0000E+00, 0.1578E-02, -0.1988E-03, - + 0.1180E-02, -0.1988E-03, 0.7432E-02, 0.1006E-01, - + 0.0000E+00, 0.0000E+00, 0.1551E-02, -0.1696E-03, - + 0.1212E-02, -0.1696E-03, 0.7953E-02, 0.1148E-01, - + 0.0000E+00, 0.0000E+00, 0.1522E-02, -0.1382E-03, - + 0.1245E-02, -0.1382E-03, 0.8512E-02, 0.1296E-01, - + 0.0000E+00, 0.0000E+00, 0.1490E-02, -0.1045E-03, - + 0.1281E-02, -0.1045E-03, 0.9113E-02, 0.1450E-01, - + 0.0000E+00, 0.0000E+00, 0.1456E-02, -0.6824E-04, - + 0.1319E-02, -0.6824E-04, 0.9757E-02, 0.1610E-01, - + 0.0000E+00, 0.0000E+00, 0.1419E-02, -0.2924E-04, - + 0.1360E-02, -0.2924E-04, 0.1045E-01, 0.1779E-01, - + 0.0000E+00, 0.0000E+00, 0.1378E-02, 0.1275E-04, - + 0.1403E-02, 0.1275E-04, 0.1119E-01, 0.1957E-01/ - DATA ((CALC(I,K,4 ),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.1334E-02, 0.5797E-04, - + 0.1450E-02, 0.5797E-04, 0.1198E-01, 0.2145E-01, - + 0.0000E+00, 0.0000E+00, 0.1287E-02, 0.1067E-03, - + 0.1499E-02, 0.1067E-03, 0.1284E-01, 0.2345E-01, - + 0.0000E+00, 0.0000E+00, 0.1235E-02, 0.1592E-03, - + 0.1553E-02, 0.1592E-03, 0.1375E-01, 0.2557E-01, - + 0.0000E+00, 0.0000E+00, 0.1179E-02, 0.2158E-03, - + 0.1610E-02, 0.2158E-03, 0.1474E-01, 0.2784E-01, - + 0.0000E+00, 0.0000E+00, 0.1118E-02, 0.2769E-03, - + 0.1671E-02, 0.2769E-03, 0.1579E-01, 0.3028E-01, - + 0.0000E+00, 0.0000E+00, 0.1052E-02, 0.3428E-03, - + 0.1737E-02, 0.3428E-03, 0.1693E-01, 0.3289E-01, - + 0.0000E+00, 0.0000E+00, 0.9810E-03, 0.4140E-03, - + 0.1808E-02, 0.4140E-03, 0.1815E-01, 0.3571E-01, - + 0.0000E+00, 0.0000E+00, 0.9038E-03, 0.4909E-03, - + 0.1885E-02, 0.4909E-03, 0.1947E-01, 0.3875E-01, - + 0.0000E+00, 0.0000E+00, 0.8201E-03, 0.5739E-03, - + 0.1967E-02, 0.5739E-03, 0.2090E-01, 0.4204E-01/ - DATA ((CALC(I,K,4 ),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, 0.7295E-03, 0.6636E-03, - + 0.2056E-02, 0.6636E-03, 0.2243E-01, 0.4560E-01, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,5 ),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1572E-02, -0.1542E-03, - + 0.1264E-02, -0.1542E-03, 0.6288E-02, 0.6899E-02, - + 0.0000E+00, 0.0000E+00, 0.1541E-02, -0.1209E-03, - + 0.1299E-02, -0.1209E-03, 0.6695E-02, 0.7867E-02, - + 0.0000E+00, 0.0000E+00, 0.1507E-02, -0.8520E-04, - + 0.1336E-02, -0.8520E-04, 0.7132E-02, 0.8857E-02, - + 0.0000E+00, 0.0000E+00, 0.1470E-02, -0.4684E-04, - + 0.1375E-02, -0.4684E-04, 0.7599E-02, 0.9865E-02, - + 0.0000E+00, 0.0000E+00, 0.1432E-02, -0.5605E-05, - + 0.1418E-02, -0.5605E-05, 0.8099E-02, 0.1091E-01, - + 0.0000E+00, 0.0000E+00, 0.1388E-02, 0.3874E-04, - + 0.1463E-02, 0.3874E-04, 0.8635E-02, 0.1199E-01, - + 0.0000E+00, 0.0000E+00, 0.1341E-02, 0.8647E-04, - + 0.1511E-02, 0.8647E-04, 0.9210E-02, 0.1311E-01, - + 0.0000E+00, 0.0000E+00, 0.1289E-02, 0.1379E-03, - + 0.1563E-02, 0.1379E-03, 0.9825E-02, 0.1429E-01, - + 0.0000E+00, 0.0000E+00, 0.1234E-02, 0.1932E-03, - + 0.1618E-02, 0.1932E-03, 0.1049E-01, 0.1553E-01/ - DATA ((CALC(I,K,5 ),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.1174E-02, 0.2529E-03, - + 0.1677E-02, 0.2529E-03, 0.1119E-01, 0.1684E-01, - + 0.0000E+00, 0.0000E+00, 0.1109E-02, 0.3173E-03, - + 0.1741E-02, 0.3173E-03, 0.1196E-01, 0.1824E-01, - + 0.0000E+00, 0.0000E+00, 0.1038E-02, 0.3867E-03, - + 0.1810E-02, 0.3867E-03, 0.1277E-01, 0.1973E-01, - + 0.0000E+00, 0.0000E+00, 0.9620E-03, 0.4616E-03, - + 0.1883E-02, 0.4616E-03, 0.1366E-01, 0.2133E-01, - + 0.0000E+00, 0.0000E+00, 0.8794E-03, 0.5425E-03, - + 0.1963E-02, 0.5425E-03, 0.1461E-01, 0.2305E-01, - + 0.0000E+00, 0.0000E+00, 0.7902E-03, 0.6299E-03, - + 0.2048E-02, 0.6299E-03, 0.1563E-01, 0.2492E-01, - + 0.0000E+00, 0.0000E+00, 0.6935E-03, 0.7243E-03, - + 0.2141E-02, 0.7243E-03, 0.1674E-01, 0.2694E-01, - + 0.0000E+00, 0.0000E+00, 0.5890E-03, 0.8263E-03, - + 0.2240E-02, 0.8263E-03, 0.1794E-01, 0.2912E-01, - + 0.0000E+00, 0.0000E+00, 0.4759E-03, 0.9366E-03, - + 0.2348E-02, 0.9366E-03, 0.1924E-01, 0.3150E-01/ - DATA ((CALC(I,K,5 ),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, 0.3534E-03, 0.1056E-02, - + 0.2464E-02, 0.1056E-02, 0.2064E-01, 0.3408E-01, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,6 ),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1509E-02, -0.5692E-04, - + 0.1395E-02, -0.5692E-04, 0.6035E-02, 0.6441E-02, - + 0.0000E+00, 0.0000E+00, 0.1469E-02, -0.1625E-04, - + 0.1436E-02, -0.1625E-04, 0.6426E-02, 0.7136E-02, - + 0.0000E+00, 0.0000E+00, 0.1425E-02, 0.2742E-04, - + 0.1480E-02, 0.2742E-04, 0.6844E-02, 0.7855E-02, - + 0.0000E+00, 0.0000E+00, 0.1378E-02, 0.7439E-04, - + 0.1527E-02, 0.7439E-04, 0.7291E-02, 0.8574E-02, - + 0.0000E+00, 0.0000E+00, 0.1328E-02, 0.1249E-03, - + 0.1577E-02, 0.1249E-03, 0.7770E-02, 0.9307E-02, - + 0.0000E+00, 0.0000E+00, 0.1272E-02, 0.1793E-03, - + 0.1631E-02, 0.1793E-03, 0.8285E-02, 0.1009E-01, - + 0.0000E+00, 0.0000E+00, 0.1213E-02, 0.2380E-03, - + 0.1689E-02, 0.2380E-03, 0.8836E-02, 0.1087E-01, - + 0.0000E+00, 0.0000E+00, 0.1148E-02, 0.3012E-03, - + 0.1751E-02, 0.3012E-03, 0.9427E-02, 0.1171E-01, - + 0.0000E+00, 0.0000E+00, 0.1079E-02, 0.3694E-03, - + 0.1817E-02, 0.3694E-03, 0.1006E-01, 0.1259E-01/ - DATA ((CALC(I,K,6 ),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.1003E-02, 0.4429E-03, - + 0.1889E-02, 0.4429E-03, 0.1075E-01, 0.1353E-01, - + 0.0000E+00, 0.0000E+00, 0.9214E-03, 0.5223E-03, - + 0.1966E-02, 0.5223E-03, 0.1149E-01, 0.1454E-01, - + 0.0000E+00, 0.0000E+00, 0.8329E-03, 0.6081E-03, - + 0.2049E-02, 0.6081E-03, 0.1229E-01, 0.1563E-01, - + 0.0000E+00, 0.0000E+00, 0.7372E-03, 0.7007E-03, - + 0.2139E-02, 0.7007E-03, 0.1315E-01, 0.1681E-01, - + 0.0000E+00, 0.0000E+00, 0.6337E-03, 0.8008E-03, - + 0.2235E-02, 0.8008E-03, 0.1408E-01, 0.1809E-01, - + 0.0000E+00, 0.0000E+00, 0.5217E-03, 0.9090E-03, - + 0.2340E-02, 0.9090E-03, 0.1509E-01, 0.1948E-01, - + 0.0000E+00, 0.0000E+00, 0.4005E-03, 0.1026E-02, - + 0.2453E-02, 0.1026E-02, 0.1618E-01, 0.2100E-01, - + 0.0000E+00, 0.0000E+00, 0.2694E-03, 0.1152E-02, - + 0.2574E-02, 0.1152E-02, 0.1737E-01, 0.2265E-01, - + 0.0000E+00, 0.0000E+00, 0.1276E-03, 0.1289E-02, - + 0.2706E-02, 0.1289E-02, 0.1865E-01, 0.2446E-01/ - DATA ((CALC(I,K,6 ),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.2581E-04, 0.1437E-02, - + 0.2849E-02, 0.1437E-02, 0.2005E-01, 0.2643E-01, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,7 ),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1444E-02, 0.3563E-04, - + 0.1515E-02, 0.3563E-04, 0.5775E-02, 0.5978E-02, - + 0.0000E+00, 0.0000E+00, 0.1396E-02, 0.8289E-04, - + 0.1562E-02, 0.8289E-04, 0.6166E-02, 0.6468E-02, - + 0.0000E+00, 0.0000E+00, 0.1344E-02, 0.1337E-03, - + 0.1612E-02, 0.1337E-03, 0.6585E-02, 0.6960E-02, - + 0.0000E+00, 0.0000E+00, 0.1288E-02, 0.1885E-03, - + 0.1665E-02, 0.1885E-03, 0.7032E-02, 0.7462E-02, - + 0.0000E+00, 0.0000E+00, 0.1227E-02, 0.2475E-03, - + 0.1722E-02, 0.2475E-03, 0.7513E-02, 0.7978E-02, - + 0.0000E+00, 0.0000E+00, 0.1162E-02, 0.3111E-03, - + 0.1784E-02, 0.3111E-03, 0.8029E-02, 0.8515E-02, - + 0.0000E+00, 0.0000E+00, 0.1090E-02, 0.3797E-03, - + 0.1850E-02, 0.3797E-03, 0.8584E-02, 0.9080E-02, - + 0.0000E+00, 0.0000E+00, 0.1014E-02, 0.4538E-03, - + 0.1921E-02, 0.4538E-03, 0.9182E-02, 0.9681E-02, - + 0.0000E+00, 0.0000E+00, 0.9302E-03, 0.5338E-03, - + 0.1998E-02, 0.5338E-03, 0.9828E-02, 0.1032E-01/ - DATA ((CALC(I,K,7 ),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.8400E-03, 0.6202E-03, - + 0.2080E-02, 0.6202E-03, 0.1053E-01, 0.1102E-01, - + 0.0000E+00, 0.0000E+00, 0.7424E-03, 0.7136E-03, - + 0.2170E-02, 0.7136E-03, 0.1128E-01, 0.1177E-01, - + 0.0000E+00, 0.0000E+00, 0.6368E-03, 0.8145E-03, - + 0.2266E-02, 0.8145E-03, 0.1210E-01, 0.1260E-01, - + 0.0000E+00, 0.0000E+00, 0.5226E-03, 0.9237E-03, - + 0.2370E-02, 0.9237E-03, 0.1298E-01, 0.1349E-01, - + 0.0000E+00, 0.0000E+00, 0.3990E-03, 0.1042E-02, - + 0.2483E-02, 0.1042E-02, 0.1394E-01, 0.1448E-01, - + 0.0000E+00, 0.0000E+00, 0.2653E-03, 0.1170E-02, - + 0.2605E-02, 0.1170E-02, 0.1498E-01, 0.1555E-01, - + 0.0000E+00, 0.0000E+00, 0.1206E-03, 0.1308E-02, - + 0.2736E-02, 0.1308E-02, 0.1611E-01, 0.1673E-01, - + 0.0000E+00, 0.0000E+00, -0.3584E-04, 0.1457E-02, - + 0.2879E-02, 0.1457E-02, 0.1734E-01, 0.1803E-01, - + 0.0000E+00, 0.0000E+00, -0.2051E-03, 0.1619E-02, - + 0.3034E-02, 0.1619E-02, 0.1867E-01, 0.1945E-01/ - DATA ((CALC(I,K,7 ),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.3882E-03, 0.1795E-02, - + 0.3201E-02, 0.1795E-02, 0.2012E-01, 0.2101E-01, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,8 ),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1383E-02, 0.1197E-03, - + 0.1623E-02, 0.1197E-03, 0.5533E-02, 0.5504E-02, - + 0.0000E+00, 0.0000E+00, 0.1328E-02, 0.1726E-03, - + 0.1674E-02, 0.1726E-03, 0.5934E-02, 0.5833E-02, - + 0.0000E+00, 0.0000E+00, 0.1269E-02, 0.2296E-03, - + 0.1728E-02, 0.2296E-03, 0.6363E-02, 0.6164E-02, - + 0.0000E+00, 0.0000E+00, 0.1205E-02, 0.2912E-03, - + 0.1787E-02, 0.2912E-03, 0.6823E-02, 0.6502E-02, - + 0.0000E+00, 0.0000E+00, 0.1135E-02, 0.3576E-03, - + 0.1850E-02, 0.3576E-03, 0.7318E-02, 0.6855E-02, - + 0.0000E+00, 0.0000E+00, 0.1059E-02, 0.4293E-03, - + 0.1918E-02, 0.4293E-03, 0.7851E-02, 0.7229E-02, - + 0.0000E+00, 0.0000E+00, 0.9777E-03, 0.5069E-03, - + 0.1991E-02, 0.5069E-03, 0.8426E-02, 0.7628E-02, - + 0.0000E+00, 0.0000E+00, 0.8891E-03, 0.5907E-03, - + 0.2070E-02, 0.5907E-03, 0.9048E-02, 0.8061E-02, - + 0.0000E+00, 0.0000E+00, 0.7933E-03, 0.6813E-03, - + 0.2156E-02, 0.6813E-03, 0.9720E-02, 0.8533E-02/ - DATA ((CALC(I,K,8 ),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.6895E-03, 0.7794E-03, - + 0.2248E-02, 0.7794E-03, 0.1045E-01, 0.9051E-02, - + 0.0000E+00, 0.0000E+00, 0.5772E-03, 0.8855E-03, - + 0.2348E-02, 0.8855E-03, 0.1124E-01, 0.9622E-02, - + 0.0000E+00, 0.0000E+00, 0.4557E-03, 0.1000E-02, - + 0.2456E-02, 0.1000E-02, 0.1209E-01, 0.1025E-01, - + 0.0000E+00, 0.0000E+00, 0.3242E-03, 0.1125E-02, - + 0.2573E-02, 0.1125E-02, 0.1302E-01, 0.1095E-01, - + 0.0000E+00, 0.0000E+00, 0.1819E-03, 0.1259E-02, - + 0.2700E-02, 0.1259E-02, 0.1403E-01, 0.1172E-01, - + 0.0000E+00, 0.0000E+00, 0.2794E-04, 0.1405E-02, - + 0.2838E-02, 0.1405E-02, 0.1513E-01, 0.1257E-01, - + 0.0000E+00, 0.0000E+00, -0.1386E-03, 0.1563E-02, - + 0.2987E-02, 0.1563E-02, 0.1632E-01, 0.1351E-01, - + 0.0000E+00, 0.0000E+00, -0.3188E-03, 0.1734E-02, - + 0.3149E-02, 0.1734E-02, 0.1762E-01, 0.1455E-01, - + 0.0000E+00, 0.0000E+00, -0.5136E-03, 0.1919E-02, - + 0.3324E-02, 0.1919E-02, 0.1903E-01, 0.1569E-01/ - DATA ((CALC(I,K,8 ),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.7244E-03, 0.2119E-02, - + 0.3514E-02, 0.2119E-02, 0.2056E-01, 0.1695E-01, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,9 ),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1331E-02, 0.1925E-03, - + 0.1716E-02, 0.1925E-03, 0.5326E-02, 0.5026E-02, - + 0.0000E+00, 0.0000E+00, 0.1270E-02, 0.2501E-03, - + 0.1771E-02, 0.2501E-03, 0.5741E-02, 0.5228E-02, - + 0.0000E+00, 0.0000E+00, 0.1204E-02, 0.3123E-03, - + 0.1829E-02, 0.3123E-03, 0.6186E-02, 0.5433E-02, - + 0.0000E+00, 0.0000E+00, 0.1132E-02, 0.3796E-03, - + 0.1891E-02, 0.3796E-03, 0.6664E-02, 0.5649E-02, - + 0.0000E+00, 0.0000E+00, 0.1055E-02, 0.4523E-03, - + 0.1959E-02, 0.4523E-03, 0.7180E-02, 0.5880E-02, - + 0.0000E+00, 0.0000E+00, 0.9702E-03, 0.5311E-03, - + 0.2032E-02, 0.5311E-03, 0.7737E-02, 0.6131E-02, - + 0.0000E+00, 0.0000E+00, 0.8788E-03, 0.6164E-03, - + 0.2112E-02, 0.6164E-03, 0.8339E-02, 0.6410E-02, - + 0.0000E+00, 0.0000E+00, 0.7797E-03, 0.7087E-03, - + 0.2197E-02, 0.7087E-03, 0.8992E-02, 0.6720E-02, - + 0.0000E+00, 0.0000E+00, 0.6724E-03, 0.8088E-03, - + 0.2290E-02, 0.8088E-03, 0.9699E-02, 0.7067E-02/ - DATA ((CALC(I,K,9 ),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.5562E-03, 0.9172E-03, - + 0.2391E-02, 0.9172E-03, 0.1047E-01, 0.7458E-02, - + 0.0000E+00, 0.0000E+00, 0.4303E-03, 0.1035E-02, - + 0.2500E-02, 0.1035E-02, 0.1130E-01, 0.7896E-02, - + 0.0000E+00, 0.0000E+00, 0.2941E-03, 0.1162E-02, - + 0.2618E-02, 0.1162E-02, 0.1220E-01, 0.8388E-02, - + 0.0000E+00, 0.0000E+00, 0.1467E-03, 0.1300E-02, - + 0.2747E-02, 0.1300E-02, 0.1319E-01, 0.8939E-02, - + 0.0000E+00, 0.0000E+00, -0.1287E-04, 0.1449E-02, - + 0.2886E-02, 0.1449E-02, 0.1426E-01, 0.9555E-02, - + 0.0000E+00, 0.0000E+00, -0.1855E-03, 0.1611E-02, - + 0.3037E-02, 0.1611E-02, 0.1542E-01, 0.1024E-01, - + 0.0000E+00, 0.0000E+00, -0.3723E-03, 0.1787E-02, - + 0.3202E-02, 0.1787E-02, 0.1669E-01, 0.1100E-01, - + 0.0000E+00, 0.0000E+00, -0.5743E-03, 0.1977E-02, - + 0.3380E-02, 0.1977E-02, 0.1806E-01, 0.1185E-01, - + 0.0000E+00, 0.0000E+00, -0.7929E-03, 0.2183E-02, - + 0.3574E-02, 0.2183E-02, 0.1956E-01, 0.1278E-01/ - DATA ((CALC(I,K,9 ),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.1029E-02, 0.2407E-02, - + 0.3785E-02, 0.2407E-02, 0.2119E-01, 0.1381E-01, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,10),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1290E-02, 0.2527E-03, - + 0.1796E-02, 0.2527E-03, 0.5161E-02, 0.4547E-02, - + 0.0000E+00, 0.0000E+00, 0.1224E-02, 0.3140E-03, - + 0.1852E-02, 0.3140E-03, 0.5591E-02, 0.4649E-02, - + 0.0000E+00, 0.0000E+00, 0.1151E-02, 0.3804E-03, - + 0.1912E-02, 0.3804E-03, 0.6053E-02, 0.4759E-02, - + 0.0000E+00, 0.0000E+00, 0.1073E-02, 0.4525E-03, - + 0.1978E-02, 0.4525E-03, 0.6551E-02, 0.4881E-02, - + 0.0000E+00, 0.0000E+00, 0.9879E-03, 0.5306E-03, - + 0.2049E-02, 0.5306E-03, 0.7090E-02, 0.5021E-02, - + 0.0000E+00, 0.0000E+00, 0.8954E-03, 0.6154E-03, - + 0.2126E-02, 0.6154E-03, 0.7673E-02, 0.5183E-02, - + 0.0000E+00, 0.0000E+00, 0.7952E-03, 0.7074E-03, - + 0.2210E-02, 0.7074E-03, 0.8304E-02, 0.5372E-02, - + 0.0000E+00, 0.0000E+00, 0.6865E-03, 0.8072E-03, - + 0.2301E-02, 0.8072E-03, 0.8990E-02, 0.5593E-02, - + 0.0000E+00, 0.0000E+00, 0.5686E-03, 0.9156E-03, - + 0.2400E-02, 0.9156E-03, 0.9734E-02, 0.5850E-02/ - DATA ((CALC(I,K,10),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.4410E-03, 0.1033E-02, - + 0.2507E-02, 0.1033E-02, 0.1054E-01, 0.6146E-02, - + 0.0000E+00, 0.0000E+00, 0.3027E-03, 0.1161E-02, - + 0.2624E-02, 0.1161E-02, 0.1142E-01, 0.6487E-02, - + 0.0000E+00, 0.0000E+00, 0.1529E-03, 0.1299E-02, - + 0.2751E-02, 0.1299E-02, 0.1238E-01, 0.6877E-02, - + 0.0000E+00, 0.0000E+00, -0.9250E-05, 0.1449E-02, - + 0.2890E-02, 0.1449E-02, 0.1342E-01, 0.7320E-02, - + 0.0000E+00, 0.0000E+00, -0.1847E-03, 0.1612E-02, - + 0.3040E-02, 0.1612E-02, 0.1456E-01, 0.7820E-02, - + 0.0000E+00, 0.0000E+00, -0.3747E-03, 0.1789E-02, - + 0.3204E-02, 0.1789E-02, 0.1579E-01, 0.8381E-02, - + 0.0000E+00, 0.0000E+00, -0.5801E-03, 0.1981E-02, - + 0.3382E-02, 0.1981E-02, 0.1713E-01, 0.9008E-02, - + 0.0000E+00, 0.0000E+00, -0.8024E-03, 0.2189E-02, - + 0.3575E-02, 0.2189E-02, 0.1859E-01, 0.9705E-02, - + 0.0000E+00, 0.0000E+00, -0.1043E-02, 0.2414E-02, - + 0.3786E-02, 0.2414E-02, 0.2018E-01, 0.1048E-01/ - DATA ((CALC(I,K,10),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.1303E-02, 0.2659E-02, - + 0.4015E-02, 0.2659E-02, 0.2191E-01, 0.1133E-01, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,11),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1259E-02, 0.2998E-03, - + 0.1859E-02, 0.2998E-03, 0.5037E-02, 0.4072E-02, - + 0.0000E+00, 0.0000E+00, 0.1188E-02, 0.3641E-03, - + 0.1916E-02, 0.3641E-03, 0.5481E-02, 0.4098E-02, - + 0.0000E+00, 0.0000E+00, 0.1110E-02, 0.4339E-03, - + 0.1978E-02, 0.4339E-03, 0.5959E-02, 0.4135E-02, - + 0.0000E+00, 0.0000E+00, 0.1026E-02, 0.5100E-03, - + 0.2046E-02, 0.5100E-03, 0.6476E-02, 0.4188E-02, - + 0.0000E+00, 0.0000E+00, 0.9340E-03, 0.5927E-03, - + 0.2119E-02, 0.5927E-03, 0.7036E-02, 0.4261E-02, - + 0.0000E+00, 0.0000E+00, 0.8342E-03, 0.6827E-03, - + 0.2200E-02, 0.6827E-03, 0.7645E-02, 0.4358E-02, - + 0.0000E+00, 0.0000E+00, 0.7257E-03, 0.7807E-03, - + 0.2287E-02, 0.7807E-03, 0.8305E-02, 0.4483E-02, - + 0.0000E+00, 0.0000E+00, 0.6081E-03, 0.8871E-03, - + 0.2382E-02, 0.8871E-03, 0.9024E-02, 0.4638E-02, - + 0.0000E+00, 0.0000E+00, 0.4806E-03, 0.1003E-02, - + 0.2486E-02, 0.1003E-02, 0.9807E-02, 0.4829E-02/ - DATA ((CALC(I,K,11),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.3422E-03, 0.1129E-02, - + 0.2600E-02, 0.1129E-02, 0.1066E-01, 0.5057E-02, - + 0.0000E+00, 0.0000E+00, 0.1923E-03, 0.1266E-02, - + 0.2724E-02, 0.1266E-02, 0.1159E-01, 0.5327E-02, - + 0.0000E+00, 0.0000E+00, 0.2992E-04, 0.1414E-02, - + 0.2858E-02, 0.1414E-02, 0.1260E-01, 0.5641E-02, - + 0.0000E+00, 0.0000E+00, -0.1460E-03, 0.1575E-02, - + 0.3005E-02, 0.1575E-02, 0.1370E-01, 0.6002E-02, - + 0.0000E+00, 0.0000E+00, -0.3363E-03, 0.1751E-02, - + 0.3166E-02, 0.1751E-02, 0.1489E-01, 0.6414E-02, - + 0.0000E+00, 0.0000E+00, -0.5424E-03, 0.1941E-02, - + 0.3340E-02, 0.1941E-02, 0.1620E-01, 0.6879E-02, - + 0.0000E+00, 0.0000E+00, -0.7653E-03, 0.2148E-02, - + 0.3530E-02, 0.2148E-02, 0.1761E-01, 0.7397E-02, - + 0.0000E+00, 0.0000E+00, -0.1006E-02, 0.2372E-02, - + 0.3738E-02, 0.2372E-02, 0.1916E-01, 0.7983E-02, - + 0.0000E+00, 0.0000E+00, -0.1267E-02, 0.2615E-02, - + 0.3963E-02, 0.2615E-02, 0.2084E-01, 0.8632E-02/ - DATA ((CALC(I,K,11),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.1549E-02, 0.2879E-02, - + 0.4209E-02, 0.2879E-02, 0.2266E-01, 0.9347E-02, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,12),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1238E-02, 0.3350E-03, - + 0.1908E-02, 0.3350E-03, 0.4950E-02, 0.3607E-02, - + 0.0000E+00, 0.0000E+00, 0.1162E-02, 0.4016E-03, - + 0.1965E-02, 0.4016E-03, 0.5405E-02, 0.3576E-02, - + 0.0000E+00, 0.0000E+00, 0.1079E-02, 0.4744E-03, - + 0.2028E-02, 0.4744E-03, 0.5897E-02, 0.3560E-02, - + 0.0000E+00, 0.0000E+00, 0.9892E-03, 0.5539E-03, - + 0.2097E-02, 0.5539E-03, 0.6431E-02, 0.3563E-02, - + 0.0000E+00, 0.0000E+00, 0.8911E-03, 0.6407E-03, - + 0.2173E-02, 0.6407E-03, 0.7012E-02, 0.3588E-02, - + 0.0000E+00, 0.0000E+00, 0.7844E-03, 0.7355E-03, - + 0.2255E-02, 0.7355E-03, 0.7645E-02, 0.3638E-02, - + 0.0000E+00, 0.0000E+00, 0.6683E-03, 0.8388E-03, - + 0.2346E-02, 0.8388E-03, 0.8335E-02, 0.3717E-02, - + 0.0000E+00, 0.0000E+00, 0.5422E-03, 0.9514E-03, - + 0.2445E-02, 0.9514E-03, 0.9087E-02, 0.3826E-02, - + 0.0000E+00, 0.0000E+00, 0.4053E-03, 0.1074E-02, - + 0.2554E-02, 0.1074E-02, 0.9907E-02, 0.3969E-02/ - DATA ((CALC(I,K,12),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.2568E-03, 0.1208E-02, - + 0.2672E-02, 0.1208E-02, 0.1080E-01, 0.4147E-02, - + 0.0000E+00, 0.0000E+00, 0.9573E-04, 0.1353E-02, - + 0.2802E-02, 0.1353E-02, 0.1178E-01, 0.4364E-02, - + 0.0000E+00, 0.0000E+00, -0.7882E-04, 0.1511E-02, - + 0.2944E-02, 0.1511E-02, 0.1284E-01, 0.4621E-02, - + 0.0000E+00, 0.0000E+00, -0.2679E-03, 0.1683E-02, - + 0.3099E-02, 0.1683E-02, 0.1400E-01, 0.4920E-02, - + 0.0000E+00, 0.0000E+00, -0.4726E-03, 0.1871E-02, - + 0.3269E-02, 0.1871E-02, 0.1526E-01, 0.5264E-02, - + 0.0000E+00, 0.0000E+00, -0.6941E-03, 0.2074E-02, - + 0.3454E-02, 0.2074E-02, 0.1663E-01, 0.5654E-02, - + 0.0000E+00, 0.0000E+00, -0.9338E-03, 0.2294E-02, - + 0.3656E-02, 0.2294E-02, 0.1813E-01, 0.6094E-02, - + 0.0000E+00, 0.0000E+00, -0.1193E-02, 0.2534E-02, - + 0.3876E-02, 0.2534E-02, 0.1976E-01, 0.6586E-02, - + 0.0000E+00, 0.0000E+00, -0.1473E-02, 0.2794E-02, - + 0.4116E-02, 0.2794E-02, 0.2153E-01, 0.7132E-02/ - DATA ((CALC(I,K,12),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.1776E-02, 0.3076E-02, - + 0.4377E-02, 0.3076E-02, 0.2345E-01, 0.7735E-02, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,13),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1222E-02, 0.3601E-03, - + 0.1942E-02, 0.3601E-03, 0.4890E-02, 0.3159E-02, - + 0.0000E+00, 0.0000E+00, 0.1143E-02, 0.4288E-03, - + 0.2000E-02, 0.4288E-03, 0.5354E-02, 0.3087E-02, - + 0.0000E+00, 0.0000E+00, 0.1056E-02, 0.5042E-03, - + 0.2064E-02, 0.5042E-03, 0.5859E-02, 0.3033E-02, - + 0.0000E+00, 0.0000E+00, 0.9603E-03, 0.5869E-03, - + 0.2134E-02, 0.5869E-03, 0.6411E-02, 0.3001E-02, - + 0.0000E+00, 0.0000E+00, 0.8562E-03, 0.6777E-03, - + 0.2211E-02, 0.6777E-03, 0.7013E-02, 0.2993E-02, - + 0.0000E+00, 0.0000E+00, 0.7427E-03, 0.7770E-03, - + 0.2297E-02, 0.7770E-03, 0.7672E-02, 0.3011E-02, - + 0.0000E+00, 0.0000E+00, 0.6191E-03, 0.8857E-03, - + 0.2391E-02, 0.8857E-03, 0.8391E-02, 0.3058E-02, - + 0.0000E+00, 0.0000E+00, 0.4847E-03, 0.1004E-02, - + 0.2494E-02, 0.1004E-02, 0.9178E-02, 0.3135E-02, - + 0.0000E+00, 0.0000E+00, 0.3385E-03, 0.1134E-02, - + 0.2607E-02, 0.1134E-02, 0.1004E-01, 0.3244E-02/ - DATA ((CALC(I,K,13),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.1798E-03, 0.1275E-02, - + 0.2731E-02, 0.1275E-02, 0.1098E-01, 0.3387E-02, - + 0.0000E+00, 0.0000E+00, 0.7585E-05, 0.1430E-02, - + 0.2867E-02, 0.1430E-02, 0.1200E-01, 0.3564E-02, - + 0.0000E+00, 0.0000E+00, -0.1791E-03, 0.1598E-02, - + 0.3016E-02, 0.1598E-02, 0.1312E-01, 0.3777E-02, - + 0.0000E+00, 0.0000E+00, -0.3814E-03, 0.1780E-02, - + 0.3180E-02, 0.1780E-02, 0.1434E-01, 0.4029E-02, - + 0.0000E+00, 0.0000E+00, -0.6005E-03, 0.1979E-02, - + 0.3358E-02, 0.1979E-02, 0.1567E-01, 0.4319E-02, - + 0.0000E+00, 0.0000E+00, -0.8375E-03, 0.2195E-02, - + 0.3554E-02, 0.2195E-02, 0.1712E-01, 0.4650E-02, - + 0.0000E+00, 0.0000E+00, -0.1094E-02, 0.2430E-02, - + 0.3767E-02, 0.2430E-02, 0.1869E-01, 0.5023E-02, - + 0.0000E+00, 0.0000E+00, -0.1371E-02, 0.2685E-02, - + 0.4000E-02, 0.2685E-02, 0.2041E-01, 0.5440E-02, - + 0.0000E+00, 0.0000E+00, -0.1671E-02, 0.2962E-02, - + 0.4254E-02, 0.2962E-02, 0.2227E-01, 0.5903E-02/ - DATA ((CALC(I,K,13),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.1994E-02, 0.3262E-02, - + 0.4531E-02, 0.3262E-02, 0.2430E-01, 0.6414E-02, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,14),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1213E-02, 0.3767E-03, - + 0.1967E-02, 0.3767E-03, 0.4853E-02, 0.2733E-02, - + 0.0000E+00, 0.0000E+00, 0.1130E-02, 0.4476E-03, - + 0.2025E-02, 0.4476E-03, 0.5327E-02, 0.2633E-02, - + 0.0000E+00, 0.0000E+00, 0.1038E-02, 0.5258E-03, - + 0.2090E-02, 0.5258E-03, 0.5847E-02, 0.2554E-02, - + 0.0000E+00, 0.0000E+00, 0.9374E-03, 0.6121E-03, - + 0.2162E-02, 0.6121E-03, 0.6418E-02, 0.2500E-02, - + 0.0000E+00, 0.0000E+00, 0.8271E-03, 0.7071E-03, - + 0.2241E-02, 0.7071E-03, 0.7044E-02, 0.2471E-02, - + 0.0000E+00, 0.0000E+00, 0.7066E-03, 0.8115E-03, - + 0.2330E-02, 0.8115E-03, 0.7731E-02, 0.2468E-02, - + 0.0000E+00, 0.0000E+00, 0.5751E-03, 0.9260E-03, - + 0.2427E-02, 0.9260E-03, 0.8484E-02, 0.2494E-02, - + 0.0000E+00, 0.0000E+00, 0.4317E-03, 0.1051E-02, - + 0.2535E-02, 0.1051E-02, 0.9309E-02, 0.2550E-02, - + 0.0000E+00, 0.0000E+00, 0.2757E-03, 0.1189E-02, - + 0.2653E-02, 0.1189E-02, 0.1021E-01, 0.2635E-02/ - DATA ((CALC(I,K,14),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.1062E-03, 0.1340E-02, - + 0.2783E-02, 0.1340E-02, 0.1120E-01, 0.2752E-02, - + 0.0000E+00, 0.0000E+00, -0.7778E-04, 0.1503E-02, - + 0.2927E-02, 0.1503E-02, 0.1228E-01, 0.2900E-02, - + 0.0000E+00, 0.0000E+00, -0.2773E-03, 0.1681E-02, - + 0.3084E-02, 0.1681E-02, 0.1346E-01, 0.3080E-02, - + 0.0000E+00, 0.0000E+00, -0.4936E-03, 0.1875E-02, - + 0.3256E-02, 0.1875E-02, 0.1475E-01, 0.3294E-02, - + 0.0000E+00, 0.0000E+00, -0.7277E-03, 0.2086E-02, - + 0.3444E-02, 0.2086E-02, 0.1615E-01, 0.3541E-02, - + 0.0000E+00, 0.0000E+00, -0.9809E-03, 0.2316E-02, - + 0.3650E-02, 0.2316E-02, 0.1768E-01, 0.3824E-02, - + 0.0000E+00, 0.0000E+00, -0.1255E-02, 0.2565E-02, - + 0.3876E-02, 0.2565E-02, 0.1934E-01, 0.4142E-02, - + 0.0000E+00, 0.0000E+00, -0.1551E-02, 0.2836E-02, - + 0.4122E-02, 0.2836E-02, 0.2115E-01, 0.4497E-02, - + 0.0000E+00, 0.0000E+00, -0.1870E-02, 0.3130E-02, - + 0.4391E-02, 0.3130E-02, 0.2312E-01, 0.4891E-02/ - DATA ((CALC(I,K,14),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.2215E-02, 0.3449E-02, - + 0.4684E-02, 0.3449E-02, 0.2525E-01, 0.5325E-02, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,15),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1209E-02, 0.3877E-03, - + 0.1984E-02, 0.3877E-03, 0.4835E-02, 0.2333E-02, - + 0.0000E+00, 0.0000E+00, 0.1121E-02, 0.4613E-03, - + 0.2044E-02, 0.4613E-03, 0.5323E-02, 0.2216E-02, - + 0.0000E+00, 0.0000E+00, 0.1025E-02, 0.5430E-03, - + 0.2111E-02, 0.5430E-03, 0.5862E-02, 0.2123E-02, - + 0.0000E+00, 0.0000E+00, 0.9181E-03, 0.6336E-03, - + 0.2185E-02, 0.6336E-03, 0.6456E-02, 0.2056E-02, - + 0.0000E+00, 0.0000E+00, 0.8010E-03, 0.7337E-03, - + 0.2268E-02, 0.7337E-03, 0.7112E-02, 0.2015E-02, - + 0.0000E+00, 0.0000E+00, 0.6726E-03, 0.8440E-03, - + 0.2361E-02, 0.8440E-03, 0.7834E-02, 0.2001E-02, - + 0.0000E+00, 0.0000E+00, 0.5322E-03, 0.9654E-03, - + 0.2463E-02, 0.9654E-03, 0.8627E-02, 0.2015E-02, - + 0.0000E+00, 0.0000E+00, 0.3789E-03, 0.1098E-02, - + 0.2576E-02, 0.1098E-02, 0.9499E-02, 0.2057E-02, - + 0.0000E+00, 0.0000E+00, 0.2120E-03, 0.1244E-02, - + 0.2701E-02, 0.1244E-02, 0.1045E-01, 0.2126E-02/ - DATA ((CALC(I,K,15),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, 0.3050E-04, 0.1404E-02, - + 0.2838E-02, 0.1404E-02, 0.1150E-01, 0.2224E-02, - + 0.0000E+00, 0.0000E+00, -0.1666E-03, 0.1578E-02, - + 0.2990E-02, 0.1578E-02, 0.1264E-01, 0.2350E-02, - + 0.0000E+00, 0.0000E+00, -0.3804E-03, 0.1768E-02, - + 0.3156E-02, 0.1768E-02, 0.1389E-01, 0.2505E-02, - + 0.0000E+00, 0.0000E+00, -0.6120E-03, 0.1974E-02, - + 0.3338E-02, 0.1974E-02, 0.1526E-01, 0.2688E-02, - + 0.0000E+00, 0.0000E+00, -0.8626E-03, 0.2199E-02, - + 0.3537E-02, 0.2199E-02, 0.1674E-01, 0.2901E-02, - + 0.0000E+00, 0.0000E+00, -0.1134E-02, 0.2444E-02, - + 0.3756E-02, 0.2444E-02, 0.1836E-01, 0.3143E-02, - + 0.0000E+00, 0.0000E+00, -0.1426E-02, 0.2710E-02, - + 0.3995E-02, 0.2710E-02, 0.2012E-01, 0.3415E-02, - + 0.0000E+00, 0.0000E+00, -0.1743E-02, 0.2999E-02, - + 0.4255E-02, 0.2999E-02, 0.2203E-01, 0.3719E-02, - + 0.0000E+00, 0.0000E+00, -0.2084E-02, 0.3311E-02, - + 0.4540E-02, 0.3311E-02, 0.2411E-01, 0.4054E-02/ - DATA ((CALC(I,K,15),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.2452E-02, 0.3651E-02, - + 0.4851E-02, 0.3651E-02, 0.2637E-01, 0.4422E-02, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,16),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1210E-02, 0.3954E-03, - + 0.2001E-02, 0.3954E-03, 0.4839E-02, 0.1962E-02, - + 0.0000E+00, 0.0000E+00, 0.1118E-02, 0.4727E-03, - + 0.2063E-02, 0.4727E-03, 0.5348E-02, 0.1838E-02, - + 0.0000E+00, 0.0000E+00, 0.1015E-02, 0.5591E-03, - + 0.2133E-02, 0.5591E-03, 0.5913E-02, 0.1740E-02, - + 0.0000E+00, 0.0000E+00, 0.9014E-03, 0.6552E-03, - + 0.2212E-02, 0.6552E-03, 0.6540E-02, 0.1668E-02, - + 0.0000E+00, 0.0000E+00, 0.7761E-03, 0.7618E-03, - + 0.2300E-02, 0.7618E-03, 0.7234E-02, 0.1623E-02, - + 0.0000E+00, 0.0000E+00, 0.6384E-03, 0.8795E-03, - + 0.2397E-02, 0.8795E-03, 0.8001E-02, 0.1604E-02, - + 0.0000E+00, 0.0000E+00, 0.4875E-03, 0.1009E-02, - + 0.2506E-02, 0.1009E-02, 0.8845E-02, 0.1611E-02, - + 0.0000E+00, 0.0000E+00, 0.3226E-03, 0.1152E-02, - + 0.2626E-02, 0.1152E-02, 0.9773E-02, 0.1644E-02, - + 0.0000E+00, 0.0000E+00, 0.1428E-03, 0.1308E-02, - + 0.2759E-02, 0.1308E-02, 0.1079E-01, 0.1703E-02/ - DATA ((CALC(I,K,16),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.5268E-04, 0.1478E-02, - + 0.2905E-02, 0.1478E-02, 0.1191E-01, 0.1788E-02, - + 0.0000E+00, 0.0000E+00, -0.2649E-03, 0.1665E-02, - + 0.3066E-02, 0.1665E-02, 0.1313E-01, 0.1897E-02, - + 0.0000E+00, 0.0000E+00, -0.4950E-03, 0.1868E-02, - + 0.3242E-02, 0.1868E-02, 0.1446E-01, 0.2031E-02, - + 0.0000E+00, 0.0000E+00, -0.7441E-03, 0.2090E-02, - + 0.3436E-02, 0.2090E-02, 0.1591E-01, 0.2190E-02, - + 0.0000E+00, 0.0000E+00, -0.1013E-02, 0.2330E-02, - + 0.3648E-02, 0.2330E-02, 0.1749E-01, 0.2373E-02, - + 0.0000E+00, 0.0000E+00, -0.1304E-02, 0.2592E-02, - + 0.3881E-02, 0.2592E-02, 0.1922E-01, 0.2582E-02, - + 0.0000E+00, 0.0000E+00, -0.1618E-02, 0.2876E-02, - + 0.4134E-02, 0.2876E-02, 0.2109E-01, 0.2815E-02, - + 0.0000E+00, 0.0000E+00, -0.1957E-02, 0.3183E-02, - + 0.4412E-02, 0.3183E-02, 0.2312E-01, 0.3073E-02, - + 0.0000E+00, 0.0000E+00, -0.2322E-02, 0.3517E-02, - + 0.4714E-02, 0.3517E-02, 0.2533E-01, 0.3358E-02/ - DATA ((CALC(I,K,16),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.2715E-02, 0.3878E-02, - + 0.5044E-02, 0.3878E-02, 0.2772E-01, 0.3670E-02, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,17),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1218E-02, 0.4021E-03, - + 0.2022E-02, 0.4021E-03, 0.4871E-02, 0.1625E-02, - + 0.0000E+00, 0.0000E+00, 0.1119E-02, 0.4848E-03, - + 0.2089E-02, 0.4848E-03, 0.5411E-02, 0.1501E-02, - + 0.0000E+00, 0.0000E+00, 0.1009E-02, 0.5774E-03, - + 0.2164E-02, 0.5774E-03, 0.6014E-02, 0.1404E-02, - + 0.0000E+00, 0.0000E+00, 0.8866E-03, 0.6809E-03, - + 0.2248E-02, 0.6809E-03, 0.6686E-02, 0.1333E-02, - + 0.0000E+00, 0.0000E+00, 0.7510E-03, 0.7958E-03, - + 0.2343E-02, 0.7958E-03, 0.7431E-02, 0.1288E-02, - + 0.0000E+00, 0.0000E+00, 0.6017E-03, 0.9229E-03, - + 0.2448E-02, 0.9229E-03, 0.8255E-02, 0.1269E-02, - + 0.0000E+00, 0.0000E+00, 0.4378E-03, 0.1063E-02, - + 0.2564E-02, 0.1063E-02, 0.9164E-02, 0.1274E-02, - + 0.0000E+00, 0.0000E+00, 0.2588E-03, 0.1217E-02, - + 0.2693E-02, 0.1217E-02, 0.1016E-01, 0.1304E-02, - + 0.0000E+00, 0.0000E+00, 0.6363E-04, 0.1385E-02, - + 0.2835E-02, 0.1385E-02, 0.1126E-01, 0.1356E-02/ - DATA ((CALC(I,K,17),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.1485E-03, 0.1569E-02, - + 0.2992E-02, 0.1569E-02, 0.1246E-01, 0.1430E-02, - + 0.0000E+00, 0.0000E+00, -0.3786E-03, 0.1771E-02, - + 0.3164E-02, 0.1771E-02, 0.1377E-01, 0.1526E-02, - + 0.0000E+00, 0.0000E+00, -0.6278E-03, 0.1989E-02, - + 0.3353E-02, 0.1989E-02, 0.1520E-01, 0.1643E-02, - + 0.0000E+00, 0.0000E+00, -0.8971E-03, 0.2227E-02, - + 0.3560E-02, 0.2227E-02, 0.1675E-01, 0.1781E-02, - + 0.0000E+00, 0.0000E+00, -0.1188E-02, 0.2486E-02, - + 0.3787E-02, 0.2486E-02, 0.1845E-01, 0.1939E-02, - + 0.0000E+00, 0.0000E+00, -0.1502E-02, 0.2767E-02, - + 0.4034E-02, 0.2767E-02, 0.2029E-01, 0.2118E-02, - + 0.0000E+00, 0.0000E+00, -0.1839E-02, 0.3071E-02, - + 0.4305E-02, 0.3071E-02, 0.2229E-01, 0.2317E-02, - + 0.0000E+00, 0.0000E+00, -0.2203E-02, 0.3400E-02, - + 0.4600E-02, 0.3400E-02, 0.2445E-01, 0.2536E-02, - + 0.0000E+00, 0.0000E+00, -0.2595E-02, 0.3757E-02, - + 0.4922E-02, 0.3757E-02, 0.2680E-01, 0.2777E-02/ - DATA ((CALC(I,K,17),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.3016E-02, 0.4143E-02, - + 0.5273E-02, 0.4143E-02, 0.2935E-01, 0.3040E-02, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,18),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1235E-02, 0.4100E-03, - + 0.2055E-02, 0.4100E-03, 0.4941E-02, 0.1323E-02, - + 0.0000E+00, 0.0000E+00, 0.1128E-02, 0.5000E-03, - + 0.2128E-02, 0.5000E-03, 0.5526E-02, 0.1205E-02, - + 0.0000E+00, 0.0000E+00, 0.1008E-02, 0.6013E-03, - + 0.2210E-02, 0.6013E-03, 0.6182E-02, 0.1114E-02, - + 0.0000E+00, 0.0000E+00, 0.8735E-03, 0.7144E-03, - + 0.2302E-02, 0.7144E-03, 0.6913E-02, 0.1048E-02, - + 0.0000E+00, 0.0000E+00, 0.7246E-03, 0.8401E-03, - + 0.2405E-02, 0.8401E-03, 0.7724E-02, 0.1008E-02, - + 0.0000E+00, 0.0000E+00, 0.5606E-03, 0.9790E-03, - + 0.2519E-02, 0.9790E-03, 0.8621E-02, 0.9914E-03, - + 0.0000E+00, 0.0000E+00, 0.3806E-03, 0.1132E-02, - + 0.2645E-02, 0.1132E-02, 0.9609E-02, 0.9973E-03, - + 0.0000E+00, 0.0000E+00, 0.1842E-03, 0.1300E-02, - + 0.2784E-02, 0.1300E-02, 0.1069E-01, 0.1024E-02, - + 0.0000E+00, 0.0000E+00, -0.2965E-04, 0.1483E-02, - + 0.2937E-02, 0.1483E-02, 0.1188E-01, 0.1072E-02/ - DATA ((CALC(I,K,18),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.2617E-03, 0.1683E-02, - + 0.3106E-02, 0.1683E-02, 0.1318E-01, 0.1138E-02, - + 0.0000E+00, 0.0000E+00, -0.5129E-03, 0.1901E-02, - + 0.3291E-02, 0.1901E-02, 0.1460E-01, 0.1223E-02, - + 0.0000E+00, 0.0000E+00, -0.7843E-03, 0.2138E-02, - + 0.3494E-02, 0.2138E-02, 0.1614E-01, 0.1326E-02, - + 0.0000E+00, 0.0000E+00, -0.1077E-02, 0.2396E-02, - + 0.3716E-02, 0.2396E-02, 0.1782E-01, 0.1445E-02, - + 0.0000E+00, 0.0000E+00, -0.1392E-02, 0.2674E-02, - + 0.3959E-02, 0.2674E-02, 0.1964E-01, 0.1581E-02, - + 0.0000E+00, 0.0000E+00, -0.1732E-02, 0.2977E-02, - + 0.4224E-02, 0.2977E-02, 0.2161E-01, 0.1734E-02, - + 0.0000E+00, 0.0000E+00, -0.2096E-02, 0.3303E-02, - + 0.4513E-02, 0.3303E-02, 0.2375E-01, 0.1902E-02, - + 0.0000E+00, 0.0000E+00, -0.2488E-02, 0.3657E-02, - + 0.4828E-02, 0.3657E-02, 0.2607E-01, 0.2087E-02, - + 0.0000E+00, 0.0000E+00, -0.2909E-02, 0.4039E-02, - + 0.5171E-02, 0.4039E-02, 0.2858E-01, 0.2290E-02/ - DATA ((CALC(I,K,18),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.3361E-02, 0.4451E-02, - + 0.5545E-02, 0.4451E-02, 0.3129E-01, 0.2510E-02, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,19),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1265E-02, 0.4210E-03, - + 0.2108E-02, 0.4210E-03, 0.5061E-02, 0.1058E-02, - + 0.0000E+00, 0.0000E+00, 0.1146E-02, 0.5211E-03, - + 0.2189E-02, 0.5211E-03, 0.5708E-02, 0.9493E-03, - + 0.0000E+00, 0.0000E+00, 0.1012E-02, 0.6336E-03, - + 0.2279E-02, 0.6336E-03, 0.6433E-02, 0.8673E-03, - + 0.0000E+00, 0.0000E+00, 0.8619E-03, 0.7591E-03, - + 0.2380E-02, 0.7591E-03, 0.7241E-02, 0.8103E-03, - + 0.0000E+00, 0.0000E+00, 0.6959E-03, 0.8982E-03, - + 0.2492E-02, 0.8982E-03, 0.8136E-02, 0.7765E-03, - + 0.0000E+00, 0.0000E+00, 0.5132E-03, 0.1052E-02, - + 0.2617E-02, 0.1052E-02, 0.9123E-02, 0.7644E-03, - + 0.0000E+00, 0.0000E+00, 0.3133E-03, 0.1220E-02, - + 0.2754E-02, 0.1220E-02, 0.1021E-01, 0.7723E-03, - + 0.0000E+00, 0.0000E+00, 0.9558E-04, 0.1404E-02, - + 0.2905E-02, 0.1404E-02, 0.1139E-01, 0.7988E-03, - + 0.0000E+00, 0.0000E+00, -0.1408E-03, 0.1605E-02, - + 0.3071E-02, 0.1605E-02, 0.1269E-01, 0.8425E-03/ - DATA ((CALC(I,K,19),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.3964E-03, 0.1823E-02, - + 0.3253E-02, 0.1823E-02, 0.1411E-01, 0.9023E-03, - + 0.0000E+00, 0.0000E+00, -0.6723E-03, 0.2062E-02, - + 0.3452E-02, 0.2062E-02, 0.1564E-01, 0.9773E-03, - + 0.0000E+00, 0.0000E+00, -0.9694E-03, 0.2319E-02, - + 0.3670E-02, 0.2319E-02, 0.1731E-01, 0.1067E-02, - + 0.0000E+00, 0.0000E+00, -0.1289E-02, 0.2597E-02, - + 0.3908E-02, 0.2597E-02, 0.1912E-01, 0.1169E-02, - + 0.0000E+00, 0.0000E+00, -0.1632E-02, 0.2898E-02, - + 0.4168E-02, 0.2898E-02, 0.2108E-01, 0.1286E-02, - + 0.0000E+00, 0.0000E+00, -0.2000E-02, 0.3224E-02, - + 0.4452E-02, 0.3224E-02, 0.2321E-01, 0.1415E-02, - + 0.0000E+00, 0.0000E+00, -0.2394E-02, 0.3576E-02, - + 0.4761E-02, 0.3576E-02, 0.2550E-01, 0.1556E-02, - + 0.0000E+00, 0.0000E+00, -0.2817E-02, 0.3955E-02, - + 0.5097E-02, 0.3955E-02, 0.2798E-01, 0.1712E-02, - + 0.0000E+00, 0.0000E+00, -0.3269E-02, 0.4364E-02, - + 0.5464E-02, 0.4364E-02, 0.3066E-01, 0.1879E-02/ - DATA ((CALC(I,K,19),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.3753E-02, 0.4805E-02, - + 0.5862E-02, 0.4805E-02, 0.3356E-01, 0.2062E-02, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,20),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1311E-02, 0.4367E-03, - + 0.2185E-02, 0.4367E-03, 0.5245E-02, 0.8288E-03, - + 0.0000E+00, 0.0000E+00, 0.1175E-02, 0.5500E-03, - + 0.2275E-02, 0.5500E-03, 0.5974E-02, 0.7327E-03, - + 0.0000E+00, 0.0000E+00, 0.1022E-02, 0.6769E-03, - + 0.2376E-02, 0.6769E-03, 0.6787E-02, 0.6623E-03, - + 0.0000E+00, 0.0000E+00, 0.8518E-03, 0.8178E-03, - + 0.2487E-02, 0.8178E-03, 0.7689E-02, 0.6149E-03, - + 0.0000E+00, 0.0000E+00, 0.6638E-03, 0.9733E-03, - + 0.2610E-02, 0.9733E-03, 0.8685E-02, 0.5888E-03, - + 0.0000E+00, 0.0000E+00, 0.4578E-03, 0.1144E-02, - + 0.2746E-02, 0.1144E-02, 0.9779E-02, 0.5818E-03, - + 0.0000E+00, 0.0000E+00, 0.2333E-03, 0.1331E-02, - + 0.2895E-02, 0.1331E-02, 0.1098E-01, 0.5922E-03, - + 0.0000E+00, 0.0000E+00, -0.1005E-04, 0.1534E-02, - + 0.3059E-02, 0.1534E-02, 0.1228E-01, 0.6184E-03, - + 0.0000E+00, 0.0000E+00, -0.2729E-03, 0.1755E-02, - + 0.3238E-02, 0.1755E-02, 0.1370E-01, 0.6589E-03/ - DATA ((CALC(I,K,20),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.5560E-03, 0.1989E-02, - + 0.3434E-02, 0.1989E-02, 0.1524E-01, 0.7126E-03, - + 0.0000E+00, 0.0000E+00, -0.8602E-03, 0.2249E-02, - + 0.3648E-02, 0.2249E-02, 0.1691E-01, 0.7783E-03, - + 0.0000E+00, 0.0000E+00, -0.1186E-02, 0.2529E-02, - + 0.3882E-02, 0.2529E-02, 0.1872E-01, 0.8554E-03, - + 0.0000E+00, 0.0000E+00, -0.1535E-02, 0.2832E-02, - + 0.4138E-02, 0.2832E-02, 0.2068E-01, 0.9431E-03, - + 0.0000E+00, 0.0000E+00, -0.1909E-02, 0.3158E-02, - + 0.4416E-02, 0.3158E-02, 0.2279E-01, 0.1041E-02, - + 0.0000E+00, 0.0000E+00, -0.2308E-02, 0.3509E-02, - + 0.4718E-02, 0.3509E-02, 0.2507E-01, 0.1149E-02, - + 0.0000E+00, 0.0000E+00, -0.2734E-02, 0.3887E-02, - + 0.5048E-02, 0.3887E-02, 0.2753E-01, 0.1267E-02, - + 0.0000E+00, 0.0000E+00, -0.3189E-02, 0.4294E-02, - + 0.5406E-02, 0.4294E-02, 0.3018E-01, 0.1394E-02, - + 0.0000E+00, 0.0000E+00, -0.3675E-02, 0.4732E-02, - + 0.5796E-02, 0.4732E-02, 0.3305E-01, 0.1533E-02/ - DATA ((CALC(I,K,20),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.4194E-02, 0.5202E-02, - + 0.6219E-02, 0.5202E-02, 0.3613E-01, 0.1682E-02, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,21),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1377E-02, 0.4583E-03, - + 0.2293E-02, 0.4583E-03, 0.5506E-02, 0.6351E-03, - + 0.0000E+00, 0.0000E+00, 0.1217E-02, 0.5884E-03, - + 0.2394E-02, 0.5884E-03, 0.6336E-02, 0.5532E-03, - + 0.0000E+00, 0.0000E+00, 0.1039E-02, 0.7330E-03, - + 0.2505E-02, 0.7330E-03, 0.7257E-02, 0.4951E-03, - + 0.0000E+00, 0.0000E+00, 0.8426E-03, 0.8925E-03, - + 0.2628E-02, 0.8925E-03, 0.8272E-02, 0.4579E-03, - + 0.0000E+00, 0.0000E+00, 0.6271E-03, 0.1068E-02, - + 0.2762E-02, 0.1068E-02, 0.9385E-02, 0.4395E-03, - + 0.0000E+00, 0.0000E+00, 0.3917E-03, 0.1258E-02, - + 0.2909E-02, 0.1258E-02, 0.1060E-01, 0.4375E-03, - + 0.0000E+00, 0.0000E+00, 0.1382E-03, 0.1466E-02, - + 0.3071E-02, 0.1466E-02, 0.1192E-01, 0.4502E-03, - + 0.0000E+00, 0.0000E+00, -0.1353E-03, 0.1690E-02, - + 0.3247E-02, 0.1690E-02, 0.1336E-01, 0.4759E-03, - + 0.0000E+00, 0.0000E+00, -0.4289E-03, 0.1933E-02, - + 0.3439E-02, 0.1933E-02, 0.1492E-01, 0.5131E-03/ - DATA ((CALC(I,K,21),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.7432E-03, 0.2195E-02, - + 0.3650E-02, 0.2195E-02, 0.1660E-01, 0.5606E-03, - + 0.0000E+00, 0.0000E+00, -0.1079E-02, 0.2479E-02, - + 0.3879E-02, 0.2479E-02, 0.1841E-01, 0.6176E-03, - + 0.0000E+00, 0.0000E+00, -0.1437E-02, 0.2782E-02, - + 0.4129E-02, 0.2782E-02, 0.2036E-01, 0.6831E-03, - + 0.0000E+00, 0.0000E+00, -0.1818E-02, 0.3108E-02, - + 0.4400E-02, 0.3108E-02, 0.2247E-01, 0.7567E-03, - + 0.0000E+00, 0.0000E+00, -0.2224E-02, 0.3459E-02, - + 0.4696E-02, 0.3459E-02, 0.2474E-01, 0.8379E-03, - + 0.0000E+00, 0.0000E+00, -0.2655E-02, 0.3835E-02, - + 0.5018E-02, 0.3835E-02, 0.2718E-01, 0.9261E-03, - + 0.0000E+00, 0.0000E+00, -0.3114E-02, 0.4239E-02, - + 0.5367E-02, 0.4239E-02, 0.2980E-01, 0.1021E-02, - + 0.0000E+00, 0.0000E+00, -0.3603E-02, 0.4673E-02, - + 0.5747E-02, 0.4673E-02, 0.3265E-01, 0.1132E-02, - + 0.0000E+00, 0.0000E+00, -0.4122E-02, 0.5139E-02, - + 0.6160E-02, 0.5139E-02, 0.3569E-01, 0.1240E-02/ - DATA ((CALC(I,K,21),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.4675E-02, 0.5640E-02, - + 0.6608E-02, 0.5640E-02, 0.3896E-01, 0.1357E-02, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,22),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1462E-02, 0.4873E-03, - + 0.2437E-02, 0.4873E-03, 0.5848E-02, 0.4746E-03, - + 0.0000E+00, 0.0000E+00, 0.1272E-02, 0.6379E-03, - + 0.2548E-02, 0.6379E-03, 0.6801E-02, 0.4074E-03, - + 0.0000E+00, 0.0000E+00, 0.1062E-02, 0.8038E-03, - + 0.2670E-02, 0.8038E-03, 0.7849E-02, 0.3617E-03, - + 0.0000E+00, 0.0000E+00, 0.8324E-03, 0.9852E-03, - + 0.2803E-02, 0.9852E-03, 0.8994E-02, 0.3345E-03, - + 0.0000E+00, 0.0000E+00, 0.5830E-03, 0.1182E-02, - + 0.2948E-02, 0.1182E-02, 0.1024E-01, 0.3231E-03, - + 0.0000E+00, 0.0000E+00, 0.3145E-03, 0.1396E-02, - + 0.3106E-02, 0.1396E-02, 0.1159E-01, 0.3256E-03, - + 0.0000E+00, 0.0000E+00, 0.2579E-04, 0.1627E-02, - + 0.3279E-02, 0.1627E-02, 0.1305E-01, 0.3399E-03, - + 0.0000E+00, 0.0000E+00, -0.2823E-03, 0.1870E-02, - + 0.3467E-02, 0.1870E-02, 0.1463E-01, 0.3645E-03, - + 0.0000E+00, 0.0000E+00, -0.6105E-03, 0.2145E-02, - + 0.3672E-02, 0.2145E-02, 0.1632E-01, 0.3980E-03/ - DATA ((CALC(I,K,22),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.9591E-03, 0.2431E-02, - + 0.3895E-02, 0.2431E-02, 0.1815E-01, 0.4394E-03, - + 0.0000E+00, 0.0000E+00, -0.1329E-02, 0.2736E-02, - + 0.4138E-02, 0.2736E-02, 0.2011E-01, 0.4877E-03, - + 0.0000E+00, 0.0000E+00, -0.1721E-02, 0.3061E-02, - + 0.4403E-02, 0.3061E-02, 0.2221E-01, 0.5423E-03, - + 0.0000E+00, 0.0000E+00, -0.2135E-02, 0.3411E-02, - + 0.4690E-02, 0.3411E-02, 0.2447E-01, 0.6027E-03, - + 0.0000E+00, 0.0000E+00, -0.2574E-02, 0.3786E-02, - + 0.5002E-02, 0.3786E-02, 0.2689E-01, 0.6685E-03, - + 0.0000E+00, 0.0000E+00, -0.3038E-02, 0.4187E-02, - + 0.5341E-02, 0.4187E-02, 0.2949E-01, 0.7397E-03, - + 0.0000E+00, 0.0000E+00, -0.3530E-02, 0.4617E-02, - + 0.5710E-02, 0.4617E-02, 0.3227E-01, 0.8160E-03, - + 0.0000E+00, 0.0000E+00, -0.4051E-02, 0.5077E-02, - + 0.6110E-02, 0.5077E-02, 0.3526E-01, 0.8979E-03, - + 0.0000E+00, 0.0000E+00, -0.4603E-02, 0.5570E-02, - + 0.6544E-02, 0.5570E-02, 0.3848E-01, 0.9852E-03/ - DATA ((CALC(I,K,22),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.5189E-02, 0.6098E-02, - + 0.7015E-02, 0.6098E-02, 0.4193E-01, 0.1079E-02, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,23),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1571E-02, 0.5237E-03, - + 0.2618E-02, 0.5237E-03, 0.6284E-02, 0.3454E-03, - + 0.0000E+00, 0.0000E+00, 0.1341E-02, 0.6990E-03, - + 0.2739E-02, 0.6990E-03, 0.7380E-02, 0.2925E-03, - + 0.0000E+00, 0.0000E+00, 0.1091E-02, 0.8897E-03, - + 0.2870E-02, 0.8897E-03, 0.8573E-02, 0.2584E-03, - + 0.0000E+00, 0.0000E+00, 0.8202E-03, 0.1096E-02, - + 0.3012E-02, 0.1096E-02, 0.9863E-02, 0.2400E-03, - + 0.0000E+00, 0.0000E+00, 0.5302E-03, 0.1318E-02, - + 0.3166E-02, 0.1318E-02, 0.1125E-01, 0.2347E-03, - + 0.0000E+00, 0.0000E+00, 0.2214E-03, 0.1557E-02, - + 0.3334E-02, 0.1557E-02, 0.1275E-01, 0.2404E-03, - + 0.0000E+00, 0.0000E+00, -0.1069E-03, 0.1728E-02, - + 0.3516E-02, 0.1728E-02, 0.1435E-01, 0.2554E-03, - + 0.0000E+00, 0.0000E+00, -0.4535E-03, 0.2033E-02, - + 0.3715E-02, 0.2033E-02, 0.1607E-01, 0.2782E-03, - + 0.0000E+00, 0.0000E+00, -0.8196E-03, 0.2349E-02, - + 0.3930E-02, 0.2349E-02, 0.1791E-01, 0.3075E-03/ - DATA ((CALC(I,K,23),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.1205E-02, 0.2657E-02, - + 0.4164E-02, 0.2657E-02, 0.1987E-01, 0.3425E-03, - + 0.0000E+00, 0.0000E+00, -0.1610E-02, 0.2992E-02, - + 0.4419E-02, 0.2992E-02, 0.2197E-01, 0.3825E-03, - + 0.0000E+00, 0.0000E+00, -0.2036E-02, 0.3345E-02, - + 0.4695E-02, 0.3345E-02, 0.2422E-01, 0.4267E-03, - + 0.0000E+00, 0.0000E+00, -0.2484E-02, 0.3721E-02, - + 0.4996E-02, 0.3721E-02, 0.2661E-01, 0.4750E-03, - + 0.0000E+00, 0.0000E+00, -0.2955E-02, 0.4122E-02, - + 0.5323E-02, 0.4122E-02, 0.2918E-01, 0.5270E-03, - + 0.0000E+00, 0.0000E+00, -0.3451E-02, 0.4549E-02, - + 0.5677E-02, 0.4549E-02, 0.3192E-01, 0.5827E-03, - + 0.0000E+00, 0.0000E+00, -0.3973E-02, 0.5005E-02, - + 0.6061E-02, 0.5005E-02, 0.3485E-01, 0.6419E-03, - + 0.0000E+00, 0.0000E+00, -0.4524E-02, 0.5490E-02, - + 0.6479E-02, 0.5490E-02, 0.3799E-01, 0.7056E-03, - + 0.0000E+00, 0.0000E+00, -0.5105E-02, 0.6009E-02, - + 0.6932E-02, 0.6009E-02, 0.4136E-01, 0.7729E-03/ - DATA ((CALC(I,K,23),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.5720E-02, 0.6563E-02, - + 0.7423E-02, 0.6563E-02, 0.4496E-01, 0.8437E-03, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,24),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1704E-02, 0.5681E-03, - + 0.2840E-02, 0.5681E-03, 0.6817E-02, 0.2441E-03, - + 0.0000E+00, 0.0000E+00, 0.1424E-02, 0.7722E-03, - + 0.2968E-02, 0.7722E-03, 0.8076E-02, 0.2044E-03, - + 0.0000E+00, 0.0000E+00, 0.1123E-02, 0.9913E-03, - + 0.3105E-02, 0.9913E-03, 0.9428E-02, 0.1806E-03, - + 0.0000E+00, 0.0000E+00, 0.8029E-03, 0.1225E-02, - + 0.3254E-02, 0.1225E-02, 0.1087E-01, 0.1695E-03, - + 0.0000E+00, 0.0000E+00, 0.4652E-03, 0.1475E-02, - + 0.3414E-02, 0.1475E-02, 0.1242E-01, 0.1688E-03, - + 0.0000E+00, 0.0000E+00, 0.1104E-03, 0.1739E-02, - + 0.3588E-02, 0.1739E-02, 0.1406E-01, 0.1766E-03, - + 0.0000E+00, 0.0000E+00, -0.2620E-03, 0.2020E-02, - + 0.3777E-02, 0.2020E-02, 0.1581E-01, 0.1913E-03, - + 0.0000E+00, 0.0000E+00, -0.6507E-03, 0.2317E-02, - + 0.3982E-02, 0.2317E-02, 0.1767E-01, 0.2115E-03, - + 0.0000E+00, 0.0000E+00, -0.1057E-02, 0.2631E-02, - + 0.4205E-02, 0.2631E-02, 0.1964E-01, 0.2364E-03/ - DATA ((CALC(I,K,24),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.1480E-02, 0.2963E-02, - + 0.4447E-02, 0.2963E-02, 0.2173E-01, 0.2650E-03, - + 0.0000E+00, 0.0000E+00, -0.1920E-02, 0.3315E-02, - + 0.4710E-02, 0.3315E-02, 0.2396E-01, 0.2970E-03, - + 0.0000E+00, 0.0000E+00, -0.2380E-02, 0.3687E-02, - + 0.4995E-02, 0.3687E-02, 0.2633E-01, 0.3317E-03, - + 0.0000E+00, 0.0000E+00, -0.2859E-02, 0.4082E-02, - + 0.5305E-02, 0.4082E-02, 0.2885E-01, 0.3689E-03, - + 0.0000E+00, 0.0000E+00, -0.3359E-02, 0.4501E-02, - + 0.5642E-02, 0.4501E-02, 0.3153E-01, 0.4087E-03, - + 0.0000E+00, 0.0000E+00, -0.3883E-02, 0.4945E-02, - + 0.6008E-02, 0.4945E-02, 0.3439E-01, 0.4508E-03, - + 0.0000E+00, 0.0000E+00, -0.4431E-02, 0.5418E-02, - + 0.6405E-02, 0.5418E-02, 0.3744E-01, 0.4954E-03, - + 0.0000E+00, 0.0000E+00, -0.5007E-02, 0.5921E-02, - + 0.6836E-02, 0.5921E-02, 0.4070E-01, 0.5424E-03, - + 0.0000E+00, 0.0000E+00, -0.5612E-02, 0.6458E-02, - + 0.7304E-02, 0.6458E-02, 0.4419E-01, 0.5924E-03/ - DATA ((CALC(I,K,24),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.6249E-02, 0.7031E-02, - + 0.7811E-02, 0.7031E-02, 0.4791E-01, 0.6447E-03, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,25),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.1862E-02, 0.6211E-03, - + 0.3104E-02, 0.6211E-03, 0.7449E-02, 0.1673E-03, - + 0.0000E+00, 0.0000E+00, 0.1518E-02, 0.8583E-03, - + 0.3234E-02, 0.8583E-03, 0.8888E-02, 0.1390E-03, - + 0.0000E+00, 0.0000E+00, 0.1156E-02, 0.1109E-02, - + 0.3373E-02, 0.1109E-02, 0.1041E-01, 0.1237E-03, - + 0.0000E+00, 0.0000E+00, 0.7779E-03, 0.1374E-02, - + 0.3523E-02, 0.1374E-02, 0.1202E-01, 0.1183E-03, - + 0.0000E+00, 0.0000E+00, 0.3848E-03, 0.1651E-02, - + 0.3686E-02, 0.1651E-02, 0.1372E-01, 0.1208E-03, - + 0.0000E+00, 0.0000E+00, -0.2175E-04, 0.1942E-02, - + 0.3862E-02, 0.1942E-02, 0.1551E-01, 0.1295E-03, - + 0.0000E+00, 0.0000E+00, -0.4424E-03, 0.2248E-02, - + 0.4053E-02, 0.2248E-02, 0.1739E-01, 0.1429E-03, - + 0.0000E+00, 0.0000E+00, -0.8755E-03, 0.2568E-02, - + 0.4259E-02, 0.2568E-02, 0.1937E-01, 0.1600E-03, - + 0.0000E+00, 0.0000E+00, -0.1322E-02, 0.2904E-02, - + 0.4485E-02, 0.2904E-02, 0.2147E-01, 0.1801E-03/ - DATA ((CALC(I,K,25),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.1782E-02, 0.3256E-02, - + 0.4730E-02, 0.3256E-02, 0.2367E-01, 0.2026E-03, - + 0.0000E+00, 0.0000E+00, -0.2256E-02, 0.3627E-02, - + 0.4997E-02, 0.3627E-02, 0.2601E-01, 0.2271E-03, - + 0.0000E+00, 0.0000E+00, -0.2746E-02, 0.4017E-02, - + 0.5288E-02, 0.4017E-02, 0.2847E-01, 0.2532E-03, - + 0.0000E+00, 0.0000E+00, -0.3252E-02, 0.4427E-02, - + 0.5603E-02, 0.4427E-02, 0.3109E-01, 0.2808E-03, - + 0.0000E+00, 0.0000E+00, -0.3777E-02, 0.4861E-02, - + 0.5946E-02, 0.4861E-02, 0.3386E-01, 0.3099E-03, - + 0.0000E+00, 0.0000E+00, -0.4323E-02, 0.5320E-02, - + 0.6318E-02, 0.5320E-02, 0.3680E-01, 0.3404E-03, - + 0.0000E+00, 0.0000E+00, -0.4891E-02, 0.5807E-02, - + 0.6723E-02, 0.5807E-02, 0.3994E-01, 0.3725E-03, - + 0.0000E+00, 0.0000E+00, -0.5484E-02, 0.6323E-02, - + 0.7162E-02, 0.6323E-02, 0.4327E-01, 0.4061E-03, - + 0.0000E+00, 0.0000E+00, -0.6105E-02, 0.6873E-02, - + 0.7639E-02, 0.6873E-02, 0.4684E-01, 0.4420E-03/ - DATA ((CALC(I,K,25),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.6757E-02, 0.7458E-02, - + 0.8157E-02, 0.7458E-02, 0.5065E-01, 0.4794E-03, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,26),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.2044E-02, 0.6816E-03, - + 0.3407E-02, 0.6816E-03, 0.8178E-02, 0.1109E-03, - + 0.0000E+00, 0.0000E+00, 0.1620E-02, 0.9567E-03, - + 0.3533E-02, 0.9567E-03, 0.9813E-02, 0.9210E-04, - + 0.0000E+00, 0.0000E+00, 0.1184E-02, 0.1243E-02, - + 0.3668E-02, 0.1243E-02, 0.1152E-01, 0.8342E-04, - + 0.0000E+00, 0.0000E+00, 0.7369E-03, 0.1539E-02, - + 0.3814E-02, 0.1539E-02, 0.1329E-01, 0.8212E-04, - + 0.0000E+00, 0.0000E+00, 0.2815E-03, 0.1846E-02, - + 0.3973E-02, 0.1846E-02, 0.1514E-01, 0.8635E-04, - + 0.0000E+00, 0.0000E+00, -0.1817E-03, 0.2164E-02, - + 0.4145E-02, 0.2164E-02, 0.1707E-01, 0.9473E-04, - + 0.0000E+00, 0.0000E+00, -0.6536E-03, 0.2493E-02, - + 0.4333E-02, 0.2493E-02, 0.1907E-01, 0.1062E-03, - + 0.0000E+00, 0.0000E+00, -0.1132E-02, 0.2834E-02, - + 0.4537E-02, 0.2834E-02, 0.2117E-01, 0.1199E-03, - + 0.0000E+00, 0.0000E+00, -0.1618E-02, 0.3188E-02, - + 0.4760E-02, 0.3188E-02, 0.2335E-01, 0.1354E-03/ - DATA ((CALC(I,K,26),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.2112E-02, 0.3557E-02, - + 0.5004E-02, 0.3557E-02, 0.2564E-01, 0.1521E-03, - + 0.0000E+00, 0.0000E+00, -0.2615E-02, 0.3941E-02, - + 0.5270E-02, 0.3941E-02, 0.2805E-01, 0.1698E-03, - + 0.0000E+00, 0.0000E+00, -0.3130E-02, 0.4343E-02, - + 0.5561E-02, 0.4343E-02, 0.3058E-01, 0.1885E-03, - + 0.0000E+00, 0.0000E+00, -0.3657E-02, 0.4765E-02, - + 0.5876E-02, 0.4765E-02, 0.3325E-01, 0.2079E-03, - + 0.0000E+00, 0.0000E+00, -0.4199E-02, 0.5208E-02, - + 0.6219E-02, 0.5208E-02, 0.3607E-01, 0.2281E-03, - + 0.0000E+00, 0.0000E+00, -0.4758E-02, 0.5674E-02, - + 0.6592E-02, 0.5674E-02, 0.3905E-01, 0.2492E-03, - + 0.0000E+00, 0.0000E+00, -0.5337E-02, 0.6167E-02, - + 0.6998E-02, 0.6167E-02, 0.4222E-01, 0.2712E-03, - + 0.0000E+00, 0.0000E+00, -0.5938E-02, 0.6688E-02, - + 0.7440E-02, 0.6688E-02, 0.4559E-01, 0.2939E-03, - + 0.0000E+00, 0.0000E+00, -0.6565E-02, 0.7241E-02, - + 0.7919E-02, 0.7241E-02, 0.4919E-01, 0.3184E-03/ - DATA ((CALC(I,K,26),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.7220E-02, 0.7829E-02, - + 0.8440E-02, 0.7829E-02, 0.5300E-01, 0.3430E-03, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,27),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.2253E-02, 0.7503E-03, - + 0.3754E-02, 0.7503E-03, 0.9011E-02, 0.7114E-04, - + 0.0000E+00, 0.0000E+00, 0.1729E-02, 0.1069E-02, - + 0.3867E-02, 0.1069E-02, 0.1086E-01, 0.5971E-04, - + 0.0000E+00, 0.0000E+00, 0.1203E-02, 0.1393E-02, - + 0.3989E-02, 0.1393E-02, 0.1275E-01, 0.5573E-04, - + 0.0000E+00, 0.0000E+00, 0.6762E-03, 0.1723E-02, - + 0.4122E-02, 0.1723E-02, 0.1469E-01, 0.5689E-04, - + 0.0000E+00, 0.0000E+00, 0.1505E-03, 0.2059E-02, - + 0.4269E-02, 0.2059E-02, 0.1668E-01, 0.6163E-04, - + 0.0000E+00, 0.0000E+00, -0.3748E-03, 0.2402E-02, - + 0.4430E-02, 0.2402E-02, 0.1872E-01, 0.6894E-04, - + 0.0000E+00, 0.0000E+00, -0.8993E-03, 0.2752E-02, - + 0.4608E-02, 0.2752E-02, 0.2082E-01, 0.7800E-04, - + 0.0000E+00, 0.0000E+00, -0.1421E-02, 0.3111E-02, - + 0.4803E-02, 0.3111E-02, 0.2300E-01, 0.8825E-04, - + 0.0000E+00, 0.0000E+00, -0.1944E-02, 0.3480E-02, - + 0.5018E-02, 0.3480E-02, 0.2525E-01, 0.9931E-04/ - DATA ((CALC(I,K,27),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.2467E-02, 0.3859E-02, - + 0.5253E-02, 0.3859E-02, 0.2759E-01, 0.1109E-03, - + 0.0000E+00, 0.0000E+00, -0.2993E-02, 0.4252E-02, - + 0.5513E-02, 0.4252E-02, 0.3003E-01, 0.1230E-03, - + 0.0000E+00, 0.0000E+00, -0.3525E-02, 0.4659E-02, - + 0.5794E-02, 0.4659E-02, 0.3258E-01, 0.1354E-03, - + 0.0000E+00, 0.0000E+00, -0.4064E-02, 0.5083E-02, - + 0.6104E-02, 0.5083E-02, 0.3525E-01, 0.1481E-03, - + 0.0000E+00, 0.0000E+00, -0.4613E-02, 0.5527E-02, - + 0.6442E-02, 0.5527E-02, 0.3807E-01, 0.1612E-03, - + 0.0000E+00, 0.0000E+00, -0.5175E-02, 0.5992E-02, - + 0.6810E-02, 0.5992E-02, 0.4103E-01, 0.1743E-03, - + 0.0000E+00, 0.0000E+00, -0.5753E-02, 0.6482E-02, - + 0.7212E-02, 0.6482E-02, 0.4419E-01, 0.1887E-03, - + 0.0000E+00, 0.0000E+00, -0.6350E-02, 0.6999E-02, - + 0.7648E-02, 0.6999E-02, 0.4753E-01, 0.2038E-03, - + 0.0000E+00, 0.0000E+00, -0.6971E-02, 0.7547E-02, - + 0.8123E-02, 0.7547E-02, 0.5107E-01, 0.2184E-03/ - DATA ((CALC(I,K,27),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.7618E-02, 0.8128E-02, - + 0.8639E-02, 0.8128E-02, 0.5487E-01, 0.2347E-03, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,28),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.2488E-02, 0.8293E-03, - + 0.4148E-02, 0.8293E-03, 0.9954E-02, 0.4417E-04, - + 0.0000E+00, 0.0000E+00, 0.1839E-02, 0.1197E-02, - + 0.4234E-02, 0.1197E-02, 0.1203E-01, 0.3802E-04, - + 0.0000E+00, 0.0000E+00, 0.1204E-02, 0.1564E-02, - + 0.4331E-02, 0.1564E-02, 0.1411E-01, 0.3700E-04, - + 0.0000E+00, 0.0000E+00, 0.5842E-03, 0.1929E-02, - + 0.4442E-02, 0.1929E-02, 0.1621E-01, 0.3926E-04, - + 0.0000E+00, 0.0000E+00, -0.2016E-04, 0.2294E-02, - + 0.4567E-02, 0.2294E-02, 0.1832E-01, 0.4360E-04, - + 0.0000E+00, 0.0000E+00, -0.6087E-03, 0.2660E-02, - + 0.4709E-02, 0.2660E-02, 0.2046E-01, 0.4930E-04, - + 0.0000E+00, 0.0000E+00, -0.1188E-02, 0.3027E-02, - + 0.4869E-02, 0.3027E-02, 0.2264E-01, 0.5583E-04, - + 0.0000E+00, 0.0000E+00, -0.1752E-02, 0.3398E-02, - + 0.5048E-02, 0.3398E-02, 0.2485E-01, 0.6283E-04, - + 0.0000E+00, 0.0000E+00, -0.2306E-02, 0.3774E-02, - + 0.5247E-02, 0.3774E-02, 0.2713E-01, 0.7008E-04/ - DATA ((CALC(I,K,28),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.2851E-02, 0.4158E-02, - + 0.5469E-02, 0.4158E-02, 0.2947E-01, 0.7746E-04, - + 0.0000E+00, 0.0000E+00, -0.3391E-02, 0.4551E-02, - + 0.5712E-02, 0.4551E-02, 0.3189E-01, 0.8492E-04, - + 0.0000E+00, 0.0000E+00, -0.3929E-02, 0.4955E-02, - + 0.5983E-02, 0.4955E-02, 0.3441E-01, 0.9244E-04, - + 0.0000E+00, 0.0000E+00, -0.4468E-02, 0.5373E-02, - + 0.6280E-02, 0.5373E-02, 0.3703E-01, 0.1000E-03, - + 0.0000E+00, 0.0000E+00, -0.5012E-02, 0.5809E-02, - + 0.6603E-02, 0.5809E-02, 0.3978E-01, 0.1078E-03, - + 0.0000E+00, 0.0000E+00, -0.5563E-02, 0.6263E-02, - + 0.6961E-02, 0.6263E-02, 0.4268E-01, 0.1157E-03, - + 0.0000E+00, 0.0000E+00, -0.6127E-02, 0.6740E-02, - + 0.7351E-02, 0.6740E-02, 0.4578E-01, 0.1250E-03, - + 0.0000E+00, 0.0000E+00, -0.6706E-02, 0.7240E-02, - + 0.7776E-02, 0.7240E-02, 0.4901E-01, 0.1327E-03, - + 0.0000E+00, 0.0000E+00, -0.7305E-02, 0.7772E-02, - + 0.8238E-02, 0.7772E-02, 0.5246E-01, 0.1414E-03/ - DATA ((CALC(I,K,28),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.7929E-02, 0.8336E-02, - + 0.8741E-02, 0.8336E-02, 0.5613E-01, 0.1509E-03, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,29),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.2758E-02, 0.9195E-03, - + 0.4597E-02, 0.9195E-03, 0.1103E-01, 0.2644E-04, - + 0.0000E+00, 0.0000E+00, 0.1946E-02, 0.1347E-02, - + 0.4639E-02, 0.1347E-02, 0.1337E-01, 0.2369E-04, - + 0.0000E+00, 0.0000E+00, 0.1176E-02, 0.1761E-02, - + 0.4696E-02, 0.1761E-02, 0.1565E-01, 0.2419E-04, - + 0.0000E+00, 0.0000E+00, 0.4450E-03, 0.2163E-02, - + 0.4770E-02, 0.2163E-02, 0.1790E-01, 0.2654E-04, - + 0.0000E+00, 0.0000E+00, -0.2480E-03, 0.2556E-02, - + 0.4863E-02, 0.2556E-02, 0.2012E-01, 0.2988E-04, - + 0.0000E+00, 0.0000E+00, -0.9065E-03, 0.2942E-02, - + 0.4976E-02, 0.2942E-02, 0.2232E-01, 0.3379E-04, - + 0.0000E+00, 0.0000E+00, -0.1552E-02, 0.3321E-02, - + 0.5109E-02, 0.3321E-02, 0.2453E-01, 0.3796E-04, - + 0.0000E+00, 0.0000E+00, -0.2148E-02, 0.3698E-02, - + 0.5264E-02, 0.3698E-02, 0.2674E-01, 0.4218E-04, - + 0.0000E+00, 0.0000E+00, -0.2720E-02, 0.4074E-02, - + 0.5442E-02, 0.4074E-02, 0.2899E-01, 0.4636E-04/ - DATA ((CALC(I,K,29),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.3274E-02, 0.4453E-02, - + 0.5644E-02, 0.4453E-02, 0.3127E-01, 0.5047E-04, - + 0.0000E+00, 0.0000E+00, -0.3813E-02, 0.4836E-02, - + 0.5871E-02, 0.4836E-02, 0.3362E-01, 0.5450E-04, - + 0.0000E+00, 0.0000E+00, -0.4342E-02, 0.5227E-02, - + 0.6123E-02, 0.5227E-02, 0.3604E-01, 0.5847E-04, - + 0.0000E+00, 0.0000E+00, -0.4865E-02, 0.5629E-02, - + 0.6401E-02, 0.5629E-02, 0.3856E-01, 0.6242E-04, - + 0.0000E+00, 0.0000E+00, -0.5387E-02, 0.6045E-02, - + 0.6710E-02, 0.6045E-02, 0.4119E-01, 0.6640E-04, - + 0.0000E+00, 0.0000E+00, -0.5912E-02, 0.6478E-02, - + 0.7047E-02, 0.6478E-02, 0.4391E-01, 0.6982E-04, - + 0.0000E+00, 0.0000E+00, -0.6446E-02, 0.6931E-02, - + 0.7417E-02, 0.6931E-02, 0.4686E-01, 0.7454E-04, - + 0.0000E+00, 0.0000E+00, -0.6991E-02, 0.7403E-02, - + 0.7821E-02, 0.7403E-02, 0.4993E-01, 0.7895E-04, - + 0.0000E+00, 0.0000E+00, -0.7554E-02, 0.7907E-02, - + 0.8260E-02, 0.7907E-02, 0.5320E-01, 0.8349E-04/ - DATA ((CALC(I,K,29),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.8139E-02, 0.8437E-02, - + 0.8739E-02, 0.8437E-02, 0.5667E-01, 0.8814E-04, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,30),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.3081E-02, 0.1028E-02, - + 0.5135E-02, 0.1028E-02, 0.1233E-01, 0.1487E-04, - + 0.0000E+00, 0.0000E+00, 0.2042E-02, 0.1531E-02, - + 0.5103E-02, 0.1531E-02, 0.1497E-01, 0.1400E-04, - + 0.0000E+00, 0.0000E+00, 0.1093E-02, 0.2002E-02, - + 0.5097E-02, 0.2002E-02, 0.1747E-01, 0.1495E-04, - + 0.0000E+00, 0.0000E+00, 0.2250E-03, 0.2446E-02, - + 0.5116E-02, 0.2446E-02, 0.1987E-01, 0.1677E-04, - + 0.0000E+00, 0.0000E+00, -0.5694E-03, 0.2867E-02, - + 0.5162E-02, 0.2867E-02, 0.2217E-01, 0.1889E-04, - + 0.0000E+00, 0.0000E+00, -0.1300E-02, 0.3267E-02, - + 0.5234E-02, 0.3267E-02, 0.2440E-01, 0.2112E-04, - + 0.0000E+00, 0.0000E+00, -0.1974E-02, 0.3653E-02, - + 0.5332E-02, 0.3653E-02, 0.2659E-01, 0.2333E-04, - + 0.0000E+00, 0.0000E+00, -0.2597E-02, 0.4027E-02, - + 0.5456E-02, 0.4027E-02, 0.2875E-01, 0.2542E-04, - + 0.0000E+00, 0.0000E+00, -0.3183E-02, 0.4393E-02, - + 0.5606E-02, 0.4393E-02, 0.3090E-01, 0.2739E-04/ - DATA ((CALC(I,K,30),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.3733E-02, 0.4756E-02, - + 0.5782E-02, 0.4756E-02, 0.3307E-01, 0.2923E-04, - + 0.0000E+00, 0.0000E+00, -0.4257E-02, 0.5118E-02, - + 0.5984E-02, 0.5118E-02, 0.3527E-01, 0.3097E-04, - + 0.0000E+00, 0.0000E+00, -0.4761E-02, 0.5485E-02, - + 0.6207E-02, 0.5485E-02, 0.3753E-01, 0.3263E-04, - + 0.0000E+00, 0.0000E+00, -0.5252E-02, 0.5858E-02, - + 0.6461E-02, 0.5858E-02, 0.3986E-01, 0.3426E-04, - + 0.0000E+00, 0.0000E+00, -0.5735E-02, 0.6241E-02, - + 0.6747E-02, 0.6241E-02, 0.4229E-01, 0.3587E-04, - + 0.0000E+00, 0.0000E+00, -0.6217E-02, 0.6640E-02, - + 0.7059E-02, 0.6640E-02, 0.4481E-01, 0.3728E-04, - + 0.0000E+00, 0.0000E+00, -0.6703E-02, 0.7055E-02, - + 0.7402E-02, 0.7055E-02, 0.4751E-01, 0.3921E-04, - + 0.0000E+00, 0.0000E+00, -0.7198E-02, 0.7475E-02, - + 0.7777E-02, 0.7475E-02, 0.5034E-01, 0.4109E-04, - + 0.0000E+00, 0.0000E+00, -0.7706E-02, 0.7940E-02, - + 0.8185E-02, 0.7940E-02, 0.5336E-01, 0.4273E-04/ - DATA ((CALC(I,K,30),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.8242E-02, 0.8430E-02, - + 0.8630E-02, 0.8430E-02, 0.5653E-01, 0.4452E-04, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,31),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.3507E-02, 0.1169E-02, - + 0.5847E-02, 0.1169E-02, 0.1403E-01, 0.7133E-05, - + 0.0000E+00, 0.0000E+00, 0.2113E-02, 0.1787E-02, - + 0.5686E-02, 0.1787E-02, 0.1711E-01, 0.7043E-05, - + 0.0000E+00, 0.0000E+00, 0.9042E-03, 0.2337E-02, - + 0.5577E-02, 0.2337E-02, 0.1990E-01, 0.7782E-05, - + 0.0000E+00, 0.0000E+00, -0.1506E-03, 0.2833E-02, - + 0.5513E-02, 0.2833E-02, 0.2246E-01, 0.8803E-05, - + 0.0000E+00, 0.0000E+00, -0.1071E-02, 0.3282E-02, - + 0.5492E-02, 0.3282E-02, 0.2482E-01, 0.9785E-05, - + 0.0000E+00, 0.0000E+00, -0.1889E-02, 0.3693E-02, - + 0.5509E-02, 0.3693E-02, 0.2704E-01, 0.1070E-04, - + 0.0000E+00, 0.0000E+00, -0.2617E-02, 0.4075E-02, - + 0.5562E-02, 0.4075E-02, 0.2915E-01, 0.1153E-04, - + 0.0000E+00, 0.0000E+00, -0.3237E-02, 0.4435E-02, - + 0.5648E-02, 0.4435E-02, 0.3118E-01, 0.1225E-04, - + 0.0000E+00, 0.0000E+00, -0.3810E-02, 0.4777E-02, - + 0.5764E-02, 0.4777E-02, 0.3317E-01, 0.1286E-04/ - DATA ((CALC(I,K,31),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.4327E-02, 0.5110E-02, - + 0.5910E-02, 0.5110E-02, 0.3513E-01, 0.1339E-04, - + 0.0000E+00, 0.0000E+00, -0.4804E-02, 0.5436E-02, - + 0.6084E-02, 0.5436E-02, 0.3711E-01, 0.1387E-04, - + 0.0000E+00, 0.0000E+00, -0.5254E-02, 0.5762E-02, - + 0.6277E-02, 0.5762E-02, 0.3911E-01, 0.1430E-04, - + 0.0000E+00, 0.0000E+00, -0.5684E-02, 0.6092E-02, - + 0.6501E-02, 0.6092E-02, 0.4117E-01, 0.1470E-04, - + 0.0000E+00, 0.0000E+00, -0.6102E-02, 0.6428E-02, - + 0.6764E-02, 0.6428E-02, 0.4330E-01, 0.1511E-04, - + 0.0000E+00, 0.0000E+00, -0.6516E-02, 0.6777E-02, - + 0.7036E-02, 0.6777E-02, 0.4552E-01, 0.1546E-04, - + 0.0000E+00, 0.0000E+00, -0.6931E-02, 0.7140E-02, - + 0.7343E-02, 0.7140E-02, 0.4759E-01, 0.1532E-04, - + 0.0000E+00, 0.0000E+00, -0.7349E-02, 0.7518E-02, - + 0.7679E-02, 0.7518E-02, 0.5011E-01, 0.1594E-04, - + 0.0000E+00, 0.0000E+00, -0.7783E-02, 0.7926E-02, - + 0.8045E-02, 0.7926E-02, 0.5287E-01, 0.1677E-04/ - DATA ((CALC(I,K,31),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.8237E-02, 0.8375E-02, - + 0.8443E-02, 0.8375E-02, 0.5570E-01, 0.1729E-04, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ - DATA ((CALC(I,K,32),I=1,8), K=1,9) / - + 0.0000E+00, 0.0000E+00, 0.4201E-02, 0.1401E-02, - + 0.7002E-02, 0.1401E-02, 0.1681E-01, 0.1987E-05, - + 0.0000E+00, 0.0000E+00, 0.2060E-02, 0.2256E-02, - + 0.6566E-02, 0.2256E-02, 0.2079E-01, 0.2022E-05, - + 0.0000E+00, 0.0000E+00, 0.3736E-03, 0.2950E-02, - + 0.6263E-02, 0.2950E-02, 0.2408E-01, 0.2281E-05, - + 0.0000E+00, 0.0000E+00, -0.9719E-03, 0.3522E-02, - + 0.6064E-02, 0.3522E-02, 0.2687E-01, 0.2574E-05, - + 0.0000E+00, 0.0000E+00, -0.2051E-02, 0.4003E-02, - + 0.5947E-02, 0.4003E-02, 0.2928E-01, 0.2776E-05, - + 0.0000E+00, 0.0000E+00, -0.2860E-02, 0.4414E-02, - + 0.5898E-02, 0.4414E-02, 0.3140E-01, 0.2928E-05, - + 0.0000E+00, 0.0000E+00, -0.3754E-02, 0.4773E-02, - + 0.5902E-02, 0.4773E-02, 0.3332E-01, 0.3058E-05, - + 0.0000E+00, 0.0000E+00, -0.4339E-02, 0.5094E-02, - + 0.5952E-02, 0.5094E-02, 0.3510E-01, 0.3146E-05, - + 0.0000E+00, 0.0000E+00, -0.4796E-02, 0.5389E-02, - + 0.6041E-02, 0.5389E-02, 0.3679E-01, 0.3195E-05/ - DATA ((CALC(I,K,32),I=1,8), K=10,18) / - + 0.0000E+00, 0.0000E+00, -0.5223E-02, 0.5666E-02, - + 0.6163E-02, 0.5666E-02, 0.3843E-01, 0.3228E-05, - + 0.0000E+00, 0.0000E+00, -0.5601E-02, 0.5933E-02, - + 0.6312E-02, 0.5933E-02, 0.4005E-01, 0.3250E-05, - + 0.0000E+00, 0.0000E+00, -0.5946E-02, 0.6197E-02, - + 0.6300E-02, 0.6197E-02, 0.4168E-01, 0.3262E-05, - + 0.0000E+00, 0.0000E+00, -0.6272E-02, 0.6461E-02, - + 0.6473E-02, 0.6461E-02, 0.4336E-01, 0.3272E-05, - + 0.0000E+00, 0.0000E+00, -0.6588E-02, 0.6732E-02, - + 0.6751E-02, 0.6732E-02, 0.4510E-01, 0.3289E-05, - + 0.0000E+00, 0.0000E+00, -0.6902E-02, 0.7021E-02, - + 0.7020E-02, 0.7021E-02, 0.4681E-01, 0.3209E-05, - + 0.0000E+00, 0.0000E+00, -0.7219E-02, 0.7310E-02, - + 0.7297E-02, 0.7310E-02, 0.4882E-01, 0.3295E-05, - + 0.0000E+00, 0.0000E+00, -0.7523E-02, 0.7606E-02, - + 0.7596E-02, 0.7606E-02, 0.5079E-01, 0.3324E-05, - + 0.0000E+00, 0.0000E+00, -0.7851E-02, 0.7922E-02, - + 0.7916E-02, 0.7922E-02, 0.5287E-01, 0.3328E-05/ - DATA ((CALC(I,K,32),I=1,8), K=19,20) / - + 0.0000E+00, 0.0000E+00, -0.8208E-02, 0.8263E-02, - + 0.8256E-02, 0.8263E-02, 0.5513E-01, 0.3346E-05, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, - + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ -C---------------------------------------------------------------------- - DATA ISTART/0/ - SAVE ISTART,OWLAM2,Q02,FLAV, /W5051I7/ -C - IF (ISTART.EQ.0) THEN - ISTART=1 - DO 10 K=1,32 - DO 10 I=1,20 - DO 10 M=1,8 - 10 CALCO(M,I,K) = CALC(M,I,K) - OWLAM=PAR(1) - OWLAM2=OWLAM**2 - Q02=PAR(30) - FLAV=PAR(25) - DELTA=PAR(29) - CALL WATE32 - ENDIF -C - X = DX - Q = DQ - Q2 = Q*Q - IDQ2=2 - SB=0. - IF(Q2-Q02) 1,1,2 - 2 IF(IDQ2-1) 1,1,3 - 3 SB= LOG( LOG( MAX(Q02,Q2)/OWLAM2)/ LOG(Q02/OWLAM2)) - 1 CONTINUE - CALL AURGAM(8,0,X,SB,XPDF(7)) - CALL AURGAM(7,0,X,SB,SING) - CALL AURGAM(4,0,X,SB,DPLUSNS) - CALL AURGAM(3,0,X,SB,CPLUSNS) - CALL AURGAM(5,0,X,SB,UPLUSNS) - CALL AURGAM(6,0,X,SB,SPLUSNS) - XPDF(3) = CPLUSNS - XPDF(4) = DPLUSNS - XPDF(5) = UPLUSNS - XPDF(6) = SPLUSNS - XPDF(1) = SING -C - ADD = XPDF(1)/FLAV - UPLUS=XPDF(5)+ADD - DPLUS=-XPDF(4)+ADD - SPLUS=-XPDF(6)+ADD - CPLUS=-XPDF(3)+ADD - UB=UPLUS*0.5 - UV=UB - DB=DPLUS*0.5 - DV=DB - SB=SPLUS*0.5 - CB=CPLUS*0.5 - SING=XPDF(1) - GLU=XPDF(7) - GL=GLU -C... get parton density with massive charm - CPLUM=AFCPLU(X,Q2) - CB=CPLUM*0.5 -* - DUV=MAX(ZERO,UV) - DDV=MAX(ZERO,DV) - DUB=MAX(ZERO,UB) - DDB=MAX(ZERO,DB) - DSB=MAX(ZERO,SB) - DCB=MAX(ZERO,CB) - DGL=MAX(ZERO,GL) -C - RETURN - END diff --git a/PDF/spdf/afcplu.F b/PDF/spdf/afcplu.F deleted file mode 100644 index 66171f1983b..00000000000 --- a/PDF/spdf/afcplu.F +++ /dev/null @@ -1,26 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:31 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:58 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - FUNCTION AFCPLU(X,Q2) - CMS=1.5**2 - BETS=1-4.*CMS*X/(1.-X)/Q2 - IF(BETS.LE..0) THEN - AFCPLU=.0 - RETURN - ENDIF - BETA=SQRT(BETS) - CPLU=(8.*X*(1.-X)-1.-4.*CMS*X*(1.-X)/Q2)*BETA - CAU=X**2+(1.-X)**2+4.*CMS*X*(1.-3.*X)/Q2-8.*CMS**2*X**2/Q2**2 - CPLU=CPLU+CAU* LOG((1.+BETA)/(1.-BETA)) - AFCPLU=3.*(4./9.)*CPLU*X/(3.1415*137.) - 1 RETURN - END diff --git a/PDF/spdf/afgetfv.F b/PDF/spdf/afgetfv.F deleted file mode 100644 index 12a8ad91048..00000000000 --- a/PDF/spdf/afgetfv.F +++ /dev/null @@ -1,69 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:31 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:28:59 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - FUNCTION AFGETFV(X,FVL) -C NOUVEAU PROGRAMME D'INTERPOLATION UTILISANT UNE ROUTINE DE MATH. RECIPES - DIMENSION FVL(32) -#include "pdf/expdp.inc" - + XI(32),WI(32),XX(33) - COMMON/W5051I9/XI,WI,XX,NTERMS - DIMENSION A(4),B(4) - N=4 - EPS=1.E-7 - XAM=XX(1)-EPS - XAP=XX(1)+EPS -C IF(X.LT.XAM) PRINT*,' X = ',X - IF(X.GT.XAM.AND.X.LT.XAP) GO TO 50 - GO TO 80 - 50 Y=FVL(1) - GO TO 77 - 80 IF(X.LT.XX(2)) GO TO 51 - IF(X.GT.XX(30)) GO TO 61 - DO 1 I=3,30 - IF(X.GT.XX(I)) GO TO 1 - A(1)=XX(I-2) - A(2)=XX(I-1) - A(3)=XX(I) - A(4)=XX(I+1) - B(1)=FVL(I-2) - B(2)=FVL(I-1) - B(3)=FVL(I) - B(4)=FVL(I+1) - GO TO 70 - 1 CONTINUE - 61 A(1)=XX(29) - A(2)=XX(30) - A(3)=XX(31) - A(4)=XX(32) - B(1)=FVL(29) - B(2)=FVL(30) - B(3)=FVL(31) - B(4)=FVL(32) - GO TO 70 - 51 A(1)=XX(1) - A(2)=XX(2) - A(3)=XX(3) - A(4)=XX(4) - B(1)=FVL(1) - B(2)=FVL(2) - B(3)=FVL(3) - B(4)=FVL(4) -C 70 IF(X.GT..2.AND.X.LT..8) THEN -C CALL AFPOLIN(A,B,N,X,Y,DY) -C ELSE -C CALL AFRATIN(A,B,N,X,Y,DY) -C ENDIF - 70 CONTINUE - CALL AFPOLIN(A,B,N,X,Y,DY) - 77 AFGETFV=Y - RETURN - END diff --git a/PDF/spdf/afgin2.F b/PDF/spdf/afgin2.F deleted file mode 100644 index 6d6481146c2..00000000000 --- a/PDF/spdf/afgin2.F +++ /dev/null @@ -1,41 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:32 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:00 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE AFGIN2(I,NDRV,X,S,ANS) - DIMENSION F1(32),F2(32),F3(32) - DIMENSION AF(3),AS(3) - DIMENSION CELCO(8,20,32) - COMMON/W5051IB/CELCO - DATA DELTA/0.8000E-01/ - ANS=0. - IF(X.GT.0.9985) RETURN - N=3 - IS=S/DELTA+1 -C IF(IS.GE.17) IS=17 - IS1=IS+1 - IS2=IS1+1 - DO 1 L=1,32 - KL=L+32*NDRV - F1(L)=CELCO(I,IS,KL) - F2(L)=CELCO(I,IS1,KL) - F3(L)=CELCO(I,IS2,KL) - 1 CONTINUE - AF(1)=AFGETFV(X,F1) - AF(2)=AFGETFV(X,F2) - AF(3)=AFGETFV(X,F3) - AS(1)=(IS-1)*DELTA - AS(2)=AS(1)+DELTA - AS(3)=AS(2)+DELTA - CALL AFPOLIN(AS,AF,N,S,AANS,DY) - ANS=AANS - RETURN - END diff --git a/PDF/spdf/afgint.F b/PDF/spdf/afgint.F deleted file mode 100644 index 59c05aaf997..00000000000 --- a/PDF/spdf/afgint.F +++ /dev/null @@ -1,41 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:33 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:00 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE AFGINT(I,NDRV,X,S,ANS) - DIMENSION F1(32),F2(32),F3(32) - DIMENSION AF(3),AS(3) - DIMENSION CALCO(8,20,32) - COMMON/W5051IA/CALCO - DATA DELTA/0.8000E-01/ - ANS=0. - IF(X.GT.0.9985) RETURN - N=3 - IS=S/DELTA+1 -C IF(IS.GE.17) IS=17 - IS1=IS+1 - IS2=IS1+1 - DO 1 L=1,32 - KL=L+32*NDRV - F1(L)=CALCO(I,IS,KL) - F2(L)=CALCO(I,IS1,KL) - F3(L)=CALCO(I,IS2,KL) - 1 CONTINUE - AF(1)=AFGETFV(X,F1) - AF(2)=AFGETFV(X,F2) - AF(3)=AFGETFV(X,F3) - AS(1)=(IS-1)*DELTA - AS(2)=AS(1)+DELTA - AS(3)=AS(2)+DELTA - CALL AFPOLIN(AS,AF,N,S,AANS,DY) - ANS=AANS - RETURN - END diff --git a/PDF/spdf/afpolin.F b/PDF/spdf/afpolin.F deleted file mode 100644 index 58afdae2c64..00000000000 --- a/PDF/spdf/afpolin.F +++ /dev/null @@ -1,51 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:33 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:00 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE AFPOLIN(XA,YA,N,X,Y,DY) - PARAMETER (NMAX=10) - DIMENSION XA(NMAX),YA(NMAX),C(NMAX),D(NMAX) - Y=0. - IF(N.GT.NMAX) RETURN - NS=1 - DIF=ABS(X-XA(1)) - DO 11 I=1,N - DIFT=ABS(X-XA(I)) - IF (DIFT.LT.DIF) THEN - NS=I - DIF=DIFT - ENDIF - C(I)=YA(I) - D(I)=YA(I) -11 CONTINUE - Y=YA(NS) - NS=NS-1 - DO 13 M=1,N-1 - DO 12 I=1,N-M - HO=XA(I)-X - HP=XA(I+M)-X - W=C(I+1)-D(I) - DEN=HO-HP -C IF(DEN.EQ.0.)PAUSE - DEN=W/DEN - D(I)=HP*DEN - C(I)=HO*DEN -12 CONTINUE - IF (2*NS.LT.N-M)THEN - DY=C(NS+1) - ELSE - DY=D(NS) - NS=NS-1 - ENDIF - Y=Y+DY -13 CONTINUE - RETURN - END diff --git a/PDF/spdf/afratin.F b/PDF/spdf/afratin.F deleted file mode 100644 index ce1e015471f..00000000000 --- a/PDF/spdf/afratin.F +++ /dev/null @@ -1,55 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:34 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:01 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE AFRATIN(XA,YA,N,X,Y,DY) - PARAMETER (NMAX=10,TINY=1.E-25) - DIMENSION XA(NMAX),YA(NMAX),C(NMAX),D(NMAX) - Y=0. - IF(N.GT.NMAX) RETURN - NS=1 - HH=ABS(X-XA(1)) - DO 11 I=1,N - H=ABS(X-XA(I)) - IF (H.EQ.0.)THEN - Y=YA(I) - DY=0.0 - RETURN - ELSE IF (H.LT.HH) THEN - NS=I - HH=H - ENDIF - C(I)=YA(I) - D(I)=YA(I)+TINY -11 CONTINUE - Y=YA(NS) - NS=NS-1 - DO 13 M=1,N-1 - DO 12 I=1,N-M - W=C(I+1)-D(I) - H=XA(I+M)-X - T=(XA(I)-X)*D(I)/H - DD=T-C(I+1) -C IF(DD.EQ.0.)PAUSE - DD=W/DD - D(I)=C(I+1)*DD - C(I)=T*DD -12 CONTINUE - IF (2*NS.LT.N-M)THEN - DY=C(NS+1) - ELSE - DY=D(NS) - NS=NS-1 - ENDIF - Y=Y+DY -13 CONTINUE - RETURN - END diff --git a/PDF/spdf/alphas2.F b/PDF/spdf/alphas2.F deleted file mode 100644 index 10d78d980ea..00000000000 --- a/PDF/spdf/alphas2.F +++ /dev/null @@ -1,209 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.3 1996/10/30 11:05:22 cernlib -* Conflicts resolved -* -* Revision 1.1.1.2 1996/10/30 08:32:07 cernlib -* Version 7.04 -* -* Revision 1.2 1996/05/31 13:57:48 pdflib -* replace # by + -* -* Revision 1.1.1.1 1996/04/12 15:29:01 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- -#if defined(CERNLIB_SINGLE) - FUNCTION ALPHAS2(SCALE) -#endif -#if defined(CERNLIB_DOUBLE) - DOUBLE PRECISION FUNCTION ALPHAS2(SCALE) - -#endif -C -C ********************************************************************** -C * * -C * Program to calculate alfa strong to second order * -C * as a function of lambda of 5 flavours * -C * and the desired number of flavours (NFL) * -C * for the selected set of structure functions which fixes lambda. * -C * NFL is limited to max. of 6 flavours. * -C * The value of alfa is matched at the thresholds q = mq. * -C * When invoked with NFL < 0, it chooses NFL * -C * as the number of flavours with mass less then q. * -C * (mc = 1.5 GeV, mb = 4.75 GeV, mt = 100 GeV) * -C * * -C * Input: SCALE = QCD scale in GeV * -C * * -C * Output: ALPHAS2 = alpha strong to second order, * -C * if not LO = 1 * -C * * -C * The variables NPTYPE,NGROUP,NSET,NFL,LO,TMAS,QCDL4,QCDL5 * -C * should be provided by the user via a call to the * -C * subroutine PDFSET at the initialization phase. * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ********************************************************************** -C -#include "pdf/impdp.inc" -C -#include "pdf/w5051p1.inc" -#include "pdf/w5051p2.inc" -#include "pdf/w5051p7.inc" -#include "pdf/w50510.inc" -#include "pdf/w50511.inc" -#include "pdf/w50512.inc" -#include "pdf/w50513.inc" -#include "pdf/w50515.inc" -#include "pdf/w50516.inc" -#include "pdf/w50517.inc" -#include "pdf/w50519.inc" -#include "pdf/w505120.inc" -#include "pdf/w505121.inc" -C -#include "pdf/expdp.inc" - + NF,KNF - CHARACTER*20 PARM(NCHDIM) -#include "pdf/expdp.inc" - + VAL(NCHDIM) - DATA XMC/1.5D0/,XMB/4.75D0/,XMT/100.D0/ - DATA ZEROD/0.D0/,PONED/0.001D0/,ONED/1.D0/,TWOD/2.D0/ -C. -C. initialization of the parameters for the coupling constant -C. -C. QCDL4 : QCD scale, which is matched to the scale used in the -C. parton distribution function chosen above for 4 flavours. -C. -C. QCDL5 : QCD scale, which is matched to the scale used in the -C. parton distribution function chosen above. -C. -C. be aware, this lambda is given for 5 flavours (mb = 4.75 GeV/c**2) !! -C. -C -C set the default values -C - ALPHAS2 = ZEROD -C - IF(N6.LE.0) N6 = L6 -C. -#include "pdf/w50511c.inc" -C. -C User wants new version (4.0 or bigger) of PDFLIB format - IF (IFLSET.NE.1) THEN - IF(FIRST) THEN - WRITE(N6,*) ' Warning : NO initialisation via PDFSET made !!' - WRITE(N6,*) - + ' ALL Parameters set to default (Nucleon PDFs) !!' - ENDIF - NPTYPE = LPTYPE - NGROUP = LGROUP - NSET = LNSET -C - PARM(1) = 'NPTYPE' - VAL(1) = NPTYPE - PARM(2) = 'NGROUP' - VAL(2) = NGROUP - PARM(3) = 'NSET' - VAL(3) = NSET -C - CALL PDFSET(PARM,VAL) - ENDIF -C. -C User wants old version (3.0 or less) of PDFLIB format - IF(.NOT.NEWVER) THEN - IF (MODE .GE.0 .AND. MODE .LE.MODEMX) THEN - IF(MODE.EQ.0) THEN - NPTYPE = LPTYPO - NGROUP = LGROPO - NSET = LNSETO - ELSE - NPTYPE = NPTYCR(MODE) - NGROUP = NGROCR(MODE) - NSET = NSETCR(MODE) -C Check on validity of parameter values - IF (NPTYPE.LT.0 .OR. NGROUP.LT.0 .OR. NSET.LT.0) THEN - IF(FIRST) THEN - WRITE(N6,*) ' PDFLIB : MODE value INCORRECT, MODE = ', - + MODE - WRITE(N6,*) ' Warning : MODE value set to OLD default !!' - ENDIF - NPTYPE = LPTYPO - NGROUP = LGROPO - NSET = LNSETO - ENDIF - ENDIF - ENDIF - ENDIF -C. - IF (QCDL5 .LE. PONED) THEN - IF(FIRST) THEN - WRITE (N6,*) ' PDFLIB: QCD-Lambda5 is not defined !! ' - ENDIF - ALPHAS2 = ZEROD - RETURN - ENDIF -C. - PI=4.0D0*ATAN(ONED) - B6 = (33.D0-2.D0*6.D0)/PI/12.D0 - BP6 = (153.D0 - 19.D0*6.D0) / PI / TWOD / (33.D0 - 2.D0*6.D0) - B5 = (33.D0-2.D0*5.D0)/PI/12.D0 - BP5 = (153.D0 - 19.D0*5.D0) / PI / TWOD / (33.D0 - 2.D0*5.D0) - B4 = (33.D0-2.D0*4.D0)/PI/12.D0 - BP4 = (153.D0 - 19.D0*4.D0) / PI / TWOD / (33.D0 - 2.D0*4.D0) - B3 = (33.D0-2.D0*3.D0)/PI/12.D0 - BP3 = (153.D0 - 19.D0*3.D0) / PI / TWOD / (33.D0 - 2.D0*3.D0) - XLC = TWOD * LOG( XMC/QCDL5) - XLB = TWOD * LOG( XMB/QCDL5) - XLT = TWOD * LOG( XMT/QCDL5 * TMAS/XMT) - XLLC = LOG( XLC) - XLLB = LOG( XLB) - XLLT = LOG( XLT) - C65 = ONED/( ONED/(B5 * XLT) - XLLT*BP5/(B5 * XLT)**2 ) - + - ONED/( ONED/(B6 * XLT) - XLLT*BP6/(B6 * XLT)**2 ) - C45 = ONED/( ONED/(B5 * XLB) - XLLB*BP5/(B5 * XLB)**2 ) - + - ONED/( ONED/(B4 * XLB) - XLLB*BP4/(B4 * XLB)**2 ) - C35 = ONED/( ONED/(B4 * XLC) - XLLC*BP4/(B4 * XLC)**2 ) - + - ONED/( ONED/(B3 * XLC) - XLLC*BP3/(B3 * XLC)**2 ) + C45 -C - Q = SCALE - XLQ = TWOD * LOG( Q/QCDL5 ) - XLLQ = LOG( XLQ ) - KNF = NFL - NF = KNF - IF ( NF .LT. ZEROD) THEN - IF ( Q .GT. XMT * TMAS/XMT) THEN - NF = 6.D0 - ELSEIF ( Q .GT. XMB ) THEN - NF = 5.D0 - ELSEIF ( Q .GT. XMC ) THEN - NF = 4.D0 - ELSE - NF = 3.D0 - ENDIF - ENDIF - IF(NF .GT. 6.D0) NF = 6.D0 - IF ( NF .EQ. 6.D0 ) THEN - ALF = ONED/(ONED/(ONED/(B6*XLQ)- BP6/(B6*XLQ)**2*XLLQ) + C65) - IF (LO.EQ.1) ALF = ONED/B6/XLQ - ELSEIF ( NF .EQ. 5.D0 ) THEN - ALF = ONED/(B5 * XLQ) - BP5/(B5 * XLQ)**2 * XLLQ - IF (LO.EQ.1) ALF = ONED/B5/XLQ - ELSEIF ( NF .EQ. 4.D0 ) THEN - ALF = ONED/(ONED/(ONED/(B4*XLQ)- BP4/(B4*XLQ)**2*XLLQ) + C45) - IF (LO.EQ.1) ALF = ONED/B4/XLQ - ELSEIF ( NF .EQ. 3.D0 ) THEN - ALF = ONED/(ONED/(ONED/(B3*XLQ)- BP3/(B3*XLQ)**2*XLLQ) + C35) - IF (LO.EQ.1) ALF = ONED/B3/XLQ - ELSE - WRITE(N6,*)'Error in Alphas2: unimplemented # of light flavours', - + NFL - STOP - ENDIF - ALPHAS2 = ALF - RETURN - END diff --git a/PDF/spdf/augetfv.F b/PDF/spdf/augetfv.F deleted file mode 100644 index a0902d59fe0..00000000000 --- a/PDF/spdf/augetfv.F +++ /dev/null @@ -1,57 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:34 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:02 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C - FUNCTION AUGETFV(X,FVL) -C LOGARITHMIC INTERPOLATOR - WATCH OUT FOR NEGATIVE -C FUNCTIONS AND/OR X VALUES OUTSIDE THE RANGE 0 TO 1. -C NOTE: DIMENSION OF FVL IS OVERWRITTEN BY VALUE USED -C IN MAIN ROUTINE. - DIMENSION FVL(25),XGRID(25) - DATA NX,XGRID/25,.001,.002,.004,.008,.016,.032,.064,.1,.15, - *.2,.25,.3,.35,.4,.45,.5,.55,.6,.65,.7,.75,.8,.85,.9,.95/ - AUGETFV=0. - DO 1 I=1,NX - IF(X.LT.XGRID(I)) GO TO 2 - 1 CONTINUE - 2 I=I-1 - IF(I.EQ.0) THEN - I=I+1 - ELSE IF(I.GT.23) THEN - I=23 - ENDIF - J=I+1 - K=J+1 - AXI= LOG(XGRID(I)) - BXI= LOG(1.-XGRID(I)) - AXJ= LOG(XGRID(J)) - BXJ= LOG(1.-XGRID(J)) - AXK= LOG(XGRID(K)) - BXK= LOG(1.-XGRID(K)) - FI= LOG(ABS(FVL(I)) +1.E-15) - FJ= LOG(ABS(FVL(J)) +1.E-16) - FK= LOG(ABS(FVL(K)) +1.E-17) - DET=AXI*(BXJ-BXK)+AXJ*(BXK-BXI)+AXK*(BXI-BXJ) - ALOGA=(FI*(AXJ*BXK-AXK*BXJ)+FJ*(AXK*BXI-AXI*BXK)+FK*(AXI*BXJ-AXJ* - $ BXI))/DET - ALPHA=(FI*(BXJ-BXK)+FJ*(BXK-BXI)+FK*(BXI-BXJ))/DET - BETA=(FI*(AXK-AXJ)+FJ*(AXI-AXK)+FK*(AXJ-AXI))/DET - IF(ABS(ALPHA).GT.99..OR.ABS(BETA).GT.99..OR.ABS(ALOGA).GT.99.) - 1RETURN -C IF(ALPHA.GT.50..OR.BETA.GT.50.) THEN -C WRITE(6,2001) X,FVL -C 2001 FORMAT(8E12.4) -C WRITE(6,2001) ALPHA,BETA,ALOGA,DET -C ENDIF - AUGETFV=EXP(ALOGA)*X**ALPHA*(1.-X)**BETA - RETURN - END diff --git a/PDF/spdf/aurgam.F b/PDF/spdf/aurgam.F deleted file mode 100644 index 4ef7d7b60ee..00000000000 --- a/PDF/spdf/aurgam.F +++ /dev/null @@ -1,41 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:35 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:02 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE AURGAM(I,NDRV,X,S,ANS) - DIMENSION F1(32),F2(32),F3(32) - DIMENSION AF(3),AS(3) - DIMENSION CALCO(8,20,32) - COMMON/W5051I7/CALCO - DATA DELTA/0.8000E-01/ - ANS=0. - IF(X.GT.0.9985) RETURN - N=3 - IS=S/DELTA+1 - IF(IS.GE.17) IS=17 - IS1=IS+1 - IS2=IS1+1 - DO 1 L=1,32 - KL=L+32*NDRV - F1(L)=CALCO(I,IS,KL) - F2(L)=CALCO(I,IS1,KL) - F3(L)=CALCO(I,IS2,KL) - 1 CONTINUE - AF(1)=AFGETFV(X,F1) - AF(2)=AFGETFV(X,F2) - AF(3)=AFGETFV(X,F3) - AS(1)=(IS-1)*DELTA - AS(2)=AS(1)+DELTA - AS(3)=AS(2)+DELTA - CALL AFPOLIN(AS,AF,N,S,AANS,DY) - ANS=AANS - RETURN - END diff --git a/PDF/spdf/aurpi1.F b/PDF/spdf/aurpi1.F deleted file mode 100644 index 3cad314520a..00000000000 --- a/PDF/spdf/aurpi1.F +++ /dev/null @@ -1,37 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:36 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:03 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C - SUBROUTINE AURPI1(I,NDRV,X,S,ANS) -#include "pdf/expdp.inc" - + CALCPIO(8,20,25) - COMMON/W5051I4/CALCPIO - REAL F1(25),F2(25) - DATA DELTA/.10/ - ANS=0. - IF(X.GT.0.9985) RETURN - IF(I.EQ.3.AND.X.GT.0.95) RETURN - IF(I.EQ.8.AND.X.GT.0.95) RETURN - IS=S/DELTA+1 - IS1=IS+1 - DO 1 L=1,25 - KL=L+NDRV*25 - F1(L)=CALCPIO(I,IS,KL) - F2(L)=CALCPIO(I,IS1,KL) - 1 CONTINUE - A1=AUGETFV(X,F1) - A2=AUGETFV(X,F2) - S1=(IS-1)*DELTA - S2=S1+DELTA - ANS=A1*(S-S2)/(S1-S2)+A2*(S-S1)/(S2-S1) - RETURN - END diff --git a/PDF/spdf/aurpi2.F b/PDF/spdf/aurpi2.F deleted file mode 100644 index 97a31f65957..00000000000 --- a/PDF/spdf/aurpi2.F +++ /dev/null @@ -1,37 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:36 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:03 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C - SUBROUTINE AURPI2(I,NDRV,X,S,ANS) -#include "pdf/expdp.inc" - + CALCPIO(8,20,25) - COMMON/W5051I5/CALCPIO - REAL F1(25),F2(25) - DATA DELTA/.10/ - ANS=0. - IF(X.GT.0.9985) RETURN - IF(I.EQ.3.AND.X.GT.0.95) RETURN - IF(I.EQ.8.AND.X.GT.0.95) RETURN - IS=S/DELTA+1 - IS1=IS+1 - DO 1 L=1,25 - KL=L+NDRV*25 - F1(L)=CALCPIO(I,IS,KL) - F2(L)=CALCPIO(I,IS1,KL) - 1 CONTINUE - A1=AUGETFV(X,F1) - A2=AUGETFV(X,F2) - S1=(IS-1)*DELTA - S2=S1+DELTA - ANS=A1*(S-S2)/(S1-S2)+A2*(S-S1)/(S2-S1) - RETURN - END diff --git a/PDF/spdf/aurpi3.F b/PDF/spdf/aurpi3.F deleted file mode 100644 index dcea5c0c409..00000000000 --- a/PDF/spdf/aurpi3.F +++ /dev/null @@ -1,37 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:37 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:03 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C - SUBROUTINE AURPI3(I,NDRV,X,S,ANS) -#include "pdf/expdp.inc" - + CALCPIO(8,20,25) - COMMON/W5051I6/CALCPIO - REAL F1(25),F2(25) - DATA DELTA/.10/ - ANS=0. - IF(X.GT.0.9985) RETURN - IF(I.EQ.3.AND.X.GT.0.95) RETURN - IF(I.EQ.8.AND.X.GT.0.95) RETURN - IS=S/DELTA+1 - IS1=IS+1 - DO 1 L=1,25 - KL=L+NDRV*25 - F1(L)=CALCPIO(I,IS,KL) - F2(L)=CALCPIO(I,IS1,KL) - 1 CONTINUE - A1=AUGETFV(X,F1) - A2=AUGETFV(X,F2) - S1=(IS-1)*DELTA - S2=S1+DELTA - ANS=A1*(S-S2)/(S1-S2)+A2*(S-S1)/(S2-S1) - RETURN - END diff --git a/PDF/spdf/aurpr.F b/PDF/spdf/aurpr.F deleted file mode 100644 index dcd40742c60..00000000000 --- a/PDF/spdf/aurpr.F +++ /dev/null @@ -1,37 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:37 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:04 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE AURPR(I,NDRV,X,S,ANS) -#include "pdf/expdp.inc" - + CALCO(8,20,25) - COMMON/W5051I3/CALCO - REAL F1(25),F2(25) - DATA DELTA/.10/ - ANS=0. - IF(X.GT.0.9985) RETURN - IF(I.EQ.3.AND.X.GT.0.95) RETURN - IF(I.EQ.8.AND.X.GT.0.95) RETURN - IS=S/DELTA+1 - IS1=IS+1 - DO 1 L=1,25 - KL=L+NDRV*25 - F1(L)=CALCO(I,IS,KL) - F2(L)=CALCO(I,IS1,KL) - 1 CONTINUE - A1=AUGETFV(X,F1) - A2=AUGETFV(X,F2) - S1=(IS-1)*DELTA - S2=S1+DELTA - ANS=A1*(S-S2)/(S1-S2)+A2*(S-S1)/(S2-S1) -C ANS=EXP(ANS) - RETURN - END diff --git a/PDF/spdf/bbeta.F b/PDF/spdf/bbeta.F deleted file mode 100644 index 22d2a065c59..00000000000 --- a/PDF/spdf/bbeta.F +++ /dev/null @@ -1,29 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:38 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:04 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -#if defined(CERNLIB_SINGLE) - FUNCTION BBETA(X,Y) -#endif -#if defined(CERNLIB_DOUBLE) - DOUBLE PRECISION FUNCTION BBETA(X,Y) -#endif -#include "pdf/expdp.inc" - + DGAMMA, - + X,Y -#if defined(CERNLIB_SINGLE) - BBETA=GAMMA(X)*GAMMA(Y)/GAMMA(X+Y) -#endif -#if defined(CERNLIB_DOUBLE) - BBETA=DGAMMA(X)*DGAMMA(Y)/DGAMMA(X+Y) -#endif - RETURN - END diff --git a/PDF/spdf/beta.F b/PDF/spdf/beta.F deleted file mode 100644 index 386413d5637..00000000000 --- a/PDF/spdf/beta.F +++ /dev/null @@ -1,17 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:39 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:04 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C - FUNCTION BETA(X,Y) - BETA=GAMMA(X)*GAMMA(Y)/GAMMA(X+Y) - RETURN - END diff --git a/PDF/spdf/bxf3.F b/PDF/spdf/bxf3.F deleted file mode 100644 index 295118d6912..00000000000 --- a/PDF/spdf/bxf3.F +++ /dev/null @@ -1,31 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:39 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:04 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE BXF3 (X,QQ,XF3) -C....................................................................... -C. -C. F3 (GIVES VALENCE FOR U AND D) -C. -C....................................................................... -#include "pdf/impdp.inc" -#include "pdf/expdp.inc" - + BBETA - DATA XLAM /0.47D00/, Q02/5.D0/ - DATA ONED/1.D0/, FIVED2/5.2D0/ -C - S = LOG( LOG( MAX(FIVED2,QQ)/XLAM**2)/ LOG( Q02/XLAM**2)) - ETA1=0.56D00-0.92D00*S*4.00D00/25.00D00 - ETA2=2.71D00+5.08D00*S*4.00D00/25.00D00 - XF3=(X**ETA1)*((ONED-X)**ETA2)/BBETA(ETA1,ONED+ETA2) - XF3=3.0D00*XF3 - RETURN - END diff --git a/PDF/spdf/bxglue.F b/PDF/spdf/bxglue.F deleted file mode 100644 index 598ff0e9453..00000000000 --- a/PDF/spdf/bxglue.F +++ /dev/null @@ -1,31 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:40 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:05 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE BXGLUE (X,QQ,XGL) -C....................................................................... -C. -C. GLUON -C. -C....................................................................... -#include "pdf/impdp.inc" - DATA XLAM /0.47D00/, Q02/5.D0/ - DATA ONED/1.D0/, FIVED2/5.2D0/ -C - S = LOG( LOG( MAX( FIVED2,QQ)/XLAM**2)/ LOG( Q02/XLAM**2)) -C CGL=2.01D00-3.56D00*S+5.10D00*S**2 -C ... modified according to Z. Phys. C2 (79) 265, HPB - 25.2.91 - CGL=2.01D00-3.56D00*S+1.98D00*S*S - ETA1=-1.13D00*S+0.48D00*S*S - ETA2=2.90D00+5.08D00*S*4.00D00/25.0D00 - XGL=CGL*(X**ETA1)*((ONED-X)**ETA2) - RETURN - END diff --git a/PDF/spdf/bxqbar.F b/PDF/spdf/bxqbar.F deleted file mode 100644 index 7ec11d0b1d2..00000000000 --- a/PDF/spdf/bxqbar.F +++ /dev/null @@ -1,28 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:41 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:05 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE BXQBAR (X,QQ,XQBAR) -C....................................................................... -C. -C. SEA -C. -C....................................................................... -#include "pdf/impdp.inc" - DATA XLAM /0.47D00/, Q02/5.D0/ - DATA ONED/1.D0/, FIVED2/5.2D0/ -C - S = LOG( LOG( MAX( FIVED2,QQ)/XLAM**2)/ LOG( Q02/XLAM**2)) - AA=0.99D00+0.72D00*S+0.96D00*S*S - PP=8.10D00-1.49D00*S+5.10D00*S*S - XQBAR=AA*(ONED-X)**PP - RETURN - END diff --git a/PDF/spdf/ctq1opd.F b/PDF/spdf/ctq1opd.F deleted file mode 100644 index 70df099c5b4..00000000000 --- a/PDF/spdf/ctq1opd.F +++ /dev/null @@ -1,369 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:41 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:05 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - - FUNCTION Ctq1OPd (Ist, Lp, XX, QQ, Irt) - -C Returns xf(x,Q) -- the momentum fraction distribution !! -C Returns valence and sea rather than combined flavor distr. - -C Ist : PDF set label - -C Lp : Parton label: 2, 1 = d_ and u_ valence -C 0 = gluon -C -1, ... -6 = u, d, s, c, b, t sea quarks - -C XX : Bjorken-x -C QQ : scale parameter "Q" -C Irt : Return code - -C IMPLICIT DOUBLE PRECISION (A-H, O-Z) -C+SEQ, IMPDP. - PARAMETER (D0=0D0, D1=1D0, D2=2D0, D3=3D0, D4=4D0, D10=1D1) - PARAMETER (Nex = 5, MxFl = 6, Npn = 3, Nst = 30, Nexpt=20) - Parameter (Nst4 = Nst*4) - -#include "pdf/expdp.inc" - + P012, P34, P5, PDFD - REAL PDF - - DIMENSION - > AC(0:Nex, 0:Npn, -MxFl:2, Nst), A(0:Nex) - > , Iord(Nst), Isch(Nst), Nqrk(Nst),Alm(Nst) - > , Vlm(4:6,Nst), Qms(4:6, Nst) - > , Xmn(Nst), Qmn(Nst), Qmx(Nst), Nexp(Nexpt) - > , Mex(Nst), Mpn(Nst), ExpN(Nexpt, Nst), ExpNor(Nexpt) - -C CTEQ1M - DATA - > Isch(1), Iord(1), Nqrk(1), Alm(1) / 1, 2, 6, .152 / - > ,(Vlm(I,1), I=4,6) / .231, .152, .059 / - > ,(Qms(I,1), I=4,6) / 1.50, 5.00, 180.0 / - > ,Xmn(1), Qmn(1), Qmx(1) / 1.E-5, 2.00, 1.E3 / - > ,Mex(1), Mpn(1), Nexp(1) / 5, 3, 8 / - > ,(ExpN(I, 1), I=1,8) - > / 0.989, 1.00, 1.02, 0.978, 1.10, 0.972, 0.987, 0.846 / - DATA (((AC(IEX,IPN,IFL,1), IEX=0,5), IPN=0,3), IFL=-6,-4) - >/ 1.291 , .693 , 3.195 , -2.294 , .291 , .000 , - > -.038 , -.016 , .299 , -1.560 , -.183 , .451 , - > -.118 , .043 , -.015 , .164 , .074 , .141 , - > -.006 , -.018 , .128 , .366 , -.017 , -.043 , - > -1.255 , .269 , 3.766 , 3.355 , .823 , .000 , - > .332 , .068 , .670 , -1.056 , -.343 , .242 , - > -.350 , -.020 , -.051 , .373 , .098 , .079 , - > .008 , .005 , .023 , -.035 , -.018 , .013 , - > .999 , -.031 , 8.015 , 3.874 , 2.773 , .000 , - > -2.366 , -.857 , -.059 , -1.854 , -1.508 , .383 , - > -.339 , 1.117 , -.876 , .580 , .290 , 2.472 , - > .202 , -.459 , .302 , -.135 , .050 , -1.184 / - DATA (((AC(IEX,IPN,IFL,1), IEX=0,5), IPN=0,3), IFL=-3,-1) - >/ -1.176 , .005 , 7.490 , -4.470 , .603 , .000 , - > -.473 , -.377 , -1.143 , 2.230 , -.446 , -.134 , - > -1.481 , .074 , 2.564 , 4.076 , 1.201 , .800 , - > .879 , -.009 , -1.175 , -3.678 , -.692 , -.461 , - > -2.022 , -.158 , 8.559 , 3.169 , 1.477 , .000 , - > -1.002 , .126 , .188 , -.055 , .025 , 1.650 , - > .011 , -.335 , .256 , -.132 , -.143 , -1.177 , - > -.056 , .138 , -.103 , .060 , .046 , .457 , - > -1.137 , -.032 , 11.636 , 3.925 , 3.300 , .000 , - > -1.427 , -.109 , -2.300 , -1.122 , -.911 , 1.052 , - > .603 , -.255 , 2.474 , .432 , .444 , -1.231 , - > -.295 , .133 , -.959 , -.145 , -.126 , .578 / - DATA (((AC(IEX,IPN,IFL,1), IEX=0,5), IPN=0,3), IFL= 0, 2) - >/ -6.851 , .179 , 8.667 , 3.918 , 1.757 , 2.338 , - > 1.494 , .723 , -11.768 , -5.471 , -2.241 , 6.119 , - > -6.385 , -.725 , 11.511 , 9.052 , 2.205 , -3.177 , - > 2.552 , .405 , -4.517 , -3.569 , -.617 , 1.517 , - > -3.012 , -.407 , 6.986 , -3.839 , -.005 , 1.092 , - > 4.825 , 2.720 , -1.852 , 1.513 , .046 , 4.612 , - > -8.807 , -6.151 , -5.616 , -3.152 , .018 , -11.986 , - > 4.213 , 3.833 , 7.066 , 2.737 , -.025 , 8.430 , - > -8.291 , -.109 , 8.279 , 1.359 , 11.254 , 2.274 , - > 6.770 , -2.028 , -7.774 , 11.962 , 9.376 , -2.552 , - > -3.104 , 3.322 , 11.896 , 9.854 , -.920 , 6.730 , - > 9.352 , 8.716 , 11.981 , 11.994 , -5.632 , -4.979 / - -C CTEQ1MS - DATA - > Isch(2), Iord(2), Nqrk(2), Alm(2) / 1, 2, 6, .152 / - > ,(Vlm(I,2), I=4,6) / .231, .152, .059 / - > ,(Qms(I,2), I=4,6) / 1.50, 5.00, 180.0 / - > ,Xmn(2), Qmn(2), Qmx(2) / 1.E-5, 2.00, 1.E3 / - > ,Mex(2), Mpn(2), Nexp(2) / 5, 3, 8 / - > ,(ExpN(I, 2), I=1,8 ) - > / 0.989, 1.00, 1.02, 0.984, 1.05, 0.891, 0.923, 0.824 / - DATA (((AC(IEX,IPN,IFL,2), IEX=0,5), IPN=0,3), IFL=-6,-4) - >/ 0.603 , 0.606 , 3.454 , -1.341 , 0.892 , 0.000 , - > -0.592 , -0.051 , -0.640 , -3.736 , -0.628 , 0.436 , - > 1.609 , 0.035 , 2.432 , 5.353 , -0.205 , -0.636 , - > -1.124 , 0.009 , -1.035 , -1.841 , 0.292 , 0.553 , - > -1.243 , 0.273 , 3.736 , 3.311 , 0.804 , 0.000 , - > 0.337 , 0.069 , 0.668 , -1.051 , -0.334 , 0.251 , - > -0.390 , -0.029 , -0.050 , 0.401 , 0.087 , 0.050 , - > 0.030 , 0.012 , 0.023 , -0.051 , -0.012 , 0.032 , - > -2.475 , -0.479 , 5.071 , 3.349 , 0.499 , 0.000 , - > -0.473 , -0.066 , 1.189 , -1.869 , -1.527 , -0.944 , - > 0.204 , 0.012 , -0.805 , 0.489 , 2.612 , 4.458 , - > -0.280 , 0.067 , 0.205 , -0.107 , -1.344 , -2.243 / - DATA (((AC(IEX,IPN,IFL,2), IEX=0,5), IPN=0,3), IFL=-3,-1) - >/ -0.826 , 0.035 , 6.781 , -12.000 , 0.306 , 0.000 , - > -3.668 , -0.433 , -0.494 , 11.065 , 0.942 , 1.003 , - > 3.573 , 0.094 , 2.550 , -9.100 , -0.069 , -1.325 , - > -1.575 , 0.018 , -1.113 , 6.251 , -0.120 , 0.731 , - > -2.602 , -0.273 , 7.719 , 2.890 , 1.167 , 0.000 , - > -0.490 , 0.198 , 0.011 , -0.748 , -0.134 , 1.503 , - > -0.581 , -0.233 , 0.237 , 0.693 , 0.137 , -0.446 , - > 0.135 , 0.079 , -0.077 , -0.210 , -0.058 , 0.141 , - > -0.423 , 0.028 , 7.553 , -2.379 , 0.197 , 0.000 , - > -2.385 , -0.355 , 0.216 , 2.235 , 0.304 , 0.253 , - > 0.506 , 0.075 , -0.967 , -4.420 , 0.536 , 0.409 , - > 0.139 , -0.019 , 1.027 , 2.583 , -0.415 , -0.328 / - DATA (((AC(IEX,IPN,IFL,2), IEX=0,5), IPN=0,3), IFL= 0, 2) - >/ -7.079 , 0.846 , 6.606 , 1.205 , -1.230 , 0.093 , - > 4.935 , -2.194 , -1.211 , 2.680 , 4.238 , 6.468 , - > -5.897 , 1.178 , -8.073 , -11.571 , -6.159 , -7.322 , - > 3.223 , -0.119 , 11.714 , 9.362 , 4.042 , 2.248 , - > -7.397 , 0.074 , 9.720 , 3.531 , 1.327 , 2.230 , - > 1.231 , 0.319 , -11.617 , -2.030 , 0.499 , 7.402 , - > -6.532 , -0.109 , -2.119 , -3.973 , -6.102 , -7.770 , - > 6.548 , -0.703 , 11.966 , 4.277 , 4.918 , 0.063 , - > -8.118 , 5.785 , 10.958 , 1.271 , -4.631 , 3.188 , - > -3.630 , -5.093 , -11.222 , 0.699 , -8.569 , -7.516 , - > 11.721 , 11.973 , 1.942 , 11.484 , 10.563 , -9.477 , - > 9.243 , 11.808 , -1.901 , 10.223 , 12.000 , -9.659 / - -C CTEQ1D - DATA - > Isch(3), Iord(3), Nqrk(3), Alm(3) / 2, 2, 6, .164 / - > ,(Vlm(I,3), I=4,6) / .247, .164, .064 / - > ,(Qms(I,3), I=4,6) / 1.50, 5.00, 180.0 / - > ,Xmn(3), Qmn(3), Qmx(3) / 1.E-5, 2.00, 1.E3 / - > ,Mex(3), Mpn(3), Nexp(3) / 5, 3, 8 / - > ,(ExpN(I, 3), I=1,8 ) - > / 0.983, 1.00, 1.01, 0.975, 0.964, 1.23, 1.00, 1.12 / - DATA (((AC(IEX,IPN,IFL,3), IEX=0,5), IPN=0,3), IFL=-6,-4) - > / .491 , .579 , 2.839 , -2.212 , .801 , .000 , - > .546 , -.090 , .573 , -1.963 , -1.124 , -.290 , - > -.443 , .133 , -.084 , 1.364 , .929 , .781 , - > -.001 , -.045 , .003 , -.983 , -.281 , -.222 , - > -1.040 , .266 , 3.514 , 3.091 , .900 , .000 , - > .272 , .054 , .669 , -.970 , -.340 , .213 , - > -.271 , -.007 , -.052 , .296 , .088 , .084 , - > .029 , .004 , .026 , -.055 , -.017 , .006 , - > 1.009 , .006 , 8.200 , 3.907 , 2.387 , .000 , - > -2.313 , -1.001 , -.109 , -1.877 , -1.251 , .105 , - > -.638 , 1.358 , -1.195 , .767 , .229 , 3.220 , - > .301 , -.548 , .431 , -.183 , .051 , -1.458 / - DATA (((AC(IEX,IPN,IFL,3), IEX=0,5), IPN=0,3), IFL=-3,-1) - >/ -1.602 , -.077 , 8.008 , -12.000 , .902 , .000 , - > -1.365 , -.063 , -2.116 , 11.788 , .447 , 1.214 , - > .471 , -.212 , 2.664 , 1.951 , .017 , -1.001 , - > -.102 , .080 , -.892 , -8.620 , -.246 , .284 , - > -2.395 , -.237 , 8.447 , 3.436 , 1.629 , .000 , - > -.710 , .300 , .236 , -.286 , -.130 , 1.914 , - > -.310 , -.393 , -.018 , -.004 , -.067 , -1.068 , - > .105 , .126 , .048 , -.005 , .027 , .292 , - > -.917 , .002 , 9.613 , -1.016 , .384 , .000 , - > -1.914 , -.048 , -4.422 , -.674 , .300 , 1.428 , - > .979 , -.370 , 5.186 , .583 , .135 , -1.735 , - > -.273 , .166 , -1.869 , -.469 , -.187 , .654 / - DATA (((AC(IEX,IPN,IFL,3), IEX=0,5), IPN=0,3), IFL= 0, 2) - >/ -5.837 , -.118 , 8.788 , 3.105 , 1.759 , .660 , - > 4.625 , .334 , -7.686 , -6.079 , -2.041 , 3.668 , - > -8.633 , -.726 , 5.499 , 6.792 , .042 , -3.124 , - > 3.750 , .284 , -.894 , -2.211 , .623 , .994 , - > -4.883 , -.410 , 7.236 , -1.244 , .030 , -.209 , - > 7.234 , 1.276 , -4.142 , -2.411 , .013 , 6.729 , - > -10.009 , -2.572 , 4.865 , 3.458 , -.037 , -11.907 , - > 6.428 , 1.508 , -1.351 , -3.510 , -.005 , 7.070 , - > -4.736 , -.536 , 8.822 , -2.407 , .029 , -.034 , - > 6.936 , 1.519 , -11.919 , -8.543 , .070 , 6.899 , - > -10.860 , -2.198 , -4.707 , -7.172 , -.057 , -9.557 , - > -2.932 , 1.249 , 11.998 , -5.721 , -.342 , 11.930 / - -C CTEQ1L - DATA - > Isch(4), Iord(4), Nqrk(4), Alm(4) / 1, 2, 6, .125 / - > ,(Vlm(I,4), I=4,6) / .168, .125, .063 / - > ,(Qms(I,4), I=4,6) / 1.50, 5.00, 180.0 / - > ,Xmn(4), Qmn(4), Qmx(4) / 1.E-5, 2.00, 1.E3 / - > ,Mex(4), Mpn(4), Nexp(4) / 5, 3, 8 / - > ,(ExpN(I, 4), I=1,8 ) - > / 0.982, 1.01, 1.00, 0.972, 0.840, 0.959, 0.930, 0.861 / - DATA (((AC(IEX,IPN,IFL,4), IEX=0,5), IPN=0,3), IFL=-6,-4) - > / .583 , .608 , 3.470 , -1.155 , 1.007 , .000 , - > -.548 , .053 , -.676 , -3.980 , -.652 , .821 , - > -.745 , .096 , 2.155 , 7.420 , 1.592 , .654 , - > .367 , -.062 , -.834 , -3.138 , -.505 , -.392 , - > -.668 , .276 , 3.579 , 2.890 , 1.120 , .000 , - > .036 , .056 , .712 , -.791 , -.394 , .313 , - > -.145 , -.001 , -.004 , .161 , .113 , .065 , - > .007 , .001 , -.001 , -.036 , -.026 , .001 , - > .997 , -.010 , 7.174 , 3.398 , 2.572 , .000 , - > -2.694 , -1.279 , .440 , -1.681 , -1.486 , -.262 , - > -.474 , 1.867 , -1.071 , .872 , .310 , 4.279 , - > .351 , -.827 , .307 , -.351 , .059 , -2.173 / - DATA (((AC(IEX,IPN,IFL,4), IEX=0,5), IPN=0,3), IFL=-3,-1) - >/ -1.280 , .000 , 11.000 , 3.620 , 1.960 , .000 , - > -1.421 , .140 , -2.068 , -1.124 , -.562 , 1.801 , - > 1.116 , -.962 , 3.225 , .221 , .290 , -3.519 , - > -.734 , .510 , -1.553 , .003 , -.149 , 1.902 , - > -1.874 , -.128 , 8.649 , 3.777 , 2.238 , .000 , - > -.755 , .290 , .081 , -.537 , -.403 , 1.786 , - > -.082 , -.784 , .368 , -.275 , -.032 , -2.179 , - > -.035 , .340 , -.124 , .191 , .048 , .932 , - > -.990 , .009 , 10.273 , -1.835 , .819 , .000 , - > -2.295 , .499 , -6.955 , 2.127 , -1.032 , 3.397 , - > 1.305 , -1.254 , 8.613 , -3.620 , 2.081 , -4.647 , - > -.390 , .547 , -3.228 , 1.768 , -1.098 , 1.881 / - DATA (((AC(IEX,IPN,IFL,4), IEX=0,5), IPN=0,3), IFL= 0, 2) - >/ -4.634 , 2.501 , 6.519 , -.075 , -2.309 , 1.799 , - > -.269 , -7.341 , 3.055 , 5.026 , 6.286 , -5.076 , - > -5.752 , 4.656 , -11.795 , -4.939 , -5.771 , 4.691 , - > 1.928 , .368 , 6.233 , 3.582 , 2.682 , 3.704 , - > -6.652 , -.037 , 5.764 , -.122 , .058 , 1.467 , - > 11.952 , -.263 , -4.995 , -7.099 , -.146 , 1.097 , - > -9.664 , .128 , 11.665 , 5.411 , .053 , -2.291 , - > -3.722 , -.154 , -6.858 , 4.432 , .108 , 1.817 , - > -11.229 , 1.127 , 6.623 , 4.334 , 1.829 , 7.775 , - > -4.606 , -8.717 , -12.000 , -1.353 , -5.906 , -11.999 , - > 5.527 , 11.919 , -11.960 , -9.739 , -4.425 , -7.885 , - > 5.294 , 4.647 , -11.995 , -7.602 , 11.961 , -11.528 / - -C CTEQ1ML - DATA - > Isch(5), Iord(5), Nqrk(5), Alm(5) / 1, 2, 6, .220 / - > ,(Vlm(I,5), I=4,6) / .322, .220, .088 / - > ,(Qms(I,5), I=4,6) / 1.50, 5.00, 180.0 / - > ,Xmn(5), Qmn(5), Qmx(5) / 1.E-5, 2.00, 1.E3 / - > ,Mex(5), Mpn(5), Nexp(5) / 5, 3, 8 / - > ,(ExpN(I, 5), I=1,8 ) - > / 0.985, 1.00, 1.01, 0.977, 1.07, 1.31, 1.19, 1.09 / - DATA (((AC(IEX,IPN,IFL,5), IEX=0,5), IPN=0,3), IFL=-6,-4) - >/ 1.329 , 0.710 , 3.259 , -2.037 , 0.289 , 0.000 , - > -0.171 , -0.051 , 0.568 , -0.594 , -0.162 , 0.387 , - > 0.357 , 0.087 , -0.687 , -2.327 , 0.011 , 0.144 , - > -0.250 , -0.036 , 0.455 , 1.564 , 0.016 , -0.032 , - > -1.280 , 0.276 , 3.710 , 3.377 , 0.807 , 0.000 , - > 0.439 , 0.074 , 0.688 , -1.164 , -0.346 , 0.236 , - > -0.493 , -0.040 , -0.078 , 0.512 , 0.091 , 0.040 , - > 0.077 , 0.018 , 0.033 , -0.096 , -0.010 , 0.042 , - > 1.073 , 0.000 , 8.529 , 4.956 , 3.396 , 0.000 , - > -2.117 , -1.044 , 0.029 , -2.517 , -2.020 , -0.289 , - > -0.323 , 1.243 , -0.777 , 0.932 , 0.708 , 2.836 , - > 0.121 , -0.465 , 0.189 , -0.259 , -0.132 , -1.164 / - DATA (((AC(IEX,IPN,IFL,5), IEX=0,5), IPN=0,3), IFL=-3,-1) - >/ -1.058 , 0.019 , 7.301 , -10.896 , 0.440 , 0.000 , - > -2.500 , 0.311 , -1.030 , 6.555 , 0.479 , 3.038 , - > 1.760 , -1.618 , 0.045 , 6.295 , 0.150 , -6.173 , - > -0.804 , 0.990 , 0.425 , -4.081 , -0.367 , 3.574 , - > -1.771 , -0.093 , 9.119 , 3.395 , 1.668 , 0.000 , - > -0.966 , -0.101 , 0.282 , -0.098 , -0.016 , 0.997 , - > 0.023 , -0.142 , 0.230 , -0.101 , -0.123 , -0.641 , - > -0.080 , 0.078 , -0.135 , 0.037 , 0.031 , 0.303 , - > -0.939 , -0.014 , 9.812 , -0.981 , 0.494 , 0.000 , - > -3.186 , 0.185 , -6.334 , -1.277 , 0.888 , 2.922 , - > 3.040 , -0.606 , 7.480 , 2.012 , -1.487 , -3.663 , - > -1.241 , 0.249 , -2.711 , -0.892 , 0.676 , 1.454 / - DATA (((AC(IEX,IPN,IFL,5), IEX=0,5), IPN=0,3), IFL= 0, 2) - >/ -6.421 , 0.004 , 5.303 , -11.596 , 7.121 , 1.436 , - > 6.098 , -0.296 , -1.129 , 6.321 , -5.644 , 0.686 , - > -10.204 , 0.691 , -4.176 , 11.994 , -3.263 , 2.657 , - > 5.577 , -0.515 , 4.255 , -8.338 , 2.663 , -2.657 , - > -7.550 , 0.033 , 4.596 , -11.000 , 5.769 , 2.355 , - > 7.371 , -0.525 , -0.947 , -4.358 , -4.192 , -0.559 , - > -9.918 , 0.513 , 4.015 , 11.844 , 2.203 , 0.872 , - > 4.771 , -0.232 , -2.706 , 3.373 , -3.659 , -0.453 , - > -5.130 , -2.246 , 11.942 , -0.186 , -1.349 , -2.626 , - > -7.144 , 10.040 , -5.395 , 1.984 , 5.378 , 11.999 , - > 9.832 , -9.146 , -11.060 , -11.302 , 11.672 , 11.999 , - > 11.669 , -7.615 , -10.440 , -0.618 , 10.684 , 11.918 / - - - Irt = 0 - Ip = Abs(Lp) - Ifl = 2 - Nqrk(Ist) - Lp -C For Lp = 2, ... -N we have Ifl = -N, ..., 2. -C This transformation inverts the counting of the -C data matrix AC(...) which is created with Ifl = 2, -N, -1. - X = XX - - If (Ip.GE.4 .and. QQ.LE.Qms(Ip, Ist)) Then - Ctq1OPd = 0. - Return - Endif - - Qi = Qmn (Ist) - Alam = Alm (Ist) - SQ = LOG ( LOG(QQ/Alam) / LOG(Qi/Alam) ) - - DO 20 Iex = 0, Mex(Ist) - A(Iex) = AC(Iex, 0, Ifl, Ist) - DO 21 Ipn = 1, Mpn(Ist) - A(Iex) = A(Iex) + AC(Iex, Ipn, Ifl, Ist) * SQ **Ipn - 21 Continue - 20 continue - - P012 = Exp(A(0)) * X**A(1) * (1.-X)**A(2) - P34 = 1. + (Exp(A(3)) - 1.) * X**A(4) - P5 = Log(1.+ 1./X) ** A(5) -C - PDFD = P012 * P34 * P5 - PDF = PDFD -C Return parton (momentum fraction) function! - Ctq1OPd = PDF - IF(Ctq1OPd.LT.0.0) Ctq1OPd = 0.0 - - Return -C ----------------------------- - Entry ParCtq1 - > (Iset, Iordr, Ischeme, MxFlv, - > Alam4, Alam5, Alam6, Amas4, Amas5, Amas6, - > Xmin, Qini, Qmax, ExpNor) - -C Return QCD parameters and Fitting parameters -C associated with parton distribution set Iset. -C Iord : Order Of Fit -C Ischeme : (0, 1, 2) for (LO, MS-bar-NLO, DIS-NLO) resp. -C MxFlv : Maximum number of flavors included -C Alam_i : i = 4,5,6 Effective lambda for i-flavors -C Amas_i : i = 4,5,6 Mass parameter for flavor i -C Xmin, Qini, Qmax : self explanary -C ExpNor(I) : Normalization factor for the experimental data set used in -C obtaining the best global fit for parton distributions Iset: - -C;I = 1,;2,;3,;4,;5,;6,;7,;8 -C;BCDMS;NMC90;NMC280;CCFR;E605;WA70;E706;UA6 - Iordr = Iord (Iset) - Ischeme= Isch (Iset) - MxFlv = Nqrk (Iset) - - Alam4 = Vlm(4,Iset) - Alam5 = Vlm(5,Iset) - Alam6 = Vlm(6,Iset) - - Amas4 = Qms(4,Iset) - Amas5 = Qms(5,Iset) - Amas6 = Qms(6,Iset) - - Xmin = Xmn (Iset) - Qini = Qmn (Iset) - Qmax = Qmx (Iset) - - Do 101 Iexp = 1, Nexp(Iset) - ExpNor(Iexp) = ExpN(Iexp, Iset) - 101 Continue - - Ctq1OPd = 0. - Return -C ************************* - END diff --git a/PDF/spdf/ctq1opf.F b/PDF/spdf/ctq1opf.F deleted file mode 100644 index dfae090c31f..00000000000 --- a/PDF/spdf/ctq1opf.F +++ /dev/null @@ -1,108 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.4 1997/07/13 13:22:34 cernlib -* Import version 7.09 -* -* Revision 1.1.1.1 1996/04/12 15:29:07 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - FUNCTION Ctq1OPf (Iset, Iparton, X, Q, Irt) - -C CTEQ distribution function in a parametrized form. -C (No data tables are needed.) - -C The returned function value is the PROBABILITY density for a given FLAVOR. - -C !! A companion function Ctq1Pd (Iset, Iparton, X, Q, Irt) gives the -C !! VALENCE and SEA MOMENTUM FRACTION distributions. See next module. - -C Ref.: "CTEQ Parton Distributions and Flavor Dependence of the Sea Quarks" -C by: J. Botts, J.G. Morfin, J.F. Owens, J. Qiu, W.K. Tung & H. Weerts -C MSUHEP-92-27, Fermilab-Pub-92/371, FSU-HEP-92-1225, ISU-NP-92-17 - -C Since this is an initial distribution, and there may be updates, it is -C useful for the authors to maintain a record of the distribution list. -C Please do not freely distribute this program package; instead, refer any -C interested colleague to direct their request for a copy to: -C Botts@msupa.pa.msu.edu or Botts@msupa (bitnet) or MSUHEP::Botts - -C If you have any questions concerning these distributions, direct inquires -C to Jim Botts or Wu-Ki Tung (username Tung at same E-mail nodes as above). - -C $Header$ -C $Log$ -C Revision 1.1.1.4 1997/07/13 13:22:34 cernlib -C Import version 7.09 -C -C Revision 1.1.1.1 1996/04/12 15:29:07 plothow -C Version 7.01 -C -C Revision 1.1 93/02/08 18:35:25 wkt -C Initial revision -C -C -C This function returns the CTEQ parton distributions f^Iset_Lp/proton -C where Iset (= 1, 2, ..., 5) is the set label; -C Name convention for CTEQ distributions: CTEQnSx where -C n : version number (currently n = 1) -C S : factorization scheme label: = [M D L] for [MS-bar DIS LO] resp. -C x : special characteristics, if any -C (e.g. S for singular gluon, L for "LEP lambda value") - -C Lp is the parton label (6, 5, 4, 3, 2, 1, 0, -1, ......, -6) -C for (t, b, c, s, d, u, g, u_bar, ..., t_bar) - -C X, Q are the usual x, Q; Irt is a return error code (not implemented yet). - -C --> Iset = 1, 2, 3, 4, 5 correspond to the following CTEQ global fits: -C cteq1M, cteq1MS, cteq1ML, cteq1D, cteq1L respectively. - -C --> QCD parameters for parton distribution set Iset can be obtained inside -C the user's program by: -C Call ParCtqO -C > (Iset, Iord, Ischeme, MxFlv, -C > Alam4, Alam5, Alam6, Amas4, Amas5, Amas6, -C > Xmin, Qini, Qmax, ExpNor) -C where the arguments are self-explanary -- see details in next module. - -C The range of (x, Q) used in this round of global analysis is, approxi- -C mately, 0.01 < x < 0.75 ; and 4 GeV^2 < Q^2 < 400 GeV^2. - -C The range of (x, Q) used in the reparametrization of the QCD evolved -C parton distributions is 10E-5 < x < 1 ; 2 GeV < Q < 1 TeV. The -C functional form of this parametrization is: - -C A0 * x^A1 * (1-x)^A2 * (1 + A3 * x^A4) * [log(1+1/x)]^A5 - -C with the A'coefficients being smooth functions of Q. -C Since this function is positive definite and smooth, it provides sensible -C extrapolations of the parton distributions if they are called beyond -C the original range in an application. There is no artificial boundaries -C or sharp cutoff's. - -C IMPLICIT DOUBLE PRECISION (A-H, O-Z) -C+SEQ, IMPDP. - REAL Ctq1OPd,X,Q -C - Ifl = Iparton - JFL = ABS(Ifl) -C Valence - IF (Ifl .LE. 0) THEN - VL = 0. - ELSEIF (Ifl .LE. 2) THEN - VL = Ctq1OPd (Iset, Ifl, X, Q, Irt) - ELSE - VL = 0. - ENDIF -C Sea - SEA = Ctq1OPd (Iset, -JFL, X, Q, Irt) -C Full (probability) Distribution - Ctq1OPf = (VL + SEA) / X - - Return -C ************************* - END diff --git a/PDF/spdf/ctq1pd.F b/PDF/spdf/ctq1pd.F deleted file mode 100644 index d7d09d836b1..00000000000 --- a/PDF/spdf/ctq1pd.F +++ /dev/null @@ -1,626 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:32:14 cernlib -* Version 7.04 -* -* Revision 1.2 1996/10/29 09:30:56 pdflib -* more LINNUX corrections in DATA statements -* -* Revision 1.1.1.1 1996/04/12 15:29:07 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - FUNCTION Ctq1Pd (ISET, IPRTN, XX, QQ, IRT) - -C Returns xf(x,Q) -- the momentum fraction distribution !! -C Returns valence and sea rather than combined flavor distr. - -C Iset : PDF set label - -C Iprtn : Parton label: 2, 1 = d_ and u_ valence -C 0 = gluon -C -1, ... -6 = u, d, s, c, b, t sea quarks - -C XX : Bjorken-x -C QQ : scale parameter "Q" -C Irt : Return code - -C IMPLICIT DOUBLE PRECISION (A-H, O-Z) -C+SEQ, IMPDP. - PARAMETER (D0=0D0, D1=1D0, D2=2D0, D3=3D0, D4=4D0, D10=1D1) - PARAMETER (NEX = 5, MXFL = 6, NPN = 3, NST = 30, NEXPT=20) - PARAMETER (NST4 = NST*4) - -#include "pdf/expdp.inc" - + P012, P34, P5, PDFD - REAL PDF - - DIMENSION - > IORD(NST), ISCH(NST), NQRK(NST),ALM(NST) - > , VLM(4:6,NST), QMS(4:6, NST) - > , XMN(NST), QMN(NST), QMX(NST), NEXP(NEXPT) - > , MEX(NST), MPN(NST), EXPN(NEXPT, NST), EXPNOR(NEXPT) - -C CTEQ1M - DATA - > ISCH(1), IORD(1), NQRK(1), ALM(1) / 1, 2, 6, .152 / - > ,(VLM(I,1), I=4,6) / .231, .152, .059 / - > ,(QMS(I,1), I=4,6) / 1.50, 5.00, 180.0 / - > ,XMN(1), QMN(1), QMX(1) / 1.E-5, 2.00, 1.E3 / - > ,MEX(1), MPN(1), NEXP(1) / 5, 3, 8 / - > ,(EXPN(I, 1), I=1,8) - > / 0.989, 1.00, 1.02, 0.978, 1.10, 0.972, 0.987, 0.846 / -C CTEQ1MS - DATA - > ISCH(2), IORD(2), NQRK(2), ALM(2) / 1, 2, 6, .152 / - > ,(VLM(I,2), I=4,6) / .231, .152, .059 / - > ,(QMS(I,2), I=4,6) / 1.50, 5.00, 180.0 / - > ,XMN(2), QMN(2), QMX(2) / 1.E-5, 2.00, 1.E3 / - > ,MEX(2), MPN(2), NEXP(2) / 5, 3, 8 / - > ,(EXPN(I, 2), I=1,8 ) - > / 0.989, 1.00, 1.02, 0.984, 1.05, 0.891, 0.923, 0.824 / -C CTEQ1ML - DATA - > ISCH(3), IORD(3), NQRK(3), ALM(3) / 1, 2, 6, .220 / - > ,(VLM(I,3), I=4,6) / .322, .220, .088 / - > ,(QMS(I,3), I=4,6) / 1.50, 5.00, 180.0 / - > ,XMN(3), QMN(3), QMX(3) / 1.E-5, 2.00, 1.E3 / - > ,MEX(3), MPN(3), NEXP(3) / 5, 3, 8 / - > ,(EXPN(I, 3), I=1,8 ) - > / 0.985, 1.00, 1.01, 0.977, 1.07, 1.31, 1.19, 1.09 / - -C CTEQ1D - DATA - > ISCH(4), IORD(4), NQRK(4), ALM(4) / 2, 2, 6, .164 / - > ,(VLM(I,4), I=4,6) / .247, .164, .064 / - > ,(QMS(I,4), I=4,6) / 1.50, 5.00, 180.0 / - > ,XMN(4), QMN(4), QMX(4) / 1.E-5, 2.00, 1.E3 / - > ,MEX(4), MPN(4), NEXP(4) / 5, 3, 8 / - > ,(EXPN(I, 4), I=1,8 ) - > / 0.983, 1.00, 1.01, 0.975, 0.964, 1.23, 1.00, 1.12 / -C CTEQ1L - DATA - > ISCH(5), IORD(5), NQRK(5), ALM(5) / 1, 1, 6, .125 / - > ,(VLM(I,5), I=4,6) / .168, .125, .063 / - > ,(QMS(I,5), I=4,6) / 1.50, 5.00, 180.0 / - > ,XMN(5), QMN(5), QMX(5) / 1.E-5, 2.00, 1.E3 / - > ,MEX(5), MPN(5), NEXP(5) / 5, 3, 8 / - > ,(EXPN(I, 5), I=1,8 ) - > / 0.982, 1.01, 1.00, 0.972, 0.840, 0.959, 0.930, 0.861 / - - DATA IST, LP, QSTO, ALN2 / 0, -10, 1.2345, 0.6931 / - - X = XX - QQ = MAX(QQ,QMN(ISET)) - IF(ISET.EQ.IST.AND.IPRTN.EQ.LP.AND.QSTO.EQ.QQ) GOTO 100 - - IRT = 0 - IP = ABS(IPRTN) - IF (IP.GE.5.AND.QQ.LE.QMS(IP, ISET)) THEN - Ctq1Pd = 0.0 - RETURN - ENDIF - -C if heavy parton, different logarithmic scale - - IF(IP.GE.5) THEN - QI = QMS(IP,ISET) - ELSE - QI = QMN (ISET) - ENDIF - - ALAM = ALM (ISET) - STA = LOG(QQ/ALAM) - STB = LOG(QI/ALAM) - -C SBL = LOG(QQ/Alam) / LOG(Qi/Alam) - SBL = STA/STB - SB = LOG (SBL) - SB2 = SB*SB - SB3 = SB2*SB - - IFLV = 3 - IPRTN - - GOTO (1, 2, 3, 4, 5), ISET - - 1 GOTO(11,12,13,14,15,16,17,18,19)IFLV -C ifl = 2 - 11 A0=0.3636E+01*(1.0 + 0.3122E+00*SB+0.1396E+00*SB2+0.4251E+00*SB3) - A1=0.6930E+00-.2574E-01*SB+0.1047E+00*SB2-.2794E-01*SB3 - A2=0.3195E+01+0.4045E+00*SB-.3737E+00*SB2-.1677E+00*SB3 - A3=0.1009E+00*(1.0 -.1784E+01*SB+0.6263E+00*SB2+0.7337E-01*SB3) - $ -1.0 - A4=0.2910E+00-.2793E+00*SB+0.6155E-01*SB2+0.5150E-02*SB3 - A5=0.0000E+00+0.3185E+00*SB+0.1953E+00*SB2+0.4184E-01*SB3 - GOTO 100 -C ifl = 1 - 12 A0=0.2851E+00*(1.0 + 0.3617E+00*SB-.4526E+00*SB2+0.5787E-01*SB3) - A1=0.2690E+00+0.1104E-01*SB+0.1888E-01*SB2-.1031E-01*SB3 - A2=0.3766E+01+0.7850E+00*SB-.3053E+00*SB2+0.1822E+00*SB3 - A3=0.2865E+02*(1.0 -.9774E+00*SB+0.5958E+00*SB2-.1234E+00*SB3) - $ -1.0 - A4=0.8230E+00-.3612E+00*SB+0.5520E-01*SB2+0.1571E-01*SB3 - A5=0.0000E+00+0.2145E-01*SB+0.2289E+00*SB2-.4947E-01*SB3 - GOTO 100 -C ifl = 0 - 13 A0=0.2716E+01*(1.0 -.2092E+01*SB+0.1500E+01*SB2-.3703E+00*SB3) - A1=-.3100E-01-.7963E+00*SB+0.1129E+01*SB2-.4191E+00*SB3 - A2=0.8015E+01+0.1168E+01*SB-.1625E+01*SB2-.1130E+01*SB3 - A3=0.4813E+02*(1.0 -.4951E+00*SB-.8715E+00*SB2+0.5893E+00*SB3) - $ -1.0 - A4=0.2773E+01-.6329E+00*SB-.1048E+01*SB2+0.1418E+00*SB3 - A5=0.0000E+00+0.5048E+00*SB+0.2390E+01*SB2-.4159E+00*SB3 - GOTO 100 -C ifl = -1 - 14 A0=0.3085E+00*(1.0 + 0.9422E+00*SB-.2606E+01*SB2+0.1364E+01*SB3) - A1=0.5000E-02-.6433E+00*SB+0.4980E+00*SB2-.1780E+00*SB3 - A2=0.7490E+01+0.9112E+00*SB-.2047E+01*SB2+0.1456E+01*SB3 - A3=0.1145E-01*(1.0 + 0.4610E+01*SB+0.1699E+01*SB2+0.1296E+00*SB3) - $ -1.0 - A4=0.6030E+00-.8081E+00*SB+0.9410E+00*SB2-.4458E+00*SB3 - A5=0.0000E+00-.1736E+01*SB+0.2863E+01*SB2-.1268E+01*SB3 - GOTO 100 -C ifl = -2 - 15 A0=0.1324E+00*(1.0 -.1050E+01*SB+0.4844E+00*SB2-.1043E+00*SB3) - A1=-.1580E+00+0.1672E+00*SB-.4100E+00*SB2+0.1793E+00*SB3 - A2=0.8559E+01-.7351E-01*SB+0.5898E+00*SB2-.2655E+00*SB3 - A3=0.2378E+02*(1.0 -.1108E+00*SB-.1646E-01*SB2+0.1129E-01*SB3) - $ -1.0 - A4=0.1477E+01+0.3312E-01*SB-.2191E+00*SB2+0.9588E-01*SB3 - A5=0.0000E+00+0.1850E+01*SB-.1481E+01*SB2+0.6222E+00*SB3 - GOTO 100 -C ifl = -3 - 16 A0=0.3208E+00*(1.0 -.4755E+00*SB-.4003E+00*SB2+0.2300E+00*SB3) - A1=-.3200E-01-.3357E+00*SB+0.3222E-01*SB2+0.5011E-01*SB3 - A2=0.1164E+02+0.1048E+01*SB-.1097E+01*SB2-.4431E+00*SB3 - A3=0.5065E+02*(1.0 + 0.2484E+00*SB-.9235E+00*SB2+0.1935E+00*SB3) - $ -1.0 - A4=0.3300E+01-.6785E+00*SB+0.5337E+00*SB2-.4035E+00*SB3 - A5=0.0000E+00-.2496E+00*SB+0.3903E+00*SB2+0.1392E+00*SB3 - GOTO 100 -C ifl = -4 - 17 A0=0.7967E-06*(1.0 + 0.1587E+01*SB+0.1812E+02*SB2-.1333E+02*SB3) - $ *SQRT(STA - STB) - A1=0.1096E+01-.1236E+01*SB+0.1014E+02*SB2+0.1940E+01*SB3 - A2=0.4366E+00+0.1197E+02*SB-.5471E+00*SB2-.5427E+01*SB3 - A3=0.4650E+03*(1.0 + 0.1310E+02*SB-.1918E+02*SB2+0.6791E+01*SB3) - $ -1.0 - A4=-.8486E+00+0.7457E+00*SB-.1083E+02*SB2-.1210E+01*SB3 - A5=0.3494E+01-.3511E+01*SB-.1766E+01*SB2+0.3442E+01*SB3 - GOTO 100 -C ifl = -5 - 18 A0=0.1713E-03*(1.0 + 0.2562E+02*SB-.2988E+02*SB2+0.4798E+01*SB3) - $ *SQRT(STA - STB) - A1=-.5276E-01+0.4105E+00*SB-.1079E+01*SB2+0.6278E+00*SB3 - A2=0.4515E+01+0.8369E+01*SB-.1192E+02*SB2+0.3403E+01*SB3 - A3=0.1756E+01*(1.0 + 0.1325E+02*SB-.2997E+02*SB2+0.1758E+02*SB3) - $ -1.0 - A4=0.3557E-01+0.4159E+01*SB-.6947E+01*SB2+0.2982E+01*SB3 - A5=0.2551E+01+0.2168E+01*SB-.5119E+01*SB2+0.3739E+01*SB3 - GOTO 100 -C ifl = -6 - 19 A0=0.7510E-04*(1.0 + 0.2836E+02*SB-.3000E+02*SB2-.2979E+02*SB3) - $ *SQRT(STA - STB) - A1=-.1855E+00+0.4543E+00*SB-.1448E+01*SB2+0.2009E-01*SB3 - A2=0.6775E+01-.4210E+01*SB-.1221E+01*SB2+0.1199E+02*SB3 - A3=0.1070E+01*(1.0 + 0.8356E+01*SB-.2992E+02*SB2+0.2433E+02*SB3) - $ -1.0 - A4=-.4601E-01+0.4248E+01*SB-.1736E+01*SB2+0.1187E+02*SB3 - A5=0.2771E+01+0.1382E+01*SB-.4797E+01*SB2+0.1273E+01*SB3 - GOTO 100 - - - 2 GOTO(21,22,23,24,25,26,27,28,29)IFLV -C CTEQ1MS -C ifl = 2 - 21 A0=0.1828E+01*(1.0 -.8698E+00*SB+0.2906E+00*SB2-.2003E-01*SB3) - A1=0.6060E+00+0.8595E-01*SB-.4934E-01*SB2+0.2221E-01*SB3 - A2=0.3454E+01-.3115E+00*SB+0.1321E+01*SB2-.3490E+00*SB3 - A3=0.2616E+00*(1.0 -.1670E+01*SB+0.2333E+01*SB2+0.7730E-01*SB3) - $ -1.0 - A4=0.8920E+00-.8500E-02*SB+0.4960E+00*SB2-.4045E-01*SB3 - A5=0.0000E+00+0.1091E+01*SB-.1613E+00*SB2+0.3773E-01*SB3 - GOTO 100 -C ifl = 1 - 22 A0=0.2885E+00*(1.0 + 0.3388E+00*SB-.4550E+00*SB2+0.6005E-01*SB3) - A1=0.2730E+00+0.1198E-01*SB+0.1880E-01*SB2-.1077E-01*SB3 - A2=0.3736E+01+0.7687E+00*SB-.2731E+00*SB2+0.1638E+00*SB3 - A3=0.2741E+02*(1.0 -.9585E+00*SB+0.5925E+00*SB2-.1239E+00*SB3) - $ -1.0 - A4=0.8040E+00-.3546E+00*SB+0.6123E-01*SB2+0.1086E-01*SB3 - A5=0.0000E+00+0.4277E-01*SB+0.2187E+00*SB2-.4646E-01*SB3 - GOTO 100 -C ifl = 0 - 23 A0=0.8416E-01*(1.0 -.1996E+01*SB+0.1903E+01*SB2-.6722E+00*SB3) - A1=-.4790E+00-.5459E+00*SB+0.1638E+01*SB2-.4342E+00*SB3 - A2=0.5071E+01+0.1470E+01*SB-.2401E+01*SB2+0.1273E+01*SB3 - A3=0.2847E+02*(1.0 + 0.1124E+00*SB-.1338E+01*SB2+0.7115E+00*SB3) - $ -1.0 - A4=0.4990E+00-.7208E+00*SB+0.3333E-03*SB2-.2354E+00*SB3 - A5=0.0000E+00-.4480E+00*SB+0.3720E+01*SB2-.1838E+01*SB3 - GOTO 100 -C ifl = -1 - 24 A0=0.4378E+00*(1.0 -.1244E+01*SB+0.3278E+01*SB2-.2098E+01*SB3) - A1=0.3500E-01-.1298E+01*SB+0.1229E+01*SB2-.3665E+00*SB3 - A2=0.6781E+01+0.4078E+01*SB-.9711E+00*SB2-.1536E+01*SB3 - A3=0.1527E-03*(1.0 + 0.1430E+02*SB+0.3000E+02*SB2+0.2771E+02*SB3) - $ -1.0 - A4=0.3060E+00+0.1011E+01*SB-.2045E+01*SB2+0.9422E+00*SB3 - A5=0.0000E+00-.3205E+01*SB+0.2683E+01*SB2-.1746E+00*SB3 - GOTO 100 -C ifl = -2 - 25 A0=0.7413E-01*(1.0 + 0.1291E+01*SB-.2667E+01*SB2+0.1076E+01*SB3) - A1=-.2730E+00-.1206E+00*SB+0.1828E+00*SB2-.1001E+00*SB3 - A2=0.7719E+01+0.1537E+01*SB-.6410E+00*SB2-.3920E-01*SB3 - A3=0.1799E+02*(1.0 -.1334E+01*SB+0.1916E+01*SB2-.8878E+00*SB3) - $ -1.0 - A4=0.1167E+01-.9176E-01*SB+0.5132E+00*SB2-.3460E+00*SB3 - A5=0.0000E+00-.5023E+00*SB+0.1951E+01*SB2-.8427E+00*SB3 - GOTO 100 -C ifl = -3 - 26 A0=0.6551E+00*(1.0 -.5968E-01*SB+0.5621E-02*SB2-.2074E+00*SB3) - A1=0.2800E-01-.1138E+01*SB+0.1178E+01*SB2-.4425E+00*SB3 - A2=0.7553E+01+0.3996E+01*SB-.4448E+01*SB2+0.1673E+01*SB3 - A3=0.9264E-01*(1.0 -.1760E+01*SB+0.1634E+01*SB2-.4067E+00*SB3) - $ -1.0 - A4=0.1970E+00+0.5256E+00*SB-.9775E+00*SB2+0.4488E+00*SB3 - A5=0.0000E+00-.3668E+01*SB+0.4757E+01*SB2-.1717E+01*SB3 - GOTO 100 -C ifl = -4 - 27 A0=0.1486E-03*(1.0 + 0.2107E+01*SB-.1056E+02*SB2+0.1403E+02*SB3) - $ * SQRT(STA - STB) - A1=0.2115E+00-.1702E+01*SB+0.2571E+01*SB2-.1177E+01*SB3 - A2=0.3533E+01+0.1367E+01*SB-.3397E+01*SB2+0.6260E+01*SB3 - A3=0.1096E+02*(1.0 + 0.9213E+01*SB-.2020E+02*SB2+0.1084E+02*SB3) - $ -1.0 - A4=0.7041E+00-.7236E+00*SB+0.2766E-01*SB2+0.7352E+00*SB3 - A5=0.3904E+01-.4398E+01*SB+0.7056E+01*SB2-.3722E+01*SB3 - GOTO 100 -C ifl = -5 - 28 A0=0.1201E-03*(1.0 + 0.5408E+01*SB-.1489E+02*SB2+0.1667E+02*SB3) - $ * SQRT(STA - STB) - A1=0.1420E-01-.1525E+01*SB+0.2408E+01*SB2-.1154E+01*SB3 - A2=0.4254E+01+0.2836E+01*SB-.6018E+00*SB2+0.4133E+00*SB3 - A3=0.5696E+01*(1.0 + 0.9451E+01*SB-.2029E+02*SB2+0.1033E+02*SB3) - $ -1.0 - A4=0.4775E+00-.6695E+00*SB+0.2747E+00*SB2-.1051E+00*SB3 - A5=0.3330E+01-.5133E+01*SB+0.6921E+01*SB2-.3283E+01*SB3 - GOTO 100 -C ifl = -6 - 29 A0=0.7697E-04*(1.0 + 0.2801E+02*SB-.1901E+02*SB2-.2880E+02*SB3) - $ *SQRT(STA - STB) - A1=-.2249E+00+0.4432E+00*SB-.1454E+01*SB2+0.3509E-01*SB3 - A2=0.6642E+01-.2702E+01*SB+0.8229E+01*SB2+0.8243E+01*SB3 - A3=0.1146E+01*(1.0 + 0.8104E+01*SB-.2998E+02*SB2+0.2812E+02*SB3) - $ -1.0 - A4=-.6421E-01+0.4246E+01*SB-.2908E+01*SB2+0.9686E-02*SB3 - A5=0.2606E+01+0.1261E+01*SB-.4933E+01*SB2+0.3476E+00*SB3 - GOTO 100 - - - 3 GOTO(31,32,33,34,35,36,37,38,39)IFLV -C CTEQ1ML -C ifl = 2 - 31 A0=0.3777E+01*(1.0 + 0.6986E+00*SB-.20655E+01*SB2+.10334E+01*SB3) - A1=0.7100E+00+.2880E-01*SB-.7930E-01*SB2+0.5600E-01*SB3 - A2=0.3259E+01+0.1508E+01*SB-.3932E+01*SB2+0.20613E+01*SB3 - A3=0.1304E+00*(1.0 -.2016E+00*SB-.30015E+01*SB2+0.19118E+01*SB3) - $ -1.0 - A4=0.2890E+00-0.4311E+00*SB+0.7387E+00*SB2-.3697E+00*SB3 - A5=0.0000E+00+0.4320E+00*SB+0.2449E+00*SB2-0.6670E-01*SB3 - GOTO 100 -C ifl = 1 - 32 A0=0.2780E+00*(1.0 + 0.4355E+00*SB-0.4584E+00*SB2+0.4390E-01*SB3) - A1=0.2760E+00+0.1420E-01*SB+0.1480E-01*SB2-.9800E-02*SB3 - A2=0.3710E+01+0.8250E+00*SB-.3581E+00*SB2+0.1978E+00*SB3 - A3=0.2928E+02*(1.0 -.10154E+01*SB+0.6037E+00*SB2-.1175E+00*SB3) - $ -1.0 - A4=0.8070E+00-.3575E+00*SB+0.4920E-01*SB2+0.1584E-01*SB3 - A5=0.0000E+00+0.1860E-01*SB+0.2080E+00*SB2-.450E-01*SB3 - GOTO 100 -C ifl = 0 - 33 A0=0.2924E+01*(1.0 -.18916E+01*SB+0.1191E+01*SB2-.2492E+00*SB3) - A1=0.0000E+00-.9167E+00*SB+0.11147E+01*SB2-.3329E+00*SB3 - A2=0.8529E+01+0.7080E+00*SB-.11345E+01*SB2-.10563E+01*SB3 - A3=0.1420E+03*(1.0 -.15346E+01*SB+0.7261E+00*SB2-.5730E-01*SB3) - $ -1.0 - A4=0.3396E+01-.11541E+01*SB-.8834E+00*SB2+0.2430E+00*SB3 - A5=0.0000E+00+0.1645E+00*SB+0.19041E+01*SB2+0.1474E+00*SB3 - GOTO 100 -C ifl = -1 - 34 A0=0.3471E+00*(1.0- 0.1753E+00*SB-.9189E+00*SB2+0.6211E+00*SB3) - A1=0.1900E-01-.4579E+00*SB+0.2112E+00*SB2-.6180E-01*SB3 - A2=0.7301E+01-.17308E+01*SB+.13666E+01*SB2-.6400E-02*SB3 - A3=0.1853E-04*(1.0 -.18260E+02*SB-.2872E+02*SB2-.23456E+02*SB3) - $ -1.0 - A4=0.4400E+00-.4672E+00*SB+0.6532E+00*SB2-.3222E+00*SB3 - A5=0.0000E+00-.4679E+00*SB+0.10741E+01*SB2-.5663E+00*SB3 - GOTO 100 -C ifl = -2 - 35 A0=0.1702E+00*(1.0 -.1041E+01*SB+0.4064E+00*SB2-.5888E-01*SB3) - A1=-.9300E-01-.4742E-01*SB-.1959E+00*SB2+0.1039E+00*SB3 - A2=0.9119E+01-.7331E-01*SB+0.3506E+00*SB2-.2081E+00*SB3 - A3=0.2981E+02*(1.0 -.1912E+00*SB-.8947E-02*SB2+0.8805E-02*SB3) - $ -1.0 - A4=0.1668E+01-.6678E-02*SB-.2894E+00*SB2+0.1221E+00*SB3 - A5=0.0000E+00+0.1245E+01*SB-.7843E+00*SB2+0.3724E+00*SB3 - GOTO 100 -C ifl = -3 - 36 A0=0.3910E+00*(1.0 -.1103E+01*SB+0.5383E+00*SB2-.1083E+00*SB3) - A1=-.1400E-01-.2471E+00*SB-.8042E-01*SB2+0.7193E-01*SB3 - A2=0.9812E+01-.4860E+01*SB+0.5958E+01*SB2-.2342E+01*SB3 - A3=0.3749E+00*(1.0 -.3569E+01*SB+0.5456E+01*SB2-.2344E+01*SB3) - $ -1.0 - A4=0.4940E+00+0.2772E+00*SB-.2732E+00*SB2+0.6466E-01*SB3 - A5=0.0000E+00+0.3927E+00*SB-.3216E+00*SB2+0.2164E+00*SB3 - GOTO 100 -C ifl = -4 - 37 A0=0.3815E-02*(1.0 + 0.2039E+02*SB-.2834E+02*SB2+0.1070E+02*SB3) - $ * SQRT(STA - STB) - A1=-.2789E-01-.7345E-03*SB-.3251E+00*SB2+0.1946E+00*SB3 - A2=0.3223E+01-.4268E+00*SB+0.4387E+01*SB2-.2401E+01*SB3 - A3=0.3338E-01*(1.0 -.1163E+02*SB+0.2995E+02*SB2-.1471E+02*SB3) - $ -1.0 - A4=0.3646E+00-.5767E+00*SB+0.6088E+00*SB2-.2514E+00*SB3 - A5=0.1200E+01+0.2178E+00*SB-.4230E+00*SB2+0.4739E+00*SB3 - GOTO 100 -C ifl = -5 - 38 A0=0.1666E-02*(1.0 + 0.9518E+01*SB-.4715E+01*SB2-.1060E+01*SB3) - $ * SQRT(STA - STB) - A1=-.1231E+00+0.1656E+00*SB-.5219E+00*SB2+0.2750E+00*SB3 - A2=0.3693E+01+0.4922E+01*SB-.1200E+02*SB2+0.7929E+01*SB3 - A3=0.1778E+00*(1.0 + 0.3036E+01*SB-.1184E+02*SB2+0.7940E+01*SB3) - $ -1.0 - A4=0.5353E+00-.1401E+01*SB+0.1970E+01*SB2-.9405E+00*SB3 - A5=0.1590E+01+0.1025E+01*SB-.2318E+01*SB2+0.1380E+01*SB3 - GOTO 100 -C ifl = -6 - 39 A0=0.4319E-03*(1.0 + 0.1100E+02*SB-.9520E+00*SB2+0.1434E+02*SB3) - $ * SQRT(STA - STB) - A1=-.2512E+00+0.3554E+00*SB-.4120E+00*SB2+0.1328E+00*SB3 - A2=0.4764E+01-.3513E+00*SB+0.1199E+02*SB2-.8290E+01*SB3 - A3=0.8458E-01*(1.0 + 0.2618E+01*SB+0.4407E+01*SB2+0.2991E+02*SB3) - $ -1.0 - A4=0.3991E+00-.1363E+01*SB+0.1526E+01*SB2-.3179E+01*SB3 - A5=0.1981E+01+0.1496E+01*SB-.1501E+01*SB2+0.3880E+01*SB3 - GOTO 100 - - 4 GOTO(41,42,43,44,45,46,47,48,49)IFLV -C CTEQ1D -C ifl = 2 - 41 A0=0.1634E+01*(1.0 -.8336E+00*SB+0.1640E+00*SB2+0.1530E+00*SB3) - A1=0.5790E+00+0.8587E-01*SB-.6087E-01*SB2+0.1361E-01*SB3 - A2=0.2839E+01+0.3720E+00*SB+0.5264E+00*SB2+0.3538E-01*SB3 - A3=0.1095E+00*(1.0 -.4830E+00*SB+0.3708E+01*SB2-.6165E+00*SB3) - $ -1.0 - A4=0.8010E+00-.1432E+00*SB+0.1442E+01*SB2-.1286E+01*SB3 - A5=0.0000E+00+0.1035E+01*SB-.5910E-01*SB2-.1982E+00*SB3 - GOTO 100 -C ifl = 1 - 42 A0=0.3535E+00*(1.0 + 0.4352E+00*SB-.2095E+00*SB2-.8455E-02*SB3) - A1=0.2660E+00-.4096E-03*SB+0.1502E-01*SB2-.1163E-01*SB3 - A2=0.3514E+01+0.8219E+00*SB-.2330E+00*SB2+0.1055E+00*SB3 - A3=0.2200E+02*(1.0 -.9716E+00*SB+0.4552E+00*SB2-.8202E-01*SB3) - $ -1.0 - A4=0.9000E+00-.3207E+00*SB-.4808E-01*SB2+0.3492E-01*SB3 - A5=0.0000E+00-.6273E-01*SB+0.1497E+00*SB2-.5683E-01*SB3 - GOTO 100 -C ifl = 0 - 43 A0=0.2743E+01*(1.0 -.2027E+01*SB+0.1517E+01*SB2-.4145E+00*SB3) - A1=0.7000E-02-.9431E+00*SB+0.1231E+01*SB2-.4834E+00*SB3 - A2=0.8200E+01+0.1827E+01*SB-.3453E+01*SB2+0.6763E+00*SB3 - A3=0.4975E+02*(1.0 -.2329E+00*SB-.1245E+01*SB2+0.7194E+00*SB3) - $ -1.0 - A4=0.2387E+01-.4077E+00*SB-.5542E+00*SB2-.9677E-02*SB3 - A5=0.0000E+00+0.2702E+00*SB+0.2389E+01*SB2-.8274E+00*SB3 - GOTO 100 -C ifl = -1 - 44 A0=0.2015E+00*(1.0 -.2133E+00*SB-.6770E+00*SB2+0.5011E+00*SB3) - A1=-.7700E-01-.7104E-01*SB-.3720E+00*SB2+0.2159E+00*SB3 - A2=0.8008E+01-.2049E+01*SB+0.1800E+01*SB2-.4660E+00*SB3 - A3=0.2923E-05*(1.0 + 0.2327E+02*SB+0.1500E+02*SB2+0.2633E+02*SB3) - $ -1.0 - A4=0.9020E+00-.9191E+00*SB+0.1104E+01*SB2-.5863E+00*SB3 - A5=0.0000E+00+0.5840E+00*SB-.8720E+00*SB2+0.4234E+00*SB3 - GOTO 100 -C ifl = -2 - 45 A0=0.9117E-01*(1.0 -.4089E+00*SB-.4361E+00*SB2+0.2512E+00*SB3) - A1=-.2370E+00+0.2492E+00*SB-.3267E+00*SB2+0.1055E+00*SB3 - A2=0.8447E+01+0.6009E+00*SB+0.1003E+01*SB2-.1287E+01*SB3 - A3=0.3106E+02*(1.0 -.3901E-01*SB+0.1443E+00*SB2-.3433E+00*SB3) - $ -1.0 - A4=0.1629E+01+0.7855E-01*SB-.1573E+00*SB2-.8595E-01*SB3 - A5=0.0000E+00+0.1558E+01*SB-.6295E+00*SB2+0.1847E+00*SB3 - GOTO 100 -C ifl = -3 - 46 A0=0.3997E+00*(1.0 -.1046E+01*SB+0.6194E+00*SB2-.1342E+00*SB3) - A1=0.2000E-02-.2544E+00*SB-.1958E+00*SB2+0.1458E+00*SB3 - A2=0.9613E+01-.3919E+01*SB+0.9573E+01*SB2-.5623E+01*SB3 - A3=0.3620E+00*(1.0 -.1858E+01*SB+0.8312E+01*SB2-.5900E+01*SB3) - $ -1.0 - A4=0.3840E+00+0.3572E+00*SB-.1191E+01*SB2+0.7310E+00*SB3 - A5=0.0000E+00+0.3351E+00*SB-.7709E+00*SB2+0.4296E+00*SB3 - GOTO 100 -C ifl = -4 - 47 A0=0.2156E-03*(1.0 + 0.2879E+02*SB-.2310E+02*SB2+0.9812E+01*SB3) - $ * SQRT(STA - STB) - A1=0.9086E-01-.1250E+00*SB-.7373E-01*SB2-.2201E-01*SB3 - A2=0.3588E+01+0.4518E+01*SB-.8930E-01*SB2+0.9163E-02*SB3 - A3=0.5216E+01*(1.0 + 0.5912E+00*SB-.4111E+00*SB2+0.7330E+00*SB3) - $ -1.0 - A4=0.3145E+00+0.1233E+01*SB-.7478E+00*SB2+0.4657E+00*SB3 - A5=0.2723E+01-.4110E+00*SB+0.4868E-01*SB2-.3075E+00*SB3 - GOTO 100 -C ifl = -5 - 48 A0=0.7476E-03*(1.0 + 0.1454E+02*SB-.2509E+02*SB2+0.1184E+02*SB3) - $ * SQRT(STA - STB) - A1=-.1955E-01-.1712E+00*SB-.1686E+00*SB2+0.2339E+00*SB3 - A2=0.4616E+01-.6859E+00*SB-.3959E+01*SB2+0.5530E+01*SB3 - A3=0.9881E+01*(1.0 -.1239E+02*SB+0.2721E+02*SB2-.1850E+02*SB3) - $ -1.0 - A4=0.1200E+02-.1133E+02*SB+0.8138E+01*SB2+0.1199E+02*SB3 - A5=0.2226E+01-.5738E+00*SB+0.5239E+00*SB2+0.3825E+00*SB3 - GOTO 100 -C ifl = -6 - 49 A0=0.8392E-06*(1.0 + 0.1844E+02*SB-.1110E+02*SB2-.2504E+02*SB3) - $ * SQRT(STA - STB) - A1=0.2127E+00-.5602E+00*SB+0.4777E+01*SB2-.1014E+02*SB3 - A2=0.1229E+01+0.7495E+01*SB-.5024E+01*SB2-.1200E+02*SB3 - A3=0.2868E+02*(1.0 + 0.7634E+01*SB-.2916E+02*SB2+0.2953E+02*SB3) - $ -1.0 - A4=0.5970E+00+0.1138E+01*SB-.1439E+01*SB2-.1966E+01*SB3 - A5=0.6429E+01-.6673E+00*SB+0.7008E+01*SB2-.1157E+02*SB3 - GOTO 100 - - 5 GOTO(51,52,53,54,55,56,57,58,59)IFLV -C CTEQ1L -C ifl = 2 - 51 A0= 1.791*(1.0 -0.449*SB-0.445*SB2+ 0.401*SB3) - A1= 0.608+ 0.069*SB+ 0.005*SB2-0.037*SB3 - A2= 3.470-0.375*SB+ 2.267*SB2-1.261*SB3 - A3= 0.315*(1.0 -2.628*SB+ 6.481*SB2-3.834*SB3)-1.0 - A4= 1.007-0.732*SB+ 1.490*SB2-0.966*SB3 - A5= 0.000+ 0.741*SB+ 0.563*SB2-0.525*SB3 - GOTO 100 -C ifl = 1 - 52 A0= 0.513*(1.0 + 0.032*SB-0.120*SB2+ 0.013*SB3) - A1= 0.276+ 0.052*SB+ 0.000*SB2-0.006*SB3 - A2= 3.579+ 0.763*SB-0.135*SB2+ 0.083*SB3 - A3= 17.993*(1.0 -0.725*SB+ 0.241*SB2-0.020*SB3)-1.0 - A4= 1.120-0.357*SB+ 0.008*SB2+ 0.028*SB3 - A5= 0.000+ 0.311*SB+ 0.029*SB2-0.010*SB3 - GOTO 100 -C ifl = 0 - 53 A0= 2.710*(1.0 -1.773*SB+ 0.970*SB2-0.149*SB3) - A1= -0.010-1.636*SB+ 2.087*SB2-0.637*SB3 - A2= 7.174+ 2.102*SB-2.209*SB2-0.420*SB3 - A3= 29.904*(1.0 -0.756*SB-0.506*SB2+ 0.605*SB3)-1.0 - A4= 2.572-0.437*SB-0.968*SB2+ 0.243*SB3 - A5= 0.000-1.776*SB+ 4.266*SB2-0.335*SB3 - GOTO 100 -C ifl = -1 - 54 A0= 0.278*(1.0 - 1.022*SB+ 0.6457*SB2-0.1824*SB3) - A1= 0.0862*SB-0.8657*SB2+ 0.4185*SB3 - A2= 11.000-1.2809*SB+ 1.2516*SB2+0.061*SB3 - A3= 37.338*(1.0 - 0.9404*SB+ 0.2517*SB2+0.1364*SB3)-1.0 - A4= 1.960- 0.3385*SB-0.3422*SB2+0.3653*SB3 - A5= 0.000+1.424*SB-2.7503*SB2+ 1.2226*SB3 - GOTO 100 -C ifl = -2 - 55 A0= 0.154*(1.0 -0.659*SB+ 0.005*SB2+ 0.061*SB3) - A1= -0.128+ 0.279*SB-0.786*SB2+ 0.363*SB3 - A2= 8.649+ 0.071*SB+ 0.351*SB2-0.051*SB3 - A3= 43.685*(1.0 -0.603*SB+ 0.037*SB2+ 0.134*SB3)-1.0 - A4= 2.238-0.338*SB-0.199*SB2+ 0.157*SB3 - A5= 0.000+ 1.681*SB-2.068*SB2+ 0.975*SB3 - GOTO 100 -C ifl = -3 - 56 A0= 0.372*(1.0 -1.939*SB+ 1.504*SB2-0.440*SB3) - A1= 0.009+ 0.610*SB-1.387*SB2+ 0.579*SB3 - A2= 10.273-4.833*SB+ 6.583*SB2-2.633*SB3 - A3= 0.160*(1.0 + 10.325*SB-2.027*SB2+ 1.571*SB3)-1.0 - A4= 0.819-1.660*SB+ 1.845*SB2-0.829*SB3 - A5= 0.000+ 3.558*SB-3.940*SB2+ 1.302*SB3 - GOTO 100 -C ifl = -4 - 57 A0= (7.5242E-5)*(1.0+22.0905*SB+7.1209*SB2-8.303*SB3)* - $ SQRT(STA - STB) - A1= 0.125-0.3027*SB+0.1564*SB2-0.091*SB3 - A2= 2.0388+1.2161*SB+11.5296*SB2-8.0659*SB3 - A3= 14.849*(1.0 -2.556*SB+3.5268*SB2-1.6353*SB3)-1.0 - A4= 0.3061-0.0901*SB+0.953*SB2-0.4871*SB3 - A5= 2.7352+0.1811*SB-0.5167*SB2+0.0543*SB3 - GOTO 100 -C ifl = -5 - 58 A0= (3.751E-4)*(1.0 + 21.5993*SB+3.1379*SB2-18.8328*SB3)* - $ SQRT(STA - STB) - A1= -0.0256-0.7717*SB+ 1.1499*SB2-0.5037*SB3 - A2= 4.9241+4.0107*SB-4.7012*SB2+0.1097*SB3 - A3= 2.842*(1.0 -2.2184*SB+ 2.0293*SB2-0.6907*SB3)-1.0 - A4= -0.1352+ 0.8753*SB-1.2626*SB2+ 0.667*SB3 - A5= 1.5627-0.4917*SB+ 1.5927*SB2-0.351*SB3 - GOTO 100 -C ifl = -6 - 59 A0=(2.725E-4)*(1.0 + 18.8497*SB-26.5797*SB2-29.0774*SB3)* - $ SQRT(STA - STB) - A1= -0.2204-1.0048*SB+0.9415*SB2-0.4274*SB3 - A2= 11.034-9.8362*SB-11.1034*SB2-9.1977*SB3 - A3= 2.084*(1.0 -2.881*SB+1.2778*SB2-2.9328*SB3)-1.0 - A4= -0.0872+ 0.200*SB-1.6187*SB2-1.6058*SB3 - A5= 0.8684+4.7047*SB-1.4614*SB2-5.2309*SB3 - GOTO 100 - - 100 CONTINUE -C 100 CtqPdf = A0*(x**A1)*((1.-x)**A2)*(1.+A3*(x**A4)) -C $ *(log(1.+1./x))**A5 - P012 = A0*(X**A1)*((1.-X)**A2) - P34 = (1.+A3*(X**A4)) - P5 = (LOG(1.+1./X))**A5 -C - PDFD = P012 * P34 * P5 - PDF = PDFD -C - Ctq1Pd = PDF - IF(Ctq1Pd.LT.0.0) Ctq1Pd = 0.0 - - IST = ISET - - LP = IPRTN - QSTO = QQ - - RETURN -C ----------------------- - ENTRY Wlamd1 (ISET, IORDER) - - IORDER = IORD (ISET) - Wlamd1 = ALM (ISET) - - Ctq1Pd = 0.0 - RETURN -C ----------------------- - ENTRY PrCtq1 - > (ISET, IORDR, ISCHEME, MXFLV, - > ALAM4, ALAM5, ALAM6, AMAS4, AMAS5, AMAS6, - > XMIN, QINI, QMAX, EXPNOR) - -C Return QCD parameters and Fitting parameters -C associated with parton distribution set Iset. -C Iord : Order Of Fit -C Ischeme : (0, 1, 2) for (LO, MS-bar-NLO, DIS-NLO) resp. -C MxFlv : Maximum number of flavors included -C Alam_i : i = 4,5,6 Effective lambda for i-flavors - -C Amas_i : i = 4,5,6 Mass parameter for flavor i -C Xmin, Qini, Qmax : self explanary -C ExpNor(I) : Normalization factor for the experimental data set used in -C obtaining the best global fit for parton distributions Iset: -C I = 1, 2, 3, 4, 5, 6, 7, 8 -C BCDMS NMC90 NMC280 CCFR E605 WA70 E706 UA6 - - IORDR = IORD (ISET) - ISCHEME= ISCH (ISET) - MXFLV = NQRK (ISET) - - ALAM4 = VLM(4,ISET) - ALAM5 = VLM(5,ISET) - ALAM6 = VLM(6,ISET) - - AMAS4 = QMS(4,ISET) - AMAS5 = QMS(5,ISET) - AMAS6 = QMS(6,ISET) - - XMIN = XMN (ISET) - QINI = QMN (ISET) - QMAX = QMX (ISET) - - DO 101 IEXP = 1, NEXP(ISET) - EXPNOR(IEXP) = EXPN(IEXP, ISET) - 101 CONTINUE - - Ctq1Pd = 0.0 - RETURN -C ************************* - END diff --git a/PDF/spdf/ctq1pf.F b/PDF/spdf/ctq1pf.F deleted file mode 100644 index 27694323bcc..00000000000 --- a/PDF/spdf/ctq1pf.F +++ /dev/null @@ -1,125 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.4 1997/07/13 13:22:35 cernlib -* Import version 7.09 -* -* Revision 1.1.1.1 1996/04/12 15:29:08 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - FUNCTION Ctq1pf (ISET, IPARTON, X, Q, IRT) - -C CTEQ distribution function in a parametrized form. - -C (No data tables are needed.) - -C The returned function value is the PROBABILITY density for a given FLAVOR. - -C !! A companion function (next module), which this one depends on, -C !! ctq1pd (Iset, Iparton, X, Q, Irt) -C !! gives the VALENCE and SEA MOMENTUM FRACTION distributions. - -C \\ A parallel (independent) program Ctq1Ps (not included in this file) -C || in Subroutine form is also available. -C || It returns ALL the parton flavors at once in an array form. -C // See details in that separate file if you are interested. - -C Ref.: "CTEQ Parton Distributions and Flavor Dependence of the Sea Quarks" -C by: J. Botts, J.G. Morfin, J.F. Owens, J. Qiu, W.K. Tung & H. Weerts -C MSUHEP-92-27, Fermilab-Pub-92/371, FSU-HEP-92-1225, ISU-NP-92-17 - -C Since this is an initial distribution, and there may be updates, it is -C useful for the authors to maintain a record of the distribution list. -C Please do not freely distribute this program package; instead, refer any -C interested colleague to direct their request for a copy to: -C Botts@msupa.pa.msu.edu or Botts@msupa (bitnet) or MSUHEP::Botts - -C If you have any questions concerning these distributions, direct inquires -C to Jim Botts or Wu-Ki Tung (username Tung at same E-mail nodes as above). - -C$Header$ -C$Log$ -CRevision 1.1.1.4 1997/07/13 13:22:35 cernlib -CImport version 7.09 -C -CRevision 1.1.1.1 1996/04/12 15:29:08 plothow -CVersion 7.01 -C -C Revision 1.2 93/02/26 10:42:43 wkt -C Version with heavy quark threshold factor and faster algorithm. -C -C Revision 1.1 93/02/14 17:30:21 botts -C The new Faster version. -C Revision 1.0 93/02/08 18:35:25 wkt -C Initial revision - -C This function returns the CTEQ parton distributions f^Iset_Iprtn/proton -C where Iset (= 1, 2, ..., 5) is the set label; - -C Name convention for CTEQ distributions: CTEQnSx where -C n : version number (currently n = 1) -C S : factorization scheme label: = [M D L] for [MS-bar DIS LO] -C resp. -C x : special characteristics, if any -C (e.g. S for singular gluon, L for "LEP lambda value") - -C Iprtn is the parton label (6, 5, 4, 3, 2, 1, 0, -1, ......, -6) -C for (t, b, c, s, d, u, g, u_bar, ..., t_bar) - -C X, Q are the usual x, Q; Irt is a return error code (not implemented yet). - -C --> Iset = 1, 2, 3, 4, 5 correspond to the following CTEQ global fits: -C cteq1M, cteq1MS, cteq1ML, cteq1D, cteq1L respectively. - -C --> QCD parameters for parton distribution set Iset can be obtained inside -C the user's program by: -C Dum = PrCtq1 -C > (Iset, Iord, Ischeme, MxFlv, -C > Alam4, Alam5, Alam6, Amas4, Amas5, Amas6, -C > Xmin, Qini, Qmax, ExpNor) -C where all but the first argument are output parameters. -C They should be self-explanary -- see details in next module. - -C The range of (x, Q) used in this round of global analysis is, approxi- -C mately, 0.01 < x < 0.75 ; and 4 GeV^2 < Q^2 < 400 GeV^2. - -C The range of (x, Q) used in the reparametrization of the QCD evolved -C parton distributions is 10E-5 < x < 1 ; 2 GeV < Q < 1 TeV. The -C functional form of this parametrization is: - -C A0 * x^A1 * (1-x)^A2 * (1 + A3 * x^A4) * [log(1+1/x)]^A5 - -C with the A'coefficients being smooth functions of Q. For heavy quarks, -C an additional threshold factor is applied which simulate the Q-dependence -C of the QCD evolution in that region. - -C Since this function is positive definite and smooth, it provides sensible -C extrapolations of the parton distributions if they are called beyond -C the original range in an application. There is no artificial boundaries -C or sharp cutoff's. - -C IMPLICIT DOUBLE PRECISION (A-H, O-Z) -C+SEQ, IMPDP. - REAL Ctq1Pd,X,Q - - IFL = IPARTON - JFL = ABS(IFL) -C Valence - IF (IFL .LE. 0) THEN - VL = 0. - ELSEIF (IFL .LE. 2) THEN - VL = Ctq1Pd (ISET, IFL, X, Q, IRT) - ELSE - VL = 0. - ENDIF -C Sea - SEA = Ctq1Pd (ISET, -JFL, X, Q, IRT) -C Full (probability) Distribution - Ctq1pf = (VL + SEA) / X - - RETURN -C ************************* - END diff --git a/PDF/spdf/ctq2opd.F b/PDF/spdf/ctq2opd.F deleted file mode 100644 index ae23c699deb..00000000000 --- a/PDF/spdf/ctq2opd.F +++ /dev/null @@ -1,674 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:43 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:09 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - FUNCTION Ctq2OPd (Iset, Iprtn, XX, QQ, Irt) - -C Returns xf(x,Q) -- the momentum fraction distribution !! -C Returns valence and sea rather than combined flavor distr. - -C Iset : PDF set label - -C Iprtn : Parton label: 2, 1 = d_ and u_ valence -C 0 = gluon -C -1, ... -6 = u, d, s, c, b, t sea quarks - -C XX : Bjorken-x -C QQ : scale parameter "Q" -C Irt : Return code -C 0 : no error -C 1 : parametrization is slightly negative; reset to 0.0. -C (This condition happens rarely -- only for large x where the -C absolute value of the parton distribution is extremely small.) - - -C IMPLICIT DOUBLE PRECISION (A-H, O-Z) -C+SEQ, IMPDP. - - PARAMETER (D0=0D0, D1=1D0, D2=2D0, D3=3D0, D4=4D0, D10=1D1) - PARAMETER (Nex = 5, MxFl = 6, Npn = 3, Nst = 30, Nexpt=20) - Parameter (Nst4 = Nst*4) - -#include "pdf/expdp.inc" - + P012, P34, P5, PDFD - REAL PDF - - DIMENSION - > Iord(Nst), Isch(Nst), Nqrk(Nst),Alm(Nst) - > , Vlm(4:6,Nst), Qms(4:6, Nst) - > , Xmn(Nst), Qmn(Nst), Qmx(Nst), Nexp(Nexpt) - > , Mex(Nst), Mpn(Nst), ExpN(Nexpt, Nst), ExpNor(Nexpt) - -C Run le26 - CTEQ2M -C - DATA - > Isch(1), Iord(1), Nqrk(1), Alm(1) / 1, 2, 6, .213 / - > ,(Vlm(I,1), I=4,6) / .213, .139, .053 / - > ,(Qms(I,1), I=4,6) / 1.60, 5.00, 180.0 / - > ,Xmn(1), Qmn(1), Qmx(1) / 1.E-5, 1.60, 1.E3 / - > ,Mex(1), Mpn(1), Nexp(1) / 5, 3, 10 / - > ,(ExpN(I,1), I=1,10 ) - > / 0.990,1.012,1.022,0.980,1.062,0.870,0.843 - > ,0.815,0.974,1.029 / - -C Run sa17 - CTEQ2MS -C - DATA - > Isch(2), Iord(2), Nqrk(2), Alm(2) / 1, 2, 6, .208 / - > ,(Vlm(I,2), I=4,6) / .208, .135, .051 / - > ,(Qms(I,2), I=4,6) / 1.60, 5.00, 180.0 / - > ,Xmn(2), Qmn(2), Qmx(2) / 1.E-5, 1.60, 1.E3 / - > ,Mex(2), Mpn(2), Nexp(2) / 5, 3, 10 / - > ,(ExpN(I,2), I=1,10 ) - > / 0.992,1.017,1.023,0.982,1.079,0.879,0.845 - > ,0.814,0.984,1.036 / - -C Run fa06 - CTEQ2MF -C - DATA - > Isch(3), Iord(3), Nqrk(3), Alm(3) / 1, 2, 6, .208 / - > ,(Vlm(I,3), I=4,6) / .208, .135, .051 / - > ,(Qms(I,3), I=4,6) / 1.60, 5.00, 180.0 / - > ,Xmn(3), Qmn(3), Qmx(3) / 1.E-5, 1.60, 1.E3 / - > ,Mex(3), Mpn(3), Nexp(3) / 5, 3, 10 / - > ,(ExpN(I,3), I=1,10 ) - > / 0.989,1.014,1.021,0.977,1.099,0.812,0.789 - > ,0.822,0.909,0.950 / - -C Run ll25 - CTEQ2ML -C - DATA - > Isch(4), Iord(4), Nqrk(4), Alm(4) / 1, 2, 6, .322 / - > ,(Vlm(I,4), I=4,6) / .322, .220, .088 / - > ,(Qms(I,4), I=4,6) / 1.60, 5.00, 180.0 / - > ,Xmn(4), Qmn(4), Qmx(4) / 1.E-5, 1.60, 1.E3 / - > ,Mex(4), Mpn(4), Nexp(4) / 5, 3, 10 / - > ,(ExpN(I,4), I=1,10 ) - > / 0.990,1.009,1.022,0.978,1.050,1.027,0.955 - > ,0.848,0.985,1.053 / - -C Run lo24 - CTEQ2L -C - DATA - > Isch(5), Iord(5), Nqrk(5), Alm(5) / 0, 1, 6, .190 / - > ,(Vlm(I,5), I=4,6) / .190, .143, .072 / - > ,(Qms(I,5), I=4,6) / 1.60, 5.00, 180.0 / - > ,Xmn(5), Qmn(5), Qmx(5) / 1.E-5, 1.60, 1.E3 / - > ,Mex(5), Mpn(5), Nexp(5) / 5, 3, 10 / - > ,(ExpN(I,5), I=1,10 ) - > / 0.990,1.018,1.022,0.982,0.725,0.931,0.855 - > ,0.795,0.965,1.007 / - -C Run da06 - CTEQ2D -C - DATA - > Isch(6), Iord(6), Nqrk(6), Alm(6) / 2, 2, 6, .235 / - > ,(Vlm(I,6), I=4,6) / .235, .155, .060 / - > ,(Qms(I,6), I=4,6) / 1.60, 5.00, 180.0 / - > ,Xmn(6), Qmn(6), Qmx(6) / 1.E-5, 1.60, 1.E3 / - > ,Mex(6), Mpn(6), Nexp(6) / 5, 3, 10 / - > ,(ExpN(I,6), I=1,10 ) - > / 0.989,1.019,1.021,0.978,0.961,0.958,0.904 - > ,0.857,0.965,1.022 / - - Data Ist, Lp, Qsto, Aln2 / 0, -10, 1.2345, 0.6931 / - - SAVE Ist, Lp, Qsto, Alam, SBL, SB, SB2, SB3 - - X = XX - Irt = 0 - if(Iset.eq.Ist .and. Qsto.eq.QQ) then -C if only change is in x: - if (Iprtn.eq.Lp) goto 100 -C if change in flv is within "light" partons: - if (Iprtn.ge.-3 .and. Lp.ge.-3) goto 501 - endif - - Ip = abs(Iprtn) -C Set up Qi for SB - If (Ip .GE. 4) then - If (QQ .LE. Qms(Ip, Iset)) Then - Ctq2OPd = 0.0 - Return - Endif - Qi = Qms(ip, Iset) - Else - Qi = Qmn(Iset) - Endif -C Use "standard lambda" of parametrization program - Alam = Alm (Iset) - - SBL = LOG(QQ/Alam) / LOG(Qi/Alam) - SB = LOG (SBL) - SB2 = SB*SB - SB3 = SB2*SB - - 501 Iflv = 3 - Iprtn - - Goto (1,2,3,4,5,6, 311) Iset - - 1 Goto(11,12,13,14,15,16,17,18,19)Iflv -C Ifl = 2 - 11 A0=Exp( 0.2140E+00+0.1896E+01*SB -0.4966E+01*SB2+0.2354E+01*SB3) - A1= 0.5210E+00-0.4886E+00*SB +0.1091E+01*SB2-0.5217E+00*SB3 - A2= 0.3178E+01+0.3404E+01*SB -0.6563E+01*SB2+0.3287E+01*SB3 - A3=-0.8550E+00+0.1898E+01*SB -0.4134E+01*SB2+0.2052E+01*SB3 - A4= 0.1821E+01-0.5544E+01*SB +0.9966E+01*SB2-0.4592E+01*SB3 - A5= 0.0000E+00-0.2554E+01*SB +0.6574E+01*SB2-0.3145E+01*SB3 - goto 100 -C Ifl = 1 - 12 A0=Exp(-0.1314E+01-0.3117E-01*SB +0.1706E+00*SB2-0.1956E+00*SB3) - A1= 0.2780E+00+0.2593E-01*SB +0.1416E-01*SB2-0.1153E-01*SB3 - A2= 0.3672E+01+0.5254E+00*SB +0.4441E-01*SB2-0.1651E-02*SB3 - A3= 0.2963E+02-0.1997E+02*SB +0.5682E+01*SB2+0.6001E+00*SB3 - A4= 0.8070E+00-0.2918E+00*SB +0.5498E-01*SB2-0.7655E-02*SB3 - A5= 0.0000E+00+0.2347E+00*SB -0.1332E-01*SB2+0.2772E-01*SB3 - goto 100 -C Ifl = 0 - 13 A0=Exp(-0.1060E+00-0.1488E+01*SB -0.2040E+00*SB2+0.4899E-01*SB3) - A1=-0.2580E+00+0.1448E+00*SB -0.1548E+00*SB2+0.4470E-01*SB3 - A2= 0.5195E+01+0.9257E+00*SB -0.1613E+00*SB2-0.5502E-01*SB3 - A3= 0.5126E+01+0.2061E+01*SB -0.2862E+01*SB2+0.6837E+00*SB3 - A4= 0.1118E+01+0.2549E+00*SB -0.5194E+00*SB2+0.1831E+00*SB3 - A5= 0.0000E+00+0.2507E+01*SB -0.9946E+00*SB2+0.2547E+00*SB3 - goto 100 -C Ifl = -1 - 14 A0=Exp(-0.1141E+00-0.3683E+01*SB +0.4654E+01*SB2-0.2191E+01*SB3) - A1=-0.4269E+00-0.4266E-01*SB -0.1957E+00*SB2+0.1341E+00*SB3 - A2= 0.9960E+01-0.3425E+01*SB +0.4851E+01*SB2-0.2131E+01*SB3 - A3=-0.6381E+00+0.9855E+00*SB -0.1629E+01*SB2+0.7407E+00*SB3 - A4= 0.3091E-03-0.1846E+00*SB +0.2512E+00*SB2-0.1031E+00*SB3 - A5=-0.1310E+01+0.1654E+01*SB -0.1672E+01*SB2+0.8606E+00*SB3 - goto 100 -C Ifl = -2 - 15 A0=Exp(-0.2025E+01-0.4256E+01*SB +0.4815E+01*SB2-0.1907E+01*SB3) - A1=-0.2622E+00+0.2118E+00*SB -0.2479E+00*SB2+0.6284E-01*SB3 - A2= 0.9113E+01-0.2913E+01*SB +0.5533E+01*SB2-0.2438E+01*SB3 - A3= 0.2999E+02+0.2693E+02*SB -0.2000E+02*SB2-0.4426E+00*SB3 - A4= 0.1524E+01-0.9878E+00*SB +0.1582E+01*SB2-0.7228E+00*SB3 - A5=-0.2241E+00+0.3366E+01*SB -0.3198E+01*SB2+0.1113E+01*SB3 - goto 100 -C Ifl = -3 - 16 A0=Exp(-0.1855E+01-0.5294E+01*SB +0.7825E+00*SB2-0.5312E-01*SB3) - A1=-0.4000E-02-0.1379E+01*SB +0.1215E+01*SB2-0.6000E-02*SB3 - A2= 0.6870E+01+0.1088E+01*SB -0.5497E+00*SB2-0.1920E+00*SB3 - A3= 0.0000E+00+0.4829E+01*SB +0.8971E+01*SB2+0.2999E+02*SB3 - A4= 0.1000E-02+0.3239E+00*SB -0.2326E+00*SB2-0.2922E+00*SB3 - A5= 0.0000E+00-0.2450E+01*SB +0.3630E+01*SB2-0.1137E+01*SB3 - goto 100 -C Ifl = -4 - 17 A0=SB** 0.4376E+00*Exp(-0.6933E+01+0.2995E+01*SB -0.2304E+01*SB2) - A1=-0.4228E+00+0.1222E+01*SB -0.1971E+01*SB2+0.8951E+00*SB3 - A2= 0.6926E+01-0.1031E+02*SB +0.1468E+02*SB2-0.6065E+01*SB3 - A3= 0.8573E+01-0.1998E+02*SB +0.1965E+02*SB2-0.4859E+01*SB3 - A4= 0.9299E-01-0.4951E+00*SB +0.6898E+00*SB2-0.1069E+00*SB3 - A5=-0.5687E-01+0.5526E+01*SB -0.7217E+01*SB2+0.3569E+01*SB3 - goto 100 -C Ifl = -5 - 18 A0=SB** 0.2274E+00*Exp(-0.2564E+01-0.7256E+01*SB +0.4891E+01*SB2) - A1=-0.1423E+00-0.5363E+00*SB +0.9826E+00*SB2-0.6096E+00*SB3 - A2= 0.6238E+01-0.2785E+01*SB +0.5089E+00*SB2+0.2333E+01*SB3 - A3=-0.1029E+01+0.4684E+00*SB +0.3126E+01*SB2-0.2893E+01*SB3 - A4= 0.1729E-01+0.7293E-01*SB -0.5278E+00*SB2+0.3967E+00*SB3 - A5= 0.6208E+00+0.3942E+01*SB -0.3736E+01*SB2+0.1039E+01*SB3 - goto 100 -C Ifl = -6 - 19 A0=SB** 0.6663E+00*Exp(-0.7572E+01+0.4202E+01*SB -0.7464E+01*SB2) - A1=-0.1951E+00-0.1041E+01*SB +0.6688E+01*SB2-0.9976E+01*SB3 - A2= 0.5920E+01-0.7929E+01*SB +0.2997E+02*SB2+0.2991E+02*SB3 - A3= 0.1616E+01-0.9668E+01*SB +0.2995E+02*SB2+0.3000E+02*SB3 - A4= 0.4595E+00-0.3761E+01*SB +0.5663E+01*SB2+0.2066E+01*SB3 - A5= 0.2664E+01+0.1067E+00*SB -0.9717E+01*SB2+0.9980E+01*SB3 - goto 100 - - 2 Goto(21,22,23,24,25,26,27,28,29)Iflv -C Ifl = 2 - 21 A0=Exp( 0.2790E+00+0.1526E+01*SB -0.4306E+01*SB2+0.2060E+01*SB3) - A1= 0.5380E+00-0.4199E+00*SB +0.9582E+00*SB2-0.4624E+00*SB3 - A2= 0.3259E+01+0.3236E+01*SB -0.6130E+01*SB2+0.3073E+01*SB3 - A3=-0.8390E+00+0.2092E+01*SB -0.4528E+01*SB2+0.2251E+01*SB3 - A4= 0.1847E+01-0.5377E+01*SB +0.9994E+01*SB2-0.4699E+01*SB3 - A5= 0.0000E+00-0.2097E+01*SB +0.5742E+01*SB2-0.2774E+01*SB3 - goto 100 -C Ifl = 1 - 22 A0=Exp(-0.1318E+01+0.2387E-01*SB +0.4416E-01*SB2-0.1337E+00*SB3) - A1= 0.2760E+00+0.4302E-01*SB -0.1992E-01*SB2+0.2945E-02*SB3 - A2= 0.3660E+01+0.5319E+00*SB +0.2772E-01*SB2+0.1030E-01*SB3 - A3= 0.2910E+02-0.2000E+02*SB +0.6756E+01*SB2-0.1017E-01*SB3 - A4= 0.8010E+00-0.2702E+00*SB +0.1663E-01*SB2+0.8604E-02*SB3 - A5= 0.0000E+00+0.2822E+00*SB -0.1064E+00*SB2+0.6349E-01*SB3 - goto 100 -C Ifl = 0 - 23 A0=Exp(-0.1623E+01-0.1156E+01*SB +0.7802E+00*SB2-0.3593E-01*SB3) - A1=-0.5000E+00-0.2854E-01*SB +0.2212E+00*SB2-0.9403E-01*SB3 - A2= 0.3821E+01+0.8254E+00*SB +0.5031E+00*SB2-0.3367E+00*SB3 - A3= 0.5809E+01-0.3042E+01*SB -0.2726E+01*SB2+0.1371E+01*SB3 - A4= 0.4500E+00-0.6445E+00*SB +0.3019E+00*SB2-0.5642E-01*SB3 - A5= 0.0000E+00+0.8833E+00*SB -0.8495E-01*SB2+0.1565E+00*SB3 - goto 100 -C Ifl = -1 - 24 A0=Exp(-0.2693E-01-0.5523E+00*SB -0.1741E+01*SB2+0.6360E+00*SB3) - A1=-0.8634E+00+0.2368E+00*SB +0.8493E-01*SB2-0.6031E-01*SB3 - A2= 0.1200E+02+0.2398E+01*SB -0.6554E+01*SB2+0.2441E+01*SB3 - A3= 0.2528E+02+0.3000E+02*SB +0.2826E+02*SB2-0.2000E+02*SB3 - A4= 0.4000E+01-0.1239E+01*SB +0.2344E+01*SB2-0.5239E+00*SB3 - A5=-0.3466E+01+0.1731E+01*SB +0.1155E+01*SB2-0.5539E+00*SB3 - goto 100 -C Ifl = -2 - 25 A0=Exp(-0.1881E+01-0.2404E+01*SB +0.2946E+01*SB2-0.1553E+01*SB3) - A1=-0.6715E+00+0.4590E+00*SB -0.4233E+00*SB2+0.1678E+00*SB3 - A2= 0.9530E+01-0.2395E+01*SB +0.4102E+01*SB2-0.1921E+01*SB3 - A3= 0.1828E+02+0.3982E+00*SB -0.7874E+01*SB2+0.5451E+01*SB3 - A4= 0.1019E+01-0.1596E+00*SB +0.5041E+00*SB2-0.2586E+00*SB3 - A5=-0.1804E+01+0.3477E+01*SB -0.3082E+01*SB2+0.1389E+01*SB3 - goto 100 -C Ifl = -3 - 26 A0=Exp(-0.3180E+01-0.4460E+01*SB +0.2338E+01*SB2-0.6414E+00*SB3) - A1=-0.3873E+00-0.4457E+00*SB +0.1845E+00*SB2+0.2391E-01*SB3 - A2= 0.9287E+01-0.3698E+01*SB +0.2525E+01*SB2-0.8127E+00*SB3 - A3= 0.8968E+01+0.2853E+02*SB -0.9043E+01*SB2-0.1270E+01*SB3 - A4= 0.4911E-02-0.1111E+00*SB +0.6279E+00*SB2-0.3286E+00*SB3 - A5=-0.1892E+01+0.1020E+01*SB +0.1200E+01*SB2-0.5246E+00*SB3 - goto 100 -C Ifl = -4 - 27 A0=SB** 0.5061E+00*Exp(-0.6545E+01+0.2128E+01*SB -0.2682E+01*SB2) - A1=-0.6422E+00+0.1348E+01*SB -0.2112E+01*SB2+0.1023E+01*SB3 - A2= 0.8633E+01-0.1098E+02*SB +0.1297E+02*SB2-0.5481E+01*SB3 - A3= 0.1094E+02-0.1999E+02*SB +0.1569E+02*SB2+0.1640E+01*SB3 - A4= 0.6101E-01-0.4030E+00*SB +0.6944E+00*SB2-0.1071E+00*SB3 - A5=-0.1031E+01+0.6066E+01*SB -0.7177E+01*SB2+0.3941E+01*SB3 - goto 100 -C Ifl = -5 - 28 A0=SB** 0.9548E+00*Exp(-0.3509E+01-0.4622E+01*SB +0.2158E+01*SB2) - A1=-0.3843E+00+0.3255E-01*SB +0.1015E+01*SB2-0.8073E+00*SB3 - A2= 0.7119E+01-0.6982E+01*SB +0.1057E+02*SB2-0.5042E+01*SB3 - A3=-0.2830E+00+0.6828E+00*SB +0.3744E+01*SB2-0.3577E+01*SB3 - A4=-0.7753E-02-0.6807E-01*SB -0.5997E+00*SB2+0.5024E+00*SB3 - A5= 0.5160E+00+0.2897E+01*SB -0.1816E+01*SB2+0.5683E+00*SB3 - goto 100 -C Ifl = -6 - 29 A0=SB** 0.6174E+00*Exp(-0.7663E+01+0.7381E+01*SB +0.1136E+01*SB2) - A1=-0.8717E-01-0.2683E+01*SB +0.9103E+01*SB2-0.7527E+01*SB3 - A2= 0.6726E+01-0.9855E+01*SB +0.2906E+02*SB2+0.2793E+02*SB3 - A3= 0.1893E+01-0.1341E+02*SB +0.1923E+02*SB2-0.4600E+01*SB3 - A4=-0.2237E+00+0.1519E+01*SB +0.3735E+00*SB2-0.7050E+01*SB3 - A5= 0.1873E+01+0.2195E+01*SB -0.8159E+01*SB2+0.6019E+01*SB3 - goto 100 - - 3 Goto(31,32,33,34,35,36,37,38,39)Iflv -C Ifl = 2 - 31 A0=Exp( 0.1670E+00+0.1075E+01*SB -0.3383E+01*SB2+0.1614E+01*SB3) - A1= 0.5080E+00-0.3170E+00*SB +0.7692E+00*SB2-0.3742E+00*SB3 - A2= 0.3243E+01+0.4730E+01*SB -0.8685E+01*SB2+0.4224E+01*SB3 - A3=-0.8320E+00+0.5206E+01*SB -0.1064E+02*SB2+0.5154E+01*SB3 - A4= 0.2189E+01-0.1541E+01*SB +0.3218E+01*SB2-0.1573E+01*SB3 - A5= 0.0000E+00-0.1513E+01*SB +0.4587E+01*SB2-0.2226E+01*SB3 - goto 100 -C Ifl = 1 - 32 A0=Exp(-0.1344E+01-0.1748E-01*SB +0.1351E+00*SB2-0.1933E+00*SB3) - A1= 0.2760E+00+0.3213E-01*SB +0.4936E-02*SB2-0.9453E-02*SB3 - A2= 0.3660E+01+0.5253E+00*SB +0.4304E-01*SB2+0.5047E-03*SB3 - A3= 0.2982E+02-0.2000E+02*SB +0.5957E+01*SB2+0.6646E+00*SB3 - A4= 0.7950E+00-0.2861E+00*SB +0.5038E-01*SB2-0.5960E-02*SB3 - A5= 0.0000E+00+0.2441E+00*SB -0.2216E-01*SB2+0.2776E-01*SB3 - goto 100 -C Ifl = 0 - 33 A0=Exp( 0.1116E+01-0.3529E+01*SB +0.1456E+01*SB2-0.1419E+00*SB3) - A1= 0.0000E+00-0.5181E+00*SB +0.5405E+00*SB2-0.2205E+00*SB3 - A2= 0.6529E+01-0.1407E+01*SB +0.5685E-01*SB2+0.3105E+00*SB3 - A3= 0.2643E+01-0.5811E+01*SB +0.4343E+01*SB2-0.1257E+01*SB3 - A4= 0.2221E+01-0.3929E+01*SB +0.2208E+01*SB2-0.3916E+00*SB3 - A5= 0.0000E+00+0.2176E+01*SB -0.8498E+00*SB2+0.2041E+00*SB3 - goto 100 -C Ifl = -1 - 34 A0=Exp(-0.6345E+00-0.3473E+01*SB +0.3619E+01*SB2-0.1521E+01*SB3) - A1=-0.2746E-01-0.2354E+00*SB -0.9563E-01*SB2+0.9076E-01*SB3 - A2= 0.9349E+01-0.2734E+01*SB +0.4205E+01*SB2-0.1868E+01*SB3 - A3=-0.4148E+00+0.1275E+01*SB -0.1762E+01*SB2+0.6678E+00*SB3 - A4=-0.6941E-02-0.3389E-01*SB +0.2910E-01*SB2-0.7428E-03*SB3 - A5=-0.2328E+00+0.1099E+01*SB -0.1257E+01*SB2+0.6759E+00*SB3 - goto 100 -C Ifl = -2 - 35 A0=Exp(-0.1043E+01-0.4115E+01*SB +0.4084E+01*SB2-0.1564E+01*SB3) - A1=-0.4823E-01+0.5433E-02*SB -0.3178E+00*SB2+0.1413E+00*SB3 - A2= 0.1038E+02-0.3667E+01*SB +0.4441E+01*SB2-0.1471E+01*SB3 - A3= 0.3729E+02-0.1991E+02*SB +0.2565E+01*SB2+0.3049E+01*SB3 - A4= 0.1831E+01-0.1349E+01*SB +0.1416E+01*SB2-0.4872E+00*SB3 - A5=-0.3255E+00+0.3095E+01*SB -0.3465E+01*SB2+0.1337E+01*SB3 - goto 100 -C Ifl = -3 - 36 A0=Exp(-0.2887E+01-0.4406E+01*SB +0.1392E+01*SB2-0.2654E+00*SB3) - A1=-0.1081E+00-0.1614E+00*SB -0.1005E+00*SB2+0.5118E-01*SB3 - A2= 0.7105E+01-0.1613E+01*SB +0.1555E+01*SB2-0.4143E+00*SB3 - A3= 0.9845E+00+0.7054E+01*SB +0.9067E+01*SB2+0.4381E+00*SB3 - A4= 0.4347E-01-0.4131E-01*SB +0.4727E+00*SB2-0.2627E+00*SB3 - A5= 0.1497E+00+0.7286E+00*SB +0.1079E+01*SB2-0.6934E+00*SB3 - goto 100 -C Ifl = -4 - 37 A0=SB** 0.5386E+00*Exp(-0.6447E+01+0.1532E+01*SB -0.2501E+01*SB2) - A1=-0.2340E+00+0.1158E+01*SB -0.2199E+01*SB2+0.1110E+01*SB3 - A2= 0.9582E+01-0.1232E+02*SB +0.1417E+02*SB2-0.5780E+01*SB3 - A3= 0.1136E+02-0.1977E+02*SB +0.1412E+02*SB2+0.4260E+01*SB3 - A4= 0.4897E-01-0.3630E+00*SB +0.6748E+00*SB2-0.8826E-01*SB3 - A5= 0.1638E+00+0.5938E+01*SB -0.7697E+01*SB2+0.4287E+01*SB3 - goto 100 -C Ifl = -5 - 38 A0=SB** 0.6821E+00*Exp(-0.3091E+01-0.6402E+01*SB +0.3642E+01*SB2) - A1=-0.6025E-01-0.3351E+00*SB +0.6665E+00*SB2-0.4328E+00*SB3 - A2= 0.7107E+01-0.2327E+01*SB +0.1482E+01*SB2+0.6384E+00*SB3 - A3=-0.9249E+00+0.1607E+01*SB +0.3734E+01*SB2-0.3985E+01*SB3 - A4= 0.5565E-01+0.5489E-01*SB -0.5636E+00*SB2+0.4372E+00*SB3 - A5= 0.1252E+01+0.2915E+01*SB -0.2690E+01*SB2+0.8944E+00*SB3 - goto 100 -C Ifl = -6 - 39 A0=SB** 0.5589E+00*Exp(-0.8150E+01+0.5395E+01*SB -0.6026E+00*SB2) - A1=-0.1062E-01-0.2427E+01*SB +0.8547E+01*SB2-0.6318E+01*SB3 - A2= 0.6721E+01-0.8373E+01*SB +0.2805E+02*SB2+0.2977E+02*SB3 - A3= 0.1926E+01-0.5905E+01*SB +0.2880E+01*SB2-0.1004E+02*SB3 - A4=-0.1701E+00+0.1258E+01*SB +0.4202E+01*SB2-0.9911E+01*SB3 - A5= 0.2429E+01+0.2037E+01*SB -0.2878E+01*SB2+0.3858E+01*SB3 - goto 100 - - 4 Goto(41,42,43,44,45,46,47,48,49)Iflv -C Ifl = 2 - 41 A0=Exp( 0.3760E+00+0.8053E+00*SB -0.2513E+01*SB2+0.1042E+01*SB3) - A1= 0.5650E+00-0.2477E+00*SB +0.5156E+00*SB2-0.2174E+00*SB3 - A2= 0.3464E+01+0.4958E+01*SB -0.8038E+01*SB2+0.3416E+01*SB3 - A3=-0.5850E+00+0.7780E+01*SB -0.1388E+02*SB2+0.5883E+01*SB3 - A4= 0.2322E+01-0.1325E+01*SB +0.2338E+01*SB2-0.9912E+00*SB3 - A5= 0.0000E+00-0.1051E+01*SB +0.3148E+01*SB2-0.1331E+01*SB3 - goto 100 -C Ifl = 1 - 42 A0=Exp(-0.1324E+01+0.4762E-01*SB -0.9509E-01*SB2-0.1792E-01*SB3) - A1= 0.2890E+00+0.6535E-01*SB -0.3082E-01*SB2+0.1996E-03*SB3 - A2= 0.3580E+01+0.5494E+00*SB -0.6856E-01*SB2+0.6323E-01*SB3 - A3= 0.3021E+02-0.2000E+02*SB +0.7011E+01*SB2-0.7697E+00*SB3 - A4= 0.7990E+00-0.2426E+00*SB +0.8071E-03*SB2+0.4460E-02*SB3 - A5= 0.0000E+00+0.3810E+00*SB -0.8815E-01*SB2-0.3724E-02*SB3 - goto 100 -C Ifl = 0 - 43 A0=Exp(-0.1920E+00-0.1130E+01*SB -0.2375E+00*SB2+0.4022E-01*SB3) - A1=-0.2120E+00+0.6095E-01*SB -0.9243E-01*SB2+0.2470E-01*SB3 - A2= 0.4549E+01+0.9281E+00*SB +0.4614E-01*SB2-0.4467E-01*SB3 - A3= 0.1197E+02-0.3295E+01*SB -0.1085E+01*SB2+0.4984E+00*SB3 - A4= 0.1616E+01-0.1152E+00*SB -0.3057E+00*SB2+0.1216E+00*SB3 - A5= 0.0000E+00+0.2254E+01*SB -0.8923E+00*SB2+0.2191E+00*SB3 - goto 100 -C Ifl = -1 - 44 A0=Exp(-0.1409E+01-0.8736E+00*SB -0.3396E+00*SB2+0.1329E+00*SB3) - A1=-0.2732E+00-0.7161E-01*SB +0.8535E-01*SB2-0.4319E-01*SB3 - A2= 0.9948E+01-0.2571E+01*SB +0.5435E+00*SB2+0.1048E+00*SB3 - A3= 0.3191E+02-0.6723E+01*SB -0.2000E+02*SB2+0.9788E+01*SB3 - A4= 0.3999E+01+0.2953E+00*SB -0.9248E+00*SB2+0.5909E+00*SB3 - A5=-0.6366E+00+0.6347E+00*SB +0.5611E+00*SB2-0.2659E+00*SB3 - goto 100 -C Ifl = -2 - 45 A0=Exp(-0.1935E+01-0.3640E+01*SB +0.3418E+01*SB2-0.1162E+01*SB3) - A1=-0.2333E+00+0.3532E+00*SB -0.4772E+00*SB2+0.1515E+00*SB3 - A2= 0.1009E+02-0.4327E+01*SB +0.4977E+01*SB2-0.1588E+01*SB3 - A3= 0.4998E+02-0.1658E+02*SB -0.1299E+01*SB2+0.1680E+01*SB3 - A4= 0.1717E+01-0.8842E+00*SB +0.8121E+00*SB2-0.2623E+00*SB3 - A5=-0.1852E+00+0.3591E+01*SB -0.3439E+01*SB2+0.1119E+01*SB3 - goto 100 -C Ifl = -3 - 46 A0=Exp(-0.1864E+01-0.3708E+01*SB -0.5756E+00*SB2+0.4375E+00*SB3) - A1= 0.1000E-02-0.1191E+01*SB +0.1129E+01*SB2-0.1823E+00*SB3 - A2= 0.6898E+01+0.7131E+00*SB -0.1816E+01*SB2+0.7422E+00*SB3 - A3= 0.0000E+00+0.3461E+01*SB +0.5716E+01*SB2+0.1099E+02*SB3 - A4= 0.1000E-02+0.2346E+00*SB -0.2442E+00*SB2-0.8945E-01*SB3 - A5= 0.0000E+00-0.2307E+01*SB +0.3654E+01*SB2-0.1229E+01*SB3 - goto 100 -C Ifl = -4 - 47 A0=SB** 0.5944E+00*Exp(-0.6580E+01+0.1186E+01*SB -0.8149E+00*SB2) - A1=-0.4012E+00+0.1013E+01*SB -0.1345E+01*SB2+0.4858E+00*SB3 - A2= 0.5745E+01-0.1001E+02*SB +0.1332E+02*SB2-0.4777E+01*SB3 - A3= 0.9501E+01-0.2000E+02*SB +0.2158E+02*SB2-0.7159E+01*SB3 - A4= 0.1330E+00-0.5430E+00*SB +0.6810E+00*SB2-0.2441E+00*SB3 - A5= 0.7665E-01+0.4725E+01*SB -0.5315E+01*SB2+0.1948E+01*SB3 - goto 100 -C Ifl = -5 - 48 A0=SB** 0.1171E+00*Exp(-0.4100E+01-0.4162E+01*SB +0.2139E+01*SB2) - A1=-0.1266E+00-0.3860E+00*SB +0.5611E+00*SB2-0.2887E+00*SB3 - A2= 0.4416E+01-0.2970E+00*SB +0.8367E-01*SB2+0.5844E+00*SB3 - A3=-0.1007E+01+0.7322E+00*SB +0.4878E+01*SB2-0.3640E+01*SB3 - A4= 0.1202E-01+0.2368E+00*SB -0.6270E+00*SB2+0.3810E+00*SB3 - A5= 0.1117E+01+0.2026E+01*SB -0.1649E+01*SB2+0.5582E+00*SB3 - goto 100 -C Ifl = -6 - 49 A0=SB** 0.4778E+00*Exp(-0.8672E+01+0.7464E+01*SB -0.2952E+01*SB2) - A1=-0.2503E-01-0.2713E+01*SB +0.9002E+01*SB2-0.6336E+01*SB3 - A2= 0.6266E+01-0.1191E+02*SB +0.2982E+02*SB2-0.7350E+01*SB3 - A3= 0.2402E+01-0.7116E+01*SB -0.9642E+01*SB2+0.2415E+02*SB3 - A4=-0.2056E+00+0.1537E+01*SB +0.2850E+01*SB2-0.9850E+01*SB3 - A5= 0.2237E+01+0.2495E+01*SB -0.6424E+01*SB2+0.9998E+01*SB3 - goto 100 - - 5 Goto(51,52,53,54,55,56,57,58,59)Iflv -C Ifl = 2 - 51 A0=Exp( 0.8000E-01+0.7364E+00*SB -0.2714E+01*SB2+0.1311E+01*SB3) - A1= 0.4930E+00-0.2001E+00*SB +0.5784E+00*SB2-0.2915E+00*SB3 - A2= 0.3001E+01+0.3538E+01*SB -0.6155E+01*SB2+0.3083E+01*SB3 - A3=-0.1000E+01+0.3871E+01*SB -0.8334E+01*SB2+0.4219E+01*SB3 - A4= 0.2986E+01+0.1597E+01*SB -0.3368E+01*SB2+0.1644E+01*SB3 - A5= 0.0000E+00-0.9256E+00*SB +0.3570E+01*SB2-0.1777E+01*SB3 - goto 100 -C Ifl = 1 - 52 A0=Exp(-0.1806E+01-0.6672E-01*SB -0.2605E+00*SB2+0.2341E-01*SB3) - A1= 0.1750E+00+0.3872E-01*SB -0.2189E-01*SB2+0.1415E-01*SB3 - A2= 0.3322E+01+0.7786E+00*SB -0.2902E+00*SB2+0.1517E+00*SB3 - A3= 0.4414E+02-0.1987E+02*SB +0.2597E+01*SB2+0.2670E+01*SB3 - A4= 0.9610E+00-0.2864E+00*SB -0.5524E-01*SB2+0.6229E-01*SB3 - A5= 0.0000E+00+0.2658E+00*SB -0.4728E-02*SB2+0.6048E-01*SB3 - goto 100 -C Ifl = 0 - 53 A0=Exp(-0.6510E+00-0.1128E+01*SB -0.6239E-01*SB2-0.8838E-01*SB3) - A1=-0.2590E+00+0.1822E+00*SB -0.2682E+00*SB2+0.9422E-01*SB3 - A2= 0.4607E+01+0.7792E+00*SB +0.8937E+00*SB2-0.5553E+00*SB3 - A3= 0.1627E+02-0.1114E+02*SB +0.4928E+01*SB2-0.1715E+01*SB3 - A4= 0.1236E+01+0.1945E+00*SB -0.3297E+00*SB2+0.6489E-01*SB3 - A5= 0.0000E+00+0.3346E+01*SB -0.2337E+01*SB2+0.7850E+00*SB3 - goto 100 -C Ifl = -1 - 54 A0=Exp(-0.1508E+01-0.5560E+00*SB -0.3523E+00*SB2+0.6562E-01*SB3) - A1=-0.3223E+00+0.2095E-01*SB -0.2049E-02*SB2-0.3475E-01*SB3 - A2= 0.9469E+01-0.3923E+01*SB +0.4333E+01*SB2-0.1654E+01*SB3 - A3= 0.1646E+02-0.1082E+02*SB +0.8941E+01*SB2-0.5494E+01*SB3 - A4= 0.2908E+01+0.2162E+01*SB -0.3233E+01*SB2+0.1267E+01*SB3 - A5=-0.5819E+00+0.3914E+00*SB +0.6460E+00*SB2-0.3239E+00*SB3 - goto 100 -C Ifl = -2 - 55 A0=Exp(-0.1951E+01-0.3435E+01*SB +0.3424E+01*SB2-0.1249E+01*SB3) - A1=-0.2942E+00+0.4408E+00*SB -0.5453E+00*SB2+0.1552E+00*SB3 - A2= 0.9782E+01-0.3454E+01*SB +0.4510E+01*SB2-0.1649E+01*SB3 - A3= 0.4999E+02-0.1993E+02*SB -0.2039E+01*SB2+0.5694E+00*SB3 - A4= 0.1938E+01-0.1351E+01*SB +0.1386E+01*SB2-0.5324E+00*SB3 - A5=-0.2410E+00+0.3434E+01*SB -0.3334E+01*SB2+0.1067E+01*SB3 - goto 100 -C Ifl = -3 - 56 A0=Exp(-0.1804E+01-0.4381E+01*SB -0.3699E+00*SB2+0.3878E+00*SB3) - A1=-0.1000E-02-0.9334E+00*SB +0.7156E+00*SB2-0.2029E+00*SB3 - A2= 0.6896E+01+0.2462E+01*SB -0.2885E+01*SB2+0.8701E+00*SB3 - A3= 0.0000E+00+0.5589E+01*SB +0.1047E+02*SB2+0.3000E+02*SB3 - A4= 0.1000E-02-0.5600E-02*SB +0.5618E-02*SB2+0.6598E-02*SB3 - A5= 0.0000E+00-0.3151E+01*SB +0.4025E+01*SB2-0.1232E+01*SB3 - goto 100 -C Ifl = -4 - 57 A0=SB** 0.7860E+00*Exp(-0.5041E+01-0.3357E+00*SB -0.4718E+00*SB2) - A1=-0.4989E+00+0.9571E+00*SB -0.1359E+01*SB2+0.5384E+00*SB3 - A2= 0.5986E+01-0.8541E+01*SB +0.1274E+02*SB2-0.5275E+01*SB3 - A3= 0.8121E+01-0.1753E+02*SB +0.2194E+02*SB2-0.8538E+01*SB3 - A4= 0.9290E-01-0.4390E+00*SB +0.6162E+00*SB2-0.2231E+00*SB3 - A5=-0.1257E+01+0.5677E+01*SB -0.5977E+01*SB2+0.2387E+01*SB3 - goto 100 -C Ifl = -5 - 58 A0=SB** 0.4537E+00*Exp(-0.3269E+01-0.5398E+01*SB +0.2893E+01*SB2) - A1=-0.1977E+00-0.4126E+00*SB +0.7058E+00*SB2-0.4038E+00*SB3 - A2= 0.4522E+01+0.6167E-01*SB -0.1849E+00*SB2+0.7345E+00*SB3 - A3=-0.1003E+01+0.1531E+01*SB +0.4515E+01*SB2-0.4368E+01*SB3 - A4= 0.3579E-01+0.1919E+00*SB -0.7268E+00*SB2+0.5192E+00*SB3 - A5= 0.5129E+00+0.2447E+01*SB -0.1989E+01*SB2+0.7529E+00*SB3 - goto 100 -C Ifl = -6 - 59 A0=SB** 0.7178E+00*Exp(-0.7327E+01+0.2277E+01*SB +0.3913E+01*SB2) - A1=-0.9842E-01-0.2362E+01*SB +0.8851E+01*SB2-0.7208E+01*SB3 - A2= 0.5552E+01-0.8935E+01*SB +0.2676E+02*SB2-0.1344E+02*SB3 - A3= 0.1593E+01-0.3505E+01*SB -0.1234E+01*SB2-0.1867E+02*SB3 - A4=-0.1723E+00+0.1530E+01*SB +0.2323E+01*SB2-0.9344E+01*SB3 - A5= 0.2081E+01+0.1939E+01*SB -0.3273E+01*SB2+0.9935E+01*SB3 - goto 100 - - 6 Goto(61,62,63,64,65,66,67,68,69)Iflv -C Ifl = 2 - 61 A0=Exp( 0.1590E+00+0.8361E+00*SB -0.2713E+01*SB2+0.1231E+01*SB3) - A1= 0.5110E+00-0.2081E+00*SB +0.5090E+00*SB2-0.2365E+00*SB3 - A2= 0.3158E+01+0.4946E+01*SB -0.8738E+01*SB2+0.4063E+01*SB3 - A3=-0.6000E+00+0.7591E+01*SB -0.1479E+02*SB2+0.6851E+01*SB3 - A4= 0.2306E+01-0.1913E+01*SB +0.3615E+01*SB2-0.1663E+01*SB3 - A5= 0.0000E+00-0.9682E+00*SB +0.3247E+01*SB2-0.1503E+01*SB3 - goto 100 -C Ifl = 1 - 62 A0=Exp(-0.1182E+01+0.1223E+00*SB +0.6512E-01*SB2-0.1208E+00*SB3) - A1= 0.2540E+00+0.2297E-01*SB -0.4249E-02*SB2+0.1143E-03*SB3 - A2= 0.3442E+01+0.5458E+00*SB +0.3803E-01*SB2-0.1598E-02*SB3 - A3= 0.2545E+02-0.2000E+02*SB +0.7516E+01*SB2-0.7726E+00*SB3 - A4= 0.9170E+00-0.3214E+00*SB +0.4666E-01*SB2-0.5126E-02*SB3 - A5= 0.0000E+00+0.1379E+00*SB -0.4579E-01*SB2+0.4988E-01*SB3 - goto 100 -C Ifl = 0 - 63 A0=Exp(-0.3410E+00-0.9586E+00*SB -0.4561E+00*SB2+0.1041E+00*SB3) - A1=-0.2400E+00+0.1498E+00*SB -0.1717E+00*SB2+0.4922E-01*SB3 - A2= 0.4841E+01+0.8606E+00*SB +0.1611E+00*SB2-0.1785E+00*SB3 - A3= 0.7427E+01-0.2102E+01*SB +0.1371E+01*SB2-0.8831E+00*SB3 - A4= 0.9600E+00+0.3385E+00*SB -0.3549E+00*SB2+0.8291E-01*SB3 - A5= 0.0000E+00+0.2516E+01*SB -0.1115E+01*SB2+0.2961E+00*SB3 - goto 100 -C Ifl = -1 - 64 A0=Exp( 0.3709E-01-0.3427E+01*SB +0.4188E+01*SB2-0.1910E+01*SB3) - A1=-0.3664E+00+0.1406E+00*SB -0.1340E+00*SB2+0.2966E-01*SB3 - A2= 0.1093E+02-0.3215E+01*SB +0.1803E+01*SB2-0.3219E+00*SB3 - A3=-0.7324E+00+0.9441E+00*SB -0.1698E+01*SB2+0.7797E+00*SB3 - A4= 0.7923E-01-0.5296E-01*SB +0.9541E-01*SB2-0.4648E-01*SB3 - A5=-0.1426E+01+0.2324E+01*SB -0.1860E+01*SB2+0.7350E+00*SB3 - goto 100 -C Ifl = -2 - 65 A0=Exp(-0.2396E+01-0.2506E+01*SB +0.3192E+01*SB2-0.1398E+01*SB3) - A1=-0.2366E+00+0.3132E+00*SB -0.5087E+00*SB2+0.1892E+00*SB3 - A2= 0.9013E+01-0.2295E+01*SB +0.4380E+01*SB2-0.1909E+01*SB3 - A3= 0.4999E+02-0.1713E+02*SB -0.1184E+01*SB2+0.5404E+00*SB3 - A4= 0.1739E+01-0.7946E+00*SB +0.9877E+00*SB2-0.4258E+00*SB3 - A5= 0.3889E-01+0.2840E+01*SB -0.3389E+01*SB2+0.1358E+01*SB3 - goto 100 -C Ifl = -3 - 66 A0=Exp(-0.1966E+01-0.4423E+01*SB -0.2825E+00*SB2+0.4253E+00*SB3) - A1=-0.4000E-02-0.1327E+01*SB +0.1367E+01*SB2-0.4343E+00*SB3 - A2= 0.6902E+01+0.2127E+01*SB -0.3095E+01*SB2+0.1140E+01*SB3 - A3= 0.0000E+00+0.4494E+01*SB +0.1085E+02*SB2+0.2149E+02*SB3 - A4= 0.1000E-02+0.3120E+00*SB -0.3684E+00*SB2+0.1059E+00*SB3 - A5= 0.0000E+00-0.2796E+01*SB +0.4415E+01*SB2-0.1559E+01*SB3 - goto 100 -C Ifl = -4 - 67 A0=SB** 0.5299E+00*Exp(-0.6308E+01+0.2148E+01*SB -0.1356E+01*SB2) - A1=-0.4240E+00+0.1047E+01*SB -0.1558E+01*SB2+0.6376E+00*SB3 - A2= 0.6562E+01-0.9971E+01*SB +0.1510E+02*SB2-0.6222E+01*SB3 - A3= 0.8340E+01-0.1952E+02*SB +0.2047E+02*SB2-0.6962E+01*SB3 - A4= 0.9903E-01-0.4558E+00*SB +0.5885E+00*SB2-0.1425E+00*SB3 - A5=-0.3086E+00+0.5061E+01*SB -0.6202E+01*SB2+0.2690E+01*SB3 - goto 100 -C Ifl = -5 - 68 A0=SB** 0.2033E+00*Exp(-0.2686E+01-0.5308E+01*SB +0.1509E+01*SB2) - A1=-0.1704E+00-0.2444E+00*SB +0.3557E+00*SB2-0.2174E+00*SB3 - A2= 0.5074E+01+0.1516E+01*SB -0.3815E+01*SB2+0.2956E+01*SB3 - A3=-0.1024E+01+0.6055E+00*SB +0.1338E+01*SB2+0.1855E+01*SB3 - A4= 0.9655E-02+0.1397E+00*SB -0.3254E+00*SB2+0.2057E+00*SB3 - A5= 0.5681E+00+0.2772E+01*SB -0.1963E+01*SB2+0.4607E+00*SB3 - goto 100 -C Ifl = -6 - 69 A0=SB** 0.8044E+00*Exp(-0.6946E+01+0.3617E+01*SB -0.9973E+01*SB2) - A1=-0.1901E+00-0.8342E+00*SB +0.4663E+01*SB2-0.9999E+01*SB3 - A2= 0.6194E+01-0.9668E+01*SB +0.2997E+02*SB2+0.2987E+02*SB3 - A3= 0.1173E+01-0.8138E+01*SB +0.2924E+02*SB2-0.2860E+00*SB3 - A4= 0.4761E+00-0.3683E+01*SB +0.4966E+01*SB2+0.9593E+01*SB3 - A5= 0.2691E+01-0.9906E+00*SB -0.4504E+01*SB2+0.9999E+01*SB3 - goto 100 - - 311 stop 'This option is not currently supported.' - - 100 CONTINUE - P012 = A0 *(X**A1) *((1.-X)**A2) - P34 = (1.+A3*(X**A4)) - P5 = (log(1.+1./X))**A5 -C - PDFD = P012 * P34 * P5 - PDF = PDFD -C - Ctq2OPd = PDF - if(Ctq2OPd.lt.0.0) then - Ctq2OPd = 0.0 - Irt=1 - endif - - Ist = Iset - - Lp = Iprtn - Qsto = QQ - - Return -C ----------------------- - ENTRY Wlamd2O (Iset, Iorder, Neff) - - Iorder = IORD (Iset) - Wlamd2O = VLM (Neff, Iset) - - Ctq2OPd = 0.0 - RETURN -C ----------------------- - Entry PrCtq2O - > (Iset, Iordr, Ischeme, MxFlv, - > Alam4, Alam5, Alam6, Amas4, Amas5, Amas6, - > Xmin, Qini, Qmax, ExpNor) - -C Return QCD parameters and Fitting parameters -C associated with parton distribution set Iset. -C Iord : Order Of Fit -C Ischeme : (0, 1, 2) for (LO, MS-bar-NLO, DIS-NLO) resp. -C MxFlv : Maximum number of flavors included -C Alam_i : i = 4,5,6 Effective lambda for i-flavors - -C Amas_i : i = 4,5,6 Mass parameter for flavor i -C Xmin, Qini, Qmax : self explanary -C ExpNor(I) : Normalization factor for the experimental data set used in -C obtaining the best global fit for parton distributions Iset: -C I = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 -C BCDMS NMC90 NMC280 CCFR E605 WA70 E706 UA6 H1 ZEUS - - Iordr = Iord (Iset) - Ischeme= Isch (Iset) - MxFlv = Nqrk (Iset) - - Alam4 = Vlm(4,Iset) - Alam5 = Vlm(5,Iset) - Alam6 = Vlm(6,Iset) - - Amas4 = Qms(4,Iset) - Amas5 = Qms(5,Iset) - Amas6 = Qms(6,Iset) - - Xmin = Xmn (Iset) - Qini = Qmn (Iset) - Qmax = Qmx (Iset) - - Do 201 Iexp = 1, Nexp(Iset) - 201 ExpNor(Iexp) = ExpN(Iexp, Iset) - - Ctq2OPd = 0.0 - Return -C ************************* - END diff --git a/PDF/spdf/ctq2opf.F b/PDF/spdf/ctq2opf.F deleted file mode 100644 index 1feac5fe7ba..00000000000 --- a/PDF/spdf/ctq2opf.F +++ /dev/null @@ -1,159 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:44 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:09 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C Version 2 CTEQ distribution function in a parametrized form. -C By: J. Botts, H.L. Lai, J.G. Morfin, J.F. Owens, J. Qiu, W.K. Tung & H. Weerts -C -C To avoid the proliferation of parton distribution functions, we recommend -C that -C these distributions should replace Version 1 CTEQ distributions for all -C general -C usage. The differences between the two sets of distributions, as briefly -C described below, do not significantly affect most applications for -C fixed-target -C and hadron-collider applications. -C -C Both CTEQ1 and CTEQ2 distributions fit existing DIS, Drell-Yan and Direct -C photon -C data with excellent chi-squares. They represent two distinct ways to resolve -C the inconsistency between CCFR and NMC measurements on F2 at small-x and the -C neutrino dimuon measurements of s(x), as discovered by the CTEQ1 analysis: -C in the CTEQ1 analysis, the F2 measurements of CCFR and NMC are taken -C seriously, -C leaving out the dimuon information on s(x); whereas in the CTEQ2 analysis, -C the -C latest CCFR NLO dimuon analysis of s(x) is used (within errors) as input -C while -C leaving out the small-x F2 data which conflict with this input. The small-x -C behavior of the parton distributions are contrained in the latter case by the -C newly released HERA data. For details, see our forthcoming paper. -C -C This file contains three versions of the same CTEQ2 parton distributions: -C -C Two "front-end" subprograms: -C FUNCTION Ctq2OPf (Iset, Iparton, X, Q, Irt) -C returns the PROBABILITY density for a GIVEN flavor; -C SUBROUTINE Ctq2OPs (Iset, Pdf, XX, QQ, Irt) -C returns an array of MOMENTUM densities for ALL flavors; -C One lower-level subprogram: -C FUNCTION Ctq2OPd (Iset, Iprtn, XX, QQ, Irt) -C returns the MOMENTUM density of a GIVEN valence or sea distribution. -C Supplementary functions to return the relevant QCD parameters and other -C information concerning these distributions are also included (see below). -C -C Since this is an initial distribution of version 2, it is -C useful for the authors to maintain a record of the distribution list in -C case there are revisions or corrections. -C In the interest of maintaining the integrity of this package, -C please do not freely distribute this program package; instead, refer any -C interested colleagues to direct their request for a copy to: -C Botts@hades.ifh.de or Lai@cteq11.pa.msu.edu - -C If you have detailed questions concerning these CTEQ2 distributions, direct -C inquires to Botts, Lai (see above) or Wu-Ki Tung (Tung@msupa.pa.msu.edu). - -C ------------------------------------------- -C Detailed instructions follow. - -C Name convention for CTEQ distributions: CTEQnSx where -C n : version number (currently n = 2) -C S : factorization scheme label: = [M D L] for [MS-bar DIS LO] -C resp. -C x : special characteristics, if any -C (e.g. S(F) for singular (flat) small-x, L for "LEP lambda value") - -C Explanation of functional arguments: - -C Iset is the set label; in this version, Iset = 1, 2, 3, 4, 5, 6 -C correspond to the following CTEQ global fits: - -C cteq2M : best fit in the MS-bar scheme -C cteq2MS : singular small-x -C cteq2MF : flat small-x -C cteq2ML : large lambda (Lambda(5) = 220 MeV) - -C cteq2L : best fit in Leading order QCD - -C cteq2D : best fit in the DIS scheme - -C Iprtn is the parton label (6, 5, 4, 3, 2, 1, 0, -1, ......, -6) -C for (t, b, c, s, d, u, g, u_bar, ..., t_bar) - -C X, Q are the usual x, Q; -C Irt is a return error code (see individual modules for explanation). -C -C --------------------------------------------- -C --> QCD parameters for parton distribution set Iset can be obtained inside -C the user's program by: -C Dum = PrCtq2O -C > (Iset, Iord, Ischeme, MxFlv, -C > Alam4, Alam5, Alam6, Amas4, Amas5, Amas6, -C > Xmin, Qini, Qmax, ExpNor) -C where all but the first argument are output parameters. -C They should be self-explanatory -- see details under ENTRY PrCtq2O. - -C Since the QCD Lambda value for the various sets are needed more often than -C the other parameters in most applications, a special function -C Wlamd2O (Iset, Iorder, Neff) is provided -C which returns the lambda value for Neff = 4,5,6 effective flavors as well as -C the order these values pertain to. - -C ---------------------------------------------- -C The range of (x, Q) used in this round of global analysis is, approxi- -C mately, 0.01 < x < 0.75 ; and 4 GeV^2 < Q^2 < 400 GeV^2 for fixed target -C experiments and 0.0001 < x < 0.01 from first official data of HERA. - -C The range of (x, Q) used in the reparametrization of the QCD evolved -C parton distributions is 10E-5 < x < 1 ; 1.6 GeV < Q < 1 TeV. The -C functional form of this parametrization is: - -C A0 * x^A1 * (1-x)^A2 * (1 + A3 * x^A4) * [log(1+1/x)]^A5 - -C with the A'coefficients being smooth functions of Q. For heavy quarks, -C a threshold factor is applied to A0 which simulates the proper Q-dependence -C of the QCD evolution in that region according to the renormalization -C scheme defined in Collins-Tung, Nucl. Phys. B278, 934 (1986). - -C Since this function is positive definite and smooth, it provides sensible -C extrapolations of the parton distributions if they are called beyond -C the original range in an application. There is no artificial boundaries -C or sharp cutoff's. -C ------------------------------------------------ - - FUNCTION Ctq2OPf (Iset, Iparton, X, Q, Irt) - -C This function returns the CTEQ parton distributions f^Iset_Iprtn/proton -C --- the PROBABILITY density - -C (Iset, Iparton, X, Q): explained above; - -C Irt : return error code: see module Ctq2OPd for explanation. - -C IMPLICIT DOUBLE PRECISION (A-H, O-Z) -C+SEQ, IMPDP. - - Ifl = Iparton - JFL = ABS(Ifl) -C Valence - IF (Ifl.Eq.1 .or. Ifl.Eq.2) THEN - VL = Ctq2OPd (Iset, Ifl, X, Q, Irt) - ELSE - VL = 0. - ENDIF -C Sea - SEA = Ctq2OPd (Iset, -JFL, X, Q, Irt) -C Full (probability) Distribution - Ctq2OPf = (VL + SEA) / X - - Return -C ************************* - END diff --git a/PDF/spdf/ctq2ops.F b/PDF/spdf/ctq2ops.F deleted file mode 100644 index 3309f17e4d7..00000000000 --- a/PDF/spdf/ctq2ops.F +++ /dev/null @@ -1,43 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:46 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:10 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE Ctq2OPs(Iset, Pdf, X, Q, Irt) - -C This function returns the CTEQ parton distributions xf^Iset_Iprtn/proton -C --- the Momentum density in array form -C -C (Iset, X, Q): explained in header comment lines; - -C Irt : return error code -- cumulated over flavors: -C see module Ctq2OPd for explanation on individual flavors. -C Pdf (Iparton); -C Iparton = -6, -5, ...0, 1, 2 ... 6 -C has the same meaning as explained in the header comment lines. - -C Implicit Double Precision (A-H, O-Z) -C+SEQ, IMPDP. - Dimension Pdf (-6:6) - - Irt=0 - do 10 I=-6,2 - if(I.le.0) then - Pdf(I) = Ctq2OPd (Iset,I,X,Q,Irt1) - Pdf(-I)= Pdf(I) - else - Pdf(I) = Ctq2OPd (Iset,I,X,Q,Irt1) + Pdf(-I) - endif - Irt=Irt+Irt1 - 10 Continue - - Return -C ************************* - End diff --git a/PDF/spdf/ctq2ppd.F b/PDF/spdf/ctq2ppd.F deleted file mode 100644 index 8b85b1eacbb..00000000000 --- a/PDF/spdf/ctq2ppd.F +++ /dev/null @@ -1,675 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:47 cernlib -* Version 7.04 -* -* Revision 1.2 1996/10/29 09:30:58 pdflib -* more LINNUX corrections in DATA statements -* -* Revision 1.1.1.1 1996/04/12 15:29:10 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - FUNCTION Ctq2pPd (Iset, Iprtn, XX, QQ, Irt) - -C Returns xf(x,Q) -- the momentum fraction distribution !! -C Returns valence and sea rather than combined flavor distr. - -C Iset : PDF set label - -C Iprtn : Parton label: 2, 1 = d_ and u_ valence -C 0 = gluon -C -1, ... -6 = u, d, s, c, b, t sea quarks - -C XX : Bjorken-x -C QQ : scale parameter "Q" -C Irt : Return code -C 0 : no error -C 1 : parametrization is slightly negative; reset to 0.0. -C (This condition happens rarely -- only for large x where the -C absolute value of the parton distribution is extremely small.) - - -C IMPLICIT DOUBLE PRECISION (A-H, O-Z) -C+SEQ, IMPDP. - - PARAMETER (D0=0D0, D1=1D0, D2=2D0, D3=3D0, D4=4D0, D10=1D1) - PARAMETER (Nex = 5, MxFl = 6, Npn = 3, Nst = 30, Nexpt=20) - Parameter (Nst4 = Nst*4) - -#include "pdf/expdp.inc" - + P012, P34, P5, PDFD - - DIMENSION - > Iord(Nst), Isch(Nst), Nqrk(Nst),Alm(Nst) - > , Vlm(4:6,Nst), Qms(4:6, Nst) - > , Xmn(Nst), Qmn(Nst), Qmx(Nst), Nexp(Nexpt) - > , Mex(Nst), Mpn(Nst), ExpN(Nexpt, Nst), ExpNor(Nexpt) - -C RUN LE26 - CTEQ2M -C - DATA - > Isch(1), Iord(1), Nqrk(1), Alm(1) / 1, 2, 6, .213 / - > ,(Vlm(I,1), I=4,6) / .213, .139, .053 / - > ,(Qms(I,1), I=4,6) / 1.60, 5.00, 180.0 / - > ,Xmn(1), Qmn(1), Qmx(1) / 1.E-5, 1.60, 1.E3 / - > ,Mex(1), Mpn(1), Nexp(1) / 5, 3, 10 / - > ,(ExpN(I,1), I=1,10 ) - > / 0.990,1.012,1.022,0.980,1.062,0.870,0.843 - > ,0.815,0.974,1.029 / - -C RUN SA17 - CTEQ2MS -C - DATA - > Isch(2), Iord(2), Nqrk(2), Alm(2) / 1, 2, 6, .208 / - > ,(Vlm(I,2), I=4,6) / .208, .135, .051 / - > ,(Qms(I,2), I=4,6) / 1.60, 5.00, 180.0 / - > ,Xmn(2), Qmn(2), Qmx(2) / 1.E-5, 1.60, 1.E3 / - > ,Mex(2), Mpn(2), Nexp(2) / 5, 3, 10 / - > ,(ExpN(I,2), I=1,10 ) - > / 0.992,1.017,1.023,0.982,1.079,0.879,0.845 - > ,0.814,0.984,1.036 / - -C RUN FA06 - CTEQ2MF -C - DATA - > Isch(3), Iord(3), Nqrk(3), Alm(3) / 1, 2, 6, .208 / - > ,(Vlm(I,3), I=4,6) / .208, .135, .051 / - > ,(Qms(I,3), I=4,6) / 1.60, 5.00, 180.0 / - > ,Xmn(3), Qmn(3), Qmx(3) / 1.E-5, 1.60, 1.E3 / - > ,Mex(3), Mpn(3), Nexp(3) / 5, 3, 10 / - > ,(ExpN(I,3), I=1,10 ) - > / 0.989,1.014,1.021,0.977,1.099,0.812,0.789 - > ,0.822,0.909,0.950 / - -C RUN LL25 - CTEQ2ML -C - DATA - > Isch(4), Iord(4), Nqrk(4), Alm(4) / 1, 2, 6, .322 / - > ,(Vlm(I,4), I=4,6) / .322, .220, .088 / - > ,(Qms(I,4), I=4,6) / 1.60, 5.00, 180.0 / - > ,Xmn(4), Qmn(4), Qmx(4) / 1.E-5, 1.60, 1.E3 / - > ,Mex(4), Mpn(4), Nexp(4) / 5, 3, 10 / - > ,(ExpN(I,4), I=1,10 ) - > / 0.990,1.009,1.022,0.978,1.050,1.027,0.955 - > ,0.848,0.985,1.053 / - -C Run lo24 - CTEQ2L -C - DATA - > Isch(5), Iord(5), Nqrk(5), Alm(5) / 0, 1, 6, .190 / - > ,(Vlm(I,5), I=4,6) / .190, .143, .072 / - > ,(Qms(I,5), I=4,6) / 1.60, 5.00, 180.0 / - > ,Xmn(5), Qmn(5), Qmx(5) / 1.E-5, 1.60, 1.E3 / - > ,Mex(5), Mpn(5), Nexp(5) / 5, 3, 10 / - > ,(ExpN(I,5), I=1,10 ) - > / 0.990,1.018,1.022,0.982,0.725,0.931,0.855 - > ,0.795,0.965,1.007 / - -C Run da06 - CTEQ2D -C - DATA - > Isch(6), Iord(6), Nqrk(6), Alm(6) / 2, 2, 6, .235 / - > ,(Vlm(I,6), I=4,6) / .235, .155, .060 / - > ,(Qms(I,6), I=4,6) / 1.60, 5.00, 180.0 / - > ,Xmn(6), Qmn(6), Qmx(6) / 1.E-5, 1.60, 1.E3 / - > ,Mex(6), Mpn(6), Nexp(6) / 5, 3, 10 / - > ,(ExpN(I,6), I=1,10 ) - > / 0.989,1.019,1.021,0.978,0.961,0.958,0.904 - > ,0.857,0.965,1.022 / - - Data Ist, Lp, Qsto, Aln2 / 0, -10, 1.2345, 0.6931 / - - X = XX - QQ = MAX(QQ,Qmn(iset)) - Irt = 0 - if(Iset.eq.Ist .and. Qsto.eq.QQ) then -C if only change is in x: - if (Iprtn.eq.Lp) goto 100 -C if change in flv is within "light" partons: - if (Iprtn.ge.-3 .and. Lp.ge.-3) goto 501 - endif - - Ip = abs(Iprtn) -C Set up Qi for SB - If (Ip .GE. 4) then - If (QQ .LE. Qms(Ip, Iset)) Then - Ctq2pPd = 0.0 - Return - Endif - Qi = Qms(ip, Iset) - Else - Qi = Qmn(Iset) - Endif -C Use "standard lambda" of parametrization program - Alam = Alm (Iset) - - SBL = LOG(QQ/Alam) / LOG(Qi/Alam) - SB = LOG (SBL) - SB2 = SB*SB - SB3 = SB2*SB - - 501 Iflv = 3 - Iprtn - - Goto (1,2,3,4,5,6, 311) Iset - - 1 Goto(11,12,13,14,15,16,17,18,19)Iflv -C Ifl = 2 - 11 A0=Exp( 0.2143E+00+0.8417E+00*SB -0.2451E+01*SB2+0.9875E+00*SB3) - A1= 0.5209E+00-0.2384E+00*SB +0.5086E+00*SB2-0.2123E+00*SB3 - A2= 0.3178E+01+0.5258E+01*SB -0.8102E+01*SB2+0.3334E+01*SB3 - A3=-0.8537E+00+0.5921E+01*SB -0.1007E+02*SB2+0.4146E+01*SB3 - A4= 0.1821E+01+0.2822E-01*SB +0.1662E+00*SB2-0.1058E+00*SB3 - A5= 0.0000E+00-0.1090E+01*SB +0.3136E+01*SB2-0.1301E+01*SB3 - goto 100 -C Ifl = 1 - 12 A0=Exp(-0.1314E+01-0.1342E-01*SB +0.1136E+00*SB2-0.1557E+00*SB3) - A1= 0.2780E+00+0.2558E-01*SB +0.4467E-02*SB2-0.2472E-02*SB3 - A2= 0.3672E+01+0.5324E+00*SB +0.3531E-01*SB2+0.7928E-03*SB3 - A3= 0.2957E+02-0.2000E+02*SB +0.5929E+01*SB2+0.3390E+00*SB3 - A4= 0.8069E+00-0.2877E+00*SB +0.3574E-01*SB2+0.5622E-02*SB3 - A5= 0.0000E+00+0.2287E+00*SB -0.4052E-01*SB2+0.5589E-01*SB3 - goto 100 -C Ifl = 0 - 13 A0=Exp(-0.1059E+00-0.1461E+01*SB -0.2544E+00*SB2+0.4526E-01*SB3) - A1=-0.2578E+00+0.1385E+00*SB -0.1383E+00*SB2+0.3811E-01*SB3 - A2= 0.5195E+01+0.9648E+00*SB -0.2103E+00*SB2-0.6701E-01*SB3 - A3= 0.5131E+01+0.2151E+01*SB -0.2880E+01*SB2+0.6608E+00*SB3 - A4= 0.1118E+01+0.2636E+00*SB -0.5140E+00*SB2+0.1613E+00*SB3 - A5= 0.0000E+00+0.2456E+01*SB -0.8741E+00*SB2+0.2136E+00*SB3 - goto 100 -C Ifl = -1 - 14 A0=Exp(-0.2732E+00-0.3523E+01*SB +0.3657E+01*SB2-0.1415E+01*SB3) - A1=-0.3807E+00+0.1211E+00*SB -0.1231E+00*SB2+0.3753E-01*SB3 - A2= 0.9698E+01-0.2596E+01*SB +0.2412E+01*SB2-0.9257E+00*SB3 - A3=-0.6165E+00+0.1120E+01*SB -0.1708E+01*SB2+0.6383E+00*SB3 - A4= 0.7292E-01-0.1339E+00*SB +0.2104E+00*SB2-0.7987E-01*SB3 - A5=-0.1370E+01+0.2452E+01*SB -0.1804E+01*SB2+0.6459E+00*SB3 - goto 100 -C Ifl = -2 - 15 A0=Exp(-0.2319E+01-0.3182E+01*SB +0.3572E+01*SB2-0.1431E+01*SB3) - A1=-0.2622E+00+0.3085E+00*SB -0.4394E+00*SB2+0.1496E+00*SB3 - A2= 0.9481E+01-0.3627E+01*SB +0.5640E+01*SB2-0.2265E+01*SB3 - A3= 0.5000E+02-0.1851E+02*SB +0.2640E+01*SB2-0.6001E+00*SB3 - A4= 0.1566E+01-0.7375E+00*SB +0.8736E+00*SB2-0.3449E+00*SB3 - A5=-0.7983E-01+0.3236E+01*SB -0.3373E+01*SB2+0.1236E+01*SB3 - goto 100 -C Ifl = -3 - 16 A0=Exp(-0.1855E+01-0.5302E+01*SB +0.8433E+00*SB2-0.1236E+00*SB3) - A1=-0.4000E-02-0.1345E+01*SB +0.1192E+01*SB2-0.3039E+00*SB3 - A2= 0.6870E+01+0.1246E+01*SB -0.8968E+00*SB2-0.9791E-01*SB3 - A3= 0.0000E+00+0.4616E+01*SB +0.1026E+02*SB2+0.2844E+02*SB3 - A4= 0.1000E-02+0.4098E+00*SB -0.4250E+00*SB2+0.1100E+00*SB3 - A5= 0.0000E+00-0.2151E+01*SB +0.2991E+01*SB2-0.7717E+00*SB3 - goto 100 -C Ifl = -4 - 17 A0=SB** 0.7722E+00*Exp(-0.7241E+01-0.7885E-01*SB -0.1124E+01*SB2) - A1=-0.3971E+00+0.9132E+00*SB -0.1175E+01*SB2+0.3573E+00*SB3 - A2= 0.6367E+01-0.6565E+01*SB +0.8114E+01*SB2-0.2666E+01*SB3 - A3= 0.2878E+02-0.2000E+02*SB +0.7000E+00*SB2+0.3000E+02*SB3 - A4= 0.1010E+00-0.4592E+00*SB +0.5877E+00*SB2-0.1472E+00*SB3 - A5= 0.1749E+00+0.3875E+01*SB -0.3768E+01*SB2+0.1316E+01*SB3 - goto 100 -C Ifl = -5 - 18 A0=SB** 0.1299E+00*Exp(-0.4868E+01-0.4339E+01*SB +0.7080E+00*SB2) - A1=-0.1705E+00-0.3381E+00*SB +0.5287E+00*SB2-0.2644E+00*SB3 - A2= 0.5610E+01-0.1365E+01*SB +0.1835E+01*SB2-0.5655E+00*SB3 - A3=-0.1001E+01+0.3044E+01*SB +0.2680E+01*SB2+0.1426E+02*SB3 - A4= 0.3814E-02+0.3430E+00*SB -0.6926E+00*SB2+0.3486E+00*SB3 - A5= 0.1156E+01+0.2016E+01*SB -0.1674E+01*SB2+0.5981E+00*SB3 - goto 100 -C Ifl = -6 - 19 A0=SB** 0.9819E+00*Exp(-0.7859E+01+0.6819E+00*SB -0.3386E+01*SB2) - A1=-0.1055E+00-0.1413E+01*SB +0.3451E+01*SB2-0.2466E+01*SB3 - A2= 0.4055E+01+0.8107E+01*SB -0.1576E+02*SB2+0.8094E+01*SB3 - A3= 0.3799E+01+0.9616E+01*SB -0.1984E+02*SB2+0.2641E+02*SB3 - A4= 0.3619E+00-0.8627E+00*SB -0.9390E-01*SB2+0.9196E+00*SB3 - A5= 0.3779E+01-0.6073E+01*SB +0.9999E+01*SB2-0.4304E+01*SB3 - goto 100 - - 2 Goto(21,22,23,24,25,26,27,28,29)Iflv -C Ifl = 2 - 21 A0=Exp( 0.2790E+00+0.7294E+00*SB -0.2202E+01*SB2+0.8599E+00*SB3) - A1= 0.5380E+00-0.2261E+00*SB +0.4636E+00*SB2-0.1871E+00*SB3 - A2= 0.3259E+01+0.2141E+01*SB -0.2947E+01*SB2+0.1245E+01*SB3 - A3=-0.8390E+00+0.1448E+01*SB -0.2331E+01*SB2+0.8658E+00*SB3 - A4= 0.1847E+01-0.3943E+01*SB +0.5998E+01*SB2-0.2191E+01*SB3 - A5= 0.0000E+00-0.9719E+00*SB +0.2830E+01*SB2-0.1137E+01*SB3 - goto 100 -C Ifl = 1 - 22 A0=Exp(-0.1318E+01+0.2328E-01*SB +0.5179E-01*SB2-0.1305E+00*SB3) - A1= 0.2760E+00+0.4429E-01*SB -0.2626E-01*SB2+0.7143E-02*SB3 - A2= 0.3660E+01+0.5232E+00*SB +0.5491E-01*SB2-0.4115E-02*SB3 - A3= 0.2910E+02-0.2000E+02*SB +0.6631E+01*SB2-0.3050E-01*SB3 - A4= 0.8010E+00-0.2688E+00*SB +0.1051E-01*SB2+0.1195E-01*SB3 - A5= 0.0000E+00+0.2887E+00*SB -0.1398E+00*SB2+0.8194E-01*SB3 - goto 100 -C Ifl = 0 - 23 A0=Exp(-0.1623E+01-0.7232E+00*SB +0.1889E+00*SB2+0.1140E+00*SB3) - A1=-0.5000E+00+0.8611E-01*SB +0.2203E-01*SB2-0.1401E-01*SB3 - A2= 0.3821E+01+0.8976E+00*SB +0.1400E+00*SB2-0.9163E-01*SB3 - A3= 0.5809E+01-0.5060E+01*SB +0.3808E+00*SB2+0.2519E+00*SB3 - A4= 0.4500E+00-0.5121E+00*SB +0.1979E+00*SB2-0.2705E-01*SB3 - A5= 0.0000E+00+0.1210E+01*SB -0.2921E+00*SB2+0.1240E+00*SB3 - goto 100 -C Ifl = -1 - 24 A0=Exp(-0.6986E-01-0.5954E+00*SB -0.1582E+01*SB2+0.5104E+00*SB3) - A1=-0.8461E+00+0.2127E+00*SB +0.9425E-01*SB2-0.5264E-01*SB3 - A2= 0.1200E+02+0.1659E+01*SB -0.5354E+01*SB2+0.1795E+01*SB3 - A3= 0.2958E+02+0.3000E+02*SB +0.3000E+02*SB2-0.1965E+02*SB3 - A4= 0.4000E+01-0.4865E+00*SB +0.9460E+00*SB2+0.3432E+00*SB3 - A5=-0.3378E+01+0.1656E+01*SB +0.1123E+01*SB2-0.4667E+00*SB3 - goto 100 -C Ifl = -2 - 25 A0=Exp(-0.1929E+01-0.2626E+01*SB +0.2926E+01*SB2-0.1297E+01*SB3) - A1=-0.6627E+00+0.4561E+00*SB -0.3818E+00*SB2+0.1239E+00*SB3 - A2= 0.9506E+01-0.2724E+01*SB +0.4283E+01*SB2-0.1804E+01*SB3 - A3= 0.1897E+02+0.1642E+01*SB -0.8390E+01*SB2+0.3894E+01*SB3 - A4= 0.1024E+01-0.1786E+00*SB +0.4535E+00*SB2-0.2075E+00*SB3 - A5=-0.1746E+01+0.3572E+01*SB -0.2908E+01*SB2+0.1093E+01*SB3 - goto 100 -C Ifl = -3 - 26 A0=Exp(-0.4913E+00-0.6866E+01*SB +0.1432E+01*SB2-0.1749E+00*SB3) - A1=-0.1157E+00-0.1567E+01*SB +0.1439E+01*SB2-0.3724E+00*SB3 - A2= 0.7730E+01+0.9748E+00*SB -0.1157E+01*SB2-0.8358E-02*SB3 - A3=-0.6050E+00+0.1835E+01*SB +0.3788E+01*SB2+0.3000E+02*SB3 - A4= 0.1620E-08+0.4590E+00*SB -0.4070E+00*SB2+0.8900E-01*SB3 - A5=-0.7048E+00-0.2505E+01*SB +0.4000E+01*SB2-0.1161E+01*SB3 - goto 100 -C Ifl = -4 - 27 A0=SB** 0.7393E+00*Exp(-0.6518E+01-0.3998E+00*SB -0.1111E+01*SB2) - A1=-0.6482E+00+0.1125E+01*SB -0.1290E+01*SB2+0.3940E+00*SB3 - A2= 0.8487E+01-0.9235E+01*SB +0.9353E+01*SB2-0.2913E+01*SB3 - A3= 0.2265E+02-0.1999E+02*SB +0.4105E+01*SB2+0.2144E+02*SB3 - A4= 0.8990E-01-0.4372E+00*SB +0.5941E+00*SB2-0.1469E+00*SB3 - A5=-0.9690E+00+0.5068E+01*SB -0.4368E+01*SB2+0.1503E+01*SB3 - goto 100 -C Ifl = -5 - 28 A0=SB** 0.9880E+00*Exp(-0.7180E+01-0.2494E+01*SB +0.3561E-01*SB2) - A1=-0.4301E+00-0.2611E+00*SB +0.3914E+00*SB2-0.1638E+00*SB3 - A2= 0.5137E+01+0.1506E+01*SB -0.9588E+00*SB2-0.1596E+00*SB3 - A3= 0.1483E+02+0.2998E+02*SB +0.2357E+02*SB2-0.9353E+01*SB3 - A4= 0.2426E+00+0.1371E+00*SB -0.3791E+00*SB2+0.1948E+00*SB3 - A5= 0.1463E+01+0.1907E+00*SB +0.3557E+00*SB2+0.2097E-01*SB3 - goto 100 -C Ifl = -6 - 29 A0=SB** 0.1005E+01*Exp(-0.5255E+01-0.9866E-01*SB -0.2737E+01*SB2) - A1=-0.3140E+00-0.2055E+00*SB +0.5594E+00*SB2-0.2960E+00*SB3 - A2= 0.9227E+01-0.4569E+01*SB -0.9724E+01*SB2+0.1026E+02*SB3 - A3= 0.1131E+02-0.1972E+02*SB -0.1107E+02*SB2+0.2311E+02*SB3 - A4= 0.1488E+01+0.1737E+01*SB +0.4323E+01*SB2-0.9925E+01*SB3 - A5= 0.1895E+01-0.7350E+00*SB +0.3780E+01*SB2-0.1408E+01*SB3 - goto 100 - - 3 Goto(31,32,33,34,35,36,37,38,39)Iflv -C Ifl = 2 - 31 A0=Exp(-0.7913E+00-0.2789E+01*SB -0.7289E-01*SB2+0.1770E+00*SB3) - A1= 0.4942E+00-0.7886E-01*SB +0.9057E-01*SB2-0.5259E-01*SB3 - A2= 0.3727E+01+0.1089E+01*SB -0.1004E+01*SB2+0.4345E+00*SB3 - A3= 0.1944E+01+0.7846E+01*SB +0.7984E+01*SB2+0.5548E+01*SB3 - A4= 0.2940E-02+0.8428E-04*SB +0.1266E+00*SB2-0.3517E-01*SB3 - A5=-0.1060E+00-0.1192E-01*SB +0.1130E+01*SB2-0.4527E+00*SB3 - goto 100 -C Ifl = 1 - 32 A0=Exp(-0.1344E+01+0.7859E-02*SB +0.4623E-01*SB2-0.1273E+00*SB3) - A1= 0.2760E+00+0.4201E-01*SB -0.1795E-01*SB2+0.3212E-02*SB3 - A2= 0.3660E+01+0.5247E+00*SB +0.4405E-01*SB2+0.1391E-02*SB3 - A3= 0.2981E+02-0.2000E+02*SB +0.6566E+01*SB2+0.2479E-01*SB3 - A4= 0.7950E+00-0.2732E+00*SB +0.2470E-01*SB2+0.6157E-02*SB3 - A5= 0.0000E+00+0.2793E+00*SB -0.9197E-01*SB2+0.5953E-01*SB3 - goto 100 -C Ifl = 0 - 33 A0=Exp( 0.9746E+00-0.3252E+01*SB +0.1664E+01*SB2-0.6410E+00*SB3) - A1=-0.5271E-02-0.3198E+00*SB +0.1279E+00*SB2-0.1256E-02*SB3 - A2= 0.5740E+01-0.3139E+01*SB +0.3841E+01*SB2-0.1415E+01*SB3 - A3= 0.7161E-01-0.4363E+01*SB +0.4925E+01*SB2-0.1614E+01*SB3 - A4= 0.1860E+01+0.1342E+01*SB -0.2234E+01*SB2+0.1047E+01*SB3 - A5= 0.7409E-01+0.2390E+01*SB -0.1457E+01*SB2+0.5853E+00*SB3 - goto 100 -C Ifl = -1 - 34 A0=Exp(-0.8454E+00-0.3334E+01*SB +0.3591E+01*SB2-0.1485E+01*SB3) - A1=-0.2826E-02-0.2810E+00*SB -0.3809E-01*SB2+0.6585E-01*SB3 - A2= 0.9139E+01-0.2811E+01*SB +0.4730E+01*SB2-0.2157E+01*SB3 - A3=-0.3120E+00+0.1217E+01*SB -0.1726E+01*SB2+0.6220E+00*SB3 - A4= 0.1793E-01-0.4608E-01*SB +0.5294E-01*SB2-0.1709E-01*SB3 - A5=-0.1471E+00+0.1104E+01*SB -0.1358E+01*SB2+0.7200E+00*SB3 - goto 100 -C Ifl = -2 - 35 A0=Exp(-0.1398E+01-0.3536E+01*SB +0.3849E+01*SB2-0.1549E+01*SB3) - A1=-0.1332E-01-0.2155E-01*SB -0.3404E+00*SB2+0.1569E+00*SB3 - A2= 0.9981E+01-0.3499E+01*SB +0.5448E+01*SB2-0.2198E+01*SB3 - A3= 0.3736E+02-0.2000E+02*SB +0.6675E+01*SB2-0.7276E+00*SB3 - A4= 0.1705E+01-0.1013E+01*SB +0.1122E+01*SB2-0.4057E+00*SB3 - A5=-0.1189E-01+0.2698E+01*SB -0.3429E+01*SB2+0.1389E+01*SB3 - goto 100 -C Ifl = -3 - 36 A0=Exp(-0.2979E+01-0.6085E+01*SB +0.2428E+01*SB2-0.6482E+00*SB3) - A1=-0.1372E+00-0.1281E+00*SB +0.1587E+00*SB2-0.9637E-01*SB3 - A2= 0.7009E+01-0.1609E+01*SB +0.2765E+01*SB2-0.1177E+01*SB3 - A3= 0.1308E+01+0.9583E+01*SB +0.2360E+02*SB2+0.2999E+02*SB3 - A4= 0.2509E-01+0.2106E+00*SB -0.4405E+00*SB2+0.2075E+00*SB3 - A5=-0.2069E-01+0.1971E+01*SB -0.1615E+01*SB2+0.6039E+00*SB3 - goto 100 -C Ifl = -4 - 37 A0=SB** 0.8072E+00*Exp(-0.6920E+01-0.5031E+00*SB -0.9965E+00*SB2) - A1=-0.2118E+00+0.7930E+00*SB -0.1101E+01*SB2+0.3302E+00*SB3 - A2= 0.8039E+01-0.7170E+01*SB +0.8657E+01*SB2-0.2893E+01*SB3 - A3= 0.2926E+02-0.1993E+02*SB +0.1841E+01*SB2+0.2996E+02*SB3 - A4= 0.1339E+00-0.5531E+00*SB +0.6505E+00*SB2-0.1595E+00*SB3 - A5= 0.7439E+00+0.3307E+01*SB -0.3284E+01*SB2+0.1152E+01*SB3 - goto 100 -C Ifl = -5 - 38 A0=SB** 0.9925E+00*Exp(-0.2190E+01-0.3393E+01*SB -0.8631E+00*SB2) - A1=-0.1261E+00-0.2368E+00*SB +0.4143E+00*SB2-0.1577E+00*SB3 - A2= 0.4585E+01+0.5227E+01*SB -0.3248E+01*SB2-0.2599E+00*SB3 - A3=-0.1094E+01+0.4927E+00*SB -0.9921E+00*SB2+0.3138E+01*SB3 - A4= 0.1396E+00+0.2562E+00*SB +0.1844E+00*SB2-0.1599E+00*SB3 - A5= 0.8621E+00+0.4715E+00*SB +0.2547E+01*SB2-0.8429E+00*SB3 - goto 100 -C Ifl = -6 - 39 A0=SB** 0.1016E+01*Exp(-0.5397E+01-0.1979E+01*SB -0.2441E+00*SB2) - A1=-0.1426E+00-0.2861E+00*SB +0.7434E+00*SB2-0.5214E+00*SB3 - A2= 0.6363E+01+0.4028E+00*SB -0.8356E+01*SB2+0.6814E+01*SB3 - A3=-0.2526E+00+0.2425E+01*SB -0.1407E+02*SB2+0.3000E+02*SB3 - A4= 0.1125E+00-0.1089E+01*SB +0.9977E+01*SB2+0.1000E+02*SB3 - A5= 0.2669E+01-0.6366E+00*SB +0.4355E+01*SB2-0.2919E+01*SB3 - goto 100 - - 4 Goto(41,42,43,44,45,46,47,48,49)Iflv -C Ifl = 2 - 41 A0=Exp( 0.3760E+00+0.5491E+00*SB -0.1845E+01*SB2+0.6803E+00*SB3) - A1= 0.5650E+00-0.1953E+00*SB +0.3761E+00*SB2-0.1419E+00*SB3 - A2= 0.3464E+01+0.3817E+01*SB -0.5384E+01*SB2+0.2057E+01*SB3 - A3=-0.5850E+00+0.5566E+01*SB -0.9000E+01*SB2+0.3433E+01*SB3 - A4= 0.2322E+01-0.1431E+00*SB +0.3901E+00*SB2-0.1678E+00*SB3 - A5= 0.0000E+00-0.7370E+00*SB +0.2310E+01*SB2-0.8743E+00*SB3 - goto 100 -C Ifl = 1 - 42 A0=Exp(-0.1324E+01+0.1169E-01*SB +0.1969E-01*SB2-0.7583E-01*SB3) - A1= 0.2890E+00+0.5832E-01*SB -0.2921E-01*SB2+0.4701E-02*SB3 - A2= 0.3580E+01+0.5291E+00*SB -0.5662E-02*SB2+0.2746E-01*SB3 - A3= 0.3021E+02-0.1999E+02*SB +0.6250E+01*SB2-0.3035E+00*SB3 - A4= 0.7990E+00-0.2531E+00*SB +0.5556E-02*SB2+0.8272E-02*SB3 - A5= 0.0000E+00+0.3674E+00*SB -0.1383E+00*SB2+0.4665E-01*SB3 - goto 100 -C Ifl = 0 - 43 A0=Exp(-0.1920E+00-0.7015E+00*SB -0.9113E+00*SB2+0.2352E+00*SB3) - A1=-0.2120E+00+0.1133E-01*SB -0.1553E-01*SB2+0.2822E-02*SB3 - A2= 0.4549E+01+0.1250E+01*SB -0.4647E+00*SB2+0.9617E-01*SB3 - A3= 0.1197E+02-0.4156E+01*SB +0.1413E+00*SB2+0.1607E+00*SB3 - A4= 0.1616E+01+0.1082E+00*SB -0.6651E+00*SB2+0.2356E+00*SB3 - A5= 0.0000E+00+0.1824E+01*SB -0.2063E+00*SB2+0.1148E-01*SB3 - goto 100 -C Ifl = -1 - 44 A0=Exp(-0.1388E+01-0.7408E+00*SB -0.6454E+00*SB2+0.2373E+00*SB3) - A1=-0.2928E+00-0.1726E-01*SB +0.4033E-01*SB2-0.2514E-01*SB3 - A2= 0.9975E+01-0.2048E+01*SB -0.6060E+00*SB2+0.5225E+00*SB3 - A3= 0.2687E+02-0.4683E+01*SB -0.1999E+02*SB2+0.1188E+02*SB3 - A4= 0.4000E+01-0.6773E+00*SB +0.4301E+00*SB2+0.4524E+00*SB3 - A5=-0.7164E+00+0.7488E+00*SB +0.5766E+00*SB2-0.2609E+00*SB3 - goto 100 -C Ifl = -2 - 45 A0=Exp(-0.2272E+01-0.2998E+01*SB +0.3282E+01*SB2-0.1203E+01*SB3) - A1=-0.2062E+00+0.3320E+00*SB -0.5074E+00*SB2+0.1655E+00*SB3 - A2= 0.9667E+01-0.3497E+01*SB +0.5271E+01*SB2-0.1984E+01*SB3 - A3= 0.4996E+02-0.3241E+01*SB -0.1425E+02*SB2+0.3849E+01*SB3 - A4= 0.1619E+01-0.5354E+00*SB +0.5753E+00*SB2-0.2238E+00*SB3 - A5= 0.8755E-01+0.3195E+01*SB -0.3496E+01*SB2+0.1197E+01*SB3 - goto 100 -C Ifl = -3 - 46 A0=Exp(-0.1864E+01-0.5258E+01*SB +0.1034E+01*SB2-0.1550E+00*SB3) - A1= 0.1000E-02-0.1090E+01*SB +0.8345E+00*SB2-0.1887E+00*SB3 - A2= 0.6898E+01-0.4951E+00*SB +0.4279E+00*SB2-0.2727E+00*SB3 - A3= 0.0000E+00+0.4322E+01*SB +0.8181E+01*SB2+0.2309E+02*SB3 - A4= 0.1000E-02+0.3550E+00*SB -0.3220E+00*SB2+0.7294E-01*SB3 - A5= 0.0000E+00-0.1347E+01*SB +0.1896E+01*SB2-0.4491E+00*SB3 - goto 100 -C Ifl = -4 - 47 A0=SB** 0.7528E+00*Exp(-0.7684E+01+0.6791E-01*SB -0.9094E+00*SB2) - A1=-0.3732E+00+0.8408E+00*SB -0.1020E+01*SB2+0.3046E+00*SB3 - A2= 0.4984E+01-0.5534E+01*SB +0.6418E+01*SB2-0.1856E+01*SB3 - A3= 0.3761E+02-0.1999E+02*SB -0.3358E+01*SB2+0.2999E+02*SB3 - A4= 0.1161E+00-0.4680E+00*SB +0.5567E+00*SB2-0.1633E+00*SB3 - A5= 0.3028E+00+0.3339E+01*SB -0.3004E+01*SB2+0.9160E+00*SB3 - goto 100 -C Ifl = -5 - 48 A0=SB** 0.1011E+01*Exp(-0.7217E+01-0.2288E+01*SB +0.3450E+00*SB2) - A1=-0.1955E+00-0.3371E+00*SB +0.5111E+00*SB2-0.2210E+00*SB3 - A2= 0.4302E+01-0.1214E+01*SB +0.3104E+01*SB2-0.1408E+01*SB3 - A3= 0.1487E+02+0.1549E+02*SB +0.2875E+02*SB2-0.1922E+02*SB3 - A4= 0.8935E-02+0.3571E+00*SB -0.6668E+00*SB2+0.3037E+00*SB3 - A5= 0.1570E+01+0.7105E+00*SB -0.6070E+00*SB2+0.3796E+00*SB3 - goto 100 -C Ifl = -6 - 49 A0=SB** 0.9986E+00*Exp(-0.5847E+01-0.2798E+00*SB -0.9882E+00*SB2) - A1=-0.2154E+00-0.8282E-01*SB +0.3611E-01*SB2+0.2623E-01*SB3 - A2= 0.3250E+01+0.9635E+01*SB -0.1274E+02*SB2+0.4453E+01*SB3 - A3=-0.2594E+01+0.9097E+01*SB +0.1581E+02*SB2-0.9123E+01*SB3 - A4= 0.1768E+01-0.2749E+01*SB +0.9999E+01*SB2+0.9995E+01*SB3 - A5= 0.2521E+01-0.1802E-01*SB +0.4820E+00*SB2+0.2004E+00*SB3 - goto 100 - - 5 Goto(51,52,53,54,55,56,57,58,59)Iflv -C Ifl = 2 - 51 A0=Exp( 0.7248E-01+0.3941E+00*SB -0.1772E+01*SB2+0.7629E+00*SB3) - A1= 0.4964E+00-0.1224E+00*SB +0.3646E+00*SB2-0.1685E+00*SB3 - A2= 0.3000E+01+0.2780E+01*SB -0.4028E+01*SB2+0.1816E+01*SB3 - A3=-0.1064E+01+0.3062E+01*SB -0.5927E+01*SB2+0.2785E+01*SB3 - A4= 0.3193E+01+0.1499E+01*SB -0.2765E+01*SB2+0.1019E+01*SB3 - A5= 0.1524E-01-0.4541E+00*SB +0.2281E+01*SB2-0.1033E+01*SB3 - goto 100 -C Ifl = 1 - 52 A0=Exp(-0.1794E+01-0.2055E+00*SB -0.3350E-01*SB2-0.5084E-01*SB3) - A1= 0.1748E+00+0.4637E-01*SB -0.2048E-01*SB2+0.2596E-02*SB3 - A2= 0.3321E+01+0.6253E+00*SB +0.2148E-01*SB2+0.1288E-01*SB3 - A3= 0.4355E+02-0.2000E+02*SB +0.5486E+01*SB2+0.1536E+00*SB3 - A4= 0.9586E+00-0.3217E+00*SB +0.4458E-01*SB2-0.1404E-03*SB3 - A5=-0.6595E-02+0.3499E+00*SB -0.7048E-01*SB2+0.2619E-01*SB3 - goto 100 -C Ifl = 0 - 53 A0=Exp(-0.6194E+00-0.2643E+00*SB -0.1875E+01*SB2+0.6011E+00*SB3) - A1=-0.2600E+00+0.8704E-01*SB -0.7375E-01*SB2+0.1876E-01*SB3 - A2= 0.4620E+01+0.1578E+01*SB -0.8411E+00*SB2+0.1527E+00*SB3 - A3= 0.1604E+02-0.1230E+02*SB +0.6939E+01*SB2-0.2012E+01*SB3 - A4= 0.1255E+01+0.4769E+00*SB -0.9915E+00*SB2+0.3439E+00*SB3 - A5= 0.1116E-02+0.2409E+01*SB -0.4442E+00*SB2+0.3431E-01*SB3 - goto 100 -C Ifl = -1 - 54 A0=Exp(-0.1571E+01-0.1905E+00*SB -0.8672E+00*SB2+0.2070E+00*SB3) - A1=-0.3266E+00+0.6428E-01*SB -0.8694E-01*SB2+0.1778E-01*SB3 - A2= 0.8921E+01-0.5010E+00*SB -0.9658E+00*SB2+0.3893E+00*SB3 - A3= 0.1329E+02+0.4652E+01*SB -0.2000E+02*SB2+0.1001E+02*SB3 - A4= 0.3283E+01-0.3400E+00*SB -0.1957E+00*SB2+0.8063E+00*SB3 - A5=-0.5701E+00+0.4042E+00*SB +0.5239E+00*SB2-0.1665E+00*SB3 - goto 100 -C Ifl = -2 - 55 A0=Exp(-0.2281E+01-0.2768E+01*SB +0.3137E+01*SB2-0.1278E+01*SB3) - A1=-0.2624E+00+0.4142E+00*SB -0.5936E+00*SB2+0.1937E+00*SB3 - A2= 0.9438E+01-0.3179E+01*SB +0.5107E+01*SB2-0.2179E+01*SB3 - A3= 0.5000E+02-0.1802E+02*SB -0.7515E+01*SB2+0.2991E+01*SB3 - A4= 0.1809E+01-0.9121E+00*SB +0.8854E+00*SB2-0.3582E+00*SB3 - A5= 0.4056E-01+0.3033E+01*SB -0.3431E+01*SB2+0.1253E+01*SB3 - goto 100 -C Ifl = -3 - 56 A0=Exp(-0.2318E+01-0.4104E+01*SB -0.1502E+00*SB2+0.1693E+00*SB3) - A1=-0.2251E-01-0.1101E+01*SB +0.1037E+01*SB2-0.3290E+00*SB3 - A2= 0.6989E+01+0.1794E+01*SB -0.1811E+01*SB2+0.3061E+00*SB3 - A3= 0.7972E+00+0.7806E+01*SB +0.1869E+02*SB2+0.2999E+02*SB3 - A4= 0.4795E-01+0.1622E+00*SB -0.3977E+00*SB2+0.1920E+00*SB3 - A5=-0.5275E-01-0.2616E+01*SB +0.3076E+01*SB2-0.7425E+00*SB3 - goto 100 -C Ifl = -4 - 57 A0=SB** 0.8431E+00*Exp(-0.6539E+01-0.1875E+00*SB -0.1346E+01*SB2) - A1=-0.4970E+00+0.9062E+00*SB -0.1169E+01*SB2+0.3703E+00*SB3 - A2= 0.4939E+01-0.2995E+01*SB +0.4483E+01*SB2-0.1704E+01*SB3 - A3= 0.3113E+02-0.1997E+02*SB +0.1540E+01*SB2+0.3000E+02*SB3 - A4= 0.1349E+00-0.5418E+00*SB +0.6142E+00*SB2-0.1360E+00*SB3 - A5=-0.8590E+00+0.3956E+01*SB -0.3612E+01*SB2+0.1401E+01*SB3 - goto 100 -C Ifl = -5 - 58 A0=SB** 0.2639E-01*Exp(-0.2099E+01-0.2681E+01*SB +0.2925E+00*SB2) - A1=-0.2243E+00-0.5343E-01*SB -0.1953E-01*SB2+0.1586E-01*SB3 - A2= 0.4294E+01+0.1102E+01*SB -0.1822E+00*SB2-0.2481E+00*SB3 - A3=-0.9998E+00+0.8275E-01*SB +0.5494E+00*SB2-0.1982E+00*SB3 - A4= 0.5904E-04+0.9222E-01*SB -0.9293E-01*SB2+0.9159E-01*SB3 - A5= 0.2657E+00+0.1770E+01*SB -0.7111E+00*SB2+0.2525E+00*SB3 - goto 100 -C Ifl = -6 - 59 A0=SB** 0.1009E+01*Exp(-0.7032E+01+0.4562E+01*SB -0.9081E+01*SB2) - A1=-0.1412E+00-0.5076E+00*SB +0.9513E+00*SB2-0.4326E+00*SB3 - A2= 0.5385E+01+0.3023E+01*SB -0.1162E+02*SB2+0.7006E+01*SB3 - A3= 0.4997E+01-0.1600E+02*SB +0.1342E+02*SB2+0.1197E+02*SB3 - A4= 0.5825E+00+0.3994E+00*SB -0.1255E+01*SB2+0.6486E+00*SB3 - A5= 0.3365E+01-0.4026E+01*SB +0.8385E+01*SB2-0.2260E+01*SB3 - goto 100 - - 6 Goto(61,62,63,64,65,66,67,68,69)Iflv -C Ifl = 2 - 61 A0=Exp( 0.1590E+00+0.5580E+00*SB -0.1838E+01*SB2+0.7018E+00*SB3) - A1= 0.5110E+00-0.1625E+00*SB +0.3547E+00*SB2-0.1412E+00*SB3 - A2= 0.3158E+01+0.3962E+01*SB -0.5866E+01*SB2+0.2375E+01*SB3 - A3=-0.6000E+00+0.6144E+01*SB -0.1056E+02*SB2+0.4345E+01*SB3 - A4= 0.2306E+01-0.4669E-01*SB +0.2711E+00*SB2-0.1640E+00*SB3 - A5= 0.0000E+00-0.6638E+00*SB +0.2239E+01*SB2-0.8843E+00*SB3 - goto 100 -C Ifl = 1 - 62 A0=Exp(-0.1182E+01+0.1449E+00*SB +0.2753E-01*SB2-0.1009E+00*SB3) - A1= 0.2540E+00+0.2686E-01*SB -0.1546E-01*SB2+0.5396E-02*SB3 - A2= 0.3442E+01+0.5576E+00*SB +0.1937E-01*SB2+0.6696E-02*SB3 - A3= 0.2545E+02-0.2000E+02*SB +0.7355E+01*SB2-0.7058E+00*SB3 - A4= 0.9170E+00-0.3090E+00*SB +0.1705E-01*SB2+0.8534E-02*SB3 - A5= 0.0000E+00+0.1449E+00*SB -0.7821E-01*SB2+0.6405E-01*SB3 - goto 100 -C Ifl = 0 - 63 A0=Exp(-0.3410E+00-0.9613E+00*SB -0.4969E+00*SB2+0.9360E-01*SB3) - A1=-0.2400E+00+0.1473E+00*SB -0.1593E+00*SB2+0.4538E-01*SB3 - A2= 0.4841E+01+0.9311E+00*SB +0.1601E-03*SB2-0.1331E+00*SB3 - A3= 0.7427E+01-0.1397E+01*SB +0.1489E+00*SB2-0.2848E+00*SB3 - A4= 0.9600E+00+0.3697E+00*SB -0.4246E+00*SB2+0.1032E+00*SB3 - A5= 0.0000E+00+0.2484E+01*SB -0.9908E+00*SB2+0.2568E+00*SB3 - goto 100 -C Ifl = -1 - 64 A0=Exp( 0.1176E+00-0.3418E+01*SB +0.3529E+01*SB2-0.1367E+01*SB3) - A1=-0.3654E+00+0.1914E+00*SB -0.2192E+00*SB2+0.6933E-01*SB3 - A2= 0.1099E+02-0.4281E+01*SB +0.3729E+01*SB2-0.1254E+01*SB3 - A3=-0.7514E+00+0.7696E+00*SB -0.1134E+01*SB2+0.4245E+00*SB3 - A4= 0.7690E-01-0.6558E-01*SB +0.8726E-01*SB2-0.3345E-01*SB3 - A5=-0.1447E+01+0.2617E+01*SB -0.2094E+01*SB2+0.7536E+00*SB3 - goto 100 -C Ifl = -2 - 65 A0=Exp(-0.2412E+01-0.2522E+01*SB +0.3126E+01*SB2-0.1305E+01*SB3) - A1=-0.2353E+00+0.3118E+00*SB -0.4864E+00*SB2+0.1689E+00*SB3 - A2= 0.9017E+01-0.2437E+01*SB +0.4659E+01*SB2-0.2044E+01*SB3 - A3= 0.5000E+02-0.1158E+02*SB -0.9260E+01*SB2+0.2847E+01*SB3 - A4= 0.1726E+01-0.6849E+00*SB +0.7864E+00*SB2-0.3300E+00*SB3 - A5= 0.5080E-01+0.2858E+01*SB -0.3297E+01*SB2+0.1246E+01*SB3 - goto 100 -C Ifl = -3 - 66 A0=Exp(-0.1966E+01-0.4405E+01*SB +0.2436E+00*SB2+0.4576E-01*SB3) - A1=-0.4000E-02-0.1229E+01*SB +0.1118E+01*SB2-0.2988E+00*SB3 - A2= 0.6902E+01+0.1266E+01*SB -0.1068E+01*SB2+0.3062E-01*SB3 - A3= 0.0000E+00+0.3987E+01*SB +0.9389E+01*SB2+0.1881E+02*SB3 - A4= 0.1000E-02+0.3528E+00*SB -0.4201E+00*SB2+0.1248E+00*SB3 - A5= 0.0000E+00-0.2149E+01*SB +0.2925E+01*SB2-0.7609E+00*SB3 - goto 100 -C Ifl = -4 - 67 A0=SB** 0.7561E+00*Exp(-0.6960E+01+0.5634E-01*SB -0.1170E+01*SB2) - A1=-0.4232E+00+0.9269E+00*SB -0.1161E+01*SB2+0.3470E+00*SB3 - A2= 0.6057E+01-0.5790E+01*SB +0.7352E+01*SB2-0.2435E+01*SB3 - A3= 0.2941E+02-0.1999E+02*SB -0.8345E+00*SB2+0.3000E+02*SB3 - A4= 0.1069E+00-0.4620E+00*SB +0.5614E+00*SB2-0.1336E+00*SB3 - A5=-0.1865E+00+0.3953E+01*SB -0.3791E+01*SB2+0.1315E+01*SB3 - goto 100 -C Ifl = -5 - 68 A0=SB** 0.5661E-02*Exp(-0.2123E+01-0.3026E+01*SB +0.1912E+00*SB2) - A1=-0.2011E+00-0.1338E-01*SB -0.3974E-01*SB2+0.1948E-01*SB3 - A2= 0.4906E+01+0.1740E+01*SB -0.1387E+01*SB2+0.1263E+00*SB3 - A3=-0.1000E+01+0.5767E-01*SB +0.6377E+00*SB2+0.4736E-01*SB3 - A4= 0.5927E-04+0.1039E+00*SB -0.9797E-01*SB2+0.6881E-01*SB3 - A5= 0.4017E+00+0.1981E+01*SB -0.7758E+00*SB2+0.2916E+00*SB3 - goto 100 -C Ifl = -6 - 69 A0=SB** 0.1008E+01*Exp(-0.7211E+01+0.3273E+01*SB -0.6979E+01*SB2) - A1=-0.1026E+00-0.4948E+00*SB +0.1188E+01*SB2-0.8016E+00*SB3 - A2= 0.5397E+01+0.2135E+01*SB -0.9531E+01*SB2+0.6115E+01*SB3 - A3= 0.4966E+01-0.1111E+02*SB +0.4732E+01*SB2+0.1568E+02*SB3 - A4= 0.5345E+00-0.1935E+00*SB +0.5816E+00*SB2-0.6794E+00*SB3 - A5= 0.3569E+01-0.3477E+01*SB +0.8756E+01*SB2-0.4139E+01*SB3 - goto 100 - - 311 stop 'This option is not currently supported.' - - 100 CONTINUE - P012 = A0 *(x**A1) *((1.-x)**A2) - P34 = (1.+A3*(x**A4)) - P5 = (log(1.+1./x))**A5 -C - PDFD = P012 * P34 * P5 - PDF = PDFD -C - Ctq2pPd = PDF - if(Ctq2pPd.lt.0.0) then - Ctq2pPd = 0.0 - Irt=1 - endif - - Ist = Iset - - Lp = Iprtn - Qsto = QQ - - Return -C ----------------------- - ENTRY Wlamd2p (Iset, Iorder, Neff) - - Iorder = IORD (Iset) - Wlamd2p = VLM (Neff, Iset) - - Ctq2pPd = 0.0 - RETURN -C ----------------------- - Entry PrCtq2p - > (Iset, Iordr, Ischeme, MxFlv, - > Alam4, Alam5, Alam6, Amas4, Amas5, Amas6, - > Xmin, Qini, Qmax, ExpNor) - -C Return QCD parameters and Fitting parameters -C associated with parton distribution set Iset. -C Iord : Order Of Fit -C Ischeme : (0, 1, 2) for (LO, MS-bar-NLO, DIS-NLO) resp. -C MxFlv : Maximum number of flavors included -C Alam_i : i = 4,5,6 Effective lambda for i-flavors - -C Amas_i : i = 4,5,6 Mass parameter for flavor i -C Xmin, Qini, Qmax : self explanary -C ExpNor(I) : Normalization factor for the experimental data set used in -C obtaining the best global fit for parton distributions Iset: -C I = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 -C BCDMS NMC90 NMC280 CCFR E605 WA70 E706 UA6 H1 ZEUS - - Iordr = Iord (Iset) - Ischeme= Isch (Iset) - MxFlv = Nqrk (Iset) - - Alam4 = Vlm(4,Iset) - Alam5 = Vlm(5,Iset) - Alam6 = Vlm(6,Iset) - - Amas4 = Qms(4,Iset) - Amas5 = Qms(5,Iset) - Amas6 = Qms(6,Iset) - - Xmin = Xmn (Iset) - Qini = Qmn (Iset) - Qmax = Qmx (Iset) - - Do 201 Iexp = 1, Nexp(Iset) - 201 ExpNor(Iexp) = ExpN(Iexp, Iset) - - Ctq2pPd = 0.0 - Return -C ************************* - END diff --git a/PDF/spdf/ctq2ppf.F b/PDF/spdf/ctq2ppf.F deleted file mode 100644 index b57e29a0bf1..00000000000 --- a/PDF/spdf/ctq2ppf.F +++ /dev/null @@ -1,155 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:48 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:10 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C Version 2 CTEQ distribution function in a parametrized form. - -C By: J. Botts, H.L. Lai, J.G. Morfin, J.F. Owens, J. Qiu, W.K. Tung -C & H. Weerts - -C To avoid the proliferation of parton distribution functions, we recommend -C that these distributions should replace Version 1 CTEQ distributions for -C general usage. The differences between the two sets of distributions, as -C briefly described below, do not significantly affect most applications for -C fixed-target and hadron-collider applications. - -C Both CTEQ1 and CTEQ2 distributions fit existing DIS, Drell-Yan and Direct -C phton data with excellent chi-squares. They represent two distinct ways to -C resolve the inconsistency between CCFR and NMC measurements on F2 at small-x -C and the neutrino dimuon measurements of s(x), as discovered by the CTEQ1 -C analysis: in the CTEQ1 analysis, the F2 measurements of CCFR and NMC are -C taken seriously, leaving out the dimuon information on s(x); whereas in the -C CTEQ2 analysis, thelatest CCFR NLO dimuon analysis of s(x) is used (within -C errors) as input butleaving out the small-x F2 data which conflict with this -C input. The small-xbehavior of the parton distributions are contrained in the -C latter case by thenewly released HERA data. For details, see our -C forthcoming paper. - -C This file contains three versions of the same CTEQ2 parton distributions: -C -C Two "front-end" subprograms: -C FUNCTION Ctq2pPf (Iset, Iparton, X, Q, Irt) -C returns the PROBABILITY density for a GIVEN flavor; -C SUBROUTINE Ctq2pPs(Iset, Pdf, XX, QQ, Irt) -C returns an array of MOMENTUM densities for ALL flavors; -C One lower-level subprogram: -C FUNCTION Ctq2pPd (Iset, Iprtn, XX, QQ, Irt) -C returns the MOMENTUM density of a GIVEN valence or sea distribution. -C Supplementary functions to return the relevant QCD parameters and other -C information concerning these distributions are also included (see below). - -C Since this is an initial distribution of version 2, it is -C useful for the authors to maintain a record of the distribution list in -C case there are revisions or corrections. -C In the interest of maintaining the integrity of this package, -C please do not freely distribute this program package; instead, refer any -C interested colleagues to direct their request for a copy to: -C Botts@hades.ifh.de or Lai@cteq11.pa.msu.edu - -C If you have detailed questions concerning these CTEQ2 distributions, direct -C inquires to Botts, Lai (see above) or Wu-Ki Tung (Tung@msupa.pa.msu.edu). - -C ------------------------------------------- -C Detailed instructions follow. - -C Name convention for CTEQ distributions: CTEQnSx where -C n : version number (currently n = 2) -C S : factorization scheme label: = [M D L] for [MS-bar DIS LO] -C resp. -C x : special characteristics, if any -C (e.g. S(F) for singular (flat) small-x, L for "LEP lambda value") - -C Explanation of functional arguments: - -C Iset is the set label; in this version, Iset = 1, 2, 3, 4, 5, 6 -C correspond to the following CTEQ global fits: - -C cteq2M : best fit in the MS-bar scheme -C cteq2MS : singular small-x -C cteq2MF : flat small-x -C cteq2ML : large lambda (Lambda(5) = 220 MeV) - -C cteq2L : best fit in Leading order QCD - -C cteq2D : best fit in the DIS scheme - -C Iprtn is the parton label (6, 5, 4, 3, 2, 1, 0, -1, ......, -6) -C for (t, b, c, s, d, u, g, u_bar, ..., t_bar) - -C X, Q are the usual x, Q; -C Irt is a return error code (see individual modules for explanation). -C -C --------------------------------------------- -C --> QCD parameters for parton distribution set Iset can be obtained inside -C the user's program by: -C Dum = PrCtq2p -C > (Iset, Iord, Ischeme, MxFlv, -C > Alam4, Alam5, Alam6, Amas4, Amas5, Amas6, -C > Xmin, Qini, Qmax, ExpNor) -C where all but the first argument are output parameters. -C They should be self-explanatory -- see details under ENTRY PrCtq2p. - -C Since the QCD Lambda value for the various sets are needed more often than -C the other parameters in most applications, a special function -C Wlamd2p (Iset, Iorder, Neff) is provided -C which returns the lambda value for Neff = 4,5,6 effective flavors as well as -C the order these values pertain to. - -C ---------------------------------------------- -C The range of (x, Q) used in this round of global analysis is, approxi- -C mately, 0.01 < x < 0.75 ; and 4 GeV^2 < Q^2 < 400 GeV^2 for fixed target -C experiments and 0.0001 < x < 0.01 from first official data of HERA. - -C The range of (x, Q) used in the reparametrization of the QCD evolved -C parton distributions is 10E-5 < x < 1 ; 1.6 GeV < Q < 1 TeV. The -C functional form of this parametrization is: - -C A0 * x^A1 * (1-x)^A2 * (1 + A3 * x^A4) * [log(1+1/x)]^A5 - -C with the A'coefficients being smooth functions of Q. For heavy quarks, -C a threshold factor is applied to A0 which simulates the proper Q-dependence -C of the QCD evolution in that region according to the renormalization -C scheme defined in Collins-Tung, Nucl. Phys. B278, 934 (1986). - -C Since this function is positive definite and smooth, it provides sensible -C extrapolations of the parton distributions if they are called beyond -C the original range in an application. There is no artificial boundaries -C or sharp cutoff's. -C ------------------------------------------------ - - FUNCTION Ctq2pPf (Iset, Iparton, X, Q, Irt) - -C This function returns the CTEQ parton distributions f^Iset_Iprtn/proton -C --- the PROBABILITY density - -C (Iset, Iparton, X, Q): explained above; - -C Irt : return error code: see module Ctq2pPd for explanation. - -C IMPLICIT DOUBLE PRECISION (A-H, O-Z) -C+SEQ, IMPDP. - - Ifl = Iparton - JFL = ABS(Ifl) -C Valence - IF (Ifl.Eq.1 .or. Ifl.Eq.2) THEN - VL = Ctq2pPd (Iset, Ifl, X, Q, Irt) - ELSE - VL = 0. - ENDIF -C Sea - SEA = Ctq2pPd (Iset, -JFL, X, Q, Irt) -C Full (probability) Distribution - Ctq2pPf = (VL + SEA) / X - - Return -C ************************* - END diff --git a/PDF/spdf/ctq2pps.F b/PDF/spdf/ctq2pps.F deleted file mode 100644 index 2149aa4b6b5..00000000000 --- a/PDF/spdf/ctq2pps.F +++ /dev/null @@ -1,43 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:49 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:10 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE Ctq2pPs(Iset, Pdf, X, Q, Irt) - -C This function returns the CTEQ parton distributions xf^Iset_Iprtn/proton -C --- the Momentum density in array form -c -C (Iset, X, Q): explained in header comment lines; - -C Irt : return error code -- cumulated over flavors: -C see module Ctq2pPd for explanation on individual flavors. -C Pdf (Iparton); -C Iparton = -6, -5, ...0, 1, 2 ... 6 -C has the same meaning as explained in the header comment lines. - -C Implicit Double Precision (A-H, O-Z) -C+SEQ, IMPDP. - Dimension Pdf (-6:6) - - Irt=0 - do 10 I=-6,2 - if(I.le.0) then - Pdf(I) = Ctq2pPd (Iset,I,X,Q,Irt1) - Pdf(-I)= Pdf(I) - else - Pdf(I) = Ctq2pPd (Iset,I,X,Q,Irt1) + Pdf(-I) - endif - Irt=Irt+Irt1 - 10 Continue - - Return -C ************************* - End diff --git a/PDF/spdf/ctq3pd.F b/PDF/spdf/ctq3pd.F deleted file mode 100644 index 912e3ac0c60..00000000000 --- a/PDF/spdf/ctq3pd.F +++ /dev/null @@ -1,368 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:50 cernlib -* Version 7.04 -* -* Revision 1.2 1996/10/29 09:30:59 pdflib -* more LINNUX corrections in DATA statements -* -* Revision 1.1.1.1 1996/04/12 15:29:10 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - FUNCTION Ctq3Pd (Iset, Iprtn, XX, QQ, Irt) - -C Returns xf(x,Q) -- the momentum fraction distribution !! -C Returns valence and sea rather than combined flavor distr. - -C Iset : PDF set label - -C Iprtn : Parton label: 2, 1 = d_ and u_ valence -C 0 = gluon -C -1, ... -6 = u, d, s, c, b, t sea quarks - -C XX : Bjorken-x -C QQ : scale parameter "Q" -C Irt : Return code -C 0 : no error -C 1 : parametrization is slightly negative; reset to 0.0. -C (This condition happens rarely -- only for large x where the -C absolute value of the parton distribution is extremely small.) - -C IMPLICIT DOUBLE PRECISION (A-H, O-Z) -C+SEQ, IMPDP. - - PARAMETER (D0=0D0, D1=1D0, D2=2D0, D3=3D0, D4=4D0, D10=1D1) - Parameter (Nst = 3) - -#include "pdf/expdp.inc" - + P012, P34, P5, PDFD - - DIMENSION - > Iord(Nst), Isch(Nst), Nqrk(Nst),Alm(Nst) - > , Vlm(4:6,Nst), Qms(4:6, Nst) - > , Xmn(Nst), Qmn(Nst), Qmx(Nst) - -c --------- CTEQ3M -c - DATA - > Isch(1), Iord(1), Nqrk(1), Alm(1) / 1, 2, 6, .239 / - > ,(Vlm(I,1), I=4,6) / .239, .158, .063 / - > ,(Qms(I,1), I=4,6) / 1.60, 5.00, 180.0 / - > ,Xmn(1), Qmn(1), Qmx(1) / 1.E-6, 1.60, 1.E4 / - -c --------- CTEQ3L -c - DATA - > Isch(2), Iord(2), Nqrk(2), Alm(2) / 1, 1, 6, .177 / - > ,(Vlm(I,2), I=4,6) / .177, .132, .066 / - > ,(Qms(I,2), I=4,6) / 1.60, 5.00, 180.0 / - > ,Xmn(2), Qmn(2), Qmx(2) / 1.E-6, 1.60, 1.E4 / - -c --------- CTEQ3D -c - DATA - > Isch(3), Iord(3), Nqrk(3), Alm(3) / 1, 2, 6, .247 / - > ,(Vlm(I,3), I=4,6) / .247, .164, .066 / - > ,(Qms(I,3), I=4,6) / 1.60, 5.00, 180.0 / - > ,Xmn(3), Qmn(3), Qmx(3) / 1.E-6, 1.60, 1.E4 / - - - Data Ist, Lp, Qsto / 0, -10, 1.2345 / - - save Ist, Lp, Qsto - save SB, SB2, SB3 - - X = XX - QQ = MAX(QQ,Qmn(iset)) - Irt = 0 - if(Iset.eq.Ist .and. Qsto.eq.QQ) then -C if only change is in x: - if (Iprtn.eq.Lp) goto 100 -C if change in flv is within "light" partons: - if (Iprtn.ge.-3 .and. Lp.ge.-3) goto 501 - endif - - Ip = abs(Iprtn) -C Set up Qi for SB - If (Ip .GE. 4) then - If (QQ .LE. Qms(Ip, Iset)) Then - Ctq3Pd = 0.0 - Return - Endif - Qi = Qms(ip, Iset) - Else - Qi = Qmn(Iset) - Endif -C Use "standard lambda" of parametrization program - Alam = Alm (Iset) - - SBL = LOG(QQ/Alam) / LOG(Qi/Alam) - SB = LOG (SBL) - SB2 = SB*SB - SB3 = SB2*SB - - 501 Iflv = 3 - Iprtn - - Goto (1,2,3, 311) Iset - - 1 Goto(11,12,13,14,15,16,17,18,19)Iflv -c Ifl = 2 - 11 A0=Exp(-0.7266E+00-0.1584E+01*SB +0.1259E+01*SB2-0.4305E-01*SB3) - A1= 0.5285E+00-0.3721E+00*SB +0.5150E+00*SB2-0.1697E+00*SB3 - A2= 0.4075E+01+0.8282E+00*SB -0.4496E+00*SB2+0.2107E+00*SB3 - A3= 0.3279E+01+0.5066E+01*SB -0.9134E+01*SB2+0.2897E+01*SB3 - A4= 0.4399E+00-0.5888E+00*SB +0.4802E+00*SB2-0.1664E+00*SB3 - A5= 0.3678E+00-0.8929E+00*SB +0.1592E+01*SB2-0.5713E+00*SB3 - goto 100 -c Ifl = 1 - 12 A0=Exp( 0.2259E+00+0.1237E+00*SB +0.3035E+00*SB2-0.2935E+00*SB3) - A1= 0.5085E+00+0.1651E-01*SB -0.3592E-01*SB2+0.2782E-01*SB3 - A2= 0.3732E+01+0.4901E+00*SB +0.2218E+00*SB2-0.1116E+00*SB3 - A3= 0.7011E+01-0.6620E+01*SB +0.2557E+01*SB2-0.1360E+00*SB3 - A4= 0.8969E+00-0.2429E+00*SB +0.1811E+00*SB2-0.6888E-01*SB3 - A5= 0.8636E-01+0.2558E+00*SB -0.3082E+00*SB2+0.2535E+00*SB3 - goto 100 -c Ifl = 0 - 13 A0=Exp(-0.2318E+00-0.9779E+00*SB -0.3783E+00*SB2+0.1037E-01*SB3) - A1=-0.2916E+00+0.1754E+00*SB -0.1884E+00*SB2+0.6116E-01*SB3 - A2= 0.5349E+01+0.7460E+00*SB +0.2319E+00*SB2-0.2622E+00*SB3 - A3= 0.6920E+01-0.3454E+01*SB +0.2027E+01*SB2-0.7626E+00*SB3 - A4= 0.1013E+01+0.1423E+00*SB -0.1798E+00*SB2+0.1872E-01*SB3 - A5=-0.5465E-01+0.2303E+01*SB -0.9584E+00*SB2+0.3098E+00*SB3 - goto 100 -c Ifl = -1 - 14 A0=Exp(-0.2906E+01-0.1069E+00*SB -0.1055E+01*SB2+0.2496E+00*SB3) - A1=-0.2875E+00+0.6571E-01*SB -0.1987E-01*SB2-0.1800E-02*SB3 - A2= 0.9854E+01-0.2715E+00*SB -0.7407E+00*SB2+0.2888E+00*SB3 - A3= 0.1583E+02-0.7687E+01*SB +0.3428E+01*SB2-0.3327E+00*SB3 - A4= 0.9763E+00+0.7599E-01*SB -0.2128E+00*SB2+0.6852E-01*SB3 - A5=-0.8444E-02+0.9434E+00*SB +0.4152E+00*SB2-0.1481E+00*SB3 - goto 100 -c Ifl = -2 - 15 A0=Exp(-0.2328E+01-0.3061E+01*SB +0.3620E+01*SB2-0.1602E+01*SB3) - A1=-0.3358E+00+0.3198E+00*SB -0.4210E+00*SB2+0.1571E+00*SB3 - A2= 0.8478E+01-0.3112E+01*SB +0.5243E+01*SB2-0.2255E+01*SB3 - A3= 0.1971E+02+0.3389E+00*SB -0.5268E+01*SB2+0.2099E+01*SB3 - A4= 0.1128E+01-0.4701E+00*SB +0.7779E+00*SB2-0.3506E+00*SB3 - A5=-0.4708E+00+0.3341E+01*SB -0.3375E+01*SB2+0.1353E+01*SB3 - goto 100 -c Ifl = -3 - 16 A0=Exp(-0.3780E+01+0.2499E+01*SB -0.4962E+01*SB2+0.1936E+01*SB3) - A1=-0.2639E+00-0.1575E+00*SB +0.3584E+00*SB2-0.1646E+00*SB3 - A2= 0.8082E+01+0.2794E+01*SB -0.5438E+01*SB2+0.2321E+01*SB3 - A3= 0.1811E+02-0.2000E+02*SB +0.1951E+02*SB2-0.6904E+01*SB3 - A4= 0.9822E+00+0.4972E+00*SB -0.8690E+00*SB2+0.3415E+00*SB3 - A5= 0.1772E+00-0.6078E+00*SB +0.3341E+01*SB2-0.1473E+01*SB3 - goto 100 -c Ifl = -4 - 17 A0=SB** 0.1122E+01*Exp(-0.4232E+01-0.1808E+01*SB +0.5348E+00*SB2) - A1=-0.2824E+00+0.5846E+00*SB -0.7230E+00*SB2+0.2419E+00*SB3 - A2= 0.5683E+01-0.2948E+01*SB +0.5916E+01*SB2-0.2560E+01*SB3 - A3= 0.2051E+01+0.4795E+01*SB -0.4271E+01*SB2+0.4174E+00*SB3 - A4= 0.1737E+00+0.1717E+01*SB -0.1978E+01*SB2+0.6643E+00*SB3 - A5= 0.8689E+00+0.3500E+01*SB -0.3283E+01*SB2+0.1026E+01*SB3 - goto 100 -c Ifl = -5 - 18 A0=SB** 0.9906E+00*Exp(-0.1496E+01-0.6576E+01*SB +0.1569E+01*SB2) - A1=-0.2140E+00-0.6419E-01*SB -0.2741E-02*SB2+0.3185E-02*SB3 - A2= 0.5781E+01+0.1049E+00*SB -0.3930E+00*SB2+0.5174E+00*SB3 - A3=-0.9420E+00+0.5511E+00*SB +0.8817E+00*SB2+0.1903E+01*SB3 - A4= 0.2418E-01+0.4232E-01*SB -0.1244E-01*SB2-0.2365E-01*SB3 - A5= 0.7664E+00+0.1794E+01*SB -0.4917E+00*SB2-0.1284E+00*SB3 - goto 100 -c Ifl = -6 - 19 A0=SB** 0.1000E+01*Exp(-0.8460E+01+0.1154E+01*SB +0.8838E+01*SB2) - A1=-0.4316E-01-0.2976E+00*SB +0.3174E+00*SB2-0.1429E+01*SB3 - A2= 0.4910E+01+0.2273E+01*SB +0.5631E+01*SB2-0.1994E+02*SB3 - A3= 0.1190E+02-0.2000E+02*SB -0.2000E+02*SB2+0.1292E+02*SB3 - A4= 0.5771E+00-0.2552E+00*SB +0.7510E+00*SB2+0.6923E+00*SB3 - A5= 0.4402E+01-0.1627E+01*SB -0.2085E+01*SB2-0.6737E+01*SB3 - goto 100 - - 2 Goto(21,22,23,24,25,26,27,28,29)Iflv -c Ifl = 2 - 21 A0=Exp( 0.1141E+00+0.4764E+00*SB -0.1745E+01*SB2+0.7728E+00*SB3) - A1= 0.4275E+00-0.1290E+00*SB +0.3609E+00*SB2-0.1689E+00*SB3 - A2= 0.3000E+01+0.2946E+01*SB -0.4117E+01*SB2+0.1989E+01*SB3 - A3=-0.1302E+01+0.2322E+01*SB -0.4258E+01*SB2+0.2109E+01*SB3 - A4= 0.2586E+01-0.1920E+00*SB -0.3754E+00*SB2+0.2731E+00*SB3 - A5=-0.2251E+00-0.5374E+00*SB +0.2245E+01*SB2-0.1034E+01*SB3 - goto 100 -c Ifl = 1 - 22 A0=Exp( 0.1907E+00+0.4205E-01*SB +0.2752E+00*SB2-0.3171E+00*SB3) - A1= 0.4611E+00+0.2331E-01*SB -0.3403E-01*SB2+0.3174E-01*SB3 - A2= 0.3504E+01+0.5739E+00*SB +0.2676E+00*SB2-0.1553E+00*SB3 - A3= 0.7452E+01-0.6742E+01*SB +0.2849E+01*SB2-0.1964E+00*SB3 - A4= 0.1116E+01-0.3435E+00*SB +0.2865E+00*SB2-0.1288E+00*SB3 - A5= 0.6659E-01+0.2714E+00*SB -0.2688E+00*SB2+0.2763E+00*SB3 - goto 100 -c Ifl = 0 - 23 A0=Exp(-0.7631E+00-0.7241E+00*SB -0.1170E+01*SB2+0.5343E+00*SB3) - A1=-0.3573E+00+0.3469E+00*SB -0.3396E+00*SB2+0.9188E-01*SB3 - A2= 0.5604E+01+0.7458E+00*SB -0.5082E+00*SB2+0.1844E+00*SB3 - A3= 0.1549E+02-0.1809E+02*SB +0.1162E+02*SB2-0.3483E+01*SB3 - A4= 0.9881E+00+0.1364E+00*SB -0.4421E+00*SB2+0.2051E+00*SB3 - A5=-0.9505E-01+0.3259E+01*SB -0.1547E+01*SB2+0.2918E+00*SB3 - goto 100 -c Ifl = -1 - 24 A0=Exp(-0.2740E+01-0.7987E-01*SB -0.9015E+00*SB2-0.9872E-01*SB3) - A1=-0.3909E+00+0.1244E+00*SB -0.4487E-01*SB2+0.1277E-01*SB3 - A2= 0.9163E+01+0.2823E+00*SB -0.7720E+00*SB2-0.9360E-02*SB3 - A3= 0.1080E+02-0.3915E+01*SB -0.1153E+01*SB2+0.2649E+01*SB3 - A4= 0.9894E+00-0.1647E+00*SB -0.9426E-02*SB2+0.2945E-02*SB3 - A5=-0.3395E+00+0.6998E+00*SB +0.7000E+00*SB2-0.6730E-01*SB3 - goto 100 -c Ifl = -2 - 25 A0=Exp(-0.2449E+01-0.3513E+01*SB +0.4529E+01*SB2-0.2031E+01*SB3) - A1=-0.4050E+00+0.3411E+00*SB -0.3669E+00*SB2+0.1109E+00*SB3 - A2= 0.7470E+01-0.2982E+01*SB +0.5503E+01*SB2-0.2419E+01*SB3 - A3= 0.1503E+02+0.1638E+01*SB -0.8772E+01*SB2+0.3852E+01*SB3 - A4= 0.1137E+01-0.1006E+01*SB +0.1485E+01*SB2-0.6389E+00*SB3 - A5=-0.5299E+00+0.3160E+01*SB -0.3104E+01*SB2+0.1219E+01*SB3 - goto 100 -c Ifl = -3 - 26 A0=Exp(-0.3640E+01+0.1250E+01*SB -0.2914E+01*SB2+0.8390E+00*SB3) - A1=-0.3595E+00-0.5259E-01*SB +0.3122E+00*SB2-0.1642E+00*SB3 - A2= 0.7305E+01+0.9727E+00*SB -0.9788E+00*SB2-0.5193E-01*SB3 - A3= 0.1198E+02-0.1799E+02*SB +0.2614E+02*SB2-0.1091E+02*SB3 - A4= 0.9882E+00-0.6101E+00*SB +0.9737E+00*SB2-0.4935E+00*SB3 - A5=-0.1186E+00-0.3231E+00*SB +0.3074E+01*SB2-0.1274E+01*SB3 - goto 100 -c Ifl = -4 - 27 A0=SB** 0.1122E+01*Exp(-0.3718E+01-0.1335E+01*SB +0.1651E-01*SB2) - A1=-0.4719E+00+0.7509E+00*SB -0.8420E+00*SB2+0.2901E+00*SB3 - A2= 0.6194E+01-0.1641E+01*SB +0.4907E+01*SB2-0.2523E+01*SB3 - A3= 0.4426E+01-0.4270E+01*SB +0.6581E+01*SB2-0.3474E+01*SB3 - A4= 0.2683E+00+0.9876E+00*SB -0.7612E+00*SB2+0.1780E+00*SB3 - A5=-0.4547E+00+0.4410E+01*SB -0.3712E+01*SB2+0.1245E+01*SB3 - goto 100 -c Ifl = -5 - 28 A0=SB** 0.9838E+00*Exp(-0.2548E+01-0.7660E+01*SB +0.3702E+01*SB2) - A1=-0.3122E+00-0.2120E+00*SB +0.5716E+00*SB2-0.3773E+00*SB3 - A2= 0.6257E+01-0.8214E-01*SB -0.2537E+01*SB2+0.2981E+01*SB3 - A3=-0.6723E+00+0.2131E+01*SB +0.9599E+01*SB2-0.7910E+01*SB3 - A4= 0.9169E-01+0.4295E-01*SB -0.5017E+00*SB2+0.3811E+00*SB3 - A5= 0.2402E+00+0.2656E+01*SB -0.1586E+01*SB2+0.2880E+00*SB3 - goto 100 -c Ifl = -6 - 29 A0=SB** 0.1001E+01*Exp(-0.6934E+01+0.3050E+01*SB -0.6943E+00*SB2) - A1=-0.1713E+00-0.5167E+00*SB +0.1241E+01*SB2-0.1703E+01*SB3 - A2= 0.6169E+01+0.3023E+01*SB -0.1972E+02*SB2+0.1069E+02*SB3 - A3= 0.4439E+01-0.1746E+02*SB +0.1225E+02*SB2+0.8350E+00*SB3 - A4= 0.5458E+00-0.4586E+00*SB +0.9089E+00*SB2-0.4049E+00*SB3 - A5= 0.3207E+01-0.3362E+01*SB +0.5877E+01*SB2-0.7659E+01*SB3 - goto 100 - - 3 Goto(31,32,33,34,35,36,37,38,39)Iflv -c Ifl = 2 - 31 A0=Exp( 0.3961E+00+0.4914E+00*SB -0.1728E+01*SB2+0.7257E+00*SB3) - A1= 0.4162E+00-0.1419E+00*SB +0.3680E+00*SB2-0.1618E+00*SB3 - A2= 0.3248E+01+0.3028E+01*SB -0.4307E+01*SB2+0.1920E+01*SB3 - A3=-0.1100E+01+0.2184E+01*SB -0.3820E+01*SB2+0.1717E+01*SB3 - A4= 0.2082E+01-0.2756E+00*SB +0.3043E+00*SB2-0.1260E+00*SB3 - A5=-0.4822E+00-0.5706E+00*SB +0.2243E+01*SB2-0.9760E+00*SB3 - goto 100 -c Ifl = 1 - 32 A0=Exp( 0.2148E+00+0.5814E-01*SB +0.2734E+00*SB2-0.2902E+00*SB3) - A1= 0.4810E+00+0.1657E-01*SB -0.3800E-01*SB2+0.3125E-01*SB3 - A2= 0.3509E+01+0.3923E+00*SB +0.4010E+00*SB2-0.1932E+00*SB3 - A3= 0.7055E+01-0.6552E+01*SB +0.3466E+01*SB2-0.5657E+00*SB3 - A4= 0.1061E+01-0.3453E+00*SB +0.4089E+00*SB2-0.1817E+00*SB3 - A5= 0.8687E-01+0.2548E+00*SB -0.2967E+00*SB2+0.2647E+00*SB3 - goto 100 -c Ifl = 0 - 33 A0=Exp(-0.4665E+00-0.7554E+00*SB -0.3323E+00*SB2-0.2734E-04*SB3) - A1=-0.3359E+00+0.2395E+00*SB -0.2377E+00*SB2+0.7059E-01*SB3 - A2= 0.5451E+01+0.6086E+00*SB +0.8606E-01*SB2-0.1425E+00*SB3 - A3= 0.1026E+02-0.9352E+01*SB +0.4879E+01*SB2-0.1150E+01*SB3 - A4= 0.9935E+00-0.5017E-01*SB -0.1707E-01*SB2-0.1464E-02*SB3 - A5=-0.4160E-01+0.2305E+01*SB -0.1063E+01*SB2+0.3211E+00*SB3 - goto 100 -c Ifl = -1 - 34 A0=Exp(-0.3323E+01+0.2296E+00*SB -0.1109E+01*SB2+0.2223E+00*SB3) - A1=-0.3410E+00+0.8847E-01*SB -0.1111E-01*SB2-0.5927E-02*SB3 - A2= 0.9753E+01-0.5182E+00*SB -0.4670E+00*SB2+0.1921E+00*SB3 - A3= 0.1977E+02-0.1600E+02*SB +0.9481E+01*SB2-0.1864E+01*SB3 - A4= 0.9818E+00+0.2839E-02*SB -0.1188E+00*SB2+0.3584E-01*SB3 - A5=-0.7934E-01+0.1004E+01*SB +0.3704E+00*SB2-0.1220E+00*SB3 - goto 100 -c Ifl = -2 - 35 A0=Exp(-0.2714E+01-0.2868E+01*SB +0.3700E+01*SB2-0.1671E+01*SB3) - A1=-0.3893E+00+0.3341E+00*SB -0.3897E+00*SB2+0.1420E+00*SB3 - A2= 0.8359E+01-0.3267E+01*SB +0.5327E+01*SB2-0.2245E+01*SB3 - A3= 0.2359E+02-0.5669E+01*SB -0.4602E+01*SB2+0.3153E+01*SB3 - A4= 0.1106E+01-0.4745E+00*SB +0.7739E+00*SB2-0.3417E+00*SB3 - A5=-0.5557E+00+0.3433E+01*SB -0.3390E+01*SB2+0.1354E+01*SB3 - goto 100 -c Ifl = -3 - 36 A0=Exp(-0.3985E+01+0.2855E+01*SB -0.5208E+01*SB2+0.1937E+01*SB3) - A1=-0.3337E+00-0.1150E+00*SB +0.3691E+00*SB2-0.1709E+00*SB3 - A2= 0.7968E+01+0.3641E+01*SB -0.6599E+01*SB2+0.2642E+01*SB3 - A3= 0.1873E+02-0.1999E+02*SB +0.1734E+02*SB2-0.5813E+01*SB3 - A4= 0.9731E+00+0.5082E+00*SB -0.8780E+00*SB2+0.3231E+00*SB3 - A5=-0.5542E-01-0.4189E+00*SB +0.3309E+01*SB2-0.1439E+01*SB3 - goto 100 -c Ifl = -4 - 37 A0=SB** 0.1105E+01*Exp(-0.3952E+01-0.1901E+01*SB +0.5137E+00*SB2) - A1=-0.3543E+00+0.6055E+00*SB -0.6941E+00*SB2+0.2278E+00*SB3 - A2= 0.5955E+01-0.2629E+01*SB +0.5337E+01*SB2-0.2300E+01*SB3 - A3= 0.1933E+01+0.4882E+01*SB -0.3810E+01*SB2+0.2290E+00*SB3 - A4= 0.1806E+00+0.1655E+01*SB -0.1893E+01*SB2+0.6395E+00*SB3 - A5= 0.4790E+00+0.3612E+01*SB -0.3152E+01*SB2+0.9684E+00*SB3 - goto 100 -c Ifl = -5 - 38 A0=SB** 0.9818E+00*Exp(-0.1825E+01-0.7464E+01*SB +0.2143E+01*SB2) - A1=-0.2604E+00-0.1400E+00*SB +0.1702E+00*SB2-0.8476E-01*SB3 - A2= 0.6005E+01+0.6275E+00*SB -0.2535E+01*SB2+0.2219E+01*SB3 - A3=-0.9067E+00+0.1149E+01*SB +0.1974E+01*SB2+0.4716E+01*SB3 - A4= 0.3915E-01+0.5945E-01*SB -0.9844E-01*SB2+0.2783E-01*SB3 - A5= 0.5500E+00+0.1994E+01*SB -0.6727E+00*SB2-0.1510E+00*SB3 - goto 100 -c Ifl = -6 - 39 A0=SB** 0.1002E+01*Exp(-0.8553E+01+0.3793E+00*SB +0.9998E+01*SB2) - A1=-0.5870E-01-0.2792E+00*SB +0.6526E+00*SB2-0.1984E+01*SB3 - A2= 0.4716E+01+0.4473E+00*SB +0.1128E+02*SB2-0.1937E+02*SB3 - A3= 0.1289E+02-0.1742E+02*SB -0.1983E+02*SB2-0.9274E+00*SB3 - A4= 0.5647E+00-0.2732E+00*SB +0.1074E+01*SB2+0.5981E+00*SB3 - A5= 0.4390E+01-0.1262E+01*SB -0.9026E+00*SB2-0.9394E+01*SB3 - goto 100 - - 311 stop 'This option is not currently supported.' - - 100 CONTINUE - P012 = A0 *(x**A1) *((D1-x)**A2) - P34 = (D1+A3*(x**A4)) - P5 = (log(D1+D1/x))**A5 -C - PDFD = P012 * P34 * P5 - PDF = PDFD -C - Ctq3Pd = PDF - if(Ctq3Pd.lt.D0) then - Ctq3Pd = D0 - Irt=1 - endif - - Ist = Iset - - Lp = Iprtn - Qsto = QQ - - Return -C ----------------------- - ENTRY Wlamd3 (Iset, Iorder, Neff) - -C Returns the EFFECTIVE QCD lambda values for order=Iorder and -C effective # of flavors = Neff for each of the PDF sets. - - Iorder = Iord (Iset) - Wlamd3 = VLM (Neff, Iset) - - RETURN - -C ************************* - END diff --git a/PDF/spdf/ctq3pds.F b/PDF/spdf/ctq3pds.F deleted file mode 100644 index 01df9782fb3..00000000000 --- a/PDF/spdf/ctq3pds.F +++ /dev/null @@ -1,45 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:50 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:10 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C -C - SUBROUTINE Ctq3Pds(Iset, Pdf, X, Q, Irt) - -C This function returns the CTEQ parton distributions xf^Iset_Iprtn/proton -C --- the Momentum density in array form -c -C (Iset, X, Q): explained in header comment lines; - -C Irt : return error code -- cumulated over flavors: -C see module Ctq3Pd for explanation on individual flavors. -C Pdf (Iparton); -C Iparton = -6, -5, ...0, 1, 2 ... 6 -C has the same meaning as explained in the header comment lines. - -C Implicit Double Precision (A-H, O-Z) -C+SEQ, IMPDP. - Dimension Pdf (-6:6) - - Irt=0 - do 10 I=-6,2 - if(I.le.0) then - Pdf(I) = Ctq3Pd(Iset,I,X,Q,Irt1) - Pdf(-I)= Pdf(I) - else - Pdf(I) = Ctq3Pd(Iset,I,X,Q,Irt1) + Pdf(-I) - endif - Irt=Irt+Irt1 - 10 Continue - - Return -C ************************* - End diff --git a/PDF/spdf/ctq3pf.F b/PDF/spdf/ctq3pf.F deleted file mode 100644 index 8401f1ee73a..00000000000 --- a/PDF/spdf/ctq3pf.F +++ /dev/null @@ -1,133 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:51 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:15 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C Version 3 CTEQ distribution function in a parametrized form. - -C By: H.L. Lai, J. Botts, J. Huston, J.G. Morfin, J.F. Owens, J. Qiu, -C W.K. Tung & H. Weerts; Preprint MSU-HEP/41024, CTEQ 404 - -C This file contains three versions of the same CTEQ3 parton distributions: -C -C Two "front-end" subprograms: -C FUNCTION Ctq3Pf (Iset, Iparton, X, Q, Irt) -C returns the PROBABILITY density for a GIVEN flavor; -C SUBROUTINE Ctq3Pds(Iset, Pdf, XX, QQ, Irt) -C returns an array of MOMENTUM densities for ALL flavors; -C One lower-level subprogram: -C FUNCTION Ctq3Pd (Iset, Iprtn, XX, QQ, Irt) -C returns the MOMENTUM density of a GIVEN valence or sea distribution. - -C One supplementary function to return the QCD lambda parameter -C concerning these distributions is also included (see below). - -C Although DOUBLE PRECISION is used, conversion to SINGLE PRECISION -C is straightforward by removing the -C Implicit Double Precision statements. - -C Since this is an initial distribution of version 3, it is -C useful for the authors to maintain a record of the distribution -C list in case there are revisions or corrections. -C In the interest of maintaining the integrity of this package, -C please do not freely distribute this program package; instead, refer -C any interested colleagues to direct their request for a copy to: -C Lai@cteq11.pa.msu.edu or Tung@msupa.pa.msu.edu. - -C If you have detailed questions concerning these CTEQ3 distributions, -C or if you find problems/bugs using this initial distribution, direct -C inquires to Hung-Liang Lai or Wu-Ki Tung. - -C ------------------------------------------- -C Detailed instructions follow. - -C Name convention for CTEQ distributions: CTEQnSx where -C n : version number (currently n = 3) -C S : factorization scheme label: = [M L D] for [MS-bar LO DIS] -c resp. -C x : special characteristics, if any -C (e.g. S(F) for singular (flat) small-x, L for "LEP lambda value") -C (not applicable to CTEQ3 since only three standard sets are given.) - -C Explanation of functional arguments: - -C Iset is the set label; in this version, Iset = 1, 2, 3 -C correspond to the following CTEQ global fits: - -C cteq3M : best fit in the MS-bar scheme -C cteq3L : best fit in Leading order QCD -C cteq3D : best fit in the DIS scheme - -C Iprtn is the parton label (6, 5, 4, 3, 2, 1, 0, -1, ......, -6) -C for (t, b, c, s, d, u, g, u_bar, ..., t_bar) -C *** WARNING: We use the parton label 2 as D-quark, and 1 as U-quark which -C might be different with your labels. - -C X, Q are the usual x, Q; -C Irt is a return error code (see individual modules for explanation). -C -C --------------------------------------------- - -C Since the QCD Lambda value for the various sets are needed more often than -C the other parameters in most applications, a special function -C Wlamd3 (Iset, Iorder, Neff) is provided -C which returns the lambda value for Neff = 4,5,6 effective flavors as well as -C the order these values pertain to. - -C ---------------------------------------------- -C The range of (x, Q) used in this round of global analysis is, approxi- -C mately, 0.01 < x < 0.75 ; and 4 GeV^2 < Q^2 < 400 GeV^2 for fixed target -C experiments and 0.0001 < x < 0.1 from HERA data. - -C The range of (x, Q) used in the reparametrization of the QCD evolved -C parton distributions is 10E-6 < x < 1 ; 1.6 GeV < Q < 10 TeV. The -C functional form of this parametrization is: - -C A0 * x^A1 * (1-x)^A2 * (1 + A3 * x^A4) * [log(1+1/x)]^A5 - -C with the A'coefficients being smooth functions of Q. For heavy quarks, -C a threshold factor is applied to A0 which simulates the proper Q-dependence -C of the QCD evolution in that region according to the renormalization -C scheme defined in Collins-Tung, Nucl. Phys. B278, 934 (1986). - -C Since this function is positive definite and smooth, it provides sensible -C extrapolations of the parton distributions if they are called beyond -C the original range in an application. There is no artificial boundaries -C or sharp cutoff's. -C ------------------------------------------------ - - FUNCTION Ctq3Pf (Iset, Iparton, X, Q, Irt) - -C This function returns the CTEQ parton distributions f^Iset_Iprtn/proton -C --- the PROBABILITY density - -C (Iset, Iparton, X, Q): explained above; - -C Irt : return error code: see module Ctq3Pd for explanation. - -C IMPLICIT DOUBLE PRECISION (A-H, O-Z) -C+SEQ, IMPDP. - - Ifl = Iparton - JFL = ABS(Ifl) -C Valence - IF (Ifl.Eq.1 .or. Ifl.Eq.2) THEN - VL = Ctq3Pd(Iset, Ifl, X, Q, Irt) - ELSE - VL = 0. - ENDIF -C Sea - SEA = Ctq3Pd (Iset, -JFL, X, Q, Irt) -C Full (probability) Distribution - Ctq3Pf = (VL + SEA) / X - - Return -C ************************* - END diff --git a/PDF/spdf/ctq4Fn.F b/PDF/spdf/ctq4Fn.F deleted file mode 100644 index aef9d52c1e5..00000000000 --- a/PDF/spdf/ctq4Fn.F +++ /dev/null @@ -1,80 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" -C============================================================================ -C CTEQ Parton Distribution Functions: Version 4 -C June 21, 1996 -C -C By: H.L. Lai, J. Huston, S. Kuhlmann, F. Olness, J. Owens, D. Soper -C W.K. Tung, H. Weerts -C Ref: MSUHEP-60426, CTEQ-604, e-Print Archive: hep-ph/9606399 -C -C This package contains 9 sets of CTEQ4 PDF's. Details are: -C --------------------------------------------------------------------------- -C Iset PDF Description Alpha_s(Mz) Q0(GeV) Table_File -C --------------------------------------------------------------------------- -C 1 CTEQ4M Standard MSbar scheme 0.116 1.6 cteq4m.tbl -C 2 CTEQ4D Standard DIS scheme 0.116 1.6 cteq4d.tbl -C 3 CTEQ4L Leading Order 0.116 1.6 cteq4l.tbl -C 4 CTEQ4A1 Alpha_s series 0.110 1.6 cteq4a1.tbl -C 5 CTEQ4A2 Alpha_s series 0.113 1.6 cteq4a2.tbl -C 6 CTEQ4A3 same as CTEQ4M 0.116 1.6 cteq4m.tbl -C 7 CTEQ4A4 Alpha_s series 0.119 1.6 cteq4a4.tbl -C 8 CTEQ4A5 Alpha_s series 0.122 1.6 cteq4a5.tbl -C 9 CTEQ4HJ High Jet 0.116 1.6 cteq4hj.tbl -C 10 CTEQ4LQ Low Q0 0.114 0.7 cteq4lq.tbl -C --------------------------------------------------------------------------- -C -C The available applied range is 10^-5 < x < 1 and 1.6 < Q < 10,000 (GeV) -C except CTEQ4LQ for which Q starts at a lower value of 0.7 GeV. -C The Table_Files are assumed to be in the working directory. -C -C The function Ctq4Fn (Iset, Iparton, X, Q) -C returns the parton distribution inside the proton for parton [Iparton] -C at [X] Bjorken_X and scale [Q] (GeV) in PDF set [Iset]. -C Iparton is the parton label (5, 4, 3, 2, 1, 0, -1, ......, -5) -C for (b, c, s, d, u, g, u_bar, ..., b_bar) -C -C For detailed information on the parameters used, e.q. quark masses, -C QCD Lambda, ... etc., see info lines at the beginning of the -C Table_Files. - -C These programs, as provided, are in double precision. By removing the -C "Implicit Double Precision" lines, they can also be run in single -C precision. -C -C If you have detailed questions concerning these CTEQ4 distributions, -C or if you find problems/bugs using this package, direct inquires to -C Hung-Liang Lai(Lai_H@pa.msu.edu) or Wu-Ki Tung(Tung@pa.msu.edu). -C -C=========================================================================== -#if defined(CERNLIB_SINGLE) - Function Ctq4Fn (Iset, Iparton, X, Q) -#endif -#if defined(CERNLIB_DOUBLE) - DOUBLE PRECISION FUNCTION Ctq4Fn (Iset, Iparton, X, Q) -#endif -#include "pdf/impdp.inc" - Data Isetold, Isetmin, Isetmax / -987, 1, 10 / - save - -C If data file not initialized, do so. - If(Iset.ne.Isetold) then - if(Iset.eq.1) Call Ctq4RM (Iset) - if(Iset.eq.2) Call Ctq4RD (Iset) - if(Iset.eq.3) Call Ctq4RL (Iset) - if(Iset.eq.4) Call Ctq4RA1 (Iset) - if(Iset.eq.5) Call Ctq4RA2 (Iset) - if(Iset.eq.6) Call Ctq4RM (Iset) - if(Iset.eq.7) Call Ctq4RA4 (Iset) - if(Iset.eq.8) Call Ctq4RA5 (Iset) - if(Iset.eq.9) Call Ctq4RHJ (Iset) - if(Iset.eq.10) Call Ctq4RlQ (Iset) - Isetold=Iset - Endif -C - Ctq4Fn = Ctq4PnX (Iparton, X, Q) - if(Ctq4Fn.lt.0.D0) Ctq4Fn = 0.D0 -C - Return -C ******************** - End diff --git a/PDF/spdf/ctq4PnX.F b/PDF/spdf/ctq4PnX.F deleted file mode 100644 index b93844a3028..00000000000 --- a/PDF/spdf/ctq4PnX.F +++ /dev/null @@ -1,94 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" -#if defined(CERNLIB_SINGLE) - FUNCTION Ctq4PnX (IPRTN, X, Q) -#endif -#if defined(CERNLIB_DOUBLE) - DOUBLE PRECISION FUNCTION Ctq4PnX (IPRTN, X, Q) -#endif -C -C Given the parton distribution function in the array Upd in -C COMMON / CtqPar1 / , this routine fetches u(fl, x, q) at any value of -C x and q using Mth-order polynomial interpolation for x and Ln(Q/Lambda). -C -#include "pdf/impdp.inc" -C - PARAMETER (MXX = 105, MXQ = 25, MXF = 6) - PARAMETER (MXPQX = (MXF *2 +2) * MXQ * MXX) - PARAMETER (M= 2, M1 = M + 1) -C - COMMON / W5051IC / Al, XV(0:MXX), QL(0:MXQ), UPD(MXPQX) - COMMON / W5051ID / Nx, Nt, NfMx - COMMON / W5051IE / Qini, Qmax, Xmin -C - Dimension Fq(M1), Df(M1) -C Work with Log (Q) - QG = LOG (Q/AL) - -C Find lower end of interval containing X - JL = -1 - JU = Nx+1 - 11 If (JU-JL .GT. 1) Then - JM = (JU+JL) / 2 - If (X .GT. XV(JM)) Then - JL = JM - Else - JU = JM - Endif - Goto 11 - Endif - - Jx = JL - (M-1)/2 - If (X .lt. Xmin) Then -C Print '(A, 2(1pE12.4))', -C > ' WARNING: X < Xmin, extrapolation used; X, Xmin =', X, Xmin - If (Jx .LT. 0) Jx = 0 - Elseif (Jx .GT. Nx-M) Then - Jx = Nx - M - Endif -C Find the interval where Q lies - JL = -1 - JU = NT+1 - 12 If (JU-JL .GT. 1) Then - JM = (JU+JL) / 2 - If (QG .GT. QL(JM)) Then - JL = JM - Else - JU = JM - Endif - Goto 12 - Endif - - Jq = JL - (M-1)/2 - If (Jq .LT. 0) Then - Jq = 0 -C If (Q .lt. Qini) Print '(A, 2(1pE12.4))', -C > ' WARNING: Q < Qini, extrapolation used; Q, Qini =', Q, Qini - Elseif (Jq .GT. Nt-M) Then - Jq = Nt - M -C If (Q .gt. Qmax) Print '(A, 2(1pE12.4))', -C > ' WARNING: Q > Qmax, extrapolation used; Q, Qmax =', Q, Qmax - Endif - - If (Iprtn .GE. 3) Then - Ip = - Iprtn - Else - Ip = Iprtn - EndIf -C Find the off-set in the linear array Upd - JFL = Ip + NfMx - J0 = (JFL * (NT+1) + Jq) * (NX+1) + Jx -C -C Now interpolate in x for M1 Q's - Do 21 Iq = 1, M1 - J1 = J0 + (Nx+1)*(Iq-1) + 1 - Call Dpolin (XV(Jx), Upd(J1), M1, X, Fq(Iq), Df(Iq)) - 21 Continue -C Finish off by interpolating in Q - Call Dpolin (QL(Jq), Fq(1), M1, QG, Ftmp, Ddf) - - Ctq4PnX = Ftmp -C - RETURN -C **************************** - END diff --git a/PDF/spdf/ctq4RA1.F b/PDF/spdf/ctq4RA1.F deleted file mode 100644 index c271f63fd0f..00000000000 --- a/PDF/spdf/ctq4RA1.F +++ /dev/null @@ -1,2838 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" - Subroutine Ctq4RA1 (Iset) -#include "pdf/impdp.inc" - PARAMETER (MXX = 105, MXQ = 25, MXF = 6) - PARAMETER (MXPQX = (MXF *2 +2) * MXQ * MXX) - PARAMETER (NxI = 90, NtI = 13, NfMxI = 5) - COMMON / W5051IC / Al, XV(0:MXX), QL(0:MXQ), UPD(MXPQX) - COMMON / W5051ID / Nx, Nt, NfMx - COMMON / W5051IE / Qini, Qmax, Xmin - DIMENSION Amass(6) - PARAMETER (NSETS=10) - DIMENSION - > XVI(0:MXX),QLI(0:MXQ),UPDI(MXPQX), - > AmassI(6) -C -C----------------------------------------------------------------------- -C Parton Distribution Table : CTEQ4A1 -C PARAMETER (ISET=4) - DATA DrI, FlI, AlI / 2., 5., .1400 / - DATA (AmassI(I),I=1,6) / .000, .000, .200, - + 1.600, 5.000, 180.000 / -C DATA NXI, NTI, NfMxI / 90, 13, 5 / - DATA QINII, QMAXI, (QLI(I), I =0, NTI) / - + .160000D+01, .100000D+05, - + .160000D+01, .204474D+01, .267844D+01, .360520D+01, .500000D+01, - + .810220D+01, .140132D+02, .260970D+02, .528569D+02, .117758D+03, - + .292312D+03, .820365D+03, .264648D+04, .100000D+05 / - DATA XMINI, (XVI(I), I =0, NXI) / - + .100000D-04, - + .000000D+00, .999983D-05, .124433D-04, .154836D-04, .192668D-04, - + .239740D-04, .298310D-04, .371184D-04, .461852D-04, .574656D-04, - + .714994D-04, .889575D-04, .110674D-03, .137686D-03, .171280D-03, - + .213055D-03, .264997D-03, .329564D-03, .409809D-03, .509508D-03, - + .633332D-03, .787053D-03, .977784D-03, .121428D-02, .150728D-02, - + .186993D-02, .231825D-02, .288037D-02, .356397D-02, .440443D-02, - + .543508D-02, .669508D-02, .822984D-02, .100851D-01, .123281D-01, - + .150167D-01, .182174D-01, .219985D-01, .264278D-01, .315720D-01, - + .374800D-01, .442088D-01, .517931D-01, .602576D-01, .696136D-01, - + .798586D-01, .909356D-01, .102935D+00, .115681D+00, .129293D+00, - + .143599D+00, .158606D+00, .174271D+00, .190550D+00, .207405D+00, - + .224796D+00, .242685D+00, .261038D+00, .279820D+00, .299001D+00, - + .318550D+00, .338442D+00, .358653D+00, .379067D+00, .399881D+00, - + .420953D+00, .442266D+00, .463806D+00, .485559D+00, .507513D+00, - + .529656D+00, .551978D+00, .574483D+00, .597187D+00, .619860D+00, - + .642828D+00, .665921D+00, .689135D+00, .712467D+00, .735911D+00, - + .759464D+00, .783080D+00, .806909D+00, .830741D+00, .854673D+00, - + .878696D+00, .902804D+00, .926992D+00, .951257D+00, .975603D+00, - + .100000D+01 / -C Parton Distribution Table: - DATA (UPDI(I),I=1,52) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=53,104) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=105,156) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=157,208) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=209,260) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=261,312) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=313,364) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=365,416) / - + .222477D+06, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=417,468) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .894965D+05, - + .682456D+05, .512150D+05, .384047D+05, .287820D+05, - + .215514D+05, .161271D+05, .120567D+05, .900747D+04, - + .672263D+04, .501359D+04, .373499D+04, .278018D+04 / - DATA (UPDI(I),I=469,520) / - + .206705D+04, .153547D+04, .113916D+04, .844322D+03, - + .624942D+03, .462075D+03, .341153D+03, .251593D+03, - + .185256D+03, .136243D+03, .100033D+03, .733480D+02, - + .536956D+02, .392686D+02, .285382D+02, .208089D+02, - + .151474D+02, .110162D+02, .800026D+01, .580611D+01, - + .421375D+01, .305610D+01, .221623D+01, .160908D+01, - + .116915D+01, .851416D+00, .621104D+00, .454805D+00, - + .333946D+00, .246195D+00, .182125D+00, .135357D+00, - + .100946D+00, .757125D-01, .568411D-01, .429433D-01, - + .324522D-01, .246261D-01, .187090D-01, .142439D-01, - + .108467D-01, .826772D-02, .629381D-02, .478778D-02, - + .363272D-02, .275187D-02, .207585D-02, .156088D-02, - + .116692D-02, .867780D-03, .641584D-03, .469796D-03 / - DATA (UPDI(I),I=521,572) / - + .340181D-03, .243566D-03, .171723D-03, .119066D-03, - + .806131D-04, .530792D-04, .334981D-04, .199258D-04, - + .106876D-04, .471897D-05, .941690D-06, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .202138D+06, .153766D+06, - + .115066D+06, .860373D+05, .642917D+05, .479989D+05, - + .358104D+05, .266912D+05, .198793D+05, .147906D+05, - + .109956D+05, .816519D+04, .605801D+04, .448925D+04, - + .332352D+04, .245731D+04, .181497D+04, .133865D+04, - + .986217D+03, .725475D+03, .533021D+03, .390994D+03, - + .286431D+03, .209475D+03, .152974D+03, .111524D+03 / - DATA (UPDI(I),I=573,624) / - + .812129D+02, .587626D+02, .426567D+02, .309109D+02, - + .223753D+02, .161724D+02, .116792D+02, .843384D+01, - + .608507D+01, .438956D+01, .316961D+01, .229029D+01, - + .165835D+01, .120278D+01, .875503D+00, .638993D+00, - + .468188D+00, .344211D+00, .254206D+00, .188381D+00, - + .140382D+00, .104716D+00, .785942D-01, .590065D-01, - + .444808D-01, .335723D-01, .253906D-01, .192082D-01, - + .145438D-01, .109990D-01, .831237D-02, .626680D-02, - + .471714D-02, .353678D-02, .264387D-02, .196596D-02, - + .145496D-02, .107141D-02, .782336D-03, .565944D-03, - + .405842D-03, .287660D-03, .201595D-03, .139104D-03, - + .945296D-04, .628843D-04, .408416D-04, .256999D-04, - + .156732D-04, .903386D-05, .485191D-05, .229851D-05 / - DATA (UPDI(I),I=625,676) / - + .845417D-06, .761225D-07, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .342047D+06, .259541D+06, .193647D+06, - + .144365D+06, .107552D+06, .800527D+05, .595403D+05, - + .442401D+05, .328452D+05, .243595D+05, .180503D+05, - + .133600D+05, .987903D+04, .729607D+04, .538289D+04, - + .396611D+04, .291895D+04, .214518D+04, .157461D+04, - + .115401D+04, .844654D+03, .617205D+03, .450366D+03, - + .328048D+03, .238586D+03, .173211D+03, .125593D+03, - + .904732D+02, .653818D+02, .471633D+02, .339795D+02, - + .244426D+02, .175647D+02, .126205D+02, .905856D+01, - + .650015D+01, .466806D+01, .335446D+01, .241508D+01 / - DATA (UPDI(I),I=677,728) / - + .174158D+01, .126021D+01, .914300D+00, .665825D+00, - + .486524D+00, .357065D+00, .262953D+00, .194711D+00, - + .144324D+00, .107624D+00, .802842D-01, .601283D-01, - + .450918D-01, .338813D-01, .254667D-01, .191568D-01, - + .143944D-01, .108079D-01, .809639D-02, .605519D-02, - + .451164D-02, .335162D-02, .247731D-02, .182271D-02, - + .133483D-02, .969695D-03, .698427D-03, .499123D-03, - + .353073D-03, .247406D-03, .171199D-03, .117134D-03, - + .789416D-04, .524021D-04, .341849D-04, .220515D-04, - + .139230D-04, .867103D-05, .531484D-05, .323654D-05, - + .195687D-05, .119655D-05, .737660D-06, .463794D-06, - + .291915D-06, .181245D-06, .106016D-06, .555866D-07, - + .236760D-07, .638835D-08, .404436D-09, .000000D+00 / - DATA (UPDI(I),I=729,780) / - + .513847D+06, .388891D+06, .289274D+06, .214997D+06, - + .159676D+06, .118477D+06, .878393D+05, .650582D+05, - + .481442D+05, .355888D+05, .262833D+05, .193882D+05, - + .142876D+05, .105155D+05, .773087D+04, .567587D+04, - + .416218D+04, .304766D+04, .222871D+04, .162722D+04, - + .118642D+04, .863557D+03, .627612D+03, .455304D+03, - + .329769D+03, .238397D+03, .172111D+03, .123432D+03, - + .887981D+02, .637620D+02, .457220D+02, .327320D+02, - + .234055D+02, .167331D+02, .119483D+02, .852868D+01, - + .609163D+01, .435341D+01, .311659D+01, .223464D+01, - + .160753D+01, .115940D+01, .839229D+00, .609527D+00, - + .444582D+00, .325383D+00, .239434D+00, .176368D+00, - + .130686D+00, .968734D-01, .720907D-01, .537225D-01 / - DATA (UPDI(I),I=781,832) / - + .401091D-01, .299575D-01, .223908D-01, .167180D-01, - + .124728D-01, .928509D-02, .690030D-02, .510954D-02, - + .377227D-02, .277150D-02, .202707D-02, .147602D-02, - + .106638D-02, .764261D-03, .543777D-03, .383344D-03, - + .268007D-03, .185380D-03, .127084D-03, .861197D-04, - + .577598D-04, .383382D-04, .253741D-04, .166417D-04, - + .109196D-04, .717465D-05, .475713D-05, .317582D-05, - + .214639D-05, .145085D-05, .973555D-06, .635350D-06, - + .394926D-06, .225329D-06, .112522D-06, .447909D-07, - + .112585D-07, .744910D-09, .000000D+00, .722470D+06, - + .545336D+06, .404381D+06, .299605D+06, .221807D+06, - + .164050D+06, .121232D+06, .894970D+05, .660095D+05, - + .486318D+05, .357938D+05, .263133D+05, .193233D+05 / - DATA (UPDI(I),I=833,884) / - + .141718D+05, .103817D+05, .759452D+04, .554869D+04, - + .404783D+04, .294892D+04, .214483D+04, .155772D+04, - + .112934D+04, .817469D+03, .590613D+03, .425989D+03, - + .306645D+03, .220421D+03, .157370D+03, .112702D+03, - + .805557D+02, .574919D+02, .409610D+02, .291454D+02, - + .207326D+02, .147278D+02, .104576D+02, .742912D+01, - + .528028D+01, .375896D+01, .267998D+01, .191672D+01, - + .137432D+01, .988869D+00, .713917D+00, .517558D+00, - + .376485D+00, .275334D+00, .201565D+00, .148426D+00, - + .109341D+00, .808598D-01, .598845D-01, .444300D-01, - + .329791D-01, .244947D-01, .181755D-01, .134757D-01, - + .997018D-02, .736359D-02, .541954D-02, .397683D-02, - + .290456D-02, .211196D-02, .152915D-02, .109872D-02 / - DATA (UPDI(I),I=885,936) / - + .783500D-03, .554938D-03, .389754D-03, .271726D-03, - + .187710D-03, .128749D-03, .875290D-04, .591004D-04, - + .396774D-04, .266945D-04, .179153D-04, .121007D-04, - + .822950D-05, .565906D-05, .391611D-05, .272537D-05, - + .188174D-05, .127464D-05, .831561D-06, .511380D-06, - + .286394D-06, .139199D-06, .534385D-07, .129126D-07, - + .873516D-09, .000000D+00, .973101D+06, .732542D+06, - + .541474D+06, .399896D+06, .295097D+06, .217546D+06, - + .160235D+06, .117896D+06, .866624D+05, .636305D+05, - + .466718D+05, .341907D+05, .250195D+05, .182841D+05, - + .133457D+05, .972716D+04, .708046D+04, .514589D+04, - + .373459D+04, .270578D+04, .195741D+04, .141346D+04, - + .101898D+04, .733178D+03, .526602D+03, .377450D+03 / - DATA (UPDI(I),I=937,988) / - + .270134D+03, .191998D+03, .136880D+03, .973881D+02, - + .691777D+02, .490510D+02, .347303D+02, .245824D+02, - + .173730D+02, .122716D+02, .867113D+01, .612964D+01, - + .433939D+01, .307644D+01, .218765D+01, .155951D+01, - + .111552D+01, .800597D+00, .576917D+00, .417142D+00, - + .303220D+00, .220633D+00, .161473D+00, .118226D+00, - + .868935D-01, .639617D-01, .471641D-01, .347956D-01, - + .256851D-01, .189431D-01, .139594D-01, .102660D-01, - + .753624D-02, .551376D-02, .402201D-02, .292067D-02, - + .211156D-02, .152047D-02, .108668D-02, .771135D-03, - + .543767D-03, .380510D-03, .264539D-03, .182487D-03, - + .125189D-03, .853209D-04, .579204D-04, .392345D-04, - + .267262D-04, .182356D-04, .125579D-04, .872320D-05 / - DATA (UPDI(I),I=989,1040) / - + .612034D-05, .431011D-05, .303472D-05, .210783D-05, - + .142600D-05, .923915D-06, .560905D-06, .308595D-06, - + .146497D-06, .545479D-07, .127540D-07, .878519D-09, - + .000000D+00, .127109D+07, .954262D+06, .703093D+06, - + .517577D+06, .380687D+06, .279717D+06, .205339D+06, - + .150574D+06, .110306D+06, .807122D+05, .589947D+05, - + .430665D+05, .314023D+05, .228660D+05, .166293D+05, - + .120758D+05, .875721D+04, .634047D+04, .458389D+04, - + .330823D+04, .238379D+04, .171447D+04, .123096D+04, - + .882047D+03, .630868D+03, .450247D+03, .320829D+03, - + .227007D+03, .161108D+03, .114101D+03, .806692D+02, - + .569266D+02, .401096D+02, .282493D+02, .198627D+02, - + .139576D+02, .981015D+01, .689755D+01, .485620D+01 / - DATA (UPDI(I),I=1041,1092) / - + .342371D+01, .242079D+01, .171584D+01, .122022D+01, - + .870632D+00, .623677D+00, .448280D+00, .323912D+00, - + .234281D+00, .170429D+00, .124034D+00, .906134D-01, - + .663016D-01, .485955D-01, .356377D-01, .261487D-01, - + .191705D-01, .140429D-01, .102668D-01, .749244D-02, - + .545006D-02, .395266D-02, .285429D-02, .205219D-02, - + .146988D-02, .104516D-02, .738225D-03, .518381D-03, - + .361501D-03, .250678D-03, .172711D-03, .118513D-03, - + .809626D-04, .552309D-04, .377034D-04, .259484D-04, - + .179353D-04, .125269D-04, .882649D-05, .626845D-05, - + .445494D-05, .314987D-05, .218739D-05, .147188D-05, - + .944708D-06, .565688D-06, .305799D-06, .141957D-06, - + .513814D-07, .116594D-07, .816494D-09, .000000D+00 / - DATA (UPDI(I),I=1093,1144) / - + .162184D+07, .121426D+07, .891754D+06, .654316D+06, - + .479673D+06, .351277D+06, .257003D+06, .187820D+06, - + .137119D+06, .999846D+05, .728254D+05, .529751D+05, - + .384889D+05, .279251D+05, .202341D+05, .146392D+05, - + .105763D+05, .762852D+04, .549388D+04, .394955D+04, - + .283465D+04, .203058D+04, .145199D+04, .103614D+04, - + .737969D+03, .524431D+03, .372065D+03, .262082D+03, - + .185165D+03, .130540D+03, .918606D+02, .645169D+02, - + .452369D+02, .317037D+02, .221788D+02, .155053D+02, - + .108406D+02, .758154D+01, .530876D+01, .372220D+01, - + .261712D+01, .184452D+01, .130421D+01, .925213D+00, - + .658918D+00, .470844D+00, .338222D+00, .243193D+00, - + .175866D+00, .127236D+00, .924026D-01, .672145D-01 / - DATA (UPDI(I),I=1145,1196) / - + .489744D-01, .357056D-01, .260446D-01, .189831D-01, - + .138249D-01, .100495D-01, .729182D-02, .527434D-02, - + .380387D-02, .273200D-02, .195382D-02, .139231D-02, - + .985199D-03, .692813D-03, .484598D-03, .336887D-03, - + .233087D-03, .160442D-03, .110152D-03, .754376D-04, - + .517050D-04, .355456D-04, .246812D-04, .172395D-04, - + .121704D-04, .866035D-05, .619602D-05, .442273D-05, - + .312754D-05, .216443D-05, .144553D-05, .917896D-06, - + .541854D-06, .287817D-06, .130725D-06, .460518D-07, - + .101611D-07, .722847D-09, .000000D+00, .203074D+07, - + .151624D+07, .110990D+07, .811705D+06, .593081D+06, - + .432878D+06, .315635D+06, .229884D+06, .167250D+06, - + .121532D+06, .882090D+05, .639382D+05, .462875D+05 / - DATA (UPDI(I),I=1197,1248) / - + .334616D+05, .241568D+05, .174125D+05, .125327D+05, - + .900537D+04, .646050D+04, .462639D+04, .330731D+04, - + .235969D+04, .168048D+04, .119425D+04, .847025D+03, - + .599362D+03, .423385D+03, .296903D+03, .208829D+03, - + .146556D+03, .102652D+03, .717570D+02, .500712D+02, - + .349205D+02, .243069D+02, .169066D+02, .117590D+02, - + .818053D+01, .569744D+01, .397304D+01, .277806D+01, - + .194704D+01, .136893D+01, .965617D+00, .683752D+00, - + .485780D+00, .346939D+00, .248018D+00, .178314D+00, - + .128259D+00, .926058D-01, .669749D-01, .485182D-01, - + .351704D-01, .255068D-01, .184855D-01, .133862D-01, - + .967625D-02, .698182D-02, .502254D-02, .360271D-02, - + .257402D-02, .183142D-02, .129876D-02, .914775D-03 / - DATA (UPDI(I),I=1249,1300) / - + .640647D-03, .446508D-03, .309545D-03, .213772D-03, - + .147064D-03, .101053D-03, .693919D-04, .477828D-04, - + .330634D-04, .231367D-04, .163007D-04, .116016D-04, - + .831161D-05, .597124D-05, .426764D-05, .301063D-05, - + .207226D-05, .137182D-05, .861107D-06, .500977D-06, - + .261471D-06, .116233D-06, .398873D-07, .857001D-08, - + .619013D-09, .000000D+00, .921232D+05, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=1301,1352) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=1353,1404) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .272605D+05, .210963D+05, .161051D+05, - + .122869D+05, .937225D+04, .714394D+04, .544420D+04, - + .414574D+04, .315612D+04, .240078D+04, .182563D+04, - + .138705D+04, .105345D+04, .799320D+03, .606244D+03, - + .459329D+03, .347854D+03, .263136D+03, .198943D+03, - + .150229D+03, .113380D+03, .854601D+02, .643746D+02, - + .484268D+02, .364038D+02, .273320D+02, .205126D+02, - + .153106D+02, .114696D+02, .858093D+01, .641910D+01, - + .479705D+01, .358555D+01, .268087D+01, .200509D+01, - + .150002D+01, .112449D+01, .843845D+00, .635200D+00 / - DATA (UPDI(I),I=1405,1456) / - + .479051D+00, .362898D+00, .275669D+00, .210372D+00, - + .161065D+00, .123945D+00, .956775D-01, .742899D-01, - + .577231D-01, .451368D-01, .352915D-01, .277081D-01, - + .217666D-01, .171372D-01, .134885D-01, .106282D-01, - + .835958D-02, .657108D-02, .515001D-02, .403105D-02, - + .314123D-02, .244117D-02, .188653D-02, .145136D-02, - + .111098D-02, .843556D-03, .634362D-03, .472917D-03, - + .348406D-03, .253796D-03, .181933D-03, .128379D-03, - + .885312D-04, .596090D-04, .386127D-04, .240844D-04, - + .139633D-04, .727183D-05, .298711D-05, .430861D-06, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=1457,1508) / - + .617732D+05, .476961D+05, .363164D+05, .276342D+05, - + .210220D+05, .159806D+05, .121444D+05, .922215D+04, - + .700055D+04, .530979D+04, .402575D+04, .304953D+04, - + .230898D+04, .174660D+04, .132051D+04, .997338D+03, - + .752825D+03, .567617D+03, .427700D+03, .321882D+03, - + .242081D+03, .181832D+03, .136475D+03, .102294D+03, - + .766102D+02, .573024D+02, .428382D+02, .318474D+02, - + .237609D+02, .177042D+02, .131877D+02, .981316D+01, - + .730214D+01, .543532D+01, .404617D+01, .301272D+01, - + .224737D+01, .167816D+01, .125673D+01, .942915D+00, - + .710474D+00, .536820D+00, .407406D+00, .310213D+00, - + .237373D+00, .182217D+00, .140677D+00, .108694D+00, - + .845038D-01, .656986D-01, .512847D-01, .400619D-01 / - DATA (UPDI(I),I=1509,1560) / - + .313616D-01, .245469D-01, .192321D-01, .150434D-01, - + .117595D-01, .916710D-02, .713678D-02, .553294D-02, - + .427831D-02, .329071D-02, .252050D-02, .192170D-02, - + .145417D-02, .109088D-02, .812232D-03, .598683D-03, - + .437315D-03, .315429D-03, .224979D-03, .157981D-03, - + .109329D-03, .740306D-04, .494233D-04, .320536D-04, - + .202845D-04, .123845D-04, .728827D-05, .406326D-05, - + .213207D-05, .101530D-05, .421381D-06, .128646D-06, - + .921694D-08, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .104640D+06, - + .806100D+05, .612164D+05, .464589D+05, .352469D+05, - + .267217D+05, .202506D+05, .153349D+05, .116074D+05, - + .877876D+04, .663622D+04, .501212D+04, .378346D+04 / - DATA (UPDI(I),I=1561,1612) / - + .285324D+04, .215045D+04, .161906D+04, .121819D+04, - + .915524D+03, .687559D+03, .515723D+03, .386537D+03, - + .289334D+03, .216392D+03, .161617D+03, .120595D+03, - + .898670D+02, .669265D+02, .495609D+02, .368296D+02, - + .273316D+02, .202743D+02, .150232D+02, .111303D+02, - + .824847D+01, .611224D+01, .453011D+01, .336307D+01, - + .249919D+01, .186220D+01, .139020D+01, .104206D+01, - + .783279D+00, .591276D+00, .447833D+00, .340813D+00, - + .260211D+00, .199786D+00, .153528D+00, .118698D+00, - + .917799D-01, .712471D-01, .553547D-01, .430948D-01, - + .335486D-01, .261404D-01, .203373D-01, .158115D-01, - + .122608D-01, .949406D-02, .732224D-02, .563226D-02, - + .431023D-02, .328487D-02, .249230D-02, .187704D-02 / - DATA (UPDI(I),I=1613,1664) / - + .140200D-02, .103974D-02, .763820D-03, .556459D-03, - + .400776D-03, .285824D-03, .201148D-03, .139876D-03, - + .956234D-04, .647868D-04, .430205D-04, .282005D-04, - + .181485D-04, .115358D-04, .720217D-05, .446022D-05, - + .271903D-05, .164231D-05, .970012D-06, .557559D-06, - + .301299D-06, .147538D-06, .600685D-07, .160855D-07, - + .989852D-09, .000000D+00, .189601D+06, .120767D+06, - + .914701D+05, .692351D+05, .523843D+05, .396058D+05, - + .299311D+05, .226021D+05, .170593D+05, .128649D+05, - + .969657D+04, .730187D+04, .549526D+04, .413158D+04, - + .310425D+04, .232988D+04, .174741D+04, .130903D+04, - + .979850D+03, .732532D+03, .547173D+03, .408175D+03, - + .304202D+03, .226396D+03, .168320D+03, .124971D+03 / - DATA (UPDI(I),I=1665,1716) / - + .927185D+02, .683952D+02, .506261D+02, .374215D+02, - + .276452D+02, .204002D+02, .150492D+02, .111046D+02, - + .819175D+01, .604387D+01, .446579D+01, .330297D+01, - + .244909D+01, .181937D+01, .135686D+01, .101474D+01, - + .762027D+00, .574180D+00, .434656D+00, .330120D+00, - + .252108D+00, .192714D+00, .148193D+00, .113979D+00, - + .880048D-01, .680148D-01, .526682D-01, .407863D-01, - + .316103D-01, .244642D-01, .189196D-01, .145952D-01, - + .112423D-01, .862624D-02, .660098D-02, .502615D-02, - + .381115D-02, .287726D-02, .215628D-02, .160305D-02, - + .118348D-02, .865835D-03, .628385D-03, .451171D-03, - + .320986D-03, .225627D-03, .156928D-03, .107566D-03, - + .732455D-04, .490863D-04, .326255D-04, .214274D-04 / - DATA (UPDI(I),I=1717,1768) / - + .139971D-04, .905747D-05, .585535D-05, .374985D-05, - + .238171D-05, .147688D-05, .883222D-06, .491487D-06, - + .244137D-06, .991455D-07, .260481D-07, .165440D-08, - + .000000D+00, .243490D+06, .186583D+06, .140828D+06, - + .106224D+06, .800845D+05, .603331D+05, .454287D+05, - + .341795D+05, .257008D+05, .193091D+05, .144977D+05, - + .108752D+05, .815220D+04, .610496D+04, .456832D+04, - + .341481D+04, .255041D+04, .190261D+04, .141804D+04, - + .105556D+04, .784976D+03, .582970D+03, .432488D+03, - + .320394D+03, .237081D+03, .175184D+03, .129336D+03, - + .949279D+02, .699070D+02, .514087D+02, .377763D+02, - + .277272D+02, .203407D+02, .149256D+02, .109465D+02, - + .802921D+01, .589676D+01, .433487D+01, .319397D+01 / - DATA (UPDI(I),I=1769,1820) / - + .235781D+01, .174700D+01, .129806D+01, .968285D+00, - + .724786D+00, .544948D+00, .411120D+00, .311828D+00, - + .236764D+00, .180818D+00, .138135D+00, .105924D+00, - + .813169D-01, .625390D-01, .481066D-01, .370284D-01, - + .284653D-01, .218631D-01, .167525D-01, .128143D-01, - + .976498D-02, .741896D-02, .560874D-02, .422090D-02, - + .316200D-02, .234987D-02, .173167D-02, .126607D-02, - + .916449D-03, .657005D-03, .465127D-03, .325352D-03, - + .224037D-03, .151843D-03, .100741D-03, .657771D-04, - + .417112D-04, .257569D-04, .153315D-04, .877376D-05, - + .474649D-05, .240702D-05, .110234D-05, .437137D-06, - + .125572D-06, .761066D-08, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=1821,1872) / - + .353055D+06, .269719D+06, .202857D+06, .152468D+06, - + .114533D+06, .859720D+05, .644946D+05, .483438D+05, - + .362139D+05, .271040D+05, .202713D+05, .151470D+05, - + .113092D+05, .843532D+04, .628641D+04, .467980D+04, - + .348058D+04, .258558D+04, .191879D+04, .142213D+04, - + .105290D+04, .778462D+03, .574887D+03, .423927D+03, - + .312219D+03, .229604D+03, .168687D+03, .123191D+03, - + .902618D+02, .660385D+02, .482714D+02, .352423D+02, - + .257121D+02, .187629D+02, .136821D+02, .997797D+01, - + .728434D+01, .532288D+01, .389777D+01, .285956D+01, - + .210531D+01, .155435D+01, .115193D+01, .856667D+00, - + .639850D+00, .479547D+00, .361309D+00, .272524D+00, - + .206732D+00, .156884D+00, .119496D+00, .911311D-01 / - DATA (UPDI(I),I=1873,1924) / - + .696186D-01, .532000D-01, .406749D-01, .310630D-01, - + .236998D-01, .180413D-01, .137087D-01, .103787D-01, - + .783336D-02, .588398D-02, .439932D-02, .327470D-02, - + .241810D-02, .177110D-02, .128723D-02, .926661D-03, - + .660947D-03, .465942D-03, .324848D-03, .223328D-03, - + .151405D-03, .100857D-03, .664080D-04, .427815D-04, - + .271048D-04, .168194D-04, .102622D-04, .613375D-05, - + .362101D-05, .210343D-05, .121115D-05, .685231D-06, - + .379786D-06, .199397D-06, .954673D-07, .378164D-07, - + .973219D-08, .607511D-09, .000000D+00, .489941D+06, - + .373153D+06, .279650D+06, .209432D+06, .156752D+06, - + .117232D+06, .876187D+05, .654311D+05, .488277D+05, - + .364047D+05, .271217D+05, .201862D+05, .150118D+05 / - DATA (UPDI(I),I=1925,1976) / - + .111520D+05, .827716D+04, .613644D+04, .454488D+04, - + .336196D+04, .248426D+04, .183326D+04, .135130D+04, - + .994632D+03, .731192D+03, .536712D+03, .393435D+03, - + .287954D+03, .210530D+03, .152982D+03, .111527D+03, - + .811826D+02, .590318D+02, .428709D+02, .311082D+02, - + .225763D+02, .163700D+02, .118701D+02, .861482D+01, - + .625786D+01, .455465D+01, .332108D+01, .242985D+01, - + .178271D+01, .131274D+01, .970044D+00, .719841D+00, - + .536015D+00, .401223D+00, .300666D+00, .226584D+00, - + .170830D+00, .129264D+00, .979434D-01, .743339D-01, - + .564363D-01, .428671D-01, .325259D-01, .246549D-01, - + .186483D-01, .140780D-01, .105905D-01, .794189D-02, - + .592794D-02, .440410D-02, .325780D-02, .239063D-02 / - DATA (UPDI(I),I=1977,2028) / - + .174050D-02, .125764D-02, .900455D-03, .639015D-03, - + .448551D-03, .311647D-03, .213823D-03, .144921D-03, - + .968095D-04, .641434D-04, .418141D-04, .269893D-04, - + .172277D-04, .109335D-04, .689191D-05, .434554D-05, - + .272722D-05, .170125D-05, .103999D-05, .613080D-06, - + .336001D-06, .163486D-06, .641903D-07, .160856D-07, - + .104871D-08, .000000D+00, .658768D+06, .500202D+06, - + .373521D+06, .278724D+06, .207853D+06, .154877D+06, - + .115323D+06, .857958D+05, .637809D+05, .473708D+05, - + .351541D+05, .260618D+05, .193040D+05, .142830D+05, - + .105578D+05, .779502D+04, .574917D+04, .423486D+04, - + .311586D+04, .228939D+04, .168010D+04, .123114D+04, - + .900959D+03, .658294D+03, .480311D+03, .349870D+03 / - DATA (UPDI(I),I=2029,2080) / - + .254563D+03, .184062D+03, .133515D+03, .966972D+02, - + .699496D+02, .505334D+02, .364715D+02, .263249D+02, - + .189816D+02, .136859D+02, .987521D+01, .713147D+01, - + .515946D+01, .373943D+01, .271912D+01, .198263D+01, - + .145080D+01, .106534D+01, .785528D+00, .581212D+00, - + .432274D+00, .321868D+00, .241000D+00, .180536D+00, - + .135731D+00, .102190D+00, .770601D-01, .581349D-01, - + .438746D-01, .330797D-01, .249154D-01, .187271D-01, - + .140480D-01, .105021D-01, .782619D-02, .580562D-02, - + .428656D-02, .315156D-02, .229866D-02, .166381D-02, - + .119546D-02, .851448D-03, .601303D-03, .420339D-03, - + .291082D-03, .199321D-03, .135053D-03, .904339D-04, - + .602397D-04, .396553D-04, .259752D-04, .169318D-04 / - DATA (UPDI(I),I=2081,2132) / - + .110380D-04, .718890D-05, .469533D-05, .305297D-05, - + .196263D-05, .122780D-05, .732733D-06, .402506D-06, - + .194014D-06, .745897D-07, .181776D-07, .121184D-08, - + .000000D+00, .864469D+06, .654384D+06, .486900D+06, - + .362015D+06, .268978D+06, .199683D+06, .148131D+06, - + .109789D+06, .813065D+05, .601550D+05, .444675D+05, - + .328368D+05, .242255D+05, .178524D+05, .131425D+05, - + .966339D+04, .709745D+04, .520598D+04, .381401D+04, - + .279025D+04, .203867D+04, .148725D+04, .108348D+04, - + .788039D+03, .572307D+03, .414913D+03, .300438D+03, - + .216160D+03, .156022D+03, .112430D+03, .809134D+02, - + .581500D+02, .417454D+02, .299694D+02, .214902D+02, - + .154080D+02, .110542D+02, .793673D+01, .570820D+01 / - DATA (UPDI(I),I=2133,2184) / - + .411255D+01, .297235D+01, .215407D+01, .156653D+01, - + .114321D+01, .837679D+00, .615923D+00, .455215D+00, - + .336821D+00, .250604D+00, .186550D+00, .139367D+00, - + .104273D+00, .781372D-01, .585803D-01, .439336D-01, - + .329185D-01, .246399D-01, .184061D-01, .137218D-01, - + .101956D-01, .755135D-02, .556807D-02, .408643D-02, - + .298664D-02, .216560D-02, .155870D-02, .111388D-02, - + .789370D-03, .554905D-03, .386412D-03, .266783D-03, - + .182372D-03, .123566D-03, .829416D-04, .555273D-04, - + .368729D-04, .244546D-04, .162075D-04, .107756D-04, - + .717325D-05, .478440D-05, .316888D-05, .206321D-05, - + .129945D-05, .774851D-06, .422462D-06, .200549D-06, - + .752923D-07, .178409D-07, .121130D-08, .000000D+00 / - DATA (UPDI(I),I=2185,2236) / - + .111222D+07, .839366D+06, .622294D+06, .461010D+06, - + .341280D+06, .252425D+06, .186558D+06, .137750D+06, - + .101625D+06, .748994D+05, .551517D+05, .405668D+05, - + .298095D+05, .218793D+05, .160416D+05, .117467D+05, - + .859168D+04, .627552D+04, .457800D+04, .333475D+04, - + .242586D+04, .176189D+04, .127780D+04, .925146D+03, - + .668779D+03, .482575D+03, .347766D+03, .248985D+03, - + .178832D+03, .128225D+03, .918111D+02, .656416D+02, - + .468754D+02, .334730D+02, .238715D+02, .170207D+02, - + .121422D+02, .866816D+01, .619802D+01, .443924D+01, - + .318934D+01, .229746D+01, .166066D+01, .120453D+01, - + .877186D+00, .641003D+00, .470829D+00, .346222D+00, - + .256002D+00, .189389D+00, .140614D+00, .104560D+00 / - DATA (UPDI(I),I=2237,2288) / - + .778701D-01, .580232D-01, .432483D-01, .322079D-01, - + .239613D-01, .177914D-01, .131833D-01, .973709D-02, - + .716872D-02, .525498D-02, .383409D-02, .278613D-02, - + .200879D-02, .143802D-02, .102235D-02, .721065D-03, - + .504722D-03, .350233D-03, .241170D-03, .164647D-03, - + .111596D-03, .751035D-04, .505304D-04, .338259D-04, - + .226781D-04, .152353D-04, .102810D-04, .694859D-05, - + .469456D-05, .313949D-05, .205309D-05, .129240D-05, - + .765788D-06, .412765D-06, .192536D-06, .705293D-07, - + .162583D-07, .112242D-08, .000000D+00, .140738D+07, - + .105890D+07, .782243D+06, .577416D+06, .425898D+06, - + .313854D+06, .231097D+06, .169997D+06, .124941D+06, - + .917311D+05, .672842D+05, .492976D+05, .360819D+05 / - DATA (UPDI(I),I=2289,2340) / - + .263774D+05, .192613D+05, .140468D+05, .102316D+05, - + .744209D+04, .540602D+04, .392104D+04, .283997D+04, - + .205360D+04, .148272D+04, .106866D+04, .768985D+03, - + .552292D+03, .396124D+03, .282229D+03, .201721D+03, - + .143923D+03, .102532D+03, .729327D+02, .518107D+02, - + .368022D+02, .261042D+02, .185109D+02, .131317D+02, - + .932175D+01, .662716D+01, .471915D+01, .337053D+01, - + .241363D+01, .173421D+01, .125034D+01, .905040D+00, - + .657353D+00, .479912D+00, .350757D+00, .257776D+00, - + .189544D+00, .139874D+00, .103384D+00, .765290D-01, - + .566817D-01, .419941D-01, .310874D-01, .229899D-01, - + .169695D-01, .125000D-01, .917862D-02, .671828D-02, - + .489670D-02, .355240D-02, .256710D-02, .184079D-02 / - DATA (UPDI(I),I=2341,2392) / - + .131094D-02, .927443D-03, .651221D-03, .454041D-03, - + .314078D-03, .215797D-03, .147196D-03, .998475D-04, - + .673913D-04, .455686D-04, .307350D-04, .208036D-04, - + .141329D-04, .964581D-05, .658809D-05, .448508D-05, - + .301231D-05, .196929D-05, .123409D-05, .724541D-06, - + .385303D-06, .176397D-06, .630359D-07, .141467D-07, - + .992279D-09, .000000D+00, .175535D+07, .131674D+07, - + .969260D+06, .712901D+06, .523927D+06, .384685D+06, - + .282205D+06, .206820D+06, .151431D+06, .110758D+06, - + .809277D+05, .590638D+05, .430602D+05, .313539D+05, - + .228034D+05, .165625D+05, .120144D+05, .870263D+04, - + .629512D+04, .454650D+04, .327879D+04, .236058D+04, - + .169682D+04, .121750D+04, .872103D+03, .623455D+03 / - DATA (UPDI(I),I=2393,2444) / - + .445069D+03, .315574D+03, .224467D+03, .159369D+03, - + .112971D+03, .799521D+02, .565049D+02, .399276D+02, - + .281703D+02, .198682D+02, .140171D+02, .989498D+01, - + .699496D+01, .495265D+01, .351686D+01, .250375D+01, - + .178839D+01, .128180D+01, .922294D+00, .665895D+00, - + .483254D+00, .351089D+00, .256478D+00, .187463D+00, - + .137514D+00, .101039D+00, .743504D-01, .547440D-01, - + .403193D-01, .296731D-01, .218162D-01, .160101D-01, - + .117253D-01, .856080D-02, .623060D-02, .451606D-02, - + .325822D-02, .234190D-02, .167053D-02, .118382D-02, - + .833642D-03, .582935D-03, .404978D-03, .279373D-03, - + .191613D-03, .130646D-03, .887294D-04, .600764D-04, - + .408261D-04, .277306D-04, .189281D-04, .129768D-04 / - DATA (UPDI(I),I=2445,2496) / - + .893262D-05, .614395D-05, .419934D-05, .282249D-05, - + .183906D-05, .114452D-05, .664657D-06, .348309D-06, - + .156409D-06, .545279D-07, .119237D-07, .849310D-09, - + .000000D+00, .216151D+07, .161660D+07, .118579D+07, - + .869056D+06, .636393D+06, .465568D+06, .340291D+06, - + .248467D+06, .181245D+06, .132064D+06, .961273D+05, - + .698868D+05, .507521D+05, .368094D+05, .266645D+05, - + .192890D+05, .139353D+05, .100524D+05, .724122D+04, - + .520776D+04, .373964D+04, .268073D+04, .191851D+04, - + .137046D+04, .977253D+03, .695426D+03, .494146D+03, - + .348703D+03, .246849D+03, .174413D+03, .123027D+03, - + .866348D+02, .609167D+02, .428238D+02, .300550D+02, - + .210847D+02, .147948D+02, .103867D+02, .730175D+01 / - DATA (UPDI(I),I=2497,2548) / - + .514083D+01, .362972D+01, .256928D+01, .182458D+01, - + .130015D+01, .930035D+00, .667551D+00, .481622D+00, - + .347848D+00, .252619D+00, .183560D+00, .133864D+00, - + .977863D-01, .715388D-01, .523697D-01, .383478D-01, - + .280607D-01, .205130D-01, .149688D-01, .109009D-01, - + .791471D-02, .572863D-02, .412985D-02, .296369D-02, - + .211920D-02, .150410D-02, .106089D-02, .743834D-03, - + .518149D-03, .358815D-03, .246949D-03, .169150D-03, - + .115333D-03, .784561D-04, .532996D-04, .364002D-04, - + .248855D-04, .171100D-04, .118168D-04, .818469D-05, - + .565377D-05, .386917D-05, .259597D-05, .168238D-05, - + .103810D-05, .595637D-06, .307360D-06, .135331D-06, - + .460358D-07, .981700D-08, .709832D-09, .000000D+00 / - DATA (UPDI(I),I=2549,2600) / - + .775341D+05, .460803D+05, .355832D+05, .274776D+05, - + .212185D+05, .163853D+05, .126532D+05, .977125D+04, - + .754586D+04, .582742D+04, .450044D+04, .347575D+04, - + .268447D+04, .207343D+04, .160157D+04, .123719D+04, - + .955793D+03, .738483D+03, .570658D+03, .441046D+03, - + .340943D+03, .263625D+03, .203904D+03, .157771D+03, - + .122131D+03, .945946D+02, .733157D+02, .566652D+02, - + .440022D+02, .342088D+02, .266318D+02, .207669D+02, - + .162245D+02, .127130D+02, .998121D+01, .786001D+01, - + .621024D+01, .492449D+01, .391987D+01, .313214D+01, - + .251312D+01, .202380D+01, .163537D+01, .132547D+01, - + .107695D+01, .876642D+00, .714973D+00, .582638D+00, - + .475242D+00, .386760D+00, .314446D+00, .255039D+00 / - DATA (UPDI(I),I=2601,2652) / - + .206227D+00, .166143D+00, .133277D+00, .106390D+00, - + .844629D-01, .666506D-01, .522474D-01, .406623D-01, - + .313995D-01, .240421D-01, .182404D-01, .137203D-01, - + .101924D-01, .748393D-02, .542601D-02, .388006D-02, - + .273308D-02, .189364D-02, .128843D-02, .859270D-03, - + .560315D-03, .356142D-03, .221002D-03, .132492D-03, - + .766603D-04, .425813D-04, .225566D-04, .113015D-04, - + .529881D-05, .229603D-05, .896847D-06, .309982D-06, - + .908335D-07, .212466D-07, .358597D-08, .361347D-09, - + .142072D-10, .559081D-13, .000000D+00, .855431D+05, - + .666397D+05, .512734D+05, .394443D+05, .303433D+05, - + .233383D+05, .179498D+05, .138031D+05, .106139D+05, - + .816020D+04, .627349D+04, .482220D+04, .370651D+04 / - DATA (UPDI(I),I=2653,2704) / - + .284849D+04, .218904D+04, .168201D+04, .129241D+04, - + .992925D+03, .762863D+03, .586056D+03, .450270D+03, - + .345940D+03, .265831D+03, .204292D+03, .157047D+03, - + .120761D+03, .929135D+02, .712580D+02, .549039D+02, - + .423387D+02, .326903D+02, .252742D+02, .195752D+02, - + .152021D+02, .118282D+02, .922858D+01, .722426D+01, - + .567465D+01, .447480D+01, .354187D+01, .281563D+01, - + .224656D+01, .179912D+01, .144535D+01, .116443D+01, - + .940029D+00, .760687D+00, .615146D+00, .498187D+00, - + .402627D+00, .325222D+00, .262137D+00, .210731D+00, - + .168829D+00, .134731D+00, .107020D+00, .845723D-01, - + .664453D-01, .518777D-01, .402216D-01, .309524D-01, - + .236248D-01, .178724D-01, .134095D-01, .993935D-02 / - DATA (UPDI(I),I=2705,2756) / - + .728344D-02, .527182D-02, .376439D-02, .264877D-02, - + .183349D-02, .124664D-02, .830615D-03, .541079D-03, - + .343039D-03, .211982D-03, .125985D-03, .717091D-04, - + .385643D-04, .191566D-04, .837608D-05, .279051D-05, - + .208487D-06, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .119395D+06, .927225D+05, - + .710854D+05, .544833D+05, .417548D+05, .319910D+05, - + .245079D+05, .187697D+05, .143735D+05, .110037D+05, - + .842297D+04, .644556D+04, .493179D+04, .377239D+04, - + .288523D+04, .220603D+04, .168655D+04, .128903D+04, - + .985123D+03, .752672D+03, .575062D+03, .439274D+03, - + .335567D+03, .256317D+03, .195815D+03, .149604D+03 / - DATA (UPDI(I),I=2757,2808) / - + .114353D+03, .870989D+02, .666441D+02, .510238D+02, - + .391082D+02, .300082D+02, .230628D+02, .177694D+02, - + .137148D+02, .106127D+02, .823908D+01, .641732D+01, - + .501786D+01, .393803D+01, .310432D+01, .245622D+01, - + .195092D+01, .155465D+01, .124270D+01, .995549D+00, - + .799730D+00, .642088D+00, .516498D+00, .414683D+00, - + .332875D+00, .266697D+00, .213180D+00, .169863D+00, - + .134860D+00, .106596D+00, .838442D-01, .655804D-01, - + .509895D-01, .393766D-01, .301911D-01, .229650D-01, - + .173186D-01, .129573D-01, .958022D-02, .700487D-02, - + .506141D-02, .360962D-02, .253850D-02, .175756D-02, - + .119670D-02, .799621D-03, .523532D-03, .334548D-03, - + .209351D-03, .126865D-03, .745003D-04, .421358D-04 / - DATA (UPDI(I),I=2809,2860) / - + .228458D-04, .117548D-04, .568594D-05, .253238D-05, - + .100413D-05, .326628D-06, .661236D-07, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .161621D+06, .125136D+06, .955990D+05, - + .730096D+05, .557492D+05, .425541D+05, .324765D+05, - + .247763D+05, .188983D+05, .144093D+05, .109844D+05, - + .837029D+04, .637700D+04, .485640D+04, .369765D+04, - + .281421D+04, .214143D+04, .162881D+04, .123869D+04, - + .941632D+03, .715726D+03, .543831D+03, .413190D+03, - + .313851D+03, .238401D+03, .181071D+03, .137579D+03, - + .104134D+03, .791751D+02, .602233D+02, .458520D+02, - + .349419D+02, .266666D+02, .203988D+02, .156292D+02, - + .120038D+02, .924859D+01, .714829D+01, .554628D+01 / - DATA (UPDI(I),I=2861,2912) / - + .431889D+01, .337825D+01, .265237D+01, .209070D+01, - + .165355D+01, .131210D+01, .104362D+01, .832567D+00, - + .663933D+00, .530633D+00, .423359D+00, .337803D+00, - + .269081D+00, .213896D+00, .169529D+00, .133912D+00, - + .105330D+00, .824621D-01, .642104D-01, .497120D-01, - + .382335D-01, .292019D-01, .221317D-01, .166329D-01, - + .124046D-01, .914452D-02, .666820D-02, .480676D-02, - + .342118D-02, .240244D-02, .166188D-02, .113151D-02, - + .756846D-03, .496823D-03, .318968D-03, .201167D-03, - + .123427D-03, .739125D-04, .430828D-04, .244913D-04, - + .135650D-04, .737893D-05, .395570D-05, .211343D-05, - + .112869D-05, .602735D-06, .311563D-06, .149217D-06, - + .602331D-07, .160919D-07, .989881D-09, .000000D+00 / - DATA (UPDI(I),I=2913,2964) / - + .175660D+06, .164807D+06, .125477D+06, .954959D+05, - + .726625D+05, .552652D+05, .420234D+05, .319403D+05, - + .242704D+05, .184338D+05, .139972D+05, .106232D+05, - + .806033D+04, .611274D+04, .463443D+04, .351185D+04, - + .266045D+04, .201442D+04, .152485D+04, .115369D+04, - + .872670D+03, .659800D+03, .498764D+03, .376886D+03, - + .284761D+03, .215103D+03, .162528D+03, .122305D+03, - + .924451D+02, .698934D+02, .528862D+02, .400474D+02, - + .303648D+02, .230741D+02, .175593D+02, .133931D+02, - + .102466D+02, .786329D+01, .605726D+01, .468272D+01, - + .363643D+01, .283454D+01, .221837D+01, .174217D+01, - + .137289D+01, .108458D+01, .859574D+00, .681059D+00, - + .540963D+00, .429000D+00, .340322D+00, .269569D+00 / - DATA (UPDI(I),I=2965,3016) / - + .213130D+00, .168043D+00, .132075D+00, .103383D+00, - + .805613D-01, .624489D-01, .481400D-01, .368709D-01, - + .280495D-01, .211778D-01, .158582D-01, .117863D-01, - + .866048D-02, .629597D-02, .452582D-02, .321322D-02, - + .225170D-02, .155508D-02, .105778D-02, .707448D-03, - + .464908D-03, .299289D-03, .189705D-03, .117374D-03, - + .712266D-04, .423585D-04, .248044D-04, .143306D-04, - + .825707D-05, .476001D-05, .276342D-05, .160436D-05, - + .919177D-06, .499579D-06, .245447D-06, .992728D-07, - + .260530D-07, .165442D-08, .000000D+00, .299054D+06, - + .230002D+06, .174355D+06, .132115D+06, .100076D+06, - + .757714D+05, .573501D+05, .433857D+05, .328099D+05, - + .247992D+05, .187373D+05, .141495D+05, .106809D+05 / - DATA (UPDI(I),I=3017,3068) / - + .805796D+04, .607672D+04, .457992D+04, .345040D+04, - + .259788D+04, .195520D+04, .147063D+04, .110574D+04, - + .830912D+03, .624178D+03, .468641D+03, .351767D+03, - + .263937D+03, .198058D+03, .147982D+03, .111046D+03, - + .833379D+02, .625816D+02, .470225D+02, .353698D+02, - + .266600D+02, .201197D+02, .152164D+02, .115414D+02, - + .877980D+01, .670362D+01, .513648D+01, .395334D+01, - + .305428D+01, .236926D+01, .184449D+01, .144104D+01, - + .112885D+01, .887321D+00, .697385D+00, .549627D+00, - + .432563D+00, .340628D+00, .267896D+00, .210348D+00, - + .164747D+00, .128649D+00, .100072D+00, .775083D-01, - + .597293D-01, .457805D-01, .348693D-01, .263835D-01, - + .198154D-01, .147611D-01, .109154D-01, .797979D-02 / - DATA (UPDI(I),I=3069,3120) / - + .577167D-02, .412751D-02, .291487D-02, .203115D-02, - + .139419D-02, .941782D-03, .624714D-03, .406388D-03, - + .258191D-03, .160795D-03, .970491D-04, .568174D-04, - + .320507D-04, .173401D-04, .889283D-05, .427934D-05, - + .188284D-05, .729212D-06, .222139D-06, .345505D-07, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .407837D+06, .312526D+06, - + .235912D+06, .177994D+06, .134243D+06, .101193D+06, - + .762479D+05, .574200D+05, .432226D+05, .325165D+05, - + .244511D+05, .183749D+05, .138021D+05, .103606D+05, - + .777334D+04, .582829D+04, .436769D+04, .327087D+04, - + .244821D+04, .183119D+04, .136899D+04, .102276D+04, - + .763739D+03, .569956D+03, .425165D+03, .316990D+03 / - DATA (UPDI(I),I=3121,3172) / - + .236332D+03, .175394D+03, .130724D+03, .974271D+02, - + .726421D+02, .541859D+02, .404548D+02, .302621D+02, - + .226607D+02, .170029D+02, .127926D+02, .965235D+01, - + .730898D+01, .555379D+01, .423885D+01, .324756D+01, - + .249823D+01, .192888D+01, .149470D+01, .116149D+01, - + .905814D+00, .706418D+00, .552566D+00, .431677D+00, - + .337497D+00, .263588D+00, .205564D+00, .159940D+00, - + .124094D+00, .959269D-01, .738449D-01, .565694D-01, - + .431079D-01, .326491D-01, .245682D-01, .183539D-01, - + .136012D-01, .100070D-01, .727969D-02, .524033D-02, - + .373052D-02, .262326D-02, .182074D-02, .124541D-02, - + .838861D-03, .555347D-03, .360989D-03, .229634D-03, - + .143593D-03, .874143D-04, .519707D-04, .301005D-04 / - DATA (UPDI(I),I=3173,3224) / - + .170115D-04, .937265D-05, .507009D-05, .270168D-05, - + .143267D-05, .757660D-06, .399749D-06, .203785D-06, - + .961600D-07, .378823D-07, .973472D-08, .607524D-09, - + .000000D+00, .543953D+06, .415358D+06, .312239D+06, - + .234598D+06, .176185D+06, .132238D+06, .992062D+05, - + .743793D+05, .557375D+05, .417408D+05, .312423D+05, - + .233685D+05, .174693D+05, .130500D+05, .974293D+04, - + .726855D+04, .541929D+04, .403741D+04, .300603D+04, - + .223637D+04, .166277D+04, .123533D+04, .917235D+03, - + .680543D+03, .504657D+03, .373982D+03, .277103D+03, - + .204339D+03, .151316D+03, .112032D+03, .829683D+02, - + .614628D+02, .455641D+02, .338398D+02, .251536D+02, - + .187324D+02, .139865D+02, .104718D+02, .786748D+01 / - DATA (UPDI(I),I=3225,3276) / - + .593111D+01, .449098D+01, .341347D+01, .260507D+01, - + .199557D+01, .153433D+01, .118312D+01, .915715D+00, - + .708816D+00, .550410D+00, .426919D+00, .331450D+00, - + .257104D+00, .199173D+00, .153963D+00, .118698D+00, - + .911869D-01, .697702D-01, .531314D-01, .402530D-01, - + .303140D-01, .226844D-01, .168549D-01, .124238D-01, - + .909340D-02, .658143D-02, .471436D-02, .334019D-02, - + .233824D-02, .161612D-02, .110132D-02, .739469D-03, - + .488436D-03, .317160D-03, .201934D-03, .126722D-03, - + .777418D-04, .468563D-04, .277563D-04, .162402D-04, - + .941663D-05, .546467D-05, .318477D-05, .186889D-05, - + .109419D-05, .627839D-06, .339204D-06, .163985D-06, - + .642372D-07, .160874D-07, .104872D-08, .000000D+00 / - DATA (UPDI(I),I=3277,3328) / - + .712020D+06, .541813D+06, .405652D+06, .303536D+06, - + .227012D+06, .169671D+06, .126747D+06, .946178D+05, - + .705932D+05, .526315D+05, .392164D+05, .291990D+05, - + .217266D+05, .161540D+05, .120027D+05, .891094D+04, - + .661103D+04, .490057D+04, .363008D+04, .268664D+04, - + .198699D+04, .146827D+04, .108422D+04, .799943D+03, - + .589820D+03, .434549D+03, .320070D+03, .234575D+03, - + .172632D+03, .127008D+03, .934520D+02, .687735D+02, - + .506402D+02, .373522D+02, .275697D+02, .203853D+02, - + .151100D+02, .112297D+02, .837403D+01, .626555D+01, - + .470833D+01, .355155D+01, .268989D+01, .204502D+01, - + .156057D+01, .119443D+01, .917734D+00, .705252D+00, - + .543775D+00, .418836D+00, .322959D+00, .248849D+00 / - DATA (UPDI(I),I=3329,3380) / - + .191519D+00, .147100D+00, .112695D+00, .860434D-01, - + .654377D-01, .495379D-01, .373126D-01, .279399D-01, - + .207911D-01, .153638D-01, .112637D-01, .820090D-02, - + .590475D-02, .420842D-02, .296729D-02, .206765D-02, - + .142297D-02, .965968D-03, .646490D-03, .426019D-03, - + .276327D-03, .176083D-03, .110875D-03, .685178D-04, - + .418161D-04, .252613D-04, .152019D-04, .915279D-05, - + .555782D-05, .340218D-05, .208923D-05, .126827D-05, - + .743622D-06, .404840D-06, .194373D-06, .746230D-07, - + .181788D-07, .121185D-08, .000000D+00, .916970D+06, - + .695410D+06, .518578D+06, .386477D+06, .287867D+06, - + .214269D+06, .159394D+06, .118486D+06, .880225D+05, - + .653412D+05, .484723D+05, .359295D+05, .266137D+05 / - DATA (UPDI(I),I=3381,3432) / - + .196967D+05, .145667D+05, .107633D+05, .794692D+04, - + .586207D+04, .432075D+04, .318167D+04, .234104D+04, - + .172086D+04, .126398D+04, .927523D+03, .680115D+03, - + .498250D+03, .364883D+03, .265833D+03, .194468D+03, - + .142202D+03, .103982D+03, .760376D+02, .556262D+02, - + .407599D+02, .298822D+02, .219439D+02, .161519D+02, - + .119194D+02, .882469D+01, .655512D+01, .489014D+01, - + .366183D+01, .275318D+01, .207793D+01, .157423D+01, - + .119625D+01, .912637D+00, .696419D+00, .533272D+00, - + .407957D+00, .312475D+00, .239198D+00, .182909D+00, - + .139602D+00, .106288D+00, .806579D-01, .609749D-01, - + .458885D-01, .343639D-01, .255858D-01, .189330D-01, - + .139140D-01, .101457D-01, .734775D-02, .526290D-02 / - DATA (UPDI(I),I=3433,3484) / - + .373200D-02, .261855D-02, .181621D-02, .124455D-02, - + .841614D-03, .561464D-03, .369150D-03, .239213D-03, - + .152583D-03, .964157D-04, .600121D-04, .370592D-04, - + .227835D-04, .140358D-04, .869763D-05, .544768D-05, - + .343482D-05, .215860D-05, .132961D-05, .782868D-06, - + .424158D-06, .200807D-06, .753159D-07, .178418D-07, - + .121130D-08, .000000D+00, .116399D+07, .879813D+06, - + .653527D+06, .485127D+06, .359903D+06, .266805D+06, - + .197662D+06, .146324D+06, .108246D+06, .800122D+05, - + .590997D+05, .436155D+05, .321636D+05, .236972D+05, - + .174454D+05, .128308D+05, .942889D+04, .692209D+04, - + .507734D+04, .372042D+04, .272374D+04, .199199D+04, - + .145555D+04, .106248D+04, .774895D+03, .564576D+03 / - DATA (UPDI(I),I=3485,3536) / - + .411153D+03, .297819D+03, .216607D+03, .157459D+03, - + .114445D+03, .831762D+02, .604677D+02, .440260D+02, - + .320669D+02, .233928D+02, .171028D+02, .125352D+02, - + .921668D+01, .679872D+01, .503635D+01, .374480D+01, - + .279574D+01, .209524D+01, .157623D+01, .118944D+01, - + .901218D+00, .683013D+00, .519501D+00, .394784D+00, - + .300413D+00, .228491D+00, .173618D+00, .131689D+00, - + .996492D-01, .751654D-01, .564861D-01, .422626D-01, - + .314666D-01, .232962D-01, .171427D-01, .125294D-01, - + .908663D-02, .654594D-02, .466418D-02, .329074D-02, - + .229773D-02, .158639D-02, .108245D-02, .729262D-03, - + .485024D-03, .318232D-03, .206076D-03, .131615D-03, - + .834812D-04, .523385D-04, .326868D-04, .204159D-04 / - DATA (UPDI(I),I=3537,3588) / - + .128283D-04, .812928D-05, .520353D-05, .334156D-05, - + .212482D-05, .131482D-05, .771678D-06, .413996D-06, - + .192721D-06, .705461D-07, .162589D-07, .112242D-08, - + .000000D+00, .145841D+07, .109877D+07, .813034D+06, - + .601193D+06, .444257D+06, .328032D+06, .242044D+06, - + .178450D+06, .131468D+06, .967713D+05, .711761D+05, - + .523029D+05, .384025D+05, .281693D+05, .206450D+05, - + .151153D+05, .110566D+05, .807923D+04, .589804D+04, - + .430100D+04, .313340D+04, .228022D+04, .165775D+04, - + .120386D+04, .873416D+03, .632962D+03, .458456D+03, - + .330225D+03, .238827D+03, .172618D+03, .124731D+03, - + .901135D+02, .651137D+02, .471171D+02, .341026D+02, - + .247190D+02, .179550D+02, .130733D+02, .954836D+01 / - DATA (UPDI(I),I=3589,3640) / - + .699606D+01, .514744D+01, .380138D+01, .281862D+01, - + .209801D+01, .156760D+01, .117494D+01, .884283D+00, - + .665721D+00, .503032D+00, .379787D+00, .287154D+00, - + .217033D+00, .163888D+00, .123548D+00, .929246D-01, - + .696763D-01, .520541D-01, .387217D-01, .286657D-01, - + .211035D-01, .154431D-01, .112258D-01, .809742D-02, - + .580260D-02, .411314D-02, .288744D-02, .200647D-02, - + .137905D-02, .937090D-03, .629071D-03, .417197D-03, - + .273239D-03, .176882D-03, .113157D-03, .720686D-04, - + .455156D-04, .287344D-04, .182056D-04, .116318D-04, - + .750060D-05, .487481D-05, .316553D-05, .202310D-05, - + .125072D-05, .728859D-06, .386194D-06, .176529D-06, - + .630477D-07, .141472D-07, .992282D-09, .000000D+00 / - DATA (UPDI(I),I=3641,3692) / - + .180566D+07, .135606D+07, .999617D+06, .736342D+06, - + .542026D+06, .398661D+06, .292997D+06, .215153D+06, - + .157866D+06, .115726D+06, .847641D+05, .620261D+05, - + .453475D+05, .331201D+05, .241671D+05, .176155D+05, - + .128275D+05, .933043D+04, .677987D+04, .492080D+04, - + .356781D+04, .258374D+04, .186914D+04, .135056D+04, - + .974858D+03, .702799D+03, .506349D+03, .362734D+03, - + .260903D+03, .187525D+03, .134733D+03, .967783D+02, - + .695180D+02, .500038D+02, .359713D+02, .259122D+02, - + .187032D+02, .135314D+02, .981916D+01, .714765D+01, - + .522446D+01, .383282D+01, .282313D+01, .208747D+01, - + .154943D+01, .115368D+01, .862630D+00, .645202D+00, - + .484406D+00, .363399D+00, .273041D+00, .205091D+00 / - DATA (UPDI(I),I=3693,3744) / - + .153924D+00, .115338D+00, .862329D-01, .642790D-01, - + .477434D-01, .353120D-01, .259938D-01, .190299D-01, - + .138492D-01, .100128D-01, .718393D-02, .512114D-02, - + .361152D-02, .252280D-02, .174483D-02, .119396D-02, - + .808099D-03, .540648D-03, .357630D-03, .233883D-03, - + .151415D-03, .970649D-04, .620953D-04, .395075D-04, - + .251995D-04, .161720D-04, .104778D-04, .684770D-05, - + .449712D-05, .293842D-05, .187935D-05, .115684D-05, - + .667815D-06, .348953D-06, .156504D-06, .545362D-07, - + .119240D-07, .849312D-09, .000000D+00, .221111D+07, - + .165536D+07, .121571D+07, .892165D+06, .654237D+06, - + .479346D+06, .350929D+06, .256681D+06, .187588D+06, - + .136961D+06, .999088D+05, .728067D+05, .530066D+05 / - DATA (UPDI(I),I=3745,3796) / - + .385501D+05, .280085D+05, .203267D+05, .147364D+05, - + .106710D+05, .771877D+04, .557645D+04, .402427D+04, - + .290046D+04, .208814D+04, .150141D+04, .107834D+04, - + .773447D+03, .554374D+03, .395027D+03, .282615D+03, - + .202030D+03, .144353D+03, .103106D+03, .736392D+02, - + .526608D+02, .376583D+02, .269644D+02, .193438D+02, - + .139084D+02, .100295D+02, .725466D+01, .526890D+01, - + .384066D+01, .281071D+01, .206492D+01, .152283D+01, - + .112660D+01, .837032D+00, .622082D+00, .464121D+00, - + .346011D+00, .258377D+00, .192898D+00, .143903D+00, - + .107189D+00, .796696D-01, .590423D-01, .436026D-01, - + .320670D-01, .234731D-01, .170898D-01, .123697D-01, - + .889531D-02, .634844D-02, .450223D-02, .315905D-02 / - DATA (UPDI(I),I=3797,3848) / - + .219605D-02, .151188D-02, .103017D-02, .694601D-03, - + .463257D-03, .305738D-03, .199729D-03, .129366D-03, - + .831358D-04, .534372D-04, .342503D-04, .220591D-04, - + .143183D-04, .938439D-05, .619539D-05, .409622D-05, - + .268349D-05, .171248D-05, .104720D-05, .597944D-06, - + .307824D-06, .135398D-06, .460416D-07, .981722D-08, - + .709834D-09, .000000D+00, .628438D+05, .921917D+05, - + .711919D+05, .549760D+05, .424542D+05, .327849D+05, - + .253183D+05, .195525D+05, .151002D+05, .116620D+05, - + .900700D+04, .695673D+04, .537344D+04, .415076D+04, - + .320653D+04, .247733D+04, .191417D+04, .147923D+04, - + .114331D+04, .883853D+03, .683445D+03, .528635D+03, - + .409041D+03, .316643D+03, .245247D+03, .190073D+03 / - DATA (UPDI(I),I=3849,3900) / - + .147427D+03, .114048D+03, .886548D+02, .690093D+02, - + .538042D+02, .420300D+02, .329067D+02, .258505D+02, - + .203582D+02, .160909D+02, .127698D+02, .101794D+02, - + .815337D+01, .656276D+01, .531066D+01, .431857D+01, - + .352850D+01, .289542D+01, .238479D+01, .197019D+01, - + .163248D+01, .135296D+01, .112315D+01, .930968D+00, - + .771268D+00, .637673D+00, .525749D+00, .431939D+00, - + .353364D+00, .287662D+00, .232874D+00, .187354D+00, - + .149706D+00, .118735D+00, .934124D-01, .728491D-01, - + .562764D-01, .430846D-01, .325695D-01, .243275D-01, - + .179366D-01, .130392D-01, .933427D-02, .657058D-02, - + .454060D-02, .307464D-02, .203510D-02, .131266D-02, - + .826287D-03, .502403D-03, .294741D-03, .165953D-03 / - DATA (UPDI(I),I=3901,3952) / - + .890890D-04, .452234D-04, .214774D-04, .942422D-05, - + .372718D-05, .130400D-05, .386704D-06, .915220D-07, - + .156264D-07, .159261D-08, .633211D-10, .251936D-12, - + .000000D+00, .143864D+06, .112214D+06, .864673D+05, - + .666227D+05, .513316D+05, .395470D+05, .304673D+05, - + .234705D+05, .180802D+05, .139269D+05, .107276D+05, - + .826267D+04, .636417D+04, .490164D+04, .377531D+04, - + .290771D+04, .223962D+04, .172505D+04, .132884D+04, - + .102371D+04, .788780D+03, .607861D+03, .468574D+03, - + .361308D+03, .278723D+03, .215119D+03, .166152D+03, - + .127962D+03, .990248D+02, .767220D+02, .595335D+02, - + .462766D+02, .360491D+02, .281721D+02, .220690D+02, - + .173477D+02, .136908D+02, .108512D+02, .864120D+01 / - DATA (UPDI(I),I=3953,4004) / - + .691419D+01, .556172D+01, .449535D+01, .365065D+01, - + .297731D+01, .243736D+01, .200135D+01, .164839D+01, - + .135793D+01, .112070D+01, .923532D+00, .760766D+00, - + .625472D+00, .512872D+00, .419101D+00, .341067D+00, - + .276225D+00, .222490D+00, .178116D+00, .141638D+00, - + .111804D+00, .875514D-01, .679701D-01, .522722D-01, - + .398452D-01, .299907D-01, .223057D-01, .163766D-01, - + .118554D-01, .845164D-02, .592455D-02, .407701D-02, - + .274873D-02, .181133D-02, .116244D-02, .727626D-03, - + .439310D-03, .255322D-03, .141796D-03, .744635D-04, - + .363851D-04, .160507D-04, .600714D-05, .151656D-05, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=4005,4056) / - + .177055D+06, .137780D+06, .105880D+06, .813535D+05, - + .625050D+05, .480159D+05, .368834D+05, .283275D+05, - + .217551D+05, .167050D+05, .128265D+05, .984703D+04, - + .755931D+04, .580227D+04, .445350D+04, .341784D+04, - + .262302D+04, .201285D+04, .154468D+04, .118536D+04, - + .909727D+03, .698220D+03, .536004D+03, .411545D+03, - + .316101D+03, .242880D+03, .186749D+03, .143147D+03, - + .110251D+03, .850032D+02, .656322D+02, .507572D+02, - + .393342D+02, .305761D+02, .238227D+02, .186225D+02, - + .146144D+02, .115168D+02, .911818D+01, .725288D+01, - + .579970D+01, .465970D+01, .376151D+01, .304933D+01, - + .248146D+01, .202544D+01, .165849D+01, .135826D+01, - + .111458D+01, .913289D+00, .748161D+00, .611753D+00 / - DATA (UPDI(I),I=4057,4108) / - + .498945D+00, .405584D+00, .328373D+00, .264604D+00, - + .212075D+00, .168953D+00, .133713D+00, .105054D+00, - + .818894D-01, .632904D-01, .484581D-01, .367792D-01, - + .275655D-01, .204167D-01, .149289D-01, .107649D-01, - + .764539D-02, .534025D-02, .366284D-02, .246229D-02, - + .161886D-02, .103727D-02, .649109D-03, .392536D-03, - + .229243D-03, .128592D-03, .688571D-04, .348963D-04, - + .165594D-04, .725065D-05, .284599D-05, .962267D-06, - + .251658D-06, .303135D-07, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .218641D+06, - + .169694D+06, .130007D+06, .995816D+05, .762690D+05, - + .584012D+05, .447147D+05, .342280D+05, .261980D+05, - + .200473D+05, .153391D+05, .117340D+05, .897534D+04 / - DATA (UPDI(I),I=4109,4160) / - + .686375D+04, .524851D+04, .401257D+04, .306750D+04, - + .234460D+04, .179203D+04, .136951D+04, .104667D+04, - + .799895D+03, .611393D+03, .467346D+03, .357341D+03, - + .273299D+03, .209157D+03, .159546D+03, .122283D+03, - + .938096D+02, .720651D+02, .554438D+02, .427399D+02, - + .330455D+02, .256065D+02, .199059D+02, .155340D+02, - + .121716D+02, .958122D+01, .757684D+01, .602340D+01, - + .481102D+01, .386086D+01, .311149D+01, .251729D+01, - + .204276D+01, .166312D+01, .135428D+01, .110514D+01, - + .900544D+00, .733729D+00, .596759D+00, .484175D+00, - + .391559D+00, .315424D+00, .252914D+00, .201721D+00, - + .159937D+00, .125984D+00, .985257D-01, .764526D-01, - + .588266D-01, .448426D-01, .338893D-01, .252917D-01 / - DATA (UPDI(I),I=4161,4212) / - + .186544D-01, .135845D-01, .975649D-02, .690255D-02, - + .480363D-02, .328341D-02, .220032D-02, .144287D-02, - + .922677D-03, .576897D-03, .349128D-03, .204593D-03, - + .115646D-03, .628572D-04, .327308D-04, .163181D-04, - + .780523D-05, .360354D-05, .163846D-05, .750090D-06, - + .345544D-06, .154855D-06, .607940D-07, .161141D-07, - + .989981D-09, .000000D+00, .161592D+06, .208879D+06, - + .159510D+06, .121778D+06, .929586D+05, .709395D+05, - + .541281D+05, .412889D+05, .314905D+05, .240104D+05, - + .183043D+05, .139503D+05, .106303D+05, .809821D+04, - + .616838D+04, .469715D+04, .357642D+04, .272240D+04, - + .207216D+04, .157689D+04, .120000D+04, .913063D+03, - + .694794D+03, .528695D+03, .402390D+03, .306310D+03 / - DATA (UPDI(I),I=4213,4264) / - + .233308D+03, .177095D+03, .135065D+03, .103096D+03, - + .787950D+02, .603069D+02, .462436D+02, .355633D+02, - + .274078D+02, .211888D+02, .164429D+02, .128111D+02, - + .100273D+02, .788413D+01, .623171D+01, .494870D+01, - + .394848D+01, .316381D+01, .254503D+01, .205355D+01, - + .166257D+01, .134629D+01, .109265D+01, .885555D+00, - + .717699D+00, .580680D+00, .468721D+00, .377156D+00, - + .302322D+00, .241231D+00, .191484D+00, .151107D+00, - + .118477D+00, .922333D-01, .712494D-01, .545819D-01, - + .414255D-01, .311731D-01, .231659D-01, .170150D-01, - + .123398D-01, .882693D-02, .622054D-02, .431272D-02, - + .293737D-02, .196198D-02, .128297D-02, .818573D-03, - + .511150D-03, .309385D-03, .181750D-03, .103357D-03 / - DATA (UPDI(I),I=4265,4316) / - + .568491D-04, .302319D-04, .156201D-04, .790711D-05, - + .397160D-05, .201414D-05, .103651D-05, .526376D-06, - + .249847D-06, .997067D-07, .260701D-07, .165450D-08, - + .000000D+00, .354658D+06, .273452D+06, .207908D+06, - + .158026D+06, .120086D+06, .912247D+05, .692842D+05, - + .526026D+05, .399282D+05, .302972D+05, .229838D+05, - + .174297D+05, .132147D+05, .100155D+05, .758905D+04, - + .574851D+04, .435345D+04, .329587D+04, .249478D+04, - + .188786D+04, .142844D+04, .108059D+04, .817427D+03, - + .618290D+03, .467716D+03, .353833D+03, .267816D+03, - + .201973D+03, .153038D+03, .116045D+03, .880974D+02, - + .669684D+02, .509964D+02, .389446D+02, .298006D+02, - + .228733D+02, .176213D+02, .136287D+02, .105886D+02 / - DATA (UPDI(I),I=4317,4368) / - + .826376D+01, .648327D+01, .511025D+01, .404710D+01, - + .321891D+01, .257035D+01, .205890D+01, .165496D+01, - + .133056D+01, .107235D+01, .863091D+00, .694745D+00, - + .558359D+00, .447746D+00, .357957D+00, .285113D+00, - + .226081D+00, .178354D+00, .139894D+00, .109032D+00, - + .843802D-01, .648040D-01, .493598D-01, .372477D-01, - + .278708D-01, .205940D-01, .150399D-01, .108448D-01, - + .771248D-02, .540290D-02, .372287D-02, .251924D-02, - + .167100D-02, .108433D-02, .685698D-03, .423652D-03, - + .252970D-03, .145918D-03, .808572D-04, .427786D-04, - + .214129D-04, .100261D-04, .431683D-05, .165446D-05, - + .532743D-06, .122507D-06, .300405D-08, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=4369,4420) / - + .462658D+06, .355365D+06, .268993D+06, .203541D+06, - + .153972D+06, .116429D+06, .880141D+05, .665073D+05, - + .502408D+05, .379372D+05, .286378D+05, .216089D+05, - + .163002D+05, .122905D+05, .926440D+04, .698044D+04, - + .525803D+04, .395903D+04, .298018D+04, .224253D+04, - + .168713D+04, .126891D+04, .954245D+03, .717474D+03, - + .539456D+03, .405592D+03, .305078D+03, .228595D+03, - + .172094D+03, .129642D+03, .977670D+02, .738192D+02, - + .558294D+02, .423417D+02, .321734D+02, .245201D+02, - + .187552D+02, .144015D+02, .111080D+02, .860622D+01, - + .670285D+01, .524493D+01, .412361D+01, .325607D+01, - + .258137D+01, .205299D+01, .163861D+01, .130821D+01, - + .104710D+01, .837031D+00, .669259D+00, .534332D+00 / - DATA (UPDI(I),I=4421,4472) / - + .425696D+00, .338154D+00, .267642D+00, .210909D+00, - + .165364D+00, .128921D+00, .998784D-01, .768404D-01, - + .586692D-01, .444300D-01, .333354D-01, .248024D-01, - + .182233D-01, .132342D-01, .948998D-02, .671217D-02, - + .467693D-02, .320580D-02, .215843D-02, .142492D-02, - + .920718D-03, .580181D-03, .357620D-03, .213443D-03, - + .123441D-03, .689395D-04, .370860D-04, .191664D-04, - + .952330D-05, .456933D-05, .213505D-05, .990797D-06, - + .464963D-06, .218325D-06, .984888D-07, .381069D-07, - + .974347D-08, .607570D-09, .000000D+00, .598003D+06, - + .457595D+06, .344856D+06, .259787D+06, .195636D+06, - + .147260D+06, .110807D+06, .833390D+05, .626571D+05, - + .470853D+05, .353703D+05, .265571D+05, .199323D+05 / - DATA (UPDI(I),I=4473,4524) / - + .149528D+05, .112130D+05, .840449D+04, .629711D+04, - + .471588D+04, .353051D+04, .264191D+04, .197641D+04, - + .147799D+04, .110503D+04, .825956D+03, .617308D+03, - + .461303D+03, .344847D+03, .256756D+03, .192068D+03, - + .143757D+03, .107704D+03, .807839D+02, .606866D+02, - + .457139D+02, .344971D+02, .261089D+02, .198307D+02, - + .151201D+02, .115797D+02, .890794D+01, .688849D+01, - + .535187D+01, .417780D+01, .327556D+01, .257858D+01, - + .203646D+01, .161423D+01, .127989D+01, .101753D+01, - + .807950D+00, .641750D+00, .509041D+00, .402947D+00, - + .318060D+00, .250166D+00, .195923D+00, .152679D+00, - + .118315D+00, .911161D-01, .696866D-01, .528973D-01, - + .398282D-01, .297112D-01, .219805D-01, .160584D-01 / - DATA (UPDI(I),I=4525,4576) / - + .115964D-01, .826929D-02, .581665D-02, .403106D-02, - + .274855D-02, .184121D-02, .120976D-02, .778398D-03, - + .488813D-03, .300644D-03, .179405D-03, .104068D-03, - + .585998D-04, .320489D-04, .170615D-04, .890811D-05, - + .461470D-05, .240090D-05, .126878D-05, .676080D-06, - + .349824D-06, .165663D-06, .643971D-07, .160936D-07, - + .104876D-08, .000000D+00, .765310D+06, .583457D+06, - + .437810D+06, .328370D+06, .246190D+06, .184482D+06, - + .138185D+06, .103452D+06, .774156D+05, .579009D+05, - + .432863D+05, .323428D+05, .241551D+05, .180301D+05, - + .134521D+05, .100309D+05, .747649D+04, .556949D+04, - + .414716D+04, .308644D+04, .229620D+04, .170748D+04, - + .126934D+04, .943275D+03, .700849D+03, .520601D+03 / - DATA (UPDI(I),I=4577,4628) / - + .386820D+03, .286214D+03, .212770D+03, .158246D+03, - + .117799D+03, .877824D+02, .655100D+02, .490198D+02, - + .367430D+02, .276199D+02, .208347D+02, .157763D+02, - + .119985D+02, .916606D+01, .703882D+01, .543066D+01, - + .420988D+01, .327791D+01, .256268D+01, .201008D+01, - + .158256D+01, .124633D+01, .984289D+00, .776409D+00, - + .612696D+00, .482882D+00, .379820D+00, .297932D+00, - + .232886D+00, .181275D+00, .140410D+00, .108157D+00, - + .827999D-01, .629550D-01, .475099D-01, .355661D-01, - + .263795D-01, .194049D-01, .140963D-01, .101222D-01, - + .717774D-02, .502107D-02, .346090D-02, .234740D-02, - + .156457D-02, .102320D-02, .655652D-03, .410388D-03, - + .251923D-03, .150358D-03, .875208D-04, .497044D-04 / - DATA (UPDI(I),I=4629,4680) / - + .276252D-04, .151077D-04, .821481D-05, .449463D-05, - + .249133D-05, .139874D-05, .779234D-06, .412580D-06, - + .195580D-06, .747367D-07, .181832D-07, .121187D-08, - + .000000D+00, .969512D+06, .736468D+06, .550285D+06, - + .410962D+06, .306776D+06, .228872D+06, .170671D+06, - + .127196D+06, .947491D+05, .705366D+05, .524850D+05, - + .390291D+05, .290080D+05, .215464D+05, .159957D+05, - + .118675D+05, .880019D+04, .652155D+04, .483053D+04, - + .357582D+04, .264585D+04, .195666D+04, .144645D+04, - + .106879D+04, .789536D+03, .583044D+03, .430647D+03, - + .316697D+03, .233994D+03, .172955D+03, .127940D+03, - + .947339D+02, .702425D+02, .522199D+02, .388841D+02, - + .290354D+02, .217560D+02, .163630D+02, .123606D+02 / - DATA (UPDI(I),I=4681,4732) / - + .937865D+01, .715316D+01, .548141D+01, .422040D+01, - + .326391D+01, .253457D+01, .197472D+01, .154443D+01, - + .120827D+01, .948016D+00, .742953D+00, .582547D+00, - + .456221D+00, .356606D+00, .277993D+00, .215971D+00, - + .167090D+00, .128647D+00, .985074D-01, .749684D-01, - + .566678D-01, .425177D-01, .316463D-01, .233377D-01, - + .170699D-01, .123298D-01, .880389D-02, .620819D-02, - + .431899D-02, .296096D-02, .199784D-02, .132498D-02, - + .862557D-03, .550542D-03, .343560D-03, .210569D-03, - + .125759D-03, .734945D-04, .421133D-04, .237779D-04, - + .133261D-04, .749340D-05, .426761D-05, .246186D-05, - + .142690D-05, .809101D-06, .429788D-06, .201674D-06, - + .753966D-07, .178449D-07, .121132D-08, .000000D+00 / - DATA (UPDI(I),I=4733,4784) / - + .121579D+07, .920294D+06, .684787D+06, .509268D+06, - + .378545D+06, .281203D+06, .208781D+06, .154912D+06, - + .114878D+06, .851346D+05, .630560D+05, .466715D+05, - + .345243D+05, .255209D+05, .188543D+05, .139194D+05, - + .102701D+05, .757225D+04, .557990D+04, .410897D+04, - + .302422D+04, .222443D+04, .163541D+04, .120171D+04, - + .882721D+03, .648122D+03, .475936D+03, .347914D+03, - + .255523D+03, .187726D+03, .138014D+03, .101559D+03, - + .748295D+02, .552773D+02, .408961D+02, .303401D+02, - + .225850D+02, .168750D+02, .126633D+02, .954467D+01, - + .723153D+01, .550472D+01, .421026D+01, .323455D+01, - + .249524D+01, .193132D+01, .150069D+01, .116644D+01, - + .909338D+00, .708098D+00, .551721D+00, .429387D+00 / - DATA (UPDI(I),I=4785,4836) / - + .333559D+00, .258438D+00, .199562D+00, .153468D+00, - + .117456D+00, .894079D-01, .676451D-01, .508354D-01, - + .379219D-01, .280642D-01, .205779D-01, .149662D-01, - + .107491D-01, .763224D-02, .535215D-02, .370314D-02, - + .252522D-02, .169508D-02, .111873D-02, .725080D-03, - + .461079D-03, .286957D-03, .175676D-03, .105045D-03, - + .616712D-04, .356695D-04, .204513D-04, .117189D-04, - + .677517D-05, .397502D-05, .235303D-05, .138720D-05, - + .790961D-06, .418082D-06, .193342D-06, .706032D-07, - + .162611D-07, .112244D-08, .000000D+00, .150948D+07, - + .113868D+07, .843855D+06, .624994D+06, .462637D+06, - + .342226D+06, .253007D+06, .186917D+06, .138007D+06, - + .101822D+06, .750767D+05, .553159D+05, .407298D+05 / - DATA (UPDI(I),I=4837,4888) / - + .299672D+05, .220341D+05, .161885D+05, .118860D+05, - + .872019D+04, .639347D+04, .468403D+04, .342959D+04, - + .250932D+04, .183501D+04, .134106D+04, .979661D+03, - + .715267D+03, .522264D+03, .379553D+03, .277135D+03, - + .202400D+03, .147911D+03, .108182D+03, .792199D+02, - + .581584D+02, .427578D+02, .315208D+02, .233143D+02, - + .173084D+02, .129048D+02, .966394D+01, .727452D+01, - + .550158D+01, .418061D+01, .319102D+01, .244579D+01, - + .188089D+01, .145220D+01, .112156D+01, .868851D+00, - + .672325D+00, .520598D+00, .402674D+00, .310900D+00, - + .239425D+00, .183771D+00, .140485D+00, .106885D+00, - + .808848D-01, .608407D-01, .454580D-01, .337162D-01, - + .248097D-01, .180882D-01, .130814D-01, .934253D-02 / - DATA (UPDI(I),I=4889,4940) / - + .659654D-02, .460042D-02, .316582D-02, .214746D-02, - + .143424D-02, .942118D-03, .608039D-03, .385324D-03, - + .239253D-03, .146375D-03, .876807D-04, .517430D-04, - + .302169D-04, .175840D-04, .102785D-04, .607960D-05, - + .364631D-05, .219446D-05, .130446D-05, .743002D-06, - + .389154D-06, .176973D-06, .630880D-07, .141487D-07, - + .992292D-09, .000000D+00, .185601D+07, .139540D+07, - + .103000D+07, .759808D+06, .560148D+06, .412656D+06, - + .303805D+06, .223500D+06, .164312D+06, .120705D+06, - + .886097D+05, .649966D+05, .476420D+05, .348927D+05, - + .255365D+05, .186736D+05, .136451D+05, .996228D+04, - + .726824D+04, .529836D+04, .385975D+04, .280954D+04, - + .204383D+04, .148576D+04, .107953D+04, .783871D+03 / - DATA (UPDI(I),I=4941,4992) / - + .569186D+03, .411297D+03, .298604D+03, .216822D+03, - + .157524D+03, .114532D+03, .833671D+02, .608337D+02, - + .444511D+02, .325671D+02, .239386D+02, .176608D+02, - + .130849D+02, .973706D+01, .728326D+01, .547336D+01, - + .413284D+01, .313463D+01, .238741D+01, .182443D+01, - + .139981D+01, .107433D+01, .827116D+00, .636075D+00, - + .489515D+00, .376334D+00, .288812D+00, .221086D+00, - + .168687D+00, .128194D+00, .969625D-01, .729499D-01, - + .545554D-01, .405281D-01, .298884D-01, .218686D-01, - + .158537D-01, .114012D-01, .809709D-02, .568555D-02, - + .394349D-02, .269926D-02, .182152D-02, .121056D-02, - + .791575D-03, .508844D-03, .321455D-03, .199214D-03, - + .121861D-03, .731695D-04, .434263D-04, .256102D-04 / - DATA (UPDI(I),I=4993,5044) / - + .151154D-04, .899287D-05, .541871D-05, .330252D-05, - + .200774D-05, .119665D-05, .678168D-06, .351092D-06, - + .156821D-06, .545647D-07, .119251D-07, .849319D-09, - + .000000D+00, .226075D+07, .169415D+07, .124567D+07, - + .915300D+06, .672102D+06, .493143D+06, .361584D+06, - + .264910D+06, .193943D+06, .141870D+06, .103700D+06, - + .757352D+05, .552687D+05, .402976D+05, .293585D+05, - + .213698D+05, .155424D+05, .112938D+05, .820016D+04, - + .594859D+04, .431200D+04, .312299D+04, .226028D+04, - + .163461D+04, .118145D+04, .853293D+03, .616245D+03, - + .442828D+03, .319709D+03, .230842D+03, .166753D+03, - + .120543D+03, .872299D+02, .632779D+02, .459615D+02, - + .334713D+02, .244542D+02, .179314D+02, .132041D+02 / - DATA (UPDI(I),I=5045,5096) / - + .976532D+01, .725937D+01, .542171D+01, .406852D+01, - + .306677D+01, .232129D+01, .176295D+01, .134434D+01, - + .102541D+01, .784649D+00, .599744D+00, .458771D+00, - + .350585D+00, .267449D+00, .203521D+00, .154372D+00, - + .116630D+00, .877041D-01, .656040D-01, .487804D-01, - + .360317D-01, .264219D-01, .192235D-01, .138579D-01, - + .991045D-02, .699933D-02, .488781D-02, .337192D-02, - + .229590D-02, .154148D-02, .101956D-02, .663773D-03, - + .425101D-03, .267804D-03, .165720D-03, .101411D-03, - + .610691D-04, .364682D-04, .217194D-04, .129902D-04, - + .784844D-05, .479968D-05, .295865D-05, .180847D-05, - + .107663D-05, .605505D-06, .309367D-06, .135624D-06, - + .460617D-07, .981798D-08, .709839D-09, .000000D+00 / - DATA (UPDI(I),I=5097,5148) / - + .627884D+05, .921696D+05, .711720D+05, .549582D+05, - + .424382D+05, .327706D+05, .253054D+05, .195410D+05, - + .150899D+05, .116528D+05, .899870D+04, .694929D+04, - + .536677D+04, .414477D+04, .320116D+04, .247250D+04, - + .190984D+04, .147534D+04, .113982D+04, .880716D+03, - + .680623D+03, .526096D+03, .406753D+03, .314580D+03, - + .243384D+03, .188388D+03, .145900D+03, .112662D+03, - + .873925D+02, .678557D+02, .527461D+02, .410556D+02, - + .320053D+02, .250125D+02, .195754D+02, .153560D+02, - + .120766D+02, .952289D+01, .752952D+01, .596855D+01, - + .474402D+01, .377839D+01, .301440D+01, .240762D+01, - + .192394D+01, .153714D+01, .122803D+01, .978095D+00, - + .778234D+00, .616411D+00, .486791D+00, .382707D+00 / - DATA (UPDI(I),I=5149,5200) / - + .299338D+00, .232779D+00, .179859D+00, .137990D+00, - + .105052D+00, .793069D-01, .593293D-01, .439499D-01, - + .322129D-01, .233401D-01, .167012D-01, .118085D-01, - + .820907D-02, .561474D-02, .377212D-02, .248439D-02, - + .160043D-02, .100563D-02, .614259D-03, .363188D-03, - + .206643D-03, .112215D-03, .579145D-04, .276818D-04, - + .119668D-04, .440972D-05, .115720D-05, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .143837D+06, - + .112190D+06, .864459D+05, .666035D+05, .513144D+05, - + .395316D+05, .304535D+05, .234581D+05, .180691D+05, - + .139169D+05, .107186D+05, .825465D+04, .635698D+04 / - DATA (UPDI(I),I=5201,5252) / - + .489520D+04, .376952D+04, .290252D+04, .223496D+04, - + .172087D+04, .132509D+04, .102033D+04, .785742D+03, - + .605127D+03, .466111D+03, .359088D+03, .276718D+03, - + .213306D+03, .164509D+03, .126473D+03, .976692D+02, - + .754844D+02, .583997D+02, .452341D+02, .350867D+02, - + .272795D+02, .212376D+02, .165699D+02, .129600D+02, - + .101621D+02, .798959D+01, .629688D+01, .497643D+01, - + .394077D+01, .312615D+01, .248284D+01, .197321D+01, - + .156804D+01, .124630D+01, .987643D+00, .782138D+00, - + .616690D+00, .484952D+00, .379743D+00, .295938D+00, - + .229370D+00, .176705D+00, .135221D+00, .102724D+00, - + .774183D-01, .578524D-01, .428326D-01, .314005D-01, - + .227748D-01, .163287D-01, .115813D-01, .808753D-02 / - DATA (UPDI(I),I=5253,5304) / - + .556514D-02, .376907D-02, .250836D-02, .163793D-02, - + .104697D-02, .653752D-03, .397313D-03, .234188D-03, - + .132759D-03, .722971D-04, .367992D-04, .170271D-04, - + .651790D-05, .131766D-05, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .177026D+06, .137755D+06, - + .105857D+06, .813329D+05, .624865D+05, .479994D+05, - + .368686D+05, .283142D+05, .217432D+05, .166943D+05, - + .128169D+05, .983843D+04, .755160D+04, .579535D+04, - + .444730D+04, .341227D+04, .261802D+04, .200836D+04, - + .154065D+04, .118174D+04, .906471D+03, .695291D+03, - + .533365D+03, .409167D+03, .313955D+03, .240939D+03 / - DATA (UPDI(I),I=5305,5356) / - + .184991D+03, .141555D+03, .108803D+03, .836825D+02, - + .644238D+02, .496480D+02, .383121D+02, .296303D+02, - + .229442D+02, .178033D+02, .138477D+02, .107969D+02, - + .844061D+01, .661425D+01, .519748D+01, .409235D+01, - + .322809D+01, .254950D+01, .201518D+01, .159283D+01, - + .125952D+01, .993089D+00, .782718D+00, .614311D+00, - + .480989D+00, .375094D+00, .291198D+00, .224895D+00, - + .172698D+00, .131769D+00, .998439D-01, .750822D-01, - + .560094D-01, .414150D-01, .303405D-01, .220054D-01, - + .157883D-01, .112163D-01, .785412D-02, .542621D-02, - + .369596D-02, .247883D-02, .163581D-02, .106039D-02, - + .674839D-03, .420790D-03, .256965D-03, .153086D-03, - + .895875D-04, .508997D-04, .282363D-04, .152079D-04 / - DATA (UPDI(I),I=5357,5408) / - + .796313D-05, .400327D-05, .192328D-05, .849579D-06, - + .328276D-06, .871255D-07, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .218611D+06, .169666D+06, .129983D+06, - + .995595D+05, .762493D+05, .583835D+05, .446988D+05, - + .342138D+05, .261852D+05, .200359D+05, .153288D+05, - + .117248D+05, .896710D+04, .685636D+04, .524188D+04, - + .400662D+04, .306216D+04, .233981D+04, .178773D+04, - + .136564D+04, .104319D+04, .796768D+03, .608577D+03, - + .464809D+03, .355052D+03, .271230D+03, .207285D+03, - + .157851D+03, .120742D+03, .924064D+02, .707829D+02, - + .542688D+02, .416592D+02, .320480D+02, .246825D+02, - + .190470D+02, .147329D+02, .114226D+02, .887934D+01 / - DATA (UPDI(I),I=5409,5460) / - + .691851D+01, .540582D+01, .423237D+01, .331990D+01, - + .260754D+01, .204994D+01, .161173D+01, .126796D+01, - + .994731D+00, .780282D+00, .609572D+00, .475187D+00, - + .369021D+00, .285357D+00, .219569D+00, .168031D+00, - + .127802D+00, .965601D-01, .724268D-01, .539100D-01, - + .397901D-01, .291105D-01, .210952D-01, .151307D-01, - + .107531D-01, .753862D-02, .521900D-02, .356632D-02, - + .240292D-02, .159590D-02, .104343D-02, .671712D-03, - + .425249D-03, .264974D-03, .162142D-03, .983173D-04, - + .586073D-04, .346961D-04, .204099D-04, .120479D-04, - + .713048D-05, .427968D-05, .258058D-05, .156595D-05, - + .936431D-06, .545769D-06, .298118D-06, .146936D-06, - + .600014D-07, .160826D-07, .989837D-09, .000000D+00 / - DATA (UPDI(I),I=5461,5512) / - + .161524D+06, .208849D+06, .159484D+06, .121755D+06, - + .929375D+05, .709206D+05, .541111D+05, .412738D+05, - + .314769D+05, .239982D+05, .182934D+05, .139405D+05, - + .106216D+05, .809033D+04, .616131D+04, .469081D+04, - + .357073D+04, .271730D+04, .206757D+04, .157278D+04, - + .119630D+04, .909736D+03, .691799D+03, .525997D+03, - + .399958D+03, .304113D+03, .231322D+03, .175298D+03, - + .133433D+03, .101610D+03, .774398D+02, .590670D+02, - + .451054D+02, .345151D+02, .264395D+02, .202914D+02, - + .156090D+02, .120344D+02, .930262D+01, .720760D+01, - + .560022D+01, .436013D+01, .340124D+01, .265687D+01, - + .207757D+01, .162489D+01, .127184D+01, .992809D+00, - + .775074D+00, .602705D+00, .467761D+00, .361719D+00 / - DATA (UPDI(I),I=5513,5564) / - + .278587D+00, .213545D+00, .162838D+00, .123437D+00, - + .929735D-01, .695388D-01, .516291D-01, .380217D-01, - + .277650D-01, .200909D-01, .143955D-01, .102253D-01, - + .716910D-02, .496685D-02, .339938D-02, .229631D-02, - + .153090D-02, .100623D-02, .652422D-03, .416977D-03, - + .263077D-03, .163618D-03, .101281D-03, .619973D-04, - + .379391D-04, .232402D-04, .143839D-04, .898028D-05, - + .569955D-05, .363412D-05, .231898D-05, .144967D-05, - + .873786D-06, .488971D-06, .243667D-06, .990936D-07, - + .260458D-07, .165439D-08, .000000D+00, .354622D+06, - + .273420D+06, .207880D+06, .158001D+06, .120064D+06, - + .912042D+05, .692658D+05, .525861D+05, .399135D+05, - + .302840D+05, .229720D+05, .174191D+05, .132051D+05 / - DATA (UPDI(I),I=5565,5616) / - + .100069D+05, .758139D+04, .574164D+04, .434729D+04, - + .329034D+04, .248982D+04, .188340D+04, .142444D+04, - + .107699D+04, .814192D+03, .615378D+03, .465092D+03, - + .351465D+03, .265677D+03, .200040D+03, .151285D+03, - + .114452D+03, .866467D+02, .656440D+02, .497840D+02, - + .378313D+02, .287758D+02, .219274D+02, .167462D+02, - + .128178D+02, .983615D+01, .756551D+01, .583563D+01, - + .451064D+01, .349346D+01, .270968D+01, .210418D+01, - + .163453D+01, .127094D+01, .985700D+00, .764745D+00, - + .591083D+00, .456080D+00, .350725D+00, .268681D+00, - + .204908D+00, .155498D+00, .117336D+00, .879981D-01, - + .655538D-01, .484896D-01, .355883D-01, .259080D-01, - + .186963D-01, .133640D-01, .947333D-02, .663030D-02 / - DATA (UPDI(I),I=5617,5668) / - + .458699D-02, .313559D-02, .211583D-02, .140887D-02, - + .924459D-03, .597719D-03, .380130D-03, .237759D-03, - + .145719D-03, .880551D-04, .518515D-04, .298652D-04, - + .166970D-04, .904190D-05, .466911D-05, .227887D-05, - + .101050D-05, .388364D-06, .104751D-06, .495941D-09, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .462620D+06, .355331D+06, - + .268962D+06, .203513D+06, .153947D+06, .116406D+06, - + .879942D+05, .664895D+05, .502248D+05, .379228D+05, - + .286250D+05, .215975D+05, .162899D+05, .122813D+05, - + .925612D+04, .697302D+04, .525138D+04, .395307D+04, - + .297483D+04, .223773D+04, .168282D+04, .126503D+04, - + .950762D+03, .714341D+03, .536635D+03, .403048D+03 / - DATA (UPDI(I),I=5669,5720) / - + .302782D+03, .226523D+03, .170218D+03, .127940D+03, - + .962204D+02, .724105D+02, .545432D+02, .411644D+02, - + .310934D+02, .235273D+02, .178408D+02, .135583D+02, - + .103299D+02, .788835D+01, .604113D+01, .463627D+01, - + .356539D+01, .274620D+01, .211790D+01, .163409D+01, - + .126225D+01, .972634D+00, .749899D+00, .576077D+00, - + .441885D+00, .337878D+00, .257421D+00, .195287D+00, - + .147448D+00, .110724D+00, .826564D-01, .613059D-01, - + .451605D-01, .330175D-01, .239510D-01, .172283D-01, - + .122786D-01, .868193D-02, .606340D-02, .418792D-02, - + .285974D-02, .192902D-02, .128513D-02, .844636D-03, - + .547767D-03, .350100D-03, .220608D-03, .136754D-03, - + .840042D-04, .506899D-04, .302540D-04, .178353D-04 / - DATA (UPDI(I),I=5721,5772) / - + .104415D-04, .605947D-05, .351629D-05, .203104D-05, - + .117352D-05, .669444D-06, .374477D-06, .198022D-06, - + .952173D-07, .377895D-07, .973103D-08, .607504D-09, - + .000000D+00, .597961D+06, .457557D+06, .344822D+06, - + .259757D+06, .195610D+06, .147236D+06, .110786D+06, - + .833197D+05, .626399D+05, .470699D+05, .353564D+05, - + .265447D+05, .199212D+05, .149428D+05, .112041D+05, - + .839650D+04, .628994D+04, .470946D+04, .352475D+04, - + .263675D+04, .197178D+04, .147383D+04, .110129D+04, - + .822595D+03, .614285D+03, .458580D+03, .342391D+03, - + .254543D+03, .190068D+03, .141946D+03, .106061D+03, - + .792912D+02, .593274D+02, .444736D+02, .333634D+02, - + .250708D+02, .188789D+02, .142467D+02, .107780D+02 / - DATA (UPDI(I),I=5773,5824) / - + .817253D+01, .621473D+01, .473608D+01, .361680D+01, - + .276663D+01, .211917D+01, .162415D+01, .124638D+01, - + .954226D+00, .731118D+00, .558219D+00, .425650D+00, - + .323597D+00, .245168D+00, .184992D+00, .138948D+00, - + .103820D+00, .771286D-01, .569424D-01, .417614D-01, - + .304050D-01, .219690D-01, .157447D-01, .111828D-01, - + .788248D-02, .548965D-02, .378256D-02, .257797D-02, - + .173664D-02, .115624D-02, .760173D-03, .493741D-03, - + .316575D-03, .200548D-03, .125396D-03, .780089D-04, - + .479654D-04, .293952D-04, .179793D-04, .110497D-04, - + .682335D-05, .426045D-05, .267035D-05, .167230D-05, - + .102805D-05, .609128D-06, .334993D-06, .163305D-06, - + .641711D-07, .160848D-07, .104871D-08, .000000D+00 / - DATA (UPDI(I),I=5825,5876) / - + .765265D+06, .583416D+06, .437774D+06, .328338D+06, - + .246161D+06, .184457D+06, .138162D+06, .103431D+06, - + .773970D+05, .578843D+05, .432714D+05, .323294D+05, - + .241431D+05, .180194D+05, .134425D+05, .100223D+05, - + .746880D+04, .556259D+04, .414098D+04, .308090D+04, - + .229123D+04, .170302D+04, .126534D+04, .939680D+03, - + .697617D+03, .517694D+03, .384202D+03, .283858D+03, - + .210643D+03, .156324D+03, .116059D+03, .862059D+02, - + .640785D+02, .477177D+02, .355570D+02, .265383D+02, - + .198474D+02, .148747D+02, .111754D+02, .841523D+01, - + .635505D+01, .480966D+01, .364782D+01, .277143D+01, - + .210862D+01, .160537D+01, .122400D+01, .931102D+00, - + .708965D+00, .538001D+00, .407798D+00, .308234D+00 / - DATA (UPDI(I),I=5877,5928) / - + .232216D+00, .174263D+00, .130196D+00, .967808D-01, - + .715424D-01, .525656D-01, .383736D-01, .278152D-01, - + .200131D-01, .142858D-01, .101082D-01, .709994D-02, - + .492855D-02, .338608D-02, .230202D-02, .154770D-02, - + .102908D-02, .676270D-03, .439533D-03, .282435D-03, - + .179671D-03, .113148D-03, .711394D-04, .444269D-04, - + .278069D-04, .174845D-04, .111100D-04, .712740D-05, - + .462655D-05, .300844D-05, .194042D-05, .121879D-05, - + .729798D-06, .401769D-06, .193884D-06, .745760D-07, - + .181770D-07, .121184D-08, .000000D+00, .969464D+06, - + .736425D+06, .550246D+06, .410928D+06, .306744D+06, - + .228844D+06, .170646D+06, .127174D+06, .947291D+05, - + .705187D+05, .524690D+05, .390148D+05, .289951D+05 / - DATA (UPDI(I),I=5929,5980) / - + .215349D+05, .159855D+05, .118583D+05, .879194D+04, - + .651416D+04, .482390D+04, .356989D+04, .264054D+04, - + .195190D+04, .144218D+04, .106496D+04, .786092D+03, - + .579949D+03, .427864D+03, .314196D+03, .231740D+03, - + .170922D+03, .126104D+03, .930743D+02, .687398D+02, - + .508575D+02, .376475D+02, .279124D+02, .207353D+02, - + .154355D+02, .115182D+02, .861453D+01, .646142D+01, - + .485706D+01, .365895D+01, .276132D+01, .208703D+01, - + .157855D+01, .119583D+01, .903911D+00, .684005D+00, - + .515900D+00, .388725D+00, .292116D+00, .218829D+00, - + .163313D+00, .121360D+00, .897415D-01, .660023D-01, - + .482569D-01, .350605D-01, .252971D-01, .181210D-01, - + .128807D-01, .907726D-02, .635153D-02, .439329D-02 / - DATA (UPDI(I),I=5981,6032) / - + .300857D-02, .203953D-02, .136800D-02, .908021D-03, - + .596186D-03, .387561D-03, .249461D-03, .159277D-03, - + .100949D-03, .640744D-04, .405638D-04, .258441D-04, - + .166112D-04, .108172D-04, .711928D-05, .472909D-05, - + .313412D-05, .204621D-05, .129267D-05, .772676D-06, - + .421923D-06, .200456D-06, .752826D-07, .178405D-07, - + .121129D-08, .000000D+00, .121574D+07, .920247D+06, - + .684745D+06, .509231D+06, .378512D+06, .281173D+06, - + .208754D+06, .154888D+06, .114857D+06, .851153D+05, - + .630388D+05, .466561D+05, .345105D+05, .255086D+05, - + .188433D+05, .139095D+05, .102613D+05, .756435D+04, - + .557283D+04, .410264D+04, .301854D+04, .221934D+04, - + .163085D+04, .119762D+04, .879059D+03, .644834D+03 / - DATA (UPDI(I),I=6033,6084) / - + .472984D+03, .345265D+03, .253141D+03, .185582D+03, - + .136083D+03, .998173D+02, .732569D+02, .538561D+02, - + .396110D+02, .291775D+02, .215331D+02, .159237D+02, - + .118037D+02, .876940D+01, .653381D+01, .487884D+01, - + .365101D+01, .273722D+01, .205533D+01, .154454D+01, - + .116265D+01, .873308D+00, .656789D+00, .492372D+00, - + .368800D+00, .275539D+00, .205241D+00, .152324D+00, - + .112581D+00, .828108D-01, .605917D-01, .440794D-01, - + .318696D-01, .228866D-01, .163197D-01, .115496D-01, - + .810495D-02, .564854D-02, .389231D-02, .265629D-02, - + .179519D-02, .120102D-02, .795633D-03, .521831D-03, - + .339232D-03, .218686D-03, .140115D-03, .893463D-04, - + .572161D-04, .366728D-04, .237283D-04, .155280D-04 / - DATA (UPDI(I),I=6085,6136) / - + .103021D-04, .690203D-05, .465028D-05, .311244D-05, - + .204012D-05, .128731D-05, .764180D-06, .412373D-06, - + .192469D-06, .705225D-07, .162580D-07, .112242D-08, - + .000000D+00, .150943D+07, .113863D+07, .843810D+06, - + .624954D+06, .462602D+06, .342194D+06, .252978D+06, - + .186891D+06, .137984D+06, .101801D+06, .750583D+05, - + .552994D+05, .407151D+05, .299541D+05, .220223D+05, - + .161780D+05, .118765D+05, .871174D+04, .638591D+04, - + .467727D+04, .342354D+04, .250391D+04, .183016D+04, - + .133672D+04, .975775D+03, .711784D+03, .519141D+03, - + .376756D+03, .274624D+03, .200145D+03, .145884D+03, - + .106359D+03, .775788D+02, .566802D+02, .414260D+02, - + .303209D+02, .222336D+02, .163357D+02, .120305D+02 / - DATA (UPDI(I),I=6137,6188) / - + .887965D+01, .657279D+01, .487594D+01, .362510D+01, - + .270021D+01, .201453D+01, .150424D+01, .112522D+01, - + .839936D+00, .627842D+00, .467839D+00, .348359D+00, - + .258764D+00, .191654D+00, .141452D+00, .103977D+00, - + .760757D-01, .553749D-01, .400805D-01, .288354D-01, - + .206085D-01, .146270D-01, .103054D-01, .720057D-02, - + .499762D-02, .343039D-02, .233270D-02, .157149D-02, - + .104855D-02, .693236D-03, .454166D-03, .295253D-03, - + .190632D-03, .122573D-03, .786304D-04, .507850D-04, - + .329244D-04, .215942D-04, .143433D-04, .965352D-05, - + .654847D-05, .444980D-05, .299133D-05, .195942D-05, - + .123027D-05, .723355D-06, .385018D-06, .176349D-06, - + .630310D-07, .141465D-07, .992277D-09, .000000D+00 / - DATA (UPDI(I),I=6189,6240) / - + .185595D+07, .139535D+07, .102995D+07, .759764D+06, - + .560109D+06, .412621D+06, .303774D+06, .223472D+06, - + .164287D+06, .120683D+06, .885900D+05, .649789D+05, - + .476262D+05, .348786D+05, .255239D+05, .186623D+05, - + .136350D+05, .995328D+04, .726020D+04, .529117D+04, - + .385332D+04, .280379D+04, .203869D+04, .148116D+04, - + .107542D+04, .780189D+03, .565890D+03, .408350D+03, - + .295963D+03, .214456D+03, .155402D+03, .112629D+03, - + .816592D+02, .593004D+02, .430749D+02, .313322D+02, - + .228312D+02, .166690D+02, .121980D+02, .894588D+01, - + .657947D+01, .484966D+01, .358253D+01, .265153D+01, - + .196570D+01, .145857D+01, .108431D+01, .804413D+00, - + .597660D+00, .442688D+00, .327701D+00, .242019D+00 / - DATA (UPDI(I),I=6241,6292) / - + .178239D+00, .130821D+00, .956403D-01, .696031D-01, - + .503994D-01, .362935D-01, .259810D-01, .184787D-01, - + .130538D-01, .915530D-02, .636891D-02, .440196D-02, - + .300960D-02, .203916D-02, .136934D-02, .911242D-03, - + .601267D-03, .393510D-03, .255862D-03, .165486D-03, - + .106799D-03, .689248D-04, .448859D-04, .294096D-04, - + .195208D-04, .131267D-04, .893192D-05, .611064D-05, - + .417135D-05, .280626D-05, .183156D-05, .114167D-05, - + .663784D-06, .348102D-06, .156375D-06, .545244D-07, - + .119235D-07, .849308D-09, .000000D+00, .226069D+07, - + .169409D+07, .124562D+07, .915253D+06, .672061D+06, - + .493107D+06, .361551D+06, .264881D+06, .193917D+06, - + .141846D+06, .103679D+06, .757163D+05, .552518D+05 / - DATA (UPDI(I),I=6293,6344) / - + .402825D+05, .293451D+05, .213578D+05, .155317D+05, - + .112843D+05, .819161D+04, .594095D+04, .430517D+04, - + .311689D+04, .225483D+04, .162975D+04, .117710D+04, - + .849408D+03, .612773D+03, .439730D+03, .316939D+03, - + .228365D+03, .164538D+03, .118561D+03, .854572D+02, - + .616918D+02, .445432D+02, .322040D+02, .233228D+02, - + .169229D+02, .123069D+02, .896935D+01, .655541D+01, - + .480160D+01, .352478D+01, .259247D+01, .190995D+01, - + .140843D+01, .104064D+01, .767321D+00, .566696D+00, - + .417267D+00, .307086D+00, .225497D+00, .165137D+00, - + .120535D+00, .876415D-01, .634421D-01, .456986D-01, - + .327404D-01, .233204D-01, .165058D-01, .116050D-01, - + .810209D-02, .561139D-02, .386213D-02, .263009D-02 / - DATA (UPDI(I),I=6345,6396) / - + .177561D-02, .118858D-02, .788908D-03, .519584D-03, - + .339760D-03, .220997D-03, .143221D-03, .927927D-04, - + .602499D-04, .395519D-04, .261692D-04, .175525D-04, - + .119225D-04, .817901D-05, .562605D-05, .384705D-05, - + .258345D-05, .167670D-05, .103598D-05, .594996D-06, - + .307210D-06, .135307D-06, .460333D-07, .981690D-08, - + .709831D-09, .000000D+00, .142938D+07, .111493D+07, - + .859155D+06, .662062D+06, .510185D+06, .393151D+06, - + .302967D+06, .233472D+06, .179920D+06, .138654D+06, - + .106854D+06, .823494D+05, .634661D+05, .489146D+05, - + .377010D+05, .290596D+05, .224004D+05, .172685D+05, - + .133136D+05, .102657D+05, .791672D+04, .610633D+04, - + .471097D+04, .363546D+04, .280641D+04, .216731D+04 / - DATA (UPDI(I),I=6397,6448) / - + .167458D+04, .128994D+04, .998138D+03, .773036D+03, - + .599348D+03, .465291D+03, .361783D+03, .282038D+03, - + .220232D+03, .172443D+03, .135453D+03, .106783D+03, - + .845230D+02, .671951D+02, .536896D+02, .431115D+02, - + .347983D+02, .282362D+02, .230308D+02, .188798D+02, - + .155620D+02, .128684D+02, .106951D+02, .890964D+01, - + .744895D+01, .624249D+01, .524088D+01, .440537D+01, - + .370543D+01, .311690D+01, .262054D+01, .220091D+01, - + .184552D+01, .154420D+01, .128861D+01, .107182D+01, - + .888087D+00, .733242D+00, .601637D+00, .490829D+00, - + .397849D+00, .320151D+00, .255543D+00, .202130D+00, - + .158266D+00, .122520D+00, .936295D-01, .704946D-01, - + .523443D-01, .380811D-01, .271280D-01, .188611D-01 / - DATA (UPDI(I),I=6449,6500) / - + .127470D-01, .833164D-02, .523259D-02, .313373D-02, - + .176267D-02, .920776D-03, .435213D-03, .179439D-03, - + .606945D-04, .150112D-04, .209650D-05, .723526D-07, - + .000000D+00, .219368D+07, .170558D+07, .130928D+07, - + .100478D+07, .771084D+06, .591574D+06, .453843D+06, - + .348075D+06, .266947D+06, .204666D+06, .156908D+06, - + .120256D+06, .921617D+05, .706077D+05, .540918D+05, - + .414257D+05, .317240D+05, .242867D+05, .185923D+05, - + .142288D+05, .108894D+05, .833150D+04, .637481D+04, - + .487674D+04, .373125D+04, .285453D+04, .218447D+04, - + .166568D+04, .127569D+04, .977422D+03, .749543D+03, - + .575283D+03, .442143D+03, .340571D+03, .262720D+03, - + .203153D+03, .157580D+03, .122642D+03, .958406D+02 / - DATA (UPDI(I),I=6501,6552) / - + .752114D+02, .593279D+02, .470291D+02, .374815D+02, - + .300313D+02, .241932D+02, .195901D+02, .159551D+02, - + .130370D+02, .107103D+02, .882027D+01, .729184D+01, - + .604359D+01, .501900D+01, .417385D+01, .347376D+01, - + .289167D+01, .240618D+01, .200032D+01, .166036D+01, - + .137534D+01, .113622D+01, .935715D+00, .767574D+00, - + .627454D+00, .509663D+00, .411609D+00, .330237D+00, - + .263017D+00, .207749D+00, .162589D+00, .125927D+00, - + .964098D-01, .728478D-01, .542090D-01, .397691D-01, - + .285725D-01, .200887D-01, .137775D-01, .917714D-02, - + .590781D-02, .364940D-02, .214768D-02, .118483D-02, - + .606060D-03, .279728D-03, .112325D-03, .368364D-04, - + .879930D-05, .119188D-05, .408999D-07, .000000D+00 / - DATA (UPDI(I),I=6553,6604) / - + .319571D+07, .247596D+07, .189289D+07, .144649D+07, - + .110526D+07, .844151D+06, .644652D+06, .492069D+06, - + .375551D+06, .286483D+06, .218506D+06, .166573D+06, - + .126962D+06, .967192D+05, .736668D+05, .560780D+05, - + .426806D+05, .324659D+05, .246912D+05, .187678D+05, - + .142630D+05, .108336D+05, .822771D+04, .624564D+04, - + .474078D+04, .359693D+04, .272938D+04, .206274D+04, - + .156561D+04, .118842D+04, .902678D+03, .686016D+03, - + .521956D+03, .397909D+03, .303727D+03, .232338D+03, - + .178258D+03, .137202D+03, .106026D+03, .822700D+02, - + .641677D+02, .502932D+02, .396345D+02, .314023D+02, - + .250186D+02, .200363D+02, .161428D+02, .130487D+02, - + .106071D+02, .864392D+01, .707254D+01, .580225D+01 / - DATA (UPDI(I),I=6605,6656) / - + .477017D+01, .392751D+01, .323656D+01, .266796D+01, - + .219853D+01, .181012D+01, .148810D+01, .122092D+01, - + .999050D+00, .814967D+00, .662144D+00, .536121D+00, - + .431278D+00, .344928D+00, .274024D+00, .216084D+00, - + .168958D+00, .130877D+00, .100303D+00, .759702D-01, - + .567761D-01, .417702D-01, .302862D-01, .214950D-01, - + .149204D-01, .100970D-01, .663090D-02, .420535D-02, - + .255600D-02, .147854D-02, .800294D-03, .400969D-03, - + .180790D-03, .707254D-04, .224995D-04, .519440D-05, - + .682239D-06, .229118D-07, .000000D+00, .447253D+07, - + .345298D+07, .262898D+07, .200054D+07, .152203D+07, - + .115733D+07, .879836D+06, .668481D+06, .507778D+06, - + .385470D+06, .292545D+06, .221878D+06, .168233D+06 / - DATA (UPDI(I),I=6657,6708) / - + .127471D+06, .965558D+05, .730866D+05, .553036D+05, - + .418171D+05, .316086D+05, .238746D+05, .180268D+05, - + .136014D+05, .102592D+05, .773290D+04, .582724D+04, - + .438818D+04, .330429D+04, .247727D+04, .186500D+04, - + .140387D+04, .105720D+04, .796394D+03, .600481D+03, - + .453560D+03, .342947D+03, .259821D+03, .197399D+03, - + .150430D+03, .115086D+03, .883986D+02, .682493D+02, - + .529485D+02, .413031D+02, .323926D+02, .255474D+02, - + .202544D+02, .161567D+02, .129305D+02, .104084D+02, - + .839961D+01, .680665D+01, .553101D+01, .450427D+01, - + .367389D+01, .299942D+01, .244966D+01, .200010D+01, - + .163170D+01, .132919D+01, .108062D+01, .876213D+00, - + .708280D+00, .570199D+00, .457457D+00, .364589D+00 / - DATA (UPDI(I),I=6709,6760) / - + .288872D+00, .227324D+00, .177546D+00, .137477D+00, - + .105439D+00, .799908D-01, .599602D-01, .443378D-01, - + .322620D-01, .231287D-01, .162224D-01, .111224D-01, - + .743022D-02, .481347D-02, .300902D-02, .180065D-02, - + .102449D-02, .544515D-03, .267458D-03, .117941D-03, - + .450102D-04, .139166D-04, .311298D-05, .397051D-06, - + .127572D-07, .000000D+00, .606392D+07, .466532D+07, - + .353764D+07, .268088D+07, .203106D+07, .153775D+07, - + .116391D+07, .880353D+06, .665654D+06, .502957D+06, - + .379885D+06, .286713D+06, .216305D+06, .163059D+06, - + .122866D+06, .925041D+05, .696126D+05, .523411D+05, - + .393357D+05, .295357D+05, .221664D+05, .166209D+05, - + .124569D+05, .932808D+04, .698211D+04, .522150D+04 / - DATA (UPDI(I),I=6761,6812) / - + .390396D+04, .290528D+04, .217091D+04, .162164D+04, - + .121160D+04, .905362D+03, .677010D+03, .507063D+03, - + .380099D+03, .285441D+03, .214926D+03, .162304D+03, - + .123032D+03, .936270D+02, .716125D+02, .550380D+02, - + .425303D+02, .330425D+02, .258161D+02, .202764D+02, - + .160247D+02, .127060D+02, .101342D+02, .810357D+01, - + .650732D+01, .524026D+01, .422936D+01, .341904D+01, - + .276668D+01, .223972D+01, .181266D+01, .146586D+01, - + .118367D+01, .953928D+00, .766739D+00, .614381D+00, - + .490254D+00, .389859D+00, .307942D+00, .241795D+00, - + .188545D+00, .145901D+00, .111915D+00, .850152D-01, - + .638669D-01, .473969D-01, .346902D-01, .249750D-01, - + .177102D-01, .122812D-01, .832066D-02, .548985D-02 / - DATA (UPDI(I),I=6813,6864) / - + .351011D-02, .216403D-02, .127586D-02, .714474D-03, - + .373204D-03, .179883D-03, .776744D-04, .289597D-04, - + .871983D-05, .189457D-05, .234958D-06, .700346D-08, - + .000000D+00, .855736D+07, .655502D+07, .494537D+07, - + .372841D+07, .280982D+07, .211602D+07, .159285D+07, - + .119812D+07, .900792D+06, .676704D+06, .508103D+06, - + .381186D+06, .285813D+06, .214111D+06, .160302D+06, - + .119902D+06, .896277D+05, .669313D+05, .499492D+05, - + .372377D+05, .277421D+05, .206463D+05, .153551D+05, - + .114082D+05, .847026D+04, .628199D+04, .465711D+04, - + .343532D+04, .254412D+04, .188313D+04, .139382D+04, - + .103158D+04, .763835D+03, .566392D+03, .420230D+03, - + .312296D+03, .232654D+03, .173804D+03, .130313D+03 / - DATA (UPDI(I),I=6865,6916) / - + .980763D+02, .741824D+02, .563764D+02, .430753D+02, - + .330898D+02, .255621D+02, .198510D+02, .155130D+02, - + .121621D+02, .959248D+01, .758497D+01, .602350D+01, - + .479726D+01, .382934D+01, .306185D+01, .245066D+01, - + .196235D+01, .157096D+01, .125666D+01, .100377D+01, - + .800196D+00, .636210D+00, .504261D+00, .397984D+00, - + .313021D+00, .244507D+00, .189838D+00, .146356D+00, - + .111956D+00, .848776D-01, .637131D-01, .472856D-01, - + .346587D-01, .250468D-01, .177968D-01, .124511D-01, - + .851394D-02, .568472D-02, .369398D-02, .232439D-02, - + .140903D-02, .815916D-03, .448250D-03, .229338D-03, - + .108089D-03, .455388D-04, .165249D-04, .482841D-05, - + .101536D-05, .121781D-06, .309468D-08, .000000D+00 / - DATA (UPDI(I),I=6917,6968) / - + .117599D+08, .896936D+07, .673275D+07, .505003D+07, - + .378600D+07, .283613D+07, .212343D+07, .158849D+07, - + .118763D+07, .887144D+06, .662266D+06, .493929D+06, - + .368129D+06, .274098D+06, .203936D+06, .151574D+06, - + .112569D+06, .835092D+05, .619005D+05, .458303D+05, - + .339034D+05, .250506D+05, .184936D+05, .136368D+05, - + .100469D+05, .739254D+04, .543623D+04, .397650D+04, - + .292002D+04, .214271D+04, .157191D+04, .115288D+04, - + .845742D+03, .621223D+03, .456463D+03, .335894D+03, - + .247732D+03, .183192D+03, .135939D+03, .101247D+03, - + .757771D+02, .569803D+02, .430738D+02, .327361D+02, - + .250186D+02, .192211D+02, .148607D+02, .115259D+02, - + .899406D+01, .703599D+01, .552828D+01, .435634D+01 / - DATA (UPDI(I),I=6969,7020) / - + .344071D+01, .272220D+01, .215593D+01, .170827D+01, - + .135323D+01, .107116D+01, .846641D+00, .667866D+00, - + .525423D+00, .412066D+00, .321766D+00, .250383D+00, - + .193470D+00, .148577D+00, .113284D+00, .856911D-01, - + .642289D-01, .476570D-01, .349531D-01, .253114D-01, - + .180667D-01, .126737D-01, .875126D-02, .590277D-02, - + .388564D-02, .248775D-02, .154122D-02, .919061D-03, - + .522987D-03, .282036D-03, .141433D-03, .652300D-04, - + .268390D-04, .948922D-05, .269431D-05, .549086D-06, - + .635704D-07, .119684D-08, .000000D+00, .157770D+08, - + .119827D+08, .895034D+07, .667986D+07, .498241D+07, - + .371314D+07, .276546D+07, .205779D+07, .153016D+07, - + .113672D+07, .843825D+06, .625758D+06, .463676D+06 / - DATA (UPDI(I),I=7021,7072) / - + .343204D+06, .253815D+06, .187493D+06, .138375D+06, - + .102001D+06, .751157D+05, .552467D+05, .405926D+05, - + .297863D+05, .218346D+05, .159843D+05, .116896D+05, - + .853623D+04, .622888D+04, .451990D+04, .329226D+04, - + .239596D+04, .174286D+04, .126726D+04, .921444D+03, - + .670763D+03, .488337D+03, .355993D+03, .260057D+03, - + .190451D+03, .139942D+03, .103197D+03, .764646D+02, - + .569185D+02, .425906D+02, .320395D+02, .242361D+02, - + .184293D+02, .141032D+02, .108260D+02, .836179D+01, - + .647442D+01, .503523D+01, .392750D+01, .307053D+01, - + .240474D+01, .188525D+01, .147872D+01, .115957D+01, - + .908620D+00, .710924D+00, .555146D+00, .432327D+00, - + .335615D+00, .259391D+00, .199781D+00, .152770D+00 / - DATA (UPDI(I),I=7073,7124) / - + .116095D+00, .875830D-01, .655415D-01, .485933D-01, - + .356582D-01, .258594D-01, .185119D-01, .130588D-01, - + .905024D-02, .617228D-02, .411000D-02, .266970D-02, - + .168575D-02, .102937D-02, .604597D-03, .338583D-03, - + .179531D-03, .884182D-04, .399995D-04, .161198D-04, - + .557285D-05, .154460D-05, .306658D-06, .343399D-07, - + .349511D-09, .000000D+00, .207163D+08, .156700D+08, - + .116482D+08, .865101D+07, .642072D+07, .476105D+07, - + .352783D+07, .261150D+07, .193168D+07, .142735D+07, - + .105380D+07, .777164D+06, .572628D+06, .421430D+06, - + .309853D+06, .227535D+06, .166913D+06, .122282D+06, - + .894869D+05, .653968D+05, .477371D+05, .347962D+05, - + .253338D+05, .184175D+05, .133735D+05, .969503D+04 / - DATA (UPDI(I),I=7125,7176) / - + .702210D+04, .505642D+04, .365457D+04, .263864D+04, - + .190387D+04, .137292D+04, .989839D+03, .714369D+03, - + .515513D+03, .372447D+03, .269601D+03, .195618D+03, - + .142392D+03, .104009D+03, .763284D+02, .562691D+02, - + .416953D+02, .310599D+02, .232649D+02, .175169D+02, - + .132736D+02, .100886D+02, .771591D+01, .591552D+01, - + .455549D+01, .351857D+01, .272398D+01, .211256D+01, - + .164009D+01, .127394D+01, .989307D+00, .767694D+00, - + .594843D+00, .460001D+00, .354757D+00, .272721D+00, - + .208720D+00, .159183D+00, .120521D+00, .906749D-01, - + .677185D-01, .501616D-01, .368083D-01, .267289D-01, - + .191788D-01, .135817D-01, .947586D-02, .649314D-02, - + .437761D-02, .288044D-02, .184822D-02, .115233D-02 / - DATA (UPDI(I),I=7177,7228) / - + .694464D-03, .402344D-03, .222121D-03, .116029D-03, - + .562498D-04, .250273D-04, .991080D-05, .336322D-05, - + .914225D-06, .177745D-06, .192974D-07, .000000D+00, - + .000000D+00, .266815D+08, .201021D+08, .148729D+08, - + .109936D+08, .812009D+07, .599182D+07, .441778D+07, - + .325388D+07, .239453D+07, .176020D+07, .129270D+07, - + .948248D+06, .694880D+06, .508576D+06, .371820D+06, - + .271477D+06, .197985D+06, .144185D+06, .104877D+06, - + .761716D+05, .552524D+05, .400161D+05, .289434D+05, - + .209011D+05, .150732D+05, .108508D+05, .780326D+04, - + .557744D+04, .400114D+04, .286692D+04, .205250D+04, - + .146838D+04, .105007D+04, .751592D+03, .537796D+03, - + .385211D+03, .276402D+03, .198775D+03, .143388D+03 / - DATA (UPDI(I),I=7229,7280) / - + .103783D+03, .754619D+02, .551146D+02, .404581D+02, - + .298554D+02, .221519D+02, .165213D+02, .124011D+02, - + .933597D+01, .707297D+01, .537127D+01, .409739D+01, - + .313502D+01, .240429D+01, .184720D+01, .142070D+01, - + .109326D+01, .841106D+00, .646641D+00, .496406D+00, - + .380327D+00, .290598D+00, .221330D+00, .167815D+00, - + .126799D+00, .951028D-01, .708776D-01, .524320D-01, - + .384675D-01, .279554D-01, .201025D-01, .142822D-01, - + .100131D-01, .691528D-02, .468947D-02, .312847D-02, - + .203634D-02, .129222D-02, .796566D-03, .474484D-03, - + .271601D-03, .148088D-03, .763672D-04, .365305D-04, - + .160297D-04, .625748D-05, .209204D-05, .560100D-06, - + .107118D-06, .113044D-07, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=7281,7332) / - + .337691D+08, .253444D+08, .186659D+08, .137338D+08, - + .100965D+08, .741488D+07, .544067D+07, .398773D+07, - + .292000D+07, .213568D+07, .156042D+07, .113870D+07, - + .830037D+06, .604241D+06, .439348D+06, .319003D+06, - + .231331D+06, .167502D+06, .121123D+06, .874464D+05, - + .630447D+05, .453767D+05, .326129D+05, .233990D+05, - + .167633D+05, .119860D+05, .856032D+04, .607498D+04, - + .432677D+04, .307754D+04, .218678D+04, .155249D+04, - + .110154D+04, .782166D+03, .555121D+03, .394332D+03, - + .280564D+03, .200045D+03, .143053D+03, .102633D+03, - + .739642D+02, .535381D+02, .389470D+02, .284806D+02, - + .209400D+02, .154752D+02, .115106D+02, .858636D+01, - + .644610D+01, .485068D+01, .366679D+01, .278026D+01 / - DATA (UPDI(I),I=7333,7384) / - + .211306D+01, .160891D+01, .122638D+01, .935342D+00, - + .713235D+00, .543491D+00, .413547D+00, .314061D+00, - + .237862D+00, .179578D+00, .134965D+00, .101087D+00, - + .751513D-01, .555145D-01, .407042D-01, .295981D-01, - + .213178D-01, .151918D-01, .106956D-01, .743007D-02, - + .508403D-02, .341532D-02, .225698D-02, .145494D-02, - + .914258D-03, .557973D-03, .328998D-03, .186374D-03, - + .100547D-03, .512914D-04, .242647D-04, .105271D-04, - + .406226D-05, .134207D-05, .355027D-06, .670044D-07, - + .689157D-08, .000000D+00, .000000D+00, .420656D+08, - + .314535D+08, .230625D+08, .168924D+08, .123619D+08, - + .903676D+07, .659964D+07, .481424D+07, .350821D+07, - + .255335D+07, .185632D+07, .134780D+07, .977420D+06 / - DATA (UPDI(I),I=7385,7436) / - + .707830D+06, .511941D+06, .369713D+06, .266633D+06, - + .191989D+06, .138041D+06, .990848D+05, .710143D+05, - + .508061D+05, .362913D+05, .258755D+05, .184190D+05, - + .130838D+05, .928225D+04, .654193D+04, .462700D+04, - + .326779D+04, .230515D+04, .162444D+04, .114388D+04, - + .806003D+03, .567547D+03, .399940D+03, .282241D+03, - + .199581D+03, .141527D+03, .100679D+03, .719359D+02, - + .516214D+02, .372267D+02, .269854D+02, .196672D+02, - + .144072D+02, .106226D+02, .785438D+01, .584524D+01, - + .436012D+01, .326739D+01, .245604D+01, .185060D+01, - + .139703D+01, .105583D+01, .798451D+00, .603728D+00, - + .456197D+00, .344234D+00, .259256D+00, .194734D+00, - + .145809D+00, .108686D+00, .807408D-01, .595346D-01 / - DATA (UPDI(I),I=7437,7488) / - + .436191D-01, .317212D-01, .228777D-01, .163428D-01, - + .115510D-01, .806560D-02, .555681D-02, .377075D-02, - + .251189D-02, .164609D-02, .105214D-02, .655499D-03, - + .396599D-03, .231810D-03, .130159D-03, .695940D-04, - + .351802D-04, .164901D-04, .708725D-05, .270901D-05, - + .886203D-06, .232086D-06, .433018D-07, .435133D-08, - + .000000D+00, .000000D+00, .516441D+08, .384760D+08, - + .280895D+08, .204845D+08, .149241D+08, .108607D+08, - + .789551D+07, .573293D+07, .415807D+07, .301194D+07, - + .217913D+07, .157443D+07, .113608D+07, .818568D+06, - + .588985D+06, .423129D+06, .303532D+06, .217375D+06, - + .155432D+06, .110943D+06, .790580D+05, .562314D+05, - + .399279D+05, .282959D+05, .200173D+05, .141291D+05 / - DATA (UPDI(I),I=7489,7540) / - + .995920D+04, .697220D+04, .489817D+04, .343559D+04, - + .240653D+04, .168377D+04, .117699D+04, .823177D+03, - + .575237D+03, .402229D+03, .281626D+03, .197559D+03, - + .138961D+03, .980456D+02, .694763D+02, .494418D+02, - + .353565D+02, .254144D+02, .183663D+02, .133407D+02, - + .975378D+01, .715114D+01, .527747D+01, .390369D+01, - + .290110D+01, .216275D+01, .161628D+01, .121022D+01, - + .907266D+00, .680610D+00, .510537D+00, .382736D+00, - + .286543D+00, .214130D+00, .159599D+00, .118586D+00, - + .877204D-01, .646744D-01, .473283D-01, .344157D-01, - + .248413D-01, .177825D-01, .126089D-01, .884598D-02, - + .613122D-02, .419294D-02, .282429D-02, .186748D-02, - + .121481D-02, .770715D-03, .476603D-03, .286208D-03 / - DATA (UPDI(I),I=7541,7592) / - + .166033D-03, .925205D-04, .490930D-04, .246249D-04, - + .114518D-04, .488211D-05, .185064D-05, .600062D-06, - + .155686D-06, .287322D-07, .282696D-08, .000000D+00, - + .000000D+00, .625619D+08, .464464D+08, .337653D+08, - + .245186D+08, .177858D+08, .128866D+08, .932660D+07, - + .674158D+07, .486728D+07, .350934D+07, .252705D+07, - + .181710D+07, .130482D+07, .935521D+06, .669766D+06, - + .478717D+06, .341630D+06, .243373D+06, .173088D+06, - + .122872D+06, .870723D+05, .615814D+05, .434743D+05, - + .306279D+05, .215368D+05, .151082D+05, .105828D+05, - + .736079D+04, .513746D+04, .357948D+04, .249028D+04, - + .173030D+04, .120096D+04, .833900D+03, .578446D+03, - + .401450D+03, .278943D+03, .194169D+03, .135509D+03 / - DATA (UPDI(I),I=7593,7644) / - + .948552D+02, .666800D+02, .470711D+02, .333896D+02, - + .238064D+02, .170649D+02, .122949D+02, .891681D+01, - + .648467D+01, .474741D+01, .348358D+01, .256844D+01, - + .189975D+01, .140871D+01, .104668D+01, .778689D+00, - + .579749D+00, .431633D+00, .321194D+00, .238711D+00, - + .177095D+00, .131050D+00, .966839D-01, .710163D-01, - + .519960D-01, .377877D-01, .272900D-01, .195644D-01, - + .139108D-01, .979773D-02, .682815D-02, .470145D-02, - + .319406D-02, .213740D-02, .140405D-02, .907442D-03, - + .571965D-03, .351398D-03, .209641D-03, .120818D-03, - + .668768D-04, .352475D-04, .175580D-04, .810714D-05, - + .343035D-05, .129006D-05, .414666D-06, .106567D-06, - + .194493D-07, .187705D-08, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=7645,7696) / - + .627884D+05, .926274D+05, .715825D+05, .553262D+05, - + .427681D+05, .330664D+05, .255706D+05, .197788D+05, - + .153030D+05, .118439D+05, .917006D+04, .710294D+04, - + .550455D+04, .426833D+04, .331197D+04, .257189D+04, - + .199899D+04, .155532D+04, .121158D+04, .945115D+03, - + .738430D+03, .578001D+03, .453375D+03, .356472D+03, - + .281046D+03, .222267D+03, .176397D+03, .140099D+03, - + .112138D+03, .902005D+02, .729511D+02, .593551D+02, - + .486096D+02, .401145D+02, .333401D+02, .279349D+02, - + .236046D+02, .201194D+02, .172997D+02, .150041D+02, - + .131256D+02, .115743D+02, .102830D+02, .919818D+01, - + .827771D+01, .748846D+01, .680670D+01, .620541D+01, - + .567587D+01, .519894D+01, .476956D+01, .437818D+01 / - DATA (UPDI(I),I=7697,7748) / - + .401879D+01, .368667D+01, .337819D+01, .309053D+01, - + .282153D+01, .256954D+01, .233330D+01, .211183D+01, - + .190439D+01, .171038D+01, .152931D+01, .136151D+01, - + .120488D+01, .106014D+01, .926955D+00, .804984D+00, - + .693876D+00, .593254D+00, .502717D+00, .421833D+00, - + .350099D+00, .286975D+00, .232470D+00, .185223D+00, - + .145071D+00, .111412D+00, .836365D-01, .611327D-01, - + .432895D-01, .295220D-01, .191640D-01, .117366D-01, - + .664583D-02, .338163D-02, .147408D-02, .503263D-03, - + .110033D-03, .809180D-05, .000000D+00, .144381D+06, - + .112678D+06, .868833D+05, .669956D+05, .516659D+05, - + .398466D+05, .307359D+05, .237112D+05, .182960D+05, - + .141203D+05, .109010D+05, .841813D+04, .650355D+04 / - DATA (UPDI(I),I=7749,7800) / - + .502659D+04, .388733D+04, .300815D+04, .232969D+04, - + .180582D+04, .140128D+04, .108868D+04, .847074D+03, - + .660171D+03, .515528D+03, .403468D+03, .316593D+03, - + .249155D+03, .196758D+03, .155461D+03, .123792D+03, - + .990499D+02, .796860D+02, .644891D+02, .525347D+02, - + .431245D+02, .356553D+02, .297202D+02, .249862D+02, - + .211903D+02, .181315D+02, .156494D+02, .136253D+02, - + .119584D+02, .105751D+02, .941584D+01, .843492D+01, - + .759593D+01, .687327D+01, .623769D+01, .567986D+01, - + .517912D+01, .473014D+01, .432259D+01, .395010D+01, - + .360755D+01, .329104D+01, .299746D+01, .272446D+01, - + .247016D+01, .223314D+01, .201224D+01, .180654D+01, - + .161531D+01, .143785D+01, .127438D+01, .112267D+01 / - DATA (UPDI(I),I=7801,7852) / - + .983296D+00, .855797D+00, .739722D+00, .634599D+00, - + .539960D+00, .455303D+00, .380124D+00, .313865D+00, - + .255904D+00, .206170D+00, .163334D+00, .127168D+00, - + .970569D-01, .723830D-01, .525429D-01, .369302D-01, - + .249857D-01, .160777D-01, .975241D-02, .546281D-02, - + .274567D-02, .117961D-02, .395788D-03, .850182D-04, - + .631405D-05, .000000D+00, .177604D+06, .138273D+06, - + .106322D+06, .817495D+05, .628599D+05, .483341D+05, - + .371685D+05, .285831D+05, .219841D+05, .169103D+05, - + .130105D+05, .100119D+05, .770707D+04, .593470D+04, - + .457220D+04, .352423D+04, .271839D+04, .209834D+04, - + .162133D+04, .125408D+04, .971353D+03, .753492D+03, - + .585591D+03, .456043D+03, .356047D+03, .278757D+03 / - DATA (UPDI(I),I=7853,7904) / - + .218987D+03, .172088D+03, .136294D+03, .108457D+03, - + .867781D+02, .698437D+02, .565878D+02, .462015D+02, - + .379972D+02, .315069D+02, .263536D+02, .222382D+02, - + .189357D+02, .162654D+02, .140957D+02, .123144D+02, - + .108409D+02, .960933D+01, .857025D+01, .768389D+01, - + .692264D+01, .625508D+01, .567113D+01, .514873D+01, - + .468213D+01, .426029D+01, .387645D+01, .352510D+01, - + .320204D+01, .290391D+01, .262813D+01, .237261D+01, - + .213575D+01, .191621D+01, .171291D+01, .152498D+01, - + .135154D+01, .119267D+01, .104604D+01, .912094D+00, - + .790242D+00, .679932D+00, .580593D+00, .491669D+00, - + .412575D+00, .342743D+00, .281568D+00, .228363D+00, - + .182988D+00, .144152D+00, .111571D+00, .846278D-01 / - DATA (UPDI(I),I=7905,7956) / - + .627017D-01, .452002D-01, .315311D-01, .211620D-01, - + .134968D-01, .810733D-02, .449140D-02, .222909D-02, - + .943435D-03, .310878D-03, .655548D-04, .491971D-05, - + .000000D+00, .219224D+06, .170216D+06, .130475D+06, - + .100001D+06, .766452D+05, .587382D+05, .450167D+05, - + .344986D+05, .264405D+05, .202646D+05, .155338D+05, - + .119085D+05, .913165D+04, .700380D+04, .537400D+04, - + .412501D+04, .316825D+04, .243488D+04, .187294D+04, - + .144202D+04, .111166D+04, .858158D+03, .663634D+03, - + .514198D+03, .399373D+03, .311024D+03, .243029D+03, - + .189928D+03, .149597D+03, .118383D+03, .941960D+02, - + .753944D+02, .607502D+02, .493315D+02, .403559D+02, - + .332882D+02, .277024D+02, .232605D+02, .197109D+02 / - DATA (UPDI(I),I=7957,8008) / - + .168517D+02, .145372D+02, .126432D+02, .110814D+02, - + .977983D+01, .868492D+01, .775355D+01, .695599D+01, - + .625868D+01, .565067D+01, .510860D+01, .462624D+01, - + .419187D+01, .379830D+01, .343964D+01, .311141D+01, - + .280996D+01, .253250D+01, .227674D+01, .204088D+01, - + .182342D+01, .162311D+01, .143895D+01, .126987D+01, - + .111583D+01, .974412D+00, .845930D+00, .729675D+00, - + .625007D+00, .531260D+00, .447803D+00, .373981D+00, - + .309171D+00, .252725D+00, .203912D+00, .162530D+00, - + .127326D+00, .979780D-01, .738665D-01, .543777D-01, - + .389335D-01, .269604D-01, .179523D-01, .113505D-01, - + .675317D-02, .370096D-02, .181421D-02, .756699D-03, - + .245029D-03, .507674D-04, .384876D-05, .000000D+00 / - DATA (UPDI(I),I=8009,8060) / - + .161524D+06, .209432D+06, .160006D+06, .122222D+06, - + .933564D+05, .712959D+05, .544474D+05, .415750D+05, - + .317468D+05, .242400D+05, .185100D+05, .141345D+05, - + .107954D+05, .824603D+04, .630079D+04, .481575D+04, - + .368265D+04, .281756D+04, .215740D+04, .165325D+04, - + .126841D+04, .974354D+03, .749719D+03, .577922D+03, - + .446524D+03, .345894D+03, .268822D+03, .208921D+03, - + .163650D+03, .128786D+03, .101905D+03, .811137D+02, - + .650009D+02, .524990D+02, .427200D+02, .350561D+02, - + .290272D+02, .242538D+02, .204553D+02, .174076D+02, - + .149495D+02, .129449D+02, .112972D+02, .992822D+01, - + .877996D+01, .780599D+01, .697439D+01, .624949D+01, - + .561946D+01, .505963D+01, .456328D+01, .411801D+01 / - DATA (UPDI(I),I=8061,8112) / - + .371623D+01, .335164D+01, .301949D+01, .271586D+01, - + .243771D+01, .218258D+01, .194847D+01, .173371D+01, - + .153690D+01, .135689D+01, .119247D+01, .104343D+01, - + .907322D+00, .784308D+00, .673583D+00, .574418D+00, - + .486070D+00, .407841D+00, .339015D+00, .278923D+00, - + .226884D+00, .182131D+00, .144411D+00, .112514D+00, - + .860861D-01, .645130D-01, .471919D-01, .335623D-01, - + .230730D-01, .152449D-01, .955647D-02, .563240D-02, - + .305407D-02, .147902D-02, .608129D-03, .193612D-03, - + .394452D-04, .302013D-05, .000000D+00, .355321D+06, - + .274047D+06, .208441D+06, .158503D+06, .120514D+06, - + .916076D+05, .696272D+05, .529098D+05, .402033D+05, - + .305435D+05, .232044D+05, .176272D+05, .133915D+05 / - DATA (UPDI(I),I=8113,8164) / - + .101738D+05, .773084D+04, .587544D+04, .446709D+04, - + .339761D+04, .258586D+04, .196939D+04, .150144D+04, - + .114594D+04, .875947D+03, .670694D+03, .514655D+03, - + .395892D+03, .305508D+03, .235711D+03, .183301D+03, - + .143204D+03, .112491D+03, .888928D+02, .707244D+02, - + .567204D+02, .458365D+02, .373606D+02, .307331D+02, - + .255166D+02, .213884D+02, .180935D+02, .154490D+02, - + .133023D+02, .115452D+02, .100913D+02, .887657D+01, - + .785017D+01, .697716D+01, .621919D+01, .556314D+01, - + .498276D+01, .447056D+01, .401335D+01, .360293D+01, - + .323255D+01, .289702D+01, .259211D+01, .231447D+01, - + .206139D+01, .183062D+01, .162028D+01, .142876D+01, - + .125473D+01, .109679D+01, .954565D+00, .825530D+00 / - DATA (UPDI(I),I=8165,8216) / - + .709682D+00, .606101D+00, .513955D+00, .432413D+00, - + .360701D+00, .298040D+00, .243715D+00, .197007D+00, - + .157124D+00, .123756D+00, .957529D-01, .727328D-01, - + .540940D-01, .392552D-01, .276825D-01, .188586D-01, - + .123398D-01, .765344D-02, .445847D-02, .238617D-02, - + .113864D-02, .460236D-03, .143660D-03, .287208D-04, - + .222434D-05, .000000D+00, .463370D+06, .356004D+06, - + .269565D+06, .204053D+06, .154431D+06, .116839D+06, - + .883819D+05, .668366D+05, .505356D+05, .382011D+05, - + .288741D+05, .218204D+05, .164895D+05, .124599D+05, - + .941599D+04, .711608D+04, .537940D+04, .406762D+04, - + .307734D+04, .232944D+04, .176489D+04, .133847D+04, - + .101648D+04, .773151D+03, .589278D+03, .450188D+03 / - DATA (UPDI(I),I=8217,8268) / - + .344997D+03, .264281D+03, .204061D+03, .158288D+03, - + .123454D+03, .968653D+02, .765268D+02, .609520D+02, - + .489235D+02, .396149D+02, .323798D+02, .267181D+02, - + .222619D+02, .187237D+02, .158976D+02, .136139D+02, - + .117525D+02, .102186D+02, .894180D+01, .786713D+01, - + .695652D+01, .616901D+01, .549016D+01, .489220D+01, - + .436687D+01, .390020D+01, .348340D+01, .310925D+01, - + .277216D+01, .246759D+01, .219188D+01, .194207D+01, - + .171566D+01, .151057D+01, .132501D+01, .115747D+01, - + .100636D+01, .871172D+00, .749303D+00, .640602D+00, - + .544044D+00, .458715D+00, .383708D+00, .318186D+00, - + .261325D+00, .212371D+00, .170582D+00, .135152D+00, - + .105730D+00, .812265D-01, .612420D-01, .451939D-01 / - DATA (UPDI(I),I=8269,8320) / - + .325273D-01, .227379D-01, .153445D-01, .993907D-02, - + .609592D-02, .350766D-02, .185143D-02, .869559D-03, - + .345008D-03, .105381D-03, .206303D-04, .161844D-05, - + .000000D+00, .598767D+06, .458280D+06, .345469D+06, - + .260336D+06, .196128D+06, .147700D+06, .111201D+06, - + .836916D+05, .629727D+05, .473678D+05, .356230D+05, - + .267832D+05, .201346D+05, .151337D+05, .113749D+05, - + .854922D+04, .642653D+04, .483160D+04, .363398D+04, - + .273441D+04, .205910D+04, .155190D+04, .117110D+04, - + .885005D+03, .670092D+03, .508499D+03, .387043D+03, - + .294427D+03, .225765D+03, .173907D+03, .134693D+03, - + .104955D+03, .823513D+02, .651520D+02, .519512D+02, - + .417980D+02, .339527D+02, .278484D+02, .230694D+02 / - DATA (UPDI(I),I=8321,8372) / - + .192943D+02, .162931D+02, .138787D+02, .119189D+02, - + .103103D+02, .897636D+01, .785781D+01, .691355D+01, - + .610008D+01, .540165D+01, .478905D+01, .425325D+01, - + .377953D+01, .335850D+01, .298253D+01, .264561D+01, - + .234288D+01, .207041D+01, .182497D+01, .160385D+01, - + .140478D+01, .122576D+01, .106512D+01, .921143D+00, - + .793136D+00, .678474D+00, .576854D+00, .487171D+00, - + .408432D+00, .339674D+00, .280011D+00, .228584D+00, - + .184614D+00, .147346D+00, .115972D+00, .901105D-01, - + .687352D-01, .514394D-01, .376642D-01, .268847D-01, - + .186289D-01, .124531D-01, .798443D-02, .484246D-02, - + .275216D-02, .143258D-02, .662229D-03, .257924D-03, - + .771060D-04, .147883D-04, .117519D-05, .000000D+00 / - DATA (UPDI(I),I=8373,8424) / - + .766129D+06, .584191D+06, .438467D+06, .328959D+06, - + .246717D+06, .184954D+06, .138606D+06, .103829D+06, - + .777531D+05, .582028D+05, .435563D+05, .325842D+05, - + .243710D+05, .182231D+05, .136247D+05, .101851D+05, - + .761432D+04, .569264D+04, .425719D+04, .318473D+04, - + .238399D+04, .178589D+04, .133936D+04, .100579D+04, - + .756675D+03, .570461D+03, .431341D+03, .325905D+03, - + .248221D+03, .189915D+03, .146099D+03, .113080D+03, - + .881377D+02, .692772D+02, .548889D+02, .438886D+02, - + .354372D+02, .288978D+02, .238048D+02, .198016D+02, - + .166335D+02, .140960D+02, .120444D+02, .103670D+02, - + .898122D+01, .782339D+01, .684953D+01, .601375D+01, - + .529897D+01, .467466D+01, .413098D+01, .365254D+01 / - DATA (UPDI(I),I=8425,8476) / - + .322936D+01, .285338D+01, .251822D+01, .221873D+01, - + .195068D+01, .171060D+01, .149558D+01, .130315D+01, - + .113114D+01, .977744D+00, .841084D+00, .720336D+00, - + .612851D+00, .518195D+00, .435190D+00, .362783D+00, - + .299967D+00, .245820D+00, .199460D+00, .160095D+00, - + .126964D+00, .992694D-01, .766083D-01, .580199D-01, - + .430972D-01, .313094D-01, .221640D-01, .152229D-01, - + .100800D-01, .639718D-02, .383641D-02, .215352D-02, - + .110545D-02, .502955D-03, .192312D-03, .562855D-04, - + .105830D-04, .851817D-06, .000000D+00, .970389D+06, - + .737254D+06, .550988D+06, .411592D+06, .307339D+06, - + .229376D+06, .171122D+06, .127599D+06, .951095D+05, - + .708589D+05, .527731D+05, .392866D+05, .292381D+05 / - DATA (UPDI(I),I=8477,8528) / - + .217520D+05, .161795D+05, .120316D+05, .894677D+04, - + .665243D+04, .494737D+04, .368012D+04, .273893D+04, - + .203971D+04, .152054D+04, .113488D+04, .848483D+03, - + .635627D+03, .477538D+03, .358442D+03, .271222D+03, - + .206156D+03, .157556D+03, .121156D+03, .938268D+02, - + .732860D+02, .577080D+02, .458673D+02, .368207D+02, - + .298584D+02, .244632D+02, .202429D+02, .169178D+02, - + .142656D+02, .121297D+02, .103898D+02, .895755D+01, - + .776518D+01, .676588D+01, .591144D+01, .518352D+01, - + .455035D+01, .400133D+01, .352038D+01, .309701D+01, - + .272273D+01, .239083D+01, .209583D+01, .183325D+01, - + .159941D+01, .139117D+01, .120590D+01, .104128D+01, - + .895347D+00, .766119D+00, .652634D+00, .552238D+00 / - DATA (UPDI(I),I=8529,8580) / - + .464376D+00, .387815D+00, .321457D+00, .264260D+00, - + .215279D+00, .173622D+00, .138492D+00, .109132D+00, - + .847618D-01, .649668D-01, .488519D-01, .360164D-01, - + .259601D-01, .182250D-01, .124070D-01, .813753D-02, - + .511169D-02, .303111D-02, .168045D-02, .850660D-03, - + .380933D-03, .143007D-03, .409901D-04, .756068D-05, - + .616305D-06, .000000D+00, .121673D+07, .921134D+06, - + .685539D+06, .509941D+06, .379147D+06, .281741D+06, - + .209262D+06, .155342D+06, .115263D+06, .854782D+05, - + .633631D+05, .469459D+05, .347694D+05, .257398D+05, - + .190497D+05, .140939D+05, .104258D+05, .771117D+04, - + .570382D+04, .421949D+04, .312276D+04, .231227D+04, - + .171369D+04, .127146D+04, .944865D+03, .703487D+03 / - DATA (UPDI(I),I=8581,8632) / - + .525241D+03, .391742D+03, .294548D+03, .222469D+03, - + .168949D+03, .129103D+03, .993616D+02, .771391D+02, - + .603820D+02, .477167D+02, .380920D+02, .307233D+02, - + .250409D+02, .206165D+02, .171453D+02, .143878D+02, - + .121754D+02, .103798D+02, .890672D+01, .768466D+01, - + .666407D+01, .579461D+01, .505671D+01, .441746D+01, - + .386551D+01, .338418D+01, .296246D+01, .259148D+01, - + .226418D+01, .197481D+01, .171864D+01, .149177D+01, - + .129089D+01, .111320D+01, .956236D+00, .817915D+00, - + .696155D+00, .589872D+00, .496422D+00, .415145D+00, - + .344766D+00, .284151D+00, .232240D+00, .188075D+00, - + .150764D+00, .119511D+00, .935731D-01, .721951D-01, - + .549569D-01, .410290D-01, .300226D-01, .214696D-01 / - DATA (UPDI(I),I=8633,8684) / - + .149471D-01, .100855D-01, .655193D-02, .407353D-02, - + .238833D-02, .130770D-02, .652782D-03, .287718D-03, - + .106061D-03, .297810D-04, .539226D-05, .445089D-06, - + .000000D+00, .151049D+07, .113958D+07, .844658D+06, - + .625713D+06, .463280D+06, .342801D+06, .253520D+06, - + .187376D+06, .138417D+06, .102188D+06, .754038D+05, - + .556079D+05, .409905D+05, .301999D+05, .222417D+05, - + .163738D+05, .120511D+05, .886744D+04, .652472D+04, - + .480099D+04, .353377D+04, .260210D+04, .191761D+04, - + .141457D+04, .104507D+04, .773471D+03, .574023D+03, - + .425491D+03, .317971D+03, .238693D+03, .180164D+03, - + .136841D+03, .104688D+03, .808007D+02, .628875D+02, - + .494221D+02, .392422D+02, .314875D+02, .255354D+02 / - DATA (UPDI(I),I=8685,8736) / - + .209215D+02, .173164D+02, .144635D+02, .121829D+02, - + .103384D+02, .883029D+01, .758339D+01, .654565D+01, - + .566474D+01, .491993D+01, .427728D+01, .372472D+01, - + .324501D+01, .282665D+01, .246044D+01, .213896D+01, - + .185623D+01, .160727D+01, .138801D+01, .119496D+01, - + .102516D+01, .876038D+00, .745396D+00, .631071D+00, - + .531875D+00, .445184D+00, .370248D+00, .305763D+00, - + .250573D+00, .203609D+00, .163913D+00, .130598D+00, - + .102881D+00, .800362D-01, .613398D-01, .463738D-01, - + .343726D-01, .249629D-01, .177105D-01, .122272D-01, - + .817689D-02, .526134D-02, .323752D-02, .187676D-02, - + .101484D-02, .499556D-03, .216719D-03, .784532D-04, - + .215868D-04, .383923D-05, .320851D-06, .000000D+00 / - DATA (UPDI(I),I=8737,8788) / - + .185708D+07, .139636D+07, .103086D+07, .760575D+06, - + .560833D+06, .413268D+06, .304352D+06, .223989D+06, - + .164749D+06, .121095D+06, .889577D+05, .653071D+05, - + .479190D+05, .351398D+05, .257569D+05, .188700D+05, - + .138201D+05, .101182D+05, .740710D+04, .542197D+04, - + .396976D+04, .290740D+04, .213086D+04, .156313D+04, - + .114829D+04, .844964D+03, .623435D+03, .459369D+03, - + .341264D+03, .254668D+03, .191091D+03, .144295D+03, - + .109757D+03, .842386D+02, .652043D+02, .509710D+02, - + .402644D+02, .321475D+02, .259453D+02, .211578D+02, - + .174317D+02, .144941D+02, .121537D+02, .102672D+02, - + .872991D+01, .746301D+01, .641219D+01, .552332D+01, - + .477457D+01, .413108D+01, .358011D+01, .310388D+01 / - DATA (UPDI(I),I=8789,8840) / - + .269048D+01, .233035D+01, .201579D+01, .174058D+01, - + .149954D+01, .128840D+01, .110353D+01, .941848D+00, - + .800672D+00, .677706D+00, .570725D+00, .478450D+00, - + .398293D+00, .329427D+00, .270530D+00, .220439D+00, - + .178084D+00, .142514D+00, .112858D+00, .883510D-01, - + .682915D-01, .519894D-01, .390348D-01, .287245D-01, - + .207040D-01, .145726D-01, .997657D-02, .661235D-02, - + .421392D-02, .256627D-02, .147082D-02, .785434D-03, - + .381260D-03, .162801D-03, .578825D-04, .156118D-04, - + .272894D-05, .230878D-06, .000000D+00, .226189D+07, - + .169518D+07, .124658D+07, .916118D+06, .672833D+06, - + .493796D+06, .362167D+06, .265431D+06, .194408D+06, - + .142284D+06, .104070D+06, .760650D+05, .555628D+05 / - DATA (UPDI(I),I=8841,8892) / - + .405597D+05, .295921D+05, .215778D+05, .157276D+05, - + .114588D+05, .834689D+04, .607908D+04, .442801D+04, - + .322608D+04, .235185D+04, .171592D+04, .125361D+04, - + .917323D+03, .673016D+03, .493052D+03, .364202D+03, - + .270239D+03, .201626D+03, .151398D+03, .114525D+03, - + .874251D+02, .673155D+02, .523541D+02, .411535D+02, - + .327012D+02, .262703D+02, .213263D+02, .174928D+02, - + .144810D+02, .120896D+02, .101682D+02, .860739D+01, - + .732524D+01, .626531D+01, .537183D+01, .462199D+01, - + .398009D+01, .343276D+01, .296175D+01, .255475D+01, - + .220190D+01, .189524D+01, .162831D+01, .139575D+01, - + .119315D+01, .101673D+01, .863296D+00, .730090D+00, - + .614731D+00, .514950D+00, .429391D+00, .355512D+00 / - DATA (UPDI(I),I=8893,8944) / - + .292423D+00, .238799D+00, .193474D+00, .155392D+00, - + .123616D+00, .972963D-01, .756925D-01, .581306D-01, - + .439580D-01, .327774D-01, .239458D-01, .171292D-01, - + .119607D-01, .811970D-02, .533352D-02, .336632D-02, - + .202889D-02, .114964D-02, .606273D-03, .290203D-03, - + .121976D-03, .425986D-04, .112658D-04, .193663D-05, - + .165845D-06, .000000D+00, .628438D+05, .924424D+05, - + .714172D+05, .551785D+05, .426362D+05, .329485D+05, - + .254654D+05, .196849D+05, .152193D+05, .117692D+05, - + .910354D+04, .704368D+04, .545179D+04, .422137D+04, - + .327020D+04, .253477D+04, .196601D+04, .152604D+04, - + .118561D+04, .922089D+03, .718031D+03, .559940D+03, - + .437394D+03, .342341D+03, .268556D+03, .211230D+03 / - DATA (UPDI(I),I=8945,8996) / - + .166647D+03, .131497D+03, .104532D+03, .834674D+02, - + .669805D+02, .540471D+02, .438743D+02, .358695D+02, - + .295137D+02, .244616D+02, .204258D+02, .171833D+02, - + .145610D+02, .124238D+02, .106702D+02, .921645D+01, - + .800076D+01, .697468D+01, .610074D+01, .535005D+01, - + .470245D+01, .413441D+01, .363935D+01, .320055D+01, - + .281410D+01, .247153D+01, .216737D+01, .189707D+01, - + .165681D+01, .144335D+01, .125389D+01, .108597D+01, - + .937421D+00, .806295D+00, .690837D+00, .589453D+00, - + .500691D+00, .423565D+00, .356080D+00, .297644D+00, - + .247254D+00, .204000D+00, .167059D+00, .135685D+00, - + .109202D+00, .870025D-01, .685251D-01, .532662D-01, - + .409010D-01, .308448D-01, .228335D-01, .165440D-01 / - DATA (UPDI(I),I=8997,9048) / - + .116904D-01, .802018D-02, .531119D-02, .337220D-02, - + .202533D-02, .113917D-02, .586339D-03, .267345D-03, - + .102260D-03, .296290D-04, .517089D-05, .261159D-06, - + .000000D+00, .144162D+06, .112482D+06, .867083D+05, - + .668393D+05, .515263D+05, .397221D+05, .306248D+05, - + .236121D+05, .182076D+05, .140416D+05, .108308D+05, - + .835563D+04, .644792D+04, .497710D+04, .384333D+04, - + .296905D+04, .229496D+04, .177500D+04, .137395D+04, - + .106445D+04, .825608D+03, .641167D+03, .498711D+03, - + .388594D+03, .303442D+03, .237528D+03, .186479D+03, - + .146386D+03, .115759D+03, .919307D+02, .733643D+02, - + .588606D+02, .475054D+02, .386087D+02, .315785D+02, - + .260147D+02, .215917D+02, .180537D+02, .152066D+02 / - DATA (UPDI(I),I=9049,9100) / - + .128966D+02, .110110D+02, .945510D+01, .816086D+01, - + .707400D+01, .615344D+01, .536698D+01, .469247D+01, - + .410414D+01, .359450D+01, .314539D+01, .275220D+01, - + .240569D+01, .209982D+01, .182956D+01, .159069D+01, - + .137963D+01, .119331D+01, .102906D+01, .884504D+00, - + .757566D+00, .646355D+00, .549202D+00, .464543D+00, - + .391347D+00, .327603D+00, .272675D+00, .225536D+00, - + .185270D+00, .151047D+00, .122125D+00, .978328D-01, - + .775727D-01, .608009D-01, .470217D-01, .359173D-01, - + .269380D-01, .198266D-01, .142787D-01, .100249D-01, - + .683089D-02, .449013D-02, .282838D-02, .168379D-02, - + .938069D-03, .477998D-03, .215438D-03, .812800D-04, - + .231745D-04, .398443D-05, .203913D-06, .000000D+00 / - DATA (UPDI(I),I=9101,9152) / - + .177373D+06, .138066D+06, .106137D+06, .815846D+05, - + .627127D+05, .482027D+05, .370514D+05, .284786D+05, - + .218910D+05, .168273D+05, .129366D+05, .994611D+04, - + .764854D+04, .588265D+04, .452593D+04, .348313D+04, - + .268190D+04, .206596D+04, .159261D+04, .122863D+04, - + .948807D+03, .733531D+03, .567925D+03, .440415D+03, - + .342225D+03, .266532D+03, .208172D+03, .162534D+03, - + .127829D+03, .100948D+03, .801021D+02, .638926D+02, - + .512632D+02, .414145D+02, .336705D+02, .275707D+02, - + .227458D+02, .189046D+02, .158289D+02, .133453D+02, - + .113283D+02, .967213D+01, .830161D+01, .715655D+01, - + .619194D+01, .537221D+01, .467309D+01, .406662D+01, - + .354427D+01, .308651D+01, .268803D+01, .233880D+01 / - DATA (UPDI(I),I=9153,9204) / - + .203224D+01, .176284D+01, .152601D+01, .131786D+01, - + .113505D+01, .974716D+00, .834320D+00, .711640D+00, - + .604681D+00, .511701D+00, .431049D+00, .361648D+00, - + .301489D+00, .249893D+00, .205820D+00, .168351D+00, - + .136656D+00, .109999D+00, .877175D-01, .692270D-01, - + .540005D-01, .415541D-01, .315780D-01, .235563D-01, - + .172399D-01, .123424D-01, .861115D-02, .582868D-02, - + .380381D-02, .237772D-02, .140354D-02, .774609D-03, - + .390232D-03, .173657D-03, .645654D-04, .181005D-04, - + .306326D-05, .158991D-06, .000000D+00, .218980D+06, - + .169998D+06, .130281D+06, .998275D+05, .764901D+05, - + .585999D+05, .448934D+05, .343887D+05, .263425D+05, - + .201773D+05, .154561D+05, .118393D+05, .907016D+04 / - DATA (UPDI(I),I=9205,9256) / - + .694914D+04, .532543D+04, .408187D+04, .312996D+04, - + .240091D+04, .184282D+04, .141533D+04, .108802D+04, - + .837223D+03, .645106D+03, .497804D+03, .384869D+03, - + .298191D+03, .231671D+03, .179887D+03, .140694D+03, - + .110478D+03, .871614D+02, .691172D+02, .551279D+02, - + .442721D+02, .357791D+02, .291222D+02, .238831D+02, - + .197325D+02, .164258D+02, .137688D+02, .116217D+02, - + .986762D+01, .842339D+01, .722285D+01, .621681D+01, - + .536632D+01, .464485D+01, .402230D+01, .348905D+01, - + .302424D+01, .262180D+01, .227098D+01, .196467D+01, - + .169688D+01, .146269D+01, .125790D+01, .107893D+01, - + .922742D+00, .786632D+00, .668265D+00, .565551D+00, - + .476682D+00, .399940D+00, .334207D+00, .277484D+00 / - DATA (UPDI(I),I=9257,9308) / - + .229058D+00, .187878D+00, .153032D+00, .123690D+00, - + .991294D-01, .786962D-01, .618225D-01, .479985D-01, - + .367545D-01, .277899D-01, .206209D-01, .150080D-01, - + .106822D-01, .740692D-02, .498088D-02, .322760D-02, - + .200235D-02, .117215D-02, .641048D-03, .319668D-03, - + .140637D-03, .515934D-04, .142471D-04, .238076D-05, - + .125422D-06, .000000D+00, .161592D+06, .209202D+06, - + .159801D+06, .122039D+06, .931933D+05, .711505D+05, - + .543178D+05, .414595D+05, .316439D+05, .241484D+05, - + .184285D+05, .140620D+05, .107309D+05, .818870D+04, - + .624986D+04, .477053D+04, .364252D+04, .278196D+04, - + .212584D+04, .162529D+04, .124364D+04, .952425D+03, - + .730310D+03, .560746D+03, .431325D+03, .332440D+03 / - DATA (UPDI(I),I=9309,9360) / - + .256909D+03, .198384D+03, .154302D+03, .120479D+03, - + .945067D+02, .745066D+02, .590784D+02, .471655D+02, - + .378926D+02, .306607D+02, .249979D+02, .205338D+02, - + .169952D+02, .141658D+02, .118910D+02, .100416D+02, - + .852651D+01, .727339D+01, .622864D+01, .534990D+01, - + .460833D+01, .397172D+01, .342928D+01, .295892D+01, - + .255379D+01, .220244D+01, .189722D+01, .163174D+01, - + .140071D+01, .119968D+01, .102484D+01, .872973D+00, - + .741251D+00, .627231D+00, .528739D+00, .443914D+00, - + .370982D+00, .308791D+00, .255361D+00, .209949D+00, - + .171505D+00, .139119D+00, .111973D+00, .893539D-01, - + .706236D-01, .552304D-01, .426822D-01, .325258D-01, - + .244705D-01, .180632D-01, .130748D-01, .925277D-02 / - DATA (UPDI(I),I=9361,9412) / - + .637686D-02, .426061D-02, .274166D-02, .168825D-02, - + .980201D-03, .531282D-03, .262284D-03, .114099D-03, - + .413214D-04, .112484D-04, .185747D-05, .993310D-07, - + .000000D+00, .355046D+06, .273802D+06, .208222D+06, - + .158308D+06, .120340D+06, .914525D+05, .694890D+05, - + .527867D+05, .400937D+05, .304460D+05, .231176D+05, - + .175500D+05, .133229D+05, .101129D+05, .767671D+04, - + .582740D+04, .442447D+04, .335981D+04, .255235D+04, - + .193971D+04, .147515D+04, .112267D+04, .855343D+03, - + .652459D+03, .498513D+03, .381599D+03, .292846D+03, - + .224504D+03, .173351D+03, .134356D+03, .104604D+03, - + .818443D+02, .644016D+02, .510231D+02, .406779D+02, - + .326637D+02, .264295D+02, .215475D+02, .177029D+02 / - DATA (UPDI(I),I=9413,9464) / - + .146490D+02, .122094D+02, .102390D+02, .863519D+01, - + .731729D+01, .622566D+01, .531350D+01, .454876D+01, - + .389659D+01, .334456D+01, .286905D+01, .246216D+01, - + .211159D+01, .180900D+01, .154749D+01, .132134D+01, - + .112578D+01, .956733D+00, .810784D+00, .684945D+00, - + .576657D+00, .483661D+00, .404031D+00, .335949D+00, - + .278223D+00, .228907D+00, .187230D+00, .152148D+00, - + .122765D+00, .982774D-01, .779934D-01, .612965D-01, - + .476586D-01, .366119D-01, .277270D-01, .207269D-01, - + .151973D-01, .109231D-01, .767292D-02, .524663D-02, - + .347624D-02, .221675D-02, .135179D-02, .776442D-03, - + .415867D-03, .202562D-03, .867718D-04, .308729D-04, - + .822865D-05, .132995D-05, .720324D-07, .000000D+00 / - DATA (UPDI(I),I=9465,9516) / - + .463077D+06, .355742D+06, .269332D+06, .203845D+06, - + .154245D+06, .116674D+06, .882348D+05, .667056D+05, - + .504190D+05, .380973D+05, .287818D+05, .217384D+05, - + .164166D+05, .123952D+05, .935851D+04, .706508D+04, - + .533416D+04, .402752D+04, .304179D+04, .229796D+04, - + .173700D+04, .131378D+04, .994625D+03, .753808D+03, - + .572152D+03, .435018D+03, .331553D+03, .252377D+03, - + .193487D+03, .148879D+03, .115063D+03, .893622D+02, - + .697932D+02, .548829D+02, .434285D+02, .346135D+02, - + .278010D+02, .225010D+02, .183539D+02, .150810D+02, - + .124830D+02, .103979D+02, .871133D+01, .733421D+01, - + .620068D+01, .525950D+01, .447542D+01, .381100D+01, - + .325218D+01, .277388D+01, .236719D+01, .201900D+01 / - DATA (UPDI(I),I=9517,9568) / - + .172034D+01, .146383D+01, .124334D+01, .105383D+01, - + .890985D+00, .751221D+00, .631415D+00, .528912D+00, - + .441388D+00, .366870D+00, .303510D+00, .250089D+00, - + .204707D+00, .166570D+00, .134650D+00, .108067D+00, - + .860421D-01, .679049D-01, .530641D-01, .410167D-01, - + .313205D-01, .235713D-01, .175068D-01, .127494D-01, - + .909866D-02, .634374D-02, .430355D-02, .282750D-02, - + .178677D-02, .107905D-02, .613214D-03, .324634D-03, - + .156084D-03, .658980D-04, .230540D-04, .603299D-05, - + .960941D-06, .530437D-07, .000000D+00, .598455D+06, - + .458001D+06, .345221D+06, .260114D+06, .195931D+06, - + .147524D+06, .111045D+06, .835522D+05, .628487D+05, - + .472574D+05, .355249D+05, .266960D+05, .200572D+05 / - DATA (UPDI(I),I=9569,9620) / - + .150650D+05, .113139D+05, .849512D+04, .637856D+04, - + .478908D+04, .359630D+04, .270104D+04, .202955D+04, - + .152574D+04, .114794D+04, .864505D+03, .651940D+03, - + .492416D+03, .372785D+03, .281798D+03, .214543D+03, - + .163919D+03, .125782D+03, .969842D+02, .751967D+02, - + .587038D+02, .461148D+02, .364896D+02, .290983D+02, - + .233849D+02, .189424D+02, .154584D+02, .127098D+02, - + .105175D+02, .875497D+01, .732465D+01, .615449D+01, - + .518882D+01, .438926D+01, .371588D+01, .315301D+01, - + .267421D+01, .226959D+01, .192529D+01, .163174D+01, - + .138114D+01, .116702D+01, .984056D+00, .827755D+00, - + .694382D+00, .580705D+00, .483999D+00, .401888D+00, - + .332371D+00, .273586D+00, .224297D+00, .182657D+00 / - DATA (UPDI(I),I=9621,9672) / - + .147860D+00, .118899D+00, .949183D-01, .751630D-01, - + .589899D-01, .458350D-01, .352217D-01, .267338D-01, - + .199933D-01, .147534D-01, .106714D-01, .756155D-02, - + .523266D-02, .352175D-02, .229441D-02, .143679D-02, - + .859288D-03, .483142D-03, .252811D-03, .119988D-03, - + .499329D-04, .171886D-04, .442074D-05, .694850D-06, - + .391365D-07, .000000D+00, .765796D+06, .583894D+06, - + .438202D+06, .328723D+06, .246506D+06, .184766D+06, - + .138440D+06, .103681D+06, .776213D+05, .580856D+05, - + .434522D+05, .324917D+05, .242889D+05, .181502D+05, - + .135600D+05, .101278D+05, .756348D+04, .564759D+04, - + .421728D+04, .314939D+04, .235270D+04, .175819D+04, - + .131483D+04, .984086D+03, .737451D+03, .553425D+03 / - DATA (UPDI(I),I=9673,9724) / - + .416237D+03, .312523D+03, .236328D+03, .179327D+03, - + .136652D+03, .104629D+03, .805529D+02, .624434D+02, - + .487073D+02, .382716D+02, .303079D+02, .241906D+02, - + .194631D+02, .157783D+02, .128887D+02, .105977D+02, - + .876660D+01, .728952D+01, .608819D+01, .510266D+01, - + .429148D+01, .361237D+01, .304808D+01, .257095D+01, - + .217013D+01, .183109D+01, .154374D+01, .129986D+01, - + .109268D+01, .916683D+00, .767185D+00, .640339D+00, - + .532833D+00, .441885D+00, .365093D+00, .300437D+00, - + .246059D+00, .200714D+00, .162618D+00, .130959D+00, - + .104757D+00, .831833D-01, .655127D-01, .511304D-01, - + .395017D-01, .301771D-01, .227669D-01, .169196D-01, - + .124044D-01, .891131D-02, .626943D-02, .430600D-02 / - DATA (UPDI(I),I=9725,9776) / - + .287513D-02, .185735D-02, .115257D-02, .682618D-03, - + .379733D-03, .196398D-03, .920182D-04, .377473D-04, - + .127879D-04, .323341D-05, .501702D-06, .288276D-07, - + .000000D+00, .970035D+06, .736938D+06, .550706D+06, - + .411341D+06, .307115D+06, .229177D+06, .170945D+06, - + .127442D+06, .949696D+05, .707345D+05, .526627D+05, - + .391885D+05, .291511D+05, .216748D+05, .161110D+05, - + .119709D+05, .889292D+04, .660473D+04, .490512D+04, - + .364271D+04, .270581D+04, .201040D+04, .149460D+04, - + .111191D+04, .828142D+03, .617601D+03, .461555D+03, - + .344280D+03, .258635D+03, .194949D+03, .147558D+03, - + .112213D+03, .858034D+02, .660610D+02, .511781D+02, - + .399412D+02, .314180D+02, .249108D+02, .199119D+02 / - DATA (UPDI(I),I=9777,9828) / - + .160387D+02, .130190D+02, .106387D+02, .874714D+01, - + .722999D+01, .600309D+01, .500233D+01, .418334D+01, - + .350162D+01, .293843D+01, .246500D+01, .206958D+01, - + .173705D+01, .145683D+01, .122036D+01, .102063D+01, - + .851901D+00, .709387D+00, .589141D+00, .487791D+00, - + .402523D+00, .330922D+00, .270964D+00, .220809D+00, - + .179212D+00, .144456D+00, .115733D+00, .920923D-01, - + .727368D-01, .569738D-01, .442187D-01, .339668D-01, - + .257965D-01, .193444D-01, .142855D-01, .104052D-01, - + .742414D-02, .518586D-02, .353503D-02, .234160D-02, - + .149991D-02, .922314D-03, .540939D-03, .297722D-03, - + .152199D-03, .703972D-04, .284684D-04, .949313D-05, - + .236056D-05, .361687D-06, .211973D-07, .000000D+00 / - DATA (UPDI(I),I=9829,9880) / - + .121635D+07, .920798D+06, .685240D+06, .509674D+06, - + .378910D+06, .281529D+06, .209074D+06, .155175D+06, - + .115115D+06, .853463D+05, .632459D+05, .468419D+05, - + .346771D+05, .256579D+05, .189772D+05, .140295D+05, - + .103688D+05, .766069D+04, .565913D+04, .417992D+04, - + .308774D+04, .228128D+04, .168626D+04, .124718D+04, - + .923362D+03, .684431D+03, .508346D+03, .376772D+03, - + .281243D+03, .210626D+03, .158385D+03, .119658D+03, - + .908921D+02, .695185D+02, .535021D+02, .414820D+02, - + .324187D+02, .255399D+02, .202861D+02, .162388D+02, - + .131010D+02, .106415D+02, .869783D+01, .714750D+01, - + .590066D+01, .488924D+01, .406612D+01, .338478D+01, - + .282507D+01, .235721D+01, .196865D+01, .164373D+01 / - DATA (UPDI(I),I=9881,9932) / - + .137146D+01, .114298D+01, .951076D+00, .789863D+00, - + .654444D+00, .540810D+00, .445556D+00, .365852D+00, - + .299285D+00, .243843D+00, .197713D+00, .159662D+00, - + .128041D+00, .102051D+00, .807799D-01, .634614D-01, - + .494378D-01, .381558D-01, .291419D-01, .220019D-01, - + .163989D-01, .120338D-01, .870809D-02, .617072D-02, - + .427946D-02, .289519D-02, .190250D-02, .120832D-02, - + .736260D-03, .427613D-03, .232849D-03, .117657D-03, - + .537260D-04, .214201D-04, .703199D-05, .172011D-05, - + .260346D-06, .155598D-07, .000000D+00, .151008D+07, - + .113922D+07, .844340D+06, .625429D+06, .463028D+06, - + .342576D+06, .253321D+06, .187198D+06, .138259D+06, - + .102048D+06, .752796D+05, .554977D+05, .408928D+05 / - DATA (UPDI(I),I=9933,9984) / - + .301132D+05, .221648D+05, .163057D+05, .119908D+05, - + .881406D+04, .647747D+04, .475916D+04, .349676D+04, - + .256935D+04, .188863D+04, .138893D+04, .102236D+04, - + .753346D+03, .556183D+03, .409687D+03, .303928D+03, - + .226196D+03, .169021D+03, .126884D+03, .957664D+02, - + .727812D+02, .556570D+02, .428805D+02, .333020D+02, - + .260738D+02, .205840D+02, .163784D+02, .131356D+02, - + .106075D+02, .862024D+01, .704366D+01, .578245D+01, - + .476484D+01, .394114D+01, .326302D+01, .270898D+01, - + .224840D+01, .186800D+01, .155166D+01, .128803D+01, - + .106802D+01, .884232D+00, .730683D+00, .602404D+00, - + .495343D+00, .406082D+00, .331794D+00, .270083D+00, - + .218961D+00, .176650D+00, .141936D+00, .113245D+00 / - DATA (UPDI(I),I=9985,10036) / - + .897917D-01, .707025D-01, .552476D-01, .428042D-01, - + .328514D-01, .249466D-01, .187234D-01, .138705D-01, - + .101140D-01, .727099D-02, .511703D-02, .352322D-02, - + .236556D-02, .154206D-02, .971081D-03, .586316D-03, - + .337206D-03, .181667D-03, .907331D-04, .409049D-04, - + .160796D-04, .519782D-05, .125112D-05, .187118D-06, - + .114021D-07, .000000D+00, .185666D+07, .139598D+07, - + .103052D+07, .760273D+06, .560565D+06, .413030D+06, - + .304141D+06, .223801D+06, .164582D+06, .120947D+06, - + .888261D+05, .651904D+05, .478156D+05, .350480D+05, - + .256756D+05, .187980D+05, .137564D+05, .100618D+05, - + .735717D+04, .537780D+04, .393067D+04, .287283D+04, - + .210027D+04, .153606D+04, .112432D+04, .823733D+03 / - DATA (UPDI(I),I=10037,10088) / - + .604618D+03, .442705D+03, .326462D+03, .241501D+03, - + .179357D+03, .133818D+03, .100378D+03, .758183D+02, - + .576239D+02, .441256D+02, .340621D+02, .265101D+02, - + .208052D+02, .164583D+02, .131241D+02, .105383D+02, - + .851620D+01, .692025D+01, .565012D+01, .463062D+01, - + .380970D+01, .313742D+01, .259108D+01, .213934D+01, - + .176824D+01, .146129D+01, .120688D+01, .995703D+00, - + .820246D+00, .674444D+00, .553289D+00, .452714D+00, - + .369308D+00, .300261D+00, .243210D+00, .196197D+00, - + .157494D+00, .125909D+00, .999442D-01, .788355D-01, - + .617491D-01, .479929D-01, .369801D-01, .282225D-01, - + .213084D-01, .158982D-01, .117058D-01, .848124D-02, - + .605727D-02, .423353D-02, .289391D-02, .192831D-02 / - DATA (UPDI(I),I=10089,10140) / - + .124696D-02, .778566D-03, .465793D-03, .265275D-03, - + .141395D-03, .698034D-04, .310704D-04, .120434D-04, - + .383406D-05, .908359D-06, .134289D-06, .834141D-08, - + .000000D+00, .226144D+07, .169477D+07, .124622D+07, - + .915798D+06, .672549D+06, .493544D+06, .361943D+06, - + .265231D+06, .194231D+06, .142127D+06, .103931D+06, - + .759415D+05, .554533D+05, .404627D+05, .295062D+05, - + .215017D+05, .156603D+05, .113992D+05, .829416D+04, - + .603245D+04, .438676D+04, .318960D+04, .231959D+04, - + .168737D+04, .122835D+04, .894947D+03, .653191D+03, - + .475503D+03, .348621D+03, .256388D+03, .189292D+03, - + .140394D+03, .104685D+03, .786034D+02, .593872D+02, - + .452089D+02, .346953D+02, .268475D+02, .209503D+02 / - DATA (UPDI(I),I=10141,10192) / - + .164800D+02, .130685D+02, .104361D+02, .838772D+01, - + .677916D+01, .550536D+01, .448806D+01, .367307D+01, - + .300906D+01, .247224D+01, .203071D+01, .166990D+01, - + .137305D+01, .112830D+01, .926233D+00, .759231D+00, - + .621190D+00, .507092D+00, .412877D+00, .335155D+00, - + .271155D+00, .218551D+00, .175433D+00, .140121D+00, - + .111457D+00, .880204D-01, .690701D-01, .538153D-01, - + .416021D-01, .318801D-01, .241937D-01, .181613D-01, - + .134698D-01, .985711D-02, .709631D-02, .503486D-02, - + .349466D-02, .237160D-02, .156827D-02, .100600D-02, - + .622759D-03, .369177D-03, .208196D-03, .109792D-03, - + .535762D-04, .235463D-04, .900053D-05, .282241D-05, - + .658357D-06, .962403D-07, .609245D-08, .000000D+00 / -C----------------------------------------------------------------------- -C - Dr = DrI - Fl = FlI - Al = AlI - DO I=1,6 - Amass(I) = AmassI(I) - ENDDO - Iorder = Nint(Dr) - Nfl = Nint(Fl) - Alambda = Al -C - NX = NxI - NT = NTI - NfMx = NfMxI -C - QINI = QINII - QMAX = QMAXI - DO I=0,NT - QL(I) = QLI(I) - ENDDO -C - XMIN = XMINI - DO I=0,NX - XV(I) = XVI(I) - ENDDO -C - Do 11 Iq = 0, NT - QL(Iq) = Log (QL(Iq) /Al) - 11 Continue -C -C Since quark = anti-quark for nfl>2 at this stage, -C we Read out only the non-redundent data points -C No of flavors = NfMx (sea) + 1 (gluon) + 2 (valence) - - Nblk = (NX+1) * (NT+1) - Npts = Nblk * (NfMx+3) - DO I=1,Npts - UPD(I) = UPDI(I) - ENDDO -C - Return -C **************************** - End diff --git a/PDF/spdf/ctq4RA2.F b/PDF/spdf/ctq4RA2.F deleted file mode 100644 index f2a7282f23f..00000000000 --- a/PDF/spdf/ctq4RA2.F +++ /dev/null @@ -1,2838 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" - Subroutine Ctq4RA2 (Iset) -#include "pdf/impdp.inc" - PARAMETER (MXX = 105, MXQ = 25, MXF = 6) - PARAMETER (MXPQX = (MXF *2 +2) * MXQ * MXX) - PARAMETER (NxI = 90, NtI = 13, NfMxI = 5) - COMMON / W5051IC / Al, XV(0:MXX), QL(0:MXQ), UPD(MXPQX) - COMMON / W5051ID / Nx, Nt, NfMx - COMMON / W5051IE / Qini, Qmax, Xmin - DIMENSION Amass(6) - PARAMETER (NSETS=10) - DIMENSION - > XVI(0:MXX),QLI(0:MXQ),UPDI(MXPQX), - > AmassI(6) -C -C----------------------------------------------------------------------- -C Parton Distribution Table : CTEQ4A2 -C PARAMETER (ISET=5) - DATA DrI, FlI, AlI / 2., 5., .1690 / - DATA (AmassI(I),I=1,6) / .000, .000, .200, - + 1.600, 5.000, 180.000 / -C DATA NXI, NTI, NfMxI / 90, 13, 5 / - DATA QINII, QMAXI, (QLI(I), I =0, NTI) / - + .160000D+01, .100000D+05, - + .160000D+01, .203942D+01, .266851D+01, .359449D+01, .500000D+01, - + .802532D+01, .137613D+02, .254432D+02, .512588D+02, .113883D+03, - + .282862D+03, .797782D+03, .260074D+04, .100000D+05 / - DATA XMINI, (XVI(I), I =0, NXI) / - + .100000D-04, - + .000000D+00, .999983D-05, .124433D-04, .154836D-04, .192668D-04, - + .239740D-04, .298310D-04, .371184D-04, .461852D-04, .574656D-04, - + .714994D-04, .889575D-04, .110674D-03, .137686D-03, .171280D-03, - + .213055D-03, .264997D-03, .329564D-03, .409809D-03, .509508D-03, - + .633332D-03, .787053D-03, .977784D-03, .121428D-02, .150728D-02, - + .186993D-02, .231825D-02, .288037D-02, .356397D-02, .440443D-02, - + .543508D-02, .669508D-02, .822984D-02, .100851D-01, .123281D-01, - + .150167D-01, .182174D-01, .219985D-01, .264278D-01, .315720D-01, - + .374800D-01, .442088D-01, .517931D-01, .602576D-01, .696136D-01, - + .798586D-01, .909356D-01, .102935D+00, .115681D+00, .129293D+00, - + .143599D+00, .158606D+00, .174271D+00, .190550D+00, .207405D+00, - + .224796D+00, .242685D+00, .261038D+00, .279820D+00, .299001D+00, - + .318550D+00, .338442D+00, .358653D+00, .379067D+00, .399881D+00, - + .420953D+00, .442266D+00, .463806D+00, .485559D+00, .507513D+00, - + .529656D+00, .551978D+00, .574483D+00, .597187D+00, .619860D+00, - + .642828D+00, .665921D+00, .689135D+00, .712467D+00, .735911D+00, - + .759464D+00, .783080D+00, .806909D+00, .830741D+00, .854673D+00, - + .878696D+00, .902804D+00, .926992D+00, .951257D+00, .975603D+00, - + .100000D+01 / -C Parton Distribution Table: - DATA (UPDI(I),I=1,52) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=53,104) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=105,156) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=157,208) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=209,260) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=261,312) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=313,364) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=365,416) / - + .240472D+06, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=417,468) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .103279D+06, - + .785852D+05, .588257D+05, .439999D+05, .328913D+05, - + .245652D+05, .183349D+05, .136716D+05, .101872D+05, - + .758300D+04, .564018D+04, .419047D+04, .311077D+04 / - DATA (UPDI(I),I=469,520) / - + .230649D+04, .170859D+04, .126404D+04, .934221D+03, - + .689492D+03, .508317D+03, .374183D+03, .275123D+03, - + .201963D+03, .148067D+03, .108370D+03, .792042D+02, - + .577911D+02, .421217D+02, .305046D+02, .221642D+02, - + .160754D+02, .116478D+02, .842672D+01, .609181D+01, - + .440352D+01, .318085D+01, .229724D+01, .166105D+01, - + .120196D+01, .871802D+00, .633493D+00, .462176D+00, - + .338198D+00, .248575D+00, .183402D+00, .136023D+00, - + .101286D+00, .759004D-01, .569663D-01, .430572D-01, - + .325731D-01, .247616D-01, .188561D-01, .143988D-01, - + .110030D-01, .842071D-02, .643871D-02, .492180D-02, - + .375369D-02, .285909D-02, .216897D-02, .164051D-02, - + .123384D-02, .923191D-03, .686805D-03, .506088D-03 / - DATA (UPDI(I),I=521,572) / - + .368803D-03, .265761D-03, .188611D-03, .131666D-03, - + .897929D-04, .595959D-04, .379724D-04, .228716D-04, - + .125123D-04, .576448D-05, .144873D-05, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .232070D+06, .176164D+06, - + .131502D+06, .980842D+05, .731115D+05, .544467D+05, - + .405184D+05, .301235D+05, .223782D+05, .166068D+05, - + .123136D+05, .911986D+04, .674833D+04, .498736D+04, - + .368227D+04, .271508D+04, .199977D+04, .147080D+04, - + .108048D+04, .792506D+03, .580556D+03, .424585D+03, - + .310091D+03, .226073D+03, .164572D+03, .119591D+03 / - DATA (UPDI(I),I=573,624) / - + .868007D+02, .625907D+02, .452786D+02, .326946D+02, - + .235808D+02, .169804D+02, .122163D+02, .878761D+01, - + .631548D+01, .453769D+01, .326358D+01, .234888D+01, - + .169421D+01, .122420D+01, .887973D+00, .645988D+00, - + .471954D+00, .346122D+00, .255119D+00, .188788D+00, - + .140573D+00, .104836D+00, .787208D-01, .591644D-01, - + .446763D-01, .337964D-01, .256334D-01, .194568D-01, - + .147888D-01, .112317D-01, .852752D-02, .646066D-02, - + .488845D-02, .368509D-02, .277024D-02, .207178D-02, - + .154230D-02, .114249D-02, .839266D-03, .610814D-03, - + .440678D-03, .314264D-03, .221589D-03, .153855D-03, - + .105213D-03, .704550D-04, .460809D-04, .292215D-04, - + .179840D-04, .104881D-04, .572762D-05, .279523D-05 / - DATA (UPDI(I),I=625,676) / - + .110547D-05, .195293D-06, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .390898D+06, .296000D+06, .220317D+06, - + .163850D+06, .121771D+06, .904130D+05, .670795D+05, - + .497175D+05, .368190D+05, .272373D+05, .201311D+05, - + .148615D+05, .109606D+05, .807349D+04, .594055D+04, - + .436516D+04, .320386D+04, .234803D+04, .171866D+04, - + .125598D+04, .916628D+03, .667822D+03, .485839D+03, - + .352805D+03, .255792D+03, .185111D+03, .133788D+03, - + .960522D+02, .691783D+02, .497286D+02, .357008D+02, - + .255875D+02, .183194D+02, .131132D+02, .937631D+01, - + .670223D+01, .479469D+01, .343229D+01, .246193D+01 / - DATA (UPDI(I),I=677,728) / - + .176899D+01, .127574D+01, .922695D+00, .670099D+00, - + .488502D+00, .357859D+00, .263187D+00, .194742D+00, - + .144323D+00, .107674D+00, .804054D-01, .603188D-01, - + .453335D-01, .341562D-01, .257554D-01, .194449D-01, - + .146696D-01, .110629D-01, .832605D-02, .625770D-02, - + .468644D-02, .349997D-02, .260104D-02, .192437D-02, - + .141719D-02, .103537D-02, .749982D-03, .539009D-03, - + .383456D-03, .270208D-03, .188029D-03, .129359D-03, - + .876620D-04, .585090D-04, .383731D-04, .248848D-04, - + .157944D-04, .988499D-05, .608847D-05, .372338D-05, - + .226040D-05, .138598D-05, .856565D-06, .539050D-06, - + .339686D-06, .211140D-06, .123800D-06, .651677D-07, - + .279378D-07, .764683D-08, .507688D-09, .000000D+00 / - DATA (UPDI(I),I=729,780) / - + .584830D+06, .441723D+06, .327794D+06, .243045D+06, - + .180074D+06, .133289D+06, .985795D+05, .728333D+05, - + .537644D+05, .396438D+05, .292041D+05, .214878D+05, - + .157940D+05, .115939D+05, .850124D+04, .622480D+04, - + .455239D+04, .332425D+04, .242422D+04, .176498D+04, - + .128319D+04, .931267D+03, .674819D+03, .488074D+03, - + .352418D+03, .253971D+03, .182770D+03, .130642D+03, - + .936717D+02, .670320D+02, .478994D+02, .341688D+02, - + .243443D+02, .173402D+02, .123357D+02, .877213D+01, - + .624209D+01, .444441D+01, .317028D+01, .226526D+01, - + .162428D+01, .116799D+01, .843232D+00, .611070D+00, - + .444930D+00, .325230D+00, .239159D+00, .176140D+00, - + .130578D+00, .968913D-01, .722183D-01, .539299D-01 / - DATA (UPDI(I),I=781,832) / - + .403687D-01, .302428D-01, .226823D-01, .170001D-01, - + .127358D-01, .952261D-02, .710972D-02, .529004D-02, - + .392504D-02, .289850D-02, .213100D-02, .155987D-02, - + .113295D-02, .816304D-03, .583882D-03, .413792D-03, - + .290795D-03, .202174D-03, .139282D-03, .948409D-04, - + .639004D-04, .425921D-04, .282958D-04, .186173D-04, - + .122441D-04, .805765D-05, .534558D-05, .356908D-05, - + .241092D-05, .162950D-05, .109360D-05, .714635D-06, - + .445254D-06, .255043D-06, .128089D-06, .514140D-07, - + .131236D-07, .908238D-09, .000000D+00, .819256D+06, - + .617167D+06, .456574D+06, .337478D+06, .249252D+06, - + .183908D+06, .135580D+06, .998450D+05, .734612D+05, - + .539876D+05, .396366D+05, .290646D+05, .212893D+05 / - DATA (UPDI(I),I=833,884) / - + .155733D+05, .113786D+05, .830180D+04, .604922D+04, - + .440099D+04, .319740D+04, .231906D+04, .167949D+04, - + .121410D+04, .876254D+03, .631195D+03, .453876D+03, - + .325705D+03, .233384D+03, .166080D+03, .118549D+03, - + .844495D+02, .600642D+02, .426439D+02, .302348D+02, - + .214299D+02, .151676D+02, .107304D+02, .759508D+01, - + .537877D+01, .381568D+01, .271128D+01, .193303D+01, - + .138203D+01, .991910D+00, .714582D+00, .517174D+00, - + .375757D+00, .274623D+00, .201018D+00, .148089D+00, - + .109198D+00, .808752D-01, .600144D-01, .446358D-01, - + .332268D-01, .247591D-01, .184375D-01, .137232D-01, - + .101953D-01, .756268D-02, .559129D-02, .412207D-02, - + .302507D-02, .221032D-02, .160825D-02, .116130D-02 / - DATA (UPDI(I),I=885,936) / - + .832244D-03, .592371D-03, .418087D-03, .292876D-03, - + .203275D-03, .140050D-03, .956212D-04, .648212D-04, - + .436703D-04, .294674D-04, .198209D-04, .134059D-04, - + .912320D-05, .627301D-05, .433977D-05, .301873D-05, - + .208450D-05, .141275D-05, .923103D-06, .569095D-06, - + .319951D-06, .156362D-06, .605049D-07, .148353D-07, - + .104911D-08, .000000D+00, .109982D+07, .826315D+06, - + .609371D+06, .448988D+06, .330544D+06, .243099D+06, - + .178627D+06, .131111D+06, .961419D+05, .704170D+05, - + .515213D+05, .376487D+05, .274801D+05, .200307D+05, - + .145827D+05, .106008D+05, .769589D+04, .557809D+04, - + .403719D+04, .291691D+04, .210421D+04, .151511D+04, - + .108909D+04, .781301D+03, .559475D+03, .399778D+03 / - DATA (UPDI(I),I=937,988) / - + .285220D+03, .202064D+03, .143587D+03, .101821D+03, - + .720816D+02, .509337D+02, .359368D+02, .253462D+02, - + .178485D+02, .125622D+02, .884473D+01, .623035D+01, - + .439563D+01, .310613D+01, .220204D+01, .156539D+01, - + .111699D+01, .800000D+00, .575555D+00, .415677D+00, - + .301963D+00, .219689D+00, .160847D+00, .117874D+00, - + .867569D-01, .639799D-01, .472863D-01, .349796D-01, - + .258999D-01, .191657D-01, .141748D-01, .104648D-01, - + .771353D-02, .566737D-02, .415213D-02, .302866D-02, - + .219962D-02, .159115D-02, .114246D-02, .814483D-03, - + .576972D-03, .405589D-03, .283230D-03, .196231D-03, - + .135171D-03, .924836D-04, .630058D-04, .428092D-04, - + .292331D-04, .199817D-04, .137737D-04, .957156D-05 / - DATA (UPDI(I),I=989,1040) / - + .671452D-05, .472761D-05, .332779D-05, .231206D-05, - + .156527D-05, .101574D-05, .618111D-06, .341279D-06, - + .162822D-06, .610688D-07, .144755D-07, .104200D-08, - + .000000D+00, .143233D+07, .107322D+07, .788915D+06, - + .579403D+06, .425163D+06, .311658D+06, .228241D+06, - + .166966D+06, .122017D+06, .890624D+05, .649371D+05, - + .472858D+05, .343917D+05, .249788D+05, .181189D+05, - + .131231D+05, .949145D+04, .685362D+04, .494139D+04, - + .355639D+04, .255542D+04, .183267D+04, .131202D+04, - + .937364D+03, .668424D+03, .475591D+03, .337837D+03, - + .238273D+03, .168558D+03, .118984D+03, .838397D+02, - + .589621D+02, .413999D+02, .290561D+02, .203578D+02, - + .142550D+02, .998403D+01, .699559D+01, .490877D+01 / - DATA (UPDI(I),I=1041,1092) / - + .344973D+01, .243195D+01, .171907D+01, .121961D+01, - + .868448D+00, .621132D+00, .445945D+00, .322021D+00, - + .232878D+00, .169468D+00, .123437D+00, .902949D-01, - + .661831D-01, .486129D-01, .357400D-01, .262985D-01, - + .193407D-01, .142157D-01, .104307D-01, .764096D-02, - + .558004D-02, .406341D-02, .294650D-02, .212748D-02, - + .153033D-02, .109284D-02, .775237D-03, .546703D-03, - + .382875D-03, .266601D-03, .184426D-03, .127035D-03, - + .870964D-04, .596085D-04, .408040D-04, .281437D-04, - + .194830D-04, .136193D-04, .959968D-05, .681709D-05, - + .484450D-05, .342496D-05, .237930D-05, .160216D-05, - + .102979D-05, .617936D-06, .335096D-06, .156245D-06, - + .569242D-07, .130832D-07, .957251D-09, .000000D+00 / - DATA (UPDI(I),I=1093,1144) / - + .182261D+07, .136194D+07, .997898D+06, .730497D+06, - + .534266D+06, .390333D+06, .284898D+06, .207705D+06, - + .151269D+06, .110032D+06, .799453D+05, .580090D+05, - + .420398D+05, .304234D+05, .219874D+05, .158661D+05, - + .114324D+05, .822387D+04, .590654D+04, .423450D+04, - + .303066D+04, .216482D+04, .154351D+04, .109821D+04, - + .779846D+03, .552502D+03, .390770D+03, .274378D+03, - + .193230D+03, .135781D+03, .952311D+02, .666582D+02, - + .465781D+02, .325308D+02, .226782D+02, .157991D+02, - + .110080D+02, .767246D+01, .535481D+01, .374275D+01, - + .262391D+01, .184440D+01, .130109D+01, .921179D+00, - + .655027D+00, .467538D+00, .335630D+00, .241284D+00, - + .174537D+00, .126369D+00, .918826D-01, .669431D-01 / - DATA (UPDI(I),I=1145,1196) / - + .488736D-01, .357151D-01, .261203D-01, .190937D-01, - + .139493D-01, .101740D-01, .740815D-02, .537813D-02, - + .389339D-02, .280715D-02, .201547D-02, .144197D-02, - + .102443D-02, .723311D-03, .507955D-03, .354532D-03, - + .246250D-03, .170148D-03, .117234D-03, .805593D-04, - + .553840D-04, .381731D-04, .265598D-04, .185788D-04, - + .131266D-04, .934451D-05, .668569D-05, .477231D-05, - + .337465D-05, .233626D-05, .156123D-05, .992559D-06, - + .586969D-06, .312618D-06, .142530D-06, .505028D-07, - + .112767D-07, .837987D-09, .000000D+00, .227643D+07, - + .169640D+07, .123890D+07, .903943D+06, .658926D+06, - + .479799D+06, .349014D+06, .253582D+06, .184043D+06, - + .133407D+06, .965877D+05, .698362D+05, .504294D+05 / - DATA (UPDI(I),I=1197,1248) / - + .363625D+05, .261832D+05, .188237D+05, .135125D+05, - + .968332D+04, .692797D+04, .494746D+04, .352694D+04, - + .250924D+04, .178183D+04, .126256D+04, .892806D+03, - + .629837D+03, .443541D+03, .310048D+03, .217378D+03, - + .152060D+03, .106156D+03, .739572D+02, .514310D+02, - + .357461D+02, .247959D+02, .171874D+02, .119135D+02, - + .826034D+01, .573445D+01, .398655D+01, .277953D+01, - + .194299D+01, .136295D+01, .959531D+00, .678396D+00, - + .481432D+00, .343603D+00, .245576D+00, .176598D+00, - + .127108D+00, .918736D-01, .665424D-01, .482928D-01, - + .350820D-01, .255047D-01, .185336D-01, .134601D-01, - + .975989D-02, .706513D-02, .509973D-02, .367089D-02, - + .263217D-02, .187966D-02, .133790D-02, .945871D-03 / - DATA (UPDI(I),I=1249,1300) / - + .664924D-03, .465168D-03, .323692D-03, .224363D-03, - + .154908D-03, .106807D-03, .735802D-04, .508152D-04, - + .352492D-04, .247149D-04, .174376D-04, .124211D-04, - + .890261D-05, .639640D-05, .457164D-05, .322496D-05, - + .222031D-05, .147047D-05, .923874D-06, .538245D-06, - + .281536D-06, .125551D-06, .433033D-07, .940789D-08, - + .709709D-09, .000000D+00, .755795D+05, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=1301,1352) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=1353,1404) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .333373D+05, .257325D+05, .195868D+05, - + .149004D+05, .113325D+05, .861336D+04, .654477D+04, - + .496948D+04, .377211D+04, .286105D+04, .216921D+04, - + .164329D+04, .124434D+04, .941387D+03, .711846D+03, - + .537732D+03, .405985D+03, .306177D+03, .230765D+03, - + .173718D+03, .130689D+03, .981920D+02, .737219D+02, - + .552747D+02, .414094D+02, .309825D+02, .231695D+02, - + .172296D+02, .128584D+02, .958258D+01, .713957D+01, - + .531334D+01, .395439D+01, .294360D+01, .219160D+01, - + .163193D+01, .121764D+01, .909421D+00, .681379D+00 / - DATA (UPDI(I),I=1405,1456) / - + .511537D+00, .385856D+00, .291944D+00, .222023D+00, - + .169484D+00, .130139D+00, .100310D+00, .778448D-01, - + .605018D-01, .473712D-01, .371183D-01, .292343D-01, - + .230560D-01, .182407D-01, .144366D-01, .114472D-01, - + .906556D-02, .717924D-02, .567099D-02, .447581D-02, - + .351782D-02, .275816D-02, .215085D-02, .167000D-02, - + .129028D-02, .988912D-03, .750685D-03, .564870D-03, - + .420045D-03, .308807D-03, .223414D-03, .159084D-03, - + .110716D-03, .752304D-04, .491862D-04, .309941D-04, - + .181812D-04, .961151D-05, .406524D-05, .709335D-06, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=1457,1508) / - + .751007D+05, .578440D+05, .439194D+05, .333270D+05, - + .252813D+05, .191651D+05, .145233D+05, .109978D+05, - + .832471D+04, .629637D+04, .476006D+04, .359551D+04, - + .271448D+04, .204742D+04, .154340D+04, .116226D+04, - + .874687D+03, .657525D+03, .493931D+03, .370586D+03, - + .277835D+03, .208026D+03, .155627D+03, .116266D+03, - + .867793D+02, .646850D+02, .481864D+02, .356915D+02, - + .265289D+02, .196903D+02, .146085D+02, .108257D+02, - + .802125D+01, .594448D+01, .440531D+01, .326505D+01, - + .242431D+01, .180183D+01, .134315D+01, .100324D+01, - + .752746D+00, .566535D+00, .428486D+00, .325313D+00, - + .248381D+00, .190379D+00, .146886D+00, .113511D+00, - + .883491D-01, .688233D-01, .538801D-01, .422440D-01 / - DATA (UPDI(I),I=1509,1560) / - + .332200D-01, .261369D-01, .205995D-01, .162174D-01, - + .127666D-01, .100266D-01, .786759D-02, .614951D-02, - + .479547D-02, .372059D-02, .287510D-02, .221181D-02, - + .168898D-02, .127870D-02, .960838D-03, .714787D-03, - + .526949D-03, .383624D-03, .276155D-03, .195749D-03, - + .136743D-03, .934852D-04, .630426D-04, .413246D-04, - + .264470D-04, .163596D-04, .977556D-05, .556076D-05, - + .299859D-05, .149281D-05, .669183D-06, .248165D-06, - + .620127D-07, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .126626D+06, - + .973160D+05, .737016D+05, .557830D+05, .422049D+05, - + .319096D+05, .241156D+05, .182115D+05, .137465D+05, - + .103677D+05, .781533D+04, .588610D+04, .443052D+04 / - DATA (UPDI(I),I=1561,1612) / - + .333169D+04, .250376D+04, .187960D+04, .141003D+04, - + .105656D+04, .791068D+03, .591553D+03, .441987D+03, - + .329797D+03, .245856D+03, .183020D+03, .136105D+03, - + .101076D+03, .750086D+02, .553417D+02, .409713D+02, - + .302881D+02, .223780D+02, .165139D+02, .121828D+02, - + .898926D+01, .663142D+01, .489251D+01, .361541D+01, - + .267429D+01, .198362D+01, .147429D+01, .110050D+01, - + .824007D+00, .619909D+00, .468162D+00, .355498D+00, - + .271007D+00, .207929D+00, .159799D+00, .123669D+00, - + .957957D-01, .745641D-01, .581308D-01, .454482D-01, - + .355540D-01, .278576D-01, .218057D-01, .170658D-01, - + .133269D-01, .103967D-01, .808068D-02, .626568D-02, - + .483459D-02, .371562D-02, .284330D-02, .216001D-02 / - DATA (UPDI(I),I=1613,1664) / - + .162755D-02, .121763D-02, .902464D-03, .663298D-03, - + .482012D-03, .346829D-03, .246302D-03, .172825D-03, - + .119236D-03, .815500D-04, .546812D-04, .361968D-04, - + .235415D-04, .151274D-04, .955847D-05, .599278D-05, - + .370384D-05, .226687D-05, .135820D-05, .791495D-06, - + .433846D-06, .215509D-06, .892032D-07, .244622D-07, - + .157836D-08, .000000D+00, .201809D+06, .145276D+06, - + .109738D+06, .828412D+05, .625097D+05, .471341D+05, - + .355236D+05, .267523D+05, .201361D+05, .151435D+05, - + .113821D+05, .854726D+04, .641430D+04, .480887D+04, - + .360270D+04, .269616D+04, .201615D+04, .150587D+04, - + .112378D+04, .837566D+03, .623677D+03, .463774D+03, - + .344520D+03, .255559D+03, .189359D+03, .140107D+03 / - DATA (UPDI(I),I=1665,1716) / - + .103581D+03, .761262D+02, .561371D+02, .413350D+02, - + .304147D+02, .223518D+02, .164191D+02, .120629D+02, - + .885903D+01, .650656D+01, .478567D+01, .352333D+01, - + .260070D+01, .192353D+01, .142862D+01, .106432D+01, - + .796556D+00, .598471D+00, .452036D+00, .342783D+00, - + .261577D+00, .199952D+00, .153890D+00, .118555D+00, - + .917641D-01, .711476D-01, .553128D-01, .430314D-01, - + .335252D-01, .260956D-01, .203077D-01, .157706D-01, - + .122334D-01, .945564D-02, .729073D-02, .559481D-02, - + .427630D-02, .325469D-02, .245926D-02, .184357D-02, - + .137245D-02, .101259D-02, .741112D-03, .536666D-03, - + .385068D-03, .273022D-03, .191528D-03, .132431D-03, - + .909800D-04, .615243D-04, .412570D-04, .273484D-04 / - DATA (UPDI(I),I=1717,1768) / - + .180280D-04, .117768D-04, .768198D-05, .496580D-05, - + .318049D-05, .198965D-05, .120012D-05, .674183D-06, - + .338489D-06, .139366D-06, .374176D-07, .248550D-08, - + .000000D+00, .288684D+06, .220731D+06, .166179D+06, - + .125028D+06, .940195D+05, .706498D+05, .530592D+05, - + .398171D+05, .298615D+05, .223761D+05, .167558D+05, - + .125356D+05, .937140D+04, .699890D+04, .522281D+04, - + .389318D+04, .289949D+04, .215685D+04, .160287D+04, - + .118964D+04, .882036D+03, .653061D+03, .482979D+03, - + .356666D+03, .263064D+03, .193737D+03, .142547D+03, - + .104253D+03, .764973D+02, .560465D+02, .410265D+02, - + .299943D+02, .219144D+02, .160135D+02, .116944D+02, - + .854067D+01, .624501D+01, .457089D+01, .335347D+01 / - DATA (UPDI(I),I=1769,1820) / - + .246530D+01, .181953D+01, .134711D+01, .100171D+01, - + .747812D+00, .561118D+00, .422731D+00, .320431D+00, - + .243321D+00, .185994D+00, .142326D+00, .109406D+00, - + .842539D-01, .650477D-01, .502597D-01, .388812D-01, - + .300554D-01, .232232D-01, .179085D-01, .137910D-01, - + .105831D-01, .809898D-02, .616863D-02, .467775D-02, - + .353149D-02, .264521D-02, .196499D-02, .144832D-02, - + .105705D-02, .764171D-03, .545696D-03, .385120D-03, - + .267715D-03, .183277D-03, .122958D-03, .813042D-04, - + .523378D-04, .329128D-04, .200657D-04, .118586D-04, - + .672347D-05, .365859D-05, .188321D-05, .916027D-06, - + .412541D-06, .173619D-06, .670387D-07, .252846D-07, - + .942045D-08, .282142D-08, .124076D-09, .000000D+00 / - DATA (UPDI(I),I=1821,1872) / - + .413508D+06, .315244D+06, .236520D+06, .177337D+06, - + .132887D+06, .995037D+05, .744605D+05, .556749D+05, - + .416006D+05, .310569D+05, .231684D+05, .172671D+05, - + .128587D+05, .956583D+04, .710996D+04, .527867D+04, - + .391529D+04, .290049D+04, .214647D+04, .158636D+04, - + .117109D+04, .863295D+03, .635618D+03, .467274D+03, - + .343062D+03, .251475D+03, .184147D+03, .134020D+03, - + .978534D+02, .713361D+02, .519510D+02, .377846D+02, - + .274590D+02, .199575D+02, .144937D+02, .105260D+02, - + .765229D+01, .556849D+01, .406100D+01, .296760D+01, - + .217680D+01, .160170D+01, .118351D+01, .877983D+00, - + .654543D+00, .489949D+00, .368951D+00, .278339D+00, - + .211343D+00, .160652D+00, .122660D+00, .938324D-01 / - DATA (UPDI(I),I=1873,1924) / - + .719504D-01, .552194D-01, .424246D-01, .325721D-01, - + .249947D-01, .191440D-01, .146405D-01, .111588D-01, - + .848076D-02, .641584D-02, .483203D-02, .362348D-02, - + .269580D-02, .198959D-02, .145714D-02, .105718D-02, - + .759976D-03, .540072D-03, .379607D-03, .263194D-03, - + .180001D-03, .121029D-03, .804908D-04, .524305D-04, - + .336245D-04, .211630D-04, .131230D-04, .799651D-05, - + .482412D-05, .287280D-05, .169577D-05, .983775D-06, - + .556763D-06, .297250D-06, .143816D-06, .573489D-07, - + .149090D-07, .985592D-09, .000000D+00, .568445D+06, - + .432074D+06, .323046D+06, .241362D+06, .180222D+06, - + .134463D+06, .100255D+06, .746867D+05, .555987D+05, - + .413512D+05, .307304D+05, .228150D+05, .169238D+05 / - DATA (UPDI(I),I=1925,1976) / - + .125404D+05, .928354D+04, .686457D+04, .507069D+04, - + .374086D+04, .275670D+04, .202868D+04, .149114D+04, - + .109441D+04, .802190D+03, .587069D+03, .429033D+03, - + .313025D+03, .228127D+03, .165216D+03, .120038D+03, - + .870734D+02, .630883D+02, .456481D+02, .329980D+02, - + .238552D+02, .172290D+02, .124429D+02, .899432D+01, - + .650746D+01, .471783D+01, .342717D+01, .249866D+01, - + .182734D+01, .134185D+01, .989267D+00, .732832D+00, - + .545074D+00, .407824D+00, .305688D+00, .230591D+00, - + .174141D+00, .132080D+00, .100377D+00, .764568D-01, - + .582902D-01, .444829D-01, .339251D-01, .258580D-01, - + .196735D-01, .149439D-01, .113143D-01, .854112D-02, - + .641880D-02, .480205D-02, .357730D-02, .264392D-02 / - DATA (UPDI(I),I=1977,2028) / - + .193890D-02, .141122D-02, .101788D-02, .727697D-03, - + .514641D-03, .360258D-03, .249079D-03, .170131D-03, - + .114559D-03, .765236D-04, .503060D-04, .327457D-04, - + .210870D-04, .134989D-04, .858409D-05, .545531D-05, - + .344929D-05, .216389D-05, .132947D-05, .786702D-06, - + .432755D-06, .211393D-06, .834578D-07, .211696D-07, - + .144708D-08, .000000D+00, .758556D+06, .574847D+06, - + .428278D+06, .318849D+06, .237225D+06, .176350D+06, - + .131004D+06, .972316D+05, .721100D+05, .534282D+05, - + .395531D+05, .292513D+05, .216129D+05, .159514D+05, - + .117612D+05, .866132D+04, .637153D+04, .468097D+04, - + .343490D+04, .251697D+04, .184201D+04, .134600D+04, - + .982193D+03, .715551D+03, .520526D+03, .378002D+03 / - DATA (UPDI(I),I=2029,2080) / - + .274171D+03, .197593D+03, .142857D+03, .103111D+03, - + .743288D+02, .535047D+02, .384737D+02, .276659D+02, - + .198722D+02, .142726D+02, .102586D+02, .737983D+01, - + .531911D+01, .384128D+01, .278382D+01, .202362D+01, - + .147688D+01, .108213D+01, .796619D+00, .588811D+00, - + .437763D+00, .326049D+00, .244368D+00, .183360D+00, - + .138171D+00, .104329D+00, .789485D-01, .597989D-01, - + .453338D-01, .343482D-01, .260083D-01, .196587D-01, - + .148342D-01, .111581D-01, .836789D-02, .624799D-02, - + .464389D-02, .343729D-02, .252419D-02, .183969D-02, - + .133098D-02, .954597D-03, .678847D-03, .477882D-03, - + .333235D-03, .229786D-03, .156776D-03, .105704D-03, - + .708840D-04, .469659D-04, .309465D-04, .202836D-04 / - DATA (UPDI(I),I=2081,2132) / - + .132835D-04, .868502D-05, .568721D-05, .370548D-05, - + .238452D-05, .149348D-05, .892393D-06, .491281D-06, - + .237625D-06, .918766D-07, .226706D-07, .158186D-08, - + .000000D+00, .989232D+06, .747396D+06, .554854D+06, - + .411606D+06, .305128D+06, .226000D+06, .167266D+06, - + .123683D+06, .913810D+05, .674487D+05, .497400D+05, - + .366417D+05, .269667D+05, .198235D+05, .145572D+05, - + .106767D+05, .782162D+04, .572231D+04, .418126D+04, - + .305076D+04, .222296D+04, .161722D+04, .117484D+04, - + .852029D+03, .616961D+03, .445939D+03, .321912D+03, - + .230869D+03, .166099D+03, .119293D+03, .855593D+02, - + .612735D+02, .438296D+02, .313507D+02, .223969D+02, - + .159977D+02, .114341D+02, .817899D+01, .586114D+01 / - DATA (UPDI(I),I=2133,2184) / - + .420812D+01, .303162D+01, .219063D+01, .158910D+01, - + .115729D+01, .846702D+00, .621963D+00, .459530D+00, - + .340121D+00, .253303D+00, .188862D+00, .141409D+00, - + .106098D+00, .797726D-01, .600374D-01, .452208D-01, - + .340429D-01, .256110D-01, .192347D-01, .144206D-01, - + .107778D-01, .803095D-02, .595859D-02, .440078D-02, - + .323704D-02, .236242D-02, .171153D-02, .123114D-02, - + .878234D-03, .621428D-03, .435581D-03, .302671D-03, - + .208230D-03, .141962D-03, .958579D-04, .645300D-04, - + .430659D-04, .286797D-04, .190711D-04, .127068D-04, - + .847016D-05, .565075D-05, .374258D-05, .243560D-05, - + .153413D-05, .915364D-06, .499982D-06, .238131D-06, - + .899016D-07, .215632D-07, .153121D-08, .000000D+00 / - DATA (UPDI(I),I=2185,2236) / - + .126611D+07, .953701D+06, .705487D+06, .521470D+06, - + .385167D+06, .284239D+06, .209590D+06, .154399D+06, - + .113644D+06, .835607D+05, .613838D+05, .450430D+05, - + .330188D+05, .241757D+05, .176815D+05, .129152D+05, - + .942246D+04, .686470D+04, .499478D+04, .362873D+04, - + .263262D+04, .190684D+04, .137907D+04, .995632D+03, - + .717644D+03, .516296D+03, .370939D+03, .264739D+03, - + .189540D+03, .135459D+03, .966653D+02, .688748D+02, - + .490111D+02, .348730D+02, .247794D+02, .176033D+02, - + .125119D+02, .889982D+01, .634132D+01, .452669D+01, - + .324206D+01, .232889D+01, .167931D+01, .121566D+01, - + .884005D+00, .645407D+00, .473926D+00, .348612D+00, - + .258012D+00, .191174D+00, .142244D+00, .106059D+00 / - DATA (UPDI(I),I=2237,2288) / - + .792412D-01, .592633D-01, .443552D-01, .331813D-01, - + .248052D-01, .185128D-01, .137919D-01, .102437D-01, - + .758528D-02, .559333D-02, .410561D-02, .300166D-02, - + .217756D-02, .156856D-02, .112211D-02, .796379D-03, - + .560888D-03, .391604D-03, .271271D-03, .186280D-03, - + .126961D-03, .858855D-04, .580487D-04, .390078D-04, - + .262253D-04, .176509D-04, .119193D-04, .805535D-05, - + .543749D-05, .363302D-05, .237349D-05, .149366D-05, - + .885410D-06, .478016D-06, .223653D-06, .823600D-07, - + .192079D-07, .138634D-08, .000000D+00, .159500D+07, - + .119781D+07, .882906D+06, .650268D+06, .478556D+06, - + .351863D+06, .258494D+06, .189713D+06, .139109D+06, - + .101895D+06, .745630D+05, .545007D+05, .397943D+05 / - DATA (UPDI(I),I=2289,2340) / - + .290206D+05, .211394D+05, .153781D+05, .111731D+05, - + .810620D+04, .587321D+04, .424872D+04, .306909D+04, - + .221325D+04, .159357D+04, .114533D+04, .821781D+03, - + .588473D+03, .420809D+03, .298882D+03, .212951D+03, - + .151445D+03, .107534D+03, .762323D+02, .539675D+02, - + .381998D+02, .269989D+02, .190768D+02, .134848D+02, - + .953867D+01, .675822D+01, .479684D+01, .341571D+01, - + .243935D+01, .174860D+01, .125833D+01, .909553D+00, - + .660066D+00, .481761D+00, .352220D+00, .259087D+00, - + .190794D+00, .141086D+00, .104550D+00, .776317D-01, - + .577019D-01, .429185D-01, .319085D-01, .237063D-01, - + .175841D-01, .130193D-01, .961099D-02, .707345D-02, - + .518469D-02, .378294D-02, .274958D-02, .198322D-02 / - DATA (UPDI(I),I=2341,2392) / - + .142075D-02, .101107D-02, .714143D-03, .500813D-03, - + .348430D-03, .240727D-03, .165080D-03, .112536D-03, - + .762954D-04, .517832D-04, .350280D-04, .237520D-04, - + .161493D-04, .110195D-04, .751990D-05, .511213D-05, - + .342899D-05, .223902D-05, .140248D-05, .823618D-06, - + .438603D-06, .201345D-06, .722983D-07, .164058D-07, - + .120271D-08, .000000D+00, .198172D+07, .148378D+07, - + .108980D+07, .799773D+06, .586452D+06, .429619D+06, - + .314452D+06, .229923D+06, .167957D+06, .122558D+06, - + .893391D+05, .650476D+05, .473087D+05, .343639D+05, - + .249312D+05, .180630D+05, .130699D+05, .944308D+04, - + .681310D+04, .490772D+04, .352988D+04, .253447D+04, - + .181681D+04, .129994D+04, .928493D+03, .661826D+03 / - DATA (UPDI(I),I=2393,2444) / - + .471055D+03, .332967D+03, .236099D+03, .167093D+03, - + .118059D+03, .832746D+02, .586525D+02, .413020D+02, - + .290380D+02, .204082D+02, .143477D+02, .100934D+02, - + .711146D+01, .501919D+01, .355367D+01, .252329D+01, - + .179826D+01, .128651D+01, .924435D+00, .666888D+00, - + .483844D+00, .351623D+00, .257091D+00, .188181D+00, - + .138312D+00, .101877D+00, .751874D-01, .555469D-01, - + .410643D-01, .303453D-01, .224086D-01, .165217D-01, - + .121591D-01, .892258D-02, .652788D-02, .475695D-02, - + .345076D-02, .249398D-02, .178894D-02, .127487D-02, - + .902790D-03, .634823D-03, .443450D-03, .307565D-03, - + .212035D-03, .145278D-03, .991073D-04, .673628D-04, - + .459185D-04, .312570D-04, .213575D-04, .146442D-04 / - DATA (UPDI(I),I=2445,2496) / - + .100721D-04, .691869D-05, .472080D-05, .316825D-05, - + .206168D-05, .128231D-05, .744738D-06, .390713D-06, - + .175858D-06, .615718D-07, .136052D-07, .101262D-08, - + .000000D+00, .243205D+07, .181555D+07, .132875D+07, - + .971659D+06, .709925D+06, .518184D+06, .377882D+06, - + .275279D+06, .200337D+06, .145633D+06, .105754D+06, - + .767019D+05, .555671D+05, .402035D+05, .290515D+05, - + .209635D+05, .151068D+05, .108698D+05, .780977D+04, - + .560194D+04, .401200D+04, .286819D+04, .204704D+04, - + .145818D+04, .103684D+04, .735680D+03, .521199D+03, - + .366664D+03, .258759D+03, .182250D+03, .128138D+03, - + .899367D+02, .630255D+02, .441553D+02, .308826D+02, - + .215903D+02, .150974D+02, .105634D+02, .740169D+01 / - DATA (UPDI(I),I=2497,2548) / - + .519505D+01, .365749D+01, .258229D+01, .182976D+01, - + .130151D+01, .929776D+00, .666821D+00, .480962D+00, - + .347465D+00, .252546D+00, .183757D+00, .134257D+00, - + .983038D-01, .721185D-01, .529632D-01, .389207D-01, - + .285908D-01, .209879D-01, .153833D-01, .112547D-01, - + .821106D-02, .597267D-02, .432776D-02, .312183D-02, - + .224398D-02, .160111D-02, .113534D-02, .800271D-03, - + .560417D-03, .390097D-03, .269838D-03, .185712D-03, - + .127193D-03, .868705D-04, .592135D-04, .405403D-04, - + .277593D-04, .190952D-04, .131829D-04, .912002D-05, - + .628995D-05, .429656D-05, .287808D-05, .186263D-05, - + .114847D-05, .658886D-06, .340268D-06, .150099D-06, - + .512502D-07, .110369D-07, .833710D-09, .000000D+00 / - DATA (UPDI(I),I=2549,2600) / - + .631669D+05, .376362D+05, .292283D+05, .226989D+05, - + .176282D+05, .136904D+05, .106323D+05, .825744D+04, - + .641313D+04, .498084D+04, .386853D+04, .300471D+04, - + .233386D+04, .181287D+04, .140826D+04, .109403D+04, - + .849984D+03, .660446D+03, .513237D+03, .398902D+03, - + .310096D+03, .241117D+03, .187534D+03, .145909D+03, - + .113571D+03, .884453D+02, .689206D+02, .535570D+02, - + .418074D+02, .326704D+02, .255626D+02, .200312D+02, - + .157241D+02, .123771D+02, .975988D+01, .771737D+01, - + .612103D+01, .487105D+01, .388995D+01, .311737D+01, - + .250781D+01, .202415D+01, .163891D+01, .133059D+01, - + .108265D+01, .882323D+00, .720293D+00, .587419D+00, - + .479421D+00, .390328D+00, .317437D+00, .257507D+00 / - DATA (UPDI(I),I=2601,2652) / - + .208232D+00, .167749D+00, .134544D+00, .107375D+00, - + .852166D-01, .672170D-01, .526647D-01, .409629D-01, - + .316102D-01, .241849D-01, .183332D-01, .137771D-01, - + .102240D-01, .749858D-02, .542988D-02, .387758D-02, - + .272732D-02, .188664D-02, .128145D-02, .853006D-03, - + .555096D-03, .352042D-03, .217936D-03, .130311D-03, - + .751816D-04, .416286D-04, .219755D-04, .109681D-04, - + .512050D-05, .220812D-05, .857790D-06, .294623D-06, - + .856987D-07, .198691D-07, .331692D-08, .329487D-09, - + .126929D-10, .482159D-13, .000000D+00, .807309D+05, - + .629527D+05, .484918D+05, .373484D+05, .287657D+05, - + .221523D+05, .170594D+05, .131355D+05, .101142D+05, - + .778670D+04, .599481D+04, .461465D+04, .355225D+04 / - DATA (UPDI(I),I=2653,2704) / - + .273409D+04, .210440D+04, .161954D+04, .124645D+04, - + .959209D+03, .738216D+03, .568107D+03, .437256D+03, - + .336549D+03, .259092D+03, .199485D+03, .153643D+03, - + .118371D+03, .912525D+02, .701228D+02, .541350D+02, - + .418269D+02, .323576D+02, .250644D+02, .194487D+02, - + .151308D+02, .117930D+02, .921597D+01, .722536D+01, - + .568338D+01, .448736D+01, .355579D+01, .282951D+01, - + .225955D+01, .181086D+01, .145567D+01, .117335D+01, - + .947623D+00, .767099D+00, .620498D+00, .502635D+00, - + .406289D+00, .328224D+00, .264580D+00, .212708D+00, - + .170419D+00, .136002D+00, .108029D+00, .853672D-01, - + .670668D-01, .523605D-01, .405935D-01, .312368D-01, - + .238405D-01, .180347D-01, .135310D-01, .100295D-01 / - DATA (UPDI(I),I=2705,2756) / - + .734958D-02, .531996D-02, .379907D-02, .267353D-02, - + .185092D-02, .125874D-02, .838809D-03, .546477D-03, - + .346370D-03, .213908D-03, .126899D-03, .719416D-04, - + .383555D-04, .186865D-04, .778310D-05, .216709D-05, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .121987D+06, .946656D+05, - + .725147D+05, .555346D+05, .425276D+05, .325590D+05, - + .249251D+05, .190763D+05, .145987D+05, .111691D+05, - + .854451D+04, .653490D+04, .499752D+04, .382078D+04, - + .292089D+04, .223235D+04, .170602D+04, .130344D+04, - + .995827D+03, .760638D+03, .581010D+03, .443729D+03, - + .338915D+03, .258840D+03, .197723D+03, .151053D+03 / - DATA (UPDI(I),I=2757,2808) / - + .115460D+03, .879425D+02, .672916D+02, .515214D+02, - + .394920D+02, .303043D+02, .232918D+02, .179465D+02, - + .138521D+02, .107190D+02, .832144D+01, .648106D+01, - + .506729D+01, .397632D+01, .313409D+01, .247936D+01, - + .196897D+01, .156875D+01, .125377D+01, .100426D+01, - + .806628D+00, .647549D+00, .520854D+00, .418154D+00, - + .335655D+00, .268923D+00, .214966D+00, .171295D+00, - + .136009D+00, .107516D+00, .845810D-01, .661683D-01, - + .514585D-01, .397493D-01, .304872D-01, .231995D-01, - + .175040D-01, .131038D-01, .969544D-02, .709506D-02, - + .513176D-02, .366421D-02, .258070D-02, .178993D-02, - + .122138D-02, .818254D-03, .537462D-03, .344760D-03, - + .216799D-03, .132161D-03, .781936D-04, .446405D-04 / - DATA (UPDI(I),I=2809,2860) / - + .244982D-04, .128043D-04, .632738D-05, .290541D-05, - + .120813D-05, .429887D-06, .113785D-06, .618901D-08, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .173024D+06, .133753D+06, .101998D+06, - + .777586D+05, .592709D+05, .451635D+05, .344085D+05, - + .262055D+05, .199547D+05, .151894D+05, .115601D+05, - + .879463D+04, .668954D+04, .508637D+04, .386672D+04, - + .293838D+04, .223254D+04, .169559D+04, .128760D+04, - + .977412D+03, .741882D+03, .562930D+03, .427126D+03, - + .324008D+03, .245797D+03, .186453D+03, .141496D+03, - + .106968D+03, .812330D+02, .617158D+02, .469344D+02, - + .357259D+02, .272342D+02, .208097D+02, .159265D+02, - + .122186D+02, .940395D+01, .726055D+01, .562754D+01 / - DATA (UPDI(I),I=2861,2912) / - + .437770D+01, .342097D+01, .268345D+01, .211343D+01, - + .167022D+01, .132443D+01, .105279D+01, .839457D+00, - + .669135D+00, .534617D+00, .426424D+00, .340190D+00, - + .270951D+00, .215377D+00, .170706D+00, .134856D+00, - + .106089D+00, .830757D-01, .647070D-01, .501156D-01, - + .385613D-01, .294689D-01, .223489D-01, .168096D-01, - + .125484D-01, .926112D-02, .676221D-02, .488225D-02, - + .348144D-02, .245031D-02, .169958D-02, .116101D-02, - + .779696D-03, .514355D-03, .332206D-03, .211126D-03, - + .130779D-03, .792773D-04, .469344D-04, .272220D-04, - + .154668D-04, .868687D-05, .483795D-05, .269572D-05, - + .150147D-05, .831893D-06, .442924D-06, .216974D-06, - + .893446D-07, .244676D-07, .157839D-08, .000000D+00 / - DATA (UPDI(I),I=2913,2964) / - + .189917D+06, .181341D+06, .137746D+06, .104592D+06, - + .794010D+05, .602523D+05, .457111D+05, .346643D+05, - + .262807D+05, .199157D+05, .150884D+05, .114259D+05, - + .865004D+04, .654544D+04, .495155D+04, .374394D+04, - + .283009D+04, .213823D+04, .161509D+04, .121935D+04, - + .920380D+03, .694406D+03, .523825D+03, .395000D+03, - + .297831D+03, .224516D+03, .169298D+03, .127140D+03, - + .959079D+02, .723669D+02, .546499D+02, .413016D+02, - + .312547D+02, .237043D+02, .180045D+02, .137066D+02, - + .104671D+02, .801796D+01, .616564D+01, .475847D+01, - + .368942D+01, .287157D+01, .224429D+01, .176033D+01, - + .138568D+01, .109362D+01, .866029D+00, .685688D+00, - + .544338D+00, .431481D+00, .342179D+00, .270977D+00 / - DATA (UPDI(I),I=2965,3016) / - + .214217D+00, .168895D+00, .132753D+00, .103929D+00, - + .810067D-01, .628148D-01, .484436D-01, .371234D-01, - + .282607D-01, .213544D-01, .160061D-01, .119100D-01, - + .876345D-02, .638111D-02, .459581D-02, .327033D-02, - + .229799D-02, .159224D-02, .108737D-02, .730757D-03, - + .483078D-03, .313243D-03, .200374D-03, .125395D-03, - + .771945D-04, .467389D-04, .279860D-04, .166073D-04, - + .986788D-05, .587875D-05, .352271D-05, .210294D-05, - + .123175D-05, .681218D-06, .339611D-06, .139473D-06, - + .374217D-07, .248552D-08, .000000D+00, .334022D+06, - + .256336D+06, .193829D+06, .146501D+06, .110695D+06, - + .836005D+05, .631166D+05, .476279D+05, .359274D+05, - + .270872D+05, .204145D+05, .153772D+05, .115784D+05 / - DATA (UPDI(I),I=3017,3068) / - + .871309D+04, .655423D+04, .492739D+04, .370284D+04, - + .278095D+04, .208773D+04, .156638D+04, .117478D+04, - + .880590D+03, .659845D+03, .494185D+03, .370016D+03, - + .276942D+03, .207306D+03, .154503D+03, .115654D+03, - + .865827D+02, .648591D+02, .486148D+02, .364788D+02, - + .274299D+02, .206515D+02, .155821D+02, .117918D+02, - + .895039D+01, .681935D+01, .521454D+01, .400584D+01, - + .308940D+01, .239269D+01, .186006D+01, .145141D+01, - + .113574D+01, .891946D+00, .700503D+00, .551775D+00, - + .434069D+00, .341720D+00, .268711D+00, .210983D+00, - + .165257D+00, .129072D+00, .100430D+00, .778163D-01, - + .599964D-01, .460136D-01, .350723D-01, .265602D-01, - + .199682D-01, .148926D-01, .110277D-01, .807483D-02 / - DATA (UPDI(I),I=3069,3120) / - + .585111D-02, .419323D-02, .296861D-02, .207462D-02, - + .142890D-02, .969164D-03, .646010D-03, .422710D-03, - + .270474D-03, .169956D-03, .103737D-03, .616239D-04, - + .354407D-04, .196922D-04, .104922D-04, .534903D-05, - + .258280D-05, .117567D-05, .497612D-06, .197103D-06, - + .722036D-07, .260992D-07, .949753D-08, .282433D-08, - + .124090D-09, .000000D+00, .458269D+06, .350396D+06, - + .263818D+06, .198537D+06, .149351D+06, .112289D+06, - + .843897D+05, .633861D+05, .475891D+05, .357077D+05, - + .267803D+05, .200724D+05, .150373D+05, .112579D+05, - + .842418D+04, .629947D+04, .470819D+04, .351643D+04, - + .262494D+04, .195810D+04, .145992D+04, .108775D+04, - + .810067D+03, .602887D+03, .448506D+03, .333481D+03 / - DATA (UPDI(I),I=3121,3172) / - + .247951D+03, .183508D+03, .136398D+03, .101377D+03, - + .753804D+02, .560750D+02, .417513D+02, .311478D+02, - + .232618D+02, .174082D+02, .130640D+02, .983262D+01, - + .742780D+01, .563134D+01, .428902D+01, .327963D+01, - + .251849D+01, .194148D+01, .150244D+01, .116616D+01, - + .908598D+00, .708045D+00, .553522D+00, .432243D+00, - + .337854D+00, .263834D+00, .205759D+00, .160114D+00, - + .124261D+00, .960915D-01, .740072D-01, .567271D-01, - + .432591D-01, .327910D-01, .246992D-01, .184727D-01, - + .137072D-01, .101003D-01, .736038D-02, .530896D-02, - + .378807D-02, .267083D-02, .185953D-02, .127658D-02, - + .863571D-03, .574644D-03, .375829D-03, .240852D-03, - + .151994D-03, .935831D-04, .564355D-04, .332809D-04 / - DATA (UPDI(I),I=3173,3224) / - + .192450D-04, .109158D-04, .612111D-05, .340422D-05, - + .189087D-05, .104697D-05, .573991D-06, .300990D-06, - + .144398D-06, .574033D-07, .149110D-07, .985602D-09, - + .000000D+00, .612638D+06, .466779D+06, .349998D+06, - + .262293D+06, .196476D+06, .147086D+06, .110058D+06, - + .822997D+05, .615108D+05, .459427D+05, .342962D+05, - + .255843D+05, .190744D+05, .142107D+05, .105808D+05, - + .787213D+04, .585326D+04, .434872D+04, .322887D+04, - + .239548D+04, .177610D+04, .131582D+04, .974240D+03, - + .720787D+03, .532976D+03, .393837D+03, .290978D+03, - + .213943D+03, .157969D+03, .116618D+03, .861135D+02, - + .636072D+02, .470169D+02, .348183D+02, .258071D+02, - + .191651D+02, .142704D+02, .106559D+02, .798548D+01 / - DATA (UPDI(I),I=3225,3276) / - + .600557D+01, .453718D+01, .344147D+01, .262156D+01, - + .200488D+01, .153930D+01, .118551D+01, .916657D+00, - + .708977D+00, .550209D+00, .426580D+00, .331101D+00, - + .256805D+00, .198948D+00, .153813D+00, .118616D+00, - + .911600D-01, .697854D-01, .531764D-01, .403175D-01, - + .303894D-01, .227643D-01, .169343D-01, .124995D-01, - + .916322D-02, .664396D-02, .476898D-02, .338693D-02, - + .237750D-02, .164855D-02, .112764D-02, .760519D-03, - + .504996D-03, .329980D-03, .211693D-03, .134078D-03, - + .831865D-04, .508313D-04, .306174D-04, .182731D-04, - + .108404D-04, .644819D-05, .385204D-05, .231013D-05, - + .137630D-05, .799310D-06, .435457D-06, .211808D-06, - + .834961D-07, .211711D-07, .144709D-08, .000000D+00 / - DATA (UPDI(I),I=3277,3328) / - + .802189D+06, .609112D+06, .454887D+06, .339514D+06, - + .253272D+06, .188813D+06, .140682D+06, .104748D+06, - + .779467D+05, .579610D+05, .430732D+05, .319851D+05, - + .237359D+05, .176002D+05, .130417D+05, .965579D+04, - + .714388D+04, .528084D+04, .390082D+04, .287887D+04, - + .212313D+04, .156438D+04, .115186D+04, .847384D+03, - + .622973D+03, .457624D+03, .336071D+03, .245559D+03, - + .180175D+03, .132158D+03, .969484D+02, .711310D+02, - + .522179D+02, .384005D+02, .282592D+02, .208339D+02, - + .153984D+02, .114124D+02, .848763D+01, .633459D+01, - + .474909D+01, .357460D+01, .270210D+01, .205077D+01, - + .156264D+01, .119450D+01, .916837D+00, .703973D+00, - + .542450D+00, .417627D+00, .321937D+00, .248029D+00 / - DATA (UPDI(I),I=3329,3380) / - + .190891D+00, .146639D+00, .112372D+00, .858306D-01, - + .653090D-01, .494713D-01, .372905D-01, .279480D-01, - + .208186D-01, .154023D-01, .113075D-01, .824582D-02, - + .594789D-02, .424798D-02, .300239D-02, .209795D-02, - + .144853D-02, .987079D-03, .663607D-03, .439647D-03, - + .286990D-03, .184283D-03, .117115D-03, .731816D-04, - + .452550D-04, .277628D-04, .169983D-04, .104251D-04, - + .644560D-05, .401002D-05, .249391D-05, .152810D-05, - + .901599D-06, .493228D-06, .237920D-06, .919036D-07, - + .226716D-07, .158186D-08, .000000D+00, .103231D+07, - + .781227D+06, .581126D+06, .432008D+06, .320971D+06, - + .238304D+06, .176821D+06, .131103D+06, .971432D+05, - + .719236D+05, .532150D+05, .393404D+05, .290624D+05 / - DATA (UPDI(I),I=3381,3432) / - + .214510D+05, .158211D+05, .116582D+05, .858384D+04, - + .631426D+04, .464098D+04, .340780D+04, .250025D+04, - + .183260D+04, .134213D+04, .981984D+03, .717918D+03, - + .524372D+03, .382862D+03, .278074D+03, .202802D+03, - + .147841D+03, .107771D+03, .785652D+02, .572975D+02, - + .418555D+02, .305917D+02, .223974D+02, .164373D+02, - + .120954D+02, .893060D+01, .661665D+01, .492417D+01, - + .367915D+01, .276068D+01, .207989D+01, .157329D+01, - + .119397D+01, .909913D+00, .693731D+00, .530860D+00, - + .405912D+00, .310810D+00, .237884D+00, .181900D+00, - + .138847D+00, .105738D+00, .802688D-01, .607092D-01, - + .457153D-01, .342587D-01, .255290D-01, .189097D-01, - + .139130D-01, .101585D-01, .736844D-02, .528715D-02 / - DATA (UPDI(I),I=3433,3484) / - + .375691D-02, .264232D-02, .183781D-02, .126346D-02, - + .857692D-03, .574800D-03, .379968D-03, .247812D-03, - + .159292D-03, .101585D-03, .639224D-04, .399751D-04, - + .249276D-04, .155910D-04, .980904D-05, .622871D-05, - + .397233D-05, .251723D-05, .155967D-05, .922071D-06, - + .501383D-06, .238340D-06, .899205D-07, .215639D-07, - + .153121D-08, .000000D+00, .130864D+07, .987102D+06, - + .731425D+06, .541613D+06, .400810D+06, .296386D+06, - + .219023D+06, .161725D+06, .119332D+06, .879783D+05, - + .648142D+05, .477069D+05, .350874D+05, .257821D+05, - + .189289D+05, .138839D+05, .101746D+05, .744880D+04, - + .544834D+04, .398094D+04, .290612D+04, .211923D+04, - + .154400D+04, .112371D+04, .817113D+03, .593541D+03 / - DATA (UPDI(I),I=3485,3536) / - + .430938D+03, .311181D+03, .225627D+03, .163505D+03, - + .118468D+03, .858302D+02, .622011D+02, .451466D+02, - + .327811D+02, .238407D+02, .173780D+02, .127000D+02, - + .931189D+01, .685085D+01, .506250D+01, .375573D+01, - + .279816D+01, .209323D+01, .157222D+01, .118481D+01, - + .896693D+00, .678955D+00, .516043D+00, .391943D+00, - + .298140D+00, .226713D+00, .172254D+00, .130660D+00, - + .988882D-01, .746128D-01, .560936D-01, .419909D-01, - + .312846D-01, .231796D-01, .170727D-01, .124919D-01, - + .907102D-02, .654441D-02, .467116D-02, .330229D-02, - + .231121D-02, .160010D-02, .109536D-02, .740804D-03, - + .494959D-03, .326526D-03, .212824D-03, .136984D-03, - + .876851D-04, .555643D-04, .351223D-04, .222265D-04 / - DATA (UPDI(I),I=3537,3588) / - + .141534D-04, .908317D-05, .587693D-05, .380595D-05, - + .243427D-05, .151246D-05, .890286D-06, .479021D-06, - + .223801D-06, .823732D-07, .192084D-07, .138635D-08, - + .000000D+00, .163699D+07, .123079D+07, .908514D+06, - + .670154D+06, .493999D+06, .363855D+06, .267806D+06, - + .196945D+06, .144724D+06, .106255D+06, .779493D+05, - + .571302D+05, .418361D+05, .306061D+05, .223705D+05, - + .163341D+05, .119153D+05, .868251D+04, .632067D+04, - + .459613D+04, .333882D+04, .242266D+04, .175615D+04, - + .127154D+04, .919762D+03, .664530D+03, .479855D+03, - + .344559D+03, .248418D+03, .178988D+03, .128926D+03, - + .928494D+02, .668778D+02, .482410D+02, .348065D+02, - + .251512D+02, .182136D+02, .132226D+02, .963018D+01 / - DATA (UPDI(I),I=3589,3640) / - + .703715D+01, .516475D+01, .380538D+01, .281569D+01, - + .209192D+01, .156050D+01, .116797D+01, .877999D+00, - + .660341D+00, .498578D+00, .376196D+00, .284314D+00, - + .214824D+00, .162195D+00, .122269D+00, .919715D-01, - + .689759D-01, .515475D-01, .383617D-01, .284153D-01, - + .209337D-01, .153318D-01, .111562D-01, .805684D-02, - + .578165D-02, .410508D-02, .288740D-02, .201105D-02, - + .138596D-02, .944836D-03, .636719D-03, .424217D-03, - + .279369D-03, .182039D-03, .117369D-03, .754347D-04, - + .481421D-04, .307444D-04, .197160D-04, .127462D-04, - + .830711D-05, .544548D-05, .355884D-05, .228416D-05, - + .141628D-05, .827154D-06, .439323D-06, .201450D-06, - + .723075D-07, .164061D-07, .120271D-08, .000000D+00 / - DATA (UPDI(I),I=3641,3692) / - + .202318D+07, .151634D+07, .111508D+07, .819406D+06, - + .601697D+06, .441458D+06, .323645D+06, .237062D+06, - + .173501D+06, .126863D+06, .926817D+05, .676431D+05, - + .493240D+05, .359287D+05, .261461D+05, .190063D+05, - + .138023D+05, .100116D+05, .725448D+04, .525035D+04, - + .379584D+04, .274091D+04, .197703D+04, .142428D+04, - + .102499D+04, .736694D+03, .529146D+03, .377877D+03, - + .270946D+03, .194130D+03, .139037D+03, .995515D+02, - + .712817D+02, .511096D+02, .366505D+02, .263191D+02, - + .189390D+02, .136613D+02, .988522D+01, .717628D+01, - + .523213D+01, .382947D+01, .281466D+01, .207724D+01, - + .153924D+01, .114442D+01, .854644D+00, .638561D+00, - + .479014D+00, .359109D+00, .269678D+00, .202490D+00 / - DATA (UPDI(I),I=3693,3744) / - + .151936D+00, .113835D+00, .851093D-01, .634486D-01, - + .471373D-01, .348757D-01, .256846D-01, .188148D-01, - + .137029D-01, .991610D-02, .712239D-02, .508397D-02, - + .359095D-02, .251314D-02, .174205D-02, .119526D-02, - + .811584D-03, .545082D-03, .362239D-03, .238220D-03, - + .155248D-03, .100307D-03, .647531D-04, .416218D-04, - + .268408D-04, .174183D-04, .114037D-04, .752025D-05, - + .497310D-05, .326554D-05, .209513D-05, .129241D-05, - + .747296D-06, .391227D-06, .175931D-06, .615782D-07, - + .136055D-07, .101262D-08, .000000D+00, .247297D+07, - + .184769D+07, .135371D+07, .991041D+06, .724976D+06, - + .529871D+06, .386958D+06, .282326D+06, .205809D+06, - + .149882D+06, .109053D+06, .792637D+05, .575561D+05 / - DATA (UPDI(I),I=3745,3796) / - + .417478D+05, .302505D+05, .218943D+05, .158294D+05, - + .114307D+05, .824511D+04, .593983D+04, .427422D+04, - + .307168D+04, .220492D+04, .158066D+04, .113185D+04, - + .809358D+03, .578335D+03, .410805D+03, .292982D+03, - + .208779D+03, .148700D+03, .105872D+03, .753722D+02, - + .537282D+02, .382995D+02, .273375D+02, .195512D+02, - + .140155D+02, .100778D+02, .726968D+01, .526629D+01, - + .382965D+01, .279658D+01, .205053D+01, .150960D+01, - + .111512D+01, .827422D+00, .614253D+00, .457857D+00, - + .341081D+00, .254542D+00, .189946D+00, .141654D+00, - + .105490D+00, .783989D-01, .581010D-01, .429124D-01, - + .315668D-01, .231152D-01, .168375D-01, .121948D-01, - + .877668D-02, .627006D-02, .445209D-02, .312853D-02 / - DATA (UPDI(I),I=3797,3848) / - + .217877D-02, .150326D-02, .102701D-02, .694701D-03, - + .465129D-03, .308418D-03, .202620D-03, .132123D-03, - + .855824D-04, .555071D-04, .359337D-04, .233858D-04, - + .153359D-04, .101445D-04, .674862D-05, .448708D-05, - + .295080D-05, .188737D-05, .115586D-05, .660733D-06, - + .340634D-06, .150151D-06, .512547D-07, .110371D-07, - + .833712D-09, .000000D+00, .506631D+05, .752999D+05, - + .584793D+05, .454166D+05, .352721D+05, .273939D+05, - + .212757D+05, .165242D+05, .128342D+05, .996850D+04, - + .774292D+04, .601447D+04, .467209D+04, .362954D+04, - + .281984D+04, .219096D+04, .170252D+04, .132313D+04, - + .102846D+04, .799558D+03, .621749D+03, .483618D+03, - + .376304D+03, .292923D+03, .228132D+03, .177780D+03 / - DATA (UPDI(I),I=3849,3900) / - + .138643D+03, .107837D+03, .842710D+02, .659382D+02, - + .516714D+02, .405639D+02, .319112D+02, .251838D+02, - + .199203D+02, .158102D+02, .125957D+02, .100767D+02, - + .809755D+01, .653706D+01, .530368D+01, .432275D+01, - + .353884D+01, .290870D+01, .239901D+01, .198412D+01, - + .164544D+01, .136458D+01, .113330D+01, .939645D+00, - + .778547D+00, .643675D+00, .530614D+00, .435815D+00, - + .356395D+00, .289984D+00, .234612D+00, .188620D+00, - + .150597D+00, .119335D+00, .937913D-01, .730651D-01, - + .563765D-01, .431063D-01, .325408D-01, .242699D-01, - + .178656D-01, .129653D-01, .926438D-02, .650860D-02, - + .448834D-02, .303243D-02, .200233D-02, .128818D-02, - + .808636D-03, .490197D-03, .286649D-03, .160829D-03 / - DATA (UPDI(I),I=3901,3952) / - + .860074D-04, .434756D-04, .205514D-04, .897138D-05, - + .352738D-05, .122591D-05, .360746D-06, .845968D-07, - + .142814D-07, .143435D-08, .558570D-10, .214453D-12, - + .000000D+00, .128158D+06, .100200D+06, .774196D+05, - + .598152D+05, .462146D+05, .357045D+05, .275851D+05, - + .213110D+05, .164643D+05, .127193D+05, .982637D+04, - + .759116D+04, .586463D+04, .453069D+04, .350036D+04, - + .270434D+04, .208954D+04, .161456D+04, .124772D+04, - + .964319D+03, .745446D+03, .576353D+03, .445755D+03, - + .344855D+03, .266918D+03, .206697D+03, .160182D+03, - + .123782D+03, .961074D+02, .747054D+02, .581560D+02, - + .453485D+02, .354349D+02, .277739D+02, .218188D+02, - + .171969D+02, .136058D+02, .108086D+02, .862529D+01 / - DATA (UPDI(I),I=3953,4004) / - + .691429D+01, .557089D+01, .450905D+01, .366608D+01, - + .299274D+01, .245183D+01, .201436D+01, .165975D+01, - + .136760D+01, .112878D+01, .930143D+00, .766084D+00, - + .629667D+00, .516116D+00, .421550D+00, .342865D+00, - + .277499D+00, .223350D+00, .178658D+00, .141941D+00, - + .111934D+00, .875620D-01, .679024D-01, .521580D-01, - + .397084D-01, .298479D-01, .221682D-01, .162515D-01, - + .117465D-01, .836028D-02, .585036D-02, .401858D-02, - + .270403D-02, .177812D-02, .113842D-02, .710714D-03, - + .427721D-03, .247563D-03, .136695D-03, .711408D-04, - + .342210D-04, .146178D-04, .503962D-05, .849348D-06, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=4005,4056) / - + .168907D+06, .131515D+06, .101133D+06, .777611D+05, - + .597898D+05, .459662D+05, .353382D+05, .271643D+05, - + .208808D+05, .160489D+05, .123351D+05, .947956D+04, - + .728513D+04, .559814D+04, .430189D+04, .330553D+04, - + .254007D+04, .195176D+04, .149986D+04, .115259D+04, - + .885880D+03, .680945D+03, .523558D+03, .402632D+03, - + .309763D+03, .238410D+03, .183628D+03, .141003D+03, - + .108790D+03, .840240D+02, .649901D+02, .503475D+02, - + .390830D+02, .304304D+02, .237466D+02, .185905D+02, - + .146095D+02, .115273D+02, .913670D+01, .727462D+01, - + .582187D+01, .468061D+01, .378033D+01, .306569D+01, - + .249536D+01, .203698D+01, .166790D+01, .136577D+01, - + .112048D+01, .917806D+00, .751538D+00, .614195D+00 / - DATA (UPDI(I),I=4057,4108) / - + .500637D+00, .406682D+00, .329016D+00, .264905D+00, - + .212127D+00, .168833D+00, .133482D+00, .104760D+00, - + .815676D-01, .629673D-01, .481514D-01, .365003D-01, - + .273206D-01, .202080D-01, .147559D-01, .106253D-01, - + .753569D-02, .525630D-02, .360039D-02, .241718D-02, - + .158733D-02, .101596D-02, .635280D-03, .383981D-03, - + .224247D-03, .125873D-03, .675168D-04, .343260D-04, - + .163807D-04, .724007D-05, .288806D-05, .100502D-05, - + .280110D-06, .445152D-07, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .219455D+06, - + .170218D+06, .130318D+06, .997534D+05, .763531D+05, - + .584310D+05, .447130D+05, .342092D+05, .261714D+05, - + .200183D+05, .153111D+05, .117086D+05, .895328D+04 / - DATA (UPDI(I),I=4109,4160) / - + .684518D+04, .523330D+04, .400034D+04, .305787D+04, - + .233713D+04, .178635D+04, .136525D+04, .104355D+04, - + .797647D+03, .609817D+03, .466274D+03, .356642D+03, - + .272872D+03, .208925D+03, .159448D+03, .122272D+03, - + .938530D+02, .721403D+02, .555340D+02, .428347D+02, - + .331376D+02, .256921D+02, .199825D+02, .156009D+02, - + .122287D+02, .962918D+01, .761643D+01, .605574D+01, - + .483704D+01, .388157D+01, .312773D+01, .252988D+01, - + .205233D+01, .167027D+01, .135946D+01, .110878D+01, - + .902951D+00, .735192D+00, .597500D+00, .484384D+00, - + .391386D+00, .314991D+00, .252316D+00, .201032D+00, - + .159215D+00, .125271D+00, .978504D-01, .758347D-01, - + .582769D-01, .443656D-01, .334847D-01, .249562D-01 / - DATA (UPDI(I),I=4161,4212) / - + .183821D-01, .133683D-01, .958856D-02, .677523D-02, - + .470950D-02, .321577D-02, .215321D-02, .141125D-02, - + .902323D-03, .564498D-03, .342124D-03, .201073D-03, - + .114228D-03, .626095D-04, .330422D-04, .168319D-04, - + .832123D-05, .403350D-05, .195517D-05, .961735D-06, - + .472528D-06, .221819D-06, .898188D-07, .244859D-07, - + .157847D-08, .000000D+00, .177906D+06, .217433D+06, - + .165776D+06, .126362D+06, .963087D+05, .733843D+05, - + .559103D+05, .425863D+05, .324338D+05, .246953D+05, - + .188011D+05, .143100D+05, .108906D+05, .828626D+04, - + .630414D+04, .479504D+04, .364696D+04, .277319D+04, - + .210872D+04, .160320D+04, .121894D+04, .926697D+03, - + .704622D+03, .535784D+03, .407515D+03, .310022D+03 / - DATA (UPDI(I),I=4213,4264) / - + .236009D+03, .179055D+03, .136499D+03, .104147D+03, - + .795695D+02, .608789D+02, .466676D+02, .358785D+02, - + .276428D+02, .213639D+02, .165738D+02, .129086D+02, - + .101000D+02, .793803D+01, .627156D+01, .497791D+01, - + .396969D+01, .317896D+01, .255563D+01, .206072D+01, - + .166719D+01, .134898D+01, .109395D+01, .885839D+00, - + .717272D+00, .579771D+00, .467510D+00, .375779D+00, - + .300881D+00, .239800D+00, .190116D+00, .149837D+00, - + .117330D+00, .912173D-01, .703683D-01, .538321D-01, - + .407989D-01, .306586D-01, .227515D-01, .166873D-01, - + .120857D-01, .863402D-02, .607738D-02, .420909D-02, - + .286446D-02, .191233D-02, .125046D-02, .798286D-03, - + .499282D-03, .303095D-03, .178960D-03, .102600D-03 / - DATA (UPDI(I),I=4265,4316) / - + .571598D-04, .309932D-04, .164832D-04, .868520D-05, - + .459103D-05, .246193D-05, .133344D-05, .704166D-06, - + .343325D-06, .139833D-06, .374356D-07, .248558D-08, - + .000000D+00, .379394D+06, .291969D+06, .221502D+06, - + .167994D+06, .127388D+06, .965653D+05, .731860D+05, - + .554490D+05, .420022D+05, .318059D+05, .240799D+05, - + .182246D+05, .137904D+05, .104317D+05, .788956D+04, - + .596506D+04, .450927D+04, .340778D+04, .257503D+04, - + .194530D+04, .146950D+04, .110988D+04, .838298D+03, - + .633135D+03, .478261D+03, .361315D+03, .273124D+03, - + .205714D+03, .155686D+03, .117917D+03, .894209D+02, - + .679030D+02, .516564D+02, .394105D+02, .301293D+02, - + .231047D+02, .177841D+02, .137428D+02, .106683D+02 / - DATA (UPDI(I),I=4317,4368) / - + .831905D+01, .652133D+01, .513604D+01, .406423D+01, - + .322988D+01, .257700D+01, .206249D+01, .165643D+01, - + .133057D+01, .107139D+01, .861503D+00, .692790D+00, - + .556219D+00, .445557D+00, .355813D+00, .283081D+00, - + .224202D+00, .176653D+00, .138383D+00, .107713D+00, - + .832482D-01, .638477D-01, .485645D-01, .365967D-01, - + .273461D-01, .201785D-01, .147164D-01, .105976D-01, - + .752736D-02, .526723D-02, .362578D-02, .245162D-02, - + .162535D-02, .105460D-02, .667171D-03, .412734D-03, - + .247035D-03, .143077D-03, .798080D-04, .426766D-04, - + .217310D-04, .104709D-04, .473547D-05, .198689D-05, - + .767357D-06, .272657D-06, .890570D-07, .287944D-07, - + .975608D-08, .283424D-08, .124138D-09, .000000D+00 / - DATA (UPDI(I),I=4369,4420) / - + .503065D+06, .385576D+06, .291140D+06, .219757D+06, - + .165831D+06, .125090D+06, .943313D+05, .711079D+05, - + .535867D+05, .403665D+05, .303991D+05, .228836D+05, - + .172212D+05, .129547D+05, .974252D+04, .732393D+04, - + .550434D+04, .413526D+04, .310601D+04, .233216D+04, - + .175084D+04, .131408D+04, .986204D+03, .740022D+03, - + .555326D+03, .416733D+03, .312884D+03, .234020D+03, - + .175874D+03, .132266D+03, .995848D+02, .750739D+02, - + .566926D+02, .429338D+02, .325777D+02, .247947D+02, - + .189406D+02, .145256D+02, .111903D+02, .865993D+01, - + .673719D+01, .526612D+01, .413596D+01, .326251D+01, - + .258391D+01, .205298D+01, .163701D+01, .130563D+01, - + .104400D+01, .833695D+00, .665892D+00, .531067D+00 / - DATA (UPDI(I),I=4421,4472) / - + .422620D+00, .335321D+00, .265082D+00, .208632D+00, - + .163370D+00, .127199D+00, .984118D-01, .756083D-01, - + .576485D-01, .435961D-01, .326639D-01, .242694D-01, - + .178073D-01, .129148D-01, .924914D-02, .653410D-02, - + .454810D-02, .311481D-02, .209591D-02, .138332D-02, - + .894060D-03, .563897D-03, .348267D-03, .208559D-03, - + .121277D-03, .683109D-04, .372361D-04, .196338D-04, - + .100557D-04, .504117D-05, .250094D-05, .124748D-05, - + .629447D-06, .313200D-06, .146324D-06, .575858D-07, - + .149180D-07, .985638D-09, .000000D+00, .656866D+06, - + .501514D+06, .376974D+06, .283244D+06, .212748D+06, - + .159724D+06, .119874D+06, .899236D+05, .674324D+05, - + .505424D+05, .378691D+05, .283598D+05, .212306D+05 / - DATA (UPDI(I),I=4473,4524) / - + .158859D+05, .118824D+05, .888355D+04, .663926D+04, - + .495965D+04, .370378D+04, .276475D+04, .206327D+04, - + .153923D+04, .114809D+04, .856127D+03, .638385D+03, - + .475976D+03, .355033D+03, .263760D+03, .196891D+03, - + .147064D+03, .109960D+03, .823159D+02, .617209D+02, - + .464083D+02, .349596D+02, .264141D+02, .200299D+02, - + .152482D+02, .116605D+02, .895735D+01, .691738D+01, - + .536740D+01, .418478D+01, .327716D+01, .257690D+01, - + .203286D+01, .160962D+01, .127484D+01, .101241D+01, - + .802986D+00, .637084D+00, .504752D+00, .399073D+00, - + .314614D+00, .247142D+00, .193301D+00, .150433D+00, - + .116414D+00, .895262D-01, .683729D-01, .518254D-01, - + .389649D-01, .290252D-01, .214427D-01, .156437D-01 / - DATA (UPDI(I),I=4525,4576) / - + .112817D-01, .803462D-02, .564504D-02, .390824D-02, - + .266275D-02, .178291D-02, .117141D-02, .754138D-03, - + .474223D-03, .292428D-03, .175245D-03, .102339D-03, - + .582156D-04, .323250D-04, .175879D-04, .946387D-05, - + .509393D-05, .276786D-05, .152499D-05, .839915D-06, - + .444280D-06, .213181D-06, .836247D-07, .211759D-07, - + .144712D-08, .000000D+00, .845857D+06, .643408D+06, - + .481522D+06, .360200D+06, .269338D+06, .201291D+06, - + .150373D+06, .112275D+06, .837932D+05, .625024D+05, - + .466008D+05, .347254D+05, .258647D+05, .192542D+05, - + .143267D+05, .106543D+05, .791986D+04, .588396D+04, - + .436965D+04, .324339D+04, .240660D+04, .178489D+04, - + .132344D+04, .980943D+03, .726982D+03, .538658D+03 / - DATA (UPDI(I),I=4577,4628) / - + .399251D+03, .294684D+03, .218544D+03, .162160D+03, - + .120437D+03, .895482D+02, .666829D+02, .497928D+02, - + .372466D+02, .279437D+02, .210395D+02, .159027D+02, - + .120740D+02, .920872D+01, .706071D+01, .543960D+01, - + .421096D+01, .327441D+01, .255670D+01, .200291D+01, - + .157502D+01, .123891D+01, .977259D+00, .769930D+00, - + .606838D+00, .477665D+00, .375234D+00, .293945D+00, - + .229458D+00, .178358D+00, .137953D+00, .106109D+00, - + .811115D-01, .615785D-01, .464008D-01, .346833D-01, - + .256858D-01, .188668D-01, .136856D-01, .981364D-02, - + .694994D-02, .485607D-02, .334391D-02, .226643D-02, - + .151008D-02, .987699D-03, .633428D-03, .397185D-03, - + .244596D-03, .146732D-03, .860826D-04, .494583D-04 / - DATA (UPDI(I),I=4629,4680) / - + .279494D-04, .156357D-04, .875184D-05, .495007D-05, - + .283656D-05, .163811D-05, .931265D-06, .499590D-06, - + .238896D-06, .919939D-07, .226750D-07, .158188D-08, - + .000000D+00, .107543D+07, .815088D+06, .607423D+06, - + .452432D+06, .336834D+06, .250624D+06, .186390D+06, - + .138535D+06, .102916D+06, .764074D+05, .566979D+05, - + .420460D+05, .311642D+05, .230839D+05, .170898D+05, - + .126440D+05, .934992D+04, .690967D+04, .510379D+04, - + .376762D+04, .278005D+04, .205023D+04, .151146D+04, - + .111378D+04, .820534D+03, .604306D+03, .445170D+03, - + .326507D+03, .240618D+03, .177399D+03, .130900D+03, - + .966893D+02, .715217D+02, .530482D+02, .394124D+02, - + .293663D+02, .219583D+02, .164824D+02, .124273D+02 / - DATA (UPDI(I),I=4681,4732) / - + .941233D+01, .716669D+01, .548295D+01, .421516D+01, - + .325512D+01, .252424D+01, .196401D+01, .153404D+01, - + .119858D+01, .939194D+00, .735071D+00, .575601D+00, - + .450170D+00, .351388D+00, .273536D+00, .212198D+00, - + .163926D+00, .126018D+00, .963437D-01, .732058D-01, - + .552470D-01, .413851D-01, .307540D-01, .226435D-01, - + .165365D-01, .119264D-01, .850356D-02, .598837D-02, - + .416113D-02, .284998D-02, .192167D-02, .127414D-02, - + .829723D-03, .530165D-03, .331574D-03, .203992D-03, - + .122556D-03, .722651D-04, .419445D-04, .241061D-04, - + .138237D-04, .798835D-05, .468225D-05, .277315D-05, - + .164087D-05, .943696D-06, .505960D-06, .239034D-06, - + .899838D-07, .215663D-07, .153122D-08, .000000D+00 / - DATA (UPDI(I),I=4733,4784) / - + .135121D+07, .102053D+07, .757389D+06, .561778D+06, - + .416471D+06, .308550D+06, .228471D+06, .169063D+06, - + .125032D+06, .924053D+05, .682529D+05, .503781D+05, - + .371625D+05, .273942D+05, .201814D+05, .148571D+05, - + .109309D+05, .803657D+04, .590520D+04, .433611D+04, - + .318229D+04, .233402D+04, .171109D+04, .125375D+04, - + .918344D+03, .672380D+03, .492376D+03, .358923D+03, - + .262890D+03, .192617D+03, .141235D+03, .103659D+03, - + .761825D+02, .561378D+02, .414330D+02, .306670D+02, - + .227775D+02, .169825D+02, .127180D+02, .956738D+01, - + .723549D+01, .549819D+01, .419835D+01, .322035D+01, - + .248055D+01, .191715D+01, .148756D+01, .115459D+01, - + .898842D+00, .698928D+00, .543792D+00, .422595D+00 / - DATA (UPDI(I),I=4785,4836) / - + .327791D+00, .253579D+00, .195502D+00, .150105D+00, - + .114693D+00, .871588D-01, .658318D-01, .493883D-01, - + .367793D-01, .271723D-01, .198902D-01, .144423D-01, - + .103563D-01, .734216D-02, .514156D-02, .355311D-02, - + .242057D-02, .162380D-02, .107153D-02, .694825D-03, - + .442450D-03, .276092D-03, .169769D-03, .102203D-03, - + .606027D-04, .355434D-04, .207593D-04, .121692D-04, - + .721639D-05, .434081D-05, .262496D-05, .157226D-05, - + .906013D-06, .482307D-06, .224292D-06, .824176D-07, - + .192100D-07, .138636D-08, .000000D+00, .167902D+07, - + .126380D+07, .934149D+06, .690064D+06, .509462D+06, - + .375865D+06, .277134D+06, .204190D+06, .150351D+06, - + .110626D+06, .813443D+05, .597675D+05, .438848D+05 / - DATA (UPDI(I),I=4837,4888) / - + .321977D+05, .236071D+05, .172949D+05, .126619D+05, - + .926272D+04, .677163D+04, .494669D+04, .361137D+04, - + .263462D+04, .192102D+04, .139983D+04, .101961D+04, - + .742277D+03, .540425D+03, .391610D+03, .285127D+03, - + .207653D+03, .151330D+03, .110381D+03, .806144D+02, - + .590284D+02, .432877D+02, .318332D+02, .234900D+02, - + .173994D+02, .129447D+02, .967394D+01, .726790D+01, - + .548643D+01, .416178D+01, .317133D+01, .242678D+01, - + .186334D+01, .143645D+01, .110769D+01, .856809D+00, - + .661985D+00, .511792D+00, .395234D+00, .304661D+00, - + .234232D+00, .179481D+00, .136967D+00, .104024D+00, - + .785792D-01, .589993D-01, .440017D-01, .325764D-01, - + .239275D-01, .174136D-01, .125716D-01, .896329D-02 / - DATA (UPDI(I),I=4889,4940) / - + .631868D-02, .440024D-02, .302427D-02, .204945D-02, - + .136798D-02, .898550D-03, .580319D-03, .368380D-03, - + .229445D-03, .141083D-03, .851568D-04, .508059D-04, - + .301138D-04, .178591D-04, .106738D-04, .646272D-05, - + .396087D-05, .242592D-05, .146021D-05, .838566D-06, - + .441676D-06, .201797D-06, .723385D-07, .164073D-07, - + .120272D-08, .000000D+00, .206467D+07, .154893D+07, - + .114039D+07, .839063D+06, .616964D+06, .453316D+06, - + .332854D+06, .244215D+06, .179057D+06, .131178D+06, - + .960335D+05, .702468D+05, .513466D+05, .374999D+05, - + .273668D+05, .199548D+05, .145393D+05, .105844D+05, - + .769959D+04, .559634D+04, .406482D+04, .295007D+04, - + .213970D+04, .155083D+04, .112347D+04, .813350D+03 / - DATA (UPDI(I),I=4941,4992) / - + .588849D+03, .424237D+03, .307099D+03, .222345D+03, - + .161075D+03, .116784D+03, .847709D+02, .616912D+02, - + .449591D+02, .328552D+02, .240910D+02, .177313D+02, - + .131075D+02, .973285D+01, .726524D+01, .544918D+01, - + .410695D+01, .310944D+01, .236416D+01, .180363D+01, - + .138157D+01, .105859D+01, .813661D+00, .624687D+00, - + .479942D+00, .368341D+00, .282184D+00, .215625D+00, - + .164220D+00, .124566D+00, .940402D-01, .706153D-01, - + .527068D-01, .390784D-01, .287631D-01, .210045D-01, - + .151982D-01, .109096D-01, .773410D-02, .542157D-02, - + .375470D-02, .256674D-02, .173042D-02, .114941D-02, - + .751643D-03, .483613D-03, .306138D-03, .190410D-03, - + .117142D-03, .709335D-04, .426007D-04, .255185D-04 / - DATA (UPDI(I),I=4993,5044) / - + .153521D-04, .933109D-05, .574386D-05, .356702D-05, - + .220026D-05, .132462D-05, .755559D-06, .392909D-06, - + .176176D-06, .615998D-07, .136063D-07, .101262D-08, - + .000000D+00, .251394D+07, .187986D+07, .137870D+07, - + .101045D+07, .740048D+06, .541578D+06, .396050D+06, - + .289388D+06, .211294D+06, .154142D+06, .112362D+06, - + .818341D+05, .595528D+05, .432989D+05, .314555D+05, - + .228305D+05, .165568D+05, .119960D+05, .868442D+04, - + .628128D+04, .453964D+04, .327804D+04, .236539D+04, - + .170548D+04, .122896D+04, .884925D+03, .637170D+03, - + .456471D+03, .328577D+03, .236542D+03, .170370D+03, - + .122802D+03, .886117D+02, .641018D+02, .464335D+02, - + .337260D+02, .245776D+02, .179777D+02, .132071D+02 / - DATA (UPDI(I),I=5045,5096) / - + .974568D+01, .722930D+01, .538822D+01, .403549D+01, - + .303614D+01, .229392D+01, .173904D+01, .132378D+01, - + .100794D+01, .769923D+00, .587432D+00, .448538D+00, - + .342131D+00, .260508D+00, .197857D+00, .149781D+00, - + .112935D+00, .847525D-01, .632655D-01, .469439D-01, - + .346028D-01, .253214D-01, .183848D-01, .132264D-01, - + .944037D-02, .665477D-02, .463903D-02, .319527D-02, - + .217277D-02, .145742D-02, .963518D-03, .627432D-03, - + .402292D-03, .254049D-03, .157864D-03, .972243D-04, - + .590948D-04, .357392D-04, .216322D-04, .131868D-04, - + .813104D-05, .506975D-05, .317637D-05, .196517D-05, - + .117942D-05, .666702D-06, .341833D-06, .150323D-06, - + .512697D-07, .110376D-07, .833716D-09, .000000D+00 / - DATA (UPDI(I),I=5097,5148) / - + .506081D+05, .752777D+05, .584594D+05, .453988D+05, - + .352561D+05, .273796D+05, .212628D+05, .165127D+05, - + .128239D+05, .995921D+04, .773459D+04, .600700D+04, - + .466539D+04, .362353D+04, .281444D+04, .218611D+04, - + .169816D+04, .131922D+04, .102494D+04, .796397D+03, - + .618906D+03, .481058D+03, .373996D+03, .290842D+03, - + .226252D+03, .176078D+03, .137100D+03, .106437D+03, - + .829952D+02, .647719D+02, .506014D+02, .395782D+02, - + .309991D+02, .243356D+02, .191278D+02, .150661D+02, - + .118938D+02, .941177D+01, .746565D+01, .593516D+01, - + .472973D+01, .377564D+01, .301822D+01, .241482D+01, - + .193253D+01, .154594D+01, .123636D+01, .985606D+00, - + .784797D+00, .622006D+00, .491479D+00, .386578D+00 / - DATA (UPDI(I),I=5149,5200) / - + .302495D+00, .235329D+00, .181900D+00, .139610D+00, - + .106329D+00, .803069D-01, .601077D-01, .445525D-01, - + .326769D-01, .236956D-01, .169722D-01, .120143D-01, - + .836419D-02, .573101D-02, .385869D-02, .254836D-02, - + .164728D-02, .103958D-02, .638568D-03, .380341D-03, - + .218540D-03, .120298D-03, .632966D-04, .311596D-04, - + .141435D-04, .572195D-05, .191399D-05, .406392D-06, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .128131D+06, - + .100176D+06, .773980D+05, .597959D+05, .461972D+05, - + .356890D+05, .275712D+05, .212985D+05, .164531D+05, - + .127092D+05, .981733D+04, .758305D+04, .585736D+04 / - DATA (UPDI(I),I=5201,5252) / - + .452416D+04, .349450D+04, .269908D+04, .208482D+04, - + .161032D+04, .124391D+04, .960891D+03, .742362D+03, - + .573577D+03, .443254D+03, .342599D+03, .264881D+03, - + .204854D+03, .158512D+03, .122267D+03, .947286D+02, - + .734464D+02, .570025D+02, .442878D+02, .344556D+02, - + .268657D+02, .209730D+02, .164057D+02, .128626D+02, - + .101081D+02, .796315D+01, .628731D+01, .497675D+01, - + .394643D+01, .313432D+01, .249180D+01, .198200D+01, - + .157613D+01, .125347D+01, .993819D+00, .787378D+00, - + .621072D+00, .488587D+00, .382739D+00, .298398D+00, - + .231384D+00, .178354D+00, .136569D+00, .103827D+00, - + .783201D-01, .585904D-01, .434359D-01, .318934D-01, - + .231766D-01, .166551D-01, .118456D-01, .829997D-02 / - DATA (UPDI(I),I=5253,5304) / - + .573444D-02, .390273D-02, .261267D-02, .171829D-02, - + .110790D-02, .699155D-03, .430408D-03, .257736D-03, - + .148948D-03, .830874D-04, .436085D-04, .210350D-04, - + .862630D-05, .220223D-05, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .168878D+06, .131489D+06, - + .101110D+06, .777402D+05, .597710D+05, .459494D+05, - + .353231D+05, .271508D+05, .208687D+05, .160380D+05, - + .123253D+05, .947081D+04, .727728D+04, .559109D+04, - + .429557D+04, .329985D+04, .253497D+04, .194719D+04, - + .149575D+04, .114889D+04, .882555D+03, .677953D+03, - + .520863D+03, .400202D+03, .307569D+03, .236427D+03 / - DATA (UPDI(I),I=5305,5356) / - + .181832D+03, .139376D+03, .107310D+03, .826738D+02, - + .637549D+02, .492137D+02, .380384D+02, .294643D+02, - + .228496D+02, .177544D+02, .138274D+02, .107934D+02, - + .844656D+01, .662473D+01, .520962D+01, .410441D+01, - + .323922D+01, .255927D+01, .202352D+01, .159979D+01, - + .126527D+01, .997776D+00, .786544D+00, .617425D+00, - + .483537D+00, .377187D+00, .292932D+00, .226342D+00, - + .173917D+00, .132802D+00, .100724D+00, .758348D-01, - + .566545D-01, .419671D-01, .308122D-01, .224063D-01, - + .161270D-01, .115005D-01, .809016D-02, .561993D-02, - + .385307D-02, .260453D-02, .173500D-02, .113740D-02, - + .733661D-03, .464881D-03, .289379D-03, .176328D-03, - + .105966D-03, .620930D-04, .356785D-04, .199947D-04 / - DATA (UPDI(I),I=5357,5408) / - + .109378D-04, .577610D-05, .293456D-05, .139717D-05, - + .606562D-06, .218350D-06, .510504D-07, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .219423D+06, .170190D+06, .130293D+06, - + .997309D+05, .763329D+05, .584129D+05, .446968D+05, - + .341947D+05, .261583D+05, .200066D+05, .153006D+05, - + .116992D+05, .894484D+04, .683761D+04, .522650D+04, - + .399424D+04, .305239D+04, .233222D+04, .178193D+04, - + .136129D+04, .103998D+04, .794437D+03, .606928D+03, - + .463670D+03, .354292D+03, .270748D+03, .207003D+03, - + .157708D+03, .120691D+03, .924126D+02, .708245D+02, - + .543285D+02, .417265D+02, .321151D+02, .247456D+02, - + .191034D+02, .147818D+02, .114635D+02, .891302D+01 / - DATA (UPDI(I),I=5409,5460) / - + .694556D+01, .542724D+01, .424902D+01, .333269D+01, - + .261724D+01, .205725D+01, .161719D+01, .127205D+01, - + .997799D+00, .782624D+00, .611385D+00, .476632D+00, - + .370204D+00, .286359D+00, .220439D+00, .168806D+00, - + .128500D+00, .971936D-01, .730022D-01, .544317D-01, - + .402594D-01, .295293D-01, .214647D-01, .154529D-01, - + .110308D-01, .777434D-02, .541606D-02, .372863D-02, - + .253451D-02, .170095D-02, .112585D-02, .735317D-03, - + .473436D-03, .300814D-03, .188216D-03, .117019D-03, - + .716945D-04, .436798D-04, .264472D-04, .160343D-04, - + .971308D-05, .593236D-05, .362390D-05, .221602D-05, - + .133441D-05, .782879D-06, .431484D-06, .215060D-06, - + .891533D-07, .244600D-07, .157835D-08, .000000D+00 / - DATA (UPDI(I),I=5461,5512) / - + .177839D+06, .217403D+06, .165749D+06, .126338D+06, - + .962870D+05, .733649D+05, .558929D+05, .425707D+05, - + .324198D+05, .246828D+05, .187898D+05, .142999D+05, - + .108816D+05, .827815D+04, .629687D+04, .478851D+04, - + .364110D+04, .276793D+04, .210400D+04, .159896D+04, - + .121512D+04, .923268D+03, .701535D+03, .533004D+03, - + .405007D+03, .307757D+03, .233961D+03, .177202D+03, - + .134817D+03, .102617D+03, .781741D+02, .596029D+02, - + .454971D+02, .348012D+02, .266485D+02, .204435D+02, - + .157194D+02, .121139D+02, .935961D+01, .724795D+01, - + .562852D+01, .437966D+01, .341451D+01, .266569D+01, - + .208331D+01, .162851D+01, .127407D+01, .994136D+00, - + .775864D+00, .603184D+00, .468088D+00, .361987D+00 / - DATA (UPDI(I),I=5513,5564) / - + .278854D+00, .213835D+00, .163160D+00, .123789D+00, - + .933456D-01, .699198D-01, .520085D-01, .383884D-01, - + .281109D-01, .204095D-01, .146828D-01, .104794D-01, - + .738926D-02, .515387D-02, .355538D-02, .242407D-02, - + .163373D-02, .108747D-02, .715502D-03, .465049D-03, - + .299049D-03, .189981D-03, .120349D-03, .754908D-04, - + .473357D-04, .296758D-04, .187366D-04, .118865D-04, - + .762623D-05, .489900D-05, .313912D-05, .197063D-05, - + .119333D-05, .672345D-06, .338144D-06, .139328D-06, - + .374160D-07, .248549D-08, .000000D+00, .379357D+06, - + .291936D+06, .221473D+06, .167968D+06, .127364D+06, - + .965442D+05, .731670D+05, .554321D+05, .419869D+05, - + .317922D+05, .240676D+05, .182137D+05, .137806D+05 / - DATA (UPDI(I),I=5565,5616) / - + .104229D+05, .788166D+04, .595798D+04, .450291D+04, - + .340208D+04, .256991D+04, .194070D+04, .146536D+04, - + .110617D+04, .834956D+03, .630127D+03, .475550D+03, - + .358869D+03, .270915D+03, .203718D+03, .153877D+03, - + .116274D+03, .879253D+02, .665386D+02, .504082D+02, - + .382655D+02, .290763D+02, .221341D+02, .168874D+02, - + .129131D+02, .989968D+01, .760705D+01, .586218D+01, - + .452701D+01, .350306D+01, .271485D+01, .210658D+01, - + .163524D+01, .127073D+01, .985025D+00, .763930D+00, - + .590301D+00, .455431D+00, .350249D+00, .268387D+00, - + .204781D+00, .155514D+00, .117465D+00, .882096D-01, - + .658197D-01, .487862D-01, .358954D-01, .262106D-01, - + .189828D-01, .136269D-01, .970833D-02, .683510D-02 / - DATA (UPDI(I),I=5617,5668) / - + .476137D-02, .328100D-02, .223463D-02, .150406D-02, - + .999215D-03, .655304D-03, .423593D-03, .269894D-03, - + .168937D-03, .104558D-03, .632833D-04, .376176D-04, - + .218368D-04, .123817D-04, .679428D-05, .360958D-05, - + .182991D-05, .883976D-06, .398080D-06, .168538D-06, - + .656840D-07, .250336D-07, .939314D-08, .282024D-08, - + .124069D-09, .000000D+00, .503025D+06, .385541D+06, - + .291108D+06, .219728D+06, .165806D+06, .125067D+06, - + .943107D+05, .710895D+05, .535702D+05, .403517D+05, - + .303858D+05, .228717D+05, .172105D+05, .129452D+05, - + .973396D+04, .731625D+04, .549745D+04, .412908D+04, - + .310047D+04, .232719D+04, .174638D+04, .131007D+04, - + .982599D+03, .736780D+03, .552407D+03, .414101D+03 / - DATA (UPDI(I),I=5669,5720) / - + .310510D+03, .231878D+03, .173935D+03, .130509D+03, - + .979888D+02, .736214D+02, .553677D+02, .417223D+02, - + .314677D+02, .237757D+02, .180036D+02, .136630D+02, - + .103957D+02, .792826D+01, .606416D+01, .464841D+01, - + .357074D+01, .274746D+01, .211688D+01, .163193D+01, - + .125967D+01, .970063D+00, .747584D+00, .574129D+00, - + .440340D+00, .336720D+00, .256613D+00, .194775D+00, - + .147177D+00, .110639D+00, .827085D-01, .614525D-01, - + .453672D-01, .332561D-01, .242006D-01, .174733D-01, - + .125086D-01, .889038D-02, .624664D-02, .434475D-02, - + .299086D-02, .203624D-02, .137101D-02, .912011D-03, - + .599581D-03, .389139D-03, .249424D-03, .157558D-03, - + .987884D-04, .609482D-04, .372361D-04, .224972D-04 / - DATA (UPDI(I),I=5721,5772) / - + .135032D-04, .803909D-05, .478166D-05, .283058D-05, - + .167114D-05, .972889D-06, .553005D-06, .296264D-06, - + .143636D-06, .573296D-07, .149082D-07, .985587D-09, - + .000000D+00, .656823D+06, .501476D+06, .376939D+06, - + .283213D+06, .212720D+06, .159699D+06, .119851D+06, - + .899037D+05, .674145D+05, .505264D+05, .378547D+05, - + .283470D+05, .212191D+05, .158756D+05, .118731D+05, - + .887526D+04, .663183D+04, .495299D+04, .369781D+04, - + .275939D+04, .205847D+04, .153491D+04, .114421D+04, - + .852643D+03, .635252D+03, .473155D+03, .352490D+03, - + .261470D+03, .194822D+03, .145192D+03, .108264D+03, - + .807757D+02, .603200D+02, .451315D+02, .337941D+02, - + .253486D+02, .190547D+02, .143550D+02, .108422D+02 / - DATA (UPDI(I),I=5773,5824) / - + .820830D+01, .623266D+01, .474308D+01, .361740D+01, - + .276375D+01, .211468D+01, .161914D+01, .124152D+01, - + .949859D+00, .727405D+00, .555196D+00, .423285D+00, - + .321817D+00, .243891D+00, .184127D+00, .138412D+00, - + .103534D+00, .770277D-01, .569717D-01, .418770D-01, - + .305720D-01, .221616D-01, .159437D-01, .113754D-01, - + .806029D-02, .564776D-02, .391884D-02, .269236D-02, - + .183037D-02, .123135D-02, .819079D-03, .538997D-03, - + .350632D-03, .225657D-03, .143517D-03, .908883D-04, - + .569178D-04, .355102D-04, .220883D-04, .137735D-04, - + .860765D-05, .541912D-05, .341599D-05, .214502D-05, - + .132130D-05, .783929D-06, .432040D-06, .211265D-06, - + .834442D-07, .211690D-07, .144708D-08, .000000D+00 / - DATA (UPDI(I),I=5825,5876) / - + .845810D+06, .643366D+06, .481485D+06, .360167D+06, - + .269308D+06, .201264D+06, .150349D+06, .112253D+06, - + .837739D+05, .624852D+05, .465853D+05, .347116D+05, - + .258523D+05, .192430D+05, .143168D+05, .106454D+05, - + .791186D+04, .587680D+04, .436323D+04, .323763D+04, - + .240143D+04, .178026D+04, .131928D+04, .977211D+03, - + .723629D+03, .535642D+03, .396537D+03, .292243D+03, - + .216343D+03, .160173D+03, .118640D+03, .879209D+02, - + .652072D+02, .484523D+02, .360275D+02, .268338D+02, - + .200281D+02, .149810D+02, .112343D+02, .844456D+01, - + .636649D+01, .481070D+01, .364326D+01, .276424D+01, - + .210061D+01, .159757D+01, .121694D+01, .925034D+00, - + .703945D+00, .533984D+00, .404680D+00, .305888D+00 / - DATA (UPDI(I),I=5877,5928) / - + .230511D+00, .173076D+00, .129415D+00, .963082D-01, - + .712977D-01, .524827D-01, .384005D-01, .279113D-01, - + .201482D-01, .144379D-01, .102622D-01, .724596D-02, - + .506052D-02, .350100D-02, .239908D-02, .162753D-02, - + .109317D-02, .726566D-03, .478170D-03, .311498D-03, - + .201090D-03, .128609D-03, .821347D-04, .520852D-04, - + .330566D-04, .210323D-04, .134803D-04, .869608D-05, - + .565680D-05, .367933D-05, .237011D-05, .148736D-05, - + .890352D-06, .490763D-06, .237533D-06, .918671D-07, - + .226702D-07, .158186D-08, .000000D+00, .107537D+07, - + .815042D+06, .607383D+06, .452396D+06, .336801D+06, - + .250595D+06, .186364D+06, .138512D+06, .102895D+06, - + .763888D+05, .566812D+05, .420311D+05, .311508D+05 / - DATA (UPDI(I),I=5929,5980) / - + .230720D+05, .170790D+05, .126344D+05, .934133D+04, - + .690197D+04, .509690D+04, .376145D+04, .277452D+04, - + .204527D+04, .150702D+04, .110979D+04, .816956D+03, - + .601092D+03, .442282D+03, .323914D+03, .238284D+03, - + .175295D+03, .129003D+03, .949757D+02, .699723D+02, - + .516455D+02, .381414D+02, .282141D+02, .209132D+02, - + .155348D+02, .115686D+02, .863535D+01, .646513D+01, - + .485145D+01, .364888D+01, .274968D+01, .207551D+01, - + .156800D+01, .118666D+01, .896235D+00, .677767D+00, - + .510968D+00, .384920D+00, .289255D+00, .216738D+00, - + .161834D+00, .120357D+00, .890987D-01, .656252D-01, - + .480696D-01, .350039D-01, .253257D-01, .182010D-01, - + .129875D-01, .919385D-02, .646665D-02, .449988D-02 / - DATA (UPDI(I),I=5981,6032) / - + .310278D-02, .211986D-02, .143446D-02, .961571D-03, - + .638301D-03, .419947D-03, .273836D-03, .177249D-03, - + .113933D-03, .733203D-04, .470193D-04, .302855D-04, - + .196288D-04, .128467D-04, .847329D-05, .562551D-05, - + .372213D-05, .242463D-05, .152956D-05, .913865D-06, - + .499608D-06, .238066D-06, .898949D-07, .215629D-07, - + .153120D-08, .000000D+00, .135116D+07, .102049D+07, - + .757345D+06, .561739D+06, .416436D+06, .308519D+06, - + .228443D+06, .169038D+06, .125009D+06, .923852D+05, - + .682349D+05, .503621D+05, .371481D+05, .273814D+05, - + .201699D+05, .148468D+05, .109217D+05, .802833D+04, - + .589782D+04, .432951D+04, .317638D+04, .232872D+04, - + .170635D+04, .124950D+04, .914536D+03, .668964D+03 / - DATA (UPDI(I),I=6033,6084) / - + .489311D+03, .356176D+03, .260421D+03, .190398D+03, - + .139238D+03, .101860D+03, .745610D+02, .546747D+02, - + .401124D+02, .294748D+02, .217011D+02, .160113D+02, - + .118426D+02, .877988D+01, .652872D+01, .486601D+01, - + .363517D+01, .272105D+01, .204030D+01, .153132D+01, - + .115146D+01, .864118D+00, .649420D+00, .486601D+00, - + .364373D+00, .272215D+00, .202805D+00, .150586D+00, - + .111381D+00, .820158D-01, .600956D-01, .437978D-01, - + .317371D-01, .228533D-01, .163488D-01, .116144D-01, - + .818685D-02, .573499D-02, .397537D-02, .273136D-02, - + .186010D-02, .125521D-02, .839556D-03, .556507D-03, - + .365963D-03, .238840D-03, .154998D-03, .100116D-03, - + .648999D-04, .420528D-04, .274437D-04, .180646D-04 / - DATA (UPDI(I),I=6085,6136) / - + .120179D-04, .805368D-05, .541675D-05, .361709D-05, - + .236517D-05, .149026D-05, .884313D-06, .477746D-06, - + .223607D-06, .823553D-07, .192077D-07, .138634D-08, - + .000000D+00, .167896D+07, .126375D+07, .934102D+06, - + .690022D+06, .509424D+06, .375831D+06, .277104D+06, - + .204163D+06, .150327D+06, .110605D+06, .813250D+05, - + .597503D+05, .438694D+05, .321839D+05, .235947D+05, - + .172838D+05, .126520D+05, .925390D+04, .676374D+04, - + .493964D+04, .360507D+04, .262898D+04, .191598D+04, - + .139531D+04, .101557D+04, .738654D+03, .537181D+03, - + .388707D+03, .282524D+03, .205317D+03, .149233D+03, - + .108498D+03, .789224D+02, .575071D+02, .419197D+02, - + .306034D+02, .223848D+02, .164071D+02, .120552D+02 / - DATA (UPDI(I),I=6137,6188) / - + .887821D+01, .655801D+01, .485544D+01, .360330D+01, - + .267949D+01, .199605D+01, .148844D+01, .111211D+01, - + .829334D+00, .619435D+00, .461307D+00, .343374D+00, - + .255030D+00, .188914D+00, .139486D+00, .102604D+00, - + .751478D-01, .547748D-01, .397161D-01, .286359D-01, - + .205204D-01, .146110D-01, .103328D-01, .725145D-02, - + .505843D-02, .349241D-02, .239068D-02, .162267D-02, - + .109186D-02, .728645D-03, .482289D-03, .317021D-03, - + .207095D-03, .134761D-03, .874730D-04, .571098D-04, - + .373669D-04, .246735D-04, .164548D-04, .110882D-04, - + .751555D-05, .509523D-05, .341664D-05, .223272D-05, - + .139995D-05, .822816D-06, .438409D-06, .201313D-06, - + .722950D-07, .164057D-07, .120271D-08, .000000D+00 / - DATA (UPDI(I),I=6189,6240) / - + .206461D+07, .154887D+07, .114034D+07, .839018D+06, - + .616924D+06, .453279D+06, .332822D+06, .244186D+06, - + .179031D+06, .131155D+06, .960128D+05, .702283D+05, - + .513301D+05, .374852D+05, .273537D+05, .199430D+05, - + .145287D+05, .105750D+05, .769118D+04, .558883D+04, - + .405811D+04, .294407D+04, .213434D+04, .154604D+04, - + .111918D+04, .809519D+03, .585423D+03, .421177D+03, - + .304360D+03, .219894D+03, .158880D+03, .114818D+03, - + .830105D+02, .601138D+02, .435463D+02, .315904D+02, - + .229595D+02, .167205D+02, .122061D+02, .893115D+01, - + .655428D+01, .482116D+01, .355467D+01, .262628D+01, - + .194387D+01, .144030D+01, .106940D+01, .792506D+00, - + .588309D+00, .435476D+00, .322224D+00, .237928D+00 / - DATA (UPDI(I),I=6241,6292) / - + .175237D+00, .128661D+00, .941208D-01, .685627D-01, - + .497112D-01, .358588D-01, .257244D-01, .183437D-01, - + .129988D-01, .915034D-02, .639293D-02, .444051D-02, - + .305337D-02, .208233D-02, .140864D-02, .945140D-03, - + .629336D-03, .415997D-03, .273374D-03, .178790D-03, - + .116686D-03, .761216D-04, .500496D-04, .330487D-04, - + .220523D-04, .148688D-04, .101195D-04, .691305D-05, - + .470716D-05, .315871D-05, .205692D-05, .128043D-05, - + .744153D-06, .390574D-06, .175834D-06, .615695D-07, - + .136051D-07, .101261D-08, .000000D+00, .251387D+07, - + .187980D+07, .137865D+07, .101040D+07, .740005D+06, - + .541539D+06, .396015D+06, .289357D+06, .211266D+06, - + .154117D+06, .112340D+06, .818144D+05, .595352D+05 / - DATA (UPDI(I),I=6293,6344) / - + .432831D+05, .314414D+05, .228179D+05, .165456D+05, - + .119859D+05, .867547D+04, .627329D+04, .453251D+04, - + .327167D+04, .235971D+04, .170040D+04, .122443D+04, - + .880881D+03, .633560D+03, .453254D+03, .325703D+03, - + .233976D+03, .168079D+03, .120756D+03, .867851D+02, - + .624708D+02, .449784D+02, .324289D+02, .234226D+02, - + .169510D+02, .122964D+02, .894025D+01, .651927D+01, - + .476489D+01, .349083D+01, .256276D+01, .188488D+01, - + .138783D+01, .102406D+01, .754226D+00, .556500D+00, - + .409457D+00, .301184D+00, .221103D+00, .161916D+00, - + .118215D+00, .860021D-01, .623101D-01, .449386D-01, - + .322482D-01, .230169D-01, .163321D-01, .115177D-01, - + .807009D-02, .561282D-02, .388193D-02, .265844D-02 / - DATA (UPDI(I),I=6345,6396) / - + .180624D-02, .121782D-02, .814849D-03, .541452D-03, - + .357492D-03, .234923D-03, .153866D-03, .100743D-03, - + .660612D-04, .437364D-04, .291282D-04, .196173D-04, - + .133473D-04, .915215D-05, .628392D-05, .428562D-05, - + .287073D-05, .185906D-05, .114709D-05, .658461D-06, - + .340168D-06, .150083D-06, .512486D-07, .110369D-07, - + .833710D-09, .000000D+00, .168722D+07, .131115D+07, - + .100606D+07, .771969D+06, .592349D+06, .454525D+06, - + .348772D+06, .267627D+06, .205363D+06, .157587D+06, - + .120928D+06, .927993D+05, .712152D+05, .546531D+05, - + .419445D+05, .321926D+05, .247094D+05, .189672D+05, - + .145607D+05, .111791D+05, .858408D+04, .659252D+04, - + .506405D+04, .389091D+04, .299045D+04, .229924D+04 / - DATA (UPDI(I),I=6397,6448) / - + .176859D+04, .135611D+04, .104452D+04, .805181D+03, - + .621289D+03, .479962D+03, .371311D+03, .287966D+03, - + .223655D+03, .174152D+03, .136013D+03, .106594D+03, - + .838662D+02, .662672D+02, .526267D+02, .420058D+02, - + .337113D+02, .272073D+02, .220839D+02, .180277D+02, - + .148094D+02, .122158D+02, .101381D+02, .844264D+01, - + .706408D+01, .593146D+01, .499514D+01, .421645D+01, - + .356521D+01, .301776D+01, .255547D+01, .216355D+01, - + .183021D+01, .154598D+01, .130316D+01, .109550D+01, - + .917834D+00, .766523D+00, .636450D+00, .525585D+00, - + .431347D+00, .351526D+00, .284214D+00, .227754D+00, - + .180695D+00, .141759D+00, .109801D+00, .838048D-01, - + .630841D-01, .465380D-01, .336235D-01, .237145D-01 / - DATA (UPDI(I),I=6449,6500) / - + .162624D-01, .107890D-01, .688036D-02, .418609D-02, - + .239381D-02, .127230D-02, .612585D-03, .257708D-03, - + .891593D-04, .226441D-04, .327138D-05, .118915D-06, - + .000000D+00, .253468D+07, .196483D+07, .150313D+07, - + .114959D+07, .879195D+06, .672199D+06, .513933D+06, - + .392806D+06, .300220D+06, .229382D+06, .175253D+06, - + .133852D+06, .102227D+06, .780472D+05, .595837D+05, - + .454720D+05, .347009D+05, .264719D+05, .201936D+05, - + .153991D+05, .117428D+05, .895186D+04, .682448D+04, - + .520139D+04, .396477D+04, .302160D+04, .230340D+04, - + .174932D+04, .133436D+04, .101813D+04, .777444D+03, - + .594073D+03, .454510D+03, .348449D+03, .267483D+03, - + .205784D+03, .158782D+03, .122906D+03, .955133D+02 / - DATA (UPDI(I),I=6501,6552) / - + .745311D+02, .584592D+02, .460823D+02, .365298D+02, - + .291210D+02, .233523D+02, .188336D+02, .152890D+02, - + .124622D+02, .102226D+02, .841425D+01, .695975D+01, - + .577734D+01, .481039D+01, .401484D+01, .335675D+01, - + .280966D+01, .235282D+01, .196993D+01, .164799D+01, - + .137669D+01, .114765D+01, .954166D+00, .790541D+00, - + .652909D+00, .536031D+00, .437673D+00, .355102D+00, - + .286065D+00, .228587D+00, .181011D+00, .141871D+00, - + .109928D+00, .840767D-01, .633377D-01, .470412D-01, - + .342228D-01, .243678D-01, .169280D-01, .114235D-01, - + .745228D-02, .466645D-02, .278490D-02, .155890D-02, - + .809633D-03, .379771D-03, .155196D-03, .519001D-04, - + .126879D-04, .177268D-05, .650142D-07, .000000D+00 / - DATA (UPDI(I),I=6553,6604) / - + .365609D+07, .282529D+07, .215348D+07, .164067D+07, - + .124988D+07, .951714D+06, .724606D+06, .551421D+06, - + .419576D+06, .319090D+06, .242635D+06, .184399D+06, - + .140118D+06, .106410D+06, .807961D+05, .613119D+05, - + .465173D+05, .352715D+05, .267391D+05, .202585D+05, - + .153456D+05, .116172D+05, .879327D+04, .665215D+04, - + .503188D+04, .380426D+04, .287631D+04, .216565D+04, - + .163751D+04, .123815D+04, .936685D+03, .708904D+03, - + .537055D+03, .407594D+03, .309680D+03, .235751D+03, - + .179976D+03, .137811D+03, .105937D+03, .817618D+02, - + .634307D+02, .494536D+02, .387749D+02, .305742D+02, - + .242528D+02, .193489D+02, .155400D+02, .125313D+02, - + .101708D+02, .828303D+01, .677931D+01, .556869D+01 / - DATA (UPDI(I),I=6605,6656) / - + .458827D+01, .378958D+01, .313546D+01, .259718D+01, - + .215228D+01, .178331D+01, .147634D+01, .122046D+01, - + .100678D+01, .828311D+00, .679026D+00, .554891D+00, - + .450680D+00, .364013D+00, .292112D+00, .232721D+00, - + .183871D+00, .143939D+00, .111496D+00, .853625D-01, - + .644926D-01, .479710D-01, .351662D-01, .252384D-01, - + .177169D-01, .121265D-01, .805582D-02, .516907D-02, - + .317932D-02, .186163D-02, .102041D-02, .517975D-03, - + .236775D-03, .940090D-04, .303987D-04, .715664D-05, - + .966727D-06, .353515D-07, .000000D+00, .509532D+07, - + .392432D+07, .297952D+07, .226091D+07, .171531D+07, - + .130062D+07, .985974D+06, .746992D+06, .565801D+06, - + .428284D+06, .324105D+06, .245101D+06, .185300D+06 / - DATA (UPDI(I),I=6657,6708) / - + .139990D+06, .105726D+06, .797885D+05, .601935D+05, - + .453758D+05, .341934D+05, .257464D+05, .193790D+05, - + .145748D+05, .109578D+05, .823219D+04, .618267D+04, - + .463979D+04, .348152D+04, .260063D+04, .195067D+04, - + .146278D+04, .109726D+04, .823227D+03, .618118D+03, - + .464859D+03, .349911D+03, .263860D+03, .199503D+03, - + .151279D+03, .115150D+03, .879942D+02, .675893D+02, - + .521720D+02, .404997D+02, .316171D+02, .248317D+02, - + .196146D+02, .155988D+02, .124545D+02, .100095D+02, - + .807166D+01, .654170D+01, .532100D+01, .434133D+01, - + .355059D+01, .290896D+01, .238596D+01, .195782D+01, - + .160623D+01, .131661D+01, .107764D+01, .880131D+00, - + .716895D+00, .581768D+00, .470613D+00, .378310D+00 / - DATA (UPDI(I),I=6709,6760) / - + .302398D+00, .240122D+00, .189269D+00, .147925D+00, - + .114526D+00, .877150D-01, .663842D-01, .495647D-01, - + .364184D-01, .263635D-01, .186742D-01, .129307D-01, - + .872466D-02, .570902D-02, .360520D-02, .217965D-02, - + .125312D-02, .673182D-03, .334312D-03, .149116D-03, - + .576068D-04, .180505D-04, .410421D-05, .537143D-06, - + .192310D-07, .000000D+00, .689968D+07, .529597D+07, - + .400500D+07, .302679D+07, .228687D+07, .172668D+07, - + .130331D+07, .983060D+06, .741247D+06, .558501D+06, - + .420649D+06, .316575D+06, .238151D+06, .179007D+06, - + .134491D+06, .100957D+06, .757483D+05, .567827D+05, - + .425439D+05, .318459D+05, .238254D+05, .178080D+05, - + .133035D+05, .992924D+04, .740721D+04, .552036D+04 / - DATA (UPDI(I),I=6761,6812) / - + .411299D+04, .304972D+04, .227047D+04, .168959D+04, - + .125746D+04, .935858D+03, .696911D+03, .519733D+03, - + .387868D+03, .289939D+03, .217283D+03, .163289D+03, - + .123168D+03, .932634D+02, .709804D+02, .542862D+02, - + .417524D+02, .322947D+02, .251300D+02, .196672D+02, - + .154970D+02, .122588D+02, .976183D+01, .779921D+01, - + .626261D+01, .504700D+01, .407968D+01, .330569D+01, - + .268314D+01, .218024D+01, .177228D+01, .144036D+01, - + .116952D+01, .948187D+00, .767033D+00, .618800D+00, - + .497307D+00, .398387D+00, .317093D+00, .250940D+00, - + .197250D+00, .153885D+00, .119017D+00, .911679D-01, - + .690677D-01, .516925D-01, .381573D-01, .277069D-01, - + .198153D-01, .138593D-01, .947076D-02, .630258D-02 / - DATA (UPDI(I),I=6813,6864) / - + .406458D-02, .252758D-02, .150315D-02, .849133D-03, - + .447477D-03, .217628D-03, .948414D-04, .357058D-04, - + .108651D-04, .239262D-05, .303916D-06, .103972D-07, - + .000000D+00, .962470D+07, .735671D+07, .553624D+07, - + .416330D+07, .312959D+07, .235081D+07, .176505D+07, - + .132421D+07, .993002D+06, .744019D+06, .557175D+06, - + .416887D+06, .311745D+06, .232904D+06, .173896D+06, - + .129711D+06, .966899D+05, .720010D+05, .535792D+05, - + .398281D+05, .295849D+05, .219521D+05, .162768D+05, - + .120556D+05, .892286D+04, .659636D+04, .487418D+04, - + .358322D+04, .264456D+04, .195057D+04, .143852D+04, - + .106069D+04, .782371D+03, .577842D+03, .426974D+03, - + .315972D+03, .234377D+03, .174318D+03, .130114D+03 / - DATA (UPDI(I),I=6865,6916) / - + .974862D+02, .734073D+02, .555444D+02, .422625D+02, - + .323388D+02, .248936D+02, .192721D+02, .150223D+02, - + .117543D+02, .925881D+01, .731670D+01, .581109D+01, - + .463194D+01, .370306D+01, .296747D+01, .238196D+01, - + .191401D+01, .153849D+01, .123633D+01, .992521D+00, - + .795566D+00, .636230D+00, .507387D+00, .403037D+00, - + .319108D+00, .250984D+00, .196246D+00, .152388D+00, - + .117425D+00, .896832D-01, .678235D-01, .507147D-01, - + .374529D-01, .272707D-01, .195238D-01, .137620D-01, - + .948133D-02, .637823D-02, .417566D-02, .264706D-02, - + .161654D-02, .942992D-03, .521888D-03, .268986D-03, - + .127718D-03, .542139D-04, .198285D-04, .584365D-05, - + .124320D-05, .152688D-06, .471814D-08, .000000D+00 / - DATA (UPDI(I),I=6917,6968) / - + .131204D+08, .998651D+07, .747826D+07, .559565D+07, - + .418487D+07, .312725D+07, .233564D+07, .174292D+07, - + .129984D+07, .968523D+06, .721190D+06, .536501D+06, - + .398830D+06, .296184D+06, .219791D+06, .162925D+06, - + .120675D+06, .892792D+05, .659958D+05, .487263D+05, - + .359440D+05, .264822D+05, .194937D+05, .143316D+05, - + .105270D+05, .772190D+04, .566066D+04, .412723D+04, - + .302079D+04, .220921D+04, .161512D+04, .118039D+04, - + .862779D+03, .631378D+03, .462147D+03, .338741D+03, - + .248829D+03, .183252D+03, .135423D+03, .100448D+03, - + .748735D+02, .560789D+02, .422333D+02, .319855D+02, - + .243684D+02, .186708D+02, .144034D+02, .111526D+02, - + .869361D+01, .679803D+01, .534246D+01, .421353D+01 / - DATA (UPDI(I),I=6969,7020) / - + .333287D+01, .264241D+01, .209834D+01, .166799D+01, - + .132624D+01, .105418D+01, .837033D+00, .663550D+00, - + .524774D+00, .413832D+00, .325011D+00, .254411D+00, - + .197791D+00, .152849D+00, .117285D+00, .892903D-01, - + .673626D-01, .503093D-01, .371405D-01, .270719D-01, - + .194496D-01, .137327D-01, .954345D-02, .647833D-02, - + .429151D-02, .276477D-02, .172337D-02, .103390D-02, - + .591820D-03, .321014D-03, .161896D-03, .750860D-04, - + .310647D-04, .110458D-04, .315585D-05, .649163D-06, - + .769298D-07, .196247D-08, .000000D+00, .175005D+08, - + .132653D+08, .988523D+07, .736023D+07, .547692D+07, - + .407195D+07, .302543D+07, .224580D+07, .166590D+07, - + .123453D+07, .914167D+06, .676231D+06, .499816D+06 / - DATA (UPDI(I),I=7021,7072) / - + .369013D+06, .272203D+06, .200554D+06, .147626D+06, - + .108531D+06, .797105D+05, .584665D+05, .428399D+05, - + .313472D+05, .229135D+05, .167257D+05, .121958D+05, - + .887916D+04, .645938D+04, .467238D+04, .339254D+04, - + .246093D+04, .178418D+04, .129290D+04, .936816D+03, - + .679528D+03, .492916D+03, .357995D+03, .260531D+03, - + .190068D+03, .139124D+03, .102203D+03, .754443D+02, - + .559562D+02, .417276D+02, .312916D+02, .236039D+02, - + .179054D+02, .136757D+02, .104828D+02, .808960D+01, - + .626172D+01, .487111D+01, .380269D+01, .297713D+01, - + .233612D+01, .183594D+01, .144425D+01, .113634D+01, - + .893754D+00, .702157D+00, .550714D+00, .430877D+00, - + .336124D+00, .261107D+00, .202152D+00, .155415D+00 / - DATA (UPDI(I),I=7073,7124) / - + .118751D+00, .900836D-01, .677895D-01, .505419D-01, - + .372961D-01, .271985D-01, .195787D-01, .138873D-01, - + .967675D-02, .663462D-02, .444102D-02, .289948D-02, - + .183995D-02, .112895D-02, .666162D-03, .374717D-03, - + .199534D-03, .986621D-04, .448025D-04, .181196D-04, - + .628672D-05, .174956D-05, .349903D-06, .401047D-07, - + .719211D-09, .000000D+00, .228804D+08, .172732D+08, - + .128104D+08, .949213D+07, .702857D+07, .519954D+07, - + .384364D+07, .283850D+07, .209454D+07, .154394D+07, - + .113710D+07, .836527D+06, .614835D+06, .451355D+06, - + .331013D+06, .242449D+06, .177393D+06, .129618D+06, - + .946035D+05, .689497D+05, .501934D+05, .364853D+05, - + .264890D+05, .192024D+05, .139031D+05, .100491D+05 / - DATA (UPDI(I),I=7125,7176) / - + .725676D+04, .520922D+04, .375330D+04, .270132D+04, - + .194279D+04, .139637D+04, .100335D+04, .721635D+03, - + .518933D+03, .373583D+03, .269449D+03, .194800D+03, - + .141284D+03, .102831D+03, .752010D+02, .552529D+02, - + .408138D+02, .303160D+02, .226498D+02, .170169D+02, - + .128725D+02, .977138D+01, .746763D+01, .572379D+01, - + .440906D+01, .340816D+01, .264190D+01, .205250D+01, - + .159697D+01, .124368D+01, .968683D+00, .754178D+00, - + .586476D+00, .455280D+00, .352546D+00, .272172D+00, - + .209218D+00, .160280D+00, .121912D+00, .921499D-01, - + .691441D-01, .514592D-01, .379382D-01, .276780D-01, - + .199517D-01, .141934D-01, .994673D-02, .684550D-02, - + .463455D-02, .306195D-02, .197237D-02, .123431D-02 / - DATA (UPDI(I),I=7177,7228) / - + .746474D-03, .433890D-03, .240254D-03, .125844D-03, - + .611539D-04, .272666D-04, .108171D-04, .367742D-05, - + .100199D-05, .195961D-06, .217812D-07, .184495D-09, - + .000000D+00, .293706D+08, .220855D+08, .163029D+08, - + .120229D+08, .885978D+07, .652235D+07, .479764D+07, - + .352527D+07, .258804D+07, .189786D+07, .139040D+07, - + .101741D+07, .743713D+06, .542952D+06, .395947D+06, - + .288353D+06, .209749D+06, .152352D+06, .110523D+06, - + .800571D+05, .579130D+05, .418273D+05, .301689D+05, - + .217243D+05, .156218D+05, .112127D+05, .803955D+04, - + .572873D+04, .409705D+04, .292647D+04, .208847D+04, - + .148928D+04, .106151D+04, .757242D+03, .539999D+03, - + .385461D+03, .275625D+03, .197531D+03, .142001D+03 / - DATA (UPDI(I),I=7229,7280) / - + .102433D+03, .742362D+02, .540504D+02, .395613D+02, - + .291163D+02, .215530D+02, .160429D+02, .120232D+02, - + .904113D+01, .684495D+01, .519699D+01, .396543D+01, - + .303618D+01, .233114D+01, .179377D+01, .138227D+01, - + .106611D+01, .822342D+00, .634027D+00, .488235D+00, - + .375305D+00, .287759D+00, .219959D+00, .167397D+00, - + .126961D+00, .955922D-01, .715189D-01, .531118D-01, - + .391166D-01, .285356D-01, .205967D-01, .146870D-01, - + .103336D-01, .716117D-02, .487226D-02, .326056D-02, - + .212860D-02, .135447D-02, .837048D-03, .499727D-03, - + .286620D-03, .156540D-03, .808366D-04, .387077D-04, - + .169973D-04, .663819D-05, .222050D-05, .595256D-06, - + .114430D-06, .123692D-07, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=7281,7332) / - + .370730D+08, .277706D+08, .204061D+08, .149795D+08, - + .109868D+08, .804983D+07, .589264D+07, .430873D+07, - + .314750D+07, .229650D+07, .167383D+07, .121845D+07, - + .885959D+06, .643329D+06, .466582D+06, .337907D+06, - + .244403D+06, .176502D+06, .127292D+06, .916531D+05, - + .658976D+05, .472991D+05, .338995D+05, .242531D+05, - + .173252D+05, .123515D+05, .879523D+04, .622266D+04, - + .441843D+04, .313300D+04, .221919D+04, .157047D+04, - + .111069D+04, .786086D+03, .556055D+03, .393679D+03, - + .279163D+03, .198384D+03, .141398D+03, .101120D+03, - + .726485D+02, .524315D+02, .380379D+02, .277471D+02, - + .203564D+02, .150165D+02, .111532D+02, .831095D+01, - + .623535D+01, .469104D+01, .354678D+01, .269084D+01 / - DATA (UPDI(I),I=7333,7384) / - + .204707D+01, .156072D+01, .119161D+01, .910579D+00, - + .695877D+00, .531547D+00, .405515D+00, .308813D+00, - + .234564D+00, .177617D+00, .133899D+00, .100598D+00, - + .750213D-01, .555910D-01, .408858D-01, .298201D-01, - + .215412D-01, .153949D-01, .108684D-01, .756995D-02, - + .519255D-02, .349628D-02, .231535D-02, .149543D-02, - + .941285D-03, .575295D-03, .339609D-03, .192556D-03, - + .103942D-03, .530381D-04, .250898D-04, .108821D-04, - + .419744D-05, .138648D-05, .367095D-06, .696348D-07, - + .734032D-08, .000000D+00, .000000D+00, .460774D+08, - + .343871D+08, .251555D+08, .183829D+08, .134213D+08, - + .978811D+07, .713141D+07, .518972D+07, .377271D+07, - + .273918D+07, .198652D+07, .143876D+07, .104077D+07 / - DATA (UPDI(I),I=7385,7436) / - + .751798D+06, .542352D+06, .390662D+06, .281006D+06, - + .201802D+06, .144709D+06, .103590D+06, .740399D+05, - + .528237D+05, .376265D+05, .267511D+05, .189874D+05, - + .134480D+05, .951233D+04, .668368D+04, .471287D+04, - + .331818D+04, .233338D+04, .163914D+04, .115054D+04, - + .808090D+03, .567168D+03, .398372D+03, .280221D+03, - + .197515D+03, .139619D+03, .990159D+02, .705389D+02, - + .504779D+02, .363083D+02, .262583D+02, .190983D+02, - + .139664D+02, .102836D+02, .759600D+01, .564938D+01, - + .421292D+01, .315740D+01, .237443D+01, .179050D+01, - + .135311D+01, .102401D+01, .775619D+00, .587518D+00, - + .444824D+00, .336365D+00, .253895D+00, .191150D+00, - + .143466D+00, .107197D+00, .798268D-01, .590025D-01 / - DATA (UPDI(I),I=7437,7488) / - + .433319D-01, .315853D-01, .228306D-01, .163441D-01, - + .115754D-01, .809796D-02, .558888D-02, .379852D-02, - + .253396D-02, .166255D-02, .106372D-02, .663221D-03, - + .401482D-03, .234727D-03, .131798D-03, .704516D-04, - + .355959D-04, .166725D-04, .715949D-05, .273430D-05, - + .894135D-06, .234389D-06, .439695D-07, .453122D-08, - + .000000D+00, .000000D+00, .564582D+08, .419815D+08, - + .305778D+08, .222472D+08, .161702D+08, .117396D+08, - + .851405D+07, .616715D+07, .446212D+07, .322425D+07, - + .232696D+07, .167703D+07, .120705D+07, .867482D+06, - + .622570D+06, .446090D+06, .319159D+06, .227957D+06, - + .162559D+06, .115713D+06, .822296D+05, .583238D+05, - + .412965D+05, .291819D+05, .205842D+05, .144864D+05 / - DATA (UPDI(I),I=7489,7540) / - + .101807D+05, .710555D+04, .497667D+04, .347991D+04, - + .242999D+04, .169485D+04, .118098D+04, .823345D+03, - + .573516D+03, .399746D+03, .278999D+03, .195104D+03, - + .136814D+03, .962447D+02, .680071D+02, .482675D+02, - + .344319D+02, .246950D+02, .178119D+02, .129168D+02, - + .943142D+01, .690794D+01, .509467D+01, .376725D+01, - + .279969D+01, .208775D+01, .156112D+01, .116988D+01, - + .877938D+00, .659425D+00, .495340D+00, .371914D+00, - + .278898D+00, .208775D+00, .155883D+00, .116033D+00, - + .859858D-01, .635078D-01, .465555D-01, .339106D-01, - + .245160D-01, .175761D-01, .124799D-01, .876661D-02, - + .608306D-02, .416407D-02, .280709D-02, .185727D-02, - + .120868D-02, .767010D-03, .474320D-03, .284782D-03 / - DATA (UPDI(I),I=7541,7592) / - + .165137D-03, .919636D-04, .487567D-04, .244322D-04, - + .113495D-04, .483314D-05, .183040D-05, .593344D-06, - + .154145D-06, .286173D-07, .288924D-08, .000000D+00, - + .000000D+00, .682710D+08, .505865D+08, .366892D+08, - + .265790D+08, .192347D+08, .139030D+08, .100379D+08, - + .723806D+07, .521287D+07, .374919D+07, .269300D+07, - + .193152D+07, .138344D+07, .989329D+06, .706441D+06, - + .503599D+06, .358429D+06, .254652D+06, .180617D+06, - + .127863D+06, .903565D+05, .637240D+05, .448586D+05, - + .315119D+05, .220936D+05, .154529D+05, .107919D+05, - + .748328D+04, .520703D+04, .361679D+04, .250842D+04, - + .173746D+04, .120213D+04, .832090D+03, .575369D+03, - + .398061D+03, .275729D+03, .191346D+03, .133142D+03 / - DATA (UPDI(I),I=7593,7644) / - + .929303D+02, .651485D+02, .458723D+02, .324624D+02, - + .230962D+02, .165250D+02, .118871D+02, .860990D+01, - + .625523D+01, .457627D+01, .335663D+01, .247451D+01, - + .183050D+01, .135784D+01, .100945D+01, .751547D+00, - + .560040D+00, .417383D+00, .310935D+00, .231359D+00, - + .171851D+00, .127328D+00, .940546D-01, .691695D-01, - + .507033D-01, .368897D-01, .266693D-01, .191377D-01, - + .136189D-01, .959915D-02, .669376D-02, .461103D-02, - + .313359D-02, .209724D-02, .137764D-02, .890199D-03, - + .560888D-03, .344403D-03, .205319D-03, .118221D-03, - + .653714D-04, .344137D-04, .171215D-04, .789565D-05, - + .333713D-05, .125400D-05, .403068D-06, .103763D-06, - + .190592D-07, .188843D-08, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=7645,7696) / - + .506081D+05, .757076D+05, .588450D+05, .457445D+05, - + .355662D+05, .276577D+05, .215123D+05, .167365D+05, - + .130246D+05, .101392D+05, .789607D+04, .615186D+04, - + .479535D+04, .374013D+04, .291906D+04, .228000D+04, - + .178243D+04, .139487D+04, .109286D+04, .857392D+03, - + .673699D+03, .530298D+03, .418264D+03, .330659D+03, - + .262088D+03, .208354D+03, .166194D+03, .132651D+03, - + .106677D+03, .861958D+02, .700132D+02, .571988D+02, - + .470266D+02, .389516D+02, .324876D+02, .273120D+02, - + .231522D+02, .197945D+02, .170708D+02, .148479D+02, - + .130247D+02, .115157D+02, .102568D+02, .919671D+01, - + .829504D+01, .751988D+01, .684847D+01, .625461D+01, - + .573010D+01, .525633D+01, .482861D+01, .443772D+01 / - DATA (UPDI(I),I=7697,7748) / - + .407791D+01, .374467D+01, .343454D+01, .314484D+01, - + .287351D+01, .261901D+01, .238013D+01, .215597D+01, - + .194580D+01, .174907D+01, .156530D+01, .139488D+01, - + .123566D+01, .108840D+01, .952776D+00, .828453D+00, - + .715082D+00, .612293D+00, .519688D+00, .436842D+00, - + .363253D+00, .298384D+00, .242265D+00, .193517D+00, - + .151989D+00, .117084D+00, .881954D-01, .647110D-01, - + .460196D-01, .315359D-01, .205853D-01, .126881D-01, - + .723909D-02, .371723D-02, .163888D-02, .567934D-03, - + .126856D-03, .968234D-05, .000000D+00, .128645D+06, - + .100638D+06, .778116D+05, .601667D+05, .465298D+05, - + .359872D+05, .278386D+05, .215384D+05, .166682D+05, - + .129021D+05, .999036D+04, .773823D+04, .599655D+04 / - DATA (UPDI(I),I=7749,7800) / - + .464901D+04, .360650D+04, .279956D+04, .217497D+04, - + .169122D+04, .131653D+04, .102608D+04, .800900D+03, - + .626157D+03, .490503D+03, .385075D+03, .303087D+03, - + .239244D+03, .189490D+03, .150155D+03, .119901D+03, - + .961945D+02, .775908D+02, .629510D+02, .514065D+02, - + .422973D+02, .350517D+02, .292825D+02, .246728D+02, - + .209702D+02, .179822D+02, .155538D+02, .135708D+02, - + .119352D+02, .105758D+02, .943449D+01, .846691D+01, - + .763751D+01, .692148D+01, .629020D+01, .573479D+01, - + .523500D+01, .478583D+01, .437722D+01, .400304D+01, - + .365834D+01, .333937D+01, .304314D+01, .276738D+01, - + .251030D+01, .227051D+01, .204690D+01, .183858D+01, - + .164483D+01, .146497D+01, .129922D+01, .114533D+01 / - DATA (UPDI(I),I=7801,7852) / - + .100390D+01, .874454D+00, .756545D+00, .649694D+00, - + .553429D+00, .467246D+00, .390639D+00, .323046D+00, - + .263842D+00, .212966D+00, .169075D+00, .131947D+00, - + .100969D+00, .755215D-01, .550022D-01, .388034D-01, - + .263650D-01, .170488D-01, .104007D-01, .586547D-02, - + .297236D-02, .129021D-02, .438827D-03, .961628D-04, - + .741416D-05, .000000D+00, .169427D+06, .131982D+06, - + .101552D+06, .781366D+05, .601265D+05, .462681D+05, - + .356089D+05, .274070D+05, .210985D+05, .162441D+05, - + .125100D+05, .963645D+04, .742582D+04, .572429D+04, - + .441503D+04, .340699D+04, .263107D+04, .203340D+04, - + .157310D+04, .121831D+04, .944859D+03, .733888D+03, - + .571101D+03, .445339D+03, .348145D+03, .272925D+03 / - DATA (UPDI(I),I=7853,7904) / - + .214684D+03, .168926D+03, .133958D+03, .106730D+03, - + .855011D+02, .688997D+02, .558917D+02, .456896D+02, - + .376245D+02, .312391D+02, .261659D+02, .221116D+02, - + .188563D+02, .162223D+02, .140807D+02, .123208D+02, - + .108634D+02, .964375D+01, .861316D+01, .773246D+01, - + .697464D+01, .630871D+01, .572497D+01, .520168D+01, - + .473339D+01, .430927D+01, .392277D+01, .356851D+01, - + .324244D+01, .294127D+01, .266249D+01, .240409D+01, - + .216447D+01, .194235D+01, .173663D+01, .154646D+01, - + .137095D+01, .121018D+01, .106179D+01, .926242D+00, - + .802915D+00, .691254D+00, .590672D+00, .500605D+00, - + .420458D+00, .349657D+00, .287588D+00, .233560D+00, - + .187434D+00, .147906D+00, .114698D+00, .871889D-01 / - DATA (UPDI(I),I=7905,7956) / - + .647582D-01, .468133D-01, .327603D-01, .220675D-01, - + .141341D-01, .853238D-02, .475485D-02, .237689D-02, - + .101515D-02, .338570D-03, .727048D-04, .566684D-05, - + .000000D+00, .220009D+06, .170716D+06, .130764D+06, - + .100154D+06, .767118D+05, .587526D+05, .450013D+05, - + .344676D+05, .264030D+05, .202260D+05, .154973D+05, - + .118755D+05, .910291D+04, .697931D+04, .535355D+04, - + .410815D+04, .315454D+04, .242381D+04, .186408D+04, - + .143497D+04, .110609D+04, .853759D+03, .660178D+03, - + .511485D+03, .397247D+03, .309361D+03, .241731D+03, - + .188917D+03, .148807D+03, .117766D+03, .937164D+02, - + .750231D+02, .604660D+02, .491169D+02, .401982D+02, - + .331766D+02, .276288D+02, .232176D+02, .196932D+02 / - DATA (UPDI(I),I=7957,8008) / - + .168541D+02, .145556D+02, .126739D+02, .111214D+02, - + .982631D+01, .873560D+01, .780644D+01, .700951D+01, - + .631153D+01, .570189D+01, .515741D+01, .467216D+01, - + .423455D+01, .383760D+01, .347551D+01, .314391D+01, - + .283922D+01, .255869D+01, .230009D+01, .206161D+01, - + .184178D+01, .163934D+01, .145327D+01, .128250D+01, - + .112697D+01, .984229D+00, .854585D+00, .737308D+00, - + .631739D+00, .537194D+00, .453029D+00, .378572D+00, - + .313191D+00, .256230D+00, .206946D+00, .165137D+00, - + .129541D+00, .998349D-01, .753988D-01, .556176D-01, - + .399137D-01, .277128D-01, .185106D-01, .117459D-01, - + .701830D-02, .386595D-02, .190703D-02, .801745D-03, - + .262403D-03, .552795D-04, .435408D-05, .000000D+00 / - DATA (UPDI(I),I=8009,8060) / - + .177839D+06, .217963D+06, .166251D+06, .126788D+06, - + .966900D+05, .737260D+05, .562166D+05, .428608D+05, - + .326799D+05, .249158D+05, .189987D+05, .144872D+05, - + .110494D+05, .842854D+04, .643166D+04, .490932D+04, - + .374940D+04, .286500D+04, .219102D+04, .167698D+04, - + .128509D+04, .986017D+03, .757831D+03, .583522D+03, - + .450359D+03, .348496D+03, .270571D+03, .210072D+03, - + .164400D+03, .129263D+03, .102203D+03, .812951D+02, - + .651098D+02, .525646D+02, .427626D+02, .350881D+02, - + .290569D+02, .242856D+02, .204917D+02, .174491D+02, - + .149961D+02, .129956D+02, .113509D+02, .998352D+01, - + .883564D+01, .786086D+01, .702747D+01, .629995D+01, - + .566673D+01, .510327D+01, .460307D+01, .415387D+01 / - DATA (UPDI(I),I=8061,8112) / - + .374819D+01, .337985D+01, .304415D+01, .273723D+01, - + .245608D+01, .219826D+01, .196177D+01, .174494D+01, - + .154634D+01, .136481D+01, .119909D+01, .104899D+01, - + .911997D+00, .788257D+00, .676940D+00, .577296D+00, - + .488559D+00, .410012D+00, .340921D+00, .280607D+00, - + .228375D+00, .183450D+00, .145574D+00, .113530D+00, - + .869640D-01, .652596D-01, .478141D-01, .340683D-01, - + .234718D-01, .155482D-01, .977613D-02, .578269D-02, - + .314924D-02, .153337D-02, .634821D-03, .204019D-03, - + .422052D-04, .335835D-05, .000000D+00, .380030D+06, - + .292540D+06, .222014D+06, .168453D+06, .127799D+06, - + .969337D+05, .735161D+05, .557448D+05, .422672D+05, - + .320433D+05, .242926D+05, .184152D+05, .139612D+05 / - DATA (UPDI(I),I=8113,8164) / - + .105847D+05, .802660D+04, .608782D+04, .461924D+04, - + .350630D+04, .266329D+04, .202437D+04, .154034D+04, - + .117337D+04, .895196D+03, .684138D+03, .523995D+03, - + .402343D+03, .309939D+03, .238712D+03, .185329D+03, - + .144562D+03, .113393D+03, .894875D+02, .711154D+02, - + .569786D+02, .460103D+02, .374821D+02, .308240D+02, - + .255903D+02, .214534D+02, .181544D+02, .155085D+02, - + .133611D+02, .116036D+02, .101487D+02, .893228D+01, - + .790348D+01, .702743D+01, .626587D+01, .560588D+01, - + .502132D+01, .450489D+01, .404352D+01, .362910D+01, - + .325495D+01, .291596D+01, .260792D+01, .232750D+01, - + .207199D+01, .183912D+01, .162701D+01, .143403D+01, - + .125880D+01, .109989D+01, .956923D+00, .827308D+00 / - DATA (UPDI(I),I=8165,8216) / - + .711029D+00, .607135D+00, .514772D+00, .433085D+00, - + .361280D+00, .298563D+00, .244204D+00, .197476D+00, - + .157576D+00, .124191D+00, .961656D-01, .731166D-01, - + .544425D-01, .395627D-01, .279451D-01, .190743D-01, - + .125097D-01, .778008D-02, .454719D-02, .244340D-02, - + .117177D-02, .476655D-03, .150110D-03, .304570D-04, - + .245085D-05, .000000D+00, .503751D+06, .386192D+06, - + .291692D+06, .220251D+06, .166274D+06, .125486D+06, - + .946865D+05, .714261D+05, .538717D+05, .406218D+05, - + .306277D+05, .230883D+05, .174045D+05, .131189D+05, - + .988953D+04, .745555D+04, .562218D+04, .424076D+04, - + .320048D+04, .241673D+04, .182657D+04, .138188D+04, - + .104692D+04, .794396D+03, .604033D+03, .460382D+03 / - DATA (UPDI(I),I=8217,8268) / - + .352005D+03, .269039D+03, .207288D+03, .160459D+03, - + .124906D+03, .978311D+02, .771671D+02, .613775D+02, - + .492095D+02, .398117D+02, .325212D+02, .268255D+02, - + .223493D+02, .187993D+02, .159663D+02, .136780D+02, - + .118132D+02, .102761D+02, .899596D+01, .791757D+01, - + .700291D+01, .621104D+01, .552769D+01, .492516D+01, - + .439538D+01, .392445D+01, .350366D+01, .312585D+01, - + .278548D+01, .247802D+01, .219981D+01, .194787D+01, - + .171971D+01, .151320D+01, .132651D+01, .115811D+01, - + .100637D+01, .870743D+00, .748593D+00, .639741D+00, - + .543132D+00, .457825D+00, .382892D+00, .317478D+00, - + .260740D+00, .211915D+00, .170250D+00, .134933D+00, - + .105606D+00, .811793D-01, .612527D-01, .452444D-01 / - DATA (UPDI(I),I=8269,8320) / - + .326009D-01, .228209D-01, .154261D-01, .100119D-01, - + .615534D-02, .355218D-02, .188161D-02, .887699D-03, - + .354246D-03, .109088D-03, .216579D-04, .176514D-05, - + .000000D+00, .657604D+06, .502177D+06, .377567D+06, - + .283775D+06, .213224D+06, .160150D+06, .120255D+06, - + .902654D+05, .677384D+05, .508164D+05, .381144D+05, - + .285794D+05, .214272D+05, .160618D+05, .120398D+05, - + .902444D+04, .676533D+04, .507245D+04, .380471D+04, - + .285504D+04, .214406D+04, .161150D+04, .121274D+04, - + .913977D+03, .690152D+03, .522316D+03, .396512D+03, - + .300840D+03, .230105D+03, .176824D+03, .136642D+03, - + .106250D+03, .832085D+02, .657205D+02, .523310D+02, - + .420563D+02, .341342D+02, .279818D+02, .231734D+02 / - DATA (UPDI(I),I=8321,8372) / - + .193801D+02, .163675D+02, .139453D+02, .119797D+02, - + .103661D+02, .902746D+01, .790414D+01, .695504D+01, - + .613663D+01, .543332D+01, .481594D+01, .427561D+01, - + .379766D+01, .337278D+01, .299335D+01, .265342D+01, - + .234812D+01, .207349D+01, .182629D+01, .160378D+01, - + .140365D+01, .122387D+01, .106272D+01, .918441D+00, - + .790306D+00, .675651D+00, .574146D+00, .484652D+00, - + .406154D+00, .337665D+00, .278285D+00, .227136D+00, - + .183431D+00, .146407D+00, .115249D+00, .895724D-01, - + .683521D-01, .511807D-01, .375018D-01, .267931D-01, - + .185864D-01, .124418D-01, .799071D-02, .485625D-02, - + .276698D-02, .144478D-02, .670514D-03, .262498D-03, - + .790575D-04, .153656D-04, .126840D-05, .000000D+00 / - DATA (UPDI(I),I=8373,8424) / - + .846650D+06, .644119D+06, .482160D+06, .360771D+06, - + .269849D+06, .201749D+06, .150783D+06, .112642D+06, - + .841215D+05, .627962D+05, .468637D+05, .349607D+05, - + .260752D+05, .194424D+05, .144951D+05, .108049D+05, - + .805452D+04, .600437D+04, .447730D+04, .333963D+04, - + .249263D+04, .186178D+04, .139217D+04, .104238D+04, - + .781895D+03, .587755D+03, .443142D+03, .333863D+03, - + .253584D+03, .193504D+03, .148488D+03, .114660D+03, - + .891793D+02, .699644D+02, .553446D+02, .441951D+02, - + .356491D+02, .290500D+02, .239199D+02, .198933D+02, - + .167103D+02, .141625D+02, .121033D+02, .104194D+02, - + .902785D+01, .786445D+01, .688520D+01, .604411D+01, - + .532424D+01, .469509D+01, .414694D+01, .366442D+01 / - DATA (UPDI(I),I=8425,8476) / - + .323763D+01, .285851D+01, .252069D+01, .221900D+01, - + .194919D+01, .170776D+01, .149175D+01, .129864D+01, - + .112624D+01, .972682D+00, .836044D+00, .715465D+00, - + .608260D+00, .513963D+00, .431367D+00, .359397D+00, - + .297022D+00, .243307D+00, .197356D+00, .158368D+00, - + .125577D+00, .981815D-01, .757746D-01, .574001D-01, - + .426513D-01, .310008D-01, .219603D-01, .150961D-01, - + .100070D-01, .635964D-02, .382044D-02, .214913D-02, - + .110614D-02, .504996D-03, .193967D-03, .571516D-04, - + .108823D-04, .909745D-06, .000000D+00, .107628D+07, - + .815852D+06, .608108D+06, .453045D+06, .337382D+06, - + .251115D+06, .186829D+06, .138928D+06, .103267D+06, - + .767220D+05, .569792D+05, .422976D+05, .313892D+05 / - DATA (UPDI(I),I=8477,8528) / - + .232851D+05, .172696D+05, .128047D+05, .949355D+04, - + .703800D+04, .521845D+04, .387004D+04, .287153D+04, - + .213192D+04, .158440D+04, .117890D+04, .878678D+03, - + .656228D+03, .491523D+03, .367822D+03, .277509D+03, - + .210341D+03, .160326D+03, .122978D+03, .950201D+02, - + .740676D+02, .582217D+02, .462090D+02, .370533D+02, - + .300222D+02, .245841D+02, .203365D+02, .169938D+02, - + .143294D+02, .121845D+02, .104372D+02, .899840D+01, - + .779994D+01, .679489D+01, .593497D+01, .520193D+01, - + .456401D+01, .401071D+01, .352597D+01, .309933D+01, - + .272231D+01, .238816D+01, .209140D+01, .182750D+01, - + .159273D+01, .138392D+01, .119838D+01, .103374D+01, - + .887982D+00, .759090D+00, .646055D+00, .546193D+00 / - DATA (UPDI(I),I=8529,8580) / - + .458915D+00, .382961D+00, .317209D+00, .260601D+00, - + .212178D+00, .171038D+00, .136375D+00, .107430D+00, - + .834219D-01, .639327D-01, .480744D-01, .354477D-01, - + .255571D-01, .179497D-01, .122271D-01, .802602D-02, - + .504704D-02, .299685D-02, .166435D-02, .844376D-03, - + .379215D-03, .142919D-03, .412114D-04, .769326D-05, - + .651243D-06, .000000D+00, .135213D+07, .102135D+07, - + .758123D+06, .562435D+06, .417059D+06, .309076D+06, - + .228941D+06, .169483D+06, .125408D+06, .927417D+05, - + .685536D+05, .506469D+05, .374027D+05, .276089D+05, - + .203732D+05, .150284D+05, .110839D+05, .817316D+04, - + .602714D+04, .444494D+04, .327940D+04, .242065D+04, - + .178837D+04, .132267D+04, .979802D+03, .727190D+03 / - DATA (UPDI(I),I=8581,8632) / - + .541238D+03, .402407D+03, .301652D+03, .227169D+03, - + .172039D+03, .131121D+03, .100673D+03, .779910D+02, - + .609363D+02, .480809D+02, .383361D+02, .308920D+02, - + .251625D+02, .207082D+02, .172176D+02, .144467D+02, - + .122243D+02, .104206D+02, .894059D+01, .771215D+01, - + .668570D+01, .581077D+01, .506789D+01, .442413D+01, - + .386823D+01, .338350D+01, .295894D+01, .258568D+01, - + .225662D+01, .196597D+01, .170894D+01, .148161D+01, - + .128059D+01, .110302D+01, .946402D+00, .808592D+00, - + .687465D+00, .581895D+00, .489211D+00, .408719D+00, - + .339119D+00, .279258D+00, .228060D+00, .184557D+00, - + .147847D+00, .117132D+00, .916652D-01, .706945D-01, - + .537983D-01, .401560D-01, .293812D-01, .210118D-01 / - DATA (UPDI(I),I=8633,8684) / - + .146311D-01, .987559D-02, .641895D-02, .399385D-02, - + .234398D-02, .128513D-02, .642646D-03, .283920D-03, - + .105005D-03, .296421D-04, .542881D-05, .465277D-06, - + .000000D+00, .168000D+07, .126468D+07, .934935D+06, - + .690768D+06, .510091D+06, .376427D+06, .277637D+06, - + .204640D+06, .150754D+06, .110986D+06, .816654D+05, - + .600544D+05, .441410D+05, .324265D+05, .238114D+05, - + .174772D+05, .128246D+05, .940791D+04, .690112D+04, - + .506216D+04, .371431D+04, .272637D+04, .200277D+04, - + .147264D+04, .108447D+04, .800035D+03, .591840D+03, - + .437292D+03, .325779D+03, .243822D+03, .183510D+03, - + .139008D+03, .106085D+03, .816988D+02, .634652D+02, - + .497964D+02, .394890D+02, .316546D+02, .256528D+02 / - DATA (UPDI(I),I=8685,8736) / - + .210075D+02, .173821D+02, .145152D+02, .122242D+02, - + .103713D+02, .885608D+01, .760279D+01, .655928D+01, - + .567310D+01, .492361D+01, .427684D+01, .372077D+01, - + .323815D+01, .281748D+01, .244951D+01, .212680D+01, - + .184330D+01, .159399D+01, .137473D+01, .118196D+01, - + .101268D+01, .864257D+00, .734442D+00, .621028D+00, - + .522785D+00, .437068D+00, .363094D+00, .299536D+00, - + .245223D+00, .199074D+00, .160120D+00, .127471D+00, - + .100343D+00, .780101D-01, .597517D-01, .451507D-01, - + .334524D-01, .242872D-01, .172278D-01, .118931D-01, - + .795410D-02, .511917D-02, .315139D-02, .182802D-02, - + .989403D-03, .487669D-03, .211949D-03, .769318D-04, - + .212674D-04, .382388D-05, .331763D-06, .000000D+00 / - DATA (UPDI(I),I=8737,8788) / - + .206572D+07, .154987D+07, .114123D+07, .839816D+06, - + .617637D+06, .453917D+06, .333392D+06, .244695D+06, - + .179486D+06, .131562D+06, .963761D+05, .705527D+05, - + .516196D+05, .377436D+05, .275842D+05, .201487D+05, - + .147122D+05, .107385D+05, .783694D+04, .571870D+04, - + .417379D+04, .304707D+04, .222604D+04, .162765D+04, - + .119179D+04, .874114D+03, .642856D+03, .472142D+03, - + .349653D+03, .260135D+03, .194628D+03, .146566D+03, - + .111205D+03, .851593D+02, .657885D+02, .513437D+02, - + .405052D+02, .323067D+02, .260540D+02, .212348D+02, - + .174882D+02, .145365D+02, .121857D+02, .102910D+02, - + .874667D+01, .747360D+01, .641731D+01, .552355D+01, - + .477058D+01, .412349D+01, .356956D+01, .309101D+01 / - DATA (UPDI(I),I=8789,8840) / - + .267588D+01, .231458D+01, .199936D+01, .172392D+01, - + .148303D+01, .127236D+01, .108820D+01, .927414D+00, - + .787274D+00, .665429D+00, .559613D+00, .468508D+00, - + .389508D+00, .321754D+00, .263910D+00, .214794D+00, - + .173332D+00, .138566D+00, .109624D+00, .857407D-01, - + .662177D-01, .503714D-01, .377937D-01, .277941D-01, - + .200228D-01, .140871D-01, .964115D-02, .638876D-02, - + .407117D-02, .247959D-02, .142154D-02, .759520D-03, - + .368988D-03, .157765D-03, .562079D-04, .152214D-04, - + .268860D-05, .236104D-06, .000000D+00, .251507D+07, - + .188087D+07, .137960D+07, .101125D+07, .740768D+06, - + .542221D+06, .396624D+06, .289901D+06, .211752D+06, - + .154551D+06, .112727D+06, .821599D+05, .598434D+05 / - DATA (UPDI(I),I=8841,8892) / - + .435581D+05, .316866D+05, .230364D+05, .167403D+05, - + .121594D+05, .882990D+04, .641075D+04, .465483D+04, - + .338047D+04, .245644D+04, .178638D+04, .130082D+04, - + .948746D+03, .693804D+03, .506620D+03, .373044D+03, - + .275953D+03, .205288D+03, .153725D+03, .115991D+03, - + .883452D+02, .678903D+02, .527136D+02, .413803D+02, - + .328467D+02, .263660D+02, .213911D+02, .175376D+02, - + .145123D+02, .121110D+02, .101817D+02, .861429D+01, - + .732642D+01, .626152D+01, .536372D+01, .461025D+01, - + .396539D+01, .341575D+01, .294308D+01, .253501D+01, - + .218161D+01, .187488D+01, .160828D+01, .137638D+01, - + .117471D+01, .999407D+00, .847242D+00, .715385D+00, - + .601418D+00, .503031D+00, .418832D+00, .346267D+00 / - DATA (UPDI(I),I=8893,8944) / - + .284417D+00, .231944D+00, .187674D+00, .150543D+00, - + .119613D+00, .940375D-01, .730775D-01, .560645D-01, - + .423545D-01, .315535D-01, .230326D-01, .164636D-01, - + .114883D-01, .779452D-02, .511748D-02, .322878D-02, - + .194555D-02, .110233D-02, .581388D-03, .278392D-03, - + .117100D-03, .409559D-04, .108685D-04, .188709D-05, - + .167710D-06, .000000D+00, .506631D+05, .755231D+05, - + .586802D+05, .455974D+05, .354349D+05, .275406D+05, - + .214078D+05, .166434D+05, .129416D+05, .100654D+05, - + .783033D+04, .609338D+04, .474336D+04, .369394D+04, - + .287806D+04, .224362D+04, .175018D+04, .136630D+04, - + .106758D+04, .835035D+03, .653944D+03, .512855D+03, - + .402875D+03, .317092D+03, .250133D+03, .197824D+03 / - DATA (UPDI(I),I=8945,8996) / - + .156919D+03, .124495D+03, .994862D+02, .798476D+02, - + .643972D+02, .522156D+02, .425868D+02, .349734D+02, - + .289001D+02, .240506D+02, .201597D+02, .170203D+02, - + .144711D+02, .123853D+02, .106674D+02, .923816D+01, - + .803878D+01, .702309D+01, .615527D+01, .540760D+01, - + .476078D+01, .419192D+01, .369493D+01, .325342D+01, - + .286376D+01, .251769D+01, .220988D+01, .193590D+01, - + .169203D+01, .147508D+01, .128228D+01, .111122D+01, - + .959750D+00, .825923D+00, .707989D+00, .604352D+00, - + .513555D+00, .434610D+00, .365491D+00, .305607D+00, - + .253941D+00, .209571D+00, .171660D+00, .139449D+00, - + .112250D+00, .894416D-01, .704523D-01, .547669D-01, - + .420535D-01, .317127D-01, .234738D-01, .170056D-01 / - DATA (UPDI(I),I=8997,9048) / - + .120142D-01, .824008D-02, .545497D-02, .346206D-02, - + .207823D-02, .116819D-02, .600822D-03, .273690D-03, - + .104562D-03, .302482D-04, .526694D-05, .264960D-06, - + .000000D+00, .128425D+06, .100442D+06, .776366D+05, - + .600105D+05, .463905D+05, .358630D+05, .277279D+05, - + .214397D+05, .165803D+05, .128239D+05, .992076D+04, - + .767636D+04, .594156D+04, .460017D+04, .356316D+04, - + .276113D+04, .214091D+04, .166106D+04, .128983D+04, - + .100247D+04, .780041D+03, .607738D+03, .474248D+03, - + .370738D+03, .290446D+03, .228100D+03, .179665D+03, - + .141504D+03, .112262D+03, .894389D+02, .716024D+02, - + .576261D+02, .466513D+02, .380270D+02, .311925D+02, - + .257680D+02, .214439D+02, .179754D+02, .151768D+02 / - DATA (UPDI(I),I=9049,9100) / - + .129001D+02, .110370D+02, .949572D+01, .821053D+01, - + .712863D+01, .621019D+01, .542375D+01, .474784D+01, - + .415710D+01, .364442D+01, .319185D+01, .279501D+01, - + .244477D+01, .213521D+01, .186137D+01, .161909D+01, - + .140483D+01, .121553D+01, .104852D+01, .901463D+00, - + .772251D+00, .658995D+00, .560015D+00, .473734D+00, - + .399113D+00, .334113D+00, .278090D+00, .230003D+00, - + .188924D+00, .154007D+00, .124498D+00, .997128D-01, - + .790433D-01, .619347D-01, .478813D-01, .365587D-01, - + .274058D-01, .201598D-01, .145095D-01, .101796D-01, - + .693062D-02, .455140D-02, .286392D-02, .170282D-02, - + .947766D-03, .482181D-03, .216927D-03, .816603D-04, - + .232203D-04, .397942D-05, .203041D-06, .000000D+00 / - DATA (UPDI(I),I=9101,9152) / - + .169195D+06, .131774D+06, .101366D+06, .779712D+05, - + .599790D+05, .461367D+05, .354918D+05, .273027D+05, - + .210056D+05, .161614D+05, .124365D+05, .957113D+04, - + .736780D+04, .567278D+04, .436933D+04, .336647D+04, - + .259517D+04, .200161D+04, .154497D+04, .119344D+04, - + .922882D+03, .714480D+03, .553968D+03, .430222D+03, - + .334809D+03, .261159D+03, .204301D+03, .159773D+03, - + .125865D+03, .995621D+02, .791370D+02, .632307D+02, - + .508200D+02, .411271D+02, .334947D+02, .274736D+02, - + .227039D+02, .189006D+02, .158508D+02, .133840D+02, - + .113776D+02, .972737D+01, .835956D+01, .721482D+01, - + .624894D+01, .542679D+01, .472453D+01, .411442D+01, - + .358823D+01, .312651D+01, .272413D+01, .237111D+01 / - DATA (UPDI(I),I=9153,9204) / - + .206095D+01, .178816D+01, .154820D+01, .133718D+01, - + .115177D+01, .989083D+00, .846589D+00, .722050D+00, - + .613454D+00, .519044D+00, .437147D+00, .366679D+00, - + .305598D+00, .253219D+00, .208483D+00, .170461D+00, - + .138306D+00, .111272D+00, .886829D-01, .699463D-01, - + .545251D-01, .419267D-01, .318355D-01, .237272D-01, - + .173479D-01, .124063D-01, .864545D-02, .584423D-02, - + .380835D-02, .237671D-02, .140035D-02, .771244D-03, - + .387601D-03, .172004D-03, .637289D-04, .177937D-04, - + .299787D-05, .155313D-06, .000000D+00, .219763D+06, - + .170496D+06, .130568D+06, .999787D+05, .765560D+05, - + .586138D+05, .448777D+05, .343576D+05, .263051D+05, - + .201389D+05, .154198D+05, .118067D+05, .904180D+04 / - DATA (UPDI(I),I=9205,9256) / - + .692508D+04, .530545D+04, .406552D+04, .311677D+04, - + .239038D+04, .183450D+04, .140881D+04, .108297D+04, - + .833342D+03, .642151D+03, .495572D+03, .383202D+03, - + .296961D+03, .230780D+03, .179254D+03, .140254D+03, - + .110181D+03, .869717D+02, .690063D+02, .550753D+02, - + .442609D+02, .357979D+02, .291613D+02, .239361D+02, - + .197939D+02, .164920D+02, .138368D+02, .116896D+02, - + .993372D+01, .848668D+01, .728250D+01, .627237D+01, - + .541746D+01, .469149D+01, .406440D+01, .352676D+01, - + .305770D+01, .265128D+01, .229676D+01, .198703D+01, - + .171614D+01, .147915D+01, .127187D+01, .109069D+01, - + .932564D+00, .794766D+00, .674943D+00, .570980D+00, - + .481053D+00, .403416D+00, .336939D+00, .279595D+00 / - DATA (UPDI(I),I=9257,9308) / - + .230660D+00, .189069D+00, .153893D+00, .124292D+00, - + .995302D-01, .789449D-01, .619594D-01, .480561D-01, - + .367582D-01, .277602D-01, .205726D-01, .149522D-01, - + .106265D-01, .735628D-02, .493805D-02, .319356D-02, - + .197699D-02, .115452D-02, .629718D-03, .313061D-03, - + .137256D-03, .501496D-04, .137867D-04, .229478D-05, - + .120962D-06, .000000D+00, .177906D+06, .217731D+06, - + .166044D+06, .126603D+06, .965257D+05, .735797D+05, - + .560864D+05, .427449D+05, .325767D+05, .248241D+05, - + .189172D+05, .144148D+05, .109851D+05, .837153D+04, - + .638111D+04, .486452D+04, .370972D+04, .282988D+04, - + .215995D+04, .164951D+04, .126081D+04, .964571D+03, - + .738890D+03, .566797D+03, .435590D+03, .335449D+03 / - DATA (UPDI(I),I=9309,9360) / - + .259040D+03, .199888D+03, .155376D+03, .121252D+03, - + .950720D+02, .749261D+02, .593970D+02, .474134D+02, - + .380912D+02, .308238D+02, .251355D+02, .206522D+02, - + .170990D+02, .142578D+02, .119732D+02, .101152D+02, - + .859252D+01, .733241D+01, .628124D+01, .539651D+01, - + .464941D+01, .400764D+01, .346049D+01, .298579D+01, - + .257675D+01, .222188D+01, .191353D+01, .164530D+01, - + .141185D+01, .120873D+01, .103210D+01, .878714D+00, - + .745711D+00, .630626D+00, .531257D+00, .445721D+00, - + .372217D+00, .309579D+00, .255799D+00, .210123D+00, - + .171486D+00, .138966D+00, .111732D+00, .890621D-01, - + .703092D-01, .549152D-01, .423818D-01, .322505D-01, - + .242264D-01, .178538D-01, .129003D-01, .911205D-02 / - DATA (UPDI(I),I=9361,9412) / - + .626699D-02, .417793D-02, .268191D-02, .164710D-02, - + .953494D-03, .515134D-03, .253383D-03, .109779D-03, - + .395718D-04, .107199D-04, .176396D-05, .946019D-07, - + .000000D+00, .379753D+06, .292292D+06, .221793D+06, - + .168256D+06, .127623D+06, .967775D+05, .733771D+05, - + .556212D+05, .421572D+05, .319456D+05, .242058D+05, - + .183382D+05, .138928D+05, .105240D+05, .797283D+04, - + .604019D+04, .457706D+04, .346897D+04, .263027D+04, - + .199518D+04, .151454D+04, .115057D+04, .875057D+03, - + .666348D+03, .508276D+03, .388448D+03, .297648D+03, - + .227847D+03, .175693D+03, .135997D+03, .105760D+03, - + .826625D+02, .649872D+02, .514483D+02, .409926D+02, - + .329016D+02, .266142D+02, .216944D+02, .178228D+02 / - DATA (UPDI(I),I=9413,9464) / - + .147489D+02, .122943D+02, .103118D+02, .869815D+01, - + .737190D+01, .627304D+01, .535447D+01, .458406D+01, - + .392676D+01, .337018D+01, .289057D+01, .248008D+01, - + .212633D+01, .182098D+01, .155709D+01, .132890D+01, - + .113161D+01, .961115D+00, .813974D+00, .687162D+00, - + .578095D+00, .484483D+00, .404382D+00, .335942D+00, - + .277959D+00, .228464D+00, .186673D+00, .151529D+00, - + .122123D+00, .976441D-01, .773908D-01, .607397D-01, - + .471575D-01, .361714D-01, .273487D-01, .204088D-01, - + .149364D-01, .107141D-01, .751013D-02, .512349D-02, - + .338622D-02, .215345D-02, .130931D-02, .749553D-03, - + .400000D-03, .194026D-03, .827259D-04, .292590D-04, - + .774793D-05, .124499D-05, .674507D-07, .000000D+00 / - DATA (UPDI(I),I=9465,9516) / - + .503454D+06, .385927D+06, .291456D+06, .220041D+06, - + .166087D+06, .125320D+06, .945383D+05, .712944D+05, - + .537546D+05, .405178D+05, .305353D+05, .230063D+05, - + .173318D+05, .130544D+05, .983239D+04, .740494D+04, - + .557738D+04, .420112D+04, .316541D+04, .238573D+04, - + .179916D+04, .135767D+04, .102552D+04, .775488D+03, - + .587321D+03, .445599D+03, .338920D+03, .257463D+03, - + .197012D+03, .151319D+03, .116753D+03, .905356D+02, - + .706122D+02, .554597D+02, .438399D+02, .349117D+02, - + .280219D+02, .226685D+02, .184842D+02, .151847D+02, - + .125674D+02, .104677D+02, .876968D+01, .738330D+01, - + .624210D+01, .529436D+01, .450465D+01, .383529D+01, - + .327219D+01, .279014D+01, .238022D+01, .202925D+01 / - DATA (UPDI(I),I=9517,9568) / - + .172822D+01, .146971D+01, .124757D+01, .105670D+01, - + .892757D+00, .752125D+00, .631644D+00, .528635D+00, - + .440743D+00, .365974D+00, .302454D+00, .248949D+00, - + .203539D+00, .165421D+00, .133551D+00, .107043D+00, - + .851077D-01, .670687D-01, .523293D-01, .403828D-01, - + .307832D-01, .231244D-01, .171417D-01, .124577D-01, - + .887078D-02, .617023D-02, .417518D-02, .273563D-02, - + .172354D-02, .103749D-02, .587467D-03, .309773D-03, - + .148274D-03, .622898D-04, .216683D-04, .563678D-05, - + .893726D-06, .494969D-07, .000000D+00, .657287D+06, - + .501894D+06, .377315D+06, .283551D+06, .213024D+06, - + .159973D+06, .120097D+06, .901252D+05, .676138D+05, - + .507058D+05, .380162D+05, .284923D+05, .213499D+05 / - DATA (UPDI(I),I=9569,9620) / - + .159933D+05, .119791D+05, .897071D+04, .671777D+04, - + .503037D+04, .376750D+04, .282214D+04, .211497D+04, - + .158579D+04, .119003D+04, .893899D+03, .672398D+03, - + .506604D+03, .382599D+03, .288524D+03, .219165D+03, - + .167086D+03, .127951D+03, .984690D+02, .762156D+02, - + .594070D+02, .466041D+02, .368342D+02, .293453D+02, - + .235655D+02, .190776D+02, .155619D+02, .127910D+02, - + .105822D+02, .880726D+01, .736723D+01, .618926D+01, - + .521713D+01, .441218D+01, .373418D+01, .316741D+01, - + .268528D+01, .227786D+01, .193122D+01, .163574D+01, - + .138356D+01, .116818D+01, .984229D+00, .827176D+00, - + .693251D+00, .579189D+00, .482236D+00, .399989D+00, - + .330425D+00, .271659D+00, .222440D+00, .180907D+00 / - DATA (UPDI(I),I=9621,9672) / - + .146244D+00, .117431D+00, .936058D-01, .740071D-01, - + .579869D-01, .449775D-01, .344999D-01, .261356D-01, - + .195061D-01, .143631D-01, .103653D-01, .732680D-02, - + .505704D-02, .339405D-02, .220458D-02, .137603D-02, - + .820053D-03, .459283D-03, .239303D-03, .113037D-03, - + .467943D-04, .160147D-04, .409522D-05, .641379D-06, - + .363194D-07, .000000D+00, .846312D+06, .643818D+06, - + .481891D+06, .360532D+06, .269637D+06, .201560D+06, - + .150615D+06, .112492D+06, .839890D+05, .626786D+05, - + .467593D+05, .348681D+05, .259931D+05, .193697D+05, - + .144307D+05, .107479D+05, .800407D+04, .595974D+04, - + .443784D+04, .330474D+04, .246179D+04, .183453D+04, - + .136807D+04, .102107D+04, .763052D+03, .571074D+03 / - DATA (UPDI(I),I=9673,9724) / - + .428364D+03, .320775D+03, .241954D+03, .183148D+03, - + .139242D+03, .106381D+03, .817382D+02, .632479D+02, - + .492560D+02, .386491D+02, .305711D+02, .243772D+02, - + .195981D+02, .158780D+02, .129640D+02, .106555D+02, - + .881156D+01, .732470D+01, .611573D+01, .512406D+01, - + .430788D+01, .362461D+01, .305691D+01, .257694D+01, - + .217382D+01, .183292D+01, .154409D+01, .129906D+01, - + .109103D+01, .914416D+00, .764505D+00, .637415D+00, - + .529799D+00, .438848D+00, .362134D+00, .297618D+00, - + .243420D+00, .198284D+00, .160412D+00, .128985D+00, - + .103013D+00, .816617D-01, .642019D-01, .500158D-01, - + .385665D-01, .294035D-01, .221363D-01, .164141D-01, - + .120056D-01, .860326D-02, .603661D-02, .413436D-02 / - DATA (UPDI(I),I=9725,9776) / - + .275214D-02, .177212D-02, .109579D-02, .646527D-03, - + .358150D-03, .184393D-03, .859584D-04, .350686D-04, - + .118100D-04, .296973D-05, .459581D-06, .266021D-07, - + .000000D+00, .107592D+07, .815531D+06, .607822D+06, - + .452791D+06, .337156D+06, .250914D+06, .186650D+06, - + .138770D+06, .103127D+06, .765970D+05, .568684D+05, - + .421993D+05, .313021D+05, .232079D+05, .172013D+05, - + .127442D+05, .944006D+04, .699069D+04, .517662D+04, - + .383306D+04, .283884D+04, .210302D+04, .155886D+04, - + .115631D+04, .858697D+03, .638535D+03, .475843D+03, - + .353932D+03, .265163D+03, .199346D+03, .150508D+03, - + .114187D+03, .871213D+02, .669420D+02, .517682D+02, - + .403385D+02, .316881D+02, .250967D+02, .200420D+02 / - DATA (UPDI(I),I=9777,9828) / - + .161313D+02, .130861D+02, .106879D+02, .878359D+01, - + .725699D+01, .602290D+01, .501652D+01, .419309D+01, - + .350779D+01, .294177D+01, .246605D+01, .206887D+01, - + .173499D+01, .145377D+01, .121660D+01, .101641D+01, - + .847444D+00, .704850D+00, .584654D+00, .483454D+00, - + .398410D+00, .327084D+00, .267434D+00, .217603D+00, - + .176335D+00, .141905D+00, .113495D+00, .901520D-01, - + .710732D-01, .555637D-01, .430376D-01, .329901D-01, - + .249996D-01, .187036D-01, .137786D-01, .100104D-01, - + .712302D-02, .496117D-02, .337150D-02, .222596D-02, - + .142084D-02, .870376D-03, .508399D-03, .278561D-03, - + .141715D-03, .652004D-04, .262167D-04, .868980D-05, - + .214943D-05, .328779D-06, .194475D-07, .000000D+00 / - DATA (UPDI(I),I=9829,9880) / - + .135174D+07, .102101D+07, .757819D+06, .562164D+06, - + .416818D+06, .308862D+06, .228751D+06, .169315D+06, - + .125258D+06, .926090D+05, .684360D+05, .505427D+05, - + .373104D+05, .275271D+05, .203008D+05, .149643D+05, - + .110272D+05, .812304D+04, .598282D+04, .440577D+04, - + .324478D+04, .239005D+04, .176132D+04, .129874D+04, - + .958634D+03, .708442D+03, .524622D+03, .387686D+03, - + .288566D+03, .215514D+03, .161633D+03, .121807D+03, - + .923087D+02, .704514D+02, .541159D+02, .418866D+02, - + .326867D+02, .257189D+02, .204068D+02, .163211D+02, - + .131577D+02, .106807D+02, .872476D+01, .716564D+01, - + .591232D+01, .489600D+01, .406915D+01, .338492D+01, - + .282302D+01, .235350D+01, .196375D+01, .163802D+01 / - DATA (UPDI(I),I=9881,9932) / - + .136524D+01, .113652D+01, .944560D+00, .783463D+00, - + .648282D+00, .534979D+00, .440118D+00, .360847D+00, - + .294733D+00, .239749D+00, .194069D+00, .156449D+00, - + .125239D+00, .996317D-01, .787115D-01, .617119D-01, - + .479739D-01, .369450D-01, .281526D-01, .212042D-01, - + .157648D-01, .115380D-01, .832622D-02, .588283D-02, - + .406712D-02, .274246D-02, .179580D-02, .113627D-02, - + .689545D-03, .398742D-03, .216095D-03, .108633D-03, - + .493298D-04, .195514D-04, .637961D-05, .155273D-05, - + .234821D-06, .141901D-07, .000000D+00, .167959D+07, - + .126431D+07, .934612D+06, .690480D+06, .509835D+06, - + .376200D+06, .277435D+06, .204461D+06, .150595D+06, - + .110845D+06, .815407D+05, .599438D+05, .440431D+05 / - DATA (UPDI(I),I=9933,9984) / - + .323398D+05, .237347D+05, .174094D+05, .127646D+05, - + .935484D+04, .685421D+04, .502070D+04, .367767D+04, - + .269398D+04, .197413D+04, .144732D+04, .106206D+04, - + .780191D+03, .574251D+03, .421710D+03, .311929D+03, - + .231489D+03, .172503D+03, .129160D+03, .972478D+02, - + .737417D+02, .562773D+02, .432802D+02, .335595D+02, - + .262399D+02, .206912D+02, .164475D+02, .131798D+02, - + .106353D+02, .863677D+01, .705240D+01, .578565D+01, - + .476404D+01, .393744D+01, .325721D+01, .270170D+01, - + .224014D+01, .185916D+01, .154255D+01, .127891D+01, - + .105910D+01, .875667D+00, .722583D+00, .594846D+00, - + .488378D+00, .399733D+00, .326067D+00, .264968D+00, - + .214435D+00, .172682D+00, .138486D+00, .110275D+00 / - DATA (UPDI(I),I=9985,10036) / - + .872592D-01, .685633D-01, .534587D-01, .413239D-01, - + .316401D-01, .239674D-01, .179421D-01, .132559D-01, - + .963826D-02, .690845D-02, .484658D-02, .332589D-02, - + .222519D-02, .144510D-02, .906368D-03, .544881D-03, - + .311930D-03, .167205D-03, .830606D-04, .372285D-04, - + .145454D-04, .467324D-05, .111955D-05, .167446D-06, - + .103346D-07, .000000D+00, .206529D+07, .154948D+07, - + .114089D+07, .839510D+06, .617365D+06, .453676D+06, - + .333178D+06, .244505D+06, .179318D+06, .131412D+06, - + .962438D+05, .704355D+05, .515159D+05, .376518D+05, - + .275030D+05, .200768D+05, .146486D+05, .106823D+05, - + .778730D+04, .567483D+04, .413503D+04, .301282D+04, - + .219576D+04, .160087D+04, .116810D+04, .853131D+03 / - DATA (UPDI(I),I=10037,10088) / - + .624261D+03, .455671D+03, .335016D+03, .247106D+03, - + .183006D+03, .136175D+03, .101891D+03, .767826D+02, - + .582340D+02, .445089D+02, .343012D+02, .266577D+02, - + .208951D+02, .165117D+02, .131542D+02, .105535D+02, - + .852159D+01, .691915D+01, .564465D+01, .462220D+01, - + .379933D+01, .312581D+01, .257877D+01, .212675D+01, - + .175570D+01, .144906D+01, .119514D+01, .984606D+00, - + .809884D+00, .664879D+00, .544552D+00, .444812D+00, - + .362225D+00, .293970D+00, .237669D+00, .191358D+00, - + .153303D+00, .122307D+00, .968784D-01, .762487D-01, - + .595866D-01, .462027D-01, .355132D-01, .270339D-01, - + .203566D-01, .151460D-01, .111197D-01, .803203D-02, - + .571823D-02, .398312D-02, .271306D-02, .180100D-02 / - DATA (UPDI(I),I=10089,10140) / - + .115997D-02, .721161D-03, .429475D-03, .243397D-03, - + .129047D-03, .633479D-04, .280267D-04, .107957D-04, - + .341590D-05, .805714D-06, .119217D-06, .751280D-08, - + .000000D+00, .251460D+07, .188046D+07, .137923D+07, - + .101093D+07, .740479D+06, .541965D+06, .396397D+06, - + .289699D+06, .211573D+06, .154393D+06, .112587D+06, - + .820357D+05, .597335D+05, .434608D+05, .316006D+05, - + .229604D+05, .166731D+05, .121000D+05, .877741D+04, - + .636438D+04, .461385D+04, .334426D+04, .242444D+04, - + .175809D+04, .127579D+04, .926582D+03, .674167D+03, - + .489232D+03, .357598D+03, .262211D+03, .193039D+03, - + .142784D+03, .106195D+03, .795485D+02, .599714D+02, - + .455650D+02, .349084D+02, .269718D+02, .210196D+02 / - DATA (UPDI(I),I=10141,10192) / - + .165155D+02, .130830D+02, .104378D+02, .838141D+01, - + .676791D+01, .549111D+01, .447204D+01, .365615D+01, - + .299184D+01, .245515D+01, .201407D+01, .165396D+01, - + .135798D+01, .111422D+01, .913219D+00, .747319D+00, - + .610389D+00, .497383D+00, .404222D+00, .327503D+00, - + .264441D+00, .212708D+00, .170385D+00, .135796D+00, - + .107778D+00, .849189D-01, .664781D-01, .516686D-01, - + .398410D-01, .304501D-01, .230452D-01, .172499D-01, - + .127559D-01, .930586D-02, .667766D-02, .472179D-02, - + .326562D-02, .220778D-02, .145411D-02, .928809D-03, - + .572377D-03, .337669D-03, .189448D-03, .993495D-04, - + .481946D-04, .210486D-04, .799430D-05, .249163D-05, - + .578811D-06, .847519D-07, .545175D-08, .000000D+00 / -C----------------------------------------------------------------------- -C - Dr = DrI - Fl = FlI - Al = AlI - DO I=1,6 - Amass(I) = AmassI(I) - ENDDO - Iorder = Nint(Dr) - Nfl = Nint(Fl) - Alambda = Al -C - NX = NxI - NT = NTI - NfMx = NfMxI -C - QINI = QINII - QMAX = QMAXI - DO I=0,NT - QL(I) = QLI(I) - ENDDO -C - XMIN = XMINI - DO I=0,NX - XV(I) = XVI(I) - ENDDO -C - Do 11 Iq = 0, NT - QL(Iq) = Log (QL(Iq) /Al) - 11 Continue -C -C Since quark = anti-quark for nfl>2 at this stage, -C we Read out only the non-redundent data points -C No of flavors = NfMx (sea) + 1 (gluon) + 2 (valence) - - Nblk = (NX+1) * (NT+1) - Npts = Nblk * (NfMx+3) - DO I=1,Npts - UPD(I) = UPDI(I) - ENDDO -C - Return -C **************************** - End diff --git a/PDF/spdf/ctq4RA4.F b/PDF/spdf/ctq4RA4.F deleted file mode 100644 index e950ad5e399..00000000000 --- a/PDF/spdf/ctq4RA4.F +++ /dev/null @@ -1,2838 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" - Subroutine Ctq4RA4 (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 : CTEQ4A4 -C PARAMETER (ISET=7) - DATA DrI, FlI, AlI / 2., 5., .2390 / - 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, .202755D+01, .264626D+01, .357027D+01, .500000D+01, - + .787375D+01, .132692D+02, .241745D+02, .481697D+02, .106391D+03, - + .264502D+03, .753388D+03, .250898D+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) / - + .264612D+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, .121644D+06, - + .923935D+05, .690159D+05, .515107D+05, .384222D+05, - + .286324D+05, .213227D+05, .158632D+05, .117929D+05, - + .875748D+04, .649818D+04, .481613D+04, .356636D+04 / - DATA (UPDI(I),I=469,520) / - + .263758D+04, .194882D+04, .143796D+04, .105991D+04, - + .780106D+03, .573511D+03, .420959D+03, .308609D+03, - + .225861D+03, .165079D+03, .120437D+03, .877384D+02, - + .638043D+02, .463467D+02, .334448D+02, .242131D+02, - + .174961D+02, .126290D+02, .910075D+01, .655275D+01, - + .471718D+01, .339315D+01, .244000D+01, .175663D+01, - + .126546D+01, .913780D+00, .660994D+00, .480094D+00, - + .349737D+00, .255936D+00, .188016D+00, .138870D+00, - + .102987D+00, .768847D-01, .574927D-01, .433115D-01, - + .326610D-01, .247584D-01, .188035D-01, .143259D-01, - + .109241D-01, .834589D-02, .637126D-02, .486413D-02, - + .370544D-02, .282003D-02, .213766D-02, .161600D-02, - + .121472D-02, .908519D-03, .675499D-03, .497461D-03 / - DATA (UPDI(I),I=521,572) / - + .362117D-03, .260548D-03, .184437D-03, .128264D-03, - + .869236D-04, .571265D-04, .357882D-04, .209112D-04, - + .107394D-04, .416211D-05, .668901D-08, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .272762D+06, .206672D+06, - + .153940D+06, .114566D+06, .852057D+05, .633087D+05, - + .470049D+05, .348638D+05, .258383D+05, .191280D+05, - + .141482D+05, .104524D+05, .771472D+04, .568677D+04, - + .418759D+04, .307935D+04, .226186D+04, .165889D+04, - + .121517D+04, .888692D+03, .649076D+03, .473241D+03, - + .344545D+03, .250384D+03, .181670D+03, .131569D+03 / - DATA (UPDI(I),I=573,624) / - + .951659D+02, .683753D+02, .492833D+02, .354524D+02, - + .254718D+02, .182695D+02, .130905D+02, .937737D+01, - + .671084D+01, .480081D+01, .343770D+01, .246309D+01, - + .176861D+01, .127213D+01, .918578D+00, .665225D+00, - + .483855D+00, .353288D+00, .259303D+00, .191087D+00, - + .141732D+00, .105298D+00, .787938D-01, .590207D-01, - + .444335D-01, .335167D-01, .253576D-01, .192025D-01, - + .145667D-01, .110427D-01, .837151D-02, .633386D-02, - + .478768D-02, .360583D-02, .270909D-02, .202501D-02, - + .150717D-02, .111629D-02, .820113D-03, .596913D-03, - + .430767D-03, .307245D-03, .216701D-03, .150457D-03, - + .102883D-03, .688420D-04, .449564D-04, .284255D-04, - + .174085D-04, .100585D-04, .540070D-05, .253893D-05 / - DATA (UPDI(I),I=625,676) / - + .903916D-06, .357757D-07, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .458704D+06, .346684D+06, .257462D+06, - + .191036D+06, .141647D+06, .104923D+06, .776602D+05, - + .574203D+05, .424194D+05, .313019D+05, .230769D+05, - + .169923D+05, .124994D+05, .918240D+04, .673823D+04, - + .493761D+04, .361383D+04, .264088D+04, .192737D+04, - + .140428D+04, .102174D+04, .742070D+03, .538132D+03, - + .389497D+03, .281449D+03, .202977D+03, .146186D+03, - + .104570D+03, .750342D+02, .537325D+02, .384250D+02, - + .274296D+02, .195577D+02, .139408D+02, .992536D+01, - + .706352D+01, .503070D+01, .358490D+01, .255967D+01 / - DATA (UPDI(I),I=677,728) / - + .183072D+01, .131421D+01, .946150D+00, .684030D+00, - + .496423D+00, .362088D+00, .265166D+00, .195418D+00, - + .144255D+00, .107234D+00, .797958D-01, .596700D-01, - + .447097D-01, .335948D-01, .252676D-01, .190345D-01, - + .143304D-01, .107883D-01, .810658D-02, .608514D-02, - + .455212D-02, .339700D-02, .252287D-02, .186597D-02, - + .137395D-02, .100399D-02, .727504D-03, .523259D-03, - + .372626D-03, .262985D-03, .183355D-03, .126492D-03, - + .860102D-04, .576674D-04, .380527D-04, .248810D-04, - + .159678D-04, .101463D-04, .637625D-05, .400347D-05, - + .251148D-05, .159976D-05, .102929D-05, .672405D-06, - + .437041D-06, .277764D-06, .165468D-06, .881288D-07, - + .382058D-07, .106881D-07, .775970D-09, .000000D+00 / - DATA (UPDI(I),I=729,780) / - + .685459D+06, .516710D+06, .382546D+06, .282968D+06, - + .209151D+06, .154435D+06, .113938D+06, .839702D+05, - + .618286D+05, .454726D+05, .334106D+05, .245176D+05, - + .179724D+05, .131568D+05, .962035D+04, .702421D+04, - + .512218D+04, .372929D+04, .271144D+04, .196802D+04, - + .142633D+04, .103184D+04, .745252D+03, .537208D+03, - + .386568D+03, .277602D+03, .199062D+03, .141756D+03, - + .101257D+03, .721794D+02, .513732D+02, .364974D+02, - + .258950D+02, .183661D+02, .130085D+02, .920938D+01, - + .652364D+01, .462347D+01, .328273D+01, .233460D+01, - + .166619D+01, .119252D+01, .856968D+00, .618182D+00, - + .448112D+00, .326128D+00, .238824D+00, .175180D+00, - + .129375D+00, .956473D-01, .710502D-01, .528871D-01 / - DATA (UPDI(I),I=781,832) / - + .394726D-01, .294904D-01, .220641D-01, .164991D-01, - + .123360D-01, .920705D-02, .686390D-02, .510035D-02, - + .378053D-02, .278949D-02, .204993D-02, .150015D-02, - + .108979D-02, .785573D-03, .562480D-03, .399222D-03, - + .281205D-03, .196113D-03, .135701D-03, .929309D-04, - + .630950D-04, .424863D-04, .285996D-04, .191361D-04, - + .128495D-04, .866471D-05, .590576D-05, .405528D-05, - + .281314D-05, .194683D-05, .133202D-05, .884001D-06, - + .557503D-06, .322801D-06, .163869D-06, .666282D-07, - + .174167D-07, .131018D-08, .000000D+00, .959397D+06, - + .721263D+06, .532289D+06, .392474D+06, .289150D+06, - + .212808D+06, .156485D+06, .114941D+06, .843467D+05, - + .618222D+05, .452660D+05, .331013D+05, .241786D+05 / - DATA (UPDI(I),I=833,884) / - + .176367D+05, .128492D+05, .934723D+04, .679070D+04, - + .492542D+04, .356735D+04, .257921D+04, .186189D+04, - + .134153D+04, .964977D+03, .692716D+03, .496367D+03, - + .354916D+03, .253383D+03, .179624D+03, .127723D+03, - + .906244D+02, .641953D+02, .453875D+02, .320433D+02, - + .226131D+02, .159340D+02, .112214D+02, .790609D+01, - + .557277D+01, .393463D+01, .278244D+01, .197432D+01, - + .140481D+01, .100350D+01, .719551D+00, .518397D+00, - + .374959D+00, .272865D+00, .198894D+00, .145947D+00, - + .107207D+00, .791186D-01, .585118D-01, .433826D-01, - + .321990D-01, .239295D-01, .177753D-01, .132012D-01, - + .978765D-02, .724784D-02, .535030D-02, .393967D-02, - + .288836D-02, .210916D-02, .153413D-02, .110796D-02 / - DATA (UPDI(I),I=885,936) / - + .794468D-03, .566186D-03, .400369D-03, .281290D-03, - + .196025D-03, .135825D-03, .934312D-04, .639661D-04, - + .436514D-04, .299279D-04, .205250D-04, .141964D-04, - + .989958D-05, .697752D-05, .494268D-05, .350995D-05, - + .246620D-05, .169450D-05, .111948D-05, .696394D-06, - + .394891D-06, .194758D-06, .762442D-07, .191176D-07, - + .146727D-08, .000000D+00, .128716D+07, .965017D+06, - + .709859D+06, .521690D+06, .383074D+06, .280993D+06, - + .205924D+06, .150740D+06, .110235D+06, .805156D+05, - + .587451D+05, .428052D+05, .311538D+05, .226419D+05, - + .164346D+05, .119109D+05, .862034D+04, .622854D+04, - + .449359D+04, .323610D+04, .232673D+04, .166967D+04, - + .119605D+04, .855004D+03, .610047D+03, .434305D+03 / - DATA (UPDI(I),I=937,988) / - + .308689D+03, .217836D+03, .154184D+03, .108893D+03, - + .767689D+02, .540156D+02, .379459D+02, .266445D+02, - + .186778D+02, .130850D+02, .916956D+01, .642828D+01, - + .451341D+01, .317381D+01, .223907D+01, .158395D+01, - + .112477D+01, .801713D+00, .574086D+00, .412707D+00, - + .298479D+00, .216213D+00, .157653D+00, .115074D+00, - + .843795D-01, .620048D-01, .456747D-01, .336815D-01, - + .248672D-01, .183519D-01, .135401D-01, .997396D-02, - + .733751D-02, .538180D-02, .393744D-02, .286879D-02, - + .208199D-02, .150546D-02, .108111D-02, .771263D-03, - + .547161D-03, .385529D-03, .270181D-03, .188120D-03, - + .130477D-03, .900792D-04, .620909D-04, .428173D-04, - + .297620D-04, .207685D-04, .146437D-04, .104159D-04 / - DATA (UPDI(I),I=989,1040) / - + .747157D-05, .536777D-05, .384232D-05, .270618D-05, - + .185142D-05, .121160D-05, .742470D-06, .412782D-06, - + .198439D-06, .751844D-07, .181935D-07, .142019D-08, - + .000000D+00, .167555D+07, .125270D+07, .918424D+06, - + .672721D+06, .492310D+06, .359894D+06, .262840D+06, - + .191738D+06, .139724D+06, .101694D+06, .739316D+05, - + .536766D+05, .389231D+05, .281841D+05, .203808D+05, - + .147151D+05, .106090D+05, .763575D+04, .548717D+04, - + .393594D+04, .281848D+04, .201428D+04, .143691D+04, - + .102286D+04, .726691D+03, .515087D+03, .364480D+03, - + .256033D+03, .180389D+03, .126808D+03, .889738D+02, - + .623012D+02, .435502D+02, .304267D+02, .212194D+02, - + .147881D+02, .103077D+02, .718709D+01, .501829D+01 / - DATA (UPDI(I),I=1041,1092) / - + .350914D+01, .246151D+01, .173128D+01, .122219D+01, - + .866012D+00, .616409D+00, .440458D+00, .316605D+00, - + .227936D+00, .165165D+00, .119805D+00, .872952D-01, - + .637450D-01, .466580D-01, .341888D-01, .250797D-01, - + .183910D-01, .134821D-01, .986844D-02, .721368D-02, - + .525798D-02, .382292D-02, .276861D-02, .199737D-02, - + .143612D-02, .102576D-02, .728257D-03, .514471D-03, - + .361308D-03, .252646D-03, .175803D-03, .122070D-03, - + .845695D-04, .586530D-04, .408115D-04, .286865D-04, - + .202843D-04, .144972D-04, .104433D-04, .756525D-05, - + .546966D-05, .392068D-05, .275352D-05, .186937D-05, - + .120939D-05, .729620D-06, .397814D-06, .186625D-06, - + .685769D-07, .160633D-07, .127375D-08, .000000D+00 / - DATA (UPDI(I),I=1093,1144) / - + .213136D+07, .158899D+07, .116107D+07, .847587D+06, - + .618165D+06, .450346D+06, .327757D+06, .238257D+06, - + .173009D+06, .125470D+06, .908872D+05, .657464D+05, - + .474995D+05, .342662D+05, .246855D+05, .177552D+05, - + .127514D+05, .914198D+04, .654358D+04, .467494D+04, - + .333409D+04, .237299D+04, .168575D+04, .119492D+04, - + .845288D+03, .596528D+03, .420234D+03, .293850D+03, - + .206084D+03, .144199D+03, .100695D+03, .701696D+02, - + .488088D+02, .339308D+02, .235421D+02, .163217D+02, - + .113162D+02, .784794D+01, .544967D+01, .378966D+01, - + .264326D+01, .184850D+01, .129737D+01, .913916D+00, - + .646647D+00, .459309D+00, .328167D+00, .234828D+00, - + .169115D+00, .121917D+00, .882834D-01, .640690D-01 / - DATA (UPDI(I),I=1145,1196) / - + .466027D-01, .339361D-01, .247380D-01, .180275D-01, - + .131331D-01, .955370D-02, .694039D-02, .502816D-02, - + .363384D-02, .261642D-02, .187685D-02, .134222D-02, - + .953826D-03, .674153D-03, .474421D-03, .332225D-03, - + .231896D-03, .161327D-03, .112180D-03, .779970D-04, - + .544130D-04, .381659D-04, .270805D-04, .193484D-04, - + .139639D-04, .101419D-04, .738511D-05, .534963D-05, - + .382612D-05, .267195D-05, .179687D-05, .114796D-05, - + .681569D-06, .364472D-06, .166945D-06, .595695D-07, - + .135345D-07, .108948D-08, .000000D+00, .266120D+07, - + .197840D+07, .144073D+07, .104816D+07, .761824D+06, - + .553086D+06, .401122D+06, .290562D+06, .210237D+06, - + .151922D+06, .109648D+06, .790271D+05, .568825D+05 / - DATA (UPDI(I),I=1197,1248) / - + .408816D+05, .293397D+05, .210221D+05, .150392D+05, - + .107400D+05, .765691D+04, .544843D+04, .386993D+04, - + .274305D+04, .194050D+04, .136969D+04, .964762D+03, - + .677865D+03, .475415D+03, .330922D+03, .231024D+03, - + .160901D+03, .111827D+03, .775538D+02, .536810D+02, - + .371329D+02, .256329D+02, .176797D+02, .121932D+02, - + .841112D+01, .580901D+01, .401735D+01, .278639D+01, - + .193759D+01, .135209D+01, .946968D+00, .666109D+00, - + .470344D+00, .334057D+00, .237613D+00, .170088D+00, - + .121877D+00, .877170D-01, .632722D-01, .457416D-01, - + .331061D-01, .239848D-01, .173723D-01, .125787D-01, - + .909540D-02, .656776D-02, .473027D-02, .339873D-02, - + .243351D-02, .173617D-02, .123530D-02, .873688D-03 / - DATA (UPDI(I),I=1249,1300) / - + .614974D-03, .431293D-03, .301291D-03, .210029D-03, - + .146147D-03, .101808D-03, .710516D-04, .498488D-04, - + .352180D-04, .251888D-04, .181441D-04, .131859D-04, - + .962466D-05, .702282D-05, .508222D-05, .361852D-05, - + .250833D-05, .166905D-05, .105228D-05, .614681D-06, - + .322388D-06, .144230D-06, .500191D-07, .110414D-07, - + .901856D-09, .000000D+00, .496098D+05, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=1301,1352) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=1353,1404) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .408654D+05, .315210D+05, .239739D+05, - + .182241D+05, .138490D+05, .105178D+05, .798503D+04, - + .605810D+04, .459432D+04, .348164D+04, .263723D+04, - + .199598D+04, .150988D+04, .114112D+04, .861938D+03, - + .650399D+03, .490467D+03, .369445D+03, .278088D+03, - + .209064D+03, .157056D+03, .117829D+03, .883252D+02, - + .661150D+02, .494437D+02, .369260D+02, .275612D+02, - + .204533D+02, .152315D+02, .113256D+02, .841842D+01, - + .624963D+01, .463939D+01, .344434D+01, .255753D+01, - + .189908D+01, .141305D+01, .105236D+01, .786324D+00 / - DATA (UPDI(I),I=1405,1456) / - + .588693D+00, .442930D+00, .334292D+00, .253679D+00, - + .193253D+00, .148155D+00, .114036D+00, .884201D-01, - + .686760D-01, .537706D-01, .421413D-01, .332178D-01, - + .262251D-01, .207825D-01, .164793D-01, .130993D-01, - + .104011D-01, .826263D-02, .654806D-02, .518740D-02, - + .409260D-02, .322231D-02, .252344D-02, .196817D-02, - + .152754D-02, .117628D-02, .896903D-03, .677852D-03, - + .506033D-03, .373319D-03, .270737D-03, .193000D-03, - + .134121D-03, .906974D-04, .585822D-04, .360738D-04, - + .201566D-04, .950643D-05, .265722D-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 / - DATA (UPDI(I),I=1457,1508) / - + .923988D+05, .711036D+05, .539319D+05, .408836D+05, - + .309808D+05, .234612D+05, .177593D+05, .134336D+05, - + .101567D+05, .767320D+04, .579390D+04, .437111D+04, - + .329579D+04, .248265D+04, .186893D+04, .140544D+04, - + .105615D+04, .792746D+03, .594563D+03, .445363D+03, - + .333323D+03, .249130D+03, .186029D+03, .138708D+03, - + .103318D+03, .768489D+02, .571208D+02, .422093D+02, - + .312969D+02, .231700D+02, .171445D+02, .126698D+02, - + .936080D+01, .691664D+01, .511023D+01, .377568D+01, - + .279467D+01, .207044D+01, .153853D+01, .114555D+01, - + .856951D+00, .643064D+00, .485060D+00, .367322D+00, - + .279842D+00, .214064D+00, .164905D+00, .127266D+00, - + .989785D-01, .770622D-01, .603301D-01, .473132D-01 / - DATA (UPDI(I),I=1509,1560) / - + .372362D-01, .293278D-01, .231514D-01, .182593D-01, - + .144070D-01, .113433D-01, .892764D-02, .700033D-02, - + .547908D-02, .426746D-02, .331217D-02, .255987D-02, - + .196490D-02, .149568D-02, .113066D-02, .846552D-03, - + .628597D-03, .461218D-03, .334973D-03, .239798D-03, - + .169429D-03, .117339D-03, .803563D-04, .536470D-04, - + .351144D-04, .223363D-04, .138358D-04, .825308D-05, - + .475134D-05, .260030D-05, .134826D-05, .646133D-06, - + .283814D-06, .108157D-06, .348548D-07, .883872D-08, - + .183631D-08, .229324D-10, .000000D+00, .156505D+06, - + .120145D+06, .908751D+05, .686935D+05, .519043D+05, - + .391912D+05, .295781D+05, .223061D+05, .168131D+05, - + .126624D+05, .953089D+04, .716737D+04, .538649D+04 / - DATA (UPDI(I),I=1561,1612) / - + .404414D+04, .303414D+04, .227393D+04, .170285D+04, - + .127368D+04, .951844D+03, .710411D+03, .529727D+03, - + .394448D+03, .293415D+03, .217935D+03, .161690D+03, - + .119786D+03, .886695D+02, .652467D+02, .481719D+02, - + .355097D+02, .261583D+02, .192444D+02, .141521D+02, - + .104081D+02, .765233D+01, .562623D+01, .414312D+01, - + .305375D+01, .225711D+01, .167162D+01, .124353D+01, - + .927976D+00, .695920D+00, .523975D+00, .396798D+00, - + .301726D+00, .231004D+00, .177194D+00, .136935D+00, - + .105946D+00, .824069D-01, .642173D-01, .502096D-01, - + .392920D-01, .308118D-01, .241435D-01, .189241D-01, - + .148043D-01, .115752D-01, .901902D-02, .701412D-02, - + .542970D-02, .418886D-02, .321873D-02, .245691D-02 / - DATA (UPDI(I),I=1613,1664) / - + .186093D-02, .140059D-02, .104504D-02, .774094D-03, - + .567547D-03, .412683D-03, .296691D-03, .211251D-03, - + .148326D-03, .103612D-03, .712816D-04, .486786D-04, - + .328648D-04, .220754D-04, .146812D-04, .974527D-05, - + .640005D-05, .416156D-05, .264102D-05, .161872D-05, - + .926835D-06, .477669D-06, .204710D-06, .586468D-07, - + .416390D-08, .000000D+00, .217268D+06, .180272D+06, - + .135963D+06, .102478D+06, .772037D+05, .581202D+05, - + .437312D+05, .328786D+05, .247050D+05, .185475D+05, - + .139158D+05, .104311D+05, .781346D+04, .584678D+04, - + .437175D+04, .326520D+04, .243666D+04, .181614D+04, - + .135238D+04, .100570D+04, .747147D+03, .554271D+03, - + .410732D+03, .303900D+03, .224584D+03, .165716D+03 / - DATA (UPDI(I),I=1665,1716) / - + .122169D+03, .895210D+02, .658137D+02, .483074D+02, - + .354289D+02, .259489D+02, .189948D+02, .139051D+02, - + .101743D+02, .744434D+01, .545443D+01, .400004D+01, - + .294108D+01, .216678D+01, .160314D+01, .118983D+01, - + .887283D+00, .664321D+00, .500164D+00, .378133D+00, - + .287782D+00, .219445D+00, .168550D+00, .129620D+00, - + .100194D+00, .776014D-01, .602930D-01, .468906D-01, - + .365361D-01, .284497D-01, .221574D-01, .172257D-01, - + .133826D-01, .103627D-01, .800841D-02, .616162D-02, - + .472449D-02, .360865D-02, .273830D-02, .206261D-02, - + .154422D-02, .114680D-02, .845893D-03, .618168D-03, - + .448456D-03, .322180D-03, .229632D-03, .161875D-03, - + .113814D-03, .791552D-04, .548781D-04, .378184D-04 / - DATA (UPDI(I),I=1717,1768) / - + .260498D-04, .178538D-04, .122396D-04, .830905D-05, - + .556703D-05, .362466D-05, .226085D-05, .130725D-05, - + .673505D-06, .284900D-06, .794961D-07, .576398D-08, - + .000000D+00, .351574D+06, .268438D+06, .201762D+06, - + .151547D+06, .113768D+06, .853435D+05, .639825D+05, - + .479295D+05, .358807D+05, .268374D+05, .200589D+05, - + .149784D+05, .111758D+05, .833002D+04, .620352D+04, - + .461467D+04, .342951D+04, .254558D+04, .188752D+04, - + .139770D+04, .103384D+04, .763596D+03, .563307D+03, - + .414909D+03, .305202D+03, .224148D+03, .164452D+03, - + .119914D+03, .877186D+02, .640640D+02, .467417D+02, - + .340568D+02, .247955D+02, .180537D+02, .131356D+02, - + .955697D+01, .696131D+01, .507528D+01, .370896D+01 / - DATA (UPDI(I),I=1769,1820) / - + .271594D+01, .199680D+01, .147273D+01, .109111D+01, - + .811677D+00, .607028D+00, .455894D+00, .344600D+00, - + .261000D+00, .199070D+00, .152036D+00, .116687D+00, - + .897471D-01, .692283D-01, .534589D-01, .413486D-01, - + .319652D-01, .247105D-01, .190699D-01, .147023D-01, - + .112986D-01, .866272D-02, .661243D-02, .502773D-02, - + .380730D-02, .286221D-02, .213504D-02, .158142D-02, - + .116085D-02, .844996D-03, .608360D-03, .433637D-03, - + .305119D-03, .212042D-03, .144976D-03, .981777D-04, - + .651840D-04, .426729D-04, .274283D-04, .173820D-04, - + .108143D-04, .665299D-05, .402507D-05, .240540D-05, - + .140558D-05, .800050D-06, .430000D-06, .211480D-06, - + .875077D-07, .244602D-07, .171944D-08, .000000D+00 / - DATA (UPDI(I),I=1821,1872) / - + .497343D+06, .378588D+06, .283546D+06, .212218D+06, - + .158739D+06, .118644D+06, .886193D+05, .661373D+05, - + .493240D+05, .367516D+05, .273627D+05, .203523D+05, - + .151252D+05, .112287D+05, .832819D+04, .616976D+04, - + .456610D+04, .337498D+04, .249181D+04, .183721D+04, - + .135296D+04, .994871D+03, .730603D+03, .535677D+03, - + .392205D+03, .286686D+03, .209322D+03, .151877D+03, - + .110547D+03, .803315D+02, .583080D+02, .422631D+02, - + .306052D+02, .221637D+02, .160360D+02, .116017D+02, - + .840173D+01, .608982D+01, .442366D+01, .321982D+01, - + .235259D+01, .172437D+01, .126939D+01, .938295D+00, - + .697126D+00, .520142D+00, .390536D+00, .293823D+00, - + .222570D+00, .168827D+00, .128674D+00, .982868D-01 / - DATA (UPDI(I),I=1873,1924) / - + .752819D-01, .577287D-01, .443320D-01, .340300D-01, - + .261180D-01, .200136D-01, .153184D-01, .116888D-01, - + .889722D-02, .674354D-02, .509078D-02, .382798D-02, - + .285741D-02, .211703D-02, .155768D-02, .113633D-02, - + .822290D-03, .589004D-03, .418028D-03, .293278D-03, - + .203522D-03, .139362D-03, .947956D-04, .635279D-04, - + .422074D-04, .277517D-04, .181418D-04, .117667D-04, - + .761323D-05, .488543D-05, .310215D-05, .192389D-05, - + .114886D-05, .638706D-06, .317218D-06, .128672D-06, - + .341712D-07, .250798D-08, .000000D+00, .678050D+06, - + .514562D+06, .383998D+06, .286357D+06, .213409D+06, - + .158914D+06, .118253D+06, .879190D+05, .653169D+05, - + .484796D+05, .359530D+05, .266360D+05, .197157D+05 / - DATA (UPDI(I),I=1925,1976) / - + .145772D+05, .107674D+05, .794376D+04, .585429D+04, - + .430876D+04, .316753D+04, .232526D+04, .170481D+04, - + .124799D+04, .912326D+03, .665844D+03, .485233D+03, - + .353003D+03, .256497D+03, .185185D+03, .134119D+03, - + .969700D+02, .700220D+02, .504891D+02, .363668D+02, - + .261942D+02, .188470D+02, .135591D+02, .976268D+01, - + .703527D+01, .508006D+01, .367549D+01, .266906D+01, - + .194430D+01, .142228D+01, .104468D+01, .771164D+00, - + .571670D+00, .426408D+00, .318703D+00, .239797D+00, - + .180676D+00, .136767D+00, .103763D+00, .789297D-01, - + .601119D-01, .458401D-01, .349445D-01, .266323D-01, - + .202665D-01, .154029D-01, .116718D-01, .882196D-02, - + .664048D-02, .497815D-02, .371767D-02, .275606D-02 / - DATA (UPDI(I),I=1977,2028) / - + .202850D-02, .148298D-02, .107534D-02, .773764D-03, - + .551532D-03, .389817D-03, .272712D-03, .188999D-03, - + .129579D-03, .884774D-04, .597582D-04, .401812D-04, - + .268828D-04, .179688D-04, .119769D-04, .798243D-05, - + .528145D-05, .344577D-05, .218557D-05, .132357D-05, - + .740273D-06, .365853D-06, .145910D-06, .377250D-07, - + .282438D-08, .000000D+00, .899678D+06, .680634D+06, - + .506077D+06, .376007D+06, .279179D+06, .207109D+06, - + .153532D+06, .113711D+06, .841506D+05, .622140D+05, - + .459559D+05, .339106D+05, .249988D+05, .184079D+05, - + .135407D+05, .994800D+04, .730031D+04, .535006D+04, - + .391598D+04, .286211D+04, .208908D+04, .152242D+04, - + .110787D+04, .804827D+03, .583769D+03, .422663D+03 / - DATA (UPDI(I),I=2029,2080) / - + .305627D+03, .219559D+03, .158222D+03, .113820D+03, - + .817659D+02, .586498D+02, .420196D+02, .301030D+02, - + .215398D+02, .154097D+02, .110317D+02, .790392D+01, - + .567364D+01, .408057D+01, .294524D+01, .213238D+01, - + .155016D+01, .113151D+01, .829943D+00, .611318D+00, - + .453034D+00, .336406D+00, .251447D+00, .188204D+00, - + .141513D+00, .106651D+00, .805792D-01, .609557D-01, - + .461662D-01, .349547D-01, .264579D-01, .199974D-01, - + .150940D-01, .113602D-01, .852787D-02, .637604D-02, - + .474766D-02, .352198D-02, .259373D-02, .189692D-02, - + .137827D-02, .993695D-03, .711210D-03, .504627D-03, - + .355321D-03, .247957D-03, .171677D-03, .117863D-03, - + .807714D-04, .549346D-04, .373138D-04, .253105D-04 / - DATA (UPDI(I),I=2081,2132) / - + .171963D-04, .116745D-04, .792039D-05, .532532D-05, - + .351466D-05, .224435D-05, .135934D-05, .755795D-06, - + .368444D-06, .143649D-06, .360940D-07, .274720D-08, - + .000000D+00, .116859D+07, .881315D+06, .652877D+06, - + .483278D+06, .357479D+06, .264193D+06, .195099D+06, - + .143939D+06, .106105D+06, .781365D+05, .574875D+05, - + .422491D+05, .310191D+05, .227471D+05, .166629D+05, - + .121904D+05, .890788D+04, .650013D+04, .473708D+04, - + .344700D+04, .250479D+04, .181714D+04, .131629D+04, - + .951813D+03, .687143D+03, .495133D+03, .356296D+03, - + .254687D+03, .182623D+03, .130711D+03, .934173D+02, - + .666585D+02, .475038D+02, .338493D+02, .240872D+02, - + .171364D+02, .121981D+02, .868948D+01, .620105D+01 / - DATA (UPDI(I),I=2133,2184) / - + .443359D+01, .318081D+01, .228899D+01, .165377D+01, - + .119968D+01, .874419D+00, .640016D+00, .471279D+00, - + .347712D+00, .258210D+00, .192010D+00, .143427D+00, - + .107387D+00, .805978D-01, .605672D-01, .455651D-01, - + .342703D-01, .257664D-01, .193455D-01, .145041D-01, - + .108441D-01, .808627D-02, .600637D-02, .444311D-02, - + .327486D-02, .239639D-02, .174193D-02, .125827D-02, - + .902276D-03, .642588D-03, .454039D-03, .318643D-03, - + .221911D-03, .153572D-03, .105612D-03, .726484D-04, - + .497343D-04, .340847D-04, .233833D-04, .160854D-04, - + .110604D-04, .758555D-05, .514235D-05, .340662D-05, - + .217409D-05, .130891D-05, .719801D-06, .344852D-06, - + .131124D-06, .319937D-07, .247317D-08, .000000D+00 / - DATA (UPDI(I),I=2185,2236) / - + .149143D+07, .112127D+07, .827563D+06, .610302D+06, - + .449738D+06, .331114D+06, .243580D+06, .179011D+06, - + .131441D+06, .964116D+05, .706495D+05, .517127D+05, - + .378123D+05, .276145D+05, .201441D+05, .146752D+05, - + .106779D+05, .775818D+04, .562928D+04, .407818D+04, - + .295022D+04, .213063D+04, .153632D+04, .110578D+04, - + .794550D+03, .569794D+03, .408039D+03, .290227D+03, - + .207073D+03, .147467D+03, .104853D+03, .744303D+02, - + .527619D+02, .373952D+02, .264651D+02, .187240D+02, - + .132530D+02, .938724D+01, .666016D+01, .473398D+01, - + .337611D+01, .241496D+01, .173417D+01, .125031D+01, - + .905674D+00, .658761D+00, .482035D+00, .353399D+00, - + .260756D+00, .192660D+00, .142984D+00, .106367D+00 / - DATA (UPDI(I),I=2237,2288) / - + .793133D-01, .592152D-01, .442559D-01, .330688D-01, - + .247003D-01, .184246D-01, .137233D-01, .101940D-01, - + .755238D-02, .557417D-02, .409724D-02, .300116D-02, - + .218270D-02, .157738D-02, .113312D-02, .808431D-03, - + .573145D-03, .403470D-03, .282362D-03, .196350D-03, - + .135896D-03, .936512D-04, .646765D-04, .445544D-04, - + .307793D-04, .213145D-04, .148017D-04, .102672D-04, - + .708554D-05, .481940D-05, .318998D-05, .202625D-05, - + .120861D-05, .655639D-06, .308124D-06, .114148D-06, - + .270515D-07, .212271D-08, .000000D+00, .187499D+07, - + .140523D+07, .103330D+07, .759184D+06, .557343D+06, - + .408777D+06, .299556D+06, .219295D+06, .160390D+06, - + .117180D+06, .855254D+05, .623488D+05, .454034D+05 / - DATA (UPDI(I),I=2289,2340) / - + .330218D+05, .239883D+05, .174022D+05, .126082D+05, - + .912129D+04, .658954D+04, .475287D+04, .342299D+04, - + .246093D+04, .176639D+04, .126550D+04, .905068D+03, - + .645962D+03, .460356D+03, .325821D+03, .231320D+03, - + .163910D+03, .115950D+03, .818839D+02, .577408D+02, - + .407068D+02, .286527D+02, .201604D+02, .141900D+02, - + .999414D+01, .705004D+01, .498207D+01, .353212D+01, - + .251157D+01, .179270D+01, .128470D+01, .924886D+00, - + .668595D+00, .486200D+00, .354229D+00, .259724D+00, - + .190687D+00, .140622D+00, .103948D+00, .770145D-01, - + .571325D-01, .424250D-01, .314982D-01, .233766D-01, - + .173263D-01, .128229D-01, .946518D-02, .696829D-02, - + .511134D-02, .373397D-02, .271871D-02, .196572D-02 / - DATA (UPDI(I),I=2341,2392) / - + .141273D-02, .100958D-02, .716920D-03, .506186D-03, - + .355183D-03, .248006D-03, .172299D-03, .119326D-03, - + .824358D-04, .571659D-04, .396151D-04, .275612D-04, - + .192330D-04, .134507D-04, .938312D-05, .649416D-05, - + .441696D-05, .291236D-05, .183642D-05, .108304D-05, - + .578634D-06, .266464D-06, .961426D-07, .221441D-07, - + .176327D-08, .000000D+00, .232605D+07, .173787D+07, - + .127317D+07, .931943D+06, .681598D+06, .498015D+06, - + .363552D+06, .265116D+06, .193145D+06, .140555D+06, - + .102177D+06, .741881D+05, .538052D+05, .389718D+05, - + .281930D+05, .203668D+05, .146935D+05, .105844D+05, - + .761336D+04, .546728D+04, .392004D+04, .280565D+04, - + .200468D+04, .142962D+04, .101768D+04, .722900D+03 / - DATA (UPDI(I),I=2393,2444) / - + .512720D+03, .361100D+03, .255107D+03, .179867D+03, - + .126595D+03, .889441D+02, .623926D+02, .437549D+02, - + .306327D+02, .214364D+02, .150046D+02, .105088D+02, - + .737099D+01, .517900D+01, .365038D+01, .258042D+01, - + .183091D+01, .130425D+01, .933289D+00, .670571D+00, - + .484662D+00, .350935D+00, .255716D+00, .186578D+00, - + .136733D+00, .100444D+00, .739525D-01, .545177D-01, - + .402284D-01, .296804D-01, .218895D-01, .161232D-01, - + .118582D-01, .869934D-02, .636532D-02, .464111D-02, - + .337034D-02, .243985D-02, .175425D-02, .125417D-02, - + .891922D-03, .630651D-03, .443650D-03, .310448D-03, - + .216395D-03, .150279D-03, .104195D-03, .721831D-04, - + .502658D-04, .350271D-04, .245191D-04, .172149D-04 / - DATA (UPDI(I),I=2445,2496) / - + .120992D-04, .846724D-05, .586228D-05, .397722D-05, - + .260681D-05, .162886D-05, .948529D-06, .498586D-06, - + .224837D-06, .790053D-07, .177000D-07, .142980D-08, - + .000000D+00, .285124D+07, .212370D+07, .155010D+07, - + .113045D+07, .823689D+06, .599564D+06, .436013D+06, - + .316735D+06, .229854D+06, .166612D+06, .120639D+06, - + .872428D+05, .630172D+05, .454578D+05, .327494D+05, - + .235597D+05, .169253D+05, .121401D+05, .869480D+04, - + .621670D+04, .443774D+04, .316202D+04, .224913D+04, - + .159663D+04, .113132D+04, .799842D+03, .564597D+03, - + .395698D+03, .278189D+03, .195175D+03, .136681D+03, - + .955435D+02, .666764D+02, .465154D+02, .323922D+02, - + .225457D+02, .156947D+02, .109314D+02, .762435D+01 / - DATA (UPDI(I),I=2497,2548) / - + .532665D+01, .373287D+01, .262345D+01, .185053D+01, - + .131046D+01, .932145D+00, .665737D+00, .478274D+00, - + .344209D+00, .249287D+00, .180775D+00, .131668D+00, - + .961321D-01, .703420D-01, .515376D-01, .377947D-01, - + .277138D-01, .203139D-01, .148717D-01, .108713D-01, - + .792760D-02, .576620D-02, .417989D-02, .301805D-02, - + .217277D-02, .155393D-02, .110549D-02, .782649D-03, - + .551228D-03, .386534D-03, .269870D-03, .187880D-03, - + .130491D-03, .906160D-04, .629648D-04, .440274D-04, - + .308351D-04, .216962D-04, .153036D-04, .107896D-04, - + .755924D-05, .522492D-05, .352935D-05, .229593D-05, - + .141979D-05, .815596D-06, .421485D-06, .186050D-06, - + .636775D-07, .138890D-07, .113793D-08, .000000D+00 / - DATA (UPDI(I),I=2549,2600) / - + .408384D+05, .244600D+05, .192305D+05, .151190D+05, - + .118867D+05, .934548D+04, .734760D+04, .577689D+04, - + .454202D+04, .357116D+04, .280789D+04, .220780D+04, - + .173601D+04, .136509D+04, .107347D+04, .844195D+03, - + .663933D+03, .522205D+03, .410773D+03, .323160D+03, - + .254271D+03, .200105D+03, .157512D+03, .124020D+03, - + .976813D+02, .769674D+02, .606754D+02, .476994D+02, - + .376553D+02, .297511D+02, .235294D+02, .186305D+02, - + .147718D+02, .117389D+02, .934076D+01, .744881D+01, - + .595450D+01, .477250D+01, .383580D+01, .309147D+01, - + .249923D+01, .202570D+01, .164591D+01, .134011D+01, - + .109289D+01, .892261D+00, .729395D+00, .595443D+00, - + .486316D+00, .396133D+00, .322254D+00, .261455D+00 / - DATA (UPDI(I),I=2601,2652) / - + .211434D+00, .170321D+00, .136592D+00, .108991D+00, - + .864815D-01, .681979D-01, .534183D-01, .415361D-01, - + .320414D-01, .245055D-01, .185685D-01, .139476D-01, - + .103453D-01, .758332D-02, .548789D-02, .391638D-02, - + .275257D-02, .190255D-02, .129109D-02, .858572D-03, - + .558104D-03, .353517D-03, .218555D-03, .130485D-03, - + .751560D-04, .415367D-04, .218811D-04, .108951D-04, - + .507282D-05, .218088D-05, .844203D-06, .288760D-06, - + .835817D-07, .192628D-07, .319161D-08, .313902D-09, - + .119200D-10, .441541D-13, .000000D+00, .713987D+05, - + .557627D+05, .430325D+05, .332081D+05, .256294D+05, - + .197797D+05, .152668D+05, .117832D+05, .909554D+04, - + .702071D+04, .541981D+04, .418385D+04, .323017D+04 / - DATA (UPDI(I),I=2653,2704) / - + .249382D+04, .192562D+04, .148686D+04, .114828D+04, - + .886805D+03, .685016D+03, .529170D+03, .408894D+03, - + .315993D+03, .244284D+03, .188888D+03, .146120D+03, - + .113079D+03, .875742D+02, .676127D+02, .524423D+02, - + .407088D+02, .316409D+02, .246226D+02, .191930D+02, - + .149972D+02, .117383D+02, .920947D+01, .724680D+01, - + .571895D+01, .452862D+01, .359730D+01, .286840D+01, - + .229422D+01, .184082D+01, .148087D+01, .119420D+01, - + .964574D+00, .780740D+00, .631321D+00, .511178D+00, - + .412955D+00, .333402D+00, .268569D+00, .215771D+00, - + .172754D+00, .137778D+00, .109371D+00, .863785D-01, - + .678249D-01, .529285D-01, .410167D-01, .315523D-01, - + .240749D-01, .182088D-01, .136603D-01, .101253D-01 / - DATA (UPDI(I),I=2705,2756) / - + .742008D-02, .537160D-02, .383647D-02, .270032D-02, - + .186960D-02, .127137D-02, .846777D-03, .551023D-03, - + .348251D-03, .213951D-03, .125618D-03, .698051D-04, - + .357329D-04, .158662D-04, .500966D-05, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .122673D+06, .951392D+05, - + .728283D+05, .557401D+05, .426608D+05, .326441D+05, - + .249789D+05, .191098D+05, .146194D+05, .111819D+05, - + .855256D+04, .654013D+04, .500120D+04, .382361D+04, - + .292333D+04, .223457D+04, .170815D+04, .130551D+04, - + .997837D+03, .762564D+03, .582845D+03, .445444D+03, - + .340504D+03, .260289D+03, .199031D+03, .152221D+03 / - DATA (UPDI(I),I=2757,2808) / - + .116497D+03, .888486D+02, .680789D+02, .521976D+02, - + .400699D+02, .307931D+02, .237028D+02, .182890D+02, - + .141358D+02, .109517D+02, .851137D+01, .663451D+01, - + .519055D+01, .407436D+01, .321163D+01, .254010D+01, - + .201624D+01, .160519D+01, .128169D+01, .102544D+01, - + .822604D+00, .659447D+00, .529680D+00, .424612D+00, - + .340349D+00, .272291D+00, .217363D+00, .172977D+00, - + .137181D+00, .108319D+00, .851259D-01, .665327D-01, - + .517023D-01, .399110D-01, .305966D-01, .232749D-01, - + .175587D-01, .131460D-01, .973019D-02, .712472D-02, - + .515816D-02, .368796D-02, .260232D-02, .180931D-02, - + .123865D-02, .833275D-03, .550334D-03, .355441D-03, - + .225570D-03, .139133D-03, .836259D-04, .487410D-04 / - DATA (UPDI(I),I=2809,2860) / - + .275200D-04, .149535D-04, .781392D-05, .389245D-05, - + .183796D-05, .810057D-06, .330117D-06, .118574D-06, - + .365350D-07, .900037D-08, .184239D-08, .229576D-10, - + .000000D+00, .186531D+06, .143984D+06, .109617D+06, - + .834281D+05, .634884D+05, .482987D+05, .367382D+05, - + .279355D+05, .212390D+05, .161421D+05, .122667D+05, - + .931835D+04, .707766D+04, .537385D+04, .407965D+04, - + .309603D+04, .234928D+04, .178202D+04, .135161D+04, - + .102482D+04, .777019D+03, .588978D+03, .446458D+03, - + .338362D+03, .256471D+03, .194399D+03, .147427D+03, - + .111379D+03, .845354D+02, .641899D+02, .487930D+02, - + .371230D+02, .282866D+02, .216033D+02, .165256D+02, - + .126706D+02, .974523D+01, .751761D+01, .582107D+01 / - DATA (UPDI(I),I=2861,2912) / - + .452281D+01, .352959D+01, .276427D+01, .217329D+01, - + .171421D+01, .135654D+01, .107597D+01, .856054D+00, - + .680800D+00, .542725D+00, .431915D+00, .343825D+00, - + .273265D+00, .216783D+00, .171492D+00, .135239D+00, - + .106214D+00, .830488D-01, .645974D-01, .499726D-01, - + .384121D-01, .293323D-01, .222326D-01, .167174D-01, - + .124797D-01, .921397D-02, .673278D-02, .486724D-02, - + .347722D-02, .245398D-02, .170834D-02, .117286D-02, - + .792906D-03, .527764D-03, .344903D-03, .222708D-03, - + .140909D-03, .879049D-04, .540554D-04, .329697D-04, - + .199714D-04, .121413D-04, .740153D-05, .453714D-05, - + .276539D-05, .165342D-05, .934547D-06, .478896D-06, - + .204827D-06, .586512D-07, .416392D-08, .000000D+00 / - DATA (UPDI(I),I=2913,2964) / - + .208789D+06, .203921D+06, .154555D+06, .117095D+06, - + .886953D+05, .671550D+05, .508341D+05, .384629D+05, - + .290953D+05, .219992D+05, .166295D+05, .125646D+05, - + .949088D+04, .716564D+04, .540867D+04, .408050D+04, - + .307770D+04, .232021D+04, .174874D+04, .131740D+04, - + .992272D+03, .747065D+03, .562380D+03, .423202D+03, - + .318453D+03, .239588D+03, .180319D+03, .135156D+03, - + .101766D+03, .766452D+02, .577769D+02, .435859D+02, - + .329244D+02, .249253D+02, .188972D+02, .143587D+02, - + .109436D+02, .836530D+01, .641862D+01, .494200D+01, - + .382225D+01, .296709D+01, .231257D+01, .180865D+01, - + .141953D+01, .111694D+01, .881832D+00, .696062D+00, - + .550940D+00, .435425D+00, .344330D+00, .271930D+00 / - DATA (UPDI(I),I=2965,3016) / - + .214412D+00, .168628D+00, .132238D+00, .103300D+00, - + .803556D-01, .621955D-01, .478892D-01, .366464D-01, - + .278658D-01, .210371D-01, .157594D-01, .117239D-01, - + .862856D-02, .628716D-02, .453419D-02, .323317D-02, - + .227896D-02, .158586D-02, .108955D-02, .738188D-03, - + .493383D-03, .324652D-03, .211795D-03, .136053D-03, - + .867066D-04, .548867D-04, .347566D-04, .220475D-04, - + .141223D-04, .908879D-05, .585650D-05, .371951D-05, - + .228701D-05, .131299D-05, .674408D-06, .284985D-06, - + .794992D-07, .576400D-08, .000000D+00, .381088D+06, - + .291869D+06, .220183D+06, .166030D+06, .125154D+06, - + .942949D+05, .710199D+05, .534621D+05, .402303D+05, - + .302570D+05, .227473D+05, .170919D+05, .128375D+05 / - DATA (UPDI(I),I=3017,3068) / - + .963640D+04, .723058D+04, .542215D+04, .406436D+04, - + .304472D+04, .227996D+04, .170626D+04, .127646D+04, - + .954380D+03, .713337D+03, .532904D+03, .398010D+03, - + .297155D+03, .221894D+03, .164967D+03, .123189D+03, - + .920003D+02, .687530D+02, .514100D+02, .384842D+02, - + .288681D+02, .216817D+02, .163188D+02, .123181D+02, - + .932528D+01, .708577D+01, .540292D+01, .413846D+01, - + .318197D+01, .245668D+01, .190364D+01, .148057D+01, - + .115472D+01, .903876D+00, .707524D+00, .555524D+00, - + .435632D+00, .341906D+00, .268063D+00, .209885D+00, - + .163957D+00, .127737D+00, .991569D-01, .766626D-01, - + .589884D-01, .451602D-01, .343672D-01, .259921D-01, - + .195202D-01, .145477D-01, .107680D-01, .788474D-02 / - DATA (UPDI(I),I=3069,3120) / - + .571587D-02, .410056D-02, .290798D-02, .203763D-02, - + .140863D-02, .960407D-03, .644698D-03, .425902D-03, - + .276048D-03, .176516D-03, .110341D-03, .677406D-04, - + .407645D-04, .241285D-04, .140357D-04, .808582D-05, - + .461280D-05, .262132D-05, .147556D-05, .819127D-06, - + .434140D-06, .212122D-06, .875675D-07, .244625D-07, - + .171946D-08, .000000D+00, .526587D+06, .401805D+06, - + .301799D+06, .226568D+06, .170020D+06, .127513D+06, - + .955920D+05, .716191D+05, .536334D+05, .401395D+05, - + .300260D+05, .224462D+05, .167713D+05, .125227D+05, - + .934547D+04, .696949D+04, .519479D+04, .386922D+04, - + .288034D+04, .214266D+04, .159309D+04, .118365D+04, - + .879015D+03, .652362D+03, .483949D+03, .358823D+03 / - DATA (UPDI(I),I=3121,3172) / - + .266050D+03, .196344D+03, .145531D+03, .107862D+03, - + .799787D+02, .593288D+02, .440499D+02, .327698D+02, - + .244035D+02, .182095D+02, .136252D+02, .102239D+02, - + .769953D+01, .581868D+01, .441723D+01, .336627D+01, - + .257613D+01, .197895D+01, .152602D+01, .118023D+01, - + .916310D+00, .711525D+00, .554336D+00, .431409D+00, - + .336101D+00, .261635D+00, .203431D+00, .157847D+00, - + .122170D+00, .942327D-01, .724037D-01, .553763D-01, - + .421460D-01, .318910D-01, .239857D-01, .179170D-01, - + .132831D-01, .978247D-02, .712803D-02, .514321D-02, - + .367345D-02, .259449D-02, .181129D-02, .124830D-02, - + .849095D-03, .569258D-03, .376113D-03, .244370D-03, - + .157087D-03, .991543D-04, .618230D-04, .380985D-04 / - DATA (UPDI(I),I=3173,3224) / - + .233291D-04, .142202D-04, .869349D-05, .532385D-05, - + .326136D-05, .197486D-05, .116257D-05, .641641D-06, - + .317667D-06, .128713D-06, .341727D-07, .250799D-08, - + .000000D+00, .707029D+06, .537569D+06, .402085D+06, - + .300577D+06, .224587D+06, .167702D+06, .125162D+06, - + .933503D+05, .695866D+05, .518362D+05, .385916D+05, - + .287103D+05, .213463D+05, .158591D+05, .117750D+05, - + .873580D+04, .647686D+04, .479813D+04, .355218D+04, - + .262760D+04, .194244D+04, .143476D+04, .105912D+04, - + .781216D+03, .575907D+03, .424264D+03, .312506D+03, - + .229058D+03, .168610D+03, .124089D+03, .913476D+02, - + .672635D+02, .495642D+02, .365892D+02, .270336D+02, - + .200112D+02, .148516D+02, .110529D+02, .825472D+01 / - DATA (UPDI(I),I=3225,3276) / - + .618633D+01, .465710D+01, .351953D+01, .267107D+01, - + .203505D+01, .155654D+01, .119422D+01, .919915D+00, - + .708818D+00, .548075D+00, .423392D+00, .327482D+00, - + .253140D+00, .195477D+00, .150663D+00, .115848D+00, - + .887867D-01, .677935D-01, .515350D-01, .389886D-01, - + .293304D-01, .219343D-01, .162941D-01, .120143D-01, - + .880147D-02, .638020D-02, .458088D-02, .325642D-02, - + .228986D-02, .159222D-02, .109356D-02, .741834D-03, - + .496532D-03, .327988D-03, .213523D-03, .137900D-03, - + .878026D-04, .554957D-04, .348918D-04, .219479D-04, - + .138411D-04, .879488D-05, .560765D-05, .356285D-05, - + .222259D-05, .133340D-05, .742348D-06, .366166D-06, - + .145938D-06, .377260D-07, .282438D-08, .000000D+00 / - DATA (UPDI(I),I=3277,3328) / - + .928394D+06, .703432D+06, .524000D+06, .390097D+06, - + .290255D+06, .215817D+06, .160377D+06, .119092D+06, - + .883809D+05, .655396D+05, .485701D+05, .359656D+05, - + .266140D+05, .196775D+05, .145386D+05, .107324D+05, - + .791679D+04, .583457D+04, .429675D+04, .316133D+04, - + .232421D+04, .170718D+04, .125303D+04, .918877D+03, - + .673365D+03, .493041D+03, .360909D+03, .262833D+03, - + .192215D+03, .140523D+03, .102742D+03, .751286D+02, - + .549662D+02, .402841D+02, .295432D+02, .217045D+02, - + .159851D+02, .118044D+02, .874690D+01, .650356D+01, - + .485714D+01, .364167D+01, .274191D+01, .207265D+01, - + .157296D+01, .119754D+01, .915502D+00, .700148D+00, - + .537412D+00, .412164D+00, .316550D+00, .243004D+00 / - DATA (UPDI(I),I=3329,3380) / - + .186380D+00, .142701D+00, .109012D+00, .830162D-01, - + .629913D-01, .475917D-01, .357887D-01, .267649D-01, - + .199002D-01, .146997D-01, .107785D-01, .785347D-02, - + .566285D-02, .404515D-02, .286162D-02, .200312D-02, - + .138708D-02, .949281D-03, .642152D-03, .429073D-03, - + .283354D-03, .184817D-03, .119893D-03, .769591D-04, - + .492423D-04, .314951D-04, .202413D-04, .130875D-04, - + .852994D-05, .556744D-05, .360055D-05, .227118D-05, - + .136637D-05, .757258D-06, .368662D-06, .143668D-06, - + .360947D-07, .274720D-08, .000000D+00, .119705D+07, - + .903906D+06, .670637D+06, .497239D+06, .368455D+06, - + .272822D+06, .201882D+06, .149271D+06, .110297D+06, - + .814312D+05, .600773D+05, .442848D+05, .326191D+05 / - DATA (UPDI(I),I=3381,3432) / - + .240047D+05, .176513D+05, .129672D+05, .951829D+04, - + .697979D+04, .511397D+04, .374312D+04, .273742D+04, - + .199988D+04, .145982D+04, .106453D+04, .775652D+03, - + .564619D+03, .410843D+03, .297354D+03, .216110D+03, - + .156991D+03, .114038D+03, .828373D+02, .601960D+02, - + .438135D+02, .319054D+02, .232722D+02, .170149D+02, - + .124722D+02, .917281D+01, .676899D+01, .501714D+01, - + .373313D+01, .278947D+01, .209271D+01, .157627D+01, - + .119114D+01, .903939D+00, .686281D+00, .523010D+00, - + .398292D+00, .303780D+00, .231619D+00, .176461D+00, - + .134221D+00, .101872D+00, .770872D-01, .581278D-01, - + .436484D-01, .326254D-01, .242549D-01, .179290D-01, - + .131682D-01, .960135D-02, .695749D-02, .498990D-02 / - DATA (UPDI(I),I=3433,3484) / - + .354608D-02, .249625D-02, .173938D-02, .119946D-02, - + .817983D-03, .551824D-03, .368131D-03, .243095D-03, - + .158887D-03, .103543D-03, .669892D-04, .433530D-04, - + .281472D-04, .184096D-04, .121287D-04, .804169D-05, - + .532159D-05, .346947D-05, .219348D-05, .131392D-05, - + .720831D-06, .345003D-06, .131137D-06, .319942D-07, - + .247317D-08, .000000D+00, .151963D+07, .114366D+07, - + .845161D+06, .624136D+06, .460614D+06, .339664D+06, - + .250300D+06, .184293D+06, .135594D+06, .996756D+05, - + .732150D+05, .537292D+05, .393971D+05, .288600D+05, - + .211229D+05, .154444D+05, .112822D+05, .823300D+04, - + .600228D+04, .437118D+04, .318034D+04, .231134D+04, - + .167820D+04, .121715D+04, .881962D+03, .638378D+03 / - DATA (UPDI(I),I=3485,3536) / - + .461842D+03, .332279D+03, .240048D+03, .173317D+03, - + .125112D+03, .903046D+02, .651960D+02, .471399D+02, - + .340959D+02, .246995D+02, .179323D+02, .130519D+02, - + .953045D+01, .698217D+01, .513753D+01, .379486D+01, - + .281488D+01, .209640D+01, .156759D+01, .117604D+01, - + .886121D+00, .667987D+00, .505518D+00, .382313D+00, - + .289611D+00, .219341D+00, .166005D+00, .125449D+00, - + .946049D-01, .711371D-01, .533081D-01, .397849D-01, - + .295584D-01, .218447D-01, .160533D-01, .117233D-01, - + .849965D-02, .612533D-02, .436950D-02, .308921D-02, - + .216401D-02, .150107D-02, .103092D-02, .700666D-03, - + .471486D-03, .314120D-03, .207488D-03, .135940D-03, - + .890137D-04, .580391D-04, .379626D-04, .249748D-04 / - DATA (UPDI(I),I=3537,3588) / - + .165713D-04, .110728D-04, .742600D-05, .495173D-05, - + .323584D-05, .204023D-05, .121217D-05, .656361D-06, - + .308228D-06, .114157D-06, .270519D-07, .212271D-08, - + .000000D+00, .190293D+07, .142741D+07, .105074D+07, - + .772892D+06, .568119D+06, .417248D+06, .306214D+06, - + .224529D+06, .164504D+06, .120414D+06, .880668D+05, - + .643462D+05, .469731D+05, .342553D+05, .249575D+05, - + .181638D+05, .132065D+05, .959126D+04, .695866D+04, - + .504274D+04, .365058D+04, .263959D+04, .190661D+04, - + .137553D+04, .991370D+03, .713633D+03, .513404D+03, - + .367248D+03, .263774D+03, .189325D+03, .135844D+03, - + .974492D+02, .699133D+02, .502291D+02, .360940D+02, - + .259742D+02, .187310D+02, .135405D+02, .981904D+01 / - DATA (UPDI(I),I=3589,3640) / - + .714357D+01, .521943D+01, .382820D+01, .281955D+01, - + .208506D+01, .154813D+01, .115329D+01, .862950D+00, - + .646018D+00, .485556D+00, .364728D+00, .274445D+00, - + .206487D+00, .155260D+00, .116577D+00, .873563D-01, - + .652761D-01, .486144D-01, .360616D-01, .266314D-01, - + .195655D-01, .142947D-01, .103796D-01, .748317D-02, - + .536331D-02, .380551D-02, .267677D-02, .186609D-02, - + .128871D-02, .881632D-03, .597308D-03, .401037D-03, - + .266929D-03, .176441D-03, .115922D-03, .762905D-04, - + .501271D-04, .331145D-04, .220382D-04, .147945D-04, - + .998896D-05, .674760D-05, .451441D-05, .294574D-05, - + .184647D-05, .108557D-05, .579140D-06, .266537D-06, - + .961488D-07, .221444D-07, .176327D-08, .000000D+00 / - DATA (UPDI(I),I=3641,3692) / - + .235374D+07, .175985D+07, .129045D+07, .945526D+06, - + .692276D+06, .506408D+06, .370149D+06, .270301D+06, - + .197221D+06, .143758D+06, .104694D+06, .761665D+05, - + .553598D+05, .401933D+05, .291528D+05, .211208D+05, - + .152857D+05, .110495D+05, .797857D+04, .575400D+04, - + .414509D+04, .298225D+04, .214322D+04, .153827D+04, - + .110286D+04, .789646D+03, .565004D+03, .401893D+03, - + .287033D+03, .204840D+03, .146117D+03, .104196D+03, - + .743000D+02, .530522D+02, .378828D+02, .270873D+02, - + .194068D+02, .139367D+02, .100390D+02, .725448D+01, - + .526448D+01, .383489D+01, .280512D+01, .206017D+01, - + .151916D+01, .112398D+01, .835315D+00, .621096D+00, - + .463702D+00, .345996D+00, .258640D+00, .193334D+00 / - DATA (UPDI(I),I=3693,3744) / - + .144437D+00, .107763D+00, .802447D-01, .595909D-01, - + .441089D-01, .325222D-01, .238743D-01, .174371D-01, - + .126662D-01, .914498D-02, .655635D-02, .467360D-02, - + .329869D-02, .230867D-02, .160195D-02, .110161D-02, - + .750867D-03, .507249D-03, .339931D-03, .226135D-03, - + .149650D-03, .986349D-04, .652573D-04, .432013D-04, - + .288014D-04, .193592D-04, .131171D-04, .892170D-05, - + .605045D-05, .404879D-05, .263105D-05, .163606D-05, - + .950319D-06, .498939D-06, .224887D-06, .790095D-07, - + .177002D-07, .142980D-08, .000000D+00, .287868D+07, - + .214548D+07, .156723D+07, .114391D+07, .834268D+06, - + .607880D+06, .442549D+06, .321872D+06, .233891D+06, - + .169785D+06, .123133D+06, .892023D+05, .645568D+05 / - DATA (UPDI(I),I=3745,3796) / - + .466674D+05, .336996D+05, .243061D+05, .175114D+05, - + .126003D+05, .905609D+04, .650026D+04, .466023D+04, - + .333655D+04, .238598D+04, .170390D+04, .121536D+04, - + .865650D+03, .616105D+03, .435849D+03, .309579D+03, - + .219699D+03, .155826D+03, .110478D+03, .783154D+02, - + .555854D+02, .394495D+02, .280329D+02, .199578D+02, - + .142410D+02, .101919D+02, .731693D+01, .527482D+01, - + .381695D+01, .277339D+01, .202328D+01, .148199D+01, - + .108915D+01, .804071D+00, .593900D+00, .440489D+00, - + .326528D+00, .242510D+00, .180118D+00, .133712D+00, - + .991358D-01, .733626D-01, .541463D-01, .398360D-01, - + .291962D-01, .213061D-01, .154709D-01, .111736D-01, - + .802211D-02, .571964D-02, .405541D-02, .284760D-02 / - DATA (UPDI(I),I=3797,3848) / - + .198325D-02, .136993D-02, .938263D-03, .637352D-03, - + .429464D-03, .287375D-03, .191156D-03, .126707D-03, - + .838098D-04, .557506D-04, .371759D-04, .249903D-04, - + .169386D-04, .115587D-04, .789927D-05, .536427D-05, - + .358178D-05, .231348D-05, .142495D-05, .816860D-06, - + .421731D-06, .186084D-06, .636804D-07, .138892D-07, - + .113793D-08, .000000D+00, .319920D+05, .489424D+05, - + .384798D+05, .302541D+05, .237870D+05, .187026D+05, - + .147052D+05, .115624D+05, .909146D+04, .714877D+04, - + .562138D+04, .442049D+04, .347631D+04, .273394D+04, - + .215025D+04, .169130D+04, .133044D+04, .104669D+04, - + .823570D+03, .648117D+03, .510143D+03, .401638D+03, - + .316302D+03, .249183D+03, .196389D+03, .154858D+03 / - DATA (UPDI(I),I=3849,3900) / - + .122184D+03, .961514D+02, .759938D+02, .601245D+02, - + .476278D+02, .377837D+02, .300260D+02, .239254D+02, - + .190988D+02, .152887D+02, .122773D+02, .989336D+01, - + .800223D+01, .649748D+01, .529805D+01, .433669D+01, - + .356302D+01, .293724D+01, .242832D+01, .201216D+01, - + .167112D+01, .138742D+01, .115321D+01, .956710D+00, - + .792996D+00, .655774D+00, .540647D+00, .444057D+00, - + .363105D+00, .295396D+00, .238936D+00, .192039D+00, - + .153272D+00, .121404D+00, .953714D-01, .742557D-01, - + .572604D-01, .437527D-01, .330042D-01, .245953D-01, - + .180889D-01, .131146D-01, .936100D-02, .656883D-02, - + .452415D-02, .305242D-02, .201251D-02, .129262D-02, - + .809994D-03, .490070D-03, .285968D-03, .160074D-03 / - DATA (UPDI(I),I=3901,3952) / - + .853851D-04, .430388D-04, .202808D-04, .882193D-05, - + .345464D-05, .119509D-05, .349777D-06, .814947D-07, - + .136478D-07, .135646D-08, .520433D-10, .194743D-12, - + .000000D+00, .101959D+06, .800270D+05, .621102D+05, - + .482083D+05, .374236D+05, .290534D+05, .225587D+05, - + .175171D+05, .136044D+05, .105664D+05, .820814D+04, - + .637675D+04, .495486D+04, .385039D+04, .299271D+04, - + .232634D+04, .180876D+04, .140654D+04, .109406D+04, - + .851158D+03, .662413D+03, .515661D+03, .401591D+03, - + .312872D+03, .243885D+03, .190215D+03, .148476D+03, - + .115576D+03, .903845D+02, .707592D+02, .554740D+02, - + .435566D+02, .342644D+02, .270299D+02, .213656D+02, - + .169371D+02, .134720D+02, .107540D+02, .861875D+01 / - DATA (UPDI(I),I=3953,4004) / - + .693475D+01, .560496D+01, .454822D+01, .370538D+01, - + .302933D+01, .248441D+01, .204241D+01, .168337D+01, - + .138707D+01, .114461D+01, .942807D+00, .776095D+00, - + .637473D+00, .522125D+00, .426109D+00, .346272D+00, - + .279998D+00, .225145D+00, .179913D+00, .142792D+00, - + .112485D+00, .878969D-01, .680858D-01, .522384D-01, - + .397230D-01, .298224D-01, .221212D-01, .161957D-01, - + .116900D-01, .830805D-02, .580476D-02, .398051D-02, - + .267324D-02, .175395D-02, .111970D-02, .696434D-03, - + .416863D-03, .239268D-03, .130288D-03, .661074D-04, - + .302275D-04, .114141D-04, .249528D-05, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=4005,4056) / - + .152974D+06, .119198D+06, .917441D+05, .706130D+05, - + .543548D+05, .418391D+05, .322089D+05, .247950D+05, - + .190899D+05, .146974D+05, .113171D+05, .871434D+04, - + .671117D+04, .516858D+04, .398127D+04, .306684D+04, - + .236295D+04, .182075D+04, .140332D+04, .108174D+04, - + .834135D+03, .643344D+03, .496404D+03, .383151D+03, - + .295900D+03, .228637D+03, .176819D+03, .136345D+03, - + .105641D+03, .819377D+02, .636476D+02, .495154D+02, - + .385971D+02, .301723D+02, .236358D+02, .185698D+02, - + .146412D+02, .115857D+02, .920607D+01, .734482D+01, - + .588746D+01, .473865D+01, .382985D+01, .310664D+01, - + .252843D+01, .206306D+01, .168807D+01, .138095D+01, - + .113169D+01, .925797D+00, .757040D+00, .617782D+00 / - DATA (UPDI(I),I=4057,4108) / - + .502796D+00, .407795D+00, .329389D+00, .264773D+00, - + .211673D+00, .168192D+00, .132753D+00, .104014D+00, - + .808517D-01, .623108D-01, .475702D-01, .360011D-01, - + .269033D-01, .198676D-01, .144849D-01, .104147D-01, - + .737621D-02, .513867D-02, .351618D-02, .235882D-02, - + .154846D-02, .991170D-03, .620376D-03, .375717D-03, - + .220229D-03, .124358D-03, .673597D-04, .347764D-04, - + .170177D-04, .783535D-05, .335486D-05, .132528D-05, - + .477746D-06, .152251D-06, .420418D-07, .953733D-08, - + .186289D-08, .230433D-10, .000000D+00, .216584D+06, - + .167846D+06, .128378D+06, .981795D+05, .750868D+05, - + .574185D+05, .439090D+05, .335741D+05, .256728D+05, - + .196288D+05, .150085D+05, .114747D+05, .877355D+04 / - DATA (UPDI(I),I=4109,4160) / - + .670774D+04, .512885D+04, .392140D+04, .299863D+04, - + .229296D+04, .175369D+04, .134130D+04, .102617D+04, - + .785180D+03, .601006D+03, .460146D+03, .352476D+03, - + .270122D+03, .207189D+03, .158424D+03, .121730D+03, - + .936283D+02, .721217D+02, .556385D+02, .430076D+02, - + .333399D+02, .259004D+02, .201807D+02, .157809D+02, - + .123860D+02, .976293D+01, .772719D+01, .614563D+01, - + .490835D+01, .393702D+01, .316984D+01, .256112D+01, - + .207478D+01, .168585D+01, .136965D+01, .111494D+01, - + .906096D+00, .736181D+00, .596986D+00, .482887D+00, - + .389293D+00, .312596D+00, .249826D+00, .198594D+00, - + .156925D+00, .123189D+00, .960071D-01, .742405D-01, - + .569266D-01, .432439D-01, .325699D-01, .242249D-01 / - DATA (UPDI(I),I=4161,4212) / - + .178084D-01, .129272D-01, .925670D-02, .653141D-02, - + .453494D-02, .309458D-02, .207204D-02, .135933D-02, - + .871029D-03, .547224D-03, .333998D-03, .198566D-03, - + .114843D-03, .647348D-04, .356429D-04, .193505D-04, - + .104606D-04, .570153D-05, .315654D-05, .176413D-05, - + .959488D-06, .482919D-06, .205215D-06, .586659D-07, - + .416399D-08, .000000D+00, .200207D+06, .227594D+06, - + .173167D+06, .131730D+06, .100202D+06, .762023D+05, - + .579479D+05, .440567D+05, .334938D+05, .254581D+05, - + .193495D+05, .147037D+05, .111732D+05, .848883D+04, - + .644944D+04, .489922D+04, .372180D+04, .282699D+04, - + .214753D+04, .163128D+04, .123936D+04, .941624D+03, - + .715619D+03, .543939D+03, .413620D+03, .314635D+03 / - DATA (UPDI(I),I=4213,4264) / - + .239536D+03, .181759D+03, .138599D+03, .105788D+03, - + .808609D+02, .618976D+02, .474741D+02, .365167D+02, - + .281477D+02, .217616D+02, .168858D+02, .131513D+02, - + .102873D+02, .808078D+01, .637906D+01, .505738D+01, - + .402721D+01, .321938D+01, .258297D+01, .207810D+01, - + .167721D+01, .135358D+01, .109475D+01, .884010D+00, - + .713764D+00, .575272D+00, .462539D+00, .370700D+00, - + .295953D+00, .235187D+00, .185919D+00, .146108D+00, - + .114084D+00, .884442D-01, .680402D-01, .519096D-01, - + .392372D-01, .294096D-01, .217706D-01, .159303D-01, - + .115125D-01, .820867D-02, .576895D-02, .399107D-02, - + .271496D-02, .181347D-02, .118807D-02, .761322D-03, - + .479347D-03, .294148D-03, .176657D-03, .103927D-03 / - DATA (UPDI(I),I=4265,4316) / - + .601798D-04, .344866D-04, .197933D-04, .114728D-04, - + .675465D-05, .401801D-05, .237049D-05, .133158D-05, - + .677367D-06, .285267D-06, .795099D-07, .576405D-08, - + .000000D+00, .410631D+06, .315325D+06, .238625D+06, - + .180530D+06, .136555D+06, .103259D+06, .780685D+05, - + .590046D+05, .445885D+05, .336841D+05, .254423D+05, - + .192114D+05, .145043D+05, .109474D+05, .826169D+04, - + .623325D+04, .470242D+04, .354674D+04, .267498D+04, - + .201715D+04, .152117D+04, .114705D+04, .865065D+03, - + .652432D+03, .492206D+03, .371419D+03, .280477D+03, - + .211056D+03, .159602D+03, .120796D+03, .915501D+02, - + .694821D+02, .528321D+02, .402882D+02, .307855D+02, - + .235947D+02, .181496D+02, .140138D+02, .108679D+02 / - DATA (UPDI(I),I=4317,4368) / - + .846428D+01, .662555D+01, .520915D+01, .411398D+01, - + .326217D+01, .259646D+01, .207260D+01, .165995D+01, - + .132949D+01, .106732D+01, .855575D+00, .685871D+00, - + .548922D+00, .438317D+00, .348919D+00, .276717D+00, - + .218469D+00, .171596D+00, .134002D+00, .103981D+00, - + .801186D-01, .612634D-01, .464618D-01, .349113D-01, - + .260143D-01, .191441D-01, .139262D-01, .100046D-01, - + .709079D-02, .495268D-02, .340447D-02, .230016D-02, - + .152499D-02, .990696D-03, .628536D-03, .390917D-03, - + .236072D-03, .138717D-03, .791462D-04, .438574D-04, - + .236034D-04, .124066D-04, .641151D-05, .329183D-05, - + .169596D-05, .880046D-06, .447538D-06, .214229D-06, - + .877662D-07, .244700D-07, .171949D-08, .000000D+00 / - DATA (UPDI(I),I=4369,4420) / - + .555861D+06, .425048D+06, .320073D+06, .240936D+06, - + .181318D+06, .136396D+06, .102576D+06, .771110D+05, - + .579518D+05, .435353D+05, .326964D+05, .245462D+05, - + .184228D+05, .138216D+05, .103670D+05, .777306D+04, - + .582690D+04, .436653D+04, .327163D+04, .245058D+04, - + .183544D+04, .137444D+04, .102924D+04, .770688D+03, - + .577177D+03, .432305D+03, .323999D+03, .241917D+03, - + .181521D+03, .136309D+03, .102486D+03, .771582D+02, - + .581932D+02, .440157D+02, .333578D+02, .253561D+02, - + .193438D+02, .148132D+02, .113936D+02, .880149D+01, - + .683380D+01, .532987D+01, .417593D+01, .328538D+01, - + .259472D+01, .205542D+01, .163387D+01, .129889D+01, - + .103518D+01, .823850D+00, .655780D+00, .521200D+00 / - DATA (UPDI(I),I=4421,4472) / - + .413338D+00, .326825D+00, .257478D+00, .201954D+00, - + .157602D+00, .122294D+00, .943014D-01, .722116D-01, - + .548806D-01, .413714D-01, .309010D-01, .228912D-01, - + .167476D-01, .121131D-01, .865312D-02, .609933D-02, - + .423761D-02, .289826D-02, .194900D-02, .128684D-02, - + .833189D-03, .527490D-03, .327972D-03, .198563D-03, - + .117472D-03, .679299D-04, .385226D-04, .215177D-04, - + .119552D-04, .666702D-05, .375619D-05, .213551D-05, - + .120638D-05, .651143D-06, .319140D-06, .128850D-06, - + .341778D-07, .250801D-08, .000000D+00, .736037D+06, - + .560601D+06, .420193D+06, .314815D+06, .235782D+06, - + .176504D+06, .132083D+06, .987923D+05, .738656D+05, - + .552010D+05, .412376D+05, .307910D+05, .229826D+05 / - DATA (UPDI(I),I=4473,4524) / - + .171460D+05, .127871D+05, .953190D+04, .710308D+04, - + .529077D+04, .393976D+04, .293258D+04, .218245D+04, - + .162368D+04, .120785D+04, .898340D+03, .668167D+03, - + .496962D+03, .369818D+03, .274113D+03, .204174D+03, - + .152184D+03, .113561D+03, .848466D+02, .634993D+02, - + .476578D+02, .358356D+02, .270259D+02, .204552D+02, - + .155409D+02, .118593D+02, .908943D+01, .700234D+01, - + .541906D+01, .421319D+01, .328951D+01, .257844D+01, - + .202733D+01, .159975D+01, .126251D+01, .999015D+00, - + .789445D+00, .624023D+00, .492562D+00, .387985D+00, - + .304735D+00, .238494D+00, .185848D+00, .144103D+00, - + .111110D+00, .851403D-01, .647928D-01, .489410D-01, - + .366709D-01, .272256D-01, .200491D-01, .145819D-01 / - DATA (UPDI(I),I=4525,4576) / - + .104855D-01, .744770D-02, .522047D-02, .360750D-02, - + .245468D-02, .164289D-02, .108021D-02, .697083D-03, - + .440426D-03, .273797D-03, .166222D-03, .990273D-04, - + .580233D-04, .336210D-04, .193936D-04, .112510D-04, - + .660811D-05, .392708D-05, .233937D-05, .136481D-05, - + .749067D-06, .367192D-06, .146033D-06, .377296D-07, - + .282440D-08, .000000D+00, .957140D+06, .726256D+06, - + .541945D+06, .404206D+06, .301348D+06, .224539D+06, - + .167235D+06, .124485D+06, .926211D+05, .688738D+05, - + .511919D+05, .380273D+05, .282353D+05, .209526D+05, - + .155414D+05, .115211D+05, .853716D+04, .632257D+04, - + .468065D+04, .346338D+04, .256189D+04, .189423D+04, - + .140027D+04, .103480D+04, .764655D+03, .564952D+03 / - DATA (UPDI(I),I=4577,4628) / - + .417580D+03, .307364D+03, .227348D+03, .168260D+03, - + .124657D+03, .924612D+02, .686893D+02, .511717D+02, - + .381898D+02, .285847D+02, .214713D+02, .161894D+02, - + .122605D+02, .932585D+01, .713032D+01, .547674D+01, - + .422628D+01, .327535D+01, .254852D+01, .198925D+01, - + .155845D+01, .122115D+01, .959509D+00, .752946D+00, - + .591088D+00, .463406D+00, .362575D+00, .282894D+00, - + .219952D+00, .170292D+00, .131196D+00, .100518D+00, - + .765418D-01, .578884D-01, .434577D-01, .323649D-01, - + .238837D-01, .174833D-01, .126405D-01, .903633D-02, - + .638158D-02, .444816D-02, .305721D-02, .206961D-02, - + .137864D-02, .902761D-03, .580720D-03, .366242D-03, - + .227714D-03, .138675D-03, .832137D-04, .493884D-04 / - DATA (UPDI(I),I=4629,4680) / - + .291879D-04, .173018D-04, .103749D-04, .631077D-05, - + .386799D-05, .235586D-05, .138885D-05, .761999D-06, - + .369376D-06, .143733D-06, .360971D-07, .274722D-08, - + .000000D+00, .122553D+07, .926524D+06, .688420D+06, - + .511221D+06, .379448D+06, .281465D+06, .208678D+06, - + .154615D+06, .114498D+06, .847351D+05, .626752D+05, - + .463276D+05, .342255D+05, .252680D+05, .186448D+05, - + .137486D+05, .101328D+05, .746318D+04, .549420D+04, - + .404225D+04, .297276D+04, .218507D+04, .160556D+04, - + .117925D+04, .865967D+03, .635738D+03, .466867D+03, - + .341356D+03, .250806D+03, .184366D+03, .135650D+03, - + .999150D+02, .737030D+02, .545167D+02, .403933D+02, - + .300151D+02, .223814D+02, .167524D+02, .125940D+02 / - DATA (UPDI(I),I=4681,4732) / - + .950945D+01, .721761D+01, .550346D+01, .421612D+01, - + .324396D+01, .250603D+01, .194218D+01, .151090D+01, - + .117560D+01, .917350D+00, .714923D+00, .557437D+00, - + .434098D+00, .337393D+00, .261519D+00, .202013D+00, - + .155397D+00, .118958D+00, .905675D-01, .685335D-01, - + .515110D-01, .384329D-01, .284490D-01, .208671D-01, - + .151839D-01, .109128D-01, .775563D-02, .544571D-02, - + .377463D-02, .258036D-02, .173797D-02, .115240D-02, - + .751644D-03, .482098D-03, .303601D-03, .188879D-03, - + .115440D-03, .697979D-04, .419536D-04, .252492D-04, - + .153192D-04, .942396D-05, .587244D-05, .366534D-05, - + .225472D-05, .132996D-05, .724167D-06, .345498D-06, - + .131181D-06, .319959D-07, .247318D-08, .000000D+00 / - DATA (UPDI(I),I=4733,4784) / - + .154786D+07, .116607D+07, .862783D+06, .637992D+06, - + .471508D+06, .348229D+06, .257035D+06, .189589D+06, - + .139757D+06, .102949D+06, .757892D+05, .557534D+05, - + .409888D+05, .301117D+05, .221072D+05, .162184D+05, - + .118910D+05, .871179D+04, .637886D+04, .466740D+04, - + .341336D+04, .249466D+04, .182244D+04, .133066D+04, - + .971296D+03, .708699D+03, .517214D+03, .375746D+03, - + .274302D+03, .200324D+03, .146416D+03, .107123D+03, - + .784827D+02, .576547D+02, .424220D+02, .313023D+02, - + .231770D+02, .172254D+02, .128578D+02, .963991D+01, - + .726479D+01, .550027D+01, .418395D+01, .319661D+01, - + .245220D+01, .188724D+01, .145805D+01, .112668D+01, - + .873207D+00, .675917D+00, .523500D+00, .404970D+00 / - DATA (UPDI(I),I=4785,4836) / - + .312688D+00, .240794D+00, .184804D+00, .141250D+00, - + .107444D+00, .812877D-01, .611281D-01, .456613D-01, - + .338599D-01, .249120D-01, .181623D-01, .131370D-01, - + .938568D-02, .663139D-02, .462972D-02, .319126D-02, - + .217000D-02, .145435D-02, .960052D-03, .623878D-03, - + .399116D-03, .251087D-03, .156387D-03, .959797D-04, - + .584963D-04, .356004D-04, .217865D-04, .134818D-04, - + .845889D-05, .535886D-05, .337890D-05, .208441D-05, - + .122359D-05, .658703D-06, .308571D-06, .114187D-06, - + .270530D-07, .212272D-08, .000000D+00, .193090D+07, - + .144963D+07, .106820D+07, .786623D+06, .578914D+06, - + .425736D+06, .312888D+06, .229776D+06, .168630D+06, - + .123658D+06, .906175D+05, .663518D+05, .485501D+05 / - DATA (UPDI(I),I=4837,4888) / - + .354954D+05, .259326D+05, .189306D+05, .138095D+05, - + .100655D+05, .733159D+04, .533604D+04, .388127D+04, - + .282105D+04, .204935D+04, .148782D+04, .107972D+04, - + .783148D+03, .568116D+03, .410173D+03, .297579D+03, - + .215957D+03, .156834D+03, .114002D+03, .829751D+02, - + .605518D+02, .442550D+02, .324343D+02, .238517D+02, - + .176057D+02, .130515D+02, .971783D+01, .727311D+01, - + .546868D+01, .413133D+01, .313478D+01, .238832D+01, - + .182556D+01, .140087D+01, .107517D+01, .827719D+00, - + .636433D+00, .489664D+00, .376316D+00, .288674D+00, - + .220869D+00, .168426D+00, .127915D+00, .966874D-01, - + .726928D-01, .543256D-01, .403304D-01, .297243D-01, - + .217370D-01, .157521D-01, .113259D-01, .804403D-02 / - DATA (UPDI(I),I=4889,4940) / - + .565050D-02, .392259D-02, .268906D-02, .181902D-02, - + .121328D-02, .797532D-03, .516509D-03, .329708D-03, - + .207316D-03, .129348D-03, .797626D-04, .490175D-04, - + .301947D-04, .187607D-04, .118031D-04, .751738D-05, - + .481450D-05, .304995D-05, .187825D-05, .109367D-05, - + .580779D-06, .266773D-06, .961694D-07, .221451D-07, - + .176327D-08, .000000D+00, .238146D+07, .178187D+07, - + .130776D+07, .959132D+06, .702973D+06, .514819D+06, - + .376762D+06, .275501D+06, .201309D+06, .146972D+06, - + .107221D+06, .781536D+05, .569222D+05, .414218D+05, - + .301187D+05, .218803D+05, .158829D+05, .115191D+05, - + .834786D+04, .604439D+04, .437344D+04, .316182D+04, - + .228444D+04, .164934D+04, .119021D+04, .858347D+03 / - DATA (UPDI(I),I=4941,4992) / - + .619047D+03, .444268D+03, .320382D+03, .231091D+03, - + .166788D+03, .120479D+03, .871326D+02, .631790D+02, - + .458755D+02, .334021D+02, .244014D+02, .178922D+02, - + .131755D+02, .974465D+01, .724436D+01, .541056D+01, - + .406002D+01, .306004D+01, .231578D+01, .175828D+01, - + .134029D+01, .102184D+01, .781484D+00, .596928D+00, - + .456274D+00, .348384D+00, .265528D+00, .201860D+00, - + .152953D+00, .115432D+00, .867052D-01, .647827D-01, - + .481153D-01, .355013D-01, .260062D-01, .189034D-01, - + .136166D-01, .973263D-02, .687191D-02, .479943D-02, - + .331318D-02, .225911D-02, .152046D-02, .100947D-02, - + .660936D-03, .426743D-03, .271937D-03, .170997D-03, - + .106938D-03, .662913D-04, .410868D-04, .256042D-04 / - DATA (UPDI(I),I=4993,5044) / - + .161256D-04, .102843D-04, .662263D-05, .426940D-05, - + .270676D-05, .165887D-05, .956058D-06, .500083D-06, - + .225050D-06, .790235D-07, .177007D-07, .142981D-08, - + .000000D+00, .290615D+07, .216729D+07, .158437D+07, - + .115739D+07, .844868D+06, .616214D+06, .449102D+06, - + .327024D+06, .237942D+06, .172970D+06, .125637D+06, - + .911710D+05, .661047D+05, .478844D+05, .346564D+05, - + .250584D+05, .181029D+05, .130654D+05, .942173D+04, - + .678773D+04, .488624D+04, .351424D+04, .252568D+04, - + .181373D+04, .130170D+04, .933527D+03, .669471D+03, - + .477665D+03, .342463D+03, .245562D+03, .176171D+03, - + .126486D+03, .909143D+02, .655124D+02, .472708D+02, - + .341998D+02, .248244D+02, .180853D+02, .132316D+02 / - DATA (UPDI(I),I=5045,5096) / - + .972258D+01, .718085D+01, .532810D+01, .397196D+01, - + .297406D+01, .223597D+01, .168655D+01, .127724D+01, - + .967395D+00, .735043D+00, .557808D+00, .423624D+00, - + .321382D+00, .243386D+00, .183856D+00, .138433D+00, - + .103819D+00, .774978D-01, .575457D-01, .424779D-01, - + .311510D-01, .226815D-01, .163880D-01, .117344D-01, - + .833810D-02, .585312D-02, .406472D-02, .279059D-02, - + .189281D-02, .126771D-02, .837984D-03, .546648D-03, - + .352015D-03, .224040D-03, .140964D-03, .884125D-04, - + .551214D-04, .344571D-04, .217080D-04, .138349D-04, - + .892008D-05, .578846D-05, .374353D-05, .236835D-05, - + .144126D-05, .820913D-06, .422528D-06, .186196D-06, - + .636899D-07, .138895D-07, .113793D-08, .000000D+00 / - DATA (UPDI(I),I=5097,5148) / - + .319388D+05, .489190D+05, .384588D+05, .302353D+05, - + .237702D+05, .186875D+05, .146916D+05, .115502D+05, - + .908057D+04, .713900D+04, .561262D+04, .441264D+04, - + .346926D+04, .272762D+04, .214457D+04, .168621D+04, - + .132587D+04, .104259D+04, .819883D+03, .644803D+03, - + .507163D+03, .398955D+03, .313885D+03, .247004D+03, - + .194421D+03, .153078D+03, .120571D+03, .946876D+02, - + .746603D+02, .589059D+02, .465102D+02, .367546D+02, - + .290740D+02, .230405D+02, .182724D+02, .145130D+02, - + .115459D+02, .920081D+01, .734433D+01, .587110D+01, - + .470105D+01, .376790D+01, .302206D+01, .242435D+01, - + .194418D+01, .155766D+01, .124709D+01, .994865D+00, - + .792473D+00, .628168D+00, .496304D+00, .390274D+00 / - DATA (UPDI(I),I=5149,5200) / - + .305272D+00, .237376D+00, .183383D+00, .140665D+00, - + .107066D+00, .808124D-01, .604479D-01, .447769D-01, - + .328221D-01, .237877D-01, .170296D-01, .120497D-01, - + .838596D-02, .574457D-02, .386745D-02, .255436D-02, - + .165169D-02, .104302D-02, .641352D-03, .382620D-03, - + .220387D-03, .121758D-03, .644157D-04, .319823D-04, - + .147217D-04, .610844D-05, .215822D-05, .551238D-06, - + .149019D-07, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .101930D+06, - + .800012D+05, .620871D+05, .481876D+05, .374050D+05, - + .290368D+05, .225438D+05, .175037D+05, .135923D+05, - + .105556D+05, .819848D+04, .636809D+04, .494709D+04 / - DATA (UPDI(I),I=5201,5252) / - + .384342D+04, .298645D+04, .232073D+04, .180372D+04, - + .140202D+04, .108999D+04, .847507D+03, .659129D+03, - + .512706D+03, .398929D+03, .310472D+03, .241720D+03, - + .188257D+03, .146702D+03, .113969D+03, .889220D+02, - + .694247D+02, .542523D+02, .424342D+02, .332290D+02, - + .260707D+02, .204733D+02, .161034D+02, .126900D+02, - + .100181D+02, .792414D+01, .627809D+01, .498376D+01, - + .396100D+01, .315138D+01, .250839D+01, .199673D+01, - + .158838D+01, .126324D+01, .100128D+01, .792907D+00, - + .625017D+00, .491315D+00, .384550D+00, .299552D+00, - + .232078D+00, .178744D+00, .136766D+00, .103910D+00, - + .783426D-01, .585884D-01, .434285D-01, .318922D-01, - + .231854D-01, .166745D-01, .118737D-01, .833398D-02 / - DATA (UPDI(I),I=5253,5304) / - + .577092D-02, .393910D-02, .264669D-02, .174862D-02, - + .113356D-02, .719909D-03, .446242D-03, .269146D-03, - + .156390D-03, .873759D-04, .453884D-04, .209917D-04, - + .735810D-05, .208887D-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, .152942D+06, .119169D+06, - + .917187D+05, .705903D+05, .543344D+05, .418209D+05, - + .321925D+05, .247803D+05, .190767D+05, .146856D+05, - + .113066D+05, .870486D+04, .670267D+04, .516096D+04, - + .397443D+04, .306071D+04, .235744D+04, .181580D+04, - + .139888D+04, .107775D+04, .830550D+03, .640119D+03, - + .493500D+03, .380535D+03, .293540D+03, .226504D+03 / - DATA (UPDI(I),I=5305,5356) / - + .174889D+03, .134598D+03, .104053D+03, .804909D+02, - + .623254D+02, .483035D+02, .374822D+02, .291427D+02, - + .226815D+02, .176821D+02, .138125D+02, .108100D+02, - + .847831D+01, .666125D+01, .524521D+01, .413589D+01, - + .326538D+01, .257988D+01, .203907D+01, .161096D+01, - + .127291D+01, .100263D+01, .789362D+00, .618769D+00, - + .483899D+00, .376924D+00, .292323D+00, .225573D+00, - + .173123D+00, .132056D+00, .100075D+00, .752989D-01, - + .562366D-01, .416575D-01, .305980D-01, .222702D-01, - + .160527D-01, .114721D-01, .809437D-02, .564481D-02, - + .388993D-02, .264650D-02, .177757D-02, .117731D-02, - + .769248D-03, .495198D-03, .314347D-03, .196123D-03, - + .121316D-03, .735945D-04, .440883D-04, .259561D-04 / - DATA (UPDI(I),I=5357,5408) / - + .150608D-04, .853738D-05, .473798D-05, .253495D-05, - + .130089D-05, .622817D-06, .275133D-06, .105738D-06, - + .343896D-07, .878675D-08, .183406D-08, .229204D-10, - + .000000D+00, .216550D+06, .167815D+06, .128350D+06, - + .981548D+05, .750646D+05, .573986D+05, .438912D+05, - + .335582D+05, .256585D+05, .196160D+05, .149971D+05, - + .114644D+05, .876432D+04, .669945D+04, .512143D+04, - + .391474D+04, .299265D+04, .228760D+04, .174887D+04, - + .133697D+04, .102228D+04, .781685D+03, .597861D+03, - + .457314D+03, .349922D+03, .267816D+03, .205104D+03, - + .156539D+03, .120018D+03, .920716D+02, .707018D+02, - + .543399D+02, .418160D+02, .322429D+02, .248871D+02, - + .192420D+02, .149087D+02, .115736D+02, .900502D+01 / - DATA (UPDI(I),I=5409,5460) / - + .701959D+01, .548503D+01, .429254D+01, .336432D+01, - + .263920D+01, .207170D+01, .162591D+01, .127663D+01, - + .999423D+00, .782326D+00, .609878D+00, .474482D+00, - + .367790D+00, .283948D+00, .218193D+00, .166819D+00, - + .126808D+00, .958051D-01, .718974D-01, .535828D-01, - + .396281D-01, .290792D-01, .211586D-01, .152586D-01, - + .109194D-01, .772293D-02, .540505D-02, .374356D-02, - + .256422D-02, .173779D-02, .116432D-02, .772167D-03, - + .506628D-03, .329499D-03, .212101D-03, .136484D-03, - + .871369D-04, .557300D-04, .356681D-04, .230029D-04, - + .148848D-04, .972634D-05, .634632D-05, .412423D-05, - + .262306D-05, .161216D-05, .925035D-06, .477328D-06, - + .204673D-06, .586452D-07, .416389D-08, .000000D+00 / - DATA (UPDI(I),I=5461,5512) / - + .200139D+06, .227560D+06, .173138D+06, .131703D+06, - + .100178D+06, .761808D+05, .579286D+05, .440394D+05, - + .334784D+05, .254442D+05, .193371D+05, .146926D+05, - + .111632D+05, .847988D+04, .644141D+04, .489202D+04, - + .371534D+04, .282120D+04, .214233D+04, .162661D+04, - + .123517D+04, .937857D+03, .712230D+03, .540890D+03, - + .410872D+03, .312156D+03, .237297D+03, .179737D+03, - + .136766D+03, .104123D+03, .793451D+02, .605144D+02, - + .462081D+02, .353547D+02, .270782D+02, .207745D+02, - + .159726D+02, .123050D+02, .950184D+01, .735168D+01, - + .570252D+01, .443071D+01, .344826D+01, .268657D+01, - + .209493D+01, .163358D+01, .127476D+01, .991994D+00, - + .772111D+00, .598630D+00, .463321D+00, .357376D+00 / - DATA (UPDI(I),I=5513,5564) / - + .274633D+00, .210120D+00, .159999D+00, .121171D+00, - + .912348D-01, .682589D-01, .507357D-01, .374379D-01, - + .274230D-01, .199280D-01, .143607D-01, .102757D-01, - + .727213D-02, .509673D-02, .353844D-02, .243221D-02, - + .165633D-02, .111689D-02, .746902D-03, .495280D-03, - + .326430D-03, .213677D-03, .140290D-03, .918045D-04, - + .604403D-04, .399979D-04, .267545D-04, .179993D-04, - + .122184D-04, .826492D-05, .553753D-05, .361077D-05, - + .225586D-05, .130590D-05, .673254D-06, .284872D-06, - + .794949D-07, .576398D-08, .000000D+00, .410590D+06, - + .315289D+06, .238592D+06, .180501D+06, .136529D+06, - + .103236D+06, .780474D+05, .589858D+05, .445715D+05, - + .336689D+05, .254287D+05, .191992D+05, .144934D+05 / - DATA (UPDI(I),I=5565,5616) / - + .109376D+05, .825293D+04, .622540D+04, .469539D+04, - + .354043D+04, .266932D+04, .201207D+04, .151661D+04, - + .114295D+04, .861385D+03, .649123D+03, .489227D+03, - + .368735D+03, .278056D+03, .208872D+03, .157625D+03, - + .119005D+03, .899230D+02, .680011D+02, .514809D+02, - + .390522D+02, .296523D+02, .225537D+02, .171913D+02, - + .131305D+02, .100531D+02, .771285D+01, .593308D+01, - + .457234D+01, .353005D+01, .272888D+01, .211178D+01, - + .163460D+01, .126651D+01, .978773D+00, .756804D+00, - + .583033D+00, .448511D+00, .343953D+00, .262864D+00, - + .200070D+00, .151598D+00, .114280D+00, .856750D-01, - + .638440D-01, .472800D-01, .347721D-01, .253940D-01, - + .184052D-01, .132321D-01, .944900D-02, .667476D-02 / - DATA (UPDI(I),I=5617,5668) / - + .467030D-02, .323699D-02, .222095D-02, .150886D-02, - + .101404D-02, .674645D-03, .443852D-03, .289012D-03, - + .185817D-03, .118860D-03, .749640D-04, .469211D-04, - + .290668D-04, .178985D-04, .109135D-04, .663188D-05, - + .399005D-05, .238285D-05, .139518D-05, .796379D-06, - + .429024D-06, .211300D-06, .874884D-07, .244594D-07, - + .171944D-08, .000000D+00, .555817D+06, .425008D+06, - + .320037D+06, .240904D+06, .181289D+06, .136371D+06, - + .102553D+06, .770904D+05, .579333D+05, .435188D+05, - + .326816D+05, .245329D+05, .184109D+05, .138109D+05, - + .103575D+05, .776453D+04, .581926D+04, .435968D+04, - + .326549D+04, .244507D+04, .183050D+04, .137000D+04, - + .102526D+04, .767112D+03, .573961D+03, .429411D+03 / - DATA (UPDI(I),I=5669,5720) / - + .321392D+03, .239569D+03, .179400D+03, .134391D+03, - + .100748D+03, .755804D+02, .567579D+02, .427075D+02, - + .321632D+02, .242635D+02, .183430D+02, .138957D+02, - + .105523D+02, .803044D+01, .612799D+01, .468533D+01, - + .358920D+01, .275354D+01, .211502D+01, .162524D+01, - + .125041D+01, .959704D+00, .737162D+00, .564263D+00, - + .431396D+00, .328870D+00, .249907D+00, .189175D+00, - + .142597D+00, .106963D+00, .798125D-01, .592124D-01, - + .436676D-01, .319916D-01, .232802D-01, .168190D-01, - + .120566D-01, .858784D-02, .605331D-02, .422830D-02, - + .292714D-02, .200722D-02, .136381D-02, .917502D-03, - + .611698D-03, .403874D-03, .264368D-03, .171354D-03, - + .110837D-03, .710285D-04, .454219D-04, .289698D-04 / - DATA (UPDI(I),I=5721,5772) / - + .185146D-04, .118318D-04, .759324D-05, .485788D-05, - + .308508D-05, .191620D-05, .114619D-05, .638011D-06, - + .317093D-06, .128658D-06, .341706D-07, .250798D-08, - + .000000D+00, .735989D+06, .560557D+06, .420154D+06, - + .314780D+06, .235751D+06, .176477D+06, .132058D+06, - + .987699D+05, .738456D+05, .551831D+05, .412215D+05, - + .307767D+05, .229697D+05, .171344D+05, .127768D+05, - + .952266D+04, .709480D+04, .528335D+04, .393312D+04, - + .292663D+04, .217711D+04, .161890D+04, .120356D+04, - + .894489D+03, .664709D+03, .493854D+03, .367022D+03, - + .271599D+03, .201908D+03, .150138D+03, .111712D+03, - + .831727D+02, .619815D+02, .462791D+02, .345817D+02, - + .258841D+02, .194144D+02, .145920D+02, .109941D+02 / - DATA (UPDI(I),I=5773,5824) / - + .830143D+01, .628574D+01, .476917D+01, .362580D+01, - + .276096D+01, .210526D+01, .160620D+01, .122717D+01, - + .935461D+00, .713813D+00, .542884D+00, .412476D+00, - + .312563D+00, .236139D+00, .177757D+00, .133269D+00, - + .994500D-01, .738388D-01, .545220D-01, .400273D-01, - + .291998D-01, .211634D-01, .152326D-01, .108812D-01, - + .772580D-02, .542985D-02, .378324D-02, .261352D-02, - + .178934D-02, .121458D-02, .816977D-03, .545115D-03, - + .360684D-03, .236990D-03, .154581D-03, .100889D-03, - + .654955D-04, .426063D-04, .277850D-04, .182364D-04, - + .120186D-04, .796438D-05, .525989D-05, .343288D-05, - + .217990D-05, .132164D-05, .739779D-06, .365765D-06, - + .145901D-06, .377246D-07, .282437D-08, .000000D+00 / - DATA (UPDI(I),I=5825,5876) / - + .957088D+06, .726209D+06, .541902D+06, .404169D+06, - + .301315D+06, .224509D+06, .167208D+06, .124460D+06, - + .925994D+05, .688544D+05, .511745D+05, .380117D+05, - + .282214D+05, .209401D+05, .155302D+05, .115111D+05, - + .852822D+04, .631457D+04, .467349D+04, .345697D+04, - + .255615D+04, .188909D+04, .139566D+04, .103067D+04, - + .760949D+03, .561625D+03, .414591D+03, .304682D+03, - + .224935D+03, .166087D+03, .122697D+03, .906924D+02, - + .670905D+02, .497247D+02, .368789D+02, .273963D+02, - + .203933D+02, .152117D+02, .113742D+02, .852356D+01, - + .640545D+01, .482379D+01, .364027D+01, .275183D+01, - + .208328D+01, .157826D+01, .119755D+01, .906719D+00, - + .687348D+00, .519404D+00, .392179D+00, .295389D+00 / - DATA (UPDI(I),I=5877,5928) / - + .221855D+00, .166055D+00, .123810D+00, .918996D-01, - + .678819D-01, .498757D-01, .364418D-01, .264633D-01, - + .190967D-01, .136885D-01, .973997D-02, .689024D-02, - + .482609D-02, .335228D-02, .230961D-02, .157781D-02, - + .106927D-02, .718647D-03, .479570D-03, .317773D-03, - + .209440D-03, .137355D-03, .903501D-04, .593112D-04, - + .391380D-04, .259764D-04, .173872D-04, .117003D-04, - + .790462D-05, .530855D-05, .350497D-05, .224019D-05, - + .135795D-05, .755444D-06, .368383D-06, .143642D-06, - + .360937D-07, .274720D-08, .000000D+00, .122548D+07, - + .926473D+06, .688374D+06, .511180D+06, .379411D+06, - + .281432D+06, .208649D+06, .154589D+06, .114475D+06, - + .847141D+05, .626564D+05, .463108D+05, .342105D+05 / - DATA (UPDI(I),I=5929,5980) / - + .252545D+05, .186328D+05, .137378D+05, .101232D+05, - + .745457D+04, .548650D+04, .403536D+04, .296660D+04, - + .217955D+04, .160062D+04, .117483D+04, .862007D+03, - + .632187D+03, .463684D+03, .338504D+03, .248246D+03, - + .182065D+03, .133581D+03, .980526D+02, .720251D+02, - + .530034D+02, .390280D+02, .287828D+02, .212690D+02, - + .157488D+02, .116894D+02, .869554D+01, .648694D+01, - + .484967D+01, .363342D+01, .272710D+01, .205004D+01, - + .154231D+01, .116235D+01, .874177D+00, .658362D+00, - + .494318D+00, .370912D+00, .277676D+00, .207318D+00, - + .154282D+00, .114387D+00, .844435D-01, .620452D-01, - + .453544D-01, .329744D-01, .238314D-01, .171186D-01, - + .122170D-01, .865641D-02, .609941D-02, .425622D-02 / - DATA (UPDI(I),I=5981,6032) / - + .294637D-02, .202382D-02, .137907D-02, .932769D-03, - + .626199D-03, .417817D-03, .277185D-03, .183214D-03, - + .120768D-03, .800211D-04, .530634D-04, .354525D-04, - + .238727D-04, .162207D-04, .110756D-04, .757211D-05, - + .512937D-05, .339937D-05, .217103D-05, .130791D-05, - + .719554D-06, .344809D-06, .131119D-06, .319935D-07, - + .247316D-08, .000000D+00, .154779D+07, .116602D+07, - + .862734D+06, .637948D+06, .471468D+06, .348194D+06, - + .257003D+06, .189560D+06, .139732D+06, .102927D+06, - + .757690D+05, .557353D+05, .409726D+05, .300972D+05, - + .220943D+05, .162069D+05, .118806D+05, .870255D+04, - + .637060D+04, .466002D+04, .340676D+04, .248876D+04, - + .181717D+04, .132594D+04, .967076D+03, .704922D+03 / - DATA (UPDI(I),I=6033,6084) / - + .513833D+03, .372723D+03, .271593D+03, .197896D+03, - + .144238D+03, .105168D+03, .767277D+02, .560777D+02, - + .410049D+02, .300290D+02, .220331D+02, .161988D+02, - + .119377D+02, .881702D+01, .653074D+01, .484779D+01, - + .360641D+01, .268793D+01, .200663D+01, .149935D+01, - + .112240D+01, .838540D+00, .627437D+00, .468097D+00, - + .349053D+00, .259723D+00, .192762D+00, .142618D+00, - + .105140D+00, .771885D-01, .564097D-01, .410197D-01, - + .296714D-01, .213390D-01, .152556D-01, .108379D-01, - + .764551D-02, .536467D-02, .372878D-02, .257197D-02, - + .176098D-02, .119674D-02, .807772D-03, .541632D-03, - + .361332D-03, .240004D-03, .159104D-03, .105407D-03, - + .703359D-04, .470795D-04, .318016D-04, .216729D-04 / - DATA (UPDI(I),I=6085,6136) / - + .148969D-04, .102755D-04, .707430D-05, .480940D-05, - + .318456D-05, .202402D-05, .120789D-05, .655464D-06, - + .308094D-06, .114145D-06, .270514D-07, .212271D-08, - + .000000D+00, .193084D+07, .144957D+07, .106815D+07, - + .786575D+06, .578871D+06, .425698D+06, .312854D+06, - + .229746D+06, .168602D+06, .123633D+06, .905957D+05, - + .663323D+05, .485327D+05, .354798D+05, .259187D+05, - + .189182D+05, .137984D+05, .100556D+05, .732274D+04, - + .532815D+04, .387422D+04, .281475D+04, .204373D+04, - + .148279D+04, .107523D+04, .779140D+03, .564535D+03, - + .406978D+03, .294722D+03, .213402D+03, .154549D+03, - + .111958D+03, .811454D+02, .589138D+02, .427890D+02, - + .311229D+02, .226793D+02, .165591D+02, .121187D+02 / - DATA (UPDI(I),I=6137,6188) / - + .888857D+01, .653802D+01, .481958D+01, .356067D+01, - + .263565D+01, .195424D+01, .145038D+01, .107856D+01, - + .800503D+00, .595130D+00, .441181D+00, .326942D+00, - + .241794D+00, .178387D+00, .131213D+00, .961806D-01, - + .702177D-01, .510364D-01, .369158D-01, .265650D-01, - + .190094D-01, .135242D-01, .956301D-02, .671577D-02, - + .469213D-02, .324815D-02, .223219D-02, .152335D-02, - + .103244D-02, .695453D-03, .465797D-03, .310736D-03, - + .206690D-03, .137451D-03, .915291D-04, .614982D-04, - + .415247D-04, .283227D-04, .194943D-04, .135171D-04, - + .938698D-05, .648491D-05, .440930D-05, .290833D-05, - + .183479D-05, .108252D-05, .578511D-06, .266444D-06, - + .961405D-07, .221441D-07, .176326D-08, .000000D+00 / - DATA (UPDI(I),I=6189,6240) / - + .238139D+07, .178180D+07, .130770D+07, .959081D+06, - + .702927D+06, .514778D+06, .376725D+06, .275468D+06, - + .201279D+06, .146946D+06, .107198D+06, .781327D+05, - + .569035D+05, .414051D+05, .301038D+05, .218670D+05, - + .158711D+05, .115085D+05, .833841D+04, .603596D+04, - + .436593D+04, .315512D+04, .227847D+04, .164401D+04, - + .118546D+04, .854105D+03, .615265D+03, .440900D+03, - + .317378D+03, .228411D+03, .164397D+03, .118347D+03, - + .852309D+02, .614828D+02, .443637D+02, .320558D+02, - + .232037D+02, .168285D+02, .122329D+02, .891161D+01, - + .651054D+01, .476680D+01, .349787D+01, .257175D+01, - + .189412D+01, .139643D+01, .103166D+01, .760729D+00, - + .561961D+00, .413969D+00, .304883D+00, .224115D+00 / - DATA (UPDI(I),I=6241,6292) / - + .164360D+00, .120191D+00, .875968D-01, .635931D-01, - + .459684D-01, .330724D-01, .236752D-01, .168557D-01, - + .119331D-01, .839804D-02, .587074D-02, .408398D-02, - + .281566D-02, .192783D-02, .131139D-02, .886436D-03, - + .595970D-03, .398798D-03, .266104D-03, .177306D-03, - + .118314D-03, .791987D-04, .535729D-04, .364668D-04, - + .250845D-04, .174046D-04, .121452D-04, .846839D-05, - + .585478D-05, .397139D-05, .260383D-05, .162768D-05, - + .948163D-06, .498500D-06, .224823D-06, .790039D-07, - + .177000D-07, .142980D-08, .000000D+00, .290607D+07, - + .216722D+07, .158431D+07, .115734D+07, .844819D+06, - + .616170D+06, .449062D+06, .326989D+06, .237911D+06, - + .172942D+06, .125611D+06, .911486D+05, .660847D+05 / - DATA (UPDI(I),I=6293,6344) / - + .478665D+05, .346405D+05, .250442D+05, .180903D+05, - + .130541D+05, .941166D+04, .677876D+04, .487824D+04, - + .350712D+04, .251933D+04, .180808D+04, .129667D+04, - + .929049D+03, .665485D+03, .474124D+03, .339312D+03, - + .242759D+03, .173677D+03, .124269D+03, .889434D+02, - + .637612D+02, .457164D+02, .328219D+02, .236046D+02, - + .170077D+02, .122819D+02, .888830D+01, .645050D+01, - + .469152D+01, .341982D+01, .249776D+01, .182753D+01, - + .133854D+01, .982517D+00, .719838D+00, .528400D+00, - + .386815D+00, .283136D+00, .206874D+00, .150817D+00, - + .109644D+00, .794531D-01, .573576D-01, .412335D-01, - + .295068D-01, .210121D-01, .148836D-01, .104849D-01, - + .734384D-02, .511030D-02, .353962D-02, .243050D-02 / - DATA (UPDI(I),I=6345,6396) / - + .165808D-02, .112435D-02, .758119D-03, .508839D-03, - + .340271D-03, .227178D-03, .151679D-03, .101587D-03, - + .683634D-04, .465452D-04, .319174D-04, .221146D-04, - + .154406D-04, .108212D-04, .755881D-05, .521889D-05, - + .352493D-05, .229373D-05, .141894D-05, .815336D-06, - + .421425D-06, .186040D-06, .636766D-07, .138890D-07, - + .113793D-08, .000000D+00, .163288D+07, .126754D+07, - + .971388D+06, .744435D+06, .570511D+06, .437223D+06, - + .335078D+06, .256799D+06, .196810D+06, .150836D+06, - + .115604D+06, .886032D+05, .679107D+05, .520525D+05, - + .398991D+05, .305849D+05, .234465D+05, .179755D+05, - + .137825D+05, .105687D+05, .810544D+04, .621736D+04, - + .477009D+04, .366065D+04, .281013D+04, .215804D+04 / - DATA (UPDI(I),I=6397,6448) / - + .165803D+04, .126985D+04, .976974D+03, .752269D+03, - + .579827D+03, .447454D+03, .345804D+03, .267917D+03, - + .207884D+03, .161724D+03, .126199D+03, .988248D+02, - + .776986D+02, .613560D+02, .487020D+02, .388590D+02, - + .311796D+02, .251640D+02, .204300D+02, .166860D+02, - + .137184D+02, .113289D+02, .941653D+01, .785707D+01, - + .658980D+01, .554891D+01, .468840D+01, .397244D+01, - + .337311D+01, .286859D+01, .244167D+01, .207879D+01, - + .176913D+01, .150404D+01, .127653D+01, .108092D+01, - + .912567D+00, .768245D+00, .643283D+00, .535937D+00, - + .443919D+00, .365274D+00, .298317D+00, .241582D+00, - + .193783D+00, .153787D+00, .120563D+00, .931963D-01, - + .710916D-01, .531915D-01, .390108D-01, .279569D-01 / - DATA (UPDI(I),I=6449,6500) / - + .195023D-01, .131791D-01, .857453D-02, .533237D-02, - + .312462D-02, .170673D-02, .847867D-03, .370024D-03, - + .133851D-03, .359879D-04, .563032D-05, .234289D-06, - + .000000D+00, .253463D+07, .196325D+07, .150055D+07, - + .114651D+07, .876029D+06, .669130D+06, .511106D+06, - + .390262D+06, .297992D+06, .227452D+06, .173610D+06, - + .132461D+06, .101064D+06, .770781D+05, .587833D+05, - + .448125D+05, .341611D+05, .260307D+05, .198350D+05, - + .151078D+05, .115071D+05, .876133D+04, .667098D+04, - + .507775D+04, .386545D+04, .294181D+04, .223943D+04, - + .169821D+04, .129344D+04, .985364D+03, .751228D+03, - + .573081D+03, .437713D+03, .334980D+03, .256690D+03, - + .197118D+03, .151817D+03, .117296D+03, .909861D+02 / - DATA (UPDI(I),I=6501,6552) / - + .708678D+02, .554878D+02, .436650D+02, .345587D+02, - + .275094D+02, .220321D+02, .177500D+02, .143980D+02, - + .117299D+02, .962039D+01, .792009D+01, .655485D+01, - + .544660D+01, .454141D+01, .379731D+01, .318209D+01, - + .267067D+01, .224343D+01, .188502D+01, .158321D+01, - + .132836D+01, .111263D+01, .929823D+00, .774634D+00, - + .643535D+00, .531660D+00, .437002D+00, .357058D+00, - + .289784D+00, .233376D+00, .186332D+00, .147313D+00, - + .115195D+00, .889604D-01, .677063D-01, .508291D-01, - + .374064D-01, .269627D-01, .189778D-01, .129884D-01, - + .860345D-02, .547740D-02, .332910D-02, .190183D-02, - + .101062D-02, .486647D-03, .205125D-03, .712233D-04, - + .182813D-04, .274335D-05, .116680D-06, .000000D+00 / - DATA (UPDI(I),I=6553,6604) / - + .377829D+07, .291709D+07, .222109D+07, .169030D+07, - + .128628D+07, .978322D+06, .744035D+06, .565545D+06, - + .429830D+06, .326495D+06, .247971D+06, .188219D+06, - + .142844D+06, .108339D+06, .821550D+05, .622585D+05, - + .471715D+05, .357165D+05, .270378D+05, .204538D+05, - + .154700D+05, .116926D+05, .883600D+04, .667303D+04, - + .503890D+04, .380253D+04, .286962D+04, .215630D+04, - + .162716D+04, .122770D+04, .926756D+03, .699781D+03, - + .528902D+03, .400422D+03, .303470D+03, .230422D+03, - + .175444D+03, .133977D+03, .102710D+03, .790527D+02, - + .611623D+02, .475561D+02, .371897D+02, .292503D+02, - + .231477D+02, .184265D+02, .147701D+02, .118898D+02, - + .963635D+01, .783900D+01, .641093D+01, .526390D+01 / - DATA (UPDI(I),I=6605,6656) / - + .433698D+01, .358327D+01, .296694D+01, .246037D+01, - + .204201D+01, .169517D+01, .140658D+01, .116589D+01, - + .964676D+00, .796362D+00, .655274D+00, .537661D+00, - + .438625D+00, .355976D+00, .287131D+00, .230012D+00, - + .182797D+00, .143992D+00, .112277D+00, .865684D-01, - + .658952D-01, .494074D-01, .365258D-01, .264531D-01, - + .187506D-01, .129686D-01, .871260D-02, .565925D-02, - + .352740D-02, .209602D-02, .116783D-02, .603855D-03, - + .281917D-03, .114763D-03, .382479D-04, .937114D-05, - + .134758D-05, .580337D-07, .000000D+00, .542532D+07, - + .417355D+07, .316435D+07, .239772D+07, .181651D+07, - + .137532D+07, .104108D+07, .787539D+06, .595609D+06, - + .450139D+06, .340108D+06, .256784D+06, .193815D+06 / - DATA (UPDI(I),I=6657,6708) / - + .146175D+06, .110208D+06, .830233D+05, .625218D+05, - + .470431D+05, .353830D+05, .265898D+05, .199740D+05, - + .149909D+05, .112469D+05, .843063D+04, .631741D+04, - + .472967D+04, .354039D+04, .263784D+04, .197346D+04, - + .147586D+04, .110399D+04, .825871D+03, .618255D+03, - + .463521D+03, .347796D+03, .261403D+03, .196984D+03, - + .148856D+03, .112913D+03, .859808D+02, .658109D+02, - + .506210D+02, .391601D+02, .304680D+02, .238513D+02, - + .187815D+02, .148927D+02, .118584D+02, .950716D+01, - + .764980D+01, .618817D+01, .502561D+01, .409531D+01, - + .334642D+01, .274023D+01, .224716D+01, .184426D+01, - + .151385D+01, .124197D+01, .101778D+01, .832526D+00, - + .679392D+00, .552541D+00, .448088D+00, .361222D+00 / - DATA (UPDI(I),I=6709,6760) / - + .289650D+00, .230797D+00, .182609D+00, .143306D+00, - + .111444D+00, .857634D-01, .652432D-01, .489834D-01, - + .362066D-01, .263770D-01, .188129D-01, .131235D-01, - + .892603D-02, .589163D-02, .375591D-02, .229435D-02, - + .133427D-02, .725994D-03, .365791D-03, .165875D-03, - + .653539D-04, .209721D-04, .492635D-05, .681504D-06, - + .291914D-07, .000000D+00, .754293D+07, .578095D+07, - + .436401D+07, .329211D+07, .248279D+07, .187110D+07, - + .140967D+07, .106123D+07, .798633D+06, .600538D+06, - + .451402D+06, .339017D+06, .254502D+06, .190886D+06, - + .143104D+06, .107182D+06, .802365D+05, .600062D+05, - + .448523D+05, .334912D+05, .249937D+05, .186329D+05, - + .138830D+05, .103334D+05, .768713D+04, .571230D+04 / - DATA (UPDI(I),I=6761,6812) / - + .424335D+04, .313656D+04, .232774D+04, .172652D+04, - + .128062D+04, .949755D+03, .704721D+03, .523609D+03, - + .389274D+03, .289850D+03, .216348D+03, .161921D+03, - + .121631D+03, .917134D+02, .695072D+02, .529355D+02, - + .405437D+02, .312307D+02, .242045D+02, .188690D+02, - + .148128D+02, .116759D+02, .926682D+01, .738086D+01, - + .590999D+01, .475077D+01, .383164D+01, .309871D+01, - + .251105D+01, .203775D+01, .165481D+01, .134399D+01, - + .109086D+01, .884373D+00, .715585D+00, .577608D+00, - + .464585D+00, .372587D+00, .296972D+00, .235414D+00, - + .185410D+00, .144975D+00, .112410D+00, .863508D-01, - + .656228D-01, .492842D-01, .365170D-01, .266256D-01, - + .191268D-01, .134434D-01, .923547D-02, .618180D-02 / - DATA (UPDI(I),I=6813,6864) / - + .401199D-02, .251231D-02, .150553D-02, .857761D-03, - + .456358D-03, .224371D-03, .990050D-04, .378351D-04, - + .117266D-04, .265150D-05, .353953D-06, .147299D-07, - + .000000D+00, .105408D+08, .804403D+07, .604208D+07, - + .453495D+07, .340238D+07, .255066D+07, .191130D+07, - + .143102D+07, .107090D+07, .800706D+06, .598360D+06, - + .446733D+06, .333333D+06, .248475D+06, .185101D+06, - + .137747D+06, .102438D+06, .760963D+05, .564873D+05, - + .418834D+05, .310315D+05, .229642D+05, .169812D+05, - + .125422D+05, .925651D+04, .682279D+04, .502629D+04, - + .368339D+04, .270981D+04, .199210D+04, .146416D+04, - + .107583D+04, .790683D+03, .581823D+03, .428285D+03, - + .315708D+03, .233250D+03, .172776D+03, .128432D+03 / - DATA (UPDI(I),I=6865,6916) / - + .958249D+02, .718543D+02, .541412D+02, .410231D+02, - + .312610D+02, .239667D+02, .184815D+02, .143515D+02, - + .111884D+02, .878283D+01, .691808D+01, .547800D+01, - + .435443D+01, .347251D+01, .277653D+01, .222434D+01, - + .178437D+01, .143229D+01, .114971D+01, .922213D+00, - + .738801D+00, .590664D+00, .471039D+00, .374253D+00, - + .296465D+00, .233352D+00, .182647D+00, .142009D+00, - + .109595D+00, .838534D-01, .635455D-01, .476267D-01, - + .352650D-01, .257525D-01, .184967D-01, .130841D-01, - + .904968D-02, .611406D-02, .402171D-02, .256275D-02, - + .157407D-02, .924083D-03, .515081D-03, .267619D-03, - + .128241D-03, .550168D-04, .203827D-04, .610455D-05, - + .133034D-05, .171378D-06, .664476D-08, .000000D+00 / - DATA (UPDI(I),I=6917,6968) / - + .144134D+08, .109519D+08, .818463D+07, .611159D+07, - + .456127D+07, .340134D+07, .253495D+07, .188755D+07, - + .140463D+07, .104427D+07, .775839D+06, .575828D+06, - + .427070D+06, .316403D+06, .234230D+06, .173201D+06, - + .127966D+06, .944313D+05, .696232D+05, .512677D+05, - + .377164D+05, .277108D+05, .203404D+05, .149106D+05, - + .109198D+05, .798546D+04, .583560D+04, .424093D+04, - + .309379D+04, .225494D+04, .164283D+04, .119636D+04, - + .871243D+03, .635178D+03, .463139D+03, .338128D+03, - + .247380D+03, .181439D+03, .133527D+03, .986255D+02, - + .732050D+02, .545974D+02, .409445D+02, .308803D+02, - + .234300D+02, .178800D+02, .137400D+02, .105990D+02, - + .823268D+01, .641578D+01, .502604D+01, .395226D+01 / - DATA (UPDI(I),I=6969,7020) / - + .311767D+01, .246564D+01, .195357D+01, .154980D+01, - + .123011D+01, .976302D+00, .774226D+00, .613145D+00, - + .484539D+00, .381902D+00, .299846D+00, .234699D+00, - + .182497D+00, .141088D+00, .108330D+00, .825451D-01, - + .623426D-01, .466229D-01, .344737D-01, .251747D-01, - + .181245D-01, .128278D-01, .893813D-02, .608557D-02, - + .404471D-02, .261540D-02, .163694D-02, .986529D-03, - + .567584D-03, .309636D-03, .157176D-03, .734429D-04, - + .306504D-04, .110153D-04, .319047D-05, .670471D-06, - + .831468D-07, .280994D-08, .000000D+00, .192937D+08, - + .145977D+08, .108545D+08, .806414D+07, .598740D+07, - + .444143D+07, .329244D+07, .243833D+07, .180449D+07, - + .133405D+07, .985479D+06, .727194D+06, .536149D+06 / - DATA (UPDI(I),I=7021,7072) / - + .394837D+06, .290505D+06, .213479D+06, .156723D+06, - + .114907D+06, .841608D+05, .615570D+05, .449754D+05, - + .328134D+05, .239137D+05, .174024D+05, .126497D+05, - + .918008D+04, .665651D+04, .479864D+04, .347228D+04, - + .250992D+04, .181316D+04, .130905D+04, .944937D+03, - + .682774D+03, .493313D+03, .356838D+03, .258622D+03, - + .187888D+03, .136947D+03, .100174D+03, .736294D+02, - + .543757D+02, .403755D+02, .301494D+02, .226475D+02, - + .171096D+02, .130161D+02, .993870D+01, .764145D+01, - + .589392D+01, .456965D+01, .355614D+01, .277590D+01, - + .217227D+01, .170288D+01, .133651D+01, .104940D+01, - + .823848D+00, .646184D+00, .506103D+00, .395503D+00, - + .308230D+00, .239255D+00, .185133D+00, .142281D+00 / - DATA (UPDI(I),I=7073,7124) / - + .108702D+00, .824669D-01, .620759D-01, .463050D-01, - + .341941D-01, .249595D-01, .179880D-01, .127767D-01, - + .891751D-02, .612551D-02, .410915D-02, .268942D-02, - + .171142D-02, .105338D-02, .623779D-03, .352287D-03, - + .188448D-03, .936709D-04, .427961D-04, .174335D-04, - + .610344D-05, .171900D-05, .350583D-06, .419896D-07, - + .111368D-08, .000000D+00, .253157D+08, .190742D+08, - + .141133D+08, .104329D+08, .770685D+07, .568756D+07, - + .419415D+07, .308969D+07, .227419D+07, .167211D+07, - + .122833D+07, .901275D+06, .660670D+06, .483696D+06, - + .353763D+06, .258391D+06, .188523D+06, .137355D+06, - + .999575D+05, .726348D+05, .527158D+05, .382002D+05, - + .276467D+05, .199771D+05, .144164D+05, .103851D+05 / - DATA (UPDI(I),I=7125,7176) / - + .747369D+04, .534587D+04, .383797D+04, .275214D+04, - + .197193D+04, .141188D+04, .101052D+04, .723894D+03, - + .518433D+03, .371673D+03, .266940D+03, .192159D+03, - + .138765D+03, .100557D+03, .732156D+02, .535585D+02, - + .393895D+02, .291315D+02, .216721D+02, .162143D+02, - + .122154D+02, .923580D+01, .703142D+01, .536964D+01, - + .412177D+01, .317552D+01, .245383D+01, .190079D+01, - + .147486D+01, .114566D+01, .890237D+00, .691618D+00, - + .536779D+00, .415973D+00, .321608D+00, .247951D+00, - + .190376D+00, .145705D+00, .110738D+00, .836550D-01, - + .627447D-01, .466869D-01, .344191D-01, .251152D-01, - + .181111D-01, .128915D-01, .904151D-02, .622889D-02, - + .422228D-02, .279377D-02, .180279D-02, .113052D-02 / - DATA (UPDI(I),I=7177,7228) / - + .685334D-03, .399451D-03, .221890D-03, .116655D-03, - + .569348D-04, .255161D-04, .101858D-04, .349049D-05, - + .961569D-06, .191578D-06, .222391D-07, .385653D-09, - + .000000D+00, .326070D+08, .244682D+08, .180171D+08, - + .132538D+08, .974205D+07, .715344D+07, .524819D+07, - + .384617D+07, .281611D+07, .205952D+07, .150470D+07, - + .109799D+07, .800356D+06, .582632D+06, .423651D+06, - + .307618D+06, .223092D+06, .161550D+06, .116833D+06, - + .843607D+05, .608306D+05, .437909D+05, .314801D+05, - + .225915D+05, .161892D+05, .115788D+05, .827219D+04, - + .587254D+04, .418415D+04, .297724D+04, .211640D+04, - + .150317D+04, .106705D+04, .758047D+03, .538290D+03, - + .382593D+03, .272383D+03, .194347D+03, .139090D+03 / - DATA (UPDI(I),I=7229,7280) / - + .998839D+02, .720643D+02, .522338D+02, .380610D+02, - + .278884D+02, .205540D+02, .152338D+02, .113692D+02, - + .851446D+01, .642089D+01, .485648D+01, .369212D+01, - + .281709D+01, .215577D+01, .165364D+01, .127052D+01, - + .977210D+00, .751821D+00, .578266D+00, .444308D+00, - + .340845D+00, .260851D+00, .199057D+00, .151262D+00, - + .114573D+00, .861654D-01, .644037D-01, .477898D-01, - + .351754D-01, .256492D-01, .185087D-01, .131971D-01, - + .928656D-02, .643756D-02, .438229D-02, .293482D-02, - + .191784D-02, .122188D-02, .756255D-03, .452319D-03, - + .259998D-03, .142372D-03, .737487D-04, .354464D-04, - + .156360D-04, .614106D-05, .206946D-05, .560635D-06, - + .109745D-06, .123909D-07, .888538D-10, .000000D+00 / - DATA (UPDI(I),I=7281,7332) / - + .412836D+08, .308567D+08, .226143D+08, .165563D+08, - + .121106D+08, .884910D+07, .645988D+07, .471031D+07, - + .343112D+07, .249626D+07, .181415D+07, .131670D+07, - + .954544D+06, .691031D+06, .499638D+06, .360717D+06, - + .260075D+06, .187215D+06, .134576D+06, .965752D+05, - + .692017D+05, .494995D+05, .353522D+05, .252021D+05, - + .179375D+05, .127404D+05, .903798D+04, .636944D+04, - + .450491D+04, .318154D+04, .224438D+04, .158170D+04, - + .111390D+04, .784972D+03, .552838D+03, .389665D+03, - + .275075D+03, .194591D+03, .138060D+03, .982792D+02, - + .702826D+02, .504911D+02, .364629D+02, .264780D+02, - + .193388D+02, .142033D+02, .105042D+02, .779460D+01, - + .582435D+01, .436466D+01, .328759D+01, .248521D+01 / - DATA (UPDI(I),I=7333,7384) / - + .188411D+01, .143176D+01, .108974D+01, .830281D+00, - + .632748D+00, .482069D+00, .366872D+00, .278753D+00, - + .211287D+00, .159683D+00, .120166D+00, .901368D-01, - + .671235D-01, .496759D-01, .364952D-01, .265932D-01, - + .191956D-01, .137106D-01, .967545D-02, .673756D-02, - + .462140D-02, .311227D-02, .206183D-02, .133252D-02, - + .839472D-03, .513661D-03, .303668D-03, .172491D-03, - + .933205D-04, .477487D-04, .226643D-04, .987120D-05, - + .382774D-05, .127331D-05, .340595D-06, .657684D-07, - + .724545D-08, .000000D+00, .000000D+00, .514456D+08, - + .383044D+08, .279434D+08, .203627D+08, .148246D+08, - + .107804D+08, .783148D+07, .568236D+07, .411850D+07, - + .298119D+07, .215541D+07, .155623D+07, .112219D+07 / - DATA (UPDI(I),I=7385,7436) / - + .808024D+06, .581024D+06, .417140D+06, .299049D+06, - + .214031D+06, .152949D+06, .109105D+06, .777041D+05, - + .552371D+05, .392007D+05, .277657D+05, .196323D+05, - + .138505D+05, .975836D+04, .682854D+04, .479528D+04, - + .336211D+04, .235423D+04, .164665D+04, .115073D+04, - + .804619D+03, .562174D+03, .393053D+03, .275197D+03, - + .193067D+03, .135833D+03, .958764D+02, .679802D+02, - + .484184D+02, .346642D+02, .249537D+02, .180668D+02, - + .131530D+02, .964244D+01, .709200D+01, .525277D+01, - + .390142D+01, .291264D+01, .218223D+01, .163970D+01, - + .123493D+01, .931536D+00, .703401D+00, .531256D+00, - + .401117D+00, .302525D+00, .227796D+00, .171110D+00, - + .128153D+00, .955677D-01, .710391D-01, .524210D-01 / - DATA (UPDI(I),I=7437,7488) / - + .384415D-01, .279837D-01, .202041D-01, .144495D-01, - + .102253D-01, .714885D-02, .493159D-02, .335085D-02, - + .223518D-02, .146671D-02, .938776D-03, .585686D-03, - + .354867D-03, .207724D-03, .116819D-03, .625691D-04, - + .316911D-04, .148898D-04, .641871D-05, .246354D-05, - + .810960D-06, .214670D-06, .409736D-07, .441599D-08, - + .000000D+00, .000000D+00, .631720D+08, .468597D+08, - + .340311D+08, .246863D+08, .178894D+08, .129484D+08, - + .936191D+07, .676024D+07, .487586D+07, .351199D+07, - + .252644D+07, .181484D+07, .130191D+07, .932513D+06, - + .666960D+06, .476243D+06, .339537D+06, .241648D+06, - + .171698D+06, .121769D+06, .862103D+05, .609151D+05, - + .429648D+05, .302416D+05, .212465D+05, .148916D+05 / - DATA (UPDI(I),I=7489,7540) / - + .104223D+05, .724313D+04, .505135D+04, .351678D+04, - + .244489D+04, .169759D+04, .117750D+04, .817130D+03, - + .566521D+03, .393001D+03, .272981D+03, .189978D+03, - + .132575D+03, .928119D+02, .652649D+02, .460989D+02, - + .327282D+02, .233627D+02, .167728D+02, .121079D+02, - + .880160D+01, .641860D+01, .471388D+01, .347141D+01, - + .256966D+01, .190895D+01, .142221D+01, .106206D+01, - + .794361D+00, .594752D+00, .445406D+00, .333464D+00, - + .249385D+00, .186206D+00, .138697D+00, .103008D+00, - + .761743D-01, .561527D-01, .410903D-01, .298813D-01, - + .215713D-01, .154448D-01, .109541D-01, .768733D-02, - + .532989D-02, .364622D-02, .245690D-02, .162519D-02, - + .105761D-02, .671271D-03, .415296D-03, .249519D-03 / - DATA (UPDI(I),I=7541,7592) / - + .144833D-03, .807638D-04, .428930D-04, .215402D-04, - + .100336D-04, .428746D-05, .163093D-05, .531850D-06, - + .139417D-06, .263139D-07, .278025D-08, .000000D+00, - + .000000D+00, .765181D+08, .565532D+08, .408908D+08, - + .295308D+08, .213037D+08, .153495D+08, .110466D+08, - + .793947D+07, .569917D+07, .408526D+07, .292446D+07, - + .209035D+07, .149200D+07, .106320D+07, .756480D+06, - + .537316D+06, .381022D+06, .269694D+06, .190561D+06, - + .134384D+06, .945941D+05, .664479D+05, .465876D+05, - + .325923D+05, .227559D+05, .158485D+05, .110206D+05, - + .760797D+04, .527028D+04, .364420D+04, .251585D+04, - + .173451D+04, .119442D+04, .822814D+03, .566206D+03, - + .389811D+03, .268687D+03, .185539D+03, .128462D+03 / - DATA (UPDI(I),I=7593,7644) / - + .892200D+02, .622391D+02, .436092D+02, .307112D+02, - + .217457D+02, .154855D+02, .110879D+02, .799496D+01, - + .578286D+01, .421268D+01, .307713D+01, .225940D+01, - + .166494D+01, .123046D+01, .911510D+00, .676321D+00, - + .502349D+00, .373231D+00, .277227D+00, .205704D+00, - + .152393D+00, .112631D+00, .830046D-01, .609103D-01, - + .445591D-01, .323586D-01, .233535D-01, .167321D-01, - + .118903D-01, .837031D-02, .583054D-02, .401271D-02, - + .272493D-02, .182267D-02, .119683D-02, .773205D-03, - + .487182D-03, .299215D-03, .178464D-03, .102834D-03, - + .569211D-04, .300061D-04, .149543D-04, .691154D-05, - + .292932D-05, .110476D-05, .356889D-06, .926042D-07, - + .172749D-07, .179219D-08, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=7645,7696) / - + .319388D+05, .493033D+05, .388034D+05, .305442D+05, - + .240472D+05, .189359D+05, .149144D+05, .117500D+05, - + .925970D+04, .729966D+04, .575671D+04, .454189D+04, - + .358522D+04, .283166D+04, .223794D+04, .177001D+04, - + .140110D+04, .111014D+04, .880561D+03, .699329D+03, - + .556181D+03, .443046D+03, .353568D+03, .282746D+03, - + .226642D+03, .182153D+03, .146838D+03, .118418D+03, - + .961640D+02, .784268D+02, .642674D+02, .529445D+02, - + .438727D+02, .366087D+02, .307473D+02, .260198D+02, - + .221950D+02, .190894D+02, .165569D+02, .144803D+02, - + .127698D+02, .113484D+02, .101581D+02, .915185D+01, - + .829245D+01, .755043D+01, .690469D+01, .633070D+01, - + .582108D+01, .535827D+01, .493817D+01, .455219D+01 / - DATA (UPDI(I),I=7697,7748) / - + .419503D+01, .386262D+01, .355182D+01, .326022D+01, - + .298603D+01, .272787D+01, .248473D+01, .225582D+01, - + .204056D+01, .183848D+01, .164920D+01, .147319D+01, - + .130832D+01, .115544D+01, .101425D+01, .884466D+00, - + .765779D+00, .657847D+00, .560301D+00, .472740D+00, - + .394682D+00, .325606D+00, .265597D+00, .213231D+00, - + .168400D+00, .130513D+00, .989656D-01, .731491D-01, - + .524484D-01, .362734D-01, .239278D-01, .149272D-01, - + .863776D-02, .451133D-02, .203133D-02, .723587D-03, - + .168106D-03, .137357D-04, .000000D+00, .102396D+06, - + .804200D+05, .624626D+05, .485242D+05, .377068D+05, - + .293074D+05, .227865D+05, .177213D+05, .137875D+05, - + .107306D+05, .835541D+04, .650883D+04, .507334D+04 / - DATA (UPDI(I),I=7749,7800) / - + .395668D+04, .308808D+04, .241192D+04, .188558D+04, - + .147550D+04, .115599D+04, .906792D+03, .712413D+03, - + .560615D+03, .442033D+03, .349278D+03, .276684D+03, - + .219790D+03, .175171D+03, .139666D+03, .112185D+03, - + .905180D+02, .734146D+02, .598768D+02, .491440D+02, - + .406308D+02, .338278D+02, .283867D+02, .240222D+02, - + .205035D+02, .176549D+02, .153327D+02, .134313D+02, - + .118585D+02, .105477D+02, .944376D+01, .850496D+01, - + .769731D+01, .699744D+01, .637784D+01, .583041D+01, - + .533564D+01, .488910D+01, .448117D+01, .410616D+01, - + .375942D+01, .343749D+01, .313761D+01, .285769D+01, - + .259608D+01, .235153D+01, .212303D+01, .190976D+01, - + .171108D+01, .152634D+01, .135583D+01, .119728D+01 / - DATA (UPDI(I),I=7801,7852) / - + .105134D+01, .917553D+00, .795481D+00, .684658D+00, - + .584623D+00, .494874D+00, .414914D+00, .344185D+00, - + .282060D+00, .228511D+00, .182155D+00, .142792D+00, - + .109809D+00, .825856D-01, .605190D-01, .429907D-01, - + .294391D-01, .192082D-01, .118403D-01, .675968D-02, - + .347670D-02, .153737D-02, .535876D-03, .121748D-03, - + .100545D-04, .000000D+00, .153448D+06, .119623D+06, - + .921256D+05, .709550D+05, .546614D+05, .421140D+05, - + .324554D+05, .250159D+05, .192880D+05, .148751D+05, - + .114764D+05, .885720D+04, .683930D+04, .528351D+04, - + .408437D+04, .315934D+04, .244595D+04, .189524D+04, - + .147021D+04, .114180D+04, .888095D+03, .691838D+03, - + .540011D+03, .422385D+03, .331225D+03, .260470D+03 / - DATA (UPDI(I),I=7853,7904) / - + .205531D+03, .162230D+03, .129043D+03, .103122D+03, - + .828565D+02, .669615D+02, .544750D+02, .446558D+02, - + .368763D+02, .307027D+02, .257888D+02, .218540D+02, - + .186898D+02, .161250D+02, .140365D+02, .123171D+02, - + .108907D+02, .969407D+01, .868059D+01, .781196D+01, - + .706228D+01, .640126D+01, .581990D+01, .529690D+01, - + .482735D+01, .440071D+01, .401081D+01, .365249D+01, - + .332194D+01, .301601D+01, .273236D+01, .246907D+01, - + .222463D+01, .199780D+01, .178756D+01, .159307D+01, - + .141345D+01, .124882D+01, .109677D+01, .957787D+00, - + .831248D+00, .716593D+00, .613222D+00, .520565D+00, - + .438013D+00, .364991D+00, .300876D+00, .244963D+00, - + .197129D+00, .156041D+00, .121425D+00, .926613D-01 / - DATA (UPDI(I),I=7905,7956) / - + .691225D-01, .502144D-01, .353361D-01, .239544D-01, - + .154557D-01, .941048D-02, .529770D-02, .268122D-02, - + .116300D-02, .395988D-03, .877726D-04, .733592D-05, - + .000000D+00, .217095D+06, .168305D+06, .128789D+06, - + .985482D+05, .754173D+05, .577148D+05, .441747D+05, - + .338122D+05, .258863D+05, .198202D+05, .151801D+05, - + .116285D+05, .891151D+04, .683144D+04, .523980D+04, - + .402091D+04, .308791D+04, .237306D+04, .182558D+04, - + .140583D+04, .108412D+04, .837238D+03, .647794D+03, - + .502217D+03, .390331D+03, .304210D+03, .237909D+03, - + .186093D+03, .146717D+03, .116220D+03, .925784D+02, - + .741879D+02, .598592D+02, .486804D+02, .398923D+02, - + .329693D+02, .274978D+02, .231450D+02, .196662D+02 / - DATA (UPDI(I),I=7957,8008) / - + .168620D+02, .145906D+02, .127292D+02, .111917D+02, - + .990707D+01, .882327D+01, .789787D+01, .710230D+01, - + .640362D+01, .579178D+01, .524384D+01, .475430D+01, - + .431179D+01, .390961D+01, .354209D+01, .320508D+01, - + .289507D+01, .260942D+01, .234595D+01, .210291D+01, - + .187885D+01, .167251D+01, .148289D+01, .130888D+01, - + .115043D+01, .100504D+01, .873016D+00, .753596D+00, - + .646104D+00, .549830D+00, .464109D+00, .388247D+00, - + .321601D+00, .263497D+00, .213175D+00, .170436D+00, - + .133995D+00, .103530D+00, .784164D-01, .580349D-01, - + .418069D-01, .291535D-01, .195713D-01, .124921D-01, - + .751598D-02, .417442D-02, .208020D-02, .885801D-03, - + .294981D-03, .639036D-04, .540221D-05, .000000D+00 / - DATA (UPDI(I),I=8009,8060) / - + .200139D+06, .228087D+06, .173609D+06, .132126D+06, - + .100557D+06, .765206D+05, .582332D+05, .443124D+05, - + .337231D+05, .256635D+05, .195337D+05, .148688D+05, - + .113212D+05, .862151D+04, .656841D+04, .500589D+04, - + .381747D+04, .291280D+04, .222452D+04, .170035D+04, - + .130136D+04, .997292D+03, .765622D+03, .588873D+03, - + .454022D+03, .350990D+03, .272269D+03, .211211D+03, - + .165168D+03, .129777D+03, .102552D+03, .815342D+02, - + .652810D+02, .526937D+02, .428691D+02, .351827D+02, - + .291480D+02, .243767D+02, .205857D+02, .175461D+02, - + .150963D+02, .130977D+02, .114539D+02, .100858D+02, - + .893591D+01, .795776D+01, .712000D+01, .638715D+01, - + .574802D+01, .517815D+01, .467139D+01, .421557D+01 / - DATA (UPDI(I),I=8061,8112) / - + .380342D+01, .342885D+01, .308728D+01, .277489D+01, - + .248874D+01, .222640D+01, .198587D+01, .176547D+01, - + .156376D+01, .137954D+01, .121153D+01, .105949D+01, - + .920849D+00, .795740D+00, .683284D+00, .582701D+00, - + .493187D+00, .413996D+00, .344366D+00, .283600D+00, - + .230982D+00, .185716D+00, .147541D+00, .115225D+00, - + .884092D-01, .664756D-01, .488185D-01, .348796D-01, - + .241078D-01, .160303D-01, .101247D-01, .602117D-02, - + .330046D-02, .162004D-02, .677639D-03, .220917D-03, - + .468454D-04, .400371D-05, .000000D+00, .411228D+06, - + .315861D+06, .239105D+06, .180960D+06, .136941D+06, - + .103605D+06, .783780D+05, .592820D+05, .448370D+05, - + .339068D+05, .256419D+05, .193902D+05, .146646D+05 / - DATA (UPDI(I),I=8113,8164) / - + .110910D+05, .839045D+04, .634865D+04, .480588D+04, - + .363949D+04, .275815D+04, .209173D+04, .158807D+04, - + .120707D+04, .918945D+03, .700809D+03, .535665D+03, - + .410486D+03, .315612D+03, .242628D+03, .188041D+03, - + .146435D+03, .114691D+03, .903895D+02, .717495D+02, - + .574320D+02, .463442D+02, .377369D+02, .310282D+02, - + .257614D+02, .216037D+02, .182908D+02, .156355D+02, - + .134808D+02, .117170D+02, .102558D+02, .903309D+01, - + .799750D+01, .711439D+01, .634539D+01, .567790D+01, - + .508574D+01, .456194D+01, .409344D+01, .367231D+01, - + .329191D+01, .294721D+01, .263402D+01, .234903D+01, - + .208951D+01, .185320D+01, .163816D+01, .144273D+01, - + .126550D+01, .110496D+01, .960718D+00, .830106D+00 / - DATA (UPDI(I),I=8165,8216) / - + .713078D+00, .608635D+00, .515886D+00, .433939D+00, - + .361970D+00, .299154D+00, .244745D+00, .197994D+00, - + .158081D+00, .124687D+00, .966488D-01, .735775D-01, - + .548717D-01, .399501D-01, .282832D-01, .193574D-01, - + .127369D-01, .795234D-02, .466992D-02, .252387D-02, - + .121918D-02, .500604D-03, .159767D-03, .332007D-04, - + .286813D-05, .000000D+00, .556508D+06, .425629D+06, - + .320593D+06, .241402D+06, .181735D+06, .136770D+06, - + .102912D+06, .774112D+05, .582208D+05, .437763D+05, - + .329122D+05, .247396D+05, .185960D+05, .139768D+05, - + .105061D+05, .789763D+04, .593853D+04, .446654D+04, - + .336126D+04, .253091D+04, .190745D+04, .143900D+04, - + .108714D+04, .822626D+03, .623788D+03, .474161D+03 / - DATA (UPDI(I),I=8217,8268) / - + .361596D+03, .275655D+03, .211866D+03, .163619D+03, - + .127090D+03, .993414D+02, .782191D+02, .621186D+02, - + .497414D+02, .402030D+02, .328194D+02, .270613D+02, - + .225436D+02, .189650D+02, .161119D+02, .138084D+02, - + .119314D+02, .103834D+02, .909340D+01, .800550D+01, - + .708168D+01, .628080D+01, .558881D+01, .497795D+01, - + .444034D+01, .396213D+01, .353467D+01, .315085D+01, - + .280516D+01, .249304D+01, .221084D+01, .195555D+01, - + .172461D+01, .151588D+01, .132745D+01, .115774D+01, - + .100506D+01, .868800D+00, .746273D+00, .637253D+00, - + .540637D+00, .455445D+00, .380711D+00, .315549D+00, - + .259089D+00, .210551D+00, .169163D+00, .134100D+00, - + .104997D+00, .807612D-01, .609887D-01, .450995D-01 / - DATA (UPDI(I),I=8269,8320) / - + .325421D-01, .228197D-01, .154583D-01, .100592D-01, - + .620425D-02, .359454D-02, .191331D-02, .908265D-03, - + .365390D-03, .113863D-03, .231202D-04, .202229D-05, - + .000000D+00, .736738D+06, .561229D+06, .420756D+06, - + .315319D+06, .236233D+06, .176909D+06, .132445D+06, - + .991168D+05, .741562D+05, .554613D+05, .414707D+05, - + .309998D+05, .231695D+05, .173133D+05, .129370D+05, - + .966611D+04, .722326D+04, .539839D+04, .403615D+04, - + .301890D+04, .225977D+04, .169295D+04, .126991D+04, - + .953962D+03, .718031D+03, .541687D+03, .409939D+03, - + .310063D+03, .236457D+03, .181188D+03, .139640D+03, - + .108310D+03, .846309D+02, .667112D+02, .530307D+02, - + .425603D+02, .345076D+02, .282674D+02, .233998D+02 / - DATA (UPDI(I),I=8321,8372) / - + .195655D+02, .165239D+02, .140800D+02, .120973D+02, - + .104692D+02, .911794D+01, .798304D+01, .702326D+01, - + .619478D+01, .548215D+01, .485607D+01, .430782D+01, - + .382273D+01, .339150D+01, .300654D+01, .266185D+01, - + .235256D+01, .207465D+01, .182484D+01, .160032D+01, - + .139872D+01, .121794D+01, .105619D+01, .911632D+00, - + .783497D+00, .669054D+00, .567924D+00, .478918D+00, - + .400983D+00, .333096D+00, .274326D+00, .223774D+00, - + .180636D+00, .144132D+00, .113441D+00, .881691D-01, - + .672954D-01, .504104D-01, .369614D-01, .264311D-01, - + .183577D-01, .123078D-01, .792047D-02, .482554D-02, - + .275811D-02, .144582D-02, .674429D-03, .265825D-03, - + .808949D-04, .160582D-04, .142222D-05, .000000D+00 / - DATA (UPDI(I),I=8373,8424) / - + .957898D+06, .726935D+06, .542553D+06, .404751D+06, - + .301836D+06, .224976D+06, .167626D+06, .124835D+06, - + .929346D+05, .691544D+05, .514431D+05, .382522D+05, - + .284366D+05, .211328D+05, .157026D+05, .116654D+05, - + .866631D+04, .643815D+04, .478410D+04, .355596D+04, - + .264474D+04, .196839D+04, .146665D+04, .109423D+04, - + .817872D+03, .612625D+03, .460286D+03, .345572D+03, - + .261601D+03, .198978D+03, .152221D+03, .117206D+03, - + .909216D+02, .711649D+02, .561811D+02, .447876D+02, - + .360789D+02, .293705D+02, .241667D+02, .200891D+02, - + .168701D+02, .142954D+02, .122153D+02, .105143D+02, - + .910808D+01, .793168D+01, .694078D+01, .608904D+01, - + .535960D+01, .472176D+01, .416594D+01, .367670D+01 / - DATA (UPDI(I),I=8425,8476) / - + .324413D+01, .286013D+01, .251832D+01, .221343D+01, - + .194115D+01, .169794D+01, .148072D+01, .128693D+01, - + .111428D+01, .960819D+00, .824563D+00, .704585D+00, - + .598143D+00, .504718D+00, .423055D+00, .352043D+00, - + .290617D+00, .237817D+00, .192726D+00, .154531D+00, - + .122454D+00, .956892D-01, .738240D-01, .559112D-01, - + .415441D-01, .302018D-01, .214031D-01, .147231D-01, - + .976927D-02, .621694D-02, .374132D-02, .210952D-02, - + .108901D-02, .499173D-03, .192785D-03, .573139D-04, - + .111318D-04, .998157D-06, .000000D+00, .122635D+07, - + .927257D+06, .689076D+06, .511809D+06, .379974D+06, - + .281936D+06, .209100D+06, .154992D+06, .114836D+06, - + .850373D+05, .629456D+05, .465696D+05, .344420D+05 / - DATA (UPDI(I),I=8477,8528) / - + .254616D+05, .188180D+05, .139035D+05, .102714D+05, - + .758709D+04, .560502D+04, .414134D+04, .306137D+04, - + .226430D+04, .167641D+04, .124261D+04, .922636D+03, - + .686436D+03, .512218D+03, .381865D+03, .287059D+03, - + .216815D+03, .164707D+03, .125941D+03, .970280D+02, - + .754362D+02, .591629D+02, .468653D+02, .375205D+02, - + .303630D+02, .248398D+02, .205337D+02, .171497D+02, - + .144548D+02, .122864D+02, .105201D+02, .906542D+01, - + .785315D+01, .683604D+01, .596535D+01, .522288D+01, - + .457666D+01, .401622D+01, .352544D+01, .309380D+01, - + .271276D+01, .237549D+01, .207644D+01, .181098D+01, - + .157531D+01, .136614D+01, .118071D+01, .101655D+01, - + .871587D+00, .743702D+00, .631830D+00, .533237D+00 / - DATA (UPDI(I),I=8529,8580) / - + .447279D+00, .372651D+00, .308199D+00, .252834D+00, - + .205577D+00, .165509D+00, .131817D+00, .103733D+00, - + .804786D-01, .616302D-01, .463143D-01, .341342D-01, - + .246031D-01, .172782D-01, .117712D-01, .772975D-02, - + .486413D-02, .289125D-02, .160811D-02, .817527D-03, - + .368227D-03, .139364D-03, .404911D-04, .770130D-05, - + .699018D-06, .000000D+00, .154874D+07, .116686D+07, - + .863491D+06, .638625D+06, .472074D+06, .348736D+06, - + .257488D+06, .189995D+06, .140121D+06, .103274D+06, - + .760799D+05, .560133D+05, .412212D+05, .303195D+05, - + .222930D+05, .163845D+05, .120394D+05, .884440D+04, - + .649737D+04, .477328D+04, .350794D+04, .257916D+04, - + .189792D+04, .139808D+04, .103151D+04, .762498D+03 / - DATA (UPDI(I),I=8581,8632) / - + .565265D+03, .418594D+03, .312579D+03, .234518D+03, - + .176970D+03, .134425D+03, .102889D+03, .794840D+02, - + .619492D+02, .487763D+02, .388220D+02, .312388D+02, - + .254161D+02, .208981D+02, .173628D+02, .145592D+02, - + .123119D+02, .104883D+02, .899176D+01, .774933D+01, - + .671089D+01, .582553D+01, .507375D+01, .442238D+01, - + .386017D+01, .337031D+01, .294172D+01, .256545D+01, - + .223427D+01, .194232D+01, .168470D+01, .145737D+01, - + .125684D+01, .108018D+01, .924777D+00, .788409D+00, - + .668878D+00, .564989D+00, .474030D+00, .395254D+00, - + .327320D+00, .269046D+00, .219333D+00, .177197D+00, - + .141725D+00, .112115D+00, .876175D-01, .674859D-01, - + .512971D-01, .382492D-01, .279605D-01, .199807D-01 / - DATA (UPDI(I),I=8633,8684) / - + .139047D-01, .938143D-02, .609641D-02, .379331D-02, - + .222695D-02, .122179D-02, .611650D-03, .270716D-03, - + .100418D-03, .285235D-04, .531684D-05, .488432D-06, - + .000000D+00, .193185D+07, .145048D+07, .106896D+07, - + .787305D+06, .579524D+06, .426281D+06, .313376D+06, - + .230213D+06, .169020D+06, .124007D+06, .909294D+05, - + .666306D+05, .487993D+05, .357180D+05, .261316D+05, - + .191083D+05, .139682D+05, .102072D+05, .745810D+04, - + .544898D+04, .398206D+04, .291099D+04, .212960D+04, - + .155941D+04, .114358D+04, .840119D+03, .618919D+03, - + .455396D+03, .337901D+03, .251905D+03, .188883D+03, - + .142572D+03, .108448D+03, .832712D+02, .645164D+02, - + .505061D+02, .399750D+02, .319933D+02, .258938D+02 / - DATA (UPDI(I),I=8685,8736) / - + .211820D+02, .175104D+02, .146099D+02, .122935D+02, - + .104206D+02, .888909D+01, .762219D+01, .656728D+01, - + .567143D+01, .491392D+01, .426054D+01, .369923D+01, - + .321260D+01, .278903D+01, .241917D+01, .209545D+01, - + .181170D+01, .156279D+01, .134446D+01, .115304D+01, - + .985438D+00, .838927D+00, .711171D+00, .599894D+00, - + .503799D+00, .420212D+00, .348295D+00, .286689D+00, - + .234200D+00, .189728D+00, .152296D+00, .121009D+00, - + .950804D-01, .737886D-01, .564236D-01, .425692D-01, - + .314933D-01, .228337D-01, .161767D-01, .111550D-01, - + .745315D-02, .479278D-02, .294859D-02, .170962D-02, - + .925161D-03, .456075D-03, .198357D-03, .721208D-04, - + .200353D-04, .366292D-05, .340516D-06, .000000D+00 / - DATA (UPDI(I),I=8737,8788) / - + .238248D+07, .178278D+07, .130858D+07, .959866D+06, - + .703629D+06, .515406D+06, .377286D+06, .275969D+06, - + .201728D+06, .147347D+06, .107556D+06, .784524D+05, - + .571891D+05, .416601D+05, .303315D+05, .220702D+05, - + .160524D+05, .116703D+05, .848272D+04, .616466D+04, - + .448067D+04, .325740D+04, .236961D+04, .172522D+04, - + .125781D+04, .918555D+03, .672648D+03, .491895D+03, - + .362765D+03, .268797D+03, .200327D+03, .150304D+03, - + .113654D+03, .867653D+02, .668448D+02, .520431D+02, - + .409733D+02, .326241D+02, .262722D+02, .213863D+02, - + .175937D+02, .146088D+02, .122334D+02, .103193D+02, - + .875956D+01, .747383D+01, .640719D+01, .550490D+01, - + .474512D+01, .409269D+01, .353480D+01, .305353D+01 / - DATA (UPDI(I),I=8789,8840) / - + .263677D+01, .227481D+01, .195974D+01, .168515D+01, - + .144567D+01, .123685D+01, .105488D+01, .896515D+00, - + .758937D+00, .639719D+00, .536530D+00, .447986D+00, - + .371464D+00, .306055D+00, .250397D+00, .203292D+00, - + .163654D+00, .130522D+00, .103024D+00, .804010D-01, - + .619613D-01, .470360D-01, .352215D-01, .258531D-01, - + .185905D-01, .130568D-01, .892128D-02, .590259D-02, - + .375591D-02, .228457D-02, .130816D-02, .698225D-03, - + .338934D-03, .144856D-03, .516327D-04, .140333D-04, - + .251824D-05, .236863D-06, .000000D+00, .290725D+07, - + .216828D+07, .158526D+07, .115818D+07, .845573D+06, - + .616844D+06, .449665D+06, .327527D+06, .238391D+06, - + .173371D+06, .125995D+06, .914908D+05, .663901D+05 / - DATA (UPDI(I),I=8841,8892) / - + .481391D+05, .348836D+05, .252610D+05, .182836D+05, - + .132265D+05, .956526D+04, .691560D+04, .500012D+04, - + .361563D+04, .261591D+04, .189401D+04, .137311D+04, - + .997034D+03, .725911D+03, .527721D+03, .386917D+03, - + .285025D+03, .211191D+03, .157549D+03, .118461D+03, - + .899390D+02, .689186D+02, .533791D+02, .418134D+02, - + .331301D+02, .265520D+02, .215125D+02, .176150D+02, - + .145584D+02, .121338D+02, .101868D+02, .860543D+01, - + .730638D+01, .623261D+01, .532778D+01, .456901D+01, - + .392032D+01, .336821D+01, .289425D+01, .248592D+01, - + .213315D+01, .182778D+01, .156314D+01, .133366D+01, - + .113474D+01, .962430D+00, .813385D+00, .684695D+00, - + .573869D+00, .478542D+00, .397260D+00, .327465D+00 / - DATA (UPDI(I),I=8893,8944) / - + .268194D+00, .218091D+00, .175970D+00, .140767D+00, - + .111545D+00, .874632D-01, .677936D-01, .518799D-01, - + .390964D-01, .290567D-01, .211602D-01, .150906D-01, - + .105067D-01, .711298D-02, .466010D-02, .293409D-02, - + .176444D-02, .997738D-03, .525234D-03, .251054D-03, - + .105441D-03, .368499D-04, .980237D-05, .172778D-05, - + .164402D-06, .000000D+00, .319920D+05, .491218D+05, - + .386415D+05, .304000D+05, .239187D+05, .188215D+05, - + .148126D+05, .116595D+05, .917931D+04, .722827D+04, - + .569336D+04, .448571D+04, .353543D+04, .278758D+04, - + .219895D+04, .173556D+04, .137068D+04, .108331D+04, - + .856930D+03, .678533D+03, .537900D+03, .426991D+03, - + .339483D+03, .270400D+03, .215827D+03, .172684D+03 / - DATA (UPDI(I),I=8945,8996) / - + .138549D+03, .111172D+03, .898108D+02, .728466D+02, - + .593522D+02, .485975D+02, .400069D+02, .331455D+02, - + .276184D+02, .231637D+02, .195577D+02, .166237D+02, - + .142225D+02, .122432D+02, .106018D+02, .922738D+01, - + .806713D+01, .707906D+01, .623039D+01, .549556D+01, - + .485682D+01, .429249D+01, .379727D+01, .335543D+01, - + .296385D+01, .261464D+01, .230279D+01, .202412D+01, - + .177509D+01, .155270D+01, .135430D+01, .117761D+01, - + .102054D+01, .881242D+00, .758015D+00, .649308D+00, - + .553698D+00, .470242D+00, .396884D+00, .333069D+00, - + .277788D+00, .230115D+00, .189210D+00, .154305D+00, - + .124703D+00, .997683D-01, .789143D-01, .616083D-01, - + .475146D-01, .359949D-01, .267704D-01, .194903D-01 / - DATA (UPDI(I),I=8997,9048) / - + .138418D-01, .954646D-02, .635748D-02, .406085D-02, - + .245499D-02, .139086D-02, .721759D-03, .332223D-03, - + .128533D-03, .377842D-04, .672820D-05, .351569D-06, - + .000000D+00, .102178D+06, .802252D+05, .622890D+05, - + .483697D+05, .375692D+05, .291850D+05, .226776D+05, - + .176246D+05, .137016D+05, .106543D+05, .828777D+04, - + .644889D+04, .502025D+04, .390970D+04, .304653D+04, - + .237522D+04, .185318D+04, .144694D+04, .113082D+04, - + .884642D+03, .692933D+03, .543500D+03, .427005D+03, - + .336091D+03, .265117D+03, .209646D+03, .166272D+03, - + .131867D+03, .105328D+03, .844749D+02, .680720D+02, - + .551334D+02, .449086D+02, .368217D+02, .303742D+02, - + .252254D+02, .210977D+02, .177680D+02, .150676D+02 / - DATA (UPDI(I),I=9049,9100) / - + .128595D+02, .110443D+02, .953592D+01, .827306D+01, - + .720575D+01, .629645D+01, .551508D+01, .484134D+01, - + .425057D+01, .373631D+01, .328095D+01, .288049D+01, - + .252602D+01, .221183D+01, .193310D+01, .168579D+01, - + .146647D+01, .127214D+01, .110022D+01, .948401D+00, - + .814623D+00, .697023D+00, .593947D+00, .503824D+00, - + .425646D+00, .357335D+00, .298274D+00, .247417D+00, - + .203830D+00, .166658D+00, .135137D+00, .108571D+00, - + .863391D-01, .678717D-01, .526464D-01, .403340D-01, - + .303432D-01, .224025D-01, .161855D-01, .114011D-01, - + .779536D-02, .514248D-02, .325173D-02, .194489D-02, - + .108968D-02, .558282D-03, .253261D-03, .963095D-04, - + .277535D-04, .485192D-05, .257563D-06, .000000D+00 / - DATA (UPDI(I),I=9101,9152) / - + .153215D+06, .119415D+06, .919403D+05, .707901D+05, - + .545147D+05, .419836D+05, .323394D+05, .249129D+05, - + .191966D+05, .147939D+05, .114045D+05, .879348D+04, - + .678288D+04, .523360D+04, .404025D+04, .312038D+04, - + .241156D+04, .186492D+04, .144349D+04, .111829D+04, - + .867406D+03, .673651D+03, .524031D+03, .408349D+03, - + .318899D+03, .249642D+03, .196014D+03, .153872D+03, - + .121676D+03, .966119D+02, .770840D+02, .618207D+02, - + .498707D+02, .405031D+02, .331019D+02, .272417D+02, - + .225843D+02, .188574D+02, .158596D+02, .134272D+02, - + .114430D+02, .980643D+01, .844649D+01, .730537D+01, - + .634037D+01, .551704D+01, .481232D+01, .419875D+01, - + .366855D+01, .320236D+01, .279530D+01, .243748D+01 / - DATA (UPDI(I),I=9153,9204) / - + .212250D+01, .184495D+01, .160033D+01, .138479D+01, - + .119503D+01, .102821D+01, .881794D+00, .753565D+00, - + .641515D+00, .543896D+00, .459027D+00, .385839D+00, - + .322252D+00, .267597D+00, .220805D+00, .180937D+00, - + .147137D+00, .118648D+00, .947817D-01, .749335D-01, - + .585541D-01, .451358D-01, .343583D-01, .256742D-01, - + .188218D-01, .134982D-01, .943386D-02, .639706D-02, - + .418236D-02, .261953D-02, .154950D-02, .857172D-03, - + .432955D-03, .193289D-03, .721322D-04, .203350D-04, - + .348264D-05, .188123D-06, .000000D+00, .216847D+06, - + .168083D+06, .128592D+06, .983728D+05, .752613D+05, - + .575761D+05, .440515D+05, .337029D+05, .257892D+05, - + .197341D+05, .151039D+05, .115610D+05, .885173D+04 / - DATA (UPDI(I),I=9205,9256) / - + .677857D+04, .519308D+04, .397966D+04, .305150D+04, - + .234096D+04, .179729D+04, .138093D+04, .106221D+04, - + .817960D+03, .630843D+03, .487315D+03, .377229D+03, - + .292685D+03, .227763D+03, .177166D+03, .138832D+03, - + .109236D+03, .863706D+02, .686460D+02, .548839D+02, - + .441838D+02, .357986D+02, .292117D+02, .240180D+02, - + .198935D+02, .166009D+02, .139486D+02, .118008D+02, - + .100415D+02, .858981D+01, .738000D+01, .636394D+01, - + .550289D+01, .477089D+01, .413783D+01, .359449D+01, - + .311993D+01, .270830D+01, .234882D+01, .203444D+01, - + .175917D+01, .151807D+01, .130695D+01, .112219D+01, - + .960739D+00, .819863D+00, .697202D+00, .590629D+00, - + .498315D+00, .418493D+00, .350045D+00, .290903D+00 / - DATA (UPDI(I),I=9257,9308) / - + .240353D+00, .197315D+00, .160854D+00, .130118D+00, - + .104361D+00, .829081D-01, .651754D-01, .506337D-01, - + .387944D-01, .293473D-01, .217866D-01, .158627D-01, - + .112945D-01, .783376D-02, .526939D-02, .341522D-02, - + .211930D-02, .124089D-02, .678893D-03, .338706D-03, - + .149166D-03, .548199D-04, .152093D-04, .257851D-05, - + .142702D-06, .000000D+00, .200207D+06, .227852D+06, - + .173400D+06, .131940D+06, .100391D+06, .763736D+05, - + .581027D+05, .441965D+05, .336203D+05, .255724D+05, - + .194530D+05, .147974D+05, .112580D+05, .856562D+04, - + .651902D+04, .496229D+04, .377899D+04, .287888D+04, - + .219462D+04, .167402D+04, .127818D+04, .976895D+03, - + .747676D+03, .573083D+03, .440125D+03, .338750D+03 / - DATA (UPDI(I),I=9309,9360) / - + .261478D+03, .201701D+03, .156752D+03, .122310D+03, - + .959017D+02, .755858D+02, .599312D+02, .478515D+02, - + .384562D+02, .311305D+02, .253965D+02, .208755D+02, - + .172918D+02, .144249D+02, .121190D+02, .102428D+02, - + .870475D+01, .743129D+01, .636868D+01, .547393D+01, - + .471815D+01, .406867D+01, .351480D+01, .303408D+01, - + .261972D+01, .226011D+01, .194753D+01, .167550D+01, - + .143866D+01, .123248D+01, .105309D+01, .897227D+00, - + .761989D+00, .644892D+00, .543714D+00, .456554D+00, - + .381588D+00, .317650D+00, .262701D+00, .215988D+00, - + .176432D+00, .143105D+00, .115165D+00, .918832D-01, - + .726023D-01, .567583D-01, .438446D-01, .333939D-01, - + .251082D-01, .185207D-01, .133946D-01, .947023D-02 / - DATA (UPDI(I),I=9361,9412) / - + .651973D-02, .435101D-02, .279608D-02, .171941D-02, - + .996760D-03, .539449D-03, .265913D-03, .115557D-03, - + .418379D-04, .114270D-04, .191670D-05, .108460D-06, - + .000000D+00, .410945D+06, .315609D+06, .238881D+06, - + .180761D+06, .136763D+06, .103448D+06, .782385D+05, - + .591582D+05, .447273D+05, .338096D+05, .255558D+05, - + .193140D+05, .145972D+05, .110314D+05, .833782D+04, - + .630219D+04, .476488D+04, .360334D+04, .272629D+04, - + .206366D+04, .156335D+04, .118531D+04, .899780D+03, - + .683931D+03, .520793D+03, .397371D+03, .304033D+03, - + .232406D+03, .178981D+03, .138381D+03, .107505D+03, - + .839511D+02, .659506D+02, .521776D+02, .415529D+02, - + .333377D+02, .269591D+02, .219707D+02, .180473D+02 / - DATA (UPDI(I),I=9413,9464) / - + .149333D+02, .124476D+02, .104403D+02, .880676D+01, - + .746426D+01, .635210D+01, .542241D+01, .464274D+01, - + .397753D+01, .341430D+01, .292894D+01, .251352D+01, - + .215552D+01, .184648D+01, .157938D+01, .134838D+01, - + .114863D+01, .975965D+00, .826914D+00, .698415D+00, - + .587856D+00, .492924D+00, .411656D+00, .342178D+00, - + .283284D+00, .232978D+00, .190477D+00, .154709D+00, - + .124761D+00, .998124D-01, .791559D-01, .621603D-01, - + .482878D-01, .370590D-01, .280347D-01, .209316D-01, - + .153268D-01, .109996D-01, .771411D-02, .526527D-02, - + .348179D-02, .221543D-02, .134788D-02, .772202D-03, - + .412489D-03, .200335D-03, .855829D-04, .303616D-04, - + .809156D-05, .132190D-05, .754130D-07, .000000D+00 / - DATA (UPDI(I),I=9465,9516) / - + .556205D+06, .425359D+06, .320353D+06, .241189D+06, - + .181546D+06, .136602D+06, .102763D+06, .772791D+05, - + .581037D+05, .436726D+05, .328204D+05, .246583D+05, - + .185242D+05, .139133D+05, .104500D+05, .784816D+04, - + .589487D+04, .442805D+04, .332732D+04, .250100D+04, - + .188110D+04, .141578D+04, .106669D+04, .804601D+03, - + .607891D+03, .460125D+03, .349189D+03, .264687D+03, - + .202130D+03, .154953D+03, .119347D+03, .923961D+02, - + .719577D+02, .564421D+02, .445652D+02, .354534D+02, - + .284323D+02, .229832D+02, .187292D+02, .153777D+02, - + .127215D+02, .105919D+02, .887084D+01, .746629D+01, - + .631070D+01, .535136D+01, .455231D+01, .387523D+01, - + .330586D+01, .281856D+01, .240430D+01, .204971D+01 / - DATA (UPDI(I),I=9517,9568) / - + .174565D+01, .148459D+01, .126028D+01, .106758D+01, - + .902069D+00, .760096D+00, .638463D+00, .534462D+00, - + .445711D+00, .370199D+00, .306029D+00, .251965D+00, - + .206065D+00, .167522D+00, .135286D+00, .108464D+00, - + .862596D-01, .679930D-01, .530619D-01, .409564D-01, - + .312260D-01, .234603D-01, .173926D-01, .126411D-01, - + .900180D-02, .626156D-02, .423699D-02, .277615D-02, - + .174904D-02, .105291D-02, .596253D-03, .314497D-03, - + .150616D-03, .633496D-04, .220886D-04, .578068D-05, - + .932101D-06, .544882D-07, .000000D+00, .736414D+06, - + .560940D+06, .420500D+06, .315091D+06, .236031D+06, - + .176730D+06, .132286D+06, .989759D+05, .740314D+05, - + .553508D+05, .413729D+05, .309133D+05, .230930D+05 / - DATA (UPDI(I),I=9569,9620) / - + .172458D+05, .128774D+05, .961346D+04, .717680D+04, - + .535742D+04, .400003D+04, .298706D+04, .223171D+04, - + .166821D+04, .124811D+04, .934729D+03, .701055D+03, - + .526684D+03, .396663D+03, .298314D+03, .226017D+03, - + .171884D+03, .131320D+03, .100841D+03, .778943D+02, - + .606034D+02, .474637D+02, .374575D+02, .298025D+02, - + .239046D+02, .193323D+02, .157553D+02, .129396D+02, - + .106975D+02, .889745D+01, .743826D+01, .624555D+01, - + .526192D+01, .444799D+01, .376284D+01, .319046D+01, - + .270381D+01, .229281D+01, .194330D+01, .164554D+01, - + .139153D+01, .117467D+01, .989533D+00, .831519D+00, - + .696817D+00, .582122D+00, .484651D+00, .401978D+00, - + .332062D+00, .273000D+00, .223537D+00, .181797D+00 / - DATA (UPDI(I),I=9621,9672) / - + .146960D+00, .118002D+00, .940565D-01, .743578D-01, - + .582559D-01, .451798D-01, .346494D-01, .262435D-01, - + .195816D-01, .144144D-01, .103988D-01, .734748D-02, - + .506908D-02, .340045D-02, .220759D-02, .137712D-02, - + .820266D-03, .459154D-03, .239144D-03, .112943D-03, - + .467786D-04, .160371D-04, .412464D-05, .657369D-06, - + .393907D-07, .000000D+00, .957551D+06, .726627D+06, - + .542279D+06, .404508D+06, .301621D+06, .224785D+06, - + .167457D+06, .124685D+06, .928017D+05, .690368D+05, - + .513390D+05, .381601D+05, .283553D+05, .210609D+05, - + .156392D+05, .116094D+05, .861690D+04, .639458D+04, - + .474567D+04, .352208D+04, .261487D+04, .194206D+04, - + .144342D+04, .107372D+04, .799760D+03, .596605D+03 / - DATA (UPDI(I),I=9673,9724) / - + .446099D+03, .333006D+03, .250425D+03, .189011D+03, - + .143303D+03, .109197D+03, .836976D+02, .646176D+02, - + .502185D+02, .393299D+02, .310570D+02, .247267D+02, - + .198520D+02, .160639D+02, .131013D+02, .107574D+02, - + .888761D+01, .738149D+01, .615814D+01, .515560D+01, - + .433124D+01, .364170D+01, .306929D+01, .258573D+01, - + .217992D+01, .183702D+01, .154672D+01, .130063D+01, - + .109183D+01, .914691D+00, .764423D+00, .637105D+00, - + .529351D+00, .438330D+00, .361591D+00, .297080D+00, - + .242905D+00, .197804D+00, .159973D+00, .128589D+00, - + .102660D+00, .813513D-01, .639315D-01, .497828D-01, - + .383677D-01, .292364D-01, .219976D-01, .163006D-01, - + .119141D-01, .853105D-02, .598083D-02, .409241D-02 / - DATA (UPDI(I),I=9725,9776) / - + .272152D-02, .175056D-02, .108124D-02, .637226D-03, - + .352584D-03, .181337D-03, .844621D-04, .344519D-04, - + .116160D-04, .293725D-05, .462850D-06, .284166D-07, - + .000000D+00, .122598D+07, .926928D+06, .688784D+06, - + .511550D+06, .379744D+06, .281732D+06, .208919D+06, - + .154832D+06, .114695D+06, .849121D+05, .628348D+05, - + .464717D+05, .343555D+05, .253852D+05, .187506D+05, - + .138440D+05, .102189D+05, .754076D+04, .556416D+04, - + .410531D+04, .302960D+04, .223627D+04, .165168D+04, - + .122077D+04, .903332D+03, .669351D+03, .497078D+03, - + .368446D+03, .275117D+03, .206161D+03, .155171D+03, - + .117377D+03, .893059D+02, .684423D+02, .528013D+02, - + .410526D+02, .321844D+02, .254431D+02, .202851D+02 / - DATA (UPDI(I),I=9777,9828) / - + .163023D+02, .132066D+02, .107727D+02, .884269D+01, - + .729760D+01, .605013D+01, .503401D+01, .420356D+01, - + .351317D+01, .294356D+01, .246535D+01, .206649D+01, - + .173155D+01, .144973D+01, .121229D+01, .101207D+01, - + .843226D+00, .700863D+00, .580966D+00, .480098D+00, - + .395400D+00, .324415D+00, .265093D+00, .215567D+00, - + .174579D+00, .140403D+00, .112221D+00, .890796D-01, - + .701778D-01, .548224D-01, .424295D-01, .324960D-01, - + .246029D-01, .183888D-01, .135324D-01, .982052D-02, - + .697944D-02, .485481D-02, .329463D-02, .217197D-02, - + .138419D-02, .846494D-03, .493600D-03, .269967D-03, - + .137109D-03, .629857D-04, .253051D-04, .839322D-05, - + .208734D-05, .325298D-06, .204533D-07, .000000D+00 / - DATA (UPDI(I),I=9829,9880) / - + .154834D+07, .116651D+07, .863180D+06, .638349D+06, - + .471830D+06, .348519D+06, .257296D+06, .189825D+06, - + .139970D+06, .103141D+06, .759621D+05, .559092D+05, - + .411292D+05, .302383D+05, .222213D+05, .163212D+05, - + .119836D+05, .879518D+04, .645395D+04, .473498D+04, - + .347416D+04, .254935D+04, .187160D+04, .137483D+04, - + .101096D+04, .744297D+03, .549129D+03, .404287D+03, - + .299843D+03, .223153D+03, .166798D+03, .125292D+03, - + .946597D+02, .720382D+02, .551867D+02, .426096D+02, - + .331755D+02, .260491D+02, .206296D+02, .164704D+02, - + .132566D+02, .107447D+02, .876448D+01, .718843D+01, - + .592334D+01, .489887D+01, .406650D+01, .337861D+01, - + .281444D+01, .234364D+01, .195332D+01, .162753D+01 / - DATA (UPDI(I),I=9881,9932) / - + .135506D+01, .112687D+01, .935603D+00, .775273D+00, - + .640891D+00, .528385D+00, .434293D+00, .355749D+00, - + .290308D+00, .235939D+00, .190811D+00, .153682D+00, - + .122907D+00, .976821D-01, .770935D-01, .603801D-01, - + .468870D-01, .360662D-01, .274493D-01, .206480D-01, - + .153303D-01, .112036D-01, .807245D-02, .569411D-02, - + .392970D-02, .264485D-02, .172842D-02, .109133D-02, - + .660788D-03, .381231D-03, .206107D-03, .103368D-03, - + .468373D-04, .185365D-04, .604964D-05, .148024D-05, - + .228204D-06, .146881D-07, .000000D+00, .193143D+07, - + .145010D+07, .106863D+07, .787011D+06, .579263D+06, - + .426051D+06, .313171D+06, .230032D+06, .168860D+06, - + .123865D+06, .908043D+05, .665201D+05, .487016D+05 / - DATA (UPDI(I),I=9933,9984) / - + .356318D+05, .260555D+05, .190411D+05, .139089D+05, - + .101549D+05, .741199D+04, .540830D+04, .394617D+04, - + .287931D+04, .210163D+04, .153469D+04, .112171D+04, - + .820753D+03, .601745D+03, .440165D+03, .324342D+03, - + .239806D+03, .178059D+03, .132860D+03, .997037D+02, - + .753697D+02, .573527D+02, .439882D+02, .340236D+02, - + .265416D+02, .208848D+02, .165688D+02, .132527D+02, - + .106755D+02, .865508D+01, .705608D+01, .577971D+01, - + .475193D+01, .392162D+01, .323936D+01, .268305D+01, - + .222153D+01, .184116D+01, .152554D+01, .126313D+01, - + .104467D+01, .862626D+00, .710928D+00, .584527D+00, - + .479322D+00, .391848D+00, .319253D+00, .259122D+00, - + .209452D+00, .168465D+00, .134939D+00, .107315D+00 / - DATA (UPDI(I),I=9985,10036) / - + .848066D-01, .665469D-01, .518145D-01, .399948D-01, - + .305761D-01, .231246D-01, .172823D-01, .127459D-01, - + .925014D-02, .661724D-02, .463255D-02, .317195D-02, - + .211719D-02, .137152D-02, .857950D-03, .514328D-03, - + .293587D-03, .156895D-03, .777066D-04, .347312D-04, - + .135419D-04, .434981D-05, .104751D-05, .159799D-06, - + .105244D-07, .000000D+00, .238203D+07, .178238D+07, - + .130822D+07, .959553D+06, .703352D+06, .515160D+06, - + .377069D+06, .275777D+06, .201558D+06, .147196D+06, - + .107423D+06, .783350D+05, .570854D+05, .415686D+05, - + .302506D+05, .219989D+05, .159895D+05, .116148D+05, - + .843376D+04, .612147D+04, .444256D+04, .322376D+04, - + .233990D+04, .169896D+04, .123457D+04, .897974D+03 / - DATA (UPDI(I),I=10037,10088) / - + .654396D+03, .475709D+03, .348357D+03, .255945D+03, - + .188835D+03, .140001D+03, .104388D+03, .784062D+02, - + .592814D+02, .451786D+02, .347240D+02, .269192D+02, - + .210514D+02, .165993D+02, .131971D+02, .105674D+02, - + .851687D+01, .690276D+01, .562128D+01, .459500D+01, - + .377047D+01, .309674D+01, .255049D+01, .209991D+01, - + .173069D+01, .142610D+01, .117432D+01, .965924D+00, - + .793280D+00, .650248D+00, .531760D+00, .433709D+00, - + .352656D+00, .285778D+00, .230702D+00, .185470D+00, - + .148359D+00, .118181D+00, .934614D-01, .734399D-01, - + .572953D-01, .443490D-01, .340270D-01, .258538D-01, - + .194298D-01, .144267D-01, .105687D-01, .761662D-02, - + .540953D-02, .375851D-02, .255318D-02, .169005D-02 / - DATA (UPDI(I),I=10089,10140) / - + .108524D-02, .672555D-03, .399182D-03, .225442D-03, - + .119092D-03, .582499D-04, .256831D-04, .986714D-05, - + .312014D-05, .739758D-06, .111701D-06, .752451D-08, - + .000000D+00, .290677D+07, .216785D+07, .158488D+07, - + .115785D+07, .845278D+06, .616583D+06, .449434D+06, - + .327322D+06, .238210D+06, .173212D+06, .125854D+06, - + .913661D+05, .662800D+05, .480419D+05, .347979D+05, - + .251854D+05, .182169D+05, .131676D+05, .951332D+04, - + .686978D+04, .495968D+04, .357993D+04, .258438D+04, - + .186614D+04, .134845D+04, .975190D+03, .706540D+03, - + .510546D+03, .371635D+03, .271401D+03, .199018D+03, - + .146647D+03, .108671D+03, .811225D+02, .609590D+02, - + .461742D+02, .352746D+02, .271825D+02, .211313D+02 / - DATA (UPDI(I),I=10141,10192) / - + .165644D+02, .130928D+02, .104233D+02, .835243D+01, - + .673083D+01, .545011D+01, .442984D+01, .361455D+01, - + .295199D+01, .241775D+01, .197955D+01, .162251D+01, - + .132964D+01, .108892D+01, .890830D+00, .727660D+00, - + .593251D+00, .482546D+00, .391460D+00, .316596D+00, - + .255178D+00, .204889D+00, .163825D+00, .130328D+00, - + .103246D+00, .811924D-01, .634364D-01, .492049D-01, - + .378623D-01, .288753D-01, .218043D-01, .162828D-01, - + .120114D-01, .874021D-02, .625481D-02, .441032D-02, - + .304108D-02, .204948D-02, .134535D-02, .856315D-03, - + .525743D-03, .308942D-03, .172626D-03, .901434D-04, - + .435440D-04, .189411D-04, .717123D-05, .223292D-05, - + .521377D-06, .779458D-07, .536826D-08, .000000D+00 / -C----------------------------------------------------------------------- -C - Dr = DrI - Fl = FlI - Al = AlI - DO I=1,6 - Amass(I) = AmassI(I) - ENDDO - Iorder = Nint(Dr) - Nfl = Nint(Fl) - Alambda = Al -C - NX = NxI - NT = NTI - NfMx = NfMxI -C - QINI = QINII - QMAX = QMAXI - DO I=0,NT - QL(I) = QLI(I) - ENDDO -C - XMIN = XMINI - DO I=0,NX - XV(I) = XVI(I) - ENDDO -C - Do 11 Iq = 0, NT - QL(Iq) = Log (QL(Iq) /Al) - 11 Continue -C -C Since quark = anti-quark for nfl>2 at this stage, -C we Read out only the non-redundent data points -C No of flavors = NfMx (sea) + 1 (gluon) + 2 (valence) - - Nblk = (NX+1) * (NT+1) - Npts = Nblk * (NfMx+3) - DO I=1,Npts - UPD(I) = UPDI(I) - ENDDO -C - Return -C **************************** - End diff --git a/PDF/spdf/ctq4RA5.F b/PDF/spdf/ctq4RA5.F deleted file mode 100644 index f0399b5c8df..00000000000 --- a/PDF/spdf/ctq4RA5.F +++ /dev/null @@ -1,2838 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" - Subroutine Ctq4RA5 (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 : CTEQ4A5 -C PARAMETER (ISET=8) - DATA DrI, FlI, AlI / 2., 5., .2820 / - 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, .202065D+01, .263326D+01, .355599D+01, .500000D+01, - + .779631D+01, .130200D+02, .235367D+02, .466233D+02, .102642D+03, - + .255265D+03, .730783D+03, .246126D+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) / - + .319008D+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, .148570D+06, - + .112239D+06, .833156D+05, .617989D+05, .458152D+05, - + .339356D+05, .251218D+05, .185795D+05, .137321D+05, - + .101390D+05, .748073D+04, .551330D+04, .406008D+04 / - DATA (UPDI(I),I=469,520) / - + .298632D+04, .219461D+04, .161069D+04, .118099D+04, - + .864692D+03, .632431D+03, .461846D+03, .336884D+03, - + .245329D+03, .178427D+03, .129543D+03, .939186D+02, - + .679743D+02, .491452D+02, .352983D+02, .254390D+02, - + .182997D+02, .131515D+02, .943679D+01, .676669D+01, - + .485184D+01, .347684D+01, .249123D+01, .178759D+01, - + .128384D+01, .924545D+00, .667171D+00, .483603D+00, - + .351688D+00, .257017D+00, .188603D+00, .139193D+00, - + .103160D+00, .769792D-01, .575381D-01, .433305D-01, - + .326602D-01, .247454D-01, .187803D-01, .142965D-01, - + .108900D-01, .830960D-02, .633381D-02, .482722D-02, - + .366983D-02, .278675D-02, .210703D-02, .158848D-02, - + .119030D-02, .887269D-03, .657193D-03, .481962D-03 / - DATA (UPDI(I),I=521,572) / - + .349115D-03, .249789D-03, .175606D-03, .121095D-03, - + .811371D-04, .524931D-04, .320884D-04, .179651D-04, - + .839892D-05, .229658D-05, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .328938D+06, .247986D+06, - + .183630D+06, .135870D+06, .100473D+06, .742301D+05, - + .548063D+05, .404256D+05, .297971D+05, .219398D+05, - + .161417D+05, .118624D+05, .870998D+04, .638743D+04, - + .467971D+04, .342396D+04, .250254D+04, .182642D+04, - + .133142D+04, .969045D+03, .704416D+03, .511185D+03, - + .370448D+03, .267974D+03, .193553D+03, .139547D+03 / - DATA (UPDI(I),I=573,624) / - + .100493D+03, .718841D+02, .515907D+02, .369561D+02, - + .264431D+02, .188899D+02, .134825D+02, .962204D+01, - + .686144D+01, .489198D+01, .349206D+01, .249482D+01, - + .178678D+01, .128224D+01, .924067D+00, .668070D+00, - + .485261D+00, .353908D+00, .259526D+00, .191104D+00, - + .141657D+00, .105176D+00, .786577D-01, .588778D-01, - + .442927D-01, .333786D-01, .252259D-01, .190775D-01, - + .144506D-01, .109354D-01, .827423D-02, .624646D-02, - + .471055D-02, .353841D-02, .265114D-02, .197572D-02, - + .146591D-02, .108208D-02, .792237D-03, .574454D-03, - + .412959D-03, .293299D-03, .205957D-03, .142291D-03, - + .967834D-04, .643488D-04, .417019D-04, .261122D-04, - + .157852D-04, .894070D-05, .464461D-05, .203357D-05 / - DATA (UPDI(I),I=625,676) / - + .570954D-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, .546885D+06, .411391D+06, .303837D+06, - + .224221D+06, .165361D+06, .121839D+06, .897074D+05, - + .659835D+05, .484958D+05, .356043D+05, .261173D+05, - + .191358D+05, .140074D+05, .102403D+05, .747865D+04, - + .545424D+04, .397331D+04, .289014D+04, .209965D+04, - + .152288D+04, .110308D+04, .797599D+03, .575869D+03, - + .415005D+03, .298597D+03, .214432D+03, .153793D+03, - + .109552D+03, .782909D+02, .558413D+02, .397777D+02, - + .282873D+02, .200951D+02, .142730D+02, .101276D+02, - + .718434D+01, .510154D+01, .362536D+01, .258215D+01 / - DATA (UPDI(I),I=677,728) / - + .184269D+01, .132026D+01, .948908D+00, .685063D+00, - + .496570D+00, .361834D+00, .264741D+00, .194951D+00, - + .143794D+00, .106807D+00, .794058D-01, .593198D-01, - + .443949D-01, .333145D-01, .250181D-01, .188146D-01, - + .141371D-01, .106202D-01, .796139D-02, .596126D-02, - + .444726D-02, .330940D-02, .245037D-02, .180678D-02, - + .132608D-02, .965901D-03, .697573D-03, .500117D-03, - + .354994D-03, .249800D-03, .173670D-03, .119541D-03, - + .811349D-04, .543487D-04, .358793D-04, .235159D-04, - + .151678D-04, .972516D-05, .619535D-05, .396674D-05, - + .255183D-05, .167474D-05, .111169D-05, .747865D-06, - + .498173D-06, .322660D-06, .195093D-06, .105237D-06, - + .462433D-07, .132268D-07, .102871D-08, .000000D+00 / - DATA (UPDI(I),I=729,780) / - + .808861D+06, .607052D+06, .447111D+06, .329038D+06, - + .241976D+06, .177780D+06, .130514D+06, .957160D+05, - + .701369D+05, .513364D+05, .375408D+05, .274195D+05, - + .200068D+05, .145791D+05, .106121D+05, .771364D+04, - + .560004D+04, .405933D+04, .293862D+04, .212377D+04, - + .153268D+04, .110412D+04, .794144D+03, .570096D+03, - + .408565D+03, .292217D+03, .208713D+03, .148039D+03, - + .105338D+03, .748037D+02, .530439D+02, .375479D+02, - + .265469D+02, .187648D+02, .132481D+02, .935019D+01, - + .660445D+01, .466831D+01, .330659D+01, .234645D+01, - + .167145D+01, .119426D+01, .856970D+00, .617387D+00, - + .447038D+00, .325008D+00, .237776D+00, .174239D+00, - + .128553D+00, .949332D-01, .704346D-01, .523559D-01 / - DATA (UPDI(I),I=781,832) / - + .390163D-01, .290985D-01, .217295D-01, .162141D-01, - + .120951D-01, .900460D-02, .669532D-02, .496101D-02, - + .366661D-02, .269718D-02, .197604D-02, .144155D-02, - + .104403D-02, .750309D-03, .535742D-03, .379271D-03, - + .266613D-03, .185663D-03, .128417D-03, .880055D-04, - + .598989D-04, .405304D-04, .274936D-04, .186028D-04, - + .126806D-04, .870979D-05, .606258D-05, .425559D-05, - + .301533D-05, .212683D-05, .147887D-05, .994751D-06, - + .634515D-06, .371335D-06, .190626D-06, .785737D-07, - + .210066D-07, .168579D-08, .000000D+00, .112169D+07, - + .839798D+06, .616755D+06, .452566D+06, .331837D+06, - + .243073D+06, .177907D+06, .130073D+06, .950146D+05, - + .693262D+05, .505334D+05, .367895D+05, .267548D+05 / - DATA (UPDI(I),I=833,884) / - + .194312D+05, .140958D+05, .102105D+05, .738668D+04, - + .533538D+04, .384835D+04, .277102D+04, .199227D+04, - + .142973D+04, .102435D+04, .732450D+03, .522802D+03, - + .372381D+03, .264846D+03, .187039D+03, .132505D+03, - + .936772D+02, .661225D+02, .465880D+02, .327801D+02, - + .230581D+02, .161970D+02, .113730D+02, .799065D+01, - + .561783D+01, .395708D+01, .279229D+01, .197751D+01, - + .140465D+01, .100187D+01, .717389D+00, .516202D+00, - + .372930D+00, .271084D+00, .197366D+00, .144653D+00, - + .106117D+00, .782032D-01, .577427D-01, .427382D-01, - + .316592D-01, .234792D-01, .174006D-01, .128912D-01, - + .953260D-02, .703959D-02, .518145D-02, .380406D-02, - + .278040D-02, .202417D-02, .146785D-02, .105704D-02 / - DATA (UPDI(I),I=885,936) / - + .755865D-03, .537398D-03, .379266D-03, .266142D-03, - + .185405D-03, .128601D-03, .886937D-04, .610159D-04, - + .419543D-04, .290675D-04, .202101D-04, .142121D-04, - + .100951D-04, .725247D-05, .523292D-05, .377793D-05, - + .269254D-05, .187217D-05, .124946D-05, .784298D-06, - + .448789D-06, .223579D-06, .886567D-07, .227125D-07, - + .185689D-08, .000000D+00, .149248D+07, .111460D+07, - + .816129D+06, .597063D+06, .436448D+06, .318715D+06, - + .232538D+06, .169477D+06, .123400D+06, .897444D+05, - + .652004D+05, .473088D+05, .342880D+05, .248168D+05, - + .179396D+05, .129489D+05, .933404D+04, .671741D+04, - + .482721D+04, .346280D+04, .248011D+04, .177291D+04, - + .126520D+04, .901033D+03, .640498D+03, .454302D+03 / - DATA (UPDI(I),I=937,988) / - + .321730D+03, .226212D+03, .159546D+03, .112287D+03, - + .788919D+02, .553240D+02, .387388D+02, .271160D+02, - + .189510D+02, .132383D+02, .925188D+01, .646955D+01, - + .453178D+01, .317988D+01, .223900D+01, .158110D+01, - + .112095D+01, .797812D+00, .570516D+00, .409598D+00, - + .295849D+00, .214021D+00, .155839D+00, .113578D+00, - + .831489D-01, .609917D-01, .448420D-01, .329977D-01, - + .243072D-01, .178946D-01, .131685D-01, .967349D-02, - + .709621D-02, .518933D-02, .378524D-02, .274948D-02, - + .198944D-02, .143433D-02, .102725D-02, .731035D-03, - + .517607D-03, .364204D-03, .255127D-03, .177764D-03, - + .123585D-03, .856815D-04, .594539D-04, .413890D-04, - + .291211D-04, .206249D-04, .147873D-04, .107031D-04 / - DATA (UPDI(I),I=989,1040) / - + .780914D-05, .569846D-05, .413431D-05, .294519D-05, - + .203419D-05, .134226D-05, .828829D-06, .464479D-06, - + .225336D-06, .863983D-07, .213372D-07, .177250D-08, - + .000000D+00, .192843D+07, .143647D+07, .104858D+07, - + .764741D+06, .557262D+06, .405650D+06, .295013D+06, - + .214311D+06, .155530D+06, .112735D+06, .816260D+05, - + .590247D+05, .426308D+05, .307469D+05, .221472D+05, - + .159283D+05, .114396D+05, .820220D+04, .587197D+04, - + .419618D+04, .299369D+04, .213162D+04, .151508D+04, - + .107460D+04, .760715D+03, .537287D+03, .378859D+03, - + .265198D+03, .186208D+03, .130458D+03, .912320D+02, - + .636757D+02, .443706D+02, .309054D+02, .214899D+02, - + .149345D+02, .103820D+02, .722079D+01, .503008D+01 / - DATA (UPDI(I),I=1041,1092) / - + .350978D+01, .245709D+01, .172501D+01, .121571D+01, - + .860064D+00, .611262D+00, .436140D+00, .313047D+00, - + .225034D+00, .162808D+00, .117896D+00, .857496D-01, - + .624938D-01, .456462D-01, .333713D-01, .244209D-01, - + .178614D-01, .130584D-01, .953102D-02, .694662D-02, - + .504803D-02, .365918D-02, .264200D-02, .190047D-02, - + .136263D-02, .970848D-03, .687795D-03, .485150D-03, - + .340456D-03, .238152D-03, .166002D-03, .115677D-03, - + .805931D-04, .563526D-04, .396385D-04, .282309D-04, - + .202676D-04, .147216D-04, .107772D-04, .792510D-05, - + .580658D-05, .420905D-05, .298390D-05, .204173D-05, - + .133008D-05, .807717D-06, .443508D-06, .209781D-06, - + .779387D-07, .186122D-07, .156932D-08, .000000D+00 / - DATA (UPDI(I),I=1093,1144) / - + .243672D+07, .181033D+07, .131733D+07, .957704D+06, - + .695632D+06, .504735D+06, .365869D+06, .264904D+06, - + .191599D+06, .138408D+06, .998701D+05, .719662D+05, - + .517945D+05, .372230D+05, .267149D+05, .191432D+05, - + .136974D+05, .978418D+04, .697778D+04, .496715D+04, - + .352980D+04, .250336D+04, .177210D+04, .125174D+04, - + .882413D+03, .620584D+03, .435697D+03, .303625D+03, - + .212233D+03, .148015D+03, .103028D+03, .715687D+02, - + .496287D+02, .343979D+02, .237973D+02, .164529D+02, - + .113771D+02, .787053D+01, .545258D+01, .378340D+01, - + .263353D+01, .183821D+01, .128785D+01, .905680D+00, - + .639781D+00, .453699D+00, .323638D+00, .231199D+00, - + .166213D+00, .119602D+00, .864361D-01, .625951D-01 / - DATA (UPDI(I),I=1145,1196) / - + .454276D-01, .330002D-01, .239943D-01, .174380D-01, - + .126679D-01, .918818D-02, .665488D-02, .480660D-02, - + .346322D-02, .248613D-02, .177835D-02, .126843D-02, - + .899365D-03, .634527D-03, .446071D-03, .312333D-03, - + .218266D-03, .152258D-03, .106373D-03, .744709D-04, - + .524417D-04, .372203D-04, .267726D-04, .194184D-04, - + .142309D-04, .104884D-04, .773880D-05, .567002D-05, - + .409358D-05, .288116D-05, .195029D-05, .125331D-05, - + .748348D-06, .402678D-06, .185814D-06, .669755D-07, - + .154989D-07, .132563D-08, .000000D+00, .302428D+07, - + .224087D+07, .162541D+07, .117788D+07, .852769D+06, - + .616715D+06, .445550D+06, .321512D+06, .231751D+06, - + .166838D+06, .119964D+06, .861417D+05, .617754D+05 / - DATA (UPDI(I),I=1197,1248) / - + .442360D+05, .316320D+05, .225830D+05, .160981D+05, - + .114554D+05, .813824D+04, .577069D+04, .408461D+04, - + .288524D+04, .203412D+04, .143090D+04, .100448D+04, - + .703408D+03, .491700D+03, .341121D+03, .237373D+03, - + .164795D+03, .114174D+03, .789364D+02, .544729D+02, - + .375702D+02, .258609D+02, .177880D+02, .122357D+02, - + .841937D+01, .580100D+01, .400289D+01, .277056D+01, - + .192278D+01, .133924D+01, .936278D+00, .657436D+00, - + .463405D+00, .328549D+00, .233266D+00, .166659D+00, - + .119177D+00, .855911D-01, .615979D-01, .444238D-01, - + .320700D-01, .231717D-01, .167359D-01, .120826D-01, - + .871044D-02, .627066D-02, .450245D-02, .322532D-02, - + .230261D-02, .163833D-02, .116285D-02, .820824D-03 / - DATA (UPDI(I),I=1249,1300) / - + .576960D-03, .404420D-03, .282672D-03, .197441D-03, - + .137896D-03, .966155D-04, .679681D-04, .481795D-04, - + .344644D-04, .249916D-04, .182661D-04, .134655D-04, - + .995931D-05, .735136D-05, .537202D-05, .385526D-05, - + .268996D-05, .179974D-05, .114031D-05, .669361D-06, - + .352981D-06, .158958D-06, .556380D-07, .124982D-07, - + .108393D-08, .000000D+00, .263563D+05, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=1301,1352) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=1353,1404) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .582837D+05, .445595D+05, .335484D+05, - + .252504D+05, .190000D+05, .142911D+05, .107460D+05, - + .807664D+04, .606825D+04, .455688D+04, .342056D+04, - + .256604D+04, .192411D+04, .144177D+04, .107977D+04, - + .808020D+03, .604303D+03, .451531D+03, .337154D+03, - + .251489D+03, .187455D+03, .139566D+03, .103827D+03, - + .771430D+02, .572649D+02, .424582D+02, .314640D+02, - + .231833D+02, .171446D+02, .126616D+02, .934887D+01, - + .689557D+01, .508691D+01, .375408D+01, .277184D+01, - + .204742D+01, .151624D+01, .112446D+01, .837253D+00 / - DATA (UPDI(I),I=1405,1456) / - + .625025D+00, .469326D+00, .353751D+00, .268341D+00, - + .204475D+00, .156931D+00, .120983D+00, .940141D-01, - + .732037D-01, .574805D-01, .451799D-01, .357215D-01, - + .282819D-01, .224753D-01, .178656D-01, .142341D-01, - + .113234D-01, .901015D-02, .714903D-02, .566897D-02, - + .447476D-02, .352413D-02, .275931D-02, .215122D-02, - + .166825D-02, .128319D-02, .976757D-03, .736623D-03, - + .548316D-03, .403034D-03, .290825D-03, .205941D-03, - + .141716D-03, .944985D-04, .596368D-04, .353222D-04, - + .182267D-04, .689909D-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 / - DATA (UPDI(I),I=1457,1508) / - + .128349D+06, .979715D+05, .736232D+05, .553042D+05, - + .415310D+05, .311728D+05, .233900D+05, .175408D+05, - + .131491D+05, .985090D+04, .737664D+04, .552005D+04, - + .412859D+04, .308548D+04, .230456D+04, .171978D+04, - + .128254D+04, .955509D+03, .711336D+03, .528973D+03, - + .393046D+03, .291694D+03, .216281D+03, .160154D+03, - + .118473D+03, .875287D+02, .646259D+02, .474380D+02, - + .349460D+02, .257077D+02, .189041D+02, .138859D+02, - + .101993D+02, .749428D+01, .550784D+01, .404948D+01, - + .298401D+01, .220196D+01, .163080D+01, .121091D+01, - + .904041D+00, .677478D+00, .510723D+00, .386760D+00, - + .294861D+00, .225812D+00, .174243D+00, .134730D+00, - + .105012D+00, .819394D-01, .642939D-01, .505270D-01 / - DATA (UPDI(I),I=1509,1560) / - + .398454D-01, .314367D-01, .248545D-01, .196255D-01, - + .154998D-01, .122110D-01, .961454D-02, .753948D-02, - + .590074D-02, .459438D-02, .356461D-02, .275357D-02, - + .211264D-02, .160730D-02, .121467D-02, .909317D-03, - + .675431D-03, .495959D-03, .360798D-03, .258937D-03, - + .183679D-03, .127925D-03, .883074D-04, .596068D-04, - + .396171D-04, .257212D-04, .163821D-04, .101410D-04, - + .613782D-05, .358989D-05, .203536D-05, .110023D-05, - + .567543D-06, .270448D-06, .117437D-06, .437115D-07, - + .119638D-07, .809365D-09, .000000D+00, .212670D+06, - + .162051D+06, .121526D+06, .910922D+05, .682567D+05, - + .511175D+05, .382668D+05, .286293D+05, .214093D+05, - + .159993D+05, .119502D+05, .891912D+04, .665300D+04 / - DATA (UPDI(I),I=1561,1612) / - + .495846D+04, .369312D+04, .274808D+04, .204338D+04, - + .151778D+04, .112645D+04, .835037D+03, .618468D+03, - + .457483D+03, .338067D+03, .249478D+03, .183902D+03, - + .135380D+03, .995862D+02, .728219D+02, .534371D+02, - + .391561D+02, .286755D+02, .209764D+02, .153408D+02, - + .112230D+02, .821034D+01, .600845D+01, .440587D+01, - + .323514D+01, .238347D+01, .176048D+01, .130700D+01, - + .973938D+00, .729838D+00, .549390D+00, .416200D+00, - + .316720D+00, .242768D+00, .186476D+00, .144337D+00, - + .111852D+00, .871402D-01, .680038D-01, .532410D-01, - + .417086D-01, .327355D-01, .256650D-01, .201235D-01, - + .157430D-01, .123074D-01, .958549D-02, .745083D-02, - + .576370D-02, .444351D-02, .341193D-02, .260294D-02 / - DATA (UPDI(I),I=1613,1664) / - + .197065D-02, .148311D-02, .110706D-02, .821022D-03, - + .603217D-03, .440166D-03, .318082D-03, .228163D-03, - + .161843D-03, .114594D-03, .802453D-04, .560525D-04, - + .389006D-04, .269982D-04, .186286D-04, .128658D-04, - + .879442D-05, .594270D-05, .390556D-05, .246746D-05, - + .145090D-05, .765867D-06, .336466D-06, .997955D-07, - + .762425D-08, .000000D+00, .260556D+06, .238852D+06, - + .178719D+06, .133655D+06, .999149D+05, .746465D+05, - + .557438D+05, .415999D+05, .310291D+05, .231274D+05, - + .172281D+05, .128232D+05, .953844D+04, .708870D+04, - + .526437D+04, .390563D+04, .289528D+04, .214390D+04, - + .158611D+04, .117201D+04, .865186D+03, .637837D+03, - + .469727D+03, .345427D+03, .253722D+03, .186096D+03 / - DATA (UPDI(I),I=1665,1716) / - + .136380D+03, .993424D+02, .726120D+02, .529955D+02, - + .386509D+02, .281556D+02, .205019D+02, .149332D+02, - + .108744D+02, .792118D+01, .578016D+01, .422341D+01, - + .309552D+01, .227450D+01, .167937D+01, .124450D+01, - + .927179D+00, .693873D+00, .522441D+00, .395130D+00, - + .300938D+00, .229687D+00, .176604D+00, .135955D+00, - + .105200D+00, .815489D-01, .634067D-01, .493361D-01, - + .384527D-01, .299419D-01, .233145D-01, .181165D-01, - + .140655D-01, .108819D-01, .840164D-02, .645717D-02, - + .494600D-02, .377403D-02, .286154D-02, .215422D-02, - + .161273D-02, .119833D-02, .885241D-03, .648639D-03, - + .472595D-03, .341657D-03, .245673D-03, .175274D-03, - + .125156D-03, .887763D-04, .630507D-04, .446919D-04 / - DATA (UPDI(I),I=1717,1768) / - + .317706D-04, .225164D-04, .159647D-04, .111900D-04, - + .771777D-05, .515410D-05, .328539D-05, .193709D-05, - + .101688D-05, .439338D-06, .126531D-06, .982627D-08, - + .000000D+00, .454333D+06, .344745D+06, .257255D+06, - + .191861D+06, .143024D+06, .106549D+06, .793345D+05, - + .590294D+05, .438957D+05, .326166D+05, .242200D+05, - + .179697D+05, .133227D+05, .986813D+04, .730348D+04, - + .539975D+04, .398870D+04, .294299D+04, .216929D+04, - + .159697D+04, .117440D+04, .862453D+03, .632622D+03, - + .463351D+03, .338937D+03, .247556D+03, .180639D+03, - + .131000D+03, .953199D+02, .692536D+02, .502701D+02, - + .364459D+02, .264071D+02, .191389D+02, .138643D+02, - + .100461D+02, .729027D+01, .529734D+01, .386003D+01 / - DATA (UPDI(I),I=1769,1820) / - + .281970D+01, .206913D+01, .152390D+01, .112799D+01, - + .838713D+00, .627219D+00, .471178D+00, .356342D+00, - + .270076D+00, .206152D+00, .157563D+00, .121015D+00, - + .931265D-01, .718638D-01, .555033D-01, .429283D-01, - + .331761D-01, .256333D-01, .197669D-01, .152254D-01, - + .116874D-01, .894977D-02, .682237D-02, .518054D-02, - + .391792D-02, .294207D-02, .219257D-02, .162326D-02, - + .119162D-02, .868175D-03, .626265D-03, .447959D-03, - + .316898D-03, .221988D-03, .153515D-03, .105584D-03, - + .715983D-04, .482024D-04, .321199D-04, .212980D-04, - + .139992D-04, .917929D-05, .595730D-05, .382634D-05, - + .239739D-05, .144987D-05, .819247D-06, .417460D-06, - + .176871D-06, .505089D-07, .389009D-08, .000000D+00 / - DATA (UPDI(I),I=1821,1872) / - + .626633D+06, .474322D+06, .352924D+06, .262439D+06, - + .195051D+06, .144866D+06, .107531D+06, .797577D+05, - + .591197D+05, .437859D+05, .324061D+05, .239623D+05, - + .177047D+05, .130682D+05, .963758D+04, .709981D+04, - + .522524D+04, .384101D+04, .282047D+04, .206837D+04, - + .151508D+04, .110821D+04, .809581D+03, .590515D+03, - + .430135D+03, .312815D+03, .227254D+03, .164060D+03, - + .118830D+03, .859354D+02, .620813D+02, .447918D+02, - + .322921D+02, .232861D+02, .167801D+02, .120944D+02, - + .872828D+01, .630693D+01, .456906D+01, .331813D+01, - + .242005D+01, .177141D+01, .130284D+01, .962513D+00, - + .715011D+00, .533543D+00, .400732D+00, .301629D+00, - + .228601D+00, .173484D+00, .132277D+00, .101064D+00 / - DATA (UPDI(I),I=1873,1924) / - + .774165D-01, .593579D-01, .455681D-01, .349584D-01, - + .268095D-01, .205228D-01, .156898D-01, .119560D-01, - + .908765D-02, .687747D-02, .518422D-02, .389266D-02, - + .290209D-02, .214796D-02, .157959D-02, .115236D-02, - + .834655D-03, .599072D-03, .426703D-03, .301020D-03, - + .210589D-03, .145853D-03, .100729D-03, .688780D-04, - + .469505D-04, .318562D-04, .216085D-04, .146077D-04, - + .987211D-05, .661374D-05, .436910D-05, .280416D-05, - + .172128D-05, .978344D-06, .494510D-06, .203931D-06, - + .554686D-07, .438138D-08, .000000D+00, .836720D+06, - + .631717D+06, .468607D+06, .347388D+06, .257379D+06, - + .190550D+06, .140984D+06, .104227D+06, .770000D+05, - + .568356D+05, .419196D+05, .308888D+05, .227414D+05 / - DATA (UPDI(I),I=1925,1976) / - + .167256D+05, .122896D+05, .901993D+04, .661333D+04, - + .484277D+04, .354222D+04, .258740D+04, .188765D+04, - + .137510D+04, .100037D+04, .726602D+03, .526989D+03, - + .381572D+03, .275964D+03, .198309D+03, .142971D+03, - + .102908D+03, .739840D+02, .531184D+02, .381022D+02, - + .273358D+02, .195945D+02, .140473D+02, .100816D+02, - + .724408D+01, .521763D+01, .376694D+01, .273077D+01, - + .198661D+01, .145188D+01, .106580D+01, .786544D+00, - + .583045D+00, .434954D+00, .325164D+00, .244723D+00, - + .184428D+00, .139625D+00, .105929D+00, .805622D-01, - + .613308D-01, .467417D-01, .356022D-01, .271058D-01, - + .206016D-01, .156360D-01, .118303D-01, .892758D-02, - + .670890D-02, .502140D-02, .374426D-02, .277215D-02 / - DATA (UPDI(I),I=1977,2028) / - + .203824D-02, .148932D-02, .108006D-02, .777972D-03, - + .555767D-03, .394326D-03, .277483D-03, .193933D-03, - + .134525D-03, .932654D-04, .642438D-04, .442531D-04, - + .304586D-04, .210117D-04, .144795D-04, .997109D-05, - + .679952D-05, .455304D-05, .295019D-05, .181666D-05, - + .102995D-05, .515077D-06, .208067D-06, .549331D-07, - + .440707D-08, .000000D+00, .109103D+07, .821517D+06, - + .607470D+06, .448888D+06, .331498D+06, .244614D+06, - + .180379D+06, .132899D+06, .978434D+05, .719684D+05, - + .528928D+05, .388343D+05, .284869D+05, .208737D+05, - + .152800D+05, .111720D+05, .815957D+04, .595163D+04, - + .433597D+04, .315441D+04, .229187D+04, .166261D+04, - + .120442D+04, .871052D+03, .628997D+03, .453402D+03 / - DATA (UPDI(I),I=2029,2080) / - + .326427D+03, .233477D+03, .167536D+03, .120016D+03, - + .858632D+02, .613426D+02, .437783D+02, .312466D+02, - + .222791D+02, .158861D+02, .113382D+02, .810123D+01, - + .580130D+01, .416382D+01, .300030D+01, .216937D+01, - + .157553D+01, .114926D+01, .842637D+00, .620545D+00, - + .459849D+00, .341472D+00, .255241D+00, .191037D+00, - + .143625D+00, .108213D+00, .817227D-01, .617808D-01, - + .467518D-01, .353607D-01, .267321D-01, .201760D-01, - + .152051D-01, .114247D-01, .856138D-02, .638984D-02, - + .474990D-02, .351809D-02, .258740D-02, .189040D-02, - + .137291D-02, .990082D-03, .709513D-03, .504695D-03, - + .356872D-03, .250612D-03, .175068D-03, .121655D-03, - + .846672D-04, .587113D-04, .408062D-04, .284072D-04 / - DATA (UPDI(I),I=2081,2132) / - + .198404D-04, .138487D-04, .964198D-05, .663282D-05, - + .446128D-05, .289242D-05, .177279D-05, .995641D-06, - + .490017D-06, .193201D-06, .494952D-07, .402795D-08, - + .000000D+00, .139637D+07, .104854D+07, .772810D+06, - + .569178D+06, .418922D+06, .308076D+06, .226394D+06, - + .166220D+06, .121943D+06, .893737D+05, .654462D+05, - + .478745D+05, .349873D+05, .255400D+05, .186243D+05, - + .135643D+05, .986776D+04, .716887D+04, .520162D+04, - + .376865D+04, .272674D+04, .196973D+04, .142078D+04, - + .102305D+04, .735490D+03, .527774D+03, .378230D+03, - + .269254D+03, .192295D+03, .137091D+03, .975979D+02, - + .693789D+02, .492612D+02, .349785D+02, .248075D+02, - + .175935D+02, .124872D+02, .887216D+01, .631677D+01 / - DATA (UPDI(I),I=2133,2184) / - + .450732D+01, .322836D+01, .232010D+01, .167454D+01, - + .121383D+01, .884275D+00, .647000D+00, .476309D+00, - + .351356D+00, .260865D+00, .193932D+00, .144809D+00, - + .108365D+00, .812765D-01, .610238D-01, .458598D-01, - + .344484D-01, .258633D-01, .193873D-01, .145105D-01, - + .108292D-01, .806026D-02, .597602D-02, .441292D-02, - + .324739D-02, .237315D-02, .172343D-02, .124450D-02, - + .892805D-03, .636816D-03, .451265D-03, .318179D-03, - + .223104D-03, .155866D-03, .108545D-03, .758451D-04, - + .529244D-04, .370749D-04, .260489D-04, .183614D-04, - + .129264D-04, .905458D-05, .625005D-05, .420124D-05, - + .271242D-05, .164807D-05, .913704D-06, .441352D-06, - + .169535D-06, .421306D-07, .347691D-08, .000000D+00 / - DATA (UPDI(I),I=2185,2236) / - + .175984D+07, .131776D+07, .967980D+06, .710513D+06, - + .521155D+06, .381929D+06, .279681D+06, .204614D+06, - + .149568D+06, .109221D+06, .796845D+05, .580720D+05, - + .422788D+05, .307443D+05, .223320D+05, .162007D+05, - + .117386D+05, .849356D+04, .613752D+04, .442826D+04, - + .319049D+04, .229488D+04, .164814D+04, .118155D+04, - + .845650D+03, .604062D+03, .430903D+03, .305296D+03, - + .216997D+03, .153956D+03, .109065D+03, .771427D+02, - + .544940D+02, .384937D+02, .271556D+02, .191548D+02, - + .135203D+02, .955229D+01, .676200D+01, .479694D+01, - + .341535D+01, .243969D+01, .175002D+01, .126067D+01, - + .912577D+00, .663441D+00, .485256D+00, .355620D+00, - + .262287D+00, .193696D+00, .143667D+00, .106795D+00 / - DATA (UPDI(I),I=2237,2288) / - + .795602D-01, .593349D-01, .442892D-01, .330455D-01, - + .246433D-01, .183499D-01, .136423D-01, .101143D-01, - + .747879D-02, .550933D-02, .404233D-02, .295622D-02, - + .214727D-02, .155050D-02, .111363D-02, .795084D-03, - + .564734D-03, .398873D-03, .280595D-03, .196571D-03, - + .137421D-03, .959442D-04, .673180D-04, .472528D-04, - + .333312D-04, .235936D-04, .167427D-04, .118503D-04, - + .832257D-05, .574403D-05, .384631D-05, .246566D-05, - + .148164D-05, .809239D-06, .383062D-06, .143242D-06, - + .345430D-07, .289032D-08, .000000D+00, .218865D+07, - + .163417D+07, .119632D+07, .875101D+06, .639645D+06, - + .467116D+06, .340842D+06, .248461D+06, .180957D+06, - + .131654D+06, .956915D+05, .694736D+05, .503857D+05 / - DATA (UPDI(I),I=2289,2340) / - + .364974D+05, .264068D+05, .190805D+05, .137695D+05, - + .992242D+04, .714039D+04, .513027D+04, .368059D+04, - + .263603D+04, .188489D+04, .134530D+04, .958531D+03, - + .681566D+03, .483937D+03, .341238D+03, .241388D+03, - + .170433D+03, .120142D+03, .845526D+02, .594234D+02, - + .417586D+02, .293026D+02, .205580D+02, .144308D+02, - + .101387D+02, .713618D+01, .503311D+01, .356233D+01, - + .252946D+01, .180337D+01, .129110D+01, .928764D+00, - + .670946D+00, .487619D+00, .355052D+00, .260166D+00, - + .190877D+00, .140647D+00, .103867D+00, .768688D-01, - + .569510D-01, .422286D-01, .313014D-01, .231895D-01, - + .171551D-01, .126711D-01, .933414D-02, .685796D-02, - + .502060D-02, .366108D-02, .266146D-02, .192202D-02 / - DATA (UPDI(I),I=2341,2392) / - + .138039D-02, .986517D-03, .701242D-03, .496231D-03, - + .349524D-03, .245459D-03, .171899D-03, .120319D-03, - + .842452D-04, .593584D-04, .418953D-04, .297285D-04, - + .211666D-04, .150898D-04, .107109D-04, .752264D-05, - + .517809D-05, .344638D-05, .218934D-05, .129907D-05, - + .698092D-06, .323533D-06, .117738D-06, .275726D-07, - + .233872D-08, .000000D+00, .268995D+07, .200269D+07, - + .146105D+07, .106504D+07, .775745D+06, .564494D+06, - + .410414D+06, .298088D+06, .216301D+06, .156783D+06, - + .113527D+06, .821082D+05, .593191D+05, .428006D+05, - + .308449D+05, .221982D+05, .159545D+05, .114498D+05, - + .820533D+04, .587065D+04, .419382D+04, .299065D+04, - + .212911D+04, .151288D+04, .107309D+04, .759529D+03 / - DATA (UPDI(I),I=2393,2444) / - + .536794D+03, .376708D+03, .265208D+03, .186347D+03, - + .130713D+03, .915336D+02, .640020D+02, .447443D+02, - + .312320D+02, .217942D+02, .152148D+02, .106302D+02, - + .743976D+01, .521710D+01, .367095D+01, .259114D+01, - + .183621D+01, .130662D+01, .934121D+00, .670611D+00, - + .484316D+00, .350410D+00, .255125D+00, .185977D+00, - + .136154D+00, .999031D-01, .734575D-01, .540730D-01, - + .398351D-01, .293376D-01, .215953D-01, .158744D-01, - + .116509D-01, .852918D-02, .622787D-02, .453192D-02, - + .328516D-02, .237458D-02, .170547D-02, .121868D-02, - + .866945D-03, .613810D-03, .432958D-03, .304279D-03, - + .213437D-03, .149505D-03, .104818D-03, .736202D-04, - + .520874D-04, .369470D-04, .263476D-04, .188410D-04 / - DATA (UPDI(I),I=2445,2496) / - + .134691D-04, .956793D-05, .670660D-05, .459526D-05, - + .303505D-05, .190796D-05, .111669D-05, .589888D-06, - + .267508D-06, .947379D-07, .215649D-07, .185392D-08, - + .000000D+00, .327069D+07, .242802D+07, .176521D+07, - + .128227D+07, .930662D+06, .674806D+06, .488842D+06, - + .353755D+06, .255745D+06, .184681D+06, .133221D+06, - + .959840D+05, .690751D+05, .496449D+05, .356355D+05, - + .255432D+05, .182842D+05, .130679D+05, .932595D+04, - + .664436D+04, .472632D+04, .335584D+04, .237867D+04, - + .168273D+04, .118820D+04, .837164D+03, .588926D+03, - + .411330D+03, .288208D+03, .201533D+03, .140672D+03, - + .980184D+02, .681893D+02, .474271D+02, .329310D+02, - + .228574D+02, .158704D+02, .110272D+02, .767432D+01 / - DATA (UPDI(I),I=2497,2548) / - + .535097D+01, .374335D+01, .262675D+01, .185036D+01, - + .130878D+01, .929960D+00, .663519D+00, .476231D+00, - + .342408D+00, .247732D+00, .179449D+00, .130544D+00, - + .951828D-01, .695432D-01, .508683D-01, .372368D-01, - + .272519D-01, .199344D-01, .145627D-01, .106223D-01, - + .772910D-02, .560992D-02, .405855D-02, .292527D-02, - + .210296D-02, .150258D-02, .106864D-02, .757006D-03, - + .534081D-03, .375686D-03, .263573D-03, .184766D-03, - + .129510D-03, .909836D-04, .641085D-04, .455370D-04, - + .324417D-04, .232259D-04, .166574D-04, .119218D-04, - + .846066D-05, .590910D-05, .402431D-05, .263436D-05, - + .163714D-05, .944382D-06, .490085D-06, .217391D-06, - + .749346D-07, .165955D-07, .144579D-08, .000000D+00 / - DATA (UPDI(I),I=2549,2600) / - + .211749D+05, .127778D+05, .102457D+05, .821536D+04, - + .658739D+04, .528205D+04, .423539D+04, .339615D+04, - + .272322D+04, .218365D+04, .175101D+04, .140410D+04, - + .112594D+04, .902906D+03, .724067D+03, .580667D+03, - + .465684D+03, .373485D+03, .299556D+03, .240275D+03, - + .192740D+03, .154623D+03, .124058D+03, .995476D+02, - + .798924D+02, .641300D+02, .514890D+02, .412223D+02, - + .331192D+02, .266188D+02, .214035D+02, .172187D+02, - + .138602D+02, .111715D+02, .900698D+01, .726910D+01, - + .587309D+01, .475092D+01, .384808D+01, .312059D+01, - + .253445D+01, .206065D+01, .167716D+01, .136612D+01, - + .111334D+01, .907501D+00, .740144D+00, .602510D+00, - + .490550D+00, .398270D+00, .322940D+00, .261199D+00 / - DATA (UPDI(I),I=2601,2652) / - + .210629D+00, .169254D+00, .135459D+00, .107921D+00, - + .855464D-01, .674319D-01, .528276D-01, .411097D-01, - + .317582D-01, .243398D-01, .184938D-01, .139391D-01, - + .103818D-01, .764693D-02, .556476D-02, .399634D-02, - + .282871D-02, .197064D-02, .134902D-02, .905757D-03, - + .595034D-03, .381314D-03, .238736D-03, .144533D-03, - + .845292D-04, .475080D-04, .254943D-04, .129572D-04, - + .617225D-05, .272227D-05, .108491D-05, .383655D-06, - + .115450D-06, .278716D-07, .489045D-08, .518188D-09, - + .218723D-10, .971975D-13, .000000D+00, .740706D+05, - + .573171D+05, .437778D+05, .334525D+05, .255767D+05, - + .195645D+05, .149744D+05, .114671D+05, .878680D+04, - + .673670D+04, .516842D+04, .396755D+04, .304791D+04 / - DATA (UPDI(I),I=2653,2704) / - + .234289D+04, .180235D+04, .138743D+04, .106892D+04, - + .824109D+03, .635931D+03, .491091D+03, .379610D+03, - + .293677D+03, .227433D+03, .176289D+03, .136799D+03, - + .106266D+03, .826625D+02, .641426D+02, .500246D+02, - + .390622D+02, .305527D+02, .239314D+02, .187793D+02, - + .147717D+02, .116375D+02, .918703D+01, .727070D+01, - + .576694D+01, .458637D+01, .365559D+01, .292206D+01, - + .234053D+01, .187890D+01, .151084D+01, .121686D+01, - + .980971D+00, .792070D+00, .638648D+00, .515533D+00, - + .415151D+00, .334138D+00, .268368D+00, .215033D+00, - + .171760D+00, .136722D+00, .108373D+00, .855082D-01, - + .671113D-01, .523782D-01, .406174D-01, .312846D-01, - + .239142D-01, .181311D-01, .136426D-01, .101484D-01 / - DATA (UPDI(I),I=2705,2756) / - + .746751D-02, .543109D-02, .389888D-02, .275966D-02, - + .192211D-02, .131528D-02, .881558D-03, .577216D-03, - + .366783D-03, .226223D-03, .132932D-03, .734517D-04, - + .368401D-04, .153477D-04, .359555D-05, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .144113D+06, .110710D+06, - + .838375D+05, .634942D+05, .480978D+05, .364382D+05, - + .276118D+05, .209259D+05, .158632D+05, .120271D+05, - + .912155D+04, .691912D+04, .525035D+04, .398490D+04, - + .302571D+04, .229798D+04, .174613D+04, .132721D+04, - + .100935D+04, .767916D+03, .584624D+03, .445298D+03, - + .339438D+03, .258901D+03, .197650D+03, .151015D+03 / - DATA (UPDI(I),I=2757,2808) / - + .115534D+03, .881349D+02, .675873D+02, .518908D+02, - + .399094D+02, .307405D+02, .237260D+02, .183603D+02, - + .142350D+02, .110627D+02, .862320D+01, .673959D+01, - + .528473D+01, .415532D+01, .327900D+01, .259432D+01, - + .205860D+01, .163719D+01, .130509D+01, .104184D+01, - + .833586D+00, .666278D+00, .533518D+00, .426329D+00, - + .340671D+00, .271745D+00, .216347D+00, .171760D+00, - + .135947D+00, .107177D+00, .841374D-01, .657199D-01, - + .510672D-01, .394377D-01, .302641D-01, .230571D-01, - + .174311D-01, .130850D-01, .971664D-02, .714177D-02, - + .519329D-02, .373160D-02, .264803D-02, .185271D-02, - + .127736D-02, .866089D-03, .577094D-03, .376449D-03, - + .241629D-03, .151022D-03, .922244D-04, .548009D-04 / - DATA (UPDI(I),I=2809,2860) / - + .317118D-04, .177908D-04, .970894D-05, .513282D-05, - + .263613D-05, .130768D-05, .628303D-06, .284726D-06, - + .119867D-06, .439626D-07, .119743D-07, .809417D-09, - + .000000D+00, .228412D+06, .174773D+06, .131726D+06, - + .992707D+05, .748143D+05, .563753D+05, .424825D+05, - + .320093D+05, .241193D+05, .181721D+05, .136923D+05, - + .103158D+05, .777279D+04, .585623D+04, .441286D+04, - + .332510D+04, .250595D+04, .188860D+04, .142371D+04, - + .107332D+04, .809469D+03, .610578D+03, .460773D+03, - + .347822D+03, .262718D+03, .198542D+03, .150201D+03, - + .113253D+03, .858374D+02, .651202D+02, .494813D+02, - + .376492D+02, .287017D+02, .219381D+02, .168000D+02, - + .128967D+02, .993162D+01, .767007D+01, .594461D+01 / - DATA (UPDI(I),I=2861,2912) / - + .462134D+01, .360694D+01, .282368D+01, .221791D+01, - + .174676D+01, .137955D+01, .109152D+01, .866016D+00, - + .686605D+00, .545620D+00, .432809D+00, .343450D+00, - + .272143D+00, .215296D+00, .169893D+00, .133697D+00, - + .104821D+00, .818544D-01, .636147D-01, .491959D-01, - + .378202D-01, .288997D-01, .219303D-01, .165185D-01, - + .123590D-01, .915078D-02, .670920D-02, .486972D-02, - + .349520D-02, .248009D-02, .173730D-02, .120144D-02, - + .819092D-03, .550646D-03, .364148D-03, .238512D-03, - + .153580D-03, .979245D-04, .618581D-04, .389956D-04, - + .245614D-04, .156080D-04, .996710D-05, .639407D-05, - + .405956D-05, .251196D-05, .146122D-05, .767596D-06, - + .336643D-06, .998028D-07, .762429D-08, .000000D+00 / - DATA (UPDI(I),I=2913,2964) / - + .255405D+06, .251557D+06, .188906D+06, .141823D+06, - + .106464D+06, .798971D+05, .599535D+05, .449750D+05, - + .337352D+05, .252969D+05, .189675D+05, .142176D+05, - + .106563D+05, .798484D+04, .598274D+04, .448147D+04, - + .335684D+04, .251385D+04, .188261D+04, .140963D+04, - + .105560D+04, .790415D+03, .591973D+03, .443361D+03, - + .332170D+03, .248926D+03, .186696D+03, .139504D+03, - + .104767D+03, .787371D+02, .592545D+02, .446446D+02, - + .336959D+02, .254966D+02, .193267D+02, .146849D+02, - + .111934D+02, .855696D+01, .656551D+01, .505370D+01, - + .390636D+01, .302933D+01, .235771D+01, .184046D+01, - + .144118D+01, .113092D+01, .890219D+00, .700419D+00, - + .552561D+00, .435238D+00, .343056D+00, .270072D+00 / - DATA (UPDI(I),I=2965,3016) / - + .212328D+00, .166548D+00, .130309D+00, .101595D+00, - + .789096D-01, .610087D-01, .469458D-01, .359177D-01, - + .273206D-01, .206418D-01, .154838D-01, .115401D-01, - + .851377D-02, .622187D-02, .450336D-02, .322500D-02, - + .228491D-02, .159966D-02, .110704D-02, .756565D-03, - + .511012D-03, .340609D-03, .225727D-03, .147864D-03, - + .965321D-04, .629038D-04, .412082D-04, .271425D-04, - + .180825D-04, .120867D-04, .805910D-05, .526922D-05, - + .331822D-05, .194460D-05, .101812D-05, .439463D-06, - + .126536D-06, .982630D-08, .000000D+00, .470033D+06, - + .357432D+06, .267427D+06, .200017D+06, .149563D+06, - + .111791D+06, .835377D+05, .623991D+05, .465973D+05, - + .347824D+05, .259563D+05, .193615D+05, .144384D+05 / - DATA (UPDI(I),I=3017,3068) / - + .107624D+05, .802027D+04, .597424D+04, .444909D+04, - + .331193D+04, .246491D+04, .183382D+04, .136413D+04, - + .101443D+04, .754329D+03, .560804D+03, .416953D+03, - + .309998D+03, .230604D+03, .170844D+03, .127189D+03, - + .947358D+02, .706387D+02, .527222D+02, .394085D+02, - + .295281D+02, .221592D+02, .166680D+02, .125760D+02, - + .951652D+01, .722778D+01, .550776D+01, .421517D+01, - + .323712D+01, .249543D+01, .192996D+01, .149763D+01, - + .116496D+01, .909284D+00, .709556D+00, .555356D+00, - + .434094D+00, .339624D+00, .265465D+00, .207263D+00, - + .161489D+00, .125528D+00, .972517D-01, .750709D-01, - + .576942D-01, .441354D-01, .335750D-01, .253953D-01, - + .190820D-01, .142353D-01, .105521D-01, .774182D-02 / - DATA (UPDI(I),I=3069,3120) / - + .562600D-02, .404834D-02, .288139D-02, .202785D-02, - + .140919D-02, .966847D-03, .653968D-03, .436084D-03, - + .285977D-03, .185578D-03, .118243D-03, .744266D-04, - + .462687D-04, .285676D-04, .175310D-04, .107808D-04, - + .662867D-05, .407918D-05, .248171D-05, .147363D-05, - + .824615D-06, .418336D-06, .176958D-06, .505124D-07, - + .389011D-08, .000000D+00, .642312D+06, .486991D+06, - + .363081D+06, .270583D+06, .201581D+06, .150101D+06, - + .111728D+06, .831221D+05, .618168D+05, .459480D+05, - + .341392D+05, .253515D+05, .188181D+05, .139606D+05, - + .103527D+05, .767289D+04, .568443D+04, .420889D+04, - + .311517D+04, .230441D+04, .170410D+04, .125955D+04, - + .930721D+03, .687460D+03, .507696D+03, .374848D+03 / - DATA (UPDI(I),I=3121,3172) / - + .276850D+03, .203573D+03, .150399D+03, .111147D+03, - + .822053D+02, .608472D+02, .450943D+02, .334959D+02, - + .249136D+02, .185716D+02, .138845D+02, .104105D+02, - + .783401D+01, .591507D+01, .448563D+01, .341384D+01, - + .260827D+01, .199969D+01, .153849D+01, .118679D+01, - + .918811D+00, .711309D+00, .552451D+00, .428583D+00, - + .332866D+00, .258341D+00, .200306D+00, .155020D+00, - + .119707D+00, .921474D-01, .706840D-01, .539904D-01, - + .410539D-01, .310482D-01, .233494D-01, .174470D-01, - + .129443D-01, .954424D-02, .696605D-02, .503710D-02, - + .360743D-02, .255632D-02, .179191D-02, .124104D-02, - + .849267D-03, .573600D-03, .382485D-03, .251413D-03, - + .163988D-03, .105469D-03, .673502D-04, .427661D-04 / - DATA (UPDI(I),I=3173,3224) / - + .271623D-04, .172796D-04, .110711D-04, .711084D-05, - + .455407D-05, .286506D-05, .173821D-05, .982113D-06, - + .495116D-06, .203991D-06, .554710D-07, .438140D-08, - + .000000D+00, .852377D+06, .644369D+06, .478750D+06, - + .355520D+06, .263899D+06, .195777D+06, .145174D+06, - + .107586D+06, .796926D+05, .589939D+05, .436495D+05, - + .322753D+05, .238525D+05, .176160D+05, .130031D+05, - + .959157D+04, .707126D+04, .520956D+04, .383596D+04, - + .282259D+04, .207591D+04, .152576D+04, .112092D+04, - + .823014D+03, .604071D+03, .443174D+03, .325173D+03, - + .237473D+03, .174226D+03, .127837D+03, .938532D+02, - + .689445D+02, .506984D+02, .373607D+02, .275625D+02, - + .203768D+02, .151063D+02, .112309D+02, .837920D+01 / - DATA (UPDI(I),I=3225,3276) / - + .627276D+01, .471631D+01, .355904D+01, .269637D+01, - + .205014D+01, .156445D+01, .119716D+01, .919593D+00, - + .706440D+00, .544557D+00, .419355D+00, .323360D+00, - + .249208D+00, .191898D+00, .147519D+00, .113164D+00, - + .865499D-01, .659701D-01, .500779D-01, .378467D-01, - + .284520D-01, .212715D-01, .158034D-01, .116587D-01, - + .854917D-02, .620617D-02, .446442D-02, .318150D-02, - + .224413D-02, .156648D-02, .108103D-02, .737708D-03, - + .497431D-03, .331643D-03, .218457D-03, .143177D-03, - + .928820D-04, .600847D-04, .388509D-04, .252443D-04, - + .164959D-04, .108664D-04, .716662D-05, .468799D-05, - + .299406D-05, .182869D-05, .103259D-05, .515494D-06, - + .208108D-06, .549347D-07, .440708D-08, .000000D+00 / - DATA (UPDI(I),I=3277,3328) / - + .110666D+07, .834151D+06, .617599D+06, .457008D+06, - + .338008D+06, .249833D+06, .184562D+06, .136252D+06, - + .100531D+06, .741228D+05, .546194D+05, .402181D+05, - + .295957D+05, .217621D+05, .159918D+05, .117422D+05, - + .861618D+04, .631726D+04, .462868D+04, .338870D+04, - + .247934D+04, .181257D+04, .132433D+04, .966900D+03, - + .705574D+03, .514550D+03, .375229D+03, .272276D+03, - + .198463D+03, .144650D+03, .105467D+03, .769310D+02, - + .561617D+02, .410814D+02, .300777D+02, .220648D+02, - + .162292D+02, .119700D+02, .885902D+01, .657858D+01, - + .490633D+01, .367266D+01, .276016D+01, .208203D+01, - + .157633D+01, .119693D+01, .912447D+00, .695704D+00, - + .532353D+00, .407000D+00, .311616D+00, .238496D+00 / - DATA (UPDI(I),I=3329,3380) / - + .182401D+00, .139284D+00, .106145D+00, .806589D-01, - + .610899D-01, .460847D-01, .346148D-01, .258657D-01, - + .192232D-01, .141987D-01, .104149D-01, .759440D-02, - + .548285D-02, .392334D-02, .278188D-02, .195309D-02, - + .135756D-02, .933495D-03, .635268D-03, .427678D-03, - + .285130D-03, .188232D-03, .123953D-03, .810702D-04, - + .530624D-04, .348468D-04, .230580D-04, .153665D-04, - + .103088D-04, .690321D-05, .455948D-05, .292393D-05, - + .178131D-05, .997483D-06, .490304D-06, .193228D-06, - + .494963D-07, .402796D-08, .000000D+00, .141199D+07, - + .106116D+07, .782925D+06, .577287D+06, .425423D+06, - + .313287D+06, .230571D+06, .169568D+06, .124626D+06, - + .915242D+05, .671695D+05, .492554D+05, .360936D+05 / - DATA (UPDI(I),I=3381,3432) / - + .264264D+05, .193342D+05, .141328D+05, .103230D+05, - + .753329D+04, .549327D+04, .400199D+04, .291337D+04, - + .211894D+04, .154003D+04, .111830D+04, .811534D+03, - + .588445D+03, .426603D+03, .307669D+03, .222877D+03, - + .161417D+03, .116926D+03, .847211D+02, .614250D+02, - + .446177D+02, .324326D+02, .236187D+02, .172429D+02, - + .126220D+02, .927032D+01, .683124D+01, .505550D+01, - + .375519D+01, .280049D+01, .209634D+01, .157514D+01, - + .118707D+01, .898254D+00, .679879D+00, .516512D+00, - + .392092D+00, .298113D+00, .226605D+00, .172140D+00, - + .130578D+00, .988611D-01, .746414D-01, .561743D-01, - + .421126D-01, .314367D-01, .233489D-01, .172493D-01, - + .126664D-01, .923735D-02, .669787D-02, .480898D-02 / - DATA (UPDI(I),I=3433,3484) / - + .342298D-02, .241494D-02, .168762D-02, .116816D-02, - + .800479D-03, .543342D-03, .365300D-03, .243614D-03, - + .161224D-03, .106689D-03, .703360D-04, .465384D-04, - + .309770D-04, .208009D-04, .140658D-04, .954991D-05, - + .644866D-05, .427250D-05, .273500D-05, .165409D-05, - + .914987D-06, .441549D-06, .169553D-06, .421313D-07, - + .347691D-08, .000000D+00, .177544D+07, .133036D+07, - + .978081D+06, .718609D+06, .527645D+06, .387132D+06, - + .283851D+06, .207956D+06, .152247D+06, .111368D+06, - + .814043D+05, .594499D+05, .433826D+05, .316284D+05, - + .230401D+05, .167676D+05, .121924D+05, .885671D+04, - + .642805D+04, .466061D+04, .337624D+04, .244331D+04, - + .176669D+04, .127618D+04, .921133D+03, .664231D+03 / - DATA (UPDI(I),I=3485,3536) / - + .478827D+03, .343310D+03, .247221D+03, .177961D+03, - + .128107D+03, .922302D+02, .664314D+02, .479324D+02, - + .346034D+02, .250239D+02, .181389D+02, .131823D+02, - + .961120D+01, .703037D+01, .516436D+01, .380762D+01, - + .281852D+01, .209428D+01, .156202D+01, .116861D+01, - + .877928D+00, .659747D+00, .497694D+00, .375178D+00, - + .283299D+00, .213893D+00, .161401D+00, .121630D+00, - + .914891D-01, .686344D-01, .513278D-01, .382404D-01, - + .283708D-01, .209446D-01, .153810D-01, .112285D-01, - + .814161D-02, .587025D-02, .419169D-02, .296801D-02, - + .208362D-02, .144951D-02, .999337D-03, .682576D-03, - + .462253D-03, .310478D-03, .207201D-03, .137518D-03, - + .914702D-04, .607760D-04, .406188D-04, .273548D-04 / - DATA (UPDI(I),I=3537,3588) / - + .185871D-04, .127032D-04, .868947D-05, .588950D-05, - + .389788D-05, .248179D-05, .148588D-05, .810130D-06, - + .383197D-06, .143255D-06, .345435D-07, .289033D-08, - + .000000D+00, .220422D+07, .164675D+07, .120641D+07, - + .883186D+06, .646126D+06, .472311D+06, .345005D+06, - + .251797D+06, .183630D+06, .133796D+06, .974079D+05, - + .708485D+05, .514869D+05, .373792D+05, .271128D+05, - + .196457D+05, .142218D+05, .102842D+05, .742973D+04, - + .536157D+04, .386540D+04, .278362D+04, .200270D+04, - + .143927D+04, .103342D+04, .741207D+03, .531389D+03, - + .378832D+03, .271237D+03, .194104D+03, .138887D+03, - + .993771D+02, .711281D+02, .509918D+02, .365697D+02, - + .262686D+02, .189111D+02, .136483D+02, .988107D+01 / - DATA (UPDI(I),I=3589,3640) / - + .717657D+01, .523411D+01, .383139D+01, .281575D+01, - + .207723D+01, .153824D+01, .114265D+01, .852393D+00, - + .636078D+00, .476530D+00, .356766D+00, .267578D+00, - + .200680D+00, .150435D+00, .112630D+00, .841747D-01, - + .627470D-01, .466311D-01, .345268D-01, .254593D-01, - + .186823D-01, .136383D-01, .989858D-02, .713624D-02, - + .511677D-02, .363392D-02, .255987D-02, .178847D-02, - + .123878D-02, .850838D-03, .579435D-03, .391650D-03, - + .262914D-03, .175668D-03, .116970D-03, .782212D-04, - + .523703D-04, .353254D-04, .240294D-04, .164805D-04, - + .113476D-04, .779364D-05, .528434D-05, .348360D-05, - + .220083D-05, .130205D-05, .698709D-06, .323625D-06, - + .117747D-06, .275729D-07, .233873D-08, .000000D+00 / - DATA (UPDI(I),I=3641,3692) / - + .270550D+07, .201526D+07, .147113D+07, .107312D+07, - + .782216D+06, .569680D+06, .414570D+06, .301419D+06, - + .218970D+06, .158921D+06, .115239D+06, .834799D+05, - + .604175D+05, .436801D+05, .315488D+05, .227615D+05, - + .164052D+05, .118102D+05, .849342D+04, .610084D+04, - + .437765D+04, .313737D+04, .224614D+04, .160615D+04, - + .114736D+04, .818616D+03, .583753D+03, .413863D+03, - + .294667D+03, .209672D+03, .149152D+03, .106087D+03, - + .754677D+02, .537673D+02, .383150D+02, .273442D+02, - + .195555D+02, .140189D+02, .100806D+02, .727131D+01, - + .526652D+01, .382833D+01, .279388D+01, .204674D+01, - + .150511D+01, .111028D+01, .822561D+00, .609608D+00, - + .453607D+00, .337319D+00, .251312D+00, .187244D+00 / - DATA (UPDI(I),I=3693,3744) / - + .139451D+00, .103735D+00, .770343D-01, .570637D-01, - + .421442D-01, .310134D-01, .227300D-01, .165801D-01, - + .120327D-01, .868299D-02, .622449D-02, .443859D-02, - + .313558D-02, .219778D-02, .152838D-02, .105426D-02, - + .721587D-03, .490136D-03, .330793D-03, .222045D-03, - + .148608D-03, .993127D-04, .667805D-04, .450393D-04, - + .306343D-04, .210140D-04, .145148D-04, .100419D-04, - + .690620D-05, .467263D-05, .306182D-05, .191612D-05, - + .111878D-05, .590314D-06, .267570D-06, .947435D-07, - + .215651D-07, .185392D-08, .000000D+00, .328622D+07, - + .244057D+07, .177527D+07, .129033D+07, .937123D+06, - + .679983D+06, .492991D+06, .357079D+06, .258408D+06, - + .186814D+06, .134930D+06, .973524D+05, .701707D+05 / - DATA (UPDI(I),I=3745,3796) / - + .505218D+05, .363373D+05, .261046D+05, .187331D+05, - + .134267D+05, .961271D+04, .687338D+04, .490910D+04, - + .350164D+04, .249487D+04, .177526D+04, .126182D+04, - + .895670D+03, .635369D+03, .448028D+03, .317261D+03, - + .224499D+03, .158795D+03, .112293D+03, .794099D+02, - + .562357D+02, .398271D+02, .282451D+02, .200707D+02, - + .142951D+02, .102115D+02, .731681D+01, .526391D+01, - + .380059D+01, .275481D+01, .200441D+01, .146397D+01, - + .107261D+01, .789307D+00, .581028D+00, .429467D+00, - + .317253D+00, .234815D+00, .173821D+00, .128623D+00, - + .950735D-01, .701576D-01, .516466D-01, .379090D-01, - + .277275D-01, .201998D-01, .146476D-01, .105685D-01, - + .758308D-02, .540573D-02, .383404D-02, .269451D-02 / - DATA (UPDI(I),I=3797,3848) / - + .187949D-02, .130126D-02, .894122D-03, .610043D-03, - + .413451D-03, .278741D-03, .187180D-03, .125540D-03, - + .842280D-04, .569523D-04, .386768D-04, .265004D-04, - + .183023D-04, .127059D-04, .881251D-05, .605570D-05, - + .408050D-05, .265357D-05, .164292D-05, .945841D-06, - + .490379D-06, .217434D-06, .749383D-07, .165957D-07, - + .144579D-08, .000000D+00, .159314D+05, .255729D+05, - + .205063D+05, .164437D+05, .131860D+05, .105739D+05, - + .847935D+04, .679981D+04, .545304D+04, .437310D+04, - + .350712D+04, .281271D+04, .225587D+04, .180933D+04, - + .145126D+04, .116410D+04, .933829D+03, .749160D+03, - + .601062D+03, .482289D+03, .387033D+03, .310635D+03, - + .249360D+03, .200211D+03, .160788D+03, .129163D+03 / - DATA (UPDI(I),I=3849,3900) / - + .103793D+03, .831815D+02, .669076D+02, .538473D+02, - + .433647D+02, .349497D+02, .281933D+02, .227819D+02, - + .184232D+02, .149219D+02, .121076D+02, .984390D+01, - + .802104D+01, .655053D+01, .536388D+01, .440259D+01, - + .362216D+01, .298658D+01, .246723D+01, .204134D+01, - + .169200D+01, .140161D+01, .116235D+01, .962218D+00, - + .796092D+00, .657399D+00, .541495D+00, .444611D+00, - + .363671D+00, .296145D+00, .239937D+00, .193295D+00, - + .154741D+00, .123021D+00, .970659D-01, .759569D-01, - + .589071D-01, .452967D-01, .344098D-01, .258407D-01, - + .191645D-01, .140207D-01, .101059D-01, .716643D-02, - + .499168D-02, .340885D-02, .227688D-02, .148298D-02, - + .943207D-03, .579943D-03, .344349D-03, .196419D-03 / - DATA (UPDI(I),I=3901,3952) / - + .106940D-03, .551253D-04, .266250D-04, .119026D-04, - + .480696D-05, .172203D-05, .524804D-06, .128280D-06, - + .227838D-07, .244308D-08, .104331D-09, .468971D-12, - + .000000D+00, .898777D+05, .700923D+05, .540223D+05, - + .416679D+05, .321649D+05, .248479D+05, .192115D+05, - + .148652D+05, .115121D+05, .892249D+04, .692155D+04, - + .537371D+04, .417582D+04, .324766D+04, .252816D+04, - + .196972D+04, .153611D+04, .119898D+04, .936753D+03, - + .732522D+03, .573402D+03, .449256D+03, .352358D+03, - + .276623D+03, .217403D+03, .171041D+03, .134736D+03, - + .105894D+03, .836257D+02, .661208D+02, .523592D+02, - + .415212D+02, .329830D+02, .262632D+02, .209443D+02, - + .167389D+02, .134120D+02, .107737D+02, .867938D+01 / - DATA (UPDI(I),I=3953,4004) / - + .701139D+01, .568263D+01, .461850D+01, .376443D+01, - + .307605D+01, .251945D+01, .206726D+01, .169995D+01, - + .139721D+01, .115010D+01, .945099D+00, .776388D+00, - + .636664D+00, .520866D+00, .424830D+00, .345237D+00, - + .279340D+00, .224905D+00, .180068D+00, .143285D+00, - + .113237D+00, .888269D-01, .691153D-01, .532994D-01, - + .407609D-01, .307958D-01, .230018D-01, .169675D-01, - + .123468D-01, .885164D-02, .624240D-02, .432322D-02, - + .293398D-02, .194643D-02, .125704D-02, .791215D-03, - + .479416D-03, .278517D-03, .153385D-03, .785232D-04, - + .360060D-04, .133478D-04, .246171D-05, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=4005,4056) / - + .159898D+06, .123467D+06, .940674D+05, .716977D+05, - + .546765D+05, .417139D+05, .318427D+05, .243189D+05, - + .185844D+05, .142096D+05, .108719D+05, .832300D+04, - + .637638D+04, .488812D+04, .375022D+04, .287919D+04, - + .221240D+04, .170130D+04, .130952D+04, .100878D+04, - + .777932D+03, .600456D+03, .463995D+03, .358911D+03, - + .277967D+03, .215534D+03, .167379D+03, .129681D+03, - + .101002D+03, .787808D+02, .615623D+02, .481900D+02, - + .378013D+02, .297341D+02, .234336D+02, .185149D+02, - + .146727D+02, .116617D+02, .929964D+01, .743899D+01, - + .597287D+01, .481062D+01, .388709D+01, .314969D+01, - + .255901D+01, .208328D+01, .170023D+01, .138708D+01, - + .113363D+01, .925006D+00, .754686D+00, .614711D+00 / - DATA (UPDI(I),I=4057,4108) / - + .499603D+00, .404859D+00, .326928D+00, .262879D+00, - + .210356D+00, .167404D+00, .132420D+00, .104042D+00, - + .811489D-01, .627903D-01, .481569D-01, .366336D-01, - + .275345D-01, .204632D-01, .150231D-01, .108834D-01, - + .777132D-02, .546171D-02, .377276D-02, .255682D-02, - + .169693D-02, .109913D-02, .696755D-03, .427910D-03, - + .254724D-03, .146354D-03, .808804D-04, .427737D-04, - + .215789D-04, .103497D-04, .470181D-05, .203265D-05, - + .844041D-06, .336211D-06, .128765D-06, .448955D-07, - + .120139D-07, .809615D-09, .000000D+00, .244176D+06, - + .187513D+06, .141942D+06, .107463D+06, .813840D+05, - + .616438D+05, .467075D+05, .353976D+05, .268366D+05, - + .203513D+05, .154400D+05, .117176D+05, .889704D+04 / - DATA (UPDI(I),I=4109,4160) / - + .675796D+04, .513614D+04, .390526D+04, .297135D+04, - + .226195D+04, .172323D+04, .131364D+04, .100230D+04, - + .765320D+03, .584964D+03, .447509D+03, .342749D+03, - + .262805D+03, .201816D+03, .154593D+03, .119065D+03, - + .918402D+02, .709795D+02, .549575D+02, .426478D+02, - + .331936D+02, .258902D+02, .202495D+02, .158898D+02, - + .125082D+02, .988227D+01, .783393D+01, .623539D+01, - + .497976D+01, .399098D+01, .320832D+01, .258670D+01, - + .209011D+01, .169350D+01, .137176D+01, .111341D+01, - + .902341D+00, .731325D+00, .591811D+00, .477926D+00, - + .384866D+00, .308871D+00, .246852D+00, .196350D+00, - + .155338D+00, .122163D+00, .954348D-01, .740180D-01, - + .569579D-01, .434465D-01, .328758D-01, .245816D-01 / - DATA (UPDI(I),I=4161,4212) / - + .181762D-01, .132792D-01, .957555D-02, .680818D-02, - + .476648D-02, .328204D-02, .221924D-02, .147162D-02, - + .954227D-03, .607389D-03, .376275D-03, .227567D-03, - + .134289D-03, .775492D-04, .439698D-04, .247364D-04, - + .139372D-04, .794774D-05, .459822D-05, .267007D-05, - + .149842D-05, .773927D-06, .337298D-06, .998305D-07, - + .762443D-08, .000000D+00, .250163D+06, .264281D+06, - + .199109D+06, .150005D+06, .113025D+06, .851586D+05, - + .641729D+05, .483587D+05, .364487D+05, .274731D+05, - + .207127D+05, .156172D+05, .117788D+05, .888513D+04, - + .670481D+04, .506062D+04, .382137D+04, .288646D+04, - + .218151D+04, .164940D+04, .124796D+04, .944740D+03, - + .715798D+03, .542723D+03, .411911D+03, .312930D+03 / - DATA (UPDI(I),I=4213,4264) / - + .238077D+03, .180633D+03, .137805D+03, .105284D+03, - + .805954D+02, .618097D+02, .475112D+02, .366325D+02, - + .283074D+02, .219376D+02, .170599D+02, .133111D+02, - + .104262D+02, .819574D+01, .647014D+01, .512617D+01, - + .407653D+01, .325240D+01, .260302D+01, .208823D+01, - + .168020D+01, .135164D+01, .108977D+01, .877372D+00, - + .706512D+00, .568115D+00, .455938D+00, .364913D+00, - + .291093D+00, .231262D+00, .182870D+00, .143837D+00, - + .112473D+00, .873704D-01, .673879D-01, .515735D-01, - + .391273D-01, .294514D-01, .219065D-01, .161158D-01, - + .117157D-01, .840826D-02, .595168D-02, .414987D-02, - + .284738D-02, .192003D-02, .127117D-02, .824252D-03, - + .525905D-03, .327733D-03, .200426D-03, .120478D-03 / - DATA (UPDI(I),I=4265,4316) / - + .715907D-04, .423002D-04, .251423D-04, .151261D-04, - + .923522D-05, .567220D-05, .343497D-05, .197170D-05, - + .102267D-05, .439927D-06, .126555D-06, .982640D-08, - + .000000D+00, .485755D+06, .370139D+06, .277616D+06, - + .208187D+06, .156115D+06, .117045D+06, .877509D+05, - + .657778D+05, .493067D+05, .369552D+05, .276987D+05, - + .207588D+05, .155589D+05, .116611D+05, .874098D+04, - + .655223D+04, .491264D+04, .368369D+04, .276307D+04, - + .207296D+04, .155593D+04, .116827D+04, .877727D+03, - + .659786D+03, .496355D+03, .373697D+03, .281712D+03, - + .211727D+03, .160004D+03, .121081D+03, .917959D+02, - + .697200D+02, .530715D+02, .405251D+02, .310132D+02, - + .238052D+02, .183371D+02, .141745D+02, .110007D+02 / - DATA (UPDI(I),I=4317,4368) / - + .856976D+01, .670594D+01, .526740D+01, .415363D+01, - + .328677D+01, .260944D+01, .207698D+01, .165838D+01, - + .132403D+01, .105967D+01, .846962D+00, .677180D+00, - + .540732D+00, .430981D+00, .342609D+00, .271478D+00, - + .214261D+00, .168326D+00, .131547D+00, .102210D+00, - + .788990D-01, .604751D-01, .459978D-01, .346819D-01, - + .259456D-01, .191795D-01, .140220D-01, .101295D-01, - + .722331D-02, .507919D-02, .351717D-02, .239557D-02, - + .160247D-02, .105142D-02, .674606D-03, .424982D-03, - + .260584D-03, .155982D-03, .910869D-04, .520123D-04, - + .291210D-04, .161266D-04, .890694D-05, .495121D-05, - + .277711D-05, .155817D-05, .844000D-06, .421544D-06, - + .177282D-06, .505260D-07, .389019D-08, .000000D+00 / - DATA (UPDI(I),I=4369,4420) / - + .658013D+06, .499680D+06, .373256D+06, .278742D+06, - + .208123D+06, .155347D+06, .115935D+06, .864958D+05, - + .645221D+05, .481174D+05, .358788D+05, .267465D+05, - + .199367D+05, .148577D+05, .110721D+05, .824971D+04, - + .614697D+04, .457980D+04, .341259D+04, .254289D+04, - + .189533D+04, .141289D+04, .105367D+04, .786045D+03, - + .586743D+03, .438229D+03, .327671D+03, .244197D+03, - + .182980D+03, .137280D+03, .103170D+03, .776702D+02, - + .585984D+02, .443484D+02, .336364D+02, .255893D+02, - + .195370D+02, .149699D+02, .115173D+02, .889570D+01, - + .690255D+01, .537716D+01, .420583D+01, .330167D+01, - + .260084D+01, .205430D+01, .162799D+01, .129014D+01, - + .102507D+01, .813441D+00, .645800D+00, .512102D+00 / - DATA (UPDI(I),I=4421,4472) / - + .405368D+00, .320074D+00, .251929D+00, .197521D+00, - + .154160D+00, .119699D+00, .924088D-01, .708819D-01, - + .539893D-01, .408102D-01, .305804D-01, .227378D-01, - + .167060D-01, .121403D-01, .871831D-02, .618104D-02, - + .432188D-02, .297669D-02, .201728D-02, .134338D-02, - + .878175D-03, .562064D-03, .353844D-03, .217418D-03, - + .130941D-03, .773983D-04, .451075D-04, .260628D-04, - + .150792D-04, .879989D-05, .519270D-05, .307861D-05, - + .179847D-05, .995730D-06, .497335D-06, .204212D-06, - + .554802D-07, .438146D-08, .000000D+00, .868058D+06, - + .657041D+06, .488912D+06, .363669D+06, .270433D+06, - + .201016D+06, .149375D+06, .110955D+06, .823938D+05, - + .611599D+05, .453864D+05, .336679D+05, .249692D+05 / - DATA (UPDI(I),I=4473,4524) / - + .185114D+05, .137210D+05, .101672D+05, .753277D+04, - + .557957D+04, .413260D+04, .306040D+04, .226655D+04, - + .167857D+04, .124340D+04, .921181D+03, .682744D+03, - + .506219D+03, .375692D+03, .277825D+03, .206560D+03, - + .153747D+03, .114616D+03, .855846D+02, .640367D+02, - + .480629D+02, .361490D+02, .272710D+02, .206470D+02, - + .156890D+02, .119710D+02, .917068D+01, .705855D+01, - + .545499D+01, .423325D+01, .329759D+01, .257790D+01, - + .202095D+01, .158980D+01, .125071D+01, .986659D+00, - + .777420D+00, .612906D+00, .482681D+00, .379485D+00, - + .297627D+00, .232705D+00, .181249D+00, .140539D+00, - + .108419D+00, .831648D-01, .633869D-01, .479770D-01, - + .360399D-01, .268382D-01, .198330D-01, .144826D-01 / - DATA (UPDI(I),I=4525,4576) / - + .104610D-01, .746762D-02, .526352D-02, .365956D-02, - + .250697D-02, .169046D-02, .112077D-02, .730049D-03, - + .466208D-03, .293390D-03, .180721D-03, .109550D-03, - + .655470D-04, .389462D-04, .231352D-04, .138638D-04, - + .841551D-05, .515443D-05, .314800D-05, .187152D-05, - + .104212D-05, .517025D-06, .208258D-06, .549409D-07, - + .440712D-08, .000000D+00, .112232D+07, .846807D+06, - + .627748D+06, .465146D+06, .344533D+06, .255065D+06, - + .188758D+06, .139616D+06, .103229D+06, .762855D+05, - + .563534D+05, .416084D+05, .307103D+05, .226558D+05, - + .167083D+05, .123165D+05, .907662D+04, .668634D+04, - + .492451D+04, .362580D+04, .266935D+04, .196483D+04, - + .144632D+04, .106463D+04, .783853D+03, .577241D+03 / - DATA (UPDI(I),I=4577,4628) / - + .425429D+03, .312341D+03, .230538D+03, .170325D+03, - + .126018D+03, .933797D+02, .693269D+02, .516272D+02, - + .385229D+02, .288316D+02, .216549D+02, .163245D+02, - + .123575D+02, .939256D+01, .717313D+01, .550094D+01, - + .423643D+01, .327531D+01, .254150D+01, .197783D+01, - + .154468D+01, .120652D+01, .945105D+00, .739480D+00, - + .578980D+00, .452862D+00, .353643D+00, .275512D+00, - + .213990D+00, .165582D+00, .127557D+00, .977711D-01, - + .745178D-01, .564365D-01, .424478D-01, .316877D-01, - + .234506D-01, .172230D-01, .124997D-01, .897403D-02, - + .636802D-02, .446239D-02, .308514D-02, .210221D-02, - + .141059D-02, .931230D-03, .604571D-03, .385336D-03, - + .242508D-03, .149821D-03, .914428D-04, .553731D-04 / - DATA (UPDI(I),I=4629,4680) / - + .334931D-04, .203722D-04, .125445D-04, .782422D-05, - + .489926D-05, .303462D-05, .181167D-05, .100414D-05, - + .491356D-06, .193330D-06, .495004D-07, .402799D-08, - + .000000D+00, .142763D+07, .107380D+07, .793060D+06, - + .585413D+06, .431939D+06, .318511D+06, .234760D+06, - + .172927D+06, .127319D+06, .936834D+05, .689006D+05, - + .506433D+05, .372063D+05, .273183D+05, .200492D+05, - + .147059D+05, .107823D+05, .790141D+04, .578826D+04, - + .423835D+04, .310272D+04, .227061D+04, .166150D+04, - + .121557D+04, .889398D+03, .650762D+03, .476467D+03, - + .347432D+03, .254680D+03, .186847D+03, .137256D+03, - + .100970D+03, .744100D+02, .550010D+02, .407315D+02, - + .302539D+02, .225505D+02, .168704D+02, .126737D+02 / - DATA (UPDI(I),I=4681,4732) / - + .956012D+01, .724624D+01, .551559D+01, .421632D+01, - + .323592D+01, .249275D+01, .192598D+01, .149355D+01, - + .115837D+01, .901100D+00, .700188D+00, .544485D+00, - + .423013D+00, .328128D+00, .253942D+00, .195941D+00, - + .150629D+00, .115288D+00, .878001D-01, .664917D-01, - + .500396D-01, .374002D-01, .277458D-01, .204058D-01, - + .148948D-01, .107438D-01, .766684D-02, .540820D-02, - + .376794D-02, .259058D-02, .175602D-02, .117270D-02, - + .771063D-03, .499092D-03, .317632D-03, .200016D-03, - + .124005D-03, .762394D-04, .467173D-04, .287267D-04, - + .178295D-04, .112129D-04, .712598D-05, .451934D-05, - + .281436D-05, .167556D-05, .919628D-06, .442272D-06, - + .169622D-06, .421341D-07, .347693D-08, .000000D+00 / - DATA (UPDI(I),I=4733,4784) / - + .179106D+07, .134298D+07, .988203D+06, .726725D+06, - + .534153D+06, .392349D+06, .288034D+06, .211310D+06, - + .154936D+06, .113523D+06, .831325D+05, .608353D+05, - + .444931D+05, .325185D+05, .237535D+05, .173393D+05, - + .126506D+05, .922381D+04, .672215D+04, .489618D+04, - + .356490D+04, .259437D+04, .188761D+04, .137295D+04, - + .998557D+03, .726154D+03, .528336D+03, .382754D+03, - + .278737D+03, .203133D+03, .148204D+03, .108270D+03, - + .792287D+02, .581471D+02, .427511D+02, .315236D+02, - + .233252D+02, .173224D+02, .129180D+02, .967318D+01, - + .727856D+01, .550009D+01, .417420D+01, .318074D+01, - + .243288D+01, .186651D+01, .143738D+01, .110708D+01, - + .855317D+00, .660089D+00, .509848D+00, .393461D+00 / - DATA (UPDI(I),I=4785,4836) / - + .303184D+00, .233097D+00, .178684D+00, .136472D+00, - + .103781D+00, .785324D-01, .590957D-01, .441934D-01, - + .328240D-01, .241996D-01, .176875D-01, .128316D-01, - + .919918D-02, .652523D-02, .457589D-02, .316992D-02, - + .216757D-02, .146184D-02, .971832D-03, .636601D-03, - + .410994D-03, .261308D-03, .164743D-03, .102559D-03, - + .635409D-04, .393918D-04, .245903D-04, .155252D-04, - + .992298D-05, .638619D-05, .407668D-05, .253853D-05, - + .150101D-05, .813354D-06, .383692D-06, .143301D-06, - + .345454D-07, .289034D-08, .000000D+00, .221982D+07, - + .165936D+07, .121651D+07, .891291D+06, .652624D+06, - + .477521D+06, .349182D+06, .255146D+06, .186315D+06, - + .135949D+06, .991330D+05, .722314D+05, .525953D+05 / - DATA (UPDI(I),I=4837,4888) / - + .382675D+05, .278247D+05, .202160D+05, .146788D+05, - + .106503D+05, .772289D+04, .559632D+04, .405333D+04, - + .293403D+04, .212304D+04, .153552D+04, .111038D+04, - + .802713D+03, .580525D+03, .417941D+03, .302452D+03, - + .219006D+03, .158742D+03, .115199D+03, .837302D+02, - + .610318D+02, .445612D+02, .326290D+02, .239733D+02, - + .176780D+02, .130898D+02, .973250D+01, .727145D+01, - + .545602D+01, .411171D+01, .311127D+01, .236324D+01, - + .180057D+01, .137714D+01, .105345D+01, .808400D+00, - + .619686D+00, .475455D+00, .364497D+00, .279023D+00, - + .213123D+00, .162314D+00, .123172D+00, .930682D-01, - + .699783D-01, .523261D-01, .388854D-01, .287016D-01, - + .210295D-01, .152757D-01, .110144D-01, .784867D-02 / - DATA (UPDI(I),I=4889,4940) / - + .553420D-02, .385844D-02, .265798D-02, .180789D-02, - + .121333D-02, .803186D-03, .524349D-03, .337804D-03, - + .214684D-03, .135594D-03, .848122D-04, .529672D-04, - + .332088D-04, .210146D-04, .134574D-04, .870596D-05, - + .564751D-05, .361274D-05, .224128D-05, .131270D-05, - + .700943D-06, .323962D-06, .117778D-06, .275742D-07, - + .233874D-08, .000000D+00, .272109D+07, .202785D+07, - + .148122D+07, .108121D+07, .788705D+06, .574883D+06, - + .418741D+06, .304762D+06, .221650D+06, .161070D+06, - + .116962D+06, .848601D+05, .615236D+05, .445664D+05, - + .322590D+05, .233305D+05, .168609D+05, .121751D+05, - + .878560D+04, .633472D+04, .456480D+04, .328709D+04, - + .236587D+04, .170186D+04, .122383D+04, .879683D+03 / - DATA (UPDI(I),I=4941,4992) / - + .632494D+03, .452619D+03, .325566D+03, .234290D+03, - + .168753D+03, .121682D+03, .878672D+02, .636266D+02, - + .461457D+02, .335616D+02, .244909D+02, .179364D+02, - + .131901D+02, .973973D+01, .722688D+01, .538539D+01, - + .403070D+01, .302918D+01, .228526D+01, .172937D+01, - + .131380D+01, .998251D+00, .760949D+00, .579439D+00, - + .441649D+00, .336367D+00, .255815D+00, .194134D+00, - + .146901D+00, .110764D+00, .831604D-01, .621337D-01, - + .461684D-01, .340954D-01, .250100D-01, .182120D-01, - + .131481D-01, .942300D-02, .667445D-02, .467863D-02, - + .324336D-02, .222207D-02, .150366D-02, .100447D-02, - + .662297D-03, .431080D-03, .277266D-03, .176240D-03, - + .111584D-03, .701599D-04, .441750D-04, .279949D-04 / - DATA (UPDI(I),I=4993,5044) / - + .179298D-04, .116148D-04, .757903D-05, .493742D-05, - + .315483D-05, .194488D-05, .112624D-05, .591858D-06, - + .267800D-06, .947646D-07, .215659D-07, .185393D-08, - + .000000D+00, .330178D+07, .245314D+07, .178535D+07, - + .129841D+07, .943603D+06, .685178D+06, .497155D+06, - + .360417D+06, .261084D+06, .188959D+06, .136649D+06, - + .987299D+05, .712744D+05, .514062D+05, .370457D+05, - + .266719D+05, .191875D+05, .137905D+05, .990385D+04, - + .710634D+04, .509544D+04, .365063D+04, .261395D+04, - + .187039D+04, .133777D+04, .956274D+03, .683696D+03, - + .486413D+03, .347829D+03, .248821D+03, .178131D+03, - + .127652D+03, .915996D+02, .659085D+02, .474924D+02, - + .343162D+02, .248768D+02, .180985D+02, .132208D+02 / - DATA (UPDI(I),I=5045,5096) / - + .969732D+01, .714732D+01, .529050D+01, .393321D+01, - + .293620D+01, .220035D+01, .165404D+01, .124829D+01, - + .942192D+00, .713507D+00, .539749D+00, .408721D+00, - + .309274D+00, .233694D+00, .176210D+00, .132487D+00, - + .992614D-01, .740543D-01, .549827D-01, .405998D-01, - + .297970D-01, .217224D-01, .157213D-01, .112810D-01, - + .803650D-02, .565868D-02, .394370D-02, .271863D-02, - + .185269D-02, .124753D-02, .829726D-03, .545098D-03, - + .353891D-03, .227368D-03, .144632D-03, .918476D-04, - + .580763D-04, .368653D-04, .235967D-04, .152709D-04, - + .998190D-05, .655052D-05, .427301D-05, .272036D-05, - + .166330D-05, .951057D-06, .491442D-06, .217590D-06, - + .749524D-07, .165963D-07, .144580D-08, .000000D+00 / - DATA (UPDI(I),I=5097,5148) / - + .158812D+05, .255495D+05, .204854D+05, .164249D+05, - + .131693D+05, .105589D+05, .846589D+04, .678774D+04, - + .544222D+04, .436341D+04, .349844D+04, .280492D+04, - + .224889D+04, .180308D+04, .144564D+04, .115907D+04, - + .929313D+03, .745106D+03, .597422D+03, .479020D+03, - + .384095D+03, .307992D+03, .246980D+03, .198066D+03, - + .158851D+03, .127413D+03, .102207D+03, .817435D+02, - + .655981D+02, .526511D+02, .422679D+02, .339400D+02, - + .272595D+02, .219140D+02, .176125D+02, .141609D+02, - + .113898D+02, .916391D+01, .737463D+01, .593454D+01, - + .477611D+01, .384182D+01, .308793D+01, .247909D+01, - + .198710D+01, .158946D+01, .126922D+01, .100896D+01, - + .800277D+00, .631210D+00, .495948D+00, .387625D+00 / - DATA (UPDI(I),I=5149,5200) / - + .301203D+00, .232551D+00, .178285D+00, .135634D+00, - + .102323D+00, .764916D-01, .566156D-01, .414531D-01, - + .299945D-01, .214236D-01, .150845D-01, .104718D-01, - + .712630D-02, .475365D-02, .309944D-02, .196816D-02, - + .121137D-02, .717856D-03, .405555D-03, .214973D-03, - + .103772D-03, .426136D-04, .119447D-04, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .898487D+05, - + .700663D+05, .539990D+05, .416470D+05, .321462D+05, - + .248312D+05, .191965D+05, .148517D+05, .115001D+05, - + .891169D+04, .691186D+04, .536503D+04, .416804D+04 / - DATA (UPDI(I),I=5201,5252) / - + .324068D+04, .252190D+04, .196411D+04, .153107D+04, - + .119446D+04, .932696D+03, .728878D+03, .570128D+03, - + .446311D+03, .349707D+03, .274234D+03, .215248D+03, - + .169093D+03, .132973D+03, .104298D+03, .821735D+02, - + .647965D+02, .511474D+02, .404085D+02, .319571D+02, - + .253132D+02, .200609D+02, .159138D+02, .126383D+02, - + .100455D+02, .799218D+01, .636162D+01, .506771D+01, - + .403687D+01, .321521D+01, .255902D+01, .203473D+01, - + .161519D+01, .128077D+01, .101137D+01, .797398D+00, - + .625424D+00, .488950D+00, .380432D+00, .294469D+00, - + .226604D+00, .173284D+00, .131585D+00, .991719D-01, - + .741297D-01, .549300D-01, .403136D-01, .292871D-01, - + .210411D-01, .149362D-01, .104833D-01, .723894D-02 / - DATA (UPDI(I),I=5253,5304) / - + .492031D-02, .328774D-02, .215497D-02, .138300D-02, - + .865794D-03, .526987D-03, .309459D-03, .173853D-03, - + .910805D-04, .431990D-04, .159574D-04, .154985D-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, .159866D+06, .123439D+06, - + .940417D+05, .716747D+05, .546558D+05, .416954D+05, - + .318261D+05, .243041D+05, .185711D+05, .141976D+05, - + .108612D+05, .831343D+04, .636780D+04, .488042D+04, - + .374333D+04, .287301D+04, .220685D+04, .169632D+04, - + .130505D+04, .100477D+04, .774326D+03, .597215D+03, - + .461078D+03, .356284D+03, .275599D+03, .213396D+03 / - DATA (UPDI(I),I=5305,5356) / - + .165444D+03, .127931D+03, .994130D+02, .773337D+02, - + .602408D+02, .469796D+02, .366885D+02, .287072D+02, - + .224825D+02, .176309D+02, .138480D+02, .108902D+02, - + .857613D+01, .675966D+01, .533471D+01, .421169D+01, - + .332604D+01, .262584D+01, .207195D+01, .163279D+01, - + .128595D+01, .100887D+01, .790682D+00, .616659D+00, - + .479601D+00, .371376D+00, .286226D+00, .219418D+00, - + .167241D+00, .126648D+00, .952505D-01, .710976D-01, - + .526542D-01, .386568D-01, .281266D-01, .202652D-01, - + .144503D-01, .102083D-01, .711337D-02, .489407D-02, - + .332420D-02, .222682D-02, .147166D-02, .958369D-03, - + .615871D-03, .390190D-03, .244424D-03, .151028D-03, - + .932775D-04, .570445D-04, .349850D-04, .214321D-04 / - DATA (UPDI(I),I=5357,5408) / - + .132160D-04, .811407D-05, .498428D-05, .300309D-05, - + .177250D-05, .997783D-06, .534136D-06, .261808D-06, - + .115832D-06, .435319D-07, .119557D-07, .809320D-09, - + .000000D+00, .244141D+06, .187481D+06, .141914D+06, - + .107438D+06, .813614D+05, .616235D+05, .466893D+05, - + .353813D+05, .268220D+05, .203382D+05, .154283D+05, - + .117071D+05, .888765D+04, .674954D+04, .512859D+04, - + .389850D+04, .296528D+04, .225651D+04, .171835D+04, - + .130926D+04, .998363D+03, .761783D+03, .581783D+03, - + .444646D+03, .340169D+03, .260477D+03, .199713D+03, - + .152693D+03, .117342D+03, .902738D+02, .695519D+02, - + .536531D+02, .414520D+02, .320937D+02, .248754D+02, - + .193103D+02, .150180D+02, .116970D+02, .912613D+01 / - DATA (UPDI(I),I=5409,5460) / - + .712854D+01, .557725D+01, .436652D+01, .342078D+01, - + .267996D+01, .209923D+01, .164274D+01, .128525D+01, - + .100193D+01, .780609D+00, .605377D+00, .468358D+00, - + .360892D+00, .276890D+00, .211385D+00, .160522D+00, - + .121162D+00, .908699D-01, .676739D-01, .500361D-01, - + .366984D-01, .266972D-01, .192495D-01, .137509D-01, - + .974397D-02, .682127D-02, .472334D-02, .323641D-02, - + .219321D-02, .147159D-02, .977257D-03, .644033D-03, - + .421397D-03, .274915D-03, .178853D-03, .117577D-03, - + .776192D-04, .520628D-04, .353617D-04, .244472D-04, - + .170239D-04, .119664D-04, .834338D-05, .574353D-05, - + .382903D-05, .244288D-05, .144464D-05, .764723D-06, - + .336340D-06, .997899D-07, .762422D-08, .000000D+00 / - DATA (UPDI(I),I=5461,5512) / - + .250099D+06, .264247D+06, .199078D+06, .149977D+06, - + .113000D+06, .851366D+05, .641531D+05, .483410D+05, - + .364328D+05, .274589D+05, .206999D+05, .156058D+05, - + .117686D+05, .887598D+04, .669661D+04, .505327D+04, - + .381478D+04, .288056D+04, .217621D+04, .164464D+04, - + .124369D+04, .940907D+03, .712352D+03, .539624D+03, - + .409121D+03, .310414D+03, .235807D+03, .178584D+03, - + .135950D+03, .103601D+03, .790644D+02, .604141D+02, - + .462353D+02, .354628D+02, .272321D+02, .209466D+02, - + .161442D+02, .124635D+02, .964054D+01, .746726D+01, - + .579485D+01, .450117D+01, .349947D+01, .272153D+01, - + .211680D+01, .164528D+01, .127896D+01, .990834D+00, - + .767441D+00, .591826D+00, .455451D+00, .349195D+00 / - DATA (UPDI(I),I=5513,5564) / - + .266664D+00, .202693D+00, .153304D+00, .115291D+00, - + .861827D-01, .639995D-01, .472060D-01, .345572D-01, - + .251069D-01, .180914D-01, .129249D-01, .916746D-02, - + .643039D-02, .446677D-02, .307473D-02, .209682D-02, - + .141869D-02, .952308D-03, .636144D-03, .423272D-03, - + .281755D-03, .187775D-03, .126777D-03, .862226D-04, - + .596301D-04, .417691D-04, .297091D-04, .212410D-04, - + .152602D-04, .108415D-04, .756595D-05, .509657D-05, - + .326718D-05, .193251D-05, .101606D-05, .439249D-06, - + .126527D-06, .982624D-08, .000000D+00, .485713D+06, - + .370101D+06, .277582D+06, .208157D+06, .156088D+06, - + .117021D+06, .877292D+05, .657584D+05, .492893D+05, - + .369396D+05, .276847D+05, .207463D+05, .155478D+05 / - DATA (UPDI(I),I=5565,5616) / - + .116511D+05, .873201D+04, .654420D+04, .490544D+04, - + .367724D+04, .275729D+04, .206777D+04, .155128D+04, - + .116409D+04, .873976D+03, .656416D+03, .493324D+03, - + .370968D+03, .279252D+03, .209511D+03, .158000D+03, - + .119267D+03, .901498D+02, .682236D+02, .517078D+02, - + .392793D+02, .298726D+02, .227587D+02, .173752D+02, - + .132891D+02, .101851D+02, .781843D+01, .601433D+01, - + .463197D+01, .357139D+01, .275529D+01, .212651D+01, - + .164054D+01, .126617D+01, .974169D+00, .749587D+00, - + .574419D+00, .439406D+00, .334981D+00, .254431D+00, - + .192416D+00, .144838D+00, .108442D+00, .807299D-01, - + .597260D-01, .439044D-01, .320442D-01, .232202D-01, - + .166955D-01, .119058D-01, .843240D-02, .590774D-02 / - DATA (UPDI(I),I=5617,5668) / - + .409981D-02, .281943D-02, .192048D-02, .129687D-02, - + .867719D-03, .576348D-03, .379902D-03, .249129D-03, - + .162386D-03, .106229D-03, .692338D-04, .453425D-04, - + .297602D-04, .196686D-04, .130075D-04, .863933D-05, - + .569371D-05, .371304D-05, .235502D-05, .143664D-05, - + .815972D-06, .416879D-06, .176808D-06, .505061D-07, - + .389007D-08, .000000D+00, .657967D+06, .499639D+06, - + .373220D+06, .278709D+06, .208094D+06, .155321D+06, - + .115911D+06, .864746D+05, .645032D+05, .481004D+05, - + .358636D+05, .267329D+05, .199246D+05, .148468D+05, - + .110623D+05, .824097D+04, .613914D+04, .457278D+04, - + .340630D+04, .253726D+04, .189028D+04, .140836D+04, - + .104961D+04, .782397D+03, .583466D+03, .435282D+03 / - DATA (UPDI(I),I=5669,5720) / - + .325019D+03, .241811D+03, .180826D+03, .135334D+03, - + .101409D+03, .760740D+02, .571483D+02, .430285D+02, - + .324328D+02, .244901D+02, .185317D+02, .140496D+02, - + .106746D+02, .812439D+01, .619735D+01, .473385D+01, - + .362071D+01, .277160D+01, .212290D+01, .162573D+01, - + .124585D+01, .951932D+00, .727638D+00, .554035D+00, - + .421214D+00, .319226D+00, .241100D+00, .181357D+00, - + .135815D+00, .101194D+00, .749900D-01, .552430D-01, - + .404476D-01, .294144D-01, .212448D-01, .152316D-01, - + .108349D-01, .765864D-02, .535749D-02, .371464D-02, - + .255398D-02, .174075D-02, .117729D-02, .789859D-03, - + .526747D-03, .349207D-03, .230734D-03, .151971D-03, - + .100704D-03, .667344D-04, .445766D-04, .299632D-04 / - DATA (UPDI(I),I=5721,5772) / - + .203296D-04, .138426D-04, .946194D-05, .641642D-05, - + .428553D-05, .277337D-05, .171182D-05, .976038D-06, - + .494108D-06, .203889D-06, .554667D-07, .438137D-08, - + .000000D+00, .868008D+06, .656996D+06, .488871D+06, - + .363633D+06, .270401D+06, .200987D+06, .149349D+06, - + .110932D+06, .823732D+05, .611414D+05, .453698D+05, - + .336531D+05, .249560D+05, .184995D+05, .137104D+05, - + .101577D+05, .752428D+04, .557196D+04, .412579D+04, - + .305430D+04, .226108D+04, .167368D+04, .123901D+04, - + .917247D+03, .679214D+03, .503049D+03, .372844D+03, - + .275267D+03, .204257D+03, .151670D+03, .112741D+03, - + .838897D+02, .625019D+02, .466709D+02, .348848D+02, - + .261217D+02, .196010D+02, .147367D+02, .111041D+02 / - DATA (UPDI(I),I=5773,5824) / - + .838220D+01, .634245D+01, .480629D+01, .364748D+01, - + .277086D+01, .210656D+01, .160153D+01, .121869D+01, - + .924791D+00, .702217D+00, .531239D+00, .401376D+00, - + .302372D+00, .227052D+00, .169843D+00, .126514D+00, - + .937833D-01, .691591D-01, .507122D-01, .369676D-01, - + .267737D-01, .192639D-01, .137634D-01, .975948D-02, - + .687920D-02, .480067D-02, .332229D-02, .228120D-02, - + .155389D-02, .105110D-02, .706077D-03, .472014D-03, - + .314172D-03, .208773D-03, .138643D-03, .928298D-04, - + .623436D-04, .422966D-04, .289468D-04, .200114D-04, - + .138911D-04, .966042D-05, .665224D-05, .449158D-05, - + .292788D-05, .180991D-05, .102833D-05, .514799D-06, - + .208038D-06, .549318D-07, .440706D-08, .000000D+00 / - DATA (UPDI(I),I=5825,5876) / - + .112227D+07, .846758D+06, .627704D+06, .465107D+06, - + .344498D+06, .255033D+06, .188730D+06, .139591D+06, - + .103206D+06, .762654D+05, .563355D+05, .415923D+05, - + .306960D+05, .226430D+05, .166968D+05, .123063D+05, - + .906744D+04, .667812D+04, .491716D+04, .361922D+04, - + .266346D+04, .195956D+04, .144160D+04, .106040D+04, - + .780065D+03, .573845D+03, .422381D+03, .309609D+03, - + .228083D+03, .168117D+03, .124030D+03, .915874D+02, - + .677093D+02, .501652D+02, .372006D+02, .276348D+02, - + .205711D+02, .153431D+02, .114693D+02, .858971D+01, - + .644876D+01, .484923D+01, .365214D+01, .275375D+01, - + .207826D+01, .156872D+01, .118542D+01, .893408D+00, - + .673903D+00, .506528D+00, .380311D+00, .284768D+00 / - DATA (UPDI(I),I=5877,5928) / - + .212577D+00, .158112D+00, .117128D+00, .863652D-01, - + .633637D-01, .462358D-01, .335467D-01, .241885D-01, - + .173308D-01, .123339D-01, .871396D-02, .612182D-02, - + .425938D-02, .294027D-02, .201486D-02, .137065D-02, - + .926623D-03, .622745D-03, .416979D-03, .278409D-03, - + .185907D-03, .124340D-03, .840024D-04, .570567D-04, - + .392048D-04, .272052D-04, .190608D-04, .133976D-04, - + .940740D-05, .652321D-05, .441620D-05, .287630D-05, - + .176799D-05, .994508D-06, .489825D-06, .193181D-06, - + .494943D-07, .402794D-08, .000000D+00, .142757D+07, - + .107375D+07, .793012D+06, .585371D+06, .431901D+06, - + .318477D+06, .234730D+06, .172900D+06, .127295D+06, - + .936616D+05, .688812D+05, .506259D+05, .371907D+05 / - DATA (UPDI(I),I=5929,5980) / - + .273044D+05, .200368D+05, .146949D+05, .107724D+05, - + .789255D+04, .578034D+04, .423127D+04, .309640D+04, - + .226496D+04, .165643D+04, .121104D+04, .885346D+03, - + .647135D+03, .473218D+03, .344525D+03, .252073D+03, - + .184507D+03, .135155D+03, .990816D+02, .727114D+02, - + .534716D+02, .393538D+02, .290126D+02, .214319D+02, - + .158629D+02, .117671D+02, .874570D+01, .651618D+01, - + .486321D+01, .363553D+01, .272122D+01, .203896D+01, - + .152820D+01, .114684D+01, .858477D+00, .643287D+00, - + .480392D+00, .358421D+00, .266738D+00, .197933D+00, - + .146369D+00, .107820D+00, .790694D-01, .577054D-01, - + .418934D-01, .302473D-01, .217076D-01, .154839D-01, - + .109732D-01, .772174D-02, .540480D-02, .374788D-02 / - DATA (UPDI(I),I=5981,6032) / - + .257968D-02, .176354D-02, .119762D-02, .808883D-03, - + .543671D-03, .364500D-03, .244053D-03, .163706D-03, - + .110216D-03, .750744D-04, .515050D-04, .357724D-04, - + .250973D-04, .177561D-04, .125818D-04, .887799D-05, - + .616872D-05, .416827D-05, .270080D-05, .164466D-05, - + .912913D-06, .441221D-06, .169521D-06, .421300D-07, - + .347690D-08, .000000D+00, .179099D+07, .134292D+07, - + .988151D+06, .726679D+06, .534112D+06, .392313D+06, - + .288001D+06, .211280D+06, .154910D+06, .113500D+06, - + .831115D+05, .608165D+05, .444764D+05, .325036D+05, - + .237401D+05, .173274D+05, .126399D+05, .921429D+04, - + .671364D+04, .488858D+04, .355811D+04, .258831D+04, - + .188220D+04, .136812D+04, .994236D+03, .722291D+03 / - DATA (UPDI(I),I=6033,6084) / - + .524883D+03, .379670D+03, .275978D+03, .200663D+03, - + .145992D+03, .106288D+03, .774514D+02, .565528D+02, - + .413209D+02, .302408D+02, .221749D+02, .162918D+02, - + .119960D+02, .884995D+01, .654534D+01, .484927D+01, - + .359884D+01, .267448D+01, .198978D+01, .148095D+01, - + .110381D+01, .820705D+00, .610947D+00, .453298D+00, - + .336079D+00, .248576D+00, .183350D+00, .134793D+00, - + .987264D-01, .719996D-01, .522631D-01, .377448D-01, - + .271145D-01, .193650D-01, .137488D-01, .970060D-02, - + .679766D-02, .473946D-02, .327477D-02, .224702D-02, - + .153217D-02, .103853D-02, .700683D-03, .470957D-03, - + .316144D-03, .212268D-03, .143029D-03, .969108D-04, - + .665227D-04, .460502D-04, .322782D-04, .228436D-04 / - DATA (UPDI(I),I=6085,6136) / - + .162743D-04, .115878D-04, .819007D-05, .568387D-05, - + .382227D-05, .245732D-05, .147922D-05, .808688D-06, - + .382972D-06, .143233D-06, .345426D-07, .289032D-08, - + .000000D+00, .221975D+07, .165930D+07, .121646D+07, - + .891241D+06, .652580D+06, .477481D+06, .349147D+06, - + .255114D+06, .186286D+06, .135923D+06, .991104D+05, - + .722112D+05, .525772D+05, .382514D+05, .278103D+05, - + .202032D+05, .146673D+05, .106401D+05, .771378D+04, - + .558819D+04, .404608D+04, .292756D+04, .211726D+04, - + .153037D+04, .110579D+04, .798612D+03, .576865D+03, - + .414680D+03, .299540D+03, .216406D+03, .156420D+03, - + .113125D+03, .818769D+02, .593755D+02, .430816D+02, - + .313079D+02, .227945D+02, .166275D+02, .121553D+02 / - DATA (UPDI(I),I=6137,6188) / - + .890320D+01, .653753D+01, .480892D+01, .354357D+01, - + .261490D+01, .193193D+01, .142801D+01, .105718D+01, - + .780787D+00, .577439D+00, .425681D+00, .313620D+00, - + .230539D+00, .169022D+00, .123529D+00, .899558D-01, - + .652356D-01, .470949D-01, .338321D-01, .241788D-01, - + .171829D-01, .121414D-01, .852769D-02, .594998D-02, - + .413179D-02, .284442D-02, .194550D-02, .132308D-02, - + .895106D-03, .603305D-03, .405555D-03, .272623D-03, - + .183588D-03, .124276D-03, .847331D-04, .585898D-04, - + .408874D-04, .288820D-04, .205780D-04, .147288D-04, - + .105117D-04, .742355D-05, .513373D-05, .342892D-05, - + .218337D-05, .129737D-05, .697709D-06, .323471D-06, - + .117732D-06, .275723D-07, .233872D-08, .000000D+00 / - DATA (UPDI(I),I=6189,6240) / - + .272101D+07, .202778D+07, .148116D+07, .108116D+07, - + .788657D+06, .574840D+06, .418703D+06, .304728D+06, - + .221620D+06, .161043D+06, .116937D+06, .848384D+05, - + .615042D+05, .445491D+05, .322436D+05, .233167D+05, - + .168486D+05, .121642D+05, .877586D+04, .632603D+04, - + .455706D+04, .328019D+04, .235972D+04, .169638D+04, - + .121895D+04, .875340D+03, .628626D+03, .449179D+03, - + .322503D+03, .231562D+03, .166323D+03, .119518D+03, - + .859409D+02, .619116D+02, .446200D+02, .322056D+02, - + .232869D+02, .168692D+02, .122461D+02, .890705D+01, - + .649465D+01, .474404D+01, .347147D+01, .254402D+01, - + .186669D+01, .137044D+01, .100780D+01, .739390D+00, - + .543281D+00, .397937D+00, .291342D+00, .212848D+00 / - DATA (UPDI(I),I=6241,6292) / - + .155112D+00, .112694D+00, .815911D-01, .588357D-01, - + .422410D-01, .301828D-01, .214586D-01, .151733D-01, - + .106697D-01, .745960D-02, .518202D-02, .358392D-02, - + .245815D-02, .167596D-02, .113685D-02, .767741D-03, - + .517023D-03, .347674D-03, .234101D-03, .158151D-03, - + .107567D-03, .737922D-04, .513756D-04, .361102D-04, - + .256707D-04, .183809D-04, .131919D-04, .941729D-05, - + .663272D-05, .456265D-05, .302239D-05, .190370D-05, - + .111549D-05, .589623D-06, .267466D-06, .947338D-07, - + .215647D-07, .185392D-08, .000000D+00, .330170D+07, - + .245307D+07, .178529D+07, .129835D+07, .943551D+06, - + .685132D+06, .497114D+06, .360380D+06, .261051D+06, - + .188930D+06, .136623D+06, .987065D+05, .712536D+05 / - DATA (UPDI(I),I=6293,6344) / - + .513876D+05, .370292D+05, .266572D+05, .191743D+05, - + .137788D+05, .989345D+04, .709708D+04, .508720D+04, - + .364330D+04, .260743D+04, .186459D+04, .133261D+04, - + .951686D+03, .679618D+03, .482796D+03, .344614D+03, - + .245966D+03, .175596D+03, .125402D+03, .896033D+02, - + .641381D+02, .459241D+02, .329286D+02, .236510D+02, - + .170178D+02, .122703D+02, .886391D+01, .641908D+01, - + .465683D+01, .338443D+01, .246342D+01, .179538D+01, - + .130926D+01, .956467D+00, .697134D+00, .508941D+00, - + .370413D+00, .269500D+00, .195685D+00, .141746D+00, - + .102376D+00, .736919D-01, .528390D-01, .377262D-01, - + .268120D-01, .189626D-01, .133407D-01, .933559D-02, - + .649681D-02, .449347D-02, .309520D-02, .211522D-02 / - DATA (UPDI(I),I=6345,6396) / - + .143769D-02, .972856D-03, .655948D-03, .441473D-03, - + .297058D-03, .200413D-03, .135859D-03, .928560D-04, - + .640804D-04, .448974D-04, .317529D-04, .226874D-04, - + .162992D-04, .117096D-04, .834710D-05, .585420D-05, - + .400041D-05, .262522D-05, .163411D-05, .943544D-06, - + .489903D-06, .217363D-06, .749318D-07, .165954D-07, - + .144579D-08, .000000D+00, .256211D+07, .196415D+07, - + .148372D+07, .112080D+07, .846662D+06, .639578D+06, - + .483149D+06, .364984D+06, .275722D+06, .208294D+06, - + .157359D+06, .118882D+06, .898164D+05, .678595D+05, - + .512727D+05, .387425D+05, .292764D+05, .221252D+05, - + .167226D+05, .126408D+05, .955692D+04, .722682D+04, - + .546615D+04, .413568D+04, .313020D+04, .237024D+04 / - DATA (UPDI(I),I=6397,6448) / - + .179578D+04, .135614D+04, .102915D+04, .781794D+03, - + .594621D+03, .452939D+03, .345642D+03, .264554D+03, - + .202897D+03, .156122D+03, .120594D+03, .935672D+02, - + .729673D+02, .572210D+02, .451659D+02, .358872D+02, - + .287176D+02, .231492D+02, .187993D+02, .153795D+02, - + .126809D+02, .105142D+02, .878218D+01, .736912D+01, - + .621844D+01, .526994D+01, .448197D+01, .382241D+01, - + .326650D+01, .279498D+01, .239282D+01, .204822D+01, - + .175179D+01, .149604D+01, .127492D+01, .108348D+01, - + .917653D+00, .774678D+00, .650244D+00, .542864D+00, - + .450452D+00, .371203D+00, .303539D+00, .246068D+00, - + .197555D+00, .156896D+00, .123080D+00, .951973D-01, - + .726580D-01, .543944D-01, .399177D-01, .286272D-01 / - DATA (UPDI(I),I=6449,6500) / - + .199871D-01, .135211D-01, .880876D-02, .548727D-02, - + .322234D-02, .176498D-02, .879967D-03, .385861D-03, - + .140482D-03, .381180D-04, .604828D-05, .258374D-06, - + .000000D+00, .363347D+07, .278431D+07, .210194D+07, - + .158636D+07, .119739D+07, .903534D+06, .681871D+06, - + .514434D+06, .388151D+06, .292776D+06, .220856D+06, - + .166549D+06, .125605D+06, .946945D+05, .713958D+05, - + .538109D+05, .405598D+05, .305611D+05, .230289D+05, - + .173472D+05, .130684D+05, .984189D+04, .741299D+04, - + .558210D+04, .420430D+04, .316592D+04, .238489D+04, - + .178957D+04, .134912D+04, .101743D+04, .768008D+03, - + .580203D+03, .438970D+03, .332881D+03, .252848D+03, - + .192557D+03, .147158D+03, .112891D+03, .870167D+02 / - DATA (UPDI(I),I=6501,6552) / - + .674070D+02, .525424D+02, .412052D+02, .325359D+02, - + .258672D+02, .207140D+02, .167028D+02, .135731D+02, - + .110871D+02, .912306D+01, .753936D+01, .626580D+01, - + .522921D+01, .437957D+01, .367809D+01, .309530D+01, - + .260826D+01, .219918D+01, .185409D+01, .156194D+01, - + .131397D+01, .110306D+01, .923563D+00, .770584D+00, - + .640916D+00, .529946D+00, .435835D+00, .356205D+00, - + .289104D+00, .232787D+00, .185795D+00, .146811D+00, - + .114728D+00, .885328D-01, .673248D-01, .504979D-01, - + .371293D-01, .267386D-01, .188040D-01, .128590D-01, - + .851202D-02, .541617D-02, .329088D-02, .187986D-02, - + .999302D-03, .481583D-03, .203322D-03, .707821D-04, - + .182549D-04, .276718D-05, .121184D-06, .000000D+00 / - DATA (UPDI(I),I=6553,6604) / - + .510154D+07, .390271D+07, .294027D+07, .221421D+07, - + .166754D+07, .125528D+07, .944974D+06, .711042D+06, - + .535026D+06, .402383D+06, .302620D+06, .227472D+06, - + .170979D+06, .128445D+06, .964854D+05, .724362D+05, - + .543768D+05, .407953D+05, .306031D+05, .229431D+05, - + .171987D+05, .128846D+05, .965194D+04, .722616D+04, - + .540990D+04, .404777D+04, .302906D+04, .225692D+04, - + .168912D+04, .126413D+04, .946663D+03, .709228D+03, - + .531957D+03, .399762D+03, .300816D+03, .226862D+03, - + .171638D+03, .130305D+03, .993710D+02, .761320D+02, - + .586773D+02, .454858D+02, .354935D+02, .278793D+02, - + .220523D+02, .175599D+02, .140899D+02, .113608D+02, - + .922723D+01, .752503D+01, .617112D+01, .508156D+01 / - DATA (UPDI(I),I=6605,6656) / - + .419888D+01, .347893D+01, .288821D+01, .240090D+01, - + .199696D+01, .166084D+01, .138020D+01, .114538D+01, - + .948513D+00, .783423D+00, .644749D+00, .528964D+00, - + .431354D+00, .349842D+00, .281924D+00, .225585D+00, - + .179037D+00, .140817D+00, .109616D+00, .843639D-01, - + .640931D-01, .479588D-01, .353802D-01, .255680D-01, - + .180828D-01, .124788D-01, .836454D-02, .542105D-02, - + .337133D-02, .199899D-02, .111139D-02, .573556D-03, - + .267267D-03, .108637D-03, .361599D-04, .886065D-05, - + .128130D-05, .569024D-07, .000000D+00, .703699D+07, - + .537043D+07, .403455D+07, .302935D+07, .227446D+07, - + .170674D+07, .128061D+07, .960310D+06, .720035D+06, - + .539543D+06, .404232D+06, .302656D+06, .226560D+06 / - DATA (UPDI(I),I=6657,6708) / - + .169478D+06, .126749D+06, .947233D+05, .707709D+05, - + .528344D+05, .394326D+05, .294065D+05, .219230D+05, - + .163305D+05, .121612D+05, .904908D+04, .673160D+04, - + .500337D+04, .371860D+04, .275082D+04, .204366D+04, - + .151785D+04, .112772D+04, .838011D+03, .623265D+03, - + .464329D+03, .346279D+03, .258748D+03, .193913D+03, - + .145791D+03, .110078D+03, .834806D+02, .636757D+02, - + .488402D+02, .377015D+02, .292902D+02, .229110D+02, - + .180377D+02, .143083D+02, .114026D+02, .915272D+01, - + .737547D+01, .597601D+01, .486152D+01, .396821D+01, - + .324763D+01, .266304D+01, .218642D+01, .179605D+01, - + .147521D+01, .121066D+01, .992147D+00, .811322D+00, - + .661699D+00, .537674D+00, .435528D+00, .350596D+00 / - DATA (UPDI(I),I=6709,6760) / - + .280661D+00, .223210D+00, .176236D+00, .137987D+00, - + .107044D+00, .821600D-01, .623299D-01, .466610D-01, - + .343865D-01, .249736D-01, .177553D-01, .123450D-01, - + .836852D-02, .550471D-02, .349711D-02, .212864D-02, - + .123349D-02, .668675D-03, .335672D-03, .151633D-03, - + .595198D-04, .190255D-04, .445681D-05, .618377D-06, - + .272334D-07, .000000D+00, .951813D+07, .724366D+07, - + .542387D+07, .405876D+07, .303668D+07, .227053D+07, - + .169731D+07, .126794D+07, .946948D+06, .706708D+06, - + .527258D+06, .393074D+06, .292938D+06, .218134D+06, - + .162368D+06, .120755D+06, .897680D+05, .666720D+05, - + .494953D+05, .367088D+05, .272121D+05, .201525D+05, - + .149171D+05, .110311D+05, .815347D+04, .602015D+04 / - DATA (UPDI(I),I=6761,6812) / - + .444389D+04, .326402D+04, .240740D+04, .177473D+04, - + .130847D+04, .964684D+03, .711656D+03, .525787D+03, - + .388762D+03, .287955D+03, .213870D+03, .159328D+03, - + .119177D+03, .895226D+02, .676238D+02, .513590D+02, - + .392494D+02, .301837D+02, .233667D+02, .182044D+02, - + .142881D+02, .112641D+02, .894373D+01, .712785D+01, - + .571141D+01, .459442D+01, .370796D+01, .300026D+01, - + .243213D+01, .197396D+01, .160282D+01, .130126D+01, - + .105548D+01, .854875D+00, .690864D+00, .556814D+00, - + .447061D+00, .357809D+00, .284544D+00, .225000D+00, - + .176727D+00, .137785D+00, .106506D+00, .815502D-01, - + .617635D-01, .462222D-01, .341227D-01, .247856D-01, - + .177359D-01, .124159D-01, .849449D-02, .566195D-02 / - DATA (UPDI(I),I=6813,6864) / - + .365874D-02, .228102D-02, .136072D-02, .771689D-03, - + .408594D-03, .199910D-03, .877615D-04, .333676D-04, - + .102871D-04, .231666D-05, .309840D-06, .131450D-07, - + .000000D+00, .128447D+08, .974277D+07, .726648D+07, - + .541588D+07, .403529D+07, .300450D+07, .223621D+07, - + .166312D+07, .123640D+07, .918421D+06, .681911D+06, - + .505872D+06, .375088D+06, .277861D+06, .205721D+06, - + .152162D+06, .112479D+06, .830593D+05, .612945D+05, - + .451839D+05, .332849D+05, .244920D+05, .180094D+05, - + .132276D+05, .970874D+04, .711706D+04, .521490D+04, - + .380100D+04, .278165D+04, .203431D+04, .148756D+04, - + .108754D+04, .795373D+03, .582485D+03, .426793D+03, - + .313217D+03, .230441D+03, .170029D+03, .125938D+03 / - DATA (UPDI(I),I=6865,6916) / - + .936619D+02, .700355D+02, .526457D+02, .398132D+02, - + .302941D+02, .232008D+02, .178787D+02, .138784D+02, - + .108187D+02, .849335D+01, .669146D+01, .529988D+01, - + .421377D+01, .336080D+01, .268720D+01, .215237D+01, - + .172596D+01, .138453D+01, .111040D+01, .889676D+00, - + .711748D+00, .568102D+00, .452194D+00, .358517D+00, - + .283338D+00, .222449D+00, .173635D+00, .134606D+00, - + .103561D+00, .789792D-01, .596492D-01, .445492D-01, - + .328670D-01, .239118D-01, .171089D-01, .120552D-01, - + .830489D-02, .558807D-02, .366062D-02, .232289D-02, - + .142074D-02, .830496D-03, .460939D-03, .238451D-03, - + .113778D-03, .486042D-04, .179359D-04, .535257D-05, - + .116456D-05, .150692D-06, .589119D-08, .000000D+00 / - DATA (UPDI(I),I=6917,6968) / - + .171094D+08, .129312D+08, .960385D+07, .712729D+07, - + .528702D+07, .391884D+07, .290330D+07, .214913D+07, - + .159001D+07, .117530D+07, .868245D+06, .640799D+06, - + .472626D+06, .348236D+06, .256402D+06, .188582D+06, - + .138594D+06, .101740D+06, .746249D+05, .546704D+05, - + .400170D+05, .292545D+05, .213677D+05, .155873D+05, - + .113604D+05, .826794D+04, .601362D+04, .434970D+04, - + .315859D+04, .229176D+04, .166224D+04, .120521D+04, - + .873942D+03, .634507D+03, .460794D+03, .335125D+03, - + .244291D+03, .178565D+03, .131002D+03, .964883D+02, - + .714417D+02, .531697D+02, .398040D+02, .299783D+02, - + .227214D+02, .173259D+02, .133072D+02, .102617D+02, - + .796898D+01, .620935D+01, .486358D+01, .382372D+01 / - DATA (UPDI(I),I=6969,7020) / - + .301533D+01, .238362D+01, .188737D+01, .149604D+01, - + .118618D+01, .940238D+00, .744499D+00, .588579D+00, - + .464213D+00, .365086D+00, .285959D+00, .223256D+00, - + .173120D+00, .133449D+00, .102150D+00, .775866D-01, - + .584025D-01, .435263D-01, .320702D-01, .233350D-01, - + .167380D-01, .118021D-01, .819237D-02, .555650D-02, - + .367883D-02, .236967D-02, .147743D-02, .887014D-03, - + .508415D-03, .276351D-03, .139790D-03, .651103D-04, - + .270958D-04, .971748D-05, .281194D-05, .592037D-06, - + .740283D-07, .248633D-08, .000000D+00, .224514D+08, - + .169064D+08, .125015D+08, .923672D+07, .682077D+07, - + .503243D+07, .371073D+07, .273367D+07, .201255D+07, - + .148021D+07, .108790D+07, .798739D+06, .585976D+06 / - DATA (UPDI(I),I=7021,7072) / - + .429411D+06, .314412D+06, .229938D+06, .168007D+06, - + .122603D+06, .893817D+05, .650764D+05, .473318D+05, - + .343783D+05, .249435D+05, .180725D+05, .130801D+05, - + .945180D+04, .682471D+04, .489917D+04, .353051D+04, - + .254172D+04, .182885D+04, .131525D+04, .945803D+03, - + .680882D+03, .490191D+03, .353368D+03, .255277D+03, - + .184896D+03, .134389D+03, .980534D+02, .719087D+02, - + .530011D+02, .392896D+02, .292982D+02, .219836D+02, - + .165933D+02, .126145D+02, .962645D+01, .739767D+01, - + .570316D+01, .441951D+01, .343729D+01, .268126D+01, - + .209644D+01, .164177D+01, .128700D+01, .100910D+01, - + .790945D+00, .619253D+00, .484037D+00, .377425D+00, - + .293440D+00, .227191D+00, .175322D+00, .134355D+00 / - DATA (UPDI(I),I=7073,7124) / - + .102339D+00, .773973D-01, .580725D-01, .431754D-01, - + .317754D-01, .231143D-01, .166004D-01, .117497D-01, - + .817186D-02, .559366D-02, .373931D-02, .243894D-02, - + .154682D-02, .948969D-03, .560212D-03, .315473D-03, - + .168318D-03, .834820D-04, .380799D-04, .155000D-04, - + .542932D-05, .153303D-05, .314637D-06, .381867D-07, - + .995807D-09, .000000D+00, .290108D+08, .217649D+08, - + .160233D+08, .117858D+08, .866337D+07, .636228D+07, - + .466907D+07, .342311D+07, .250771D+07, .183518D+07, - + .134189D+07, .980096D+06, .715199D+06, .521274D+06, - + .379560D+06, .276021D+06, .200515D+06, .145467D+06, - + .105414D+06, .762792D+05, .551322D+05, .397881D+05, - + .286799D+05, .206409D+05, .148368D+05, .106462D+05 / - DATA (UPDI(I),I=7125,7176) / - + .763220D+04, .543829D+04, .388976D+04, .277904D+04, - + .198402D+04, .141551D+04, .100962D+04, .720829D+03, - + .514564D+03, .367752D+03, .263343D+03, .189044D+03, - + .136164D+03, .984404D+02, .715233D+02, .522228D+02, - + .383447D+02, .283192D+02, .210427D+02, .157272D+02, - + .118380D+02, .894316D+01, .680341D+01, .519149D+01, - + .398174D+01, .306485D+01, .236588D+01, .183052D+01, - + .141845D+01, .110019D+01, .853472D+00, .661825D+00, - + .512611D+00, .396371D+00, .305727D+00, .235115D+00, - + .180041D+00, .137413D+00, .104134D+00, .784312D-01, - + .586462D-01, .435008D-01, .319682D-01, .232521D-01, - + .167135D-01, .118586D-01, .829050D-02, .569356D-02, - + .384759D-02, .253830D-02, .163329D-02, .102151D-02 / - DATA (UPDI(I),I=7177,7228) / - + .617749D-03, .359293D-03, .199236D-03, .104614D-03, - + .510303D-04, .228779D-04, .914735D-05, .314544D-05, - + .871922D-06, .175607D-06, .207728D-07, .359052D-09, - + .000000D+00, .369201D+08, .275965D+08, .202269D+08, - + .148113D+08, .108376D+08, .792217D+07, .578636D+07, - + .422192D+07, .307776D+07, .224116D+07, .163043D+07, - + .118471D+07, .859954D+06, .623426D+06, .451458D+06, - + .326481D+06, .235823D+06, .170092D+06, .122529D+06, - + .881305D+05, .633054D+05, .453999D+05, .325147D+05, - + .232476D+05, .165984D+05, .118285D+05, .842048D+04, - + .595653D+04, .422932D+04, .299915D+04, .212485D+04, - + .150424D+04, .106439D+04, .753809D+03, .533671D+03, - + .378213D+03, .268524D+03, .191097D+03, .136433D+03 / - DATA (UPDI(I),I=7229,7280) / - + .977570D+02, .703864D+02, .509243D+02, .370461D+02, - + .271053D+02, .199510D+02, .147696D+02, .110109D+02, - + .823769D+01, .620589D+01, .468898D+01, .356086D+01, - + .271372D+01, .207395D+01, .158860D+01, .121862D+01, - + .935670D+00, .718504D+00, .551515D+00, .422827D+00, - + .323613D+00, .247056D+00, .188046D+00, .142513D+00, - + .107649D+00, .807288D-01, .601660D-01, .445145D-01, - + .326681D-01, .237506D-01, .170884D-01, .121492D-01, - + .852491D-02, .589331D-02, .400123D-02, .267295D-02, - + .174269D-02, .110798D-02, .684530D-03, .408828D-03, - + .234764D-03, .128497D-03, .665778D-04, .320376D-04, - + .141653D-04, .558531D-05, .189369D-05, .517817D-06, - + .102836D-06, .118957D-07, .982113D-10, .000000D+00 / - DATA (UPDI(I),I=7281,7332) / - + .462985D+08, .344800D+08, .251614D+08, .183428D+08, - + .133609D+08, .972188D+07, .706764D+07, .513233D+07, - + .372334D+07, .269795D+07, .195291D+07, .141181D+07, - + .101949D+07, .735184D+06, .529523D+06, .380840D+06, - + .273551D+06, .196183D+06, .140503D+06, .100461D+06, - + .717270D+05, .511230D+05, .363831D+05, .258466D+05, - + .183330D+05, .129769D+05, .917491D+04, .644427D+04, - + .454300D+04, .319818D+04, .224902D+04, .158009D+04, - + .110941D+04, .779524D+03, .547443D+03, .384808D+03, - + .270937D+03, .191190D+03, .135332D+03, .961287D+02, - + .686074D+02, .491975D+02, .354693D+02, .257171D+02, - + .187566D+02, .137576D+02, .101618D+02, .753128D+01, - + .562067D+01, .420667D+01, .316435D+01, .238865D+01 / - DATA (UPDI(I),I=7333,7384) / - + .180813D+01, .137176D+01, .104222D+01, .792568D+00, - + .602781D+00, .458249D+00, .347952D+00, .263751D+00, - + .199421D+00, .150331D+00, .112833D+00, .844116D-01, - + .626901D-01, .462691D-01, .339003D-01, .246361D-01, - + .177359D-01, .126354D-01, .889455D-02, .617912D-02, - + .422891D-02, .284214D-02, .187942D-02, .121273D-02, - + .763049D-03, .466491D-03, .275665D-03, .156606D-03, - + .847958D-04, .434576D-04, .206836D-04, .904454D-05, - + .352724D-05, .118272D-05, .319944D-06, .628152D-07, - + .712225D-08, .000000D+00, .000000D+00, .572469D+08, - + .424799D+08, .308649D+08, .224019D+08, .162445D+08, - + .117665D+08, .851458D+07, .615412D+07, .444333D+07, - + .320409D+07, .230784D+07, .166006D+07, .119263D+07 / - DATA (UPDI(I),I=7385,7436) / - + .855592D+06, .612991D+06, .438504D+06, .313244D+06, - + .223398D+06, .159084D+06, .113089D+06, .802651D+05, - + .568641D+05, .402200D+05, .283932D+05, .200101D+05, - + .140712D+05, .988219D+04, .689311D+04, .482560D+04, - + .337304D+04, .235480D+04, .164220D+04, .114432D+04, - + .797905D+03, .555967D+03, .387694D+03, .270762D+03, - + .189501D+03, .133021D+03, .936917D+02, .662988D+02, - + .471332D+02, .336858D+02, .242101D+02, .175017D+02, - + .127230D+02, .931403D+01, .684077D+01, .505948D+01, - + .375233D+01, .279704D+01, .209224D+01, .156940D+01, - + .117985D+01, .888285D+00, .669390D+00, .504498D+00, - + .380073D+00, .285996D+00, .214841D+00, .160987D+00, - + .120275D+00, .894685D-01, .663394D-01, .488304D-01 / - DATA (UPDI(I),I=7437,7488) / - + .357199D-01, .259393D-01, .186838D-01, .133319D-01, - + .941401D-02, .656836D-02, .452272D-02, .306793D-02, - + .204354D-02, .133941D-02, .856584D-03, .534163D-03, - + .323644D-03, .189543D-03, .106713D-03, .572624D-04, - + .290816D-04, .137158D-04, .594261D-05, .229614D-05, - + .762543D-06, .204278D-06, .396740D-07, .441607D-08, - + .000000D+00, .000000D+00, .698428D+08, .516430D+08, - + .373621D+08, .270001D+08, .194925D+08, .140562D+08, - + .101252D+08, .728453D+07, .523483D+07, .375690D+07, - + .269291D+07, .192753D+07, .137786D+07, .983449D+06, - + .700944D+06, .498783D+06, .354391D+06, .251365D+06, - + .178003D+06, .125821D+06, .887854D+05, .625302D+05, - + .439617D+05, .308445D+05, .216016D+05, .150931D+05 / - DATA (UPDI(I),I=7489,7540) / - + .105309D+05, .729607D+04, .507305D+04, .352150D+04, - + .244108D+04, .169014D+04, .116907D+04, .809088D+03, - + .559466D+03, .387118D+03, .268234D+03, .186235D+03, - + .129672D+03, .905865D+02, .635720D+02, .448178D+02, - + .317615D+02, .226339D+02, .162229D+02, .116923D+02, - + .848617D+01, .617882D+01, .453058D+01, .333096D+01, - + .246152D+01, .182539D+01, .135746D+01, .101176D+01, - + .755227D+00, .564276D+00, .421675D+00, .314999D+00, - + .235043D+00, .175093D+00, .130116D+00, .964101D-01, - + .711289D-01, .523132D-01, .381942D-01, .277142D-01, - + .199646D-01, .142658D-01, .100988D-01, .707485D-02, - + .489760D-02, .334596D-02, .225205D-02, .148843D-02, - + .968079D-03, .614330D-03, .380150D-03, .228557D-03 / - DATA (UPDI(I),I=7541,7592) / - + .132826D-03, .742026D-04, .395085D-04, .199066D-04, - + .931303D-05, .400135D-05, .153264D-05, .504201D-06, - + .133718D-06, .256756D-07, .280853D-08, .000000D+00, - + .000000D+00, .841368D+08, .619958D+08, .446630D+08, - + .321384D+08, .231015D+08, .165854D+08, .118937D+08, - + .851818D+07, .609318D+07, .435250D+07, .310501D+07, - + .221178D+07, .157329D+07, .111735D+07, .792337D+06, - + .560912D+06, .396440D+06, .279688D+06, .196981D+06, - + .138464D+06, .971556D+05, .680316D+05, .475487D+05, - + .331617D+05, .230825D+05, .160271D+05, .111115D+05, - + .764775D+04, .528242D+04, .364213D+04, .250734D+04, - + .172386D+04, .118387D+04, .813390D+03, .558275D+03, - + .383389D+03, .263620D+03, .181615D+03, .125464D+03 / - DATA (UPDI(I),I=7593,7644) / - + .869516D+02, .605328D+02, .423308D+02, .297551D+02, - + .210308D+02, .149502D+02, .106862D+02, .769225D+01, - + .555438D+01, .403925D+01, .294522D+01, .215862D+01, - + .158771D+01, .117111D+01, .865826D+00, .641110D+00, - + .475198D+00, .352303D+00, .261115D+00, .193324D+00, - + .142907D+00, .105389D+00, .774991D-01, .567492D-01, - + .414295D-01, .300258D-01, .216286D-01, .154685D-01, - + .109741D-01, .771374D-02, .536606D-02, .368886D-02, - + .250274D-02, .167295D-02, .109811D-02, .709386D-03, - + .447104D-03, .274790D-03, .164082D-03, .947001D-04, - + .525332D-04, .277712D-04, .138891D-04, .644733D-05, - + .274710D-05, .104280D-05, .339621D-06, .890796D-07, - + .168932D-07, .181738D-08, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=7645,7696) / - + .158812D+05, .258924D+05, .207927D+05, .167003D+05, - + .134161D+05, .107801D+05, .866418D+04, .696550D+04, - + .560159D+04, .450630D+04, .362658D+04, .291986D+04, - + .235199D+04, .189559D+04, .152867D+04, .123361D+04, - + .996260D+03, .805258D+03, .651494D+03, .527655D+03, - + .427869D+03, .347422D+03, .282529D+03, .230150D+03, - + .187843D+03, .153647D+03, .125985D+03, .103304D+03, - + .852157D+02, .705420D+02, .586255D+02, .489372D+02, - + .410508D+02, .346399D+02, .293924D+02, .251028D+02, - + .215887D+02, .187024D+02, .163238D+02, .143549D+02, - + .127191D+02, .113494D+02, .101947D+02, .921271D+01, - + .836967D+01, .763840D+01, .699943D+01, .642935D+01, - + .592153D+01, .545897D+01, .503794D+01, .465012D+01 / - DATA (UPDI(I),I=7697,7748) / - + .429044D+01, .395499D+01, .364074D+01, .334541D+01, - + .306726D+01, .280502D+01, .255770D+01, .232458D+01, - + .210511D+01, .189887D+01, .170548D+01, .152546D+01, - + .135665D+01, .119993D+01, .105503D+01, .921656D+00, - + .799513D+00, .688264D+00, .587546D+00, .496962D+00, - + .416037D+00, .344253D+00, .281724D+00, .226999D+00, - + .179995D+00, .140118D+00, .106773D+00, .793549D-01, - + .572508D-01, .398729D-01, .265151D-01, .166964D-01, - + .976865D-02, .517045D-02, .236723D-02, .861917D-03, - + .206645D-03, .178363D-04, .000000D+00, .902698D+05, - + .704441D+05, .543377D+05, .419506D+05, .324183D+05, - + .250750D+05, .194151D+05, .150477D+05, .116758D+05, - + .906928D+04, .705321D+04, .549181D+04, .428178D+04 / - DATA (UPDI(I),I=7749,7800) / - + .334274D+04, .261352D+04, .204636D+04, .160495D+04, - + .126084D+04, .992368D+03, .782547D+03, .618430D+03, - + .489814D+03, .388921D+03, .309616D+03, .247209D+03, - + .198001D+03, .159157D+03, .128020D+03, .103736D+03, - + .844353D+02, .690755D+02, .568133D+02, .470092D+02, - + .391650D+02, .328438D+02, .277451D+02, .236227D+02, - + .202728D+02, .175414D+02, .152991D+02, .134516D+02, - + .119143D+02, .106264D+02, .953646D+01, .860560D+01, - + .780164D+01, .710261D+01, .648183D+01, .593190D+01, - + .543365D+01, .498303D+01, .457061D+01, .419089D+01, - + .383931D+01, .351252D+01, .320781D+01, .292317D+01, - + .265697D+01, .240800D+01, .217526D+01, .195796D+01, - + .175544D+01, .156706D+01, .139314D+01, .123134D+01 / - DATA (UPDI(I),I=7801,7852) / - + .108234D+01, .945673D+00, .820893D+00, .707523D+00, - + .605094D+00, .513095D+00, .431028D+00, .358328D+00, - + .294360D+00, .239112D+00, .191178D+00, .150366D+00, - + .116073D+00, .876680D-01, .645483D-01, .460997D-01, - + .317624D-01, .208721D-01, .129732D-01, .747985D-02, - + .389359D-02, .174790D-02, .621593D-03, .145438D-03, - + .126875D-04, .000000D+00, .160326D+06, .123852D+06, - + .944121D+05, .720067D+05, .549534D+05, .419622D+05, - + .320653D+05, .245185D+05, .187634D+05, .143700D+05, - + .110159D+05, .845213D+04, .649224D+04, .499209D+04, - + .384355D+04, .296299D+04, .228767D+04, .176893D+04, - + .137031D+04, .106346D+04, .827137D+03, .644764D+03, - + .503928D+03, .394929D+03, .310490D+03, .244936D+03 / - DATA (UPDI(I),I=7853,7904) / - + .193990D+03, .153768D+03, .122872D+03, .986696D+02, - + .796868D+02, .647387D+02, .529472D+02, .436306D+02, - + .362141D+02, .302977D+02, .255647D+02, .217544D+02, - + .186748D+02, .161657D+02, .141131D+02, .124151D+02, - + .110007D+02, .980937D+01, .879677D+01, .792601D+01, - + .717236D+01, .650611D+01, .591888D+01, .538958D+01, - + .491363D+01, .448062D+01, .408450D+01, .372017D+01, - + .338390D+01, .307258D+01, .278386D+01, .251584D+01, - + .226703D+01, .203618D+01, .182224D+01, .162438D+01, - + .144167D+01, .127424D+01, .111962D+01, .978308D+00, - + .849639D+00, .733040D+00, .627889D+00, .533601D+00, - + .449548D+00, .375145D+00, .309758D+00, .252668D+00, - + .203760D+00, .161679D+00, .126155D+00, .965684D-01 / - DATA (UPDI(I),I=7905,7956) / - + .722894D-01, .527248D-01, .372716D-01, .253991D-01, - + .164880D-01, .101109D-01, .574065D-02, .293576D-02, - + .129017D-02, .447003D-03, .101710D-03, .898331D-05, - + .000000D+00, .244642D+06, .187931D+06, .142317D+06, - + .107799D+06, .816851D+05, .619137D+05, .469494D+05, - + .356145D+05, .270311D+05, .205257D+05, .155965D+05, - + .118579D+05, .902297D+04, .687095D+04, .523757D+04, - + .399632D+04, .305312D+04, .233541D+04, .178926D+04, - + .137301D+04, .105571D+04, .813401D+03, .628279D+03, - + .486558D+03, .377987D+03, .294639D+03, .230605D+03, - + .180624D+03, .142672D+03, .113278D+03, .904839D+02, - + .727321D+02, .588806D+02, .480503D+02, .395158D+02, - + .327721D+02, .274259D+02, .231574D+02, .197340D+02 / - DATA (UPDI(I),I=7957,8008) / - + .169640D+02, .147122D+02, .128599D+02, .113249D+02, - + .100379D+02, .894898D+01, .801655D+01, .721303D+01, - + .650584D+01, .588548D+01, .532909D+01, .483146D+01, - + .438125D+01, .397187D+01, .359766D+01, .325449D+01, - + .293886D+01, .264812D+01, .238007D+01, .213294D+01, - + .190524D+01, .169569D+01, .150324D+01, .132675D+01, - + .116615D+01, .101887D+01, .885194D+00, .764332D+00, - + .655578D+00, .558193D+00, .471489D+00, .394750D+00, - + .327317D+00, .268502D+00, .217529D+00, .174200D+00, - + .137213D+00, .106247D+00, .806759D-01, .598789D-01, - + .432784D-01, .302948D-01, .204278D-01, .131066D-01, - + .793411D-02, .443902D-02, .223202D-02, .961269D-03, - + .325004D-03, .720846D-04, .644138D-05, .000000D+00 / - DATA (UPDI(I),I=8009,8060) / - + .250099D+06, .264734D+06, .199514D+06, .150368D+06, - + .113351D+06, .854508D+05, .644348D+05, .485935D+05, - + .366592D+05, .276619D+05, .208820D+05, .157691D+05, - + .119151D+05, .900737D+04, .681452D+04, .515909D+04, - + .390980D+04, .296588D+04, .225287D+04, .171354D+04, - + .130564D+04, .996646D+03, .762534D+03, .584832D+03, - + .449884D+03, .347209D+03, .269048D+03, .208605D+03, - + .163140D+03, .128258D+03, .101462D+03, .807890D+02, - + .648065D+02, .524231D+02, .427498D+02, .351705D+02, - + .292097D+02, .244858D+02, .207235D+02, .176986D+02, - + .152538D+02, .132534D+02, .116035D+02, .102265D+02, - + .906630D+01, .807698D+01, .722797D+01, .648399D+01, - + .583428D+01, .525436D+01, .473830D+01, .427392D+01 / - DATA (UPDI(I),I=8061,8112) / - + .385400D+01, .347241D+01, .312457D+01, .280664D+01, - + .251562D+01, .224903D+01, .200484D+01, .178132D+01, - + .157697D+01, .139054D+01, .122068D+01, .106714D+01, - + .927257D+00, .801146D+00, .687881D+00, .586649D+00, - + .496611D+00, .416996D+00, .347014D+00, .285953D+00, - + .233080D+00, .187585D+00, .149200D+00, .116685D+00, - + .896789D-01, .675631D-01, .497313D-01, .356277D-01, - + .247023D-01, .164864D-01, .104582D-01, .625186D-02, - + .344837D-02, .170574D-02, .720470D-03, .238004D-03, - + .515592D-04, .465854D-05, .000000D+00, .486305D+06, - + .370632D+06, .278058D+06, .208584D+06, .156470D+06, - + .117364D+06, .880364D+05, .660338D+05, .495362D+05, - + .371610D+05, .278832D+05, .209243D+05, .157074D+05 / - DATA (UPDI(I),I=8113,8164) / - + .117942D+05, .886043D+04, .665942D+04, .500886D+04, - + .377009D+04, .284067D+04, .214267D+04, .161860D+04, - + .122462D+04, .928432D+03, .705435D+03, .537485D+03, - + .410788D+03, .315184D+03, .241917D+03, .187304D+03, - + .145794D+03, .114198D+03, .900500D+02, .715511D+02, - + .573499D+02, .463538D+02, .378130D+02, .311503D+02, - + .259118D+02, .217694D+02, .184615D+02, .158044D+02, - + .136427D+02, .118690D+02, .103960D+02, .916061D+01, - + .811212D+01, .721646D+01, .643536D+01, .575660D+01, - + .515395D+01, .462061D+01, .414350D+01, .371466D+01, - + .332744D+01, .297676D+01, .265837D+01, .236891D+01, - + .210559D+01, .186608D+01, .164839D+01, .145078D+01, - + .127179D+01, .110986D+01, .964529D+00, .833076D+00 / - DATA (UPDI(I),I=8165,8216) / - + .715417D+00, .610510D+00, .517430D+00, .435250D+00, - + .363122D+00, .300194D+00, .245708D+00, .198896D+00, - + .158930D+00, .125482D+00, .973849D-01, .742478D-01, - + .554695D-01, .404696D-01, .287217D-01, .197145D-01, - + .130163D-01, .815989D-02, .481513D-02, .261766D-02, - + .127372D-02, .527857D-03, .170615D-03, .362049D-04, - + .330446D-05, .000000D+00, .658612D+06, .500217D+06, - + .373738D+06, .279174D+06, .208510D+06, .155694D+06, - + .116246D+06, .867742D+05, .647717D+05, .483411D+05, - + .360794D+05, .269263D+05, .200980D+05, .150023D+05, - + .112018D+05, .836609D+04, .625140D+04, .467351D+04, - + .349672D+04, .261844D+04, .196320D+04, .147387D+04, - + .110850D+04, .835365D+03, .631135D+03, .478218D+03 / - DATA (UPDI(I),I=8217,8268) / - + .363712D+03, .276655D+03, .212284D+03, .163757D+03, - + .127122D+03, .993564D+02, .782599D+02, .621985D+02, - + .498607D+02, .403535D+02, .329916D+02, .272452D+02, - + .227311D+02, .191492D+02, .162882D+02, .139732D+02, - + .120829D+02, .105206D+02, .921611D+01, .811393D+01, - + .717656D+01, .636289D+01, .565921D+01, .503765D+01, - + .449048D+01, .400376D+01, .356884D+01, .317853D+01, - + .282725D+01, .251039D+01, .222420D+01, .196560D+01, - + .173197D+01, .152108D+01, .133096D+01, .115995D+01, - + .100630D+01, .869357D+00, .746364D+00, .637056D+00, - + .540289D+00, .455049D+00, .380336D+00, .315241D+00, - + .258874D+00, .210438D+00, .169150D+00, .134174D+00, - + .105141D+00, .809555D-01, .612133D-01, .453355D-01 / - DATA (UPDI(I),I=8269,8320) / - + .327729D-01, .230322D-01, .156428D-01, .102109D-01, - + .632118D-02, .367858D-02, .196863D-02, .940805D-03, - + .381731D-03, .120376D-03, .249402D-04, .230346D-05, - + .000000D+00, .868709D+06, .657625D+06, .489435D+06, - + .364138D+06, .270853D+06, .201392D+06, .149713D+06, - + .111257D+06, .826648D+05, .614028D+05, .456040D+05, - + .338630D+05, .251441D+05, .186682D+05, .138616D+05, - + .102932D+05, .764583D+04, .568098D+04, .422358D+04, - + .314205D+04, .233985D+04, .174439D+04, .130252D+04, - + .974308D+03, .730510D+03, .549195D+03, .414371D+03, - + .312605D+03, .237906D+03, .182015D+03, .140132D+03, - + .108632D+03, .848772D+02, .669289D+02, .532422D+02, - + .427722D+02, .347204D+02, .284774D+02, .236033D+02 / - DATA (UPDI(I),I=8321,8372) / - + .197585D+02, .167038D+02, .142446D+02, .122459D+02, - + .106013D+02, .923404D+01, .808379D+01, .710975D+01, - + .626807D+01, .554357D+01, .490681D+01, .434917D+01, - + .385588D+01, .341758D+01, .302658D+01, .267681D+01, - + .236330D+01, .208195D+01, .182938D+01, .160270D+01, - + .139945D+01, .121745D+01, .105486D+01, .909759D+00, - + .781321D+00, .666761D+00, .565658D+00, .476782D+00, - + .399048D+00, .331403D+00, .272894D+00, .222604D+00, - + .179716D+00, .143439D+00, .112947D+00, .878406D-01, - + .671009D-01, .503181D-01, .369424D-01, .264599D-01, - + .184132D-01, .123737D-01, .798496D-02, .488108D-02, - + .280109D-02, .147556D-02, .692523D-03, .275106D-03, - + .846499D-04, .171322D-04, .160128D-05, .000000D+00 / - DATA (UPDI(I),I=8373,8424) / - + .112303D+07, .847441D+06, .628315D+06, .465654D+06, - + .344989D+06, .255473D+06, .189123D+06, .139944D+06, - + .103522D+06, .765485D+05, .565891D+05, .418196D+05, - + .308996D+05, .228254D+05, .168603D+05, .124528D+05, - + .919876D+04, .679583D+04, .502269D+04, .371383D+04, - + .274832D+04, .203567D+04, .150990D+04, .112170D+04, - + .835105D+03, .623294D+03, .466815D+03, .349494D+03, - + .263961D+03, .200406D+03, .153110D+03, .117791D+03, - + .913410D+02, .714970D+02, .564677D+02, .450485D+02, - + .363228D+02, .295995D+02, .243805D+02, .202864D+02, - + .170498D+02, .144568D+02, .123584D+02, .106393D+02, - + .921590D+01, .802342D+01, .701785D+01, .615276D+01, - + .541151D+01, .476322D+01, .419836D+01, .370138D+01 / - DATA (UPDI(I),I=8425,8476) / - + .326225D+01, .287279D+01, .252649D+01, .221798D+01, - + .194286D+01, .169746D+01, .147863D+01, .128371D+01, - + .111033D+01, .956465D+00, .820063D+00, .700140D+00, - + .593903D+00, .500790D+00, .419507D+00, .348912D+00, - + .287917D+00, .235539D+00, .190848D+00, .153022D+00, - + .121272D+00, .947917D-01, .731641D-01, .554469D-01, - + .412341D-01, .300090D-01, .212954D-01, .146734D-01, - + .975594D-02, .622367D-02, .375648D-02, .212569D-02, - + .110221D-02, .508021D-03, .197608D-03, .593539D-04, - + .117453D-04, .111078D-05, .000000D+00, .142839D+07, - + .107448D+07, .793675D+06, .585964D+06, .432432D+06, - + .318953D+06, .235156D+06, .173282D+06, .127637D+06, - + .939679D+05, .691555D+05, .508715D+05, .374107D+05 / - DATA (UPDI(I),I=8477,8528) / - + .275015D+05, .202132D+05, .148529D+05, .109140D+05, - + .801938D+04, .589396D+04, .433306D+04, .318761D+04, - + .234670D+04, .172970D+04, .127672D+04, .944247D+03, - + .699978D+03, .520627D+03, .387006D+03, .290213D+03, - + .218760D+03, .165932D+03, .126744D+03, .975888D+02, - + .758598D+02, .595080D+02, .471629D+02, .377863D+02, - + .306038D+02, .250585D+02, .207309D+02, .173258D+02, - + .146101D+02, .124216D+02, .106361D+02, .916341D+01, - + .793468D+01, .690279D+01, .601887D+01, .526488D+01, - + .460863D+01, .403969D+01, .354176D+01, .310420D+01, - + .271836D+01, .237727D+01, .207526D+01, .180757D+01, - + .157031D+01, .136009D+01, .117404D+01, .100962D+01, - + .864676D+00, .737022D+00, .625537D+00, .527439D+00 / - DATA (UPDI(I),I=8529,8580) / - + .442045D+00, .368015D+00, .304166D+00, .249387D+00, - + .202685D+00, .163128D+00, .129896D+00, .102216D+00, - + .793087D-01, .607498D-01, .456726D-01, .336825D-01, - + .242984D-01, .170830D-01, .116544D-01, .766620D-02, - + .483434D-02, .288098D-02, .160749D-02, .820407D-03, - + .371351D-03, .141455D-03, .414910D-04, .803512D-05, - + .768762D-06, .000000D+00, .179189D+07, .134372D+07, - + .988868D+06, .727321D+06, .534687D+06, .392827D+06, - + .288462D+06, .211693D+06, .155279D+06, .113831D+06, - + .834077D+05, .610816D+05, .447137D+05, .327160D+05, - + .239303D+05, .174976D+05, .127923D+05, .935067D+04, - + .683573D+04, .499787D+04, .365594D+04, .267589D+04, - + .196061D+04, .143833D+04, .105711D+04, .778618D+03 / - DATA (UPDI(I),I=8581,8632) / - + .575334D+03, .424793D+03, .316410D+03, .236895D+03, - + .178469D+03, .135402D+03, .103560D+03, .799764D+02, - + .623363D+02, .490983D+02, .391006D+02, .314844D+02, - + .256342D+02, .210909D+02, .175319D+02, .147056D+02, - + .124369D+02, .105933D+02, .907854D+01, .781960D+01, - + .676657D+01, .586835D+01, .510556D+01, .444479D+01, - + .387475D+01, .337846D+01, .294470D+01, .256436D+01, - + .223008D+01, .193586D+01, .167667D+01, .144835D+01, - + .124733D+01, .107055D+01, .915331D+00, .779379D+00, - + .660426D+00, .557223D+00, .467021D+00, .389029D+00, - + .321877D+00, .264361D+00, .215362D+00, .173885D+00, - + .139009D+00, .109927D+00, .858873D-01, .661472D-01, - + .502825D-01, .375012D-01, .274251D-01, .196101D-01 / - DATA (UPDI(I),I=8633,8684) / - + .136584D-01, .922548D-02, .600354D-02, .374214D-02, - + .220175D-02, .121126D-02, .608450D-03, .270470D-03, - + .100905D-03, .289143D-04, .548470D-05, .530785D-06, - + .000000D+00, .222072D+07, .166016D+07, .121723D+07, - + .891935D+06, .653201D+06, .478037D+06, .349645D+06, - + .255560D+06, .186685D+06, .136280D+06, .994297D+05, - + .724968D+05, .528328D+05, .384801D+05, .280148D+05, - + .203862D+05, .148310D+05, .107864D+05, .784471D+04, - + .570528D+04, .415080D+04, .302120D+04, .220100D+04, - + .160525D+04, .117275D+04, .858505D+03, .630417D+03, - + .462485D+03, .342287D+03, .254626D+03, .190595D+03, - + .143679D+03, .109197D+03, .838097D+02, .649291D+02, - + .508404D+02, .402573D+02, .322369D+02, .261058D+02 / - DATA (UPDI(I),I=8685,8736) / - + .213662D+02, .176690D+02, .147448D+02, .124063D+02, - + .105132D+02, .896346D+01, .768034D+01, .661130D+01, - + .570321D+01, .493540D+01, .427341D+01, .370509D+01, - + .321287D+01, .278495D+01, .241183D+01, .208576D+01, - + .180046D+01, .155063D+01, .133192D+01, .114054D+01, - + .973302D+00, .827399D+00, .700425D+00, .590042D+00, - + .494902D+00, .412296D+00, .341351D+00, .280682D+00, - + .229075D+00, .185418D+00, .148724D+00, .118093D+00, - + .927403D-01, .719429D-01, .549968D-01, .414870D-01, - + .306932D-01, .222577D-01, .157745D-01, .108841D-01, - + .727811D-02, .468537D-02, .288662D-02, .167672D-02, - + .909435D-03, .449620D-03, .196283D-03, .717292D-04, - + .200876D-04, .373534D-05, .365587D-06, .000000D+00 / - DATA (UPDI(I),I=8737,8788) / - + .272205D+07, .202871D+07, .148200D+07, .108191D+07, - + .789328D+06, .575440D+06, .419240D+06, .305208D+06, - + .222049D+06, .161427D+06, .117281D+06, .851458D+05, - + .617791D+05, .447949D+05, .324633D+05, .235131D+05, - + .170241D+05, .123211D+05, .891602D+04, .645126D+04, - + .466893D+04, .338011D+04, .244896D+04, .177607D+04, - + .129011D+04, .938877D+03, .685335D+03, .499702D+03, - + .367583D+03, .271775D+03, .202189D+03, .151497D+03, - + .114450D+03, .873273D+02, .672667D+02, .523779D+02, - + .412504D+02, .328589D+02, .264731D+02, .215579D+02, - + .177388D+02, .147297D+02, .123321D+02, .103981D+02, - + .882049D+01, .751915D+01, .643912D+01, .552544D+01, - + .475626D+01, .409616D+01, .353221D+01, .304627D+01 / - DATA (UPDI(I),I=8789,8840) / - + .262606D+01, .226167D+01, .194505D+01, .166962D+01, - + .142988D+01, .122127D+01, .103985D+01, .882309D+00, - + .745732D+00, .627630D+00, .525616D+00, .438260D+00, - + .362912D+00, .298631D+00, .244033D+00, .197907D+00, - + .159158D+00, .126819D+00, .100019D+00, .780011D-01, - + .600760D-01, .455832D-01, .341220D-01, .250410D-01, - + .180058D-01, .126477D-01, .864452D-02, .572253D-02, - + .364417D-02, .221898D-02, .127240D-02, .680387D-03, - + .331060D-03, .141935D-03, .508142D-04, .139129D-04, - + .253823D-05, .251196D-06, .000000D+00, .330282D+07, - + .245408D+07, .178619D+07, .129916D+07, .944274D+06, - + .685779D+06, .497692D+06, .360897D+06, .261514D+06, - + .189343D+06, .136993D+06, .990368D+05, .715488D+05 / - DATA (UPDI(I),I=8841,8892) / - + .516513D+05, .372648D+05, .268676D+05, .193623D+05, - + .139466D+05, .100432D+05, .723076D+04, .520649D+04, - + .374971D+04, .270233D+04, .194921D+04, .140806D+04, - + .101894D+04, .739531D+03, .536063D+03, .392038D+03, - + .288169D+03, .213139D+03, .158782D+03, .119272D+03, - + .905023D+02, .693338D+02, .537028D+02, .420768D+02, - + .333498D+02, .267370D+02, .216678D+02, .177437D+02, - + .146631D+02, .122169D+02, .102505D+02, .865210D+01, - + .733835D+01, .625219D+01, .533703D+01, .456993D+01, - + .391464D+01, .335751D+01, .287989D+01, .246904D+01, - + .211472D+01, .180859D+01, .154383D+01, .131474D+01, - + .111659D+01, .945327D+00, .797521D+00, .670188D+00, - + .560776D+00, .466869D+00, .386973D+00, .318512D+00 / - DATA (UPDI(I),I=8893,8944) / - + .260493D+00, .211545D+00, .170474D+00, .136211D+00, - + .107817D+00, .844567D-01, .654052D-01, .500130D-01, - + .376642D-01, .279769D-01, .203653D-01, .145196D-01, - + .101079D-01, .684332D-02, .448449D-02, .282481D-02, - + .169993D-02, .962231D-03, .507240D-03, .242902D-03, - + .102276D-03, .358770D-04, .960770D-05, .172100D-05, - + .172191D-06, .000000D+00, .159314D+05, .257178D+05, - + .206374D+05, .165624D+05, .132936D+05, .106714D+05, - + .856784D+04, .688015D+04, .552603D+04, .443947D+04, - + .356751D+04, .286771D+04, .230599D+04, .185506D+04, - + .149301D+04, .120226D+04, .968736D+03, .781122D+03, - + .630357D+03, .509167D+03, .411719D+03, .333330D+03, - + .270245D+03, .219452D+03, .178531D+03, .145542D+03 / - DATA (UPDI(I),I=8945,8996) / - + .118928D+03, .971636D+02, .798514D+02, .658400D+02, - + .544844D+02, .452668D+02, .377709D+02, .316785D+02, - + .266877D+02, .226001D+02, .192405D+02, .164682D+02, - + .141697D+02, .122532D+02, .106480D+02, .929256D+01, - + .814061D+01, .715458D+01, .630453D+01, .556671D+01, - + .492446D+01, .435662D+01, .385820D+01, .341351D+01, - + .301939D+01, .266787D+01, .235385D+01, .207305D+01, - + .182186D+01, .159723D+01, .139651D+01, .121737D+01, - + .105777D+01, .915860D+00, .789974D+00, .678594D+00, - + .580330D+00, .494282D+00, .418399D+00, .352168D+00, - + .294597D+00, .244782D+00, .201891D+00, .165165D+00, - + .133909D+00, .107490D+00, .853144D-01, .668441D-01, - + .517455D-01, .393561D-01, .293942D-01, .214979D-01 / - DATA (UPDI(I),I=8997,9048) / - + .153426D-01, .106382D-01, .712635D-02, .458176D-02, - + .279041D-02, .159418D-02, .835358D-03, .388985D-03, - + .152649D-03, .457073D-04, .835368D-05, .456436D-06, - + .000000D+00, .900584D+05, .702560D+05, .541706D+05, - + .418022D+05, .322866D+05, .249583D+05, .193117D+05, - + .149561D+05, .115948D+05, .899763D+04, .698991D+04, - + .543595D+04, .423253D+04, .329936D+04, .257534D+04, - + .201281D+04, .157549D+04, .123499D+04, .969720D+03, - + .762722D+03, .601092D+03, .474663D+03, .375690D+03, - + .298066D+03, .237126D+03, .189196D+03, .151459D+03, - + .121291D+03, .978276D+02, .792268D+02, .644607D+02, - + .526982D+02, .433102D+02, .358078D+02, .297647D+02, - + .248884D+02, .209400D+02, .177237D+02, .150917D+02 / - DATA (UPDI(I),I=9049,9100) / - + .129218D+02, .111251D+02, .962305D+01, .835942D+01, - + .728751D+01, .637205D+01, .558418D+01, .490438D+01, - + .430820D+01, .378938D+01, .333016D+01, .292648D+01, - + .256925D+01, .225265D+01, .197170D+01, .172229D+01, - + .150091D+01, .130453D+01, .113053D+01, .976599D+00, - + .840694D+00, .720963D+00, .615772D+00, .523568D+00, - + .443380D+00, .373125D+00, .312218D+00, .259625D+00, - + .214425D+00, .175768D+00, .142896D+00, .115111D+00, - + .917921D-01, .723650D-01, .562998D-01, .432680D-01, - + .326591D-01, .241981D-01, .175499D-01, .124135D-01, - + .852623D-02, .565279D-02, .359435D-02, .216409D-02, - + .122156D-02, .631288D-03, .289357D-03, .111448D-03, - + .326578D-04, .585018D-05, .324957D-06, .000000D+00 / - DATA (UPDI(I),I=9101,9152) / - + .160100D+06, .123650D+06, .942331D+05, .718479D+05, - + .548126D+05, .418374D+05, .319547D+05, .244207D+05, - + .186769D+05, .142936D+05, .109483D+05, .839256D+04, - + .643973D+04, .494584D+04, .380286D+04, .292722D+04, - + .225625D+04, .174136D+04, .134614D+04, .104228D+04, - + .808596D+03, .628541D+03, .489735D+03, .382513D+03, - + .299625D+03, .235418D+03, .185642D+03, .146443D+03, - + .116413D+03, .929508D+02, .745968D+02, .601796D+02, - + .488320D+02, .398827D+02, .327679D+02, .270964D+02, - + .225590D+02, .189036D+02, .159447D+02, .135294D+02, - + .115491D+02, .990825D+01, .854017D+01, .738922D+01, - + .641439D+01, .558197D+01, .486938D+01, .424915D+01, - + .371354D+01, .324294D+01, .283234D+01, .247162D+01 / - DATA (UPDI(I),I=9153,9204) / - + .215422D+01, .187456D+01, .162803D+01, .141072D+01, - + .121924D+01, .105073D+01, .902643D+00, .772751D+00, - + .659054D+00, .559819D+00, .473369D+00, .398666D+00, - + .333622D+00, .277591D+00, .229513D+00, .188458D+00, - + .153572D+00, .124101D+00, .993530D-01, .787247D-01, - + .616611D-01, .476479D-01, .363642D-01, .272483D-01, - + .200351D-01, .144144D-01, .101094D-01, .688161D-02, - + .451833D-02, .284353D-02, .169115D-02, .941396D-03, - + .478979D-03, .215729D-03, .813910D-04, .232836D-04, - + .407883D-05, .231106D-06, .000000D+00, .244400D+06, - + .187716D+06, .142126D+06, .107630D+06, .815350D+05, - + .617807D+05, .468317D+05, .355104D+05, .269391D+05, - + .204444D+05, .155247D+05, .117946D+05, .896716D+04 / - DATA (UPDI(I),I=9205,9256) / - + .682181D+04, .519432D+04, .395830D+04, .301972D+04, - + .230609D+04, .176354D+04, .135045D+04, .103594D+04, - + .796079D+03, .613102D+03, .473256D+03, .366320D+03, - + .284393D+03, .221592D+03, .172690D+03, .135651D+03, - + .107040D+03, .849122D+02, .677250D+02, .543476D+02, - + .439125D+02, .357057D+02, .292316D+02, .241048D+02, - + .200144D+02, .167346D+02, .140812D+02, .119246D+02, - + .101523D+02, .868641D+01, .746263D+01, .643394D+01, - + .556190D+01, .482082D+01, .418032D+01, .363114D+01, - + .315195D+01, .273674D+01, .237445D+01, .205782D+01, - + .178070D+01, .153801D+01, .132547D+01, .113939D+01, - + .976677D+00, .834568D+00, .710696D+00, .602932D+00, - + .509455D+00, .428500D+00, .358969D+00, .298787D+00 / - DATA (UPDI(I),I=9257,9308) / - + .247260D+00, .203311D+00, .166013D+00, .134514D+00, - + .108069D+00, .860040D-01, .677315D-01, .527190D-01, - + .404723D-01, .306808D-01, .228281D-01, .166613D-01, - + .118946D-01, .827399D-02, .558350D-02, .363181D-02, - + .226292D-02, .133118D-02, .732260D-03, .367691D-03, - + .163221D-03, .605958D-04, .170544D-04, .296205D-05, - + .172737D-06, .000000D+00, .250163D+06, .264505D+06, - + .199311D+06, .150188D+06, .113191D+06, .853095D+05, - + .643098D+05, .484830D+05, .365616D+05, .275756D+05, - + .208059D+05, .157020D+05, .118559D+05, .895526D+04, - + .676866D+04, .511877D+04, .387436D+04, .293476D+04, - + .222554D+04, .168956D+04, .128461D+04, .978192D+03, - + .746341D+03, .570615D+03, .437390D+03, .336211D+03 / - DATA (UPDI(I),I=9309,9360) / - + .259349D+03, .200045D+03, .155544D+03, .121490D+03, - + .953999D+02, .753277D+02, .598521D+02, .478942D+02, - + .385770D+02, .312943D+02, .255786D+02, .210580D+02, - + .174639D+02, .145800D+02, .122544D+02, .103578D+02, - + .880063D+01, .750994D+01, .643259D+01, .552557D+01, - + .475996D+01, .410267D+01, .354284D+01, .305757D+01, - + .263982D+01, .227767D+01, .196317D+01, .168966D+01, - + .145163D+01, .124445D+01, .106417D+01, .907480D+00, - + .771451D+00, .653582D+00, .551643D+00, .463739D+00, - + .388044D+00, .323406D+00, .267783D+00, .220435D+00, - + .180286D+00, .146414D+00, .117978D+00, .942498D-01, - + .745719D-01, .583796D-01, .451631D-01, .344515D-01, - + .259460D-01, .191729D-01, .138931D-01, .984371D-02 / - DATA (UPDI(I),I=9361,9412) / - + .679285D-02, .454530D-02, .292964D-02, .180772D-02, - + .105211D-02, .572075D-03, .283589D-03, .124117D-03, - + .453591D-04, .125623D-04, .216036D-05, .129239D-06, - + .000000D+00, .486029D+06, .370387D+06, .277841D+06, - + .208391D+06, .156299D+06, .117213D+06, .879029D+05, - + .659157D+05, .494319D+05, .370689D+05, .278019D+05, - + .208526D+05, .156442D+05, .117386D+05, .881149D+04, - + .661638D+04, .497102D+04, .373683D+04, .281145D+04, - + .211702D+04, .159606D+04, .120482D+04, .911035D+03, - + .690134D+03, .524010D+03, .398901D+03, .304676D+03, - + .232619D+03, .179032D+03, .138405D+03, .107564D+03, - + .840624D+02, .661113D+02, .523733D+02, .417687D+02, - + .335580D+02, .271726D+02, .221684D+02, .182243D+02 / - DATA (UPDI(I),I=9413,9464) / - + .150870D+02, .125778D+02, .105482D+02, .889468D+01, - + .753476D+01, .640807D+01, .546654D+01, .467756D+01, - + .400509D+01, .343642D+01, .294700D+01, .252863D+01, - + .216848D+01, .185787D+01, .158960D+01, .135771D+01, - + .115723D+01, .983928D+00, .834294D+00, .705235D+00, - + .594127D+00, .498652D+00, .416847D+00, .346841D+00, - + .287437D+00, .236640D+00, .193674D+00, .157473D+00, - + .127128D+00, .101818D+00, .808379D-01, .635551D-01, - + .494316D-01, .379857D-01, .287749D-01, .215156D-01, - + .157794D-01, .113440D-01, .797092D-02, .545213D-02, - + .361401D-02, .230579D-02, .140725D-02, .809143D-03, - + .434087D-03, .211924D-03, .911316D-04, .326123D-04, - + .880578D-05, .147310D-05, .887448D-07, .000000D+00 / - DATA (UPDI(I),I=9465,9516) / - + .658317D+06, .499955D+06, .373506D+06, .278968D+06, - + .208328D+06, .155533D+06, .116103D+06, .866482D+05, - + .646605D+05, .482429D+05, .359928D+05, .268499D+05, - + .200307D+05, .149430D+05, .111496D+05, .832017D+04, - + .621101D+04, .463800D+04, .346550D+04, .259100D+04, - + .193907D+04, .145265D+04, .108983D+04, .818913D+03, - + .616622D+03, .465389D+03, .352349D+03, .266579D+03, - + .203302D+03, .155719D+03, .119893D+03, .928233D+02, - + .723200D+02, .567638D+02, .448567D+02, .357167D+02, - + .286675D+02, .231893D+02, .189063D+02, .155266D+02, - + .128443D+02, .106911D+02, .894965D+01, .752787D+01, - + .635822D+01, .538766D+01, .457996D+01, .389629D+01, - + .332210D+01, .283130D+01, .241458D+01, .205828D+01 / - DATA (UPDI(I),I=9517,9568) / - + .175304D+01, .149116D+01, .126627D+01, .107312D+01, - + .907235D+00, .764923D+00, .642960D+00, .538627D+00, - + .449539D+00, .373685D+00, .309172D+00, .254771D+00, - + .208542D+00, .169686D+00, .137157D+00, .110064D+00, - + .876134D-01, .691261D-01, .539994D-01, .417233D-01, - + .318456D-01, .239538D-01, .177808D-01, .129410D-01, - + .922932D-02, .643064D-02, .435959D-02, .286259D-02, - + .180788D-02, .109140D-02, .620091D-03, .328364D-03, - + .158016D-03, .668730D-04, .235109D-04, .623177D-05, - + .102871D-05, .635486D-07, .000000D+00, .868393D+06, - + .657345D+06, .489186D+06, .363918D+06, .270658D+06, - + .201220D+06, .149561D+06, .111123D+06, .825461D+05, - + .612980D+05, .455116D+05, .337816D+05, .250723D+05 / - DATA (UPDI(I),I=9569,9620) / - + .186049D+05, .138060D+05, .102443D+05, .760273D+04, - + .564307D+04, .419023D+04, .311271D+04, .231402D+04, - + .172165D+04, .128249D+04, .956634D+03, .714895D+03, - + .535371D+03, .402106D+03, .301711D+03, .228179D+03, - + .173298D+03, .132285D+03, .101535D+03, .784229D+02, - + .610259D+02, .478132D+02, .377512D+02, .300506D+02, - + .241127D+02, .195049D+02, .158962D+02, .130526D+02, - + .107864D+02, .896608D+01, .749019D+01, .628416D+01, - + .529012D+01, .446835D+01, .377738D+01, .320086D+01, - + .271134D+01, .229843D+01, .194769D+01, .164917D+01, - + .139471D+01, .117759D+01, .992303D+00, .834181D+00, - + .699384D+00, .584584D+00, .486992D+00, .404177D+00, - + .334101D+00, .274865D+00, .225221D+00, .183297D+00 / - DATA (UPDI(I),I=9621,9672) / - + .148280D+00, .119148D+00, .950404D-01, .751925D-01, - + .589557D-01, .457595D-01, .351240D-01, .266271D-01, - + .198872D-01, .146548D-01, .105846D-01, .748840D-02, - + .517380D-02, .347638D-02, .226110D-02, .141353D-02, - + .844076D-03, .473886D-03, .247705D-03, .117506D-03, - + .489500D-04, .169147D-04, .440494D-05, .718692D-06, - + .455448D-07, .000000D+00, .112269D+07, .847142D+06, - + .628050D+06, .465420D+06, .344781D+06, .255289D+06, - + .188961D+06, .139800D+06, .103396D+06, .764370D+05, - + .564907D+05, .417328D+05, .308232D+05, .227581D+05, - + .168010D+05, .124006D+05, .915279D+04, .675538D+04, - + .498708D+04, .368248D+04, .272070D+04, .201133D+04, - + .148843D+04, .110273D+04, .818325D+03, .608418D+03 / - DATA (UPDI(I),I=9673,9724) / - + .453600D+03, .337740D+03, .253455D+03, .190982D+03, - + .144621D+03, .110111D+03, .843591D+02, .651170D+02, - + .506089D+02, .396420D+02, .313094D+02, .249308D+02, - + .200160D+02, .161938D+02, .132025D+02, .108345D+02, - + .894505D+01, .742311D+01, .618741D+01, .517546D+01, - + .434421D+01, .364972D+01, .307396D+01, .258820D+01, - + .218107D+01, .183745D+01, .154684D+01, .130068D+01, - + .109197D+01, .914968D+00, .764859D+00, .637686D+00, - + .530046D+00, .439103D+00, .362405D+00, .297901D+00, - + .243705D+00, .198562D+00, .160673D+00, .129224D+00, - + .103225D+00, .818454D-01, .643572D-01, .501445D-01, - + .386708D-01, .294870D-01, .222021D-01, .164650D-01, - + .120445D-01, .863265D-02, .605853D-02, .415062D-02 / - DATA (UPDI(I),I=9725,9776) / - + .276406D-02, .178078D-02, .110196D-02, .650872D-03, - + .361087D-03, .186313D-03, .871327D-04, .357329D-04, - + .121393D-04, .310735D-05, .501251D-06, .325680D-07, - + .000000D+00, .142803D+07, .107417D+07, .793392D+06, - + .585714D+06, .432211D+06, .318758D+06, .234983D+06, - + .173129D+06, .127502D+06, .938491D+05, .690507D+05, - + .507792D+05, .373293D+05, .274297D+05, .201500D+05, - + .147973D+05, .108650D+05, .797622D+04, .585595D+04, - + .429957D+04, .315809D+04, .232065D+04, .170670D+04, - + .125639D+04, .926237D+03, .683995D+03, .506413D+03, - + .374352D+03, .278894D+03, .208601D+03, .156779D+03, - + .118465D+03, .900676D+02, .689953D+02, .532160D+02, - + .413712D+02, .324328D+02, .256374D+02, .204363D+02 / - DATA (UPDI(I),I=9777,9828) / - + .164184D+02, .132940D+02, .108367D+02, .888804D+01, - + .732832D+01, .606973D+01, .504538D+01, .420911D+01, - + .351474D+01, .294261D+01, .246294D+01, .206339D+01, - + .172827D+01, .144659D+01, .120949D+01, .100968D+01, - + .841281D+00, .699339D+00, .579819D+00, .479273D+00, - + .394840D+00, .324063D+00, .264899D+00, .215489D+00, - + .174581D+00, .140458D+00, .112309D+00, .891842D-01, - + .702882D-01, .549310D-01, .425315D-01, .325887D-01, - + .246850D-01, .184599D-01, .135926D-01, .987057D-02, - + .702019D-02, .488728D-02, .331992D-02, .219112D-02, - + .139826D-02, .856454D-03, .500360D-03, .274299D-03, - + .139712D-03, .644190D-04, .260108D-04, .868981D-05, - + .218725D-05, .348929D-06, .232310D-07, .000000D+00 / - DATA (UPDI(I),I=9829,9880) / - + .179150D+07, .134338D+07, .988567D+06, .727055D+06, - + .534451D+06, .392619D+06, .288278D+06, .211531D+06, - + .155136D+06, .113704D+06, .832961D+05, .609833D+05, - + .446270D+05, .326396D+05, .238630D+05, .174383D+05, - + .127400D+05, .930465D+04, .679517D+04, .496211D+04, - + .362440D+04, .264805D+04, .193600D+04, .141655D+04, - + .103781D+04, .761469D+03, .560072D+03, .411198D+03, - + .304244D+03, .225974D+03, .168632D+03, .126509D+03, - + .954893D+02, .726220D+02, .556097D+02, .429235D+02, - + .334120D+02, .262280D+02, .207641D+02, .165698D+02, - + .133282D+02, .107943D+02, .879694D+01, .720780D+01, - + .593303D+01, .490167D+01, .406467D+01, .337385D+01, - + .280806D+01, .233657D+01, .194622D+01, .162080D+01 / - DATA (UPDI(I),I=9881,9932) / - + .134893D+01, .112148D+01, .930966D+00, .771369D+00, - + .637662D+00, .525754D+00, .432178D+00, .354070D+00, - + .288989D+00, .234913D+00, .190021D+00, .153079D+00, - + .122451D+00, .973409D-01, .768411D-01, .601959D-01, - + .467547D-01, .359732D-01, .273857D-01, .206062D-01, - + .153043D-01, .111888D-01, .806536D-02, .569206D-02, - + .393071D-02, .264748D-02, .173167D-02, .109455D-02, - + .663596D-03, .383463D-03, .207726D-03, .104446D-03, - + .474836D-04, .188798D-04, .620441D-05, .153617D-05, - + .242421D-06, .165299D-07, .000000D+00, .222031D+07, - + .165980D+07, .121691D+07, .891651D+06, .652950D+06, - + .477815D+06, .349449D+06, .255387D+06, .186533D+06, - + .136145D+06, .993109D+05, .723921D+05, .527405D+05 / - DATA (UPDI(I),I=9933,9984) / - + .383987D+05, .279432D+05, .203230D+05, .147753D+05, - + .107374D+05, .780146D+04, .566712D+04, .411712D+04, - + .299145D+04, .217469D+04, .158195D+04, .115208D+04, - + .840134D+03, .614060D+03, .447910D+03, .329242D+03, - + .242918D+03, .180054D+03, .134159D+03, .100569D+03, - + .759617D+02, .577683D+02, .442863D+02, .342404D+02, - + .266996D+02, .209989D+02, .166491D+02, .133070D+02, - + .107096D+02, .867400D+01, .706373D+01, .577936D+01, - + .474618D+01, .391253D+01, .322846D+01, .267148D+01, - + .221007D+01, .183033D+01, .151564D+01, .125430D+01, - + .103696D+01, .856008D+00, .705323D+00, .579836D+00, - + .475435D+00, .388656D+00, .316652D+00, .257016D+00, - + .207758D+00, .167110D+00, .133860D+00, .106462D+00 / - DATA (UPDI(I),I=9985,10036) / - + .841369D-01, .660244D-01, .514101D-01, .396847D-01, - + .303409D-01, .229484D-01, .171524D-01, .126518D-01, - + .918341D-02, .657101D-02, .460156D-02, .315194D-02, - + .210488D-02, .136440D-02, .854175D-03, .512580D-03, - + .292967D-03, .156825D-03, .778428D-04, .348960D-04, - + .136648D-04, .441845D-05, .107651D-05, .168099D-06, - + .117332D-07, .000000D+00, .272162D+07, .202833D+07, - + .148166D+07, .108160D+07, .789060D+06, .575204D+06, - + .419031D+06, .305024D+06, .221887D+06, .161284D+06, - + .117155D+06, .850344D+05, .616809D+05, .447083D+05, - + .323870D+05, .234458D+05, .169648D+05, .122688D+05, - + .886991D+04, .641056D+04, .463299D+04, .334835D+04, - + .242085D+04, .175117D+04, .126801D+04, .919227D+03 / - DATA (UPDI(I),I=10037,10088) / - + .667834D+03, .484107D+03, .353628D+03, .259257D+03, - + .190928D+03, .141339D+03, .105258D+03, .789843D+02, - + .596741D+02, .454502D+02, .349138D+02, .270514D+02, - + .211417D+02, .166583D+02, .132326D+02, .105852D+02, - + .852177D+01, .689849D+01, .561086D+01, .458079D+01, - + .375430D+01, .307994D+01, .253399D+01, .208434D+01, - + .171642D+01, .141332D+01, .116307D+01, .956182D+00, - + .784943D+00, .643190D+00, .525839D+00, .428782D+00, - + .348584D+00, .282434D+00, .227971D+00, .183252D+00, - + .146568D+00, .116740D+00, .923110D-01, .725269D-01, - + .565758D-01, .437863D-01, .335909D-01, .255192D-01, - + .191762D-01, .142371D-01, .104291D-01, .751574D-02, - + .533796D-02, .370906D-02, .251997D-02, .166849D-02 / - DATA (UPDI(I),I=10089,10140) / - + .107178D-02, .664565D-03, .394722D-03, .223143D-03, - + .118035D-03, .578406D-04, .255701D-04, .986277D-05, - + .313863D-05, .752737D-06, .116342D-06, .830853D-08, - + .000000D+00, .330236D+07, .245367D+07, .178583D+07, - + .129884D+07, .943989D+06, .685527D+06, .497471D+06, - + .360702D+06, .261341D+06, .189191D+06, .136858D+06, - + .989183D+05, .714443D+05, .515592D+05, .371836D+05, - + .267961D+05, .192991D+05, .138909D+05, .999410D+04, - + .718738D+04, .516816D+04, .371582D+04, .267233D+04, - + .192263D+04, .138446D+04, .997954D+03, .720842D+03, - + .519413D+03, .377147D+03, .274820D+03, .201143D+03, - + .147977D+03, .109513D+03, .816650D+02, .613138D+02, - + .464091D+02, .354305D+02, .272842D+02, .211947D+02 / - DATA (UPDI(I),I=10141,10192) / - + .166001D+02, .131082D+02, .104241D+02, .834299D+01, - + .671456D+01, .542970D+01, .440738D+01, .359157D+01, - + .292958D+01, .239664D+01, .196020D+01, .160512D+01, - + .131428D+01, .107555D+01, .879328D+00, .717862D+00, - + .584978D+00, .475613D+00, .385691D+00, .311824D+00, - + .251253D+00, .201678D+00, .161212D+00, .128212D+00, - + .101541D+00, .798282D-01, .623519D-01, .483490D-01, - + .371921D-01, .283552D-01, .214049D-01, .159796D-01, - + .117843D-01, .857269D-02, .613342D-02, .432385D-02, - + .298101D-02, .200882D-02, .131867D-02, .839420D-03, - + .515498D-03, .303051D-03, .169449D-03, .885744D-04, - + .428514D-04, .186829D-04, .709932D-05, .222405D-05, - + .525226D-06, .803740D-07, .586984D-08, .000000D+00 / -C----------------------------------------------------------------------- -C - Dr = DrI - Fl = FlI - Al = AlI - DO I=1,6 - Amass(I) = AmassI(I) - ENDDO - Iorder = Nint(Dr) - Nfl = Nint(Fl) - Alambda = Al -C - NX = NxI - NT = NTI - NfMx = NfMxI -C - QINI = QINII - QMAX = QMAXI - DO I=0,NT - QL(I) = QLI(I) - ENDDO -C - XMIN = XMINI - DO I=0,NX - XV(I) = XVI(I) - ENDDO -C - Do 11 Iq = 0, NT - QL(Iq) = Log (QL(Iq) /Al) - 11 Continue -C -C Since quark = anti-quark for nfl>2 at this stage, -C we Read out only the non-redundent data points -C No of flavors = NfMx (sea) + 1 (gluon) + 2 (valence) - - Nblk = (NX+1) * (NT+1) - Npts = Nblk * (NfMx+3) - DO I=1,Npts - UPD(I) = UPDI(I) - ENDDO -C - Return -C **************************** - End diff --git a/PDF/spdf/ctq4RD.F b/PDF/spdf/ctq4RD.F deleted file mode 100644 index 44d4a9bd1d1..00000000000 --- a/PDF/spdf/ctq4RD.F +++ /dev/null @@ -1,2838 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" - Subroutine Ctq4RD (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 : CTEQ4D -C PARAMETER (ISET=2) - DATA DrI, FlI, AlI / 2., 5., .2020 / - 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, .203369D+01, .265779D+01, .358285D+01, .500000D+01, - + .794903D+01, .135129D+02, .248012D+02, .496935D+02, .110086D+03, - + .273574D+03, .775412D+03, .255482D+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) / - + .226654D+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, .897108D+05, - + .686463D+05, .517218D+05, .389374D+05, .292956D+05, - + .220207D+05, .165416D+05, .124134D+05, .930878D+04, - + .697318D+04, .521954D+04, .390241D+04, .291518D+04 / - DATA (UPDI(I),I=469,520) / - + .217500D+04, .162125D+04, .120687D+04, .897493D+03, - + .666456D+03, .494347D+03, .366111D+03, .270819D+03, - + .199996D+03, .147501D+03, .108592D+03, .798304D+02, - + .585835D+02, .429415D+02, .312733D+02, .228460D+02, - + .166570D+02, .121304D+02, .881848D+01, .640438D+01, - + .464946D+01, .337199D+01, .244431D+01, .177337D+01, - + .128721D+01, .936279D+00, .682179D+00, .498985D+00, - + .366110D+00, .269832D+00, .199688D+00, .148575D+00, - + .111012D+00, .834718D-01, .628547D-01, .476389D-01, - + .361111D-01, .274702D-01, .209009D-01, .159135D-01, - + .120971D-01, .918436D-02, .694634D-02, .523485D-02, - + .392273D-02, .292526D-02, .216467D-02, .159116D-02, - + .115845D-02, .835839D-03, .597217D-03, .420800D-03 / - DATA (UPDI(I),I=521,572) / - + .291664D-03, .198804D-03, .132360D-03, .857791D-04, - + .532939D-04, .312489D-04, .163928D-04, .674397D-05, - + .660468D-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, .205743D+06, .156969D+06, - + .117863D+06, .884242D+05, .662953D+05, .496568D+05, - + .371677D+05, .277914D+05, .207643D+05, .154971D+05, - + .115563D+05, .860740D+04, .640513D+04, .476028D+04, - + .353429D+04, .262045D+04, .194078D+04, .143526D+04, - + .106015D+04, .781820D+03, .575825D+03, .423380D+03, - + .310854D+03, .227820D+03, .166706D+03, .121761D+03 / - DATA (UPDI(I),I=573,624) / - + .888208D+02, .643667D+02, .467867D+02, .339403D+02, - + .245888D+02, .177820D+02, .128448D+02, .927473D+01, - + .668910D+01, .482181D+01, .347828D+01, .251030D+01, - + .181526D+01, .131488D+01, .956033D+00, .697237D+00, - + .510716D+00, .375609D+00, .277674D+00, .206120D+00, - + .153942D+00, .115127D+00, .866363D-01, .651987D-01, - + .492304D-01, .371793D-01, .280929D-01, .211942D-01, - + .159678D-01, .119856D-01, .896471D-02, .666883D-02, - + .493751D-02, .362910D-02, .265064D-02, .191893D-02, - + .137798D-02, .981230D-03, .690430D-03, .479449D-03, - + .329001D-03, .222232D-03, .147922D-03, .964239D-04, - + .616091D-04, .381510D-04, .227522D-04, .128320D-04, - + .669470D-05, .292815D-05, .787968D-06, .000000D+00 / - DATA (UPDI(I),I=625,676) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .353063D+06, .268559D+06, .200947D+06, - + .150227D+06, .112230D+06, .837620D+05, .624672D+05, - + .465376D+05, .346414D+05, .257573D+05, .191343D+05, - + .141972D+05, .105236D+05, .779042D+04, .576093D+04, - + .425417D+04, .313783D+04, .231092D+04, .169975D+04, - + .124817D+04, .915305D+03, .670029D+03, .489744D+03, - + .357296D+03, .260240D+03, .189182D+03, .137337D+03, - + .990341D+02, .716269D+02, .516986D+02, .372607D+02, - + .268055D+02, .192593D+02, .138317D+02, .992055D+01, - + .711149D+01, .510080D+01, .366033D+01, .263147D+01 / - DATA (UPDI(I),I=677,728) / - + .189501D+01, .136963D+01, .992886D+00, .722813D+00, - + .528308D+00, .388067D+00, .286201D+00, .212325D+00, - + .157715D+00, .117853D+00, .880627D-01, .660120D-01, - + .494913D-01, .371196D-01, .277983D-01, .207876D-01, - + .154892D-01, .115008D-01, .849501D-02, .624554D-02, - + .455993D-02, .330902D-02, .238132D-02, .170064D-02, - + .120524D-02, .844825D-03, .585382D-03, .401644D-03, - + .272160D-03, .182554D-03, .120801D-03, .791885D-04, - + .512019D-04, .327713D-04, .207975D-04, .132245D-04, - + .838629D-05, .540409D-05, .353667D-05, .239559D-05, - + .166217D-05, .119868D-05, .872543D-06, .641448D-06, - + .459211D-06, .315701D-06, .200342D-06, .112761D-06, - + .516724D-07, .153904D-07, .119126D-08, .000000D+00 / - DATA (UPDI(I),I=729,780) / - + .537276D+06, .407439D+06, .303778D+06, .226292D+06, - + .168443D+06, .125258D+06, .930688D+05, .690780D+05, - + .512260D+05, .379442D+05, .280790D+05, .207532D+05, - + .153226D+05, .112980D+05, .832107D+04, .611973D+04, - + .449518D+04, .329675D+04, .241456D+04, .176547D+04, - + .128900D+04, .939413D+03, .683555D+03, .496420D+03, - + .359895D+03, .260391D+03, .188120D+03, .134983D+03, - + .971416D+02, .697622D+02, .500207D+02, .357980D+02, - + .255834D+02, .182752D+02, .130355D+02, .929280D+01, - + .662771D+01, .472908D+01, .338016D+01, .242005D+01, - + .173874D+01, .125295D+01, .906569D+00, .658537D+00, - + .480662D+00, .352212D+00, .259571D+00, .191518D+00, - + .142124D+00, .105459D+00, .784898D-01, .584287D-01 / - DATA (UPDI(I),I=781,832) / - + .435068D-01, .323484D-01, .240155D-01, .177675D-01, - + .130996D-01, .960994D-02, .701755D-02, .509068D-02, - + .367115D-02, .262670D-02, .186577D-02, .131597D-02, - + .918721D-03, .634820D-03, .435000D-03, .295066D-03, - + .198702D-03, .132615D-03, .881935D-04, .583619D-04, - + .386723D-04, .257963D-04, .175236D-04, .121014D-04, - + .859959D-05, .625646D-05, .466914D-05, .352084D-05, - + .267479D-05, .200426D-05, .146940D-05, .103231D-05, - + .683654D-06, .413598D-06, .219190D-06, .934045D-07, - + .258026D-07, .206160D-08, .000000D+00, .764386D+06, - + .577888D+06, .429307D+06, .318644D+06, .236317D+06, - + .175083D+06, .129604D+06, .958337D+05, .707965D+05, - + .522395D+05, .385074D+05, .283494D+05, .208480D+05 / - DATA (UPDI(I),I=833,884) / - + .153107D+05, .112306D+05, .822572D+04, .601697D+04, - + .439430D+04, .320469D+04, .233310D+04, .169596D+04, - + .123053D+04, .891347D+03, .644371D+03, .464989D+03, - + .334837D+03, .240740D+03, .171888D+03, .123086D+03, - + .879517D+02, .627394D+02, .446679D+02, .317534D+02, - + .225618D+02, .160054D+02, .113473D+02, .804756D+01, - + .570985D+01, .405775D+01, .288842D+01, .206304D+01, - + .147782D+01, .106280D+01, .767298D+00, .556528D+00, - + .405204D+00, .296676D+00, .217447D+00, .160270D+00, - + .118108D+00, .872921D-01, .645300D-01, .477123D-01, - + .352283D-01, .259704D-01, .190819D-01, .139732D-01, - + .101834D-01, .738815D-02, .532651D-02, .381836D-02, - + .271703D-02, .192003D-02, .134810D-02, .937524D-03 / - DATA (UPDI(I),I=885,936) / - + .646057D-03, .442070D-03, .300029D-03, .202634D-03, - + .136118D-03, .914899D-04, .615445D-04, .417310D-04, - + .286888D-04, .201931D-04, .145092D-04, .107109D-04, - + .806150D-05, .616521D-05, .472438D-05, .360646D-05, - + .269674D-05, .195610D-05, .135347D-05, .877740D-06, - + .517723D-06, .265870D-06, .108891D-06, .287924D-07, - + .234200D-08, .000000D+00, .104071D+07, .784368D+06, - + .580580D+06, .429349D+06, .317244D+06, .234167D+06, - + .172688D+06, .127209D+06, .936149D+05, .688103D+05, - + .505241D+05, .370498D+05, .271375D+05, .198495D+05, - + .145006D+05, .105771D+05, .770469D+04, .560319D+04, - + .406884D+04, .294944D+04, .213459D+04, .154192D+04, - + .111187D+04, .800124D+03, .574707D+03, .411892D+03 / - DATA (UPDI(I),I=937,988) / - + .294721D+03, .209395D+03, .149204D+03, .106082D+03, - + .752873D+02, .533256D+02, .377088D+02, .266516D+02, - + .188043D+02, .132589D+02, .935100D+01, .659755D+01, - + .466192D+01, .329948D+01, .234289D+01, .166840D+01, - + .119264D+01, .855812D+00, .616866D+00, .446300D+00, - + .324662D+00, .236405D+00, .173079D+00, .126690D+00, - + .929967D-01, .682808D-01, .501402D-01, .367702D-01, - + .269234D-01, .196508D-01, .142956D-01, .103524D-01, - + .746416D-02, .534965D-02, .381324D-02, .269928D-02, - + .189828D-02, .132720D-02, .919711D-03, .632231D-03, - + .432080D-03, .293425D-03, .198709D-03, .134249D-03, - + .910494D-04, .620658D-04, .428306D-04, .300792D-04, - + .216639D-04, .159302D-04, .119921D-04, .916191D-05 / - DATA (UPDI(I),I=989,1040) / - + .706472D-05, .542950D-05, .413037D-05, .306618D-05, - + .219756D-05, .149824D-05, .953843D-06, .550489D-06, - + .275264D-06, .109028D-06, .277889D-07, .229487D-08, - + .000000D+00, .137276D+07, .103144D+07, .760671D+06, - + .560467D+06, .412592D+06, .303410D+06, .222908D+06, - + .163580D+06, .119918D+06, .878032D+05, .642172D+05, - + .469053D+05, .342190D+05, .249285D+05, .181366D+05, - + .131749D+05, .955695D+04, .692098D+04, .500431D+04, - + .361191D+04, .260259D+04, .187166D+04, .134358D+04, - + .962469D+03, .688122D+03, .490859D+03, .349549D+03, - + .247135D+03, .175232D+03, .123970D+03, .875374D+02, - + .616857D+02, .433934D+02, .305083D+02, .214100D+02, - + .150145D+02, .105309D+02, .738881D+01, .519160D+01 / - DATA (UPDI(I),I=1041,1092) / - + .365350D+01, .257926D+01, .182599D+01, .129753D+01, - + .925475D+00, .662975D+00, .476667D+00, .344552D+00, - + .249272D+00, .181304D+00, .131835D+00, .961291D-01, - + .701133D-01, .511433D-01, .372590D-01, .271022D-01, - + .196545D-01, .142081D-01, .102265D-01, .732960D-02, - + .522371D-02, .370349D-02, .260874D-02, .182632D-02, - + .127192D-02, .878577D-03, .602679D-03, .411509D-03, - + .279687D-03, .189932D-03, .129022D-03, .882222D-04, - + .608316D-04, .425856D-04, .303970D-04, .222502D-04, - + .166058D-04, .126389D-04, .972269D-05, .751050D-05, - + .576001D-05, .435343D-05, .320232D-05, .226661D-05, - + .152277D-05, .952502D-06, .538510D-06, .262635D-06, - + .100852D-06, .248614D-07, .208221D-08, .000000D+00 / - DATA (UPDI(I),I=1093,1144) / - + .176712D+07, .132365D+07, .972609D+06, .713996D+06, - + .523664D+06, .383654D+06, .280798D+06, .205279D+06, - + .149910D+06, .109338D+06, .796548D+05, .579519D+05, - + .421092D+05, .305531D+05, .221382D+05, .160157D+05, - + .115693D+05, .834313D+04, .600695D+04, .431693D+04, - + .309704D+04, .221743D+04, .158467D+04, .113004D+04, - + .804218D+03, .570993D+03, .404688D+03, .284730D+03, - + .200907D+03, .141435D+03, .993694D+02, .696690D+02, - + .487566D+02, .341008D+02, .238042D+02, .166041D+02, - + .115823D+02, .808193D+01, .564694D+01, .395158D+01, - + .277373D+01, .195231D+01, .137912D+01, .977816D+00, - + .696215D+00, .497483D+00, .357352D+00, .256894D+00, - + .185647D+00, .134120D+00, .971601D-01, .704078D-01 / - DATA (UPDI(I),I=1145,1196) / - + .510259D-01, .369361D-01, .266967D-01, .192405D-01, - + .138244D-01, .989220D-02, .704972D-02, .499735D-02, - + .352500D-02, .247156D-02, .172301D-02, .119570D-02, - + .823570D-03, .563952D-03, .384851D-03, .261863D-03, - + .178355D-03, .121810D-03, .839295D-04, .584649D-04, - + .414269D-04, .299515D-04, .221854D-04, .167209D-04, - + .128048D-04, .987506D-05, .761633D-05, .581418D-05, - + .435940D-05, .317446D-05, .221835D-05, .146860D-05, - + .902861D-06, .500304D-06, .238179D-06, .887944D-07, - + .212180D-07, .180121D-08, .000000D+00, .223025D+07, - + .166544D+07, .121930D+07, .891817D+06, .651665D+06, - + .475655D+06, .346825D+06, .252589D+06, .183753D+06, - + .133506D+06, .968818D+05, .702082D+05, .508122D+05 / - DATA (UPDI(I),I=1197,1248) / - + .367201D+05, .264988D+05, .190920D+05, .137344D+05, - + .986307D+04, .707122D+04, .506006D+04, .361444D+04, - + .257654D+04, .183313D+04, .130135D+04, .921912D+03, - + .651521D+03, .459595D+03, .321804D+03, .225973D+03, - + .158307D+03, .110672D+03, .772045D+02, .537546D+02, - + .374033D+02, .259725D+02, .180206D+02, .125027D+02, - + .867684D+01, .602919D+01, .419559D+01, .292835D+01, - + .204935D+01, .143925D+01, .101445D+01, .717968D+00, - + .509911D+00, .364029D+00, .260065D+00, .186756D+00, - + .134068D+00, .965063D-01, .694940D-01, .500470D-01, - + .360030D-01, .258624D-01, .185277D-01, .132346D-01, - + .941695D-02, .667459D-02, .470729D-02, .330444D-02, - + .230687D-02, .160192D-02, .110806D-02, .761297D-03 / - DATA (UPDI(I),I=1249,1300) / - + .520576D-03, .355177D-03, .242016D-03, .165360D-03, - + .113537D-03, .787960D-04, .553951D-04, .396588D-04, - + .289685D-04, .216459D-04, .164194D-04, .126118D-04, - + .972414D-05, .747320D-05, .566999D-05, .421376D-05, - + .303582D-05, .209414D-05, .136609D-05, .825586D-06, - + .448519D-06, .208531D-06, .755492D-07, .175302D-07, - + .150778D-08, .000000D+00, .104420D+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, .228600D+05, .178890D+05, .138296D+05, - + .106819D+05, .825026D+04, .636621D+04, .491186D+04, - + .378604D+04, .291776D+04, .224627D+04, .172890D+04, - + .132923D+04, .102163D+04, .784296D+03, .601860D+03, - + .461284D+03, .353376D+03, .270348D+03, .206710D+03, - + .157827D+03, .120429D+03, .917551D+02, .698565D+02, - + .531000D+02, .403276D+02, .305810D+02, .231746D+02, - + .174622D+02, .131994D+02, .995951D+01, .751022D+01, - + .565418D+01, .425465D+01, .320012D+01, .240570D+01, - + .180737D+01, .135939D+01, .102266D+01, .771113D+00 / - DATA (UPDI(I),I=1405,1456) / - + .582241D+00, .441444D+00, .335654D+00, .256480D+00, - + .196785D+00, .151916D+00, .117805D+00, .920111D-01, - + .720128D-01, .567789D-01, .447966D-01, .354918D-01, - + .281253D-01, .223128D-01, .176686D-01, .139742D-01, - + .110027D-01, .862838D-02, .672196D-02, .520900D-02, - + .400119D-02, .305117D-02, .230253D-02, .172120D-02, - + .127399D-02, .930178D-03, .668543D-03, .473557D-03, - + .329098D-03, .224495D-03, .149085D-03, .962552D-04, - + .593266D-04, .345183D-04, .178334D-04, .726259D-05, - + .622594D-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 / - DATA (UPDI(I),I=1457,1508) / - + .546769D+05, .426066D+05, .327817D+05, .252023D+05, - + .193719D+05, .148775D+05, .114232D+05, .876294D+04, - + .672024D+04, .514874D+04, .394331D+04, .301699D+04, - + .230728D+04, .176258D+04, .134580D+04, .102635D+04, - + .782273D+03, .595476D+03, .452980D+03, .344110D+03, - + .261216D+03, .198002D+03, .149958D+03, .113396D+03, - + .856650D+02, .646178D+02, .487049D+02, .364998D+02, - + .274384D+02, .205907D+02, .154404D+02, .115601D+02, - + .864944D+01, .646922D+01, .483536D+01, .361218D+01, - + .270119D+01, .202058D+01, .151478D+01, .113730D+01, - + .857325D+00, .648180D+00, .492412D+00, .375632D+00, - + .288249D+00, .222185D+00, .172446D+00, .134110D+00, - + .105032D+00, .823057D-01, .647500D-01, .509489D-01 / - DATA (UPDI(I),I=1509,1560) / - + .401250D-01, .315431D-01, .247626D-01, .193548D-01, - + .150672D-01, .116551D-01, .896809D-02, .684261D-02, - + .518429D-02, .388906D-02, .289170D-02, .213069D-02, - + .155060D-02, .111308D-02, .789724D-03, .552160D-03, - + .381436D-03, .259266D-03, .174149D-03, .114985D-03, - + .750891D-04, .481369D-04, .306780D-04, .191969D-04, - + .119905D-04, .734705D-05, .448448D-05, .265260D-05, - + .154555D-05, .838377D-06, .433788D-06, .187456D-06, - + .615284D-07, .313946D-08, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .969487D+05, - + .752560D+05, .576493D+05, .441287D+05, .337697D+05, - + .258214D+05, .197373D+05, .150737D+05, .115075D+05, - + .877695D+04, .669127D+04, .509614D+04, .387927D+04 / - DATA (UPDI(I),I=1561,1612) / - + .294981D+04, .224172D+04, .170164D+04, .129082D+04, - + .977947D+03, .740350D+03, .559723D+03, .422817D+03, - + .318937D+03, .240355D+03, .180854D+03, .135940D+03, - + .102024D+03, .765048D+02, .570348D+02, .426509D+02, - + .318396D+02, .237482D+02, .176855D+02, .131607D+02, - + .979029D+01, .727733D+01, .540676D+01, .402071D+01, - + .299116D+01, .222994D+01, .166509D+01, .124820D+01, - + .938513D+00, .708966D+00, .537807D+00, .410308D+00, - + .314429D+00, .242559D+00, .187481D+00, .145886D+00, - + .113577D+00, .887476D-01, .693599D-01, .542445D-01, - + .423473D-01, .330089D-01, .256202D-01, .198049D-01, - + .152156D-01, .116276D-01, .881368D-02, .663446D-02, - + .494652D-02, .365645D-02, .267950D-02, .194036D-02 / - DATA (UPDI(I),I=1613,1664) / - + .138734D-02, .981506D-03, .685540D-03, .474166D-03, - + .323906D-03, .219720D-03, .147669D-03, .991184D-04, - + .663373D-04, .449340D-04, .306628D-04, .214323D-04, - + .151946D-04, .110353D-04, .806045D-05, .595766D-05, - + .433798D-05, .312046D-05, .215535D-05, .141935D-05, - + .862052D-06, .467279D-06, .210284D-06, .638622D-07, - + .491282D-08, .000000D+00, .192837D+06, .117146D+06, - + .893695D+05, .681297D+05, .519193D+05, .395344D+05, - + .300915D+05, .228846D+05, .173957D+05, .132113D+05, - + .100281D+05, .760445D+04, .576315D+04, .436307D+04, - + .330093D+04, .249450D+04, .188368D+04, .142066D+04, - + .107056D+04, .805650D+03, .605748D+03, .454790D+03, - + .341105D+03, .255442D+03, .191074D+03, .142705D+03 / - DATA (UPDI(I),I=1665,1716) / - + .106482D+03, .789833D+02, .587658D+02, .436480D+02, - + .323879D+02, .239952D+02, .177622D+02, .131444D+02, - + .971839D+01, .718212D+01, .531219D+01, .393091D+01, - + .291472D+01, .216481D+01, .161403D+01, .120706D+01, - + .906832D+00, .684147D+00, .519011D+00, .395469D+00, - + .303277D+00, .233014D+00, .180187D+00, .139396D+00, - + .108213D+00, .840212D-01, .652706D-01, .506151D-01, - + .391853D-01, .302101D-01, .231960D-01, .177041D-01, - + .134405D-01, .101234D-01, .757270D-02, .561252D-02, - + .412487D-02, .300632D-02, .216594D-02, .154187D-02, - + .108687D-02, .757306D-03, .523263D-03, .357893D-03, - + .243730D-03, .165131D-03, .112247D-03, .765789D-04, - + .531761D-04, .374556D-04, .271031D-04, .199442D-04 / - DATA (UPDI(I),I=1717,1768) / - + .149885D-04, .113043D-04, .856571D-05, .637400D-05, - + .464861D-05, .324741D-05, .214983D-05, .130749D-05, - + .704897D-06, .312281D-06, .920994D-07, .717893D-08, - + .000000D+00, .238273D+06, .183527D+06, .139344D+06, - + .105724D+06, .801793D+05, .607595D+05, .460198D+05, - + .348270D+05, .263416D+05, .199059D+05, .150331D+05, - + .113423D+05, .855162D+04, .644091D+04, .484743D+04, - + .364407D+04, .273710D+04, .205335D+04, .153895D+04, - + .115188D+04, .861290D+03, .643087D+03, .479618D+03, - + .357152D+03, .265622D+03, .197239D+03, .146309D+03, - + .107878D+03, .797816D+02, .589024D+02, .434386D+02, - + .319854D+02, .235286D+02, .173036D+02, .127121D+02, - + .933530D+01, .686034D+01, .504430D+01, .371610D+01 / - DATA (UPDI(I),I=1769,1820) / - + .274245D+01, .203142D+01, .150945D+01, .112655D+01, - + .844349D+00, .636205D+00, .481472D+00, .366628D+00, - + .279683D+00, .214670D+00, .164831D+00, .126969D+00, - + .978261D-01, .753930D-01, .580060D-01, .445468D-01, - + .340729D-01, .259539D-01, .196552D-01, .148042D-01, - + .110653D-01, .821288D-02, .604082D-02, .440492D-02, - + .318511D-02, .227538D-02, .160552D-02, .112048D-02, - + .771892D-03, .525877D-03, .353403D-03, .235079D-03, - + .154317D-03, .100441D-03, .646410D-04, .415811D-04, - + .265559D-04, .170719D-04, .109583D-04, .711160D-05, - + .460112D-05, .300681D-05, .193603D-05, .124677D-05, - + .774317D-06, .466757D-06, .263100D-06, .136301D-06, - + .603287D-07, .185758D-07, .139526D-08, .000000D+00 / - DATA (UPDI(I),I=1821,1872) / - + .351461D+06, .269627D+06, .203772D+06, .153894D+06, - + .116163D+06, .876150D+05, .660444D+05, .497430D+05, - + .374412D+05, .281566D+05, .211595D+05, .158858D+05, - + .119174D+05, .893092D+04, .668719D+04, .500147D+04, - + .373720D+04, .278905D+04, .207932D+04, .154811D+04, - + .115133D+04, .855010D+03, .634173D+03, .469641D+03, - + .347328D+03, .256453D+03, .189143D+03, .138645D+03, - + .101935D+03, .748159D+02, .548439D+02, .401414D+02, - + .293479D+02, .214518D+02, .156617D+02, .114303D+02, - + .834718D+01, .609930D+01, .446493D+01, .327443D+01, - + .241004D+01, .177944D+01, .131947D+01, .982549D+00, - + .735408D+00, .552807D+00, .418034D+00, .316659D+00, - + .241283D+00, .183903D+00, .140590D+00, .107503D+00 / - DATA (UPDI(I),I=1873,1924) / - + .822111D-01, .627659D-01, .478261D-01, .363000D-01, - + .274372D-01, .206223D-01, .154155D-01, .114384D-01, - + .842845D-02, .615664D-02, .445902D-02, .320355D-02, - + .227449D-02, .159614D-02, .110856D-02, .760861D-03, - + .517085D-03, .347402D-03, .231623D-03, .153055D-03, - + .100772D-03, .661563D-04, .438163D-04, .291839D-04, - + .197969D-04, .136119D-04, .955083D-05, .675408D-05, - + .482512D-05, .341115D-05, .238107D-05, .160048D-05, - + .102477D-05, .604498D-06, .316916D-06, .135894D-06, - + .384733D-07, .302742D-08, .000000D+00, .495983D+06, - + .379033D+06, .285172D+06, .214402D+06, .161100D+06, - + .120953D+06, .907531D+05, .680353D+05, .509688D+05, - + .381484D+05, .285310D+05, .213171D+05, .159139D+05 / - DATA (UPDI(I),I=1925,1976) / - + .118675D+05, .884193D+04, .658004D+04, .489189D+04, - + .363223D+04, .269398D+04, .199534D+04, .147614D+04, - + .109042D+04, .804438D+03, .592511D+03, .435796D+03, - + .319990D+03, .234677D+03, .171035D+03, .125027D+03, - + .912351D+02, .664875D+02, .483768D+02, .351572D+02, - + .255443D+02, .185361D+02, .134457D+02, .975842D+01, - + .708670D+01, .515551D+01, .375749D+01, .274824D+01, - + .201642D+01, .148565D+01, .109922D+01, .817324D+00, - + .610298D+00, .458362D+00, .344800D+00, .260850D+00, - + .197380D+00, .149780D+00, .113683D+00, .862840D-01, - + .653819D-01, .494422D-01, .372463D-01, .279428D-01, - + .208493D-01, .154720D-01, .113997D-01, .834182D-02, - + .605312D-02, .435584D-02, .311038D-02, .219562D-02 / - DATA (UPDI(I),I=1977,2028) / - + .153298D-02, .106001D-02, .725155D-03, .491820D-03, - + .330443D-03, .220860D-03, .146845D-03, .976918D-04, - + .652091D-04, .441794D-04, .303145D-04, .212779D-04, - + .152008D-04, .110710D-04, .811684D-05, .597438D-05, - + .433500D-05, .307882D-05, .209756D-05, .135090D-05, - + .797164D-06, .414237D-06, .174130D-06, .478270D-07, - + .382103D-08, .000000D+00, .677442D+06, .515764D+06, - + .386348D+06, .289193D+06, .216332D+06, .161695D+06, - + .120774D+06, .901293D+05, .672101D+05, .500714D+05, - + .372728D+05, .277172D+05, .205931D+05, .152832D+05, - + .113314D+05, .839140D+04, .620762D+04, .458615D+04, - + .338430D+04, .249387D+04, .183543D+04, .134877D+04, - + .989787D+03, .725153D+03, .530482D+03, .387390D+03 / - DATA (UPDI(I),I=2029,2080) / - + .282539D+03, .204754D+03, .148831D+03, .107989D+03, - + .782429D+02, .565998D+02, .408912D+02, .295353D+02, - + .213038D+02, .153607D+02, .110805D+02, .799807D+01, - + .578290D+01, .418896D+01, .304485D+01, .222018D+01, - + .162547D+01, .119503D+01, .882799D+00, .654850D+00, - + .488515D+00, .364969D+00, .274172D+00, .205987D+00, - + .155182D+00, .116931D+00, .880988D-01, .662695D-01, - + .497448D-01, .372023D-01, .277085D-01, .205286D-01, - + .151274D-01, .110705D-01, .804716D-02, .580241D-02, - + .414991D-02, .294630D-02, .206863D-02, .143758D-02, - + .990141D-03, .675470D-03, .457442D-03, .307512D-03, - + .206124D-03, .137899D-03, .926502D-04, .627546D-04, - + .433128D-04, .303915D-04, .218339D-04, .159658D-04 / - DATA (UPDI(I),I=2081,2132) / - + .118611D-04, .884211D-05, .657937D-05, .480859D-05, - + .341986D-05, .232597D-05, .148816D-05, .868972D-06, - + .444089D-06, .182103D-06, .484923D-07, .392652D-08, - + .000000D+00, .901840D+06, .684098D+06, .510248D+06, - + .380291D+06, .283241D+06, .210778D+06, .156738D+06, - + .116446D+06, .864427D+05, .641071D+05, .475016D+05, - + .351602D+05, .260007D+05, .192054D+05, .141715D+05, - + .104441D+05, .768851D+04, .565234D+04, .415036D+04, - + .304306D+04, .222826D+04, .162905D+04, .118927D+04, - + .866742D+03, .630700D+03, .458101D+03, .332295D+03, - + .239473D+03, .173102D+03, .124896D+03, .899797D+02, - + .647183D+02, .464857D+02, .333812D+02, .239359D+02, - + .171564D+02, .123019D+02, .882654D+01, .634337D+01 / - DATA (UPDI(I),I=2133,2184) / - + .456716D+01, .329945D+01, .239103D+01, .173965D+01, - + .127094D+01, .932849D+00, .687473D+00, .509451D+00, - + .378042D+00, .282034D+00, .210416D+00, .157398D+00, - + .117762D+00, .880899D-01, .657908D-01, .490325D-01, - + .364111D-01, .269298D-01, .198155D-01, .145034D-01, - + .105447D-01, .761628D-02, .545859D-02, .388136D-02, - + .274072D-02, .191471D-02, .132496D-02, .909417D-03, - + .618984D-03, .418803D-03, .281843D-03, .189551D-03, - + .127622D-03, .865716D-04, .594163D-04, .416562D-04, - + .297427D-04, .217252D-04, .161251D-04, .121119D-04, - + .909791D-05, .678861D-05, .496014D-05, .351140D-05, - + .237121D-05, .150063D-05, .863851D-06, .432994D-06, - + .172911D-06, .446337D-07, .366178D-08, .000000D+00 / - DATA (UPDI(I),I=2185,2236) / - + .117549D+07, .888494D+06, .659917D+06, .489763D+06, - + .363218D+06, .269131D+06, .199260D+06, .147389D+06, - + .108929D+06, .804224D+05, .593219D+05, .437097D+05, - + .321743D+05, .236553D+05, .173732D+05, .127431D+05, - + .933600D+04, .683038D+04, .499086D+04, .364127D+04, - + .265298D+04, .192979D+04, .140163D+04, .101625D+04, - + .735632D+03, .531489D+03, .383466D+03, .274838D+03, - + .197580D+03, .141773D+03, .101568D+03, .726420D+02, - + .518798D+02, .370415D+02, .264063D+02, .188168D+02, - + .134130D+02, .956690D+01, .683448D+01, .489135D+01, - + .351231D+01, .252981D+01, .182928D+01, .132811D+01, - + .968632D+00, .709252D+00, .522156D+00, .384891D+00, - + .285200D+00, .211320D+00, .156980D+00, .116636D+00 / - DATA (UPDI(I),I=2237,2288) / - + .866396D-01, .642585D-01, .475578D-01, .350744D-01, - + .257657D-01, .188337D-01, .136952D-01, .989470D-02, - + .710328D-02, .506160D-02, .357930D-02, .251459D-02, - + .174864D-02, .120539D-02, .824877D-03, .560444D-03, - + .379059D-03, .255511D-03, .172497D-03, .116907D-03, - + .800459D-04, .556009D-04, .395057D-04, .285985D-04, - + .211412D-04, .158428D-04, .119685D-04, .901302D-05, - + .671534D-05, .488660D-05, .343334D-05, .229595D-05, - + .143432D-05, .812578D-06, .398976D-06, .155076D-06, - + .388269D-07, .322688D-08, .000000D+00, .150491D+07, - + .113351D+07, .838428D+06, .619664D+06, .457630D+06, - + .337654D+06, .248926D+06, .183333D+06, .134904D+06, - + .991637D+05, .728217D+05, .534167D+05, .391418D+05 / - DATA (UPDI(I),I=2289,2340) / - + .286467D+05, .209420D+05, .152893D+05, .111487D+05, - + .811783D+04, .590306D+04, .428591D+04, .310732D+04, - + .224906D+04, .162532D+04, .117245D+04, .844348D+03, - + .606858D+03, .435540D+03, .310478D+03, .222001D+03, - + .158433D+03, .112880D+03, .802853D+02, .570169D+02, - + .404801D+02, .286926D+02, .203285D+02, .144065D+02, - + .102157D+02, .725508D+01, .516173D+01, .368434D+01, - + .263778D+01, .189574D+01, .136790D+01, .991407D+00, - + .721319D+00, .527621D+00, .386371D+00, .284394D+00, - + .209307D+00, .154431D+00, .113966D+00, .840802D-01, - + .619386D-01, .455314D-01, .333569D-01, .243436D-01, - + .176805D-01, .127760D-01, .917497D-02, .654822D-02, - + .464046D-02, .326442D-02, .228248D-02, .158050D-02 / - DATA (UPDI(I),I=2341,2392) / - + .108574D-02, .741113D-03, .502887D-03, .340189D-03, - + .229801D-03, .155797D-03, .106300D-03, .734425D-04, - + .515725D-04, .370631D-04, .271236D-04, .202236D-04, - + .152446D-04, .115431D-04, .868714D-05, .644643D-05, - + .466138D-05, .324502D-05, .214574D-05, .132175D-05, - + .736213D-06, .353864D-06, .133860D-06, .325373D-07, - + .273898D-08, .000000D+00, .189667D+07, .142370D+07, - + .104881D+07, .771995D+06, .567780D+06, .417188D+06, - + .306271D+06, .224614D+06, .164574D+06, .120451D+06, - + .880689D+05, .643171D+05, .469197D+05, .341851D+05, - + .248775D+05, .180794D+05, .131222D+05, .951014D+04, - + .688282D+04, .497340D+04, .358834D+04, .258454D+04, - + .185854D+04, .133400D+04, .955830D+03, .683461D+03 / - DATA (UPDI(I),I=2393,2444) / - + .487978D+03, .346015D+03, .246104D+03, .174697D+03, - + .123794D+03, .875689D+02, .618464D+02, .436654D+02, - + .307763D+02, .216815D+02, .152774D+02, .107711D+02, - + .760523D+01, .537933D+01, .381706D+01, .271658D+01, - + .194064D+01, .139179D+01, .100250D+01, .724821D+00, - + .526822D+00, .383299D+00, .280291D+00, .204929D+00, - + .150199D+00, .110110D+00, .806967D-01, .590546D-01, - + .431266D-01, .313914D-01, .227639D-01, .164311D-01, - + .118015D-01, .842593D-02, .598009D-02, .421569D-02, - + .295102D-02, .205419D-02, .141691D-02, .970393D-03, - + .660988D-03, .448155D-03, .303370D-03, .205462D-03, - + .139932D-03, .961237D-04, .669863D-04, .475015D-04, - + .344674D-04, .254385D-04, .190797D-04, .144277D-04 / - DATA (UPDI(I),I=2445,2496) / - + .109233D-04, .819776D-05, .604855D-05, .433985D-05, - + .299027D-05, .195333D-05, .118559D-05, .648882D-06, - + .305205D-06, .112378D-06, .265455D-07, .226305D-08, - + .000000D+00, .235725D+07, .176350D+07, .129396D+07, - + .948635D+06, .694873D+06, .508490D+06, .371760D+06, - + .271510D+06, .198099D+06, .144374D+06, .105108D+06, - + .764295D+05, .555122D+05, .402672D+05, .291729D+05, - + .211057D+05, .152489D+05, .110007D+05, .792459D+04, - + .569929D+04, .409253D+04, .293355D+04, .209927D+04, - + .149938D+04, .106899D+04, .760525D+03, .540235D+03, - + .381074D+03, .269630D+03, .190394D+03, .134201D+03, - + .944216D+02, .663244D+02, .465716D+02, .326431D+02, - + .228686D+02, .160232D+02, .112331D+02, .788613D+01 / - DATA (UPDI(I),I=2497,2548) / - + .554598D+01, .391246D+01, .276817D+01, .196577D+01, - + .140137D+01, .100325D+01, .720890D+00, .520699D+00, - + .376442D+00, .273516D+00, .198684D+00, .144680D+00, - + .105378D+00, .767295D-01, .557911D-01, .404837D-01, - + .292833D-01, .211047D-01, .151424D-01, .108125D-01, - + .767681D-02, .541933D-02, .380136D-02, .264863D-02, - + .183608D-02, .126199D-02, .861982D-03, .586160D-03, - + .397277D-03, .269235D-03, .182889D-03, .125159D-03, - + .865547D-04, .608090D-04, .434973D-04, .318153D-04, - + .236323D-04, .177921D-04, .134684D-04, .101775D-04, - + .760499D-05, .557258D-05, .396349D-05, .270105D-05, - + .174192D-05, .104128D-05, .559770D-06, .257597D-06, - + .923464D-07, .212207D-07, .183188D-08, .000000D+00 / - DATA (UPDI(I),I=2549,2600) / - + .889481D+05, .526114D+05, .402316D+05, .307651D+05, - + .235262D+05, .179908D+05, .137580D+05, .105213D+05, - + .804616D+04, .615347D+04, .470614D+04, .359936D+04, - + .275300D+04, .210577D+04, .161082D+04, .123232D+04, - + .942848D+03, .721471D+03, .552160D+03, .422667D+03, - + .323620D+03, .247858D+03, .189901D+03, .145561D+03, - + .111635D+03, .856726D+02, .658008D+02, .503993D+02, - + .387971D+02, .299076D+02, .230934D+02, .178669D+02, - + .138553D+02, .107815D+02, .841076D+01, .658532D+01, - + .517706D+01, .408802D+01, .324336D+01, .258561D+01, - + .207198D+01, .166828D+01, .134939D+01, .109600D+01, - + .893432D+00, .730497D+00, .599104D+00, .491512D+00, - + .404050D+00, .331772D+00, .272440D+00, .223415D+00 / - DATA (UPDI(I),I=2601,2652) / - + .182843D+00, .149241D+00, .121414D+00, .983935D-01, - + .793829D-01, .637244D-01, .508699D-01, .403595D-01, - + .318059D-01, .248816D-01, .193096D-01, .148735D-01, - + .113308D-01, .854347D-02, .636988D-02, .469141D-02, - + .340915D-02, .244114D-02, .171987D-02, .119020D-02, - + .807216D-03, .535049D-03, .347108D-03, .218308D-03, - + .132991D-03, .780970D-04, .439464D-04, .235202D-04, - + .118582D-04, .556891D-05, .238198D-05, .912564D-06, - + .301294D-06, .811985D-07, .163082D-07, .205790D-08, - + .111205D-09, .755118D-12, .000000D+00, .896413D+05, - + .696290D+05, .533943D+05, .409375D+05, .313865D+05, - + .240591D+05, .184418D+05, .141330D+05, .108305D+05, - + .829778D+04, .635697D+04, .486893D+04, .372894D+04 / - DATA (UPDI(I),I=2653,2704) / - + .285514D+04, .218593D+04, .167314D+04, .128055D+04, - + .979826D+03, .749677D+03, .573453D+03, .438647D+03, - + .335471D+03, .256575D+03, .196216D+03, .150079D+03, - + .114800D+03, .878512D+02, .669938D+02, .513213D+02, - + .393406D+02, .301904D+02, .231956D+02, .178514D+02, - + .137749D+02, .106495D+02, .825670D+01, .642438D+01, - + .501740D+01, .393586D+01, .310094D+01, .245584D+01, - + .195396D+01, .156214D+01, .125432D+01, .101135D+01, - + .818177D+00, .664385D+00, .539833D+00, .439847D+00, - + .358060D+00, .291649D+00, .237284D+00, .192732D+00, - + .156147D+00, .126119D+00, .101467D+00, .812730D-01, - + .647638D-01, .513222D-01, .404125D-01, .316070D-01, - + .245345D-01, .188896D-01, .144334D-01, .109048D-01 / - DATA (UPDI(I),I=2705,2756) / - + .815139D-02, .602387D-02, .439561D-02, .316381D-02, - + .224244D-02, .156289D-02, .106852D-02, .715024D-03, - + .466185D-03, .296333D-03, .181267D-03, .106123D-03, - + .585403D-04, .295931D-04, .128683D-04, .384236D-05, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .120393D+06, .935206D+05, - + .717146D+05, .549749D+05, .421385D+05, .322879D+05, - + .247369D+05, .189447D+05, .145065D+05, .111036D+05, - + .849739D+04, .650012D+04, .497129D+04, .380031D+04, - + .290451D+04, .221881D+04, .169459D+04, .129358D+04, - + .987228D+03, .753057D+03, .574308D+03, .437785D+03, - + .333654D+03, .254188D+03, .193626D+03, .147454D+03 / - DATA (UPDI(I),I=2757,2808) / - + .112312D+03, .852049D+02, .649168D+02, .494692D+02, - + .377258D+02, .287901D+02, .219986D+02, .168456D+02, - + .129188D+02, .993070D+01, .765829D+01, .592543D+01, - + .460379D+01, .359156D+01, .281631D+01, .221847D+01, - + .175615D+01, .139639D+01, .111529D+01, .893963D+00, - + .719551D+00, .579630D+00, .468442D+00, .378308D+00, - + .305796D+00, .246941D+00, .199127D+00, .160179D+00, - + .128472D+00, .102638D+00, .816402D-01, .646015D-01, - + .508371D-01, .397482D-01, .308684D-01, .237909D-01, - + .181862D-01, .137972D-01, .103497D-01, .768107D-02, - + .563657D-02, .408493D-02, .292144D-02, .205850D-02, - + .142773D-02, .972677D-03, .650092D-03, .424689D-03, - + .271947D-03, .168994D-03, .102014D-03, .594741D-04 / - DATA (UPDI(I),I=2809,2860) / - + .333805D-04, .178795D-04, .909273D-05, .432092D-05, - + .189433D-05, .735630D-06, .238372D-06, .496738D-07, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .161646D+06, .125380D+06, .959782D+05, - + .734396D+05, .561832D+05, .429618D+05, .328445D+05, - + .250975D+05, .191730D+05, .146394D+05, .111746D+05, - + .852519D+04, .650189D+04, .495588D+04, .377620D+04, - + .287555D+04, .218892D+04, .166517D+04, .126626D+04, - + .962277D+03, .731004D+03, .554956D+03, .421156D+03, - + .319420D+03, .242184D+03, .183533D+03, .139085D+03, - + .104946D+03, .795107D+02, .602344D+02, .456533D+02, - + .346150D+02, .262705D+02, .199747D+02, .152054D+02, - + .115984D+02, .887309D+01, .680872D+01, .524540D+01 / - DATA (UPDI(I),I=2861,2912) / - + .405678D+01, .315347D+01, .246233D+01, .193222D+01, - + .152314D+01, .120625D+01, .958863D+00, .765600D+00, - + .611857D+00, .490744D+00, .393365D+00, .315669D+00, - + .253105D+00, .202681D+00, .161921D+00, .128991D+00, - + .102360D+00, .808731D-01, .635657D-01, .496881D-01, - + .385893D-01, .297681D-01, .227892D-01, .173038D-01, - + .130403D-01, .971687D-02, .716368D-02, .522293D-02, - + .376142D-02, .267426D-02, .187418D-02, .129400D-02, - + .878610D-03, .586379D-03, .383548D-03, .246950D-03, - + .155296D-03, .958351D-04, .579792D-04, .345782D-04, - + .203713D-04, .120084D-04, .710568D-05, .426994D-05, - + .258237D-05, .155553D-05, .897458D-06, .474111D-06, - + .211115D-06, .639063D-07, .491315D-08, .000000D+00 / - DATA (UPDI(I),I=2913,2964) / - + .178323D+06, .166510D+06, .127117D+06, .969964D+05, - + .739929D+05, .564149D+05, .429999D+05, .327564D+05, - + .249449D+05, .189848D+05, .144434D+05, .109815D+05, - + .834593D+04, .633867D+04, .481208D+04, .365055D+04, - + .276811D+04, .209740D+04, .158844D+04, .120205D+04, - + .909210D+03, .687179D+03, .519116D+03, .391860D+03, - + .295663D+03, .222933D+03, .168069D+03, .126126D+03, - + .950266D+02, .715739D+02, .539240D+02, .406327D+02, - + .306394D+02, .231418D+02, .174949D+02, .132499D+02, - + .100623D+02, .766317D+01, .585832D+01, .449542D+01, - + .346691D+01, .268564D+01, .209079D+01, .163520D+01, - + .128496D+01, .101362D+01, .803284D+00, .637239D+00, - + .507444D+00, .403874D+00, .321861D+00, .256314D+00 / - DATA (UPDI(I),I=2965,3016) / - + .203876D+00, .161798D+00, .128049D+00, .100951D+00, - + .792434D-01, .618830D-01, .480621D-01, .370871D-01, - + .284267D-01, .216238D-01, .163147D-01, .122176D-01, - + .904681D-02, .662840D-02, .480353D-02, .343926D-02, - + .243188D-02, .169584D-02, .116595D-02, .789205D-03, - + .525962D-03, .344352D-03, .222694D-03, .141391D-03, - + .887460D-04, .551510D-04, .342224D-04, .212862D-04, - + .134317D-04, .858075D-05, .555645D-05, .358129D-05, - + .225513D-05, .133454D-05, .710051D-06, .312901D-06, - + .921321D-07, .717919D-08, .000000D+00, .300831D+06, - + .231994D+06, .176405D+06, .134066D+06, .101851D+06, - + .773328D+05, .586932D+05, .445191D+05, .337532D+05, - + .255742D+05, .193680D+05, .146577D+05, .110873D+05 / - DATA (UPDI(I),I=3017,3068) / - + .838046D+04, .633098D+04, .477899D+04, .360535D+04, - + .271770D+04, .204732D+04, .154099D+04, .115916D+04, - + .871177D+03, .654323D+03, .491022D+03, .368245D+03, - + .275946D+03, .206717D+03, .154107D+03, .115329D+03, - + .862692D+02, .645342D+02, .482738D+02, .361271D+02, - + .270768D+02, .203068D+02, .152543D+02, .114875D+02, - + .867401D+01, .657336D+01, .499973D+01, .382153D+01, - + .293394D+01, .226365D+01, .175467D+01, .136666D+01, - + .106866D+01, .839627D+00, .660401D+00, .521503D+00, - + .411639D+00, .325385D+00, .257050D+00, .202844D+00, - + .159722D+00, .125427D+00, .981242D-01, .764353D-01, - + .592369D-01, .456582D-01, .349662D-01, .265986D-01, - + .200809D-01, .150354D-01, .111738D-01, .820958D-02 / - DATA (UPDI(I),I=3069,3120) / - + .596740D-02, .428935D-02, .304525D-02, .213413D-02, - + .147398D-02, .100270D-02, .670496D-03, .440431D-03, - + .283225D-03, .179013D-03, .110218D-03, .663227D-04, - + .388704D-04, .222366D-04, .123840D-04, .676633D-05, - + .362477D-05, .193433D-05, .102443D-05, .544701D-06, - + .282882D-06, .140020D-06, .607704D-07, .185989D-07, - + .139544D-08, .000000D+00, .412883D+06, .317214D+06, - + .240160D+06, .181721D+06, .137442D+06, .103887D+06, - + .784877D+05, .592590D+05, .447183D+05, .337219D+05, - + .254156D+05, .191410D+05, .144069D+05, .108351D+05, - + .814371D+04, .611569D+04, .458959D+04, .344124D+04, - + .257837D+04, .193006D+04, .144371D+04, .107888D+04, - + .805630D+03, .601008D+03, .448017D+03, .333663D+03 / - DATA (UPDI(I),I=3121,3172) / - + .248389D+03, .183973D+03, .136778D+03, .101630D+03, - + .755035D+02, .560837D+02, .416699D+02, .310023D+02, - + .230756D+02, .172012D+02, .128519D+02, .962691D+01, - + .723629D+01, .545886D+01, .413791D+01, .315043D+01, - + .241038D+01, .185286D+01, .143115D+01, .110987D+01, - + .864876D+00, .674729D+00, .528545D+00, .413873D+00, - + .324573D+00, .254412D+00, .199211D+00, .155664D+00, - + .121311D+00, .941899D-01, .728211D-01, .560171D-01, - + .428573D-01, .325808D-01, .246035D-01, .184407D-01, - + .137080D-01, .101151D-01, .737917D-02, .532655D-02, - + .380271D-02, .268209D-02, .186793D-02, .128276D-02, - + .868266D-03, .578351D-03, .379025D-03, .243798D-03, - + .154704D-03, .961804D-04, .589273D-04, .356064D-04 / - DATA (UPDI(I),I=3173,3224) / - + .213660D-04, .127783D-04, .770648D-05, .469201D-05, - + .289665D-05, .178576D-05, .108175D-05, .618755D-06, - + .319556D-06, .136203D-06, .384894D-07, .302756D-08, - + .000000D+00, .556292D+06, .425757D+06, .320901D+06, - + .241724D+06, .181993D+06, .136931D+06, .102971D+06, - + .773787D+05, .581138D+05, .436127D+05, .327098D+05, - + .245131D+05, .183582D+05, .137371D+05, .102719D+05, - + .767393D+04, .572871D+04, .427248D+04, .318388D+04, - + .237027D+04, .176312D+04, .131014D+04, .972701D+03, - + .721414D+03, .534580D+03, .395724D+03, .292778D+03, - + .215473D+03, .159174D+03, .117502D+03, .867150D+02, - + .639757D+02, .472044D+02, .348731D+02, .257699D+02, - + .190690D+02, .141411D+02, .105126D+02, .784135D+01 / - DATA (UPDI(I),I=3225,3276) / - + .586948D+01, .441436D+01, .333450D+01, .253104D+01, - + .193025D+01, .147914D+01, .113804D+01, .879883D+00, - + .681064D+00, .529373D+00, .411319D+00, .320100D+00, - + .249004D+00, .193508D+00, .150080D+00, .116092D+00, - + .894748D-01, .686707D-01, .524428D-01, .398345D-01, - + .300676D-01, .225455D-01, .167806D-01, .123876D-01, - + .907857D-02, .657827D-02, .471712D-02, .334606D-02, - + .234557D-02, .162419D-02, .110961D-02, .747792D-03, - + .496537D-03, .324941D-03, .209271D-03, .133458D-03, - + .838479D-04, .522986D-04, .324931D-04, .202794D-04, - + .127688D-04, .817744D-05, .530410D-05, .346447D-05, - + .223446D-05, .139243D-05, .807412D-06, .416106D-06, - + .174346D-06, .478381D-07, .382113D-08, .000000D+00 / - DATA (UPDI(I),I=3277,3328) / - + .736658D+06, .561642D+06, .421429D+06, .316020D+06, - + .236847D+06, .177383D+06, .132770D+06, .993033D+05, - + .742254D+05, .554366D+05, .413757D+05, .308551D+05, - + .229929D+05, .171187D+05, .127354D+05, .946534D+04, - + .702914D+04, .521468D+04, .386520D+04, .286190D+04, - + .211710D+04, .156440D+04, .115490D+04, .851628D+03, - + .627389D+03, .461667D+03, .339507D+03, .248312D+03, - + .182289D+03, .133714D+03, .980414D+02, .718574D+02, - + .526650D+02, .386434D+02, .283580D+02, .208367D+02, - + .153416D+02, .113225D+02, .838358D+01, .622897D+01, - + .464975D+01, .348594D+01, .262600D+01, .198752D+01, - + .151147D+01, .115409D+01, .885554D+00, .680264D+00, - + .524775D+00, .404684D+00, .312588D+00, .241364D+00 / - DATA (UPDI(I),I=3329,3380) / - + .186191D+00, .143353D+00, .110085D+00, .842365D-01, - + .641903D-01, .486762D-01, .367150D-01, .275218D-01, - + .204956D-01, .151523D-01, .111109D-01, .808960D-02, - + .582381D-02, .414992D-02, .292593D-02, .203934D-02, - + .140468D-02, .955201D-03, .641320D-03, .424806D-03, - + .277839D-03, .179326D-03, .115033D-03, .730705D-04, - + .463694D-04, .295296D-04, .190211D-04, .124259D-04, - + .825978D-05, .554004D-05, .370763D-05, .242688D-05, - + .151837D-05, .876320D-06, .445409D-06, .182254D-06, - + .485000D-07, .392659D-08, .000000D+00, .959983D+06, - + .729144D+06, .544694D+06, .406632D+06, .303383D+06, - + .226181D+06, .168516D+06, .125453D+06, .933307D+05, - + .693748D+05, .515300D+05, .382410D+05, .283569D+05 / - DATA (UPDI(I),I=3381,3432) / - + .210075D+05, .155498D+05, .114984D+05, .849499D+04, - + .626933D+04, .462241D+04, .340428D+04, .250470D+04, - + .184066D+04, .135129D+04, .990820D+03, .725752D+03, - + .530938D+03, .388143D+03, .282160D+03, .205876D+03, - + .150083D+03, .109352D+03, .796363D+02, .579873D+02, - + .422692D+02, .308111D+02, .224856D+02, .164416D+02, - + .120499D+02, .885930D+01, .653566D+01, .484369D+01, - + .360513D+01, .269605D+01, .202567D+01, .152920D+01, - + .115906D+01, .882853D+00, .673202D+00, .515529D+00, - + .394645D+00, .302617D+00, .231979D+00, .177667D+00, - + .135816D+00, .103559D+00, .786880D-01, .595459D-01, - + .448446D-01, .335950D-01, .250142D-01, .185048D-01, - + .135913D-01, .990213D-02, .716406D-02, .512559D-02 / - DATA (UPDI(I),I=3433,3484) / - + .363057D-02, .254515D-02, .176448D-02, .120946D-02, - + .819064D-03, .548189D-03, .362493D-03, .237145D-03, - + .153528D-03, .991373D-04, .636885D-04, .410853D-04, - + .267389D-04, .176656D-04, .118519D-04, .806718D-05, - + .551083D-05, .372559D-05, .244540D-05, .152255D-05, - + .869108D-06, .433925D-06, .173015D-06, .446390D-07, - + .366183D-08, .000000D+00, .123258D+07, .932723D+06, - + .693738D+06, .515625D+06, .382995D+06, .284254D+06, - + .210825D+06, .156233D+06, .115691D+06, .855943D+05, - + .632769D+05, .467344D+05, .344875D+05, .254245D+05, - + .187263D+05, .137781D+05, .101277D+05, .743601D+04, - + .545419D+04, .399579D+04, .292427D+04, .213743D+04, - + .156059D+04, .113796D+04, .828851D+03, .602903D+03 / - DATA (UPDI(I),I=3485,3536) / - + .438206D+03, .316661D+03, .229677D+03, .166425D+03, - + .120516D+03, .872221D+02, .631101D+02, .457101D+02, - + .331029D+02, .239995D+02, .174316D+02, .126896D+02, - + .926611D+01, .678887D+01, .499650D+01, .369293D+01, - + .274231D+01, .204589D+01, .153350D+01, .115404D+01, - + .872776D+00, .660755D+00, .502391D+00, .381842D+00, - + .290721D+00, .221289D+00, .168291D+00, .127754D+00, - + .967383D-01, .730026D-01, .548695D-01, .410464D-01, - + .305460D-01, .225957D-01, .166081D-01, .121213D-01, - + .877612D-02, .631085D-02, .448835D-02, .316112D-02, - + .220410D-02, .152044D-02, .103758D-02, .700119D-03, - + .467386D-03, .308745D-03, .202194D-03, .131404D-03, - + .854671D-04, .555339D-04, .363809D-04, .241279D-04 / - DATA (UPDI(I),I=3537,3588) / - + .162656D-04, .111241D-04, .768572D-05, .530016D-05, - + .359235D-05, .235036D-05, .145018D-05, .816329D-06, - + .399630D-06, .155148D-06, .388305D-07, .322692D-08, - + .000000D+00, .156096D+07, .117694D+07, .871634D+06, - + .645057D+06, .477047D+06, .352502D+06, .260280D+06, - + .192016D+06, .141544D+06, .104241D+06, .767046D+05, - + .563862D+05, .414127D+05, .303835D+05, .222703D+05, - + .163053D+05, .119258D+05, .871227D+04, .635781D+04, - + .463383D+04, .337353D+04, .245279D+04, .178126D+04, - + .129183D+04, .935756D+03, .676863D+03, .489181D+03, - + .351445D+03, .253426D+03, .182554D+03, .131406D+03, - + .945288D+02, .679768D+02, .489299D+02, .352111D+02, - + .253652D+02, .183045D+02, .132381D+02, .960294D+01 / - DATA (UPDI(I),I=3589,3640) / - + .698888D+01, .510919D+01, .375069D+01, .276622D+01, - + .204959D+01, .152568D+01, .114019D+01, .856327D+00, - + .643777D+00, .486077D+00, .366867D+00, .277383D+00, - + .209682D+00, .158371D+00, .119405D+00, .898060D-01, - + .673184D-01, .502628D-01, .373550D-01, .276196D-01, - + .203013D-01, .148284D-01, .107561D-01, .774077D-02, - + .553374D-02, .391326D-02, .274114D-02, .190155D-02, - + .130568D-02, .887456D-03, .596944D-03, .397724D-03, - + .262634D-03, .172304D-03, .112487D-03, .737269D-04, - + .484455D-04, .321909D-04, .216961D-04, .148598D-04, - + .103014D-04, .718104D-05, .497114D-05, .336277D-05, - + .218553D-05, .133320D-05, .738883D-06, .354323D-06, - + .133910D-06, .325398D-07, .273901D-08, .000000D+00 / - DATA (UPDI(I),I=3641,3692) / - + .195170D+07, .146633D+07, .108141D+07, .796925D+06, - + .586844D+06, .431766D+06, .317418D+06, .233138D+06, - + .171092D+06, .125436D+06, .918809D+05, .672323D+05, - + .491490D+05, .358901D+05, .261814D+05, .190766D+05, - + .138849D+05, .100936D+05, .732910D+04, .531481D+04, - + .384954D+04, .278440D+04, .201149D+04, .145106D+04, - + .104545D+04, .752072D+03, .540531D+03, .386132D+03, - + .276860D+03, .198289D+03, .141902D+03, .101477D+03, - + .725368D+02, .518970D+02, .371171D+02, .265724D+02, - + .190553D+02, .136939D+02, .986992D+01, .713681D+01, - + .518331D+01, .378010D+01, .276943D+01, .203829D+01, - + .150707D+01, .111868D+01, .834490D+00, .623084D+00, - + .467256D+00, .350259D+00, .263031D+00, .197494D+00 / - DATA (UPDI(I),I=3693,3744) / - + .148165D+00, .110968D+00, .829091D-01, .617428D-01, - + .458022D-01, .338231D-01, .248509D-01, .181533D-01, - + .131789D-01, .950272D-02, .679883D-02, .483291D-02, - + .339898D-02, .236861D-02, .163525D-02, .111803D-02, - + .757181D-03, .507967D-03, .337966D-03, .223237D-03, - + .146817D-03, .963385D-04, .636460D-04, .422768D-04, - + .284547D-04, .194393D-04, .134770D-04, .942899D-05, - + .660328D-05, .457130D-05, .307725D-05, .198237D-05, - + .119383D-05, .650778D-06, .305526D-06, .112413D-06, - + .265472D-07, .226307D-08, .000000D+00, .241127D+07, - + .180536D+07, .132597D+07, .973111D+06, .713588D+06, - + .522802D+06, .382704D+06, .279879D+06, .204498D+06, - + .149268D+06, .108851D+06, .792912D+05, .577006D+05 / - DATA (UPDI(I),I=3745,3796) / - + .419408D+05, .304528D+05, .220845D+05, .159975D+05, - + .115733D+05, .836252D+04, .603427D+04, .434878D+04, - + .312959D+04, .224926D+04, .161416D+04, .115683D+04, - + .827753D+03, .591709D+03, .420347D+03, .299722D+03, - + .213461D+03, .151890D+03, .107996D+03, .767462D+02, - + .545856D+02, .388067D+02, .276144D+02, .196815D+02, - + .140567D+02, .100683D+02, .723454D+01, .522096D+01, - + .378320D+01, .275381D+01, .201362D+01, .147907D+01, - + .109065D+01, .808212D+00, .599443D+00, .446541D+00, - + .332501D+00, .248040D+00, .185011D+00, .137890D+00, - + .102600D+00, .761622D-01, .563563D-01, .415427D-01, - + .304868D-01, .222621D-01, .161642D-01, .116653D-01, - + .836276D-02, .594938D-02, .420602D-02, .294258D-02 / - DATA (UPDI(I),I=3797,3848) / - + .204048D-02, .140238D-02, .955041D-03, .644733D-03, - + .431590D-03, .286904D-03, .189679D-03, .125127D-03, - + .825618D-04, .549831D-04, .368987D-04, .251189D-04, - + .173520D-04, .121389D-04, .854179D-05, .599045D-05, - + .413598D-05, .276513D-05, .176306D-05, .104721D-05, - + .561113D-06, .257821D-06, .923702D-07, .212218D-07, - + .183189D-08, .000000D+00, .733714D+05, .105255D+06, - + .804893D+05, .615512D+05, .470695D+05, .359956D+05, - + .275275D+05, .210520D+05, .161002D+05, .123135D+05, - + .941781D+04, .720341D+04, .550999D+04, .421497D+04, - + .322459D+04, .246717D+04, .188790D+04, .144487D+04, - + .110600D+04, .846812D+03, .648543D+03, .496867D+03, - + .380824D+03, .292031D+03, .224080D+03, .172070D+03 / - DATA (UPDI(I),I=3849,3900) / - + .132252D+03, .101384D+03, .781233D+02, .602956D+02, - + .466250D+02, .361355D+02, .280808D+02, .219060D+02, - + .171412D+02, .134702D+02, .106364D+02, .844336D+01, - + .674092D+01, .541371D+01, .437576D+01, .355826D+01, - + .291067D+01, .239411D+01, .197898D+01, .164281D+01, - + .136939D+01, .114313D+01, .956896D+00, .800749D+00, - + .670456D+00, .560839D+00, .468337D+00, .390122D+00, - + .323930D+00, .267925D+00, .220600D+00, .180699D+00, - + .147163D+00, .119090D+00, .957006D-01, .763203D-01, - + .603613D-01, .473645D-01, .367503D-01, .282134D-01, - + .214106D-01, .160449D-01, .118598D-01, .863534D-02, - + .618449D-02, .434923D-02, .299670D-02, .201739D-02, - + .132869D-02, .848235D-03, .524366D-03, .312387D-03 / - DATA (UPDI(I),I=3901,3952) / - + .178285D-03, .967508D-04, .494479D-04, .235342D-04, - + .101999D-04, .395847D-05, .132364D-05, .361202D-06, - + .734415D-07, .938010D-08, .512944D-09, .352406D-11, - + .000000D+00, .156462D+06, .121401D+06, .929849D+05, - + .712139D+05, .545397D+05, .417658D+05, .319831D+05, - + .244894D+05, .187511D+05, .143559D+05, .109906D+05, - + .841335D+04, .644030D+04, .492946D+04, .377300D+04, - + .288759D+04, .220998D+04, .169128D+04, .129438D+04, - + .990607D+03, .758215D+03, .580384D+03, .444358D+03, - + .340282D+03, .260681D+03, .199782D+03, .153215D+03, - + .117146D+03, .900057D+02, .692334D+02, .533382D+02, - + .411661D+02, .318438D+02, .247160D+02, .192343D+02, - + .150250D+02, .117891D+02, .929485D+01, .736823D+01 / - DATA (UPDI(I),I=3953,4004) / - + .587356D+01, .471151D+01, .380154D+01, .308543D+01, - + .251794D+01, .206527D+01, .170127D+01, .140753D+01, - + .116621D+01, .969215D+00, .805264D+00, .669540D+00, - + .556209D+00, .461319D+00, .381687D+00, .314814D+00, - + .258653D+00, .211551D+00, .172134D+00, .139258D+00, - + .111942D+00, .893574D-01, .707875D-01, .556088D-01, - + .433433D-01, .334017D-01, .254663D-01, .191916D-01, - + .142806D-01, .104801D-01, .757481D-02, .538394D-02, - + .375614D-02, .256658D-02, .171190D-02, .111596D-02, - + .703778D-03, .428508D-03, .250151D-03, .138626D-03, - + .718391D-04, .338538D-04, .137278D-04, .396784D-05, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=4005,4056) / - + .186149D+06, .144467D+06, .110673D+06, .847683D+05, - + .649221D+05, .497121D+05, .380621D+05, .291359D+05, - + .223007D+05, .170651D+05, .130571D+05, .998803D+04, - + .763940D+04, .584157D+04, .446628D+04, .341392D+04, - + .260922D+04, .199372D+04, .152327D+04, .116359D+04, - + .888804D+03, .678817D+03, .518464D+03, .395977D+03, - + .302482D+03, .231094D+03, .176645D+03, .134567D+03, - + .102992D+03, .788916D+02, .605086D+02, .464766D+02, - + .357685D+02, .276114D+02, .213641D+02, .165869D+02, - + .129317D+02, .101275D+02, .797292D+01, .631022D+01, - + .502513D+01, .402471D+01, .324242D+01, .262647D+01, - + .213852D+01, .174879D+01, .143656D+01, .118182D+01, - + .975423D+00, .804865D+00, .664712D+00, .548522D+00 / - DATA (UPDI(I),I=4057,4108) / - + .451956D+00, .371504D+00, .304437D+00, .248516D+00, - + .201956D+00, .163273D+00, .131247D+00, .104829D+00, - + .831462D-01, .654494D-01, .510877D-01, .395680D-01, - + .302985D-01, .229535D-01, .171885D-01, .127097D-01, - + .926960D-02, .665915D-02, .470534D-02, .326442D-02, - + .221941D-02, .147390D-02, .957843D-03, .603329D-03, - + .368112D-03, .216480D-03, .122030D-03, .654403D-04, - + .330844D-04, .155829D-04, .669792D-05, .256838D-05, - + .839233D-06, .210293D-06, .282463D-07, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .226383D+06, - + .175537D+06, .134333D+06, .102771D+06, .786135D+05, - + .601160D+05, .459631D+05, .351308D+05, .268464D+05, - + .205085D+05, .156637D+05, .119591D+05, .912868D+04 / - DATA (UPDI(I),I=4109,4160) / - + .696555D+04, .531380D+04, .405219D+04, .308942D+04, - + .235450D+04, .179402D+04, .136648D+04, .104065D+04, - + .792279D+03, .603125D+03, .459033D+03, .349371D+03, - + .265891D+03, .202433D+03, .153552D+03, .117003D+03, - + .892057D+02, .680859D+02, .520286D+02, .398263D+02, - + .305712D+02, .235157D+02, .181459D+02, .140577D+02, - + .109373D+02, .855265D+01, .672254D+01, .531628D+01, - + .422796D+01, .338216D+01, .272036D+01, .219949D+01, - + .178616D+01, .145726D+01, .119069D+01, .976230D+00, - + .800205D+00, .656569D+00, .538315D+00, .440723D+00, - + .359983D+00, .293149D+00, .237811D+00, .192057D+00, - + .154311D+00, .123279D+00, .978601D-01, .771445D-01, - + .603559D-01, .468247D-01, .360471D-01, .274349D-01 / - DATA (UPDI(I),I=4161,4212) / - + .206582D-01, .153765D-01, .113019D-01, .819429D-02, - + .585265D-02, .411235D-02, .283787D-02, .192015D-02, - + .126982D-02, .822698D-03, .517502D-03, .316226D-03, - + .187093D-03, .106930D-03, .588834D-04, .312695D-04, - + .160666D-04, .805429D-05, .401122D-05, .201852D-05, - + .101972D-05, .498064D-06, .214074D-06, .640655D-07, - + .491438D-08, .000000D+00, .163673D+06, .215907D+06, - + .164891D+06, .125884D+06, .960835D+05, .733093D+05, - + .559198D+05, .426378D+05, .325021D+05, .247651D+05, - + .188646D+05, .143634D+05, .109330D+05, .831795D+04, - + .632644D+04, .480941D+04, .365501D+04, .277633D+04, - + .210824D+04, .160016D+04, .121420D+04, .920935D+03, - + .698352D+03, .529378D+03, .401243D+03, .304057D+03 / - DATA (UPDI(I),I=4213,4264) / - + .230468D+03, .174004D+03, .131956D+03, .100110D+03, - + .760181D+02, .577821D+02, .439875D+02, .335739D+02, - + .256739D+02, .196912D+02, .151600D+02, .117196D+02, - + .910468D+01, .710901D+01, .558431D+01, .441119D+01, - + .350489D+01, .280005D+01, .224876D+01, .181400D+01, - + .147026D+01, .119344D+01, .972201D+00, .791803D+00, - + .645578D+00, .525996D+00, .427974D+00, .347425D+00, - + .281201D+00, .226737D+00, .182012D+00, .145364D+00, - + .115440D+00, .910936D-01, .713868D-01, .555238D-01, - + .428231D-01, .327749D-01, .247989D-01, .185648D-01, - + .137386D-01, .100403D-01, .723851D-02, .514144D-02, - + .359331D-02, .246711D-02, .166162D-02, .109446D-02, - + .706994D-03, .444116D-03, .271711D-03, .161592D-03 / - DATA (UPDI(I),I=4265,4316) / - + .934305D-04, .525589D-04, .289417D-04, .157335D-04, - + .854815D-05, .469937D-05, .261334D-05, .142802D-05, - + .728128D-06, .315107D-06, .922501D-07, .718013D-08, - + .000000D+00, .363428D+06, .280492D+06, .213492D+06, - + .162428D+06, .123540D+06, .939201D+05, .713782D+05, - + .542209D+05, .411731D+05, .312495D+05, .237088D+05, - + .179783D+05, .136274D+05, .103238D+05, .781786D+04, - + .591684D+04, .447617D+04, .338433D+04, .255772D+04, - + .193190D+04, .145864D+04, .110071D+04, .830327D+03, - + .626064D+03, .471924D+03, .355608D+03, .267992D+03, - + .201121D+03, .151592D+03, .114288D+03, .862258D+02, - + .651083D+02, .492273D+02, .373119D+02, .283279D+02, - + .215677D+02, .164802D+02, .126430D+02, .974582D+01 / - DATA (UPDI(I),I=4317,4368) / - + .754991D+01, .588371D+01, .461076D+01, .363425D+01, - + .288034D+01, .229494D+01, .183670D+01, .147709D+01, - + .118969D+01, .961765D+00, .777358D+00, .629050D+00, - + .508728D+00, .410881D+00, .331121D+00, .266068D+00, - + .212998D+00, .169764D+00, .134623D+00, .106158D+00, - + .831828D-01, .647333D-01, .500001D-01, .382948D-01, - + .291063D-01, .218690D-01, .162562D-01, .119445D-01, - + .866609D-02, .620161D-02, .437132D-02, .303066D-02, - + .206311D-02, .137670D-02, .897349D-03, .572708D-03, - + .354498D-03, .212836D-03, .123429D-03, .688813D-04, - + .368067D-04, .187664D-04, .910518D-05, .420244D-05, - + .186268D-05, .810041D-06, .351254D-06, .153067D-06, - + .623428D-07, .186825D-07, .139614D-08, .000000D+00 / - DATA (UPDI(I),I=4369,4420) / - + .474344D+06, .364833D+06, .276574D+06, .209568D+06, - + .158737D+06, .120174D+06, .909428D+05, .687850D+05, - + .520037D+05, .392944D+05, .296777D+05, .224014D+05, - + .169010D+05, .127433D+05, .960370D+04, .723297D+04, - + .544468D+04, .409584D+04, .307957D+04, .231393D+04, - + .173780D+04, .130429D+04, .978469D+03, .733622D+03, - + .549832D+03, .411892D+03, .308560D+03, .230139D+03, - + .172385D+03, .129140D+03, .967982D+02, .726071D+02, - + .545245D+02, .410419D+02, .309396D+02, .233869D+02, - + .177395D+02, .135081D+02, .103344D+02, .794520D+01, - + .614448D+01, .477823D+01, .373732D+01, .293933D+01, - + .232402D+01, .184581D+01, .147322D+01, .117762D+01, - + .944920D+00, .758071D+00, .608933D+00, .488872D+00 / - DATA (UPDI(I),I=4421,4472) / - + .391989D+0, .313633D+00, .250220D+00, .198895D+00, - + .157410D+00, .123956D+00, .970686D-01, .755370D-01, - + .583807D-01, .447869D-01, .340688D-01, .257197D-01, - + .191938D-01, .141715D-01, .103429D-01, .745414D-02, - + .529916D-02, .371098D-02, .255656D-02, .172982D-02, - + .114779D-02, .744410D-03, .473253D-03, .292304D-03, - + .175609D-03, .102381D-03, .578735D-04, .317147D-04, - + .169175D-04, .885419D-05, .459932D-05, .240730D-05, - + .127584D-05, .668057D-06, .328821D-06, .137303D-06, - + .385474D-07, .302806D-08, .000000D+00, .616640D+06, - + .472513D+06, .356656D+06, .269068D+06, .202903D+06, - + .152922D+06, .115200D+06, .867323D+05, .652674D+05, - + .490843D+05, .368949D+05, .277145D+05, .208072D+05 / - DATA (UPDI(I),I=4473,4524) / - + .156108D+05, .117055D+05, .877105D+04, .656838D+04, - + .491528D+04, .367605D+04, .274723D+04, .205192D+04, - + .153149D+04, .114243D+04, .851645D+03, .634566D+03, - + .472545D+03, .351865D+03, .260806D+03, .194135D+03, - + .144510D+03, .107617D+03, .801911D+02, .598154D+02, - + .447183D+02, .334771D+02, .251269D+02, .189233D+02, - + .143056D+02, .108647D+02, .829150D+01, .636492D+01, - + .491297D+01, .381413D+01, .297747D+01, .233672D+01, - + .184215D+01, .145950D+01, .115807D+01, .922472D+00, - + .734682D+00, .585895D+00, .467016D+00, .371806D+00, - + .295390D+00, .234018D+00, .184725D+00, .145188D+00, - + .113549D+00, .883143D-01, .682607D-01, .524032D-01, - + .399337D-01, .301749D-01, .226299D-01, .167763D-01 / - DATA (UPDI(I),I=4525,4576) / - + .123052D-01, .892213D-02, .638860D-02, .451264D-02, - + .314040D-02, .215033D-02, .144659D-02, .954816D-03, - + .616464D-03, .390637D-03, .240958D-03, .145013D-03, - + .851023D-04, .487863D-04, .274165D-04, .152306D-04, - + .845731D-05, .473946D-05, .269412D-05, .153405D-05, - + .842866D-06, .422667D-06, .175114D-06, .478783D-07, - + .382149D-08, .000000D+00, .795913D+06, .607551D+06, - + .456537D+06, .342869D+06, .257378D+06, .193085D+06, - + .144779D+06, .108488D+06, .812496D+05, .608093D+05, - + .454851D+05, .339988D+05, .253977D+05, .189586D+05, - + .141431D+05, .105427D+05, .785368D+04, .584589D+04, - + .434851D+04, .323207D+04, .240071D+04, .178178D+04, - + .132159D+04, .979518D+03, .725576D+03, .537103D+03 / - DATA (UPDI(I),I=4577,4628) / - + .397526D+03, .292822D+03, .216612D+03, .160224D+03, - + .118556D+03, .877672D+02, .650337D+02, .482946D+02, - + .359087D+02, .267667D+02, .200178D+02, .150268D+02, - + .113316D+02, .858618D+01, .654391D+01, .501482D+01, - + .386514D+01, .299554D+01, .233394D+01, .182670D+01, - + .143689D+01, .113194D+01, .895235D+00, .707913D+00, - + .560561D+00, .443690D+00, .350775D+00, .276755D+00, - + .217748D+00, .170711D+00, .133265D+00, .103525D+00, - + .799802D-01, .614098D-01, .468338D-01, .354567D-01, - + .266174D-01, .198329D-01, .146078D-01, .106458D-01, - + .766981D-02, .545731D-02, .383093D-02, .264987D-02, - + .180390D-02, .120693D-02, .792756D-03, .509782D-03, - + .322189D-03, .198636D-03, .119867D-03, .708808D-04 / - DATA (UPDI(I),I=4629,4680) / - + .412278D-04, .237288D-04, .136476D-04, .792303D-05, - + .466003D-05, .276599D-05, .162144D-05, .901756D-06, - + .450045D-06, .182788D-06, .485278D-07, .392685D-08, - + .000000D+00, .101816D+07, .774222D+06, .579165D+06, - + .432995D+06, .323543D+06, .241599D+06, .180307D+06, - + .134471D+06, .100228D+06, .746504D+05, .555651D+05, - + .413278D+05, .307182D+05, .228141D+05, .169322D+05, - + .125563D+05, .930466D+04, .688917D+04, .509701D+04, - + .376779D+04, .278320D+04, .205412D+04, .151497D+04, - + .111641D+04, .822168D+03, .605010D+03, .445110D+03, - + .325859D+03, .239569D+03, .176103D+03, .129481D+03, - + .952425D+02, .701148D+02, .517270D+02, .382050D+02, - + .282872D+02, .210115D+02, .156649D+02, .117314D+02 / - DATA (UPDI(I),I=4681,4732) / - + .882759D+01, .668109D+01, .508420D+01, .389116D+01, - + .299456D+01, .231679D+01, .180054D+01, .140640D+01, - + .110014D+01, .864020D+00, .678463D+00, .533521D+00, - + .419383D+00, .329290D+00, .258040D+00, .201653D+00, - + .157034D+00, .121773D+00, .939735D-01, .721255D-01, - + .550189D-01, .416890D-01, .313595D-01, .233911D-01, - + .173186D-01, .126751D-01, .917932D-02, .657214D-02, - + .464761D-02, .324292D-02, .223006D-02, .150968D-02, - + .100490D-02, .657111D-03, .421082D-03, .265608D-03, - + .163804D-03, .992092D-04, .591621D-04, .349220D-04, - + .205522D-04, .121725D-04, .730718D-05, .443522D-05, - + .269494D-05, .159738D-05, .887312D-06, .437193D-06, - + .173387D-06, .446581D-07, .366202D-08, .000000D+00 / - DATA (UPDI(I),I=4733,4784) / - + .128971D+07, .976984D+06, .727585D+06, .541510D+06, - + .402790D+06, .299393D+06, .222402D+06, .165087D+06, - + .122464D+06, .907743D+05, .672391D+05, .497654D+05, - + .368062D+05, .271985D+05, .200837D+05, .148169D+05, - + .109227D+05, .804467D+04, .592024D+04, .435275D+04, - + .319776D+04, .234705D+04, .172132D+04, .126128D+04, - + .923523D+03, .675631D+03, .494134D+03, .359558D+03, - + .262747D+03, .191958D+03, .140263D+03, .102526D+03, - + .749971D+02, .549745D+02, .403399D+02, .296723D+02, - + .218946D+02, .162147D+02, .120618D+02, .901511D+01, - + .677686D+01, .512206D+01, .389341D+01, .297584D+01, - + .228654D+01, .176483D+01, .136909D+01, .106359D+01, - + .829611D+00, .646988D+00, .505314D+00, .394529D+00 / - DATA (UPDI(I),I=4785,4836) / - + .307694D+00, .239508D+00, .185930D+00, .143837D+00, - + .110810D+00, .849594D-01, .647873D-01, .491055D-01, - + .369724D-01, .276365D-01, .204847D-01, .150724D-01, - + .109626D-01, .789031D-02, .561492D-02, .394696D-02, - + .273797D-02, .187225D-02, .126074D-02, .835168D-03, - + .543916D-03, .347516D-03, .218922D-03, .135165D-03, - + .822345D-04, .494879D-04, .296417D-04, .178041D-04, - + .108059D-04, .665079D-05, .411974D-05, .253352D-05, - + .150438D-05, .829325D-06, .401929D-06, .155405D-06, - + .388437D-07, .322705D-08, .000000D+00, .161705D+07, - + .122039D+07, .904867D+06, .670472D+06, .496483D+06, - + .367367D+06, .271648D+06, .200711D+06, .148194D+06, - + .109327D+06, .805950D+05, .593623D+05, .436894D+05 / - DATA (UPDI(I),I=4837,4888) / - + .321254D+05, .236031D+05, .173253D+05, .127065D+05, - + .930994D+04, .681544D+04, .498434D+04, .364207D+04, - + .265862D+04, .193908D+04, .141291D+04, .102871D+04, - + .748264D+03, .544083D+03, .393549D+03, .285878D+03, - + .207604D+03, .150774D+03, .109532D+03, .796239D+02, - + .580008D+02, .422908D+02, .309086D+02, .226599D+02, - + .166728D+02, .123217D+02, .914905D+01, .683227D+01, - + .512980D+01, .387341D+01, .294083D+01, .224454D+01, - + .172080D+01, .132600D+01, .102318D+01, .792755D+00, - + .614097D+00, .476429D+00, .369511D+00, .286281D+00, - + .221379D+00, .170736D+00, .131228D+00, .100447D+00, - + .765230D-01, .579844D-01, .436732D-01, .326772D-01, - + .242747D-01, .178817D-01, .130768D-01, .945319D-02 / - DATA (UPDI(I),I=4889,4940) / - + .676287D-02, .478401D-02, .334330D-02, .230610D-02, - + .156841D-02, .105083D-02, .693010D-03, .449705D-03, - + .286633D-03, .180458D-03, .111629D-03, .682758D-04, - + .414823D-04, .252021D-04, .154171D-04, .954638D-05, - + .598404D-05, .375371D-05, .231962D-05, .137235D-05, - + .748138D-06, .355936D-06, .134089D-06, .325488D-07, - + .273911D-08, .000000D+00, .200677D+07, .150900D+07, - + .111404D+07, .821878D+06, .605926D+06, .446360D+06, - + .328579D+06, .241675D+06, .177621D+06, .130430D+06, - + .957007D+05, .701544D+05, .513845D+05, .376004D+05, - + .274901D+05, .200782D+05, .146515D+05, .106804D+05, - + .777845D+04, .565898D+04, .411322D+04, .298650D+04, - + .216645D+04, .156994D+04, .113670D+04, .822162D+03 / - DATA (UPDI(I),I=4941,4992) / - + .594419D+03, .427452D+03, .308701D+03, .222860D+03, - + .160892D+03, .116181D+03, .839442D+02, .607744D+02, - + .440392D+02, .319860D+02, .233026D+02, .170376D+02, - + .125114D+02, .923062D+01, .684900D+01, .510923D+01, - + .383289D+01, .289116D+01, .219222D+01, .166967D+01, - + .127818D+01, .979777D+00, .754146D+00, .580344D+00, - + .447296D+00, .344657D+00, .265294D+00, .203828D+00, - + .156191D+00, .119285D+00, .907283D-01, .686852D-01, - + .517210D-01, .387147D-01, .287893D-01, .212561D-01, - + .155630D-01, .113127D-01, .812898D-02, .578114D-02, - + .406577D-02, .282524D-02, .193809D-02, .131129D-02, - + .874386D-03, .574275D-03, .371478D-03, .236337D-03, - + .148801D-03, .922894D-04, .567830D-04, .348387D-04 / - DATA (UPDI(I),I=4993,5044) / - + .214537D-04, .133370D-04, .839186D-05, .532897D-05, - + .336629D-05, .208028D-05, .122204D-05, .657352D-06, - + .306655D-06, .112536D-06, .265534D-07, .226314D-08, - + .000000D+00, .246534D+07, .184725D+07, .135801D+07, - + .997610D+06, .732324D+06, .537131D+06, .393662D+06, - + .288260D+06, .210908D+06, .154171D+06, .112601D+06, - + .821602D+05, .598954D+05, .436201D+05, .317377D+05, - + .230679D+05, .167502D+05, .121495D+05, .880372D+04, - + .637220D+04, .460768D+04, .332801D+04, .240140D+04, - + .173087D+04, .124641D+04, .896548D+03, .644594D+03, - + .460890D+03, .330956D+03, .237555D+03, .170504D+03, - + .122400D+03, .879139D+02, .632692D+02, .455706D+02, - + .328975D+02, .238202D+02, .173090D+02, .126321D+02 / - DATA (UPDI(I),I=5045,5096) / - + .926180D+01, .682920D+01, .506246D+01, .377381D+01, - + .282852D+01, .213104D+01, .161266D+01, .122662D+01, - + .934177D+00, .714420D+00, .546221D+00, .418290D+00, - + .320243D+00, .244930D+00, .186989D+00, .142384D+00, - + .108058D+00, .816778D-01, .614514D-01, .459896D-01, - + .342148D-01, .252890D-01, .185596D-01, .135074D-01, - + .976035D-02, .697224D-02, .492974D-02, .344730D-02, - + .238223D-02, .162554D-02, .109437D-02, .726484D-03, - + .475348D-03, .306653D-03, .194845D-03, .122763D-03, - + .763917D-04, .473043D-04, .293081D-04, .182761D-04, - + .115197D-04, .733953D-05, .470132D-05, .297830D-05, - + .183437D-05, .106748D-05, .565772D-06, .258610D-06, - + .924549D-07, .212261D-07, .183194D-08, .000000D+00 / - DATA (UPDI(I),I=5097,5148) / - + .732910D+05, .105236D+06, .804723D+05, .615360D+05, - + .470559D+05, .359835D+05, .275166D+05, .210423D+05, - + .160915D+05, .123057D+05, .941084D+04, .719717D+04, - + .550441D+04, .420997D+04, .322011D+04, .246316D+04, - + .188431D+04, .144165D+04, .110312D+04, .844223D+03, - + .646220D+03, .494780D+03, .378947D+03, .290342D+03, - + .222558D+03, .170695D+03, .131009D+03, .100257D+03, - + .770989D+02, .593608D+02, .457686D+02, .353477D+02, - + .273526D+02, .212294D+02, .165092D+02, .128768D+02, - + .100763D+02, .791230D+01, .623534D+01, .493097D+01, - + .391398D+01, .311631D+01, .248806D+01, .199086D+01, - + .159553D+01, .127982D+01, .102755D+01, .823343D+00, - + .659655D+00, .526628D+00, .419542D+00, .333016D+00 / - DATA (UPDI(I),I=5149,5200) / - + .263194D+00, .206970D+00, .161833D+00, .125735D+00, - + .970011D-01, .742544D-01, .563605D-01, .423832D-01, - + .315507D-01, .232278D-01, .168938D-01, .121426D-01, - + .858277D-02, .596797D-02, .407444D-02, .272480D-02, - + .177981D-02, .113135D-02, .696507D-03, .412594D-03, - + .232869D-03, .123275D-03, .600395D-04, .251857D-04, - + .771451D-05, .692590D-07, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .156439D+06, - + .121380D+06, .929663D+05, .711972D+05, .545248D+05, - + .417524D+05, .319712D+05, .244787D+05, .187415D+05, - + .143473D+05, .109830D+05, .840650D+04, .643417D+04 / - DATA (UPDI(I),I=5201,5252) / - + .492398D+04, .376809D+04, .288320D+04, .220605D+04, - + .168775D+04, .129122D+04, .987772D+03, .755672D+03, - + .578100D+03, .442305D+03, .338434D+03, .259016D+03, - + .198279D+03, .151857D+03, .115916D+03, .888879D+02, - + .682145D+02, .524061D+02, .403102D+02, .310544D+02, - + .239845D+02, .185534D+02, .143882D+02, .111907D+02, - + .873040D+01, .683393D+01, .536660D+01, .422978D+01, - + .334373D+01, .265082D+01, .210634D+01, .167681D+01, - + .133629D+01, .106638D+01, .849429D+00, .676903D+00, - + .537623D+00, .426273D+00, .336845D+00, .265122D+00, - + .207678D+00, .161805D+00, .125286D+00, .963457D-01, - + .735271D-01, .556519D-01, .417369D-01, .309929D-01, - + .227647D-01, .165219D-01, .118538D-01, .836557D-02 / - DATA (UPDI(I),I=5253,5304) / - + .580864D-02, .396154D-02, .264717D-02, .172865D-02, - + .109859D-02, .676399D-03, .400149D-03, .225074D-03, - + .117558D-03, .550974D-04, .202014D-04, .244712D-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, .186123D+06, .144444D+06, - + .110653D+06, .847500D+05, .649058D+05, .496976D+05, - + .380491D+05, .291243D+05, .222903D+05, .170558D+05, - + .130488D+05, .998058D+04, .763273D+04, .583561D+04, - + .446094D+04, .340914D+04, .260494D+04, .198988D+04, - + .151983D+04, .116051D+04, .886041D+03, .676336D+03, - + .516235D+03, .393972D+03, .300676D+03, .229465D+03 / - DATA (UPDI(I),I=5305,5356) / - + .175172D+03, .133235D+03, .101783D+03, .777904D+02, - + .595027D+02, .455546D+02, .349199D+02, .268272D+02, - + .206364D+02, .159088D+02, .122973D+02, .953195D+01, - + .741212D+01, .578120D+01, .452552D+01, .355301D+01, - + .279763D+01, .220813D+01, .174645D+01, .138301D+01, - + .109705D+01, .868749D+00, .688516D+00, .543957D+00, - + .429143D+00, .337490D+00, .264423D+00, .206227D+00, - + .160008D+00, .123396D+00, .945255D-01, .718669D-01, - + .542005D-01, .405068D-01, .299808D-01, .219530D-01, - + .158869D-01, .113693D-01, .800660D-02, .555028D-02, - + .378254D-02, .252872D-02, .165550D-02, .105790D-02, - + .658383D-03, .397066D-03, .231280D-03, .128907D-03, - + .688007D-04, .343855D-04, .160407D-04, .676776D-05 / - DATA (UPDI(I),I=5357,5408) / - + .254786D-05, .785684D-06, .202013D-06, .270276D-07, - + .130897D-07, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .226356D+06, .175512D+06, .134310D+06, - + .102751D+06, .785958D+05, .601002D+05, .459490D+05, - + .351182D+05, .268351D+05, .204984D+05, .156547D+05, - + .119510D+05, .912147D+04, .695910D+04, .530803D+04, - + .404702D+04, .308479D+04, .235035D+04, .179031D+04, - + .136315D+04, .103767D+04, .789602D+03, .600720D+03, - + .456870D+03, .347424D+03, .264135D+03, .200847D+03, - + .152119D+03, .115702D+03, .880234D+02, .670074D+02, - + .510418D+02, .389201D+02, .297360D+02, .227430D+02, - + .174284D+02, .133892D+02, .103125D+02, .796729D+01 / - DATA (UPDI(I),I=5409,5460) / - + .617334D+01, .480061D+01, .374408D+01, .292877D+01, - + .229671D+01, .180507D+01, .142064D+01, .112024D+01, - + .881985D+00, .695168D+00, .546273D+00, .428761D+00, - + .335516D+00, .261621D+00, .203097D+00, .156873D+00, - + .120450D+00, .918749D-01, .695607D-01, .522495D-01, - + .388948D-01, .286787D-01, .209232D-01, .150894D-01, - + .107641D-01, .755859D-02, .522685D-02, .355590D-02, - + .237534D-02, .155634D-02, .997595D-03, .625128D-03, - + .381868D-03, .227558D-03, .131968D-03, .754080D-04, - + .424649D-04, .243148D-04, .144721D-04, .933241D-05, - + .649179D-05, .485425D-05, .368261D-05, .278555D-05, - + .200792D-05, .136500D-05, .846036D-06, .463825D-06, - + .209820D-06, .638352D-07, .491260D-08, .000000D+00 / - DATA (UPDI(I),I=5461,5512) / - + .163573D+06, .215880D+06, .164867D+06, .125862D+06, - + .960644D+05, .732923D+05, .559046D+05, .426242D+05, - + .324899D+05, .247542D+05, .188548D+05, .143547D+05, - + .109252D+05, .831100D+04, .632022D+04, .480385D+04, - + .365003D+04, .277187D+04, .210425D+04, .159658D+04, - + .121099D+04, .918059D+03, .695769D+03, .527057D+03, - + .399154D+03, .302175D+03, .228769D+03, .172470D+03, - + .130566D+03, .988472D+02, .748682D+02, .567318D+02, - + .430251D+02, .326890D+02, .248576D+02, .189359D+02, - + .144589D+02, .110672D+02, .849646D+01, .654133D+01, - + .505424D+01, .391667D+01, .304434D+01, .237238D+01, - + .185312D+01, .144968D+01, .113648D+01, .889655D+00, - + .697362D+00, .545049D+00, .425574D+00, .331334D+00 / - DATA (UPDI(I),I=5513,5564) / - + .257087D+00, .198618D+00, .152694D+00, .116701D+00, - + .886144D-01, .667956D-01, .499559D-01, .370302D-01, - + .271920D-01, .197601D-01, .141963D-01, .100907D-01, - + .706234D-02, .486939D-02, .330502D-02, .220449D-02, - + .144415D-02, .927287D-03, .583835D-03, .359985D-03, - + .218091D-03, .130018D-03, .775780D-04, .466266D-04, - + .291203D-04, .191539D-04, .134990D-04, .998611D-05, - + .765807D-05, .584338D-05, .438121D-05, .313126D-05, - + .210759D-05, .129521D-05, .702286D-06, .311935D-06, - + .920794D-07, .717876D-08, .000000D+00, .363395D+06, - + .280462D+06, .213466D+06, .162405D+06, .123519D+06, - + .939015D+05, .713616D+05, .542060D+05, .411598D+05, - + .312377D+05, .236982D+05, .179688D+05, .136189D+05 / - DATA (UPDI(I),I=5565,5616) / - + .103163D+05, .781109D+04, .591078D+04, .447076D+04, - + .337948D+04, .255338D+04, .192801D+04, .145515D+04, - + .109759D+04, .827523D+03, .623545D+03, .469659D+03, - + .353569D+03, .266153D+03, .199463D+03, .150091D+03, - + .112927D+03, .849889D+02, .639813D+02, .481974D+02, - + .363679D+02, .274603D+02, .207681D+02, .157415D+02, - + .119591D+02, .911181D+01, .696176D+01, .533809D+01, - + .410522D+01, .316678D+01, .244942D+01, .189924D+01, - + .147507D+01, .114826D+01, .892668D+00, .695038D+00, - + .539661D+00, .418667D+00, .323919D+00, .249794D+00, - + .191828D+00, .146607D+00, .111402D+00, .841093D-01, - + .630459D-01, .468918D-01, .345711D-01, .252508D-01, - + .182537D-01, .130458D-01, .922561D-02, .642360D-02 / - DATA (UPDI(I),I=5617,5668) / - + .440610D-02, .297469D-02, .197309D-02, .128455D-02, - + .818785D-03, .510659D-03, .310690D-03, .184439D-03, - + .106457D-03, .602989D-04, .333336D-04, .183537D-04, - + .101599D-04, .585526D-05, .353393D-05, .228857D-05, - + .152331D-05, .104194D-05, .686607D-06, .435317D-06, - + .254090D-06, .134414D-06, .600815D-07, .185616D-07, - + .139513D-08, .000000D+00, .474309D+06, .364801D+06, - + .276545D+06, .209543D+06, .158715D+06, .120154D+06, - + .909247D+05, .687688D+05, .519892D+05, .392815D+05, - + .296662D+05, .223911D+05, .168918D+05, .127351D+05, - + .959635D+04, .722640D+04, .543881D+04, .409058D+04, - + .307486D+04, .230972D+04, .173402D+04, .130090D+04, - + .975437D+03, .730900D+03, .547387D+03, .409692D+03 / - DATA (UPDI(I),I=5669,5720) / - + .306579D+03, .228355D+03, .170772D+03, .127680D+03, - + .954742D+02, .714036D+02, .534276D+02, .400397D+02, - + .300218D+02, .225445D+02, .169648D+02, .127946D+02, - + .967656D+01, .733854D+01, .558526D+01, .426353D+01, - + .326466D+01, .250672D+01, .192966D+01, .148804D+01, - + .115028D+01, .888072D+00, .686803D+00, .529722D+00, - + .408276D+00, .313858D+00, .240510D+00, .183555D+00, - + .139426D+00, .105308D+00, .790348D-01, .588957D-01, - + .435520D-01, .319268D-01, .231897D-01, .166730D-01, - + .118530D-01, .833947D-02, .577830D-02, .394563D-02, - + .265317D-02, .175414D-02, .113956D-02, .726067D-03, - + .453812D-03, .277843D-03, .167003D-03, .986224D-04, - + .580272D-04, .341069D-04, .205407D-04, .128401D-04 / - DATA (UPDI(I),I=5721,5772) / - + .849907D-05, .589549D-05, .426066D-05, .309264D-05, - + .222557D-05, .153494D-05, .100165D-05, .597979D-06, - + .315573D-06, .135721D-06, .384634D-07, .302733D-08, - + .000000D+00, .616602D+06, .472478D+06, .356625D+06, - + .269040D+06, .202879D+06, .152900D+06, .115181D+06, - + .867147D+05, .652518D+05, .490704D+05, .368824D+05, - + .277034D+05, .207972D+05, .156019D+05, .116976D+05, - + .876394D+04, .656202D+04, .490960D+04, .367096D+04, - + .274268D+04, .204785D+04, .152785D+04, .113917D+04, - + .848715D+03, .631936D+03, .470181D+03, .349738D+03, - + .258893D+03, .192409D+03, .142950D+03, .106206D+03, - + .789111D+02, .586522D+02, .436589D+02, .325105D+02, - + .242434D+02, .181143D+02, .135642D+02, .101849D+02 / - DATA (UPDI(I),I=5773,5824) / - + .766829D+01, .579400D+01, .439093D+01, .333799D+01, - + .254471D+01, .194502D+01, .148935D+01, .114335D+01, - + .876658D+00, .673412D+00, .515927D+00, .395033D+00, - + .301714D+00, .229727D+00, .174222D+00, .131512D+00, - + .987202D-01, .736411D-01, .545484D-01, .400992D-01, - + .292255D-01, .211069D-01, .150916D-01, .106707D-01, - + .746871D-02, .514928D-02, .350006D-02, .234406D-02, - + .154477D-02, .100144D-02, .637847D-03, .399570D-03, - + .246170D-03, .149761D-03, .903263D-04, .549139D-04, - + .338511D-04, .216532D-04, .144835D-04, .101972D-04, - + .742905D-05, .553226D-05, .408993D-05, .296110D-05, - + .204871D-05, .133394D-05, .792460D-06, .413284D-06, - + .174009D-06, .478201D-07, .382096D-08, .000000D+00 / - DATA (UPDI(I),I=5825,5876) / - + .795871D+06, .607514D+06, .456503D+06, .342839D+06, - + .257352D+06, .193061D+06, .144757D+06, .108469D+06, - + .812327D+05, .607941D+05, .454716D+05, .339867D+05, - + .253870D+05, .189490D+05, .141345D+05, .105350D+05, - + .784682D+04, .583977D+04, .434303D+04, .322717D+04, - + .239633D+04, .177786D+04, .131808D+04, .976373D+03, - + .722755D+03, .534571D+03, .395251D+03, .290779D+03, - + .214772D+03, .158565D+03, .117057D+03, .864113D+02, - + .638050D+02, .471792D+02, .348946D+02, .258436D+02, - + .191765D+02, .142596D+02, .106318D+02, .794839D+01, - + .596321D+01, .448723D+01, .338714D+01, .256407D+01, - + .194615D+01, .147989D+01, .112831D+01, .859235D+00, - + .655599D+00, .498930D+00, .379504D+00, .287971D+00 / - DATA (UPDI(I),I=5877,5928) / - + .217853D+00, .164168D+00, .123144D+00, .918652D-01, - + .681073D-01, .501448D-01, .366423D-01, .265499D-01, - + .190647D-01, .135554D-01, .953244D-02, .663725D-02, - + .455339D-02, .308103D-02, .205529D-02, .135029D-02, - + .873712D-03, .556470D-03, .349502D-03, .216741D-03, - + .133461D-03, .821138D-04, .513772D-04, .328995D-04, - + .219640D-04, .153178D-04, .111404D-04, .829349D-05, - + .623424D-05, .462059D-05, .333100D-05, .228967D-05, - + .147575D-05, .865586D-06, .443414D-06, .182019D-06, - + .484876D-07, .392647D-08, .000000D+00, .101812D+07, - + .774181D+06, .579129D+06, .432962D+06, .323515D+06, - + .241573D+06, .180284D+06, .134451D+06, .100210D+06, - + .746340D+05, .555506D+05, .413148D+05, .307066D+05 / - DATA (UPDI(I),I=5929,5980) / - + .228038D+05, .169229D+05, .125480D+05, .929728D+04, - + .688258D+04, .509113D+04, .376253D+04, .277850D+04, - + .204992D+04, .151121D+04, .111304D+04, .819153D+03, - + .602306D+03, .442683D+03, .323683D+03, .237614D+03, - + .174342D+03, .127895D+03, .938113D+02, .688216D+02, - + .505568D+02, .371451D+02, .273264D+02, .201397D+02, - + .148738D+02, .110138D+02, .817721D+01, .609250D+01, - + .455284D+01, .341291D+01, .256578D+01, .193407D+01, - + .146066D+01, .110611D+01, .836636D+00, .634095D+00, - + .479358D+00, .362222D+00, .273072D+00, .205253D+00, - + .153688D+00, .114557D+00, .849268D-01, .625762D-01, - + .457935D-01, .332628D-01, .239602D-01, .171065D-01, - + .120954D-01, .845975D-02, .585995D-02, .400055D-02 / - DATA (UPDI(I),I=5981,6032) / - + .269503D-02, .179102D-02, .117331D-02, .758019D-03, - + .482971D-03, .304283D-03, .190030D-03, .118456D-03, - + .742785D-04, .476786D-04, .314937D-04, .216983D-04, - + .155524D-04, .115214D-04, .866213D-05, .652011D-05, - + .481636D-05, .344450D-05, .234430D-05, .149158D-05, - + .861420D-06, .432518D-06, .172852D-06, .446304D-07, - + .366175D-08, .000000D+00, .128966D+07, .976940D+06, - + .727546D+06, .541475D+06, .402758D+06, .299365D+06, - + .222377D+06, .165065D+06, .122444D+06, .907567D+05, - + .672234D+05, .497514D+05, .367937D+05, .271874D+05, - + .200737D+05, .148080D+05, .109148D+05, .803761D+04, - + .591393D+04, .434712D+04, .319273D+04, .234255D+04, - + .171730D+04, .125768D+04, .920307D+03, .672751D+03 / - DATA (UPDI(I),I=6033,6084) / - + .491554D+03, .357249D+03, .260674D+03, .190097D+03, - + .138590D+03, .101020D+03, .736406D+02, .537512D+02, - + .392360D+02, .286756D+02, .209944D+02, .154019D+02, - + .113283D+02, .835413D+01, .618227D+01, .458864D+01, - + .341643D+01, .255105D+01, .190997D+01, .143273D+01, - + .107770D+01, .809692D+00, .609610D+00, .457804D+00, - + .343674D+00, .257412D+00, .192241D+00, .143031D+00, - + .105942D+00, .780524D-01, .571583D-01, .415760D-01, - + .300197D-01, .214982D-01, .152614D-01, .107313D-01, - + .746556D-02, .514505D-02, .349582D-02, .234505D-02, - + .155291D-02, .101474D-02, .654819D-03, .417590D-03, - + .264063D-03, .166162D-03, .104874D-03, .669635D-04, - + .439740D-04, .297973D-04, .210198D-04, .153454D-04 / - DATA (UPDI(I),I=6085,6136) / - + .114876D-04, .866828D-05, .650716D-05, .477698D-05, - + .338313D-05, .227606D-05, .142773D-05, .810838D-06, - + .398640D-06, .155035D-06, .388246D-07, .322686D-08, - + .000000D+00, .161700D+07, .122035D+07, .904825D+06, - + .670435D+06, .496449D+06, .367337D+06, .271621D+06, - + .200687D+06, .148172D+06, .109309D+06, .805781D+05, - + .593473D+05, .436760D+05, .321135D+05, .235925D+05, - + .173158D+05, .126980D+05, .930238D+04, .680869D+04, - + .497832D+04, .363670D+04, .265382D+04, .193480D+04, - + .140909D+04, .102529D+04, .745205D+03, .541347D+03, - + .391105D+03, .283689D+03, .205642D+03, .149014D+03, - + .107953D+03, .782055D+02, .567259D+02, .411447D+02, - + .298781D+02, .217334D+02, .158403D+02, .115745D+02 / - DATA (UPDI(I),I=6137,6188) / - + .847949D+01, .623354D+01, .459600D+01, .339916D+01, - + .252127D+01, .187512D+01, .139723D+01, .104406D+01, - + .779219D+00, .582818D+00, .434815D+00, .324298D+00, - + .241338D+00, .179086D+00, .132403D+00, .974560D-01, - + .713566D-01, .519364D-01, .375512D-01, .269536D-01, - + .191911D-01, .135469D-01, .947394D-02, .655625D-02, - + .449601D-02, .304082D-02, .203162D-02, .134096D-02, - + .874326D-03, .563821D-03, .360080D-03, .228676D-03, - + .145061D-03, .927106D-04, .602219D-04, .403549D-04, - + .279241D-04, .200507D-04, .148186D-04, .111537D-04, - + .841550D-05, .628556D-05, .457805D-05, .320744D-05, - + .213108D-05, .131697D-05, .734970D-06, .353628D-06, - + .133832D-06, .325357D-07, .273896D-08, .000000D+00 / - DATA (UPDI(I),I=6189,6240) / - + .200671D+07, .150895D+07, .111399D+07, .821838D+06, - + .605890D+06, .446328D+06, .328550D+06, .241649D+06, - + .177598D+06, .130410D+06, .956826D+05, .701383D+05, - + .513701D+05, .375876D+05, .274786D+05, .200680D+05, - + .146424D+05, .106723D+05, .777124D+04, .565256D+04, - + .410749D+04, .298139D+04, .216189D+04, .156588D+04, - + .113307D+04, .818921D+03, .591525D+03, .424871D+03, - + .306393D+03, .220797D+03, .159046D+03, .114529D+03, - + .824655D+02, .594499D+02, .428530D+02, .309240D+02, - + .223521D+02, .161877D+02, .117525D+02, .855447D+01, - + .624794D+01, .457666D+01, .336277D+01, .247798D+01, - + .183086D+01, .135531D+01, .100613D+01, .745993D+00, - + .554344D+00, .410889D+00, .304482D+00, .225147D+00 / - DATA (UPDI(I),I=6241,6292) / - + .166014D+00, .121969D+00, .892191D-01, .649254D-01, - + .469701D-01, .337587D-01, .240900D-01, .170545D-01, - + .119719D-01, .832776D-02, .573350D-02, .391292D-02, - + .263482D-02, .175370D-02, .115410D-02, .751142D-03, - + .484288D-03, .309915D-03, .197783D-03, .126536D-03, - + .818881D-04, .540560D-04, .368735D-04, .259552D-04, - + .188845D-04, .140673D-04, .106097D-04, .798454D-05, - + .592464D-05, .427670D-05, .296223D-05, .194256D-05, - + .118213D-05, .647996D-06, .305039D-06, .112359D-06, - + .265444D-07, .226304D-08, .000000D+00, .246528D+07, - + .184720D+07, .135796D+07, .997566D+06, .732285D+06, - + .537096D+06, .393631D+06, .288233D+06, .210884D+06, - + .154149D+06, .112582D+06, .821429D+05, .598801D+05 / - DATA (UPDI(I),I=6293,6344) / - + .436064D+05, .317255D+05, .230570D+05, .167405D+05, - + .121409D+05, .879604D+04, .636536D+04, .460158D+04, - + .332259D+04, .239656D+04, .172656D+04, .124257D+04, - + .893123D+03, .641540D+03, .458171D+03, .328532D+03, - + .235392D+03, .168574D+03, .120678D+03, .863768D+02, - + .618972D+02, .443466D+02, .318062D+02, .228479D+02, - + .164439D+02, .118638D+02, .858104D+01, .622761D+01, - + .453269D+01, .330913D+01, .242279D+01, .177855D+01, - + .130808D+01, .964820D+00, .710740D+00, .524759D+00, - + .386463D+00, .284560D+00, .209087D+00, .153206D+00, - + .111861D+00, .813223D-01, .588200D-01, .422990D-01, - + .302230D-01, .214427D-01, .150951D-01, .105388D-01, - + .729252D-02, .499567D-02, .339357D-02, .227553D-02 / - DATA (UPDI(I),I=6345,6396) / - + .150923D-02, .990612D-03, .643853D-03, .415246D-03, - + .266425D-03, .170956D-03, .110345D-03, .722935D-04, - + .484409D-04, .335587D-04, .239499D-04, .175935D-04, - + .131665D-04, .992629D-05, .743825D-05, .547744D-05, - + .391577D-05, .268018D-05, .173402D-05, .103878D-05, - + .559141D-06, .257481D-06, .923330D-07, .212199D-07, - + .183187D-08, .000000D+00, .522637D+06, .418377D+06, - + .331966D+06, .263402D+06, .209000D+06, .165834D+06, - + .131584D+06, .104408D+06, .828447D+05, .657354D+05, - + .521598D+05, .413882D+05, .328413D+05, .260597D+05, - + .206787D+05, .164090D+05, .130212D+05, .103330D+05, - + .820003D+04, .650751D+04, .516451D+04, .409884D+04, - + .325321D+04, .258218D+04, .204969D+04, .162712D+04 / - DATA (UPDI(I),I=6397,6448) / - + .129178D+04, .102230D+04, .811859D+03, .644822D+03, - + .512231D+03, .406980D+03, .323432D+03, .257291D+03, - + .204651D+03, .162892D+03, .129770D+03, .103503D+03, - + .826771D+02, .661634D+02, .530915D+02, .427291D+02, - + .345187D+02, .280115D+02, .228500D+02, .187500D+02, - + .154958D+02, .128776D+02, .107854D+02, .908125D+01, - + .769509D+01, .655165D+01, .559816D+01, .479410D+01, - + .410875D+01, .351898D+01, .300752D+01, .256149D+01, - + .217127D+01, .182960D+01, .153086D+01, .127055D+01, - + .104492D+01, .851532D+00, .685424D+00, .545067D+00, - + .427768D+00, .330929D+00, .252051D+00, .188741D+00, - + .138737D+00, .999302D-01, .703702D-01, .483091D-01, - + .323649D-01, .209675D-01, .131187D-01, .788755D-02 / - DATA (UPDI(I),I=6449,6500) / - + .452906D-02, .246437D-02, .125799D-02, .595368D-03, - + .255233D-03, .973567D-04, .317391D-04, .835419D-05, - + .161376D-05, .191264D-06, .930341D-08, .513152D-10, - + .000000D+00, .118714D+07, .936845D+06, .731450D+06, - + .570958D+06, .445727D+06, .347880D+06, .271540D+06, - + .211897D+06, .165369D+06, .129023D+06, .100673D+06, - + .785305D+05, .612619D+05, .477766D+05, .372619D+05, - + .290525D+05, .226529D+05, .176576D+05, .137646D+05, - + .107265D+05, .835955D+04, .651286D+04, .507454D+04, - + .395276D+04, .307929D+04, .239823D+04, .186808D+04, - + .144983D+04, .112956D+04, .879979D+03, .685795D+03, - + .534511D+03, .416832D+03, .325411D+03, .254118D+03, - + .198623D+03, .155482D+03, .121901D+03, .957898D+02 / - DATA (UPDI(I),I=6501,6552) / - + .754496D+02, .596389D+02, .473086D+02, .376976D+02, - + .301887D+02, .243156D+02, .197051D+02, .160877D+02, - + .132050D+02, .109232D+02, .908019D+01, .759416D+01, - + .637908D+01, .537586D+01, .453904D+01, .383464D+01, - + .323686D+01, .272634D+01, .228842D+01, .191187D+01, - + .158807D+01, .131004D+01, .107227D+01, .869784D+00, - + .699351D+00, .555489D+00, .436046D+00, .337871D+00, - + .258166D+00, .194263D+00, .143778D+00, .104492D+00, - + .744577D-01, .519082D-01, .353057D-01, .234584D-01, - + .150958D-01, .939865D-02, .564005D-02, .324435D-02, - + .177946D-02, .923065D-03, .450029D-03, .202827D-03, - + .840697D-04, .313762D-04, .103197D-04, .286411D-05, - + .609146D-06, .780581D-07, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=6553,6604) / - + .213151D+07, .166829D+07, .129030D+07, .997552D+06, - + .771216D+06, .595981D+06, .460551D+06, .355737D+06, - + .274765D+06, .212123D+06, .163753D+06, .126350D+06, - + .974822D+05, .751711D+05, .579609D+05, .446668D+05, - + .344182D+05, .265063D+05, .204109D+05, .157082D+05, - + .120876D+05, .929619D+04, .714875D+04, .549436D+04, - + .422256D+04, .324339D+04, .249131D+04, .190586D+04, - + .146370D+04, .112383D+04, .863119D+03, .662873D+03, - + .509369D+03, .391835D+03, .301540D+03, .232286D+03, - + .179255D+03, .138580D+03, .107420D+03, .834929D+02, - + .651565D+02, .510478D+02, .401933D+02, .318150D+02, - + .253370D+02, .203040D+02, .163939D+02, .133054D+02, - + .108816D+02, .894005D+01, .738761D+01, .612931D+01 / - DATA (UPDI(I),I=6605,6656) / - + .510026D+01, .425090D+01, .354422D+01, .295217D+01, - + .245350D+01, .203205D+01, .167520D+01, .137323D+01, - + .111811D+01, .903511D+00, .723643D+00, .574682D+00, - + .450910D+00, .349753D+00, .267861D+00, .202369D+00, - + .150615D+00, .110307D+00, .793635D-01, .560228D-01, - + .387231D-01, .261369D-01, .172552D-01, .110516D-01, - + .686261D-02, .411980D-02, .237984D-02, .131803D-02, - + .695147D-03, .347965D-03, .163018D-03, .712933D-04, - + .285173D-04, .101820D-04, .307164D-05, .699376D-06, - + .929885D-07, .000000D+00, .000000D+00, .341006D+07, - + .265225D+07, .203655D+07, .156294D+07, .119931D+07, - + .919769D+06, .705271D+06, .540478D+06, .414113D+06, - + .317096D+06, .242757D+06, .185724D+06, .142057D+06 / - DATA (UPDI(I),I=6657,6708) / - + .108582D+06, .829734D+05, .633590D+05, .483675D+05, - + .368956D+05, .281362D+05, .214399D+05, .163322D+05, - + .124315D+05, .945972D+04, .719283D+04, .546767D+04, - + .415303D+04, .315396D+04, .238466D+04, .181000D+04, - + .137323D+04, .104199D+04, .790531D+03, .600024D+03, - + .455909D+03, .346530D+03, .263669D+03, .200997D+03, - + .153522D+03, .117598D+03, .903473D+02, .697111D+02, - + .540161D+02, .420746D+02, .329548D+02, .259737D+02, - + .206004D+02, .164628D+02, .132217D+02, .106988D+02, - + .869393D+01, .710396D+01, .582639D+01, .479123D+01, - + .394549D+01, .324956D+01, .267350D+01, .219448D+01, - + .179511D+01, .146170D+01, .118364D+01, .952157D+00, - + .760325D+00, .601862D+00, .472541D+00, .366624D+00 / - DATA (UPDI(I),I=6709,6760) / - + .281286D+00, .213153D+00, .159401D+00, .117479D+00, - + .852451D-01, .608005D-01, .425802D-01, .292267D-01, - + .196103D-01, .128879D-01, .823171D-02, .510875D-02, - + .307404D-02, .178616D-02, .999463D-03, .535345D-03, - + .273801D-03, .131893D-03, .596149D-04, .247079D-04, - + .911899D-05, .281810D-05, .648497D-06, .857337D-07, - + .000000D+00, .000000D+00, .508177D+07, .393137D+07, - + .300012D+07, .228802D+07, .174450D+07, .132921D+07, - + .101250D+07, .770718D+06, .586486D+06, .445965D+06, - + .338994D+06, .257482D+06, .195494D+06, .148308D+06, - + .112464D+06, .852104D+05, .645317D+05, .488276D+05, - + .369275D+05, .279017D+05, .210714D+05, .158981D+05, - + .119890D+05, .903259D+04, .680196D+04, .511712D+04 / - DATA (UPDI(I),I=6761,6812) / - + .384833D+04, .288042D+04, .216422D+04, .162513D+04, - + .122027D+04, .916019D+03, .687838D+03, .517024D+03, - + .388729D+03, .292580D+03, .220629D+03, .166715D+03, - + .126353D+03, .960631D+02, .733634D+02, .562761D+02, - + .434026D+02, .336648D+02, .262776D+02, .206408D+02, - + .163358D+02, .129902D+02, .104063D+02, .836902D+01, - + .676628D+01, .548942D+01, .446417D+01, .363477D+01, - + .295945D+01, .240681D+01, .195275D+01, .157896D+01, - + .127095D+01, .101750D+01, .809358D+00, .639200D+00, - + .500517D+00, .388850D+00, .298595D+00, .226817D+00, - + .170233D+00, .126143D+00, .921651D-01, .663382D-01, - + .469662D-01, .326769D-01, .223057D-01, .149013D-01, - + .976488D-02, .623003D-02, .387044D-02, .233726D-02 / - DATA (UPDI(I),I=6813,6864) / - + .136696D-02, .772438D-03, .419256D-03, .217975D-03, - + .107003D-03, .493092D-04, .207954D-04, .776824D-05, - + .240966D-05, .551532D-06, .718140D-07, .000000D+00, - + .000000D+00, .760683D+07, .585142D+07, .443599D+07, - + .336055D+07, .254484D+07, .192570D+07, .145656D+07, - + .110085D+07, .831617D+06, .627707D+06, .473553D+06, - + .356941D+06, .268896D+06, .202379D+06, .152225D+06, - + .114387D+06, .858996D+05, .644400D+05, .483086D+05, - + .361762D+05, .270716D+05, .202358D+05, .151154D+05, - + .112780D+05, .840881D+04, .626202D+04, .466085D+04, - + .345147D+04, .256550D+04, .190550D+04, .141492D+04, - + .105022D+04, .779608D+03, .579285D+03, .430481D+03, - + .320236D+03, .238668D+03, .178255D+03, .133541D+03 / - DATA (UPDI(I),I=6865,6916) / - + .100371D+03, .757890D+02, .574906D+02, .438509D+02, - + .336416D+02, .259735D+02, .201788D+02, .157942D+02, - + .124178D+02, .983372D+01, .781522D+01, .624224D+01, - + .500175D+01, .401628D+01, .322823D+01, .259439D+01, - + .208244D+01, .166752D+01, .133081D+01, .105741D+01, - + .835787D+00, .656512D+00, .512159D+00, .396252D+00, - + .304300D+00, .231058D+00, .173637D+00, .128996D+00, - + .946740D-01, .685614D-01, .489535D-01, .344140D-01, - + .238024D-01, .161740D-01, .107720D-01, .705005D-02, - + .450160D-02, .280553D-02, .170387D-02, .100493D-02, - + .574086D-03, .315713D-03, .166511D-03, .829300D-04, - + .386887D-04, .164521D-04, .615698D-05, .189865D-05, - + .428917D-06, .548714D-07, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=6917,6968) / - + .109294D+08, .836256D+07, .630047D+07, .474312D+07, - + .356891D+07, .268318D+07, .201616D+07, .151364D+07, - + .113569D+07, .851324D+06, .637749D+06, .477286D+06, - + .356946D+06, .266671D+06, .199077D+06, .148452D+06, - + .110612D+06, .823218D+05, .612146D+05, .454639D+05, - + .337357D+05, .250014D+05, .185116D+05, .136889D+05, - + .101134D+05, .746127D+04, .550080D+04, .403357D+04, - + .296860D+04, .218281D+04, .160427D+04, .117844D+04, - + .865574D+03, .636344D+03, .467798D+03, .344240D+03, - + .253775D+03, .187488D+03, .138941D+03, .103310D+03, - + .771777D+02, .579262D+02, .437188D+02, .331894D+02, - + .253555D+02, .194904D+02, .150926D+02, .117364D+02, - + .919090D+01, .722094D+01, .570038D+01, .451330D+01 / - DATA (UPDI(I),I=6969,7020) / - + .358023D+01, .284251D+01, .225618D+01, .178853D+01, - + .141445D+01, .111497D+01, .875145D+00, .683465D+00, - + .530587D+00, .409212D+00, .313101D+00, .237896D+00, - + .178795D+00, .133065D+00, .979608D-01, .712965D-01, - + .512422D-01, .363444D-01, .254072D-01, .174957D-01, - + .118526D-01, .788165D-02, .515897D-02, .330040D-02, - + .206475D-02, .126101D-02, .749167D-03, .431601D-03, - + .239513D-03, .127408D-03, .639061D-04, .299326D-04, - + .127261D-04, .473544D-05, .144353D-05, .320787D-06, - + .402101D-07, .000000D+00, .000000D+00, .151792D+08, - + .115562D+08, .865574D+07, .647768D+07, .484474D+07, - + .362021D+07, .270340D+07, .201686D+07, .150360D+07, - + .111982D+07, .833362D+06, .619516D+06, .460162D+06 / - DATA (UPDI(I),I=7021,7072) / - + .341408D+06, .253075D+06, .187370D+06, .138591D+06, - + .102380D+06, .755541D+05, .556820D+05, .409931D+05, - + .301369D+05, .221317D+05, .162297D+05, .118884D+05, - + .869462D+04, .635335D+04, .461611D+04, .336607D+04, - + .245192D+04, .178485D+04, .129840D+04, .944289D+03, - + .687321D+03, .500178D+03, .364336D+03, .265847D+03, - + .194401D+03, .142592D+03, .104945D+03, .776033D+02, - + .576572D+02, .430761D+02, .323714D+02, .244793D+02, - + .186239D+02, .142721D+02, .109804D+02, .850626D+01, - + .660917D+01, .515879D+01, .403783D+01, .316594D+01, - + .248421D+01, .194863D+01, .152661D+01, .119322D+01, - + .929741D+00, .721478D+00, .557205D+00, .427901D+00, - + .326575D+00, .247363D+00, .186157D+00, .138644D+00 / - DATA (UPDI(I),I=7073,7124) / - + .102313D+00, .747382D-01, .540152D-01, .385846D-01, - + .272257D-01, .189551D-01, .130147D-01, .880261D-02, - + .585165D-02, .383429D-02, .245887D-02, .154396D-02, - + .947358D-03, .565841D-03, .327747D-03, .182768D-03, - + .975554D-04, .489919D-04, .229011D-04, .968034D-05, - + .356513D-05, .107090D-05, .233706D-06, .286719D-07, - + .000000D+00, .000000D+00, .204883D+08, .155244D+08, - + .115633D+08, .860491D+07, .639894D+07, .475392D+07, - + .352913D+07, .261722D+07, .193936D+07, .143550D+07, - + .106162D+07, .784207D+06, .578736D+06, .426576D+06, - + .314101D+06, .230980D+06, .169670D+06, .124461D+06, - + .911925D+05, .667190D+05, .487542D+05, .355722D+05, - + .259219D+05, .188599D+05, .137042D+05, .994047D+04 / - DATA (UPDI(I),I=7125,7176) / - + .720314D+04, .518842D+04, .375057D+04, .270790D+04, - + .195345D+04, .140808D+04, .101453D+04, .731519D+03, - + .527265D+03, .380378D+03, .274864D+03, .199043D+03, - + .144574D+03, .105368D+03, .771580D+02, .567691D+02, - + .419992D+02, .312536D+02, .234012D+02, .176262D+02, - + .133715D+02, .101814D+02, .780499D+01, .599953D+01, - + .463224D+01, .358596D+01, .278051D+01, .215753D+01, - + .167355D+01, .129662D+01, .100237D+01, .772632D+00, - + .593257D+00, .453500D+00, .344829D+00, .260688D+00, - + .195682D+00, .146022D+00, .107897D+00, .790479D-01, - + .573699D-01, .412276D-01, .293092D-01, .206015D-01, - + .143030D-01, .980329D-02, .662612D-02, .440647D-02, - + .289130D-02, .185826D-02, .117019D-02, .720280D-03 / - DATA (UPDI(I),I=7177,7228) / - + .431533D-03, .250553D-03, .139898D-03, .746307D-04, - + .373704D-04, .173670D-04, .727470D-05, .264528D-05, - + .781897D-06, .167496D-06, .201159D-07, .000000D+00, - + .000000D+00, .269839D+08, .203541D+08, .150800D+08, - + .111615D+08, .825478D+07, .609878D+07, .450207D+07, - + .331978D+07, .244573D+07, .179973D+07, .132305D+07, - + .971428D+06, .712499D+06, .521900D+06, .381852D+06, - + .278994D+06, .203595D+06, .148351D+06, .107958D+06, - + .784395D+05, .569147D+05, .412285D+05, .298237D+05, - + .215369D+05, .155302D+05, .111773D+05, .803522D+04, - + .574039D+04, .411540D+04, .294642D+04, .210735D+04, - + .150584D+04, .107537D+04, .768470D+03, .548870D+03, - + .392339D+03, .280887D+03, .201517D+03, .145005D+03 / - DATA (UPDI(I),I=7229,7280) / - + .104694D+03, .759464D+02, .553534D+02, .405657D+02, - + .299009D+02, .221743D+02, .165404D+02, .124251D+02, - + .936627D+01, .710767D+01, .540727D+01, .413157D+01, - + .316486D+01, .242815D+01, .186428D+01, .143094D+01, - + .109717D+01, .839544D+00, .640687D+00, .487193D+00, - + .368956D+00, .278047D+00, .208429D+00, .155212D+00, - + .114975D+00, .843834D-01, .614481D-01, .443610D-01, - + .317359D-01, .224793D-01, .157570D-01, .109192D-01, - + .747648D-02, .505252D-02, .336180D-02, .220833D-02, - + .142143D-02, .896564D-03, .552613D-03, .331345D-03, - + .192333D-03, .107214D-03, .569934D-04, .283754D-04, - + .130780D-04, .541820D-05, .194286D-05, .564806D-06, - + .118777D-06, .139737D-07, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=7281,7332) / - + .347836D+08, .261243D+08, .192561D+08, .141788D+08, - + .104313D+08, .766591D+07, .562840D+07, .412769D+07, - + .302408D+07, .221282D+07, .161745D+07, .118072D+07, - + .860909D+06, .626847D+06, .455852D+06, .331009D+06, - + .240035D+06, .173789D+06, .125648D+06, .906892D+05, - + .653595D+05, .470213D+05, .337761D+05, .242173D+05, - + .173360D+05, .123842D+05, .883554D+04, .626281D+04, - + .445464D+04, .316379D+04, .224436D+04, .159045D+04, - + .112621D+04, .797931D+03, .564964D+03, .400303D+03, - + .284049D+03, .201970D+03, .144027D+03, .103053D+03, - + .740798D+02, .535032D+02, .388518D+02, .283746D+02, - + .208472D+02, .154045D+02, .114623D+02, .855697D+01, - + .643040D+01, .484367D+01, .366417D+01, .277884D+01 / - DATA (UPDI(I),I=7333,7384) / - + .211073D+01, .160451D+01, .121948D+01, .926023D+00, - + .701918D+00, .530772D+00, .400067D+00, .300434D+00, - + .224612D+00, .167121D+00, .123593D+00, .909784D-01, - + .663943D-01, .481079D-01, .345831D-01, .246540D-01, - + .174151D-01, .121826D-01, .843130D-02, .576908D-02, - + .389816D-02, .259435D-02, .170500D-02, .109793D-02, - + .692643D-03, .426747D-03, .255555D-03, .147974D-03, - + .821646D-04, .434313D-04, .214584D-04, .979337D-05, - + .400855D-05, .141658D-05, .404986D-06, .836350D-07, - + .964722D-08, .000000D+00, .000000D+00, .439908D+08, - + .329027D+08, .241328D+08, .176812D+08, .129422D+08, - + .946254D+07, .691143D+07, .504201D+07, .367422D+07, - + .267403D+07, .194383D+07, .141108D+07, .102305D+07 / - DATA (UPDI(I),I=7385,7436) / - + .740637D+06, .535457D+06, .386510D+06, .278592D+06, - + .200469D+06, .144032D+06, .103300D+06, .739662D+05, - + .528631D+05, .377175D+05, .268585D+05, .190925D+05, - + .135417D+05, .959137D+04, .674761D+04, .476330D+04, - + .335707D+04, .236284D+04, .166111D+04, .116672D+04, - + .819867D+03, .575658D+03, .404446D+03, .284545D+03, - + .200587D+03, .141805D+03, .100581D+03, .716719D+02, - + .513099D+02, .369297D+02, .267308D+02, .194631D+02, - + .142511D+02, .105070D+02, .777083D+01, .578513D+01, - + .431644D+01, .323447D+01, .242981D+01, .182830D+01, - + .137693D+01, .103698D+01, .780437D+00, .586468D+00, - + .439797D+00, .328875D+00, .245127D+00, .181981D+00, - + .134525D+00, .988988D-01, .724145D-01, .525982D-01 / - DATA (UPDI(I),I=7437,7488) / - + .379568D-01, .271929D-01, .193319D-01, .136264D-01, - + .951711D-02, .657941D-02, .449871D-02, .303840D-02, - + .202141D-02, .132788D-02, .854434D-03, .538350D-03, - + .331010D-03, .197629D-03, .113952D-03, .629209D-04, - + .330221D-04, .161705D-04, .730096D-05, .295061D-05, - + .102737D-05, .288874D-06, .586065D-07, .663441D-08, - + .000000D+00, .000000D+00, .546911D+08, .407429D+08, - + .297410D+08, .216852D+08, .157953D+08, .114916D+08, - + .835134D+07, .606154D+07, .439442D+07, .318150D+07, - + .230047D+07, .166101D+07, .119768D+07, .862261D+06, - + .619878D+06, .444893D+06, .318809D+06, .228055D+06, - + .162867D+06, .116094D+06, .826096D+05, .586665D+05, - + .415878D+05, .294197D+05, .207726D+05, .146323D+05 / - DATA (UPDI(I),I=7489,7540) / - + .102916D+05, .718804D+04, .503744D+04, .352410D+04, - + .246175D+04, .171743D+04, .119687D+04, .834435D+03, - + .581189D+03, .405021D+03, .282612D+03, .197577D+03, - + .138513D+03, .974217D+02, .688346D+02, .488602D+02, - + .348658D+02, .250196D+02, .180589D+02, .131070D+02, - + .957844D+01, .702076D+01, .518012D+01, .383027D+01, - + .284450D+01, .211788D+01, .157960D+01, .117938D+01, - + .880739D+00, .657456D+00, .490188D+00, .364855D+00, - + .270912D+00, .200592D+00, .148010D+00, .108802D+00, - + .795846D-01, .580123D-01, .419724D-01, .301872D-01, - + .215661D-01, .152965D-01, .107621D-01, .750558D-02, - + .518266D-02, .353998D-02, .238844D-02, .158715D-02, - + .104111D-02, .668605D-03, .420178D-03, .257466D-03 / - DATA (UPDI(I),I=7541,7592) / - + .153045D-03, .877560D-04, .481277D-04, .250522D-04, - + .121487D-04, .542322D-05, .216333D-05, .742120D-06, - + .205270D-06, .409284D-07, .455127D-08, .000000D+00, - + .000000D+00, .669481D+08, .496822D+08, .360989D+08, - + .261982D+08, .189923D+08, .137513D+08, .994506D+07, - + .718284D+07, .518135D+07, .373230D+07, .268490D+07, - + .192852D+07, .138323D+07, .990516D+06, .708205D+06, - + .505480D+06, .360191D+06, .256188D+06, .181895D+06, - + .128892D+06, .911654D+05, .643466D+05, .453298D+05, - + .318633D+05, .223522D+05, .156408D+05, .109269D+05, - + .757876D+04, .527416D+04, .366348D+04, .254057D+04, - + .175936D+04, .121689D+04, .841953D+03, .581892D+03, - + .402341D+03, .278521D+03, .193163D+03, .134328D+03 / - DATA (UPDI(I),I=7593,7644) / - + .937124D+02, .656737D+02, .462341D+02, .327192D+02, - + .232839D+02, .166654D+02, .119935D+02, .869077D+01, - + .631574D+01, .462041D+01, .338734D+01, .249439D+01, - + .184178D+01, .136248D+01, .100919D+01, .747842D+00, - + .554122D+00, .410233D+00, .303309D+00, .223809D+00, - + .164757D+00, .120925D+00, .884644D-01, .644301D-01, - + .467877D-01, .337391D-01, .241962D-01, .172440D-01, - + .122054D-01, .857195D-02, .596854D-02, .411509D-02, - + .280640D-02, .189024D-02, .125354D-02, .820281D-03, - + .525195D-03, .328827D-03, .200573D-03, .118574D-03, - + .675463D-04, .367610D-04, .189659D-04, .910314D-05, - + .401646D-05, .158117D-05, .534422D-06, .145444D-06, - + .285118D-07, .311734D-08, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=7645,7696) / - + .732910D+05, .105777D+06, .809557D+05, .619684D+05, - + .474428D+05, .363295D+05, .278262D+05, .213192D+05, - + .163392D+05, .125273D+05, .960909D+04, .737452D+04, - + .566307D+04, .435191D+04, .334710D+04, .257677D+04, - + .198596D+04, .153259D+04, .118449D+04, .917037D+03, - + .711381D+03, .553099D+03, .431148D+03, .337074D+03, - + .264402D+03, .208173D+03, .164585D+03, .130304D+03, - + .104043D+03, .835379D+02, .674786D+02, .548601D+02, - + .449094D+02, .370528D+02, .307899D+02, .257904D+02, - + .217803D+02, .185473D+02, .159268D+02, .137897D+02, - + .120389D+02, .105930D+02, .939122D+01, .838491D+01, - + .753552D+01, .681248D+01, .619351D+01, .565320D+01, - + .518260D+01, .476340D+01, .438988D+01, .405245D+01 / - DATA (UPDI(I),I=7697,7748) / - + .374475D+01, .346172D+01, .319939D+01, .295463D+01, - + .272504D+01, .250877D+01, .230445D+01, .211104D+01, - + .192780D+01, .175420D+01, .158987D+01, .143526D+01, - + .128859D+01, .115075D+01, .102165D+01, .901247D+00, - + .789488D+00, .686304D+00, .591604D+00, .505263D+00, - + .427072D+00, .356772D+00, .294716D+00, .239687D+00, - + .191803D+00, .150663D+00, .115834D+00, .868428D-01, - + .631899D-01, .443766D-01, .297510D-01, .188816D-01, - + .111310D-01, .593418D-02, .273533D-02, .100206D-02, - + .241459D-03, .208953D-04, .000000D+00, .157088D+06, - + .121961D+06, .934859D+05, .716619D+05, .549404D+05, - + .421241D+05, .323036D+05, .247760D+05, .190074D+05, - + .145851D+05, .111956D+05, .859664D+04, .660420D+04 / - DATA (UPDI(I),I=7749,7800) / - + .507602D+04, .390406D+04, .300478D+04, .231477D+04, - + .178497D+04, .137815D+04, .106551D+04, .825188D+03, - + .640267D+03, .497906D+03, .388166D+03, .303506D+03, - + .238088D+03, .187485D+03, .147761D+03, .117412D+03, - + .937745D+02, .753265D+02, .608791D+02, .495327D+02, - + .406096D+02, .335303D+02, .279042D+02, .234148D+02, - + .198123D+02, .169078D+02, .145501D+02, .126285D+02, - + .110484D+02, .974109D+01, .865049D+01, .773357D+01, - + .695552D+01, .629164D+01, .571374D+01, .521198D+01, - + .476627D+01, .437050D+01, .401419D+01, .369062D+01, - + .339432D+01, .312107D+01, .286750D+01, .263106D+01, - + .240972D+01, .220198D+01, .200667D+01, .182292D+01, - + .165009D+01, .148764D+01, .133590D+01, .119298D+01 / - DATA (UPDI(I),I=7801,7852) / - + .105963D+01, .935634D+00, .820830D+00, .715030D+00, - + .618054D+00, .529686D+00, .449705D+00, .377820D+00, - + .313654D+00, .257440D+00, .207974D+00, .165267D+00, - + .128881D+00, .983293D-01, .731248D-01, .527453D-01, - + .366985D-01, .243526D-01, .152830D-01, .889646D-02, - + .467515D-02, .211868D-02, .760409D-03, .179338D-03, - + .156633D-04, .000000D+00, .186818D+06, .145066D+06, - + .111209D+06, .852474D+05, .653506D+05, .500952D+05, - + .384046D+05, .294421D+05, .225745D+05, .173098D+05, - + .132759D+05, .101836D+05, .781420D+04, .599780D+04, - + .460592D+04, .353871D+04, .272074D+04, .209337D+04, - + .161231D+04, .124315D+04, .959893D+03, .742330D+03, - + .575211D+03, .446677D+03, .347782D+03, .271575D+03 / - DATA (UPDI(I),I=7853,7904) / - + .212821D+03, .166848D+03, .131853D+03, .104702D+03, - + .836022D+02, .671492D+02, .542895D+02, .442245D+02, - + .362808D+02, .299997D+02, .250148D+02, .210350D+02, - + .178436D+02, .152658D+02, .131754D+02, .114642D+02, - + .100548D+02, .888343D+01, .790235D+01, .707257D+01, - + .636681D+01, .575423D+01, .522401D+01, .475439D+01, - + .433878D+01, .396590D+01, .362865D+01, .332114D+01, - + .303891D+01, .277834D+01, .253671D+01, .231182D+01, - + .210204D+01, .190605D+01, .172285D+01, .155167D+01, - + .139182D+01, .124351D+01, .110475D+01, .976157D+00, - + .857391D+00, .748173D+00, .648202D+00, .557195D+00, - + .474830D+00, .400801D+00, .334743D+00, .276187D+00, - + .225261D+00, .180780D+00, .142669D+00, .110452D+00 / - DATA (UPDI(I),I=7905,7956) / - + .836234D-01, .616848D-01, .441045D-01, .303993D-01, - + .199638D-01, .123860D-01, .711701D-02, .368463D-02, - + .164034D-02, .576080D-03, .132759D-03, .117129D-04, - + .000000D+00, .227097D+06, .176176D+06, .134904D+06, - + .103282D+06, .790702D+05, .605242D+05, .463280D+05, - + .354569D+05, .271378D+05, .207690D+05, .158965D+05, - + .121671D+05, .931450D+04, .713155D+04, .546209D+04, - + .418464D+04, .320772D+04, .246014D+04, .188837D+04, - + .145072D+04, .111587D+04, .859425D+03, .663069D+03, - + .512541D+03, .397135D+03, .308533D+03, .240498D+03, - + .187480D+03, .147300D+03, .116265D+03, .922636D+02, - + .736395D+02, .591580D+02, .478826D+02, .390321D+02, - + .320714D+02, .265777D+02, .222151D+02, .187352D+02 / - DATA (UPDI(I),I=7957,8008) / - + .159386D+02, .136821D+02, .118431D+02, .103349D+02, - + .908632D+01, .804436D+01, .716596D+01, .642119D+01, - + .577665D+01, .522044D+01, .472928D+01, .429603D+01, - + .390869D+01, .355972D+01, .324284D+01, .295335D+01, - + .268738D+01, .244203D+01, .221494D+01, .200431D+01, - + .180868D+01, .162694D+01, .145817D+01, .130154D+01, - + .115714D+01, .102288D+01, .899255D+00, .785807D+00, - + .682153D+00, .587888D+00, .502634D+00, .425979D+00, - + .357542D+00, .296894D+00, .243494D+00, .197377D+00, - + .157386D+00, .123374D+00, .948421D-01, .712717D-01, - + .521594D-01, .369767D-01, .252541D-01, .164180D-01, - + .100733D-01, .571556D-02, .291654D-02, .127627D-02, - + .439012D-03, .990067D-04, .882004D-05, .000000D+00 / - DATA (UPDI(I),I=8009,8060) / - + .163573D+06, .216587D+06, .165499D+06, .126427D+06, - + .965691D+05, .737433D+05, .563076D+05, .429843D+05, - + .328116D+05, .250416D+05, .191115D+05, .145840D+05, - + .111300D+05, .849387D+04, .648351D+04, .494963D+04, - + .378018D+04, .288804D+04, .220794D+04, .168912D+04, - + .129357D+04, .991735D+03, .761505D+03, .585701D+03, - + .451473D+03, .348856D+03, .270417D+03, .209569D+03, - + .163677D+03, .128403D+03, .101264D+03, .803148D+02, - + .641125D+02, .515657D+02, .417718D+02, .341116D+02, - + .280991D+02, .233500D+02, .195820D+02, .165690D+02, - + .141494D+02, .121865D+02, .105832D+02, .926099D+01, - + .816146D+01, .723752D+01, .645653D+01, .578263D+01, - + .520281D+01, .469235D+01, .424354D+01, .384368D+01 / - DATA (UPDI(I),I=8061,8112) / - + .348478D+01, .316022D+01, .286502D+01, .259509D+01, - + .234732D+01, .211919D+01, .190875D+01, .171440D+01, - + .153488D+01, .136916D+01, .121626D+01, .107613D+01, - + .946639D+00, .828127D+00, .720039D+00, .621892D+00, - + .533190D+00, .453472D+00, .382247D+00, .319068D+00, - + .263451D+00, .214800D+00, .173070D+00, .137135D+00, - + .106792D+00, .815286D-01, .608204D-01, .441665D-01, - + .310494D-01, .210162D-01, .135282D-01, .821006D-02, - + .460124D-02, .231495D-02, .996205D-03, .335897D-03, - + .742248D-04, .667439D-05, .000000D+00, .364247D+06, - + .281224D+06, .214146D+06, .163013D+06, .124062D+06, - + .943867D+05, .717950D+05, .545931D+05, .415055D+05, - + .315463D+05, .239737D+05, .182148D+05, .138385D+05 / - DATA (UPDI(I),I=8113,8164) / - + .105122D+05, .798598D+04, .606681D+04, .460996D+04, - + .350364D+04, .266411D+04, .202675D+04, .154318D+04, - + .117606D+04, .897462D+03, .685870D+03, .525198D+03, - + .403064D+03, .310254D+03, .238692D+03, .185050D+03, - + .144084D+03, .112767D+03, .887538D+02, .703054D+02, - + .561174D+02, .451172D+02, .365726D+02, .299106D+02, - + .246835D+02, .205623D+02, .172871D+02, .146721D+02, - + .125620D+02, .108470D+02, .943917D+01, .827334D+01, - + .729757D+01, .647580D+01, .576928D+01, .516359D+01, - + .463237D+01, .416713D+01, .375440D+01, .338562D+01, - + .305379D+01, .275355D+01, .248055D+01, .223143D+01, - + .200348D+01, .179455D+01, .160286D+01, .142699D+01, - + .126576D+01, .111802D+01, .983571D+00, .860203D+00 / - DATA (UPDI(I),I=8165,8216) / - + .748105D+00, .646602D+00, .555104D+00, .473016D+00, - + .399786D+00, .334846D+00, .277679D+00, .227747D+00, - + .184405D+00, .147526D+00, .116030D+00, .896595D-01, - + .678967D-01, .502205D-01, .361409D-01, .251622D-01, - + .168557D-01, .107275D-01, .642984D-02, .355371D-02, - + .175992D-02, .743609D-03, .245469D-03, .531422D-04, - + .482530D-05, .000000D+00, .475225D+06, .365620D+06, - + .277277D+06, .210196D+06, .159298D+06, .120675D+06, - + .913899D+05, .691841D+05, .523600D+05, .396124D+05, - + .299615D+05, .226546D+05, .171269D+05, .129448D+05, - + .978331D+04, .739309D+04, .558741D+04, .422302D+04, - + .319288D+04, .241486D+04, .182768D+04, .138430D+04, - + .104969D+04, .796999D+03, .606220D+03, .462057D+03 / - DATA (UPDI(I),I=8217,8268) / - + .353175D+03, .269742D+03, .207599D+03, .160447D+03, - + .124637D+03, .973630D+02, .765490D+02, .606509D+02, - + .484073D+02, .389613D+02, .316447D+02, .259410D+02, - + .214717D+02, .179410D+02, .151374D+02, .128869D+02, - + .110664D+02, .957862D+01, .835151D+01, .732838D+01, - + .646981D+01, .573430D+01, .510598D+01, .455698D+01, - + .407804D+01, .365495D+01, .327861D+01, .294161D+01, - + .263825D+01, .236392D+01, .211502D+01, .188862D+01, - + .168240D+01, .149440D+01, .132303D+01, .116698D+01, - + .102493D+01, .896548D+00, .779553D+00, .673988D+00, - + .579073D+00, .494124D+00, .418459D+00, .351450D+00, - + .292465D+00, .240933D+00, .196269D+00, .157799D+00, - + .125328D+00, .978239D-01, .749929D-01, .563180D-01 / - DATA (UPDI(I),I=8269,8320) / - + .412903D-01, .294369D-01, .202887D-01, .134441D-01, - + .845441D-02, .500090D-02, .272307D-02, .132574D-02, - + .549046D-03, .177029D-03, .374489D-04, .343843D-05, - + .000000D+00, .617585D+06, .473358D+06, .357410D+06, - + .269742D+06, .203505D+06, .153459D+06, .115680D+06, - + .871598D+05, .656489D+05, .494246D+05, .371983D+05, - + .279851D+05, .210484D+05, .158258D+05, .118971D+05, - + .894172D+04, .672039D+04, .505063D+04, .379653D+04, - + .285445D+04, .214731D+04, .161632D+04, .121786D+04, - + .918683D+03, .694137D+03, .525474D+03, .398870D+03, - + .302468D+03, .231122D+03, .177338D+03, .136757D+03, - + .106054D+03, .827790D+02, .651199D+02, .516097D+02, - + .412553D+02, .332862D+02, .271129D+02, .223041D+02 / - DATA (UPDI(I),I=8321,8372) / - + .185270D+02, .155435D+02, .131605D+02, .112415D+02, - + .967990D+01, .839686D+01, .733105D+01, .643978D+01, - + .567894D+01, .503125D+01, .446744D+01, .397748D+01, - + .354647D+01, .316477D+01, .282461D+01, .251994D+01, - + .224591D+01, .199866D+01, .177509D+01, .157265D+01, - + .138926D+01, .122316D+01, .107288D+01, .936972D+00, - + .814958D+00, .704518D+00, .605549D+00, .517181D+00, - + .438645D+00, .369188D+00, .308119D+00, .254755D+00, - + .208481D+00, .168681D+00, .134662D+00, .106177D+00, - + .822466D-01, .625508D-01, .465827D-01, .338519D-01, - + .239077D-01, .163116D-01, .106914D-01, .664303D-02, - + .387766D-02, .208011D-02, .995518D-03, .404112D-03, - + .127292D-03, .263257D-04, .244424D-05, .000000D+00 / - DATA (UPDI(I),I=8373,8424) / - + .796927D+06, .608458D+06, .457346D+06, .343591D+06, - + .258022D+06, .193660D+06, .145291D+06, .108945D+06, - + .816574D+05, .611728D+05, .458092D+05, .342875D+05, - + .256550D+05, .191878D+05, .143472D+05, .107243D+05, - + .801533D+04, .598971D+04, .447641D+04, .334578D+04, - + .250177D+04, .187156D+04, .140133D+04, .105031D+04, - + .788399D+03, .592848D+03, .446961D+03, .336571D+03, - + .255388D+03, .194582D+03, .148997D+03, .114734D+03, - + .889273D+02, .694765D+02, .546911D+02, .434321D+02, - + .348201D+02, .281893D+02, .230536D+02, .190418D+02, - + .158888D+02, .133823D+02, .113726D+02, .974380D+01, - + .841051D+01, .730688D+01, .638715D+01, .560469D+01, - + .494092D+01, .436523D+01, .386687D+01, .343029D+01 / - DATA (UPDI(I),I=8425,8476) / - + .304537D+01, .270394D+01, .239966D+01, .212742D+01, - + .188314D+01, .166352D+01, .146583D+01, .128783D+01, - + .112762D+01, .983587D+00, .854163D+00, .738728D+00, - + .634937D+00, .542553D+00, .460627D+00, .388319D+00, - + .324818D+00, .269383D+00, .221291D+00, .179898D+00, - + .144565D+00, .114595D+00, .896982D-01, .689529D-01, - + .520233D-01, .384187D-01, .276724D-01, .193596D-01, - + .130750D-01, .847658D-02, .520375D-02, .299737D-02, - + .158399D-02, .745212D-03, .296534D-03, .912834D-04, - + .184725D-04, .173410D-05, .000000D+00, .101925D+07, - + .775193D+06, .580031D+06, .433767D+06, .324233D+06, - + .242213D+06, .180855D+06, .134960D+06, .100663D+06, - + .750383D+05, .559107D+05, .416356D+05, .309923D+05 / - DATA (UPDI(I),I=8477,8528) / - + .230581D+05, .171492D+05, .127494D+05, .947633D+04, - + .704176D+04, .523260D+04, .388821D+04, .289012D+04, - + .214901D+04, .159914D+04, .119103D+04, .888313D+03, - + .663622D+03, .497010D+03, .371717D+03, .280148D+03, - + .211995D+03, .161222D+03, .123305D+03, .949273D+02, - + .736747D+02, .576204D+02, .454711D+02, .362335D+02, - + .291624D+02, .237156D+02, .194830D+02, .161723D+02, - + .135525D+02, .114604D+02, .977144D+01, .839381D+01, - + .725738D+01, .631346D+01, .551312D+01, .483650D+01, - + .425183D+01, .374762D+01, .330775D+01, .292160D+01, - + .258070D+01, .227838D+01, .200930D+01, .176916D+01, - + .155448D+01, .136237D+01, .119043D+01, .103661D+01, - + .899200D+00, .776498D+00, .667764D+00, .570637D+00 / - DATA (UPDI(I),I=8529,8580) / - + .484759D+00, .409116D+00, .342811D+00, .284984D+00, - + .234858D+00, .191685D+00, .154797D+00, .123546D+00, - + .972403D-01, .755596D-01, .576408D-01, .431414D-01, - + .315923D-01, .225536D-01, .156295D-01, .104486D-01, - + .669981D-02, .406355D-02, .230958D-02, .120234D-02, - + .556059D-03, .216922D-03, .652822D-04, .129372D-04, - + .122776D-05, .000000D+00, .129087D+07, .978022D+06, - + .728511D+06, .542336D+06, .403526D+06, .300050D+06, - + .222987D+06, .165609D+06, .122928D+06, .911879D+05, - + .676073D+05, .500931D+05, .370977D+05, .274578D+05, - + .203142D+05, .150218D+05, .111048D+05, .820636D+04, - + .606377D+04, .448010D+04, .331070D+04, .244716D+04, - + .181003D+04, .133983D+04, .993055D+03, .737156D+03 / - DATA (UPDI(I),I=8581,8632) / - + .548534D+03, .407547D+03, .305138D+03, .229386D+03, - + .173300D+03, .131675D+03, .100715D+03, .776714D+02, - + .603695D+02, .473543D+02, .375152D+02, .300256D+02, - + .242866D+02, .198492D+02, .163941D+02, .136716D+02, - + .115061D+02, .976425D+01, .834832D+01, .718416D+01, - + .622034D+01, .540582D+01, .471956D+01, .412870D+01, - + .362110D+01, .318009D+01, .279463D+01, .245591D+01, - + .215699D+01, .189231D+01, .165736D+01, .144850D+01, - + .126266D+01, .109732D+01, .950296D+00, .819768D+00, - + .703936D+00, .601943D+00, .511427D+00, .431920D+00, - + .362357D+00, .301793D+00, .249338D+00, .204185D+00, - + .165573D+00, .132822D+00, .105284D+00, .822779D-01, - + .634661D-01, .480445D-01, .356710D-01, .259018D-01 / - DATA (UPDI(I),I=8633,8684) / - + .183265D-01, .125798D-01, .832413D-02, .527898D-02, - + .316316D-02, .177393D-02, .909714D-03, .413583D-03, - + .158191D-03, .465589D-04, .904287D-05, .867448D-06, - + .000000D+00, .161830D+07, .122150D+07, .905857D+06, - + .671355D+06, .497269D+06, .368067D+06, .272272D+06, - + .201266D+06, .148688D+06, .109768D+06, .809868D+05, - + .597108D+05, .439993D+05, .324008D+05, .238478D+05, - + .175425D+05, .128993D+05, .948104D+04, .696718D+04, - + .511883D+04, .376122D+04, .276411D+04, .203244D+04, - + .149548D+04, .110169D+04, .812749D+03, .601011D+03, - + .443685D+03, .330090D+03, .246568D+03, .185098D+03, - + .139755D+03, .106231D+03, .814279D+02, .629137D+02, - + .490667D+02, .386564D+02, .307744D+02, .247648D+02 / - DATA (UPDI(I),I=8685,8736) / - + .201401D+02, .165547D+02, .137410D+02, .115112D+02, - + .972391D+01, .827580D+01, .708897D+01, .610950D+01, - + .528444D+01, .459162D+01, .399729D+01, .348864D+01, - + .304853D+01, .266552D+01, .233052D+01, .203631D+01, - + .177714D+01, .154830D+01, .134599D+01, .116701D+01, - + .100869D+01, .868768D+00, .745295D+00, .636400D+00, - + .541117D+00, .457099D+00, .383780D+00, .320056D+00, - + .264948D+00, .217544D+00, .177022D+00, .142617D+00, - + .113645D+00, .894659D-01, .694189D-01, .531548D-01, - + .399295D-01, .294078D-01, .211734D-01, .148472D-01, - + .100945D-01, .661129D-02, .414654D-02, .245453D-02, - + .135817D-02, .686097D-03, .306630D-03, .115006D-03, - + .331152D-04, .630839D-05, .611585D-06, .000000D+00 / - DATA (UPDI(I),I=8737,8788) / - + .200810D+07, .151019D+07, .111510D+07, .822820D+06, - + .606765D+06, .447107D+06, .329244D+06, .242267D+06, - + .178148D+06, .130898D+06, .961172D+05, .705245D+05, - + .517134D+05, .378925D+05, .277493D+05, .203082D+05, - + .148555D+05, .108612D+05, .793866D+04, .580083D+04, - + .423874D+04, .309751D+04, .226456D+04, .165660D+04, - + .121319D+04, .889647D+03, .653901D+03, .479748D+03, - + .354735D+03, .263355D+03, .196493D+03, .147462D+03, - + .111421D+03, .849102D+02, .652322D+02, .505963D+02, - + .396509D+02, .314060D+02, .251494D+02, .203562D+02, - + .166554D+02, .137623D+02, .114775D+02, .965235D+01, - + .817814D+01, .697365D+01, .598268D+01, .515060D+01, - + .445423D+01, .385900D+01, .335152D+01, .291422D+01 / - DATA (UPDI(I),I=8789,8840) / - + .253530D+01, .220540D+01, .191709D+01, .166439D+01, - + .144245D+01, .124732D+01, .107566D+01, .924708D+00, - + .792076D+00, .675747D+00, .573779D+00, .485114D+00, - + .407428D+00, .340074D+00, .281919D+00, .231962D+00, - + .189281D+00, .153048D+00, .122502D+00, .969654D-01, - + .758108D-01, .584036D-01, .443916D-01, .330897D-01, - + .241738D-01, .172574D-01, .119927D-01, .807584D-02, - + .523492D-02, .324699D-02, .189871D-02, .103657D-02, - + .515806D-03, .226618D-03, .833581D-04, .234905D-04, - + .439229D-05, .430296D-06, .000000D+00, .246676D+07, - + .184852D+07, .135914D+07, .998614D+06, .733218D+06, - + .537927D+06, .394370D+06, .288890D+06, .211469D+06, - + .154669D+06, .113043D+06, .825530D+05, .602442D+05 / - DATA (UPDI(I),I=8841,8892) / - + .439296D+05, .320122D+05, .233112D+05, .169658D+05, - + .123404D+05, .897267D+04, .652162D+04, .473975D+04, - + .344467D+04, .250437D+04, .182169D+04, .132647D+04, - + .967069D+03, .706650D+03, .515355D+03, .378813D+03, - + .279571D+03, .207368D+03, .154721D+03, .116239D+03, - + .880898D+02, .673087D+02, .519344D+02, .404947D+02, - + .319191D+02, .254411D+02, .204991D+02, .166982D+02, - + .137376D+02, .114073D+02, .955165D+01, .805734D+01, - + .684008D+01, .584165D+01, .500594D+01, .430888D+01, - + .371519D+01, .321095D+01, .277823D+01, .240490D+01, - + .208136D+01, .179998D+01, .155461D+01, .134024D+01, - + .115279D+01, .988811D+00, .845444D+00, .720220D+00, - + .611047D+00, .515932D+00, .433738D+00, .362178D+00 / - DATA (UPDI(I),I=8893,8944) / - + .300532D+00, .247654D+00, .202531D+00, .164241D+00, - + .131959D+00, .104934D+00, .825050D-01, .640610D-01, - + .489985D-01, .369685D-01, .273434D-01, .198142D-01, - + .140248D-01, .965857D-02, .644171D-02, .413266D-02, - + .253487D-02, .146424D-02, .788667D-03, .386575D-03, - + .166968D-03, .602410D-04, .166201D-04, .305245D-05, - + .302132D-06, .000000D+00, .733714D+05, .105520D+06, - + .807267D+05, .617642D+05, .472606D+05, .361671D+05, - + .276814D+05, .211902D+05, .162243D+05, .124250D+05, - + .951799D+04, .729346D+04, .559096D+04, .428780D+04, - + .329013D+04, .252618D+04, .194104D+04, .149275D+04, - + .114917D+04, .885747D+03, .683682D+03, .528598D+03, - + .409495D+03, .317954D+03, .247534D+03, .193304D+03 / - DATA (UPDI(I),I=8945,8996) / - + .151492D+03, .118804D+03, .939312D+02, .746512D+02, - + .596715D+02, .480013D+02, .388805D+02, .317448D+02, - + .261084D+02, .216481D+02, .180985D+02, .152553D+02, - + .129613D+02, .110947D+02, .956477D+01, .829691D+01, - + .723654D+01, .634100D+01, .557743D+01, .492053D+01, - + .435267D+01, .385329D+01, .341668D+01, .302822D+01, - + .268456D+01, .237835D+01, .210485D+01, .186017D+01, - + .164108D+01, .144485D+01, .126913D+01, .111190D+01, - + .971385D+00, .846001D+00, .734326D+00, .635070D+00, - + .547060D+00, .469563D+00, .400801D+00, .340382D+00, - + .287477D+00, .241331D+00, .201251D+00, .166603D+00, - + .136808D+00, .111335D+00, .896870D-01, .714090D-01, - + .562434D-01, .435941D-01, .332380D-01, .248639D-01 / - DATA (UPDI(I),I=8997,9048) / - + .181906D-01, .129635D-01, .895285D-02, .595589D-02, - + .377094D-02, .225216D-02, .124290D-02, .615714D-03, - + .260815D-03, .862487D-04, .181495D-04, .126405D-05, - + .000000D+00, .156781D+06, .121687D+06, .932417D+05, - + .714442D+05, .547463D+05, .419512D+05, .321496D+05, - + .246388D+05, .188852D+05, .144764D+05, .110989D+05, - + .851062D+04, .652774D+04, .500808D+04, .384373D+04, - + .295123D+04, .226727D+04, .174287D+04, .134085D+04, - + .103249D+04, .795984D+03, .614454D+03, .475110D+03, - + .368051D+03, .285771D+03, .222464D+03, .173732D+03, - + .135687D+03, .106797D+03, .844470D+02, .671312D+02, - + .536771D+02, .431983D+02, .350283D+02, .286024D+02, - + .235382D+02, .195285D+02, .163322D+02, .137684D+02 / - DATA (UPDI(I),I=9049,9100) / - + .116938D+02, .100045D+02, .861335D+01, .745799D+01, - + .648880D+01, .566852D+01, .496777D+01, .436651D+01, - + .384144D+01, .338579D+01, .298319D+01, .262955D+01, - + .231658D+01, .203896D+01, .179226D+01, .157281D+01, - + .137751D+01, .120375D+01, .104925D+01, .912024D+00, - + .790329D+00, .682592D+00, .587425D+00, .503519D+00, - + .430075D+00, .365281D+00, .308678D+00, .259398D+00, - + .216661D+00, .179755D+00, .148036D+00, .120916D+00, - + .978672D-01, .784012D-01, .620624D-01, .485914D-01, - + .374286D-01, .283505D-01, .210622D-01, .152965D-01, - + .108166D-01, .740697D-02, .488285D-02, .306036D-02, - + .180748D-02, .986054D-03, .481967D-03, .200896D-03, - + .651618D-04, .134488D-04, .947843D-06, .000000D+00 / - DATA (UPDI(I),I=9101,9152) / - + .186492D+06, .144775D+06, .110949D+06, .850162D+05, - + .651445D+05, .499117D+05, .382412D+05, .292966D+05, - + .224450D+05, .171947D+05, .131735D+05, .100926D+05, - + .773337D+04, .592603D+04, .454222D+04, .348222D+04, - + .267067D+04, .204901D+04, .157305D+04, .120841D+04, - + .929190D+03, .715212D+03, .551277D+03, .425571D+03, - + .329184D+03, .255199D+03, .198413D+03, .154203D+03, - + .120739D+03, .949367D+02, .750217D+02, .596070D+02, - + .476529D+02, .383731D+02, .311099D+02, .254138D+02, - + .209282D+02, .173716D+02, .145356D+02, .122542D+02, - + .104082D+02, .889745D+01, .765106D+01, .661229D+01, - + .573910D+01, .499809D+01, .436661D+01, .381878D+01, - + .334661D+01, .293213D+01, .257044D+01, .225239D+01 / - DATA (UPDI(I),I=9153,9204) / - + .197208D+01, .172454D+01, .150571D+01, .131215D+01, - + .114096D+01, .989656D+00, .856060D+00, .738270D+00, - + .634584D+00, .543524D+00, .463675D+00, .394174D+00, - + .333191D+00, .280212D+00, .234337D+00, .194774D+00, - + .160795D+00, .131754D+00, .107062D+00, .861958D-01, - + .686784D-01, .540597D-01, .420806D-01, .322167D-01, - + .242472D-01, .178932D-01, .129027D-01, .905506D-02, - + .614997D-02, .401870D-02, .249432D-02, .145746D-02, - + .784573D-03, .377777D-03, .154713D-03, .491402D-04, - + .993045D-05, .709045D-06, .000000D+00, .226752D+06, - + .175867D+06, .134629D+06, .103037D+06, .788520D+05, - + .603299D+05, .461551D+05, .353031D+05, .270010D+05, - + .206474D+05, .157884D+05, .120711D+05, .922927D+04 / - DATA (UPDI(I),I=9205,9256) / - + .705592D+04, .539502D+04, .412519D+04, .315506D+04, - + .241353D+04, .184713D+04, .141426D+04, .108366D+04, - + .830999D+03, .637996D+03, .490443D+03, .377674D+03, - + .291405D+03, .225435D+03, .174264D+03, .135687D+03, - + .106062D+03, .832986D+02, .657578D+02, .522201D+02, - + .417625D+02, .336200D+02, .272681D+02, .222937D+02, - + .183718D+02, .152628D+02, .127765D+02, .107770D+02, - + .915069D+01, .781733D+01, .671301D+01, .579062D+01, - + .501276D+01, .435409D+01, .378623D+01, .329990D+01, - + .287562D+01, .250766D+01, .218608D+01, .190435D+01, - + .165705D+01, .143970D+01, .124858D+01, .108051D+01, - + .932804D+00, .803112D+00, .689397D+00, .589844D+00, - + .502893D+00, .427043D+00, .361375D+00, .304056D+00 / - DATA (UPDI(I),I=9257,9308) / - + .254523D+00, .211856D+00, .175254D+00, .143983D+00, - + .117401D+00, .949189D-01, .760264D-01, .602566D-01, - + .471699D-01, .365099D-01, .277859D-01, .207823D-01, - + .152359D-01, .109102D-01, .760023D-02, .512061D-02, - + .331739D-02, .203952D-02, .117932D-02, .627402D-03, - + .298082D-03, .120179D-03, .374828D-04, .744662D-05, - + .538724D-06, .000000D+00, .163673D+06, .216260D+06, - + .165208D+06, .126168D+06, .963385D+05, .735381D+05, - + .561251D+05, .428220D+05, .326673D+05, .249134D+05, - + .189977D+05, .144829D+05, .110403D+05, .841434D+04, - + .641302D+04, .488719D+04, .372490D+04, .283914D+04, - + .216471D+04, .165092D+04, .125985D+04, .961990D+03, - + .735284D+03, .562605D+03, .431143D+03, .330971D+03 / - DATA (UPDI(I),I=9309,9360) / - + .254694D+03, .195780D+03, .151563D+03, .117762D+03, - + .919135D+02, .720930D+02, .568732D+02, .451773D+02, - + .361197D+02, .290923D+02, .236200D+02, .193298D+02, - + .159487D+02, .132605D+02, .111116D+02, .937402D+01, - + .795796D+01, .679216D+01, .582428D+01, .501291D+01, - + .433000D+01, .374471D+01, .324645D+01, .281431D+01, - + .244173D+01, .211800D+01, .183602D+01, .158991D+01, - + .137482D+01, .118674D+01, .102224D+01, .878466D+00, - + .752900D+00, .643386D+00, .548015D+00, .465152D+00, - + .393231D+00, .331283D+00, .277483D+00, .231228D+00, - + .191586D+00, .157752D+00, .128994D+00, .104674D+00, - + .842129D-01, .671111D-01, .529156D-01, .411999D-01, - + .317119D-01, .239937D-01, .178361D-01, .129918D-01 / - DATA (UPDI(I),I=9361,9412) / - + .923976D-02, .638986D-02, .427131D-02, .274384D-02, - + .167122D-02, .956473D-03, .502996D-03, .235861D-03, - + .936517D-04, .287009D-04, .561016D-05, .411055D-06, - + .000000D+00, .363855D+06, .280875D+06, .213835D+06, - + .162736D+06, .123816D+06, .941677D+05, .716003D+05, - + .544201D+05, .413518D+05, .314099D+05, .238526D+05, - + .181073D+05, .137432D+05, .104278D+05, .791120D+04, - + .600063D+04, .455141D+04, .345188D+04, .261839D+04, - + .198638D+04, .150757D+04, .114467D+04, .869811D+03, - + .661532D+03, .503788D+03, .384239D+03, .293712D+03, - + .224190D+03, .172314D+03, .132899D+03, .102939D+03, - + .801119D+02, .626948D+02, .493992D+02, .391709D+02, - + .312898D+02, .251946D+02, .204497D+02, .167362D+02 / - DATA (UPDI(I),I=9413,9464) / - + .138048D+02, .114779D+02, .960972D+01, .809787D+01, - + .686205D+01, .584319D+01, .499508D+01, .428620D+01, - + .368288D+01, .317283D+01, .273352D+01, .235735D+01, - + .203273D+01, .175188D+01, .150838D+01, .129699D+01, - + .111335D+01, .953764D+00, .815174D+00, .694899D+00, - + .590654D+00, .500431D+00, .422522D+00, .355301D+00, - + .297749D+00, .248064D+00, .205601D+00, .169427D+00, - + .138738D+00, .112811D+00, .910192D-01, .727987D-01, - + .576664D-01, .451883D-01, .349571D-01, .267284D-01, - + .200822D-01, .148194D-01, .107114D-01, .755570D-02, - + .517973D-02, .342978D-02, .218090D-02, .131344D-02, - + .742400D-03, .384952D-03, .177615D-03, .691957D-04, - + .207352D-04, .396291D-05, .293712D-06, .000000D+00 / - DATA (UPDI(I),I=9465,9516) / - + .474806D+06, .365247D+06, .276945D+06, .209901D+06, - + .159036D+06, .120441D+06, .911826D+05, .690000D+05, - + .521965D+05, .394673D+05, .298328D+05, .225405D+05, - + .170258D+05, .128553D+05, .970409D+04, .732302D+04, - + .552547D+04, .416831D+04, .314458D+04, .237225D+04, - + .179012D+04, .135122D+04, .102057D+04, .771378D+03, - + .583695D+03, .442263D+03, .335791D+03, .254509D+03, - + .194224D+03, .148704D+03, .114321D+03, .882917D+02, - + .685597D+02, .535974D+02, .421632D+02, .334131D+02, - + .266913D+02, .214948D+02, .174554D+02, .142886D+02, - + .117918D+02, .980091D+01, .820047D+01, .690106D+01, - + .583686D+01, .495691D+01, .422627D+01, .360856D+01, - + .308978D+01, .264592D+01, .226834D+01, .194464D+01 / - DATA (UPDI(I),I=9517,9568) / - + .166640D+01, .142673D+01, .121998D+01, .104151D+01, - + .887392D+00, .754379D+00, .639649D+00, .540816D+00, - + .455792D+00, .382812D+00, .320210D+00, .266927D+00, - + .221198D+00, .182347D+00, .149445D+00, .121698D+00, - + .983983D-01, .789335D-01, .627595D-01, .494124D-01, - + .384788D-01, .295731D-01, .224599D-01, .167562D-01, - + .122735D-01, .880205D-02, .615757D-02, .418408D-02, - + .274417D-02, .172710D-02, .102843D-02, .574105D-03, - + .293555D-03, .133316D-03, .509973D-04, .149689D-04, - + .280789D-05, .211289D-06, .000000D+00, .617139D+06, - + .472960D+06, .357057D+06, .269427D+06, .203225D+06, - + .153211D+06, .115459D+06, .869640D+05, .654752D+05, - + .492705D+05, .370618D+05, .278641D+05, .209413D+05 / - DATA (UPDI(I),I=9569,9620) / - + .157310D+05, .118133D+05, .886762D+04, .665493D+04, - + .499285D+04, .374556D+04, .280951D+04, .210772D+04, - + .158148D+04, .118721D+04, .891739D+03, .670463D+03, - + .504681D+03, .380619D+03, .286482D+03, .217092D+03, - + .165023D+03, .125940D+03, .965445D+02, .744039D+02, - + .577260D+02, .450644D+02, .354399D+02, .280954D+02, - + .224555D+02, .181003D+02, .147087D+02, .120519D+02, - + .994718D+01, .826607D+01, .690992D+01, .580629D+01, - + .489953D+01, .415138D+01, .352287D+01, .299837D+01, - + .255247D+01, .217556D+01, .185448D+01, .158022D+01, - + .134546D+01, .114420D+01, .971545D+00, .823354D+00, - + .696229D+00, .587233D+00, .493898D+00, .414076D+00, - + .345962D+00, .287869D+00, .238709D+00, .196762D+00 / - DATA (UPDI(I),I=9621,9672) / - + .161332D+00, .131503D+00, .106496D+00, .856213D-01, - + .682883D-01, .539745D-01, .422376D-01, .326859D-01, - + .249569D-01, .188265D-01, .139460D-01, .101393D-01, - + .721456D-02, .500517D-02, .337095D-02, .218979D-02, - + .136405D-02, .803082D-03, .442749D-03, .223249D-03, - + .997982D-04, .374917D-04, .107842D-04, .198725D-05, - + .151825D-06, .000000D+00, .796451D+06, .608034D+06, - + .456969D+06, .343256D+06, .257725D+06, .193396D+06, - + .145057D+06, .108737D+06, .814730D+05, .610094D+05, - + .456644D+05, .341594D+05, .255416D+05, .190875D+05, - + .142585D+05, .106460D+05, .794622D+04, .592874D+04, - + .442267D+04, .329844D+04, .246010D+04, .183491D+04, - + .136910D+04, .102200D+04, .763540D+03, .571027D+03 / - DATA (UPDI(I),I=9673,9724) / - + .427817D+03, .319810D+03, .240685D+03, .181681D+03, - + .137668D+03, .104776D+03, .801599D+02, .617376D+02, - + .478420D+02, .373486D+02, .293927D+02, .233231D+02, - + .186659D+02, .150624D+02, .122571D+02, .100486D+02, - + .829543D+01, .688982D+01, .575284D+01, .482435D+01, - + .406291D+01, .342715D+01, .289982D+01, .245427D+01, - + .207997D+01, .176307D+01, .149403D+01, .126514D+01, - + .107009D+01, .903769D+00, .761864D+00, .640852D+00, - + .537704D+00, .449890D+00, .375224D+00, .311875D+00, - + .258151D+00, .212948D+00, .174597D+00, .142391D+00, - + .115433D+00, .929650D-01, .743212D-01, .589337D-01, - + .463047D-01, .360148D-01, .276954D-01, .210080D-01, - + .157405D-01, .115771D-01, .835423D-02, .589773D-02 / - DATA (UPDI(I),I=9725,9776) / - + .405754D-02, .270846D-02, .174260D-02, .107432D-02, - + .625355D-03, .340485D-03, .169304D-03, .745007D-04, - + .274908D-04, .775192D-05, .140414D-05, .108898D-06, - + .000000D+00, .101874D+07, .774741D+06, .579630D+06, - + .433411D+06, .323916D+06, .241933D+06, .180606D+06, - + .134739D+06, .100468D+06, .748651D+05, .557574D+05, - + .415000D+05, .308723D+05, .229520D+05, .170556D+05, - + .126667D+05, .940342D+04, .697750D+04, .517599D+04, - + .383838D+04, .284628D+04, .211047D+04, .156529D+04, - + .116132D+04, .862233D+03, .640741D+03, .476948D+03, - + .354161D+03, .264754D+03, .198493D+03, .149371D+03, - + .112892D+03, .857617D+02, .655872D+02, .504657D+02, - + .391195D+02, .305710D+02, .240903D+02, .191484D+02 / - DATA (UPDI(I),I=9777,9828) / - + .153481D+02, .124073D+02, .101060D+02, .828978D+01, - + .684220D+01, .567807D+01, .473293D+01, .396237D+01, - + .332276D+01, .279536D+01, .235241D+01, .198250D+01, - + .167118D+01, .140845D+01, .118625D+01, .998018D+00, - + .838446D+00, .703096D+00, .588340D+00, .491087D+00, - + .408763D+00, .339164D+00, .280447D+00, .230930D+00, - + .189499D+00, .154549D+00, .125365D+00, .101078D+00, - + .809534D-01, .643528D-01, .507339D-01, .396253D-01, - + .306313D-01, .234071D-01, .176384D-01, .131260D-01, - + .958527D-02, .686510D-02, .480822D-02, .328032D-02, - + .217013D-02, .138285D-02, .843728D-03, .485565D-03, - + .261087D-03, .128025D-03, .554587D-04, .201039D-04, - + .555936D-05, .990398D-06, .779586D-07, .000000D+00 / - DATA (UPDI(I),I=9829,9880) / - + .129033D+07, .977542D+06, .728085D+06, .541958D+06, - + .403190D+06, .299752D+06, .222723D+06, .165375D+06, - + .122721D+06, .910045D+05, .674450D+05, .499496D+05, - + .369709D+05, .273458D+05, .202154D+05, .149346D+05, - + .110280D+05, .813867D+04, .600418D+04, .442769D+04, - + .326463D+04, .240669D+04, .177450D+04, .130866D+04, - + .965716D+03, .713186D+03, .527528D+03, .389176D+03, - + .289038D+03, .215272D+03, .160916D+03, .120799D+03, - + .911463D+02, .692325D+02, .529084D+02, .407357D+02, - + .316202D+02, .247518D+02, .195454D+02, .155653D+02, - + .125030D+02, .101205D+02, .825070D+01, .676881D+01, - + .558371D+01, .462694D+01, .385128D+01, .321108D+01, - + .268620D+01, .224792D+01, .188401D+01, .157952D+01 / - DATA (UPDI(I),I=9881,9932) / - + .132404D+01, .110922D+01, .928297D+00, .775794D+00, - + .647178D+00, .538751D+00, .447379D+00, .370469D+00, - + .305811D+00, .251566D+00, .206072D+00, .168220D+00, - + .136468D+00, .110105D+00, .882903D-01, .703198D-01, - + .555832D-01, .435659D-01, .338240D-01, .259863D-01, - + .197319D-01, .147708D-01, .109171D-01, .791503D-02, - + .562622D-02, .390930D-02, .264466D-02, .173394D-02, - + .109427D-02, .660736D-03, .375936D-03, .199623D-03, - + .965311D-04, .411667D-04, .146627D-04, .397766D-05, - + .697329D-06, .557011D-07, .000000D+00, .161772D+07, - + .122099D+07, .905404D+06, .670953D+06, .496913D+06, - + .367751D+06, .271992D+06, .201018D+06, .148469D+06, - + .109574D+06, .808152D+05, .595591D+05, .438653D+05 / - DATA (UPDI(I),I=9933,9984) / - + .322826D+05, .237435D+05, .174506D+05, .128184D+05, - + .940980D+04, .690451D+04, .506375D+04, .371284D+04, - + .272164D+04, .199518D+04, .146281D+04, .107305D+04, - + .787659D+03, .579037D+03, .424479D+03, .313267D+03, - + .231828D+03, .172173D+03, .128410D+03, .962553D+02, - + .726361D+02, .551465D+02, .421831D+02, .325326D+02, - + .253039D+02, .198557D+02, .157144D+02, .125457D+02, - + .100940D+02, .818015D+01, .667160D+01, .547164D+01, - + .450809D+01, .373117D+01, .309345D+01, .257350D+01, - + .214177D+01, .178531D+01, .148875D+01, .124132D+01, - + .103445D+01, .861193D+00, .715981D+00, .594201D+00, - + .492109D+00, .406554D+00, .334939D+00, .275065D+00, - + .225110D+00, .183444D+00, .148968D+00, .120210D+00 / - DATA (UPDI(I),I=9985,10036) / - + .964667D-01, .769323D-01, .609328D-01, .478898D-01, - + .373173D-01, .287994D-01, .219897D-01, .165911D-01, - + .123373D-01, .905604D-02, .651847D-02, .459852D-02, - + .316978D-02, .212630D-02, .138156D-02, .863460D-03, - + .515956D-03, .290222D-03, .152189D-03, .725759D-04, - + .304720D-04, .106659D-04, .283941D-05, .490118D-06, - + .397213D-07, .000000D+00, .200749D+07, .150965D+07, - + .111462D+07, .822394D+06, .606387D+06, .446772D+06, - + .328948D+06, .242004D+06, .177916D+06, .130693D+06, - + .959359D+05, .703644D+05, .515720D+05, .377679D+05, - + .276395D+05, .202115D+05, .147703D+05, .107863D+05, - + .787281D+04, .574299D+04, .418797D+04, .305297D+04, - + .222551D+04, .162238D+04, .118322D+04, .863406D+03 / - DATA (UPDI(I),I=10037,10088) / - + .630934D+03, .459688D+03, .337175D+03, .247978D+03, - + .183019D+03, .135642D+03, .101036D+03, .757650D+02, - + .571606D+02, .434509D+02, .333030D+02, .257448D+02, - + .200796D+02, .157968D+02, .125373D+02, .100285D+02, - + .808035D+01, .655269D+01, .534379D+01, .437811D+01, - + .360358D+01, .297119D+01, .245836D+01, .203487D+01, - + .168713D+01, .139942D+01, .116070D+01, .962221D+00, - + .796914D+00, .659129D+00, .544214D+00, .448407D+00, - + .368560D+00, .302087D+00, .246817D+00, .200955D+00, - + .162911D+00, .131604D+00, .105635D+00, .843143D-01, - + .668730D-01, .526703D-01, .411600D-01, .318858D-01, - + .244599D-01, .185608D-01, .139146D-01, .102781D-01, - + .749266D-02, .535415D-02, .374850D-02, .256321D-02 / - DATA (UPDI(I),I=10089,10140) / - + .170486D-02, .109774D-02, .679433D-03, .401763D-03, - + .223415D-03, .115695D-03, .544113D-04, .224935D-04, - + .773846D-05, .202232D-05, .343887D-06, .282722D-07, - + .000000D+00, .246611D+07, .184794D+07, .135863D+07, - + .998162D+06, .732817D+06, .537572D+06, .394056D+06, - + .288612D+06, .211223D+06, .154452D+06, .112852D+06, - + .823840D+05, .600951D+05, .437982D+05, .318965D+05, - + .232093D+05, .168762D+05, .122616D+05, .890351D+04, - + .646092D+04, .468651D+04, .339800D+04, .246348D+04, - + .178589D+04, .129513D+04, .939649D+03, .682668D+03, - + .494422D+03, .360502D+03, .263549D+03, .193338D+03, - + .142424D+03, .105443D+03, .785920D+02, .589354D+02, - + .445316D+02, .339285D+02, .260743D+02, .202185D+02 / - DATA (UPDI(I),I=10141,10192) / - + .158148D+02, .124803D+02, .992678D+01, .795374D+01, - + .641431D+01, .520216D+01, .423876D+01, .346998D+01, - + .284554D+01, .234181D+01, .192804D+01, .159012D+01, - + .131204D+01, .108256D+01, .892802D+00, .735618D+00, - + .605316D+00, .497234D+00, .407613D+00, .333325D+00, - + .271816D+00, .220950D+00, .178971D+00, .144336D+00, - + .115990D+00, .926071D-01, .735175D-01, .579900D-01, - + .454184D-01, .352900D-01, .271781D-01, .207230D-01, - + .156275D-01, .116405D-01, .854081D-02, .618319D-02, - + .438634D-02, .304755D-02, .206719D-02, .136327D-02, - + .869850D-03, .533155D-03, .311976D-03, .171506D-03, - + .877071D-04, .406803D-04, .165594D-04, .560042D-05, - + .143722D-05, .240886D-06, .200862D-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 diff --git a/PDF/spdf/ctq4RHJ.F b/PDF/spdf/ctq4RHJ.F deleted file mode 100644 index 98c1f14a60c..00000000000 --- a/PDF/spdf/ctq4RHJ.F +++ /dev/null @@ -1,2838 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" - Subroutine Ctq4RHJ (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 : CTEQ4HJ -C PARAMETER (ISET=9) - DATA DrI, FlI, AlI / 2., 5., .2060 / - 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, .203301D+01, .265652D+01, .358147D+01, .500000D+01, - + .794042D+01, .134849D+02, .247292D+02, .495183D+02, .109662D+03, - + .272532D+03, .772892D+03, .254960D+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) / - + .240220D+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, .996631D+05, - + .760875D+05, .571762D+05, .429291D+05, .322125D+05, - + .241483D+05, .180909D+05, .135392D+05, .101254D+05, - + .756422D+04, .564637D+04, .420989D+04, .313613D+04 / - DATA (UPDI(I),I=469,520) / - + .233333D+04, .173438D+04, .128743D+04, .954675D+03, - + .706885D+03, .522814D+03, .386063D+03, .284732D+03, - + .209643D+03, .154146D+03, .113136D+03, .829109D+02, - + .606511D+02, .443136D+02, .321649D+02, .234181D+02, - + .170151D+02, .123472D+02, .894314D+01, .647013D+01, - + .467841D+01, .337864D+01, .243799D+01, .176007D+01, - + .127058D+01, .918573D+00, .664654D+00, .482380D+00, - + .350770D+00, .255942D+00, .187284D+00, .137651D+00, - + .101506D+00, .753085D-01, .559500D-01, .418823D-01, - + .314011D-01, .236917D-01, .179392D-01, .136573D-01, - + .104378D-01, .802141D-02, .618721D-02, .479731D-02, - + .373368D-02, .292192D-02, .229429D-02, .181033D-02, - + .143236D-02, .113729D-02, .905612D-03, .721098D-03 / - DATA (UPDI(I),I=521,572) / - + .573432D-03, .455314D-03, .359995D-03, .283187D-03, - + .220850D-03, .170537D-03, .129829D-03, .971780D-04, - + .710583D-04, .508602D-04, .350743D-04, .231780D-04, - + .144517D-04, .830218D-05, .417857D-05, .160032D-05, - + .163197D-06, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .226691D+06, .172586D+06, - + .129269D+06, .967415D+05, .723507D+05, .540572D+05, - + .403599D+05, .301023D+05, .224340D+05, .167007D+05, - + .124219D+05, .922839D+04, .684947D+04, .507730D+04, - + .375979D+04, .278030D+04, .205370D+04, .151470D+04, - + .111580D+04, .820615D+03, .602727D+03, .441920D+03, - + .323545D+03, .236437D+03, .172504D+03, .125619D+03 / - DATA (UPDI(I),I=573,624) / - + .913550D+02, .659934D+02, .478151D+02, .345716D+02, - + .249605D+02, .179865D+02, .129440D+02, .930965D+01, - + .668610D+01, .479775D+01, .344380D+01, .247173D+01, - + .177640D+01, .127778D+01, .921796D+00, .666297D+00, - + .483237D+00, .351509D+00, .256812D+00, .188271D+00, - + .138868D+00, .102590D+00, .763610D-01, .569400D-01, - + .427283D-01, .321867D-01, .243779D-01, .185390D-01, - + .141766D-01, .108828D-01, .839791D-02, .650594D-02, - + .506770D-02, .396120D-02, .311138D-02, .245087D-02, - + .193741D-02, .153613D-02, .121809D-02, .965004D-03, - + .763667D-03, .602174D-03, .472806D-03, .368488D-03, - + .284800D-03, .217510D-03, .163791D-03, .121054D-03, - + .880536D-04, .622855D-04, .428037D-04, .283833D-04 / - DATA (UPDI(I),I=625,676) / - + .180414D-04, .108728D-04, .613395D-05, .318082D-05, - + .145425D-05, .553810D-06, .146094D-06, .175404D-08, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .386122D+06, .293128D+06, .218826D+06, - + .163216D+06, .121651D+06, .905822D+05, .673954D+05, - + .500912D+05, .371985D+05, .275931D+05, .204491D+05, - + .151364D+05, .111926D+05, .826563D+04, .609739D+04, - + .449155D+04, .330469D+04, .242771D+04, .178113D+04, - + .130458D+04, .954192D+03, .696660D+03, .507849D+03, - + .369498D+03, .268381D+03, .194548D+03, .140823D+03, - + .101241D+03, .729980D+02, .525207D+02, .377279D+02, - + .270476D+02, .193623D+02, .138517D+02, .989353D+01, - + .705997D+01, .503871D+01, .359578D+01, .256912D+01 / - DATA (UPDI(I),I=677,728) / - + .183721D+01, .131749D+01, .946698D+00, .682513D+00, - + .493559D+00, .358473D+00, .261291D+00, .191623D+00, - + .140780D+00, .104206D+00, .772885D-01, .576905D-01, - + .432373D-01, .325817D-01, .246569D-01, .187619D-01, - + .143337D-01, .110072D-01, .848678D-02, .657789D-02, - + .511628D-02, .399785D-02, .313263D-02, .246269D-02, - + .194152D-02, .153039D-02, .120511D-02, .947791D-03, - + .742759D-03, .579586D-03, .449027D-03, .345078D-03, - + .262203D-03, .196589D-03, .144874D-03, .105223D-03, - + .745196D-04, .514596D-04, .344771D-04, .223238D-04, - + .138807D-04, .824898D-05, .466047D-05, .247442D-05, - + .123705D-05, .580136D-06, .254582D-06, .103783D-06, - + .369553D-07, .907191D-08, .479435D-09, .000000D+00 / - DATA (UPDI(I),I=729,780) / - + .583615D+06, .441771D+06, .328668D+06, .244305D+06, - + .181458D+06, .134643D+06, .998231D+05, .739286D+05, - + .547020D+05, .404290D+05, .298510D+05, .220133D+05, - + .162163D+05, .119298D+05, .876627D+04, .643227D+04, - + .471374D+04, .344892D+04, .252000D+04, .183813D+04, - + .133877D+04, .973276D+03, .706409D+03, .511699D+03, - + .369998D+03, .266979D+03, .192348D+03, .137618D+03, - + .987453D+02, .706964D+02, .505278D+02, .360387D+02, - + .256631D+02, .182620D+02, .129723D+02, .920592D+01, - + .653314D+01, .463579D+01, .329303D+01, .234127D+01, - + .166911D+01, .119237D+01, .854583D+00, .614425D+00, - + .443676D+00, .321564D+00, .234498D+00, .171338D+00, - + .126133D+00, .930585D-01, .690985D-01, .515271D-01 / - DATA (UPDI(I),I=781,832) / - + .386334D-01, .290943D-01, .220293D-01, .167490D-01, - + .127989D-01, .982024D-02, .757281D-02, .586006D-02, - + .455438D-02, .354910D-02, .277385D-02, .217361D-02, - + .170238D-02, .133178D-02, .104030D-02, .809630D-03, - + .627305D-03, .482590D-03, .368280D-03, .277950D-03, - + .207075D-03, .151761D-03, .109696D-03, .774351D-04, - + .534067D-04, .358451D-04, .233480D-04, .146943D-04, - + .891552D-05, .520325D-05, .290156D-05, .155260D-05, - + .793199D-06, .381984D-06, .167918D-06, .617225D-07, - + .150013D-07, .953308D-09, .000000D+00, .825212D+06, - + .622809D+06, .461748D+06, .342030D+06, .253147D+06, - + .187170D+06, .138267D+06, .102029D+06, .752177D+05, - + .553863D+05, .407416D+05, .299310D+05, .219644D+05 / - DATA (UPDI(I),I=833,884) / - + .160962D+05, .117814D+05, .861039D+04, .628455D+04, - + .457957D+04, .333232D+04, .242051D+04, .175545D+04, - + .127071D+04, .918257D+03, .662206D+03, .476665D+03, - + .342364D+03, .245503D+03, .174802D+03, .124818D+03, - + .889238D+02, .632350D+02, .448721D+02, .317863D+02, - + .224999D+02, .158959D+02, .112190D+02, .791716D+01, - + .558628D+01, .394551D+01, .278914D+01, .197689D+01, - + .140411D+01, .100052D+01, .715255D+00, .513543D+00, - + .370122D+00, .268414D+00, .195060D+00, .142824D+00, - + .104824D+00, .774325D-01, .574538D-01, .428620D-01, - + .321218D-01, .242018D-01, .183115D-01, .139239D-01, - + .106307D-01, .815557D-02, .627813D-02, .485251D-02, - + .376015D-02, .292128D-02, .227497D-02, .177014D-02 / - DATA (UPDI(I),I=885,936) / - + .137551D-02, .106698D-02, .824514D-03, .634198D-03, - + .484354D-03, .366937D-03, .274972D-03, .203469D-03, - + .148202D-03, .106526D-03, .748688D-04, .514907D-04, - + .345398D-04, .225523D-04, .142880D-04, .877287D-05, - + .521468D-05, .298390D-05, .164810D-05, .870655D-06, - + .431311D-06, .192190D-06, .700914D-07, .166376D-07, - + .112214D-08, .000000D+00, .111724D+07, .840701D+06, - + .621103D+06, .458447D+06, .338099D+06, .249083D+06, - + .183335D+06, .134790D+06, .990011D+05, .726270D+05, - + .532215D+05, .389505D+05, .284727D+05, .207843D+05, - + .151527D+05, .110302D+05, .801811D+04, .581894D+04, - + .421657D+04, .304997D+04, .220253D+04, .158746D+04, - + .114212D+04, .819985D+03, .587569D+03, .420077D+03 / - DATA (UPDI(I),I=937,988) / - + .299817D+03, .212448D+03, .150964D+03, .107024D+03, - + .757250D+02, .534624D+02, .376747D+02, .265282D+02, - + .186411D+02, .130850D+02, .918287D+01, .644331D+01, - + .452511D+01, .318079D+01, .224162D+01, .158309D+01, - + .112164D+01, .797334D+00, .569263D+00, .408020D+00, - + .294284D+00, .212720D+00, .154929D+00, .113122D+00, - + .831347D-01, .613788D-01, .455630D-01, .339798D-01, - + .254756D-01, .191814D-01, .145128D-01, .110250D-01, - + .841413D-02, .644294D-02, .495226D-02, .381559D-02, - + .294652D-02, .228033D-02, .176268D-02, .136051D-02, - + .104801D-02, .804136D-03, .614058D-03, .465595D-03, - + .350182D-03, .260573D-03, .191523D-03, .138647D-03, - + .991034D-04, .693410D-04, .475418D-04, .318549D-04 / - DATA (UPDI(I),I=989,1040) / - + .208270D-04, .132561D-04, .820745D-05, .493939D-05, - + .287249D-05, .161511D-05, .866807D-06, .433427D-06, - + .192708D-06, .691111D-07, .159853D-07, .111804D-08, - + .000000D+00, .146619D+07, .109999D+07, .809784D+06, - + .595589D+06, .437661D+06, .321265D+06, .235598D+06, - + .172576D+06, .126281D+06, .922918D+05, .673747D+05, - + .491196D+05, .357669D+05, .260066D+05, .188847D+05, - + .136918D+05, .991252D+04, .716428D+04, .516985D+04, - + .372379D+04, .267765D+04, .192157D+04, .137643D+04, - + .983822D+03, .701787D+03, .499428D+03, .354786D+03, - + .250192D+03, .176929D+03, .124821D+03, .878766D+02, - + .617287D+02, .432758D+02, .303137D+02, .211877D+02, - + .147927D+02, .103245D+02, .720450D+01, .503148D+01 / - DATA (UPDI(I),I=1041,1092) / - + .351701D+01, .246462D+01, .173083D+01, .121943D+01, - + .862055D+00, .612071D+00, .436318D+00, .313004D+00, - + .225059D+00, .163058D+00, .118449D+00, .866095D-01, - + .636289D-01, .470001D-01, .348812D-01, .260226D-01, - + .194973D-01, .146782D-01, .110946D-01, .842290D-02, - + .641529D-02, .490349D-02, .375639D-02, .288334D-02, - + .221755D-02, .170299D-02, .130570D-02, .998897D-03, - + .761127D-03, .577115D-03, .434514D-03, .324524D-03, - + .239848D-03, .175164D-03, .126066D-03, .896391D-04, - + .624583D-04, .427009D-04, .285810D-04, .187065D-04, - + .119513D-04, .744749D-05, .452270D-05, .265865D-05, - + .151042D-05, .816253D-06, .408357D-06, .179925D-06, - + .632284D-07, .142456D-07, .102423D-08, .000000D+00 / - DATA (UPDI(I),I=1093,1144) / - + .187860D+07, .140517D+07, .103078D+07, .755424D+06, - + .553110D+06, .404536D+06, .295575D+06, .215709D+06, - + .157253D+06, .114494D+06, .832644D+05, .604707D+05, - + .438611D+05, .317670D+05, .229760D+05, .165913D+05, - + .119629D+05, .861075D+04, .618782D+04, .443831D+04, - + .317784D+04, .227070D+04, .161940D+04, .115236D+04, - + .818312D+03, .579686D+03, .409886D+03, .287670D+03, - + .202459D+03, .142140D+03, .995753D+02, .695968D+02, - + .485429D+02, .338281D+02, .235197D+02, .163336D+02, - + .113383D+02, .786900D+01, .546535D+01, .379927D+01, - + .264766D+01, .184912D+01, .129557D+01, .910883D+00, - + .643222D+00, .456067D+00, .325439D+00, .232782D+00, - + .167783D+00, .121265D+00, .882237D-01, .644971D-01 / - DATA (UPDI(I),I=1145,1196) / - + .474073D-01, .350125D-01, .259920D-01, .193789D-01, - + .145160D-01, .109164D-01, .824416D-02, .624556D-02, - + .474712D-02, .361580D-02, .275878D-02, .210867D-02, - + .160897D-02, .122554D-02, .931297D-03, .704824D-03, - + .530776D-03, .396931D-03, .294478D-03, .216250D-03, - + .156986D-03, .112374D-03, .795239D-04, .552060D-04, - + .376513D-04, .251815D-04, .164994D-04, .105755D-04, - + .662421D-05, .404956D-05, .239731D-05, .136938D-05, - + .741113D-06, .369059D-06, .160536D-06, .551844D-07, - + .121144D-07, .891437D-09, .000000D+00, .236088D+07, - + .176064D+07, .128694D+07, .939790D+06, .685617D+06, - + .499628D+06, .363714D+06, .264456D+06, .192069D+06, - + .139317D+06, .100930D+06, .730192D+05, .527571D+05 / - DATA (UPDI(I),I=1197,1248) / - + .380605D+05, .274187D+05, .197203D+05, .141614D+05, - + .101515D+05, .726481D+04, .518900D+04, .369956D+04, - + .263215D+04, .186900D+04, .132412D+04, .936077D+03, - + .660090D+03, .464586D+03, .324516D+03, .227308D+03, - + .158820D+03, .110716D+03, .770004D+02, .534360D+02, - + .370483D+02, .256248D+02, .177022D+02, .122228D+02, - + .843744D+01, .582842D+01, .402970D+01, .279291D+01, - + .193996D+01, .135183D+01, .945326D+00, .663969D+00, - + .468290D+00, .332419D+00, .236550D+00, .169630D+00, - + .121985D+00, .883072D-01, .642433D-01, .469899D-01, - + .345360D-01, .255122D-01, .189278D-01, .141070D-01, - + .105551D-01, .792942D-02, .597498D-02, .451620D-02, - + .342034D-02, .259416D-02, .197078D-02, .149428D-02 / - DATA (UPDI(I),I=1249,1300) / - + .113091D-02, .853793D-03, .641948D-03, .480262D-03, - + .356846D-03, .263073D-03, .192033D-03, .138637D-03, - + .987524D-04, .695894D-04, .481564D-04, .327790D-04, - + .219125D-04, .143736D-04, .923881D-05, .581029D-05, - + .356863D-05, .212130D-05, .121396D-05, .655479D-06, - + .323822D-06, .138737D-06, .466083D-07, .997483D-08, - + .749270D-09, .000000D+00, .918452D+05, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=1301,1352) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=1353,1404) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .281177D+05, .218962D+05, .168346D+05, - + .129332D+05, .993417D+04, .762428D+04, .585015D+04, - + .448491D+04, .343729D+04, .263192D+04, .201455D+04, - + .154045D+04, .117743D+04, .898990D+03, .686060D+03, - + .522954D+03, .398399D+03, .303126D+03, .230485D+03, - + .175014D+03, .132799D+03, .100622D+03, .761782D+02, - + .575847D+02, .434885D+02, .327951D+02, .247144D+02, - + .185185D+02, .139208D+02, .104471D+02, .783571D+01, - + .586831D+01, .439301D+01, .328754D+01, .245913D+01, - + .183834D+01, .137577D+01, .102952D+01, .771908D+00 / - DATA (UPDI(I),I=1405,1456) / - + .579104D+00, .435856D+00, .328498D+00, .248422D+00, - + .188236D+00, .143231D+00, .109221D+00, .837475D-01, - + .642283D-01, .496008D-01, .383149D-01, .297644D-01, - + .231718D-01, .181298D-01, .142231D-01, .112186D-01, - + .887343D-02, .705650D-02, .563119D-02, .452295D-02, - + .364648D-02, .295928D-02, .241137D-02, .197652D-02, - + .162814D-02, .134526D-02, .111293D-02, .922269D-03, - + .763296D-03, .630660D-03, .518252D-03, .423228D-03, - + .342037D-03, .273175D-03, .214105D-03, .165366D-03, - + .124239D-03, .906367D-04, .637172D-04, .427767D-04, - + .270906D-04, .158330D-04, .831571D-05, .356515D-05, - + .979650D-06, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=1457,1508) / - + .657151D+05, .509970D+05, .390540D+05, .298860D+05, - + .228639D+05, .174778D+05, .133562D+05, .101979D+05, - + .778344D+04, .593525D+04, .452390D+04, .344480D+04, - + .262176D+04, .199326D+04, .151455D+04, .114949D+04, - + .871850D+03, .660446D+03, .499928D+03, .377916D+03, - + .285451D+03, .215302D+03, .162243D+03, .122073D+03, - + .917531D+02, .688619D+02, .516413D+02, .385026D+02, - + .287978D+02, .215028D+02, .160440D+02, .119528D+02, - + .889954D+01, .662406D+01, .492708D+01, .366259D+01, - + .272504D+01, .202741D+01, .151101D+01, .112690D+01, - + .843005D+00, .631574D+00, .474719D+00, .357590D+00, - + .270468D+00, .205062D+00, .156327D+00, .119237D+00, - + .915731D-01, .703710D-01, .543852D-01, .421380D-01 / - DATA (UPDI(I),I=1509,1560) / - + .328134D-01, .256308D-01, .201294D-01, .158589D-01, - + .125631D-01, .999070D-02, .799652D-02, .642656D-02, - + .519892D-02, .422365D-02, .345155D-02, .283466D-02, - + .233496D-02, .192599D-02, .159130D-02, .131329D-02, - + .108213D-02, .887146D-03, .723045D-03, .583713D-03, - + .465982D-03, .365792D-03, .283398D-03, .214237D-03, - + .157961D-03, .112921D-03, .778844D-04, .514257D-04, - + .322400D-04, .190296D-04, .103132D-04, .508068D-05, - + .219759D-05, .791094D-06, .216697D-06, .336295D-07, - + .000000D+00, .000000D+00, .000000D+00, .114365D+06, - + .884590D+05, .674878D+05, .514513D+05, .392117D+05, - + .298603D+05, .227299D+05, .172877D+05, .131425D+05, - + .998227D+04, .757800D+04, .574724D+04, .435622D+04 / - DATA (UPDI(I),I=1561,1612) / - + .329842D+04, .249584D+04, .188639D+04, .142472D+04, - + .107470D+04, .809997D+03, .609675D+03, .458486D+03, - + .344294D+03, .258283D+03, .193461D+03, .144744D+03, - + .108131D+03, .807074D+02, .598839D+02, .445718D+02, - + .331183D+02, .245863D+02, .182242D+02, .134980D+02, - + .999420D+01, .739357D+01, .546623D+01, .404420D+01, - + .299205D+01, .221714D+01, .164413D+01, .122278D+01, - + .910858D+00, .680669D+00, .509836D+00, .383425D+00, - + .289109D+00, .219190D+00, .166313D+00, .127058D+00, - + .971592D-01, .747212D-01, .576320D-01, .446770D-01, - + .347521D-01, .271791D-01, .213307D-01, .168330D-01, - + .133386D-01, .106369D-01, .851864D-02, .686587D-02, - + .555739D-02, .452350D-02, .369965D-02, .303371D-02 / - DATA (UPDI(I),I=1613,1664) / - + .249063D-02, .204743D-02, .168087D-02, .137728D-02, - + .112269D-02, .909632D-03, .730065D-03, .579377D-03, - + .452377D-03, .348644D-03, .262397D-03, .192823D-03, - + .137604D-03, .949801D-04, .629825D-04, .398922D-04, - + .239797D-04, .134467D-04, .701816D-05, .335705D-05, - + .144616D-05, .551346D-06, .176065D-06, .378972D-07, - + .228841D-09, .000000D+00, .202180D+06, .135644D+06, - + .103110D+06, .783226D+05, .594697D+05, .451194D+05, - + .342160D+05, .259257D+05, .196338D+05, .148555D+05, - + .112336D+05, .848649D+04, .640700D+04, .483197D+04, - + .364150D+04, .274119D+04, .206181D+04, .154887D+04, - + .116250D+04, .871328D+03, .652455D+03, .487852D+03, - + .364380D+03, .271733D+03, .202398D+03, .150518D+03 / - DATA (UPDI(I),I=1665,1716) / - + .111827D+03, .825842D+02, .611759D+02, .452386D+02, - + .334193D+02, .246491D+02, .181640D+02, .133804D+02, - + .984650D+01, .724128D+01, .532836D+01, .392074D+01, - + .288919D+01, .213068D+01, .157575D+01, .116730D+01, - + .867432D+00, .646189D+00, .483310D+00, .362496D+00, - + .273380D+00, .206387D+00, .156881D+00, .119394D+00, - + .913901D-01, .701797D-01, .541680D-01, .419638D-01, - + .326865D-01, .255560D-01, .200912D-01, .158635D-01, - + .126035D-01, .100573D-01, .807492D-02, .651076D-02, - + .527728D-02, .429705D-02, .350652D-02, .286420D-02, - + .234162D-02, .191134D-02, .155650D-02, .126074D-02, - + .101469D-02, .808879D-03, .637463D-03, .494383D-03, - + .378397D-03, .282932D-03, .206640D-03, .146674D-03 / - DATA (UPDI(I),I=1717,1768) / - + .100807D-03, .666744D-04, .422321D-04, .254746D-04, - + .144279D-04, .766932D-05, .378197D-05, .170644D-05, - + .691439D-06, .236289D-06, .544224D-07, .175431D-08, - + .000000D+00, .272019D+06, .208951D+06, .158149D+06, - + .119616D+06, .904260D+05, .683063D+05, .515689D+05, - + .389005D+05, .293263D+05, .220888D+05, .166262D+05, - + .125025D+05, .939457D+04, .705186D+04, .528900D+04, - + .396232D+04, .296574D+04, .221705D+04, .165570D+04, - + .123482D+04, .919930D+03, .684342D+03, .508474D+03, - + .377209D+03, .279461D+03, .206709D+03, .152730D+03, - + .112157D+03, .826112D+02, .607421D+02, .446092D+02, - + .327088D+02, .239570D+02, .175407D+02, .128271D+02, - + .937410D+01, .685317D+01, .501037D+01, .366779D+01 / - DATA (UPDI(I),I=1769,1820) / - + .268728D+01, .197418D+01, .145292D+01, .107255D+01, - + .793876D+00, .589933D+00, .439718D+00, .329562D+00, - + .247332D+00, .186893D+00, .141442D+00, .107666D+00, - + .822523D-01, .631588D-01, .486933D-01, .377430D-01, - + .293741D-01, .229844D-01, .180658D-01, .142838D-01, - + .113434D-01, .905943D-02, .726476D-02, .585250D-02, - + .473440D-02, .383509D-02, .310801D-02, .251892D-02, - + .203694D-02, .164189D-02, .131545D-02, .104623D-02, - + .823471D-03, .640069D-03, .489157D-03, .368409D-03, - + .270636D-03, .193783D-03, .134511D-03, .900778D-04, - + .577746D-04, .352275D-04, .202497D-04, .107557D-04, - + .523958D-05, .228538D-05, .867224D-06, .277685D-06, - + .705470D-07, .114008D-07, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=1821,1872) / - + .395546D+06, .302723D+06, .228149D+06, .171825D+06, - + .129334D+06, .972732D+05, .731152D+05, .549106D+05, - + .412108D+05, .309010D+05, .231533D+05, .173311D+05, - + .129625D+05, .968475D+04, .722939D+04, .539028D+04, - + .401510D+04, .298698D+04, .221973D+04, .164729D+04, - + .122105D+04, .903755D+03, .668048D+03, .493023D+03, - + .363339D+03, .267319D+03, .196441D+03, .143456D+03, - + .105075D+03, .768245D+02, .560951D+02, .408920D+02, - + .297725D+02, .216686D+02, .157484D+02, .114382D+02, - + .830945D+01, .603683D+01, .439084D+01, .319655D+01, - + .233314D+01, .170616D+01, .125141D+01, .920465D+00, - + .679707D+00, .503550D+00, .375124D+00, .279890D+00, - + .210274D+00, .158261D+00, .119815D+00, .910643D-01 / - DATA (UPDI(I),I=1873,1924) / - + .695697D-01, .533776D-01, .411741D-01, .318972D-01, - + .248430D-01, .194389D-01, .152976D-01, .120921D-01, - + .960977D-02, .766729D-02, .614318D-02, .494125D-02, - + .397791D-02, .320297D-02, .257800D-02, .206975D-02, - + .165567D-02, .131613D-02, .103826D-02, .810439D-03, - + .624594D-03, .473374D-03, .353530D-03, .257614D-03, - + .183047D-03, .126199D-03, .840435D-04, .537190D-04, - + .327484D-04, .189143D-04, .101865D-04, .510167D-05, - + .234088D-05, .969593D-06, .356248D-06, .109522D-06, - + .225662D-07, .410260D-09, .000000D+00, .551537D+06, - + .420590D+06, .315653D+06, .236727D+06, .177427D+06, - + .132874D+06, .994420D+05, .743571D+05, .555596D+05, - + .414754D+05, .309369D+05, .230529D+05, .171631D+05 / - DATA (UPDI(I),I=1925,1976) / - + .127642D+05, .948367D+04, .703791D+04, .521745D+04, - + .386286D+04, .285669D+04, .210961D+04, .155599D+04, - + .114590D+04, .842736D+03, .618756D+03, .453627D+03, - + .331984D+03, .242654D+03, .176231D+03, .128370D+03, - + .933349D+02, .677636D+02, .491150D+02, .355502D+02, - + .257213D+02, .185811D+02, .134137D+02, .968435D+01, - + .699215D+01, .505373D+01, .365612D+01, .265172D+01, - + .192701D+01, .140453D+01, .102675D+01, .753545D+00, - + .554919D+00, .410956D+00, .304878D+00, .227754D+00, - + .170490D+00, .128387D+00, .970864D-01, .737997D-01, - + .563524D-01, .432612D-01, .333600D-01, .258622D-01, - + .201446D-01, .157783D-01, .124132D-01, .981567D-02, - + .779138D-02, .620820D-02, .496463D-02, .397182D-02 / - DATA (UPDI(I),I=1977,2028) / - + .317724D-02, .253961D-02, .202423D-02, .160697D-02, - + .126745D-02, .991752D-03, .767746D-03, .586712D-03, - + .440981D-03, .326582D-03, .236057D-03, .166441D-03, - + .113960D-03, .754559D-04, .480437D-04, .292585D-04, - + .169527D-04, .922578D-05, .471600D-05, .224017D-05, - + .977675D-06, .383881D-06, .126380D-06, .277202D-07, - + .112517D-08, .000000D+00, .745649D+06, .566605D+06, - + .423478D+06, .316270D+06, .236049D+06, .176027D+06, - + .131174D+06, .976617D+05, .726550D+05, .539991D+05, - + .400998D+05, .297471D+05, .220469D+05, .163215D+05, - + .120708D+05, .891621D+04, .657880D+04, .484766D+04, - + .356775D+04, .262196D+04, .192438D+04, .141017D+04, - + .103188D+04, .753779D+03, .549770D+03, .400242D+03 / - DATA (UPDI(I),I=2029,2080) / - + .290994D+03, .210190D+03, .152272D+03, .110105D+03, - + .794913D+02, .572890D+02, .412273D+02, .296555D+02, - + .212960D+02, .152817D+02, .109659D+02, .786918D+01, - + .565255D+01, .406419D+01, .292943D+01, .211575D+01, - + .153263D+01, .111364D+01, .812409D+00, .594762D+00, - + .437920D+00, .323061D+00, .240004D+00, .178703D+00, - + .133869D+00, .100726D+00, .761885D-01, .578998D-01, - + .442383D-01, .339564D-01, .262027D-01, .203162D-01, - + .158372D-01, .123998D-01, .975557D-02, .770333D-02, - + .610387D-02, .485266D-02, .385796D-02, .306602D-02, - + .243382D-02, .192599D-02, .151750D-02, .118763D-02, - + .921874D-03, .707848D-03, .536483D-03, .399945D-03, - + .293767D-03, .210661D-03, .147420D-03, .100255D-03 / - DATA (UPDI(I),I=2081,2132) / - + .660043D-04, .418607D-04, .254562D-04, .147818D-04, - + .810791D-05, .420693D-05, .204547D-05, .920700D-06, - + .373265D-06, .125739D-06, .279168D-07, .141197D-08, - + .000000D+00, .983921D+06, .745058D+06, .554577D+06, - + .412477D+06, .306573D+06, .227662D+06, .168934D+06, - + .125239D+06, .927698D+05, .686497D+05, .507555D+05, - + .374852D+05, .276577D+05, .203829D+05, .150057D+05, - + .110330D+05, .810279D+04, .594257D+04, .435278D+04, - + .318352D+04, .232518D+04, .169550D+04, .123449D+04, - + .897250D+03, .651075D+03, .471540D+03, .341032D+03, - + .245008D+03, .176542D+03, .126960D+03, .911522D+02, - + .653255D+02, .467431D+02, .334302D+02, .238663D+02, - + .170252D+02, .121439D+02, .866226D+01, .618453D+01 / - DATA (UPDI(I),I=2133,2184) / - + .441980D+01, .316638D+01, .227309D+01, .163669D+01, - + .118221D+01, .857355D+00, .624052D+00, .456886D+00, - + .335194D+00, .247666D+00, .183439D+00, .136710D+00, - + .102355D+00, .770428D-01, .582717D-01, .443122D-01, - + .338562D-01, .260040D-01, .200688D-01, .155696D-01, - + .121311D-01, .949545D-02, .745843D-02, .587670D-02, - + .464462D-02, .366949D-02, .289727D-02, .228413D-02, - + .179471D-02, .140360D-02, .109016D-02, .839602D-03, - + .639563D-03, .480857D-03, .355643D-03, .259166D-03, - + .184439D-03, .128145D-03, .865898D-04, .567038D-04, - + .358312D-04, .217597D-04, .126585D-04, .698807D-05, - + .366782D-05, .181273D-05, .831490D-06, .342254D-06, - + .115773D-06, .255643D-07, .144723D-08, .000000D+00 / - DATA (UPDI(I),I=2185,2236) / - + .127268D+07, .960409D+06, .711983D+06, .527399D+06, - + .390380D+06, .288698D+06, .213330D+06, .157485D+06, - + .116159D+06, .855889D+05, .630048D+05, .463282D+05, - + .340311D+05, .249679D+05, .182982D+05, .133926D+05, - + .979037D+04, .714686D+04, .521025D+04, .379255D+04, - + .275667D+04, .200037D+04, .144930D+04, .104813D+04, - + .756723D+03, .545248D+03, .392294D+03, .280339D+03, - + .200925D+03, .143719D+03, .102621D+03, .731386D+02, - + .520399D+02, .370079D+02, .262682D+02, .186298D+02, - + .132103D+02, .936731D+01, .664809D+01, .472283D+01, - + .336327D+01, .240012D+01, .171795D+01, .123368D+01, - + .889514D+00, .643794D+00, .468721D+00, .342009D+00, - + .251352D+00, .185205D+00, .137326D+00, .102312D+00 / - DATA (UPDI(I),I=2237,2288) / - + .766378D-01, .576919D-01, .436648D-01, .332072D-01, - + .253867D-01, .195009D-01, .150561D-01, .116735D-01, - + .909040D-02, .710239D-02, .556470D-02, .437219D-02, - + .343279D-02, .269288D-02, .210866D-02, .164526D-02, - + .127740D-02, .984782D-03, .752678D-03, .568941D-03, - + .424467D-03, .311551D-03, .225325D-03, .159202D-03, - + .109868D-03, .737989D-04, .480933D-04, .302926D-04, - + .183759D-04, .107086D-04, .594373D-05, .314774D-05, - + .157355D-05, .729810D-06, .302019D-06, .101604D-06, - + .221422D-07, .134795D-08, .000000D+00, .161841D+07, - + .121719D+07, .898746D+06, .663072D+06, .488815D+06, - + .360016D+06, .264932D+06, .194765D+06, .143052D+06, - + .104957D+06, .769312D+05, .563239D+05, .411926D+05 / - DATA (UPDI(I),I=2289,2340) / - + .300889D+05, .219528D+05, .159951D+05, .116396D+05, - + .845773D+04, .613723D+04, .444632D+04, .321650D+04, - + .232282D+04, .167473D+04, .120520D+04, .865789D+03, - + .620675D+03, .444275D+03, .315818D+03, .225166D+03, - + .160204D+03, .113775D+03, .806471D+02, .570649D+02, - + .403552D+02, .284817D+02, .200842D+02, .141591D+02, - + .998185D+01, .704279D+01, .497397D+01, .352135D+01, - + .249828D+01, .177784D+01, .126938D+01, .910066D+00, - + .655002D+00, .474277D+00, .344211D+00, .251641D+00, - + .184470D+00, .136096D+00, .100902D+00, .752190D-01, - + .563577D-01, .424547D-01, .321373D-01, .244539D-01, - + .186962D-01, .143650D-01, .110826D-01, .858579D-02, - + .667241D-02, .519844D-02, .406052D-02, .316842D-02 / - DATA (UPDI(I),I=2341,2392) / - + .246963D-02, .192100D-02, .148857D-02, .114756D-02, - + .878309D-03, .666356D-03, .499957D-03, .370249D-03, - + .269782D-03, .193725D-03, .135950D-03, .932349D-04, - + .622867D-04, .404152D-04, .253865D-04, .153872D-04, - + .898175D-05, .500791D-05, .267023D-05, .134496D-05, - + .627207D-06, .259294D-06, .862685D-07, .184832D-07, - + .118647D-08, .000000D+00, .202765D+07, .151992D+07, - + .111786D+07, .821460D+06, .603156D+06, .442439D+06, - + .324259D+06, .237401D+06, .173643D+06, .126868D+06, - + .925979D+05, .675046D+05, .491565D+05, .357497D+05, - + .259680D+05, .188366D+05, .136457D+05, .987036D+04, - + .712938D+04, .514115D+04, .370168D+04, .266051D+04, - + .190898D+04, .136710D+04, .977263D+03, .697087D+03 / - DATA (UPDI(I),I=2393,2444) / - + .496449D+03, .351078D+03, .249011D+03, .176243D+03, - + .124501D+03, .877764D+02, .617712D+02, .434437D+02, - + .304904D+02, .213797D+02, .149867D+02, .105050D+02, - + .736926D+01, .517463D+01, .364231D+01, .256930D+01, - + .181796D+01, .129073D+01, .920217D+00, .658681D+00, - + .474379D+00, .342470D+00, .249072D+00, .181664D+00, - + .133362D+00, .983992D-01, .730031D-01, .544412D-01, - + .408190D-01, .307558D-01, .232932D-01, .177247D-01, - + .135524D-01, .104039D-01, .801839D-02, .619829D-02, - + .480201D-02, .372908D-02, .289208D-02, .224006D-02, - + .173107D-02, .133241D-02, .102011D-02, .775296D-03, - + .584021D-03, .435062D-03, .319921D-03, .231499D-03, - + .165118D-03, .115142D-03, .785106D-04, .521919D-04 / - DATA (UPDI(I),I=2445,2496) / - + .337356D-04, .211415D-04, .128068D-04, .748669D-05, - + .418947D-05, .224467D-05, .113553D-05, .530179D-06, - + .217982D-06, .714715D-07, .150250D-07, .100568D-08, - + .000000D+00, .250681D+07, .187296D+07, .137216D+07, - + .100440D+07, .734573D+06, .536696D+06, .391758D+06, - + .285657D+06, .208084D+06, .151404D+06, .110044D+06, - + .798854D+05, .579244D+05, .419452D+05, .303359D+05, - + .219084D+05, .158006D+05, .113779D+05, .818102D+04, - + .587250D+04, .420867D+04, .301074D+04, .215004D+04, - + .153236D+04, .109008D+04, .773726D+03, .548284D+03, - + .385756D+03, .272213D+03, .191672D+03, .134693D+03, - + .944603D+02, .661186D+02, .462501D+02, .322819D+02, - + .225108D+02, .156913D+02, .109371D+02, .762912D+01 / - DATA (UPDI(I),I=2497,2548) / - + .532686D+01, .372825D+01, .261514D+01, .184004D+01, - + .129918D+01, .921172D+00, .655812D+00, .469818D+00, - + .337413D+00, .244143D+00, .177179D+00, .129433D+00, - + .950434D-01, .701794D-01, .520912D-01, .388747D-01, - + .291550D-01, .219773D-01, .166444D-01, .126645D-01, - + .967406D-02, .741749D-02, .570336D-02, .439401D-02, - + .339262D-02, .261534D-02, .201320D-02, .154584D-02, - + .118207D-02, .898955D-03, .678597D-03, .507682D-03, - + .375614D-03, .274353D-03, .197225D-03, .139784D-03, - + .969039D-04, .657253D-04, .434984D-04, .280216D-04, - + .175259D-04, .106116D-04, .621098D-05, .348483D-05, - + .187275D-05, .948894D-06, .442091D-06, .180186D-06, - + .580875D-07, .119699D-07, .829538D-09, .000000D+00 / - DATA (UPDI(I),I=2549,2600) / - + .781316D+05, .462531D+05, .354066D+05, .271049D+05, - + .207508D+05, .158873D+05, .121645D+05, .931495D+04, - + .713364D+04, .546380D+04, .418545D+04, .320673D+04, - + .245738D+04, .188358D+04, .144417D+04, .110764D+04, - + .849853D+03, .652361D+03, .501032D+03, .385047D+03, - + .296129D+03, .227940D+03, .175627D+03, .135476D+03, - + .104644D+03, .809530D+02, .627359D+02, .485419D+02, - + .377847D+02, .294863D+02, .230755D+02, .181147D+02, - + .142686D+02, .112878D+02, .895899D+01, .713984D+01, - + .571379D+01, .459145D+01, .370425D+01, .299925D+01, - + .243701D+01, .198553D+01, .162126D+01, .132588D+01, - + .108527D+01, .888502D+00, .727615D+00, .594448D+00, - + .485393D+00, .394918D+00, .320616D+00, .259403D+00 / - DATA (UPDI(I),I=2601,2652) / - + .209055D+00, .167736D+00, .133925D+00, .106355D+00, - + .839676D-01, .658731D-01, .513257D-01, .396978D-01, - + .304624D-01, .231776D-01, .174739D-01, .130621D-01, - + .964360D-02, .703804D-02, .507251D-02, .360637D-02, - + .252610D-02, .174080D-02, .117831D-02, .781946D-03, - + .507501D-03, .321146D-03, .198470D-03, .118532D-03, - + .683465D-04, .378474D-04, .199964D-04, .999736D-05, - + .467999D-05, .202603D-05, .791277D-06, .273721D-06, - + .803730D-07, .188694D-07, .320396D-08, .325977D-09, - + .130252D-10, .529200D-13, .000000D+00, .867857D+05, - + .673918D+05, .516616D+05, .395953D+05, .303462D+05, - + .232529D+05, .178168D+05, .136489D+05, .104555D+05, - + .800766D+04, .613271D+04, .469589D+04, .359565D+04 / - DATA (UPDI(I),I=2653,2704) / - + .275275D+04, .210748D+04, .161327D+04, .123506D+04, - + .945456D+03, .723880D+03, .554260D+03, .424515D+03, - + .325210D+03, .249256D+03, .191123D+03, .146657D+03, - + .112621D+03, .865876D+02, .664004D+02, .511951D+02, - + .395361D+02, .305986D+02, .237345D+02, .184608D+02, - + .144106D+02, .112806D+02, .886139D+01, .698864D+01, - + .553254D+01, .439762D+01, .350799D+01, .280936D+01, - + .225654D+01, .181754D+01, .146691D+01, .118585D+01, - + .959363D+00, .777020D+00, .628132D+00, .507984D+00, - + .409543D+00, .329736D+00, .264727D+00, .211868D+00, - + .168925D+00, .134137D+00, .106016D+00, .833748D-01, - + .652112D-01, .507163D-01, .391993D-01, .301054D-01, - + .229644D-01, .173938D-01, .130954D-01, .976807D-02 / - DATA (UPDI(I),I=2705,2756) / - + .722853D-02, .530688D-02, .386419D-02, .279100D-02, - + .199889D-02, .141982D-02, .999611D-03, .697478D-03, - + .480983D-03, .329276D-03, .221504D-03, .146342D-03, - + .943506D-04, .588418D-04, .350616D-04, .195333D-04, - + .990406D-05, .417959D-05, .119014D-05, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .123458D+06, .957755D+05, - + .733324D+05, .561290D+05, .429554D+05, .328616D+05, - + .251357D+05, .192189D+05, .146924D+05, .112277D+05, - + .857843D+04, .655171D+04, .500295D+04, .381880D+04, - + .291446D+04, .222344D+04, .169604D+04, .129329D+04, - + .986103D+03, .751674D+03, .572994D+03, .436718D+03, - + .332906D+03, .253775D+03, .193521D+03, .147617D+03 / - DATA (UPDI(I),I=2757,2808) / - + .112694D+03, .857550D+02, .655840D+02, .502108D+02, - + .385061D+02, .295789D+02, .227727D+02, .175868D+02, - + .136143D+02, .105715D+02, .823918D+01, .644390D+01, - + .506000D+01, .398721D+01, .315483D+01, .250399D+01, - + .199363D+01, .159101D+01, .127244D+01, .101883D+01, - + .817215D+00, .654497D+00, .524768D+00, .419627D+00, - + .335314D+00, .267318D+00, .212575D+00, .168500D+00, - + .133109D+00, .104724D+00, .820439D-01, .639735D-01, - + .496481D-01, .383291D-01, .294392D-01, .224878D-01, - + .170840D-01, .129244D-01, .970852D-02, .725255D-02, - + .539039D-02, .398603D-02, .293419D-02, .214960D-02, - + .156801D-02, .113804D-02, .821578D-03, .588091D-03, - + .419073D-03, .294223D-03, .203455D-03, .137762D-03 / - DATA (UPDI(I),I=2809,2860) / - + .908127D-04, .577900D-04, .351689D-04, .202757D-04, - + .107905D-04, .524249D-05, .224404D-05, .801755D-06, - + .218462D-06, .338053D-07, .000000D+00, .000000D+00, - + .000000D+00, .171224D+06, .132552D+06, .101242D+06, - + .772940D+05, .589971D+05, .450102D+05, .343307D+05, - + .261723D+05, .199473D+05, .151951D+05, .115718D+05, - + .880784D+04, .670208D+04, .509704D+04, .387523D+04, - + .294471D+04, .223700D+04, .169849D+04, .128928D+04, - + .978197D+03, .742045D+03, .562681D+03, .426641D+03, - + .323407D+03, .245172D+03, .185860D+03, .140972D+03, - + .106530D+03, .808871D+02, .614575D+02, .467563D+02, - + .356162D+02, .271808D+02, .207997D+02, .159488D+02, - + .122626D+02, .946097D+01, .732325D+01, .569062D+01 / - DATA (UPDI(I),I=2861,2912) / - + .443710D+01, .347424D+01, .272906D+01, .215086D+01, - + .169958D+01, .134635D+01, .106813D+01, .849310D+00, - + .674510D+00, .536589D+00, .425887D+00, .337959D+00, - + .267682D+00, .211595D+00, .166807D+00, .131124D+00, - + .102711D+00, .801647D-01, .623140D-01, .482470D-01, - + .371899D-01, .285474D-01, .218165D-01, .166008D-01, - + .125953D-01, .950258D-02, .714046D-02, .534709D-02, - + .399038D-02, .296928D-02, .220211D-02, .162813D-02, - + .119880D-02, .878350D-03, .638167D-03, .461345D-03, - + .328417D-03, .230122D-03, .157829D-03, .105428D-03, - + .680866D-04, .422214D-04, .249620D-04, .138193D-04, - + .714322D-05, .339255D-05, .145421D-05, .552663D-06, - + .176195D-06, .379024D-07, .228865D-09, .000000D+00 / - DATA (UPDI(I),I=2913,2964) / - + .189296D+06, .179079D+06, .136361D+06, .103780D+06, - + .789609D+05, .600445D+05, .456450D+05, .346791D+05, - + .263384D+05, .199920D+05, .151691D+05, .115026D+05, - + .871892D+04, .660473D+04, .500118D+04, .378450D+04, - + .286267D+04, .216397D+04, .163517D+04, .123482D+04, - + .932185D+03, .703326D+03, .530519D+03, .399988D+03, - + .301533D+03, .227256D+03, .171329D+03, .128643D+03, - + .970336D+02, .732182D+02, .553037D+02, .418114D+02, - + .316594D+02, .240306D+02, .182711D+02, .139261D+02, - + .106486D+02, .816743D+01, .628798D+01, .485722D+01, - + .376787D+01, .293241D+01, .229014D+01, .179355D+01, - + .140855D+01, .110816D+01, .874119D+00, .688882D+00, - + .544059D+00, .428836D+00, .338098D+00, .266168D+00 / - DATA (UPDI(I),I=2965,3016) / - + .209215D+00, .164074D+00, .128368D+00, .100126D+00, - + .778574D-01, .603300D-01, .465932D-01, .358488D-01, - + .274880D-01, .210010D-01, .159897D-01, .121501D-01, - + .918962D-02, .692930D-02, .521204D-02, .391034D-02, - + .292740D-02, .218540D-02, .162688D-02, .120606D-02, - + .889385D-03, .650022D-03, .472243D-03, .337564D-03, - + .237303D-03, .163187D-03, .109277D-03, .707808D-04, - + .440906D-04, .262518D-04, .147199D-04, .776638D-05, - + .380922D-05, .171256D-05, .692427D-06, .236386D-06, - + .544262D-07, .175433D-08, .000000D+00, .327028D+06, - + .251611D+06, .190808D+06, .144621D+06, .109571D+06, - + .829671D+05, .627960D+05, .474997D+05, .359131D+05, - + .271353D+05, .204931D+05, .154663D+05, .116666D+05 / - DATA (UPDI(I),I=3017,3068) / - + .879421D+04, .662552D+04, .498799D+04, .375317D+04, - + .282192D+04, .212059D+04, .159239D+04, .119516D+04, - + .896385D+03, .671999D+03, .503469D+03, .377069D+03, - + .282274D+03, .211328D+03, .157518D+03, .117923D+03, - + .882912D+02, .661503D+02, .495941D+02, .372256D+02, - + .280025D+02, .210928D+02, .159232D+02, .120559D+02, - + .915430D+01, .697598D+01, .533349D+01, .409483D+01, - + .315439D+01, .243863D+01, .189099D+01, .147075D+01, - + .114630D+01, .896087D+00, .700083D+00, .548365D+00, - + .428843D+00, .335601D+00, .262369D+00, .204890D+00, - + .159718D+00, .124269D+00, .964441D-01, .746585D-01, - + .576263D-01, .443584D-01, .340393D-01, .260487D-01, - + .198764D-01, .151242D-01, .114934D-01, .869883D-02 / - DATA (UPDI(I),I=3069,3120) / - + .656718D-02, .494737D-02, .371824D-02, .278805D-02, - + .208384D-02, .155181D-02, .114942D-02, .845481D-03, - + .615214D-03, .443899D-03, .314270D-03, .218092D-03, - + .147503D-03, .966873D-04, .609523D-04, .366528D-04, - + .208402D-04, .109754D-04, .531181D-05, .230543D-05, - + .871670D-06, .278395D-06, .706155D-07, .114035D-07, - + .000000D+00, .000000D+00, .449575D+06, .344624D+06, - + .260228D+06, .196387D+06, .148140D+06, .111675D+06, - + .841447D+05, .633588D+05, .476824D+05, .358596D+05, - + .269530D+05, .202437D+05, .151955D+05, .113974D+05, - + .854325D+04, .639870D+04, .478940D+04, .358185D+04, - + .267701D+04, .199906D+04, .149186D+04, .111244D+04, - + .829009D+03, .617322D+03, .459445D+03, .341727D+03 / - DATA (UPDI(I),I=3121,3172) / - + .254145D+03, .188124D+03, .139844D+03, .103944D+03, - + .772928D+02, .574991D+02, .428126D+02, .319401D+02, - + .238535D+02, .178498D+02, .133933D+02, .100769D+02, - + .760772D+01, .576209D+01, .438234D+01, .334432D+01, - + .256147D+01, .196815D+01, .151709D+01, .117215D+01, - + .908609D+00, .704099D+00, .547234D+00, .424775D+00, - + .330070D+00, .256325D+00, .198911D+00, .154149D+00, - + .119282D+00, .921112D-01, .709802D-01, .545660D-01, - + .418541D-01, .320217D-01, .244452D-01, .186185D-01, - + .141486D-01, .107439D-01, .812927D-02, .613819D-02, - + .462637D-02, .347935D-02, .261070D-02, .195237D-02, - + .145419D-02, .107682D-02, .791342D-03, .574987D-03, - + .413943D-03, .292271D-03, .202204D-03, .136353D-03 / - DATA (UPDI(I),I=3173,3224) / - + .891646D-04, .561587D-04, .338320D-04, .193586D-04, - + .103499D-04, .515477D-05, .235543D-05, .972777D-06, - + .356749D-06, .109570D-06, .225680D-07, .410270D-09, - + .000000D+00, .604606D+06, .461748D+06, .347164D+06, - + .260855D+06, .195902D+06, .147022D+06, .110278D+06, - + .826575D+05, .619184D+05, .463478D+05, .346710D+05, - + .259154D+05, .193579D+05, .144477D+05, .107753D+05, - + .802943D+04, .597888D+04, .444794D+04, .330651D+04, - + .245571D+04, .182248D+04, .135128D+04, .100118D+04, - + .741125D+03, .548251D+03, .405251D+03, .299473D+03, - + .220211D+03, .162598D+03, .120025D+03, .886167D+02, - + .654420D+02, .483597D+02, .358002D+02, .265234D+02, - + .196861D+02, .146478D+02, .109273D+02, .817857D+01 / - DATA (UPDI(I),I=3225,3276) / - + .614066D+01, .462949D+01, .350220D+01, .265918D+01, - + .202583D+01, .154848D+01, .118662D+01, .912553D+00, - + .701716D+00, .541359D+00, .417231D+00, .322012D+00, - + .248461D+00, .191634D+00, .147661D+00, .113648D+00, - + .873244D-01, .669832D-01, .512796D-01, .391862D-01, - + .298822D-01, .227468D-01, .172833D-01, .131074D-01, - + .993694D-02, .750847D-02, .566313D-02, .426407D-02, - + .320375D-02, .240119D-02, .179322D-02, .133325D-02, - + .985013D-03, .721796D-03, .522718D-03, .374827D-03, - + .263524D-03, .181504D-03, .121878D-03, .794147D-04, - + .499124D-04, .300803D-04, .172862D-04, .934706D-05, - + .475494D-05, .225070D-05, .979949D-06, .384234D-06, - + .126413D-06, .277215D-07, .112518D-08, .000000D+00 / - DATA (UPDI(I),I=3277,3328) / - + .797777D+06, .607033D+06, .454431D+06, .339972D+06, - + .254198D+06, .189927D+06, .141820D+06, .105817D+06, - + .789031D+05, .587871D+05, .437694D+05, .325604D+05, - + .242042D+05, .179764D+05, .133407D+05, .989116D+04, - + .732761D+04, .542313D+04, .401026D+04, .296248D+04, - + .218662D+04, .161230D+04, .118784D+04, .874247D+03, - + .642932D+03, .472379D+03, .346936D+03, .253486D+03, - + .185961D+03, .136366D+03, .999983D+02, .733338D+02, - + .538038D+02, .395394D+02, .290732D+02, .214128D+02, - + .158074D+02, .116983D+02, .868471D+01, .646747D+01, - + .483588D+01, .362838D+01, .273254D+01, .206499D+01, - + .156591D+01, .119069D+01, .908784D+00, .693691D+00, - + .531387D+00, .406751D+00, .311873D+00, .239140D+00 / - DATA (UPDI(I),I=3329,3380) / - + .183351D+00, .140486D+00, .107553D+00, .822318D-01, - + .627856D-01, .478617D-01, .364313D-01, .276831D-01, - + .210054D-01, .159147D-01, .120382D-01, .910511D-02, - + .686498D-02, .516717D-02, .388266D-02, .291097D-02, - + .217662D-02, .162121D-02, .120167D-02, .884679D-03, - + .645680D-03, .465551D-03, .332210D-03, .232382D-03, - + .159237D-03, .106416D-03, .690577D-04, .432887D-04, - + .260781D-04, .150316D-04, .819771D-05, .423543D-05, - + .205307D-05, .922320D-06, .373513D-06, .125762D-06, - + .279176D-07, .141198D-08, .000000D+00, .103512D+07, - + .784770D+06, .584983D+06, .435760D+06, .324403D+06, - + .241318D+06, .179394D+06, .133252D+06, .989093D+05, - + .733548D+05, .543620D+05, .402504D+05, .297783D+05 / - DATA (UPDI(I),I=3381,3432) / - + .220098D+05, .162543D+05, .119917D+05, .883922D+04, - + .650861D+04, .478810D+04, .351856D+04, .258323D+04, - + .189444D+04, .138801D+04, .101584D+04, .742790D+03, - + .542556D+03, .396101D+03, .287623D+03, .209691D+03, - + .152790D+03, .111311D+03, .810855D+02, .590839D+02, - + .431166D+02, .314763D+02, .230133D+02, .168621D+02, - + .123844D+02, .912348D+01, .674168D+01, .500172D+01, - + .372367D+01, .278262D+01, .208676D+01, .157048D+01, - + .118533D+01, .898180D+00, .680769D+00, .517942D+00, - + .393847D+00, .300066D+00, .228693D+00, .174324D+00, - + .132833D+00, .101160D+00, .769618D-01, .584884D-01, - + .443923D-01, .336533D-01, .254762D-01, .192635D-01, - + .145479D-01, .109710D-01, .827409D-02, .622099D-02 / - DATA (UPDI(I),I=3433,3484) / - + .466957D-02, .349890D-02, .261551D-02, .194945D-02, - + .144695D-02, .106834D-02, .783167D-03, .568933D-03, - + .408184D-03, .289729D-03, .201576D-03, .137395D-03, - + .913717D-04, .590532D-04, .369199D-04, .222292D-04, - + .128451D-04, .705440D-05, .368862D-05, .181821D-05, - + .832642D-06, .342428D-06, .115788D-06, .255650D-07, - + .144724D-08, .000000D+00, .132297D+07, .999418D+06, - + .741851D+06, .550271D+06, .407896D+06, .302114D+06, - + .223606D+06, .165359D+06, .122192D+06, .902126D+05, - + .665491D+05, .490460D+05, .361156D+05, .265673D+05, - + .195258D+05, .143354D+05, .105146D+05, .770362D+04, - + .563851D+04, .412220D+04, .301061D+04, .219616D+04, - + .160040D+04, .116486D+04, .847005D+03, .615151D+03 / - DATA (UPDI(I),I=3485,3536) / - + .446495D+03, .322272D+03, .233535D+03, .169116D+03, - + .122429D+03, .886111D+02, .641424D+02, .464944D+02, - + .337089D+02, .244732D+02, .178039D+02, .129816D+02, - + .949341D+01, .696330D+01, .512784D+01, .378927D+01, - + .281073D+01, .209243D+01, .156338D+01, .117159D+01, - + .881618D+00, .663678D+00, .501619D+00, .378996D+00, - + .286972D+00, .217420D+00, .164787D+00, .124883D+00, - + .946111D-01, .716238D-01, .541767D-01, .409379D-01, - + .309047D-01, .233034D-01, .175550D-01, .132110D-01, - + .992899D-02, .746362D-02, .559330D-02, .418468D-02, - + .312501D-02, .232779D-02, .172846D-02, .127774D-02, - + .939273D-03, .685302D-03, .495347D-03, .353533D-03, - + .249568D-03, .172691D-03, .117090D-03, .775018D-04 / - DATA (UPDI(I),I=3537,3588) / - + .498966D-04, .311206D-04, .187294D-04, .108476D-04, - + .599260D-05, .316288D-05, .157749D-05, .730627D-06, - + .302141D-06, .101615D-06, .221426D-07, .134796D-08, - + .000000D+00, .166781D+07, .125551D+07, .928086D+06, - + .685541D+06, .506022D+06, .373197D+06, .275028D+06, - + .202501D+06, .148980D+06, .109501D+06, .804146D+05, - + .589952D+05, .432417D+05, .316613D+05, .231598D+05, - + .169222D+05, .123519D+05, .900538D+04, .655854D+04, - + .477066D+04, .346639D+04, .251551D+04, .182345D+04, - + .132010D+04, .954650D+03, .689473D+03, .497611D+03, - + .357072D+03, .257235D+03, .185166D+03, .133230D+03, - + .958292D+02, .689263D+02, .496393D+02, .357509D+02, - + .257812D+02, .186270D+02, .134876D+02, .979423D+01 / - DATA (UPDI(I),I=3589,3640) / - + .713317D+01, .521560D+01, .382674D+01, .281840D+01, - + .208341D+01, .154582D+01, .115050D+01, .859960D+00, - + .643117D+00, .482977D+00, .362640D+00, .272937D+00, - + .205587D+00, .154947D+00, .116794D+00, .880259D-01, - + .663098D-01, .499206D-01, .375525D-01, .282274D-01, - + .211978D-01, .159062D-01, .119253D-01, .892972D-02, - + .668825D-02, .499407D-02, .372270D-02, .276954D-02, - + .205491D-02, .151950D-02, .111833D-02, .818233D-03, - + .594033D-03, .427161D-03, .303249D-03, .212909D-03, - + .146542D-03, .988613D-04, .651471D-04, .417960D-04, - + .260146D-04, .156527D-04, .908508D-05, .504383D-05, - + .268123D-05, .134778D-05, .627785D-06, .259379D-06, - + .862761D-07, .184835D-07, .118648D-08, .000000D+00 / - DATA (UPDI(I),I=3641,3692) / - + .207618D+07, .155756D+07, .114668D+07, .843532D+06, - + .620061D+06, .455387D+06, .334178D+06, .245002D+06, - + .179468D+06, .131333D+06, .960214D+05, .701302D+05, - + .511707D+05, .372955D+05, .271548D+05, .197482D+05, - + .143462D+05, .104090D+05, .754385D+04, .546027D+04, - + .394757D+04, .285013D+04, .205534D+04, .148018D+04, - + .106471D+04, .764786D+03, .548922D+03, .391651D+03, - + .280536D+03, .200767D+03, .143599D+03, .102665D+03, - + .733886D+02, .525228D+02, .375861D+02, .269288D+02, - + .193278D+02, .139017D+02, .100267D+02, .725284D+01, - + .526685D+01, .383791D+01, .280734D+01, .206118D+01, - + .151906D+01, .112310D+01, .834038D+00, .619748D+00, - + .462535D+00, .345183D+00, .258268D+00, .193430D+00 / - DATA (UPDI(I),I=3693,3744) / - + .144981D+00, .108701D+00, .815054D-01, .610951D-01, - + .457767D-01, .342788D-01, .256538D-01, .191842D-01, - + .143367D-01, .107062D-01, .798562D-02, .595809D-02, - + .443156D-02, .329039D-02, .243802D-02, .180133D-02, - + .132613D-02, .971513D-03, .707368D-03, .510952D-03, - + .365514D-03, .258118D-03, .180264D-03, .123441D-03, - + .828831D-04, .543962D-04, .347903D-04, .216168D-04, - + .130057D-04, .756330D-05, .421580D-05, .225264D-05, - + .113755D-05, .530586D-06, .218041D-06, .714767D-07, - + .150252D-07, .100568D-08, .000000D+00, .255447D+07, - + .190993D+07, .140047D+07, .102609D+07, .751180D+06, - + .549417D+06, .401504D+06, .293126D+06, .213808D+06, - + .155792D+06, .113409D+06, .824661D+05, .599044D+05 / - DATA (UPDI(I),I=3745,3796) / - + .434650D+05, .315028D+05, .228049D+05, .164896D+05, - + .119077D+05, .858875D+04, .618647D+04, .445061D+04, - + .319733D+04, .229407D+04, .164363D+04, .117613D+04, - + .840328D+03, .599895D+03, .425648D+03, .303192D+03, - + .215755D+03, .153431D+03, .109053D+03, .774893D+02, - + .551220D+02, .392023D+02, .279106D+02, .199048D+02, - + .142245D+02, .101927D+02, .732453D+01, .528382D+01, - + .382485D+01, .277934D+01, .202725D+01, .148435D+01, - + .109039D+01, .804645D+00, .594188D+00, .440771D+00, - + .326986D+00, .243241D+00, .181155D+00, .135041D+00, - + .100714D+00, .751317D-01, .560400D-01, .417894D-01, - + .311494D-01, .232082D-01, .172807D-01, .128601D-01, - + .956421D-02, .710485D-02, .527956D-02, .391086D-02 / - DATA (UPDI(I),I=3797,3848) / - + .289178D-02, .213358D-02, .156951D-02, .115021D-02, - + .838660D-03, .607639D-03, .436698D-03, .310798D-03, - + .218350D-03, .151716D-03, .103390D-03, .691155D-04, - + .451931D-04, .288253D-04, .178847D-04, .107603D-04, - + .626765D-05, .350409D-05, .187850D-05, .950336D-06, - + .442378D-06, .180227D-06, .580911D-07, .119700D-07, - + .829539D-09, .000000D+00, .643478D+05, .925395D+05, - + .708404D+05, .542322D+05, .415201D+05, .317899D+05, - + .243419D+05, .186407D+05, .142764D+05, .109354D+05, - + .837756D+04, .641920D+04, .491971D+04, .377146D+04, - + .289208D+04, .221853D+04, .170256D+04, .130723D+04, - + .100427D+04, .772037D+03, .593974D+03, .457397D+03, - + .352599D+03, .272146D+03, .210349D+03, .162851D+03 / - DATA (UPDI(I),I=3849,3900) / - + .126316D+03, .978375D+02, .762454D+02, .595808D+02, - + .467003D+02, .367278D+02, .289914D+02, .229921D+02, - + .183022D+02, .146365D+02, .117611D+02, .949664D+01, - + .770530D+01, .628059D+01, .514301D+01, .422798D+01, - + .348791D+01, .288574D+01, .239288D+01, .198730D+01, - + .165301D+01, .137353D+01, .114190D+01, .947022D+00, - + .784394D+00, .648003D+00, .533606D+00, .437724D+00, - + .357487D+00, .290501D+00, .234754D+00, .188545D+00, - + .150418D+00, .119130D+00, .936065D-01, .729252D-01, - + .562898D-01, .430705D-01, .325482D-01, .243097D-01, - + .179267D-01, .130377D-01, .933969D-02, .658070D-02, - + .455317D-02, .308777D-02, .204744D-02, .132336D-02, - + .834986D-03, .509061D-03, .299556D-03, .169240D-03 / - DATA (UPDI(I),I=3901,3952) / - + .912013D-04, .464943D-04, .221874D-04, .978871D-05, - + .389539D-05, .137255D-05, .410412D-06, .980959D-07, - + .169534D-07, .175520D-08, .713496D-10, .294846D-12, - + .000000D+00, .145494D+06, .112921D+06, .865159D+05, - + .662799D+05, .507768D+05, .388969D+05, .297965D+05, - + .228238D+05, .174830D+05, .133913D+05, .102577D+05, - + .785718D+04, .601894D+04, .461090D+04, .353274D+04, - + .270695D+04, .207466D+04, .159037D+04, .121955D+04, - + .935519D+03, .718013D+03, .551378D+03, .423736D+03, - + .325910D+03, .250937D+03, .193440D+03, .149349D+03, - + .115078D+03, .891842D+02, .692696D+02, .539445D+02, - + .421302D+02, .330117D+02, .259767D+02, .205105D+02, - + .162632D+02, .129548D+02, .103668D+02, .833536D+01 / - DATA (UPDI(I),I=3953,4004) / - + .673193D+01, .546259D+01, .445001D+01, .363843D+01, - + .298387D+01, .245322D+01, .202044D+01, .166715D+01, - + .137441D+01, .113411D+01, .933710D+00, .767986D+00, - + .630180D+00, .515590D+00, .420332D+00, .341261D+00, - + .275754D+00, .221647D+00, .177120D+00, .140642D+00, - + .110906D+00, .868071D-01, .674021D-01, .518808D-01, - + .396152D-01, .298998D-01, .223264D-01, .164809D-01, - + .120170D-01, .864735D-02, .613491D-02, .428681D-02, - + .294667D-02, .198989D-02, .131679D-02, .856673D-03, - + .542925D-03, .335302D-03, .200962D-03, .116175D-03, - + .642185D-04, .333997D-04, .159988D-04, .659300D-05, - + .203599D-05, .120895D-06, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=4005,4056) / - + .181242D+06, .140587D+06, .107638D+06, .823945D+05, - + .630656D+05, .482609D+05, .369283D+05, .282511D+05, - + .216109D+05, .165281D+05, .126399D+05, .966461D+04, - + .738933D+04, .564885D+04, .431831D+04, .330084D+04, - + .252326D+04, .192881D+04, .147464D+04, .112752D+04, - + .862390D+03, .659782D+03, .505036D+03, .386784D+03, - + .296455D+03, .227416D+03, .174681D+03, .133846D+03, - + .103125D+03, .796002D+02, .615851D+02, .477657D+02, - + .371575D+02, .290187D+02, .227336D+02, .178803D+02, - + .141253D+02, .112080D+02, .893514D+01, .715441D+01, - + .575599D+01, .464929D+01, .376967D+01, .306614D+01, - + .250075D+01, .204352D+01, .167353D+01, .136949D+01, - + .112210D+01, .917479D+00, .749665D+00, .611230D+00 / - DATA (UPDI(I),I=4057,4108) / - + .497030D+00, .402820D+00, .325204D+00, .261365D+00, - + .209006D+00, .166209D+00, .131382D+00, .103170D+00, - + .804462D-01, .622567D-01, .477854D-01, .364094D-01, - + .274409D-01, .204793D-01, .151259D-01, .110499D-01, - + .797965D-02, .569251D-02, .400939D-02, .278609D-02, - + .190883D-02, .128674D-02, .857049D-03, .559340D-03, - + .358205D-03, .224430D-03, .137056D-03, .811167D-04, - + .461642D-04, .250645D-04, .126674D-04, .589339D-05, - + .243508D-05, .846565D-06, .226043D-06, .345766D-07, - + .000000D+00, .000000D+00, .000000D+00, .228125D+06, - + .176680D+06, .135025D+06, .103160D+06, .788014D+05, - + .601760D+05, .459448D+05, .350682D+05, .267616D+05, - + .204162D+05, .155727D+05, .118746D+05, .905327D+04 / - DATA (UPDI(I),I=4109,4160) / - + .690030D+04, .525868D+04, .400661D+04, .305243D+04, - + .232505D+04, .177103D+04, .134889D+04, .102754D+04, - + .782788D+03, .596532D+03, .454722D+03, .346823D+03, - + .264685D+03, .202220D+03, .154060D+03, .117998D+03, - + .905156D+02, .695776D+02, .536002D+02, .414036D+02, - + .321000D+02, .249591D+02, .194793D+02, .152677D+02, - + .120176D+02, .950341D+01, .754782D+01, .602367D+01, - + .482664D+01, .388267D+01, .313362D+01, .253652D+01, - + .205746D+01, .167295D+01, .135946D+01, .110644D+01, - + .898772D+00, .729772D+00, .591404D+00, .478102D+00, - + .385302D+00, .309386D+00, .247368D+00, .196839D+00, - + .155802D+00, .122615D+00, .958927D-01, .744936D-01, - + .574594D-01, .439761D-01, .334289D-01, .251509D-01 / - DATA (UPDI(I),I=4161,4212) / - + .187513D-01, .138476D-01, .101248D-01, .732676D-02, - + .524482D-02, .371280D-02, .259780D-02, .179580D-02, - + .122405D-02, .826295D-03, .547871D-03, .357331D-03, - + .228562D-03, .142882D-03, .868303D-04, .509804D-04, - + .287430D-04, .152865D-04, .764684D-05, .353867D-05, - + .148809D-05, .558321D-06, .176764D-06, .379253D-07, - + .228975D-09, .000000D+00, .176316D+06, .222548D+06, - + .169639D+06, .129261D+06, .984713D+05, .749858D+05, - + .570876D+05, .434440D+05, .330528D+05, .251368D+05, - + .191118D+05, .145250D+05, .110363D+05, .838227D+04, - + .636506D+04, .483151D+04, .366679D+04, .278194D+04, - + .211039D+04, .160057D+04, .121393D+04, .920597D+03, - + .698263D+03, .529676D+03, .401951D+03, .305145D+03 / - DATA (UPDI(I),I=4213,4264) / - + .231865D+03, .175631D+03, .133729D+03, .101955D+03, - + .778740D+02, .595971D+02, .457230D+02, .352009D+02, - + .271733D+02, .210511D+02, .163761D+02, .127920D+02, - + .100384D+02, .791148D+01, .626570D+01, .498253D+01, - + .397814D+01, .318710D+01, .256130D+01, .206299D+01, - + .166606D+01, .134486D+01, .108756D+01, .877920D+00, - + .708555D+00, .570869D+00, .458913D+00, .367838D+00, - + .293827D+00, .233755D+00, .185118D+00, .145860D+00, - + .114299D+00, .890304D-01, .689076D-01, .529739D-01, - + .404231D-01, .306514D-01, .230151D-01, .171347D-01, - + .126445D-01, .924560D-02, .669675D-02, .480300D-02, - + .341020D-02, .239598D-02, .166516D-02, .114242D-02, - + .777052D-03, .519667D-03, .342146D-03, .221074D-03 / - DATA (UPDI(I),I=4265,4316) / - + .139701D-03, .858885D-04, .510913D-04, .292475D-04, - + .158713D-04, .815761D-05, .392148D-05, .173829D-05, - + .696673D-06, .236809D-06, .544431D-07, .175442D-08, - + .000000D+00, .382079D+06, .294305D+06, .223495D+06, - + .169650D+06, .128736D+06, .976443D+05, .740370D+05, - + .561107D+05, .425101D+05, .321905D+05, .243675D+05, - + .184366D+05, .139443D+05, .105416D+05, .796642D+04, - + .601753D+04, .454401D+04, .342982D+04, .258817D+04, - + .195235D+04, .147251D+04, .111033D+04, .837221D+03, - + .631246D+03, .476037D+03, .359060D+03, .271023D+03, - + .203865D+03, .154125D+03, .116645D+03, .884203D+02, - + .671412D+02, .510968D+02, .390149D+02, .298630D+02, - + .229358D+02, .176859D+02, .136930D+02, .106496D+02 / - DATA (UPDI(I),I=4317,4368) / - + .831840D+01, .652948D+01, .514664D+01, .407345D+01, - + .323564D+01, .257859D+01, .205997D+01, .165046D+01, - + .132194D+01, .106104D+01, .850277D+00, .681417D+00, - + .545272D+00, .435453D+00, .346823D+00, .275347D+00, - + .217768D+00, .171486D+00, .134394D+00, .104777D+00, - + .812220D-01, .625824D-01, .479134D-01, .364234D-01, - + .275263D-01, .206079D-01, .153049D-01, .112720D-01, - + .823022D-02, .595577D-02, .426964D-02, .303127D-02, - + .213005D-02, .148051D-02, .101547D-02, .689910D-03, - + .460161D-03, .301444D-03, .193158D-03, .120483D-03, - + .726665D-04, .420308D-04, .231195D-04, .118423D-04, - + .560321D-05, .238807D-05, .890388D-06, .281445D-06, - + .709159D-07, .114155D-07, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=4369,4420) / - + .503647D+06, .386560D+06, .292336D+06, .220973D+06, - + .166967D+06, .126094D+06, .951884D+05, .718192D+05, - + .541645D+05, .408272D+05, .307606D+05, .231631D+05, - + .174345D+05, .131152D+05, .986170D+04, .741117D+04, - + .556728D+04, .417991D+04, .313712D+04, .235336D+04, - + .176492D+04, .132313D+04, .991765D+03, .743229D+03, - + .556993D+03, .417432D+03, .313015D+03, .233839D+03, - + .175558D+03, .131918D+03, .992631D+02, .748070D+02, - + .564900D+02, .427924D+02, .324894D+02, .247477D+02, - + .189236D+02, .145277D+02, .112029D+02, .867625D+01, - + .675274D+01, .527797D+01, .414272D+01, .326382D+01, - + .258022D+01, .204513D+01, .162607D+01, .129266D+01, - + .103004D+01, .819592D+00, .652324D+00, .518525D+00 / - DATA (UPDI(I),I=4421,4472) / - + .411424D+00, .325642D+00, .256971D+00, .202052D+00, - + .158218D+00, .123330D+00, .956577D-01, .737925D-01, - + .565977D-01, .431474D-01, .326710D-01, .246027D-01, - + .183605D-01, .135985D-01, .999250D-02, .728325D-02, - + .526405D-02, .377119D-02, .267698D-02, .188175D-02, - + .130894D-02, .898845D-03, .611508D-03, .408519D-03, - + .268080D-03, .172131D-03, .107646D-03, .651718D-04, - + .379285D-04, .210765D-04, .109958D-04, .536927D-05, - + .241546D-05, .986190D-06, .358904D-06, .109780D-06, - + .225764D-07, .410316D-09, .000000D+00, .657718D+06, - + .502941D+06, .378704D+06, .285007D+06, .214397D+06, - + .161188D+06, .121128D+06, .909704D+05, .682879D+05, - + .512296D+05, .384131D+05, .287849D+05, .215590D+05 / - DATA (UPDI(I),I=4473,4524) / - + .161366D+05, .120718D+05, .902520D+04, .674408D+04, - + .503637D+04, .375932D+04, .280447D+04, .209134D+04, - + .155879D+04, .116152D+04, .865200D+03, .644406D+03, - + .479892D+03, .357529D+03, .265303D+03, .197828D+03, - + .147620D+03, .110287D+03, .825095D+02, .618411D+02, - + .464901D+02, .350224D+02, .264667D+02, .200761D+02, - + .152881D+02, .116935D+02, .898266D+01, .693460D+01, - + .537655D+01, .418651D+01, .327249D+01, .256714D+01, - + .201938D+01, .159377D+01, .125781D+01, .995228D+00, - + .786447D+00, .621762D+00, .491022D+00, .387142D+00, - + .304546D+00, .238895D+00, .186759D+00, .145430D+00, - + .112755D+00, .870059D-01, .667893D-01, .509880D-01, - + .387007D-01, .291831D-01, .218926D-01, .162806D-01 / - DATA (UPDI(I),I=4525,4576) / - + .120199D-01, .880779D-02, .640416D-02, .461914D-02, - + .330355D-02, .234179D-02, .164432D-02, .114278D-02, - + .784195D-03, .533142D-03, .355949D-03, .233453D-03, - + .149852D-03, .937360D-04, .568309D-04, .331931D-04, - + .185778D-04, .982714D-05, .491242D-05, .229420D-05, - + .989535D-06, .385752D-06, .126559D-06, .277273D-07, - + .112521D-08, .000000D+00, .849947D+06, .647497D+06, - + .485414D+06, .363698D+06, .272368D+06, .203844D+06, - + .152481D+06, .113985D+06, .851624D+05, .635848D+05, - + .474475D+05, .353812D+05, .263681D+05, .196371D+05, - + .146157D+05, .108706D+05, .808041D+04, .600214D+04, - + .445592D+04, .330581D+04, .245137D+04, .181669D+04, - + .134581D+04, .996523D+03, .737716D+03, .545972D+03 / - DATA (UPDI(I),I=4577,4628) / - + .404187D+03, .297959D+03, .220710D+03, .163583D+03, - + .121368D+03, .901589D+02, .670869D+02, .500643D+02, - + .374327D+02, .280736D+02, .211313D+02, .159670D+02, - + .121177D+02, .923597D+01, .707473D+01, .544284D+01, - + .420569D+01, .326267D+01, .254041D+01, .198376D+01, - + .155448D+01, .121818D+01, .957286D+00, .751389D+00, - + .590166D+00, .463106D+00, .362867D+00, .283728D+00, - + .221258D+00, .171985D+00, .133185D+00, .102710D+00, - + .788468D-01, .602267D-01, .457606D-01, .345768D-01, - + .259616D-01, .193975D-01, .143705D-01, .105723D-01, - + .772188D-02, .559791D-02, .402664D-02, .287266D-02, - + .203169D-02, .142354D-02, .987322D-03, .676193D-03, - + .458788D-03, .305698D-03, .200109D-03, .128237D-03 / - DATA (UPDI(I),I=4629,4680) / - + .801291D-04, .485869D-04, .284379D-04, .160003D-04, - + .855366D-05, .435077D-05, .208452D-05, .929155D-06, - + .374580D-06, .125863D-06, .279216D-07, .141200D-08, - + .000000D+00, .108637D+07, .824519D+06, .615419D+06, - + .459069D+06, .342254D+06, .254992D+06, .189869D+06, - + .141279D+06, .105060D+06, .780700D+05, .579772D+05, - + .430233D+05, .319057D+05, .236428D+05, .175082D+05, - + .129552D+05, .957986D+04, .707839D+04, .522676D+04, - + .385659D+04, .284396D+04, .209577D+04, .154366D+04, - + .113635D+04, .836225D+03, .615116D+03, .452558D+03, - + .331482D+03, .243961D+03, .179628D+03, .132379D+03, - + .976660D+02, .721659D+02, .534735D+02, .396933D+02, - + .295515D+02, .220792D+02, .165590D+02, .124729D+02 / - DATA (UPDI(I),I=4681,4732) / - + .943543D+01, .717346D+01, .547776D+01, .420144D+01, - + .323563D+01, .250124D+01, .193934D+01, .150915D+01, - + .117457D+01, .916860D+00, .714939D+00, .557945D+00, - + .435088D+00, .338833D+00, .263358D+00, .204180D+00, - + .157813D+00, .121538D+00, .932279D-01, .711976D-01, - + .541126D-01, .409176D-01, .307750D-01, .230047D-01, - + .171158D-01, .126289D-01, .925559D-02, .673579D-02, - + .486642D-02, .348918D-02, .248159D-02, .174992D-02, - + .122258D-02, .845556D-03, .577482D-03, .390696D-03, - + .259597D-03, .169475D-03, .108353D-03, .675915D-04, - + .409672D-04, .240137D-04, .135699D-04, .731767D-05, - + .377289D-05, .184089D-05, .837503D-06, .343176D-06, - + .115858D-06, .255677D-07, .144725D-08, .000000D+00 / - DATA (UPDI(I),I=4733,4784) / - + .137331D+07, .103846D+07, .771751D+06, .573170D+06, - + .425434D+06, .315548D+06, .233899D+06, .173246D+06, - + .128237D+06, .948469D+05, .701028D+05, .517720D+05, - + .382073D+05, .281731D+05, .207591D+05, .152831D+05, - + .112434D+05, .826435D+04, .607030D+04, .445502D+04, - + .326738D+04, .239449D+04, .175377D+04, .128363D+04, - + .939109D+03, .686689D+03, .502163D+03, .365521D+03, - + .267326D+03, .195575D+03, .143192D+03, .104944D+03, - + .770201D+02, .566801D+02, .417805D+02, .308861D+02, - + .229118D+02, .170602D+02, .127577D+02, .958117D+01, - + .723173D+01, .548262D+01, .417520D+01, .319275D+01, - + .245090D+01, .188724D+01, .145871D+01, .112774D+01, - + .874570D+00, .677583D+00, .525473D+00, .407249D+00 / - DATA (UPDI(I),I=4785,4836) / - + .315244D+00, .243582D+00, .187761D+00, .144307D+00, - + .110527D+00, .843296D-01, .640679D-01, .484488D-01, - + .364565D-01, .272908D-01, .203073D-01, .150427D-01, - + .110523D-01, .806721D-02, .584807D-02, .420924D-02, - + .300707D-02, .213120D-02, .149767D-02, .104281D-02, - + .718806D-03, .489283D-03, .329915D-03, .218498D-03, - + .142209D-03, .906839D-04, .564651D-04, .342046D-04, - + .200754D-04, .113885D-04, .618683D-05, .322429D-05, - + .159380D-05, .734076D-06, .302665D-06, .101664D-06, - + .221445D-07, .134797D-08, .000000D+00, .171726D+07, - + .129387D+07, .957458D+06, .708036D+06, .523253D+06, - + .386397D+06, .285142D+06, .210252D+06, .154921D+06, - + .114056D+06, .839077D+05, .616751D+05, .452984D+05 / - DATA (UPDI(I),I=4837,4888) / - + .332404D+05, .243728D+05, .178545D+05, .130690D+05, - + .955724D+04, .698359D+04, .509836D+04, .371927D+04, - + .271088D+04, .197457D+04, .143715D+04, .104544D+04, - + .759999D+03, .552496D+03, .399712D+03, .290547D+03, - + .211244D+03, .153686D+03, .111911D+03, .815964D+02, - + .596505D+02, .436740D+02, .320661D+02, .236234D+02, - + .174683D+02, .129719D+02, .967415D+01, .725105D+01, - + .545913D+01, .412863D+01, .313556D+01, .239071D+01, - + .182858D+01, .140408D+01, .107843D+01, .830999D+00, - + .639769D+00, .493087D+00, .379836D+00, .292277D+00, - + .224521D+00, .172079D+00, .131515D+00, .100180D+00, - + .760269D-01, .574592D-01, .432311D-01, .323700D-01, - + .241158D-01, .178610D-01, .131709D-01, .963456D-02 / - DATA (UPDI(I),I=4889,4940) / - + .700244D-02, .505527D-02, .362403D-02, .257889D-02, - + .182074D-02, .127468D-02, .884226D-03, .607253D-03, - + .411843D-03, .276696D-03, .182619D-03, .118482D-03, - + .753550D-04, .468367D-04, .283587D-04, .166655D-04, - + .948772D-05, .518676D-05, .272587D-05, .135949D-05, - + .630227D-06, .259744D-06, .863094D-07, .184848D-07, - + .118649D-08, .000000D+00, .212474D+07, .159523D+07, - + .117553D+07, .865632D+06, .636989D+06, .468357D+06, - + .344116D+06, .252618D+06, .185307D+06, .135810D+06, - + .994551D+05, .727649D+05, .531930D+05, .388485D+05, - + .283479D+05, .206654D+05, .150518D+05, .109522D+05, - + .796229D+04, .578294D+04, .419663D+04, .304259D+04, - + .220424D+04, .159554D+04, .115420D+04, .834308D+03 / - DATA (UPDI(I),I=4941,4992) / - + .603028D+03, .433684D+03, .313368D+03, .226461D+03, - + .163746D+03, .118493D+03, .858477D+02, .623563D+02, - + .453576D+02, .330830D+02, .242105D+02, .177826D+02, - + .131165D+02, .971609D+01, .723342D+01, .540926D+01, - + .406355D+01, .306565D+01, .232202D+01, .176446D+01, - + .134615D+01, .102735D+01, .786686D+00, .601904D+00, - + .461085D+00, .353063D+00, .270080D+00, .206272D+00, - + .157196D+00, .119473D+00, .905103D-01, .683222D-01, - + .513665D-01, .384500D-01, .286468D-01, .212384D-01, - + .156552D-01, .114910D-01, .836767D-02, .605487D-02, - + .435242D-02, .310708D-02, .220192D-02, .154831D-02, - + .107962D-02, .745966D-03, .510320D-03, .344786D-03, - + .230784D-03, .151788D-03, .981721D-04, .622818D-04 / - DATA (UPDI(I),I=4993,5044) / - + .386490D-04, .233942D-04, .137658D-04, .786227D-05, - + .432071D-05, .228501D-05, .114592D-05, .532311D-06, - + .218296D-06, .714996D-07, .150260D-07, .100569D-08, - + .000000D+00, .260217D+07, .194694D+07, .142882D+07, - + .104780D+07, .767811D+06, .562160D+06, .411269D+06, - + .300610D+06, .219546D+06, .160192D+06, .116785D+06, - + .850564D+05, .618929D+05, .449923D+05, .326764D+05, - + .237073D+05, .171838D+05, .124423D+05, .900069D+04, - + .650419D+04, .469592D+04, .338693D+04, .244078D+04, - + .175731D+04, .126433D+04, .908854D+03, .653225D+03, - + .467074D+03, .335543D+03, .241064D+03, .173264D+03, - + .124623D+03, .897337D+02, .647743D+02, .468193D+02, - + .339316D+02, .246717D+02, .180041D+02, .131935D+02 / - DATA (UPDI(I),I=5045,5096) / - + .970936D+01, .718123D+01, .533524D+01, .398191D+01, - + .298466D+01, .224618D+01, .169596D+01, .128577D+01, - + .975134D+00, .742121D+00, .564348D+00, .429726D+00, - + .327109D+00, .248771D+00, .188910D+00, .143154D+00, - + .108198D+00, .815230D-01, .612097D-01, .457783D-01, - + .340914D-01, .252721D-01, .186445D-01, .136769D-01, - + .999179D-02, .724232D-02, .521689D-02, .373349D-02, - + .265369D-02, .187262D-02, .131125D-02, .910553D-03, - + .626595D-03, .426965D-03, .287359D-03, .191635D-03, - + .125610D-03, .810008D-04, .512701D-04, .317720D-04, - + .192290D-04, .113294D-04, .648909D-05, .358090D-05, - + .190192D-05, .956318D-06, .443593D-06, .180404D-06, - + .581068D-07, .119706D-07, .829544D-09, .000000D+00 / - DATA (UPDI(I),I=5097,5148) / - + .642719D+05, .925133D+05, .708170D+05, .542112D+05, - + .415012D+05, .317730D+05, .243268D+05, .186272D+05, - + .142643D+05, .109246D+05, .836787D+04, .641053D+04, - + .491195D+04, .376452D+04, .288587D+04, .221298D+04, - + .169759D+04, .130279D+04, .100030D+04, .768489D+03, - + .590802D+03, .454561D+03, .350062D+03, .269877D+03, - + .208318D+03, .161031D+03, .124683D+03, .963725D+02, - + .749264D+02, .583900D+02, .456217D+02, .357470D+02, - + .280954D+02, .221688D+02, .175415D+02, .139291D+02, - + .110990D+02, .887317D+01, .711491D+01, .571902D+01, - + .460715D+01, .371586D+01, .299854D+01, .241894D+01, - + .194914D+01, .156748D+01, .125809D+01, .100478D+01, - + .800095D+00, .632996D+00, .498350D+00, .389834D+00 / - DATA (UPDI(I),I=5149,5200) / - + .302795D+00, .233365D+00, .178330D+00, .135014D+00, - + .101189D+00, .750053D-01, .549292D-01, .396964D-01, - + .282698D-01, .198053D-01, .136212D-01, .918927D-02, - + .603459D-02, .384858D-02, .236771D-02, .139089D-02, - + .766920D-03, .384014D-03, .161106D-03, .406915D-04, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .145462D+06, - + .112892D+06, .864903D+05, .662570D+05, .507563D+05, - + .388786D+05, .297801D+05, .228091D+05, .174698D+05, - + .133795D+05, .102471D+05, .784776D+04, .601051D+04 / - DATA (UPDI(I),I=5201,5252) / - + .460336D+04, .352600D+04, .270093D+04, .206928D+04, - + .158556D+04, .121526D+04, .931677D+03, .714580D+03, - + .548309D+03, .420992D+03, .323455D+03, .248740D+03, - + .191472D+03, .147584D+03, .113494D+03, .877592D+02, - + .679839D+02, .527807D+02, .410729D+02, .320470D+02, - + .250920D+02, .196949D+02, .155071D+02, .122496D+02, - + .970568D+01, .771258D+01, .614303D+01, .490426D+01, - + .392014D+01, .313580D+01, .250808D+01, .200442D+01, - + .159916D+01, .127394D+01, .101009D+01, .798978D+00, - + .628127D+00, .491671D+00, .382582D+00, .295783D+00, - + .227050D+00, .172954D+00, .130645D+00, .978039D-01, - + .725135D-01, .532170D-01, .386289D-01, .277195D-01, - + .196506D-01, .137547D-01, .951995D-02, .648928D-02 / - DATA (UPDI(I),I=5253,5304) / - + .436713D-02, .290587D-02, .191589D-02, .125720D-02, - + .825451D-03, .546870D-03, .368266D-03, .254040D-03, - + .179165D-03, .129840D-03, .946977D-04, .688398D-04, - + .490332D-04, .336525D-04, .218538D-04, .130706D-04, - + .698741D-05, .299559D-05, .765460D-06, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .181207D+06, .140556D+06, - + .107610D+06, .823697D+05, .630433D+05, .482411D+05, - + .369106D+05, .282352D+05, .215966D+05, .165154D+05, - + .126285D+05, .965444D+04, .738024D+04, .564073D+04, - + .431105D+04, .329435D+04, .251746D+04, .192363D+04, - + .147001D+04, .112339D+04, .858696D+03, .656481D+03, - + .502086D+03, .384145D+03, .294095D+03, .225302D+03 / - DATA (UPDI(I),I=5305,5356) / - + .172786D+03, .132147D+03, .101596D+03, .782217D+02, - + .603384D+02, .466343D+02, .361266D+02, .280750D+02, - + .218656D+02, .170779D+02, .133798D+02, .105120D+02, - + .828257D+01, .654072D+01, .517764D+01, .410397D+01, - + .325590D+01, .258325D+01, .204854D+01, .162213D+01, - + .128308D+01, .101037D+01, .794121D+00, .620541D+00, - + .483033D+00, .373940D+00, .287785D+00, .220034D+00, - + .167064D+00, .125885D+00, .941014D-01, .697485D-01, - + .512531D-01, .373210D-01, .269334D-01, .192630D-01, - + .136594D-01, .962762D-02, .672969D-02, .468350D-02, - + .325638D-02, .226997D-02, .159447D-02, .113270D-02, - + .817276D-03, .599131D-03, .445827D-03, .334230D-03, - + .252564D-03, .189149D-03, .139734D-03, .100798D-03 / - DATA (UPDI(I),I=5357,5408) / - + .704372D-04, .471975D-04, .300339D-04, .179802D-04, - + .986840D-05, .491534D-05, .214594D-05, .778275D-06, - + .214414D-06, .333859D-07, .000000D+00, .000000D+00, - + .000000D+00, .228087D+06, .176646D+06, .134995D+06, - + .103133D+06, .787775D+05, .601546D+05, .459257D+05, - + .350511D+05, .267463D+05, .204026D+05, .155605D+05, - + .118637D+05, .904351D+04, .689158D+04, .525089D+04, - + .399965D+04, .304622D+04, .231950D+04, .176607D+04, - + .134447D+04, .102358D+04, .779255D+03, .593375D+03, - + .451900D+03, .344299D+03, .262426D+03, .200195D+03, - + .152246D+03, .116367D+03, .890458D+02, .682495D+02, - + .523964D+02, .403084D+02, .310993D+02, .240408D+02, - + .186329D+02, .144839D+02, .112888D+02, .882329D+01 / - DATA (UPDI(I),I=5409,5460) / - + .691154D+01, .542744D+01, .426789D+01, .335963D+01, - + .264531D+01, .208236D+01, .163718D+01, .128623D+01, - + .100624D+01, .786051D+00, .610676D+00, .472805D+00, - + .364213D+00, .279052D+00, .212523D+00, .160833D+00, - + .120879D+00, .902061D-01, .668171D-01, .491304D-01, - + .358539D-01, .259828D-01, .187055D-01, .133903D-01, - + .956058D-02, .679760D-02, .483325D-02, .344880D-02, - + .247696D-02, .179718D-02, .131919D-02, .981096D-03, - + .737663D-03, .559104D-03, .424024D-03, .321893D-03, - + .241060D-03, .177544D-03, .127564D-03, .888805D-04, - + .595555D-04, .381228D-04, .231468D-04, .130975D-04, - + .688985D-05, .331746D-05, .143645D-05, .549640D-06, - + .175885D-06, .378896D-07, .228802D-09, .000000D+00 / - DATA (UPDI(I),I=5461,5512) / - + .176224D+06, .222512D+06, .169607D+06, .129233D+06, - + .984456D+05, .749629D+05, .570671D+05, .434257D+05, - + .330364D+05, .251222D+05, .190987D+05, .145133D+05, - + .110259D+05, .837295D+04, .635673D+04, .482407D+04, - + .366014D+04, .277601D+04, .210510D+04, .159585D+04, - + .120971D+04, .916831D+03, .694899D+03, .526670D+03, - + .399264D+03, .302740D+03, .229712D+03, .173703D+03, - + .131996D+03, .100395D+03, .764657D+02, .583223D+02, - + .445650D+02, .341448D+02, .262065D+02, .201625D+02, - + .155559D+02, .120324D+02, .933271D+01, .725460D+01, - + .565351D+01, .441218D+01, .344751D+01, .269486D+01, - + .210649D+01, .164490D+01, .128391D+01, .998139D+00, - + .775135D+00, .598828D+00, .461220D+00, .353580D+00 / - DATA (UPDI(I),I=5513,5564) / - + .269725D+00, .204625D+00, .154346D+00, .115696D+00, - + .861759D-01, .637697D-01, .468955D-01, .342718D-01, - + .249109D-01, .180210D-01, .129904D-01, .936149D-02, - + .673525D-02, .485758D-02, .352295D-02, .257479D-02, - + .190101D-02, .141791D-02, .106845D-02, .810861D-03, - + .617671D-03, .469034D-03, .355205D-03, .264772D-03, - + .193814D-03, .138343D-03, .957996D-04, .638894D-04, - + .408088D-04, .248114D-04, .141528D-04, .756936D-05, - + .375149D-05, .169906D-05, .690158D-06, .236156D-06, - + .544168D-07, .175428D-08, .000000D+00, .382035D+06, - + .294266D+06, .223460D+06, .169618D+06, .128708D+06, - + .976194D+05, .740147D+05, .560908D+05, .424923D+05, - + .321747D+05, .243533D+05, .184240D+05, .139330D+05 / - DATA (UPDI(I),I=5565,5616) / - + .105315D+05, .795741D+04, .600949D+04, .453684D+04, - + .342342D+04, .258246D+04, .194725D+04, .146796D+04, - + .110627D+04, .833600D+03, .628013D+03, .473149D+03, - + .356477D+03, .268711D+03, .201796D+03, .152268D+03, - + .114975D+03, .869151D+02, .657810D+02, .498637D+02, - + .378931D+02, .288391D+02, .219980D+02, .168239D+02, - + .128984D+02, .991535D+01, .763891D+01, .590028D+01, - + .456445D+01, .353573D+01, .274055D+01, .212466D+01, - + .164594D+01, .127496D+01, .983927D+00, .758819D+00, - + .582377D+00, .445799D+00, .339823D+00, .257889D+00, - + .194745D+00, .146308D+00, .109312D+00, .812201D-01, - + .600121D-01, .441141D-01, .322672D-01, .235080D-01, - + .170733D-01, .123764D-01, .898444D-02, .652146D-02 / - DATA (UPDI(I),I=5617,5668) / - + .475081D-02, .348175D-02, .257031D-02, .191363D-02, - + .143551D-02, .108394D-02, .820966D-03, .621447D-03, - + .467176D-03, .348932D-03, .255685D-03, .183382D-03, - + .127842D-03, .861161D-04, .555961D-04, .341266D-04, - + .197425D-04, .105478D-04, .516491D-05, .226290D-05, - + .861847D-06, .276764D-06, .704520D-07, .113969D-07, - + .000000D+00, .000000D+00, .503599D+06, .386518D+06, - + .292298D+06, .220939D+06, .166936D+06, .126067D+06, - + .951643D+05, .717977D+05, .541453D+05, .408100D+05, - + .307453D+05, .231495D+05, .174223D+05, .131043D+05, - + .985199D+04, .740251D+04, .555955D+04, .417302D+04, - + .313097D+04, .234788D+04, .176004D+04, .131877D+04, - + .987880D+03, .739762D+03, .553898D+03, .414666D+03 / - DATA (UPDI(I),I=5669,5720) / - + .310541D+03, .231628D+03, .173575D+03, .130137D+03, - + .976608D+02, .733616D+02, .551825D+02, .416060D+02, - + .314098D+02, .237624D+02, .180217D+02, .137002D+02, - + .104423D+02, .797645D+01, .610880D+01, .468613D+01, - + .359993D+01, .276772D+01, .212876D+01, .163647D+01, - + .125827D+01, .964119D+00, .738511D+00, .563131D+00, - + .428452D+00, .324754D+00, .245171D+00, .184273D+00, - + .137866D+00, .102645D+00, .760529D-01, .560846D-01, - + .411850D-01, .301267D-01, .219759D-01, .160013D-01, - + .116437D-01, .849541D-02, .620434D-02, .455088D-02, - + .335872D-02, .249585D-02, .186822D-02, .140659D-02, - + .106363D-02, .804906D-03, .607386D-03, .454440D-03, - + .337256D-03, .245367D-03, .174658D-03, .120892D-03 / - DATA (UPDI(I),I=5721,5772) / - + .809295D-04, .520270D-04, .319037D-04, .185298D-04, - + .100309D-04, .504652D-05, .232451D-05, .965734D-06, - + .355597D-06, .109456D-06, .225634D-07, .410243D-09, - + .000000D+00, .657667D+06, .502895D+06, .378663D+06, - + .284970D+06, .214364D+06, .161159D+06, .121102D+06, - + .909472D+05, .682672D+05, .512111D+05, .383966D+05, - + .287702D+05, .215458D+05, .161249D+05, .120614D+05, - + .901590D+04, .673579D+04, .502897D+04, .375273D+04, - + .279860D+04, .208611D+04, .155412D+04, .115736D+04, - + .861493D+03, .641099D+03, .476939D+03, .354891D+03, - + .262947D+03, .195719D+03, .145729D+03, .108588D+03, - + .809793D+02, .604601D+02, .452404D+02, .338887D+02, - + .254357D+02, .191363D+02, .144299D+02, .109088D+02 / - DATA (UPDI(I),I=5773,5824) / - + .826483D+01, .627815D+01, .477719D+01, .364062D+01, - + .277713D+01, .211966D+01, .161735D+01, .123465D+01, - + .939439D+00, .714838D+00, .541624D+00, .409624D+00, - + .308746D+00, .231876D+00, .173457D+00, .129226D+00, - + .958598D-01, .708112D-01, .520995D-01, .382013D-01, - + .279274D-01, .203785D-01, .148579D-01, .108360D-01, - + .793016D-02, .581263D-02, .428027D-02, .317074D-02, - + .236337D-02, .177234D-02, .133489D-02, .100799D-02, - + .760424D-03, .571099D-03, .424784D-03, .313043D-03, - + .226059D-03, .159694D-03, .109747D-03, .730146D-04, - + .467330D-04, .286119D-04, .166620D-04, .910965D-05, - + .467538D-05, .222828D-05, .974913D-06, .383422D-06, - + .126334D-06, .277183D-07, .112516D-08, .000000D+00 / - DATA (UPDI(I),I=5825,5876) / - + .849892D+06, .647448D+06, .485370D+06, .363659D+06, - + .272333D+06, .203813D+06, .152453D+06, .113960D+06, - + .851400D+05, .635649D+05, .474298D+05, .353654D+05, - + .263540D+05, .196246D+05, .146045D+05, .108606D+05, - + .807152D+04, .599422D+04, .444887D+04, .329953D+04, - + .244578D+04, .181171D+04, .134138D+04, .992569D+03, - + .734192D+03, .542829D+03, .401382D+03, .295457D+03, - + .218473D+03, .161579D+03, .119571D+03, .885445D+02, - + .656333D+02, .487525D+02, .362466D+02, .269989D+02, - + .201558D+02, .150804D+02, .113112D+02, .850241D+01, - + .640800D+01, .483805D+01, .365861D+01, .276973D+01, - + .209834D+01, .158950D+01, .120491D+01, .910577D+00, - + .688377D+00, .518323D+00, .389688D+00, .292090D+00 / - DATA (UPDI(I),I=5877,5928) / - + .218232D+00, .162474D+00, .120523D+00, .890655D-01, - + .655804D-01, .481264D-01, .352207D-01, .257186D-01, - + .187592D-01, .136822D-01, .998860D-02, .732119D-02, - + .537609D-02, .396615D-02, .294239D-02, .219482D-02, - + .164539D-02, .123729D-02, .931472D-03, .699633D-03, - + .522528D-03, .386179D-03, .282553D-03, .202527D-03, - + .142011D-03, .969210D-04, .640956D-04, .408480D-04, - + .249627D-04, .145626D-04, .802143D-05, .417709D-05, - + .203685D-05, .918728D-06, .372942D-06, .125707D-06, - + .279154D-07, .141196D-08, .000000D+00, .108631D+07, - + .824466D+06, .615371D+06, .459027D+06, .342216D+06, - + .254958D+06, .189839D+06, .141252D+06, .105036D+06, - + .780486D+05, .579582D+05, .430063D+05, .318906D+05 / - DATA (UPDI(I),I=5929,5980) / - + .236293D+05, .174962D+05, .129445D+05, .957035D+04, - + .706992D+04, .521923D+04, .384988D+04, .283799D+04, - + .209046D+04, .153893D+04, .113214D+04, .832479D+03, - + .611778D+03, .449582D+03, .328832D+03, .241594D+03, - + .177512D+03, .130485D+03, .959680D+02, .706409D+02, - + .521013D+02, .384566D+02, .284352D+02, .210702D+02, - + .156463D+02, .116469D+02, .868846D+01, .649866D+01, - + .486958D+01, .365501D+01, .274669D+01, .206589D+01, - + .155390D+01, .116988D+01, .878224D+00, .659687D+00, - + .493671D+00, .368989D+00, .275053D+00, .204442D+00, - + .151480D+00, .111877D+00, .823542D-01, .604329D-01, - + .442231D-01, .322912D-01, .235411D-01, .171535D-01, - + .125058D-01, .913013D-02, .669441D-02, .491822D-02 / - DATA (UPDI(I),I=5981,6032) / - + .362968D-02, .269257D-02, .200691D-02, .150188D-02, - + .112619D-02, .844454D-03, .631082D-03, .468538D-03, - + .344014D-03, .249916D-03, .177844D-03, .123822D-03, - + .839587D-04, .552156D-04, .350509D-04, .213840D-04, - + .124936D-04, .692385D-05, .364595D-05, .180651D-05, - + .830085D-06, .342027D-06, .115750D-06, .255634D-07, - + .144723D-08, .000000D+00, .137324D+07, .103841D+07, - + .771699D+06, .573124D+06, .425393D+06, .315512D+06, - + .233867D+06, .173217D+06, .128211D+06, .948240D+05, - + .700824D+05, .517538D+05, .381911D+05, .281587D+05, - + .207463D+05, .152717D+05, .112332D+05, .825532D+04, - + .606227D+04, .444787D+04, .326103D+04, .238884D+04, - + .174874D+04, .127916D+04, .935135D+03, .683152D+03 / - DATA (UPDI(I),I=6033,6084) / - + .499014D+03, .362721D+03, .264829D+03, .193346D+03, - + .141202D+03, .103163D+03, .754251D+02, .552491D+02, - + .404952D+02, .297305D+02, .218717D+02, .161238D+02, - + .119147D+02, .882311D+01, .655105D+01, .487305D+01, - + .363117D+01, .270932D+01, .202349D+01, .151154D+01, - + .113039D+01, .843050D+00, .629299D+00, .468082D+00, - + .347846D+00, .257876D+00, .190687D+00, .140611D+00, - + .103391D+00, .758029D-01, .554282D-01, .404371D-01, - + .294514D-01, .214275D-01, .155897D-01, .113536D-01, - + .828297D-02, .607001D-02, .445715D-02, .328704D-02, - + .243553D-02, .181199D-02, .135237D-02, .101044D-02, - + .754222D-03, .560621D-03, .413710D-03, .301782D-03, - + .217727D-03, .153874D-03, .106423D-03, .717286D-04 / - DATA (UPDI(I),I=6085,6136) / - + .469362D-04, .296931D-04, .180906D-04, .105849D-04, - + .589616D-05, .313175D-05, .156906D-05, .728811D-06, - + .301861D-06, .101589D-06, .221416D-07, .134795D-08, - + .000000D+00, .171719D+07, .129380D+07, .957403D+06, - + .707987D+06, .523209D+06, .386358D+06, .285107D+06, - + .210221D+06, .154893D+06, .114031D+06, .838859D+05, - + .616557D+05, .452811D+05, .332250D+05, .243592D+05, - + .178423D+05, .130581D+05, .954762D+04, .697504D+04, - + .509076D+04, .371252D+04, .270488D+04, .196924D+04, - + .143242D+04, .104123D+04, .756260D+03, .549172D+03, - + .396760D+03, .287919D+03, .208903D+03, .151600D+03, - + .110050D+03, .799332D+02, .581628D+02, .423424D+02, - + .308734D+02, .225547D+02, .165107D+02, .121144D+02 / - DATA (UPDI(I),I=6137,6188) / - + .890733D+01, .656665D+01, .485010D+01, .358867D+01, - + .265902D+01, .197234D+01, .146343D+01, .108727D+01, - + .805701D+00, .597713D+00, .441935D+00, .326543D+00, - + .240769D+00, .177124D+00, .129982D+00, .951479D-01, - + .694747D-01, .506143D-01, .368056D-01, .267315D-01, - + .194030D-01, .140894D-01, .102449D-01, .746413D-02, - + .546324D-02, .400643D-02, .295017D-02, .218163D-02, - + .161894D-02, .120430D-02, .896152D-03, .665673D-03, - + .492075D-03, .360942D-03, .261618D-03, .187508D-03, - + .131659D-03, .904982D-04, .606623D-04, .395180D-04, - + .249271D-04, .151711D-04, .888920D-05, .497277D-05, - + .265858D-05, .134173D-05, .626500D-06, .259183D-06, - + .862580D-07, .184827D-07, .118647D-08, .000000D+00 / - DATA (UPDI(I),I=6189,6240) / - + .212467D+07, .159517D+07, .117547D+07, .865579D+06, - + .636942D+06, .468315D+06, .344079D+06, .252585D+06, - + .185277D+06, .135784D+06, .994318D+05, .727441D+05, - + .531746D+05, .388321D+05, .283333D+05, .206524D+05, - + .150402D+05, .109420D+05, .795320D+04, .577487D+04, - + .418947D+04, .303624D+04, .219860D+04, .159053D+04, - + .114976D+04, .830364D+03, .599526D+03, .430580D+03, - + .310610D+03, .224009D+03, .161565D+03, .116552D+03, - + .841181D+02, .608141D+02, .439822D+02, .318559D+02, - + .231157D+02, .168064D+02, .122469D+02, .894283D+01, - + .654740D+01, .480264D+01, .352926D+01, .259731D+01, - + .191369D+01, .141059D+01, .104130D+01, .766785D+00, - + .565392D+00, .415575D+00, .305333D+00, .223918D+00 / - DATA (UPDI(I),I=6241,6292) / - + .163884D+00, .119686D+00, .872165D-01, .634189D-01, - + .460277D-01, .333568D-01, .241538D-01, .174861D-01, - + .126686D-01, .919355D-02, .668595D-02, .488504D-02, - + .357574D-02, .262748D-02, .193811D-02, .143383D-02, - + .106265D-02, .787316D-03, .581910D-03, .427783D-03, - + .311935D-03, .224711D-03, .160050D-03, .111699D-03, - + .763431D-04, .509210D-04, .330419D-04, .207904D-04, - + .126436D-04, .741763D-05, .416357D-05, .223620D-05, - + .113321D-05, .529678D-06, .217905D-06, .714642D-07, - + .150247D-07, .100567D-08, .000000D+00, .260209D+07, - + .194687D+07, .142875D+07, .104774D+07, .767761D+06, - + .562115D+06, .411229D+06, .300575D+06, .219515D+06, - + .160164D+06, .116760D+06, .850343D+05, .618733D+05 / - DATA (UPDI(I),I=6293,6344) / - + .449748D+05, .326609D+05, .236935D+05, .171716D+05, - + .124315D+05, .899105D+04, .649565D+04, .468833D+04, - + .338020D+04, .243482D+04, .175203D+04, .125964D+04, - + .904702D+03, .649545D+03, .463816D+03, .332654D+03, - + .238500D+03, .170990D+03, .122603D+03, .879399D+02, - + .631800D+02, .454025D+02, .326727D+02, .235536D+02, - + .170119D+02, .123143D+02, .893195D+01, .649565D+01, - + .473281D+01, .345477D+01, .252570D+01, .184878D+01, - + .135397D+01, .993219D+00, .726863D+00, .532751D+00, - + .389306D+00, .284433D+00, .207475D+00, .151075D+00, - + .109799D+00, .796492D-01, .576724D-01, .416950D-01, - + .301104D-01, .217337D-01, .156894D-01, .113379D-01, - + .820888D-02, .595675D-02, .434280D-02, .317153D-02 / - DATA (UPDI(I),I=6345,6396) / - + .232457D-02, .170968D-02, .126054D-02, .930534D-03, - + .686335D-03, .504725D-03, .369023D-03, .267552D-03, - + .191608D-03, .135669D-03, .941489D-04, .640136D-04, - + .425069D-04, .274866D-04, .172582D-04, .104887D-04, - + .615958D-05, .346580D-05, .186660D-05, .947238D-06, - + .441738D-06, .180132D-06, .580825D-07, .119697D-07, - + .829536D-09, .000000D+00, .866694D+06, .684846D+06, - + .535547D+06, .418797D+06, .327501D+06, .256108D+06, - + .200280D+06, .156622D+06, .122483D+06, .957862D+05, - + .749094D+05, .585839D+05, .458174D+05, .358339D+05, - + .280268D+05, .219215D+05, .171471D+05, .134133D+05, - + .104934D+05, .820985D+04, .642397D+04, .502726D+04, - + .393489D+04, .308049D+04, .241221D+04, .188946D+04 / - DATA (UPDI(I),I=6397,6448) / - + .148052D+04, .115659D+04, .907226D+03, .712063D+03, - + .559292D+03, .439679D+03, .346002D+03, .272808D+03, - + .215284D+03, .170193D+03, .134821D+03, .107045D+03, - + .852083D+02, .680065D+02, .544503D+02, .437254D+02, - + .352224D+02, .284612D+02, .230678D+02, .187514D+02, - + .152965D+02, .124944D+02, .102416D+02, .840220D+01, - + .691082D+01, .569330D+01, .469692D+01, .387976D+01, - + .320842D+01, .265615D+01, .220148D+01, .182702D+01, - + .151867D+01, .126489D+01, .105622D+01, .884855D+00, - + .744329D+00, .629744D+00, .535457D+00, .458458D+00, - + .395563D+00, .344088D+00, .301762D+00, .266669D+00, - + .237188D+00, .211963D+00, .189852D+00, .169925D+00, - + .151639D+00, .134195D+00, .117374D+00, .100996D+00 / - DATA (UPDI(I),I=6449,6500) / - + .850434D-01, .696498D-01, .550703D-01, .416692D-01, - + .297444D-01, .197538D-01, .118978D-01, .626233D-02, - + .270756D-02, .856491D-03, .152915D-03, .672154D-05, - + .000000D+00, .161949D+07, .126980D+07, .984141D+06, - + .762507D+06, .590804D+06, .457618D+06, .354465D+06, - + .274472D+06, .212534D+06, .164516D+06, .127348D+06, - + .985413D+05, .762508D+05, .589809D+05, .456221D+05, - + .352759D+05, .272758D+05, .210822D+05, .162951D+05, - + .125904D+05, .972811D+04, .751399D+04, .580415D+04, - + .448211D+04, .346160D+04, .267284D+04, .206426D+04, - + .158843D+04, .122732D+04, .948438D+03, .733386D+03, - + .567345D+03, .439324D+03, .340735D+03, .264500D+03, - + .205641D+03, .160230D+03, .125123D+03, .979845D+02 / - DATA (UPDI(I),I=6501,6552) / - + .769419D+02, .606362D+02, .479381D+02, .380366D+02, - + .302847D+02, .241999D+02, .194022D+02, .156209D+02, - + .125975D+02, .102018D+02, .827249D+01, .672918D+01, - + .548547D+01, .448037D+01, .366602D+01, .300470D+01, - + .246683D+01, .202868D+01, .167156D+01, .138027D+01, - + .114273D+01, .948984D+00, .791109D+00, .662382D+00, - + .557956D+00, .472307D+00, .402486D+00, .345412D+00, - + .298572D+00, .259853D+00, .227528D+00, .200156D+00, - + .176575D+00, .155835D+00, .137170D+00, .120190D+00, - + .104258D+00, .892508D-01, .750594D-01, .616874D-01, - + .492427D-01, .378866D-01, .278527D-01, .192732D-01, - + .123796D-01, .718794D-02, .363326D-02, .150032D-02, - + .450962D-03, .770617D-04, .352013D-05, .000000D+00 / - DATA (UPDI(I),I=6553,6604) / - + .267019D+07, .208078D+07, .160128D+07, .123170D+07, - + .947354D+06, .728294D+06, .559843D+06, .430133D+06, - + .330443D+06, .253722D+06, .194790D+06, .149463D+06, - + .114668D+06, .879221D+05, .674043D+05, .516434D+05, - + .395614D+05, .302872D+05, .231833D+05, .177344D+05, - + .135640D+05, .103678D+05, .792373D+04, .605225D+04, - + .462236D+04, .352829D+04, .269325D+04, .204738D+04, - + .156271D+04, .119258D+04, .910492D+03, .695241D+03, - + .531296D+03, .406578D+03, .311360D+03, .238774D+03, - + .183505D+03, .141333D+03, .109170D+03, .845612D+02, - + .657491D+02, .512935D+02, .401729D+02, .315809D+02, - + .249258D+02, .197451D+02, .157142D+02, .125307D+02, - + .100392D+02, .805642D+01, .648871D+01, .523956D+01 / - DATA (UPDI(I),I=6605,6656) / - + .424103D+01, .344056D+01, .279713D+01, .227896D+01, - + .186081D+01, .152305D+01, .124985D+01, .102882D+01, - + .849815D+00, .704891D+00, .587314D+00, .492338D+00, - + .414657D+00, .351424D+00, .299722D+00, .257220D+00, - + .221980D+00, .192454D+00, .167369D+00, .145728D+00, - + .126731D+00, .109740D+00, .944635D-01, .803765D-01, - + .674002D-01, .554514D-01, .445219D-01, .346728D-01, - + .259826D-01, .185741D-01, .124686D-01, .775056D-02, - + .434027D-02, .210733D-02, .831207D-03, .237459D-03, - + .388345D-04, .184594D-05, .000000D+00, .407395D+07, - + .315784D+07, .241527D+07, .184624D+07, .141102D+07, - + .107775D+07, .823026D+06, .628109D+06, .479246D+06, - + .365420D+06, .278559D+06, .212196D+06, .161599D+06 / - DATA (UPDI(I),I=6657,6708) / - + .122976D+06, .935551D+05, .711187D+05, .540451D+05, - + .410379D+05, .311505D+05, .236259D+05, .179126D+05, - + .135697D+05, .102762D+05, .777588D+04, .588209D+04, - + .444586D+04, .335975D+04, .252758D+04, .190907D+04, - + .144134D+04, .108842D+04, .821866D+03, .620949D+03, - + .469731D+03, .355527D+03, .269429D+03, .204603D+03, - + .155702D+03, .118833D+03, .909504D+02, .698823D+02, - + .538819D+02, .417152D+02, .324240D+02, .253095D+02, - + .198338D+02, .156210D+02, .123302D+02, .978254D+01, - + .777660D+01, .620684D+01, .496866D+01, .398853D+01, - + .321028D+01, .259040D+01, .209561D+01, .169967D+01, - + .138241D+01, .112771D+01, .923087D+00, .758410D+00, - + .625829D+00, .518749D+00, .432574D+00, .362278D+00 / - DATA (UPDI(I),I=6709,6760) / - + .305147D+00, .258454D+00, .220054D+00, .188186D+00, - + .161465D+00, .138767D+00, .119234D+00, .102181D+00, - + .870670D-01, .736612D-01, .615166D-01, .505681D-01, - + .407336D-01, .319809D-01, .243222D-01, .177712D-01, - + .123672D-01, .806379D-02, .485729D-02, .262744D-02, - + .122764D-02, .463709D-03, .126396D-03, .198645D-04, - + .980129D-06, .000000D+00, .589051D+07, .454404D+07, - + .345623D+07, .262709D+07, .199629D+07, .151591D+07, - + .115076D+07, .872936D+06, .661956D+06, .501583D+06, - + .379919D+06, .287534D+06, .217523D+06, .164419D+06, - + .124224D+06, .937708D+05, .707490D+05, .533297D+05, - + .401786D+05, .302413D+05, .227497D+05, .170970D+05, - + .128421D+05, .963668D+04, .722764D+04, .541523D+04 / - DATA (UPDI(I),I=6761,6812) / - + .405589D+04, .302315D+04, .226212D+04, .169168D+04, - + .126505D+04, .945799D+03, .707369D+03, .529636D+03, - + .396691D+03, .297460D+03, .223486D+03, .168253D+03, - + .127034D+03, .961859D+02, .731174D+02, .557812D+02, - + .427352D+02, .328764D+02, .254049D+02, .197130D+02, - + .153780D+02, .120254D+02, .945524D+01, .745104D+01, - + .589731D+01, .468301D+01, .373031D+01, .298038D+01, - + .238801D+01, .191899D+01, .154653D+01, .125026D+01, - + .101402D+01, .825417D+00, .674500D+00, .553608D+00, - + .456376D+00, .378403D+00, .314969D+00, .263515D+00, - + .221515D+00, .187006D+00, .158394D+00, .134440D+00, - + .114153D+00, .967824D-01, .817372D-01, .685482D-01, - + .570186D-01, .467584D-01, .377000D-01, .297524D-01 / - DATA (UPDI(I),I=6813,6864) / - + .228584D-01, .169898D-01, .121139D-01, .821383D-02, - + .520701D-02, .304258D-02, .159177D-02, .716807D-03, - + .259844D-03, .677900D-04, .102727D-04, .524923D-06, - + .000000D+00, .859085D+07, .659239D+07, .498370D+07, - + .376478D+07, .284283D+07, .214501D+07, .161775D+07, - + .121911D+07, .918253D+06, .691051D+06, .519789D+06, - + .390617D+06, .293376D+06, .220132D+06, .165071D+06, - + .123657D+06, .925720D+05, .692276D+05, .517336D+05, - + .386176D+05, .288057D+05, .214622D+05, .159789D+05, - + .118829D+05, .883029D+04, .655370D+04, .486140D+04, - + .358749D+04, .265742D+04, .196695D+04, .145548D+04, - + .107658D+04, .796402D+03, .589722D+03, .436721D+03, - + .323749D+03, .240433D+03, .178914D+03, .133508D+03 / - DATA (UPDI(I),I=6865,6916) / - + .999097D+02, .750648D+02, .566065D+02, .428715D+02, - + .326103D+02, .249204D+02, .191275D+02, .147641D+02, - + .114261D+02, .889454D+01, .694129D+01, .544259D+01, - + .428311D+01, .338227D+01, .267990D+01, .213018D+01, - + .169875D+01, .135901D+01, .109091D+01, .878730D+00, - + .710500D+00, .576729D+00, .470169D+00, .384876D+00, - + .316762D+00, .261545D+00, .216889D+00, .180537D+00, - + .150751D+00, .126135D+00, .105619D+00, .883525D-01, - + .736973D-01, .611534D-01, .503204D-01, .410230D-01, - + .329266D-01, .259520D-01, .199968D-01, .149804D-01, - + .108416D-01, .751471D-02, .494500D-02, .303524D-02, - + .171317D-02, .863087D-03, .372989D-03, .129267D-03, - + .321863D-04, .469719D-05, .248969D-06, .000000D+00 / - DATA (UPDI(I),I=6917,6968) / - + .121136D+08, .924907D+07, .695119D+07, .522000D+07, - + .391793D+07, .293818D+07, .220219D+07, .164910D+07, - + .123416D+07, .922764D+06, .689479D+06, .514658D+06, - + .383889D+06, .286044D+06, .212974D+06, .158392D+06, - + .117702D+06, .873617D+05, .647857D+05, .479843D+05, - + .355077D+05, .262413D+05, .193752D+05, .142869D+05, - + .105249D+05, .774236D+04, .569135D+04, .416079D+04, - + .305309D+04, .223817D+04, .163994D+04, .120093D+04, - + .879343D+03, .644429D+03, .472214D+03, .346338D+03, - + .254437D+03, .187284D+03, .138229D+03, .102314D+03, - + .760340D+02, .567171D+02, .424941D+02, .319812D+02, - + .241851D+02, .183735D+02, .140410D+02, .107604D+02, - + .829736D+01, .641571D+01, .498583D+01, .389002D+01 / - DATA (UPDI(I),I=6969,7020) / - + .304642D+01, .239453D+01, .188867D+01, .149493D+01, - + .118730D+01, .946346D+00, .756979D+00, .607816D+00, - + .489918D+00, .396513D+00, .322115D+00, .262969D+00, - + .215221D+00, .176758D+00, .145575D+00, .120137D+00, - + .992269D-01, .819162D-01, .674718D-01, .553454D-01, - + .451060D-01, .364060D-01, .290812D-01, .228405D-01, - + .175941D-01, .132325D-01, .966253D-02, .680603D-02, - + .458320D-02, .292457D-02, .173625D-02, .945293D-03, - + .457772D-03, .189403D-03, .625711D-04, .148152D-04, - + .207525D-05, .114386D-06, .000000D+00, .165877D+08, - + .126047D+08, .942011D+07, .703401D+07, .524905D+07, - + .391350D+07, .291582D+07, .217039D+07, .161436D+07, - + .119956D+07, .890644D+06, .660565D+06, .489510D+06 / - DATA (UPDI(I),I=7021,7072) / - + .362334D+06, .267955D+06, .197918D+06, .146045D+06, - + .107629D+06, .792366D+05, .582546D+05, .427825D+05, - + .313751D+05, .229839D+05, .168125D+05, .122842D+05, - + .896100D+04, .653106D+04, .473261D+04, .344183D+04, - + .250033D+04, .181509D+04, .131670D+04, .954845D+03, - + .692960D+03, .502738D+03, .365027D+03, .265442D+03, - + .193386D+03, .141263D+03, .103483D+03, .761104D+02, - + .561932D+02, .416739D+02, .310498D+02, .232489D+02, - + .174911D+02, .132404D+02, .100527D+02, .768208D+01, - + .588787D+01, .453681D+01, .351060D+01, .272737D+01, - + .212718D+01, .166519D+01, .130839D+01, .103167D+01, - + .816463D+00, .648451D+00, .516935D+00, .413596D+00, - + .332171D+00, .267650D+00, .216606D+00, .175600D+00 / - DATA (UPDI(I),I=7073,7124) / - + .142731D+00, .116224D+00, .947322D-01, .771916D-01, - + .627943D-01, .509056D-01, .410496D-01, .328507D-01, - + .260037D-01, .203516D-01, .156409D-01, .117755D-01, - + .864533D-02, .615415D-02, .421957D-02, .276111D-02, - + .170889D-02, .981547D-03, .515680D-03, .240181D-03, - + .952256D-04, .300314D-04, .677692D-05, .913542D-06, - + .521204D-07, .000000D+00, .221436D+08, .167498D+08, - + .124507D+08, .924651D+07, .686202D+07, .508750D+07, - + .376900D+07, .278933D+07, .206260D+07, .152355D+07, - + .112437D+07, .828817D+06, .610367D+06, .448937D+06, - + .329862D+06, .242051D+06, .177421D+06, .129866D+06, - + .949458D+05, .693133D+05, .505385D+05, .367923D+05, - + .267511D+05, .194193D+05, .140785D+05, .101883D+05 / - DATA (UPDI(I),I=7125,7176) / - + .736541D+04, .529250D+04, .381654D+04, .274873D+04, - + .197788D+04, .142199D+04, .102179D+04, .734703D+03, - + .528003D+03, .379721D+03, .273463D+03, .197295D+03, - + .142710D+03, .103519D+03, .753926D+02, .551221D+02, - + .404847D+02, .298763D+02, .221601D+02, .165181D+02, - + .123913D+02, .932475D+01, .706468D+01, .536922D+01, - + .410349D+01, .315017D+01, .242849D+01, .187984D+01, - + .146074D+01, .113943D+01, .892005D+00, .700863D+00, - + .552600D+00, .437252D+00, .347146D+00, .276546D+00, - + .220906D+00, .177129D+00, .142155D+00, .114288D+00, - + .919615D-01, .739920D-01, .594520D-01, .476373D-01, - + .379961D-01, .301128D-01, .236584D-01, .183642D-01, - + .140809D-01, .105890D-01, .779187D-02, .558460D-02 / - DATA (UPDI(I),I=7177,7228) / - + .387576D-02, .258706D-02, .164526D-02, .987854D-03, - + .549113D-03, .278498D-03, .124831D-03, .474710D-04, - + .143140D-04, .308536D-05, .401206D-06, .235291D-07, - + .000000D+00, .289061D+08, .217695D+08, .160985D+08, - + .118930D+08, .877918D+07, .647395D+07, .476994D+07, - + .351060D+07, .258136D+07, .189589D+07, .139105D+07, - + .101938D+07, .746220D+06, .545535D+06, .398364D+06, - + .290486D+06, .211562D+06, .153851D+06, .111737D+06, - + .810227D+05, .586704D+05, .424139D+05, .306183D+05, - + .220649D+05, .158776D+05, .114030D+05, .817981D+04, - + .583068D+04, .417077D+04, .297921D+04, .212577D+04, - + .151529D+04, .107937D+04, .769269D+03, .547880D+03, - + .390437D+03, .278594D+03, .199136D+03, .142698D+03 / - DATA (UPDI(I),I=7229,7280) / - + .102545D+03, .739864D+02, .535922D+02, .389985D+02, - + .285178D+02, .209628D+02, .154880D+02, .115186D+02, - + .859461D+01, .645803D+01, .486861D+01, .369175D+01, - + .281242D+01, .215190D+01, .165352D+01, .127558D+01, - + .987855D+00, .767787D+00, .598884D+00, .468694D+00, - + .368019D+00, .289841D+00, .228941D+00, .181225D+00, - + .143906D+00, .114280D+00, .908333D-01, .721908D-01, - + .573137D-01, .453932D-01, .358151D-01, .280993D-01, - + .218823D-01, .168758D-01, .128443D-01, .964818D-02, - + .709951D-02, .510616D-02, .357290D-02, .241771D-02, - + .157131D-02, .971355D-03, .565938D-03, .304550D-03, - + .149184D-03, .643996D-04, .235159D-04, .679114D-05, - + .140142D-05, .176137D-06, .105073D-07, .000000D+00 / - DATA (UPDI(I),I=7281,7332) / - + .369897D+08, .277404D+08, .204116D+08, .150034D+08, - + .110185D+08, .808317D+07, .592426D+07, .433694D+07, - + .317172D+07, .231671D+07, .169034D+07, .123171D+07, - + .896464D+06, .651552D+06, .472955D+06, .342800D+06, - + .248130D+06, .179318D+06, .129405D+06, .932272D+05, - + .670627D+05, .481555D+05, .345249D+05, .247066D+05, - + .176517D+05, .125848D+05, .896063D+04, .633829D+04, - + .449888D+04, .318833D+04, .225673D+04, .159552D+04, - + .112705D+04, .796482D+03, .562387D+03, .397291D+03, - + .280991D+03, .199069D+03, .141379D+03, .100689D+03, - + .719999D+02, .516907D+02, .372835D+02, .270266D+02, - + .196964D+02, .144296D+02, .106432D+02, .787692D+01, - + .587212D+01, .439259D+01, .330564D+01, .249964D+01 / - DATA (UPDI(I),I=7333,7384) / - + .189867D+01, .144846D+01, .110942D+01, .853048D+00, - + .658241D+00, .509671D+00, .395863D+00, .308388D+00, - + .240870D+00, .188593D+00, .147887D+00, .116257D+00, - + .913205D-01, .717349D-01, .562933D-01, .440865D-01, - + .344096D-01, .267278D-01, .206235D-01, .157796D-01, - + .119449D-01, .891403D-02, .655977D-02, .472333D-02, - + .332068D-02, .226869D-02, .149706D-02, .947512D-03, - + .569510D-03, .322085D-03, .167874D-03, .794763D-04, - + .330735D-04, .116128D-04, .321844D-05, .637441D-06, - + .775522D-07, .463037D-08, .000000D+00, .464942D+08, - + .347272D+08, .254293D+08, .186005D+08, .135925D+08, - + .992157D+07, .723466D+07, .526900D+07, .383320D+07, - + .278505D+07, .202112D+07, .146471D+07, .106013D+07 / - DATA (UPDI(I),I=7385,7436) / - + .766172D+06, .552971D+06, .398468D+06, .286716D+06, - + .205959D+06, .147719D+06, .105758D+06, .755937D+05, - + .539306D+05, .384103D+05, .273025D+05, .193726D+05, - + .137148D+05, .969564D+04, .680764D+04, .479618D+04, - + .337336D+04, .236929D+04, .166197D+04, .116460D+04, - + .816364D+03, .571672D+03, .400483D+03, .280857D+03, - + .197285D+03, .138914D+03, .980873D+02, .695403D+02, - + .495008D+02, .354029D+02, .254497D+02, .183949D+02, - + .133673D+02, .978185D+01, .718310D+01, .531435D+01, - + .394569D+01, .294766D+01, .221295D+01, .166899D+01, - + .126429D+01, .961549D+00, .734106D+00, .562382D+00, - + .432229D+00, .333142D+00, .257448D+00, .199383D+00, - + .154708D+00, .120149D+00, .934821D-01, .726165D-01 / - DATA (UPDI(I),I=7437,7488) / - + .563622D-01, .436635D-01, .337264D-01, .259379D-01, - + .198331D-01, .150504D-01, .113141D-01, .840678D-02, - + .615178D-02, .443548D-02, .312562D-02, .214832D-02, - + .143337D-02, .922599D-03, .568831D-03, .332564D-03, - + .182662D-03, .922776D-04, .422628D-04, .169773D-04, - + .574266D-05, .153132D-05, .291965D-06, .344163D-07, - + .200563D-08, .000000D+00, .575006D+08, .427804D+08, - + .311798D+08, .226989D+08, .165079D+08, .119912D+08, - + .870072D+07, .630516D+07, .456379D+07, .329888D+07, - + .238154D+07, .171680D+07, .123592D+07, .888358D+06, - + .637607D+06, .456875D+06, .326863D+06, .233433D+06, - + .166434D+06, .118441D+06, .841395D+05, .596529D+05, - + .422156D+05, .298128D+05, .210138D+05, .147762D+05 / - DATA (UPDI(I),I=7489,7540) / - + .103742D+05, .723234D+04, .505899D+04, .353233D+04, - + .246253D+04, .171435D+04, .119207D+04, .829112D+03, - + .575997D+03, .400278D+03, .278438D+03, .193989D+03, - + .135474D+03, .948727D+02, .667103D+02, .470996D+02, - + .334134D+02, .238279D+02, .170873D+02, .123209D+02, - + .894797D+01, .652164D+01, .478985D+01, .353069D+01, - + .261903D+01, .195254D+01, .146242D+01, .110016D+01, - + .830922D+00, .629917D+00, .479096D+00, .365487D+00, - + .279524D+00, .214260D+00, .164513D+00, .126488D+00, - + .972757D-01, .748988D-01, .575291D-01, .441156D-01, - + .337367D-01, .257009D-01, .194766D-01, .146613D-01, - + .109427D-01, .808344D-02, .589673D-02, .423206D-02, - + .299035D-02, .206288D-02, .138663D-02, .903841D-03 / - DATA (UPDI(I),I=7541,7592) / - + .567714D-03, .341158D-03, .194138D-03, .103645D-03, - + .508046D-04, .225422D-04, .875829D-05, .286143D-05, - + .736653D-06, .135716D-06, .155052D-07, .847861D-09, - + .000000D+00, .700677D+08, .519335D+08, .376791D+08, - + .273045D+08, .197649D+08, .142894D+08, .103188D+08, - + .744157D+07, .535991D+07, .385509D+07, .276903D+07, - + .198592D+07, .142223D+07, .101688D+07, .725941D+06, - + .517341D+06, .368072D+06, .261386D+06, .185296D+06, - + .131096D+06, .925777D+05, .652395D+05, .458852D+05, - + .322013D+05, .225523D+05, .157544D+05, .109876D+05, - + .760746D+04, .528469D+04, .366403D+04, .253607D+04, - + .175271D+04, .120971D+04, .835072D+03, .575710D+03, - + .396992D+03, .274000D+03, .189400D+03, .131227D+03 / - DATA (UPDI(I),I=7593,7644) / - + .911742D+02, .636059D+02, .445570D+02, .313649D+02, - + .221960D+02, .157971D+02, .113061D+02, .815142D+01, - + .589845D+01, .430181D+01, .314896D+01, .231994D+01, - + .171786D+01, .127798D+01, .954915D+00, .716296D+00, - + .539241D+00, .407198D+00, .308336D+00, .233991D+00, - + .177898D+00, .135417D+00, .103164D+00, .785623D-01, - + .598608D-01, .454640D-01, .344465D-01, .260061D-01, - + .195421D-01, .145954D-01, .108186D-01, .794405D-02, - + .576827D-02, .413253D-02, .291003D-02, .201598D-02, - + .136209D-02, .895895D-03, .570860D-03, .350157D-03, - + .205265D-03, .113811D-03, .591349D-04, .281719D-04, - + .121355D-04, .457293D-05, .144822D-05, .361578D-06, - + .646769D-07, .715976D-08, .345200D-09, .000000D+00 / - DATA (UPDI(I),I=7645,7696) / - + .642719D+05, .929454D+05, .712044D+05, .545585D+05, - + .418126D+05, .320522D+05, .245771D+05, .188516D+05, - + .144655D+05, .111050D+05, .852961D+04, .655557D+04, - + .504201D+04, .388116D+04, .299049D+04, .230682D+04, - + .178178D+04, .137833D+04, .106809D+04, .829342D+03, - + .645442D+03, .503640D+03, .394163D+03, .309524D+03, - + .243983D+03, .193136D+03, .153607D+03, .122419D+03, - + .984441D+02, .796536D+02, .648778D+02, .532167D+02, - + .439773D+02, .366450D+02, .307677D+02, .260478D+02, - + .222371D+02, .191427D+02, .166144D+02, .145339D+02, - + .128123D+02, .113744D+02, .101640D+02, .913630D+01, - + .825562D+01, .749382D+01, .683079D+01, .624234D+01, - + .572152D+01, .525061D+01, .482543D+01, .443703D+01 / - DATA (UPDI(I),I=7697,7748) / - + .407979D+01, .374921D+01, .344179D+01, .315476D+01, - + .288599D+01, .263384D+01, .239704D+01, .217462D+01, - + .196583D+01, .177009D+01, .158694D+01, .141675D+01, - + .125741D+01, .110971D+01, .973356D+00, .848062D+00, - + .733521D+00, .629407D+00, .535368D+00, .451017D+00, - + .375910D+00, .309530D+00, .251930D+00, .201746D+00, - + .158869D+00, .122721D+00, .927103D-01, .682347D-01, - + .486876D-01, .334854D-01, .219459D-01, .135876D-01, - + .779198D-02, .402512D-02, .178751D-02, .625177D-03, - + .141448D-03, .110335D-04, .000000D+00, .145983D+06, - + .113359D+06, .869089D+05, .666322D+05, .510926D+05, - + .391800D+05, .300503D+05, .230513D+05, .176870D+05, - + .135742D+05, .104216D+05, .800420D+04, .615077D+04 / - DATA (UPDI(I),I=7749,7800) / - + .472911D+04, .363876D+04, .280203D+04, .215995D+04, - + .166689D+04, .128822D+04, .997143D+03, .773336D+03, - + .601057D+03, .468366D+03, .366019D+03, .287004D+03, - + .225893D+03, .178571D+03, .141372D+03, .112907D+03, - + .906948D+02, .733219D+02, .596811D+02, .489371D+02, - + .404584D+02, .337057D+02, .283144D+02, .239902D+02, - + .204989D+02, .176645D+02, .153451D+02, .134372D+02, - + .118518D+02, .105247D+02, .940301D+01, .844674D+01, - + .762327D+01, .691004D+01, .627991D+01, .572501D+01, - + .522567D+01, .477724D+01, .436975D+01, .399712D+01, - + .365431D+01, .333747D+01, .304349D+01, .276999D+01, - + .251508D+01, .227729D+01, .205543D+01, .184858D+01, - + .165600D+01, .147699D+01, .131179D+01, .115816D+01 / - DATA (UPDI(I),I=7801,7852) / - + .101672D+01, .887024D+00, .768660D+00, .661185D+00, - + .564164D+00, .477124D+00, .399594D+00, .331044D+00, - + .270873D+00, .219054D+00, .174251D+00, .136265D+00, - + .104497D+00, .783383D-01, .571912D-01, .404513D-01, - + .275619D-01, .178782D-01, .109448D-01, .619728D-02, - + .315575D-02, .137790D-02, .472253D-03, .104658D-03, - + .825082D-05, .000000D+00, .181767D+06, .141059D+06, - + .108061D+06, .827732D+05, .634050D+05, .485652D+05, - + .372010D+05, .284955D+05, .218300D+05, .167245D+05, - + .128159D+05, .982241D+04, .753078D+04, .577566D+04, - + .443200D+04, .340277D+04, .261466D+04, .201078D+04, - + .154816D+04, .119348D+04, .921572D+03, .712897D+03, - + .552724D+03, .429614D+03, .334942D+03, .262021D+03 / - DATA (UPDI(I),I=7853,7904) / - + .205814D+03, .161833D+03, .128348D+03, .102353D+03, - + .821365D+02, .663520D+02, .539949D+02, .443015D+02, - + .366306D+02, .305435D+02, .256924D+02, .217990D+02, - + .186576D+02, .161014D+02, .140109D+02, .122826D+02, - + .108433D+02, .963259D+01, .860530D+01, .772455D+01, - + .696516D+01, .629716D+01, .571163D+01, .518711D+01, - + .471837D+01, .429452D+01, .390897D+01, .355618D+01, - + .323196D+01, .293287D+01, .265627D+01, .240003D+01, - + .216246D+01, .194221D+01, .173814D+01, .154938D+01, - + .137500D+01, .121510D+01, .106734D+01, .932188D+00, - + .809046D+00, .697390D+00, .596659D+00, .506321D+00, - + .425805D+00, .354566D+00, .292014D+00, .237476D+00, - + .190840D+00, .150810D+00, .117123D+00, .891697D-01 / - DATA (UPDI(I),I=7905,7956) / - + .663368D-01, .480374D-01, .336790D-01, .227322D-01, - + .145923D-01, .883120D-02, .493559D-02, .247573D-02, - + .106181D-02, .356113D-03, .771629D-04, .615465D-05, - + .000000D+00, .228688D+06, .177185D+06, .135477D+06, - + .103565D+06, .791650D+05, .605018D+05, .462368D+05, - + .353298D+05, .269961D+05, .206264D+05, .157610D+05, - + .120433D+05, .920452D+04, .703584D+04, .538016D+04, - + .411548D+04, .315003D+04, .241254D+04, .184946D+04, - + .141922D+04, .109061D+04, .839361D+03, .647294D+03, - + .500282D+03, .387733D+03, .301440D+03, .235257D+03, - + .183730D+03, .144709D+03, .114581D+03, .912857D+02, - + .732031D+02, .591329D+02, .481627D+02, .395357D+02, - + .327320D+02, .273434D+02, .230445D+02, .195965D+02 / - DATA (UPDI(I),I=7957,8008) / - + .168064D+02, .145371D+02, .126705D+02, .111238D+02, - + .982856D+01, .873452D+01, .780054D+01, .699867D+01, - + .629623D+01, .568317D+01, .513636D+01, .464992D+01, - + .421212D+01, .381584D+01, .345507D+01, .312526D+01, - + .282267D+01, .254439D+01, .228807D+01, .205181D+01, - + .183405D+01, .163351D+01, .144912D+01, .127980D+01, - + .112548D+01, .983734D+00, .854876D+00, .738191D+00, - + .633045D+00, .538776D+00, .454763D+00, .380356D+00, - + .314948D+00, .257899D+00, .208482D+00, .166514D+00, - + .130743D+00, .100857D+00, .762456D-01, .562997D-01, - + .404471D-01, .281154D-01, .188033D-01, .119483D-01, - + .715055D-02, .394602D-02, .195085D-02, .822424D-03, - + .270202D-03, .573278D-04, .462166D-05, .000000D+00 / - DATA (UPDI(I),I=8009,8060) / - + .176224D+06, .223088D+06, .170123D+06, .129695D+06, - + .988596D+05, .753337D+05, .573994D+05, .437234D+05, - + .333031D+05, .253610D+05, .193127D+05, .147050D+05, - + .111976D+05, .852673D+04, .649449D+04, .494746D+04, - + .377068D+04, .287503D+04, .219381D+04, .167533D+04, - + .128094D+04, .980668D+03, .752129D+03, .577987D+03, - + .445299D+03, .344058D+03, .266811D+03, .206982D+03, - + .161921D+03, .127324D+03, .100727D+03, .802025D+02, - + .643280D+02, .520260D+02, .424108D+02, .348738D+02, - + .289404D+02, .242345D+02, .204818D+02, .174616D+02, - + .150181D+02, .130181D+02, .113686D+02, .999347D+01, - + .883686D+01, .785350D+01, .701262D+01, .627896D+01, - + .564124D+01, .507479D+01, .457304D+01, .412348D+01 / - DATA (UPDI(I),I=8061,8112) / - + .371844D+01, .335147D+01, .301768D+01, .271302D+01, - + .243432D+01, .217900D+01, .194497D+01, .173048D+01, - + .153407D+01, .135453D+01, .119060D+01, .104206D+01, - + .906420D+00, .783840D+00, .673496D+00, .574658D+00, - + .486578D+00, .408558D+00, .339881D+00, .279889D+00, - + .227901D+00, .183155D+00, .145407D+00, .113452D+00, - + .869427D-01, .652731D-01, .478458D-01, .341072D-01, - + .235102D-01, .155823D-01, .980355D-02, .580311D-02, - + .316304D-02, .154177D-02, .639190D-03, .205882D-03, - + .428242D-04, .348967D-05, .000000D+00, .382730D+06, - + .294889D+06, .224018D+06, .170118D+06, .129156D+06, - + .980204D+05, .743738D+05, .564124D+05, .427803D+05, - + .324326D+05, .245842D+05, .186307D+05, .141182D+05 / - DATA (UPDI(I),I=8113,8164) / - + .106972D+05, .810584D+04, .614238D+04, .465581D+04, - + .352994D+04, .267784D+04, .203265D+04, .154443D+04, - + .117476D+04, .894945D+03, .682970D+03, .522401D+03, - + .400638D+03, .308317D+03, .237279D+03, .184129D+03, - + .143602D+03, .112662D+03, .889573D+02, .707539D+02, - + .567510D+02, .458853D+02, .374306D+02, .308219D+02, - + .256174D+02, .214947D+02, .181987D+02, .155483D+02, - + .133917D+02, .116228D+02, .101558D+02, .892808D+01, - + .788933D+01, .700522D+01, .623748D+01, .557328D+01, - + .498620D+01, .446878D+01, .400761D+01, .359435D+01, - + .322206D+01, .288540D+01, .257998D+01, .230231D+01, - + .204956D+01, .181938D+01, .160982D+01, .141919D+01, - + .124612D+01, .108915D+01, .947894D+00, .819785D+00 / - DATA (UPDI(I),I=8165,8216) / - + .704813D+00, .602037D+00, .510626D+00, .429740D+00, - + .358605D+00, .296440D+00, .242538D+00, .196181D+00, - + .156580D+00, .123434D+00, .955990D-01, .726994D-01, - + .541414D-01, .393504D-01, .277999D-01, .189783D-01, - + .124494D-01, .774436D-02, .452775D-02, .243394D-02, - + .116793D-02, .475505D-03, .150001D-03, .305890D-04, - + .252137D-05, .000000D+00, .504350D+06, .387191D+06, - + .292901D+06, .221479D+06, .167420D+06, .126500D+06, - + .955517D+05, .721446D+05, .544558D+05, .410880D+05, - + .309941D+05, .233721D+05, .176216D+05, .132827D+05, - + .100116D+05, .754533D+04, .568735D+04, .428736D+04, - + .323329D+04, .243942D+04, .184195D+04, .139207D+04, - + .105348D+04, .798474D+03, .606461D+03, .461743D+03 / - DATA (UPDI(I),I=8217,8268) / - + .352710D+03, .269356D+03, .207402D+03, .160482D+03, - + .124904D+03, .978366D+02, .771959D+02, .614313D+02, - + .492841D+02, .398990D+02, .326131D+02, .269140D+02, - + .224284D+02, .188647D+02, .160156D+02, .137104D+02, - + .118292D+02, .102771D+02, .898408D+01, .789513D+01, - + .697242D+01, .617476D+01, .548778D+01, .488342D+01, - + .435332D+01, .388325D+01, .346420D+01, .308877D+01, - + .275118D+01, .244670D+01, .217156D+01, .192265D+01, - + .169740D+01, .149363D+01, .130948D+01, .114340D+01, - + .993744D+00, .859969D+00, .739465D+00, .632053D+00, - + .536697D+00, .452472D+00, .378467D+00, .313845D+00, - + .257779D+00, .209522D+00, .168334D+00, .133414D+00, - + .104414D+00, .802584D-01, .605521D-01, .447214D-01 / - DATA (UPDI(I),I=8269,8320) / - + .322192D-01, .225499D-01, .152399D-01, .988924D-02, - + .607871D-02, .350739D-02, .185764D-02, .876376D-03, - + .349776D-03, .107808D-03, .214967D-04, .179420D-05, - + .000000D+00, .658477D+06, .503621D+06, .379313D+06, - + .285552D+06, .214885D+06, .161625D+06, .121520D+06, - + .913207D+05, .686014D+05, .515102D+05, .386642D+05, - + .290096D+05, .217600D+05, .163165D+05, .122327D+05, - + .916910D+04, .687279D+04, .515148D+04, .386227D+04, - + .289653D+04, .217367D+04, .163240D+04, .122736D+04, - + .924076D+03, .697066D+03, .527007D+03, .399680D+03, - + .302962D+03, .231541D+03, .177809D+03, .137336D+03, - + .106755D+03, .835920D+02, .660228D+02, .525766D+02, - + .422582D+02, .343002D+02, .281157D+02, .232778D+02 / - DATA (UPDI(I),I=8321,8372) / - + .194569D+02, .164191D+02, .139741D+02, .119887D+02, - + .103583D+02, .900610D+01, .787227D+01, .691559D+01, - + .609213D+01, .538602D+01, .476765D+01, .422778D+01, - + .375141D+01, .332889D+01, .295238D+01, .261567D+01, - + .231374D+01, .204249D+01, .179859D+01, .157923D+01, - + .138203D+01, .120497D+01, .104629D+01, .904243D+00, - + .778097D+00, .665219D+00, .565281D+00, .477161D+00, - + .399862D+00, .332414D+00, .273931D+00, .223554D+00, - + .180510D+00, .144046D+00, .113363D+00, .880817D-01, - + .671924D-01, .502935D-01, .368362D-01, .263053D-01, - + .182388D-01, .122023D-01, .783240D-02, .475703D-02, - + .270871D-02, .141341D-02, .655537D-03, .256486D-03, - + .772542D-04, .150696D-04, .127406D-05, .000000D+00 / - DATA (UPDI(I),I=8373,8424) / - + .850765D+06, .648230D+06, .486070D+06, .364286D+06, - + .272894D+06, .204315D+06, .152902D+06, .114362D+06, - + .854993D+05, .638862D+05, .477171D+05, .356223D+05, - + .265837D+05, .198299D+05, .147881D+05, .110247D+05, - + .821815D+04, .612524D+04, .456593D+04, .340411D+04, - + .253920D+04, .189515D+04, .141591D+04, .105914D+04, - + .793658D+03, .595961D+03, .448848D+03, .337800D+03, - + .256318D+03, .195412D+03, .149832D+03, .115620D+03, - + .898765D+02, .704797D+02, .557312D+02, .444873D+02, - + .358698D+02, .292141D+02, .240379D+02, .199729D+02, - + .167578D+02, .141831D+02, .121020D+02, .104007D+02, - + .899560D+01, .782230D+01, .683636D+01, .599121D+01, - + .526955D+01, .464035D+01, .409354D+01, .361335D+01 / - DATA (UPDI(I),I=8425,8476) / - + .318958D+01, .281392D+01, .247979D+01, .218185D+01, - + .191573D+01, .167787D+01, .146523D+01, .127527D+01, - + .110576D+01, .954823D+00, .820560D+00, .702102D+00, - + .596798D+00, .504185D+00, .423072D+00, .352402D+00, - + .291163D+00, .238435D+00, .193336D+00, .155083D+00, - + .122918D+00, .960554D-01, .740938D-01, .560933D-01, - + .416529D-01, .302534D-01, .214142D-01, .147083D-01, - + .974102D-02, .618462D-02, .371136D-02, .208545D-02, - + .107207D-02, .488828D-03, .187515D-03, .552135D-04, - + .105445D-04, .902923D-06, .000000D+00, .108725D+07, - + .825307D+06, .616125D+06, .459700D+06, .342819D+06, - + .255497D+06, .190321D+06, .141683D+06, .105422D+06, - + .783934D+05, .582663D+05, .432817D+05, .321367D+05 / - DATA (UPDI(I),I=8477,8528) / - + .238492D+05, .176926D+05, .131199D+05, .972702D+04, - + .720982D+04, .534412D+04, .396136D+04, .293748D+04, - + .217924D+04, .161815D+04, .120282D+04, .895536D+03, - + .668046D+03, .499779D+03, .373541D+03, .281488D+03, - + .213112D+03, .162263D+03, .124340D+03, .959855D+02, - + .747582D+02, .587189D+02, .465674D+02, .373101D+02, - + .302023D+02, .247051D+02, .204111D+02, .170316D+02, - + .143381D+02, .121704D+02, .104057D+02, .895421D+01, - + .774692D+01, .673639D+01, .587362D+01, .513993D+01, - + .450302D+01, .395196D+01, .347034D+01, .304739D+01, - + .267438D+01, .234438D+01, .205176D+01, .179187D+01, - + .156094D+01, .135573D+01, .117352D+01, .101194D+01, - + .868968D+00, .742586D+00, .631796D+00, .533948D+00 / - DATA (UPDI(I),I=8529,8580) / - + .448458D+00, .374082D+00, .309719D+00, .254326D+00, - + .206961D+00, .166737D+00, .132864D+00, .104593D+00, - + .811587D-01, .621488D-01, .466924D-01, .343964D-01, - + .247740D-01, .173807D-01, .118255D-01, .775256D-02, - + .486847D-02, .288653D-02, .160054D-02, .810588D-03, - + .363362D-03, .136672D-03, .393544D-04, .736409D-05, - + .638584D-06, .000000D+00, .137425D+07, .103931D+07, - + .772509D+06, .573848D+06, .426040D+06, .316091D+06, - + .234384D+06, .173680D+06, .128625D+06, .951934D+05, - + .704124D+05, .520486D+05, .384544D+05, .283938D+05, - + .209561D+05, .154590D+05, .114004D+05, .840446D+04, - + .619530D+04, .456651D+04, .336681D+04, .248314D+04, - + .183279D+04, .135406D+04, .100188D+04, .742626D+03 / - DATA (UPDI(I),I=8581,8632) / - + .551993D+03, .409830D+03, .306792D+03, .230723D+03, - + .174497D+03, .132825D+03, .101858D+03, .788178D+02, - + .615135D+02, .484821D+02, .386113D+02, .310750D+02, - + .252770D+02, .207708D+02, .172409D+02, .144400D+02, - + .121952D+02, .103751D+02, .888369D+01, .764790D+01, - + .661741D+01, .574103D+01, .499874D+01, .435710D+01, - + .380439D+01, .332358D+01, .290339D+01, .253470D+01, - + .221025D+01, .192412D+01, .167143D+01, .144820D+01, - + .125100D+01, .107695D+01, .923563D+00, .788679D+00, - + .670190D+00, .566978D+00, .476410D+00, .397797D+00, - + .329856D+00, .271455D+00, .221534D+00, .179142D+00, - + .143395D+00, .113508D+00, .887478D-01, .683767D-01, - + .519797D-01, .387544D-01, .283210D-01, .202271D-01 / - DATA (UPDI(I),I=8633,8684) / - + .140648D-01, .947903D-02, .615114D-02, .382054D-02, - + .223797D-02, .122448D-02, .610926D-03, .269239D-03, - + .993092D-04, .279743D-04, .513279D-05, .450679D-06, - + .000000D+00, .171827D+07, .129478D+07, .958272D+06, - + .708764D+06, .523904D+06, .386979D+06, .285662D+06, - + .210717D+06, .155336D+06, .114427D+06, .842389D+05, - + .619708D+05, .455623D+05, .334760D+05, .245831D+05, - + .180421D+05, .132362D+05, .970637D+04, .711653D+04, - + .521682D+04, .382481D+04, .280488D+04, .205826D+04, - + .151165D+04, .111174D+04, .819005D+03, .604977D+03, - + .446300D+03, .331968D+03, .248062D+03, .186410D+03, - + .140990D+03, .107438D+03, .826222D+02, .640923D+02, - + .502178D+02, .397659D+02, .318284D+02, .257522D+02 / - DATA (UPDI(I),I=8685,8736) / - + .210523D+02, .173868D+02, .144906D+02, .121784D+02, - + .103108D+02, .878596D+01, .752709D+01, .648121D+01, - + .559509D+01, .484752D+01, .420401D+01, .365211D+01, - + .317423D+01, .275860D+01, .239576D+01, .207812D+01, - + .179952D+01, .155486D+01, .133996D+01, .115123D+01, - + .985666D+00, .840627D+00, .713873D+00, .603215D+00, - + .507431D+00, .423918D+00, .351897D+00, .290063D+00, - + .237265D+00, .192438D+00, .154633D+00, .122977D+00, - + .967005D-01, .750908D-01, .574443D-01, .433502D-01, - + .320731D-01, .232507D-01, .164660D-01, .113476D-01, - + .757526D-02, .486564D-02, .298892D-02, .172971D-02, - + .933818D-03, .458979D-03, .198865D-03, .719407D-04, - + .198313D-04, .357049D-05, .317389D-06, .000000D+00 / - DATA (UPDI(I),I=8737,8788) / - + .212584D+07, .159621D+07, .117640D+07, .866412D+06, - + .637686D+06, .468980D+06, .344673D+06, .253115D+06, - + .185751D+06, .136207D+06, .998090D+05, .730806D+05, - + .534747D+05, .390997D+05, .285719D+05, .208651D+05, - + .152297D+05, .111107D+05, .810347D+04, .590862D+04, - + .430849D+04, .314211D+04, .229274D+04, .167421D+04, - + .122412D+04, .896440D+03, .658201D+03, .482577D+03, - + .356757D+03, .264951D+03, .197881D+03, .148756D+03, - + .112674D+03, .861399D+02, .664365D+02, .517640D+02, - + .407687D+02, .324607D+02, .261308D+02, .212567D+02, - + .174711D+02, .144918D+02, .121220D+02, .102148D+02, - + .866304D+01, .738641D+01, .632957D+01, .543749D+01, - + .468781D+01, .404516D+01, .349638D+01, .302339D+01 / - DATA (UPDI(I),I=8789,8840) / - + .261397D+01, .225835D+01, .194866D+01, .167850D+01, - + .144257D+01, .123651D+01, .105660D+01, .899707D+00, - + .763096D+00, .644435D+00, .541479D+00, .452918D+00, - + .376194D+00, .310453D+00, .254380D+00, .206817D+00, - + .166707D+00, .133111D+00, .105176D+00, .821532D-01, - + .633580D-01, .481240D-01, .360507D-01, .264677D-01, - + .190331D-01, .133652D-01, .912841D-02, .603577D-02, - + .383717D-02, .233116D-02, .133274D-02, .709923D-03, - + .343739D-03, .146427D-03, .519588D-04, .140215D-04, - + .247888D-05, .223052D-06, .000000D+00, .260334D+07, - + .194799D+07, .142975D+07, .104863D+07, .768557D+06, - + .562827D+06, .411865D+06, .301142D+06, .220020D+06, - + .160616D+06, .117162D+06, .853932D+05, .621932D+05 / - DATA (UPDI(I),I=8841,8892) / - + .452599D+05, .329149D+05, .239196D+05, .173729D+05, - + .126106D+05, .915042D+04, .663735D+04, .481429D+04, - + .349211D+04, .253421D+04, .184026D+04, .133794D+04, - + .974164D+03, .711124D+03, .518289D+03, .380906D+03, - + .281222D+03, .208800D+03, .156053D+03, .117523D+03, - + .893446D+02, .685312D+02, .531132D+02, .416165D+02, - + .329713D+02, .264138D+02, .213859D+02, .174959D+02, - + .144459D+02, .120284D+02, .100894D+02, .851701D+01, - + .722782D+01, .616431D+01, .526987D+01, .452111D+01, - + .388188D+01, .333838D+01, .287208D+01, .247038D+01, - + .212322D+01, .182246D+01, .156150D+01, .133486D+01, - + .113804D+01, .967198D+00, .819084D+00, .690890D+00, - + .580215D+00, .484776D+00, .403190D+00, .332955D+00 / - DATA (UPDI(I),I=8893,8944) / - + .273161D+00, .222490D+00, .179793D+00, .144027D+00, - + .114274D+00, .897069D-01, .696033D-01, .533111D-01, - + .402040D-01, .298965D-01, .217803D-01, .155361D-01, - + .108171D-01, .732183D-02, .479500D-02, .301708D-02, - + .181267D-02, .102374D-02, .538050D-03, .256639D-03, - + .107486D-03, .374175D-04, .988821D-05, .171775D-05, - + .156433D-06, .000000D+00, .643478D+05, .926892D+05, - + .709770D+05, .543567D+05, .416338D+05, .318938D+05, - + .244369D+05, .187275D+05, .143558D+05, .110080D+05, - + .844406D+04, .648011D+04, .497552D+04, .382262D+04, - + .293901D+04, .226159D+04, .174209D+04, .134353D+04, - + .103763D+04, .802704D+03, .622177D+03, .483345D+03, - + .376481D+03, .294136D+03, .230604D+03, .181514D+03 / - DATA (UPDI(I),I=8945,8996) / - + .143517D+03, .113678D+03, .908530D+02, .730541D+02, - + .591289D+02, .481931D+02, .395675D+02, .327489D+02, - + .272992D+02, .229301D+02, .194026D+02, .165331D+02, - + .141797D+02, .122320D+02, .106083D+02, .924023D+01, - + .807816D+01, .708280D+01, .622373D+01, .547726D+01, - + .482709D+01, .425237D+01, .374850D+01, .329995D+01, - + .290370D+01, .255177D+01, .223894D+01, .196079D+01, - + .171353D+01, .149386D+01, .129892D+01, .112618D+01, - + .973368D+00, .838465D+00, .719642D+00, .615241D+00, - + .523758D+00, .444175D+00, .374437D+00, .313940D+00, - + .261660D+00, .216671D+00, .178139D+00, .145306D+00, - + .117491D+00, .940799D-01, .745062D-01, .582612D-01, - + .450245D-01, .341942D-01, .255082D-01, .186384D-01 / - DATA (UPDI(I),I=8997,9048) / - + .132932D-01, .921405D-02, .617224D-02, .396977D-02, - + .241964D-02, .138420D-02, .726770D-03, .339395D-03, - + .133738D-03, .402878D-04, .743385D-05, .413568D-06, - + .000000D+00, .145677D+06, .113087D+06, .866679D+05, - + .664186D+05, .509034D+05, .390125D+05, .299021D+05, - + .229202D+05, .175712D+05, .134720D+05, .103314D+05, - + .792469D+04, .608074D+04, .466750D+04, .358460D+04, - + .275448D+04, .211824D+04, .163034D+04, .125622D+04, - + .969166D+03, .748902D+03, .579740D+03, .449786D+03, - + .349841D+03, .272927D+03, .213651D+03, .167927D+03, - + .132135D+03, .104866D+03, .836865D+02, .671982D+02, - + .543117D+02, .442061D+02, .362625D+02, .299561D+02, - + .249323D+02, .209066D+02, .176548D+02, .150094D+02 / - DATA (UPDI(I),I=9049,9100) / - + .128369D+02, .110411D+02, .954032D+01, .827656D+01, - + .720301D+01, .628451D+01, .549295D+01, .480933D+01, - + .420981D+01, .368849D+01, .322793D+01, .282416D+01, - + .246815D+01, .215395D+01, .187649D+01, .163147D+01, - + .141522D+01, .122450D+01, .105652D+01, .908814D+00, - + .779175D+00, .665632D+00, .566444D+00, .479983D+00, - + .405183D+00, .339978D+00, .283716D+00, .235350D+00, - + .193953D+00, .158683D+00, .128792D+00, .103605D+00, - + .825234D-01, .650009D-01, .505393D-01, .388274D-01, - + .293047D-01, .217169D-01, .157577D-01, .111546D-01, - + .766994D-02, .509273D-02, .324452D-02, .195660D-02, - + .110620D-02, .573026D-03, .263932D-03, .102337D-03, - + .302523D-04, .548348D-05, .309451D-06, .000000D+00 / - DATA (UPDI(I),I=9101,9152) / - + .181444D+06, .140771D+06, .107806D+06, .825477D+05, - + .632053D+05, .483885D+05, .370448D+05, .283574D+05, - + .217080D+05, .166169D+05, .127211D+05, .973885D+04, - + .745723D+04, .571098D+04, .437517D+04, .335288D+04, - + .257091D+04, .197245D+04, .151462D+04, .116416D+04, - + .895961D+03, .690549D+03, .533240D+03, .412638D+03, - + .320160D+03, .249152D+03, .194610D+03, .152093D+03, - + .119853D+03, .949316D+02, .756347D+02, .606346D+02, - + .489418D+02, .398061D+02, .326014D+02, .268999D+02, - + .223641D+02, .187261D+02, .157891D+02, .133951D+02, - + .114319D+02, .980385D+01, .844383D+01, .729745D+01, - + .632443D+01, .549225D+01, .477909D+01, .415825D+01, - + .362240D+01, .315233D+01, .274310D+01, .238469D+01 / - DATA (UPDI(I),I=9153,9204) / - + .207045D+01, .179473D+01, .155276D+01, .134047D+01, - + .115435D+01, .991365D+00, .848844D+00, .724449D+00, - + .616082D+00, .521930D+00, .440272D+00, .369995D+00, - + .309043D+00, .256722D+00, .211971D+00, .173866D+00, - + .141567D+00, .114338D+00, .915147D-01, .725151D-01, - + .568137D-01, .439267D-01, .335523D-01, .251691D-01, - + .185321D-01, .133554D-01, .938541D-02, .640357D-02, - + .421603D-02, .266173D-02, .158906D-02, .888560D-03, - + .454618D-03, .206161D-03, .784750D-04, .227007D-04, - + .402911D-05, .230985D-06, .000000D+00, .228346D+06, - + .176882D+06, .135209D+06, .103328D+06, .789548D+05, - + .603159D+05, .460725D+05, .351847D+05, .268681D+05, - + .205134D+05, .156615D+05, .119557D+05, .912740D+04 / - DATA (UPDI(I),I=9205,9256) / - + .696806D+04, .532063D+04, .406324D+04, .310423D+04, - + .237243D+04, .181436D+04, .138854D+04, .106381D+04, - + .815970D+03, .626892D+03, .482497D+03, .372234D+03, - + .287933D+03, .223483D+03, .173478D+03, .135752D+03, - + .106740D+03, .844004D+02, .671336D+02, .537548D+02, - + .433663D+02, .352270D+02, .288285D+02, .237734D+02, - + .197470D+02, .165200D+02, .139086D+02, .117830D+02, - + .100332D+02, .858225D+01, .736817D+01, .634524D+01, - + .547662D+01, .473752D+01, .409852D+01, .355079D+01, - + .307345D+01, .266060D+01, .230129D+01, .198821D+01, - + .171515D+01, .147690D+01, .126908D+01, .108788D+01, - + .930074D+00, .792814D+00, .673640D+00, .570356D+00, - + .481084D+00, .404034D+00, .338056D+00, .281112D+00 / - DATA (UPDI(I),I=9257,9308) / - + .232474D+00, .191078D+00, .156007D+00, .126428D+00, - + .101620D+00, .809326D-01, .638030D-01, .497260D-01, - + .382353D-01, .290391D-01, .216530D-01, .158424D-01, - + .113409D-01, .791310D-02, .535815D-02, .349871D-02, - + .218939D-02, .129432D-02, .716037D-03, .361974D-03, - + .161955D-03, .607039D-04, .172625D-04, .301935D-05, - + .173783D-06, .000000D+00, .176316D+06, .222769D+06, - + .169841D+06, .129445D+06, .986387D+05, .751385D+05, - + .572269D+05, .435711D+05, .331688D+05, .252426D+05, - + .192084D+05, .146132D+05, .111169D+05, .845580D+04, - + .643221D+04, .489284D+04, .372280D+04, .283311D+04, - + .215713D+04, .164326D+04, .125293D+04, .956212D+03, - + .730789D+03, .559375D+03, .429067D+03, .329899D+03 / - DATA (UPDI(I),I=9309,9360) / - + .254454D+03, .196208D+03, .152493D+03, .119055D+03, - + .934514D+02, .737757D+02, .586213D+02, .469265D+02, - + .378219D+02, .307111D+02, .251307D+02, .207160D+02, - + .172021D+02, .143782D+02, .120958D+02, .102299D+02, - + .869353D+01, .741680D+01, .634845D+01, .544735D+01, - + .468570D+01, .403146D+01, .347427D+01, .299171D+01, - + .257690D+01, .221803D+01, .190715D+01, .163754D+01, - + .140362D+01, .120068D+01, .102467D+01, .872192D+00, - + .740240D+00, .626252D+00, .527955D+00, .443414D+00, - + .370793D+00, .308909D+00, .255754D+00, .210571D+00, - + .172302D+00, .140037D+00, .112960D+00, .903632D-01, - + .716153D-01, .561735D-01, .435529D-01, .333068D-01, - + .251540D-01, .186451D-01, .135567D-01, .964084D-02 / - DATA (UPDI(I),I=9361,9412) / - + .667982D-02, .448937D-02, .290776D-02, .180384D-02, - + .105622D-02, .578220D-03, .288895D-03, .127572D-03, - + .471043D-04, .131753D-04, .227294D-05, .132821D-06, - + .000000D+00, .382348D+06, .294550D+06, .223718D+06, - + .169853D+06, .128921D+06, .978134D+05, .741911D+05, - + .562512D+05, .426382D+05, .323074D+05, .244740D+05, - + .185338D+05, .140330D+05, .106224D+05, .804014D+04, - + .608476D+04, .460533D+04, .348574D+04, .263916D+04, - + .199884D+04, .151489D+04, .114896D+04, .872426D+03, - + .663316D+03, .505246D+03, .385656D+03, .295225D+03, - + .225846D+03, .174107D+03, .134796D+03, .104898D+03, - + .820848D+02, .646391D+02, .512768D+02, .409521D+02, - + .329514D+02, .267217D+02, .218331D+02, .179730D+02 / - DATA (UPDI(I),I=9413,9464) / - + .148963D+02, .124296D+02, .104294D+02, .879564D+01, - + .744887D+01, .633073D+01, .539497D+01, .461004D+01, - + .394086D+01, .337512D+01, .288871D+01, .247352D+01, - + .211680D+01, .180987D+01, .154545D+01, .131751D+01, - + .112101D+01, .951643D+00, .805810D+00, .680368D+00, - + .572647D+00, .480297D+00, .401333D+00, .333883D+00, - + .276734D+00, .227922D+00, .186670D+00, .151929D+00, - + .122809D+00, .985140D-01, .783599D-01, .617396D-01, - + .481358D-01, .370897D-01, .281801D-01, .211393D-01, - + .155584D-01, .112281D-01, .792207D-02, .544302D-02, - + .362546D-02, .232546D-02, .142756D-02, .826239D-03, - + .446555D-03, .219899D-03, .955048D-04, .345805D-04, - + .945071D-05, .159216D-05, .948074D-07, .000000D+00 / - DATA (UPDI(I),I=9465,9516) / - + .503944D+06, .386832D+06, .292583D+06, .221198D+06, - + .167172D+06, .126281D+06, .953584D+05, .719741D+05, - + .543055D+05, .409557D+05, .308777D+05, .232698D+05, - + .175316D+05, .132037D+05, .994231D+04, .748459D+04, - + .563414D+04, .424078D+04, .319254D+04, .240379D+04, - + .181082D+04, .136487D+04, .102972D+04, .777728D+03, - + .588337D+03, .445899D+03, .338849D+03, .257235D+03, - + .196761D+03, .151116D+03, .116632D+03, .905027D+02, - + .706606D+02, .555731D+02, .440001D+02, .350996D+02, - + .282212D+02, .228650D+02, .186680D+02, .153486D+02, - + .127075D+02, .105824D+02, .885964D+01, .745021D+01, - + .628869D+01, .532372D+01, .452009D+01, .383982D+01, - + .326871D+01, .278105D+01, .236758D+01, .201470D+01 / - DATA (UPDI(I),I=9517,9568) / - + .171303D+01, .145480D+01, .123357D+01, .104404D+01, - + .881656D+00, .742673D+00, .623825D+00, .522360D+00, - + .435875D+00, .362349D+00, .299895D+00, .247277D+00, - + .202591D+00, .165041D+00, .133599D+00, .107398D+00, - + .856672D-01, .677483D-01, .530619D-01, .411172D-01, - + .314820D-01, .237617D-01, .177033D-01, .129359D-01, - + .926511D-02, .648503D-02, .441807D-02, .291630D-02, - + .185245D-02, .112534D-02, .643887D-03, .343654D-03, - + .166875D-03, .713504D-04, .253816D-04, .680399D-05, - + .112826D-05, .679097D-07, .000000D+00, .658047D+06, - + .503240D+06, .378976D+06, .285255D+06, .214623D+06, - + .161393D+06, .121315D+06, .911405D+05, .684427D+05, - + .513705D+05, .385413D+05, .289016D+05, .216651D+05 / - DATA (UPDI(I),I=9569,9620) / - + .162332D+05, .121597D+05, .910510D+04, .681673D+04, - + .510241D+04, .381934D+04, .285899D+04, .214086D+04, - + .160373D+04, .120230D+04, .902184D+03, .677927D+03, - + .510260D+03, .385014D+03, .290121D+03, .220253D+03, - + .167860D+03, .128538D+03, .989440D+02, .766239D+02, - + .597715D+02, .469357D+02, .371354D+02, .296160D+02, - + .238038D+02, .192824D+02, .157328D+02, .129289D+02, - + .106892D+02, .888639D+01, .742201D+01, .622359D+01, - + .523486D+01, .441705D+01, .372943D+01, .315599D+01, - + .266955D+01, .225977D+01, .191227D+01, .161704D+01, - + .136589D+01, .115203D+01, .969906D+00, .814791D+00, - + .682803D+00, .570586D+00, .475331D+00, .394601D+00, - + .326355D+00, .268708D+00, .220412D+00, .179628D+00 / - DATA (UPDI(I),I=9621,9672) / - + .145552D+00, .117183D+00, .936797D-01, .743013D-01, - + .584187D-01, .454813D-01, .350262D-01, .266481D-01, - + .199796D-01, .147834D-01, .107244D-01, .762287D-02, - + .529293D-02, .357540D-02, .233879D-02, .147119D-02, - + .884433D-03, .500278D-03, .263684D-03, .126275D-03, - + .531606D-04, .185853D-04, .489000D-05, .799053D-06, - + .490608D-07, .000000D+00, .850309D+06, .647826D+06, - + .485714D+06, .363971D+06, .272616D+06, .204069D+06, - + .152686D+06, .114172D+06, .853317D+05, .637388D+05, - + .475875D+05, .355084D+05, .264837D+05, .197422D+05, - + .147112D+05, .109573D+05, .815910D+04, .607356D+04, - + .452072D+04, .336457D+04, .250463D+04, .186494D+04, - + .138950D+04, .103605D+04, .773455D+03, .578269D+03 / - DATA (UPDI(I),I=9673,9724) / - + .433339D+03, .324208D+03, .244357D+03, .184859D+03, - + .140489D+03, .107317D+03, .824644D+02, .638273D+02, - + .497285D+02, .390389D+02, .308937D+02, .246421D+02, - + .198125D+02, .160475D+02, .130938D+02, .107506D+02, - + .887721D+01, .736579D+01, .613704D+01, .512996D+01, - + .430237D+01, .361100D+01, .303809D+01, .255517D+01, - + .215088D+01, .181014D+01, .152241D+01, .127910D+01, - + .107314D+01, .898773D+00, .751122D+00, .626205D+00, - + .520604D+00, .431471D+00, .356355D+00, .293210D+00, - + .240165D+00, .195974D+00, .158865D+00, .128036D+00, - + .102518D+00, .814994D-01, .642724D-01, .502383D-01, - + .388774D-01, .297550D-01, .224931D-01, .167518D-01, - + .123096D-01, .886496D-02, .625325D-02, .430712D-02 / - DATA (UPDI(I),I=9725,9776) / - + .288479D-02, .186999D-02, .116488D-02, .692996D-03, - + .387531D-03, .201722D-03, .952755D-04, .394979D-04, - + .135743D-04, .350694D-05, .564976D-06, .353858D-07, - + .000000D+00, .108677D+07, .824880D+06, .615747D+06, - + .459367D+06, .342525D+06, .255238D+06, .190093D+06, - + .141482D+06, .105245D+06, .782378D+05, .581296D+05, - + .431616D+05, .320313D+05, .237567D+05, .176116D+05, - + .130489D+05, .966486D+04, .715541D+04, .529652D+04, - + .391973D+04, .290108D+04, .214741D+04, .159032D+04, - + .117847D+04, .874220D+03, .649365D+03, .483390D+03, - + .359165D+03, .268826D+03, .201930D+03, .152356D+03, - + .115531D+03, .881190D+02, .676977D+02, .523505D+02, - + .407924D+02, .320438D+02, .253741D+02, .202556D+02 / - DATA (UPDI(I),I=9777,9828) / - + .162919D+02, .132026D+02, .107679D+02, .883374D+01, - + .728331D+01, .603078D+01, .501063D+01, .417750D+01, - + .348580D+01, .291610D+01, .243882D+01, .204164D+01, - + .170890D+01, .142957D+01, .119475D+01, .997128D+00, - + .830770D+00, .690706D+00, .572878D+00, .473828D+00, - + .390692D+00, .321019D+00, .262775D+00, .214117D+00, - + .173805D+00, .140144D+00, .112338D+00, .894545D-01, - + .707161D-01, .554490D-01, .430867D-01, .331416D-01, - + .252070D-01, .189327D-01, .140056D-01, .102203D-01, - + .730665D-02, .511466D-02, .349455D-02, .232063D-02, - + .149067D-02, .919567D-03, .541362D-03, .299295D-03, - + .153863D-03, .716778D-04, .292648D-04, .988899D-05, - + .250957D-05, .398771D-06, .254754D-07, .000000D+00 / - DATA (UPDI(I),I=9829,9880) / - + .137374D+07, .103886D+07, .772110D+06, .573496D+06, - + .425730D+06, .315817D+06, .234143D+06, .173468D+06, - + .128438D+06, .950293D+05, .702683D+05, .519221D+05, - + .383434D+05, .282965D+05, .208708D+05, .153843D+05, - + .113349D+05, .834719D+04, .614520D+04, .452269D+04, - + .332849D+04, .244962D+04, .180347D+04, .132840D+04, - + .979395D+03, .722913D+03, .534687D+03, .394640D+03, - + .293403D+03, .218892D+03, .164011D+03, .123498D+03, - + .935281D+02, .713437D+02, .547771D+02, .423809D+02, - + .330577D+02, .259957D+02, .206103D+02, .164664D+02, - + .132567D+02, .107428D+02, .875791D+01, .717652D+01, - + .590664D+01, .487856D+01, .404394D+01, .335510D+01, - + .279111D+01, .232138D+01, .193277D+01, .160910D+01 / - DATA (UPDI(I),I=9881,9932) / - + .133895D+01, .111314D+01, .924175D+00, .766005D+00, - + .633582D+00, .522802D+00, .430194D+00, .352894D+00, - + .288472D+00, .234914D+00, .190416D+00, .153755D+00, - + .123315D+00, .983113D-01, .778532D-01, .611984D-01, - + .477097D-01, .368539D-01, .281751D-01, .212955D-01, - + .158915D-01, .116766D-01, .846143D-02, .600497D-02, - + .417126D-02, .282698D-02, .186131D-02, .118478D-02, - + .723763D-03, .421650D-03, .230466D-03, .117014D-03, - + .537699D-04, .216230D-04, .718590D-05, .179192D-05, - + .280964D-06, .183055D-07, .000000D+00, .171773D+07, - + .129430D+07, .957849D+06, .708392D+06, .523576D+06, - + .386690D+06, .285407D+06, .210493D+06, .155139D+06, - + .114254D+06, .840871D+05, .618375D+05, .454455D+05 / - DATA (UPDI(I),I=9933,9984) / - + .333736D+05, .244933D+05, .179634D+05, .131674D+05, - + .964612D+04, .706382D+04, .517071D+04, .378447D+04, - + .276959D+04, .202738D+04, .148461D+04, .108805D+04, - + .798216D+03, .586718D+03, .430264D+03, .317828D+03, - + .235562D+03, .175328D+03, .131133D+03, .986369D+02, - + .747304D+02, .569869D+02, .437923D+02, .339293D+02, - + .265044D+02, .208765D+02, .165722D+02, .132579D+02, - + .106775D+02, .865189D+01, .704748D+01, .576652D+01, - + .473541D+01, .390313D+01, .322014D+01, .266412D+01, - + .220369D+01, .182493D+01, .151125D+01, .125090D+01, - + .103451D+01, .854444D+00, .704556D+00, .579761D+00, - + .475939D+00, .389625D+00, .317974D+00, .258589D+00, - + .209489D+00, .168918D+00, .135677D+00, .108232D+00 / - DATA (UPDI(I),I=9985,10036) / - + .858167D-01, .675819D-01, .528238D-01, .409427D-01, - + .314388D-01, .238886D-01, .179421D-01, .133022D-01, - + .970791D-02, .698567D-02, .492124D-02, .339218D-02, - + .228038D-02, .148860D-02, .938925D-03, .567993D-03, - + .327454D-03, .176950D-03, .887342D-04, .402224D-04, - + .159333D-04, .520864D-05, .127673D-05, .197615D-06, - + .131282D-07, .000000D+00, .212526D+07, .159570D+07, - + .117596D+07, .866019D+06, .637340D+06, .468675D+06, - + .344404D+06, .252879D+06, .185543D+06, .136025D+06, - + .996491D+05, .729403D+05, .533517D+05, .389919D+05, - + .284775D+05, .207823D+05, .151573D+05, .110473D+05, - + .804801D+04, .586011D+04, .426604D+04, .310496D+04, - + .226023D+04, .164573D+04, .119916D+04, .874531D+03 / - DATA (UPDI(I),I=10037,10088) / - + .638951D+03, .465665D+03, .341840D+03, .251763D+03, - + .186189D+03, .138359D+03, .103396D+03, .778279D+02, - + .589626D+02, .450175D+02, .346546D+02, .268995D+02, - + .210552D+02, .166112D+02, .132086D+02, .105744D+02, - + .851809D+01, .689841D+01, .561238D+01, .458289D+01, - + .375651D+01, .308211D+01, .253612D+01, .208651D+01, - + .171870D+01, .141578D+01, .116575D+01, .959085D+00, - + .788054D+00, .646469D+00, .529233D+00, .432233D+00, - + .352031D+00, .285818D+00, .231239D+00, .186359D+00, - + .149479D+00, .119429D+00, .947575D-01, .747216D-01, - + .585167D-01, .454784D-01, .350445D-01, .267493D-01, - + .202008D-01, .150765D-01, .111048D-01, .804922D-02, - + .575148D-02, .402195D-02, .275093D-02, .183431D-02 / - DATA (UPDI(I),I=10089,10140) / - + .118715D-02, .741977D-03, .444481D-03, .253577D-03, - + .135475D-03, .670999D-04, .300056D-04, .117098D-04, - + .376626D-05, .907751D-06, .138756D-06, .939719D-08, - + .000000D+00, .260274D+07, .194746D+07, .142928D+07, - + .104822D+07, .768192D+06, .562505D+06, .411582D+06, - + .300893D+06, .219802D+06, .160424D+06, .116994D+06, - + .852455D+05, .620637D+05, .451464D+05, .328155D+05, - + .238326D+05, .172967D+05, .125439D+05, .909209D+04, - + .658632D+04, .476964D+04, .345304D+04, .250000D+04, - + .181028D+04, .131166D+04, .951093D+03, .690848D+03, - + .500473D+03, .365191D+03, .267329D+03, .196487D+03, - + .145108D+03, .107765D+03, .806117D+02, .606913D+02, - + .460506D+02, .352321D+02, .271817D+02, .211485D+02 / - DATA (UPDI(I),I=10141,10192) / - + .165861D+02, .131117D+02, .104364D+02, .835903D+01, - + .673154D+01, .544615D+01, .442265D+01, .360546D+01, - + .294212D+01, .240800D+01, .197054D+01, .161462D+01, - + .132309D+01, .108377D+01, .887022D+00, .725088D+00, - + .591761D+00, .481964D+00, .391610D+00, .317309D+00, - + .256301D+00, .206287D+00, .165385D+00, .131957D+00, - + .104870D+00, .827566D-01, .648999D-01, .505411D-01, - + .390557D-01, .299198D-01, .227010D-01, .170381D-01, - + .126355D-01, .924604D-02, .665620D-02, .472267D-02, - + .327812D-02, .222484D-02, .147146D-02, .944150D-03, - + .584720D-03, .346863D-03, .195823D-03, .103435D-03, - + .506017D-04, .223241D-04, .858381D-05, .271691D-05, - + .644093D-06, .972686D-07, .671403D-08, .000000D+00 / -C----------------------------------------------------------------------- -C - Dr = DrI - Fl = FlI - Al = AlI - DO I=1,6 - Amass(I) = AmassI(I) - ENDDO - Iorder = Nint(Dr) - Nfl = Nint(Fl) - Alambda = Al -C - NX = NxI - NT = NTI - NfMx = NfMxI -C - QINI = QINII - QMAX = QMAXI - DO I=0,NT - QL(I) = QLI(I) - ENDDO -C - XMIN = XMINI - DO I=0,NX - XV(I) = XVI(I) - ENDDO -C - Do 11 Iq = 0, NT - QL(Iq) = Log (QL(Iq) /Al) - 11 Continue -C -C Since quark = anti-quark for nfl>2 at this stage, -C we Read out only the non-redundent data points -C No of flavors = NfMx (sea) + 1 (gluon) + 2 (valence) - - Nblk = (NX+1) * (NT+1) - Npts = Nblk * (NfMx+3) - DO I=1,Npts - UPD(I) = UPDI(I) - ENDDO -C - Return -C **************************** - End diff --git a/PDF/spdf/ctq4RL.F b/PDF/spdf/ctq4RL.F deleted file mode 100644 index 0f75b40cc2f..00000000000 --- a/PDF/spdf/ctq4RL.F +++ /dev/null @@ -1,2838 +0,0 @@ -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 diff --git a/PDF/spdf/ctq4RM.F b/PDF/spdf/ctq4RM.F deleted file mode 100644 index cfb9a0ce774..00000000000 --- a/PDF/spdf/ctq4RM.F +++ /dev/null @@ -1,2838 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" - Subroutine Ctq4RM (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 : CTEQ4M -C PARAMETER (ISET=1) - DATA DrI, FlI, AlI / 2., 5., .2020 / - 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, .203369D+01, .265779D+01, .358285D+01, .500000D+01, - + .794903D+01, .135129D+02, .248012D+02, .496935D+02, .110086D+03, - + .273574D+03, .775412D+03, .255482D+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) / - + .249593D+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, .109939D+06, - + .836226D+05, .625689D+05, .467779D+05, .349512D+05, - + .260904D+05, .194631D+05, .145049D+05, .108020D+05, - + .803585D+04, .597336D+04, .443516D+04, .329024D+04 / - DATA (UPDI(I),I=469,520) / - + .243788D+04, .180463D+04, .133410D+04, .985250D+03, - + .726573D+03, .535215D+03, .393644D+03, .289177D+03, - + .212084D+03, .155341D+03, .113582D+03, .829290D+02, - + .604451D+02, .440089D+02, .318351D+02, .231044D+02, - + .167372D+02, .121125D+02, .875186D+01, .631872D+01, - + .456147D+01, .329051D+01, .237314D+01, .171355D+01, - + .123816D+01, .896766D+00, .650669D+00, .474010D+00, - + .346336D+00, .254176D+00, .187248D+00, .138667D+00, - + .103095D+00, .771410D-01, .578085D-01, .436300D-01, - + .329573D-01, .250181D-01, .190244D-01, .145080D-01, - + .110719D-01, .846326D-02, .646360D-02, .493553D-02, - + .376024D-02, .286145D-02, .216882D-02, .163912D-02, - + .123183D-02, .921052D-03, .684718D-03, .504192D-03 / - DATA (UPDI(I),I=521,572) / - + .367096D-03, .264259D-03, .187276D-03, .130483D-03, - + .887238D-04, .586261D-04, .370796D-04, .220463D-04, - + .117496D-04, .506466D-05, .811806D-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, .247210D+06, .187576D+06, - + .139949D+06, .104327D+06, .777218D+05, .578463D+05, - + .430226D+05, .319652D+05, .237313D+05, .175991D+05, - + .130404D+05, .965129D+04, .713635D+04, .527011D+04, - + .388799D+04, .286443D+04, .210802D+04, .154907D+04, - + .113697D+04, .833168D+03, .609765D+03, .445508D+03, - + .325043D+03, .236725D+03, .172141D+03, .124951D+03 / - DATA (UPDI(I),I=573,624) / - + .905881D+02, .652433D+02, .471404D+02, .339960D+02, - + .244880D+02, .176103D+02, .126522D+02, .908851D+01, - + .652248D+01, .467958D+01, .336069D+01, .241510D+01, - + .173933D+01, .125484D+01, .908775D+00, .660066D+00, - + .481470D+00, .352525D+00, .259420D+00, .191655D+00, - + .142478D+00, .106082D+00, .795305D-01, .596769D-01, - + .449940D-01, .339845D-01, .257386D-01, .195087D-01, - + .148087D-01, .112322D-01, .851783D-02, .644597D-02, - + .487246D-02, .366952D-02, .275629D-02, .205978D-02, - + .153242D-02, .113454D-02, .833083D-03, .606073D-03, - + .437140D-03, .311657D-03, .219714D-03, .152515D-03, - + .104275D-03, .697946D-04, .456149D-04, .288886D-04, - + .177421D-04, .103064D-04, .558852D-05, .268532D-05 / - DATA (UPDI(I),I=625,676) / - + .101834D-05, .125810D-06, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .416737D+06, .315408D+06, .234623D+06, - + .174381D+06, .129515D+06, .960990D+05, .712499D+05, - + .527715D+05, .390527D+05, .288682D+05, .213203D+05, - + .157270D+05, .115896D+05, .852968D+04, .627086D+04, - + .460379D+04, .337595D+04, .247183D+04, .180754D+04, - + .131962D+04, .962094D+03, .700208D+03, .508850D+03, - + .369101D+03, .267301D+03, .193211D+03, .139473D+03, - + .100007D+03, .719343D+02, .516411D+02, .370236D+02, - + .264985D+02, .189445D+02, .135408D+02, .966761D+01, - + .689984D+01, .492839D+01, .352237D+01, .252247D+01 / - DATA (UPDI(I),I=677,728) / - + .180950D+01, .130280D+01, .940670D+00, .681994D+00, - + .496314D+00, .362955D+00, .266468D+00, .196831D+00, - + .145615D+00, .108454D+00, .808487D-01, .605509D-01, - + .454330D-01, .341775D-01, .257318D-01, .193991D-01, - + .146145D-01, .110071D-01, .827376D-02, .621151D-02, - + .464698D-02, .346739D-02, .257471D-02, .190363D-02, - + .140114D-02, .102326D-02, .741006D-03, .532531D-03, - + .378886D-03, .267093D-03, .185975D-03, .128080D-03, - + .869160D-04, .581256D-04, .382265D-04, .248840D-04, - + .158757D-04, .100071D-04, .622256D-05, .385341D-05, - + .237643D-05, .148422D-05, .935417D-06, .599450D-06, - + .383387D-06, .240728D-06, .142060D-06, .750588D-07, - + .322562D-07, .888025D-08, .610333D-09, .000000D+00 / - DATA (UPDI(I),I=729,780) / - + .624038D+06, .471069D+06, .349334D+06, .258834D+06, - + .191634D+06, .141740D+06, .104751D+06, .773329D+05, - + .570405D+05, .420250D+05, .309323D+05, .227398D+05, - + .166995D+05, .122475D+05, .897208D+04, .656326D+04, - + .479521D+04, .349802D+04, .254831D+04, .185334D+04, - + .134596D+04, .975722D+03, .706218D+03, .510175D+03, - + .367928D+03, .264814D+03, .190330D+03, .135863D+03, - + .972831D+02, .695189D+02, .496055D+02, .353337D+02, - + .251364D+02, .178768D+02, .126974D+02, .901476D+01, - + .640423D+01, .455218D+01, .324163D+01, .231221D+01, - + .165503D+01, .118798D+01, .856116D+00, .619270D+00, - + .450077D+00, .328382D+00, .241034D+00, .177191D+00, - + .131120D+00, .971157D-01, .722575D-01, .538646D-01 / - DATA (UPDI(I),I=781,832) / - + .402520D-01, .301059D-01, .225445D-01, .168713D-01, - + .126215D-01, .942451D-02, .702795D-02, .522324D-02, - + .387165D-02, .285651D-02, .209863D-02, .153527D-02, - + .111466D-02, .802949D-03, .574368D-03, .407181D-03, - + .286359D-03, .199318D-03, .137560D-03, .938977D-04, - + .634809D-04, .425095D-04, .284140D-04, .188431D-04, - + .125154D-04, .833286D-05, .560070D-05, .379065D-05, - + .259384D-05, .177320D-05, .120087D-05, .790189D-06, - + .494775D-06, .284508D-06, .143356D-06, .577387D-07, - + .148429D-07, .106063D-08, .000000D+00, .874987D+06, - + .658730D+06, .486950D+06, .359648D+06, .265414D+06, - + .195673D+06, .144132D+06, .106052D+06, .779596D+05, - + .572420D+05, .419873D+05, .307593D+05, .225090D+05 / - DATA (UPDI(I),I=833,884) / - + .164493D+05, .120065D+05, .875084D+04, .636968D+04, - + .462909D+04, .335938D+04, .243376D+04, .176050D+04, - + .127114D+04, .916288D+03, .659197D+03, .473398D+03, - + .339262D+03, .242768D+03, .172513D+03, .122964D+03, - + .874653D+02, .621153D+02, .440317D+02, .311692D+02, - + .220564D+02, .155850D+02, .110070D+02, .777739D+01, - + .549813D+01, .389334D+01, .276138D+01, .196510D+01, - + .140231D+01, .100454D+01, .722285D+00, .521737D+00, - + .378329D+00, .275966D+00, .201604D+00, .148235D+00, - + .109095D+00, .806473D-01, .597342D-01, .443479D-01, - + .329548D-01, .245156D-01, .182268D-01, .135459D-01, - + .100491D-01, .744442D-02, .549710D-02, .404827D-02, - + .296805D-02, .216697D-02, .157572D-02, .113737D-02 / - DATA (UPDI(I),I=885,936) / - + .814958D-03, .580164D-03, .409681D-03, .287282D-03, - + .199707D-03, .137920D-03, .944752D-04, .643304D-04, - + .435965D-04, .296378D-04, .201196D-04, .137546D-04, - + .947151D-05, .659148D-05, .461301D-05, .324114D-05, - + .225669D-05, .153906D-05, .101037D-05, .624998D-06, - + .352353D-06, .172625D-06, .669864D-07, .165319D-07, - + .120648D-08, .000000D+00, .117573D+07, .882720D+06, - + .650416D+06, .478815D+06, .352192D+06, .258786D+06, - + .189979D+06, .139312D+06, .102058D+06, .746767D+05, - + .545834D+05, .398455D+05, .290533D+05, .211548D+05, - + .153843D+05, .111711D+05, .810065D+04, .586462D+04, - + .423952D+04, .305936D+04, .220421D+04, .158509D+04, - + .113790D+04, .815219D+03, .582961D+03, .415972D+03 / - DATA (UPDI(I),I=937,988) / - + .296347D+03, .209632D+03, .148739D+03, .105310D+03, - + .744331D+02, .525094D+02, .369867D+02, .260421D+02, - + .183065D+02, .128615D+02, .903899D+01, .635532D+01, - + .447531D+01, .315632D+01, .223325D+01, .158442D+01, - + .112830D+01, .806451D+00, .579011D+00, .417310D+00, - + .302528D+00, .219645D+00, .160488D+00, .117372D+00, - + .862159D-01, .634565D-01, .468106D-01, .345637D-01, - + .255468D-01, .188720D-01, .139352D-01, .102721D-01, - + .756085D-02, .554792D-02, .405993D-02, .295837D-02, - + .214678D-02, .155192D-02, .111387D-02, .794007D-03, - + .562623D-03, .395782D-03, .276744D-03, .192122D-03, - + .132730D-03, .911770D-04, .624478D-04, .427229D-04, - + .294192D-04, .203087D-04, .141530D-04, .994743D-05 / - DATA (UPDI(I),I=989,1040) / - + .705482D-05, .501646D-05, .355987D-05, .248922D-05, - + .169307D-05, .110240D-05, .672432D-06, .371987D-06, - + .177777D-06, .668169D-07, .159294D-07, .118309D-08, - + .000000D+00, .153257D+07, .114744D+07, .842686D+06, - + .618306D+06, .453272D+06, .331935D+06, .242848D+06, - + .177469D+06, .129558D+06, .944663D+05, .688027D+05, - + .500454D+05, .363579D+05, .263766D+05, .191104D+05, - + .138246D+05, .998668D+04, .720222D+04, .518613D+04, - + .372767D+04, .267494D+04, .191578D+04, .136961D+04, - + .977114D+03, .695756D+03, .494299D+03, .350592D+03, - + .246878D+03, .174366D+03, .122883D+03, .864414D+02, - + .606875D+02, .425365D+02, .298002D+02, .208409D+02, - + .145658D+02, .101822D+02, .712047D+01, .498645D+01 / - DATA (UPDI(I),I=1041,1092) / - + .349721D+01, .246035D+01, .173551D+01, .122867D+01, - + .873027D+00, .623065D+00, .446363D+00, .321628D+00, - + .232089D+00, .168533D+00, .122494D+00, .894181D-01, - + .654056D-01, .479460D-01, .351811D-01, .258390D-01, - + .189685D-01, .139183D-01, .101959D-01, .745784D-02, - + .543877D-02, .395568D-02, .286529D-02, .206704D-02, - + .148588D-02, .106071D-02, .752415D-03, .530825D-03, - + .372099D-03, .259518D-03, .179964D-03, .124395D-03, - + .856862D-04, .590024D-04, .406991D-04, .283250D-04, - + .198098D-04, .139979D-04, .997256D-05, .715158D-05, - + .512532D-05, .364763D-05, .254680D-05, .172094D-05, - + .110881D-05, .666386D-06, .361797D-06, .168858D-06, - + .616008D-07, .142289D-07, .107404D-08, .000000D+00 / - DATA (UPDI(I),I=1093,1144) / - + .195183D+07, .145726D+07, .106666D+07, .780026D+06, - + .569893D+06, .415917D+06, .303242D+06, .220835D+06, - + .160650D+06, .116722D+06, .847076D+05, .613916D+05, - + .444376D+05, .321191D+05, .231839D+05, .167081D+05, - + .120234D+05, .863753D+04, .619523D+04, .443533D+04, - + .316992D+04, .226102D+04, .160974D+04, .114361D+04, - + .810833D+03, .573549D+03, .405005D+03, .283899D+03, - + .199599D+03, .140015D+03, .980278D+02, .684920D+02, - + .477713D+02, .333013D+02, .231706D+02, .161104D+02, - + .112023D+02, .779187D+01, .542679D+01, .378499D+01, - + .264780D+01, .185711D+01, .130715D+01, .923396D+00, - + .655124D+00, .466546D+00, .334161D+00, .239682D+00, - + .172990D+00, .124969D+00, .906660D-01, .659146D-01 / - DATA (UPDI(I),I=1145,1196) / - + .480220D-01, .350212D-01, .255626D-01, .186507D-01, - + .136011D-01, .990316D-02, .719961D-02, .521914D-02, - + .377344D-02, .271761D-02, .194945D-02, .139382D-02, - + .989908D-03, .698974D-03, .491142D-03, .343199D-03, - + .238845D-03, .165509D-03, .114500D-03, .791005D-04, - + .547512D-04, .380498D-04, .267238D-04, .188866D-04, - + .134838D-04, .969429D-05, .699655D-05, .503030D-05, - + .357642D-05, .248571D-05, .166533D-05, .106043D-05, - + .627631D-06, .334436D-06, .152513D-06, .540707D-07, - + .121250D-07, .929498D-09, .000000D+00, .243973D+07, - + .181643D+07, .132510D+07, .965760D+06, .703190D+06, - + .511441D+06, .371596D+06, .269669D+06, .195483D+06, - + .141525D+06, .102338D+06, .738999D+05, .532951D+05 / - DATA (UPDI(I),I=1197,1248) / - + .383784D+05, .275979D+05, .198138D+05, .142036D+05, - + .101642D+05, .726156D+04, .517809D+04, .368584D+04, - + .261829D+04, .185638D+04, .131329D+04, .927177D+03, - + .652998D+03, .459075D+03, .320344D+03, .224200D+03, - + .156549D+03, .109088D+03, .758563D+02, .526497D+02, - + .365211D+02, .252823D+02, .174884D+02, .120967D+02, - + .836933D+01, .579742D+01, .402136D+01, .279747D+01, - + .195104D+01, .136543D+01, .959022D+00, .676439D+00, - + .478905D+00, .340993D+00, .243132D+00, .174432D+00, - + .125257D+00, .903284D-01, .652763D-01, .472703D-01, - + .342661D-01, .248604D-01, .180297D-01, .130695D-01, - + .945982D-02, .683664D-02, .492733D-02, .354205D-02, - + .253687D-02, .180997D-02, .128749D-02, .909998D-03 / - DATA (UPDI(I),I=1249,1300) / - + .639822D-03, .447945D-03, .312159D-03, .216873D-03, - + .150240D-03, .104065D-03, .721179D-04, .501737D-04, - + .351087D-04, .248537D-04, .177141D-04, .127434D-04, - + .921663D-05, .667286D-05, .479834D-05, .339971D-05, - + .234764D-05, .155748D-05, .979393D-06, .570686D-06, - + .298448D-06, .133028D-06, .458742D-07, .100024D-07, - + .778361D-09, .000000D+00, .675837D+05, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=1301,1352) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=1353,1404) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .355046D+05, .274229D+05, .208889D+05, - + .159024D+05, .121030D+05, .920528D+04, .699917D+04, - + .531795D+04, .403913D+04, .306543D+04, .232552D+04, - + .176269D+04, .133546D+04, .101084D+04, .764730D+03, - + .577943D+03, .436530D+03, .329342D+03, .248314D+03, - + .186990D+03, .140715D+03, .105752D+03, .794158D+02, - + .595545D+02, .446222D+02, .333897D+02, .249717D+02, - + .185703D+02, .138590D+02, .103278D+02, .769432D+01, - + .572560D+01, .426075D+01, .317121D+01, .236078D+01, - + .175764D+01, .131130D+01, .979249D+00, .733652D+00 / - DATA (UPDI(I),I=1405,1456) / - + .550743D+00, .415435D+00, .314329D+00, .239070D+00, - + .182515D+00, .140174D+00, .108065D+00, .838869D-01, - + .652148D-01, .510813D-01, .400398D-01, .315501D-01, - + .248937D-01, .197059D-01, .156053D-01, .123829D-01, - + .981361D-02, .777825D-02, .614951D-02, .485851D-02, - + .382261D-02, .300074D-02, .234291D-02, .182162D-02, - + .140943D-02, .108188D-02, .822459D-03, .619790D-03, - + .461502D-03, .339700D-03, .245969D-03, .175210D-03, - + .121858D-03, .826371D-04, .537596D-04, .335625D-04, - + .193111D-04, .977642D-05, .362099D-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 / - DATA (UPDI(I),I=1457,1508) / - + .804558D+05, .619957D+05, .470952D+05, .357542D+05, - + .271350D+05, .205795D+05, .156018D+05, .118193D+05, - + .894995D+04, .677174D+04, .512118D+04, .386952D+04, - + .292221D+04, .220469D+04, .166236D+04, .125211D+04, - + .942484D+03, .708602D+03, .532366D+03, .399460D+03, - + .299501D+03, .224254D+03, .167767D+03, .125329D+03, - + .935362D+02, .697131D+02, .519243D+02, .384526D+02, - + .285748D+02, .212031D+02, .157263D+02, .116502D+02, - + .862927D+01, .639272D+01, .473574D+01, .350860D+01, - + .260418D+01, .193478D+01, .144175D+01, .107651D+01, - + .807486D+00, .607554D+00, .459400D+00, .348700D+00, - + .266193D+00, .203996D+00, .157376D+00, .121602D+00, - + .946452D-01, .737253D-01, .577207D-01, .452577D-01 / - DATA (UPDI(I),I=1509,1560) / - + .355956D-01, .280112D-01, .220836D-01, .173918D-01, - + .136975D-01, .107634D-01, .845166D-02, .661109D-02, - + .516037D-02, .400793D-02, .310111D-02, .238910D-02, - + .182743D-02, .138604D-02, .104370D-02, .778263D-03, - + .575315D-03, .420121D-03, .303514D-03, .216020D-03, - + .151626D-03, .104230D-03, .707563D-04, .467492D-04, - + .302117D-04, .189162D-04, .114813D-04, .666793D-05, - + .370116D-05, .192348D-05, .923940D-06, .391329D-06, - + .138122D-06, .314258D-07, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .136434D+06, - + .104879D+06, .794510D+05, .601498D+05, .455195D+05, - + .344231D+05, .260202D+05, .196534D+05, .148371D+05, - + .111918D+05, .843749D+04, .635526D+04, .478398D+04 / - DATA (UPDI(I),I=1561,1612) / - + .359764D+04, .270367D+04, .202965D+04, .152254D+04, - + .114078D+04, .854049D+03, .638568D+03, .477039D+03, - + .355883D+03, .265242D+03, .197399D+03, .146754D+03, - + .108948D+03, .808213D+02, .596058D+02, .441086D+02, - + .325917D+02, .240677D+02, .177513D+02, .130883D+02, - + .965166D+01, .711580D+01, .524662D+01, .387470D+01, - + .286428D+01, .212325D+01, .157709D+01, .117655D+01, - + .880440D+00, .662002D+00, .499679D+00, .379241D+00, - + .288962D+00, .221605D+00, .170231D+00, .131692D+00, - + .101972D+00, .793463D-01, .618406D-01, .483386D-01, - + .378089D-01, .296228D-01, .231872D-01, .181491D-01, - + .141757D-01, .110628D-01, .860222D-02, .667439D-02, - + .515397D-02, .396510D-02, .303788D-02, .231127D-02 / - DATA (UPDI(I),I=1613,1664) / - + .174452D-02, .130787D-02, .971724D-03, .716330D-03, - + .522382D-03, .377487D-03, .269451D-03, .190249D-03, - + .132254D-03, .912964D-04, .619175D-04, .415641D-04, - + .274953D-04, .180326D-04, .116706D-04, .751869D-05, - + .478573D-05, .301747D-05, .186022D-05, .111142D-05, - + .622205D-06, .314362D-06, .132052D-06, .368176D-07, - + .246566D-08, .000000D+00, .207680D+06, .157419D+06, - + .118917D+06, .897727D+05, .677409D+05, .510783D+05, - + .384952D+05, .289889D+05, .218182D+05, .164071D+05, - + .123306D+05, .925827D+04, .694682D+04, .520719D+04, - + .390032D+04, .291822D+04, .218166D+04, .162903D+04, - + .121531D+04, .905474D+03, .673992D+03, .500986D+03, - + .372000D+03, .275812D+03, .204262D+03, .151051D+03 / - DATA (UPDI(I),I=1665,1716) / - + .111608D+03, .819745D+02, .604104D+02, .444508D+02, - + .326837D+02, .240013D+02, .176169D+02, .129325D+02, - + .948981D+01, .696393D+01, .511770D+01, .376451D+01, - + .277633D+01, .205163D+01, .152247D+01, .113327D+01, - + .847446D+00, .636175D+00, .480128D+00, .363792D+00, - + .277397D+00, .211881D+00, .162955D+00, .125450D+00, - + .970384D-01, .751902D-01, .584241D-01, .454297D-01, - + .353800D-01, .275302D-01, .214196D-01, .166320D-01, - + .129021D-01, .997396D-02, .769300D-02, .590642D-02, - + .451782D-02, .344178D-02, .260388D-02, .195498D-02, - + .145821D-02, .107842D-02, .791634D-03, .575331D-03, - + .414672D-03, .295640D-03, .208810D-03, .145600D-03, - + .101059D-03, .692060D-04, .471180D-04, .317997D-04 / - DATA (UPDI(I),I=1717,1768) / - + .213996D-04, .143033D-04, .955747D-05, .632831D-05, - + .414410D-05, .264382D-05, .162060D-05, .922579D-06, - + .468371D-06, .194901D-06, .530683D-07, .364493D-08, - + .000000D+00, .310689D+06, .237539D+06, .178816D+06, - + .134521D+06, .101145D+06, .759931D+05, .570629D+05, - + .428138D+05, .321025D+05, .240502D+05, .180051D+05, - + .134668D+05, .100648D+05, .751447D+04, .560574D+04, - + .417718D+04, .310985D+04, .231242D+04, .171776D+04, - + .127434D+04, .944380D+03, .698866D+03, .516577D+03, - + .381260D+03, .281035D+03, .206841D+03, .152087D+03, - + .111152D+03, .814996D+02, .596655D+02, .436409D+02, - + .318792D+02, .232715D+02, .169902D+02, .123964D+02, - + .904501D+01, .660760D+01, .483167D+01, .354141D+01 / - DATA (UPDI(I),I=1769,1820) / - + .260096D+01, .191783D+01, .141852D+01, .105381D+01, - + .785963D+00, .589197D+00, .443473D+00, .335852D+00, - + .254803D+00, .194606D+00, .148791D+00, .114286D+00, - + .879458D-01, .678520D-01, .523938D-01, .405107D-01, - + .313004D-01, .241766D-01, .186389D-01, .143517D-01, - + .110134D-01, .842975D-02, .642265D-02, .487305D-02, - + .368168D-02, .276051D-02, .205325D-02, .151586D-02, - + .110861D-02, .803510D-03, .575623D-03, .407876D-03, - + .284963D-03, .196328D-03, .132790D-03, .887254D-04, - + .579025D-04, .370776D-04, .231609D-04, .141468D-04, - + .839402D-05, .486476D-05, .273485D-05, .150111D-05, - + .798268D-06, .414424D-06, .205137D-06, .953817D-07, - + .384474D-07, .106951D-07, .673350D-09, .000000D+00 / - DATA (UPDI(I),I=1821,1872) / - + .443527D+06, .338065D+06, .253584D+06, .190084D+06, - + .142403D+06, .106599D+06, .797470D+05, .596092D+05, - + .445259D+05, .332294D+05, .247801D+05, .184614D+05, - + .137425D+05, .102191D+05, .759218D+04, .563409D+04, - + .417691D+04, .309274D+04, .228752D+04, .168967D+04, - + .124663D+04, .918426D+03, .675780D+03, .496469D+03, - + .364244D+03, .266808D+03, .195228D+03, .141971D+03, - + .103574D+03, .754427D+02, .548932D+02, .398882D+02, - + .289605D+02, .210286D+02, .152565D+02, .110687D+02, - + .803867D+01, .584357D+01, .425715D+01, .310765D+01, - + .227712D+01, .167373D+01, .123542D+01, .915523D+00, - + .681815D+00, .509827D+00, .383528D+00, .289041D+00, - + .219254D+00, .166505D+00, .127012D+00, .970765D-01 / - DATA (UPDI(I),I=1873,1924) / - + .743778D-01, .570396D-01, .437940D-01, .336035D-01, - + .257737D-01, .197330D-01, .150872D-01, .114978D-01, - + .873878D-02, .661237D-02, .498212D-02, .373834D-02, - + .278372D-02, .205685D-02, .150870D-02, .109671D-02, - + .790339D-03, .563390D-03, .397548D-03, .276989D-03, - + .190609D-03, .129172D-03, .867589D-04, .572310D-04, - + .372929D-04, .239473D-04, .152213D-04, .955683D-05, - + .596751D-05, .369051D-05, .226231D-05, .135936D-05, - + .791366D-06, .431337D-06, .211205D-06, .846838D-07, - + .221247D-07, .152744D-08, .000000D+00, .608710D+06, - + .462541D+06, .345702D+06, .258193D+06, .192715D+06, - + .143726D+06, .107118D+06, .797645D+05, .593522D+05, - + .441225D+05, .327743D+05, .243203D+05, .180311D+05 / - DATA (UPDI(I),I=1925,1976) / - + .133538D+05, .988029D+04, .730165D+04, .539037D+04, - + .397426D+04, .292684D+04, .215247D+04, .158105D+04, - + .115958D+04, .849335D+03, .621098D+03, .453544D+03, - + .330637D+03, .240760D+03, .174211D+03, .126458D+03, - + .916446D+02, .663361D+02, .479504D+02, .346267D+02, - + .250065D+02, .180411D+02, .130152D+02, .939748D+01, - + .679145D+01, .491808D+01, .356851D+01, .259869D+01, - + .189827D+01, .139231D+01, .102526D+01, .758609D+00, - + .563589D+00, .421195D+00, .315350D+00, .237617D+00, - + .179252D+00, .135815D+00, .103113D+00, .784672D-01, - + .597709D-01, .455770D-01, .347348D-01, .264590D-01, - + .201207D-01, .152779D-01, .115644D-01, .872923D-02, - + .656076D-02, .490973D-02, .365939D-02, .270669D-02 / - DATA (UPDI(I),I=1977,2028) / - + .198705D-02, .144835D-02, .104662D-02, .750051D-03, - + .532082D-03, .373922D-03, .259799D-03, .178553D-03, - + .121173D-03, .817276D-04, .543800D-04, .359222D-04, - + .235433D-04, .153794D-04, .100016D-04, .650427D-05, - + .420495D-05, .268922D-05, .167799D-05, .100368D-05, - + .555986D-06, .272629D-06, .107849D-06, .274820D-07, - + .194659D-08, .000000D+00, .811749D+06, .614910D+06, - + .457907D+06, .340739D+06, .253383D+06, .188264D+06, - + .139779D+06, .103688D+06, .768551D+05, .569111D+05, - + .421065D+05, .311207D+05, .229798D+05, .169493D+05, - + .124887D+05, .919082D+04, .675633D+04, .496009D+04, - + .363704D+04, .266306D+04, .194740D+04, .142185D+04, - + .103668D+04, .754600D+03, .548446D+03, .397914D+03 / - DATA (UPDI(I),I=2029,2080) / - + .288344D+03, .207603D+03, .149944D+03, .108116D+03, - + .778542D+02, .559816D+02, .402100D+02, .288816D+02, - + .207212D+02, .148648D+02, .106713D+02, .766730D+01, - + .551944D+01, .398095D+01, .288138D+01, .209187D+01, - + .152473D+01, .111576D+01, .820319D+00, .605552D+00, - + .449640D+00, .334473D+00, .250376D+00, .187642D+00, - + .141233D+00, .106523D+00, .805237D-01, .609320D-01, - + .461510D-01, .349385D-01, .264361D-01, .199698D-01, - + .150617D-01, .113252D-01, .849165D-02, .634033D-02, - + .471347D-02, .349024D-02, .256485D-02, .187118D-02, - + .135564D-02, .974074D-03, .694369D-03, .490325D-03, - + .343267D-03, .237890D-03, .163329D-03, .110994D-03, - + .751509D-04, .503823D-04, .336616D-04, .224169D-04 / - DATA (UPDI(I),I=2081,2132) / - + .149366D-04, .994246D-05, .662238D-05, .438062D-05, - + .285311D-05, .180299D-05, .108352D-05, .598600D-06, - + .290090D-06, .112301D-06, .278329D-07, .200850D-08, - + .000000D+00, .105852D+07, .799343D+06, .593066D+06, - + .439684D+06, .325740D+06, .241114D+06, .178337D+06, - + .131782D+06, .972988D+05, .717670D+05, .528873D+05, - + .389322D+05, .286313D+05, .210313D+05, .154323D+05, - + .113095D+05, .827860D+04, .605164D+04, .441817D+04, - + .322083D+04, .234480D+04, .170431D+04, .123695D+04, - + .896217D+03, .648321D+03, .468133D+03, .337585D+03, - + .241848D+03, .173808D+03, .124691D+03, .893276D+02, - + .638970D+02, .456511D+02, .326135D+02, .232697D+02, - + .165999D+02, .118490D+02, .846454D+01, .605761D+01 / - DATA (UPDI(I),I=2133,2184) / - + .434326D+01, .312469D+01, .225475D+01, .163334D+01, - + .118785D+01, .867843D+00, .636603D+00, .469698D+00, - + .347169D+00, .258206D+00, .192263D+00, .143773D+00, - + .107739D+00, .809119D-01, .608281D-01, .457698D-01, - + .344240D-01, .258761D-01, .194198D-01, .145508D-01, - + .108702D-01, .809748D-02, .600733D-02, .443726D-02, - + .326497D-02, .238428D-02, .172900D-02, .124539D-02, - + .890039D-03, .631319D-03, .443920D-03, .309722D-03, - + .214180D-03, .146964D-03, .100036D-03, .679959D-04, - + .459063D-04, .309779D-04, .209015D-04, .141381D-04, - + .956495D-05, .646613D-05, .433035D-05, .284148D-05, - + .180012D-05, .107775D-05, .589834D-06, .281200D-06, - + .106237D-06, .255855D-07, .187745D-08, .000000D+00 / - DATA (UPDI(I),I=2185,2236) / - + .135515D+07, .102017D+07, .754119D+06, .557015D+06, - + .411121D+06, .303165D+06, .223377D+06, .164429D+06, - + .120931D+06, .888476D+05, .652145D+05, .478142D+05, - + .350207D+05, .256194D+05, .187210D+05, .136623D+05, - + .995845D+04, .724845D+04, .526900D+04, .382425D+04, - + .277173D+04, .200557D+04, .144898D+04, .104500D+04, - + .752413D+03, .540710D+03, .388041D+03, .276620D+03, - + .197811D+03, .141198D+03, .100636D+03, .716128D+02, - + .508932D+02, .361642D+02, .256622D+02, .182053D+02, - + .129216D+02, .917813D+01, .653017D+01, .465467D+01, - + .332879D+01, .238762D+01, .171907D+01, .124257D+01, - + .902209D+00, .657703D+00, .482234D+00, .354196D+00, - + .261764D+00, .193676D+00, .143906D+00, .107154D+00 / - DATA (UPDI(I),I=2237,2288) / - + .799580D-01, .597274D-01, .446522D-01, .333687D-01, - + .249219D-01, .185846D-01, .138358D-01, .102707D-01, - + .760240D-02, .560489D-02, .411422D-02, .300877D-02, - + .218395D-02, .157461D-02, .112795D-02, .802025D-03, - + .566281D-03, .396669D-03, .275941D-03, .190502D-03, - + .130708D-03, .891494D-04, .608427D-04, .413527D-04, - + .281547D-04, .192051D-04, .131424D-04, .899332D-05, - + .613511D-05, .413375D-05, .271663D-05, .171620D-05, - + .101941D-05, .550893D-06, .257820D-06, .949593D-07, - + .222270D-07, .165705D-08, .000000D+00, .170796D+07, - + .128177D+07, .944022D+06, .694705D+06, .510830D+06, - + .375272D+06, .275453D+06, .201983D+06, .147973D+06, - + .108290D+06, .791700D+05, .578140D+05, .421735D+05 / - DATA (UPDI(I),I=2289,2340) / - + .307260D+05, .223598D+05, .162497D+05, .117944D+05, - + .854812D+04, .618689D+04, .447085D+04, .322603D+04, - + .232385D+04, .167131D+04, .119981D+04, .859857D+03, - + .614996D+03, .439236D+03, .311573D+03, .221708D+03, - + .157467D+03, .111661D+03, .790493D+02, .558836D+02, - + .394999D+02, .278773D+02, .196683D+02, .138820D+02, - + .980468D+01, .693592D+01, .491525D+01, .349448D+01, - + .249161D+01, .178318D+01, .128114D+01, .924539D+00, - + .669853D+00, .488121D+00, .356300D+00, .261678D+00, - + .192404D+00, .142065D+00, .105124D+00, .779497D-01, - + .578623D-01, .429849D-01, .319213D-01, .236913D-01, - + .175568D-01, .129888D-01, .958239D-02, .704914D-02, - + .516550D-02, .376879D-02, .273988D-02, .197728D-02 / - DATA (UPDI(I),I=2341,2392) / - + .141777D-02, .101033D-02, .714994D-03, .502717D-03, - + .350955D-03, .243544D-03, .167944D-03, .115283D-03, - + .788174D-04, .540198D-04, .369509D-04, .253589D-04, - + .174557D-04, .120518D-04, .831158D-05, .569878D-05, - + .384730D-05, .252289D-05, .158429D-05, .931376D-06, - + .496091D-06, .227650D-06, .817130D-07, .186008D-07, - + .140812D-08, .000000D+00, .212326D+07, .158854D+07, - + .116567D+07, .854656D+06, .626106D+06, .458231D+06, - + .335069D+06, .244758D+06, .178617D+06, .130205D+06, - + .948161D+05, .689639D+05, .501043D+05, .363556D+05, - + .263477D+05, .190683D+05, .137820D+05, .994624D+04, - + .716787D+04, .515723D+04, .370493D+04, .265694D+04, - + .190225D+04, .135936D+04, .969701D+03, .690296D+03 / - DATA (UPDI(I),I=2393,2444) / - + .490668D+03, .346355D+03, .245254D+03, .173328D+03, - + .122289D+03, .861320D+02, .605745D+02, .425908D+02, - + .298977D+02, .209793D+02, .147255D+02, .103424D+02, - + .727482D+01, .512590D+01, .362308D+01, .256818D+01, - + .182711D+01, .130489D+01, .936020D+00, .674076D+00, - + .488222D+00, .354199D+00, .258541D+00, .188930D+00, - + .138641D+00, .101961D+00, .751379D-01, .554319D-01, - + .409247D-01, .302046D-01, .222794D-01, .164098D-01, - + .120661D-01, .884801D-02, .646982D-02, .471308D-02, - + .341860D-02, .247116D-02, .177348D-02, .126500D-02, - + .897064D-03, .632063D-03, .442729D-03, .308174D-03, - + .213441D-03, .147096D-03, .101069D-03, .692882D-04, - + .476953D-04, .328224D-04, .226844D-04, .157307D-04 / - DATA (UPDI(I),I=2445,2496) / - + .109325D-04, .757710D-05, .520593D-05, .351123D-05, - + .229173D-05, .142755D-05, .829314D-06, .434884D-06, - + .195544D-06, .683987D-07, .151541D-07, .116448D-08, - + .000000D+00, .260727D+07, .194470D+07, .142183D+07, - + .103865D+07, .758083D+06, .552751D+06, .402660D+06, - + .293012D+06, .213009D+06, .154673D+06, .112193D+06, - + .812796D+05, .588156D+05, .425042D+05, .306778D+05, - + .221104D+05, .159140D+05, .114365D+05, .820663D+04, - + .587914D+04, .420510D+04, .300231D+04, .213991D+04, - + .152227D+04, .108093D+04, .765884D+03, .541827D+03, - + .380616D+03, .268209D+03, .188622D+03, .132416D+03, - + .927940D+02, .649245D+02, .454124D+02, .317095D+02, - + .221312D+02, .154493D+02, .107909D+02, .754786D+01 / - DATA (UPDI(I),I=2497,2548) / - + .528824D+01, .371641D+01, .261913D+01, .185248D+01, - + .131525D+01, .937865D+00, .671386D+00, .483374D+00, - + .348574D+00, .252902D+00, .183693D+00, .133982D+00, - + .979405D-01, .717382D-01, .526042D-01, .386016D-01, - + .283185D-01, .207626D-01, .152013D-01, .111109D-01, - + .809965D-02, .588803D-02, .426475D-02, .307593D-02, - + .221130D-02, .157859D-02, .112043D-02, .790920D-03, - + .555041D-03, .387471D-03, .269046D-03, .186071D-03, - + .128219D-03, .882216D-04, .606618D-04, .419387D-04, - + .290226D-04, .201801D-04, .140762D-04, .982742D-05, - + .682919D-05, .469092D-05, .315403D-05, .204527D-05, - + .126193D-05, .723669D-06, .373318D-06, .164413D-06, - + .560506D-07, .120971D-07, .943303D-09, .000000D+00 / - DATA (UPDI(I),I=2549,2600) / - + .562964D+05, .335803D+05, .261493D+05, .203628D+05, - + .158569D+05, .123482D+05, .961594D+04, .748835D+04, - + .583160D+04, .454148D+04, .353685D+04, .275454D+04, - + .214535D+04, .167096D+04, .130153D+04, .101385D+04, - + .789825D+03, .615361D+03, .479493D+03, .373681D+03, - + .291272D+03, .227089D+03, .177098D+03, .138158D+03, - + .107825D+03, .841930D+02, .657803D+02, .512528D+02, - + .401130D+02, .314271D+02, .246526D+02, .193667D+02, - + .152402D+02, .120253D+02, .950491D+01, .753311D+01, - + .598825D+01, .477565D+01, .382166D+01, .306870D+01, - + .247328D+01, .199983D+01, .162193D+01, .131888D+01, - + .107471D+01, .877066D+00, .716926D+00, .585384D+00, - + .478300D+00, .389830D+00, .317347D+00, .257673D+00 / - DATA (UPDI(I),I=2601,2652) / - + .208549D+00, .168142D+00, .134963D+00, .107787D+00, - + .856021D-01, .675644D-01, .529688D-01, .412229D-01, - + .318278D-01, .243637D-01, .184774D-01, .138917D-01, - + .103133D-01, .756704D-02, .548145D-02, .391574D-02, - + .275502D-02, .190635D-02, .129518D-02, .862356D-03, - + .561301D-03, .356045D-03, .220449D-03, .131831D-03, - + .760670D-04, .421219D-04, .222368D-04, .110985D-04, - + .518115D-05, .223406D-05, .867731D-06, .297969D-06, - + .866440D-07, .200793D-07, .334989D-08, .332462D-09, - + .127895D-10, .484556D-13, .000000D+00, .776833D+05, - + .606271D+05, .467450D+05, .360370D+05, .277821D+05, - + .214150D+05, .165072D+05, .127223D+05, .980520D+04, - + .755588D+04, .582257D+04, .448622D+04, .345661D+04 / - DATA (UPDI(I),I=2653,2704) / - + .266293D+04, .205153D+04, .158030D+04, .121737D+04, - + .937685D+03, .722312D+03, .556370D+03, .428613D+03, - + .330193D+03, .254429D+03, .196070D+03, .151148D+03, - + .116552D+03, .899313D+02, .691696D+02, .534467D+02, - + .413310D+02, .320022D+02, .248104D+02, .192683D+02, - + .150030D+02, .117033D+02, .915335D+01, .718210D+01, - + .565373D+01, .446737D+01, .354250D+01, .282093D+01, - + .225419D+01, .180773D+01, .145401D+01, .117269D+01, - + .947603D+00, .767480D+00, .621103D+00, .503363D+00, - + .407056D+00, .328985D+00, .265299D+00, .213372D+00, - + .171016D+00, .136531D+00, .108489D+00, .857627D-01, - + .674021D-01, .526425D-01, .408275D-01, .314295D-01, - + .239975D-01, .181614D-01, .136323D-01, .101095D-01 / - DATA (UPDI(I),I=2705,2756) / - + .741199D-02, .536800D-02, .383546D-02, .270066D-02, - + .187070D-02, .127282D-02, .848466D-03, .552821D-03, - + .350198D-03, .215964D-03, .127689D-03, .718873D-04, - + .377761D-04, .178194D-04, .680936D-05, .120238D-05, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .122180D+06, .948420D+05, - + .726725D+05, .556718D+05, .426449D+05, .326575D+05, - + .250071D+05, .191436D+05, .146537D+05, .112136D+05, - + .858034D+04, .656353D+04, .502031D+04, .383881D+04, - + .293513D+04, .224352D+04, .171476D+04, .131025D+04, - + .100112D+04, .764734D+03, .584175D+03, .446163D+03, - + .340785D+03, .260271D+03, .198816D+03, .151886D+03 / - DATA (UPDI(I),I=2757,2808) / - + .116095D+03, .884228D+02, .676563D+02, .517971D+02, - + .397009D+02, .304621D+02, .234113D+02, .180368D+02, - + .139206D+02, .107708D+02, .836087D+01, .651100D+01, - + .509017D+01, .399377D+01, .314750D+01, .248965D+01, - + .197692D+01, .157488D+01, .125854D+01, .100796D+01, - + .809519D+00, .649796D+00, .522621D+00, .419536D+00, - + .336742D+00, .269777D+00, .215641D+00, .171829D+00, - + .136434D+00, .107854D+00, .848515D-01, .663847D-01, - + .516332D-01, .398903D-01, .306019D-01, .232929D-01, - + .175804D-01, .131665D-01, .974701D-02, .713718D-02, - + .516615D-02, .369213D-02, .260332D-02, .180808D-02, - + .123588D-02, .829679D-03, .546391D-03, .351596D-03, - + .222005D-03, .136031D-03, .810261D-04, .466607D-04 / - DATA (UPDI(I),I=2809,2860) / - + .259091D-04, .137583D-04, .695526D-05, .330249D-05, - + .144922D-05, .568141D-06, .188393D-06, .428181D-07, - + .486234D-09, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .177723D+06, .137382D+06, .104761D+06, - + .798591D+05, .608669D+05, .463747D+05, .353270D+05, - + .269010D+05, .204810D+05, .155871D+05, .118603D+05, - + .902091D+04, .685996D+04, .521450D+04, .396296D+04, - + .301053D+04, .228658D+04, .173599D+04, .131776D+04, - + .999887D+03, .758608D+03, .575350D+03, .436336D+03, - + .330821D+03, .250830D+03, .190163D+03, .144228D+03, - + .108965D+03, .826980D+02, .627872D+02, .477175D+02, - + .362966D+02, .276499D+02, .211120D+02, .161462D+02, - + .123780D+02, .951964D+01, .734434D+01, .568830D+01 / - DATA (UPDI(I),I=2861,2912) / - + .442166D+01, .345284D+01, .270649D+01, .213008D+01, - + .168221D+01, .133305D+01, .105895D+01, .843857D+00, - + .672233D+00, .536797D+00, .427931D+00, .341222D+00, - + .271644D+00, .215835D+00, .171001D+00, .135042D+00, - + .106202D+00, .831419D-01, .647440D-01, .501367D-01, - + .385735D-01, .294779D-01, .223571D-01, .168187D-01, - + .125588D-01, .927286D-02, .677470D-02, .489517D-02, - + .349428D-02, .246275D-02, .171123D-02, .117170D-02, - + .789247D-03, .522718D-03, .339340D-03, .217141D-03, - + .135729D-03, .832922D-04, .501206D-04, .297115D-04, - + .173661D-04, .101107D-04, .587469D-05, .342828D-05, - + .199712D-05, .114991D-05, .630829D-06, .315749D-06, - + .132185D-06, .368227D-07, .246568D-08, .000000D+00 / - DATA (UPDI(I),I=2913,2964) / - + .196869D+06, .189590D+06, .143968D+06, .109281D+06, - + .829315D+05, .629077D+05, .477067D+05, .361623D+05, - + .274042D+05, .207573D+05, .157182D+05, .118965D+05, - + .900140D+04, .680735D+04, .514657D+04, .388891D+04, - + .293773D+04, .221800D+04, .167413D+04, .126296D+04, - + .952548D+03, .718082D+03, .541223D+03, .407755D+03, - + .307165D+03, .231331D+03, .174268D+03, .130737D+03, - + .985183D+02, .742558D+02, .560147D+02, .422847D+02, - + .319617D+02, .242119D+02, .183681D+02, .139664D+02, - + .106526D+02, .814994D+01, .625947D+01, .482492D+01, - + .373643D+01, .290464D+01, .226747D+01, .177644D+01, - + .139679D+01, .110117D+01, .871094D+00, .688983D+00, - + .546426D+00, .432726D+00, .342861D+00, .271286D+00 / - DATA (UPDI(I),I=2965,3016) / - + .214292D+00, .168827D+00, .132609D+00, .103750D+00, - + .808207D-01, .626381D-01, .482865D-01, .369894D-01, - + .281515D-01, .212684D-01, .159411D-01, .118630D-01, - + .873137D-02, .636074D-02, .458452D-02, .326569D-02, - + .229812D-02, .159546D-02, .109250D-02, .736815D-03, - + .489406D-03, .319352D-03, .206012D-03, .130379D-03, - + .814745D-04, .503013D-04, .308809D-04, .188923D-04, - + .116289D-04, .719119D-05, .446657D-05, .275024D-05, - + .165020D-05, .929138D-06, .469413D-06, .195000D-06, - + .530720D-07, .364495D-08, .000000D+00, .351056D+06, - + .269315D+06, .203560D+06, .153789D+06, .116149D+06, - + .876772D+05, .661612D+05, .498990D+05, .376198D+05, - + .283467D+05, .213509D+05, .160724D+05, .120939D+05 / - DATA (UPDI(I),I=3017,3068) / - + .909476D+04, .683646D+04, .513573D+04, .385643D+04, - + .289396D+04, .217075D+04, .162725D+04, .121934D+04, - + .913127D+03, .683563D+03, .511431D+03, .382531D+03, - + .285999D+03, .213850D+03, .159196D+03, .119027D+03, - + .889987D+02, .665861D+02, .498453D+02, .373534D+02, - + .280501D+02, .210900D+02, .158911D+02, .120090D+02, - + .910246D+01, .692552D+01, .528827D+01, .405684D+01, - + .312439D+01, .241649D+01, .187603D+01, .146194D+01, - + .114251D+01, .896150D+00, .702944D+00, .553061D+00, - + .434589D+00, .341763D+00, .268469D+00, .210589D+00, - + .164797D+00, .128603D+00, .999856D-01, .774148D-01, - + .596467D-01, .457188D-01, .348297D-01, .263658D-01, - + .198160D-01, .147764D-01, .109413D-01, .801260D-02 / - DATA (UPDI(I),I=3069,3120) / - + .580778D-02, .416446D-02, .295069D-02, .206461D-02, - + .142436D-02, .968287D-03, .647389D-03, .425343D-03, - + .273646D-03, .173222D-03, .106800D-03, .643352D-04, - + .377263D-04, .215505D-04, .119473D-04, .645416D-05, - + .339075D-05, .174374D-05, .877495D-06, .436208D-06, - + .209909D-06, .961308D-07, .385180D-07, .106977D-07, - + .673363D-09, .000000D+00, .483401D+06, .369454D+06, - + .278026D+06, .209118D+06, .157224D+06, .118140D+06, - + .887340D+05, .666076D+05, .499755D+05, .374731D+05, - + .280848D+05, .210349D+05, .157466D+05, .117798D+05, - + .880759D+04, .658067D+04, .491411D+04, .366693D+04, - + .273476D+04, .203805D+04, .151803D+04, .112988D+04, - + .840546D+03, .624881D+03, .464340D+03, .344849D+03 / - DATA (UPDI(I),I=3121,3172) / - + .256096D+03, .189297D+03, .140521D+03, .104303D+03, - + .774517D+02, .575357D+02, .427781D+02, .318676D+02, - + .237644D+02, .177576D+02, .133060D+02, .999940D+01, - + .754216D+01, .570916D+01, .434160D+01, .331471D+01, - + .254155D+01, .195631D+01, .151167D+01, .117162D+01, - + .911564D+00, .709368D+00, .553823D+00, .431916D+00, - + .337181D+00, .262994D+00, .204872D+00, .159252D+00, - + .123467D+00, .953856D-01, .733983D-01, .562142D-01, - + .428367D-01, .324496D-01, .244289D-01, .182625D-01, - + .135472D-01, .998082D-02, .727348D-02, .524740D-02, - + .374593D-02, .264318D-02, .184248D-02, .126701D-02, - + .859117D-03, .573506D-03, .376706D-03, .242822D-03, - + .154441D-03, .961010D-04, .587893D-04, .353394D-04 / - DATA (UPDI(I),I=3173,3224) / - + .209616D-04, .122866D-04, .717661D-05, .418434D-05, - + .244295D-05, .141765D-05, .807188D-06, .434757D-06, - + .211734D-06, .847331D-07, .221266D-07, .152745D-08, - + .000000D+00, .648098D+06, .493547D+06, .369846D+06, - + .276994D+06, .207355D+06, .155126D+06, .115995D+06, - + .866772D+05, .647351D+05, .483142D+05, .360383D+05, - + .268621D+05, .200104D+05, .148951D+05, .110806D+05, - + .823639D+04, .611830D+04, .454119D+04, .336837D+04, - + .249637D+04, .184891D+04, .136825D+04, .101189D+04, - + .747760D+03, .552247D+03, .407564D+03, .300733D+03, - + .220818D+03, .162822D+03, .120031D+03, .885060D+02, - + .652775D+02, .481784D+02, .356232D+02, .263621D+02, - + .195458D+02, .145301D+02, .108319D+02, .810390D+01 / - DATA (UPDI(I),I=3225,3276) / - + .608440D+01, .458904D+01, .347497D+01, .264266D+01, - + .201768D+01, .154660D+01, .118921D+01, .918084D+00, - + .708983D+00, .549399D+00, .425331D+00, .329671D+00, - + .255350D+00, .197566D+00, .152556D+00, .117509D+00, - + .902095D-01, .689862D-01, .525167D-01, .397826D-01, - + .299626D-01, .224294D-01, .166758D-01, .123035D-01, - + .901712D-02, .653749D-02, .469315D-02, .333444D-02, - + .234239D-02, .162613D-02, .111423D-02, .753318D-03, - + .501901D-03, .329464D-03, .212679D-03, .135826D-03, - + .852123D-04, .528382D-04, .324336D-04, .198201D-04, - + .120940D-04, .742189D-05, .457587D-05, .282337D-05, - + .172076D-05, .101514D-05, .558430D-06, .273002D-06, - + .107883D-06, .274832D-07, .194660D-08, .000000D+00 / - DATA (UPDI(I),I=3277,3328) / - + .850658D+06, .645539D+06, .481757D+06, .359311D+06, - + .267844D+06, .199525D+06, .148548D+06, .110516D+06, - + .821720D+05, .610513D+05, .453304D+05, .336311D+05, - + .249346D+05, .184715D+05, .136741D+05, .101138D+05, - + .747509D+04, .551982D+04, .407291D+04, .300250D+04, - + .221175D+04, .162774D+04, .119705D+04, .879517D+03, - + .645759D+03, .473728D+03, .347423D+03, .253490D+03, - + .185724D+03, .136026D+03, .996333D+02, .729862D+02, - + .534939D+02, .392744D+02, .288539D+02, .212361D+02, - + .156685D+02, .115921D+02, .860602D+01, .641142D+01, - + .479806D+01, .360494D+01, .272014D+01, .206076D+01, - + .156748D+01, .119610D+01, .916496D+00, .702520D+00, - + .540447D+00, .415416D+00, .319737D+00, .245965D+00 / - DATA (UPDI(I),I=3329,3380) / - + .189030D+00, .145009D+00, .110977D+00, .846586D-01, - + .643412D-01, .486844D-01, .366602D-01, .274503D-01, - + .204314D-01, .151055D-01, .110837D-01, .807955D-02, - + .582691D-02, .416178D-02, .294249D-02, .205757D-02, - + .142235D-02, .970970D-03, .654464D-03, .435143D-03, - + .285443D-03, .184511D-03, .118297D-03, .747847D-04, - + .469432D-04, .293391D-04, .183639D-04, .115425D-04, - + .731717D-05, .465855D-05, .295250D-05, .183430D-05, - + .109180D-05, .600343D-06, .290353D-06, .112325D-06, - + .278337D-07, .200851D-08, .000000D+00, .109695D+07, - + .829599D+06, .616625D+06, .458030D+06, .340025D+06, - + .252238D+06, .186998D+06, .138526D+06, .102550D+06, - + .758564D+05, .560714D+05, .414116D+05, .305619D+05 / - DATA (UPDI(I),I=3381,3432) / - + .225346D+05, .166028D+05, .122210D+05, .898827D+04, - + .660422D+04, .484843D+04, .355585D+04, .260567D+04, - + .190744D+04, .139513D+04, .101939D+04, .744244D+03, - + .542833D+03, .395768D+03, .287014D+03, .209002D+03, - + .152122D+03, .110714D+03, .805768D+02, .586652D+02, - + .427807D+02, .312129D+02, .228111D+02, .167103D+02, - + .122734D+02, .904497D+01, .668863D+01, .496823D+01, - + .370493D+01, .277468D+01, .208644D+01, .157524D+01, - + .119320D+01, .907643D+00, .690732D+00, .527627D+00, - + .402734D+00, .307854D+00, .235235D+00, .179590D+00, - + .136874D+00, .104084D+00, .789029D-01, .595975D-01, - + .448225D-01, .335511D-01, .249756D-01, .184826D-01, - + .135878D-01, .991460D-02, .718810D-02, .515637D-02 / - DATA (UPDI(I),I=3433,3484) / - + .366391D-02, .257770D-02, .179413D-02, .123494D-02, - + .839907D-03, .564425D-03, .374541D-03, .245558D-03, - + .158969D-03, .102329D-03, .651753D-04, .413818D-04, - + .262786D-04, .167771D-04, .107855D-04, .699093D-05, - + .453810D-05, .291494D-05, .182299D-05, .108373D-05, - + .591074D-06, .281384D-06, .106254D-06, .255861D-07, - + .187746D-08, .000000D+00, .139312D+07, .105005D+07, - + .777392D+06, .575137D+06, .425232D+06, .314153D+06, - + .231932D+06, .171090D+06, .126118D+06, .928867D+05, - + .683594D+05, .502630D+05, .369273D+05, .271039D+05, - + .198768D+05, .145622D+05, .106591D+05, .779394D+04, - + .569368D+04, .415488D+04, .302913D+04, .220595D+04, - + .160497D+04, .116643D+04, .846946D+03, .614294D+03 / - DATA (UPDI(I),I=3485,3536) / - + .445326D+03, .321060D+03, .232416D+03, .168147D+03, - + .121626D+03, .879654D+02, .636354D+02, .461042D+02, - + .334144D+02, .242554D+02, .176463D+02, .128708D+02, - + .941846D+01, .691534D+01, .509983D+01, .377572D+01, - + .280731D+01, .209580D+01, .157096D+01, .118147D+01, - + .892397D+00, .674372D+00, .511580D+00, .387820D+00, - + .294463D+00, .223517D+00, .169533D+00, .128383D+00, - + .970095D-01, .730832D-01, .548637D-01, .410139D-01, - + .305178D-01, .225849D-01, .166172D-01, .121475D-01, - + .881426D-02, .635554D-02, .453478D-02, .320563D-02, - + .224418D-02, .155480D-02, .106572D-02, .722198D-03, - + .483948D-03, .320581D-03, .210132D-03, .136283D-03, - + .880996D-04, .565326D-04, .362852D-04, .233720D-04 / - DATA (UPDI(I),I=3537,3588) / - + .151695D-04, .992218D-05, .653054D-05, .428865D-05, - + .277079D-05, .173286D-05, .102370D-05, .551773D-06, - + .257949D-06, .949708D-07, .222275D-07, .165706D-08, - + .000000D+00, .174546D+07, .131130D+07, .967011D+06, - + .712606D+06, .524769D+06, .386126D+06, .283904D+06, - + .208563D+06, .153097D+06, .112279D+06, .822760D+05, - + .602324D+05, .440564D+05, .321920D+05, .235011D+05, - + .171382D+05, .124860D+05, .908656D+04, .660603D+04, - + .479710D+04, .347997D+04, .252149D+04, .182512D+04, - + .131950D+04, .952998D+03, .687462D+03, .495619D+03, - + .355285D+03, .255720D+03, .183931D+03, .132252D+03, - + .950721D+02, .683518D+02, .492109D+02, .354375D+02, - + .255565D+02, .184699D+02, .133812D+02, .972539D+01 / - DATA (UPDI(I),I=3589,3640) / - + .709174D+01, .519374D+01, .381853D+01, .281934D+01, - + .209011D+01, .155580D+01, .116196D+01, .871639D+00, - + .654182D+00, .492918D+00, .371173D+00, .279966D+00, - + .211133D+00, .159112D+00, .119729D+00, .899051D-01, - + .673139D-01, .502257D-01, .373220D-01, .276064D-01, - + .203115D-01, .148588D-01, .108009D-01, .779359D-02, - + .558908D-02, .396670D-02, .278973D-02, .194354D-02, - + .134044D-02, .915051D-03, .617977D-03, .413039D-03, - + .273223D-03, .179121D-03, .116428D-03, .756090D-04, - + .488815D-04, .316977D-04, .206769D-04, .136050D-04, - + .901670D-05, .599599D-05, .396252D-05, .256272D-05, - + .159640D-05, .934458D-06, .496714D-06, .227740D-06, - + .817209D-07, .186011D-07, .140812D-08, .000000D+00 / - DATA (UPDI(I),I=3641,3692) / - + .216031D+07, .161770D+07, .118838D+07, .872338D+06, - + .639874D+06, .468951D+06, .343416D+06, .251257D+06, - + .183677D+06, .134145D+06, .978836D+05, .713521D+05, - + .519636D+05, .378031D+05, .274745D+05, .199455D+05, - + .144647D+05, .104777D+05, .758148D+04, .547912D+04, - + .395541D+04, .285184D+04, .205389D+04, .147732D+04, - + .106145D+04, .761641D+03, .546146D+03, .389335D+03, - + .278669D+03, .199304D+03, .142478D+03, .101823D+03, - + .727667D+02, .520713D+02, .372647D+02, .267050D+02, - + .191762D+02, .138028D+02, .996586D+01, .721885D+01, - + .525142D+01, .383493D+01, .281229D+01, .207078D+01, - + .153097D+01, .113570D+01, .846239D+00, .630874D+00, - + .472218D+00, .353253D+00, .264723D+00, .198362D+00 / - DATA (UPDI(I),I=3693,3744) / - + .148542D+00, .111077D+00, .828928D-01, .616854D-01, - + .457488D-01, .337934D-01, .248496D-01, .181775D-01, - + .132219D-01, .955723D-02, .685813D-02, .489176D-02, - + .345356D-02, .241664D-02, .167561D-02, .115060D-02, - + .782418D-03, .526727D-03, .351252D-03, .232114D-03, - + .152263D-03, .992317D-04, .647561D-04, .421774D-04, - + .276146D-04, .182151D-04, .121198D-04, .811107D-05, - + .542877D-05, .359671D-05, .232095D-05, .143633D-05, - + .831520D-06, .435324D-06, .195607D-06, .684042D-07, - + .151543D-07, .116448D-08, .000000D+00, .264386D+07, - + .197351D+07, .144426D+07, .105612D+07, .771682D+06, - + .563340D+06, .410905D+06, .299431D+06, .218007D+06, - + .158564D+06, .115222D+06, .836379D+05, .606515D+05 / - DATA (UPDI(I),I=3745,3796) / - + .439333D+05, .317902D+05, .229763D+05, .165879D+05, - + .119609D+05, .861474D+04, .619668D+04, .445214D+04, - + .319447D+04, .228936D+04, .163849D+04, .117128D+04, - + .836104D+03, .596396D+03, .422860D+03, .301024D+03, - + .214105D+03, .152200D+03, .108150D+03, .768388D+02, - + .546611D+02, .388825D+02, .276940D+02, .197628D+02, - + .141355D+02, .101410D+02, .729843D+01, .527479D+01, - + .382679D+01, .278786D+01, .203927D+01, .149773D+01, - + .110372D+01, .817035D+00, .605118D+00, .450009D+00, - + .334470D+00, .249053D+00, .185445D+00, .138004D+00, - + .102560D+00, .760695D-01, .562664D-01, .414810D-01, - + .304606D-01, .222685D-01, .161961D-01, .117141D-01, - + .842041D-02, .600935D-02, .426358D-02, .299452D-02 / - DATA (UPDI(I),I=3797,3848) / - + .208511D-02, .143908D-02, .984037D-03, .666716D-03, - + .447542D-03, .297877D-03, .196724D-03, .129185D-03, - + .844475D-04, .553903D-04, .363412D-04, .240059D-04, - + .159877D-04, .107329D-04, .723259D-05, .485760D-05, - + .321730D-05, .206666D-05, .126827D-05, .725245D-06, - + .373628D-06, .164457D-06, .560543D-07, .120972D-07, - + .943304D-09, .000000D+00, .449221D+05, .671864D+05, - + .523200D+05, .407435D+05, .317288D+05, .247090D+05, - + .192426D+05, .149858D+05, .116710D+05, .908961D+04, - + .707944D+04, .551405D+04, .429501D+04, .334567D+04, - + .260636D+04, .203059D+04, .158219D+04, .123296D+04, - + .960964D+03, .749114D+03, .584101D+03, .455564D+03, - + .355432D+03, .277423D+03, .216641D+03, .169278D+03 / - DATA (UPDI(I),I=3849,3900) / - + .132364D+03, .103231D+03, .808839D+02, .634534D+02, - + .498529D+02, .392364D+02, .309446D+02, .244812D+02, - + .194114D+02, .154426D+02, .123310D+02, .988661D+01, - + .796162D+01, .644028D+01, .523514D+01, .427454D+01, - + .350526D+01, .288560D+01, .238339D+01, .197382D+01, - + .163886D+01, .136063D+01, .113114D+01, .938695D+00, - + .778385D+00, .644003D+00, .531224D+00, .436564D+00, - + .357186D+00, .290756D+00, .235328D+00, .189259D+00, - + .151151D+00, .119803D+00, .941792D-01, .733801D-01, - + .566274D-01, .433028D-01, .326918D-01, .243838D-01, - + .179499D-01, .130266D-01, .930796D-02, .653894D-02, - + .450896D-02, .304609D-02, .201113D-02, .129366D-02, - + .811952D-03, .492117D-03, .287712D-03, .161387D-03 / - DATA (UPDI(I),I=3901,3952) / - + .862826D-04, .436014D-04, .206038D-04, .899074D-05, - + .353340D-05, .122737D-05, .360954D-06, .845836D-07, - + .142663D-07, .143114D-08, .556383D-10, .212997D-12, - + .000000D+00, .119893D+06, .938572D+05, .726227D+05, - + .561897D+05, .434762D+05, .336375D+05, .260260D+05, - + .201358D+05, .155792D+05, .120531D+05, .932547D+04, - + .721483D+04, .558218D+04, .431888D+04, .334172D+04, - + .258564D+04, .200083D+04, .154835D+04, .119837D+04, - + .927576D+03, .718137D+03, .556085D+03, .430741D+03, - + .333750D+03, .258721D+03, .200657D+03, .155743D+03, - + .120540D+03, .937351D+02, .729731D+02, .568947D+02, - + .444323D+02, .347714D+02, .272941D+02, .214733D+02, - + .169486D+02, .134280D+02, .106815D+02, .853479D+01 / - DATA (UPDI(I),I=3953,4004) / - + .684999D+01, .552536D+01, .447690D+01, .364347D+01, - + .297689D+01, .244078D+01, .200667D+01, .165442D+01, - + .136392D+01, .112624D+01, .928389D+00, .764865D+00, - + .628808D+00, .515499D+00, .421094D+00, .342518D+00, - + .277225D+00, .223127D+00, .178470D+00, .141781D+00, - + .111796D+00, .874431D-01, .678004D-01, .520711D-01, - + .396355D-01, .297875D-01, .221189D-01, .162119D-01, - + .117152D-01, .833599D-02, .583179D-02, .400462D-02, - + .269362D-02, .177045D-02, .113271D-02, .706452D-03, - + .424469D-03, .245015D-03, .134641D-03, .694424D-04, - + .328047D-04, .134324D-04, .406892D-05, .771110D-07, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=4005,4056) / - + .163936D+06, .127714D+06, .982714D+05, .756075D+05, - + .581700D+05, .447485D+05, .344234D+05, .264774D+05, - + .203654D+05, .156624D+05, .120455D+05, .926275D+04, - + .712296D+04, .547691D+04, .421139D+04, .323800D+04, - + .248976D+04, .191431D+04, .147202D+04, .113192D+04, - + .870552D+03, .669594D+03, .515169D+03, .396440D+03, - + .305202D+03, .235056D+03, .181169D+03, .139211D+03, - + .107482D+03, .830702D+02, .642973D+02, .498450D+02, - + .387198D+02, .301680D+02, .235579D+02, .184548D+02, - + .145122D+02, .114573D+02, .908650D+01, .723842D+01, - + .579567D+01, .466147D+01, .376622D+01, .305511D+01, - + .248730D+01, .203069D+01, .166289D+01, .136167D+01, - + .111707D+01, .914908D+00, .749044D+00, .612023D+00 / - DATA (UPDI(I),I=4057,4108) / - + .498738D+00, .405019D+00, .327563D+00, .263639D+00, - + .211032D+00, .167893D+00, .132682D+00, .104087D+00, - + .810079D-01, .625075D-01, .477785D-01, .362023D-01, - + .270861D-01, .200264D-01, .146178D-01, .105223D-01, - + .746055D-02, .520278D-02, .356334D-02, .239234D-02, - + .157134D-02, .100612D-02, .629614D-03, .381008D-03, - + .222925D-03, .125476D-03, .675865D-04, .345773D-04, - + .166639D-04, .748131D-05, .306553D-05, .112037D-05, - + .347711D-06, .794411D-07, .653121D-08, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .219043D+06, - + .169911D+06, .130092D+06, .995866D+05, .762299D+05, - + .583394D+05, .446449D+05, .341581D+05, .261331D+05, - + .199894D+05, .152892D+05, .116919D+05, .894061D+04 / - DATA (UPDI(I),I=4109,4160) / - + .683546D+04, .522586D+04, .399460D+04, .305345D+04, - + .233371D+04, .178371D+04, .136320D+04, .104196D+04, - + .796416D+03, .608867D+03, .465537D+03, .356073D+03, - + .272432D+03, .208590D+03, .159191D+03, .122076D+03, - + .937028D+02, .720262D+02, .554468D+02, .427685D+02, - + .330869D+02, .256535D+02, .199526D+02, .155778D+02, - + .122103D+02, .961445D+01, .760425D+01, .604550D+01, - + .482817D+01, .387374D+01, .312067D+01, .252345D+01, - + .204640D+01, .166480D+01, .135438D+01, .110410D+01, - + .898652D+00, .731268D+00, .593941D+00, .481186D+00, - + .388538D+00, .312481D+00, .250125D+00, .199141D+00, - + .157599D+00, .123907D+00, .967123D-01, .748970D-01, - + .575142D-01, .437536D-01, .330003D-01, .245790D-01 / - DATA (UPDI(I),I=4161,4212) / - + .180930D-01, .131507D-01, .942795D-02, .665931D-02, - + .462788D-02, .315999D-02, .211641D-02, .138805D-02, - + .888536D-03, .556996D-03, .338648D-03, .200022D-03, - + .114495D-03, .634958D-04, .341103D-04, .178526D-04, - + .917770D-05, .469337D-05, .242498D-05, .127196D-05, - + .658564D-06, .320270D-06, .132626D-06, .368396D-07, - + .246575D-08, .000000D+00, .185942D+06, .221788D+06, - + .169041D+06, .128807D+06, .981379D+05, .747504D+05, - + .569297D+05, .433454D+05, .329986D+05, .251147D+05, - + .191122D+05, .145403D+05, .110608D+05, .841176D+04, - + .639656D+04, .486292D+04, .369674D+04, .280959D+04, - + .213529D+04, .162254D+04, .123298D+04, .936859D+03, - + .711960D+03, .541062D+03, .411300D+03, .312726D+03 / - DATA (UPDI(I),I=4213,4264) / - + .237938D+03, .180416D+03, .137461D+03, .104822D+03, - + .800422D+02, .612069D+02, .468938D+02, .360328D+02, - + .277470D+02, .214329D+02, .166184D+02, .129362D+02, - + .101159D+02, .794592D+01, .627404D+01, .497671D+01, - + .396609D+01, .317382D+01, .254961D+01, .205423D+01, - + .166058D+01, .134246D+01, .108768D+01, .879932D+00, - + .711801D+00, .574775D+00, .463012D+00, .371778D+00, - + .297368D+00, .236750D+00, .187498D+00, .147617D+00, - + .115468D+00, .896759D-01, .691078D-01, .528144D-01, - + .399881D-01, .300212D-01, .222585D-01, .163120D-01, - + .118050D-01, .842808D-02, .592957D-02, .410559D-02, - + .279408D-02, .186613D-02, .122146D-02, .781159D-03, - + .490023D-03, .298865D-03, .177745D-03, .103022D-03 / - DATA (UPDI(I),I=4265,4316) / - + .583457D-04, .324001D-04, .178225D-04, .981087D-05, - + .546042D-05, .308303D-05, .174409D-05, .950239D-06, - + .472811D-06, .195328D-06, .530846D-07, .364500D-08, - + .000000D+00, .391455D+06, .301119D+06, .228326D+06, - + .173077D+06, .131169D+06, .993751D+05, .752713D+05, - + .569942D+05, .431458D+05, .326508D+05, .247033D+05, - + .186838D+05, .141281D+05, .106795D+05, .807111D+04, - + .609777D+04, .460611D+04, .347826D+04, .262622D+04, - + .198237D+04, .149629D+04, .112918D+04, .852160D+03, - + .643057D+03, .485341D+03, .366348D+03, .276693D+03, - + .208219D+03, .157445D+03, .119145D+03, .902743D+02, - + .684916D+02, .520594D+02, .396839D+02, .303126D+02, - + .232255D+02, .178620D+02, .137912D+02, .106967D+02 / - DATA (UPDI(I),I=4317,4368) / - + .833390D+01, .652721D+01, .513600D+01, .406041D+01, - + .322373D+01, .256955D+01, .205440D+01, .164821D+01, - + .132251D+01, .106371D+01, .854348D+00, .686235D+00, - + .550301D+00, .440287D+00, .351179D+00, .279054D+00, - + .220742D+00, .173714D+00, .135915D+00, .105664D+00, - + .815662D-01, .624842D-01, .474727D-01, .357338D-01, - + .266728D-01, .196614D-01, .143254D-01, .103069D-01, - + .731514D-02, .511550D-02, .351977D-02, .237951D-02, - + .157781D-02, .102443D-02, .648939D-03, .402392D-03, - + .241752D-03, .140856D-03, .793008D-04, .430294D-04, - + .224200D-04, .112120D-04, .538399D-05, .249214D-05, - + .112542D-05, .505351D-06, .225265D-06, .985742D-07, - + .387513D-07, .107066D-07, .673407D-09, .000000D+00 / - DATA (UPDI(I),I=4369,4420) / - + .523307D+06, .400870D+06, .302491D+06, .228170D+06, - + .172061D+06, .129696D+06, .977330D+05, .736163D+05, - + .554340D+05, .417247D+05, .313963D+05, .236144D+05, - + .177559D+05, .133452D+05, .100271D+05, .753093D+04, - + .565460D+04, .424405D+04, .318462D+04, .238879D+04, - + .179154D+04, .134324D+04, .100703D+04, .754845D+03, - + .565841D+03, .424162D+03, .318116D+03, .237668D+03, - + .178418D+03, .134030D+03, .100800D+03, .759054D+02, - + .572568D+02, .433129D+02, .328291D+02, .249583D+02, - + .190447D+02, .145892D+02, .112269D+02, .867847D+01, - + .674402D+01, .526540D+01, .413057D+01, .325437D+01, - + .257434D+01, .204283D+01, .162686D+01, .129584D+01, - + .103481D+01, .825246D+00, .658249D+00, .524250D+00 / - DATA (UPDI(I),I=4421,4472) / - + .416620D+00, .330102D+00, .260594D+00, .204815D+00, - + .160158D+00, .124526D+00, .962126D-01, .738191D-01, - + .562101D-01, .424535D-01, .317680D-01, .235755D-01, - + .172783D-01, .125176D-01, .895593D-02, .632157D-02, - + .439719D-02, .301008D-02, .202515D-02, .133699D-02, - + .864862D-03, .546398D-03, .338435D-03, .203608D-03, - + .119255D-03, .679139D-04, .376414D-04, .203438D-04, - + .108005D-04, .568668D-05, .300061D-05, .160018D-05, - + .857432D-06, .445766D-06, .213461D-06, .848960D-07, - + .221328D-07, .152748D-08, .000000D+00, .687519D+06, - + .524582D+06, .394013D+06, .295815D+06, .222012D+06, - + .166541D+06, .124884D+06, .936007D+05, .701272D+05, - + .525141D+05, .393095D+05, .294102D+05, .219953D+05 / - DATA (UPDI(I),I=4473,4524) / - + .164414D+05, .122852D+05, .917503D+04, .684972D+04, - + .511122D+04, .381269D+04, .284277D+04, .211903D+04, - + .157894D+04, .117629D+04, .876076D+03, .652447D+03, - + .485847D+03, .361936D+03, .268538D+03, .200198D+03, - + .149338D+03, .111514D+03, .833691D+02, .624281D+02, - + .468781D+02, .352670D+02, .266111D+02, .201528D+02, - + .153214D+02, .117009D+02, .897640D+01, .692280D+01, - + .536429D+01, .417660D+01, .326617D+01, .256462D+01, - + .202025D+01, .159729D+01, .126318D+01, .100165D+01, - + .793233D+00, .628379D+00, .497083D+00, .392400D+00, - + .308871D+00, .242254D+00, .189183D+00, .147001D+00, - + .113583D+00, .872171D-01, .665099D-01, .503396D-01, - + .377938D-01, .281138D-01, .207419D-01, .151132D-01 / - DATA (UPDI(I),I=4525,4576) / - + .108863D-01, .774468D-02, .543630D-02, .376100D-02, - + .256124D-02, .171477D-02, .112709D-02, .726394D-03, - + .457721D-03, .283232D-03, .170669D-03, .100512D-03, - + .578990D-04, .327436D-04, .182783D-04, .101756D-04, - + .570545D-05, .323788D-05, .185480D-05, .105156D-05, - + .566302D-06, .274220D-06, .107996D-06, .274875D-07, - + .194662D-08, .000000D+00, .889600D+06, .676197D+06, - + .505631D+06, .377904D+06, .282323D+06, .210801D+06, - + .157330D+06, .117356D+06, .874986D+05, .652001D+05, - + .485618D+05, .361482D+05, .268952D+05, .199989D+05, - + .148640D+05, .110410D+05, .819754D+04, .608285D+04, - + .451175D+04, .334462D+04, .247851D+04, .183580D+04, - + .135936D+04, .100620D+04, .744667D+03, .550986D+03 / - DATA (UPDI(I),I=4577,4628) / - + .407810D+03, .300562D+03, .222579D+03, .164912D+03, - + .122300D+03, .907978D+02, .675125D+02, .503368D+02, - + .375971D+02, .281641D+02, .211735D+02, .159797D+02, - + .121141D+02, .922520D+01, .706250D+01, .543252D+01, - + .419889D+01, .325983D+01, .254122D+01, .198753D+01, - + .156035D+01, .122531D+01, .964909D+00, .758901D+00, - + .597120D+00, .469207D+00, .367955D+00, .287747D+00, - + .224234D+00, .173999D+00, .134352D+00, .103165D+00, - + .787297D-01, .596722D-01, .448922D-01, .335031D-01, - + .247742D-01, .181708D-01, .131625D-01, .942633D-02, - + .666790D-02, .465437D-02, .320257D-02, .216962D-02, - + .144552D-02, .945985D-03, .607488D-03, .381867D-03, - + .236127D-03, .142561D-03, .844454D-04, .492010D-04 / - DATA (UPDI(I),I=4629,4680) / - + .283538D-04, .162781D-04, .940467D-05, .550584D-05, - + .325989D-05, .193250D-05, .111814D-05, .605959D-06, - + .291209D-06, .112404D-06, .278367D-07, .200852D-08, - + .000000D+00, .113542D+07, .859885D+06, .640210D+06, - + .476397D+06, .354328D+06, .263377D+06, .195673D+06, - + .145282D+06, .107812D+06, .799548D+05, .592635D+05, - + .438980D+05, .324987D+05, .240434D+05, .177782D+05, - + .131368D+05, .970185D+04, .716032D+04, .528185D+04, - + .389372D+04, .286909D+04, .211288D+04, .155539D+04, - + .114445D+04, .841866D+03, .619069D+03, .455342D+03, - + .333436D+03, .245335D+03, .180585D+03, .133036D+03, - + .981060D+02, .724503D+02, .536482D+02, .397920D+02, - + .295997D+02, .220958D+02, .165577D+02, .124630D+02 / - DATA (UPDI(I),I=4681,4732) / - + .942331D+01, .716279D+01, .547049D+01, .419824D+01, - + .323632D+01, .250517D+01, .194565D+01, .151694D+01, - + .118301D+01, .925280D+00, .722820D+00, .564943D+00, - + .441000D+00, .343581D+00, .266955D+00, .206704D+00, - + .159384D+00, .122298D+00, .933279D-01, .707856D-01, - + .533252D-01, .398757D-01, .295819D-01, .217446D-01, - + .158551D-01, .114177D-01, .812953D-02, .571783D-02, - + .396895D-02, .271619D-02, .183064D-02, .121384D-02, - + .791011D-03, .506254D-03, .317555D-03, .196300D-03, - + .118803D-03, .708132D-04, .417332D-04, .244808D-04, - + .144030D-04, .856956D-05, .517208D-05, .314233D-05, - + .189475D-05, .110272D-05, .595070D-06, .281985D-06, - + .106308D-06, .255882D-07, .187747D-08, .000000D+00 / - DATA (UPDI(I),I=4733,4784) / - + .143112D+07, .107997D+07, .800690D+06, .593281D+06, - + .439361D+06, .325157D+06, .240502D+06, .177765D+06, - + .131316D+06, .969352D+05, .715126D+05, .527191D+05, - + .388405D+05, .285943D+05, .210379D+05, .154668D+05, - + .113639D+05, .834318D+04, .612173D+04, .448853D+04, - + .328925D+04, .240880D+04, .176318D+04, .128987D+04, - + .943286D+03, .689511D+03, .504087D+03, .366833D+03, - + .268225D+03, .196186D+03, .143601D+03, .105210D+03, - + .771845D+02, .567744D+02, .418273D+02, .309028D+02, - + .229107D+02, .170505D+02, .127454D+02, .957015D+01, - + .722404D+01, .547910D+01, .417577D+01, .319684D+01, - + .245763D+01, .189568D+01, .146798D+01, .113709D+01, - + .883427D+00, .685536D+00, .532282D+00, .412803D+00 / - DATA (UPDI(I),I=4785,4836) / - + .319540D+00, .246691D+00, .189804D+00, .145435D+00, - + .110901D+00, .841100D-01, .634044D-01, .474754D-01, - + .352881D-01, .260227D-01, .190148D-01, .137833D-01, - + .986772D-02, .698535D-02, .488520D-02, .337221D-02, - + .229547D-02, .153925D-02, .101588D-02, .659342D-03, - + .420682D-03, .263420D-03, .162868D-03, .988653D-04, - + .593275D-04, .353681D-04, .210957D-04, .126787D-04, - + .772139D-05, .476184D-05, .293857D-05, .178518D-05, - + .103737D-05, .554611D-06, .258370D-06, .950085D-07, - + .222289D-07, .165707D-08, .000000D+00, .178300D+07, - + .134085D+07, .990026D+06, .730529D+06, .538727D+06, - + .396996D+06, .292369D+06, .215156D+06, .158232D+06, - + .116278D+06, .853908D+05, .626585D+05, .459462D+05 / - DATA (UPDI(I),I=4837,4888) / - + .336641D+05, .246479D+05, .180316D+05, .131822D+05, - + .962899D+04, .702875D+04, .512657D+04, .373681D+04, - + .272174D+04, .198129D+04, .144133D+04, .104806D+04, - + .761661D+03, .553566D+03, .400406D+03, .291003D+03, - + .211542D+03, .153878D+03, .112029D+03, .816620D+02, - + .596812D+02, .436819D+02, .320606D+02, .236115D+02, - + .174548D+02, .129602D+02, .966603D+01, .724727D+01, - + .545967D+01, .413292D+01, .314275D+01, .239983D+01, - + .183871D+01, .141441D+01, .108832D+01, .839986D+00, - + .647555D+00, .499532D+00, .384915D+00, .296052D+00, - + .227113D+00, .173644D+00, .132225D+00, .100205D+00, - + .755325D-01, .565922D-01, .421191D-01, .311195D-01, - + .228123D-01, .165703D-01, .119411D-01, .849907D-02 / - DATA (UPDI(I),I=4889,4940) / - + .598193D-02, .415991D-02, .285581D-02, .193373D-02, - + .129028D-02, .847757D-03, .548147D-03, .348778D-03, - + .218115D-03, .134958D-03, .822186D-04, .496945D-04, - + .299660D-04, .181527D-04, .111120D-04, .689207D-05, - + .431480D-05, .268621D-05, .163444D-05, .944272D-06, - + .498724D-06, .228035D-06, .817469D-07, .186020D-07, - + .140813D-08, .000000D+00, .219739D+07, .164690D+07, - + .121111D+07, .890044D+06, .653662D+06, .479689D+06, - + .351779D+06, .257770D+06, .188749D+06, .138095D+06, - + .100960D+06, .737486D+05, .538302D+05, .392572D+05, - + .286072D+05, .208279D+05, .151522D+05, .110134D+05, - + .799891D+04, .580444D+04, .420899D+04, .304953D+04, - + .220803D+04, .159754D+04, .115523D+04, .834822D+03 / - DATA (UPDI(I),I=4941,4992) / - + .603277D+03, .433802D+03, .313423D+03, .226484D+03, - + .163751D+03, .118488D+03, .858352D+02, .623392D+02, - + .453383D+02, .330638D+02, .241934D+02, .177692D+02, - + .131076D+02, .971209D+01, .723406D+01, .541392D+01, - + .407133D+01, .307557D+01, .233311D+01, .177586D+01, - + .135717D+01, .103745D+01, .795552D+00, .609339D+00, - + .467045D+00, .357596D+00, .273305D+00, .208349D+00, - + .158307D+00, .119801D+00, .902336D-01, .676020D-01, - + .503441D-01, .372440D-01, .273536D-01, .199332D-01, - + .143937D-01, .103122D-01, .729723D-02, .510679D-02, - + .353155D-02, .241136D-02, .162438D-02, .107869D-02, - + .705722D-03, .454723D-03, .288656D-03, .180376D-03, - + .111756D-03, .683684D-04, .416373D-04, .253906D-04 / - DATA (UPDI(I),I=4993,5044) / - + .156011D-04, .969979D-05, .610139D-05, .385833D-05, - + .241162D-05, .146392D-05, .838549D-06, .436744D-06, - + .195812D-06, .684221D-07, .151549D-07, .116449D-08, - + .000000D+00, .268050D+07, .200235D+07, .146672D+07, - + .107361D+07, .785302D+06, .573947D+06, .419165D+06, - + .305865D+06, .223017D+06, .162466D+06, .118261D+06, - + .860051D+05, .624953D+05, .453695D+05, .329089D+05, - + .238478D+05, .172669D+05, .124899D+05, .902693D+04, - + .651788D+04, .470247D+04, .338960D+04, .244148D+04, - + .175710D+04, .126379D+04, .908265D+03, .652709D+03, - + .466669D+03, .335245D+03, .240852D+03, .173117D+03, - + .124521D+03, .896627D+02, .647238D+02, .467829D+02, - + .339057D+02, .246541D+02, .179936D+02, .131891D+02 / - DATA (UPDI(I),I=5045,5096) / - + .971025D+01, .718648D+01, .534384D+01, .399282D+01, - + .299688D+01, .225879D+01, .170823D+01, .129713D+01, - + .985192D+00, .750669D+00, .571300D+00, .435122D+00, - + .331062D+00, .251446D+00, .190496D+00, .143849D+00, - + .108192D+00, .809940D-01, .603129D-01, .446458D-01, - + .328315D-01, .239700D-01, .173648D-01, .124656D-01, - + .887919D-02, .624717D-02, .434730D-02, .298984D-02, - + .203068D-02, .136110D-02, .899704D-03, .586270D-03, - + .376569D-03, .238588D-03, .149050D-03, .925244D-04, - + .568700D-04, .349063D-04, .215174D-04, .133915D-04, - + .843432D-05, .536126D-05, .341112D-05, .213307D-05, - + .128824D-05, .730266D-06, .374629D-06, .164599D-06, - + .560666D-07, .120976D-07, .943307D-09, .000000D+00 / - DATA (UPDI(I),I=5097,5148) / - + .448666D+05, .671640D+05, .522999D+05, .407255D+05, - + .317127D+05, .246945D+05, .192296D+05, .149742D+05, - + .116605D+05, .908025D+04, .707105D+04, .550652D+04, - + .428825D+04, .333961D+04, .260092D+04, .202571D+04, - + .157780D+04, .122902D+04, .957427D+03, .745934D+03, - + .581242D+03, .452990D+03, .353113D+03, .275330D+03, - + .214751D+03, .167568D+03, .130815D+03, .101825D+03, - + .796029D+02, .622825D+02, .487789D+02, .382472D+02, - + .300295D+02, .236304D+02, .186166D+02, .146964D+02, - + .116272D+02, .922015D+01, .732834D+01, .583717D+01, - + .466013D+01, .372653D+01, .298387D+01, .239108D+01, - + .191639D+01, .153521D+01, .122946D+01, .981418D+00, - + .782476D+00, .620965D+00, .491281D+00, .386916D+00 / - DATA (UPDI(I),I=5149,5200) / - + .303152D+00, .236151D+00, .182784D+00, .140487D+00, - + .107155D+00, .810577D-01, .607705D-01, .451240D-01, - + .331597D-01, .240959D-01, .172985D-01, .122760D-01, - + .857052D-02, .589099D-02, .398066D-02, .263976D-02, - + .171453D-02, .108813D-02, .672897D-03, .404085D-03, - + .234567D-03, .130826D-03, .700362D-04, .353229D-04, - + .166226D-04, .713749D-05, .268402D-05, .802209D-06, - + .125292D-06, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .119866D+06, - + .938327D+05, .726008D+05, .561700D+05, .434586D+05, - + .336217D+05, .260118D+05, .201231D+05, .155677D+05, - + .120429D+05, .931629D+04, .720660D+04, .557479D+04 / - DATA (UPDI(I),I=5201,5252) / - + .431226D+04, .333577D+04, .258030D+04, .199604D+04, - + .154404D+04, .119450D+04, .924101D+03, .715012D+03, - + .553273D+03, .428207D+03, .331466D+03, .256658D+03, - + .198792D+03, .154054D+03, .119008D+03, .923409D+02, - + .717005D+02, .557292D+02, .433611D+02, .337828D+02, - + .263778D+02, .206203D+02, .161513D+02, .126795D+02, - + .997644D+01, .786878D+01, .621980D+01, .492863D+01, - + .391225D+01, .311021D+01, .247492D+01, .197034D+01, - + .156820D+01, .124822D+01, .990484D+00, .785401D+00, - + .620044D+00, .488212D+00, .382797D+00, .298736D+00, - + .231887D+00, .178943D+00, .137186D+00, .104434D+00, - + .788919D-01, .591128D-01, .439005D-01, .322981D-01, - + .235224D-01, .169453D-01, .120855D-01, .849472D-02 / - DATA (UPDI(I),I=5253,5304) / - + .588983D-02, .402464D-02, .270659D-02, .178932D-02, - + .116047D-02, .737196D-03, .457162D-03, .275972D-03, - + .160818D-03, .904371D-04, .477580D-04, .230353D-04, - + .925062D-05, .200673D-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, .163907D+06, .127688D+06, - + .982475D+05, .755861D+05, .581508D+05, .447313D+05, - + .344080D+05, .264635D+05, .203530D+05, .156513D+05, - + .120355D+05, .925380D+04, .711494D+04, .546972D+04, - + .420493D+04, .323221D+04, .248455D+04, .190964D+04, - + .146782D+04, .112815D+04, .867163D+03, .666545D+03, - + .512423D+03, .393965D+03, .302968D+03, .233037D+03 / - DATA (UPDI(I),I=5305,5356) / - + .179342D+03, .137556D+03, .105977D+03, .816983D+02, - + .630428D+02, .486943D+02, .376604D+02, .291889D+02, - + .226496D+02, .176090D+02, .137217D+02, .107165D+02, - + .839054D+01, .658380D+01, .517971D+01, .408250D+01, - + .322318D+01, .254752D+01, .201496D+01, .159359D+01, - + .126083D+01, .994655D+00, .784416D+00, .616033D+00, - + .482694D+00, .376743D+00, .292778D+00, .226389D+00, - + .174101D+00, .133069D+00, .101038D+00, .761662D-01, - + .569841D-01, .422803D-01, .311006D-01, .226647D-01, - + .163533D-01, .116950D-01, .825397D-02, .575524D-02, - + .396298D-02, .269223D-02, .180387D-02, .119050D-02, - + .773948D-03, .494869D-03, .311315D-03, .192013D-03, - + .117026D-03, .696937D-04, .407999D-04, .233592D-04 / - DATA (UPDI(I),I=5357,5408) / - + .131000D-04, .712626D-05, .375761D-05, .188288D-05, - + .883901D-06, .369689D-06, .129659D-06, .289890D-07, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .219011D+06, .169882D+06, .130066D+06, - + .995635D+05, .762091D+05, .583207D+05, .446282D+05, - + .341431D+05, .261196D+05, .199774D+05, .152784D+05, - + .116822D+05, .893194D+04, .682768D+04, .521888D+04, - + .398834D+04, .304784D+04, .232867D+04, .177918D+04, - + .135913D+04, .103831D+04, .793128D+03, .605907D+03, - + .462870D+03, .353668D+03, .270260D+03, .206625D+03, - + .157414D+03, .120462D+03, .922330D+02, .706846D+02, - + .542187D+02, .416405D+02, .320472D+02, .246921D+02, - + .190608D+02, .147478D+02, .114361D+02, .889090D+01 / - DATA (UPDI(I),I=5409,5460) / - + .692751D+01, .541251D+01, .423692D+01, .332277D+01, - + .260909D+01, .205061D+01, .161180D+01, .126773D+01, - + .994371D+00, .779956D+00, .609345D+00, .475113D+00, - + .369107D+00, .285603D+00, .219952D+00, .168527D+00, - + .128376D+00, .971820D-01, .730673D-01, .545471D-01, - + .404027D-01, .296851D-01, .216210D-01, .156019D-01, - + .111675D-01, .789591D-02, .552111D-02, .381740D-02, - + .260791D-02, .176055D-02, .117332D-02, .772541D-03, - + .502126D-03, .322609D-03, .204494D-03, .129083D-03, - + .804977D-04, .500549D-04, .310168D-04, .192949D-04, - + .120177D-04, .755506D-05, .475053D-05, .298514D-05, - + .184318D-05, .110488D-05, .620350D-06, .314002D-06, - + .132011D-06, .368158D-07, .246565D-08, .000000D+00 / - DATA (UPDI(I),I=5461,5512) / - + .185872D+06, .221756D+06, .169014D+06, .128782D+06, - + .981154D+05, .747303D+05, .569117D+05, .433293D+05, - + .329842D+05, .251018D+05, .191005D+05, .145298D+05, - + .110515D+05, .840339D+04, .638906D+04, .485619D+04, - + .369071D+04, .280417D+04, .213043D+04, .161817D+04, - + .122905D+04, .933331D+03, .708785D+03, .538203D+03, - + .408723D+03, .310401D+03, .235837D+03, .178516D+03, - + .135737D+03, .103256D+03, .786147D+02, .599028D+02, - + .456989D+02, .349345D+02, .267346D+02, .204971D+02, - + .157511D+02, .121309D+02, .936697D+01, .724914D+01, - + .562601D+01, .437503D+01, .340886D+01, .265972D+01, - + .207751D+01, .162313D+01, .126926D+01, .989954D+00, - + .772332D+00, .600265D+00, .465732D+00, .360126D+00 / - DATA (UPDI(I),I=5513,5564) / - + .277422D+00, .212763D+00, .162386D+00, .123252D+00, - + .929942D-01, .697094D-01, .519028D-01, .383566D-01, - + .281295D-01, .204594D-01, .147503D-01, .105543D-01, - + .746455D-02, .522477D-02, .361932D-02, .247975D-02, - + .168093D-02, .112650D-02, .747154D-03, .490236D-03, - + .318784D-03, .205201D-03, .132000D-03, .842941D-04, - + .539469D-04, .345993D-04, .223868D-04, .145666D-04, - + .957992D-05, .629802D-05, .411795D-05, .263037D-05, - + .161552D-05, .921161D-06, .468099D-06, .194870D-06, - + .530670D-07, .364492D-08, .000000D+00, .391417D+06, - + .301085D+06, .228296D+06, .173050D+06, .131145D+06, - + .993531D+05, .752517D+05, .569766D+05, .431300D+05, - + .326367D+05, .246906D+05, .186724D+05, .141179D+05 / - DATA (UPDI(I),I=5565,5616) / - + .106704D+05, .806294D+04, .609045D+04, .459954D+04, - + .347237D+04, .262093D+04, .197763D+04, .149202D+04, - + .112535D+04, .848718D+03, .639960D+03, .482552D+03, - + .363833D+03, .274422D+03, .206169D+03, .155589D+03, - + .117461D+03, .887429D+02, .670961D+02, .507844D+02, - + .385159D+02, .292401D+02, .222384D+02, .169516D+02, - + .129504D+02, .991932D+01, .761525D+01, .586332D+01, - + .452391D+01, .349768D+01, .270842D+01, .209994D+01, - + .162886D+01, .126489D+01, .979862D+00, .759503D+00, - + .586592D+00, .452391D+00, .347806D+00, .266467D+00, - + .203304D+00, .154406D+00, .116654D+00, .876347D-01, - + .654281D-01, .485341D-01, .357458D-01, .261346D-01, - + .189572D-01, .136342D-01, .973538D-02, .687251D-02 / - DATA (UPDI(I),I=5617,5668) / - + .480245D-02, .332153D-02, .227201D-02, .153699D-02, - + .102717D-02, .678371D-03, .442138D-03, .284488D-03, - + .180186D-03, .113120D-03, .696858D-04, .423530D-04, - + .252952D-04, .148855D-04, .858407D-05, .487651D-05, - + .270987D-05, .148082D-05, .788094D-06, .410653D-06, - + .204100D-06, .951859D-07, .384258D-07, .106941D-07, - + .673344D-09, .000000D+00, .523266D+06, .400833D+06, - + .302458D+06, .228140D+06, .172034D+06, .129672D+06, - + .977116D+05, .735972D+05, .554169D+05, .417094D+05, - + .313825D+05, .236020D+05, .177449D+05, .133353D+05, - + .100183D+05, .752298D+04, .564747D+04, .423767D+04, - + .317889D+04, .238365D+04, .178693D+04, .133910D+04, - + .100331D+04, .751502D+03, .562833D+03, .421452D+03 / - DATA (UPDI(I),I=5669,5720) / - + .315674D+03, .235466D+03, .176427D+03, .132227D+03, - + .991650D+02, .744190D+02, .559028D+02, .420767D+02, - + .316982D+02, .239220D+02, .180935D+02, .137153D+02, - + .104235D+02, .794040D+01, .606663D+01, .464514D+01, - + .356437D+01, .273967D+01, .210876D+01, .162409D+01, - + .125250D+01, .963718D+00, .742135D+00, .569554D+00, - + .436575D+00, .333680D+00, .254203D+00, .192900D+00, - + .145746D+00, .109569D+00, .819254D-01, .608945D-01, - + .449824D-01, .330011D-01, .240410D-01, .173816D-01, - + .124638D-01, .887645D-02, .625205D-02, .436102D-02, - + .301230D-02, .205908D-02, .139296D-02, .931778D-03, - + .616618D-03, .403316D-03, .260906D-03, .166642D-03, - + .105868D-03, .663671D-04, .413349D-04, .255589D-04 / - DATA (UPDI(I),I=5721,5772) / - + .157674D-04, .969145D-05, .597195D-05, .367010D-05, - + .224670D-05, .135174D-05, .788599D-06, .430589D-06, - + .211066D-06, .846687D-07, .221241D-07, .152743D-08, - + .000000D+00, .687474D+06, .524541D+06, .393977D+06, - + .295783D+06, .221983D+06, .166515D+06, .124861D+06, - + .935799D+05, .701086D+05, .524974D+05, .392945D+05, - + .293968D+05, .219833D+05, .164307D+05, .122756D+05, - + .916643D+04, .684202D+04, .510432D+04, .380651D+04, - + .283723D+04, .211406D+04, .157448D+04, .117228D+04, - + .872480D+03, .649215D+03, .482939D+03, .359318D+03, - + .266182D+03, .198072D+03, .147416D+03, .109775D+03, - + .817924D+02, .609961D+02, .455751D+02, .340796D+02, - + .255277D+02, .191630D+02, .144168D+02, .108741D+02 / - DATA (UPDI(I),I=5773,5824) / - + .822133D+01, .623424D+01, .473804D+01, .360891D+01, - + .275381D+01, .210452D+01, .160949D+01, .123277D+01, - + .942190D+00, .720852D+00, .549717D+00, .418787D+00, - + .318187D+00, .241010D+00, .181877D+00, .136683D+00, - + .102228D+00, .760595D-01, .562681D-01, .413775D-01, - + .302269D-01, .219311D-01, .157964D-01, .112871D-01, - + .801230D-02, .562664D-02, .391458D-02, .269801D-02, - + .184115D-02, .124418D-02, .832020D-03, .550981D-03, - + .361121D-03, .234485D-03, .150729D-03, .966615D-04, - + .614463D-04, .390111D-04, .247566D-04, .157817D-04, - + .100962D-04, .650427D-05, .418844D-05, .267726D-05, - + .167230D-05, .100166D-05, .555449D-06, .272531D-06, - + .107838D-06, .274815D-07, .194659D-08, .000000D+00 / - DATA (UPDI(I),I=5825,5876) / - + .889552D+06, .676153D+06, .505592D+06, .377869D+06, - + .282292D+06, .210773D+06, .157305D+06, .117333D+06, - + .874785D+05, .651821D+05, .485457D+05, .361338D+05, - + .268823D+05, .199874D+05, .148537D+05, .110317D+05, - + .818923D+04, .607541D+04, .450509D+04, .333865D+04, - + .247316D+04, .183101D+04, .135507D+04, .100234D+04, - + .741205D+03, .547875D+03, .405014D+03, .298050D+03, - + .220316D+03, .162871D+03, .120457D+03, .891316D+02, - + .660038D+02, .489687D+02, .363552D+02, .270358D+02, - + .201476D+02, .150469D+02, .112663D+02, .845555D+01, - + .636508D+01, .480240D+01, .363161D+01, .275144D+01, - + .208797D+01, .158582D+01, .120645D+01, .915946D+00, - + .696250D+00, .527596D+00, .399464D+00, .301694D+00 / - DATA (UPDI(I),I=5877,5928) / - + .227191D+00, .170484D+00, .127421D+00, .947970D-01, - + .701703D-01, .516559D-01, .378055D-01, .274921D-01, - + .198601D-01, .142458D-01, .101390D-01, .717077D-02, - + .501828D-02, .348042D-02, .239216D-02, .162870D-02, - + .109870D-02, .734019D-03, .486066D-03, .318979D-03, - + .207733D-03, .134255D-03, .867945D-04, .558342D-04, - + .360158D-04, .233275D-04, .152316D-04, .100083D-04, - + .661986D-05, .436737D-05, .284398D-05, .179875D-05, - + .108204D-05, .598215D-06, .290021D-06, .112294D-06, - + .278325D-07, .200850D-08, .000000D+00, .113537D+07, - + .859838D+06, .640168D+06, .476359D+06, .354294D+06, - + .263347D+06, .195646D+06, .145258D+06, .107791D+06, - + .799353D+05, .592461D+05, .438824D+05, .324847D+05 / - DATA (UPDI(I),I=5929,5980) / - + .240309D+05, .177670D+05, .131268D+05, .969292D+04, - + .715233D+04, .527470D+04, .388731D+04, .286336D+04, - + .210774D+04, .155079D+04, .114033D+04, .838169D+03, - + .615752D+03, .452364D+03, .330765D+03, .242934D+03, - + .178425D+03, .131089D+03, .963513D+02, .708664D+02, - + .522169D+02, .384978D+02, .284289D+02, .210363D+02, - + .155993D+02, .115967D+02, .864152D+01, .645879D+01, - + .483857D+01, .363319D+01, .273344D+01, .206001D+01, - + .155394D+01, .117432D+01, .885683D+00, .668925D+00, - + .503692D+00, .379021D+00, .284539D+00, .213019D+00, - + .158940D+00, .118134D+00, .874138D-01, .643662D-01, - + .471429D-01, .343328D-01, .248483D-01, .178682D-01, - + .127609D-01, .904394D-02, .637074D-02, .444157D-02 / - DATA (UPDI(I),I=5981,6032) / - + .306975D-02, .210334D-02, .142826D-02, .961465D-03, - + .641486D-03, .424636D-03, .278931D-03, .182135D-03, - + .118299D-03, .770519D-04, .501018D-04, .327672D-04, - + .215828D-04, .143536D-04, .961030D-05, .646236D-05, - + .431980D-05, .283454D-05, .179698D-05, .107668D-05, - + .589558D-06, .281151D-06, .106232D-06, .255853D-07, - + .187745D-08, .000000D+00, .143107D+07, .107992D+07, - + .800644D+06, .593241D+06, .439325D+06, .325124D+06, - + .240473D+06, .177738D+06, .131293D+06, .969143D+05, - + .714939D+05, .527024D+05, .388255D+05, .285809D+05, - + .210259D+05, .154561D+05, .113543D+05, .833460D+04, - + .611406D+04, .448167D+04, .328311D+04, .240330D+04, - + .175827D+04, .128547D+04, .939348D+03, .685983D+03 / - DATA (UPDI(I),I=6033,6084) / - + .500925D+03, .364002D+03, .265685D+03, .193906D+03, - + .141553D+03, .103368D+03, .755272D+02, .552820D+02, - + .404831D+02, .296919D+02, .218202D+02, .160690D+02, - + .118631D+02, .877864D+01, .651570D+01, .484738D+01, - + .361469D+01, .270091D+01, .202170D+01, .151481D+01, - + .113721D+01, .852103D+00, .639462D+00, .478483D+00, - + .357842D+00, .267029D+00, .198737D+00, .147433D+00, - + .108967D+00, .801904D-01, .587329D-01, .427942D-01, - + .310086D-01, .223328D-01, .159835D-01, .113629D-01, - + .801776D-02, .562421D-02, .390549D-02, .268934D-02, - + .183659D-02, .124359D-02, .835267D-03, .556484D-03, - + .368207D-03, .242089D-03, .158500D-03, .103454D-03, - + .678687D-04, .445729D-04, .295108D-04, .197131D-04 / - DATA (UPDI(I),I=6085,6136) / - + .132991D-04, .902418D-05, .613089D-05, .412541D-05, - + .271137D-05, .171388D-05, .101863D-05, .550697D-06, - + .257785D-06, .949558D-07, .222269D-07, .165705D-08, - + .000000D+00, .178294D+07, .134080D+07, .989977D+06, - + .730485D+06, .538687D+06, .396961D+06, .292338D+06, - + .215128D+06, .158206D+06, .116256D+06, .853707D+05, - + .626405D+05, .459300D+05, .336497D+05, .246350D+05, - + .180201D+05, .131719D+05, .961981D+04, .702054D+04, - + .511924D+04, .373025D+04, .271589D+04, .197606D+04, - + .143665D+04, .104388D+04, .757919D+03, .550218D+03, - + .397414D+03, .288324D+03, .209143D+03, .151727D+03, - + .110101D+03, .799332D+02, .581300D+02, .422902D+02, - + .308125D+02, .224926D+02, .164530D+02, .120645D+02 / - DATA (UPDI(I),I=6137,6188) / - + .886720D+01, .653677D+01, .483009D+01, .357744D+01, - + .265512D+01, .197417D+01, .146942D+01, .109596D+01, - + .815896D+00, .608420D+00, .452413D+00, .336277D+00, - + .249434D+00, .184551D+00, .136122D+00, .100040D+00, - + .732152D-01, .533355D-01, .386575D-01, .278676D-01, - + .199708D-01, .142240D-01, .100649D-01, .706984D-02, - + .493790D-02, .341489D-02, .234264D-02, .159440D-02, - + .107648D-02, .721395D-03, .479947D-03, .317459D-03, - + .208948D-03, .137193D-03, .899944D-04, .594571D-04, - + .394159D-04, .263838D-04, .178333D-04, .121652D-04, - + .833228D-05, .569458D-05, .384075D-05, .251892D-05, - + .158258D-05, .930811D-06, .495951D-06, .227626D-06, - + .817106D-07, .186007D-07, .140812D-08, .000000D+00 / - DATA (UPDI(I),I=6189,6240) / - + .219733D+07, .164684D+07, .121106D+07, .889996D+06, - + .653620D+06, .479651D+06, .351745D+06, .257739D+06, - + .188722D+06, .138071D+06, .100939D+06, .737293D+05, - + .538130D+05, .392418D+05, .285934D+05, .208156D+05, - + .151413D+05, .110036D+05, .799016D+04, .579663D+04, - + .420201D+04, .304330D+04, .220247D+04, .159258D+04, - + .115080D+04, .830861D+03, .599741D+03, .430648D+03, - + .310605D+03, .223966D+03, .161501D+03, .116477D+03, - + .840372D+02, .607317D+02, .439019D+02, .317811D+02, - + .230490D+02, .167497D+02, .122012D+02, .890835D+01, - + .652354D+01, .478832D+01, .352300D+01, .259747D+01, - + .191863D+01, .141878D+01, .105140D+01, .777722D+00, - + .576320D+00, .425888D+00, .314636D+00, .231988D+00 / - DATA (UPDI(I),I=6241,6292) / - + .170637D+00, .125135D+00, .914455D-01, .665549D-01, - + .482210D-01, .347657D-01, .249324D-01, .177775D-01, - + .125999D-01, .887363D-02, .620451D-02, .431461D-02, - + .297151D-02, .203075D-02, .137745D-02, .927359D-03, - + .620121D-03, .412058D-03, .272523D-03, .179614D-03, - + .118301D-03, .780003D-04, .518926D-04, .347044D-04, - + .234567D-04, .160104D-04, .110141D-04, .759074D-05, - + .520203D-05, .350612D-05, .228875D-05, .142629D-05, - + .828906D-06, .434784D-06, .195527D-06, .683971D-07, - + .151540D-07, .116448D-08, .000000D+00, .268043D+07, - + .200229D+07, .146666D+07, .107356D+07, .785256D+06, - + .573906D+06, .419129D+06, .305832D+06, .222988D+06, - + .162441D+06, .118238D+06, .859844D+05, .624768D+05 / - DATA (UPDI(I),I=6293,6344) / - + .453530D+05, .328942D+05, .238347D+05, .172551D+05, - + .124795D+05, .901760D+04, .650956D+04, .469505D+04, - + .338298D+04, .243558D+04, .175184D+04, .125910D+04, - + .904084D+03, .648982D+03, .463353D+03, .332288D+03, - + .238217D+03, .170769D+03, .122429D+03, .877981D+02, - + .630628D+02, .453047D+02, .325914D+02, .234871D+02, - + .169592D+02, .122745D+02, .890392D+01, .647800D+01, - + .472399D+01, .345308D+01, .252942D+01, .185631D+01, - + .136388D+01, .100431D+01, .738201D+00, .543640D+00, - + .399267D+00, .293187D+00, .214890D+00, .157136D+00, - + .114572D+00, .832535D-01, .602571D-01, .434212D-01, - + .311390D-01, .222156D-01, .157602D-01, .111152D-01, - + .779085D-02, .542239D-02, .375425D-02, .257494D-02 / - DATA (UPDI(I),I=6345,6396) / - + .175312D-02, .118520D-02, .795756D-03, .531063D-03, - + .352525D-03, .233191D-03, .153948D-03, .101743D-03, - + .674364D-04, .451708D-04, .304557D-04, .207604D-04, - + .142827D-04, .988596D-05, .683799D-05, .468745D-05, - + .315007D-05, .204304D-05, .126100D-05, .723375D-06, - + .373248D-06, .164402D-06, .560494D-07, .120970D-07, - + .943302D-09, .000000D+00, .154639D+07, .120297D+07, - + .924168D+06, .709984D+06, .545442D+06, .419036D+06, - + .321927D+06, .247325D+06, .190013D+06, .145984D+06, - + .112159D+06, .861734D+05, .662101D+05, .508733D+05, - + .390906D+05, .300384D+05, .230839D+05, .177408D+05, - + .136357D+05, .104816D+05, .805825D+04, .619622D+04, - + .476543D+04, .366595D+04, .282102D+04, .217164D+04 / - DATA (UPDI(I),I=6397,6448) / - + .167252D+04, .128408D+04, .990295D+03, .764356D+03, - + .590554D+03, .456822D+03, .353886D+03, .274830D+03, - + .213754D+03, .166685D+03, .130376D+03, .102335D+03, - + .806442D+02, .638266D+02, .507748D+02, .405986D+02, - + .326404D+02, .263913D+02, .214614D+02, .175525D+02, - + .144464D+02, .119390D+02, .992733D+01, .828297D+01, - + .694376D+01, .584165D+01, .492904D+01, .416880D+01, - + .353194D+01, .299569D+01, .254209D+01, .215687D+01, - + .182866D+01, .154829D+01, .130831D+01, .110267D+01, - + .926353D+00, .775854D+00, .646165D+00, .535337D+00, - + .440864D+00, .360601D+00, .292693D+00, .235529D+00, - + .187699D+00, .147960D+00, .115193D+00, .884088D-01, - + .669450D-01, .497056D-01, .361639D-01, .257011D-01 / - DATA (UPDI(I),I=6449,6500) / - + .177722D-01, .118993D-01, .766597D-02, .471728D-02, - + .273255D-02, .147384D-02, .721886D-03, .309964D-03, - + .109981D-03, .288639D-04, .436888D-05, .172087D-06, - + .000000D+00, .240317D+07, .186447D+07, .142772D+07, - + .109293D+07, .836649D+06, .640255D+06, .489961D+06, - + .374819D+06, .286731D+06, .219268D+06, .167673D+06, - + .128172D+06, .979736D+05, .748618D+05, .571997D+05, - + .436879D+05, .333665D+05, .254738D+05, .194475D+05, - + .148413D+05, .113260D+05, .864037D+04, .659181D+04, - + .502755D+04, .383492D+04, .292459D+04, .223092D+04, - + .169538D+04, .129404D+04, .987975D+03, .754883D+03, - + .577175D+03, .441852D+03, .338944D+03, .260347D+03, - + .200416D+03, .154738D+03, .119854D+03, .932047D+02 / - DATA (UPDI(I),I=6501,6552) / - + .727803D+02, .571283D+02, .450673D+02, .357537D+02, - + .285255D+02, .228942D+02, .184799D+02, .150150D+02, - + .122497D+02, .100573D+02, .828567D+01, .685970D+01, - + .569962D+01, .475024D+01, .396858D+01, .332152D+01, - + .278321D+01, .233337D+01, .195607D+01, .163856D+01, - + .137078D+01, .114449D+01, .953136D+00, .791122D+00, - + .654671D+00, .538629D+00, .440817D+00, .358555D+00, - + .289637D+00, .232127D+00, .184405D+00, .145034D+00, - + .112804D+00, .866309D-01, .655539D-01, .489222D-01, - + .357801D-01, .256242D-01, .179141D-01, .121736D-01, - + .800331D-02, .505479D-02, .304598D-02, .172392D-02, - + .906723D-03, .431634D-03, .179544D-03, .613714D-04, - + .154413D-04, .225090D-05, .901006D-07, .000000D+00 / - DATA (UPDI(I),I=6553,6604) / - + .356326D+07, .275505D+07, .210122D+07, .160178D+07, - + .122096D+07, .930204D+06, .708621D+06, .539536D+06, - + .410748D+06, .312529D+06, .237763D+06, .180779D+06, - + .137430D+06, .104412D+06, .793130D+05, .602097D+05, - + .456987D+05, .346628D+05, .262867D+05, .199218D+05, - + .150951D+05, .114305D+05, .865419D+04, .654833D+04, - + .495437D+04, .374627D+04, .283291D+04, .213322D+04, - + .161317D+04, .121982D+04, .922876D+03, .698467D+03, - + .529159D+03, .401596D+03, .305120D+03, .232273D+03, - + .177317D+03, .135772D+03, .104369D+03, .805507D+02, - + .624924D+02, .487232D+02, .382042D+02, .301260D+02, - + .238992D+02, .190683D+02, .153162D+02, .123521D+02, - + .100265D+02, .816658D+01, .668497D+01, .549208D+01 / - DATA (UPDI(I),I=6605,6656) / - + .452601D+01, .373901D+01, .309446D+01, .256407D+01, - + .212570D+01, .176213D+01, .145963D+01, .120747D+01, - + .996844D+00, .820886D+00, .673642D+00, .551146D+00, - + .448244D+00, .362599D+00, .291474D+00, .232657D+00, - + .184210D+00, .144543D+00, .112254D+00, .861893D-01, - + .653228D-01, .487579D-01, .358789D-01, .258586D-01, - + .182367D-01, .125465D-01, .838238D-02, .541287D-02, - + .335295D-02, .197910D-02, .109477D-02, .561611D-03, - + .259904D-03, .104737D-03, .344949D-04, .832215D-05, - + .116766D-05, .470146D-07, .000000D+00, .507877D+07, - + .391250D+07, .297131D+07, .225519D+07, .171135D+07, - + .129786D+07, .984072D+06, .745668D+06, .564885D+06, - + .427641D+06, .323655D+06, .244780D+06, .185071D+06 / - DATA (UPDI(I),I=6657,6708) / - + .139823D+06, .105602D+06, .796949D+05, .601219D+05, - + .453194D+05, .341487D+05, .257101D+05, .193495D+05, - + .145503D+05, .109375D+05, .821515D+04, .616845D+04, - + .462783D+04, .347153D+04, .259228D+04, .194372D+04, - + .145698D+04, .109245D+04, .819239D+03, .614830D+03, - + .462147D+03, .347687D+03, .262038D+03, .198015D+03, - + .150065D+03, .114161D+03, .871878D+02, .669321D+02, - + .516354D+02, .400610D+02, .312573D+02, .245359D+02, - + .193705D+02, .153964D+02, .122864D+02, .986930D+01, - + .795449D+01, .644353D+01, .523865D+01, .427222D+01, - + .349261D+01, .286041D+01, .234541D+01, .192408D+01, - + .157828D+01, .129360D+01, .105883D+01, .864881D+00, - + .704650D+00, .572044D+00, .462984D+00, .372422D+00 / - DATA (UPDI(I),I=6709,6760) / - + .297937D+00, .236814D+00, .186882D+00, .146258D+00, - + .113414D+00, .870184D-01, .659915D-01, .493847D-01, - + .363799D-01, .264111D-01, .187685D-01, .130428D-01, - + .883585D-02, .580786D-02, .368626D-02, .224139D-02, - + .129700D-02, .701958D-03, .351619D-03, .158426D-03, - + .619573D-04, .197102D-04, .457535D-05, .619620D-06, - + .246649D-07, .000000D+00, .700627D+07, .537752D+07, - + .406638D+07, .307287D+07, .232143D+07, .175253D+07, - + .132263D+07, .997451D+06, .751955D+06, .566444D+06, - + .426532D+06, .320917D+06, .241350D+06, .181355D+06, - + .136210D+06, .102211D+06, .766596D+05, .574419D+05, - + .430191D+05, .321863D+05, .240682D+05, .179799D+05, - + .134245D+05, .100135D+05, .746537D+04, .555997D+04 / - DATA (UPDI(I),I=6761,6812) / - + .413962D+04, .306717D+04, .228171D+04, .169657D+04, - + .126159D+04, .938098D+03, .697942D+03, .520006D+03, - + .387694D+03, .289516D+03, .216745D+03, .162714D+03, - + .122605D+03, .927386D+02, .705060D+02, .538655D+02, - + .413846D+02, .319760D+02, .248554D+02, .194314D+02, - + .152949D+02, .120859D+02, .961390D+01, .767285D+01, - + .615469D+01, .495493D+01, .400124D+01, .323899D+01, - + .262657D+01, .213242D+01, .173201D+01, .140660D+01, - + .114136D+01, .924851D+00, .747816D+00, .603092D+00, - + .484573D+00, .388150D+00, .308956D+00, .244547D+00, - + .192290D+00, .150092D+00, .116163D+00, .890586D-01, - + .675413D-01, .506150D-01, .374183D-01, .272182D-01, - + .195048D-01, .136739D-01, .936874D-02, .625347D-02 / - DATA (UPDI(I),I=6813,6864) / - + .404667D-02, .252624D-02, .150900D-02, .856770D-03, - + .454151D-03, .222388D-03, .976982D-04, .371446D-04, - + .114427D-04, .256396D-05, .335885D-06, .129192D-07, - + .000000D+00, .983350D+07, .751477D+07, .565377D+07, - + .425051D+07, .319424D+07, .239862D+07, .180037D+07, - + .135023D+07, .101215D+07, .758071D+06, .567469D+06, - + .424406D+06, .317226D+06, .236887D+06, .176783D+06, - + .131795D+06, .981903D+05, .730763D+05, .543473D+05, - + .403736D+05, .299708D+05, .222232D+05, .164662D+05, - + .121868D+05, .901300D+04, .665758D+04, .491530D+04, - + .361025D+04, .266209D+04, .196164D+04, .144527D+04, - + .106459D+04, .784423D+03, .578731D+03, .427158D+03, - + .315749D+03, .233940D+03, .173788D+03, .129563D+03 / - DATA (UPDI(I),I=6865,6916) / - + .969561D+02, .729193D+02, .551073D+02, .418783D+02, - + .320049D+02, .246059D+02, .190255D+02, .148115D+02, - + .115746D+02, .910587D+01, .718679D+01, .570082D+01, - + .453847D+01, .362398D+01, .290071D+01, .232574D+01, - + .186683D+01, .149905D+01, .120350D+01, .965339D+00, - + .773183D+00, .617913D+00, .492499D+00, .391030D+00, - + .309497D+00, .243373D+00, .190282D+00, .147767D+00, - + .113889D+00, .870160D-01, .658430D-01, .492699D-01, - + .364201D-01, .265489D-01, .190331D-01, .134376D-01, - + .927520D-02, .625307D-02, .410394D-02, .260901D-02, - + .159852D-02, .935975D-03, .520243D-03, .269482D-03, - + .128703D-03, .550104D-04, .202907D-04, .604400D-05, - + .130587D-05, .165096D-06, .585686D-08, .000000D+00 / - DATA (UPDI(I),I=6917,6968) / - + .134794D+08, .102562D+08, .767707D+07, .574190D+07, - + .429233D+07, .320604D+07, .239333D+07, .178506D+07, - + .133058D+07, .990881D+06, .737424D+06, .548255D+06, - + .407323D+06, .302300D+06, .224184D+06, .166069D+06, - + .122918D+06, .908730D+05, .671239D+05, .495207D+05, - + .365008D+05, .268700D+05, .197623D+05, .145160D+05, - + .106528D+05, .780664D+04, .571716D+04, .416412D+04, - + .304459D+04, .222419D+04, .162426D+04, .118570D+04, - + .865628D+03, .632691D+03, .462530D+03, .338588D+03, - + .248393D+03, .182688D+03, .134826D+03, .998685D+02, - + .743397D+02, .556018D+02, .418155D+02, .316245D+02, - + .240592D+02, .184076D+02, .141801D+02, .109639D+02, - + .853425D+01, .666383D+01, .522955D+01, .411869D+01 / - DATA (UPDI(I),I=6969,7020) / - + .325336D+01, .257590D+01, .204285D+01, .162184D+01, - + .128800D+01, .102263D+01, .811133D+00, .642398D+00, - + .507601D+00, .399978D+00, .313919D+00, .245591D+00, - + .190849D+00, .147438D+00, .113112D+00, .861096D-01, - + .649696D-01, .485347D-01, .358456D-01, .261439D-01, - + .187976D-01, .132855D-01, .924366D-02, .628386D-02, - + .416972D-02, .269161D-02, .168159D-02, .101149D-02, - + .580757D-03, .316121D-03, .160080D-03, .745985D-04, - + .310374D-04, .111126D-04, .320297D-05, .667590D-06, - + .812412D-07, .246764D-08, .000000D+00, .180676D+08, - + .136887D+08, .101950D+08, .758648D+07, .564192D+07, - + .419204D+07, .311269D+07, .230906D+07, .171169D+07, - + .126758D+07, .937977D+06, .693335D+06, .512074D+06 / - DATA (UPDI(I),I=7021,7072) / - + .377770D+06, .278441D+06, .204982D+06, .150759D+06, - + .110738D+06, .812585D+05, .595470D+05, .435904D+05, - + .318652D+05, .232688D+05, .169674D+05, .123590D+05, - + .898799D+04, .653119D+04, .471876D+04, .342212D+04, - + .247933D+04, .179525D+04, .129923D+04, .940151D+03, - + .681018D+03, .493308D+03, .357770D+03, .259990D+03, - + .189394D+03, .138424D+03, .101535D+03, .748365D+02, - + .554198D+02, .412632D+02, .308948D+02, .232678D+02, - + .176224D+02, .134381D+02, .102841D+02, .792360D+01, - + .612341D+01, .475597D+01, .370700D+01, .289774D+01, - + .227039D+01, .178167D+01, .139958D+01, .109970D+01, - + .863814D+00, .677807D+00, .531011D+00, .415024D+00, - + .323447D+00, .251042D+00, .194213D+00, .149214D+00 / - DATA (UPDI(I),I=7073,7124) / - + .113953D+00, .864084D-01, .650057D-01, .484592D-01, - + .357592D-01, .260814D-01, .187804D-01, .133272D-01, - + .929255D-02, .637647D-02, .427267D-02, .279308D-02, - + .177510D-02, .109108D-02, .645143D-03, .363764D-03, - + .194241D-03, .963576D-04, .439225D-04, .178437D-04, - + .622530D-05, .174486D-05, .352866D-06, .414393D-07, - + .952125D-09, .000000D+00, .237232D+08, .178990D+08, - + .132653D+08, .982217D+07, .726765D+07, .537237D+07, - + .396835D+07, .292829D+07, .215906D+07, .159019D+07, - + .117017D+07, .860109D+06, .631607D+06, .463245D+06, - + .339417D+06, .248366D+06, .181544D+06, .132518D+06, - + .966202D+05, .703449D+05, .511535D+05, .371417D+05, - + .269348D+05, .195026D+05, .141034D+05, .101812D+05 / - DATA (UPDI(I),I=7125,7176) / - + .734283D+04, .526403D+04, .378772D+04, .272235D+04, - + .195516D+04, .140323D+04, .100679D+04, .723021D+03, - + .519128D+03, .373137D+03, .268698D+03, .193942D+03, - + .140430D+03, .102040D+03, .744970D+02, .546427D+02, - + .402940D+02, .298782D+02, .222840D+02, .167129D+02, - + .126204D+02, .956316D+01, .729572D+01, .558224D+01, - + .429257D+01, .331245D+01, .256338D+01, .198822D+01, - + .154446D+01, .120092D+01, .933973D+00, .726112D+00, - + .563880D+00, .437176D+00, .338119D+00, .260743D+00, - + .200227D+00, .153251D+00, .116469D+00, .879733D-01, - + .659706D-01, .490738D-01, .361665D-01, .263795D-01, - + .190139D-01, .135269D-01, .948152D-02, .652767D-02, - + .442165D-02, .292334D-02, .188475D-02, .118077D-02 / - DATA (UPDI(I),I=7177,7228) / - + .715042D-03, .416272D-03, .230925D-03, .121219D-03, - + .590559D-04, .264097D-04, .105142D-04, .359010D-05, - + .983863D-06, .194236D-06, .220769D-07, .299569D-09, - + .000000D+00, .305659D+08, .229685D+08, .169409D+08, - + .124829D+08, .919089D+07, .676019D+07, .496815D+07, - + .364723D+07, .267509D+07, .195982D+07, .143440D+07, - + .104856D+07, .765708D+06, .558428D+06, .406801D+06, - + .295935D+06, .215025D+06, .156007D+06, .113043D+06, - + .817847D+05, .590906D+05, .426245D+05, .307046D+05, - + .220810D+05, .158570D+05, .113658D+05, .813787D+04, - + .579031D+04, .413496D+04, .294908D+04, .210135D+04, - + .149609D+04, .106463D+04, .758221D+03, .539786D+03, - + .384648D+03, .274565D+03, .196423D+03, .140951D+03 / - DATA (UPDI(I),I=7229,7280) / - + .101491D+03, .734195D+02, .533570D+02, .389811D+02, - + .286356D+02, .211572D+02, .157185D+02, .117578D+02, - + .882476D+01, .666854D+01, .505351D+01, .384877D+01, - + .294144D+01, .225431D+01, .173158D+01, .133203D+01, - + .102564D+01, .789849D+00, .608029D+00, .467520D+00, - + .358876D+00, .274796D+00, .209789D+00, .159473D+00, - + .120824D+00, .908831D-01, .679373D-01, .504139D-01, - + .371057D-01, .270543D-01, .195196D-01, .139149D-01, - + .978887D-02, .678348D-02, .461585D-02, .308977D-02, - + .201796D-02, .128483D-02, .794618D-03, .474850D-03, - + .272670D-03, .149129D-03, .771375D-04, .370090D-04, - + .162890D-04, .637915D-05, .214125D-05, .576723D-06, - + .111767D-06, .123337D-07, .366811D-10, .000000D+00 / - DATA (UPDI(I),I=7281,7332) / - + .387052D+08, .289707D+08, .212680D+08, .155973D+08, - + .114288D+08, .836540D+07, .611747D+07, .446852D+07, - + .326080D+07, .237662D+07, .173034D+07, .125818D+07, - + .913806D+06, .662780D+06, .480120D+06, .347291D+06, - + .250880D+06, .180951D+06, .130332D+06, .937184D+05, - + .672918D+05, .482333D+05, .345204D+05, .246617D+05, - + .175911D+05, .125220D+05, .890294D+04, .628879D+04, - + .445818D+04, .315597D+04, .223169D+04, .157660D+04, - + .111306D+04, .786355D+03, .555229D+03, .392365D+03, - + .277706D+03, .196972D+03, .140120D+03, .100010D+03, - + .717092D+02, .516506D+02, .373963D+02, .272241D+02, - + .199324D+02, .146739D+02, .108767D+02, .808849D+01, - + .605626D+01, .454717D+01, .343121D+01, .259809D+01 / - DATA (UPDI(I),I=7333,7384) / - + .197272D+01, .150122D+01, .114408D+01, .872711D+00, - + .665793D+00, .507730D+00, .386733D+00, .294068D+00, - + .223046D+00, .168669D+00, .126994D+00, .952993D-01, - + .709937D-01, .525555D-01, .386196D-01, .281457D-01, - + .203182D-01, .145130D-01, .102414D-01, .713100D-02, - + .489051D-02, .329271D-02, .218069D-02, .140875D-02, - + .887042D-03, .542421D-03, .320419D-03, .181830D-03, - + .982552D-04, .501993D-04, .237827D-04, .103336D-04, - + .399449D-05, .132307D-05, .351671D-06, .671801D-07, - + .722018D-08, .000000D+00, .000000D+00, .482370D+08, - + .359675D+08, .262843D+08, .191873D+08, .139935D+08, - + .101941D+08, .741893D+07, .539278D+07, .391578D+07, - + .283969D+07, .205694D+07, .148793D+07, .107499D+07 / - DATA (UPDI(I),I=7385,7436) / - + .775527D+06, .558742D+06, .401934D+06, .288723D+06, - + .207058D+06, .148268D+06, .105985D+06, .756406D+05, - + .538847D+05, .383234D+05, .272038D+05, .192778D+05, - + .136313D+05, .962586D+04, .675173D+04, .475255D+04, - + .334015D+04, .234456D+04, .164394D+04, .115172D+04, - + .807361D+03, .565544D+03, .396439D+03, .278297D+03, - + .195757D+03, .138089D+03, .977262D+02, .694732D+02, - + .496098D+02, .356075D+02, .256964D+02, .186495D+02, - + .136088D+02, .999885D+01, .736988D+01, .546961D+01, - + .407027D+01, .304416D+01, .228460D+01, .171931D+01, - + .129677D+01, .979504D+00, .740538D+00, .559943D+00, - + .423219D+00, .319500D+00, .240787D+00, .181011D+00, - + .135665D+00, .101234D+00, .752940D-01, .555886D-01 / - DATA (UPDI(I),I=7437,7488) / - + .407820D-01, .296985D-01, .214486D-01, .153433D-01, - + .108596D-01, .759317D-02, .523828D-02, .355912D-02, - + .237380D-02, .155735D-02, .996463D-03, .621400D-03, - + .376284D-03, .220095D-03, .123656D-03, .661500D-04, - + .334534D-04, .156867D-04, .674520D-05, .258030D-05, - + .845581D-06, .222365D-06, .419722D-07, .440587D-08, - + .000000D+00, .000000D+00, .592390D+08, .440074D+08, - + .320167D+08, .232668D+08, .168913D+08, .122484D+08, - + .887215D+07, .641853D+07, .463811D+07, .334710D+07, - + .241244D+07, .173631D+07, .124802D+07, .895683D+06, - + .641902D+06, .459280D+06, .328115D+06, .234003D+06, - + .166616D+06, .118416D+06, .840173D+05, .594953D+05, - + .420563D+05, .296687D+05, .208915D+05, .146767D+05 / - DATA (UPDI(I),I=7489,7540) / - + .102960D+05, .717261D+04, .501423D+04, .349948D+04, - + .243889D+04, .169768D+04, .118056D+04, .821359D+03, - + .570934D+03, .397101D+03, .276555D+03, .192974D+03, - + .135022D+03, .947727D+02, .668171D+02, .473163D+02, - + .336771D+02, .240991D+02, .173427D+02, .125481D+02, - + .914170D+01, .668074D+01, .491623D+01, .362734D+01, - + .268991D+01, .200165D+01, .149364D+01, .111706D+01, - + .836655D+00, .627224D+00, .470288D+00, .352483D+00, - + .263880D+00, .197216D+00, .147027D+00, .109283D+00, - + .808735D-01, .596563D-01, .436804D-01, .317818D-01, - + .229541D-01, .164416D-01, .116650D-01, .818845D-02, - + .567847D-02, .388518D-02, .261804D-02, .173169D-02, - + .112675D-02, .714961D-03, .442149D-03, .265505D-03 / - DATA (UPDI(I),I=7541,7592) / - + .153999D-03, .857932D-04, .455081D-04, .228183D-04, - + .106078D-04, .452145D-05, .171430D-05, .556565D-06, - + .144952D-06, .270558D-07, .278056D-08, .000000D+00, - + .000000D+00, .717676D+08, .531227D+08, .384807D+08, - + .278416D+08, .201225D+08, .145258D+08, .104737D+08, - + .754209D+07, .542440D+07, .389589D+07, .279441D+07, - + .200137D+07, .143137D+07, .102208D+07, .728719D+06, - + .518676D+06, .368580D+06, .261443D+06, .185131D+06, - + .130840D+06, .923033D+05, .649841D+05, .456648D+05, - + .320204D+05, .224088D+05, .156438D+05, .109043D+05, - + .754625D+04, .524038D+04, .363256D+04, .251414D+04, - + .173775D+04, .119975D+04, .828628D+03, .571704D+03, - + .394635D+03, .272732D+03, .188830D+03, .131085D+03 / - DATA (UPDI(I),I=7593,7644) / - + .912807D+02, .638413D+02, .448456D+02, .316607D+02, - + .224724D+02, .160407D+02, .115115D+02, .831848D+01, - + .602948D+01, .440105D+01, .322082D+01, .236914D+01, - + .174876D+01, .129446D+01, .960363D+00, .713573D+00, - + .530718D+00, .394796D+00, .293585D+00, .218077D+00, - + .161722D+00, .119638D+00, .882456D-01, .648083D-01, - + .474457D-01, .344782D-01, .248983D-01, .178487D-01, - + .126899D-01, .893692D-02, .622737D-02, .428698D-02, - + .291174D-02, .194785D-02, .127904D-02, .826245D-03, - + .520492D-03, .319564D-03, .190507D-03, .109699D-03, - + .606674D-04, .319444D-04, .158974D-04, .733388D-05, - + .310108D-05, .116599D-05, .375127D-06, .967440D-07, - + .178527D-07, .179977D-08, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=7645,7696) / - + .448666D+05, .675853D+05, .526777D+05, .410642D+05, - + .320164D+05, .249669D+05, .194738D+05, .151932D+05, - + .118569D+05, .925642D+04, .722905D+04, .564823D+04, - + .441537D+04, .345364D+04, .270322D+04, .211750D+04, - + .166018D+04, .130296D+04, .102381D+04, .805545D+03, - + .634789D+03, .501108D+03, .396373D+03, .314244D+03, - + .249777D+03, .199119D+03, .159261D+03, .127462D+03, - + .102772D+03, .832516D+02, .677885D+02, .555134D+02, - + .457460D+02, .379747D+02, .317406D+02, .267391D+02, - + .227118D+02, .194555D+02, .168100D+02, .146480D+02, - + .128723D+02, .114009D+02, .101719D+02, .913581D+01, - + .825347D+01, .749398D+01, .683523D+01, .625172D+01, - + .573557D+01, .526858D+01, .484628D+01, .445968D+01 / - DATA (UPDI(I),I=7697,7748) / - + .410320D+01, .377248D+01, .346417D+01, .317570D+01, - + .290510D+01, .265087D+01, .241188D+01, .218728D+01, - + .197639D+01, .177870D+01, .159378D+01, .142203D+01, - + .126134D+01, .111251D+01, .975234D+00, .849205D+00, - + .734100D+00, .629570D+00, .535239D+00, .450700D+00, - + .375471D+00, .309027D+00, .251428D+00, .201285D+00, - + .158471D+00, .122394D+00, .924549D-01, .680450D-01, - + .485545D-01, .333980D-01, .218934D-01, .135594D-01, - + .777950D-02, .402130D-02, .178746D-02, .626004D-03, - + .141934D-03, .111153D-04, .000000D+00, .120373D+06, - + .942878D+05, .730087D+05, .565358D+05, .437865D+05, - + .339158D+05, .262755D+05, .203595D+05, .157797D+05, - + .122329D+05, .948672D+04, .735943D+04, .571185D+04 / - DATA (UPDI(I),I=7749,7800) / - + .443518D+04, .344603D+04, .267920D+04, .208477D+04, - + .162366D+04, .126595D+04, .988238D+03, .772602D+03, - + .605000D+03, .474689D+03, .373253D+03, .294248D+03, - + .232632D+03, .184540D+03, .146460D+03, .117127D+03, - + .941072D+02, .760172D+02, .617613D+02, .505049D+02, - + .416113D+02, .345290D+02, .288833D+02, .243677D+02, - + .207370D+02, .178046D+02, .154193D+02, .134700D+02, - + .118609D+02, .105226D+02, .939791D+01, .844368D+01, - + .762492D+01, .691738D+01, .629288D+01, .574281D+01, - + .524724D+01, .480132D+01, .439517D+01, .402280D+01, - + .367937D+01, .336122D+01, .306543D+01, .278980D+01, - + .253258D+01, .229243D+01, .206828D+01, .185926D+01, - + .166469D+01, .148391D+01, .131716D+01, .116220D+01 / - DATA (UPDI(I),I=7801,7852) / - + .101965D+01, .889060D+00, .769987D+00, .661968D+00, - + .564545D+00, .477223D+00, .399508D+00, .330848D+00, - + .270624D+00, .218794D+00, .174008D+00, .136055D+00, - + .104328D+00, .782104D-01, .571031D-01, .403970D-01, - + .275328D-01, .178665D-01, .109434D-01, .620053D-02, - + .315987D-02, .138118D-02, .474089D-03, .105300D-03, - + .833329D-05, .000000D+00, .164452D+06, .128177D+06, - + .986863D+05, .759794D+05, .585034D+05, .450473D+05, - + .346913D+05, .267175D+05, .205807D+05, .158554D+05, - + .122185D+05, .941788D+04, .726205D+04, .560162D+04, - + .432321D+04, .333827D+04, .257968D+04, .199496D+04, - + .154437D+04, .119682D+04, .928804D+03, .721883D+03, - + .562123D+03, .438618D+03, .343111D+03, .269149D+03 / - DATA (UPDI(I),I=7853,7904) / - + .211850D+03, .166801D+03, .132356D+03, .105518D+03, - + .845826D+02, .682011D+02, .553594D+02, .452825D+02, - + .373133D+02, .310007D+02, .259839D+02, .219729D+02, - + .187515D+02, .161439D+02, .140232D+02, .122796D+02, - + .108353D+02, .962582D+01, .860334D+01, .772897D+01, - + .697610D+01, .631398D+01, .573315D+01, .521201D+01, - + .474528D+01, .432223D+01, .393643D+01, .358254D+01, - + .325661D+01, .295538D+01, .267639D+01, .241766D+01, - + .217762D+01, .195500D+01, .174873D+01, .155798D+01, - + .138184D+01, .122043D+01, .107138D+01, .935165D+00, - + .811165D+00, .698833D+00, .597586D+00, .506866D+00, - + .426079D+00, .354659D+00, .291996D+00, .237398D+00, - + .190739D+00, .150709D+00, .117037D+00, .891056D-01 / - DATA (UPDI(I),I=7905,7956) / - + .662955D-01, .480163D-01, .336737D-01, .227373D-01, - + .146030D-01, .884336D-02, .494643D-02, .248374D-02, - + .106668D-02, .358398D-03, .778542D-04, .623256D-05, - + .000000D+00, .219595D+06, .170407D+06, .130537D+06, - + .999849D+05, .765869D+05, .586593D+05, .449316D+05, - + .344151D+05, .263634D+05, .201959D+05, .154743D+05, - + .118578D+05, .908928D+04, .696871D+04, .534530D+04, - + .410167D+04, .314944D+04, .241977D+04, .186087D+04, - + .143240D+04, .110403D+04, .852103D+03, .658844D+03, - + .510401D+03, .396368D+03, .308645D+03, .241150D+03, - + .188444D+03, .148421D+03, .117450D+03, .934586D+02, - + .748125D+02, .602952D+02, .489784D+02, .400873D+02, - + .330881D+02, .275593D+02, .231637D+02, .196524D+02 / - DATA (UPDI(I),I=7957,8008) / - + .168239D+02, .145343D+02, .126597D+02, .111129D+02, - + .982230D+01, .873511D+01, .780857D+01, .701359D+01, - + .631695D+01, .570822D+01, .516427D+01, .467927D+01, - + .424170D+01, .384464D+01, .348233D+01, .315044D+01, - + .284543D+01, .256455D+01, .230560D+01, .206679D+01, - + .184663D+01, .164388D+01, .145753D+01, .128649D+01, - + .113070D+01, .987723D+00, .857850D+00, .740350D+00, - + .634565D+00, .539809D+00, .455435D+00, .380770D+00, - + .315186D+00, .258023D+00, .208539D+00, .166537D+00, - + .130753D+00, .100866D+00, .762604D-01, .563214D-01, - + .404744D-01, .281454D-01, .188329D-01, .119748D-01, - + .717208D-02, .396175D-02, .196099D-02, .827972D-03, - + .272575D-03, .579899D-04, .469378D-05, .000000D+00 / - DATA (UPDI(I),I=8009,8060) / - + .185872D+06, .222317D+06, .169516D+06, .129232D+06, - + .985190D+05, .750920D+05, .572358D+05, .436197D+05, - + .332444D+05, .253350D+05, .193095D+05, .147171D+05, - + .112193D+05, .855374D+04, .652379D+04, .497692D+04, - + .379891D+04, .290115D+04, .221735D+04, .169609D+04, - + .129892D+04, .995985D+03, .764990D+03, .588636D+03, - + .453997D+03, .351068D+03, .272383D+03, .211331D+03, - + .165273D+03, .129862D+03, .102611D+03, .815692D+02, - + .652925D+02, .526848D+02, .428413D+02, .351390D+02, - + .290902D+02, .243075D+02, .205069D+02, .174601D+02, - + .150048D+02, .130029D+02, .113574D+02, .998936D+01, - + .884099D+01, .786565D+01, .703168D+01, .630348D+01, - + .566957D+01, .510536D+01, .460444D+01, .415453D+01 / - DATA (UPDI(I),I=8061,8112) / - + .374822D+01, .337929D+01, .304310D+01, .273577D+01, - + .245432D+01, .219627D+01, .195964D+01, .174275D+01, - + .154416D+01, .136270D+01, .119710D+01, .104715D+01, - + .910332D+00, .786789D+00, .675675D+00, .576236D+00, - + .487696D+00, .409333D+00, .340410D+00, .280245D+00, - + .228142D+00, .183322D+00, .145529D+00, .113548D+00, - + .870249D-01, .653470D-01, .479135D-01, .341687D-01, - + .235643D-01, .156278D-01, .983972D-02, .582986D-02, - + .318116D-02, .155271D-02, .644826D-03, .208155D-03, - + .434229D-04, .355237D-05, .000000D+00, .392093D+06, - + .301692D+06, .228840D+06, .173537D+06, .131582D+06, - + .997442D+05, .756020D+05, .572905D+05, .434112D+05, - + .328885D+05, .249163D+05, .188745D+05, .142989D+05 / - DATA (UPDI(I),I=8113,8164) / - + .108325D+05, .820818D+04, .622053D+04, .471607D+04, - + .357674D+04, .271444D+04, .206140D+04, .156708D+04, - + .119261D+04, .909006D+03, .694009D+03, .531027D+03, - + .407332D+03, .313468D+03, .241182D+03, .187060D+03, - + .145766D+03, .114228D+03, .900635D+02, .715110D+02, - + .572492D+02, .461951D+02, .376081D+02, .309103D+02, - + .256495D+02, .214946D+02, .181834D+02, .155293D+02, - + .133761D+02, .116146D+02, .101566D+02, .893778D+01, - + .790699D+01, .702927D+01, .626621D+01, .560493D+01, - + .501919D+01, .450175D+01, .403951D+01, .362438D+01, - + .324967D+01, .291026D+01, .260194D+01, .232138D+01, - + .206585D+01, .183307D+01, .162115D+01, .142842D+01, - + .125353D+01, .109499D+01, .952432D+00, .823246D+00 / - DATA (UPDI(I),I=8165,8216) / - + .707405D+00, .603944D+00, .512002D+00, .430716D+00, - + .359287D+00, .296912D+00, .242865D+00, .196411D+00, - + .156748D+00, .123564D+00, .957056D-01, .727915D-01, - + .542235D-01, .394237D-01, .278643D-01, .190332D-01, - + .124940D-01, .777865D-02, .455232D-02, .245007D-02, - + .117736D-02, .480197D-03, .151825D-03, .310518D-04, - + .256866D-05, .000000D+00, .523997D+06, .401489D+06, - + .303045D+06, .228667D+06, .172506D+06, .130094D+06, - + .980898D+05, .739358D+05, .557202D+05, .419809D+05, - + .316257D+05, .238198D+05, .179398D+05, .135098D+05, - + .101745D+05, .766286D+04, .577270D+04, .434977D+04, - + .327925D+04, .247350D+04, .186738D+04, .141113D+04, - + .106782D+04, .809282D+03, .614602D+03, .467857D+03 / - DATA (UPDI(I),I=8217,8268) / - + .357277D+03, .272722D+03, .209864D+03, .162253D+03, - + .126151D+03, .986908D+02, .777591D+02, .617841D+02, - + .494882D+02, .400023D+02, .326518D+02, .269149D+02, - + .224107D+02, .188414D+02, .159951D+02, .136974D+02, - + .118259D+02, .102836D+02, .899968D+01, .791823D+01, - + .700111D+01, .620718D+01, .552215D+01, .491822D+01, - + .438732D+01, .391551D+01, .349407D+01, .311583D+01, - + .277522D+01, .246770D+01, .218959D+01, .193789D+01, - + .171008D+01, .150404D+01, .131789D+01, .115009D+01, - + .998986D+00, .864018D+00, .742537D+00, .634348D+00, - + .538383D+00, .453693D+00, .379341D+00, .314465D+00, - + .258219D+00, .209837D+00, .168565D+00, .133591D+00, - + .104556D+00, .803768D-01, .606543D-01, .448108D-01 / - DATA (UPDI(I),I=8269,8320) / - + .322969D-01, .226161D-01, .152945D-01, .993221D-02, - + .611071D-02, .352964D-02, .187180D-02, .884400D-03, - + .353639D-03, .109255D-03, .218503D-04, .183067D-05, - + .000000D+00, .688263D+06, .525249D+06, .394611D+06, - + .296350D+06, .222491D+06, .166970D+06, .125268D+06, - + .939447D+05, .704352D+05, .527897D+05, .395562D+05, - + .296309D+05, .221929D+05, .166182D+05, .124434D+05, - + .931656D+04, .697634D+04, .522449D+04, .391402D+04, - + .293341D+04, .220011D+04, .165146D+04, .124116D+04, - + .934111D+03, .704374D+03, .532325D+03, .403538D+03, - + .305725D+03, .233506D+03, .179182D+03, .138272D+03, - + .107371D+03, .839779D+02, .662469D+02, .526903D+02, - + .423007D+02, .343002D+02, .280942D+02, .232491D+02 / - DATA (UPDI(I),I=8321,8372) / - + .194305D+02, .164004D+02, .139658D+02, .119914D+02, - + .103712D+02, .902765D+01, .790052D+01, .694845D+01, - + .612768D+01, .542253D+01, .480371D+01, .426230D+01, - + .378360D+01, .335826D+01, .297863D+01, .263873D+01, - + .233365D+01, .205942D+01, .181277D+01, .159093D+01, - + .139156D+01, .121261D+01, .105234D+01, .908954D+00, - + .781722D+00, .667965D+00, .567332D+00, .478674D+00, - + .400966D+00, .333214D+00, .274510D+00, .223976D+00, - + .180822D+00, .144284D+00, .113551D+00, .882350D-01, - + .673212D-01, .504035D-01, .369304D-01, .263851D-01, - + .183048D-01, .122552D-01, .787285D-02, .478631D-02, - + .272850D-02, .142565D-02, .662273D-03, .259628D-03, - + .783904D-04, .153376D-04, .130155D-05, .000000D+00 / - DATA (UPDI(I),I=8373,8424) / - + .890402D+06, .676916D+06, .506275D+06, .378480D+06, - + .282839D+06, .211263D+06, .157743D+06, .117725D+06, - + .878296D+05, .654962D+05, .488267D+05, .363852D+05, - + .271072D+05, .201885D+05, .150335D+05, .111926D+05, - + .833306D+04, .620400D+04, .462005D+04, .344141D+04, - + .256502D+04, .191311D+04, .142846D+04, .106794D+04, - + .799850D+03, .600319D+03, .451907D+03, .339921D+03, - + .257777D+03, .196394D+03, .150473D+03, .116017D+03, - + .901044D+02, .705929D+02, .557700D+02, .444817D+02, - + .358413D+02, .291780D+02, .240040D+02, .199473D+02, - + .167436D+02, .141811D+02, .121115D+02, .104201D+02, - + .902291D+01, .785528D+01, .687284D+01, .602931D+01, - + .530764D+01, .467717D+01, .412816D+01, .364515D+01 / - DATA (UPDI(I),I=8425,8476) / - + .321819D+01, .283919D+01, .250174D+01, .220062D+01, - + .193155D+01, .169101D+01, .147600D+01, .128397D+01, - + .111270D+01, .960288D+00, .824806D+00, .705364D+00, - + .599270D+00, .506037D+00, .424448D+00, .353418D+00, - + .291911D+00, .238988D+00, .193750D+00, .155398D+00, - + .123165D+00, .962532D-01, .742567D-01, .562296D-01, - + .417678D-01, .303498D-01, .214938D-01, .147725D-01, - + .979108D-02, .622195D-02, .373768D-02, .210278D-02, - + .108251D-02, .494414D-03, .190042D-03, .560976D-04, - + .107464D-04, .923543D-06, .000000D+00, .113628D+07, - + .860658D+06, .640902D+06, .477016D+06, .354883D+06, - + .263873D+06, .196117D+06, .145680D+06, .108168D+06, - + .802725D+05, .595476D+05, .441520D+05, .327257D+05 / - DATA (UPDI(I),I=8477,8528) / - + .242464D+05, .179596D+05, .132989D+05, .984668D+04, - + .728969D+04, .539741D+04, .399692D+04, .296124D+04, - + .219515D+04, .162884D+04, .121002D+04, .900395D+03, - + .671326D+03, .501987D+03, .375005D+03, .282446D+03, - + .213721D+03, .162629D+03, .124541D+03, .960765D+02, - + .747788D+02, .586979D+02, .465257D+02, .372623D+02, - + .301583D+02, .246709D+02, .203896D+02, .170238D+02, - + .143433D+02, .121870D+02, .104316D+02, .898690D+01, - + .778410D+01, .677591D+01, .591369D+01, .517908D+01, - + .454015D+01, .398632D+01, .350146D+01, .307504D+01, - + .269854D+01, .236516D+01, .206937D+01, .180660D+01, - + .157309D+01, .136562D+01, .118147D+01, .101825D+01, - + .873923D+00, .746431D+00, .634750D+00, .536193D+00 / - DATA (UPDI(I),I=8529,8580) / - + .450150D+00, .375350D+00, .310667D+00, .255036D+00, - + .207497D+00, .167147D+00, .133183D+00, .104846D+00, - + .813640D-01, .623179D-01, .468328D-01, .345130D-01, - + .248700D-01, .174583D-01, .118866D-01, .779905D-02, - + .490233D-02, .290983D-02, .161551D-02, .819381D-03, - + .367943D-03, .138686D-03, .400369D-04, .751514D-05, - + .653977D-06, .000000D+00, .143205D+07, .108080D+07, - + .801434D+06, .593947D+06, .439957D+06, .325690D+06, - + .240978D+06, .178191D+06, .131697D+06, .972757D+05, - + .718169D+05, .529910D+05, .390834D+05, .288113D+05, - + .212317D+05, .156399D+05, .115184D+05, .848112D+04, - + .624484D+04, .459838D+04, .338724D+04, .249620D+04, - + .184113D+04, .135937D+04, .100525D+04, .744759D+03 / - DATA (UPDI(I),I=8581,8632) / - + .553329D+03, .410645D+03, .307272D+03, .230985D+03, - + .174618D+03, .132855D+03, .101834D+03, .787639D+02, - + .614471D+02, .484154D+02, .385525D+02, .310290D+02, - + .252462D+02, .207559D+02, .172409D+02, .144531D+02, - + .122191D+02, .104071D+02, .892127D+01, .768871D+01, - + .665940D+01, .578253D+01, .503848D+01, .439416D+01, - + .383819D+01, .335381D+01, .292995D+01, .255769D+01, - + .222984D+01, .194059D+01, .168510D+01, .145940D+01, - + .126007D+01, .108422D+01, .929316D+00, .793187D+00, - + .673689D+00, .569672D+00, .478466D+00, .399358D+00, - + .331038D+00, .272350D+00, .222215D+00, .179665D+00, - + .143802D+00, .113829D+00, .890054D-01, .685860D-01, - + .521514D-01, .388955D-01, .284364D-01, .203204D-01 / - DATA (UPDI(I),I=8633,8684) / - + .141388D-01, .953607D-02, .619358D-02, .385077D-02, - + .225831D-02, .123725D-02, .618250D-03, .272959D-03, - + .100900D-03, .284971D-04, .524519D-05, .462120D-06, - + .000000D+00, .178400D+07, .134174D+07, .990825D+06, - + .731244D+06, .539366D+06, .397567D+06, .292880D+06, - + .215613D+06, .158640D+06, .116643D+06, .857164D+05, - + .629493D+05, .462058D+05, .338958D+05, .248547D+05, - + .182162D+05, .133468D+05, .977587D+04, .715971D+04, - + .524332D+04, .384085D+04, .281445D+04, .206387D+04, - + .151487D+04, .111354D+04, .819963D+03, .605450D+03, - + .446492D+03, .332004D+03, .248012D+03, .186316D+03, - + .140876D+03, .107321D+03, .825113D+02, .639939D+02, - + .501361D+02, .397031D+02, .317852D+02, .257280D+02 / - DATA (UPDI(I),I=8685,8736) / - + .210457D+02, .173954D+02, .145117D+02, .122092D+02, - + .103485D+02, .882787D+01, .757094D+01, .652509D+01, - + .563754D+01, .488745D+01, .424069D+01, .368513D+01, - + .320342D+01, .278399D+01, .241753D+01, .209653D+01, - + .181489D+01, .156754D+01, .135030D+01, .115957D+01, - + .992318D+00, .845885D+00, .717992D+00, .606416D+00, - + .509903D+00, .425815D+00, .353349D+00, .291174D+00, - + .238116D+00, .193095D+00, .155144D+00, .123380D+00, - + .970208D-01, .753488D-01, .576536D-01, .435208D-01, - + .322118D-01, .233626D-01, .165549D-01, .114168D-01, - + .762758D-02, .490379D-02, .301554D-02, .174724D-02, - + .944592D-03, .465018D-03, .201859D-03, .731870D-04, - + .202291D-04, .365370D-05, .325859D-06, .000000D+00 / - DATA (UPDI(I),I=8737,8788) / - + .219846D+07, .164786D+07, .121197D+07, .890810D+06, - + .654347D+06, .480301D+06, .352325D+06, .258258D+06, - + .189185D+06, .138485D+06, .101308D+06, .740591D+05, - + .541073D+05, .395044D+05, .288277D+05, .210245D+05, - + .153275D+05, .111695D+05, .813803D+04, .592834D+04, - + .431929D+04, .314770D+04, .229537D+04, .167523D+04, - + .122431D+04, .896237D+03, .657845D+03, .482189D+03, - + .356391D+03, .264628D+03, .197606D+03, .148526D+03, - + .112486D+03, .859883D+02, .663182D+02, .516759D+02, - + .407078D+02, .324241D+02, .261155D+02, .212596D+02, - + .174887D+02, .145209D+02, .121594D+02, .102576D+02, - + .870866D+01, .743271D+01, .637484D+01, .548044D+01, - + .472758D+01, .408120D+01, .352844D+01, .305144D+01 / - DATA (UPDI(I),I=8789,8840) / - + .263815D+01, .227892D+01, .196592D+01, .169282D+01, - + .145432D+01, .124605D+01, .106427D+01, .905812D+00, - + .767917D+00, .648214D+00, .544422D+00, .455201D+00, - + .377956D+00, .311812D+00, .255429D+00, .207630D+00, - + .167341D+00, .133609D+00, .105571D+00, .824691D-01, - + .636125D-01, .483297D-01, .362171D-01, .266015D-01, - + .191394D-01, .134484D-01, .919205D-02, .608304D-02, - + .387100D-02, .235432D-02, .134769D-02, .718922D-03, - + .348674D-03, .148816D-03, .529280D-04, .143222D-04, - + .254018D-05, .229298D-06, .000000D+00, .268164D+07, - + .200338D+07, .146764D+07, .107443D+07, .786035D+06, - + .574602D+06, .419750D+06, .306387D+06, .223483D+06, - + .162883D+06, .118632D+06, .863363D+05, .627907D+05 / - DATA (UPDI(I),I=8841,8892) / - + .456328D+05, .331436D+05, .240569D+05, .174531D+05, - + .126557D+05, .917450D+04, .664918D+04, .481924D+04, - + .349340D+04, .253372D+04, .183903D+04, .133653D+04, - + .972846D+03, .709997D+03, .517376D+03, .380188D+03, - + .280668D+03, .208378D+03, .155733D+03, .117284D+03, - + .891675D+02, .684039D+02, .530262D+02, .415624D+02, - + .329443D+02, .264090D+02, .213989D+02, .175226D+02, - + .144827D+02, .120719D+02, .101367D+02, .856576D+01, - + .727603D+01, .621049D+01, .531295D+01, .456044D+01, - + .391708D+01, .336936D+01, .289893D+01, .249334D+01, - + .214260D+01, .183862D+01, .157483D+01, .134575D+01, - + .114685D+01, .974260D+00, .824700D+00, .695325D+00, - + .583696D+00, .487493D+00, .405307D+00, .334599D+00 / - DATA (UPDI(I),I=8893,8944) / - + .274437D+00, .223484D+00, .180569D+00, .144637D+00, - + .114757D+00, .900913D-01, .699111D-01, .535586D-01, - + .404029D-01, .300560D-01, .219071D-01, .156356D-01, - + .108938D-01, .737954D-02, .483714D-02, .304672D-02, - + .183260D-02, .103636D-02, .545496D-03, .260638D-03, - + .109379D-03, .381662D-04, .101143D-04, .176271D-05, - + .161023D-06, .000000D+00, .449221D+05, .673987D+05, - + .525112D+05, .409157D+05, .318839D+05, .248488D+05, - + .193686D+05, .150995D+05, .117735D+05, .918218D+04, - + .716304D+04, .558957D+04, .436328D+04, .340741D+04, - + .266223D+04, .208118D+04, .162802D+04, .127451D+04, - + .998665D+03, .783343D+03, .615201D+03, .483843D+03, - + .381167D+03, .300861D+03, .238007D+03, .188770D+03 / - DATA (UPDI(I),I=8945,8996) / - + .150164D+03, .119479D+03, .957472D+02, .770618D+02, - + .623225D+02, .506712D+02, .414377D+02, .341184D+02, - + .282651D+02, .235798D+02, .198116D+02, .167641D+02, - + .142839D+02, .122500D+02, .105714D+02, .917178D+01, - + .799497D+01, .699646D+01, .614173D+01, .540403D+01, - + .476475D+01, .420158D+01, .370879D+01, .327033D+01, - + .288279D+01, .253810D+01, .223109D+01, .195743D+01, - + .171349D+01, .149617D+01, .130276D+01, .113090D+01, - + .978486D+00, .843608D+00, .724548D+00, .619737D+00, - + .527740D+00, .447595D+00, .377283D+00, .316230D+00, - + .263435D+00, .217984D+00, .179049D+00, .145876D+00, - + .117784D+00, .941544D-01, .744172D-01, .580575D-01, - + .447491D-01, .338820D-01, .251878D-01, .183315D-01 / - DATA (UPDI(I),I=8997,9048) / - + .130154D-01, .897495D-02, .597649D-02, .381768D-02, - + .230840D-02, .130824D-02, .679239D-03, .312888D-03, - + .121184D-03, .356809D-04, .636955D-05, .334388D-06, - + .000000D+00, .120150D+06, .940886D+05, .728310D+05, - + .563773D+05, .436453D+05, .337899D+05, .261634D+05, - + .202597D+05, .156909D+05, .121540D+05, .941655D+04, - + .729710D+04, .565652D+04, .438610D+04, .340252D+04, - + .264067D+04, .205066D+04, .159349D+04, .123929D+04, - + .964700D+03, .751834D+03, .586691D+03, .458557D+03, - + .359048D+03, .281745D+03, .221627D+03, .174855D+03, - + .137946D+03, .109621D+03, .874798D+02, .701505D+02, - + .565506D+02, .458557D+02, .374384D+02, .307585D+02, - + .254486D+02, .212098D+02, .178047D+02, .150535D+02 / - DATA (UPDI(I),I=9049,9100) / - + .128121D+02, .109754D+02, .945400D+01, .818377D+01, - + .711313D+01, .620320D+01, .542316D+01, .475206D+01, - + .416491D+01, .365487D+01, .320420D+01, .280868D+01, - + .245928D+01, .215021D+01, .187654D+01, .163420D+01, - + .141968D+01, .122995D+01, .106240D+01, .914701D+00, - + .784771D+00, .670742D+00, .570954D+00, .483840D+00, - + .408383D+00, .342544D+00, .285698D+00, .236810D+00, - + .194961D+00, .159312D+00, .129114D+00, .103687D+00, - + .824258D-01, .647783D-01, .502383D-01, .384864D-01, - + .289541D-01, .213800D-01, .154507D-01, .108879D-01, - + .744841D-02, .491709D-02, .311195D-02, .186231D-02, - + .104467D-02, .536036D-03, .243618D-03, .928607D-04, - + .268385D-04, .470897D-05, .250876D-06, .000000D+00 / - DATA (UPDI(I),I=9101,9152) / - + .164214D+06, .127965D+06, .984972D+05, .758109D+05, - + .583533D+05, .449136D+05, .345723D+05, .266116D+05, - + .204865D+05, .157717D+05, .121442D+05, .935185D+04, - + .720346D+04, .554966D+04, .427717D+04, .329750D+04, - + .254360D+04, .196306D+04, .151618D+04, .117194D+04, - + .906844D+03, .702518D+03, .545055D+03, .423582D+03, - + .329866D+03, .257482D+03, .201569D+03, .157751D+03, - + .124365D+03, .984489D+02, .783126D+02, .626203D+02, - + .503692D+02, .407942D+02, .332501D+02, .272942D+02, - + .225732D+02, .188058D+02, .157828D+02, .133359D+02, - + .113443D+02, .970505D+01, .834552D+01, .720693D+01, - + .624572D+01, .542705D+01, .472743D+01, .411930D+01, - + .359460D+01, .313398D+01, .273239D+01, .237992D+01 / - DATA (UPDI(I),I=9153,9204) / - + .207010D+01, .179751D+01, .155759D+01, .134650D+01, - + .116091D+01, .997965D+00, .855141D+00, .730213D+00, - + .621180D+00, .526298D+00, .443901D+00, .372917D+00, - + .311308D+00, .258401D+00, .213143D+00, .174612D+00, - + .141967D+00, .114468D+00, .914417D-01, .722993D-01, - + .565063D-01, .435704D-01, .331804D-01, .248072D-01, - + .181985D-01, .130618D-01, .913773D-02, .620332D-02, - + .406120D-02, .254761D-02, .150976D-02, .836993D-03, - + .423858D-03, .189810D-03, .711050D-04, .201425D-04, - + .346805D-05, .187783D-06, .000000D+00, .219343D+06, - + .170182D+06, .130336D+06, .998062D+05, .764277D+05, - + .585176D+05, .448056D+05, .343030D+05, .262638D+05, - + .201073D+05, .153956D+05, .117880D+05, .902737D+04 / - DATA (UPDI(I),I=9205,9256) / - + .691384D+04, .529669D+04, .405864D+04, .311137D+04, - + .238611D+04, .183113D+04, .140614D+04, .108086D+04, - + .831665D+03, .640823D+03, .494518D+03, .382368D+03, - + .296302D+03, .230263D+03, .178849D+03, .139938D+03, - + .109934D+03, .867805D+02, .688583D+02, .549619D+02, - + .441741D+02, .357323D+02, .291118D+02, .238992D+02, - + .197664D+02, .164719D+02, .138221D+02, .116791D+02, - + .992625D+01, .848160D+01, .727922D+01, .627053D+01, - + .541675D+01, .469173D+01, .406542D+01, .352845D+01, - + .305999D+01, .265408D+01, .229999D+01, .199064D+01, - + .172006D+01, .148332D+01, .127621D+01, .109515D+01, - + .937072D+00, .799266D+00, .679379D+00, .575301D+00, - + .485216D+00, .407381D+00, .340677D+00, .283078D+00 / - DATA (UPDI(I),I=9257,9308) / - + .233872D+00, .191997D+00, .156535D+00, .126647D+00, - + .101606D+00, .807511D-01, .635110D-01, .493704D-01, - + .378541D-01, .286605D-01, .212980D-01, .155248D-01, - + .110684D-01, .768856D-02, .518050D-02, .336416D-02, - + .209217D-02, .122810D-02, .673810D-03, .337283D-03, - + .149099D-03, .550365D-04, .153395D-04, .260852D-05, - + .143921D-06, .000000D+00, .185942D+06, .222079D+06, - + .169304D+06, .129043D+06, .983507D+05, .749422D+05, - + .571025D+05, .435013D+05, .331392D+05, .252415D+05, - + .192265D+05, .146435D+05, .111540D+05, .849589D+04, - + .647255D+04, .493157D+04, .375880D+04, .286569D+04, - + .218603D+04, .166843D+04, .127451D+04, .974450D+03, - + .745997D+03, .571887D+03, .439226D+03, .338035D+03 / - DATA (UPDI(I),I=9309,9360) / - + .260877D+03, .201180D+03, .156286D+03, .121890D+03, - + .955186D+02, .752369D+02, .596131D+02, .475628D+02, - + .381944D+02, .308943D+02, .251835D+02, .206841D+02, - + .171198D+02, .142706D+02, .119804D+02, .101185D+02, - + .859310D+01, .733109D+01, .627873D+01, .539326D+01, - + .464583D+01, .400399D+01, .345702D+01, .298263D+01, - + .257402D+01, .221965D+01, .191183D+01, .164413D+01, - + .141120D+01, .120856D+01, .103236D+01, .879354D+00, - + .746668D+00, .631837D+00, .532662D+00, .447262D+00, - + .373838D+00, .311232D+00, .257441D+00, .211719D+00, - + .173006D+00, .140388D+00, .113040D+00, .902455D-01, - + .713623D-01, .558374D-01, .431760D-01, .329221D-01, - + .247849D-01, .183084D-01, .132624D-01, .939353D-02 / - DATA (UPDI(I),I=9361,9412) / - + .647988D-02, .433403D-02, .279215D-02, .172174D-02, - + .100126D-02, .543780D-03, .269117D-03, .117466D-03, - + .427398D-04, .117277D-04, .197042D-05, .110728D-06, - + .000000D+00, .391807D+06, .301437D+06, .228613D+06, - + .173335D+06, .131402D+06, .995842D+05, .754597D+05, - + .571640D+05, .432989D+05, .327888D+05, .248278D+05, - + .187961D+05, .142294D+05, .107709D+05, .815363D+04, - + .617227D+04, .467338D+04, .353901D+04, .268111D+04, - + .203196D+04, .154110D+04, .116968D+04, .888779D+03, - + .676164D+03, .515279D+03, .393425D+03, .301179D+03, - + .230330D+03, .177441D+03, .137223D+03, .106617D+03, - + .832592D+02, .654012D+02, .517342D+02, .411889D+02, - + .330351D+02, .267040D+02, .217537D+02, .178608D+02 / - DATA (UPDI(I),I=9413,9464) / - + .147719D+02, .123068D+02, .103171D+02, .869851D+01, - + .736889D+01, .626789D+01, .534803D+01, .457698D+01, - + .391950D+01, .336310D+01, .288391D+01, .247400D+01, - + .212093D+01, .181632D+01, .155317D+01, .132571D+01, - + .112911D+01, .959251D+00, .812678D+00, .686363D+00, - + .577718D+00, .484457D+00, .404636D+00, .336411D+00, - + .278584D+00, .229194D+00, .187463D+00, .152341D+00, - + .122927D+00, .984157D-01, .781125D-01, .613988D-01, - + .477468D-01, .366874D-01, .277907D-01, .207802D-01, - + .152411D-01, .109582D-01, .770069D-02, .526799D-02, - + .349229D-02, .222834D-02, .135993D-02, .781850D-03, - + .419283D-03, .204550D-03, .878256D-04, .313381D-04, - + .840114D-05, .137768D-05, .782230D-07, .000000D+00 / - DATA (UPDI(I),I=9465,9516) / - + .523691D+06, .401216D+06, .302802D+06, .228451D+06, - + .172313D+06, .129923D+06, .979379D+05, .738009D+05, - + .556004D+05, .418746D+05, .315314D+05, .237362D+05, - + .178658D+05, .134442D+05, .101165D+05, .761152D+04, - + .572731D+04, .430965D+04, .324381D+04, .244221D+04, - + .183975D+04, .138675D+04, .104630D+04, .790287D+03, - + .597829D+03, .453036D+03, .344170D+03, .261136D+03, - + .199585D+03, .153114D+03, .118002D+03, .913991D+02, - + .712069D+02, .558671D+02, .441169D+02, .350979D+02, - + .281454D+02, .227483D+02, .185339D+02, .152135D+02, - + .125819D+02, .104724D+02, .876779D+01, .737707D+01, - + .623318D+01, .528389D+01, .449350D+01, .382404D+01, - + .326129D+01, .277988D+01, .237078D+01, .202076D+01 / - DATA (UPDI(I),I=9517,9568) / - + .172072D+01, .146321D+01, .124204D+01, .105209D+01, - + .888989D+00, .749118D+00, .629311D+00, .526888D+00, - + .439493D+00, .365140D+00, .301957D+00, .248719D+00, - + .203516D+00, .165550D+00, .133787D+00, .107347D+00, - + .854483D-01, .674217D-01, .526758D-01, .407095D-01, - + .310811D-01, .233876D-01, .173681D-01, .126470D-01, - + .902470D-02, .629179D-02, .426816D-02, .280432D-02, - + .177224D-02, .107049D-02, .608531D-03, .322335D-03, - + .155111D-03, .655878D-04, .230049D-04, .605462D-05, - + .978964D-06, .568151D-07, .000000D+00, .687936D+06, - + .524957D+06, .394352D+06, .296120D+06, .222286D+06, - + .166788D+06, .125107D+06, .938009D+05, .703076D+05, - + .526765D+05, .394558D+05, .295420D+05, .221141D+05 / - DATA (UPDI(I),I=9569,9620) / - + .165485D+05, .123817D+05, .926199D+04, .692810D+04, - + .518186D+04, .387636D+04, .290016D+04, .217075D+04, - + .162554D+04, .121828D+04, .913909D+03, .686528D+03, - + .516546D+03, .389575D+03, .293374D+03, .222541D+03, - + .169425D+03, .129566D+03, .995769D+02, .769718D+02, - + .599197D+02, .469484D+02, .370623D+02, .294936D+02, - + .236590D+02, .191337D+02, .155925D+02, .128042D+02, - + .105838D+02, .880128D+01, .735640D+01, .617556D+01, - + .520193D+01, .439647D+01, .371865D+01, .315254D+01, - + .267138D+01, .226512D+01, .191974D+01, .162556D+01, - + .137466D+01, .116051D+01, .977713D+00, .821716D+00, - + .688746D+00, .575530D+00, .479316D+00, .397706D+00, - + .328680D+00, .270362D+00, .221509D+00, .180272D+00 / - DATA (UPDI(I),I=9621,9672) / - + .145841D+00, .117206D+00, .935125D-01, .740080D-01, - + .580515D-01, .450812D-01, .346241D-01, .262663D-01, - + .196331D-01, .144800D-01, .104681D-01, .741355D-02, - + .512756D-02, .344922D-02, .224605D-02, .140583D-02, - + .840450D-03, .472396D-03, .247159D-03, .117323D-03, - + .488626D-04, .168522D-04, .435720D-05, .695445D-06, - + .412640D-07, .000000D+00, .890053D+06, .676605D+06, - + .505998D+06, .378234D+06, .282621D+06, .211069D+06, - + .157571D+06, .117572D+06, .876938D+05, .653758D+05, - + .487200D+05, .362906D+05, .270235D+05, .201144D+05, - + .149680D+05, .111346D+05, .828183D+04, .615874D+04, - + .458007D+04, .340611D+04, .253385D+04, .188559D+04, - + .140415D+04, .104648D+04, .780880D+03, .583538D+03 / - DATA (UPDI(I),I=9673,9724) / - + .437051D+03, .326772D+03, .246097D+03, .185997D+03, - + .141191D+03, .107706D+03, .826336D+02, .638479D+02, - + .496533D+02, .389078D+02, .307356D+02, .244776D+02, - + .196553D+02, .159062D+02, .129729D+02, .106517D+02, - + .879978D+01, .730803D+01, .609638D+01, .510353D+01, - + .428726D+01, .360460D+01, .303799D+01, .255941D+01, - + .215785D+01, .181858D+01, .153139D+01, .128795D+01, - + .108142D+01, .906200D+00, .757560D+00, .631612D+00, - + .525007D+00, .434941D+00, .358990D+00, .295123D+00, - + .241472D+00, .196787D+00, .159287D+00, .128160D+00, - + .102425D+00, .812589D-01, .639401D-01, .498588D-01, - + .384848D-01, .293742D-01, .221412D-01, .164394D-01, - + .120412D-01, .864218D-02, .607417D-02, .416779D-02 / - DATA (UPDI(I),I=9725,9776) / - + .278004D-02, .179412D-02, .111218D-02, .658062D-03, - + .365725D-03, .189006D-03, .885060D-04, .363095D-04, - + .123161D-04, .312950D-05, .493249D-06, .299129D-07, - + .000000D+00, .113591D+07, .860326D+06, .640607D+06, - + .476754D+06, .354650D+06, .263666D+06, .195934D+06, - + .145517D+06, .108023D+06, .801444D+05, .594342D+05, - + .440516D+05, .326368D+05, .241677D+05, .178900D+05, - + .132373D+05, .979231D+04, .724166D+04, .535498D+04, - + .395945D+04, .292816D+04, .216594D+04, .160304D+04, - + .118723D+04, .880248D+03, .653499D+03, .486198D+03, - + .361026D+03, .270026D+03, .202661D+03, .152755D+03, - + .115700D+03, .881313D+02, .676098D+02, .522032D+02, - + .406160D+02, .318597D+02, .251972D+02, .200953D+02 / - DATA (UPDI(I),I=9777,9828) / - + .161534D+02, .130878D+02, .106768D+02, .876452D+01, - + .723342D+01, .599718D+01, .499022D+01, .416727D+01, - + .348317D+01, .291878D+01, .244497D+01, .204980D+01, - + .171796D+01, .143874D+01, .120348D+01, .100507D+01, - + .837735D+00, .696620D+00, .577746D+00, .477711D+00, - + .393685D+00, .323236D+00, .264334D+00, .215134D+00, - + .174392D+00, .140397D+00, .112343D+00, .892861D-01, - + .704348D-01, .551034D-01, .427145D-01, .327706D-01, - + .248569D-01, .186161D-01, .137296D-01, .998709D-02, - + .711601D-02, .496359D-02, .337862D-02, .223465D-02, - + .142922D-02, .877461D-03, .513836D-03, .282361D-03, - + .144139D-03, .665868D-04, .269110D-04, .897956D-05, - + .224313D-05, .349239D-06, .216406D-07, .000000D+00 / - DATA (UPDI(I),I=9829,9880) / - + .143165D+07, .108045D+07, .801120D+06, .593668D+06, - + .439709D+06, .325469D+06, .240783D+06, .178017D+06, - + .131543D+06, .971396D+05, .716964D+05, .528844D+05, - + .389890D+05, .287278D+05, .211579D+05, .155746D+05, - + .114608D+05, .843018D+04, .619985D+04, .455865D+04, - + .335216D+04, .246522D+04, .181376D+04, .133519D+04, - + .983873D+03, .725840D+03, .536570D+03, .395804D+03, - + .294084D+03, .219242D+03, .164135D+03, .123472D+03, - + .934061D+02, .711661D+02, .545727D+02, .421709D+02, - + .328564D+02, .258128D+02, .204512D+02, .163334D+02, - + .131497D+02, .106602D+02, .869709D+01, .713430D+01, - + .587966D+01, .486358D+01, .403798D+01, .335566D+01, - + .279603D+01, .232898D+01, .194175D+01, .161849D+01 / - DATA (UPDI(I),I=9881,9932) / - + .134809D+01, .112159D+01, .931691D+00, .772463D+00, - + .638961D+00, .527148D+00, .433594D+00, .355460D+00, - + .290324D+00, .236174D+00, .191198D+00, .154164D+00, - + .123442D+00, .982351D-01, .776396D-01, .609006D-01, - + .473691D-01, .365019D-01, .278342D-01, .209807D-01, - + .156120D-01, .114368D-01, .826174D-02, .584391D-02, - + .404528D-02, .273152D-02, .179139D-02, .113543D-02, - + .690374D-03, .400109D-03, .217395D-03, .109619D-03, - + .499603D-04, .198932D-04, .653119D-05, .160450D-05, - + .246846D-06, .156243D-07, .000000D+00, .178358D+07, - + .134137D+07, .990490D+06, .730946D+06, .539102D+06, - + .397333D+06, .292672D+06, .215429D+06, .158476D+06, - + .116498D+06, .855884D+05, .628360D+05, .461056D+05 / - DATA (UPDI(I),I=9933,9984) / - + .338072D+05, .247764D+05, .181470D+05, .132857D+05, - + .972186D+04, .711202D+04, .520121D+04, .380368D+04, - + .278162D+04, .203487D+04, .148925D+04, .109088D+04, - + .799908D+03, .587684D+03, .430759D+03, .318024D+03, - + .235565D+03, .175209D+03, .130939D+03, .984033D+02, - + .744813D+02, .567395D+02, .435592D+02, .337185D+02, - + .263208D+02, .207220D+02, .164468D+02, .131597D+02, - + .106039D+02, .859942D+01, .701258D+01, .574564D+01, - + .472530D+01, .390087D+01, .322335D+01, .267082D+01, - + .221235D+01, .183441D+01, .152073D+01, .125985D+01, - + .104259D+01, .861483D+00, .710493D+00, .584621D+00, - + .479797D+00, .392587D+00, .320164D+00, .260129D+00, - + .210501D+00, .169511D+00, .135951D+00, .108269D+00 / - DATA (UPDI(I),I=9985,10036) / - + .856883D-01, .673463D-01, .525268D-01, .406193D-01, - + .311148D-01, .235818D-01, .176640D-01, .130591D-01, - + .950234D-02, .681667D-02, .478661D-02, .328812D-02, - + .220245D-02, .143217D-02, .899569D-03, .541688D-03, - + .310695D-03, .166915D-03, .831378D-04, .373847D-04, - + .146675D-04, .473915D-05, .114534D-05, .174175D-06, - + .112581D-07, .000000D+00, .219801D+07, .164745D+07, - + .121162D+07, .890494D+06, .654066D+06, .480052D+06, - + .352105D+06, .258062D+06, .189012D+06, .138331D+06, - + .101172D+06, .739389D+05, .540011D+05, .394104D+05, - + .287446D+05, .209511D+05, .152627D+05, .111123D+05, - + .808752D+04, .588374D+04, .427992D+04, .311293D+04, - + .226466D+04, .164809D+04, .120032D+04, .875000D+03 / - DATA (UPDI(I),I=10037,10088) / - + .639034D+03, .465533D+03, .341594D+03, .251459D+03, - + .185861D+03, .138027D+03, .103073D+03, .775243D+02, - + .586851D+02, .447707D+02, .344408D+02, .267195D+02, - + .209081D+02, .164949D+02, .131200D+02, .105098D+02, - + .847368D+01, .687033D+01, .559702D+01, .457704D+01, - + .375739D+01, .308748D+01, .254418D+01, .209590D+01, - + .172845D+01, .142519D+01, .117440D+01, .966732D+00, - + .794592D+00, .651891D+00, .533600D+00, .435643D+00, - + .354603D+00, .287680D+00, .232517D+00, .187169D+00, - + .149924D+00, .119601D+00, .947329D-01, .745634D-01, - + .582757D-01, .451937D-01, .347456D-01, .264572D-01, - + .199294D-01, .148343D-01, .108961D-01, .787489D-02, - + .560986D-02, .391041D-02, .266567D-02, .177115D-02 / - DATA (UPDI(I),I=10089,10140) / - + .114193D-02, .710785D-03, .423873D-03, .240606D-03, - + .127809D-03, .628838D-04, .279007D-04, .107872D-04, - + .343084D-05, .815938D-06, .122694D-06, .809612D-08, - + .000000D+00, .268116D+07, .200295D+07, .146726D+07, - + .107409D+07, .785737D+06, .574337D+06, .419516D+06, - + .306179D+06, .223299D+06, .162720D+06, .118488D+06, - + .862089D+05, .626780D+05, .455333D+05, .330557D+05, - + .239792D+05, .173845D+05, .125952D+05, .912103D+04, - + .660198D+04, .477757D+04, .345661D+04, .250123D+04, - + .181032D+04, .131115D+04, .950384D+03, .690105D+03, - + .499769D+03, .364553D+03, .266760D+03, .195983D+03, - + .144664D+03, .107373D+03, .802695D+02, .603951D+02, - + .457980D+02, .350207D+02, .270088D+02, .210108D+02 / - DATA (UPDI(I),I=10141,10192) / - + .164799D+02, .130329D+02, .103807D+02, .832228D+01, - + .670975D+01, .543573D+01, .442050D+01, .360896D+01, - + .294923D+01, .241708D+01, .198041D+01, .162444D+01, - + .133229D+01, .109204D+01, .894199D+00, .731123D+00, - + .596690D+00, .485873D+00, .394616D+00, .319539D+00, - + .257885D+00, .207346D+00, .166032D+00, .132288D+00, - + .104970D+00, .826925D-01, .647283D-01, .503061D-01, - + .387908D-01, .296493D-01, .224419D-01, .168013D-01, - + .124271D-01, .906863D-02, .650973D-02, .460498D-02, - + .318640D-02, .215546D-02, .142060D-02, .908113D-03, - + .560132D-03, .330800D-03, .185831D-03, .976042D-04, - + .474388D-04, .207691D-04, .791394D-05, .247813D-05, - + .580147D-06, .862900D-07, .581116D-08, .000000D+00 / -C----------------------------------------------------------------------- -C - Dr = DrI - Fl = FlI - Al = AlI - DO I=1,6 - Amass(I) = AmassI(I) - ENDDO - Iorder = Nint(Dr) - Nfl = Nint(Fl) - Alambda = Al -C - NX = NxI - NT = NTI - NfMx = NfMxI -C - QINI = QINII - QMAX = QMAXI - DO I=0,NT - QL(I) = QLI(I) - ENDDO -C - XMIN = XMINI - DO I=0,NX - XV(I) = XVI(I) - ENDDO -C - Do 11 Iq = 0, NT - QL(Iq) = Log (QL(Iq) /Al) - 11 Continue -C -C Since quark = anti-quark for nfl>2 at this stage, -C we Read out only the non-redundent data points -C No of flavors = NfMx (sea) + 1 (gluon) + 2 (valence) - - Nblk = (NX+1) * (NT+1) - Npts = Nblk * (NfMx+3) - DO I=1,Npts - UPD(I) = UPDI(I) - ENDDO -C - Return -C **************************** - End diff --git a/PDF/spdf/ctq4RlQ.F b/PDF/spdf/ctq4RlQ.F deleted file mode 100644 index a54eb65940d..00000000000 --- a/PDF/spdf/ctq4RlQ.F +++ /dev/null @@ -1,2838 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" - Subroutine Ctq4RlQ (Iset) -#include "pdf/impdp.inc" - PARAMETER (MXX = 105, MXQ = 25, MXF = 6) - PARAMETER (MXPQX = (MXF *2 +2) * MXQ * MXX) - PARAMETER (NxI = 90, NtI = 13, NfMxI = 5) - COMMON / W5051IC / Al, XV(0:MXX), QL(0:MXQ), UPD(MXPQX) - COMMON / W5051ID / Nx, Nt, NfMx - COMMON / W5051IE / Qini, Qmax, Xmin - DIMENSION Amass(6) - PARAMETER (NSETS=10) - DIMENSION - > XVI(0:MXX),QLI(0:MXQ),UPDI(MXPQX), - > AmassI(6) -C -C----------------------------------------------------------------------- -C Parton Distribution Table : CTEQ4LQ -C PARAMETER (ISET=10) - DATA DrI, FlI, AlI / 2., 5., .1740 / - DATA (AmassI(I),I=1,6) / .000, .000, .200, - + 1.600, 5.000, 180.000 / -C DATA NXI, NTI, NfMxI / 90, 13, 5 / - DATA QINII, QMAXI, (QLI(I), I =0, NTI) / - + .700000D+00, .100000D+05, - + .700000D+00, .884564D+00, .116264D+01, .160000D+01, .222267D+01, - + .324176D+01, .500000D+01, .927769D+01, .192899D+02, .458922D+02, - + .128067D+03, .431700D+03, .182002D+04, .100000D+05 / - DATA XMINI, (XVI(I), I =0, NXI) / - + .100000D-04, - + .000000D+00, .999983D-05, .124433D-04, .154836D-04, .192668D-04, - + .239740D-04, .298310D-04, .371184D-04, .461852D-04, .574656D-04, - + .714994D-04, .889575D-04, .110674D-03, .137686D-03, .171280D-03, - + .213055D-03, .264997D-03, .329564D-03, .409809D-03, .509508D-03, - + .633332D-03, .787053D-03, .977784D-03, .121428D-02, .150728D-02, - + .186993D-02, .231825D-02, .288037D-02, .356397D-02, .440443D-02, - + .543508D-02, .669508D-02, .822984D-02, .100851D-01, .123281D-01, - + .150167D-01, .182174D-01, .219985D-01, .264278D-01, .315720D-01, - + .374800D-01, .442088D-01, .517931D-01, .602576D-01, .696136D-01, - + .798586D-01, .909356D-01, .102935D+00, .115681D+00, .129293D+00, - + .143599D+00, .158606D+00, .174271D+00, .190550D+00, .207405D+00, - + .224796D+00, .242685D+00, .261038D+00, .279820D+00, .299001D+00, - + .318550D+00, .338442D+00, .358653D+00, .379067D+00, .399881D+00, - + .420953D+00, .442266D+00, .463806D+00, .485559D+00, .507513D+00, - + .529656D+00, .551978D+00, .574483D+00, .597187D+00, .619860D+00, - + .642828D+00, .665921D+00, .689135D+00, .712467D+00, .735911D+00, - + .759464D+00, .783080D+00, .806909D+00, .830741D+00, .854673D+00, - + .878696D+00, .902804D+00, .926992D+00, .951257D+00, .975603D+00, - + .100000D+01 / -C Parton Distribution Table: - DATA (UPDI(I),I=1,52) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=53,104) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=105,156) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=157,208) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=209,260) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=261,312) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=313,364) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=365,416) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=417,468) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=469,520) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=521,572) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .268222D+06, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=573,624) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=625,676) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .149294D+06, .113339D+06, .846097D+05, - + .631068D+05, .470361D+05, .350228D+05, .260582D+05, - + .193676D+05, .143832D+05, .106694D+05, .790762D+04, - + .585362D+04, .432904D+04, .319738D+04, .235913D+04, - + .173822D+04, .127932D+04, .940155D+03, .690086D+03, - + .505722D+03, .370145D+03, .270457D+03, .197347D+03, - + .143747D+03, .104550D+03, .759118D+02, .550575D+02, - + .396746D+02, .286866D+02, .207067D+02, .149336D+02, - + .107558D+02, .774303D+01, .557586D+01, .401415D+01, - + .289103D+01, .208601D+01, .150750D+01, .109292D+01 / - DATA (UPDI(I),I=677,728) / - + .794561D+00, .580489D+00, .425739D+00, .313855D+00, - + .232399D+00, .173028D+00, .129346D+00, .972718D-01, - + .732251D-01, .554518D-01, .419793D-01, .318816D-01, - + .242129D-01, .184010D-01, .139648D-01, .105886D-01, - + .800264D-02, .603087D-02, .452310D-02, .337855D-02, - + .250658D-02, .184855D-02, .135120D-02, .979048D-03, - + .702392D-03, .496490D-03, .344673D-03, .234483D-03, - + .154942D-03, .986197D-04, .590604D-04, .320532D-04, - + .139006D-04, .221766D-05, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=729,780) / - + .344401D+06, .260641D+06, .193861D+06, .144061D+06, - + .106975D+06, .793545D+05, .588182D+05, .435494D+05, - + .322162D+05, .238048D+05, .175731D+05, .129567D+05, - + .954329D+04, .701985D+04, .515800D+04, .378457D+04, - + .277356D+04, .202953D+04, .148319D+04, .108215D+04, - + .788478D+03, .573505D+03, .416535D+03, .301976D+03, - + .218583D+03, .157933D+03, .113972D+03, .817071D+02, - + .587708D+02, .421990D+02, .302682D+02, .216802D+02, - + .155182D+02, .111101D+02, .794996D+01, .569033D+01, - + .407938D+01, .292866D+01, .210864D+01, .152218D+01, - + .110386D+01, .803438D+00, .587597D+00, .431561D+00, - + .318592D+00, .236102D+00, .175974D+00, .131274D+00, - + .984874D-01, .738616D-01, .555630D-01, .417995D-01 / - DATA (UPDI(I),I=781,832) / - + .314636D-01, .236526D-01, .177643D-01, .133010D-01, - + .993205D-02, .738315D-02, .546776D-02, .402434D-02, - + .294634D-02, .214044D-02, .154376D-02, .110490D-02, - + .781810D-03, .546161D-03, .376862D-03, .255799D-03, - + .170740D-03, .111310D-03, .707510D-04, .432778D-04, - + .251725D-04, .135234D-04, .638757D-05, .211572D-05, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .595281D+06, - + .449051D+06, .332729D+06, .246314D+06, .182197D+06, - + .134631D+06, .993977D+05, .733041D+05, .540105D+05, - + .397482D+05, .292228D+05, .214576D+05, .157387D+05 / - DATA (UPDI(I),I=833,884) / - + .115285D+05, .843468D+04, .616217D+04, .449627D+04, - + .327561D+04, .238310D+04, .173087D+04, .125533D+04, - + .908822D+03, .656939D+03, .473973D+03, .341402D+03, - + .245439D+03, .176217D+03, .125668D+03, .899120D+02, - + .642128D+02, .458029D+02, .326230D+02, .232152D+02, - + .165226D+02, .117504D+02, .835796D+01, .595276D+01, - + .424518D+01, .303534D+01, .217561D+01, .156603D+01, - + .113117D+01, .820751D+00, .597941D+00, .437726D+00, - + .321626D+00, .237620D+00, .175693D+00, .130618D+00, - + .970673D-01, .723466D-01, .539281D-01, .402183D-01, - + .299578D-01, .222932D-01, .165415D-01, .122412D-01, - + .902064D-02, .662305D-02, .483475D-02, .351174D-02, - + .253274D-02, .181469D-02, .129166D-02, .910242D-03 / - DATA (UPDI(I),I=885,936) / - + .634796D-03, .438660D-03, .299648D-03, .202691D-03, - + .135395D-03, .896163D-04, .586115D-04, .380300D-04, - + .245491D-04, .159632D-04, .104447D-04, .699907D-05, - + .482025D-05, .344493D-05, .253126D-05, .190473D-05, - + .143474D-05, .106599D-05, .763182D-06, .515425D-06, - + .318182D-06, .171458D-06, .739045D-07, .209272D-07, - + .211150D-08, .000000D+00, .913142D+06, .686542D+06, - + .506704D+06, .373630D+06, .275272D+06, .202593D+06, - + .148968D+06, .109415D+06, .802846D+05, .588393D+05, - + .430770D+05, .314966D+05, .230032D+05, .167770D+05, - + .122209D+05, .888895D+04, .645683D+04, .468267D+04, - + .339114D+04, .245161D+04, .176968D+04, .127509D+04, - + .917226D+03, .658518D+03, .471959D+03, .337569D+03 / - DATA (UPDI(I),I=937,988) / - + .241103D+03, .171023D+03, .121703D+03, .864429D+02, - + .613132D+02, .434212D+02, .307176D+02, .217317D+02, - + .153591D+02, .108557D+02, .768100D+01, .544099D+01, - + .386330D+01, .274936D+01, .196439D+01, .140817D+01, - + .101372D+01, .732624D+00, .531891D+00, .387535D+00, - + .283856D+00, .208060D+00, .153311D+00, .112921D+00, - + .834089D-01, .616223D-01, .455453D-01, .336259D-01, - + .248008D-01, .182421D-01, .133832D-01, .977950D-02, - + .712067D-02, .515684D-02, .371693D-02, .266171D-02, - + .189453D-02, .134079D-02, .940486D-03, .654044D-03, - + .451716D-03, .309469D-03, .210891D-03, .142874D-03, - + .967254D-04, .654793D-04, .446212D-04, .307744D-04, - + .217108D-04, .156266D-04, .115463D-04, .870555D-05 / - DATA (UPDI(I),I=989,1040) / - + .666564D-05, .511872D-05, .390751D-05, .292289D-05, - + .211412D-05, .145779D-05, .939245D-06, .549691D-06, - + .278853D-06, .112495D-06, .299440D-07, .308051D-08, - + .000000D+00, .130987D+07, .981482D+06, .721477D+06, - + .529855D+06, .388782D+06, .284963D+06, .208668D+06, - + .152625D+06, .111520D+06, .813848D+05, .593273D+05, - + .431912D+05, .314064D+05, .228048D+05, .165377D+05, - + .119747D+05, .865858D+04, .625055D+04, .450545D+04, - + .324184D+04, .232890D+04, .166989D+04, .119531D+04, - + .853889D+03, .608879D+03, .433249D+03, .307812D+03, - + .217162D+03, .153695D+03, .108563D+03, .765664D+02, - + .539111D+02, .379124D+02, .266603D+02, .187250D+02, - + .131506D+02, .924355D+01, .650389D+01, .458591D+01 / - DATA (UPDI(I),I=1041,1092) / - + .324043D+01, .229821D+01, .163508D+01, .116793D+01, - + .837395D+00, .603007D+00, .435722D+00, .316468D+00, - + .229992D+00, .168009D+00, .122678D+00, .898270D-01, - + .657921D-01, .482062D-01, .352863D-01, .258028D-01, - + .188200D-01, .136928D-01, .992523D-02, .716949D-02, - + .515295D-02, .368702D-02, .262254D-02, .185503D-02, - + .130581D-02, .911986D-03, .632554D-03, .436615D-03, - + .299848D-03, .205583D-03, .140851D-03, .969937D-04, - + .672710D-04, .473017D-04, .338654D-04, .248559D-04, - + .185979D-04, .141929D-04, .109562D-04, .849433D-05, - + .654236D-05, .496238D-05, .366481D-05, .260113D-05, - + .175286D-05, .109892D-05, .623140D-06, .304610D-06, - + .117674D-06, .299865D-07, .312707D-08, .000000D+00 / - DATA (UPDI(I),I=1093,1144) / - + .179769D+07, .134239D+07, .982750D+06, .718781D+06, - + .525226D+06, .383372D+06, .279550D+06, .203607D+06, - + .148135D+06, .107641D+06, .781264D+05, .566283D+05, - + .409946D+05, .296342D+05, .213931D+05, .154198D+05, - + .110982D+05, .797436D+04, .572083D+04, .409672D+04, - + .292878D+04, .208975D+04, .148841D+04, .105792D+04, - + .750506D+03, .531239D+03, .375431D+03, .263424D+03, - + .185416D+03, .130242D+03, .913324D+02, .639360D+02, - + .446949D+02, .312400D+02, .218047D+02, .152161D+02, - + .106251D+02, .742584D+01, .519975D+01, .364819D+01, - + .256852D+01, .181376D+01, .128562D+01, .914588D+00, - + .653324D+00, .468250D+00, .337295D+00, .243090D+00, - + .176085D+00, .127493D+00, .925642D-01, .672304D-01 / - DATA (UPDI(I),I=1145,1196) / - + .488476D-01, .354605D-01, .257166D-01, .186061D-01, - + .134295D-01, .965955D-02, .692495D-02, .494155D-02, - + .351151D-02, .248205D-02, .174562D-02, .122288D-02, - + .850879D-03, .588966D-03, .406513D-03, .279954D-03, - + .193111D-03, .133679D-03, .934122D-04, .660520D-04, - + .475234D-04, .348753D-04, .261996D-04, .199964D-04, - + .154703D-04, .120285D-04, .932879D-05, .714791D-05, - + .536571D-05, .390751D-05, .272473D-05, .179879D-05, - + .110113D-05, .607401D-06, .287426D-06, .106867D-06, - + .262025D-07, .276624D-08, .000000D+00, .238877D+07, - + .177762D+07, .129602D+07, .943994D+06, .686917D+06, - + .499289D+06, .362534D+06, .262921D+06, .190465D+06, - + .137800D+06, .995771D+05, .718578D+05, .517873D+05 / - DATA (UPDI(I),I=1197,1248) / - + .372675D+05, .267811D+05, .192148D+05, .137653D+05, - + .984434D+04, .702879D+04, .500920D+04, .356369D+04, - + .253025D+04, .179315D+04, .126807D+04, .894974D+03, - + .630181D+03, .442988D+03, .309128D+03, .216392D+03, - + .151154D+03, .105394D+03, .733523D+02, .509730D+02, - + .354131D+02, .245637D+02, .170326D+02, .118158D+02, - + .820295D+01, .570446D+01, .397421D+01, .277785D+01, - + .194712D+01, .136971D+01, .966924D+00, .685286D+00, - + .487251D+00, .348160D+00, .248883D+00, .178806D+00, - + .128404D+00, .924623D-01, .666125D-01, .480071D-01, - + .345725D-01, .248740D-01, .178572D-01, .127911D-01, - + .913280D-02, .650051D-02, .460735D-02, .325308D-02, - + .228611D-02, .159953D-02, .111585D-02, .774054D-03 / - DATA (UPDI(I),I=1249,1300) / - + .535094D-03, .369595D-03, .255403D-03, .177308D-03, - + .123970D-03, .877768D-04, .630781D-04, .461925D-04, - + .344883D-04, .262864D-04, .202751D-04, .157686D-04, - + .122637D-04, .946799D-05, .719397D-05, .533613D-05, - + .382971D-05, .262449D-05, .169869D-05, .101654D-05, - + .546247D-06, .250664D-06, .899072D-07, .212745D-07, - + .227236D-08, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=1301,1352) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=1353,1404) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=1405,1456) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=1457,1508) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=1509,1560) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .841827D+05, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=1561,1612) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=1613,1664) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .527622D+05, .406569D+05, - + .308831D+05, .234407D+05, .177827D+05, .134789D+05, - + .102110D+05, .772836D+04, .584581D+04, .441753D+04, - + .333602D+04, .251665D+04, .189719D+04, .142859D+04, - + .107490D+04, .807799D+03, .606563D+03, .454856D+03, - + .340785D+03, .254960D+03, .190570D+03, .142229D+03, - + .106043D+03, .789389D+02, .586987D+02, .435841D+02 / - DATA (UPDI(I),I=1665,1716) / - + .323388D+02, .238542D+02, .176578D+02, .130520D+02, - + .964505D+01, .712024D+01, .525765D+01, .388473D+01, - + .287240D+01, .212582D+01, .157802D+01, .117400D+01, - + .877444D+00, .658181D+00, .496904D+00, .376959D+00, - + .287911D+00, .221060D+00, .170921D+00, .132769D+00, - + .103854D+00, .813559D-01, .641465D-01, .505638D-01, - + .399916D-01, .316134D-01, .250081D-01, .197426D-01, - + .155701D-01, .122303D-01, .957678D-02, .745791D-02, - + .578432D-02, .445384D-02, .340995D-02, .258800D-02, - + .194899D-02, .145544D-02, .107375D-02, .780923D-03, - + .560102D-03, .394280D-03, .272104D-03, .182446D-03, - + .118240D-03, .725658D-04, .411182D-04, .196798D-04, - + .595311D-05, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=1717,1768) / - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .122362D+06, .939935D+05, .711393D+05, - + .537997D+05, .406641D+05, .307091D+05, .231773D+05, - + .174767D+05, .131696D+05, .991426D+04, .745832D+04, - + .560483D+04, .420874D+04, .315681D+04, .236584D+04, - + .177088D+04, .132435D+04, .989103D+03, .738005D+03, - + .549866D+03, .409275D+03, .304171D+03, .225811D+03, - + .167373D+03, .123914D+03, .916009D+02, .676603D+02, - + .496798D+02, .366043D+02, .269312D+02, .198059D+02, - + .145510D+02, .106910D+02, .785972D+01, .578096D+01, - + .425569D+01, .314130D+01, .232370D+01, .172618D+01 / - DATA (UPDI(I),I=1769,1820) / - + .128677D+01, .965011D+00, .727056D+00, .551245D+00, - + .420072D+00, .322204D+00, .248245D+00, .192527D+00, - + .149520D+00, .116838D+00, .912742D-01, .715313D-01, - + .560362D-01, .439239D-01, .343650D-01, .268581D-01, - + .209120D-01, .162331D-01, .125365D-01, .964414D-02, - + .736939D-02, .560180D-02, .422462D-02, .316444D-02, - + .235357D-02, .173276D-02, .126135D-02, .909270D-03, - + .647304D-03, .455834D-03, .316296D-03, .216795D-03, - + .146062D-03, .969883D-04, .629969D-04, .403821D-04, - + .251828D-04, .154079D-04, .911720D-05, .524585D-05, - + .286959D-05, .149962D-05, .711948D-06, .306614D-06, - + .100808D-06, .172526D-07, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=1821,1872) / - + .225588D+06, .162506D+06, .122549D+06, .923431D+05, - + .695416D+05, .523243D+05, .393447D+05, .295572D+05, - + .221892D+05, .166413D+05, .124711D+05, .933598D+04, - + .698332D+04, .521752D+04, .389480D+04, .290379D+04, - + .216289D+04, .160886D+04, .119552D+04, .887092D+03, - + .657523D+03, .486620D+03, .359718D+03, .265485D+03, - + .195694D+03, .144027D+03, .105906D+03, .774059D+02, - + .567692D+02, .415737D+02, .304281D+02, .222474D+02, - + .162641D+02, .118970D+02, .870453D+01, .637388D+01, - + .467853D+01, .344118D+01, .254095D+01, .188252D+01, - + .140259D+01, .104966D+01, .790192D+00, .597792D+00, - + .455005D+00, .347829D+00, .267569D+00, .206097D+00, - + .159683D+00, .123688D+00, .960958D-01, .746381D-01 / - DATA (UPDI(I),I=1873,1924) / - + .579993D-01, .449917D-01, .348616D-01, .269161D-01, - + .207193D-01, .158715D-01, .121111D-01, .918302D-02, - + .692740D-02, .518707D-02, .385895D-02, .285222D-02, - + .208823D-02, .151358D-02, .108799D-02, .774089D-03, - + .546364D-03, .381674D-03, .264888D-03, .182272D-03, - + .124999D-03, .852675D-04, .585411D-04, .402422D-04, - + .280221D-04, .196932D-04, .140519D-04, .100949D-04, - + .730397D-05, .523992D-05, .370172D-05, .252567D-05, - + .163867D-05, .981175D-06, .521386D-06, .226757D-06, - + .665588D-07, .663982D-08, .000000D+00, .355526D+06, - + .271218D+06, .203634D+06, .152771D+06, .114538D+06, - + .857981D+05, .642244D+05, .480309D+05, .358930D+05, - + .267959D+05, .199879D+05, .148937D+05, .110880D+05 / - DATA (UPDI(I),I=1925,1976) / - + .824526D+04, .612541D+04, .454496D+04, .336876D+04, - + .249362D+04, .184374D+04, .136127D+04, .100386D+04, - + .739160D+03, .543559D+03, .399079D+03, .292605D+03, - + .214196D+03, .156640D+03, .113847D+03, .830228D+02, - + .604563D+02, .439890D+02, .319737D+02, .232317D+02, - + .168899D+02, .122781D+02, .893251D+01, .651190D+01, - + .475670D+01, .348671D+01, .256410D+01, .189540D+01, - + .140714D+01, .105034D+01, .787778D+00, .594182D+00, - + .450072D+00, .342926D+00, .261620D+00, .200701D+00, - + .153934D+00, .118394D+00, .910514D-01, .700426D-01, - + .537989D-01, .412674D-01, .315494D-01, .240443D-01, - + .182393D-01, .137787D-01, .103445D-01, .772370D-02, - + .572389D-02, .421174D-02, .307725D-02, .222423D-02 / - DATA (UPDI(I),I=1977,2028) / - + .158962D-02, .112403D-02, .784410D-03, .540472D-03, - + .366286D-03, .244289D-03, .159426D-03, .101700D-03, - + .628110D-04, .375967D-04, .212713D-04, .112165D-04, - + .515913D-05, .176742D-05, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .544803D+06, .414016D+06, - + .309454D+06, .231118D+06, .172491D+06, .128622D+06, - + .958383D+05, .713432D+05, .530655D+05, .394307D+05, - + .292735D+05, .217092D+05, .160843D+05, .119029D+05, - + .879951D+04, .649707D+04, .479174D+04, .352923D+04, - + .259624D+04, .190711D+04, .139912D+04, .102484D+04, - + .749666D+03, .547478D+03, .399244D+03, .290662D+03 / - DATA (UPDI(I),I=2029,2080) / - + .211376D+03, .152756D+03, .110759D+03, .801886D+02, - + .580009D+02, .419063D+02, .302610D+02, .218635D+02, - + .157910D+02, .114129D+02, .826328D+01, .599409D+01, - + .436183D+01, .318389D+01, .233528D+01, .171993D+01, - + .127314D+01, .946800D+00, .707818D+00, .531339D+00, - + .401109D+00, .303153D+00, .230340D+00, .174975D+00, - + .133271D+00, .101509D+00, .773292D-01, .588268D-01, - + .446881D-01, .338406D-01, .255461D-01, .191992D-01, - + .143694D-01, .106911D-01, .791117D-02, .581265D-02, - + .424110D-02, .307403D-02, .220508D-02, .156546D-02, - + .110070D-02, .765114D-03, .526230D-03, .357285D-03, - + .239867D-03, .158812D-03, .103897D-03, .670257D-04, - + .430114D-04, .272767D-04, .172835D-04, .109401D-04 / - DATA (UPDI(I),I=2081,2132) / - + .699652D-05, .451689D-05, .297436D-05, .197730D-05, - + .132623D-05, .875643D-06, .560351D-06, .334715D-06, - + .178932D-06, .778408D-07, .224575D-07, .223748D-08, - + .000000D+00, .789994D+06, .598034D+06, .444978D+06, - + .330828D+06, .245780D+06, .182430D+06, .135302D+06, - + .100251D+06, .742168D+05, .548867D+05, .405537D+05, - + .299303D+05, .220678D+05, .162512D+05, .119549D+05, - + .878303D+04, .644521D+04, .472307D+04, .345672D+04, - + .252612D+04, .184358D+04, .134331D+04, .977388D+03, - + .709944D+03, .514900D+03, .372787D+03, .269576D+03, - + .193695D+03, .139632D+03, .100502D+03, .722598D+02, - + .518929D+02, .372398D+02, .267366D+02, .191851D+02, - + .137743D+02, .990472D+01, .713463D+01, .515416D+01 / - DATA (UPDI(I),I=2133,2184) / - + .373437D+01, .271792D+01, .198594D+01, .145800D+01, - + .107521D+01, .796859D+00, .592917D+00, .443565D+00, - + .332188D+00, .250058D+00, .188187D+00, .141988D+00, - + .107142D+00, .808546D-01, .609383D-01, .458608D-01, - + .344107D-01, .257396D-01, .191721D-01, .142214D-01, - + .104896D-01, .769575D-02, .560802D-02, .405904D-02, - + .291977D-02, .207945D-02, .146705D-02, .102608D-02, - + .710652D-03, .487980D-03, .331846D-03, .224067D-03, - + .150135D-03, .100204D-03, .667241D-04, .447917D-04, - + .302378D-04, .207357D-04, .144436D-04, .102487D-04, - + .735649D-05, .531694D-05, .381489D-05, .268286D-05, - + .181716D-05, .116198D-05, .680497D-06, .348801D-06, - + .143273D-06, .389117D-07, .396932D-08, .000000D+00 / - DATA (UPDI(I),I=2185,2236) / - + .110230D+07, .831236D+06, .615691D+06, .455663D+06, - + .336969D+06, .248960D+06, .183784D+06, .135536D+06, - + .998642D+05, .735028D+05, .540477D+05, .396967D+05, - + .291258D+05, .213436D+05, .156231D+05, .114206D+05, - + .833841D+04, .607931D+04, .442643D+04, .321799D+04, - + .233618D+04, .169322D+04, .122537D+04, .885241D+03, - + .638510D+03, .459701D+03, .330546D+03, .236125D+03, - + .169229D+03, .121090D+03, .865385D+02, .617686D+02, - + .440503D+02, .314262D+02, .224032D+02, .159779D+02, - + .114106D+02, .816189D+01, .585367D+01, .420985D+01, - + .304054D+01, .220427D+01, .160521D+01, .117400D+01, - + .862683D+00, .636353D+00, .471875D+00, .350244D+00, - + .261270D+00, .194844D+00, .145671D+00, .108928D+00 / - DATA (UPDI(I),I=2237,2288) / - + .814567D-01, .608407D-01, .453756D-01, .337454D-01, - + .250204D-01, .184762D-01, .135882D-01, .993954D-02, - + .723283D-02, .522961D-02, .375656D-02, .268301D-02, - + .189825D-02, .133164D-02, .927116D-03, .640236D-03, - + .439251D-03, .299376D-03, .203367D-03, .137819D-03, - + .936230D-04, .639526D-04, .443578D-04, .311616D-04, - + .223112D-04, .162311D-04, .119651D-04, .885568D-05, - + .652756D-05, .473110D-05, .332549D-05, .223465D-05, - + .140649D-05, .805442D-06, .400430D-06, .158310D-06, - + .413328D-07, .427215D-08, .000000D+00, .149360D+07, - + .112199D+07, .827278D+06, .609466D+06, .448637D+06, - + .329930D+06, .242422D+06, .177940D+06, .130488D+06, - + .955849D+05, .699470D+05, .511255D+05, .373278D+05 / - DATA (UPDI(I),I=2289,2340) / - + .272193D+05, .198249D+05, .144195D+05, .104746D+05, - + .759775D+04, .550346D+04, .398014D+04, .287426D+04, - + .207212D+04, .149150D+04, .107163D+04, .768691D+03, - + .550324D+03, .393461D+03, .279431D+03, .199099D+03, - + .141622D+03, .100603D+03, .713684D+02, .505784D+02, - + .358548D+02, .253936D+02, .179903D+02, .127599D+02, - + .906340D+01, .645353D+01, .460715D+01, .330227D+01, - + .237546D+01, .171607D+01, .124489D+01, .907144D+00, - + .663484D+00, .487768D+00, .358893D+00, .265369D+00, - + .196156D+00, .145356D+00, .107739D+00, .798594D-01, - + .591287D-01, .437157D-01, .322333D-01, .236971D-01, - + .173542D-01, .126586D-01, .918621D-02, .663288D-02, - + .476045D-02, .339533D-02, .240908D-02, .169427D-02 / - DATA (UPDI(I),I=2341,2392) / - + .118264D-02, .820280D-03, .565310D-03, .387895D-03, - + .265211D-03, .181377D-03, .124318D-03, .858399D-04, - + .599107D-04, .426088D-04, .307615D-04, .226062D-04, - + .168223D-04, .126068D-04, .942395D-05, .696460D-05, - + .503127D-05, .350364D-05, .232211D-05, .143453D-05, - + .802531D-06, .387421D-06, .147752D-06, .371736D-07, - + .388860D-08, .000000D+00, .197611D+07, .147880D+07, - + .108544D+07, .796026D+06, .583284D+06, .426974D+06, - + .312267D+06, .228135D+06, .166507D+06, .121389D+06, - + .884037D+05, .643034D+05, .467200D+05, .339004D+05, - + .245682D+05, .177801D+05, .128504D+05, .927343D+04, - + .668258D+04, .480772D+04, .345359D+04, .247653D+04, - + .177299D+04, .126695D+04, .903779D+03, .643409D+03 / - DATA (UPDI(I),I=2393,2444) / - + .457403D+03, .322952D+03, .228768D+03, .161765D+03, - + .114220D+03, .805347D+02, .567186D+02, .399531D+02, - + .281123D+02, .197845D+02, .139371D+02, .983090D+01, - + .695012D+01, .492552D+01, .350401D+01, .250128D+01, - + .179278D+01, .129013D+01, .932430D+00, .676322D+00, - + .493036D+00, .359688D+00, .263683D+00, .193238D+00, - + .141965D+00, .104329D+00, .766738D-01, .562918D-01, - + .412691D-01, .301784D-01, .220058D-01, .159874D-01, - + .115703D-01, .833285D-02, .597252D-02, .425672D-02, - + .301601D-02, .212707D-02, .148798D-02, .103426D-02, - + .715280D-03, .492423D-03, .338279D-03, .232250D-03, - + .160024D-03, .110938D-03, .777672D-04, .552771D-04, - + .400851D-04, .294965D-04, .220272D-04, .165858D-04 / - DATA (UPDI(I),I=2445,2496) / - + .125079D-04, .936014D-05, .688842D-05, .493470D-05, - + .339342D-05, .221348D-05, .134074D-05, .732444D-06, - + .343474D-06, .126500D-06, .307225D-07, .325112D-08, - + .000000D+00, .256201D+07, .191003D+07, .139567D+07, - + .101893D+07, .743218D+06, .541558D+06, .394238D+06, - + .286681D+06, .208255D+06, .151107D+06, .109521D+06, - + .792802D+05, .573215D+05, .413893D+05, .298472D+05, - + .214927D+05, .154553D+05, .110966D+05, .795525D+04, - + .569364D+04, .406852D+04, .290201D+04, .206645D+04, - + .146864D+04, .104190D+04, .737596D+03, .521398D+03, - + .366002D+03, .257759D+03, .181195D+03, .127173D+03, - + .891230D+02, .623780D+02, .436632D+02, .305245D+02, - + .213409D+02, .149321D+02, .104603D+02, .734294D+01 / - DATA (UPDI(I),I=2497,2548) / - + .516642D+01, .364822D+01, .258457D+01, .183816D+01, - + .131241D+01, .940933D+00, .676950D+00, .489453D+00, - + .354116D+00, .257438D+00, .187087D+00, .136301D+00, - + .993391D-01, .724044D-01, .527237D-01, .383400D-01, - + .278134D-01, .201223D-01, .145072D-01, .104204D-01, - + .745059D-02, .530306D-02, .375494D-02, .264425D-02, - + .185473D-02, .129144D-02, .894546D-03, .617404D-03, - + .425003D-03, .292604D-03, .201907D-03, .140239D-03, - + .983164D-04, .698764D-04, .504350D-04, .371224D-04, - + .276760D-04, .208638D-04, .157921D-04, .119160D-04, - + .888480D-05, .648857D-05, .459782D-05, .311721D-05, - + .199904D-05, .118658D-05, .632871D-06, .288365D-06, - + .102652D-06, .241076D-07, .257998D-08, .000000D+00 / - DATA (UPDI(I),I=2549,2600) / - + .648840D+04, .185518D+04, .153824D+04, .127545D+04, - + .105756D+04, .876895D+03, .727094D+03, .602886D+03, - + .499899D+03, .414506D+03, .343703D+03, .284996D+03, - + .236319D+03, .195959D+03, .162494D+03, .134746D+03, - + .111739D+03, .926622D+02, .768449D+02, .637299D+02, - + .528554D+02, .438388D+02, .363625D+02, .301635D+02, - + .250234D+02, .207613D+02, .172271D+02, .142588D+02, - + .118361D+02, .982680D+01, .816031D+01, .677805D+01, - + .563144D+01, .468281D+01, .389367D+01, .323908D+01, - + .269596D+01, .224515D+01, .187077D+01, .155952D+01, - + .130092D+01, .108550D+01, .905921D+00, .756033D+00, - + .630772D+00, .525974D+00, .438506D+00, .364723D+00, - + .303207D+00, .251279D+00, .207891D+00, .171515D+00 / - DATA (UPDI(I),I=2601,2652) / - + .141052D+00, .115580D+00, .943234D-01, .766293D-01, - + .619455D-01, .498038D-01, .398055D-01, .316107D-01, - + .249287D-01, .195113D-01, .151468D-01, .116691D-01, - + .888976D-02, .670206D-02, .499558D-02, .367767D-02, - + .267091D-02, .191106D-02, .134513D-02, .929771D-03, - + .629701D-03, .416684D-03, .269786D-03, .169281D-03, - + .102842D-03, .601993D-04, .337483D-04, .179830D-04, - + .901985D-05, .421024D-05, .178778D-05, .678974D-06, - + .221797D-06, .589853D-07, .116459D-07, .143597D-08, - + .749920D-10, .479058D-12, .000000D+00, .170367D+05, - + .136042D+05, .107632D+05, .851372D+04, .673594D+04, - + .532820D+04, .421573D+04, .333477D+04, .263864D+04, - + .208732D+04, .165171D+04, .130667D+04, .103406D+04 / - DATA (UPDI(I),I=2653,2704) / - + .818117D+03, .647510D+03, .512342D+03, .405561D+03, - + .320946D+03, .254104D+03, .201131D+03, .159291D+03, - + .126126D+03, .999307D+02, .791627D+02, .627587D+02, - + .497558D+02, .394833D+02, .312387D+02, .248278D+02, - + .197391D+02, .157198D+02, .125274D+02, .100049D+02, - + .800437D+01, .641838D+01, .515578D+01, .415602D+01, - + .335790D+01, .272390D+01, .221532D+01, .180954D+01, - + .148188D+01, .121822D+01, .100362D+01, .829363D+00, - + .686221D+00, .569273D+00, .471755D+00, .391654D+00, - + .324398D+00, .268682D+00, .222001D+00, .183077D+00, - + .150457D+00, .123273D+00, .100534D+00, .816362D-01, - + .659206D-01, .529608D-01, .422649D-01, .335227D-01, - + .263891D-01, .206194D-01, .159998D-01, .122853D-01 / - DATA (UPDI(I),I=2705,2756) / - + .933410D-02, .701610D-02, .520846D-02, .381593D-02, - + .275082D-02, .194762D-02, .134611D-02, .904398D-03, - + .580455D-03, .352330D-03, .190954D-03, .805233D-04, - + .815274D-05, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .445524D+05, .351208D+05, - + .273853D+05, .213459D+05, .166384D+05, .129642D+05, - + .101014D+05, .786766D+04, .612796D+04, .477100D+04, - + .371461D+04, .289089D+04, .224992D+04, .175029D+04, - + .136170D+04, .105889D+04, .823497D+03, .640125D+03, - + .497651D+03, .386706D+03, .300560D+03, .233503D+03, - + .181461D+03, .140964D+03, .109551D+03, .851241D+02 / - DATA (UPDI(I),I=2757,2808) / - + .661907D+02, .512894D+02, .399247D+02, .310855D+02, - + .242408D+02, .189169D+02, .147940D+02, .115934D+02, - + .910765D+01, .717087D+01, .566875D+01, .449482D+01, - + .358117D+01, .286325D+01, .230164D+01, .185690D+01, - + .150547D+01, .122444D+01, .999973D+00, .818398D+00, - + .672154D+00, .551778D+00, .454133D+00, .373045D+00, - + .306566D+00, .251407D+00, .205841D+00, .167993D+00, - + .136721D+00, .110776D+00, .893896D-01, .717513D-01, - + .573273D-01, .455210D-01, .359556D-01, .282151D-01, - + .220117D-01, .170858D-01, .131613D-01, .100684D-01, - + .766129D-02, .579800D-02, .437343D-02, .328804D-02, - + .247203D-02, .185906D-02, .140299D-02, .106192D-02, - + .811813D-03, .622936D-03, .481177D-03, .372448D-03 / - DATA (UPDI(I),I=2809,2860) / - + .288463D-03, .221785D-03, .168776D-03, .125727D-03, - + .910480D-04, .632644D-04, .416179D-04, .252497D-04, - + .136569D-04, .613455D-05, .188685D-05, .186636D-06, - + .000000D+00, .627748D+05, .674057D+05, .520731D+05, - + .402106D+05, .310462D+05, .239593D+05, .184875D+05, - + .142584D+05, .109952D+05, .847448D+04, .653071D+04, - + .503012D+04, .387376D+04, .298159D+04, .229459D+04, - + .176486D+04, .135726D+04, .104317D+04, .801685D+03, - + .615734D+03, .472899D+03, .362991D+03, .278635D+03, - + .213771D+03, .164030D+03, .125823D+03, .965629D+02, - + .738211D+02, .566885D+02, .435377D+02, .334808D+02, - + .257641D+02, .198640D+02, .153477D+02, .118856D+02, - + .922648D+01, .719126D+01, .562346D+01, .441937D+01 / - DATA (UPDI(I),I=2861,2912) / - + .348673D+01, .276669D+01, .220445D+01, .176574D+01, - + .141964D+01, .114654D+01, .928420D+00, .754752D+00, - + .613487D+00, .500147D+00, .407070D+00, .331536D+00, - + .269530D+00, .218805D+00, .177100D+00, .142962D+00, - + .114916D+00, .920093D-01, .732988D-01, .581347D-01, - + .458400D-01, .359675D-01, .280520D-01, .217642D-01, - + .168138D-01, .129036D-01, .984855D-02, .749029D-02, - + .567882D-02, .430318D-02, .326115D-02, .248077D-02, - + .189575D-02, .145946D-02, .113169D-02, .888265D-03, - + .701227D-03, .557480D-03, .443717D-03, .352866D-03, - + .277908D-03, .216277D-03, .164426D-03, .121390D-03, - + .859425D-04, .576158D-04, .356688D-04, .197173D-04, - + .910022D-05, .292850D-05, .286945D-06, .000000D+00 / - DATA (UPDI(I),I=2913,2964) / - + .137513D+06, .106912D+06, .820596D+05, .629556D+05, - + .482868D+05, .370176D+05, .283709D+05, .217327D+05, - + .166431D+05, .127386D+05, .974726D+04, .745417D+04, - + .569884D+04, .435429D+04, .332596D+04, .253892D+04, - + .193754D+04, .147766D+04, .112660D+04, .858390D+03, - + .653876D+03, .497777D+03, .378869D+03, .288199D+03, - + .219206D+03, .166664D+03, .126753D+03, .960024D+02, - + .730300D+02, .555591D+02, .423106D+02, .322420D+02, - + .246095D+02, .188250D+02, .144295D+02, .110876D+02, - + .855272D+01, .662005D+01, .514913D+01, .402166D+01, - + .315912D+01, .249260D+01, .197717D+01, .157476D+01, - + .126005D+01, .101123D+01, .814864D+00, .656702D+00, - + .530912D+00, .428599D+00, .346274D+00, .279326D+00 / - DATA (UPDI(I),I=2965,3016) / - + .225012D+00, .180762D+00, .144829D+00, .115569D+00, - + .918586D-01, .726579D-01, .572139D-01, .447974D-01, - + .349002D-01, .270295D-01, .208212D-01, .159703D-01, - + .121651D-01, .921498D-02, .695301D-02, .522824D-02, - + .392674D-02, .294798D-02, .221939D-02, .167704D-02, - + .127539D-02, .976023D-03, .755343D-03, .587534D-03, - + .459895D-03, .360364D-03, .281968D-03, .218554D-03, - + .167259D-03, .125071D-03, .907307D-04, .630902D-04, - + .414845D-04, .251528D-04, .135858D-04, .609686D-05, - + .189705D-05, .187373D-06, .000000D+00, .205731D+06, - + .159159D+06, .121467D+06, .926559D+05, .706553D+05, - + .538497D+05, .410273D+05, .312405D+05, .237797D+05, - + .180901D+05, .137565D+05, .104547D+05, .794216D+04 / - DATA (UPDI(I),I=3017,3068) / - + .602959D+04, .457571D+04, .347006D+04, .263046D+04, - + .199261D+04, .150880D+04, .114164D+04, .863498D+03, - + .652666D+03, .493137D+03, .372358D+03, .281083D+03, - + .212079D+03, .160036D+03, .120240D+03, .907275D+02, - + .684588D+02, .516970D+02, .390614D+02, .295556D+02, - + .224117D+02, .170251D+02, .129649D+02, .990943D+01, - + .760035D+01, .585701D+01, .453268D+01, .352776D+01, - + .275825D+01, .216801D+01, .171142D+01, .135727D+01, - + .107984D+01, .862715D+00, .689433D+00, .552773D+00, - + .442634D+00, .354752D+00, .283937D+00, .226959D+00, - + .180952D+00, .143894D+00, .113983D+00, .899398D-01, - + .706360D-01, .552296D-01, .429474D-01, .332316D-01, - + .255681D-01, .195676D-01, .149146D-01, .112910D-01 / - DATA (UPDI(I),I=3069,3120) / - + .850340D-02, .638077D-02, .477382D-02, .356875D-02, - + .266841D-02, .200162D-02, .150786D-02, .114364D-02, - + .873146D-03, .674007D-03, .522859D-03, .407853D-03, - + .318312D-03, .247739D-03, .190880D-03, .144951D-03, - + .107472D-03, .771412D-04, .530018D-04, .343425D-04, - + .204595D-04, .108054D-04, .469816D-05, .139731D-05, - + .139576D-06, .000000D+00, .205284D+06, .226629D+06, - + .172066D+06, .130569D+06, .990420D+05, .750839D+05, - + .568982D+05, .430909D+05, .326202D+05, .246781D+05, - + .186612D+05, .141019D+05, .106515D+05, .803966D+04, - + .606527D+04, .457240D+04, .344521D+04, .259390D+04, - + .195194D+04, .146770D+04, .110305D+04, .828360D+03, - + .621778D+03, .466372D+03, .349666D+03, .262009D+03 / - DATA (UPDI(I),I=3121,3172) / - + .196328D+03, .146442D+03, .109694D+03, .821604D+02, - + .615753D+02, .461698D+02, .346603D+02, .260750D+02, - + .196473D+02, .148395D+02, .112476D+02, .855444D+01, - + .653607D+01, .501516D+01, .386972D+01, .299977D+01, - + .233758D+01, .182962D+01, .143869D+01, .113505D+01, - + .899312D+00, .712798D+00, .566890D+00, .450325D+00, - + .358078D+00, .284396D+00, .225595D+00, .178524D+00, - + .140914D+00, .110815D+00, .868149D-01, .677058D-01, - + .525723D-01, .406062D-01, .312117D-01, .238601D-01, - + .181455D-01, .137467D-01, .103456D-01, .774846D-02, - + .578419D-02, .430718D-02, .320616D-02, .238850D-02, - + .178585D-02, .134167D-02, .101517D-02, .773410D-03, - + .595591D-03, .460799D-03, .358208D-03, .278420D-03 / - DATA (UPDI(I),I=3173,3224) / - + .215543D-03, .165065D-03, .124394D-03, .914531D-04, - + .649717D-04, .441258D-04, .281948D-04, .165211D-04, - + .854450D-05, .360979D-05, .103289D-05, .104222D-06, - + .000000D+00, .436014D+06, .334117D+06, .252197D+06, - + .190256D+06, .143462D+06, .108110D+06, .814299D+05, - + .612943D+05, .461138D+05, .346695D+05, .260511D+05, - + .195611D+05, .146795D+05, .110079D+05, .824964D+04, - + .617765D+04, .462315D+04, .345697D+04, .258328D+04, - + .192877D+04, .143918D+04, .107296D+04, .799430D+03, - + .595148D+03, .442815D+03, .329242D+03, .244762D+03, - + .181088D+03, .134537D+03, .999333D+02, .742591D+02, - + .552016D+02, .410747D+02, .306255D+02, .228646D+02, - + .171098D+02, .128455D+02, .967656D+01, .732142D+01 / - DATA (UPDI(I),I=3225,3276) / - + .556292D+01, .424985D+01, .326188D+01, .251642D+01, - + .195010D+01, .151816D+01, .118598D+01, .930470D+00, - + .730353D+00, .575285D+00, .452676D+00, .356583D+00, - + .280620D+00, .220583D+00, .173010D+00, .135359D+00, - + .105531D+00, .819709D-01, .633952D-01, .488174D-01, - + .374007D-01, .285162D-01, .216274D-01, .163173D-01, - + .122648D-01, .915711D-02, .680425D-02, .503860D-02, - + .372142D-02, .274658D-02, .202802D-02, .150190D-02, - + .111687D-02, .835754D-03, .629170D-03, .478322D-03, - + .365019D-03, .279638D-03, .214079D-03, .163129D-03, - + .122917D-03, .910727D-04, .658057D-04, .459042D-04, - + .305865D-04, .191483D-04, .109751D-04, .553860D-05, - + .227335D-05, .630952D-06, .641893D-07, .000000D+00 / - DATA (UPDI(I),I=3277,3328) / - + .623764D+06, .475713D+06, .357084D+06, .267877D+06, - + .200851D+06, .150496D+06, .112703D+06, .843414D+05, - + .630803D+05, .471442D+05, .352123D+05, .262800D+05, - + .196007D+05, .146072D+05, .108784D+05, .809452D+04, - + .601873D+04, .447129D+04, .331922D+04, .246173D+04, - + .182442D+04, .135085D+04, .999461D+03, .738812D+03, - + .545759D+03, .402820D+03, .297236D+03, .218229D+03, - + .160884D+03, .118572D+03, .874065D+02, .644492D+02, - + .475580D+02, .351622D+02, .260256D+02, .193052D+02, - + .143642D+02, .107229D+02, .803834D+01, .605091D+01, - + .457902D+01, .348123D+01, .265990D+01, .204156D+01, - + .157407D+01, .121789D+01, .946396D+00, .735806D+00, - + .574129D+00, .447559D+00, .349301D+00, .272402D+00 / - DATA (UPDI(I),I=3329,3380) / - + .212201D+00, .164969D+00, .127942D+00, .988947D-01, - + .761683D-01, .584217D-01, .446213D-01, .339154D-01, - + .256579D-01, .193137D-01, .144650D-01, .107961D-01, - + .800622D-02, .591187D-02, .435247D-02, .319806D-02, - + .234954D-02, .172823D-02, .127578D-02, .946313D-03, - + .706613D-03, .530981D-03, .402853D-03, .306683D-03, - + .234173D-03, .178527D-03, .135293D-03, .101271D-03, - + .744148D-04, .532609D-04, .367244D-04, .241446D-04, - + .148715D-04, .835805D-05, .411242D-05, .163057D-05, - + .433473D-06, .446395D-07, .000000D+00, .867454D+06, - + .658550D+06, .491690D+06, .366873D+06, .273585D+06, - + .203872D+06, .151830D+06, .112989D+06, .840291D+05, - + .624428D+05, .463701D+05, .344060D+05, .255104D+05 / - DATA (UPDI(I),I=3381,3432) / - + .188982D+05, .139892D+05, .103458D+05, .764527D+04, - + .564419D+04, .416342D+04, .306809D+04, .225903D+04, - + .166164D+04, .122120D+04, .896617D+03, .657775D+03, - + .482100D+03, .353207D+03, .257426D+03, .188386D+03, - + .137807D+03, .100812D+03, .737587D+02, .539971D+02, - + .396030D+02, .290714D+02, .213846D+02, .157756D+02, - + .116746D+02, .867451D+01, .647151D+01, .485287D+01, - + .365569D+01, .276734D+01, .210434D+01, .160733D+01, - + .123203D+01, .948493D+00, .730599D+00, .564823D+00, - + .436284D+00, .337424D+00, .260801D+00, .201374D+00, - + .155196D+00, .119330D+00, .914635D-01, .698621D-01, - + .531515D-01, .402731D-01, .303740D-01, .228053D-01, - + .170418D-01, .126735D-01, .939556D-02, .692329D-02 / - DATA (UPDI(I),I=3433,3484) / - + .508245D-02, .372209D-02, .272231D-02, .199218D-02, - + .146078D-02, .107568D-02, .796436D-03, .593848D-03, - + .445692D-03, .337625D-03, .256500D-03, .195268D-03, - + .148275D-03, .111772D-03, .831241D-04, .605901D-04, - + .429650D-04, .292944D-04, .190123D-04, .115296D-04, - + .635985D-05, .305529D-05, .117343D-05, .300240D-06, - + .312708D-07, .000000D+00, .117828D+07, .890591D+06, - + .661499D+06, .491006D+06, .364227D+06, .269977D+06, - + .199983D+06, .148017D+06, .109477D+06, .809041D+05, - + .597439D+05, .440790D+05, .324958D+05, .239341D+05, - + .176135D+05, .129494D+05, .951197D+04, .697984D+04, - + .511711D+04, .374749D+04, .274192D+04, .200399D+04, - + .146329D+04, .106732D+04, .777796D+03, .566207D+03 / - DATA (UPDI(I),I=3485,3536) / - + .411977D+03, .298135D+03, .216631D+03, .157327D+03, - + .114246D+03, .829645D+02, .602735D+02, .438647D+02, - + .319447D+02, .233090D+02, .170538D+02, .125152D+02, - + .921992D+01, .681907D+01, .506866D+01, .378443D+01, - + .283912D+01, .213948D+01, .161934D+01, .122997D+01, - + .938339D+00, .716233D+00, .548741D+00, .420075D+00, - + .322017D+00, .246724D+00, .188862D+00, .144317D+00, - + .110034D+00, .836447D-01, .633733D-01, .478340D-01, - + .359631D-01, .269197D-01, .200642D-01, .148884D-01, - + .109973D-01, .810101D-02, .593380D-02, .433263D-02, - + .315784D-02, .230028D-02, .167776D-02, .122714D-02, - + .901958D-03, .666969D-03, .496841D-03, .372543D-03, - + .281828D-03, .213671D-03, .162159D-03, .122614D-03 / - DATA (UPDI(I),I=3537,3588) / - + .919120D-04, .678852D-04, .490664D-04, .344549D-04, - + .232193D-04, .148681D-04, .887272D-05, .480106D-05, - + .225099D-05, .837715D-06, .206873D-06, .217834D-07, - + .000000D+00, .156812D+07, .118020D+07, .872196D+06, - + .644117D+06, .475358D+06, .350530D+06, .258296D+06, - + .190169D+06, .139905D+06, .102834D+06, .755247D+05, - + .554158D+05, .406262D+05, .297542D+05, .217721D+05, - + .159146D+05, .116221D+05, .847797D+04, .617835D+04, - + .449735D+04, .327043D+04, .237544D+04, .172361D+04, - + .124918D+04, .904434D+03, .654057D+03, .472719D+03, - + .339742D+03, .245163D+03, .176804D+03, .127475D+03, - + .919010D+02, .662726D+02, .478692D+02, .345937D+02, - + .250450D+02, .181780D+02, .132323D+02, .966782D+01 / - DATA (UPDI(I),I=3589,3640) / - + .709053D+01, .522563D+01, .386809D+01, .287662D+01, - + .214875D+01, .161201D+01, .121358D+01, .917667D+00, - + .694263D+00, .527245D+00, .400095D+00, .304052D+00, - + .230976D+00, .175316D+00, .132854D+00, .100463D+00, - + .757554D-01, .569433D-01, .426497D-01, .318239D-01, - + .236478D-01, .175012D-01, .128992D-01, .946659D-02, - + .693139D-02, .504884D-02, .366825D-02, .266217D-02, - + .193240D-02, .140555D-02, .102602D-02, .753123D-03, - + .556446D-03, .414249D-03, .310374D-03, .234481D-03, - + .177386D-03, .134173D-03, .100990D-03, .752525D-04, - + .551756D-04, .395286D-04, .274740D-04, .182915D-04, - + .115500D-04, .677928D-05, .359630D-05, .164482D-05, - + .593230D-06, .141674D-06, .150790D-07, .000000D+00 / - DATA (UPDI(I),I=3641,3692) / - + .204920D+07, .153588D+07, .112948D+07, .829995D+06, - + .609475D+06, .447161D+06, .327821D+06, .240115D+06, - + .175730D+06, .128488D+06, .938647D+05, .685029D+05, - + .499479D+05, .363806D+05, .264729D+05, .192421D+05, - + .139721D+05, .101336D+05, .734189D+04, .531281D+04, - + .384033D+04, .277249D+04, .199936D+04, .144002D+04, - + .103602D+04, .744402D+03, .534513D+03, .381581D+03, - + .273508D+03, .195903D+03, .140266D+03, .100410D+03, - + .718889D+02, .515476D+02, .369743D+02, .265656D+02, - + .191325D+02, .138178D+02, .100147D+02, .728529D+01, - + .532483D+01, .390858D+01, .288213D+01, .213452D+01, - + .158758D+01, .118489D+01, .888274D+00, .666231D+00, - + .501628D+00, .377411D+00, .284396D+00, .214246D+00 / - DATA (UPDI(I),I=3693,3744) / - + .161278D+00, .121224D+00, .909359D-01, .680333D-01, - + .507460D-01, .377231D-01, .279422D-01, .206168D-01, - + .151544D-01, .110973D-01, .809424D-02, .589291D-02, - + .427022D-02, .308854D-02, .223293D-02, .161592D-02, - + .117270D-02, .854764D-03, .626834D-03, .462894D-03, - + .344447D-03, .257878D-03, .194536D-03, .146808D-03, - + .110638D-03, .828638D-04, .613540D-04, .446378D-04, - + .316841D-04, .217869D-04, .143240D-04, .891481D-05, - + .514412D-05, .267396D-05, .119257D-05, .416945D-06, - + .964641D-07, .103761D-07, .000000D+00, .263368D+07, - + .196600D+07, .143885D+07, .105222D+07, .768886D+06, - + .561339D+06, .409477D+06, .298416D+06, .217288D+06, - + .158058D+06, .114866D+06, .833902D+05, .604799D+05 / - DATA (UPDI(I),I=3745,3796) / - + .438154D+05, .317098D+05, .229220D+05, .165516D+05, - + .119370D+05, .859920D+04, .618677D+04, .444594D+04, - + .319072D+04, .228717D+04, .163729D+04, .117069D+04, - + .835881D+03, .596385D+03, .422967D+03, .301189D+03, - + .214298D+03, .152400D+03, .108348D+03, .770292D+02, - + .548417D+02, .390518D+02, .278514D+02, .199077D+02, - + .142677D+02, .102604D+02, .740499D+01, .536887D+01, - + .390885D+01, .285860D+01, .209953D+01, .154850D+01, - + .114601D+01, .851937D+00, .633603D+00, .473081D+00, - + .352972D+00, .263791D+00, .197109D+00, .147185D+00, - + .109755D+00, .816897D-01, .606487D-01, .448993D-01, - + .331337D-01, .243688D-01, .178576D-01, .130403D-01, - + .949012D-02, .688167D-02, .498339D-02, .359387D-02 / - DATA (UPDI(I),I=3797,3848) / - + .258871D-02, .186526D-02, .134637D-02, .975318D-03, - + .710106D-03, .520430D-03, .384190D-03, .285766D-03, - + .213759D-03, .160980D-03, .121148D-03, .909311D-04, - + .677383D-04, .498154D-04, .359475D-04, .252697D-04, - + .171835D-04, .111518D-04, .683781D-05, .387728D-05, - + .197402D-05, .858292D-06, .290992D-06, .653276D-07, - + .710014D-08, .000000D+00, .463332D+04, .556996D+04, - + .461891D+04, .383030D+04, .317638D+04, .263414D+04, - + .218450D+04, .181166D+04, .150248D+04, .124610D+04, - + .103349D+04, .857191D+03, .710990D+03, .589748D+03, - + .489205D+03, .405823D+03, .336674D+03, .279327D+03, - + .231766D+03, .192321D+03, .159606D+03, .132472D+03, - + .109966D+03, .912986D+02, .758145D+02, .629703D+02 / - DATA (UPDI(I),I=3849,3900) / - + .523156D+02, .433629D+02, .360526D+02, .299871D+02, - + .249542D+02, .207780D+02, .173124D+02, .144441D+02, - + .120572D+02, .100767D+02, .843293D+01, .706805D+01, - + .593397D+01, .499036D+01, .420534D+01, .355006D+01, - + .300212D+01, .254274D+01, .215647D+01, .183066D+01, - + .155589D+01, .132113D+01, .112238D+01, .951608D+00, - + .806021D+00, .681225D+00, .574169D+00, .482324D+00, - + .403584D+00, .336183D+00, .278624D+00, .229625D+00, - + .188075D+00, .153007D+00, .123566D+00, .989980D-01, - + .786329D-01, .619458D-01, .482398D-01, .371575D-01, - + .282831D-01, .212520D-01, .157455D-01, .114875D-01, - + .824060D-02, .580245D-02, .400141D-02, .269491D-02, - + .177487D-02, .113247D-02, .699328D-03, .415923D-03 / - DATA (UPDI(I),I=3901,3952) / - + .236819D-03, .128116D-03, .652169D-04, .308832D-04, - + .133005D-04, .512124D-05, .169555D-05, .456879D-06, - + .913703D-07, .114084D-07, .603149D-09, .389953D-11, - + .000000D+00, .216220D+05, .174258D+05, .139324D+05, - + .111417D+05, .891533D+04, .713548D+04, .571454D+04, - + .457771D+04, .366947D+04, .294220D+04, .236072D+04, - + .189469D+04, .152178D+04, .122262D+04, .983028D+03, - + .790635D+03, .636409D+03, .512436D+03, .412961D+03, - + .332917D+03, .268631D+03, .216845D+03, .175210D+03, - + .141632D+03, .114607D+03, .927938D+02, .752144D+02, - + .608305D+02, .494087D+02, .401627D+02, .326964D+02, - + .266445D+02, .217513D+02, .177899D+02, .145741D+02, - + .119606D+02, .984137D+01, .811509D+01, .671134D+01 / - DATA (UPDI(I),I=3953,4004) / - + .556347D+01, .462694D+01, .385711D+01, .322441D+01, - + .270098D+01, .226742D+01, .190584D+01, .160483D+01, - + .135016D+01, .113705D+01, .955562D+00, .802460D+00, - + .672341D+00, .561855D+00, .467898D+00, .388170D+00, - + .320530D+00, .263347D+00, .215123D+00, .174668D+00, - + .140848D+00, .112760D+00, .895591D-01, .705245D-01, - + .550951D-01, .425471D-01, .324977D-01, .245300D-01, - + .182775D-01, .134280D-01, .971048D-02, .690009D-02, - + .480435D-02, .326858D-02, .215818D-02, .138157D-02, - + .841140D-03, .477768D-03, .241821D-03, .941249D-04, - + .807806D-05, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00 / - DATA (UPDI(I),I=4005,4056) / - + .492419D+05, .390291D+05, .306262D+05, .240332D+05, - + .188669D+05, .148120D+05, .116337D+05, .913824D+04, - + .718160D+04, .564467D+04, .443912D+04, .349165D+04, - + .274812D+04, .216340D+04, .170428D+04, .134296D+04, - + .105906D+04, .835455D+03, .659629D+03, .521017D+03, - + .411937D+03, .325855D+03, .258043D+03, .204464D+03, - + .162208D+03, .128790D+03, .102402D+03, .812391D+02, - + .647667D+02, .516918D+02, .413376D+02, .331041D+02, - + .265712D+02, .213790D+02, .172400D+02, .139345D+02, - + .112999D+02, .918844D+01, .749878D+01, .613772D+01, - + .504342D+01, .415610D+01, .343639D+01, .284824D+01, - + .236689D+01, .196985D+01, .164296D+01, .136916D+01, - + .114247D+01, .951297D+00, .791633D+00, .657265D+00 / - DATA (UPDI(I),I=4057,4108) / - + .544313D+00, .449217D+00, .369337D+00, .302252D+00, - + .246117D+00, .199269D+00, .160384D+00, .128219D+00, - + .101796D+00, .802056D-01, .626840D-01, .486368D-01, - + .373368D-01, .283842D-01, .213644D-01, .159142D-01, - + .117317D-01, .855575D-02, .617652D-02, .441463D-02, - + .312825D-02, .219815D-02, .154292D-02, .107816D-02, - + .755018D-03, .530930D-03, .376062D-03, .267733D-03, - + .191370D-03, .136051D-03, .953140D-04, .648381D-04, - + .421134D-04, .253766D-04, .136808D-04, .613738D-05, - + .188700D-05, .186637D-06, .000000D+00, .607571D+05, - + .713905D+05, .553773D+05, .429502D+05, .333179D+05, - + .258428D+05, .200493D+05, .155533D+05, .120689D+05, - + .936468D+04, .726881D+04, .564206D+04, .438113D+04 / - DATA (UPDI(I),I=4109,4160) / - + .340222D+04, .264331D+04, .205395D+04, .159692D+04, - + .124183D+04, .966355D+03, .752216D+03, .586018D+03, - + .456734D+03, .356319D+03, .278138D+03, .217360D+03, - + .170006D+03, .133163D+03, .104055D+03, .817318D+02, - + .642790D+02, .506598D+02, .399921D+02, .316497D+02, - + .251172D+02, .199831D+02, .159416D+02, .127641D+02, - + .102523D+02, .826826D+01, .669052D+01, .543740D+01, - + .443340D+01, .362816D+01, .297739D+01, .245039D+01, - + .202018D+01, .166949D+01, .137865D+01, .114020D+01, - + .941026D+00, .776270D+00, .638948D+00, .524615D+00, - + .429285D+00, .349973D+00, .284007D+00, .229336D+00, - + .184155D+00, .147015D+00, .116592D+00, .918411D-01, - + .718142D-01, .557159D-01, .429322D-01, .327460D-01 / - DATA (UPDI(I),I=4161,4212) / - + .247517D-01, .185418D-01, .137643D-01, .101303D-01, - + .739349D-02, .535857D-02, .386119D-02, .277265D-02, - + .198722D-02, .143260D-02, .103617D-02, .756451D-03, - + .557356D-03, .414787D-03, .309898D-03, .231744D-03, - + .171367D-03, .124200D-03, .869559D-04, .579264D-04, - + .357461D-04, .197313D-04, .910183D-05, .292858D-05, - + .286946D-06, .000000D+00, .142370D+06, .110960D+06, - + .854159D+05, .657382D+05, .505940D+05, .389305D+05, - + .299569D+05, .230476D+05, .177332D+05, .136423D+05, - + .104965D+05, .807524D+04, .621369D+04, .478104D+04, - + .367969D+04, .283209D+04, .218051D+04, .167899D+04, - + .129343D+04, .996609D+03, .768382D+03, .592621D+03, - + .457419D+03, .353241D+03, .273056D+03, .211240D+03 / - DATA (UPDI(I),I=4213,4264) / - + .163644D+03, .126444D+03, .982156D+02, .763906D+02, - + .595387D+02, .464871D+02, .363879D+02, .285687D+02, - + .224876D+02, .177536D+02, .140700D+02, .111894D+02, - + .893646D+01, .716340D+01, .576846D+01, .466175D+01, - + .378201D+01, .307764D+01, .251208D+01, .205445D+01, - + .168449D+01, .138026D+01, .113287D+01, .927953D+00, - + .759806D+00, .620825D+00, .506036D+00, .411118D+00, - + .332777D+00, .268151D+00, .215016D+00, .171460D+00, - + .135936D+00, .107071D+00, .837700D-01, .650645D-01, - + .501418D-01, .383819D-01, .290810D-01, .218369D-01, - + .162510D-01, .119852D-01, .876326D-02, .635410D-02, - + .457472D-02, .327408D-02, .233464D-02, .166087D-02, - + .118772D-02, .851441D-03, .615357D-03, .448382D-03 / - DATA (UPDI(I),I=4265,4316) / - + .329494D-03, .242873D-03, .178898D-03, .130239D-03, - + .927987D-04, .638272D-04, .417076D-04, .252076D-04, - + .135956D-04, .609797D-05, .189711D-05, .187374D-06, - + .000000D+00, .210662D+06, .163268D+06, .124874D+06, - + .954805D+05, .729971D+05, .557911D+05, .426368D+05, - + .325748D+05, .248858D+05, .190069D+05, .145165D+05, - + .110846D+05, .846424D+04, .646225D+04, .493425D+04, - + .376714D+04, .287661D+04, .219651D+04, .167769D+04, - + .128151D+04, .979318D+03, .748547D+03, .572498D+03, - + .438027D+03, .335412D+03, .257013D+03, .197188D+03, - + .150864D+03, .116033D+03, .893619D+02, .689586D+02, - + .533107D+02, .413159D+02, .321209D+02, .250369D+02, - + .195765D+02, .153672D+02, .121073D+02, .958096D+01 / - DATA (UPDI(I),I=4317,4368) / - + .761144D+01, .607553D+01, .486802D+01, .391621D+01, - + .316080D+01, .255921D+01, .207653D+01, .168942D+01, - + .137372D+01, .111903D+01, .909802D+00, .739471D+00, - + .599834D+00, .485415D+00, .391569D+00, .314721D+00, - + .251837D+00, .200539D+00, .158825D+00, .125066D+00, - + .978521D-01, .760519D-01, .586873D-01, .449376D-01, - + .341835D-01, .257411D-01, .192149D-01, .142192D-01, - + .104318D-01, .759089D-02, .548117D-02, .393272D-02, - + .280765D-02, .199927D-02, .142203D-02, .101777D-02, - + .730922D-03, .529349D-03, .386469D-03, .284187D-03, - + .209341D-03, .153691D-03, .111307D-03, .786567D-04, - + .535346D-04, .345014D-04, .204979D-04, .108121D-04, - + .469892D-05, .139735D-05, .139577D-06, .000000D+00 / - DATA (UPDI(I),I=4369,4420) / - + .203150D+06, .230799D+06, .175522D+06, .133435D+06, - + .101418D+06, .770534D+05, .585308D+05, .444442D+05, - + .337420D+05, .256078D+05, .194317D+05, .147404D+05, - + .111806D+05, .847807D+04, .642850D+04, .487328D+04, - + .369442D+04, .280028D+04, .212282D+04, .160916D+04, - + .122013D+04, .925227D+03, .701905D+03, .532630D+03, - + .404438D+03, .307271D+03, .233714D+03, .177225D+03, - + .135101D+03, .103118D+03, .788560D+02, .604111D+02, - + .463923D+02, .357413D+02, .276060D+02, .213914D+02, - + .166416D+02, .129960D+02, .101945D+02, .802964D+01, - + .635532D+01, .505017D+01, .402967D+01, .322645D+01, - + .259182D+01, .208674D+01, .168484D+01, .135968D+01, - + .109941D+01, .887296D+00, .715961D+00, .576623D+00 / - DATA (UPDI(I),I=4421,4472) / - + .463334D+00, .371151D+00, .296246D+00, .235433D+00, - + .186207D+00, .146489D+00, .114588D+00, .890696D-01, - + .687803D-01, .527408D-01, .401327D-01, .303429D-01, - + .227131D-01, .168578D-01, .124071D-01, .905639D-02, - + .655975D-02, .471773D-02, .337383D-02, .240287D-02, - + .170864D-02, .121488D-02, .869924D-03, .625482D-03, - + .453555D-03, .331430D-03, .243625D-03, .179147D-03, - + .130990D-03, .943152D-04, .660888D-04, .445134D-04, - + .283087D-04, .165482D-04, .854921D-05, .361031D-05, - + .103292D-05, .104222D-06, .000000D+00, .441107D+06, - + .338360D+06, .255715D+06, .193172D+06, .145879D+06, - + .110114D+06, .830904D+05, .626705D+05, .472544D+05, - + .356146D+05, .268343D+05, .202100D+05, .152171D+05 / - DATA (UPDI(I),I=4473,4524) / - + .114532D+05, .861845D+04, .648305D+04, .487601D+04, - + .366627D+04, .275650D+04, .207208D+04, .155772D+04, - + .117097D+04, .880436D+03, .662073D+03, .498085D+03, - + .374865D+03, .282400D+03, .212035D+03, .160039D+03, - + .120935D+03, .915433D+02, .694164D+02, .527581D+02, - + .402277D+02, .307488D+02, .235809D+02, .181556D+02, - + .140336D+02, .108966D+02, .849673D+01, .665834D+01, - + .523940D+01, .414030D+01, .328363D+01, .261303D+01, - + .208443D+01, .166769D+01, .133373D+01, .106889D+01, - + .855112D+00, .684030D+00, .546221D+00, .435209D+00, - + .345729D+00, .273685D+00, .215740D+00, .169262D+00, - + .132104D+00, .102525D+00, .790761D-01, .605951D-01, - + .461132D-01, .348255D-01, .261346D-01, .194179D-01 / - DATA (UPDI(I),I=4525,4576) / - + .143064D-01, .104527D-01, .757460D-02, .544678D-02, - + .388892D-02, .276062D-02, .195128D-02, .137657D-02, - + .970553D-03, .688632D-03, .490137D-03, .351408D-03, - + .253597D-03, .183855D-03, .133201D-03, .958366D-04, - + .678489D-04, .466919D-04, .308562D-04, .192265D-04, - + .109934D-04, .554174D-05, .227369D-05, .630969D-06, - + .641895D-07, .000000D+00, .628946D+06, .480030D+06, - + .360662D+06, .270843D+06, .203309D+06, .152533D+06, - + .114391D+06, .857407D+05, .642398D+05, .481049D+05, - + .360081D+05, .269392D+05, .201467D+05, .150594D+05, - + .112527D+05, .840440D+04, .627520D+04, .468347D+04, - + .349473D+04, .260685D+04, .194437D+04, .144995D+04, - + .108130D+04, .806364D+03, .601487D+03, .448768D+03 / - DATA (UPDI(I),I=4577,4628) / - + .335093D+03, .249311D+03, .186456D+03, .139594D+03, - + .104674D+03, .786196D+02, .591773D+02, .446872D+02, - + .338241D+02, .256864D+02, .195831D+02, .149896D+02, - + .115257D+02, .890068D+01, .690807D+01, .538445D+01, - + .421491D+01, .331181D+01, .261120D+01, .206405D+01, - + .163658D+01, .129720D+01, .103049D+01, .817214D+00, - + .648095D+00, .513138D+00, .405415D+00, .319391D+00, - + .250757D+00, .196062D+00, .152588D+00, .118147D+00, - + .909740D-01, .696258D-01, .529472D-01, .399922D-01, - + .299803D-01, .223371D-01, .164799D-01, .120601D-01, - + .875520D-02, .630685D-02, .451066D-02, .320544D-02, - + .226661D-02, .159751D-02, .112497D-02, .792653D-03, - + .562544D-03, .400753D-03, .287581D-03, .207619D-03 / - DATA (UPDI(I),I=4629,4680) / - + .150378D-03, .108666D-03, .777971D-04, .546918D-04, - + .372680D-04, .243278D-04, .149238D-04, .837009D-05, - + .411444D-05, .163079D-05, .433484D-06, .446396D-07, - + .000000D+00, .872726D+06, .662942D+06, .495330D+06, - + .369890D+06, .276085D+06, .205944D+06, .153547D+06, - + .114411D+06, .852076D+05, .634191D+05, .471788D+05, - + .350757D+05, .260648D+05, .193572D+05, .143691D+05, - + .106602D+05, .790529D+04, .585921D+04, .434117D+04, - + .321496D+04, .238034D+04, .176179D+04, .130384D+04, - + .964754D+03, .713923D+03, .528338D+03, .391251D+03, - + .288612D+03, .214002D+03, .158825D+03, .118041D+03, - + .878665D+02, .655367D+02, .490374D+02, .367733D+02, - + .276666D+02, .208957D+02, .158451D+02, .120696D+02 / - DATA (UPDI(I),I=4681,4732) / - + .923400D+01, .710031D+01, .548334D+01, .425298D+01, - + .331139D+01, .258733D+01, .202692D+01, .159295D+01, - + .125152D+01, .985590D+00, .774878D+00, .609295D+00, - + .478370D+00, .374804D+00, .292850D+00, .228048D+00, - + .176874D+00, .136561D+00, .104909D+00, .801551D-01, - + .608782D-01, .459475D-01, .344499D-01, .256386D-01, - + .189679D-01, .138985D-01, .101047D-01, .729061D-02, - + .522216D-02, .371601D-02, .262940D-02, .185294D-02, - + .130286D-02, .916326D-03, .645536D-03, .458431D-03, - + .326957D-03, .234857D-03, .169605D-03, .122707D-03, - + .884196D-04, .629808D-04, .439624D-04, .296677D-04, - + .191361D-04, .115643D-04, .636770D-05, .305659D-05, - + .117356D-05, .300247D-06, .312709D-07, .000000D+00 / - DATA (UPDI(I),I=4733,4784) / - + .118364D+07, .895059D+06, .665202D+06, .494074D+06, - + .366770D+06, .272084D+06, .201728D+06, .149463D+06, - + .110675D+06, .818961D+05, .605653D+05, .447590D+05, - + .330587D+05, .243999D+05, .179989D+05, .132681D+05, - + .977549D+04, .719763D+04, .529704D+04, .389606D+04, - + .286454D+04, .210513D+04, .154666D+04, .113600D+04, - + .834323D+03, .612695D+03, .450172D+03, .329396D+03, - + .242262D+03, .178318D+03, .131417D+03, .969912D+02, - + .717177D+02, .531953D+02, .395389D+02, .294830D+02, - + .220680D+02, .165839D+02, .125186D+02, .949137D+01, - + .723261D+01, .553551D+01, .425510D+01, .328366D+01, - + .254301D+01, .197473D+01, .153847D+01, .119827D+01, - + .935599D+00, .729329D+00, .568670D+00, .442774D+00 / - DATA (UPDI(I),I=4785,4836) / - + .344067D+00, .266652D+00, .205978D+00, .158489D+00, - + .121407D+00, .925458D-01, .701687D-01, .528932D-01, - + .396260D-01, .294956D-01, .217959D-01, .160143D-01, - + .116563D-01, .842129D-02, .604036D-02, .430355D-02, - + .304802D-02, .214839D-02, .150952D-02, .105940D-02, - + .744508D-03, .524605D-03, .372876D-03, .266244D-03, - + .191392D-03, .138192D-03, .998064D-04, .716618D-04, - + .507493D-04, .351472D-04, .234745D-04, .149514D-04, - + .889566D-05, .480615D-05, .225181D-05, .837800D-06, - + .206877D-06, .217835D-07, .000000D+00, .157358D+07, - + .118474D+07, .875963D+06, .647238D+06, .477944D+06, - + .352672D+06, .260070D+06, .191639D+06, .141122D+06, - + .103842D+06, .763589D+05, .561062D+05, .411975D+05 / - DATA (UPDI(I),I=4837,4888) / - + .302268D+05, .221629D+05, .162377D+05, .118890D+05, - + .869848D+04, .636040D+04, .464757D+04, .339430D+04, - + .247752D+04, .180767D+04, .131835D+04, .961295D+03, - + .700756D+03, .511029D+03, .371043D+03, .270781D+03, - + .197742D+03, .144564D+03, .105828D+03, .776057D+02, - + .570829D+02, .420693D+02, .311022D+02, .230795D+02, - + .171940D+02, .128663D+02, .967009D+01, .730456D+01, - + .554190D+01, .422296D+01, .323064D+01, .248035D+01, - + .190952D+01, .147501D+01, .113907D+01, .881911D+00, - + .681731D+00, .527166D+00, .407106D+00, .313789D+00, - + .241239D+00, .184871D+00, .141134D+00, .107277D+00, - + .811512D-01, .610664D-01, .456917D-01, .339825D-01, - + .251156D-01, .184306D-01, .134511D-01, .972774D-02 / - DATA (UPDI(I),I=4889,4940) / - + .698545D-02, .498251D-02, .353213D-02, .249091D-02, - + .174968D-02, .122632D-02, .859427D-03, .603757D-03, - + .425645D-03, .302840D-03, .216462D-03, .155674D-03, - + .112322D-03, .809290D-04, .578579D-04, .407082D-04, - + .279525D-04, .184653D-04, .116058D-04, .679439D-05, - + .359960D-05, .164534D-05, .593283D-06, .141676D-06, - + .150791D-07, .000000D+00, .205475D+07, .154051D+07, - + .113331D+07, .833169D+06, .612104D+06, .449339D+06, - + .329625D+06, .241609D+06, .176967D+06, .129512D+06, - + .947117D+05, .692037D+05, .505275D+05, .368599D+05, - + .268690D+05, .195694D+05, .142424D+05, .103568D+05, - + .752599D+04, .546460D+04, .396539D+04, .287545D+04, - + .208406D+04, .150962D+04, .109317D+04, .791269D+03 / - DATA (UPDI(I),I=4941,4992) / - + .572900D+03, .412890D+03, .299083D+03, .216762D+03, - + .157252D+03, .114219D+03, .830950D+02, .606313D+02, - + .443209D+02, .324977D+02, .239149D+02, .176677D+02, - + .131097D+02, .976994D+01, .731757D+01, .550478D+01, - + .415914D+01, .315491D+01, .240177D+01, .183347D+01, - + .140445D+01, .107553D+01, .825850D+00, .633146D+00, - + .485618D+00, .372003D+00, .284446D+00, .216955D+00, - + .164962D+00, .124964D+00, .942622D-01, .707708D-01, - + .528609D-01, .392648D-01, .289946D-01, .212804D-01, - + .155105D-01, .112463D-01, .808280D-02, .577060D-02, - + .409426D-02, .288892D-02, .202936D-02, .142117D-02, - + .994056D-03, .695960D-03, .488916D-03, .344932D-03, - + .245665D-03, .175740D-03, .126391D-03, .910745D-04 / - DATA (UPDI(I),I=4993,5044) / - + .654192D-04, .465350D-04, .325075D-04, .221163D-04, - + .144419D-04, .895202D-05, .515402D-05, .267608D-05, - + .119290D-05, .416978D-06, .964657D-07, .103761D-07, - + .000000D+00, .263933D+07, .197070D+07, .144274D+07, - + .105545D+07, .771559D+06, .563553D+06, .411310D+06, - + .299934D+06, .218544D+06, .159097D+06, .115726D+06, - + .841014D+05, .610679D+05, .443014D+05, .321113D+05, - + .232536D+05, .168253D+05, .121627D+05, .878527D+04, - + .634005D+04, .457212D+04, .329449D+04, .237244D+04, - + .170728D+04, .122807D+04, .882871D+03, .634808D+03, - + .454249D+03, .326691D+03, .235053D+03, .169261D+03, - + .122019D+03, .880929D+02, .637827D+02, .462593D+02, - + .336504D+02, .245650D+02, .180016D+02, .132489D+02 / - DATA (UPDI(I),I=5045,5096) / - + .979299D+01, .727463D+01, .542743D+01, .406687D+01, - + .305948D+01, .230992D+01, .174883D+01, .132867D+01, - + .100917D+01, .768620D+00, .584509D+00, .444731D+00, - + .337985D+00, .256407D+00, .194049D+00, .146410D+00, - + .110068D+00, .824029D-01, .614096D-01, .455349D-01, - + .335816D-01, .246248D-01, .179504D-01, .129970D-01, - + .936448D-02, .669005D-02, .474985D-02, .335326D-02, - + .235587D-02, .164909D-02, .115187D-02, .804388D-03, - + .562826D-03, .395496D-03, .279258D-03, .199077D-03, - + .142488D-03, .102427D-03, .736639D-04, .527150D-04, - + .372840D-04, .258422D-04, .174093D-04, .112313D-04, - + .686253D-05, .388374D-05, .197538D-05, .858500D-06, - + .291012D-06, .653285D-07, .710015D-08, .000000D+00 / - DATA (UPDI(I),I=5097,5148) / - + .461958D+04, .555727D+04, .460735D+04, .381977D+04, - + .316679D+04, .262540D+04, .217654D+04, .180440D+04, - + .149587D+04, .124008D+04, .102801D+04, .852192D+03, - + .706434D+03, .585595D+03, .485418D+03, .402371D+03, - + .333525D+03, .276453D+03, .229143D+03, .189925D+03, - + .157417D+03, .130470D+03, .108133D+03, .896194D+02, - + .742736D+02, .615540D+02, .510113D+02, .421603D+02, - + .349393D+02, .289532D+02, .239906D+02, .198762D+02, - + .164645D+02, .136431D+02, .112967D+02, .935103D+01, - + .773720D+01, .639818D+01, .528676D+01, .436352D+01, - + .359748D+01, .296068D+01, .243152D+01, .199189D+01, - + .162685D+01, .132409D+01, .107423D+01, .866453D+00, - + .696232D+00, .555544D+00, .440889D+00, .347506D+00 / - DATA (UPDI(I),I=5149,5200) / - + .271851D+00, .210916D+00, .162160D+00, .123433D+00, - + .929200D-01, .690945D-01, .506751D-01, .365914D-01, - + .259540D-01, .180294D-01, .122165D-01, .804427D-02, - + .508023D-02, .304093D-02, .167995D-02, .806371D-03, - + .274451D-03, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .216035D+05, - + .174089D+05, .139170D+05, .111277D+05, .890256D+04, - + .712386D+04, .570396D+04, .456808D+04, .366070D+04, - + .293422D+04, .235346D+04, .188808D+04, .151576D+04 / - DATA (UPDI(I),I=5201,5252) / - + .121714D+04, .978039D+03, .786093D+03, .632271D+03, - + .508667D+03, .409527D+03, .329787D+03, .265775D+03, - + .214239D+03, .172830D+03, .139458D+03, .112618D+03, - + .909714D+02, .735423D+02, .592955D+02, .479948D+02, - + .388573D+02, .314875D+02, .255218D+02, .207048D+02, - + .168108D+02, .136547D+02, .110941D+02, .902172D+01, - + .733745D+01, .597160D+01, .485877D+01, .395509D+01, - + .321702D+01, .261554D+01, .212354D+01, .172191D+01, - + .139308D+01, .112550D+01, .905183D+00, .726707D+00, - + .580210D+00, .461720D+00, .365563D+00, .287981D+00, - + .225512D+00, .175547D+00, .135693D+00, .104148D+00, - + .792937D-01, .598973D-01, .448280D-01, .332501D-01, - + .244099D-01, .177351D-01, .127651D-01, .906114D-02 / - DATA (UPDI(I),I=5253,5304) / - + .634416D-02, .438097D-02, .297733D-02, .199006D-02, - + .130178D-02, .830539D-03, .509058D-03, .295025D-03, - + .150171D-03, .570569D-04, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .000000D+00, .000000D+00, - + .000000D+00, .000000D+00, .492191D+05, .390083D+05, - + .306073D+05, .240161D+05, .188513D+05, .147978D+05, - + .116208D+05, .912650D+04, .717093D+04, .563497D+04, - + .443029D+04, .348363D+04, .274082D+04, .215677D+04, - + .169824D+04, .133747D+04, .105407D+04, .830918D+03, - + .655501D+03, .517261D+03, .408517D+03, .322741D+03, - + .255205D+03, .201877D+03, .159846D+03, .126632D+03 / - DATA (UPDI(I),I=5305,5356) / - + .100427D+03, .794328D+02, .631089D+02, .501676D+02, - + .399326D+02, .318062D+02, .253687D+02, .202616D+02, - + .161985D+02, .129611D+02, .103875D+02, .833140D+01, - + .669215D+01, .537797D+01, .432760D+01, .348245D+01, - + .280357D+01, .225569D+01, .181423D+01, .145698D+01, - + .116954D+01, .935202D+00, .747199D+00, .594140D+00, - + .471282D+00, .372235D+00, .292797D+00, .229154D+00, - + .178465D+00, .138163D+00, .106339D+00, .813050D-01, - + .617854D-01, .466138D-01, .349455D-01, .260122D-01, - + .192439D-01, .141757D-01, .103727D-01, .755507D-02, - + .549626D-02, .400060D-02, .292839D-02, .216007D-02, - + .161621D-02, .122766D-02, .950342D-03, .747240D-03, - + .599237D-03, .484554D-03, .394465D-03, .320353D-03 / - DATA (UPDI(I),I=5357,5408) / - + .258655D-03, .205643D-03, .160600D-03, .121887D-03, - + .894195D-04, .626490D-04, .414198D-04, .251979D-04, - + .136469D-04, .613334D-05, .188679D-05, .186635D-06, - + .000000D+00, .607343D+05, .713661D+05, .553551D+05, - + .429301D+05, .332996D+05, .258262D+05, .200341D+05, - + .155396D+05, .120564D+05, .935334D+04, .725851D+04, - + .563270D+04, .437264D+04, .339450D+04, .263631D+04, - + .204758D+04, .159114D+04, .123658D+04, .961585D+03, - + .747882D+03, .582079D+03, .453152D+03, .353061D+03, - + .275173D+03, .214660D+03, .167544D+03, .130917D+03, - + .102006D+03, .798574D+02, .625617D+02, .490832D+02, - + .385421D+02, .303129D+02, .238817D+02, .188386D+02, - + .148791D+02, .117756D+02, .933122D+01, .740881D+01 / - DATA (UPDI(I),I=5409,5460) / - + .588842D+01, .468893D+01, .373604D+01, .297979D+01, - + .237663D+01, .189598D+01, .151114D+01, .120457D+01, - + .956963D+00, .760085D+00, .601112D+00, .474477D+00, - + .373113D+00, .292347D+00, .228035D+00, .177090D+00, - + .136787D+00, .105103D+00, .802807D-01, .609911D-01, - + .460438D-01, .345743D-01, .258090D-01, .191743D-01, - + .142059D-01, .104752D-01, .770678D-02, .567799D-02, - + .419761D-02, .312922D-02, .235700D-02, .180357D-02, - + .140242D-02, .111018D-02, .891927D-03, .728357D-03, - + .598494D-03, .493983D-03, .406109D-03, .331671D-03, - + .266612D-03, .210655D-03, .161834D-03, .120314D-03, - + .855453D-04, .574913D-04, .356372D-04, .197114D-04, - + .909953D-05, .292846D-05, .286945D-06, .000000D+00 / - DATA (UPDI(I),I=5461,5512) / - + .142340D+06, .110932D+06, .853908D+05, .657154D+05, - + .505733D+05, .389117D+05, .299398D+05, .230321D+05, - + .177192D+05, .136296D+05, .104849D+05, .806472D+04, - + .620414D+04, .477238D+04, .367183D+04, .282496D+04, - + .217404D+04, .167313D+04, .128811D+04, .991778D+03, - + .763998D+03, .588640D+03, .453804D+03, .349957D+03, - + .270070D+03, .208524D+03, .161171D+03, .124194D+03, - + .961620D+02, .745146D+02, .578220D+02, .449139D+02, - + .349431D+02, .272393D+02, .212621D+02, .166221D+02, - + .130233D+02, .102201D+02, .803816D+01, .633103D+01, - + .499756D+01, .394909D+01, .312474D+01, .247362D+01, - + .195930D+01, .155113D+01, .122862D+01, .970221D+00, - + .766288D+00, .602812D+00, .473445D+00, .370576D+00 / - DATA (UPDI(I),I=5513,5564) / - + .289090D+00, .224584D+00, .173747D+00, .133736D+00, - + .102422D+00, .780013D-01, .590944D-01, .445013D-01, - + .333372D-01, .248327D-01, .184092D-01, .136092D-01, - + .100094D-01, .734257D-02, .538884D-02, .396421D-02, - + .293523D-02, .219175D-02, .165825D-02, .127194D-02, - + .991124D-03, .782617D-03, .627489D-03, .506132D-03, - + .410043D-03, .331115D-03, .265644D-03, .209942D-03, - + .163017D-03, .123137D-03, .899374D-04, .628009D-04, - + .413950D-04, .251304D-04, .135817D-04, .609639D-05, - + .189703D-05, .187373D-06, .000000D+00, .210628D+06, - + .163237D+06, .124846D+06, .954549D+05, .729739D+05, - + .557701D+05, .426177D+05, .325575D+05, .248701D+05, - + .189927D+05, .145036D+05, .110729D+05, .845363D+04 / - DATA (UPDI(I),I=5565,5616) / - + .645263D+04, .492553D+04, .375924D+04, .286945D+04, - + .219002D+04, .167181D+04, .127618D+04, .974487D+03, - + .744168D+03, .568528D+03, .434426D+03, .332144D+03, - + .254046D+03, .194492D+03, .148416D+03, .113805D+03, - + .873323D+02, .671071D+02, .516196D+02, .397687D+02, - + .307031D+02, .237358D+02, .183811D+02, .142673D+02, - + .110948D+02, .864846D+01, .675310D+01, .528614D+01, - + .414356D+01, .325307D+01, .255605D+01, .201007D+01, - + .158044D+01, .124362D+01, .975892D+00, .766138D+00, - + .599226D+00, .468029D+00, .364414D+00, .282847D+00, - + .218681D+00, .168397D+00, .129051D+00, .984183D-01, - + .746570D-01, .563471D-01, .422846D-01, .315719D-01, - + .234478D-01, .173338D-01, .127816D-01, .937853D-02 / - DATA (UPDI(I),I=5617,5668) / - + .686588D-02, .502953D-02, .369379D-02, .273013D-02, - + .203491D-02, .153590D-02, .117469D-02, .911941D-03, - + .716933D-03, .571674D-03, .458312D-03, .368700D-03, - + .295566D-03, .235174D-03, .184323D-03, .141758D-03, - + .106034D-03, .765588D-04, .527924D-04, .342787D-04, - + .204437D-04, .108025D-04, .469784D-05, .139729D-05, - + .139576D-06, .000000D+00, .203119D+06, .230765D+06, - + .175491D+06, .133406D+06, .101392D+06, .770300D+05, - + .585096D+05, .444250D+05, .337246D+05, .255920D+05, - + .194175D+05, .147275D+05, .111689D+05, .846747D+04, - + .641889D+04, .486459D+04, .368655D+04, .279316D+04, - + .211637D+04, .160332D+04, .121485D+04, .920446D+03, - + .697577D+03, .528711D+03, .400888D+03, .304054D+03 / - DATA (UPDI(I),I=5669,5720) / - + .230797D+03, .174582D+03, .132702D+03, .100938D+03, - + .768734D+02, .586062D+02, .447469D+02, .342395D+02, - + .262337D+02, .201365D+02, .154931D+02, .119445D+02, - + .923188D+01, .714911D+01, .555090D+01, .431700D+01, - + .336334D+01, .262323D+01, .204814D+01, .159927D+01, - + .125006D+01, .974613D+00, .760381D+00, .591145D+00, - + .459032D+00, .355410D+00, .274361D+00, .211012D+00, - + .161667D+00, .123288D+00, .935797D-01, .706667D-01, - + .531028D-01, .396861D-01, .295151D-01, .218401D-01, - + .160893D-01, .118258D-01, .865117D-02, .631683D-02, - + .461639D-02, .338344D-02, .249582D-02, .185684D-02, - + .139848D-02, .106697D-02, .825795D-03, .646848D-03, - + .513411D-03, .409430D-03, .327337D-03, .260658D-03 / - DATA (UPDI(I),I=5721,5772) / - + .205828D-03, .160048D-03, .121978D-03, .903778D-04, - + .645418D-04, .439732D-04, .281490D-04, .165099D-04, - + .854254D-05, .360957D-05, .103288D-05, .104222D-06, - + .000000D+00, .441064D+06, .338321D+06, .255679D+06, - + .193140D+06, .145850D+06, .110087D+06, .830666D+05, - + .626489D+05, .472348D+05, .355969D+05, .268183D+05, - + .201955D+05, .152040D+05, .114414D+05, .860773D+04, - + .647336D+04, .486725D+04, .365835D+04, .274934D+04, - + .206561D+04, .155187D+04, .116569D+04, .875665D+03, - + .657761D+03, .494188D+03, .371341D+03, .279213D+03, - + .209156D+03, .157434D+03, .118575D+03, .894047D+02, - + .674771D+02, .509977D+02, .386285D+02, .292951D+02, - + .222589D+02, .169530D+02, .129398D+02, .990219D+01 / - DATA (UPDI(I),I=5773,5824) / - + .759385D+01, .583990D+01, .449948D+01, .347347D+01, - + .268511D+01, .207828D+01, .160918D+01, .124754D+01, - + .964919D+00, .747019D+00, .576407D+00, .444326D+00, - + .341604D+00, .261891D+00, .200084D+00, .152296D+00, - + .115413D+00, .870637D-01, .653565D-01, .488266D-01, - + .362859D-01, .268373D-01, .197526D-01, .144735D-01, - + .105814D-01, .769832D-02, .558965D-02, .406046D-02, - + .295665D-02, .216485D-02, .159710D-02, .119107D-02, - + .898610D-03, .686735D-03, .530546D-03, .414903D-03, - + .325769D-03, .256287D-03, .200782D-03, .155934D-03, - + .119243D-03, .893238D-04, .650366D-04, .456005D-04, - + .304802D-04, .191168D-04, .109675D-04, .553729D-05, - + .227320D-05, .630944D-06, .641892D-07, .000000D+00 / - DATA (UPDI(I),I=5825,5876) / - + .628897D+06, .479986D+06, .360622D+06, .270807D+06, - + .203277D+06, .152504D+06, .114364D+06, .857165D+05, - + .642179D+05, .480851D+05, .359903D+05, .269231D+05, - + .201322D+05, .150462D+05, .112408D+05, .839365D+04, - + .626550D+04, .467472D+04, .348683D+04, .259972D+04, - + .193794D+04, .144415D+04, .107607D+04, .801648D+03, - + .597235D+03, .444932D+03, .331633D+03, .246194D+03, - + .183643D+03, .137055D+03, .102381D+03, .765484D+02, - + .573054D+02, .429944D+02, .322932D+02, .243019D+02, - + .183310D+02, .138581D+02, .105041D+02, .797983D+01, - + .607968D+01, .464144D+01, .355077D+01, .272068D+01, - + .208756D+01, .160268D+01, .123222D+01, .945331D+00, - + .726059D+00, .555888D+00, .425260D+00, .324533D+00 / - DATA (UPDI(I),I=5877,5928) / - + .247003D+00, .187378D+00, .141637D+00, .106613D+00, - + .798960D-01, .595939D-01, .442446D-01, .326848D-01, - + .240346D-01, .175935D-01, .128243D-01, .933004D-02, - + .675720D-02, .488683D-02, .353751D-02, .256835D-02, - + .187585D-02, .138110D-02, .102799D-02, .774109D-03, - + .590245D-03, .454765D-03, .354355D-03, .276992D-03, - + .216704D-03, .168694D-03, .130035D-03, .986195D-04, - + .731696D-04, .527210D-04, .365145D-04, .240723D-04, - + .148505D-04, .835310D-05, .411157D-05, .163048D-05, - + .433469D-06, .446394D-07, .000000D+00, .872672D+06, - + .662893D+06, .495285D+06, .369850D+06, .276049D+06, - + .205911D+06, .153518D+06, .114384D+06, .851833D+05, - + .633971D+05, .471589D+05, .350578D+05, .260486D+05 / - DATA (UPDI(I),I=5929,5980) / - + .193426D+05, .143559D+05, .106483D+05, .789460D+04, - + .584958D+04, .433249D+04, .320714D+04, .237330D+04, - + .175545D+04, .129813D+04, .959623D+03, .709306D+03, - + .524182D+03, .387513D+03, .285255D+03, .210981D+03, - + .156108D+03, .115596D+03, .856664D+02, .635568D+02, - + .472553D+02, .351697D+02, .262243D+02, .195991D+02, - + .146807D+02, .110254D+02, .829949D+01, .626591D+01, - + .474076D+01, .359457D+01, .273019D+01, .207681D+01, - + .158092D+01, .120540D+01, .917182D+00, .698794D+00, - + .530795D+00, .402928D+00, .305171D+00, .230544D+00, - + .173624D+00, .130306D+00, .974026D-01, .724991D-01, - + .537211D-01, .396289D-01, .290952D-01, .212685D-01, - + .154820D-01, .112255D-01, .812696D-02, .585974D-02 / - DATA (UPDI(I),I=5981,6032) / - + .422162D-02, .304615D-02, .220602D-02, .160805D-02, - + .118225D-02, .878920D-03, .661097D-03, .503327D-03, - + .387022D-03, .300683D-03, .234127D-03, .182252D-03, - + .141033D-03, .107946D-03, .812193D-04, .597075D-04, - + .425878D-04, .291499D-04, .189634D-04, .115156D-04, - + .635663D-05, .305475D-05, .117337D-05, .300237D-06, - + .312708D-07, .000000D+00, .118358D+07, .895004D+06, - + .665152D+06, .494030D+06, .366730D+06, .272047D+06, - + .201695D+06, .149433D+06, .110648D+06, .818718D+05, - + .605434D+05, .447392D+05, .330408D+05, .243838D+05, - + .179844D+05, .132550D+05, .976376D+04, .718708D+04, - + .528755D+04, .388753D+04, .285687D+04, .209824D+04, - + .154047D+04, .113044D+04, .829333D+03, .608216D+03 / - DATA (UPDI(I),I=6033,6084) / - + .446153D+03, .325796D+03, .239034D+03, .175423D+03, - + .128822D+03, .946656D+02, .696338D+02, .513282D+02, - + .378674D+02, .279878D+02, .207318D+02, .153915D+02, - + .114564D+02, .854746D+01, .639606D+01, .479674D+01, - + .360528D+01, .271471D+01, .204740D+01, .154540D+01, - + .116856D+01, .881855D+00, .666475D+00, .502228D+00, - + .378274D+00, .284314D+00, .213176D+00, .159365D+00, - + .118741D+00, .881332D-01, .651489D-01, .479530D-01, - + .351449D-01, .256432D-01, .186340D-01, .134887D-01, - + .972910D-02, .701009D-02, .503305D-02, .361321D-02, - + .259975D-02, .187881D-02, .136756D-02, .100457D-02, - + .746343D-03, .561024D-03, .426703D-03, .327556D-03, - + .253799D-03, .196881D-03, .152499D-03, .117302D-03 / - DATA (UPDI(I),I=6085,6136) / - + .891398D-04, .665225D-04, .484435D-04, .341924D-04, - + .231203D-04, .148351D-04, .886345D-05, .479896D-05, - + .225065D-05, .837679D-06, .206871D-06, .217834D-07, - + .000000D+00, .157351D+07, .118468D+07, .875908D+06, - + .647188D+06, .477899D+06, .352631D+06, .260034D+06, - + .191606D+06, .141092D+06, .103815D+06, .763347D+05, - + .560844D+05, .411779D+05, .302092D+05, .221470D+05, - + .162234D+05, .118762D+05, .868696D+04, .635006D+04, - + .463829D+04, .338598D+04, .247005D+04, .180098D+04, - + .131235D+04, .955924D+03, .695947D+03, .506726D+03, - + .367201D+03, .267346D+03, .194673D+03, .141823D+03, - + .103381D+03, .754223D+02, .551359D+02, .403351D+02, - + .295593D+02, .217088D+02, .159784D+02, .117907D+02 / - DATA (UPDI(I),I=6137,6188) / - + .872096D+01, .646956D+01, .481013D+01, .358437D+01, - + .267603D+01, .200120D+01, .149791D+01, .112333D+01, - + .840797D+00, .630346D+00, .471234D+00, .352165D+00, - + .262667D+00, .195464D+00, .145046D+00, .107290D+00, - + .790711D-01, .580478D-01, .424412D-01, .309045D-01, - + .224102D-01, .161891D-01, .116549D-01, .836371D-02, - + .599883D-02, .428997D-02, .306991D-02, .220347D-02, - + .158982D-02, .115610D-02, .848891D-03, .630545D-03, - + .473844D-03, .360122D-03, .276017D-03, .213300D-03, - + .164835D-03, .127033D-03, .971091D-04, .732518D-04, - + .542047D-04, .390908D-04, .272922D-04, .182240D-04, - + .115279D-04, .677318D-05, .359495D-05, .164460D-05, - + .593207D-06, .141673D-06, .150790D-07, .000000D+00 / - DATA (UPDI(I),I=6189,6240) / - + .205468D+07, .154044D+07, .113325D+07, .833114D+06, - + .612054D+06, .449294D+06, .329584D+06, .241572D+06, - + .176934D+06, .129482D+06, .946851D+05, .691798D+05, - + .505061D+05, .368406D+05, .268517D+05, .195539D+05, - + .142285D+05, .103443D+05, .751476D+04, .545454D+04, - + .395639D+04, .286739D+04, .207685D+04, .150318D+04, - + .108741D+04, .786127D+03, .568312D+03, .408805D+03, - + .295443D+03, .213521D+03, .154368D+03, .111655D+03, - + .808173D+02, .586097D+02, .425294D+02, .309126D+02, - + .225150D+02, .164339D+02, .120252D+02, .881967D+01, - + .648768D+01, .478299D+01, .353419D+01, .261651D+01, - + .194042D+01, .144042D+01, .107142D+01, .795445D+00, - + .591594D+00, .438773D+00, .325364D+00, .240828D+00 / - DATA (UPDI(I),I=6241,6292) / - + .177869D+00, .131020D+00, .962154D-01, .704106D-01, - + .513363D-01, .372857D-01, .269770D-01, .194434D-01, - + .139653D-01, .100005D-01, .714155D-02, .510025D-02, - + .363413D-02, .259323D-02, .185758D-02, .133865D-02, - + .972928D-03, .714370D-03, .530668D-03, .398747D-03, - + .302842D-03, .231745D-03, .178594D-03, .137465D-03, - + .105382D-03, .800404D-04, .599162D-04, .439490D-04, - + .313776D-04, .216615D-04, .142782D-04, .890003D-05, - + .514011D-05, .267309D-05, .119243D-05, .416931D-06, - + .964635D-07, .103761D-07, .000000D+00, .263925D+07, - + .197063D+07, .144268D+07, .105539D+07, .771504D+06, - + .563503D+06, .411265D+06, .299894D+06, .218508D+06, - + .159065D+06, .115697D+06, .840752D+05, .610444D+05 / - DATA (UPDI(I),I=6293,6344) / - + .442803D+05, .320924D+05, .232367D+05, .168101D+05, - + .121492D+05, .877312D+04, .632919D+04, .456241D+04, - + .328582D+04, .236470D+04, .170038D+04, .122192D+04, - + .877393D+03, .629934D+03, .449923D+03, .322849D+03, - + .231643D+03, .166238D+03, .119343D+03, .857264D+02, - + .616923D+02, .444163D+02, .320287D+02, .231411D+02, - + .167546D+02, .121601D+02, .884554D+01, .645322D+01, - + .471841D+01, .345775D+01, .253890D+01, .186745D+01, - + .137497D+01, .101451D+01, .747158D+00, .551299D+00, - + .405689D+00, .298519D+00, .219288D+00, .160756D+00, - + .117550D+00, .857068D-01, .622836D-01, .451038D-01, - + .325452D-01, .233995D-01, .167647D-01, .119743D-01, - + .853086D-02, .606388D-02, .431330D-02, .306331D-02 / - DATA (UPDI(I),I=6345,6396) / - + .218056D-02, .155946D-02, .112290D-02, .815984D-03, - + .599277D-03, .445284D-03, .334572D-03, .253912D-03, - + .193958D-03, .149028D-03, .114220D-03, .870776D-04, - + .656925D-04, .487862D-04, .354608D-04, .250562D-04, - + .170974D-04, .111208D-04, .682798D-05, .387466D-05, - + .197346D-05, .858205D-06, .290983D-06, .653272D-07, - + .710013D-08, .000000D+00, .119143D-02, .143316D-02, - + .174111D-02, .211528D-02, .256992D-02, .312235D-02, - + .379364D-02, .460938D-02, .560067D-02, .680535D-02, - + .826936D-02, .100486D-01, .122108D-01, .148386D-01, - + .180321D-01, .219127D-01, .266281D-01, .323569D-01, - + .393159D-01, .477670D-01, .580268D-01, .704765D-01, - + .855748D-01, .103871D+00, .126021D+00, .152802D+00 / - DATA (UPDI(I),I=6397,6448) / - + .185131D+00, .224685D+00, .271587D+00, .327767D+00, - + .394801D+00, .474406D+00, .568395D+00, .678236D+00, - + .806199D+00, .953390D+00, .112071D+01, .130831D+01, - + .151542D+01, .174017D+01, .197894D+01, .222756D+01, - + .248018D+01, .273015D+01, .297026D+01, .319315D+01, - + .339113D+01, .355988D+01, .369228D+01, .378618D+01, - + .383828D+01, .384826D+01, .381682D+01, .374591D+01, - + .363859D+01, .349877D+01, .333099D+01, .314020D+01, - + .293157D+01, .271027D+01, .248130D+01, .224940D+01, - + .201885D+01, .179449D+01, .157726D+01, .137127D+01, - + .117871D+01, .100117D+01, .839720D+00, .694919D+00, - + .566884D+00, .455326D+00, .359557D+00, .278607D+00, - + .211986D+00, .157392D+00, .113925D+00, .801101D-01 / - DATA (UPDI(I),I=6449,6500) / - + .544872D-01, .356487D-01, .222763D-01, .131835D-01, - + .726861D-02, .368584D-02, .167049D-02, .649755D-03, - + .202619D-03, .445822D-04, .519520D-05, .128074D-06, - + .000000D+00, .266793D+06, .212198D+06, .167115D+06, - + .131544D+06, .103553D+06, .814769D+05, .641120D+05, - + .504213D+05, .396569D+05, .311738D+05, .245068D+05, - + .192551D+05, .151296D+05, .118813D+05, .933099D+04, - + .732397D+04, .574898D+04, .451022D+04, .353865D+04, - + .277490D+04, .217620D+04, .170583D+04, .133733D+04, - + .104802D+04, .821491D+03, .643752D+03, .504664D+03, - + .394309D+03, .309371D+03, .242813D+03, .190810D+03, - + .150093D+03, .118311D+03, .935132D+02, .741283D+02, - + .589911D+02, .472078D+02, .380163D+02, .308688D+02 / - DATA (UPDI(I),I=6501,6552) / - + .252928D+02, .209596D+02, .175707D+02, .149237D+02, - + .128374D+02, .111877D+02, .986337D+01, .879395D+01, - + .790227D+01, .715554D+01, .650538D+01, .593534D+01, - + .542024D+01, .494904D+01, .450988D+01, .409855D+01, - + .370959D+01, .334225D+01, .299451D+01, .266689D+01, - + .235914D+01, .207209D+01, .180599D+01, .156113D+01, - + .133868D+01, .113624D+01, .954923D+00, .794041D+00, - + .652848D+00, .530218D+00, .425013D+00, .335804D+00, - + .261256D+00, .199791D+00, .149852D+00, .110323D+00, - + .791956D-01, .553579D-01, .375596D-01, .246051D-01, - + .154870D-01, .928344D-02, .526335D-02, .276829D-02, - + .133653D-02, .573615D-03, .211003D-03, .618598D-04, - + .129361D-04, .151705D-05, .479764D-07, .000000D+00 / - DATA (UPDI(I),I=6553,6604) / - + .887681D+06, .698190D+06, .542954D+06, .421972D+06, - + .327952D+06, .254719D+06, .197838D+06, .153559D+06, - + .119188D+06, .924475D+05, .717040D+05, .555761D+05, - + .430736D+05, .333597D+05, .258349D+05, .199928D+05, - + .154707D+05, .119626D+05, .924943D+04, .714631D+04, - + .552110D+04, .426242D+04, .329067D+04, .253880D+04, - + .195883D+04, .151050D+04, .116502D+04, .895087D+03, - + .690558D+03, .532768D+03, .411408D+03, .317874D+03, - + .246004D+03, .190801D+03, .148305D+03, .115617D+03, - + .905358D+02, .712393D+02, .564215D+02, .449949D+02, - + .362015D+02, .293861D+02, .240994D+02, .199633D+02, - + .167136D+02, .141295D+02, .120663D+02, .103769D+02, - + .899525D+01, .783205D+01, .685137D+01, .600741D+01 / - DATA (UPDI(I),I=6605,6656) / - + .527431D+01, .462916D+01, .405820D+01, .354882D+01, - + .309358D+01, .268536D+01, .231976D+01, .199267D+01, - + .170110D+01, .144230D+01, .121356D+01, .101366D+01, - + .838292D+00, .686706D+00, .556688D+00, .446293D+00, - + .353427D+00, .276225D+00, .212747D+00, .161311D+00, - + .120178D+00, .877589D-01, .628709D-01, .438765D-01, - + .297828D-01, .196013D-01, .124351D-01, .756806D-02, - + .437524D-02, .238775D-02, .120422D-02, .555975D-03, - + .227025D-03, .792624D-04, .219520D-04, .438676D-05, - + .526889D-06, .200947D-07, .000000D+00, .196446D+07, - + .153209D+07, .118000D+07, .908208D+06, .698941D+06, - + .537513D+06, .413315D+06, .317582D+06, .243985D+06, - + .187301D+06, .143762D+06, .110256D+06, .845419D+05 / - DATA (UPDI(I),I=6657,6708) / - + .647720D+05, .496144D+05, .379717D+05, .290543D+05, - + .222119D+05, .169768D+05, .129642D+05, .989759D+04, - + .754979D+04, .575773D+04, .438745D+04, .334277D+04, - + .254486D+04, .193743D+04, .146872D+04, .111798D+04, - + .850835D+03, .647939D+03, .493599D+03, .376510D+03, - + .287759D+03, .220309D+03, .169107D+03, .130316D+03, - + .100854D+03, .785035D+02, .614780D+02, .485237D+02, - + .385981D+02, .309794D+02, .250851D+02, .205030D+02, - + .169031D+02, .140644D+02, .117748D+02, .993324D+01, - + .841415D+01, .716133D+01, .611099D+01, .522317D+01, - + .446537D+01, .381497D+01, .325333D+01, .276713D+01, - + .234515D+01, .197897D+01, .166151D+01, .138698D+01, - + .115045D+01, .947280D+00, .774647D+00, .627254D+00 / - DATA (UPDI(I),I=6709,6760) / - + .503208D+00, .399547D+00, .313756D+00, .243383D+00, - + .186316D+00, .140540D+00, .104349D+00, .761118D-01, - + .543925D-01, .381279D-01, .260202D-01, .172634D-01, - + .110986D-01, .687424D-02, .408164D-02, .230082D-02, - + .122372D-02, .601357D-03, .270636D-03, .107949D-03, - + .369718D-04, .101539D-04, .205480D-05, .257879D-06, - + .974981D-08, .000000D+00, .329453D+07, .255392D+07, - + .195342D+07, .149303D+07, .114090D+07, .871169D+06, - + .665042D+06, .507293D+06, .386855D+06, .294771D+06, - + .224538D+06, .170894D+06, .130022D+06, .988381D+05, - + .751058D+05, .570198D+05, .432722D+05, .328083D+05, - + .248647D+05, .188262D+05, .142483D+05, .107732D+05, - + .814258D+04, .614858D+04, .464131D+04, .350031D+04 / - DATA (UPDI(I),I=6761,6812) / - + .263942D+04, .198124D+04, .149323D+04, .112505D+04, - + .848013D+03, .639328D+03, .482502D+03, .364811D+03, - + .276222D+03, .209644D+03, .159689D+03, .122123D+03, - + .938932D+02, .725973D+02, .565414D+02, .443549D+02, - + .350832D+02, .279773D+02, .225031D+02, .182448D+02, - + .149206D+02, .122700D+02, .101641D+02, .845127D+01, - + .705967D+01, .591270D+01, .496025D+01, .416299D+01, - + .349215D+01, .292490D+01, .244396D+01, .203544D+01, - + .168837D+01, .139383D+01, .114436D+01, .933846D+00, - + .756615D+00, .609000D+00, .485404D+00, .383375D+00, - + .299717D+00, .231765D+00, .177045D+00, .133477D+00, - + .991579D-01, .725089D-01, .520880D-01, .366578D-01, - + .253073D-01, .170074D-01, .111120D-01, .703545D-02 / - DATA (UPDI(I),I=6813,6864) / - + .429223D-02, .251092D-02, .139532D-02, .732192D-03, - + .355580D-03, .158502D-03, .628846D-04, .215429D-04, - + .597875D-05, .123556D-05, .159330D-06, .578102D-08, - + .000000D+00, .516324D+07, .398008D+07, .302457D+07, - + .229669D+07, .174342D+07, .132239D+07, .100268D+07, - + .759643D+06, .575289D+06, .435299D+06, .329234D+06, - + .248788D+06, .187912D+06, .141798D+06, .106947D+06, - + .805823D+05, .606851D+05, .456542D+05, .343274D+05, - + .257837D+05, .193554D+05, .145144D+05, .108783D+05, - + .814466D+04, .609485D+04, .455609D+04, .340483D+04, - + .253227D+04, .189088D+04, .141131D+04, .105360D+04, - + .786624D+03, .587782D+03, .439955D+03, .329694D+03, - + .247612D+03, .186589D+03, .141133D+03, .107286D+03 / - DATA (UPDI(I),I=6865,6916) / - + .819910D+02, .630908D+02, .488776D+02, .381596D+02, - + .300213D+02, .238087D+02, .190231D+02, .153242D+02, - + .124067D+02, .101154D+02, .827555D+01, .680065D+01, - + .560296D+01, .462363D+01, .381741D+01, .315045D+01, - + .259645D+01, .213509D+01, .175034D+01, .142938D+01, - + .116200D+01, .939627D+00, .755353D+00, .602957D+00, - + .478262D+00, .375669D+00, .292439D+00, .225358D+00, - + .171790D+00, .129375D+00, .961644D-01, .704367D-01, - + .507861D-01, .359749D-01, .249647D-01, .169971D-01, - + .112652D-01, .726010D-02, .453518D-02, .273096D-02, - + .157770D-02, .866605D-03, .450051D-03, .216750D-03, - + .960669D-04, .380591D-04, .130841D-04, .367278D-05, - + .772082D-06, .101271D-06, .342774D-08, .000000D+00 / - DATA (UPDI(I),I=6917,6968) / - + .767710D+07, .588721D+07, .444696D+07, .335636D+07, - + .253216D+07, .190877D+07, .143819D+07, .108268D+07, - + .814652D+06, .612413D+06, .460134D+06, .345387D+06, - + .259106D+06, .194183D+06, .145437D+06, .108812D+06, - + .813575D+05, .607629D+05, .453504D+05, .338087D+05, - + .251865D+05, .187416D+05, .139361D+05, .103509D+05, - + .768289D+04, .569574D+04, .422075D+04, .311192D+04, - + .230350D+04, .170411D+04, .126073D+04, .932666D+03, - + .690399D+03, .511881D+03, .379878D+03, .282494D+03, - + .210729D+03, .157755D+03, .118656D+03, .896987D+02, - + .682512D+02, .522672D+02, .403187D+02, .313288D+02, - + .245279D+02, .193389D+02, .153671D+02, .122671D+02, - + .985922D+01, .794862D+01, .643605D+01, .522427D+01 / - DATA (UPDI(I),I=6969,7020) / - + .424720D+01, .345474D+01, .280907D+01, .228119D+01, - + .184855D+01, .149361D+01, .120234D+01, .963663D+00, - + .768383D+00, .609190D+00, .479643D+00, .375336D+00, - + .290872D+00, .223424D+00, .169910D+00, .127834D+00, - + .950278D-01, .697289D-01, .504254D-01, .359006D-01, - + .251151D-01, .172143D-01, .115797D-01, .758422D-02, - + .483209D-02, .298551D-02, .177939D-02, .101832D-02, - + .554795D-03, .286212D-03, .137241D-03, .607157D-04, - + .240964D-04, .832644D-05, .235970D-05, .501322D-06, - + .661820D-07, .204894D-08, .000000D+00, .115361D+08, - + .879569D+07, .659948D+07, .494746D+07, .370699D+07, - + .277511D+07, .207629D+07, .155202D+07, .115940D+07, - + .865266D+06, .645318D+06, .480788D+06, .357948D+06 / - DATA (UPDI(I),I=7021,7072) / - + .266207D+06, .197826D+06, .146844D+06, .108911D+06, - + .806820D+05, .597184D+05, .441473D+05, .326074D+05, - + .240535D+05, .177280D+05, .130495D+05, .959728D+04, - + .704877D+04, .517396D+04, .377750D+04, .276873D+04, - + .202790D+04, .148501D+04, .108725D+04, .796333D+03, - + .584117D+03, .428737D+03, .315279D+03, .232505D+03, - + .172037D+03, .127856D+03, .954756D+02, .717351D+02, - + .542264D+02, .412719D+02, .316287D+02, .244109D+02, - + .189649D+02, .148438D+02, .116660D+02, .922896D+01, - + .732124D+01, .583213D+01, .465698D+01, .372408D+01, - + .297975D+01, .238333D+01, .190410D+01, .151813D+01, - + .120709D+01, .956358D+00, .754561D+00, .592387D+00, - + .462523D+00, .358691D+00, .276543D+00, .211171D+00 / - DATA (UPDI(I),I=7073,7124) / - + .159863D+00, .119844D+00, .889035D-01, .651783D-01, - + .471800D-01, .336677D-01, .236602D-01, .163447D-01, - + .110667D-01, .735813D-02, .476610D-02, .300548D-02, - + .183957D-02, .108744D-02, .618072D-03, .335026D-03, - + .172285D-03, .825610D-04, .365864D-04, .145857D-04, - + .507054D-05, .144801D-05, .309315D-06, .408466D-07, - + .116274D-08, .000000D+00, .167458D+08, .126972D+08, - + .946501D+07, .704929D+07, .524678D+07, .390154D+07, - + .289923D+07, .215230D+07, .159663D+07, .118319D+07, - + .876120D+06, .648032D+06, .478919D+06, .353529D+06, - + .260733D+06, .192061D+06, .141340D+06, .103880D+06, - + .762723D+05, .559267D+05, .409655D+05, .299654D+05, - + .218960D+05, .159774D+05, .116464D+05, .847652D+04 / - DATA (UPDI(I),I=7125,7176) / - + .616482D+04, .445830D+04, .323660D+04, .234765D+04, - + .170217D+04, .123375D+04, .894363D+03, .649207D+03, - + .471439D+03, .342928D+03, .250095D+03, .182966D+03, - + .134407D+03, .991818D+02, .736159D+02, .549558D+02, - + .412907D+02, .312265D+02, .237737D+02, .182127D+02, - + .140523D+02, .108824D+02, .848156D+01, .662675D+01, - + .519855D+01, .408754D+01, .321847D+01, .253566D+01, - + .199705D+01, .157118D+01, .123373D+01, .966257D+00, - + .754192D+00, .586334D+00, .453656D+00, .349154D+00, - + .266959D+00, .202979D+00, .152881D+00, .114183D+00, - + .844736D-01, .618581D-01, .447805D-01, .320182D-01, - + .225774D-01, .156848D-01, .107167D-01, .718027D-02, - + .472770D-02, .303465D-02, .189813D-02, .115356D-02 / - DATA (UPDI(I),I=7177,7228) / - + .677924D-03, .383562D-03, .207298D-03, .106446D-03, - + .510278D-04, .226464D-04, .905164D-05, .315328D-05, - + .901688D-06, .192227D-06, .252044D-07, .643289D-09, - + .000000D+00, .235426D+08, .177564D+08, .131540D+08, - + .973525D+07, .719976D+07, .531938D+07, .392702D+07, - + .289609D+07, .213401D+07, .157073D+07, .115508D+07, - + .848435D+06, .622594D+06, .456304D+06, .334084D+06, - + .244281D+06, .178422D+06, .130140D+06, .948139D+05, - + .689774D+05, .501213D+05, .363654D+05, .263529D+05, - + .190681D+05, .137802D+05, .994187D+04, .716631D+04, - + .513504D+04, .369351D+04, .265396D+04, .190583D+04, - + .136791D+04, .981744D+03, .705441D+03, .506974D+03, - + .364894D+03, .263250D+03, .190477D+03, .138354D+03 / - DATA (UPDI(I),I=7229,7280) / - + .100922D+03, .740267D+02, .545966D+02, .405129D+02, - + .302496D+02, .227301D+02, .171810D+02, .130763D+02, - + .998562D+01, .767329D+01, .590955D+01, .456930D+01, - + .354093D+01, .274778D+01, .213361D+01, .165626D+01, - + .128449D+01, .994365D+00, .767911D+00, .591117D+00, - + .453318D+00, .346059D+00, .262854D+00, .198389D+00, - + .148951D+00, .110806D+00, .817657D-01, .597866D-01, - + .432865D-01, .309956D-01, .219309D-01, .153110D-01, - + .105368D-01, .713623D-02, .474247D-02, .309975D-02, - + .197671D-02, .122952D-02, .743783D-03, .435572D-03, - + .245825D-03, .132669D-03, .680776D-04, .326339D-04, - + .144799D-04, .578269D-05, .200868D-05, .571399D-06, - + .120763D-06, .156346D-07, .353263D-09, .000000D+00 / - DATA (UPDI(I),I=7281,7332) / - + .321588D+08, .241327D+08, .177706D+08, .130726D+08, - + .960867D+07, .705525D+07, .517582D+07, .379286D+07, - + .277680D+07, .203055D+07, .148335D+07, .108227D+07, - + .788785D+06, .574128D+06, .417406D+06, .303041D+06, - + .219743D+06, .159106D+06, .115053D+06, .830685D+05, - + .598952D+05, .431168D+05, .309960D+05, .222457D+05, - + .159435D+05, .114054D+05, .815063D+04, .578853D+04, - + .412638D+04, .293806D+04, .209026D+04, .148612D+04, - + .105628D+04, .751556D+03, .534688D+03, .380902D+03, - + .271925D+03, .194655D+03, .139846D+03, .100874D+03, - + .731471D+02, .533183D+02, .390910D+02, .288309D+02, - + .213929D+02, .159635D+02, .119921D+02, .903622D+01, - + .685111D+01, .520493D+01, .396988D+01, .303463D+01 / - DATA (UPDI(I),I=7333,7384) / - + .232293D+01, .177937D+01, .136276D+01, .104285D+01, - + .796727D+00, .607346D+00, .461592D+00, .349590D+00, - + .263630D+00, .197870D+00, .147615D+00, .109591D+00, - + .806396D-01, .588811D-01, .426204D-01, .305613D-01, - + .216841D-01, .152107D-01, .105341D-01, .719559D-02, - + .484038D-02, .319712D-02, .207858D-02, .131941D-02, - + .817559D-03, .493044D-03, .288046D-03, .162259D-03, - + .874373D-04, .447962D-04, .214315D-04, .947957D-05, - + .376769D-05, .129899D-05, .365771D-06, .763035D-07, - + .972553D-08, .193000D-09, .000000D+00, .428049D+08, - + .319664D+08, .234035D+08, .171161D+08, .125065D+08, - + .912831D+07, .665614D+07, .484783D+07, .352713D+07, - + .256305D+07, .186042D+07, .134862D+07, .976464D+06 / - DATA (UPDI(I),I=7385,7436) / - + .706014D+06, .509824D+06, .367605D+06, .264702D+06, - + .190305D+06, .136624D+06, .979222D+05, .700797D+05, - + .500668D+05, .357148D+05, .254313D+05, .180806D+05, - + .128285D+05, .909142D+04, .640120D+04, .452368D+04, - + .319259D+04, .225091D+04, .158569D+04, .111648D+04, - + .786831D+03, .554323D+03, .390965D+03, .276272D+03, - + .195718D+03, .139120D+03, .992649D+02, .711847D+02, - + .513018D+02, .371779D+02, .270968D+02, .198645D+02, - + .146415D+02, .108629D+02, .808199D+01, .605015D+01, - + .453766D+01, .341675D+01, .257854D+01, .194878D+01, - + .147401D+01, .111487D+01, .842705D+00, .636069D+00, - + .479159D+00, .359973D+00, .269568D+00, .201069D+00, - + .149321D+00, .110260D+00, .810589D-01, .590840D-01 / - DATA (UPDI(I),I=7437,7488) / - + .427551D-01, .306854D-01, .218274D-01, .153716D-01, - + .107081D-01, .736886D-02, .500443D-02, .334902D-02, - + .220190D-02, .142585D-02, .901939D-03, .557211D-03, - + .335145D-03, .195324D-03, .109755D-03, .589828D-04, - + .301137D-04, .143419D-04, .630427D-05, .248494D-05, - + .847307D-06, .235368D-06, .483376D-07, .605803D-08, - + .105155D-09, .000000D+00, .556565D+08, .413708D+08, - + .301202D+08, .219046D+08, .159142D+08, .115486D+08, - + .837180D+07, .606138D+07, .438364D+07, .316613D+07, - + .228402D+07, .164538D+07, .118378D+07, .850417D+06, - + .610091D+06, .436992D+06, .312548D+06, .223168D+06, - + .159103D+06, .113228D+06, .804504D+05, .570554D+05, - + .403965D+05, .285466D+05, .201381D+05, .141752D+05 / - DATA (UPDI(I),I=7489,7540) / - + .996503D+04, .695792D+04, .487594D+04, .341184D+04, - + .238452D+04, .166489D+04, .116159D+04, .811059D+03, - + .565983D+03, .395336D+03, .276607D+03, .193985D+03, - + .136472D+03, .963544D+02, .683583D+02, .487272D+02, - + .349189D+02, .251619D+02, .182335D+02, .132821D+02, - + .973820D+01, .715856D+01, .529488D+01, .392344D+01, - + .291894D+01, .217668D+01, .162571D+01, .121537D+01, - + .908750D+00, .679216D+00, .507062D+00, .377909D+00, - + .280975D+00, .208306D+00, .153878D+00, .113219D+00, - + .828627D-01, .604064D-01, .436788D-01, .313696D-01, - + .223556D-01, .157980D-01, .110583D-01, .766061D-02, - + .524510D-02, .354575D-02, .236305D-02, .154781D-02, - + .998909D-03, .629864D-03, .387946D-03, .232617D-03 / - DATA (UPDI(I),I=7541,7592) / - + .135124D-03, .756396D-04, .404666D-04, .205445D-04, - + .971574D-05, .423292D-05, .165020D-05, .555102D-06, - + .151796D-06, .306459D-07, .377574D-08, .573060D-10, - + .000000D+00, .708437D+08, .524243D+08, .379622D+08, - + .274575D+08, .198385D+08, .143162D+08, .103194D+08, - + .742879D+07, .534139D+07, .383524D+07, .275022D+07, - + .196927D+07, .140812D+07, .100530D+07, .716647D+06, - + .510028D+06, .362408D+06, .257059D+06, .182030D+06, - + .128659D+06, .907772D+05, .639231D+05, .449320D+05, - + .315181D+05, .220675D+05, .154142D+05, .107515D+05, - + .744655D+04, .517601D+04, .359185D+04, .248911D+04, - + .172295D+04, .119151D+04, .824492D+03, .570075D+03, - + .394468D+03, .273361D+03, .189841D+03, .132228D+03 / - DATA (UPDI(I),I=7593,7644) / - + .924117D+02, .648839D+02, .457641D+02, .324444D+02, - + .231249D+02, .165729D+02, .119380D+02, .865502D+01, - + .629044D+01, .460057D+01, .337062D+01, .247976D+01, - + .182884D+01, .135112D+01, .999346D+00, .739455D+00, - + .547084D+00, .404406D+00, .298536D+00, .219930D+00, - + .161617D+00, .118386D+00, .864089D-01, .627616D-01, - + .454269D-01, .326267D-01, .232848D-01, .164971D-01, - + .115949D-01, .807569D-02, .556862D-02, .379656D-02, - + .255636D-02, .169736D-02, .110783D-02, .712503D-03, - + .447687D-03, .274723D-03, .164058D-03, .948634D-04, - + .528185D-04, .280795D-04, .141480D-04, .662990D-05, - + .285707D-05, .109953D-05, .364295D-06, .979456D-07, - + .194256D-07, .235368D-08, .313506D-10, .000000D+00 / - DATA (UPDI(I),I=7645,7696) / - + .461958D+04, .573651D+04, .477062D+04, .396850D+04, - + .330226D+04, .274881D+04, .228896D+04, .190681D+04, - + .158916D+04, .132506D+04, .110543D+04, .922723D+03, - + .770691D+03, .644140D+03, .538762D+03, .450979D+03, - + .377822D+03, .316826D+03, .265944D+03, .223477D+03, - + .188012D+03, .158377D+03, .133597D+03, .112863D+03, - + .955020D+02, .809539D+02, .687538D+02, .583820D+02, - + .498070D+02, .425987D+02, .365352D+02, .314314D+02, - + .271332D+02, .235219D+02, .204708D+02, .179005D+02, - + .157351D+02, .139110D+02, .123741D+02, .110783D+02, - + .998650D+01, .906355D+01, .828162D+01, .761642D+01, - + .704723D+01, .655646D+01, .613066D+01, .575322D+01, - + .541832D+01, .511319D+01, .483388D+01, .457357D+01 / - DATA (UPDI(I),I=7697,7748) / - + .432778D+01, .409303D+01, .386668D+01, .364683D+01, - + .343216D+01, .322183D+01, .301542D+01, .281280D+01, - + .261411D+01, .241964D+01, .222981D+01, .204597D+01, - + .186674D+01, .169384D+01, .152787D+01, .136937D+01, - + .121885D+01, .107680D+01, .943702D+00, .819662D+00, - + .704884D+00, .599453D+00, .504369D+00, .418201D+00, - + .341528D+00, .274116D+00, .215648D+00, .165727D+00, - + .123875D+00, .895965D-01, .620773D-01, .408822D-01, - + .251481D-01, .140965D-01, .690782D-02, .273790D-02, - + .737015D-03, .770655D-04, .000000D+00, .218551D+05, - + .176381D+05, .141256D+05, .113176D+05, .907538D+04, - + .728111D+04, .584707D+04, .469828D+04, .377918D+04, - + .304201D+04, .245153D+04, .197730D+04, .159693D+04 / - DATA (UPDI(I),I=7749,7800) / - + .129099D+04, .104522D+04, .847207D+03, .687874D+03, - + .559250D+03, .455553D+03, .371664D+03, .303889D+03, - + .248929D+03, .204415D+03, .168221D+03, .138825D+03, - + .114862D+03, .953345D+02, .791617D+02, .661487D+02, - + .554629D+02, .467004D+02, .394790D+02, .335371D+02, - + .286360D+02, .245794D+02, .212145D+02, .184282D+02, - + .161086D+02, .141804D+02, .125674D+02, .112203D+02, - + .100855D+02, .912840D+01, .831350D+01, .761659D+01, - + .701370D+01, .648983D+01, .602403D+01, .561068D+01, - + .523410D+01, .489098D+01, .457304D+01, .427597D+01, - + .399562D+01, .372947D+01, .347516D+01, .323142D+01, - + .299710D+01, .277169D+01, .255476D+01, .234624D+01, - + .214614D+01, .195453D+01, .177246D+01, .159818D+01 / - DATA (UPDI(I),I=7801,7852) / - + .143310D+01, .127740D+01, .113128D+01, .994876D+00, - + .868273D+00, .751482D+00, .644507D+00, .547202D+00, - + .459277D+00, .381303D+00, .311815D+00, .251055D+00, - + .198549D+00, .153801D+00, .116294D+00, .854348D-01, - + .606730D-01, .412082D-01, .265615D-01, .159549D-01, - + .870978D-02, .414049D-02, .158568D-02, .413314D-03, - + .436283D-04, .000000D+00, .495202D+05, .392825D+05, - + .308566D+05, .242428D+05, .190574D+05, .149852D+05, - + .117912D+05, .928138D+04, .731172D+04, .576292D+04, - + .454659D+04, .358930D+04, .283685D+04, .224401D+04, - + .177752D+04, .140949D+04, .111950D+04, .890354D+03, - + .709502D+03, .566316D+03, .453092D+03, .363240D+03, - + .292014D+03, .235334D+03, .190272D+03, .154312D+03 / - DATA (UPDI(I),I=7853,7904) / - + .125621D+03, .102346D+03, .839955D+02, .692214D+02, - + .573387D+02, .477250D+02, .399551D+02, .336528D+02, - + .285196D+02, .243232D+02, .208959D+02, .180765D+02, - + .157583D+02, .138362D+02, .122439D+02, .109103D+02, - + .979120D+01, .884146D+01, .803153D+01, .733216D+01, - + .672570D+01, .618759D+01, .571158D+01, .527961D+01, - + .488827D+01, .452816D+01, .419460D+01, .388290D+01, - + .359029D+01, .331404D+01, .305265D+01, .280467D+01, - + .256935D+01, .234598D+01, .213422D+01, .193380D+01, - + .174446D+01, .156697D+01, .139933D+01, .124263D+01, - + .109676D+01, .961647D+00, .837136D+00, .723067D+00, - + .619186D+00, .525276D+00, .440991D+00, .365825D+00, - + .300071D+00, .242281D+00, .192442D+00, .150027D+00 / - DATA (UPDI(I),I=7905,7956) / - + .114443D+00, .851205D-01, .614114D-01, .427599D-01, - + .283999D-01, .178496D-01, .104095D-01, .548554D-02, - + .249468D-02, .901551D-03, .219283D-03, .236238D-04, - + .000000D+00, .607343D+05, .716834D+05, .556435D+05, - + .431921D+05, .335376D+05, .260424D+05, .202306D+05, - + .157180D+05, .122184D+05, .950046D+04, .739210D+04, - + .575396D+04, .448272D+04, .349441D+04, .272698D+04, - + .212986D+04, .166579D+04, .130430D+04, .102304D+04, - + .803631D+03, .632663D+03, .499042D+03, .394704D+03, - + .312962D+03, .248964D+03, .198697D+03, .159216D+03, - + .127689D+03, .103217D+03, .838208D+02, .684539D+02, - + .562082D+02, .464514D+02, .386491D+02, .323770D+02, - + .273145D+02, .232271D+02, .199010D+02, .171919D+02 / - DATA (UPDI(I),I=7957,8008) / - + .149652D+02, .131337D+02, .116096D+02, .103372D+02, - + .926231D+01, .834897D+01, .756315D+01, .688394D+01, - + .628356D+01, .575466D+01, .527715D+01, .484705D+01, - + .445403D+01, .409280D+01, .375818D+01, .344699D+01, - + .315613D+01, .288377D+01, .262817D+01, .238828D+01, - + .216308D+01, .195196D+01, .175437D+01, .156975D+01, - + .139859D+01, .123868D+01, .109083D+01, .954692D+00, - + .829955D+00, .716239D+00, .613184D+00, .520346D+00, - + .437339D+00, .363670D+00, .298699D+00, .242514D+00, - + .193715D+00, .152137D+00, .117200D+00, .882745D-01, - + .647706D-01, .460434D-01, .315477D-01, .205785D-01, - + .126743D-01, .721967D-02, .369986D-02, .162519D-02, - + .561656D-03, .129528D-03, .141864D-04, .000000D+00 / - DATA (UPDI(I),I=8009,8060) / - + .142731D+06, .111288D+06, .857140D+05, .660088D+05, - + .508397D+05, .391535D+05, .301593D+05, .232313D+05, - + .179000D+05, .137936D+05, .106337D+05, .819969D+04, - + .632656D+04, .488338D+04, .377248D+04, .291619D+04, - + .225674D+04, .174807D+04, .135603D+04, .105332D+04, - + .819772D+03, .639175D+03, .499600D+03, .391455D+03, - + .307687D+03, .242631D+03, .192102D+03, .152215D+03, - + .121600D+03, .976182D+02, .788271D+02, .640254D+02, - + .523574D+02, .431303D+02, .357866D+02, .299197D+02, - + .252251D+02, .214392D+02, .183789D+02, .158822D+02, - + .138411D+02, .121526D+02, .107494D+02, .956936D+01, - + .857036D+01, .771422D+01, .697677D+01, .632752D+01, - + .575788D+01, .524610D+01, .478748D+01, .437094D+01 / - DATA (UPDI(I),I=8061,8112) / - + .399052D+01, .364065D+01, .331765D+01, .301817D+01, - + .273997D+01, .248109D+01, .224015D+01, .201592D+01, - + .180750D+01, .161412D+01, .143497D+01, .127028D+01, - + .111771D+01, .977853D+00, .850148D+00, .734125D+00, - + .629240D+00, .534985D+00, .450793D+00, .376160D+00, - + .310498D+00, .253088D+00, .203883D+00, .161533D+00, - + .125789D+00, .960444D-01, .716659D-01, .520647D-01, - + .366199D-01, .248065D-01, .159805D-01, .970850D-02, - + .544613D-02, .274280D-02, .118073D-02, .398852D-03, - + .901138D-04, .993876D-05, .000000D+00, .211064D+06, - + .163633D+06, .125205D+06, .957808D+05, .732696D+05, - + .560384D+05, .428610D+05, .327782D+05, .250702D+05, - + .191741D+05, .146681D+05, .112219D+05, .858867D+04 / - DATA (UPDI(I),I=8113,8164) / - + .657496D+04, .503635D+04, .385959D+04, .296032D+04, - + .227230D+04, .174629D+04, .134359D+04, .103550D+04, - + .799380D+03, .618496D+03, .479643D+03, .373071D+03, - + .291099D+03, .228039D+03, .178753D+03, .141294D+03, - + .112249D+03, .897115D+02, .721391D+02, .584191D+02, - + .476764D+02, .392041D+02, .324981D+02, .271766D+02, - + .229205D+02, .195047D+02, .167376D+02, .144887D+02, - + .126391D+02, .111089D+02, .982818D+01, .874810D+01, - + .782626D+01, .703518D+01, .634160D+01, .573564D+01, - + .519387D+01, .471084D+01, .427468D+01, .387873D+01, - + .351700D+01, .318534D+01, .288006D+01, .259858D+01, - + .233865D+01, .209860D+01, .187696D+01, .167256D+01, - + .148443D+01, .131148D+01, .115376D+01, .100880D+01 / - DATA (UPDI(I),I=8165,8216) / - + .876958D+00, .757527D+00, .649879D+00, .553338D+00, - + .467276D+00, .391020D+00, .323975D+00, .265480D+00, - + .214765D+00, .171670D+00, .134908D+00, .104165D+00, - + .788247D-01, .582627D-01, .419022D-01, .291534D-01, - + .195181D-01, .124118D-01, .743301D-02, .410251D-02, - + .202787D-02, .853980D-03, .281245D-03, .620756D-04, - + .690159D-05, .000000D+00, .203119D+06, .231202D+06, - + .175888D+06, .133766D+06, .101718D+06, .773258D+05, - + .587777D+05, .446679D+05, .339447D+05, .257914D+05, - + .195981D+05, .148910D+05, .113170D+05, .860147D+04, - + .654017D+04, .497431D+04, .378581D+04, .288293D+04, - + .219755D+04, .167671D+04, .128119D+04, .980408D+03, - + .751773D+03, .577686D+03, .445152D+03, .344068D+03 / - DATA (UPDI(I),I=8217,8268) / - + .266966D+03, .207233D+03, .162231D+03, .127652D+03, - + .101056D+03, .805087D+02, .646051D+02, .522643D+02, - + .426129D+02, .350386D+02, .290744D+02, .243410D+02, - + .205680D+02, .175318D+02, .150782D+02, .130713D+02, - + .114187D+02, .100420D+02, .888550D+01, .790257D+01, - + .706231D+01, .632875D+01, .569058D+01, .512280D+01, - + .461908D+01, .416681D+01, .375859D+01, .338802D+01, - + .305044D+01, .274184D+01, .245928D+01, .220023D+01, - + .196272D+01, .174503D+01, .154577D+01, .136373D+01, - + .119762D+01, .104725D+01, .910082D+00, .786266D+00, - + .674946D+00, .575366D+00, .486738D+00, .408333D+00, - + .339400D+00, .279269D+00, .227227D+00, .182470D+00, - + .144755D+00, .112857D+00, .864178D-01, .648260D-01 / - DATA (UPDI(I),I=8269,8320) / - + .474750D-01, .338089D-01, .232744D-01, .154045D-01, - + .967297D-02, .571229D-02, .310332D-02, .150633D-02, - + .620994D-03, .199600D-03, .430945D-04, .482861D-05, - + .000000D+00, .441605D+06, .338812D+06, .256125D+06, - + .193543D+06, .146216D+06, .110418D+06, .833665D+05, - + .629204D+05, .474807D+05, .358194D+05, .270196D+05, - + .203776D+05, .153687D+05, .115902D+05, .874232D+04, - + .659498D+04, .497714D+04, .375760D+04, .283897D+04, - + .214653D+04, .162492D+04, .123160D+04, .935145D+03, - + .711422D+03, .542599D+03, .415022D+03, .318616D+03, - + .244649D+03, .189460D+03, .147478D+03, .115500D+03, - + .910458D+02, .723018D+02, .579034D+02, .467486D+02, - + .380789D+02, .313122D+02, .259894D+02, .217797D+02 / - DATA (UPDI(I),I=8321,8372) / - + .184183D+02, .157201D+02, .135276D+02, .117322D+02, - + .102450D+02, .900185D+01, .795063D+01, .705634D+01, - + .627967D+01, .560757D+01, .501311D+01, .448889D+01, - + .402135D+01, .360224D+01, .322458D+01, .288313D+01, - + .257349D+01, .229224D+01, .203653D+01, .180405D+01, - + .159278D+01, .140105D+01, .122739D+01, .107028D+01, - + .929285D+00, .801778D+00, .687685D+00, .586003D+00, - + .495841D+00, .416304D+00, .346566D+00, .285806D+00, - + .233288D+00, .188258D+00, .149894D+00, .117877D+00, - + .910671D-01, .690735D-01, .513024D-01, .371800D-01, - + .261855D-01, .178141D-01, .116418D-01, .720978D-02, - + .419372D-02, .224035D-02, .106709D-02, .430628D-03, - + .135247D-03, .286371D-04, .323168D-05, .000000D+00 / - DATA (UPDI(I),I=8373,8424) / - + .629503D+06, .480536D+06, .361120D+06, .271257D+06, - + .203685D+06, .152873D+06, .114699D+06, .860188D+05, - + .644913D+05, .483323D+05, .362137D+05, .271250D+05, - + .203146D+05, .152109D+05, .113896D+05, .852791D+04, - + .638664D+04, .478399D+04, .358538D+04, .268857D+04, - + .201801D+04, .151630D+04, .114107D+04, .860182D+03, - + .649946D+03, .492400D+03, .374363D+03, .284598D+03, - + .218216D+03, .168177D+03, .130405D+03, .101786D+03, - + .800480D+02, .635033D+02, .507981D+02, .410110D+02, - + .334352D+02, .275248D+02, .228849D+02, .192071D+02, - + .162736D+02, .139048D+02, .119756D+02, .103862D+02, - + .906412D+01, .795180D+01, .701011D+01, .619650D+01, - + .549613D+01, .488023D+01, .434033D+01, .386191D+01 / - DATA (UPDI(I),I=8425,8476) / - + .343589D+01, .305473D+01, .271261D+01, .240472D+01, - + .212722D+01, .187694D+01, .165120D+01, .144774D+01, - + .126461D+01, .110012D+01, .952530D+00, .821187D+00, - + .703410D+00, .598918D+00, .506589D+00, .425427D+00, - + .354452D+00, .292770D+00, .239510D+00, .193893D+00, - + .155146D+00, .122446D+00, .954222D-01, .730208D-01, - + .548364D-01, .403031D-01, .288858D-01, .201042D-01, - + .135033D-01, .870357D-02, .530866D-02, .303622D-02, - + .159142D-02, .741648D-03, .291850D-03, .891149D-04, - + .184125D-04, .209674D-05, .000000D+00, .873348D+06, - + .663505D+06, .495840D+06, .370352D+06, .276503D+06, - + .206322D+06, .153889D+06, .114720D+06, .854864D+05, - + .636709D+05, .474061D+05, .352809D+05, .262500D+05 / - DATA (UPDI(I),I=8477,8528) / - + .195242D+05, .145197D+05, .107960D+05, .802767D+04, - + .596945D+04, .444044D+04, .330432D+04, .246076D+04, - + .183412D+04, .136888D+04, .102322D+04, .766471D+03, - + .575559D+03, .433663D+03, .326638D+03, .248146D+03, - + .189477D+03, .145562D+03, .112574D+03, .877281D+02, - + .689797D+02, .547006D+02, .437920D+02, .354136D+02, - + .289269D+02, .238705D+02, .198897D+02, .167339D+02, - + .142006D+02, .121483D+02, .104663D+02, .907394D+01, - + .790822D+01, .692607D+01, .608182D+01, .535887D+01, - + .472671D+01, .417580D+01, .369071D+01, .326155D+01, - + .288022D+01, .254038D+01, .223679D+01, .196522D+01, - + .172217D+01, .150467D+01, .131019D+01, .113654D+01, - + .981828D+00, .844132D+00, .722593D+00, .614508D+00 / - DATA (UPDI(I),I=8529,8580) / - + .519413D+00, .436096D+00, .363477D+00, .300518D+00, - + .246280D+00, .199863D+00, .160465D+00, .127311D+00, - + .995926D-01, .769083D-01, .582929D-01, .433397D-01, - + .315189D-01, .223388D-01, .153629D-01, .101867D-01, - + .647497D-02, .388907D-02, .218668D-02, .112428D-02, - + .512513D-03, .196615D-03, .583551D-04, .117653D-04, - + .135227D-05, .000000D+00, .118434D+07, .895685D+06, - + .665768D+06, .494587D+06, .367233D+06, .272502D+06, - + .202106D+06, .149804D+06, .110983D+06, .821739D+05, - + .608159D+05, .449850D+05, .332624D+05, .245835D+05, - + .181642D+05, .134169D+05, .990946D+04, .731814D+04, - + .540541D+04, .399347D+04, .295205D+04, .218372D+04, - + .161721D+04, .119930D+04, .891104D+03, .663618D+03 / - DATA (UPDI(I),I=8581,8632) / - + .495811D+03, .370221D+03, .278831D+03, .211063D+03, - + .160736D+03, .123238D+03, .952183D+02, .742445D+02, - + .583943D+02, .463791D+02, .372183D+02, .301769D+02, - + .247244D+02, .204591D+02, .170975D+02, .144139D+02, - + .122509D+02, .104870D+02, .903368D+01, .782274D+01, - + .680734D+01, .593887D+01, .519902D+01, .455570D+01, - + .399829D+01, .351050D+01, .308172D+01, .270329D+01, - + .236836D+01, .207132D+01, .180756D+01, .157327D+01, - + .136520D+01, .118061D+01, .101707D+01, .872520D+00, - + .744888D+00, .633138D+00, .534565D+00, .448552D+00, - + .373817D+00, .309225D+00, .253703D+00, .206283D+00, - + .166059D+00, .132224D+00, .104012D+00, .806471D-01, - + .617103D-01, .463259D-01, .340972D-01, .245354D-01 / - DATA (UPDI(I),I=8633,8684) / - + .171947D-01, .116839D-01, .764754D-02, .479327D-02, - + .283478D-02, .156678D-02, .790136D-03, .352317D-03, - + .131782D-03, .380370D-04, .749099D-05, .868892D-06, - + .000000D+00, .157435D+07, .118544D+07, .876590D+06, - + .647805D+06, .478456D+06, .353134D+06, .260487D+06, - + .192015D+06, .141461D+06, .104147D+06, .766345D+05, - + .563544D+05, .414210D+05, .304279D+05, .223438D+05, - + .164004D+05, .120352D+05, .882983D+04, .647833D+04, - + .475341D+04, .348924D+04, .256263D+04, .188394D+04, - + .138666D+04, .102245D+04, .755488D+03, .559974D+03, - + .414722D+03, .309809D+03, .232598D+03, .175687D+03, - + .133606D+03, .102398D+03, .792146D+02, .618227D+02, - + .487349D+02, .388252D+02, .312596D+02, .254378D+02 / - DATA (UPDI(I),I=8685,8736) / - + .209110D+02, .173627D+02, .145451D+02, .122850D+02, - + .104508D+02, .894639D+01, .769868D+01, .665735D+01, - + .577105D+01, .501988D+01, .437030D+01, .381067D+01, - + .332393D+01, .289874D+01, .252598D+01, .219830D+01, - + .190975D+01, .165536D+01, .143107D+01, .123338D+01, - + .105932D+01, .906303D+00, .772103D+00, .654536D+00, - + .552413D+00, .463056D+00, .385717D+00, .319072D+00, - + .261950D+00, .213263D+00, .172039D+00, .137375D+00, - + .108477D+00, .846036D-01, .650155D-01, .492934D-01, - + .366485D-01, .267025D-01, .190102D-01, .131726D-01, - + .884318D-02, .571320D-02, .353067D-02, .205580D-02, - + .111681D-02, .552387D-03, .240919D-03, .878785D-04, - + .246813D-04, .475337D-05, .556303D-06, .000000D+00 / - DATA (UPDI(I),I=8737,8788) / - + .205560D+07, .154127D+07, .113400D+07, .833795D+06, - + .612669D+06, .449848D+06, .330084D+06, .242023D+06, - + .177340D+06, .129847D+06, .950139D+05, .694756D+05, - + .507721D+05, .370797D+05, .270665D+05, .197467D+05, - + .144016D+05, .104995D+05, .765398D+04, .557928D+04, - + .406809D+04, .296737D+04, .216627D+04, .158311D+04, - + .115883D+04, .849909D+03, .625221D+03, .459468D+03, - + .340596D+03, .253739D+03, .190173D+03, .143513D+03, - + .109156D+03, .838152D+02, .649370D+02, .508285D+02, - + .402156D+02, .321645D+02, .260055D+02, .212436D+02, - + .175303D+02, .145963D+02, .122536D+02, .103611D+02, - + .881570D+01, .753973D+01, .647972D+01, .558185D+01, - + .482474D+01, .417356D+01, .361572D+01, .313344D+01 / - DATA (UPDI(I),I=8789,8840) / - + .271478D+01, .235012D+01, .203173D+01, .175330D+01, - + .150958D+01, .129625D+01, .110961D+01, .946513D+00, - + .804224D+00, .680391D+00, .572742D+00, .479965D+00, - + .399432D+00, .330291D+00, .271196D+00, .220963D+00, - + .178507D+00, .142864D+00, .113156D+00, .886088D-01, - + .685150D-01, .521817D-01, .391988D-01, .288616D-01, - + .208157D-01, .146609D-01, .100437D-01, .666106D-02, - + .424730D-02, .258773D-02, .148333D-02, .791964D-03, - + .384159D-03, .163884D-03, .583071D-04, .159437D-04, - + .300612D-05, .354902D-06, .000000D+00, .264027D+07, - + .197155D+07, .144351D+07, .105614D+07, .772181D+06, - + .564113D+06, .411814D+06, .300388D+06, .218952D+06, - + .159465D+06, .116057D+06, .843985D+05, .613348D+05 / - DATA (UPDI(I),I=8841,8892) / - + .445410D+05, .323263D+05, .234464D+05, .169981D+05, - + .123175D+05, .892380D+04, .646398D+04, .468291D+04, - + .339347D+04, .246080D+04, .178611D+04, .129836D+04, - + .945507D+03, .690566D+03, .503763D+03, .370707D+03, - + .274150D+03, .203968D+03, .152807D+03, .115391D+03, - + .879824D+02, .676977D+02, .526363D+02, .413764D+02, - + .328853D+02, .264257D+02, .214577D+02, .176026D+02, - + .145707D+02, .121605D+02, .102219D+02, .864561D+01, - + .734981D+01, .627818D+01, .537477D+01, .461681D+01, - + .396839D+01, .341603D+01, .294132D+01, .253177D+01, - + .217736D+01, .186996D+01, .160299D+01, .137094D+01, - + .116930D+01, .994156D+00, .842246D+00, .710712D+00, - + .597108D+00, .499107D+00, .415300D+00, .343127D+00 / - DATA (UPDI(I),I=8893,8944) / - + .281656D+00, .229544D+00, .185609D+00, .148786D+00, - + .118135D+00, .928091D-01, .720686D-01, .552455D-01, - + .416981D-01, .310337D-01, .226275D-01, .161531D-01, - + .112547D-01, .762234D-02, .499362D-02, .314231D-02, - + .188732D-02, .106493D-02, .558754D-03, .265793D-03, - + .110911D-03, .384969D-04, .102548D-04, .189491D-05, - + .225627D-06, .000000D+00, .463332D+04, .568622D+04, - + .472484D+04, .392682D+04, .326433D+04, .271429D+04, - + .225755D+04, .187823D+04, .156316D+04, .130141D+04, - + .108393D+04, .903179D+03, .752931D+03, .628006D+03, - + .524111D+03, .437680D+03, .365757D+03, .305886D+03, - + .256031D+03, .214499D+03, .179888D+03, .151032D+03, - + .126962D+03, .106875D+03, .901021D+02, .760895D+02 / - DATA (UPDI(I),I=8945,8996) / - + .643758D+02, .544508D+02, .462735D+02, .394236D+02, - + .336813D+02, .288637D+02, .248183D+02, .214274D+02, - + .185666D+02, .161570D+02, .141239D+02, .124047D+02, - + .109469D+02, .970564D+01, .864569D+01, .773417D+01, - + .694570D+01, .625881D+01, .565579D+01, .512224D+01, - + .464812D+01, .421945D+01, .383397D+01, .348100D+01, - + .315942D+01, .286420D+01, .259245D+01, .234183D+01, - + .211051D+01, .189698D+01, .170000D+01, .151851D+01, - + .135161D+01, .119847D+01, .105832D+01, .930449D+00, - + .814156D+00, .709234D+00, .613942D+00, .528316D+00, - + .451727D+00, .383560D+00, .323217D+00, .270114D+00, - + .223686D+00, .183382D+00, .148649D+00, .118954D+00, - + .940430D-01, .730689D-01, .557637D-01, .416873D-01 / - DATA (UPDI(I),I=8997,9048) / - + .304249D-01, .215871D-01, .148095D-01, .976109D-02, - + .610364D-02, .358652D-02, .193782D-02, .933700D-03, - + .381114D-03, .119685D-03, .232959D-04, .140766D-05, - + .000000D+00, .217853D+05, .175746D+05, .140678D+05, - + .112650D+05, .902754D+04, .723762D+04, .580753D+04, - + .466235D+04, .374652D+04, .301234D+04, .242458D+04, - + .195283D+04, .157472D+04, .127082D+04, .102693D+04, - + .830621D+03, .672840D+03, .545629D+03, .443218D+03, - + .360500D+03, .293789D+03, .239797D+03, .196163D+03, - + .160769D+03, .132097D+03, .108790D+03, .898564D+02, - + .742272D+02, .616956D+02, .514422D+02, .430652D+02, - + .361866D+02, .305463D+02, .259083D+02, .220789D+02, - + .189072D+02, .162816D+02, .140930D+02, .122674D+02 / - DATA (UPDI(I),I=9049,9100) / - + .107315D+02, .943833D+01, .833741D+01, .739691D+01, - + .658498D+01, .588038D+01, .526276D+01, .472022D+01, - + .423473D+01, .380353D+01, .341321D+01, .306231D+01, - + .274422D+01, .245549D+01, .219282D+01, .195384D+01, - + .173632D+01, .153852D+01, .135886D+01, .119600D+01, - + .104868D+01, .915767D+00, .796215D+00, .688967D+00, - + .593564D+00, .508081D+00, .432322D+00, .365472D+00, - + .306788D+00, .255543D+00, .211064D+00, .172701D+00, - + .139862D+00, .111965D+00, .884431D-01, .689992D-01, - + .528694D-01, .397616D-01, .292699D-01, .210121D-01, - + .146470D-01, .989162D-02, .641414D-02, .393851D-02, - + .226901D-02, .119915D-02, .563854D-03, .223813D-03, - + .682243D-04, .129493D-04, .797682D-06, .000000D+00 / - DATA (UPDI(I),I=9101,9152) / - + .494371D+05, .392069D+05, .307879D+05, .241803D+05, - + .190007D+05, .149337D+05, .117443D+05, .923883D+04, - + .727308D+04, .572785D+04, .451475D+04, .356042D+04, - + .281065D+04, .222025D+04, .175598D+04, .138997D+04, - + .110183D+04, .874350D+03, .695016D+03, .553211D+03, - + .441239D+03, .352526D+03, .282332D+03, .226588D+03, - + .182371D+03, .147176D+03, .119176D+03, .965309D+02, - + .787380D+02, .644635D+02, .530254D+02, .438069D+02, - + .363844D+02, .303856D+02, .255152D+02, .215440D+02, - + .183059D+02, .156435D+02, .134521D+02, .116304D+02, - + .101144D+02, .883723D+01, .775745D+01, .683423D+01, - + .604092D+01, .535210D+01, .475299D+01, .422211D+01, - + .375549D+01, .333746D+01, .296571D+01, .263239D+01 / - DATA (UPDI(I),I=9153,9204) / - + .233320D+01, .206408D+01, .182199D+01, .160414D+01, - + .140828D+01, .123239D+01, .107476D+01, .933763D+00, - + .807972D+00, .696102D+00, .596827D+00, .509498D+00, - + .432092D+00, .364249D+00, .305036D+00, .253633D+00, - + .209239D+00, .171140D+00, .138646D+00, .111151D+00, - + .880693D-01, .688337D-01, .531262D-01, .402576D-01, - + .299329D-01, .217789D-01, .154484D-01, .106389D-01, - + .706917D-02, .450590D-02, .271681D-02, .153607D-02, - + .796003D-03, .367173D-03, .143265D-03, .434405D-04, - + .856198D-05, .616122D-06, .000000D+00, .607571D+05, - + .715962D+05, .555642D+05, .431201D+05, .334722D+05, - + .259831D+05, .201767D+05, .156691D+05, .121740D+05, - + .946019D+04, .735557D+04, .572085D+04, .445270D+04 / - DATA (UPDI(I),I=9205,9256) / - + .346720D+04, .270234D+04, .210754D+04, .164559D+04, - + .128602D+04, .100650D+04, .788676D+03, .619141D+03, - + .486822D+03, .383661D+03, .302985D+03, .239951D+03, - + .190552D+03, .151855D+03, .121042D+03, .972012D+02, - + .783699D+02, .635053D+02, .517062D+02, .423423D+02, - + .348839D+02, .289107D+02, .241059D+02, .202372D+02, - + .170954D+02, .145385D+02, .124365D+02, .107048D+02, - + .926060D+01, .805085D+01, .702612D+01, .615344D+01, - + .540257D+01, .475534D+01, .418707D+01, .369225D+01, - + .325315D+01, .286639D+01, .252298D+01, .221774D+01, - + .194588D+01, .170372D+01, .148794D+01, .129582D+01, - + .112498D+01, .973328D+00, .838983D+00, .720263D+00, - + .615680D+00, .523728D+00, .443591D+00, .373214D+00 / - DATA (UPDI(I),I=9257,9308) / - + .312106D+00, .259263D+00, .213818D+00, .174938D+00, - + .141884D+00, .113962D+00, .905657D-01, .711204D-01, - + .550762D-01, .421097D-01, .315993D-01, .232589D-01, - + .167470D-01, .117511D-01, .800253D-02, .525593D-02, - + .331082D-02, .197244D-02, .110246D-02, .565527D-03, - + .259196D-03, .101372D-03, .315304D-04, .674593D-05, - + .542166D-06, .000000D+00, .142623D+06, .111190D+06, - + .856252D+05, .659283D+05, .507666D+05, .390872D+05, - + .300991D+05, .231767D+05, .178505D+05, .137487D+05, - + .105930D+05, .816281D+04, .629314D+04, .485312D+04, - + .374508D+04, .289139D+04, .223430D+04, .172778D+04, - + .133768D+04, .103673D+04, .804775D+03, .625625D+03, - + .487358D+03, .380397D+03, .297695D+03, .233601D+03 / - DATA (UPDI(I),I=9309,9360) / - + .183939D+03, .144842D+03, .114923D+03, .915654D+02, - + .733290D+02, .590206D+02, .477869D+02, .389408D+02, - + .319293D+02, .263504D+02, .219021D+02, .183260D+02, - + .154418D+02, .130927D+02, .111735D+02, .958647D+01, - + .826723D+01, .715875D+01, .622176D+01, .542183D+01, - + .473745D+01, .414125D+01, .362606D+01, .317252D+01, - + .277613D+01, .242700D+01, .211911D+01, .184707D+01, - + .160665D+01, .139410D+01, .120632D+01, .104063D+01, - + .894673D+00, .766352D+00, .653804D+00, .555396D+00, - + .469502D+00, .395189D+00, .330402D+00, .274555D+00, - + .226614D+00, .185686D+00, .150926D+00, .121593D+00, - + .969996D-01, .765494D-01, .596850D-01, .458787D-01, - + .348111D-01, .259147D-01, .189162D-01, .135013D-01 / - DATA (UPDI(I),I=9361,9412) / - + .938625D-02, .632935D-02, .411305D-02, .256139D-02, - + .150678D-02, .830487D-03, .419315D-03, .188704D-03, - + .722220D-04, .218824D-04, .453874D-05, .366573D-06, - + .000000D+00, .210944D+06, .163524D+06, .125107D+06, - + .956914D+05, .731885D+05, .559648D+05, .427943D+05, - + .327176D+05, .250154D+05, .191244D+05, .146230D+05, - + .111811D+05, .855174D+04, .654154D+04, .500610D+04, - + .383223D+04, .293557D+04, .224992D+04, .172607D+04, - + .132532D+04, .101899D+04, .784466D+03, .605024D+03, - + .467476D+03, .362078D+03, .281164D+03, .219058D+03, - + .170641D+03, .133947D+03, .105587D+03, .836593D+02, - + .666291D+02, .533872D+02, .430646D+02, .349599D+02, - + .285741D+02, .235283D+02, .195092D+02, .162952D+02 / - DATA (UPDI(I),I=9413,9464) / - + .137000D+02, .115963D+02, .987076D+01, .844688D+01, - + .725964D+01, .626324D+01, .541893D+01, .470176D+01, - + .408162D+01, .354965D+01, .308487D+01, .268165D+01, - + .232919D+01, .202067D+01, .175013D+01, .151279D+01, - + .130452D+01, .112187D+01, .961878D+00, .821952D+00, - + .699815D+00, .593449D+00, .501103D+00, .421054D+00, - + .352278D+00, .292733D+00, .241761D+00, .198311D+00, - + .161475D+00, .130410D+00, .104383D+00, .827181D-01, - + .648358D-01, .502006D-01, .383100D-01, .288531D-01, - + .213132D-01, .154320D-01, .109216D-01, .752556D-02, - + .502717D-02, .323429D-02, .199285D-02, .115896D-02, - + .630977D-03, .314381D-03, .139478D-03, .525823D-04, - + .156845D-04, .319911D-05, .263962D-06, .000000D+00 / - DATA (UPDI(I),I=9465,9516) / - + .203150D+06, .231082D+06, .175779D+06, .133667D+06, - + .101629D+06, .772446D+05, .587041D+05, .446012D+05, - + .338843D+05, .257367D+05, .195485D+05, .148462D+05, - + .112764D+05, .856476D+04, .650696D+04, .494428D+04, - + .375867D+04, .285840D+04, .217538D+04, .165669D+04, - + .126311D+04, .964084D+03, .737031D+03, .564376D+03, - + .433130D+03, .333204D+03, .257146D+03, .198364D+03, - + .154200D+03, .120370D+03, .944417D+02, .744877D+02, - + .591085D+02, .472292D+02, .379831D+02, .307631D+02, - + .251061D+02, .206388D+02, .170948D+02, .142562D+02, - + .119726D+02, .101136D+02, .859052D+01, .732984D+01, - + .627912D+01, .539512D+01, .464943D+01, .400922D+01, - + .346390D+01, .299087D+01, .258341D+01, .222981D+01 / - DATA (UPDI(I),I=9517,9568) / - + .192248D+01, .165492D+01, .142184D+01, .121876D+01, - + .104190D+01, .888054D+00, .754424D+00, .638579D+00, - + .538374D+00, .451961D+00, .377550D+00, .314039D+00, - + .259419D+00, .212975D+00, .173648D+00, .140532D+00, - + .112794D+00, .897131D-01, .706343D-01, .549987D-01, - + .422956D-01, .320507D-01, .239647D-01, .175687D-01, - + .126207D-01, .885852D-02, .605117D-02, .400532D-02, - + .255180D-02, .155609D-02, .894893D-03, .481404D-03, - + .236779D-03, .103605D-03, .384925D-04, .113096D-04, - + .227157D-05, .191209D-06, .000000D+00, .441456D+06, - + .338677D+06, .256002D+06, .193432D+06, .146115D+06, - + .110327D+06, .832840D+05, .628457D+05, .474130D+05, - + .357582D+05, .269642D+05, .203275D+05, .153234D+05 / - DATA (UPDI(I),I=9569,9620) / - + .115493D+05, .870529D+04, .656152D+04, .494691D+04, - + .373030D+04, .281432D+04, .212428D+04, .160483D+04, - + .121347D+04, .918783D+03, .696654D+03, .529266D+03, - + .402978D+03, .307734D+03, .234824D+03, .180567D+03, - + .139417D+03, .108182D+03, .843890D+02, .662299D+02, - + .523473D+02, .416473D+02, .333769D+02, .269586D+02, - + .219401D+02, .179951D+02, .148651D+02, .123688D+02, - + .103549D+02, .871859D+01, .737581D+01, .626577D+01, - + .533972D+01, .456493D+01, .390530D+01, .334807D+01, - + .286880D+01, .245939D+01, .210710D+01, .180345D+01, - + .154129D+01, .131480D+01, .111908D+01, .950012D+00, - + .804138D+00, .678439D+00, .570336D+00, .477563D+00, - + .398183D+00, .330353D+00, .272905D+00, .223881D+00 / - DATA (UPDI(I),I=9621,9672) / - + .182519D+00, .147768D+00, .118734D+00, .946074D-01, - + .746914D-01, .583626D-01, .450913D-01, .344007D-01, - + .258528D-01, .191662D-01, .139257D-01, .991061D-02, - + .688820D-02, .465660D-02, .304827D-02, .191904D-02, - + .115527D-02, .655037D-03, .346892D-03, .167629D-03, - + .718716D-04, .260748D-04, .744601D-05, .144963D-05, - + .122561D-06, .000000D+00, .629337D+06, .480384D+06, - + .360983D+06, .271133D+06, .203572D+06, .152771D+06, - + .114606D+06, .859354D+05, .644159D+05, .482641D+05, - + .361520D+05, .270692D+05, .202642D+05, .151654D+05, - + .113484D+05, .849075D+04, .635309D+04, .475371D+04, - + .355805D+04, .266392D+04, .199577D+04, .149624D+04, - + .112297D+04, .843861D+03, .635219D+03, .479105D+03 / - DATA (UPDI(I),I=9673,9724) / - + .362358D+03, .273766D+03, .208417D+03, .159303D+03, - + .122355D+03, .944711D+02, .733837D+02, .574143D+02, - + .452178D+02, .358792D+02, .286970D+02, .231325D+02, - + .187962D+02, .153861D+02, .126889D+02, .105312D+02, - + .879205D+01, .737656D+01, .621561D+01, .525487D+01, - + .445738D+01, .378389D+01, .321949D+01, .273799D+01, - + .232997D+01, .198174D+01, .168398D+01, .142899D+01, - + .121044D+01, .102309D+01, .862527D+00, .725077D+00, - + .607556D+00, .507269D+00, .421864D+00, .349349D+00, - + .287853D+00, .236164D+00, .192393D+00, .155746D+00, - + .125196D+00, .998709D-01, .789921D-01, .618951D-01, - + .479922D-01, .367867D-01, .278377D-01, .207445D-01, - + .152460D-01, .109770D-01, .773825D-02, .532506D-02 / - DATA (UPDI(I),I=9725,9776) / - + .356236D-02, .230625D-02, .143486D-02, .853018D-03, - + .477164D-03, .249055D-03, .118487D-03, .499569D-04, - + .178066D-04, .499046D-05, .953828D-06, .824990D-07, - + .000000D+00, .873162D+06, .663336D+06, .495687D+06, - + .370213D+06, .276377D+06, .206208D+06, .153786D+06, - + .114627D+06, .854024D+05, .635950D+05, .473375D+05, - + .352189D+05, .261941D+05, .194737D+05, .144741D+05, - + .107548D+05, .799055D+04, .593597D+04, .441025D+04, - + .327710D+04, .243622D+04, .181200D+04, .134894D+04, - + .100525D+04, .750266D+03, .560940D+03, .420473D+03, - + .314746D+03, .237398D+03, .179754D+03, .136751D+03, - + .104579D+03, .804552D+02, .623469D+02, .486352D+02, - + .382285D+02, .302926D+02, .241971D+02, .194860D+02 / - DATA (UPDI(I),I=9777,9828) / - + .158118D+02, .129289D+02, .106410D+02, .881093D+01, - + .733315D+01, .613029D+01, .514254D+01, .432889D+01, - + .364708D+01, .308011D+01, .260022D+01, .219673D+01, - + .185508D+01, .156522D+01, .131892D+01, .110946D+01, - + .931297D+00, .779774D+00, .651058D+00, .541839D+00, - + .449343D+00, .371167D+00, .305286D+00, .249832D+00, - + .203570D+00, .164691D+00, .132386D+00, .105663D+00, - + .836804D-01, .656997D-01, .510929D-01, .393116D-01, - + .298949D-01, .224388D-01, .165802D-01, .120796D-01, - + .861820D-02, .601779D-02, .409997D-02, .271414D-02, - + .173770D-02, .106844D-02, .627260D-03, .346183D-03, - + .178107D-03, .834407D-04, .346108D-04, .121300D-04, - + .334102D-05, .628607D-06, .556708D-07, .000000D+00 / - DATA (UPDI(I),I=9829,9880) / - + .118413D+07, .895497D+06, .665598D+06, .494432D+06, - + .367094D+06, .272376D+06, .201992D+06, .149701D+06, - + .110890D+06, .820898D+05, .607400D+05, .449164D+05, - + .332005D+05, .245276D+05, .181138D+05, .133715D+05, - + .986849D+04, .728122D+04, .537214D+04, .396349D+04, - + .292506D+04, .215941D+04, .159531D+04, .117957D+04, - + .873335D+03, .647602D+03, .481374D+03, .357218D+03, - + .267092D+03, .200457D+03, .151139D+03, .114542D+03, - + .873229D+02, .670592D+02, .518399D+02, .403844D+02, - + .317189D+02, .251169D+02, .200544D+02, .161371D+02, - + .130866D+02, .106841D+02, .877660D+01, .724775D+01, - + .601241D+01, .500550D+01, .418219D+01, .349745D+01, - + .293229D+01, .245758D+01, .206146D+01, .172860D+01 / - DATA (UPDI(I),I=9881,9932) / - + .144834D+01, .121202D+01, .101255D+01, .844162D+00, - + .702033D+00, .582200D+00, .481275D+00, .396437D+00, - + .325265D+00, .265728D+00, .215983D+00, .174789D+00, - + .140428D+00, .112092D+00, .888299D-01, .698414D-01, - + .544307D-01, .420108D-01, .320745D-01, .241982D-01, - + .180150D-01, .131987D-01, .953230D-02, .673880D-02, - + .466071D-02, .314374D-02, .205933D-02, .130388D-02, - + .792278D-03, .459340D-03, .250127D-03, .126860D-03, - + .585339D-04, .238917D-04, .823538D-05, .222980D-05, - + .413301D-06, .374484D-07, .000000D+00, .157412D+07, - + .118523D+07, .876401D+06, .647633D+06, .478301D+06, - + .352994D+06, .260361D+06, .191901D+06, .141358D+06, - + .104054D+06, .765505D+05, .562786D+05, .413526D+05 / - DATA (UPDI(I),I=9933,9984) / - + .303663D+05, .222883D+05, .163503D+05, .119901D+05, - + .878922D+04, .644178D+04, .472050D+04, .345963D+04, - + .253598D+04, .185996D+04, .136508D+04, .100303D+04, - + .738000D+03, .544228D+03, .400558D+03, .297039D+03, - + .221076D+03, .165279D+03, .124193D+03, .938690D+02, - + .714708D+02, .547782D+02, .423120D+02, .329540D+02, - + .258793D+02, .204947D+02, .163593D+02, .131621D+02, - + .106623D+02, .869158D+01, .712336D+01, .586511D+01, - + .484685D+01, .402020D+01, .333764D+01, .277836D+01, - + .231206D+01, .192581D+01, .160366D+01, .133442D+01, - + .110906D+01, .920251D+00, .762042D+00, .629485D+00, - + .518541D+00, .425786D+00, .348386D+00, .283926D+00, - + .230397D+00, .185996D+00, .149496D+00, .119277D+00 / - DATA (UPDI(I),I=9985,10036) / - + .945418D-01, .743892D-01, .580645D-01, .449187D-01, - + .344076D-01, .260665D-01, .195094D-01, .144056D-01, - + .104646D-01, .749164D-02, .524771D-02, .359482D-02, - + .240055D-02, .155599D-02, .974271D-03, .585045D-03, - + .334975D-03, .179983D-03, .899956D-04, .409036D-04, - + .164325D-04, .557223D-05, .148333D-05, .270992D-06, - + .250989D-07, .000000D+00, .205535D+07, .154104D+07, - + .113379D+07, .833605D+06, .612497D+06, .449694D+06, - + .329944D+06, .241896D+06, .177226D+06, .129744D+06, - + .949212D+05, .693920D+05, .506968D+05, .370118D+05, - + .270054D+05, .196917D+05, .143521D+05, .104550D+05, - + .761391D+04, .554324D+04, .403569D+04, .293823D+04, - + .214009D+04, .155957D+04, .113767D+04, .830876D+03 / - DATA (UPDI(I),I=10037,10088) / - + .608105D+03, .444094D+03, .326757D+03, .241272D+03, - + .178932D+03, .133367D+03, .999845D+02, .755100D+02, - + .574043D+02, .439832D+02, .339818D+02, .264759D+02, - + .208037D+02, .164783D+02, .131573D+02, .105786D+02, - + .855941D+01, .696363D+01, .569196D+01, .466989D+01, - + .384588D+01, .317025D+01, .262056D+01, .216552D+01, - + .179131D+01, .148145D+01, .122434D+01, .101070D+01, - + .832998D+00, .685174D+00, .562214D+00, .460043D+00, - + .375239D+00, .304981D+00, .246892D+00, .199001D+00, - + .159562D+00, .127376D+00, .100925D+00, .794345D-01, - + .620572D-01, .480876D-01, .369255D-01, .280708D-01, - + .211010D-01, .156671D-01, .114736D-01, .826369D-02, - + .586411D-02, .406996D-02, .276136D-02, .182551D-02 / - DATA (UPDI(I),I=10089,10140) / - + .117083D-02, .724973D-03, .430233D-03, .243280D-03, - + .128986D-03, .635923D-04, .284755D-04, .112618D-04, - + .375766D-05, .983600D-06, .177197D-06, .167615D-07, - + .000000D+00, .263999D+07, .197129D+07, .144328D+07, - + .105593D+07, .771991D+06, .563942D+06, .411660D+06, - + .300248D+06, .218827D+06, .159351D+06, .115955D+06, - + .843065D+05, .612520D+05, .444665D+05, .322592D+05, - + .233860D+05, .169438D+05, .122687D+05, .887998D+04, - + .642461D+04, .464754D+04, .336171D+04, .243228D+04, - + .176051D+04, .127537D+04, .924858D+03, .672023D+03, - + .487133D+03, .355762D+03, .260712D+03, .191876D+03, - + .141918D+03, .105573D+03, .791163D+02, .596816D+02, - + .453775D+02, .347921D+02, .269031D+02, .209817D+02 / - DATA (UPDI(I),I=10141,10192) / - + .164968D+02, .130759D+02, .104372D+02, .838438D+01, - + .677269D+01, .549674D+01, .447801D+01, .366219D+01, - + .299780D+01, .246096D+01, .201966D+01, .165928D+01, - + .136297D+01, .111884D+01, .917426D+00, .751082D+00, - + .613688D+00, .500216D+00, .406599D+00, .329447D+00, - + .265984D+00, .213887D+00, .171242D+00, .136374D+00, - + .108124D+00, .850767D-01, .664906D-01, .515744D-01, - + .396741D-01, .302390D-01, .228133D-01, .170155D-01, - + .125326D-01, .910262D-02, .649994D-02, .457193D-02, - + .314393D-02, .211261D-02, .138261D-02, .877432D-03, - + .537278D-03, .315107D-03, .175977D-03, .920744D-04, - + .447635D-04, .197510D-04, .769156D-05, .252574D-05, - + .650197D-06, .115560D-06, .111547D-07, .000000D+00 / -C----------------------------------------------------------------------- -C - Dr = DrI - Fl = FlI - Al = AlI - DO I=1,6 - Amass(I) = AmassI(I) - ENDDO - Iorder = Nint(Dr) - Nfl = Nint(Fl) - Alambda = Al -C - NX = NxI - NT = NTI - NfMx = NfMxI -C - QINI = QINII - QMAX = QMAXI - DO I=0,NT - QL(I) = QLI(I) - ENDDO -C - XMIN = XMINI - DO I=0,NX - XV(I) = XVI(I) - ENDDO -C - Do 11 Iq = 0, NT - QL(Iq) = Log (QL(Iq) /Al) - 11 Continue -C -C Since quark = anti-quark for nfl>2 at this stage, -C we Read out only the non-redundent data points -C No of flavors = NfMx (sea) + 1 (gluon) + 2 (valence) - - Nblk = (NX+1) * (NT+1) - Npts = Nblk * (NfMx+3) - DO I=1,Npts - UPD(I) = UPDI(I) - ENDDO -C - Return -C **************************** - End diff --git a/PDF/spdf/dbfint.F b/PDF/spdf/dbfint.F deleted file mode 100644 index 23656fdbffa..00000000000 --- a/PDF/spdf/dbfint.F +++ /dev/null @@ -1,78 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:52 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:15 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -#if defined(CERNLIB_SINGLE) - FUNCTION DBFINT(NARG,ARG,NA,ENT,TABLE) -#endif -#if defined(CERNLIB_DOUBLE) - DOUBLE PRECISION FUNCTION DBFINT(NARG,ARG,NA,ENT,TABLE) -#endif -#include "pdf/impdp.inc" - INTEGER NA(NARG), INDEX(32) -#include "pdf/expdp.inc" - + ARG(NARG),ENT(10),TABLE(10),WEIGHT(32) - DATA ZEROD/0.D0/ONED/1.D0/ -C - DBFINT = ZEROD - IF(NARG .LT. 1 .OR. NARG .GT. 5) RETURN -C - LMAX = 0 - ISTEP = 1 - KNOTS = 1 - INDEX(1) = 1 - WEIGHT(1) = ONED - DO 100 N = 1, NARG - X = ARG(N) - NDIM = NA(N) - LOCA = LMAX - LMIN = LMAX + 1 - LMAX = LMAX + NDIM - IF(NDIM .GT. 2) GOTO 10 - IF(NDIM .EQ. 1) GOTO 100 - H = X - ENT(LMIN) - IF(H .EQ. ZEROD) GOTO 90 - ISHIFT = ISTEP - IF(X-ENT(LMIN+1) .EQ. ZEROD) GOTO 21 - ISHIFT = 0 - ETA = H / (ENT(LMIN+1) - ENT(LMIN)) - GOTO 30 - 10 LOCB = LMAX + 1 - 11 LOCC = (LOCA+LOCB) / 2 - IF(X-ENT(LOCC)) 12, 20, 13 - 12 LOCB = LOCC - GOTO 14 - 13 LOCA = LOCC - 14 IF(LOCB-LOCA .GT. 1) GOTO 11 - LOCA = MIN ( MAX (LOCA,LMIN), LMAX-1 ) - ISHIFT = (LOCA - LMIN) * ISTEP - ETA = (X - ENT(LOCA)) / (ENT(LOCA+1) - ENT(LOCA)) - GOTO 30 - 20 ISHIFT = (LOCC - LMIN) * ISTEP - 21 DO 22 K = 1, KNOTS - INDEX(K) = INDEX(K) + ISHIFT - 22 CONTINUE - GOTO 90 - 30 DO 31 K = 1, KNOTS - INDEX(K) = INDEX(K) + ISHIFT - INDEX(K+KNOTS) = INDEX(K) + ISTEP - WEIGHT(K+KNOTS) = WEIGHT(K) * ETA - WEIGHT(K) = WEIGHT(K) - WEIGHT(K+KNOTS) - 31 CONTINUE - KNOTS = 2*KNOTS - 90 ISTEP = ISTEP * NDIM - 100 CONTINUE - DO 200 K = 1, KNOTS - I = INDEX(K) - DBFINT = DBFINT + WEIGHT(K) * TABLE(I) - 200 CONTINUE - RETURN - END diff --git a/PDF/spdf/dflm1.F b/PDF/spdf/dflm1.F deleted file mode 100644 index e39fcfa0c12..00000000000 --- a/PDF/spdf/dflm1.F +++ /dev/null @@ -1,55 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:53 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:15 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE DFLM1(DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to DFLM set of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 160 MeV : -C -#include "pdf/expdp.inc" - + DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q2 -#include "pdf/w50511.inc" -C - X = DX - Q2 = DSCALE**2 -C -C generate the individual structure fcn calls -C - CALL FXG160(X,Q2,'UPVAL',VAL) - DUPV = VAL - CALL FXG160(X,Q2,'DOVAL',VAL) - DDNV = VAL - CALL FXG160(X,Q2,'UBAR ',VAL) - DSEA = VAL - CALL FXG160(X,Q2,'SBAR ',VAL) - DSTR = VAL - CALL FXG160(X,Q2,'CBAR ',VAL) - DCHM = VAL - CALL FXG160(X,Q2,'BBAR ',VAL) - DBOT = VAL - VAL = 0. - IF (DSCALE.GT.TMAS) CALL FXG160(X,Q2,'TBAR ',VAL) - DTOP = VAL - CALL FXG160(X,Q2,'GLUON',VAL) - DGL = VAL -C - RETURN - END diff --git a/PDF/spdf/dflm2.F b/PDF/spdf/dflm2.F deleted file mode 100644 index f3645529b2b..00000000000 --- a/PDF/spdf/dflm2.F +++ /dev/null @@ -1,55 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:53 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:15 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE DFLM2(DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to DFLM set of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 260 MeV : -C -#include "pdf/expdp.inc" - + DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q2 -#include "pdf/w50511.inc" -C - X = DX - Q2 = DSCALE**2 -C -C generate the individual structure fcn calls -C - CALL FXG260(X,Q2,'UPVAL',VAL) - DUPV = VAL - CALL FXG260(X,Q2,'DOVAL',VAL) - DDNV = VAL - CALL FXG260(X,Q2,'UBAR ',VAL) - DSEA = VAL - CALL FXG260(X,Q2,'SBAR ',VAL) - DSTR = VAL - CALL FXG260(X,Q2,'CBAR ',VAL) - DCHM = VAL - CALL FXG260(X,Q2,'BBAR ',VAL) - DBOT = VAL - VAL = 0. - IF (DSCALE.GT.TMAS) CALL FXG260(X,Q2,'TBAR ',VAL) - DTOP = VAL - CALL FXG260(X,Q2,'GLUON',VAL) - DGL = VAL -C - RETURN - END diff --git a/PDF/spdf/dflm3.F b/PDF/spdf/dflm3.F deleted file mode 100644 index 916700a4de0..00000000000 --- a/PDF/spdf/dflm3.F +++ /dev/null @@ -1,55 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:54 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:15 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE DFLM3(DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to DFLM set of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 360 MeV : -C -#include "pdf/expdp.inc" - + DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q2 -#include "pdf/w50511.inc" -C - X = DX - Q2 = DSCALE**2 -C -C generate the individual structure fcn calls -C - CALL FXG360(X,Q2,'UPVAL',VAL) - DUPV = VAL - CALL FXG360(X,Q2,'DOVAL',VAL) - DDNV = VAL - CALL FXG360(X,Q2,'UBAR ',VAL) - DSEA = VAL - CALL FXG360(X,Q2,'SBAR ',VAL) - DSTR = VAL - CALL FXG360(X,Q2,'CBAR ',VAL) - DCHM = VAL - CALL FXG360(X,Q2,'BBAR ',VAL) - DBOT = VAL - VAL = 0. - IF (DSCALE.GT.TMAS) CALL FXG360(X,Q2,'TBAR ',VAL) - DTOP = VAL - CALL FXG360(X,Q2,'GLUON',VAL) - DGL = VAL -C - RETURN - END diff --git a/PDF/spdf/dflm4.F b/PDF/spdf/dflm4.F deleted file mode 100644 index d26ab92c059..00000000000 --- a/PDF/spdf/dflm4.F +++ /dev/null @@ -1,56 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:56 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:15 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE DFLM4(DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to DFLM set of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 200 MeV : -C :::::::::::: Soft Valence Quark distribution (LO) -C -#include "pdf/expdp.inc" - + DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q2 -#include "pdf/w50511.inc" -C - X = DX - Q2 = DSCALE**2 -C -C generate the individual structure fcn calls -C - CALL FXVSOF(X,Q2,'UPVAL',VAL) - DUPV = VAL - CALL FXVSOF(X,Q2,'DOVAL',VAL) - DDNV = VAL - CALL FXVSOF(X,Q2,'UBAR ',VAL) - DSEA = VAL - CALL FXVSOF(X,Q2,'SBAR ',VAL) - DSTR = VAL - CALL FXVSOF(X,Q2,'CBAR ',VAL) - DCHM = VAL - CALL FXVSOF(X,Q2,'BBAR ',VAL) - DBOT = VAL - VAL = 0. - IF (DSCALE.GT.TMAS) CALL FXVSOF(X,Q2,'TBAR ',VAL) - DTOP = VAL - CALL FXVSOF(X,Q2,'GLUON',VAL) - DGL = VAL -C - RETURN - END diff --git a/PDF/spdf/dflm5.F b/PDF/spdf/dflm5.F deleted file mode 100644 index 59fd14cffde..00000000000 --- a/PDF/spdf/dflm5.F +++ /dev/null @@ -1,56 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:57 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:15 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE DFLM5(DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to DFLM set of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 200 MeV : -C :::::::::::: Hard Valence Quark distribution -C -#include "pdf/expdp.inc" - + DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q2 -#include "pdf/w50511.inc" -C - X = DX - Q2 = DSCALE**2 -C -C generate the individual structure fcn calls -C - CALL FXVHAR(X,Q2,'UPVAL',VAL) - DUPV = VAL - CALL FXVHAR(X,Q2,'DOVAL',VAL) - DDNV = VAL - CALL FXVHAR(X,Q2,'UBAR ',VAL) - DSEA = VAL - CALL FXVHAR(X,Q2,'SBAR ',VAL) - DSTR = VAL - CALL FXVHAR(X,Q2,'CBAR ',VAL) - DCHM = VAL - CALL FXVHAR(X,Q2,'BBAR ',VAL) - DBOT = VAL - VAL = 0. - IF (DSCALE.GT.TMAS) CALL FXVHAR(X,Q2,'TBAR ',VAL) - DTOP = VAL - CALL FXVHAR(X,Q2,'GLUON',VAL) - DGL = VAL -C - RETURN - END diff --git a/PDF/spdf/dflm6.F b/PDF/spdf/dflm6.F deleted file mode 100644 index ea7a0c3d2bf..00000000000 --- a/PDF/spdf/dflm6.F +++ /dev/null @@ -1,56 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:58 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:15 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE DFLM6(DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to DFLM set of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 200 MeV : -C :::::::::::: Soft Gluon distribution (LO) -C -#include "pdf/expdp.inc" - + DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q2 -#include "pdf/w50511.inc" -C - X = DX - Q2 = DSCALE**2 -C -C generate the individual structure fcn calls -C - CALL FXGSOF(X,Q2,'UPVAL',VAL) - DUPV = VAL - CALL FXGSOF(X,Q2,'DOVAL',VAL) - DDNV = VAL - CALL FXGSOF(X,Q2,'UBAR ',VAL) - DSEA = VAL - CALL FXGSOF(X,Q2,'SBAR ',VAL) - DSTR = VAL - CALL FXGSOF(X,Q2,'CBAR ',VAL) - DCHM = VAL - CALL FXGSOF(X,Q2,'BBAR ',VAL) - DBOT = VAL - VAL = 0. - IF (DSCALE.GT.TMAS) CALL FXGSOF(X,Q2,'TBAR ',VAL) - DTOP = VAL - CALL FXGSOF(X,Q2,'GLUON',VAL) - DGL = VAL -C - RETURN - END diff --git a/PDF/spdf/dflm7.F b/PDF/spdf/dflm7.F deleted file mode 100644 index 38da2c2f56e..00000000000 --- a/PDF/spdf/dflm7.F +++ /dev/null @@ -1,56 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:27:59 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:15 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE DFLM7(DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to DFLM set of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 200 MeV : -C :::::::::::: Hard Gluon distribution (LO) -C -#include "pdf/expdp.inc" - + DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q2 -#include "pdf/w50511.inc" -C - X = DX - Q2 = DSCALE**2 -C -C generate the individual structure fcn calls -C - CALL FXGHAR(X,Q2,'UPVAL',VAL) - DUPV = VAL - CALL FXGHAR(X,Q2,'DOVAL',VAL) - DDNV = VAL - CALL FXGHAR(X,Q2,'UBAR ',VAL) - DSEA = VAL - CALL FXGHAR(X,Q2,'SBAR ',VAL) - DSTR = VAL - CALL FXGHAR(X,Q2,'CBAR ',VAL) - DCHM = VAL - CALL FXGHAR(X,Q2,'BBAR ',VAL) - DBOT = VAL - VAL = 0. - IF (DSCALE.GT.TMAS) CALL FXGHAR(X,Q2,'TBAR ',VAL) - DTOP = VAL - CALL FXGHAR(X,Q2,'GLUON',VAL) - DGL = VAL -C - RETURN - END diff --git a/PDF/spdf/dflm8.F b/PDF/spdf/dflm8.F deleted file mode 100644 index 6e5b7d43bc2..00000000000 --- a/PDF/spdf/dflm8.F +++ /dev/null @@ -1,56 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:00 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:15 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE DFLM8(DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to DFLM set of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 200 MeV : -C :::::::::::: Central distribution (LO) -C -#include "pdf/expdp.inc" - + DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q2 -#include "pdf/w50511.inc" -C - X = DX - Q2 = DSCALE**2 -C -C generate the individual structure fcn calls -C - CALL FXAVER(X,Q2,'UPVAL',VAL) - DUPV = VAL - CALL FXAVER(X,Q2,'DOVAL',VAL) - DDNV = VAL - CALL FXAVER(X,Q2,'UBAR ',VAL) - DSEA = VAL - CALL FXAVER(X,Q2,'SBAR ',VAL) - DSTR = VAL - CALL FXAVER(X,Q2,'CBAR ',VAL) - DCHM = VAL - CALL FXAVER(X,Q2,'BBAR ',VAL) - DBOT = VAL - VAL = 0. - IF (DSCALE.GT.TMAS) CALL FXAVER(X,Q2,'TBAR ',VAL) - DTOP = VAL - CALL FXAVER(X,Q2,'GLUON',VAL) - DGL = VAL -C - RETURN - END diff --git a/PDF/spdf/dflm9.F b/PDF/spdf/dflm9.F deleted file mode 100644 index ed733be9b0c..00000000000 --- a/PDF/spdf/dflm9.F +++ /dev/null @@ -1,56 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:01 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:15 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE DFLM9(DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to DFLM set of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 300 MeV : -C :::::::::::: Central distribution (NLLO) -C -#include "pdf/expdp.inc" - + DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q2 -#include "pdf/w50511.inc" -C - X = DX - Q2 = DSCALE**2 -C -C generate the individual structure fcn calls -C - CALL FXNLLA(X,Q2,'UPVAL',VAL) - DUPV = VAL - CALL FXNLLA(X,Q2,'DOVAL',VAL) - DDNV = VAL - CALL FXNLLA(X,Q2,'UBAR ',VAL) - DSEA = VAL - CALL FXNLLA(X,Q2,'SBAR ',VAL) - DSTR = VAL - CALL FXNLLA(X,Q2,'CBAR ',VAL) - DCHM = VAL - CALL FXNLLA(X,Q2,'BBAR ',VAL) - DBOT = VAL - VAL = 0. - IF (DSCALE.GT.TMAS) CALL FXNLLA(X,Q2,'TBAR ',VAL) - DTOP = VAL - CALL FXNLLA(X,Q2,'GLUON',VAL) - DGL = VAL -C - RETURN - END diff --git a/PDF/spdf/dgpho1.F b/PDF/spdf/dgpho1.F deleted file mode 100644 index 6fb16d1f1f4..00000000000 --- a/PDF/spdf/dgpho1.F +++ /dev/null @@ -1,155 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:02 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:15 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE DGPHO1(DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL) -C******************************************************************** -C* * -C* Parametrization of parton distribution functions * -C* in the photon (LO analysis) - full solution of AP eq.! * -C* * -C* authors: M.Drees and K.Grassie (DG) * -C* /Z. Phys. C28 (1985) 451/ * -C* * -C* Prepared by: * -C* Krzysztof Charchula, DESY * -C* bitnet: F1PCHA@DHHDESY3 * -C* decnet: 13313::CHARCHULA * -C* * -C* Modified by: * -C* H. Plothow-Besch/CERN-PPE * -C* * -C******************************************************************** -C -#include "pdf/impdp.inc" -#include "pdf/expdp.inc" - + A(3,4,3),AT(3), - + B(5,4,2,3),BT(5,2),XQPOM(2),E(2), - + DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL - PARAMETER (ALPEM=7.29927D-3, PI=3.141592D0) - PARAMETER (ALAM=0.4D0) -C...comments -C...-------------------------------------------------- -C... nf=3 for 1< Q2 <32 GeV2 -C... nf=4 for 32< Q2 <200 GeV2 -C... nf=5 for 200< Q2 <1D4 GeV2 -C...-------------------------------------------------- -C -C...initialization of gluon parameters array for DG - DATA (((A(I,J,K),I=1,3),J=1,4),K=1,3)/ - > -0.20700, -0.19870, 5.1190, - > 0.61580, 0.62570, -0.2752, - > 1.07400, 8.35200, -6.9930, - > 0.00000, 5.02400, 2.2980, - > 0.8926D-2,0.0509, -0.2313, - > 0.65940, 0.27740, 0.1382, - > 0.47660, -0.39060, 6.5420, - > 0.01975, -0.32120, 0.5162, - > 0.03197, -0.618D-2,-0.1216, - > 1.01800, 0.94760, 0.9047, - > 0.24610, -0.60940, 2.6530, - > 0.02707, -0.01067, 0.2003D-2/ -C -C...initialization of quark parameters array for DG - DATA (((B(I,J,K,1),I=1,5),J=1,4),K=1,2)/ - > 2.2850, 6.0730, -0.4202, -0.0808, 0.0553, - > -0.0153, -0.8132, 0.0178, 0.6346, 1.1360, - > 1.33D3, -41.310, 0.9216, 1.2080, 0.9512, - > 4.2190, 3.1650, 0.1800, 0.2030, 0.0116, - > 16.690, 0.1760, -0.0208, -0.0168, -0.1986, - > -0.7916, 0.0479, 0.3386D-2, 1.3530, 1.1000, - > 1.0990D3, 1.0470, 4.8530, 1.4260, 1.1360, - > 4.4280, 0.0250, 0.8404, 1.2390, -0.2779/ - DATA (((B(I,J,K,2),I=1,5),J=1,4),K=1,2)/ - > -0.3711, -0.1717, 0.08766, -0.8915, -0.1816, - > 1.0610, 0.7815, 0.02197, 0.2857, 0.5866, - > 4.7580, 1.5350, 0.10960, 2.9730, 2.4210, - > -0.0150, 0.7067D-2,0.20400, 0.1185, 0.4059, - > -0.1207, 25.000, -0.01230, -0.0919, 0.02015, - > 1.0710, -1.6480, 1.16200, 0.7912, 0.9869, - > 1.9770, -0.01563, 0.48240, 0.6397, -0.07036, - > -0.8625D-2,6.4380, -0.01100, 2.3270, 0.01694/ - DATA (((B(I,J,K,3),I=1,5),J=1,4),K=1,2)/ - > 15.8, 2.742, 0.02917, -0.0342, -0.02302, - > -0.9464, -0.7332, 0.04657, 0.7196, 0.9229, - > -0.5, 0.7148, 0.1785, 0.7338, 0.5873, - > -0.2118, 3.287, 0.04811, 0.08139,-0.79D-4, - > 6.734, 59.88, -0.3226D-2,-0.03321, 0.1059, - > -1.008, -2.983, 0.8432, 0.9475, 0.6954, - > -0.08594, 4.48, 0.3616, -0.3198, -0.6663, - > 0.07625, 0.9686, 0.1383D-2, 0.02132, 0.3683/ -C -C...specification of sets - Q2 = DQ*DQ - IF (Q2.LT.32.0D0) NFL=3 - IF((Q2.GE.32.0D0).AND.(Q2.LT.200.0D0)) NFL=4 - IF (Q2.GE.200.0D0) NFL=5 -C -C...calculations - ALAM2=ALAM**2 - T=LOG(Q2/ALAM2) - LF=NFL-2 -C -C...gluons - DO 11 I=1,3 - AT(I)=A(I,1,LF)*T**A(I,2,LF)+A(I,3,LF)*T**(-A(I,4,LF)) - 11 CONTINUE - POMG=AT(1)*DX**AT(2)*(1.D0-DX)**AT(3) - DGL=POMG*ALPEM -C -C...quarks - E(1)=1.0D0 - IF(NFL.EQ.3) THEN - E(2)=9.0D0 - ELSEIF(NFL.EQ.4) THEN - E(2)=10.0D0 - ELSEIF(NFL.EQ.5) THEN - E(2)=55.0D0/6.0D0 - ENDIF - DO 13 J=1,2 - DO 15 I=1,5 - BTP=B(I,1,J,LF)*T**B(I,2,J,LF) - BT(I,J)=BTP+B(I,3,J,LF)*T**(-B(I,4,J,LF)) - 15 CONTINUE - 13 CONTINUE -C -C...singlet & non-singlet combinations - DO 17 J=1,2 - POM1=DX*(DX*DX+(1.D0-DX)**2)/(BT(1,J)-BT(2,J)*LOG(1.D0-DX)) - POM2=BT(3,J)*DX**BT(4,J)*(1.D0-DX)**BT(5,J) - XQPOM(J)=E(J)*POM1+POM2 - 17 CONTINUE -C -C...quarks flavours - IF (NFL.EQ.3) THEN - DUB=ALPEM*1.D0/6.D0*(XQPOM(2)+9.D0*XQPOM(1)) - DDB=ALPEM*1.D0/6.D0*(XQPOM(2)-9.D0/2.D0*XQPOM(1)) - DSB=DDB - DCB=0.D0 - DBB=0.D0 - ELSEIF (NFL.EQ.4) THEN - DUB=ALPEM*1.D0/8.D0*(XQPOM(2)+6.D0*XQPOM(1)) - DCB=DUB - DDB=ALPEM*1.D0/8.D0*(XQPOM(2)-6.D0*XQPOM(1)) - DSB=DDB - DBB=0.D0 - ELSEIF (NFL.EQ.5) THEN - DUB=ALPEM*1.D0/10.D0*(XQPOM(2)+15.D0/2.D0*XQPOM(1)) - DCB=DUB - DDB=ALPEM*1.D0/10.D0*(XQPOM(2)-5.D0*XQPOM(1)) - DSB=DDB - DBB=DDB - ENDIF - DUV=DUB - DDV=DDB -C - RETURN - END diff --git a/PDF/spdf/dgpho2.F b/PDF/spdf/dgpho2.F deleted file mode 100644 index c9638066c5a..00000000000 --- a/PDF/spdf/dgpho2.F +++ /dev/null @@ -1,131 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:04 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:15 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE DGPHO2(DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL) -C******************************************************************** -C* * -C* Parametrization of parton distribution functions * -C* in the photon (LO analysis) - full solution of AP eq.! * -C* * -C* authors: M.Drees and K.Grassie (DG) * -C* /Z. Phys. C28 (1985) 451/ * -C* * -C* Prepared by: * -C* Krzysztof Charchula, DESY * -C* bitnet: F1PCHA@DHHDESY3 * -C* decnet: 13313::CHARCHULA * -C* * -C* Modified by: * -C* H. Plothow-Besch/CERN-PPE * -C* * -C******************************************************************** -C -#include "pdf/impdp.inc" -#include "pdf/expdp.inc" - + A(3,4,3),AT(3), - + B(5,4,2,3),BT(5,2),XQPOM(2),E(2), - + DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL - PARAMETER (ALPEM=7.29927D-3, PI=3.141592D0) - PARAMETER (ALAM=0.4D0) -C...comments -C...-------------------------------------------------- -C... with nf=3 (valid for 1< Q2 <50 GeV2) -C...-------------------------------------------------- -C -C...initialization of gluon parameters array for DG - DATA (((A(I,J,K),I=1,3),J=1,4),K=1,3)/ - > -0.20700, -0.19870, 5.1190, - > 0.61580, 0.62570, -0.2752, - > 1.07400, 8.35200, -6.9930, - > 0.00000, 5.02400, 2.2980, - > 0.8926D-2,0.0509, -0.2313, - > 0.65940, 0.27740, 0.1382, - > 0.47660, -0.39060, 6.5420, - > 0.01975, -0.32120, 0.5162, - > 0.03197, -0.618D-2,-0.1216, - > 1.01800, 0.94760, 0.9047, - > 0.24610, -0.60940, 2.6530, - > 0.02707, -0.01067, 0.2003D-2/ -C -C...initialization of quark parameters array for DG - DATA (((B(I,J,K,1),I=1,5),J=1,4),K=1,2)/ - > 2.2850, 6.0730, -0.4202, -0.0808, 0.0553, - > -0.0153, -0.8132, 0.0178, 0.6346, 1.1360, - > 1.33D3, -41.310, 0.9216, 1.2080, 0.9512, - > 4.2190, 3.1650, 0.1800, 0.2030, 0.0116, - > 16.690, 0.1760, -0.0208, -0.0168, -0.1986, - > -0.7916, 0.0479, 0.3386D-2, 1.3530, 1.1000, - > 1.0990D3, 1.0470, 4.8530, 1.4260, 1.1360, - > 4.4280, 0.0250, 0.8404, 1.2390, -0.2779/ - DATA (((B(I,J,K,2),I=1,5),J=1,4),K=1,2)/ - > -0.3711, -0.1717, 0.08766, -0.8915, -0.1816, - > 1.0610, 0.7815, 0.02197, 0.2857, 0.5866, - > 4.7580, 1.5350, 0.10960, 2.9730, 2.4210, - > -0.0150, 0.7067D-2,0.20400, 0.1185, 0.4059, - > -0.1207, 25.000, -0.01230, -0.0919, 0.02015, - > 1.0710, -1.6480, 1.16200, 0.7912, 0.9869, - > 1.9770, -0.01563, 0.48240, 0.6397, -0.07036, - > -0.8625D-2,6.4380, -0.01100, 2.3270, 0.01694/ - DATA (((B(I,J,K,3),I=1,5),J=1,4),K=1,2)/ - > 15.8, 2.742, 0.02917, -0.0342, -0.02302, - > -0.9464, -0.7332, 0.04657, 0.7196, 0.9229, - > -0.5, 0.7148, 0.1785, 0.7338, 0.5873, - > -0.2118, 3.287, 0.04811, 0.08139,-0.79D-4, - > 6.734, 59.88, -0.3226D-2,-0.03321, 0.1059, - > -1.008, -2.983, 0.8432, 0.9475, 0.6954, - > -0.08594, 4.48, 0.3616, -0.3198, -0.6663, - > 0.07625, 0.9686, 0.1383D-2, 0.02132, 0.3683/ -C -C...specification of sets - NFL=3 -C -C...calculations - Q2 = DQ*DQ - ALAM2=ALAM**2 - T=LOG(Q2/ALAM2) - LF=NFL-2 -C -C...gluons - DO 11 I=1,3 - AT(I)=A(I,1,LF)*T**A(I,2,LF)+A(I,3,LF)*T**(-A(I,4,LF)) - 11 CONTINUE - POMG=AT(1)*DX**AT(2)*(1.D0-DX)**AT(3) - DGL=POMG*ALPEM -C -C...quarks - E(1)=1.D0 - E(2)=9.D0 - DO 13 J=1,2 - DO 15 I=1,5 - BTP=B(I,1,J,LF)*T**B(I,2,J,LF) - BT(I,J)=BTP+B(I,3,J,LF)*T**(-B(I,4,J,LF)) - 15 CONTINUE - 13 CONTINUE -C -C...singlet & non-singlet combinations - DO 17 J=1,2 - POM1=DX*(DX*DX+(1.D0-DX)**2)/(BT(1,J)-BT(2,J)*LOG(1.D0-DX)) - POM2=BT(3,J)*DX**BT(4,J)*(1.D0-DX)**BT(5,J) - XQPOM(J)=E(J)*POM1+POM2 - 17 CONTINUE -C -C...quarks flavours - DUB=ALPEM*1.D0/6.D0*(XQPOM(2)+9.D0*XQPOM(1)) - DUV=DUB - DDB=ALPEM*1.D0/6.D0*(XQPOM(2)-9.D0/2.D0*XQPOM(1)) - DDV=DDB - DSB=DDB - DCB=0.D0 - DBB=0.D0 -C - RETURN - END diff --git a/PDF/spdf/dgpho3.F b/PDF/spdf/dgpho3.F deleted file mode 100644 index 1f0d7759339..00000000000 --- a/PDF/spdf/dgpho3.F +++ /dev/null @@ -1,131 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:04 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:17 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE DGPHO3(DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL) -C******************************************************************** -C* * -C* Parametrization of parton distribution functions * -C* in the photon (LO analysis) - full solution of AP eq.! * -C* * -C* authors: M.Drees and K.Grassie (DG) * -C* /Z. Phys. C28 (1985) 451/ * -C* * -C* Prepared by: * -C* Krzysztof Charchula, DESY * -C* bitnet: F1PCHA@DHHDESY3 * -C* decnet: 13313::CHARCHULA * -C* * -C* Modified by: * -C* H. Plothow-Besch/CERN-PPE * -C* * -C******************************************************************** -C -#include "pdf/impdp.inc" -#include "pdf/expdp.inc" - + A(3,4,3),AT(3), - + B(5,4,2,3),BT(5,2),XQPOM(2),E(2), - + DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL - PARAMETER (ALPEM=7.29927D-3, PI=3.141592D0) - PARAMETER (ALAM=0.4D0) -C...comments -C...-------------------------------------------------- -C... with nf=4 (valid for 20< Q2 <500 GeV2) -C...-------------------------------------------------- -C -C...initialization of gluon parameters array for DG - DATA (((A(I,J,K),I=1,3),J=1,4),K=1,3)/ - > -0.20700, -0.19870, 5.1190, - > 0.61580, 0.62570, -0.2752, - > 1.07400, 8.35200, -6.9930, - > 0.00000, 5.02400, 2.2980, - > 0.8926D-2,0.0509, -0.2313, - > 0.65940, 0.27740, 0.1382, - > 0.47660, -0.39060, 6.5420, - > 0.01975, -0.32120, 0.5162, - > 0.03197, -0.618D-2,-0.1216, - > 1.01800, 0.94760, 0.9047, - > 0.24610, -0.60940, 2.6530, - > 0.02707, -0.01067, 0.2003D-2/ -C -C...initialization of quark parameters array for DG - DATA (((B(I,J,K,1),I=1,5),J=1,4),K=1,2)/ - > 2.2850, 6.0730, -0.4202, -0.0808, 0.0553, - > -0.0153, -0.8132, 0.0178, 0.6346, 1.1360, - > 1.33D3, -41.310, 0.9216, 1.2080, 0.9512, - > 4.2190, 3.1650, 0.1800, 0.2030, 0.0116, - > 16.690, 0.1760, -0.0208, -0.0168, -0.1986, - > -0.7916, 0.0479, 0.3386D-2, 1.3530, 1.1000, - > 1.0990D3, 1.0470, 4.8530, 1.4260, 1.1360, - > 4.4280, 0.0250, 0.8404, 1.2390, -0.2779/ - DATA (((B(I,J,K,2),I=1,5),J=1,4),K=1,2)/ - > -0.3711, -0.1717, 0.08766, -0.8915, -0.1816, - > 1.0610, 0.7815, 0.02197, 0.2857, 0.5866, - > 4.7580, 1.5350, 0.10960, 2.9730, 2.4210, - > -0.0150, 0.7067D-2,0.20400, 0.1185, 0.4059, - > -0.1207, 25.000, -0.01230, -0.0919, 0.02015, - > 1.0710, -1.6480, 1.16200, 0.7912, 0.9869, - > 1.9770, -0.01563, 0.48240, 0.6397, -0.07036, - > -0.8625D-2,6.4380, -0.01100, 2.3270, 0.01694/ - DATA (((B(I,J,K,3),I=1,5),J=1,4),K=1,2)/ - > 15.8, 2.742, 0.02917, -0.0342, -0.02302, - > -0.9464, -0.7332, 0.04657, 0.7196, 0.9229, - > -0.5, 0.7148, 0.1785, 0.7338, 0.5873, - > -0.2118, 3.287, 0.04811, 0.08139,-0.79D-4, - > 6.734, 59.88, -0.3226D-2,-0.03321, 0.1059, - > -1.008, -2.983, 0.8432, 0.9475, 0.6954, - > -0.08594, 4.48, 0.3616, -0.3198, -0.6663, - > 0.07625, 0.9686, 0.1383D-2, 0.02132, 0.3683/ -C -C...specification of sets - NFL=4 -C -C...calculations - Q2 = DQ*DQ - ALAM2=ALAM**2 - T=LOG(Q2/ALAM2) - LF=NFL-2 -C -C...gluons - DO 11 I=1,3 - AT(I)=A(I,1,LF)*T**A(I,2,LF)+A(I,3,LF)*T**(-A(I,4,LF)) - 11 CONTINUE - POMG=AT(1)*DX**AT(2)*(1.D0-DX)**AT(3) - DGL=POMG*ALPEM -C -C...quarks - E(1)=1.D0 - E(2)=10.D0 - DO 13 J=1,2 - DO 15 I=1,5 - BTP=B(I,1,J,LF)*T**B(I,2,J,LF) - BT(I,J)=BTP+B(I,3,J,LF)*T**(-B(I,4,J,LF)) - 15 CONTINUE - 13 CONTINUE -C -C...singlet & non-singlet combinations - DO 17 J=1,2 - POM1=DX*(DX*DX+(1.D0-DX)**2)/(BT(1,J)-BT(2,J)*LOG(1.D0-DX)) - POM2=BT(3,J)*DX**BT(4,J)*(1.D0-DX)**BT(5,J) - XQPOM(J)=E(J)*POM1+POM2 - 17 CONTINUE -C -C...quarks flavours - DUB=ALPEM*1.D0/8.D0*(XQPOM(2)+6.D0*XQPOM(1)) - DUV=DUB - DDB=ALPEM*1.D0/8.D0*(XQPOM(2)-6.D0*XQPOM(1)) - DDV=DDB - DSB=DDB - DCB=DUB - DBB=0.D0 -C - RETURN - END diff --git a/PDF/spdf/dgpho4.F b/PDF/spdf/dgpho4.F deleted file mode 100644 index a7cb1092294..00000000000 --- a/PDF/spdf/dgpho4.F +++ /dev/null @@ -1,132 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:05 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:17 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE DGPHO4(DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL) -C******************************************************************** -C* * -C* Parametrization of parton distribution functions * -C* in the photon (LO analysis) - full solution of AP eq.! * -C* * -C* authors: M.Drees and K.Grassie (DG) * -C* /Z. Phys. C28 (1985) 451/ * -C* * -C* Prepared by: * -C* Krzysztof Charchula, DESY * -C* bitnet: F1PCHA@DHHDESY3 * -C* decnet: 13313::CHARCHULA * -C* * -C* Modified by: * -C* H. Plothow-Besch/CERN-PPE * -C* * -C******************************************************************** -C -#include "pdf/impdp.inc" -#include "pdf/expdp.inc" - + A(3,4,3),AT(3), - + B(5,4,2,3),BT(5,2),XQPOM(2),E(2), - + DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL - PARAMETER (ALPEM=7.29927D-3, PI=3.141592D0) - PARAMETER (ALAM=0.4D0) -C...comments -C...-------------------------------------------------- -C... with nf=5 (valid for 200< Q2 <1D4 GeV2) -C...-------------------------------------------------- -C -C...initialization of gluon parameters array for DG - DATA (((A(I,J,K),I=1,3),J=1,4),K=1,3)/ - > -0.20700, -0.19870, 5.1190, - > 0.61580, 0.62570, -0.2752, - > 1.07400, 8.35200, -6.9930, - > 0.00000, 5.02400, 2.2980, - > 0.8926D-2,0.0509, -0.2313, - > 0.65940, 0.27740, 0.1382, - > 0.47660, -0.39060, 6.5420, - > 0.01975, -0.32120, 0.5162, - > 0.03197, -0.618D-2,-0.1216, - > 1.01800, 0.94760, 0.9047, - > 0.24610, -0.60940, 2.6530, - > 0.02707, -0.01067, 0.2003D-2/ -C -C...initialization of quark parameters array for DG - DATA (((B(I,J,K,1),I=1,5),J=1,4),K=1,2)/ - > 2.2850, 6.0730, -0.4202, -0.0808, 0.0553, - > -0.0153, -0.8132, 0.0178, 0.6346, 1.1360, - > 1.33D3, -41.310, 0.9216, 1.2080, 0.9512, - > 4.2190, 3.1650, 0.1800, 0.2030, 0.0116, - > 16.690, 0.1760, -0.0208, -0.0168, -0.1986, - > -0.7916, 0.0479, 0.3386D-2, 1.3530, 1.1000, - > 1.0990D3, 1.0470, 4.8530, 1.4260, 1.1360, - > 4.4280, 0.0250, 0.8404, 1.2390, -0.2779/ - DATA (((B(I,J,K,2),I=1,5),J=1,4),K=1,2)/ - > -0.3711, -0.1717, 0.08766, -0.8915, -0.1816, - > 1.0610, 0.7815, 0.02197, 0.2857, 0.5866, - > 4.7580, 1.5350, 0.10960, 2.9730, 2.4210, - > -0.0150, 0.7067D-2,0.20400, 0.1185, 0.4059, - > -0.1207, 25.000, -0.01230, -0.0919, 0.02015, - > 1.0710, -1.6480, 1.16200, 0.7912, 0.9869, - > 1.9770, -0.01563, 0.48240, 0.6397, -0.07036, - > -0.8625D-2,6.4380, -0.01100, 2.3270, 0.01694/ - DATA (((B(I,J,K,3),I=1,5),J=1,4),K=1,2)/ - > 15.8, 2.742, 0.02917, -0.0342, -0.02302, - > -0.9464, -0.7332, 0.04657, 0.7196, 0.9229, - > -0.5, 0.7148, 0.1785, 0.7338, 0.5873, - > -0.2118, 3.287, 0.04811, 0.08139,-0.79D-4, - > 6.734, 59.88, -0.3226D-2,-0.03321, 0.1059, - > -1.008, -2.983, 0.8432, 0.9475, 0.6954, - > -0.08594, 4.48, 0.3616, -0.3198, -0.6663, - > 0.07625, 0.9686, 0.1383D-2, 0.02132, 0.3683/ -C -C...specification of sets - NFL=5 -C -C...calculations - Q2 = DQ*DQ - ALAM2=ALAM**2 - T=LOG(Q2/ALAM2) - LF=NFL-2 -C -C...gluons - DO 11 I=1,3 - AT(I)=A(I,1,LF)*T**A(I,2,LF)+A(I,3,LF)*T**(-A(I,4,LF)) - 11 CONTINUE - POMG=AT(1)*DX**AT(2)*(1.D0-DX)**AT(3) - DGL=POMG*ALPEM -C -C...quarks - E(1)=1.D0 - E(2)=55.D0/6.D0 - DO 13 J=1,2 - DO 15 I=1,5 - BTP=B(I,1,J,LF)*T**B(I,2,J,LF) - BT(I,J)=BTP+B(I,3,J,LF)*T**(-B(I,4,J,LF)) - 15 CONTINUE - 13 CONTINUE -C -C...singlet & non-singlet combinations - DO 17 J=1,2 - POM1=DX*(DX*DX+(1.D0-DX)**2)/(BT(1,J)-BT(2,J)*LOG(1.D0-DX)) - POM2=BT(3,J)*DX**BT(4,J)*(1.D0-DX)**BT(5,J) - XQPOM(J)=E(J)*POM1+POM2 - 17 CONTINUE -C -C...quarks flavours - DUB=ALPEM*1.D0/10.D0*(XQPOM(2)+15.D0/2.D0*XQPOM(1)) - DUV=DUB - DCB=DUB - DDB=ALPEM*1.D0/10.D0*(XQPOM(2)-5.D0*XQPOM(1)) - DDV=DDB - DSB=DDB - DCB=DUB - DBB=DDB -C - RETURN - END diff --git a/PDF/spdf/dopho1.F b/PDF/spdf/dopho1.F deleted file mode 100644 index 5a69e4f95a0..00000000000 --- a/PDF/spdf/dopho1.F +++ /dev/null @@ -1,63 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:06 cernlib -* Version 7.04 -* -* Revision 1.2 1996/10/28 14:59:08 pdflib -* PDFLIB new version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:17 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE DOPHO1(DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL) -C******************************************************************** -C* * -C* Parametrization of parton distribution functions * -C* in the photon (LO analysis) - asymptotic solution of AP eq.! * -C* * -C* authors: D.Duke and H.Owens (DO) * -C* /Phys.Rev. D26 (1982) 1600/ * -C* * -C* Prepared by: * -C* Krzysztof Charchula, DESY * -C* bitnet: F1PCHA@DHHDESY3 * -C* decnet: 13313::CHARCHULA * -C* * -C* Modified by: * -C* H. Plothow-Besch/CERN-PPE * -C* * -C******************************************************************** -C -#include "pdf/impdp.inc" -#include "pdf/expdp.inc" - + CQ(5), - + DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL - PARAMETER (ALPEM=7.29927D-3, PI=3.141592D0) - PARAMETER (ALAM=0.2D0) - DATA CQ/0.33333D0,0.66666D0,0.33333D0,0.66666D0,0.33333D0/ -C - Q2 = DQ*DQ - ALAM2=ALAM**2 - FQ=ALPEM/(2.*PI)*LOG(Q2/ALAM2) -C -C...gluons - POMG=0.194*(1.-DX)**1.03/(DX**0.97) - DGL=POMG*FQ -C -C...quarks - POM1=(1.81-1.67*DX+2.16*DX**2) - POM2=DX**0.7/(1.-0.4*LOG(1.-DX)) - POM3=38.D-4*(1.-DX)**1.82/(DX**1.18) - DDB=(CQ(1)**2*POM1*POM2+POM3)*FQ - DDV=DDB - DUB=(CQ(2)**2*POM1*POM2+POM3)*FQ - DUV=DUB - DSB=(CQ(3)**2*POM1*POM2+POM3)*FQ - DCB=(CQ(4)**2*POM1*POM2+POM3)*FQ - DBB=(CQ(5)**2*POM1*POM2+POM3)*FQ - RETURN - END diff --git a/PDF/spdf/dopho2.F b/PDF/spdf/dopho2.F deleted file mode 100644 index bd8a75874de..00000000000 --- a/PDF/spdf/dopho2.F +++ /dev/null @@ -1,63 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:07 cernlib -* Version 7.04 -* -* Revision 1.2 1996/10/28 14:59:26 pdflib -* PDFLIB new version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:17 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE DOPHO2(DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL) -C******************************************************************** -C* * -C* Parametrization of parton distribution functions * -C* in the photon (LO analysis) - asymptotic solution of AP eq.! * -C* * -C* authors: D.Duke and H.Owens (DO) * -C* /Phys.Rev. D26 (1982) 1600/ * -C* * -C* Prepared by: * -C* Krzysztof Charchula, DESY * -C* bitnet: F1PCHA@DHHDESY3 * -C* decnet: 13313::CHARCHULA * -C* * -C* Modified by: * -C* H. Plothow-Besch/CERN-PPE * -C* * -C******************************************************************** -C -#include "pdf/impdp.inc" -#include "pdf/expdp.inc" - + CQ(5), - + DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL - PARAMETER (ALPEM=7.29927D-3,PI=3.141592D0) - PARAMETER (ALAM=0.4D0) - DATA CQ/0.33333D0,0.66666D0,0.33333D0,0.66666D0,0.33333D0/ -C - Q2 = DQ*DQ - ALAM2=ALAM**2 - FQ=ALPEM/(2.*PI)*LOG(Q2/ALAM2) -C -C...gluons - POMG=0.194*(1.-DX)**1.03/(DX**0.97) - DGL=POMG*FQ -C -C...quarks - POM1=(1.81-1.67*DX+2.16*DX**2) - POM2=DX**0.7/(1.-0.4*LOG(1.-DX)) - POM3=38.D-4*(1.-DX)**1.82/(DX**1.18) - DDB=(CQ(1)**2*POM1*POM2+POM3)*FQ - DDV=DDB - DUB=(CQ(2)**2*POM1*POM2+POM3)*FQ - DUV=DUB - DSB=(CQ(3)**2*POM1*POM2+POM3)*FQ - DCB=(CQ(4)**2*POM1*POM2+POM3)*FQ - DBB=(CQ(5)**2*POM1*POM2+POM3)*FQ - RETURN - END diff --git a/PDF/spdf/dpolin.F b/PDF/spdf/dpolin.F deleted file mode 100644 index d2f35d94982..00000000000 --- a/PDF/spdf/dpolin.F +++ /dev/null @@ -1,41 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE DPOLIN(XA,YA,N,X,Y,DY) -#include "pdf/impdp.inc" - PARAMETER (NMAX=10) - DIMENSION XA(NMAX),YA(NMAX),C(NMAX),D(NMAX) - Y=0. - IF(N.GT.NMAX) RETURN - NS=1 - DIF=ABS(X-XA(1)) - DO 11 I=1,N - DIFT=ABS(X-XA(I)) - IF (DIFT.LT.DIF) THEN - NS=I - DIF=DIFT - ENDIF - C(I)=YA(I) - D(I)=YA(I) -11 CONTINUE - Y=YA(NS) - NS=NS-1 - DO 13 M=1,N-1 - DO 12 I=1,N-M - HO=XA(I)-X - HP=XA(I+M)-X - W=C(I+1)-D(I) - DEN=HO-HP -C IF(DEN.EQ.0.)PAUSE - DEN=W/DEN - D(I)=HP*DEN - C(I)=HO*DEN -12 CONTINUE - IF (2*NS.LT.N-M)THEN - DY=C(NS+1) - ELSE - DY=D(NS) - NS=NS-1 - ENDIF - Y=Y+DY -13 CONTINUE - RETURN - END diff --git a/PDF/spdf/fxaver.F b/PDF/spdf/fxaver.F deleted file mode 100644 index 11ea56fdf2b..00000000000 --- a/PDF/spdf/fxaver.F +++ /dev/null @@ -1,1666 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.3 1996/11/15 17:35:06 cernlib -* Import version 7.06 -* -* Revision 1.2 1996/11/15 15:06:57 pdflib -* Version 7.06: tabs removed and bug fixed in grsgalo -* -* Revision 1.1.1.1 1996/04/12 15:29:17 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C------------------------------------------------------------ -C------------- Subroutine to compute a point in x and q**2 -- -C------------- for the following parton distributions : -- -C------------- UP Valence, DOWN Valence , GLUON , QBAR , -- -C------------- UBAR , Strange , Charm , Bottom , Top . -- -C------------- Range of validity : -- -C------------- 5.E-05 < x < .95 -- -C------------- 1 5 P**2 * -* P**2 / GEV**2 BETWEEN 0.0 AND 10. * -* P**2 = 0 <=> REAL PHOTON * -* X BETWEEN 1.E-4 AND 1. * -* * -* HEAVY QUARK THRESHOLDS Q(H) = M(H) IN THE BETA FUNCTION : * -* M(C) = 1.5, M(B) = 4.5 * -* CORRESPONDING LAMBDA(F) VALUES IN GEV FOR Q**2 > M(H)**2 : * -* LO : LAMBDA(3) = 0.232, LAMBDA(4) = 0.200, * -* LAMBDA(5) = 0.153, * -* THE NUMBER OF ACTIVE QUARK FLAVOURS IS NF = 3 EVERYWHERE * -* EXCEPT IN THE BETA FUNCTION, I.E. THE HEAVY QUARKS C,B,... * -* ARE NOT PRESENT AS PARTONS IN THE Q2-EVOLUTION. * -* * -* PLEASE REPORT ANY STRANGE BEHAVIOUR TO : * -* STRAT@HAL1.PHYSIK.UNI-DORTMUND.DE * -* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -* -*...INPUT PARAMETERS : -* -* X = MOMENTUM FRACTION -* Q2 = SCALE Q**2 IN GEV**2 -* P2 = VIRTUALITY OF THE PHOTON IN GEV**2 -* -*...OUTPUT (ALWAYS X TIMES THE DISTRIBUTION DIVIDED BY ALPHA_EM) : -*...OUTPUT (ALWAYS X TIMES THE DISTRIBUTION) : modified H.P.-B. 10.9.1996 -* -******************************************************** - SUBROUTINE GRSGALO(DX,DQ2,DP2, - + DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) -C subroutine grsgalo(x,q2,p2,ugam,dgam,sgam,ggam) -#include "pdf/impdp.inc" -#include "pdf/expdp.inc" - + x, q2, p2, mu2, lam2, - + ugam, dgam, sgam, ggam, - + DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL -C - dimension u1(40),ds1(40),g1(40) - dimension ud2(20),s2(20),g2(20) - dimension up0(20),dsp0(20),gp0(20) - DATA ALPHEM/7.29927D-3/ -c - data u1/-0.139d0,0.783d0,0.132d0,0.087d0,0.003d0,-0.0134d0, - + 0.009d0,-0.017d0,0.092d0,-0.516d0,-0.085d0,0.439d0, - + 0.013d0,0.108d0,-0.019d0,-0.272d0,-0.167d0,0.138d0, - + 0.076d0,0.026d0,-0.013d0,0.27d0,0.107d0,-0.097d0,0.04d0, - + 0.064d0,0.011d0,0.002d0,0.057d0,-0.057d0,0.162d0, - + -0.172d0,0.124d0,-0.016d0,-0.065d0,0.044d0,-1.009d0, - + 0.622d0,0.227d0,-0.184d0/ - data ds1/0.033d0,0.007d0,-0.0516d0,0.12d0,0.001d0,-0.013d0, - + 0.018d0,-0.028d0,0.102d0,-0.595d0,-0.114d0,0.669d0, - + 0.022d0,0.001d0,-0.003d0,-0.0583d0,-0.041d0,0.035d0, - + 0.009d0,0.009d0,0.004d0,0.054d0,0.025d0,-0.02d0, - + 0.007d0,0.021d0,0.01d0,0.004d0,-0.067d0,0.06d0,-0.148d0, - + 0.13d0,0.032d0,-0.009d0,-0.06d0,0.036d0,-0.39d0,0.033d0, - + 0.245d0,-0.171d0/ - data g1/0.025d0,0.d0,-0.018d0,0.112d0,-0.025d0,0.177d0, - + -0.022d0,0.024d0,0.001d0,-0.0104d0,0.d0,0.d0,-1.082d0, - + -1.666d0,0.d0,0.086d0,0.d0,0.053d0,0.005d0,-0.058d0, - + 0.034d0,0.073d0,1.08d0,1.63d0,-0.0256d0,-0.088d0,0.d0, - + 0.d0,-0.004d0,0.016d0,0.007d0,-0.012d0,0.01d0,-0.673d0, - + 0.126d0,-0.167d0,0.032d0,-0.227d0,0.086d0,-0.159d0/ - data ud2/0.756d0,0.187d0,0.109d0,-0.163d0,0.002d0,0.004d0, - + 0.054d0,-0.039d0,22.53d0,-21.02d0,5.608d0,0.332d0, - + -0.008d0,-0.021d0,0.381d0,0.572d0,4.774d0,1.436d0, - + -0.614d0,3.548d0/ - data s2/0.902d0,0.182d0,0.271d0,-0.346d0,0.017d0,-0.01d0, - + -0.011d0,0.0065d0,17.1d0,-13.29d0,6.519d0,0.031d0, - + -0.0176d0,0.003d0,1.243d0,0.804d0,4.709d0,1.499d0, - + -0.48d0,3.401d0/ - data g2/0.364d0,1.31d0,0.86d0,-0.254d0,0.611d0,0.008d0, - + -0.097d0,-2.412d0,-0.843d0,2.248d0,-0.201d0,1.33d0, - + 0.572d0,0.44d0,1.233d0,0.009d0,0.954d0,1.862d0,3.791d0, - + -0.079d0/ - data up0/1.551d0,0.105d0,1.089d0,-0.172d0,3.822d0,-2.162d0, - + 0.533d0,-0.467d0,-0.412d0,0.2d0,0.377d0,0.299d0,0.487d0, - + 0.0766d0,0.119d0,0.063d0,7.605d0,0.234d0,-0.567d0, - + 2.294d0/ - data dsp0/2.484d0,1.214d0,1.088d0,-0.1735d0,4.293d0, - + -2.802d0,0.5975d0,-0.1193d0,-0.0872d0,0.0418d0,0.128d0, - + 0.0337d0,0.127d0,0.0135d0,0.14d0,0.0423d0,6.946d0, - + 0.814d0,1.531d0,0.124d0/ - data gp0/1.682d0,1.1d0,0.5888d0,-0.4714d0,0.5362d0,0.0127d0, - + -2.438d0,0.03399d0,0.07825d0,0.05842d0,0.08393d0,2.348d0, - + -0.07182d0,1.084d0,0.3098d0,-0.07514d0,3.327d0,1.1d0, - + 2.264d0,0.2675d0/ -c - save u1,ds1,g1,ud2,s2,g2,up0,dsp0,gp0 -c - x = DX - q = SQRT(DQ2) - q2 = DQ2 - p2 = DP2 - mu2=0.25d0 - lam2=0.232d0*0.232d0 -c - if(p2.le.0.25d0) then - s=log(log(q2/lam2)/log(mu2/lam2)) - lp1=0.d0 - lp2=0.d0 - else - if(q2.lt.p2) then - write(*,1000) - 1000 format - + (' WARNING: GRSGALO has been called with Q2 < P2 !',/, - + ' GRSGALO is about to blow up, therefore',/, - + ' Q2 is set equal to P2') - q2=p2 - endif - s=log(log(q2/lam2)/log(p2/lam2)) - lp1=log(p2/mu2)*log(p2/mu2) - lp2=log(p2/mu2+log(p2/mu2)) - endif -c - alp=up0(1)+lp1*u1(1)+lp2*u1(2) - bet=up0(2)+lp1*u1(3)+lp2*u1(4) - a=up0(3)+lp1*u1(5)+lp2*u1(6)+ - + (up0(4)+lp1*u1(7)+lp2*u1(8))*s - b=up0(5)+lp1*u1(9)+lp2*u1(10)+ - + (up0(6)+lp1*u1(11)+lp2*u1(12))*s**0.5+ - + (up0(7)+lp1*u1(13)+lp2*u1(14))*s**2 - gb=up0(8)+lp1*u1(15)+lp2*u1(16)+ - + (up0(9)+lp1*u1(17)+lp2*u1(18))*s+ - + (up0(10)+lp1*u1(19)+lp2*u1(20))*s**2 - ga=up0(11)+lp1*u1(21)+lp2*u1(22)+ - + (up0(12)+lp1*u1(23)+lp2*u1(24))*s**0.5 - gc=up0(13)+lp1*u1(25)+lp2*u1(33)+ - + (up0(14)+lp1*u1(26)+lp2*u1(34))*s - gd=up0(15)+lp1*u1(27)+lp2*u1(35)+ - + (up0(16)+lp1*u1(28)+lp2*u1(36))*s - ge=up0(17)+lp1*u1(29)+lp2*u1(37)+ - + (up0(18)+lp1*u1(30)+lp2*u1(38))*s - gep=up0(19)+lp1*u1(31)+lp2*u1(39)+ - + (up0(20)+lp1*u1(32)+lp2*u1(40))*s - upart1=grsf2(x,s,alp,bet,a,b,ga,gb,gc,gd,ge,gep) -c - alp=dsp0(1)+lp1*ds1(1)+lp2*ds1(2) - bet=dsp0(2)+lp1*ds1(3)+lp2*ds1(4) - a=dsp0(3)+lp1*ds1(5)+lp2*ds1(6)+ - + (dsp0(4)+lp1*ds1(7)+lp2*ds1(8))*s - b=dsp0(5)+lp1*ds1(9)+lp2*ds1(10)+ - + (dsp0(6)+lp1*ds1(11)+lp2*ds1(12))*s**0.5+ - + (dsp0(7)+lp1*ds1(13)+lp2*ds1(14))*s**2 - gb=dsp0(8)+lp1*ds1(15)+lp2*ds1(16)+ - + (dsp0(9)+lp1*ds1(17)+lp2*ds1(18))*s+ - + (dsp0(10)+lp1*ds1(19)+lp2*ds1(20))*s**2 - ga=dsp0(11)+lp1*ds1(21)+lp2*ds1(22)+ - + (dsp0(12)+lp1*ds1(23)+lp2*ds1(24))*s - gc=dsp0(13)+lp1*ds1(25)+lp2*ds1(33)+ - + (dsp0(14)+lp1*ds1(26)+lp2*ds1(34))*s - gd=dsp0(15)+lp1*ds1(27)+lp2*ds1(35)+ - + (dsp0(16)+lp1*ds1(28)+lp2*ds1(36))*s - ge=dsp0(17)+lp1*ds1(29)+lp2*ds1(37)+ - + (dsp0(18)+lp1*ds1(30)+lp2*ds1(38))*s - gep=dsp0(19)+lp1*ds1(31)+lp2*ds1(39)+ - + (dsp0(20)+lp1*ds1(32)+lp2*ds1(40))*s - dspart1=grsf2(x,s,alp,bet,a,b,ga,gb,gc,gd,ge,gep) -c - alp=gp0(1)+lp1*g1(1)+lp2*g1(2) - bet=gp0(2)+lp1*g1(3)+lp2*g1(4) - a=gp0(3)+lp1*g1(5)+lp2*g1(6)+ - + (gp0(4)+lp1*g1(7)+lp2*g1(8))*s**0.5 - b=gp0(5)+lp1*g1(9)+lp2*g1(10)+ - + (gp0(6)+lp1*g1(11)+lp2*g1(12))*s**2 - gb=gp0(7)+lp1*g1(13)+lp2*g1(14)+ - + (gp0(8)+lp1*g1(15)+lp2*g1(16))*s - ga=gp0(9)+lp1*g1(17)+lp2*g1(18)+ - + (gp0(10)+lp1*g1(19)+lp2*g1(20))*s**0.5+ - + (gp0(11)+lp1*g1(21)+lp2*g1(22))*s**2 - gc=gp0(12)+lp1*g1(23)+lp2*g1(24)+ - + (gp0(13)+lp1*g1(25)+lp2*g1(26))*s**2 - gd=gp0(14)+lp1*g1(27)+lp2*g1(28)+ - + (gp0(15)+lp1*g1(29)+lp2*g1(30))*s+ - + (gp0(16)+lp1*g1(31)+lp2*g1(32))*s**2 - ge=gp0(17)+lp1*g1(33)+lp2*g1(34)+ - + (gp0(18)+lp1*g1(35)+lp2*g1(36))*s - gep=gp0(19)+lp1*g1(37)+lp2*g1(38)+ - + (gp0(20)+lp1*g1(39)+lp2*g1(40))*s - gpart1=grsf2(x,s,alp,bet,a,b,ga,gb,gc,gd,ge,gep) -c - s=log(log(q2/lam2)/log(mu2/lam2)) - suppr=1.d0/(1.d0+p2/0.59d0)**2 -c - alp=ud2(1) - bet=ud2(2) - a=ud2(3)+ud2(4)*s - ga=ud2(5)+ud2(6)*s**0.5 - gc=ud2(7)+ud2(8)*s - b=ud2(9)+ud2(10)*s+ud2(11)*s**2 - gb=ud2(12)+ud2(13)*s+ud2(14)*s**2 - gd=ud2(15)+ud2(16)*s - ge=ud2(17)+ud2(18)*s - gep=ud2(19)+ud2(20)*s - udpart2=suppr*grsf1(x,s,alp,bet,a,b,ga,gb,gc,gd,ge,gep) -c - alp=s2(1) - bet=s2(2) - a=s2(3)+s2(4)*s - ga=s2(5)+s2(6)*s**0.5 - gc=s2(7)+s2(8)*s - b=s2(9)+s2(10)*s+s2(11)*s**2 - gb=s2(12)+s2(13)*s+s2(14)*s**2 - gd=s2(15)+s2(16)*s - ge=s2(17)+s2(18)*s - gep=s2(19)+s2(20)*s - spart2=suppr*grsf2(x,s,alp,bet,a,b,ga,gb,gc,gd,ge,gep) -c - alp=g2(1) - bet=g2(2) - a=g2(3)+g2(4)*s**0.5 - b=g2(5)+g2(6)*s**2 - gb=g2(7)+g2(8)*s - ga=g2(9)+g2(10)*s**0.5+g2(11)*s**2 - gc=g2(12)+g2(13)*s**2 - gd=g2(14)+g2(15)*s+g2(16)*s**2 - ge=g2(17)+g2(18)*s - gep=g2(19)+g2(20)*s - gpart2=suppr*grsf1(x,s,alp,bet,a,b,ga,gb,gc,gd,ge,gep) -c - ugam=upart1+udpart2 - DUPV = UGAM * ALPHEM - DUSEA = DUPV - dgam=dspart1+udpart2 - DDNV = DGAM * ALPHEM - DDSEA = DDNV - sgam=dspart1+spart2 - DSTR = SGAM * ALPHEM - ggam=gpart1+gpart2 - DGL = GGAM * ALPHEM -C - DCHM = 0.D0 - DBOT = 0.D0 -c - return - end diff --git a/PDF/spdf/grsvh1.F b/PDF/spdf/grsvh1.F deleted file mode 100644 index 4a9ca22b173..00000000000 --- a/PDF/spdf/grsvh1.F +++ /dev/null @@ -1,2372 +0,0 @@ -#include "pdf/pilot.h" -********************************************************************* -* * -* POLARIZED RADIATIVELY GENERATED LO AND NLO PARTON DENSITIES * -* AND DIS ASYMMETRIES * -* * -* M. GLUCK, E. REYA, M. STRATMANN AND W. VOGELSANG, * -* (PHYS. REV. D53 (1996) 4775) * -* PROBLEMS/QUESTIONS TO VOGELSANG@V2.RL.AC.UK * -* OR TO STRAT@HAL1.PHYSIK.UNI-DORTMUND.DE * -* * -* INPUT: ISET = number of the parton set : * -* ISET = 1 'STANDARD' SCENARIO, NEXT-TO-LEADING ORDER * -* (MS-bar) * -* (DATA FILE 'STDNLOA1.GRID' UNIT=11, TO BE * -* DEFINED BY THE USER ) * -* ISET = 2 'VALENCE' SCENARIO, NEXT-TO-LEADING ORDER * -* (MS-bar) * -* (DATA FILE 'VALNLOA1.GRID' UNIT=22, TO BE * -* DEFINED BY THE USER ) * -* ISET = 3 'STANDARD' SCENARIO, LEADING ORDER * -* (DATA FILE 'STDLOA1.GRID' UNIT=33, TO BE * -* DEFINED BY THE USER ) * -* ISET = 4 'VALENCE' SCENARIO, LEADING ORDER * -* (DATA FILE 'VALLOA1.GRID' UNIT=44, TO BE * -* DEFINED BY THE USER ) * -* * -* X = Bjorken-x (between 1.E-4 and 1) * -* Q2 = scale in GeV**2 (between 0.4 and 1.E4) * -* (for values outside the allowed range the program * -* writes a warning and extrapolates to the x and * -* Q2 values requested) * -* * -* OUTPUT: UV = x * ( DELTA u - DELTA u(bar) ), * -* DV = x * ( DELTA d - DELTA d(bar) ), * -* QB = x * POLARIZED LIGHT SEA, * -* QB= x * ( (DELTA U(BAR) + DELTA D(BAR))/2 ) * -* ST = x * DELTA STRANGE = x * DELTA STRANGE(BAR) * -* GL = x * DELTA GLUON * -* * -* ( For the parton distributions always x times * -* the distribution is returned ) * -* * -* A1P = A1-Proton * -* A1N = A1-Neutron * -* A1D = A1-Deuteron * -* * -* The sets are the result of a combined fit to * -* data for the spin asymmetries A_1 (p,n,d) * -* * -* Note: No charm is included * -* * -* COMMON: The main program or the calling routine has to have * -* a common block COMMON / INTINI / IINI , and IINI * -* has always to be zero when PARPOL is called for the * -* first time or when 'ISET' has been changed. * -* * -********************************************************************* -* - SUBROUTINE GRSVH1 (DX,DQ,DUV,DDV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL) -C SUBROUTINE GRSVH1 (X, Q2, UV, DV, QB, ST, GL, A1P, A1N, A1D) -#include "pdf/impdp.inc" - PARAMETER (NPART=8, NX=42, NQ=25, NARG=2) - DIMENSION - + XUVF(NX,NQ), XDVF(NX,NQ), XQBF(NX,NQ), - 1 XSF(NX,NQ), XGF(NX,NQ), - 2 XAPF(NX,NQ), XANF(NX,NQ), XADF(NX,NQ), - 3 QS(NQ), XB(NX), XT(NARG), NA(NARG), ARRF(NX+NQ) - DIMENSION - + PARTON (NPART,NQ,NX-1) - COMMON / GRSVA1 / A1P, A1N, A1D -C COMMON / INTINI / IINI - SAVE XUVF, XDVF, XQBF, XSF, XGF, XAPF, XANF, XADF, NA, ARRF - DATA ZEROD/0.D0/ -*...BJORKEN-X AND Q**2 VALUES OF THE GRID : - DATA QS / 0.4D0, 0.5d0, 0.6d0, 0.75D0, 1.0D0, - 1 1.25d0, 1.5D0, 2.d0, 2.5D0, - 1 4.0D0, 6.4D0, 1.0D1, 1.5D1, 2.5D1, 4.0D1, 6.4D1, - 2 1.0D2, 1.8D2, 3.2D2, 5.8D2, 1.0D3, 1.8D3, - 3 3.2D3, 5.8D3, 1.0D4 / - DATA XB / 1.D-4, 1.5D-4, 2.2D-4, 3.2D-4, 4.8D-4, 7.D-4, - 2 1.D-3, 1.5D-3, 2.2D-3, 3.2D-3, 4.8D-3, 7.D-3, - 3 1.D-2, 1.5D-2, 2.2D-2, 3.2D-2, 5.0D-2, 7.5D-2, - 4 0.1D0, 0.125D0, 0.15D0, 0.175D0, 0.2D0, 0.225D0, - + 0.25D0, 0.275D0, - 5 0.3D0, 0.325D0, 0.35D0, 0.375D0, 0.4D0, 0.45D0, - + 0.5D0, 0.55D0, - 6 0.6D0, 0.65D0, 0.7D0, 0.75D0, 0.8D0, 0.85D0, - + 0.9D0, 1.0D0 / - DATA IINI/0/ -C - DATA ((PARTON(I,N,1),I=1,8),N=1,8)/ - + .1040D-02, -.3616D-02, -.2473D-03, -.2510D-03, .6085D-03, - + -.1519D-02, -.2478D-01, -.1212D-01, - + .1280D-02, -.3812D-02, -.3920D-03, -.3999D-03, .2376D-02, - + -.1312D-02, -.1575D-01, -.7830D-02, - + .1459D-02, -.3952D-02, -.5250D-03, -.5360D-03, .4449D-02, - + -.1308D-02, -.1226D-01, -.6215D-02, - + .1660D-02, -.4105D-02, -.6963D-03, -.7105D-03, .7568D-02, - + -.1353D-02, -.9812D-02, -.5111D-02, - + .1897D-02, -.4280D-02, -.9208D-03, -.9387D-03, .1230D-01, - + -.1419D-02, -.7995D-02, -.4305D-02, - + .2066D-02, -.4401D-02, -.1094D-02, -.1114D-02, .1638D-01, - + -.1460D-02, -.7090D-02, -.3908D-02, - + .2196D-02, -.4493D-02, -.1232D-02, -.1255D-02, .1992D-01, - + -.1485D-02, -.6531D-02, -.3664D-02, - + .2390D-02, -.4627D-02, -.1446D-02, -.1471D-02, .2583D-01, - + -.1511D-02, -.5863D-02, -.3369D-02 / - DATA ((PARTON(I,N,1),I=1,8),N=9,16)/ - + .2535D-02, -.4724D-02, -.1599D-02, -.1625D-02, .3054D-01, - + -.1514D-02, -.5477D-02, -.3193D-02, - + .2814D-02, -.4908D-02, -.1882D-02, -.1913D-02, .4046D-01, - + -.1490D-02, -.4872D-02, -.2906D-02, - + .3076D-02, -.5076D-02, -.2158D-02, -.2192D-02, .5115D-01, - + -.1455D-02, -.4395D-02, -.2671D-02, - + .3311D-02, -.5224D-02, -.2412D-02, -.2449D-02, .6191D-01, - + -.1418D-02, -.4030D-02, -.2488D-02, - + .3515D-02, -.5350D-02, -.2636D-02, -.2675D-02, .7214D-01, - + -.1384D-02, -.3755D-02, -.2347D-02, - + .3761D-02, -.5500D-02, -.2905D-02, -.2947D-02, .8554D-01, - + -.1341D-02, -.3471D-02, -.2197D-02, - + .3978D-02, -.5630D-02, -.3141D-02, -.3185D-02, .9831D-01, - + -.1302D-02, -.3253D-02, -.2080D-02, - + .4189D-02, -.5754D-02, -.3371D-02, -.3417D-02, .1116D+00, - + -.1264D-02, -.3065D-02, -.1977D-02 / - DATA ((PARTON(I,N,1),I=1,8),N=17,25)/ - + .4384D-02, -.5868D-02, -.3583D-02, -.3631D-02, .1247D+00, - + -.1230D-02, -.2907D-02, -.1889D-02, - + .4632D-02, -.6012D-02, -.3853D-02, -.3904D-02, .1425D+00, - + -.1188D-02, -.2728D-02, -.1788D-02, - + .4869D-02, -.6146D-02, -.4107D-02, -.4160D-02, .1605D+00, - + -.1149D-02, -.2576D-02, -.1701D-02, - + .5106D-02, -.6279D-02, -.4358D-02, -.4413D-02, .1796D+00, - + -.1111D-02, -.2440D-02, -.1621D-02, - + .5317D-02, -.6397D-02, -.4579D-02, -.4636D-02, .1976D+00, - + -.1078D-02, -.2329D-02, -.1556D-02, - + .5539D-02, -.6519D-02, -.4807D-02, -.4866D-02, .2174D+00, - + -.1044D-02, -.2223D-02, -.1492D-02, - + .5751D-02, -.6635D-02, -.5019D-02, -.5080D-02, .2372D+00, - + -.1014D-02, -.2130D-02, -.1435D-02, - + .5965D-02, -.6751D-02, -.5228D-02, -.5290D-02, .2580D+00, - + -.9831D-03, -.2043D-02, -.1381D-02, - + .6157D-02, -.6853D-02, -.5410D-02, -.5474D-02, .2774D+00, - + -.9566D-03, -.1971D-02, -.1336D-02 / - DATA ((PARTON(I,N,2),I=1,8),N=1,8)/ - + .1393D-02, -.4144D-02, -.3416D-03, -.3464D-03, .9160D-03, - + -.1055D-02, -.2784D-01, -.1331D-01, - + .1708D-02, -.4376D-02, -.5284D-03, -.5388D-03, .3244D-02, - + -.1152D-02, -.1869D-01, -.9106D-02, - + .1941D-02, -.4542D-02, -.6940D-03, -.7083D-03, .5836D-02, - + -.1285D-02, -.1492D-01, -.7427D-02, - + .2204D-02, -.4724D-02, -.9016D-03, -.9200D-03, .9625D-02, - + -.1436D-02, -.1219D-01, -.6238D-02, - + .2511D-02, -.4931D-02, -.1167D-02, -.1190D-02, .1523D-01, - + -.1582D-02, -.1009D-01, -.5339D-02, - + .2731D-02, -.5074D-02, -.1367D-02, -.1393D-02, .1999D-01, - + -.1660D-02, -.9014D-02, -.4880D-02, - + .2900D-02, -.5183D-02, -.1526D-02, -.1555D-02, .2408D-01, - + -.1707D-02, -.8344D-02, -.4593D-02, - + .3150D-02, -.5342D-02, -.1767D-02, -.1799D-02, .3084D-01, - + -.1753D-02, -.7522D-02, -.4237D-02 / - DATA ((PARTON(I,N,2),I=1,8),N=9,16)/ - + .3336D-02, -.5458D-02, -.1938D-02, -.1972D-02, .3618D-01, - + -.1761D-02, -.7033D-02, -.4018D-02, - + .3695D-02, -.5675D-02, -.2252D-02, -.2290D-02, .4736D-01, - + -.1731D-02, -.6259D-02, -.3650D-02, - + .4030D-02, -.5874D-02, -.2553D-02, -.2595D-02, .5931D-01, - + -.1690D-02, -.5649D-02, -.3352D-02, - + .4331D-02, -.6050D-02, -.2827D-02, -.2872D-02, .7126D-01, - + -.1646D-02, -.5183D-02, -.3119D-02, - + .4591D-02, -.6199D-02, -.3066D-02, -.3114D-02, .8257D-01, - + -.1606D-02, -.4832D-02, -.2940D-02, - + .4905D-02, -.6376D-02, -.3351D-02, -.3402D-02, .9729D-01, - + -.1554D-02, -.4466D-02, -.2749D-02, - + .5180D-02, -.6530D-02, -.3598D-02, -.3652D-02, .1113D+00, - + -.1507D-02, -.4188D-02, -.2600D-02, - + .5448D-02, -.6677D-02, -.3836D-02, -.3893D-02, .1257D+00, - + -.1461D-02, -.3945D-02, -.2469D-02 / - DATA ((PARTON(I,N,2),I=1,8),N=17,25)/ - + .5694D-02, -.6811D-02, -.4055D-02, -.4114D-02, .1399D+00, - + -.1420D-02, -.3743D-02, -.2357D-02, - + .6009D-02, -.6981D-02, -.4330D-02, -.4392D-02, .1591D+00, - + -.1369D-02, -.3512D-02, -.2228D-02, - + .6307D-02, -.7140D-02, -.4585D-02, -.4650D-02, .1785D+00, - + -.1320D-02, -.3316D-02, -.2116D-02, - + .6606D-02, -.7297D-02, -.4836D-02, -.4903D-02, .1990D+00, - + -.1274D-02, -.3138D-02, -.2014D-02, - + .6872D-02, -.7435D-02, -.5053D-02, -.5121D-02, .2181D+00, - + -.1233D-02, -.2995D-02, -.1930D-02, - + .7151D-02, -.7580D-02, -.5274D-02, -.5345D-02, .2392D+00, - + -.1191D-02, -.2857D-02, -.1848D-02, - + .7417D-02, -.7716D-02, -.5477D-02, -.5550D-02, .2601D+00, - + -.1152D-02, -.2735D-02, -.1775D-02, - + .7686D-02, -.7852D-02, -.5675D-02, -.5750D-02, .2820D+00, - + -.1114D-02, -.2622D-02, -.1706D-02, - + .7926D-02, -.7973D-02, -.5845D-02, -.5921D-02, .3023D+00, - + -.1080D-02, -.2527D-02, -.1647D-02 / - DATA ((PARTON(I,N,3),I=1,8),N=1,8)/ - + .1838D-02, -.4721D-02, -.4613D-03, -.4674D-03, .1294D-02, - + -.4261D-03, -.3099D-01, -.1447D-01, - + .2244D-02, -.4995D-02, -.6966D-03, -.7098D-03, .4261D-02, - + -.8507D-03, -.2187D-01, -.1043D-01, - + .2544D-02, -.5191D-02, -.8982D-03, -.9163D-03, .7425D-02, - + -.1147D-02, -.1790D-01, -.8728D-02, - + .2880D-02, -.5405D-02, -.1145D-02, -.1168D-02, .1193D-01, - + -.1426D-02, -.1491D-01, -.7475D-02, - + .3274D-02, -.5649D-02, -.1453D-02, -.1482D-02, .1846D-01, - + -.1673D-02, -.1253D-01, -.6493D-02, - + .3553D-02, -.5819D-02, -.1681D-02, -.1714D-02, .2391D-01, - + -.1800D-02, -.1127D-01, -.5975D-02, - + .3768D-02, -.5947D-02, -.1860D-02, -.1895D-02, .2856D-01, - + -.1873D-02, -.1047D-01, -.5642D-02, - + .4087D-02, -.6134D-02, -.2129D-02, -.2168D-02, .3617D-01, - + -.1947D-02, -.9480D-02, -.5222D-02 / - DATA ((PARTON(I,N,3),I=1,8),N=9,16)/ - + .4323D-02, -.6270D-02, -.2317D-02, -.2359D-02, .4215D-01, - + -.1962D-02, -.8877D-02, -.4952D-02, - + .4776D-02, -.6526D-02, -.2659D-02, -.2706D-02, .5460D-01, - + -.1931D-02, -.7908D-02, -.4494D-02, - + .5198D-02, -.6761D-02, -.2984D-02, -.3036D-02, .6782D-01, - + -.1886D-02, -.7146D-02, -.4125D-02, - + .5577D-02, -.6967D-02, -.3276D-02, -.3332D-02, .8096D-01, - + -.1838D-02, -.6562D-02, -.3836D-02, - + .5904D-02, -.7142D-02, -.3528D-02, -.3587D-02, .9333D-01, - + -.1793D-02, -.6121D-02, -.3614D-02, - + .6296D-02, -.7351D-02, -.3826D-02, -.3889D-02, .1094D+00, - + -.1734D-02, -.5662D-02, -.3377D-02, - + .6641D-02, -.7531D-02, -.4082D-02, -.4148D-02, .1245D+00, - + -.1679D-02, -.5310D-02, -.3191D-02, - + .6974D-02, -.7703D-02, -.4326D-02, -.4395D-02, .1401D+00, - + -.1626D-02, -.5004D-02, -.3027D-02 / - DATA ((PARTON(I,N,3),I=1,8),N=17,25)/ - + .7281D-02, -.7861D-02, -.4548D-02, -.4618D-02, .1553D+00, - + -.1577D-02, -.4749D-02, -.2888D-02, - + .7673D-02, -.8059D-02, -.4824D-02, -.4897D-02, .1759D+00, - + -.1515D-02, -.4455D-02, -.2726D-02, - + .8043D-02, -.8245D-02, -.5076D-02, -.5153D-02, .1965D+00, - + -.1458D-02, -.4207D-02, -.2586D-02, - + .8414D-02, -.8429D-02, -.5321D-02, -.5400D-02, .2182D+00, - + -.1402D-02, -.3979D-02, -.2457D-02, - + .8743D-02, -.8591D-02, -.5529D-02, -.5611D-02, .2384D+00, - + -.1352D-02, -.3797D-02, -.2350D-02, - + .9089D-02, -.8759D-02, -.5739D-02, -.5822D-02, .2605D+00, - + -.1301D-02, -.3619D-02, -.2246D-02, - + .9417D-02, -.8918D-02, -.5929D-02, -.6015D-02, .2824D+00, - + -.1253D-02, -.3463D-02, -.2153D-02, - + .9748D-02, -.9077D-02, -.6110D-02, -.6198D-02, .3053D+00, - + -.1206D-02, -.3318D-02, -.2065D-02, - + .1004D-01, -.9218D-02, -.6264D-02, -.6353D-02, .3263D+00, - + -.1164D-02, -.3195D-02, -.1990D-02 / - DATA ((PARTON(I,N,4),I=1,8),N=1,8)/ - + .2412D-02, -.5375D-02, -.6162D-03, -.6239D-03, .1762D-02, - + .4157D-03, -.3432D-01, -.1560D-01, - + .2931D-02, -.5697D-02, -.9083D-03, -.9247D-03, .5471D-02, - + -.3581D-03, -.2539D-01, -.1181D-01, - + .3314D-02, -.5929D-02, -.1150D-02, -.1173D-02, .9271D-02, - + -.8423D-03, -.2128D-01, -.1013D-01, - + .3743D-02, -.6182D-02, -.1440D-02, -.1468D-02, .1456D-01, - + -.1276D-02, -.1806D-01, -.8848D-02, - + .4242D-02, -.6469D-02, -.1793D-02, -.1828D-02, .2206D-01, - + -.1647D-02, -.1539D-01, -.7791D-02, - + .4596D-02, -.6669D-02, -.2050D-02, -.2090D-02, .2825D-01, - + -.1833D-02, -.1394D-01, -.7212D-02, - + .4868D-02, -.6821D-02, -.2249D-02, -.2292D-02, .3348D-01, - + -.1941D-02, -.1301D-01, -.6833D-02, - + .5270D-02, -.7041D-02, -.2544D-02, -.2592D-02, .4197D-01, - + -.2051D-02, -.1183D-01, -.6342D-02 / - DATA ((PARTON(I,N,4),I=1,8),N=9,16)/ - + .5566D-02, -.7201D-02, -.2749D-02, -.2800D-02, .4862D-01, - + -.2079D-02, -.1110D-01, -.6021D-02, - + .6135D-02, -.7503D-02, -.3121D-02, -.3178D-02, .6241D-01, - + -.2054D-02, -.9907D-02, -.5463D-02, - + .6663D-02, -.7778D-02, -.3468D-02, -.3530D-02, .7693D-01, - + -.2011D-02, -.8967D-02, -.5013D-02, - + .7135D-02, -.8019D-02, -.3777D-02, -.3843D-02, .9129D-01, - + -.1963D-02, -.8245D-02, -.4662D-02, - + .7542D-02, -.8226D-02, -.4040D-02, -.4110D-02, .1047D+00, - + -.1916D-02, -.7698D-02, -.4390D-02, - + .8030D-02, -.8469D-02, -.4348D-02, -.4421D-02, .1221D+00, - + -.1851D-02, -.7127D-02, -.4099D-02, - + .8457D-02, -.8680D-02, -.4609D-02, -.4686D-02, .1384D+00, - + -.1789D-02, -.6687D-02, -.3870D-02, - + .8870D-02, -.8882D-02, -.4856D-02, -.4936D-02, .1551D+00, - + -.1729D-02, -.6306D-02, -.3668D-02 / - DATA ((PARTON(I,N,4),I=1,8),N=17,25)/ - + .9250D-02, -.9066D-02, -.5076D-02, -.5159D-02, .1713D+00, - + -.1673D-02, -.5985D-02, -.3496D-02, - + .9733D-02, -.9298D-02, -.5348D-02, -.5434D-02, .1932D+00, - + -.1601D-02, -.5616D-02, -.3295D-02, - + .1019D-01, -.9514D-02, -.5593D-02, -.5682D-02, .2149D+00, - + -.1534D-02, -.5302D-02, -.3121D-02, - + .1065D-01, -.9728D-02, -.5825D-02, -.5917D-02, .2378D+00, - + -.1467D-02, -.5016D-02, -.2959D-02, - + .1105D-01, -.9917D-02, -.6021D-02, -.6115D-02, .2590D+00, - + -.1408D-02, -.4786D-02, -.2827D-02, - + .1147D-01, -.1011D-01, -.6213D-02, -.6310D-02, .2820D+00, - + -.1346D-02, -.4560D-02, -.2696D-02, - + .1188D-01, -.1030D-01, -.6385D-02, -.6483D-02, .3048D+00, - + -.1288D-02, -.4362D-02, -.2579D-02, - + .1228D-01, -.1048D-01, -.6544D-02, -.6645D-02, .3284D+00, - + -.1230D-02, -.4175D-02, -.2467D-02, - + .1264D-01, -.1065D-01, -.6676D-02, -.6778D-02, .3501D+00, - + -.1178D-02, -.4018D-02, -.2372D-02 / - DATA ((PARTON(I,N,5),I=1,8),N=1,8)/ - + .3239D-02, -.6201D-02, -.8396D-03, -.8492D-03, .2395D-02, - + .1647D-02, -.3819D-01, -.1678D-01, - + .3916D-02, -.6589D-02, -.1204D-02, -.1225D-02, .7046D-02, - + .4801D-03, -.2966D-01, -.1337D-01, - + .4414D-02, -.6868D-02, -.1496D-02, -.1524D-02, .1163D-01, - + -.2321D-03, -.2548D-01, -.1177D-01, - + .4969D-02, -.7171D-02, -.1836D-02, -.1871D-02, .1784D-01, - + -.8610D-03, -.2205D-01, -.1048D-01, - + .5613D-02, -.7517D-02, -.2241D-02, -.2285D-02, .2650D-01, - + -.1393D-02, -.1910D-01, -.9367D-02, - + .6070D-02, -.7756D-02, -.2530D-02, -.2579D-02, .3353D-01, - + -.1661D-02, -.1745D-01, -.8731D-02, - + .6419D-02, -.7938D-02, -.2751D-02, -.2803D-02, .3943D-01, - + -.1817D-02, -.1635D-01, -.8299D-02, - + .6935D-02, -.8202D-02, -.3075D-02, -.3132D-02, .4893D-01, - + -.1979D-02, -.1494D-01, -.7730D-02 / - DATA ((PARTON(I,N,5),I=1,8),N=9,16)/ - + .7313D-02, -.8393D-02, -.3298D-02, -.3359D-02, .5634D-01, - + -.2029D-02, -.1405D-01, -.7344D-02, - + .8037D-02, -.8753D-02, -.3700D-02, -.3768D-02, .7167D-01, - + -.2024D-02, -.1258D-01, -.6668D-02, - + .8708D-02, -.9081D-02, -.4070D-02, -.4144D-02, .8770D-01, - + -.1996D-02, -.1141D-01, -.6123D-02, - + .9306D-02, -.9369D-02, -.4393D-02, -.4472D-02, .1034D+00, - + -.1955D-02, -.1052D-01, -.5694D-02, - + .9820D-02, -.9614D-02, -.4665D-02, -.4748D-02, .1181D+00, - + -.1909D-02, -.9834D-02, -.5361D-02, - + .1043D-01, -.9903D-02, -.4979D-02, -.5066D-02, .1368D+00, - + -.1843D-02, -.9118D-02, -.5004D-02, - + .1097D-01, -.1015D-01, -.5241D-02, -.5332D-02, .1544D+00, - + -.1776D-02, -.8563D-02, -.4720D-02, - + .1149D-01, -.1039D-01, -.5485D-02, -.5579D-02, .1723D+00, - + -.1709D-02, -.8080D-02, -.4468D-02 / - DATA ((PARTON(I,N,5),I=1,8),N=17,25)/ - + .1197D-01, -.1061D-01, -.5700D-02, -.5797D-02, .1897D+00, - + -.1645D-02, -.7674D-02, -.4254D-02, - + .1257D-01, -.1088D-01, -.5960D-02, -.6060D-02, .2128D+00, - + -.1563D-02, -.7205D-02, -.4002D-02, - + .1314D-01, -.1114D-01, -.6189D-02, -.6293D-02, .2358D+00, - + -.1484D-02, -.6803D-02, -.3783D-02, - + .1371D-01, -.1139D-01, -.6402D-02, -.6508D-02, .2597D+00, - + -.1404D-02, -.6437D-02, -.3579D-02, - + .1421D-01, -.1161D-01, -.6575D-02, -.6684D-02, .2818D+00, - + -.1332D-02, -.6138D-02, -.3410D-02, - + .1473D-01, -.1184D-01, -.6742D-02, -.6853D-02, .3058D+00, - + -.1257D-02, -.5846D-02, -.3243D-02, - + .1523D-01, -.1206D-01, -.6885D-02, -.6999D-02, .3293D+00, - + -.1185D-02, -.5588D-02, -.3092D-02, - + .1573D-01, -.1228D-01, -.7014D-02, -.7129D-02, .3535D+00, - + -.1111D-02, -.5344D-02, -.2947D-02, - + .1618D-01, -.1247D-01, -.7114D-02, -.7232D-02, .3758D+00, - + -.1046D-02, -.5141D-02, -.2825D-02 / - DATA ((PARTON(I,N,6),I=1,8),N=1,8)/ - + .4262D-02, -.7106D-02, -.1116D-02, -.1127D-02, .3116D-02, - + .3175D-02, -.4201D-01, -.1780D-01, - + .5128D-02, -.7570D-02, -.1559D-02, -.1583D-02, .8782D-02, - + .1648D-02, -.3403D-01, -.1482D-01, - + .5762D-02, -.7902D-02, -.1902D-02, -.1936D-02, .1417D-01, - + .7122D-03, -.2990D-01, -.1335D-01, - + .6467D-02, -.8263D-02, -.2293D-02, -.2335D-02, .2134D-01, - + -.1170D-03, -.2635D-01, -.1210D-01, - + .7283D-02, -.8674D-02, -.2748D-02, -.2800D-02, .3114D-01, - + -.8230D-03, -.2316D-01, -.1096D-01, - + .7859D-02, -.8959D-02, -.3067D-02, -.3124D-02, .3902D-01, - + -.1181D-02, -.2131D-01, -.1027D-01, - + .8299D-02, -.9174D-02, -.3307D-02, -.3369D-02, .4557D-01, - + -.1392D-02, -.2006D-01, -.9795D-02, - + .8947D-02, -.9487D-02, -.3655D-02, -.3723D-02, .5606D-01, - + -.1616D-02, -.1843D-01, -.9149D-02 / - DATA ((PARTON(I,N,6),I=1,8),N=9,16)/ - + .9422D-02, -.9714D-02, -.3894D-02, -.3966D-02, .6423D-01, - + -.1697D-02, -.1737D-01, -.8706D-02, - + .1033D-01, -.1014D-01, -.4323D-02, -.4403D-02, .8110D-01, - + -.1733D-02, -.1562D-01, -.7918D-02, - + .1116D-01, -.1053D-01, -.4710D-02, -.4796D-02, .9859D-01, - + -.1731D-02, -.1422D-01, -.7279D-02, - + .1190D-01, -.1086D-01, -.5043D-02, -.5134D-02, .1156D+00, - + -.1706D-02, -.1313D-01, -.6772D-02, - + .1254D-01, -.1115D-01, -.5318D-02, -.5413D-02, .1314D+00, - + -.1669D-02, -.1230D-01, -.6377D-02, - + .1330D-01, -.1149D-01, -.5631D-02, -.5731D-02, .1515D+00, - + -.1607D-02, -.1142D-01, -.5947D-02, - + .1396D-01, -.1179D-01, -.5889D-02, -.5993D-02, .1703D+00, - + -.1539D-02, -.1074D-01, -.5605D-02, - + .1460D-01, -.1206D-01, -.6124D-02, -.6231D-02, .1893D+00, - + -.1468D-02, -.1015D-01, -.5301D-02 / - DATA ((PARTON(I,N,6),I=1,8),N=17,25)/ - + .1518D-01, -.1232D-01, -.6328D-02, -.6438D-02, .2076D+00, - + -.1399D-02, -.9645D-02, -.5040D-02, - + .1592D-01, -.1264D-01, -.6568D-02, -.6682D-02, .2319D+00, - + -.1307D-02, -.9061D-02, -.4731D-02, - + .1662D-01, -.1294D-01, -.6774D-02, -.6891D-02, .2558D+00, - + -.1216D-02, -.8560D-02, -.4461D-02, - + .1731D-01, -.1323D-01, -.6959D-02, -.7079D-02, .2807D+00, - + -.1122D-02, -.8100D-02, -.4208D-02, - + .1792D-01, -.1349D-01, -.7105D-02, -.7227D-02, .3035D+00, - + -.1037D-02, -.7723D-02, -.3997D-02, - + .1856D-01, -.1375D-01, -.7239D-02, -.7364D-02, .3280D+00, - + -.9452D-03, -.7355D-02, -.3788D-02, - + .1916D-01, -.1401D-01, -.7348D-02, -.7475D-02, .3520D+00, - + -.8567D-03, -.7028D-02, -.3598D-02, - + .1977D-01, -.1426D-01, -.7439D-02, -.7568D-02, .3767D+00, - + -.7665D-03, -.6719D-02, -.3416D-02, - + .2031D-01, -.1448D-01, -.7504D-02, -.7636D-02, .3992D+00, - + -.6850D-03, -.6458D-02, -.3260D-02 / - DATA ((PARTON(I,N,7),I=1,8),N=1,8)/ - + .5527D-02, -.8112D-02, -.1456D-02, -.1470D-02, .3920D-02, - + .5055D-02, -.4576D-01, -.1860D-01, - + .6617D-02, -.8662D-02, -.1982D-02, -.2011D-02, .1067D-01, - + .3212D-02, -.3848D-01, -.1610D-01, - + .7414D-02, -.9056D-02, -.2379D-02, -.2417D-02, .1691D-01, - + .2067D-02, -.3449D-01, -.1480D-01, - + .8296D-02, -.9484D-02, -.2820D-02, -.2868D-02, .2505D-01, - + .1043D-02, -.3092D-01, -.1363D-01, - + .9313D-02, -.9969D-02, -.3322D-02, -.3381D-02, .3602D-01, - + .1603D-03, -.2756D-01, -.1250D-01, - + .1003D-01, -.1030D-01, -.3667D-02, -.3733D-02, .4474D-01, - + -.2956D-03, -.2553D-01, -.1178D-01, - + .1058D-01, -.1056D-01, -.3924D-02, -.3995D-02, .5194D-01, - + -.5662D-03, -.2414D-01, -.1127D-01, - + .1138D-01, -.1093D-01, -.4292D-02, -.4369D-02, .6341D-01, - + -.8634D-03, -.2229D-01, -.1056D-01 / - DATA ((PARTON(I,N,7),I=1,8),N=9,16)/ - + .1196D-01, -.1119D-01, -.4544D-02, -.4626D-02, .7235D-01, - + -.9848D-03, -.2108D-01, -.1006D-01, - + .1307D-01, -.1169D-01, -.4994D-02, -.5085D-02, .9076D-01, - + -.1082D-02, -.1904D-01, -.9178D-02, - + .1410D-01, -.1214D-01, -.5393D-02, -.5490D-02, .1097D+00, - + -.1122D-02, -.1740D-01, -.8448D-02, - + .1500D-01, -.1254D-01, -.5728D-02, -.5831D-02, .1280D+00, - + -.1123D-02, -.1612D-01, -.7865D-02, - + .1578D-01, -.1287D-01, -.6001D-02, -.6108D-02, .1449D+00, - + -.1103D-02, -.1513D-01, -.7406D-02, - + .1671D-01, -.1327D-01, -.6306D-02, -.6418D-02, .1663D+00, - + -.1051D-02, -.1409D-01, -.6904D-02, - + .1751D-01, -.1361D-01, -.6552D-02, -.6668D-02, .1861D+00, - + -.9847D-03, -.1327D-01, -.6500D-02, - + .1828D-01, -.1393D-01, -.6772D-02, -.6891D-02, .2061D+00, - + -.9123D-03, -.1254D-01, -.6137D-02 / - DATA ((PARTON(I,N,7),I=1,8),N=17,25)/ - + .1899D-01, -.1422D-01, -.6958D-02, -.7080D-02, .2252D+00, - + -.8390D-03, -.1193D-01, -.5825D-02, - + .1988D-01, -.1459D-01, -.7170D-02, -.7296D-02, .2504D+00, - + -.7375D-03, -.1122D-01, -.5454D-02, - + .2072D-01, -.1494D-01, -.7345D-02, -.7474D-02, .2752D+00, - + -.6343D-03, -.1060D-01, -.5126D-02, - + .2155D-01, -.1527D-01, -.7495D-02, -.7627D-02, .3007D+00, - + -.5253D-03, -.1004D-01, -.4818D-02, - + .2228D-01, -.1557D-01, -.7606D-02, -.7741D-02, .3240D+00, - + -.4242D-03, -.9571D-02, -.4559D-02, - + .2304D-01, -.1588D-01, -.7701D-02, -.7838D-02, .3490D+00, - + -.3144D-03, -.9113D-02, -.4300D-02, - + .2376D-01, -.1616D-01, -.7770D-02, -.7909D-02, .3732D+00, - + -.2069D-03, -.8705D-02, -.4065D-02, - + .2449D-01, -.1645D-01, -.7818D-02, -.7959D-02, .3980D+00, - + -.9615D-04, -.8318D-02, -.3838D-02, - + .2513D-01, -.1670D-01, -.7843D-02, -.7986D-02, .4205D+00, - + .4734D-05, -.7990D-02, -.3642D-02 / - DATA ((PARTON(I,N,8),I=1,8),N=1,8)/ - + .7438D-02, -.9488D-02, -.1965D-02, -.1981D-02, .4999D-02, - + .7787D-02, -.5015D-01, -.1929D-01, - + .8857D-02, -.1016D-01, -.2595D-02, -.2629D-02, .1316D-01, - + .5650D-02, -.4381D-01, -.1738D-01, - + .9887D-02, -.1064D-01, -.3054D-02, -.3099D-02, .2046D-01, - + .4306D-02, -.4012D-01, -.1631D-01, - + .1102D-01, -.1116D-01, -.3551D-02, -.3608D-02, .2980D-01, - + .3085D-02, -.3662D-01, -.1527D-01, - + .1233D-01, -.1175D-01, -.4103D-02, -.4172D-02, .4220D-01, - + .2010D-02, -.3315D-01, -.1418D-01, - + .1324D-01, -.1215D-01, -.4475D-02, -.4551D-02, .5194D-01, - + .1444D-02, -.3097D-01, -.1345D-01, - + .1394D-01, -.1246D-01, -.4748D-02, -.4829D-02, .5995D-01, - + .1100D-02, -.2944D-01, -.1291D-01, - + .1496D-01, -.1290D-01, -.5131D-02, -.5220D-02, .7261D-01, - + .7109D-03, -.2737D-01, -.1214D-01 / - DATA ((PARTON(I,N,8),I=1,8),N=9,16)/ - + .1570D-01, -.1322D-01, -.5394D-02, -.5488D-02, .8247D-01, - + .5317D-03, -.2599D-01, -.1160D-01, - + .1710D-01, -.1381D-01, -.5861D-02, -.5964D-02, .1028D+00, - + .3382D-03, -.2363D-01, -.1061D-01, - + .1839D-01, -.1435D-01, -.6263D-02, -.6372D-02, .1234D+00, - + .2306D-03, -.2171D-01, -.9786D-02, - + .1952D-01, -.1482D-01, -.6592D-02, -.6707D-02, .1432D+00, - + .1852D-03, -.2019D-01, -.9117D-02, - + .2049D-01, -.1522D-01, -.6853D-02, -.6972D-02, .1613D+00, - + .1788D-03, -.1901D-01, -.8582D-02, - + .2164D-01, -.1569D-01, -.7136D-02, -.7261D-02, .1841D+00, - + .2109D-03, -.1775D-01, -.7990D-02, - + .2263D-01, -.1609D-01, -.7359D-02, -.7487D-02, .2050D+00, - + .2692D-03, -.1675D-01, -.7511D-02, - + .2359D-01, -.1647D-01, -.7550D-02, -.7682D-02, .2260D+00, - + .3408D-03, -.1587D-01, -.7076D-02 / - DATA ((PARTON(I,N,8),I=1,8),N=17,25)/ - + .2446D-01, -.1681D-01, -.7705D-02, -.7840D-02, .2460D+00, - + .4186D-03, -.1512D-01, -.6697D-02, - + .2555D-01, -.1724D-01, -.7873D-02, -.8012D-02, .2721D+00, - + .5322D-03, -.1423D-01, -.6241D-02, - + .2658D-01, -.1764D-01, -.8001D-02, -.8142D-02, .2975D+00, - + .6523D-03, -.1346D-01, -.5836D-02, - + .2759D-01, -.1804D-01, -.8098D-02, -.8242D-02, .3236D+00, - + .7829D-03, -.1275D-01, -.5451D-02, - + .2849D-01, -.1838D-01, -.8159D-02, -.8306D-02, .3471D+00, - + .9069D-03, -.1216D-01, -.5125D-02, - + .2942D-01, -.1874D-01, -.8198D-02, -.8347D-02, .3722D+00, - + .1044D-02, -.1157D-01, -.4798D-02, - + .3029D-01, -.1907D-01, -.8211D-02, -.8362D-02, .3965D+00, - + .1179D-02, -.1105D-01, -.4498D-02, - + .3116D-01, -.1940D-01, -.8200D-02, -.8353D-02, .4211D+00, - + .1321D-02, -.1056D-01, -.4208D-02, - + .3194D-01, -.1969D-01, -.8171D-02, -.8325D-02, .4433D+00, - + .1450D-02, -.1013D-01, -.3956D-02 / - DATA ((PARTON(I,N,9),I=1,8),N=1,8)/ - + .9871D-02, -.1107D-01, -.2596D-02, -.2615D-02, .6199D-02, - + .1120D-01, -.5425D-01, -.1950D-01, - + .1168D-01, -.1188D-01, -.3331D-02, -.3370D-02, .1585D-01, - + .8878D-02, -.4897D-01, -.1817D-01, - + .1299D-01, -.1246D-01, -.3849D-02, -.3900D-02, .2425D-01, - + .7391D-02, -.4568D-01, -.1737D-01, - + .1443D-01, -.1309D-01, -.4397D-02, -.4461D-02, .3483D-01, - + .6016D-02, -.4239D-01, -.1651D-01, - + .1607D-01, -.1379D-01, -.4990D-02, -.5067D-02, .4868D-01, - + .4776D-02, -.3893D-01, -.1551D-01, - + .1722D-01, -.1427D-01, -.5380D-02, -.5465D-02, .5948D-01, - + .4102D-02, -.3668D-01, -.1480D-01, - + .1809D-01, -.1464D-01, -.5662D-02, -.5754D-02, .6830D-01, - + .3685D-02, -.3507D-01, -.1426D-01, - + .1936D-01, -.1517D-01, -.6053D-02, -.6152D-02, .8218D-01, - + .3197D-02, -.3283D-01, -.1346D-01 / - DATA ((PARTON(I,N,9),I=1,8),N=9,16)/ - + .2028D-01, -.1554D-01, -.6320D-02, -.6424D-02, .9298D-01, - + .2951D-02, -.3131D-01, -.1289D-01, - + .2202D-01, -.1625D-01, -.6789D-02, -.6902D-02, .1151D+00, - + .2638D-02, -.2869D-01, -.1184D-01, - + .2360D-01, -.1688D-01, -.7180D-02, -.7300D-02, .1375D+00, - + .2447D-02, -.2652D-01, -.1094D-01, - + .2499D-01, -.1743D-01, -.7490D-02, -.7615D-02, .1587D+00, - + .2348D-02, -.2478D-01, -.1020D-01, - + .2618D-01, -.1789D-01, -.7727D-02, -.7857D-02, .1779D+00, - + .2309D-02, -.2341D-01, -.9592D-02, - + .2758D-01, -.1844D-01, -.7975D-02, -.8110D-02, .2020D+00, - + .2318D-02, -.2192D-01, -.8913D-02, - + .2879D-01, -.1890D-01, -.8162D-02, -.8301D-02, .2238D+00, - + .2368D-02, -.2074D-01, -.8353D-02, - + .2994D-01, -.1934D-01, -.8313D-02, -.8455D-02, .2456D+00, - + .2441D-02, -.1968D-01, -.7839D-02 / - DATA ((PARTON(I,N,9),I=1,8),N=17,25)/ - + .3099D-01, -.1974D-01, -.8427D-02, -.8572D-02, .2661D+00, - + .2527D-02, -.1877D-01, -.7388D-02, - + .3231D-01, -.2024D-01, -.8537D-02, -.8685D-02, .2929D+00, - + .2658D-02, -.1770D-01, -.6839D-02, - + .3355D-01, -.2070D-01, -.8605D-02, -.8756D-02, .3186D+00, - + .2802D-02, -.1676D-01, -.6346D-02, - + .3476D-01, -.2115D-01, -.8639D-02, -.8792D-02, .3448D+00, - + .2962D-02, -.1588D-01, -.5873D-02, - + .3583D-01, -.2154D-01, -.8641D-02, -.8797D-02, .3683D+00, - + .3116D-02, -.1515D-01, -.5469D-02, - + .3694D-01, -.2195D-01, -.8615D-02, -.8773D-02, .3932D+00, - + .3289D-02, -.1442D-01, -.5060D-02, - + .3798D-01, -.2233D-01, -.8565D-02, -.8724D-02, .4170D+00, - + .3462D-02, -.1377D-01, -.4684D-02, - + .3901D-01, -.2270D-01, -.8488D-02, -.8649D-02, .4410D+00, - + .3645D-02, -.1315D-01, -.4317D-02, - + .3993D-01, -.2303D-01, -.8400D-02, -.8562D-02, .4626D+00, - + .3813D-02, -.1261D-01, -.3998D-02 / - DATA ((PARTON(I,N,10),I=1,8),N=1,8)/ - + .1304D-01, -.1297D-01, -.3398D-02, -.3419D-02, .7546D-02, - + .1552D-01, -.5806D-01, -.1913D-01, - + .1534D-01, -.1395D-01, -.4235D-02, -.4278D-02, .1882D-01, - + .1312D-01, -.5394D-01, -.1839D-01, - + .1699D-01, -.1465D-01, -.4807D-02, -.4864D-02, .2841D-01, - + .1155D-01, -.5120D-01, -.1787D-01, - + .1879D-01, -.1540D-01, -.5396D-02, -.5466D-02, .4033D-01, - + .1008D-01, -.4826D-01, -.1723D-01, - + .2084D-01, -.1624D-01, -.6017D-02, -.6101D-02, .5577D-01, - + .8709D-02, -.4498D-01, -.1638D-01, - + .2227D-01, -.1681D-01, -.6416D-02, -.6509D-02, .6771D-01, - + .7951D-02, -.4272D-01, -.1572D-01, - + .2335D-01, -.1724D-01, -.6700D-02, -.6799D-02, .7741D-01, - + .7467D-02, -.4107D-01, -.1520D-01, - + .2492D-01, -.1786D-01, -.7085D-02, -.7192D-02, .9257D-01, - + .6889D-02, -.3875D-01, -.1441D-01 / - DATA ((PARTON(I,N,10),I=1,8),N=9,16)/ - + .2605D-01, -.1831D-01, -.7346D-02, -.7458D-02, .1044D+00, - + .6575D-02, -.3713D-01, -.1383D-01, - + .2817D-01, -.1913D-01, -.7800D-02, -.7921D-02, .1285D+00, - + .6135D-02, -.3432D-01, -.1276D-01, - + .3010D-01, -.1987D-01, -.8162D-02, -.8290D-02, .1525D+00, - + .5861D-02, -.3193D-01, -.1180D-01, - + .3179D-01, -.2051D-01, -.8435D-02, -.8569D-02, .1750D+00, - + .5710D-02, -.2998D-01, -.1099D-01, - + .3322D-01, -.2105D-01, -.8634D-02, -.8772D-02, .1953D+00, - + .5643D-02, -.2843D-01, -.1032D-01, - + .3490D-01, -.2167D-01, -.8830D-02, -.8972D-02, .2204D+00, - + .5637D-02, -.2672D-01, -.9548D-02, - + .3636D-01, -.2221D-01, -.8965D-02, -.9111D-02, .2430D+00, - + .5690D-02, -.2534D-01, -.8903D-02, - + .3774D-01, -.2271D-01, -.9062D-02, -.9210D-02, .2654D+00, - + .5773D-02, -.2410D-01, -.8300D-02 / - DATA ((PARTON(I,N,10),I=1,8),N=17,25)/ - + .3899D-01, -.2317D-01, -.9121D-02, -.9272D-02, .2862D+00, - + .5877D-02, -.2302D-01, -.7765D-02, - + .4057D-01, -.2373D-01, -.9158D-02, -.9312D-02, .3132D+00, - + .6041D-02, -.2174D-01, -.7108D-02, - + .4203D-01, -.2425D-01, -.9153D-02, -.9309D-02, .3389D+00, - + .6223D-02, -.2060D-01, -.6509D-02, - + .4347D-01, -.2476D-01, -.9111D-02, -.9269D-02, .3648D+00, - + .6430D-02, -.1954D-01, -.5930D-02, - + .4473D-01, -.2521D-01, -.9043D-02, -.9203D-02, .3879D+00, - + .6632D-02, -.1864D-01, -.5432D-02, - + .4603D-01, -.2566D-01, -.8943D-02, -.9104D-02, .4121D+00, - + .6858D-02, -.1775D-01, -.4925D-02, - + .4725D-01, -.2608D-01, -.8820D-02, -.8983D-02, .4351D+00, - + .7084D-02, -.1694D-01, -.4455D-02, - + .4846D-01, -.2650D-01, -.8671D-02, -.8835D-02, .4581D+00, - + .7324D-02, -.1617D-01, -.3995D-02, - + .4953D-01, -.2687D-01, -.8517D-02, -.8682D-02, .4786D+00, - + .7544D-02, -.1551D-01, -.3592D-02 / - DATA ((PARTON(I,N,11),I=1,8),N=1,8)/ - + .1769D-01, -.1556D-01, -.4527D-02, -.4550D-02, .9225D-02, - + .2160D-01, -.6174D-01, -.1784D-01, - + .2064D-01, -.1676D-01, -.5464D-02, -.5511D-02, .2249D-01, - + .1922D-01, -.5905D-01, -.1775D-01, - + .2274D-01, -.1761D-01, -.6081D-02, -.6142D-02, .3354D-01, - + .1764D-01, -.5703D-01, -.1758D-01, - + .2504D-01, -.1852D-01, -.6699D-02, -.6774D-02, .4712D-01, - + .1612D-01, -.5466D-01, -.1722D-01, - + .2763D-01, -.1953D-01, -.7328D-02, -.7418D-02, .6451D-01, - + .1469D-01, -.5171D-01, -.1658D-01, - + .2942D-01, -.2021D-01, -.7720D-02, -.7819D-02, .7784D-01, - + .1386D-01, -.4965D-01, -.1603D-01, - + .3077D-01, -.2073D-01, -.7993D-02, -.8097D-02, .8859D-01, - + .1333D-01, -.4801D-01, -.1556D-01, - + .3272D-01, -.2147D-01, -.8352D-02, -.8465D-02, .1053D+00, - + .1269D-01, -.4570D-01, -.1481D-01 / - DATA ((PARTON(I,N,11),I=1,8),N=9,16)/ - + .3413D-01, -.2199D-01, -.8592D-02, -.8710D-02, .1183D+00, - + .1231D-01, -.4405D-01, -.1425D-01, - + .3675D-01, -.2296D-01, -.9000D-02, -.9126D-02, .1445D+00, - + .1176D-01, -.4112D-01, -.1319D-01, - + .3911D-01, -.2382D-01, -.9301D-02, -.9434D-02, .1703D+00, - + .1143D-01, -.3856D-01, -.1219D-01, - + .4117D-01, -.2457D-01, -.9510D-02, -.9647D-02, .1942D+00, - + .1125D-01, -.3641D-01, -.1130D-01, - + .4292D-01, -.2519D-01, -.9645D-02, -.9786D-02, .2154D+00, - + .1118D-01, -.3465D-01, -.1055D-01, - + .4496D-01, -.2591D-01, -.9759D-02, -.9904D-02, .2414D+00, - + .1120D-01, -.3270D-01, -.9665D-02, - + .4671D-01, -.2652D-01, -.9817D-02, -.9965D-02, .2645D+00, - + .1128D-01, -.3111D-01, -.8909D-02, - + .4837D-01, -.2710D-01, -.9834D-02, -.9985D-02, .2871D+00, - + .1141D-01, -.2965D-01, -.8193D-02 / - DATA ((PARTON(I,N,11),I=1,8),N=17,25)/ - + .4987D-01, -.2762D-01, -.9818D-02, -.9970D-02, .3080D+00, - + .1156D-01, -.2838D-01, -.7547D-02, - + .5175D-01, -.2826D-01, -.9754D-02, -.9909D-02, .3347D+00, - + .1180D-01, -.2684D-01, -.6744D-02, - + .5348D-01, -.2885D-01, -.9653D-02, -.9809D-02, .3599D+00, - + .1206D-01, -.2547D-01, -.6003D-02, - + .5518D-01, -.2942D-01, -.9512D-02, -.9670D-02, .3849D+00, - + .1235D-01, -.2417D-01, -.5281D-02, - + .5667D-01, -.2991D-01, -.9356D-02, -.9516D-02, .4070D+00, - + .1264D-01, -.2307D-01, -.4654D-02, - + .5820D-01, -.3042D-01, -.9163D-02, -.9324D-02, .4299D+00, - + .1295D-01, -.2197D-01, -.4012D-02, - + .5962D-01, -.3089D-01, -.8953D-02, -.9115D-02, .4514D+00, - + .1327D-01, -.2097D-01, -.3413D-02, - + .6104D-01, -.3135D-01, -.8717D-02, -.8879D-02, .4728D+00, - + .1361D-01, -.2000D-01, -.2824D-02, - + .6228D-01, -.3175D-01, -.8486D-02, -.8649D-02, .4916D+00, - + .1391D-01, -.1917D-01, -.2307D-02 / - DATA ((PARTON(I,N,12),I=1,8),N=1,8)/ - + .2355D-01, -.1864D-01, -.5881D-02, -.5905D-02, .1106D-01, - + .2887D-01, -.6453D-01, -.1555D-01, - + .2726D-01, -.2009D-01, -.6886D-02, -.6935D-02, .2649D-01, - + .2659D-01, -.6335D-01, -.1611D-01, - + .2989D-01, -.2110D-01, -.7523D-02, -.7587D-02, .3914D-01, - + .2507D-01, -.6216D-01, -.1631D-01, - + .3274D-01, -.2218D-01, -.8141D-02, -.8219D-02, .5453D-01, - + .2358D-01, -.6046D-01, -.1625D-01, - + .3594D-01, -.2337D-01, -.8746D-02, -.8839D-02, .7403D-01, - + .2215D-01, -.5810D-01, -.1588D-01, - + .3814D-01, -.2418D-01, -.9109D-02, -.9210D-02, .8884D-01, - + .2133D-01, -.5626D-01, -.1546D-01, - + .3979D-01, -.2478D-01, -.9353D-02, -.9459D-02, .1007D+00, - + .2079D-01, -.5481D-01, -.1505D-01, - + .4217D-01, -.2563D-01, -.9662D-02, -.9776D-02, .1190D+00, - + .2014D-01, -.5259D-01, -.1437D-01 / - DATA ((PARTON(I,N,12),I=1,8),N=9,16)/ - + .4387D-01, -.2624D-01, -.9863D-02, -.9982D-02, .1331D+00, - + .1976D-01, -.5099D-01, -.1384D-01, - + .4702D-01, -.2735D-01, -.1019D-01, -.1031D-01, .1614D+00, - + .1920D-01, -.4802D-01, -.1278D-01, - + .4985D-01, -.2833D-01, -.1040D-01, -.1053D-01, .1887D+00, - + .1889D-01, -.4536D-01, -.1174D-01, - + .5231D-01, -.2918D-01, -.1052D-01, -.1065D-01, .2136D+00, - + .1876D-01, -.4306D-01, -.1077D-01, - + .5438D-01, -.2988D-01, -.1057D-01, -.1071D-01, .2354D+00, - + .1875D-01, -.4115D-01, -.9918D-02, - + .5679D-01, -.3069D-01, -.1058D-01, -.1072D-01, .2618D+00, - + .1885D-01, -.3897D-01, -.8898D-02, - + .5884D-01, -.3137D-01, -.1054D-01, -.1069D-01, .2850D+00, - + .1903D-01, -.3716D-01, -.8008D-02, - + .6078D-01, -.3201D-01, -.1046D-01, -.1061D-01, .3074D+00, - + .1925D-01, -.3550D-01, -.7154D-02 / - DATA ((PARTON(I,N,12),I=1,8),N=17,25)/ - + .6253D-01, -.3258D-01, -.1036D-01, -.1051D-01, .3279D+00, - + .1951D-01, -.3402D-01, -.6377D-02, - + .6471D-01, -.3328D-01, -.1018D-01, -.1033D-01, .3537D+00, - + .1988D-01, -.3222D-01, -.5397D-02, - + .6672D-01, -.3393D-01, -.9975D-02, -.1013D-01, .3777D+00, - + .2028D-01, -.3060D-01, -.4487D-02, - + .6867D-01, -.3455D-01, -.9729D-02, -.9881D-02, .4013D+00, - + .2071D-01, -.2906D-01, -.3592D-02, - + .7037D-01, -.3508D-01, -.9481D-02, -.9634D-02, .4218D+00, - + .2112D-01, -.2774D-01, -.2811D-02, - + .7212D-01, -.3563D-01, -.9194D-02, -.9348D-02, .4429D+00, - + .2157D-01, -.2642D-01, -.2007D-02, - + .7374D-01, -.3613D-01, -.8897D-02, -.9051D-02, .4624D+00, - + .2202D-01, -.2521D-01, -.1256D-02, - + .7535D-01, -.3662D-01, -.8576D-02, -.8730D-02, .4816D+00, - + .2249D-01, -.2404D-01, -.5134D-03, - + .7675D-01, -.3705D-01, -.8271D-02, -.8425D-02, .4984D+00, - + .2291D-01, -.2303D-01, .1383D-03 / - DATA ((PARTON(I,N,13),I=1,8),N=1,8)/ - + .3098D-01, -.2238D-01, -.7485D-02, -.7509D-02, .1320D-01, - + .3745D-01, -.6644D-01, -.1222D-01, - + .3556D-01, -.2409D-01, -.8512D-02, -.8561D-02, .3107D-01, - + .3527D-01, -.6693D-01, -.1349D-01, - + .3879D-01, -.2528D-01, -.9136D-02, -.9200D-02, .4556D-01, - + .3384D-01, -.6669D-01, -.1407D-01, - + .4226D-01, -.2653D-01, -.9716D-02, -.9794D-02, .6299D-01, - + .3247D-01, -.6582D-01, -.1437D-01, - + .4613D-01, -.2790D-01, -.1026D-01, -.1035D-01, .8484D-01, - + .3113D-01, -.6418D-01, -.1428D-01, - + .4877D-01, -.2883D-01, -.1056D-01, -.1066D-01, .1012D+00, - + .3038D-01, -.6271D-01, -.1399D-01, - + .5075D-01, -.2951D-01, -.1076D-01, -.1086D-01, .1143D+00, - + .2989D-01, -.6142D-01, -.1365D-01, - + .5358D-01, -.3048D-01, -.1099D-01, -.1110D-01, .1342D+00, - + .2934D-01, -.5937D-01, -.1302D-01 / - DATA ((PARTON(I,N,13),I=1,8),N=9,16)/ - + .5560D-01, -.3116D-01, -.1113D-01, -.1124D-01, .1493D+00, - + .2903D-01, -.5788D-01, -.1250D-01, - + .5932D-01, -.3241D-01, -.1133D-01, -.1145D-01, .1794D+00, - + .2862D-01, -.5499D-01, -.1142D-01, - + .6264D-01, -.3350D-01, -.1142D-01, -.1154D-01, .2078D+00, - + .2847D-01, -.5226D-01, -.1028D-01, - + .6550D-01, -.3443D-01, -.1142D-01, -.1155D-01, .2334D+00, - + .2850D-01, -.4982D-01, -.9180D-02, - + .6789D-01, -.3520D-01, -.1136D-01, -.1150D-01, .2554D+00, - + .2865D-01, -.4775D-01, -.8196D-02, - + .7067D-01, -.3608D-01, -.1125D-01, -.1138D-01, .2816D+00, - + .2895D-01, -.4536D-01, -.6995D-02, - + .7303D-01, -.3682D-01, -.1110D-01, -.1123D-01, .3044D+00, - + .2932D-01, -.4335D-01, -.5933D-02, - + .7525D-01, -.3750D-01, -.1091D-01, -.1105D-01, .3260D+00, - + .2972D-01, -.4147D-01, -.4903D-02 / - DATA ((PARTON(I,N,13),I=1,8),N=17,25)/ - + .7723D-01, -.3811D-01, -.1071D-01, -.1085D-01, .3456D+00, - + .3015D-01, -.3979D-01, -.3958D-02, - + .7970D-01, -.3886D-01, -.1041D-01, -.1055D-01, .3698D+00, - + .3074D-01, -.3772D-01, -.2760D-02, - + .8195D-01, -.3954D-01, -.1009D-01, -.1023D-01, .3921D+00, - + .3135D-01, -.3585D-01, -.1642D-02, - + .8415D-01, -.4019D-01, -.9740D-02, -.9881D-02, .4136D+00, - + .3200D-01, -.3406D-01, -.5379D-03, - + .8605D-01, -.4074D-01, -.9400D-02, -.9541D-02, .4321D+00, - + .3260D-01, -.3252D-01, .4285D-03, - + .8799D-01, -.4131D-01, -.9021D-02, -.9162D-02, .4508D+00, - + .3325D-01, -.3096D-01, .1426D-02, - + .8979D-01, -.4183D-01, -.8640D-02, -.8781D-02, .4679D+00, - + .3387D-01, -.2954D-01, .2359D-02, - + .9155D-01, -.4233D-01, -.8239D-02, -.8380D-02, .4845D+00, - + .3453D-01, -.2815D-01, .3282D-02, - + .9309D-01, -.4277D-01, -.7868D-02, -.8009D-02, .4987D+00, - + .3513D-01, -.2696D-01, .4094D-02 / - DATA ((PARTON(I,N,14),I=1,8),N=1,8)/ - + .4254D-01, -.2799D-01, -.9746D-02, -.9770D-02, .1658D-01, - + .4939D-01, -.6778D-01, -.6974D-02, - + .4831D-01, -.3001D-01, -.1071D-01, -.1076D-01, .3797D-01, - + .4730D-01, -.7055D-01, -.9231D-02, - + .5233D-01, -.3140D-01, -.1126D-01, -.1132D-01, .5507D-01, - + .4602D-01, -.7164D-01, -.1035D-01, - + .5662D-01, -.3285D-01, -.1173D-01, -.1181D-01, .7535D-01, - + .4484D-01, -.7191D-01, -.1106D-01, - + .6136D-01, -.3442D-01, -.1213D-01, -.1221D-01, .1003D+00, - + .4383D-01, -.7120D-01, -.1127D-01, - + .6457D-01, -.3547D-01, -.1232D-01, -.1241D-01, .1187D+00, - + .4330D-01, -.7022D-01, -.1109D-01, - + .6696D-01, -.3624D-01, -.1243D-01, -.1252D-01, .1332D+00, - + .4301D-01, -.6922D-01, -.1079D-01, - + .7037D-01, -.3733D-01, -.1252D-01, -.1262D-01, .1549D+00, - + .4276D-01, -.6743D-01, -.1014D-01 / - DATA ((PARTON(I,N,14),I=1,8),N=9,16)/ - + .7278D-01, -.3809D-01, -.1256D-01, -.1266D-01, .1712D+00, - + .4269D-01, -.6603D-01, -.9580D-02, - + .7718D-01, -.3946D-01, -.1255D-01, -.1266D-01, .2028D+00, - + .4272D-01, -.6323D-01, -.8323D-02, - + .8107D-01, -.4064D-01, -.1244D-01, -.1256D-01, .2319D+00, - + .4304D-01, -.6039D-01, -.6938D-02, - + .8440D-01, -.4164D-01, -.1227D-01, -.1238D-01, .2574D+00, - + .4350D-01, -.5781D-01, -.5584D-02, - + .8717D-01, -.4246D-01, -.1207D-01, -.1218D-01, .2790D+00, - + .4401D-01, -.5554D-01, -.4353D-02, - + .9036D-01, -.4339D-01, -.1177D-01, -.1189D-01, .3042D+00, - + .4474D-01, -.5290D-01, -.2836D-02, - + .9305D-01, -.4416D-01, -.1148D-01, -.1160D-01, .3256D+00, - + .4548D-01, -.5062D-01, -.1487D-02, - + .9556D-01, -.4487D-01, -.1115D-01, -.1127D-01, .3455D+00, - + .4627D-01, -.4847D-01, -.1749D-03 / - DATA ((PARTON(I,N,14),I=1,8),N=17,25)/ - + .9780D-01, -.4549D-01, -.1083D-01, -.1095D-01, .3632D+00, - + .4701D-01, -.4655D-01, .1033D-02, - + .1006D+00, -.4625D-01, -.1038D-01, -.1050D-01, .3847D+00, - + .4801D-01, -.4415D-01, .2564D-02, - + .1031D+00, -.4693D-01, -.9926D-02, -.1005D-01, .4039D+00, - + .4901D-01, -.4198D-01, .3998D-02, - + .1055D+00, -.4758D-01, -.9449D-02, -.9570D-02, .4222D+00, - + .5002D-01, -.3986D-01, .5411D-02, - + .1076D+00, -.4813D-01, -.9007D-02, -.9128D-02, .4375D+00, - + .5094D-01, -.3805D-01, .6648D-02, - + .1097D+00, -.4868D-01, -.8528D-02, -.8648D-02, .4527D+00, - + .5193D-01, -.3621D-01, .7924D-02, - + .1116D+00, -.4918D-01, -.8060D-02, -.8180D-02, .4664D+00, - + .5287D-01, -.3453D-01, .9118D-02, - + .1135D+00, -.4966D-01, -.7579D-02, -.7699D-02, .4793D+00, - + .5383D-01, -.3288D-01, .1030D-01, - + .1152D+00, -.5007D-01, -.7142D-02, -.7262D-02, .4902D+00, - + .5469D-01, -.3146D-01, .1133D-01 / - DATA ((PARTON(I,N,15),I=1,8),N=1,8)/ - + .5777D-01, -.3510D-01, -.1232D-01, -.1234D-01, .2178D-01, - + .6268D-01, -.6879D-01, -.9166D-03, - + .6484D-01, -.3740D-01, -.1310D-01, -.1314D-01, .4761D-01, - + .6069D-01, -.7418D-01, -.4292D-02, - + .6972D-01, -.3895D-01, -.1349D-01, -.1354D-01, .6785D-01, - + .5966D-01, -.7668D-01, -.5917D-02, - + .7487D-01, -.4056D-01, -.1377D-01, -.1384D-01, .9140D-01, - + .5886D-01, -.7811D-01, -.6950D-02, - + .8051D-01, -.4228D-01, -.1394D-01, -.1401D-01, .1197D+00, - + .5844D-01, -.7830D-01, -.7282D-02, - + .8429D-01, -.4342D-01, -.1396D-01, -.1404D-01, .1401D+00, - + .5842D-01, -.7769D-01, -.7056D-02, - + .8708D-01, -.4424D-01, -.1394D-01, -.1402D-01, .1558D+00, - + .5851D-01, -.7688D-01, -.6670D-02, - + .9104D-01, -.4539D-01, -.1384D-01, -.1393D-01, .1790D+00, - + .5887D-01, -.7531D-01, -.5832D-02 / - DATA ((PARTON(I,N,15),I=1,8),N=9,16)/ - + .9382D-01, -.4619D-01, -.1374D-01, -.1383D-01, .1960D+00, - + .5924D-01, -.7396D-01, -.5079D-02, - + .9885D-01, -.4760D-01, -.1348D-01, -.1357D-01, .2281D+00, - + .6014D-01, -.7108D-01, -.3390D-02, - + .1033D+00, -.4881D-01, -.1313D-01, -.1323D-01, .2568D+00, - + .6128D-01, -.6809D-01, -.1551D-02, - + .1070D+00, -.4982D-01, -.1275D-01, -.1285D-01, .2813D+00, - + .6244D-01, -.6524D-01, .2358D-03, - + .1101D+00, -.5063D-01, -.1239D-01, -.1249D-01, .3014D+00, - + .6352D-01, -.6276D-01, .1847D-02, - + .1136D+00, -.5153D-01, -.1191D-01, -.1201D-01, .3244D+00, - + .6495D-01, -.5981D-01, .3820D-02, - + .1165D+00, -.5228D-01, -.1145D-01, -.1155D-01, .3433D+00, - + .6627D-01, -.5726D-01, .5566D-02, - + .1193D+00, -.5296D-01, -.1099D-01, -.1109D-01, .3606D+00, - + .6757D-01, -.5482D-01, .7255D-02 / - DATA ((PARTON(I,N,15),I=1,8),N=17,25)/ - + .1217D+00, -.5354D-01, -.1055D-01, -.1065D-01, .3755D+00, - + .6881D-01, -.5261D-01, .8804D-02, - + .1246D+00, -.5425D-01, -.9964D-02, -.1006D-01, .3932D+00, - + .7038D-01, -.4988D-01, .1076D-01, - + .1273D+00, -.5487D-01, -.9394D-02, -.9493D-02, .4086D+00, - + .7191D-01, -.4738D-01, .1258D-01, - + .1298D+00, -.5545D-01, -.8812D-02, -.8910D-02, .4227D+00, - + .7341D-01, -.4497D-01, .1436D-01, - + .1320D+00, -.5594D-01, -.8287D-02, -.8385D-02, .4343D+00, - + .7478D-01, -.4289D-01, .1592D-01, - + .1342D+00, -.5642D-01, -.7733D-02, -.7829D-02, .4454D+00, - + .7619D-01, -.4079D-01, .1753D-01, - + .1362D+00, -.5685D-01, -.7202D-02, -.7298D-02, .4551D+00, - + .7752D-01, -.3885D-01, .1902D-01, - + .1381D+00, -.5726D-01, -.6668D-02, -.6763D-02, .4640D+00, - + .7888D-01, -.3697D-01, .2049D-01, - + .1398D+00, -.5760D-01, -.6191D-02, -.6285D-02, .4712D+00, - + .8006D-01, -.3534D-01, .2177D-01 / - DATA ((PARTON(I,N,16),I=1,8),N=1,8)/ - + .7856D-01, -.4436D-01, -.1518D-01, -.1520D-01, .3116D-01, - + .7687D-01, -.7112D-01, .5040D-02, - + .8700D-01, -.4684D-01, -.1559D-01, -.1563D-01, .6268D-01, - + .7526D-01, -.7924D-01, .6413D-03, - + .9276D-01, -.4848D-01, -.1571D-01, -.1576D-01, .8667D-01, - + .7482D-01, -.8301D-01, -.1267D-02, - + .9876D-01, -.5015D-01, -.1570D-01, -.1575D-01, .1138D+00, - + .7491D-01, -.8534D-01, -.2285D-02, - + .1052D+00, -.5191D-01, -.1553D-01, -.1559D-01, .1453D+00, - + .7563D-01, -.8606D-01, -.2295D-02, - + .1096D+00, -.5305D-01, -.1533D-01, -.1540D-01, .1673D+00, - + .7650D-01, -.8563D-01, -.1710D-02, - + .1127D+00, -.5386D-01, -.1514D-01, -.1521D-01, .1839D+00, - + .7729D-01, -.8487D-01, -.1003D-02, - + .1171D+00, -.5498D-01, -.1480D-01, -.1487D-01, .2077D+00, - + .7869D-01, -.8321D-01, .3632D-03 / - DATA ((PARTON(I,N,16),I=1,8),N=9,16)/ - + .1202D+00, -.5575D-01, -.1453D-01, -.1460D-01, .2247D+00, - + .7981D-01, -.8175D-01, .1532D-02, - + .1258D+00, -.5709D-01, -.1395D-01, -.1403D-01, .2558D+00, - + .8207D-01, -.7849D-01, .4044D-02, - + .1305D+00, -.5820D-01, -.1334D-01, -.1342D-01, .2824D+00, - + .8442D-01, -.7509D-01, .6651D-02, - + .1345D+00, -.5910D-01, -.1275D-01, -.1283D-01, .3043D+00, - + .8663D-01, -.7191D-01, .9106D-02, - + .1378D+00, -.5982D-01, -.1221D-01, -.1229D-01, .3218D+00, - + .8860D-01, -.6907D-01, .1128D-01, - + .1415D+00, -.6060D-01, -.1155D-01, -.1163D-01, .3410D+00, - + .9094D-01, -.6570D-01, .1388D-01, - + .1445D+00, -.6123D-01, -.1096D-01, -.1103D-01, .3562D+00, - + .9306D-01, -.6282D-01, .1616D-01, - + .1473D+00, -.6179D-01, -.1037D-01, -.1045D-01, .3696D+00, - + .9505D-01, -.6006D-01, .1834D-01 / - DATA ((PARTON(I,N,16),I=1,8),N=17,25)/ - + .1497D+00, -.6226D-01, -.9826D-02, -.9902D-02, .3808D+00, - + .9692D-01, -.5757D-01, .2031D-01, - + .1527D+00, -.6281D-01, -.9130D-02, -.9205D-02, .3936D+00, - + .9923D-01, -.5450D-01, .2279D-01, - + .1553D+00, -.6329D-01, -.8474D-02, -.8548D-02, .4042D+00, - + .1014D+00, -.5168D-01, .2507D-01, - + .1578D+00, -.6371D-01, -.7820D-02, -.7894D-02, .4134D+00, - + .1036D+00, -.4896D-01, .2730D-01, - + .1599D+00, -.6406D-01, -.7246D-02, -.7318D-02, .4206D+00, - + .1054D+00, -.4663D-01, .2922D-01, - + .1620D+00, -.6439D-01, -.6650D-02, -.6722D-02, .4271D+00, - + .1074D+00, -.4429D-01, .3119D-01, - + .1639D+00, -.6468D-01, -.6092D-02, -.6163D-02, .4323D+00, - + .1092D+00, -.4212D-01, .3302D-01, - + .1657D+00, -.6494D-01, -.5539D-02, -.5609D-02, .4368D+00, - + .1110D+00, -.4002D-01, .3480D-01, - + .1672D+00, -.6515D-01, -.5054D-02, -.5123D-02, .4402D+00, - + .1126D+00, -.3821D-01, .3636D-01 / - DATA ((PARTON(I,N,17),I=1,8),N=1,8)/ - + .1147D+00, -.5923D-01, -.1864D-01, -.1865D-01, .5495D-01, - + .9353D-01, -.7962D-01, .9447D-02, - + .1246D+00, -.6159D-01, -.1833D-01, -.1836D-01, .9468D-01, - + .9396D-01, -.9002D-01, .5079D-02, - + .1312D+00, -.6310D-01, -.1796D-01, -.1800D-01, .1233D+00, - + .9542D-01, -.9439D-01, .3870D-02, - + .1380D+00, -.6459D-01, -.1745D-01, -.1749D-01, .1541D+00, - + .9785D-01, -.9676D-01, .4012D-02, - + .1452D+00, -.6610D-01, -.1675D-01, -.1679D-01, .1879D+00, - + .1013D+00, -.9698D-01, .5600D-02, - + .1499D+00, -.6703D-01, -.1621D-01, -.1626D-01, .2103D+00, - + .1041D+00, -.9599D-01, .7375D-02, - + .1533D+00, -.6768D-01, -.1578D-01, -.1582D-01, .2265D+00, - + .1063D+00, -.9472D-01, .8992D-02, - + .1580D+00, -.6855D-01, -.1511D-01, -.1516D-01, .2489D+00, - + .1096D+00, -.9237D-01, .1167D-01 / - DATA ((PARTON(I,N,17),I=1,8),N=9,16)/ - + .1612D+00, -.6913D-01, -.1462D-01, -.1466D-01, .2641D+00, - + .1121D+00, -.9033D-01, .1377D-01, - + .1669D+00, -.7008D-01, -.1364D-01, -.1369D-01, .2904D+00, - + .1168D+00, -.8607D-01, .1796D-01, - + .1716D+00, -.7082D-01, -.1273D-01, -.1277D-01, .3114D+00, - + .1213D+00, -.8175D-01, .2199D-01, - + .1755D+00, -.7138D-01, -.1190D-01, -.1195D-01, .3274D+00, - + .1251D+00, -.7785D-01, .2560D-01, - + .1786D+00, -.7179D-01, -.1120D-01, -.1125D-01, .3394D+00, - + .1283D+00, -.7446D-01, .2868D-01, - + .1821D+00, -.7221D-01, -.1037D-01, -.1041D-01, .3516D+00, - + .1321D+00, -.7043D-01, .3228D-01, - + .1849D+00, -.7251D-01, -.9649D-02, -.9697D-02, .3606D+00, - + .1353D+00, -.6708D-01, .3536D-01, - + .1873D+00, -.7275D-01, -.8971D-02, -.9018D-02, .3677D+00, - + .1383D+00, -.6388D-01, .3823D-01 / - DATA ((PARTON(I,N,17),I=1,8),N=17,25)/ - + .1895D+00, -.7294D-01, -.8361D-02, -.8408D-02, .3732D+00, - + .1411D+00, -.6105D-01, .4082D-01, - + .1920D+00, -.7312D-01, -.7605D-02, -.7651D-02, .3786D+00, - + .1444D+00, -.5756D-01, .4399D-01, - + .1942D+00, -.7324D-01, -.6914D-02, -.6960D-02, .3823D+00, - + .1475D+00, -.5439D-01, .4690D-01, - + .1962D+00, -.7332D-01, -.6247D-02, -.6292D-02, .3848D+00, - + .1504D+00, -.5135D-01, .4967D-01, - + .1978D+00, -.7336D-01, -.5675D-02, -.5719D-02, .3862D+00, - + .1529D+00, -.4878D-01, .5206D-01, - + .1994D+00, -.7337D-01, -.5096D-02, -.5140D-02, .3867D+00, - + .1555D+00, -.4617D-01, .5448D-01, - + .2008D+00, -.7335D-01, -.4566D-02, -.4609D-02, .3866D+00, - + .1579D+00, -.4383D-01, .5670D-01, - + .2021D+00, -.7331D-01, -.4052D-02, -.4094D-02, .3858D+00, - + .1602D+00, -.4153D-01, .5886D-01, - + .2032D+00, -.7326D-01, -.3609D-02, -.3650D-02, .3847D+00, - + .1623D+00, -.3957D-01, .6073D-01 / - DATA ((PARTON(I,N,18),I=1,8),N=1,8)/ - + .1633D+00, -.7668D-01, -.2107D-01, -.2108D-01, .1010D+00, - + .1069D+00, -.9869D-01, .7573D-02, - + .1738D+00, -.7834D-01, -.1986D-01, -.1987D-01, .1470D+00, - + .1131D+00, -.1076D+00, .6837D-02, - + .1806D+00, -.7931D-01, -.1892D-01, -.1894D-01, .1777D+00, - + .1186D+00, -.1101D+00, .8520D-02, - + .1874D+00, -.8019D-01, -.1787D-01, -.1789D-01, .2087D+00, - + .1252D+00, -.1102D+00, .1180D-01, - + .1944D+00, -.8098D-01, -.1665D-01, -.1668D-01, .2400D+00, - + .1330D+00, -.1079D+00, .1673D-01, - + .1988D+00, -.8141D-01, -.1580D-01, -.1583D-01, .2593D+00, - + .1384D+00, -.1053D+00, .2064D-01, - + .2019D+00, -.8167D-01, -.1516D-01, -.1518D-01, .2726D+00, - + .1425D+00, -.1029D+00, .2374D-01, - + .2061D+00, -.8197D-01, -.1423D-01, -.1425D-01, .2897D+00, - + .1484D+00, -.9895D-01, .2841D-01 / - DATA ((PARTON(I,N,18),I=1,8),N=9,16)/ - + .2090D+00, -.8213D-01, -.1356D-01, -.1358D-01, .3005D+00, - + .1525D+00, -.9592D-01, .3181D-01, - + .2138D+00, -.8230D-01, -.1232D-01, -.1234D-01, .3174D+00, - + .1599D+00, -.9004D-01, .3817D-01, - + .2176D+00, -.8234D-01, -.1122D-01, -.1124D-01, .3291D+00, - + .1664D+00, -.8452D-01, .4388D-01, - + .2207D+00, -.8227D-01, -.1028D-01, -.1031D-01, .3366D+00, - + .1718D+00, -.7969D-01, .4877D-01, - + .2230D+00, -.8216D-01, -.9511D-02, -.9538D-02, .3412D+00, - + .1763D+00, -.7565D-01, .5282D-01, - + .2254D+00, -.8195D-01, -.8632D-02, -.8660D-02, .3447D+00, - + .1814D+00, -.7101D-01, .5743D-01, - + .2273D+00, -.8172D-01, -.7901D-02, -.7928D-02, .3463D+00, - + .1856D+00, -.6718D-01, .6126D-01, - + .2289D+00, -.8146D-01, -.7230D-02, -.7257D-02, .3465D+00, - + .1894D+00, -.6362D-01, .6478D-01 / - DATA ((PARTON(I,N,18),I=1,8),N=17,25)/ - + .2302D+00, -.8119D-01, -.6642D-02, -.6668D-02, .3458D+00, - + .1929D+00, -.6047D-01, .6789D-01, - + .2316D+00, -.8081D-01, -.5934D-02, -.5959D-02, .3438D+00, - + .1970D+00, -.5669D-01, .7167D-01, - + .2327D+00, -.8041D-01, -.5304D-02, -.5329D-02, .3409D+00, - + .2007D+00, -.5329D-01, .7506D-01, - + .2336D+00, -.7999D-01, -.4712D-02, -.4736D-02, .3373D+00, - + .2042D+00, -.5007D-01, .7829D-01, - + .2343D+00, -.7959D-01, -.4216D-02, -.4239D-02, .3336D+00, - + .2073D+00, -.4736D-01, .8104D-01, - + .2349D+00, -.7915D-01, -.3724D-02, -.3748D-02, .3292D+00, - + .2103D+00, -.4468D-01, .8382D-01, - + .2353D+00, -.7871D-01, -.3283D-02, -.3306D-02, .3246D+00, - + .2132D+00, -.4223D-01, .8633D-01, - + .2357D+00, -.7826D-01, -.2863D-02, -.2886D-02, .3198D+00, - + .2159D+00, -.3987D-01, .8875D-01, - + .2359D+00, -.7785D-01, -.2508D-02, -.2530D-02, .3153D+00, - + .2182D+00, -.3789D-01, .9086D-01 / - DATA ((PARTON(I,N,19),I=1,8),N=1,8)/ - + .2103D+00, -.9075D-01, -.2170D-01, -.2170D-01, .1576D+00, - + .1173D+00, -.1210D+00, .2872D-02, - + .2200D+00, -.9134D-01, -.1982D-01, -.1983D-01, .2030D+00, - + .1312D+00, -.1245D+00, .8567D-02, - + .2261D+00, -.9156D-01, -.1851D-01, -.1852D-01, .2311D+00, - + .1414D+00, -.1235D+00, .1429D-01, - + .2319D+00, -.9162D-01, -.1713D-01, -.1714D-01, .2574D+00, - + .1522D+00, -.1201D+00, .2136D-01, - + .2377D+00, -.9149D-01, -.1562D-01, -.1563D-01, .2818D+00, - + .1640D+00, -.1145D+00, .2988D-01, - + .2412D+00, -.9129D-01, -.1461D-01, -.1463D-01, .2954D+00, - + .1715D+00, -.1100D+00, .3585D-01, - + .2436D+00, -.9109D-01, -.1387D-01, -.1389D-01, .3039D+00, - + .1772D+00, -.1064D+00, .4035D-01, - + .2467D+00, -.9072D-01, -.1283D-01, -.1285D-01, .3140D+00, - + .1848D+00, -.1009D+00, .4675D-01 / - DATA ((PARTON(I,N,19),I=1,8),N=9,16)/ - + .2487D+00, -.9040D-01, -.1211D-01, -.1212D-01, .3195D+00, - + .1901D+00, -.9699D-01, .5122D-01, - + .2518D+00, -.8971D-01, -.1080D-01, -.1081D-01, .3262D+00, - + .1993D+00, -.8962D-01, .5923D-01, - + .2542D+00, -.8897D-01, -.9681D-02, -.9698D-02, .3288D+00, - + .2071D+00, -.8312D-01, .6616D-01, - + .2558D+00, -.8825D-01, -.8762D-02, -.8778D-02, .3287D+00, - + .2135D+00, -.7761D-01, .7191D-01, - + .2569D+00, -.8759D-01, -.8022D-02, -.8039D-02, .3271D+00, - + .2186D+00, -.7312D-01, .7657D-01, - + .2579D+00, -.8676D-01, -.7199D-02, -.7215D-02, .3237D+00, - + .2243D+00, -.6808D-01, .8180D-01, - + .2585D+00, -.8601D-01, -.6529D-02, -.6545D-02, .3196D+00, - + .2289D+00, -.6399D-01, .8606D-01, - + .2588D+00, -.8526D-01, -.5926D-02, -.5941D-02, .3149D+00, - + .2331D+00, -.6023D-01, .8994D-01 / - DATA ((PARTON(I,N,19),I=1,8),N=17,25)/ - + .2590D+00, -.8455D-01, -.5407D-02, -.5423D-02, .3100D+00, - + .2368D+00, -.5695D-01, .9332D-01, - + .2590D+00, -.8364D-01, -.4794D-02, -.4808D-02, .3032D+00, - + .2413D+00, -.5304D-01, .9742D-01, - + .2588D+00, -.8277D-01, -.4259D-02, -.4273D-02, .2963D+00, - + .2452D+00, -.4957D-01, .1011D+00, - + .2585D+00, -.8188D-01, -.3765D-02, -.3779D-02, .2891D+00, - + .2490D+00, -.4630D-01, .1045D+00, - + .2581D+00, -.8109D-01, -.3357D-02, -.3371D-02, .2825D+00, - + .2521D+00, -.4358D-01, .1074D+00, - + .2575D+00, -.8026D-01, -.2960D-02, -.2973D-02, .2755D+00, - + .2552D+00, -.4085D-01, .1103D+00, - + .2568D+00, -.7946D-01, -.2608D-02, -.2621D-02, .2688D+00, - + .2582D+00, -.3844D-01, .1130D+00, - + .2561D+00, -.7866D-01, -.2278D-02, -.2291D-02, .2620D+00, - + .2610D+00, -.3612D-01, .1155D+00, - + .2553D+00, -.7795D-01, -.2003D-02, -.2015D-02, .2560D+00, - + .2634D+00, -.3413D-01, .1177D+00 / - DATA ((PARTON(I,N,20),I=1,8),N=1,8)/ - + .2549D+00, -.1016D+00, -.2116D-01, -.2117D-01, .2171D+00, - + .1301D+00, -.1419D+00, .2872D-03, - + .2628D+00, -.1010D+00, -.1889D-01, -.1890D-01, .2560D+00, - + .1519D+00, -.1382D+00, .1342D-01, - + .2674D+00, -.1003D+00, -.1738D-01, -.1739D-01, .2778D+00, - + .1663D+00, -.1330D+00, .2330D-01, - + .2716D+00, -.9949D-01, -.1584D-01, -.1585D-01, .2962D+00, - + .1806D+00, -.1260D+00, .3397D-01, - + .2754D+00, -.9838D-01, -.1421D-01, -.1422D-01, .3109D+00, - + .1953D+00, -.1172D+00, .4562D-01, - + .2775D+00, -.9753D-01, -.1316D-01, -.1317D-01, .3176D+00, - + .2044D+00, -.1109D+00, .5329D-01, - + .2789D+00, -.9685D-01, -.1240D-01, -.1241D-01, .3209D+00, - + .2109D+00, -.1062D+00, .5883D-01, - + .2804D+00, -.9580D-01, -.1136D-01, -.1137D-01, .3235D+00, - + .2197D+00, -.9940D-01, .6652D-01 / - DATA ((PARTON(I,N,20),I=1,8),N=9,16)/ - + .2812D+00, -.9501D-01, -.1064D-01, -.1065D-01, .3238D+00, - + .2256D+00, -.9467D-01, .7174D-01, - + .2823D+00, -.9347D-01, -.9381D-02, -.9392D-02, .3212D+00, - + .2357D+00, -.8627D-01, .8087D-01, - + .2827D+00, -.9199D-01, -.8332D-02, -.8342D-02, .3160D+00, - + .2441D+00, -.7907D-01, .8856D-01, - + .2826D+00, -.9066D-01, -.7485D-02, -.7496D-02, .3097D+00, - + .2508D+00, -.7312D-01, .9482D-01, - + .2822D+00, -.8949D-01, -.6818D-02, -.6828D-02, .3033D+00, - + .2562D+00, -.6834D-01, .9982D-01, - + .2815D+00, -.8810D-01, -.6086D-02, -.6096D-02, .2949D+00, - + .2620D+00, -.6304D-01, .1053D+00, - + .2807D+00, -.8688D-01, -.5500D-02, -.5510D-02, .2869D+00, - + .2668D+00, -.5879D-01, .1098D+00, - + .2797D+00, -.8570D-01, -.4981D-02, -.4990D-02, .2789D+00, - + .2710D+00, -.5495D-01, .1138D+00 / - DATA ((PARTON(I,N,20),I=1,8),N=17,25)/ - + .2787D+00, -.8462D-01, -.4540D-02, -.4549D-02, .2714D+00, - + .2748D+00, -.5166D-01, .1174D+00, - + .2772D+00, -.8326D-01, -.4025D-02, -.4034D-02, .2618D+00, - + .2792D+00, -.4771D-01, .1216D+00, - + .2756D+00, -.8198D-01, -.3582D-02, -.3591D-02, .2526D+00, - + .2831D+00, -.4422D-01, .1253D+00, - + .2739D+00, -.8071D-01, -.3178D-02, -.3187D-02, .2436D+00, - + .2869D+00, -.4097D-01, .1288D+00, - + .2723D+00, -.7960D-01, -.2849D-02, -.2858D-02, .2357D+00, - + .2899D+00, -.3826D-01, .1317D+00, - + .2705D+00, -.7845D-01, -.2532D-02, -.2540D-02, .2275D+00, - + .2931D+00, -.3561D-01, .1347D+00, - + .2688D+00, -.7736D-01, -.2253D-02, -.2261D-02, .2200D+00, - + .2959D+00, -.3320D-01, .1373D+00, - + .2670D+00, -.7629D-01, -.1995D-02, -.2003D-02, .2126D+00, - + .2987D+00, -.3091D-01, .1398D+00, - + .2653D+00, -.7534D-01, -.1781D-02, -.1788D-02, .2061D+00, - + .3010D+00, -.2896D-01, .1420D+00 / - DATA ((PARTON(I,N,21),I=1,8),N=1,8)/ - + .2964D+00, -.1095D+00, -.1990D-01, -.1990D-01, .2727D+00, - + .1480D+00, -.1584D+00, .2673D-02, - + .3015D+00, -.1075D+00, -.1745D-01, -.1746D-01, .3004D+00, - + .1764D+00, -.1471D+00, .2281D-01, - + .3042D+00, -.1060D+00, -.1588D-01, -.1588D-01, .3136D+00, - + .1938D+00, -.1380D+00, .3625D-01, - + .3062D+00, -.1043D+00, -.1431D-01, -.1432D-01, .3225D+00, - + .2105D+00, -.1276D+00, .4982D-01, - + .3075D+00, -.1022D+00, -.1270D-01, -.1270D-01, .3266D+00, - + .2268D+00, -.1161D+00, .6380D-01, - + .3079D+00, -.1008D+00, -.1167D-01, -.1168D-01, .3263D+00, - + .2368D+00, -.1084D+00, .7265D-01, - + .3079D+00, -.9961D-01, -.1095D-01, -.1095D-01, .3246D+00, - + .2437D+00, -.1029D+00, .7893D-01, - + .3076D+00, -.9793D-01, -.9958D-02, -.9965D-02, .3203D+00, - + .2530D+00, -.9510D-01, .8744D-01 / - DATA ((PARTON(I,N,21),I=1,8),N=9,16)/ - + .3072D+00, -.9671D-01, -.9289D-02, -.9295D-02, .3159D+00, - + .2591D+00, -.8977D-01, .9310D-01, - + .3058D+00, -.9439D-01, -.8128D-02, -.8135D-02, .3056D+00, - + .2695D+00, -.8064D-01, .1029D+00, - + .3040D+00, -.9226D-01, -.7182D-02, -.7189D-02, .2943D+00, - + .2778D+00, -.7296D-01, .1109D+00, - + .3020D+00, -.9039D-01, -.6432D-02, -.6438D-02, .2835D+00, - + .2846D+00, -.6676D-01, .1174D+00, - + .3001D+00, -.8879D-01, -.5847D-02, -.5854D-02, .2738D+00, - + .2898D+00, -.6182D-01, .1225D+00, - + .2977D+00, -.8692D-01, -.5215D-02, -.5221D-02, .2621D+00, - + .2955D+00, -.5646D-01, .1281D+00, - + .2953D+00, -.8530D-01, -.4714D-02, -.4720D-02, .2517D+00, - + .3003D+00, -.5214D-01, .1326D+00, - + .2929D+00, -.8377D-01, -.4275D-02, -.4281D-02, .2419D+00, - + .3043D+00, -.4829D-01, .1367D+00 / - DATA ((PARTON(I,N,21),I=1,8),N=17,25)/ - + .2907D+00, -.8239D-01, -.3905D-02, -.3911D-02, .2330D+00, - + .3079D+00, -.4496D-01, .1402D+00, - + .2876D+00, -.8066D-01, -.3478D-02, -.3484D-02, .2220D+00, - + .3123D+00, -.4104D-01, .1444D+00, - + .2847D+00, -.7906D-01, -.3114D-02, -.3120D-02, .2119D+00, - + .3159D+00, -.3758D-01, .1480D+00, - + .2817D+00, -.7750D-01, -.2785D-02, -.2791D-02, .2023D+00, - + .3195D+00, -.3438D-01, .1515D+00, - + .2790D+00, -.7615D-01, -.2519D-02, -.2525D-02, .1940D+00, - + .3225D+00, -.3172D-01, .1545D+00, - + .2761D+00, -.7475D-01, -.2264D-02, -.2269D-02, .1857D+00, - + .3254D+00, -.2909D-01, .1574D+00, - + .2733D+00, -.7346D-01, -.2042D-02, -.2047D-02, .1782D+00, - + .3282D+00, -.2672D-01, .1600D+00, - + .2705D+00, -.7218D-01, -.1837D-02, -.1842D-02, .1709D+00, - + .3307D+00, -.2449D-01, .1625D+00, - + .2679D+00, -.7106D-01, -.1669D-02, -.1673D-02, .1647D+00, - + .3330D+00, -.2257D-01, .1647D+00 / - DATA ((PARTON(I,N,22),I=1,8),N=1,8)/ - + .3339D+00, -.1145D+00, -.1819D-01, -.1819D-01, .3190D+00, - + .1718D+00, -.1688D+00, .1126D-01, - + .3356D+00, -.1113D+00, -.1575D-01, -.1576D-01, .3329D+00, - + .2044D+00, -.1508D+00, .3697D-01, - + .3358D+00, -.1090D+00, -.1422D-01, -.1422D-01, .3365D+00, - + .2235D+00, -.1383D+00, .5304D-01, - + .3353D+00, -.1064D+00, -.1271D-01, -.1271D-01, .3355D+00, - + .2411D+00, -.1253D+00, .6857D-01, - + .3338D+00, -.1035D+00, -.1119D-01, -.1119D-01, .3294D+00, - + .2581D+00, -.1117D+00, .8402D-01, - + .3323D+00, -.1015D+00, -.1023D-01, -.1024D-01, .3228D+00, - + .2682D+00, -.1030D+00, .9355D-01, - + .3309D+00, -.9992D-01, -.9566D-02, -.9570D-02, .3168D+00, - + .2752D+00, -.9674D-01, .1002D+00, - + .3285D+00, -.9768D-01, -.8666D-02, -.8671D-02, .3067D+00, - + .2844D+00, -.8830D-01, .1091D+00 / - DATA ((PARTON(I,N,22),I=1,8),N=9,16)/ - + .3266D+00, -.9607D-01, -.8062D-02, -.8067D-02, .2987D+00, - + .2904D+00, -.8271D-01, .1150D+00, - + .3227D+00, -.9310D-01, -.7029D-02, -.7033D-02, .2825D+00, - + .3005D+00, -.7307D-01, .1249D+00, - + .3186D+00, -.9041D-01, -.6198D-02, -.6202D-02, .2670D+00, - + .3086D+00, -.6518D-01, .1330D+00, - + .3148D+00, -.8810D-01, -.5547D-02, -.5551D-02, .2532D+00, - + .3150D+00, -.5885D-01, .1395D+00, - + .3113D+00, -.8615D-01, -.5044D-02, -.5048D-02, .2416D+00, - + .3199D+00, -.5388D-01, .1445D+00, - + .3071D+00, -.8389D-01, -.4505D-02, -.4509D-02, .2280D+00, - + .3255D+00, -.4849D-01, .1501D+00, - + .3033D+00, -.8197D-01, -.4082D-02, -.4086D-02, .2166D+00, - + .3298D+00, -.4419D-01, .1546D+00, - + .2996D+00, -.8017D-01, -.3713D-02, -.3717D-02, .2060D+00, - + .3338D+00, -.4035D-01, .1586D+00 / - DATA ((PARTON(I,N,22),I=1,8),N=17,25)/ - + .2961D+00, -.7855D-01, -.3405D-02, -.3409D-02, .1966D+00, - + .3371D+00, -.3707D-01, .1620D+00, - + .2916D+00, -.7655D-01, -.3051D-02, -.3055D-02, .1853D+00, - + .3412D+00, -.3319D-01, .1661D+00, - + .2874D+00, -.7472D-01, -.2751D-02, -.2755D-02, .1753D+00, - + .3446D+00, -.2977D-01, .1697D+00, - + .2832D+00, -.7295D-01, -.2482D-02, -.2486D-02, .1658D+00, - + .3480D+00, -.2661D-01, .1731D+00, - + .2794D+00, -.7143D-01, -.2265D-02, -.2269D-02, .1578D+00, - + .3508D+00, -.2400D-01, .1760D+00, - + .2755D+00, -.6987D-01, -.2058D-02, -.2062D-02, .1500D+00, - + .3535D+00, -.2140D-01, .1788D+00, - + .2718D+00, -.6843D-01, -.1879D-02, -.1882D-02, .1429D+00, - + .3562D+00, -.1907D-01, .1814D+00, - + .2681D+00, -.6702D-01, -.1713D-02, -.1716D-02, .1362D+00, - + .3584D+00, -.1685D-01, .1838D+00, - + .2648D+00, -.6579D-01, -.1577D-02, -.1581D-02, .1305D+00, - + .3606D+00, -.1497D-01, .1859D+00 / - DATA ((PARTON(I,N,23),I=1,8),N=1,8)/ - + .3667D+00, -.1171D+00, -.1625D-01, -.1625D-01, .3524D+00, - + .2005D+00, -.1726D+00, .2607D-01, - + .3645D+00, -.1127D+00, -.1395D-01, -.1395D-01, .3517D+00, - + .2347D+00, -.1493D+00, .5546D-01, - + .3621D+00, -.1097D+00, -.1251D-01, -.1252D-01, .3459D+00, - + .2542D+00, -.1343D+00, .7308D-01, - + .3587D+00, -.1063D+00, -.1113D-01, -.1113D-01, .3358D+00, - + .2717D+00, -.1194D+00, .8963D-01, - + .3542D+00, -.1026D+00, -.9740D-02, -.9743D-02, .3209D+00, - + .2885D+00, -.1043D+00, .1057D+00, - + .3507D+00, -.1001D+00, -.8883D-02, -.8886D-02, .3091D+00, - + .2983D+00, -.9488D-01, .1155D+00, - + .3478D+00, -.9822D-01, -.8287D-02, -.8290D-02, .2997D+00, - + .3049D+00, -.8832D-01, .1222D+00, - + .3434D+00, -.9552D-01, -.7489D-02, -.7492D-02, .2853D+00, - + .3138D+00, -.7950D-01, .1311D+00 / - DATA ((PARTON(I,N,23),I=1,8),N=9,16)/ - + .3400D+00, -.9360D-01, -.6957D-02, -.6961D-02, .2747D+00, - + .3194D+00, -.7373D-01, .1370D+00, - + .3335D+00, -.9008D-01, -.6056D-02, -.6059D-02, .2546D+00, - + .3289D+00, -.6392D-01, .1468D+00, - + .3272D+00, -.8696D-01, -.5339D-02, -.5342D-02, .2366D+00, - + .3363D+00, -.5591D-01, .1547D+00, - + .3215D+00, -.8430D-01, -.4781D-02, -.4784D-02, .2213D+00, - + .3424D+00, -.4959D-01, .1611D+00, - + .3166D+00, -.8209D-01, -.4354D-02, -.4357D-02, .2088D+00, - + .3471D+00, -.4462D-01, .1660D+00, - + .3106D+00, -.7954D-01, -.3898D-02, -.3901D-02, .1947D+00, - + .3522D+00, -.3929D-01, .1714D+00, - + .3055D+00, -.7740D-01, -.3542D-02, -.3545D-02, .1831D+00, - + .3562D+00, -.3502D-01, .1757D+00, - + .3005D+00, -.7540D-01, -.3234D-02, -.3236D-02, .1725D+00, - + .3599D+00, -.3124D-01, .1795D+00 / - DATA ((PARTON(I,N,23),I=1,8),N=17,25)/ - + .2959D+00, -.7363D-01, -.2977D-02, -.2980D-02, .1634D+00, - + .3630D+00, -.2802D-01, .1829D+00, - + .2902D+00, -.7145D-01, -.2683D-02, -.2685D-02, .1525D+00, - + .3667D+00, -.2417D-01, .1868D+00, - + .2848D+00, -.6947D-01, -.2435D-02, -.2438D-02, .1430D+00, - + .3700D+00, -.2082D-01, .1903D+00, - + .2795D+00, -.6756D-01, -.2213D-02, -.2215D-02, .1342D+00, - + .3730D+00, -.1771D-01, .1936D+00, - + .2749D+00, -.6593D-01, -.2034D-02, -.2037D-02, .1269D+00, - + .3755D+00, -.1512D-01, .1963D+00, - + .2701D+00, -.6428D-01, -.1864D-02, -.1867D-02, .1198D+00, - + .3783D+00, -.1256D-01, .1991D+00, - + .2656D+00, -.6276D-01, -.1717D-02, -.1719D-02, .1135D+00, - + .3805D+00, -.1026D-01, .2016D+00, - + .2611D+00, -.6127D-01, -.1581D-02, -.1584D-02, .1076D+00, - + .3827D+00, -.8061D-02, .2040D+00, - + .2572D+00, -.5999D-01, -.1470D-02, -.1472D-02, .1026D+00, - + .3848D+00, -.6194D-02, .2060D+00 / - DATA ((PARTON(I,N,24),I=1,8),N=1,8)/ - + .3943D+00, -.1174D+00, -.1423D-01, -.1423D-01, .3713D+00, - + .2327D+00, -.1701D+00, .4632D-01, - + .3879D+00, -.1120D+00, -.1214D-01, -.1214D-01, .3568D+00, - + .2663D+00, -.1430D+00, .7742D-01, - + .3827D+00, -.1083D+00, -.1085D-01, -.1085D-01, .3427D+00, - + .2850D+00, -.1262D+00, .9555D-01, - + .3764D+00, -.1044D+00, -.9611D-02, -.9613D-02, .3250D+00, - + .3018D+00, -.1101D+00, .1123D+00, - + .3687D+00, -.1000D+00, -.8385D-02, -.8388D-02, .3033D+00, - + .3174D+00, -.9429D-01, .1283D+00, - + .3632D+00, -.9709D-01, -.7633D-02, -.7635D-02, .2876D+00, - + .3266D+00, -.8461D-01, .1380D+00, - + .3588D+00, -.9492D-01, -.7112D-02, -.7114D-02, .2758D+00, - + .3327D+00, -.7785D-01, .1445D+00, - + .3523D+00, -.9185D-01, -.6419D-02, -.6421D-02, .2587D+00, - + .3409D+00, -.6894D-01, .1533D+00 / - DATA ((PARTON(I,N,24),I=1,8),N=9,16)/ - + .3476D+00, -.8969D-01, -.5959D-02, -.5962D-02, .2465D+00, - + .3461D+00, -.6306D-01, .1589D+00, - + .3385D+00, -.8577D-01, -.5186D-02, -.5188D-02, .2243D+00, - + .3548D+00, -.5325D-01, .1684D+00, - + .3302D+00, -.8233D-01, -.4574D-02, -.4576D-02, .2053D+00, - + .3618D+00, -.4532D-01, .1760D+00, - + .3228D+00, -.7942D-01, -.4102D-02, -.4104D-02, .1897D+00, - + .3672D+00, -.3906D-01, .1820D+00, - + .3164D+00, -.7703D-01, -.3741D-02, -.3743D-02, .1772D+00, - + .3715D+00, -.3419D-01, .1868D+00, - + .3090D+00, -.7429D-01, -.3358D-02, -.3360D-02, .1634D+00, - + .3762D+00, -.2893D-01, .1920D+00, - + .3026D+00, -.7201D-01, -.3060D-02, -.3062D-02, .1522D+00, - + .3799D+00, -.2476D-01, .1961D+00, - + .2965D+00, -.6989D-01, -.2802D-02, -.2804D-02, .1423D+00, - + .3831D+00, -.2103D-01, .1997D+00 / - DATA ((PARTON(I,N,24),I=1,8),N=17,25)/ - + .2910D+00, -.6802D-01, -.2588D-02, -.2590D-02, .1338D+00, - + .3861D+00, -.1784D-01, .2030D+00, - + .2841D+00, -.6574D-01, -.2343D-02, -.2345D-02, .1239D+00, - + .3893D+00, -.1407D-01, .2067D+00, - + .2778D+00, -.6368D-01, -.2137D-02, -.2139D-02, .1153D+00, - + .3924D+00, -.1078D-01, .2101D+00, - + .2716D+00, -.6171D-01, -.1953D-02, -.1955D-02, .1075D+00, - + .3954D+00, -.7706D-02, .2133D+00, - + .2662D+00, -.6003D-01, -.1805D-02, -.1807D-02, .1010D+00, - + .3978D+00, -.5145D-02, .2159D+00, - + .2607D+00, -.5833D-01, -.1664D-02, -.1666D-02, .9483D-01, - + .4001D+00, -.2611D-02, .2185D+00, - + .2556D+00, -.5678D-01, -.1542D-02, -.1543D-02, .8937D-01, - + .4022D+00, -.3293D-03, .2209D+00, - + .2505D+00, -.5528D-01, -.1429D-02, -.1431D-02, .8428D-01, - + .4042D+00, .1851D-02, .2232D+00, - + .2461D+00, -.5398D-01, -.1337D-02, -.1339D-02, .8005D-01, - + .4060D+00, .3709D-02, .2251D+00 / - DATA ((PARTON(I,N,25),I=1,8),N=1,8)/ - + .4162D+00, -.1157D+00, -.1224D-01, -.1224D-01, .3759D+00, - + .2666D+00, -.1617D+00, .7078D-01, - + .4055D+00, -.1095D+00, -.1040D-01, -.1040D-01, .3495D+00, - + .2979D+00, -.1325D+00, .1019D+00, - + .3974D+00, -.1053D+00, -.9273D-02, -.9274D-02, .3288D+00, - + .3150D+00, -.1148D+00, .1196D+00, - + .3883D+00, -.1008D+00, -.8195D-02, -.8197D-02, .3053D+00, - + .3304D+00, -.9816D-01, .1359D+00, - + .3776D+00, -.9598D-01, -.7135D-02, -.7137D-02, .2788D+00, - + .3445D+00, -.8210D-01, .1513D+00, - + .3700D+00, -.9275D-01, -.6487D-02, -.6489D-02, .2608D+00, - + .3528D+00, -.7232D-01, .1605D+00, - + .3642D+00, -.9038D-01, -.6040D-02, -.6042D-02, .2476D+00, - + .3585D+00, -.6564D-01, .1669D+00, - + .3558D+00, -.8704D-01, -.5448D-02, -.5449D-02, .2290D+00, - + .3657D+00, -.5672D-01, .1750D+00 / - DATA ((PARTON(I,N,25),I=1,8),N=9,16)/ - + .3498D+00, -.8471D-01, -.5057D-02, -.5059D-02, .2162D+00, - + .3706D+00, -.5094D-01, .1805D+00, - + .3384D+00, -.8050D-01, -.4401D-02, -.4403D-02, .1936D+00, - + .3784D+00, -.4131D-01, .1894D+00, - + .3281D+00, -.7686D-01, -.3886D-02, -.3887D-02, .1748D+00, - + .3847D+00, -.3355D-01, .1967D+00, - + .3192D+00, -.7380D-01, -.3488D-02, -.3490D-02, .1597D+00, - + .3897D+00, -.2742D-01, .2024D+00, - + .3117D+00, -.7130D-01, -.3186D-02, -.3188D-02, .1478D+00, - + .3934D+00, -.2264D-01, .2068D+00, - + .3029D+00, -.6846D-01, -.2865D-02, -.2867D-02, .1349D+00, - + .3978D+00, -.1749D-01, .2118D+00, - + .2954D+00, -.6611D-01, -.2617D-02, -.2618D-02, .1247D+00, - + .4010D+00, -.1341D-01, .2157D+00, - + .2884D+00, -.6394D-01, -.2402D-02, -.2403D-02, .1157D+00, - + .4042D+00, -.9761D-02, .2192D+00 / - DATA ((PARTON(I,N,25),I=1,8),N=17,25)/ - + .2821D+00, -.6203D-01, -.2223D-02, -.2225D-02, .1081D+00, - + .4066D+00, -.6637D-02, .2222D+00, - + .2743D+00, -.5971D-01, -.2020D-02, -.2021D-02, .9935D-01, - + .4100D+00, -.2936D-02, .2259D+00, - + .2672D+00, -.5763D-01, -.1849D-02, -.1850D-02, .9187D-01, - + .4125D+00, .3087D-03, .2290D+00, - + .2603D+00, -.5566D-01, -.1695D-02, -.1697D-02, .8510D-01, - + .4151D+00, .3338D-02, .2320D+00, - + .2543D+00, -.5398D-01, -.1572D-02, -.1574D-02, .7961D-01, - + .4173D+00, .5870D-02, .2345D+00, - + .2483D+00, -.5229D-01, -.1455D-02, -.1456D-02, .7435D-01, - + .4195D+00, .8380D-02, .2371D+00, - + .2427D+00, -.5076D-01, -.1353D-02, -.1355D-02, .6976D-01, - + .4216D+00, .1064D-01, .2394D+00, - + .2372D+00, -.4928D-01, -.1260D-02, -.1261D-02, .6551D-01, - + .4234D+00, .1281D-01, .2415D+00, - + .2324D+00, -.4800D-01, -.1183D-02, -.1184D-02, .6201D-01, - + .4250D+00, .1466D-01, .2434D+00 / - DATA ((PARTON(I,N,26),I=1,8),N=1,8)/ - + .4322D+00, -.1124D+00, -.1035D-01, -.1035D-01, .3673D+00, - + .3004D+00, -.1485D+00, .9806D-01, - + .4173D+00, -.1055D+00, -.8775D-02, -.8776D-02, .3318D+00, - + .3284D+00, -.1183D+00, .1277D+00, - + .4064D+00, -.1009D+00, -.7813D-02, -.7814D-02, .3062D+00, - + .3437D+00, -.1005D+00, .1446D+00, - + .3945D+00, -.9604D-01, -.6896D-02, -.6897D-02, .2791D+00, - + .3573D+00, -.8395D-01, .1599D+00, - + .3809D+00, -.9085D-01, -.5996D-02, -.5997D-02, .2499D+00, - + .3698D+00, -.6801D-01, .1743D+00, - + .3715D+00, -.8741D-01, -.5448D-02, -.5449D-02, .2308D+00, - + .3773D+00, -.5842D-01, .1829D+00, - + .3644D+00, -.8491D-01, -.5070D-02, -.5072D-02, .2172D+00, - + .3822D+00, -.5186D-01, .1888D+00, - + .3542D+00, -.8140D-01, -.4571D-02, -.4573D-02, .1984D+00, - + .3887D+00, -.4323D-01, .1965D+00 / - DATA ((PARTON(I,N,26),I=1,8),N=9,16)/ - + .3470D+00, -.7896D-01, -.4243D-02, -.4244D-02, .1857D+00, - + .3928D+00, -.3757D-01, .2015D+00, - + .3336D+00, -.7460D-01, -.3694D-02, -.3695D-02, .1639D+00, - + .4000D+00, -.2821D-01, .2100D+00, - + .3216D+00, -.7085D-01, -.3263D-02, -.3264D-02, .1461D+00, - + .4054D+00, -.2067D-01, .2167D+00, - + .3114D+00, -.6772D-01, -.2932D-02, -.2933D-02, .1321D+00, - + .4101D+00, -.1473D-01, .2221D+00, - + .3028D+00, -.6519D-01, -.2680D-02, -.2682D-02, .1213D+00, - + .4134D+00, -.1008D-01, .2263D+00, - + .2930D+00, -.6232D-01, -.2414D-02, -.2415D-02, .1098D+00, - + .4172D+00, -.5064D-02, .2309D+00, - + .2846D+00, -.5996D-01, -.2207D-02, -.2209D-02, .1007D+00, - + .4202D+00, -.1085D-02, .2345D+00, - + .2769D+00, -.5779D-01, -.2029D-02, -.2030D-02, .9283D-01, - + .4231D+00, .2475D-02, .2379D+00 / - DATA ((PARTON(I,N,26),I=1,8),N=17,25)/ - + .2700D+00, -.5589D-01, -.1881D-02, -.1882D-02, .8627D-01, - + .4254D+00, .5532D-02, .2407D+00, - + .2615D+00, -.5360D-01, -.1712D-02, -.1714D-02, .7874D-01, - + .4283D+00, .9163D-02, .2442D+00, - + .2538D+00, -.5156D-01, -.1570D-02, -.1571D-02, .7240D-01, - + .4309D+00, .1235D-01, .2472D+00, - + .2463D+00, -.4962D-01, -.1443D-02, -.1444D-02, .6671D-01, - + .4333D+00, .1534D-01, .2501D+00, - + .2400D+00, -.4799D-01, -.1341D-02, -.1342D-02, .6214D-01, - + .4351D+00, .1784D-01, .2525D+00, - + .2335D+00, -.4635D-01, -.1243D-02, -.1245D-02, .5778D-01, - + .4372D+00, .2033D-01, .2549D+00, - + .2276D+00, -.4486D-01, -.1159D-02, -.1160D-02, .5401D-01, - + .4387D+00, .2258D-01, .2569D+00, - + .2218D+00, -.4344D-01, -.1081D-02, -.1082D-02, .5054D-01, - + .4409D+00, .2473D-01, .2592D+00, - + .2168D+00, -.4221D-01, -.1017D-02, -.1018D-02, .4769D-01, - + .4422D+00, .2658D-01, .2609D+00 / - DATA ((PARTON(I,N,27),I=1,8),N=1,8)/ - + .4423D+00, -.1077D+00, -.8607D-02, -.8607D-02, .3478D+00, - + .3332D+00, -.1312D+00, .1269D+00, - + .4233D+00, -.1003D+00, -.7292D-02, -.7292D-02, .3060D+00, - + .3572D+00, -.1014D+00, .1542D+00, - + .4098D+00, -.9540D-01, -.6488D-02, -.6489D-02, .2777D+00, - + .3705D+00, -.8399D-01, .1697D+00, - + .3952D+00, -.9032D-01, -.5723D-02, -.5723D-02, .2488D+00, - + .3821D+00, -.6786D-01, .1837D+00, - + .3790D+00, -.8490D-01, -.4972D-02, -.4973D-02, .2188D+00, - + .3930D+00, -.5244D-01, .1969D+00, - + .3680D+00, -.8135D-01, -.4515D-02, -.4516D-02, .1998D+00, - + .3995D+00, -.4322D-01, .2049D+00, - + .3598D+00, -.7878D-01, -.4201D-02, -.4202D-02, .1864D+00, - + .4038D+00, -.3691D-01, .2103D+00, - + .3481D+00, -.7519D-01, -.3786D-02, -.3787D-02, .1684D+00, - + .4095D+00, -.2856D-01, .2174D+00 / - DATA ((PARTON(I,N,27),I=1,8),N=9,16)/ - + .3398D+00, -.7270D-01, -.3514D-02, -.3515D-02, .1565D+00, - + .4133D+00, -.2314D-01, .2220D+00, - + .3246D+00, -.6830D-01, -.3059D-02, -.3060D-02, .1362D+00, - + .4194D+00, -.1412D-01, .2297D+00, - + .3113D+00, -.6453D-01, -.2703D-02, -.2704D-02, .1200D+00, - + .4244D+00, -.6857D-02, .2360D+00, - + .3000D+00, -.6142D-01, -.2430D-02, -.2431D-02, .1076D+00, - + .4282D+00, -.1114D-02, .2410D+00, - + .2906D+00, -.5890D-01, -.2222D-02, -.2223D-02, .9805D-01, - + .4315D+00, .3378D-02, .2450D+00, - + .2799D+00, -.5608D-01, -.2002D-02, -.2003D-02, .8800D-01, - + .4349D+00, .8247D-02, .2492D+00, - + .2709D+00, -.5376D-01, -.1832D-02, -.1833D-02, .8022D-01, - + .4376D+00, .1212D-01, .2527D+00, - + .2626D+00, -.5165D-01, -.1685D-02, -.1686D-02, .7353D-01, - + .4402D+00, .1559D-01, .2558D+00 / - DATA ((PARTON(I,N,27),I=1,8),N=17,25)/ - + .2552D+00, -.4980D-01, -.1563D-02, -.1564D-02, .6799D-01, - + .4423D+00, .1857D-01, .2585D+00, - + .2463D+00, -.4759D-01, -.1424D-02, -.1425D-02, .6171D-01, - + .4450D+00, .2213D-01, .2618D+00, - + .2381D+00, -.4562D-01, -.1307D-02, -.1308D-02, .5645D-01, - + .4472D+00, .2527D-01, .2646D+00, - + .2304D+00, -.4376D-01, -.1202D-02, -.1203D-02, .5178D-01, - + .4493D+00, .2821D-01, .2673D+00, - + .2237D+00, -.4220D-01, -.1118D-02, -.1119D-02, .4805D-01, - + .4511D+00, .3068D-01, .2696D+00, - + .2171D+00, -.4064D-01, -.1038D-02, -.1039D-02, .4452D-01, - + .4530D+00, .3314D-01, .2719D+00, - + .2110D+00, -.3923D-01, -.9677D-03, -.9687D-03, .4148D-01, - + .4547D+00, .3537D-01, .2739D+00, - + .2050D+00, -.3788D-01, -.9034D-03, -.9044D-03, .3870D-01, - + .4563D+00, .3751D-01, .2760D+00, - + .1999D+00, -.3673D-01, -.8504D-03, -.8514D-03, .3643D-01, - + .4576D+00, .3935D-01, .2777D+00 / - DATA ((PARTON(I,N,28),I=1,8),N=1,8)/ - + .4464D+00, -.1019D+00, -.7040D-02, -.7041D-02, .3198D+00, - + .3638D+00, -.1109D+00, .1561D+00, - + .4237D+00, -.9422D-01, -.5967D-02, -.5967D-02, .2748D+00, - + .3838D+00, -.8224D-01, .1805D+00, - + .4078D+00, -.8912D-01, -.5309D-02, -.5309D-02, .2455D+00, - + .3950D+00, -.6565D-01, .1944D+00, - + .3909D+00, -.8391D-01, -.4680D-02, -.4681D-02, .2166D+00, - + .4049D+00, -.5033D-01, .2070D+00, - + .3724D+00, -.7840D-01, -.4064D-02, -.4065D-02, .1874D+00, - + .4145D+00, -.3568D-01, .2190D+00, - + .3600D+00, -.7482D-01, -.3689D-02, -.3690D-02, .1693D+00, - + .4199D+00, -.2690D-01, .2261D+00, - + .3508D+00, -.7223D-01, -.3431D-02, -.3432D-02, .1568D+00, - + .4235D+00, -.2089D-01, .2310D+00, - + .3378D+00, -.6864D-01, -.3091D-02, -.3092D-02, .1402D+00, - + .4286D+00, -.1296D-01, .2375D+00 / - DATA ((PARTON(I,N,28),I=1,8),N=9,16)/ - + .3286D+00, -.6617D-01, -.2868D-02, -.2869D-02, .1293D+00, - + .4319D+00, -.7794D-02, .2418D+00, - + .3121D+00, -.6181D-01, -.2496D-02, -.2497D-02, .1112D+00, - + .4372D+00, .8233D-03, .2488D+00, - + .2977D+00, -.5812D-01, -.2205D-02, -.2206D-02, .9701D-01, - + .4416D+00, .7779D-02, .2546D+00, - + .2855D+00, -.5508D-01, -.1981D-02, -.1982D-02, .8621D-01, - + .4451D+00, .1330D-01, .2592D+00, - + .2756D+00, -.5264D-01, -.1812D-02, -.1813D-02, .7809D-01, - + .4481D+00, .1763D-01, .2629D+00, - + .2643D+00, -.4991D-01, -.1632D-02, -.1633D-02, .6958D-01, - + .4511D+00, .2234D-01, .2669D+00, - + .2549D+00, -.4768D-01, -.1493D-02, -.1494D-02, .6308D-01, - + .4535D+00, .2609D-01, .2701D+00, - + .2462D+00, -.4565D-01, -.1374D-02, -.1374D-02, .5752D-01, - + .4556D+00, .2947D-01, .2730D+00 / - DATA ((PARTON(I,N,28),I=1,8),N=17,25)/ - + .2386D+00, -.4390D-01, -.1274D-02, -.1275D-02, .5297D-01, - + .4578D+00, .3239D-01, .2756D+00, - + .2293D+00, -.4179D-01, -.1161D-02, -.1162D-02, .4784D-01, - + .4598D+00, .3586D-01, .2785D+00, - + .2210D+00, -.3993D-01, -.1065D-02, -.1066D-02, .4358D-01, - + .4621D+00, .3894D-01, .2813D+00, - + .2130D+00, -.3818D-01, -.9795D-03, -.9804D-03, .3982D-01, - + .4641D+00, .4184D-01, .2839D+00, - + .2063D+00, -.3672D-01, -.9107D-03, -.9116D-03, .3683D-01, - + .4658D+00, .4427D-01, .2860D+00, - + .1996D+00, -.3526D-01, -.8451D-03, -.8460D-03, .3403D-01, - + .4675D+00, .4670D-01, .2882D+00, - + .1934D+00, -.3395D-01, -.7881D-03, -.7890D-03, .3162D-01, - + .4690D+00, .4891D-01, .2901D+00, - + .1875D+00, -.3270D-01, -.7356D-03, -.7365D-03, .2943D-01, - + .4705D+00, .5103D-01, .2920D+00, - + .1824D+00, -.3163D-01, -.6924D-03, -.6932D-03, .2765D-01, - + .4717D+00, .5285D-01, .2937D+00 / - DATA ((PARTON(I,N,29),I=1,8),N=1,8)/ - + .4449D+00, -.9523D-01, -.5665D-02, -.5665D-02, .2862D+00, - + .3918D+00, -.8824D-01, .1847D+00, - + .4188D+00, -.8742D-01, -.4806D-02, -.4806D-02, .2406D+00, - + .4082D+00, -.6156D-01, .2061D+00, - + .4008D+00, -.8228D-01, -.4276D-02, -.4277D-02, .2120D+00, - + .4174D+00, -.4604D-01, .2183D+00, - + .3820D+00, -.7705D-01, -.3769D-02, -.3770D-02, .1843D+00, - + .4259D+00, -.3171D-01, .2295D+00, - + .3615D+00, -.7157D-01, -.3271D-02, -.3272D-02, .1571D+00, - + .4336D+00, -.1799D-01, .2401D+00, - + .3479D+00, -.6802D-01, -.2968D-02, -.2969D-02, .1406D+00, - + .4384D+00, -.9745D-02, .2465D+00, - + .3379D+00, -.6548D-01, -.2759D-02, -.2760D-02, .1293D+00, - + .4417D+00, -.4085D-02, .2510D+00, - + .3239D+00, -.6196D-01, -.2484D-02, -.2485D-02, .1145D+00, - + .4460D+00, .3406D-02, .2569D+00 / - DATA ((PARTON(I,N,29),I=1,8),N=9,16)/ - + .3141D+00, -.5955D-01, -.2304D-02, -.2305D-02, .1050D+00, - + .4488D+00, .8292D-02, .2607D+00, - + .2966D+00, -.5532D-01, -.2003D-02, -.2004D-02, .8923D-01, - + .4534D+00, .1647D-01, .2671D+00, - + .2814D+00, -.5176D-01, -.1768D-02, -.1769D-02, .7716D-01, - + .4574D+00, .2311D-01, .2725D+00, - + .2687D+00, -.4885D-01, -.1588D-02, -.1589D-02, .6808D-01, - + .4604D+00, .2840D-01, .2767D+00, - + .2584D+00, -.4652D-01, -.1451D-02, -.1452D-02, .6131D-01, - + .4629D+00, .3257D-01, .2801D+00, - + .2467D+00, -.4393D-01, -.1306D-02, -.1307D-02, .5430D-01, - + .4659D+00, .3711D-01, .2839D+00, - + .2371D+00, -.4183D-01, -.1194D-02, -.1195D-02, .4898D-01, - + .4680D+00, .4075D-01, .2868D+00, - + .2282D+00, -.3992D-01, -.1097D-02, -.1098D-02, .4448D-01, - + .4699D+00, .4402D-01, .2895D+00 / - DATA ((PARTON(I,N,29),I=1,8),N=17,25)/ - + .2205D+00, -.3828D-01, -.1017D-02, -.1018D-02, .4081D-01, - + .4717D+00, .4686D-01, .2919D+00, - + .2111D+00, -.3631D-01, -.9259D-03, -.9267D-03, .3670D-01, - + .4739D+00, .5026D-01, .2948D+00, - + .2028D+00, -.3458D-01, -.8489D-03, -.8498D-03, .3331D-01, - + .4758D+00, .5327D-01, .2973D+00, - + .1949D+00, -.3296D-01, -.7800D-03, -.7809D-03, .3034D-01, - + .4776D+00, .5612D-01, .2997D+00, - + .1882D+00, -.3161D-01, -.7247D-03, -.7255D-03, .2800D-01, - + .4791D+00, .5851D-01, .3017D+00, - + .1815D+00, -.3027D-01, -.6719D-03, -.6727D-03, .2580D-01, - + .4807D+00, .6091D-01, .3038D+00, - + .1754D+00, -.2907D-01, -.6261D-03, -.6268D-03, .2392D-01, - + .4821D+00, .6308D-01, .3057D+00, - + .1695D+00, -.2793D-01, -.5838D-03, -.5846D-03, .2222D-01, - + .4835D+00, .6518D-01, .3075D+00, - + .1645D+00, -.2695D-01, -.5491D-03, -.5498D-03, .2084D-01, - + .4846D+00, .6699D-01, .3090D+00 / - DATA ((PARTON(I,N,30),I=1,8),N=1,8)/ - + .4380D+00, -.8797D-01, -.4481D-02, -.4482D-02, .2496D+00, - + .4169D+00, -.6431D-01, .2123D+00, - + .4090D+00, -.8018D-01, -.3808D-02, -.3808D-02, .2056D+00, - + .4303D+00, -.3983D-01, .2306D+00, - + .3893D+00, -.7509D-01, -.3389D-02, -.3390D-02, .1788D+00, - + .4377D+00, -.2556D-01, .2412D+00, - + .3688D+00, -.6995D-01, -.2987D-02, -.2987D-02, .1534D+00, - + .4447D+00, -.1234D-01, .2510D+00, - + .3469D+00, -.6459D-01, -.2590D-02, -.2591D-02, .1290D+00, - + .4514D+00, .3744D-03, .2604D+00, - + .3324D+00, -.6115D-01, -.2348D-02, -.2349D-02, .1144D+00, - + .4554D+00, .8053D-02, .2661D+00, - + .3218D+00, -.5869D-01, -.2182D-02, -.2183D-02, .1046D+00, - + .4579D+00, .1334D-01, .2700D+00, - + .3071D+00, -.5531D-01, -.1962D-02, -.1963D-02, .9184D-01, - + .4616D+00, .2037D-01, .2752D+00 / - DATA ((PARTON(I,N,30),I=1,8),N=9,16)/ - + .2969D+00, -.5300D-01, -.1819D-02, -.1819D-02, .8368D-01, - + .4641D+00, .2497D-01, .2787D+00, - + .2786D+00, -.4897D-01, -.1579D-02, -.1580D-02, .7045D-01, - + .4683D+00, .3271D-01, .2847D+00, - + .2630D+00, -.4560D-01, -.1392D-02, -.1393D-02, .6043D-01, - + .4715D+00, .3902D-01, .2894D+00, - + .2501D+00, -.4286D-01, -.1248D-02, -.1249D-02, .5298D-01, - + .4743D+00, .4407D-01, .2934D+00, - + .2396D+00, -.4067D-01, -.1139D-02, -.1140D-02, .4748D-01, - + .4768D+00, .4807D-01, .2966D+00, - + .2278D+00, -.3826D-01, -.1024D-02, -.1025D-02, .4183D-01, - + .4792D+00, .5245D-01, .3000D+00, - + .2181D+00, -.3630D-01, -.9354D-03, -.9362D-03, .3758D-01, - + .4813D+00, .5596D-01, .3028D+00, - + .2093D+00, -.3454D-01, -.8586D-03, -.8595D-03, .3400D-01, - + .4831D+00, .5913D-01, .3053D+00 / - DATA ((PARTON(I,N,30),I=1,8),N=17,25)/ - + .2016D+00, -.3302D-01, -.7950D-03, -.7959D-03, .3110D-01, - + .4847D+00, .6190D-01, .3076D+00, - + .1923D+00, -.3121D-01, -.7225D-03, -.7233D-03, .2787D-01, - + .4866D+00, .6521D-01, .3102D+00, - + .1841D+00, -.2963D-01, -.6615D-03, -.6623D-03, .2523D-01, - + .4884D+00, .6816D-01, .3126D+00, - + .1763D+00, -.2816D-01, -.6069D-03, -.6077D-03, .2292D-01, - + .4900D+00, .7094D-01, .3149D+00, - + .1698D+00, -.2693D-01, -.5631D-03, -.5638D-03, .2111D-01, - + .4915D+00, .7330D-01, .3168D+00, - + .1632D+00, -.2572D-01, -.5213D-03, -.5221D-03, .1941D-01, - + .4928D+00, .7566D-01, .3188D+00, - + .1574D+00, -.2463D-01, -.4851D-03, -.4858D-03, .1797D-01, - + .4941D+00, .7780D-01, .3205D+00, - + .1517D+00, -.2360D-01, -.4518D-03, -.4525D-03, .1667D-01, - + .4954D+00, .7987D-01, .3222D+00, - + .1469D+00, -.2273D-01, -.4244D-03, -.4250D-03, .1561D-01, - + .4965D+00, .8167D-01, .3237D+00 / - DATA ((PARTON(I,N,31),I=1,8),N=1,8)/ - + .4261D+00, -.8033D-01, -.3484D-02, -.3484D-02, .2122D+00, - + .4396D+00, -.3955D-01, .2384D+00, - + .3947D+00, -.7270D-01, -.2965D-02, -.2966D-02, .1716D+00, - + .4501D+00, -.1750D-01, .2539D+00, - + .3737D+00, -.6775D-01, -.2640D-02, -.2641D-02, .1474D+00, - + .4562D+00, -.4553D-02, .2630D+00, - + .3520D+00, -.6278D-01, -.2326D-02, -.2326D-02, .1249D+00, - + .4617D+00, .7518D-02, .2714D+00, - + .3290D+00, -.5764D-01, -.2015D-02, -.2016D-02, .1037D+00, - + .4672D+00, .1921D-01, .2796D+00, - + .3139D+00, -.5436D-01, -.1825D-02, -.1826D-02, .9131D-01, - + .4704D+00, .2631D-01, .2846D+00, - + .3030D+00, -.5202D-01, -.1695D-02, -.1696D-02, .8299D-01, - + .4728D+00, .3123D-01, .2881D+00, - + .2879D+00, -.4882D-01, -.1522D-02, -.1523D-02, .7234D-01, - + .4760D+00, .3779D-01, .2928D+00 / - DATA ((PARTON(I,N,31),I=1,8),N=9,16)/ - + .2774D+00, -.4664D-01, -.1409D-02, -.1410D-02, .6558D-01, - + .4782D+00, .4210D-01, .2960D+00, - + .2589D+00, -.4286D-01, -.1222D-02, -.1222D-02, .5473D-01, - + .4819D+00, .4940D-01, .3014D+00, - + .2431D+00, -.3972D-01, -.1075D-02, -.1076D-02, .4662D-01, - + .4850D+00, .5539D-01, .3058D+00, - + .2302D+00, -.3718D-01, -.9623D-03, -.9631D-03, .4065D-01, - + .4874D+00, .6022D-01, .3094D+00, - + .2197D+00, -.3517D-01, -.8769D-03, -.8777D-03, .3628D-01, - + .4894D+00, .6405D-01, .3123D+00, - + .2080D+00, -.3295D-01, -.7869D-03, -.7876D-03, .3182D-01, - + .4917D+00, .6825D-01, .3155D+00, - + .1985D+00, -.3116D-01, -.7173D-03, -.7180D-03, .2849D-01, - + .4935D+00, .7164D-01, .3181D+00, - + .1898D+00, -.2955D-01, -.6573D-03, -.6581D-03, .2570D-01, - + .4951D+00, .7472D-01, .3205D+00 / - DATA ((PARTON(I,N,31),I=1,8),N=17,25)/ - + .1823D+00, -.2817D-01, -.6077D-03, -.6084D-03, .2346D-01, - + .4966D+00, .7740D-01, .3225D+00, - + .1733D+00, -.2654D-01, -.5511D-03, -.5519D-03, .2097D-01, - + .4984D+00, .8064D-01, .3251D+00, - + .1653D+00, -.2511D-01, -.5036D-03, -.5043D-03, .1894D-01, - + .5000D+00, .8349D-01, .3273D+00, - + .1578D+00, -.2379D-01, -.4612D-03, -.4619D-03, .1717D-01, - + .5015D+00, .8623D-01, .3294D+00, - + .1515D+00, -.2269D-01, -.4271D-03, -.4278D-03, .1578D-01, - + .5028D+00, .8854D-01, .3313D+00, - + .1453D+00, -.2161D-01, -.3947D-03, -.3954D-03, .1450D-01, - + .5041D+00, .9084D-01, .3331D+00, - + .1397D+00, -.2065D-01, -.3666D-03, -.3673D-03, .1340D-01, - + .5052D+00, .9296D-01, .3347D+00, - + .1343D+00, -.1973D-01, -.3408D-03, -.3414D-03, .1241D-01, - + .5064D+00, .9501D-01, .3364D+00, - + .1297D+00, -.1896D-01, -.3196D-03, -.3202D-03, .1162D-01, - + .5074D+00, .9674D-01, .3377D+00 / - DATA ((PARTON(I,N,32),I=1,8),N=1,8)/ - + .3893D+00, -.6467D-01, -.1991D-02, -.1991D-02, .1423D+00, - + .4773D+00, .1034D-01, .2853D+00, - + .3551D+00, -.5771D-01, -.1701D-02, -.1701D-02, .1114D+00, - + .4834D+00, .2765D-01, .2960D+00, - + .3326D+00, -.5326D-01, -.1515D-02, -.1515D-02, .9367D-01, - + .4873D+00, .3803D-01, .3025D+00, - + .3098D+00, -.4884D-01, -.1333D-02, -.1333D-02, .7775D-01, - + .4913D+00, .4789D-01, .3089D+00, - + .2860D+00, -.4433D-01, -.1151D-02, -.1152D-02, .6319D-01, - + .4948D+00, .5762D-01, .3151D+00, - + .2706D+00, -.4148D-01, -.1040D-02, -.1041D-02, .5488D-01, - + .4973D+00, .6364D-01, .3190D+00, - + .2596D+00, -.3947D-01, -.9638D-03, -.9644D-03, .4943D-01, - + .4992D+00, .6785D-01, .3219D+00, - + .2445D+00, -.3674D-01, -.8627D-03, -.8634D-03, .4256D-01, - + .5015D+00, .7354D-01, .3256D+00 / - DATA ((PARTON(I,N,32),I=1,8),N=9,16)/ - + .2341D+00, -.3490D-01, -.7966D-03, -.7973D-03, .3827D-01, - + .5031D+00, .7732D-01, .3282D+00, - + .2160D+00, -.3173D-01, -.6870D-03, -.6877D-03, .3151D-01, - + .5059D+00, .8378D-01, .3326D+00, - + .2008D+00, -.2912D-01, -.6014D-03, -.6021D-03, .2656D-01, - + .5083D+00, .8918D-01, .3363D+00, - + .1884D+00, -.2704D-01, -.5359D-03, -.5366D-03, .2298D-01, - + .5103D+00, .9356D-01, .3394D+00, - + .1786D+00, -.2540D-01, -.4863D-03, -.4870D-03, .2038D-01, - + .5120D+00, .9705D-01, .3418D+00, - + .1677D+00, -.2361D-01, -.4342D-03, -.4348D-03, .1777D-01, - + .5137D+00, .1010D+00, .3446D+00, - + .1589D+00, -.2218D-01, -.3940D-03, -.3946D-03, .1584D-01, - + .5152D+00, .1041D+00, .3468D+00, - + .1509D+00, -.2090D-01, -.3595D-03, -.3601D-03, .1423D-01, - + .5166D+00, .1070D+00, .3489D+00 / - DATA ((PARTON(I,N,32),I=1,8),N=17,25)/ - + .1441D+00, -.1982D-01, -.3310D-03, -.3316D-03, .1295D-01, - + .5179D+00, .1095D+00, .3507D+00, - + .1360D+00, -.1854D-01, -.2986D-03, -.2992D-03, .1153D-01, - + .5193D+00, .1126D+00, .3529D+00, - + .1288D+00, -.1743D-01, -.2715D-03, -.2721D-03, .1039D-01, - + .5207D+00, .1153D+00, .3549D+00, - + .1222D+00, -.1641D-01, -.2474D-03, -.2479D-03, .9394D-02, - + .5220D+00, .1179D+00, .3568D+00, - + .1167D+00, -.1557D-01, -.2281D-03, -.2286D-03, .8620D-02, - + .5231D+00, .1201D+00, .3584D+00, - + .1112D+00, -.1474D-01, -.2098D-03, -.2103D-03, .7901D-02, - + .5241D+00, .1223D+00, .3599D+00, - + .1064D+00, -.1401D-01, -.1940D-03, -.1945D-03, .7292D-02, - + .5251D+00, .1243D+00, .3614D+00, - + .1017D+00, -.1333D-01, -.1795D-03, -.1800D-03, .6745D-02, - + .5261D+00, .1262D+00, .3628D+00, - + .9784D-01, -.1275D-01, -.1676D-03, -.1681D-03, .6303D-02, - + .5269D+00, .1280D+00, .3641D+00 / - DATA ((PARTON(I,N,33),I=1,8),N=1,8)/ - + .3391D+00, -.4959D-01, -.1048D-02, -.1048D-02, .8625D-01, - + .5065D+00, .5883D-01, .3253D+00, - + .3047D+00, -.4363D-01, -.8980D-03, -.8984D-03, .6571D-01, - + .5104D+00, .7211D-01, .3327D+00, - + .2824D+00, -.3987D-01, -.7992D-03, -.7996D-03, .5433D-01, - + .5129D+00, .8031D-01, .3374D+00, - + .2601D+00, -.3618D-01, -.7015D-03, -.7020D-03, .4437D-01, - + .5154D+00, .8830D-01, .3421D+00, - + .2371D+00, -.3247D-01, -.6035D-03, -.6041D-03, .3550D-01, - + .5179D+00, .9637D-01, .3468D+00, - + .2225D+00, -.3014D-01, -.5433D-03, -.5439D-03, .3055D-01, - + .5199D+00, .1014D+00, .3500D+00, - + .2122D+00, -.2851D-01, -.5018D-03, -.5024D-03, .2734D-01, - + .5212D+00, .1051D+00, .3522D+00, - + .1980D+00, -.2632D-01, -.4470D-03, -.4476D-03, .2335D-01, - + .5230D+00, .1100D+00, .3553D+00 / - DATA ((PARTON(I,N,33),I=1,8),N=9,16)/ - + .1884D+00, -.2485D-01, -.4114D-03, -.4119D-03, .2089D-01, - + .5243D+00, .1133D+00, .3574D+00, - + .1719D+00, -.2235D-01, -.3524D-03, -.3530D-03, .1706D-01, - + .5265D+00, .1190D+00, .3611D+00, - + .1582D+00, -.2032D-01, -.3064D-03, -.3070D-03, .1430D-01, - + .5284D+00, .1239D+00, .3642D+00, - + .1472D+00, -.1871D-01, -.2714D-03, -.2720D-03, .1232D-01, - + .5301D+00, .1279D+00, .3668D+00, - + .1385D+00, -.1746D-01, -.2450D-03, -.2455D-03, .1090D-01, - + .5313D+00, .1311D+00, .3689D+00, - + .1289D+00, -.1610D-01, -.2173D-03, -.2178D-03, .9478D-02, - + .5329D+00, .1347D+00, .3713D+00, - + .1213D+00, -.1502D-01, -.1960D-03, -.1966D-03, .8430D-02, - + .5341D+00, .1376D+00, .3732D+00, - + .1145D+00, -.1407D-01, -.1779D-03, -.1784D-03, .7564D-02, - + .5352D+00, .1403D+00, .3750D+00 / - DATA ((PARTON(I,N,33),I=1,8),N=17,25)/ - + .1086D+00, -.1326D-01, -.1629D-03, -.1634D-03, .6873D-02, - + .5363D+00, .1427D+00, .3766D+00, - + .1017D+00, -.1232D-01, -.1460D-03, -.1465D-03, .6113D-02, - + .5375D+00, .1455D+00, .3785D+00, - + .9576D-01, -.1151D-01, -.1319D-03, -.1324D-03, .5499D-02, - + .5386D+00, .1481D+00, .3802D+00, - + .9023D-01, -.1076D-01, -.1194D-03, -.1199D-03, .4968D-02, - + .5397D+00, .1505D+00, .3818D+00, - + .8566D-01, -.1016D-01, -.1095D-03, -.1099D-03, .4554D-02, - + .5406D+00, .1526D+00, .3833D+00, - + .8120D-01, -.9566D-02, -.1001D-03, -.1005D-03, .4169D-02, - + .5415D+00, .1547D+00, .3846D+00, - + .7722D-01, -.9046D-02, -.9208D-04, -.9247D-04, .3844D-02, - + .5423D+00, .1566D+00, .3860D+00, - + .7348D-01, -.8558D-02, -.8473D-04, -.8510D-04, .3552D-02, - + .5433D+00, .1585D+00, .3873D+00, - + .7033D-01, -.8151D-02, -.7874D-04, -.7911D-04, .3316D-02, - + .5439D+00, .1601D+00, .3883D+00 / - DATA ((PARTON(I,N,34),I=1,8),N=1,8)/ - + .2810D+00, -.3604D-01, -.5016D-03, -.5017D-03, .4693D-01, - + .5302D+00, .1050D+00, .3596D+00, - + .2485D+00, -.3125D-01, -.4306D-03, -.4309D-03, .3506D-01, - + .5326D+00, .1153D+00, .3648D+00, - + .2279D+00, -.2827D-01, -.3826D-03, -.3829D-03, .2866D-01, - + .5340D+00, .1218D+00, .3682D+00, - + .2075D+00, -.2539D-01, -.3345D-03, -.3350D-03, .2318D-01, - + .5358D+00, .1283D+00, .3717D+00, - + .1868D+00, -.2251D-01, -.2861D-03, -.2866D-03, .1838D-01, - + .5377D+00, .1351D+00, .3755D+00, - + .1739D+00, -.2073D-01, -.2564D-03, -.2569D-03, .1575D-01, - + .5391D+00, .1394D+00, .3780D+00, - + .1647D+00, -.1950D-01, -.2359D-03, -.2364D-03, .1405D-01, - + .5401D+00, .1425D+00, .3798D+00, - + .1523D+00, -.1784D-01, -.2089D-03, -.2093D-03, .1197D-01, - + .5416D+00, .1468D+00, .3823D+00 / - DATA ((PARTON(I,N,34),I=1,8),N=9,16)/ - + .1441D+00, -.1675D-01, -.1914D-03, -.1918D-03, .1069D-01, - + .5425D+00, .1498D+00, .3841D+00, - + .1299D+00, -.1489D-01, -.1626D-03, -.1631D-03, .8713D-02, - + .5444D+00, .1549D+00, .3872D+00, - + .1183D+00, -.1341D-01, -.1403D-03, -.1407D-03, .7295D-02, - + .5460D+00, .1593D+00, .3899D+00, - + .1091D+00, -.1224D-01, -.1233D-03, -.1238D-03, .6284D-02, - + .5473D+00, .1629D+00, .3921D+00, - + .1019D+00, -.1134D-01, -.1106D-03, -.1110D-03, .5559D-02, - + .5485D+00, .1659D+00, .3939D+00, - + .9404D-01, -.1037D-01, -.9734D-04, -.9776D-04, .4832D-02, - + .5496D+00, .1693D+00, .3960D+00, - + .8782D-01, -.9610D-02, -.8724D-04, -.8764D-04, .4298D-02, - + .5507D+00, .1719D+00, .3977D+00, - + .8232D-01, -.8942D-02, -.7864D-04, -.7902D-04, .3856D-02, - + .5517D+00, .1745D+00, .3992D+00 / - DATA ((PARTON(I,N,34),I=1,8),N=17,25)/ - + .7764D-01, -.8380D-02, -.7159D-04, -.7196D-04, .3503D-02, - + .5525D+00, .1766D+00, .4005D+00, - + .7218D-01, -.7728D-02, -.6365D-04, -.6401D-04, .3114D-02, - + .5537D+00, .1793D+00, .4023D+00, - + .6746D-01, -.7171D-02, -.5708D-04, -.5742D-04, .2800D-02, - + .5546D+00, .1818D+00, .4038D+00, - + .6314D-01, -.6665D-02, -.5130D-04, -.5162D-04, .2527D-02, - + .5555D+00, .1840D+00, .4052D+00, - + .5960D-01, -.6254D-02, -.4672D-04, -.4703D-04, .2315D-02, - + .5562D+00, .1860D+00, .4065D+00, - + .5616D-01, -.5857D-02, -.4242D-04, -.4272D-04, .2117D-02, - + .5570D+00, .1880D+00, .4077D+00, - + .5312D-01, -.5508D-02, -.3875D-04, -.3903D-04, .1950D-02, - + .5578D+00, .1898D+00, .4088D+00, - + .5026D-01, -.5184D-02, -.3542D-04, -.3569D-04, .1799D-02, - + .5583D+00, .1915D+00, .4098D+00, - + .4788D-01, -.4915D-02, -.3272D-04, -.3299D-04, .1677D-02, - + .5589D+00, .1931D+00, .4108D+00 / - DATA ((PARTON(I,N,35),I=1,8),N=1,8)/ - + .2200D+00, -.2462D-01, -.2143D-03, -.2144D-03, .2266D-01, - + .5494D+00, .1492D+00, .3893D+00, - + .1916D+00, -.2103D-01, -.1840D-03, -.1843D-03, .1679D-01, - + .5508D+00, .1573D+00, .3931D+00, - + .1737D+00, -.1883D-01, -.1630D-03, -.1633D-03, .1368D-01, - + .5519D+00, .1626D+00, .3958D+00, - + .1563D+00, -.1672D-01, -.1419D-03, -.1422D-03, .1105D-01, - + .5533D+00, .1681D+00, .3986D+00, - + .1389D+00, -.1464D-01, -.1204D-03, -.1208D-03, .8770D-02, - + .5548D+00, .1738D+00, .4016D+00, - + .1281D+00, -.1338D-01, -.1073D-03, -.1077D-03, .7523D-02, - + .5559D+00, .1776D+00, .4037D+00, - + .1206D+00, -.1250D-01, -.9823D-04, -.9861D-04, .6724D-02, - + .5567D+00, .1804D+00, .4052D+00, - + .1105D+00, -.1134D-01, -.8634D-04, -.8672D-04, .5741D-02, - + .5579D+00, .1842D+00, .4073D+00 / - DATA ((PARTON(I,N,35),I=1,8),N=9,16)/ - + .1038D+00, -.1058D-01, -.7871D-04, -.7908D-04, .5137D-02, - + .5587D+00, .1868D+00, .4088D+00, - + .9246D-01, -.9297D-02, -.6627D-04, -.6663D-04, .4201D-02, - + .5602D+00, .1915D+00, .4115D+00, - + .8331D-01, -.8283D-02, -.5666D-04, -.5700D-04, .3528D-02, - + .5616D+00, .1955D+00, .4137D+00, - + .7611D-01, -.7496D-02, -.4939D-04, -.4972D-04, .3045D-02, - + .5627D+00, .1988D+00, .4157D+00, - + .7054D-01, -.6892D-02, -.4396D-04, -.4428D-04, .2698D-02, - + .5636D+00, .2015D+00, .4172D+00, - + .6455D-01, -.6250D-02, -.3834D-04, -.3865D-04, .2349D-02, - + .5647D+00, .2045D+00, .4189D+00, - + .5982D-01, -.5749D-02, -.3410D-04, -.3439D-04, .2090D-02, - + .5655D+00, .2071D+00, .4204D+00, - + .5568D-01, -.5313D-02, -.3050D-04, -.3078D-04, .1875D-02, - + .5663D+00, .2095D+00, .4218D+00 / - DATA ((PARTON(I,N,35),I=1,8),N=17,25)/ - + .5218D-01, -.4948D-02, -.2757D-04, -.2784D-04, .1703D-02, - + .5670D+00, .2115D+00, .4230D+00, - + .4813D-01, -.4529D-02, -.2429D-04, -.2454D-04, .1513D-02, - + .5680D+00, .2140D+00, .4245D+00, - + .4466D-01, -.4173D-02, -.2159D-04, -.2183D-04, .1359D-02, - + .5687D+00, .2162D+00, .4258D+00, - + .4151D-01, -.3853D-02, -.1923D-04, -.1946D-04, .1225D-02, - + .5695D+00, .2184D+00, .4270D+00, - + .3894D-01, -.3594D-02, -.1738D-04, -.1760D-04, .1120D-02, - + .5702D+00, .2202D+00, .4281D+00, - + .3647D-01, -.3345D-02, -.1565D-04, -.1585D-04, .1023D-02, - + .5706D+00, .2221D+00, .4291D+00, - + .3429D-01, -.3129D-02, -.1418D-04, -.1438D-04, .9401D-03, - + .5715D+00, .2238D+00, .4302D+00, - + .3227D-01, -.2928D-02, -.1286D-04, -.1304D-04, .8654D-03, - + .5719D+00, .2254D+00, .4311D+00, - + .3058D-01, -.2763D-02, -.1179D-04, -.1197D-04, .8052D-03, - + .5725D+00, .2269D+00, .4320D+00 / - DATA ((PARTON(I,N,36),I=1,8),N=1,8)/ - + .1614D+00, -.1562D-01, -.7956D-04, -.7967D-04, .9556D-02, - + .5655D+00, .1922D+00, .4158D+00, - + .1381D+00, -.1313D-01, -.6829D-04, -.6848D-04, .7152D-02, - + .5667D+00, .1989D+00, .4189D+00, - + .1238D+00, -.1163D-01, -.6027D-04, -.6050D-04, .5881D-02, - + .5676D+00, .2034D+00, .4210D+00, - + .1100D+00, -.1020D-01, -.5210D-04, -.5236D-04, .4801D-02, - + .5687D+00, .2081D+00, .4233D+00, - + .9646D-01, -.8819D-02, -.4385D-04, -.4412D-04, .3858D-02, - + .5700D+00, .2132D+00, .4259D+00, - + .8815D-01, -.7983D-02, -.3878D-04, -.3906D-04, .3337D-02, - + .5708D+00, .2166D+00, .4276D+00, - + .8239D-01, -.7411D-02, -.3531D-04, -.3559D-04, .2999D-02, - + .5716D+00, .2190D+00, .4289D+00, - + .7476D-01, -.6659D-02, -.3076D-04, -.3104D-04, .2579D-02, - + .5726D+00, .2224D+00, .4307D+00 / - DATA ((PARTON(I,N,36),I=1,8),N=9,16)/ - + .6974D-01, -.6170D-02, -.2789D-04, -.2815D-04, .2319D-02, - + .5732D+00, .2248D+00, .4320D+00, - + .6131D-01, -.5357D-02, -.2325D-04, -.2352D-04, .1909D-02, - + .5745D+00, .2290D+00, .4342D+00, - + .5461D-01, -.4720D-02, -.1968D-04, -.1992D-04, .1611D-02, - + .5756D+00, .2326D+00, .4362D+00, - + .4941D-01, -.4231D-02, -.1700D-04, -.1723D-04, .1394D-02, - + .5765D+00, .2357D+00, .4378D+00, - + .4542D-01, -.3860D-02, -.1500D-04, -.1522D-04, .1237D-02, - + .5772D+00, .2382D+00, .4391D+00, - + .4117D-01, -.3469D-02, -.1294D-04, -.1315D-04, .1077D-02, - + .5781D+00, .2410D+00, .4407D+00, - + .3785D-01, -.3166D-02, -.1141D-04, -.1161D-04, .9578D-03, - + .5788D+00, .2434D+00, .4419D+00, - + .3496D-01, -.2904D-02, -.1012D-04, -.1030D-04, .8585D-03, - + .5795D+00, .2455D+00, .4431D+00 / - DATA ((PARTON(I,N,36),I=1,8),N=17,25)/ - + .3255D-01, -.2687D-02, -.9069D-05, -.9246D-05, .7786D-03, - + .5801D+00, .2474D+00, .4442D+00, - + .2977D-01, -.2440D-02, -.7901D-05, -.8065D-05, .6902D-03, - + .5811D+00, .2497D+00, .4455D+00, - + .2741D-01, -.2232D-02, -.6949D-05, -.7106D-05, .6181D-03, - + .5815D+00, .2518D+00, .4466D+00, - + .2529D-01, -.2045D-02, -.6124D-05, -.6272D-05, .5555D-03, - + .5820D+00, .2539D+00, .4476D+00, - + .2357D-01, -.1896D-02, -.5481D-05, -.5620D-05, .5065D-03, - + .5826D+00, .2556D+00, .4485D+00, - + .2193D-01, -.1754D-02, -.4882D-05, -.5014D-05, .4609D-03, - + .5832D+00, .2573D+00, .4495D+00, - + .2049D-01, -.1630D-02, -.4379D-05, -.4504D-05, .4222D-03, - + .5838D+00, .2589D+00, .4504D+00, - + .1917D-01, -.1517D-02, -.3929D-05, -.4046D-05, .3874D-03, - + .5843D+00, .2604D+00, .4512D+00, - + .1807D-01, -.1424D-02, -.3571D-05, -.3685D-05, .3593D-03, - + .5847D+00, .2618D+00, .4520D+00 / - DATA ((PARTON(I,N,37),I=1,8),N=1,8)/ - + .1091D+00, -.9028D-02, -.2469D-04, -.2477D-04, .3447D-02, - + .5798D+00, .2354D+00, .4403D+00, - + .9172D-01, -.7459D-02, -.2117D-04, -.2131D-04, .2692D-02, - + .5809D+00, .2412D+00, .4429D+00, - + .8117D-01, -.6523D-02, -.1861D-04, -.1876D-04, .2275D-02, - + .5817D+00, .2451D+00, .4447D+00, - + .7119D-01, -.5650D-02, -.1597D-04, -.1614D-04, .1905D-02, - + .5826D+00, .2492D+00, .4467D+00, - + .6148D-01, -.4815D-02, -.1331D-04, -.1349D-04, .1568D-02, - + .5837D+00, .2537D+00, .4489D+00, - + .5562D-01, -.4317D-02, -.1167D-04, -.1186D-04, .1373D-02, - + .5844D+00, .2566D+00, .4503D+00, - + .5160D-01, -.3978D-02, -.1056D-04, -.1074D-04, .1245D-02, - + .5851D+00, .2590D+00, .4515D+00, - + .4632D-01, -.3538D-02, -.9102D-05, -.9281D-05, .1081D-02, - + .5859D+00, .2621D+00, .4530D+00 / - DATA ((PARTON(I,N,37),I=1,8),N=9,16)/ - + .4288D-01, -.3254D-02, -.8209D-05, -.8380D-05, .9763D-03, - + .5865D+00, .2642D+00, .4541D+00, - + .3718D-01, -.2787D-02, -.6782D-05, -.6951D-05, .8086D-03, - + .5873D+00, .2681D+00, .4559D+00, - + .3271D-01, -.2427D-02, -.5679D-05, -.5832D-05, .6838D-03, - + .5884D+00, .2714D+00, .4577D+00, - + .2928D-01, -.2153D-02, -.4856D-05, -.5001D-05, .5919D-03, - + .5892D+00, .2742D+00, .4591D+00, - + .2668D-01, -.1947D-02, -.4243D-05, -.4378D-05, .5244D-03, - + .5899D+00, .2765D+00, .4603D+00, - + .2394D-01, -.1732D-02, -.3616D-05, -.3744D-05, .4555D-03, - + .5905D+00, .2791D+00, .4616D+00, - + .2182D-01, -.1568D-02, -.3156D-05, -.3278D-05, .4037D-03, - + .5912D+00, .2813D+00, .4627D+00, - + .1999D-01, -.1427D-02, -.2772D-05, -.2884D-05, .3606D-03, - + .5917D+00, .2832D+00, .4637D+00 / - DATA ((PARTON(I,N,37),I=1,8),N=17,25)/ - + .1847D-01, -.1311D-02, -.2459D-05, -.2566D-05, .3258D-03, - + .5922D+00, .2850D+00, .4645D+00, - + .1674D-01, -.1180D-02, -.2112D-05, -.2210D-05, .2873D-03, - + .5928D+00, .2871D+00, .4656D+00, - + .1529D-01, -.1070D-02, -.1829D-05, -.1924D-05, .2560D-03, - + .5933D+00, .2891D+00, .4666D+00, - + .1399D-01, -.9733D-03, -.1591D-05, -.1678D-05, .2289D-03, - + .5939D+00, .2909D+00, .4675D+00, - + .1295D-01, -.8960D-03, -.1405D-05, -.1487D-05, .2077D-03, - + .5944D+00, .2925D+00, .4683D+00, - + .1196D-01, -.8229D-03, -.1231D-05, -.1308D-05, .1880D-03, - + .5948D+00, .2942D+00, .4692D+00, - + .1110D-01, -.7600D-03, -.1087D-05, -.1160D-05, .1714D-03, - + .5952D+00, .2956D+00, .4699D+00, - + .1032D-01, -.7026D-03, -.9605D-06, -.1028D-05, .1565D-03, - + .5956D+00, .2971D+00, .4706D+00, - + .9671D-02, -.6558D-03, -.8609D-06, -.9266D-06, .1446D-03, - + .5959D+00, .2983D+00, .4712D+00 / - DATA ((PARTON(I,N,38),I=1,8),N=1,8)/ - + .6635D-01, -.4608D-02, -.6014D-05, -.6063D-05, .1044D-02, - + .5930D+00, .2802D+00, .4638D+00, - + .5466D-01, -.3734D-02, -.5158D-05, -.5242D-05, .8956D-03, - + .5940D+00, .2853D+00, .4660D+00, - + .4770D-01, -.3221D-02, -.4521D-05, -.4616D-05, .7934D-03, - + .5948D+00, .2888D+00, .4677D+00, - + .4121D-01, -.2750D-02, -.3852D-05, -.3959D-05, .6896D-03, - + .5956D+00, .2925D+00, .4693D+00, - + .3501D-01, -.2306D-02, -.3179D-05, -.3286D-05, .5836D-03, - + .5965D+00, .2966D+00, .4712D+00, - + .3132D-01, -.2045D-02, -.2766D-05, -.2875D-05, .5178D-03, - + .5971D+00, .2992D+00, .4724D+00, - + .2882D-01, -.1870D-02, -.2483D-05, -.2589D-05, .4725D-03, - + .5974D+00, .3012D+00, .4732D+00, - + .2556D-01, -.1644D-02, -.2114D-05, -.2216D-05, .4126D-03, - + .5982D+00, .3041D+00, .4746D+00 / - DATA ((PARTON(I,N,38),I=1,8),N=9,16)/ - + .2347D-01, -.1499D-02, -.1906D-05, -.2000D-05, .3734D-03, - + .5988D+00, .3060D+00, .4756D+00, - + .2003D-01, -.1265D-02, -.1567D-05, -.1660D-05, .3090D-03, - + .5995D+00, .3095D+00, .4772D+00, - + .1738D-01, -.1086D-02, -.1298D-05, -.1384D-05, .2602D-03, - + .6003D+00, .3125D+00, .4786D+00, - + .1538D-01, -.9529D-03, -.1102D-05, -.1181D-05, .2241D-03, - + .6009D+00, .3150D+00, .4798D+00, - + .1387D-01, -.8536D-03, -.9531D-06, -.1024D-05, .1974D-03, - + .6015D+00, .3171D+00, .4808D+00, - + .1230D-01, -.7509D-03, -.7962D-06, -.8684D-06, .1701D-03, - + .6021D+00, .3196D+00, .4819D+00, - + .1111D-01, -.6731D-03, -.6882D-06, -.7557D-06, .1497D-03, - + .6025D+00, .3216D+00, .4828D+00, - + .1008D-01, -.6072D-03, -.5983D-06, -.6593D-06, .1328D-03, - + .6030D+00, .3232D+00, .4836D+00 / - DATA ((PARTON(I,N,38),I=1,8),N=17,25)/ - + .9242D-02, -.5534D-03, -.5239D-06, -.5800D-06, .1192D-03, - + .6035D+00, .3250D+00, .4845D+00, - + .8292D-02, -.4930D-03, -.4383D-06, -.4874D-06, .1042D-03, - + .6039D+00, .3269D+00, .4853D+00, - + .7502D-02, -.4433D-03, -.3673D-06, -.4179D-06, .9208D-04, - + .6043D+00, .3287D+00, .4861D+00, - + .6803D-02, -.3995D-03, -.3128D-06, -.3573D-06, .8169D-04, - + .6047D+00, .3304D+00, .4869D+00, - + .6248D-02, -.3649D-03, -.2685D-06, -.3093D-06, .7365D-04, - + .6051D+00, .3319D+00, .4877D+00, - + .5724D-02, -.3325D-03, -.2250D-06, -.2648D-06, .6623D-04, - + .6056D+00, .3332D+00, .4883D+00, - + .5274D-02, -.3049D-03, -.1902D-06, -.2281D-06, .6009D-04, - + .6059D+00, .3346D+00, .4890D+00, - + .4865D-02, -.2798D-03, -.1607D-06, -.1945D-06, .5457D-04, - + .6062D+00, .3359D+00, .4896D+00, - + .4531D-02, -.2595D-03, -.1380D-06, -.1726D-06, .5023D-04, - + .6064D+00, .3371D+00, .4900D+00 / - DATA ((PARTON(I,N,39),I=1,8),N=1,8)/ - + .3478D-01, -.1972D-02, -.1006D-05, -.1034D-05, .2638D-03, - + .6056D+00, .3283D+00, .4870D+00, - + .2799D-01, -.1562D-02, -.8769D-06, -.9135D-06, .2637D-03, - + .6063D+00, .3329D+00, .4888D+00, - + .2403D-01, -.1326D-02, -.7739D-06, -.8214D-06, .2471D-03, - + .6071D+00, .3360D+00, .4903D+00, - + .2041D-01, -.1113D-02, -.6622D-06, -.7129D-06, .2221D-03, - + .6079D+00, .3393D+00, .4917D+00, - + .1701D-01, -.9164D-03, -.5500D-06, -.6000D-06, .1913D-03, - + .6083D+00, .3429D+00, .4931D+00, - + .1502D-01, -.8024D-03, -.4793D-06, -.5333D-06, .1705D-03, - + .6090D+00, .3453D+00, .4942D+00, - + .1369D-01, -.7267D-03, -.4265D-06, -.4790D-06, .1554D-03, - + .6094D+00, .3471D+00, .4950D+00, - + .1198D-01, -.6302D-03, -.3618D-06, -.4087D-06, .1352D-03, - + .6099D+00, .3497D+00, .4961D+00 / - DATA ((PARTON(I,N,39),I=1,8),N=9,16)/ - + .1089D-01, -.5693D-03, -.3341D-06, -.3771D-06, .1217D-03, - + .6103D+00, .3514D+00, .4968D+00, - + .9127D-02, -.4719D-03, -.2825D-06, -.3275D-06, .9934D-04, - + .6110D+00, .3543D+00, .4982D+00, - + .7794D-02, -.3991D-03, -.2325D-06, -.2728D-06, .8246D-04, - + .6116D+00, .3571D+00, .4993D+00, - + .6801D-02, -.3453D-03, -.1996D-06, -.2364D-06, .7002D-04, - + .6121D+00, .3594D+00, .5003D+00, - + .6066D-02, -.3059D-03, -.1708D-06, -.2016D-06, .6087D-04, - + .6125D+00, .3612D+00, .5011D+00, - + .5309D-02, -.2656D-03, -.1368D-06, -.1712D-06, .5172D-04, - + .6130D+00, .3634D+00, .5021D+00, - + .4738D-02, -.2354D-03, -.1137D-06, -.1491D-06, .4494D-04, - + .6133D+00, .3651D+00, .5027D+00, - + .4257D-02, -.2102D-03, -.1001D-06, -.1289D-06, .3939D-04, - + .6137D+00, .3667D+00, .5035D+00 / - DATA ((PARTON(I,N,39),I=1,8),N=17,25)/ - + .3865D-02, -.1898D-03, -.8508D-07, -.1119D-06, .3502D-04, - + .6140D+00, .3682D+00, .5041D+00, - + .3427D-02, -.1671D-03, -.6291D-07, -.8601D-07, .3018D-04, - + .6144D+00, .3699D+00, .5048D+00, - + .3067D-02, -.1486D-03, -.4513D-07, -.6973D-07, .2642D-04, - + .6147D+00, .3715D+00, .5055D+00, - + .2752D-02, -.1326D-03, -.3239D-07, -.5570D-07, .2323D-04, - + .6150D+00, .3731D+00, .5062D+00, - + .2505D-02, -.1200D-03, -.2331D-07, -.4291D-07, .2082D-04, - + .6154D+00, .3743D+00, .5067D+00, - + .2274D-02, -.1084D-03, -.1150D-07, -.3030D-07, .1863D-04, - + .6158D+00, .3757D+00, .5074D+00, - + .2077D-02, -.9849D-04, -.2525D-08, -.2019D-07, .1687D-04, - + .6160D+00, .3769D+00, .5079D+00, - + .1899D-02, -.8963D-04, .5176D-08, -.1069D-07, .1531D-04, - + .6162D+00, .3780D+00, .5084D+00, - + .1756D-02, -.8252D-04, .8423D-08, -.7102D-08, .1414D-04, - + .6165D+00, .3792D+00, .5088D+00 / - DATA ((PARTON(I,N,40),I=1,8),N=1,8)/ - + .1449D-01, -.6411D-03, -.5186D-07, -.6286D-07, .5627D-04, - + .6178D+00, .3819D+00, .5105D+00, - + .1133D-01, -.4937D-03, -.5710D-07, -.7012D-07, .6586D-04, - + .6184D+00, .3860D+00, .5120D+00, - + .9540D-02, -.4111D-03, -.6630D-07, -.8240D-07, .6378D-04, - + .6189D+00, .3886D+00, .5131D+00, - + .7932D-02, -.3380D-03, -.6432D-07, -.8160D-07, .5758D-04, - + .6195D+00, .3916D+00, .5143D+00, - + .6458D-02, -.2718D-03, -.6911D-07, -.8806D-07, .4908D-04, - + .6201D+00, .3946D+00, .5155D+00, - + .5613D-02, -.2343D-03, -.6593D-07, -.8681D-07, .4303D-04, - + .6205D+00, .3966D+00, .5163D+00, - + .5055D-02, -.2097D-03, -.6614D-07, -.8189D-07, .3875D-04, - + .6208D+00, .3982D+00, .5169D+00, - + .4349D-02, -.1789D-03, -.5643D-07, -.7431D-07, .3290D-04, - + .6210D+00, .4004D+00, .5177D+00 / - DATA ((PARTON(I,N,40),I=1,8),N=9,16)/ - + .3906D-02, -.1597D-03, -.6314D-07, -.7607D-07, .2906D-04, - + .6215D+00, .4018D+00, .5184D+00, - + .3204D-02, -.1295D-03, -.6134D-07, -.8005D-07, .2283D-04, - + .6221D+00, .4045D+00, .5195D+00, - + .2683D-02, -.1074D-03, -.5120D-07, -.6406D-07, .1821D-04, - + .6225D+00, .4068D+00, .5204D+00, - + .2302D-02, -.9139D-04, -.4539D-07, -.6033D-07, .1502D-04, - + .6226D+00, .4087D+00, .5210D+00, - + .2025D-02, -.7982D-04, -.3787D-07, -.5084D-07, .1266D-04, - + .6230D+00, .4103D+00, .5217D+00, - + .1744D-02, -.6820D-04, -.2532D-07, -.4179D-07, .1048D-04, - + .6234D+00, .4121D+00, .5224D+00, - + .1535D-02, -.5962D-04, -.1970D-07, -.3691D-07, .8883D-05, - + .6237D+00, .4137D+00, .5230D+00, - + .1361D-02, -.5253D-04, -.1805D-07, -.3042D-07, .7600D-05, - + .6240D+00, .4151D+00, .5236D+00 / - DATA ((PARTON(I,N,40),I=1,8),N=17,25)/ - + .1221D-02, -.4688D-04, -.1324D-07, -.2533D-07, .6623D-05, - + .6243D+00, .4163D+00, .5241D+00, - + .1068D-02, -.4069D-04, -.1049D-08, -.8794D-08, .5615D-05, - + .6245D+00, .4179D+00, .5247D+00, - + .9431D-03, -.3572D-04, .8277D-08, -.4049D-08, .4873D-05, - + .6248D+00, .4192D+00, .5252D+00, - + .8355D-03, -.3145D-04, .1544D-07, .1427D-08, .4333D-05, - + .6251D+00, .4206D+00, .5258D+00, - + .7519D-03, -.2814D-04, .1623D-07, .8648D-08, .3902D-05, - + .6255D+00, .4217D+00, .5263D+00, - + .6747D-03, -.2510D-04, .2581D-07, .1444D-07, .3563D-05, - + .6256D+00, .4231D+00, .5268D+00, - + .6098D-03, -.2259D-04, .3213D-07, .2182D-07, .3327D-05, - + .6258D+00, .4241D+00, .5272D+00, - + .5519D-03, -.2033D-04, .3618D-07, .2836D-07, .3154D-05, - + .6261D+00, .4252D+00, .5277D+00, - + .5054D-03, -.1855D-04, .3801D-07, .2734D-07, .3055D-05, - + .6265D+00, .4262D+00, .5281D+00 / - DATA ((PARTON(I,N,41),I=1,8),N=1,8)/ - + .3993D-02, -.1267D-03, .5535D-07, .5259D-07, .9500D-05, - + .6296D+00, .4442D+00, .5349D+00, - + .3006D-02, -.9391D-04, .3221D-07, .3289D-07, .1140D-04, - + .6301D+00, .4476D+00, .5361D+00, - + .2464D-02, -.7613D-04, .1040D-07, .7119D-08, .1062D-04, - + .6305D+00, .4497D+00, .5369D+00, - + .1992D-02, -.6085D-04, -.4414D-08, -.7619D-08, .8795D-05, - + .6306D+00, .4520D+00, .5375D+00, - + .1572D-02, -.4740D-04, -.2607D-07, -.2984D-07, .6771D-05, - + .6313D+00, .4545D+00, .5386D+00, - + .1337D-02, -.3999D-04, -.3003D-07, -.3683D-07, .5358D-05, - + .6312D+00, .4560D+00, .5389D+00, - + .1186D-02, -.3522D-04, -.3362D-07, -.3729D-07, .4483D-05, - + .6316D+00, .4572D+00, .5395D+00, - + .9974D-03, -.2935D-04, -.3058D-07, -.3784D-07, .3268D-05, - + .6319D+00, .4589D+00, .5401D+00 / - DATA ((PARTON(I,N,41),I=1,8),N=9,16)/ - + .8817D-03, -.2576D-04, -.4033D-07, -.4225D-07, .2546D-05, - + .6320D+00, .4601D+00, .5405D+00, - + .7023D-03, -.2025D-04, -.4264D-07, -.4910D-07, .1504D-05, - + .6324D+00, .4620D+00, .5412D+00, - + .5731D-03, -.1634D-04, -.3226D-07, -.3866D-07, .7849D-06, - + .6327D+00, .4640D+00, .5419D+00, - + .4809D-03, -.1357D-04, -.3104D-07, -.3604D-07, .3395D-06, - + .6330D+00, .4654D+00, .5425D+00, - + .4153D-03, -.1161D-04, -.2408D-07, -.2745D-07, -.2018D-07, - + .6332D+00, .4667D+00, .5429D+00, - + .3499D-03, -.9692D-05, -.1209D-07, -.2287D-07, -.1419D-06, - + .6334D+00, .4683D+00, .5434D+00, - + .3025D-03, -.8304D-05, -.6857D-08, -.1727D-07, -.1744D-06, - + .6339D+00, .4695D+00, .5440D+00, - + .2637D-03, -.7168D-05, -.4346D-08, -.1268D-07, -.1795D-06, - + .6339D+00, .4707D+00, .5443D+00 / - DATA ((PARTON(I,N,41),I=1,8),N=17,25)/ - + .2331D-03, -.6285D-05, -.7586D-09, -.6895D-08, -.2010D-06, - + .6345D+00, .4718D+00, .5450D+00, - + .1999D-03, -.5337D-05, .1179D-07, .7092D-08, -.2351D-06, - + .6349D+00, .4733D+00, .5456D+00, - + .1735D-03, -.4598D-05, .2151D-07, .1144D-07, -.1238D-06, - + .6352D+00, .4748D+00, .5462D+00, - + .1511D-03, -.3955D-05, .2573D-07, .1803D-07, .8352D-08, - + .6357D+00, .4763D+00, .5468D+00, - + .1341D-03, -.3475D-05, .2997D-07, .2304D-07, .1166D-06, - + .6361D+00, .4776D+00, .5474D+00, - + .1185D-03, -.3048D-05, .3800D-07, .3112D-07, .2028D-06, - + .6367D+00, .4791D+00, .5482D+00, - + .1056D-03, -.2698D-05, .4448D-07, .3610D-07, .4178D-06, - + .6374D+00, .4805D+00, .5490D+00, - + .9425D-04, -.2396D-05, .4668D-07, .4265D-07, .5900D-06, - + .6378D+00, .4824D+00, .5497D+00, - + .8532D-04, -.2137D-05, .5031D-07, .4115D-07, .7529D-06, - + .6384D+00, .4839D+00, .5504D+00 / -C - X = DX - Q = DQ - Q2 = DQ*DQ -*...CHECK OF X AND Q2 VALUES : -C IF ( (X.LT.1.0D-4) .OR. (X.GT.1.0D0) ) THEN -C WRITE(6,91) -C 91 FORMAT (2X,'PARTON INTERPOLATION: X OUT OF RANGE') -C GOTO 60 -C ENDIF -C IF ( (Q2.LT.0.4D0) .OR. (Q2.GT.1.D4) ) THEN -C WRITE(6,92) -C 92 FORMAT (2X,'PARTON INTERPOLATION: Q2 OUT OF RANGE') -C GOTO 60 -C ENDIF -C -*...INITIALIZATION : -* SELECTION AND READING OF THE GRID : -* FILE - NO. = 11 FOR NLO 'STANDARD' SCENARIO ( FIRST NUMBER IN THE -* GRID: 1.040D-03 ) -* FILE - NO. = 22 FOR NLO 'VALENCE' SCENARIO ( FIRST NUMBER IN THE -* GRID: 9.740D-04 ) -* FILE - NO. = 33 FOR LO 'STANDARD' SCENARIO ( FIRST NUMBER IN THE -* GRID: 1.731D-03 ) -* FILE - NO. = 44 FOR LO 'VALENCE' SCENARIO ( FIRST NUMBER IN THE -* GRID: 1.846D-03 ) - IF (IINI.NE.0) GOTO 16 -C IF (ISET.EQ.1) THEN -C IIREAD=11 -C OPEN(UNIT=11,FILE='stdnloa1.grid',STATUS='OLD') -C ELSE IF (ISET.EQ.2) THEN -C IIREAD=22 -C OPEN(UNIT=22,FILE='valnloa1.grid',STATUS='OLD') -C ELSE IF (ISET.EQ.3) THEN -C IIREAD=33 -C OPEN(UNIT=33,FILE='stdloa1.grid',STATUS='OLD') -C ELSE IF (ISET.EQ.4) THEN -C IIREAD=44 -C OPEN(UNIT=44,FILE='valloa1.grid',STATUS='OLD') -C ELSE -C WRITE(6,93) -C 93 FORMAT (2X,'PARTON INTERPOLATION: ISET OUT OF RANGE') -C GOTO 60 -C END IF -C -C DO 15 M = 1, NX-1 -C DO 15 N = 1, NQ -C READ(IIREAD,90) PARTON(1,N,M), PARTON(2,N,M), PARTON(3,N,M), -C 1 PARTON(4,N,M), PARTON(5,N,M), PARTON(6,N,M), -C 2 PARTON(7,N,M), PARTON(8,N,M) -C 90 FORMAT (8(1PE10.3)) -C 15 CONTINUE -C - IINI = 1 -*....ARRAYS FOR THE INTERPOLATION SUBROUTINE : - DO 10 IQ = 1, NQ - DO 20 IX = 1, NX-1 - XB0 = XB(IX) - XB1 = 1.D0-XB(IX) - XUVF(IX,IQ) = PARTON(1,IQ,IX) / (XB1**3 * XB0**0.7) - XDVF(IX,IQ) = PARTON(2,IQ,IX) / (XB1**4 * XB0**0.6) - XQBF(IX,IQ) = PARTON(3,IQ,IX) / (XB1**7 * XB0**0.3) - XSF(IX,IQ) = PARTON(4,IQ,IX) / (XB1**7 * XB0**0.3) - XGF(IX,IQ) = PARTON(5,IQ,IX) / (XB1**10 * XB0**0.3) - XAPF(IX,IQ) = PARTON(6,IQ,IX) / XB0 - XANF(IX,IQ) = PARTON(7,IQ,IX) / XB0 - XADF(IX,IQ) = PARTON(8,IQ,IX) / XB0 - 20 CONTINUE - XUVF(NX,IQ) = 0.D0 - XDVF(NX,IQ) = 0.D0 - XQBF(NX,IQ) = 0.D0 - XSF(NX,IQ) = 0.D0 - XGF(NX,IQ) = 0.D0 - XAPF(NX,IQ) = 0.D0 - XANF(NX,IQ) = 0.D0 - XADF(NX,IQ) = 0.D0 - 10 CONTINUE - NA(1) = NX - NA(2) = NQ - DO 30 IX = 1, NX - ARRF(IX) = LOG(XB(IX)) - 30 CONTINUE - DO 40 IQ = 1, NQ - ARRF(NX+IQ) = LOG(QS(IQ)) - 40 CONTINUE - 16 CONTINUE -C -*...INTERPOLATION : - XT(1) = LOG(X) - XT(2) = LOG(Q2) - UV = DBFINT(NARG,XT,NA,ARRF,XUVF) * (1.D0-X)**3 * X**0.7 - DUV = UV - DV = DBFINT(NARG,XT,NA,ARRF,XDVF) * (1.D0-X)**4 * X**0.6 - DDV = DV - QB = DBFINT(NARG,XT,NA,ARRF,XQBF) * (1.D0-X)**7 * X**0.3 - DSEA = QB - ST = DBFINT(NARG,XT,NA,ARRF,XSF) * (1.D0-X)**7 * X**0.3 - DSTR = ST - DCHM = ZEROD - DBOT = ZEROD - DTOP = ZEROD - GL = DBFINT(NARG,XT,NA,ARRF,XGF) * (1.D0-X)**10 * X**0.3 - DGL = GL - A1P = DBFINT(NARG,XT,NA,ARRF,XAPF) * X - A1N = DBFINT(NARG,XT,NA,ARRF,XANF) * X - A1D = DBFINT(NARG,XT,NA,ARRF,XADF) * X - 60 RETURN - END diff --git a/PDF/spdf/grsvh2.F b/PDF/spdf/grsvh2.F deleted file mode 100644 index a349c261d07..00000000000 --- a/PDF/spdf/grsvh2.F +++ /dev/null @@ -1,2372 +0,0 @@ -#include "pdf/pilot.h" -********************************************************************* -* * -* POLARIZED RADIATIVELY GENERATED LO AND NLO PARTON DENSITIES * -* AND DIS ASYMMETRIES * -* * -* M. GLUCK, E. REYA, M. STRATMANN AND W. VOGELSANG, * -* (PHYS. REV. D53 (1996) 4775) * -* PROBLEMS/QUESTIONS TO VOGELSANG@V2.RL.AC.UK * -* OR TO STRAT@HAL1.PHYSIK.UNI-DORTMUND.DE * -* * -* INPUT: ISET = number of the parton set : * -* ISET = 1 'STANDARD' SCENARIO, NEXT-TO-LEADING ORDER * -* (MS-bar) * -* (DATA FILE 'STDNLOA1.GRID' UNIT=11, TO BE * -* DEFINED BY THE USER ) * -* ISET = 2 'VALENCE' SCENARIO, NEXT-TO-LEADING ORDER * -* (MS-bar) * -* (DATA FILE 'VALNLOA1.GRID' UNIT=22, TO BE * -* DEFINED BY THE USER ) * -* ISET = 3 'STANDARD' SCENARIO, LEADING ORDER * -* (DATA FILE 'STDLOA1.GRID' UNIT=33, TO BE * -* DEFINED BY THE USER ) * -* ISET = 4 'VALENCE' SCENARIO, LEADING ORDER * -* (DATA FILE 'VALLOA1.GRID' UNIT=44, TO BE * -* DEFINED BY THE USER ) * -* * -* X = Bjorken-x (between 1.E-4 and 1) * -* Q2 = scale in GeV**2 (between 0.4 and 1.E4) * -* (for values outside the allowed range the program * -* writes a warning and extrapolates to the x and * -* Q2 values requested) * -* * -* OUTPUT: UV = x * ( DELTA u - DELTA u(bar) ), * -* DV = x * ( DELTA d - DELTA d(bar) ), * -* QB = x * POLARIZED LIGHT SEA, * -* QB= x * ( (DELTA U(BAR) + DELTA D(BAR))/2 ) * -* ST = x * DELTA STRANGE = x * DELTA STRANGE(BAR) * -* GL = x * DELTA GLUON * -* * -* ( For the parton distributions always x times * -* the distribution is returned ) * -* * -* A1P = A1-Proton * -* A1N = A1-Neutron * -* A1D = A1-Deuteron * -* * -* The sets are the result of a combined fit to * -* data for the spin asymmetries A_1 (p,n,d) * -* * -* Note: No charm is included * -* * -* COMMON: The main program or the calling routine has to have * -* a common block COMMON / INTINI / IINI , and IINI * -* has always to be zero when PARPOL is called for the * -* first time or when 'ISET' has been changed. * -* * -********************************************************************* -* - SUBROUTINE GRSVH2 (DX,DQ,DUV,DDV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL) -C SUBROUTINE GRSVH2 (X, Q2, UV, DV, QB, ST, GL, A1P, A1N, A1D) -#include "pdf/impdp.inc" - PARAMETER (NPART=8, NX=42, NQ=25, NARG=2) - DIMENSION - + XUVF(NX,NQ), XDVF(NX,NQ), XQBF(NX,NQ), - 1 XSF(NX,NQ), XGF(NX,NQ), - 2 XAPF(NX,NQ), XANF(NX,NQ), XADF(NX,NQ), - 3 QS(NQ), XB(NX), XT(NARG), NA(NARG), ARRF(NX+NQ) - DIMENSION - + PARTON (NPART,NQ,NX-1) - COMMON / GRSVA1 / A1P, A1N, A1D -C COMMON / INTINI / IINI - SAVE XUVF, XDVF, XQBF, XSF, XGF, XAPF, XANF, XADF, NA, ARRF - DATA ZEROD/0.D0/ -*...BJORKEN-X AND Q**2 VALUES OF THE GRID : - DATA QS / 0.4D0, 0.5d0, 0.6d0, 0.75D0, 1.0D0, - 1 1.25d0, 1.5D0, 2.d0, 2.5D0, - 1 4.0D0, 6.4D0, 1.0D1, 1.5D1, 2.5D1, 4.0D1, 6.4D1, - 2 1.0D2, 1.8D2, 3.2D2, 5.8D2, 1.0D3, 1.8D3, - 3 3.2D3, 5.8D3, 1.0D4 / - DATA XB / 1.D-4, 1.5D-4, 2.2D-4, 3.2D-4, 4.8D-4, 7.D-4, - 2 1.D-3, 1.5D-3, 2.2D-3, 3.2D-3, 4.8D-3, 7.D-3, - 3 1.D-2, 1.5D-2, 2.2D-2, 3.2D-2, 5.0D-2, 7.5D-2, - 4 0.1D0, 0.125D0, 0.15D0, 0.175D0, 0.2D0, 0.225D0, - + 0.25D0, 0.275D0, - 5 0.3D0, 0.325D0, 0.35D0, 0.375D0, 0.4D0, 0.45D0, - + 0.5D0, 0.55D0, - 6 0.6D0, 0.65D0, 0.7D0, 0.75D0, 0.8D0, 0.85D0, - + 0.9D0, 1.0D0 / - DATA IINI/0/ -C - DATA ((PARTON(I,N,1),I=1,8),N=1,8)/ - + .9740D-03, -.3008D-02, -.3088D-03, -.5819D-04, .8630D-03, - + -.1385D-02, -.2221D-01, -.1087D-01, - + .1208D-02, -.3194D-02, -.4786D-03, -.1735D-03, .3024D-02, - + -.1334D-02, -.1431D-01, -.7178D-02, - + .1382D-02, -.3327D-02, -.6301D-03, -.2854D-03, .5441D-02, - + -.1382D-02, -.1125D-01, -.5785D-02, - + .1579D-02, -.3474D-02, -.8216D-03, -.4332D-03, .8997D-02, - + -.1456D-02, -.9099D-02, -.4831D-02, - + .1810D-02, -.3641D-02, -.1069D-02, -.6303D-03, .1430D-01, - + -.1537D-02, -.7498D-02, -.4132D-02, - + .1975D-02, -.3757D-02, -.1258D-02, -.7834D-03, .1884D-01, - + -.1583D-02, -.6696D-02, -.3784D-02, - + .2103D-02, -.3846D-02, -.1408D-02, -.9070D-03, .2275D-01, - + -.1609D-02, -.6200D-02, -.3568D-02, - + .2293D-02, -.3975D-02, -.1639D-02, -.1098D-02, .2924D-01, - + -.1633D-02, -.5602D-02, -.3305D-02 / - DATA ((PARTON(I,N,1),I=1,8),N=9,16)/ - + .2434D-02, -.4068D-02, -.1804D-02, -.1233D-02, .3442D-01, - + -.1635D-02, -.5254D-02, -.3147D-02, - + .2708D-02, -.4246D-02, -.2109D-02, -.1484D-02, .4527D-01, - + -.1605D-02, -.4704D-02, -.2882D-02, - + .2965D-02, -.4409D-02, -.2404D-02, -.1728D-02, .5690D-01, - + -.1564D-02, -.4264D-02, -.2662D-02, - + .3196D-02, -.4553D-02, -.2674D-02, -.1952D-02, .6857D-01, - + -.1521D-02, -.3925D-02, -.2487D-02, - + .3397D-02, -.4676D-02, -.2911D-02, -.2150D-02, .7962D-01, - + -.1481D-02, -.3668D-02, -.2351D-02, - + .3639D-02, -.4822D-02, -.3195D-02, -.2388D-02, .9405D-01, - + -.1431D-02, -.3400D-02, -.2206D-02, - + .3852D-02, -.4948D-02, -.3443D-02, -.2596D-02, .1078D+00, - + -.1386D-02, -.3193D-02, -.2091D-02, - + .4059D-02, -.5070D-02, -.3683D-02, -.2798D-02, .1220D+00, - + -.1343D-02, -.3014D-02, -.1989D-02 / - DATA ((PARTON(I,N,1),I=1,8),N=17,25)/ - + .4251D-02, -.5181D-02, -.3905D-02, -.2984D-02, .1360D+00, - + -.1304D-02, -.2862D-02, -.1902D-02, - + .4496D-02, -.5322D-02, -.4186D-02, -.3219D-02, .1550D+00, - + -.1256D-02, -.2690D-02, -.1801D-02, - + .4729D-02, -.5453D-02, -.4449D-02, -.3440D-02, .1742D+00, - + -.1211D-02, -.2543D-02, -.1714D-02, - + .4962D-02, -.5584D-02, -.4709D-02, -.3658D-02, .1946D+00, - + -.1169D-02, -.2410D-02, -.1634D-02, - + .5171D-02, -.5700D-02, -.4936D-02, -.3848D-02, .2137D+00, - + -.1132D-02, -.2302D-02, -.1568D-02, - + .5390D-02, -.5820D-02, -.5170D-02, -.4043D-02, .2347D+00, - + -.1094D-02, -.2198D-02, -.1503D-02, - + .5599D-02, -.5934D-02, -.5388D-02, -.4224D-02, .2556D+00, - + -.1060D-02, -.2106D-02, -.1445D-02, - + .5810D-02, -.6048D-02, -.5601D-02, -.4400D-02, .2776D+00, - + -.1026D-02, -.2021D-02, -.1391D-02, - + .5999D-02, -.6149D-02, -.5786D-02, -.4552D-02, .2980D+00, - + -.9962D-03, -.1949D-02, -.1345D-02 / - DATA ((PARTON(I,N,2),I=1,8),N=1,8)/ - + .1310D-02, -.3489D-02, -.4222D-03, -.7981D-04, .1214D-02, - + -.9882D-03, -.2526D-01, -.1209D-01, - + .1617D-02, -.3712D-02, -.6388D-03, -.2264D-03, .3993D-02, - + -.1223D-02, -.1717D-01, -.8439D-02, - + .1845D-02, -.3872D-02, -.8259D-03, -.3627D-03, .6974D-02, - + -.1404D-02, -.1383D-01, -.6980D-02, - + .2102D-02, -.4047D-02, -.1057D-02, -.5375D-03, .1125D-01, - + -.1581D-02, -.1140D-01, -.5944D-02, - + .2403D-02, -.4247D-02, -.1348D-02, -.7647D-03, .1750D-01, - + -.1740D-02, -.9533D-02, -.5156D-02, - + .2618D-02, -.4386D-02, -.1566D-02, -.9376D-03, .2275D-01, - + -.1820D-02, -.8570D-02, -.4749D-02, - + .2783D-02, -.4492D-02, -.1738D-02, -.1075D-02, .2725D-01, - + -.1865D-02, -.7966D-02, -.4493D-02, - + .3029D-02, -.4646D-02, -.1998D-02, -.1285D-02, .3463D-01, - + -.1908D-02, -.7222D-02, -.4171D-02 / - DATA ((PARTON(I,N,2),I=1,8),N=9,16)/ - + .3212D-02, -.4759D-02, -.2182D-02, -.1432D-02, .4047D-01, - + -.1912D-02, -.6776D-02, -.3969D-02, - + .3564D-02, -.4971D-02, -.2518D-02, -.1699D-02, .5264D-01, - + -.1873D-02, -.6063D-02, -.3625D-02, - + .3894D-02, -.5166D-02, -.2839D-02, -.1956D-02, .6559D-01, - + -.1822D-02, -.5494D-02, -.3341D-02, - + .4190D-02, -.5337D-02, -.3130D-02, -.2190D-02, .7849D-01, - + -.1769D-02, -.5057D-02, -.3117D-02, - + .4446D-02, -.5484D-02, -.3383D-02, -.2394D-02, .9066D-01, - + -.1721D-02, -.4725D-02, -.2943D-02, - + .4754D-02, -.5658D-02, -.3683D-02, -.2637D-02, .1065D+00, - + -.1661D-02, -.4377D-02, -.2757D-02, - + .5026D-02, -.5809D-02, -.3942D-02, -.2846D-02, .1214D+00, - + -.1605D-02, -.4111D-02, -.2610D-02, - + .5290D-02, -.5954D-02, -.4191D-02, -.3048D-02, .1369D+00, - + -.1553D-02, -.3878D-02, -.2479D-02 / - DATA ((PARTON(I,N,2),I=1,8),N=17,25)/ - + .5533D-02, -.6086D-02, -.4419D-02, -.3231D-02, .1520D+00, - + -.1505D-02, -.3683D-02, -.2369D-02, - + .5843D-02, -.6253D-02, -.4704D-02, -.3461D-02, .1724D+00, - + -.1446D-02, -.3459D-02, -.2240D-02, - + .6137D-02, -.6410D-02, -.4969D-02, -.3673D-02, .1930D+00, - + -.1391D-02, -.3268D-02, -.2127D-02, - + .6432D-02, -.6565D-02, -.5227D-02, -.3879D-02, .2147D+00, - + -.1339D-02, -.3094D-02, -.2024D-02, - + .6695D-02, -.6702D-02, -.5449D-02, -.4056D-02, .2350D+00, - + -.1292D-02, -.2954D-02, -.1939D-02, - + .6971D-02, -.6845D-02, -.5676D-02, -.4235D-02, .2572D+00, - + -.1246D-02, -.2818D-02, -.1855D-02, - + .7234D-02, -.6980D-02, -.5883D-02, -.4397D-02, .2793D+00, - + -.1202D-02, -.2698D-02, -.1781D-02, - + .7499D-02, -.7115D-02, -.6084D-02, -.4552D-02, .3023D+00, - + -.1160D-02, -.2586D-02, -.1710D-02, - + .7736D-02, -.7235D-02, -.6255D-02, -.4684D-02, .3237D+00, - + -.1122D-02, -.2492D-02, -.1650D-02 / - DATA ((PARTON(I,N,3),I=1,8),N=1,8)/ - + .1734D-02, -.4022D-02, -.5654D-03, -.1057D-03, .1639D-02, - + -.4290D-03, -.2842D-01, -.1329D-01, - + .2131D-02, -.4286D-02, -.8356D-03, -.2873D-03, .5118D-02, - + -.9770D-03, -.2028D-01, -.9756D-02, - + .2425D-02, -.4477D-02, -.1062D-02, -.4496D-03, .8715D-02, - + -.1316D-02, -.1673D-01, -.8270D-02, - + .2754D-02, -.4685D-02, -.1335D-02, -.6522D-03, .1376D-01, - + -.1617D-02, -.1406D-01, -.7171D-02, - + .3140D-02, -.4923D-02, -.1672D-02, -.9089D-03, .2098D-01, - + -.1873D-02, -.1191D-01, -.6302D-02, - + .3415D-02, -.5089D-02, -.1920D-02, -.1100D-02, .2697D-01, - + -.2000D-02, -.1077D-01, -.5839D-02, - + .3626D-02, -.5214D-02, -.2113D-02, -.1251D-02, .3205D-01, - + -.2070D-02, -.1005D-01, -.5537D-02, - + .3939D-02, -.5398D-02, -.2402D-02, -.1477D-02, .4034D-01, - + -.2137D-02, -.9138D-02, -.5152D-02 / - DATA ((PARTON(I,N,3),I=1,8),N=9,16)/ - + .4171D-02, -.5531D-02, -.2604D-02, -.1633D-02, .4685D-01, - + -.2146D-02, -.8582D-02, -.4901D-02, - + .4617D-02, -.5783D-02, -.2971D-02, -.1915D-02, .6035D-01, - + -.2101D-02, -.7679D-02, -.4467D-02, - + .5033D-02, -.6013D-02, -.3317D-02, -.2182D-02, .7462D-01, - + -.2043D-02, -.6963D-02, -.4113D-02, - + .5406D-02, -.6217D-02, -.3626D-02, -.2422D-02, .8875D-01, - + -.1983D-02, -.6409D-02, -.3832D-02, - + .5728D-02, -.6390D-02, -.3893D-02, -.2629D-02, .1020D+00, - + -.1928D-02, -.5990D-02, -.3616D-02, - + .6115D-02, -.6596D-02, -.4206D-02, -.2871D-02, .1191D+00, - + -.1857D-02, -.5551D-02, -.3382D-02, - + .6455D-02, -.6774D-02, -.4474D-02, -.3078D-02, .1353D+00, - + -.1792D-02, -.5212D-02, -.3198D-02, - + .6784D-02, -.6945D-02, -.4729D-02, -.3275D-02, .1519D+00, - + -.1730D-02, -.4916D-02, -.3034D-02 / - DATA ((PARTON(I,N,3),I=1,8),N=17,25)/ - + .7088D-02, -.7101D-02, -.4959D-02, -.3451D-02, .1681D+00, - + -.1673D-02, -.4669D-02, -.2895D-02, - + .7474D-02, -.7298D-02, -.5244D-02, -.3670D-02, .1899D+00, - + -.1603D-02, -.4383D-02, -.2732D-02, - + .7840D-02, -.7483D-02, -.5505D-02, -.3867D-02, .2116D+00, - + -.1537D-02, -.4140D-02, -.2592D-02, - + .8207D-02, -.7666D-02, -.5756D-02, -.4056D-02, .2346D+00, - + -.1473D-02, -.3917D-02, -.2461D-02, - + .8532D-02, -.7827D-02, -.5970D-02, -.4214D-02, .2559D+00, - + -.1417D-02, -.3738D-02, -.2353D-02, - + .8874D-02, -.7995D-02, -.6184D-02, -.4371D-02, .2792D+00, - + -.1359D-02, -.3562D-02, -.2247D-02, - + .9199D-02, -.8153D-02, -.6377D-02, -.4510D-02, .3022D+00, - + -.1306D-02, -.3408D-02, -.2152D-02, - + .9526D-02, -.8312D-02, -.6560D-02, -.4639D-02, .3262D+00, - + -.1253D-02, -.3264D-02, -.2062D-02, - + .9819D-02, -.8453D-02, -.6714D-02, -.4745D-02, .3483D+00, - + -.1207D-02, -.3142D-02, -.1985D-02 / - DATA ((PARTON(I,N,4),I=1,8),N=1,8)/ - + .2283D-02, -.4630D-02, -.7502D-03, -.1369D-03, .2158D-02, - + .3402D-03, -.3178D-01, -.1446D-01, - + .2792D-02, -.4946D-02, -.1083D-02, -.3583D-03, .6442D-02, - + -.5442D-03, -.2375D-01, -.1114D-01, - + .3168D-02, -.5172D-02, -.1353D-02, -.5486D-03, .1072D-01, - + -.1067D-02, -.2005D-01, -.9671D-02, - + .3588D-02, -.5420D-02, -.1672D-02, -.7799D-03, .1660D-01, - + -.1519D-02, -.1714D-01, -.8537D-02, - + .4079D-02, -.5702D-02, -.2058D-02, -.1065D-02, .2485D-01, - + -.1894D-02, -.1472D-01, -.7595D-02, - + .4427D-02, -.5899D-02, -.2336D-02, -.1274D-02, .3162D-01, - + -.2077D-02, -.1339D-01, -.7071D-02, - + .4695D-02, -.6048D-02, -.2551D-02, -.1436D-02, .3731D-01, - + -.2179D-02, -.1253D-01, -.6723D-02, - + .5091D-02, -.6266D-02, -.2868D-02, -.1676D-02, .4652D-01, - + -.2279D-02, -.1144D-01, -.6269D-02 / - DATA ((PARTON(I,N,4),I=1,8),N=9,16)/ - + .5383D-02, -.6424D-02, -.3088D-02, -.1840D-02, .5372D-01, - + -.2298D-02, -.1076D-01, -.5966D-02, - + .5943D-02, -.6722D-02, -.3486D-02, -.2133D-02, .6861D-01, - + -.2255D-02, -.9641D-02, -.5433D-02, - + .6464D-02, -.6995D-02, -.3855D-02, -.2406D-02, .8423D-01, - + -.2195D-02, -.8750D-02, -.4998D-02, - + .6930D-02, -.7235D-02, -.4181D-02, -.2648D-02, .9961D-01, - + -.2131D-02, -.8062D-02, -.4654D-02, - + .7332D-02, -.7439D-02, -.4459D-02, -.2854D-02, .1140D+00, - + -.2071D-02, -.7538D-02, -.4387D-02, - + .7813D-02, -.7682D-02, -.4782D-02, -.3092D-02, .1324D+00, - + -.1991D-02, -.6988D-02, -.4100D-02, - + .8236D-02, -.7892D-02, -.5055D-02, -.3291D-02, .1498D+00, - + -.1917D-02, -.6563D-02, -.3872D-02, - + .8644D-02, -.8093D-02, -.5312D-02, -.3478D-02, .1675D+00, - + -.1846D-02, -.6192D-02, -.3669D-02 / - DATA ((PARTON(I,N,4),I=1,8),N=17,25)/ - + .9020D-02, -.8277D-02, -.5541D-02, -.3643D-02, .1847D+00, - + -.1780D-02, -.5880D-02, -.3497D-02, - + .9498D-02, -.8508D-02, -.5822D-02, -.3843D-02, .2077D+00, - + -.1697D-02, -.5519D-02, -.3295D-02, - + .9949D-02, -.8725D-02, -.6074D-02, -.4019D-02, .2307D+00, - + -.1619D-02, -.5212D-02, -.3118D-02, - + .1040D-01, -.8939D-02, -.6313D-02, -.4183D-02, .2547D+00, - + -.1542D-02, -.4930D-02, -.2955D-02, - + .1080D-01, -.9128D-02, -.6512D-02, -.4317D-02, .2770D+00, - + -.1476D-02, -.4703D-02, -.2821D-02, - + .1122D-01, -.9324D-02, -.6708D-02, -.4445D-02, .3012D+00, - + -.1406D-02, -.4480D-02, -.2687D-02, - + .1162D-01, -.9510D-02, -.6881D-02, -.4554D-02, .3250D+00, - + -.1341D-02, -.4283D-02, -.2567D-02, - + .1202D-01, -.9695D-02, -.7042D-02, -.4650D-02, .3497D+00, - + -.1276D-02, -.4097D-02, -.2453D-02, - + .1238D-01, -.9859D-02, -.7173D-02, -.4725D-02, .3724D+00, - + -.1218D-02, -.3942D-02, -.2355D-02 / - DATA ((PARTON(I,N,5),I=1,8),N=1,8)/ - + .3077D-02, -.5408D-02, -.1016D-02, -.1782D-03, .2853D-02, - + .1493D-02, -.3570D-01, -.1571D-01, - + .3742D-02, -.5790D-02, -.1427D-02, -.4486D-03, .8152D-02, - + .2255D-03, -.2798D-01, -.1272D-01, - + .4231D-02, -.6065D-02, -.1752D-02, -.6715D-03, .1326D-01, - + -.5210D-03, -.2419D-01, -.1131D-01, - + .4777D-02, -.6365D-02, -.2125D-02, -.9345D-03, .2013D-01, - + -.1165D-02, -.2106D-01, -.1017D-01, - + .5412D-02, -.6706D-02, -.2567D-02, -.1250D-02, .2960D-01, - + -.1697D-02, -.1836D-01, -.9165D-02, - + .5862D-02, -.6944D-02, -.2879D-02, -.1475D-02, .3725D-01, - + -.1957D-02, -.1683D-01, -.8584D-02, - + .6206D-02, -.7124D-02, -.3117D-02, -.1647D-02, .4364D-01, - + -.2104D-02, -.1581D-01, -.8184D-02, - + .6715D-02, -.7387D-02, -.3464D-02, -.1898D-02, .5390D-01, - + -.2252D-02, -.1450D-01, -.7651D-02 / - DATA ((PARTON(I,N,5),I=1,8),N=9,16)/ - + .7089D-02, -.7577D-02, -.3704D-02, -.2069D-02, .6190D-01, - + -.2289D-02, -.1366D-01, -.7284D-02, - + .7803D-02, -.7935D-02, -.4134D-02, -.2369D-02, .7838D-01, - + -.2261D-02, -.1226D-01, -.6632D-02, - + .8467D-02, -.8263D-02, -.4527D-02, -.2644D-02, .9554D-01, - + -.2209D-02, -.1115D-01, -.6101D-02, - + .9057D-02, -.8550D-02, -.4868D-02, -.2882D-02, .1123D+00, - + -.2148D-02, -.1029D-01, -.5680D-02, - + .9566D-02, -.8795D-02, -.5155D-02, -.3081D-02, .1279D+00, - + -.2086D-02, -.9634D-02, -.5350D-02, - + .1017D-01, -.9085D-02, -.5484D-02, -.3306D-02, .1478D+00, - + -.2001D-02, -.8940D-02, -.4995D-02, - + .1071D-01, -.9336D-02, -.5758D-02, -.3491D-02, .1664D+00, - + -.1919D-02, -.8401D-02, -.4711D-02, - + .1122D-01, -.9576D-02, -.6012D-02, -.3659D-02, .1853D+00, - + -.1838D-02, -.7930D-02, -.4459D-02 / - DATA ((PARTON(I,N,5),I=1,8),N=17,25)/ - + .1169D-01, -.9795D-02, -.6235D-02, -.3805D-02, .2036D+00, - + -.1762D-02, -.7533D-02, -.4243D-02, - + .1229D-01, -.1007D-01, -.6503D-02, -.3976D-02, .2279D+00, - + -.1666D-02, -.7072D-02, -.3988D-02, - + .1285D-01, -.1033D-01, -.6739D-02, -.4121D-02, .2520D+00, - + -.1574D-02, -.6677D-02, -.3766D-02, - + .1342D-01, -.1058D-01, -.6957D-02, -.4249D-02, .2771D+00, - + -.1482D-02, -.6316D-02, -.3559D-02, - + .1391D-01, -.1080D-01, -.7134D-02, -.4347D-02, .3003D+00, - + -.1400D-02, -.6020D-02, -.3387D-02, - + .1443D-01, -.1104D-01, -.7303D-02, -.4435D-02, .3253D+00, - + -.1315D-02, -.5731D-02, -.3216D-02, - + .1493D-01, -.1126D-01, -.7447D-02, -.4503D-02, .3498D+00, - + -.1234D-02, -.5474D-02, -.3062D-02, - + .1542D-01, -.1147D-01, -.7575D-02, -.4556D-02, .3751D+00, - + -.1152D-02, -.5231D-02, -.2914D-02, - + .1587D-01, -.1167D-01, -.7676D-02, -.4589D-02, .3982D+00, - + -.1080D-02, -.5029D-02, -.2789D-02 / - DATA ((PARTON(I,N,6),I=1,8),N=1,8)/ - + .4063D-02, -.6268D-02, -.1343D-02, -.2241D-03, .3635D-02, - + .2951D-02, -.3959D-01, -.1679D-01, - + .4914D-02, -.6728D-02, -.1840D-02, -.5453D-03, .1002D-01, - + .1330D-02, -.3233D-01, -.1418D-01, - + .5539D-02, -.7057D-02, -.2220D-02, -.7998D-03, .1599D-01, - + .3619D-03, -.2855D-01, -.1289D-01, - + .6234D-02, -.7417D-02, -.2648D-02, -.1092D-02, .2386D-01, - + -.4797D-03, -.2530D-01, -.1178D-01, - + .7039D-02, -.7826D-02, -.3143D-02, -.1432D-02, .3454D-01, - + -.1181D-02, -.2236D-01, -.1075D-01, - + .7608D-02, -.8110D-02, -.3487D-02, -.1670D-02, .4307D-01, - + -.1528D-02, -.2063D-01, -.1012D-01, - + .8042D-02, -.8325D-02, -.3746D-02, -.1848D-02, .5014D-01, - + -.1727D-02, -.1946D-01, -.9674D-02, - + .8683D-02, -.8638D-02, -.4119D-02, -.2104D-02, .6142D-01, - + -.1931D-02, -.1792D-01, -.9064D-02 / - DATA ((PARTON(I,N,6),I=1,8),N=9,16)/ - + .9152D-02, -.8865D-02, -.4376D-02, -.2277D-02, .7020D-01, - + -.1997D-02, -.1693D-01, -.8639D-02, - + .1005D-01, -.9291D-02, -.4834D-02, -.2579D-02, .8826D-01, - + -.2003D-02, -.1525D-01, -.7874D-02, - + .1087D-01, -.9679D-02, -.5246D-02, -.2848D-02, .1069D+00, - + -.1973D-02, -.1390D-01, -.7247D-02, - + .1161D-01, -.1002D-01, -.5597D-02, -.3076D-02, .1250D+00, - + -.1923D-02, -.1286D-01, -.6747D-02, - + .1224D-01, -.1031D-01, -.5887D-02, -.3260D-02, .1417D+00, - + -.1866D-02, -.1206D-01, -.6354D-02, - + .1299D-01, -.1065D-01, -.6215D-02, -.3465D-02, .1630D+00, - + -.1780D-02, -.1120D-01, -.5925D-02, - + .1365D-01, -.1095D-01, -.6485D-02, -.3629D-02, .1827D+00, - + -.1693D-02, -.1054D-01, -.5582D-02, - + .1428D-01, -.1123D-01, -.6730D-02, -.3773D-02, .2027D+00, - + -.1605D-02, -.9954D-02, -.5275D-02 / - DATA ((PARTON(I,N,6),I=1,8),N=17,25)/ - + .1486D-01, -.1149D-01, -.6941D-02, -.3892D-02, .2219D+00, - + -.1522D-02, -.9460D-02, -.5012D-02, - + .1559D-01, -.1181D-01, -.7189D-02, -.4026D-02, .2474D+00, - + -.1412D-02, -.8885D-02, -.4699D-02, - + .1628D-01, -.1211D-01, -.7401D-02, -.4132D-02, .2724D+00, - + -.1305D-02, -.8390D-02, -.4424D-02, - + .1697D-01, -.1241D-01, -.7591D-02, -.4216D-02, .2984D+00, - + -.1197D-02, -.7935D-02, -.4167D-02, - + .1758D-01, -.1267D-01, -.7739D-02, -.4273D-02, .3221D+00, - + -.1100D-02, -.7561D-02, -.3952D-02, - + .1821D-01, -.1294D-01, -.7875D-02, -.4314D-02, .3477D+00, - + -.9962D-03, -.7196D-02, -.3738D-02, - + .1881D-01, -.1319D-01, -.7984D-02, -.4335D-02, .3726D+00, - + -.8970D-03, -.6871D-02, -.3544D-02, - + .1941D-01, -.1345D-01, -.8075D-02, -.4338D-02, .3983D+00, - + -.7965D-03, -.6562D-02, -.3358D-02, - + .1995D-01, -.1367D-01, -.8139D-02, -.4325D-02, .4216D+00, - + -.7064D-03, -.6302D-02, -.3198D-02 / - DATA ((PARTON(I,N,7),I=1,8),N=1,8)/ - + .5285D-02, -.7232D-02, -.1745D-02, -.2742D-03, .4501D-02, - + .4772D-02, -.4343D-01, -.1766D-01, - + .6360D-02, -.7781D-02, -.2333D-02, -.6468D-03, .1205D-01, - + .2837D-02, -.3676D-01, -.1549D-01, - + .7145D-02, -.8173D-02, -.2769D-02, -.9311D-03, .1891D-01, - + .1661D-02, -.3310D-01, -.1435D-01, - + .8016D-02, -.8602D-02, -.3252D-02, -.1248D-02, .2780D-01, - + .6267D-03, -.2981D-01, -.1332D-01, - + .9022D-02, -.9088D-02, -.3797D-02, -.1608D-02, .3969D-01, - + -.2474D-03, -.2669D-01, -.1229D-01, - + .9730D-02, -.9425D-02, -.4170D-02, -.1852D-02, .4910D-01, - + -.6890D-03, -.2479D-01, -.1162D-01, - + .1027D-01, -.9680D-02, -.4447D-02, -.2033D-02, .5685D-01, - + -.9454D-03, -.2348D-01, -.1114D-01, - + .1106D-01, -.1005D-01, -.4842D-02, -.2288D-02, .6915D-01, - + -.1219D-02, -.2173D-01, -.1047D-01 / - DATA ((PARTON(I,N,7),I=1,8),N=9,16)/ - + .1164D-01, -.1032D-01, -.5112D-02, -.2459D-02, .7871D-01, - + -.1322D-02, -.2057D-01, -.9987D-02, - + .1275D-01, -.1082D-01, -.5594D-02, -.2755D-02, .9834D-01, - + -.1382D-02, -.1862D-01, -.9122D-02, - + .1376D-01, -.1127D-01, -.6017D-02, -.3011D-02, .1185D+00, - + -.1388D-02, -.1704D-01, -.8403D-02, - + .1466D-01, -.1167D-01, -.6372D-02, -.3220D-02, .1379D+00, - + -.1360D-02, -.1579D-01, -.7824D-02, - + .1543D-01, -.1201D-01, -.6660D-02, -.3385D-02, .1556D+00, - + -.1315D-02, -.1483D-01, -.7366D-02, - + .1635D-01, -.1241D-01, -.6980D-02, -.3561D-02, .1781D+00, - + -.1235D-02, -.1381D-01, -.6862D-02, - + .1715D-01, -.1276D-01, -.7238D-02, -.3695D-02, .1989D+00, - + -.1147D-02, -.1301D-01, -.6456D-02, - + .1791D-01, -.1309D-01, -.7467D-02, -.3808D-02, .2199D+00, - + -.1054D-02, -.1230D-01, -.6090D-02 / - DATA ((PARTON(I,N,7),I=1,8),N=17,25)/ - + .1861D-01, -.1338D-01, -.7660D-02, -.3895D-02, .2398D+00, - + -.9631D-03, -.1170D-01, -.5774D-02, - + .1950D-01, -.1376D-01, -.7880D-02, -.3983D-02, .2662D+00, - + -.8404D-03, -.1099D-01, -.5397D-02, - + .2033D-01, -.1411D-01, -.8061D-02, -.4041D-02, .2920D+00, - + -.7186D-03, -.1038D-01, -.5064D-02, - + .2116D-01, -.1445D-01, -.8214D-02, -.4075D-02, .3185D+00, - + -.5922D-03, -.9822D-02, -.4750D-02, - + .2189D-01, -.1475D-01, -.8328D-02, -.4084D-02, .3427D+00, - + -.4765D-03, -.9357D-02, -.4485D-02, - + .2264D-01, -.1506D-01, -.8423D-02, -.4073D-02, .3686D+00, - + -.3525D-03, -.8901D-02, -.4221D-02, - + .2336D-01, -.1536D-01, -.8492D-02, -.4041D-02, .3937D+00, - + -.2322D-03, -.8495D-02, -.3980D-02, - + .2408D-01, -.1565D-01, -.8539D-02, -.3988D-02, .4193D+00, - + -.1092D-03, -.8108D-02, -.3748D-02, - + .2472D-01, -.1590D-01, -.8563D-02, -.3924D-02, .4426D+00, - + .1943D-05, -.7781D-02, -.3548D-02 / - DATA ((PARTON(I,N,8),I=1,8),N=1,8)/ - + .7137D-02, -.8563D-02, -.2346D-02, -.3377D-03, .5657D-02, - + .7447D-02, -.4791D-01, -.1843D-01, - + .8539D-02, -.9237D-02, -.3045D-02, -.7703D-03, .1470D-01, - + .5219D-02, -.4210D-01, -.1679D-01, - + .9558D-02, -.9718D-02, -.3549D-02, -.1086D-02, .2268D-01, - + .3843D-02, -.3870D-01, -.1587D-01, - + .1068D-01, -.1024D-01, -.4092D-02, -.1426D-02, .3283D-01, - + .2613D-02, -.3546D-01, -.1496D-01, - + .1198D-01, -.1083D-01, -.4692D-02, -.1799D-02, .4620D-01, - + .1550D-02, -.3222D-01, -.1396D-01, - + .1288D-01, -.1124D-01, -.5094D-02, -.2045D-02, .5667D-01, - + .1002D-02, -.3016D-01, -.1328D-01, - + .1357D-01, -.1155D-01, -.5388D-02, -.2223D-02, .6524D-01, - + .6742D-03, -.2871D-01, -.1277D-01, - + .1458D-01, -.1200D-01, -.5801D-02, -.2467D-02, .7875D-01, - + .3136D-03, -.2673D-01, -.1203D-01 / - DATA ((PARTON(I,N,8),I=1,8),N=9,16)/ - + .1532D-01, -.1232D-01, -.6083D-02, -.2630D-02, .8925D-01, - + .1566D-03, -.2541D-01, -.1150D-01, - + .1671D-01, -.1293D-01, -.6582D-02, -.2907D-02, .1108D+00, - + .7632D-05, -.2314D-01, -.1054D-01, - + .1799D-01, -.1347D-01, -.7009D-02, -.3136D-02, .1326D+00, - + -.5864D-04, -.2127D-01, -.9719D-02, - + .1911D-01, -.1395D-01, -.7358D-02, -.3312D-02, .1535D+00, - + -.6833D-04, -.1980D-01, -.9051D-02, - + .2007D-01, -.1435D-01, -.7634D-02, -.3444D-02, .1724D+00, - + -.4535D-04, -.1864D-01, -.8515D-02, - + .2122D-01, -.1483D-01, -.7933D-02, -.3574D-02, .1963D+00, - + .1999D-04, -.1740D-01, -.7919D-02, - + .2221D-01, -.1524D-01, -.8167D-02, -.3664D-02, .2182D+00, - + .1054D-03, -.1642D-01, -.7435D-02, - + .2315D-01, -.1562D-01, -.8368D-02, -.3729D-02, .2400D+00, - + .2018D-03, -.1555D-01, -.6994D-02 / - DATA ((PARTON(I,N,8),I=1,8),N=17,25)/ - + .2402D-01, -.1598D-01, -.8530D-02, -.3768D-02, .2608D+00, - + .3011D-03, -.1481D-01, -.6609D-02, - + .2511D-01, -.1642D-01, -.8705D-02, -.3791D-02, .2879D+00, - + .4402D-03, -.1393D-01, -.6146D-02, - + .2613D-01, -.1683D-01, -.8838D-02, -.3783D-02, .3143D+00, - + .5829D-03, -.1316D-01, -.5733D-02, - + .2714D-01, -.1723D-01, -.8939D-02, -.3747D-02, .3412D+00, - + .7347D-03, -.1246D-01, -.5341D-02, - + .2803D-01, -.1758D-01, -.9002D-02, -.3691D-02, .3656D+00, - + .8761D-03, -.1187D-01, -.5008D-02, - + .2896D-01, -.1794D-01, -.9041D-02, -.3609D-02, .3915D+00, - + .1030D-02, -.1129D-01, -.4673D-02, - + .2983D-01, -.1828D-01, -.9054D-02, -.3507D-02, .4164D+00, - + .1181D-02, -.1077D-01, -.4367D-02, - + .3070D-01, -.1862D-01, -.9042D-02, -.3383D-02, .4418D+00, - + .1337D-02, -.1027D-01, -.4070D-02, - + .3147D-01, -.1892D-01, -.9012D-02, -.3254D-02, .4646D+00, - + .1479D-02, -.9849D-02, -.3813D-02 / - DATA ((PARTON(I,N,9),I=1,8),N=1,8)/ - + .9504D-02, -.1010D-01, -.3090D-02, -.4028D-03, .6931D-02, - + .1083D-01, -.5210D-01, -.1870D-01, - + .1130D-01, -.1093D-01, -.3902D-02, -.8906D-03, .1754D-01, - + .8410D-02, -.4727D-01, -.1762D-01, - + .1259D-01, -.1151D-01, -.4470D-02, -.1231D-02, .2667D-01, - + .6888D-02, -.4424D-01, -.1694D-01, - + .1402D-01, -.1214D-01, -.5067D-02, -.1586D-02, .3811D-01, - + .5503D-02, -.4118D-01, -.1620D-01, - + .1565D-01, -.1286D-01, -.5711D-02, -.1959D-02, .5299D-01, - + .4275D-02, -.3793D-01, -.1529D-01, - + .1679D-01, -.1335D-01, -.6134D-02, -.2197D-02, .6454D-01, - + .3621D-02, -.3580D-01, -.1462D-01, - + .1766D-01, -.1372D-01, -.6439D-02, -.2365D-02, .7394D-01, - + .3223D-02, -.3427D-01, -.1410D-01, - + .1892D-01, -.1425D-01, -.6860D-02, -.2589D-02, .8868D-01, - + .2767D-02, -.3212D-01, -.1333D-01 / - DATA ((PARTON(I,N,9),I=1,8),N=9,16)/ - + .1983D-01, -.1464D-01, -.7147D-02, -.2735D-02, .1001D+00, - + .2547D-02, -.3066D-01, -.1278D-01, - + .2156D-01, -.1535D-01, -.7651D-02, -.2981D-02, .1235D+00, - + .2286D-02, -.2812D-01, -.1174D-01, - + .2313D-01, -.1600D-01, -.8068D-02, -.3167D-02, .1470D+00, - + .2144D-02, -.2601D-01, -.1085D-01, - + .2452D-01, -.1656D-01, -.8398D-02, -.3299D-02, .1692D+00, - + .2086D-02, -.2431D-01, -.1010D-01, - + .2570D-01, -.1704D-01, -.8650D-02, -.3386D-02, .1893D+00, - + .2082D-02, -.2296D-01, -.9491D-02, - + .2709D-01, -.1759D-01, -.8914D-02, -.3457D-02, .2143D+00, - + .2130D-02, -.2149D-01, -.8804D-02, - + .2829D-01, -.1807D-01, -.9112D-02, -.3491D-02, .2370D+00, - + .2213D-02, -.2033D-01, -.8237D-02, - + .2945D-01, -.1852D-01, -.9272D-02, -.3498D-02, .2596D+00, - + .2315D-02, -.1928D-01, -.7715D-02 / - DATA ((PARTON(I,N,9),I=1,8),N=17,25)/ - + .3049D-01, -.1893D-01, -.9393D-02, -.3481D-02, .2809D+00, - + .2426D-02, -.1838D-01, -.7256D-02, - + .3181D-01, -.1944D-01, -.9510D-02, -.3428D-02, .3085D+00, - + .2587D-02, -.1731D-01, -.6696D-02, - + .3304D-01, -.1991D-01, -.9583D-02, -.3344D-02, .3351D+00, - + .2758D-02, -.1638D-01, -.6193D-02, - + .3425D-01, -.2038D-01, -.9621D-02, -.3230D-02, .3620D+00, - + .2943D-02, -.1550D-01, -.5710D-02, - + .3532D-01, -.2078D-01, -.9625D-02, -.3102D-02, .3862D+00, - + .3118D-02, -.1477D-01, -.5298D-02, - + .3642D-01, -.2120D-01, -.9600D-02, -.2943D-02, .4117D+00, - + .3311D-02, -.1405D-01, -.4881D-02, - + .3746D-01, -.2159D-01, -.9549D-02, -.2767D-02, .4362D+00, - + .3503D-02, -.1340D-01, -.4496D-02, - + .3849D-01, -.2197D-01, -.9472D-02, -.2568D-02, .4608D+00, - + .3702D-02, -.1277D-01, -.4121D-02, - + .3941D-01, -.2231D-01, -.9382D-02, -.2370D-02, .4828D+00, - + .3884D-02, -.1224D-01, -.3796D-02 / - DATA ((PARTON(I,N,10),I=1,8),N=1,8)/ - + .1260D-01, -.1197D-01, -.4034D-02, -.4676D-03, .8354D-02, - + .1514D-01, -.5601D-01, -.1838D-01, - + .1488D-01, -.1297D-01, -.4956D-02, -.1003D-02, .2066D-01, - + .1263D-01, -.5227D-01, -.1786D-01, - + .1651D-01, -.1368D-01, -.5581D-02, -.1360D-02, .3104D-01, - + .1103D-01, -.4975D-01, -.1746D-01, - + .1831D-01, -.1444D-01, -.6224D-02, -.1717D-02, .4386D-01, - + .9538D-02, -.4702D-01, -.1692D-01, - + .2035D-01, -.1529D-01, -.6899D-02, -.2076D-02, .6036D-01, - + .8181D-02, -.4393D-01, -.1615D-01, - + .2176D-01, -.1588D-01, -.7333D-02, -.2296D-02, .7306D-01, - + .7444D-02, -.4179D-01, -.1553D-01, - + .2284D-01, -.1632D-01, -.7640D-02, -.2445D-02, .8335D-01, - + .6980D-02, -.4021D-01, -.1503D-01, - + .2440D-01, -.1696D-01, -.8057D-02, -.2635D-02, .9939D-01, - + .6438D-02, -.3797D-01, -.1426D-01 / - DATA ((PARTON(I,N,10),I=1,8),N=9,16)/ - + .2553D-01, -.1741D-01, -.8339D-02, -.2757D-02, .1118D+00, - + .6152D-02, -.3641D-01, -.1369D-01, - + .2764D-01, -.1825D-01, -.8828D-02, -.2952D-02, .1371D+00, - + .5773D-02, -.3368D-01, -.1263D-01, - + .2956D-01, -.1901D-01, -.9216D-02, -.3080D-02, .1622D+00, - + .5554D-02, -.3134D-01, -.1168D-01, - + .3124D-01, -.1967D-01, -.9510D-02, -.3151D-02, .1857D+00, - + .5451D-02, -.2942D-01, -.1086D-01, - + .3267D-01, -.2022D-01, -.9724D-02, -.3180D-02, .2067D+00, - + .5425D-02, -.2789D-01, -.1018D-01, - + .3435D-01, -.2086D-01, -.9935D-02, -.3178D-02, .2327D+00, - + .5464D-02, -.2620D-01, -.9393D-02, - + .3580D-01, -.2141D-01, -.1008D-01, -.3144D-02, .2561D+00, - + .5554D-02, -.2484D-01, -.8737D-02, - + .3718D-01, -.2193D-01, -.1019D-01, -.3080D-02, .2792D+00, - + .5671D-02, -.2361D-01, -.8124D-02 / - DATA ((PARTON(I,N,10),I=1,8),N=17,25)/ - + .3843D-01, -.2240D-01, -.1025D-01, -.2997D-02, .3007D+00, - + .5805D-02, -.2254D-01, -.7578D-02, - + .4000D-01, -.2299D-01, -.1030D-01, -.2855D-02, .3284D+00, - + .6004D-02, -.2126D-01, -.6907D-02, - + .4146D-01, -.2352D-01, -.1030D-01, -.2686D-02, .3548D+00, - + .6218D-02, -.2013D-01, -.6296D-02, - + .4290D-01, -.2405D-01, -.1026D-01, -.2484D-02, .3813D+00, - + .6453D-02, -.1907D-01, -.5706D-02, - + .4416D-01, -.2451D-01, -.1019D-01, -.2277D-02, .4049D+00, - + .6679D-02, -.1817D-01, -.5197D-02, - + .4546D-01, -.2498D-01, -.1009D-01, -.2035D-02, .4296D+00, - + .6928D-02, -.1728D-01, -.4680D-02, - + .4668D-01, -.2542D-01, -.9972D-02, -.1780D-02, .4531D+00, - + .7175D-02, -.1647D-01, -.4200D-02, - + .4789D-01, -.2585D-01, -.9823D-02, -.1502D-02, .4766D+00, - + .7434D-02, -.1570D-01, -.3731D-02, - + .4896D-01, -.2623D-01, -.9669D-02, -.1234D-02, .4974D+00, - + .7672D-02, -.1504D-01, -.3320D-02 / - DATA ((PARTON(I,N,11),I=1,8),N=1,8)/ - + .1715D-01, -.1453D-01, -.5361D-02, -.5324D-03, .1012D-01, - + .2123D-01, -.5979D-01, -.1713D-01, - + .2008D-01, -.1576D-01, -.6390D-02, -.1104D-02, .2450D-01, - + .1873D-01, -.5742D-01, -.1724D-01, - + .2218D-01, -.1663D-01, -.7065D-02, -.1464D-02, .3639D-01, - + .1711D-01, -.5559D-01, -.1718D-01, - + .2446D-01, -.1756D-01, -.7739D-02, -.1806D-02, .5090D-01, - + .1557D-01, -.5340D-01, -.1691D-01, - + .2704D-01, -.1859D-01, -.8425D-02, -.2130D-02, .6939D-01, - + .1414D-01, -.5063D-01, -.1635D-01, - + .2883D-01, -.1930D-01, -.8853D-02, -.2313D-02, .8348D-01, - + .1334D-01, -.4866D-01, -.1583D-01, - + .3017D-01, -.1983D-01, -.9150D-02, -.2429D-02, .9482D-01, - + .1283D-01, -.4709D-01, -.1537D-01, - + .3212D-01, -.2059D-01, -.9542D-02, -.2565D-02, .1124D+00, - + .1223D-01, -.4486D-01, -.1465D-01 / - DATA ((PARTON(I,N,11),I=1,8),N=9,16)/ - + .3352D-01, -.2113D-01, -.9803D-02, -.2647D-02, .1259D+00, - + .1188D-01, -.4326D-01, -.1409D-01, - + .3613D-01, -.2212D-01, -.1024D-01, -.2762D-02, .1533D+00, - + .1141D-01, -.4040D-01, -.1302D-01, - + .3850D-01, -.2301D-01, -.1057D-01, -.2802D-02, .1801D+00, - + .1113D-01, -.3788D-01, -.1202D-01, - + .4055D-01, -.2378D-01, -.1080D-01, -.2787D-02, .2048D+00, - + .1101D-01, -.3576D-01, -.1112D-01, - + .4229D-01, -.2442D-01, -.1095D-01, -.2737D-02, .2267D+00, - + .1099D-01, -.3402D-01, -.1035D-01, - + .4433D-01, -.2517D-01, -.1108D-01, -.2634D-02, .2534D+00, - + .1106D-01, -.3209D-01, -.9452D-02, - + .4608D-01, -.2580D-01, -.1115D-01, -.2510D-02, .2772D+00, - + .1119D-01, -.3051D-01, -.8681D-02, - + .4774D-01, -.2640D-01, -.1117D-01, -.2357D-02, .3004D+00, - + .1135D-01, -.2906D-01, -.7950D-02 / - DATA ((PARTON(I,N,11),I=1,8),N=17,25)/ - + .4924D-01, -.2694D-01, -.1117D-01, -.2188D-02, .3218D+00, - + .1154D-01, -.2779D-01, -.7291D-02, - + .5112D-01, -.2760D-01, -.1111D-01, -.1937D-02, .3490D+00, - + .1182D-01, -.2626D-01, -.6471D-02, - + .5286D-01, -.2821D-01, -.1101D-01, -.1664D-02, .3747D+00, - + .1211D-01, -.2489D-01, -.5715D-02, - + .5456D-01, -.2881D-01, -.1088D-01, -.1358D-02, .4002D+00, - + .1244D-01, -.2359D-01, -.4979D-02, - + .5604D-01, -.2932D-01, -.1072D-01, -.1061D-02, .4226D+00, - + .1275D-01, -.2249D-01, -.4340D-02, - + .5757D-01, -.2985D-01, -.1053D-01, -.7236D-03, .4459D+00, - + .1309D-01, -.2139D-01, -.3686D-02, - + .5900D-01, -.3033D-01, -.1032D-01, -.3805D-03, .4678D+00, - + .1343D-01, -.2039D-01, -.3076D-02, - + .6042D-01, -.3081D-01, -.1009D-01, -.1454D-04, .4894D+00, - + .1379D-01, -.1942D-01, -.2477D-02, - + .6166D-01, -.3123D-01, -.9858D-02, .3289D-03, .5084D+00, - + .1411D-01, -.1860D-01, -.1952D-02 / - DATA ((PARTON(I,N,12),I=1,8),N=1,8)/ - + .2291D-01, -.1761D-01, -.6952D-02, -.5787D-03, .1205D-01, - + .2854D-01, -.6266D-01, -.1487D-01, - + .2660D-01, -.1909D-01, -.8053D-02, -.1161D-02, .2866D-01, - + .2612D-01, -.6177D-01, -.1562D-01, - + .2923D-01, -.2013D-01, -.8750D-02, -.1505D-02, .4219D-01, - + .2455D-01, -.6074D-01, -.1591D-01, - + .3207D-01, -.2124D-01, -.9425D-02, -.1810D-02, .5854D-01, - + .2304D-01, -.5921D-01, -.1594D-01, - + .3526D-01, -.2247D-01, -.1009D-01, -.2073D-02, .7914D-01, - + .2161D-01, -.5701D-01, -.1564D-01, - + .3746D-01, -.2330D-01, -.1049D-01, -.2204D-02, .9470D-01, - + .2082D-01, -.5525D-01, -.1524D-01, - + .3910D-01, -.2392D-01, -.1075D-01, -.2277D-02, .1071D+00, - + .2030D-01, -.5386D-01, -.1486D-01, - + .4148D-01, -.2481D-01, -.1110D-01, -.2342D-02, .1262D+00, - + .1969D-01, -.5171D-01, -.1418D-01 / - DATA ((PARTON(I,N,12),I=1,8),N=9,16)/ - + .4318D-01, -.2543D-01, -.1132D-01, -.2371D-02, .1409D+00, - + .1935D-01, -.5015D-01, -.1366D-01, - + .4633D-01, -.2658D-01, -.1168D-01, -.2382D-02, .1702D+00, - + .1887D-01, -.4724D-01, -.1259D-01, - + .4917D-01, -.2760D-01, -.1191D-01, -.2316D-02, .1983D+00, - + .1863D-01, -.4461D-01, -.1152D-01, - + .5162D-01, -.2848D-01, -.1205D-01, -.2200D-02, .2239D+00, - + .1856D-01, -.4234D-01, -.1053D-01, - + .5369D-01, -.2921D-01, -.1211D-01, -.2059D-02, .2463D+00, - + .1860D-01, -.4044D-01, -.9666D-02, - + .5610D-01, -.3005D-01, -.1214D-01, -.1846D-02, .2733D+00, - + .1876D-01, -.3827D-01, -.8625D-02, - + .5816D-01, -.3076D-01, -.1211D-01, -.1623D-02, .2970D+00, - + .1899D-01, -.3648D-01, -.7716D-02, - + .6010D-01, -.3143D-01, -.1204D-01, -.1375D-02, .3198D+00, - + .1926D-01, -.3482D-01, -.6844D-02 / - DATA ((PARTON(I,N,12),I=1,8),N=17,25)/ - + .6186D-01, -.3202D-01, -.1194D-01, -.1119D-02, .3406D+00, - + .1955D-01, -.3334D-01, -.6051D-02, - + .6404D-01, -.3276D-01, -.1177D-01, -.7574D-03, .3668D+00, - + .1996D-01, -.3154D-01, -.5052D-02, - + .6604D-01, -.3343D-01, -.1157D-01, -.3819D-03, .3912D+00, - + .2040D-01, -.2993D-01, -.4125D-02, - + .6801D-01, -.3408D-01, -.1133D-01, .2367D-04, .4150D+00, - + .2086D-01, -.2839D-01, -.3215D-02, - + .6971D-01, -.3464D-01, -.1108D-01, .4073D-03, .4358D+00, - + .2131D-01, -.2707D-01, -.2421D-02, - + .7146D-01, -.3521D-01, -.1080D-01, .8312D-03, .4571D+00, - + .2179D-01, -.2575D-01, -.1605D-02, - + .7309D-01, -.3573D-01, -.1051D-01, .1254D-02, .4768D+00, - + .2226D-01, -.2454D-01, -.8420D-03, - + .7470D-01, -.3625D-01, -.1019D-01, .1696D-02, .4961D+00, - + .2275D-01, -.2338D-01, -.8938D-04, - + .7611D-01, -.3670D-01, -.9883D-02, .2104D-02, .5130D+00, - + .2320D-01, -.2237D-01, .5708D-03 / - DATA ((PARTON(I,N,13),I=1,8),N=1,8)/ - + .3023D-01, -.2136D-01, -.8835D-02, -.5986D-03, .1429D-01, - + .3717D-01, -.6466D-01, -.1155D-01, - + .3481D-01, -.2312D-01, -.9958D-02, -.1158D-02, .3341D-01, - + .3484D-01, -.6541D-01, -.1301D-01, - + .3803D-01, -.2435D-01, -.1064D-01, -.1462D-02, .4879D-01, - + .3334D-01, -.6533D-01, -.1370D-01, - + .4150D-01, -.2564D-01, -.1128D-01, -.1706D-02, .6719D-01, - + .3194D-01, -.6461D-01, -.1408D-01, - + .4537D-01, -.2706D-01, -.1187D-01, -.1882D-02, .9011D-01, - + .3061D-01, -.6311D-01, -.1404D-01, - + .4801D-01, -.2802D-01, -.1221D-01, -.1945D-02, .1072D+00, - + .2989D-01, -.6171D-01, -.1377D-01, - + .4998D-01, -.2873D-01, -.1243D-01, -.1961D-02, .1208D+00, - + .2942D-01, -.6048D-01, -.1344D-01, - + .5282D-01, -.2974D-01, -.1269D-01, -.1940D-02, .1414D+00, - + .2892D-01, -.5849D-01, -.1282D-01 / - DATA ((PARTON(I,N,13),I=1,8),N=9,16)/ - + .5484D-01, -.3046D-01, -.1285D-01, -.1905D-02, .1571D+00, - + .2865D-01, -.5703D-01, -.1230D-01, - + .5856D-01, -.3175D-01, -.1308D-01, -.1789D-02, .1880D+00, - + .2833D-01, -.5418D-01, -.1119D-01, - + .6189D-01, -.3289D-01, -.1319D-01, -.1599D-02, .2171D+00, - + .2826D-01, -.5147D-01, -.1002D-01, - + .6475D-01, -.3386D-01, -.1321D-01, -.1369D-02, .2432D+00, - + .2836D-01, -.4905D-01, -.8900D-02, - + .6715D-01, -.3466D-01, -.1317D-01, -.1129D-02, .2656D+00, - + .2856D-01, -.4699D-01, -.7893D-02, - + .6994D-01, -.3558D-01, -.1306D-01, -.7992D-03, .2923D+00, - + .2893D-01, -.4460D-01, -.6667D-02, - + .7230D-01, -.3636D-01, -.1292D-01, -.4754D-03, .3153D+00, - + .2935D-01, -.4260D-01, -.5583D-02, - + .7453D-01, -.3708D-01, -.1274D-01, -.1310D-03, .3372D+00, - + .2980D-01, -.4073D-01, -.4533D-02 / - DATA ((PARTON(I,N,13),I=1,8),N=17,25)/ - + .7652D-01, -.3772D-01, -.1255D-01, .2108D-03, .3570D+00, - + .3026D-01, -.3905D-01, -.3571D-02, - + .7899D-01, -.3851D-01, -.1226D-01, .6777D-03, .3815D+00, - + .3090D-01, -.3699D-01, -.2353D-02, - + .8126D-01, -.3922D-01, -.1194D-01, .1148D-02, .4039D+00, - + .3156D-01, -.3512D-01, -.1217D-02, - + .8346D-01, -.3990D-01, -.1159D-01, .1643D-02, .4255D+00, - + .3224D-01, -.3333D-01, -.9777D-04, - + .8537D-01, -.4049D-01, -.1126D-01, .2101D-02, .4441D+00, - + .3287D-01, -.3179D-01, .8811D-03, - + .8732D-01, -.4108D-01, -.1088D-01, .2598D-02, .4628D+00, - + .3354D-01, -.3024D-01, .1890D-02, - + .8912D-01, -.4163D-01, -.1050D-01, .3085D-02, .4800D+00, - + .3420D-01, -.2882D-01, .2834D-02, - + .9090D-01, -.4216D-01, -.1010D-01, .3587D-02, .4966D+00, - + .3487D-01, -.2743D-01, .3766D-02, - + .9245D-01, -.4262D-01, -.9733D-02, .4044D-02, .5108D+00, - + .3549D-01, -.2624D-01, .4584D-02 / - DATA ((PARTON(I,N,14),I=1,8),N=1,8)/ - + .4166D-01, -.2701D-01, -.1149D-01, -.5735D-03, .1782D-01, - + .4915D-01, -.6614D-01, -.6354D-02, - + .4743D-01, -.2912D-01, -.1254D-01, -.1051D-02, .4053D-01, - + .4689D-01, -.6915D-01, -.8802D-02, - + .5146D-01, -.3056D-01, -.1314D-01, -.1270D-02, .5852D-01, - + .4554D-01, -.7040D-01, -.1001D-01, - + .5575D-01, -.3208D-01, -.1367D-01, -.1405D-02, .7974D-01, - + .4433D-01, -.7080D-01, -.1080D-01, - + .6050D-01, -.3372D-01, -.1411D-01, -.1440D-02, .1057D+00, - + .4334D-01, -.7021D-01, -.1105D-01, - + .6372D-01, -.3482D-01, -.1433D-01, -.1398D-02, .1248D+00, - + .4285D-01, -.6929D-01, -.1088D-01, - + .6612D-01, -.3563D-01, -.1446D-01, -.1332D-02, .1396D+00, - + .4259D-01, -.6832D-01, -.1058D-01, - + .6953D-01, -.3677D-01, -.1457D-01, -.1187D-02, .1619D+00, - + .4240D-01, -.6659D-01, -.9934D-02 / - DATA ((PARTON(I,N,14),I=1,8),N=9,16)/ - + .7195D-01, -.3756D-01, -.1463D-01, -.1060D-02, .1786D+00, - + .4238D-01, -.6521D-01, -.9357D-02, - + .7637D-01, -.3900D-01, -.1465D-01, -.7665D-03, .2108D+00, - + .4251D-01, -.6243D-01, -.8065D-02, - + .8028D-01, -.4024D-01, -.1455D-01, -.4121D-03, .2404D+00, - + .4291D-01, -.5961D-01, -.6646D-02, - + .8362D-01, -.4129D-01, -.1439D-01, -.3847D-04, .2663D+00, - + .4345D-01, -.5704D-01, -.5261D-02, - + .8640D-01, -.4216D-01, -.1420D-01, .3218D-03, .2880D+00, - + .4402D-01, -.5478D-01, -.4004D-02, - + .8960D-01, -.4314D-01, -.1391D-01, .7902D-03, .3134D+00, - + .4482D-01, -.5214D-01, -.2459D-02, - + .9231D-01, -.4395D-01, -.1362D-01, .1230D-02, .3349D+00, - + .4562D-01, -.4987D-01, -.1088D-02, - + .9483D-01, -.4471D-01, -.1330D-01, .1679D-02, .3549D+00, - + .4645D-01, -.4772D-01, .2443D-03 / - DATA ((PARTON(I,N,14),I=1,8),N=17,25)/ - + .9709D-01, -.4537D-01, -.1298D-01, .2112D-02, .3726D+00, - + .4723D-01, -.4580D-01, .1469D-02, - + .9986D-01, -.4617D-01, -.1254D-01, .2686D-02, .3941D+00, - + .4828D-01, -.4341D-01, .3018D-02, - + .1024D+00, -.4690D-01, -.1209D-01, .3248D-02, .4134D+00, - + .4931D-01, -.4125D-01, .4466D-02, - + .1048D+00, -.4759D-01, -.1161D-01, .3825D-02, .4315D+00, - + .5036D-01, -.3914D-01, .5892D-02, - + .1069D+00, -.4817D-01, -.1117D-01, .4348D-02, .4468D+00, - + .5131D-01, -.3733D-01, .7138D-02, - + .1090D+00, -.4876D-01, -.1069D-01, .4904D-02, .4619D+00, - + .5232D-01, -.3550D-01, .8422D-02, - + .1110D+00, -.4929D-01, -.1023D-01, .5440D-02, .4755D+00, - + .5329D-01, -.3383D-01, .9622D-02, - + .1129D+00, -.4981D-01, -.9748D-02, .5982D-02, .4883D+00, - + .5426D-01, -.3219D-01, .1080D-01, - + .1146D+00, -.5025D-01, -.9313D-02, .6469D-02, .4990D+00, - + .5514D-01, -.3078D-01, .1184D-01 / - DATA ((PARTON(I,N,15),I=1,8),N=1,8)/ - + .5677D-01, -.3425D-01, -.1451D-01, -.4771D-03, .2329D-01, - + .6243D-01, -.6734D-01, -.3979D-03, - + .6386D-01, -.3666D-01, -.1536D-01, -.7985D-03, .5043D-01, - + .6027D-01, -.7298D-01, -.3960D-02, - + .6875D-01, -.3829D-01, -.1579D-01, -.8885D-03, .7152D-01, - + .5918D-01, -.7562D-01, -.5669D-02, - + .7392D-01, -.3998D-01, -.1611D-01, -.8727D-03, .9592D-01, - + .5839D-01, -.7716D-01, -.6756D-02, - + .7958D-01, -.4180D-01, -.1631D-01, -.7291D-03, .1250D+00, - + .5800D-01, -.7745D-01, -.7109D-02, - + .8338D-01, -.4299D-01, -.1635D-01, -.5602D-03, .1459D+00, - + .5803D-01, -.7689D-01, -.6881D-02, - + .8619D-01, -.4386D-01, -.1634D-01, -.3986D-03, .1620D+00, - + .5817D-01, -.7610D-01, -.6487D-02, - + .9017D-01, -.4508D-01, -.1626D-01, -.1152D-03, .1855D+00, - + .5859D-01, -.7456D-01, -.5630D-02 / - DATA ((PARTON(I,N,15),I=1,8),N=9,16)/ - + .9296D-01, -.4592D-01, -.1617D-01, .1125D-03, .2028D+00, - + .5902D-01, -.7323D-01, -.4857D-02, - + .9802D-01, -.4743D-01, -.1592D-01, .5950D-03, .2352D+00, - + .6003D-01, -.7036D-01, -.3123D-02, - + .1025D+00, -.4871D-01, -.1558D-01, .1114D-02, .2641D+00, - + .6127D-01, -.6739D-01, -.1244D-02, - + .1062D+00, -.4978D-01, -.1521D-01, .1624D-02, .2887D+00, - + .6250D-01, -.6455D-01, .5743D-03, - + .1093D+00, -.5065D-01, -.1484D-01, .2092D-02, .3088D+00, - + .6365D-01, -.6208D-01, .2210D-02, - + .1129D+00, -.5162D-01, -.1437D-01, .2679D-02, .3317D+00, - + .6514D-01, -.5914D-01, .4209D-02, - + .1158D+00, -.5241D-01, -.1392D-01, .3211D-02, .3506D+00, - + .6651D-01, -.5660D-01, .5974D-02, - + .1186D+00, -.5314D-01, -.1345D-01, .3740D-02, .3678D+00, - + .6786D-01, -.5417D-01, .7677D-02 / - DATA ((PARTON(I,N,15),I=1,8),N=17,25)/ - + .1210D+00, -.5377D-01, -.1301D-01, .4237D-02, .3826D+00, - + .6913D-01, -.5197D-01, .9237D-02, - + .1240D+00, -.5453D-01, -.1242D-01, .4880D-02, .4001D+00, - + .7074D-01, -.4926D-01, .1120D-01, - + .1266D+00, -.5520D-01, -.1185D-01, .5494D-02, .4153D+00, - + .7230D-01, -.4678D-01, .1303D-01, - + .1292D+00, -.5583D-01, -.1127D-01, .6110D-02, .4293D+00, - + .7383D-01, -.4438D-01, .1482D-01, - + .1314D+00, -.5636D-01, -.1074D-01, .6658D-02, .4407D+00, - + .7522D-01, -.4232D-01, .1638D-01, - + .1336D+00, -.5688D-01, -.1019D-01, .7231D-02, .4516D+00, - + .7665D-01, -.4025D-01, .1799D-01, - + .1356D+00, -.5735D-01, -.9656D-02, .7773D-02, .4611D+00, - + .7800D-01, -.3832D-01, .1948D-01, - + .1376D+00, -.5780D-01, -.9119D-02, .8313D-02, .4697D+00, - + .7937D-01, -.3646D-01, .2095D-01, - + .1393D+00, -.5817D-01, -.8641D-02, .8792D-02, .4768D+00, - + .8056D-01, -.3485D-01, .2223D-01 / - DATA ((PARTON(I,N,16),I=1,8),N=1,8)/ - + .7745D-01, -.4375D-01, -.1785D-01, -.2838D-03, .3312D-01, - + .7650D-01, -.7002D-01, .5346D-02, - + .8594D-01, -.4637D-01, -.1831D-01, -.3570D-03, .6586D-01, - + .7477D-01, -.7836D-01, .7974D-03, - + .9173D-01, -.4812D-01, -.1845D-01, -.2660D-03, .9057D-01, - + .7433D-01, -.8224D-01, -.1163D-02, - + .9777D-01, -.4989D-01, -.1846D-01, -.5496D-04, .1183D+00, - + .7446D-01, -.8466D-01, -.2200D-02, - + .1043D+00, -.5176D-01, -.1830D-01, .3033D-03, .1504D+00, - + .7526D-01, -.8545D-01, -.2198D-02, - + .1086D+00, -.5298D-01, -.1811D-01, .6149D-03, .1727D+00, - + .7620D-01, -.8504D-01, -.1593D-02, - + .1118D+00, -.5385D-01, -.1792D-01, .8801D-03, .1894D+00, - + .7705D-01, -.8431D-01, -.8669D-03, - + .1163D+00, -.5505D-01, -.1759D-01, .1307D-02, .2134D+00, - + .7854D-01, -.8267D-01, .5310D-03 / - DATA ((PARTON(I,N,16),I=1,8),N=9,16)/ - + .1194D+00, -.5588D-01, -.1732D-01, .1636D-02, .2305D+00, - + .7972D-01, -.8122D-01, .1725D-02, - + .1250D+00, -.5732D-01, -.1673D-01, .2299D-02, .2615D+00, - + .8210D-01, -.7798D-01, .4285D-02, - + .1298D+00, -.5852D-01, -.1612D-01, .2962D-02, .2881D+00, - + .8455D-01, -.7459D-01, .6929D-02, - + .1338D+00, -.5950D-01, -.1552D-01, .3580D-02, .3098D+00, - + .8682D-01, -.7143D-01, .9410D-02, - + .1371D+00, -.6028D-01, -.1498D-01, .4127D-02, .3271D+00, - + .8885D-01, -.6861D-01, .1160D-01, - + .1408D+00, -.6113D-01, -.1431D-01, .4789D-02, .3460D+00, - + .9125D-01, -.6527D-01, .1422D-01, - + .1439D+00, -.6182D-01, -.1371D-01, .5373D-02, .3610D+00, - + .9341D-01, -.6242D-01, .1651D-01, - + .1467D+00, -.6243D-01, -.1311D-01, .5939D-02, .3742D+00, - + .9544D-01, -.5968D-01, .1868D-01 / - DATA ((PARTON(I,N,16),I=1,8),N=17,25)/ - + .1492D+00, -.6295D-01, -.1256D-01, .6457D-02, .3852D+00, - + .9733D-01, -.5722D-01, .2066D-01, - + .1522D+00, -.6356D-01, -.1186D-01, .7112D-02, .3976D+00, - + .9967D-01, -.5419D-01, .2313D-01, - + .1548D+00, -.6409D-01, -.1119D-01, .7722D-02, .4079D+00, - + .1019D+00, -.5140D-01, .2541D-01, - + .1573D+00, -.6457D-01, -.1053D-01, .8321D-02, .4169D+00, - + .1041D+00, -.4872D-01, .2763D-01, - + .1595D+00, -.6496D-01, -.9951D-02, .8843D-02, .4238D+00, - + .1059D+00, -.4642D-01, .2954D-01, - + .1616D+00, -.6533D-01, -.9347D-02, .9378D-02, .4300D+00, - + .1079D+00, -.4411D-01, .3150D-01, - + .1635D+00, -.6566D-01, -.8781D-02, .9875D-02, .4351D+00, - + .1097D+00, -.4197D-01, .3332D-01, - + .1653D+00, -.6596D-01, -.8221D-02, .1036D-01, .4394D+00, - + .1115D+00, -.3991D-01, .3509D-01, - + .1669D+00, -.6620D-01, -.7729D-02, .1079D-01, .4426D+00, - + .1131D+00, -.3813D-01, .3664D-01 / - DATA ((PARTON(I,N,17),I=1,8),N=1,8)/ - + .1135D+00, -.5915D-01, -.2190D-01, .1091D-03, .5785D-01, - + .9282D-01, -.7922D-01, .9285D-02, - + .1235D+00, -.6170D-01, -.2158D-01, .4666D-03, .9840D-01, - + .9331D-01, -.8974D-01, .4896D-02, - + .1302D+00, -.6334D-01, -.2120D-01, .8368D-03, .1274D+00, - + .9488D-01, -.9417D-01, .3713D-02, - + .1371D+00, -.6496D-01, -.2067D-01, .1323D-02, .1584D+00, - + .9745D-01, -.9657D-01, .3903D-02, - + .1444D+00, -.6660D-01, -.1996D-01, .1955D-02, .1923D+00, - + .1011D+00, -.9682D-01, .5554D-02, - + .1491D+00, -.6763D-01, -.1940D-01, .2432D-02, .2146D+00, - + .1039D+00, -.9585D-01, .7370D-02, - + .1525D+00, -.6835D-01, -.1895D-01, .2809D-02, .2307D+00, - + .1062D+00, -.9459D-01, .9018D-02, - + .1573D+00, -.6931D-01, -.1827D-01, .3378D-02, .2529D+00, - + .1097D+00, -.9227D-01, .1174D-01 / - DATA ((PARTON(I,N,17),I=1,8),N=9,16)/ - + .1605D+00, -.6995D-01, -.1776D-01, .3799D-02, .2679D+00, - + .1122D+00, -.9025D-01, .1386D-01, - + .1662D+00, -.7101D-01, -.1676D-01, .4609D-02, .2937D+00, - + .1170D+00, -.8603D-01, .1808D-01, - + .1711D+00, -.7185D-01, -.1581D-01, .5363D-02, .3142D+00, - + .1216D+00, -.8176D-01, .2213D-01, - + .1750D+00, -.7249D-01, -.1496D-01, .6027D-02, .3299D+00, - + .1254D+00, -.7791D-01, .2574D-01, - + .1782D+00, -.7297D-01, -.1424D-01, .6589D-02, .3415D+00, - + .1287D+00, -.7457D-01, .2882D-01, - + .1817D+00, -.7346D-01, -.1338D-01, .7244D-02, .3533D+00, - + .1325D+00, -.7061D-01, .3241D-01, - + .1845D+00, -.7383D-01, -.1264D-01, .7801D-02, .3619D+00, - + .1358D+00, -.6732D-01, .3547D-01, - + .1870D+00, -.7412D-01, -.1195D-01, .8322D-02, .3687D+00, - + .1388D+00, -.6417D-01, .3832D-01 / - DATA ((PARTON(I,N,17),I=1,8),N=17,25)/ - + .1892D+00, -.7435D-01, -.1132D-01, .8785D-02, .3738D+00, - + .1415D+00, -.6140D-01, .4090D-01, - + .1918D+00, -.7459D-01, -.1054D-01, .9350D-02, .3789D+00, - + .1448D+00, -.5797D-01, .4404D-01, - + .1940D+00, -.7476D-01, -.9827D-02, .9860D-02, .3823D+00, - + .1480D+00, -.5487D-01, .4692D-01, - + .1960D+00, -.7489D-01, -.9138D-02, .1034D-01, .3846D+00, - + .1508D+00, -.5189D-01, .4966D-01, - + .1977D+00, -.7497D-01, -.8548D-02, .1075D-01, .3857D+00, - + .1534D+00, -.4938D-01, .5203D-01, - + .1993D+00, -.7502D-01, -.7949D-02, .1116D-01, .3860D+00, - + .1560D+00, -.4684D-01, .5441D-01, - + .2008D+00, -.7504D-01, -.7400D-02, .1153D-01, .3857D+00, - + .1584D+00, -.4455D-01, .5661D-01, - + .2021D+00, -.7503D-01, -.6867D-02, .1188D-01, .3848D+00, - + .1607D+00, -.4231D-01, .5874D-01, - + .2032D+00, -.7500D-01, -.6407D-02, .1218D-01, .3835D+00, - + .1627D+00, -.4040D-01, .6058D-01 / - DATA ((PARTON(I,N,18),I=1,8),N=1,8)/ - + .1622D+00, -.7746D-01, -.2475D-01, .6037D-03, .1050D+00, - + .1058D+00, -.9920D-01, .6823D-02, - + .1729D+00, -.7933D-01, -.2346D-01, .1428D-02, .1510D+00, - + .1123D+00, -.1080D+00, .6279D-02, - + .1798D+00, -.8044D-01, -.2248D-01, .2060D-02, .1815D+00, - + .1181D+00, -.1105D+00, .8084D-02, - + .1867D+00, -.8146D-01, -.2138D-01, .2769D-02, .2120D+00, - + .1250D+00, -.1106D+00, .1147D-01, - + .1937D+00, -.8239D-01, -.2010D-01, .3585D-02, .2428D+00, - + .1330D+00, -.1084D+00, .1650D-01, - + .1982D+00, -.8291D-01, -.1920D-01, .4150D-02, .2616D+00, - + .1385D+00, -.1058D+00, .2045D-01, - + .2014D+00, -.8324D-01, -.1853D-01, .4574D-02, .2744D+00, - + .1426D+00, -.1035D+00, .2358D-01, - + .2057D+00, -.8363D-01, -.1755D-01, .5181D-02, .2910D+00, - + .1486D+00, -.9956D-01, .2827D-01 / - DATA ((PARTON(I,N,18),I=1,8),N=9,16)/ - + .2086D+00, -.8385D-01, -.1685D-01, .5614D-02, .3014D+00, - + .1528D+00, -.9658D-01, .3168D-01, - + .2135D+00, -.8413D-01, -.1555D-01, .6410D-02, .3175D+00, - + .1603D+00, -.9080D-01, .3803D-01, - + .2174D+00, -.8424D-01, -.1440D-01, .7102D-02, .3285D+00, - + .1669D+00, -.8539D-01, .4372D-01, - + .2205D+00, -.8425D-01, -.1342D-01, .7678D-02, .3356D+00, - + .1723D+00, -.8067D-01, .4857D-01, - + .2229D+00, -.8419D-01, -.1261D-01, .8144D-02, .3398D+00, - + .1768D+00, -.7672D-01, .5259D-01, - + .2254D+00, -.8404D-01, -.1169D-01, .8664D-02, .3428D+00, - + .1819D+00, -.7219D-01, .5716D-01, - + .2273D+00, -.8386D-01, -.1092D-01, .9087D-02, .3440D+00, - + .1861D+00, -.6846D-01, .6094D-01, - + .2289D+00, -.8364D-01, -.1021D-01, .9466D-02, .3440D+00, - + .1899D+00, -.6500D-01, .6442D-01 / - DATA ((PARTON(I,N,18),I=1,8),N=17,25)/ - + .2303D+00, -.8341D-01, -.9591D-02, .9790D-02, .3430D+00, - + .1934D+00, -.6193D-01, .6750D-01, - + .2317D+00, -.8306D-01, -.8842D-02, .1017D-01, .3408D+00, - + .1974D+00, -.5825D-01, .7122D-01, - + .2329D+00, -.8270D-01, -.8174D-02, .1050D-01, .3378D+00, - + .2011D+00, -.5495D-01, .7457D-01, - + .2339D+00, -.8230D-01, -.7543D-02, .1079D-01, .3340D+00, - + .2047D+00, -.5183D-01, .7775D-01, - + .2346D+00, -.8193D-01, -.7014D-02, .1103D-01, .3301D+00, - + .2077D+00, -.4920D-01, .8046D-01, - + .2352D+00, -.8151D-01, -.6488D-02, .1126D-01, .3257D+00, - + .2107D+00, -.4661D-01, .8320D-01, - + .2357D+00, -.8110D-01, -.6015D-02, .1145D-01, .3211D+00, - + .2135D+00, -.4423D-01, .8567D-01, - + .2361D+00, -.8066D-01, -.5563D-02, .1163D-01, .3162D+00, - + .2162D+00, -.4195D-01, .8805D-01, - + .2363D+00, -.8026D-01, -.5180D-02, .1177D-01, .3116D+00, - + .2185D+00, -.4004D-01, .9013D-01 / - DATA ((PARTON(I,N,19),I=1,8),N=1,8)/ - + .2095D+00, -.9242D-01, -.2549D-01, .9496D-03, .1618D+00, - + .1161D+00, -.1222D+00, .1806D-02, - + .2194D+00, -.9321D-01, -.2350D-01, .2049D-02, .2063D+00, - + .1306D+00, -.1255D+00, .7824D-02, - + .2255D+00, -.9355D-01, -.2211D-01, .2804D-02, .2336D+00, - + .1411D+00, -.1245D+00, .1371D-01, - + .2315D+00, -.9374D-01, -.2065D-01, .3590D-02, .2590D+00, - + .1522D+00, -.1211D+00, .2090D-01, - + .2374D+00, -.9373D-01, -.1905D-01, .4432D-02, .2822D+00, - + .1641D+00, -.1157D+00, .2950D-01, - + .2410D+00, -.9361D-01, -.1798D-01, .4982D-02, .2951D+00, - + .1718D+00, -.1112D+00, .3549D-01, - + .2434D+00, -.9346D-01, -.1720D-01, .5379D-02, .3032D+00, - + .1775D+00, -.1077D+00, .3998D-01, - + .2466D+00, -.9316D-01, -.1610D-01, .5928D-02, .3125D+00, - + .1853D+00, -.1023D+00, .4637D-01 / - DATA ((PARTON(I,N,19),I=1,8),N=9,16)/ - + .2487D+00, -.9289D-01, -.1533D-01, .6308D-02, .3175D+00, - + .1906D+00, -.9846D-01, .5083D-01, - + .2520D+00, -.9227D-01, -.1394D-01, .6977D-02, .3235D+00, - + .1998D+00, -.9126D-01, .5879D-01, - + .2544D+00, -.9159D-01, -.1275D-01, .7526D-02, .3255D+00, - + .2076D+00, -.8492D-01, .6565D-01, - + .2561D+00, -.9092D-01, -.1177D-01, .7960D-02, .3249D+00, - + .2140D+00, -.7957D-01, .7134D-01, - + .2572D+00, -.9029D-01, -.1098D-01, .8296D-02, .3230D+00, - + .2191D+00, -.7520D-01, .7596D-01, - + .2583D+00, -.8950D-01, -.1009D-01, .8653D-02, .3193D+00, - + .2248D+00, -.7030D-01, .8112D-01, - + .2589D+00, -.8877D-01, -.9370D-02, .8931D-02, .3150D+00, - + .2294D+00, -.6634D-01, .8532D-01, - + .2593D+00, -.8804D-01, -.8719D-02, .9168D-02, .3102D+00, - + .2336D+00, -.6270D-01, .8915D-01 / - DATA ((PARTON(I,N,19),I=1,8),N=17,25)/ - + .2596D+00, -.8735D-01, -.8156D-02, .9360D-02, .3052D+00, - + .2373D+00, -.5952D-01, .9248D-01, - + .2596D+00, -.8646D-01, -.7488D-02, .9573D-02, .2983D+00, - + .2417D+00, -.5573D-01, .9653D-01, - + .2595D+00, -.8559D-01, -.6903D-02, .9744D-02, .2914D+00, - + .2457D+00, -.5238D-01, .1001D+00, - + .2592D+00, -.8471D-01, -.6359D-02, .9887D-02, .2842D+00, - + .2494D+00, -.4922D-01, .1035D+00, - + .2588D+00, -.8393D-01, -.5909D-02, .9993D-02, .2776D+00, - + .2525D+00, -.4660D-01, .1064D+00, - + .2582D+00, -.8310D-01, -.5468D-02, .1008D-01, .2707D+00, - + .2556D+00, -.4396D-01, .1092D+00, - + .2576D+00, -.8230D-01, -.5075D-02, .1016D-01, .2640D+00, - + .2586D+00, -.4163D-01, .1118D+00, - + .2569D+00, -.8150D-01, -.4704D-02, .1021D-01, .2574D+00, - + .2614D+00, -.3939D-01, .1143D+00, - + .2562D+00, -.8078D-01, -.4393D-02, .1025D-01, .2514D+00, - + .2638D+00, -.3748D-01, .1165D+00 / - DATA ((PARTON(I,N,20),I=1,8),N=1,8)/ - + .2545D+00, -.1041D+00, -.2486D-01, .1133D-02, .2204D+00, - + .1292D+00, -.1435D+00, -.8068D-03, - + .2625D+00, -.1037D+00, -.2245D-01, .2337D-02, .2575D+00, - + .1516D+00, -.1396D+00, .1267D-01, - + .2673D+00, -.1031D+00, -.2085D-01, .3110D-02, .2781D+00, - + .1663D+00, -.1345D+00, .2268D-01, - + .2716D+00, -.1024D+00, -.1921D-01, .3873D-02, .2953D+00, - + .1809D+00, -.1276D+00, .3343D-01, - + .2756D+00, -.1014D+00, -.1748D-01, .4648D-02, .3087D+00, - + .1957D+00, -.1190D+00, .4511D-01, - + .2778D+00, -.1006D+00, -.1635D-01, .5132D-02, .3146D+00, - + .2050D+00, -.1128D+00, .5276D-01, - + .2792D+00, -.9990D-01, -.1554D-01, .5471D-02, .3175D+00, - + .2115D+00, -.1082D+00, .5828D-01, - + .2808D+00, -.9889D-01, -.1442D-01, .5922D-02, .3194D+00, - + .2204D+00, -.1016D+00, .6592D-01 / - DATA ((PARTON(I,N,20),I=1,8),N=9,16)/ - + .2817D+00, -.9813D-01, -.1365D-01, .6225D-02, .3192D+00, - + .2262D+00, -.9695D-01, .7110D-01, - + .2828D+00, -.9662D-01, -.1229D-01, .6738D-02, .3160D+00, - + .2364D+00, -.8878D-01, .8015D-01, - + .2833D+00, -.9517D-01, -.1116D-01, .7135D-02, .3104D+00, - + .2447D+00, -.8180D-01, .8775D-01, - + .2833D+00, -.9385D-01, -.1024D-01, .7431D-02, .3038D+00, - + .2515D+00, -.7602D-01, .9394D-01, - + .2830D+00, -.9270D-01, -.9510D-02, .7647D-02, .2973D+00, - + .2568D+00, -.7139D-01, .9887D-01, - + .2824D+00, -.9131D-01, -.8707D-02, .7865D-02, .2888D+00, - + .2626D+00, -.6625D-01, .1043D+00, - + .2816D+00, -.9008D-01, -.8061D-02, .8023D-02, .2808D+00, - + .2674D+00, -.6214D-01, .1087D+00, - + .2806D+00, -.8890D-01, -.7485D-02, .8147D-02, .2729D+00, - + .2716D+00, -.5843D-01, .1127D+00 / - DATA ((PARTON(I,N,20),I=1,8),N=17,25)/ - + .2796D+00, -.8782D-01, -.6994D-02, .8240D-02, .2654D+00, - + .2753D+00, -.5525D-01, .1162D+00, - + .2782D+00, -.8644D-01, -.6416D-02, .8330D-02, .2559D+00, - + .2798D+00, -.5144D-01, .1203D+00, - + .2766D+00, -.8515D-01, -.5917D-02, .8391D-02, .2469D+00, - + .2837D+00, -.4807D-01, .1240D+00, - + .2750D+00, -.8387D-01, -.5457D-02, .8430D-02, .2380D+00, - + .2874D+00, -.4493D-01, .1274D+00, - + .2734D+00, -.8274D-01, -.5080D-02, .8449D-02, .2302D+00, - + .2905D+00, -.4231D-01, .1303D+00, - + .2716D+00, -.8157D-01, -.4714D-02, .8455D-02, .2223D+00, - + .2936D+00, -.3975D-01, .1332D+00, - + .2699D+00, -.8047D-01, -.4390D-02, .8448D-02, .2149D+00, - + .2964D+00, -.3743D-01, .1359D+00, - + .2681D+00, -.7938D-01, -.4087D-02, .8430D-02, .2077D+00, - + .2992D+00, -.3521D-01, .1384D+00, - + .2665D+00, -.7841D-01, -.3834D-02, .8407D-02, .2014D+00, - + .3015D+00, -.3334D-01, .1405D+00 / - DATA ((PARTON(I,N,21),I=1,8),N=1,8)/ - + .2964D+00, -.1128D+00, -.2337D-01, .1176D-02, .2738D+00, - + .1477D+00, -.1601D+00, .1775D-02, - + .3017D+00, -.1110D+00, -.2078D-01, .2357D-02, .2993D+00, - + .1766D+00, -.1489D+00, .2216D-01, - + .3045D+00, -.1095D+00, -.1910D-01, .3077D-02, .3111D+00, - + .1943D+00, -.1399D+00, .3567D-01, - + .3066D+00, -.1078D+00, -.1742D-01, .3761D-02, .3187D+00, - + .2112D+00, -.1297D+00, .4926D-01, - + .3081D+00, -.1058D+00, -.1569D-01, .4424D-02, .3216D+00, - + .2276D+00, -.1185D+00, .6319D-01, - + .3086D+00, -.1043D+00, -.1459D-01, .4822D-02, .3207D+00, - + .2376D+00, -.1110D+00, .7199D-01, - + .3087D+00, -.1032D+00, -.1381D-01, .5092D-02, .3186D+00, - + .2446D+00, -.1056D+00, .7822D-01, - + .3084D+00, -.1015D+00, -.1274D-01, .5440D-02, .3138D+00, - + .2538D+00, -.9802D-01, .8665D-01 / - DATA ((PARTON(I,N,21),I=1,8),N=9,16)/ - + .3080D+00, -.1003D+00, -.1201D-01, .5666D-02, .3092D+00, - + .2599D+00, -.9285D-01, .9225D-01, - + .3067D+00, -.9799D-01, -.1074D-01, .6034D-02, .2985D+00, - + .2703D+00, -.8399D-01, .1019D+00, - + .3050D+00, -.9584D-01, -.9701D-02, .6300D-02, .2871D+00, - + .2786D+00, -.7655D-01, .1098D+00, - + .3031D+00, -.9395D-01, -.8871D-02, .6483D-02, .2762D+00, - + .2854D+00, -.7054D-01, .1162D+00, - + .3013D+00, -.9234D-01, -.8221D-02, .6607D-02, .2666D+00, - + .2906D+00, -.6575D-01, .1213D+00, - + .2989D+00, -.9043D-01, -.7512D-02, .6721D-02, .2550D+00, - + .2963D+00, -.6057D-01, .1268D+00, - + .2966D+00, -.8879D-01, -.6948D-02, .6792D-02, .2449D+00, - + .3010D+00, -.5639D-01, .1313D+00, - + .2942D+00, -.8723D-01, -.6449D-02, .6839D-02, .2352D+00, - + .3050D+00, -.5267D-01, .1353D+00 / - DATA ((PARTON(I,N,21),I=1,8),N=17,25)/ - + .2920D+00, -.8582D-01, -.6026D-02, .6865D-02, .2265D+00, - + .3086D+00, -.4945D-01, .1387D+00, - + .2890D+00, -.8406D-01, -.5533D-02, .6877D-02, .2158D+00, - + .3130D+00, -.4566D-01, .1429D+00, - + .2861D+00, -.8243D-01, -.5110D-02, .6870D-02, .2060D+00, - + .3166D+00, -.4232D-01, .1465D+00, - + .2831D+00, -.8083D-01, -.4724D-02, .6848D-02, .1966D+00, - + .3202D+00, -.3922D-01, .1500D+00, - + .2804D+00, -.7944D-01, -.4409D-02, .6817D-02, .1886D+00, - + .3232D+00, -.3665D-01, .1529D+00, - + .2775D+00, -.7801D-01, -.4104D-02, .6775D-02, .1805D+00, - + .3262D+00, -.3410D-01, .1557D+00, - + .2747D+00, -.7668D-01, -.3836D-02, .6727D-02, .1732D+00, - + .3289D+00, -.3181D-01, .1584D+00, - + .2719D+00, -.7537D-01, -.3586D-02, .6672D-02, .1662D+00, - + .3315D+00, -.2966D-01, .1609D+00, - + .2694D+00, -.7422D-01, -.3379D-02, .6619D-02, .1602D+00, - + .3338D+00, -.2780D-01, .1630D+00 / - DATA ((PARTON(I,N,22),I=1,8),N=1,8)/ - + .3344D+00, -.1185D+00, -.2136D-01, .1115D-02, .3169D+00, - + .1722D+00, -.1706D+00, .1069D-01, - + .3363D+00, -.1154D+00, -.1877D-01, .2187D-02, .3286D+00, - + .2052D+00, -.1529D+00, .3649D-01, - + .3366D+00, -.1131D+00, -.1712D-01, .2816D-02, .3309D+00, - + .2244D+00, -.1406D+00, .5254D-01, - + .3362D+00, -.1105D+00, -.1550D-01, .3393D-02, .3288D+00, - + .2421D+00, -.1280D+00, .6801D-01, - + .3348D+00, -.1075D+00, -.1386D-01, .3932D-02, .3219D+00, - + .2592D+00, -.1147D+00, .8335D-01, - + .3334D+00, -.1055D+00, -.1283D-01, .4244D-02, .3148D+00, - + .2693D+00, -.1062D+00, .9279D-01, - + .3321D+00, -.1039D+00, -.1210D-01, .4448D-02, .3086D+00, - + .2763D+00, -.1001D+00, .9936D-01, - + .3298D+00, -.1017D+00, -.1111D-01, .4704D-02, .2983D+00, - + .2855D+00, -.9195D-01, .1081D+00 / - DATA ((PARTON(I,N,22),I=1,8),N=9,16)/ - + .3279D+00, -.1000D+00, -.1045D-01, .4865D-02, .2902D+00, - + .2915D+00, -.8653D-01, .1140D+00, - + .3240D+00, -.9699D-01, -.9307D-02, .5114D-02, .2740D+00, - + .3015D+00, -.7718D-01, .1238D+00, - + .3201D+00, -.9426D-01, -.8381D-02, .5278D-02, .2587D+00, - + .3096D+00, -.6954D-01, .1318D+00, - + .3163D+00, -.9189D-01, -.7649D-02, .5380D-02, .2452D+00, - + .3160D+00, -.6341D-01, .1382D+00, - + .3129D+00, -.8990D-01, -.7079D-02, .5440D-02, .2338D+00, - + .3209D+00, -.5860D-01, .1432D+00, - + .3086D+00, -.8758D-01, -.6464D-02, .5484D-02, .2206D+00, - + .3264D+00, -.5338D-01, .1487D+00, - + .3049D+00, -.8561D-01, -.5977D-02, .5501D-02, .2095D+00, - + .3308D+00, -.4922D-01, .1531D+00, - + .3011D+00, -.8376D-01, -.5549D-02, .5500D-02, .1992D+00, - + .3348D+00, -.4551D-01, .1571D+00 / - DATA ((PARTON(I,N,22),I=1,8),N=17,25)/ - + .2977D+00, -.8210D-01, -.5189D-02, .5487D-02, .1902D+00, - + .3381D+00, -.4233D-01, .1605D+00, - + .2933D+00, -.8004D-01, -.4771D-02, .5455D-02, .1792D+00, - + .3422D+00, -.3856D-01, .1646D+00, - + .2891D+00, -.7815D-01, -.4413D-02, .5412D-02, .1695D+00, - + .3456D+00, -.3524D-01, .1681D+00, - + .2848D+00, -.7633D-01, -.4089D-02, .5359D-02, .1604D+00, - + .3490D+00, -.3218D-01, .1714D+00, - + .2811D+00, -.7475D-01, -.3824D-02, .5305D-02, .1527D+00, - + .3518D+00, -.2965D-01, .1743D+00, - + .2772D+00, -.7314D-01, -.3570D-02, .5242D-02, .1452D+00, - + .3545D+00, -.2713D-01, .1771D+00, - + .2735D+00, -.7165D-01, -.3346D-02, .5178D-02, .1384D+00, - + .3572D+00, -.2486D-01, .1797D+00, - + .2698D+00, -.7020D-01, -.3139D-02, .5110D-02, .1319D+00, - + .3595D+00, -.2271D-01, .1821D+00, - + .2665D+00, -.6893D-01, -.2966D-02, .5047D-02, .1265D+00, - + .3617D+00, -.2088D-01, .1843D+00 / - DATA ((PARTON(I,N,23),I=1,8),N=1,8)/ - + .3677D+00, -.1216D+00, -.1907D-01, .9858D-03, .3467D+00, - + .2017D+00, -.1745D+00, .2586D-01, - + .3657D+00, -.1173D+00, -.1661D-01, .1904D-02, .3441D+00, - + .2361D+00, -.1517D+00, .5516D-01, - + .3634D+00, -.1142D+00, -.1507D-01, .2426D-02, .3373D+00, - + .2556D+00, -.1370D+00, .7268D-01, - + .3601D+00, -.1108D+00, -.1357D-01, .2892D-02, .3265D+00, - + .2732D+00, -.1225D+00, .8908D-01, - + .3557D+00, -.1070D+00, -.1207D-01, .3312D-02, .3112D+00, - + .2899D+00, -.1079D+00, .1050D+00, - + .3522D+00, -.1044D+00, -.1113D-01, .3546D-02, .2993D+00, - + .2997D+00, -.9874D-01, .1146D+00, - + .3494D+00, -.1025D+00, -.1047D-01, .3695D-02, .2898D+00, - + .3063D+00, -.9238D-01, .1213D+00, - + .3450D+00, -.9973D-01, -.9592D-02, .3876D-02, .2756D+00, - + .3151D+00, -.8382D-01, .1301D+00 / - DATA ((PARTON(I,N,23),I=1,8),N=9,16)/ - + .3417D+00, -.9776D-01, -.9002D-02, .3985D-02, .2651D+00, - + .3208D+00, -.7823D-01, .1359D+00, - + .3352D+00, -.9415D-01, -.7994D-02, .4145D-02, .2454D+00, - + .3302D+00, -.6872D-01, .1456D+00, - + .3290D+00, -.9094D-01, -.7184D-02, .4239D-02, .2279D+00, - + .3376D+00, -.6095D-01, .1534D+00, - + .3233D+00, -.8820D-01, -.6549D-02, .4287D-02, .2131D+00, - + .3437D+00, -.5483D-01, .1597D+00, - + .3184D+00, -.8592D-01, -.6057D-02, .4306D-02, .2010D+00, - + .3483D+00, -.5001D-01, .1646D+00, - + .3125D+00, -.8329D-01, -.5529D-02, .4308D-02, .1874D+00, - + .3534D+00, -.4485D-01, .1700D+00, - + .3073D+00, -.8108D-01, -.5112D-02, .4294D-02, .1762D+00, - + .3575D+00, -.4070D-01, .1742D+00, - + .3023D+00, -.7901D-01, -.4748D-02, .4269D-02, .1660D+00, - + .3611D+00, -.3703D-01, .1780D+00 / - DATA ((PARTON(I,N,23),I=1,8),N=17,25)/ - + .2978D+00, -.7717D-01, -.4442D-02, .4236D-02, .1573D+00, - + .3643D+00, -.3390D-01, .1814D+00, - + .2920D+00, -.7492D-01, -.4088D-02, .4185D-02, .1469D+00, - + .3680D+00, -.3016D-01, .1853D+00, - + .2867D+00, -.7286D-01, -.3787D-02, .4128D-02, .1378D+00, - + .3713D+00, -.2690D-01, .1887D+00, - + .2814D+00, -.7089D-01, -.3513D-02, .4065D-02, .1294D+00, - + .3744D+00, -.2387D-01, .1920D+00, - + .2767D+00, -.6919D-01, -.3292D-02, .4005D-02, .1224D+00, - + .3769D+00, -.2134D-01, .1947D+00, - + .2719D+00, -.6747D-01, -.3078D-02, .3939D-02, .1156D+00, - + .3796D+00, -.1884D-01, .1975D+00, - + .2674D+00, -.6589D-01, -.2891D-02, .3873D-02, .1096D+00, - + .3819D+00, -.1660D-01, .2000D+00, - + .2630D+00, -.6435D-01, -.2717D-02, .3806D-02, .1039D+00, - + .3842D+00, -.1445D-01, .2024D+00, - + .2591D+00, -.6302D-01, -.2573D-02, .3745D-02, .9915D-01, - + .3862D+00, -.1262D-01, .2044D+00 / - DATA ((PARTON(I,N,24),I=1,8),N=1,8)/ - + .3958D+00, -.1223D+00, -.1668D-01, .8227D-03, .3619D+00, - + .2346D+00, -.1721D+00, .4644D-01, - + .3896D+00, -.1169D+00, -.1444D-01, .1570D-02, .3461D+00, - + .2682D+00, -.1457D+00, .7728D-01, - + .3844D+00, -.1131D+00, -.1305D-01, .1985D-02, .3315D+00, - + .2869D+00, -.1294D+00, .9523D-01, - + .3782D+00, -.1091D+00, -.1171D-01, .2346D-02, .3136D+00, - + .3036D+00, -.1138D+00, .1118D+00, - + .3706D+00, -.1046D+00, -.1037D-01, .2662D-02, .2919D+00, - + .3192D+00, -.9844D-01, .1276D+00, - + .3651D+00, -.1016D+00, -.9537D-02, .2833D-02, .2765D+00, - + .3283D+00, -.8906D-01, .1371D+00, - + .3608D+00, -.9935D-01, -.8959D-02, .2939D-02, .2649D+00, - + .3344D+00, -.8251D-01, .1436D+00, - + .3543D+00, -.9618D-01, -.8186D-02, .3063D-02, .2482D+00, - + .3426D+00, -.7387D-01, .1522D+00 / - DATA ((PARTON(I,N,24),I=1,8),N=9,16)/ - + .3496D+00, -.9395D-01, -.7671D-02, .3135D-02, .2363D+00, - + .3477D+00, -.6817D-01, .1578D+00, - + .3406D+00, -.8990D-01, -.6797D-02, .3233D-02, .2149D+00, - + .3564D+00, -.5865D-01, .1671D+00, - + .3322D+00, -.8634D-01, -.6100D-02, .3280D-02, .1966D+00, - + .3634D+00, -.5095D-01, .1747D+00, - + .3248D+00, -.8333D-01, -.5555D-02, .3296D-02, .1816D+00, - + .3688D+00, -.4488D-01, .1807D+00, - + .3185D+00, -.8084D-01, -.5135D-02, .3292D-02, .1697D+00, - + .3730D+00, -.4015D-01, .1854D+00, - + .3111D+00, -.7800D-01, -.4685D-02, .3273D-02, .1565D+00, - + .3778D+00, -.3503D-01, .1906D+00, - + .3047D+00, -.7563D-01, -.4332D-02, .3246D-02, .1458D+00, - + .3815D+00, -.3097D-01, .1947D+00, - + .2986D+00, -.7343D-01, -.4024D-02, .3211D-02, .1363D+00, - + .3847D+00, -.2733D-01, .1983D+00 / - DATA ((PARTON(I,N,24),I=1,8),N=17,25)/ - + .2931D+00, -.7148D-01, -.3765D-02, .3172D-02, .1283D+00, - + .3877D+00, -.2423D-01, .2015D+00, - + .2862D+00, -.6910D-01, -.3467D-02, .3117D-02, .1188D+00, - + .3910D+00, -.2055D-01, .2052D+00, - + .2798D+00, -.6696D-01, -.3213D-02, .3060D-02, .1107D+00, - + .3941D+00, -.1732D-01, .2086D+00, - + .2736D+00, -.6490D-01, -.2984D-02, .2999D-02, .1032D+00, - + .3971D+00, -.1432D-01, .2118D+00, - + .2682D+00, -.6315D-01, -.2797D-02, .2943D-02, .9713D-01, - + .3995D+00, -.1181D-01, .2144D+00, - + .2627D+00, -.6138D-01, -.2618D-02, .2882D-02, .9124D-01, - + .4019D+00, -.9323D-02, .2171D+00, - + .2575D+00, -.5977D-01, -.2461D-02, .2824D-02, .8605D-01, - + .4040D+00, -.7084D-02, .2194D+00, - + .2525D+00, -.5820D-01, -.2316D-02, .2764D-02, .8122D-01, - + .4061D+00, -.4942D-02, .2217D+00, - + .2481D+00, -.5684D-01, -.2195D-02, .2711D-02, .7721D-01, - + .4079D+00, -.3114D-02, .2237D+00 / - DATA ((PARTON(I,N,25),I=1,8),N=1,8)/ - + .4182D+00, -.1210D+00, -.1433D-01, .6503D-03, .3630D+00, - + .2691D+00, -.1640D+00, .7116D-01, - + .4076D+00, -.1146D+00, -.1235D-01, .1231D-02, .3362D+00, - + .3003D+00, -.1356D+00, .1019D+00, - + .3996D+00, -.1103D+00, -.1113D-01, .1548D-02, .3154D+00, - + .3173D+00, -.1185D+00, .1194D+00, - + .3905D+00, -.1057D+00, -.9953D-02, .1819D-02, .2923D+00, - + .3326D+00, -.1023D+00, .1354D+00, - + .3798D+00, -.1006D+00, -.8785D-02, .2050D-02, .2664D+00, - + .3466D+00, -.8678D-01, .1506D+00, - + .3723D+00, -.9731D-01, -.8066D-02, .2172D-02, .2489D+00, - + .3549D+00, -.7731D-01, .1597D+00, - + .3666D+00, -.9485D-01, -.7567D-02, .2245D-02, .2362D+00, - + .3605D+00, -.7084D-01, .1660D+00, - + .3582D+00, -.9139D-01, -.6901D-02, .2328D-02, .2183D+00, - + .3677D+00, -.6218D-01, .1740D+00 / - DATA ((PARTON(I,N,25),I=1,8),N=9,16)/ - + .3521D+00, -.8896D-01, -.6460D-02, .2374D-02, .2060D+00, - + .3726D+00, -.5657D-01, .1794D+00, - + .3407D+00, -.8460D-01, -.5714D-02, .2432D-02, .1844D+00, - + .3803D+00, -.4722D-01, .1883D+00, - + .3304D+00, -.8081D-01, -.5120D-02, .2453D-02, .1665D+00, - + .3866D+00, -.3968D-01, .1955D+00, - + .3215D+00, -.7762D-01, -.4658D-02, .2451D-02, .1521D+00, - + .3916D+00, -.3371D-01, .2011D+00, - + .3139D+00, -.7502D-01, -.4303D-02, .2438D-02, .1409D+00, - + .3953D+00, -.2905D-01, .2056D+00, - + .3052D+00, -.7206D-01, -.3924D-02, .2411D-02, .1286D+00, - + .3997D+00, -.2402D-01, .2105D+00, - + .2977D+00, -.6960D-01, -.3626D-02, .2381D-02, .1190D+00, - + .4030D+00, -.2003D-01, .2143D+00, - + .2906D+00, -.6733D-01, -.3367D-02, .2345D-02, .1105D+00, - + .4062D+00, -.1647D-01, .2179D+00 / - DATA ((PARTON(I,N,25),I=1,8),N=17,25)/ - + .2843D+00, -.6534D-01, -.3150D-02, .2309D-02, .1033D+00, - + .4086D+00, -.1341D-01, .2208D+00, - + .2765D+00, -.6292D-01, -.2900D-02, .2258D-02, .9500D-01, - + .4120D+00, -.9777D-02, .2246D+00, - + .2693D+00, -.6074D-01, -.2688D-02, .2208D-02, .8793D-01, - + .4146D+00, -.6590D-02, .2277D+00, - + .2624D+00, -.5867D-01, -.2496D-02, .2155D-02, .8154D-01, - + .4172D+00, -.3611D-02, .2307D+00, - + .2564D+00, -.5692D-01, -.2340D-02, .2108D-02, .7636D-01, - + .4194D+00, -.1119D-02, .2332D+00, - + .2503D+00, -.5515D-01, -.2191D-02, .2057D-02, .7139D-01, - + .4217D+00, .1355D-02, .2358D+00, - + .2447D+00, -.5354D-01, -.2060D-02, .2009D-02, .6705D-01, - + .4238D+00, .3590D-02, .2381D+00, - + .2392D+00, -.5199D-01, -.1938D-02, .1961D-02, .6304D-01, - + .4256D+00, .5732D-02, .2403D+00, - + .2344D+00, -.5066D-01, -.1837D-02, .1918D-02, .5972D-01, - + .4273D+00, .7563D-02, .2422D+00 / - DATA ((PARTON(I,N,26),I=1,8),N=1,8)/ - + .4347D+00, -.1179D+00, -.1209D-01, .4868D-03, .3516D+00, - + .3035D+00, -.1511D+00, .9863D-01, - + .4198D+00, -.1108D+00, -.1040D-01, .9178D-03, .3165D+00, - + .3312D+00, -.1219D+00, .1278D+00, - + .4090D+00, -.1059D+00, -.9347D-02, .1151D-02, .2915D+00, - + .3464D+00, -.1047D+00, .1444D+00, - + .3971D+00, -.1009D+00, -.8340D-02, .1348D-02, .2652D+00, - + .3598D+00, -.8864D-01, .1595D+00, - + .3835D+00, -.9551D-01, -.7343D-02, .1513D-02, .2371D+00, - + .3723D+00, -.7320D-01, .1737D+00, - + .3741D+00, -.9193D-01, -.6731D-02, .1598D-02, .2189D+00, - + .3796D+00, -.6390D-01, .1822D+00, - + .3670D+00, -.8933D-01, -.6307D-02, .1648D-02, .2058D+00, - + .3845D+00, -.5754D-01, .1880D+00, - + .3568D+00, -.8567D-01, -.5743D-02, .1703D-02, .1880D+00, - + .3910D+00, -.4915D-01, .1956D+00 / - DATA ((PARTON(I,N,26),I=1,8),N=9,16)/ - + .3495D+00, -.8313D-01, -.5369D-02, .1733D-02, .1760D+00, - + .3951D+00, -.4365D-01, .2005D+00, - + .3361D+00, -.7857D-01, -.4741D-02, .1766D-02, .1552D+00, - + .4022D+00, -.3454D-01, .2089D+00, - + .3241D+00, -.7466D-01, -.4242D-02, .1773D-02, .1385D+00, - + .4077D+00, -.2720D-01, .2156D+00, - + .3138D+00, -.7139D-01, -.3855D-02, .1765D-02, .1253D+00, - + .4124D+00, -.2139D-01, .2210D+00, - + .3053D+00, -.6874D-01, -.3558D-02, .1749D-02, .1151D+00, - + .4158D+00, -.1685D-01, .2252D+00, - + .2954D+00, -.6574D-01, -.3241D-02, .1723D-02, .1042D+00, - + .4195D+00, -.1193D-01, .2297D+00, - + .2870D+00, -.6326D-01, -.2993D-02, .1695D-02, .9572D-01, - + .4226D+00, -.8030D-02, .2334D+00, - + .2792D+00, -.6099D-01, -.2777D-02, .1665D-02, .8833D-01, - + .4255D+00, -.4532D-02, .2368D+00 / - DATA ((PARTON(I,N,26),I=1,8),N=17,25)/ - + .2722D+00, -.5900D-01, -.2596D-02, .1634D-02, .8216D-01, - + .4278D+00, -.1524D-02, .2396D+00, - + .2637D+00, -.5660D-01, -.2389D-02, .1593D-02, .7510D-01, - + .4308D+00, .2053D-02, .2431D+00, - + .2559D+00, -.5446D-01, -.2212D-02, .1552D-02, .6914D-01, - + .4334D+00, .5202D-02, .2462D+00, - + .2485D+00, -.5242D-01, -.2053D-02, .1510D-02, .6379D-01, - + .4358D+00, .8154D-02, .2490D+00, - + .2421D+00, -.5070D-01, -.1924D-02, .1473D-02, .5949D-01, - + .4378D+00, .1063D-01, .2514D+00, - + .2356D+00, -.4899D-01, -.1800D-02, .1433D-02, .5540D-01, - + .4398D+00, .1309D-01, .2539D+00, - + .2296D+00, -.4743D-01, -.1691D-02, .1396D-02, .5185D-01, - + .4414D+00, .1532D-01, .2560D+00, - + .2238D+00, -.4592D-01, -.1590D-02, .1359D-02, .4859D-01, - + .4436D+00, .1746D-01, .2582D+00, - + .2188D+00, -.4464D-01, -.1507D-02, .1326D-02, .4590D-01, - + .4450D+00, .1929D-01, .2600D+00 / - DATA ((PARTON(I,N,27),I=1,8),N=1,8)/ - + .4452D+00, -.1132D+00, -.1004D-01, .3429D-03, .3300D+00, - + .3367D+00, -.1343D+00, .1275D+00, - + .4262D+00, -.1056D+00, -.8612D-02, .6477D-03, .2895D+00, - + .3604D+00, -.1055D+00, .1544D+00, - + .4127D+00, -.1004D+00, -.7732D-02, .8124D-03, .2623D+00, - + .3735D+00, -.8865D-01, .1696D+00, - + .3981D+00, -.9512D-01, -.6886D-02, .9515D-03, .2347D+00, - + .3850D+00, -.7303D-01, .1834D+00, - + .3819D+00, -.8947D-01, -.6050D-02, .1068D-02, .2062D+00, - + .3958D+00, -.5808D-01, .1964D+00, - + .3708D+00, -.8576D-01, -.5537D-02, .1127D-02, .1883D+00, - + .4022D+00, -.4914D-01, .2042D+00, - + .3626D+00, -.8307D-01, -.5182D-02, .1161D-02, .1756D+00, - + .4064D+00, -.4301D-01, .2096D+00, - + .3508D+00, -.7931D-01, -.4711D-02, .1198D-02, .1587D+00, - + .4122D+00, -.3488D-01, .2166D+00 / - DATA ((PARTON(I,N,27),I=1,8),N=9,16)/ - + .3425D+00, -.7671D-01, -.4400D-02, .1217D-02, .1474D+00, - + .4160D+00, -.2961D-01, .2212D+00, - + .3273D+00, -.7209D-01, -.3877D-02, .1237D-02, .1283D+00, - + .4220D+00, -.2080D-01, .2288D+00, - + .3139D+00, -.6815D-01, -.3464D-02, .1238D-02, .1132D+00, - + .4271D+00, -.1370D-01, .2351D+00, - + .3025D+00, -.6488D-01, -.3143D-02, .1229D-02, .1016D+00, - + .4309D+00, -.8070D-02, .2400D+00, - + .2931D+00, -.6224D-01, -.2897D-02, .1215D-02, .9269D-01, - + .4342D+00, -.3658D-02, .2440D+00, - + .2823D+00, -.5928D-01, -.2635D-02, .1194D-02, .8329D-01, - + .4376D+00, .1130D-02, .2483D+00, - + .2733D+00, -.5684D-01, -.2431D-02, .1172D-02, .7603D-01, - + .4404D+00, .4942D-02, .2518D+00, - + .2650D+00, -.5462D-01, -.2253D-02, .1148D-02, .6978D-01, - + .4430D+00, .8367D-02, .2549D+00 / - DATA ((PARTON(I,N,27),I=1,8),N=17,25)/ - + .2575D+00, -.5268D-01, -.2105D-02, .1125D-02, .6461D-01, - + .4451D+00, .1132D-01, .2576D+00, - + .2485D+00, -.5035D-01, -.1934D-02, .1093D-02, .5874D-01, - + .4479D+00, .1484D-01, .2609D+00, - + .2403D+00, -.4827D-01, -.1789D-02, .1062D-02, .5383D-01, - + .4501D+00, .1795D-01, .2638D+00, - + .2325D+00, -.4632D-01, -.1658D-02, .1031D-02, .4945D-01, - + .4523D+00, .2087D-01, .2665D+00, - + .2258D+00, -.4467D-01, -.1552D-02, .1004D-02, .4597D-01, - + .4542D+00, .2332D-01, .2688D+00, - + .2191D+00, -.4303D-01, -.1450D-02, .9746D-03, .4266D-01, - + .4561D+00, .2577D-01, .2712D+00, - + .2130D+00, -.4155D-01, -.1361D-02, .9474D-03, .3981D-01, - + .4578D+00, .2799D-01, .2733D+00, - + .2070D+00, -.4013D-01, -.1279D-02, .9205D-03, .3720D-01, - + .4595D+00, .3013D-01, .2753D+00, - + .2019D+00, -.3891D-01, -.1211D-02, .8968D-03, .3507D-01, - + .4608D+00, .3196D-01, .2770D+00 / - DATA ((PARTON(I,N,28),I=1,8),N=1,8)/ - + .4497D+00, -.1074D+00, -.8196D-02, .2242D-03, .3009D+00, - + .3676D+00, -.1145D+00, .1568D+00, - + .4269D+00, -.9935D-01, -.7022D-02, .4280D-03, .2580D+00, - + .3872D+00, -.8683D-01, .1807D+00, - + .4110D+00, -.9402D-01, -.6297D-02, .5400D-03, .2302D+00, - + .3983D+00, -.7079D-01, .1943D+00, - + .3941D+00, -.8857D-01, -.5599D-02, .6356D-03, .2029D+00, - + .4081D+00, -.5596D-01, .2067D+00, - + .3755D+00, -.8280D-01, -.4909D-02, .7161D-03, .1754D+00, - + .4175D+00, -.4174D-01, .2186D+00, - + .3630D+00, -.7904D-01, -.4487D-02, .7570D-03, .1585D+00, - + .4229D+00, -.3320D-01, .2256D+00, - + .3538D+00, -.7632D-01, -.4195D-02, .7810D-03, .1468D+00, - + .4265D+00, -.2735D-01, .2304D+00, - + .3407D+00, -.7255D-01, -.3807D-02, .8065D-03, .1314D+00, - + .4316D+00, -.1961D-01, .2369D+00 / - DATA ((PARTON(I,N,28),I=1,8),N=9,16)/ - + .3315D+00, -.6996D-01, -.3552D-02, .8196D-03, .1212D+00, - + .4349D+00, -.1456D-01, .2411D+00, - + .3149D+00, -.6538D-01, -.3123D-02, .8332D-03, .1043D+00, - + .4402D+00, -.6127D-02, .2481D+00, - + .3004D+00, -.6149D-01, -.2784D-02, .8334D-03, .9115D-01, - + .4447D+00, .7014D-03, .2539D+00, - + .2882D+00, -.5830D-01, -.2522D-02, .8264D-03, .8113D-01, - + .4482D+00, .6134D-02, .2585D+00, - + .2781D+00, -.5573D-01, -.2321D-02, .8163D-03, .7358D-01, - + .4512D+00, .1040D-01, .2623D+00, - + .2668D+00, -.5285D-01, -.2108D-02, .8008D-03, .6569D-01, - + .4542D+00, .1506D-01, .2663D+00, - + .2573D+00, -.5050D-01, -.1941D-02, .7850D-03, .5965D-01, - + .4567D+00, .1877D-01, .2695D+00, - + .2485D+00, -.4837D-01, -.1796D-02, .7680D-03, .5449D-01, - + .4588D+00, .2212D-01, .2724D+00 / - DATA ((PARTON(I,N,28),I=1,8),N=17,25)/ - + .2409D+00, -.4652D-01, -.1676D-02, .7513D-03, .5026D-01, - + .4611D+00, .2501D-01, .2750D+00, - + .2315D+00, -.4430D-01, -.1537D-02, .7291D-03, .4548D-01, - + .4631D+00, .2847D-01, .2780D+00, - + .2231D+00, -.4233D-01, -.1419D-02, .7075D-03, .4152D-01, - + .4655D+00, .3153D-01, .2808D+00, - + .2151D+00, -.4049D-01, -.1313D-02, .6857D-03, .3801D-01, - + .4675D+00, .3442D-01, .2834D+00, - + .2084D+00, -.3894D-01, -.1228D-02, .6664D-03, .3523D-01, - + .4692D+00, .3684D-01, .2856D+00, - + .2015D+00, -.3740D-01, -.1145D-02, .6463D-03, .3260D-01, - + .4710D+00, .3927D-01, .2878D+00, - + .1953D+00, -.3602D-01, -.1074D-02, .6274D-03, .3035D-01, - + .4725D+00, .4148D-01, .2898D+00, - + .1894D+00, -.3469D-01, -.1007D-02, .6087D-03, .2830D-01, - + .4740D+00, .4361D-01, .2917D+00, - + .1842D+00, -.3357D-01, -.9520D-03, .5924D-03, .2663D-01, - + .4754D+00, .4543D-01, .2934D+00 / - DATA ((PARTON(I,N,29),I=1,8),N=1,8)/ - + .4485D+00, -.1006D+00, -.6579D-02, .1318D-03, .2670D+00, - + .3958D+00, -.9241D-01, .1854D+00, - + .4223D+00, -.9238D-01, -.5634D-02, .2588D-03, .2241D+00, - + .4119D+00, -.6666D-01, .2063D+00, - + .4042D+00, -.8698D-01, -.5046D-02, .3317D-03, .1973D+00, - + .4210D+00, -.5164D-01, .2183D+00, - + .3853D+00, -.8149D-01, -.4481D-02, .3959D-03, .1714D+00, - + .4294D+00, -.3774D-01, .2294D+00, - + .3647D+00, -.7573D-01, -.3921D-02, .4513D-03, .1461D+00, - + .4370D+00, -.2440D-01, .2398D+00, - + .3511D+00, -.7200D-01, -.3578D-02, .4801D-03, .1308D+00, - + .4418D+00, -.1636D-01, .2462D+00, - + .3410D+00, -.6932D-01, -.3341D-02, .4973D-03, .1204D+00, - + .4450D+00, -.1084D-01, .2506D+00, - + .3269D+00, -.6562D-01, -.3027D-02, .5160D-03, .1067D+00, - + .4494D+00, -.3504D-02, .2564D+00 / - DATA ((PARTON(I,N,29),I=1,8),N=9,16)/ - + .3171D+00, -.6308D-01, -.2820D-02, .5259D-03, .9790D-01, - + .4521D+00, .1286D-02, .2602D+00, - + .2994D+00, -.5862D-01, -.2474D-02, .5366D-03, .8339D-01, - + .4568D+00, .9327D-02, .2667D+00, - + .2841D+00, -.5487D-01, -.2200D-02, .5380D-03, .7225D-01, - + .4608D+00, .1587D-01, .2720D+00, - + .2713D+00, -.5180D-01, -.1989D-02, .5342D-03, .6387D-01, - + .4638D+00, .2109D-01, .2762D+00, - + .2609D+00, -.4934D-01, -.1828D-02, .5280D-03, .5763D-01, - + .4664D+00, .2522D-01, .2797D+00, - + .2492D+00, -.4661D-01, -.1656D-02, .5183D-03, .5115D-01, - + .4695D+00, .2973D-01, .2835D+00, - + .2395D+00, -.4438D-01, -.1522D-02, .5082D-03, .4624D-01, - + .4716D+00, .3334D-01, .2865D+00, - + .2305D+00, -.4237D-01, -.1406D-02, .4972D-03, .4208D-01, - + .4735D+00, .3660D-01, .2892D+00 / - DATA ((PARTON(I,N,29),I=1,8),N=17,25)/ - + .2227D+00, -.4063D-01, -.1309D-02, .4863D-03, .3868D-01, - + .4754D+00, .3943D-01, .2916D+00, - + .2133D+00, -.3855D-01, -.1198D-02, .4717D-03, .3488D-01, - + .4776D+00, .4282D-01, .2945D+00, - + .2049D+00, -.3672D-01, -.1104D-02, .4576D-03, .3174D-01, - + .4796D+00, .4584D-01, .2971D+00, - + .1969D+00, -.3501D-01, -.1020D-02, .4433D-03, .2897D-01, - + .4814D+00, .4868D-01, .2996D+00, - + .1901D+00, -.3358D-01, -.9516D-03, .4306D-03, .2679D-01, - + .4830D+00, .5108D-01, .3016D+00, - + .1834D+00, -.3217D-01, -.8861D-03, .4173D-03, .2474D-01, - + .4846D+00, .5348D-01, .3037D+00, - + .1772D+00, -.3089D-01, -.8291D-03, .4049D-03, .2299D-01, - + .4861D+00, .5567D-01, .3056D+00, - + .1713D+00, -.2968D-01, -.7763D-03, .3927D-03, .2140D-01, - + .4875D+00, .5778D-01, .3075D+00, - + .1663D+00, -.2865D-01, -.7327D-03, .3820D-03, .2010D-01, - + .4887D+00, .5959D-01, .3090D+00 / - DATA ((PARTON(I,N,30),I=1,8),N=1,8)/ - + .4418D+00, -.9309D-01, -.5192D-02, .6412D-04, .2309D+00, - + .4212D+00, -.6907D-01, .2130D+00, - + .4126D+00, -.8490D-01, -.4445D-02, .1357D-03, .1901D+00, - + .4342D+00, -.4541D-01, .2309D+00, - + .3928D+00, -.7953D-01, -.3978D-02, .1808D-03, .1652D+00, - + .4415D+00, -.3158D-01, .2413D+00, - + .3723D+00, -.7412D-01, -.3527D-02, .2229D-03, .1418D+00, - + .4484D+00, -.1873D-01, .2509D+00, - + .3502D+00, -.6848D-01, -.3080D-02, .2612D-03, .1193D+00, - + .4551D+00, -.6332D-02, .2603D+00, - + .3356D+00, -.6485D-01, -.2806D-02, .2820D-03, .1059D+00, - + .4591D+00, .1178D-02, .2659D+00, - + .3250D+00, -.6225D-01, -.2617D-02, .2949D-03, .9688D-01, - + .4615D+00, .6363D-02, .2698D+00, - + .3101D+00, -.5868D-01, -.2366D-02, .3094D-03, .8521D-01, - + .4653D+00, .1327D-01, .2750D+00 / - DATA ((PARTON(I,N,30),I=1,8),N=9,16)/ - + .2998D+00, -.5624D-01, -.2201D-02, .3175D-03, .7773D-01, - + .4678D+00, .1779D-01, .2785D+00, - + .2814D+00, -.5198D-01, -.1926D-02, .3273D-03, .6560D-01, - + .4721D+00, .2543D-01, .2845D+00, - + .2657D+00, -.4842D-01, -.1708D-02, .3304D-03, .5643D-01, - + .4753D+00, .3168D-01, .2893D+00, - + .2526D+00, -.4552D-01, -.1540D-02, .3296D-03, .4960D-01, - + .4782D+00, .3669D-01, .2932D+00, - + .2421D+00, -.4321D-01, -.1412D-02, .3269D-03, .4455D-01, - + .4807D+00, .4067D-01, .2965D+00, - + .2302D+00, -.4065D-01, -.1277D-02, .3220D-03, .3936D-01, - + .4832D+00, .4503D-01, .3000D+00, - + .2204D+00, -.3858D-01, -.1171D-02, .3164D-03, .3545D-01, - + .4853D+00, .4853D-01, .3028D+00, - + .2115D+00, -.3671D-01, -.1079D-02, .3101D-03, .3215D-01, - + .4871D+00, .5171D-01, .3054D+00 / - DATA ((PARTON(I,N,30),I=1,8),N=17,25)/ - + .2037D+00, -.3511D-01, -.1003D-02, .3038D-03, .2948D-01, - + .4888D+00, .5448D-01, .3076D+00, - + .1944D+00, -.3320D-01, -.9159D-03, .2951D-03, .2650D-01, - + .4908D+00, .5779D-01, .3103D+00, - + .1861D+00, -.3152D-01, -.8421D-03, .2866D-03, .2405D-01, - + .4925D+00, .6075D-01, .3128D+00, - + .1782D+00, -.2995D-01, -.7758D-03, .2779D-03, .2191D-01, - + .4942D+00, .6354D-01, .3151D+00, - + .1716D+00, -.2865D-01, -.7223D-03, .2701D-03, .2022D-01, - + .4957D+00, .6592D-01, .3171D+00, - + .1650D+00, -.2737D-01, -.6711D-03, .2620D-03, .1865D-01, - + .4972D+00, .6829D-01, .3190D+00, - + .1591D+00, -.2622D-01, -.6266D-03, .2543D-03, .1730D-01, - + .4985D+00, .7045D-01, .3208D+00, - + .1534D+00, -.2512D-01, -.5855D-03, .2467D-03, .1608D-01, - + .4998D+00, .7253D-01, .3225D+00, - + .1485D+00, -.2420D-01, -.5516D-03, .2401D-03, .1509D-01, - + .5009D+00, .7435D-01, .3241D+00 / - DATA ((PARTON(I,N,31),I=1,8),N=1,8)/ - + .4301D+00, -.8516D-01, -.4026D-02, .1786D-04, .1947D+00, - + .4440D+00, -.4489D-01, .2391D+00, - + .3985D+00, -.7712D-01, -.3446D-02, .5168D-04, .1574D+00, - + .4543D+00, -.2353D-01, .2543D+00, - + .3773D+00, -.7189D-01, -.3081D-02, .7790D-04, .1352D+00, - + .4603D+00, -.1095D-01, .2632D+00, - + .3555D+00, -.6664D-01, -.2727D-02, .1050D-03, .1147D+00, - + .4658D+00, .8267D-03, .2715D+00, - + .3323D+00, -.6121D-01, -.2376D-02, .1318D-03, .9541D-01, - + .4712D+00, .1227D-01, .2797D+00, - + .3171D+00, -.5774D-01, -.2161D-02, .1473D-03, .8409D-01, - + .4744D+00, .1924D-01, .2846D+00, - + .3061D+00, -.5527D-01, -.2013D-02, .1573D-03, .7653D-01, - + .4768D+00, .2408D-01, .2881D+00, - + .2908D+00, -.5188D-01, -.1816D-02, .1692D-03, .6684D-01, - + .4800D+00, .3056D-01, .2929D+00 / - DATA ((PARTON(I,N,31),I=1,8),N=9,16)/ - + .2803D+00, -.4958D-01, -.1687D-02, .1763D-03, .6069D-01, - + .4823D+00, .3482D-01, .2961D+00, - + .2616D+00, -.4558D-01, -.1471D-02, .1858D-03, .5082D-01, - + .4860D+00, .4206D-01, .3015D+00, - + .2457D+00, -.4225D-01, -.1301D-02, .1904D-03, .4344D-01, - + .4891D+00, .4801D-01, .3060D+00, - + .2326D+00, -.3955D-01, -.1170D-02, .1920D-03, .3800D-01, - + .4916D+00, .5282D-01, .3096D+00, - + .2221D+00, -.3742D-01, -.1071D-02, .1918D-03, .3401D-01, - + .4937D+00, .5665D-01, .3125D+00, - + .2103D+00, -.3507D-01, -.9649D-03, .1904D-03, .2993D-01, - + .4960D+00, .6086D-01, .3158D+00, - + .2007D+00, -.3317D-01, -.8828D-03, .1882D-03, .2688D-01, - + .4979D+00, .6425D-01, .3184D+00, - + .1919D+00, -.3146D-01, -.8119D-03, .1853D-03, .2432D-01, - + .4996D+00, .6734D-01, .3208D+00 / - DATA ((PARTON(I,N,31),I=1,8),N=17,25)/ - + .1843D+00, -.3000D-01, -.7529D-03, .1822D-03, .2225D-01, - + .5010D+00, .7003D-01, .3229D+00, - + .1752D+00, -.2827D-01, -.6855D-03, .1777D-03, .1996D-01, - + .5029D+00, .7329D-01, .3255D+00, - + .1671D+00, -.2675D-01, -.6286D-03, .1731D-03, .1808D-01, - + .5045D+00, .7617D-01, .3278D+00, - + .1596D+00, -.2535D-01, -.5776D-03, .1684D-03, .1644D-01, - + .5061D+00, .7892D-01, .3300D+00, - + .1532D+00, -.2418D-01, -.5365D-03, .1640D-03, .1516D-01, - + .5075D+00, .8125D-01, .3319D+00, - + .1469D+00, -.2303D-01, -.4973D-03, .1595D-03, .1395D-01, - + .5088D+00, .8358D-01, .3337D+00, - + .1413D+00, -.2201D-01, -.4632D-03, .1551D-03, .1293D-01, - + .5100D+00, .8572D-01, .3354D+00, - + .1358D+00, -.2104D-01, -.4318D-03, .1507D-03, .1201D-01, - + .5112D+00, .8778D-01, .3370D+00, - + .1312D+00, -.2022D-01, -.4060D-03, .1468D-03, .1126D-01, - + .5122D+00, .8954D-01, .3384D+00 / - DATA ((PARTON(I,N,32),I=1,8),N=1,8)/ - + .3934D+00, -.6880D-01, -.2288D-02, -.2667D-04, .1284D+00, - + .4820D+00, .4042D-02, .2861D+00, - + .3589D+00, -.6142D-01, -.1958D-02, -.3068D-04, .1007D+00, - + .4880D+00, .2093D-01, .2966D+00, - + .3362D+00, -.5670D-01, -.1746D-02, -.2417D-04, .8480D-01, - + .4919D+00, .3111D-01, .3031D+00, - + .3132D+00, -.5202D-01, -.1540D-02, -.1321D-04, .7056D-01, - + .4959D+00, .4081D-01, .3094D+00, - + .2892D+00, -.4723D-01, -.1335D-02, .6401D-06, .5755D-01, - + .4995D+00, .5043D-01, .3156D+00, - + .2737D+00, -.4421D-01, -.1210D-02, .9966D-05, .5012D-01, - + .5020D+00, .5639D-01, .3196D+00, - + .2625D+00, -.4207D-01, -.1123D-02, .1655D-04, .4524D-01, - + .5039D+00, .6058D-01, .3224D+00, - + .2472D+00, -.3916D-01, -.1008D-02, .2522D-04, .3908D-01, - + .5062D+00, .6625D-01, .3262D+00 / - DATA ((PARTON(I,N,32),I=1,8),N=9,16)/ - + .2368D+00, -.3721D-01, -.9328D-03, .3075D-04, .3524D-01, - + .5078D+00, .7002D-01, .3288D+00, - + .2185D+00, -.3384D-01, -.8078D-03, .3928D-04, .2917D-01, - + .5108D+00, .7648D-01, .3333D+00, - + .2031D+00, -.3107D-01, -.7098D-03, .4513D-04, .2471D-01, - + .5132D+00, .8190D-01, .3371D+00, - + .1907D+00, -.2885D-01, -.6345D-03, .4896D-04, .2147D-01, - + .5153D+00, .8631D-01, .3402D+00, - + .1807D+00, -.2710D-01, -.5773D-03, .5141D-04, .1913D-01, - + .5170D+00, .8982D-01, .3427D+00, - + .1697D+00, -.2520D-01, -.5170D-03, .5351D-04, .1675D-01, - + .5188D+00, .9377D-01, .3455D+00, - + .1608D+00, -.2368D-01, -.4704D-03, .5471D-04, .1499D-01, - + .5203D+00, .9694D-01, .3478D+00, - + .1527D+00, -.2232D-01, -.4303D-03, .5538D-04, .1352D-01, - + .5218D+00, .9985D-01, .3499D+00 / - DATA ((PARTON(I,N,32),I=1,8),N=17,25)/ - + .1458D+00, -.2116D-01, -.3970D-03, .5563D-04, .1234D-01, - + .5231D+00, .1024D+00, .3518D+00, - + .1376D+00, -.1980D-01, -.3592D-03, .5556D-04, .1103D-01, - + .5246D+00, .1055D+00, .3540D+00, - + .1304D+00, -.1862D-01, -.3274D-03, .5519D-04, .9972D-02, - + .5260D+00, .1083D+00, .3561D+00, - + .1237D+00, -.1753D-01, -.2990D-03, .5456D-04, .9049D-02, - + .5273D+00, .1109D+00, .3580D+00, - + .1181D+00, -.1663D-01, -.2763D-03, .5385D-04, .8327D-02, - + .5285D+00, .1131D+00, .3596D+00, - + .1126D+00, -.1576D-01, -.2547D-03, .5299D-04, .7654D-02, - + .5295D+00, .1154D+00, .3613D+00, - + .1077D+00, -.1498D-01, -.2360D-03, .5207D-04, .7083D-02, - + .5306D+00, .1174D+00, .3627D+00, - + .1030D+00, -.1424D-01, -.2189D-03, .5109D-04, .6567D-02, - + .5316D+00, .1194D+00, .3642D+00, - + .9906D-01, -.1363D-01, -.2048D-03, .5016D-04, .6149D-02, - + .5325D+00, .1211D+00, .3655D+00 / - DATA ((PARTON(I,N,33),I=1,8),N=1,8)/ - + .3431D+00, -.5292D-01, -.1197D-02, -.3311D-04, .7655D-01, - + .5117D+00, .5193D-01, .3263D+00, - + .3083D+00, -.4658D-01, -.1023D-02, -.4609D-04, .5857D-01, - + .5155D+00, .6504D-01, .3337D+00, - + .2857D+00, -.4257D-01, -.9103D-03, -.4598D-04, .4861D-01, - + .5181D+00, .7318D-01, .3384D+00, - + .2632D+00, -.3865D-01, -.7994D-03, -.4140D-04, .3989D-01, - + .5206D+00, .8113D-01, .3431D+00, - + .2400D+00, -.3469D-01, -.6887D-03, -.3369D-04, .3210D-01, - + .5231D+00, .8919D-01, .3479D+00, - + .2252D+00, -.3221D-01, -.6208D-03, -.2786D-04, .2775D-01, - + .5252D+00, .9429D-01, .3511D+00, - + .2148D+00, -.3048D-01, -.5740D-03, -.2349D-04, .2492D-01, - + .5265D+00, .9793D-01, .3534D+00, - + .2004D+00, -.2814D-01, -.5122D-03, -.1743D-04, .2140D-01, - + .5284D+00, .1029D+00, .3565D+00 / - DATA ((PARTON(I,N,33),I=1,8),N=9,16)/ - + .1908D+00, -.2657D-01, -.4720D-03, -.1343D-04, .1922D-01, - + .5297D+00, .1062D+00, .3587D+00, - + .1740D+00, -.2390D-01, -.4054D-03, -.6937D-05, .1581D-01, - + .5320D+00, .1120D+00, .3624D+00, - + .1601D+00, -.2174D-01, -.3534D-03, -.1958D-05, .1334D-01, - + .5340D+00, .1169D+00, .3656D+00, - + .1490D+00, -.2002D-01, -.3137D-03, .1707D-05, .1157D-01, - + .5357D+00, .1210D+00, .3683D+00, - + .1402D+00, -.1868D-01, -.2836D-03, .4352D-05, .1028D-01, - + .5370D+00, .1242D+00, .3705D+00, - + .1306D+00, -.1723D-01, -.2521D-03, .6977D-05, .8988D-02, - + .5387D+00, .1279D+00, .3729D+00, - + .1228D+00, -.1608D-01, -.2279D-03, .8839D-05, .8031D-02, - + .5399D+00, .1309D+00, .3749D+00, - + .1159D+00, -.1506D-01, -.2072D-03, .1030D-04, .7236D-02, - + .5411D+00, .1336D+00, .3767D+00 / - DATA ((PARTON(I,N,33),I=1,8),N=17,25)/ - + .1100D+00, -.1420D-01, -.1901D-03, .1140D-04, .6598D-02, - + .5421D+00, .1360D+00, .3784D+00, - + .1030D+00, -.1319D-01, -.1707D-03, .1251D-04, .5895D-02, - + .5435D+00, .1389D+00, .3804D+00, - + .9699D-01, -.1232D-01, -.1545D-03, .1331D-04, .5322D-02, - + .5446D+00, .1415D+00, .3821D+00, - + .9140D-01, -.1153D-01, -.1402D-03, .1390D-04, .4825D-02, - + .5457D+00, .1440D+00, .3838D+00, - + .8678D-01, -.1088D-01, -.1287D-03, .1429D-04, .4435D-02, - + .5467D+00, .1462D+00, .3853D+00, - + .8226D-01, -.1025D-01, -.1179D-03, .1458D-04, .4072D-02, - + .5476D+00, .1482D+00, .3867D+00, - + .7823D-01, -.9691D-02, -.1086D-03, .1476D-04, .3764D-02, - + .5485D+00, .1502D+00, .3880D+00, - + .7444D-01, -.9170D-02, -.1001D-03, .1485D-04, .3485D-02, - + .5495D+00, .1521D+00, .3894D+00, - + .7125D-01, -.8734D-02, -.9319D-04, .1488D-04, .3260D-02, - + .5501D+00, .1538D+00, .3905D+00 / - DATA ((PARTON(I,N,34),I=1,8),N=1,8)/ - + .2845D+00, -.3856D-01, -.5694D-03, -.2464D-04, .4097D-01, - + .5359D+00, .9797D-01, .3611D+00, - + .2517D+00, -.3346D-01, -.4856D-03, -.3536D-04, .3087D-01, - + .5383D+00, .1082D+00, .3663D+00, - + .2308D+00, -.3027D-01, -.4304D-03, -.3638D-04, .2540D-01, - + .5397D+00, .1148D+00, .3697D+00, - + .2102D+00, -.2719D-01, -.3759D-03, -.3427D-04, .2070D-01, - + .5416D+00, .1214D+00, .3734D+00, - + .1893D+00, -.2411D-01, -.3214D-03, -.2994D-04, .1658D-01, - + .5436D+00, .1282D+00, .3772D+00, - + .1761D+00, -.2221D-01, -.2881D-03, -.2646D-04, .1430D-01, - + .5451D+00, .1326D+00, .3798D+00, - + .1669D+00, -.2089D-01, -.2651D-03, -.2379D-04, .1282D-01, - + .5461D+00, .1358D+00, .3816D+00, - + .1543D+00, -.1912D-01, -.2349D-03, -.2000D-04, .1100D-01, - + .5476D+00, .1402D+00, .3843D+00 / - DATA ((PARTON(I,N,34),I=1,8),N=9,16)/ - + .1460D+00, -.1795D-01, -.2154D-03, -.1751D-04, .9877D-02, - + .5486D+00, .1432D+00, .3861D+00, - + .1316D+00, -.1597D-01, -.1833D-03, -.1339D-04, .8127D-02, - + .5506D+00, .1484D+00, .3892D+00, - + .1198D+00, -.1438D-01, -.1584D-03, -.1010D-04, .6861D-02, - + .5522D+00, .1529D+00, .3920D+00, - + .1105D+00, -.1313D-01, -.1395D-03, -.7581D-05, .5950D-02, - + .5536D+00, .1566D+00, .3943D+00, - + .1032D+00, -.1216D-01, -.1252D-03, -.5705D-05, .5293D-02, - + .5548D+00, .1596D+00, .3962D+00, - + .9531D-01, -.1113D-01, -.1104D-03, -.3784D-05, .4629D-02, - + .5561D+00, .1630D+00, .3983D+00, - + .8901D-01, -.1031D-01, -.9906D-04, -.2378D-05, .4136D-02, - + .5572D+00, .1658D+00, .4001D+00, - + .8343D-01, -.9595D-02, -.8941D-04, -.1219D-05, .3727D-02, - + .5582D+00, .1684D+00, .4017D+00 / - DATA ((PARTON(I,N,34),I=1,8),N=17,25)/ - + .7870D-01, -.8992D-02, -.8149D-04, -.3004D-06, .3398D-02, - + .5591D+00, .1705D+00, .4030D+00, - + .7316D-01, -.8294D-02, -.7258D-04, .6805D-06, .3034D-02, - + .5603D+00, .1733D+00, .4048D+00, - + .6839D-01, -.7697D-02, -.6519D-04, .1446D-05, .2737D-02, - + .5612D+00, .1758D+00, .4064D+00, - + .6401D-01, -.7155D-02, -.5867D-04, .2074D-05, .2479D-02, - + .5622D+00, .1781D+00, .4079D+00, - + .6042D-01, -.6714D-02, -.5351D-04, .2542D-05, .2276D-02, - + .5629D+00, .1802D+00, .4091D+00, - + .5693D-01, -.6288D-02, -.4866D-04, .2948D-05, .2087D-02, - + .5638D+00, .1822D+00, .4104D+00, - + .5385D-01, -.5915D-02, -.4451D-04, .3263D-05, .1926D-02, - + .5646D+00, .1840D+00, .4116D+00, - + .5096D-01, -.5567D-02, -.4075D-04, .3524D-05, .1780D-02, - + .5651D+00, .1858D+00, .4127D+00, - + .4854D-01, -.5278D-02, -.3770D-04, .3710D-05, .1662D-02, - + .5657D+00, .1874D+00, .4136D+00 / - DATA ((PARTON(I,N,35),I=1,8),N=1,8)/ - + .2230D+00, -.2642D-01, -.2417D-03, -.1416D-04, .1949D-01, - + .5556D+00, .1424D+00, .3914D+00, - + .1941D+00, -.2257D-01, -.2054D-03, -.2042D-04, .1465D-01, - + .5571D+00, .1506D+00, .3953D+00, - + .1761D+00, -.2021D-01, -.1812D-03, -.2113D-04, .1207D-01, - + .5583D+00, .1561D+00, .3980D+00, - + .1585D+00, -.1795D-01, -.1572D-03, -.2008D-04, .9865D-02, - + .5598D+00, .1617D+00, .4009D+00, - + .1408D+00, -.1573D-01, -.1332D-03, -.1780D-04, .7938D-02, - + .5614D+00, .1676D+00, .4041D+00, - + .1299D+00, -.1437D-01, -.1186D-03, -.1593D-04, .6872D-02, - + .5625D+00, .1714D+00, .4062D+00, - + .1223D+00, -.1343D-01, -.1086D-03, -.1450D-04, .6183D-02, - + .5634D+00, .1743D+00, .4078D+00, - + .1121D+00, -.1218D-01, -.9543D-04, -.1245D-04, .5327D-02, - + .5646D+00, .1782D+00, .4099D+00 / - DATA ((PARTON(I,N,35),I=1,8),N=9,16)/ - + .1053D+00, -.1136D-01, -.8701D-04, -.1112D-04, .4797D-02, - + .5655D+00, .1809D+00, .4115D+00, - + .9375D-01, -.9990D-02, -.7330D-04, -.8959D-05, .3966D-02, - + .5671D+00, .1857D+00, .4143D+00, - + .8447D-01, -.8902D-02, -.6271D-04, -.7180D-05, .3361D-02, - + .5685D+00, .1897D+00, .4166D+00, - + .7718D-01, -.8057D-02, -.5471D-04, -.5797D-05, .2922D-02, - + .5696D+00, .1932D+00, .4186D+00, - + .7154D-01, -.7409D-02, -.4873D-04, -.4757D-05, .2603D-02, - + .5706D+00, .1959D+00, .4202D+00, - + .6546D-01, -.6719D-02, -.4254D-04, -.3684D-05, .2279D-02, - + .5717D+00, .1990D+00, .4220D+00, - + .6067D-01, -.6181D-02, -.3786D-04, -.2898D-05, .2037D-02, - + .5727D+00, .2017D+00, .4236D+00, - + .5647D-01, -.5713D-02, -.3390D-04, -.2239D-05, .1834D-02, - + .5735D+00, .2042D+00, .4250D+00 / - DATA ((PARTON(I,N,35),I=1,8),N=17,25)/ - + .5293D-01, -.5321D-02, -.3066D-04, -.1711D-05, .1671D-02, - + .5742D+00, .2062D+00, .4262D+00, - + .4882D-01, -.4871D-02, -.2705D-04, -.1138D-05, .1490D-02, - + .5752D+00, .2088D+00, .4278D+00, - + .4530D-01, -.4489D-02, -.2408D-04, -.6809D-06, .1342D-02, - + .5760D+00, .2111D+00, .4291D+00, - + .4211D-01, -.4145D-02, -.2147D-04, -.3046D-06, .1213D-02, - + .5768D+00, .2133D+00, .4304D+00, - + .3950D-01, -.3866D-02, -.1943D-04, -.1476D-07, .1112D-02, - + .5776D+00, .2152D+00, .4316D+00, - + .3699D-01, -.3599D-02, -.1752D-04, .2444D-06, .1017D-02, - + .5780D+00, .2171D+00, .4325D+00, - + .3479D-01, -.3367D-02, -.1589D-04, .4445D-06, .9359D-03, - + .5789D+00, .2188D+00, .4337D+00, - + .3273D-01, -.3151D-02, -.1444D-04, .6177D-06, .8627D-03, - + .5793D+00, .2205D+00, .4346D+00, - + .3103D-01, -.2973D-02, -.1326D-04, .7472D-06, .8034D-03, - + .5800D+00, .2220D+00, .4356D+00 / - DATA ((PARTON(I,N,36),I=1,8),N=1,8)/ - + .1636D+00, -.1680D-01, -.8912D-04, -.6627D-05, .8112D-02, - + .5724D+00, .1862D+00, .4186D+00, - + .1401D+00, -.1413D-01, -.7540D-04, -.9514D-05, .6223D-02, - + .5737D+00, .1931D+00, .4218D+00, - + .1256D+00, -.1251D-01, -.6613D-04, -.9826D-05, .5205D-02, - + .5747D+00, .1977D+00, .4241D+00, - + .1116D+00, -.1098D-01, -.5693D-04, -.9328D-05, .4323D-02, - + .5758D+00, .2025D+00, .4264D+00, - + .9785D-01, -.9491D-02, -.4775D-04, -.8262D-05, .3536D-02, - + .5772D+00, .2078D+00, .4292D+00, - + .8942D-01, -.8593D-02, -.4218D-04, -.7397D-05, .3092D-02, - + .5781D+00, .2113D+00, .4309D+00, - + .8359D-01, -.7978D-02, -.3836D-04, -.6736D-05, .2801D-02, - + .5789D+00, .2137D+00, .4323D+00, - + .7585D-01, -.7169D-02, -.3339D-04, -.5787D-05, .2433D-02, - + .5799D+00, .2173D+00, .4342D+00 / - DATA ((PARTON(I,N,36),I=1,8),N=9,16)/ - + .7075D-01, -.6643D-02, -.3025D-04, -.5199D-05, .2202D-02, - + .5807D+00, .2198D+00, .4355D+00, - + .6220D-01, -.5768D-02, -.2521D-04, -.4261D-05, .1833D-02, - + .5820D+00, .2241D+00, .4378D+00, - + .5541D-01, -.5084D-02, -.2132D-04, -.3463D-05, .1560D-02, - + .5832D+00, .2278D+00, .4399D+00, - + .5014D-01, -.4558D-02, -.1840D-04, -.2840D-05, .1359D-02, - + .5841D+00, .2310D+00, .4416D+00, - + .4609D-01, -.4158D-02, -.1624D-04, -.2369D-05, .1211D-02, - + .5848D+00, .2336D+00, .4429D+00, - + .4178D-01, -.3737D-02, -.1402D-04, -.1883D-05, .1060D-02, - + .5858D+00, .2365D+00, .4446D+00, - + .3841D-01, -.3411D-02, -.1236D-04, -.1530D-05, .9459D-03, - + .5865D+00, .2389D+00, .4459D+00, - + .3548D-01, -.3130D-02, -.1096D-04, -.1233D-05, .8505D-03, - + .5873D+00, .2411D+00, .4471D+00 / - DATA ((PARTON(I,N,36),I=1,8),N=17,25)/ - + .3303D-01, -.2896D-02, -.9819D-05, -.9918D-06, .7731D-03, - + .5879D+00, .2431D+00, .4482D+00, - + .3021D-01, -.2630D-02, -.8563D-05, -.7308D-06, .6871D-03, - + .5889D+00, .2455D+00, .4496D+00, - + .2782D-01, -.2405D-02, -.7539D-05, -.5235D-06, .6167D-03, - + .5894D+00, .2476D+00, .4507D+00, - + .2567D-01, -.2205D-02, -.6651D-05, -.3553D-06, .5551D-03, - + .5899D+00, .2497D+00, .4517D+00, - + .2393D-01, -.2044D-02, -.5958D-05, -.2217D-06, .5067D-03, - + .5905D+00, .2515D+00, .4527D+00, - + .2226D-01, -.1891D-02, -.5317D-05, -.1021D-06, .4615D-03, - + .5912D+00, .2533D+00, .4538D+00, - + .2080D-01, -.1758D-02, -.4777D-05, -.1303D-07, .4231D-03, - + .5918D+00, .2549D+00, .4546D+00, - + .1946D-01, -.1636D-02, -.4300D-05, .6580D-07, .3885D-03, - + .5923D+00, .2565D+00, .4555D+00, - + .1835D-01, -.1535D-02, -.3915D-05, .1232D-06, .3604D-03, - + .5927D+00, .2579D+00, .4563D+00 / - DATA ((PARTON(I,N,37),I=1,8),N=1,8)/ - + .1107D+00, -.9730D-02, -.2743D-04, -.2534D-05, .2907D-02, - + .5874D+00, .2304D+00, .4440D+00, - + .9309D-01, -.8040D-02, -.2308D-04, -.3612D-05, .2363D-02, - + .5886D+00, .2364D+00, .4468D+00, - + .8239D-01, -.7033D-02, -.2010D-04, -.3710D-05, .2044D-02, - + .5895D+00, .2405D+00, .4486D+00, - + .7226D-01, -.6093D-02, -.1714D-04, -.3502D-05, .1749D-02, - + .5904D+00, .2448D+00, .4507D+00, - + .6241D-01, -.5193D-02, -.1419D-04, -.3079D-05, .1468D-02, - + .5916D+00, .2494D+00, .4530D+00, - + .5646D-01, -.4656D-02, -.1242D-04, -.2738D-05, .1301D-02, - + .5924D+00, .2525D+00, .4544D+00, - + .5239D-01, -.4291D-02, -.1120D-04, -.2484D-05, .1188D-02, - + .5931D+00, .2549D+00, .4557D+00, - + .4703D-01, -.3817D-02, -.9627D-05, -.2112D-05, .1042D-02, - + .5940D+00, .2581D+00, .4573D+00 / - DATA ((PARTON(I,N,37),I=1,8),N=9,16)/ - + .4354D-01, -.3510D-02, -.8659D-05, -.1900D-05, .9466D-03, - + .5946D+00, .2603D+00, .4585D+00, - + .3775D-01, -.3008D-02, -.7124D-05, -.1570D-05, .7916D-03, - + .5955D+00, .2643D+00, .4604D+00, - + .3321D-01, -.2619D-02, -.5941D-05, -.1277D-05, .6741D-03, - + .5966D+00, .2677D+00, .4622D+00, - + .2973D-01, -.2324D-02, -.5059D-05, -.1043D-05, .5865D-03, - + .5974D+00, .2707D+00, .4637D+00, - + .2709D-01, -.2102D-02, -.4409D-05, -.8692D-06, .5216D-03, - + .5982D+00, .2731D+00, .4650D+00, - + .2430D-01, -.1870D-02, -.3748D-05, -.6856D-06, .4546D-03, - + .5989D+00, .2758D+00, .4663D+00, - + .2215D-01, -.1693D-02, -.3267D-05, -.5592D-06, .4041D-03, - + .5996D+00, .2780D+00, .4674D+00, - + .2030D-01, -.1541D-02, -.2860D-05, -.4524D-06, .3616D-03, - + .6001D+00, .2800D+00, .4684D+00 / - DATA ((PARTON(I,N,37),I=1,8),N=17,25)/ - + .1876D-01, -.1416D-02, -.2530D-05, -.3595D-06, .3272D-03, - + .6006D+00, .2818D+00, .4693D+00, - + .1700D-01, -.1274D-02, -.2172D-05, -.2655D-06, .2890D-03, - + .6012D+00, .2840D+00, .4705D+00, - + .1553D-01, -.1156D-02, -.1886D-05, -.1885D-06, .2577D-03, - + .6018D+00, .2860D+00, .4715D+00, - + .1421D-01, -.1051D-02, -.1640D-05, -.1326D-06, .2305D-03, - + .6024D+00, .2879D+00, .4725D+00, - + .1315D-01, -.9679D-03, -.1450D-05, -.8929D-07, .2092D-03, - + .6029D+00, .2896D+00, .4733D+00, - + .1215D-01, -.8891D-03, -.1278D-05, -.4544D-07, .1894D-03, - + .6034D+00, .2913D+00, .4742D+00, - + .1128D-01, -.8212D-03, -.1134D-05, -.1686D-07, .1727D-03, - + .6038D+00, .2928D+00, .4749D+00, - + .1048D-01, -.7593D-03, -.1011D-05, .1059D-07, .1576D-03, - + .6042D+00, .2943D+00, .4757D+00, - + .9821D-02, -.7088D-03, -.9131D-06, .2619D-07, .1454D-03, - + .6045D+00, .2955D+00, .4763D+00 / - DATA ((PARTON(I,N,38),I=1,8),N=1,8)/ - + .6739D-01, -.4977D-02, -.6564D-05, -.7717D-06, .8869D-03, - + .6013D+00, .2766D+00, .4684D+00, - + .5552D-01, -.4033D-02, -.5471D-05, -.1086D-05, .8055D-03, - + .6024D+00, .2819D+00, .4708D+00, - + .4845D-01, -.3480D-02, -.4715D-05, -.1104D-05, .7334D-03, - + .6033D+00, .2857D+00, .4725D+00, - + .4186D-01, -.2972D-02, -.3965D-05, -.1026D-05, .6515D-03, - + .6041D+00, .2895D+00, .4743D+00, - + .3556D-01, -.2492D-02, -.3217D-05, -.8851D-06, .5615D-03, - + .6051D+00, .2937D+00, .4762D+00, - + .3182D-01, -.2210D-02, -.2770D-05, -.7730D-06, .5032D-03, - + .6057D+00, .2965D+00, .4775D+00, - + .2927D-01, -.2021D-02, -.2462D-05, -.6938D-06, .4620D-03, - + .6061D+00, .2986D+00, .4784D+00, - + .2597D-01, -.1777D-02, -.2066D-05, -.5691D-06, .4068D-03, - + .6069D+00, .3015D+00, .4798D+00 / - DATA ((PARTON(I,N,38),I=1,8),N=9,16)/ - + .2384D-01, -.1621D-02, -.1839D-05, -.5110D-06, .3700D-03, - + .6076D+00, .3035D+00, .4809D+00, - + .2035D-01, -.1368D-02, -.1484D-05, -.4250D-06, .3086D-03, - + .6083D+00, .3071D+00, .4825D+00, - + .1766D-01, -.1175D-02, -.1206D-05, -.3334D-06, .2614D-03, - + .6092D+00, .3103D+00, .4840D+00, - + .1562D-01, -.1031D-02, -.9983D-06, -.2625D-06, .2260D-03, - + .6098D+00, .3129D+00, .4852D+00, - + .1409D-01, -.9234D-03, -.8507D-06, -.2105D-06, .1997D-03, - + .6104D+00, .3151D+00, .4863D+00, - + .1250D-01, -.8124D-03, -.6994D-06, -.1505D-06, .1726D-03, - + .6110D+00, .3176D+00, .4874D+00, - + .1128D-01, -.7284D-03, -.5982D-06, -.1228D-06, .1522D-03, - + .6115D+00, .3196D+00, .4884D+00, - + .1024D-01, -.6571D-03, -.5107D-06, -.8905D-07, .1351D-03, - + .6119D+00, .3214D+00, .4892D+00 / - DATA ((PARTON(I,N,38),I=1,8),N=17,25)/ - + .9390D-02, -.5990D-03, -.4383D-06, -.6476D-07, .1213D-03, - + .6125D+00, .3232D+00, .4901D+00, - + .8425D-02, -.5338D-03, -.3655D-06, -.3677D-07, .1061D-03, - + .6130D+00, .3252D+00, .4910D+00, - + .7623D-02, -.4799D-03, -.3106D-06, -.1564D-07, .9372D-04, - + .6134D+00, .3270D+00, .4919D+00, - + .6912D-02, -.4326D-03, -.2654D-06, -.4674D-08, .8303D-04, - + .6138D+00, .3288D+00, .4927D+00, - + .6348D-02, -.3953D-03, -.2297D-06, .3714D-08, .7482D-04, - + .6142D+00, .3303D+00, .4934D+00, - + .5816D-02, -.3602D-03, -.1988D-06, .1817D-07, .6712D-04, - + .6147D+00, .3317D+00, .4941D+00, - + .5359D-02, -.3303D-03, -.1763D-06, .1675D-07, .6070D-04, - + .6151D+00, .3331D+00, .4948D+00, - + .4943D-02, -.3032D-03, -.1609D-06, .2295D-07, .5495D-04, - + .6154D+00, .3344D+00, .4954D+00, - + .4604D-02, -.2813D-03, -.1454D-06, .2301D-07, .5041D-04, - + .6156D+00, .3356D+00, .4959D+00 / - DATA ((PARTON(I,N,39),I=1,8),N=1,8)/ - + .3534D-01, -.2134D-02, -.1006D-05, -.1682D-06, .2300D-03, - + .6147D+00, .3265D+00, .4927D+00, - + .2845D-01, -.1691D-02, -.7933D-06, -.2233D-06, .2455D-03, - + .6154D+00, .3313D+00, .4946D+00, - + .2443D-01, -.1436D-02, -.6565D-06, -.2128D-06, .2356D-03, - + .6163D+00, .3345D+00, .4961D+00, - + .2074D-01, -.1206D-02, -.5195D-06, -.1845D-06, .2157D-03, - + .6171D+00, .3380D+00, .4977D+00, - + .1729D-01, -.9924D-03, -.3823D-06, -.1434D-06, .1886D-03, - + .6175D+00, .3417D+00, .4991D+00, - + .1527D-01, -.8691D-03, -.3060D-06, -.1105D-06, .1695D-03, - + .6183D+00, .3442D+00, .5003D+00, - + .1391D-01, -.7872D-03, -.2488D-06, -.9310D-07, .1555D-03, - + .6187D+00, .3461D+00, .5011D+00, - + .1217D-01, -.6828D-03, -.1804D-06, -.5556D-07, .1365D-03, - + .6193D+00, .3487D+00, .5022D+00 / - DATA ((PARTON(I,N,39),I=1,8),N=9,16)/ - + .1106D-01, -.6169D-03, -.1490D-06, -.4699D-07, .1234D-03, - + .6197D+00, .3505D+00, .5030D+00, - + .9276D-02, -.5116D-03, -.1001D-06, -.3321D-07, .1019D-03, - + .6205D+00, .3536D+00, .5044D+00, - + .7922D-02, -.4327D-03, -.5880D-07, -.9045D-08, .8524D-04, - + .6211D+00, .3565D+00, .5056D+00, - + .6913D-02, -.3745D-03, -.3229D-07, .8308D-08, .7282D-04, - + .6216D+00, .3589D+00, .5067D+00, - + .6166D-02, -.3318D-03, -.1326D-07, .1560D-07, .6366D-04, - + .6220D+00, .3607D+00, .5075D+00, - + .5397D-02, -.2882D-03, .3764D-08, .3292D-07, .5432D-04, - + .6225D+00, .3630D+00, .5085D+00, - + .4817D-02, -.2556D-03, .5319D-08, .3721D-07, .4728D-04, - + .6228D+00, .3647D+00, .5092D+00, - + .4327D-02, -.2283D-03, .1318D-07, .3299D-07, .4151D-04, - + .6233D+00, .3664D+00, .5100D+00 / - DATA ((PARTON(I,N,39),I=1,8),N=17,25)/ - + .3928D-02, -.2062D-03, .1857D-07, .4261D-07, .3679D-04, - + .6236D+00, .3679D+00, .5106D+00, - + .3483D-02, -.1816D-03, .2078D-07, .4570D-07, .3171D-04, - + .6240D+00, .3697D+00, .5114D+00, - + .3118D-02, -.1616D-03, .1767D-07, .4645D-07, .2763D-04, - + .6243D+00, .3713D+00, .5120D+00, - + .2798D-02, -.1442D-03, .1313D-07, .3904D-07, .2412D-04, - + .6247D+00, .3729D+00, .5127D+00, - + .2546D-02, -.1306D-03, .1072D-07, .3815D-07, .2146D-04, - + .6250D+00, .3741D+00, .5133D+00, - + .2311D-02, -.1180D-03, .5438D-08, .3773D-07, .1901D-04, - + .6254D+00, .3755D+00, .5140D+00, - + .2111D-02, -.1073D-03, .2501D-09, .2838D-07, .1699D-04, - + .6256D+00, .3767D+00, .5144D+00, - + .1930D-02, -.9770D-04, -.1147D-07, .2437D-07, .1523D-04, - + .6259D+00, .3778D+00, .5149D+00, - + .1784D-02, -.8997D-04, -.1563D-07, .2058D-07, .1383D-04, - + .6261D+00, .3789D+00, .5154D+00 / - DATA ((PARTON(I,N,40),I=1,8),N=1,8)/ - + .1473D-01, -.6954D-03, .5285D-07, -.2954D-08, .4845D-04, - + .6276D+00, .3823D+00, .5173D+00, - + .1153D-01, -.5357D-03, .1084D-06, .1742D-07, .6097D-04, - + .6283D+00, .3865D+00, .5189D+00, - + .9701D-02, -.4462D-03, .1262D-06, .3536D-07, .6053D-04, - + .6288D+00, .3892D+00, .5200D+00, - + .8066D-02, -.3670D-03, .1436D-06, .5181D-07, .5603D-04, - + .6294D+00, .3924D+00, .5213D+00, - + .6567D-02, -.2953D-03, .1561D-06, .6551D-07, .4884D-04, - + .6300D+00, .3955D+00, .5226D+00, - + .5708D-02, -.2547D-03, .1578D-06, .7476D-07, .4372D-04, - + .6305D+00, .3976D+00, .5234D+00, - + .5140D-02, -.2281D-03, .1631D-06, .7822D-07, .3991D-04, - + .6308D+00, .3992D+00, .5241D+00, - + .4422D-02, -.1946D-03, .1634D-06, .9127D-07, .3481D-04, - + .6311D+00, .4014D+00, .5249D+00 / - DATA ((PARTON(I,N,40),I=1,8),N=9,16)/ - + .3972D-02, -.1738D-03, .1573D-06, .9005D-07, .3126D-04, - + .6315D+00, .4030D+00, .5256D+00, - + .3258D-02, -.1411D-03, .1440D-06, .8039D-07, .2552D-04, - + .6321D+00, .4057D+00, .5267D+00, - + .2728D-02, -.1172D-03, .1404D-06, .8583D-07, .2109D-04, - + .6326D+00, .4081D+00, .5276D+00, - + .2341D-02, -.9982D-04, .1300D-06, .8815D-07, .1776D-04, - + .6327D+00, .4101D+00, .5283D+00, - + .2059D-02, -.8727D-04, .1246D-06, .8470D-07, .1531D-04, - + .6331D+00, .4116D+00, .5290D+00, - + .1773D-02, -.7465D-04, .1133D-06, .8830D-07, .1292D-04, - + .6335D+00, .4135D+00, .5297D+00, - + .1561D-02, -.6537D-04, .9604D-07, .8175D-07, .1108D-04, - + .6338D+00, .4151D+00, .5304D+00, - + .1384D-02, -.5767D-04, .8482D-07, .6769D-07, .9556D-05, - + .6341D+00, .4165D+00, .5309D+00 / - DATA ((PARTON(I,N,40),I=1,8),N=17,25)/ - + .1242D-02, -.5154D-04, .7833D-07, .6846D-07, .8307D-05, - + .6344D+00, .4176D+00, .5314D+00, - + .1085D-02, -.4482D-04, .6678D-07, .6717D-07, .6939D-05, - + .6346D+00, .4192D+00, .5320D+00, - + .9588D-03, -.3940D-04, .5078D-07, .5871D-07, .5886D-05, - + .6349D+00, .4204D+00, .5325D+00, - + .8493D-03, -.3477D-04, .3643D-07, .4857D-07, .4993D-05, - + .6352D+00, .4217D+00, .5330D+00, - + .7643D-03, -.3119D-04, .2736D-07, .4184D-07, .4263D-05, - + .6354D+00, .4226D+00, .5334D+00, - + .6858D-03, -.2789D-04, .1519D-07, .3591D-07, .3681D-05, - + .6356D+00, .4238D+00, .5339D+00, - + .6198D-03, -.2513D-04, .2693D-08, .2507D-07, .3214D-05, - + .6357D+00, .4247D+00, .5342D+00, - + .5608D-03, -.2268D-04, -.1236D-07, .1952D-07, .2796D-05, - + .6359D+00, .4255D+00, .5345D+00, - + .5137D-03, -.2072D-04, -.2113D-07, .1190D-07, .2520D-05, - + .6362D+00, .4262D+00, .5349D+00 / - DATA ((PARTON(I,N,41),I=1,8),N=1,8)/ - + .4062D-02, -.1380D-03, .1918D-06, .3717D-07, .3470D-05, - + .6401D+00, .4472D+00, .5429D+00, - + .3058D-02, -.1025D-03, .2375D-06, .7905D-07, .6807D-05, - + .6407D+00, .4507D+00, .5442D+00, - + .2507D-02, -.8329D-04, .2416D-06, .1017D-06, .7332D-05, - + .6411D+00, .4529D+00, .5450D+00, - + .2026D-02, -.6670D-04, .2403D-06, .1157D-06, .7087D-05, - + .6412D+00, .4553D+00, .5457D+00, - + .1599D-02, -.5214D-04, .2393D-06, .1243D-06, .6484D-05, - + .6419D+00, .4578D+00, .5468D+00, - + .1360D-02, -.4411D-04, .2234D-06, .1275D-06, .6030D-05, - + .6419D+00, .4594D+00, .5471D+00, - + .1206D-02, -.3894D-04, .2206D-06, .1237D-06, .5732D-05, - + .6423D+00, .4606D+00, .5477D+00, - + .1014D-02, -.3259D-04, .2123D-06, .1336D-06, .5352D-05, - + .6426D+00, .4623D+00, .5483D+00 / - DATA ((PARTON(I,N,41),I=1,8),N=9,16)/ - + .8966D-03, -.2870D-04, .1974D-06, .1221D-06, .5004D-05, - + .6427D+00, .4635D+00, .5487D+00, - + .7141D-03, -.2274D-04, .1758D-06, .1104D-06, .4424D-05, - + .6431D+00, .4655D+00, .5495D+00, - + .5826D-03, -.1849D-04, .1640D-06, .1088D-06, .3813D-05, - + .6434D+00, .4673D+00, .5501D+00, - + .4888D-03, -.1549D-04, .1438D-06, .1067D-06, .3373D-05, - + .6437D+00, .4687D+00, .5506D+00, - + .4220D-03, -.1336D-04, .1314D-06, .9798D-07, .2936D-05, - + .6439D+00, .4698D+00, .5510D+00, - + .3555D-03, -.1126D-04, .1154D-06, .9586D-07, .2488D-05, - + .6440D+00, .4711D+00, .5515D+00, - + .3073D-03, -.9755D-05, .9141D-07, .8224D-07, .2125D-05, - + .6444D+00, .4721D+00, .5520D+00, - + .2678D-03, -.8516D-05, .7706D-07, .7051D-07, .1824D-05, - + .6443D+00, .4728D+00, .5521D+00 / - DATA ((PARTON(I,N,41),I=1,8),N=17,25)/ - + .2366D-03, -.7557D-05, .6677D-07, .6692D-07, .1465D-05, - + .6448D+00, .4735D+00, .5526D+00, - + .2029D-03, -.6507D-05, .5167D-07, .5900D-07, .1134D-05, - + .6450D+00, .4741D+00, .5529D+00, - + .1760D-03, -.5685D-05, .3289D-07, .5206D-07, .8092D-06, - + .6450D+00, .4747D+00, .5530D+00, - + .1533D-03, -.4987D-05, .1523D-07, .3587D-07, .5625D-06, - + .6452D+00, .4750D+00, .5533D+00, - + .1359D-03, -.4456D-05, .2986D-08, .2767D-07, .3940D-06, - + .6454D+00, .4750D+00, .5534D+00, - + .1201D-03, -.3977D-05, -.9646D-08, .2680D-07, .2536D-06, - + .6452D+00, .4750D+00, .5533D+00, - + .1070D-03, -.3578D-05, -.2326D-07, .1079D-07, .1882D-06, - + .6456D+00, .4746D+00, .5535D+00, - + .9539D-04, -.3232D-05, -.3982D-07, .1826D-08, .7077D-07, - + .6455D+00, .4744D+00, .5534D+00, - + .8630D-04, -.2948D-05, -.4911D-07, -.8505D-08, .3023D-07, - + .6455D+00, .4740D+00, .5533D+00 / -C - X = DX - Q = DQ - Q2 = DQ*DQ -*...CHECK OF X AND Q2 VALUES : -C IF ( (X.LT.1.0D-4) .OR. (X.GT.1.0D0) ) THEN -C WRITE(6,91) -C 91 FORMAT (2X,'PARTON INTERPOLATION: X OUT OF RANGE') -C GOTO 60 -C ENDIF -C IF ( (Q2.LT.0.4D0) .OR. (Q2.GT.1.D4) ) THEN -C WRITE(6,92) -C 92 FORMAT (2X,'PARTON INTERPOLATION: Q2 OUT OF RANGE') -C GOTO 60 -C ENDIF -C -*...INITIALIZATION : -* SELECTION AND READING OF THE GRID : -* FILE - NO. = 11 FOR NLO 'STANDARD' SCENARIO ( FIRST NUMBER IN THE -* GRID: 1.040D-03 ) -* FILE - NO. = 22 FOR NLO 'VALENCE' SCENARIO ( FIRST NUMBER IN THE -* GRID: 9.740D-04 ) -* FILE - NO. = 33 FOR LO 'STANDARD' SCENARIO ( FIRST NUMBER IN THE -* GRID: 1.731D-03 ) -* FILE - NO. = 44 FOR LO 'VALENCE' SCENARIO ( FIRST NUMBER IN THE -* GRID: 1.846D-03 ) - IF (IINI.NE.0) GOTO 16 -C IF (ISET.EQ.1) THEN -C IIREAD=11 -C OPEN(UNIT=11,FILE='stdnloa1.grid',STATUS='OLD') -C ELSE IF (ISET.EQ.2) THEN -C IIREAD=22 -C OPEN(UNIT=22,FILE='valnloa1.grid',STATUS='OLD') -C ELSE IF (ISET.EQ.3) THEN -C IIREAD=33 -C OPEN(UNIT=33,FILE='stdloa1.grid',STATUS='OLD') -C ELSE IF (ISET.EQ.4) THEN -C IIREAD=44 -C OPEN(UNIT=44,FILE='valloa1.grid',STATUS='OLD') -C ELSE -C WRITE(6,93) -C 93 FORMAT (2X,'PARTON INTERPOLATION: ISET OUT OF RANGE') -C GOTO 60 -C END IF -C -C DO 15 M = 1, NX-1 -C DO 15 N = 1, NQ -C READ(IIREAD,90) PARTON(1,N,M), PARTON(2,N,M), PARTON(3,N,M), -C 1 PARTON(4,N,M), PARTON(5,N,M), PARTON(6,N,M), -C 2 PARTON(7,N,M), PARTON(8,N,M) -C 90 FORMAT (8(1PE10.3)) -C 15 CONTINUE -C - IINI = 1 -*....ARRAYS FOR THE INTERPOLATION SUBROUTINE : - DO 10 IQ = 1, NQ - DO 20 IX = 1, NX-1 - XB0 = XB(IX) - XB1 = 1.D0-XB(IX) - XUVF(IX,IQ) = PARTON(1,IQ,IX) / (XB1**3 * XB0**0.7) - XDVF(IX,IQ) = PARTON(2,IQ,IX) / (XB1**4 * XB0**0.6) - XQBF(IX,IQ) = PARTON(3,IQ,IX) / (XB1**7 * XB0**0.3) - XSF(IX,IQ) = PARTON(4,IQ,IX) / (XB1**7 * XB0**0.3) - XGF(IX,IQ) = PARTON(5,IQ,IX) / (XB1**10 * XB0**0.3) - XAPF(IX,IQ) = PARTON(6,IQ,IX) / XB0 - XANF(IX,IQ) = PARTON(7,IQ,IX) / XB0 - XADF(IX,IQ) = PARTON(8,IQ,IX) / XB0 - 20 CONTINUE - XUVF(NX,IQ) = 0.D0 - XDVF(NX,IQ) = 0.D0 - XQBF(NX,IQ) = 0.D0 - XSF(NX,IQ) = 0.D0 - XGF(NX,IQ) = 0.D0 - XAPF(NX,IQ) = 0.D0 - XANF(NX,IQ) = 0.D0 - XADF(NX,IQ) = 0.D0 - 10 CONTINUE - NA(1) = NX - NA(2) = NQ - DO 30 IX = 1, NX - ARRF(IX) = LOG(XB(IX)) - 30 CONTINUE - DO 40 IQ = 1, NQ - ARRF(NX+IQ) = LOG(QS(IQ)) - 40 CONTINUE - 16 CONTINUE -C -*...INTERPOLATION : - XT(1) = LOG(X) - XT(2) = LOG(Q2) - UV = DBFINT(NARG,XT,NA,ARRF,XUVF) * (1.D0-X)**3 * X**0.7 - DUV = UV - DV = DBFINT(NARG,XT,NA,ARRF,XDVF) * (1.D0-X)**4 * X**0.6 - DDV = DV - QB = DBFINT(NARG,XT,NA,ARRF,XQBF) * (1.D0-X)**7 * X**0.3 - DSEA = QB - ST = DBFINT(NARG,XT,NA,ARRF,XSF) * (1.D0-X)**7 * X**0.3 - DSTR = ST - DCHM = ZEROD - DBOT = ZEROD - DTOP = ZEROD - GL = DBFINT(NARG,XT,NA,ARRF,XGF) * (1.D0-X)**10 * X**0.3 - DGL = GL - A1P = DBFINT(NARG,XT,NA,ARRF,XAPF) * X - A1N = DBFINT(NARG,XT,NA,ARRF,XANF) * X - A1D = DBFINT(NARG,XT,NA,ARRF,XADF) * X - 60 RETURN - END diff --git a/PDF/spdf/grsvl1.F b/PDF/spdf/grsvl1.F deleted file mode 100644 index 32a5335240a..00000000000 --- a/PDF/spdf/grsvl1.F +++ /dev/null @@ -1,2372 +0,0 @@ -#include "pdf/pilot.h" -********************************************************************* -* * -* POLARIZED RADIATIVELY GENERATED LO AND NLO PARTON DENSITIES * -* AND DIS ASYMMETRIES * -* * -* M. GLUCK, E. REYA, M. STRATMANN AND W. VOGELSANG, * -* (PHYS. REV. D53 (1996) 4775) * -* PROBLEMS/QUESTIONS TO VOGELSANG@V2.RL.AC.UK * -* OR TO STRAT@HAL1.PHYSIK.UNI-DORTMUND.DE * -* * -* INPUT: ISET = number of the parton set : * -* ISET = 1 'STANDARD' SCENARIO, NEXT-TO-LEADING ORDER * -* (MS-bar) * -* (DATA FILE 'STDNLOA1.GRID' UNIT=11, TO BE * -* DEFINED BY THE USER ) * -* ISET = 2 'VALENCE' SCENARIO, NEXT-TO-LEADING ORDER * -* (MS-bar) * -* (DATA FILE 'VALNLOA1.GRID' UNIT=22, TO BE * -* DEFINED BY THE USER ) * -* ISET = 3 'STANDARD' SCENARIO, LEADING ORDER * -* (DATA FILE 'STDLOA1.GRID' UNIT=33, TO BE * -* DEFINED BY THE USER ) * -* ISET = 4 'VALENCE' SCENARIO, LEADING ORDER * -* (DATA FILE 'VALLOA1.GRID' UNIT=44, TO BE * -* DEFINED BY THE USER ) * -* * -* X = Bjorken-x (between 1.E-4 and 1) * -* Q2 = scale in GeV**2 (between 0.4 and 1.E4) * -* (for values outside the allowed range the program * -* writes a warning and extrapolates to the x and * -* Q2 values requested) * -* * -* OUTPUT: UV = x * ( DELTA u - DELTA u(bar) ), * -* DV = x * ( DELTA d - DELTA d(bar) ), * -* QB = x * POLARIZED LIGHT SEA, * -* QB= x * ( (DELTA U(BAR) + DELTA D(BAR))/2 ) * -* ST = x * DELTA STRANGE = x * DELTA STRANGE(BAR) * -* GL = x * DELTA GLUON * -* * -* ( For the parton distributions always x times * -* the distribution is returned ) * -* * -* A1P = A1-Proton * -* A1N = A1-Neutron * -* A1D = A1-Deuteron * -* * -* The sets are the result of a combined fit to * -* data for the spin asymmetries A_1 (p,n,d) * -* * -* Note: No charm is included * -* * -* COMMON: The main program or the calling routine has to have * -* a common block COMMON / INTINI / IINI , and IINI * -* has always to be zero when PARPOL is called for the * -* first time or when 'ISET' has been changed. * -* * -********************************************************************* -* - SUBROUTINE GRSVL1 (DX,DQ,DUV,DDV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL) -C SUBROUTINE GRSVL1 (X, Q2, UV, DV, QB, ST, GL, A1P, A1N, A1D) -#include "pdf/impdp.inc" - PARAMETER (NPART=8, NX=42, NQ=25, NARG=2) - DIMENSION - + XUVF(NX,NQ), XDVF(NX,NQ), XQBF(NX,NQ), - 1 XSF(NX,NQ), XGF(NX,NQ), - 2 XAPF(NX,NQ), XANF(NX,NQ), XADF(NX,NQ), - 3 QS(NQ), XB(NX), XT(NARG), NA(NARG), ARRF(NX+NQ) - DIMENSION - + PARTON (NPART,NQ,NX-1) - COMMON / GRSVA1 / A1P, A1N, A1D -C COMMON / INTINI / IINI - SAVE XUVF, XDVF, XQBF, XSF, XGF, XAPF, XANF, XADF, NA, ARRF - DATA ZEROD/0.D0/ -*...BJORKEN-X AND Q**2 VALUES OF THE GRID : - DATA QS / 0.4D0, 0.5d0, 0.6d0, 0.75D0, 1.0D0, - 1 1.25d0, 1.5D0, 2.d0, 2.5D0, - 1 4.0D0, 6.4D0, 1.0D1, 1.5D1, 2.5D1, 4.0D1, 6.4D1, - 2 1.0D2, 1.8D2, 3.2D2, 5.8D2, 1.0D3, 1.8D3, - 3 3.2D3, 5.8D3, 1.0D4 / - DATA XB / 1.D-4, 1.5D-4, 2.2D-4, 3.2D-4, 4.8D-4, 7.D-4, - 2 1.D-3, 1.5D-3, 2.2D-3, 3.2D-3, 4.8D-3, 7.D-3, - 3 1.D-2, 1.5D-2, 2.2D-2, 3.2D-2, 5.0D-2, 7.5D-2, - 4 0.1D0, 0.125D0, 0.15D0, 0.175D0, 0.2D0, 0.225D0, - + 0.25D0, 0.275D0, - 5 0.3D0, 0.325D0, 0.35D0, 0.375D0, 0.4D0, 0.45D0, - + 0.5D0, 0.55D0, - 6 0.6D0, 0.65D0, 0.7D0, 0.75D0, 0.8D0, 0.85D0, - + 0.9D0, 1.0D0 / - DATA IINI/0/ -C - DATA ((PARTON(I,N,1),I=1,8),N=1,8)/ - + .1731D-02, -.4278D-02, -.7126D-04, -.7126D-04, .5943D-03, - + .2201D-02, -.1951D-01, -.8012D-02, - + .1897D-02, -.4422D-02, -.1137D-03, -.1137D-03, .1483D-02, - + .1544D-02, -.1447D-01, -.5957D-02, - + .2029D-02, -.4533D-02, -.1558D-03, -.1558D-03, .2529D-02, - + .1118D-02, -.1159D-01, -.4815D-02, - + .2186D-02, -.4661D-02, -.2158D-03, -.2158D-03, .4216D-02, - + .7223D-03, -.9133D-02, -.3859D-02, - + .2382D-02, -.4816D-02, -.3053D-03, -.3053D-03, .7051D-02, - + .3617D-03, -.7058D-02, -.3067D-02, - + .2529D-02, -.4930D-02, -.3831D-03, -.3831D-03, .9753D-02, - + .1619D-03, -.5972D-02, -.2659D-02, - + .2646D-02, -.5018D-02, -.4513D-03, -.4513D-03, .1228D-01, - + .3490D-04, -.5302D-02, -.2409D-02, - + .2826D-02, -.5151D-02, -.5663D-03, -.5663D-03, .1681D-01, - + -.1184D-03, -.4513D-02, -.2117D-02 / - DATA ((PARTON(I,N,1),I=1,8),N=9,16)/ - + .2961D-02, -.5249D-02, -.6599D-03, -.6599D-03, .2075D-01, - + -.2075D-03, -.4055D-02, -.1948D-02, - + .3239D-02, -.5445D-02, -.8714D-03, -.8714D-03, .3033D-01, - + -.3435D-03, -.3373D-02, -.1698D-02, - + .3506D-02, -.5629D-02, -.1096D-02, -.1096D-02, .4147D-01, - + -.4325D-03, -.2922D-02, -.1532D-02, - + .3751D-02, -.5793D-02, -.1316D-02, -.1316D-02, .5333D-01, - + -.4898D-03, -.2618D-02, -.1419D-02, - + .3967D-02, -.5934D-02, -.1519D-02, -.1519D-02, .6508D-01, - + -.5264D-03, -.2408D-02, -.1340D-02, - + .4228D-02, -.6101D-02, -.1774D-02, -.1774D-02, .8088D-01, - + -.5569D-03, -.2201D-02, -.1259D-02, - + .4464D-02, -.6250D-02, -.2012D-02, -.2012D-02, .9667D-01, - + -.5766D-03, -.2054D-02, -.1201D-02, - + .4694D-02, -.6392D-02, -.2247D-02, -.2247D-02, .1134D+00, - + -.5896D-03, -.1933D-02, -.1152D-02 / - DATA ((PARTON(I,N,1),I=1,8),N=17,25)/ - + .4908D-02, -.6522D-02, -.2467D-02, -.2467D-02, .1301D+00, - + -.5971D-03, -.1838D-02, -.1112D-02, - + .5183D-02, -.6687D-02, -.2750D-02, -.2750D-02, .1531D+00, - + -.6017D-03, -.1731D-02, -.1065D-02, - + .5445D-02, -.6842D-02, -.3017D-02, -.3017D-02, .1766D+00, - + -.6016D-03, -.1644D-02, -.1025D-02, - + .5708D-02, -.6995D-02, -.3281D-02, -.3281D-02, .2018D+00, - + -.5980D-03, -.1566D-02, -.9878D-03, - + .5944D-02, -.7130D-02, -.3512D-02, -.3512D-02, .2255D+00, - + -.5921D-03, -.1503D-02, -.9563D-03, - + .6192D-02, -.7270D-02, -.3748D-02, -.3748D-02, .2517D+00, - + -.5838D-03, -.1442D-02, -.9246D-03, - + .6430D-02, -.7403D-02, -.3965D-02, -.3965D-02, .2779D+00, - + -.5739D-03, -.1388D-02, -.8955D-03, - + .6670D-02, -.7536D-02, -.4175D-02, -.4175D-02, .3054D+00, - + -.5624D-03, -.1336D-02, -.8669D-03, - + .6885D-02, -.7654D-02, -.4354D-02, -.4354D-02, .3309D+00, - + -.5509D-03, -.1293D-02, -.8418D-03 / - DATA ((PARTON(I,N,2),I=1,8),N=1,8)/ - + .2303D-02, -.4980D-02, -.1013D-03, -.1013D-03, .9912D-03, - + .3502D-02, -.2140D-01, -.8297D-02, - + .2520D-02, -.5150D-02, -.1571D-03, -.1571D-03, .2218D-02, - + .2560D-02, -.1652D-01, -.6439D-02, - + .2693D-02, -.5280D-02, -.2111D-03, -.2111D-03, .3613D-02, - + .1939D-02, -.1359D-01, -.5359D-02, - + .2897D-02, -.5431D-02, -.2867D-03, -.2867D-03, .5805D-02, - + .1352D-02, -.1098D-01, -.4420D-02, - + .3151D-02, -.5613D-02, -.3973D-03, -.3973D-03, .9405D-02, - + .8092D-03, -.8696D-02, -.3614D-02, - + .3342D-02, -.5746D-02, -.4916D-03, -.4916D-03, .1278D-01, - + .5062D-03, -.7465D-02, -.3186D-02, - + .3494D-02, -.5850D-02, -.5733D-03, -.5733D-03, .1589D-01, - + .3126D-03, -.6692D-02, -.2919D-02, - + .3727D-02, -.6006D-02, -.7091D-03, -.7091D-03, .2141D-01, - + .7848D-04, -.5765D-02, -.2600D-02 / - DATA ((PARTON(I,N,2),I=1,8),N=9,16)/ - + .3900D-02, -.6121D-02, -.8182D-03, -.8182D-03, .2614D-01, - + -.5813D-04, -.5217D-02, -.2411D-02, - + .4258D-02, -.6351D-02, -.1061D-02, -.1061D-02, .3752D-01, - + -.2658D-03, -.4388D-02, -.2126D-02, - + .4601D-02, -.6566D-02, -.1313D-02, -.1313D-02, .5054D-01, - + -.4009D-03, -.3828D-02, -.1932D-02, - + .4915D-02, -.6758D-02, -.1556D-02, -.1556D-02, .6423D-01, - + -.4873D-03, -.3444D-02, -.1795D-02, - + .5191D-02, -.6924D-02, -.1776D-02, -.1776D-02, .7764D-01, - + -.5423D-03, -.3174D-02, -.1697D-02, - + .5523D-02, -.7120D-02, -.2049D-02, -.2049D-02, .9548D-01, - + -.5881D-03, -.2906D-02, -.1595D-02, - + .5823D-02, -.7294D-02, -.2298D-02, -.2298D-02, .1131D+00, - + -.6169D-03, -.2711D-02, -.1520D-02, - + .6116D-02, -.7460D-02, -.2542D-02, -.2542D-02, .1317D+00, - + -.6354D-03, -.2551D-02, -.1455D-02 / - DATA ((PARTON(I,N,2),I=1,8),N=17,25)/ - + .6387D-02, -.7613D-02, -.2766D-02, -.2766D-02, .1501D+00, - + -.6458D-03, -.2423D-02, -.1401D-02, - + .6734D-02, -.7805D-02, -.3049D-02, -.3049D-02, .1752D+00, - + -.6515D-03, -.2279D-02, -.1338D-02, - + .7064D-02, -.7985D-02, -.3311D-02, -.3311D-02, .2006D+00, - + -.6504D-03, -.2159D-02, -.1282D-02, - + .7396D-02, -.8164D-02, -.3565D-02, -.3565D-02, .2276D+00, - + -.6440D-03, -.2051D-02, -.1230D-02, - + .7693D-02, -.8321D-02, -.3783D-02, -.3783D-02, .2529D+00, - + -.6347D-03, -.1963D-02, -.1186D-02, - + .8004D-02, -.8485D-02, -.4000D-02, -.4000D-02, .2806D+00, - + -.6217D-03, -.1878D-02, -.1141D-02, - + .8302D-02, -.8639D-02, -.4196D-02, -.4196D-02, .3081D+00, - + -.6067D-03, -.1802D-02, -.1100D-02, - + .8602D-02, -.8794D-02, -.4380D-02, -.4380D-02, .3369D+00, - + -.5893D-03, -.1730D-02, -.1059D-02, - + .8871D-02, -.8931D-02, -.4533D-02, -.4533D-02, .3634D+00, - + -.5722D-03, -.1669D-02, -.1023D-02 / - DATA ((PARTON(I,N,3),I=1,8),N=1,8)/ - + .3015D-02, -.5753D-02, -.1415D-03, -.1415D-03, .1505D-02, - + .5037D-02, -.2323D-01, -.8438D-02, - + .3295D-02, -.5951D-02, -.2133D-03, -.2133D-03, .3143D-02, - + .3819D-02, -.1859D-01, -.6821D-02, - + .3516D-02, -.6103D-02, -.2815D-03, -.2815D-03, .4951D-02, - + .2994D-02, -.1568D-01, -.5839D-02, - + .3778D-02, -.6279D-02, -.3750D-03, -.3750D-03, .7731D-02, - + .2196D-02, -.1298D-01, -.4955D-02, - + .4103D-02, -.6491D-02, -.5092D-03, -.5092D-03, .1220D-01, - + .1444D-02, -.1053D-01, -.4167D-02, - + .4346D-02, -.6646D-02, -.6217D-03, -.6217D-03, .1632D-01, - + .1017D-02, -.9172D-02, -.3734D-02, - + .4539D-02, -.6767D-02, -.7178D-03, -.7178D-03, .2008D-01, - + .7427D-03, -.8300D-02, -.3459D-02, - + .4835D-02, -.6949D-02, -.8756D-03, -.8756D-03, .2668D-01, - + .4083D-03, -.7234D-02, -.3122D-02 / - DATA ((PARTON(I,N,3),I=1,8),N=9,16)/ - + .5055D-02, -.7083D-02, -.1001D-02, -.1001D-02, .3227D-01, - + .2117D-03, -.6594D-02, -.2918D-02, - + .5507D-02, -.7351D-02, -.1274D-02, -.1274D-02, .4555D-01, - + -.8722D-04, -.5605D-02, -.2601D-02, - + .5940D-02, -.7601D-02, -.1552D-02, -.1552D-02, .6050D-01, - + -.2819D-03, -.4922D-02, -.2377D-02, - + .6335D-02, -.7824D-02, -.1815D-02, -.1815D-02, .7603D-01, - + -.4063D-03, -.4445D-02, -.2216D-02, - + .6681D-02, -.8016D-02, -.2051D-02, -.2051D-02, .9109D-01, - + -.4852D-03, -.4106D-02, -.2097D-02, - + .7098D-02, -.8244D-02, -.2336D-02, -.2336D-02, .1109D+00, - + -.5512D-03, -.3764D-02, -.1970D-02, - + .7473D-02, -.8445D-02, -.2593D-02, -.2593D-02, .1304D+00, - + -.5919D-03, -.3513D-02, -.1874D-02, - + .7838D-02, -.8638D-02, -.2839D-02, -.2839D-02, .1506D+00, - + -.6178D-03, -.3304D-02, -.1791D-02 / - DATA ((PARTON(I,N,3),I=1,8),N=17,25)/ - + .8175D-02, -.8815D-02, -.3062D-02, -.3062D-02, .1705D+00, - + -.6320D-03, -.3135D-02, -.1720D-02, - + .8607D-02, -.9037D-02, -.3339D-02, -.3339D-02, .1975D+00, - + -.6391D-03, -.2943D-02, -.1636D-02, - + .9016D-02, -.9246D-02, -.3589D-02, -.3589D-02, .2245D+00, - + -.6367D-03, -.2782D-02, -.1561D-02, - + .9427D-02, -.9452D-02, -.3826D-02, -.3826D-02, .2531D+00, - + -.6269D-03, -.2637D-02, -.1490D-02, - + .9793D-02, -.9633D-02, -.4024D-02, -.4024D-02, .2796D+00, - + -.6130D-03, -.2518D-02, -.1429D-02, - + .1018D-01, -.9822D-02, -.4217D-02, -.4217D-02, .3085D+00, - + -.5940D-03, -.2402D-02, -.1368D-02, - + .1054D-01, -.1000D-01, -.4385D-02, -.4385D-02, .3370D+00, - + -.5724D-03, -.2298D-02, -.1310D-02, - + .1091D-01, -.1018D-01, -.4537D-02, -.4537D-02, .3666D+00, - + -.5476D-03, -.2200D-02, -.1254D-02, - + .1124D-01, -.1034D-01, -.4659D-02, -.4659D-02, .3938D+00, - + -.5233D-03, -.2116D-02, -.1205D-02 / - DATA ((PARTON(I,N,4),I=1,8),N=1,8)/ - + .3923D-02, -.6631D-02, -.1965D-03, -.1965D-03, .2180D-02, - + .6857D-02, -.2505D-01, -.8441D-02, - + .4281D-02, -.6861D-02, -.2882D-03, -.2882D-03, .4325D-02, - + .5377D-02, -.2075D-01, -.7101D-02, - + .4562D-02, -.7038D-02, -.3734D-03, -.3734D-03, .6631D-02, - + .4344D-02, -.1792D-01, -.6254D-02, - + .4895D-02, -.7243D-02, -.4881D-03, -.4881D-03, .1011D-01, - + .3320D-02, -.1521D-01, -.5461D-02, - + .5307D-02, -.7489D-02, -.6493D-03, -.6493D-03, .1559D-01, - + .2331D-02, -.1264D-01, -.4725D-02, - + .5614D-02, -.7670D-02, -.7820D-03, -.7820D-03, .2056D-01, - + .1759D-02, -.1116D-01, -.4306D-02, - + .5858D-02, -.7810D-02, -.8940D-03, -.8940D-03, .2505D-01, - + .1387D-02, -.1020D-01, -.4031D-02, - + .6231D-02, -.8022D-02, -.1075D-02, -.1075D-02, .3284D-01, - + .9303D-03, -.8992D-02, -.3687D-02 / - DATA ((PARTON(I,N,4),I=1,8),N=9,16)/ - + .6508D-02, -.8177D-02, -.1217D-02, -.1217D-02, .3937D-01, - + .6593D-03, -.8254D-02, -.3472D-02, - + .7075D-02, -.8488D-02, -.1521D-02, -.1521D-02, .5468D-01, - + .2453D-03, -.7093D-02, -.3129D-02, - + .7616D-02, -.8778D-02, -.1824D-02, -.1824D-02, .7167D-01, - + -.2557D-04, -.6270D-02, -.2876D-02, - + .8109D-02, -.9036D-02, -.2105D-02, -.2105D-02, .8908D-01, - + -.1989D-03, -.5685D-02, -.2687D-02, - + .8539D-02, -.9259D-02, -.2352D-02, -.2352D-02, .1058D+00, - + -.3089D-03, -.5263D-02, -.2544D-02, - + .9056D-02, -.9522D-02, -.2646D-02, -.2646D-02, .1276D+00, - + -.4015D-03, -.4830D-02, -.2389D-02, - + .9521D-02, -.9755D-02, -.2905D-02, -.2905D-02, .1487D+00, - + -.4579D-03, -.4510D-02, -.2268D-02, - + .9972D-02, -.9977D-02, -.3149D-02, -.3149D-02, .1706D+00, - + -.4933D-03, -.4240D-02, -.2161D-02 / - DATA ((PARTON(I,N,4),I=1,8),N=17,25)/ - + .1039D-01, -.1018D-01, -.3366D-02, -.3366D-02, .1918D+00, - + -.5124D-03, -.4018D-02, -.2069D-02, - + .1092D-01, -.1044D-01, -.3628D-02, -.3628D-02, .2204D+00, - + -.5216D-03, -.3767D-02, -.1958D-02, - + .1142D-01, -.1068D-01, -.3859D-02, -.3859D-02, .2489D+00, - + -.5174D-03, -.3553D-02, -.1858D-02, - + .1193D-01, -.1091D-01, -.4072D-02, -.4072D-02, .2787D+00, - + -.5031D-03, -.3359D-02, -.1763D-02, - + .1237D-01, -.1112D-01, -.4243D-02, -.4243D-02, .3062D+00, - + -.4834D-03, -.3200D-02, -.1681D-02, - + .1284D-01, -.1134D-01, -.4404D-02, -.4404D-02, .3360D+00, - + -.4567D-03, -.3044D-02, -.1598D-02, - + .1329D-01, -.1154D-01, -.4537D-02, -.4537D-02, .3651D+00, - + -.4265D-03, -.2904D-02, -.1520D-02, - + .1374D-01, -.1175D-01, -.4652D-02, -.4652D-02, .3952D+00, - + -.3921D-03, -.2771D-02, -.1444D-02, - + .1414D-01, -.1193D-01, -.4736D-02, -.4736D-02, .4226D+00, - + -.3585D-03, -.2657D-02, -.1377D-02 / - DATA ((PARTON(I,N,5),I=1,8),N=1,8)/ - + .5216D-02, -.7740D-02, -.2812D-03, -.2812D-03, .3158D-02, - + .9210D-02, -.2709D-01, -.8289D-02, - + .5680D-02, -.8012D-02, -.4001D-03, -.4001D-03, .5996D-02, - + .7473D-02, -.2325D-01, -.7281D-02, - + .6044D-02, -.8220D-02, -.5080D-03, -.5080D-03, .8969D-02, - + .6220D-02, -.2059D-01, -.6615D-02, - + .6474D-02, -.8462D-02, -.6502D-03, -.6502D-03, .1336D-01, - + .4942D-02, -.1792D-01, -.5962D-02, - + .7004D-02, -.8753D-02, -.8454D-03, -.8454D-03, .2013D-01, - + .3672D-02, -.1529D-01, -.5324D-02, - + .7399D-02, -.8965D-02, -.1003D-02, -.1003D-02, .2617D-01, - + .2922D-02, -.1371D-01, -.4941D-02, - + .7711D-02, -.9131D-02, -.1134D-02, -.1134D-02, .3156D-01, - + .2427D-02, -.1266D-01, -.4682D-02, - + .8187D-02, -.9380D-02, -.1342D-02, -.1342D-02, .4079D-01, - + .1812D-02, -.1131D-01, -.4344D-02 / - DATA ((PARTON(I,N,5),I=1,8),N=9,16)/ - + .8541D-02, -.9562D-02, -.1503D-02, -.1503D-02, .4845D-01, - + .1442D-02, -.1047D-01, -.4124D-02, - + .9263D-02, -.9927D-02, -.1840D-02, -.1840D-02, .6613D-01, - + .8739D-03, -.9100D-02, -.3758D-02, - + .9949D-02, -.1027D-01, -.2168D-02, -.2168D-02, .8543D-01, - + .4990D-03, -.8106D-02, -.3474D-02, - + .1057D-01, -.1057D-01, -.2464D-02, -.2464D-02, .1049D+00, - + .2580D-03, -.7382D-02, -.3253D-02, - + .1111D-01, -.1083D-01, -.2720D-02, -.2720D-02, .1234D+00, - + .1047D-03, -.6850D-02, -.3080D-02, - + .1176D-01, -.1114D-01, -.3016D-02, -.3016D-02, .1473D+00, - + -.2529D-04, -.6298D-02, -.2887D-02, - + .1235D-01, -.1141D-01, -.3271D-02, -.3271D-02, .1701D+00, - + -.1035D-03, -.5882D-02, -.2732D-02, - + .1291D-01, -.1167D-01, -.3505D-02, -.3505D-02, .1935D+00, - + -.1523D-03, -.5528D-02, -.2593D-02 / - DATA ((PARTON(I,N,5),I=1,8),N=17,25)/ - + .1343D-01, -.1191D-01, -.3708D-02, -.3708D-02, .2161D+00, - + -.1782D-03, -.5235D-02, -.2471D-02, - + .1409D-01, -.1221D-01, -.3945D-02, -.3945D-02, .2462D+00, - + -.1899D-03, -.4898D-02, -.2323D-02, - + .1472D-01, -.1248D-01, -.4147D-02, -.4147D-02, .2759D+00, - + -.1831D-03, -.4611D-02, -.2188D-02, - + .1534D-01, -.1276D-01, -.4323D-02, -.4323D-02, .3067D+00, - + -.1622D-03, -.4348D-02, -.2059D-02, - + .1590D-01, -.1300D-01, -.4457D-02, -.4457D-02, .3348D+00, - + -.1340D-03, -.4131D-02, -.1947D-02, - + .1648D-01, -.1325D-01, -.4575D-02, -.4575D-02, .3650D+00, - + -.9626D-04, -.3918D-02, -.1832D-02, - + .1703D-01, -.1349D-01, -.4663D-02, -.4663D-02, .3944D+00, - + -.5383D-04, -.3726D-02, -.1725D-02, - + .1758D-01, -.1372D-01, -.4729D-02, -.4729D-02, .4245D+00, - + -.5745D-05, -.3543D-02, -.1620D-02, - + .1807D-01, -.1393D-01, -.4767D-02, -.4767D-02, .4518D+00, - + .4108D-04, -.3387D-02, -.1527D-02 / - DATA ((PARTON(I,N,6),I=1,8),N=1,8)/ - + .6793D-02, -.8947D-02, -.3938D-03, -.3938D-03, .4368D-02, - + .1178D-01, -.2908D-01, -.8006D-02, - + .7383D-02, -.9265D-02, -.5447D-03, -.5447D-03, .8016D-02, - + .9842D-02, -.2573D-01, -.7325D-02, - + .7845D-02, -.9509D-02, -.6783D-03, -.6783D-03, .1175D-01, - + .8404D-02, -.2331D-01, -.6851D-02, - + .8388D-02, -.9791D-02, -.8509D-03, -.8509D-03, .1715D-01, - + .6899D-02, -.2077D-01, -.6361D-02, - + .9057D-02, -.1013D-01, -.1083D-02, -.1083D-02, .2533D-01, - + .5365D-02, -.1814D-01, -.5849D-02, - + .9552D-02, -.1038D-01, -.1266D-02, -.1266D-02, .3250D-01, - + .4438D-02, -.1651D-01, -.5522D-02, - + .9944D-02, -.1057D-01, -.1416D-02, -.1416D-02, .3883D-01, - + .3818D-02, -.1539D-01, -.5289D-02, - + .1054D-01, -.1086D-01, -.1651D-02, -.1651D-02, .4955D-01, - + .3037D-02, -.1392D-01, -.4971D-02 / - DATA ((PARTON(I,N,6),I=1,8),N=9,16)/ - + .1098D-01, -.1107D-01, -.1829D-02, -.1829D-02, .5834D-01, - + .2563D-02, -.1297D-01, -.4755D-02, - + .1188D-01, -.1150D-01, -.2196D-02, -.2196D-02, .7836D-01, - + .1827D-02, -.1141D-01, -.4375D-02, - + .1273D-01, -.1189D-01, -.2542D-02, -.2542D-02, .9986D-01, - + .1336D-02, -.1024D-01, -.4063D-02, - + .1350D-01, -.1224D-01, -.2848D-02, -.2848D-02, .1213D+00, - + .1019D-02, -.9362D-02, -.3808D-02, - + .1417D-01, -.1254D-01, -.3106D-02, -.3106D-02, .1414D+00, - + .8173D-03, -.8710D-02, -.3602D-02, - + .1497D-01, -.1290D-01, -.3397D-02, -.3397D-02, .1670D+00, - + .6447D-03, -.8022D-02, -.3367D-02, - + .1569D-01, -.1321D-01, -.3641D-02, -.3641D-02, .1913D+00, - + .5419D-03, -.7496D-02, -.3173D-02, - + .1638D-01, -.1351D-01, -.3858D-02, -.3858D-02, .2159D+00, - + .4784D-03, -.7043D-02, -.2996D-02 / - DATA ((PARTON(I,N,6),I=1,8),N=17,25)/ - + .1701D-01, -.1378D-01, -.4040D-02, -.4040D-02, .2394D+00, - + .4453D-03, -.6666D-02, -.2838D-02, - + .1782D-01, -.1413D-01, -.4245D-02, -.4245D-02, .2706D+00, - + .4316D-03, -.6229D-02, -.2645D-02, - + .1858D-01, -.1445D-01, -.4409D-02, -.4409D-02, .3009D+00, - + .4424D-03, -.5853D-02, -.2469D-02, - + .1934D-01, -.1476D-01, -.4543D-02, -.4543D-02, .3322D+00, - + .4718D-03, -.5506D-02, -.2297D-02, - + .2001D-01, -.1504D-01, -.4635D-02, -.4635D-02, .3605D+00, - + .5107D-03, -.5219D-02, -.2148D-02, - + .2071D-01, -.1532D-01, -.4704D-02, -.4704D-02, .3907D+00, - + .5622D-03, -.4937D-02, -.1996D-02, - + .2137D-01, -.1559D-01, -.4744D-02, -.4744D-02, .4198D+00, - + .6196D-03, -.4682D-02, -.1854D-02, - + .2204D-01, -.1586D-01, -.4758D-02, -.4758D-02, .4494D+00, - + .6844D-03, -.4439D-02, -.1713D-02, - + .2263D-01, -.1610D-01, -.4747D-02, -.4747D-02, .4761D+00, - + .7472D-03, -.4231D-02, -.1590D-02 / - DATA ((PARTON(I,N,7),I=1,8),N=1,8)/ - + .8715D-02, -.1027D-01, -.5433D-03, -.5433D-03, .5854D-02, - + .1455D-01, -.3110D-01, -.7632D-02, - + .9452D-02, -.1064D-01, -.7313D-03, -.7313D-03, .1044D-01, - + .1247D-01, -.2827D-01, -.7260D-02, - + .1003D-01, -.1093D-01, -.8941D-03, -.8941D-03, .1503D-01, - + .1089D-01, -.2611D-01, -.6979D-02, - + .1070D-01, -.1125D-01, -.1100D-02, -.1100D-02, .2156D-01, - + .9203D-02, -.2376D-01, -.6662D-02, - + .1153D-01, -.1165D-01, -.1370D-02, -.1370D-02, .3126D-01, - + .7437D-02, -.2121D-01, -.6293D-02, - + .1214D-01, -.1193D-01, -.1579D-02, -.1579D-02, .3963D-01, - + .6348D-02, -.1956D-01, -.6033D-02, - + .1263D-01, -.1216D-01, -.1748D-02, -.1748D-02, .4693D-01, - + .5611D-02, -.1840D-01, -.5836D-02, - + .1336D-01, -.1249D-01, -.2009D-02, -.2009D-02, .5917D-01, - + .4670D-02, -.1683D-01, -.5549D-02 / - DATA ((PARTON(I,N,7),I=1,8),N=9,16)/ - + .1390D-01, -.1274D-01, -.2203D-02, -.2203D-02, .6908D-01, - + .4091D-02, -.1580D-01, -.5341D-02, - + .1501D-01, -.1322D-01, -.2595D-02, -.2595D-02, .9138D-01, - + .3185D-02, -.1405D-01, -.4954D-02, - + .1605D-01, -.1368D-01, -.2954D-02, -.2954D-02, .1149D+00, - + .2575D-02, -.1269D-01, -.4614D-02, - + .1698D-01, -.1408D-01, -.3263D-02, -.3263D-02, .1381D+00, - + .2179D-02, -.1166D-01, -.4323D-02, - + .1780D-01, -.1443D-01, -.3516D-02, -.3516D-02, .1596D+00, - + .1926D-02, -.1087D-01, -.4080D-02, - + .1876D-01, -.1483D-01, -.3795D-02, -.3795D-02, .1866D+00, - + .1709D-02, -.1003D-01, -.3796D-02, - + .1963D-01, -.1519D-01, -.4020D-02, -.4020D-02, .2120D+00, - + .1581D-02, -.9383D-02, -.3558D-02, - + .2046D-01, -.1553D-01, -.4213D-02, -.4213D-02, .2375D+00, - + .1503D-02, -.8817D-02, -.3335D-02 / - DATA ((PARTON(I,N,7),I=1,8),N=17,25)/ - + .2122D-01, -.1584D-01, -.4369D-02, -.4369D-02, .2617D+00, - + .1464D-02, -.8341D-02, -.3136D-02, - + .2219D-01, -.1623D-01, -.4534D-02, -.4534D-02, .2934D+00, - + .1450D-02, -.7786D-02, -.2889D-02, - + .2310D-01, -.1659D-01, -.4654D-02, -.4654D-02, .3240D+00, - + .1468D-02, -.7305D-02, -.2661D-02, - + .2400D-01, -.1695D-01, -.4740D-02, -.4740D-02, .3551D+00, - + .1509D-02, -.6860D-02, -.2439D-02, - + .2480D-01, -.1726D-01, -.4786D-02, -.4786D-02, .3832D+00, - + .1562D-02, -.6490D-02, -.2247D-02, - + .2563D-01, -.1758D-01, -.4804D-02, -.4804D-02, .4129D+00, - + .1631D-02, -.6124D-02, -.2048D-02, - + .2642D-01, -.1789D-01, -.4793D-02, -.4793D-02, .4413D+00, - + .1707D-02, -.5795D-02, -.1863D-02, - + .2721D-01, -.1819D-01, -.4753D-02, -.4753D-02, .4699D+00, - + .1792D-02, -.5479D-02, -.1681D-02, - + .2790D-01, -.1845D-01, -.4694D-02, -.4694D-02, .4956D+00, - + .1874D-02, -.5210D-02, -.1520D-02 / - DATA ((PARTON(I,N,8),I=1,8),N=1,8)/ - + .1155D-01, -.1205D-01, -.7889D-03, -.7889D-03, .8099D-02, - + .1808D-01, -.3370D-01, -.7149D-02, - + .1250D-01, -.1249D-01, -.1028D-02, -.1028D-02, .1400D-01, - + .1593D-01, -.3148D-01, -.7102D-02, - + .1324D-01, -.1282D-01, -.1229D-02, -.1229D-02, .1975D-01, - + .1425D-01, -.2967D-01, -.7032D-02, - + .1410D-01, -.1321D-01, -.1478D-02, -.1478D-02, .2777D-01, - + .1242D-01, -.2759D-01, -.6910D-02, - + .1516D-01, -.1368D-01, -.1796D-02, -.1796D-02, .3942D-01, - + .1045D-01, -.2519D-01, -.6712D-02, - + .1593D-01, -.1401D-01, -.2036D-02, -.2036D-02, .4929D-01, - + .9208D-02, -.2357D-01, -.6536D-02, - + .1655D-01, -.1428D-01, -.2227D-02, -.2227D-02, .5779D-01, - + .8354D-02, -.2239D-01, -.6385D-02, - + .1747D-01, -.1467D-01, -.2515D-02, -.2515D-02, .7184D-01, - + .7250D-02, -.2074D-01, -.6138D-02 / - DATA ((PARTON(I,N,8),I=1,8),N=9,16)/ - + .1815D-01, -.1496D-01, -.2725D-02, -.2725D-02, .8308D-01, - + .6561D-02, -.1962D-01, -.5943D-02, - + .1953D-01, -.1553D-01, -.3138D-02, -.3138D-02, .1079D+00, - + .5471D-02, -.1766D-01, -.5547D-02, - + .2083D-01, -.1606D-01, -.3504D-02, -.3504D-02, .1337D+00, - + .4730D-02, -.1609D-01, -.5168D-02, - + .2199D-01, -.1653D-01, -.3807D-02, -.3807D-02, .1587D+00, - + .4247D-02, -.1485D-01, -.4827D-02, - + .2300D-01, -.1693D-01, -.4046D-02, -.4046D-02, .1815D+00, - + .3937D-02, -.1390D-01, -.4533D-02, - + .2420D-01, -.1740D-01, -.4299D-02, -.4299D-02, .2098D+00, - + .3671D-02, -.1286D-01, -.4181D-02, - + .2526D-01, -.1782D-01, -.4493D-02, -.4493D-02, .2361D+00, - + .3518D-02, -.1204D-01, -.3877D-02, - + .2628D-01, -.1821D-01, -.4649D-02, -.4649D-02, .2622D+00, - + .3429D-02, -.1132D-01, -.3590D-02 / - DATA ((PARTON(I,N,8),I=1,8),N=17,25)/ - + .2721D-01, -.1857D-01, -.4765D-02, -.4765D-02, .2866D+00, - + .3387D-02, -.1070D-01, -.3330D-02, - + .2839D-01, -.1902D-01, -.4874D-02, -.4874D-02, .3183D+00, - + .3380D-02, -.9984D-02, -.3005D-02, - + .2950D-01, -.1943D-01, -.4936D-02, -.4936D-02, .3485D+00, - + .3412D-02, -.9356D-02, -.2704D-02, - + .3059D-01, -.1984D-01, -.4959D-02, -.4959D-02, .3790D+00, - + .3474D-02, -.8772D-02, -.2409D-02, - + .3156D-01, -.2020D-01, -.4946D-02, -.4946D-02, .4061D+00, - + .3550D-02, -.8284D-02, -.2153D-02, - + .3256D-01, -.2057D-01, -.4900D-02, -.4900D-02, .4346D+00, - + .3646D-02, -.7801D-02, -.1888D-02, - + .3351D-01, -.2091D-01, -.4826D-02, -.4826D-02, .4615D+00, - + .3751D-02, -.7364D-02, -.1642D-02, - + .3445D-01, -.2125D-01, -.4722D-02, -.4722D-02, .4885D+00, - + .3867D-02, -.6946D-02, -.1398D-02, - + .3528D-01, -.2155D-01, -.4606D-02, -.4606D-02, .5125D+00, - + .3978D-02, -.6588D-02, -.1184D-02 / - DATA ((PARTON(I,N,9),I=1,8),N=1,8)/ - + .1508D-01, -.1403D-01, -.1121D-02, -.1121D-02, .1089D-01, - + .2187D-01, -.3651D-01, -.6619D-02, - + .1627D-01, -.1455D-01, -.1419D-02, -.1419D-02, .1830D-01, - + .1971D-01, -.3489D-01, -.6856D-02, - + .1720D-01, -.1495D-01, -.1663D-02, -.1663D-02, .2536D-01, - + .1801D-01, -.3344D-01, -.6973D-02, - + .1828D-01, -.1540D-01, -.1957D-02, -.1957D-02, .3499D-01, - + .1611D-01, -.3167D-01, -.7028D-02, - + .1959D-01, -.1595D-01, -.2323D-02, -.2323D-02, .4870D-01, - + .1404D-01, -.2949D-01, -.6985D-02, - + .2056D-01, -.1634D-01, -.2593D-02, -.2593D-02, .6010D-01, - + .1271D-01, -.2793D-01, -.6887D-02, - + .2131D-01, -.1665D-01, -.2803D-02, -.2803D-02, .6979D-01, - + .1178D-01, -.2676D-01, -.6777D-02, - + .2246D-01, -.1711D-01, -.3114D-02, -.3114D-02, .8560D-01, - + .1057D-01, -.2507D-01, -.6567D-02 / - DATA ((PARTON(I,N,9),I=1,8),N=9,16)/ - + .2330D-01, -.1744D-01, -.3336D-02, -.3336D-02, .9808D-01, - + .9800D-02, -.2389D-01, -.6380D-02, - + .2499D-01, -.1810D-01, -.3760D-02, -.3760D-02, .1253D+00, - + .8579D-02, -.2175D-01, -.5965D-02, - + .2658D-01, -.1872D-01, -.4120D-02, -.4120D-02, .1529D+00, - + .7745D-02, -.1996D-01, -.5537D-02, - + .2800D-01, -.1926D-01, -.4406D-02, -.4406D-02, .1792D+00, - + .7200D-02, -.1853D-01, -.5134D-02, - + .2922D-01, -.1972D-01, -.4622D-02, -.4622D-02, .2029D+00, - + .6854D-02, -.1739D-01, -.4776D-02, - + .3066D-01, -.2026D-01, -.4838D-02, -.4838D-02, .2320D+00, - + .6559D-02, -.1614D-01, -.4341D-02, - + .3195D-01, -.2073D-01, -.4991D-02, -.4991D-02, .2586D+00, - + .6397D-02, -.1513D-01, -.3958D-02, - + .3317D-01, -.2118D-01, -.5103D-02, -.5103D-02, .2847D+00, - + .6310D-02, -.1424D-01, -.3592D-02 / - DATA ((PARTON(I,N,9),I=1,8),N=17,25)/ - + .3429D-01, -.2159D-01, -.5173D-02, -.5173D-02, .3089D+00, - + .6278D-02, -.1347D-01, -.3258D-02, - + .3570D-01, -.2209D-01, -.5219D-02, -.5219D-02, .3399D+00, - + .6292D-02, -.1256D-01, -.2839D-02, - + .3701D-01, -.2256D-01, -.5217D-02, -.5217D-02, .3691D+00, - + .6352D-02, -.1177D-01, -.2449D-02, - + .3831D-01, -.2302D-01, -.5173D-02, -.5173D-02, .3982D+00, - + .6448D-02, -.1102D-01, -.2066D-02, - + .3945D-01, -.2342D-01, -.5100D-02, -.5100D-02, .4239D+00, - + .6557D-02, -.1040D-01, -.1732D-02, - + .4064D-01, -.2384D-01, -.4990D-02, -.4990D-02, .4505D+00, - + .6691D-02, -.9778D-02, -.1389D-02, - + .4175D-01, -.2422D-01, -.4855D-02, -.4855D-02, .4755D+00, - + .6835D-02, -.9217D-02, -.1068D-02, - + .4286D-01, -.2460D-01, -.4690D-02, -.4690D-02, .5003D+00, - + .6991D-02, -.8679D-02, -.7518D-03, - + .4384D-01, -.2494D-01, -.4519D-02, -.4519D-02, .5221D+00, - + .7140D-02, -.8219D-02, -.4744D-03 / - DATA ((PARTON(I,N,10),I=1,8),N=1,8)/ - + .1954D-01, -.1633D-01, -.1585D-02, -.1585D-02, .1444D-01, - + .2595D-01, -.3977D-01, -.6133D-02, - + .2103D-01, -.1694D-01, -.1949D-02, -.1949D-02, .2364D-01, - + .2389D-01, -.3873D-01, -.6603D-02, - + .2218D-01, -.1741D-01, -.2239D-02, -.2239D-02, .3217D-01, - + .2224D-01, -.3765D-01, -.6869D-02, - + .2351D-01, -.1794D-01, -.2581D-02, -.2581D-02, .4359D-01, - + .2038D-01, -.3620D-01, -.7062D-02, - + .2514D-01, -.1857D-01, -.2994D-02, -.2994D-02, .5947D-01, - + .1832D-01, -.3427D-01, -.7137D-02, - + .2632D-01, -.1903D-01, -.3291D-02, -.3291D-02, .7244D-01, - + .1698D-01, -.3281D-01, -.7092D-02, - + .2725D-01, -.1939D-01, -.3517D-02, -.3517D-02, .8332D-01, - + .1604D-01, -.3167D-01, -.7007D-02, - + .2865D-01, -.1992D-01, -.3845D-02, -.3845D-02, .1008D+00, - + .1480D-01, -.2997D-01, -.6809D-02 / - DATA ((PARTON(I,N,10),I=1,8),N=9,16)/ - + .2967D-01, -.2030D-01, -.4073D-02, -.4073D-02, .1145D+00, - + .1401D-01, -.2874D-01, -.6616D-02, - + .3173D-01, -.2107D-01, -.4494D-02, -.4494D-02, .1437D+00, - + .1275D-01, -.2644D-01, -.6152D-02, - + .3364D-01, -.2177D-01, -.4834D-02, -.4834D-02, .1728D+00, - + .1190D-01, -.2446D-01, -.5648D-02, - + .3535D-01, -.2239D-01, -.5091D-02, -.5091D-02, .2000D+00, - + .1134D-01, -.2281D-01, -.5158D-02, - + .3681D-01, -.2291D-01, -.5272D-02, -.5272D-02, .2241D+00, - + .1100D-01, -.2149D-01, -.4715D-02, - + .3853D-01, -.2353D-01, -.5438D-02, -.5438D-02, .2533D+00, - + .1072D-01, -.2000D-01, -.4172D-02, - + .4006D-01, -.2406D-01, -.5540D-02, -.5540D-02, .2797D+00, - + .1058D-01, -.1879D-01, -.3689D-02, - + .4151D-01, -.2457D-01, -.5598D-02, -.5598D-02, .3052D+00, - + .1052D-01, -.1771D-01, -.3222D-02 / - DATA ((PARTON(I,N,10),I=1,8),N=17,25)/ - + .4283D-01, -.2502D-01, -.5615D-02, -.5615D-02, .3286D+00, - + .1052D-01, -.1677D-01, -.2796D-02, - + .4449D-01, -.2559D-01, -.5590D-02, -.5590D-02, .3581D+00, - + .1059D-01, -.1565D-01, -.2258D-02, - + .4603D-01, -.2612D-01, -.5520D-02, -.5520D-02, .3857D+00, - + .1070D-01, -.1466D-01, -.1758D-02, - + .4755D-01, -.2663D-01, -.5407D-02, -.5407D-02, .4128D+00, - + .1085D-01, -.1373D-01, -.1267D-02, - + .4889D-01, -.2707D-01, -.5272D-02, -.5272D-02, .4364D+00, - + .1101D-01, -.1295D-01, -.8385D-03, - + .5026D-01, -.2753D-01, -.5099D-02, -.5099D-02, .4606D+00, - + .1120D-01, -.1217D-01, -.3979D-03, - + .5155D-01, -.2795D-01, -.4904D-02, -.4904D-02, .4831D+00, - + .1140D-01, -.1147D-01, .1293D-04, - + .5283D-01, -.2837D-01, -.4681D-02, -.4681D-02, .5051D+00, - + .1161D-01, -.1079D-01, .4178D-03, - + .5396D-01, -.2874D-01, -.4461D-02, -.4461D-02, .5244D+00, - + .1181D-01, -.1021D-01, .7721D-03 / - DATA ((PARTON(I,N,11),I=1,8),N=1,8)/ - + .2582D-01, -.1932D-01, -.2305D-02, -.2305D-02, .1949D-01, - + .3079D-01, -.4413D-01, -.5753D-02, - + .2770D-01, -.2004D-01, -.2750D-02, -.2750D-02, .3098D-01, - + .2894D-01, -.4367D-01, -.6402D-02, - + .2914D-01, -.2059D-01, -.3094D-02, -.3094D-02, .4135D-01, - + .2745D-01, -.4297D-01, -.6770D-02, - + .3082D-01, -.2122D-01, -.3487D-02, -.3487D-02, .5489D-01, - + .2578D-01, -.4186D-01, -.7047D-02, - + .3283D-01, -.2197D-01, -.3946D-02, -.3946D-02, .7327D-01, - + .2391D-01, -.4022D-01, -.7173D-02, - + .3430D-01, -.2251D-01, -.4265D-02, -.4265D-02, .8795D-01, - + .2269D-01, -.3888D-01, -.7137D-02, - + .3545D-01, -.2292D-01, -.4502D-02, -.4502D-02, .1001D+00, - + .2182D-01, -.3778D-01, -.7042D-02, - + .3717D-01, -.2354D-01, -.4836D-02, -.4836D-02, .1193D+00, - + .2069D-01, -.3610D-01, -.6807D-02 / - DATA ((PARTON(I,N,11),I=1,8),N=9,16)/ - + .3842D-01, -.2399D-01, -.5061D-02, -.5061D-02, .1340D+00, - + .1997D-01, -.3483D-01, -.6571D-02, - + .4093D-01, -.2487D-01, -.5458D-02, -.5458D-02, .1649D+00, - + .1883D-01, -.3237D-01, -.5990D-02, - + .4325D-01, -.2568D-01, -.5756D-02, -.5756D-02, .1949D+00, - + .1808D-01, -.3017D-01, -.5346D-02, - + .4531D-01, -.2639D-01, -.5962D-02, -.5962D-02, .2225D+00, - + .1762D-01, -.2830D-01, -.4714D-02, - + .4707D-01, -.2699D-01, -.6091D-02, -.6091D-02, .2465D+00, - + .1736D-01, -.2676D-01, -.4141D-02, - + .4914D-01, -.2768D-01, -.6187D-02, -.6187D-02, .2751D+00, - + .1716D-01, -.2501D-01, -.3438D-02, - + .5095D-01, -.2829D-01, -.6220D-02, -.6220D-02, .3004D+00, - + .1712D-01, -.2356D-01, -.2807D-02, - + .5267D-01, -.2886D-01, -.6209D-02, -.6209D-02, .3245D+00, - + .1715D-01, -.2224D-01, -.2198D-02 / - DATA ((PARTON(I,N,11),I=1,8),N=17,25)/ - + .5424D-01, -.2937D-01, -.6161D-02, -.6161D-02, .3463D+00, - + .1724D-01, -.2110D-01, -.1640D-02, - + .5619D-01, -.3000D-01, -.6052D-02, -.6052D-02, .3735D+00, - + .1741D-01, -.1972D-01, -.9377D-03, - + .5800D-01, -.3058D-01, -.5903D-02, -.5903D-02, .3984D+00, - + .1763D-01, -.1850D-01, -.2847D-03, - + .5977D-01, -.3115D-01, -.5712D-02, -.5712D-02, .4225D+00, - + .1788D-01, -.1734D-01, .3557D-03, - + .6132D-01, -.3164D-01, -.5511D-02, -.5511D-02, .4432D+00, - + .1814D-01, -.1637D-01, .9131D-03, - + .6291D-01, -.3214D-01, -.5270D-02, -.5270D-02, .4641D+00, - + .1843D-01, -.1540D-01, .1485D-02, - + .6440D-01, -.3260D-01, -.5015D-02, -.5015D-02, .4833D+00, - + .1872D-01, -.1451D-01, .2018D-02, - + .6588D-01, -.3305D-01, -.4735D-02, -.4735D-02, .5019D+00, - + .1902D-01, -.1367D-01, .2541D-02, - + .6717D-01, -.3345D-01, -.4467D-02, -.4467D-02, .5178D+00, - + .1930D-01, -.1294D-01, .2998D-02 / - DATA ((PARTON(I,N,12),I=1,8),N=1,8)/ - + .3341D-01, -.2268D-01, -.3262D-02, -.3262D-02, .2566D-01, - + .3568D-01, -.4926D-01, -.5665D-02, - + .3572D-01, -.2353D-01, -.3785D-02, -.3785D-02, .3965D-01, - + .3416D-01, -.4927D-01, -.6382D-02, - + .3749D-01, -.2417D-01, -.4176D-02, -.4176D-02, .5193D-01, - + .3295D-01, -.4887D-01, -.6766D-02, - + .3953D-01, -.2490D-01, -.4610D-02, -.4610D-02, .6759D-01, - + .3159D-01, -.4804D-01, -.7027D-02, - + .4198D-01, -.2577D-01, -.5099D-02, -.5099D-02, .8831D-01, - + .3010D-01, -.4662D-01, -.7093D-02, - + .4376D-01, -.2639D-01, -.5426D-02, -.5426D-02, .1045D+00, - + .2913D-01, -.4538D-01, -.6990D-02, - + .4514D-01, -.2687D-01, -.5663D-02, -.5663D-02, .1177D+00, - + .2846D-01, -.4432D-01, -.6831D-02, - + .4721D-01, -.2757D-01, -.5985D-02, -.5985D-02, .1382D+00, - + .2759D-01, -.4264D-01, -.6483D-02 / - DATA ((PARTON(I,N,12),I=1,8),N=9,16)/ - + .4871D-01, -.2808D-01, -.6194D-02, -.6194D-02, .1536D+00, - + .2704D-01, -.4134D-01, -.6156D-02, - + .5170D-01, -.2909D-01, -.6541D-02, -.6541D-02, .1854D+00, - + .2623D-01, -.3874D-01, -.5367D-02, - + .5445D-01, -.3000D-01, -.6776D-02, -.6776D-02, .2156D+00, - + .2576D-01, -.3634D-01, -.4511D-02, - + .5687D-01, -.3079D-01, -.6913D-02, -.6913D-02, .2427D+00, - + .2553D-01, -.3425D-01, -.3681D-02, - + .5893D-01, -.3146D-01, -.6977D-02, -.6977D-02, .2659D+00, - + .2546D-01, -.3250D-01, -.2933D-02, - + .6134D-01, -.3223D-01, -.6991D-02, -.6991D-02, .2930D+00, - + .2547D-01, -.3049D-01, -.2023D-02, - + .6344D-01, -.3290D-01, -.6949D-02, -.6949D-02, .3165D+00, - + .2561D-01, -.2881D-01, -.1206D-02, - + .6544D-01, -.3352D-01, -.6863D-02, -.6863D-02, .3386D+00, - + .2581D-01, -.2727D-01, -.4200D-03 / - DATA ((PARTON(I,N,12),I=1,8),N=17,25)/ - + .6723D-01, -.3408D-01, -.6748D-02, -.6748D-02, .3583D+00, - + .2604D-01, -.2592D-01, .2970D-03, - + .6947D-01, -.3477D-01, -.6556D-02, -.6556D-02, .3823D+00, - + .2640D-01, -.2429D-01, .1198D-02, - + .7154D-01, -.3539D-01, -.6331D-02, -.6331D-02, .4040D+00, - + .2679D-01, -.2283D-01, .2032D-02, - + .7355D-01, -.3600D-01, -.6069D-02, -.6069D-02, .4246D+00, - + .2721D-01, -.2145D-01, .2847D-02, - + .7530D-01, -.3652D-01, -.5809D-02, -.5809D-02, .4420D+00, - + .2760D-01, -.2028D-01, .3555D-02, - + .7710D-01, -.3705D-01, -.5511D-02, -.5511D-02, .4594D+00, - + .2803D-01, -.1912D-01, .4279D-02, - + .7877D-01, -.3754D-01, -.5206D-02, -.5206D-02, .4750D+00, - + .2845D-01, -.1806D-01, .4951D-02, - + .8041D-01, -.3802D-01, -.4880D-02, -.4880D-02, .4899D+00, - + .2888D-01, -.1704D-01, .5610D-02, - + .8185D-01, -.3843D-01, -.4576D-02, -.4576D-02, .5025D+00, - + .2927D-01, -.1617D-01, .6183D-02 / - DATA ((PARTON(I,N,13),I=1,8),N=1,8)/ - + .4254D-01, -.2651D-01, -.4510D-02, -.4510D-02, .3321D-01, - + .4069D-01, -.5537D-01, -.5936D-02, - + .4533D-01, -.2749D-01, -.5100D-02, -.5100D-02, .4989D-01, - + .3963D-01, -.5572D-01, -.6594D-02, - + .4746D-01, -.2823D-01, -.5526D-02, -.5526D-02, .6412D-01, - + .3881D-01, -.5552D-01, -.6894D-02, - + .4991D-01, -.2907D-01, -.5983D-02, -.5983D-02, .8183D-01, - + .3793D-01, -.5487D-01, -.7024D-02, - + .5282D-01, -.3006D-01, -.6477D-02, -.6477D-02, .1047D+00, - + .3699D-01, -.5359D-01, -.6899D-02, - + .5493D-01, -.3076D-01, -.6794D-02, -.6794D-02, .1221D+00, - + .3642D-01, -.5240D-01, -.6639D-02, - + .5656D-01, -.3130D-01, -.7016D-02, -.7016D-02, .1360D+00, - + .3604D-01, -.5135D-01, -.6351D-02, - + .5899D-01, -.3210D-01, -.7304D-02, -.7304D-02, .1574D+00, - + .3560D-01, -.4964D-01, -.5799D-02 / - DATA ((PARTON(I,N,13),I=1,8),N=9,16)/ - + .6075D-01, -.3267D-01, -.7481D-02, -.7481D-02, .1732D+00, - + .3535D-01, -.4829D-01, -.5318D-02, - + .6424D-01, -.3379D-01, -.7748D-02, -.7748D-02, .2050D+00, - + .3509D-01, -.4553D-01, -.4211D-02, - + .6742D-01, -.3479D-01, -.7894D-02, -.7894D-02, .2345D+00, - + .3509D-01, -.4293D-01, -.3053D-02, - + .7021D-01, -.3566D-01, -.7945D-02, -.7945D-02, .2603D+00, - + .3525D-01, -.4063D-01, -.1955D-02, - + .7258D-01, -.3639D-01, -.7932D-02, -.7932D-02, .2819D+00, - + .3548D-01, -.3869D-01, -.9780D-03, - + .7532D-01, -.3722D-01, -.7853D-02, -.7853D-02, .3067D+00, - + .3584D-01, -.3644D-01, .1961D-03, - + .7771D-01, -.3794D-01, -.7730D-02, -.7730D-02, .3278D+00, - + .3626D-01, -.3453D-01, .1243D-02, - + .7996D-01, -.3860D-01, -.7567D-02, -.7567D-02, .3473D+00, - + .3673D-01, -.3278D-01, .2245D-02 / - DATA ((PARTON(I,N,13),I=1,8),N=17,25)/ - + .8197D-01, -.3919D-01, -.7385D-02, -.7385D-02, .3643D+00, - + .3719D-01, -.3123D-01, .3155D-02, - + .8448D-01, -.3992D-01, -.7111D-02, -.7111D-02, .3847D+00, - + .3783D-01, -.2935D-01, .4291D-02, - + .8677D-01, -.4058D-01, -.6816D-02, -.6816D-02, .4027D+00, - + .3846D-01, -.2767D-01, .5338D-02, - + .8900D-01, -.4121D-01, -.6490D-02, -.6490D-02, .4194D+00, - + .3911D-01, -.2608D-01, .6357D-02, - + .9093D-01, -.4175D-01, -.6179D-02, -.6179D-02, .4333D+00, - + .3970D-01, -.2473D-01, .7238D-02, - + .9290D-01, -.4229D-01, -.5834D-02, -.5834D-02, .4469D+00, - + .4033D-01, -.2338D-01, .8136D-02, - + .9473D-01, -.4279D-01, -.5490D-02, -.5490D-02, .4589D+00, - + .4093D-01, -.2215D-01, .8966D-02, - + .9652D-01, -.4327D-01, -.5131D-02, -.5131D-02, .4701D+00, - + .4153D-01, -.2097D-01, .9777D-02, - + .9808D-01, -.4369D-01, -.4802D-02, -.4802D-02, .4793D+00, - + .4207D-01, -.1996D-01, .1048D-01 / - DATA ((PARTON(I,N,14),I=1,8),N=1,8)/ - + .5584D-01, -.3187D-01, -.6458D-02, -.6458D-02, .4457D-01, - + .4704D-01, -.6423D-01, -.6762D-02, - + .5927D-01, -.3302D-01, -.7094D-02, -.7094D-02, .6464D-01, - + .4675D-01, -.6476D-01, -.7140D-02, - + .6187D-01, -.3388D-01, -.7531D-02, -.7531D-02, .8115D-01, - + .4657D-01, -.6464D-01, -.7179D-02, - + .6484D-01, -.3484D-01, -.7978D-02, -.7978D-02, .1011D+00, - + .4645D-01, -.6404D-01, -.6976D-02, - + .6836D-01, -.3597D-01, -.8432D-02, -.8432D-02, .1259D+00, - + .4643D-01, -.6275D-01, -.6421D-02, - + .7088D-01, -.3677D-01, -.8703D-02, -.8703D-02, .1443D+00, - + .4652D-01, -.6152D-01, -.5838D-02, - + .7283D-01, -.3738D-01, -.8880D-02, -.8880D-02, .1588D+00, - + .4665D-01, -.6042D-01, -.5295D-02, - + .7571D-01, -.3827D-01, -.9091D-02, -.9091D-02, .1803D+00, - + .4692D-01, -.5860D-01, -.4361D-02 / - DATA ((PARTON(I,N,14),I=1,8),N=9,16)/ - + .7778D-01, -.3891D-01, -.9204D-02, -.9204D-02, .1960D+00, - + .4718D-01, -.5716D-01, -.3604D-02, - + .8186D-01, -.4014D-01, -.9332D-02, -.9332D-02, .2266D+00, - + .4787D-01, -.5416D-01, -.1951D-02, - + .8556D-01, -.4123D-01, -.9340D-02, -.9340D-02, .2539D+00, - + .4869D-01, -.5130D-01, -.3011D-03, - + .8877D-01, -.4217D-01, -.9265D-02, -.9265D-02, .2771D+00, - + .4951D-01, -.4875D-01, .1221D-02, - + .9148D-01, -.4294D-01, -.9144D-02, -.9144D-02, .2960D+00, - + .5029D-01, -.4658D-01, .2548D-02, - + .9459D-01, -.4382D-01, -.8942D-02, -.8942D-02, .3171D+00, - + .5124D-01, -.4405D-01, .4119D-02, - + .9729D-01, -.4456D-01, -.8715D-02, -.8715D-02, .3345D+00, - + .5216D-01, -.4190D-01, .5505D-02, - + .9980D-01, -.4525D-01, -.8460D-02, -.8460D-02, .3501D+00, - + .5307D-01, -.3991D-01, .6819D-02 / - DATA ((PARTON(I,N,14),I=1,8),N=17,25)/ - + .1021D+00, -.4586D-01, -.8198D-02, -.8198D-02, .3634D+00, - + .5392D-01, -.3815D-01, .8003D-02, - + .1048D+00, -.4659D-01, -.7834D-02, -.7834D-02, .3789D+00, - + .5501D-01, -.3601D-01, .9470D-02, - + .1073D+00, -.4725D-01, -.7464D-02, -.7464D-02, .3921D+00, - + .5605D-01, -.3409D-01, .1081D-01, - + .1098D+00, -.4788D-01, -.7074D-02, -.7074D-02, .4040D+00, - + .5709D-01, -.3227D-01, .1211D-01, - + .1119D+00, -.4840D-01, -.6714D-02, -.6714D-02, .4135D+00, - + .5800D-01, -.3073D-01, .1323D-01, - + .1140D+00, -.4893D-01, -.6327D-02, -.6327D-02, .4225D+00, - + .5894D-01, -.2918D-01, .1436D-01, - + .1159D+00, -.4941D-01, -.5951D-02, -.5951D-02, .4302D+00, - + .5983D-01, -.2778D-01, .1541D-01, - + .1178D+00, -.4987D-01, -.5568D-02, -.5568D-02, .4371D+00, - + .6070D-01, -.2643D-01, .1642D-01, - + .1195D+00, -.5026D-01, -.5224D-02, -.5224D-02, .4425D+00, - + .6147D-01, -.2528D-01, .1730D-01 / - DATA ((PARTON(I,N,15),I=1,8),N=1,8)/ - + .7205D-01, -.3821D-01, -.8925D-02, -.8925D-02, .5920D-01, - + .5420D-01, -.7486D-01, -.7985D-02, - + .7617D-01, -.3952D-01, -.9540D-02, -.9540D-02, .8261D-01, - + .5497D-01, -.7525D-01, -.7796D-02, - + .7927D-01, -.4049D-01, -.9936D-02, -.9936D-02, .1011D+00, - + .5564D-01, -.7499D-01, -.7366D-02, - + .8279D-01, -.4157D-01, -.1031D-01, -.1031D-01, .1228D+00, - + .5651D-01, -.7420D-01, -.6606D-02, - + .8693D-01, -.4282D-01, -.1066D-01, -.1066D-01, .1488D+00, - + .5769D-01, -.7268D-01, -.5378D-02, - + .8987D-01, -.4369D-01, -.1084D-01, -.1084D-01, .1674D+00, - + .5862D-01, -.7126D-01, -.4312D-02, - + .9213D-01, -.4435D-01, -.1094D-01, -.1094D-01, .1817D+00, - + .5938D-01, -.7002D-01, -.3400D-02, - + .9545D-01, -.4531D-01, -.1103D-01, -.1103D-01, .2025D+00, - + .6059D-01, -.6798D-01, -.1929D-02 / - DATA ((PARTON(I,N,15),I=1,8),N=9,16)/ - + .9783D-01, -.4599D-01, -.1105D-01, -.1105D-01, .2171D+00, - + .6149D-01, -.6638D-01, -.7933D-03, - + .1025D+00, -.4728D-01, -.1098D-01, -.1098D-01, .2450D+00, - + .6341D-01, -.6306D-01, .1584D-02, - + .1066D+00, -.4841D-01, -.1082D-01, -.1082D-01, .2688D+00, - + .6527D-01, -.5990D-01, .3864D-02, - + .1102D+00, -.4936D-01, -.1060D-01, -.1060D-01, .2882D+00, - + .6696D-01, -.5708D-01, .5913D-02, - + .1132D+00, -.5014D-01, -.1036D-01, -.1036D-01, .3035D+00, - + .6843D-01, -.5469D-01, .7668D-02, - + .1166D+00, -.5101D-01, -.1003D-01, -.1003D-01, .3199D+00, - + .7014D-01, -.5191D-01, .9713D-02, - + .1195D+00, -.5174D-01, -.9698D-02, -.9698D-02, .3330D+00, - + .7169D-01, -.4955D-01, .1150D-01, - + .1223D+00, -.5240D-01, -.9354D-02, -.9354D-02, .3442D+00, - + .7317D-01, -.4735D-01, .1317D-01 / - DATA ((PARTON(I,N,15),I=1,8),N=17,25)/ - + .1247D+00, -.5298D-01, -.9020D-02, -.9020D-02, .3535D+00, - + .7451D-01, -.4542D-01, .1467D-01, - + .1276D+00, -.5367D-01, -.8578D-02, -.8578D-02, .3637D+00, - + .7619D-01, -.4307D-01, .1651D-01, - + .1302D+00, -.5427D-01, -.8147D-02, -.8147D-02, .3721D+00, - + .7774D-01, -.4096D-01, .1818D-01, - + .1328D+00, -.5484D-01, -.7708D-02, -.7708D-02, .3791D+00, - + .7925D-01, -.3896D-01, .1979D-01, - + .1349D+00, -.5531D-01, -.7316D-02, -.7316D-02, .3844D+00, - + .8056D-01, -.3727D-01, .2117D-01, - + .1371D+00, -.5577D-01, -.6903D-02, -.6903D-02, .3891D+00, - + .8189D-01, -.3558D-01, .2256D-01, - + .1391D+00, -.5618D-01, -.6511D-02, -.6511D-02, .3927D+00, - + .8313D-01, -.3404D-01, .2383D-01, - + .1410D+00, -.5657D-01, -.6120D-02, -.6120D-02, .3957D+00, - + .8435D-01, -.3257D-01, .2507D-01, - + .1426D+00, -.5690D-01, -.5774D-02, -.5774D-02, .3978D+00, - + .8541D-01, -.3131D-01, .2614D-01 / - DATA ((PARTON(I,N,16),I=1,8),N=1,8)/ - + .9237D-01, -.4600D-01, -.1196D-01, -.1196D-01, .7913D-01, - + .6344D-01, -.8754D-01, -.9144D-02, - + .9724D-01, -.4744D-01, -.1245D-01, -.1245D-01, .1055D+00, - + .6566D-01, -.8738D-01, -.7995D-02, - + .1009D+00, -.4849D-01, -.1273D-01, -.1273D-01, .1254D+00, - + .6746D-01, -.8671D-01, -.6827D-02, - + .1050D+00, -.4965D-01, -.1296D-01, -.1296D-01, .1479D+00, - + .6961D-01, -.8545D-01, -.5232D-02, - + .1097D+00, -.5096D-01, -.1310D-01, -.1310D-01, .1737D+00, - + .7228D-01, -.8341D-01, -.3041D-02, - + .1131D+00, -.5186D-01, -.1313D-01, -.1313D-01, .1915D+00, - + .7425D-01, -.8164D-01, -.1309D-02, - + .1156D+00, -.5254D-01, -.1312D-01, -.1312D-01, .2047D+00, - + .7580D-01, -.8014D-01, .9907D-04, - + .1194D+00, -.5351D-01, -.1303D-01, -.1303D-01, .2234D+00, - + .7812D-01, -.7774D-01, .2277D-02 / - DATA ((PARTON(I,N,16),I=1,8),N=9,16)/ - + .1220D+00, -.5419D-01, -.1292D-01, -.1292D-01, .2362D+00, - + .7981D-01, -.7590D-01, .3901D-02, - + .1271D+00, -.5545D-01, -.1263D-01, -.1263D-01, .2593D+00, - + .8319D-01, -.7214D-01, .7187D-02, - + .1317D+00, -.5653D-01, -.1226D-01, -.1226D-01, .2781D+00, - + .8629D-01, -.6862D-01, .1024D-01, - + .1355D+00, -.5742D-01, -.1187D-01, -.1187D-01, .2925D+00, - + .8900D-01, -.6552D-01, .1291D-01, - + .1387D+00, -.5813D-01, -.1151D-01, -.1151D-01, .3033D+00, - + .9128D-01, -.6291D-01, .1517D-01, - + .1423D+00, -.5891D-01, -.1105D-01, -.1105D-01, .3142D+00, - + .9390D-01, -.5990D-01, .1776D-01, - + .1453D+00, -.5955D-01, -.1062D-01, -.1062D-01, .3224D+00, - + .9618D-01, -.5735D-01, .1999D-01, - + .1481D+00, -.6011D-01, -.1020D-01, -.1020D-01, .3289D+00, - + .9832D-01, -.5499D-01, .2207D-01 / - DATA ((PARTON(I,N,16),I=1,8),N=17,25)/ - + .1505D+00, -.6059D-01, -.9800D-02, -.9800D-02, .3338D+00, - + .1002D+00, -.5291D-01, .2391D-01, - + .1534D+00, -.6114D-01, -.9294D-02, -.9294D-02, .3387D+00, - + .1026D+00, -.5040D-01, .2616D-01, - + .1561D+00, -.6162D-01, -.8819D-02, -.8819D-02, .3422D+00, - + .1047D+00, -.4815D-01, .2819D-01, - + .1585D+00, -.6204D-01, -.8350D-02, -.8350D-02, .3446D+00, - + .1068D+00, -.4602D-01, .3014D-01, - + .1606D+00, -.6239D-01, -.7940D-02, -.7940D-02, .3459D+00, - + .1086D+00, -.4423D-01, .3179D-01, - + .1627D+00, -.6271D-01, -.7518D-02, -.7518D-02, .3466D+00, - + .1103D+00, -.4244D-01, .3346D-01, - + .1645D+00, -.6299D-01, -.7125D-02, -.7125D-02, .3467D+00, - + .1120D+00, -.4082D-01, .3498D-01, - + .1663D+00, -.6325D-01, -.6740D-02, -.6740D-02, .3463D+00, - + .1136D+00, -.3926D-01, .3645D-01, - + .1678D+00, -.6345D-01, -.6404D-02, -.6404D-02, .3456D+00, - + .1150D+00, -.3794D-01, .3772D-01 / - DATA ((PARTON(I,N,17),I=1,8),N=1,8)/ - + .1245D+00, -.5791D-01, -.1619D-01, -.1619D-01, .1142D+00, - + .8068D-01, -.1050D+00, -.8590D-02, - + .1303D+00, -.5938D-01, -.1633D-01, -.1633D-01, .1421D+00, - + .8530D-01, -.1035D+00, -.5630D-02, - + .1346D+00, -.6043D-01, -.1633D-01, -.1633D-01, .1620D+00, - + .8885D-01, -.1019D+00, -.3153D-02, - + .1393D+00, -.6155D-01, -.1623D-01, -.1623D-01, .1831D+00, - + .9292D-01, -.9963D-01, -.1451D-03, - + .1447D+00, -.6278D-01, -.1601D-01, -.1601D-01, .2057D+00, - + .9774D-01, -.9655D-01, .3604D-02, - + .1484D+00, -.6360D-01, -.1578D-01, -.1578D-01, .2204D+00, - + .1012D+00, -.9412D-01, .6374D-02, - + .1513D+00, -.6420D-01, -.1557D-01, -.1557D-01, .2307D+00, - + .1038D+00, -.9216D-01, .8537D-02, - + .1553D+00, -.6504D-01, -.1522D-01, -.1522D-01, .2445D+00, - + .1076D+00, -.8916D-01, .1176D-01 / - DATA ((PARTON(I,N,17),I=1,8),N=9,16)/ - + .1582D+00, -.6560D-01, -.1493D-01, -.1493D-01, .2533D+00, - + .1104D+00, -.8693D-01, .1409D-01, - + .1636D+00, -.6662D-01, -.1430D-01, -.1430D-01, .2681D+00, - + .1156D+00, -.8251D-01, .1866D-01, - + .1682D+00, -.6743D-01, -.1368D-01, -.1368D-01, .2785D+00, - + .1203D+00, -.7849D-01, .2275D-01, - + .1721D+00, -.6806D-01, -.1310D-01, -.1310D-01, .2854D+00, - + .1243D+00, -.7503D-01, .2626D-01, - + .1752D+00, -.6853D-01, -.1259D-01, -.1259D-01, .2898D+00, - + .1276D+00, -.7217D-01, .2917D-01, - + .1786D+00, -.6901D-01, -.1200D-01, -.1200D-01, .2933D+00, - + .1314D+00, -.6891D-01, .3246D-01, - + .1815D+00, -.6937D-01, -.1147D-01, -.1147D-01, .2951D+00, - + .1346D+00, -.6616D-01, .3526D-01, - + .1840D+00, -.6966D-01, -.1097D-01, -.1097D-01, .2958D+00, - + .1375D+00, -.6365D-01, .3785D-01 / - DATA ((PARTON(I,N,17),I=1,8),N=17,25)/ - + .1862D+00, -.6989D-01, -.1052D-01, -.1052D-01, .2956D+00, - + .1401D+00, -.6145D-01, .4012D-01, - + .1888D+00, -.7011D-01, -.9973D-02, -.9973D-02, .2945D+00, - + .1433D+00, -.5881D-01, .4287D-01, - + .1910D+00, -.7027D-01, -.9473D-02, -.9473D-02, .2926D+00, - + .1462D+00, -.5646D-01, .4534D-01, - + .1930D+00, -.7038D-01, -.8992D-02, -.8992D-02, .2901D+00, - + .1489D+00, -.5425D-01, .4770D-01, - + .1947D+00, -.7044D-01, -.8583D-02, -.8583D-02, .2875D+00, - + .1513D+00, -.5239D-01, .4969D-01, - + .1963D+00, -.7047D-01, -.8170D-02, -.8170D-02, .2844D+00, - + .1536D+00, -.5054D-01, .5169D-01, - + .1977D+00, -.7047D-01, -.7795D-02, -.7795D-02, .2811D+00, - + .1558D+00, -.4888D-01, .5352D-01, - + .1990D+00, -.7044D-01, -.7432D-02, -.7432D-02, .2776D+00, - + .1579D+00, -.4728D-01, .5528D-01, - + .2000D+00, -.7040D-01, -.7122D-02, -.7122D-02, .2744D+00, - + .1597D+00, -.4592D-01, .5680D-01 / - DATA ((PARTON(I,N,18),I=1,8),N=1,8)/ - + .1644D+00, -.7159D-01, -.1993D-01, -.1993D-01, .1611D+00, - + .1083D+00, -.1207D+00, -.2088D-02, - + .1709D+00, -.7281D-01, -.1954D-01, -.1954D-01, .1859D+00, - + .1156D+00, -.1173D+00, .3121D-02, - + .1755D+00, -.7363D-01, -.1916D-01, -.1916D-01, .2021D+00, - + .1210D+00, -.1145D+00, .7133D-02, - + .1805D+00, -.7446D-01, -.1867D-01, -.1867D-01, .2179D+00, - + .1269D+00, -.1110D+00, .1172D-01, - + .1862D+00, -.7531D-01, -.1802D-01, -.1802D-01, .2331D+00, - + .1338D+00, -.1067D+00, .1714D-01, - + .1900D+00, -.7584D-01, -.1751D-01, -.1751D-01, .2419D+00, - + .1385D+00, -.1035D+00, .2097D-01, - + .1928D+00, -.7620D-01, -.1711D-01, -.1711D-01, .2475D+00, - + .1421D+00, -.1011D+00, .2388D-01, - + .1967D+00, -.7666D-01, -.1649D-01, -.1649D-01, .2540D+00, - + .1472D+00, -.9743D-01, .2812D-01 / - DATA ((PARTON(I,N,18),I=1,8),N=9,16)/ - + .1994D+00, -.7694D-01, -.1604D-01, -.1604D-01, .2575D+00, - + .1508D+00, -.9481D-01, .3112D-01, - + .2044D+00, -.7736D-01, -.1513D-01, -.1513D-01, .2618D+00, - + .1576D+00, -.8975D-01, .3686D-01, - + .2085D+00, -.7761D-01, -.1431D-01, -.1431D-01, .2630D+00, - + .1636D+00, -.8528D-01, .4188D-01, - + .2118D+00, -.7772D-01, -.1359D-01, -.1359D-01, .2622D+00, - + .1685D+00, -.8152D-01, .4611D-01, - + .2143D+00, -.7774D-01, -.1299D-01, -.1299D-01, .2604D+00, - + .1726D+00, -.7844D-01, .4957D-01, - + .2170D+00, -.7769D-01, -.1232D-01, -.1232D-01, .2572D+00, - + .1772D+00, -.7501D-01, .5346D-01, - + .2191D+00, -.7758D-01, -.1174D-01, -.1174D-01, .2536D+00, - + .1810D+00, -.7213D-01, .5673D-01, - + .2209D+00, -.7741D-01, -.1121D-01, -.1121D-01, .2496D+00, - + .1846D+00, -.6951D-01, .5973D-01 / - DATA ((PARTON(I,N,18),I=1,8),N=17,25)/ - + .2223D+00, -.7722D-01, -.1075D-01, -.1075D-01, .2455D+00, - + .1877D+00, -.6724D-01, .6236D-01, - + .2239D+00, -.7693D-01, -.1019D-01, -.1019D-01, .2401D+00, - + .1914D+00, -.6452D-01, .6553D-01, - + .2252D+00, -.7660D-01, -.9696D-02, -.9696D-02, .2347D+00, - + .1948D+00, -.6212D-01, .6837D-01, - + .2262D+00, -.7624D-01, -.9230D-02, -.9230D-02, .2291D+00, - + .1981D+00, -.5986D-01, .7106D-01, - + .2270D+00, -.7589D-01, -.8839D-02, -.8839D-02, .2241D+00, - + .2008D+00, -.5797D-01, .7334D-01, - + .2277D+00, -.7550D-01, -.8450D-02, -.8450D-02, .2189D+00, - + .2036D+00, -.5609D-01, .7564D-01, - + .2282D+00, -.7510D-01, -.8101D-02, -.8101D-02, .2139D+00, - + .2061D+00, -.5440D-01, .7773D-01, - + .2286D+00, -.7469D-01, -.7768D-02, -.7768D-02, .2090D+00, - + .2086D+00, -.5278D-01, .7976D-01, - + .2288D+00, -.7430D-01, -.7484D-02, -.7484D-02, .2046D+00, - + .2107D+00, -.5140D-01, .8150D-01 / - DATA ((PARTON(I,N,19),I=1,8),N=1,8)/ - + .2016D+00, -.8269D-01, -.2183D-01, -.2183D-01, .2016D+00, - + .1400D+00, -.1289D+00, .1019D-01, - + .2081D+00, -.8343D-01, -.2099D-01, -.2099D-01, .2192D+00, - + .1490D+00, -.1241D+00, .1711D-01, - + .2126D+00, -.8386D-01, -.2032D-01, -.2032D-01, .2294D+00, - + .1556D+00, -.1203D+00, .2223D-01, - + .2174D+00, -.8424D-01, -.1954D-01, -.1954D-01, .2380D+00, - + .1626D+00, -.1159D+00, .2792D-01, - + .2226D+00, -.8453D-01, -.1859D-01, -.1859D-01, .2447D+00, - + .1706D+00, -.1107D+00, .3443D-01, - + .2260D+00, -.8464D-01, -.1791D-01, -.1791D-01, .2474D+00, - + .1760D+00, -.1070D+00, .3894D-01, - + .2284D+00, -.8467D-01, -.1739D-01, -.1739D-01, .2485D+00, - + .1801D+00, -.1042D+00, .4232D-01, - + .2318D+00, -.8464D-01, -.1662D-01, -.1662D-01, .2485D+00, - + .1858D+00, -.1002D+00, .4717D-01 / - DATA ((PARTON(I,N,19),I=1,8),N=9,16)/ - + .2340D+00, -.8456D-01, -.1608D-01, -.1608D-01, .2476D+00, - + .1898D+00, -.9729D-01, .5056D-01, - + .2379D+00, -.8426D-01, -.1503D-01, -.1503D-01, .2437D+00, - + .1972D+00, -.9183D-01, .5697D-01, - + .2408D+00, -.8384D-01, -.1411D-01, -.1411D-01, .2384D+00, - + .2037D+00, -.8709D-01, .6251D-01, - + .2430D+00, -.8337D-01, -.1335D-01, -.1335D-01, .2326D+00, - + .2090D+00, -.8314D-01, .6713D-01, - + .2446D+00, -.8290D-01, -.1272D-01, -.1272D-01, .2270D+00, - + .2133D+00, -.7995D-01, .7088D-01, - + .2460D+00, -.8227D-01, -.1202D-01, -.1202D-01, .2200D+00, - + .2182D+00, -.7640D-01, .7509D-01, - + .2470D+00, -.8166D-01, -.1144D-01, -.1144D-01, .2136D+00, - + .2223D+00, -.7344D-01, .7862D-01, - + .2477D+00, -.8104D-01, -.1091D-01, -.1091D-01, .2073D+00, - + .2260D+00, -.7076D-01, .8183D-01 / - DATA ((PARTON(I,N,19),I=1,8),N=17,25)/ - + .2482D+00, -.8043D-01, -.1046D-01, -.1046D-01, .2015D+00, - + .2293D+00, -.6844D-01, .8465D-01, - + .2485D+00, -.7963D-01, -.9915D-02, -.9915D-02, .1943D+00, - + .2332D+00, -.6566D-01, .8805D-01, - + .2486D+00, -.7885D-01, -.9437D-02, -.9437D-02, .1876D+00, - + .2368D+00, -.6320D-01, .9109D-01, - + .2485D+00, -.7804D-01, -.8992D-02, -.8992D-02, .1811D+00, - + .2402D+00, -.6090D-01, .9398D-01, - + .2482D+00, -.7731D-01, -.8621D-02, -.8621D-02, .1755D+00, - + .2431D+00, -.5897D-01, .9643D-01, - + .2478D+00, -.7653D-01, -.8255D-02, -.8255D-02, .1698D+00, - + .2460D+00, -.5705D-01, .9890D-01, - + .2472D+00, -.7579D-01, -.7927D-02, -.7927D-02, .1646D+00, - + .2487D+00, -.5531D-01, .1012D+00, - + .2466D+00, -.7503D-01, -.7615D-02, -.7615D-02, .1595D+00, - + .2514D+00, -.5365D-01, .1033D+00, - + .2459D+00, -.7435D-01, -.7351D-02, -.7351D-02, .1552D+00, - + .2537D+00, -.5224D-01, .1052D+00 / - DATA ((PARTON(I,N,20),I=1,8),N=1,8)/ - + .2368D+00, -.9150D-01, -.2240D-01, -.2240D-01, .2312D+00, - + .1741D+00, -.1314D+00, .2697D-01, - + .2427D+00, -.9161D-01, -.2124D-01, -.2124D-01, .2397D+00, - + .1841D+00, -.1255D+00, .3501D-01, - + .2467D+00, -.9156D-01, -.2037D-01, -.2037D-01, .2432D+00, - + .1911D+00, -.1211D+00, .4083D-01, - + .2508D+00, -.9138D-01, -.1940D-01, -.1940D-01, .2446D+00, - + .1987D+00, -.1161D+00, .4718D-01, - + .2550D+00, -.9101D-01, -.1828D-01, -.1828D-01, .2433D+00, - + .2071D+00, -.1103D+00, .5432D-01, - + .2576D+00, -.9064D-01, -.1751D-01, -.1751D-01, .2407D+00, - + .2127D+00, -.1063D+00, .5921D-01, - + .2594D+00, -.9031D-01, -.1692D-01, -.1692D-01, .2380D+00, - + .2169D+00, -.1033D+00, .6283D-01, - + .2617D+00, -.8973D-01, -.1608D-01, -.1608D-01, .2330D+00, - + .2228D+00, -.9893D-01, .6800D-01 / - DATA ((PARTON(I,N,20),I=1,8),N=9,16)/ - + .2632D+00, -.8926D-01, -.1550D-01, -.1550D-01, .2287D+00, - + .2268D+00, -.9591D-01, .7159D-01, - + .2654D+00, -.8821D-01, -.1440D-01, -.1440D-01, .2193D+00, - + .2344D+00, -.9020D-01, .7832D-01, - + .2668D+00, -.8712D-01, -.1345D-01, -.1345D-01, .2098D+00, - + .2408D+00, -.8530D-01, .8409D-01, - + .2676D+00, -.8606D-01, -.1268D-01, -.1268D-01, .2011D+00, - + .2462D+00, -.8124D-01, .8888D-01, - + .2679D+00, -.8511D-01, -.1205D-01, -.1205D-01, .1935D+00, - + .2505D+00, -.7797D-01, .9277D-01, - + .2679D+00, -.8394D-01, -.1136D-01, -.1136D-01, .1847D+00, - + .2553D+00, -.7434D-01, .9711D-01, - + .2675D+00, -.8286D-01, -.1080D-01, -.1080D-01, .1771D+00, - + .2594D+00, -.7132D-01, .1007D+00, - + .2670D+00, -.8181D-01, -.1029D-01, -.1029D-01, .1700D+00, - + .2630D+00, -.6858D-01, .1041D+00 / - DATA ((PARTON(I,N,20),I=1,8),N=17,25)/ - + .2663D+00, -.8083D-01, -.9846D-02, -.9846D-02, .1637D+00, - + .2663D+00, -.6620D-01, .1070D+00, - + .2652D+00, -.7957D-01, -.9326D-02, -.9326D-02, .1561D+00, - + .2702D+00, -.6336D-01, .1105D+00, - + .2640D+00, -.7838D-01, -.8870D-02, -.8870D-02, .1493D+00, - + .2737D+00, -.6084D-01, .1136D+00, - + .2626D+00, -.7719D-01, -.8447D-02, -.8447D-02, .1429D+00, - + .2770D+00, -.5847D-01, .1166D+00, - + .2612D+00, -.7614D-01, -.8095D-02, -.8095D-02, .1375D+00, - + .2799D+00, -.5648D-01, .1191D+00, - + .2596D+00, -.7504D-01, -.7749D-02, -.7749D-02, .1322D+00, - + .2828D+00, -.5450D-01, .1217D+00, - + .2580D+00, -.7401D-01, -.7439D-02, -.7439D-02, .1273D+00, - + .2856D+00, -.5271D-01, .1240D+00, - + .2563D+00, -.7297D-01, -.7146D-02, -.7146D-02, .1227D+00, - + .2882D+00, -.5098D-01, .1263D+00, - + .2548D+00, -.7205D-01, -.6898D-02, -.6898D-02, .1188D+00, - + .2906D+00, -.4951D-01, .1283D+00 / - DATA ((PARTON(I,N,21),I=1,8),N=1,8)/ - + .2700D+00, -.9816D-01, -.2202D-01, -.2202D-01, .2477D+00, - + .2089D+00, -.1293D+00, .4698D-01, - + .2748D+00, -.9755D-01, -.2066D-01, -.2066D-01, .2471D+00, - + .2191D+00, -.1227D+00, .5564D-01, - + .2778D+00, -.9697D-01, -.1968D-01, -.1968D-01, .2443D+00, - + .2263D+00, -.1178D+00, .6182D-01, - + .2807D+00, -.9619D-01, -.1861D-01, -.1861D-01, .2394D+00, - + .2339D+00, -.1125D+00, .6848D-01, - + .2835D+00, -.9512D-01, -.1741D-01, -.1741D-01, .2315D+00, - + .2422D+00, -.1064D+00, .7590D-01, - + .2850D+00, -.9426D-01, -.1659D-01, -.1659D-01, .2250D+00, - + .2478D+00, -.1022D+00, .8093D-01, - + .2859D+00, -.9355D-01, -.1599D-01, -.1599D-01, .2195D+00, - + .2519D+00, -.9902D-01, .8464D-01, - + .2869D+00, -.9244D-01, -.1513D-01, -.1513D-01, .2110D+00, - + .2576D+00, -.9454D-01, .8991D-01 / - DATA ((PARTON(I,N,21),I=1,8),N=9,16)/ - + .2874D+00, -.9158D-01, -.1453D-01, -.1453D-01, .2047D+00, - + .2616D+00, -.9144D-01, .9356D-01, - + .2876D+00, -.8979D-01, -.1343D-01, -.1343D-01, .1919D+00, - + .2689D+00, -.8561D-01, .1004D+00, - + .2871D+00, -.8806D-01, -.1250D-01, -.1250D-01, .1802D+00, - + .2750D+00, -.8061D-01, .1062D+00, - + .2862D+00, -.8647D-01, -.1174D-01, -.1174D-01, .1702D+00, - + .2801D+00, -.7648D-01, .1110D+00, - + .2851D+00, -.8508D-01, -.1114D-01, -.1114D-01, .1620D+00, - + .2842D+00, -.7315D-01, .1149D+00, - + .2835D+00, -.8342D-01, -.1048D-01, -.1048D-01, .1527D+00, - + .2889D+00, -.6946D-01, .1193D+00, - + .2818D+00, -.8193D-01, -.9932D-02, -.9932D-02, .1450D+00, - + .2927D+00, -.6638D-01, .1229D+00, - + .2799D+00, -.8051D-01, -.9444D-02, -.9444D-02, .1380D+00, - + .2962D+00, -.6358D-01, .1262D+00 / - DATA ((PARTON(I,N,21),I=1,8),N=17,25)/ - + .2780D+00, -.7921D-01, -.9027D-02, -.9027D-02, .1319D+00, - + .2993D+00, -.6115D-01, .1291D+00, - + .2754D+00, -.7757D-01, -.8533D-02, -.8533D-02, .1247D+00, - + .3030D+00, -.5823D-01, .1326D+00, - + .2728D+00, -.7604D-01, -.8102D-02, -.8102D-02, .1184D+00, - + .3063D+00, -.5564D-01, .1358D+00, - + .2701D+00, -.7454D-01, -.7703D-02, -.7703D-02, .1126D+00, - + .3095D+00, -.5320D-01, .1388D+00, - + .2676D+00, -.7323D-01, -.7372D-02, -.7372D-02, .1078D+00, - + .3123D+00, -.5114D-01, .1414D+00, - + .2650D+00, -.7188D-01, -.7047D-02, -.7047D-02, .1031D+00, - + .3151D+00, -.4909D-01, .1440D+00, - + .2624D+00, -.7062D-01, -.6756D-02, -.6756D-02, .9885D-01, - + .3177D+00, -.4723D-01, .1464D+00, - + .2597D+00, -.6937D-01, -.6481D-02, -.6481D-02, .9489D-01, - + .3203D+00, -.4544D-01, .1487D+00, - + .2573D+00, -.6828D-01, -.6249D-02, -.6249D-02, .9156D-01, - + .3226D+00, -.4390D-01, .1508D+00 / - DATA ((PARTON(I,N,22),I=1,8),N=1,8)/ - + .3007D+00, -.1028D+00, -.2097D-01, -.2097D-01, .2510D+00, - + .2430D+00, -.1235D+00, .6913D-01, - + .3039D+00, -.1014D+00, -.1952D-01, -.1952D-01, .2425D+00, - + .2531D+00, -.1165D+00, .7801D-01, - + .3056D+00, -.1003D+00, -.1850D-01, -.1850D-01, .2347D+00, - + .2600D+00, -.1114D+00, .8429D-01, - + .3071D+00, -.9891D-01, -.1739D-01, -.1739D-01, .2249D+00, - + .2674D+00, -.1058D+00, .9100D-01, - + .3080D+00, -.9715D-01, -.1618D-01, -.1618D-01, .2125D+00, - + .2753D+00, -.9955D-01, .9843D-01, - + .3081D+00, -.9582D-01, -.1536D-01, -.1536D-01, .2033D+00, - + .2806D+00, -.9527D-01, .1034D+00, - + .3080D+00, -.9475D-01, -.1476D-01, -.1476D-01, .1962D+00, - + .2845D+00, -.9208D-01, .1071D+00, - + .3074D+00, -.9312D-01, -.1391D-01, -.1391D-01, .1857D+00, - + .2899D+00, -.8755D-01, .1123D+00 / - DATA ((PARTON(I,N,22),I=1,8),N=9,16)/ - + .3067D+00, -.9191D-01, -.1333D-01, -.1333D-01, .1783D+00, - + .2936D+00, -.8441D-01, .1160D+00, - + .3047D+00, -.8945D-01, -.1226D-01, -.1226D-01, .1641D+00, - + .3005D+00, -.7852D-01, .1227D+00, - + .3022D+00, -.8714D-01, -.1137D-01, -.1137D-01, .1518D+00, - + .3062D+00, -.7347D-01, .1284D+00, - + .2995D+00, -.8508D-01, -.1065D-01, -.1065D-01, .1417D+00, - + .3110D+00, -.6929D-01, .1331D+00, - + .2969D+00, -.8331D-01, -.1007D-01, -.1007D-01, .1336D+00, - + .3148D+00, -.6592D-01, .1369D+00, - + .2936D+00, -.8123D-01, -.9446D-02, -.9446D-02, .1247D+00, - + .3191D+00, -.6219D-01, .1413D+00, - + .2904D+00, -.7941D-01, -.8932D-02, -.8932D-02, .1175D+00, - + .3226D+00, -.5905D-01, .1448D+00, - + .2872D+00, -.7768D-01, -.8474D-02, -.8474D-02, .1110D+00, - + .3259D+00, -.5620D-01, .1481D+00 / - DATA ((PARTON(I,N,22),I=1,8),N=17,25)/ - + .2841D+00, -.7612D-01, -.8083D-02, -.8083D-02, .1056D+00, - + .3287D+00, -.5372D-01, .1510D+00, - + .2801D+00, -.7418D-01, -.7621D-02, -.7621D-02, .9916D-01, - + .3321D+00, -.5073D-01, .1544D+00, - + .2762D+00, -.7240D-01, -.7219D-02, -.7219D-02, .9365D-01, - + .3352D+00, -.4808D-01, .1575D+00, - + .2723D+00, -.7066D-01, -.6847D-02, -.6847D-02, .8860D-01, - + .3382D+00, -.4557D-01, .1605D+00, - + .2687D+00, -.6916D-01, -.6539D-02, -.6539D-02, .8447D-01, - + .3408D+00, -.4344D-01, .1631D+00, - + .2650D+00, -.6762D-01, -.6237D-02, -.6237D-02, .8047D-01, - + .3434D+00, -.4132D-01, .1656D+00, - + .2615D+00, -.6620D-01, -.5968D-02, -.5968D-02, .7693D-01, - + .3459D+00, -.3939D-01, .1680D+00, - + .2579D+00, -.6480D-01, -.5713D-02, -.5713D-02, .7363D-01, - + .3484D+00, -.3753D-01, .1704D+00, - + .2547D+00, -.6359D-01, -.5499D-02, -.5499D-02, .7087D-01, - + .3505D+00, -.3593D-01, .1724D+00 / - DATA ((PARTON(I,N,23),I=1,8),N=1,8)/ - + .3284D+00, -.1055D+00, -.1947D-01, -.1947D-01, .2428D+00, - + .2756D+00, -.1146D+00, .9250D-01, - + .3296D+00, -.1034D+00, -.1801D-01, -.1801D-01, .2283D+00, - + .2851D+00, -.1075D+00, .1013D+00, - + .3298D+00, -.1017D+00, -.1699D-01, -.1699D-01, .2170D+00, - + .2917D+00, -.1023D+00, .1075D+00, - + .3294D+00, -.9978D-01, -.1590D-01, -.1590D-01, .2040D+00, - + .2985D+00, -.9668D-01, .1141D+00, - + .3282D+00, -.9737D-01, -.1472D-01, -.1472D-01, .1889D+00, - + .3060D+00, -.9037D-01, .1213D+00, - + .3268D+00, -.9560D-01, -.1392D-01, -.1392D-01, .1784D+00, - + .3109D+00, -.8607D-01, .1262D+00, - + .3255D+00, -.9421D-01, -.1335D-01, -.1335D-01, .1706D+00, - + .3145D+00, -.8288D-01, .1298D+00, - + .3232D+00, -.9212D-01, -.1254D-01, -.1254D-01, .1594D+00, - + .3195D+00, -.7834D-01, .1349D+00 / - DATA ((PARTON(I,N,23),I=1,8),N=9,16)/ - + .3213D+00, -.9059D-01, -.1199D-01, -.1199D-01, .1517D+00, - + .3229D+00, -.7520D-01, .1384D+00, - + .3169D+00, -.8754D-01, -.1098D-01, -.1098D-01, .1375D+00, - + .3292D+00, -.6930D-01, .1449D+00, - + .3122D+00, -.8474D-01, -.1014D-01, -.1014D-01, .1257D+00, - + .3345D+00, -.6424D-01, .1504D+00, - + .3077D+00, -.8229D-01, -.9463D-02, -.9463D-02, .1162D+00, - + .3388D+00, -.6004D-01, .1550D+00, - + .3037D+00, -.8021D-01, -.8927D-02, -.8927D-02, .1087D+00, - + .3423D+00, -.5664D-01, .1587D+00, - + .2986D+00, -.7780D-01, -.8344D-02, -.8344D-02, .1007D+00, - + .3463D+00, -.5288D-01, .1629D+00, - + .2940D+00, -.7571D-01, -.7868D-02, -.7868D-02, .9432D-01, - + .3495D+00, -.4971D-01, .1663D+00, - + .2895D+00, -.7375D-01, -.7444D-02, -.7444D-02, .8870D-01, - + .3524D+00, -.4682D-01, .1695D+00 / - DATA ((PARTON(I,N,23),I=1,8),N=17,25)/ - + .2853D+00, -.7199D-01, -.7082D-02, -.7082D-02, .8398D-01, - + .3550D+00, -.4429D-01, .1723D+00, - + .2799D+00, -.6983D-01, -.6657D-02, -.6657D-02, .7851D-01, - + .3581D+00, -.4125D-01, .1756D+00, - + .2749D+00, -.6786D-01, -.6287D-02, -.6287D-02, .7386D-01, - + .3609D+00, -.3854D-01, .1786D+00, - + .2698D+00, -.6596D-01, -.5946D-02, -.5946D-02, .6963D-01, - + .3636D+00, -.3597D-01, .1815D+00, - + .2654D+00, -.6433D-01, -.5665D-02, -.5665D-02, .6620D-01, - + .3659D+00, -.3379D-01, .1840D+00, - + .2607D+00, -.6267D-01, -.5389D-02, -.5389D-02, .6290D-01, - + .3684D+00, -.3161D-01, .1865D+00, - + .2564D+00, -.6115D-01, -.5144D-02, -.5144D-02, .6000D-01, - + .3706D+00, -.2962D-01, .1889D+00, - + .2520D+00, -.5966D-01, -.4912D-02, -.4912D-02, .5729D-01, - + .3729D+00, -.2770D-01, .1912D+00, - + .2482D+00, -.5837D-01, -.4718D-02, -.4718D-02, .5505D-01, - + .3750D+00, -.2604D-01, .1932D+00 / - DATA ((PARTON(I,N,24),I=1,8),N=1,8)/ - + .3527D+00, -.1064D+00, -.1769D-01, -.1769D-01, .2256D+00, - + .3060D+00, -.1034D+00, .1164D+00, - + .3515D+00, -.1037D+00, -.1628D-01, -.1628D-01, .2074D+00, - + .3148D+00, -.9621D-01, .1249D+00, - + .3499D+00, -.1015D+00, -.1530D-01, -.1530D-01, .1940D+00, - + .3209D+00, -.9105D-01, .1308D+00, - + .3476D+00, -.9902D-01, -.1426D-01, -.1426D-01, .1796D+00, - + .3272D+00, -.8546D-01, .1372D+00, - + .3440D+00, -.9603D-01, -.1314D-01, -.1314D-01, .1635D+00, - + .3340D+00, -.7920D-01, .1441D+00, - + .3410D+00, -.9387D-01, -.1239D-01, -.1239D-01, .1527D+00, - + .3385D+00, -.7493D-01, .1488D+00, - + .3385D+00, -.9219D-01, -.1185D-01, -.1185D-01, .1448D+00, - + .3418D+00, -.7177D-01, .1522D+00, - + .3344D+00, -.8971D-01, -.1110D-01, -.1110D-01, .1339D+00, - + .3464D+00, -.6726D-01, .1571D+00 / - DATA ((PARTON(I,N,24),I=1,8),N=9,16)/ - + .3311D+00, -.8791D-01, -.1059D-01, -.1059D-01, .1266D+00, - + .3495D+00, -.6415D-01, .1605D+00, - + .3243D+00, -.8438D-01, -.9651D-02, -.9651D-02, .1133D+00, - + .3552D+00, -.5828D-01, .1667D+00, - + .3175D+00, -.8119D-01, -.8876D-02, -.8876D-02, .1025D+00, - + .3600D+00, -.5324D-01, .1720D+00, - + .3113D+00, -.7842D-01, -.8253D-02, -.8253D-02, .9409D-01, - + .3639D+00, -.4905D-01, .1763D+00, - + .3058D+00, -.7611D-01, -.7761D-02, -.7761D-02, .8758D-01, - + .3670D+00, -.4565D-01, .1799D+00, - + .2991D+00, -.7345D-01, -.7228D-02, -.7228D-02, .8068D-01, - + .3706D+00, -.4186D-01, .1839D+00, - + .2932D+00, -.7117D-01, -.6794D-02, -.6794D-02, .7521D-01, - + .3735D+00, -.3867D-01, .1872D+00, - + .2875D+00, -.6904D-01, -.6408D-02, -.6408D-02, .7047D-01, - + .3761D+00, -.3576D-01, .1902D+00 / - DATA ((PARTON(I,N,24),I=1,8),N=17,25)/ - + .2823D+00, -.6716D-01, -.6080D-02, -.6080D-02, .6652D-01, - + .3784D+00, -.3321D-01, .1929D+00, - + .2757D+00, -.6485D-01, -.5695D-02, -.5695D-02, .6198D-01, - + .3811D+00, -.3013D-01, .1961D+00, - + .2696D+00, -.6277D-01, -.5362D-02, -.5362D-02, .5815D-01, - + .3836D+00, -.2738D-01, .1990D+00, - + .2635D+00, -.6077D-01, -.5055D-02, -.5055D-02, .5469D-01, - + .3861D+00, -.2476D-01, .2018D+00, - + .2583D+00, -.5906D-01, -.4802D-02, -.4802D-02, .5189D-01, - + .3882D+00, -.2255D-01, .2042D+00, - + .2529D+00, -.5734D-01, -.4555D-02, -.4555D-02, .4921D-01, - + .3904D+00, -.2032D-01, .2066D+00, - + .2478D+00, -.5576D-01, -.4336D-02, -.4336D-02, .4687D-01, - + .3925D+00, -.1828D-01, .2089D+00, - + .2428D+00, -.5423D-01, -.4130D-02, -.4130D-02, .4469D-01, - + .3946D+00, -.1631D-01, .2111D+00, - + .2385D+00, -.5292D-01, -.3956D-02, -.3956D-02, .4288D-01, - + .3965D+00, -.1461D-01, .2131D+00 / - DATA ((PARTON(I,N,25),I=1,8),N=1,8)/ - + .3731D+00, -.1058D+00, -.1577D-01, -.1577D-01, .2024D+00, - + .3339D+00, -.9022D-01, .1401D+00, - + .3693D+00, -.1024D+00, -.1444D-01, -.1444D-01, .1824D+00, - + .3420D+00, -.8313D-01, .1483D+00, - + .3658D+00, -.9981D-01, -.1352D-01, -.1352D-01, .1685D+00, - + .3475D+00, -.7805D-01, .1539D+00, - + .3613D+00, -.9685D-01, -.1256D-01, -.1256D-01, .1538D+00, - + .3533D+00, -.7255D-01, .1599D+00, - + .3553D+00, -.9337D-01, -.1152D-01, -.1152D-01, .1380D+00, - + .3595D+00, -.6639D-01, .1665D+00, - + .3507D+00, -.9088D-01, -.1084D-01, -.1084D-01, .1278D+00, - + .3635D+00, -.6220D-01, .1709D+00, - + .3468D+00, -.8897D-01, -.1034D-01, -.1034D-01, .1204D+00, - + .3665D+00, -.5908D-01, .1742D+00, - + .3409D+00, -.8616D-01, -.9649D-02, -.9649D-02, .1104D+00, - + .3706D+00, -.5465D-01, .1788D+00 / - DATA ((PARTON(I,N,25),I=1,8),N=9,16)/ - + .3364D+00, -.8415D-01, -.9183D-02, -.9183D-02, .1038D+00, - + .3735D+00, -.5158D-01, .1820D+00, - + .3272D+00, -.8025D-01, -.8332D-02, -.8332D-02, .9199D-01, - + .3786D+00, -.4578D-01, .1879D+00, - + .3184D+00, -.7676D-01, -.7630D-02, -.7630D-02, .8264D-01, - + .3829D+00, -.4078D-01, .1929D+00, - + .3105D+00, -.7377D-01, -.7067D-02, -.7067D-02, .7542D-01, - + .3864D+00, -.3661D-01, .1970D+00, - + .3036D+00, -.7129D-01, -.6624D-02, -.6624D-02, .6993D-01, - + .3892D+00, -.3323D-01, .2004D+00, - + .2956D+00, -.6847D-01, -.6145D-02, -.6145D-02, .6417D-01, - + .3924D+00, -.2945D-01, .2042D+00, - + .2885D+00, -.6606D-01, -.5756D-02, -.5756D-02, .5964D-01, - + .3950D+00, -.2626D-01, .2073D+00, - + .2817D+00, -.6384D-01, -.5412D-02, -.5412D-02, .5574D-01, - + .3973D+00, -.2334D-01, .2102D+00 / - DATA ((PARTON(I,N,25),I=1,8),N=17,25)/ - + .2756D+00, -.6188D-01, -.5120D-02, -.5120D-02, .5251D-01, - + .3993D+00, -.2078D-01, .2127D+00, - + .2679D+00, -.5950D-01, -.4778D-02, -.4778D-02, .4883D-01, - + .4017D+00, -.1769D-01, .2158D+00, - + .2609D+00, -.5736D-01, -.4483D-02, -.4483D-02, .4572D-01, - + .4039D+00, -.1491D-01, .2185D+00, - + .2541D+00, -.5532D-01, -.4212D-02, -.4212D-02, .4293D-01, - + .4061D+00, -.1228D-01, .2211D+00, - + .2482D+00, -.5359D-01, -.3989D-02, -.3989D-02, .4069D-01, - + .4080D+00, -.1003D-01, .2234D+00, - + .2421D+00, -.5185D-01, -.3772D-02, -.3772D-02, .3854D-01, - + .4099D+00, -.7778D-02, .2257D+00, - + .2365D+00, -.5027D-01, -.3580D-02, -.3580D-02, .3666D-01, - + .4118D+00, -.5713D-02, .2279D+00, - + .2310D+00, -.4874D-01, -.3400D-02, -.3400D-02, .3491D-01, - + .4137D+00, -.3709D-02, .2301D+00, - + .2263D+00, -.4743D-01, -.3249D-02, -.3249D-02, .3347D-01, - + .4155D+00, -.1977D-02, .2320D+00 / - DATA ((PARTON(I,N,26),I=1,8),N=1,8)/ - + .3891D+00, -.1037D+00, -.1381D-01, -.1381D-01, .1758D+00, - + .3593D+00, -.7553D-01, .1635D+00, - + .3826D+00, -.9979D-01, -.1259D-01, -.1259D-01, .1559D+00, - + .3667D+00, -.6860D-01, .1711D+00, - + .3772D+00, -.9683D-01, -.1175D-01, -.1175D-01, .1424D+00, - + .3717D+00, -.6365D-01, .1764D+00, - + .3705D+00, -.9350D-01, -.1088D-01, -.1088D-01, .1286D+00, - + .3768D+00, -.5828D-01, .1821D+00, - + .3621D+00, -.8961D-01, -.9934D-02, -.9934D-02, .1141D+00, - + .3824D+00, -.5227D-01, .1883D+00, - + .3558D+00, -.8686D-01, -.9316D-02, -.9316D-02, .1048D+00, - + .3861D+00, -.4817D-01, .1924D+00, - + .3507D+00, -.8477D-01, -.8868D-02, -.8868D-02, .9830D-01, - + .3887D+00, -.4512D-01, .1955D+00, - + .3430D+00, -.8172D-01, -.8248D-02, -.8248D-02, .8953D-01, - + .3925D+00, -.4077D-01, .1998D+00 / - DATA ((PARTON(I,N,26),I=1,8),N=9,16)/ - + .3374D+00, -.7955D-01, -.7829D-02, -.7829D-02, .8378D-01, - + .3951D+00, -.3776D-01, .2028D+00, - + .3259D+00, -.7538D-01, -.7069D-02, -.7069D-02, .7376D-01, - + .3997D+00, -.3206D-01, .2083D+00, - + .3152D+00, -.7169D-01, -.6444D-02, -.6444D-02, .6593D-01, - + .4035D+00, -.2713D-01, .2130D+00, - + .3058D+00, -.6856D-01, -.5944D-02, -.5944D-02, .5996D-01, - + .4066D+00, -.2301D-01, .2169D+00, - + .2978D+00, -.6599D-01, -.5552D-02, -.5552D-02, .5545D-01, - + .4090D+00, -.1966D-01, .2200D+00, - + .2884D+00, -.6308D-01, -.5130D-02, -.5130D-02, .5076D-01, - + .4119D+00, -.1591D-01, .2237D+00, - + .2803D+00, -.6061D-01, -.4788D-02, -.4788D-02, .4709D-01, - + .4142D+00, -.1274D-01, .2266D+00, - + .2726D+00, -.5835D-01, -.4486D-02, -.4486D-02, .4395D-01, - + .4162D+00, -.9835D-02, .2293D+00 / - DATA ((PARTON(I,N,26),I=1,8),N=17,25)/ - + .2658D+00, -.5637D-01, -.4231D-02, -.4231D-02, .4135D-01, - + .4180D+00, -.7286D-02, .2317D+00, - + .2573D+00, -.5397D-01, -.3933D-02, -.3933D-02, .3840D-01, - + .4201D+00, -.4197D-02, .2345D+00, - + .2495D+00, -.5183D-01, -.3676D-02, -.3676D-02, .3592D-01, - + .4220D+00, -.1424D-02, .2371D+00, - + .2421D+00, -.4980D-01, -.3442D-02, -.3442D-02, .3370D-01, - + .4239D+00, .1218D-02, .2396D+00, - + .2357D+00, -.4809D-01, -.3250D-02, -.3250D-02, .3191D-01, - + .4256D+00, .3467D-02, .2418D+00, - + .2291D+00, -.4638D-01, -.3063D-02, -.3063D-02, .3019D-01, - + .4273D+00, .5734D-02, .2440D+00, - + .2231D+00, -.4483D-01, -.2899D-02, -.2899D-02, .2870D-01, - + .4290D+00, .7813D-02, .2460D+00, - + .2173D+00, -.4334D-01, -.2745D-02, -.2745D-02, .2731D-01, - + .4307D+00, .9833D-02, .2480D+00, - + .2122D+00, -.4206D-01, -.2616D-02, -.2616D-02, .2616D-01, - + .4323D+00, .1158D-01, .2499D+00 / - DATA ((PARTON(I,N,27),I=1,8),N=1,8)/ - + .4007D+00, -.1005D+00, -.1189D-01, -.1189D-01, .1485D+00, - + .3824D+00, -.5965D-01, .1861D+00, - + .3914D+00, -.9605D-01, -.1079D-01, -.1079D-01, .1298D+00, - + .3890D+00, -.5294D-01, .1932D+00, - + .3840D+00, -.9279D-01, -.1004D-01, -.1004D-01, .1175D+00, - + .3934D+00, -.4814D-01, .1981D+00, - + .3752D+00, -.8916D-01, -.9259D-02, -.9259D-02, .1051D+00, - + .3981D+00, -.4294D-01, .2034D+00, - + .3644D+00, -.8496D-01, -.8422D-02, -.8422D-02, .9244D-01, - + .4031D+00, -.3710D-01, .2092D+00, - + .3565D+00, -.8203D-01, -.7874D-02, -.7874D-02, .8449D-01, - + .4064D+00, -.3311D-01, .2130D+00, - + .3503D+00, -.7981D-01, -.7478D-02, -.7478D-02, .7895D-01, - + .4087D+00, -.3014D-01, .2159D+00, - + .3410D+00, -.7659D-01, -.6931D-02, -.6931D-02, .7157D-01, - + .4121D+00, -.2590D-01, .2199D+00 / - DATA ((PARTON(I,N,27),I=1,8),N=9,16)/ - + .3342D+00, -.7433D-01, -.6562D-02, -.6562D-02, .6679D-01, - + .4144D+00, -.2296D-01, .2227D+00, - + .3207D+00, -.6999D-01, -.5895D-02, -.5895D-02, .5854D-01, - + .4185D+00, -.1738D-01, .2279D+00, - + .3084D+00, -.6620D-01, -.5348D-02, -.5348D-02, .5217D-01, - + .4219D+00, -.1255D-01, .2323D+00, - + .2976D+00, -.6301D-01, -.4912D-02, -.4912D-02, .4734D-01, - + .4246D+00, -.8504D-02, .2359D+00, - + .2886D+00, -.6040D-01, -.4572D-02, -.4572D-02, .4373D-01, - + .4268D+00, -.5204D-02, .2388D+00, - + .2782D+00, -.5747D-01, -.4206D-02, -.4206D-02, .3998D-01, - + .4295D+00, -.1497D-02, .2423D+00, - + .2692D+00, -.5500D-01, -.3911D-02, -.3911D-02, .3706D-01, - + .4314D+00, .1635D-02, .2450D+00, - + .2608D+00, -.5276D-01, -.3652D-02, -.3652D-02, .3456D-01, - + .4332D+00, .4508D-02, .2475D+00 / - DATA ((PARTON(I,N,27),I=1,8),N=17,25)/ - + .2534D+00, -.5079D-01, -.3433D-02, -.3433D-02, .3251D-01, - + .4347D+00, .7032D-02, .2497D+00, - + .2443D+00, -.4844D-01, -.3178D-02, -.3178D-02, .3017D-01, - + .4366D+00, .1010D-01, .2524D+00, - + .2360D+00, -.4634D-01, -.2960D-02, -.2960D-02, .2820D-01, - + .4383D+00, .1285D-01, .2548D+00, - + .2281D+00, -.4437D-01, -.2761D-02, -.2761D-02, .2644D-01, - + .4399D+00, .1548D-01, .2572D+00, - + .2213D+00, -.4271D-01, -.2598D-02, -.2598D-02, .2502D-01, - + .4414D+00, .1772D-01, .2592D+00, - + .2145D+00, -.4106D-01, -.2441D-02, -.2441D-02, .2365D-01, - + .4429D+00, .1998D-01, .2612D+00, - + .2082D+00, -.3957D-01, -.2303D-02, -.2303D-02, .2247D-01, - + .4444D+00, .2206D-01, .2632D+00, - + .2021D+00, -.3814D-01, -.2174D-02, -.2174D-02, .2136D-01, - + .4459D+00, .2408D-01, .2651D+00, - + .1969D+00, -.3693D-01, -.2067D-02, -.2067D-02, .2045D-01, - + .4473D+00, .2583D-01, .2668D+00 / - DATA ((PARTON(I,N,28),I=1,8),N=1,8)/ - + .4075D+00, -.9611D-01, -.1006D-01, -.1006D-01, .1220D+00, - + .4032D+00, -.4290D-01, .2078D+00, - + .3955D+00, -.9137D-01, -.9095D-02, -.9095D-02, .1055D+00, - + .4091D+00, -.3643D-01, .2144D+00, - + .3862D+00, -.8789D-01, -.8437D-02, -.8437D-02, .9485D-01, - + .4131D+00, -.3180D-01, .2189D+00, - + .3754D+00, -.8405D-01, -.7753D-02, -.7753D-02, .8429D-01, - + .4172D+00, -.2677D-01, .2238D+00, - + .3624D+00, -.7964D-01, -.7023D-02, -.7023D-02, .7364D-01, - + .4217D+00, -.2113D-01, .2291D+00, - + .3530D+00, -.7659D-01, -.6545D-02, -.6545D-02, .6707D-01, - + .4246D+00, -.1727D-01, .2327D+00, - + .3458D+00, -.7430D-01, -.6201D-02, -.6201D-02, .6252D-01, - + .4267D+00, -.1439D-01, .2354D+00, - + .3350D+00, -.7099D-01, -.5726D-02, -.5726D-02, .5652D-01, - + .4297D+00, -.1027D-01, .2391D+00 / - DATA ((PARTON(I,N,28),I=1,8),N=9,16)/ - + .3272D+00, -.6867D-01, -.5407D-02, -.5407D-02, .5266D-01, - + .4318D+00, -.7399D-02, .2417D+00, - + .3120D+00, -.6428D-01, -.4831D-02, -.4831D-02, .4606D-01, - + .4355D+00, -.1964D-02, .2465D+00, - + .2983D+00, -.6046D-01, -.4361D-02, -.4361D-02, .4100D-01, - + .4385D+00, .2750D-02, .2506D+00, - + .2864D+00, -.5728D-01, -.3989D-02, -.3989D-02, .3719D-01, - + .4409D+00, .6702D-02, .2540D+00, - + .2766D+00, -.5469D-01, -.3698D-02, -.3698D-02, .3434D-01, - + .4428D+00, .9934D-02, .2567D+00, - + .2653D+00, -.5180D-01, -.3387D-02, -.3387D-02, .3139D-01, - + .4452D+00, .1358D-01, .2600D+00, - + .2557D+00, -.4939D-01, -.3138D-02, -.3138D-02, .2910D-01, - + .4469D+00, .1666D-01, .2625D+00, - + .2468D+00, -.4720D-01, -.2919D-02, -.2919D-02, .2713D-01, - + .4485D+00, .1948D-01, .2649D+00 / - DATA ((PARTON(I,N,28),I=1,8),N=17,25)/ - + .2390D+00, -.4529D-01, -.2735D-02, -.2735D-02, .2551D-01, - + .4498D+00, .2197D-01, .2669D+00, - + .2294D+00, -.4302D-01, -.2522D-02, -.2522D-02, .2367D-01, - + .4514D+00, .2499D-01, .2694D+00, - + .2208D+00, -.4101D-01, -.2339D-02, -.2339D-02, .2212D-01, - + .4529D+00, .2771D-01, .2716D+00, - + .2126D+00, -.3912D-01, -.2174D-02, -.2174D-02, .2072D-01, - + .4543D+00, .3030D-01, .2738D+00, - + .2056D+00, -.3754D-01, -.2040D-02, -.2040D-02, .1960D-01, - + .4556D+00, .3252D-01, .2757D+00, - + .1986D+00, -.3598D-01, -.1910D-02, -.1910D-02, .1852D-01, - + .4569D+00, .3477D-01, .2776D+00, - + .1922D+00, -.3457D-01, -.1796D-02, -.1796D-02, .1758D-01, - + .4582D+00, .3683D-01, .2794D+00, - + .1861D+00, -.3323D-01, -.1690D-02, -.1690D-02, .1670D-01, - + .4596D+00, .3884D-01, .2813D+00, - + .1808D+00, -.3209D-01, -.1602D-02, -.1602D-02, .1597D-01, - + .4609D+00, .4059D-01, .2829D+00 / - DATA ((PARTON(I,N,29),I=1,8),N=1,8)/ - + .4097D+00, -.9092D-01, -.8376D-02, -.8376D-02, .9787D-01, - + .4219D+00, -.2550D-01, .2285D+00, - + .3951D+00, -.8594D-01, -.7541D-02, -.7541D-02, .8392D-01, - + .4272D+00, -.1929D-01, .2345D+00, - + .3840D+00, -.8232D-01, -.6973D-02, -.6973D-02, .7505D-01, - + .4307D+00, -.1484D-01, .2388D+00, - + .3714D+00, -.7834D-01, -.6385D-02, -.6385D-02, .6639D-01, - + .4344D+00, -.1000D-01, .2432D+00, - + .3564D+00, -.7383D-01, -.5758D-02, -.5758D-02, .5779D-01, - + .4384D+00, -.4559D-02, .2481D+00, - + .3457D+00, -.7073D-01, -.5349D-02, -.5349D-02, .5253D-01, - + .4410D+00, -.8327D-03, .2514D+00, - + .3375D+00, -.6841D-01, -.5055D-02, -.5055D-02, .4892D-01, - + .4428D+00, .1948D-02, .2539D+00, - + .3255D+00, -.6508D-01, -.4650D-02, -.4650D-02, .4418D-01, - + .4455D+00, .5933D-02, .2573D+00 / - DATA ((PARTON(I,N,29),I=1,8),N=9,16)/ - + .3169D+00, -.6276D-01, -.4379D-02, -.4379D-02, .4116D-01, - + .4474D+00, .8718D-02, .2598D+00, - + .3002D+00, -.5839D-01, -.3891D-02, -.3891D-02, .3600D-01, - + .4507D+00, .1399D-01, .2642D+00, - + .2853D+00, -.5463D-01, -.3495D-02, -.3495D-02, .3206D-01, - + .4533D+00, .1857D-01, .2680D+00, - + .2727D+00, -.5152D-01, -.3182D-02, -.3182D-02, .2910D-01, - + .4555D+00, .2242D-01, .2711D+00, - + .2622D+00, -.4900D-01, -.2939D-02, -.2939D-02, .2688D-01, - + .4572D+00, .2557D-01, .2737D+00, - + .2504D+00, -.4620D-01, -.2680D-02, -.2680D-02, .2458D-01, - + .4594D+00, .2914D-01, .2767D+00, - + .2403D+00, -.4388D-01, -.2473D-02, -.2473D-02, .2279D-01, - + .4609D+00, .3215D-01, .2791D+00, - + .2311D+00, -.4178D-01, -.2292D-02, -.2292D-02, .2126D-01, - + .4623D+00, .3492D-01, .2813D+00 / - DATA ((PARTON(I,N,29),I=1,8),N=17,25)/ - + .2230D+00, -.3997D-01, -.2140D-02, -.2140D-02, .1999D-01, - + .4634D+00, .3735D-01, .2832D+00, - + .2131D+00, -.3781D-01, -.1965D-02, -.1965D-02, .1854D-01, - + .4648D+00, .4031D-01, .2855D+00, - + .2044D+00, -.3592D-01, -.1816D-02, -.1816D-02, .1732D-01, - + .4661D+00, .4298D-01, .2876D+00, - + .1961D+00, -.3414D-01, -.1681D-02, -.1681D-02, .1622D-01, - + .4673D+00, .4554D-01, .2896D+00, - + .1890D+00, -.3267D-01, -.1572D-02, -.1572D-02, .1533D-01, - + .4685D+00, .4773D-01, .2914D+00, - + .1820D+00, -.3121D-01, -.1467D-02, -.1467D-02, .1447D-01, - + .4696D+00, .4994D-01, .2932D+00, - + .1756D+00, -.2990D-01, -.1375D-02, -.1375D-02, .1373D-01, - + .4708D+00, .5198D-01, .2949D+00, - + .1695D+00, -.2866D-01, -.1290D-02, -.1290D-02, .1303D-01, - + .4720D+00, .5397D-01, .2966D+00, - + .1643D+00, -.2761D-01, -.1219D-02, -.1219D-02, .1245D-01, - + .4731D+00, .5570D-01, .2981D+00 / - DATA ((PARTON(I,N,30),I=1,8),N=1,8)/ - + .4072D+00, -.8504D-01, -.6858D-02, -.6858D-02, .7668D-01, - + .4389D+00, -.7657D-02, .2481D+00, - + .3903D+00, -.7993D-01, -.6149D-02, -.6149D-02, .6539D-01, - + .4435D+00, -.1705D-02, .2537D+00, - + .3776D+00, -.7625D-01, -.5668D-02, -.5668D-02, .5831D-01, - + .4467D+00, .2563D-02, .2575D+00, - + .3633D+00, -.7223D-01, -.5170D-02, -.5170D-02, .5148D-01, - + .4499D+00, .7203D-02, .2617D+00, - + .3466D+00, -.6770D-01, -.4641D-02, -.4641D-02, .4476D-01, - + .4534D+00, .1243D-01, .2662D+00, - + .3348D+00, -.6461D-01, -.4297D-02, -.4297D-02, .4069D-01, - + .4557D+00, .1602D-01, .2692D+00, - + .3258D+00, -.6230D-01, -.4050D-02, -.4050D-02, .3791D-01, - + .4574D+00, .1869D-01, .2714D+00, - + .3128D+00, -.5902D-01, -.3711D-02, -.3711D-02, .3426D-01, - + .4598D+00, .2254D-01, .2746D+00 / - DATA ((PARTON(I,N,30),I=1,8),N=9,16)/ - + .3035D+00, -.5675D-01, -.3485D-02, -.3485D-02, .3194D-01, - + .4615D+00, .2523D-01, .2769D+00, - + .2857D+00, -.5248D-01, -.3079D-02, -.3079D-02, .2799D-01, - + .4644D+00, .3033D-01, .2810D+00, - + .2701D+00, -.4884D-01, -.2751D-02, -.2751D-02, .2497D-01, - + .4668D+00, .3476D-01, .2845D+00, - + .2568D+00, -.4585D-01, -.2493D-02, -.2493D-02, .2269D-01, - + .4687D+00, .3849D-01, .2874D+00, - + .2460D+00, -.4344D-01, -.2294D-02, -.2294D-02, .2098D-01, - + .4702D+00, .4155D-01, .2898D+00, - + .2338D+00, -.4078D-01, -.2082D-02, -.2082D-02, .1921D-01, - + .4722D+00, .4504D-01, .2926D+00, - + .2235D+00, -.3859D-01, -.1913D-02, -.1913D-02, .1782D-01, - + .4736D+00, .4797D-01, .2948D+00, - + .2141D+00, -.3661D-01, -.1766D-02, -.1766D-02, .1663D-01, - + .4748D+00, .5067D-01, .2969D+00 / - DATA ((PARTON(I,N,30),I=1,8),N=17,25)/ - + .2059D+00, -.3491D-01, -.1644D-02, -.1644D-02, .1563D-01, - + .4758D+00, .5305D-01, .2986D+00, - + .1960D+00, -.3290D-01, -.1503D-02, -.1503D-02, .1450D-01, - + .4770D+00, .5594D-01, .3008D+00, - + .1872D+00, -.3113D-01, -.1383D-02, -.1383D-02, .1354D-01, - + .4781D+00, .5855D-01, .3027D+00, - + .1790D+00, -.2950D-01, -.1276D-02, -.1276D-02, .1267D-01, - + .4792D+00, .6106D-01, .3046D+00, - + .1720D+00, -.2814D-01, -.1189D-02, -.1189D-02, .1196D-01, - + .4802D+00, .6321D-01, .3062D+00, - + .1651D+00, -.2680D-01, -.1105D-02, -.1105D-02, .1128D-01, - + .4812D+00, .6539D-01, .3079D+00, - + .1588D+00, -.2560D-01, -.1033D-02, -.1033D-02, .1069D-01, - + .4823D+00, .6740D-01, .3095D+00, - + .1529D+00, -.2447D-01, -.9660D-03, -.9660D-03, .1013D-01, - + .4833D+00, .6936D-01, .3111D+00, - + .1478D+00, -.2352D-01, -.9107D-03, -.9107D-03, .9669D-02, - + .4843D+00, .7107D-01, .3125D+00 / - DATA ((PARTON(I,N,31),I=1,8),N=1,8)/ - + .4003D+00, -.7867D-01, -.5521D-02, -.5521D-02, .5878D-01, - + .4542D+00, .1048D-01, .2667D+00, - + .3813D+00, -.7353D-01, -.4928D-02, -.4928D-02, .5002D-01, - + .4583D+00, .1617D-01, .2718D+00, - + .3672D+00, -.6985D-01, -.4528D-02, -.4528D-02, .4458D-01, - + .4611D+00, .2025D-01, .2754D+00, - + .3515D+00, -.6587D-01, -.4114D-02, -.4114D-02, .3938D-01, - + .4639D+00, .2469D-01, .2791D+00, - + .3334D+00, -.6141D-01, -.3676D-02, -.3676D-02, .3430D-01, - + .4670D+00, .2970D-01, .2832D+00, - + .3207D+00, -.5838D-01, -.3392D-02, -.3392D-02, .3123D-01, - + .4690D+00, .3314D-01, .2860D+00, - + .3112D+00, -.5613D-01, -.3188D-02, -.3188D-02, .2914D-01, - + .4705D+00, .3571D-01, .2880D+00, - + .2973D+00, -.5295D-01, -.2910D-02, -.2910D-02, .2640D-01, - + .4726D+00, .3941D-01, .2910D+00 / - DATA ((PARTON(I,N,31),I=1,8),N=9,16)/ - + .2876D+00, -.5076D-01, -.2724D-02, -.2724D-02, .2465D-01, - + .4742D+00, .4201D-01, .2931D+00, - + .2690D+00, -.4667D-01, -.2393D-02, -.2393D-02, .2167D-01, - + .4768D+00, .4692D-01, .2969D+00, - + .2529D+00, -.4320D-01, -.2127D-02, -.2127D-02, .1939D-01, - + .4789D+00, .5120D-01, .3001D+00, - + .2393D+00, -.4037D-01, -.1918D-02, -.1918D-02, .1765D-01, - + .4806D+00, .5481D-01, .3028D+00, - + .2283D+00, -.3810D-01, -.1758D-02, -.1758D-02, .1634D-01, - + .4820D+00, .5777D-01, .3050D+00, - + .2160D+00, -.3561D-01, -.1588D-02, -.1588D-02, .1498D-01, - + .4838D+00, .6117D-01, .3077D+00, - + .2056D+00, -.3357D-01, -.1453D-02, -.1453D-02, .1390D-01, - + .4851D+00, .6402D-01, .3098D+00, - + .1963D+00, -.3174D-01, -.1336D-02, -.1336D-02, .1297D-01, - + .4861D+00, .6664D-01, .3116D+00 / - DATA ((PARTON(I,N,31),I=1,8),N=17,25)/ - + .1881D+00, -.3017D-01, -.1239D-02, -.1239D-02, .1219D-01, - + .4870D+00, .6895D-01, .3133D+00, - + .1784D+00, -.2832D-01, -.1128D-02, -.1128D-02, .1130D-01, - + .4881D+00, .7178D-01, .3153D+00, - + .1697D+00, -.2671D-01, -.1034D-02, -.1034D-02, .1054D-01, - + .4891D+00, .7433D-01, .3171D+00, - + .1617D+00, -.2521D-01, -.9498D-03, -.9498D-03, .9856D-02, - + .4901D+00, .7678D-01, .3188D+00, - + .1549D+00, -.2398D-01, -.8821D-03, -.8821D-03, .9298D-02, - + .4909D+00, .7888D-01, .3204D+00, - + .1482D+00, -.2277D-01, -.8175D-03, -.8175D-03, .8759D-02, - + .4919D+00, .8102D-01, .3219D+00, - + .1422D+00, -.2169D-01, -.7614D-03, -.7614D-03, .8286D-02, - + .4928D+00, .8300D-01, .3234D+00, - + .1364D+00, -.2068D-01, -.7097D-03, -.7097D-03, .7844D-02, - + .4938D+00, .8493D-01, .3249D+00, - + .1316D+00, -.1983D-01, -.6672D-03, -.6672D-03, .7477D-02, - + .4947D+00, .8661D-01, .3263D+00 / - DATA ((PARTON(I,N,32),I=1,8),N=1,8)/ - + .3742D+00, -.6511D-01, -.3392D-02, -.3392D-02, .3258D-01, - + .4808D+00, .4719D-01, .3010D+00, - + .3521D+00, -.6018D-01, -.3001D-02, -.3001D-02, .2791D-01, - + .4839D+00, .5237D-01, .3052D+00, - + .3361D+00, -.5670D-01, -.2737D-02, -.2737D-02, .2505D-01, - + .4860D+00, .5609D-01, .3081D+00, - + .3185D+00, -.5297D-01, -.2467D-02, -.2467D-02, .2233D-01, - + .4882D+00, .6013D-01, .3112D+00, - + .2986D+00, -.4886D-01, -.2182D-02, -.2182D-02, .1966D-01, - + .4905D+00, .6470D-01, .3146D+00, - + .2849D+00, -.4610D-01, -.1999D-02, -.1999D-02, .1805D-01, - + .4921D+00, .6785D-01, .3169D+00, - + .2747D+00, -.4407D-01, -.1869D-02, -.1869D-02, .1694D-01, - + .4932D+00, .7020D-01, .3186D+00, - + .2601D+00, -.4123D-01, -.1691D-02, -.1691D-02, .1547D-01, - + .4949D+00, .7359D-01, .3211D+00 / - DATA ((PARTON(I,N,32),I=1,8),N=9,16)/ - + .2500D+00, -.3928D-01, -.1573D-02, -.1573D-02, .1453D-01, - + .4962D+00, .7601D-01, .3230D+00, - + .2310D+00, -.3569D-01, -.1365D-02, -.1365D-02, .1288D-01, - + .4983D+00, .8054D-01, .3262D+00, - + .2147D+00, -.3270D-01, -.1200D-02, -.1200D-02, .1159D-01, - + .5000D+00, .8449D-01, .3289D+00, - + .2012D+00, -.3027D-01, -.1071D-02, -.1071D-02, .1059D-01, - + .5013D+00, .8784D-01, .3312D+00, - + .1904D+00, -.2836D-01, -.9736D-03, -.9736D-03, .9828D-02, - + .5025D+00, .9061D-01, .3331D+00, - + .1785D+00, -.2628D-01, -.8710D-03, -.8710D-03, .9016D-02, - + .5042D+00, .9383D-01, .3355D+00, - + .1686D+00, -.2458D-01, -.7903D-03, -.7903D-03, .8367D-02, - + .5052D+00, .9650D-01, .3373D+00, - + .1597D+00, -.2308D-01, -.7210D-03, -.7210D-03, .7801D-02, - + .5061D+00, .9897D-01, .3390D+00 / - DATA ((PARTON(I,N,32),I=1,8),N=17,25)/ - + .1521D+00, -.2180D-01, -.6638D-03, -.6638D-03, .7325D-02, - + .5068D+00, .1012D+00, .3404D+00, - + .1430D+00, -.2030D-01, -.5987D-03, -.5987D-03, .6774D-02, - + .5077D+00, .1038D+00, .3422D+00, - + .1351D+00, -.1901D-01, -.5444D-03, -.5444D-03, .6303D-02, - + .5086D+00, .1062D+00, .3438D+00, - + .1278D+00, -.1782D-01, -.4960D-03, -.4960D-03, .5874D-02, - + .5094D+00, .1086D+00, .3453D+00, - + .1217D+00, -.1685D-01, -.4574D-03, -.4574D-03, .5525D-02, - + .5101D+00, .1106D+00, .3467D+00, - + .1157D+00, -.1590D-01, -.4208D-03, -.4208D-03, .5188D-02, - + .5109D+00, .1127D+00, .3481D+00, - + .1103D+00, -.1507D-01, -.3893D-03, -.3893D-03, .4891D-02, - + .5117D+00, .1146D+00, .3495D+00, - + .1052D+00, -.1428D-01, -.3604D-03, -.3604D-03, .4614D-02, - + .5125D+00, .1164D+00, .3508D+00, - + .1010D+00, -.1363D-01, -.3369D-03, -.3369D-03, .4384D-02, - + .5132D+00, .1181D+00, .3520D+00 / - DATA ((PARTON(I,N,33),I=1,8),N=1,8)/ - + .3344D+00, -.5141D-01, -.1931D-02, -.1931D-02, .1694D-01, - + .5030D+00, .8407D-01, .3318D+00, - + .3108D+00, -.4700D-01, -.1691D-02, -.1691D-02, .1486D-01, - + .5053D+00, .8877D-01, .3352D+00, - + .2941D+00, -.4391D-01, -.1530D-02, -.1530D-02, .1357D-01, - + .5069D+00, .9214D-01, .3376D+00, - + .2759D+00, -.4065D-01, -.1367D-02, -.1367D-02, .1232D-01, - + .5084D+00, .9580D-01, .3401D+00, - + .2557D+00, -.3709D-01, -.1196D-02, -.1196D-02, .1106D-01, - + .5102D+00, .9994D-01, .3428D+00, - + .2420D+00, -.3473D-01, -.1087D-02, -.1087D-02, .1027D-01, - + .5113D+00, .1028D+00, .3447D+00, - + .2319D+00, -.3301D-01, -.1010D-02, -.1010D-02, .9716D-02, - + .5122D+00, .1049D+00, .3462D+00, - + .2176D+00, -.3061D-01, -.9060D-03, -.9060D-03, .8962D-02, - + .5135D+00, .1080D+00, .3482D+00 / - DATA ((PARTON(I,N,33),I=1,8),N=9,16)/ - + .2078D+00, -.2899D-01, -.8375D-03, -.8376D-03, .8461D-02, - + .5146D+00, .1103D+00, .3498D+00, - + .1896D+00, -.2603D-01, -.7174D-03, -.7174D-03, .7565D-02, - + .5163D+00, .1144D+00, .3525D+00, - + .1742D+00, -.2360D-01, -.6229D-03, -.6229D-03, .6836D-02, - + .5177D+00, .1181D+00, .3549D+00, - + .1617D+00, -.2165D-01, -.5505D-03, -.5505D-03, .6257D-02, - + .5188D+00, .1211D+00, .3569D+00, - + .1518D+00, -.2012D-01, -.4958D-03, -.4958D-03, .5804D-02, - + .5198D+00, .1237D+00, .3585D+00, - + .1410D+00, -.1848D-01, -.4390D-03, -.4390D-03, .5318D-02, - + .5214D+00, .1268D+00, .3608D+00, - + .1321D+00, -.1716D-01, -.3948D-03, -.3948D-03, .4925D-02, - + .5223D+00, .1293D+00, .3624D+00, - + .1242D+00, -.1599D-01, -.3571D-03, -.3571D-03, .4579D-02, - + .5231D+00, .1316D+00, .3639D+00 / - DATA ((PARTON(I,N,33),I=1,8),N=17,25)/ - + .1175D+00, -.1501D-01, -.3262D-03, -.3262D-03, .4288D-02, - + .5238D+00, .1337D+00, .3652D+00, - + .1096D+00, -.1387D-01, -.2915D-03, -.2915D-03, .3949D-02, - + .5246D+00, .1362D+00, .3667D+00, - + .1028D+00, -.1289D-01, -.2627D-03, -.2627D-03, .3658D-02, - + .5254D+00, .1385D+00, .3682D+00, - + .9645D-01, -.1200D-01, -.2373D-03, -.2373D-03, .3394D-02, - + .5262D+00, .1408D+00, .3696D+00, - + .9127D-01, -.1128D-01, -.2172D-03, -.2172D-03, .3179D-02, - + .5269D+00, .1427D+00, .3709D+00, - + .8622D-01, -.1058D-01, -.1983D-03, -.1983D-03, .2971D-02, - + .5276D+00, .1447D+00, .3722D+00, - + .8174D-01, -.9968D-02, -.1821D-03, -.1821D-03, .2789D-02, - + .5283D+00, .1465D+00, .3734D+00, - + .7754D-01, -.9396D-02, -.1674D-03, -.1674D-03, .2620D-02, - + .5291D+00, .1484D+00, .3747D+00, - + .7402D-01, -.8921D-02, -.1555D-03, -.1555D-03, .2479D-02, - + .5297D+00, .1499D+00, .3757D+00 / - DATA ((PARTON(I,N,34),I=1,8),N=1,8)/ - + .2848D+00, -.3857D-01, -.1007D-02, -.1007D-02, .8444D-02, - + .5219D+00, .1210D+00, .3596D+00, - + .2616D+00, -.3485D-01, -.8724D-03, -.8724D-03, .7716D-02, - + .5236D+00, .1252D+00, .3623D+00, - + .2452D+00, -.3229D-01, -.7831D-03, -.7831D-03, .7228D-02, - + .5246D+00, .1283D+00, .3642D+00, - + .2278D+00, -.2961D-01, -.6926D-03, -.6926D-03, .6717D-02, - + .5257D+00, .1316D+00, .3662D+00, - + .2086D+00, -.2672D-01, -.5991D-03, -.5991D-03, .6160D-02, - + .5269D+00, .1353D+00, .3685D+00, - + .1958D+00, -.2483D-01, -.5399D-03, -.5399D-03, .5786D-02, - + .5278D+00, .1379D+00, .3700D+00, - + .1864D+00, -.2346D-01, -.4984D-03, -.4984D-03, .5510D-02, - + .5284D+00, .1398D+00, .3712D+00, - + .1733D+00, -.2157D-01, -.4426D-03, -.4426D-03, .5119D-02, - + .5294D+00, .1426D+00, .3729D+00 / - DATA ((PARTON(I,N,34),I=1,8),N=9,16)/ - + .1644D+00, -.2030D-01, -.4063D-03, -.4063D-03, .4851D-02, - + .5304D+00, .1447D+00, .3743D+00, - + .1481D+00, -.1801D-01, -.3431D-03, -.3431D-03, .4352D-02, - + .5318D+00, .1485D+00, .3766D+00, - + .1346D+00, -.1614D-01, -.2941D-03, -.2941D-03, .3933D-02, - + .5329D+00, .1519D+00, .3786D+00, - + .1237D+00, -.1467D-01, -.2570D-03, -.2570D-03, .3592D-02, - + .5339D+00, .1547D+00, .3803D+00, - + .1152D+00, -.1353D-01, -.2293D-03, -.2293D-03, .3323D-02, - + .5348D+00, .1571D+00, .3818D+00, - + .1059D+00, -.1231D-01, -.2008D-03, -.2008D-03, .3032D-02, - + .5364D+00, .1600D+00, .3840D+00, - + .9846D-01, -.1134D-01, -.1788D-03, -.1788D-03, .2795D-02, - + .5373D+00, .1624D+00, .3854D+00, - + .9188D-01, -.1049D-01, -.1602D-03, -.1602D-03, .2587D-02, - + .5381D+00, .1646D+00, .3868D+00 / - DATA ((PARTON(I,N,34),I=1,8),N=17,25)/ - + .8631D-01, -.9785D-02, -.1452D-03, -.1452D-03, .2411D-02, - + .5387D+00, .1666D+00, .3880D+00, - + .7983D-01, -.8969D-02, -.1284D-03, -.1284D-03, .2207D-02, - + .5396D+00, .1690D+00, .3895D+00, - + .7427D-01, -.8275D-02, -.1146D-03, -.1146D-03, .2033D-02, - + .5403D+00, .1712D+00, .3909D+00, - + .6919D-01, -.7650D-02, -.1025D-03, -.1025D-03, .1875D-02, - + .5411D+00, .1734D+00, .3922D+00, - + .6506D-01, -.7144D-02, -.9307D-04, -.9307D-04, .1747D-02, - + .5419D+00, .1753D+00, .3935D+00, - + .6105D-01, -.6659D-02, -.8425D-04, -.8425D-04, .1624D-02, - + .5426D+00, .1772D+00, .3947D+00, - + .5753D-01, -.6235D-02, -.7676D-04, -.7677D-04, .1517D-02, - + .5434D+00, .1790D+00, .3959D+00, - + .5425D-01, -.5844D-02, -.7001D-04, -.7001D-04, .1417D-02, - + .5441D+00, .1808D+00, .3971D+00, - + .5152D-01, -.5520D-02, -.6457D-04, -.6457D-04, .1335D-02, - + .5448D+00, .1824D+00, .3981D+00 / - DATA ((PARTON(I,N,35),I=1,8),N=1,8)/ - + .2300D+00, -.2727D-01, -.4743D-03, -.4743D-03, .4145D-02, - + .5384D+00, .1581D+00, .3850D+00, - + .2086D+00, -.2435D-01, -.4059D-03, -.4059D-03, .3978D-02, - + .5395D+00, .1620D+00, .3873D+00, - + .1937D+00, -.2237D-01, -.3609D-03, -.3609D-03, .3825D-02, - + .5402D+00, .1647D+00, .3888D+00, - + .1781D+00, -.2031D-01, -.3158D-03, -.3158D-03, .3630D-02, - + .5409D+00, .1677D+00, .3903D+00, - + .1611D+00, -.1812D-01, -.2696D-03, -.2696D-03, .3382D-02, - + .5417D+00, .1710D+00, .3921D+00, - + .1500D+00, -.1670D-01, -.2408D-03, -.2408D-03, .3199D-02, - + .5422D+00, .1734D+00, .3933D+00, - + .1419D+00, -.1568D-01, -.2206D-03, -.2206D-03, .3056D-02, - + .5427D+00, .1751D+00, .3943D+00, - + .1306D+00, -.1428D-01, -.1938D-03, -.1938D-03, .2846D-02, - + .5435D+00, .1777D+00, .3957D+00 / - DATA ((PARTON(I,N,35),I=1,8),N=9,16)/ - + .1231D+00, -.1336D-01, -.1765D-03, -.1765D-03, .2696D-02, - + .5444D+00, .1796D+00, .3970D+00, - + .1094D+00, -.1170D-01, -.1468D-03, -.1468D-03, .2413D-02, - + .5455D+00, .1831D+00, .3990D+00, - + .9823D-01, -.1037D-01, -.1241D-03, -.1241D-03, .2169D-02, - + .5464D+00, .1862D+00, .4007D+00, - + .8938D-01, -.9332D-02, -.1071D-03, -.1071D-03, .1970D-02, - + .5473D+00, .1888D+00, .4022D+00, - + .8249D-01, -.8535D-02, -.9450D-04, -.9450D-04, .1812D-02, - + .5481D+00, .1911D+00, .4035D+00, - + .7514D-01, -.7695D-02, -.8172D-04, -.8172D-04, .1642D-02, - + .5498D+00, .1939D+00, .4056D+00, - + .6925D-01, -.7030D-02, -.7199D-04, -.7199D-04, .1504D-02, - + .5506D+00, .1962D+00, .4070D+00, - + .6410D-01, -.6455D-02, -.6386D-04, -.6386D-04, .1383D-02, - + .5514D+00, .1983D+00, .4083D+00 / - DATA ((PARTON(I,N,35),I=1,8),N=17,25)/ - + .5979D-01, -.5977D-02, -.5731D-04, -.5731D-04, .1281D-02, - + .5521D+00, .2001D+00, .4094D+00, - + .5482D-01, -.5432D-02, -.5008D-04, -.5008D-04, .1164D-02, - + .5530D+00, .2025D+00, .4109D+00, - + .5059D-01, -.4974D-02, -.4422D-04, -.4422D-04, .1064D-02, - + .5539D+00, .2046D+00, .4122D+00, - + .4677D-01, -.4563D-02, -.3913D-04, -.3913D-04, .9749D-03, - + .5548D+00, .2068D+00, .4136D+00, - + .4368D-01, -.4234D-02, -.3519D-04, -.3519D-04, .9028D-03, - + .5556D+00, .2087D+00, .4148D+00, - + .4071D-01, -.3920D-02, -.3154D-04, -.3154D-04, .8339D-03, - + .5565D+00, .2106D+00, .4161D+00, - + .3812D-01, -.3648D-02, -.2847D-04, -.2847D-04, .7740D-03, - + .5573D+00, .2124D+00, .4173D+00, - + .3572D-01, -.3398D-02, -.2572D-04, -.2572D-04, .7189D-03, - + .5581D+00, .2141D+00, .4185D+00, - + .3374D-01, -.3193D-02, -.2352D-04, -.2352D-04, .6736D-03, - + .5588D+00, .2157D+00, .4195D+00 / - DATA ((PARTON(I,N,36),I=1,8),N=1,8)/ - + .1746D+00, -.1796D-01, -.1970D-03, -.1970D-03, .2037D-02, - + .5530D+00, .1959D+00, .4088D+00, - + .1562D+00, -.1584D-01, -.1663D-03, -.1663D-03, .2038D-02, - + .5537D+00, .1994D+00, .4106D+00, - + .1437D+00, -.1441D-01, -.1463D-03, -.1463D-03, .1995D-02, - + .5541D+00, .2019D+00, .4118D+00, - + .1306D+00, -.1295D-01, -.1265D-03, -.1265D-03, .1916D-02, - + .5545D+00, .2046D+00, .4130D+00, - + .1167D+00, -.1141D-01, -.1064D-03, -.1064D-03, .1795D-02, - + .5550D+00, .2077D+00, .4144D+00, - + .1076D+00, -.1043D-01, -.9405D-04, -.9405D-04, .1698D-02, - + .5554D+00, .2098D+00, .4154D+00, - + .1011D+00, -.9729D-02, -.8548D-04, -.8548D-04, .1620D-02, - + .5557D+00, .2114D+00, .4162D+00, - + .9220D-01, -.8779D-02, -.7418D-04, -.7418D-04, .1504D-02, - + .5563D+00, .2137D+00, .4174D+00 / - DATA ((PARTON(I,N,36),I=1,8),N=9,16)/ - + .8625D-01, -.8152D-02, -.6696D-04, -.6696D-04, .1420D-02, - + .5571D+00, .2155D+00, .4185D+00, - + .7559D-01, -.7045D-02, -.5471D-04, -.5470D-04, .1259D-02, - + .5580D+00, .2187D+00, .4202D+00, - + .6703D-01, -.6170D-02, -.4548D-04, -.4548D-04, .1121D-02, - + .5588D+00, .2215D+00, .4217D+00, - + .6033D-01, -.5495D-02, -.3868D-04, -.3868D-04, .1009D-02, - + .5596D+00, .2240D+00, .4230D+00, - + .5517D-01, -.4982D-02, -.3372D-04, -.3372D-04, .9211D-03, - + .5603D+00, .2261D+00, .4242D+00, - + .4973D-01, -.4446D-02, -.2873D-04, -.2873D-04, .8265D-03, - + .5621D+00, .2289D+00, .4263D+00, - + .4542D-01, -.4026D-02, -.2498D-04, -.2498D-04, .7508D-03, - + .5629D+00, .2310D+00, .4276D+00, - + .4170D-01, -.3667D-02, -.2189D-04, -.2189D-04, .6850D-03, - + .5638D+00, .2331D+00, .4288D+00 / - DATA ((PARTON(I,N,36),I=1,8),N=17,25)/ - + .3860D-01, -.3371D-02, -.1942D-04, -.1942D-04, .6302D-03, - + .5645D+00, .2349D+00, .4299D+00, - + .3506D-01, -.3036D-02, -.1673D-04, -.1672D-04, .5675D-03, - + .5655D+00, .2371D+00, .4313D+00, - + .3208D-01, -.2757D-02, -.1457D-04, -.1457D-04, .5147D-03, - + .5664D+00, .2393D+00, .4327D+00, - + .2942D-01, -.2509D-02, -.1272D-04, -.1272D-04, .4677D-03, - + .5675D+00, .2414D+00, .4341D+00, - + .2728D-01, -.2312D-02, -.1129D-04, -.1130D-04, .4301D-03, - + .5684D+00, .2433D+00, .4353D+00, - + .2524D-01, -.2125D-02, -.9996D-05, -.9993D-05, .3944D-03, - + .5694D+00, .2452D+00, .4367D+00, - + .2347D-01, -.1965D-02, -.8907D-05, -.8910D-05, .3636D-03, - + .5703D+00, .2470D+00, .4379D+00, - + .2185D-01, -.1818D-02, -.7946D-05, -.7948D-05, .3355D-03, - + .5713D+00, .2488D+00, .4391D+00, - + .2052D-01, -.1699D-02, -.7186D-05, -.7184D-05, .3125D-03, - + .5720D+00, .2503D+00, .4401D+00 / - DATA ((PARTON(I,N,37),I=1,8),N=1,8)/ - + .1227D+00, -.1082D-01, -.6974D-04, -.6974D-04, .9876D-03, - + .5663D+00, .2351D+00, .4314D+00, - + .1083D+00, -.9415D-02, -.5794D-04, -.5794D-04, .1010D-02, - + .5668D+00, .2384D+00, .4329D+00, - + .9856D-01, -.8482D-02, -.5035D-04, -.5035D-04, .9945D-03, - + .5671D+00, .2407D+00, .4339D+00, - + .8856D-01, -.7535D-02, -.4291D-04, -.4291D-04, .9552D-03, - + .5673D+00, .2432D+00, .4349D+00, - + .7804D-01, -.6555D-02, -.3549D-04, -.3549D-04, .8905D-03, - + .5676D+00, .2459D+00, .4360D+00, - + .7128D-01, -.5933D-02, -.3097D-04, -.3097D-04, .8375D-03, - + .5678D+00, .2478D+00, .4368D+00, - + .6648D-01, -.5495D-02, -.2787D-04, -.2787D-04, .7950D-03, - + .5680D+00, .2493D+00, .4374D+00, - + .5995D-01, -.4907D-02, -.2383D-04, -.2383D-04, .7313D-03, - + .5685D+00, .2514D+00, .4384D+00 / - DATA ((PARTON(I,N,37),I=1,8),N=9,16)/ - + .5564D-01, -.4522D-02, -.2128D-04, -.2128D-04, .6858D-03, - + .5692D+00, .2532D+00, .4395D+00, - + .4804D-01, -.3852D-02, -.1701D-04, -.1701D-04, .5998D-03, - + .5700D+00, .2561D+00, .4409D+00, - + .4202D-01, -.3329D-02, -.1385D-04, -.1385D-04, .5273D-03, - + .5706D+00, .2587D+00, .4422D+00, - + .3738D-01, -.2931D-02, -.1157D-04, -.1157D-04, .4693D-03, - + .5713D+00, .2610D+00, .4433D+00, - + .3385D-01, -.2632D-02, -.9923D-05, -.9924D-05, .4242D-03, - + .5720D+00, .2630D+00, .4445D+00, - + .3017D-01, -.2324D-02, -.8292D-05, -.8292D-05, .3764D-03, - + .5737D+00, .2657D+00, .4465D+00, - + .2729D-01, -.2084D-02, -.7085D-05, -.7085D-05, .3387D-03, - + .5746D+00, .2677D+00, .4477D+00, - + .2482D-01, -.1881D-02, -.6102D-05, -.6103D-05, .3062D-03, - + .5754D+00, .2697D+00, .4488D+00 / - DATA ((PARTON(I,N,37),I=1,8),N=17,25)/ - + .2279D-01, -.1716D-02, -.5328D-05, -.5329D-05, .2794D-03, - + .5762D+00, .2714D+00, .4499D+00, - + .2049D-01, -.1530D-02, -.4493D-05, -.4490D-05, .2491D-03, - + .5772D+00, .2736D+00, .4513D+00, - + .1858D-01, -.1377D-02, -.3835D-05, -.3832D-05, .2239D-03, - + .5782D+00, .2757D+00, .4527D+00, - + .1688D-01, -.1242D-02, -.3275D-05, -.3273D-05, .2017D-03, - + .5794D+00, .2778D+00, .4541D+00, - + .1553D-01, -.1136D-02, -.2848D-05, -.2848D-05, .1840D-03, - + .5804D+00, .2797D+00, .4554D+00, - + .1426D-01, -.1036D-02, -.2468D-05, -.2466D-05, .1674D-03, - + .5816D+00, .2816D+00, .4567D+00, - + .1317D-01, -.9512D-03, -.2146D-05, -.2150D-05, .1532D-03, - + .5827D+00, .2835D+00, .4580D+00, - + .1217D-01, -.8741D-03, -.1869D-05, -.1870D-05, .1402D-03, - + .5837D+00, .2852D+00, .4593D+00, - + .1135D-01, -.8117D-03, -.1651D-05, -.1653D-05, .1297D-03, - + .5846D+00, .2868D+00, .4603D+00 / - DATA ((PARTON(I,N,38),I=1,8),N=1,8)/ - + .7811D-01, -.5794D-02, -.1989D-04, -.1989D-04, .4503D-03, - + .5788D+00, .2767D+00, .4534D+00, - + .6785D-01, -.4966D-02, -.1621D-04, -.1621D-04, .4606D-03, - + .5793D+00, .2798D+00, .4548D+00, - + .6103D-01, -.4423D-02, -.1387D-04, -.1387D-04, .4509D-03, - + .5795D+00, .2820D+00, .4557D+00, - + .5413D-01, -.3881D-02, -.1161D-04, -.1161D-04, .4289D-03, - + .5797D+00, .2843D+00, .4565D+00, - + .4698D-01, -.3326D-02, -.9398D-05, -.9394D-05, .3944D-03, - + .5799D+00, .2868D+00, .4575D+00, - + .4246D-01, -.2980D-02, -.8063D-05, -.8064D-05, .3670D-03, - + .5800D+00, .2886D+00, .4582D+00, - + .3927D-01, -.2738D-02, -.7168D-05, -.7163D-05, .3455D-03, - + .5802D+00, .2900D+00, .4587D+00, - + .3499D-01, -.2416D-02, -.6004D-05, -.6002D-05, .3139D-03, - + .5806D+00, .2920D+00, .4596D+00 / - DATA ((PARTON(I,N,38),I=1,8),N=9,16)/ - + .3220D-01, -.2209D-02, -.5284D-05, -.5284D-05, .2918D-03, - + .5813D+00, .2936D+00, .4606D+00, - + .2734D-01, -.1851D-02, -.4095D-05, -.4093D-05, .2508D-03, - + .5819D+00, .2963D+00, .4618D+00, - + .2355D-01, -.1576D-02, -.3236D-05, -.3233D-05, .2170D-03, - + .5824D+00, .2987D+00, .4628D+00, - + .2068D-01, -.1370D-02, -.2624D-05, -.2624D-05, .1906D-03, - + .5829D+00, .3008D+00, .4638D+00, - + .1853D-01, -.1217D-02, -.2190D-05, -.2190D-05, .1704D-03, - + .5835D+00, .3026D+00, .4648D+00, - + .1630D-01, -.1061D-02, -.1768D-05, -.1768D-05, .1493D-03, - + .5853D+00, .3053D+00, .4667D+00, - + .1459D-01, -.9421D-03, -.1462D-05, -.1462D-05, .1330D-03, - + .5861D+00, .3073D+00, .4678D+00, - + .1313D-01, -.8419D-03, -.1217D-05, -.1217D-05, .1191D-03, - + .5868D+00, .3091D+00, .4689D+00 / - DATA ((PARTON(I,N,38),I=1,8),N=17,25)/ - + .1195D-01, -.7610D-03, -.1026D-05, -.1025D-05, .1077D-03, - + .5875D+00, .3107D+00, .4698D+00, - + .1062D-01, -.6712D-03, -.8219D-06, -.8200D-06, .9501D-04, - + .5885D+00, .3128D+00, .4711D+00, - + .9533D-02, -.5979D-03, -.6663D-06, -.6654D-06, .8452D-04, - + .5896D+00, .3149D+00, .4724D+00, - + .8576D-02, -.5341D-03, -.5320D-06, -.5312D-06, .7541D-04, - + .5908D+00, .3169D+00, .4738D+00, - + .7823D-02, -.4843D-03, -.4294D-06, -.4303D-06, .6820D-04, - + .5919D+00, .3188D+00, .4751D+00, - + .7118D-02, -.4380D-03, -.3458D-06, -.3435D-06, .6141D-04, - + .5931D+00, .3207D+00, .4765D+00, - + .6518D-02, -.3988D-03, -.2677D-06, -.2701D-06, .5572D-04, - + .5943D+00, .3225D+00, .4779D+00, - + .5975D-02, -.3636D-03, -.2045D-06, -.2059D-06, .5046D-04, - + .5955D+00, .3243D+00, .4791D+00, - + .5536D-02, -.3353D-03, -.1554D-06, -.1564D-06, .4623D-04, - + .5964D+00, .3258D+00, .4802D+00 / - DATA ((PARTON(I,N,39),I=1,8),N=1,8)/ - + .4325D-01, -.2624D-02, -.4132D-05, -.4136D-05, .1784D-03, - + .5908D+00, .3219D+00, .4754D+00, - + .3690D-01, -.2210D-02, -.3280D-05, -.3281D-05, .1796D-03, - + .5917D+00, .3251D+00, .4770D+00, - + .3275D-01, -.1943D-02, -.2742D-05, -.2742D-05, .1734D-03, - + .5921D+00, .3273D+00, .4779D+00, - + .2862D-01, -.1680D-02, -.2243D-05, -.2239D-05, .1622D-03, - + .5924D+00, .3295D+00, .4788D+00, - + .2441D-01, -.1416D-02, -.1755D-05, -.1753D-05, .1463D-03, - + .5926D+00, .3320D+00, .4797D+00, - + .2179D-01, -.1253D-02, -.1464D-05, -.1464D-05, .1343D-03, - + .5928D+00, .3337D+00, .4803D+00, - + .1996D-01, -.1141D-02, -.1275D-05, -.1272D-05, .1251D-03, - + .5930D+00, .3350D+00, .4808D+00, - + .1754D-01, -.9933D-03, -.1026D-05, -.1022D-05, .1119D-03, - + .5934D+00, .3369D+00, .4816D+00 / - DATA ((PARTON(I,N,39),I=1,8),N=9,16)/ - + .1598D-01, -.8991D-03, -.8815D-06, -.8799D-06, .1030D-03, - + .5941D+00, .3385D+00, .4826D+00, - + .1331D-01, -.7393D-03, -.6381D-06, -.6332D-06, .8676D-04, - + .5945D+00, .3410D+00, .4836D+00, - + .1127D-01, -.6189D-03, -.4653D-06, -.4595D-06, .7382D-04, - + .5948D+00, .3431D+00, .4844D+00, - + .9746D-02, -.5302D-03, -.3425D-06, -.3423D-06, .6393D-04, - + .5951D+00, .3450D+00, .4851D+00, - + .8621D-02, -.4653D-03, -.2586D-06, -.2573D-06, .5650D-04, - + .5955D+00, .3466D+00, .4859D+00, - + .7477D-02, -.3999D-03, -.1767D-06, -.1749D-06, .4892D-04, - + .5972D+00, .3492D+00, .4877D+00, - + .6606D-02, -.3506D-03, -.1190D-06, -.1185D-06, .4315D-04, - + .5978D+00, .3509D+00, .4886D+00, - + .5877D-02, -.3097D-03, -.7662D-07, -.7509D-07, .3827D-04, - + .5983D+00, .3525D+00, .4894D+00 / - DATA ((PARTON(I,N,39),I=1,8),N=17,25)/ - + .5291D-02, -.2770D-03, -.3980D-07, -.3882D-07, .3434D-04, - + .5988D+00, .3540D+00, .4902D+00, - + .4643D-02, -.2412D-03, -.4526D-08, .3801D-09, .3001D-04, - + .5996D+00, .3559D+00, .4913D+00, - + .4117D-02, -.2124D-03, .2466D-07, .2722D-07, .2642D-04, - + .6006D+00, .3578D+00, .4924D+00, - + .3661D-02, -.1876D-03, .5351D-07, .5384D-07, .2333D-04, - + .6016D+00, .3597D+00, .4936D+00, - + .3306D-02, -.1684D-03, .7430D-07, .7430D-07, .2084D-04, - + .6027D+00, .3614D+00, .4948D+00, - + .2977D-02, -.1508D-03, .8631D-07, .8726D-07, .1857D-04, - + .6039D+00, .3633D+00, .4961D+00, - + .2700D-02, -.1360D-03, .1075D-06, .1052D-06, .1664D-04, - + .6051D+00, .3650D+00, .4974D+00, - + .2452D-02, -.1229D-03, .1203D-06, .1166D-06, .1474D-04, - + .6062D+00, .3667D+00, .4986D+00, - + .2254D-02, -.1124D-03, .1292D-06, .1292D-06, .1326D-04, - + .6072D+00, .3682D+00, .4997D+00 / - DATA ((PARTON(I,N,40),I=1,8),N=1,8)/ - + .1932D-01, -.9151D-03, -.4940D-06, -.4933D-06, .5512D-04, - + .6029D+00, .3729D+00, .4982D+00, - + .1613D-01, -.7545D-03, -.3724D-06, -.3697D-06, .5409D-04, - + .6046D+00, .3765D+00, .5003D+00, - + .1409D-01, -.6531D-03, -.2868D-06, -.2872D-06, .5122D-04, - + .6054D+00, .3789D+00, .5015D+00, - + .1209D-01, -.5547D-03, -.2252D-06, -.2234D-06, .4696D-04, - + .6062D+00, .3813D+00, .5027D+00, - + .1009D-01, -.4579D-03, -.1632D-06, -.1579D-06, .4131D-04, - + .6068D+00, .3838D+00, .5038D+00, - + .8873D-02, -.3993D-03, -.1170D-06, -.1187D-06, .3733D-04, - + .6071D+00, .3855D+00, .5045D+00, - + .8037D-02, -.3595D-03, -.9242D-07, -.8993D-07, .3441D-04, - + .6074D+00, .3868D+00, .5050D+00, - + .6944D-02, -.3078D-03, -.5658D-07, -.5049D-07, .3031D-04, - + .6078D+00, .3886D+00, .5058D+00 / - DATA ((PARTON(I,N,40),I=1,8),N=9,16)/ - + .6251D-02, -.2754D-03, -.3802D-07, -.3723D-07, .2757D-04, - + .6087D+00, .3903D+00, .5068D+00, - + .5083D-02, -.2212D-03, -.2010D-08, .2555D-08, .2283D-04, - + .6089D+00, .3925D+00, .5076D+00, - + .4213D-02, -.1814D-03, .2554D-07, .2718D-07, .1921D-04, - + .6088D+00, .3943D+00, .5080D+00, - + .3577D-02, -.1526D-03, .4543D-07, .4702D-07, .1650D-04, - + .6088D+00, .3958D+00, .5084D+00, - + .3116D-02, -.1319D-03, .5741D-07, .6037D-07, .1451D-04, - + .6088D+00, .3971D+00, .5088D+00, - + .2654D-02, -.1114D-03, .7468D-07, .7627D-07, .1252D-04, - + .6102D+00, .3994D+00, .5103D+00, - + .2309D-02, -.9623D-04, .8651D-07, .8565D-07, .1107D-04, - + .6103D+00, .4007D+00, .5107D+00, - + .2025D-02, -.8381D-04, .9233D-07, .9255D-07, .9820D-05, - + .6103D+00, .4019D+00, .5111D+00 / - DATA ((PARTON(I,N,40),I=1,8),N=17,25)/ - + .1799D-02, -.7403D-04, .1004D-06, .1028D-06, .8829D-05, - + .6104D+00, .4030D+00, .5114D+00, - + .1554D-02, -.6346D-04, .1111D-06, .1142D-06, .7700D-05, - + .6107D+00, .4045D+00, .5120D+00, - + .1358D-02, -.5509D-04, .1149D-06, .1180D-06, .6710D-05, - + .6111D+00, .4059D+00, .5127D+00, - + .1190D-02, -.4798D-04, .1245D-06, .1267D-06, .5909D-05, - + .6117D+00, .4075D+00, .5134D+00, - + .1061D-02, -.4255D-04, .1353D-06, .1339D-06, .5211D-05, - + .6124D+00, .4090D+00, .5143D+00, - + .9438D-03, -.3764D-04, .1368D-06, .1369D-06, .4551D-05, - + .6132D+00, .4105D+00, .5153D+00, - + .8460D-03, -.3357D-04, .1470D-06, .1434D-06, .3954D-05, - + .6141D+00, .4121D+00, .5163D+00, - + .7595D-03, -.3000D-04, .1524D-06, .1506D-06, .3254D-05, - + .6150D+00, .4136D+00, .5172D+00, - + .6910D-03, -.2717D-04, .1566D-06, .1557D-06, .2720D-05, - + .6157D+00, .4149D+00, .5180D+00 / - DATA ((PARTON(I,N,41),I=1,8),N=1,8)/ - + .5865D-02, -.1992D-03, .2334D-07, .2024D-07, .1183D-04, - + .6155D+00, .4330D+00, .5226D+00, - + .4756D-02, -.1596D-03, .1924D-07, .2505D-07, .1126D-04, - + .6187D+00, .4376D+00, .5259D+00, - + .4065D-02, -.1353D-03, .3120D-07, .3251D-07, .1043D-04, - + .6205D+00, .4406D+00, .5279D+00, - + .3405D-02, -.1122D-03, .2532D-07, .2832D-07, .9470D-05, - + .6222D+00, .4435D+00, .5297D+00, - + .2763D-02, -.9012D-04, .2882D-07, .3213D-07, .8157D-05, - + .6236D+00, .4465D+00, .5315D+00, - + .2381D-02, -.7708D-04, .3763D-07, .3649D-07, .7249D-05, - + .6244D+00, .4483D+00, .5324D+00, - + .2124D-02, -.6836D-04, .3270D-07, .4077D-07, .6623D-05, - + .6248D+00, .4496D+00, .5331D+00, - + .1794D-02, -.5727D-04, .4879D-07, .5026D-07, .5872D-05, - + .6255D+00, .4515D+00, .5340D+00 / - DATA ((PARTON(I,N,41),I=1,8),N=9,16)/ - + .1589D-02, -.5042D-04, .4661D-07, .4841D-07, .5355D-05, - + .6264D+00, .4532D+00, .5350D+00, - + .1252D-02, -.3930D-04, .5427D-07, .6018D-07, .4549D-05, - + .6264D+00, .4550D+00, .5354D+00, - + .1008D-02, -.3136D-04, .6714D-07, .7022D-07, .3921D-05, - + .6257D+00, .4561D+00, .5353D+00, - + .8348D-03, -.2576D-04, .7637D-07, .7873D-07, .3544D-05, - + .6248D+00, .4569D+00, .5348D+00, - + .7121D-03, -.2183D-04, .8373D-07, .8506D-07, .3297D-05, - + .6241D+00, .4576D+00, .5345D+00, - + .5921D-03, -.1802D-04, .9393D-07, .9558D-07, .2956D-05, - + .6245D+00, .4593D+00, .5352D+00, - + .5043D-03, -.1526D-04, .9917D-07, .1008D-06, .2775D-05, - + .6235D+00, .4597D+00, .5347D+00, - + .4336D-03, -.1306D-04, .1028D-06, .1028D-06, .2620D-05, - + .6224D+00, .4599D+00, .5340D+00 / - DATA ((PARTON(I,N,41),I=1,8),N=17,25)/ - + .3785D-03, -.1135D-04, .1108D-06, .1107D-06, .2428D-05, - + .6214D+00, .4603D+00, .5334D+00, - + .3198D-03, -.9543D-05, .1170D-06, .1205D-06, .2229D-05, - + .6202D+00, .4607D+00, .5327D+00, - + .2737D-03, -.8139D-05, .1204D-06, .1218D-06, .1988D-05, - + .6192D+00, .4611D+00, .5321D+00, - + .2353D-03, -.6961D-05, .1286D-06, .1314D-06, .1788D-05, - + .6184D+00, .4617D+00, .5317D+00, - + .2063D-03, -.6084D-05, .1393D-06, .1378D-06, .1545D-05, - + .6179D+00, .4627D+00, .5316D+00, - + .1802D-03, -.5295D-05, .1381D-06, .1400D-06, .1292D-05, - + .6176D+00, .4635D+00, .5315D+00, - + .1589D-03, -.4666D-05, .1493D-06, .1462D-06, .9970D-06, - + .6172D+00, .4644D+00, .5315D+00, - + .1404D-03, -.4112D-05, .1530D-06, .1510D-06, .6898D-06, - + .6171D+00, .4656D+00, .5317D+00, - + .1259D-03, -.3680D-05, .1571D-06, .1551D-06, .3925D-06, - + .6168D+00, .4665D+00, .5316D+00 / -C - X = DX - Q = DQ - Q2 = DQ*DQ -*...CHECK OF X AND Q2 VALUES : -C IF ( (X.LT.1.0D-4) .OR. (X.GT.1.0D0) ) THEN -C WRITE(6,91) -C 91 FORMAT (2X,'PARTON INTERPOLATION: X OUT OF RANGE') -C GOTO 60 -C ENDIF -C IF ( (Q2.LT.0.4D0) .OR. (Q2.GT.1.D4) ) THEN -C WRITE(6,92) -C 92 FORMAT (2X,'PARTON INTERPOLATION: Q2 OUT OF RANGE') -C GOTO 60 -C ENDIF -C -*...INITIALIZATION : -* SELECTION AND READING OF THE GRID : -* FILE - NO. = 11 FOR NLO 'STANDARD' SCENARIO ( FIRST NUMBER IN THE -* GRID: 1.040D-03 ) -* FILE - NO. = 22 FOR NLO 'VALENCE' SCENARIO ( FIRST NUMBER IN THE -* GRID: 9.740D-04 ) -* FILE - NO. = 33 FOR LO 'STANDARD' SCENARIO ( FIRST NUMBER IN THE -* GRID: 1.731D-03 ) -* FILE - NO. = 44 FOR LO 'VALENCE' SCENARIO ( FIRST NUMBER IN THE -* GRID: 1.846D-03 ) - IF (IINI.NE.0) GOTO 16 -C IF (ISET.EQ.1) THEN -C IIREAD=11 -C OPEN(UNIT=11,FILE='stdnloa1.grid',STATUS='OLD') -C ELSE IF (ISET.EQ.2) THEN -C IIREAD=22 -C OPEN(UNIT=22,FILE='valnloa1.grid',STATUS='OLD') -C ELSE IF (ISET.EQ.3) THEN -C IIREAD=33 -C OPEN(UNIT=33,FILE='stdloa1.grid',STATUS='OLD') -C ELSE IF (ISET.EQ.4) THEN -C IIREAD=44 -C OPEN(UNIT=44,FILE='valloa1.grid',STATUS='OLD') -C ELSE -C WRITE(6,93) -C 93 FORMAT (2X,'PARTON INTERPOLATION: ISET OUT OF RANGE') -C GOTO 60 -C END IF -C -C DO 15 M = 1, NX-1 -C DO 15 N = 1, NQ -C READ(IIREAD,90) PARTON(1,N,M), PARTON(2,N,M), PARTON(3,N,M), -C 1 PARTON(4,N,M), PARTON(5,N,M), PARTON(6,N,M), -C 2 PARTON(7,N,M), PARTON(8,N,M) -C 90 FORMAT (8(1PE10.3)) -C 15 CONTINUE -C - IINI = 1 -*....ARRAYS FOR THE INTERPOLATION SUBROUTINE : - DO 10 IQ = 1, NQ - DO 20 IX = 1, NX-1 - XB0 = XB(IX) - XB1 = 1.D0-XB(IX) - XUVF(IX,IQ) = PARTON(1,IQ,IX) / (XB1**3 * XB0**0.7) - XDVF(IX,IQ) = PARTON(2,IQ,IX) / (XB1**4 * XB0**0.6) - XQBF(IX,IQ) = PARTON(3,IQ,IX) / (XB1**7 * XB0**0.3) - XSF(IX,IQ) = PARTON(4,IQ,IX) / (XB1**7 * XB0**0.3) - XGF(IX,IQ) = PARTON(5,IQ,IX) / (XB1**10 * XB0**0.3) - XAPF(IX,IQ) = PARTON(6,IQ,IX) / XB0 - XANF(IX,IQ) = PARTON(7,IQ,IX) / XB0 - XADF(IX,IQ) = PARTON(8,IQ,IX) / XB0 - 20 CONTINUE - XUVF(NX,IQ) = 0.D0 - XDVF(NX,IQ) = 0.D0 - XQBF(NX,IQ) = 0.D0 - XSF(NX,IQ) = 0.D0 - XGF(NX,IQ) = 0.D0 - XAPF(NX,IQ) = 0.D0 - XANF(NX,IQ) = 0.D0 - XADF(NX,IQ) = 0.D0 - 10 CONTINUE - NA(1) = NX - NA(2) = NQ - DO 30 IX = 1, NX - ARRF(IX) = LOG(XB(IX)) - 30 CONTINUE - DO 40 IQ = 1, NQ - ARRF(NX+IQ) = LOG(QS(IQ)) - 40 CONTINUE - 16 CONTINUE -C -*...INTERPOLATION : - XT(1) = LOG(X) - XT(2) = LOG(Q2) - UV = DBFINT(NARG,XT,NA,ARRF,XUVF) * (1.D0-X)**3 * X**0.7 - DUV = UV - DV = DBFINT(NARG,XT,NA,ARRF,XDVF) * (1.D0-X)**4 * X**0.6 - DDV = DV - QB = DBFINT(NARG,XT,NA,ARRF,XQBF) * (1.D0-X)**7 * X**0.3 - DSEA = QB - ST = DBFINT(NARG,XT,NA,ARRF,XSF) * (1.D0-X)**7 * X**0.3 - DSTR = ST - DCHM = ZEROD - DBOT = ZEROD - DTOP = ZEROD - GL = DBFINT(NARG,XT,NA,ARRF,XGF) * (1.D0-X)**10 * X**0.3 - DGL = GL - A1P = DBFINT(NARG,XT,NA,ARRF,XAPF) * X - A1N = DBFINT(NARG,XT,NA,ARRF,XANF) * X - A1D = DBFINT(NARG,XT,NA,ARRF,XADF) * X - 60 RETURN - END diff --git a/PDF/spdf/grsvl2.F b/PDF/spdf/grsvl2.F deleted file mode 100644 index 58ed887b6b2..00000000000 --- a/PDF/spdf/grsvl2.F +++ /dev/null @@ -1,2372 +0,0 @@ -#include "pdf/pilot.h" -********************************************************************* -* * -* POLARIZED RADIATIVELY GENERATED LO AND NLO PARTON DENSITIES * -* AND DIS ASYMMETRIES * -* * -* M. GLUCK, E. REYA, M. STRATMANN AND W. VOGELSANG, * -* (PHYS. REV. D53 (1996) 4775) * -* PROBLEMS/QUESTIONS TO VOGELSANG@V2.RL.AC.UK * -* OR TO STRAT@HAL1.PHYSIK.UNI-DORTMUND.DE * -* * -* INPUT: ISET = number of the parton set : * -* ISET = 1 'STANDARD' SCENARIO, NEXT-TO-LEADING ORDER * -* (MS-bar) * -* (DATA FILE 'STDNLOA1.GRID' UNIT=11, TO BE * -* DEFINED BY THE USER ) * -* ISET = 2 'VALENCE' SCENARIO, NEXT-TO-LEADING ORDER * -* (MS-bar) * -* (DATA FILE 'VALNLOA1.GRID' UNIT=22, TO BE * -* DEFINED BY THE USER ) * -* ISET = 3 'STANDARD' SCENARIO, LEADING ORDER * -* (DATA FILE 'STDLOA1.GRID' UNIT=33, TO BE * -* DEFINED BY THE USER ) * -* ISET = 4 'VALENCE' SCENARIO, LEADING ORDER * -* (DATA FILE 'VALLOA1.GRID' UNIT=44, TO BE * -* DEFINED BY THE USER ) * -* * -* X = Bjorken-x (between 1.E-4 and 1) * -* Q2 = scale in GeV**2 (between 0.4 and 1.E4) * -* (for values outside the allowed range the program * -* writes a warning and extrapolates to the x and * -* Q2 values requested) * -* * -* OUTPUT: UV = x * ( DELTA u - DELTA u(bar) ), * -* DV = x * ( DELTA d - DELTA d(bar) ), * -* QB = x * POLARIZED LIGHT SEA, * -* QB= x * ( (DELTA U(BAR) + DELTA D(BAR))/2 ) * -* ST = x * DELTA STRANGE = x * DELTA STRANGE(BAR) * -* GL = x * DELTA GLUON * -* * -* ( For the parton distributions always x times * -* the distribution is returned ) * -* * -* A1P = A1-Proton * -* A1N = A1-Neutron * -* A1D = A1-Deuteron * -* * -* The sets are the result of a combined fit to * -* data for the spin asymmetries A_1 (p,n,d) * -* * -* Note: No charm is included * -* * -* COMMON: The main program or the calling routine has to have * -* a common block COMMON / INTINI / IINI , and IINI * -* has always to be zero when PARPOL is called for the * -* first time or when 'ISET' has been changed. * -* * -********************************************************************* -* - SUBROUTINE GRSVL2 (DX,DQ,DUV,DDV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL) -C SUBROUTINE GRSVL2 (X, Q2, UV, DV, QB, ST, GL, A1P, A1N, A1D) -#include "pdf/impdp.inc" - PARAMETER (NPART=8, NX=42, NQ=25, NARG=2) - DIMENSION - + XUVF(NX,NQ), XDVF(NX,NQ), XQBF(NX,NQ), - 1 XSF(NX,NQ), XGF(NX,NQ), - 2 XAPF(NX,NQ), XANF(NX,NQ), XADF(NX,NQ), - 3 QS(NQ), XB(NX), XT(NARG), NA(NARG), ARRF(NX+NQ) - DIMENSION - + PARTON (NPART,NQ,NX-1) - COMMON / GRSVA1 / A1P, A1N, A1D -C COMMON / INTINI / IINI - SAVE XUVF, XDVF, XQBF, XSF, XGF, XAPF, XANF, XADF, NA, ARRF - DATA ZEROD/0.D0/ -*...BJORKEN-X AND Q**2 VALUES OF THE GRID : - DATA QS / 0.4D0, 0.5d0, 0.6d0, 0.75D0, 1.0D0, - 1 1.25d0, 1.5D0, 2.d0, 2.5D0, - 1 4.0D0, 6.4D0, 1.0D1, 1.5D1, 2.5D1, 4.0D1, 6.4D1, - 2 1.0D2, 1.8D2, 3.2D2, 5.8D2, 1.0D3, 1.8D3, - 3 3.2D3, 5.8D3, 1.0D4 / - DATA XB / 1.D-4, 1.5D-4, 2.2D-4, 3.2D-4, 4.8D-4, 7.D-4, - 2 1.D-3, 1.5D-3, 2.2D-3, 3.2D-3, 4.8D-3, 7.D-3, - 3 1.D-2, 1.5D-2, 2.2D-2, 3.2D-2, 5.0D-2, 7.5D-2, - 4 0.1D0, 0.125D0, 0.15D0, 0.175D0, 0.2D0, 0.225D0, - + 0.25D0, 0.275D0, - 5 0.3D0, 0.325D0, 0.35D0, 0.375D0, 0.4D0, 0.45D0, - + 0.5D0, 0.55D0, - 6 0.6D0, 0.65D0, 0.7D0, 0.75D0, 0.8D0, 0.85D0, - + 0.9D0, 1.0D0 / - DATA IINI/0/ -C - DATA ((PARTON(I,N,1),I=1,8),N=1,8)/ - + .1846D-02, -.4278D-02, -.8964D-04, -.4213D-04, .7594D-03, - + .2613D-02, -.1952D-01, -.7832D-02, - + .2018D-02, -.4422D-02, -.1379D-03, -.7827D-04, .1780D-02, - + .1812D-02, -.1451D-01, -.5855D-02, - + .2155D-02, -.4533D-02, -.1852D-03, -.1157D-03, .2965D-02, - + .1306D-02, -.1165D-01, -.4757D-02, - + .2317D-02, -.4661D-02, -.2522D-03, -.1706D-03, .4857D-02, - + .8421D-03, -.9202D-02, -.3836D-02, - + .2518D-02, -.4816D-02, -.3516D-03, -.2544D-03, .8014D-02, - + .4255D-03, -.7135D-02, -.3073D-02, - + .2670D-02, -.4930D-02, -.4376D-03, -.3284D-03, .1101D-01, - + .1973D-03, -.6052D-02, -.2680D-02, - + .2790D-02, -.5018D-02, -.5127D-03, -.3938D-03, .1380D-01, - + .5311D-04, -.5385D-02, -.2439D-02, - + .2975D-02, -.5151D-02, -.6390D-03, -.5049D-03, .1880D-01, - + -.1198D-03, -.4597D-02, -.2156D-02 / - DATA ((PARTON(I,N,1),I=1,8),N=9,16)/ - + .3114D-02, -.5249D-02, -.7417D-03, -.5960D-03, .2312D-01, - + -.2197D-03, -.4139D-02, -.1992D-02, - + .3399D-02, -.5445D-02, -.9729D-03, -.8030D-03, .3363D-01, - + -.3711D-03, -.3457D-02, -.1749D-02, - + .3673D-02, -.5629D-02, -.1217D-02, -.1024D-02, .4581D-01, - + -.4694D-03, -.3005D-02, -.1587D-02, - + .3924D-02, -.5793D-02, -.1457D-02, -.1241D-02, .5876D-01, - + -.5323D-03, -.2699D-02, -.1476D-02, - + .4145D-02, -.5934D-02, -.1678D-02, -.1443D-02, .7157D-01, - + -.5723D-03, -.2488D-02, -.1397D-02, - + .4412D-02, -.6101D-02, -.1955D-02, -.1695D-02, .8877D-01, - + -.6053D-03, -.2279D-02, -.1317D-02, - + .4653D-02, -.6250D-02, -.2212D-02, -.1930D-02, .1060D+00, - + -.6265D-03, -.2129D-02, -.1258D-02, - + .4888D-02, -.6392D-02, -.2467D-02, -.2163D-02, .1242D+00, - + -.6403D-03, -.2008D-02, -.1209D-02 / - DATA ((PARTON(I,N,1),I=1,8),N=17,25)/ - + .5107D-02, -.6522D-02, -.2705D-02, -.2380D-02, .1423D+00, - + -.6482D-03, -.1910D-02, -.1168D-02, - + .5387D-02, -.6687D-02, -.3011D-02, -.2659D-02, .1673D+00, - + -.6528D-03, -.1802D-02, -.1121D-02, - + .5654D-02, -.6842D-02, -.3299D-02, -.2922D-02, .1928D+00, - + -.6524D-03, -.1712D-02, -.1080D-02, - + .5922D-02, -.6995D-02, -.3584D-02, -.3181D-02, .2201D+00, - + -.6481D-03, -.1632D-02, -.1041D-02, - + .6162D-02, -.7130D-02, -.3833D-02, -.3407D-02, .2458D+00, - + -.6415D-03, -.1567D-02, -.1008D-02, - + .6415D-02, -.7270D-02, -.4087D-02, -.3636D-02, .2742D+00, - + -.6321D-03, -.1504D-02, -.9753D-03, - + .6657D-02, -.7403D-02, -.4320D-02, -.3846D-02, .3025D+00, - + -.6212D-03, -.1448D-02, -.9447D-03, - + .6901D-02, -.7536D-02, -.4546D-02, -.4048D-02, .3323D+00, - + -.6085D-03, -.1395D-02, -.9147D-03, - + .7120D-02, -.7654D-02, -.4739D-02, -.4219D-02, .3599D+00, - + -.5959D-03, -.1350D-02, -.8884D-03 / - DATA ((PARTON(I,N,2),I=1,8),N=1,8)/ - + .2447D-02, -.4980D-02, -.1280D-03, -.5656D-04, .1206D-02, - + .3965D-02, -.2144D-01, -.8106D-02, - + .2671D-02, -.5150D-02, -.1913D-03, -.1028D-03, .2601D-02, - + .2870D-02, -.1659D-01, -.6331D-02, - + .2848D-02, -.5280D-02, -.2522D-03, -.1497D-03, .4168D-02, - + .2160D-02, -.1367D-01, -.5298D-02, - + .3059D-02, -.5431D-02, -.3366D-03, -.2171D-03, .6613D-02, - + .1495D-02, -.1108D-01, -.4399D-02, - + .3320D-02, -.5613D-02, -.4594D-03, -.3182D-03, .1060D-01, - + .8867D-03, -.8802D-02, -.3627D-02, - + .3516D-02, -.5746D-02, -.5636D-03, -.4059D-03, .1432D-01, - + .5495D-03, -.7575D-02, -.3216D-02, - + .3672D-02, -.5850D-02, -.6537D-03, -.4825D-03, .1775D-01, - + .3352D-03, -.6803D-02, -.2959D-02, - + .3911D-02, -.6006D-02, -.8029D-03, -.6110D-03, .2382D-01, - + .7719D-04, -.5877D-02, -.2652D-02 / - DATA ((PARTON(I,N,2),I=1,8),N=9,16)/ - + .4089D-02, -.6121D-02, -.9226D-03, -.7149D-03, .2901D-01, - + -.7265D-04, -.5329D-02, -.2469D-02, - + .4455D-02, -.6351D-02, -.1188D-02, -.9471D-03, .4146D-01, - + -.2992D-03, -.4498D-02, -.2192D-02, - + .4805D-02, -.6566D-02, -.1463D-02, -.1190D-02, .5567D-01, - + -.4456D-03, -.3935D-02, -.2001D-02, - + .5126D-02, -.6758D-02, -.1727D-02, -.1424D-02, .7058D-01, - + -.5388D-03, -.3548D-02, -.1867D-02, - + .5408D-02, -.6924D-02, -.1967D-02, -.1638D-02, .8518D-01, - + -.5976D-03, -.3277D-02, -.1769D-02, - + .5747D-02, -.7120D-02, -.2263D-02, -.1901D-02, .1046D+00, - + -.6463D-03, -.3005D-02, -.1667D-02, - + .6053D-02, -.7294D-02, -.2533D-02, -.2142D-02, .1238D+00, - + -.6766D-03, -.2808D-02, -.1591D-02, - + .6351D-02, -.7460D-02, -.2797D-02, -.2376D-02, .1439D+00, - + -.6959D-03, -.2645D-02, -.1525D-02 / - DATA ((PARTON(I,N,2),I=1,8),N=17,25)/ - + .6627D-02, -.7613D-02, -.3040D-02, -.2592D-02, .1638D+00, - + -.7065D-03, -.2514D-02, -.1470D-02, - + .6980D-02, -.7805D-02, -.3346D-02, -.2863D-02, .1910D+00, - + -.7118D-03, -.2367D-02, -.1405D-02, - + .7316D-02, -.7985D-02, -.3629D-02, -.3113D-02, .2186D+00, - + -.7098D-03, -.2243D-02, -.1348D-02, - + .7654D-02, -.8164D-02, -.3904D-02, -.3354D-02, .2478D+00, - + -.7023D-03, -.2132D-02, -.1294D-02, - + .7955D-02, -.8321D-02, -.4138D-02, -.3558D-02, .2752D+00, - + -.6917D-03, -.2042D-02, -.1248D-02, - + .8271D-02, -.8485D-02, -.4373D-02, -.3760D-02, .3052D+00, - + -.6771D-03, -.1954D-02, -.1201D-02, - + .8573D-02, -.8639D-02, -.4584D-02, -.3941D-02, .3350D+00, - + -.6604D-03, -.1875D-02, -.1158D-02, - + .8878D-02, -.8794D-02, -.4782D-02, -.4108D-02, .3660D+00, - + -.6413D-03, -.1800D-02, -.1115D-02, - + .9151D-02, -.8931D-02, -.4947D-02, -.4245D-02, .3947D+00, - + -.6224D-03, -.1737D-02, -.1077D-02 / - DATA ((PARTON(I,N,3),I=1,8),N=1,8)/ - + .3192D-02, -.5753D-02, -.1794D-03, -.7444D-04, .1781D-02, - + .5542D-02, -.2330D-01, -.8244D-02, - + .3480D-02, -.5951D-02, -.2610D-03, -.1323D-03, .3627D-02, - + .4166D-02, -.1870D-01, -.6712D-02, - + .3707D-02, -.6103D-02, -.3378D-03, -.1899D-03, .5647D-02, - + .3245D-02, -.1580D-01, -.5781D-02, - + .3976D-02, -.6279D-02, -.4424D-03, -.2712D-03, .8733D-02, - + .2361D-02, -.1312D-01, -.4941D-02, - + .4309D-02, -.6491D-02, -.5914D-03, -.3907D-03, .1367D-01, - + .1534D-02, -.1068D-01, -.4191D-02, - + .4558D-02, -.6646D-02, -.7158D-03, -.4927D-03, .1820D-01, - + .1068D-02, -.9318D-02, -.3778D-02, - + .4755D-02, -.6767D-02, -.8219D-03, -.5806D-03, .2233D-01, - + .7693D-03, -.8447D-02, -.3513D-02, - + .5058D-02, -.6949D-02, -.9954D-03, -.7261D-03, .2956D-01, - + .4067D-03, -.7381D-02, -.3189D-02 / - DATA ((PARTON(I,N,3),I=1,8),N=9,16)/ - + .5283D-02, -.7083D-02, -.1133D-02, -.8423D-03, .3568D-01, - + .1945D-03, -.6738D-02, -.2992D-02, - + .5745D-02, -.7351D-02, -.1432D-02, -.1097D-02, .5017D-01, - + -.1268D-03, -.5747D-02, -.2684D-02, - + .6186D-02, -.7601D-02, -.1735D-02, -.1358D-02, .6647D-01, - + -.3348D-03, -.5060D-02, -.2464D-02, - + .6589D-02, -.7824D-02, -.2022D-02, -.1606D-02, .8336D-01, - + -.4669D-03, -.4578D-02, -.2304D-02, - + .6941D-02, -.8016D-02, -.2279D-02, -.1827D-02, .9972D-01, - + -.5502D-03, -.4235D-02, -.2185D-02, - + .7365D-02, -.8244D-02, -.2589D-02, -.2095D-02, .1213D+00, - + -.6192D-03, -.3888D-02, -.2058D-02, - + .7747D-02, -.8445D-02, -.2868D-02, -.2335D-02, .1423D+00, - + -.6614D-03, -.3633D-02, -.1961D-02, - + .8118D-02, -.8638D-02, -.3135D-02, -.2565D-02, .1643D+00, - + -.6877D-03, -.3420D-02, -.1875D-02 / - DATA ((PARTON(I,N,3),I=1,8),N=17,25)/ - + .8460D-02, -.8815D-02, -.3377D-02, -.2771D-02, .1858D+00, - + -.7017D-03, -.3246D-02, -.1803D-02, - + .8899D-02, -.9037D-02, -.3676D-02, -.3026D-02, .2150D+00, - + -.7079D-03, -.3050D-02, -.1716D-02, - + .9315D-02, -.9246D-02, -.3947D-02, -.3254D-02, .2443D+00, - + -.7039D-03, -.2885D-02, -.1638D-02, - + .9732D-02, -.9452D-02, -.4204D-02, -.3467D-02, .2752D+00, - + -.6922D-03, -.2734D-02, -.1564D-02, - + .1010D-01, -.9633D-02, -.4418D-02, -.3642D-02, .3039D+00, - + -.6763D-03, -.2611D-02, -.1501D-02, - + .1049D-01, -.9822D-02, -.4626D-02, -.3809D-02, .3352D+00, - + -.6549D-03, -.2491D-02, -.1436D-02, - + .1086D-01, -.1000D-01, -.4808D-02, -.3952D-02, .3660D+00, - + -.6308D-03, -.2383D-02, -.1376D-02, - + .1124D-01, -.1018D-01, -.4973D-02, -.4077D-02, .3979D+00, - + -.6034D-03, -.2281D-02, -.1317D-02, - + .1157D-01, -.1034D-01, -.5104D-02, -.4173D-02, .4272D+00, - + -.5765D-03, -.2193D-02, -.1264D-02 / - DATA ((PARTON(I,N,4),I=1,8),N=1,8)/ - + .4139D-02, -.6631D-02, -.2501D-03, -.9708D-04, .2531D-02, - + .7393D-02, -.2517D-01, -.8255D-02, - + .4506D-02, -.6861D-02, -.3543D-03, -.1688D-03, .4934D-02, - + .5754D-02, -.2091D-01, -.7001D-02, - + .4794D-02, -.7038D-02, -.4503D-03, -.2385D-03, .7498D-02, - + .4620D-02, -.1809D-01, -.6207D-02, - + .5135D-02, -.7243D-02, -.5786D-03, -.3353D-03, .1134D-01, - + .3503D-02, -.1539D-01, -.5461D-02, - + .5556D-02, -.7489D-02, -.7578D-03, -.4748D-03, .1738D-01, - + .2432D-02, -.1283D-01, -.4766D-02, - + .5870D-02, -.7670D-02, -.9047D-03, -.5916D-03, .2283D-01, - + .1816D-02, -.1135D-01, -.4368D-02, - + .6119D-02, -.7810D-02, -.1028D-02, -.6911D-03, .2775D-01, - + .1417D-02, -.1039D-01, -.4106D-02, - + .6499D-02, -.8022D-02, -.1228D-02, -.8534D-03, .3626D-01, - + .9275D-03, -.9181D-02, -.3775D-02 / - DATA ((PARTON(I,N,4),I=1,8),N=9,16)/ - + .6781D-02, -.8177D-02, -.1384D-02, -.9810D-03, .4339D-01, - + .6386D-03, -.8441D-02, -.3567D-02, - + .7359D-02, -.8488D-02, -.1717D-02, -.1256D-02, .6007D-01, - + .1989D-03, -.7273D-02, -.3232D-02, - + .7910D-02, -.8778D-02, -.2048D-02, -.1532D-02, .7854D-01, - + -.8706D-04, -.6444D-02, -.2983D-02, - + .8411D-02, -.9036D-02, -.2355D-02, -.1787D-02, .9745D-01, - + -.2690D-03, -.5851D-02, -.2795D-02, - + .8848D-02, -.9259D-02, -.2624D-02, -.2011D-02, .1156D+00, - + -.3836D-03, -.5423D-02, -.2652D-02, - + .9373D-02, -.9522D-02, -.2944D-02, -.2276D-02, .1392D+00, - + -.4791D-03, -.4983D-02, -.2494D-02, - + .9845D-02, -.9755D-02, -.3226D-02, -.2508D-02, .1621D+00, - + -.5366D-03, -.4656D-02, -.2371D-02, - + .1030D-01, -.9977D-02, -.3492D-02, -.2725D-02, .1857D+00, - + -.5719D-03, -.4380D-02, -.2261D-02 / - DATA ((PARTON(I,N,4),I=1,8),N=17,25)/ - + .1072D-01, -.1018D-01, -.3727D-02, -.2915D-02, .2088D+00, - + -.5902D-03, -.4153D-02, -.2166D-02, - + .1126D-01, -.1044D-01, -.4012D-02, -.3143D-02, .2397D+00, - + -.5974D-03, -.3895D-02, -.2051D-02, - + .1177D-01, -.1068D-01, -.4263D-02, -.3339D-02, .2705D+00, - + -.5907D-03, -.3675D-02, -.1947D-02, - + .1228D-01, -.1091D-01, -.4494D-02, -.3515D-02, .3027D+00, - + -.5734D-03, -.3474D-02, -.1848D-02, - + .1274D-01, -.1112D-01, -.4680D-02, -.3652D-02, .3324D+00, - + -.5506D-03, -.3309D-02, -.1762D-02, - + .1321D-01, -.1134D-01, -.4855D-02, -.3775D-02, .3645D+00, - + -.5204D-03, -.3147D-02, -.1674D-02, - + .1366D-01, -.1154D-01, -.5000D-02, -.3871D-02, .3960D+00, - + -.4867D-03, -.3001D-02, -.1592D-02, - + .1412D-01, -.1175D-01, -.5125D-02, -.3947D-02, .4284D+00, - + -.4486D-03, -.2863D-02, -.1511D-02, - + .1452D-01, -.1193D-01, -.5217D-02, -.3995D-02, .4580D+00, - + -.4114D-03, -.2744D-02, -.1440D-02 / - DATA ((PARTON(I,N,5),I=1,8),N=1,8)/ - + .5481D-02, -.7740D-02, -.3592D-03, -.1289D-03, .3615D-02, - + .9765D-02, -.2728D-01, -.8128D-02, - + .5956D-02, -.8012D-02, -.4944D-03, -.2186D-03, .6775D-02, - + .7870D-02, -.2347D-01, -.7206D-02, - + .6328D-02, -.8220D-02, -.6160D-03, -.3037D-03, .1006D-01, - + .6513D-02, -.2083D-01, -.6592D-02, - + .6767D-02, -.8462D-02, -.7753D-03, -.4193D-03, .1490D-01, - + .5139D-02, -.1818D-01, -.5988D-02, - + .7308D-02, -.8753D-02, -.9926D-03, -.5820D-03, .2233D-01, - + .3780D-02, -.1555D-01, -.5392D-02, - + .7710D-02, -.8965D-02, -.1167D-02, -.7153D-03, .2894D-01, - + .2982D-02, -.1397D-01, -.5031D-02, - + .8028D-02, -.9131D-02, -.1312D-02, -.8273D-03, .3482D-01, - + .2457D-02, -.1291D-01, -.4785D-02, - + .8512D-02, -.9380D-02, -.1542D-02, -.1007D-02, .4489D-01, - + .1805D-02, -.1156D-01, -.4460D-02 / - DATA ((PARTON(I,N,5),I=1,8),N=9,16)/ - + .8872D-02, -.9562D-02, -.1719D-02, -.1145D-02, .5322D-01, - + .1416D-02, -.1071D-01, -.4247D-02, - + .9605D-02, -.9927D-02, -.2089D-02, -.1438D-02, .7245D-01, - + .8190D-03, -.9333D-02, -.3889D-02, - + .1030D-01, -.1027D-01, -.2448D-02, -.1722D-02, .9339D-01, - + .4277D-03, -.8327D-02, -.3608D-02, - + .1093D-01, -.1057D-01, -.2773D-02, -.1979D-02, .1145D+00, - + .1777D-03, -.7593D-02, -.3386D-02, - + .1148D-01, -.1083D-01, -.3052D-02, -.2198D-02, .1346D+00, - + .2001D-04, -.7052D-02, -.3211D-02, - + .1214D-01, -.1114D-01, -.3376D-02, -.2450D-02, .1604D+00, - + -.1123D-03, -.6488D-02, -.3013D-02, - + .1273D-01, -.1141D-01, -.3654D-02, -.2663D-02, .1851D+00, - + -.1907D-03, -.6063D-02, -.2855D-02, - + .1330D-01, -.1167D-01, -.3910D-02, -.2856D-02, .2104D+00, - + -.2383D-03, -.5700D-02, -.2711D-02 / - DATA ((PARTON(I,N,5),I=1,8),N=17,25)/ - + .1383D-01, -.1191D-01, -.4131D-02, -.3019D-02, .2348D+00, - + -.2623D-03, -.5398D-02, -.2584D-02, - + .1450D-01, -.1221D-01, -.4391D-02, -.3204D-02, .2673D+00, - + -.2705D-03, -.5052D-02, -.2429D-02, - + .1513D-01, -.1248D-01, -.4611D-02, -.3354D-02, .2993D+00, - + -.2596D-03, -.4755D-02, -.2289D-02, - + .1576D-01, -.1276D-01, -.4804D-02, -.3477D-02, .3325D+00, - + -.2340D-03, -.4482D-02, -.2153D-02, - + .1632D-01, -.1300D-01, -.4952D-02, -.3562D-02, .3629D+00, - + -.2011D-03, -.4257D-02, -.2035D-02, - + .1690D-01, -.1325D-01, -.5081D-02, -.3625D-02, .3955D+00, - + -.1582D-03, -.4035D-02, -.1914D-02, - + .1746D-01, -.1349D-01, -.5179D-02, -.3661D-02, .4272D+00, - + -.1106D-03, -.3835D-02, -.1801D-02, - + .1802D-01, -.1372D-01, -.5252D-02, -.3672D-02, .4597D+00, - + -.5718D-04, -.3644D-02, -.1689D-02, - + .1851D-01, -.1393D-01, -.5296D-02, -.3659D-02, .4891D+00, - + -.5401D-05, -.3481D-02, -.1591D-02 / - DATA ((PARTON(I,N,6),I=1,8),N=1,8)/ - + .7115D-02, -.8947D-02, -.5045D-03, -.1673D-03, .4950D-02, - + .1233D-01, -.2936D-01, -.7888D-02, - + .7716D-02, -.9265D-02, -.6761D-03, -.2767D-03, .8992D-02, - + .1024D-01, -.2605D-01, -.7289D-02, - + .8187D-02, -.9509D-02, -.8268D-03, -.3780D-03, .1310D-01, - + .8700D-02, -.2363D-01, -.6867D-02, - + .8740D-02, -.9791D-02, -.1020D-02, -.5127D-03, .1903D-01, - + .7098D-02, -.2110D-01, -.6425D-02, - + .9420D-02, -.1013D-01, -.1279D-02, -.6978D-03, .2798D-01, - + .5472D-02, -.1848D-01, -.5954D-02, - + .9923D-02, -.1038D-01, -.1482D-02, -.8463D-03, .3581D-01, - + .4494D-02, -.1684D-01, -.5649D-02, - + .1032D-01, -.1057D-01, -.1648D-02, -.9690D-03, .4270D-01, - + .3842D-02, -.1572D-01, -.5428D-02, - + .1093D-01, -.1086D-01, -.1908D-02, -.1162D-02, .5436D-01, - + .3024D-02, -.1424D-01, -.5123D-02 / - DATA ((PARTON(I,N,6),I=1,8),N=9,16)/ - + .1137D-01, -.1107D-01, -.2104D-02, -.1309D-02, .6391D-01, - + .2529D-02, -.1328D-01, -.4913D-02, - + .1229D-01, -.1150D-01, -.2509D-02, -.1611D-02, .8563D-01, - + .1762D-02, -.1170D-01, -.4539D-02, - + .1315D-01, -.1189D-01, -.2890D-02, -.1895D-02, .1089D+00, - + .1255D-02, -.1051D-01, -.4226D-02, - + .1393D-01, -.1224D-01, -.3226D-02, -.2143D-02, .1321D+00, - + .9300D-03, -.9623D-02, -.3968D-02, - + .1460D-01, -.1254D-01, -.3508D-02, -.2349D-02, .1538D+00, - + .7243D-03, -.8957D-02, -.3757D-02, - + .1541D-01, -.1290D-01, -.3828D-02, -.2577D-02, .1815D+00, - + .5508D-03, -.8253D-02, -.3515D-02, - + .1614D-01, -.1321D-01, -.4096D-02, -.2762D-02, .2078D+00, - + .4493D-03, -.7713D-02, -.3315D-02, - + .1683D-01, -.1351D-01, -.4335D-02, -.2920D-02, .2343D+00, - + .3886D-03, -.7248D-02, -.3130D-02 / - DATA ((PARTON(I,N,6),I=1,8),N=17,25)/ - + .1747D-01, -.1378D-01, -.4535D-02, -.3047D-02, .2598D+00, - + .3591D-03, -.6858D-02, -.2966D-02, - + .1829D-01, -.1413D-01, -.4761D-02, -.3180D-02, .2933D+00, - + .3511D-03, -.6407D-02, -.2763D-02, - + .1906D-01, -.1445D-01, -.4943D-02, -.3274D-02, .3261D+00, - + .3682D-03, -.6017D-02, -.2578D-02, - + .1982D-01, -.1476D-01, -.5092D-02, -.3335D-02, .3597D+00, - + .4046D-03, -.5658D-02, -.2397D-02, - + .2050D-01, -.1504D-01, -.5196D-02, -.3361D-02, .3903D+00, - + .4501D-03, -.5360D-02, -.2240D-02, - + .2120D-01, -.1532D-01, -.5275D-02, -.3359D-02, .4228D+00, - + .5089D-03, -.5065D-02, -.2079D-02, - + .2187D-01, -.1559D-01, -.5322D-02, -.3329D-02, .4542D+00, - + .5736D-03, -.4800D-02, -.1928D-02, - + .2254D-01, -.1586D-01, -.5341D-02, -.3271D-02, .4861D+00, - + .6458D-03, -.4546D-02, -.1779D-02, - + .2313D-01, -.1610D-01, -.5334D-02, -.3196D-02, .5148D+00, - + .7154D-03, -.4328D-02, -.1648D-02 / - DATA ((PARTON(I,N,7),I=1,8),N=1,8)/ - + .9098D-02, -.1027D-01, -.6976D-03, -.2132D-03, .6585D-02, - + .1507D-01, -.3150D-01, -.7577D-02, - + .9847D-02, -.1064D-01, -.9114D-03, -.3440D-03, .1165D-01, - + .1285D-01, -.2870D-01, -.7283D-02, - + .1043D-01, -.1093D-01, -.1095D-02, -.4622D-03, .1668D-01, - + .1117D-01, -.2655D-01, -.7051D-02, - + .1112D-01, -.1125D-01, -.1326D-02, -.6158D-03, .2383D-01, - + .9388D-02, -.2420D-01, -.6779D-02, - + .1196D-01, -.1165D-01, -.1628D-02, -.8217D-03, .3441D-01, - + .7531D-02, -.2164D-01, -.6448D-02, - + .1258D-01, -.1193D-01, -.1861D-02, -.9832D-03, .4352D-01, - + .6392D-02, -.1998D-01, -.6207D-02, - + .1307D-01, -.1216D-01, -.2048D-02, -.1114D-02, .5146D-01, - + .5622D-02, -.1881D-01, -.6021D-02, - + .1381D-01, -.1249D-01, -.2337D-02, -.1317D-02, .6474D-01, - + .4644D-02, -.1723D-01, -.5744D-02 / - DATA ((PARTON(I,N,7),I=1,8),N=9,16)/ - + .1436D-01, -.1274D-01, -.2552D-02, -.1468D-02, .7549D-01, - + .4045D-02, -.1619D-01, -.5540D-02, - + .1548D-01, -.1322D-01, -.2985D-02, -.1771D-02, .9964D-01, - + .3109D-02, -.1441D-01, -.5155D-02, - + .1653D-01, -.1368D-01, -.3382D-02, -.2044D-02, .1251D+00, - + .2484D-02, -.1303D-01, -.4810D-02, - + .1747D-01, -.1408D-01, -.3723D-02, -.2274D-02, .1501D+00, - + .2082D-02, -.1197D-01, -.4512D-02, - + .1829D-01, -.1443D-01, -.4002D-02, -.2457D-02, .1733D+00, - + .1827D-02, -.1117D-01, -.4261D-02, - + .1927D-01, -.1483D-01, -.4311D-02, -.2650D-02, .2025D+00, - + .1611D-02, -.1031D-01, -.3966D-02, - + .2014D-01, -.1519D-01, -.4560D-02, -.2796D-02, .2300D+00, - + .1487D-02, -.9640D-02, -.3718D-02, - + .2098D-01, -.1553D-01, -.4775D-02, -.2912D-02, .2574D+00, - + .1414D-02, -.9056D-02, -.3484D-02 / - DATA ((PARTON(I,N,7),I=1,8),N=17,25)/ - + .2175D-01, -.1584D-01, -.4948D-02, -.2995D-02, .2835D+00, - + .1381D-02, -.8563D-02, -.3275D-02, - + .2272D-01, -.1623D-01, -.5134D-02, -.3065D-02, .3176D+00, - + .1376D-02, -.7988D-02, -.3015D-02, - + .2364D-01, -.1659D-01, -.5271D-02, -.3094D-02, .3506D+00, - + .1403D-02, -.7489D-02, -.2775D-02, - + .2455D-01, -.1695D-01, -.5370D-02, -.3086D-02, .3842D+00, - + .1454D-02, -.7027D-02, -.2541D-02, - + .2535D-01, -.1726D-01, -.5426D-02, -.3048D-02, .4143D+00, - + .1516D-02, -.6641D-02, -.2337D-02, - + .2619D-01, -.1758D-01, -.5452D-02, -.2975D-02, .4463D+00, - + .1595D-02, -.6260D-02, -.2127D-02, - + .2698D-01, -.1789D-01, -.5446D-02, -.2877D-02, .4769D+00, - + .1681D-02, -.5916D-02, -.1930D-02, - + .2777D-01, -.1819D-01, -.5409D-02, -.2748D-02, .5077D+00, - + .1776D-02, -.5586D-02, -.1736D-02, - + .2847D-01, -.1845D-01, -.5352D-02, -.2608D-02, .5353D+00, - + .1867D-02, -.5304D-02, -.1566D-02 / - DATA ((PARTON(I,N,8),I=1,8),N=1,8)/ - + .1202D-01, -.1205D-01, -.1014D-02, -.2777D-03, .9043D-02, - + .1854D-01, -.3426D-01, -.7195D-02, - + .1298D-01, -.1249D-01, -.1286D-02, -.4355D-03, .1553D-01, - + .1625D-01, -.3206D-01, -.7218D-02, - + .1373D-01, -.1282D-01, -.1513D-02, -.5737D-03, .2182D-01, - + .1449D-01, -.3026D-01, -.7191D-02, - + .1460D-01, -.1321D-01, -.1793D-02, -.7486D-03, .3056D-01, - + .1256D-01, -.2817D-01, -.7109D-02, - + .1567D-01, -.1368D-01, -.2149D-02, -.9757D-03, .4323D-01, - + .1051D-01, -.2576D-01, -.6942D-02, - + .1645D-01, -.1401D-01, -.2417D-02, -.1149D-02, .5394D-01, - + .9223D-02, -.2412D-01, -.6781D-02, - + .1707D-01, -.1428D-01, -.2629D-02, -.1286D-02, .6315D-01, - + .8339D-02, -.2292D-01, -.6637D-02, - + .1800D-01, -.1467D-01, -.2950D-02, -.1493D-02, .7837D-01, - + .7201D-02, -.2126D-01, -.6395D-02 / - DATA ((PARTON(I,N,8),I=1,8),N=9,16)/ - + .1869D-01, -.1496D-01, -.3184D-02, -.1643D-02, .9053D-01, - + .6493D-02, -.2012D-01, -.6200D-02, - + .2009D-01, -.1553D-01, -.3642D-02, -.1932D-02, .1174D+00, - + .5379D-02, -.1812D-01, -.5798D-02, - + .2139D-01, -.1606D-01, -.4049D-02, -.2179D-02, .1452D+00, - + .4627D-02, -.1651D-01, -.5408D-02, - + .2257D-01, -.1653D-01, -.4386D-02, -.2373D-02, .1721D+00, - + .4141D-02, -.1524D-01, -.5053D-02, - + .2358D-01, -.1693D-01, -.4654D-02, -.2517D-02, .1967D+00, - + .3834D-02, -.1426D-01, -.4746D-02, - + .2478D-01, -.1740D-01, -.4937D-02, -.2653D-02, .2273D+00, - + .3574D-02, -.1319D-01, -.4376D-02, - + .2585D-01, -.1782D-01, -.5155D-02, -.2742D-02, .2556D+00, - + .3429D-02, -.1234D-01, -.4057D-02, - + .2688D-01, -.1821D-01, -.5333D-02, -.2795D-02, .2836D+00, - + .3348D-02, -.1160D-01, -.3754D-02 / - DATA ((PARTON(I,N,8),I=1,8),N=17,25)/ - + .2782D-01, -.1857D-01, -.5466D-02, -.2815D-02, .3100D+00, - + .3316D-02, -.1096D-01, -.3479D-02, - + .2900D-01, -.1902D-01, -.5594D-02, -.2799D-02, .3440D+00, - + .3323D-02, -.1021D-01, -.3135D-02, - + .3011D-01, -.1943D-01, -.5671D-02, -.2742D-02, .3766D+00, - + .3369D-02, -.9560D-02, -.2817D-02, - + .3121D-01, -.1984D-01, -.5705D-02, -.2645D-02, .4093D+00, - + .3445D-02, -.8951D-02, -.2505D-02, - + .3218D-01, -.2020D-01, -.5700D-02, -.2524D-02, .4385D+00, - + .3534D-02, -.8443D-02, -.2232D-02, - + .3319D-01, -.2057D-01, -.5660D-02, -.2364D-02, .4691D+00, - + .3644D-02, -.7938D-02, -.1952D-02, - + .3413D-01, -.2091D-01, -.5590D-02, -.2180D-02, .4981D+00, - + .3762D-02, -.7481D-02, -.1690D-02, - + .3508D-01, -.2125D-01, -.5487D-02, -.1965D-02, .5271D+00, - + .3892D-02, -.7043D-02, -.1431D-02, - + .3592D-01, -.2155D-01, -.5370D-02, -.1749D-02, .5529D+00, - + .4016D-02, -.6668D-02, -.1203D-02 / - DATA ((PARTON(I,N,9),I=1,8),N=1,8)/ - + .1563D-01, -.1403D-01, -.1442D-02, -.3545D-03, .1208D-01, - + .2222D-01, -.3725D-01, -.6798D-02, - + .1683D-01, -.1455D-01, -.1780D-02, -.5402D-03, .2020D-01, - + .1995D-01, -.3565D-01, -.7095D-02, - + .1777D-01, -.1495D-01, -.2056D-02, -.6975D-03, .2788D-01, - + .1817D-01, -.3420D-01, -.7247D-02, - + .1886D-01, -.1540D-01, -.2387D-02, -.8906D-03, .3835D-01, - + .1619D-01, -.3242D-01, -.7332D-02, - + .2019D-01, -.1595D-01, -.2798D-02, -.1133D-02, .5322D-01, - + .1405D-01, -.3021D-01, -.7311D-02, - + .2116D-01, -.1634D-01, -.3100D-02, -.1311D-02, .6556D-01, - + .1267D-01, -.2863D-01, -.7221D-02, - + .2193D-01, -.1665D-01, -.3335D-02, -.1449D-02, .7604D-01, - + .1172D-01, -.2743D-01, -.7113D-02, - + .2308D-01, -.1711D-01, -.3683D-02, -.1651D-02, .9312D-01, - + .1048D-01, -.2571D-01, -.6899D-02 / - DATA ((PARTON(I,N,9),I=1,8),N=9,16)/ - + .2392D-01, -.1744D-01, -.3931D-02, -.1792D-02, .1066D+00, - + .9701D-02, -.2451D-01, -.6706D-02, - + .2563D-01, -.1810D-01, -.4405D-02, -.2050D-02, .1359D+00, - + .8464D-02, -.2231D-01, -.6274D-02, - + .2722D-01, -.1872D-01, -.4810D-02, -.2253D-02, .1657D+00, - + .7627D-02, -.2048D-01, -.5825D-02, - + .2865D-01, -.1926D-01, -.5132D-02, -.2396D-02, .1940D+00, - + .7087D-02, -.1900D-01, -.5400D-02, - + .2988D-01, -.1972D-01, -.5377D-02, -.2487D-02, .2195D+00, - + .6748D-02, -.1782D-01, -.5021D-02, - + .3133D-01, -.2026D-01, -.5624D-02, -.2553D-02, .2508D+00, - + .6466D-02, -.1653D-01, -.4561D-02, - + .3261D-01, -.2073D-01, -.5801D-02, -.2570D-02, .2794D+00, - + .6318D-02, -.1548D-01, -.4155D-02, - + .3384D-01, -.2118D-01, -.5933D-02, -.2550D-02, .3075D+00, - + .6245D-02, -.1456D-01, -.3767D-02 / - DATA ((PARTON(I,N,9),I=1,8),N=17,25)/ - + .3497D-01, -.2159D-01, -.6020D-02, -.2499D-02, .3335D+00, - + .6228D-02, -.1376D-01, -.3412D-02, - + .3638D-01, -.2209D-01, -.6084D-02, -.2389D-02, .3668D+00, - + .6263D-02, -.1282D-01, -.2967D-02, - + .3770D-01, -.2256D-01, -.6096D-02, -.2239D-02, .3982D+00, - + .6342D-02, -.1198D-01, -.2553D-02, - + .3900D-01, -.2302D-01, -.6062D-02, -.2048D-02, .4295D+00, - + .6458D-02, -.1121D-01, -.2146D-02, - + .4014D-01, -.2342D-01, -.5995D-02, -.1842D-02, .4570D+00, - + .6585D-02, -.1056D-01, -.1791D-02, - + .4133D-01, -.2384D-01, -.5889D-02, -.1594D-02, .4856D+00, - + .6739D-02, -.9907D-02, -.1426D-02, - + .4244D-01, -.2422D-01, -.5755D-02, -.1327D-02, .5125D+00, - + .6900D-02, -.9320D-02, -.1085D-02, - + .4355D-01, -.2460D-01, -.5590D-02, -.1029D-02, .5391D+00, - + .7075D-02, -.8756D-02, -.7484D-03, - + .4453D-01, -.2494D-01, -.5417D-02, -.7403D-03, .5625D+00, - + .7240D-02, -.8273D-02, -.4534D-03 / - DATA ((PARTON(I,N,10),I=1,8),N=1,8)/ - + .2018D-01, -.1633D-01, -.2036D-02, -.4455D-03, .1594D-01, - + .2617D-01, -.4074D-01, -.6478D-02, - + .2168D-01, -.1694D-01, -.2449D-02, -.6587D-03, .2596D-01, - + .2400D-01, -.3971D-01, -.6995D-02, - + .2284D-01, -.1741D-01, -.2778D-02, -.8328D-03, .3523D-01, - + .2229D-01, -.3862D-01, -.7286D-02, - + .2419D-01, -.1794D-01, -.3164D-02, -.1039D-02, .4759D-01, - + .2037D-01, -.3714D-01, -.7498D-02, - + .2582D-01, -.1857D-01, -.3629D-02, -.1288D-02, .6477D-01, - + .1825D-01, -.3517D-01, -.7581D-02, - + .2702D-01, -.1903D-01, -.3962D-02, -.1464D-02, .7877D-01, - + .1688D-01, -.3368D-01, -.7534D-02, - + .2795D-01, -.1939D-01, -.4217D-02, -.1595D-02, .9051D-01, - + .1592D-01, -.3251D-01, -.7444D-02, - + .2935D-01, -.1992D-01, -.4585D-02, -.1779D-02, .1094D+00, - + .1466D-01, -.3076D-01, -.7232D-02 / - DATA ((PARTON(I,N,10),I=1,8),N=9,16)/ - + .3038D-01, -.2030D-01, -.4842D-02, -.1901D-02, .1241D+00, - + .1387D-01, -.2950D-01, -.7025D-02, - + .3245D-01, -.2107D-01, -.5318D-02, -.2108D-02, .1555D+00, - + .1261D-01, -.2712D-01, -.6530D-02, - + .3437D-01, -.2177D-01, -.5705D-02, -.2247D-02, .1868D+00, - + .1176D-01, -.2507D-01, -.5991D-02, - + .3608D-01, -.2239D-01, -.5999D-02, -.2321D-02, .2160D+00, - + .1122D-01, -.2337D-01, -.5467D-02, - + .3754D-01, -.2291D-01, -.6210D-02, -.2345D-02, .2419D+00, - + .1089D-01, -.2199D-01, -.4995D-02, - + .3927D-01, -.2353D-01, -.6408D-02, -.2323D-02, .2733D+00, - + .1063D-01, -.2045D-01, -.4416D-02, - + .4080D-01, -.2406D-01, -.6534D-02, -.2257D-02, .3016D+00, - + .1051D-01, -.1920D-01, -.3900D-02, - + .4225D-01, -.2457D-01, -.6611D-02, -.2153D-02, .3290D+00, - + .1048D-01, -.1806D-01, -.3403D-02 / - DATA ((PARTON(I,N,10),I=1,8),N=17,25)/ - + .4357D-01, -.2502D-01, -.6645D-02, -.2022D-02, .3541D+00, - + .1050D-01, -.1709D-01, -.2949D-02, - + .4523D-01, -.2559D-01, -.6636D-02, -.1809D-02, .3859D+00, - + .1060D-01, -.1592D-01, -.2376D-02, - + .4678D-01, -.2612D-01, -.6578D-02, -.1561D-02, .4154D+00, - + .1073D-01, -.1488D-01, -.1844D-02, - + .4830D-01, -.2663D-01, -.6474D-02, -.1272D-02, .4445D+00, - + .1091D-01, -.1391D-01, -.1321D-02, - + .4963D-01, -.2707D-01, -.6344D-02, -.9815D-03, .4698D+00, - + .1110D-01, -.1310D-01, -.8647D-03, - + .5100D-01, -.2753D-01, -.6172D-02, -.6455D-03, .4958D+00, - + .1132D-01, -.1228D-01, -.3958D-03, - + .5229D-01, -.2795D-01, -.5978D-02, -.2976D-03, .5200D+00, - + .1154D-01, -.1154D-01, .4147D-04, - + .5357D-01, -.2837D-01, -.5753D-02, .7828D-04, .5437D+00, - + .1177D-01, -.1083D-01, .4723D-03, - + .5470D-01, -.2874D-01, -.5529D-02, .4344D-03, .5643D+00, - + .1200D-01, -.1023D-01, .8493D-03 / - DATA ((PARTON(I,N,11),I=1,8),N=1,8)/ - + .2658D-01, -.1932D-01, -.2955D-02, -.5610D-03, .2139D-01, - + .3080D-01, -.4539D-01, -.6319D-02, - + .2847D-01, -.2004D-01, -.3460D-02, -.8010D-03, .3386D-01, - + .2887D-01, -.4492D-01, -.6997D-02, - + .2992D-01, -.2059D-01, -.3850D-02, -.9878D-03, .4507D-01, - + .2734D-01, -.4419D-01, -.7378D-02, - + .3160D-01, -.2122D-01, -.4294D-02, -.1199D-02, .5969D-01, - + .2562D-01, -.4305D-01, -.7656D-02, - + .3362D-01, -.2197D-01, -.4813D-02, -.1440D-02, .7949D-01, - + .2371D-01, -.4134D-01, -.7772D-02, - + .3509D-01, -.2251D-01, -.5174D-02, -.1599D-02, .9529D-01, - + .2248D-01, -.3996D-01, -.7720D-02, - + .3624D-01, -.2292D-01, -.5442D-02, -.1712D-02, .1083D+00, - + .2161D-01, -.3882D-01, -.7610D-02, - + .3797D-01, -.2354D-01, -.5821D-02, -.1858D-02, .1290D+00, - + .2047D-01, -.3707D-01, -.7346D-02 / - DATA ((PARTON(I,N,11),I=1,8),N=9,16)/ - + .3922D-01, -.2399D-01, -.6078D-02, -.1946D-02, .1448D+00, - + .1976D-01, -.3575D-01, -.7086D-02, - + .4174D-01, -.2487D-01, -.6533D-02, -.2068D-02, .1779D+00, - + .1864D-01, -.3320D-01, -.6452D-02, - + .4406D-01, -.2568D-01, -.6880D-02, -.2111D-02, .2102D+00, - + .1791D-01, -.3091D-01, -.5755D-02, - + .4612D-01, -.2639D-01, -.7124D-02, -.2088D-02, .2397D+00, - + .1748D-01, -.2896D-01, -.5075D-02, - + .4788D-01, -.2699D-01, -.7283D-02, -.2021D-02, .2655D+00, - + .1725D-01, -.2735D-01, -.4460D-02, - + .4994D-01, -.2768D-01, -.7409D-02, -.1886D-02, .2961D+00, - + .1709D-01, -.2552D-01, -.3706D-02, - + .5176D-01, -.2829D-01, -.7467D-02, -.1715D-02, .3233D+00, - + .1708D-01, -.2401D-01, -.3031D-02, - + .5348D-01, -.2886D-01, -.7474D-02, -.1508D-02, .3491D+00, - + .1714D-01, -.2264D-01, -.2380D-02 / - DATA ((PARTON(I,N,11),I=1,8),N=17,25)/ - + .5504D-01, -.2937D-01, -.7440D-02, -.1283D-02, .3725D+00, - + .1726D-01, -.2144D-01, -.1784D-02, - + .5699D-01, -.3000D-01, -.7346D-02, -.9510D-03, .4016D+00, - + .1747D-01, -.2000D-01, -.1035D-02, - + .5879D-01, -.3058D-01, -.7207D-02, -.5941D-03, .4283D+00, - + .1773D-01, -.1872D-01, -.3390D-03, - + .6056D-01, -.3115D-01, -.7023D-02, -.1989D-03, .4541D+00, - + .1802D-01, -.1751D-01, .3434D-03, - + .6211D-01, -.3164D-01, -.6825D-02, .1816D-03, .4763D+00, - + .1831D-01, -.1649D-01, .9371D-03, - + .6370D-01, -.3214D-01, -.6585D-02, .6074D-03, .4988D+00, - + .1863D-01, -.1547D-01, .1546D-02, - + .6518D-01, -.3260D-01, -.6328D-02, .1036D-02, .5194D+00, - + .1895D-01, -.1454D-01, .2113D-02, - + .6665D-01, -.3305D-01, -.6044D-02, .1488D-02, .5393D+00, - + .1929D-01, -.1365D-01, .2670D-02, - + .6794D-01, -.3345D-01, -.5772D-02, .1907D-02, .5564D+00, - + .1959D-01, -.1289D-01, .3156D-02 / - DATA ((PARTON(I,N,12),I=1,8),N=1,8)/ - + .3427D-01, -.2268D-01, -.4169D-02, -.6791D-03, .2801D-01, - + .3545D-01, -.5081D-01, -.6470D-02, - + .3659D-01, -.2353D-01, -.4762D-02, -.9358D-03, .4312D-01, - + .3388D-01, -.5079D-01, -.7197D-02, - + .3837D-01, -.2417D-01, -.5205D-02, -.1125D-02, .5635D-01, - + .3264D-01, -.5035D-01, -.7577D-02, - + .4041D-01, -.2490D-01, -.5697D-02, -.1326D-02, .7319D-01, - + .3127D-01, -.4946D-01, -.7821D-02, - + .4286D-01, -.2577D-01, -.6252D-02, -.1538D-02, .9545D-01, - + .2976D-01, -.4797D-01, -.7855D-02, - + .4464D-01, -.2639D-01, -.6625D-02, -.1665D-02, .1128D+00, - + .2880D-01, -.4666D-01, -.7721D-02, - + .4602D-01, -.2687D-01, -.6896D-02, -.1746D-02, .1269D+00, - + .2814D-01, -.4555D-01, -.7535D-02, - + .4809D-01, -.2757D-01, -.7266D-02, -.1836D-02, .1489D+00, - + .2728D-01, -.4379D-01, -.7142D-02 / - DATA ((PARTON(I,N,12),I=1,8),N=9,16)/ - + .4959D-01, -.2808D-01, -.7508D-02, -.1876D-02, .1655D+00, - + .2675D-01, -.4242D-01, -.6779D-02, - + .5257D-01, -.2909D-01, -.7915D-02, -.1888D-02, .1995D+00, - + .2599D-01, -.3970D-01, -.5915D-02, - + .5532D-01, -.3000D-01, -.8199D-02, -.1815D-02, .2319D+00, - + .2556D-01, -.3719D-01, -.4986D-02, - + .5774D-01, -.3079D-01, -.8374D-02, -.1680D-02, .2608D+00, - + .2538D-01, -.3500D-01, -.4091D-02, - + .5979D-01, -.3146D-01, -.8467D-02, -.1514D-02, .2856D+00, - + .2535D-01, -.3317D-01, -.3286D-02, - + .6219D-01, -.3223D-01, -.8509D-02, -.1258D-02, .3146D+00, - + .2542D-01, -.3107D-01, -.2310D-02, - + .6429D-01, -.3290D-01, -.8489D-02, -.9804D-03, .3398D+00, - + .2559D-01, -.2931D-01, -.1436D-02, - + .6628D-01, -.3352D-01, -.8420D-02, -.6719D-03, .3635D+00, - + .2584D-01, -.2769D-01, -.5962D-03 / - DATA ((PARTON(I,N,12),I=1,8),N=17,25)/ - + .6807D-01, -.3408D-01, -.8318D-02, -.3561D-03, .3845D+00, - + .2612D-01, -.2628D-01, .1692D-03, - + .7030D-01, -.3477D-01, -.8137D-02, .8655D-04, .4103D+00, - + .2653D-01, -.2456D-01, .1129D-02, - + .7235D-01, -.3539D-01, -.7920D-02, .5418D-03, .4335D+00, - + .2696D-01, -.2303D-01, .2018D-02, - + .7436D-01, -.3600D-01, -.7662D-02, .1028D-02, .4556D+00, - + .2743D-01, -.2158D-01, .2887D-02, - + .7610D-01, -.3652D-01, -.7402D-02, .1484D-02, .4742D+00, - + .2786D-01, -.2036D-01, .3640D-02, - + .7789D-01, -.3705D-01, -.7103D-02, .1982D-02, .4928D+00, - + .2833D-01, -.1914D-01, .4410D-02, - + .7955D-01, -.3754D-01, -.6794D-02, .2472D-02, .5096D+00, - + .2879D-01, -.1802D-01, .5124D-02, - + .8118D-01, -.3802D-01, -.6464D-02, .2980D-02, .5256D+00, - + .2926D-01, -.1695D-01, .5824D-02, - + .8262D-01, -.3843D-01, -.6153D-02, .3443D-02, .5391D+00, - + .2969D-01, -.1604D-01, .6434D-02 / - DATA ((PARTON(I,N,13),I=1,8),N=1,8)/ - + .4350D-01, -.2651D-01, -.5743D-02, -.7880D-03, .3607D-01, - + .4022D-01, -.5721D-01, -.6983D-02, - + .4629D-01, -.2749D-01, -.6411D-02, -.1046D-02, .5400D-01, - + .3913D-01, -.5751D-01, -.7627D-02, - + .4842D-01, -.2823D-01, -.6894D-02, -.1222D-02, .6926D-01, - + .3831D-01, -.5725D-01, -.7905D-02, - + .5086D-01, -.2907D-01, -.7413D-02, -.1395D-02, .8824D-01, - + .3743D-01, -.5652D-01, -.7999D-02, - + .5378D-01, -.3006D-01, -.7977D-02, -.1552D-02, .1127D+00, - + .3651D-01, -.5514D-01, -.7820D-02, - + .5588D-01, -.3076D-01, -.8342D-02, -.1629D-02, .1313D+00, - + .3596D-01, -.5387D-01, -.7513D-02, - + .5751D-01, -.3130D-01, -.8599D-02, -.1665D-02, .1462D+00, - + .3561D-01, -.5276D-01, -.7185D-02, - + .5993D-01, -.3210D-01, -.8935D-02, -.1679D-02, .1690D+00, - + .3520D-01, -.5094D-01, -.6571D-02 / - DATA ((PARTON(I,N,13),I=1,8),N=9,16)/ - + .6169D-01, -.3267D-01, -.9145D-02, -.1658D-02, .1859D+00, - + .3498D-01, -.4952D-01, -.6041D-02, - + .6516D-01, -.3379D-01, -.9471D-02, -.1537D-02, .2199D+00, - + .3479D-01, -.4661D-01, -.4836D-02, - + .6833D-01, -.3479D-01, -.9664D-02, -.1331D-02, .2514D+00, - + .3486D-01, -.4388D-01, -.3586D-02, - + .7111D-01, -.3566D-01, -.9750D-02, -.1076D-02, .2789D+00, - + .3508D-01, -.4146D-01, -.2404D-02, - + .7346D-01, -.3639D-01, -.9763D-02, -.8048D-03, .3021D+00, - + .3537D-01, -.3942D-01, -.1357D-02, - + .7619D-01, -.3722D-01, -.9709D-02, -.4282D-03, .3285D+00, - + .3580D-01, -.3705D-01, -.1015D-03, - + .7857D-01, -.3794D-01, -.9603D-02, -.4707D-04, .3511D+00, - + .3628D-01, -.3505D-01, .1016D-02, - + .8080D-01, -.3860D-01, -.9454D-02, .3561D-03, .3719D+00, - + .3680D-01, -.3321D-01, .2084D-02 / - DATA ((PARTON(I,N,13),I=1,8),N=17,25)/ - + .8281D-01, -.3919D-01, -.9281D-02, .7536D-03, .3901D+00, - + .3732D-01, -.3158D-01, .3053D-02, - + .8530D-01, -.3992D-01, -.9015D-02, .1292D-02, .4119D+00, - + .3802D-01, -.2961D-01, .4261D-02, - + .8758D-01, -.4058D-01, -.8723D-02, .1828D-02, .4312D+00, - + .3871D-01, -.2784D-01, .5374D-02, - + .8979D-01, -.4121D-01, -.8398D-02, .2386D-02, .4491D+00, - + .3942D-01, -.2617D-01, .6457D-02, - + .9171D-01, -.4175D-01, -.8084D-02, .2897D-02, .4640D+00, - + .4006D-01, -.2475D-01, .7392D-02, - + .9366D-01, -.4229D-01, -.7735D-02, .3445D-02, .4785D+00, - + .4073D-01, -.2333D-01, .8345D-02, - + .9547D-01, -.4279D-01, -.7384D-02, .3975D-02, .4914D+00, - + .4138D-01, -.2204D-01, .9226D-02, - + .9725D-01, -.4327D-01, -.7018D-02, .4515D-02, .5034D+00, - + .4203D-01, -.2079D-01, .1009D-01, - + .9880D-01, -.4369D-01, -.6680D-02, .5001D-02, .5134D+00, - + .4261D-01, -.1973D-01, .1083D-01 / - DATA ((PARTON(I,N,14),I=1,8),N=1,8)/ - + .5689D-01, -.3187D-01, -.8178D-02, -.8774D-03, .4809D-01, - + .4629D-01, -.6638D-01, -.8072D-02, - + .6032D-01, -.3302D-01, -.8897D-02, -.1106D-02, .6954D-01, - + .4601D-01, -.6681D-01, -.8405D-02, - + .6291D-01, -.3388D-01, -.9394D-02, -.1240D-02, .8714D-01, - + .4585D-01, -.6662D-01, -.8399D-02, - + .6586D-01, -.3484D-01, -.9905D-02, -.1348D-02, .1084D+00, - + .4576D-01, -.6591D-01, -.8135D-02, - + .6937D-01, -.3597D-01, -.1043D-01, -.1405D-02, .1349D+00, - + .4579D-01, -.6449D-01, -.7497D-02, - + .7188D-01, -.3677D-01, -.1075D-01, -.1397D-02, .1545D+00, - + .4593D-01, -.6316D-01, -.6848D-02, - + .7381D-01, -.3738D-01, -.1096D-01, -.1360D-02, .1698D+00, - + .4609D-01, -.6198D-01, -.6252D-02, - + .7668D-01, -.3827D-01, -.1121D-01, -.1259D-02, .1928D+00, - + .4642D-01, -.6004D-01, -.5236D-02 / - DATA ((PARTON(I,N,14),I=1,8),N=9,16)/ - + .7874D-01, -.3891D-01, -.1135D-01, -.1150D-02, .2094D+00, - + .4673D-01, -.5850D-01, -.4417D-02, - + .8280D-01, -.4014D-01, -.1153D-01, -.8468D-03, .2420D+00, - + .4752D-01, -.5533D-01, -.2639D-02, - + .8647D-01, -.4123D-01, -.1158D-01, -.4716D-03, .2712D+00, - + .4842D-01, -.5231D-01, -.8737D-03, - + .8967D-01, -.4217D-01, -.1153D-01, -.6941D-04, .2958D+00, - + .4934D-01, -.4961D-01, .7495D-03, - + .9235D-01, -.4294D-01, -.1143D-01, .3221D-03, .3160D+00, - + .5018D-01, -.4733D-01, .2163D-02, - + .9544D-01, -.4382D-01, -.1125D-01, .8321D-03, .3385D+00, - + .5122D-01, -.4467D-01, .3833D-02, - + .9811D-01, -.4456D-01, -.1103D-01, .1322D-02, .3571D+00, - + .5221D-01, -.4240D-01, .5304D-02, - + .1006D+00, -.4525D-01, -.1078D-01, .1819D-02, .3738D+00, - + .5319D-01, -.4031D-01, .6697D-02 / - DATA ((PARTON(I,N,14),I=1,8),N=17,25)/ - + .1028D+00, -.4586D-01, -.1052D-01, .2293D-02, .3880D+00, - + .5410D-01, -.3846D-01, .7951D-02, - + .1056D+00, -.4659D-01, -.1016D-01, .2915D-02, .4045D+00, - + .5528D-01, -.3621D-01, .9505D-02, - + .1081D+00, -.4725D-01, -.9781D-02, .3516D-02, .4187D+00, - + .5639D-01, -.3419D-01, .1093D-01, - + .1105D+00, -.4788D-01, -.9385D-02, .4125D-02, .4314D+00, - + .5749D-01, -.3227D-01, .1230D-01, - + .1126D+00, -.4840D-01, -.9017D-02, .4670D-02, .4417D+00, - + .5846D-01, -.3064D-01, .1348D-01, - + .1146D+00, -.4893D-01, -.8619D-02, .5242D-02, .4513D+00, - + .5946D-01, -.2902D-01, .1468D-01, - + .1166D+00, -.4941D-01, -.8231D-02, .5785D-02, .4595D+00, - + .6040D-01, -.2754D-01, .1578D-01, - + .1185D+00, -.4987D-01, -.7835D-02, .6329D-02, .4669D+00, - + .6133D-01, -.2612D-01, .1685D-01, - + .1201D+00, -.5026D-01, -.7478D-02, .6811D-02, .4729D+00, - + .6215D-01, -.2490D-01, .1778D-01 / - DATA ((PARTON(I,N,15),I=1,8),N=1,8)/ - + .7315D-01, -.3821D-01, -.1123D-01, -.8727D-03, .6341D-01, - + .5323D-01, -.7720D-01, -.9479D-02, - + .7726D-01, -.3952D-01, -.1193D-01, -.1027D-02, .8826D-01, - + .5405D-01, -.7746D-01, -.9212D-02, - + .8034D-01, -.4049D-01, -.1238D-01, -.1086D-02, .1079D+00, - + .5477D-01, -.7710D-01, -.8715D-02, - + .8383D-01, -.4157D-01, -.1282D-01, -.1091D-02, .1308D+00, - + .5569D-01, -.7618D-01, -.7870D-02, - + .8794D-01, -.4282D-01, -.1322D-01, -.1009D-02, .1584D+00, - + .5695D-01, -.7450D-01, -.6534D-02, - + .9087D-01, -.4369D-01, -.1344D-01, -.8912D-03, .1782D+00, - + .5794D-01, -.7296D-01, -.5386D-02, - + .9311D-01, -.4435D-01, -.1357D-01, -.7677D-03, .1933D+00, - + .5876D-01, -.7163D-01, -.4409D-02, - + .9640D-01, -.4531D-01, -.1369D-01, -.5335D-03, .2154D+00, - + .6004D-01, -.6945D-01, -.2838D-02 / - DATA ((PARTON(I,N,15),I=1,8),N=9,16)/ - + .9876D-01, -.4599D-01, -.1373D-01, -.3278D-03, .2309D+00, - + .6100D-01, -.6774D-01, -.1629D-02, - + .1034D+00, -.4728D-01, -.1371D-01, .1625D-03, .2605D+00, - + .6304D-01, -.6422D-01, .8943D-03, - + .1075D+00, -.4841D-01, -.1356D-01, .6995D-03, .2858D+00, - + .6501D-01, -.6087D-01, .3308D-02, - + .1110D+00, -.4936D-01, -.1336D-01, .1232D-02, .3065D+00, - + .6680D-01, -.5790D-01, .5473D-02, - + .1140D+00, -.5014D-01, -.1312D-01, .1723D-02, .3228D+00, - + .6836D-01, -.5538D-01, .7326D-02, - + .1174D+00, -.5101D-01, -.1279D-01, .2335D-02, .3403D+00, - + .7017D-01, -.5245D-01, .9484D-02, - + .1203D+00, -.5174D-01, -.1246D-01, .2900D-02, .3543D+00, - + .7180D-01, -.4996D-01, .1136D-01, - + .1230D+00, -.5240D-01, -.1211D-01, .3455D-02, .3663D+00, - + .7336D-01, -.4765D-01, .1313D-01 / - DATA ((PARTON(I,N,15),I=1,8),N=17,25)/ - + .1253D+00, -.5298D-01, -.1177D-01, .3970D-02, .3762D+00, - + .7477D-01, -.4561D-01, .1470D-01, - + .1282D+00, -.5367D-01, -.1131D-01, .4628D-02, .3872D+00, - + .7653D-01, -.4314D-01, .1664D-01, - + .1308D+00, -.5427D-01, -.1087D-01, .5247D-02, .3961D+00, - + .7816D-01, -.4092D-01, .1840D-01, - + .1333D+00, -.5484D-01, -.1041D-01, .5859D-02, .4037D+00, - + .7975D-01, -.3881D-01, .2009D-01, - + .1355D+00, -.5531D-01, -.9999D-02, .6395D-02, .4094D+00, - + .8112D-01, -.3702D-01, .2154D-01, - + .1376D+00, -.5577D-01, -.9566D-02, .6947D-02, .4145D+00, - + .8252D-01, -.3524D-01, .2300D-01, - + .1395D+00, -.5618D-01, -.9154D-02, .7461D-02, .4185D+00, - + .8382D-01, -.3362D-01, .2434D-01, - + .1414D+00, -.5657D-01, -.8741D-02, .7967D-02, .4217D+00, - + .8509D-01, -.3207D-01, .2564D-01, - + .1431D+00, -.5690D-01, -.8375D-02, .8409D-02, .4240D+00, - + .8620D-01, -.3074D-01, .2676D-01 / - DATA ((PARTON(I,N,16),I=1,8),N=1,8)/ - + .9347D-01, -.4600D-01, -.1496D-01, -.7030D-03, .8397D-01, - + .6238D-01, -.8989D-01, -.1068D-01, - + .9831D-01, -.4744D-01, -.1551D-01, -.7257D-03, .1117D+00, - + .6469D-01, -.8957D-01, -.9424D-02, - + .1019D+00, -.4849D-01, -.1583D-01, -.6704D-03, .1328D+00, - + .6655D-01, -.8877D-01, -.8170D-02, - + .1060D+00, -.4965D-01, -.1610D-01, -.5341D-03, .1564D+00, - + .6878D-01, -.8737D-01, -.6472D-02, - + .1107D+00, -.5096D-01, -.1629D-01, -.2771D-03, .1837D+00, - + .7154D-01, -.8513D-01, -.4152D-02, - + .1140D+00, -.5186D-01, -.1634D-01, -.3328D-04, .2025D+00, - + .7359D-01, -.8323D-01, -.2325D-02, - + .1165D+00, -.5254D-01, -.1633D-01, .1862D-03, .2165D+00, - + .7520D-01, -.8163D-01, -.8429D-03, - + .1202D+00, -.5351D-01, -.1626D-01, .5579D-03, .2362D+00, - + .7762D-01, -.7908D-01, .1447D-02 / - DATA ((PARTON(I,N,16),I=1,8),N=9,16)/ - + .1228D+00, -.5419D-01, -.1617D-01, .8578D-03, .2498D+00, - + .7937D-01, -.7712D-01, .3152D-02, - + .1279D+00, -.5545D-01, -.1587D-01, .1517D-02, .2744D+00, - + .8288D-01, -.7315D-01, .6598D-02, - + .1324D+00, -.5653D-01, -.1550D-01, .2184D-02, .2943D+00, - + .8611D-01, -.6943D-01, .9792D-02, - + .1362D+00, -.5742D-01, -.1511D-01, .2809D-02, .3097D+00, - + .8893D-01, -.6616D-01, .1259D-01, - + .1393D+00, -.5813D-01, -.1473D-01, .3361D-02, .3212D+00, - + .9130D-01, -.6341D-01, .1495D-01, - + .1428D+00, -.5891D-01, -.1425D-01, .4023D-02, .3329D+00, - + .9402D-01, -.6024D-01, .1766D-01, - + .1458D+00, -.5955D-01, -.1380D-01, .4612D-02, .3416D+00, - + .9639D-01, -.5755D-01, .2000D-01, - + .1486D+00, -.6011D-01, -.1335D-01, .5175D-02, .3486D+00, - + .9861D-01, -.5506D-01, .2217D-01 / - DATA ((PARTON(I,N,16),I=1,8),N=17,25)/ - + .1510D+00, -.6059D-01, -.1293D-01, .5683D-02, .3539D+00, - + .1006D+00, -.5288D-01, .2410D-01, - + .1539D+00, -.6114D-01, -.1239D-01, .6316D-02, .3593D+00, - + .1030D+00, -.5023D-01, .2645D-01, - + .1564D+00, -.6162D-01, -.1188D-01, .6895D-02, .3631D+00, - + .1053D+00, -.4786D-01, .2857D-01, - + .1589D+00, -.6204D-01, -.1138D-01, .7453D-02, .3657D+00, - + .1074D+00, -.4562D-01, .3060D-01, - + .1609D+00, -.6239D-01, -.1094D-01, .7931D-02, .3673D+00, - + .1092D+00, -.4373D-01, .3233D-01, - + .1629D+00, -.6271D-01, -.1048D-01, .8414D-02, .3681D+00, - + .1111D+00, -.4184D-01, .3407D-01, - + .1648D+00, -.6299D-01, -.1006D-01, .8854D-02, .3683D+00, - + .1128D+00, -.4013D-01, .3566D-01, - + .1665D+00, -.6325D-01, -.9637D-02, .9279D-02, .3680D+00, - + .1145D+00, -.3850D-01, .3719D-01, - + .1680D+00, -.6345D-01, -.9272D-02, .9643D-02, .3672D+00, - + .1159D+00, -.3710D-01, .3851D-01 / - DATA ((PARTON(I,N,17),I=1,8),N=1,8)/ - + .1255D+00, -.5791D-01, -.2005D-01, -.1622D-03, .1194D+00, - + .7981D-01, -.1069D+00, -.9859D-02, - + .1312D+00, -.5938D-01, -.2021D-01, .5299D-04, .1486D+00, - + .8453D-01, -.1053D+00, -.6774D-02, - + .1354D+00, -.6043D-01, -.2022D-01, .2898D-03, .1694D+00, - + .8815D-01, -.1035D+00, -.4200D-02, - + .1401D+00, -.6155D-01, -.2013D-01, .6272D-03, .1916D+00, - + .9231D-01, -.1011D+00, -.1078D-02, - + .1454D+00, -.6278D-01, -.1990D-01, .1107D-02, .2154D+00, - + .9724D-01, -.9781D-01, .2810D-02, - + .1491D+00, -.6360D-01, -.1966D-01, .1495D-02, .2309D+00, - + .1007D+00, -.9525D-01, .5680D-02, - + .1519D+00, -.6420D-01, -.1944D-01, .1815D-02, .2418D+00, - + .1034D+00, -.9318D-01, .7920D-02, - + .1559D+00, -.6504D-01, -.1906D-01, .2317D-02, .2564D+00, - + .1074D+00, -.9001D-01, .1126D-01 / - DATA ((PARTON(I,N,17),I=1,8),N=9,16)/ - + .1587D+00, -.6560D-01, -.1875D-01, .2696D-02, .2658D+00, - + .1102D+00, -.8766D-01, .1367D-01, - + .1641D+00, -.6662D-01, -.1807D-01, .3472D-02, .2815D+00, - + .1156D+00, -.8302D-01, .1840D-01, - + .1686D+00, -.6743D-01, -.1740D-01, .4199D-02, .2928D+00, - + .1204D+00, -.7880D-01, .2265D-01, - + .1724D+00, -.6806D-01, -.1677D-01, .4838D-02, .3003D+00, - + .1245D+00, -.7517D-01, .2628D-01, - + .1755D+00, -.6853D-01, -.1621D-01, .5376D-02, .3051D+00, - + .1279D+00, -.7215D-01, .2929D-01, - + .1789D+00, -.6901D-01, -.1555D-01, .5992D-02, .3090D+00, - + .1317D+00, -.6873D-01, .3270D-01, - + .1817D+00, -.6937D-01, -.1497D-01, .6517D-02, .3111D+00, - + .1350D+00, -.6585D-01, .3561D-01, - + .1842D+00, -.6966D-01, -.1442D-01, .6999D-02, .3120D+00, - + .1380D+00, -.6321D-01, .3828D-01 / - DATA ((PARTON(I,N,17),I=1,8),N=17,25)/ - + .1863D+00, -.6989D-01, -.1392D-01, .7420D-02, .3120D+00, - + .1407D+00, -.6090D-01, .4063D-01, - + .1888D+00, -.7011D-01, -.1331D-01, .7924D-02, .3109D+00, - + .1440D+00, -.5812D-01, .4348D-01, - + .1910D+00, -.7027D-01, -.1275D-01, .8368D-02, .3091D+00, - + .1469D+00, -.5565D-01, .4604D-01, - + .1930D+00, -.7038D-01, -.1221D-01, .8781D-02, .3066D+00, - + .1497D+00, -.5333D-01, .4847D-01, - + .1946D+00, -.7044D-01, -.1174D-01, .9123D-02, .3040D+00, - + .1521D+00, -.5137D-01, .5054D-01, - + .1962D+00, -.7047D-01, -.1128D-01, .9456D-02, .3008D+00, - + .1545D+00, -.4943D-01, .5261D-01, - + .1975D+00, -.7047D-01, -.1085D-01, .9751D-02, .2974D+00, - + .1567D+00, -.4768D-01, .5449D-01, - + .1988D+00, -.7044D-01, -.1044D-01, .1003D-01, .2938D+00, - + .1589D+00, -.4600D-01, .5631D-01, - + .1998D+00, -.7040D-01, -.1008D-01, .1025D-01, .2904D+00, - + .1607D+00, -.4457D-01, .5788D-01 / - DATA ((PARTON(I,N,18),I=1,8),N=1,8)/ - + .1651D+00, -.7159D-01, -.2444D-01, .6957D-03, .1656D+00, - + .1080D+00, -.1217D+00, -.2680D-02, - + .1715D+00, -.7281D-01, -.2400D-01, .1161D-02, .1916D+00, - + .1154D+00, -.1182D+00, .2643D-02, - + .1761D+00, -.7363D-01, -.2358D-01, .1561D-02, .2087D+00, - + .1208D+00, -.1152D+00, .6744D-02, - + .1810D+00, -.7446D-01, -.2303D-01, .2053D-02, .2254D+00, - + .1269D+00, -.1116D+00, .1144D-01, - + .1865D+00, -.7531D-01, -.2231D-01, .2671D-02, .2416D+00, - + .1338D+00, -.1071D+00, .1698D-01, - + .1903D+00, -.7584D-01, -.2174D-01, .3127D-02, .2510D+00, - + .1386D+00, -.1038D+00, .2090D-01, - + .1930D+00, -.7620D-01, -.2129D-01, .3482D-02, .2571D+00, - + .1422D+00, -.1012D+00, .2389D-01, - + .1969D+00, -.7666D-01, -.2060D-01, .4008D-02, .2643D+00, - + .1474D+00, -.9739D-01, .2824D-01 / - DATA ((PARTON(I,N,18),I=1,8),N=9,16)/ - + .1996D+00, -.7694D-01, -.2009D-01, .4384D-02, .2682D+00, - + .1511D+00, -.9466D-01, .3131D-01, - + .2045D+00, -.7736D-01, -.1907D-01, .5108D-02, .2732D+00, - + .1580D+00, -.8938D-01, .3719D-01, - + .2085D+00, -.7761D-01, -.1813D-01, .5738D-02, .2749D+00, - + .1640D+00, -.8472D-01, .4235D-01, - + .2117D+00, -.7772D-01, -.1732D-01, .6260D-02, .2744D+00, - + .1691D+00, -.8079D-01, .4669D-01, - + .2141D+00, -.7774D-01, -.1663D-01, .6676D-02, .2728D+00, - + .1732D+00, -.7758D-01, .5024D-01, - + .2167D+00, -.7769D-01, -.1585D-01, .7129D-02, .2698D+00, - + .1778D+00, -.7399D-01, .5422D-01, - + .2188D+00, -.7758D-01, -.1519D-01, .7495D-02, .2662D+00, - + .1818D+00, -.7099D-01, .5758D-01, - + .2205D+00, -.7741D-01, -.1458D-01, .7816D-02, .2622D+00, - + .1854D+00, -.6826D-01, .6066D-01 / - DATA ((PARTON(I,N,18),I=1,8),N=17,25)/ - + .2219D+00, -.7722D-01, -.1404D-01, .8083D-02, .2581D+00, - + .1885D+00, -.6589D-01, .6335D-01, - + .2234D+00, -.7693D-01, -.1339D-01, .8388D-02, .2526D+00, - + .1923D+00, -.6305D-01, .6660D-01, - + .2247D+00, -.7660D-01, -.1281D-01, .8641D-02, .2470D+00, - + .1958D+00, -.6053D-01, .6950D-01, - + .2257D+00, -.7624D-01, -.1226D-01, .8864D-02, .2413D+00, - + .1990D+00, -.5818D-01, .7226D-01, - + .2264D+00, -.7589D-01, -.1180D-01, .9037D-02, .2361D+00, - + .2018D+00, -.5620D-01, .7459D-01, - + .2270D+00, -.7550D-01, -.1134D-01, .9197D-02, .2307D+00, - + .2046D+00, -.5424D-01, .7694D-01, - + .2275D+00, -.7510D-01, -.1092D-01, .9329D-02, .2255D+00, - + .2072D+00, -.5248D-01, .7908D-01, - + .2278D+00, -.7469D-01, -.1052D-01, .9444D-02, .2204D+00, - + .2097D+00, -.5079D-01, .8114D-01, - + .2281D+00, -.7430D-01, -.1018D-01, .9533D-02, .2158D+00, - + .2119D+00, -.4935D-01, .8292D-01 / - DATA ((PARTON(I,N,19),I=1,8),N=1,8)/ - + .2020D+00, -.8269D-01, -.2651D-01, .1397D-02, .2050D+00, - + .1403D+00, -.1289D+00, .1036D-01, - + .2083D+00, -.8343D-01, -.2556D-01, .1997D-02, .2238D+00, - + .1494D+00, -.1239D+00, .1736D-01, - + .2128D+00, -.8386D-01, -.2481D-01, .2464D-02, .2349D+00, - + .1560D+00, -.1200D+00, .2255D-01, - + .2175D+00, -.8424D-01, -.2392D-01, .2998D-02, .2445D+00, - + .1631D+00, -.1155D+00, .2832D-01, - + .2226D+00, -.8453D-01, -.2284D-01, .3621D-02, .2521D+00, - + .1711D+00, -.1101D+00, .3494D-01, - + .2259D+00, -.8464D-01, -.2207D-01, .4054D-02, .2555D+00, - + .1766D+00, -.1063D+00, .3952D-01, - + .2283D+00, -.8467D-01, -.2147D-01, .4378D-02, .2569D+00, - + .1806D+00, -.1034D+00, .4296D-01, - + .2315D+00, -.8464D-01, -.2059D-01, .4838D-02, .2575D+00, - + .1864D+00, -.9919D-01, .4790D-01 / - DATA ((PARTON(I,N,19),I=1,8),N=9,16)/ - + .2337D+00, -.8456D-01, -.1997D-01, .5153D-02, .2569D+00, - + .1904D+00, -.9622D-01, .5135D-01, - + .2374D+00, -.8426D-01, -.1876D-01, .5730D-02, .2536D+00, - + .1980D+00, -.9056D-01, .5788D-01, - + .2403D+00, -.8384D-01, -.1769D-01, .6200D-02, .2485D+00, - + .2045D+00, -.8565D-01, .6352D-01, - + .2424D+00, -.8337D-01, -.1679D-01, .6566D-02, .2429D+00, - + .2099D+00, -.8156D-01, .6822D-01, - + .2439D+00, -.8290D-01, -.1606D-01, .6843D-02, .2374D+00, - + .2142D+00, -.7825D-01, .7204D-01, - + .2453D+00, -.8227D-01, -.1524D-01, .7128D-02, .2303D+00, - + .2191D+00, -.7458D-01, .7632D-01, - + .2462D+00, -.8166D-01, -.1455D-01, .7345D-02, .2238D+00, - + .2232D+00, -.7151D-01, .7990D-01, - + .2469D+00, -.8104D-01, -.1392D-01, .7522D-02, .2174D+00, - + .2270D+00, -.6874D-01, .8317D-01 / - DATA ((PARTON(I,N,19),I=1,8),N=17,25)/ - + .2473D+00, -.8043D-01, -.1338D-01, .7661D-02, .2115D+00, - + .2303D+00, -.6633D-01, .8603D-01, - + .2476D+00, -.7963D-01, -.1273D-01, .7807D-02, .2040D+00, - + .2343D+00, -.6346D-01, .8948D-01, - + .2476D+00, -.7885D-01, -.1216D-01, .7917D-02, .1971D+00, - + .2378D+00, -.6092D-01, .9256D-01, - + .2474D+00, -.7804D-01, -.1162D-01, .8002D-02, .1903D+00, - + .2412D+00, -.5854D-01, .9549D-01, - + .2471D+00, -.7731D-01, -.1117D-01, .8059D-02, .1845D+00, - + .2442D+00, -.5654D-01, .9797D-01, - + .2467D+00, -.7653D-01, -.1073D-01, .8102D-02, .1785D+00, - + .2471D+00, -.5456D-01, .1005D+00, - + .2461D+00, -.7579D-01, -.1033D-01, .8130D-02, .1731D+00, - + .2498D+00, -.5278D-01, .1027D+00, - + .2454D+00, -.7503D-01, -.9953D-02, .8145D-02, .1678D+00, - + .2524D+00, -.5107D-01, .1050D+00, - + .2447D+00, -.7435D-01, -.9631D-02, .8150D-02, .1632D+00, - + .2547D+00, -.4961D-01, .1069D+00 / - DATA ((PARTON(I,N,20),I=1,8),N=1,8)/ - + .2368D+00, -.9150D-01, -.2694D-01, .1849D-02, .2338D+00, - + .1750D+00, -.1304D+00, .2782D-01, - + .2426D+00, -.9161D-01, -.2563D-01, .2489D-02, .2437D+00, - + .1849D+00, -.1244D+00, .3592D-01, - + .2465D+00, -.9156D-01, -.2464D-01, .2955D-02, .2482D+00, - + .1920D+00, -.1198D+00, .4178D-01, - + .2504D+00, -.9138D-01, -.2353D-01, .3460D-02, .2505D+00, - + .1996D+00, -.1147D+00, .4819D-01, - + .2545D+00, -.9101D-01, -.2225D-01, .4017D-02, .2502D+00, - + .2080D+00, -.1088D+00, .5541D-01, - + .2571D+00, -.9064D-01, -.2135D-01, .4386D-02, .2482D+00, - + .2137D+00, -.1046D+00, .6035D-01, - + .2588D+00, -.9031D-01, -.2067D-01, .4651D-02, .2458D+00, - + .2178D+00, -.1016D+00, .6402D-01, - + .2610D+00, -.8973D-01, -.1970D-01, .5013D-02, .2412D+00, - + .2237D+00, -.9710D-01, .6924D-01 / - DATA ((PARTON(I,N,20),I=1,8),N=9,16)/ - + .2624D+00, -.8926D-01, -.1901D-01, .5252D-02, .2373D+00, - + .2278D+00, -.9399D-01, .7287D-01, - + .2645D+00, -.8821D-01, -.1772D-01, .5666D-02, .2281D+00, - + .2354D+00, -.8813D-01, .7968D-01, - + .2659D+00, -.8712D-01, -.1662D-01, .5980D-02, .2187D+00, - + .2419D+00, -.8309D-01, .8551D-01, - + .2665D+00, -.8606D-01, -.1570D-01, .6207D-02, .2100D+00, - + .2472D+00, -.7892D-01, .9035D-01, - + .2668D+00, -.8511D-01, -.1496D-01, .6367D-02, .2024D+00, - + .2515D+00, -.7556D-01, .9428D-01, - + .2667D+00, -.8394D-01, -.1414D-01, .6518D-02, .1934D+00, - + .2563D+00, -.7184D-01, .9866D-01, - + .2663D+00, -.8286D-01, -.1346D-01, .6620D-02, .1856D+00, - + .2604D+00, -.6873D-01, .1023D+00, - + .2658D+00, -.8181D-01, -.1285D-01, .6694D-02, .1783D+00, - + .2641D+00, -.6593D-01, .1057D+00 / - DATA ((PARTON(I,N,20),I=1,8),N=17,25)/ - + .2650D+00, -.8083D-01, -.1232D-01, .6742D-02, .1718D+00, - + .2673D+00, -.6349D-01, .1086D+00, - + .2639D+00, -.7957D-01, -.1169D-01, .6781D-02, .1639D+00, - + .2712D+00, -.6058D-01, .1121D+00, - + .2626D+00, -.7838D-01, -.1114D-01, .6797D-02, .1568D+00, - + .2747D+00, -.5801D-01, .1153D+00, - + .2612D+00, -.7719D-01, -.1063D-01, .6796D-02, .1501D+00, - + .2780D+00, -.5559D-01, .1182D+00, - + .2597D+00, -.7614D-01, -.1020D-01, .6783D-02, .1444D+00, - + .2809D+00, -.5356D-01, .1208D+00, - + .2581D+00, -.7504D-01, -.9781D-02, .6758D-02, .1388D+00, - + .2838D+00, -.5155D-01, .1234D+00, - + .2565D+00, -.7401D-01, -.9404D-02, .6726D-02, .1337D+00, - + .2865D+00, -.4972D-01, .1257D+00, - + .2548D+00, -.7297D-01, -.9047D-02, .6687D-02, .1288D+00, - + .2891D+00, -.4797D-01, .1280D+00, - + .2533D+00, -.7205D-01, -.8744D-02, .6646D-02, .1247D+00, - + .2914D+00, -.4648D-01, .1300D+00 / - DATA ((PARTON(I,N,21),I=1,8),N=1,8)/ - + .2695D+00, -.9816D-01, -.2623D-01, .2059D-02, .2503D+00, - + .2101D+00, -.1275D+00, .4836D-01, - + .2742D+00, -.9755D-01, -.2469D-01, .2673D-02, .2512D+00, - + .2203D+00, -.1207D+00, .5705D-01, - + .2771D+00, -.9697D-01, -.2357D-01, .3098D-02, .2495D+00, - + .2274D+00, -.1158D+00, .6325D-01, - + .2799D+00, -.9619D-01, -.2234D-01, .3538D-02, .2454D+00, - + .2350D+00, -.1103D+00, .6995D-01, - + .2826D+00, -.9512D-01, -.2094D-01, .3999D-02, .2384D+00, - + .2433D+00, -.1041D+00, .7741D-01, - + .2840D+00, -.9426D-01, -.1999D-01, .4290D-02, .2324D+00, - + .2489D+00, -.9978D-01, .8246D-01, - + .2849D+00, -.9355D-01, -.1929D-01, .4491D-02, .2272D+00, - + .2530D+00, -.9658D-01, .8620D-01, - + .2858D+00, -.9244D-01, -.1828D-01, .4756D-02, .2190D+00, - + .2587D+00, -.9201D-01, .9150D-01 / - DATA ((PARTON(I,N,21),I=1,8),N=9,16)/ - + .2862D+00, -.9158D-01, -.1759D-01, .4923D-02, .2128D+00, - + .2626D+00, -.8885D-01, .9517D-01, - + .2863D+00, -.8979D-01, -.1629D-01, .5194D-02, .2001D+00, - + .2699D+00, -.8290D-01, .1020D+00, - + .2858D+00, -.8806D-01, -.1519D-01, .5381D-02, .1883D+00, - + .2761D+00, -.7780D-01, .1078D+00, - + .2848D+00, -.8647D-01, -.1429D-01, .5502D-02, .1782D+00, - + .2811D+00, -.7359D-01, .1127D+00, - + .2837D+00, -.8508D-01, -.1357D-01, .5576D-02, .1697D+00, - + .2852D+00, -.7020D-01, .1166D+00, - + .2820D+00, -.8342D-01, -.1278D-01, .5632D-02, .1602D+00, - + .2898D+00, -.6646D-01, .1209D+00, - + .2802D+00, -.8193D-01, -.1213D-01, .5658D-02, .1522D+00, - + .2936D+00, -.6333D-01, .1246D+00, - + .2783D+00, -.8051D-01, -.1155D-01, .5665D-02, .1449D+00, - + .2971D+00, -.6049D-01, .1279D+00 / - DATA ((PARTON(I,N,21),I=1,8),N=17,25)/ - + .2764D+00, -.7921D-01, -.1105D-01, .5657D-02, .1385D+00, - + .3001D+00, -.5803D-01, .1308D+00, - + .2738D+00, -.7757D-01, -.1046D-01, .5632D-02, .1310D+00, - + .3038D+00, -.5508D-01, .1343D+00, - + .2711D+00, -.7604D-01, -.9938D-02, .5594D-02, .1244D+00, - + .3071D+00, -.5246D-01, .1375D+00, - + .2684D+00, -.7454D-01, -.9457D-02, .5546D-02, .1182D+00, - + .3102D+00, -.5000D-01, .1404D+00, - + .2659D+00, -.7323D-01, -.9058D-02, .5496D-02, .1131D+00, - + .3129D+00, -.4793D-01, .1430D+00, - + .2632D+00, -.7188D-01, -.8666D-02, .5438D-02, .1081D+00, - + .3157D+00, -.4587D-01, .1456D+00, - + .2606D+00, -.7062D-01, -.8315D-02, .5377D-02, .1036D+00, - + .3183D+00, -.4400D-01, .1479D+00, - + .2579D+00, -.6937D-01, -.7983D-02, .5313D-02, .9942D-01, - + .3208D+00, -.4221D-01, .1503D+00, - + .2555D+00, -.6828D-01, -.7702D-02, .5253D-02, .9587D-01, - + .3231D+00, -.4067D-01, .1523D+00 / - DATA ((PARTON(I,N,22),I=1,8),N=1,8)/ - + .2998D+00, -.1028D+00, -.2475D-01, .2073D-02, .2545D+00, - + .2444D+00, -.1210D+00, .7085D-01, - + .3028D+00, -.1014D+00, -.2309D-01, .2623D-02, .2475D+00, - + .2544D+00, -.1139D+00, .7973D-01, - + .3045D+00, -.1003D+00, -.2191D-01, .2987D-02, .2406D+00, - + .2613D+00, -.1087D+00, .8601D-01, - + .3058D+00, -.9891D-01, -.2064D-01, .3348D-02, .2315D+00, - + .2685D+00, -.1031D+00, .9273D-01, - + .3066D+00, -.9715D-01, -.1923D-01, .3709D-02, .2198D+00, - + .2764D+00, -.9669D-01, .1002D+00, - + .3067D+00, -.9582D-01, -.1827D-01, .3926D-02, .2109D+00, - + .2817D+00, -.9234D-01, .1052D+00, - + .3065D+00, -.9475D-01, -.1757D-01, .4071D-02, .2039D+00, - + .2855D+00, -.8911D-01, .1089D+00, - + .3059D+00, -.9312D-01, -.1658D-01, .4252D-02, .1935D+00, - + .2909D+00, -.8451D-01, .1141D+00 / - DATA ((PARTON(I,N,22),I=1,8),N=9,16)/ - + .3051D+00, -.9191D-01, -.1590D-01, .4359D-02, .1861D+00, - + .2946D+00, -.8133D-01, .1177D+00, - + .3030D+00, -.8945D-01, -.1465D-01, .4520D-02, .1717D+00, - + .3014D+00, -.7536D-01, .1244D+00, - + .3004D+00, -.8714D-01, -.1360D-01, .4615D-02, .1592D+00, - + .3071D+00, -.7026D-01, .1301D+00, - + .2977D+00, -.8508D-01, -.1274D-01, .4662D-02, .1487D+00, - + .3118D+00, -.6605D-01, .1348D+00, - + .2951D+00, -.8331D-01, -.1206D-01, .4679D-02, .1403D+00, - + .3155D+00, -.6265D-01, .1386D+00, - + .2917D+00, -.8123D-01, -.1132D-01, .4676D-02, .1311D+00, - + .3198D+00, -.5889D-01, .1429D+00, - + .2885D+00, -.7941D-01, -.1071D-01, .4656D-02, .1235D+00, - + .3233D+00, -.5574D-01, .1465D+00, - + .2852D+00, -.7768D-01, -.1016D-01, .4624D-02, .1167D+00, - + .3264D+00, -.5288D-01, .1497D+00 / - DATA ((PARTON(I,N,22),I=1,8),N=17,25)/ - + .2822D+00, -.7612D-01, -.9697D-02, .4586D-02, .1110D+00, - + .3292D+00, -.5040D-01, .1525D+00, - + .2781D+00, -.7418D-01, -.9148D-02, .4528D-02, .1042D+00, - + .3325D+00, -.4741D-01, .1559D+00, - + .2742D+00, -.7240D-01, -.8669D-02, .4465D-02, .9833D-01, - + .3356D+00, -.4476D-01, .1590D+00, - + .2703D+00, -.7066D-01, -.8226D-02, .4396D-02, .9296D-01, - + .3385D+00, -.4225D-01, .1619D+00, - + .2668D+00, -.6916D-01, -.7860D-02, .4332D-02, .8856D-01, - + .3410D+00, -.4014D-01, .1645D+00, - + .2631D+00, -.6762D-01, -.7500D-02, .4261D-02, .8429D-01, - + .3436D+00, -.3803D-01, .1670D+00, - + .2595D+00, -.6620D-01, -.7179D-02, .4192D-02, .8051D-01, - + .3460D+00, -.3612D-01, .1693D+00, - + .2559D+00, -.6480D-01, -.6876D-02, .4121D-02, .7698D-01, - + .3484D+00, -.3427D-01, .1717D+00, - + .2528D+00, -.6359D-01, -.6620D-02, .4058D-02, .7402D-01, - + .3506D+00, -.3268D-01, .1737D+00 / - DATA ((PARTON(I,N,23),I=1,8),N=1,8)/ - + .3271D+00, -.1055D+00, -.2276D-01, .1949D-02, .2478D+00, - + .2768D+00, -.1117D+00, .9435D-01, - + .3281D+00, -.1034D+00, -.2109D-01, .2417D-02, .2346D+00, - + .2863D+00, -.1044D+00, .1031D+00, - + .3282D+00, -.1017D+00, -.1991D-01, .2714D-02, .2240D+00, - + .2928D+00, -.9918D-01, .1093D+00, - + .3277D+00, -.9978D-01, -.1866D-01, .2999D-02, .2115D+00, - + .2996D+00, -.9350D-01, .1159D+00, - + .3264D+00, -.9737D-01, -.1728D-01, .3269D-02, .1967D+00, - + .3069D+00, -.8713D-01, .1231D+00, - + .3250D+00, -.9560D-01, -.1636D-01, .3423D-02, .1863D+00, - + .3118D+00, -.8279D-01, .1280D+00, - + .3237D+00, -.9421D-01, -.1569D-01, .3521D-02, .1784D+00, - + .3153D+00, -.7958D-01, .1315D+00, - + .3213D+00, -.9212D-01, -.1475D-01, .3637D-02, .1671D+00, - + .3203D+00, -.7500D-01, .1366D+00 / - DATA ((PARTON(I,N,23),I=1,8),N=9,16)/ - + .3193D+00, -.9059D-01, -.1410D-01, .3700D-02, .1593D+00, - + .3237D+00, -.7185D-01, .1400D+00, - + .3148D+00, -.8754D-01, -.1292D-01, .3783D-02, .1447D+00, - + .3298D+00, -.6592D-01, .1465D+00, - + .3101D+00, -.8474D-01, -.1194D-01, .3815D-02, .1324D+00, - + .3350D+00, -.6084D-01, .1520D+00, - + .3056D+00, -.8229D-01, -.1114D-01, .3816D-02, .1225D+00, - + .3393D+00, -.5664D-01, .1565D+00, - + .3015D+00, -.8021D-01, -.1051D-01, .3800D-02, .1146D+00, - + .3427D+00, -.5325D-01, .1602D+00, - + .2965D+00, -.7780D-01, -.9829D-02, .3765D-02, .1062D+00, - + .3465D+00, -.4950D-01, .1643D+00, - + .2919D+00, -.7571D-01, -.9270D-02, .3721D-02, .9939D-01, - + .3496D+00, -.4634D-01, .1677D+00, - + .2873D+00, -.7375D-01, -.8772D-02, .3672D-02, .9340D-01, - + .3525D+00, -.4347D-01, .1708D+00 / - DATA ((PARTON(I,N,23),I=1,8),N=17,25)/ - + .2831D+00, -.7199D-01, -.8347D-02, .3621D-02, .8836D-01, - + .3550D+00, -.4096D-01, .1735D+00, - + .2778D+00, -.6983D-01, -.7847D-02, .3551D-02, .8252D-01, - + .3580D+00, -.3795D-01, .1768D+00, - + .2727D+00, -.6786D-01, -.7413D-02, .3480D-02, .7753D-01, - + .3607D+00, -.3527D-01, .1798D+00, - + .2677D+00, -.6596D-01, -.7012D-02, .3407D-02, .7300D-01, - + .3633D+00, -.3273D-01, .1826D+00, - + .2632D+00, -.6433D-01, -.6682D-02, .3341D-02, .6932D-01, - + .3656D+00, -.3058D-01, .1851D+00, - + .2586D+00, -.6267D-01, -.6358D-02, .3271D-02, .6576D-01, - + .3680D+00, -.2843D-01, .1875D+00, - + .2542D+00, -.6115D-01, -.6070D-02, .3204D-02, .6265D-01, - + .3702D+00, -.2647D-01, .1898D+00, - + .2499D+00, -.5966D-01, -.5798D-02, .3137D-02, .5975D-01, - + .3724D+00, -.2458D-01, .1921D+00, - + .2461D+00, -.5837D-01, -.5570D-02, .3078D-02, .5733D-01, - + .3744D+00, -.2295D-01, .1941D+00 / - DATA ((PARTON(I,N,24),I=1,8),N=1,8)/ - + .3509D+00, -.1064D+00, -.2050D-01, .1740D-02, .2325D+00, - + .3069D+00, -.1001D+00, .1181D+00, - + .3495D+00, -.1037D+00, -.1888D-01, .2123D-02, .2151D+00, - + .3157D+00, -.9291D-01, .1266D+00, - + .3479D+00, -.1015D+00, -.1775D-01, .2357D-02, .2021D+00, - + .3216D+00, -.8771D-01, .1326D+00, - + .3455D+00, -.9902D-01, -.1655D-01, .2573D-02, .1878D+00, - + .3279D+00, -.8209D-01, .1389D+00, - + .3419D+00, -.9603D-01, -.1525D-01, .2768D-02, .1717D+00, - + .3346D+00, -.7580D-01, .1458D+00, - + .3388D+00, -.9387D-01, -.1439D-01, .2872D-02, .1607D+00, - + .3390D+00, -.7152D-01, .1504D+00, - + .3362D+00, -.9219D-01, -.1376D-01, .2935D-02, .1527D+00, - + .3422D+00, -.6835D-01, .1538D+00, - + .3321D+00, -.8971D-01, -.1289D-01, .3004D-02, .1414D+00, - + .3467D+00, -.6384D-01, .1586D+00 / - DATA ((PARTON(I,N,24),I=1,8),N=9,16)/ - + .3288D+00, -.8791D-01, -.1229D-01, .3037D-02, .1338D+00, - + .3498D+00, -.6073D-01, .1619D+00, - + .3219D+00, -.8438D-01, -.1121D-01, .3068D-02, .1199D+00, - + .3554D+00, -.5488D-01, .1680D+00, - + .3152D+00, -.8119D-01, -.1030D-01, .3063D-02, .1086D+00, - + .3600D+00, -.4986D-01, .1733D+00, - + .3089D+00, -.7842D-01, -.9580D-02, .3039D-02, .9959D-01, - + .3638D+00, -.4570D-01, .1776D+00, - + .3034D+00, -.7611D-01, -.9008D-02, .3006D-02, .9265D-01, - + .3669D+00, -.4232D-01, .1810D+00, - + .2968D+00, -.7345D-01, -.8389D-02, .2956D-02, .8526D-01, - + .3703D+00, -.3858D-01, .1850D+00, - + .2908D+00, -.7117D-01, -.7884D-02, .2905D-02, .7939D-01, - + .3731D+00, -.3543D-01, .1882D+00, - + .2851D+00, -.6904D-01, -.7437D-02, .2850D-02, .7428D-01, - + .3756D+00, -.3256D-01, .1912D+00 / - DATA ((PARTON(I,N,24),I=1,8),N=17,25)/ - + .2799D+00, -.6716D-01, -.7056D-02, .2797D-02, .7002D-01, - + .3778D+00, -.3005D-01, .1938D+00, - + .2734D+00, -.6485D-01, -.6610D-02, .2728D-02, .6512D-01, - + .3805D+00, -.2702D-01, .1969D+00, - + .2673D+00, -.6277D-01, -.6223D-02, .2660D-02, .6098D-01, - + .3829D+00, -.2432D-01, .1997D+00, - + .2613D+00, -.6077D-01, -.5867D-02, .2592D-02, .5725D-01, - + .3853D+00, -.2175D-01, .2024D+00, - + .2560D+00, -.5906D-01, -.5575D-02, .2531D-02, .5423D-01, - + .3873D+00, -.1958D-01, .2048D+00, - + .2506D+00, -.5734D-01, -.5289D-02, .2469D-02, .5133D-01, - + .3894D+00, -.1740D-01, .2071D+00, - + .2456D+00, -.5576D-01, -.5035D-02, .2409D-02, .4880D-01, - + .3914D+00, -.1541D-01, .2093D+00, - + .2406D+00, -.5423D-01, -.4797D-02, .2351D-02, .4645D-01, - + .3935D+00, -.1349D-01, .2115D+00, - + .2363D+00, -.5292D-01, -.4596D-02, .2299D-02, .4451D-01, - + .3953D+00, -.1183D-01, .2134D+00 / - DATA ((PARTON(I,N,25),I=1,8),N=1,8)/ - + .3708D+00, -.1058D+00, -.1811D-01, .1490D-02, .2110D+00, - + .3344D+00, -.8690D-01, .1417D+00, - + .3669D+00, -.1024D+00, -.1659D-01, .1794D-02, .1914D+00, - + .3424D+00, -.7978D-01, .1498D+00, - + .3634D+00, -.9981D-01, -.1553D-01, .1973D-02, .1774D+00, - + .3478D+00, -.7469D-01, .1554D+00, - + .3588D+00, -.9685D-01, -.1443D-01, .2131D-02, .1625D+00, - + .3535D+00, -.6918D-01, .1613D+00, - + .3528D+00, -.9337D-01, -.1323D-01, .2267D-02, .1464D+00, - + .3596D+00, -.6302D-01, .1679D+00, - + .3481D+00, -.9088D-01, -.1244D-01, .2335D-02, .1357D+00, - + .3635D+00, -.5884D-01, .1722D+00, - + .3443D+00, -.8897D-01, -.1187D-01, .2373D-02, .1281D+00, - + .3664D+00, -.5574D-01, .1754D+00, - + .3383D+00, -.8616D-01, -.1107D-01, .2409D-02, .1175D+00, - + .3705D+00, -.5132D-01, .1799D+00 / - DATA ((PARTON(I,N,25),I=1,8),N=9,16)/ - + .3338D+00, -.8415D-01, -.1054D-01, .2423D-02, .1105D+00, - + .3733D+00, -.4827D-01, .1831D+00, - + .3246D+00, -.8025D-01, -.9556D-02, .2423D-02, .9795D-01, - + .3782D+00, -.4252D-01, .1889D+00, - + .3158D+00, -.7676D-01, -.8747D-02, .2400D-02, .8793D-01, - + .3824D+00, -.3758D-01, .1938D+00, - + .3079D+00, -.7377D-01, -.8099D-02, .2364D-02, .8014D-01, - + .3857D+00, -.3347D-01, .1978D+00, - + .3011D+00, -.7129D-01, -.7590D-02, .2326D-02, .7419D-01, - + .3884D+00, -.3014D-01, .2011D+00, - + .2930D+00, -.6847D-01, -.7039D-02, .2273D-02, .6794D-01, - + .3915D+00, -.2643D-01, .2048D+00, - + .2859D+00, -.6606D-01, -.6593D-02, .2222D-02, .6302D-01, - + .3940D+00, -.2330D-01, .2079D+00, - + .2792D+00, -.6384D-01, -.6198D-02, .2171D-02, .5878D-01, - + .3962D+00, -.2044D-01, .2107D+00 / - DATA ((PARTON(I,N,25),I=1,8),N=17,25)/ - + .2731D+00, -.6188D-01, -.5863D-02, .2122D-02, .5526D-01, - + .3981D+00, -.1793D-01, .2131D+00, - + .2655D+00, -.5950D-01, -.5471D-02, .2059D-02, .5125D-01, - + .4005D+00, -.1491D-01, .2161D+00, - + .2585D+00, -.5736D-01, -.5133D-02, .2000D-02, .4787D-01, - + .4026D+00, -.1220D-01, .2187D+00, - + .2517D+00, -.5532D-01, -.4823D-02, .1941D-02, .4484D-01, - + .4046D+00, -.9627D-02, .2213D+00, - + .2458D+00, -.5359D-01, -.4569D-02, .1889D-02, .4240D-01, - + .4064D+00, -.7443D-02, .2235D+00, - + .2398D+00, -.5185D-01, -.4321D-02, .1836D-02, .4007D-01, - + .4083D+00, -.5246D-02, .2257D+00, - + .2343D+00, -.5027D-01, -.4102D-02, .1787D-02, .3804D-01, - + .4101D+00, -.3236D-02, .2278D+00, - + .2288D+00, -.4874D-01, -.3897D-02, .1738D-02, .3616D-01, - + .4119D+00, -.1287D-02, .2299D+00, - + .2241D+00, -.4743D-01, -.3724D-02, .1696D-02, .3460D-01, - + .4136D+00, .3962D-03, .2318D+00 / - DATA ((PARTON(I,N,26),I=1,8),N=1,8)/ - + .3864D+00, -.1037D+00, -.1573D-01, .1233D-02, .1860D+00, - + .3593D+00, -.7231D-01, .1647D+00, - + .3798D+00, -.9979D-01, -.1433D-01, .1467D-02, .1657D+00, - + .3665D+00, -.6538D-01, .1723D+00, - + .3744D+00, -.9683D-01, -.1337D-01, .1600D-02, .1519D+00, - + .3714D+00, -.6043D-01, .1775D+00, - + .3677D+00, -.9350D-01, -.1237D-01, .1713D-02, .1375D+00, - + .3765D+00, -.5508D-01, .1831D+00, - + .3593D+00, -.8961D-01, -.1129D-01, .1805D-02, .1222D+00, - + .3819D+00, -.4910D-01, .1892D+00, - + .3529D+00, -.8686D-01, -.1059D-01, .1847D-02, .1124D+00, - + .3855D+00, -.4503D-01, .1932D+00, - + .3479D+00, -.8477D-01, -.1007D-01, .1868D-02, .1055D+00, - + .3881D+00, -.4201D-01, .1962D+00, - + .3402D+00, -.8172D-01, -.9365D-02, .1885D-02, .9607D-01, - + .3917D+00, -.3770D-01, .2005D+00 / - DATA ((PARTON(I,N,26),I=1,8),N=9,16)/ - + .3345D+00, -.7955D-01, -.8886D-02, .1887D-02, .8987D-01, - + .3942D+00, -.3473D-01, .2034D+00, - + .3231D+00, -.7538D-01, -.8018D-02, .1871D-02, .7900D-01, - + .3986D+00, -.2910D-01, .2088D+00, - + .3125D+00, -.7169D-01, -.7305D-02, .1840D-02, .7045D-01, - + .4023D+00, -.2426D-01, .2134D+00, - + .3031D+00, -.6856D-01, -.6736D-02, .1803D-02, .6390D-01, - + .4053D+00, -.2023D-01, .2172D+00, - + .2951D+00, -.6599D-01, -.6290D-02, .1765D-02, .5895D-01, - + .4076D+00, -.1694D-01, .2202D+00, - + .2858D+00, -.6308D-01, -.5810D-02, .1717D-02, .5379D-01, - + .4104D+00, -.1327D-01, .2238D+00, - + .2777D+00, -.6061D-01, -.5422D-02, .1671D-02, .4976D-01, - + .4126D+00, -.1018D-01, .2266D+00, - + .2700D+00, -.5835D-01, -.5080D-02, .1626D-02, .4631D-01, - + .4145D+00, -.7344D-02, .2292D+00 / - DATA ((PARTON(I,N,26),I=1,8),N=17,25)/ - + .2632D+00, -.5637D-01, -.4791D-02, .1584D-02, .4346D-01, - + .4162D+00, -.4861D-02, .2315D+00, - + .2548D+00, -.5397D-01, -.4453D-02, .1532D-02, .4022D-01, - + .4182D+00, -.1855D-02, .2343D+00, - + .2471D+00, -.5183D-01, -.4163D-02, .1482D-02, .3751D-01, - + .4200D+00, .8410D-03, .2368D+00, - + .2397D+00, -.4980D-01, -.3898D-02, .1434D-02, .3508D-01, - + .4218D+00, .3408D-02, .2392D+00, - + .2333D+00, -.4809D-01, -.3681D-02, .1392D-02, .3314D-01, - + .4234D+00, .5592D-02, .2413D+00, - + .2268D+00, -.4638D-01, -.3470D-02, .1349D-02, .3127D-01, - + .4251D+00, .7792D-02, .2434D+00, - + .2209D+00, -.4483D-01, -.3285D-02, .1309D-02, .2966D-01, - + .4267D+00, .9808D-02, .2454D+00, - + .2151D+00, -.4334D-01, -.3111D-02, .1271D-02, .2816D-01, - + .4283D+00, .1177D-01, .2473D+00, - + .2100D+00, -.4206D-01, -.2966D-02, .1237D-02, .2692D-01, - + .4298D+00, .1346D-01, .2491D+00 / - DATA ((PARTON(I,N,27),I=1,8),N=1,8)/ - + .3976D+00, -.1005D+00, -.1343D-01, .9884D-03, .1595D+00, - + .3818D+00, -.5668D-01, .1868D+00, - + .3883D+00, -.9605D-01, -.1218D-01, .1164D-02, .1400D+00, - + .3882D+00, -.4999D-01, .1939D+00, - + .3808D+00, -.9279D-01, -.1133D-01, .1261D-02, .1270D+00, - + .3926D+00, -.4521D-01, .1988D+00, - + .3721D+00, -.8916D-01, -.1044D-01, .1341D-02, .1138D+00, - + .3971D+00, -.4004D-01, .2039D+00, - + .3613D+00, -.8496D-01, -.9489D-02, .1401D-02, .1002D+00, - + .4020D+00, -.3426D-01, .2096D+00, - + .3534D+00, -.8203D-01, -.8866D-02, .1426D-02, .9154D-01, - + .4051D+00, -.3032D-01, .2133D+00, - + .3472D+00, -.7981D-01, -.8416D-02, .1437D-02, .8549D-01, - + .4074D+00, -.2739D-01, .2161D+00, - + .3379D+00, -.7659D-01, -.7795D-02, .1442D-02, .7739D-01, - + .4107D+00, -.2322D-01, .2201D+00 / - DATA ((PARTON(I,N,27),I=1,8),N=9,16)/ - + .3311D+00, -.7433D-01, -.7377D-02, .1438D-02, .7213D-01, - + .4129D+00, -.2032D-01, .2228D+00, - + .3177D+00, -.6999D-01, -.6622D-02, .1416D-02, .6299D-01, - + .4169D+00, -.1485D-01, .2278D+00, - + .3055D+00, -.6620D-01, -.6004D-02, .1385D-02, .5592D-01, - + .4201D+00, -.1012D-01, .2321D+00, - + .2948D+00, -.6301D-01, -.5513D-02, .1350D-02, .5055D-01, - + .4227D+00, -.6170D-02, .2356D+00, - + .2858D+00, -.6040D-01, -.5130D-02, .1317D-02, .4653D-01, - + .4248D+00, -.2950D-02, .2385D+00, - + .2754D+00, -.5747D-01, -.4718D-02, .1276D-02, .4236D-01, - + .4273D+00, .6619D-03, .2418D+00, - + .2665D+00, -.5500D-01, -.4387D-02, .1238D-02, .3912D-01, - + .4291D+00, .3708D-02, .2445D+00, - + .2582D+00, -.5276D-01, -.4095D-02, .1201D-02, .3635D-01, - + .4308D+00, .6501D-02, .2469D+00 / - DATA ((PARTON(I,N,27),I=1,8),N=17,25)/ - + .2508D+00, -.5079D-01, -.3850D-02, .1167D-02, .3408D-01, - + .4323D+00, .8952D-02, .2490D+00, - + .2418D+00, -.4844D-01, -.3564D-02, .1124D-02, .3150D-01, - + .4340D+00, .1192D-01, .2516D+00, - + .2336D+00, -.4634D-01, -.3320D-02, .1085D-02, .2934D-01, - + .4356D+00, .1459D-01, .2539D+00, - + .2257D+00, -.4437D-01, -.3097D-02, .1047D-02, .2742D-01, - + .4372D+00, .1714D-01, .2561D+00, - + .2190D+00, -.4271D-01, -.2916D-02, .1014D-02, .2587D-01, - + .4385D+00, .1931D-01, .2581D+00, - + .2122D+00, -.4106D-01, -.2740D-02, .9801D-03, .2440D-01, - + .4400D+00, .2150D-01, .2601D+00, - + .2060D+00, -.3957D-01, -.2585D-02, .9494D-03, .2311D-01, - + .4414D+00, .2351D-01, .2619D+00, - + .2000D+00, -.3814D-01, -.2441D-02, .9195D-03, .2193D-01, - + .4429D+00, .2547D-01, .2638D+00, - + .1948D+00, -.3693D-01, -.2321D-02, .8936D-03, .2095D-01, - + .4442D+00, .2717D-01, .2655D+00 / - DATA ((PARTON(I,N,28),I=1,8),N=1,8)/ - + .4041D+00, -.9611D-01, -.1129D-01, .7706D-03, .1333D+00, - + .4019D+00, -.4030D-01, .2080D+00, - + .3921D+00, -.9137D-01, -.1019D-01, .9001D-03, .1156D+00, - + .4077D+00, -.3387D-01, .2145D+00, - + .3828D+00, -.8789D-01, -.9448D-02, .9692D-03, .1040D+00, - + .4115D+00, -.2927D-01, .2190D+00, - + .3720D+00, -.8405D-01, -.8674D-02, .1024D-02, .9244D-01, - + .4156D+00, -.2430D-01, .2238D+00, - + .3591D+00, -.7964D-01, -.7848D-02, .1063D-02, .8067D-01, - + .4199D+00, -.1873D-01, .2290D+00, - + .3497D+00, -.7659D-01, -.7309D-02, .1077D-02, .7335D-01, - + .4227D+00, -.1493D-01, .2325D+00, - + .3425D+00, -.7430D-01, -.6921D-02, .1082D-02, .6827D-01, - + .4247D+00, -.1210D-01, .2350D+00, - + .3318D+00, -.7099D-01, -.6386D-02, .1081D-02, .6154D-01, - + .4276D+00, -.8063D-02, .2387D+00 / - DATA ((PARTON(I,N,28),I=1,8),N=9,16)/ - + .3240D+00, -.6867D-01, -.6028D-02, .1075D-02, .5720D-01, - + .4296D+00, -.5253D-02, .2412D+00, - + .3089D+00, -.6428D-01, -.5382D-02, .1053D-02, .4974D-01, - + .4331D+00, .6058D-04, .2459D+00, - + .2953D+00, -.6046D-01, -.4856D-02, .1025D-02, .4403D-01, - + .4360D+00, .4658D-02, .2498D+00, - + .2835D+00, -.5728D-01, -.4439D-02, .9952D-03, .3973D-01, - + .4383D+00, .8507D-02, .2531D+00, - + .2738D+00, -.5469D-01, -.4115D-02, .9680D-03, .3652D-01, - + .4401D+00, .1165D-01, .2558D+00, - + .2626D+00, -.5180D-01, -.3769D-02, .9345D-03, .3320D-01, - + .4423D+00, .1519D-01, .2589D+00, - + .2530D+00, -.4939D-01, -.3491D-02, .9042D-03, .3064D-01, - + .4440D+00, .1818D-01, .2613D+00, - + .2442D+00, -.4720D-01, -.3247D-02, .8750D-03, .2845D-01, - + .4454D+00, .2092D-01, .2636D+00 / - DATA ((PARTON(I,N,28),I=1,8),N=17,25)/ - + .2364D+00, -.4529D-01, -.3043D-02, .8485D-03, .2665D-01, - + .4467D+00, .2333D-01, .2656D+00, - + .2269D+00, -.4302D-01, -.2806D-02, .8154D-03, .2462D-01, - + .4482D+00, .2625D-01, .2680D+00, - + .2184D+00, -.4101D-01, -.2603D-02, .7851D-03, .2292D-01, - + .4496D+00, .2888D-01, .2701D+00, - + .2102D+00, -.3912D-01, -.2420D-02, .7558D-03, .2139D-01, - + .4509D+00, .3140D-01, .2722D+00, - + .2033D+00, -.3754D-01, -.2271D-02, .7306D-03, .2017D-01, - + .4521D+00, .3355D-01, .2740D+00, - + .1964D+00, -.3598D-01, -.2127D-02, .7052D-03, .1901D-01, - + .4534D+00, .3572D-01, .2759D+00, - + .1901D+00, -.3457D-01, -.2001D-02, .6819D-03, .1799D-01, - + .4546D+00, .3771D-01, .2776D+00, - + .1840D+00, -.3323D-01, -.1883D-02, .6593D-03, .1706D-01, - + .4559D+00, .3966D-01, .2794D+00, - + .1788D+00, -.3209D-01, -.1786D-02, .6398D-03, .1628D-01, - + .4571D+00, .4134D-01, .2809D+00 / - DATA ((PARTON(I,N,29),I=1,8),N=1,8)/ - + .4060D+00, -.9092D-01, -.9337D-02, .5854D-03, .1089D+00, - + .4200D+00, -.2336D-01, .2281D+00, - + .3914D+00, -.8594D-01, -.8393D-02, .6789D-03, .9341D-01, - + .4251D+00, -.1720D-01, .2341D+00, - + .3804D+00, -.8232D-01, -.7754D-02, .7275D-03, .8349D-01, - + .4285D+00, -.1280D-01, .2382D+00, - + .3678D+00, -.7834D-01, -.7092D-02, .7649D-03, .7372D-01, - + .4321D+00, -.8035D-02, .2426D+00, - + .3529D+00, -.7383D-01, -.6387D-02, .7899D-03, .6395D-01, - + .4359D+00, -.2686D-02, .2474D+00, - + .3423D+00, -.7073D-01, -.5929D-02, .7977D-03, .5794D-01, - + .4384D+00, .9697D-03, .2506D+00, - + .3341D+00, -.6841D-01, -.5600D-02, .7992D-03, .5381D-01, - + .4402D+00, .3693D-02, .2530D+00, - + .3221D+00, -.6508D-01, -.5148D-02, .7954D-03, .4836D-01, - + .4427D+00, .7590D-02, .2563D+00 / - DATA ((PARTON(I,N,29),I=1,8),N=9,16)/ - + .3136D+00, -.6276D-01, -.4846D-02, .7890D-03, .4488D-01, - + .4446D+00, .1031D-01, .2587D+00, - + .2971D+00, -.5839D-01, -.4303D-02, .7698D-03, .3895D-01, - + .4477D+00, .1545D-01, .2630D+00, - + .2823D+00, -.5463D-01, -.3863D-02, .7465D-03, .3443D-01, - + .4502D+00, .1991D-01, .2666D+00, - + .2698D+00, -.5152D-01, -.3516D-02, .7231D-03, .3104D-01, - + .4522D+00, .2364D-01, .2697D+00, - + .2594D+00, -.4900D-01, -.3247D-02, .7018D-03, .2852D-01, - + .4538D+00, .2670D-01, .2721D+00, - + .2477D+00, -.4620D-01, -.2961D-02, .6759D-03, .2592D-01, - + .4559D+00, .3017D-01, .2750D+00, - + .2377D+00, -.4388D-01, -.2732D-02, .6526D-03, .2391D-01, - + .4573D+00, .3309D-01, .2773D+00, - + .2285D+00, -.4178D-01, -.2532D-02, .6304D-03, .2220D-01, - + .4586D+00, .3577D-01, .2794D+00 / - DATA ((PARTON(I,N,29),I=1,8),N=17,25)/ - + .2205D+00, -.3997D-01, -.2364D-02, .6103D-03, .2079D-01, - + .4597D+00, .3812D-01, .2813D+00, - + .2108D+00, -.3781D-01, -.2171D-02, .5853D-03, .1919D-01, - + .4610D+00, .4099D-01, .2835D+00, - + .2021D+00, -.3592D-01, -.2007D-02, .5626D-03, .1786D-01, - + .4622D+00, .4357D-01, .2855D+00, - + .1938D+00, -.3414D-01, -.1859D-02, .5406D-03, .1666D-01, - + .4633D+00, .4604D-01, .2874D+00, - + .1869D+00, -.3267D-01, -.1738D-02, .5219D-03, .1570D-01, - + .4644D+00, .4816D-01, .2891D+00, - + .1799D+00, -.3121D-01, -.1623D-02, .5029D-03, .1478D-01, - + .4655D+00, .5030D-01, .2908D+00, - + .1736D+00, -.2990D-01, -.1522D-02, .4856D-03, .1398D-01, - + .4666D+00, .5227D-01, .2925D+00, - + .1676D+00, -.2866D-01, -.1428D-02, .4689D-03, .1324D-01, - + .4677D+00, .5420D-01, .2941D+00, - + .1624D+00, -.2761D-01, -.1351D-02, .4545D-03, .1263D-01, - + .4688D+00, .5587D-01, .2956D+00 / - DATA ((PARTON(I,N,30),I=1,8),N=1,8)/ - + .4033D+00, -.8504D-01, -.7598D-02, .4338D-03, .8688D-01, - + .4363D+00, -.6040D-02, .2472D+00, - + .3864D+00, -.7993D-01, -.6800D-02, .5003D-03, .7395D-01, - + .4408D+00, -.1600D-03, .2526D+00, - + .3738D+00, -.7625D-01, -.6261D-02, .5341D-03, .6577D-01, - + .4438D+00, .4044D-02, .2564D+00, - + .3596D+00, -.7223D-01, -.5705D-02, .5595D-03, .5783D-01, - + .4469D+00, .8605D-02, .2604D+00, - + .3430D+00, -.6770D-01, -.5115D-02, .5754D-03, .4996D-01, - + .4503D+00, .1373D-01, .2648D+00, - + .3313D+00, -.6461D-01, -.4732D-02, .5797D-03, .4518D-01, - + .4525D+00, .1724D-01, .2677D+00, - + .3224D+00, -.6230D-01, -.4458D-02, .5797D-03, .4191D-01, - + .4541D+00, .1985D-01, .2699D+00, - + .3094D+00, -.5902D-01, -.4083D-02, .5756D-03, .3763D-01, - + .4563D+00, .2360D-01, .2730D+00 / - DATA ((PARTON(I,N,30),I=1,8),N=9,16)/ - + .3002D+00, -.5675D-01, -.3832D-02, .5701D-03, .3490D-01, - + .4580D+00, .2623D-01, .2752D+00, - + .2826D+00, -.5248D-01, -.3384D-02, .5545D-03, .3028D-01, - + .4608D+00, .3119D-01, .2792D+00, - + .2671D+00, -.4884D-01, -.3022D-02, .5365D-03, .2677D-01, - + .4630D+00, .3550D-01, .2825D+00, - + .2540D+00, -.4585D-01, -.2738D-02, .5187D-03, .2414D-01, - + .4648D+00, .3912D-01, .2853D+00, - + .2432D+00, -.4344D-01, -.2519D-02, .5027D-03, .2218D-01, - + .4662D+00, .4209D-01, .2876D+00, - + .2311D+00, -.4078D-01, -.2286D-02, .4832D-03, .2017D-01, - + .4681D+00, .4547D-01, .2904D+00, - + .2209D+00, -.3859D-01, -.2101D-02, .4659D-03, .1861D-01, - + .4694D+00, .4831D-01, .2925D+00, - + .2116D+00, -.3661D-01, -.1940D-02, .4495D-03, .1727D-01, - + .4705D+00, .5092D-01, .2944D+00 / - DATA ((PARTON(I,N,30),I=1,8),N=17,25)/ - + .2035D+00, -.3491D-01, -.1806D-02, .4346D-03, .1617D-01, - + .4714D+00, .5322D-01, .2961D+00, - + .1937D+00, -.3290D-01, -.1651D-02, .4162D-03, .1493D-01, - + .4726D+00, .5602D-01, .2982D+00, - + .1850D+00, -.3113D-01, -.1521D-02, .3995D-03, .1388D-01, - + .4736D+00, .5855D-01, .3000D+00, - + .1768D+00, -.2950D-01, -.1403D-02, .3834D-03, .1294D-01, - + .4746D+00, .6097D-01, .3018D+00, - + .1700D+00, -.2814D-01, -.1308D-02, .3697D-03, .1219D-01, - + .4755D+00, .6305D-01, .3034D+00, - + .1631D+00, -.2680D-01, -.1217D-02, .3558D-03, .1146D-01, - + .4765D+00, .6515D-01, .3050D+00, - + .1569D+00, -.2560D-01, -.1137D-02, .3431D-03, .1083D-01, - + .4775D+00, .6710D-01, .3066D+00, - + .1510D+00, -.2447D-01, -.1064D-02, .3309D-03, .1025D-01, - + .4785D+00, .6900D-01, .3081D+00, - + .1460D+00, -.2352D-01, -.1004D-02, .3204D-03, .9764D-02, - + .4795D+00, .7065D-01, .3095D+00 / - DATA ((PARTON(I,N,31),I=1,8),N=1,8)/ - + .3961D+00, -.7867D-01, -.6082D-02, .3139D-03, .6785D-01, - + .4510D+00, .1153D-01, .2652D+00, - + .3773D+00, -.7353D-01, -.5419D-02, .3605D-03, .5744D-01, - + .4549D+00, .1713D-01, .2702D+00, - + .3633D+00, -.6985D-01, -.4973D-02, .3840D-03, .5093D-01, - + .4576D+00, .2114D-01, .2736D+00, - + .3477D+00, -.6587D-01, -.4513D-02, .4012D-03, .4467D-01, - + .4603D+00, .2550D-01, .2772D+00, - + .3298D+00, -.6141D-01, -.4027D-02, .4116D-03, .3854D-01, - + .4632D+00, .3040D-01, .2812D+00, - + .3172D+00, -.5838D-01, -.3714D-02, .4140D-03, .3484D-01, - + .4652D+00, .3376D-01, .2839D+00, - + .3077D+00, -.5613D-01, -.3489D-02, .4136D-03, .3231D-01, - + .4666D+00, .3626D-01, .2859D+00, - + .2940D+00, -.5295D-01, -.3183D-02, .4101D-03, .2902D-01, - + .4686D+00, .3986D-01, .2888D+00 / - DATA ((PARTON(I,N,31),I=1,8),N=9,16)/ - + .2844D+00, -.5076D-01, -.2979D-02, .4058D-03, .2693D-01, - + .4701D+00, .4240D-01, .2908D+00, - + .2660D+00, -.4667D-01, -.2615D-02, .3941D-03, .2339D-01, - + .4725D+00, .4717D-01, .2945D+00, - + .2500D+00, -.4320D-01, -.2323D-02, .3808D-03, .2070D-01, - + .4745D+00, .5132D-01, .2976D+00, - + .2366D+00, -.4037D-01, -.2095D-02, .3678D-03, .1869D-01, - + .4761D+00, .5482D-01, .3001D+00, - + .2256D+00, -.3810D-01, -.1920D-02, .3561D-03, .1719D-01, - + .4774D+00, .5770D-01, .3023D+00, - + .2134D+00, -.3561D-01, -.1735D-02, .3420D-03, .1564D-01, - + .4792D+00, .6099D-01, .3048D+00, - + .2032D+00, -.3357D-01, -.1588D-02, .3294D-03, .1443D-01, - + .4803D+00, .6375D-01, .3068D+00, - + .1939D+00, -.3174D-01, -.1461D-02, .3175D-03, .1340D-01, - + .4813D+00, .6629D-01, .3086D+00 / - DATA ((PARTON(I,N,31),I=1,8),N=17,25)/ - + .1859D+00, -.3017D-01, -.1355D-02, .3068D-03, .1254D-01, - + .4821D+00, .6853D-01, .3102D+00, - + .1762D+00, -.2832D-01, -.1234D-02, .2935D-03, .1157D-01, - + .4831D+00, .7126D-01, .3121D+00, - + .1677D+00, -.2671D-01, -.1131D-02, .2814D-03, .1075D-01, - + .4841D+00, .7373D-01, .3139D+00, - + .1597D+00, -.2521D-01, -.1040D-02, .2698D-03, .1002D-01, - + .4850D+00, .7610D-01, .3155D+00, - + .1530D+00, -.2398D-01, -.9661D-03, .2598D-03, .9424D-02, - + .4858D+00, .7814D-01, .3170D+00, - + .1464D+00, -.2277D-01, -.8957D-03, .2499D-03, .8856D-02, - + .4866D+00, .8021D-01, .3185D+00, - + .1404D+00, -.2169D-01, -.8347D-03, .2407D-03, .8359D-02, - + .4875D+00, .8212D-01, .3200D+00, - + .1347D+00, -.2068D-01, -.7784D-03, .2319D-03, .7899D-02, - + .4884D+00, .8399D-01, .3214D+00, - + .1299D+00, -.1983D-01, -.7321D-03, .2244D-03, .7517D-02, - + .4893D+00, .8562D-01, .3227D+00 / - DATA ((PARTON(I,N,32),I=1,8),N=1,8)/ - + .3699D+00, -.6511D-01, -.3699D-02, .1534D-03, .3892D-01, - + .4763D+00, .4704D-01, .2983D+00, - + .3480D+00, -.6018D-01, -.3266D-02, .1758D-03, .3286D-01, - + .4793D+00, .5212D-01, .3024D+00, - + .3322D+00, -.5670D-01, -.2976D-02, .1871D-03, .2915D-01, - + .4813D+00, .5576D-01, .3052D+00, - + .3148D+00, -.5297D-01, -.2679D-02, .1953D-03, .2562D-01, - + .4834D+00, .5971D-01, .3082D+00, - + .2951D+00, -.4886D-01, -.2368D-02, .2004D-03, .2219D-01, - + .4856D+00, .6417D-01, .3115D+00, - + .2815D+00, -.4610D-01, -.2168D-02, .2016D-03, .2013D-01, - + .4871D+00, .6723D-01, .3137D+00, - + .2714D+00, -.4407D-01, -.2026D-02, .2014D-03, .1873D-01, - + .4881D+00, .6952D-01, .3154D+00, - + .2570D+00, -.4123D-01, -.1832D-02, .1998D-03, .1690D-01, - + .4897D+00, .7283D-01, .3178D+00 / - DATA ((PARTON(I,N,32),I=1,8),N=9,16)/ - + .2470D+00, -.3928D-01, -.1705D-02, .1978D-03, .1574D-01, - + .4910D+00, .7517D-01, .3195D+00, - + .2281D+00, -.3569D-01, -.1479D-02, .1922D-03, .1375D-01, - + .4929D+00, .7957D-01, .3226D+00, - + .2120D+00, -.3270D-01, -.1299D-02, .1858D-03, .1223D-01, - + .4945D+00, .8341D-01, .3253D+00, - + .1987D+00, -.3027D-01, -.1161D-02, .1794D-03, .1107D-01, - + .4958D+00, .8666D-01, .3275D+00, - + .1880D+00, -.2836D-01, -.1055D-02, .1737D-03, .1020D-01, - + .4969D+00, .8934D-01, .3293D+00, - + .1762D+00, -.2628D-01, -.9440D-03, .1667D-03, .9289D-02, - + .4984D+00, .9247D-01, .3316D+00, - + .1665D+00, -.2458D-01, -.8569D-03, .1605D-03, .8574D-02, - + .4994D+00, .9506D-01, .3334D+00, - + .1577D+00, -.2308D-01, -.7820D-03, .1546D-03, .7957D-02, - + .5002D+00, .9746D-01, .3350D+00 / - DATA ((PARTON(I,N,32),I=1,8),N=17,25)/ - + .1501D+00, -.2180D-01, -.7202D-03, .1492D-03, .7444D-02, - + .5009D+00, .9957D-01, .3363D+00, - + .1412D+00, -.2030D-01, -.6500D-03, .1426D-03, .6856D-02, - + .5018D+00, .1022D+00, .3380D+00, - + .1334D+00, -.1901D-01, -.5913D-03, .1365D-03, .6359D-02, - + .5025D+00, .1045D+00, .3396D+00, - + .1261D+00, -.1782D-01, -.5391D-03, .1307D-03, .5910D-02, - + .5033D+00, .1068D+00, .3411D+00, - + .1201D+00, -.1685D-01, -.4974D-03, .1257D-03, .5547D-02, - + .5040D+00, .1087D+00, .3424D+00, - + .1141D+00, -.1590D-01, -.4580D-03, .1206D-03, .5198D-02, - + .5047D+00, .1107D+00, .3437D+00, - + .1089D+00, -.1507D-01, -.4239D-03, .1160D-03, .4892D-02, - + .5054D+00, .1126D+00, .3450D+00, - + .1039D+00, -.1428D-01, -.3928D-03, .1116D-03, .4609D-02, - + .5062D+00, .1144D+00, .3463D+00, - + .9964D-01, -.1363D-01, -.3673D-03, .1077D-03, .4374D-02, - + .5069D+00, .1160D+00, .3474D+00 / - DATA ((PARTON(I,N,33),I=1,8),N=1,8)/ - + .3302D+00, -.5141D-01, -.2086D-02, .6874D-04, .2072D-01, - + .4974D+00, .8273D-01, .3279D+00, - + .3070D+00, -.4700D-01, -.1824D-02, .7936D-04, .1770D-01, - + .4996D+00, .8733D-01, .3313D+00, - + .2904D+00, -.4391D-01, -.1650D-02, .8491D-04, .1585D-01, - + .5011D+00, .9061D-01, .3336D+00, - + .2724D+00, -.4065D-01, -.1472D-02, .8921D-04, .1408D-01, - + .5026D+00, .9419D-01, .3360D+00, - + .2524D+00, -.3709D-01, -.1288D-02, .9215D-04, .1236D-01, - + .5042D+00, .9822D-01, .3387D+00, - + .2389D+00, -.3473D-01, -.1170D-02, .9313D-04, .1131D-01, - + .5053D+00, .1010D+00, .3405D+00, - + .2289D+00, -.3301D-01, -.1087D-02, .9337D-04, .1059D-01, - + .5061D+00, .1031D+00, .3419D+00, - + .2148D+00, -.3061D-01, -.9744D-03, .9302D-04, .9630D-02, - + .5073D+00, .1061D+00, .3438D+00 / - DATA ((PARTON(I,N,33),I=1,8),N=9,16)/ - + .2051D+00, -.2899D-01, -.9007D-03, .9234D-04, .9011D-02, - + .5084D+00, .1083D+00, .3454D+00, - + .1871D+00, -.2603D-01, -.7715D-03, .9015D-04, .7935D-02, - + .5100D+00, .1123D+00, .3480D+00, - + .1719D+00, -.2360D-01, -.6701D-03, .8742D-04, .7088D-02, - + .5113D+00, .1158D+00, .3503D+00, - + .1596D+00, -.2165D-01, -.5924D-03, .8460D-04, .6434D-02, - + .5123D+00, .1189D+00, .3522D+00, - + .1498D+00, -.2012D-01, -.5337D-03, .8199D-04, .5932D-02, - + .5133D+00, .1214D+00, .3538D+00, - + .1391D+00, -.1848D-01, -.4728D-03, .7877D-04, .5402D-02, - + .5148D+00, .1243D+00, .3560D+00, - + .1303D+00, -.1716D-01, -.4254D-03, .7584D-04, .4981D-02, - + .5157D+00, .1268D+00, .3575D+00, - + .1226D+00, -.1599D-01, -.3850D-03, .7302D-04, .4615D-02, - + .5164D+00, .1290D+00, .3589D+00 / - DATA ((PARTON(I,N,33),I=1,8),N=17,25)/ - + .1159D+00, -.1501D-01, -.3520D-03, .7045D-04, .4308D-02, - + .5170D+00, .1310D+00, .3602D+00, - + .1081D+00, -.1387D-01, -.3147D-03, .6724D-04, .3956D-02, - + .5178D+00, .1335D+00, .3617D+00, - + .1013D+00, -.1289D-01, -.2838D-03, .6429D-04, .3656D-02, - + .5185D+00, .1357D+00, .3631D+00, - + .9513D-01, -.1200D-01, -.2566D-03, .6144D-04, .3385D-02, - + .5192D+00, .1379D+00, .3645D+00, - + .9001D-01, -.1128D-01, -.2350D-03, .5899D-04, .3166D-02, - + .5199D+00, .1398D+00, .3657D+00, - + .8503D-01, -.1058D-01, -.2148D-03, .5652D-04, .2955D-02, - + .5206D+00, .1418D+00, .3670D+00, - + .8061D-01, -.9968D-02, -.1974D-03, .5425D-04, .2771D-02, - + .5213D+00, .1435D+00, .3682D+00, - + .7646D-01, -.9396D-02, -.1816D-03, .5206D-04, .2600D-02, - + .5220D+00, .1453D+00, .3693D+00, - + .7299D-01, -.8921D-02, -.1688D-03, .5018D-04, .2459D-02, - + .5226D+00, .1468D+00, .3704D+00 / - DATA ((PARTON(I,N,34),I=1,8),N=1,8)/ - + .2811D+00, -.3857D-01, -.1080D-02, .2846D-04, .1037D-01, - + .5154D+00, .1185D+00, .3548D+00, - + .2581D+00, -.3485D-01, -.9339D-03, .3352D-04, .9098D-02, - + .5169D+00, .1227D+00, .3574D+00, - + .2419D+00, -.3229D-01, -.8377D-03, .3635D-04, .8300D-02, - + .5179D+00, .1256D+00, .3593D+00, - + .2247D+00, -.2961D-01, -.7405D-03, .3871D-04, .7517D-02, - + .5189D+00, .1289D+00, .3612D+00, - + .2058D+00, -.2672D-01, -.6402D-03, .4054D-04, .6721D-02, - + .5201D+00, .1325D+00, .3634D+00, - + .1931D+00, -.2483D-01, -.5769D-03, .4131D-04, .6218D-02, - + .5209D+00, .1350D+00, .3648D+00, - + .1839D+00, -.2346D-01, -.5325D-03, .4165D-04, .5862D-02, - + .5215D+00, .1369D+00, .3660D+00, - + .1710D+00, -.2157D-01, -.4729D-03, .4179D-04, .5376D-02, - + .5224D+00, .1397D+00, .3676D+00 / - DATA ((PARTON(I,N,34),I=1,8),N=9,16)/ - + .1622D+00, -.2030D-01, -.4341D-03, .4166D-04, .5053D-02, - + .5234D+00, .1417D+00, .3690D+00, - + .1461D+00, -.1801D-01, -.3668D-03, .4095D-04, .4475D-02, - + .5246D+00, .1454D+00, .3712D+00, - + .1327D+00, -.1614D-01, -.3146D-03, .3987D-04, .4007D-02, - + .5257D+00, .1486D+00, .3731D+00, - + .1220D+00, -.1467D-01, -.2751D-03, .3867D-04, .3636D-02, - + .5266D+00, .1514D+00, .3748D+00, - + .1135D+00, -.1353D-01, -.2455D-03, .3751D-04, .3349D-02, - + .5275D+00, .1538D+00, .3762D+00, - + .1044D+00, -.1231D-01, -.2151D-03, .3605D-04, .3041D-02, - + .5290D+00, .1566D+00, .3783D+00, - + .9707D-01, -.1134D-01, -.1917D-03, .3469D-04, .2795D-02, - + .5298D+00, .1589D+00, .3797D+00, - + .9057D-01, -.1049D-01, -.1720D-03, .3337D-04, .2581D-02, - + .5306D+00, .1611D+00, .3811D+00 / - DATA ((PARTON(I,N,34),I=1,8),N=17,25)/ - + .8508D-01, -.9785D-02, -.1559D-03, .3215D-04, .2401D-02, - + .5312D+00, .1630D+00, .3822D+00, - + .7869D-01, -.8969D-02, -.1380D-03, .3063D-04, .2193D-02, - + .5320D+00, .1653D+00, .3837D+00, - + .7320D-01, -.8275D-02, -.1233D-03, .2922D-04, .2017D-02, - + .5327D+00, .1675D+00, .3850D+00, - + .6820D-01, -.7650D-02, -.1105D-03, .2785D-04, .1858D-02, - + .5335D+00, .1696D+00, .3863D+00, - + .6412D-01, -.7144D-02, -.1004D-03, .2668D-04, .1729D-02, - + .5342D+00, .1715D+00, .3875D+00, - + .6017D-01, -.6659D-02, -.9100D-04, .2549D-04, .1606D-02, - + .5349D+00, .1734D+00, .3887D+00, - + .5670D-01, -.6235D-02, -.8300D-04, .2440D-04, .1499D-02, - + .5356D+00, .1751D+00, .3899D+00, - + .5346D-01, -.5844D-02, -.7580D-04, .2335D-04, .1400D-02, - + .5363D+00, .1769D+00, .3910D+00, - + .5077D-01, -.5520D-02, -.6999D-04, .2245D-04, .1319D-02, - + .5369D+00, .1784D+00, .3920D+00 / - DATA ((PARTON(I,N,35),I=1,8),N=1,8)/ - + .2268D+00, -.2727D-01, -.5043D-03, .1105D-04, .4963D-02, - + .5310D+00, .1546D+00, .3794D+00, - + .2057D+00, -.2435D-01, -.4312D-03, .1346D-04, .4538D-02, - + .5320D+00, .1584D+00, .3815D+00, - + .1910D+00, -.2237D-01, -.3832D-03, .1490D-04, .4243D-02, - + .5326D+00, .1611D+00, .3830D+00, - + .1756D+00, -.2031D-01, -.3353D-03, .1617D-04, .3927D-02, - + .5333D+00, .1640D+00, .3845D+00, - + .1588D+00, -.1812D-01, -.2862D-03, .1724D-04, .3577D-02, - + .5340D+00, .1673D+00, .3862D+00, - + .1478D+00, -.1670D-01, -.2556D-03, .1773D-04, .3340D-02, - + .5345D+00, .1695D+00, .3874D+00, - + .1398D+00, -.1568D-01, -.2342D-03, .1799D-04, .3165D-02, - + .5350D+00, .1712D+00, .3883D+00, - + .1288D+00, -.1428D-01, -.2059D-03, .1818D-04, .2918D-02, - + .5357D+00, .1738D+00, .3897D+00 / - DATA ((PARTON(I,N,35),I=1,8),N=9,16)/ - + .1213D+00, -.1336D-01, -.1875D-03, .1819D-04, .2749D-02, - + .5366D+00, .1756D+00, .3909D+00, - + .1078D+00, -.1170D-01, -.1561D-03, .1797D-04, .2436D-02, - + .5376D+00, .1790D+00, .3928D+00, - + .9680D-01, -.1037D-01, -.1320D-03, .1753D-04, .2176D-02, - + .5385D+00, .1820D+00, .3945D+00, - + .8807D-01, -.9332D-02, -.1140D-03, .1700D-04, .1968D-02, - + .5393D+00, .1846D+00, .3959D+00, - + .8128D-01, -.8535D-02, -.1007D-03, .1648D-04, .1805D-02, - + .5401D+00, .1868D+00, .3972D+00, - + .7403D-01, -.7695D-02, -.8721D-04, .1581D-04, .1630D-02, - + .5417D+00, .1896D+00, .3993D+00, - + .6822D-01, -.7030D-02, -.7691D-04, .1518D-04, .1491D-02, - + .5425D+00, .1918D+00, .4006D+00, - + .6315D-01, -.6455D-02, -.6831D-04, .1456D-04, .1368D-02, - + .5433D+00, .1938D+00, .4018D+00 / - DATA ((PARTON(I,N,35),I=1,8),N=17,25)/ - + .5890D-01, -.5977D-02, -.6138D-04, .1400D-04, .1266D-02, - + .5439D+00, .1957D+00, .4029D+00, - + .5400D-01, -.5432D-02, -.5373D-04, .1328D-04, .1149D-02, - + .5448D+00, .1980D+00, .4043D+00, - + .4984D-01, -.4974D-02, -.4752D-04, .1262D-04, .1050D-02, - + .5456D+00, .2001D+00, .4057D+00, - + .4607D-01, -.4563D-02, -.4213D-04, .1198D-04, .9612D-03, - + .5465D+00, .2022D+00, .4070D+00, - + .4303D-01, -.4234D-02, -.3795D-04, .1143D-04, .8898D-03, - + .5473D+00, .2040D+00, .4082D+00, - + .4010D-01, -.3920D-02, -.3408D-04, .1087D-04, .8217D-03, - + .5481D+00, .2059D+00, .4094D+00, - + .3755D-01, -.3648D-02, -.3082D-04, .1037D-04, .7627D-03, - + .5489D+00, .2076D+00, .4106D+00, - + .3518D-01, -.3398D-02, -.2791D-04, .9882D-05, .7085D-03, - + .5497D+00, .2093D+00, .4117D+00, - + .3323D-01, -.3193D-02, -.2558D-04, .9470D-05, .6640D-03, - + .5503D+00, .2108D+00, .4127D+00 / - DATA ((PARTON(I,N,36),I=1,8),N=1,8)/ - + .1720D+00, -.1796D-01, -.2078D-03, .4101D-05, .2316D-02, - + .5448D+00, .1915D+00, .4024D+00, - + .1539D+00, -.1584D-01, -.1753D-03, .5212D-05, .2217D-02, - + .5455D+00, .1949D+00, .4041D+00, - + .1416D+00, -.1441D-01, -.1542D-03, .5902D-05, .2121D-02, - + .5459D+00, .1974D+00, .4052D+00, - + .1287D+00, -.1295D-01, -.1333D-03, .6526D-05, .1998D-02, - + .5462D+00, .2000D+00, .4064D+00, - + .1150D+00, -.1141D-01, -.1122D-03, .7062D-05, .1842D-02, - + .5467D+00, .2030D+00, .4078D+00, - + .1060D+00, -.1043D-01, -.9917D-04, .7316D-05, .1727D-02, - + .5470D+00, .2050D+00, .4087D+00, - + .9961D-01, -.9729D-02, -.9016D-04, .7451D-05, .1639D-02, - + .5473D+00, .2066D+00, .4095D+00, - + .9081D-01, -.8779D-02, -.7829D-04, .7560D-05, .1511D-02, - + .5479D+00, .2089D+00, .4106D+00 / - DATA ((PARTON(I,N,36),I=1,8),N=9,16)/ - + .8494D-01, -.8152D-02, -.7071D-04, .7572D-05, .1421D-02, - + .5487D+00, .2107D+00, .4117D+00, - + .7445D-01, -.7045D-02, -.5784D-04, .7479D-05, .1253D-02, - + .5495D+00, .2138D+00, .4134D+00, - + .6600D-01, -.6170D-02, -.4816D-04, .7277D-05, .1112D-02, - + .5502D+00, .2165D+00, .4148D+00, - + .5940D-01, -.5495D-02, -.4103D-04, .7037D-05, .9979D-03, - + .5510D+00, .2190D+00, .4161D+00, - + .5433D-01, -.4982D-02, -.3583D-04, .6794D-05, .9092D-03, - + .5517D+00, .2210D+00, .4173D+00, - + .4897D-01, -.4446D-02, -.3059D-04, .6486D-05, .8145D-03, - + .5534D+00, .2237D+00, .4193D+00, - + .4472D-01, -.4026D-02, -.2666D-04, .6198D-05, .7390D-03, - + .5542D+00, .2258D+00, .4205D+00, - + .4105D-01, -.3667D-02, -.2341D-04, .5913D-05, .6737D-03, - + .5550D+00, .2278D+00, .4217D+00 / - DATA ((PARTON(I,N,36),I=1,8),N=17,25)/ - + .3800D-01, -.3371D-02, -.2082D-04, .5655D-05, .6194D-03, - + .5557D+00, .2296D+00, .4228D+00, - + .3452D-01, -.3036D-02, -.1799D-04, .5335D-05, .5574D-03, - + .5566D+00, .2318D+00, .4242D+00, - + .3158D-01, -.2757D-02, -.1573D-04, .5035D-05, .5055D-03, - + .5576D+00, .2339D+00, .4255D+00, - + .2896D-01, -.2509D-02, -.1378D-04, .4752D-05, .4593D-03, - + .5586D+00, .2360D+00, .4269D+00, - + .2685D-01, -.2312D-02, -.1229D-04, .4510D-05, .4224D-03, - + .5595D+00, .2378D+00, .4281D+00, - + .2484D-01, -.2125D-02, -.1092D-04, .4267D-05, .3876D-03, - + .5604D+00, .2397D+00, .4294D+00, - + .2311D-01, -.1965D-02, -.9784D-05, .4049D-05, .3576D-03, - + .5614D+00, .2414D+00, .4306D+00, - + .2151D-01, -.1818D-02, -.8777D-05, .3837D-05, .3302D-03, - + .5623D+00, .2432D+00, .4317D+00, - + .2020D-01, -.1699D-02, -.7976D-05, .3660D-05, .3078D-03, - + .5630D+00, .2446D+00, .4327D+00 / - DATA ((PARTON(I,N,37),I=1,8),N=1,8)/ - + .1208D+00, -.1082D-01, -.7284D-04, .1464D-05, .1059D-02, - + .5575D+00, .2298D+00, .4243D+00, - + .1066D+00, -.9415D-02, -.6050D-04, .1930D-05, .1050D-02, - + .5580D+00, .2330D+00, .4257D+00, - + .9703D-01, -.8482D-02, -.5259D-04, .2222D-05, .1019D-02, - + .5582D+00, .2353D+00, .4267D+00, - + .8718D-01, -.7535D-02, -.4484D-04, .2484D-05, .9666D-03, - + .5584D+00, .2377D+00, .4276D+00, - + .7682D-01, -.6555D-02, -.3712D-04, .2703D-05, .8923D-03, - + .5586D+00, .2404D+00, .4287D+00, - + .7017D-01, -.5933D-02, -.3241D-04, .2802D-05, .8350D-03, - + .5588D+00, .2422D+00, .4295D+00, - + .6544D-01, -.5495D-02, -.2919D-04, .2855D-05, .7900D-03, - + .5590D+00, .2437D+00, .4301D+00, - + .5901D-01, -.4907D-02, -.2500D-04, .2891D-05, .7239D-03, - + .5595D+00, .2458D+00, .4311D+00 / - DATA ((PARTON(I,N,37),I=1,8),N=9,16)/ - + .5477D-01, -.4522D-02, -.2234D-04, .2888D-05, .6774D-03, - + .5602D+00, .2475D+00, .4321D+00, - + .4728D-01, -.3852D-02, -.1791D-04, .2832D-05, .5903D-03, - + .5609D+00, .2504D+00, .4335D+00, - + .4136D-01, -.3329D-02, -.1464D-04, .2735D-05, .5177D-03, - + .5615D+00, .2529D+00, .4347D+00, - + .3679D-01, -.2931D-02, -.1227D-04, .2621D-05, .4600D-03, - + .5621D+00, .2551D+00, .4358D+00, - + .3331D-01, -.2632D-02, -.1057D-04, .2514D-05, .4153D-03, - + .5628D+00, .2571D+00, .4369D+00, - + .2969D-01, -.2324D-02, -.8881D-05, .2379D-05, .3682D-03, - + .5645D+00, .2598D+00, .4389D+00, - + .2685D-01, -.2084D-02, -.7633D-05, .2256D-05, .3310D-03, - + .5653D+00, .2618D+00, .4401D+00, - + .2442D-01, -.1881D-02, -.6616D-05, .2133D-05, .2992D-03, - + .5661D+00, .2636D+00, .4412D+00 / - DATA ((PARTON(I,N,37),I=1,8),N=17,25)/ - + .2242D-01, -.1716D-02, -.5817D-05, .2026D-05, .2729D-03, - + .5668D+00, .2654D+00, .4422D+00, - + .2016D-01, -.1530D-02, -.4955D-05, .1894D-05, .2433D-03, - + .5678D+00, .2675D+00, .4436D+00, - + .1828D-01, -.1377D-02, -.4277D-05, .1771D-05, .2188D-03, - + .5689D+00, .2696D+00, .4449D+00, - + .1661D-01, -.1242D-02, -.3700D-05, .1658D-05, .1973D-03, - + .5699D+00, .2716D+00, .4463D+00, - + .1528D-01, -.1136D-02, -.3263D-05, .1564D-05, .1802D-03, - + .5710D+00, .2734D+00, .4475D+00, - + .1403D-01, -.1036D-02, -.2870D-05, .1468D-05, .1642D-03, - + .5721D+00, .2753D+00, .4488D+00, - + .1295D-01, -.9512D-03, -.2544D-05, .1383D-05, .1505D-03, - + .5731D+00, .2771D+00, .4501D+00, - + .1197D-01, -.8741D-03, -.2266D-05, .1299D-05, .1381D-03, - + .5742D+00, .2789D+00, .4513D+00, - + .1117D-01, -.8117D-03, -.2044D-05, .1236D-05, .1281D-03, - + .5750D+00, .2803D+00, .4524D+00 / - DATA ((PARTON(I,N,38),I=1,8),N=1,8)/ - + .7685D-01, -.5794D-02, -.2050D-04, .4762D-06, .4605D-03, - + .5694D+00, .2705D+00, .4456D+00, - + .6676D-01, -.4966D-02, -.1670D-04, .6382D-06, .4629D-03, - + .5698D+00, .2736D+00, .4470D+00, - + .6005D-01, -.4423D-02, -.1431D-04, .7375D-06, .4494D-03, - + .5701D+00, .2757D+00, .4478D+00, - + .5326D-01, -.3881D-02, -.1200D-04, .8219D-06, .4245D-03, - + .5702D+00, .2780D+00, .4487D+00, - + .4622D-01, -.3326D-02, -.9736D-05, .8907D-06, .3881D-03, - + .5704D+00, .2805D+00, .4496D+00, - + .4177D-01, -.2980D-02, -.8376D-05, .9148D-06, .3601D-03, - + .5705D+00, .2822D+00, .4502D+00, - + .3863D-01, -.2738D-02, -.7457D-05, .9280D-06, .3382D-03, - + .5707D+00, .2835D+00, .4507D+00, - + .3442D-01, -.2416D-02, -.6277D-05, .9352D-06, .3065D-03, - + .5710D+00, .2855D+00, .4516D+00 / - DATA ((PARTON(I,N,38),I=1,8),N=9,16)/ - + .3168D-01, -.2209D-02, -.5541D-05, .9258D-06, .2844D-03, - + .5717D+00, .2871D+00, .4526D+00, - + .2689D-01, -.1851D-02, -.4335D-05, .8970D-06, .2437D-03, - + .5723D+00, .2898D+00, .4537D+00, - + .2317D-01, -.1576D-02, -.3474D-05, .8538D-06, .2104D-03, - + .5727D+00, .2921D+00, .4548D+00, - + .2034D-01, -.1370D-02, -.2856D-05, .8069D-06, .1845D-03, - + .5732D+00, .2942D+00, .4557D+00, - + .1822D-01, -.1217D-02, -.2424D-05, .7637D-06, .1648D-03, - + .5738D+00, .2960D+00, .4566D+00, - + .1604D-01, -.1061D-02, -.2001D-05, .7152D-06, .1443D-03, - + .5755D+00, .2986D+00, .4586D+00, - + .1435D-01, -.9421D-03, -.1699D-05, .6716D-06, .1284D-03, - + .5763D+00, .3005D+00, .4596D+00, - + .1292D-01, -.8419D-03, -.1457D-05, .6252D-06, .1149D-03, - + .5770D+00, .3023D+00, .4606D+00 / - DATA ((PARTON(I,N,38),I=1,8),N=17,25)/ - + .1175D-01, -.7610D-03, -.1269D-05, .5878D-06, .1040D-03, - + .5777D+00, .3039D+00, .4616D+00, - + .1045D-01, -.6712D-03, -.1072D-05, .5425D-06, .9183D-04, - + .5787D+00, .3059D+00, .4629D+00, - + .9376D-02, -.5979D-03, -.9240D-06, .4991D-06, .8183D-04, - + .5797D+00, .3079D+00, .4641D+00, - + .8434D-02, -.5341D-03, -.7930D-06, .4622D-06, .7323D-04, - + .5808D+00, .3099D+00, .4655D+00, - + .7694D-02, -.4843D-03, -.6974D-06, .4358D-06, .6643D-04, - + .5819D+00, .3117D+00, .4667D+00, - + .7000D-02, -.4380D-03, -.6187D-06, .4030D-06, .6017D-04, - + .5831D+00, .3136D+00, .4681D+00, - + .6410D-02, -.3988D-03, -.5469D-06, .3792D-06, .5488D-04, - + .5843D+00, .3154D+00, .4694D+00, - + .5876D-02, -.3636D-03, -.4928D-06, .3512D-06, .5016D-04, - + .5854D+00, .3171D+00, .4706D+00, - + .5445D-02, -.3353D-03, -.4477D-06, .3322D-06, .4624D-04, - + .5864D+00, .3185D+00, .4717D+00 / - DATA ((PARTON(I,N,39),I=1,8),N=1,8)/ - + .4253D-01, -.2624D-02, -.4135D-05, .1090D-06, .1771D-03, - + .5809D+00, .3149D+00, .4670D+00, - + .3628D-01, -.2210D-02, -.3284D-05, .1451D-06, .1761D-03, - + .5816D+00, .3180D+00, .4685D+00, - + .3221D-01, -.1943D-02, -.2768D-05, .1635D-06, .1689D-03, - + .5820D+00, .3202D+00, .4694D+00, - + .2814D-01, -.1680D-02, -.2276D-05, .1788D-06, .1570D-03, - + .5823D+00, .3224D+00, .4703D+00, - + .2400D-01, -.1416D-02, -.1807D-05, .1890D-06, .1407D-03, - + .5826D+00, .3248D+00, .4712D+00, - + .2142D-01, -.1253D-02, -.1525D-05, .1916D-06, .1286D-03, - + .5827D+00, .3265D+00, .4718D+00, - + .1963D-01, -.1141D-02, -.1341D-05, .1934D-06, .1195D-03, - + .5829D+00, .3277D+00, .4723D+00, - + .1725D-01, -.9933D-03, -.1110D-05, .1958D-06, .1065D-03, - + .5833D+00, .3296D+00, .4731D+00 / - DATA ((PARTON(I,N,39),I=1,8),N=9,16)/ - + .1571D-01, -.8991D-03, -.9676D-06, .1887D-06, .9762D-04, - + .5840D+00, .3312D+00, .4740D+00, - + .1309D-01, -.7393D-03, -.7414D-06, .1795D-06, .8185D-04, - + .5844D+00, .3336D+00, .4750D+00, - + .1108D-01, -.6189D-03, -.5915D-06, .1663D-06, .6934D-04, - + .5846D+00, .3357D+00, .4758D+00, - + .9582D-02, -.5302D-03, -.4880D-06, .1533D-06, .5986D-04, - + .5849D+00, .3375D+00, .4765D+00, - + .8476D-02, -.4653D-03, -.4184D-06, .1396D-06, .5282D-04, - + .5853D+00, .3391D+00, .4772D+00, - + .7351D-02, -.3999D-03, -.3453D-06, .1302D-06, .4561D-04, - + .5870D+00, .3416D+00, .4790D+00, - + .6494D-02, -.3506D-03, -.3000D-06, .1225D-06, .4017D-04, - + .5875D+00, .3433D+00, .4798D+00, - + .5778D-02, -.3097D-03, -.2670D-06, .1096D-06, .3567D-04, - + .5880D+00, .3449D+00, .4806D+00 / - DATA ((PARTON(I,N,39),I=1,8),N=17,25)/ - + .5202D-02, -.2770D-03, -.2416D-06, .9983D-07, .3207D-04, - + .5886D+00, .3463D+00, .4814D+00, - + .4565D-02, -.2412D-03, -.2176D-06, .9009D-07, .2812D-04, - + .5893D+00, .3481D+00, .4824D+00, - + .4047D-02, -.2124D-03, -.2047D-06, .7890D-07, .2491D-04, - + .5902D+00, .3499D+00, .4835D+00, - + .3599D-02, -.1876D-03, -.1840D-06, .7418D-07, .2225D-04, - + .5913D+00, .3518D+00, .4847D+00, - + .3250D-02, -.1684D-03, -.1738D-06, .6878D-07, .2013D-04, - + .5923D+00, .3534D+00, .4859D+00, - + .2927D-02, -.1508D-03, -.1681D-06, .6146D-07, .1823D-04, - + .5935D+00, .3552D+00, .4872D+00, - + .2655D-02, -.1360D-03, -.1591D-06, .6035D-07, .1665D-04, - + .5946D+00, .3569D+00, .4884D+00, - + .2411D-02, -.1229D-03, -.1551D-06, .5269D-07, .1524D-04, - + .5957D+00, .3585D+00, .4896D+00, - + .2216D-02, -.1124D-03, -.1544D-06, .5093D-07, .1408D-04, - + .5966D+00, .3599D+00, .4906D+00 / - DATA ((PARTON(I,N,40),I=1,8),N=1,8)/ - + .1898D-01, -.9151D-03, -.4107D-06, -.2033D-07, .5257D-04, - + .5925D+00, .3651D+00, .4892D+00, - + .1585D-01, -.7545D-03, -.3159D-06, -.2888D-07, .5029D-04, - + .5940D+00, .3686D+00, .4913D+00, - + .1384D-01, -.6531D-03, -.2579D-06, -.3323D-07, .4690D-04, - + .5949D+00, .3709D+00, .4925D+00, - + .1188D-01, -.5547D-03, -.2209D-06, -.3871D-07, .4226D-04, - + .5956D+00, .3732D+00, .4936D+00, - + .9917D-02, -.4579D-03, -.1818D-06, -.4182D-07, .3649D-04, - + .5962D+00, .3757D+00, .4947D+00, - + .8719D-02, -.3993D-03, -.1571D-06, -.4467D-07, .3261D-04, - + .5965D+00, .3774D+00, .4954D+00, - + .7898D-02, -.3595D-03, -.1407D-06, -.4153D-07, .2967D-04, - + .5968D+00, .3786D+00, .4959D+00, - + .6824D-02, -.3078D-03, -.1241D-06, -.3680D-07, .2581D-04, - + .5972D+00, .3805D+00, .4967D+00 / - DATA ((PARTON(I,N,40),I=1,8),N=9,16)/ - + .6143D-02, -.2754D-03, -.1129D-06, -.3626D-07, .2325D-04, - + .5981D+00, .3821D+00, .4977D+00, - + .4996D-02, -.2212D-03, -.1039D-06, -.3593D-07, .1893D-04, - + .5983D+00, .3842D+00, .4984D+00, - + .4141D-02, -.1814D-03, -.9895D-07, -.3211D-07, .1570D-04, - + .5982D+00, .3859D+00, .4988D+00, - + .3516D-02, -.1526D-03, -.9600D-07, -.3047D-07, .1333D-04, - + .5981D+00, .3874D+00, .4992D+00, - + .3062D-02, -.1319D-03, -.9812D-07, -.3267D-07, .1166D-04, - + .5982D+00, .3886D+00, .4996D+00, - + .2609D-02, -.1114D-03, -.9655D-07, -.2824D-07, .9981D-05, - + .5995D+00, .3909D+00, .5010D+00, - + .2270D-02, -.9623D-04, -.1006D-06, -.2221D-07, .8818D-05, - + .5996D+00, .3921D+00, .5015D+00, - + .1990D-02, -.8381D-04, -.1035D-06, -.2375D-07, .7875D-05, - + .5997D+00, .3932D+00, .5018D+00 / - DATA ((PARTON(I,N,40),I=1,8),N=17,25)/ - + .1769D-02, -.7403D-04, -.1062D-06, -.2402D-07, .7175D-05, - + .5998D+00, .3943D+00, .5021D+00, - + .1528D-02, -.6346D-04, -.1109D-06, -.2034D-07, .6367D-05, - + .6000D+00, .3956D+00, .5027D+00, - + .1335D-02, -.5509D-04, -.1208D-06, -.2238D-07, .5771D-05, - + .6004D+00, .3969D+00, .5033D+00, - + .1170D-02, -.4798D-04, -.1188D-06, -.1720D-07, .5331D-05, - + .6010D+00, .3983D+00, .5040D+00, - + .1044D-02, -.4255D-04, -.1198D-06, -.1643D-07, .4931D-05, - + .6017D+00, .3996D+00, .5048D+00, - + .9281D-03, -.3764D-04, -.1268D-06, -.1383D-07, .4667D-05, - + .6024D+00, .4009D+00, .5057D+00, - + .8320D-03, -.3357D-04, -.1245D-06, -.9966D-08, .4381D-05, - + .6033D+00, .4022D+00, .5066D+00, - + .7470D-03, -.3000D-04, -.1319D-06, -.1298D-07, .4178D-05, - + .6041D+00, .4034D+00, .5075D+00, - + .6796D-03, -.2717D-04, -.1357D-06, -.9707D-08, .3957D-05, - + .6047D+00, .4045D+00, .5082D+00 / - DATA ((PARTON(I,N,41),I=1,8),N=1,8)/ - + .5761D-02, -.1992D-03, .9025D-07, -.6099D-07, .8322D-05, - + .6045D+00, .4242D+00, .5130D+00, - + .4672D-02, -.1596D-03, .6087D-07, -.7820D-07, .6788D-05, - + .6076D+00, .4287D+00, .5162D+00, - + .3993D-02, -.1353D-03, .3658D-07, -.8653D-07, .5627D-05, - + .6095D+00, .4316D+00, .5182D+00, - + .3345D-02, -.1122D-03, .1336D-07, -.9518D-07, .4367D-05, - + .6111D+00, .4344D+00, .5201D+00, - + .2715D-02, -.9012D-04, -.1170D-07, -.9913D-07, .3138D-05, - + .6125D+00, .4373D+00, .5217D+00, - + .2339D-02, -.7708D-04, -.2212D-07, -.1000D-06, .2450D-05, - + .6133D+00, .4391D+00, .5227D+00, - + .2087D-02, -.6836D-04, -.2488D-07, -.9568D-07, .2010D-05, - + .6138D+00, .4404D+00, .5234D+00, - + .1763D-02, -.5727D-04, -.3712D-07, -.8644D-07, .1509D-05, - + .6144D+00, .4422D+00, .5243D+00 / - DATA ((PARTON(I,N,41),I=1,8),N=9,16)/ - + .1561D-02, -.5042D-04, -.4344D-07, -.8132D-07, .1279D-05, - + .6154D+00, .4439D+00, .5253D+00, - + .1230D-02, -.3930D-04, -.5672D-07, -.7328D-07, .9483D-06, - + .6154D+00, .4456D+00, .5258D+00, - + .9912D-03, -.3136D-04, -.6729D-07, -.6451D-07, .7819D-06, - + .6148D+00, .4466D+00, .5256D+00, - + .8211D-03, -.2576D-04, -.7769D-07, -.6130D-07, .7762D-06, - + .6141D+00, .4472D+00, .5253D+00, - + .7005D-03, -.2183D-04, -.8442D-07, -.5494D-07, .7453D-06, - + .6134D+00, .4477D+00, .5250D+00, - + .5827D-03, -.1802D-04, -.9091D-07, -.4804D-07, .8094D-06, - + .6139D+00, .4491D+00, .5257D+00, - + .4965D-03, -.1526D-04, -.9474D-07, -.3831D-07, .8720D-06, - + .6131D+00, .4493D+00, .5251D+00, - + .4270D-03, -.1306D-04, -.1042D-06, -.3802D-07, .1020D-05, - + .6121D+00, .4492D+00, .5244D+00 / - DATA ((PARTON(I,N,41),I=1,8),N=17,25)/ - + .3729D-03, -.1135D-04, -.1093D-06, -.3412D-07, .1097D-05, - + .6111D+00, .4491D+00, .5238D+00, - + .3151D-03, -.9543D-05, -.1173D-06, -.3054D-07, .1211D-05, - + .6099D+00, .4487D+00, .5229D+00, - + .2699D-03, -.8139D-05, -.1263D-06, -.2920D-07, .1326D-05, - + .6089D+00, .4485D+00, .5222D+00, - + .2321D-03, -.6961D-05, -.1248D-06, -.2299D-07, .1473D-05, - + .6082D+00, .4484D+00, .5217D+00, - + .2036D-03, -.6084D-05, -.1293D-06, -.2121D-07, .1531D-05, - + .6076D+00, .4482D+00, .5212D+00, - + .1780D-03, -.5295D-05, -.1355D-06, -.1991D-07, .1620D-05, - + .6071D+00, .4480D+00, .5209D+00, - + .1570D-03, -.4666D-05, -.1327D-06, -.1580D-07, .1749D-05, - + .6066D+00, .4477D+00, .5205D+00, - + .1388D-03, -.4112D-05, -.1411D-06, -.1413D-07, .1790D-05, - + .6063D+00, .4473D+00, .5202D+00, - + .1245D-03, -.3680D-05, -.1446D-06, -.1358D-07, .1792D-05, - + .6058D+00, .4467D+00, .5197D+00 / -C - X = DX - Q = DQ - Q2 = DQ*DQ -*...CHECK OF X AND Q2 VALUES : -C IF ( (X.LT.1.0D-4) .OR. (X.GT.1.0D0) ) THEN -C WRITE(6,91) -C 91 FORMAT (2X,'PARTON INTERPOLATION: X OUT OF RANGE') -C GOTO 60 -C ENDIF -C IF ( (Q2.LT.0.4D0) .OR. (Q2.GT.1.D4) ) THEN -C WRITE(6,92) -C 92 FORMAT (2X,'PARTON INTERPOLATION: Q2 OUT OF RANGE') -C GOTO 60 -C ENDIF -C -*...INITIALIZATION : -* SELECTION AND READING OF THE GRID : -* FILE - NO. = 11 FOR NLO 'STANDARD' SCENARIO ( FIRST NUMBER IN THE -* GRID: 1.040D-03 ) -* FILE - NO. = 22 FOR NLO 'VALENCE' SCENARIO ( FIRST NUMBER IN THE -* GRID: 9.740D-04 ) -* FILE - NO. = 33 FOR LO 'STANDARD' SCENARIO ( FIRST NUMBER IN THE -* GRID: 1.731D-03 ) -* FILE - NO. = 44 FOR LO 'VALENCE' SCENARIO ( FIRST NUMBER IN THE -* GRID: 1.846D-03 ) - IF (IINI.NE.0) GOTO 16 -C IF (ISET.EQ.1) THEN -C IIREAD=11 -C OPEN(UNIT=11,FILE='stdnloa1.grid',STATUS='OLD') -C ELSE IF (ISET.EQ.2) THEN -C IIREAD=22 -C OPEN(UNIT=22,FILE='valnloa1.grid',STATUS='OLD') -C ELSE IF (ISET.EQ.3) THEN -C IIREAD=33 -C OPEN(UNIT=33,FILE='stdloa1.grid',STATUS='OLD') -C ELSE IF (ISET.EQ.4) THEN -C IIREAD=44 -C OPEN(UNIT=44,FILE='valloa1.grid',STATUS='OLD') -C ELSE -C WRITE(6,93) -C 93 FORMAT (2X,'PARTON INTERPOLATION: ISET OUT OF RANGE') -C GOTO 60 -C END IF -C -C DO 15 M = 1, NX-1 -C DO 15 N = 1, NQ -C READ(IIREAD,90) PARTON(1,N,M), PARTON(2,N,M), PARTON(3,N,M), -C 1 PARTON(4,N,M), PARTON(5,N,M), PARTON(6,N,M), -C 2 PARTON(7,N,M), PARTON(8,N,M) -C 90 FORMAT (8(1PE10.3)) -C 15 CONTINUE -C - IINI = 1 -*....ARRAYS FOR THE INTERPOLATION SUBROUTINE : - DO 10 IQ = 1, NQ - DO 20 IX = 1, NX-1 - XB0 = XB(IX) - XB1 = 1.D0-XB(IX) - XUVF(IX,IQ) = PARTON(1,IQ,IX) / (XB1**3 * XB0**0.7) - XDVF(IX,IQ) = PARTON(2,IQ,IX) / (XB1**4 * XB0**0.6) - XQBF(IX,IQ) = PARTON(3,IQ,IX) / (XB1**7 * XB0**0.3) - XSF(IX,IQ) = PARTON(4,IQ,IX) / (XB1**7 * XB0**0.3) - XGF(IX,IQ) = PARTON(5,IQ,IX) / (XB1**10 * XB0**0.3) - XAPF(IX,IQ) = PARTON(6,IQ,IX) / XB0 - XANF(IX,IQ) = PARTON(7,IQ,IX) / XB0 - XADF(IX,IQ) = PARTON(8,IQ,IX) / XB0 - 20 CONTINUE - XUVF(NX,IQ) = 0.D0 - XDVF(NX,IQ) = 0.D0 - XQBF(NX,IQ) = 0.D0 - XSF(NX,IQ) = 0.D0 - XGF(NX,IQ) = 0.D0 - XAPF(NX,IQ) = 0.D0 - XANF(NX,IQ) = 0.D0 - XADF(NX,IQ) = 0.D0 - 10 CONTINUE - NA(1) = NX - NA(2) = NQ - DO 30 IX = 1, NX - ARRF(IX) = LOG(XB(IX)) - 30 CONTINUE - DO 40 IQ = 1, NQ - ARRF(NX+IQ) = LOG(QS(IQ)) - 40 CONTINUE - 16 CONTINUE -C -*...INTERPOLATION : - XT(1) = LOG(X) - XT(2) = LOG(Q2) - UV = DBFINT(NARG,XT,NA,ARRF,XUVF) * (1.D0-X)**3 * X**0.7 - DUV = UV - DV = DBFINT(NARG,XT,NA,ARRF,XDVF) * (1.D0-X)**4 * X**0.6 - DDV = DV - QB = DBFINT(NARG,XT,NA,ARRF,XQBF) * (1.D0-X)**7 * X**0.3 - DSEA = QB - ST = DBFINT(NARG,XT,NA,ARRF,XSF) * (1.D0-X)**7 * X**0.3 - DSTR = ST - DCHM = ZEROD - DBOT = ZEROD - DTOP = ZEROD - GL = DBFINT(NARG,XT,NA,ARRF,XGF) * (1.D0-X)**10 * X**0.3 - DGL = GL - A1P = DBFINT(NARG,XT,NA,ARRF,XAPF) * X - A1N = DBFINT(NARG,XT,NA,ARRF,XANF) * X - A1D = DBFINT(NARG,XT,NA,ARRF,XADF) * X - 60 RETURN - END diff --git a/PDF/spdf/grv94di.F b/PDF/spdf/grv94di.F deleted file mode 100644 index 1549cf5a912..00000000000 --- a/PDF/spdf/grv94di.F +++ /dev/null @@ -1,110 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:34 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:22 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -* -*...NLO PARAMETRIZATION (DIS) : -* - SUBROUTINE GRV94DI (ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZBB,ZTB,ZGL) - IMPLICIT REAL (A - Y) -C+SEQ, IMPDP. -#include "pdf/expdp.inc" - + ZX,ZQ,ZUV,ZDV,ZDEL,ZUDB,ZUB,ZDB,ZSB,ZCB,ZBB,ZTB,ZGL - REAL X, Q - X = ZX - Q = ZQ - MU2 = 0.34 - LAM2 = 0.248 * 0.248 - Q2 = Q*Q - ARG1 = MAX(MU2,Q2)/LAM2 - ARG2 = MU2/LAM2 - S = LOG ( LOG( ARG1 ) / LOG( ARG2 )) - DS = SQRT (S) - S2 = S * S - S3 = S2 * S -*...UV : - NU = 2.484 + 0.116 * S + 0.093 * S2 - AKU = 0.563 - 0.025 * S - BKU = 0.054 + 0.154 * S - AU = -0.326 - 0.058 * S - 0.135 * S2 - BU = -3.322 + 8.259 * S - 3.119 * S2 + 0.291 * S3 - CU = 11.52 - 12.99 * S + 3.161 * S2 - DU = 2.808 + 1.400 * S - 0.557 * S2 + 0.119 * S3 - UV = GR94FV (X, NU, AKU, BKU, AU, BU, CU, DU) - ZUV = UV -*...DV : - ND = 0.156 - 0.017 * S - AKD = 0.299 - 0.022 * S - BKD = 0.259 - 0.015 * S - AD = 3.445 + 1.278 * S + 0.326 * S2 - BD = -6.934 + 37.45 * S - 18.95 * S2 + 1.463 * S3 - CD = 55.45 - 69.92 * S + 20.78 * S2 - DD = 3.577 + 1.441 * S - 0.683 * S2 + 0.179 * S3 - DV = GR94FV (X, ND, AKD, BKD, AD, BD, CD, DD) - ZDV = DV -*...DEL : - NE = 0.099 + 0.019 * S + 0.002 * S2 - AKE = 0.419 - 0.013 * S - BKE = 1.064 - 0.038 * S - AE = -44.00 + 98.70 * S - 14.79 * S2 - BE = 28.59 - 40.94 * S - 13.66 * S2 + 2.523 * S3 - CE = 84.57 - 108.8 * S + 31.52 * S2 - DE = 7.469 + 2.480 * S - 0.866 * S2 - DEL = GR94FV (X, NE, AKE, BKE, AE, BE, CE, DE) - ZDEL= DEL -*...UDB : - ALX = 1.215 - BEX = 0.466 - AKX = 0.326 + 0.150 * S - BKX = 0.956 + 0.405 * S - AGX = 0.272 - BGX = 3.794 - 2.359 * DS - CX = 2.014 - DX = 7.941 + 0.534 * DS - 0.940 * S + 0.410 * S2 - EX = 3.049 + 1.597 * S - ESX = 4.396 - 4.594 * DS + 3.268 * S - UDB = GR94FW(X, S, ALX, BEX, AKX, BKX, AGX, BGX, CX, DX, EX, ESX) - ZUDB= UDB -*...UB - ZUB = (ZUDB - ZDEL)/2.D0 -*...DB - ZDB = (ZUDB + ZDEL)/2.D0 -*...SB : - ALS = 0.175 - BES = 0.344 - AKS = 1.415 - 0.641 * DS - AS = 0.580 - 9.763 * DS + 6.795 * S - 0.558 * S2 - BS = 5.617 + 5.709 * DS - 3.972 * S - DST = 13.78 - 9.581 * S + 5.370 * S2 - 0.996 * S3 - EST = 4.546 + 0.372 * S2 - ESS = 5.053 - 1.070 * S + 0.805 * S2 - SB = GR94FWS (X, S, ALS, BES, AKS, AS, BS, DST, EST, ESS) - ZSB = SB -*...GL : - ALG = 1.258 - BEG = 1.846 - AKG = 2.423 - BKG = 2.427 + 1.311 * S - 0.153 * S2 - AG = 25.09 - 7.935 * S - BG = -14.84 - 124.3 * DS + 72.18 * S - CG = 590.3 - 173.8 * S - DG = 5.196 + 1.857 * S - EG = -1.648 + 3.988 * S - 0.432 * S2 - ESG = 3.232 - 0.542 * S - GL = GR94FW (X, S, ALG, BEG, AKG, BKG, AG, BG, CG, DG, EG, ESG) - ZGL = GL -*... - ZCB = 0.D0 - ZBB = 0.D0 - ZTB = 0.D0 -*... - RETURN - END diff --git a/PDF/spdf/grv94ho.F b/PDF/spdf/grv94ho.F deleted file mode 100644 index 5c919c4c151..00000000000 --- a/PDF/spdf/grv94ho.F +++ /dev/null @@ -1,110 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:35 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:22 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -* -*...NLO PARAMETRIZATION (MS(BAR)) : -* - SUBROUTINE GRV94HO (ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZBB,ZTB,ZGL) - IMPLICIT REAL (A - Y) -C+SEQ, IMPDP. -#include "pdf/expdp.inc" - + ZX,ZQ,ZUV,ZDV,ZDEL,ZUDB,ZUB,ZDB,ZSB,ZCB,ZBB,ZTB,ZGL - REAL X, Q - X = ZX - Q = ZQ - MU2 = 0.34 - LAM2 = 0.248 * 0.248 - Q2 = Q*Q - ARG1 = MAX(MU2,Q2)/LAM2 - ARG2 = MU2/LAM2 - S = LOG ( LOG( ARG1 ) / LOG( ARG2 )) - DS = SQRT (S) - S2 = S * S - S3 = S2 * S -*...UV : - NU = 1.304 + 0.863 * S - AKU = 0.558 - 0.020 * S - BKU = 0.183 * S - AU = -0.113 + 0.283 * S - 0.321 * S2 - BU = 6.843 - 5.089 * S + 2.647 * S2 - 0.527 * S3 - CU = 7.771 - 10.09 * S + 2.630 * S2 - DU = 3.315 + 1.145 * S - 0.583 * S2 + 0.154 * S3 - UV = GR94FV (X, NU, AKU, BKU, AU, BU, CU, DU) - ZUV = UV -*...DV : - ND = 0.102 - 0.017 * S + 0.005 * S2 - AKD = 0.270 - 0.019 * S - BKD = 0.260 - AD = 2.393 + 6.228 * S - 0.881 * S2 - BD = 46.06 + 4.673 * S - 14.98 * S2 + 1.331 * S3 - CD = 17.83 - 53.47 * S + 21.24 * S2 - DD = 4.081 + 0.976 * S - 0.485 * S2 + 0.152 * S3 - DV = GR94FV (X, ND, AKD, BKD, AD, BD, CD, DD) - ZDV = DV -*...DEL : - NE = 0.070 + 0.042 * S - 0.011 * S2 + 0.004 * S3 - AKE = 0.409 - 0.007 * S - BKE = 0.782 + 0.082 * S - AE = -29.65 + 26.49 * S + 5.429 * S2 - BE = 90.20 - 74.97 * S + 4.526 * S2 - CE = 0.0 - DE = 8.122 + 2.120 * S - 1.088 * S2 + 0.231 * S3 - DEL = GR94FV (X, NE, AKE, BKE, AE, BE, CE, DE) - ZDEL= DEL -*...UDB : - ALX = 0.877 - BEX = 0.561 - AKX = 0.275 - BKX = 0.0 - AGX = 0.997 - BGX = 3.210 - 1.866 * S - CX = 7.300 - DX = 9.010 + 0.896 * DS + 0.222 * S2 - EX = 3.077 + 1.446 * S - ESX = 3.173 - 2.445 * DS + 2.207 * S - UDB = GR94FW(X, S, ALX, BEX, AKX, BKX, AGX, BGX, CX, DX, EX, ESX) - ZUDB= UDB -*...UB - ZUB = (ZUDB - ZDEL)/2.D0 -*...DB - ZDB = (ZUDB + ZDEL)/2.D0 -*...SB : - ALS = 0.756 - BES = 0.216 - AKS = 1.690 + 0.650 * DS - 0.922 * S - AS = -4.329 + 1.131 * S - BS = 9.568 - 1.744 * S - DST = 9.377 + 1.088 * DS - 1.320 * S + 0.130 * S2 - EST = 3.031 + 1.639 * S - ESS = 5.837 + 0.815 * S - SB = GR94FWS (X, S, ALS, BES, AKS, AS, BS, DST, EST, ESS) - ZSB = SB -*...GL : - ALG = 1.014 - BEG = 1.738 - AKG = 1.724 + 0.157 * S - BKG = 0.800 + 1.016 * S - AG = 7.517 - 2.547 * S - BG = 34.09 - 52.21 * DS + 17.47 * S - CG = 4.039 + 1.491 * S - DG = 3.404 + 0.830 * S - EG = -1.112 + 3.438 * S - 0.302 * S2 - ESG = 3.256 - 0.436 * S - GL = GR94FW (X, S, ALG, BEG, AKG, BKG, AG, BG, CG, DG, EG, ESG) - ZGL = GL -*... - ZCB = 0.D0 - ZBB = 0.D0 - ZTB = 0.D0 -*... - RETURN - END diff --git a/PDF/spdf/grv94lo.F b/PDF/spdf/grv94lo.F deleted file mode 100644 index 7712361c903..00000000000 --- a/PDF/spdf/grv94lo.F +++ /dev/null @@ -1,159 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:36 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:22 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -* * -* G R V - P R O T O N - P A R A M E T R I Z A T I O N S * -* * -* 1994 UPDATE * -* * -* FOR A DETAILED EXPLANATION SEE * -* M. GLUECK, E.REYA, A.VOGT : * -* DO-TH 94/24 = DESY 94-206 * -* (TO APPEAR IN Z. PHYS. C) * -* * -* THE PARAMETRIZATIONS ARE FITTED TO THE EVOLVED PARTONS FOR * -* Q**2 / GEV**2 BETWEEN 0.4 AND 1.E6 * -* X BETWEEN 1.E-5 AND 1. * -* LARGE-X REGIONS, WHERE THE DISTRIBUTION UNDER CONSIDERATION * -* IS NEGLIGIBLY SMALL, WERE EXCLUDED FROM THE FIT. * -* * -* HEAVY QUARK THRESHOLDS Q(H) = M(H) IN THE BETA FUNCTION : * -* M(C) = 1.5, M(B) = 4.5 * -* CORRESPONDING LAMBDA(F) VALUES IN GEV FOR Q**2 > M(H)**2 : * -* LO : LAMBDA(3) = 0.232, LAMBDA(4) = 0.200, * -* LAMBDA(5) = 0.153, * -* NLO : LAMBDA(3) = 0.248, LAMBDA(4) = 0.200, * -* LAMBDA(5) = 0.131. * -* THE NUMBER OF ACTIVE QUARK FLAVOURS IS NF = 3 EVERYWHERE * -* EXCEPT IN THE BETA FUNCTION, I.E. THE HEAVY QUARKS C,B,... * -* ARE NOT PRESENT AS PARTONS IN THE Q2-EVOLUTION. * -* IF NEEDED, HEAVY QUARK DENSITIES CAN BE TAKEN FROM THE 1991 * -* GRV PARAMETRIZATION. * -* * -* NLO DISTRIBUTIONS ARE GIVEN IN MS-BAR FACTORIZATION SCHEME * -* (SUBROUTINE GRV94HO) AS WELL AS IN THE DIS SCHEME (GRV94DI), * -* THE LEADING ORDER PARAMETRIZATION IS PROVIDED BY "GRV94LO". * -* * -* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -* -*...INPUT PARAMETERS : -* -* X = MOMENTUM FRACTION -* Q2 = SCALE Q**2 IN GEV**2 -* -*...OUTPUT (ALWAYS X TIMES THE DISTRIBUTION) : -* -* UV = U(VAL) = U - U(BAR) -* DV = D(VAL) = D - D(BAR) -* DEL = D(BAR) - U(BAR) -* UDB = U(BAR) + D(BAR) -* SB = S = S(BAR) -* GL = GLUON -* -*...LO PARAMETRIZATION : -* - SUBROUTINE GRV94LO (ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZBB,ZTB,ZGL) - IMPLICIT REAL (A - Y) -C+SEQ, IMPDP. -#include "pdf/expdp.inc" - + ZX,ZQ,ZUV,ZDV,ZDEL,ZUDB,ZUB,ZDB,ZSB,ZCB,ZBB,ZTB,ZGL - REAL X, Q - X = ZX - Q = ZQ - MU2 = 0.23 - LAM2 = 0.2322 * 0.2322 - Q2 = Q*Q - ARG1 = MAX(MU2,Q2)/LAM2 - ARG2 = MU2/LAM2 - S = LOG ( LOG( ARG1 ) / LOG( ARG2 )) - DS = SQRT (S) - S2 = S * S - S3 = S2 * S -*...UV : - NU = 2.284 + 0.802 * S + 0.055 * S2 - AKU = 0.590 - 0.024 * S - BKU = 0.131 + 0.063 * S - AU = -0.449 - 0.138 * S - 0.076 * S2 - BU = 0.213 + 2.669 * S - 0.728 * S2 - CU = 8.854 - 9.135 * S + 1.979 * S2 - DU = 2.997 + 0.753 * S - 0.076 * S2 - UV = GR94FV (X, NU, AKU, BKU, AU, BU, CU, DU) - ZUV = UV -*...DV : - ND = 0.371 + 0.083 * S + 0.039 * S2 - AKD = 0.376 - BKD = 0.486 + 0.062 * S - AD = -0.509 + 3.310 * S - 1.248 * S2 - BD = 12.41 - 10.52 * S + 2.267 * S2 - CD = 6.373 - 6.208 * S + 1.418 * S2 - DD = 3.691 + 0.799 * S - 0.071 * S2 - DV = GR94FV (X, ND, AKD, BKD, AD, BD, CD, DD) - ZDV = DV -*...DEL : - NE = 0.082 + 0.014 * S + 0.008 * S2 - AKE = 0.409 - 0.005 * S - BKE = 0.799 + 0.071 * S - AE = -38.07 + 36.13 * S - 0.656 * S2 - BE = 90.31 - 74.15 * S + 7.645 * S2 - CE = 0.0 - DE = 7.486 + 1.217 * S - 0.159 * S2 - DEL = GR94FV (X, NE, AKE, BKE, AE, BE, CE, DE) - ZDEL= DEL -*...UDB : - ALX = 1.451 - BEX = 0.271 - AKX = 0.410 - 0.232 * S - BKX = 0.534 - 0.457 * S - AGX = 0.890 - 0.140 * S - BGX = -0.981 - CX = 0.320 + 0.683 * S - DX = 4.752 + 1.164 * S + 0.286 * S2 - EX = 4.119 + 1.713 * S - ESX = 0.682 + 2.978 * S - UDB = GR94FW(X, S, ALX, BEX, AKX, BKX, AGX, BGX, CX, DX, EX, ESX) - ZUDB= UDB -*...UB - ZUB = (ZUDB - ZDEL)/2.D0 -*...DB - ZDB = (ZUDB + ZDEL)/2.D0 -*...SB : - ALS = 0.914 - BES = 0.577 - AKS = 1.798 - 0.596 * S - AS = -5.548 + 3.669 * DS - 0.616 * S - BS = 18.92 - 16.73 * DS + 5.168 * S - DST = 6.379 - 0.350 * S + 0.142 * S2 - EST = 3.981 + 1.638 * S - ESS = 6.402 - SB = GR94FWS (X, S, ALS, BES, AKS, AS, BS, DST, EST, ESS) - ZSB = SB -*...GL : - ALG = 0.524 - BEG = 1.088 - AKG = 1.742 - 0.930 * S - BKG = - 0.399 * S2 - AG = 7.486 - 2.185 * S - BG = 16.69 - 22.74 * S + 5.779 * S2 - CG = -25.59 + 29.71 * S - 7.296 * S2 - DG = 2.792 + 2.215 * S + 0.422 * S2 - 0.104 * S3 - EG = 0.807 + 2.005 * S - ESG = 3.841 + 0.316 * S - GL = GR94FW (X, S, ALG, BEG, AKG, BKG, AG, BG, CG, DG, EG, ESG) - ZGL = GL -*... - ZCB = 0.D0 - ZBB = 0.D0 - ZTB = 0.D0 -*... - RETURN - END diff --git a/PDF/spdf/grvfgp.F b/PDF/spdf/grvfgp.F deleted file mode 100644 index 19973c0e1d0..00000000000 --- a/PDF/spdf/grvfgp.F +++ /dev/null @@ -1,20 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:36 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:23 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - FUNCTION GRVFGP (X, S, AL, BE, AK, BK, AG, BG, C, D, E, ES) - IMPLICIT REAL (A - Z) - DX = SQRT (X) - LX = ALOG (1./X) - GRVFGP = (X**AK * (AG + BG*DX + C*X) * LX**BK + S**AL - 1 * EXP (-E + SQRT (ES * S**BE * LX))) * (1.- X)**D - RETURN - END diff --git a/PDF/spdf/grvfqbp.F b/PDF/spdf/grvfqbp.F deleted file mode 100644 index 635e173bb3f..00000000000 --- a/PDF/spdf/grvfqbp.F +++ /dev/null @@ -1,24 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:37 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:23 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - FUNCTION GRVFQBP (X, S, ST, AL, BE, AK, AG, B, D, E, ES) - IMPLICIT REAL (A - Z) - DX = SQRT (X) - LX = ALOG (1./X) - IF (S .LE. ST) THEN - GRVFQBP = 0.0 - ELSE - GRVFQBP = (S-ST)**AL / LX**AK * (1.+ AG*DX + B*X) * (1.- X)**D - 1 * EXP (-E + SQRT (ES * S**BE * LX)) - END IF - RETURN - END diff --git a/PDF/spdf/grvfv.F b/PDF/spdf/grvfv.F deleted file mode 100644 index 8068c7062a9..00000000000 --- a/PDF/spdf/grvfv.F +++ /dev/null @@ -1,20 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:37 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:23 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C -C...FUNCTIONAL FORMS FOR HO AND LO PARAMETRIZATIONS : - FUNCTION GRVFV (X, N, AK, AG, B, D) - IMPLICIT REAL (A - Z) - DX = SQRT (X) - GRVFV = N * X**AK * (1.+ AG*DX + B*X) * (1.- X)**D - RETURN - END diff --git a/PDF/spdf/grvfvp.F b/PDF/spdf/grvfvp.F deleted file mode 100644 index ae696f2dbd4..00000000000 --- a/PDF/spdf/grvfvp.F +++ /dev/null @@ -1,18 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:38 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:23 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - FUNCTION GRVFVP (X, N, AK, AG, D) - IMPLICIT REAL (A - Z) - DX = SQRT (X) - GRVFVP = N * X**AK * (1.+ AG*DX) * (1.- X)**D - RETURN - END diff --git a/PDF/spdf/grvfw.F b/PDF/spdf/grvfw.F deleted file mode 100644 index cc9c4d18b99..00000000000 --- a/PDF/spdf/grvfw.F +++ /dev/null @@ -1,20 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:39 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:23 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C - FUNCTION GRVFW (X, S, AL, BE, AK, BK, AG, BG, C, D, E, ES) - IMPLICIT REAL (A - Z) - LX = ALOG (1./X) - GRVFW = (X**AK * (AG + X * (BG + X*C)) * LX**BK + S**AL - 1 * EXP (-E + SQRT (ES * S**BE * LX))) * (1.- X)**D - RETURN - END diff --git a/PDF/spdf/grvfws.F b/PDF/spdf/grvfws.F deleted file mode 100644 index a15f02ed98b..00000000000 --- a/PDF/spdf/grvfws.F +++ /dev/null @@ -1,25 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:39 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:23 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C GRV02120 - FUNCTION GRVFWS (X, S, ST, AL, BE, AK, AG, B, D, E, ES) - IMPLICIT REAL (A - Z) - DX = SQRT (X) - LX = ALOG (1./X) - IF (S .LE. ST) THEN - GRVFWS = 0.0 - ELSE - GRVFWS = (S-ST)**AL / LX**AK * (1.+ AG*DX + B*X) * (1.- X)**D - 1 * EXP (-E + SQRT (ES * S**BE * LX)) - END IF - RETURN - END diff --git a/PDF/spdf/grvgah0.F b/PDF/spdf/grvgah0.F deleted file mode 100644 index c8015315af2..00000000000 --- a/PDF/spdf/grvgah0.F +++ /dev/null @@ -1,143 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:32:35 cernlib -* Version 7.04 -* -* Revision 1.2 1996/10/28 15:02:12 pdflib -* PDFLIB new version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:23 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE GRVGAH0 (ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZBB,ZGL) -* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -* * -* G R V - P H O T O N - P A R A M E T R I Z A T I O N S * -* * -* FOR A DETAILED EXPLANATION SEE : * -* M. GLUECK, E.REYA, A.VOGT: DO-TH 91/31 * -* * -* THE OUTPUT IS ALWAYS 1./ ALPHA(EM) * X * PARTON DENSITY * -* output modified by HPB to be always X * PARTON DENSITY * -* * -* THE PARAMETRIZATIONS ARE FITTED TO THE PARTON DISTRIBUTIONS * -* FOR Q ** 2 BETWEEN MU ** 2 (= 0.25 / 0.30 GEV ** 2 IN LO * -* / HO) AND 1.E6 GEV ** 2 AND FOR X BETWEEN 1.E-5 AND 1. * -* * -* HEAVY QUARK THRESHOLDS Q(H) = M(H) : * -* M(C) = 1.5, M(B) = 4.5, M(T) = 100 GEV * -* * -* CORRESPONDING LAMBDA(F) VALUES FOR F ACTIVE FLAVOURS : * -* LO : LAMBDA(3) = 0.232, LAMBDA(4) = 0.200, * -* LAMBDA(5) = 0.153, LAMBDA(6) = 0.082 GEV * -* HO : LAMBDA(3) = 0.248, LAMBDA(4) = 0.200, * -* LAMBDA(5) = 0.131, LAMBDA(6) = 0.053 GEV * -* * -* HO DISTRIBUTIONS REFER TO THE DIS(GAMMA) SCHEME, SEE : * -* M. GLUECK, E.REYA, A.VOGT: DO-TH 91/26 * -* * -* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -C - IMPLICIT REAL (A - Y) -#include "pdf/expdp.inc" - + ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZBB,ZGL - REAL X, Q - DATA ALPHEM/7.29927D-3/ - X = ZX - Q = ZQ - MU2 = 0.3 - LAM2 = 0.248 * 0.248 - Q2 = Q*Q - S = ALOG (ALOG(Q2/LAM2) / ALOG(MU2/LAM2)) - SS = SQRT (S) - S2 = S * S -C...X * U = X * UBAR : - AL = 1.447 - BE = 0.848 - AK = 0.527 + 0.200 * S - 0.107 * S2 - BK = 7.106 - 0.310 * SS - 0.786 * S2 - AG = 0.197 + 0.533 * S - BG = 0.062 - 0.398 * S + 0.109 * S2 - C = 0.755 * S - 0.112 * S2 - D = 0.318 - 0.059 * S - E = 4.225 + 1.708 * S - ES = 1.752 + 0.866 * S - U0 = GRVGF (X, S, AL, BE, AK, BK, AG, BG, C, D, E, ES) - ZUV = U0 * ALPHEM - ZUB = ZUV -C...X * D = X * DBAR : - AL = 1.424 - BE = 0.770 - AK = 0.500 + 0.067 * SS - 0.055 * S2 - BK = 0.376 - 0.453 * SS + 0.405 * S2 - AG = 0.156 + 0.184 * S - BG = 0.0 - 0.528 * S + 0.146 * S2 - C = 0.121 + 0.092 * S - D = 0.379 - 0.301 * S + 0.081 * S2 - E = 4.346 + 1.638 * S - ES = 1.645 + 1.016 * S - D0 = GRVGF (X, S, AL, BE, AK, BK, AG, BG, C, D, E, ES) - ZDV = D0 * ALPHEM - ZDB = ZDV -C...X * G : - AL = 0.661 - BE = 0.793 - AK = 0.537 - 0.600 * SS - BK = 6.389 - 0.953 * S2 - AG = 0.558 - 0.383 * SS + 0.261 * S2 - BG = 0.0 - 0.305 * S - C = -0.222 + 0.078 * S2 - D = 0.153 + 0.978 * S - 0.209 * S2 - E = 1.429 + 1.772 * S - ES = 3.331 + 0.806 * S - G0 = GRVGF (X, S, AL, BE, AK, BK, AG, BG, C, D, E, ES) - ZGL = G0 * ALPHEM -C...X * S = X * SBAR : - SF = 0.0 - AL = 1.578 - BE = 0.863 - AK = 0.622 + 0.332 * S - 0.300 * S2 - BK = 2.469 - AG = 0.211 - 0.064 * SS - 0.018 * S2 - BG = -0.215 + 0.122 * S - C = 0.153 - D = 0.0 + 0.253 * S - 0.081 * S2 - E = 3.990 + 2.014 * S - ES = 1.720 + 0.986 * S - S0 = GRVGFS (X, S, SF, AL, BE, AK, BK, AG, BG, C, D, E, ES) - ZSB = S0 * ALPHEM -C...X * C = X * CBAR : - SF = 0.820 - AL = 0.929 - BE = 0.381 - AK = 1.228 - 0.231 * S - BK = 3.806 - 0.337 * S2 - AG = 0.932 + 0.150 * S - BG = -0.906 - C = 1.133 - D = 0.0 + 0.138 * S - 0.028 * S2 - E = 5.588 + 0.628 * S - ES = 2.665 + 1.054 * S - C0 = GRVGFS (X, S, SF, AL, BE, AK, BK, AG, BG, C, D, E, ES) - ZCB = C0 * ALPHEM -C...X * B = X * BBAR : - SF = 1.297 - AL = 0.970 - BE = 0.207 - AK = 1.719 - 0.292 * S - BK = 0.928 + 0.096 * S - AG = 0.845 + 0.178 * S - BG = -2.310 - C = 1.558 - D = -0.191 + 0.151 * S - E = 6.089 + 0.282 * S - ES = 3.379 + 1.062 * S - B0 = GRVGFS (X, S, SF, AL, BE, AK, BK, AG, BG, C, D, E, ES) - ZBB = B0 * ALPHEM -C - RETURN - END diff --git a/PDF/spdf/grvgaho.F b/PDF/spdf/grvgaho.F deleted file mode 100644 index c8eea9dfc36..00000000000 --- a/PDF/spdf/grvgaho.F +++ /dev/null @@ -1,140 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:40 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:23 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE GRVGAHO (ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZBB,ZGL) -* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -* * -* G R V - P H O T O N - P A R A M E T R I Z A T I O N S * -* * -* FOR A DETAILED EXPLANATION SEE : * -* M. GLUECK, E.REYA, A.VOGT: DO-TH 91/31 * -* * -* THE OUTPUT IS ALWAYS 1./ ALPHA(EM) * X * PARTON DENSITY * -* output modified by HPB to be always X * PARTON DENSITY * -* * -* THE PARAMETRIZATIONS ARE FITTED TO THE PARTON DISTRIBUTIONS * -* FOR Q ** 2 BETWEEN MU ** 2 (= 0.25 / 0.30 GEV ** 2 IN LO * -* / HO) AND 1.E6 GEV ** 2 AND FOR X BETWEEN 1.E-5 AND 1. * -* * -* HEAVY QUARK THRESHOLDS Q(H) = M(H) : * -* M(C) = 1.5, M(B) = 4.5, M(T) = 100 GEV * -* * -* CORRESPONDING LAMBDA(F) VALUES FOR F ACTIVE FLAVOURS : * -* LO : LAMBDA(3) = 0.232, LAMBDA(4) = 0.200, * -* LAMBDA(5) = 0.153, LAMBDA(6) = 0.082 GEV * -* HO : LAMBDA(3) = 0.248, LAMBDA(4) = 0.200, * -* LAMBDA(5) = 0.131, LAMBDA(6) = 0.053 GEV * -* * -* HO DISTRIBUTIONS REFER TO THE DIS(GAMMA) SCHEME, SEE : * -* M. GLUECK, E.REYA, A.VOGT: DO-TH 91/26 * -* * -* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -C - IMPLICIT REAL (A - Y) -#include "pdf/expdp.inc" - + ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZBB,ZGL - DATA ALPHEM/7.29927D-3/ - REAL X, Q - X = ZX - Q = ZQ - MU2 = 0.3 - LAM2 = 0.248 * 0.248 - Q2 = Q*Q - S = ALOG (ALOG(Q2/LAM2) / ALOG(MU2/LAM2)) - SS = SQRT (S) - S2 = S * S -C...X * U = X * UBAR : - AL = 0.583 - BE = 0.688 - AK = 0.449 - 0.025 * S - 0.071 * S2 - BK = 5.060 - 1.116 * SS - AG = 0.103 - BG = 0.319 + 0.422 * S - C = 1.508 + 4.792 * S - 1.963 * S2 - D = 1.075 + 0.222 * SS - 0.193 * S2 - E = 4.147 + 1.131 * S - ES = 1.661 + 0.874 * S - UH = GRVGF (X, S, AL, BE, AK, BK, AG, BG, C, D, E, ES) - ZUV = UH * ALPHEM - ZUB = ZUV -C...X * D = X * DBAR : - AL = 0.591 - BE = 0.698 - AK = 0.442 - 0.132 * S - 0.058 * S2 - BK = 5.437 - 1.916 * SS - AG = 0.099 - BG = 0.311 - 0.059 * S - C = 0.800 + 0.078 * S - 0.100 * S2 - D = 0.862 + 0.294 * SS - 0.184 * S2 - E = 4.202 + 1.352 * S - ES = 1.841 + 0.990 * S - DH = GRVGF (X, S, AL, BE, AK, BK, AG, BG, C, D, E, ES) - ZDV = DH * ALPHEM - ZDB = ZDV -C...X * G : - AL = 1.161 - BE = 1.591 - AK = 0.530 - 0.742 * SS + 0.025 * S2 - BK = 5.662 - AG = 0.533 - 0.281 * SS + 0.218 * S2 - BG = 0.025 - 0.518 * S + 0.156 * S2 - C = -0.282 + 0.209 * S2 - D = 0.107 + 1.058 * S - 0.218 * S2 - E = 0.0 + 2.704 * S - ES = 3.071 - 0.378 * S - GH = GRVGF (X, S, AL, BE, AK, BK, AG, BG, C, D, E, ES) - ZGL = GH * ALPHEM -C...X * S = X * SBAR : - SF = 0.0 - AL = 0.635 - BE = 0.456 - AK = 1.770 - 0.735 * SS - 0.079 * S2 - BK = 3.832 - AG = 0.084 - 0.023 * S - BG = 0.136 - C = 2.119 - 0.942 * S + 0.063 * S2 - D = 1.271 + 0.076 * S - 0.190 * S2 - E = 4.604 + 0.737 * S - ES = 1.641 + 0.976 * S - SH = GRVGFS (X, S, SF, AL, BE, AK, BK, AG, BG, C, D, E, ES) - ZSB = SH * ALPHEM -C...X * C = X * CBAR : - SF = 0.820 - AL = 0.926 - BE = 0.152 - AK = 1.142 - 0.175 * S - BK = 3.276 - AG = 0.504 + 0.317 * S - BG = -0.433 - C = 3.334 - D = 0.398 + 0.326 * S - 0.107 * S2 - E = 5.493 + 0.408 * S - ES = 2.426 + 1.277 * S - CH = GRVGFS (X, S, SF, AL, BE, AK, BK, AG, BG, C, D, E, ES) - ZCB = CH * ALPHEM -C...X * B = X * BBAR : - SF = 1.297 - AL = 0.969 - BE = 0.266 - AK = 1.953 - 0.391 * S - BK = 1.657 - 0.161 * S - AG = 1.076 + 0.034 * S - BG = -2.015 - C = 1.662 - D = 0.353 + 0.016 * S - E = 5.713 + 0.249 * S - ES = 3.456 + 0.673 * S - BH = GRVGFS (X, S, SF, AL, BE, AK, BK, AG, BG, C, D, E, ES) - ZBB = BH * ALPHEM -c - RETURN - END diff --git a/PDF/spdf/grvgalo.F b/PDF/spdf/grvgalo.F deleted file mode 100644 index 56a42ce5752..00000000000 --- a/PDF/spdf/grvgalo.F +++ /dev/null @@ -1,143 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:40 cernlib -* Version 7.04 -* -* Revision 1.2 1996/10/28 15:02:20 pdflib -* PDFLIB new version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:23 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE GRVGALO (ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZBB,ZGL) -* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -* * -* G R V - P H O T O N - P A R A M E T R I Z A T I O N S * -* * -* FOR A DETAILED EXPLANATION SEE : * -* M. GLUECK, E.REYA, A.VOGT: DO-TH 91/31 * -* * -* THE OUTPUT IS ALWAYS 1./ ALPHA(EM) * X * PARTON DENSITY * -* output modified by HPB to be always X * PARTON DENSITY * -* * -* THE PARAMETRIZATIONS ARE FITTED TO THE PARTON DISTRIBUTIONS * -* FOR Q ** 2 BETWEEN MU ** 2 (= 0.25 / 0.30 GEV ** 2 IN LO * -* / HO) AND 1.E6 GEV ** 2 AND FOR X BETWEEN 1.E-5 AND 1. * -* * -* HEAVY QUARK THRESHOLDS Q(H) = M(H) : * -* M(C) = 1.5, M(B) = 4.5, M(T) = 100 GEV * -* * -* CORRESPONDING LAMBDA(F) VALUES FOR F ACTIVE FLAVOURS : * -* LO : LAMBDA(3) = 0.232, LAMBDA(4) = 0.200, * -* LAMBDA(5) = 0.153, LAMBDA(6) = 0.082 GEV * -* HO : LAMBDA(3) = 0.248, LAMBDA(4) = 0.200, * -* LAMBDA(5) = 0.131, LAMBDA(6) = 0.053 GEV * -* * -* HO DISTRIBUTIONS REFER TO THE DIS(GAMMA) SCHEME, SEE : * -* M. GLUECK, E.REYA, A.VOGT: DO-TH 91/26 * -* * -* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -C - IMPLICIT REAL (A - Y) -#include "pdf/expdp.inc" - + ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZBB,ZGL - REAL X, Q - DATA ALPHEM/7.29927D-3/ - X = ZX - Q = ZQ - MU2 = 0.25 - LAM2 = 0.232 * 0.232 - Q2 = Q*Q - S = ALOG (ALOG(Q2/LAM2) / ALOG(MU2/LAM2)) - SS = SQRT (S) - S2 = S * S -C...X * U = X * UBAR : - AL = 1.717 - BE = 0.641 - AK = 0.500 - 0.176 * S - BK = 15.00 - 5.687 * SS - 0.552 * S2 - AG = 0.235 + 0.046 * SS - BG = 0.082 - 0.051 * S + 0.168 * S2 - C = 0.0 + 0.459 * S - D = 0.354 - 0.061 * S - E = 4.899 + 1.678 * S - ES = 2.046 + 1.389 * S - UL = GRVGF (X, S, AL, BE, AK, BK, AG, BG, C, D, E, ES) - ZUV = UL * ALPHEM - ZUB = ZUV -C...X * D = X * DBAR : - AL = 1.549 - BE = 0.782 - AK = 0.496 + 0.026 * S - BK = 0.685 - 0.580 * SS + 0.608 * S2 - AG = 0.233 + 0.302 * S - BG = 0.0 - 0.818 * S + 0.198 * S2 - C = 0.114 + 0.154 * S - D = 0.405 - 0.195 * S + 0.046 * S2 - E = 4.807 + 1.226 * S - ES = 2.166 + 0.664 * S - DL = GRVGF (X, S, AL, BE, AK, BK, AG, BG, C, D, E, ES) - ZDV = DL * ALPHEM - ZDB = ZDV -C...X * G : - AL = 0.676 - BE = 1.089 - AK = 0.462 - 0.524 * SS - BK = 5.451 - 0.804 * S2 - AG = 0.535 - 0.504 * SS + 0.288 * S2 - BG = 0.364 - 0.520 * S - C = -0.323 + 0.115 * S2 - D = 0.233 + 0.790 * S - 0.139 * S2 - E = 0.893 + 1.968 * S - ES = 3.432 + 0.392 * S - GL = GRVGF (X, S, AL, BE, AK, BK, AG, BG, C, D, E, ES) - ZGL = GL * ALPHEM -C...X * S = X * SBAR : - SF = 0.0 - AL = 1.609 - BE = 0.962 - AK = 0.470 - 0.099 * S2 - BK = 3.246 - AG = 0.121 - 0.068 * SS - BG = -0.090 + 0.074 * S - C = 0.062 + 0.034 * S - D = 0.0 + 0.226 * S - 0.060 * S2 - E = 4.288 + 1.707 * S - ES = 2.122 + 0.656 * S - SL = GRVGFS (X, S, SF, AL, BE, AK, BK, AG, BG, C, D, E, ES) - ZSB = SL * ALPHEM -C...X * C = X * CBAR : - SF = 0.888 - AL = 0.970 - BE = 0.545 - AK = 1.254 - 0.251 * S - BK = 3.932 - 0.327 * S2 - AG = 0.658 + 0.202 * S - BG = -0.699 - C = 0.965 - D = 0.0 + 0.141 * S - 0.027 * S2 - E = 4.911 + 0.969 * S - ES = 2.796 + 0.952 * S - CL = GRVGFS (X, S, SF, AL, BE, AK, BK, AG, BG, C, D, E, ES) - ZCB = CL * ALPHEM -C...X * B = X * BBAR : - SF = 1.351 - AL = 1.016 - BE = 0.338 - AK = 1.961 - 0.370 * S - BK = 0.923 + 0.119 * S - AG = 0.815 + 0.207 * S - BG = -2.275 - C = 1.480 - D = -0.223 + 0.173 * S - E = 5.426 + 0.623 * S - ES = 3.819 + 0.901 * S - BL = GRVGFS (X, S, SF, AL, BE, AK, BK, AG, BG, C, D, E, ES) - ZBB = BL * ALPHEM -C - RETURN - END diff --git a/PDF/spdf/grvgf.F b/PDF/spdf/grvgf.F deleted file mode 100644 index e6cd7dc43b2..00000000000 --- a/PDF/spdf/grvgf.F +++ /dev/null @@ -1,20 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:41 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:23 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - FUNCTION GRVGF (X, S, AL, BE, AK, BK, AG, BG, C, D, E, ES) - IMPLICIT REAL (A - Z) - SX = SQRT (X) - LX = ALOG (1./X) - GRVGF = (X**AK * (AG + BG * SX + C * X**BK) + S**AL - 1 * EXP (-E + SQRT (ES * S**BE * LX))) * (1.- X)**D - RETURN - END diff --git a/PDF/spdf/grvgfs.F b/PDF/spdf/grvgfs.F deleted file mode 100644 index f7466b99552..00000000000 --- a/PDF/spdf/grvgfs.F +++ /dev/null @@ -1,25 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:41 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:23 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - FUNCTION GRVGFS (X, S, SF, AL, BE, AK, BK, AG, BG, C, D, E, ES) - IMPLICIT REAL (A - Z) - IF (S .LE. SF) THEN - GRVGFS = 0.0 - ELSE - SX = SQRT (X) - LX = ALOG (1./X) - DS = S - SF - GRVGFS = (DS * X**AK * (AG + BG * SX + C * X**BK) + DS**AL - 1 * EXP (-E + SQRT (ES * S**BE * LX))) * (1.- X)**D - END IF - RETURN - END diff --git a/PDF/spdf/grvho.F b/PDF/spdf/grvho.F deleted file mode 100644 index d9d1b62ec41..00000000000 --- a/PDF/spdf/grvho.F +++ /dev/null @@ -1,113 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:42 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:23 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C -C...HO PARAMATRIZATIONS : - SUBROUTINE GRVHO (ZX,ZQ,ZUV,ZDV,ZUDB,ZSB,ZCB,ZBB,ZTB,ZGL) - IMPLICIT REAL (A - Y) -#include "pdf/expdp.inc" - + ZX,ZQ,ZUV,ZDV,ZUDB,ZSB,ZCB,ZBB,ZTB,ZGL - REAL X, Q - X = ZX - Q = ZQ - MU2 = 0.3 - LAM2 = 0.248 * 0.248 - Q2 = Q*Q - S = ALOG (ALOG( MAX(MU2,Q2)/LAM2) / ALOG(MU2/LAM2)) - DS = SQRT (S) - S2 = S * S - S3 = S2 * S -C...X * (UV + DV) : - NUD = 0.330 + 0.151 * S - 0.059 * S2 + 0.027 * S3 - AKUD = 0.285 - AGUD = -2.28 + 15.73 * S - 4.58 * S2 - BUD = 56.7 - 53.6 * S + 11.21 * S2 - DUD = 3.17 + 1.17 * S - 0.47 * S2 + 0.09 * S3 - UDV = GRVFV (X, NUD, AKUD, AGUD, BUD, DUD) -C...X * DV : - ND = 0.459 + 0.315 * DS + 0.515 * S - AKD = 0.624 - 0.031 * S - AGD = 8.13 - 6.77 * DS + 0.46 * S - BD = 6.59 - 12.83 * DS + 5.65 * S - DD = 3.98 + 1.04 * S - 0.34 * S2 - DV = GRVFV (X, ND, AKD, AGD, BD, DD) - ZDV = DV -C...X * UV : - UV = UDV - DV - ZUV = UV -C...X * G : - ALG = 1.128 - BEG = 1.575 - AKG = 0.323 + 1.653 * S - BKG = 0.811 + 2.044 * S - AGG = 0.0 + 1.963 * S - 0.519 * S2 - BGG = 0.078 + 6.24 * S - CG = 30.77 - 24.19 * S - DG = 3.188 + 0.720 * S - EG = -0.881 + 2.687 * S - ESG = 2.466 - GL = GRVFW (X, S, ALG, BEG, AKG, BKG, AGG, BGG, CG, DG, EG, ESG) - ZGL = GL -C...X * UBAR = X * DBAR : - ALU = 0.594 - BEU = 0.614 - AKU = 0.636 - 0.084 * S - BKU = 0.0 - AGU = 1.121 - 0.193 * S - BGU = 0.751 - 0.785 * S - CU = 8.57 - 1.763 * S - DU = 10.22 + 0.668 * S - EU = 3.784 + 1.280 * S - ESU = 1.808 + 0.980 * S - UDB = GRVFW (X, S, ALU, BEU, AKU, BKU, AGU, BGU, CU, DU, EU, ESU) - ZUDB = UDB -C...X * SBAR = X * S : - SS = 0.0 - ALS = 0.756 - BES = 0.101 - AKS = 2.942 - 1.016 * S - AGS = -4.60 + 1.167 * S - BS = 9.31 - 1.324 * S - DS = 11.49 - 1.198 * S + 0.053 * S2 - EST = 2.630 + 1.729 * S - ESS = 8.12 - SB = GRVFWS (X, S, SS, ALS, BES, AKS, AGS, BS, DS, EST, ESS) - ZSB = SB -C...X * CBAR = X * C : - SC = 0.820 - ALC = 0.98 - BEC = 0.0 - AKC = -0.625 - 0.523 * S - AGC = 0.0 - BC = 1.896 + 1.616 * S - DC = 4.12 + 0.683 * S - EC = 4.36 + 1.328 * S - ESC = 0.677 + 0.679 * S - CB = GRVFWS (X, S, SC, ALC, BEC, AKC, AGC, BC, DC, EC, ESC) - ZCB = CB -C...X * BBAR = X * B : - SBO = 1.297 - ALB = 0.99 - BEB = 0.0 - AKB = 0.0 - 0.193 * S - AGB = 0.0 - BBO = 0.0 - DB = 3.447 + 0.927 * S - EB = 4.68 + 1.259 * S - ESB = 1.892 + 2.199 * S - BB = GRVFWS (X, S, SBO, ALB, BEB, AKB, AGB, BBO, DB, EB, ESB) - ZBB = BB -C...X * TBAR = X * T : - TB=0. - ZTB = TB - RETURN - END diff --git a/PDF/spdf/grvlo.F b/PDF/spdf/grvlo.F deleted file mode 100644 index ae2d440d301..00000000000 --- a/PDF/spdf/grvlo.F +++ /dev/null @@ -1,140 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:43 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:24 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -C. * * -C. * G R V - P A R A M E T R I Z A T I O N S * -C. * * -C. * adapted by H. Plothow-Besch August 1991 * -C. * * -C. * * -C. * FOR A DETAILED EXPLANATION SEE : * -C. * M. GLUECK, E.REYA, A.VOGT: DO-TH 91/07 * -C. * * -C. * THE PARAMETRIZATIONS ARE FITTED TO OUR PARTON DISTRIBUTIONS * -C. * FOR Q ** 2 BETWEEN MU ** 2 (= 0.25 / 0.30 GEV ** 2 IN LO * -C. * / HO) AND 1.E8 GEV ** 2 AND FOR X BETWEEN 1.E-5 AND 1. * -C. * REGIONS, WHERE THE DISTRIBUTION UNDER CONSIDERATION IS NEG- * -C. * LIGIBLE, I.E. BELOW ABOUT 1.E-4, WERE EXCLUDED FROM THE FIT. * -C. * * -C. * HEAVY QUARK THRESHOLDS Q(H) = M(H) : * -C. * M(C) = 1.5, M(B) = 4.5, M(T) = 100 GEV * -C. * * -C. * CORRESPONDING LAMBDA(F) VALUES FOR F ACTIVE FLAVOURS : * -C. * LO : LAMBDA(3) = 0.232, LAMBDA(4) = 0.200, * -C. * LAMBDA(5) = 0.153, LAMBDA(6) = 0.082 GEV * -C. * HO : LAMBDA(3) = 0.248, LAMBDA(4) = 0.200, * -C. * LAMBDA(5) = 0.131, LAMBDA(6) = 0.053 GEV * -C. * * -C. * HO DISTRIBUTION REFER TO THE MS-BAR SCHEME OF BARDEEN ET AL. * -C. * * -C. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -C -C...LO PARAMETRIZATIONS : - SUBROUTINE GRVLO (ZX,ZQ,ZUV,ZDV,ZUDB,ZSB,ZCB,ZBB,ZTB,ZGL) - IMPLICIT REAL (A - Y) -#include "pdf/expdp.inc" - + ZX,ZQ,ZUV,ZDV,ZUDB,ZSB,ZCB,ZBB,ZTB,ZGL - REAL X, Q - X = ZX - Q = ZQ - MU2 = 0.25 - LAM2 = 0.232 * 0.232 - Q2 = Q*Q - S = ALOG (ALOG( MAX( MU2,Q2)/LAM2) / ALOG(MU2/LAM2)) - S2 = S * S - S3 = S2 * S -C...X * (UV + DV) : - NUD = 0.663 + 0.191 * S - 0.041 * S2 + 0.031 * S3 - AKUD = 0.326 - AGUD = -1.97 + 6.74 * S - 1.96 * S2 - BUD = 24.4 - 20.7 * S + 4.08 * S2 - DUD = 2.86 + 0.70 * S - 0.02 * S2 - UDV = GRVFV (X, NUD, AKUD, AGUD, BUD, DUD) -C...X * DV : - ND = 0.579 + 0.283 * S + 0.047 * S2 - AKD = 0.523 - 0.015 * S - AGD = 2.22 - 0.59 * S - 0.27 * S2 - BD = 5.95 - 6.19 * S + 1.55 * S2 - DD = 3.57 + 0.94 * S - 0.16 * S2 - DV = GRVFV (X, ND, AKD, AGD, BD, DD) - ZDV = DV -C...X * UV : - UV = UDV - DV - ZUV = UV -C...X * G : - ALG = 0.558 - BEG = 1.218 - AKG = 1.00 - 0.17 * S - BKG = 0.0 - AGG = 0.0 + 4.879 * S - 1.383 * S2 - BGG = 25.92 - 28.97 * S + 5.596 * S2 - CG = -25.69 + 23.68 * S - 1.975 * S2 - DG = 2.537 + 1.718 * S + 0.353 * S2 - EG = 0.595 + 2.138 * S - ESG = 4.066 - GL = GRVFW (X, S, ALG, BEG, AKG, BKG, AGG, BGG, CG, DG, EG, ESG) - ZGL = GL -C...X * UBAR = X * DBAR : - ALU = 1.396 - BEU = 1.331 - AKU = 0.412 - 0.171 * S - BKU = 0.566 - 0.496 * S - AGU = 0.363 - BGU = -1.196 - CU = 1.029 + 1.785 * S - 0.459 * S2 - DU = 4.696 + 2.109 * S - EU = 3.838 + 1.944 * S - ESU = 2.845 - UDB = GRVFW (X, S, ALU, BEU, AKU, BKU, AGU, BGU, CU, DU, EU, ESU) - ZUDB = UDB -C...X * SBAR = X * S : - SS = 0.0 - ALS = 0.803 - BES = 0.563 - AKS = 2.082 - 0.577 * S - AGS = -3.055 + 1.024 * S ** 0.67 - BS = 27.4 - 20.0 * S ** 0.154 - DS = 6.22 - EST = 4.33 + 1.408 * S - ESS = 8.27 - 0.437 * S - SB = GRVFWS (X, S, SS, ALS, BES, AKS, AGS, BS, DS, EST, ESS) - ZSB = SB -C...X * CBAR = X * C : - SC = 0.888 - ALC = 1.01 - BEC = 0.37 - AKC = 0.0 - AGC = 0.0 - BC = 4.24 - 0.804 * S - DC = 3.46 + 1.076 * S - EC = 4.61 + 1.490 * S - ESC = 2.555 + 1.961 * S - CB = GRVFWS (X, S, SC, ALC, BEC, AKC, AGC, BC, DC, EC, ESC) - ZCB = CB -C...X * BBAR = X * B : - SBO = 1.351 - ALB = 1.00 - BEB = 0.51 - AKB = 0.0 - AGB = 0.0 - BBO = 1.848 - DB = 2.929 + 1.396 * S - EB = 4.71 + 1.514 * S - ESB = 4.02 + 1.239 * S - BB = GRVFWS (X, S, SBO, ALB, BEB, AKB, AGB, BBO, DB, EB, ESB) - ZBB = BB -C...X * TBAR = X * T : - TB=0. - ZTB = TB - RETURN - END diff --git a/PDF/spdf/grvpiho.F b/PDF/spdf/grvpiho.F deleted file mode 100644 index 3bc4344dfa2..00000000000 --- a/PDF/spdf/grvpiho.F +++ /dev/null @@ -1,114 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:44 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:24 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE GRVPIHO (ZX,ZQ,ZUV,ZDV,ZUDB,ZSB,ZCB,ZBB,ZTB,ZGL) -* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -* * -* G R V - P I O N - P A R A M E T R I Z A T I O N S * -* * -* FOR A DETAILED EXPLANATION SEE : * -* M. GLUECK, E.REYA, A.VOGT: DO-TH 91/16 * -* * -* THE PARAMETRIZATIONS ARE FITTED TO THE PARTON DISTRIBUTIONS * -* FOR Q ** 2 BETWEEN MU ** 2 (= 0.25 / 0.30 GEV ** 2 IN LO * -* / HO) AND 1.E8 GEV ** 2 AND FOR X BETWEEN 1.E-5 AND 1. * -* REGIONS, WHERE THE DISTRIBUTION UNDER CONSIDERATION IS NEG- * -* LIGIBLE, I.E. BELOW ABOUT 1.E-4, WERE EXCLUDED FROM THE FIT. * -* * -* HEAVY QUARK THRESHOLDS Q(H) = M(H) : * -* M(C) = 1.5, M(B) = 4.5, M(T) = 100 GEV * -* * -* CORRESPONDING LAMBDA(F) VALUES FOR F ACTIVE FLAVOURS : * -* LO : LAMBDA(3) = 0.232, LAMBDA(4) = 0.200, * -* LAMBDA(5) = 0.153, LAMBDA(6) = 0.082 GEV * -* HO : LAMBDA(3) = 0.248, LAMBDA(4) = 0.200, * -* LAMBDA(5) = 0.131, LAMBDA(6) = 0.053 GEV * -* * -* HO DISTRIBUTION REFER TO THE MS-BAR SCHEME OF BARDEEN ET AL. * -* * -* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -C - IMPLICIT REAL (A - Y) -#include "pdf/expdp.inc" - + ZX,ZQ,ZUV,ZDV,ZUDB,ZSB,ZCB,ZBB,ZTB,ZGL - REAL X, Q - X = ZX - Q = ZQ - MU2 = 0.3 - LAM2 = 0.248 * 0.248 - Q2 = Q*Q - S = ALOG (ALOG(Q2/LAM2) / ALOG(MU2/LAM2)) - DS = SQRT (S) - S2 = S * S -C...X * VALENCE : - NV = 0.456 + 0.150 * DS + 0.112 * S - 0.019 * S2 - AKV = 0.505 - 0.033 * S - AGV = 0.748 - 0.669 * DS - 0.133 * S - DV = 0.365 + 0.197 * DS + 0.394 * S - VAP = GRVFVP (X, NV, AKV, AGV, DV) - ZUV = VAP - ZDV = ZUV -C...X * GLUON : - ALG = 1.096 - BEG = 1.371 - AKG = 0.437 - 0.689 * DS - BKG = -0.631 - AGG = 1.324 - 0.441 * DS - 0.130 * S - BGG = -0.955 + 0.259 * S - CG = 1.075 - 0.302 * S - DG = 1.158 + 1.229 * S - EG = 0.0 + 2.510 * S - ESG = 2.604 + 0.165 * S - GLP = GRVFGP(X,S, ALG, BEG, AKG, BKG, AGG, BGG, CG, DG, EG, ESG) - ZGL = GLP -C...X * QBAR (SU(3)-SYMMETRIC SEA) : - SL = 0.0 - ALS = 0.85 - BES = 0.96 - AKS = -0.350 + 0.806 * S - AGS = -1.663 - BS = 3.148 - DS = 2.273 + 1.438 * S - EST = 3.214 + 1.545 * S - ESS = 1.341 + 1.938 * S - QBP = GRVFQBP (X, S, SL, ALS, BES, AKS, AGS, BS, DS, EST, ESS) - ZUDB = QBP - ZSB = ZUDB -C...X * CBAR = X * C : - SC = 0.820 - ALC = 0.98 - BEC = 0.0 - AKC = 0.0 - 0.457 * S - AGC = 0.0 - BC = -1.00 + 1.40 * S - DC = 1.318 + 0.584 * S - EC = 4.45 + 1.235 * S - ESC = 1.496 + 1.010 * S - CBP = GRVFQBP (X, S, SC, ALC, BEC, AKC, AGC, BC, DC, EC, ESC) - ZCB = CBP -C...X * BBAR = X * B : - SBO = 1.297 - ALB = 0.99 - BEB = 0.0 - AKB = 0.0 - 0.172 * S - AGB = 0.0 - BBO = 0.0 - DB = 1.447 + 0.485 * S - EB = 4.79 + 1.164 * S - ESB = 1.724 + 2.121 * S - BBP = GRVFQBP (X, S, SBO, ALB, BEB, AKB, AGB, BBO, DB, EB, ESB) - ZBB = BBP -C...X * TBAR = X * T : - TBP = 0. - ZTB = TBP - RETURN - END diff --git a/PDF/spdf/grvpilo.F b/PDF/spdf/grvpilo.F deleted file mode 100644 index 807cb623c9f..00000000000 --- a/PDF/spdf/grvpilo.F +++ /dev/null @@ -1,114 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:44 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:24 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE GRVPILO (ZX,ZQ,ZUV,ZDV,ZUDB,ZSB,ZCB,ZBB,ZTB,ZGL) -* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -* * -* G R V - P I O N - P A R A M E T R I Z A T I O N S * -* * -* FOR A DETAILED EXPLANATION SEE : * -* M. GLUECK, E.REYA, A.VOGT: DO-TH 91/16 * -* * -* THE PARAMETRIZATIONS ARE FITTED TO THE PARTON DISTRIBUTIONS * -* FOR Q ** 2 BETWEEN MU ** 2 (= 0.25 / 0.30 GEV ** 2 IN LO * -* / HO) AND 1.E8 GEV ** 2 AND FOR X BETWEEN 1.E-5 AND 1. * -* REGIONS, WHERE THE DISTRIBUTION UNDER CONSIDERATION IS NEG- * -* LIGIBLE, I.E. BELOW ABOUT 1.E-4, WERE EXCLUDED FROM THE FIT. * -* * -* HEAVY QUARK THRESHOLDS Q(H) = M(H) : * -* M(C) = 1.5, M(B) = 4.5, M(T) = 100 GEV * -* * -* CORRESPONDING LAMBDA(F) VALUES FOR F ACTIVE FLAVOURS : * -* LO : LAMBDA(3) = 0.232, LAMBDA(4) = 0.200, * -* LAMBDA(5) = 0.153, LAMBDA(6) = 0.082 GEV * -* HO : LAMBDA(3) = 0.248, LAMBDA(4) = 0.200, * -* LAMBDA(5) = 0.131, LAMBDA(6) = 0.053 GEV * -* * -* HO DISTRIBUTION REFER TO THE MS-BAR SCHEME OF BARDEEN ET AL. * -* * -* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -C - IMPLICIT REAL (A - Y) -#include "pdf/expdp.inc" - + ZX,ZQ,ZUV,ZDV,ZUDB,ZSB,ZCB,ZBB,ZTB,ZGL - REAL X, Q - X = ZX - Q = ZQ - MU2 = 0.25 - LAM2 = 0.232 * 0.232 - Q2 = Q*Q - S = ALOG (ALOG(Q2/LAM2) / ALOG(MU2/LAM2)) - DS = SQRT (S) - S2 = S * S -C...X * VALENCE : - NV = 0.519 + 0.180 * S - 0.011 * S2 - AKV = 0.499 - 0.027 * S - AGV = 0.381 - 0.419 * S - DV = 0.367 + 0.563 * S - VAP = GRVFVP (X, NV, AKV, AGV, DV) - ZUV = VAP - ZDV = ZUV -C...X * GLUON : - ALG = 0.599 - BEG = 1.263 - AKG = 0.482 + 0.341 * DS - BKG = 0.0 - AGG = 0.678 + 0.877 * S - 0.175 * S2 - BGG = 0.338 - 1.597 * S - CG = 0.0 - 0.233 * S + 0.406 * S2 - DG = 0.390 + 1.053 * S - EG = 0.618 + 2.070 * S - ESG = 3.676 - GLP = GRVFGP(X,S, ALG, BEG, AKG, BKG, AGG, BGG, CG, DG, EG, ESG) - ZGL = GLP -C...X * QBAR (SU(3)-SYMMETRIC SEA) : - SL = 0.0 - ALS = 0.55 - BES = 0.56 - AKS = 2.538 - 0.763 * S - AGS = -0.748 - BS = 0.313 + 0.935 * S - DS = 3.359 - EST = 4.433 + 1.301 * S - ESS = 9.30 - 0.887 * S - QBP = GRVFQBP (X, S, SL, ALS, BES, AKS, AGS, BS, DS, EST, ESS) - ZUDB = QBP - ZSB = ZUDB -C...X * CBAR = X * C : - SC = 0.888 - ALC = 1.02 - BEC = 0.39 - AKC = 0.0 - AGC = 0.0 - BC = 1.008 - DC = 1.208 + 0.771 * S - EC = 4.40 + 1.493 * S - ESC = 2.032 + 1.901 * S - CBP = GRVFQBP (X, S, SC, ALC, BEC, AKC, AGC, BC, DC, EC, ESC) - ZCB = CBP -C...X * BBAR = X * B : - SBO = 1.351 - ALB = 1.03 - BEB = 0.39 - AKB = 0.0 - AGB = 0.0 - BBO = 0.0 - DB = 0.697 + 0.855 * S - EB = 4.51 + 1.490 * S - ESB = 3.056 + 1.694 * S - BBP = GRVFQBP (X, S, SBO, ALB, BEB, AKB, AGB, BBO, DB, EB, ESB) - ZBB = BBP -C...X * TBAR = X * T : - TBP = 0. - ZTB = TBP - RETURN - END diff --git a/PDF/spdf/gs2xcor.F b/PDF/spdf/gs2xcor.F deleted file mode 100644 index 5ebe3a6608c..00000000000 --- a/PDF/spdf/gs2xcor.F +++ /dev/null @@ -1,23 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE GS2XCOR(Y,NP) - IMPLICIT REAL*8(A-H,O-Z) - DIMENSION Y(NP) - N=1 - DO 10 IX=1,20,2 - Y(N)=DBLE(IX)/2000.0D0 - N=N+1 - 10 CONTINUE - DO 20 IX=30,200,10 - Y(N)=DBLE(IX)/2000.0D0 - N=N+1 - 20 CONTINUE - DO 30 IX=240,1600,40 - Y(N)=REAL(IX)/2000.0D0 - N=N+1 - 30 CONTINUE - DO 40 IX=1625,1980,25 - Y(N)=REAL(IX)/2000.0D0 - N=N+1 - 40 CONTINUE - RETURN - END diff --git a/PDF/spdf/gs96ho.F b/PDF/spdf/gs96ho.F deleted file mode 100644 index 7d32f369794..00000000000 --- a/PDF/spdf/gs96ho.F +++ /dev/null @@ -1,827 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE GS96HO(X,Q,U,D,S,C,B,G) -#include "pdf/impdp.inc" - PARAMETER(NP=78,NQ=11,NARG=2) -***************************************************************** -* Subroutine returns the parton distributions in the photon in * -* next-to-leading order. u,d etc. gives the actual distributions* -* not x times the distributions; Q2 means Q^2. The distributions* -* are valid for 5.0e^-4< x < 1.0 and 5.3 GeV^2 < Q^2 < 1.0e^8. * -* if higher Q^2 or lower x is required, these may be obtained * -* from the authors on request. * -* Lionel Gordon April 1996 : Gordon@hep.anl.gov * -* John Storrow :johns@a3.ph.man.ac.uk * -***************************************************************** - DIMENSION SIG(NP,NQ),QNS(NP,NQ),GL(NP,NQ),Y(NP) - DIMENSION XT(NARG),NA(NARG),A(NP+NQ),QT(NQ) - EXTERNAL GS2XCOR - SAVE SIG,QNS,GL,Y,ICALL - DATA QT /3.0D0,20.0D0,50.0D0,100.0D0,500.0D0,1.0D3,1.0D4,1.0D5, - + 1.0D6,1.0D7,1.0D8/ -****************************************************************** - DATA ((SIG(IX,IQ),IQ=1,11),IX=1,6)/ - + .32952790E+01, .17617310E+02, .24664560E+02, .79734660E+02, - + .10394290E+03, .13205610E+03, .22801450E+03, .32663620E+03, - + .42694500E+03, .52839150E+03, .63063600E+03, - + .11355130E+01, .49007990E+01, .66096530E+01, .20736370E+02, - + .27152900E+02, .33481500E+02, .54249380E+02, .74646160E+02, - + .94712450E+02, .11448800E+03, .13400700E+03, - + .69725520E+00, .27181100E+01, .36078720E+01, .10865590E+02, - + .14099710E+02, .17157470E+02, .27046880E+02, .36598070E+02, - + .45881690E+02, .54947310E+02, .63831170E+02, - + .50751400E+00, .18400150E+01, .24154690E+01, .70494920E+01, - + .90649070E+01, .10935810E+02, .16934240E+02, .22669580E+02, - + .28204380E+02, .33580270E+02, .38826630E+02, - + .40121810E+00, .13731050E+01, .17868270E+01, .50892710E+01, - + .64925790E+01, .77819030E+01, .11890620E+02, .15791700E+02, - + .19537770E+02, .23163030E+02, .26691190E+02, - + .33308050E+00, .10861830E+01, .14031020E+01, .39184370E+01, - + .49651020E+01, .59201350E+01, .89495960E+01, .11810820E+02, - + .14548250E+02, .17190350E+02, .19756580E+02 / - DATA ((SIG(IX,IQ),IQ=1,11),IX=7,12)/ - + .28559850E+00, .89331280E+00, .11466080E+01, .31502900E+01, - + .39693270E+01, .47118240E+01, .70586360E+01, .92660250E+01, - + .11371930E+02, .13400400E+02, .15367710E+02, - + .25056860E+00, .75545290E+00, .96416780E+00, .26125790E+01, - + .32751870E+01, .38730210E+01, .57570350E+01, .75232170E+01, - + .92043930E+01, .10821190E+02, .12387470E+02, - + .22363090E+00, .65240040E+00, .82838500E+00, .22177870E+01, - + .27681710E+01, .32623690E+01, .48160030E+01, .62684990E+01, - + .76485700E+01, .89741320E+01, .10257160E+02, - + .20225260E+00, .57269080E+00, .72377460E+00, .19173610E+01, - + .23834610E+01, .28005980E+01, .41091970E+01, .53297510E+01, - + .64876830E+01, .75987540E+01, .86734410E+01, - + .13472800E+00, .33581240E+00, .41579080E+00, .10559280E+01, - + .12925430E+01, .14995290E+01, .21442820E+01, .27411460E+01, - + .33048170E+01, .38441940E+01, .43650690E+01, - + .10491760E+00, .24055790E+00, .29374620E+00, .72728380E+00, - + .88260870E+00, .10155930E+01, .14286250E+01, .18099560E+01, - + .21696630E+01, .25137560E+01, .28460940E+01 / - DATA ((SIG(IX,IQ),IQ=1,11),IX=13,18)/ - + .86709805E-01, .18617900E+00, .22482300E+00, .54616330E+00, - + .65903060E+00, .75352190E+00, .10466620E+01, .13171390E+01, - + .15723460E+01, .18166450E+01, .20528090E+01, - + .74374467E-01, .15134900E+00, .18107930E+00, .43337820E+00, - + .52092740E+00, .59255640E+00, .81476960E+00, .10199420E+01, - + .12137490E+01, .13995040E+01, .15793000E+01, - + .65431371E-01, .12728810E+00, .15110160E+00, .35720830E+00, - + .42832690E+00, .48514330E+00, .66153710E+00, .82465060E+00, - + .97897980E+00, .11271280E+01, .12707220E+01, - + .58629494E-01, .10975060E+00, .12940750E+00, .30279420E+00, - + .36250730E+00, .40911560E+00, .55400170E+00, .68825410E+00, - + .81552170E+00, .93790310E+00, .10567010E+01, - + .53268183E-01, .96444786E-01, .11305450E+00, .26219950E+00, - + .31362490E+00, .35287020E+00, .47505800E+00, .58854290E+00, - + .69634740E+00, .80019700E+00, .90115710E+00, - + .48923943E-01, .86029820E-01, .10033050E+00, .23090380E+00, - + .27613580E+00, .30986190E+00, .41506420E+00, .51302950E+00, - + .60629480E+00, .69630070E+00, .78393270E+00 / - DATA ((SIG(IX,IQ),IQ=1,11),IX=19,24)/ - + .45325417E-01, .77671677E-01, .90175442E-01, .20612440E+00, - + .24648620E+00, .27597160E+00, .36812100E+00, .45415550E+00, - + .53623810E+00, .61558990E+00, .69295660E+00, - + .42290546E-01, .70825607E-01, .81900075E-01, .18607260E+00, - + .22264560E+00, .24877150E+00, .33059900E+00, .40721100E+00, - + .48046360E+00, .55140020E+00, .62065590E+00, - + .39692465E-01, .65121531E-01, .75038075E-01, .16955730E+00, - + .20299960E+00, .22643100E+00, .29997090E+00, .36900690E+00, - + .43515230E+00, .49930950E+00, .56202530E+00, - + .37440032E-01, .60299657E-01, .69263399E-01, .15574050E+00, - + .18662790E+00, .20784940E+00, .27459440E+00, .33741870E+00, - + .39773350E+00, .45632530E+00, .51366970E+00, - + .35466060E-01, .56172553E-01, .64341649E-01, .14402330E+00, - + .17278250E+00, .19216460E+00, .25325630E+00, .31091170E+00, - + .36637180E+00, .42032620E+00, .47319000E+00, - + .33719864E-01, .52601762E-01, .60100291E-01, .13397400E+00, - + .16093890E+00, .17877080E+00, .23509850E+00, .28839580E+00, - + .33975930E+00, .38979680E+00, .43887260E+00 / - DATA ((SIG(IX,IQ),IQ=1,11),IX=25,30)/ - + .32162480E-01, .49482886E-01, .56409642E-01, .12527020E+00, - + .15066100E+00, .16717900E+00, .21946070E+00, .26904790E+00, - + .31691800E+00, .36361120E+00, .40945090E+00, - + .30763483E-01, .46735819E-01, .53170551E-01, .11766680E+00, - + .14173100E+00, .15711330E+00, .20590070E+00, .25228480E+00, - + .29713750E+00, .34093990E+00, .38397940E+00, - + .29498696E-01, .44298116E-01, .50305955E-01, .11096760E+00, - + .13383810E+00, .14824130E+00, .19400660E+00, .23761120E+00, - + .27984020E+00, .32112550E+00, .36172580E+00, - + .28348716E-01, .42120434E-01, .47755107E-01, .10502540E+00, - + .12683710E+00, .14038510E+00, .18350680E+00, .22467540E+00, - + .26460150E+00, .30367480E+00, .34212800E+00, - + .24619857E-01, .35323314E-01, .39848242E-01, .86743489E-01, - + .10540140E+00, .11638150E+00, .15156290E+00, .18540100E+00, - + .21838070E+00, .25076720E+00, .28271890E+00, - + .21853192E-01, .30553076E-01, .34355298E-01, .74188948E-01, - + .90686098E-01, .99975824E-01, .12990140E+00, .15885240E+00, - + .18717560E+00, .21506010E+00, .24261850E+00 / - DATA ((SIG(IX,IQ),IQ=1,11),IX=31,36)/ - + .19703059E-01, .27013483E-01, .30313641E-01, .65037966E-01, - + .79956084E-01, .88050827E-01, .11424140E+00, .13969640E+00, - + .16467170E+00, .18930720E+00, .21368750E+00, - + .17974563E-01, .24277063E-01, .27211100E-01, .58061510E-01, - + .71771979E-01, .78976542E-01, .10237060E+00, .12519180E+00, - + .14763340E+00, .16980200E+00, .19176230E+00, - + .16549228E-01, .22094935E-01, .24751903E-01, .52563004E-01, - + .65307312E-01, .71822792E-01, .93040287E-01, .11379900E+00, - + .13424850E+00, .15447220E+00, .17452180E+00, - + .15350753E-01, .20312915E-01, .22754140E-01, .48113000E-01, - + .60069747E-01, .66033401E-01, .85501239E-01, .10459460E+00, - + .12343080E+00, .14207600E+00, .16057180E+00, - + .14327709E-01, .18830646E-01, .21100238E-01, .44433333E-01, - + .55730633E-01, .61242688E-01, .79272471E-01, .96990965E-01, - + .11449140E+00, .13182720E+00, .14903200E+00, - + .13444182E-01, .17580202E-01, .19711042E-01, .41341946E-01, - + .52083630E-01, .57217542E-01, .74040212E-01, .90601578E-01, - + .10697600E+00, .12320640E+00, .13932010E+00 / - DATA ((SIG(IX,IQ),IQ=1,11),IX=37,42)/ - + .12674276E-01, .16513998E-01, .18531460E-01, .38707916E-01, - + .48974223E-01, .53786840E-01, .69582365E-01, .85157104E-01, - + .10057000E+00, .11585610E+00, .13103860E+00, - + .11998878E-01, .15597810E-01, .17522020E-01, .36437824E-01, - + .46296742E-01, .50833378E-01, .65744840E-01, .80468833E-01, - + .95051795E-01, .10952210E+00, .12389890E+00, - + .11403565E-01, .14806393E-01, .16653737E-01, .34466218E-01, - + .43969791E-01, .48267648E-01, .62412605E-01, .76397650E-01, - + .90258978E-01, .10401960E+00, .11769590E+00, - + .10877254E-01, .14120740E-01, .15904872E-01, .32743327E-01, - + .41942414E-01, .46030410E-01, .59503313E-01, .72841354E-01, - + .86071022E-01, .99210240E-01, .11227220E+00, - + .10411290E-01, .13526291E-01, .15258805E-01, .31226756E-01, - + .40159699E-01, .44064362E-01, .56948848E-01, .69719382E-01, - + .82394473E-01, .94988078E-01, .10751200E+00, - + .99988347E-02, .13011689E-01, .14702618E-01, .29890353E-01, - + .38591381E-01, .42334680E-01, .54701053E-01, .66971727E-01, - + .79158202E-01, .91270424E-01, .10331710E+00 / - DATA ((SIG(IX,IQ),IQ=1,11),IX=43,48)/ - + .96344016E-02, .12567966E-01, .14226112E-01, .28708473E-01, - + .37210722E-01, .40811460E-01, .52720375E-01, .64549908E-01, - + .76305106E-01, .87992281E-01, .99616937E-01, - + .93135582E-02, .12187938E-01, .13821121E-01, .27662413E-01, - + .35996199E-01, .39469995E-01, .50973836E-01, .62413912E-01, - + .73788591E-01, .85101403E-01, .96358329E-01, - + .90326807E-02, .11865777E-01, .13481013E-01, .26736151E-01, - + .34920789E-01, .38284242E-01, .49433734E-01, .60531553E-01, - + .71570978E-01, .82552649E-01, .93479961E-01, - + .87887971E-02, .11596706E-01, .13200351E-01, .25917782E-01, - + .33981018E-01, .37246559E-01, .48082780E-01, .58878690E-01, - + .69622464E-01, .80311924E-01, .90947837E-01, - + .85794227E-02, .11376764E-01, .12974606E-01, .25197493E-01, - + .33162601E-01, .36341149E-01, .46901077E-01, .57431698E-01, - + .67915753E-01, .78349166E-01, .88734441E-01, - + .84025022E-02, .11202639E-01, .12799975E-01, .24563916E-01, - + .32448944E-01, .35551958E-01, .45871548E-01, .56170788E-01, - + .66427633E-01, .76635823E-01, .86796649E-01 / - DATA ((SIG(IX,IQ),IQ=1,11),IX=49,54)/ - + .82563059E-02, .11071531E-01, .12673226E-01, .24012102E-01, - + .31833299E-01, .34870546E-01, .44981480E-01, .55079792E-01, - + .65138817E-01, .75150378E-01, .85115068E-01, - + .81393691E-02, .10981051E-01, .12591578E-01, .23533953E-01, - + .31301934E-01, .34283873E-01, .44217642E-01, .54143660E-01, - + .64031810E-01, .73872268E-01, .83663598E-01, - + .80504613E-02, .10929144E-01, .12552610E-01, .23124803E-01, - + .30857082E-01, .33790868E-01, .43572366E-01, .53350791E-01, - + .63092016E-01, .72784781E-01, .82427159E-01, - + .79885283E-02, .10914015E-01, .12554196E-01, .22779644E-01, - + .30482143E-01, .33377100E-01, .43033730E-01, .52688722E-01, - + .62305346E-01, .71872152E-01, .81389144E-01, - + .79526706E-02, .10934099E-01, .12594441E-01, .22494080E-01, - + .30177545E-01, .33040911E-01, .42595427E-01, .52147999E-01, - + .61659563E-01, .71117401E-01, .80517791E-01, - + .79421243E-02, .10988006E-01, .12671645E-01, .22264561E-01, - + .29937573E-01, .32775901E-01, .42249337E-01, .51718794E-01, - + .61143313E-01, .70511110E-01, .79823114E-01 / - DATA ((SIG(IX,IQ),IQ=1,11),IX=55,60)/ - + .79562264E-02, .11074492E-01, .12784246E-01, .22087734E-01, - + .29755836E-01, .32575890E-01, .41988421E-01, .51392362E-01, - + .60745593E-01, .70036925E-01, .79268448E-01, - + .79944124E-02, .11192435E-01, .12930818E-01, .21960316E-01, - + .29623669E-01, .32432761E-01, .41804638E-01, .51159516E-01, - + .60455564E-01, .69681950E-01, .78837253E-01, - + .80561917E-02, .11340820E-01, .13110019E-01, .21879360E-01, - + .29542189E-01, .32345828E-01, .41693553E-01, .51013283E-01, - + .60264260E-01, .69437623E-01, .78533784E-01, - + .81411460E-02, .11518705E-01, .13320576E-01, .21843312E-01, - + .29502705E-01, .32307163E-01, .41647520E-01, .50944839E-01, - + .60161151E-01, .69290906E-01, .78339122E-01, - + .82489066E-02, .11725234E-01, .13561288E-01, .21849515E-01, - + .29501507E-01, .32312520E-01, .41660730E-01, .50946612E-01, - + .60136516E-01, .69228791E-01, .78231640E-01, - + .83791632E-02, .11959608E-01, .13830981E-01, .21894226E-01, - + .29535467E-01, .32358348E-01, .41727737E-01, .51010951E-01, - + .60180463E-01, .69239631E-01, .78200467E-01 / - DATA ((SIG(IX,IQ),IQ=1,11),IX=61,66)/ - + .85316403E-02, .12221093E-01, .14128524E-01, .21978032E-01, - + .29595131E-01, .32436047E-01, .41840464E-01, .51128577E-01, - + .60281888E-01, .69310732E-01, .78234360E-01, - + .87061003E-02, .12509022E-01, .14452809E-01, .22096861E-01, - + .29680053E-01, .32543853E-01, .41993879E-01, .51291585E-01, - + .60429726E-01, .69425702E-01, .78300618E-01, - + .89023467E-02, .12822819E-01, .14802766E-01, .22250477E-01, - + .29782128E-01, .32674585E-01, .42180751E-01, .51490601E-01, - + .60612094E-01, .69573112E-01, .78404374E-01, - + .90359822E-02, .13031869E-01, .15034065E-01, .22362122E-01, - + .29850839E-01, .32764409E-01, .42310800E-01, .51628429E-01, - + .60736999E-01, .69670126E-01, .78456439E-01, - + .91780219E-02, .13250767E-01, .15274761E-01, .22488188E-01, - + .29924517E-01, .32860663E-01, .42449314E-01, .51773544E-01, - + .60866475E-01, .69771327E-01, .78528494E-01, - + .93284314E-02, .13479475E-01, .15524645E-01, .22627080E-01, - + .29999176E-01, .32960486E-01, .42594228E-01, .51923074E-01, - + .60995921E-01, .69865242E-01, .78576982E-01 / - DATA ((SIG(IX,IQ),IQ=1,11),IX=67,72)/ - + .94871838E-02, .13718016E-01, .15783543E-01, .22776177E-01, - + .30071471E-01, .33060603E-01, .42742141E-01, .52072845E-01, - + .61120227E-01, .69947325E-01, .78606389E-01, - + .96542509E-02, .13966491E-01, .16051345E-01, .22940211E-01, - + .30139847E-01, .33159722E-01, .42891223E-01, .52219562E-01, - + .61234307E-01, .70010558E-01, .78607284E-01, - + .98296180E-02, .14225140E-01, .16328029E-01, .23117078E-01, - + .30202052E-01, .33255868E-01, .43038785E-01, .52358828E-01, - + .61331645E-01, .70045605E-01, .78564249E-01, - + .10013272E-01, .14494411E-01, .16613735E-01, .23306198E-01, - + .30257005E-01, .33347387E-01, .43181617E-01, .52485328E-01, - + .61404757E-01, .70044920E-01, .78481585E-01, - + .10205200E-01, .14774987E-01, .16908780E-01, .23512876E-01, - + .30300457E-01, .33431724E-01, .43317288E-01, .52593846E-01, - + .61444521E-01, .69992140E-01, .78318946E-01, - + .10405328E-01, .15067826E-01, .17213726E-01, .23740612E-01, - + .30328626E-01, .33505201E-01, .43440655E-01, .52675914E-01, - + .61438680E-01, .69873333E-01, .78072920E-01 / - DATA ((SIG(IX,IQ),IQ=1,11),IX=73,78)/ - + .10613733E-01, .15375177E-01, .17530238E-01, .23991156E-01, - + .30339517E-01, .33566315E-01, .43547787E-01, .52722398E-01, - + .61372019E-01, .69667287E-01, .77717520E-01, - + .10830436E-01, .15700419E-01, .17860981E-01, .24269460E-01, - + .30324731E-01, .33610221E-01, .43633968E-01, .52721620E-01, - + .61223745E-01, .69341116E-01, .77194721E-01, - + .11055518E-01, .16048975E-01, .18210417E-01, .24589844E-01, - + .30280162E-01, .33635441E-01, .43694302E-01, .52657146E-01, - + .60963918E-01, .68853512E-01, .76464675E-01, - + .11233788E-01, .16404711E-01, .18568806E-01, .24966985E-01, - + .30198859E-01, .33643205E-01, .43727428E-01, .52507479E-01, - + .60546633E-01, .68133444E-01, .75430356E-01, - + .11195521E-01, .16786704E-01, .18971112E-01, .25527190E-01, - + .30142711E-01, .33703748E-01, .43775905E-01, .52260574E-01, - + .59902553E-01, .67055628E-01, .73906749E-01, - + .11157162E-01, .17455921E-01, .19645428E-01, .26781252E-01, - + .30308895E-01, .34030765E-01, .43964390E-01, .51890522E-01, - + .58854111E-01, .65300442E-01, .71444392E-01 / - DATA ((QNS(IX,IQ),IQ=1,11),IX=1,6)/ - + .94240336E-02, .18417537E-01, .22739289E-01, .37607048E-01, - + .44243883E-01, .50122499E-01, .70369989E-01, .91482073E-01, - + .11324320E+00, .13550980E+00, .15818140E+00, - + .59973067E-02, .11720352E-01, .14432831E-01, .24163216E-01, - + .28503288E-01, .32346703E-01, .45423366E-01, .58843695E-01, - + .72496824E-01, .86314097E-01, .10025040E+00, - + .49393503E-02, .97090816E-02, .11965460E-01, .20150421E-01, - + .23982644E-01, .27228395E-01, .38227096E-01, .49456306E-01, - + .60832184E-01, .72304659E-01, .83841935E-01, - + .43745874E-02, .86307731E-02, .10642637E-01, .17979529E-01, - + .21555452E-01, .24471853E-01, .34330886E-01, .44365548E-01, - + .54505978E-01, .64711556E-01, .74957199E-01, - + .40092943E-02, .79269614E-02, .97778682E-02, .16550563E-01, - + .19954743E-01, .22650827E-01, .31749010E-01, .40988449E-01, - + .50308473E-01, .59674632E-01, .69066122E-01, - + .37478260E-02, .74182409E-02, .91516310E-02, .15509205E-01, - + .18786343E-01, .21319561E-01, .29856237E-01, .38510069E-01, - + .47227092E-01, .55977229E-01, .64742774E-01 / - DATA ((QNS(IX,IQ),IQ=1,11),IX=7,12)/ - + .35484738E-02, .70266821E-02, .86687198E-02, .14701542E-01, - + .17877039E-01, .20282917E-01, .28380385E-01, .36576372E-01, - + .44822372E-01, .53091832E-01, .61369438E-01, - + .33897611E-02, .67121517E-02, .82801273E-02, .14049334E-01, - + .17141886E-01, .19443339E-01, .27181588E-01, .35004079E-01, - + .42866483E-01, .50744981E-01, .58626097E-01, - + .32593519E-02, .64515634E-02, .79576503E-02, .13505563E-01, - + .16532049E-01, .18745350E-01, .26180854E-01, .33689238E-01, - + .41229557E-01, .48780218E-01, .56329239E-01, - + .31495895E-02, .62305392E-02, .76837270E-02, .13042108E-01, - + .16006669E-01, .18144501E-01, .25320824E-01, .32560334E-01, - + .39825078E-01, .47095336E-01, .54360423E-01, - + .27516156E-02, .54136738E-02, .66676224E-02, .11308790E-01, - + .14027087E-01, .15878243E-01, .22070521E-01, .28290793E-01, - + .34512676E-01, .40723700E-01, .46917904E-01, - + .25373192E-02, .49619353E-02, .61029163E-02, .10335214E-01, - + .12905763E-01, .14591646E-01, .20218667E-01, .25856126E-01, - + .31483859E-01, .37093196E-01, .42680621E-01 / - DATA ((QNS(IX,IQ),IQ=1,11),IX=13,18)/ - + .23864319E-02, .46382886E-02, .56970883E-02, .96306726E-02, - + .12086046E-01, .13650976E-01, .18864932E-01, .24077490E-01, - + .29272981E-01, .34445409E-01, .39592940E-01, - + .22713402E-02, .43883673E-02, .53830515E-02, .90831602E-02, - + .11444672E-01, .12914657E-01, .17805120E-01, .22685859E-01, - + .27544534E-01, .32377109E-01, .37182964E-01, - + .21788219E-02, .41857213E-02, .51280665E-02, .86372243E-02, - + .10918611E-01, .12310890E-01, .16936969E-01, .21547042E-01, - + .26131453E-01, .30687688E-01, .35216041E-01, - + .21016418E-02, .40156827E-02, .49139261E-02, .82624108E-02, - + .10473821E-01, .11800430E-01, .16203472E-01, .20585742E-01, - + .24939708E-01, .29264078E-01, .33559863E-01, - + .20354639E-02, .38693461E-02, .47295480E-02, .79390667E-02, - + .10088349E-01, .11358257E-01, .15568984E-01, .19755155E-01, - + .23911040E-01, .28036337E-01, .32132633E-01, - + .19775096E-02, .37409402E-02, .45677349E-02, .76557137E-02, - + .97481254E-02, .10968228E-01, .15010223E-01, .19024638E-01, - + .23007255E-01, .26958590E-01, .30880703E-01 / - DATA ((QNS(IX,IQ),IQ=1,11),IX=19,24)/ - + .19259059E-02, .36265303E-02, .44235704E-02, .74031064E-02, - + .94441744E-02, .10619841E-01, .14511577E-01, .18373329E-01, - + .22202175E-01, .25999289E-01, .29767124E-01, - + .18793355E-02, .35233255E-02, .42935591E-02, .71755024E-02, - + .91693141E-02, .10304910E-01, .14061378E-01, .17785965E-01, - + .21476803E-01, .25135649E-01, .28765282E-01, - + .18368444E-02, .34292820E-02, .41751377E-02, .69686845E-02, - + .89182211E-02, .10017415E-01, .13651083E-01, .17251292E-01, - + .20817133E-01, .24350848E-01, .27855478E-01, - + .17977183E-02, .33428592E-02, .40663714E-02, .67788879E-02, - + .86870156E-02, .97528668E-02, .13274182E-01, .16760744E-01, - + .20212485E-01, .23632064E-01, .27022738E-01, - + .17614159E-02, .32628726E-02, .39657708E-02, .66033578E-02, - + .84729679E-02, .95080482E-02, .12925822E-01, .16307818E-01, - + .19654684E-01, .22969447E-01, .26255554E-01, - + .17275111E-02, .31883945E-02, .38721631E-02, .64408416E-02, - + .82737096E-02, .92802355E-02, .12602052E-01, .15887277E-01, - + .19137194E-01, .22355136E-01, .25544692E-01 / - DATA ((QNS(IX,IQ),IQ=1,11),IX=25,30)/ - + .16956702E-02, .31186820E-02, .37846135E-02, .62889042E-02, - + .80871545E-02, .90670856E-02, .12299596E-01, .15494860E-01, - + .18654723E-01, .21782780E-01, .24882762E-01, - + .16656237E-02, .30531355E-02, .37023639E-02, .61464268E-02, - + .79117296E-02, .88667758E-02, .12015808E-01, .15127074E-01, - + .18202923E-01, .21247189E-01, .24263706E-01, - + .16371526E-02, .29912621E-02, .36247906E-02, .60121906E-02, - + .77458029E-02, .86775497E-02, .11748403E-01, .14781022E-01, - + .17778244E-01, .20744115E-01, .23682568E-01, - + .16100761E-02, .29326540E-02, .35513761E-02, .58856634E-02, - + .75892429E-02, .84989592E-02, .11496051E-01, .14454621E-01, - + .17377900E-01, .20270115E-01, .23135249E-01, - + .15130475E-02, .27247653E-02, .32915641E-02, .54398151E-02, - + .70358422E-02, .78683086E-02, .10607525E-01, .13308002E-01, - + .15974075E-01, .18610418E-01, .21221181E-01, - + .14297062E-02, .25492418E-02, .30730397E-02, .50678886E-02, - + .65713013E-02, .73400214E-02, .98670078E-02, .12355796E-01, - + .14811448E-01, .17238868E-01, .19642226E-01 / - DATA ((QNS(IX,IQ),IQ=1,11),IX=31,36)/ - + .13563674E-02, .23973631E-02, .28846720E-02, .47500571E-02, - + .61722188E-02, .68868920E-02, .92345588E-02, .11545152E-01, - + .13824115E-01, .16076397E-01, .18306112E-01, - + .12908148E-02, .22637607E-02, .27195795E-02, .44729449E-02, - + .58233179E-02, .64914445E-02, .86850319E-02, .10842929E-01, - + .12970786E-01, .15073508E-01, .17155087E-01, - + .12316250E-02, .21449025E-02, .25732184E-02, .42289156E-02, - + .55154981E-02, .61428514E-02, .82019744E-02, .10227119E-01, - + .12223910E-01, .14197091E-01, .16150456E-01, - + .11778341E-02, .20383450E-02, .24424321E-02, .40115491E-02, - + .52416227E-02, .58329245E-02, .77735735E-02, .96821617E-02, - + .11564116E-01, .13423979E-01, .15265364E-01, - + .11287644E-02, .19423265E-02, .23249392E-02, .38168030E-02, - + .49954145E-02, .55547967E-02, .73906495E-02, .91963019E-02, - + .10976971E-01, .12736951E-01, .14479612E-01, - + .10839220E-02, .18555359E-02, .22190348E-02, .36413525E-02, - + .47741015E-02, .53048851E-02, .70471931E-02, .87612784E-02, - + .10452021E-01, .12123445E-01, .13778742E-01 / - DATA ((QNS(IX,IQ),IQ=1,11),IX=37,42)/ - + .10429369E-02, .17769686E-02, .21234076E-02, .34828938E-02, - + .45744213E-02, .50795381E-02, .67380839E-02, .83703874E-02, - + .99809458E-02, .11573471E-01, .13150859E-01, - + .10055272E-02, .17058378E-02, .20370285E-02, .33393521E-02, - + .43941182E-02, .48760460E-02, .64592627E-02, .80182981E-02, - + .95571596E-02, .11079242E-01, .12587328E-01, - + .97147172E-03, .16415142E-02, .19590692E-02, .32090063E-02, - + .42302958E-02, .46914709E-02, .62072063E-02, .77006207E-02, - + .91752894E-02, .10634297E-01, .12080133E-01, - + .94059587E-03, .15834844E-02, .18888538E-02, .30905926E-02, - + .40823021E-02, .45246948E-02, .59795799E-02, .74140122E-02, - + .88310866E-02, .10233535E-01, .11623533E-01, - + .91275759E-03, .15313239E-02, .18258197E-02, .29835096E-02, - + .39487118E-02, .43740915E-02, .57740975E-02, .71555194E-02, - + .85209096E-02, .98726815E-02, .11212891E-01, - + .88784238E-03, .14846778E-02, .17694950E-02, .28861878E-02, - + .38281640E-02, .42381478E-02, .55887257E-02, .69225645E-02, - + .82416162E-02, .95479656E-02, .10843531E-01 / - DATA ((QNS(IX,IQ),IQ=1,11),IX=43,48)/ - + .86575508E-03, .14432413E-02, .17194751E-02, .27981452E-02, - + .37194416E-02, .41156444E-02, .54219291E-02, .67131273E-02, - + .79906583E-02, .92562689E-02, .10511580E-01, - + .84641628E-03, .14067559E-02, .16754109E-02, .27188875E-02, - + .36215344E-02, .40053953E-02, .52720965E-02, .65252217E-02, - + .77656736E-02, .89949016E-02, .10214346E-01, - + .82975865E-03, .13749937E-02, .16369977E-02, .26474192E-02, - + .35338006E-02, .39066677E-02, .51381350E-02, .63573606E-02, - + .75647663E-02, .87615633E-02, .99491617E-02, - + .81572641E-03, .13477562E-02, .16039666E-02, .25835091E-02, - + .34569120E-02, .38199599E-02, .50199148E-02, .62088193E-02, - + .73866746E-02, .85544502E-02, .97133927E-02, - + .80427068E-03, .13248667E-02, .15760761E-02, .25267287E-02, - + .33901930E-02, .37442986E-02, .49158903E-02, .60777371E-02, - + .72292946E-02, .83712526E-02, .95047299E-02, - + .79534907E-03, .13061668E-02, .15531119E-02, .24765951E-02, - + .33318023E-02, .36780294E-02, .48246486E-02, .59626573E-02, - + .70909988E-02, .82100471E-02, .93204780E-02 / - DATA ((QNS(IX,IQ),IQ=1,11),IX=49,54)/ - + .78892603E-03, .12915136E-02, .15348764E-02, .24326355E-02, - + .32813039E-02, .36206250E-02, .47453931E-02, .58625308E-02, - + .69705080E-02, .80695096E-02, .91602625E-02, - + .78496989E-03, .12807774E-02, .15211905E-02, .23947326E-02, - + .32383364E-02, .35716321E-02, .46774149E-02, .57764109E-02, - + .68666204E-02, .79480289E-02, .90212673E-02, - + .78345265E-03, .12738386E-02, .15118875E-02, .23623395E-02, - + .32021496E-02, .35303223E-02, .46199183E-02, .57033417E-02, - + .67781927E-02, .78442944E-02, .89022024E-02, - + .78435033E-03, .12705869E-02, .15068129E-02, .23352338E-02, - + .31724246E-02, .34963095E-02, .45723030E-02, .56425128E-02, - + .67042061E-02, .77571347E-02, .88020414E-02, - + .78764104E-03, .12709198E-02, .15058212E-02, .23131308E-02, - + .31488554E-02, .34692136E-02, .45339740E-02, .55931257E-02, - + .66436469E-02, .76852157E-02, .87185781E-02, - + .79330592E-03, .12747411E-02, .15087749E-02, .22959628E-02, - + .31306976E-02, .34483334E-02, .45042206E-02, .55543538E-02, - + .65955287E-02, .76273838E-02, .86505124E-02 / - DATA ((QNS(IX,IQ),IQ=1,11),IX=55,60)/ - + .80132775E-03, .12819601E-02, .15155423E-02, .22832237E-02, - + .31179774E-02, .34335442E-02, .44825966E-02, .55255168E-02, - + .65589719E-02, .75826435E-02, .85972035E-02, - + .81169140E-03, .12924910E-02, .15259976E-02, .22749053E-02, - + .31100719E-02, .34242724E-02, .44685043E-02, .55058813E-02, - + .65330602E-02, .75498386E-02, .85570021E-02, - + .82438299E-03, .13062516E-02, .15400186E-02, .22705384E-02, - + .31066088E-02, .34200996E-02, .44613751E-02, .54947105E-02, - + .65168762E-02, .75278734E-02, .85286936E-02, - + .83939038E-03, .13231644E-02, .15574869E-02, .22702448E-02, - + .31072609E-02, .34206652E-02, .44607022E-02, .54913131E-02, - + .65095178E-02, .75156037E-02, .85107759E-02, - + .85670268E-03, .13431550E-02, .15782870E-02, .22734660E-02, - + .31112402E-02, .34252387E-02, .44657774E-02, .54948679E-02, - + .65100011E-02, .75118644E-02, .85019497E-02, - + .87631017E-03, .13661537E-02, .16023031E-02, .22801904E-02, - + .31182719E-02, .34335172E-02, .44761305E-02, .55046869E-02, - + .65173940E-02, .75154915E-02, .85008712E-02 / - DATA ((QNS(IX,IQ),IQ=1,11),IX=61,66)/ - + .89820346E-03, .13920940E-02, .16294246E-02, .22902105E-02, - + .31279377E-02, .34450574E-02, .44911648E-02, .55199591E-02, - + .65306341E-02, .75250724E-02, .85053705E-02, - + .92237460E-03, .14209161E-02, .16595413E-02, .23032357E-02, - + .31400539E-02, .34595616E-02, .45103151E-02, .55398559E-02, - + .65486338E-02, .75394385E-02, .85151950E-02, - + .94881753E-03, .14525695E-02, .16925491E-02, .23191539E-02, - + .31535069E-02, .34761061E-02, .45327861E-02, .55634025E-02, - + .65701143E-02, .75568613E-02, .85275853E-02, - + .96649455E-03, .14737727E-02, .17146018E-02, .23304247E-02, - + .31622106E-02, .34871437E-02, .45481748E-02, .55795112E-02, - + .65846588E-02, .75682360E-02, .85340347E-02, - + .98505535E-03, .14960614E-02, .17377236E-02, .23429242E-02, - + .31715189E-02, .34989410E-02, .45645195E-02, .55964231E-02, - + .65996749E-02, .75797983E-02, .85411314E-02, - + .10044985E-02, .15194350E-02, .17618948E-02, .23562198E-02, - + .31807874E-02, .35109739E-02, .45814523E-02, .56137498E-02, - + .66146837E-02, .75909602E-02, .85482234E-02 / - DATA ((QNS(IX,IQ),IQ=1,11),IX=67,72)/ - + .10248232E-02, .15438999E-02, .17871021E-02, .23705235E-02, - + .31895766E-02, .35229130E-02, .45987237E-02, .56311488E-02, - + .66291569E-02, .76006553E-02, .85519645E-02, - + .10460286E-02, .15694713E-02, .18133381E-02, .23857092E-02, - + .31980989E-02, .35348898E-02, .46162345E-02, .56483033E-02, - + .66425726E-02, .76081753E-02, .85515585E-02, - + .10681147E-02, .15961806E-02, .18406077E-02, .24019419E-02, - + .32063741E-02, .35468566E-02, .46337540E-02, .56647821E-02, - + .66543249E-02, .76132179E-02, .85494705E-02, - + .10910823E-02, .16240836E-02, .18689354E-02, .24190135E-02, - + .32130878E-02, .35578534E-02, .46507269E-02, .56799552E-02, - + .66635003E-02, .76139537E-02, .85399570E-02, - + .11149311E-02, .16532638E-02, .18983661E-02, .24373443E-02, - + .32194003E-02, .35687012E-02, .46672500E-02, .56934077E-02, - + .66692806E-02, .76096137E-02, .85245045E-02, - + .11396549E-02, .16838355E-02, .19289744E-02, .24572820E-02, - + .32237917E-02, .35782943E-02, .46826154E-02, .57042143E-02, - + .66702957E-02, .75979815E-02, .84982533E-02 / - DATA ((QNS(IX,IQ),IQ=1,11),IX=73,78)/ - + .11652628E-02, .17160538E-02, .19609558E-02, .24788762E-02, - + .32264341E-02, .35867651E-02, .46965568E-02, .57114917E-02, - + .66650049E-02, .75771199E-02, .84602814E-02, - + .11917589E-02, .17503077E-02, .19946259E-02, .25023462E-02, - + .32268544E-02, .35939009E-02, .47087069E-02, .57140728E-02, - + .66512520E-02, .75437622E-02, .84057571E-02, - + .12191528E-02, .17872198E-02, .20305095E-02, .25288546E-02, - + .32246693E-02, .35996984E-02, .47187502E-02, .57103517E-02, - + .66258898E-02, .74931574E-02, .83282115E-02, - + .12413139E-02, .18250246E-02, .20675659E-02, .25593296E-02, - + .32194380E-02, .36046421E-02, .47269203E-02, .56983405E-02, - + .65842373E-02, .74179485E-02, .82179485E-02, - + .12393846E-02, .18659254E-02, .21097811E-02, .26058301E-02, - + .32189018E-02, .36173693E-02, .47386773E-02, .56773759E-02, - + .65192748E-02, .73050433E-02, .80559906E-02, - + .12374151E-02, .19389354E-02, .21825545E-02, .27193346E-02, - + .32465039E-02, .36632048E-02, .47694566E-02, .56461799E-02, - + .64129378E-02, .71206577E-02, .77938964E-02 / - DATA ((GL(IX,IQ),IQ=1,11),IX=1,6)/ - + .48529990E+02, .12870040E+03, .15706260E+03, .38370580E+03, - + .61519150E+03, .70666880E+03, .10382790E+04, .14040060E+04, - + .17957580E+04, .22078860E+04, .26363170E+04, - + .15890960E+02, .33628660E+02, .39931390E+02, .83964760E+02, - + .11694850E+03, .13170540E+03, .18258190E+03, .23518540E+03, - + .28866640E+03, .34257400E+03, .39665660E+03, - + .94310980E+01, .18175180E+02, .21277330E+02, .41681420E+02, - + .55201450E+02, .61626310E+02, .83381870E+02, .10540340E+03, - + .12745100E+03, .14942310E+03, .17127760E+03, - + .66802850E+01, .12141380E+02, .14075520E+02, .26326920E+02, - + .33816230E+02, .37544280E+02, .50036320E+02, .62532720E+02, - + .74944210E+02, .87244550E+02, .99430920E+02, - + .51591140E+01, .89841540E+01, .10336430E+02, .18682250E+02, - + .23467670E+02, .25951700E+02, .34213800E+02, .42412950E+02, - + .50514890E+02, .58517450E+02, .66428190E+02, - + .41946060E+01, .70619560E+01, .80738110E+01, .14199900E+02, - + .17532030E+02, .19326750E+02, .25263170E+02, .31120420E+02, - + .36887950E+02, .42572410E+02, .48184150E+02 / - DATA ((GL(IX,IQ),IQ=1,11),IX=7,12)/ - + .35288730E+01, .57772250E+01, .65692210E+01, .11294930E+02, - + .13750450E+02, .15118280E+02, .19623350E+02, .24048990E+02, - + .28395830E+02, .32673770E+02, .36893470E+02, - + .30419200E+01, .48623110E+01, .55024400E+01, .92788580E+01, - + .11160360E+02, .12243700E+02, .15798790E+02, .19278800E+02, - + .22690250E+02, .26044140E+02, .29350600E+02, - + .26703820E+01, .41800760E+01, .47100670E+01, .78087810E+01, - + .92948980E+01, .10177610E+02, .13065580E+02, .15884490E+02, - + .18643830E+02, .21354680E+02, .24026370E+02, - + .23776530E+01, .36532620E+01, .41003660E+01, .66962170E+01, - + .78973980E+01, .86327130E+01, .11032260E+02, .13368940E+02, - + .15653690E+02, .17897230E+02, .20108140E+02, - + .14695900E+01, .20912560E+01, .23075640E+01, .35403820E+01, - + .40241170E+01, .43681370E+01, .54807730E+01, .65564470E+01, - + .76055440E+01, .86354300E+01, .96513940E+01, - + .10802530E+01, .14641260E+01, .15970510E+01, .23548000E+01, - + .26165310E+01, .28277200E+01, .35080070E+01, .41642440E+01, - + .48044590E+01, .54336700E+01, .60549590E+01 / - DATA ((GL(IX,IQ),IQ=1,11),IX=13,18)/ - + .84787960E+00, .11063140E+01, .11955030E+01, .17083810E+01, - + .18655730E+01, .20093670E+01, .24715870E+01, .29173410E+01, - + .33528030E+01, .37816090E+01, .42062570E+01, - + .69367090E+00, .87731270E+00, .94055530E+00, .13095010E+01, - + .14106630E+01, .15151670E+01, .18508740E+01, .21749670E+01, - + .24922060E+01, .28052850E+01, .31163180E+01, - + .58397920E+00, .71931010E+00, .76587130E+00, .10428030E+01, - + .11106750E+01, .11901670E+01, .14455980E+01, .16926470E+01, - + .19350150E+01, .21746200E+01, .24125360E+01, - + .50203150E+00, .60434630E+00, .63955520E+00, .85395630E+00, - + .90078840E+00, .96332250E+00, .11644380E+01, .13594100E+01, - + .15511590E+01, .17411420E+01, .19302900E+01, - + .43853270E+00, .51731970E+00, .54446970E+00, .71438090E+00, - + .74729330E+00, .79777910E+00, .96035330E+00, .11183840E+01, - + .12741880E+01, .14288210E+01, .15827430E+01, - + .38791870E+00, .44939010E+00, .47063000E+00, .60780210E+00, - + .63118570E+00, .67277980E+00, .80695640E+00, .93777170E+00, - + .10670820E+01, .11957530E+01, .13245020E+01 / - DATA ((GL(IX,IQ),IQ=1,11),IX=19,24)/ - + .34665570E+00, .39505460E+00, .41184650E+00, .52420930E+00, - + .54084130E+00, .57569740E+00, .68834800E+00, .79851220E+00, - + .90768090E+00, .10164890E+01, .11253730E+01, - + .31239220E+00, .35071640E+00, .36409070E+00, .45726440E+00, - + .46905640E+00, .49866390E+00, .59456930E+00, .68866500E+00, - + .78213980E+00, .87541510E+00, .96853840E+00, - + .28350310E+00, .31393070E+00, .32463340E+00, .40263530E+00, - + .41088930E+00, .43633690E+00, .51896510E+00, .60030390E+00, - + .68131460E+00, .76235900E+00, .84367270E+00, - + .25882940E+00, .28298000E+00, .29156430E+00, .35741600E+00, - + .36299110E+00, .38509200E+00, .45702380E+00, .52806320E+00, - + .59898170E+00, .67003450E+00, .74135010E+00, - + .23752240E+00, .25662460E+00, .26350900E+00, .31945240E+00, - + .32311680E+00, .34246850E+00, .40562650E+00, .46821550E+00, - + .53084740E+00, .59371670E+00, .65700290E+00, - + .21894650E+00, .23394800E+00, .23945450E+00, .28730270E+00, - + .28941910E+00, .30650290E+00, .36240090E+00, .41797570E+00, - + .47370080E+00, .52958380E+00, .58507090E+00 / - DATA ((GL(IX,IQ),IQ=1,11),IX=25,30)/ - + .20261640E+00, .21425900E+00, .21863880E+00, .25972380E+00, - + .26072540E+00, .27590580E+00, .32571060E+00, .37539280E+00, - + .42531580E+00, .47533090E+00, .52403220E+00, - + .18815480E+00, .19702690E+00, .20047890E+00, .23591050E+00, - + .23603700E+00, .24960760E+00, .29425620E+00, .33894140E+00, - + .38394360E+00, .42915350E+00, .47359070E+00, - + .17526470E+00, .18183780E+00, .18452110E+00, .21516090E+00, - + .21466740E+00, .22685990E+00, .26709920E+00, .30750590E+00, - + .34829710E+00, .38960260E+00, .43225460E+00, - + .16370820E+00, .16836440E+00, .17040750E+00, .19698360E+00, - + .19598750E+00, .20700130E+00, .24345240E+00, .28017040E+00, - + .31730650E+00, .35494590E+00, .39383850E+00, - + .12746030E+00, .12707300E+00, .12743460E+00, .14270610E+00, - + .14072550E+00, .14836340E+00, .17392820E+00, .19999170E+00, - + .22653530E+00, .25348820E+00, .28086890E+00, - + .10200540E+00, .99072851E-01, .98585270E-01, .10733410E+00, - + .10519130E+00, .11076640E+00, .12963620E+00, .14908340E+00, - + .16899390E+00, .18924010E+00, .20980620E+00 / - DATA ((GL(IX,IQ),IQ=1,11),IX=31,36)/ - + .83261266E-01, .79071991E-01, .78161083E-01, .82952023E-01, - + .80975369E-01, .85207291E-01, .99679098E-01, .11473360E+00, - + .13021420E+00, .14599940E+00, .16219400E+00, - + .68968028E-01, .64226680E-01, .63123502E-01, .65433361E-01, - + .63734278E-01, .67045681E-01, .78477465E-01, .90464495E-01, - + .10283340E+00, .11547220E+00, .12849930E+00, - + .57774346E-01, .52880250E-01, .51714636E-01, .52434806E-01, - + .51041912E-01, .53698793E-01, .62946260E-01, .72705969E-01, - + .82802862E-01, .93068495E-01, .10302780E+00, - + .48822779E-01, .44005964E-01, .42852037E-01, .42545836E-01, - + .41453704E-01, .43628745E-01, .51253814E-01, .59342265E-01, - + .67724489E-01, .76302469E-01, .85065432E-01, - + .41543383E-01, .36935728E-01, .35835505E-01, .34868360E-01, - + .34053877E-01, .35865203E-01, .42253211E-01, .49054630E-01, - + .56095999E-01, .63209556E-01, .70077658E-01, - + .35542656E-01, .31217217E-01, .30193670E-01, .28811287E-01, - + .28240420E-01, .29770782E-01, .35194006E-01, .40982444E-01, - + .46963304E-01, .52930225E-01, .58454961E-01 / - DATA ((GL(IX,IQ),IQ=1,11),IX=37,42)/ - + .30540215E-01, .26534021E-01, .25598461E-01, .23967603E-01, - + .23608219E-01, .24916900E-01, .29572174E-01, .34549791E-01, - + .39702527E-01, .44911645E-01, .49987104E-01, - + .26330978E-01, .22658577E-01, .21815188E-01, .20044504E-01, - + .19868838E-01, .21000214E-01, .25034785E-01, .29350990E-01, - + .33817947E-01, .38380049E-01, .43175381E-01, - + .22761498E-01, .19423366E-01, .18671896E-01, .16839994E-01, - + .16821781E-01, .17807977E-01, .21331685E-01, .25101034E-01, - + .28996825E-01, .32948896E-01, .36902972E-01, - + .19714693E-01, .16702496E-01, .16039969E-01, .14202482E-01, - + .14312029E-01, .15178242E-01, .18276546E-01, .21587918E-01, - + .25004115E-01, .28461335E-01, .31901490E-01, - + .17099718E-01, .14399716E-01, .13821516E-01, .12014621E-01, - + .12229261E-01, .12995567E-01, .15735839E-01, .18660692E-01, - + .21690875E-01, .24895152E-01, .28732846E-01, - + .14845011E-01, .12440257E-01, .11940845E-01, .10187574E-01, - + .10491603E-01, .11172105E-01, .13605919E-01, .16198263E-01, - + .18864267E-01, .21574745E-01, .24365081E-01 / - DATA ((GL(IX,IQ),IQ=1,11),IX=43,48)/ - + .12893437E-01, .10765237E-01, .10338598E-01, .86557819E-02, - + .90296203E-02, .96370047E-02, .11807495E-01, .14113699E-01, - + .16476428E-01, .18850012E-01, .21186231E-01, - + .11198856E-01, .93277292E-02, .89676771E-02, .73661194E-02, - + .77940393E-02, .83379159E-02, .10279461E-01, .12337290E-01, - + .14443425E-01, .16574530E-01, .18737625E-01, - + .97235842E-02, .80898963E-02, .77902800E-02, .62755812E-02, - + .67443443E-02, .72326530E-02, .89736022E-02, .10813558E-01, - + .12689628E-01, .14571436E-01, .16437961E-01, - + .84365765E-02, .70209587E-02, .67757773E-02, .53504459E-02, - + .58481670E-02, .62875370E-02, .78516202E-02, .94999624E-02, - + .11178712E-01, .12874294E-01, .14605011E-01, - + .73120063E-02, .60956310E-02, .58991169E-02, .45637870E-02, - + .50804755E-02, .54762443E-02, .68831155E-02, .83620390E-02, - + .98717529E-02, .11428135E-01, .13068485E-01, - + .63282275E-02, .52929819E-02, .51396578E-02, .38933353E-02, - + .44199834E-02, .47767651E-02, .60432088E-02, .73699811E-02, - + .87127574E-02, .10057214E-01, .11411997E-01 / - DATA ((GL(IX,IQ),IQ=1,11),IX=49,54)/ - + .54669739E-02, .45955651E-02, .44802641E-02, .33206195E-02, - + .38496056E-02, .41713011E-02, .53116912E-02, .65027177E-02, - + .77011143E-02, .88746678E-02, .99681346E-02, - + .47127111E-02, .39887261E-02, .39066095E-02, .28307301E-02, - + .33553415E-02, .36453218E-02, .46720691E-02, .57427599E-02, - + .68357103E-02, .80072861E-02, .94076097E-02, - + .40521673E-02, .34600997E-02, .34066585E-02, .24112663E-02, - + .29261985E-02, .31872878E-02, .41110185E-02, .50702901E-02, - + .60250992E-02, .69173952E-02, .75759287E-02, - + .34739231E-02, .29991798E-02, .29702333E-02, .20518992E-02, - + .25519510E-02, .27867043E-02, .36168986E-02, .44774325E-02, - + .53389524E-02, .61903261E-02, .70185601E-02, - + .29681101E-02, .25970007E-02, .25886917E-02, .17432495E-02, - + .22248747E-02, .24355252E-02, .31804622E-02, .39506904E-02, - + .47161230E-02, .54487702E-02, .60870470E-02, - + .25261631E-02, .22458818E-02, .22546651E-02, .14785756E-02, - + .19382576E-02, .21268046E-02, .27938937E-02, .34815152E-02, - + .41530817E-02, .47463877E-02, .51725246E-02 / - DATA ((GL(IX,IQ),IQ=1,11),IX=55,60)/ - + .21406065E-02, .19392093E-02, .19618410E-02, .12511247E-02, - + .16862222E-02, .18544963E-02, .24503896E-02, .30631558E-02, - + .36543363E-02, .41417694E-02, .43804199E-02, - + .18048959E-02, .16712700E-02, .17047965E-02, .10559455E-02, - + .14644208E-02, .16139932E-02, .21446492E-02, .26926622E-02, - + .32628893E-02, .39804033E-02, .51951655E-02, - + .15132793E-02, .14371148E-02, .14788593E-02, .88831043E-03, - + .12684151E-02, .14008406E-02, .18716479E-02, .23557961E-02, - + .28372828E-02, .33232141E-02, .38416204E-02, - + .12606832E-02, .12324414E-02, .12799926E-02, .74424793E-03, - + .10950567E-02, .12116791E-02, .16275726E-02, .20548766E-02, - + .24787872E-02, .29049153E-02, .33533813E-02, - + .10426207E-02, .10535023E-02, .11047025E-02, .62077324E-03, - + .94134692E-03, .10434433E-02, .14089389E-02, .17839950E-02, - + .21523484E-02, .25089125E-02, .28646204E-02, - + .85511315E-03, .89702843E-03, .94996102E-03, .51481061E-03, - + .80484606E-03, .89360634E-03, .12128714E-02, .15403864E-02, - + .18615247E-02, .21698938E-02, .24510692E-02 / - DATA ((GL(IX,IQ),IQ=1,11),IX=61,66)/ - + .69462199E-03, .76016103E-03, .81314059E-03, .42395398E-03, - + .68344019E-03, .75998489E-03, .10368736E-02, .13208538E-02, - + .15991258E-02, .18703775E-02, .21409541E-02, - + .55799709E-03, .64040016E-03, .69196307E-03, .34613954E-03, - + .57541387E-03, .64079266E-03, .87887404E-03, .11229855E-02, - + .13612587E-02, .15899333E-02, .17994390E-02, - + .44242750E-03, .53555850E-03, .58445230E-03, .27959974E-03, - + .47923587E-03, .53444429E-03, .73704944E-03, .94491709E-03, - + .11499835E-02, .13629402E-02, .16131144E-02, - + .37976223E-03, .47674883E-03, .52342948E-03, .24302480E-03, - + .42460355E-03, .47393574E-03, .65595709E-03, .84273744E-03, - + .10278203E-02, .12271540E-02, .14861936E-02, - + .32377799E-03, .42259792E-03, .46670469E-03, .20990966E-03, - + .37385608E-03, .41766485E-03, .58025646E-03, .74656424E-03, - + .90435368E-03, .10364352E-02, .11024800E-02, - + .27395386E-03, .37272234E-03, .41394209E-03, .17995390E-03, - + .32672964E-03, .36536818E-03, .50967175E-03, .65769651E-03, - + .80517057E-03, .97348861E-03, .12287423E-02 / - DATA ((GL(IX,IQ),IQ=1,11),IX=67,72)/ - + .22980465E-03, .32677129E-03, .36483782E-03, .15289533E-03, - + .28305233E-03, .31685113E-03, .44392538E-03, .57369040E-03, - + .69590734E-03, .79750392E-03, .85393875E-03, - + .19087768E-03, .28442426E-03, .31911809E-03, .12851208E-03, - + .24262680E-03, .27191307E-03, .38280417E-03, .49586652E-03, - + .60144276E-03, .68557670E-03, .71986660E-03, - + .15675026E-03, .24538868E-03, .27653706E-03, .10655740E-03, - + .20529632E-03, .23038426E-03, .32609791E-03, .42376091E-03, - + .51794731E-03, .61210821E-03, .71923883E-03, - + .12702562E-03, .20939946E-03, .23687704E-03, .86850647E-04, - + .17095124E-03, .19214209E-03, .27363410E-03, .35657937E-03, - + .43596257E-03, .51353715E-03, .59708609E-03, - + .10133997E-03, .17622036E-03, .19994892E-03, .69206086E-04, - + .13947536E-03, .15706119E-03, .22526080E-03, .29422212E-03, - + .35635440E-03, .39608881E-03, .37468970E-03, - + .79367856E-04, .14563842E-03, .16558901E-03, .53488286E-04, - + .11076736E-03, .12503305E-03, .18085355E-03, .23724210E-03, - + .29005515E-03, .33739625E-03, .37392578E-03 / - DATA ((GL(IX,IQ),IQ=1,11),IX=73,78)/ - + .60783786E-04, .11746485E-03, .13366299E-03, .39538561E-04, - + .84787382E-04, .96002914E-04, .14032156E-03, .18491085E-03, - + .22700217E-03, .26840641E-03, .31536425E-03, - + .45273802E-04, .91536160E-04, .10406847E-03, .27264969E-04, - + .61503961E-04, .69928057E-04, .10360509E-03, .13728385E-03, - + .16879971E-03, .19924328E-03, .23159156E-03, - + .32502478E-04, .67715468E-04, .76742552E-04, .16574819E-04, - + .40923231E-04, .46800356E-04, .70686932E-04, .94421048E-04, - + .11643116E-03, .13739125E-03, .15853342E-03, - + .21987848E-04, .45899367E-04, .51682022E-04, .74050604E-05, - + .23103194E-04, .26661361E-04, .41614618E-04, .56428016E-04, - + .70160619E-04, .83918188E-04, .10076668E-03, - + .13204433E-04, .26131152E-04, .29027275E-04, -.28512312E-06, - + .81521121E-05, .95961141E-05, .16516115E-04, .23530647E-04, - + .30009225E-04, .36369518E-04, .43395718E-04, - + .42339570E-05, .81012440E-05, .87494236E-05, -.69599464E-05, - + -.40101486E-05, -.44945273E-05, -.45099641E-05, -.38566682E-05, - + -.30550304E-05, -.17409886E-05, .20399091E-05 / -****************************************************************** - q2=q*q -*if x is out of range - IF((X.LT.5.0D-4).OR.(X.GT.1.0D0)) GOTO 90 -******************************************************************* - IF (ICALL.NE.1) THEN -* get the x coordinates - CALL GS2XCOR(Y,NP) -C OPEN(UNIT=30,FILE='FOR030.DAT',status='old') -C DO 20 IQ=1,NQ -C DO 10 IX=1,NP -C READ(30,*)SIG(IX,IQ),QNS(IX,IQ),GL(IX,IQ) -C 10 CONTINUE -C 20 CONTINUE - ICALL=1 - END IF -* - DO 30 IX=1,NP - A(IX)=Y(IX) - 30 CONTINUE - DO 40 IQ=1,NQ - A(NP+IQ)=QT(IQ) - 40 CONTINUE -* - NA(1)=NP - NA(2)=NQ - XT(1)=X - XT(2)=Q2 - XSIG=DBFINT(2,XT,NA,A,SIG) - XQNS=DBFINT(2,XT,NA,A,QNS) - G =DBFINT(2,XT,NA,A,GL) -* - IF (Q2.LT.50.0D0) THEN -C Use three flavour evolution. - U=(XSIG+9.0D0*XQNS)/6.0D0 - D=(XSIG-4.5D0*XQNS)/6.0D0 - S=D - C=0.0D0 - B=0.0D0 -* - ELSE IF((Q2.GT.50.0).AND.(Q2.LT.250.0)) THEN -C Use four flavour evolution - U=(XSIG+6.0D0*XQNS)/8.0D0 - D=(XSIG-6.0D0*XQNS)/8.0D0 - S=D - C=U - B=0.0D0 - ELSE -C Use five flavour evolution - U=(XSIG+7.5D0*XQNS)/10.0D0 - D=(XSIG-5.0D0*XQNS)/10.0D0 - S=D - C=U - B=D - ENDIF - U=X*U - US=U - D=X*D - DS=D - S=X*S - C=X*C - B=X*B - G=X*G - 90 RETURN - END diff --git a/PDF/spdf/gs96lo.F b/PDF/spdf/gs96lo.F deleted file mode 100644 index fe7a40e45f9..00000000000 --- a/PDF/spdf/gs96lo.F +++ /dev/null @@ -1,827 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE GS96LO(X,Q,U,D,S,C,B,G) -#include "pdf/impdp.inc" - PARAMETER(NP=78,NQ=11,NARG=2) -***************************************************************** -* Subroutine returns the parton distributions in the photon in * -* leading order. u,d etc. gives the actual distributions and * -* not x times the distributions; Q2 means Q^2. The distributions* -* are valid for 5.0e^-4< x < 1.0 and 5.3 GeV^2 < Q^2 < 1.0e^8. * -* if higher Q^2 or lower x is required, these may be obtained * -* from the authors on request. * -* Lionel Gordon April 1996 : Gordon@hep.anl.gov * -* John Storrow :johns@a3.ph.man.ac.uk * -***************************************************************** - DIMENSION SIG(NP,NQ),QNS(NP,NQ),GL(NP,NQ),Y(NP) - DIMENSION XT(NARG),NA(NARG),A(NP+NQ),QT(NQ) - EXTERNAL GS2XCOR - SAVE SIG,QNS,GL,Y,ICALL - DATA QT /3.0D0,20.0D0,50.0D0,100.0D0,500.0D0,1.0D3,1.0D4,1.0D5, - + 1.0D6,1.0D7,1.0D8/ -****************************************************************** - DATA ((SIG(IX,IQ),IQ=1,11),IX=1,6)/ - + .70233650E+01, .16165820E+02, .22649760E+02, .35495220E+02, - + .65474820E+02, .79231610E+02, .12861310E+03, .18177080E+03, - + .23718420E+03, .29398330E+03, .35164760E+03, - + .24311790E+01, .56410560E+01, .77057210E+01, .11734420E+02, - + .20492340E+02, .24322600E+02, .37461360E+02, .50877500E+02, - + .64331550E+02, .77721700E+02, .91007210E+02, - + .14971770E+01, .33650050E+01, .44991710E+01, .66884180E+01, - + .11271360E+02, .13227810E+02, .19793990E+02, .26335880E+02, - + .32785410E+02, .39126610E+02, .45362620E+02, - + .10921390E+01, .23762350E+01, .31245750E+01, .45575990E+01, - + .74802520E+01, .87078440E+01, .12769890E+02, .16754230E+02, - + .20641820E+02, .24437220E+02, .28151560E+02, - + .86489230E+00, .18280090E+01, .23716390E+01, .34062140E+01, - + .54744220E+01, .63325540E+01, .91427930E+01, .11868580E+02, - + .14509180E+02, .17075190E+02, .19578820E+02, - + .71901990E+00, .14813820E+01, .19005850E+01, .26943770E+01, - + .42556170E+01, .48970560E+01, .69807250E+01, .89845070E+01, - + .10915430E+02, .12785660E+02, .14606780E+02 / - DATA ((SIG(IX,IQ),IQ=1,11),IX=7,12)/ - + .61723300E+00, .12432440E+01, .15799330E+01, .22148420E+01, - + .34465520E+01, .39484520E+01, .55681480E+01, .71151260E+01, - + .85998060E+01, .10034390E+02, .11429420E+02, - + .54204300E+00, .10699620E+01, .13485000E+01, .18719250E+01, - + .28753520E+01, .32813470E+01, .45843660E+01, .58219380E+01, - + .70058830E+01, .81478560E+01, .92573340E+01, - + .48415250E+00, .93844130E+00, .11741140E+01, .16156780E+01, - + .24533400E+01, .27901670E+01, .38661630E+01, .48833590E+01, - + .58539990E+01, .67889940E+01, .76968530E+01, - + .43815400E+00, .83533890E+00, .10383010E+01, .14176170E+01, - + .21304710E+01, .24155340E+01, .33225110E+01, .41765600E+01, - + .49898510E+01, .57725110E+01, .65321960E+01, - + .29240730E+00, .51945260E+00, .62849450E+00, .83051500E+00, - + .11956680E+01, .13384320E+01, .17859910E+01, .22018350E+01, - + .25955570E+01, .29738200E+01, .33411740E+01, - + .22771950E+00, .38647540E+00, .45986050E+00, .59540790E+00, - + .83445110E+00, .92663030E+00, .12135430E+01, .14787420E+01, - + .17296330E+01, .19709840E+01, .22058840E+01 / - DATA ((SIG(IX,IQ),IQ=1,11),IX=13,18)/ - + .18804090E+00, .30803060E+00, .36194060E+00, .46150040E+00, - + .63379280E+00, .69956000E+00, .90347860E+00, .10916570E+01, - + .12699170E+01, .14418210E+01, .16095890E+01, - + .16106230E+00, .25639660E+00, .29829840E+00, .37582780E+00, - + .50798110E+00, .55803760E+00, .71298070E+00, .85604630E+00, - + .99191000E+00, .11233210E+01, .12519440E+01, - + .14144340E+00, .21987620E+00, .25375560E+00, .31665930E+00, - + .42255270E+00, .46242310E+00, .58580990E+00, .69996700E+00, - + .80871960E+00, .91424490E+00, .10178260E+01, - + .12648450E+00, .19269370E+00, .22089650E+00, .27351290E+00, - + .36116160E+00, .39400900E+00, .49574770E+00, .59015340E+00, - + .68040390E+00, .76825760E+00, .85472490E+00, - + .11467010E+00, .17166800E+00, .19566950E+00, .24073410E+00, - + .31512060E+00, .34289780E+00, .42907090E+00, .50931720E+00, - + .58630930E+00, .66148940E+00, .73566840E+00, - + .10508230E+00, .15432960E+00, .17493660E+00, .21482420E+00, - + .27930330E+00, .30330860E+00, .37792090E+00, .44765370E+00, - + .51478960E+00, .58053120E+00, .64554070E+00 / - DATA ((SIG(IX,IQ),IQ=1,11),IX=19,24)/ - + .97131789E-01, .14084660E+00, .15900900E+00, .19428030E+00, - + .25102050E+00, .27209930E+00, .33777610E+00, .39940580E+00, - + .45894800E+00, .51741330E+00, .57534640E+00, - + .90422034E-01, .12963520E+00, .14583600E+00, .17742940E+00, - + .22803570E+00, .24680480E+00, .30544260E+00, .36069220E+00, - + .41424930E+00, .46697050E+00, .51930820E+00, - + .84676370E-01, .12016500E+00, .13476290E+00, .16336950E+00, - + .20901730E+00, .22592660E+00, .27890360E+00, .32902210E+00, - + .37775960E+00, .42584740E+00, .47366380E+00, - + .79695620E-01, .11205840E+00, .12532620E+00, .15146720E+00, - + .19303900E+00, .20842480E+00, .25676830E+00, .30268500E+00, - + .34746950E+00, .39175020E+00, .43584570E+00, - + .75332552E-01, .10503960E+00, .11718890E+00, .14126560E+00, - + .17943800E+00, .19355690E+00, .23804960E+00, .28047120E+00, - + .32196180E+00, .36306450E+00, .40404830E+00, - + .71475916E-01, .98902315E-01, .11009980E+00, .13242690E+00, - + .16772780E+00, .18077960E+00, .22202890E+00, .26150320E+00, - + .30021130E+00, .33862380E+00, .37696920E+00 / - DATA ((SIG(IX,IQ),IQ=1,11),IX=25,30)/ - + .68039946E-01, .93488976E-01, .10386800E+00, .12469620E+00, - + .15754450E+00, .16968690E+00, .20817210E+00, .24513120E+00, - + .28145950E+00, .31756730E+00, .35364870E+00, - + .64957649E-01, .88677347E-01, .98345891E-01, .11787750E+00, - + .14860990E+00, .15996950E+00, .19607450E+00, .23086390E+00, - + .26513530E+00, .29924710E+00, .33336460E+00, - + .62175583E-01, .84369965E-01, .93415700E-01, .11181690E+00, - + .14070770E+00, .15138750E+00, .18542390E+00, .21832420E+00, - + .25080060E+00, .28316720E+00, .31556580E+00, - + .59650775E-01, .80420166E-01, .88902399E-01, .10637240E+00, - + .13365770E+00, .14374470E+00, .17597350E+00, .20721680E+00, - + .23811440E+00, .26894210E+00, .29982100E+00, - + .51509041E-01, .68176709E-01, .75015508E-01, .89448459E-01, - + .11187040E+00, .12017020E+00, .14694140E+00, .17316310E+00, - + .19925500E+00, .22538240E+00, .25160820E+00, - + .45536134E-01, .59398353E-01, .65131053E-01, .77530891E-01, - + .96705496E-01, .10381690E+00, .12693770E+00, .14976790E+00, - + .17258700E+00, .19549320E+00, .21851570E+00 / - DATA ((SIG(IX,IQ),IQ=1,11),IX=31,36)/ - + .40955305E-01, .52766804E-01, .57704475E-01, .68659775E-01, - + .85510314E-01, .91773830E-01, .11227210E+00, .13264130E+00, - + .15306790E+00, .17360690E+00, .19426700E+00, - + .37324660E-01, .47601301E-01, .51943392E-01, .61794415E-01, - + .76885954E-01, .82510278E-01, .10101900E+00, .11950580E+00, - + .13809150E+00, .15680180E+00, .17563260E+00, - + .34372974E-01, .43435521E-01, .47311056E-01, .56301422E-01, - + .70009246E-01, .75133115E-01, .92074446E-01, .10906660E+00, - + .12618310E+00, .14342960E+00, .16079300E+00, - + .31923808E-01, .40012788E-01, .43512553E-01, .51803045E-01, - + .64385124E-01, .69104590E-01, .84772743E-01, .10054340E+00, - + .11645470E+00, .13249750E+00, .14865270E+00, - + .29857013E-01, .37139244E-01, .40328316E-01, .48041262E-01, - + .59685305E-01, .64070739E-01, .78682460E-01, .93434341E-01, - + .10833710E+00, .12337080E+00, .13851210E+00, - + .28087676E-01, .34687765E-01, .37615880E-01, .44843495E-01, - + .55690806E-01, .59795659E-01, .73516525E-01, .87405436E-01, - + .10145160E+00, .11562690E+00, .12990470E+00 / - DATA ((SIG(IX,IQ),IQ=1,11),IX=37,42)/ - + .26553867E-01, .32570735E-01, .35275102E-01, .42089522E-01, - + .52249193E-01, .56115251E-01, .69075659E-01, .82225241E-01, - + .95535874E-01, .10897300E+00, .12250760E+00, - + .25209235E-01, .30719869E-01, .33231538E-01, .39689910E-01, - + .49249481E-01, .52910630E-01, .65216698E-01, .77728003E-01, - + .90402141E-01, .10319940E+00, .11608920E+00, - + .24018301E-01, .29084699E-01, .31427387E-01, .37579320E-01, - + .46610452E-01, .50094768E-01, .61834782E-01, .73792145E-01, - + .85912563E-01, .98152287E-01, .11047950E+00, - + .22953326E-01, .27626833E-01, .29821219E-01, .35707723E-01, - + .44270609E-01, .47601912E-01, .58850951E-01, .70326120E-01, - + .81963196E-01, .93715243E-01, .10554960E+00, - + .21992300E-01, .26317418E-01, .28381797E-01, .34036707E-01, - + .42182721E-01, .45381572E-01, .56204535E-01, .67259535E-01, - + .78474045E-01, .89798547E-01, .10120000E+00, - + .21117412E-01, .25130259E-01, .27079122E-01, .32535497E-01, - + .40309582E-01, .43394115E-01, .53848099E-01, .64537331E-01, - + .75382322E-01, .86331800E-01, .97352557E-01 / - DATA ((SIG(IX,IQ),IQ=1,11),IX=43,48)/ - + .20314088E-01, .24048898E-01, .25896588E-01, .31180535E-01, - + .38622063E-01, .41608363E-01, .51744010E-01, .62115550E-01, - + .72637826E-01, .83258361E-01, .93944140E-01, - + .19570207E-01, .23054440E-01, .24812274E-01, .29951232E-01, - + .37095614E-01, .39998349E-01, .49861446E-01, .59958387E-01, - + .70199609E-01, .80532081E-01, .90923406E-01, - + .18875565E-01, .22135690E-01, .23814905E-01, .28832132E-01, - + .35710733E-01, .38543295E-01, .48175458E-01, .58036570E-01, - + .68034008E-01, .78114823E-01, .88247612E-01, - + .18221470E-01, .21283235E-01, .22894613E-01, .27810007E-01, - + .34449894E-01, .37224889E-01, .46664707E-01, .56325421E-01, - + .66112675E-01, .75974435E-01, .85880660E-01, - + .17600402E-01, .20484766E-01, .22037288E-01, .26872966E-01, - + .33294700E-01, .36024913E-01, .45310233E-01, .54803822E-01, - + .64411715E-01, .74083857E-01, .83792232E-01, - + .17005796E-01, .19735906E-01, .21239230E-01, .26012382E-01, - + .32214422E-01, .34919977E-01, .44098802E-01, .53459194E-01, - + .62916011E-01, .72424434E-01, .81959791E-01 / - DATA ((SIG(IX,IQ),IQ=1,11),IX=49,54)/ - + .16431818E-01, .19026265E-01, .20488355E-01, .25218941E-01, - + .31340595E-01, .34012362E-01, .43073423E-01, .52304987E-01, - + .61622459E-01, .70982762E-01, .80362923E-01, - + .15873218E-01, .18351970E-01, .19781215E-01, .24486300E-01, - + .30548692E-01, .33194769E-01, .42162675E-01, .51287871E-01, - + .60487274E-01, .69720104E-01, .78965351E-01, - + .15325210E-01, .17709229E-01, .19113980E-01, .23808308E-01, - + .29830996E-01, .32458834E-01, .41356008E-01, .50395038E-01, - + .59495397E-01, .68619095E-01, .77747427E-01, - + .14783341E-01, .17090147E-01, .18477764E-01, .23178712E-01, - + .29180394E-01, .31796936E-01, .40643897E-01, .49614865E-01, - + .58633033E-01, .67663796E-01, .76691084E-01, - + .14243398E-01, .16494034E-01, .17872585E-01, .22593448E-01, - + .28591167E-01, .31202689E-01, .40017735E-01, .48936587E-01, - + .57887271E-01, .66839188E-01, .75779170E-01, - + .13701326E-01, .15913295E-01, .17289814E-01, .22046775E-01, - + .28056910E-01, .30669276E-01, .39469026E-01, .48349790E-01, - + .57245754E-01, .66130891E-01, .74995354E-01 / - DATA ((SIG(IX,IQ),IQ=1,11),IX=55,60)/ - + .13153119E-01, .15346353E-01, .16728375E-01, .21535255E-01, - + .27572803E-01, .30191237E-01, .38990181E-01, .47844768E-01, - + .56696646E-01, .65525070E-01, .74323796E-01, - + .12594732E-01, .14791337E-01, .16186563E-01, .21054942E-01, - + .27133595E-01, .29762773E-01, .38573418E-01, .47411691E-01, - + .56228105E-01, .65007895E-01, .73748708E-01, - + .12021979E-01, .14241454E-01, .15657019E-01, .20601317E-01, - + .26734108E-01, .29378202E-01, .38211159E-01, .47040939E-01, - + .55828430E-01, .64565547E-01, .73254302E-01, - + .11430394E-01, .13697128E-01, .15140896E-01, .20171570E-01, - + .26369859E-01, .29032351E-01, .37895892E-01, .46722665E-01, - + .55485573E-01, .64183913E-01, .72824322E-01, - + .10815056E-01, .13151020E-01, .14630304E-01, .19760678E-01, - + .26035184E-01, .28719062E-01, .37619423E-01, .46446476E-01, - + .55186883E-01, .63848116E-01, .72441801E-01, - + .10170342E-01, .12601701E-01, .14124501E-01, .19365635E-01, - + .25725456E-01, .28432934E-01, .37373677E-01, .46201620E-01, - + .54919042E-01, .63542381E-01, .72088622E-01 / - DATA ((SIG(IX,IQ),IQ=1,11),IX=61,66)/ - + .94895000E-02, .12047191E-01, .13622015E-01, .18982301E-01, - + .25434965E-01, .28167473E-01, .37149407E-01, .45976061E-01, - + .54667313E-01, .63249402E-01, .71744934E-01, - + .87638441E-02, .11478874E-01, .13114383E-01, .18605402E-01, - + .25157452E-01, .27915688E-01, .36936633E-01, .45756657E-01, - + .54415464E-01, .62949926E-01, .71388632E-01, - + .79806140E-02, .10895309E-01, .12601756E-01, .18230738E-01, - + .24886614E-01, .27670188E-01, .36724158E-01, .45528390E-01, - + .54144844E-01, .62621906E-01, .70994429E-01, - + .74511403E-02, .10516069E-01, .12272826E-01, .17993828E-01, - + .24716759E-01, .27515635E-01, .36585581E-01, .45373466E-01, - + .53956587E-01, .62391039E-01, .70715770E-01, - + .68464987E-02, .10112029E-01, .11928732E-01, .17750293E-01, - + .24543701E-01, .27357465E-01, .36438715E-01, .45203689E-01, - + .53746648E-01, .62131848E-01, .70402443E-01, - + .62988829E-02, .97366562E-02, .11607243E-01, .17522307E-01, - + .24376523E-01, .27201468E-01, .36282752E-01, .45014754E-01, - + .53508431E-01, .61836019E-01, .70044719E-01 / - DATA ((SIG(IX,IQ),IQ=1,11),IX=67,72)/ - + .57118190E-02, .93493359E-02, .11279009E-01, .17287323E-01, - + .24200602E-01, .27034778E-01, .36107492E-01, .44796858E-01, - + .53231634E-01, .61492369E-01, .69630355E-01, - + .50750975E-02, .89408755E-02, .10935490E-01, .17041067E-01, - + .24011744E-01, .26852885E-01, .35906781E-01, .44541899E-01, - + .52906290E-01, .61089125E-01, .69145881E-01, - + .43719336E-02, .85081635E-02, .10575719E-01, .16780412E-01, - + .23806021E-01, .26651226E-01, .35673607E-01, .44240404E-01, - + .52520528E-01, .60612228E-01, .68575099E-01, - + .35696272E-02, .80408603E-02, .10193244E-01, .16499719E-01, - + .23578117E-01, .26423991E-01, .35399497E-01, .43880824E-01, - + .52059866E-01, .60044378E-01, .67898139E-01, - + .25796264E-02, .75202058E-02, .97787427E-02, .16189592E-01, - + .23321355E-01, .26164258E-01, .35074543E-01, .43449294E-01, - + .51506475E-01, .59364054E-01, .67090012E-01, - + .63840469E-03, .66830339E-02, .91540636E-02, .15787654E-01, - + .23020176E-01, .25863128E-01, .34693021E-01, .42934284E-01, - + .50842009E-01, .58546569E-01, .66120222E-01 / - DATA ((SIG(IX,IQ),IQ=1,11),IX=73,78)/ - + .54348679E-03, .66718971E-02, .91313645E-02, .15770439E-01, - + .22891581E-01, .25676530E-01, .34300376E-01, .42334419E-01, - + .50041795E-01, .57553779E-01, .64941801E-01, - + .44987255E-03, .66495002E-02, .90860846E-02, .15707679E-01, - + .22679351E-01, .25390834E-01, .33761628E-01, .41547108E-01, - + .49016580E-01, .56300890E-01, .63469745E-01, - + .35752088E-03, .66093411E-02, .90073841E-02, .15578166E-01, - + .22348387E-01, .24965560E-01, .33020519E-01, .40502422E-01, - + .47683932E-01, .54693565E-01, .61598159E-01, - + .26639336E-03, .65389010E-02, .88747321E-02, .15344365E-01, - + .21837499E-01, .24330446E-01, .31980157E-01, .39080344E-01, - + .45902595E-01, .52570321E-01, .59145831E-01, - + .17645306E-03, .64132204E-02, .86474940E-02, .14928375E-01, - + .21021180E-01, .23341957E-01, .30444333E-01, .37038930E-01, - + .43388367E-01, .49606442E-01, .55748388E-01, - + .87666333E-04, .61405073E-02, .81724292E-02, .14103483E-01, - + .19544823E-01, .21597438E-01, .27870284E-01, .33712901E-01, - + .39361767E-01, .44912312E-01, .50408222E-01 / - DATA ((QNS(IX,IQ),IQ=1,11),IX=1,6)/ - + .22347780E-01, .30416997E-01, .34220558E-01, .38654409E-01, - + .48890565E-01, .52922335E-01, .66621147E-01, .80712840E-01, - + .95122613E-01, .10979640E+00, .12469360E+00, - + .14476375E-01, .19870752E-01, .22425551E-01, .25597360E-01, - + .32909065E-01, .35732053E-01, .45331556E-01, .55207506E-01, - + .65299712E-01, .75566433E-01, .85977353E-01, - + .11962311E-01, .16505240E-01, .18658876E-01, .21417702E-01, - + .27743990E-01, .30164229E-01, .38388949E-01, .46841018E-01, - + .55468224E-01, .64235009E-01, .73115870E-01, - + .10589727E-01, .14661130E-01, .16591460E-01, .19117894E-01, - + .24881853E-01, .27073927E-01, .34517843E-01, .42159259E-01, - + .49951315E-01, .57862427E-01, .65870196E-01, - + .96859979E-02, .13441657E-01, .15222020E-01, .17591115E-01, - + .22971103E-01, .25008233E-01, .31921271E-01, .39010916E-01, - + .46234246E-01, .53562596E-01, .60975742E-01, - + .90294778E-02, .12552069E-01, .14221529E-01, .16473485E-01, - + .21565964E-01, .23487607E-01, .30004630E-01, .36682442E-01, - + .43481242E-01, .50374601E-01, .57343986E-01 / - DATA ((QNS(IX,IQ),IQ=1,11),IX=7,12)/ - + .85226241E-02, .11862587E-01, .13445049E-01, .15604578E-01, - + .20469274E-01, .22299757E-01, .28504094E-01, .34856651E-01, - + .41320160E-01, .47870025E-01, .54489061E-01, - + .81145316E-02, .11305598E-01, .12817057E-01, .14900750E-01, - + .19577978E-01, .21333689E-01, .27281454E-01, .33367082E-01, - + .39555471E-01, .45823533E-01, .52155215E-01, - + .77760560E-02, .10842069E-01, .12293876E-01, .14313543E-01, - + .18832160E-01, .20524794E-01, .26256071E-01, .32116495E-01, - + .38072787E-01, .44103172E-01, .50192557E-01, - + .74886265E-02, .10447377E-01, .11847992E-01, .13812449E-01, - + .18194064E-01, .19832352E-01, .25377102E-01, .31043489E-01, - + .36799841E-01, .42625524E-01, .48506290E-01, - + .64256275E-02, .89773368E-02, .10183567E-01, .11935689E-01, - + .15789291E-01, .17219389E-01, .22049619E-01, .26973020E-01, - + .31964321E-01, .37007291E-01, .42090867E-01, - + .58390745E-02, .81581678E-02, .92532923E-02, .10881490E-01, - + .14427078E-01, .15736699E-01, .20153632E-01, .24647752E-01, - + .29197568E-01, .33789434E-01, .38414113E-01 / - DATA ((QNS(IX,IQ),IQ=1,11),IX=13,18)/ - + .54209060E-02, .75701606E-02, .85841808E-02, .10120295E-01, - + .13437810E-01, .14658688E-01, .18771384E-01, .22949880E-01, - + .27175499E-01, .31436477E-01, .35724893E-01, - + .51001306E-02, .71166358E-02, .80672922E-02, .95302416E-02, - + .12667454E-01, .13818449E-01, .17691769E-01, .21622244E-01, - + .25593415E-01, .29594965E-01, .33620004E-01, - + .48420541E-02, .67501036E-02, .76490170E-02, .90512559E-02, - + .12039731E-01, .13133255E-01, .16809879E-01, .20536831E-01, - + .24299441E-01, .28088575E-01, .31898152E-01, - + .46274024E-02, .64440374E-02, .72993753E-02, .86496659E-02, - + .11511710E-01, .12556502E-01, .16066508E-01, .19621277E-01, - + .23207651E-01, .26817473E-01, .30445315E-01, - + .44443929E-02, .61822440E-02, .70000733E-02, .83048791E-02, - + .11057034E-01, .12059559E-01, .15425186E-01, .18830957E-01, - + .22265013E-01, .25720004E-01, .29191058E-01, - + .42853877E-02, .59574638E-02, .67436076E-02, .80045108E-02, - + .10659067E-01, .11624165E-01, .14862226E-01, .18136676E-01, - + .21436702E-01, .24755616E-01, .28089002E-01 / - DATA ((QNS(IX,IQ),IQ=1,11),IX=19,24)/ - + .41451608E-02, .57549435E-02, .65114158E-02, .77362983E-02, - + .10303783E-01, .11235525E-01, .14359901E-01, .17517360E-01, - + .20698044E-01, .23895871E-01, .27106808E-01, - + .40199752E-02, .55736504E-02, .63034128E-02, .74954242E-02, - + .99840201E-02, .10885593E-01, .13907254E-01, .16959157E-01, - + .20032283E-01, .23121063E-01, .26221819E-01, - + .39070938E-02, .54097446E-02, .61152326E-02, .72769844E-02, - + .96934550E-02, .10567492E-01, .13495505E-01, .16451305E-01, - + .19426599E-01, .22416286E-01, .25416970E-01, - + .38044569E-02, .52603283E-02, .59435759E-02, .70772693E-02, - + .94272951E-02, .10276008E-01, .13117989E-01, .15985610E-01, - + .18871248E-01, .21770189E-01, .24679305E-01, - + .37104669E-02, .51231552E-02, .57858899E-02, .68934062E-02, - + .91818236E-02, .10007096E-01, .12769531E-01, .15555740E-01, - + .18358679E-01, .21173978E-01, .23998743E-01, - + .36238658E-02, .49964576E-02, .56401626E-02, .67231297E-02, - + .89541078E-02, .97575644E-02, .12446046E-01, .15156664E-01, - + .17882895E-01, .20620679E-01, .23367316E-01 / - DATA ((QNS(IX,IQ),IQ=1,11),IX=25,30)/ - + .35436423E-02, .48788190E-02, .55047837E-02, .65646246E-02, - + .87417914E-02, .95248455E-02, .12144244E-01, .14784350E-01, - + .17439092E-01, .20104686E-01, .22778606E-01, - + .34689903E-02, .47690975E-02, .53784545E-02, .64164181E-02, - + .85429605E-02, .93068564E-02, .11861458E-01, .14435508E-01, - + .17023347E-01, .19621437E-01, .22227386E-01, - + .33992324E-02, .46663643E-02, .52601271E-02, .62773130E-02, - + .83560478E-02, .91018872E-02, .11595481E-01, .14107424E-01, - + .16632421E-01, .19167142E-01, .21709338E-01, - + .33338103E-02, .45709312E-02, .51503726E-02, .61466023E-02, - + .81798965E-02, .89086248E-02, .11344525E-01, .13797851E-01, - + .16263613E-01, .18738655E-01, .21220839E-01, - + .31070877E-02, .42338623E-02, .47612539E-02, .56870929E-02, - + .75597861E-02, .82283197E-02, .10461652E-01, .12709657E-01, - + .14968293E-01, .17234933E-01, .19507756E-01, - + .29223014E-02, .39567789E-02, .44408757E-02, .53065377E-02, - + .70437291E-02, .76620006E-02, .97269351E-02, .11805083E-01, - + .13892934E-01, .15988134E-01, .18089021E-01 / - DATA ((QNS(IX,IQ),IQ=1,11),IX=31,36)/ - + .27672520E-02, .37230218E-02, .41703400E-02, .49827849E-02, - + .66026538E-02, .71779541E-02, .90995627E-02, .11033838E-01, - + .12977473E-01, .14928191E-01, .16884387E-01, - + .26343348E-02, .35203339E-02, .39353445E-02, .47014700E-02, - + .62181177E-02, .67561464E-02, .85539315E-02, .10364416E-01, - + .12184278E-01, .14011203E-01, .15843540E-01, - + .25184827E-02, .33429826E-02, .37297010E-02, .44538858E-02, - + .58783856E-02, .63836933E-02, .80732238E-02, .97759375E-02, - + .11488298E-01, .13207850E-01, .14932853E-01, - + .24161392E-02, .31847458E-02, .35460098E-02, .42331023E-02, - + .55746799E-02, .60510873E-02, .76453555E-02, .92535503E-02, - + .10871798E-01, .12497444E-01, .14128623E-01, - + .23247080E-02, .30426823E-02, .33811228E-02, .40347395E-02, - + .53010983E-02, .57518403E-02, .72618043E-02, .87866252E-02, - + .10321981E-01, .11864970E-01, .13413583E-01, - + .22422282E-02, .29143866E-02, .32323541E-02, .38553227E-02, - + .50530406E-02, .54809167E-02, .69160364E-02, .83670495E-02, - + .98291114E-02, .11299029E-01, .12774654E-01 / - DATA ((QNS(IX,IQ),IQ=1,11),IX=37,42)/ - + .21671746E-02, .27969701E-02, .30962587E-02, .36919208E-02, - + .48268489E-02, .52343542E-02, .66029835E-02, .79885563E-02, - + .93856575E-02, .10790807E-01, .12201700E-01, - + .20983317E-02, .26895320E-02, .29719966E-02, .35426398E-02, - + .46198913E-02, .50092353E-02, .63187508E-02, .76462403E-02, - + .89856889E-02, .10333324E-01, .11686685E-01, - + .20347110E-02, .25900172E-02, .28570674E-02, .34055049E-02, - + .44297641E-02, .48029721E-02, .60600555E-02, .73360526E-02, - + .86243451E-02, .99208793E-02, .11223059E-01, - + .19754882E-02, .24977257E-02, .27507916E-02, .32792690E-02, - + .42547612E-02, .46136663E-02, .58243466E-02, .70547578E-02, - + .82976893E-02, .95488243E-02, .10805460E-01, - + .19199703E-02, .24119478E-02, .26524004E-02, .31627815E-02, - + .40933578E-02, .44396473E-02, .56094276E-02, .67995982E-02, - + .80023827E-02, .92132315E-02, .10429357E-01, - + .18675593E-02, .23314061E-02, .25603592E-02, .30549287E-02, - + .39442163E-02, .42794705E-02, .54134391E-02, .65682498E-02, - + .77356072E-02, .89107733E-02, .10090907E-01 / - DATA ((QNS(IX,IQ),IQ=1,11),IX=43,48)/ - + .18177333E-02, .22559424E-02, .24746060E-02, .29550160E-02, - + .38063226E-02, .41320026E-02, .52348385E-02, .63587371E-02, - + .74949465E-02, .86385896E-02, .97867977E-02, - + .17700301E-02, .21844842E-02, .23938271E-02, .28621464E-02, - + .36785998E-02, .39961003E-02, .50721983E-02, .61692949E-02, - + .72782673E-02, .83941603E-02, .95141260E-02, - + .17240335E-02, .21168005E-02, .23178440E-02, .27757883E-02, - + .35602150E-02, .38708593E-02, .49243383E-02, .59984224E-02, - + .70837280E-02, .81752967E-02, .92703467E-02, - + .16793646E-02, .20525989E-02, .22463524E-02, .26953907E-02, - + .34502086E-02, .37552959E-02, .47901147E-02, .58447379E-02, - + .69096684E-02, .79800356E-02, .90531837E-02, - + .16356716E-02, .19910987E-02, .21784257E-02, .26203613E-02, - + .33471312E-02, .36480818E-02, .46683489E-02, .57069808E-02, - + .67546302E-02, .78066657E-02, .88606523E-02, - + .15926257E-02, .19323232E-02, .21141705E-02, .25503533E-02, - + .32471677E-02, .35467034E-02, .45584687E-02, .55849277E-02, - + .66182101E-02, .76544383E-02, .86916070E-02 / - DATA ((QNS(IX,IQ),IQ=1,11),IX=49,54)/ - + .15499133E-02, .18755398E-02, .20527074E-02, .24848238E-02, - + .31733939E-02, .34694192E-02, .44690468E-02, .54824166E-02, - + .65016863E-02, .75231162E-02, .85448455E-02, - + .15072295E-02, .18206546E-02, .19939956E-02, .24234734E-02, - + .31059671E-02, .33993160E-02, .43893415E-02, .53919069E-02, - + .63992999E-02, .74079740E-02, .84162494E-02, - + .14642783E-02, .17675108E-02, .19378792E-02, .23659528E-02, - + .30444127E-02, .33358624E-02, .43186182E-02, .53124558E-02, - + .63098902E-02, .73076356E-02, .83042309E-02, - + .14207619E-02, .17155047E-02, .18836682E-02, .23118563E-02, - + .29882609E-02, .32785446E-02, .42561842E-02, .52431626E-02, - + .62323501E-02, .72207870E-02, .82072634E-02, - + .13763800E-02, .16647108E-02, .18315095E-02, .22609546E-02, - + .29371365E-02, .32269242E-02, .42013871E-02, .51831640E-02, - + .61656036E-02, .71461424E-02, .81238644E-02, - + .13308234E-02, .16145061E-02, .17806848E-02, .22128231E-02, - + .28905622E-02, .31804843E-02, .41535427E-02, .51315837E-02, - + .61085774E-02, .70824325E-02, .80525652E-02 / - DATA ((QNS(IX,IQ),IQ=1,11),IX=55,60)/ - + .12837673E-02, .15648245E-02, .17311798E-02, .21672363E-02, - + .28481861E-02, .31388116E-02, .41120243E-02, .50875777E-02, - + .60602142E-02, .70283907E-02, .79919016E-02, - + .12348646E-02, .15155509E-02, .16828970E-02, .21238977E-02, - + .28095911E-02, .31014334E-02, .40761591E-02, .50502648E-02, - + .60194237E-02, .69827237E-02, .79403762E-02, - + .11837373E-02, .14660839E-02, .16351854E-02, .20824377E-02, - + .27743466E-02, .30678713E-02, .40452708E-02, .50187502E-02, - + .59850952E-02, .69441064E-02, .78964606E-02, - + .11299629E-02, .14164957E-02, .15881890E-02, .20426349E-02, - + .27420740E-02, .30376737E-02, .40186653E-02, .49921009E-02, - + .59560612E-02, .69111488E-02, .78585465E-02, - + .10730581E-02, .13661027E-02, .15411772E-02, .20040437E-02, - + .27122635E-02, .30102821E-02, .39955704E-02, .49693054E-02, - + .59310701E-02, .68823644E-02, .78249183E-02, - + .10124517E-02, .13147718E-02, .14940858E-02, .19663968E-02, - + .26844949E-02, .29851950E-02, .39752019E-02, .49492950E-02, - + .59087812E-02, .68561523E-02, .77937292E-02 / - DATA ((QNS(IX,IQ),IQ=1,11),IX=61,66)/ - + .94743934E-03, .12623048E-02, .14467723E-02, .19293092E-02, - + .26582282E-02, .29617944E-02, .39566495E-02, .49308604E-02, - + .58876914E-02, .68307277E-02, .77629220E-02, - + .87709510E-03, .12078434E-02, .13984037E-02, .18922722E-02, - + .26328613E-02, .29393982E-02, .39389115E-02, .49126549E-02, - + .58661192E-02, .68040863E-02, .77301855E-02, - + .80003432E-03, .11512021E-02, .13489637E-02, .18548695E-02, - + .26077745E-02, .29172751E-02, .39208494E-02, .48931264E-02, - + .58421153E-02, .67739063E-02, .76928437E-02, - + .74728276E-03, .11139882E-02, .13169042E-02, .18309152E-02, - + .25918433E-02, .29031567E-02, .39087888E-02, .48794411E-02, - + .58248718E-02, .67520482E-02, .76657822E-02, - + .68607146E-03, .10738550E-02, .12829850E-02, .18060285E-02, - + .25754357E-02, .28885351E-02, .38957414E-02, .48640515E-02, - + .58051650E-02, .67269858E-02, .76348069E-02, - + .63109450E-03, .10367482E-02, .12514084E-02, .17826892E-02, - + .25595864E-02, .28740799E-02, .38816468E-02, .48465123E-02, - + .57822992E-02, .66978340E-02, .75988779E-02 / - DATA ((QNS(IX,IQ),IQ=1,11),IX=67,72)/ - + .57163765E-03, .99813228E-03, .12188881E-02, .17584077E-02, - + .25426985E-02, .28583936E-02, .38654087E-02, .48257681E-02, - + .57551647E-02, .66633858E-02, .75566689E-02, - + .50657062E-03, .95704297E-03, .11845379E-02, .17327410E-02, - + .25243440E-02, .28410126E-02, .38463804E-02, .48009655E-02, - + .57226974E-02, .66223801E-02, .75067324E-02, - + .43403276E-03, .91310695E-03, .11482193E-02, .17053575E-02, - + .25041185E-02, .28214669E-02, .38238284E-02, .47710915E-02, - + .56836274E-02, .65733013E-02, .74473219E-02, - + .35039449E-03, .86517580E-03, .11092160E-02, .16756579E-02, - + .24814762E-02, .27991587E-02, .37968634E-02, .47349199E-02, - + .56363973E-02, .65142848E-02, .73762853E-02, - + .24582000E-03, .81114075E-03, .10664663E-02, .16426319E-02, - + .24557333E-02, .27733813E-02, .37644526E-02, .46909759E-02, - + .55790963E-02, .64430088E-02, .72909221E-02, - + .35476281E-04, .72180846E-03, .10002272E-02, .15994064E-02, - + .24252383E-02, .27432269E-02, .37260412E-02, .46380637E-02, - + .55097681E-02, .63568163E-02, .71879309E-02 / - DATA ((QNS(IX,IQ),IQ=1,11),IX=73,78)/ - + .30202087E-04, .72409806E-03, .10007038E-02, .15989871E-02, - + .24141988E-02, .27261258E-02, .36867927E-02, .45761415E-02, - + .54257843E-02, .62515843E-02, .70622102E-02, - + .25000061E-04, .72496943E-03, .99849456E-03, .15936608E-02, - + .23942941E-02, .26984934E-02, .36318651E-02, .44939639E-02, - + .53173834E-02, .61180494E-02, .69044800E-02, - + .19868037E-04, .72366704E-03, .99236052E-03, .15812239E-02, - + .23618541E-02, .26560733E-02, .35552515E-02, .43839971E-02, - + .51756361E-02, .59459638E-02, .67032245E-02, - + .14803957E-04, .71882695E-03, .98005263E-03, .15577927E-02, - + .23104828E-02, .25914747E-02, .34465918E-02, .42332974E-02, - + .49852394E-02, .57177851E-02, .64387219E-02, - + .98058217E-05, .70762285E-03, .95700304E-03, .15153018E-02, - + .22270584E-02, .24895843E-02, .32848851E-02, .40157419E-02, - + .47153663E-02, .53982073E-02, .60712975E-02, - + .48717807E-05, .68005547E-03, .90639328E-03, .14304101E-02, - + .20745308E-02, .23080043E-02, .30119694E-02, .36594281E-02, - + .42814114E-02, .48904535E-02, .54922933E-02 / - DATA ((GL(IX,IQ),IQ=1,11),IX=1,6)/ - + .39315710E+02, .20245180E+03, .29706970E+03, .38998940E+03, - + .60235050E+03, .69640340E+03, .10156940E+04, .13391290E+04, - + .16625500E+04, .19842600E+04, .23036300E+04, - + .13015950E+02, .49272890E+02, .67578800E+02, .84305940E+02, - + .11989870E+03, .13482840E+03, .18292200E+03, .22887100E+03, - + .27305840E+03, .31586090E+03, .35758670E+03, - + .77627230E+01, .25476180E+02, .33880740E+02, .41311560E+02, - + .56675360E+02, .62984860E+02, .82935480E+02, .10164970E+03, - + .11947380E+03, .13666090E+03, .15338970E+03, - + .55138630E+01, .16482330E+02, .21481590E+02, .25806310E+02, - + .34593800E+02, .38157860E+02, .49312930E+02, .59683670E+02, - + .69527700E+02, .79015690E+02, .88260600E+02, - + .42658210E+01, .11894110E+02, .15268630E+02, .18139960E+02, - + .23903340E+02, .26221040E+02, .33428250E+02, .40096080E+02, - + .46419510E+02, .52520490E+02, .58476340E+02, - + .34724210E+01, .91583450E+01, .11614240E+02, .13676010E+02, - + .17776240E+02, .19414830E+02, .24487940E+02, .29168890E+02, - + .33609710E+02, .37901580E+02, .42100420E+02 / - DATA ((GL(IX,IQ),IQ=1,11),IX=7,12)/ - + .29236900E+01, .73619860E+01, .92410990E+01, .10800740E+02, - + .13879670E+02, .15104270E+02, .18884070E+02, .22367230E+02, - + .25675400E+02, .28879140E+02, .32020490E+02, - + .25216790E+01, .61023070E+01, .75924430E+01, .88169690E+01, - + .11219890E+02, .12172050E+02, .15104770E+02, .17806420E+02, - + .20376430E+02, .22870820E+02, .25322180E+02, - + .22145510E+01, .51757430E+01, .63895740E+01, .73782130E+01, - + .93086000E+01, .10071270E+02, .12417000E+02, .14578650E+02, - + .16638900E+02, .18643140E+02, .20617200E+02, - + .19723110E+01, .44689910E+01, .54786420E+01, .62943900E+01, - + .78805140E+01, .85057080E+01, .10426880E+02, .12198810E+02, - + .13891190E+02, .15541450E+02, .17170380E+02, - + .12192910E+01, .24316200E+01, .28947910E+01, .32561530E+01, - + .39488150E+01, .42202090E+01, .50550090E+01, .58326740E+01, - + .65854590E+01, .73288830E+01, .80706300E+01, - + .89568560E+00, .16476350E+01, .19244260E+01, .21352100E+01, - + .25370800E+01, .26946220E+01, .31820390E+01, .36420290E+01, - + .40930590E+01, .45432050E+01, .49959960E+01 / - DATA ((GL(IX,IQ),IQ=1,11),IX=13,18)/ - + .70236720E+00, .12133440E+01, .13958970E+01, .15320790E+01, - + .17914540E+01, .18935330E+01, .22120250E+01, .25170300E+01, - + .28198830E+01, .31250270E+01, .34340990E+01, - + .57403860E+00, .94195960E+00, .10701270E+01, .11639690E+01, - + .13431070E+01, .14140590E+01, .16377030E+01, .18552240E+01, - + .20738340E+01, .22959820E+01, .25223120E+01, - + .48276260E+00, .75846460E+00, .85241990E+00, .91998680E+00, - + .10496390E+01, .11014220E+01, .12665440E+01, .14297320E+01, - + .15956310E+01, .17655070E+01, .19394290E+01, - + .41459380E+00, .62730140E+00, .69839230E+00, .74857360E+00, - + .84566840E+00, .88484390E+00, .10113570E+01, .11384390E+01, - + .12690460E+01, .14037090E+01, .15421800E+01, - + .36179650E+00, .52962120E+00, .58475120E+00, .62281720E+00, - + .69741960E+00, .72788010E+00, .82761280E+00, .92945410E+00, - + .10352090E+01, .11449400E+01, .12582510E+01, - + .31973670E+00, .45602200E+00, .50002460E+00, .52755250E+00, - + .58588310E+00, .61006640E+00, .69047460E+00, .77397260E+00, - + .86153110E+00, .95289100E+00, .10475210E+01 / - DATA ((GL(IX,IQ),IQ=1,11),IX=19,24)/ - + .28546990E+00, .39609320E+00, .43120210E+00, .45286930E+00, - + .49941110E+00, .51900170E+00, .58512720E+00, .65489610E+00, - + .72871570E+00, .80612360E+00, .88651230E+00, - + .25703600E+00, .34778440E+00, .37611500E+00, .39334930E+00, - + .43098980E+00, .44710000E+00, .50233750E+00, .56153960E+00, - + .62470790E+00, .69125440E+00, .76057760E+00, - + .23307990E+00, .30815390E+00, .33121990E+00, .34503790E+00, - + .37582200E+00, .38924040E+00, .43599920E+00, .48689240E+00, - + .54162370E+00, .59951500E+00, .65993800E+00, - + .21263500E+00, .27515820E+00, .29407020E+00, .30521350E+00, - + .33062720E+00, .34192670E+00, .38196380E+00, .42620350E+00, - + .47413120E+00, .52501650E+00, .57824470E+00, - + .19499370E+00, .24733700E+00, .26292730E+00, .27194790E+00, - + .29309460E+00, .30270110E+00, .33732640E+00, .37615440E+00, - + .41850880E+00, .46361800E+00, .51082990E+00, - + .17962590E+00, .22362120E+00, .23652510E+00, .24384140E+00, - + .26155530E+00, .26979150E+00, .30000080E+00, .33436720E+00, - + .37209560E+00, .41239260E+00, .45459160E+00 / - DATA ((GL(IX,IQ),IQ=1,11),IX=25,30)/ - + .16612660E+00, .20321190E+00, .21392240E+00, .21985520E+00, - + .23477780E+00, .24189180E+00, .26845490E+00, .29909880E+00, - + .33294350E+00, .36919390E+00, .40722360E+00, - + .15418160E+00, .18550240E+00, .19440770E+00, .19920540E+00, - + .21183550E+00, .21802150E+00, .24154210E+00, .26904760E+00, - + .29959740E+00, .33241030E+00, .36693600E+00, - + .14354290E+00, .17002830E+00, .17743740E+00, .18129060E+00, - + .19202030E+00, .19743110E+00, .21838900E+00, .24322370E+00, - + .27095230E+00, .30081140E+00, .33232360E+00, - + .13401250E+00, .15663680E+00, .16284470E+00, .16565330E+00, - + .17478120E+00, .17953840E+00, .19831970E+00, .22086330E+00, - + .24615430E+00, .27343450E+00, .30220600E+00, - + .10417360E+00, .11535630E+00, .11815790E+00, .11911660E+00, - + .12408260E+00, .12707970E+00, .13982000E+00, .15582030E+00, - + .17404900E+00, .19379540E+00, .21450010E+00, - + .83280005E-01, .88074952E-01, .89076415E-01, .89106910E-01, - + .91864996E-01, .93877465E-01, .10307430E+00, .11506430E+00, - + .12887400E+00, .14388710E+00, .15967520E+00 / - DATA ((GL(IX,IQ),IQ=1,11),IX=31,36)/ - + .67934953E-01, .69085434E-01, .69108382E-01, .68593055E-01, - + .70118375E-01, .71543127E-01, .78508377E-01, .87859437E-01, - + .98705448E-01, .11052400E+00, .12302120E+00, - + .56260787E-01, .55174585E-01, .54643415E-01, .53940937E-01, - + .54771874E-01, .55829812E-01, .61310552E-01, .68827577E-01, - + .77579148E-01, .87120317E-01, .97241007E-01, - + .47136471E-01, .44782624E-01, .43963388E-01, .43144271E-01, - + .43570966E-01, .44388734E-01, .48833929E-01, .55020325E-01, - + .62230367E-01, .70076510E-01, .78366145E-01, - + .39851971E-01, .36729421E-01, .35761900E-01, .34960799E-01, - + .35165071E-01, .35822459E-01, .39520901E-01, .44708878E-01, - + .50748222E-01, .57299107E-01, .64171284E-01, - + .33936139E-01, .30413296E-01, .29391401E-01, .28638413E-01, - + .28721986E-01, .29267857E-01, .32407962E-01, .36824454E-01, - + .41951463E-01, .47493108E-01, .53274922E-01, - + .29064327E-01, .25394445E-01, .24376754E-01, .23667054E-01, - + .23691460E-01, .24157966E-01, .26869521E-01, .30675927E-01, - + .35078317E-01, .39836071E-01, .44877306E-01 / - DATA ((GL(IX,IQ),IQ=1,11),IX=37,42)/ - + .25005670E-01, .21313759E-01, .20330390E-01, .19698773E-01, - + .19704042E-01, .20112814E-01, .22487143E-01, .25800835E-01, - + .29612962E-01, .33709742E-01, .37998725E-01, - + .21591624E-01, .17993903E-01, .17066699E-01, .16497068E-01, - + .16503645E-01, .16868832E-01, .18971251E-01, .21880019E-01, - + .25205512E-01, .28755449E-01, .32410495E-01, - + .18696362E-01, .15236171E-01, .14373514E-01, .13882327E-01, - + .13905123E-01, .14237027E-01, .16116453E-01, .18687543E-01, - + .21608196E-01, .24718836E-01, .27949309E-01, - + .16224073E-01, .12943409E-01, .12151208E-01, .11731592E-01, - + .11776471E-01, .12081807E-01, .13774335E-01, .16059784E-01, - + .18637422E-01, .21368474E-01, .24185961E-01, - + .14100579E-01, .11029239E-01, .10308568E-01, .99482210E-02, - + .10017652E-01, .10301282E-01, .11834858E-01, .13876001E-01, - + .16161347E-01, .18575162E-01, .21078646E-01, - + .12267570E-01, .94079394E-02, .87572867E-02, .84591992E-02, - + .85540330E-02, .88194236E-02, .10215702E-01, .12045618E-01, - + .14078925E-01, .16218534E-01, .18442789E-01 / - DATA ((GL(IX,IQ),IQ=1,11),IX=43,48)/ - + .10678612E-01, .80411639E-02, .74585718E-02, .72102095E-02, - + .73285024E-02, .75779841E-02, .88539496E-02, .10499517E-01, - + .12312989E-01, .14205817E-01, .16131215E-01, - + .92962785E-02, .68717860E-02, .63530938E-02, .61557251E-02, - + .62960787E-02, .65315128E-02, .77010165E-02, .91844928E-02, - + .10807140E-01, .12500655E-01, .14262684E-01, - + .80900881E-02, .58743884E-02, .54162336E-02, .52629183E-02, - + .54223728E-02, .56449408E-02, .67190123E-02, .80587724E-02, - + .95121395E-02, .11018037E-01, .12558649E-01, - + .70349826E-02, .50230976E-02, .46202401E-02, .45038406E-02, - + .46794270E-02, .48900503E-02, .58778906E-02, .70894663E-02, - + .83929282E-02, .97336173E-02, .11080893E-01, - + .61101746E-02, .42890897E-02, .39374796E-02, .38562235E-02, - + .40452047E-02, .42445557E-02, .51537910E-02, .62503573E-02, - + .74207983E-02, .86196940E-02, .98239370E-02, - + .52982839E-02, .36604956E-02, .33559944E-02, .33026745E-02, - + .35019240E-02, .36904460E-02, .45274529E-02, .55202697E-02, - + .65719620E-02, .76472559E-02, .87406971E-02 / - DATA ((GL(IX,IQ),IQ=1,11),IX=49,54)/ - + .45846859E-02, .31162135E-02, .28544515E-02, .28278052E-02, - + .30347600E-02, .32128408E-02, .39831395E-02, .48819482E-02, - + .58267280E-02, .67886505E-02, .77651339E-02, - + .39569810E-02, .26473093E-02, .24247454E-02, .24201476E-02, - + .26318897E-02, .27997717E-02, .35080994E-02, .43213819E-02, - + .51694019E-02, .60254131E-02, .68709645E-02, - + .34046043E-02, .22438292E-02, .20557572E-02, .20694688E-02, - + .22834097E-02, .24413213E-02, .30918797E-02, .38271116E-02, - + .45877709E-02, .53499108E-02, .60871537E-02, - + .29184977E-02, .18943140E-02, .17375646E-02, .17673951E-02, - + .19812547E-02, .21293866E-02, .27258748E-02, .33896712E-02, - + .40718531E-02, .47570397E-02, .54436428E-02, - + .24908588E-02, .15938922E-02, .14650387E-02, .15071268E-02, - + .17186721E-02, .18571820E-02, .24029033E-02, .30011062E-02, - + .36116906E-02, .42246808E-02, .48497366E-02, - + .21149423E-02, .13337741E-02, .12296776E-02, .12825140E-02, - + .14899448E-02, .16190086E-02, .21169737E-02, .26547844E-02, - + .31992192E-02, .37372273E-02, .42481385E-02 / - DATA ((GL(IX,IQ),IQ=1,11),IX=55,60)/ - + .17848848E-02, .11100007E-02, .10279622E-02, .10888171E-02, - + .12903691E-02, .14101348E-02, .18630619E-02, .23452309E-02, - + .28302725E-02, .33104452E-02, .37802462E-02, - + .14955774E-02, .91816997E-03, .85495703E-03, .92171424E-03, - + .11158739E-02, .12265068E-02, .16369194E-02, .20677091E-02, - + .24983147E-02, .29245843E-02, .33496965E-02, - + .12425565E-02, .75325108E-03, .70664968E-03, .77761279E-03, - + .96307229E-03, .10647400E-02, .14349712E-02, .18182454E-02, - + .21985855E-02, .25711039E-02, .29267429E-02, - + .10219081E-02, .61274960E-03, .58026408E-03, .65349269E-03, - + .82906091E-03, .92193682E-03, .12541724E-02, .15935067E-02, - + .19281739E-02, .22555219E-02, .25712277E-02, - + .83019893E-03, .49286627E-03, .47243104E-03, .54662937E-03, - + .71134872E-03, .79562637E-03, .10919393E-02, .13906204E-02, - + .16835885E-02, .19713063E-02, .22600864E-02, - + .66441589E-03, .39152073E-03, .38124149E-03, .45483175E-03, - + .60783821E-03, .68371580E-03, .94607181E-03, .12071352E-02, - + .14617282E-02, .17114556E-02, .19640063E-02 / - DATA ((GL(IX,IQ),IQ=1,11),IX=61,66)/ - + .52191544E-03, .30650964E-03, .30425549E-03, .37610304E-03, - + .51669736E-03, .58439397E-03, .81469049E-03, .10409664E-02, - + .12601558E-02, .14725731E-02, .16762451E-02, - + .40038952E-03, .23561563E-03, .23987702E-03, .30875663E-03, - + .43637617E-03, .49612531E-03, .69619791E-03, .89036964E-03, - + .10774892E-02, .12590361E-02, .14368123E-02, - + .29784342E-03, .17733237E-03, .18638084E-03, .25133189E-03, - + .36553078E-03, .41758516E-03, .58923062E-03, .75382303E-03, - + .91158360E-03, .10640966E-02, .12122908E-02, - + .24263514E-03, .14657351E-03, .15790347E-03, .21989158E-03, - + .32554189E-03, .37292621E-03, .52770838E-03, .67504530E-03, - + .81580994E-03, .95157587E-03, .10827127E-02, - + .19389040E-03, .11982659E-03, .13287440E-03, .19154098E-03, - + .28854961E-03, .33137732E-03, .46998850E-03, .60099066E-03, - + .72579295E-03, .84621052E-03, .96362067E-03, - + .15126605E-03, .96748132E-04, .11102766E-03, .16600316E-03, - + .25431774E-03, .29271128E-03, .41584924E-03, .53141493E-03, - + .64115948E-03, .74654218E-03, .84706687E-03 / - DATA ((GL(IX,IQ),IQ=1,11),IX=67,72)/ - + .11422795E-03, .76975164E-04, .91862144E-04, .14302804E-03, - + .22263659E-03, .25672730E-03, .36509661E-03, .46611740E-03, - + .56187488E-03, .65453263E-03, .74745726E-03, - + .82548140E-04, .60335195E-04, .75479809E-04, .12240191E-03, - + .19332457E-03, .22325170E-03, .31756415E-03, .40491007E-03, - + .48751378E-03, .56748604E-03, .64830645E-03, - + .56067460E-04, .46576439E-04, .61551989E-04, .10392733E-03, - + .16621596E-03, .19212785E-03, .27310662E-03, .34764089E-03, - + .41793621E-03, .48556499E-03, .55175397E-03, - + .34734632E-04, .35494017E-04, .49847993E-04, .87416200E-04, - + .14115951E-03, .16321550E-03, .23160117E-03, .29418812E-03, - + .35311008E-03, .40979666E-03, .46541318E-03, - + .18723960E-04, .26813012E-04, .39640283E-04, .72688417E-04, - + .11801605E-03, .13638902E-03, .19294648E-03, .24444712E-03, - + .29276972E-03, .33828942E-03, .37740954E-03, - + .93565259E-05, .20590080E-04, .31268002E-04, .59558730E-04, - + .96649608E-04, .11153039E-03, .15706076E-03, .19835927E-03, - + .23715146E-03, .27442537E-03, .31072315E-03 / - DATA ((GL(IX,IQ),IQ=1,11),IX=73,78)/ - + .58125347E-05, .15763651E-04, .24259758E-04, .47547979E-04, - + .76808079E-04, .88442721E-04, .12384965E-03, .15586225E-03, - + .18594966E-03, .21513535E-03, .24504971E-03, - + .33188869E-05, .11465197E-04, .17867565E-04, .36357698E-04, - + .58392205E-04, .67069799E-04, .93331379E-04, .11700520E-03, - + .13930532E-03, .16144506E-03, .18695639E-03, - + .16769123E-05, .75460362E-05, .11905428E-04, .26007532E-04, - + .41472722E-04, .47497775E-04, .65626220E-04, .81923725E-04, - + .97279568E-04, .11249990E-03, .12980429E-03, - + .69826064E-06, .41568615E-05, .66606681E-05, .16558290E-04, - + .26177566E-04, .29877849E-04, .40942730E-04, .50868424E-04, - + .60249815E-04, .69740156E-04, .81512750E-04, - + .20423862E-06, .11978445E-05, .19153056E-05, .81375920E-05, - + .12744816E-04, .14486184E-04, .19656443E-04, .24288327E-04, - + .28693794E-04, .33321077E-04, .39870585E-04, - + .25206663E-07, .43935846E-08, .36314065E-08, .11058760E-05, - + .16963572E-05, .19157351E-05, .25642855E-05, .31440914E-05, - + .36332465E-05, .35040996E-05, -.10333942E-06 / -****************************************************************** - q2=q*q -*if x is out of range - IF((X.LT.5.0D-4).OR.(X.GT.1.0D0)) GOTO 90 -******************************************************************* - IF (ICALL.NE.1) THEN -* get the x coordinates - CALL GS2XCOR(Y,NP) -C OPEN(UNIT=50,FILE='FOR020.DAT',status='old') -C DO 20 IQ=1,NQ -C DO 10 IX=1,NP -C READ(50,*)SIG(IX,IQ),QNS(IX,IQ),GL(IX,IQ) -C 10 CONTINUE -C 20 CONTINUE - ICALL=1 - END IF -* - DO 30 IX=1,NP - A(IX)=Y(IX) - 30 CONTINUE - DO 40 IQ=1,NQ - A(NP+IQ)=QT(IQ) - 40 CONTINUE -* - NA(1)=NP - NA(2)=NQ - XT(1)=X - XT(2)=Q2 - XSIG=DBFINT(2,XT,NA,A,SIG) - XQNS=DBFINT(2,XT,NA,A,QNS) - G =DBFINT(2,XT,NA,A,GL) -* - IF (Q2.LT.50.0D0) THEN -C Use three flavour evolution. - U=(XSIG+9D0*XQNS)/6.0D0 - D=(XSIG-4.5D0*XQNS)/6.0D0 - S=D - C=0.0D0 - B=0.0D0 -* - ELSE IF((Q2.GT.50.0D0).AND.(Q2.LT.250.0D0)) THEN -C Use four flavour evolution - U=(XSIG+6.0D0*XQNS)/8.0D0 - D=(XSIG-6.0D0*XQNS)/8.0D0 - S=D - C=U - B=0.0D0 - ELSE -C Use five flavour evolution - U=(XSIG+7.5D0*XQNS)/10.0D0 - D=(XSIG-5.0D0*XQNS)/10.0D0 - S=D - C=U - B=D - ENDIF - U=X*U - US=U - D=X*D - DS=D - S=X*S - C=X*C - B=X*B - G=X*G - 90 RETURN - END diff --git a/PDF/spdf/gsxcor.F b/PDF/spdf/gsxcor.F deleted file mode 100644 index 24fc5d3a825..00000000000 --- a/PDF/spdf/gsxcor.F +++ /dev/null @@ -1,25 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE GSXCOR(Y,NP) -C -#include "pdf/impdp.inc" -#include "pdf/expdp.inc" - + Y(NP) - N=1 - DO 10 IX=1,20,2 - Y(N)= (IX)/2000.0D0 - N=N+1 - 10 CONTINUE - DO 20 IX=30,200,10 - Y(N)= (IX)/2000.0D0 - N=N+1 - 20 CONTINUE - DO 30 IX=240,1600,40 - Y(N)= (IX)/2000.0D0 - N=N+1 - 30 CONTINUE - DO 40 IX=1625,1980,25 - Y(N)= (IX)/2000.0D0 - N=N+1 - 40 CONTINUE - RETURN - END diff --git a/PDF/spdf/hmrs1eb.F b/PDF/spdf/hmrs1eb.F deleted file mode 100644 index 4c6d8a4fe65..00000000000 --- a/PDF/spdf/hmrs1eb.F +++ /dev/null @@ -1,55 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:46 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:24 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE HMRS1EB(X,SCALE,MODE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C***************************************************************C -C C -C C -C NEW VERSIONS !!!! JANUARY 1990 (AS DESCRIBED IN C -C "PARTON DISTRIBUTIONS ... " P.N. HARRIMAN, A.D. MARTIN, C -C R.G. ROBERTS AND W.J. STIRLING PREPRINT DTP-90-04 ) C -C C -C MODE 1 CORRESPONDS TO HARRIMAN, C -C MARTIN, ROBERTS, STIRLING (EMC FIT) WITH LAMBDA= 100 MEV C -C C -C MODE 2 CORRESPONDS TO HARRIMAN, C -C MARTIN, ROBERTS, STIRLING (BCDMS FIT) WITH LAMBDA= 190 MEV C -C C -C >>>>>>>> CROSS CHECK <<<<<<<< C -C C -C THE FIRST NUMBER IN THE "E" GRID IS 0.04096 C -C THE FIRST NUMBER IN THE "B" GRID IS 0.04574 C -C C -C C -C -*- C -C C -C (NOTE THAT X TIMES THE PARTON DISTRIBUTION FUNCTION C -C IS RETURNED I.E. G(X) = GLU/X ETC, AND THAT "SEA" C -C IS THE LIGHT QUARK SEA I.E. UBAR(X)=DBAR(X)= ... C -C = SEA/X FOR A PROTON. IF IN DOUBT, CHECK THE C -C MOMENTUM SUM RULE! NOTE ALSO THAT SCALE=Q IN GEV) C -C C -C -*- C -C C -C (THE RANGE OF APPLICABILITY IS CURRENTLY: C -C 10**-4 < X < 1 AND 5 < Q**2 < 1.31 * 10**6 C -C HIGHER Q**2 VALUES CAN BE SUPPLIED ON REQUEST C -C - PROBLEMS, COMMENTS ETC TO WJS@UK.AC.DUR.HEP C -C C -C C -C***************************************************************C -#include "pdf/impdp.inc" - IF(MODE.EQ.1) CALL STRH1E(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - IF(MODE.EQ.2) CALL STRH1B(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - RETURN - END diff --git a/PDF/spdf/hmrs2eb.F b/PDF/spdf/hmrs2eb.F deleted file mode 100644 index 81cff68bd2d..00000000000 --- a/PDF/spdf/hmrs2eb.F +++ /dev/null @@ -1,56 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:46 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:24 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE HMRS2EB(X,SCALE,MODE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C***************************************************************C -C C -C C -C NEW VERSIONS !!!! JANUARY 1990 (AS DESCRIBED IN C -C "PARTON DISTRIBUTIONS ... " P.N. HARRIMAN, A.D. MARTIN, C -C R.G. ROBERTS AND W.J. STIRLING PREPRINT DTP-90-04 ) C -C C -C ********* DEBUGGED APRIL 1990******** C -C MODE 1 CORRESPONDS TO HARRIMAN, C -C MARTIN, ROBERTS, STIRLING (EMC FIT) WITH LAMBDA= 100 MEV C -C C -C MODE 2 CORRESPONDS TO HARRIMAN, C -C MARTIN, ROBERTS, STIRLING (BCDMS FIT) WITH LAMBDA= 190 MEV C -C C -C >>>>>>>> CROSS CHECK <<<<<<<< C -C C -C THE FIRST NUMBER IN THE "E" GRID IS 0.04096 C -C THE FIRST NUMBER IN THE "B" GRID IS 0.04574 C -C C -C C -C -*- C -C C -C (NOTE THAT X TIMES THE PARTON DISTRIBUTION FUNCTION C -C IS RETURNED I.E. G(X) = GLU/X ETC, AND THAT "SEA" C -C IS THE LIGHT QUARK SEA I.E. UBAR(X)=DBAR(X)= ... C -C = SEA/X FOR A PROTON. IF IN DOUBT, CHECK THE C -C MOMENTUM SUM RULE! NOTE ALSO THAT SCALE=Q IN GEV) C -C C -C -*- C -C C -C (THE RANGE OF APPLICABILITY IS CURRENTLY: C -C 10**-4 < X < 1 AND 5 < Q**2 < 1.31 * 10**6 C -C HIGHER Q**2 VALUES CAN BE SUPPLIED ON REQUEST C -C - PROBLEMS, COMMENTS ETC TO WJS@UK.AC.DUR.HEP C -C C -C C -C***************************************************************C -#include "pdf/impdp.inc" - IF(MODE.EQ.1) CALL STRH2E(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - IF(MODE.EQ.2) CALL STRH2B(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - RETURN - END diff --git a/PDF/spdf/hmrs3eb.F b/PDF/spdf/hmrs3eb.F deleted file mode 100644 index 82131838fff..00000000000 --- a/PDF/spdf/hmrs3eb.F +++ /dev/null @@ -1,59 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:47 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:24 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE HMRS3EB(X,SCALE,MODE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C***************************************************************C -C C -C C -C NEW VERSIONS !!!! JANUARY 1990 (AS DESCRIBED IN C -C "PARTON DISTRIBUTIONS ... " P.N. HARRIMAN, A.D. MARTIN, C -C R.G. ROBERTS AND W.J. STIRLING PREPRINT DTP-90-04 ) C -C C -C ********* DEBUGGED APRIL 1990******** C -C C -C ****** NOW DOWN TO X=10**-5 ********* C -C C -C MODE 1 CORRESPONDS TO HARRIMAN, C -C MARTIN, ROBERTS, STIRLING (EMC FIT) WITH LAMBDA= 100 MEV C -C C -C MODE 2 CORRESPONDS TO HARRIMAN, C -C MARTIN, ROBERTS, STIRLING (BCDMS FIT) WITH LAMBDA= 190 MEV C -C C -C >>>>>>>> CROSS CHECK <<<<<<<< C -C C -C THE FIRST NUMBER IN THE "E" GRID IS .01969 C -C THE FIRST NUMBER IN THE "B" GRID IS .03058 C -C C -C C -C -*- C -C C -C (NOTE THAT X TIMES THE PARTON DISTRIBUTION FUNCTION C -C IS RETURNED I.E. G(X) = GLU/X ETC, AND THAT "SEA" C -C IS THE LIGHT QUARK SEA I.E. UBAR(X)=DBAR(X)= C -C SEA/X FOR A PROTON. IF IN DOUBT, CHECK THE C -C MOMENTUM SUM RULE! NOTE ALSO THAT SCALE=Q IN GEV) C -C C -C -*- C -C C -C (THE RANGE OF APPLICABILITY IS CURRENTLY: C -C 10**-5 < X < 1 AND 5 < Q**2 < 1.31 * 10**6 C -C HIGHER Q**2 VALUES CAN BE SUPPLIED ON REQUEST C -C - PROBLEMS, COMMENTS ETC TO WJS@UK.AC.DUR.HEP C -C C -C C -C***************************************************************C -#include "pdf/impdp.inc" - IF(MODE.EQ.1) CALL STRH3E(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - IF(MODE.EQ.2) CALL STRH3B(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - RETURN - END diff --git a/PDF/spdf/hmrsgeb.F b/PDF/spdf/hmrsgeb.F deleted file mode 100644 index e8603fb1fac..00000000000 --- a/PDF/spdf/hmrsgeb.F +++ /dev/null @@ -1,64 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:49 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:24 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE HMRSGEB(X,SCALE,MODE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C***************************************************************C -C C -C ----- VARIABLE GLUONS ---- C -C C -C NEW VERSIONS !!!! JANUARY 1990 (AS DESCRIBED IN C -C "PARTON DISTRIBUTIONS ... " P.N. HARRIMAN, A.D. MARTIN, C -C R.G. ROBERTS AND W.J. STIRLING PREPRINT DTP-90-04 ) C -C C -C MODE 1 CORRESPONDS TO HARRIMAN, C -C MARTIN, ROBERTS, STIRLING (EMC FIT) WITH LAMBDA= 100 MEV C -C AND XG --> CONSTANT AS X--> 0 AT Q0**2 C -C C -C MODE 2 CORRESPONDS TO HARRIMAN, C -C MARTIN, ROBERTS, STIRLING (EMC FIT) WITH LAMBDA= 100 MEV C -C AND XG --> X**0.5 AS X--> 0 AT Q0**2 C -C C -C MODE 3 CORRESPONDS TO HARRIMAN, C -C MARTIN, ROBERTS, STIRLING (EMC FIT) WITH LAMBDA= 100 MEV C -C AND XG --> X**-0.5 AS X--> 0 AT Q0**2 C -C C -C MODE 4 CORRESPONDS TO HARRIMAN, C -C MARTIN, ROBERTS, STIRLING (BCDMS FIT) WITH LAMBDA= 190 MEV C -C AND XG --> CONSTANT AS X--> 0 AT Q0**2 C -C C -C C -C C -C -*- C -C C -C (NOTE THAT X TIMES THE PARTON DISTRIBUTION FUNCTION C -C IS RETURNED I.E. G(X) = GLU/X ETC, AND THAT "SEA" C -C IS THE LIGHT QUARK SEA I.E. UBAR(X)=DBAR(X) C -C = SEA/X FOR A PROTON. IF IN DOUBT, CHECK THE C -C MOMENTUM SUM RULE! NOTE ALSO THAT SCALE=Q IN GEV) C -C C -C -*- C -C C -C (THE RANGE OF APPLICABILITY IS CURRENTLY: C -C 10**-5 < X < 1 AND 5 < Q**2 < 1.31 * 10**6 C -C HIGHER Q**2 VALUES CAN BE SUPPLIED ON REQUEST C -C - PROBLEMS, COMMENTS ETC TO WJS@UK.AC.DUR.HEP C -C C -C C -C***************************************************************C -#include "pdf/impdp.inc" - IF(MODE.EQ.1) CALL STRH3E(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - IF(MODE.EQ.2) CALL STRH3EP(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - IF(MODE.EQ.3) CALL STRH3EM(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - IF(MODE.EQ.4) CALL STRH3B(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - RETURN - END diff --git a/PDF/spdf/kmrseb.F b/PDF/spdf/kmrseb.F deleted file mode 100644 index 66afd8ba165..00000000000 --- a/PDF/spdf/kmrseb.F +++ /dev/null @@ -1,80 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:50 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:24 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE KMRSEB(X,SCALE,MODE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C***************************************************************C -C C -C ----- VARIABLE QUARKS AND GLUONS AT SMALL X ---- C -C C -C NEW VERSIONS !!!! JULY 1990 C -C "........................ " J. KWIECINSKI, A.D. MARTIN, C -C R.G. ROBERTS AND W.J. STIRLING PREPRINT DTP-90-46 ) C -C C -C MODE 1 CORRESPONDS TO HARRIMAN, C -C MARTIN, ROBERTS, STIRLING (BCDMS FIT) WITH LAMBDA= 190 MEV C -C WITH SMALL X BEHAVIOUR DETERMINED FROM FIT "HB FIT" C -C C -C MODE 2 CORRESPONDS TO KWIECINSKI, C -C MARTIN, ROBERTS, STIRLING (BCDMS FIT) WITH LAMBDA= 190 MEV C -C AND XG,XQ --> CONSTANT AS X--> 0 AT Q0**2 "B0 FIT" C -C C -C MODE 3 CORRESPONDS TO KWIECINSKI, C -C MARTIN, ROBERTS, STIRLING (BCDMS FIT) WITH LAMBDA= 190 MEV C -C AND XG,XQ --> X**-1/2 AS X--> 0 AT Q0**2 "B- FIT" C -C C -C MODE 4 CORRESPONDS TO KWIECINSKI, C -C MARTIN, ROBERTS, STIRLING (BCDMS FIT) WITH LAMBDA= 190 MEV C -C AND XG,XQ --> X**-1/2 AS X--> 0 AT Q0**2 "B-(5) FIT" C -C I.E. WITH WEAK (R=5 GEV^-1) SHADOWING INCLUDED C -C C -C MODE 5 CORRESPONDS TO KWIECINSKI, C -C MARTIN, ROBERTS, STIRLING (BCDMS FIT) WITH LAMBDA= 190 MEV C -C AND XG,XQ --> X**-1/2 AS X--> 0 AT Q0**2 "B-(2) FIT" C -C I.E. WITH STRONG (R=2 GEV^-1) SHADOWING INCLUDED C -C C -C C -C >>>>>>>> CROSS CHECK <<<<<<<< C -C C -C THE FIRST NUMBER IN THE "HB" GRID IS .03058 C -C THE FIRST NUMBER IN THE "B0" GRID IS .01727 C -C THE FIRST NUMBER IN THE "B-" GRID IS .01543 C -C THE FIRST NUMBER IN THE "B-5"GRID IS .0 C -C THE FIRST NUMBER IN THE "B-2"GRID IS .0 C -C C -C C -C C -C -*- C -C C -C (NOTE THAT X TIMES THE PARTON DISTRIBUTION FUNCTION C -C IS RETURNED I.E. G(X) = GLU/X ETC, AND THAT "SEA" C -C IS THE LIGHT QUARK SEA I.E. UBAR(X)=DBAR(X) C -C = SEA/X FOR A PROTON. IF IN DOUBT, CHECK THE C -C MOMENTUM SUM RULE! NOTE ALSO THAT SCALE=Q IN GEV) C -C C -C -*- C -C C -C (THE RANGE OF APPLICABILITY IS CURRENTLY: C -C 10**-5 < X < 1 AND 5 < Q**2 < 1.31 * 10**6 C -C HIGHER Q**2 VALUES CAN BE SUPPLIED ON REQUEST C -C - PROBLEMS, COMMENTS ETC TO WJS@UK.AC.DUR.HEP C -C C -C C -C***************************************************************C -#include "pdf/impdp.inc" - IF(MODE.EQ.1) CALL STRH3B(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - IF(MODE.EQ.2) CALL STRKB0O(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - IF(MODE.EQ.3) CALL STRKBM(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - IF(MODE.EQ.5) CALL SFKBMR2(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - IF(MODE.EQ.5) CALL SFKBMR5(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - RETURN - END diff --git a/PDF/spdf/kmrsgeb.F b/PDF/spdf/kmrsgeb.F deleted file mode 100644 index 3ff25353a2a..00000000000 --- a/PDF/spdf/kmrsgeb.F +++ /dev/null @@ -1,83 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:51 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:24 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE KMRSGEB(X,SCALE,MODE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C***************************************************************C -C C -C ----- VARIABLE LAMBDA AND GLUONS ---- C -C C -C NEW VERSIONS !!!! OCTOBER 1990 C -C "........................ " A.D. MARTIN, C -C R.G. ROBERTS AND W.J. STIRLING PREPRINT DTP-90-?? ) C -C C -C MODE 1 CORRESPONDS TO KWIECINSKI, C -C MARTIN, ROBERTS, STIRLING (BCDMS FIT) C -C WITH LAMBDA(4) = 190 MEV, ETAG = 5.10 C -C AND XG,XQ --> CONSTANT AS X--> 0 AT Q0**2 "B0 FIT" C -C C -C MODE 2 CORRESPONDS TO C -C MARTIN, ROBERTS, STIRLING (BCDMS FIT) C -C WITH LAMBDA(4) = 135 MEV, ETAG = 4.65 C -C AND XG,XQ --> CONSTANT AS X--> 0 AT Q0**2 "B135 FIT" C -C C -C MODE 3 CORRESPONDS TO C -C MARTIN, ROBERTS, STIRLING (BCDMS FIT) C -C WITH LAMBDA(4) = 160 MEV, ETAG = 4.25 C -C AND XG,XQ --> CONSTANT AS X--> 0 AT Q0**2 "B160 FIT" C -C C -C MODE 4 CORRESPONDS TO C -C MARTIN, ROBERTS, STIRLING (BCDMS FIT) C -C WITH LAMBDA(4) = 200 MEV, ETAG = 5.65 C -C AND XG,XQ --> CONSTANT AS X--> 0 AT Q0**2 "B200 FIT" C -C C -C MODE 5 CORRESPONDS TO C -C MARTIN, ROBERTS, STIRLING (BCDMS FIT) C -C WITH LAMBDA(4) = 235 MEV, ETAG = 5.20 C -C AND XG,XQ --> CONSTANT AS X--> 0 AT Q0**2 "B235 FIT" C -C C -C C -C >>>>>>>> CROSS CHECK <<<<<<<< C -C C -C THE FIRST NUMBER IN THE "B0" GRID IS .01727 C -C THE FIRST NUMBER IN THE "B135" GRID IS .01683 C -C THE FIRST NUMBER IN THE "B160" GRID IS .01663 C -C THE FIRST NUMBER IN THE "B200" GRID IS .01601 C -C THE FIRST NUMBER IN THE "B235" GRID IS .01571 C -C C -C C -C C -C -*- C -C C -C (NOTE THAT X TIMES THE PARTON DISTRIBUTION FUNCTION C -C IS RETURNED I.E. G(X) = GLU/X ETC, AND THAT "SEA" C -C IS THE LIGHT QUARK SEA I.E. UBAR(X)=DBAR(X) C -C = SEA/X FOR A PROTON. IF IN DOUBT, CHECK THE C -C MOMENTUM SUM RULE! NOTE ALSO THAT SCALE=Q IN GEV) C -C C -C -*- C -C C -C (THE RANGE OF APPLICABILITY IS CURRENTLY: C -C 10**-5 < X < 1 AND 5 < Q**2 < 1.31 * 10**6 C -C HIGHER Q**2 VALUES CAN BE SUPPLIED ON REQUEST C -C - PROBLEMS, COMMENTS ETC TO WJS@UK.AC.DUR.HEP C -C C -C C -C***************************************************************C -#include "pdf/impdp.inc" - IF(MODE.EQ.1) CALL STRKB0O(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - IF(MODE.EQ.2) CALL STRKB02(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - IF(MODE.EQ.3) CALL STRKB03(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - IF(MODE.EQ.4) CALL STRKB04(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - IF(MODE.EQ.5) CALL STRKB05(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - RETURN - END diff --git a/PDF/spdf/mrsdshd.F b/PDF/spdf/mrsdshd.F deleted file mode 100644 index f51ef0b23c3..00000000000 --- a/PDF/spdf/mrsdshd.F +++ /dev/null @@ -1,65 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:52 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:24 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE MRSDSHD(X,SCALE,MODE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GL) -C***************************************************************C -C C -C C -C MRS *** DIS SCHEME ** VERSIONS: S0',D0',D-' (FEB 1993) C -C NEW SET MRS(H) ADDED (DECEMBER 1993) C -C C -C MODE 1 IS THE MRS(S0'-DIS) SET C -C MODE 2 IS THE MRS(D0'-DIS) SET C -C MODE 3 IS THE MRS(D-'-DIS) SET C -C MODE 4 IS THE MRS(H-DIS) SET C -C ALL SETS ARE FITTED TO THE RECENT NMC C -C AND CCFR STRUCTURE FUNCTION DATA, C -C AND HAVE (D0',D-',H) UBAR < DBAR IN THE SEA. C -C BOTH THESE NEW SETS HAVE C -C LAMBDA(MSbar,NF=4) = 230 MeV C -C C -C THE REFERENCE IS: A.D. Martin, R.G. Roberts and C -C W.J. Stirling, RAL preprint RAL-93-077 (1993) C -C C -C C -C >>>>>>>> CROSS CHECK <<<<<<<< C -C C -C THE FIRST NUMBER IN THE "1" GRID IS 0.01733 C -C THE FIRST NUMBER IN THE "2" GRID IS 0.00930 C -C THE FIRST NUMBER IN THE "3" GRID IS 0.00783 C -C THE FIRST NUMBER IN THE "4" GRID IS 0.01508 C -C C -C -*- C -C C -C (NOTE THAT X TIMES THE PARTON DISTRIBUTION FUNCTION C -C IS RETURNED I.E. G(X) = GLU/X ETC. IF IN DOUBT, CHECK THE C -C MOMENTUM SUM RULE! NOTE ALSO THAT SCALE=Q IN GEV) C -C C -C -*- C -C C -C (THE RANGE OF APPLICABILITY IS CURRENTLY: C -C 10**-5 < X < 1 AND 5 < Q**2 < 1.31 * 10**6 C -C HIGHER Q**2 VALUES CAN BE SUPPLIED ON REQUEST C -C - PROBLEMS, COMMENTS ETC TO WJS@UK.AC.DUR.HEP C -C C -C C -C***************************************************************C -#include "pdf/impdp.inc" - IF(MODE.EQ.1) CALL SFDISS0(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT, - +GL) - IF(MODE.EQ.2) CALL SFDISD0(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT, - +GL) - IF(MODE.EQ.3) CALL SFDISDM(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT, - +GL) - IF(MODE.EQ.4)CALL SFDISH(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GL) - RETURN - END diff --git a/PDF/spdf/mrsdshp.F b/PDF/spdf/mrsdshp.F deleted file mode 100644 index d49516b0804..00000000000 --- a/PDF/spdf/mrsdshp.F +++ /dev/null @@ -1,78 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:53 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:25 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE MRSDSHP(X,SCALE,MODE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GL) -C***************************************************************C -C C -C C -C NEW MRS VERSIONS: S0', D0', D-' (NOVEMBER 1992) C -C MODE 1 IS THE 1990 KMRS(B0) SET; C -C MODES 2-4 ARE NEW SETS FITTED TO THE RECENT NMC C -C AND CCFR ***FINAL*** STRUCTURE FUNCTION DATA. C -C DIFFERENCES BETWEEN THESE AND THE APRIL 1992 C -C VERSIONS ARE SMALL! THE THREE NEW SETS HAVE C -C LAMBDA(MSbar,NF=4) = 230 MeV C -C C -C MODE 5 is a new (October 1993) preliminary "fit" C -C to the recent H1 + ZEUS F2 data at small x, C -C otherwise similar to D0', D-'. The exponent of the C -C gluon and sea at small x for this new set is -0.3 C -C (cf. -0.5 for D-') C -C C -C THE REFERENCE FOR SETS (2-4) IS: C -C A.D. Martin, R.G. Roberts and W.J. Stirling, C -C Phys. Lett. B306 (1993) 145 C -C C -C MODE 1: KMRS(B0) (Lambda(4) = 190 MeV) C -C MODE 2: MRS(S0') (updated B0, Lambda(4) = 230 MeV) C -C MODE 3: MRS(D0') (... but with ubar not= dbar) C -C MODE 4: MRS(D-') (updated B-, ubar not= dbar) C -C MODE 5: MRS(H) (a preliminary "HERA" fit, Oct. 1993) C -C C -C >>>>>>>> CROSS CHECK <<<<<<<< C -C C -C THE FIRST NUMBER IN THE "1" GRID IS 0.01727 C -C THE FIRST NUMBER IN THE "2" GRID IS 0.01617 C -C THE FIRST NUMBER IN THE "3" GRID IS 0.00820 C -C THE FIRST NUMBER IN THE "4" GRID IS 0.00678 C -C THE FIRST NUMBER IN THE "5" GRID IS 0.01399 C -C C -C NOTE THE EXTRA ARGUMENT IN THIS SUBROUTINE MRSEB, C -C TO ALLOW FOR THE POSSIBILITY OF A *** DIFFERENT *** C -C UBAR AND DBAR SEA! C -C C -C -*- C -C C -C (NOTE THAT X TIMES THE PARTON DISTRIBUTION FUNCTION C -C IS RETURNED I.E. G(X) = GLU/X ETC. IF IN DOUBT, CHECK THE C -C MOMENTUM SUM RULE! NOTE ALSO THAT SCALE=Q IN GEV) C -C C -C -*- C -C C -C (THE RANGE OF APPLICABILITY IS CURRENTLY: C -C 10**-5 < X < 1 AND 5 < Q**2 < 1.31 * 10**6 C -C HIGHER Q**2 VALUES CAN BE SUPPLIED ON REQUEST C -C - PROBLEMS, COMMENTS ETC TO WJS@UK.AC.DUR.HEP C -C C -C C -C***************************************************************C -#include "pdf/impdp.inc" - IF(MODE.EQ.1)CALL STRKB0(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GL) - IF(MODE.EQ.2)CALL SFMSBS0(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT, - +GL) - IF(MODE.EQ.3)CALL SFMSBD0(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT, - +GL) - IF(MODE.EQ.4)CALL SFMSBDM(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT, - +GL) - IF(MODE.EQ.5)CALL SFMSBH(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GL) - RETURN - END diff --git a/PDF/spdf/mrseb.F b/PDF/spdf/mrseb.F deleted file mode 100644 index 4517f3fd148..00000000000 --- a/PDF/spdf/mrseb.F +++ /dev/null @@ -1,46 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:53 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:25 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE MRSEB(X,SCALE,MODE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C***************************************************************C -C C -C MODE 1 CORRESPONDS TO C -C MARTIN, ROBERTS, STIRLING (EMC FIT) WITH LAMBDA= 100 MEV C -C C -C MODE 2 CORRESPONDS TO C -C MARTIN, ROBERTS, STIRLING (BCDMS FIT) WITH LAMBDA= 200 MEV C -C C -C ( SOFT GLUE : X G(X,Q0) = A (1-X)**5 ) C -C C -C -*- C -C C -C (NOTE THAT X TIMES THE PARTON DISTRIBUTION FUNCTION C -C IS RETURNED I.E. G(X) = GLU/X ETC, AND THAT "SEA" C -C IS THE LIGHT QUARK SEA I.E. UBAR(X)=DBAR(X)= ... C -C = SEA/X FOR A PROTON. IF IN DOUBT, CHECK THE C -C MOMENTUM SUM RULE! NOTE ALSO THAT SCALE=Q IN GEV) C -C C -C -*- C -C C -C (THE RANGE OF APPLICABILITY IS CURRENTLY: C -C 10**-4 < X < 1 AND 5 < Q**2 < 1.31 * 10**6 C -C HIGHER Q**2 VALUES CAN BE SUPPLIED ON REQUEST C -C - PROBLEMS, COMMENTS ETC TO SRG$T3@GEN C -C C -C C -C***************************************************************C -#include "pdf/impdp.inc" - IF(MODE.EQ.1) CALL STRUCE(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - IF(MODE.EQ.2) CALL STRUCB(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - RETURN - END diff --git a/PDF/spdf/mrsebp.F b/PDF/spdf/mrsebp.F deleted file mode 100644 index 67d02ab3c2b..00000000000 --- a/PDF/spdf/mrsebp.F +++ /dev/null @@ -1,50 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:54 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:25 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE MRSEBP(X,SCALE,MODE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C***************************************************************C -C C -C C -C !!!!!!! NEW VERSIONS JANUARY 1989 !!!!!!!! C -C C -C C -C MODE 1 CORRESPONDS TO C -C MARTIN, ROBERTS, STIRLING (EMC FIT) WITH LAMBDA= 100 MEV C -C C -C MODE 2 CORRESPONDS TO C -C MARTIN, ROBERTS, STIRLING (BCDMS FIT) WITH LAMBDA= 200 MEV C -C C -C ( SOFT GLUE : X G(X,Q0) = A (1-X)**5 ) C -C C -C -*- C -C C -C (NOTE THAT X TIMES THE PARTON DISTRIBUTION FUNCTION C -C IS RETURNED I.E. G(X) = GLU/X ETC, AND THAT "SEA" C -C IS THE LIGHT QUARK SEA I.E. UBAR(X)=DBAR(X)= ... C -C = SEA/X FOR A PROTON. IF IN DOUBT, CHECK THE C -C MOMENTUM SUM RULE! NOTE ALSO THAT SCALE=Q IN GEV) C -C C -C -*- C -C C -C (THE RANGE OF APPLICABILITY IS CURRENTLY: C -C 10**-4 < X < 1 AND 5 < Q**2 < 1.31 * 10**6 C -C HIGHER Q**2 VALUES CAN BE SUPPLIED ON REQUEST C -C - PROBLEMS, COMMENTS ETC TO SRG$T3@GEN C -C C -C C -C***************************************************************C -#include "pdf/impdp.inc" - IF(MODE.EQ.1) CALL STRCEP(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - IF(MODE.EQ.2) CALL STRCBP(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - RETURN - END diff --git a/PDF/spdf/newdo1.F b/PDF/spdf/newdo1.F deleted file mode 100644 index 6ca448abdbb..00000000000 --- a/PDF/spdf/newdo1.F +++ /dev/null @@ -1,109 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:32:48 cernlib -* Version 7.04 -* -* Revision 1.2 1996/10/28 15:03:18 pdflib -* PDFLIB new version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:25 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE NEWDO1(R8X,R8QSQ,R8U,R8D,R8SS,R8STR,R8C,R8G) -C-------------------------------------------------------------- -C THIS SUBROUTINE EVALUATES THE UPDATED DUKE-OWENS QUARK -C DISTRIBUTIONS , SET 1--------------U. BAUR (JUNE 9, 1991) -C adapted and corrected by---H.Plothow-Besch (Aug 14, 1991) -C BASED ON FSU-HEP-910606 PREPRINT -C-------------------------------------------------------------- -C -#include "pdf/expdp.inc" - + R8X,R8QSQ,R8U,R8D,R8SS,R8STR,R8C,R8G - REAL ND,NUD,X,QSQ - DATA Q0/2./, ALAM/0.177/ - X = R8X - QSQ = R8QSQ - S= LOG( LOG( MAX(Q0,QSQ)/ALAM)/ LOG(Q0/ALAM)) - S2=S*S - S3=S2*S - ONEMX = 1. - X -C-------SEA DIST----------------------------------------------- - AS = 0.9090 - 0.4023*S + 0.006305*S2 - AS1 = -0.3823*S + 0.02766*S2 - BS1 = 7.278 - 0.7904*S + 0.8108*S2 - ALS = -1.6629*S + 0.5719*S2 - BES = -0.01333*S + 0.5299*S2 - GAS = 0.1211*S - 0.1739*S2 -C SS=AS*X**(AS1-1.)*ONEMX**BS1*(1.+ALS*X+BES*X*X+GAS*X**3)/6. - SS = AS * X**AS1 * ONEMX**BS1 * (1.+ALS*X+BES*X*X+GAS*X*X*X)/ 6. -C-------D-DIST----------------------------------------- - H3 = 0.8388 - 0.2092*S + 0.02657*S2 -C H4 = 4.6670 + 0.7951*S - 0.1081*S2 - H4 = 4.6670 + 0.7951*S + 0.1081*S2 - GD1 = -1.0232*S + 0.05799*S2 - GD2 = 0.8616*S + 0.1530*S2 - CALL GAMMADO(H3,G3,IER) - CALL GAMMADO(1.+H3,G31,IER) - CALL GAMMADO(2.+H3,G32,IER) - CALL GAMMADO(1.+H4,G4,IER) - CALL GAMMADO(1.+H3+H4,G34,IER) - CALL GAMMADO(2.+H3+H4,G341,IER) - CALL GAMMADO(3.+H3+H4,G342,IER) - BD1=G3*G4/G34 - BD2=G31*G4/G341 - BD3=G32*G4/G342 - ND=BD1+GD1*BD2+GD2*BD3 -C D=X**(H3-1.)*(1.-X)**H4*(1.+GD1*X+GD2*X**2)/ND - D=X**H3*(1.-X)**H4*(1.+GD1*X+GD2*X**2)/ND -C-------VALENCE U-DIST----------------------------------------- - H1 = 0.6650 - 0.1097*S - 0.002442*S2 - H2 = 3.6140 + 0.8395*S - 0.02186*S2 - GUD1 = 0.8673 - 1.6637*S + 0.3420*S2 -C GUD2 = 1.1049*S - 0.22369*S2 - GUD2 = 1.1049*S - 0.2369*S2 - CALL GAMMADO(H1,G1,IER) - CALL GAMMADO(1.+H1,G11,IER) - CALL GAMMADO(2.+H1,G21,IER) - CALL GAMMADO(1.+H2,G2,IER) - CALL GAMMADO(1.+H1+H2,G12,IER) - CALL GAMMADO(2.+H1+H2,G121,IER) - CALL GAMMADO(3.+H1+H2,G122,IER) - BUD1=G1*G2/G12 - BUD2=G11*G2/G121 - BUD3=G21*G2/G122 - NUD=BUD1+GUD1*BUD2+GUD2*BUD3 -C UPD=3*X**(H1-1.)*(1.-X)**H2*(1.+GUD1*X+GUD2*X**2)/NUD - UPD=3. * X**H1 * ONEMX**H2 * (1.+GUD1*X+GUD2*X*X)/ NUD -C U=UPD-D+SS -C D=D+SS - U=UPD-D -C-------CHARM DIST--------------------------------------------- - AC = 0.09469*S - 0.07066*S2 + 0.01236*S3 - AC1 = -0.1447 - 0.4020*S + 0.1533*S2 - 0.06479*S3 - BC1 = 6.7599 + 1.6596*S + 0.6798*S2 - 0.8525*S3 - ALC = -4.4559*S + 3.3756*S2 - 0.9468*S3 - BEC = 7.862*S - 3.6591*S2 + 0.03672*S3 - GAC = -0.2472*S - 0.7510*S2 + 0.04870*S3 -C C=AC*X**(AC1-1.)*(1.-X)**BC1*(1.+ALC*X+BEC*X*X+GAC*X**3) - C=AC * X**AC1 * ONEMX**BC1 * (1.+ALC*X+BEC*X*X+GAC*X*X*X) -C-------GLUE DIST---------------------------------------------- - AG = 3.0170 - 4.7347*S + 3.3594*S2 - 0.9443*S3 - AG1 = -0.9342*S + 0.5454*S2 - 0.1668*S3 - BG1 = 5.3040 + 1.4654*S - 1.4292*S2 + 0.7569*S3 - ALG = -3.9141*S + 2.8445*S2 - 0.8411*S3 - BEG = 9.0176*S - 10.426*S2 + 4.0983*S3 - GAG = -5.9602*S + 7.5150*S2 - 2.7329*S3 -C G=AG*X**(AG1-1.)*(1.-X)**BG1*(1.+ALG*X+BEG*X*X+GAG*X**3) - G=AG * X**AG1 * ONEMX**BG1 * (1.+ALG*X+BEG*X*X+GAG*X*X*X) - R8U = U - R8D = D - R8SS = SS - R8STR = SS - R8C = C - R8G = G - RETURN - END diff --git a/PDF/spdf/pdfset.F b/PDF/spdf/pdfset.F deleted file mode 100644 index cc48be08968..00000000000 --- a/PDF/spdf/pdfset.F +++ /dev/null @@ -1,1645 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.3 1997/04/15 14:02:00 cernlib -* Import version 7.08 -* -* Revision 1.3 1997/04/08 15:53:25 pdflib -* Lambda_QCD for CTEQ4 sets corrected -* -* Revision 1.2 1996/10/28 15:03:30 pdflib -* PDFLIB new version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:25 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE PDFSET(PARM,VAL) -C -C ********************************************************************** -C * * -C * Routine to set user parameters in the internal COMMON/W50511/, * -C * COMMON/W50512/ * -C * and COMMON/W50513/ * -C * and provide filling of the internal COMMON/W50518/ * -C * COMMON/W505110/ * -C * COMMON/W505120/ * -C * COMMON/W505121/ * -C * and COMMON/W505122/ * -C * * -C * Author: H. Plothow-Besch * -C * CERN-PPE, CH - 1211 Geneva 23, Switzerland * -C * * -C ********************************************************************** -C -#include "pdf/impdp.inc" -C -#include "pdf/w5051p0.inc" -#include "pdf/w5051p1.inc" -#include "pdf/w5051p2.inc" -#include "pdf/w5051p3.inc" -#include "pdf/w5051p7.inc" -#include "pdf/w50510.inc" -#include "pdf/w50511.inc" -#include "pdf/w50512.inc" -#include "pdf/w50513.inc" -#include "pdf/w50514.inc" -#include "pdf/w50514w.inc" -#include "pdf/w50515.inc" -#include "pdf/w50516.inc" -#include "pdf/w50517.inc" -#include "pdf/w50518.inc" -#include "pdf/w50519.inc" -#include "pdf/w505110.inc" -#include "pdf/w505120.inc" -#include "pdf/w505121.inc" -#include "pdf/w505122.inc" -#include "pdf/expdp.inc" - + PQCDL4(NPTYMX,NGRMAX,NSETMX), PQCDL5(NPTYMX,NGRMAX,NSETMX), - + PXMIN(NPTYMX,NGRMAX,NSETMX), PXMAX(NPTYMX,NGRMAX,NSETMX), - + PQ2MIN(NPTYMX,NGRMAX,NSETMX), PQ2MAX(NPTYMX,NGRMAX,NSETMX) -C. - PARAMETER (NSDIM = 16) - CHARACTER*2 AV(NSDIM) - CHARACTER*20 PARM(NCHDIM),STRING -#include "pdf/expdp.inc" - + VAL(NCHDIM) -C. - EQUIVALENCE (VALUE,IVALUE) -C. - DATA (PQCDL4(1,1,K),K=1,ND11) / - + 0.0000D0, 0.0450D0, 0.5000D0, 0.4700D0, 0.4000D0, - + 0.2000D0, 0.4000D0, 0.2000D0, 0.2900D0, 0.1770D0 / - DATA (PQCDL4(1,2,K),K=1,ND12) / - + 0.2000D0, 0.2000D0, 0.2000D0, 0.2000D0, 0.2000D0, - + 0.3000D0, 0.1600D0, 0.2600D0, 0.3600D0 / - DATA (PQCDL4(1,3,K),K=1,ND13) / - + 0.1070D0, 0.2500D0, 0.1780D0, 0.0910D0, 0.2280D0, - + 0.0910D0, 0.2280D0, 0.1000D0, 0.1900D0, 0.1000D0, - + 0.1900D0, 0.1000D0, 0.1000D0, 0.1000D0, 0.1900D0, - + 0.1000D0, 0.3000D0, 0.1900D0, 0.1900D0, 0.1900D0, - + 0.1900D0, 0.1350D0, 0.1600D0, 0.2000D0, 0.2350D0, - + 0.2150D0, 0.2150D0, 0.2150D0, 0.2300D0, 0.2300D0, - + 0.2300D0, 0.2300D0, 0.2300D0, 0.2300D0, 0.2300D0, - + 0.2300D0, 0.2300D0, 0.2300D0, 0.2310D0, 0.2310D0, - + 0.2540D0, 0.2540D0, 0.2300D0, 0.2300D0, 0.1500D0, - + 0.2010D0, 0.2660D0, 0.3440D0, 0.4350D0, 0.5420D0, - + 0.3440D0, 0.5070D0, 0.2410D0, 0.3440D0, 0.2410D0, - + 0.3440D0, 0.2410D0, 0.3440D0 / - DATA (PQCDL4(1,4,K),K=1,ND14) / - + 0.2120D0, 0.1940D0, 0.1910D0, 0.1550D0, 0.2370D0, - + 0.2120D0, 0.1940D0, 0.1910D0, 0.1550D0, 0.2370D0, - + 0.1440D0, 0.1680D0, 0.2310D0, 0.2310D0, 0.3220D0, - + 0.2470D0, 0.1900D0, 0.2130D0, 0.2080D0, 0.2080D0, - + 0.3220D0, 0.2350D0, 0.1900D0, 0.2130D0, 0.2080D0, - + 0.2080D0, 0.3220D0, 0.2350D0, 0.1770D0, 0.2390D0, - + 0.2470D0, 0.2350D0, 0.2960D0, 0.2960D0, 0.2130D0, - + 0.2530D0, 0.2960D0, 0.3440D0, 0.3990D0, 0.3020D0, - + 0.2590D0 / - DATA (PQCDL4(1,5,K),K=1,ND15) / - + 0.1600D0, 0.2200D0, 0.2000D0, 0.2000D0, 0.2000D0, - + 0.2000D0, 0.2000D0, 0.2000D0, 0.2000D0, 0.2000D0, - + 0.2000D0 / - DATA (PQCDL4(1,6,K),K=1,ND16) / - + 0.2300D0 / - DATA (PQCDL4(1,7,K),K=1,ND17) / - + 0.2540D0,0.2540D0 / -C. - DATA (PQCDL4(2,1,K),K=1,ND21) / - + 0.2000D0, 0.4000D0 / - DATA (PQCDL4(2,3,K),K=1,ND23) / - + 0.1900D0, 0.1900D0, 0.1900D0 / - DATA (PQCDL4(2,5,K),K=1,ND25) / - + 0.2000D0, 0.2000D0 / - DATA (PQCDL4(2,6,K),K=1,ND26) / - + 0.2310D0, 0.1810D0, 0.2810D0 / -C. - DATA (PQCDL4(3,1,K),K=1,ND31) / - + 0.3800D0, 0.4400D0 / - DATA (PQCDL4(3,2,K),K=1,ND32) / - + 0.4000D0, 0.4000D0, 0.4000D0, 0.4000D0 / - DATA (PQCDL4(3,3,K),K=1,ND33) / - + 0.2000D0, 0.2000D0, 0.2000D0 / - DATA (PQCDL4(3,4,K),K=1,ND34) / - + 0.2000D0, 0.2000D0, 0.2000D0, 0.2000D0, 0.2000D0 / - DATA (PQCDL4(3,5,K),K=1,ND35) / - + 0.2000D0, 0.2000D0, 0.2000D0, 0.2000D0 / - DATA (PQCDL4(3,6,K),K=1,ND36) / - + 0.2000D0, 0.2000D0, 0.2000D0 / - DATA (PQCDL4(3,8,K),K=1,ND38) / - + 0.4000D0, 0.4000D0, 0.4000D0, 0.4000D0, 0.4000D0, - + 0.4000D0 / - DATA (PQCDL4(3,9,K),K=1,ND39) / - + 0.2000D0, 0.2000D0, 0.2000D0, 0.2000D0, 0.2000D0, - + 0.2000D0, 0.2000D0, 0.2000D0 / -C. -C. - DATA (PQCDL5(1,1,K),K=1,ND11) / - + 0.0000D0, 0.0300D0, 0.4111D0, 0.3844D0, 0.3226D0, - + 0.1519D0, 0.3226D0, 0.1519D0, 0.2274D0, 0.1330D0 / - DATA (PQCDL5(1,2,K),K=1,ND12) / - + 0.1519D0, 0.1519D0, 0.1519D0, 0.1519D0, 0.1519D0, - + 0.2048D0, 0.1016D0, 0.1745D0, 0.2513D0 / - DATA (PQCDL5(1,3,K),K=1,ND13) / - + 0.0651D0, 0.1671D0, 0.1144D0, 0.0544D0, 0.1507D0, - + 0.0544D0, 0.1507D0, 0.0604D0, 0.1230D0, 0.0604D0, - + 0.1230D0, 0.0604D0, 0.0604D0, 0.0604D0, 0.1230D0, - + 0.0604D0, 0.2048D0, 0.1230D0, 0.1230D0, 0.1230D0, - + 0.1230D0, 0.0842D0, 0.1016D0, 0.1303D0, 0.1559D0, - + 0.1412D0, 0.1412D0, 0.1412D0, 0.1522D0, 0.1522D0, - + 0.1522D0, 0.1522D0, 0.1522D0, 0.1522D0, 0.1522D0, - + 0.1522D0, 0.1522D0, 0.1522D0, 0.1529D0, 0.1529D0, - + 0.1700D0, 0.1700D0, 0.1522D0, 0.1522D0, 0.0946D0, - + 0.1310D0, 0.1790D0, 0.2388D0, 0.3110D0, 0.3988D0, - + 0.2388D0, 0.3698D0, 0.1604D0, 0.2388D0, 0.1604D0, - + 0.2388D0, 0.1604D0, 0.2388D0 / - DATA (PQCDL5(1,4,K),K=1,ND14) / - + 0.1390D0, 0.1259D0, 0.1238D0, 0.0981D0, 0.1574D0, - + 0.1390D0, 0.1259D0, 0.1238D0, 0.0981D0, 0.1574D0, - + 0.1063D0, 0.1250D0, 0.1520D0, 0.1520D0, 0.2200D0, - + 0.1640D0, 0.1430D0, 0.1390D0, 0.1350D0, 0.1350D0, - + 0.2200D0, 0.1550D0, 0.1430D0, 0.1390D0, 0.1350D0, - + 0.1350D0, 0.2200D0, 0.1550D0, 0.1320D0, 0.1580D0, - + 0.1640D0, 0.1810D0, 0.2020D0, 0.2020D0, 0.1400D0, - + 0.1690D0, 0.2020D0, 0.2390D0, 0.2820D0, 0.2060D0, - + 0.1740D0 / - DATA (PQCDL5(1,5,K),K=1,ND15) / - + 0.1016D0, 0.1684D0, 0.1303D0, 0.1519D0, 0.1530D0, - + 0.1310D0, 0.1310D0, 0.1530D0, 0.1530D0, 0.1310D0, - + 0.1310D0 / - DATA (PQCDL5(1,6,K),K=1,ND16) / - + 0.1559D0 / - DATA (PQCDL5(1,7,K),K=1,ND17) / - + 0.1700D0,0.1700D0 / -C. - DATA (PQCDL5(2,1,K),K=1,ND21) / - + 0.1519D0, 0.3226D0 / - DATA (PQCDL5(2,3,K),K=1,ND23) / - + 0.1230D0, 0.1230D0, 0.1230D0 / - DATA (PQCDL5(2,5,K),K=1,ND25) / - + 0.1303D0, 0.1519D0 / - DATA (PQCDL5(2,6,K),K=1,ND26) / - + 0.1529D0, 0.1166D0, 0.1904D0 / -C. - DATA (PQCDL5(3,1,K),K=1,ND31) / - + 0.3051D0, 0.3150D0 / - DATA (PQCDL5(3,2,K),K=1,ND32) / - + 0.3226D0, 0.3226D0, 0.3226D0, 0.3226D0 / - DATA (PQCDL5(3,3,K),K=1,ND33) / - + 0.1519D0, 0.1519D0, 0.1519D0 / - DATA (PQCDL5(3,4,K),K=1,ND34) / - + 0.1303D0, 0.1519D0, 0.1519D0, 0.1303D0, 0.1519D0 / - DATA (PQCDL5(3,5,K),K=1,ND35) / - + 0.1303D0, 0.1303D0, 0.1519D0, 0.1530D0 / - DATA (PQCDL5(3,6,K),K=1,ND36) / - + 0.1303D0, 0.1303D0, 0.1303D0 / - DATA (PQCDL5(3,8,K),K=1,ND38) / - + 0.3226D0, 0.3226D0, 0.3226D0, 0.3226D0, 0.3226D0, - + 0.3226D0 / - DATA (PQCDL5(3,9,K),K=1,ND39) / - + 0.3226D0, 0.3226D0, 0.3226D0, 0.3226D0, 0.3226D0, - + 0.3226D0, 0.3226D0, 0.3226D0 / -C. -C. - DATA (PXMIN(1,1,K),K=1,ND11) / - + 0.0000D0, 5.000D-3, 5.000D-3, 5.000D-3, 1.000D-3, - + 5.000D-3, 5.000D-3, 1.000D-4, 1.000D-4, 5.000D-5 / - DATA (PXMIN(1,2,K),K=1,ND12) / - + 5.000D-5, 5.000D-5, 5.000D-5, 5.000D-5, 5.000D-5, - + 5.000D-5, 5.000D-5, 5.000D-5, 5.000D-5 / - DATA (PXMIN(1,3,K),K=1,ND13) / - + 1.000D-4, 1.000D-4, 1.000D-4, 1.000D-4, 1.000D-4, - + 1.000D-4, 1.000D-4, 1.000D-4, 1.000D-4, 1.000D-4, - + 1.000D-4, 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, - + 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, - + 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, - + 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, - + 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, - + 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, - + 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, - + 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, - + 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, - + 1.000D-5, 1.000D-5, 1.000D-5 / - DATA (PXMIN(1,4,K),K=1,ND14) / - + 1.00D-10, 1.00D-10, 1.00D-10, 1.00D-10, 1.00D-10, - + 1.00D-10, 1.00D-10, 1.00D-10, 1.00D-10, 1.00D-10, - + 1.00D-10, 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, - + 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, - + 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, - + 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, - + 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, - + 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, - + 1.000D-5 / - DATA (PXMIN(1,5,K),K=1,ND15) / - + 1.000D-6, 1.000D-6, 1.000D-6, 1.000D-6, 1.000D-6, - + 1.000D-6, 1.000D-6, 1.000D-4, 1.000D-4, 1.000D-4, - + 1.000D-4 / - DATA (PXMIN(1,6,K),K=1,ND16) / - + 1.000D-4 / - DATA (PXMIN(1,7,K),K=1,ND17) / - + 1.000D-6, 1.000D-6 / -C. - DATA (PXMIN(2,1,K),K=1,ND21) / - + 5.000D-3, 5.000D-3 / - DATA (PXMIN(2,3,K),K=1,ND23) / - + 1.000D-5, 1.000D-5, 1.000D-5 / - DATA (PXMIN(2,5,K),K=1,ND25) / - + 1.000D-5, 1.000D-5 / - DATA (PXMIN(2,6,K),K=1,ND26) / - + 1.000D-3, 1.000D-3, 1.000D-3 / -C. - DATA (PXMIN(3,1,K),K=1,ND31) / - + 1.000D-5, 1.000D-5 / - DATA (PXMIN(3,2,K),K=1,ND32) / - + 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5 / - DATA (PXMIN(3,3,K),K=1,ND33) / - + 1.000D-4, 1.000D-4, 1.000D-4 / - DATA (PXMIN(3,4,K),K=1,ND34) / - + 5.000D-4, 5.000D-4, 5.000D-4, 5.000D-4, 5.000D-4 / - DATA (PXMIN(3,5,K),K=1,ND35) / - + 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5 / - DATA (PXMIN(3,6,K),K=1,ND36) / - + 1.370D-3, 1.370D-3, 1.370D-3 / - DATA (PXMIN(3,8,K),K=1,ND38) / - + 1.000D-3, 1.000D-3, 1.000D-3, 1.000D-3, 1.000D-3, - + 1.000D-3 / - DATA (PXMIN(3,9,K),K=1,ND39) / - + 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, 1.000D-5, - + 1.000D-5, 1.000D-5, 1.000D-5 / -C. -C. - DATA (PXMAX(1,1,K),K=1,ND11) / - + 0.99999D0, 0.99999D0, 0.99999D0, 0.99998D0, 0.99999D0, - + 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0 / - DATA (PXMAX(1,2,K),K=1,ND12) / - + 0.95000D0, 0.95000D0, 0.95000D0, 0.95000D0, 0.95000D0, - + 0.95000D0, 0.95000D0, 0.95000D0, 0.95000D0 / - DATA (PXMAX(1,3,K),K=1,ND13) / - + 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, - + 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, - + 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, - + 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, - + 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, - + 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, - + 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, - + 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, - + 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, - + 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, - + 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, - + 0.99999D0, 0.99999D0, 0.99999D0 / - DATA (PXMAX(1,4,K),K=1,ND14) / - + 0.99998D0, 0.99998D0, 0.99998D0, 0.99998D0, 0.99998D0, - + 0.99998D0, 0.99998D0, 0.99998D0, 0.99998D0, 0.99998D0, - + 0.99998D0, 0.99998D0, 0.99998D0, 0.99998D0, 0.99998D0, - + 0.99998D0, 0.99998D0, 0.99998D0, 0.99998D0, 0.99998D0, - + 0.99998D0, 0.99998D0, 0.99998D0, 0.99998D0, 0.99998D0, - + 0.99998D0, 0.99998D0, 0.99998D0, 0.99998D0, 0.99998D0, - + 0.99998D0, 0.99998D0, 0.99998D0, 0.99998D0, 0.99998D0, - + 0.99998D0, 0.99998D0, 0.99998D0, 0.99998D0, 0.99998D0, - + 0.99998D0 / - DATA (PXMAX(1,5,K),K=1,ND15) / - + 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, - + 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, 0.99999D0, - + 0.99999D0 / - DATA (PXMAX(1,6,K),K=1,ND16) / - + 0.99999D0 / - DATA (PXMAX(1,7,K),K=1,ND17) / - + 0.99999D0, 0.99999D0 / -C. - DATA (PXMAX(2,1,K),K=1,ND21) / - + 0.9998D0, 0.9998D0 / - DATA (PXMAX(2,3,K),K=1,ND23) / - + 0.9998D0, 0.9998D0, 0.9998D0 / - DATA (PXMAX(2,5,K),K=1,ND25) / - + 0.9998D0, 0.9998D0 / - DATA (PXMAX(2,6,K),K=1,ND26) / - + 0.9998D0, 0.9998D0, 0.9998D0 / -C. - DATA (PXMAX(3,1,K),K=1,ND31) / - + 0.9000D0, 0.9000D0 / - DATA (PXMAX(3,2,K),K=1,ND32) / - + 0.9998D0, 0.9998D0, 0.9998D0, 0.9998D0 / - DATA (PXMAX(3,3,K),K=1,ND33) / - + 0.9998D0, 0.9998D0, 0.9998D0 / - DATA (PXMAX(3,4,K),K=1,ND34) / - + 0.9998D0, 0.9998D0, 0.9998D0, 0.9998D0, 0.9998D0 / - DATA (PXMAX(3,5,K),K=1,ND35) / - + 0.9998D0, 0.9998D0, 0.9998D0, 0.9998D0 / - DATA (PXMAX(3,6,K),K=1,ND36) / - + 0.9986D0, 0.9986D0, 0.9986D0 / - DATA (PXMAX(3,8,K),K=1,ND38) / - + 0.9998D0, 0.9998D0, 0.9998D0, 0.9998D0, 0.9998D0, - + 0.9998D0 / - DATA (PXMAX(3,9,K),K=1,ND39) / - + 0.9998D0, 0.9998D0, 0.9998D0, 0.9998D0, 0.9998D0, - + 0.9998D0, 0.9998D0, 0.9998D0 / -C. -C. - DATA (PQ2MIN(1,1,K),K=1,ND11) / - + 0.000D0, 0.500D0, 1.800D0, 5.000D0, 4.000D0, - + 4.000D0, 4.000D0, 5.000D0, 5.000D0, 4.000D0 / - DATA (PQ2MIN(1,2,K),K=1,ND12) / - + 10.00D0, 10.00D0, 10.00D0, 10.00D0, 10.00D0, - + 10.00D0, 10.00D0, 10.00D0, 10.00D0 / - DATA (PQ2MIN(1,3,K),K=1,ND13) / - + 5.000D0, 5.000D0, 5.000D0, 5.000D0, 5.000D0, - + 5.000D0, 5.000D0, 5.000D0, 5.000D0, 5.000D0, - + 5.000D0, 5.000D0, 5.000D0, 5.000D0, 5.000D0, - + 5.000D0, 5.000D0, 5.000D0, 5.000D0, 5.000D0, - + 5.000D0, 5.000D0, 5.000D0, 5.000D0, 5.000D0, - + 5.000D0, 5.000D0, 5.000D0, 5.000D0, 5.000D0, - + 5.000D0, 5.000D0, 5.000D0, 5.000D0, 5.000D0, - + 5.000D0, 5.000D0, 5.000D0, 5.000D0, 5.000D0, - + 5.000D0, 5.000D0, 0.625D0, 0.625D0, 5.000D0, - + 5.000D0, 5.000D0, 5.000D0, 5.000D0, 5.000D0, - + 5.000D0, 5.000D0, 1.250D0, 1.250D0, 1.250D0, - + 1.250D0, 2.000D0, 2.000D0 / - DATA (PQ2MIN(1,4,K),K=1,ND14) / - + 4.000D0, 4.000D0, 4.000D0, 4.000D0, 4.000D0, - + 4.000D0, 4.000D0, 4.000D0, 4.000D0, 4.000D0, - + 4.000D0, 4.000D0, 4.000D0, 4.000D0, 4.000D0, - + 4.000D0, 4.000D0, 4.000D0, 4.000D0, 4.000D0, - + 4.000D0, 4.000D0, 4.000D0, 4.000D0, 4.000D0, - + 4.000D0, 4.000D0, 4.000D0, 4.000D0, 4.000D0, - + 4.000D0, 2.560D0, 2.560D0, 2.560D0, 2.560D0, - + 2.560D0, 2.560D0, 2.560D0, 2.560D0, 2.560D0, - + 0.490D0 / - DATA (PQ2MIN(1,5,K),K=1,ND15) / - + 0.200D0, 0.200D0, 0.300D0, 0.250D0, 0.400D0, - + 0.400D0, 0.400D0, 0.400D0, 0.400D0, 0.400D0, - + 0.400D0 / - DATA (PQ2MIN(1,6,K),K=1,ND16) / - + 2.0000D0 / - DATA (PQ2MIN(1,7,K),K=1,ND17) / - + 5.000D0, 5.000D0 / -C. - DATA (PQ2MIN(2,1,K),K=1,ND21) / - + 4.0000D0, 4.0000D0 / - DATA (PQ2MIN(2,3,K),K=1,ND23) / - + 5.0000D0, 5.0000D0, 5.0000D0 / - DATA (PQ2MIN(2,5,K),K=1,ND25) / - + 0.3000D0, 0.2500D0 / - DATA (PQ2MIN(2,6,K),K=1,ND26) / - + 2.0000D0, 2.0000D0, 2.0000D0 / -C. - DATA (PQ2MIN(3,1,K),K=1,ND31) / - + 10.000D0, 10.000D0 / - DATA (PQ2MIN(3,2,K),K=1,ND32) / - + 1.0000D0, 1.0000D0, 20.000D0, 200.00D0 / - DATA (PQ2MIN(3,3,K),K=1,ND33) / - + 4.0000D0, 4.0000D0, 1.0000D0 / - DATA (PQ2MIN(3,4,K),K=1,ND34) / - + 5.3000D0, 5.3000D0, 5.3000D0, 5.3000D0, 5.3000D0 / - DATA (PQ2MIN(3,5,K),K=1,ND35) / - + 0.3000D0, 0.3000D0, 0.2500D0, 0.6000D0 / - DATA (PQ2MIN(3,6,K),K=1,ND36) / - + 2.0000D0, 2.0000D0, 2.0000D0 / - DATA (PQ2MIN(3,8,K),K=1,ND38) / - + 4.0000D0, 4.0000D0, 4.0000D0, 4.0000D0, 4.0000D0, - + 4.0000D0 / - DATA (PQ2MIN(3,9,K),K=1,ND39) / - + 0.3600D0, 0.3600D0, 4.0000D0, 4.0000D0, 0.3600D0, - + 0.3600D0, 4.0000D0, 4.0000D0 / -C. -C. - DATA (PQ2MAX(1,1,K),K=1,ND11) / - + 0.000D0, 1.000D6, 1.000D6, 1.000D6, 1.000D6, - + 1.000D6, 1.000D6, 1.000D8, 1.000D8, 4.000D7 / - DATA (PQ2MAX(1,2,K),K=1,ND12) / - + 1.000D8, 1.000D8, 1.000D8, 1.000D8, 1.000D8, - + 1.000D8, 1.000D8, 1.000D8, 1.000D8 / - DATA (PQ2MAX(1,3,K),K=1,ND13) / - + 1.310D6, 1.310D6, 1.310D6, 1.310D6, 1.310D6, - + 1.310D6, 1.310D6, 1.310D6, 1.310D6, 1.310D6, - + 1.310D6, 1.310D6, 1.310D6, 1.310D6, 1.310D6, - + 1.310D6, 1.310D6, 1.310D6, 1.310D6, 1.310D6, - + 2.680D9, 1.310D6, 1.310D6, 1.310D6, 1.310D6, - + 2.680D9, 2.680D9, 2.680D9, 2.680D9, 2.680D9, - + 2.680D9, 2.680D9, 2.680D9, 2.680D9, 2.680D9, - + 2.680D9, 1.310D6, 1.310D6, 1.310D6, 1.310D6, - + 1.310D6, 1.310D6, 1.310D6, 1.310D6, 1.310D6, - + 1.310D6, 1.310D6, 1.310D6, 1.310D6, 1.310D6, - + 1.310D6, 1.310D6, 1.000D7, 1.000D7, 1.000D7, - + 1.000D7, 1.000D7, 1.000D7 / - DATA (PQ2MAX(1,4,K),K=1,ND14) / - + 1.000D8, 1.000D8, 1.000D8, 1.000D8, 1.000D8, - + 1.000D8, 1.000D8, 1.000D8, 1.000D8, 1.000D8, - + 1.000D8, 1.000D6, 1.000D6, 1.000D6, 1.000D6, - + 1.000D6, 1.000D6, 1.000D6, 1.000D6, 1.000D6, - + 1.000D6, 1.000D6, 1.000D6, 1.000D6, 1.000D6, - + 1.000D6, 1.000D6, 1.000D6, 1.000D6, 1.000D6, - + 1.000D6, 1.000D8, 1.000D8, 1.000D8, 1.000D8, - + 1.000D6, 1.000D8, 1.000D8, 1.000D8, 1.000D8, - + 1.000D8 / - DATA (PQ2MAX(1,5,K),K=1,ND15) / - + 1.000D8, 1.000D8, 1.000D8, 1.000D8, 1.000D6, - + 1.000D6, 1.000D6, 1.000D4, 1.000D4, 1.000D4, - + 1.000D4 / - DATA (PQ2MAX(1,6,K),K=1,ND16) / - + 1.0000D8 / - DATA (PQ2MAX(1,7,K),K=1,ND17) / - + 1.310D6, 1.310D6 / -C. - DATA (PQ2MAX(2,1,K),K=1,ND21) / - + 2.0000D3, 2.0000D3 / - DATA (PQ2MAX(2,3,K),K=1,ND23) / - + 1.3100D6, 1.3100D6, 1.3100D6 / - DATA (PQ2MAX(2,5,K),K=1,ND25) / - + 1.0000D6, 1.0000D6 / - DATA (PQ2MAX(2,6,K),K=1,ND26) / - + 1.0000D8, 1.0000D8, 1.0000D8 / -C. - DATA (PQ2MAX(3,1,K),K=1,ND31) / - + 1.0000D4, 1.0000D4 / - DATA (PQ2MAX(3,2,K),K=1,ND32) / - + 1.0000D4, 50.000D0, 500.00D0, 1.0000D4 / - DATA (PQ2MAX(3,3,K),K=1,ND33) / - + 1.0000D5, 1.0000D5, 1.0000D5 / - DATA (PQ2MAX(3,4,K),K=1,ND34) / - + 1.0000D8, 1.0000D8, 1.0000D8, 1.0000D8, 1.0000D8 / - DATA (PQ2MAX(3,5,K),K=1,ND35) / - + 1.0000D6, 1.0000D6, 1.0000D6, 5.0000D4 / - DATA (PQ2MAX(3,6,K),K=1,ND36) / - + 5.5000D5, 5.5000D5, 5.5000D5/ - DATA (PQ2MAX(3,8,K),K=1,ND38) / - + 2.5000D3, 2.5000D3, 2.5000D3, 2.5000D3, 2.5000D3, - + 2.5000D3 / - DATA (PQ2MAX(3,9,K),K=1,ND39) / - + 5.0000D4, 5.0000D4, 5.0000D4, 5.0000D4, 5.0000D4, - + 5.0000D4, 5.0000D4, 5.0000D4 / -C. - DATA AV /'BE','OR','GH','DO','EH','DF','MR','HM','KM', - + 'MT','CT','GR','AB','BM','WI','SA'/ -C. - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA ZEROMIN/0.0001D0/ - DATA ISTART/0/ -C. - SAVE ISTART, PQCDL4, PQCDL5, PXMIN, PXMAX, PQ2MIN, PQ2MAX, - + /W50511/, /W505110/, /W505120/, /W505121/, /W505122/, - + /W50514/, /W50514W/, /W50515/, /W50516/, /W50518/ -C. - IF (ISTART.EQ.0) IFLSET = 0 -C. -C Set the PDFLIB parameters to the values of the previous call to PDFSET - IF(IFLSET.EQ.1) THEN - IFLPRT = IFLPRTP - NPTYPE = NPTYPP - NGROUP = NGROPP - NSET = NSETP - NFL = NFLP - LO = LOP - TMAS = TMASP - QCDL4 = QCDL4P - QCDL5 = QCDL5P - XMIN = XMINP - XMAX = XMAXP - Q2MIN = Q2MINP - Q2MAX = Q2MAXP - ENDIF -C. -C Initialisation of PDFLIB parameters (first call to PDFSET) - IF(ISTART.EQ.0) THEN -C. -C set maximum dimensions for PDFs per particle type and per author group - CALL UFILL(NPGSMX,1,NPTYMX*NGRMAX,0) - NPGSMX(1,1) = ND11 - NPGSMX(1,2) = ND12 - NPGSMX(1,3) = ND13 - NPGSMX(1,4) = ND14 - NPGSMX(1,5) = ND15 - NPGSMX(1,6) = ND16 - NPGSMX(1,7) = ND17 - NPGSMX(1,8) = ND18 - NPGSMX(1,9) = ND19 - NPGSMX(2,1) = ND21 - NPGSMX(2,2) = ND22 - NPGSMX(2,3) = ND23 - NPGSMX(2,4) = ND24 - NPGSMX(2,5) = ND25 - NPGSMX(2,6) = ND26 - NPGSMX(2,7) = ND27 - NPGSMX(2,8) = ND28 - NPGSMX(2,9) = ND29 - NPGSMX(3,1) = ND31 - NPGSMX(3,2) = ND32 - NPGSMX(3,3) = ND33 - NPGSMX(3,4) = ND34 - NPGSMX(3,5) = ND35 - NPGSMX(3,6) = ND36 - NPGSMX(3,7) = ND37 - NPGSMX(3,8) = ND38 - NPGSMX(3,9) = ND39 -C. -C set retracted PDF sets invalid - CALL UFILL(NSETFL,1,NPTYMX*NGRMAX*NSETMX,0) - DO KPTY = 1,NPTYMX - DO KGRO = 1,NGRMAX - IF(NPGSMX(KPTY,KGRO) .EQ. 0) GOTO 2 - DO ISET = 1,NPGSMX(KPTY,KGRO) - NSETFL(KPTY,KGRO,ISET) = 1 - IF (KPTY.EQ.1) THEN - IF (KGRO.EQ.3) THEN - IF (ISET.EQ.8) THEN - NSETFL(KPTY,KGRO,ISET) = 0 - ENDIF - ELSEIF (KGRO.EQ.5) THEN - IF (ISET.EQ.1 .OR. ISET.EQ.2) THEN - NSETFL(KPTY,KGRO,ISET) = 0 - ENDIF - ENDIF - ENDIF - ENDDO - 2 CONTINUE - ENDDO - ENDDO -C. -C set character*8 NAME for each PDF - DO NPTY=1,NPTYMX - DO NGR=1,NGRMAX - DO NSET=1,NSETMX - SFNAME(NPTY,NGR,NSET) = ' ' - ENDDO - ENDDO - ENDDO - SFNAME(1,1,1) = 'PRIVATE ' - SFNAME(1,1,2) = 'BEBC ' - SFNAME(1,1,3) = 'OR ' - SFNAME(1,1,4) = 'BEP ' - SFNAME(1,1,5) = 'GHR ' - SFNAME(1,1,6) = 'DO-1 ' - SFNAME(1,1,7) = 'DO-2 ' - SFNAME(1,1,8) = 'EHLQ-1 ' - SFNAME(1,1,9) = 'EHLQ-2 ' - SFNAME(1,1,10) = 'DO-1.1 ' - SFNAME(1,2,1) = 'DFLM-SV ' - SFNAME(1,2,2) = 'DFLM-HV ' - SFNAME(1,2,3) = 'DFLM-SG ' - SFNAME(1,2,4) = 'DFLM-HG ' - SFNAME(1,2,5) = 'DFLM-LO ' - SFNAME(1,2,6) = 'DFLM-HO ' - SFNAME(1,2,7) = 'DFLM-160' - SFNAME(1,2,8) = 'DFLM-260' - SFNAME(1,2,9) = 'DFLM-360' - SFNAME(1,3,1) = 'MRS-1 ' - SFNAME(1,3,2) = 'MRS-2 ' - SFNAME(1,3,3) = 'MRS-3 ' - SFNAME(1,3,4) = 'MRS-E ' - SFNAME(1,3,5) = 'MRS-B ' - SFNAME(1,3,6) = 'MRS-EP ' - SFNAME(1,3,7) = 'MRS-BP ' - SFNAME(1,3,8) = 'HMRS-E1.' - SFNAME(1,3,9) = 'HMRS-B1.' - SFNAME(1,3,10) = 'HMRS-E3.' - SFNAME(1,3,11) = 'HMRS-B3.' - SFNAME(1,3,12) = 'HMRSE+ ' - SFNAME(1,3,13) = 'HMRSE- ' - SFNAME(1,3,14) = 'HMRS-E ' - SFNAME(1,3,15) = 'HMRS-B ' - SFNAME(1,3,16) = 'HMRSB100' - SFNAME(1,3,17) = 'HMRSB300' - SFNAME(1,3,18) = 'KMRS-BM2' - SFNAME(1,3,19) = 'KMRS-BM5' - SFNAME(1,3,20) = 'KMRS-BM ' - SFNAME(1,3,21) = 'KMRS-B0 ' - SFNAME(1,3,22) = 'MRS-B0-1' - SFNAME(1,3,23) = 'MRS-B0-2' - SFNAME(1,3,24) = 'MRS-B0-3' - SFNAME(1,3,25) = 'MRS-B0-4' - SFNAME(1,3,26) = 'MRS-S0 ' - SFNAME(1,3,27) = 'MRS-D0 ' - SFNAME(1,3,28) = 'MRS-DM ' - SFNAME(1,3,29) = 'MRS-S0P ' - SFNAME(1,3,30) = 'MRS-D0P ' - SFNAME(1,3,31) = 'MRS-DMP ' - SFNAME(1,3,32) = 'MRS-S0PD' - SFNAME(1,3,33) = 'MRS-D0PD' - SFNAME(1,3,34) = 'MRS-DMPD' - SFNAME(1,3,35) = 'MRS-(H) ' - SFNAME(1,3,36) = 'MRS-(H)D' - SFNAME(1,3,37) = 'MRS-(A) ' - SFNAME(1,3,38) = 'MRS-(A)F' - SFNAME(1,3,39) = 'MRS-Ap ' - SFNAME(1,3,40) = 'MRS-Ap F' - SFNAME(1,3,41) = 'MRS-G ' - SFNAME(1,3,42) = 'MRS-GFit' - SFNAME(1,3,43) = 'MRS-A lQ' - SFNAME(1,3,44) = 'MRS-ADlQ' - SFNAME(1,3,45) = 'MRS-Ap-1' - SFNAME(1,3,46) = 'MRS-Ap-2' - SFNAME(1,3,47) = 'MRS-Ap-3' - SFNAME(1,3,48) = 'MRS-Ap-4' - SFNAME(1,3,49) = 'MRS-Ap-5' - SFNAME(1,3,50) = 'MRS-Ap-6' - SFNAME(1,3,51) = 'MRS-J ' - SFNAME(1,3,52) = 'MRS-Jp ' - SFNAME(1,3,53) = 'MRS-R1 ' - SFNAME(1,3,54) = 'MRS-R2 ' - SFNAME(1,3,55) = 'MRS-R3 ' - SFNAME(1,3,56) = 'MRS-R4 ' - SFNAME(1,3,57) = 'MRS-R1Ft' - SFNAME(1,3,58) = 'MRS-R2Ft' - SFNAME(1,4,1) = 'MT-S1DIS' - SFNAME(1,4,2) = 'MT-B1DIS' - SFNAME(1,4,3) = 'MT-B2DIS' - SFNAME(1,4,4) = 'MT-E1DIS' - SFNAME(1,4,5) = 'MT-6 DIS' - SFNAME(1,4,6) = 'MT-S1MSB' - SFNAME(1,4,7) = 'MT-B1MSB' - SFNAME(1,4,8) = 'MT-B2MSB' - SFNAME(1,4,9) = 'MT-E1MSB' - SFNAME(1,4,10) = 'MT-6 MSB' - SFNAME(1,4,11) = 'MT-LO ' - SFNAME(1,4,12) = 'CTEQ-1LO' - SFNAME(1,4,13) = 'CTEQ-1M ' - SFNAME(1,4,14) = 'CTEQ-1MS' - SFNAME(1,4,15) = 'CTEQ-1ML' - SFNAME(1,4,16) = 'CTEQ-1D ' - SFNAME(1,4,17) = 'CTEQ-2LO' - SFNAME(1,4,18) = 'CTEQ-2M ' - SFNAME(1,4,19) = 'CTEQ-2MS' - SFNAME(1,4,20) = 'CTEQ-2MF' - SFNAME(1,4,21) = 'CTEQ-2ML' - SFNAME(1,4,22) = 'CTEQ-2D ' - SFNAME(1,4,23) = 'CTEQ-2pL' - SFNAME(1,4,24) = 'CTEQ-2pM' - SFNAME(1,4,25) = 'CTEQ2pMS' - SFNAME(1,4,26) = 'CTEQ2pMF' - SFNAME(1,4,27) = 'CTEQ2pML' - SFNAME(1,4,28) = 'CTEQ-2pD' - SFNAME(1,4,29) = 'CTEQ-3L ' - SFNAME(1,4,30) = 'CTEQ-3M ' - SFNAME(1,4,31) = 'CTEQ-3D ' - SFNAME(1,4,32) = 'CTEQ-4L ' - SFNAME(1,4,33) = 'CTEQ-4D ' - SFNAME(1,4,34) = 'CTEQ-4M ' - SFNAME(1,4,35) = 'CTEQ-4A1' - SFNAME(1,4,36) = 'CTEQ-4A2' - SFNAME(1,4,37) = 'CTEQ-4A3' - SFNAME(1,4,38) = 'CTEQ-4A4' - SFNAME(1,4,39) = 'CTEQ-4A5' - SFNAME(1,4,40) = 'CTEQ-4HJ' - SFNAME(1,4,41) = 'CTEQ-4lQ' - SFNAME(1,5,1) = 'GRV-HO ' - SFNAME(1,5,2) = 'GRV-LO ' - SFNAME(1,5,3) = 'GRV-HO ' - SFNAME(1,5,4) = 'GRV-LO ' - SFNAME(1,5,5) = 'GRV94-LO' - SFNAME(1,5,6) = 'GRV94-MS' - SFNAME(1,5,7) = 'GRV94-DI' - SFNAME(1,5,8) = 'GRSV-LOS' - SFNAME(1,5,9) = 'GRSV-LOV' - SFNAME(1,5,10) = 'GRSV-HOS' - SFNAME(1,5,11) = 'GRSV-HOV' - SFNAME(1,6,1) = 'ABFOW ' - SFNAME(1,7,1) = 'BM-A ' - SFNAME(1,7,2) = 'BM-B ' - SFNAME(2,1,1) = 'OW-P-1 ' - SFNAME(2,1,2) = 'OW-P-2 ' - SFNAME(2,3,1) = 'SMRS-P-1' - SFNAME(2,3,2) = 'SMRS-P-2' - SFNAME(2,3,3) = 'SMRS-P-3' - SFNAME(2,5,1) = 'GRV-P-HO' - SFNAME(2,5,2) = 'GRV-P-LO' - SFNAME(2,6,1) = 'ABFKW-P1' - SFNAME(2,6,2) = 'ABFKW-P2' - SFNAME(2,6,3) = 'ABFKW-P3' - SFNAME(3,1,1) = 'DO-G-LO ' - SFNAME(3,1,2) = 'DO-G-HO ' - SFNAME(3,2,1) = 'DG-G-1 ' - SFNAME(3,2,2) = 'DG-G-2 ' - SFNAME(3,2,3) = 'DG-G-3 ' - SFNAME(3,2,4) = 'DG-G-4 ' - SFNAME(3,3,1) = 'LAC-G-1 ' - SFNAME(3,3,2) = 'LAC-G-2 ' - SFNAME(3,3,3) = 'LAC-G-3 ' - SFNAME(3,4,1) = 'GS-G-1 ' - SFNAME(3,4,2) = 'GS-G-2 ' - SFNAME(3,4,3) = 'GS-G-3 ' - SFNAME(3,4,4) = 'GS-96-HO' - SFNAME(3,4,5) = 'GS-96-LO' - SFNAME(3,5,1) = 'GRV-GLHO' - SFNAME(3,5,2) = 'GRV-G-HO' - SFNAME(3,5,3) = 'GRV-G-LO' - SFNAME(3,5,4) = 'GRS-G-LO' - SFNAME(3,6,1) = 'ACFGP-GH' - SFNAME(3,6,2) = 'ACFGP-GC' - SFNAME(3,6,3) = 'AFG-G-HO' - SFNAME(3,8,1) = 'WHIT-G-1' - SFNAME(3,8,2) = 'WHIT-G-2' - SFNAME(3,8,3) = 'WHIT-G-3' - SFNAME(3,8,4) = 'WHIT-G-4' - SFNAME(3,8,5) = 'WHIT-G-5' - SFNAME(3,8,6) = 'WHIT-G-6' - SFNAME(3,9,1) = 'SaS-1G1D' - SFNAME(3,9,2) = 'SaS-1G1M' - SFNAME(3,9,3) = 'SaS-1G2D' - SFNAME(3,9,4) = 'SaS-1G2M' - SFNAME(3,9,5) = 'SaS-2G1D' - SFNAME(3,9,6) = 'SaS-2G1M' - SFNAME(3,9,7) = 'SaS-2G2D' - SFNAME(3,9,8) = 'SaS-2G2M' -C. -C set cross reference tables for NEW PDFLIB format version 4.0 -C (give OLD to get NEW) - DO I=1,MODEMX - NPTYCR(I) = I/100 + 1 - IF(I.LE.99) THEN - IF(I.LE. 9) THEN - NGROCR(I) = 1 - NSETCR(I) = I - ELSEIF(I.GE. 10 .AND. I.LE. 19) THEN - NGROCR(I) = 2 - NSETCR(I) = I - 9 - ELSEIF(I.GE. 20 .AND. I.LE. 47) THEN - NGROCR(I) = 3 - NSETCR(I) = I - 19 - ELSEIF(I.GE. 48 .AND. I.LE. 49) THEN - NGROCR(I) = -1 - NSETCR(I) = -1 - ELSEIF(I.GE. 50 .AND. I.LE. 61) THEN - NGROCR(I) = 4 - NSETCR(I) = I - 49 - ELSEIF(I.GE. 62 .AND. I.LE. 69) THEN - NGROCR(I) = -1 - NSETCR(I) = -1 - ELSEIF(I.GE. 70 .AND. I.LE. 73) THEN - NGROCR(I) = 5 - NSETCR(I) = I - 69 - ELSEIF(I.EQ. 74 ) THEN - NGROCR(I) = -1 - NSETCR(I) = -1 - ELSEIF(I.EQ. 75 ) THEN - NGROCR(I) = 1 - NSETCR(I) = I - 65 - ELSEIF(I.GE. 76 .AND. I.LE. 79) THEN - NGROCR(I) = -1 - NSETCR(I) = -1 - ELSEIF(I.EQ. 80 ) THEN - NGROCR(I) = 6 - NSETCR(I) = I - 79 - ELSEIF(I.GE. 81 .AND. I.LE. 85) THEN - NGROCR(I) = -1 - NSETCR(I) = -1 - ELSEIF(I.GE. 86 .AND. I.LE. 87) THEN - NGROCR(I) = 7 - NSETCR(I) = I - 85 - ELSEIF(I.GE. 88 .AND. I.LE. 99) THEN - NGROCR(I) = -1 - NSETCR(I) = -1 - ENDIF - ELSEIF(I.GE.100 .AND. I.LE.199) THEN - IF(I.GE.100 .AND. I.LE.105) THEN - NGROCR(I) = -1 - NSETCR(I) = -1 - ELSEIF(I.GE.106 .AND. I.LE.107) THEN - NGROCR(I) = 1 - NSETCR(I) = I - 105 - ELSEIF(I.GE.108 .AND. I.LE.129) THEN - NGROCR(I) = -1 - NSETCR(I) = -1 - ELSEIF(I.GE.130 .AND. I.LE.132) THEN - NGROCR(I) = 3 - NSETCR(I) = I - 129 - ELSEIF(I.GE.133 .AND. I.LE.171) THEN - NGROCR(I) = -1 - NSETCR(I) = -1 - ELSEIF(I.GE.172 .AND. I.LE.173) THEN - NGROCR(I) = 5 - NSETCR(I) = I - 171 - ELSEIF(I.GE.174 .AND. I.LE.179) THEN - NGROCR(I) = -1 - NSETCR(I) = -1 - ELSEIF(I.GE.180 .AND. I.LE.182) THEN - NGROCR(I) = 6 - NSETCR(I) = I - 179 - ELSEIF(I.GE.183 .AND. I.LE.199) THEN - NGROCR(I) = -1 - NSETCR(I) = -1 - ENDIF - ELSEIF(I.GE.200 .AND. I.LE.(MODEMX-1)) THEN - IF(I.GE.200 .AND. I.LE.205) THEN - NGROCR(I) = -1 - NSETCR(I) = -1 - ELSEIF(I.GE.206 .AND. I.LE.207) THEN - NGROCR(I) = 1 - NSETCR(I) = I - 205 - ELSEIF(I.GE.208 .AND. I.LE.209) THEN - NGROCR(I) = -1 - NSETCR(I) = -1 - ELSEIF(I.GE.210 .AND. I.LE.213) THEN - NGROCR(I) = 2 - NSETCR(I) = I - 209 - ELSEIF(I.GE.214 .AND. I.LE.219) THEN - NGROCR(I) = -1 - NSETCR(I) = -1 - ELSEIF(I.GE.220 .AND. I.LE.222) THEN - NGROCR(I) = 3 - NSETCR(I) = I - 219 - ELSEIF(I.GE.223 .AND. I.LE.229) THEN - NGROCR(I) = -1 - NSETCR(I) = -1 - ELSEIF(I.GE.230 .AND. I.LE.232) THEN - NGROCR(I) = 4 - NSETCR(I) = I - 229 - ELSEIF(I.GE.233 .AND. I.LE.270) THEN - NGROCR(I) = -1 - NSETCR(I) = -1 - ELSEIF(I.GE.271 .AND. I.LE.273) THEN - NGROCR(I) = 5 - NSETCR(I) = I - 270 - ELSEIF(I.GE.274 .AND. I.LE.279) THEN - NGROCR(I) = -1 - NSETCR(I) = -1 - ELSEIF(I.GE.280 .AND. I.LE.281) THEN - NGROCR(I) = 6 - NSETCR(I) = I - 279 - ELSEIF(I.GE.282 .AND. I.LE.(MODEMX-1)) THEN - NGROCR(I) = -1 - NSETCR(I) = -1 - ENDIF - ELSEIF(I.EQ.MODEMX) THEN - NPTYCR(I) = -1 - NGROCR(I) = -1 - NSETCR(I) = -1 - ENDIF - ENDDO -C. -C Now get opposite cross reference -C (give NEW to get OLD) - CALL UFILL(MODECR,1,NPTYMX*NGRMAX*NSETMX,-1) - DO I = 1,NPTYMX - DO J = 1,NGRMAX - IF (I.EQ.1) THEN - IF (J.EQ.1) KT = 0 - IF (J.EQ.2) KT = 9 - IF (J.EQ.3) KT = 19 - IF (J.EQ.4) KT = 49 - IF (J.EQ.5) KT = 69 - IF (J.EQ.6) KT = 79 - IF (J.EQ.7) KT = 85 - ELSEIF (I.EQ.2) THEN - IF (J.EQ.1) KT = 105 - IF (J.EQ.3) KT = 129 - IF (J.EQ.5) KT = 171 - IF (J.EQ.6) KT = 179 - ELSEIF (I.EQ.3) THEN - IF (J.EQ.1) KT = 205 - IF (J.EQ.2) KT = 209 - IF (J.EQ.3) KT = 219 - IF (J.EQ.4) KT = 229 - IF (J.EQ.5) KT = 270 - IF (J.EQ.6) KT = 279 - ENDIF - IF(NPGSMX(I,J).EQ.0) GOTO 5 - DO K = 1,NPGSMX(I,J) - KT = KT + 1 - MK = KT - IF (I.EQ.1 .AND. J.EQ.1 .AND. K.EQ.10) MK = 75 - IF (I.EQ.1 .AND. J.EQ.3 .AND. K.GE.29) MK = -1 - IF (I.EQ.1 .AND. J.EQ.4 .AND. K.GE.12) MK = -1 - IF (I.EQ.1 .AND. J.EQ.5 .AND. K.GE. 5) MK = -1 - IF (I.EQ.3 .AND. J.EQ.5 .AND. K.GE. 4) MK = -1 - IF (I.EQ.3 .AND. J.EQ.6 .AND. K.GE. 3) MK = -1 - IF (I.EQ.3 .AND. J.EQ.8 .AND. K.GE. 1) MK = -1 - IF (I.EQ.3 .AND. J.EQ.9 .AND. K.GE. 1) MK = -1 - MODECR(I,J,K) = MK - ENDDO - 5 CONTINUE - ENDDO - ENDDO -C Define Printer - IF(N6.LE.0) N6 = L6 -C Define FIRST flag - FIRST = .TRUE. -C Set the default values - IF(IFLPRT.LT.0 .OR. IFLPRT.GT.5) IFLPRT = LFLPRT - NPTYPE = LPTYPE - NGROUP = LGROUP - NSET = LNSET - NFL = IFL - LO = LORD - TMAS = TM - QCDL4 = PQCDL4(NPTYPE,NGROUP,NSET) - QCDL5 = PQCDL5(NPTYPE,NGROUP,NSET) - XMIN = PXMIN(NPTYPE,NGROUP,NSET) - XMAX = PXMAX(NPTYPE,NGROUP,NSET) - Q2MIN = PQ2MIN(NPTYPE,NGROUP,NSET) - Q2MAX = PQ2MAX(NPTYPE,NGROUP,NSET) -C. -C Save the PDFLIB parameters - IFLPRTP = IFLPRT - NPTYPP = NPTYPE - NGROPP = NGROUP - NSETP = NSET - NFLP = NFL - LOP = LO - TMASP = TMAS - QCDL4P = QCDL4 - QCDL5P = QCDL5 - XMINP = XMIN - XMAXP = XMAX - Q2MINP = Q2MIN - Q2MAXP = Q2MAX -C. endif from ISTART - ENDIF -C. -C Validate call to PDFSET - IFLSET = 1 -C. -C Default : NEW version 4.0 of PDFLIB - NEWVER = .TRUE. -C. -C Now get user defined values - NFLU = 0 - LOU = 0 - TMASU = ZEROD - QCDL4U = ZEROD - QCDL5U = ZEROD - XMINU = ZEROD - XMAXU = ZEROD - Q2MINU = ZEROD - Q2MAXU = ZEROD - KPTYP = 0 - KGROP = 0 - KNSET = 0 - KMODE = 0 - NV = 0 - DO 10 I = 1,20 - STRING = PARM(I) - CALL CLTOU(STRING) - NSCHECK = 0 - DO NS = 1,NSDIM - IF(STRING(1:2).EQ.AV(NS)) NSCHECK = NS - ENDDO - IF( STRING(1:5).NE.'INIT0' .AND. STRING(1:4).NE.'MODE' - + .AND. STRING(1:6).NE.'NPTYPE'.AND. STRING(1:6).NE.'NGROUP' - + .AND. STRING(1:4).NE.'NSET' .AND. STRING(1:3).NE.'NFL' - + .AND. STRING(1:2).NE.'LO' .AND. STRING(1:4).NE.'TMAS' - + .AND. STRING(1:5).NE.'QCDL4' .AND. STRING(1:5).NE.'QCDL5' - + .AND. STRING(1:4).NE.'XMIN' .AND. STRING(1:4).NE.'XMAX' - + .AND. STRING(1:5).NE.'Q2MIN' .AND. STRING(1:5).NE.'Q2MAX' -C. - + .AND. STRING(1:2).NE.'NU' .AND. STRING(1:2).NE.'PR' - + .AND. STRING(1:2).NE.'PI' .AND. STRING(1:2).NE.'PH' - + .AND. STRING(1:3).NE.'PRI' .AND. NSCHECK .EQ.0 - + .AND. STRING(1:2).NE.'OW' .AND. STRING(1:2).NE.'SM' - + .AND. STRING(1:4).NE.'GRVP' .AND. STRING(1:5).NE.'GRV-P' - + .AND. STRING(1:5).NE.'GRVPI' .AND. STRING(1:6).NE.'GRV-PI' - + .AND. STRING(1:4).NE.'ABFK' .AND. STRING(1:3).NE.'DOG' - + .AND. STRING(1:4).NE.'DO-G' .AND. STRING(1:4).NE.'DOPH' - + .AND. STRING(1:5).NE.'DO-PH' .AND. STRING(1:2).NE.'DG' - + .AND. STRING(1:2).NE.'LA' .AND. STRING(1:2).NE.'GS' - + .AND. STRING(1:3).NE.'GRV' .AND. STRING(1:3).NE.'GRS' - + .AND. STRING(1:4).NE.'WHIT' .AND. STRING(1:3).NE.'SAS' - + .AND. STRING(1:2).NE.'AC' .AND. STRING(1:5).NE.'FIRST')GOTO 20 - NV = NV + 1 - VALUE = VAL(I) -C. - IF(STRING(1:5).EQ.'FIRST' .OR. STRING(1:4).EQ.'MODE' .OR. - + STRING(1:6).EQ.'NPTYPE'.OR. STRING(1:6).EQ.'NGROUP' .OR. - + STRING(1:4).EQ.'NSET' .OR. STRING(1:3).EQ.'NFL' .OR. - + STRING(1:2).EQ.'LO' .OR. - + STRING(1:3).EQ.'PRI' .OR. NSCHECK .GT.0 .OR. - + STRING(1:2).EQ.'OW' .OR. STRING(1:2).EQ.'SM' .OR. - + STRING(1:4).EQ.'GRVP' .OR. STRING(1:5).EQ.'GRV-P' .OR. - + STRING(1:5).EQ.'GRVPI' .OR. STRING(1:6).EQ.'GRV-PI' .OR. - + STRING(1:4).EQ.'ABFK' .OR. STRING(1:3).EQ.'DOG' .OR. - + STRING(1:4).EQ.'DO-G' .OR. STRING(1:4).EQ.'DOPH' .OR. - + STRING(1:5).EQ.'DO-PH' .OR. STRING(1:2).EQ.'DG' .OR. - + STRING(1:2).EQ.'LA' .OR. STRING(1:2).EQ.'GS' .OR. - + STRING(1:3).EQ.'GRV' .OR. STRING(1:3).EQ.'GRS' .OR. - + STRING(1:4).EQ.'WHIT' .OR. STRING(1:3).EQ.'SAS' .OR. - + STRING(1:2).EQ.'AC' ) THEN - TEMP = VALUE - IF(ABS(VALUE).LT.1.E-2) TEMP = IVALUE - ENDIF -C Get user's setting for FIRST (option: silent mode => FIRST = .FALSE.) - IF(STRING(1:5).EQ.'FIRST') THEN - IF(TEMP.EQ.0) FIRST = .FALSE. - IF(TEMP.EQ.1) FIRST = .TRUE. - ENDIF -C. -C. Return, because PDFSET was called ONLY for initialisation - IF(STRING(1:5).EQ.'INIT0') THEN - IFLSET = 0 -C Print status of PDFLIB - IF(FIRST) THEN - IF(ISTART.EQ.0) CALL PDFVERS - ENDIF - ISTART = 1 -C. Reset PDFSET parameters - DO K = 1,NCHDIM - PARM(K) = ' ' - ENDDO - RETURN - ENDIF -C. -C Check if PDFLIB format of new version 4.0 or of versions 3.0 or less - IF(STRING(1:4).EQ.'MODE') THEN - NEWVER = .FALSE. - MODE = TEMP - KMODE = 1 - ENDIF -C Now NEW version 4.0 or bigger -C Get particle type - IF(STRING(1:6).EQ.'NPTYPE') THEN - NPTYPE = TEMP - KPTYP = 1 - ENDIF -C Get Author Group Number - IF(STRING(1:6).EQ.'NGROUP') THEN - NGROUP = TEMP - KGROP = 1 - ENDIF -C Get PDF Set within Author Group - IF(STRING(1:4).EQ.'NSET' ) THEN - NSET = TEMP - KNSET = 1 - ENDIF -C Particle Type = Nucleons - IF(STRING(1:2).EQ.'NU' .OR. STRING(1:2).EQ.'PR' - + .OR. NSCHECK.GT.0) THEN - NPTYPE = 1 - KPTYP = 1 - ENDIF - IF(STRING(1:3).EQ.'PRI') THEN - NPTYPE = 1 - KPTYP = 1 - NGROUP = 1 - KGROP = 1 - NSET = TEMP - KNSET = 1 - ENDIF - IF(NSCHECK.GE.1 .AND. NSCHECK.LE.5) THEN - NPTYPE = 1 - KPTYP = 1 - NGROUP = 1 - KGROP = 1 - NSET = TEMP - KNSET = 1 - ENDIF - IF(NSCHECK.EQ.6) THEN - NPTYPE = 1 - KPTYP = 1 - NGROUP = 2 - KGROP = 1 - NSET = TEMP - KNSET = 1 - ENDIF - IF(NSCHECK.GE.7 .AND. NSCHECK.LE.9) THEN - NPTYPE = 1 - KPTYP = 1 - NGROUP = 3 - KGROP = 1 - NSET = TEMP - KNSET = 1 - ENDIF - IF(NSCHECK.GE.10 .AND. NSCHECK.LE.11) THEN - NPTYPE = 1 - KPTYP = 1 - NGROUP = 4 - KGROP = 1 - NSET = TEMP - KNSET = 1 - ENDIF - IF(NSCHECK.EQ.12) THEN - NPTYPE = 1 - KPTYP = 1 - NGROUP = 5 - KGROP = 1 - NSET = TEMP - KNSET = 1 - ENDIF - IF(NSCHECK.EQ.13) THEN - NPTYPE = 1 - KPTYP = 1 - NGROUP = 6 - KGROP = 1 - NSET = TEMP - KNSET = 1 - ENDIF - IF(NSCHECK.EQ.14) THEN - NPTYPE = 1 - KPTYP = 1 - NGROUP = 7 - KGROP = 1 - NSET = TEMP - KNSET = 1 - ENDIF -C Particle Type = Pions - IF(STRING(1:2).EQ.'PI') THEN - NPTYPE = 2 - KPTYP = 1 - ENDIF - IF(STRING(1:2).EQ.'OW' .OR. - + STRING(1:3).EQ.'OWP' .OR. STRING(1:4).EQ.'OW-P' .OR. - + STRING(1:4).EQ.'OWPI' .OR. STRING(1:5).EQ.'OW-PI') THEN - NPTYPE = 2 - KPTYP = 1 - NGROUP = 1 - KGROP = 1 - NSET = TEMP - KNSET = 1 - ENDIF - IF(STRING(1:2).EQ.'SM' .OR. - + STRING(1:5).EQ.'SMRSP' .OR. STRING(1:6).EQ.'SMRS-P' .OR. - + STRING(1:6).EQ.'SMRSPI' .OR. STRING(1:7).EQ.'SMRS-PI') THEN - NPTYPE = 2 - KPTYP = 1 - NGROUP = 3 - KGROP = 1 - NSET = TEMP - KNSET = 1 - ENDIF - IF(STRING(1:4).EQ.'GRVP' .OR. STRING(1:5).EQ.'GRV-P' .OR. - + STRING(1:5).EQ.'GRVPI' .OR. STRING(1:6).EQ.'GRV-PI') THEN - NPTYPE = 2 - KPTYP = 1 - NGROUP = 5 - KGROP = 1 - NSET = TEMP - KNSET = 1 - ENDIF - IF(STRING(1:4).EQ.'ABFK' .OR. - + STRING(1:6).EQ.'ABFKWP' .OR. STRING(1:7).EQ.'ABFKW-P' .OR. - + STRING(1:7).EQ.'ABFKWPI' .OR. STRING(1:8).EQ.'ABFKW-PI') THEN - NPTYPE = 2 - KPTYP = 1 - NGROUP = 6 - KGROP = 1 - NSET = TEMP - KNSET = 1 - ENDIF -C Particle Type = Photons - IF(STRING(1:2).EQ.'PH') THEN - NPTYPE = 3 - KPTYP = 1 - ENDIF - IF(STRING(1:3).EQ.'DOG' .OR. STRING(1:4).EQ.'DO-G' .OR. - + STRING(1:4).EQ.'DOPH' .OR. STRING(1:5).EQ.'DO-PH') THEN - NPTYPE = 3 - KPTYP = 1 - NGROUP = 1 - KGROP = 1 - NSET = TEMP - KNSET = 1 - ENDIF - IF(STRING(1:2).EQ.'DG' .OR. - + STRING(1:3).EQ.'DGG' .OR. STRING(1:4).EQ.'DG-G' .OR. - + STRING(1:4).EQ.'DGPH' .OR. STRING(1:5).EQ.'DG-PH') THEN - NPTYPE = 3 - KPTYP = 1 - NGROUP = 2 - KGROP = 1 - NSET = TEMP - KNSET = 1 - ENDIF - IF(STRING(1:2).EQ.'LA' .OR. - + STRING(1:4).EQ.'LACG' .OR. STRING(1:5).EQ.'LAC-G' .OR. - + STRING(1:5).EQ.'LACPH' .OR. STRING(1:6).EQ.'LAC-PH') THEN - NPTYPE = 3 - KPTYP = 1 - NGROUP = 3 - KGROP = 1 - NSET = TEMP - KNSET = 1 - ENDIF - IF(STRING(1:2).EQ.'GS' .OR. - + STRING(1:3).EQ.'GSG' .OR. STRING(1:4).EQ.'GS-G' .OR. - + STRING(1:4).EQ.'GSPH' .OR. STRING(1:5).EQ.'GS-PH') THEN - NPTYPE = 3 - KPTYP = 1 - NGROUP = 4 - KGROP = 1 - NSET = TEMP - KNSET = 1 - ENDIF - IF(STRING(1:4).EQ.'GRVG' .OR. STRING(1:5).EQ.'GRV-G' .OR. - + STRING(1:5).EQ.'GRVPH' .OR. STRING(1:6).EQ.'GRV-PH' .OR. - + STRING(1:5).EQ.'GRSPH' .OR. STRING(1:6).EQ.'GRS-PH') THEN - NPTYPE = 3 - KPTYP = 1 - NGROUP = 5 - KGROP = 1 - NSET = TEMP - KNSET = 1 - ENDIF - IF(STRING(1:2).EQ.'AC' .OR. - + STRING(1:6).EQ.'ACFGPG' .OR. STRING(1:7).EQ.'ACFGP-G' .OR. - + STRING(1:7).EQ.'ACFGPPH' .OR. STRING(1:8).EQ.'ACFGP-PH') THEN - NPTYPE = 3 - KPTYP = 1 - NGROUP = 6 - KGROP = 1 - NSET = TEMP - KNSET = 1 - ENDIF - IF(STRING(1:2).EQ.'WI' .OR. - + STRING(1:5).EQ.'WHITG' .OR. STRING(1:6).EQ.'WHIT-G' .OR. - + STRING(1:6).EQ.'WHITPH' .OR. STRING(1:7).EQ.'WHIT-PH') THEN - NPTYPE = 3 - KPTYP = 1 - NGROUP = 8 - KGROP = 1 - NSET = TEMP - KNSET = 1 - ENDIF - IF(STRING(1:2).EQ.'SA' .OR. - + STRING(1:4).EQ.'SASG' .OR. STRING(1:5).EQ.'SAS-G' .OR. - + STRING(1:5).EQ.'SASPH' .OR. STRING(1:6).EQ.'SAS-PH') THEN - NPTYPE = 3 - KPTYP = 1 - NGROUP = 9 - KGROP = 1 - NSET = TEMP - KNSET = 1 - ENDIF -C... set defaults for private structure functions set (Nset = 1) - IF(NPTYPE.EQ.1 .AND. NGROUP.EQ.1 .AND. NSET.EQ.1) THEN - NFL = IFL - LO = LORD - TMAS = TM - QCDL4 = ZEROD - QCDL5 = ZEROMIN - XMIN = ZEROD - XMAX = 0.9999D0 - Q2MIN = ZEROD - Q2MAX = 1.000D8 - ENDIF - IF(STRING(1:3).EQ.'NFL' ) NFLU = TEMP - IF(STRING(1:2).EQ.'LO' ) LOU = TEMP - IF(STRING(1:4).EQ.'TMAS' ) TMASU = VALUE -C. - IF(STRING(1:5).EQ.'QCDL4') QCDL4U = VALUE - IF(STRING(1:5).EQ.'QCDL5') QCDL5U = VALUE -C. - IF(STRING(1:4).EQ.'XMIN') XMINU = VALUE - IF(STRING(1:4).EQ.'XMAX') XMAXU = VALUE - IF(STRING(1:5).EQ.'Q2MIN') Q2MINU = VALUE - IF(STRING(1:5).EQ.'Q2MAX') Q2MAXU = VALUE - 10 CONTINUE - 20 CONTINUE -C Print status of PDFLIB - IF(FIRST) THEN - IF(ISTART.EQ.0) CALL PDFVERS - ENDIF - ISTART = 1 -C Print values - IF(IFLPRT.GE.1) THEN - IF(NV.GT.0) THEN - IF(NEWVER) THEN - WRITE(N6,2000) (PARM(I)(1:6),I=1,NV) - ELSE - WRITE(N6,2000) (PARM(I)(1:4),I=1,NV) - ENDIF - WRITE(N6,2001) (VAL(I),I=1,NV) - ELSE - WRITE(N6,2002) - ENDIF - ELSE - IF(NV.EQ.0) WRITE(N6,2002) - ENDIF - 2000 FORMAT(/,' Parm = ',10(1X,A8)) - 2001 FORMAT(1H ,' Val = ',10(1X,F8.4)) - 2002 FORMAT(/,' PDFSET : Warning!! NO Parameters read in, defaults - + (Nucleon PDFs) used !!') -C. -C. check on conflicting parameters in case of mixed versions - IF((KPTYP*KMODE).EQ.1 .OR. (KGROP*KMODE).EQ.1 .OR. - + (KNSET*KMODE).EQ.1) THEN - WRITE(N6,*) - + ' PDFLIB : Warning!! Mixed parameter settings for OLD and NE - +W version of PDFLIB format' - WRITE(N6,*) - + ' Warning : ALL parameters set to NEW default (Nucleon PDFs) !!' - NEWVER = .TRUE. - NPTYPE = LPTYPE - NGROUP = LGROUP - NSET = LNSET - ENDIF -C. -#include "pdf/w50511c.inc" -C. -C User wants old version (3.0 or less) of PDFLIB format - IF(.NOT.NEWVER) THEN - IF (MODE .GE.0 .AND. MODE .LE.MODEMX) THEN - IF(MODE.EQ.0) THEN - NPTYPE = LPTYPO - NGROUP = LGROPO - NSET = LNSETO - ELSE - NPTYPE = NPTYCR(MODE) - NGROUP = NGROCR(MODE) - NSET = NSETCR(MODE) -C Check on validity of parameter values - IF (NPTYPE.LT.0 .OR. NGROUP.LT.0 .OR. NSET.LT.0) THEN - IF(FIRST) THEN - WRITE(N6,*) ' PDFLIB : MODE value INCORRECT, MODE = ', - + MODE - WRITE(N6,*) ' Warning : MODE value set to OLD default !!' - ENDIF - NPTYPE = LPTYPO - NGROUP = LGROPO - NSET = LNSETO - GOTO 30 - ENDIF - ENDIF - ELSE - IF(FIRST) THEN - WRITE(N6,*) ' PDFLIB : MODE value INCORRECT, MODE = ',MODE - WRITE(N6,*) ' Warning : MODE value set to OLD default !!' - ENDIF - NPTYPE = LPTYPO - NGROUP = LGROPO - NSET = LNSETO - ENDIF -C User wants new version (4.0 or bigger) of PDFLIB format - ELSE -C Check on validity of parameter values - IF (NSET.EQ.0) THEN - NPTYPE = LPTYPE - NGROUP = LGROUP - NSET = LNSET - IF(FIRST) THEN - WRITE(N6,*) - + ' PDFLIB : DEFAULT parameter set (Nucleon PDFs) has been - + chosen !' - WRITE(N6,*) - + ' PDFLIB : Nptype = ',NPTYPE,' Ngroup = ',NGROUP, - + ' Nset = ',NSET - ENDIF - ENDIF - IF (NPTYPE.LT.0 .OR. NPTYPE.EQ.0 .OR. NPTYPE.GT.NPTYMX) THEN - IF(FIRST) THEN - WRITE(N6,*) - + ' PDFLIB : Particle type number INCORRECT, Nptype = ', - + NPTYPE,' Ngroup = ',NGROUP,' Nset = ',NSET - WRITE(N6,*) - + ' Warning : ALL parameters set to default (Nucleon PDFs) !!' - ENDIF - NPTYPE = LPTYPE - NGROUP = LGROUP - NSET = LNSET - ENDIF - IF (NGROUP.LT.0 .OR. NGROUP.EQ.0 .OR. NGROUP.GT.NGRMAX) THEN - IF(FIRST) THEN - WRITE(N6,*) - + ' PDFLIB : Group number for PDFs INCORRECT, Nptype = ', - + NPTYPE,' Ngroup = ',NGROUP,' Nset = ',NSET - WRITE(N6,*) - + ' Warning : ALL parameters set to default (Nucleon PDFs) !!' - ENDIF - NPTYPE = LPTYPE - NGROUP = LGROUP - NSET = LNSET - ENDIF - IF (NSET.LT.0 .OR. NSET.EQ.0 .OR. NSET.GT.NPGSMX(NPTYPE,NGROUP)) - + THEN - IF(FIRST) THEN - WRITE(N6,*) - + ' PDFLIB : NSET value for PDFs INCORRECT, Nptype = ', - + NPTYPE,' Ngroup = ',NGROUP,' Nset = ',NSET - WRITE(N6,*) - + ' Warning : ALL parameters set to default (Nucleon PDFs) !!' - ENDIF - NPTYPE = LPTYPE - NGROUP = LGROUP - NSET = LNSET - ENDIF - ENDIF - 30 CONTINUE -C. -C Check on retracted PDF sets - IF (NSETFL(NPTYPE,NGROUP,NSET).EQ.0) THEN - IF(FIRST) THEN - WRITE(N6,*) - + ' PDFLIB : Your selected PDF set has been retracted by the aut - +hors' - WRITE(N6,*) - + ' Warning : ALL parameters set to default (Nucleon PDFs) !!' - ENDIF - NPTYPE = LPTYPE - NGROUP = LGROUP - NSET = LNSET - ENDIF -C. -C Number of flavours in alpha(s) calculation - IF (ABS(NFL).LT.3 .OR. ABS(NFL).GT.6) THEN - IF(FIRST) THEN - IF(NPTYPE.EQ.1 .AND. NGROUP.EQ.1 .AND. NSET.EQ.1) WRITE(N6,*) - + ' You are calling the DUMMY private SF routine !!' - WRITE(N6,*) ' PDFLIB : NFL value outside range, NFL = ',NFL - WRITE(N6,*) ' Warning : NFL value set to default !!' - ENDIF - NFL = IFL - ENDIF - IF (NFLU .GT. 0) THEN - NFL = NFLU - IF(FIRST) THEN - IF(NFLU.NE.NFLP) THEN - WRITE(N6,*) ' PDFLIB : NFL value' - WRITE(N6,*) ' Warning : NON standard settings, NFL value = ', - + NFL,' set by user !!' - ENDIF - ENDIF - ENDIF -C. -C Order of alpha(s) calculation - LO=LORD - IF ((NPTYPE.EQ.1.AND.NGROUP.EQ.1.AND.NSET.GE. 2) .OR. - + (NPTYPE.EQ.1.AND.NGROUP.EQ.2.AND.NSET.LE. 5) .OR. - + (NPTYPE.EQ.1.AND.NGROUP.EQ.4.AND.NSET.GE.11.AND.NSET.LE.12).OR. - + (NPTYPE.EQ.1.AND.NGROUP.EQ.4.AND.NSET.EQ.17) .OR. - + (NPTYPE.EQ.1.AND.NGROUP.EQ.4.AND.NSET.EQ.23) .OR. - + (NPTYPE.EQ.1.AND.NGROUP.EQ.4.AND.NSET.EQ.29) .OR. - + (NPTYPE.EQ.1.AND.NGROUP.EQ.4.AND.NSET.EQ.32) .OR. - + (NPTYPE.EQ.1.AND.NGROUP.EQ.5.AND.NSET.EQ. 2) .OR. - + (NPTYPE.EQ.1.AND.NGROUP.EQ.5.AND.NSET.GE. 4.AND.NSET.LE.5).OR. - + (NPTYPE.EQ.1.AND.NGROUP.EQ.5.AND.NSET.GE. 8.AND.NSET.LE.9).OR. - + (NPTYPE.EQ.2.AND.NGROUP.EQ.1.AND.NSET.LE. 2) .OR. - + (NPTYPE.EQ.2.AND.NGROUP.EQ.5.AND.NSET.EQ. 2) .OR. - + (NPTYPE.EQ.3.AND.NGROUP.EQ.1.AND.NSET.EQ. 1) .OR. - + (NPTYPE.EQ.3.AND.NGROUP.EQ.2.AND.NSET.LE. 4) .OR. - + (NPTYPE.EQ.3.AND.NGROUP.EQ.3.AND.NSET.LE. 3) .OR. - + (NPTYPE.EQ.3.AND.NGROUP.EQ.4.AND.NSET.GE. 2.AND.NSET.LE.3).OR. - + (NPTYPE.EQ.3.AND.NGROUP.EQ.4.AND.NSET.EQ. 5) .OR. - + (NPTYPE.EQ.3.AND.NGROUP.EQ.5.AND.NSET.GE. 3.AND.NSET.LE.4).OR. - + (NPTYPE.EQ.3.AND.(NGROUP.GE.8.AND.NGROUP.LE.9))) - + LO=1 - IF (LOU .GT. 0) THEN - LO = LOU - IF(FIRST) THEN - IF(LOU.NE.LOP) THEN - WRITE(N6,*) ' PDFLIB : LO value' - WRITE(N6,*) ' Warning : NON standard settings, LO value = ', - + LO,' set by user !!' - ENDIF - ENDIF - ENDIF -C. -C Top Quark mass - IF(TMAS.LE.ZEROD) THEN - IF(FIRST) THEN - WRITE(N6,*)' PDFLIB : TMAS value zero or negativ, Tmas = ',TMAS - WRITE(N6,*)' Warning : TMAS value set to default !!' - ENDIF - TMAS = TM - ENDIF - IF (TMASU .GT. ZEROMIN) THEN - TMAS = TMASU - IF(FIRST) THEN - IF(TMASU.NE.TMASP) THEN - WRITE(N6,*)' PDFLIB : TMAS value' - WRITE(N6,*) ' Warning : NON standard settings, TMAS value = ', - + TMAS,' set by user !!' - ENDIF - ENDIF - ENDIF -C. -C. this lambda (NFL=4) is given by the authors and -C. NOT used in the calculation - QCDL4 = PQCDL4(NPTYPE,NGROUP,NSET) - IF(NPTYPE.EQ.1 .AND. NGROUP.EQ.1 .AND. NSET.EQ.1) THEN - IF (QCDL5 .LT. ZEROMIN) THEN - IF(FIRST) THEN - WRITE (N6,*) ' PDFLIB : QCD-Lambda5 is not defined !! ' - WRITE (N6,*) ' Warning : QCD-Lambda5 set to QCDL5 = 0.0D0' - ENDIF - QCDL4 = ZEROD - QCDL5 = ZEROD -C. Reset PDFSET parameters - DO K = 1,NCHDIM - PARM(K) = ' ' - ENDDO - RETURN - ENDIF - ENDIF - IF (QCDL4U .GT. ZEROMIN) THEN - QCDL4 = QCDL4U - IF(FIRST) THEN - IF(QCDL4U.NE.QCDL4P) THEN - WRITE (N6,*) ' PDFLIB : QCD-Lambda4 value' - WRITE(N6,*) ' Warning : NON standard settings, QCDL4 value = ', - + QCDL4,' set by user !!' - ENDIF - ENDIF - ENDIF -C. -C. this is the lambda (NFL=5) used in the calculation - QCDL5 = PQCDL5(NPTYPE,NGROUP,NSET) - IF (QCDL5U .GT. ZEROMIN) THEN - QCDL5 = QCDL5U - IF(FIRST) THEN - IF(QCDL5U.NE.QCDL5P) THEN - WRITE (N6,*) ' PDFLIB : QCD-Lambda5 value' - WRITE(N6,*) ' Warning : NON standard settings, QCDL5 value = ', - + QCDL5,' set by user !!' - ENDIF - ENDIF - ENDIF -C. -C Minimal X values - XMIN = PXMIN(NPTYPE,NGROUP,NSET) - IF (XMINU .GT. ZEROMIN) THEN - XMIN = XMINU - IF(FIRST) THEN - IF(XMINU.NE.XMINP) THEN - WRITE (N6,*) ' PDFLIB : XMIN value' - WRITE(N6,*) ' Warning : NON standard settings, XMIN value = ', - + XMIN,' set by user !!' - ENDIF - ENDIF - ENDIF -C. -C Maximal X values - XMAX = PXMAX(NPTYPE,NGROUP,NSET) - IF (XMAXU .GT. ZEROMIN) THEN - XMAX = XMAXU - IF(FIRST) THEN - IF(XMAXU.NE.XMAXP) THEN - WRITE (N6,*) ' PDFLIB : XMAX value' - WRITE(N6,*) ' Warning : NON standard settings, XMAX value = ', - + XMAX,' set by user !!' - ENDIF - ENDIF - ENDIF -C. -C Minimal Q**2 values - Q2MIN = PQ2MIN(NPTYPE,NGROUP,NSET) - IF (Q2MINU .GT. ZEROMIN) THEN - Q2MIN = Q2MINU - IF(FIRST) THEN - IF(Q2MINU.NE.Q2MINP) THEN - WRITE (N6,*) ' PDFLIB : Q2MIN value' - WRITE(N6,*) ' Warning : NON standard settings, Q2MIN value = ', - + Q2MIN,' set by user !!' - ENDIF - ENDIF - ENDIF -C. -C Maximal Q**2 values - Q2MAX = PQ2MAX(NPTYPE,NGROUP,NSET) - IF (Q2MAXU .GT. ZEROMIN) THEN - Q2MAX = Q2MAXU - IF(FIRST) THEN - IF(Q2MAXU.NE.Q2MAXP) THEN - WRITE (N6,*) ' PDFLIB : Q2MAX value' - WRITE(N6,*) ' Warning : NON standard settings, Q2MAX value = ', - + Q2MAX,' set by user !!' - ENDIF - ENDIF - ENDIF -C. -C Save the PDFLIB parameters - IFLPRTP = IFLPRT - NPTYPP = NPTYPE - NGROPP = NGROUP - NSETP = NSET - NFLP = NFL - LOP = LO - TMASP = TMAS - QCDL4P = QCDL4 - QCDL5P = QCDL5 - XMINP = XMIN - XMAXP = XMAX - Q2MINP = Q2MIN - Q2MAXP = Q2MAX -C. -C... Reset variables to zero for error counting - PDFWGT = ONED - WXMIN = ZEROD - WXMAX = ZEROD - WQ2MIN = ZEROD - WQ2MAX = ZEROD - WTXMIN = ZEROD - WTXMAX = ZEROD - WTQ2MIN = ZEROD - WTQ2MAX = ZEROD -C. -C print COMMON block values - IF(IFLPRT.GE.2) THEN - WRITE(N6,3000) NPTYPE,NGROUP,NSET,SFNAME(NPTYPE,NGROUP,NSET), - + MODECR(NPTYPE,NGROUP,NSET) - WRITE(N6,3001) NFL,LO,TMAS - WRITE(N6,3002) QCDL4,QCDL5 - WRITE(N6,3003) XMIN,XMAX,Q2MIN,Q2MAX - ENDIF - 3000 FORMAT(/,' Nptype = ',I1,' Ngroup = ',I1,' Nset = ',I2, - + ' Name = "',A8,'" CrMode = ',I3) - 3001 FORMAT(1H ,' Nfl = ',I2,', LO = ',I1, - + ', Tmas = ',F7.2,' GeV/c**2') - 3002 FORMAT(1H ,' QCDL4 = ',F7.4,' GeV, QCDL5 = ',F7.4,' GeV') - 3003 FORMAT(1H ,' Xmin = ',1X,E8.2,', Xmax = ',E11.5, - + ', Q2min = ',F7.3,' (GeV/c)**2, Q2max = ',E8.2, - + ' (GeV/c)**2') -C. -C. Reset PDFSET parameters - DO K = 1,NCHDIM - PARM(K) = ' ' - ENDDO -C. - RETURN - END diff --git a/PDF/spdf/pdfsta.F b/PDF/spdf/pdfsta.F deleted file mode 100644 index 624e06eeb25..00000000000 --- a/PDF/spdf/pdfsta.F +++ /dev/null @@ -1,96 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:28:58 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:25 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE PDFSTA -C -C ********************************************************************** -C * * -C * Routine to print status of parameters in the COMMON/W50511/, * -C * COMMON/W50512/, * -C * COMMON/W50513/ * -C * COMMON/W50514/ * -C * COMMON/W505110/ * -C * and COMMON/W505122/ * -C * * -C * Author: H. Plothow-Besch * -C * CERN-PPE, CH - 1211 Geneva 23, Switzerland * -C * * -C ********************************************************************** -C -#include "pdf/impdp.inc" -C -#include "pdf/w5051p2.inc" -#include "pdf/w5051p7.inc" -#include "pdf/w50510.inc" -#include "pdf/w50511.inc" -#include "pdf/w50512.inc" -#include "pdf/w50513.inc" -#include "pdf/w50514.inc" -#include "pdf/w50515.inc" -#include "pdf/w50517.inc" -#include "pdf/w505110.inc" -#include "pdf/w505122.inc" - DATA ZEROD/0.D0/ -C - IFLSTA = 1 -C. -C print values - IF(N6.LE.0) N6 = L6 - WRITE(N6,2000) - WRITE(N6,2001) NPTYPE,NGROUP,NSET,SFNAME(NPTYPE,NGROUP,NSET), - + MODECR(NPTYPE,NGROUP,NSET) - WRITE(N6,2002) NFL,LO,TMAS - WRITE(N6,2003) QCDL4,QCDL5 - WRITE(N6,2004) XMIN,XMAX,Q2MIN,Q2MAX - 2000 FORMAT(/,' PDFLIB : Summary from PDFSTA') - 2001 FORMAT(1H ,' Nptype = ',I1,' Ngroup = ',I1,' Nset = ',I2, - + ' Name = "',A8,'" CrMode = ',I3) - 2002 FORMAT(1H ,' Nfl = ',I2,', LO = ',I1, - + ', Tmas = ',F7.2,' GeV/c**2') - 2003 FORMAT(1H ,' QCDL4 = ',F7.4,' GeV, QCDL5 = ',F7.4,' GeV') - 2004 FORMAT(1H ,' Xmin = ',1X,E8.2,', Xmax = ',E11.5, - + ', Q2min = ',F7.3,' (GeV/c)**2, Q2max = ',E8.2, - + ' (GeV/c)**2') -C. - WRITE(N6,3000) - IF(WXMIN .GT. ZEROD) THEN - PERC = 100.D0*WXMIN/WTXMIN - WRITE(N6,3001) WXMIN,WTXMIN,PERC,XMIN - ENDIF - IF(WXMAX .GT. ZEROD) THEN - PERC = 100.D0*WXMAX/WTXMAX - WRITE(N6,3002) WXMAX,WTXMAX,PERC,XMAX - ENDIF - IF(WQ2MIN .GT. ZEROD) THEN - PERC = 100.D0*WQ2MIN/WTQ2MIN - WRITE(N6,3003) WQ2MIN,WTQ2MIN,PERC,Q2MIN - ENDIF - IF(WQ2MAX .GT. ZEROD) THEN - PERC = 100.D0*WQ2MAX/WTQ2MAX - WRITE(N6,3004) WQ2MAX,WTQ2MAX,PERC,Q2MAX - ENDIF - IF((WXMIN+WXMAX+WQ2MIN+WQ2MAX) .EQ. ZEROD) WRITE(N6,3005) - 3000 FORMAT(' ') - 3001 FORMAT(1H ,' PDFSTA: X values ',E9.3,' times out of ',E9.3, - + ' ( = ',E9.3,' %) smaller allowed minimum of ',E9.3) - 3002 FORMAT(1H ,' PDFSTA: X values ',E9.3,' times out of ',E9.3, - + ' ( = ',E9.3,' %) bigger allowed maximum of ',E11.5) - 3003 FORMAT(1H ,' PDFSTA: Q**2 values ',E9.3,' times out of ',E9.3, - + ' ( = ',E9.3,' %) smaller allowed minimum of ',E9.3, - + ' (GeV/c)**2') - 3004 FORMAT(1H ,' PDFSTA: Q**2 values ',E9.3,' times out of ',E9.3, - + ' ( = ',E9.3,' %) bigger allowed maximum of ',E9.3, - + ' (GeV/c)**2') - 3005 FORMAT(1H ,' PDFSTA: NO errors occured') -C. - RETURN - END diff --git a/PDF/spdf/pdfvers.F b/PDF/spdf/pdfvers.F deleted file mode 100644 index 881343dc2ad..00000000000 --- a/PDF/spdf/pdfvers.F +++ /dev/null @@ -1,61 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.7 1997/07/13 13:25:18 cernlib -* Import version 7.09 -* -* Revision 1.7 1997/07/02 15:03:08 pdflib -* potential bug removed in GRSGALO -* -* Revision 1.6 1997/04/08 15:53:26 pdflib -* Lambda_QCD for CTEQ4 sets corrected -* -* Revision 1.5 1996/12/10 10:49:31 pdflib -* Version 7.07: consistency change for u,d-valence in CTEQ4 -* -* Revision 1.4 1996/11/15 15:07:21 pdflib -* Version 7.06: tabs removed and bug fixed in grsgalo -* -* Revision 1.3 1996/11/07 09:36:12 pdflib -* New version 7.05: cut routine Ctq4RTb in 9 pieces -* -* Revision 1.1.1.1 1996/04/12 15:29:26 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE PDFVERS -C -#include "pdf/w5051p7.inc" -#include "pdf/w50516.inc" -#include "pdf/w50517.inc" - CHARACTER*80 CARD - IDATQQ = 0 - ITIMQQ = 0 -#if (!defined(CERNLIB_CRAY))&&(!defined(CERNLIB_CONVEX)) - IQCHAW = 4 -#endif -#if defined(CERNLIB_CRAY)||defined(CERNLIB_CONVEX) - IQCHAW = 8 -#endif - CALL CFILL(' ',CARD,1,80) - CALL UHTOC( - + 78H PDF 7.09 970702 16.05 in the CERN Computer Program - +Library W5051 ,IQCHAW,CARD,80) -C -C print here selected fields of the CARD string - IF(N6.LE.0) N6 = L6 - IF(FIRST) THEN - WRITE(N6,*) ' ' - WRITE(N6,*) ' ***** PDFLIB Version: ',CARD(10:14), - + ' Released on ',CARD(20:26),' at ',CARD(27:32), - + ' ',CARD(33:76),' *****' -C + ' in the ',CARD(33:62),' *****' -C WRITE(N6,*) ' ***** Library compiled on ',IDATQQ, - WRITE(N6,*) ' ***** Library compiled on ',CARD(20:26), - + ' at ',CARD(27:32),' *****' -C + ' at ',ITIMQQ,' *****' - ENDIF - RETURN - END diff --git a/PDF/spdf/pdxmt.F b/PDF/spdf/pdxmt.F deleted file mode 100644 index 40b5963bf7b..00000000000 --- a/PDF/spdf/pdxmt.F +++ /dev/null @@ -1,78 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:02 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:26 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C - FUNCTION PDXMT (ISET, IPARTON, X, Q, IRT) - -C For ISET = 1, 2 .. , returns sets of Parton Distributions -C (in the proton) with parton label Iparton (6, 5, ...,0, .. -C for (t, b, c, s, d, u, g, u-bar, ... t-bar), and kinematic -C variables (X, Q). IRT is a return error code. -C -C Iset = 1, 2, 3, 4 corresponds to the S1, B1, B2, and E1 fits of M -C Tung (Fermilab-Pub-90/74, IIT-90/11) to NLO in the DIS sch -C -C 5 corresponds to a new set with input strange quark distri -C being 1/2 of the non-strange sea quarks (as prefered by so -C -C 6, 7, 8, 9 corresponds to the S1, B1, B2, and E1 fits of M -C Tung (Fermilab-Pub-90/74, IIT-90/11) to NLO in the MSbar s -C -C 10 corresponds to a new set with input strange quark distr -C being 1/2 of the non-strange sea quarks (as prefered by so -C in the MSbar scheme -C -C All the above sets assume a SU(3)-symmetric sea. -C -C 11 corresponds to a set of LO distributions suitable to be -C with LO hard scattering matrix elements. -C -C The "lambda" parameter (4-flavors) for each parton distribution set c -C obtained by making the following FUNCTION call: -C Alam = Vlambd (Iset, Iorder) -C where Iset is the (input) set #, Iorder is the (output) order of the -C for set 11, 2 for all the others), and Alam is the value of the effec -C lambda for 4 flavors. - -C Details about the 1 - 5 distributions are -C given in the above-mentioned preprint. -C -#include "pdf/impdp.inc" - REAL PDZXMT,X,Q - - DIMENSION THRSLD(0:6) - - DATA (THRSLD(I), I=0,6) / 4*0.0, 1.5, 5.0, 90.0 / - - IFL = IPARTON - JFL = ABS(IFL) -C Return 0 if below th - IF (Q .LE. THRSLD(JFL)) THEN - PDXMT = 0.0 - RETURN - ENDIF -C - IF (IFL .LE. 0) THEN - VL = 0 - ELSEIF (IFL .LE. 2) THEN - VL = PDZXMT(ISET, IFL, X, Q, IRT) - ELSE - VL = 0 - ENDIF -C - SEA = PDZXMT (ISET, -JFL, X, Q, IRT) - - PDXMT = VL + SEA - - RETURN -C ************************* - END diff --git a/PDF/spdf/pdzxmt.F b/PDF/spdf/pdzxmt.F deleted file mode 100644 index 90f4a59d50a..00000000000 --- a/PDF/spdf/pdzxmt.F +++ /dev/null @@ -1,280 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:05 cernlib -* Version 7.04 -* -* Revision 1.2 1996/10/28 15:04:20 pdflib -* PDFLIB new version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:26 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - FUNCTION PDZXMT (IST, LP, XX, QQ, IRT) -C -#include "pdf/w50511.inc" -#include "pdf/expdp.inc" - + AIEX, FXIEX, PDFD, ONED - REAL PDF -C - PARAMETER (D0=0.0, D1=1.0, D2=2.0, D3=3.0, D4=4.0, D10=10.0) - PARAMETER (NEX = 3, MXFL = 6, NPN = 2, NST = 11) -C - DIMENSION - 1 AC(0:NEX, 0:NPN, -MXFL:2, NST), A(0:NEX), T(0:NPN), FX(0:NEX), - 1 ALM(NST), Q02(NST), MEX(NST), MPN(NST), MQRK(NST), IORD(NST) -C - DATA ONED/1.D0/ -C - DATA MEX, MPN, MQRK / NST*3, NST*2, NST*6 / -C Set S1: PDF parameters fro - DATA IORD(1)/2/, ALM(1)/0.212/, Q02(1)/4.00/ - DATA (((AC(IEX,IPN,IFL,1), IEX=0,3), IPN=0,2), IFL=2,-6,-1) - > / 1.34, 0.15, - > 5.30, -1.96, -0.57, 0.16, 0.43, 1.08, -0.08, -0.02, - > 0.06, -0.03, 1.62, 0.11, 3.68, -1.94, -0.33, 0.14, - > 0.53, 0.87, -0.10, -0.01, 0.03, 0.02, 1.88, -0.33, - > 7.52, -1.34, -2.78, 0.10, -1.13, 2.92, 0.13, -0.04, - > 0.04, -0.49, -0.99, -0.33, 8.53, -1.55, -1.54, 0.03, - > -1.08, 2.02, 0.10, -0.03, 0.39, -0.39, -0.99, -0.33, - > 8.53, -1.55, -1.54, 0.03, -1.08, 2.02, 0.10, -0.03, - > 0.39, -0.39, -0.99, -0.33, 8.53, -1.55, -1.54, 0.03, - > -1.08, 2.02, 0.10, -0.03, 0.39, -0.39, -3.98, -0.15, - > 7.46, 0.35, 0.72, -0.06, 0.96, 0.89, -0.63, 0.00, - > -0.30, -0.04, -6.28, -0.18, 6.56, 0.65, 2.62, 0.02, - > 1.40, 1.13, -1.18, -0.03, -0.38, -0.16,-13.08, -0.40, - > 15.35, -0.43, 8.54, 0.31,-11.83, 3.18, -2.70, -0.12, - > 4.16, -0.82 / -C Set B1: PDF parameters fr - DATA IORD(2)/2/, ALM(2)/0.194/, Q02(2)/4.00/ - DATA (((AC(IEX,IPN,IFL,2), IEX=0,3), IPN=0,2), IFL=2,-6,-1) - > / 1.30, 0.19, - > 5.24, -1.81, -0.57, 0.15, 0.44, 1.06, -0.09, -0.02, - > 0.05, -0.02, 1.59, 0.14, 3.65, -1.81, -0.34, 0.13, - > 0.53, 0.86, -0.10, -0.01, 0.03, 0.02, 1.48, -0.14, - > 6.75, -0.50, -2.49, -0.11, -0.54, 2.13, 0.04, 0.03, - > -0.15, -0.24, -1.08, -0.13, 8.40, -0.88, -1.33, -0.21, - > -0.51, 1.18, -0.03, 0.06, 0.07, -0.05, -1.08, -0.13, - > 8.39, -0.88, -1.33, -0.21, -0.50, 1.18, -0.03, 0.06, - > 0.07, -0.05, -1.08, -0.13, 8.39, -0.88, -1.33, -0.21, - > -0.50, 1.18, -0.03, 0.06, 0.07, -0.05, -4.22, -0.02, - > 7.29, 0.90, 0.88, -0.17, 1.08, 0.50, -0.69, 0.03, - > -0.39, 0.08, -6.42, -0.09, 6.47, 1.03, 2.67, -0.03, - > 1.39, 1.00, -1.21, -0.02, -0.42, -0.14,-12.92, -0.36, - > 15.74, -0.30, 8.33, 0.32,-12.73, 3.35, -2.68, -0.13, - > 4.51, -0.91 / -C Set B2: PDF parameters fr - DATA IORD(3)/2/, ALM(3)/0.191/, Q02(3)/4.00/ - DATA (((AC(IEX,IPN,IFL,3), IEX=0,3), IPN=0,2), IFL=2,-6,-1) - > / 1.38, 0.18, - > 5.40, -1.91, -0.59, 0.16, 0.42, 1.11, -0.08, -0.02, - > 0.06, -0.03, 1.64, 0.09, 3.74, -2.02, -0.33, 0.14, - > 0.54, 0.88, -0.10, -0.01, 0.03, 0.02, 1.52, -0.72, - > 7.75, -2.18, -2.71, 0.45, -1.56, 3.75, 0.15, -0.15, - > 0.16, -0.76, -0.85, -0.82, 9.19, -2.76, -1.43, 0.35, - > -0.92, 2.56, -0.03, -0.09, 0.12, -0.40, -0.85, -0.82, - > 9.19, -2.76, -1.43, 0.35, -0.92, 2.56, -0.03, -0.10, - > 0.12, -0.40, -0.85, -0.82, 9.19, -2.76, -1.43, 0.35, - > -0.92, 2.56, -0.03, -0.10, 0.12, -0.40, -3.74, -0.58, - > 9.63, -1.09, 0.21, 0.24, -1.13, 2.10, -0.50, -0.07, - > 0.25, -0.33, -6.07, -0.52, 8.33, -0.52, 2.33, 0.22, - > 0.28, 1.91, -1.15, -0.07, -0.28, -0.31,-12.08, -0.73, - > 21.14, -1.92, 7.31, 0.54,-19.17, 4.59, -2.35, -0.18, - > 6.64, -1.25 / -C Set E1: PDF parameters fr - DATA IORD(4)/2/, ALM(4)/0.155/, Q02(4)/4.00/ - DATA (((AC(IEX,IPN,IFL,4), IEX=0,3), IPN=0,2), IFL=2,-6,-1) - > / 1.43, 0.16, - > 6.17, -1.94, -0.65, 0.16, 0.43, 1.12, -0.08, -0.02, - > 0.06, -0.02, 1.69, 0.11, 3.69, -1.99, -0.33, 0.14, - > 0.54, 0.90, -0.11, -0.01, 0.03, 0.02, 2.11, -0.33, - > 7.93, -1.51, -3.01, 0.10, -1.40, 3.14, 0.18, -0.04, - > 0.09, -0.55, -0.84, -0.32, 8.96, -1.70, -1.65, 0.02, - > -1.24, 2.15, 0.12, -0.03, 0.45, -0.43, -0.84, -0.32, - > 8.96, -1.70, -1.65, 0.02, -1.24, 2.15, 0.12, -0.03, - > 0.45, -0.43, -0.84, -0.32, 8.96, -1.70, -1.65, 0.02, - > -1.24, 2.15, 0.12, -0.03, 0.45, -0.43, -3.87, -0.15, - > 7.83, 0.21, 0.85, -0.07, 1.00, 0.93, -0.73, 0.00, - > -0.36, -0.03, -6.09, -0.17, 6.75, 0.54, 2.81, 0.01, - > 1.74, 1.15, -1.34, -0.03, -0.56, -0.16,-12.56, -0.38, - > 14.62, -0.41, 8.69, 0.30,-11.27, 3.19, -2.93, -0.12, - > 4.29, -0.87 / -C 1/2 strange sea; PDF parameters fro - DATA IORD(5)/2/, ALM(5)/0.237/, Q02(5)/4.00/ - DATA (((AC(IEX,IPN,IFL,5), IEX=0,3), IPN=0,2), IFL=2,-6,-1) - > / 1.42, 0.16, - > 5.40, -1.99, -0.59, 0.17, 0.41, 1.12, -0.08, -0.02, - > 0.06, -0.03, 1.68, 0.08, 3.75, -2.09, -0.33, 0.15, - > 0.53, 0.89, -0.10, -0.01, 0.03, 0.02, 0.90, -0.17, - > 5.27, -0.20, -1.86, -0.10, 0.43, 1.67, -0.09, 0.02, - > -0.26, -0.14, -1.48, -0.13, 7.83, -0.38, -0.89, -0.19, - > -0.06, 0.68, -0.12, 0.04, 0.01, 0.05, -1.48, -0.13, - > 7.83, -0.38, -0.89, -0.19, -0.05, 0.68, -0.13, 0.04, - > 0.00, 0.05, -2.26, -0.15, 7.47, -0.23, -0.90, -0.10, - > -0.61, 1.22, -0.06, 0.01, 0.28, -0.16, -4.68, -0.06, - > 5.55, 1.13, 0.92, -0.12, 1.16, 0.50, -0.62, 0.01, - > -0.26, 0.03, -6.83, -0.12, 5.24, 1.19, 2.68, -0.01, - > 1.14, 0.93, -1.13, -0.03, -0.24, -0.13,-14.41, -0.28, - > 11.48, 0.65, 9.65, 0.15, -7.50, 1.99, -2.98, -0.06, - > 2.54, -0.43 / -C Set S1-MSbar: PDF parameters fro - DATA IORD(6)/2/, ALM(6)/0.212/, Q02(6)/4.0/ - DATA (((AC(IEX,IPN,IFL,6), IEX=0,3), IPN=0,2), IFL=2,-6,-1) - > / 1.75, 0.11, - > 6.20, -2.35, -1.02, 0.26, -0.41, 1.68, 0.05, -0.06, - > 0.29, -0.24, 2.03, 0.06, 4.43, -2.35, -0.78, 0.24, - > -0.18, 1.52, 0.03, -0.04, 0.22, -0.19, 1.09, -0.24, - > 5.97, -0.64, -2.41, 0.08, -0.90, 2.71, -0.12, 0.02, - > -0.35, -0.20, -0.14, -0.49, 10.24, -2.57, -1.98, 0.02, - > -1.43, 2.32, 0.23, -0.02, 0.44, -0.47, -0.14, -0.49, - > 10.24, -2.57, -1.98, 0.02, -1.44, 2.32, 0.23, -0.02, - > 0.45, -0.47, -0.15, -0.49, 10.23, -2.57, -1.98, 0.02, - > -1.44, 2.32, 0.23, -0.02, 0.45, -0.47, -2.36, -0.49, - > 9.00, -1.74, -1.42, 0.44, -0.46, 3.93, 0.21, -0.22, - > 0.29, -1.34, -2.19, -1.07, 11.30, -4.85, -3.86, 1.56, - > -7.20, 10.51, 1.57, -0.73, 3.85, -4.36,-24.77, 7.52, - > -99.51, 36.02,-23.00, 0.48,-16.45, 16.51, 34.44, -6.26, - > 97.19,-40.40 / -C Set B1-MSbar: PDF parameters fro - DATA IORD(7)/2/, ALM(7)/0.194/, Q02(7)/4.0/ - DATA (((AC(IEX,IPN,IFL,7), IEX=0,3), IPN=0,2), IFL=2,-6,-1) - > / 1.66, 0.18, - > 6.04, -2.09, -0.94, 0.18, -0.25, 1.42, 0.03, -0.03, - > 0.23, -0.14, 2.00, 0.09, 4.40, -2.24, -0.81, 0.24, - > -0.20, 1.53, 0.05, -0.05, 0.25, -0.23, 0.92, -0.07, - > 5.79, -0.01, -2.28, -0.16, -0.68, 1.93, -0.07, 0.06, - > -0.23, -0.11, -0.60, -0.13, 9.31, -1.18, -1.76, -0.27, - > -0.94, 1.31, 0.13, 0.09, 0.21, -0.10, -0.60, -0.13, - > 9.31, -1.18, -1.76, -0.27, -0.94, 1.31, 0.13, 0.09, - > 0.21, -0.10, -0.60, -0.13, 9.31, -1.18, -1.76, -0.27, - > -0.94, 1.31, 0.14, 0.09, 0.21, -0.10, -2.94, -0.19, - > 7.94, -0.46, -1.12, 0.16, -0.05, 2.93, 0.15, -0.13, - > 0.27, -1.05, -2.95, -0.62, 9.97, -3.00, -3.21, 0.99, - > -6.33, 8.42, 1.38, -0.51, 3.71, -3.61, -3.88, -0.78, - > 3.80, -2.37, -1.59, -0.07, 2.13, 0.48, -0.05, 0.40, - > 0.96, 2.30 / -C Set B2-MSbar: PDF parameters fro - DATA IORD(8)/2/, ALM(8)/0.191/, Q02(8)/4.0/ - DATA (((AC(IEX,IPN,IFL,8), IEX=0,3), IPN=0,2), IFL=2,-6,-1) - > / 1.77, 0.13, - > 6.28, -2.30, -0.98, 0.23, -0.34, 1.60, 0.03, -0.04, - > 0.26, -0.18, 2.04, 0.03, 4.48, -2.47, -0.75, 0.26, - > -0.15, 1.52, 0.02, -0.05, 0.21, -0.19, 0.74, -0.59, - > 6.31, -1.37, -2.44, 0.42, -1.62, 3.56, 0.07, -0.15, - > 0.18, -0.77, -0.43, -0.86, 10.16, -3.14, -1.96, 0.43, - > -1.91, 3.14, 0.20, -0.14, 0.53, -0.68, -0.43, -0.86, - > 10.16, -3.14, -1.96, 0.43, -1.91, 3.14, 0.20, -0.14, - > 0.53, -0.68, -0.43, -0.86, 10.16, -3.14, -1.96, 0.43, - > -1.91, 3.14, 0.20, -0.14, 0.53, -0.68, -3.07, -0.66, - > 8.57, -1.68, -1.03, 0.45, -0.32, 3.48, 0.04, -0.17, - > 0.17, -0.98, -4.44, -0.68, 6.90, -1.82, -0.13, 0.50, - > 1.46, 4.11, -0.23, -0.18, -0.53, -1.16, -7.03, -1.13, - > 8.56, -5.47, 1.10, 1.07, -2.33, 9.08, -0.41, -0.35, - > 0.87, -2.66 / -C Set E1-MSbar: PDF parameters fro - DATA IORD(9)/2/, ALM(9)/0.155/, Q02(9)/4.0/ - DATA (((AC(IEX,IPN,IFL,9), IEX=0,3), IPN=0,2), IFL=2,-6,-1) - > / 1.79, 0.12, - > 7.03, -2.29, -1.05, 0.24, -0.38, 1.63, 0.03, -0.04, - > 0.27, -0.18, 2.12, 0.02, 4.46, -2.57, -0.85, 0.32, - > -0.28, 1.82, 0.07, -0.08, 0.29, -0.33, 1.58, -0.28, - > 6.84, -1.08, -2.68, 0.05, -0.93, 2.76, 0.01, 0.00, - > -0.26, -0.32, -0.10, -0.43, 10.43, -2.49, -2.29, 0.09, - > -2.14, 2.80, 0.35, -0.06, 0.73, -0.67, -0.10, -0.43, - > 10.43, -2.49, -2.29, 0.09, -2.14, 2.80, 0.35, -0.06, - > 0.73, -0.67, -0.11, -0.43, 10.43, -2.48, -2.29, 0.09, - > -2.14, 2.80, 0.35, -0.06, 0.73, -0.67, -2.53, -0.35, - > 8.67, -1.24, -1.16, 0.26, -0.10, 3.26, 0.12, -0.15, - > 0.27, -1.06, -3.91, -0.44, 6.85, -1.56, -0.19, 0.38, - > 2.15, 4.07, -0.24, -0.17, -0.74, -1.24, -6.57, -0.90, - > 7.27, -5.07, 1.15, 0.95, -0.28, 9.02, -0.48, -0.33, - > 0.28, -2.75 / -C (MSbar) 1/2 strange sea; PDF parameters fro - DATA IORD(10)/2/, ALM(10)/0.237/, Q02(10)/4.00/ - DATA (((AC(IEX,IPN,IFL,10), IEX=0,3), IPN=0,2), IFL=2,-6,-1) - > / 1.84, 0.12, - > 6.34, -2.40, -0.97, 0.22, -0.34, 1.53, 0.03, -0.04, - > 0.25, -0.16, 2.08, 0.02, 4.53, -2.51, -0.66, 0.19, - > -0.04, 1.24, -0.02, -0.01, 0.15, -0.05, 0.31, -0.10, - > 4.18, 0.34, -1.84, -0.10, 0.05, 1.64, -0.06, 0.01, - > -0.12, -0.16, -1.13, -0.15, 8.43, -0.64, -1.26, -0.16, - > -0.39, 1.01, -0.01, 0.03, 0.05, -0.06, -1.13, -0.15, - > 8.43, -0.64, -1.26, -0.16, -0.39, 1.01, -0.01, 0.03, - > 0.05, -0.06, -1.82, -0.18, 7.94, -0.56, -1.40, -0.06, - > -0.82, 1.65, 0.09, -0.01, 0.30, -0.31, -3.69, -0.15, - > 5.72, 0.26, -0.47, 0.04, 0.93, 1.85, -0.10, -0.05, - > -0.11, -0.50, -5.06, -0.25, 4.42, -0.14, 0.39, 0.16, - > 2.38, 2.72, -0.35, -0.08, -0.63, -0.75, -9.92, -0.38, - > -1.27, -1.60, 4.60, 0.24, 9.17, 4.40, -1.53, -0.08, - > -2.88, -1.08 / -C Set B0: PDF parameters fr - DATA IORD(11)/1/, ALM(11)/0.144/, Q02(11)/4.00/ - DATA (((AC(IEX,IPN,IFL,11), IEX=0,3), IPN=0,2), IFL=2,-6,-1) - > / 1.38, 0.16, - > 5.40, -1.97, -0.62, 0.19, 0.59, 1.24, -0.10, -0.02, - > 0.03, -0.05, 1.67, 0.08, 3.75, -2.09, -0.33, 0.17, - > 0.70, 0.98, -0.13, -0.01, 0.00, 0.02, 1.52, -0.25, - > 7.01, -0.79, -3.17, -0.01, -0.90, 2.90, 0.25, 0.00, - > -0.08, -0.54, -0.81, -0.07, 9.19, -0.89, -1.13, -0.46, - > 0.35, 0.33, -0.26, 0.16, -0.49, 0.40, -0.81, -0.07, - > 9.19, -0.89, -1.13, -0.46, 0.35, 0.33, -0.26, 0.16, - > -0.49, 0.40, -0.81, -0.07, 9.19, -0.89, -1.13, -0.46, - > 0.35, 0.33, -0.26, 0.16, -0.49, 0.40, -3.62, -0.06, - > 8.30, 0.16, 0.03, -0.21, -0.60, 1.26, -0.48, 0.05, - > 0.25, -0.15, -6.16, -0.11, 6.49, 0.71, 2.37, -0.05, - > 1.28, 1.37, -1.24, -0.02, -0.41, -0.26,-12.68, -0.35, - > 14.87, -0.17, 8.36, 0.28,-12.56, 3.39, -2.89, -0.12, - > 4.75, -0.96 / - - IRT = 0 - IFL = LP -C - PDZXMT = 0. - IBLP = ABS(LP) - IF(IBLP .GE. 4 .AND. QQ .LE. 1.5) RETURN - IF(IBLP .GE. 5 .AND. QQ .LE. 5.0) RETURN -C - TM = TMAS - X = XX - Q0 = SQRT (Q02(IST)) - ALAM = ALM(IST) - SQ = LOG ( LOG( MAX(Q0,QQ) /ALAM) / LOG(Q0/ALAM) ) - IF(IBLP .EQ. 6) THEN - SQ = LOG ( LOG( MAX(Q0,QQ) /ALAM * (100./TM)) / LOG(Q0/ALAM)) - ENDIF -C - FX(0) = EXP(D1) - FX(1) = X - FX(2) = 1.- X - FX(3) = LOG (1.+ 1./X) - - PDFD = ONED - DO 20 IEX = 0, MEX(IST) - A(IEX) = AC(IEX, 0, IFL, IST) - SQN=SQ - DO 21 IPN = 1, MPN(IST) - A(IEX) = A(IEX) + AC(IEX, IPN, IFL, IST) * SQN - SQN = SQN*SQ -21 CONTINUE - FXIEX = FX(IEX) - AIEX = A(IEX) - PDFD = PDFD * FXIEX **(AIEX) - 20 CONTINUE -C -C PDZXMT = PDF / X - PDF = PDFD - IF(PDF.GT.0.) PDZXMT = PDF -C - RETURN -C - ENTRY VLAMBD (ISET, IORDER) -C - IORDER = IORD (ISET) - VLAMBD = ALM (ISET) -C - RETURN -C ************************* - END diff --git a/PDF/spdf/pftopdg.F b/PDF/spdf/pftopdg.F deleted file mode 100644 index 3827fa2cd34..00000000000 --- a/PDF/spdf/pftopdg.F +++ /dev/null @@ -1,37 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:06 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:26 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE PFTOPDG(DX,DSCALE,DXPDF) -C -#include "pdf/expdp.inc" - + DX,DSCALE,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL, - + DXPDF(-6:6) -C... call STRUCTM in PDFLIB to get flavour content - CALL STRUCTM(DX,DSCALE, - + DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) -C... convert flavour convention of PDFLIB to PDG convention - DXPDF(0) = DGL - DXPDF(1) = DDNV + DDSEA - DXPDF(2) = DUPV + DUSEA - DXPDF(3) = DSTR - DXPDF(4) = DCHM - DXPDF(5) = DBOT - DXPDF(6) = DTOP - DXPDF(-1) = DDSEA - DXPDF(-2) = DUSEA - DXPDF(-3) = DSTR - DXPDF(-4) = DCHM - DXPDF(-5) = DBOT - DXPDF(-6) = DTOP -C - RETURN - END diff --git a/PDF/spdf/phlac1.F b/PDF/spdf/phlac1.F deleted file mode 100644 index 691e48ed137..00000000000 --- a/PDF/spdf/phlac1.F +++ /dev/null @@ -1,701 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:07 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:28 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------- - SUBROUTINE PHLAC1(X,Q2,XPDF) -#include "pdf/impdp.inc" - PARAMETER(IX=100,IQ=7,NARG=2,NFUN=4) -#include "pdf/expdp.inc" - + DBFINT, - + XT(IX),Q2T(IQ),ARG(NARG),ENT(IX+IQ), - + XPV(IX,IQ,0:NFUN),XPDF(-6:6) - DIMENSION NA(NARG) - DATA ZEROD/0.D0/ -C...100 x valuse; in (D-4,.77) log spaced (78 points) -C... in (.78,.995) lineary spaced (22 points) - DATA Q2T/4.D0,10.D0,50.D0,1.D2,1.D3,1.D4,1.D5/ - DATA XT/ - &0.1000D-03,0.1123D-03,0.1262D-03,0.1417D-03,0.1592D-03,0.1789D-03, - &0.2009D-03,0.2257D-03,0.2535D-03,0.2848D-03,0.3199D-03,0.3593D-03, - &0.4037D-03,0.4534D-03,0.5093D-03,0.5722D-03,0.6427D-03,0.7220D-03, - &0.8110D-03,0.9110D-03,0.1023D-02,0.1150D-02,0.1291D-02,0.1451D-02, - &0.1629D-02,0.1830D-02,0.2056D-02,0.2310D-02,0.2594D-02,0.2914D-02, - &0.3274D-02,0.3677D-02,0.4131D-02,0.4640D-02,0.5212D-02,0.5855D-02, - &0.6577D-02,0.7388D-02,0.8299D-02,0.9323D-02,0.1047D-01,0.1176D-01, - &0.1321D-01,0.1484D-01,0.1667D-01,0.1873D-01,0.2104D-01,0.2363D-01, - &0.2655D-01,0.2982D-01,0.3350D-01,0.3763D-01,0.4227D-01,0.4748D-01, - &0.5334D-01,0.5992D-01,0.6731D-01,0.7560D-01,0.8493D-01,0.9540D-01, - &0.1072D+00,0.1204D+00,0.1352D+00,0.1519D+00,0.1706D+00,0.1917D+00, - &0.2153D+00,0.2419D+00,0.2717D+00,0.3052D+00,0.3428D+00,0.3851D+00, - &0.4326D+00,0.4859D+00,0.5458D+00,0.6131D+00,0.6887D+00,0.7737D+00, - &0.7837D+00,0.7937D+00,0.8037D+00,0.8137D+00,0.8237D+00,0.8337D+00, - &0.8437D+00,0.8537D+00,0.8637D+00,0.8737D+00,0.8837D+00,0.8937D+00, - &0.9037D+00,0.9137D+00,0.9237D+00,0.9337D+00,0.9437D+00,0.9537D+00, - &0.9637D+00,0.9737D+00,0.9837D+00,0.9937D+00/ - -C...place for DATA blocks - DATA (XPV(I,1,0),I=1,100)/ - &0.1565D+01,0.1506D+01,0.1448D+01,0.1391D+01,0.1338D+01,0.1286D+01, - &0.1236D+01,0.1189D+01,0.1143D+01,0.1098D+01,0.1056D+01,0.1015D+01, - &0.9745D+00,0.9371D+00,0.9004D+00,0.8646D+00,0.8312D+00,0.7984D+00, - &0.7665D+00,0.7365D+00,0.7073D+00,0.6785D+00,0.6518D+00,0.6254D+00, - &0.5998D+00,0.5756D+00,0.5519D+00,0.5287D+00,0.5068D+00,0.4854D+00, - &0.4644D+00,0.4443D+00,0.4249D+00,0.4058D+00,0.3872D+00,0.3694D+00, - &0.3519D+00,0.3348D+00,0.3181D+00,0.3020D+00,0.2861D+00,0.2705D+00, - &0.2553D+00,0.2413D+00,0.2263D+00,0.2118D+00,0.1980D+00,0.1843D+00, - &0.1706D+00,0.1573D+00,0.1442D+00,0.1315D+00,0.1190D+00,0.1070D+00, - &0.9501D-01,0.8376D-01,0.7302D-01,0.6278D-01,0.5319D-01,0.4429D-01, - &0.3613D-01,0.2884D-01,0.2246D-01,0.1692D-01,0.1231D-01,0.8569D-02, - &0.5692D-02,0.3556D-02,0.2071D-02,0.1106D-02,0.5306D-03,0.2221D-03, - &0.7821D-04,0.2192D-04,0.4488D-05,0.5808D-06,0.3699D-07,0.6624D-09, - &0.3750D-09,0.2067D-09,0.1106D-09,0.5732D-10,0.2868D-10,0.1378D-10, - &0.6286D-11,0.2737D-11,0.1123D-11,0.4323D-12,0.1545D-12,0.5043D-13, - &0.1478D-13,0.3800D-14,0.8317D-15,0.1485D-15,0.2036D-16,0.1950D-17, - &0.1118D-18,0.2870D-20,0.1704D-22,0.0000D+00/ - DATA (XPV(I,1,1),I=1,100)/ - &0.2916D-06,0.3304D-06,0.3747D-06,0.4246D-06,0.4815D-06,0.5462D-06, - &0.6192D-06,0.7024D-06,0.7966D-06,0.9039D-06,0.1025D-05,0.1163D-05, - &0.1321D-05,0.1499D-05,0.1701D-05,0.1932D-05,0.2193D-05,0.2490D-05, - &0.2828D-05,0.3212D-05,0.3647D-05,0.4146D-05,0.4707D-05,0.5351D-05, - &0.6077D-05,0.6906D-05,0.7851D-05,0.8925D-05,0.1014D-04,0.1153D-04, - &0.1311D-04,0.1490D-04,0.1695D-04,0.1927D-04,0.2191D-04,0.2492D-04, - &0.2834D-04,0.3223D-04,0.3666D-04,0.4169D-04,0.4740D-04,0.5389D-04, - &0.6128D-04,0.6966D-04,0.7921D-04,0.9006D-04,0.1023D-03,0.1163D-03, - &0.1321D-03,0.1500D-03,0.1703D-03,0.1933D-03,0.2192D-03,0.2485D-03, - &0.2817D-03,0.3190D-03,0.3609D-03,0.4080D-03,0.4608D-03,0.5198D-03, - &0.5859D-03,0.6591D-03,0.7400D-03,0.8298D-03,0.9282D-03,0.1036D-02, - &0.1153D-02,0.1280D-02,0.1415D-02,0.1558D-02,0.1706D-02,0.1859D-02, - &0.2011D-02,0.2158D-02,0.2291D-02,0.2397D-02,0.2457D-02,0.2434D-02, - &0.2424D-02,0.2411D-02,0.2397D-02,0.2381D-02,0.2362D-02,0.2341D-02, - &0.2317D-02,0.2291D-02,0.2262D-02,0.2230D-02,0.2194D-02,0.2154D-02, - &0.2110D-02,0.2060D-02,0.2006D-02,0.1944D-02,0.1874D-02,0.1795D-02, - &0.1702D-02,0.1592D-02,0.1567D-02,0.9891D-03/ - DATA (XPV(I,1,2),I=1,100)/ - &0.1611D-06,0.1839D-06,0.2101D-06,0.2397D-06,0.2738D-06,0.3129D-06, - &0.3572D-06,0.4081D-06,0.4661D-06,0.5325D-06,0.6084D-06,0.6950D-06, - &0.7944D-06,0.9077D-06,0.1037D-05,0.1186D-05,0.1355D-05,0.1550D-05, - &0.1771D-05,0.2025D-05,0.2315D-05,0.2649D-05,0.3027D-05,0.3464D-05, - &0.3959D-05,0.4528D-05,0.5180D-05,0.5926D-05,0.6776D-05,0.7751D-05, - &0.8869D-05,0.1014D-04,0.1161D-04,0.1328D-04,0.1519D-04,0.1738D-04, - &0.1988D-04,0.2274D-04,0.2602D-04,0.2976D-04,0.3404D-04,0.3893D-04, - &0.4452D-04,0.5090D-04,0.5821D-04,0.6657D-04,0.7608D-04,0.8693D-04, - &0.9936D-04,0.1135D-03,0.1296D-03,0.1479D-03,0.1688D-03,0.1925D-03, - &0.2195D-03,0.2501D-03,0.2847D-03,0.3239D-03,0.3682D-03,0.4180D-03, - &0.4743D-03,0.5371D-03,0.6071D-03,0.6855D-03,0.7721D-03,0.8679D-03, - &0.9724D-03,0.1086D-02,0.1208D-02,0.1338D-02,0.1472D-02,0.1609D-02, - &0.1742D-02,0.1864D-02,0.1962D-02,0.2019D-02,0.2006D-02,0.1875D-02, - &0.1850D-02,0.1823D-02,0.1794D-02,0.1762D-02,0.1728D-02,0.1691D-02, - &0.1651D-02,0.1609D-02,0.1563D-02,0.1514D-02,0.1462D-02,0.1405D-02, - &0.1345D-02,0.1280D-02,0.1209D-02,0.1133D-02,0.1051D-02,0.9598D-03, - &0.8591D-03,0.7454D-03,0.6438D-03,0.3654D-03/ - DATA (XPV(I,1,3),I=1,100)/ - &0.3274D-03,0.3407D-03,0.3547D-03,0.3691D-03,0.3843D-03,0.4000D-03, - &0.4163D-03,0.4333D-03,0.4510D-03,0.4693D-03,0.4885D-03,0.5084D-03, - &0.5291D-03,0.5506D-03,0.5730D-03,0.5963D-03,0.6205D-03,0.6456D-03, - &0.6717D-03,0.6989D-03,0.7270D-03,0.7564D-03,0.7866D-03,0.8183D-03, - &0.8507D-03,0.8847D-03,0.9198D-03,0.9561D-03,0.9936D-03,0.1032D-02, - &0.1073D-02,0.1114D-02,0.1157D-02,0.1200D-02,0.1245D-02,0.1292D-02, - &0.1339D-02,0.1387D-02,0.1436D-02,0.1486D-02,0.1537D-02,0.1588D-02, - &0.1639D-02,0.1693D-02,0.1742D-02,0.1792D-02,0.1842D-02,0.1889D-02, - &0.1933D-02,0.1974D-02,0.2011D-02,0.2043D-02,0.2070D-02,0.2090D-02, - &0.2098D-02,0.2100D-02,0.2091D-02,0.2069D-02,0.2034D-02,0.1984D-02, - &0.1918D-02,0.1835D-02,0.1738D-02,0.1621D-02,0.1490D-02,0.1344D-02, - &0.1189D-02,0.1026D-02,0.8614D-03,0.7006D-03,0.5505D-03,0.4173D-03, - &0.3076D-03,0.2258D-03,0.1743D-03,0.1526D-03,0.1584D-03,0.1876D-03, - &0.1921D-03,0.1968D-03,0.2016D-03,0.2066D-03,0.2117D-03,0.2169D-03, - &0.2222D-03,0.2276D-03,0.2331D-03,0.2385D-03,0.2441D-03,0.2495D-03, - &0.2550D-03,0.2603D-03,0.2654D-03,0.2702D-03,0.2746D-03,0.2783D-03, - &0.2811D-03,0.2822D-03,0.3078D-03,0.2079D-03/ - DATA (XPV(I,1,4),I=1,100)/ - &0.1280D-03,0.1332D-03,0.1387D-03,0.1444D-03,0.1503D-03,0.1565D-03, - &0.1629D-03,0.1696D-03,0.1765D-03,0.1837D-03,0.1913D-03,0.1991D-03, - &0.2072D-03,0.2157D-03,0.2245D-03,0.2337D-03,0.2433D-03,0.2532D-03, - &0.2636D-03,0.2743D-03,0.2855D-03,0.2971D-03,0.3092D-03,0.3218D-03, - &0.3347D-03,0.3483D-03,0.3624D-03,0.3770D-03,0.3920D-03,0.4077D-03, - &0.4239D-03,0.4407D-03,0.4581D-03,0.4759D-03,0.4944D-03,0.5134D-03, - &0.5330D-03,0.5531D-03,0.5736D-03,0.5947D-03,0.6162D-03,0.6379D-03, - &0.6601D-03,0.6836D-03,0.7055D-03,0.7279D-03,0.7508D-03,0.7728D-03, - &0.7940D-03,0.8146D-03,0.8342D-03,0.8524D-03,0.8689D-03,0.8834D-03, - &0.8941D-03,0.9028D-03,0.9080D-03,0.9090D-03,0.9056D-03,0.8971D-03, - &0.8831D-03,0.8635D-03,0.8385D-03,0.8068D-03,0.7698D-03,0.7276D-03, - &0.6819D-03,0.6336D-03,0.5849D-03,0.5382D-03,0.4968D-03,0.4641D-03, - &0.4444D-03,0.4423D-03,0.4636D-03,0.5150D-03,0.6053D-03,0.7458D-03, - &0.7649D-03,0.7844D-03,0.8043D-03,0.8247D-03,0.8455D-03,0.8667D-03, - &0.8883D-03,0.9100D-03,0.9320D-03,0.9540D-03,0.9761D-03,0.9981D-03, - &0.1020D-02,0.1041D-02,0.1062D-02,0.1081D-02,0.1098D-02,0.1113D-02, - &0.1124D-02,0.1129D-02,0.1231D-02,0.8316D-03/ - DATA (XPV(I,2,0),I=1,100)/ - &0.2212D+01,0.2119D+01,0.2028D+01,0.1939D+01,0.1857D+01,0.1776D+01, - &0.1698D+01,0.1624D+01,0.1553D+01,0.1484D+01,0.1419D+01,0.1356D+01, - &0.1294D+01,0.1237D+01,0.1181D+01,0.1127D+01,0.1076D+01,0.1027D+01, - &0.9785D+00,0.9336D+00,0.8899D+00,0.8471D+00,0.8075D+00,0.7686D+00, - &0.7310D+00,0.6957D+00,0.6613D+00,0.6278D+00,0.5965D+00,0.5661D+00, - &0.5364D+00,0.5083D+00,0.4813D+00,0.4551D+00,0.4298D+00,0.4058D+00, - &0.3825D+00,0.3599D+00,0.3382D+00,0.3174D+00,0.2974D+00,0.2780D+00, - &0.2592D+00,0.2421D+00,0.2243D+00,0.2074D+00,0.1915D+00,0.1760D+00, - &0.1608D+00,0.1463D+00,0.1324D+00,0.1192D+00,0.1064D+00,0.9439D-01, - &0.8268D-01,0.7190D-01,0.6185D-01,0.5247D-01,0.4390D-01,0.3611D-01, - &0.2914D-01,0.2306D-01,0.1786D-01,0.1344D-01,0.9848D-02,0.7000D-02, - &0.4846D-02,0.3270D-02,0.2179D-02,0.1460D-02,0.1009D-02,0.7343D-03, - &0.5643D-03,0.4488D-03,0.3576D-03,0.2761D-03,0.1995D-03,0.1267D-03, - &0.1190D-03,0.1115D-03,0.1041D-03,0.9690D-04,0.8988D-04,0.8302D-04, - &0.7627D-04,0.6975D-04,0.6340D-04,0.5723D-04,0.5123D-04,0.4542D-04, - &0.3981D-04,0.3439D-04,0.2918D-04,0.2419D-04,0.1944D-04,0.1495D-04, - &0.1075D-04,0.6861D-05,0.3406D-05,0.5274D-06/ - DATA (XPV(I,2,1),I=1,100)/ - &0.1934D-01,0.1855D-01,0.1777D-01,0.1701D-01,0.1631D-01,0.1562D-01, - &0.1494D-01,0.1432D-01,0.1370D-01,0.1310D-01,0.1254D-01,0.1200D-01, - &0.1146D-01,0.1097D-01,0.1048D-01,0.1000D-01,0.9557D-02,0.9122D-02, - &0.8698D-02,0.8300D-02,0.7912D-02,0.7530D-02,0.7176D-02,0.6826D-02, - &0.6487D-02,0.6168D-02,0.5856D-02,0.5551D-02,0.5264D-02,0.4985D-02, - &0.4712D-02,0.4451D-02,0.4202D-02,0.3959D-02,0.3723D-02,0.3500D-02, - &0.3284D-02,0.3075D-02,0.2874D-02,0.2684D-02,0.2502D-02,0.2326D-02, - &0.2160D-02,0.2010D-02,0.1857D-02,0.1716D-02,0.1588D-02,0.1467D-02, - &0.1354D-02,0.1252D-02,0.1160D-02,0.1080D-02,0.1011D-02,0.9547D-03, - &0.9083D-03,0.8767D-03,0.8586D-03,0.8538D-03,0.8634D-03,0.8871D-03, - &0.9256D-03,0.9785D-03,0.1046D-02,0.1127D-02,0.1222D-02,0.1329D-02, - &0.1448D-02,0.1578D-02,0.1715D-02,0.1859D-02,0.2008D-02,0.2158D-02, - &0.2307D-02,0.2450D-02,0.2584D-02,0.2700D-02,0.2788D-02,0.2821D-02, - &0.2820D-02,0.2817D-02,0.2812D-02,0.2806D-02,0.2798D-02,0.2788D-02, - &0.2776D-02,0.2762D-02,0.2745D-02,0.2725D-02,0.2702D-02,0.2676D-02, - &0.2645D-02,0.2609D-02,0.2568D-02,0.2519D-02,0.2461D-02,0.2392D-02, - &0.2304D-02,0.2214D-02,0.2038D-02,0.1660D-02/ - DATA (XPV(I,2,2),I=1,100)/ - &0.1934D-01,0.1855D-01,0.1777D-01,0.1701D-01,0.1631D-01,0.1562D-01, - &0.1494D-01,0.1431D-01,0.1370D-01,0.1310D-01,0.1254D-01,0.1200D-01, - &0.1146D-01,0.1096D-01,0.1048D-01,0.1000D-01,0.9555D-02,0.9120D-02, - &0.8695D-02,0.8297D-02,0.7909D-02,0.7526D-02,0.7172D-02,0.6822D-02, - &0.6483D-02,0.6162D-02,0.5850D-02,0.5544D-02,0.5256D-02,0.4976D-02, - &0.4702D-02,0.4441D-02,0.4190D-02,0.3945D-02,0.3708D-02,0.3483D-02, - &0.3266D-02,0.3054D-02,0.2851D-02,0.2659D-02,0.2473D-02,0.2295D-02, - &0.2124D-02,0.1970D-02,0.1813D-02,0.1667D-02,0.1533D-02,0.1406D-02, - &0.1286D-02,0.1177D-02,0.1077D-02,0.9879D-03,0.9093D-03,0.8417D-03, - &0.7835D-03,0.7391D-03,0.7071D-03,0.6872D-03,0.6807D-03,0.6873D-03, - &0.7074D-03,0.7409D-03,0.7879D-03,0.8480D-03,0.9206D-03,0.1005D-02, - &0.1101D-02,0.1206D-02,0.1319D-02,0.1437D-02,0.1558D-02,0.1676D-02, - &0.1786D-02,0.1880D-02,0.1947D-02,0.1969D-02,0.1924D-02,0.1773D-02, - &0.1748D-02,0.1721D-02,0.1691D-02,0.1660D-02,0.1627D-02,0.1592D-02, - &0.1555D-02,0.1515D-02,0.1473D-02,0.1429D-02,0.1382D-02,0.1332D-02, - &0.1279D-02,0.1222D-02,0.1162D-02,0.1098D-02,0.1028D-02,0.9527D-03, - &0.8688D-03,0.7804D-03,0.6649D-03,0.4897D-03/ - DATA (XPV(I,2,3),I=1,100)/ - &0.1968D-01,0.1890D-01,0.1814D-01,0.1740D-01,0.1671D-01,0.1604D-01, - &0.1538D-01,0.1477D-01,0.1418D-01,0.1359D-01,0.1305D-01,0.1253D-01, - &0.1202D-01,0.1154D-01,0.1108D-01,0.1062D-01,0.1020D-01,0.9794D-02, - &0.9396D-02,0.9025D-02,0.8666D-02,0.8313D-02,0.7989D-02,0.7671D-02, - &0.7364D-02,0.7078D-02,0.6800D-02,0.6530D-02,0.6279D-02,0.6037D-02, - &0.5802D-02,0.5581D-02,0.5371D-02,0.5168D-02,0.4973D-02,0.4791D-02, - &0.4616D-02,0.4448D-02,0.4290D-02,0.4140D-02,0.3998D-02,0.3862D-02, - &0.3733D-02,0.3622D-02,0.3502D-02,0.3391D-02,0.3291D-02,0.3192D-02, - &0.3095D-02,0.3004D-02,0.2916D-02,0.2830D-02,0.2745D-02,0.2662D-02, - &0.2572D-02,0.2486D-02,0.2397D-02,0.2302D-02,0.2203D-02,0.2098D-02, - &0.1984D-02,0.1863D-02,0.1735D-02,0.1597D-02,0.1451D-02,0.1298D-02, - &0.1142D-02,0.9853D-03,0.8318D-03,0.6865D-03,0.5549D-03,0.4424D-03, - &0.3541D-03,0.2939D-03,0.2636D-03,0.2636D-03,0.2924D-03,0.3480D-03, - &0.3556D-03,0.3634D-03,0.3713D-03,0.3793D-03,0.3875D-03,0.3956D-03, - &0.4039D-03,0.4120D-03,0.4203D-03,0.4282D-03,0.4362D-03,0.4438D-03, - &0.4511D-03,0.4579D-03,0.4641D-03,0.4694D-03,0.4735D-03,0.4760D-03, - &0.4749D-03,0.4752D-03,0.4578D-03,0.3923D-03/ - DATA (XPV(I,2,4),I=1,100)/ - &0.1947D-01,0.1869D-01,0.1792D-01,0.1717D-01,0.1646D-01,0.1578D-01, - &0.1511D-01,0.1449D-01,0.1389D-01,0.1329D-01,0.1274D-01,0.1220D-01, - &0.1168D-01,0.1119D-01,0.1071D-01,0.1024D-01,0.9809D-02,0.9384D-02, - &0.8970D-02,0.8582D-02,0.8205D-02,0.7835D-02,0.7492D-02,0.7155D-02, - &0.6828D-02,0.6521D-02,0.6223D-02,0.5931D-02,0.5657D-02,0.5393D-02, - &0.5134D-02,0.4889D-02,0.4653D-02,0.4425D-02,0.4205D-02,0.3997D-02, - &0.3796D-02,0.3602D-02,0.3416D-02,0.3241D-02,0.3072D-02,0.2910D-02, - &0.2755D-02,0.2618D-02,0.2475D-02,0.2342D-02,0.2220D-02,0.2103D-02, - &0.1991D-02,0.1887D-02,0.1789D-02,0.1699D-02,0.1614D-02,0.1536D-02, - &0.1460D-02,0.1393D-02,0.1331D-02,0.1273D-02,0.1220D-02,0.1169D-02, - &0.1122D-02,0.1077D-02,0.1035D-02,0.9924D-03,0.9517D-03,0.9118D-03, - &0.8737D-03,0.8375D-03,0.8050D-03,0.7782D-03,0.7598D-03,0.7539D-03, - &0.7655D-03,0.8012D-03,0.8696D-03,0.9820D-03,0.1152D-02,0.1396D-02, - &0.1427D-02,0.1459D-02,0.1492D-02,0.1525D-02,0.1558D-02,0.1592D-02, - &0.1625D-02,0.1659D-02,0.1692D-02,0.1724D-02,0.1757D-02,0.1787D-02, - &0.1817D-02,0.1845D-02,0.1869D-02,0.1891D-02,0.1907D-02,0.1915D-02, - &0.1910D-02,0.1909D-02,0.1831D-02,0.1563D-02/ - DATA (XPV(I,3,0),I=1,100)/ - &0.3308D+01,0.3150D+01,0.2995D+01,0.2845D+01,0.2706D+01,0.2570D+01, - &0.2439D+01,0.2318D+01,0.2200D+01,0.2086D+01,0.1980D+01,0.1877D+01, - &0.1778D+01,0.1685D+01,0.1596D+01,0.1510D+01,0.1429D+01,0.1352D+01, - &0.1277D+01,0.1207D+01,0.1140D+01,0.1074D+01,0.1014D+01,0.9560D+00, - &0.8999D+00,0.8477D+00,0.7974D+00,0.7487D+00,0.7036D+00,0.6603D+00, - &0.6186D+00,0.5793D+00,0.5421D+00,0.5064D+00,0.4722D+00,0.4403D+00, - &0.4097D+00,0.3805D+00,0.3528D+00,0.3267D+00,0.3020D+00,0.2783D+00, - &0.2558D+00,0.2356D+00,0.2151D+00,0.1960D+00,0.1783D+00,0.1614D+00, - &0.1452D+00,0.1302D+00,0.1160D+00,0.1028D+00,0.9044D-01,0.7901D-01, - &0.6820D-01,0.5850D-01,0.4968D-01,0.4167D-01,0.3454D-01,0.2823D-01, - &0.2273D-01,0.1806D-01,0.1416D-01,0.1093D-01,0.8342D-02,0.6321D-02, - &0.4798D-02,0.3669D-02,0.2855D-02,0.2271D-02,0.1847D-02,0.1524D-02, - &0.1262D-02,0.1035D-02,0.8272D-03,0.6323D-03,0.4496D-03,0.2797D-03, - &0.2619D-03,0.2446D-03,0.2277D-03,0.2113D-03,0.1953D-03,0.1798D-03, - &0.1645D-03,0.1498D-03,0.1356D-03,0.1218D-03,0.1085D-03,0.9565D-04, - &0.8330D-04,0.7145D-04,0.6013D-04,0.4938D-04,0.3923D-04,0.2974D-04, - &0.2099D-04,0.1303D-04,0.6225D-05,0.9782D-06/ - DATA (XPV(I,3,1),I=1,100)/ - &0.5631D-01,0.5377D-01,0.5129D-01,0.4888D-01,0.4664D-01,0.4445D-01, - &0.4233D-01,0.4035D-01,0.3843D-01,0.3656D-01,0.3482D-01,0.3313D-01, - &0.3148D-01,0.2994D-01,0.2845D-01,0.2700D-01,0.2565D-01,0.2434D-01, - &0.2307D-01,0.2188D-01,0.2072D-01,0.1960D-01,0.1855D-01,0.1753D-01, - &0.1655D-01,0.1563D-01,0.1474D-01,0.1387D-01,0.1306D-01,0.1227D-01, - &0.1151D-01,0.1080D-01,0.1011D-01,0.9451D-02,0.8816D-02,0.8220D-02, - &0.7648D-02,0.7097D-02,0.6576D-02,0.6084D-02,0.5618D-02,0.5172D-02, - &0.4750D-02,0.4374D-02,0.3996D-02,0.3647D-02,0.3330D-02,0.3034D-02, - &0.2756D-02,0.2506D-02,0.2281D-02,0.2081D-02,0.1906D-02,0.1756D-02, - &0.1627D-02,0.1527D-02,0.1453D-02,0.1402D-02,0.1377D-02,0.1376D-02, - &0.1398D-02,0.1442D-02,0.1507D-02,0.1591D-02,0.1692D-02,0.1808D-02, - &0.1936D-02,0.2075D-02,0.2220D-02,0.2370D-02,0.2522D-02,0.2675D-02, - &0.2827D-02,0.2977D-02,0.3127D-02,0.3276D-02,0.3425D-02,0.3559D-02, - &0.3572D-02,0.3583D-02,0.3593D-02,0.3601D-02,0.3608D-02,0.3613D-02, - &0.3616D-02,0.3616D-02,0.3614D-02,0.3609D-02,0.3600D-02,0.3586D-02, - &0.3568D-02,0.3542D-02,0.3510D-02,0.3467D-02,0.3412D-02,0.3340D-02, - &0.3240D-02,0.3140D-02,0.2881D-02,0.2260D-02/ - DATA (XPV(I,3,2),I=1,100)/ - &0.5631D-01,0.5377D-01,0.5129D-01,0.4888D-01,0.4664D-01,0.4445D-01, - &0.4233D-01,0.4035D-01,0.3843D-01,0.3656D-01,0.3481D-01,0.3312D-01, - &0.3147D-01,0.2994D-01,0.2845D-01,0.2700D-01,0.2565D-01,0.2433D-01, - &0.2306D-01,0.2187D-01,0.2072D-01,0.1959D-01,0.1855D-01,0.1752D-01, - &0.1654D-01,0.1562D-01,0.1472D-01,0.1385D-01,0.1304D-01,0.1226D-01, - &0.1149D-01,0.1077D-01,0.1009D-01,0.9422D-02,0.8784D-02,0.8185D-02, - &0.7608D-02,0.7054D-02,0.6527D-02,0.6030D-02,0.5558D-02,0.5105D-02, - &0.4676D-02,0.4292D-02,0.3905D-02,0.3547D-02,0.3219D-02,0.2910D-02, - &0.2620D-02,0.2356D-02,0.2115D-02,0.1897D-02,0.1703D-02,0.1533D-02, - &0.1382D-02,0.1258D-02,0.1158D-02,0.1080D-02,0.1025D-02,0.9926D-03, - &0.9811D-03,0.9900D-03,0.1018D-02,0.1064D-02,0.1125D-02,0.1200D-02, - &0.1286D-02,0.1381D-02,0.1481D-02,0.1583D-02,0.1683D-02,0.1776D-02, - &0.1857D-02,0.1917D-02,0.1949D-02,0.1938D-02,0.1870D-02,0.1718D-02, - &0.1695D-02,0.1670D-02,0.1644D-02,0.1617D-02,0.1589D-02,0.1559D-02, - &0.1527D-02,0.1494D-02,0.1459D-02,0.1423D-02,0.1385D-02,0.1344D-02, - &0.1302D-02,0.1256D-02,0.1208D-02,0.1157D-02,0.1101D-02,0.1040D-02, - &0.9712D-03,0.9017D-03,0.7902D-03,0.5856D-03/ - DATA (XPV(I,3,3),I=1,100)/ - &0.5668D-01,0.5415D-01,0.5169D-01,0.4930D-01,0.4707D-01,0.4490D-01, - &0.4280D-01,0.4084D-01,0.3894D-01,0.3708D-01,0.3536D-01,0.3369D-01, - &0.3207D-01,0.3056D-01,0.2909D-01,0.2766D-01,0.2634D-01,0.2505D-01, - &0.2381D-01,0.2264D-01,0.2152D-01,0.2042D-01,0.1941D-01,0.1842D-01, - &0.1747D-01,0.1658D-01,0.1572D-01,0.1489D-01,0.1411D-01,0.1337D-01, - &0.1264D-01,0.1196D-01,0.1131D-01,0.1069D-01,0.1009D-01,0.9533D-02, - &0.8998D-02,0.8483D-02,0.7997D-02,0.7540D-02,0.7105D-02,0.6689D-02, - &0.6295D-02,0.5947D-02,0.5588D-02,0.5256D-02,0.4952D-02,0.4661D-02, - &0.4382D-02,0.4123D-02,0.3879D-02,0.3650D-02,0.3434D-02,0.3232D-02, - &0.3033D-02,0.2850D-02,0.2676D-02,0.2508D-02,0.2345D-02,0.2186D-02, - &0.2029D-02,0.1875D-02,0.1723D-02,0.1569D-02,0.1416D-02,0.1264D-02, - &0.1115D-02,0.9718D-03,0.8371D-03,0.7147D-03,0.6091D-03,0.5242D-03, - &0.4643D-03,0.4324D-03,0.4307D-03,0.4600D-03,0.5208D-03,0.6116D-03, - &0.6232D-03,0.6348D-03,0.6465D-03,0.6582D-03,0.6698D-03,0.6813D-03, - &0.6927D-03,0.7037D-03,0.7145D-03,0.7247D-03,0.7344D-03,0.7433D-03, - &0.7512D-03,0.7579D-03,0.7629D-03,0.7658D-03,0.7660D-03,0.7620D-03, - &0.7516D-03,0.7414D-03,0.6912D-03,0.5511D-03/ - DATA (XPV(I,3,4),I=1,100)/ - &0.5645D-01,0.5392D-01,0.5144D-01,0.4905D-01,0.4681D-01,0.4462D-01, - &0.4251D-01,0.4054D-01,0.3863D-01,0.3676D-01,0.3503D-01,0.3335D-01, - &0.3171D-01,0.3018D-01,0.2870D-01,0.2726D-01,0.2592D-01,0.2462D-01, - &0.2335D-01,0.2217D-01,0.2103D-01,0.1992D-01,0.1889D-01,0.1788D-01, - &0.1691D-01,0.1600D-01,0.1512D-01,0.1426D-01,0.1347D-01,0.1270D-01, - &0.1195D-01,0.1125D-01,0.1058D-01,0.9929D-02,0.9308D-02,0.8726D-02, - &0.8167D-02,0.7630D-02,0.7121D-02,0.6641D-02,0.6185D-02,0.5749D-02, - &0.5336D-02,0.4968D-02,0.4595D-02,0.4249D-02,0.3933D-02,0.3635D-02, - &0.3352D-02,0.3093D-02,0.2854D-02,0.2635D-02,0.2436D-02,0.2256D-02, - &0.2089D-02,0.1945D-02,0.1818D-02,0.1706D-02,0.1610D-02,0.1528D-02, - &0.1458D-02,0.1400D-02,0.1353D-02,0.1314D-02,0.1283D-02,0.1259D-02, - &0.1242D-02,0.1231D-02,0.1228D-02,0.1235D-02,0.1254D-02,0.1291D-02, - &0.1351D-02,0.1446D-02,0.1586D-02,0.1789D-02,0.2074D-02,0.2452D-02, - &0.2500D-02,0.2547D-02,0.2594D-02,0.2642D-02,0.2689D-02,0.2735D-02, - &0.2781D-02,0.2826D-02,0.2869D-02,0.2910D-02,0.2950D-02,0.2985D-02, - &0.3017D-02,0.3044D-02,0.3065D-02,0.3076D-02,0.3077D-02,0.3062D-02, - &0.3020D-02,0.2980D-02,0.2782D-02,0.2225D-02/ - DATA (XPV(I,4,0),I=1,100)/ - &0.3752D+01,0.3563D+01,0.3380D+01,0.3204D+01,0.3040D+01,0.2881D+01, - &0.2728D+01,0.2585D+01,0.2448D+01,0.2314D+01,0.2191D+01,0.2072D+01, - &0.1957D+01,0.1850D+01,0.1747D+01,0.1648D+01,0.1556D+01,0.1467D+01, - &0.1381D+01,0.1302D+01,0.1226D+01,0.1152D+01,0.1084D+01,0.1018D+01, - &0.9554D+00,0.8969D+00,0.8408D+00,0.7867D+00,0.7367D+00,0.6889D+00, - &0.6429D+00,0.5998D+00,0.5591D+00,0.5202D+00,0.4832D+00,0.4487D+00, - &0.4159D+00,0.3845D+00,0.3551D+00,0.3274D+00,0.3013D+00,0.2764D+00, - &0.2529D+00,0.2319D+00,0.2108D+00,0.1912D+00,0.1731D+00,0.1560D+00, - &0.1397D+00,0.1246D+00,0.1106D+00,0.9755D-01,0.8546D-01,0.7436D-01, - &0.6395D-01,0.5468D-01,0.4632D-01,0.3879D-01,0.3214D-01,0.2631D-01, - &0.2126D-01,0.1701D-01,0.1348D-01,0.1056D-01,0.8234D-02,0.6412D-02, - &0.5029D-02,0.3987D-02,0.3214D-02,0.2636D-02,0.2192D-02,0.1833D-02, - &0.1527D-02,0.1252D-02,0.9989D-03,0.7610D-03,0.5388D-03,0.3334D-03, - &0.3120D-03,0.2911D-03,0.2708D-03,0.2511D-03,0.2319D-03,0.2132D-03, - &0.1950D-03,0.1774D-03,0.1603D-03,0.1439D-03,0.1280D-03,0.1127D-03, - &0.9795D-04,0.8387D-04,0.7044D-04,0.5771D-04,0.4573D-04,0.3455D-04, - &0.2427D-04,0.1497D-04,0.7094D-05,0.1118D-05/ - DATA (XPV(I,4,1),I=1,100)/ - &0.7267D-01,0.6928D-01,0.6597D-01,0.6277D-01,0.5978D-01,0.5687D-01, - &0.5406D-01,0.5144D-01,0.4890D-01,0.4643D-01,0.4414D-01,0.4191D-01, - &0.3975D-01,0.3774D-01,0.3579D-01,0.3389D-01,0.3213D-01,0.3042D-01, - &0.2877D-01,0.2723D-01,0.2574D-01,0.2428D-01,0.2294D-01,0.2163D-01, - &0.2037D-01,0.1919D-01,0.1805D-01,0.1695D-01,0.1592D-01,0.1493D-01, - &0.1397D-01,0.1306D-01,0.1220D-01,0.1138D-01,0.1059D-01,0.9845D-02, - &0.9136D-02,0.8456D-02,0.7814D-02,0.7210D-02,0.6639D-02,0.6096D-02, - &0.5583D-02,0.5128D-02,0.4672D-02,0.4253D-02,0.3873D-02,0.3519D-02, - &0.3189D-02,0.2893D-02,0.2627D-02,0.2391D-02,0.2185D-02,0.2009D-02, - &0.1858D-02,0.1741D-02,0.1654D-02,0.1594D-02,0.1563D-02,0.1558D-02, - &0.1580D-02,0.1625D-02,0.1693D-02,0.1781D-02,0.1887D-02,0.2008D-02, - &0.2141D-02,0.2284D-02,0.2434D-02,0.2587D-02,0.2742D-02,0.2898D-02, - &0.3053D-02,0.3209D-02,0.3370D-02,0.3537D-02,0.3715D-02,0.3891D-02, - &0.3909D-02,0.3925D-02,0.3940D-02,0.3954D-02,0.3967D-02,0.3977D-02, - &0.3985D-02,0.3990D-02,0.3993D-02,0.3992D-02,0.3987D-02,0.3977D-02, - &0.3961D-02,0.3938D-02,0.3907D-02,0.3863D-02,0.3806D-02,0.3729D-02, - &0.3619D-02,0.3510D-02,0.3213D-02,0.2499D-02/ - DATA (XPV(I,4,2),I=1,100)/ - &0.7267D-01,0.6928D-01,0.6597D-01,0.6277D-01,0.5978D-01,0.5687D-01, - &0.5406D-01,0.5144D-01,0.4890D-01,0.4643D-01,0.4413D-01,0.4191D-01, - &0.3974D-01,0.3773D-01,0.3578D-01,0.3389D-01,0.3213D-01,0.3042D-01, - &0.2876D-01,0.2722D-01,0.2573D-01,0.2427D-01,0.2293D-01,0.2162D-01, - &0.2035D-01,0.1917D-01,0.1803D-01,0.1693D-01,0.1590D-01,0.1490D-01, - &0.1394D-01,0.1303D-01,0.1217D-01,0.1134D-01,0.1055D-01,0.9801D-02, - &0.9086D-02,0.8401D-02,0.7753D-02,0.7143D-02,0.6564D-02,0.6013D-02, - &0.5492D-02,0.5026D-02,0.4559D-02,0.4128D-02,0.3735D-02,0.3366D-02, - &0.3020D-02,0.2707D-02,0.2422D-02,0.2165D-02,0.1936D-02,0.1736D-02, - &0.1559D-02,0.1413D-02,0.1295D-02,0.1202D-02,0.1135D-02,0.1092D-02, - &0.1073D-02,0.1077D-02,0.1101D-02,0.1143D-02,0.1201D-02,0.1274D-02, - &0.1357D-02,0.1448D-02,0.1543D-02,0.1639D-02,0.1732D-02,0.1817D-02, - &0.1888D-02,0.1938D-02,0.1960D-02,0.1941D-02,0.1870D-02,0.1725D-02, - &0.1703D-02,0.1680D-02,0.1656D-02,0.1631D-02,0.1604D-02,0.1577D-02, - &0.1548D-02,0.1517D-02,0.1485D-02,0.1452D-02,0.1417D-02,0.1380D-02, - &0.1341D-02,0.1299D-02,0.1255D-02,0.1207D-02,0.1156D-02,0.1098D-02, - &0.1033D-02,0.9674D-03,0.8541D-03,0.6354D-03/ - DATA (XPV(I,4,3),I=1,100)/ - &0.7305D-01,0.6967D-01,0.6638D-01,0.6319D-01,0.6022D-01,0.5733D-01, - &0.5454D-01,0.5194D-01,0.4942D-01,0.4697D-01,0.4470D-01,0.4249D-01, - &0.4035D-01,0.3836D-01,0.3644D-01,0.3457D-01,0.3283D-01,0.3115D-01, - &0.2952D-01,0.2801D-01,0.2655D-01,0.2512D-01,0.2381D-01,0.2253D-01, - &0.2130D-01,0.2016D-01,0.1905D-01,0.1798D-01,0.1698D-01,0.1603D-01, - &0.1511D-01,0.1424D-01,0.1341D-01,0.1262D-01,0.1187D-01,0.1116D-01, - &0.1049D-01,0.9841D-02,0.9231D-02,0.8659D-02,0.8117D-02,0.7599D-02, - &0.7111D-02,0.6679D-02,0.6237D-02,0.5829D-02,0.5456D-02,0.5100D-02, - &0.4761D-02,0.4448D-02,0.4155D-02,0.3882D-02,0.3626D-02,0.3388D-02, - &0.3157D-02,0.2947D-02,0.2749D-02,0.2560D-02,0.2381D-02,0.2208D-02, - &0.2041D-02,0.1879D-02,0.1722D-02,0.1566D-02,0.1413D-02,0.1263D-02, - &0.1119D-02,0.9814D-03,0.8540D-03,0.7401D-03,0.6436D-03,0.5684D-03, - &0.5183D-03,0.4963D-03,0.5046D-03,0.5445D-03,0.6168D-03,0.7197D-03, - &0.7326D-03,0.7455D-03,0.7585D-03,0.7712D-03,0.7840D-03,0.7964D-03, - &0.8087D-03,0.8205D-03,0.8319D-03,0.8426D-03,0.8525D-03,0.8614D-03, - &0.8691D-03,0.8752D-03,0.8793D-03,0.8807D-03,0.8787D-03,0.8717D-03, - &0.8570D-03,0.8420D-03,0.7795D-03,0.6128D-03/ - DATA (XPV(I,4,4),I=1,100)/ - &0.7282D-01,0.6943D-01,0.6613D-01,0.6293D-01,0.5995D-01,0.5705D-01, - &0.5425D-01,0.5164D-01,0.4911D-01,0.4664D-01,0.4436D-01,0.4214D-01, - &0.3998D-01,0.3798D-01,0.3604D-01,0.3416D-01,0.3240D-01,0.3071D-01, - &0.2906D-01,0.2753D-01,0.2605D-01,0.2461D-01,0.2328D-01,0.2198D-01, - &0.2073D-01,0.1957D-01,0.1844D-01,0.1735D-01,0.1633D-01,0.1535D-01, - &0.1441D-01,0.1352D-01,0.1267D-01,0.1186D-01,0.1108D-01,0.1035D-01, - &0.9656D-02,0.8988D-02,0.8358D-02,0.7765D-02,0.7204D-02,0.6669D-02, - &0.6164D-02,0.5715D-02,0.5262D-02,0.4844D-02,0.4464D-02,0.4105D-02, - &0.3767D-02,0.3460D-02,0.3177D-02,0.2920D-02,0.2687D-02,0.2479D-02, - &0.2287D-02,0.2123D-02,0.1980D-02,0.1856D-02,0.1752D-02,0.1664D-02, - &0.1592D-02,0.1534D-02,0.1490D-02,0.1456D-02,0.1432D-02,0.1417D-02, - &0.1410D-02,0.1411D-02,0.1420D-02,0.1440D-02,0.1475D-02,0.1528D-02, - &0.1609D-02,0.1726D-02,0.1895D-02,0.2133D-02,0.2459D-02,0.2886D-02, - &0.2938D-02,0.2991D-02,0.3043D-02,0.3095D-02,0.3146D-02,0.3196D-02, - &0.3246D-02,0.3294D-02,0.3340D-02,0.3382D-02,0.3423D-02,0.3458D-02, - &0.3490D-02,0.3514D-02,0.3531D-02,0.3537D-02,0.3529D-02,0.3502D-02, - &0.3443D-02,0.3384D-02,0.3138D-02,0.2476D-02/ - DATA (XPV(I,5,0),I=1,100)/ - &0.5090D+01,0.4807D+01,0.4532D+01,0.4269D+01,0.4025D+01,0.3790D+01, - &0.3565D+01,0.3357D+01,0.3158D+01,0.2966D+01,0.2789D+01,0.2619D+01, - &0.2456D+01,0.2306D+01,0.2162D+01,0.2024D+01,0.1896D+01,0.1775D+01, - &0.1658D+01,0.1551D+01,0.1449D+01,0.1350D+01,0.1260D+01,0.1174D+01, - &0.1092D+01,0.1017D+01,0.9446D+00,0.8759D+00,0.8129D+00,0.7532D+00, - &0.6963D+00,0.6436D+00,0.5942D+00,0.5475D+00,0.5035D+00,0.4630D+00, - &0.4248D+00,0.3887D+00,0.3552D+00,0.3241D+00,0.2952D+00,0.2679D+00, - &0.2425D+00,0.2201D+00,0.1979D+00,0.1776D+00,0.1591D+00,0.1419D+00, - &0.1258D+00,0.1112D+00,0.9780D-01,0.8557D-01,0.7444D-01,0.6440D-01, - &0.5515D-01,0.4707D-01,0.3992D-01,0.3359D-01,0.2809D-01,0.2335D-01, - &0.1929D-01,0.1591D-01,0.1311D-01,0.1080D-01,0.8928D-02,0.7425D-02, - &0.6231D-02,0.5269D-02,0.4486D-02,0.3833D-02,0.3270D-02,0.2770D-02, - &0.2314D-02,0.1893D-02,0.1501D-02,0.1135D-02,0.7972D-03,0.4881D-03, - &0.4561D-03,0.4250D-03,0.3947D-03,0.3653D-03,0.3368D-03,0.3092D-03, - &0.2821D-03,0.2562D-03,0.2311D-03,0.2068D-03,0.1835D-03,0.1611D-03, - &0.1396D-03,0.1192D-03,0.9970D-04,0.8133D-04,0.6411D-04,0.4814D-04, - &0.3357D-04,0.2049D-04,0.9589D-05,0.1523D-05/ - DATA (XPV(I,5,1),I=1,100)/ - &0.1266D+00,0.1201D+00,0.1139D+00,0.1078D+00,0.1022D+00,0.9680D-01, - &0.9156D-01,0.8670D-01,0.8201D-01,0.7747D-01,0.7327D-01,0.6921D-01, - &0.6529D-01,0.6166D-01,0.5816D-01,0.5478D-01,0.5165D-01,0.4863D-01, - &0.4572D-01,0.4302D-01,0.4044D-01,0.3792D-01,0.3561D-01,0.3338D-01, - &0.3124D-01,0.2925D-01,0.2735D-01,0.2551D-01,0.2381D-01,0.2218D-01, - &0.2062D-01,0.1916D-01,0.1779D-01,0.1647D-01,0.1522D-01,0.1406D-01, - &0.1296D-01,0.1192D-01,0.1094D-01,0.1003D-01,0.9174D-02,0.8369D-02, - &0.7616D-02,0.6954D-02,0.6299D-02,0.5702D-02,0.5167D-02,0.4674D-02, - &0.4219D-02,0.3817D-02,0.3459D-02,0.3147D-02,0.2878D-02,0.2651D-02, - &0.2460D-02,0.2315D-02,0.2210D-02,0.2140D-02,0.2107D-02,0.2106D-02, - &0.2137D-02,0.2196D-02,0.2281D-02,0.2387D-02,0.2512D-02,0.2652D-02, - &0.2804D-02,0.2964D-02,0.3128D-02,0.3295D-02,0.3463D-02,0.3634D-02, - &0.3808D-02,0.3993D-02,0.4196D-02,0.4430D-02,0.4706D-02,0.5014D-02, - &0.5048D-02,0.5080D-02,0.5111D-02,0.5140D-02,0.5168D-02,0.5193D-02, - &0.5215D-02,0.5233D-02,0.5248D-02,0.5257D-02,0.5261D-02,0.5258D-02, - &0.5247D-02,0.5225D-02,0.5191D-02,0.5140D-02,0.5069D-02,0.4968D-02, - &0.4823D-02,0.4671D-02,0.4254D-02,0.3263D-02/ - DATA (XPV(I,5,2),I=1,100)/ - &0.1266D+00,0.1201D+00,0.1139D+00,0.1078D+00,0.1022D+00,0.9679D-01, - &0.9156D-01,0.8670D-01,0.8201D-01,0.7747D-01,0.7326D-01,0.6921D-01, - &0.6528D-01,0.6166D-01,0.5815D-01,0.5477D-01,0.5164D-01,0.4862D-01, - &0.4571D-01,0.4301D-01,0.4042D-01,0.3790D-01,0.3559D-01,0.3335D-01, - &0.3121D-01,0.2922D-01,0.2731D-01,0.2547D-01,0.2377D-01,0.2214D-01, - &0.2058D-01,0.1911D-01,0.1773D-01,0.1641D-01,0.1515D-01,0.1399D-01, - &0.1288D-01,0.1182D-01,0.1083D-01,0.9913D-02,0.9047D-02,0.8227D-02, - &0.7461D-02,0.6782D-02,0.6109D-02,0.5493D-02,0.4936D-02,0.4419D-02, - &0.3940D-02,0.3509D-02,0.3121D-02,0.2776D-02,0.2470D-02,0.2205D-02, - &0.1972D-02,0.1782D-02,0.1628D-02,0.1507D-02,0.1418D-02,0.1359D-02, - &0.1328D-02,0.1323D-02,0.1340D-02,0.1377D-02,0.1429D-02,0.1495D-02, - &0.1570D-02,0.1651D-02,0.1733D-02,0.1813D-02,0.1887D-02,0.1950D-02, - &0.1998D-02,0.2025D-02,0.2028D-02,0.2000D-02,0.1934D-02,0.1821D-02, - &0.1805D-02,0.1788D-02,0.1770D-02,0.1751D-02,0.1732D-02,0.1712D-02, - &0.1691D-02,0.1668D-02,0.1645D-02,0.1620D-02,0.1594D-02,0.1566D-02, - &0.1536D-02,0.1503D-02,0.1467D-02,0.1428D-02,0.1384D-02,0.1333D-02, - &0.1271D-02,0.1209D-02,0.1082D-02,0.8147D-03/ - DATA (XPV(I,5,3),I=1,100)/ - &0.1270D+00,0.1206D+00,0.1143D+00,0.1083D+00,0.1027D+00,0.9728D-01, - &0.9207D-01,0.8723D-01,0.8256D-01,0.7804D-01,0.7386D-01,0.6983D-01, - &0.6593D-01,0.6233D-01,0.5885D-01,0.5549D-01,0.5239D-01,0.4939D-01, - &0.4651D-01,0.4384D-01,0.4128D-01,0.3880D-01,0.3652D-01,0.3431D-01, - &0.3221D-01,0.3025D-01,0.2838D-01,0.2657D-01,0.2490D-01,0.2331D-01, - &0.2178D-01,0.2036D-01,0.1901D-01,0.1773D-01,0.1651D-01,0.1538D-01, - &0.1431D-01,0.1329D-01,0.1233D-01,0.1144D-01,0.1061D-01,0.9815D-02, - &0.9073D-02,0.8419D-02,0.7762D-02,0.7159D-02,0.6612D-02,0.6098D-02, - &0.5612D-02,0.5170D-02,0.4761D-02,0.4384D-02,0.4038D-02,0.3721D-02, - &0.3420D-02,0.3151D-02,0.2904D-02,0.2675D-02,0.2463D-02,0.2266D-02, - &0.2081D-02,0.1908D-02,0.1746D-02,0.1589D-02,0.1442D-02,0.1302D-02, - &0.1172D-02,0.1053D-02,0.9463D-03,0.8557D-03,0.7842D-03,0.7348D-03, - &0.7109D-03,0.7155D-03,0.7513D-03,0.8206D-03,0.9250D-03,0.1061D-02, - &0.1078D-02,0.1094D-02,0.1110D-02,0.1126D-02,0.1141D-02,0.1156D-02, - &0.1170D-02,0.1183D-02,0.1196D-02,0.1207D-02,0.1217D-02,0.1225D-02, - &0.1231D-02,0.1235D-02,0.1235D-02,0.1231D-02,0.1222D-02,0.1205D-02, - &0.1177D-02,0.1147D-02,0.1049D-02,0.8076D-03/ - DATA (XPV(I,5,4),I=1,100)/ - &0.1268D+00,0.1203D+00,0.1141D+00,0.1080D+00,0.1024D+00,0.9699D-01, - &0.9176D-01,0.8691D-01,0.8223D-01,0.7769D-01,0.7350D-01,0.6945D-01, - &0.6554D-01,0.6192D-01,0.5843D-01,0.5506D-01,0.5194D-01,0.4893D-01, - &0.4603D-01,0.4334D-01,0.4077D-01,0.3826D-01,0.3597D-01,0.3374D-01, - &0.3162D-01,0.2964D-01,0.2775D-01,0.2592D-01,0.2423D-01,0.2262D-01, - &0.2108D-01,0.1963D-01,0.1826D-01,0.1696D-01,0.1572D-01,0.1457D-01, - &0.1348D-01,0.1245D-01,0.1148D-01,0.1058D-01,0.9728D-02,0.8927D-02, - &0.8178D-02,0.7517D-02,0.6860D-02,0.6260D-02,0.5718D-02,0.5215D-02, - &0.4746D-02,0.4325D-02,0.3945D-02,0.3604D-02,0.3300D-02,0.3034D-02, - &0.2794D-02,0.2595D-02,0.2428D-02,0.2288D-02,0.2176D-02,0.2089D-02, - &0.2024D-02,0.1980D-02,0.1955D-02,0.1945D-02,0.1948D-02,0.1963D-02, - &0.1990D-02,0.2028D-02,0.2077D-02,0.2140D-02,0.2220D-02,0.2326D-02, - &0.2465D-02,0.2653D-02,0.2905D-02,0.3246D-02,0.3695D-02,0.4254D-02, - &0.4321D-02,0.4386D-02,0.4451D-02,0.4514D-02,0.4577D-02,0.4636D-02, - &0.4694D-02,0.4748D-02,0.4799D-02,0.4844D-02,0.4884D-02,0.4917D-02, - &0.4943D-02,0.4957D-02,0.4959D-02,0.4943D-02,0.4907D-02,0.4841D-02, - &0.4729D-02,0.4609D-02,0.4221D-02,0.3255D-02/ - DATA (XPV(I,6,0),I=1,100)/ - &0.6237D+01,0.5864D+01,0.5504D+01,0.5161D+01,0.4844D+01,0.4540D+01, - &0.4250D+01,0.3983D+01,0.3728D+01,0.3484D+01,0.3260D+01,0.3047D+01, - &0.2842D+01,0.2655D+01,0.2476D+01,0.2305D+01,0.2149D+01,0.2000D+01, - &0.1859D+01,0.1729D+01,0.1606D+01,0.1488D+01,0.1381D+01,0.1279D+01, - &0.1183D+01,0.1094D+01,0.1011D+01,0.9315D+00,0.8593D+00,0.7912D+00, - &0.7268D+00,0.6675D+00,0.6124D+00,0.5606D+00,0.5121D+00,0.4678D+00, - &0.4264D+00,0.3876D+00,0.3518D+00,0.3190D+00,0.2886D+00,0.2603D+00, - &0.2341D+00,0.2112D+00,0.1888D+00,0.1684D+00,0.1501D+00,0.1333D+00, - &0.1177D+00,0.1036D+00,0.9087D-01,0.7939D-01,0.6905D-01,0.5982D-01, - &0.5142D-01,0.4414D-01,0.3777D-01,0.3217D-01,0.2734D-01,0.2318D-01, - &0.1963D-01,0.1666D-01,0.1417D-01,0.1208D-01,0.1035D-01,0.8900D-02, - &0.7693D-02,0.6662D-02,0.5773D-02,0.4987D-02,0.4279D-02,0.3629D-02, - &0.3029D-02,0.2471D-02,0.1953D-02,0.1472D-02,0.1029D-02,0.6270D-03, - &0.5855D-03,0.5451D-03,0.5059D-03,0.4679D-03,0.4310D-03,0.3953D-03, - &0.3604D-03,0.3269D-03,0.2945D-03,0.2634D-03,0.2334D-03,0.2046D-03, - &0.1771D-03,0.1509D-03,0.1260D-03,0.1026D-03,0.8070D-04,0.6045D-04, - &0.4202D-04,0.2555D-04,0.1191D-04,0.1897D-05/ - DATA (XPV(I,6,1),I=1,100)/ - &0.1781D+00,0.1684D+00,0.1591D+00,0.1501D+00,0.1418D+00,0.1337D+00, - &0.1260D+00,0.1189D+00,0.1120D+00,0.1054D+00,0.9931D-01,0.9344D-01, - &0.8779D-01,0.8258D-01,0.7757D-01,0.7276D-01,0.6832D-01,0.6405D-01, - &0.5996D-01,0.5619D-01,0.5258D-01,0.4909D-01,0.4591D-01,0.4283D-01, - &0.3990D-01,0.3720D-01,0.3462D-01,0.3214D-01,0.2986D-01,0.2770D-01, - &0.2563D-01,0.2370D-01,0.2190D-01,0.2019D-01,0.1857D-01,0.1708D-01, - &0.1567D-01,0.1434D-01,0.1310D-01,0.1196D-01,0.1090D-01,0.9901D-02, - &0.8978D-02,0.8170D-02,0.7379D-02,0.6665D-02,0.6029D-02,0.5448D-02, - &0.4919D-02,0.4455D-02,0.4047D-02,0.3695D-02,0.3396D-02,0.3149D-02, - &0.2945D-02,0.2795D-02,0.2690D-02,0.2626D-02,0.2604D-02,0.2618D-02, - &0.2666D-02,0.2744D-02,0.2850D-02,0.2977D-02,0.3122D-02,0.3283D-02, - &0.3453D-02,0.3631D-02,0.3813D-02,0.3996D-02,0.4182D-02,0.4372D-02, - &0.4572D-02,0.4792D-02,0.5045D-02,0.5351D-02,0.5725D-02,0.6156D-02, - &0.6204D-02,0.6250D-02,0.6295D-02,0.6337D-02,0.6377D-02,0.6413D-02, - &0.6446D-02,0.6474D-02,0.6498D-02,0.6514D-02,0.6523D-02,0.6523D-02, - &0.6513D-02,0.6488D-02,0.6447D-02,0.6385D-02,0.6296D-02,0.6169D-02, - &0.5986D-02,0.5790D-02,0.5259D-02,0.4013D-02/ - DATA (XPV(I,6,2),I=1,100)/ - &0.1781D+00,0.1684D+00,0.1591D+00,0.1501D+00,0.1418D+00,0.1337D+00, - &0.1260D+00,0.1189D+00,0.1120D+00,0.1054D+00,0.9930D-01,0.9343D-01, - &0.8778D-01,0.8257D-01,0.7756D-01,0.7274D-01,0.6830D-01,0.6403D-01, - &0.5994D-01,0.5617D-01,0.5255D-01,0.4906D-01,0.4587D-01,0.4280D-01, - &0.3987D-01,0.3716D-01,0.3457D-01,0.3209D-01,0.2981D-01,0.2764D-01, - &0.2556D-01,0.2363D-01,0.2181D-01,0.2009D-01,0.1846D-01,0.1696D-01, - &0.1554D-01,0.1420D-01,0.1295D-01,0.1179D-01,0.1071D-01,0.9697D-02, - &0.8753D-02,0.7923D-02,0.7107D-02,0.6365D-02,0.5699D-02,0.5086D-02, - &0.4521D-02,0.4018D-02,0.3569D-02,0.3171D-02,0.2823D-02,0.2522D-02, - &0.2261D-02,0.2049D-02,0.1878D-02,0.1744D-02,0.1647D-02,0.1582D-02, - &0.1547D-02,0.1538D-02,0.1553D-02,0.1587D-02,0.1636D-02,0.1697D-02, - &0.1765D-02,0.1837D-02,0.1909D-02,0.1977D-02,0.2038D-02,0.2086D-02, - &0.2120D-02,0.2137D-02,0.2134D-02,0.2109D-02,0.2062D-02,0.1987D-02, - &0.1976D-02,0.1965D-02,0.1953D-02,0.1941D-02,0.1928D-02,0.1914D-02, - &0.1899D-02,0.1884D-02,0.1867D-02,0.1848D-02,0.1828D-02,0.1806D-02, - &0.1782D-02,0.1754D-02,0.1723D-02,0.1688D-02,0.1646D-02,0.1596D-02, - &0.1533D-02,0.1467D-02,0.1321D-02,0.9997D-03/ - DATA (XPV(I,6,3),I=1,100)/ - &0.1785D+00,0.1689D+00,0.1595D+00,0.1506D+00,0.1423D+00,0.1342D+00, - &0.1266D+00,0.1194D+00,0.1126D+00,0.1060D+00,0.9992D-01,0.9408D-01, - &0.8845D-01,0.8327D-01,0.7828D-01,0.7350D-01,0.6908D-01,0.6484D-01, - &0.6078D-01,0.5703D-01,0.5345D-01,0.4999D-01,0.4684D-01,0.4379D-01, - &0.4090D-01,0.3822D-01,0.3567D-01,0.3322D-01,0.3097D-01,0.2884D-01, - &0.2680D-01,0.2490D-01,0.2312D-01,0.2144D-01,0.1984D-01,0.1837D-01, - &0.1699D-01,0.1567D-01,0.1445D-01,0.1332D-01,0.1227D-01,0.1128D-01, - &0.1035D-01,0.9539D-02,0.8732D-02,0.7995D-02,0.7330D-02,0.6710D-02, - &0.6131D-02,0.5606D-02,0.5125D-02,0.4686D-02,0.4286D-02,0.3924D-02, - &0.3584D-02,0.3285D-02,0.3013D-02,0.2764D-02,0.2538D-02,0.2330D-02, - &0.2139D-02,0.1964D-02,0.1804D-02,0.1652D-02,0.1512D-02,0.1383D-02, - &0.1266D-02,0.1162D-02,0.1073D-02,0.1000D-02,0.9475D-03,0.9178D-03, - &0.9140D-03,0.9394D-03,0.9971D-03,0.1091D-02,0.1222D-02,0.1386D-02, - &0.1405D-02,0.1424D-02,0.1442D-02,0.1460D-02,0.1477D-02,0.1494D-02, - &0.1510D-02,0.1524D-02,0.1537D-02,0.1549D-02,0.1558D-02,0.1565D-02, - &0.1570D-02,0.1571D-02,0.1567D-02,0.1558D-02,0.1542D-02,0.1516D-02, - &0.1476D-02,0.1432D-02,0.1303D-02,0.9967D-03/ - DATA (XPV(I,6,4),I=1,100)/ - &0.1783D+00,0.1686D+00,0.1592D+00,0.1503D+00,0.1420D+00,0.1339D+00, - &0.1262D+00,0.1191D+00,0.1122D+00,0.1056D+00,0.9955D-01,0.9369D-01, - &0.8805D-01,0.8285D-01,0.7785D-01,0.7305D-01,0.6862D-01,0.6436D-01, - &0.6028D-01,0.5652D-01,0.5292D-01,0.4944D-01,0.4627D-01,0.4321D-01, - &0.4029D-01,0.3760D-01,0.3503D-01,0.3256D-01,0.3030D-01,0.2814D-01, - &0.2609D-01,0.2417D-01,0.2238D-01,0.2068D-01,0.1907D-01,0.1759D-01, - &0.1619D-01,0.1486D-01,0.1363D-01,0.1250D-01,0.1144D-01,0.1044D-01, - &0.9519D-02,0.8711D-02,0.7914D-02,0.7191D-02,0.6544D-02,0.5949D-02, - &0.5400D-02,0.4912D-02,0.4476D-02,0.4091D-02,0.3753D-02,0.3461D-02, - &0.3203D-02,0.2994D-02,0.2824D-02,0.2687D-02,0.2583D-02,0.2509D-02, - &0.2462D-02,0.2439D-02,0.2438D-02,0.2455D-02,0.2487D-02,0.2534D-02, - &0.2594D-02,0.2666D-02,0.2752D-02,0.2854D-02,0.2977D-02,0.3129D-02, - &0.3321D-02,0.3571D-02,0.3898D-02,0.4329D-02,0.4884D-02,0.5555D-02, - &0.5632D-02,0.5708D-02,0.5783D-02,0.5856D-02,0.5926D-02,0.5993D-02, - &0.6056D-02,0.6115D-02,0.6168D-02,0.6214D-02,0.6254D-02,0.6283D-02, - &0.6301D-02,0.6305D-02,0.6291D-02,0.6256D-02,0.6193D-02,0.6090D-02, - &0.5930D-02,0.5755D-02,0.5242D-02,0.4010D-02/ - DATA (XPV(I,7,0),I=1,100)/ - &0.7226D+01,0.6770D+01,0.6333D+01,0.5916D+01,0.5533D+01,0.5167D+01, - &0.4820D+01,0.4501D+01,0.4197D+01,0.3907D+01,0.3643D+01,0.3391D+01, - &0.3151D+01,0.2932D+01,0.2724D+01,0.2526D+01,0.2345D+01,0.2174D+01, - &0.2012D+01,0.1864D+01,0.1724D+01,0.1590D+01,0.1470D+01,0.1356D+01, - &0.1248D+01,0.1150D+01,0.1057D+01,0.9701D+00,0.8910D+00,0.8168D+00, - &0.7469D+00,0.6829D+00,0.6237D+00,0.5684D+00,0.5169D+00,0.4702D+00, - &0.4266D+00,0.3861D+00,0.3490D+00,0.3152D+00,0.2841D+00,0.2552D+00, - &0.2287D+00,0.2056D+00,0.1833D+00,0.1631D+00,0.1451D+00,0.1286D+00, - &0.1134D+00,0.9989D-01,0.8770D-01,0.7678D-01,0.6701D-01,0.5835D-01, - &0.5051D-01,0.4375D-01,0.3785D-01,0.3267D-01,0.2821D-01,0.2435D-01, - &0.2104D-01,0.1823D-01,0.1585D-01,0.1380D-01,0.1205D-01,0.1054D-01, - &0.9237D-02,0.8080D-02,0.7048D-02,0.6110D-02,0.5249D-02,0.4452D-02, - &0.3711D-02,0.3023D-02,0.2385D-02,0.1794D-02,0.1252D-02,0.7601D-03, - &0.7095D-03,0.6603D-03,0.6126D-03,0.5662D-03,0.5213D-03,0.4779D-03, - &0.4354D-03,0.3948D-03,0.3555D-03,0.3177D-03,0.2813D-03,0.2465D-03, - &0.2131D-03,0.1814D-03,0.1514D-03,0.1231D-03,0.9674D-04,0.7237D-04, - &0.5023D-04,0.3050D-04,0.1418D-04,0.2263D-05/ - DATA (XPV(I,7,1),I=1,100)/ - &0.2263D+00,0.2134D+00,0.2010D+00,0.1891D+00,0.1781D+00,0.1675D+00, - &0.1573D+00,0.1480D+00,0.1390D+00,0.1304D+00,0.1225D+00,0.1149D+00, - &0.1076D+00,0.1009D+00,0.9446D-01,0.8830D-01,0.8265D-01,0.7723D-01, - &0.7206D-01,0.6730D-01,0.6277D-01,0.5840D-01,0.5443D-01,0.5061D-01, - &0.4699D-01,0.4365D-01,0.4048D-01,0.3745D-01,0.3468D-01,0.3205D-01, - &0.2955D-01,0.2724D-01,0.2508D-01,0.2304D-01,0.2112D-01,0.1936D-01, - &0.1771D-01,0.1615D-01,0.1472D-01,0.1340D-01,0.1217D-01,0.1103D-01, - &0.9985D-02,0.9072D-02,0.8184D-02,0.7387D-02,0.6683D-02,0.6045D-02, - &0.5467D-02,0.4966D-02,0.4530D-02,0.4157D-02,0.3846D-02,0.3593D-02, - &0.3387D-02,0.3241D-02,0.3146D-02,0.3095D-02,0.3088D-02,0.3119D-02, - &0.3187D-02,0.3286D-02,0.3412D-02,0.3561D-02,0.3727D-02,0.3908D-02, - &0.4098D-02,0.4295D-02,0.4495D-02,0.4698D-02,0.4903D-02,0.5117D-02, - &0.5346D-02,0.5605D-02,0.5913D-02,0.6292D-02,0.6763D-02,0.7310D-02, - &0.7371D-02,0.7430D-02,0.7487D-02,0.7541D-02,0.7592D-02,0.7638D-02, - &0.7681D-02,0.7717D-02,0.7747D-02,0.7769D-02,0.7783D-02,0.7784D-02, - &0.7772D-02,0.7743D-02,0.7695D-02,0.7620D-02,0.7512D-02,0.7358D-02, - &0.7137D-02,0.6896D-02,0.6255D-02,0.4763D-02/ - DATA (XPV(I,7,2),I=1,100)/ - &0.2263D+00,0.2134D+00,0.2010D+00,0.1891D+00,0.1780D+00,0.1675D+00, - &0.1573D+00,0.1480D+00,0.1390D+00,0.1304D+00,0.1225D+00,0.1149D+00, - &0.1076D+00,0.1009D+00,0.9444D-01,0.8828D-01,0.8263D-01,0.7721D-01, - &0.7203D-01,0.6727D-01,0.6273D-01,0.5836D-01,0.5439D-01,0.5056D-01, - &0.4694D-01,0.4360D-01,0.4042D-01,0.3738D-01,0.3460D-01,0.3197D-01, - &0.2946D-01,0.2714D-01,0.2497D-01,0.2291D-01,0.2098D-01,0.1921D-01, - &0.1754D-01,0.1597D-01,0.1451D-01,0.1317D-01,0.1193D-01,0.1076D-01, - &0.9687D-02,0.8745D-02,0.7825D-02,0.6993D-02,0.6250D-02,0.5570D-02, - &0.4947D-02,0.4395D-02,0.3905D-02,0.3475D-02,0.3100D-02,0.2779D-02, - &0.2500D-02,0.2276D-02,0.2097D-02,0.1957D-02,0.1856D-02,0.1789D-02, - &0.1752D-02,0.1742D-02,0.1755D-02,0.1786D-02,0.1832D-02,0.1888D-02, - &0.1951D-02,0.2017D-02,0.2081D-02,0.2140D-02,0.2190D-02,0.2230D-02, - &0.2256D-02,0.2268D-02,0.2266D-02,0.2252D-02,0.2228D-02,0.2192D-02, - &0.2187D-02,0.2181D-02,0.2175D-02,0.2168D-02,0.2160D-02,0.2152D-02, - &0.2143D-02,0.2132D-02,0.2120D-02,0.2107D-02,0.2091D-02,0.2074D-02, - &0.2053D-02,0.2029D-02,0.2000D-02,0.1966D-02,0.1924D-02,0.1872D-02, - &0.1804D-02,0.1733D-02,0.1564D-02,0.1186D-02/ - DATA (XPV(I,7,3),I=1,100)/ - &0.2267D+00,0.2139D+00,0.2014D+00,0.1896D+00,0.1786D+00,0.1680D+00, - &0.1579D+00,0.1485D+00,0.1396D+00,0.1310D+00,0.1231D+00,0.1155D+00, - &0.1083D+00,0.1016D+00,0.9519D-01,0.8906D-01,0.8343D-01,0.7804D-01, - &0.7290D-01,0.6817D-01,0.6366D-01,0.5932D-01,0.5538D-01,0.5158D-01, - &0.4799D-01,0.4469D-01,0.4154D-01,0.3854D-01,0.3579D-01,0.3319D-01, - &0.3072D-01,0.2843D-01,0.2629D-01,0.2427D-01,0.2237D-01,0.2063D-01, - &0.1899D-01,0.1745D-01,0.1602D-01,0.1470D-01,0.1348D-01,0.1233D-01, - &0.1127D-01,0.1034D-01,0.9420D-02,0.8586D-02,0.7837D-02,0.7144D-02, - &0.6498D-02,0.5917D-02,0.5388D-02,0.4909D-02,0.4474D-02,0.4084D-02, - &0.3720D-02,0.3402D-02,0.3116D-02,0.2856D-02,0.2623D-02,0.2412D-02, - &0.2219D-02,0.2045D-02,0.1888D-02,0.1743D-02,0.1611D-02,0.1491D-02, - &0.1385D-02,0.1294D-02,0.1218D-02,0.1160D-02,0.1123D-02,0.1110D-02, - &0.1122D-02,0.1165D-02,0.1242D-02,0.1357D-02,0.1512D-02,0.1701D-02, - &0.1723D-02,0.1744D-02,0.1765D-02,0.1785D-02,0.1804D-02,0.1822D-02, - &0.1839D-02,0.1854D-02,0.1868D-02,0.1880D-02,0.1889D-02,0.1895D-02, - &0.1898D-02,0.1896D-02,0.1889D-02,0.1876D-02,0.1853D-02,0.1819D-02, - &0.1768D-02,0.1711D-02,0.1554D-02,0.1185D-02/ - DATA (XPV(I,7,4),I=1,100)/ - &0.2265D+00,0.2136D+00,0.2012D+00,0.1893D+00,0.1783D+00,0.1677D+00, - &0.1575D+00,0.1482D+00,0.1392D+00,0.1306D+00,0.1227D+00,0.1151D+00, - &0.1078D+00,0.1012D+00,0.9474D-01,0.8860D-01,0.8296D-01,0.7755D-01, - &0.7239D-01,0.6764D-01,0.6312D-01,0.5876D-01,0.5480D-01,0.5099D-01, - &0.4738D-01,0.4406D-01,0.4090D-01,0.3788D-01,0.3512D-01,0.3250D-01, - &0.3002D-01,0.2771D-01,0.2556D-01,0.2353D-01,0.2162D-01,0.1987D-01, - &0.1822D-01,0.1667D-01,0.1524D-01,0.1392D-01,0.1270D-01,0.1156D-01, - &0.1051D-01,0.9590D-02,0.8693D-02,0.7884D-02,0.7166D-02,0.6509D-02, - &0.5909D-02,0.5380D-02,0.4911D-02,0.4502D-02,0.4147D-02,0.3845D-02, - &0.3583D-02,0.3375D-02,0.3211D-02,0.3085D-02,0.2996D-02,0.2940D-02, - &0.2914D-02,0.2914D-02,0.2939D-02,0.2982D-02,0.3044D-02,0.3121D-02, - &0.3212D-02,0.3318D-02,0.3438D-02,0.3577D-02,0.3739D-02,0.3934D-02, - &0.4176D-02,0.4483D-02,0.4880D-02,0.5394D-02,0.6046D-02,0.6819D-02, - &0.6907D-02,0.6993D-02,0.7077D-02,0.7157D-02,0.7235D-02,0.7308D-02, - &0.7377D-02,0.7439D-02,0.7495D-02,0.7542D-02,0.7580D-02,0.7605D-02, - &0.7617D-02,0.7611D-02,0.7584D-02,0.7530D-02,0.7441D-02,0.7306D-02, - &0.7101D-02,0.6875D-02,0.6245D-02,0.4762D-02/ - -C..fetching pdfs - DO 5 IP=-6,6 - XPDF(IP)=ZEROD - 5 CONTINUE - DO 2 I=1,IX - ENT(I)=LOG10(XT(I)) - 2 CONTINUE - NA(1)=IX - NA(2)=IQ - DO 3 I=1,IQ - ENT(IX+I)=LOG10(Q2T(I)) - 3 CONTINUE - ARG(1)=LOG10(X) - ARG(2)=LOG10(Q2) -C..VARIOUS FLAVOURS (u-->2,d-->1) - XPDF(0)=DBFINT(NARG,ARG,NA,ENT,XPV(1,1,0)) - XPDF(1)=DBFINT(NARG,ARG,NA,ENT,XPV(1,1,2)) - XPDF(2)=DBFINT(NARG,ARG,NA,ENT,XPV(1,1,1)) - XPDF(3)=DBFINT(NARG,ARG,NA,ENT,XPV(1,1,3)) - XPDF(4)=DBFINT(NARG,ARG,NA,ENT,XPV(1,1,4)) - DO 21 JF=1,4 - XPDF(-JF)=XPDF(JF) - 21 CONTINUE - RETURN - END diff --git a/PDF/spdf/phlac2.F b/PDF/spdf/phlac2.F deleted file mode 100644 index 92dfb793cef..00000000000 --- a/PDF/spdf/phlac2.F +++ /dev/null @@ -1,701 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:12 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:28 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C------------------------------------------------------------- - SUBROUTINE PHLAC2(X,Q2,XPDF) -#include "pdf/impdp.inc" - PARAMETER(IX=100,IQ=7,NARG=2,NFUN=4) -#include "pdf/expdp.inc" - + DBFINT, - + XT(IX),Q2T(IQ),ARG(NARG),ENT(IX+IQ), - + XPV(IX,IQ,0:NFUN),XPDF(-6:6) - DIMENSION NA(NARG) - DATA ZEROD/0.D0/ -C...100 x valuse; in (D-4,.77) log spaced (78 points) -C... in (.78,.995) lineary spaced (22 points) - DATA Q2T/4.,10.,50.,1.D2,1.D3,1.D4,1.D5/ - DATA XT/ - &0.1000D-03,0.1123D-03,0.1262D-03,0.1417D-03,0.1592D-03,0.1789D-03, - &0.2009D-03,0.2257D-03,0.2535D-03,0.2848D-03,0.3199D-03,0.3593D-03, - &0.4037D-03,0.4534D-03,0.5093D-03,0.5722D-03,0.6427D-03,0.7220D-03, - &0.8110D-03,0.9110D-03,0.1023D-02,0.1150D-02,0.1291D-02,0.1451D-02, - &0.1629D-02,0.1830D-02,0.2056D-02,0.2310D-02,0.2594D-02,0.2914D-02, - &0.3274D-02,0.3677D-02,0.4131D-02,0.4640D-02,0.5212D-02,0.5855D-02, - &0.6577D-02,0.7388D-02,0.8299D-02,0.9323D-02,0.1047D-01,0.1176D-01, - &0.1321D-01,0.1484D-01,0.1667D-01,0.1873D-01,0.2104D-01,0.2363D-01, - &0.2655D-01,0.2982D-01,0.3350D-01,0.3763D-01,0.4227D-01,0.4748D-01, - &0.5334D-01,0.5992D-01,0.6731D-01,0.7560D-01,0.8493D-01,0.9540D-01, - &0.1072D+00,0.1204D+00,0.1352D+00,0.1519D+00,0.1706D+00,0.1917D+00, - &0.2153D+00,0.2419D+00,0.2717D+00,0.3052D+00,0.3428D+00,0.3851D+00, - &0.4326D+00,0.4859D+00,0.5458D+00,0.6131D+00,0.6887D+00,0.7737D+00, - &0.7837D+00,0.7937D+00,0.8037D+00,0.8137D+00,0.8237D+00,0.8337D+00, - &0.8437D+00,0.8537D+00,0.8637D+00,0.8737D+00,0.8837D+00,0.8937D+00, - &0.9037D+00,0.9137D+00,0.9237D+00,0.9337D+00,0.9437D+00,0.9537D+00, - &0.9637D+00,0.9737D+00,0.9837D+00,0.9937D+00/ - -C...place for DATA blocks - DATA (XPV(I,1,0),I=1,100)/ - &0.2589D+00,0.2589D+00,0.2588D+00,0.2587D+00,0.2587D+00,0.2586D+00, - &0.2584D+00,0.2584D+00,0.2583D+00,0.2581D+00,0.2580D+00,0.2578D+00, - &0.2576D+00,0.2574D+00,0.2572D+00,0.2568D+00,0.2566D+00,0.2562D+00, - &0.2558D+00,0.2554D+00,0.2549D+00,0.2543D+00,0.2537D+00,0.2530D+00, - &0.2522D+00,0.2514D+00,0.2504D+00,0.2492D+00,0.2480D+00,0.2467D+00, - &0.2451D+00,0.2433D+00,0.2414D+00,0.2392D+00,0.2368D+00,0.2341D+00, - &0.2312D+00,0.2278D+00,0.2241D+00,0.2201D+00,0.2157D+00,0.2108D+00, - &0.2054D+00,0.2001D+00,0.1934D+00,0.1864D+00,0.1791D+00,0.1711D+00, - &0.1623D+00,0.1531D+00,0.1433D+00,0.1330D+00,0.1223D+00,0.1113D+00, - &0.9973D-01,0.8835D-01,0.7705D-01,0.6593D-01,0.5527D-01,0.4522D-01, - &0.3597D-01,0.2775D-01,0.2067D-01,0.1471D-01,0.9973D-02,0.6363D-02, - &0.3799D-02,0.2083D-02,0.1036D-02,0.4560D-03,0.1731D-03,0.5432D-04, - &0.1340D-04,0.2403D-05,0.2784D-06,0.1701D-07,0.3872D-09,0.1511D-11, - &0.6880D-12,0.3018D-12,0.1271D-12,0.5114D-13,0.1959D-13,0.7089D-14, - &0.2386D-14,0.7514D-15,0.2177D-15,0.5781D-16,0.1392D-16,0.2956D-17, - &0.5413D-18,0.8284D-19,0.1017D-19,0.9439D-21,0.6099D-22,0.2408D-23, - &0.4675D-25,0.2960D-27,0.2410D-30,0.0000D+00/ - DATA (XPV(I,1,1),I=1,100)/ - &0.3845D-05,0.4208D-05,0.4608D-05,0.5043D-05,0.5522D-05,0.6047D-05, - &0.6619D-05,0.7247D-05,0.7934D-05,0.8688D-05,0.9512D-05,0.1041D-04, - &0.1141D-04,0.1249D-04,0.1367D-04,0.1498D-04,0.1640D-04,0.1796D-04, - &0.1967D-04,0.2154D-04,0.2359D-04,0.2585D-04,0.2830D-04,0.3102D-04, - &0.3396D-04,0.3720D-04,0.4076D-04,0.4466D-04,0.4891D-04,0.5358D-04, - &0.5871D-04,0.6431D-04,0.7047D-04,0.7720D-04,0.8457D-04,0.9266D-04, - &0.1015D-03,0.1112D-03,0.1219D-03,0.1335D-03,0.1462D-03,0.1602D-03, - &0.1755D-03,0.1923D-03,0.2106D-03,0.2306D-03,0.2526D-03,0.2766D-03, - &0.3028D-03,0.3314D-03,0.3627D-03,0.3968D-03,0.4340D-03,0.4744D-03, - &0.5184D-03,0.5662D-03,0.6182D-03,0.6743D-03,0.7351D-03,0.8007D-03, - &0.8715D-03,0.9472D-03,0.1028D-02,0.1115D-02,0.1206D-02,0.1303D-02, - &0.1404D-02,0.1510D-02,0.1619D-02,0.1731D-02,0.1844D-02,0.1957D-02, - &0.2068D-02,0.2173D-02,0.2271D-02,0.2355D-02,0.2418D-02,0.2443D-02, - &0.2442D-02,0.2440D-02,0.2437D-02,0.2432D-02,0.2426D-02,0.2419D-02, - &0.2410D-02,0.2400D-02,0.2387D-02,0.2372D-02,0.2355D-02,0.2335D-02, - &0.2312D-02,0.2285D-02,0.2253D-02,0.2216D-02,0.2172D-02,0.2119D-02, - &0.2054D-02,0.1973D-02,0.2027D-02,0.1319D-02/ - DATA (XPV(I,1,2),I=1,100)/ - &0.3745D-05,0.4096D-05,0.4482D-05,0.4901D-05,0.5362D-05,0.5868D-05, - &0.6418D-05,0.7021D-05,0.7680D-05,0.8403D-05,0.9192D-05,0.1005D-04, - &0.1100D-04,0.1203D-04,0.1317D-04,0.1440D-04,0.1576D-04,0.1724D-04, - &0.1886D-04,0.2063D-04,0.2257D-04,0.2471D-04,0.2702D-04,0.2957D-04, - &0.3233D-04,0.3538D-04,0.3871D-04,0.4236D-04,0.4633D-04,0.5068D-04, - &0.5546D-04,0.6066D-04,0.6637D-04,0.7260D-04,0.7941D-04,0.8687D-04, - &0.9503D-04,0.1039D-03,0.1137D-03,0.1243D-03,0.1360D-03,0.1487D-03, - &0.1626D-03,0.1779D-03,0.1944D-03,0.2126D-03,0.2325D-03,0.2540D-03, - &0.2776D-03,0.3033D-03,0.3313D-03,0.3619D-03,0.3951D-03,0.4312D-03, - &0.4704D-03,0.5130D-03,0.5593D-03,0.6092D-03,0.6634D-03,0.7217D-03, - &0.7848D-03,0.8522D-03,0.9245D-03,0.1002D-02,0.1084D-02,0.1171D-02, - &0.1262D-02,0.1357D-02,0.1455D-02,0.1555D-02,0.1656D-02,0.1754D-02, - &0.1847D-02,0.1930D-02,0.1995D-02,0.2033D-02,0.2025D-02,0.1941D-02, - &0.1924D-02,0.1906D-02,0.1887D-02,0.1865D-02,0.1842D-02,0.1817D-02, - &0.1789D-02,0.1759D-02,0.1727D-02,0.1692D-02,0.1654D-02,0.1612D-02, - &0.1566D-02,0.1516D-02,0.1460D-02,0.1399D-02,0.1329D-02,0.1251D-02, - &0.1159D-02,0.1050D-02,0.9681D-03,0.5785D-03/ - DATA (XPV(I,1,3),I=1,100)/ - &0.3363D-03,0.3490D-03,0.3624D-03,0.3761D-03,0.3904D-03,0.4053D-03, - &0.4206D-03,0.4367D-03,0.4532D-03,0.4704D-03,0.4882D-03,0.5067D-03, - &0.5259D-03,0.5458D-03,0.5664D-03,0.5878D-03,0.6100D-03,0.6330D-03, - &0.6567D-03,0.6814D-03,0.7069D-03,0.7334D-03,0.7606D-03,0.7890D-03, - &0.8180D-03,0.8483D-03,0.8795D-03,0.9116D-03,0.9447D-03,0.9788D-03, - &0.1014D-02,0.1050D-02,0.1087D-02,0.1125D-02,0.1164D-02,0.1203D-02, - &0.1244D-02,0.1284D-02,0.1326D-02,0.1368D-02,0.1410D-02,0.1452D-02, - &0.1494D-02,0.1538D-02,0.1577D-02,0.1616D-02,0.1655D-02,0.1692D-02, - &0.1724D-02,0.1754D-02,0.1780D-02,0.1800D-02,0.1816D-02,0.1825D-02, - &0.1823D-02,0.1815D-02,0.1797D-02,0.1768D-02,0.1727D-02,0.1673D-02, - &0.1605D-02,0.1524D-02,0.1431D-02,0.1322D-02,0.1203D-02,0.1073D-02, - &0.9373D-03,0.7978D-03,0.6600D-03,0.5285D-03,0.4089D-03,0.3059D-03, - &0.2241D-03,0.1662D-03,0.1329D-03,0.1233D-03,0.1354D-03,0.1682D-03, - &0.1731D-03,0.1782D-03,0.1836D-03,0.1891D-03,0.1949D-03,0.2008D-03, - &0.2070D-03,0.2134D-03,0.2200D-03,0.2268D-03,0.2339D-03,0.2411D-03, - &0.2486D-03,0.2563D-03,0.2643D-03,0.2724D-03,0.2808D-03,0.2895D-03, - &0.2984D-03,0.3075D-03,0.3530D-03,0.2469D-03/ - DATA (XPV(I,1,4),I=1,100)/ - &0.1032D-03,0.1071D-03,0.1112D-03,0.1155D-03,0.1199D-03,0.1245D-03, - &0.1292D-03,0.1341D-03,0.1392D-03,0.1445D-03,0.1501D-03,0.1558D-03, - &0.1617D-03,0.1679D-03,0.1743D-03,0.1809D-03,0.1878D-03,0.1949D-03, - &0.2023D-03,0.2100D-03,0.2179D-03,0.2262D-03,0.2348D-03,0.2437D-03, - &0.2528D-03,0.2623D-03,0.2721D-03,0.2823D-03,0.2928D-03,0.3036D-03, - &0.3148D-03,0.3264D-03,0.3383D-03,0.3505D-03,0.3631D-03,0.3760D-03, - &0.3892D-03,0.4027D-03,0.4165D-03,0.4306D-03,0.4448D-03,0.4592D-03, - &0.4737D-03,0.4892D-03,0.5033D-03,0.5177D-03,0.5324D-03,0.5463D-03, - &0.5595D-03,0.5723D-03,0.5841D-03,0.5949D-03,0.6045D-03,0.6125D-03, - &0.6179D-03,0.6219D-03,0.6234D-03,0.6220D-03,0.6177D-03,0.6100D-03, - &0.5989D-03,0.5841D-03,0.5662D-03,0.5443D-03,0.5194D-03,0.4919D-03, - &0.4629D-03,0.4332D-03,0.4045D-03,0.3785D-03,0.3573D-03,0.3434D-03, - &0.3399D-03,0.3503D-03,0.3796D-03,0.4345D-03,0.5257D-03,0.6703D-03, - &0.6906D-03,0.7115D-03,0.7333D-03,0.7557D-03,0.7789D-03,0.8029D-03, - &0.8279D-03,0.8535D-03,0.8800D-03,0.9073D-03,0.9354D-03,0.9645D-03, - &0.9944D-03,0.1025D-02,0.1057D-02,0.1090D-02,0.1123D-02,0.1158D-02, - &0.1193D-02,0.1230D-02,0.1412D-02,0.9878D-03/ - DATA (XPV(I,2,0),I=1,100)/ - &0.6395D+00,0.6278D+00,0.6160D+00,0.6041D+00,0.5928D+00,0.5814D+00, - &0.5700D+00,0.5591D+00,0.5481D+00,0.5371D+00,0.5266D+00,0.5160D+00, - &0.5053D+00,0.4952D+00,0.4850D+00,0.4747D+00,0.4649D+00,0.4551D+00, - &0.4451D+00,0.4357D+00,0.4261D+00,0.4164D+00,0.4073D+00,0.3979D+00, - &0.3886D+00,0.3795D+00,0.3704D+00,0.3612D+00,0.3523D+00,0.3433D+00, - &0.3342D+00,0.3252D+00,0.3163D+00,0.3072D+00,0.2980D+00,0.2889D+00, - &0.2796D+00,0.2702D+00,0.2607D+00,0.2511D+00,0.2413D+00,0.2313D+00, - &0.2212D+00,0.2115D+00,0.2006D+00,0.1898D+00,0.1790D+00,0.1679D+00, - &0.1563D+00,0.1447D+00,0.1330D+00,0.1213D+00,0.1095D+00,0.9788D-01, - &0.8613D-01,0.7497D-01,0.6426D-01,0.5408D-01,0.4462D-01,0.3598D-01, - &0.2826D-01,0.2161D-01,0.1605D-01,0.1149D-01,0.7956D-02,0.5325D-02, - &0.3488D-02,0.2266D-02,0.1508D-02,0.1060D-02,0.8015D-03,0.6446D-03, - &0.5352D-03,0.4451D-03,0.3626D-03,0.2837D-03,0.2078D-03,0.1348D-03, - &0.1269D-03,0.1193D-03,0.1117D-03,0.1043D-03,0.9709D-04,0.9000D-04, - &0.8299D-04,0.7618D-04,0.6953D-04,0.6302D-04,0.5666D-04,0.5047D-04, - &0.4444D-04,0.3859D-04,0.3291D-04,0.2744D-04,0.2219D-04,0.1717D-04, - &0.1243D-04,0.7989D-05,0.3996D-05,0.6174D-06/ - DATA (XPV(I,2,1),I=1,100)/ - &0.5642D-02,0.5571D-02,0.5499D-02,0.5424D-02,0.5354D-02,0.5281D-02, - &0.5207D-02,0.5136D-02,0.5064D-02,0.4989D-02,0.4918D-02,0.4845D-02, - &0.4770D-02,0.4698D-02,0.4624D-02,0.4547D-02,0.4473D-02,0.4397D-02, - &0.4319D-02,0.4243D-02,0.4164D-02,0.4083D-02,0.4004D-02,0.3922D-02, - &0.3837D-02,0.3754D-02,0.3668D-02,0.3579D-02,0.3491D-02,0.3401D-02, - &0.3308D-02,0.3214D-02,0.3120D-02,0.3022D-02,0.2923D-02,0.2824D-02, - &0.2723D-02,0.2620D-02,0.2517D-02,0.2414D-02,0.2311D-02,0.2207D-02, - &0.2103D-02,0.2008D-02,0.1905D-02,0.1806D-02,0.1713D-02,0.1622D-02, - &0.1534D-02,0.1452D-02,0.1377D-02,0.1309D-02,0.1250D-02,0.1201D-02, - &0.1160D-02,0.1132D-02,0.1117D-02,0.1114D-02,0.1126D-02,0.1151D-02, - &0.1190D-02,0.1242D-02,0.1308D-02,0.1385D-02,0.1472D-02,0.1569D-02, - &0.1672D-02,0.1782D-02,0.1895D-02,0.2009D-02,0.2124D-02,0.2239D-02, - &0.2351D-02,0.2460D-02,0.2567D-02,0.2671D-02,0.2770D-02,0.2853D-02, - &0.2860D-02,0.2865D-02,0.2870D-02,0.2874D-02,0.2877D-02,0.2878D-02, - &0.2878D-02,0.2876D-02,0.2872D-02,0.2865D-02,0.2856D-02,0.2843D-02, - &0.2826D-02,0.2805D-02,0.2777D-02,0.2743D-02,0.2699D-02,0.2643D-02, - &0.2566D-02,0.2487D-02,0.2308D-02,0.1892D-02/ - DATA (XPV(I,2,2),I=1,100)/ - &0.5642D-02,0.5571D-02,0.5498D-02,0.5424D-02,0.5353D-02,0.5281D-02, - &0.5206D-02,0.5136D-02,0.5063D-02,0.4989D-02,0.4917D-02,0.4844D-02, - &0.4769D-02,0.4697D-02,0.4622D-02,0.4546D-02,0.4472D-02,0.4395D-02, - &0.4317D-02,0.4240D-02,0.4162D-02,0.4080D-02,0.4000D-02,0.3918D-02, - &0.3833D-02,0.3749D-02,0.3663D-02,0.3573D-02,0.3485D-02,0.3394D-02, - &0.3300D-02,0.3205D-02,0.3109D-02,0.3011D-02,0.2910D-02,0.2810D-02, - &0.2707D-02,0.2603D-02,0.2497D-02,0.2392D-02,0.2286D-02,0.2179D-02, - &0.2072D-02,0.1974D-02,0.1866D-02,0.1763D-02,0.1665D-02,0.1569D-02, - &0.1475D-02,0.1387D-02,0.1304D-02,0.1229D-02,0.1161D-02,0.1102D-02, - &0.1050D-02,0.1012D-02,0.9843D-03,0.9685D-03,0.9656D-03,0.9754D-03, - &0.9981D-03,0.1033D-02,0.1080D-02,0.1138D-02,0.1206D-02,0.1282D-02, - &0.1364D-02,0.1451D-02,0.1541D-02,0.1631D-02,0.1719D-02,0.1803D-02, - &0.1878D-02,0.1939D-02,0.1980D-02,0.1991D-02,0.1957D-02,0.1849D-02, - &0.1831D-02,0.1811D-02,0.1790D-02,0.1767D-02,0.1743D-02,0.1717D-02, - &0.1688D-02,0.1658D-02,0.1625D-02,0.1590D-02,0.1553D-02,0.1512D-02, - &0.1468D-02,0.1420D-02,0.1367D-02,0.1309D-02,0.1244D-02,0.1172D-02, - &0.1087D-02,0.9940D-03,0.8584D-03,0.6289D-03/ - DATA (XPV(I,2,3),I=1,100)/ - &0.5990D-02,0.5932D-02,0.5873D-02,0.5812D-02,0.5755D-02,0.5698D-02, - &0.5639D-02,0.5584D-02,0.5528D-02,0.5471D-02,0.5417D-02,0.5362D-02, - &0.5305D-02,0.5253D-02,0.5198D-02,0.5142D-02,0.5090D-02,0.5035D-02, - &0.4979D-02,0.4926D-02,0.4871D-02,0.4814D-02,0.4760D-02,0.4703D-02, - &0.4645D-02,0.4588D-02,0.4530D-02,0.4468D-02,0.4409D-02,0.4347D-02, - &0.4283D-02,0.4218D-02,0.4153D-02,0.4085D-02,0.4015D-02,0.3945D-02, - &0.3872D-02,0.3797D-02,0.3721D-02,0.3644D-02,0.3565D-02,0.3483D-02, - &0.3401D-02,0.3326D-02,0.3236D-02,0.3148D-02,0.3063D-02,0.2974D-02, - &0.2882D-02,0.2790D-02,0.2696D-02,0.2602D-02,0.2506D-02,0.2410D-02, - &0.2307D-02,0.2208D-02,0.2106D-02,0.2001D-02,0.1894D-02,0.1784D-02, - &0.1669D-02,0.1551D-02,0.1430D-02,0.1303D-02,0.1172D-02,0.1039D-02, - &0.9062D-03,0.7748D-03,0.6491D-03,0.5328D-03,0.4303D-03,0.3456D-03, - &0.2823D-03,0.2428D-03,0.2282D-03,0.2383D-03,0.2730D-03,0.3327D-03, - &0.3409D-03,0.3492D-03,0.3578D-03,0.3664D-03,0.3754D-03,0.3844D-03, - &0.3936D-03,0.4028D-03,0.4122D-03,0.4214D-03,0.4309D-03,0.4400D-03, - &0.4492D-03,0.4580D-03,0.4665D-03,0.4743D-03,0.4813D-03,0.4872D-03, - &0.4894D-03,0.4958D-03,0.4830D-03,0.4112D-03/ - DATA (XPV(I,2,4),I=1,100)/ - &0.5746D-02,0.5678D-02,0.5610D-02,0.5539D-02,0.5472D-02,0.5404D-02, - &0.5334D-02,0.5268D-02,0.5200D-02,0.5130D-02,0.5064D-02,0.4996D-02, - &0.4925D-02,0.4858D-02,0.4789D-02,0.4718D-02,0.4650D-02,0.4579D-02, - &0.4506D-02,0.4436D-02,0.4363D-02,0.4287D-02,0.4214D-02,0.4138D-02, - &0.4060D-02,0.3982D-02,0.3902D-02,0.3819D-02,0.3737D-02,0.3653D-02, - &0.3565D-02,0.3476D-02,0.3386D-02,0.3294D-02,0.3198D-02,0.3103D-02, - &0.3005D-02,0.2905D-02,0.2803D-02,0.2701D-02,0.2597D-02,0.2491D-02, - &0.2384D-02,0.2285D-02,0.2175D-02,0.2067D-02,0.1964D-02,0.1859D-02, - &0.1754D-02,0.1653D-02,0.1555D-02,0.1459D-02,0.1368D-02,0.1282D-02, - &0.1198D-02,0.1122D-02,0.1052D-02,0.9883D-03,0.9310D-03,0.8798D-03, - &0.8347D-03,0.7955D-03,0.7619D-03,0.7321D-03,0.7064D-03,0.6839D-03, - &0.6649D-03,0.6491D-03,0.6373D-03,0.6309D-03,0.6320D-03,0.6435D-03, - &0.6699D-03,0.7168D-03,0.7928D-03,0.9097D-03,0.1084D-02,0.1336D-02, - &0.1369D-02,0.1403D-02,0.1438D-02,0.1473D-02,0.1510D-02,0.1546D-02, - &0.1583D-02,0.1621D-02,0.1658D-02,0.1696D-02,0.1734D-02,0.1771D-02, - &0.1808D-02,0.1843D-02,0.1877D-02,0.1908D-02,0.1936D-02,0.1958D-02, - &0.1969D-02,0.1988D-02,0.1933D-02,0.1674D-02/ - DATA (XPV(I,3,0),I=1,100)/ - &0.1386D+01,0.1342D+01,0.1299D+01,0.1256D+01,0.1215D+01,0.1174D+01, - &0.1134D+01,0.1096D+01,0.1059D+01,0.1022D+01,0.9870D+00,0.9524D+00, - &0.9181D+00,0.8858D+00,0.8538D+00,0.8222D+00,0.7924D+00,0.7628D+00, - &0.7337D+00,0.7062D+00,0.6791D+00,0.6520D+00,0.6268D+00,0.6016D+00, - &0.5770D+00,0.5536D+00,0.5305D+00,0.5077D+00,0.4861D+00,0.4649D+00, - &0.4439D+00,0.4238D+00,0.4042D+00,0.3849D+00,0.3660D+00,0.3479D+00, - &0.3300D+00,0.3124D+00,0.2953D+00,0.2787D+00,0.2625D+00,0.2464D+00, - &0.2306D+00,0.2161D+00,0.2007D+00,0.1859D+00,0.1717D+00,0.1576D+00, - &0.1437D+00,0.1303D+00,0.1173D+00,0.1047D+00,0.9264D-01,0.8116D-01, - &0.7004D-01,0.5986D-01,0.5046D-01,0.4185D-01,0.3414D-01,0.2734D-01, - &0.2148D-01,0.1659D-01,0.1262D-01,0.9443D-02,0.7030D-02,0.5248D-02, - &0.3988D-02,0.3111D-02,0.2508D-02,0.2082D-02,0.1760D-02,0.1496D-02, - &0.1262D-02,0.1046D-02,0.8417D-03,0.6478D-03,0.4647D-03,0.2925D-03, - &0.2744D-03,0.2566D-03,0.2393D-03,0.2224D-03,0.2059D-03,0.1898D-03, - &0.1740D-03,0.1587D-03,0.1439D-03,0.1295D-03,0.1155D-03,0.1020D-03, - &0.8898D-04,0.7644D-04,0.6443D-04,0.5299D-04,0.4215D-04,0.3199D-04, - &0.2259D-04,0.1402D-04,0.6692D-05,0.1051D-05/ - DATA (XPV(I,3,1),I=1,100)/ - &0.2133D-01,0.2081D-01,0.2030D-01,0.1978D-01,0.1929D-01,0.1880D-01, - &0.1831D-01,0.1784D-01,0.1738D-01,0.1691D-01,0.1646D-01,0.1602D-01, - &0.1557D-01,0.1515D-01,0.1472D-01,0.1430D-01,0.1389D-01,0.1348D-01, - &0.1308D-01,0.1269D-01,0.1229D-01,0.1190D-01,0.1152D-01,0.1114D-01, - &0.1076D-01,0.1040D-01,0.1003D-01,0.9657D-02,0.9299D-02,0.8941D-02, - &0.8582D-02,0.8229D-02,0.7881D-02,0.7532D-02,0.7185D-02,0.6846D-02, - &0.6509D-02,0.6172D-02,0.5842D-02,0.5519D-02,0.5201D-02,0.4886D-02, - &0.4579D-02,0.4296D-02,0.4000D-02,0.3718D-02,0.3455D-02,0.3201D-02, - &0.2956D-02,0.2729D-02,0.2520D-02,0.2329D-02,0.2158D-02,0.2010D-02, - &0.1879D-02,0.1777D-02,0.1699D-02,0.1646D-02,0.1618D-02,0.1614D-02, - &0.1634D-02,0.1676D-02,0.1738D-02,0.1817D-02,0.1911D-02,0.2016D-02, - &0.2129D-02,0.2248D-02,0.2370D-02,0.2492D-02,0.2615D-02,0.2736D-02, - &0.2859D-02,0.2984D-02,0.3117D-02,0.3264D-02,0.3430D-02,0.3609D-02, - &0.3628D-02,0.3646D-02,0.3663D-02,0.3678D-02,0.3693D-02,0.3706D-02, - &0.3716D-02,0.3725D-02,0.3731D-02,0.3733D-02,0.3732D-02,0.3726D-02, - &0.3714D-02,0.3695D-02,0.3669D-02,0.3631D-02,0.3579D-02,0.3508D-02, - &0.3406D-02,0.3304D-02,0.3023D-02,0.2344D-02/ - DATA (XPV(I,3,2),I=1,100)/ - &0.2133D-01,0.2081D-01,0.2030D-01,0.1978D-01,0.1929D-01,0.1880D-01, - &0.1831D-01,0.1784D-01,0.1737D-01,0.1691D-01,0.1646D-01,0.1602D-01, - &0.1557D-01,0.1515D-01,0.1472D-01,0.1430D-01,0.1389D-01,0.1348D-01, - &0.1307D-01,0.1268D-01,0.1229D-01,0.1189D-01,0.1151D-01,0.1113D-01, - &0.1075D-01,0.1038D-01,0.1001D-01,0.9643D-02,0.9283D-02,0.8924D-02, - &0.8563D-02,0.8208D-02,0.7857D-02,0.7506D-02,0.7155D-02,0.6813D-02, - &0.6473D-02,0.6132D-02,0.5797D-02,0.5469D-02,0.5146D-02,0.4825D-02, - &0.4510D-02,0.4221D-02,0.3916D-02,0.3626D-02,0.3352D-02,0.3087D-02, - &0.2830D-02,0.2590D-02,0.2366D-02,0.2159D-02,0.1971D-02,0.1803D-02, - &0.1652D-02,0.1527D-02,0.1425D-02,0.1346D-02,0.1290D-02,0.1257D-02, - &0.1245D-02,0.1254D-02,0.1281D-02,0.1324D-02,0.1379D-02,0.1445D-02, - &0.1517D-02,0.1594D-02,0.1672D-02,0.1748D-02,0.1819D-02,0.1882D-02, - &0.1933D-02,0.1969D-02,0.1983D-02,0.1969D-02,0.1915D-02,0.1799D-02, - &0.1781D-02,0.1762D-02,0.1741D-02,0.1720D-02,0.1697D-02,0.1672D-02, - &0.1646D-02,0.1618D-02,0.1588D-02,0.1556D-02,0.1522D-02,0.1486D-02, - &0.1446D-02,0.1403D-02,0.1356D-02,0.1304D-02,0.1247D-02,0.1181D-02, - &0.1105D-02,0.1025D-02,0.8897D-03,0.6390D-03/ - DATA (XPV(I,3,3),I=1,100)/ - &0.2170D-01,0.2120D-01,0.2069D-01,0.2019D-01,0.1972D-01,0.1924D-01, - &0.1877D-01,0.1832D-01,0.1787D-01,0.1742D-01,0.1699D-01,0.1657D-01, - &0.1614D-01,0.1573D-01,0.1533D-01,0.1492D-01,0.1454D-01,0.1415D-01, - &0.1377D-01,0.1340D-01,0.1303D-01,0.1266D-01,0.1231D-01,0.1195D-01, - &0.1160D-01,0.1126D-01,0.1092D-01,0.1057D-01,0.1024D-01,0.9910D-02, - &0.9576D-02,0.9250D-02,0.8928D-02,0.8605D-02,0.8283D-02,0.7969D-02, - &0.7655D-02,0.7340D-02,0.7030D-02,0.6725D-02,0.6424D-02,0.6122D-02, - &0.5826D-02,0.5553D-02,0.5258D-02,0.4974D-02,0.4704D-02,0.4437D-02, - &0.4170D-02,0.3915D-02,0.3668D-02,0.3430D-02,0.3202D-02,0.2984D-02, - &0.2768D-02,0.2570D-02,0.2382D-02,0.2202D-02,0.2032D-02,0.1870D-02, - &0.1715D-02,0.1568D-02,0.1427D-02,0.1289D-02,0.1156D-02,0.1027D-02, - &0.9038D-03,0.7871D-03,0.6800D-03,0.5851D-03,0.5058D-03,0.4453D-03, - &0.4065D-03,0.3917D-03,0.4024D-03,0.4400D-03,0.5058D-03,0.6008D-03, - &0.6130D-03,0.6252D-03,0.6375D-03,0.6499D-03,0.6623D-03,0.6745D-03, - &0.6867D-03,0.6987D-03,0.7104D-03,0.7216D-03,0.7325D-03,0.7425D-03, - &0.7518D-03,0.7598D-03,0.7664D-03,0.7709D-03,0.7727D-03,0.7706D-03, - &0.7622D-03,0.7542D-03,0.7051D-03,0.5640D-03/ - DATA (XPV(I,3,4),I=1,100)/ - &0.2144D-01,0.2093D-01,0.2041D-01,0.1990D-01,0.1942D-01,0.1893D-01, - &0.1844D-01,0.1798D-01,0.1752D-01,0.1706D-01,0.1662D-01,0.1618D-01, - &0.1574D-01,0.1532D-01,0.1490D-01,0.1448D-01,0.1408D-01,0.1367D-01, - &0.1327D-01,0.1288D-01,0.1250D-01,0.1211D-01,0.1174D-01,0.1136D-01, - &0.1099D-01,0.1063D-01,0.1026D-01,0.9898D-02,0.9545D-02,0.9192D-02, - &0.8837D-02,0.8488D-02,0.8143D-02,0.7798D-02,0.7453D-02,0.7116D-02, - &0.6779D-02,0.6443D-02,0.6112D-02,0.5786D-02,0.5465D-02,0.5145D-02, - &0.4831D-02,0.4541D-02,0.4234D-02,0.3939D-02,0.3661D-02,0.3389D-02, - &0.3122D-02,0.2871D-02,0.2632D-02,0.2409D-02,0.2200D-02,0.2009D-02, - &0.1830D-02,0.1675D-02,0.1538D-02,0.1418D-02,0.1319D-02,0.1236D-02, - &0.1171D-02,0.1122D-02,0.1087D-02,0.1064D-02,0.1051D-02,0.1047D-02, - &0.1050D-02,0.1061D-02,0.1079D-02,0.1105D-02,0.1142D-02,0.1194D-02, - &0.1267D-02,0.1372D-02,0.1520D-02,0.1729D-02,0.2019D-02,0.2410D-02, - &0.2459D-02,0.2509D-02,0.2559D-02,0.2609D-02,0.2659D-02,0.2708D-02, - &0.2757D-02,0.2805D-02,0.2853D-02,0.2898D-02,0.2942D-02,0.2982D-02, - &0.3020D-02,0.3052D-02,0.3079D-02,0.3097D-02,0.3105D-02,0.3097D-02, - &0.3063D-02,0.3033D-02,0.2839D-02,0.2269D-02/ - DATA (XPV(I,4,0),I=1,100)/ - &0.1713D+01,0.1653D+01,0.1593D+01,0.1534D+01,0.1478D+01,0.1423D+01, - &0.1369D+01,0.1318D+01,0.1268D+01,0.1219D+01,0.1172D+01,0.1126D+01, - &0.1081D+01,0.1038D+01,0.9964D+00,0.9552D+00,0.9163D+00,0.8781D+00, - &0.8407D+00,0.8054D+00,0.7708D+00,0.7365D+00,0.7045D+00,0.6729D+00, - &0.6421D+00,0.6129D+00,0.5844D+00,0.5563D+00,0.5298D+00,0.5040D+00, - &0.4786D+00,0.4543D+00,0.4309D+00,0.4080D+00,0.3857D+00,0.3645D+00, - &0.3437D+00,0.3235D+00,0.3039D+00,0.2850D+00,0.2668D+00,0.2489D+00, - &0.2315D+00,0.2155D+00,0.1989D+00,0.1830D+00,0.1679D+00,0.1532D+00, - &0.1388D+00,0.1250D+00,0.1118D+00,0.9925D-01,0.8729D-01,0.7605D-01, - &0.6530D-01,0.5557D-01,0.4669D-01,0.3863D-01,0.3151D-01,0.2530D-01, - &0.1999D-01,0.1560D-01,0.1206D-01,0.9245D-02,0.7105D-02,0.5513D-02, - &0.4368D-02,0.3544D-02,0.2948D-02,0.2497D-02,0.2133D-02,0.1819D-02, - &0.1533D-02,0.1267D-02,0.1016D-02,0.7782D-03,0.5551D-03,0.3467D-03, - &0.3248D-03,0.3035D-03,0.2826D-03,0.2623D-03,0.2426D-03,0.2233D-03, - &0.2044D-03,0.1862D-03,0.1685D-03,0.1514D-03,0.1348D-03,0.1188D-03, - &0.1033D-03,0.8856D-04,0.7444D-04,0.6102D-04,0.4836D-04,0.3654D-04, - &0.2566D-04,0.1580D-04,0.7467D-05,0.1177D-05/ - DATA (XPV(I,4,1),I=1,100)/ - &0.2961D-01,0.2879D-01,0.2797D-01,0.2716D-01,0.2638D-01,0.2562D-01, - &0.2485D-01,0.2413D-01,0.2341D-01,0.2269D-01,0.2201D-01,0.2134D-01, - &0.2066D-01,0.2003D-01,0.1939D-01,0.1875D-01,0.1815D-01,0.1755D-01, - &0.1695D-01,0.1638D-01,0.1582D-01,0.1525D-01,0.1471D-01,0.1417D-01, - &0.1363D-01,0.1311D-01,0.1260D-01,0.1209D-01,0.1159D-01,0.1110D-01, - &0.1061D-01,0.1014D-01,0.9670D-02,0.9205D-02,0.8745D-02,0.8300D-02, - &0.7859D-02,0.7423D-02,0.6997D-02,0.6583D-02,0.6178D-02,0.5780D-02, - &0.5394D-02,0.5041D-02,0.4673D-02,0.4326D-02,0.4002D-02,0.3692D-02, - &0.3395D-02,0.3121D-02,0.2869D-02,0.2641D-02,0.2438D-02,0.2262D-02, - &0.2107D-02,0.1986D-02,0.1894D-02,0.1830D-02,0.1795D-02,0.1787D-02, - &0.1806D-02,0.1849D-02,0.1914D-02,0.1997D-02,0.2095D-02,0.2205D-02, - &0.2323D-02,0.2447D-02,0.2573D-02,0.2700D-02,0.2827D-02,0.2953D-02, - &0.3082D-02,0.3216D-02,0.3362D-02,0.3530D-02,0.3726D-02,0.3944D-02, - &0.3968D-02,0.3990D-02,0.4012D-02,0.4032D-02,0.4051D-02,0.4068D-02, - &0.4083D-02,0.4095D-02,0.4104D-02,0.4109D-02,0.4110D-02,0.4106D-02, - &0.4095D-02,0.4076D-02,0.4048D-02,0.4007D-02,0.3951D-02,0.3872D-02, - &0.3759D-02,0.3643D-02,0.3325D-02,0.2555D-02/ - DATA (XPV(I,4,2),I=1,100)/ - &0.2961D-01,0.2879D-01,0.2797D-01,0.2715D-01,0.2638D-01,0.2561D-01, - &0.2485D-01,0.2413D-01,0.2341D-01,0.2269D-01,0.2201D-01,0.2133D-01, - &0.2066D-01,0.2002D-01,0.1938D-01,0.1875D-01,0.1815D-01,0.1754D-01, - &0.1695D-01,0.1637D-01,0.1581D-01,0.1524D-01,0.1470D-01,0.1415D-01, - &0.1362D-01,0.1310D-01,0.1258D-01,0.1207D-01,0.1157D-01,0.1108D-01, - &0.1059D-01,0.1011D-01,0.9639D-02,0.9172D-02,0.8708D-02,0.8258D-02, - &0.7813D-02,0.7372D-02,0.6940D-02,0.6520D-02,0.6109D-02,0.5703D-02, - &0.5308D-02,0.4946D-02,0.4568D-02,0.4209D-02,0.3874D-02,0.3550D-02, - &0.3237D-02,0.2948D-02,0.2678D-02,0.2430D-02,0.2205D-02,0.2006D-02, - &0.1826D-02,0.1678D-02,0.1556D-02,0.1460D-02,0.1392D-02,0.1348D-02, - &0.1329D-02,0.1332D-02,0.1354D-02,0.1393D-02,0.1446D-02,0.1508D-02, - &0.1578D-02,0.1651D-02,0.1724D-02,0.1795D-02,0.1860D-02,0.1916D-02, - &0.1960D-02,0.1988D-02,0.1995D-02,0.1975D-02,0.1918D-02,0.1805D-02, - &0.1788D-02,0.1770D-02,0.1750D-02,0.1729D-02,0.1708D-02,0.1684D-02, - &0.1660D-02,0.1633D-02,0.1605D-02,0.1575D-02,0.1543D-02,0.1508D-02, - &0.1471D-02,0.1430D-02,0.1385D-02,0.1336D-02,0.1281D-02,0.1218D-02, - &0.1144D-02,0.1067D-02,0.9312D-03,0.6726D-03/ - DATA (XPV(I,4,3),I=1,100)/ - &0.2998D-01,0.2918D-01,0.2837D-01,0.2758D-01,0.2682D-01,0.2607D-01, - &0.2532D-01,0.2461D-01,0.2391D-01,0.2321D-01,0.2255D-01,0.2189D-01, - &0.2124D-01,0.2062D-01,0.2000D-01,0.1939D-01,0.1881D-01,0.1823D-01, - &0.1765D-01,0.1711D-01,0.1656D-01,0.1602D-01,0.1550D-01,0.1499D-01, - &0.1447D-01,0.1398D-01,0.1350D-01,0.1301D-01,0.1254D-01,0.1208D-01, - &0.1161D-01,0.1116D-01,0.1072D-01,0.1028D-01,0.9842D-02,0.9419D-02, - &0.9000D-02,0.8583D-02,0.8174D-02,0.7776D-02,0.7384D-02,0.6996D-02, - &0.6616D-02,0.6268D-02,0.5896D-02,0.5541D-02,0.5206D-02,0.4876D-02, - &0.4551D-02,0.4242D-02,0.3945D-02,0.3662D-02,0.3393D-02,0.3138D-02, - &0.2890D-02,0.2664D-02,0.2453D-02,0.2253D-02,0.2067D-02,0.1893D-02, - &0.1730D-02,0.1576D-02,0.1432D-02,0.1293D-02,0.1161D-02,0.1035D-02, - &0.9167D-03,0.8059D-03,0.7058D-03,0.6185D-03,0.5474D-03,0.4952D-03, - &0.4650D-03,0.4588D-03,0.4786D-03,0.5261D-03,0.6032D-03,0.7103D-03, - &0.7238D-03,0.7373D-03,0.7508D-03,0.7642D-03,0.7777D-03,0.7909D-03, - &0.8039D-03,0.8165D-03,0.8288D-03,0.8404D-03,0.8514D-03,0.8613D-03, - &0.8702D-03,0.8774D-03,0.8828D-03,0.8855D-03,0.8849D-03,0.8794D-03, - &0.8664D-03,0.8526D-03,0.7906D-03,0.6244D-03/ - DATA (XPV(I,4,4),I=1,100)/ - &0.2972D-01,0.2890D-01,0.2809D-01,0.2728D-01,0.2651D-01,0.2575D-01, - &0.2499D-01,0.2427D-01,0.2356D-01,0.2284D-01,0.2217D-01,0.2150D-01, - &0.2083D-01,0.2019D-01,0.1956D-01,0.1893D-01,0.1834D-01,0.1774D-01, - &0.1715D-01,0.1658D-01,0.1602D-01,0.1546D-01,0.1492D-01,0.1439D-01, - &0.1386D-01,0.1335D-01,0.1284D-01,0.1233D-01,0.1184D-01,0.1135D-01, - &0.1087D-01,0.1039D-01,0.9930D-02,0.9468D-02,0.9010D-02,0.8565D-02, - &0.8125D-02,0.7688D-02,0.7260D-02,0.6843D-02,0.6433D-02,0.6029D-02, - &0.5635D-02,0.5273D-02,0.4893D-02,0.4531D-02,0.4191D-02,0.3861D-02, - &0.3540D-02,0.3240D-02,0.2958D-02,0.2695D-02,0.2452D-02,0.2232D-02, - &0.2027D-02,0.1851D-02,0.1698D-02,0.1567D-02,0.1459D-02,0.1373D-02, - &0.1307D-02,0.1259D-02,0.1229D-02,0.1211D-02,0.1206D-02,0.1212D-02, - &0.1226D-02,0.1247D-02,0.1277D-02,0.1316D-02,0.1368D-02,0.1436D-02, - &0.1529D-02,0.1656D-02,0.1832D-02,0.2076D-02,0.2410D-02,0.2849D-02, - &0.2903D-02,0.2958D-02,0.3013D-02,0.3067D-02,0.3121D-02,0.3174D-02, - &0.3227D-02,0.3278D-02,0.3327D-02,0.3374D-02,0.3419D-02,0.3459D-02, - &0.3494D-02,0.3524D-02,0.3546D-02,0.3557D-02,0.3555D-02,0.3534D-02, - &0.3481D-02,0.3429D-02,0.3184D-02,0.2507D-02/ - DATA (XPV(I,5,0),I=1,100)/ - &0.2770D+01,0.2649D+01,0.2529D+01,0.2413D+01,0.2304D+01,0.2198D+01, - &0.2094D+01,0.1997D+01,0.1902D+01,0.1810D+01,0.1724D+01,0.1640D+01, - &0.1558D+01,0.1481D+01,0.1407D+01,0.1334D+01,0.1266D+01,0.1201D+01, - &0.1137D+01,0.1077D+01,0.1019D+01,0.9629D+00,0.9107D+00,0.8597D+00, - &0.8105D+00,0.7646D+00,0.7201D+00,0.6769D+00,0.6367D+00,0.5980D+00, - &0.5605D+00,0.5252D+00,0.4916D+00,0.4592D+00,0.4281D+00,0.3990D+00, - &0.3711D+00,0.3442D+00,0.3187D+00,0.2947D+00,0.2718D+00,0.2498D+00, - &0.2289D+00,0.2101D+00,0.1910D+00,0.1731D+00,0.1566D+00,0.1408D+00, - &0.1257D+00,0.1117D+00,0.9867D-01,0.8653D-01,0.7529D-01,0.6501D-01, - &0.5545D-01,0.4701D-01,0.3952D-01,0.3288D-01,0.2715D-01,0.2225D-01, - &0.1814D-01,0.1478D-01,0.1208D-01,0.9909D-02,0.8219D-02,0.6899D-02, - &0.5872D-02,0.5047D-02,0.4368D-02,0.3783D-02,0.3261D-02,0.2780D-02, - &0.2333D-02,0.1914D-02,0.1522D-02,0.1155D-02,0.8143D-03,0.5006D-03, - &0.4680D-03,0.4362D-03,0.4053D-03,0.3753D-03,0.3461D-03,0.3178D-03, - &0.2901D-03,0.2634D-03,0.2377D-03,0.2128D-03,0.1888D-03,0.1657D-03, - &0.1436D-03,0.1225D-03,0.1025D-03,0.8355D-04,0.6581D-04,0.4937D-04, - &0.3437D-04,0.2094D-04,0.9768D-05,0.1553D-05/ - DATA (XPV(I,5,1),I=1,100)/ - &0.6050D-01,0.5833D-01,0.5619D-01,0.5409D-01,0.5210D-01,0.5014D-01, - &0.4822D-01,0.4640D-01,0.4462D-01,0.4287D-01,0.4121D-01,0.3959D-01, - &0.3799D-01,0.3648D-01,0.3500D-01,0.3354D-01,0.3216D-01,0.3080D-01, - &0.2947D-01,0.2822D-01,0.2698D-01,0.2576D-01,0.2462D-01,0.2348D-01, - &0.2237D-01,0.2132D-01,0.2029D-01,0.1927D-01,0.1830D-01,0.1736D-01, - &0.1643D-01,0.1554D-01,0.1468D-01,0.1384D-01,0.1301D-01,0.1223D-01, - &0.1147D-01,0.1072D-01,0.1001D-01,0.9326D-02,0.8669D-02,0.8032D-02, - &0.7423D-02,0.6873D-02,0.6313D-02,0.5792D-02,0.5314D-02,0.4862D-02, - &0.4437D-02,0.4053D-02,0.3705D-02,0.3395D-02,0.3124D-02,0.2892D-02, - &0.2694D-02,0.2542D-02,0.2430D-02,0.2354D-02,0.2316D-02,0.2312D-02, - &0.2341D-02,0.2397D-02,0.2478D-02,0.2579D-02,0.2696D-02,0.2825D-02, - &0.2961D-02,0.3102D-02,0.3244D-02,0.3387D-02,0.3531D-02,0.3677D-02, - &0.3831D-02,0.3999D-02,0.4196D-02,0.4435D-02,0.4730D-02,0.5071D-02, - &0.5109D-02,0.5145D-02,0.5181D-02,0.5214D-02,0.5246D-02,0.5274D-02, - &0.5300D-02,0.5322D-02,0.5340D-02,0.5352D-02,0.5358D-02,0.5357D-02, - &0.5347D-02,0.5325D-02,0.5291D-02,0.5238D-02,0.5164D-02,0.5059D-02, - &0.4907D-02,0.4746D-02,0.4309D-02,0.3281D-02/ - DATA (XPV(I,5,2),I=1,100)/ - &0.6050D-01,0.5833D-01,0.5619D-01,0.5408D-01,0.5209D-01,0.5014D-01, - &0.4822D-01,0.4640D-01,0.4462D-01,0.4286D-01,0.4121D-01,0.3958D-01, - &0.3798D-01,0.3647D-01,0.3499D-01,0.3353D-01,0.3215D-01,0.3079D-01, - &0.2946D-01,0.2820D-01,0.2697D-01,0.2574D-01,0.2460D-01,0.2346D-01, - &0.2235D-01,0.2129D-01,0.2026D-01,0.1924D-01,0.1827D-01,0.1732D-01, - &0.1639D-01,0.1549D-01,0.1463D-01,0.1378D-01,0.1295D-01,0.1216D-01, - &0.1139D-01,0.1063D-01,0.9910D-02,0.9216D-02,0.8547D-02,0.7898D-02, - &0.7274D-02,0.6709D-02,0.6132D-02,0.5593D-02,0.5094D-02,0.4620D-02, - &0.4170D-02,0.3759D-02,0.3382D-02,0.3040D-02,0.2734D-02,0.2465D-02, - &0.2226D-02,0.2030D-02,0.1871D-02,0.1746D-02,0.1654D-02,0.1594D-02, - &0.1562D-02,0.1555D-02,0.1571D-02,0.1603D-02,0.1649D-02,0.1705D-02, - &0.1765D-02,0.1828D-02,0.1889D-02,0.1946D-02,0.1994D-02,0.2033D-02, - &0.2060D-02,0.2071D-02,0.2065D-02,0.2038D-02,0.1987D-02,0.1896D-02, - &0.1883D-02,0.1868D-02,0.1853D-02,0.1837D-02,0.1820D-02,0.1802D-02, - &0.1783D-02,0.1762D-02,0.1739D-02,0.1715D-02,0.1689D-02,0.1661D-02, - &0.1629D-02,0.1595D-02,0.1556D-02,0.1513D-02,0.1464D-02,0.1406D-02, - &0.1336D-02,0.1263D-02,0.1120D-02,0.8288D-03/ - DATA (XPV(I,5,3),I=1,100)/ - &0.6090D-01,0.5875D-01,0.5662D-01,0.5453D-01,0.5256D-01,0.5062D-01, - &0.4871D-01,0.4691D-01,0.4515D-01,0.4341D-01,0.4178D-01,0.4017D-01, - &0.3859D-01,0.3710D-01,0.3564D-01,0.3420D-01,0.3284D-01,0.3151D-01, - &0.3020D-01,0.2897D-01,0.2776D-01,0.2656D-01,0.2544D-01,0.2433D-01, - &0.2324D-01,0.2221D-01,0.2120D-01,0.2021D-01,0.1926D-01,0.1834D-01, - &0.1744D-01,0.1657D-01,0.1572D-01,0.1490D-01,0.1410D-01,0.1333D-01, - &0.1258D-01,0.1185D-01,0.1114D-01,0.1046D-01,0.9808D-02,0.9169D-02, - &0.8554D-02,0.7996D-02,0.7417D-02,0.6872D-02,0.6364D-02,0.5875D-02, - &0.5402D-02,0.4961D-02,0.4545D-02,0.4157D-02,0.3795D-02,0.3461D-02, - &0.3143D-02,0.2860D-02,0.2602D-02,0.2365D-02,0.2152D-02,0.1957D-02, - &0.1780D-02,0.1620D-02,0.1474D-02,0.1339D-02,0.1214D-02,0.1100D-02, - &0.9956D-03,0.9020D-03,0.8211D-03,0.7547D-03,0.7054D-03,0.6757D-03, - &0.6684D-03,0.6859D-03,0.7308D-03,0.8062D-03,0.9148D-03,0.1055D-02, - &0.1072D-02,0.1089D-02,0.1105D-02,0.1121D-02,0.1137D-02,0.1153D-02, - &0.1167D-02,0.1182D-02,0.1195D-02,0.1207D-02,0.1217D-02,0.1226D-02, - &0.1233D-02,0.1237D-02,0.1239D-02,0.1235D-02,0.1227D-02,0.1211D-02, - &0.1184D-02,0.1153D-02,0.1055D-02,0.8147D-03/ - DATA (XPV(I,5,4),I=1,100)/ - &0.6062D-01,0.5845D-01,0.5631D-01,0.5421D-01,0.5223D-01,0.5028D-01, - &0.4836D-01,0.4655D-01,0.4478D-01,0.4302D-01,0.4138D-01,0.3976D-01, - &0.3816D-01,0.3666D-01,0.3518D-01,0.3372D-01,0.3235D-01,0.3100D-01, - &0.2967D-01,0.2842D-01,0.2719D-01,0.2597D-01,0.2484D-01,0.2371D-01, - &0.2260D-01,0.2155D-01,0.2052D-01,0.1951D-01,0.1855D-01,0.1761D-01, - &0.1668D-01,0.1579D-01,0.1493D-01,0.1409D-01,0.1327D-01,0.1248D-01, - &0.1172D-01,0.1097D-01,0.1025D-01,0.9561D-02,0.8895D-02,0.8249D-02, - &0.7629D-02,0.7067D-02,0.6490D-02,0.5951D-02,0.5451D-02,0.4976D-02, - &0.4523D-02,0.4107D-02,0.3724D-02,0.3375D-02,0.3059D-02,0.2780D-02, - &0.2527D-02,0.2317D-02,0.2141D-02,0.1997D-02,0.1886D-02,0.1803D-02, - &0.1748D-02,0.1717D-02,0.1709D-02,0.1717D-02,0.1741D-02,0.1778D-02, - &0.1825D-02,0.1883D-02,0.1951D-02,0.2031D-02,0.2127D-02,0.2246D-02, - &0.2396D-02,0.2592D-02,0.2852D-02,0.3200D-02,0.3657D-02,0.4230D-02, - &0.4298D-02,0.4365D-02,0.4432D-02,0.4498D-02,0.4563D-02,0.4625D-02, - &0.4685D-02,0.4741D-02,0.4795D-02,0.4843D-02,0.4887D-02,0.4923D-02, - &0.4951D-02,0.4968D-02,0.4973D-02,0.4961D-02,0.4927D-02,0.4864D-02, - &0.4754D-02,0.4636D-02,0.4245D-02,0.3267D-02/ - DATA (XPV(I,6,0),I=1,100)/ - &0.3742D+01,0.3556D+01,0.3375D+01,0.3200D+01,0.3037D+01,0.2878D+01, - &0.2725D+01,0.2582D+01,0.2444D+01,0.2310D+01,0.2185D+01,0.2065D+01, - &0.1949D+01,0.1840D+01,0.1736D+01,0.1635D+01,0.1541D+01,0.1451D+01, - &0.1364D+01,0.1283D+01,0.1205D+01,0.1130D+01,0.1061D+01,0.9934D+00, - &0.9293D+00,0.8698D+00,0.8128D+00,0.7578D+00,0.7071D+00,0.6586D+00, - &0.6121D+00,0.5687D+00,0.5278D+00,0.4887D+00,0.4517D+00,0.4173D+00, - &0.3846D+00,0.3535D+00,0.3244D+00,0.2973D+00,0.2717D+00,0.2475D+00, - &0.2247D+00,0.2045D+00,0.1843D+00,0.1656D+00,0.1486D+00,0.1327D+00, - &0.1176D+00,0.1039D+00,0.9130D-01,0.7978D-01,0.6928D-01,0.5984D-01, - &0.5118D-01,0.4366D-01,0.3707D-01,0.3131D-01,0.2638D-01,0.2219D-01, - &0.1867D-01,0.1577D-01,0.1341D-01,0.1147D-01,0.9882D-02,0.8574D-02, - &0.7485D-02,0.6547D-02,0.5722D-02,0.4975D-02,0.4289D-02,0.3649D-02, - &0.3052D-02,0.2495D-02,0.1975D-02,0.1492D-02,0.1045D-02,0.6378D-03, - &0.5956D-03,0.5547D-03,0.5148D-03,0.4761D-03,0.4386D-03,0.4023D-03, - &0.3667D-03,0.3326D-03,0.2997D-03,0.2679D-03,0.2373D-03,0.2080D-03, - &0.1800D-03,0.1533D-03,0.1280D-03,0.1041D-03,0.8181D-04,0.6122D-04, - &0.4250D-04,0.2581D-04,0.1200D-04,0.1914D-05/ - DATA (XPV(I,6,1),I=1,100)/ - &0.9375D-01,0.8988D-01,0.8607D-01,0.8236D-01,0.7887D-01,0.7546D-01, - &0.7213D-01,0.6901D-01,0.6596D-01,0.6297D-01,0.6018D-01,0.5745D-01, - &0.5478D-01,0.5228D-01,0.4984D-01,0.4745D-01,0.4522D-01,0.4304D-01, - &0.4091D-01,0.3892D-01,0.3697D-01,0.3506D-01,0.3329D-01,0.3155D-01, - &0.2986D-01,0.2827D-01,0.2672D-01,0.2520D-01,0.2378D-01,0.2241D-01, - &0.2106D-01,0.1979D-01,0.1857D-01,0.1738D-01,0.1624D-01,0.1516D-01, - &0.1412D-01,0.1312D-01,0.1217D-01,0.1127D-01,0.1041D-01,0.9586D-02, - &0.8807D-02,0.8113D-02,0.7414D-02,0.6771D-02,0.6188D-02,0.5645D-02, - &0.5140D-02,0.4689D-02,0.4287D-02,0.3934D-02,0.3630D-02,0.3376D-02, - &0.3163D-02,0.3005D-02,0.2894D-02,0.2825D-02,0.2798D-02,0.2809D-02, - &0.2854D-02,0.2930D-02,0.3031D-02,0.3152D-02,0.3289D-02,0.3437D-02, - &0.3593D-02,0.3752D-02,0.3913D-02,0.4075D-02,0.4238D-02,0.4408D-02, - &0.4592D-02,0.4800D-02,0.5051D-02,0.5364D-02,0.5755D-02,0.6211D-02, - &0.6262D-02,0.6311D-02,0.6359D-02,0.6403D-02,0.6446D-02,0.6484D-02, - &0.6519D-02,0.6549D-02,0.6574D-02,0.6591D-02,0.6601D-02,0.6601D-02, - &0.6590D-02,0.6564D-02,0.6521D-02,0.6456D-02,0.6363D-02,0.6231D-02, - &0.6041D-02,0.5835D-02,0.5289D-02,0.4021D-02/ - DATA (XPV(I,6,2),I=1,100)/ - &0.9375D-01,0.8987D-01,0.8607D-01,0.8236D-01,0.7887D-01,0.7545D-01, - &0.7213D-01,0.6900D-01,0.6595D-01,0.6296D-01,0.6017D-01,0.5744D-01, - &0.5477D-01,0.5227D-01,0.4983D-01,0.4744D-01,0.4520D-01,0.4302D-01, - &0.4089D-01,0.3889D-01,0.3695D-01,0.3504D-01,0.3326D-01,0.3151D-01, - &0.2982D-01,0.2823D-01,0.2667D-01,0.2515D-01,0.2373D-01,0.2235D-01, - &0.2100D-01,0.1972D-01,0.1849D-01,0.1729D-01,0.1614D-01,0.1505D-01, - &0.1400D-01,0.1299D-01,0.1202D-01,0.1110D-01,0.1023D-01,0.9390D-02, - &0.8591D-02,0.7874D-02,0.7152D-02,0.6483D-02,0.5870D-02,0.5295D-02, - &0.4756D-02,0.4268D-02,0.3824D-02,0.3427D-02,0.3075D-02,0.2770D-02, - &0.2501D-02,0.2282D-02,0.2106D-02,0.1968D-02,0.1869D-02,0.1802D-02, - &0.1766D-02,0.1756D-02,0.1768D-02,0.1797D-02,0.1838D-02,0.1888D-02, - &0.1942D-02,0.1997D-02,0.2048D-02,0.2094D-02,0.2132D-02,0.2160D-02, - &0.2176D-02,0.2180D-02,0.2171D-02,0.2150D-02,0.2114D-02,0.2055D-02, - &0.2046D-02,0.2037D-02,0.2026D-02,0.2015D-02,0.2003D-02,0.1990D-02, - &0.1976D-02,0.1960D-02,0.1943D-02,0.1924D-02,0.1903D-02,0.1879D-02, - &0.1852D-02,0.1822D-02,0.1788D-02,0.1748D-02,0.1701D-02,0.1644D-02, - &0.1574D-02,0.1500D-02,0.1342D-02,0.1006D-02/ - DATA (XPV(I,6,3),I=1,100)/ - &0.9417D-01,0.9031D-01,0.8652D-01,0.8282D-01,0.7935D-01,0.7595D-01, - &0.7264D-01,0.6954D-01,0.6651D-01,0.6354D-01,0.6076D-01,0.5805D-01, - &0.5540D-01,0.5292D-01,0.5050D-01,0.4814D-01,0.4593D-01,0.4376D-01, - &0.4166D-01,0.3968D-01,0.3777D-01,0.3588D-01,0.3413D-01,0.3240D-01, - &0.3074D-01,0.2917D-01,0.2764D-01,0.2614D-01,0.2474D-01,0.2339D-01, - &0.2206D-01,0.2080D-01,0.1960D-01,0.1843D-01,0.1730D-01,0.1623D-01, - &0.1520D-01,0.1420D-01,0.1324D-01,0.1234D-01,0.1147D-01,0.1064D-01, - &0.9841D-02,0.9125D-02,0.8394D-02,0.7713D-02,0.7085D-02,0.6486D-02, - &0.5916D-02,0.5390D-02,0.4900D-02,0.4449D-02,0.4033D-02,0.3655D-02, - &0.3301D-02,0.2989D-02,0.2709D-02,0.2456D-02,0.2232D-02,0.2031D-02, - &0.1851D-02,0.1692D-02,0.1550D-02,0.1421D-02,0.1305D-02,0.1201D-02, - &0.1109D-02,0.1030D-02,0.9637D-03,0.9133D-03,0.8806D-03,0.8682D-03, - &0.8786D-03,0.9148D-03,0.9803D-03,0.1079D-02,0.1214D-02,0.1381D-02, - &0.1401D-02,0.1420D-02,0.1439D-02,0.1457D-02,0.1475D-02,0.1492D-02, - &0.1508D-02,0.1523D-02,0.1537D-02,0.1549D-02,0.1559D-02,0.1567D-02, - &0.1572D-02,0.1573D-02,0.1570D-02,0.1562D-02,0.1546D-02,0.1521D-02, - &0.1481D-02,0.1437D-02,0.1308D-02,0.1001D-02/ - DATA (XPV(I,6,4),I=1,100)/ - &0.9387D-01,0.9000D-01,0.8620D-01,0.8249D-01,0.7901D-01,0.7560D-01, - &0.7228D-01,0.6916D-01,0.6611D-01,0.6313D-01,0.6034D-01,0.5762D-01, - &0.5495D-01,0.5246D-01,0.5002D-01,0.4764D-01,0.4541D-01,0.4324D-01, - &0.4112D-01,0.3912D-01,0.3719D-01,0.3528D-01,0.3351D-01,0.3177D-01, - &0.3009D-01,0.2850D-01,0.2695D-01,0.2544D-01,0.2402D-01,0.2265D-01, - &0.2131D-01,0.2003D-01,0.1881D-01,0.1763D-01,0.1648D-01,0.1540D-01, - &0.1436D-01,0.1335D-01,0.1239D-01,0.1148D-01,0.1061D-01,0.9775D-02, - &0.8982D-02,0.8272D-02,0.7555D-02,0.6890D-02,0.6283D-02,0.5712D-02, - &0.5175D-02,0.4690D-02,0.4249D-02,0.3854D-02,0.3504D-02,0.3199D-02, - &0.2930D-02,0.2712D-02,0.2536D-02,0.2398D-02,0.2298D-02,0.2232D-02, - &0.2197D-02,0.2189D-02,0.2207D-02,0.2243D-02,0.2296D-02,0.2364D-02, - &0.2444D-02,0.2535D-02,0.2639D-02,0.2757D-02,0.2893D-02,0.3057D-02, - &0.3260D-02,0.3518D-02,0.3853D-02,0.4291D-02,0.4854D-02,0.5537D-02, - &0.5617D-02,0.5695D-02,0.5771D-02,0.5846D-02,0.5918D-02,0.5987D-02, - &0.6052D-02,0.6113D-02,0.6168D-02,0.6217D-02,0.6258D-02,0.6289D-02, - &0.6309D-02,0.6315D-02,0.6304D-02,0.6270D-02,0.6208D-02,0.6107D-02, - &0.5948D-02,0.5772D-02,0.5256D-02,0.4016D-02/ - DATA (XPV(I,7,0),I=1,100)/ - &0.4620D+01,0.4371D+01,0.4130D+01,0.3898D+01,0.3682D+01,0.3473D+01, - &0.3273D+01,0.3087D+01,0.2908D+01,0.2735D+01,0.2576D+01,0.2422D+01, - &0.2274D+01,0.2137D+01,0.2006D+01,0.1879D+01,0.1763D+01,0.1651D+01, - &0.1544D+01,0.1444D+01,0.1350D+01,0.1258D+01,0.1175D+01,0.1095D+01, - &0.1018D+01,0.9480D+00,0.8808D+00,0.8166D+00,0.7576D+00,0.7016D+00, - &0.6483D+00,0.5987D+00,0.5524D+00,0.5085D+00,0.4671D+00,0.4289D+00, - &0.3930D+00,0.3591D+00,0.3276D+00,0.2984D+00,0.2712D+00,0.2456D+00, - &0.2218D+00,0.2008D+00,0.1801D+00,0.1612D+00,0.1440D+00,0.1281D+00, - &0.1133D+00,0.9995D-01,0.8778D-01,0.7678D-01,0.6687D-01,0.5803D-01, - &0.5000D-01,0.4309D-01,0.3706D-01,0.3181D-01,0.2732D-01,0.2349D-01, - &0.2025D-01,0.1754D-01,0.1529D-01,0.1336D-01,0.1174D-01,0.1033D-01, - &0.9116D-02,0.8022D-02,0.7032D-02,0.6118D-02,0.5270D-02,0.4476D-02, - &0.3736D-02,0.3047D-02,0.2407D-02,0.1812D-02,0.1266D-02,0.7693D-03, - &0.7181D-03,0.6683D-03,0.6199D-03,0.5730D-03,0.5276D-03,0.4835D-03, - &0.4405D-03,0.3993D-03,0.3595D-03,0.3212D-03,0.2843D-03,0.2490D-03, - &0.2153D-03,0.1832D-03,0.1528D-03,0.1242D-03,0.9750D-04,0.7288D-04, - &0.5054D-04,0.3065D-04,0.1424D-04,0.2274D-05/ - DATA (XPV(I,7,1),I=1,100)/ - &0.1273D+00,0.1215D+00,0.1159D+00,0.1104D+00,0.1052D+00,0.1002D+00, - &0.9538D-01,0.9084D-01,0.8644D-01,0.8214D-01,0.7814D-01,0.7426D-01, - &0.7047D-01,0.6695D-01,0.6352D-01,0.6020D-01,0.5710D-01,0.5408D-01, - &0.5116D-01,0.4843D-01,0.4580D-01,0.4321D-01,0.4083D-01,0.3850D-01, - &0.3626D-01,0.3416D-01,0.3213D-01,0.3016D-01,0.2832D-01,0.2655D-01, - &0.2484D-01,0.2322D-01,0.2168D-01,0.2020D-01,0.1878D-01,0.1745D-01, - &0.1618D-01,0.1496D-01,0.1381D-01,0.1273D-01,0.1172D-01,0.1075D-01, - &0.9841D-02,0.9037D-02,0.8237D-02,0.7506D-02,0.6849D-02,0.6244D-02, - &0.5686D-02,0.5195D-02,0.4761D-02,0.4386D-02,0.4068D-02,0.3807D-02, - &0.3592D-02,0.3439D-02,0.3337D-02,0.3281D-02,0.3270D-02,0.3299D-02, - &0.3364D-02,0.3460D-02,0.3582D-02,0.3724D-02,0.3881D-02,0.4050D-02, - &0.4225D-02,0.4404D-02,0.4584D-02,0.4766D-02,0.4952D-02,0.5148D-02, - &0.5364D-02,0.5615D-02,0.5922D-02,0.6309D-02,0.6796D-02,0.7362D-02, - &0.7425D-02,0.7486D-02,0.7545D-02,0.7600D-02,0.7653D-02,0.7701D-02, - &0.7744D-02,0.7781D-02,0.7812D-02,0.7833D-02,0.7846D-02,0.7846D-02, - &0.7833D-02,0.7803D-02,0.7751D-02,0.7673D-02,0.7561D-02,0.7402D-02, - &0.7174D-02,0.6925D-02,0.6273D-02,0.4767D-02/ - DATA (XPV(I,7,2),I=1,100)/ - &0.1273D+00,0.1215D+00,0.1158D+00,0.1104D+00,0.1052D+00,0.1002D+00, - &0.9537D-01,0.9083D-01,0.8643D-01,0.8213D-01,0.7813D-01,0.7424D-01, - &0.7046D-01,0.6693D-01,0.6351D-01,0.6018D-01,0.5707D-01,0.5406D-01, - &0.5113D-01,0.4840D-01,0.4576D-01,0.4318D-01,0.4079D-01,0.3846D-01, - &0.3621D-01,0.3411D-01,0.3207D-01,0.3009D-01,0.2825D-01,0.2647D-01, - &0.2475D-01,0.2312D-01,0.2157D-01,0.2008D-01,0.1865D-01,0.1730D-01, - &0.1602D-01,0.1478D-01,0.1362D-01,0.1252D-01,0.1148D-01,0.1049D-01, - &0.9553D-02,0.8720D-02,0.7889D-02,0.7124D-02,0.6429D-02,0.5782D-02, - &0.5181D-02,0.4640D-02,0.4154D-02,0.3722D-02,0.3342D-02,0.3014D-02, - &0.2728D-02,0.2498D-02,0.2314D-02,0.2171D-02,0.2067D-02,0.1998D-02, - &0.1960D-02,0.1948D-02,0.1958D-02,0.1984D-02,0.2021D-02,0.2066D-02, - &0.2114D-02,0.2162D-02,0.2206D-02,0.2245D-02,0.2275D-02,0.2296D-02, - &0.2307D-02,0.2309D-02,0.2304D-02,0.2293D-02,0.2279D-02,0.2254D-02, - &0.2250D-02,0.2244D-02,0.2239D-02,0.2232D-02,0.2225D-02,0.2216D-02, - &0.2207D-02,0.2195D-02,0.2183D-02,0.2168D-02,0.2151D-02,0.2131D-02, - &0.2108D-02,0.2081D-02,0.2049D-02,0.2010D-02,0.1964D-02,0.1906D-02, - &0.1832D-02,0.1753D-02,0.1576D-02,0.1190D-02/ - DATA (XPV(I,7,3),I=1,100)/ - &0.1277D+00,0.1220D+00,0.1163D+00,0.1108D+00,0.1057D+00,0.1007D+00, - &0.9591D-01,0.9139D-01,0.8700D-01,0.8272D-01,0.7874D-01,0.7488D-01, - &0.7111D-01,0.6761D-01,0.6420D-01,0.6090D-01,0.5781D-01,0.5482D-01, - &0.5192D-01,0.4921D-01,0.4660D-01,0.4403D-01,0.4167D-01,0.3937D-01, - &0.3714D-01,0.3506D-01,0.3305D-01,0.3110D-01,0.2928D-01,0.2752D-01, - &0.2582D-01,0.2422D-01,0.2269D-01,0.2122D-01,0.1980D-01,0.1848D-01, - &0.1721D-01,0.1598D-01,0.1483D-01,0.1374D-01,0.1270D-01,0.1171D-01, - &0.1077D-01,0.9936D-02,0.9091D-02,0.8309D-02,0.7592D-02,0.6916D-02, - &0.6277D-02,0.5693D-02,0.5155D-02,0.4662D-02,0.4213D-02,0.3808D-02, - &0.3432D-02,0.3104D-02,0.2813D-02,0.2553D-02,0.2325D-02,0.2122D-02, - &0.1944D-02,0.1788D-02,0.1651D-02,0.1528D-02,0.1420D-02,0.1325D-02, - &0.1243D-02,0.1175D-02,0.1122D-02,0.1084D-02,0.1065D-02,0.1067D-02, - &0.1092D-02,0.1144D-02,0.1228D-02,0.1347D-02,0.1506D-02,0.1698D-02, - &0.1720D-02,0.1741D-02,0.1763D-02,0.1783D-02,0.1803D-02,0.1821D-02, - &0.1838D-02,0.1854D-02,0.1868D-02,0.1880D-02,0.1890D-02,0.1897D-02, - &0.1900D-02,0.1898D-02,0.1892D-02,0.1878D-02,0.1856D-02,0.1823D-02, - &0.1771D-02,0.1715D-02,0.1557D-02,0.1187D-02/ - DATA (XPV(I,7,4),I=1,100)/ - &0.1274D+00,0.1216D+00,0.1160D+00,0.1105D+00,0.1054D+00,0.1004D+00, - &0.9553D-01,0.9099D-01,0.8660D-01,0.8231D-01,0.7831D-01,0.7443D-01, - &0.7065D-01,0.6713D-01,0.6371D-01,0.6039D-01,0.5729D-01,0.5428D-01, - &0.5137D-01,0.4864D-01,0.4601D-01,0.4343D-01,0.4105D-01,0.3873D-01, - &0.3649D-01,0.3439D-01,0.3236D-01,0.3039D-01,0.2856D-01,0.2679D-01, - &0.2507D-01,0.2345D-01,0.2191D-01,0.2043D-01,0.1901D-01,0.1767D-01, - &0.1640D-01,0.1517D-01,0.1401D-01,0.1293D-01,0.1190D-01,0.1091D-01, - &0.9989D-02,0.9167D-02,0.8345D-02,0.7590D-02,0.6907D-02,0.6271D-02, - &0.5680D-02,0.5152D-02,0.4677D-02,0.4258D-02,0.3891D-02,0.3578D-02, - &0.3306D-02,0.3092D-02,0.2925D-02,0.2801D-02,0.2718D-02,0.2672D-02, - &0.2660D-02,0.2677D-02,0.2720D-02,0.2784D-02,0.2866D-02,0.2964D-02, - &0.3075D-02,0.3198D-02,0.3335D-02,0.3488D-02,0.3663D-02,0.3870D-02, - &0.4121D-02,0.4436D-02,0.4840D-02,0.5361D-02,0.6022D-02,0.6806D-02, - &0.6896D-02,0.6983D-02,0.7069D-02,0.7151D-02,0.7230D-02,0.7305D-02, - &0.7376D-02,0.7439D-02,0.7497D-02,0.7546D-02,0.7585D-02,0.7612D-02, - &0.7625D-02,0.7620D-02,0.7595D-02,0.7541D-02,0.7454D-02,0.7319D-02, - &0.7113D-02,0.6886D-02,0.6254D-02,0.4765D-02/ - -C..fetching pdfs - DO 5 IP=-6,6 - XPDF(IP)=ZEROD - 5 CONTINUE - DO 2 I=1,IX - ENT(I)=LOG10(XT(I)) - 2 CONTINUE - NA(1)=IX - NA(2)=IQ - DO 3 I=1,IQ - ENT(IX+I)=LOG10(Q2T(I)) - 3 CONTINUE - ARG(1)=LOG10(X) - ARG(2)=LOG10(Q2) -C..VARIOUS FLAVOURS (u-->2,d-->1) - XPDF(0)=DBFINT(NARG,ARG,NA,ENT,XPV(1,1,0)) - XPDF(1)=DBFINT(NARG,ARG,NA,ENT,XPV(1,1,2)) - XPDF(2)=DBFINT(NARG,ARG,NA,ENT,XPV(1,1,1)) - XPDF(3)=DBFINT(NARG,ARG,NA,ENT,XPV(1,1,3)) - XPDF(4)=DBFINT(NARG,ARG,NA,ENT,XPV(1,1,4)) - DO 21 JF=1,4 - XPDF(-JF)=XPDF(JF) - 21 CONTINUE - RETURN - END diff --git a/PDF/spdf/phlac3.F b/PDF/spdf/phlac3.F deleted file mode 100644 index 32bd6c9a5bb..00000000000 --- a/PDF/spdf/phlac3.F +++ /dev/null @@ -1,701 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:14 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:29 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C-------------------------------------------------------------- - SUBROUTINE PHLAC3(X,Q2,XPDF) -#include "pdf/impdp.inc" - PARAMETER(IX=100,IQ=7,NARG=2,NFUN=4) -#include "pdf/expdp.inc" - + DBFINT, - + XT(IX),Q2T(IQ),ARG(NARG),ENT(IX+IQ), - + XPV(IX,IQ,0:NFUN),XPDF(-6:6) - DIMENSION NA(NARG) - DATA ZEROD/0.D0/ -C...100 x valuse; in (D-4,.77) log spaced (78 points) -C... in (.78,.995) lineary spaced (22 points) - DATA Q2T/1.,10.,50.,1.D2,1.D3,1.D4,1.D5/ - DATA XT/ - &0.1000D-03,0.1123D-03,0.1262D-03,0.1417D-03,0.1592D-03,0.1789D-03, - &0.2009D-03,0.2257D-03,0.2535D-03,0.2848D-03,0.3199D-03,0.3593D-03, - &0.4037D-03,0.4534D-03,0.5093D-03,0.5722D-03,0.6427D-03,0.7220D-03, - &0.8110D-03,0.9110D-03,0.1023D-02,0.1150D-02,0.1291D-02,0.1451D-02, - &0.1629D-02,0.1830D-02,0.2056D-02,0.2310D-02,0.2594D-02,0.2914D-02, - &0.3274D-02,0.3677D-02,0.4131D-02,0.4640D-02,0.5212D-02,0.5855D-02, - &0.6577D-02,0.7388D-02,0.8299D-02,0.9323D-02,0.1047D-01,0.1176D-01, - &0.1321D-01,0.1484D-01,0.1667D-01,0.1873D-01,0.2104D-01,0.2363D-01, - &0.2655D-01,0.2982D-01,0.3350D-01,0.3763D-01,0.4227D-01,0.4748D-01, - &0.5334D-01,0.5992D-01,0.6731D-01,0.7560D-01,0.8493D-01,0.9540D-01, - &0.1072D+00,0.1204D+00,0.1352D+00,0.1519D+00,0.1706D+00,0.1917D+00, - &0.2153D+00,0.2419D+00,0.2717D+00,0.3052D+00,0.3428D+00,0.3851D+00, - &0.4326D+00,0.4859D+00,0.5458D+00,0.6131D+00,0.6887D+00,0.7737D+00, - &0.7837D+00,0.7937D+00,0.8037D+00,0.8137D+00,0.8237D+00,0.8337D+00, - &0.8437D+00,0.8537D+00,0.8637D+00,0.8737D+00,0.8837D+00,0.8937D+00, - &0.9037D+00,0.9137D+00,0.9237D+00,0.9337D+00,0.9437D+00,0.9537D+00, - &0.9637D+00,0.9737D+00,0.9837D+00,0.9937D+00/ - -C...place for DATA blocks - DATA (XPV(I,1,0),I=1,100)/ - &0.1007D-27,0.2075D-27,0.4426D-27,0.1128D-26,0.2333D-26,0.4999D-26, - &0.1271D-25,0.2627D-25,0.5632D-25,0.1431D-24,0.2954D-24,0.6358D-24, - &0.1610D-23,0.3324D-23,0.7182D-23,0.1813D-22,0.3751D-22,0.8117D-22, - &0.2043D-21,0.4240D-21,0.9144D-21,0.2316D-20,0.4799D-20,0.1038D-19, - &0.2610D-19,0.5465D-19,0.1173D-18,0.2878D-18,0.6255D-18,0.1334D-17, - &0.3132D-17,0.7205D-17,0.1536D-16,0.3447D-16,0.8339D-16,0.1787D-15, - &0.3904D-15,0.9044D-15,0.2099D-14,0.4566D-14,0.1007D-13,0.2303D-13, - &0.5384D-13,0.1169D-12,0.2617D-12,0.5847D-12,0.1299D-11,0.2924D-11, - &0.6607D-11,0.1484D-10,0.3329D-10,0.7451D-10,0.1668D-09,0.3728D-09, - &0.8458D-09,0.1887D-08,0.4199D-08,0.9410D-08,0.2093D-07,0.4670D-07, - &0.1044D-06,0.2319D-06,0.5128D-06,0.1139D-05,0.2523D-05,0.5592D-05, - &0.1232D-04,0.2713D-04,0.5944D-04,0.1298D-03,0.2819D-03,0.6094D-03, - &0.1307D-02,0.2770D-02,0.5792D-02,0.1188D-01,0.2357D-01,0.4425D-01, - &0.4717D-01,0.5016D-01,0.5322D-01,0.5631D-01,0.5943D-01,0.6254D-01, - &0.6564D-01,0.6864D-01,0.7153D-01,0.7424D-01,0.7672D-01,0.7888D-01, - &0.8063D-01,0.8185D-01,0.8240D-01,0.8208D-01,0.8066D-01,0.7779D-01, - &0.7302D-01,0.6561D-01,0.5572D-01,0.3029D-01/ - DATA (XPV(I,1,1),I=1,100)/ - &0.3424D-05,0.3802D-05,0.4225D-05,0.4691D-05,0.5211D-05,0.5789D-05, - &0.6428D-05,0.7141D-05,0.7930D-05,0.8809D-05,0.9783D-05,0.1086D-04, - &0.1207D-04,0.1340D-04,0.1488D-04,0.1653D-04,0.1836D-04,0.2039D-04, - &0.2264D-04,0.2513D-04,0.2790D-04,0.3099D-04,0.3439D-04,0.3819D-04, - &0.4236D-04,0.4701D-04,0.5217D-04,0.5789D-04,0.6419D-04,0.7118D-04, - &0.7893D-04,0.8747D-04,0.9693D-04,0.1073D-03,0.1188D-03,0.1315D-03, - &0.1455D-03,0.1608D-03,0.1777D-03,0.1962D-03,0.2163D-03,0.2384D-03, - &0.2625D-03,0.2888D-03,0.3171D-03,0.3478D-03,0.3809D-03,0.4162D-03, - &0.4540D-03,0.4939D-03,0.5361D-03,0.5801D-03,0.6258D-03,0.6727D-03, - &0.7196D-03,0.7668D-03,0.8129D-03,0.8568D-03,0.8974D-03,0.9335D-03, - &0.9636D-03,0.9862D-03,0.1001D-02,0.1005D-02,0.9999D-03,0.9845D-03, - &0.9605D-03,0.9293D-03,0.8945D-03,0.8601D-03,0.8315D-03,0.8149D-03, - &0.8173D-03,0.8465D-03,0.9115D-03,0.1023D-02,0.1196D-02,0.1446D-02, - &0.1479D-02,0.1512D-02,0.1545D-02,0.1579D-02,0.1613D-02,0.1648D-02, - &0.1682D-02,0.1716D-02,0.1750D-02,0.1784D-02,0.1816D-02,0.1848D-02, - &0.1878D-02,0.1905D-02,0.1930D-02,0.1951D-02,0.1967D-02,0.1975D-02, - &0.1973D-02,0.1954D-02,0.2080D-02,0.1381D-02/ - DATA (XPV(I,1,2),I=1,100)/ - &0.3137D-05,0.3480D-05,0.3862D-05,0.4284D-05,0.4753D-05,0.5276D-05, - &0.5851D-05,0.6493D-05,0.7202D-05,0.7991D-05,0.8865D-05,0.9833D-05, - &0.1091D-04,0.1210D-04,0.1342D-04,0.1489D-04,0.1651D-04,0.1831D-04, - &0.2031D-04,0.2252D-04,0.2496D-04,0.2770D-04,0.3069D-04,0.3403D-04, - &0.3770D-04,0.4178D-04,0.4629D-04,0.5128D-04,0.5678D-04,0.6286D-04, - &0.6959D-04,0.7699D-04,0.8517D-04,0.9415D-04,0.1040D-03,0.1149D-03, - &0.1269D-03,0.1400D-03,0.1543D-03,0.1699D-03,0.1870D-03,0.2055D-03, - &0.2256D-03,0.2475D-03,0.2709D-03,0.2962D-03,0.3232D-03,0.3518D-03, - &0.3821D-03,0.4137D-03,0.4468D-03,0.4807D-03,0.5153D-03,0.5499D-03, - &0.5835D-03,0.6162D-03,0.6464D-03,0.6732D-03,0.6954D-03,0.7116D-03, - &0.7207D-03,0.7212D-03,0.7125D-03,0.6928D-03,0.6625D-03,0.6217D-03, - &0.5720D-03,0.5149D-03,0.4540D-03,0.3931D-03,0.3368D-03,0.2895D-03, - &0.2557D-03,0.2384D-03,0.2393D-03,0.2595D-03,0.2999D-03,0.3616D-03, - &0.3697D-03,0.3780D-03,0.3863D-03,0.3948D-03,0.4033D-03,0.4119D-03, - &0.4205D-03,0.4291D-03,0.4376D-03,0.4459D-03,0.4541D-03,0.4619D-03, - &0.4694D-03,0.4763D-03,0.4825D-03,0.4878D-03,0.4917D-03,0.4938D-03, - &0.4932D-03,0.4886D-03,0.5200D-03,0.3453D-03/ - DATA (XPV(I,1,3),I=1,100)/ - &0.2308D-04,0.2495D-04,0.2699D-04,0.2918D-04,0.3156D-04,0.3413D-04, - &0.3690D-04,0.3990D-04,0.4315D-04,0.4666D-04,0.5045D-04,0.5454D-04, - &0.5898D-04,0.6376D-04,0.6894D-04,0.7454D-04,0.8058D-04,0.8711D-04, - &0.9416D-04,0.1018D-03,0.1100D-03,0.1189D-03,0.1284D-03,0.1388D-03, - &0.1499D-03,0.1620D-03,0.1749D-03,0.1889D-03,0.2039D-03,0.2201D-03, - &0.2376D-03,0.2562D-03,0.2763D-03,0.2979D-03,0.3210D-03,0.3457D-03, - &0.3721D-03,0.4003D-03,0.4303D-03,0.4623D-03,0.4961D-03,0.5318D-03, - &0.5697D-03,0.6100D-03,0.6513D-03,0.6947D-03,0.7400D-03,0.7864D-03, - &0.8337D-03,0.8816D-03,0.9298D-03,0.9773D-03,0.1024D-02,0.1068D-02, - &0.1107D-02,0.1144D-02,0.1174D-02,0.1196D-02,0.1210D-02,0.1213D-02, - &0.1203D-02,0.1180D-02,0.1144D-02,0.1091D-02,0.1024D-02,0.9420D-03, - &0.8495D-03,0.7483D-03,0.6436D-03,0.5407D-03,0.4459D-03,0.3649D-03, - &0.3034D-03,0.2653D-03,0.2522D-03,0.2644D-03,0.3011D-03,0.3617D-03, - &0.3698D-03,0.3781D-03,0.3864D-03,0.3948D-03,0.4034D-03,0.4119D-03, - &0.4205D-03,0.4291D-03,0.4376D-03,0.4459D-03,0.4541D-03,0.4619D-03, - &0.4694D-03,0.4763D-03,0.4825D-03,0.4878D-03,0.4917D-03,0.4938D-03, - &0.4932D-03,0.4886D-03,0.5200D-03,0.3453D-03/ - DATA (XPV(I,1,4),I=1,100)/ - &0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00, - &0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00, - &0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00, - &0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00, - &0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00, - &0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00, - &0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00, - &0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00, - &0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00, - &0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00, - &0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00, - &0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00, - &0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00, - &0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00, - &0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00, - &0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00, - &0.0000D+00,0.0000D+00,0.0000D+00,0.0000D+00/ - DATA (XPV(I,2,0),I=1,100)/ - &0.1356D+00,0.1323D+00,0.1291D+00,0.1259D+00,0.1228D+00,0.1197D+00, - &0.1167D+00,0.1138D+00,0.1109D+00,0.1080D+00,0.1053D+00,0.1026D+00, - &0.9987D-01,0.9730D-01,0.9474D-01,0.9219D-01,0.8977D-01,0.8736D-01, - &0.8497D-01,0.8269D-01,0.8043D-01,0.7816D-01,0.7603D-01,0.7390D-01, - &0.7178D-01,0.6977D-01,0.6777D-01,0.6577D-01,0.6388D-01,0.6200D-01, - &0.6014D-01,0.5833D-01,0.5657D-01,0.5483D-01,0.5311D-01,0.5146D-01, - &0.4983D-01,0.4821D-01,0.4664D-01,0.4512D-01,0.4362D-01,0.4214D-01, - &0.4069D-01,0.3940D-01,0.3797D-01,0.3660D-01,0.3532D-01,0.3404D-01, - &0.3275D-01,0.3151D-01,0.3030D-01,0.2912D-01,0.2796D-01,0.2684D-01, - &0.2569D-01,0.2463D-01,0.2359D-01,0.2257D-01,0.2160D-01,0.2066D-01, - &0.1976D-01,0.1891D-01,0.1812D-01,0.1738D-01,0.1671D-01,0.1612D-01, - &0.1563D-01,0.1526D-01,0.1503D-01,0.1498D-01,0.1516D-01,0.1561D-01, - &0.1641D-01,0.1763D-01,0.1929D-01,0.2127D-01,0.2302D-01,0.2306D-01, - &0.2284D-01,0.2255D-01,0.2220D-01,0.2178D-01,0.2128D-01,0.2071D-01, - &0.2004D-01,0.1930D-01,0.1846D-01,0.1753D-01,0.1651D-01,0.1539D-01, - &0.1417D-01,0.1285D-01,0.1144D-01,0.9945D-02,0.8364D-02,0.6719D-02, - &0.5030D-02,0.3305D-02,0.1711D-02,0.2728D-03/ - DATA (XPV(I,2,1),I=1,100)/ - &0.1580D-02,0.1552D-02,0.1523D-02,0.1495D-02,0.1467D-02,0.1440D-02, - &0.1413D-02,0.1387D-02,0.1362D-02,0.1336D-02,0.1312D-02,0.1288D-02, - &0.1264D-02,0.1241D-02,0.1219D-02,0.1197D-02,0.1176D-02,0.1155D-02, - &0.1135D-02,0.1117D-02,0.1098D-02,0.1080D-02,0.1064D-02,0.1049D-02, - &0.1034D-02,0.1020D-02,0.1008D-02,0.9958D-03,0.9857D-03,0.9769D-03, - &0.9690D-03,0.9629D-03,0.9585D-03,0.9556D-03,0.9542D-03,0.9553D-03, - &0.9582D-03,0.9630D-03,0.9702D-03,0.9801D-03,0.9924D-03,0.1007D-02, - &0.1025D-02,0.1048D-02,0.1070D-02,0.1097D-02,0.1127D-02,0.1160D-02, - &0.1196D-02,0.1235D-02,0.1276D-02,0.1320D-02,0.1366D-02,0.1414D-02, - &0.1462D-02,0.1511D-02,0.1560D-02,0.1607D-02,0.1653D-02,0.1695D-02, - &0.1734D-02,0.1768D-02,0.1797D-02,0.1821D-02,0.1840D-02,0.1856D-02, - &0.1870D-02,0.1884D-02,0.1902D-02,0.1930D-02,0.1971D-02,0.2031D-02, - &0.2118D-02,0.2236D-02,0.2391D-02,0.2582D-02,0.2803D-02,0.3029D-02, - &0.3052D-02,0.3073D-02,0.3094D-02,0.3113D-02,0.3130D-02,0.3145D-02, - &0.3158D-02,0.3169D-02,0.3176D-02,0.3181D-02,0.3181D-02,0.3178D-02, - &0.3168D-02,0.3153D-02,0.3129D-02,0.3095D-02,0.3049D-02,0.2984D-02, - &0.2897D-02,0.2785D-02,0.2548D-02,0.2093D-02/ - DATA (XPV(I,2,2),I=1,100)/ - &0.1579D-02,0.1550D-02,0.1522D-02,0.1493D-02,0.1465D-02,0.1438D-02, - &0.1410D-02,0.1384D-02,0.1358D-02,0.1332D-02,0.1308D-02,0.1283D-02, - &0.1259D-02,0.1236D-02,0.1213D-02,0.1190D-02,0.1168D-02,0.1147D-02, - &0.1126D-02,0.1107D-02,0.1087D-02,0.1068D-02,0.1051D-02,0.1033D-02, - &0.1017D-02,0.1001D-02,0.9867D-03,0.9726D-03,0.9600D-03,0.9484D-03, - &0.9374D-03,0.9279D-03,0.9197D-03,0.9125D-03,0.9065D-03,0.9024D-03, - &0.8996D-03,0.8981D-03,0.8984D-03,0.9006D-03,0.9045D-03,0.9099D-03, - &0.9175D-03,0.9288D-03,0.9391D-03,0.9521D-03,0.9677D-03,0.9844D-03, - &0.1002D-02,0.1021D-02,0.1041D-02,0.1062D-02,0.1083D-02,0.1104D-02, - &0.1122D-02,0.1140D-02,0.1155D-02,0.1167D-02,0.1174D-02,0.1176D-02, - &0.1172D-02,0.1162D-02,0.1145D-02,0.1122D-02,0.1092D-02,0.1058D-02, - &0.1021D-02,0.9837D-03,0.9493D-03,0.9211D-03,0.9026D-03,0.8966D-03, - &0.9045D-03,0.9256D-03,0.9554D-03,0.9845D-03,0.9981D-03,0.9751D-03, - &0.9694D-03,0.9631D-03,0.9561D-03,0.9485D-03,0.9402D-03,0.9313D-03, - &0.9217D-03,0.9114D-03,0.9006D-03,0.8890D-03,0.8766D-03,0.8634D-03, - &0.8493D-03,0.8341D-03,0.8175D-03,0.7990D-03,0.7783D-03,0.7539D-03, - &0.7241D-03,0.6938D-03,0.6252D-03,0.4746D-03/ - DATA (XPV(I,2,3),I=1,100)/ - &0.1607D-02,0.1581D-02,0.1554D-02,0.1528D-02,0.1503D-02,0.1478D-02, - &0.1454D-02,0.1431D-02,0.1408D-02,0.1386D-02,0.1365D-02,0.1344D-02, - &0.1324D-02,0.1306D-02,0.1288D-02,0.1270D-02,0.1254D-02,0.1239D-02, - &0.1224D-02,0.1211D-02,0.1198D-02,0.1186D-02,0.1177D-02,0.1168D-02, - &0.1160D-02,0.1154D-02,0.1149D-02,0.1145D-02,0.1143D-02,0.1142D-02, - &0.1143D-02,0.1145D-02,0.1150D-02,0.1156D-02,0.1163D-02,0.1173D-02, - &0.1185D-02,0.1198D-02,0.1214D-02,0.1231D-02,0.1250D-02,0.1271D-02, - &0.1294D-02,0.1321D-02,0.1346D-02,0.1373D-02,0.1403D-02,0.1432D-02, - &0.1461D-02,0.1490D-02,0.1518D-02,0.1545D-02,0.1570D-02,0.1592D-02, - &0.1607D-02,0.1620D-02,0.1626D-02,0.1625D-02,0.1616D-02,0.1598D-02, - &0.1569D-02,0.1531D-02,0.1485D-02,0.1427D-02,0.1362D-02,0.1290D-02, - &0.1216D-02,0.1143D-02,0.1074D-02,0.1015D-02,0.9689D-03,0.9403D-03, - &0.9308D-03,0.9395D-03,0.9616D-03,0.9867D-03,0.9986D-03,0.9752D-03, - &0.9695D-03,0.9631D-03,0.9561D-03,0.9485D-03,0.9402D-03,0.9313D-03, - &0.9217D-03,0.9114D-03,0.9006D-03,0.8890D-03,0.8766D-03,0.8634D-03, - &0.8493D-03,0.8341D-03,0.8175D-03,0.7990D-03,0.7783D-03,0.7539D-03, - &0.7241D-03,0.6938D-03,0.6252D-03,0.4746D-03/ - DATA (XPV(I,2,4),I=1,100)/ - &0.1415D-02,0.1387D-02,0.1359D-02,0.1331D-02,0.1305D-02,0.1278D-02, - &0.1251D-02,0.1225D-02,0.1199D-02,0.1173D-02,0.1149D-02,0.1124D-02, - &0.1099D-02,0.1076D-02,0.1052D-02,0.1028D-02,0.1006D-02,0.9831D-03, - &0.9605D-03,0.9389D-03,0.9174D-03,0.8956D-03,0.8752D-03,0.8546D-03, - &0.8341D-03,0.8146D-03,0.7951D-03,0.7757D-03,0.7572D-03,0.7389D-03, - &0.7206D-03,0.7031D-03,0.6861D-03,0.6692D-03,0.6527D-03,0.6371D-03, - &0.6218D-03,0.6068D-03,0.5925D-03,0.5789D-03,0.5660D-03,0.5535D-03, - &0.5418D-03,0.5324D-03,0.5217D-03,0.5124D-03,0.5048D-03,0.4977D-03, - &0.4913D-03,0.4863D-03,0.4825D-03,0.4799D-03,0.4788D-03,0.4791D-03, - &0.4802D-03,0.4834D-03,0.4882D-03,0.4945D-03,0.5024D-03,0.5120D-03, - &0.5231D-03,0.5359D-03,0.5503D-03,0.5660D-03,0.5831D-03,0.6017D-03, - &0.6218D-03,0.6436D-03,0.6672D-03,0.6934D-03,0.7230D-03,0.7576D-03, - &0.7992D-03,0.8507D-03,0.9158D-03,0.9997D-03,0.1110D-02,0.1257D-02, - &0.1276D-02,0.1296D-02,0.1316D-02,0.1336D-02,0.1357D-02,0.1378D-02, - &0.1400D-02,0.1421D-02,0.1443D-02,0.1465D-02,0.1488D-02,0.1509D-02, - &0.1531D-02,0.1551D-02,0.1571D-02,0.1589D-02,0.1603D-02,0.1614D-02, - &0.1612D-02,0.1626D-02,0.1559D-02,0.1269D-02/ - DATA (XPV(I,3,0),I=1,100)/ - &0.3292D+00,0.3189D+00,0.3087D+00,0.2986D+00,0.2890D+00,0.2796D+00, - &0.2703D+00,0.2615D+00,0.2529D+00,0.2443D+00,0.2363D+00,0.2283D+00, - &0.2205D+00,0.2131D+00,0.2058D+00,0.1986D+00,0.1918D+00,0.1851D+00, - &0.1785D+00,0.1722D+00,0.1661D+00,0.1600D+00,0.1544D+00,0.1487D+00, - &0.1432D+00,0.1380D+00,0.1329D+00,0.1278D+00,0.1231D+00,0.1184D+00, - &0.1138D+00,0.1094D+00,0.1051D+00,0.1010D+00,0.9689D-01,0.9302D-01, - &0.8924D-01,0.8553D-01,0.8196D-01,0.7853D-01,0.7521D-01,0.7196D-01, - &0.6881D-01,0.6600D-01,0.6297D-01,0.6010D-01,0.5743D-01,0.5479D-01, - &0.5218D-01,0.4969D-01,0.4729D-01,0.4498D-01,0.4274D-01,0.4060D-01, - &0.3844D-01,0.3644D-01,0.3453D-01,0.3267D-01,0.3091D-01,0.2922D-01, - &0.2762D-01,0.2611D-01,0.2471D-01,0.2338D-01,0.2216D-01,0.2105D-01, - &0.2007D-01,0.1922D-01,0.1851D-01,0.1795D-01,0.1755D-01,0.1732D-01, - &0.1724D-01,0.1727D-01,0.1727D-01,0.1699D-01,0.1590D-01,0.1312D-01, - &0.1266D-01,0.1217D-01,0.1165D-01,0.1110D-01,0.1053D-01,0.9921D-02, - &0.9286D-02,0.8628D-02,0.7952D-02,0.7250D-02,0.6536D-02,0.5804D-02, - &0.5069D-02,0.4328D-02,0.3596D-02,0.2876D-02,0.2183D-02,0.1530D-02, - &0.9314D-03,0.4198D-03,0.1184D-03,0.0000D+00/ - DATA (XPV(I,3,1),I=1,100)/ - &0.5070D-02,0.4938D-02,0.4806D-02,0.4675D-02,0.4552D-02,0.4429D-02, - &0.4308D-02,0.4193D-02,0.4079D-02,0.3966D-02,0.3860D-02,0.3755D-02, - &0.3650D-02,0.3552D-02,0.3454D-02,0.3358D-02,0.3268D-02,0.3178D-02, - &0.3090D-02,0.3008D-02,0.2926D-02,0.2846D-02,0.2771D-02,0.2698D-02, - &0.2626D-02,0.2559D-02,0.2494D-02,0.2430D-02,0.2371D-02,0.2315D-02, - &0.2261D-02,0.2210D-02,0.2163D-02,0.2118D-02,0.2077D-02,0.2040D-02, - &0.2006D-02,0.1975D-02,0.1948D-02,0.1926D-02,0.1907D-02,0.1892D-02, - &0.1882D-02,0.1880D-02,0.1876D-02,0.1879D-02,0.1887D-02,0.1899D-02, - &0.1914D-02,0.1934D-02,0.1958D-02,0.1986D-02,0.2017D-02,0.2051D-02, - &0.2085D-02,0.2123D-02,0.2163D-02,0.2202D-02,0.2240D-02,0.2278D-02, - &0.2314D-02,0.2347D-02,0.2379D-02,0.2407D-02,0.2433D-02,0.2459D-02, - &0.2485D-02,0.2515D-02,0.2551D-02,0.2597D-02,0.2657D-02,0.2738D-02, - &0.2843D-02,0.2978D-02,0.3148D-02,0.3354D-02,0.3592D-02,0.3839D-02, - &0.3864D-02,0.3888D-02,0.3911D-02,0.3931D-02,0.3950D-02,0.3967D-02, - &0.3980D-02,0.3991D-02,0.3999D-02,0.4002D-02,0.4000D-02,0.3993D-02, - &0.3978D-02,0.3956D-02,0.3922D-02,0.3876D-02,0.3812D-02,0.3724D-02, - &0.3606D-02,0.3465D-02,0.3134D-02,0.2451D-02/ - DATA (XPV(I,3,2),I=1,100)/ - &0.5067D-02,0.4935D-02,0.4803D-02,0.4672D-02,0.4548D-02,0.4425D-02, - &0.4303D-02,0.4188D-02,0.4074D-02,0.3960D-02,0.3853D-02,0.3747D-02, - &0.3642D-02,0.3543D-02,0.3445D-02,0.3347D-02,0.3256D-02,0.3165D-02, - &0.3075D-02,0.2991D-02,0.2908D-02,0.2826D-02,0.2749D-02,0.2673D-02, - &0.2599D-02,0.2529D-02,0.2461D-02,0.2393D-02,0.2331D-02,0.2270D-02, - &0.2211D-02,0.2155D-02,0.2102D-02,0.2052D-02,0.2003D-02,0.1958D-02, - &0.1916D-02,0.1876D-02,0.1839D-02,0.1805D-02,0.1774D-02,0.1746D-02, - &0.1720D-02,0.1702D-02,0.1681D-02,0.1664D-02,0.1651D-02,0.1640D-02, - &0.1629D-02,0.1622D-02,0.1616D-02,0.1612D-02,0.1608D-02,0.1605D-02, - &0.1598D-02,0.1593D-02,0.1586D-02,0.1577D-02,0.1564D-02,0.1547D-02, - &0.1525D-02,0.1499D-02,0.1470D-02,0.1434D-02,0.1396D-02,0.1355D-02, - &0.1314D-02,0.1274D-02,0.1240D-02,0.1211D-02,0.1192D-02,0.1184D-02, - &0.1185D-02,0.1194D-02,0.1206D-02,0.1211D-02,0.1198D-02,0.1157D-02, - &0.1150D-02,0.1143D-02,0.1135D-02,0.1127D-02,0.1119D-02,0.1110D-02, - &0.1101D-02,0.1091D-02,0.1081D-02,0.1070D-02,0.1059D-02,0.1046D-02, - &0.1033D-02,0.1018D-02,0.1001D-02,0.9817D-03,0.9590D-03,0.9316D-03, - &0.8950D-03,0.8607D-03,0.7722D-03,0.5564D-03/ - DATA (XPV(I,3,3),I=1,100)/ - &0.5100D-02,0.4971D-02,0.4841D-02,0.4713D-02,0.4592D-02,0.4472D-02, - &0.4353D-02,0.4242D-02,0.4131D-02,0.4022D-02,0.3919D-02,0.3817D-02, - &0.3716D-02,0.3622D-02,0.3529D-02,0.3438D-02,0.3352D-02,0.3268D-02, - &0.3185D-02,0.3108D-02,0.3032D-02,0.2958D-02,0.2889D-02,0.2822D-02, - &0.2757D-02,0.2696D-02,0.2638D-02,0.2582D-02,0.2530D-02,0.2481D-02, - &0.2433D-02,0.2390D-02,0.2350D-02,0.2312D-02,0.2277D-02,0.2246D-02, - &0.2218D-02,0.2192D-02,0.2169D-02,0.2150D-02,0.2133D-02,0.2119D-02, - &0.2108D-02,0.2104D-02,0.2095D-02,0.2090D-02,0.2089D-02,0.2088D-02, - &0.2086D-02,0.2085D-02,0.2084D-02,0.2082D-02,0.2079D-02,0.2073D-02, - &0.2061D-02,0.2047D-02,0.2028D-02,0.2003D-02,0.1971D-02,0.1931D-02, - &0.1884D-02,0.1830D-02,0.1769D-02,0.1701D-02,0.1628D-02,0.1553D-02, - &0.1478D-02,0.1406D-02,0.1341D-02,0.1286D-02,0.1244D-02,0.1217D-02, - &0.1205D-02,0.1204D-02,0.1210D-02,0.1212D-02,0.1199D-02,0.1157D-02, - &0.1150D-02,0.1143D-02,0.1135D-02,0.1127D-02,0.1119D-02,0.1110D-02, - &0.1101D-02,0.1091D-02,0.1081D-02,0.1070D-02,0.1059D-02,0.1046D-02, - &0.1033D-02,0.1018D-02,0.1001D-02,0.9817D-03,0.9590D-03,0.9316D-03, - &0.8950D-03,0.8607D-03,0.7722D-03,0.5564D-03/ - DATA (XPV(I,3,4),I=1,100)/ - &0.4904D-02,0.4772D-02,0.4641D-02,0.4511D-02,0.4387D-02,0.4264D-02, - &0.4143D-02,0.4028D-02,0.3914D-02,0.3800D-02,0.3692D-02,0.3586D-02, - &0.3480D-02,0.3380D-02,0.3281D-02,0.3182D-02,0.3089D-02,0.2997D-02, - &0.2905D-02,0.2819D-02,0.2733D-02,0.2648D-02,0.2568D-02,0.2488D-02, - &0.2409D-02,0.2335D-02,0.2261D-02,0.2189D-02,0.2120D-02,0.2052D-02, - &0.1986D-02,0.1922D-02,0.1860D-02,0.1800D-02,0.1741D-02,0.1686D-02, - &0.1632D-02,0.1579D-02,0.1529D-02,0.1481D-02,0.1435D-02,0.1391D-02, - &0.1350D-02,0.1315D-02,0.1276D-02,0.1242D-02,0.1212D-02,0.1184D-02, - &0.1157D-02,0.1135D-02,0.1115D-02,0.1098D-02,0.1085D-02,0.1075D-02, - &0.1067D-02,0.1064D-02,0.1064D-02,0.1068D-02,0.1076D-02,0.1087D-02, - &0.1101D-02,0.1119D-02,0.1141D-02,0.1165D-02,0.1193D-02,0.1223D-02, - &0.1256D-02,0.1292D-02,0.1332D-02,0.1375D-02,0.1424D-02,0.1482D-02, - &0.1551D-02,0.1637D-02,0.1748D-02,0.1896D-02,0.2095D-02,0.2365D-02, - &0.2400D-02,0.2434D-02,0.2470D-02,0.2506D-02,0.2542D-02,0.2578D-02, - &0.2614D-02,0.2649D-02,0.2685D-02,0.2718D-02,0.2752D-02,0.2783D-02, - &0.2812D-02,0.2837D-02,0.2858D-02,0.2872D-02,0.2878D-02,0.2872D-02, - &0.2841D-02,0.2821D-02,0.2656D-02,0.2138D-02/ - DATA (XPV(I,4,0),I=1,100)/ - &0.4299D+00,0.4154D+00,0.4011D+00,0.3870D+00,0.3736D+00,0.3605D+00, - &0.3476D+00,0.3355D+00,0.3236D+00,0.3118D+00,0.3007D+00,0.2898D+00, - &0.2791D+00,0.2690D+00,0.2591D+00,0.2494D+00,0.2402D+00,0.2312D+00, - &0.2223D+00,0.2140D+00,0.2059D+00,0.1978D+00,0.1902D+00,0.1828D+00, - &0.1755D+00,0.1687D+00,0.1619D+00,0.1553D+00,0.1491D+00,0.1430D+00, - &0.1371D+00,0.1314D+00,0.1259D+00,0.1206D+00,0.1154D+00,0.1104D+00, - &0.1056D+00,0.1009D+00,0.9641D-01,0.9210D-01,0.8793D-01,0.8386D-01, - &0.7994D-01,0.7643D-01,0.7269D-01,0.6916D-01,0.6587D-01,0.6264D-01, - &0.5946D-01,0.5644D-01,0.5353D-01,0.5074D-01,0.4805D-01,0.4548D-01, - &0.4290D-01,0.4053D-01,0.3826D-01,0.3607D-01,0.3399D-01,0.3201D-01, - &0.3012D-01,0.2836D-01,0.2672D-01,0.2516D-01,0.2372D-01,0.2241D-01, - &0.2123D-01,0.2018D-01,0.1927D-01,0.1850D-01,0.1787D-01,0.1737D-01, - &0.1696D-01,0.1658D-01,0.1608D-01,0.1522D-01,0.1354D-01,0.1041D-01, - &0.9954D-02,0.9473D-02,0.8976D-02,0.8461D-02,0.7931D-02,0.7386D-02, - &0.6825D-02,0.6255D-02,0.5681D-02,0.5098D-02,0.4516D-02,0.3934D-02, - &0.3362D-02,0.2799D-02,0.2258D-02,0.1742D-02,0.1262D-02,0.8280D-03, - &0.4482D-03,0.1620D-03,0.2992D-04,0.0000D+00/ - DATA (XPV(I,4,1),I=1,100)/ - &0.7160D-02,0.6955D-02,0.6751D-02,0.6550D-02,0.6360D-02,0.6172D-02, - &0.5986D-02,0.5810D-02,0.5637D-02,0.5466D-02,0.5304D-02,0.5145D-02, - &0.4987D-02,0.4839D-02,0.4693D-02,0.4548D-02,0.4413D-02,0.4279D-02, - &0.4148D-02,0.4024D-02,0.3903D-02,0.3783D-02,0.3672D-02,0.3563D-02, - &0.3456D-02,0.3356D-02,0.3259D-02,0.3163D-02,0.3075D-02,0.2990D-02, - &0.2908D-02,0.2831D-02,0.2758D-02,0.2689D-02,0.2624D-02,0.2565D-02, - &0.2509D-02,0.2458D-02,0.2411D-02,0.2370D-02,0.2334D-02,0.2302D-02, - &0.2275D-02,0.2259D-02,0.2241D-02,0.2229D-02,0.2226D-02,0.2226D-02, - &0.2229D-02,0.2239D-02,0.2253D-02,0.2272D-02,0.2295D-02,0.2322D-02, - &0.2348D-02,0.2381D-02,0.2415D-02,0.2449D-02,0.2485D-02,0.2519D-02, - &0.2554D-02,0.2586D-02,0.2618D-02,0.2648D-02,0.2676D-02,0.2705D-02, - &0.2736D-02,0.2770D-02,0.2812D-02,0.2864D-02,0.2931D-02,0.3017D-02, - &0.3129D-02,0.3270D-02,0.3447D-02,0.3662D-02,0.3913D-02,0.4178D-02, - &0.4205D-02,0.4231D-02,0.4256D-02,0.4279D-02,0.4299D-02,0.4318D-02, - &0.4333D-02,0.4345D-02,0.4353D-02,0.4357D-02,0.4355D-02,0.4348D-02, - &0.4332D-02,0.4307D-02,0.4271D-02,0.4220D-02,0.4151D-02,0.4055D-02, - &0.3924D-02,0.3774D-02,0.3409D-02,0.2626D-02/ - DATA (XPV(I,4,2),I=1,100)/ - &0.7157D-02,0.6952D-02,0.6748D-02,0.6546D-02,0.6356D-02,0.6167D-02, - &0.5981D-02,0.5805D-02,0.5631D-02,0.5458D-02,0.5296D-02,0.5136D-02, - &0.4978D-02,0.4828D-02,0.4681D-02,0.4535D-02,0.4398D-02,0.4263D-02, - &0.4130D-02,0.4005D-02,0.3882D-02,0.3760D-02,0.3646D-02,0.3534D-02, - &0.3424D-02,0.3321D-02,0.3220D-02,0.3120D-02,0.3028D-02,0.2938D-02, - &0.2850D-02,0.2767D-02,0.2688D-02,0.2612D-02,0.2538D-02,0.2470D-02, - &0.2405D-02,0.2343D-02,0.2285D-02,0.2231D-02,0.2181D-02,0.2133D-02, - &0.2090D-02,0.2055D-02,0.2017D-02,0.1983D-02,0.1956D-02,0.1929D-02, - &0.1905D-02,0.1883D-02,0.1864D-02,0.1846D-02,0.1830D-02,0.1815D-02, - &0.1797D-02,0.1781D-02,0.1764D-02,0.1744D-02,0.1722D-02,0.1696D-02, - &0.1666D-02,0.1633D-02,0.1597D-02,0.1556D-02,0.1513D-02,0.1468D-02, - &0.1425D-02,0.1383D-02,0.1346D-02,0.1316D-02,0.1295D-02,0.1283D-02, - &0.1281D-02,0.1284D-02,0.1288D-02,0.1286D-02,0.1269D-02,0.1228D-02, - &0.1222D-02,0.1215D-02,0.1208D-02,0.1201D-02,0.1194D-02,0.1186D-02, - &0.1177D-02,0.1169D-02,0.1159D-02,0.1149D-02,0.1139D-02,0.1127D-02, - &0.1114D-02,0.1100D-02,0.1083D-02,0.1063D-02,0.1040D-02,0.1012D-02, - &0.9728D-03,0.9358D-03,0.8403D-03,0.6078D-03/ - DATA (XPV(I,4,3),I=1,100)/ - &0.7192D-02,0.6990D-02,0.6788D-02,0.6589D-02,0.6402D-02,0.6216D-02, - &0.6033D-02,0.5861D-02,0.5691D-02,0.5523D-02,0.5365D-02,0.5209D-02, - &0.5055D-02,0.4912D-02,0.4770D-02,0.4630D-02,0.4499D-02,0.4370D-02, - &0.4244D-02,0.4126D-02,0.4011D-02,0.3896D-02,0.3791D-02,0.3688D-02, - &0.3587D-02,0.3494D-02,0.3403D-02,0.3314D-02,0.3233D-02,0.3154D-02, - &0.3078D-02,0.3008D-02,0.2941D-02,0.2878D-02,0.2818D-02,0.2764D-02, - &0.2713D-02,0.2664D-02,0.2620D-02,0.2581D-02,0.2544D-02,0.2510D-02, - &0.2480D-02,0.2460D-02,0.2433D-02,0.2411D-02,0.2394D-02,0.2377D-02, - &0.2359D-02,0.2343D-02,0.2328D-02,0.2312D-02,0.2295D-02,0.2276D-02, - &0.2251D-02,0.2225D-02,0.2195D-02,0.2158D-02,0.2116D-02,0.2067D-02, - &0.2012D-02,0.1950D-02,0.1883D-02,0.1810D-02,0.1733D-02,0.1655D-02, - &0.1578D-02,0.1505D-02,0.1440D-02,0.1385D-02,0.1342D-02,0.1314D-02, - &0.1298D-02,0.1293D-02,0.1292D-02,0.1288D-02,0.1269D-02,0.1228D-02, - &0.1222D-02,0.1215D-02,0.1208D-02,0.1201D-02,0.1194D-02,0.1186D-02, - &0.1177D-02,0.1169D-02,0.1159D-02,0.1149D-02,0.1139D-02,0.1127D-02, - &0.1114D-02,0.1100D-02,0.1083D-02,0.1063D-02,0.1040D-02,0.1012D-02, - &0.9728D-03,0.9358D-03,0.8403D-03,0.6078D-03/ - DATA (XPV(I,4,4),I=1,100)/ - &0.6994D-02,0.6789D-02,0.6586D-02,0.6385D-02,0.6194D-02,0.6006D-02, - &0.5820D-02,0.5644D-02,0.5470D-02,0.5297D-02,0.5135D-02,0.4974D-02, - &0.4815D-02,0.4665D-02,0.4516D-02,0.4369D-02,0.4231D-02,0.4094D-02, - &0.3959D-02,0.3831D-02,0.3705D-02,0.3580D-02,0.3463D-02,0.3347D-02, - &0.3233D-02,0.3125D-02,0.3019D-02,0.2914D-02,0.2815D-02,0.2718D-02, - &0.2623D-02,0.2532D-02,0.2444D-02,0.2359D-02,0.2276D-02,0.2197D-02, - &0.2121D-02,0.2047D-02,0.1976D-02,0.1909D-02,0.1845D-02,0.1784D-02, - &0.1726D-02,0.1676D-02,0.1623D-02,0.1575D-02,0.1532D-02,0.1492D-02, - &0.1455D-02,0.1422D-02,0.1393D-02,0.1368D-02,0.1348D-02,0.1332D-02, - &0.1318D-02,0.1311D-02,0.1309D-02,0.1310D-02,0.1316D-02,0.1327D-02, - &0.1342D-02,0.1361D-02,0.1385D-02,0.1412D-02,0.1443D-02,0.1477D-02, - &0.1514D-02,0.1556D-02,0.1601D-02,0.1650D-02,0.1706D-02,0.1772D-02, - &0.1851D-02,0.1951D-02,0.2081D-02,0.2254D-02,0.2490D-02,0.2807D-02, - &0.2848D-02,0.2888D-02,0.2930D-02,0.2971D-02,0.3012D-02,0.3053D-02, - &0.3094D-02,0.3133D-02,0.3173D-02,0.3210D-02,0.3246D-02,0.3278D-02, - &0.3308D-02,0.3332D-02,0.3351D-02,0.3361D-02,0.3360D-02,0.3343D-02, - &0.3298D-02,0.3256D-02,0.3045D-02,0.2439D-02/ - DATA (XPV(I,5,0),I=1,100)/ - &0.8093D+00,0.7773D+00,0.7460D+00,0.7153D+00,0.6865D+00,0.6584D+00, - &0.6309D+00,0.6051D+00,0.5800D+00,0.5553D+00,0.5323D+00,0.5098D+00, - &0.4878D+00,0.4672D+00,0.4471D+00,0.4274D+00,0.4091D+00,0.3911D+00, - &0.3737D+00,0.3573D+00,0.3414D+00,0.3257D+00,0.3112D+00,0.2970D+00, - &0.2832D+00,0.2703D+00,0.2577D+00,0.2454D+00,0.2339D+00,0.2228D+00, - &0.2120D+00,0.2017D+00,0.1919D+00,0.1824D+00,0.1732D+00,0.1646D+00, - &0.1562D+00,0.1481D+00,0.1404D+00,0.1331D+00,0.1261D+00,0.1193D+00, - &0.1128D+00,0.1070D+00,0.1010D+00,0.9529D-01,0.9002D-01,0.8489D-01, - &0.7989D-01,0.7519D-01,0.7070D-01,0.6643D-01,0.6235D-01,0.5848D-01, - &0.5466D-01,0.5115D-01,0.4783D-01,0.4465D-01,0.4164D-01,0.3880D-01, - &0.3612D-01,0.3361D-01,0.3128D-01,0.2906D-01,0.2701D-01,0.2510D-01, - &0.2335D-01,0.2174D-01,0.2025D-01,0.1888D-01,0.1761D-01,0.1640D-01, - &0.1519D-01,0.1391D-01,0.1244D-01,0.1063D-01,0.8288D-02,0.5319D-02, - &0.4959D-02,0.4600D-02,0.4241D-02,0.3887D-02,0.3536D-02,0.3192D-02, - &0.2851D-02,0.2522D-02,0.2202D-02,0.1896D-02,0.1603D-02,0.1327D-02, - &0.1069D-02,0.8328D-03,0.6188D-03,0.4316D-03,0.2725D-03,0.1444D-03, - &0.4859D-04,0.5429D-05,0.0000D+00,0.1955D-04/ - DATA (XPV(I,5,1),I=1,100)/ - &0.1593D-01,0.1538D-01,0.1484D-01,0.1431D-01,0.1382D-01,0.1333D-01, - &0.1285D-01,0.1239D-01,0.1195D-01,0.1151D-01,0.1110D-01,0.1070D-01, - &0.1031D-01,0.9936D-02,0.9572D-02,0.9216D-02,0.8882D-02,0.8554D-02, - &0.8234D-02,0.7934D-02,0.7641D-02,0.7352D-02,0.7084D-02,0.6821D-02, - &0.6565D-02,0.6326D-02,0.6094D-02,0.5867D-02,0.5655D-02,0.5452D-02, - &0.5254D-02,0.5067D-02,0.4891D-02,0.4722D-02,0.4560D-02,0.4411D-02, - &0.4269D-02,0.4134D-02,0.4008D-02,0.3894D-02,0.3787D-02,0.3688D-02, - &0.3598D-02,0.3527D-02,0.3450D-02,0.3386D-02,0.3335D-02,0.3289D-02, - &0.3249D-02,0.3219D-02,0.3197D-02,0.3182D-02,0.3175D-02,0.3175D-02, - &0.3176D-02,0.3186D-02,0.3202D-02,0.3221D-02,0.3244D-02,0.3270D-02, - &0.3298D-02,0.3328D-02,0.3361D-02,0.3394D-02,0.3429D-02,0.3468D-02, - &0.3511D-02,0.3560D-02,0.3617D-02,0.3686D-02,0.3770D-02,0.3875D-02, - &0.4005D-02,0.4169D-02,0.4375D-02,0.4632D-02,0.4943D-02,0.5288D-02, - &0.5325D-02,0.5361D-02,0.5394D-02,0.5426D-02,0.5455D-02,0.5481D-02, - &0.5503D-02,0.5521D-02,0.5534D-02,0.5542D-02,0.5542D-02,0.5535D-02, - &0.5517D-02,0.5487D-02,0.5443D-02,0.5379D-02,0.5292D-02,0.5171D-02, - &0.5002D-02,0.4819D-02,0.4353D-02,0.3292D-02/ - DATA (XPV(I,5,2),I=1,100)/ - &0.1593D-01,0.1538D-01,0.1484D-01,0.1431D-01,0.1381D-01,0.1332D-01, - &0.1284D-01,0.1238D-01,0.1194D-01,0.1150D-01,0.1109D-01,0.1069D-01, - &0.1029D-01,0.9919D-02,0.9554D-02,0.9196D-02,0.8860D-02,0.8530D-02, - &0.8207D-02,0.7904D-02,0.7608D-02,0.7315D-02,0.7045D-02,0.6777D-02, - &0.6517D-02,0.6273D-02,0.6035D-02,0.5802D-02,0.5584D-02,0.5373D-02, - &0.5168D-02,0.4973D-02,0.4787D-02,0.4607D-02,0.4434D-02,0.4272D-02, - &0.4116D-02,0.3966D-02,0.3825D-02,0.3692D-02,0.3565D-02,0.3445D-02, - &0.3331D-02,0.3234D-02,0.3130D-02,0.3035D-02,0.2951D-02,0.2869D-02, - &0.2790D-02,0.2718D-02,0.2650D-02,0.2586D-02,0.2526D-02,0.2469D-02, - &0.2409D-02,0.2356D-02,0.2303D-02,0.2249D-02,0.2195D-02,0.2140D-02, - &0.2084D-02,0.2027D-02,0.1970D-02,0.1911D-02,0.1852D-02,0.1794D-02, - &0.1739D-02,0.1688D-02,0.1643D-02,0.1604D-02,0.1574D-02,0.1551D-02, - &0.1534D-02,0.1523D-02,0.1512D-02,0.1500D-02,0.1483D-02,0.1462D-02, - &0.1459D-02,0.1456D-02,0.1453D-02,0.1450D-02,0.1446D-02,0.1442D-02, - &0.1438D-02,0.1433D-02,0.1427D-02,0.1421D-02,0.1413D-02,0.1404D-02, - &0.1393D-02,0.1380D-02,0.1364D-02,0.1343D-02,0.1318D-02,0.1285D-02, - &0.1239D-02,0.1192D-02,0.1073D-02,0.7970D-03/ - DATA (XPV(I,5,3),I=1,100)/ - &0.1597D-01,0.1542D-01,0.1488D-01,0.1436D-01,0.1386D-01,0.1337D-01, - &0.1290D-01,0.1245D-01,0.1201D-01,0.1157D-01,0.1117D-01,0.1077D-01, - &0.1038D-01,0.1001D-01,0.9654D-02,0.9302D-02,0.8972D-02,0.8649D-02, - &0.8334D-02,0.8038D-02,0.7750D-02,0.7466D-02,0.7204D-02,0.6946D-02, - &0.6696D-02,0.6462D-02,0.6234D-02,0.6012D-02,0.5805D-02,0.5606D-02, - &0.5412D-02,0.5230D-02,0.5056D-02,0.4889D-02,0.4729D-02,0.4580D-02, - &0.4438D-02,0.4301D-02,0.4173D-02,0.4053D-02,0.3939D-02,0.3831D-02, - &0.3729D-02,0.3644D-02,0.3549D-02,0.3463D-02,0.3387D-02,0.3312D-02, - &0.3238D-02,0.3168D-02,0.3101D-02,0.3036D-02,0.2971D-02,0.2907D-02, - &0.2838D-02,0.2771D-02,0.2702D-02,0.2630D-02,0.2555D-02,0.2476D-02, - &0.2393D-02,0.2308D-02,0.2221D-02,0.2130D-02,0.2040D-02,0.1951D-02, - &0.1867D-02,0.1788D-02,0.1718D-02,0.1659D-02,0.1610D-02,0.1574D-02, - &0.1547D-02,0.1529D-02,0.1515D-02,0.1501D-02,0.1484D-02,0.1462D-02, - &0.1459D-02,0.1456D-02,0.1453D-02,0.1450D-02,0.1446D-02,0.1442D-02, - &0.1438D-02,0.1433D-02,0.1427D-02,0.1421D-02,0.1413D-02,0.1404D-02, - &0.1393D-02,0.1380D-02,0.1364D-02,0.1343D-02,0.1318D-02,0.1285D-02, - &0.1239D-02,0.1192D-02,0.1073D-02,0.7970D-03/ - DATA (XPV(I,5,4),I=1,100)/ - &0.1576D-01,0.1522D-01,0.1468D-01,0.1415D-01,0.1365D-01,0.1316D-01, - &0.1268D-01,0.1222D-01,0.1178D-01,0.1134D-01,0.1093D-01,0.1052D-01, - &0.1013D-01,0.9753D-02,0.9387D-02,0.9027D-02,0.8689D-02,0.8357D-02, - &0.8032D-02,0.7727D-02,0.7428D-02,0.7132D-02,0.6858D-02,0.6586D-02, - &0.6323D-02,0.6074D-02,0.5831D-02,0.5593D-02,0.5369D-02,0.5152D-02, - &0.4939D-02,0.4738D-02,0.4544D-02,0.4357D-02,0.4175D-02,0.4005D-02, - &0.3840D-02,0.3681D-02,0.3530D-02,0.3388D-02,0.3253D-02,0.3123D-02, - &0.3000D-02,0.2895D-02,0.2783D-02,0.2682D-02,0.2593D-02,0.2508D-02, - &0.2428D-02,0.2357D-02,0.2294D-02,0.2239D-02,0.2192D-02,0.2153D-02, - &0.2118D-02,0.2095D-02,0.2079D-02,0.2071D-02,0.2071D-02,0.2078D-02, - &0.2093D-02,0.2115D-02,0.2144D-02,0.2178D-02,0.2219D-02,0.2264D-02, - &0.2316D-02,0.2372D-02,0.2434D-02,0.2502D-02,0.2580D-02,0.2672D-02, - &0.2784D-02,0.2928D-02,0.3119D-02,0.3377D-02,0.3729D-02,0.4189D-02, - &0.4246D-02,0.4303D-02,0.4359D-02,0.4415D-02,0.4470D-02,0.4524D-02, - &0.4576D-02,0.4626D-02,0.4674D-02,0.4717D-02,0.4757D-02,0.4790D-02, - &0.4817D-02,0.4835D-02,0.4841D-02,0.4833D-02,0.4805D-02,0.4749D-02, - &0.4653D-02,0.4545D-02,0.4183D-02,0.3280D-02/ - DATA (XPV(I,6,0),I=1,100)/ - &0.1231D+01,0.1178D+01,0.1126D+01,0.1075D+01,0.1027D+01,0.9810D+00, - &0.9360D+00,0.8939D+00,0.8530D+00,0.8132D+00,0.7760D+00,0.7400D+00, - &0.7048D+00,0.6721D+00,0.6402D+00,0.6093D+00,0.5805D+00,0.5525D+00, - &0.5253D+00,0.5000D+00,0.4755D+00,0.4515D+00,0.4294D+00,0.4078D+00, - &0.3869D+00,0.3675D+00,0.3487D+00,0.3304D+00,0.3134D+00,0.2970D+00, - &0.2811D+00,0.2662D+00,0.2519D+00,0.2382D+00,0.2250D+00,0.2127D+00, - &0.2008D+00,0.1894D+00,0.1786D+00,0.1684D+00,0.1587D+00,0.1493D+00, - &0.1404D+00,0.1325D+00,0.1242D+00,0.1166D+00,0.1095D+00,0.1026D+00, - &0.9603D-01,0.8984D-01,0.8397D-01,0.7840D-01,0.7313D-01,0.6816D-01, - &0.6329D-01,0.5884D-01,0.5463D-01,0.5064D-01,0.4689D-01,0.4336D-01, - &0.4003D-01,0.3692D-01,0.3405D-01,0.3131D-01,0.2878D-01,0.2641D-01, - &0.2422D-01,0.2217D-01,0.2026D-01,0.1847D-01,0.1676D-01,0.1509D-01, - &0.1343D-01,0.1172D-01,0.9883D-02,0.7845D-02,0.5581D-02,0.3172D-02, - &0.2910D-02,0.2656D-02,0.2408D-02,0.2169D-02,0.1937D-02,0.1717D-02, - &0.1503D-02,0.1304D-02,0.1115D-02,0.9399D-03,0.7768D-03,0.6289D-03, - &0.4947D-03,0.3769D-03,0.2741D-03,0.1885D-03,0.1190D-03,0.6665D-04, - &0.2993D-04,0.1309D-04,0.5951D-05,0.8951D-05/ - DATA (XPV(I,6,1),I=1,100)/ - &0.2693D-01,0.2590D-01,0.2489D-01,0.2390D-01,0.2298D-01,0.2207D-01, - &0.2118D-01,0.2035D-01,0.1954D-01,0.1874D-01,0.1800D-01,0.1728D-01, - &0.1656D-01,0.1590D-01,0.1525D-01,0.1462D-01,0.1402D-01,0.1344D-01, - &0.1288D-01,0.1235D-01,0.1184D-01,0.1134D-01,0.1087D-01,0.1041D-01, - &0.9974D-02,0.9562D-02,0.9162D-02,0.8773D-02,0.8412D-02,0.8064D-02, - &0.7726D-02,0.7409D-02,0.7109D-02,0.6821D-02,0.6545D-02,0.6290D-02, - &0.6047D-02,0.5816D-02,0.5600D-02,0.5401D-02,0.5215D-02,0.5039D-02, - &0.4878D-02,0.4745D-02,0.4605D-02,0.4483D-02,0.4379D-02,0.4284D-02, - &0.4198D-02,0.4126D-02,0.4065D-02,0.4016D-02,0.3978D-02,0.3950D-02, - &0.3926D-02,0.3916D-02,0.3914D-02,0.3919D-02,0.3932D-02,0.3950D-02, - &0.3974D-02,0.4003D-02,0.4038D-02,0.4077D-02,0.4120D-02,0.4169D-02, - &0.4224D-02,0.4287D-02,0.4360D-02,0.4445D-02,0.4547D-02,0.4671D-02, - &0.4824D-02,0.5016D-02,0.5261D-02,0.5573D-02,0.5961D-02,0.6401D-02, - &0.6449D-02,0.6495D-02,0.6539D-02,0.6580D-02,0.6619D-02,0.6653D-02, - &0.6683D-02,0.6708D-02,0.6727D-02,0.6738D-02,0.6742D-02,0.6735D-02, - &0.6716D-02,0.6682D-02,0.6630D-02,0.6554D-02,0.6450D-02,0.6305D-02, - &0.6100D-02,0.5879D-02,0.5316D-02,0.4016D-02/ - DATA (XPV(I,6,2),I=1,100)/ - &0.2692D-01,0.2589D-01,0.2488D-01,0.2389D-01,0.2297D-01,0.2206D-01, - &0.2117D-01,0.2034D-01,0.1953D-01,0.1873D-01,0.1798D-01,0.1726D-01, - &0.1654D-01,0.1588D-01,0.1522D-01,0.1459D-01,0.1399D-01,0.1341D-01, - &0.1284D-01,0.1231D-01,0.1180D-01,0.1129D-01,0.1082D-01,0.1036D-01, - &0.9909D-02,0.9490D-02,0.9083D-02,0.8686D-02,0.8316D-02,0.7959D-02, - &0.7611D-02,0.7283D-02,0.6970D-02,0.6668D-02,0.6378D-02,0.6106D-02, - &0.5845D-02,0.5595D-02,0.5358D-02,0.5135D-02,0.4923D-02,0.4720D-02, - &0.4529D-02,0.4363D-02,0.4187D-02,0.4026D-02,0.3880D-02,0.3739D-02, - &0.3603D-02,0.3478D-02,0.3360D-02,0.3248D-02,0.3143D-02,0.3044D-02, - &0.2944D-02,0.2853D-02,0.2766D-02,0.2680D-02,0.2597D-02,0.2515D-02, - &0.2435D-02,0.2356D-02,0.2280D-02,0.2204D-02,0.2130D-02,0.2060D-02, - &0.1995D-02,0.1934D-02,0.1881D-02,0.1834D-02,0.1795D-02,0.1764D-02, - &0.1739D-02,0.1720D-02,0.1706D-02,0.1698D-02,0.1697D-02,0.1707D-02, - &0.1708D-02,0.1709D-02,0.1711D-02,0.1711D-02,0.1712D-02,0.1712D-02, - &0.1712D-02,0.1710D-02,0.1708D-02,0.1704D-02,0.1700D-02,0.1692D-02, - &0.1683D-02,0.1670D-02,0.1653D-02,0.1631D-02,0.1603D-02,0.1564D-02, - &0.1512D-02,0.1455D-02,0.1312D-02,0.9886D-03/ - DATA (XPV(I,6,3),I=1,100)/ - &0.2696D-01,0.2594D-01,0.2493D-01,0.2395D-01,0.2302D-01,0.2212D-01, - &0.2124D-01,0.2041D-01,0.1960D-01,0.1881D-01,0.1807D-01,0.1735D-01, - &0.1664D-01,0.1598D-01,0.1533D-01,0.1470D-01,0.1411D-01,0.1354D-01, - &0.1298D-01,0.1246D-01,0.1195D-01,0.1145D-01,0.1099D-01,0.1054D-01, - &0.1010D-01,0.9691D-02,0.9294D-02,0.8909D-02,0.8550D-02,0.8204D-02, - &0.7868D-02,0.7552D-02,0.7251D-02,0.6962D-02,0.6684D-02,0.6425D-02, - &0.6177D-02,0.5939D-02,0.5714D-02,0.5503D-02,0.5303D-02,0.5111D-02, - &0.4930D-02,0.4774D-02,0.4606D-02,0.4452D-02,0.4312D-02,0.4176D-02, - &0.4042D-02,0.3918D-02,0.3798D-02,0.3683D-02,0.3571D-02,0.3464D-02, - &0.3351D-02,0.3245D-02,0.3141D-02,0.3035D-02,0.2930D-02,0.2823D-02, - &0.2716D-02,0.2609D-02,0.2504D-02,0.2398D-02,0.2295D-02,0.2196D-02, - &0.2104D-02,0.2019D-02,0.1944D-02,0.1879D-02,0.1825D-02,0.1782D-02, - &0.1749D-02,0.1725D-02,0.1708D-02,0.1698D-02,0.1697D-02,0.1707D-02, - &0.1708D-02,0.1709D-02,0.1711D-02,0.1711D-02,0.1712D-02,0.1712D-02, - &0.1712D-02,0.1710D-02,0.1708D-02,0.1704D-02,0.1700D-02,0.1692D-02, - &0.1683D-02,0.1670D-02,0.1653D-02,0.1631D-02,0.1603D-02,0.1564D-02, - &0.1512D-02,0.1455D-02,0.1312D-02,0.9886D-03/ - DATA (XPV(I,6,4),I=1,100)/ - &0.2676D-01,0.2573D-01,0.2472D-01,0.2373D-01,0.2280D-01,0.2189D-01, - &0.2101D-01,0.2018D-01,0.1936D-01,0.1857D-01,0.1782D-01,0.1709D-01, - &0.1638D-01,0.1571D-01,0.1506D-01,0.1442D-01,0.1382D-01,0.1324D-01, - &0.1267D-01,0.1213D-01,0.1161D-01,0.1110D-01,0.1063D-01,0.1016D-01, - &0.9714D-02,0.9291D-02,0.8880D-02,0.8479D-02,0.8104D-02,0.7741D-02, - &0.7388D-02,0.7054D-02,0.6735D-02,0.6427D-02,0.6131D-02,0.5854D-02, - &0.5587D-02,0.5331D-02,0.5088D-02,0.4860D-02,0.4644D-02,0.4438D-02, - &0.4244D-02,0.4076D-02,0.3901D-02,0.3742D-02,0.3601D-02,0.3468D-02, - &0.3343D-02,0.3232D-02,0.3133D-02,0.3046D-02,0.2971D-02,0.2908D-02, - &0.2852D-02,0.2812D-02,0.2784D-02,0.2766D-02,0.2760D-02,0.2764D-02, - &0.2779D-02,0.2803D-02,0.2838D-02,0.2881D-02,0.2931D-02,0.2989D-02, - &0.3054D-02,0.3126D-02,0.3205D-02,0.3293D-02,0.3394D-02,0.3513D-02, - &0.3660D-02,0.3850D-02,0.4103D-02,0.4446D-02,0.4907D-02,0.5494D-02, - &0.5564D-02,0.5634D-02,0.5703D-02,0.5770D-02,0.5836D-02,0.5899D-02, - &0.5960D-02,0.6016D-02,0.6069D-02,0.6115D-02,0.6155D-02,0.6187D-02, - &0.6208D-02,0.6216D-02,0.6209D-02,0.6180D-02,0.6125D-02,0.6033D-02, - &0.5886D-02,0.5722D-02,0.5226D-02,0.4038D-02/ - DATA (XPV(I,7,0),I=1,100)/ - &0.1677D+01,0.1599D+01,0.1523D+01,0.1449D+01,0.1381D+01,0.1314D+01, - &0.1249D+01,0.1189D+01,0.1131D+01,0.1074D+01,0.1022D+01,0.9709D+00, - &0.9215D+00,0.8757D+00,0.8313D+00,0.7884D+00,0.7484D+00,0.7098D+00, - &0.6725D+00,0.6378D+00,0.6043D+00,0.5717D+00,0.5418D+00,0.5126D+00, - &0.4847D+00,0.4586D+00,0.4335D+00,0.4092D+00,0.3867D+00,0.3651D+00, - &0.3443D+00,0.3247D+00,0.3062D+00,0.2884D+00,0.2714D+00,0.2555D+00, - &0.2403D+00,0.2257D+00,0.2120D+00,0.1991D+00,0.1868D+00,0.1751D+00, - &0.1640D+00,0.1541D+00,0.1439D+00,0.1345D+00,0.1258D+00,0.1174D+00, - &0.1094D+00,0.1019D+00,0.9482D-01,0.8815D-01,0.8185D-01,0.7594D-01, - &0.7018D-01,0.6493D-01,0.5999D-01,0.5532D-01,0.5095D-01,0.4685D-01, - &0.4299D-01,0.3941D-01,0.3609D-01,0.3294D-01,0.3001D-01,0.2728D-01, - &0.2475D-01,0.2237D-01,0.2014D-01,0.1804D-01,0.1603D-01,0.1408D-01, - &0.1216D-01,0.1023D-01,0.8245D-02,0.6190D-02,0.4106D-02,0.2133D-02, - &0.1935D-02,0.1745D-02,0.1564D-02,0.1393D-02,0.1230D-02,0.1078D-02, - &0.9340D-03,0.8018D-03,0.6796D-03,0.5685D-03,0.4677D-03,0.3782D-03, - &0.2992D-03,0.2312D-03,0.1736D-03,0.1264D-03,0.8864D-04,0.6022D-04, - &0.3944D-04,0.2460D-04,0.1450D-04,0.2966D-05/ - DATA (XPV(I,7,1),I=1,100)/ - &0.3968D-01,0.3804D-01,0.3644D-01,0.3488D-01,0.3341D-01,0.3198D-01, - &0.3060D-01,0.2930D-01,0.2803D-01,0.2680D-01,0.2565D-01,0.2453D-01, - &0.2343D-01,0.2242D-01,0.2142D-01,0.2046D-01,0.1956D-01,0.1868D-01, - &0.1783D-01,0.1704D-01,0.1627D-01,0.1552D-01,0.1483D-01,0.1415D-01, - &0.1350D-01,0.1289D-01,0.1231D-01,0.1174D-01,0.1121D-01,0.1070D-01, - &0.1021D-01,0.9747D-02,0.9311D-02,0.8894D-02,0.8496D-02,0.8127D-02, - &0.7777D-02,0.7443D-02,0.7132D-02,0.6844D-02,0.6574D-02,0.6320D-02, - &0.6086D-02,0.5889D-02,0.5684D-02,0.5503D-02,0.5347D-02,0.5204D-02, - &0.5072D-02,0.4959D-02,0.4862D-02,0.4780D-02,0.4712D-02,0.4660D-02, - &0.4612D-02,0.4585D-02,0.4569D-02,0.4563D-02,0.4568D-02,0.4582D-02, - &0.4605D-02,0.4636D-02,0.4677D-02,0.4723D-02,0.4776D-02,0.4838D-02, - &0.4908D-02,0.4987D-02,0.5076D-02,0.5180D-02,0.5302D-02,0.5448D-02, - &0.5628D-02,0.5855D-02,0.6147D-02,0.6522D-02,0.6993D-02,0.7534D-02, - &0.7594D-02,0.7651D-02,0.7705D-02,0.7756D-02,0.7805D-02,0.7847D-02, - &0.7886D-02,0.7917D-02,0.7942D-02,0.7958D-02,0.7964D-02,0.7958D-02, - &0.7937D-02,0.7898D-02,0.7839D-02,0.7751D-02,0.7629D-02,0.7460D-02, - &0.7219D-02,0.6959D-02,0.6295D-02,0.4764D-02/ - DATA (XPV(I,7,2),I=1,100)/ - &0.3967D-01,0.3803D-01,0.3643D-01,0.3486D-01,0.3340D-01,0.3197D-01, - &0.3058D-01,0.2928D-01,0.2801D-01,0.2678D-01,0.2562D-01,0.2450D-01, - &0.2341D-01,0.2239D-01,0.2139D-01,0.2042D-01,0.1952D-01,0.1864D-01, - &0.1779D-01,0.1699D-01,0.1622D-01,0.1546D-01,0.1476D-01,0.1408D-01, - &0.1342D-01,0.1280D-01,0.1221D-01,0.1163D-01,0.1109D-01,0.1057D-01, - &0.1006D-01,0.9587D-02,0.9136D-02,0.8701D-02,0.8285D-02,0.7896D-02, - &0.7524D-02,0.7166D-02,0.6828D-02,0.6511D-02,0.6211D-02,0.5923D-02, - &0.5651D-02,0.5414D-02,0.5166D-02,0.4937D-02,0.4730D-02,0.4531D-02, - &0.4339D-02,0.4161D-02,0.3994D-02,0.3837D-02,0.3689D-02,0.3551D-02, - &0.3412D-02,0.3287D-02,0.3168D-02,0.3053D-02,0.2944D-02,0.2838D-02, - &0.2736D-02,0.2639D-02,0.2547D-02,0.2456D-02,0.2371D-02,0.2290D-02, - &0.2216D-02,0.2149D-02,0.2089D-02,0.2036D-02,0.1992D-02,0.1956D-02, - &0.1927D-02,0.1907D-02,0.1898D-02,0.1901D-02,0.1923D-02,0.1966D-02, - &0.1971D-02,0.1977D-02,0.1982D-02,0.1987D-02,0.1991D-02,0.1995D-02, - &0.1998D-02,0.1999D-02,0.2000D-02,0.1999D-02,0.1996D-02,0.1990D-02, - &0.1981D-02,0.1968D-02,0.1951D-02,0.1927D-02,0.1894D-02,0.1851D-02, - &0.1790D-02,0.1723D-02,0.1556D-02,0.1179D-02/ - DATA (XPV(I,7,3),I=1,100)/ - &0.3972D-01,0.3809D-01,0.3648D-01,0.3492D-01,0.3346D-01,0.3204D-01, - &0.3065D-01,0.2936D-01,0.2810D-01,0.2686D-01,0.2572D-01,0.2460D-01, - &0.2351D-01,0.2250D-01,0.2151D-01,0.2055D-01,0.1965D-01,0.1878D-01, - &0.1793D-01,0.1714D-01,0.1638D-01,0.1563D-01,0.1494D-01,0.1427D-01, - &0.1362D-01,0.1301D-01,0.1243D-01,0.1186D-01,0.1133D-01,0.1082D-01, - &0.1033D-01,0.9865D-02,0.9426D-02,0.9004D-02,0.8600D-02,0.8223D-02, - &0.7863D-02,0.7517D-02,0.7191D-02,0.6885D-02,0.6594D-02,0.6316D-02, - &0.6054D-02,0.5826D-02,0.5584D-02,0.5361D-02,0.5158D-02,0.4962D-02, - &0.4770D-02,0.4591D-02,0.4421D-02,0.4258D-02,0.4102D-02,0.3953D-02, - &0.3801D-02,0.3660D-02,0.3523D-02,0.3387D-02,0.3255D-02,0.3124D-02, - &0.2996D-02,0.2871D-02,0.2751D-02,0.2632D-02,0.2519D-02,0.2411D-02, - &0.2313D-02,0.2223D-02,0.2143D-02,0.2074D-02,0.2017D-02,0.1971D-02, - &0.1935D-02,0.1911D-02,0.1899D-02,0.1901D-02,0.1923D-02,0.1966D-02, - &0.1971D-02,0.1977D-02,0.1982D-02,0.1987D-02,0.1991D-02,0.1995D-02, - &0.1998D-02,0.1999D-02,0.2000D-02,0.1999D-02,0.1996D-02,0.1990D-02, - &0.1981D-02,0.1968D-02,0.1951D-02,0.1927D-02,0.1894D-02,0.1851D-02, - &0.1790D-02,0.1723D-02,0.1556D-02,0.1179D-02/ - DATA (XPV(I,7,4),I=1,100)/ - &0.3951D-01,0.3787D-01,0.3626D-01,0.3470D-01,0.3324D-01,0.3181D-01, - &0.3042D-01,0.2912D-01,0.2785D-01,0.2661D-01,0.2546D-01,0.2434D-01, - &0.2324D-01,0.2222D-01,0.2122D-01,0.2025D-01,0.1935D-01,0.1847D-01, - &0.1761D-01,0.1681D-01,0.1604D-01,0.1528D-01,0.1458D-01,0.1389D-01, - &0.1323D-01,0.1261D-01,0.1201D-01,0.1142D-01,0.1088D-01,0.1036D-01, - &0.9848D-02,0.9370D-02,0.8915D-02,0.8477D-02,0.8057D-02,0.7665D-02, - &0.7290D-02,0.6930D-02,0.6592D-02,0.6274D-02,0.5975D-02,0.5689D-02, - &0.5422D-02,0.5191D-02,0.4951D-02,0.4734D-02,0.4541D-02,0.4361D-02, - &0.4191D-02,0.4042D-02,0.3908D-02,0.3791D-02,0.3689D-02,0.3604D-02, - &0.3528D-02,0.3474D-02,0.3435D-02,0.3410D-02,0.3400D-02,0.3403D-02, - &0.3420D-02,0.3450D-02,0.3493D-02,0.3545D-02,0.3608D-02,0.3680D-02, - &0.3761D-02,0.3850D-02,0.3949D-02,0.4059D-02,0.4184D-02,0.4334D-02, - &0.4519D-02,0.4757D-02,0.5073D-02,0.5499D-02,0.6065D-02,0.6768D-02, - &0.6851D-02,0.6932D-02,0.7012D-02,0.7089D-02,0.7164D-02,0.7236D-02, - &0.7303D-02,0.7366D-02,0.7422D-02,0.7470D-02,0.7510D-02,0.7539D-02, - &0.7554D-02,0.7553D-02,0.7532D-02,0.7484D-02,0.7404D-02,0.7276D-02, - &0.7082D-02,0.6866D-02,0.6248D-02,0.4789D-02/ - -C..fetching pdfs - DO 5 IP=-6,6 - XPDF(IP)=ZEROD - 5 CONTINUE - DO 2 I=1,IX - ENT(I)=LOG10(XT(I)) - 2 CONTINUE - NA(1)=IX - NA(2)=IQ - DO 3 I=1,IQ - ENT(IX+I)=LOG10(Q2T(I)) - 3 CONTINUE - ARG(1)=LOG10(X) - ARG(2)=LOG10(Q2) -C..VARIOUS FLAVOURS (u-->2,d-->1) - XPDF(0)=DBFINT(NARG,ARG,NA,ENT,XPV(1,1,0)) - XPDF(1)=DBFINT(NARG,ARG,NA,ENT,XPV(1,1,2)) - XPDF(2)=DBFINT(NARG,ARG,NA,ENT,XPV(1,1,1)) - XPDF(3)=DBFINT(NARG,ARG,NA,ENT,XPV(1,1,3)) - XPDF(4)=DBFINT(NARG,ARG,NA,ENT,XPV(1,1,4)) - DO 21 JF=1,4 - XPDF(-JF)=XPDF(JF) - 21 CONTINUE - RETURN - END diff --git a/PDF/spdf/rxdv.F b/PDF/spdf/rxdv.F deleted file mode 100644 index 38b22676b55..00000000000 --- a/PDF/spdf/rxdv.F +++ /dev/null @@ -1,31 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:15 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:29 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE RXDV (X,QQ,XDV) -C....................................................................... -C. -C. DV -C. -C....................................................................... -#include "pdf/impdp.inc" -#include "pdf/expdp.inc" - + BBETA - DATA XLAM /0.50D00/, Q0/2.1D0/, Q00/1.8D0/ - DATA ONED/1.D0/, THRED/3.D0/ - IF(QQ.LT.Q0) QQ=Q0 - S=LOG(QQ/XLAM**2)/LOG(Q00/XLAM**2) - S=LOG(S) - ETA3=0.85D00-0.24D00*S - ETA4=3.35D00+0.816D00*S - XDV=(X**ETA3)*((ONED-X)**ETA4)/BBETA(ETA3,ONED+ETA4) - RETURN - END diff --git a/PDF/spdf/rxglue.F b/PDF/spdf/rxglue.F deleted file mode 100644 index 8d73ae8af5d..00000000000 --- a/PDF/spdf/rxglue.F +++ /dev/null @@ -1,33 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:16 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:29 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE RXGLUE (X,QQ,XGL) -C....................................................................... -C. -C. GLUON -C. -C....................................................................... -#include "pdf/impdp.inc" - DATA XLAM /0.50D00/, Q0/2.D0/, Q00/1.8D0/ - DATA ONED/1.D0/, THRED/3.D0/ - IF(QQ.LT.Q0) QQ=Q0 - S=LOG(QQ/XLAM**2)/LOG(Q00/XLAM**2) - S=LOG(S) - AG=2.412D00-1.9845D00*S+0.4443D00*S**2 - ETAG=5.0D00+1.5464D00*S-0.5287D00*S**2 - APG=3.6363D00*S-1.4146D00*S**2 - ETAPG=13.8237D00+0.7914D00*S-0.2873D00*S**2 - BG=7.6609D00*S-1.4595D00*S**2 - CG=36.7928D00+12.5884D00*S-1.1536D00*S**2 - XGL=AG*((ONED-X)**ETAG)+APG*((ONED-X)**ETAPG)+BG*EXP(-CG*X) - RETURN - END diff --git a/PDF/spdf/rxqbar.F b/PDF/spdf/rxqbar.F deleted file mode 100644 index 0abdf3bce9b..00000000000 --- a/PDF/spdf/rxqbar.F +++ /dev/null @@ -1,33 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:17 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:29 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE RXQBAR (X,QQ,XQBAR) -C....................................................................... -C. -C. SEA -C. -C....................................................................... -#include "pdf/impdp.inc" - DATA XLAM /0.50D00/, Q0/2.1D0/, Q00/1.8D0/ - DATA ONED/1.D0/, THRED/3.D0/ - IF(QQ.LT.Q0) QQ=Q0 - S=LOG(QQ/XLAM**2)/LOG(Q00/XLAM**2) - S=LOG(S) - AS=0.1467D00-0.1211D00*S+0.0274D00*S**2 - ETAS=7.0D00+0.0217D00*S+0.0037D00*S**2 - APS=0.1853D00*S-0.0608D00*S**2 - ETAPS=9.5041D00+1.0165D00*S-0.1049D00*S**2 - BS=0.1682D00*S+0.4473D00*S**2 - CS=25.8997D00+3.9572D00*S+1.6331D00*S**2 - XQBAR=AS*((ONED-X)**ETAS)+APS*((ONED-X)**ETAPS)+BS*EXP(-CS*X) - RETURN - END diff --git a/PDF/spdf/rxud.F b/PDF/spdf/rxud.F deleted file mode 100644 index 92c35d43d89..00000000000 --- a/PDF/spdf/rxud.F +++ /dev/null @@ -1,31 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:18 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:29 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE RXUD (X,QQ,XUD) -C....................................................................... -C. -C. F3 (GIVES VALENCE FOR U AND D) -C. -C....................................................................... -#include "pdf/impdp.inc" -#include "pdf/expdp.inc" - + BBETA - DATA XLAM /0.50D00/, Q0/2.1D0/, Q00/1.8D0/ - DATA ONED/1.D0/, THRED/3.D0/ - IF(QQ.LT.Q0) QQ=Q0 - S=LOG(QQ/XLAM**2)/LOG(Q00/XLAM**2) - S=LOG(S) - ETA1=0.7D00-0.176D00*S - ETA2=2.6D00+0.8D00*S - XUD=THRED*(X**ETA1)*((ONED-X)**ETA2)/BBETA(ETA1,ONED+ETA2) - RETURN - END diff --git a/PDF/spdf/sasan1.F b/PDF/spdf/sasan1.F deleted file mode 100644 index 823d238bbfb..00000000000 --- a/PDF/spdf/sasan1.F +++ /dev/null @@ -1,154 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE SASAN1(KF,X,Q2,P2,ALAM,XPGA) -C...Purpose: to evaluate the parton distributions of the anomalous -C...photon, inhomogeneously evolved from a scale P2 (where it vanishes) -C...to Q2. -C...KF=0 gives the sum over (up to) 5 flavours, -C...KF<0 limits to flavours up to abs(KF), -C...KF>0 is for flavour KF only. -C...ALAM is the 4-flavour Lambda, which is automatically converted -C...to 3- and 5-flavour equivalents as needed. - DIMENSION XPGA(-6:6),ALAMSQ(3:5) - DATA PMC/1.3/, PMB/4.6/, AEM/0.007297/, AEM2PI/0.0011614/ - -C...Reset output. - DO 100 KFL=-6,6 - XPGA(KFL)=0. - 100 CONTINUE - IF(Q2.LE.P2) RETURN - KFA=IABS(KF) - -C...Calculate Lambda; protect against unphysical Q2 and P2 input. - ALAMSQ(3)=(ALAM*(PMC/ALAM)**(2./27.))**2 - ALAMSQ(4)=ALAM**2 - ALAMSQ(5)=(ALAM*(ALAM/PMB)**(2./23.))**2 - P2EFF=MAX(P2,1.2*ALAMSQ(3)) - IF(KF.EQ.4) P2EFF=MAX(P2EFF,PMC**2) - IF(KF.EQ.5) P2EFF=MAX(P2EFF,PMB**2) - Q2EFF=MAX(Q2,P2EFF) - XL=-LOG(X) - -C...Find number of flavours at lower and upper scale. - NFP=4 - IF(P2EFF.LT.PMC**2) NFP=3 - IF(P2EFF.GT.PMB**2) NFP=5 - NFQ=4 - IF(Q2EFF.LT.PMC**2) NFQ=3 - IF(Q2EFF.GT.PMB**2) NFQ=5 - -C...Define range of flavour loop. - IF(KF.EQ.0) THEN - KFLMN=1 - KFLMX=5 - ELSEIF(KF.LT.0) THEN - KFLMN=1 - KFLMX=KFA - ELSE - KFLMN=KFA - KFLMX=KFA - ENDIF - -C...Loop over flavours the photon can branch into. - DO 110 KFL=KFLMN,KFLMX - -C...Light flavours: calculate t range and (approximate) s range. - IF(KFL.LE.3.AND.(KFL.EQ.1.OR.KFL.EQ.KF)) THEN - TDIFF=LOG(Q2EFF/P2EFF) - S=(6./(33.-2.*NFQ))*LOG(LOG(Q2EFF/ALAMSQ(NFQ))/ - & LOG(P2EFF/ALAMSQ(NFQ))) - IF(NFQ.GT.NFP) THEN - Q2DIV=PMB**2 - IF(NFQ.EQ.4) Q2DIV=PMC**2 - SNFQ=(6./(33.-2.*NFQ))*LOG(LOG(Q2DIV/ALAMSQ(NFQ))/ - & LOG(P2EFF/ALAMSQ(NFQ))) - SNFP=(6./(33.-2.*(NFQ-1)))*LOG(LOG(Q2DIV/ALAMSQ(NFQ-1))/ - & LOG(P2EFF/ALAMSQ(NFQ-1))) - S=S+(LOG(Q2DIV/P2EFF)/LOG(Q2EFF/P2EFF))*(SNFP-SNFQ) - ENDIF - IF(NFQ.EQ.5.AND.NFP.EQ.3) THEN - Q2DIV=PMC**2 - SNF4=(6./(33.-2.*4))*LOG(LOG(Q2DIV/ALAMSQ(4))/ - & LOG(P2EFF/ALAMSQ(4))) - SNF3=(6./(33.-2.*3))*LOG(LOG(Q2DIV/ALAMSQ(3))/ - & LOG(P2EFF/ALAMSQ(3))) - S=S+(LOG(Q2DIV/P2EFF)/LOG(Q2EFF/P2EFF))*(SNF3-SNF4) - ENDIF - -C...u and s quark do not need a separate treatment when d has been done. - ELSEIF(KFL.EQ.2.OR.KFL.EQ.3) THEN - -C...Charm: as above, but only include range above c threshold. - ELSEIF(KFL.EQ.4) THEN - IF(Q2.LE.PMC**2) GOTO 110 - P2EFF=MAX(P2EFF,PMC**2) - Q2EFF=MAX(Q2EFF,P2EFF) - TDIFF=LOG(Q2EFF/P2EFF) - S=(6./(33.-2.*NFQ))*LOG(LOG(Q2EFF/ALAMSQ(NFQ))/ - & LOG(P2EFF/ALAMSQ(NFQ))) - IF(NFQ.EQ.5.AND.NFP.EQ.4) THEN - Q2DIV=PMB**2 - SNFQ=(6./(33.-2.*NFQ))*LOG(LOG(Q2DIV/ALAMSQ(NFQ))/ - & LOG(P2EFF/ALAMSQ(NFQ))) - SNFP=(6./(33.-2.*(NFQ-1)))*LOG(LOG(Q2DIV/ALAMSQ(NFQ-1))/ - & LOG(P2EFF/ALAMSQ(NFQ-1))) - S=S+(LOG(Q2DIV/P2EFF)/LOG(Q2EFF/P2EFF))*(SNFP-SNFQ) - ENDIF - -C...Bottom: as above, but only include range above b threshold. - ELSEIF(KFL.EQ.5) THEN - IF(Q2.LE.PMB**2) GOTO 110 - P2EFF=MAX(P2EFF,PMB**2) - Q2EFF=MAX(Q2,P2EFF) - TDIFF=LOG(Q2EFF/P2EFF) - S=(6./(33.-2.*NFQ))*LOG(LOG(Q2EFF/ALAMSQ(NFQ))/ - & LOG(P2EFF/ALAMSQ(NFQ))) - ENDIF - -C...Evaluate flavour-dependent prefactor (charge^2 etc.). - CHSQ=1./9. - IF(KFL.EQ.2.OR.KFL.EQ.4) CHSQ=4./9. - FAC=AEM2PI*2.*CHSQ*TDIFF - -C...Evaluate parton distributions (normalized to unit momentum sum). - IF(KFL.EQ.1.OR.KFL.EQ.4.OR.KFL.EQ.5.OR.KFL.EQ.KF) THEN - XVAL= ((1.5+2.49*S+26.9*S**2)/(1.+32.3*S**2)*X**2 + - & (1.5-0.49*S+7.83*S**2)/(1.+7.68*S**2)*(1.-X)**2 + - & 1.5*S/(1.-3.2*S+7.*S**2)*X*(1.-X)) * - & X**(1./(1.+0.58*S)) * (1.-X**2)**(2.5*S/(1.+10.*S)) - XGLU= 2.*S/(1.+4.*S+7.*S**2) * - & X**(-1.67*S/(1.+2.*S)) * (1.-X**2)**(1.2*S) * - & ((4.*X**2+7.*X+4.)*(1.-X)/3. - 2.*X*(1.+X)*XL) - XSEA= 0.333*S**2/(1.+4.90*S+4.69*S**2+21.4*S**3) * - & X**(-1.18*S/(1.+1.22*S)) * (1.-X)**(1.2*S) * - & ((8.-73.*X+62.*X**2)*(1.-X)/9. + (3.-8.*X**2/3.)*X*XL + - & (2.*X-1.)*X*XL**2) - -C...Threshold factors for c and b sea. - SLL=LOG(LOG(Q2EFF/ALAM**2)/LOG(P2EFF/ALAM**2)) - XCHM=0. - IF(Q2.GT.PMC**2.AND.Q2.GT.1.001*P2EFF) THEN - SCH=MAX(0.,LOG(LOG(PMC**2/ALAM**2)/LOG(P2EFF/ALAM**2))) - XCHM=XSEA*(1.-(SCH/SLL)**3) - ENDIF - XBOT=0. - IF(Q2.GT.PMB**2.AND.Q2.GT.1.001*P2EFF) THEN - SBT=MAX(0.,LOG(LOG(PMB**2/ALAM**2)/LOG(P2EFF/ALAM**2))) - XBOT=XSEA*(1.-(SBT/SLL)**3) - ENDIF - ENDIF - -C...Add contribution of each valence flavour. - XPGA(0)=XPGA(0)+FAC*XGLU - XPGA(1)=XPGA(1)+FAC*XSEA - XPGA(2)=XPGA(2)+FAC*XSEA - XPGA(3)=XPGA(3)+FAC*XSEA - XPGA(4)=XPGA(4)+FAC*XCHM - XPGA(5)=XPGA(5)+FAC*XBOT - XPGA(KFL)=XPGA(KFL)+FAC*XVAL - 110 CONTINUE - DO 120 KFL=1,5 - XPGA(-KFL)=XPGA(KFL) - 120 CONTINUE - - RETURN - END diff --git a/PDF/spdf/sasano.F b/PDF/spdf/sasano.F deleted file mode 100644 index 39b9f836df4..00000000000 --- a/PDF/spdf/sasano.F +++ /dev/null @@ -1,157 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE SASANO(KF,X,Q2,P2,ALAM,XPGA,VXPGA) -C...Purpose: to evaluate the parton distributions of the anomalous -C...photon, inhomogeneously evolved from a scale P2 (where it vanishes) -C...to Q2. -C...KF=0 gives the sum over (up to) 5 flavours, -C...KF<0 limits to flavours up to abs(KF), -C...KF>0 is for flavour KF only. -C...ALAM is the 4-flavour Lambda, which is automatically converted -C...to 3- and 5-flavour equivalents as needed. - DIMENSION XPGA(-6:6), VXPGA(-6:6), ALAMSQ(3:5) - DATA PMC/1.3/, PMB/4.6/, AEM/0.007297/, AEM2PI/0.0011614/ - -C...Reset output. - DO 100 KFL=-6,6 - XPGA(KFL)=0. - VXPGA(KFL)=0. - 100 CONTINUE - IF(Q2.LE.P2) RETURN - KFA=IABS(KF) - -C...Calculate Lambda; protect against unphysical Q2 and P2 input. - ALAMSQ(3)=(ALAM*(PMC/ALAM)**(2./27.))**2 - ALAMSQ(4)=ALAM**2 - ALAMSQ(5)=(ALAM*(ALAM/PMB)**(2./23.))**2 - P2EFF=MAX(P2,1.2*ALAMSQ(3)) - IF(KF.EQ.4) P2EFF=MAX(P2EFF,PMC**2) - IF(KF.EQ.5) P2EFF=MAX(P2EFF,PMB**2) - Q2EFF=MAX(Q2,P2EFF) - XL=-LOG(X) - -C...Find number of flavours at lower and upper scale. - NFP=4 - IF(P2EFF.LT.PMC**2) NFP=3 - IF(P2EFF.GT.PMB**2) NFP=5 - NFQ=4 - IF(Q2EFF.LT.PMC**2) NFQ=3 - IF(Q2EFF.GT.PMB**2) NFQ=5 - -C...Define range of flavour loop. - IF(KF.EQ.0) THEN - KFLMN=1 - KFLMX=5 - ELSEIF(KF.LT.0) THEN - KFLMN=1 - KFLMX=KFA - ELSE - KFLMN=KFA - KFLMX=KFA - ENDIF - -C...Loop over flavours the photon can branch into. - DO 110 KFL=KFLMN,KFLMX - -C...Light flavours: calculate t range and (approximate) s range. - IF(KFL.LE.3.AND.(KFL.EQ.1.OR.KFL.EQ.KF)) THEN - TDIFF=LOG(Q2EFF/P2EFF) - S=(6./(33.-2.*NFQ))*LOG(LOG(Q2EFF/ALAMSQ(NFQ))/ - & LOG(P2EFF/ALAMSQ(NFQ))) - IF(NFQ.GT.NFP) THEN - Q2DIV=PMB**2 - IF(NFQ.EQ.4) Q2DIV=PMC**2 - SNFQ=(6./(33.-2.*NFQ))*LOG(LOG(Q2DIV/ALAMSQ(NFQ))/ - & LOG(P2EFF/ALAMSQ(NFQ))) - SNFP=(6./(33.-2.*(NFQ-1)))*LOG(LOG(Q2DIV/ALAMSQ(NFQ-1))/ - & LOG(P2EFF/ALAMSQ(NFQ-1))) - S=S+(LOG(Q2DIV/P2EFF)/LOG(Q2EFF/P2EFF))*(SNFP-SNFQ) - ENDIF - IF(NFQ.EQ.5.AND.NFP.EQ.3) THEN - Q2DIV=PMC**2 - SNF4=(6./(33.-2.*4))*LOG(LOG(Q2DIV/ALAMSQ(4))/ - & LOG(P2EFF/ALAMSQ(4))) - SNF3=(6./(33.-2.*3))*LOG(LOG(Q2DIV/ALAMSQ(3))/ - & LOG(P2EFF/ALAMSQ(3))) - S=S+(LOG(Q2DIV/P2EFF)/LOG(Q2EFF/P2EFF))*(SNF3-SNF4) - ENDIF - -C...u and s quark do not need a separate treatment when d has been done. - ELSEIF(KFL.EQ.2.OR.KFL.EQ.3) THEN - -C...Charm: as above, but only include range above c threshold. - ELSEIF(KFL.EQ.4) THEN - IF(Q2.LE.PMC**2) GOTO 110 - P2EFF=MAX(P2EFF,PMC**2) - Q2EFF=MAX(Q2EFF,P2EFF) - TDIFF=LOG(Q2EFF/P2EFF) - S=(6./(33.-2.*NFQ))*LOG(LOG(Q2EFF/ALAMSQ(NFQ))/ - & LOG(P2EFF/ALAMSQ(NFQ))) - IF(NFQ.EQ.5.AND.NFP.EQ.4) THEN - Q2DIV=PMB**2 - SNFQ=(6./(33.-2.*NFQ))*LOG(LOG(Q2DIV/ALAMSQ(NFQ))/ - & LOG(P2EFF/ALAMSQ(NFQ))) - SNFP=(6./(33.-2.*(NFQ-1)))*LOG(LOG(Q2DIV/ALAMSQ(NFQ-1))/ - & LOG(P2EFF/ALAMSQ(NFQ-1))) - S=S+(LOG(Q2DIV/P2EFF)/LOG(Q2EFF/P2EFF))*(SNFP-SNFQ) - ENDIF - -C...Bottom: as above, but only include range above b threshold. - ELSEIF(KFL.EQ.5) THEN - IF(Q2.LE.PMB**2) GOTO 110 - P2EFF=MAX(P2EFF,PMB**2) - Q2EFF=MAX(Q2,P2EFF) - TDIFF=LOG(Q2EFF/P2EFF) - S=(6./(33.-2.*NFQ))*LOG(LOG(Q2EFF/ALAMSQ(NFQ))/ - & LOG(P2EFF/ALAMSQ(NFQ))) - ENDIF - -C...Evaluate flavour-dependent prefactor (charge^2 etc.). - CHSQ=1./9. - IF(KFL.EQ.2.OR.KFL.EQ.4) CHSQ=4./9. - FAC=AEM2PI*2.*CHSQ*TDIFF - -C...Evaluate parton distributions (normalized to unit momentum sum). - IF(KFL.EQ.1.OR.KFL.EQ.4.OR.KFL.EQ.5.OR.KFL.EQ.KF) THEN - XVAL= ((1.5+2.49*S+26.9*S**2)/(1.+32.3*S**2)*X**2 + - & (1.5-0.49*S+7.83*S**2)/(1.+7.68*S**2)*(1.-X)**2 + - & 1.5*S/(1.-3.2*S+7.*S**2)*X*(1.-X)) * - & X**(1./(1.+0.58*S)) * (1.-X**2)**(2.5*S/(1.+10.*S)) - XGLU= 2.*S/(1.+4.*S+7.*S**2) * - & X**(-1.67*S/(1.+2.*S)) * (1.-X**2)**(1.2*S) * - & ((4.*X**2+7.*X+4.)*(1.-X)/3. - 2.*X*(1.+X)*XL) - XSEA= 0.333*S**2/(1.+4.90*S+4.69*S**2+21.4*S**3) * - & X**(-1.18*S/(1.+1.22*S)) * (1.-X)**(1.2*S) * - & ((8.-73.*X+62.*X**2)*(1.-X)/9. + (3.-8.*X**2/3.)*X*XL + - & (2.*X-1.)*X*XL**2) - -C...Threshold factors for c and b sea. - SLL=LOG(LOG(Q2EFF/ALAM**2)/LOG(P2EFF/ALAM**2)) - XCHM=0. - IF(Q2.GT.PMC**2.AND.Q2.GT.1.001*P2EFF) THEN - SCH=MAX(0.,LOG(LOG(PMC**2/ALAM**2)/LOG(P2EFF/ALAM**2))) - XCHM=XSEA*(1.-(SCH/SLL)**3) - ENDIF - XBOT=0. - IF(Q2.GT.PMB**2.AND.Q2.GT.1.001*P2EFF) THEN - SBT=MAX(0.,LOG(LOG(PMB**2/ALAM**2)/LOG(P2EFF/ALAM**2))) - XBOT=XSEA*(1.-(SBT/SLL)**3) - ENDIF - ENDIF - -C...Add contribution of each valence flavour. - XPGA(0)=XPGA(0)+FAC*XGLU - XPGA(1)=XPGA(1)+FAC*XSEA - XPGA(2)=XPGA(2)+FAC*XSEA - XPGA(3)=XPGA(3)+FAC*XSEA - XPGA(4)=XPGA(4)+FAC*XCHM - XPGA(5)=XPGA(5)+FAC*XBOT - XPGA(KFL)=XPGA(KFL)+FAC*XVAL - VXPGA(KFL)=VXPGA(KFL)+FAC*XVAL - 110 CONTINUE - DO 120 KFL=1,5 - XPGA(-KFL)=XPGA(KFL) - VXPGA(-KFL)=VXPGA(KFL) - 120 CONTINUE - - RETURN - END diff --git a/PDF/spdf/sasbeh.F b/PDF/spdf/sasbeh.F deleted file mode 100644 index 8455d9b7a11..00000000000 --- a/PDF/spdf/sasbeh.F +++ /dev/null @@ -1,55 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE SASBEH(KF,X,Q2,P2,PM2,XPBH) -C...Purpose: to evaluate the Bethe-Heitler cross section for -C...heavy flavour production. - DATA AEM2PI/0.0011614/ - -C...Reset output. - XPBH=0. - SIGBH=0. - -C...Check kinematics limits. - IF(X.GE.Q2/(4.*PM2+Q2+P2)) RETURN - W2=Q2*(1.-X)/X-P2 - BETA2=1.-4.*PM2/W2 - IF(BETA2.LT.1E-10) RETURN - RMQ=4.*PM2/Q2 - -C...Simple case: P2 = 0. - IF(P2.LT.1E-4) THEN - BETA=SQRT(BETA2) - IF(BETA.LT.0.99) THEN - XBL=LOG((1.+BETA)/(1.-BETA)) - ELSE - XBL=LOG((1.+BETA)**2*W2/(4.*PM2)) - ENDIF - SIGBH=BETA*(8.*X*(1.-X)-1.-RMQ*X*(1.-X))+ - & XBL*(X**2+(1.-X)**2+RMQ*X*(1.-3.*X)-0.5*RMQ**2*X**2) - -C...Complicated case: P2 > 0, based on approximation of -C...C.T. Hill and G.G. Ross, Nucl. Phys. B148 (1979) 373 - ELSE - RPQ=1.-4.*X**2*P2/Q2 - IF(RPQ.GT.1E-10) THEN - RPBE=SQRT(RPQ*BETA2) - IF(RPBE.LT.0.99) THEN - XBL=LOG((1.+RPBE)/(1.-RPBE)) - XBI=2.*RPBE/(1.-RPBE**2) - ELSE - RPBESN=4.*PM2/W2+(4.*X**2*P2/Q2)*BETA2 - XBL=LOG((1.+RPBE)**2/RPBESN) - XBI=2.*RPBE/RPBESN - ENDIF - SIGBH=BETA*(6.*X*(1.-X)-1.)+ - & XBL*(X**2+(1.-X)**2+RMQ*X*(1.-3.*X)-0.5*RMQ**2*X**2)+ - & XBI*(2.*X/Q2)*(PM2*X*(2.-RMQ)-P2*X) - ENDIF - ENDIF - -C...Multiply by charge-squared etc. to get parton distribution. - CHSQ=1./9. - IF(IABS(KF).EQ.2.OR.IABS(KF).EQ.4) CHSQ=4./9. - XPBH=3.*CHSQ*AEM2PI*X*SIGBH - - RETURN - END diff --git a/PDF/spdf/sasdir.F b/PDF/spdf/sasdir.F deleted file mode 100644 index 8e6bf81ef79..00000000000 --- a/PDF/spdf/sasdir.F +++ /dev/null @@ -1,28 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE SASDIR(X,Q2,P2,Q02,XPGA) -C...Purpose: to evaluate the direct contribution, i.e. the C^gamma term, -C...as needed in MSbar parametrizations. - DIMENSION XPGA(-6:6) - DATA PMC/1.3/, PMB/4.6/, AEM2PI/0.0011614/ - -C...Reset output. - DO 100 KFL=-6,6 - XPGA(KFL)=0. - 100 CONTINUE - -C...Evaluate common x-dependent expression. - XTMP = (X**2+(1.-X)**2) * (-LOG(X)) - 1. - CGAM = 3.*AEM2PI*X * (XTMP*(1.+P2/(P2+Q02)) + 6.*X*(1.-X)) - -C...d, u, s part by simple charge factor. - XPGA(1)=(1./9.)*CGAM - XPGA(2)=(4./9.)*CGAM - XPGA(3)=(1./9.)*CGAM - -C...Also fill for antiquarks. - DO 110 KF=1,5 - XPGA(-KF)=XPGA(KF) - 110 CONTINUE - - RETURN - END diff --git a/PDF/spdf/sasgam1.F b/PDF/spdf/sasgam1.F deleted file mode 100644 index a870ee96eea..00000000000 --- a/PDF/spdf/sasgam1.F +++ /dev/null @@ -1,170 +0,0 @@ -#include "pdf/pilot.h" -C...SaSgam - parton distributions of the photon -C...by Gerhard A. Schuler and Torbjorn Sjostrand -C...For further information see preprint CERN-TH/95-62 and LU TP 95-6: -C...Low- and high-mass components of the photon distribution functions -C...Program last changed on 21 March 1995. - -C...The user should only need to call the SASGAM routine, -C...which in turn calls the auxiliary routines SASVM1, SASAN1, -C...SASBEH and SASDIR. The package is self-contained. - -C...One particular aspect of these parametrizations is that F2 for -C...the photon is not obtained just as the charge-squared-weighted -C...sum of quark distributions, but differ in the treatment of -C...heavy flavours (in F2 the DIS relation W2 = Q2*(1-x)/x restricts -C...the kinematics range of heavy-flavour production, but the same -C...kinematics is not relevant e.g. for jet production) and, for the -C...'MSbar' fits, in the addition of a Cgamma term related to the -C...separation of direct processes. Schematically: -C...PDF = VMD (rho, omega, phi) + anomalous (d, u, s, c, b). -C...F2 = VMD (rho, omega, phi) + anomalous (d, u, s) + -C... Bethe-Heitler (c, b) (+ Cgamma (d, u, s)). -C...The J/psi and Upsilon states have not been included in the VMD sum, -C...but low c and b masses in the other components should compensate -C...for this in a duality sense. - -C...The calling sequence is the following: -C CALL SASGAM1(ISET,X,Q2,P2,F2GM,XPDFGM) -C...with the following declaration statement: -C DIMENSION XPDFGM(-6:6) -C...and, optionally, further information in: -C COMMON/SASCOM/XPVMD(-6:6),XPANL(-6:6),XPANH(-6:6),XPBEH(-6:6), -C &XPDIR(-6:6) -C...Input: ISET = 1 : SaS set 1D ('DIS', Q0 = 0.6 GeV) -C = 2 : SaS set 1M ('MSbar', Q0 = 0.6 GeV) -C = 3 : SaS set 2D ('DIS', Q0 = 2 GeV) -C = 4 : SaS set 2M ('MSbar', Q0 = 2 GeV) -C X : x value. -C Q2 : Q2 value. -C P2 : P2 value; should be = 0. for an on-shell photon. -C...Output: F2GM : F2 value of the photon (including factors of alpha_em). -C XPFDGM : x times parton distribution functions of the photon, -C with elements 0 = g, 1 = d, 2 = u, 3 = s, 4 = c, 5 = b, -C 6 = t (always empty!), - for antiquarks (result is same). -C...The breakdown by component is stored in the commonblock SASCOM, -C with elements as above. -C XPVMD : rho, omega, phi VMD part only of output. -C XPANL : d, u, s anomalous part only of output. -C XPANH : c, b anomalous part only of output. -C XPBEH : c, b Bethe-Heitler part only of output. -C XPDIR : Cgamma (direct contribution) part only of output. - - SUBROUTINE SASGAM1(ISET,X,Q2,P2,F2GM,XPDFGM) -C...Purpose: to construct the F2 and parton distributions of the photon -C...by summing homogeneous (VMD) and inhomogeneous (anomalous) terms. -C...For F2, c and b are included by the Bethe-Heitler formula; -C...in the 'MSbar' scheme additionally a Cgamma term is added. - DIMENSION XPDFGM(-6:6) - COMMON/SASCOM/XPVMD(-6:6),XPANL(-6:6),XPANH(-6:6),XPBEH(-6:6), - &XPDIR(-6:6) - SAVE /SASCOM/ - -C...Temporary array. - DIMENSION XPGA(-6:6) -C...Charm and bottom masses (low to compensate for J/psi etc.). - DATA PMC/1.3/, PMB/4.6/ -C...alpha_em and alpha_em/(2*pi). - DATA AEM/0.007297/, AEM2PI/0.0011614/ -C...Lambda value for 4 flavours. - DATA ALAM/0.20/ -C...Mixture u/(u+d), = 0.5 for incoherent and = 0.8 for coherent sum. - DATA FRACU/0.8/ -C...VMD couplings f_V**2/(4*pi). - DATA FRHO/2.20/, FOMEGA/23.6/, FPHI/18.4/ -C...Masses for rho (=omega) and phi. - DATA PMRHO/0.770/, PMPHI/1.020/ - -C...Reset output. - F2GM=0. - DO 100 KFL=-6,6 - XPDFGM(KFL)=0. - XPVMD(KFL)=0. - XPANL(KFL)=0. - XPANH(KFL)=0. - XPBEH(KFL)=0. - XPDIR(KFL)=0. - 100 CONTINUE - -C...Check that input sensible. - IF(ISET.LE.0.OR.ISET.GE.5) THEN - WRITE(*,*) ' FATAL ERROR: SaSgam called for unknown set' - WRITE(*,*) ' ISET = ',ISET - STOP - ENDIF - IF(X.LE.0..OR.X.GT.1.) THEN - WRITE(*,*) ' FATAL ERROR: SaSgam called for unphysical x' - WRITE(*,*) ' X = ',X - STOP - ENDIF - -C...Set Q0 cut-off parameter as function of set used. - IF(ISET.LE.2) THEN - Q0=0.6 - ELSE - Q0=2. - ENDIF - Q02 = Q0**2 - -C...Call VMD parametrization for d quark and use to give rho, omega, phi. -C...Note scale choice and dipole dampening for off-shell photon. - P2MX=MAX(P2,Q02) - CALL SASVM1(ISET,1,X,Q2,P2MX,ALAM,XPGA) - XFVAL=XPGA(1)-XPGA(2) - XPGA(1)=XPGA(2) - XPGA(-1)=XPGA(-2) - FACUD=AEM*(1./FRHO+1./FOMEGA)*(PMRHO**2/(PMRHO**2+P2))**2 - FACS=AEM*(1./FPHI)*(PMPHI**2/(PMPHI**2+P2))**2 - DO 110 KFL=-5,5 - XPVMD(KFL)=(FACUD+FACS)*XPGA(KFL) - 110 CONTINUE - XPVMD(1)=XPVMD(1)+(1.-FRACU)*FACUD*XFVAL - XPVMD(2)=XPVMD(2)+FRACU*FACUD*XFVAL - XPVMD(3)=XPVMD(3)+FACS*XFVAL - XPVMD(-1)=XPVMD(-1)+(1.-FRACU)*FACUD*XFVAL - XPVMD(-2)=XPVMD(-2)+FRACU*FACUD*XFVAL - XPVMD(-3)=XPVMD(-3)+FACS*XFVAL - -C...Call anomalous parametrization for d + u + s. - CALL SASAN1(-3,X,Q2,P2MX,ALAM,XPGA) - DO 120 KFL=-5,5 - XPANL(KFL)=XPGA(KFL) - 120 CONTINUE - -C...Call anomalous parametrization for c and b. - CALL SASAN1(4,X,Q2,P2MX,ALAM,XPGA) - DO 130 KFL=-5,5 - XPANH(KFL)=XPGA(KFL) - 130 CONTINUE - CALL SASAN1(5,X,Q2,P2MX,ALAM,XPGA) - DO 140 KFL=-5,5 - XPANH(KFL)=XPANH(KFL)+XPGA(KFL) - 140 CONTINUE - -C...Call Bethe-Heitler term expression for charm and bottom. - CALL SASBEH(4,X,Q2,P2,PMC**2,XPBH) - XPBEH(4)=XPBH - XPBEH(-4)=XPBH - CALL SASBEH(5,X,Q2,P2,PMB**2,XPBH) - XPBEH(5)=XPBH - XPBEH(-5)=XPBH - -C...For MSbar subtraction call C^gamma term expression for d, u, s. - IF(ISET.EQ.2.OR.ISET.EQ.4) THEN - CALL SASDIR(X,Q2,P2,Q02,XPGA) - DO 150 KFL=-5,5 - XPDIR(KFL)=XPGA(KFL) - 150 CONTINUE - ENDIF - -C...Store result in output array. - DO 160 KFL=-5,5 - CHSQ=1./9. - IF(IABS(KFL).EQ.2.OR.IABS(KFL).EQ.4) CHSQ=4./9. - XPF2=XPVMD(KFL)+XPANL(KFL)+XPBEH(KFL)+XPDIR(KFL) - IF(KFL.NE.0) F2GM=F2GM+CHSQ*XPF2 - XPDFGM(KFL)=XPVMD(KFL)+XPANL(KFL)+XPANH(KFL) - 160 CONTINUE - - RETURN - END diff --git a/PDF/spdf/sasgam2.F b/PDF/spdf/sasgam2.F deleted file mode 100644 index c0aab2eac92..00000000000 --- a/PDF/spdf/sasgam2.F +++ /dev/null @@ -1,267 +0,0 @@ -#include "pdf/pilot.h" -C...SaSgam version 2 - parton distributions of the photon -C...by Gerhard A. Schuler and Torbjorn Sjostrand -C...For further information see Z. Phys. C68 (1995) 607 -C...and CERN-TH/96-04 and LU TP 96-2. -C...Program last changed on 18 January 1996. - -C!!!Note that one further call parameter - IP2 - has been added -C!!!to the SASGAM argument list compared with version 1. - -C...The user should only need to call the SASGAM routine, -C...which in turn calls the auxiliary routines SASVMD, SASANO, -C...SASBEH and SASDIR. The package is self-contained. - -C...One particular aspect of these parametrizations is that F2 for -C...the photon is not obtained just as the charge-squared-weighted -C...sum of quark distributions, but differ in the treatment of -C...heavy flavours (in F2 the DIS relation W2 = Q2*(1-x)/x restricts -C...the kinematics range of heavy-flavour production, but the same -C...kinematics is not relevant e.g. for jet production) and, for the -C...'MSbar' fits, in the addition of a Cgamma term related to the -C...separation of direct processes. Schematically: -C...PDF = VMD (rho, omega, phi) + anomalous (d, u, s, c, b). -C...F2 = VMD (rho, omega, phi) + anomalous (d, u, s) + -C... Bethe-Heitler (c, b) (+ Cgamma (d, u, s)). -C...The J/psi and Upsilon states have not been included in the VMD sum, -C...but low c and b masses in the other components should compensate -C...for this in a duality sense. - -C...The calling sequence is the following: -C CALL SASGAM2(ISET,X,Q2,P2,IP2,F2GM,XPDFGM) -C...with the following declaration statement: -C DIMENSION XPDFGM(-6:6) -C...and, optionally, further information in: -C COMMON/SASCOM/XPVMD(-6:6),XPANL(-6:6),XPANH(-6:6),XPBEH(-6:6), -C &XPDIR(-6:6) -C COMMON/SASVAL/VXPVMD(-6:6),VXPANL(-6:6),VXPANH(-6:6),VXPDGM(-6:6) -C...Input: ISET = 1 : SaS set 1D ('DIS', Q0 = 0.6 GeV) -C = 2 : SaS set 1M ('MSbar', Q0 = 0.6 GeV) -C = 3 : SaS set 2D ('DIS', Q0 = 2 GeV) -C = 4 : SaS set 2M ('MSbar', Q0 = 2 GeV) -C X : x value. -C Q2 : Q2 value. -C P2 : P2 value; should be = 0. for an on-shell photon. -C IP2 : scheme used to evaluate off-shell anomalous component. -C = 0 : recommended default, see = 7. -C = 1 : dipole dampening by integration; very time-consuming. -C = 2 : P_0^2 = max( Q_0^2, P^2 ) -C = 3 : P'_0^2 = Q_0^2 + P^2. -C = 4 : P_{eff} that preserves momentum sum. -C = 5 : P_{int} that preserves momentum and average -C evolution range. -C = 6 : P_{eff}, matched to P_0 in P2 -> Q2 limit. -C = 7 : P_{eff}, matched to P_0 in P2 -> Q2 limit. -C...Output: F2GM : F2 value of the photon (including factors of alpha_em). -C XPFDGM : x times parton distribution functions of the photon, -C with elements 0 = g, 1 = d, 2 = u, 3 = s, 4 = c, 5 = b, -C 6 = t (always empty!), - for antiquarks (result is same). -C...The breakdown by component is stored in the commonblock SASCOM, -C with elements as above. -C XPVMD : rho, omega, phi VMD part only of output. -C XPANL : d, u, s anomalous part only of output. -C XPANH : c, b anomalous part only of output. -C XPBEH : c, b Bethe-Heitler part only of output. -C XPDIR : Cgamma (direct contribution) part only of output. -C...The above arrays do not distinguish valence and sea contributions, -C...although this information is available internally. The additional -C...commonblock SASVAL provides the valence part only of the above -C...distributions. Array names VXPVMD, VXPANL and VXPANH correspond -C...to XPVMD, XPANL and XPANH, while XPBEH and XPDIR are valence only -C...and therefore not given doubly. VXPDGM gives the sum of valence -C...parts, and so matches XPDFGM. The difference, i.e. XPVMD-VXPVMD -C...and so on, gives the sea part only. - - SUBROUTINE SASGAM2(ISET,X,Q2,P2,IP2,F2GM,XPDFGM) -C...Purpose: to construct the F2 and parton distributions of the photon -C...by summing homogeneous (VMD) and inhomogeneous (anomalous) terms. -C...For F2, c and b are included by the Bethe-Heitler formula; -C...in the 'MSbar' scheme additionally a Cgamma term is added. - DIMENSION XPDFGM(-6:6) - COMMON/SASCOM/XPVMD(-6:6),XPANL(-6:6),XPANH(-6:6),XPBEH(-6:6), - &XPDIR(-6:6) - COMMON/SASVAL/VXPVMD(-6:6),VXPANL(-6:6),VXPANH(-6:6),VXPDGM(-6:6) - SAVE /SASCOM/,/SASVAL/ - -C...Temporary array. - DIMENSION XPGA(-6:6), VXPGA(-6:6) -C...Charm and bottom masses (low to compensate for J/psi etc.). - DATA PMC/1.3/, PMB/4.6/ -C...alpha_em and alpha_em/(2*pi). - DATA AEM/0.007297/, AEM2PI/0.0011614/ -C...Lambda value for 4 flavours. - DATA ALAM/0.20/ -C...Mixture u/(u+d), = 0.5 for incoherent and = 0.8 for coherent sum. - DATA FRACU/0.8/ -C...VMD couplings f_V**2/(4*pi). - DATA FRHO/2.20/, FOMEGA/23.6/, FPHI/18.4/ -C...Masses for rho (=omega) and phi. - DATA PMRHO/0.770/, PMPHI/1.020/ -C...Number of points in integration for IP2=1. - DATA NSTEP/100/ - -C...Reset output. - F2GM=0. - DO 100 KFL=-6,6 - XPDFGM(KFL)=0. - XPVMD(KFL)=0. - XPANL(KFL)=0. - XPANH(KFL)=0. - XPBEH(KFL)=0. - XPDIR(KFL)=0. - VXPVMD(KFL)=0. - VXPANL(KFL)=0. - VXPANH(KFL)=0. - VXPDGM(KFL)=0. - 100 CONTINUE - -C...Check that input sensible. - IF(ISET.LE.0.OR.ISET.GE.5) THEN - WRITE(*,*) ' FATAL ERROR: SaSgam called for unknown set' - WRITE(*,*) ' ISET = ',ISET - STOP - ENDIF - IF(X.LE.0..OR.X.GT.1.) THEN - WRITE(*,*) ' FATAL ERROR: SaSgam called for unphysical x' - WRITE(*,*) ' X = ',X - STOP - ENDIF - -C...Set Q0 cut-off parameter as function of set used. - IF(ISET.LE.2) THEN - Q0=0.6 - ELSE - Q0=2. - ENDIF - Q02=Q0**2 - -C...Scale choice for off-shell photon; common factors. - Q2A=Q2 - FACNOR=1. - IF(IP2.EQ.1) THEN - P2MX=P2+Q02 - Q2A=Q2+P2*Q02/MAX(Q02,Q2) - FACNOR=LOG(Q2/Q02)/NSTEP - ELSEIF(IP2.EQ.2) THEN - P2MX=MAX(P2,Q02) - ELSEIF(IP2.EQ.3) THEN - P2MX=P2+Q02 - Q2A=Q2+P2*Q02/MAX(Q02,Q2) - ELSEIF(IP2.EQ.4) THEN - P2MX=Q2*(Q02+P2)/(Q2+P2)*EXP(P2*(Q2-Q02)/ - & ((Q2+P2)*(Q02+P2))) - ELSEIF(IP2.EQ.5) THEN - P2MXA=Q2*(Q02+P2)/(Q2+P2)*EXP(P2*(Q2-Q02)/ - & ((Q2+P2)*(Q02+P2))) - P2MX=Q0*SQRT(P2MXA) - FACNOR=LOG(Q2/P2MXA)/LOG(Q2/P2MX) - ELSEIF(IP2.EQ.6) THEN - P2MX=Q2*(Q02+P2)/(Q2+P2)*EXP(P2*(Q2-Q02)/ - & ((Q2+P2)*(Q02+P2))) - P2MX=MAX(0.,1.-P2/Q2)*P2MX+MIN(1.,P2/Q2)*MAX(P2,Q02) - ELSE - P2MXA=Q2*(Q02+P2)/(Q2+P2)*EXP(P2*(Q2-Q02)/ - & ((Q2+P2)*(Q02+P2))) - P2MX=Q0*SQRT(P2MXA) - P2MXB=P2MX - P2MX=MAX(0.,1.-P2/Q2)*P2MX+MIN(1.,P2/Q2)*MAX(P2,Q02) - P2MXB=MAX(0.,1.-P2/Q2)*P2MXB+MIN(1.,P2/Q2)*P2MXA - FACNOR=LOG(Q2/P2MXA)/LOG(Q2/P2MXB) - ENDIF - -C...Call VMD parametrization for d quark and use to give rho, omega, -C...phi. Note dipole dampening for off-shell photon. - CALL SASVMD(ISET,1,X,Q2A,P2MX,ALAM,XPGA,VXPGA) - XFVAL=VXPGA(1) - XPGA(1)=XPGA(2) - XPGA(-1)=XPGA(-2) - FACUD=AEM*(1./FRHO+1./FOMEGA)*(PMRHO**2/(PMRHO**2+P2))**2 - FACS=AEM*(1./FPHI)*(PMPHI**2/(PMPHI**2+P2))**2 - DO 110 KFL=-5,5 - XPVMD(KFL)=(FACUD+FACS)*XPGA(KFL) - 110 CONTINUE - XPVMD(1)=XPVMD(1)+(1.-FRACU)*FACUD*XFVAL - XPVMD(2)=XPVMD(2)+FRACU*FACUD*XFVAL - XPVMD(3)=XPVMD(3)+FACS*XFVAL - XPVMD(-1)=XPVMD(-1)+(1.-FRACU)*FACUD*XFVAL - XPVMD(-2)=XPVMD(-2)+FRACU*FACUD*XFVAL - XPVMD(-3)=XPVMD(-3)+FACS*XFVAL - VXPVMD(1)=(1.-FRACU)*FACUD*XFVAL - VXPVMD(2)=FRACU*FACUD*XFVAL - VXPVMD(3)=FACS*XFVAL - VXPVMD(-1)=(1.-FRACU)*FACUD*XFVAL - VXPVMD(-2)=FRACU*FACUD*XFVAL - VXPVMD(-3)=FACS*XFVAL - - IF(IP2.NE.1) THEN -C...Anomalous parametrizations for different strategies -C...for off-shell photons; except full integration. - -C...Call anomalous parametrization for d + u + s. - CALL SASANO(-3,X,Q2A,P2MX,ALAM,XPGA,VXPGA) - DO 120 KFL=-5,5 - XPANL(KFL)=FACNOR*XPGA(KFL) - VXPANL(KFL)=FACNOR*VXPGA(KFL) - 120 CONTINUE - -C...Call anomalous parametrization for c and b. - CALL SASANO(4,X,Q2A,P2MX,ALAM,XPGA,VXPGA) - DO 130 KFL=-5,5 - XPANH(KFL)=FACNOR*XPGA(KFL) - VXPANH(KFL)=FACNOR*VXPGA(KFL) - 130 CONTINUE - CALL SASANO(5,X,Q2A,P2MX,ALAM,XPGA,VXPGA) - DO 140 KFL=-5,5 - XPANH(KFL)=XPANH(KFL)+FACNOR*XPGA(KFL) - VXPANH(KFL)=VXPANH(KFL)+FACNOR*VXPGA(KFL) - 140 CONTINUE - - ELSE -C...Special option: loop over flavours and integrate over k2. - DO 170 KF=1,5 - DO 160 ISTEP=1,NSTEP - Q2STEP=Q02*(Q2/Q02)**((ISTEP-0.5)/NSTEP) - IF((KF.EQ.4.AND.Q2STEP.LT.PMC**2).OR. - & (KF.EQ.5.AND.Q2STEP.LT.PMB**2)) GOTO 160 - CALL SASVMD(0,KF,X,Q2,Q2STEP,ALAM,XPGA,VXPGA) - FACQ=AEM2PI*(Q2STEP/(Q2STEP+P2))**2*FACNOR - IF(MOD(KF,2).EQ.0) FACQ=FACQ*(8./9.) - IF(MOD(KF,2).EQ.1) FACQ=FACQ*(2./9.) - DO 150 KFL=-5,5 - IF(KF.LE.3) XPANL(KFL)=XPANL(KFL)+FACQ*XPGA(KFL) - IF(KF.GE.4) XPANH(KFL)=XPANH(KFL)+FACQ*XPGA(KFL) - IF(KF.LE.3) VXPANL(KFL)=VXPANL(KFL)+FACQ*VXPGA(KFL) - IF(KF.GE.4) VXPANH(KFL)=VXPANH(KFL)+FACQ*VXPGA(KFL) - 150 CONTINUE - 160 CONTINUE - 170 CONTINUE - ENDIF - -C...Call Bethe-Heitler term expression for charm and bottom. - CALL SASBEH(4,X,Q2,P2,PMC**2,XPBH) - XPBEH(4)=XPBH - XPBEH(-4)=XPBH - CALL SASBEH(5,X,Q2,P2,PMB**2,XPBH) - XPBEH(5)=XPBH - XPBEH(-5)=XPBH - -C...For MSbar subtraction call C^gamma term expression for d, u, s. - IF(ISET.EQ.2.OR.ISET.EQ.4) THEN - CALL SASDIR(X,Q2,P2,Q02,XPGA) - DO 180 KFL=-5,5 - XPDIR(KFL)=XPGA(KFL) - 180 CONTINUE - ENDIF - -C...Store result in output array. - DO 190 KFL=-5,5 - CHSQ=1./9. - IF(IABS(KFL).EQ.2.OR.IABS(KFL).EQ.4) CHSQ=4./9. - XPF2=XPVMD(KFL)+XPANL(KFL)+XPBEH(KFL)+XPDIR(KFL) - IF(KFL.NE.0) F2GM=F2GM+CHSQ*XPF2 - XPDFGM(KFL)=XPVMD(KFL)+XPANL(KFL)+XPANH(KFL) - VXPDGM(KFL)=VXPVMD(KFL)+VXPANL(KFL)+VXPANH(KFL) - 190 CONTINUE - - RETURN - END diff --git a/PDF/spdf/sasvm1.F b/PDF/spdf/sasvm1.F deleted file mode 100644 index 4b299b1d43b..00000000000 --- a/PDF/spdf/sasvm1.F +++ /dev/null @@ -1,199 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE SASVM1(ISET,KF,X,Q2,P2,ALAM,XPGA) -C...Purpose: to evaluate the VMD parton distributions of a photon, -C...evolved homogeneously from an initial scale P2 to Q2. -C...Does not include dipole suppression factor. -C...ISET is parton distribution set, see above; -C...additionally ISET=0 is used for the evolution of an anomalous photon -C...which branched at a scale P2 and then evolved homogeneously to Q2. -C...ALAM is the 4-flavour Lambda, which is automatically converted -C...to 3- and 5-flavour equivalents as needed. - DIMENSION XPGA(-6:6) - DATA PMC/1.3/, PMB/4.6/, AEM/0.007297/, AEM2PI/0.0011614/ - -C...Reset output. - DO 100 KFL=-6,6 - XPGA(KFL)=0. - 100 CONTINUE - KFA=IABS(KF) - -C...Calculate Lambda; protect against unphysical Q2 and P2 input. - ALAM3=ALAM*(PMC/ALAM)**(2./27.) - ALAM5=ALAM*(ALAM/PMB)**(2./23.) - P2EFF=MAX(P2,1.2*ALAM3**2) - IF(KFA.EQ.4) P2EFF=MAX(P2EFF,PMC**2) - IF(KFA.EQ.5) P2EFF=MAX(P2EFF,PMB**2) - Q2EFF=MAX(Q2,P2EFF) - -C...Find number of flavours at lower and upper scale. - NFP=4 - IF(P2EFF.LT.PMC**2) NFP=3 - IF(P2EFF.GT.PMB**2) NFP=5 - NFQ=4 - IF(Q2EFF.LT.PMC**2) NFQ=3 - IF(Q2EFF.GT.PMB**2) NFQ=5 - -C...Find s as sum of 3-, 4- and 5-flavour parts. - S=0. - IF(NFP.EQ.3) THEN - Q2DIV=PMC**2 - IF(NFQ.EQ.3) Q2DIV=Q2EFF - S=S+(6./27.)*LOG(LOG(Q2DIV/ALAM3**2)/LOG(P2EFF/ALAM3**2)) - ENDIF - IF(NFP.LE.4.AND.NFQ.GE.4) THEN - P2DIV=P2EFF - IF(NFP.EQ.3) P2DIV=PMC**2 - Q2DIV=Q2EFF - IF(NFQ.EQ.5) Q2DIV=PMB**2 - S=S+(6./25.)*LOG(LOG(Q2DIV/ALAM**2)/LOG(P2DIV/ALAM**2)) - ENDIF - IF(NFQ.EQ.5) THEN - P2DIV=PMB**2 - IF(NFP.EQ.5) P2DIV=P2EFF - S=S+(6./23.)*LOG(LOG(Q2EFF/ALAM5**2)/LOG(P2DIV/ALAM5**2)) - ENDIF - -C...Calculate frequent combinations of x and s. - X1=1.-X - XL=-LOG(X) - S2=S**2 - S3=S**3 - S4=S**4 - -C...Evaluate homogeneous anomalous parton distributions below or -C...above threshold. - IF(ISET.EQ.0) THEN - IF(Q2.LE.P2.OR.(KFA.EQ.4.AND.Q2.LT.PMC**2).OR. - &(KFA.EQ.5.AND.Q2.LT.PMB**2)) THEN - XVAL = X * 1.5 * (X**2+X1**2) - XGLU = 0. - XSEA = 0. - ELSE - XVAL = (1.5/(1.-0.197*S+4.33*S2)*X**2 + (1.5+2.10*S)/ - & (1.+3.29*S)*X1**2 + 5.23*S/(1.+1.17*S+19.9*S3)*X*X1) * - & X**(1./(1.+1.5*S)) * (1.-X**2)**(2.667*S) - XGLU = 4.*S/(1.+4.76*S+15.2*S2+29.3*S4) * - & X**(-2.03*S/(1.+2.44*S)) * (X1*XL)**(1.333*S) * - & ((4.*X**2+7.*X+4.)*X1/3. - 2.*X*(1.+X)*XL) - XSEA = S2/(1.+4.54*S+8.19*S2+8.05*S3) * - & X**(-1.54*S/(1.+1.29*S)) * X1**(2.667*S) * - & ((8.-73.*X+62.*X**2)*X1/9. + (3.-8.*X**2/3.)*X*XL + - & (2.*X-1.)*X*XL**2) - ENDIF - -C...Evaluate set 1D parton distributions below or above threshold. - ELSEIF(ISET.EQ.1) THEN - IF(Q2.LE.P2.OR.(KFA.EQ.4.AND.Q2.LT.PMC**2).OR. - &(KFA.EQ.5.AND.Q2.LT.PMB**2)) THEN - XVAL = 1.294 * X**0.80 * X1**0.76 - XGLU = 1.273 * X**0.40 * X1**1.76 - XSEA = 0.100 * X1**3.76 - ELSE - XVAL = 1.294/(1.+0.252*S+3.079*S2) * X**(0.80-0.13*S) * - & X1**(0.76+0.667*S) * XL**(2.*S) - XGLU = 7.90*S/(1.+5.50*S) * EXP(-5.16*S) * - & X**(-1.90*S/(1.+3.60*S)) * X1**1.30 * XL**(0.50+3.*S) + - & 1.273 * EXP(-10.*S) * X**0.40 * X1**(1.76+3.*S) - XSEA = (0.1-0.397*S2+1.121*S3)/(1.+5.61*S2+5.26*S3) * - & X**(-7.32*S2/(1.+10.3*S2)) * - & X1**((3.76+15.*S+12.*S2)/(1.+4.*S)) - XSEA0 = 0.100 * X1**3.76 - ENDIF - -C...Evaluate set 1M parton distributions below or above threshold. - ELSEIF(ISET.EQ.2) THEN - IF(Q2.LE.P2.OR.(KFA.EQ.4.AND.Q2.LT.PMC**2).OR. - &(KFA.EQ.5.AND.Q2.LT.PMB**2)) THEN - XVAL = 0.8477 * X**0.51 * X1**1.37 - XGLU = 3.42 * X**0.255 * X1**2.37 - XSEA = 0. - ELSE - XVAL = 0.8477/(1.+1.37*S+2.18*S2+3.73*S3) * X**(0.51+0.21*S) - & * X1**1.37 * XL**(2.667*S) - XGLU = 24.*S/(1.+9.6*S+0.92*S2+14.34*S3) * EXP(-5.94*S) * - & X**((-0.013-1.80*S)/(1.+3.14*S)) * X1**(2.37+0.4*S) * - & XL**(0.32+3.6*S) + 3.42 * EXP(-12.*S) * X**0.255 * - & X1**(2.37+3.*S) - XSEA = 0.842*S/(1.+21.3*S-33.2*S2+229.*S3) * - & X**((0.13-2.90*S)/(1.+5.44*S)) * X1**(3.45+0.5*S) * - & XL**(2.8*S) - XSEA0 = 0. - ENDIF - -C...Evaluate set 2D parton distributions below or above threshold. - ELSEIF(ISET.EQ.3) THEN - IF(Q2.LE.P2.OR.(KFA.EQ.4.AND.Q2.LT.PMC**2).OR. - &(KFA.EQ.5.AND.Q2.LT.PMB**2)) THEN - XVAL = X**0.46 * X1**0.64 + 0.76 * X - XGLU = 1.925 * X1**2 - XSEA = 0.242 * X1**4 - ELSE - XVAL = (1.+0.186*S)/(1.-0.209*S+1.495*S2) * X**(0.46+0.25*S) - & * X1**((0.64+0.14*S+5.*S2)/(1.+S)) * XL**(1.9*S) + - & (0.76+0.4*S) * X * X1**(2.667*S) - XGLU = (1.925+5.55*S+147.*S2)/(1.-3.59*S+3.32*S2) * - & EXP(-18.67*S) * X**((-5.81*S-5.34*S2)/(1.+29.*S-4.26*S2)) - & * X1**((2.-5.9*S)/(1.+1.7*S)) * XL**(9.3*S/(1.+1.7*S)) - XSEA = (0.242-0.252*S+1.19*S2)/(1.-0.607*S+21.95*S2) * - & X**(-12.1*S2/(1.+2.62*S+16.7*S2)) * X1**4 * XL**S - XSEA0 = 0.242 * X1**4 - ENDIF - -C...Evaluate set 2M parton distributions below or above threshold. - ELSEIF(ISET.EQ.4) THEN - IF(Q2.LE.P2.OR.(KFA.EQ.4.AND.Q2.LT.PMC**2).OR. - &(KFA.EQ.5.AND.Q2.LT.PMB**2)) THEN - XVAL = 1.168 * X**0.50 * X1**2.60 + 0.965 * X - XGLU = 1.808 * X1**2 - XSEA = 0.209 * X1**4 - ELSE - XVAL = (1.168+1.771*S+29.35*S2) * EXP(-5.776*S) * - & X**((0.5+0.208*S)/(1.-0.794*S+1.516*S2)) * - & X1**((2.6+7.6*S)/(1.+5.*S)) * XL**(5.15*S/(1.+2.*S)) + - & (0.965+22.35*S)/(1.+18.4*S) * X * X1**(2.667*S) - XGLU = (1.808+29.9*S)/(1.+26.4*S) * EXP(-5.28*S) * - & X**((-5.35*S-10.11*S2)/(1.+31.71*S)) * - & X1**((2.-7.3*S+4.*S2)/(1.+2.5*S)) * - & XL**(10.9*S/(1.+2.5*S)) - XSEA = (0.209+0.644*S2)/(1.+0.319*S+17.6*S2) * - & X**((-0.373*S-7.71*S2)/(1.+0.815*S+11.0*S2)) * - & X1**(4.+S) * XL**(0.45*S) - XSEA0 = 0.209 * X1**4 - ENDIF - ENDIF - -C...Threshold factors for c and b sea. - SLL=LOG(LOG(Q2EFF/ALAM**2)/LOG(P2EFF/ALAM**2)) - XCHM=0. - IF(Q2.GT.PMC**2.AND.Q2.GT.1.001*P2EFF) THEN - SCH=MAX(0.,LOG(LOG(PMC**2/ALAM**2)/LOG(P2EFF/ALAM**2))) - IF(ISET.EQ.0) THEN - XCHM=XSEA*(1.-(SCH/SLL)**2) - ELSE - XCHM=MAX(0.,XSEA-XSEA0*X1**(2.667*S))*(1.-SCH/SLL) - ENDIF - ENDIF - XBOT=0. - IF(Q2.GT.PMB**2.AND.Q2.GT.1.001*P2EFF) THEN - SBT=MAX(0.,LOG(LOG(PMB**2/ALAM**2)/LOG(P2EFF/ALAM**2))) - IF(ISET.EQ.0) THEN - XBOT=XSEA*(1.-(SBT/SLL)**2) - ELSE - XBOT=MAX(0.,XSEA-XSEA0*X1**(2.667*S))*(1.-SBT/SLL) - ENDIF - ENDIF - -C...Fill parton distributions. - XPGA(0)=XGLU - XPGA(1)=XSEA - XPGA(2)=XSEA - XPGA(3)=XSEA - XPGA(4)=XCHM - XPGA(5)=XBOT - XPGA(KFA)=XPGA(KFA)+XVAL - DO 110 KFL=1,5 - XPGA(-KFL)=XPGA(KFL) - 110 CONTINUE - - RETURN - END diff --git a/PDF/spdf/sasvmd.F b/PDF/spdf/sasvmd.F deleted file mode 100644 index 7855983af33..00000000000 --- a/PDF/spdf/sasvmd.F +++ /dev/null @@ -1,202 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE SASVMD(ISET,KF,X,Q2,P2,ALAM,XPGA,VXPGA) -C...Purpose: to evaluate the VMD parton distributions of a photon, -C...evolved homogeneously from an initial scale P2 to Q2. -C...Does not include dipole suppression factor. -C...ISET is parton distribution set, see above; -C...additionally ISET=0 is used for the evolution of an anomalous photon -C...which branched at a scale P2 and then evolved homogeneously to Q2. -C...ALAM is the 4-flavour Lambda, which is automatically converted -C...to 3- and 5-flavour equivalents as needed. - DIMENSION XPGA(-6:6), VXPGA(-6:6) - DATA PMC/1.3/, PMB/4.6/, AEM/0.007297/, AEM2PI/0.0011614/ - -C...Reset output. - DO 100 KFL=-6,6 - XPGA(KFL)=0. - VXPGA(KFL)=0. - 100 CONTINUE - KFA=IABS(KF) - -C...Calculate Lambda; protect against unphysical Q2 and P2 input. - ALAM3=ALAM*(PMC/ALAM)**(2./27.) - ALAM5=ALAM*(ALAM/PMB)**(2./23.) - P2EFF=MAX(P2,1.2*ALAM3**2) - IF(KFA.EQ.4) P2EFF=MAX(P2EFF,PMC**2) - IF(KFA.EQ.5) P2EFF=MAX(P2EFF,PMB**2) - Q2EFF=MAX(Q2,P2EFF) - -C...Find number of flavours at lower and upper scale. - NFP=4 - IF(P2EFF.LT.PMC**2) NFP=3 - IF(P2EFF.GT.PMB**2) NFP=5 - NFQ=4 - IF(Q2EFF.LT.PMC**2) NFQ=3 - IF(Q2EFF.GT.PMB**2) NFQ=5 - -C...Find s as sum of 3-, 4- and 5-flavour parts. - S=0. - IF(NFP.EQ.3) THEN - Q2DIV=PMC**2 - IF(NFQ.EQ.3) Q2DIV=Q2EFF - S=S+(6./27.)*LOG(LOG(Q2DIV/ALAM3**2)/LOG(P2EFF/ALAM3**2)) - ENDIF - IF(NFP.LE.4.AND.NFQ.GE.4) THEN - P2DIV=P2EFF - IF(NFP.EQ.3) P2DIV=PMC**2 - Q2DIV=Q2EFF - IF(NFQ.EQ.5) Q2DIV=PMB**2 - S=S+(6./25.)*LOG(LOG(Q2DIV/ALAM**2)/LOG(P2DIV/ALAM**2)) - ENDIF - IF(NFQ.EQ.5) THEN - P2DIV=PMB**2 - IF(NFP.EQ.5) P2DIV=P2EFF - S=S+(6./23.)*LOG(LOG(Q2EFF/ALAM5**2)/LOG(P2DIV/ALAM5**2)) - ENDIF - -C...Calculate frequent combinations of x and s. - X1=1.-X - XL=-LOG(X) - S2=S**2 - S3=S**3 - S4=S**4 - -C...Evaluate homogeneous anomalous parton distributions below or -C...above threshold. - IF(ISET.EQ.0) THEN - IF(Q2.LE.P2.OR.(KFA.EQ.4.AND.Q2.LT.PMC**2).OR. - &(KFA.EQ.5.AND.Q2.LT.PMB**2)) THEN - XVAL = X * 1.5 * (X**2+X1**2) - XGLU = 0. - XSEA = 0. - ELSE - XVAL = (1.5/(1.-0.197*S+4.33*S2)*X**2 + (1.5+2.10*S)/ - & (1.+3.29*S)*X1**2 + 5.23*S/(1.+1.17*S+19.9*S3)*X*X1) * - & X**(1./(1.+1.5*S)) * (1.-X**2)**(2.667*S) - XGLU = 4.*S/(1.+4.76*S+15.2*S2+29.3*S4) * - & X**(-2.03*S/(1.+2.44*S)) * (X1*XL)**(1.333*S) * - & ((4.*X**2+7.*X+4.)*X1/3. - 2.*X*(1.+X)*XL) - XSEA = S2/(1.+4.54*S+8.19*S2+8.05*S3) * - & X**(-1.54*S/(1.+1.29*S)) * X1**(2.667*S) * - & ((8.-73.*X+62.*X**2)*X1/9. + (3.-8.*X**2/3.)*X*XL + - & (2.*X-1.)*X*XL**2) - ENDIF - -C...Evaluate set 1D parton distributions below or above threshold. - ELSEIF(ISET.EQ.1) THEN - IF(Q2.LE.P2.OR.(KFA.EQ.4.AND.Q2.LT.PMC**2).OR. - &(KFA.EQ.5.AND.Q2.LT.PMB**2)) THEN - XVAL = 1.294 * X**0.80 * X1**0.76 - XGLU = 1.273 * X**0.40 * X1**1.76 - XSEA = 0.100 * X1**3.76 - ELSE - XVAL = 1.294/(1.+0.252*S+3.079*S2) * X**(0.80-0.13*S) * - & X1**(0.76+0.667*S) * XL**(2.*S) - XGLU = 7.90*S/(1.+5.50*S) * EXP(-5.16*S) * - & X**(-1.90*S/(1.+3.60*S)) * X1**1.30 * XL**(0.50+3.*S) + - & 1.273 * EXP(-10.*S) * X**0.40 * X1**(1.76+3.*S) - XSEA = (0.1-0.397*S2+1.121*S3)/(1.+5.61*S2+5.26*S3) * - & X**(-7.32*S2/(1.+10.3*S2)) * - & X1**((3.76+15.*S+12.*S2)/(1.+4.*S)) - XSEA0 = 0.100 * X1**3.76 - ENDIF - -C...Evaluate set 1M parton distributions below or above threshold. - ELSEIF(ISET.EQ.2) THEN - IF(Q2.LE.P2.OR.(KFA.EQ.4.AND.Q2.LT.PMC**2).OR. - &(KFA.EQ.5.AND.Q2.LT.PMB**2)) THEN - XVAL = 0.8477 * X**0.51 * X1**1.37 - XGLU = 3.42 * X**0.255 * X1**2.37 - XSEA = 0. - ELSE - XVAL = 0.8477/(1.+1.37*S+2.18*S2+3.73*S3) * X**(0.51+0.21*S) - & * X1**1.37 * XL**(2.667*S) - XGLU = 24.*S/(1.+9.6*S+0.92*S2+14.34*S3) * EXP(-5.94*S) * - & X**((-0.013-1.80*S)/(1.+3.14*S)) * X1**(2.37+0.4*S) * - & XL**(0.32+3.6*S) + 3.42 * EXP(-12.*S) * X**0.255 * - & X1**(2.37+3.*S) - XSEA = 0.842*S/(1.+21.3*S-33.2*S2+229.*S3) * - & X**((0.13-2.90*S)/(1.+5.44*S)) * X1**(3.45+0.5*S) * - & XL**(2.8*S) - XSEA0 = 0. - ENDIF - -C...Evaluate set 2D parton distributions below or above threshold. - ELSEIF(ISET.EQ.3) THEN - IF(Q2.LE.P2.OR.(KFA.EQ.4.AND.Q2.LT.PMC**2).OR. - &(KFA.EQ.5.AND.Q2.LT.PMB**2)) THEN - XVAL = X**0.46 * X1**0.64 + 0.76 * X - XGLU = 1.925 * X1**2 - XSEA = 0.242 * X1**4 - ELSE - XVAL = (1.+0.186*S)/(1.-0.209*S+1.495*S2) * X**(0.46+0.25*S) - & * X1**((0.64+0.14*S+5.*S2)/(1.+S)) * XL**(1.9*S) + - & (0.76+0.4*S) * X * X1**(2.667*S) - XGLU = (1.925+5.55*S+147.*S2)/(1.-3.59*S+3.32*S2) * - & EXP(-18.67*S) * X**((-5.81*S-5.34*S2)/(1.+29.*S-4.26*S2)) - & * X1**((2.-5.9*S)/(1.+1.7*S)) * XL**(9.3*S/(1.+1.7*S)) - XSEA = (0.242-0.252*S+1.19*S2)/(1.-0.607*S+21.95*S2) * - & X**(-12.1*S2/(1.+2.62*S+16.7*S2)) * X1**4 * XL**S - XSEA0 = 0.242 * X1**4 - ENDIF - -C...Evaluate set 2M parton distributions below or above threshold. - ELSEIF(ISET.EQ.4) THEN - IF(Q2.LE.P2.OR.(KFA.EQ.4.AND.Q2.LT.PMC**2).OR. - &(KFA.EQ.5.AND.Q2.LT.PMB**2)) THEN - XVAL = 1.168 * X**0.50 * X1**2.60 + 0.965 * X - XGLU = 1.808 * X1**2 - XSEA = 0.209 * X1**4 - ELSE - XVAL = (1.168+1.771*S+29.35*S2) * EXP(-5.776*S) * - & X**((0.5+0.208*S)/(1.-0.794*S+1.516*S2)) * - & X1**((2.6+7.6*S)/(1.+5.*S)) * XL**(5.15*S/(1.+2.*S)) + - & (0.965+22.35*S)/(1.+18.4*S) * X * X1**(2.667*S) - XGLU = (1.808+29.9*S)/(1.+26.4*S) * EXP(-5.28*S) * - & X**((-5.35*S-10.11*S2)/(1.+31.71*S)) * - & X1**((2.-7.3*S+4.*S2)/(1.+2.5*S)) * - & XL**(10.9*S/(1.+2.5*S)) - XSEA = (0.209+0.644*S2)/(1.+0.319*S+17.6*S2) * - & X**((-0.373*S-7.71*S2)/(1.+0.815*S+11.0*S2)) * - & X1**(4.+S) * XL**(0.45*S) - XSEA0 = 0.209 * X1**4 - ENDIF - ENDIF - -C...Threshold factors for c and b sea. - SLL=LOG(LOG(Q2EFF/ALAM**2)/LOG(P2EFF/ALAM**2)) - XCHM=0. - IF(Q2.GT.PMC**2.AND.Q2.GT.1.001*P2EFF) THEN - SCH=MAX(0.,LOG(LOG(PMC**2/ALAM**2)/LOG(P2EFF/ALAM**2))) - IF(ISET.EQ.0) THEN - XCHM=XSEA*(1.-(SCH/SLL)**2) - ELSE - XCHM=MAX(0.,XSEA-XSEA0*X1**(2.667*S))*(1.-SCH/SLL) - ENDIF - ENDIF - XBOT=0. - IF(Q2.GT.PMB**2.AND.Q2.GT.1.001*P2EFF) THEN - SBT=MAX(0.,LOG(LOG(PMB**2/ALAM**2)/LOG(P2EFF/ALAM**2))) - IF(ISET.EQ.0) THEN - XBOT=XSEA*(1.-(SBT/SLL)**2) - ELSE - XBOT=MAX(0.,XSEA-XSEA0*X1**(2.667*S))*(1.-SBT/SLL) - ENDIF - ENDIF - -C...Fill parton distributions. - XPGA(0)=XGLU - XPGA(1)=XSEA - XPGA(2)=XSEA - XPGA(3)=XSEA - XPGA(4)=XCHM - XPGA(5)=XBOT - XPGA(KFA)=XPGA(KFA)+XVAL - DO 110 KFL=1,5 - XPGA(-KFL)=XPGA(KFL) - 110 CONTINUE - VXPGA(KFA)=XVAL - VXPGA(-KFA)=XVAL - - RETURN - END diff --git a/PDF/spdf/seadis.F b/PDF/spdf/seadis.F deleted file mode 100644 index caaba634936..00000000000 --- a/PDF/spdf/seadis.F +++ /dev/null @@ -1,46 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:19 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:29 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C---------------------------------------------------------------------- - FUNCTION SEADIS(XX) - DIMENSION - + SQ2(2:3) - COMMON/W5051I1/ - + GPSI(2:3),GAA(2:3),GPSIA(2:3),GAPSI(2:3),GMINUS(2:3), - 1 AL(2:3),BET(2:3),GPLUS(2:3), - 2 VNQ02(2:3),SNQ02(2:3),GNQ02(2:3) - COMMON/W5051I2/ Q2L -*- sea quarks' momenta - PARAMETER (Q02=0.5,ALAM2=0.045*0.045) - - DATA ZERO/0./,HALF/0.5/,ONE/1./,TWO/2./ - DATA PTF/0.25/,PSF/0.75/ - DATA IRAZ/0/, Q2OLD/-1./ - SAVE SQ2, BSQ2 - - IF(Q2L.NE.Q2OLD) THEN - Q2OLD = Q2L - S = LOG( LOG( MAX(Q02,Q2L)/ALAM2)/ LOG( Q02/ALAM2)) - DO I=2,3 - D1 = SNQ02(I)*EXP(-GPSI(I)*S) - D2PLUS=(ONE-AL(I))*(SNQ02(I)+VNQ02(I))-BET(I)*GNQ02(I) - D2MINU=AL(I)*(SNQ02(I)+VNQ02(I))+BET(I)*GNQ02(I) - D2 =D2PLUS*EXP(-GPLUS (I)*S) + - 1 D2MINU*EXP(-GMINUS(I)*S) - - 2 VNQ02(I)*EXP(-GPSI(I)*S) - SQ2(I)=PSF*D2 + PTF*D1 - ENDDO - BSQ2=SQ2(2)/SQ2(3) - TWO - ENDIF - SEADIS=SQ2(2) * (ONE-XX)**BSQ2 * (BSQ2+ONE) - RETURN - END diff --git a/PDF/spdf/sfabfow.F b/PDF/spdf/sfabfow.F deleted file mode 100644 index 17376e3d2f9..00000000000 --- a/PDF/spdf/sfabfow.F +++ /dev/null @@ -1,1153 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:21 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:29 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFABFOW(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL) -#include "pdf/expdp.inc" - + PAR(40),CALC(8,20,25),CALCO(8,20,25),ZEROD, - + DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL - REAL X, Q, UPV, DNV, USEA, DSEA, STR, CHM, GL - COMMON/W5051I3/CALCO - REAL XPDF(7) - DATA ZEROD/0.D0/ -C --------------------------------------------------------------------- - DATA (PAR(I),I=1,40) / - + 0.23000000D+00, 0.87291000D+00, 0.30563000D+01,-0.81541000D+00, - + 0.00000000D+00, 0.10280000D+01, 0.53963000D+01, 0.00000000D+00, - + 0.11002000D+01, 0.87514000D+01, 0.21308913D+01, 0.00000000D+00, - + 0.40000000D+01, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.10000000D+01, 0.10000000D+01, 0.92300000D+00, 0.11240000D+01, - + 0.10000000D+01, 0.10000000D+01, 0.10000000D+01, 0.10520000D+01, - + 0.18200000D+01, 0.16496000D+03, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.10000000D+01, 0.20000000D-07, 0.20000000D+01, 0.10000000D+09/ - DATA ((CALC(I,K,1 ),I=1,8), K=1,9) / - + 0.20194028D+00, 0.18738953D+00, 0.18176816D+00, 0.18176816D+00, - + 0.18176816D+00, 0.18176816D+00, 0.21223805D+01,-0.17347235D-17, - + 0.24423567D+00, 0.22842866D+00, 0.22167093D+00, 0.22163287D+00, - + 0.22164650D+00, 0.22167093D+00, 0.33355957D+01, 0.40286953D-01, - + 0.29313746D+00, 0.27603823D+00, 0.26809481D+00, 0.26802280D+00, - + 0.26804826D+00, 0.26809481D+00, 0.47295147D+01, 0.87113536D-01, - + 0.34896078D+00, 0.33053340D+00, 0.32135373D+00, 0.32125188D+00, - + 0.32128744D+00, 0.32135373D+00, 0.63030943D+01, 0.14079460D+00, - + 0.41196816D+00, 0.39217673D+00, 0.38170912D+00, 0.38158152D+00, - + 0.38162550D+00, 0.38170912D+00, 0.80526510D+01, 0.20159242D+00, - + 0.48239147D+00, 0.46120006D+00, 0.44939173D+00, 0.44924244D+00, - + 0.44929323D+00, 0.44939173D+00, 0.99718541D+01, 0.26973861D+00, - + 0.56042446D+00, 0.53779719D+00, 0.52459425D+00, 0.52442730D+00, - + 0.52448335D+00, 0.52459425D+00, 0.12052181D+02, 0.34542675D+00, - + 0.64621175D+00, 0.62211276D+00, 0.60746034D+00, 0.60727971D+00, - + 0.60733952D+00, 0.60746034D+00, 0.14282793D+02, 0.42880139D+00, - + 0.73984307D+00, 0.71423660D+00, 0.69807888D+00, 0.69788851D+00, - + 0.69795065D+00, 0.69807888D+00, 0.16650759D+02, 0.51995229D+00/ - DATA ((CALC(I,K,1 ),I=1,8), K=10,18) / - + 0.84134569D+00, 0.81419609D+00, 0.79647647D+00, 0.79628021D+00, - + 0.79634332D+00, 0.79647647D+00, 0.19141215D+02, 0.61890693D+00, - + 0.95067917D+00, 0.92195096D+00, 0.90261215D+00, 0.90241381D+00, - + 0.90247660D+00, 0.90261215D+00, 0.21737598D+02, 0.72562522D+00, - + 0.10677309D+01, 0.10373889D+01, 0.10163730D+01, 0.10161763D+01, - + 0.10162376D+01, 0.10163730D+01, 0.24421896D+02, 0.83999511D+00, - + 0.11923132D+01, 0.11603224D+01, 0.11375714D+01, 0.11373799D+01, - + 0.11374385D+01, 0.11375714D+01, 0.27174942D+02, 0.96182969D+00, - + 0.13241617D+01, 0.12904878D+01, 0.12659430D+01, 0.12657604D+01, - + 0.12658152D+01, 0.12659430D+01, 0.29976710D+02, 0.10908656D+01, - + 0.14629355D+01, 0.14275444D+01, 0.14011475D+01, 0.14009772D+01, - + 0.14010272D+01, 0.14011475D+01, 0.32806631D+02, 0.12267633D+01, - + 0.16082186D+01, 0.15710768D+01, 0.15427697D+01, 0.15426149D+01, - + 0.15426593D+01, 0.15427697D+01, 0.35643910D+02, 0.13691081D+01, - + 0.17595228D+01, 0.17205977D+01, 0.16903224D+01, 0.16901864D+01, - + 0.16902243D+01, 0.16903224D+01, 0.38467840D+02, 0.15174136D+01, - + 0.19162923D+01, 0.18755519D+01, 0.18432512D+01, 0.18431371D+01, - + 0.18431678D+01, 0.18432512D+01, 0.41258096D+02, 0.16711262D+01/ - DATA ((CALC(I,K,1 ),I=1,8), K=19,20) / - + 0.20779090D+01, 0.20353224D+01, 0.20009399D+01, 0.20008506D+01, - + 0.20008735D+01, 0.20009399D+01, 0.43995019D+02, 0.18296301D+01, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALC(I,K,2 ),I=1,8), K=1,9) / - + 0.21583491D+00, 0.19158330D+00, 0.18018200D+00, 0.18018200D+00, - + 0.18018200D+00, 0.18018200D+00, 0.21138952D+01,-0.52041704D-17, - + 0.25255607D+00, 0.22649496D+00, 0.21327094D+00, 0.21323316D+00, - + 0.21324695D+00, 0.21327094D+00, 0.31115744D+01, 0.33702174D-01, - + 0.29378966D+00, 0.26588969D+00, 0.25077892D+00, 0.25070944D+00, - + 0.25073454D+00, 0.25077892D+00, 0.42176629D+01, 0.71850099D-01, - + 0.33964459D+00, 0.30987604D+00, 0.29281357D+00, 0.29271828D+00, - + 0.29275242D+00, 0.29281357D+00, 0.54262314D+01, 0.11455242D+00, - + 0.39018756D+00, 0.35852046D+00, 0.33944066D+00, 0.33932526D+00, - + 0.33936635D+00, 0.33944066D+00, 0.67303079D+01, 0.16187578D+00, - + 0.44544250D+00, 0.41184667D+00, 0.39068345D+00, 0.39055345D+00, - + 0.39059953D+00, 0.39068345D+00, 0.81210348D+01, 0.21384434D+00, - + 0.50539764D+00, 0.46984285D+00, 0.44652981D+00, 0.44639052D+00, - + 0.44643980D+00, 0.44652981D+00, 0.95883720D+01, 0.27044684D+00, - + 0.56999702D+00, 0.53245303D+00, 0.50692372D+00, 0.50678027D+00, - + 0.50683109D+00, 0.50692372D+00, 0.11121064D+02, 0.33162813D+00, - + 0.63914062D+00, 0.59957732D+00, 0.57176547D+00, 0.57162277D+00, - + 0.57167363D+00, 0.57176547D+00, 0.12706903D+02, 0.39728933D+00/ - DATA ((CALC(I,K,2 ),I=1,8), K=10,18) / - + 0.71268211D+00, 0.67106968D+00, 0.64090944D+00, 0.64077222D+00, - + 0.64082174D+00, 0.64090944D+00, 0.14332935D+02, 0.46728562D+00, - + 0.79042864D+00, 0.74673766D+00, 0.71416390D+00, 0.71403665D+00, - + 0.71408358D+00, 0.71416390D+00, 0.15985692D+02, 0.54142599D+00, - + 0.87214117D+00, 0.82634277D+00, 0.79129132D+00, 0.79117834D+00, - + 0.79122157D+00, 0.79129132D+00, 0.17651425D+02, 0.61947365D+00, - + 0.95753582D+00, 0.90960182D+00, 0.87200980D+00, 0.87191517D+00, - + 0.87195370D+00, 0.87200980D+00, 0.19316334D+02, 0.70114732D+00, - + 0.10462861D+01, 0.99618915D+00, 0.95599526D+00, 0.95592283D+00, - + 0.95595580D+00, 0.95599526D+00, 0.20966798D+02, 0.78612350D+00, - + 0.11380258D+01, 0.10857397D+01, 0.10428845D+01, 0.10428379D+01, - + 0.10428646D+01, 0.10428845D+01, 0.22589582D+02, 0.87403953D+00, - + 0.12323534D+01, 0.11778530D+01, 0.11322792D+01, 0.11322618D+01, - + 0.11322815D+01, 0.11322792D+01, 0.24172034D+02, 0.96449744D+00, - + 0.13288358D+01, 0.12720973D+01, 0.12237501D+01, 0.12237652D+01, - + 0.12237774D+01, 0.12237501D+01, 0.25702254D+02, 0.10570685D+01, - + 0.14270141D+01, 0.13680153D+01, 0.13168427D+01, 0.13168932D+01, - + 0.13168974D+01, 0.13168427D+01, 0.27169250D+02, 0.11512983D+01/ - DATA ((CALC(I,K,2 ),I=1,8), K=19,20) / - + 0.15264089D+01, 0.14651291D+01, 0.14110822D+01, 0.14111709D+01, - + 0.14111667D+01, 0.14110822D+01, 0.28563054D+02, 0.12467124D+01, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALC(I,K,3 ),I=1,8), K=1,9) / - + 0.23955354D+00, 0.20004558D+00, 0.17704643D+00, 0.17704643D+00, - + 0.17704643D+00, 0.17704643D+00, 0.20970011D+01, 0.52041704D-17, - + 0.27130160D+00, 0.22936997D+00, 0.20347723D+00, 0.20345215D+00, - + 0.20346114D+00, 0.20347723D+00, 0.28837840D+01, 0.27406605D-01, - + 0.30603895D+00, 0.26166466D+00, 0.23280614D+00, 0.23276307D+00, - + 0.23277886D+00, 0.23280614D+00, 0.37286621D+01, 0.57746771D-01, - + 0.34371025D+00, 0.29687360D+00, 0.26497877D+00, 0.26492438D+00, - + 0.26494503D+00, 0.26497877D+00, 0.46232124D+01, 0.90966868D-01, - + 0.38424325D+00, 0.33492418D+00, 0.29992417D+00, 0.29986475D+00, - + 0.29988858D+00, 0.29992417D+00, 0.55592695D+01, 0.12699659D+00, - + 0.42752842D+00, 0.37570676D+00, 0.33753472D+00, 0.33747622D+00, - + 0.33750172D+00, 0.33753472D+00, 0.65277378D+01, 0.16572895D+00, - + 0.47343421D+00, 0.41908995D+00, 0.37768129D+00, 0.37762929D+00, - + 0.37765516D+00, 0.37768129D+00, 0.75192617D+01, 0.20703539D+00, - + 0.52180091D+00, 0.46491448D+00, 0.42020721D+00, 0.42016694D+00, - + 0.42019206D+00, 0.42020721D+00, 0.85242535D+01, 0.25075977D+00, - + 0.57244319D+00, 0.51299568D+00, 0.46493073D+00, 0.46490708D+00, - + 0.46493048D+00, 0.46493073D+00, 0.95330873D+01, 0.29672077D+00/ - DATA ((CALC(I,K,3 ),I=1,8), K=10,18) / - + 0.62515070D+00, 0.56312415D+00, 0.51164567D+00, 0.51164319D+00, - + 0.51166406D+00, 0.51164567D+00, 0.10536268D+02, 0.34471262D+00, - + 0.67968980D+00, 0.61506741D+00, 0.56012316D+00, 0.56014606D+00, - + 0.56016373D+00, 0.56012316D+00, 0.11524580D+02, 0.39450672D+00, - + 0.73580569D+00, 0.66857209D+00, 0.61011374D+00, 0.61016592D+00, - + 0.61017983D+00, 0.61011374D+00, 0.12489237D+02, 0.44585384D+00, - + 0.79322499D+00, 0.72336646D+00, 0.66134996D+00, 0.66143497D+00, - + 0.66144468D+00, 0.66134996D+00, 0.13421999D+02, 0.49848661D+00, - + 0.85165870D+00, 0.77916341D+00, 0.71354930D+00, 0.71367041D+00, - + 0.71367557D+00, 0.71354930D+00, 0.14315288D+02, 0.55212255D+00, - + 0.91080557D+00, 0.83566379D+00, 0.76641753D+00, 0.76657768D+00, - + 0.76657805D+00, 0.76641753D+00, 0.15162271D+02, 0.60646732D+00, - + 0.97035560D+00, 0.89255991D+00, 0.81965219D+00, 0.81985402D+00, - + 0.81984942D+00, 0.81965219D+00, 0.15956931D+02, 0.66121826D+00, - + 0.10299938D+01, 0.94953929D+00, 0.87294633D+00, 0.87319219D+00, - + 0.87318251D+00, 0.87294633D+00, 0.16694112D+02, 0.71606809D+00, - + 0.10894039D+01, 0.10062884D+01, 0.92599221D+00, 0.92628417D+00, - + 0.92626936D+00, 0.92599221D+00, 0.17369551D+02, 0.77070866D+00/ - DATA ((CALC(I,K,3 ),I=1,8), K=19,20) / - + 0.11482723D+01, 0.10624964D+01, 0.97848509D+00, 0.97882493D+00, - + 0.97880498D+00, 0.97848509D+00, 0.17979883D+02, 0.82483467D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALC(I,K,4 ),I=1,8), K=1,9) / - + 0.27919948D+00, 0.21681220D+00, 0.17091990D+00, 0.17091990D+00, - + 0.17091990D+00, 0.17091990D+00, 0.20635167D+01,-0.86736174D-17, - + 0.30719611D+00, 0.24175123D+00, 0.19141648D+00, 0.19141170D+00, - + 0.19141779D+00, 0.19141648D+00, 0.26646269D+01, 0.22020703D-01, - + 0.33688109D+00, 0.26837614D+00, 0.21356081D+00, 0.21355815D+00, - + 0.21356933D+00, 0.21356081D+00, 0.32852034D+01, 0.45728609D-01, - + 0.36811194D+00, 0.29654497D+00, 0.23721569D+00, 0.23722139D+00, - + 0.23723688D+00, 0.23721569D+00, 0.39172171D+01, 0.70986696D-01, - + 0.40075271D+00, 0.32612258D+00, 0.26225048D+00, 0.26227027D+00, - + 0.26228943D+00, 0.26225048D+00, 0.45537009D+01, 0.97664462D-01, - + 0.43464550D+00, 0.35695222D+00, 0.28851342D+00, 0.28855254D+00, - + 0.28857485D+00, 0.28851342D+00, 0.51876525D+01, 0.12561019D+00, - + 0.46962465D+00, 0.38886971D+00, 0.31584569D+00, 0.31590887D+00, - + 0.31593392D+00, 0.31584569D+00, 0.58124017D+01, 0.15466500D+00, - + 0.50551327D+00, 0.42169989D+00, 0.34407789D+00, 0.34416942D+00, - + 0.34419687D+00, 0.34407789D+00, 0.64216588D+01, 0.18465932D+00, - + 0.54212547D+00, 0.45525893D+00, 0.37303230D+00, 0.37315602D+00, - + 0.37318560D+00, 0.37303230D+00, 0.70095902D+01, 0.21541516D+00/ - DATA ((CALC(I,K,4 ),I=1,8), K=10,18) / - + 0.57926783D+00, 0.48935570D+00, 0.40252430D+00, 0.40268365D+00, - + 0.40271512D+00, 0.40252430D+00, 0.75708958D+01, 0.24674751D+00, - + 0.61674122D+00, 0.52379364D+00, 0.43236416D+00, 0.43256218D+00, - + 0.43259533D+00, 0.43236416D+00, 0.81008614D+01, 0.27846612D+00, - + 0.65434284D+00, 0.55837275D+00, 0.46235905D+00, 0.46259841D+00, - + 0.46263305D+00, 0.46235905D+00, 0.85954001D+01, 0.31037751D+00, - + 0.69186835D+00, 0.59289174D+00, 0.49231516D+00, 0.49259814D+00, - + 0.49263410D+00, 0.49231516D+00, 0.90510786D+01, 0.34228709D+00, - + 0.72911419D+00, 0.62715029D+00, 0.52203989D+00, 0.52236843D+00, - + 0.52240554D+00, 0.52203989D+00, 0.94651297D+01, 0.37400133D+00, - + 0.76587978D+00, 0.66095125D+00, 0.55134404D+00, 0.55171978D+00, - + 0.55175786D+00, 0.55134404D+00, 0.98354508D+01, 0.40533002D+00, - + 0.80196976D+00, 0.69410291D+00, 0.58004405D+00, 0.58046828D+00, - + 0.58050714D+00, 0.58004405D+00, 0.10160591D+02, 0.43608839D+00, - + 0.83719619D+00, 0.72642107D+00, 0.60796400D+00, 0.60843772D+00, - + 0.60847716D+00, 0.60796400D+00, 0.10439724D+02, 0.46609923D+00, - + 0.87138042D+00, 0.75773103D+00, 0.63493754D+00, 0.63546150D+00, - + 0.63550128D+00, 0.63493754D+00, 0.10672617D+02, 0.49519478D+00/ - DATA ((CALC(I,K,4 ),I=1,8), K=19,20) / - + 0.90435501D+00, 0.78786935D+00, 0.66080966D+00, 0.66138430D+00, - + 0.66142418D+00, 0.66080966D+00, 0.10859586D+02, 0.52321845D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALC(I,K,5 ),I=1,8), K=1,9) / - + 0.34327808D+00, 0.24880963D+00, 0.15922736D+00, 0.15922736D+00, - + 0.15922736D+00, 0.15922736D+00, 0.19977525D+01, 0.00000000D+00, - + 0.36786460D+00, 0.26977928D+00, 0.17402038D+00, 0.17403996D+00, - + 0.17405794D+00, 0.17402038D+00, 0.24242245D+01, 0.17061951D-01, - + 0.39300678D+00, 0.29134137D+00, 0.18947912D+00, 0.18952311D+00, - + 0.18955798D+00, 0.18947912D+00, 0.28433784D+01, 0.34819499D-01, - + 0.41855640D+00, 0.31334873D+00, 0.20546319D+00, 0.20553578D+00, - + 0.20558647D+00, 0.20546319D+00, 0.32499600D+01, 0.53131698D-01, - + 0.44438149D+00, 0.33567084D+00, 0.22184868D+00, 0.22195352D+00, - + 0.22201896D+00, 0.22184868D+00, 0.36398535D+01, 0.71874004D-01, - + 0.47034243D+00, 0.35816994D+00, 0.23850495D+00, 0.23864521D+00, - + 0.23872434D+00, 0.23850495D+00, 0.40093587D+01, 0.90915002D-01, - + 0.49630067D+00, 0.38070976D+00, 0.25530329D+00, 0.25548169D+00, - + 0.25557342D+00, 0.25530329D+00, 0.43552632D+01, 0.11012505D+00, - + 0.52211769D+00, 0.40315441D+00, 0.27211578D+00, 0.27233459D+00, - + 0.27243782D+00, 0.27211578D+00, 0.46748810D+01, 0.12937513D+00, - + 0.54765633D+00, 0.42536971D+00, 0.28881646D+00, 0.28907758D+00, - + 0.28919119D+00, 0.28881646D+00, 0.49660412D+01, 0.14853807D+00/ - DATA ((CALC(I,K,5 ),I=1,8), K=10,18) / - + 0.57278214D+00, 0.44722448D+00, 0.30528267D+00, 0.30558761D+00, - + 0.30571046D+00, 0.30528267D+00, 0.52270916D+01, 0.16748981D+00, - + 0.59736451D+00, 0.46859171D+00, 0.32139606D+00, 0.32174599D+00, - + 0.32187692D+00, 0.32139606D+00, 0.54568849D+01, 0.18611047D+00, - + 0.62127804D+00, 0.48934981D+00, 0.33704382D+00, 0.33743958D+00, - + 0.33757743D+00, 0.33704382D+00, 0.56547590D+01, 0.20428558D+00, - + 0.64440369D+00, 0.50938381D+00, 0.35211979D+00, 0.35256193D+00, - + 0.35270551D+00, 0.35211979D+00, 0.58205086D+01, 0.22190716D+00, - + 0.66662991D+00, 0.52858643D+00, 0.36652544D+00, 0.36701423D+00, - + 0.36716235D+00, 0.36652544D+00, 0.59543523D+01, 0.23887477D+00, - + 0.68785373D+00, 0.54685908D+00, 0.38017085D+00, 0.38070628D+00, - + 0.38085774D+00, 0.38017085D+00, 0.60568930D+01, 0.25509642D+00, - + 0.70798155D+00, 0.56411274D+00, 0.39297543D+00, 0.39355726D+00, - + 0.39371088D+00, 0.39297543D+00, 0.61290758D+01, 0.27048936D+00, - + 0.72692995D+00, 0.58026859D+00, 0.40486854D+00, 0.40549631D+00, - + 0.40565090D+00, 0.40486854D+00, 0.61721427D+01, 0.28498071D+00, - + 0.74462615D+00, 0.59525856D+00, 0.41578998D+00, 0.41646301D+00, - + 0.41661740D+00, 0.41578998D+00, 0.61875858D+01, 0.29850793D+00/ - DATA ((CALC(I,K,5 ),I=1,8), K=19,20) / - + 0.76100847D+00, 0.60902567D+00, 0.42569018D+00, 0.42640762D+00, - + 0.42656065D+00, 0.42569018D+00, 0.61771012D+01, 0.31101904D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALC(I,K,6 ),I=1,8), K=1,9) / - + 0.44106537D+00, 0.30515567D+00, 0.13794628D+00, 0.13794628D+00, - + 0.13794628D+00, 0.13794628D+00, 0.18709523D+01,-0.17347235D-17, - + 0.46119251D+00, 0.32136177D+00, 0.14716767D+00, 0.14720135D+00, - + 0.14723645D+00, 0.14716767D+00, 0.21299443D+01, 0.12306566D-01, - + 0.48095509D+00, 0.33729624D+00, 0.15641371D+00, 0.15648271D+00, - + 0.15654848D+00, 0.15641371D+00, 0.23687832D+01, 0.24632075D-01, - + 0.50024830D+00, 0.35285650D+00, 0.16558478D+00, 0.16569038D+00, - + 0.16578272D+00, 0.16558478D+00, 0.25855725D+01, 0.36876049D-01, - + 0.51898317D+00, 0.36795632D+00, 0.17459826D+00, 0.17474146D+00, - + 0.17485651D+00, 0.17459826D+00, 0.27791414D+01, 0.48954867D-01, - + 0.53707332D+00, 0.38251257D+00, 0.18337484D+00, 0.18355637D+00, - + 0.18369053D+00, 0.18337484D+00, 0.29487906D+01, 0.60788045D-01, - + 0.55443725D+00, 0.39644746D+00, 0.19184096D+00, 0.19206130D+00, - + 0.19221117D+00, 0.19184096D+00, 0.30941757D+01, 0.72300639D-01, - + 0.57099901D+00, 0.40968919D+00, 0.19992912D+00, 0.20018850D+00, - + 0.20035090D+00, 0.19992912D+00, 0.32153306D+01, 0.83423599D-01, - + 0.58668840D+00, 0.42217206D+00, 0.20757792D+00, 0.20787635D+00, - + 0.20804828D+00, 0.20757792D+00, 0.33126163D+01, 0.94093852D-01/ - DATA ((CALC(I,K,6 ),I=1,8), K=10,18) / - + 0.60144177D+00, 0.43383715D+00, 0.21473262D+00, 0.21506991D+00, - + 0.21524858D+00, 0.21473262D+00, 0.33866886D+01, 0.10425484D+00, - + 0.61520235D+00, 0.44463269D+00, 0.22134538D+00, 0.22172112D+00, - + 0.22190390D+00, 0.22134538D+00, 0.34384597D+01, 0.11385675D+00, - + 0.62792073D+00, 0.45451441D+00, 0.22737543D+00, 0.22778906D+00, - + 0.22797350D+00, 0.22737543D+00, 0.34690589D+01, 0.12285682D+00, - + 0.63955514D+00, 0.46344576D+00, 0.23278927D+00, 0.23324005D+00, - + 0.23342389D+00, 0.23278927D+00, 0.34797928D+01, 0.13121941D+00, - + 0.65007163D+00, 0.47139806D+00, 0.23756070D+00, 0.23804772D+00, - + 0.23822885D+00, 0.23756070D+00, 0.34721068D+01, 0.13891615D+00, - + 0.65944422D+00, 0.47835053D+00, 0.24167075D+00, 0.24219297D+00, - + 0.24236945D+00, 0.24167075D+00, 0.34475470D+01, 0.14592585D+00, - + 0.66765484D+00, 0.48429022D+00, 0.24510753D+00, 0.24566378D+00, - + 0.24583383D+00, 0.24510753D+00, 0.34077251D+01, 0.15223439D+00, - + 0.67469321D+00, 0.48921180D+00, 0.24786598D+00, 0.24845499D+00, - + 0.24861699D+00, 0.24786598D+00, 0.33542852D+01, 0.15783446D+00, - + 0.68055661D+00, 0.49311730D+00, 0.24994757D+00, 0.25056793D+00, - + 0.25072043D+00, 0.24994757D+00, 0.32888738D+01, 0.16272529D+00/ - DATA ((CALC(I,K,6 ),I=1,8), K=19,20) / - + 0.68524957D+00, 0.49601572D+00, 0.25135982D+00, 0.25201006D+00, - + 0.25215174D+00, 0.25135982D+00, 0.32131134D+01, 0.16691222D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALC(I,K,7 ),I=1,8), K=1,9) / - + 0.57479616D+00, 0.38719266D+00, 0.10278833D+00, 0.10278833D+00, - + 0.10278833D+00, 0.10278833D+00, 0.16355532D+01,-0.34694470D-17, - + 0.58720174D+00, 0.39563566D+00, 0.10712829D+00, 0.10715295D+00, - + 0.10717037D+00, 0.10712829D+00, 0.17455238D+01, 0.78757968D-02, - + 0.59856678D+00, 0.40324505D+00, 0.11119185D+00, 0.11124212D+00, - + 0.11127289D+00, 0.11119185D+00, 0.18349430D+01, 0.15405101D-01, - + 0.60886221D+00, 0.40999594D+00, 0.11493931D+00, 0.11501585D+00, - + 0.11505634D+00, 0.11493931D+00, 0.19046215D+01, 0.22549219D-01, - + 0.61806541D+00, 0.41587010D+00, 0.11834085D+00, 0.11844404D+00, - + 0.11849098D+00, 0.11834085D+00, 0.19554890D+01, 0.29278758D-01, - + 0.62616072D+00, 0.42085649D+00, 0.12137335D+00, 0.12150333D+00, - + 0.12155379D+00, 0.12137335D+00, 0.19887275D+01, 0.35570892D-01, - + 0.63313652D+00, 0.42494831D+00, 0.12401823D+00, 0.12417493D+00, - + 0.12422629D+00, 0.12401823D+00, 0.20056144D+01, 0.41407112D-01, - + 0.63898674D+00, 0.42814438D+00, 0.12626237D+00, 0.12644549D+00, - + 0.12649543D+00, 0.12626237D+00, 0.20075283D+01, 0.46774184D-01, - + 0.64371052D+00, 0.43044863D+00, 0.12809747D+00, 0.12830656D+00, - + 0.12835302D+00, 0.12809747D+00, 0.19959097D+01, 0.51663585D-01/ - DATA ((CALC(I,K,7 ),I=1,8), K=10,18) / - + 0.64731232D+00, 0.43187014D+00, 0.12951997D+00, 0.12975440D+00, - + 0.12979560D+00, 0.12951997D+00, 0.19722294D+01, 0.56071426D-01, - + 0.64980187D+00, 0.43242299D+00, 0.13053075D+00, 0.13078975D+00, - + 0.13082413D+00, 0.13053075D+00, 0.19379614D+01, 0.59998201D-01, - + 0.65119406D+00, 0.43212600D+00, 0.13113485D+00, 0.13141751D+00, - + 0.13144375D+00, 0.13113485D+00, 0.18945582D+01, 0.63448515D-01, - + 0.65150876D+00, 0.43100251D+00, 0.13134112D+00, 0.13164643D+00, - + 0.13166342D+00, 0.13134112D+00, 0.18434285D+01, 0.66430783D-01, - + 0.65077057D+00, 0.42908000D+00, 0.13116188D+00, 0.13148871D+00, - + 0.13149555D+00, 0.13116188D+00, 0.17859194D+01, 0.68956888D-01, - + 0.64900852D+00, 0.42638974D+00, 0.13061250D+00, 0.13095966D+00, - + 0.13095562D+00, 0.13061250D+00, 0.17233014D+01, 0.71041811D-01, - + 0.64625572D+00, 0.42296638D+00, 0.12971104D+00, 0.13007724D+00, - + 0.13006177D+00, 0.12971104D+00, 0.16567571D+01, 0.72703245D-01, - + 0.64254896D+00, 0.41884749D+00, 0.12847776D+00, 0.12886168D+00, - + 0.12883440D+00, 0.12847776D+00, 0.15873722D+01, 0.73961188D-01, - + 0.63792833D+00, 0.41407310D+00, 0.12693476D+00, 0.12733502D+00, - + 0.12729569D+00, 0.12693476D+00, 0.15161309D+01, 0.74837535D-01/ - DATA ((CALC(I,K,7 ),I=1,8), K=19,20) / - + 0.63243672D+00, 0.40868521D+00, 0.12510555D+00, 0.12552074D+00, - + 0.12546924D+00, 0.12510555D+00, 0.14439130D+01, 0.75355673D-01, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALC(I,K,8 ),I=1,8), K=1,9) / - + 0.66868210D+00, 0.43706345D+00, 0.72925294D-01, 0.72925294D-01, - + 0.72925294D-01, 0.72925294D-01, 0.13980776D+01, 0.17347235D-17, - + 0.67274888D+00, 0.43768741D+00, 0.74937012D-01, 0.74969093D-01, - + 0.74969402D-01, 0.74937012D-01, 0.14300181D+01, 0.52887558D-02, - + 0.67556992D+00, 0.43742644D+00, 0.76645438D-01, 0.76708235D-01, - + 0.76706403D-01, 0.76645438D-01, 0.14465159D+01, 0.10164601D-01, - + 0.67717298D+00, 0.43630833D+00, 0.78045072D-01, 0.78137148D-01, - + 0.78131171D-01, 0.78045072D-01, 0.14492734D+01, 0.14625694D-01, - + 0.67758301D+00, 0.43435862D+00, 0.79133832D-01, 0.79253695D-01, - + 0.79241904D-01, 0.79133832D-01, 0.14397941D+01, 0.18672619D-01, - + 0.67683131D+00, 0.43160862D+00, 0.79914994D-01, 0.80061106D-01, - + 0.80042142D-01, 0.79914994D-01, 0.14196350D+01, 0.22311181D-01, - + 0.67495101D+00, 0.42809125D+00, 0.80394014D-01, 0.80564798D-01, - + 0.80537583D-01, 0.80394014D-01, 0.13902979D+01, 0.25549084D-01, - + 0.67197853D+00, 0.42384224D+00, 0.80579342D-01, 0.80773192D-01, - + 0.80736896D-01, 0.80579342D-01, 0.13532281D+01, 0.28396835D-01, - + 0.66795328D+00, 0.41889965D+00, 0.80481868D-01, 0.80697156D-01, - + 0.80651177D-01, 0.80481868D-01, 0.13097992D+01, 0.30867233D-01/ - DATA ((CALC(I,K,8 ),I=1,8), K=10,18) / - + 0.66291757D+00, 0.41330371D+00, 0.80114657D-01, 0.80349743D-01, - + 0.80293679D-01, 0.80114657D-01, 0.12612964D+01, 0.32975137D-01, - + 0.65691643D+00, 0.40709650D+00, 0.79492644D-01, 0.79745886D-01, - + 0.79679516D-01, 0.79492644D-01, 0.12089080D+01, 0.34737194D-01, - + 0.64999738D+00, 0.40032171D+00, 0.78632316D-01, 0.78902073D-01, - + 0.78825336D-01, 0.78632316D-01, 0.11537173D+01, 0.36171551D-01, - + 0.64221020D+00, 0.39302424D+00, 0.77551397D-01, 0.77836042D-01, - + 0.77749018D-01, 0.77551397D-01, 0.10966991D+01, 0.37297558D-01, - + 0.63360659D+00, 0.38524991D+00, 0.76268533D-01, 0.76566460D-01, - + 0.76469352D-01, 0.76268533D-01, 0.10387177D+01, 0.38135485D-01, - + 0.62423984D+00, 0.37704505D+00, 0.74802994D-01, 0.75112622D-01, - + 0.75005743D-01, 0.74802994D-01, 0.98052794D+00, 0.38706224D-01, - + 0.61416450D+00, 0.36845616D+00, 0.73174378D-01, 0.73494162D-01, - + 0.73377914D-01, 0.73174378D-01, 0.92277789D+00, 0.39031021D-01, - + 0.60343597D+00, 0.35952958D+00, 0.71402341D-01, 0.71730776D-01, - + 0.71605639D-01, 0.71402341D-01, 0.86601365D+00, 0.39131206D-01, - + 0.59211017D+00, 0.35031110D+00, 0.69506346D-01, 0.69841971D-01, - + 0.69708492D-01, 0.69506346D-01, 0.81068532D+00, 0.39027956D-01/ - DATA ((CALC(I,K,8 ),I=1,8), K=19,20) / - + 0.58024319D+00, 0.34084568D+00, 0.67505436D-01, 0.67846845D-01, - + 0.67705621D-01, 0.67505436D-01, 0.75715400D+00, 0.38742071D-01, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALC(I,K,9 ),I=1,8), K=1,9) / - + 0.73575945D+00, 0.45004095D+00, 0.44221888D-01, 0.44221888D-01, - + 0.44221888D-01, 0.44221888D-01, 0.11123387D+01, 0.17347235D-17, - + 0.72905091D+00, 0.44200376D+00, 0.44938216D-01, 0.44962187D-01, - + 0.44951773D-01, 0.44938216D-01, 0.10927997D+01, 0.32370744D-02, - + 0.72122873D+00, 0.43339858D+00, 0.45406888D-01, 0.45452988D-01, - + 0.45432116D-01, 0.45406888D-01, 0.10647140D+01, 0.61056719D-02, - + 0.71236648D+00, 0.42428172D+00, 0.45642314D-01, 0.45708755D-01, - + 0.45677543D-01, 0.45642314D-01, 0.10298317D+01, 0.86263445D-02, - + 0.70252667D+00, 0.41470109D+00, 0.45657349D-01, 0.45742385D-01, - + 0.45701072D-01, 0.45657349D-01, 0.98955628D+00, 0.10816695D-01, - + 0.69177531D+00, 0.40470676D+00, 0.45467489D-01, 0.45569428D-01, - + 0.45518350D-01, 0.45467489D-01, 0.94519155D+00, 0.12696783D-01, - + 0.68017772D+00, 0.39434784D+00, 0.45088271D-01, 0.45205471D-01, - + 0.45145049D-01, 0.45088271D-01, 0.89791119D+00, 0.14286361D-01, - + 0.66779950D+00, 0.38367297D+00, 0.44535809D-01, 0.44666684D-01, - + 0.44597411D-01, 0.44535809D-01, 0.84875360D+00, 0.15605498D-01, - + 0.65470640D+00, 0.37273021D+00, 0.43826532D-01, 0.43969552D-01, - + 0.43891975D-01, 0.43826532D-01, 0.79862959D+00, 0.16674360D-01/ - DATA ((CALC(I,K,9 ),I=1,8), K=10,18) / - + 0.64096417D+00, 0.36156675D+00, 0.42976966D-01, 0.43130659D-01, - + 0.43045371D-01, 0.42976966D-01, 0.74832328D+00, 0.17513024D-01, - + 0.62663835D+00, 0.35022874D+00, 0.42003571D-01, 0.42166530D-01, - + 0.42074155D-01, 0.42003571D-01, 0.69849820D+00, 0.18141352D-01, - + 0.61179409D+00, 0.33876109D+00, 0.40922567D-01, 0.41093446D-01, - + 0.40994632D-01, 0.40922567D-01, 0.64970429D+00, 0.18578832D-01, - + 0.59649591D+00, 0.32720723D+00, 0.39749769D-01, 0.39927289D-01, - + 0.39822699D-01, 0.39749769D-01, 0.60238607D+00, 0.18844445D-01, - + 0.58080739D+00, 0.31560889D+00, 0.38500446D-01, 0.38683394D-01, - + 0.38573695D-01, 0.38500446D-01, 0.55689160D+00, 0.18956529D-01, - + 0.56479094D+00, 0.30400594D+00, 0.37189188D-01, 0.37376419D-01, - + 0.37262280D-01, 0.37189188D-01, 0.51348211D+00, 0.18932666D-01, - + 0.54850750D+00, 0.29243618D+00, 0.35829802D-01, 0.36020242D-01, - + 0.35902321D-01, 0.35829802D-01, 0.47234183D+00, 0.18789586D-01, - + 0.53201633D+00, 0.28093522D+00, 0.34435222D-01, 0.34627863D-01, - + 0.34506807D-01, 0.34435222D-01, 0.43358779D+00, 0.18543082D-01, - + 0.51537470D+00, 0.26953633D+00, 0.33017438D-01, 0.33211345D-01, - + 0.33087782D-01, 0.33017438D-01, 0.39727941D+00, 0.18207948D-01/ - DATA ((CALC(I,K,9 ),I=1,8), K=19,20) / - + 0.49863771D+00, 0.25827032D+00, 0.31587457D-01, 0.31781763D-01, - + 0.31656298D-01, 0.31587457D-01, 0.36342766D+00, 0.17797939D-01, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALC(I,K,10),I=1,8), K=1,9) / - + 0.75033233D+00, 0.41928473D+00, 0.26014900D-01, 0.26014900D-01, - + 0.26014900D-01, 0.26014900D-01, 0.87281313D+00,-0.16696713D-16, - + 0.73440392D+00, 0.40568081D+00, 0.26292098D-01, 0.26309965D-01, - + 0.26298466D-01, 0.26292098D-01, 0.83163604D+00, 0.20306844D-02, - + 0.71775563D+00, 0.39196078D+00, 0.26384089D-01, 0.26417954D-01, - + 0.26395831D-01, 0.26384089D-01, 0.78707432D+00, 0.37712302D-02, - + 0.70047819D+00, 0.37817567D+00, 0.26310868D-01, 0.26358988D-01, - + 0.26327118D-01, 0.26310868D-01, 0.74047548D+00, 0.52484018D-02, - + 0.68264767D+00, 0.36436792D+00, 0.26088831D-01, 0.26149562D-01, - + 0.26108817D-01, 0.26088831D-01, 0.69284970D+00, 0.64838907D-02, - + 0.66434041D+00, 0.35057926D+00, 0.25735001D-01, 0.25806801D-01, - + 0.25758039D-01, 0.25735001D-01, 0.64505024D+00, 0.74997675D-02, - + 0.64563037D+00, 0.33684942D+00, 0.25265452D-01, 0.25346873D-01, - + 0.25290936D-01, 0.25265452D-01, 0.59779857D+00, 0.83167852D-02, - + 0.62658942D+00, 0.32321607D+00, 0.24695598D-01, 0.24785288D-01, - + 0.24722992D-01, 0.24695598D-01, 0.55167852D+00, 0.89547331D-02, - + 0.60728743D+00, 0.30971488D+00, 0.24040168D-01, 0.24136866D-01, - + 0.24069001D-01, 0.24040168D-01, 0.50715463D+00, 0.94324539D-02/ - DATA ((CALC(I,K,10),I=1,8), K=10,18) / - + 0.58779207D+00, 0.29637937D+00, 0.23313100D-01, 0.23415631D-01, - + 0.23342957D-01, 0.23313100D-01, 0.46458231D+00, 0.97677659D-02, - + 0.56816868D+00, 0.28324079D+00, 0.22527502D-01, 0.22634777D-01, - + 0.22558022D-01, 0.22527502D-01, 0.42422017D+00, 0.99774566D-02, - + 0.54848012D+00, 0.27032807D+00, 0.21695605D-01, 0.21806618D-01, - + 0.21726472D-01, 0.21695605D-01, 0.38624235D+00, 0.10077255D-01, - + 0.52878659D+00, 0.25766771D+00, 0.20828727D-01, 0.20942551D-01, - + 0.20859669D-01, 0.20828727D-01, 0.35075014D+00, 0.10081812D-01, - + 0.50914547D+00, 0.24528374D+00, 0.19937246D-01, 0.20053032D-01, - + 0.19968028D-01, 0.19937246D-01, 0.31778344D+00, 0.10004694D-01, - + 0.48961113D+00, 0.23319766D+00, 0.19030589D-01, 0.19147561D-01, - + 0.19061011D-01, 0.19030589D-01, 0.28733133D+00, 0.98583776D-02, - + 0.47023480D+00, 0.22142843D+00, 0.18117230D-01, 0.18234685D-01, - + 0.18147123D-01, 0.18117230D-01, 0.25934185D+00, 0.96542623D-02, - + 0.45106446D+00, 0.20999249D+00, 0.17204704D-01, 0.17322007D-01, - + 0.17233927D-01, 0.17204704D-01, 0.23373099D+00, 0.94026882D-02, - + 0.43214467D+00, 0.19890378D+00, 0.16299628D-01, 0.16416209D-01, - + 0.16328067D-01, 0.16299628D-01, 0.21039060D+00, 0.91129667D-02/ - DATA ((CALC(I,K,10),I=1,8), K=19,20) / - + 0.41351656D+00, 0.18817378D+00, 0.15407739D-01, 0.15523092D-01, - + 0.15435299D-01, 0.15407739D-01, 0.18919538D+00, 0.87934189D-02, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALC(I,K,11),I=1,8), K=1,9) / - + 0.72612470D+00, 0.36397949D+00, 0.14788752D-01, 0.14788752D-01, - + 0.14788752D-01, 0.14788752D-01, 0.67422733D+00,-0.34694470D-17, - + 0.70301699D+00, 0.34773427D+00, 0.14929544D-01, 0.14942274D-01, - + 0.14932700D-01, 0.14929544D-01, 0.62610341D+00, 0.12768068D-02, - + 0.67971451D+00, 0.33178907D+00, 0.14935458D-01, 0.14959291D-01, - + 0.14941229D-01, 0.14935458D-01, 0.57809221D+00, 0.23388262D-02, - + 0.65630177D+00, 0.31617176D+00, 0.14826093D-01, 0.14859555D-01, - + 0.14834012D-01, 0.14826093D-01, 0.53104444D+00, 0.32117599D-02, - + 0.63284895D+00, 0.30090515D+00, 0.14616981D-01, 0.14658717D-01, - + 0.14626640D-01, 0.14616981D-01, 0.48554748D+00, 0.39159194D-02, - + 0.60942378D+00, 0.28600989D+00, 0.14323061D-01, 0.14371833D-01, - + 0.14334102D-01, 0.14323061D-01, 0.44202991D+00, 0.44707510D-02, - + 0.58609074D+00, 0.27150488D+00, 0.13958017D-01, 0.14012694D-01, - + 0.13970128D-01, 0.13958017D-01, 0.40081736D+00, 0.48941032D-02, - + 0.56291077D+00, 0.25740685D+00, 0.13534380D-01, 0.13593930D-01, - + 0.13547291D-01, 0.13534380D-01, 0.36212733D+00, 0.52023720D-02, - + 0.53994148D+00, 0.24373049D+00, 0.13063647D-01, 0.13127130D-01, - + 0.13077122D-01, 0.13063647D-01, 0.32608954D+00, 0.54106573D-02/ - DATA ((CALC(I,K,11),I=1,8), K=10,18) / - + 0.51723696D+00, 0.23048836D+00, 0.12556258D-01, 0.12622825D-01, - + 0.12570094D-01, 0.12556258D-01, 0.29275945D+00, 0.55327699D-02, - + 0.49484775D+00, 0.21769088D+00, 0.12021642D-01, 0.12090523D-01, - + 0.12035665D-01, 0.12021642D-01, 0.26213118D+00, 0.55812975D-02, - + 0.47282077D+00, 0.20534634D+00, 0.11468242D-01, 0.11538746D-01, - + 0.11482305D-01, 0.11468242D-01, 0.23414975D+00, 0.55676557D-02, - + 0.45119921D+00, 0.19346088D+00, 0.10903556D-01, 0.10975062D-01, - + 0.10917533D-01, 0.10903556D-01, 0.20872192D+00, 0.55021381D-02, - + 0.43002249D+00, 0.18203854D+00, 0.10334171D-01, 0.10406127D-01, - + 0.10347957D-01, 0.10334171D-01, 0.18572580D+00, 0.53939699D-02, - + 0.40932621D+00, 0.17108134D+00, 0.97658089D-02, 0.98377266D-02, - + 0.97793177D-02, 0.97658089D-02, 0.16501926D+00, 0.52513640D-02, - + 0.38914211D+00, 0.16058928D+00, 0.92033789D-02, 0.92748267D-02, - + 0.92165392D-02, 0.92033789D-02, 0.14644725D+00, 0.50815808D-02, - + 0.36949815D+00, 0.15056052D+00, 0.86510266D-02, 0.87216286D-02, - + 0.86637817D-02, 0.86510266D-02, 0.12984774D+00, 0.48909896D-02, - + 0.35041843D+00, 0.14099142D+00, 0.81121930D-02, 0.81816238D-02, - + 0.81244986D-02, 0.81121930D-02, 0.11505677D+00, 0.46851323D-02/ - DATA ((CALC(I,K,11),I=1,8), K=19,20) / - + 0.33192335D+00, 0.13187666D+00, 0.75896736D-02, 0.76576547D-02, - + 0.76014961D-02, 0.75896736D-02, 0.10191238D+00, 0.44687892D-02, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALC(I,K,12),I=1,8), K=1,9) / - + 0.67334252D+00, 0.29833441D+00, 0.80855825D-02, 0.80855825D-02, - + 0.80855825D-02, 0.80855825D-02, 0.51162697D+00,-0.11817804D-16, - + 0.64536318D+00, 0.28180015D+00, 0.81879384D-02, 0.81964326D-02, - + 0.81895119D-02, 0.81879384D-02, 0.46430924D+00, 0.79455875D-03, - + 0.61774910D+00, 0.26586805D+00, 0.81936895D-02, 0.82094634D-02, - + 0.81965473D-02, 0.81936895D-02, 0.41926385D+00, 0.14371427D-02, - + 0.59056001D+00, 0.25053723D+00, 0.81196347D-02, 0.81416057D-02, - + 0.81235309D-02, 0.81196347D-02, 0.37688432D+00, 0.19493803D-02, - + 0.56384502D+00, 0.23580681D+00, 0.79788388D-02, 0.80060248D-02, - + 0.79835596D-02, 0.79788388D-02, 0.33739524D+00, 0.23481052D-02, - + 0.53764896D+00, 0.22167368D+00, 0.77831646D-02, 0.78146805D-02, - + 0.77885249D-02, 0.77831646D-02, 0.30089054D+00, 0.26486947D-02, - + 0.51201355D+00, 0.20813409D+00, 0.75432692D-02, 0.75783182D-02, - + 0.75491096D-02, 0.75432692D-02, 0.26739948D+00, 0.28650364D-02, - + 0.48697655D+00, 0.19518293D+00, 0.72685826D-02, 0.73064492D-02, - + 0.72747660D-02, 0.72685826D-02, 0.23688280D+00, 0.30095327D-02, - + 0.46257205D+00, 0.18281391D+00, 0.69674848D-02, 0.70075288D-02, - + 0.69738943D-02, 0.69674848D-02, 0.20924982D+00, 0.30933111D-02/ - DATA ((CALC(I,K,12),I=1,8), K=10,18) / - + 0.43883036D+00, 0.17101948D+00, 0.66473444D-02, 0.66889947D-02, - + 0.66538804D-02, 0.66473444D-02, 0.18437152D+00, 0.31262846D-02, - + 0.41577800D+00, 0.15979084D+00, 0.63145934D-02, 0.63573430D-02, - + 0.63211718D-02, 0.63145934D-02, 0.16209093D+00, 0.31172474D-02, - + 0.39343772D+00, 0.14911797D+00, 0.59747963D-02, 0.60181973D-02, - + 0.59813468D-02, 0.59747963D-02, 0.14223264D+00, 0.30739602D-02, - + 0.37182850D+00, 0.13898967D+00, 0.56327140D-02, 0.56763733D-02, - + 0.56391785D-02, 0.56327140D-02, 0.12461070D+00, 0.30032288D-02, - + 0.35096559D+00, 0.12939361D+00, 0.52923700D-02, 0.53359442D-02, - + 0.52987006D-02, 0.52923700D-02, 0.10903509D+00, 0.29109819D-02, - + 0.33086057D+00, 0.12031641D+00, 0.49571134D-02, 0.50003055D-02, - + 0.49632718D-02, 0.49571134D-02, 0.95316920D-01, 0.28023456D-02, - + 0.31152147D+00, 0.11174375D+00, 0.46296827D-02, 0.46722381D-02, - + 0.46356387D-02, 0.46296827D-02, 0.83272498D-01, 0.26817158D-02, - + 0.29295284D+00, 0.10366045D+00, 0.43122686D-02, 0.43539711D-02, - + 0.43179989D-02, 0.43122686D-02, 0.72726380D-01, 0.25528291D-02, - + 0.27515593D+00, 0.96050577D-01, 0.40065739D-02, 0.40472427D-02, - + 0.40120614D-02, 0.40065739D-02, 0.63513533D-01, 0.24188299D-02/ - DATA ((CALC(I,K,12),I=1,8), K=19,20) / - + 0.25812880D+00, 0.88897572D-01, 0.37138719D-02, 0.37533580D-02, - + 0.37191047D-02, 0.37138719D-02, 0.55480708D-01, 0.22823356D-02, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALC(I,K,13),I=1,8), K=1,9) / - + 0.60077312D+00, 0.23221598D+00, 0.42271747D-02, 0.42271747D-02, - + 0.42271747D-02, 0.42271747D-02, 0.38037736D+00, 0.86736174D-18, - + 0.57027955D+00, 0.21703986D+00, 0.43144662D-02, 0.43201956D-02, - + 0.43152794D-02, 0.43144662D-02, 0.33787940D+00, 0.48472802D-03, - + 0.54066854D+00, 0.20263136D+00, 0.43340412D-02, 0.43446000D-02, - + 0.43355085D-02, 0.43340412D-02, 0.29879859D+00, 0.86632144D-03, - + 0.51196237D+00, 0.18896360D+00, 0.42991523D-02, 0.43137484D-02, - + 0.43011396D-02, 0.42991523D-02, 0.26316287D+00, 0.11614835D-02, - + 0.48417903D+00, 0.17601483D+00, 0.42200012D-02, 0.42379246D-02, - + 0.42223933D-02, 0.42200012D-02, 0.23092273D+00, 0.13830959D-02, - + 0.45733163D+00, 0.16376189D+00, 0.41053988D-02, 0.41260179D-02, - + 0.41080969D-02, 0.41053988D-02, 0.20193947D+00, 0.15424386D-02, - + 0.43143123D+00, 0.15218235D+00, 0.39631584D-02, 0.39859122D-02, - + 0.39660784D-02, 0.39631584D-02, 0.17604658D+00, 0.16495813D-02, - + 0.40648558D+00, 0.14125372D+00, 0.38000062D-02, 0.38243982D-02, - + 0.38030767D-02, 0.38000062D-02, 0.15304734D+00, 0.17133078D-02, - + 0.38249945D+00, 0.13095353D+00, 0.36217606D-02, 0.36473530D-02, - + 0.36249215D-02, 0.36217606D-02, 0.13272620D+00, 0.17413214D-02/ - DATA ((CALC(I,K,13),I=1,8), K=10,18) / - + 0.35947453D+00, 0.12125927D+00, 0.34333998D-02, 0.34598086D-02, - + 0.34366006D-02, 0.34333998D-02, 0.11485913D+00, 0.17403296D-02, - + 0.33740948D+00, 0.11214834D+00, 0.32391427D-02, 0.32660329D-02, - + 0.32423417D-02, 0.32391427D-02, 0.99220244D-01, 0.17161406D-02, - + 0.31629996D+00, 0.10359808D+00, 0.30425279D-02, 0.30696090D-02, - + 0.30456907D-02, 0.30425279D-02, 0.85587700D-01, 0.16737553D-02, - + 0.29613873D+00, 0.95585734D-01, 0.28464824D-02, 0.28735045D-02, - + 0.28495812D-02, 0.28464824D-02, 0.73748068D-01, 0.16174479D-02, - + 0.27691572D+00, 0.88088565D-01, 0.26533892D-02, 0.26801392D-02, - + 0.26564018D-02, 0.26533892D-02, 0.63499475D-01, 0.15508429D-02, - + 0.25861818D+00, 0.81083843D-01, 0.24651504D-02, 0.24914485D-02, - + 0.24680595D-02, 0.24651504D-02, 0.54653783D-01, 0.14769869D-02, - + 0.24123083D+00, 0.74548927D-01, 0.22832461D-02, 0.23089427D-02, - + 0.22860388D-02, 0.22832461D-02, 0.47037889D-01, 0.13984152D-02, - + 0.22473600D+00, 0.68461330D-01, 0.21087905D-02, 0.21337628D-02, - + 0.21114573D-02, 0.21087905D-02, 0.40494306D-01, 0.13172148D-02, - + 0.20911389D+00, 0.62798787D-01, 0.19425826D-02, 0.19667322D-02, - + 0.19451171D-02, 0.19425826D-02, 0.34881210D-01, 0.12350809D-02/ - DATA ((CALC(I,K,13),I=1,8), K=19,20) / - + 0.19434270D+00, 0.57539325D-01, 0.17851541D-02, 0.18084041D-02, - + 0.17875526D-02, 0.17851541D-02, 0.30072058D-01, 0.11533708D-02, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALC(I,K,14),I=1,8), K=1,9) / - + 0.51632537D+00, 0.17190006D+00, 0.20981348D-02, 0.20981348D-02, - + 0.20981348D-02, 0.20981348D-02, 0.27616356D+00, 0.11926224D-17, - + 0.48552628D+00, 0.15904827D+00, 0.21710311D-02, 0.21749231D-02, - + 0.21714614D-02, 0.21710311D-02, 0.24030554D+00, 0.28736293D-03, - + 0.45602587D+00, 0.14700374D+00, 0.21979326D-02, 0.22050439D-02, - + 0.21987031D-02, 0.21979326D-02, 0.20827361D+00, 0.50772576D-03, - + 0.42780301D+00, 0.13572121D+00, 0.21886054D-02, 0.21983531D-02, - + 0.21896412D-02, 0.21886054D-02, 0.17983633D+00, 0.67310759D-03, - + 0.40084025D+00, 0.12516450D+00, 0.21505429D-02, 0.21624119D-02, - + 0.21517801D-02, 0.21505429D-02, 0.15476148D+00, 0.79274167D-03, - + 0.37511595D+00, 0.11529731D+00, 0.20899179D-02, 0.21034569D-02, - + 0.20913030D-02, 0.20899179D-02, 0.13277141D+00, 0.87438403D-03, - + 0.35060822D+00, 0.10608530D+00, 0.20121614D-02, 0.20269756D-02, - + 0.20136489D-02, 0.20121614D-02, 0.11359060D+00, 0.92490325D-03, - + 0.32729347D+00, 0.97495376D-01, 0.19218442D-02, 0.19375899D-02, - + 0.19233964D-02, 0.19218442D-02, 0.96944662D-01, 0.95016958D-03, - + 0.30514661D+00, 0.89495614D-01, 0.18228262D-02, 0.18392058D-02, - + 0.18244118D-02, 0.18228262D-02, 0.82565447D-01, 0.95522237D-03/ - DATA ((CALC(I,K,14),I=1,8), K=10,18) / - + 0.28414102D+00, 0.82055168D-01, 0.17183336D-02, 0.17350908D-02, - + 0.17199267D-02, 0.17183336D-02, 0.70197637D-01, 0.94435964D-03, - + 0.26424851D+00, 0.75144175D-01, 0.16110292D-02, 0.16279447D-02, - + 0.16126089D-02, 0.16110292D-02, 0.59601612D-01, 0.92121971D-03, - + 0.24543941D+00, 0.68733711D-01, 0.15030839D-02, 0.15199719D-02, - + 0.15046335D-02, 0.15030839D-02, 0.50555726D-01, 0.88886214D-03, - + 0.22768264D+00, 0.62795758D-01, 0.13962381D-02, 0.14129425D-02, - + 0.13977442D-02, 0.13962381D-02, 0.42857567D-01, 0.84983733D-03, - + 0.21094579D+00, 0.57303184D-01, 0.12918587D-02, 0.13082502D-02, - + 0.12933112D-02, 0.12918587D-02, 0.36324336D-01, 0.80625106D-03, - + 0.19519530D+00, 0.52229746D-01, 0.11909920D-02, 0.12069649D-02, - + 0.11923834D-02, 0.11909920D-02, 0.30792628D-01, 0.75982316D-03, - + 0.18039655D+00, 0.47550088D-01, 0.10944108D-02, 0.11098805D-02, - + 0.10957358D-02, 0.10944108D-02, 0.26117732D-01, 0.71194080D-03, - + 0.16651410D+00, 0.43239757D-01, 0.10026578D-02, 0.10175579D-02, - + 0.10039127D-02, 0.10026578D-02, 0.22172590D-01, 0.66370657D-03, - + 0.15351180D+00, 0.39275213D-01, 0.91608379D-03, 0.93036438D-03, - + 0.91726670D-03, 0.91608379D-03, 0.18846509D-01, 0.61598147D-03/ - DATA ((CALC(I,K,14),I=1,8), K=19,20) / - + 0.14135303D+00, 0.35633841D-01, 0.83488202D-03, 0.84850733D-03, - + 0.83599225D-03, 0.83488202D-03, 0.16043733D-01, 0.56942327D-03, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALC(I,K,15),I=1,8), K=1,9) / - + 0.42705580D+00, 0.12082176D+00, 0.97978438D-03, 0.97978438D-03, - + 0.97978438D-03, 0.97978438D-03, 0.19498989D+00,-0.25072175D-18, - + 0.39784903D+00, 0.11068616D+00, 0.10356646D-02, 0.10382274D-02, - + 0.10358873D-02, 0.10356646D-02, 0.16625863D+00, 0.16399453D-03, - + 0.37021828D+00, 0.10130049D+00, 0.10616397D-02, 0.10662818D-02, - + 0.10620353D-02, 0.10616397D-02, 0.14125776D+00, 0.28655433D-03, - + 0.34409999D+00, 0.92610460D-01, 0.10644378D-02, 0.10707467D-02, - + 0.10649653D-02, 0.10644378D-02, 0.11959872D+00, 0.37575575D-03, - + 0.31944260D+00, 0.84573060D-01, 0.10492410D-02, 0.10568576D-02, - + 0.10498663D-02, 0.10492410D-02, 0.10094846D+00, 0.43781550D-03, - + 0.29619219D+00, 0.77146471D-01, 0.10201214D-02, 0.10287351D-02, - + 0.10208158D-02, 0.10201214D-02, 0.84967494D-01, 0.47773454D-03, - + 0.27429679D+00, 0.70291650D-01, 0.98064902D-03, 0.98999276D-03, - + 0.98138896D-03, 0.98064902D-03, 0.71339424D-01, 0.49992158D-03, - + 0.25370497D+00, 0.63971782D-01, 0.93377413D-03, 0.94361922D-03, - + 0.93454012D-03, 0.93377413D-03, 0.59770974D-01, 0.50807768D-03, - + 0.23436584D+00, 0.58152064D-01, 0.88193337D-03, 0.89208528D-03, - + 0.88270955D-03, 0.88193337D-03, 0.49991630D-01, 0.50531460D-03/ - DATA ((CALC(I,K,15),I=1,8), K=10,18) / - + 0.21622892D+00, 0.52799564D-01, 0.82712198D-03, 0.83741647D-03, - + 0.82789559D-03, 0.82712198D-03, 0.41756407D-01, 0.49423547D-03, - + 0.19924413D+00, 0.47883066D-01, 0.77094786D-03, 0.78124752D-03, - + 0.77170876D-03, 0.77094786D-03, 0.34845585D-01, 0.47699601D-03, - + 0.18336173D+00, 0.43372975D-01, 0.71468791D-03, 0.72487906D-03, - + 0.71542819D-03, 0.71468791D-03, 0.29064050D-01, 0.45536721D-03, - + 0.16853240D+00, 0.39241220D-01, 0.65933595D-03, 0.66932576D-03, - + 0.66004960D-03, 0.65933595D-03, 0.24240208D-01, 0.43078871D-03, - + 0.15470724D+00, 0.35461188D-01, 0.60564592D-03, 0.61535992D-03, - + 0.60632853D-03, 0.60564592D-03, 0.20224430D-01, 0.40441676D-03, - + 0.14183788D+00, 0.32007664D-01, 0.55417086D-03, 0.56355056D-03, - + 0.55481932D-03, 0.55417086D-03, 0.16887306D-01, 0.37716744D-03, - + 0.12987657D+00, 0.28856782D-01, 0.50529713D-03, 0.51429798D-03, - + 0.50590946D-03, 0.50529713D-03, 0.14117757D-01, 0.34975466D-03, - + 0.11877628D+00, 0.25985981D-01, 0.45927458D-03, 0.46786404D-03, - + 0.45984969D-03, 0.45927458D-03, 0.11821079D-01, 0.32272356D-03, - + 0.10849081D+00, 0.23373964D-01, 0.41624290D-03, 0.42439878D-03, - + 0.41678046D-03, 0.41624290D-03, 0.99170713D-02, 0.29647999D-03/ - DATA ((CALC(I,K,15),I=1,8), K=19,20) / - + 0.98974901D-01, 0.21000664D-01, 0.37625434D-03, 0.38396327D-03, - + 0.37675462D-03, 0.37625434D-03, 0.83382513D-02, 0.27131583D-03, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALC(I,K,16),I=1,8), K=1,9) / - + 0.33903118D+00, 0.80276474D-01, 0.42548719D-03, 0.42548719D-03, - + 0.42548719D-03, 0.42548719D-03, 0.13318071D+00,-0.17618285D-18, - + 0.31288724D+00, 0.72817098D-01, 0.46413041D-03, 0.46575439D-03, - + 0.46424142D-03, 0.46413041D-03, 0.11125492D+00, 0.89075813D-04, - + 0.28844204D+00, 0.65988931D-01, 0.48442470D-03, 0.48733857D-03, - + 0.48462021D-03, 0.48442470D-03, 0.92647001D-01, 0.15398437D-03, - + 0.26559663D+00, 0.59737298D-01, 0.49067020D-03, 0.49459379D-03, - + 0.49092880D-03, 0.49067020D-03, 0.76899569D-01, 0.19976257D-03, - + 0.24427155D+00, 0.54019328D-01, 0.48622142D-03, 0.49091428D-03, - + 0.48652541D-03, 0.48622142D-03, 0.63645454D-01, 0.23032621D-03, - + 0.22438755D+00, 0.48794267D-01, 0.47358551D-03, 0.47884331D-03, - + 0.47392034D-03, 0.47358551D-03, 0.52541413D-01, 0.24867979D-03, - + 0.20586960D+00, 0.44024481D-01, 0.45496396D-03, 0.46061397D-03, - + 0.45531776D-03, 0.45496396D-03, 0.43278927D-01, 0.25747077D-03, - + 0.18864559D+00, 0.39675068D-01, 0.43215079D-03, 0.43804785D-03, - + 0.43251400D-03, 0.43215079D-03, 0.35585185D-01, 0.25888872D-03, - + 0.17264613D+00, 0.35713543D-01, 0.40659624D-03, 0.41261939D-03, - + 0.40696119D-03, 0.40659624D-03, 0.29218655D-01, 0.25473615D-03/ - DATA ((CALC(I,K,16),I=1,8), K=10,18) / - + 0.15780432D+00, 0.32109654D-01, 0.37946663D-03, 0.38551605D-03, - + 0.37982732D-03, 0.37946663D-03, 0.23968575D-01, 0.24649356D-03, - + 0.14405560D+00, 0.28835199D-01, 0.35168151D-03, 0.35767579D-03, - + 0.35203327D-03, 0.35168151D-03, 0.19652525D-01, 0.23536084D-03, - + 0.13133761D+00, 0.25863873D-01, 0.32395319D-03, 0.32982692D-03, - + 0.32429252D-03, 0.32395319D-03, 0.16113788D-01, 0.22230062D-03, - + 0.11959016D+00, 0.23171139D-01, 0.29682056D-03, 0.30252215D-03, - + 0.29714489D-03, 0.29682056D-03, 0.13218820D-01, 0.20807534D-03, - + 0.10875513D+00, 0.20734118D-01, 0.27067861D-03, 0.27616838D-03, - + 0.27098617D-03, 0.27067861D-03, 0.10854644D-01, 0.19327964D-03, - + 0.98776501D-01, 0.18531488D-01, 0.24580455D-03, 0.25105304D-03, - + 0.24609422D-03, 0.24580455D-03, 0.89263130D-02, 0.17836902D-03, - + 0.89600324D-01, 0.16543398D-01, 0.22238049D-03, 0.22736690D-03, - + 0.22265165D-03, 0.22238049D-03, 0.73545566D-02, 0.16368469D-03, - + 0.81174729D-01, 0.14751386D-01, 0.20051276D-03, 0.20522362D-03, - + 0.20076523D-03, 0.20051276D-03, 0.60736319D-02, 0.14947494D-03, - + 0.73449942D-01, 0.13138306D-01, 0.18024833D-03, 0.18467630D-03, - + 0.18048226D-03, 0.18024833D-03, 0.50292731D-02, 0.13591328D-03/ - DATA ((CALC(I,K,16),I=1,8), K=19,20) / - + 0.66378294D-01, 0.11688258D-01, 0.16158863D-03, 0.16573145D-03, - + 0.16180444D-03, 0.16158863D-03, 0.41768921D-02, 0.12311380D-03, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALC(I,K,17),I=1,8), K=1,9) / - + 0.25716544D+00, 0.50047417D-01, 0.16921711D-03, 0.16921711D-03, - + 0.16921711D-03, 0.16921711D-03, 0.87379852D-01, 0.20803129D-17, - + 0.23506196D+00, 0.44940973D-01, 0.19311456D-03, 0.19408476D-03, - + 0.19316694D-03, 0.19311456D-03, 0.71473141D-01, 0.45371071D-04, - + 0.21463003D+00, 0.40319879D-01, 0.20657405D-03, 0.20829675D-03, - + 0.20666547D-03, 0.20657405D-03, 0.58303762D-01, 0.77635734D-04, - + 0.19574688D+00, 0.36135696D-01, 0.21210461D-03, 0.21440070D-03, - + 0.21222447D-03, 0.21210461D-03, 0.47414988D-01, 0.99667201D-04, - + 0.17831486D+00, 0.32350818D-01, 0.21171439D-03, 0.21443283D-03, - + 0.21185408D-03, 0.21171439D-03, 0.38455136D-01, 0.11374899D-03, - + 0.16223931D+00, 0.28930202D-01, 0.20682295D-03, 0.20983764D-03, - + 0.20697547D-03, 0.20682295D-03, 0.31116267D-01, 0.12154118D-03, - + 0.14743170D+00, 0.25841808D-01, 0.19868652D-03, 0.20189297D-03, - + 0.19884629D-03, 0.19868652D-03, 0.25128836D-01, 0.12451427D-03, - + 0.13380862D+00, 0.23056348D-01, 0.18831994D-03, 0.19163212D-03, - + 0.18848253D-03, 0.18831994D-03, 0.20263181D-01, 0.12387123D-03, - + 0.12129123D+00, 0.20546938D-01, 0.17652595D-03, 0.17987386D-03, - + 0.17668791D-03, 0.17652595D-03, 0.16322892D-01, 0.12058072D-03/ - DATA ((CALC(I,K,17),I=1,8), K=10,18) / - + 0.10980498D+00, 0.18288894D-01, 0.16394017D-03, 0.16726752D-03, - + 0.16409884D-03, 0.16394017D-03, 0.13141904D-01, 0.11542487D-03, - + 0.99279307D-01, 0.16259533D-01, 0.15105373D-03, 0.15431597D-03, - + 0.15120712D-03, 0.15105373D-03, 0.10580912D-01, 0.10902423D-03, - + 0.89647348D-01, 0.14438001D-01, 0.13823793D-03, 0.14140052D-03, - + 0.13838460D-03, 0.13823793D-03, 0.85237466D-02, 0.10186447D-03, - + 0.80845790D-01, 0.12805132D-01, 0.12576592D-03, 0.12880284D-03, - + 0.12590488D-03, 0.12576592D-03, 0.68742070D-02, 0.94319829D-04, - + 0.72814689D-01, 0.11343312D-01, 0.11383101D-03, 0.11672337D-03, - + 0.11396162D-03, 0.11383101D-03, 0.55531346D-02, 0.86672930D-04, - + 0.65497339D-01, 0.10036368D-01, 0.10256263D-03, 0.10529755D-03, - + 0.10268455D-03, 0.10256263D-03, 0.44958340D-02, 0.79132120D-04, - + 0.58840152D-01, 0.88694607D-02, 0.92039859D-04, 0.94609435D-04, - + 0.92152981D-04, 0.92039859D-04, 0.36496885D-02, 0.71846147D-04, - + 0.52792555D-01, 0.78289913D-02, 0.82302735D-04, 0.84703144D-04, - + 0.82407123D-04, 0.82302735D-04, 0.29720846D-02, 0.64916525D-04, - + 0.47306895D-01, 0.69025121D-02, 0.73361805D-04, 0.75592543D-04, - + 0.73457663D-04, 0.73361805D-04, 0.24287797D-02, 0.58407999D-04/ - DATA ((CALC(I,K,17),I=1,8), K=19,20) / - + 0.42338349D-01, 0.60786459D-02, 0.65205807D-04, 0.67269026D-04, - + 0.65293443D-04, 0.65205807D-04, 0.19923875D-02, 0.52357046D-04, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALC(I,K,18),I=1,8), K=1,9) / - + 0.18509435D+00, 0.28948732D-01, 0.60365385D-04, 0.60365385D-04, - + 0.60365385D-04, 0.60365385D-04, 0.54550804D-01,-0.99102855D-19, - + 0.16750202D+00, 0.25723871D-01, 0.73400658D-04, 0.73935524D-04, - + 0.73423603D-04, 0.73400658D-04, 0.43645194D-01, 0.21221013D-04, - + 0.15142629D+00, 0.22839415D-01, 0.81065112D-04, 0.82004390D-04, - + 0.81104814D-04, 0.81065112D-04, 0.34842363D-01, 0.35978415D-04, - + 0.13673471D+00, 0.20257027D-01, 0.84656333D-04, 0.85894569D-04, - + 0.84707952D-04, 0.84656333D-04, 0.27735150D-01, 0.45730076D-04, - + 0.12332287D+00, 0.17947249D-01, 0.85264971D-04, 0.86714700D-04, - + 0.85324626D-04, 0.85264971D-04, 0.22019925D-01, 0.51686866D-04, - + 0.11109181D+00, 0.15883149D-01, 0.83612150D-04, 0.85201675D-04, - + 0.83676741D-04, 0.83612150D-04, 0.17446055D-01, 0.54673316D-04, - + 0.99949989D-01, 0.14040339D-01, 0.80347140D-04, 0.82018279D-04, - + 0.80414230D-04, 0.80347140D-04, 0.13798816D-01, 0.55430154D-04, - + 0.89812509D-01, 0.12396828D-01, 0.75994424D-04, 0.77700363D-04, - + 0.76062118D-04, 0.75994424D-04, 0.10901131D-01, 0.54561355D-04, - + 0.80600357D-01, 0.10932696D-01, 0.70959398D-04, 0.72663041D-04, - + 0.71026248D-04, 0.70959398D-04, 0.86064001D-02, 0.52541686D-04/ - DATA ((CALC(I,K,18),I=1,8), K=10,18) / - + 0.72239983D-01, 0.96298964D-02, 0.65558694D-04, 0.67231142D-04, - + 0.65623620D-04, 0.65558694D-04, 0.67942217D-02, 0.49748407D-04, - + 0.64662859D-01, 0.84720691D-02, 0.60032677D-04, 0.61651919D-04, - + 0.60094895D-04, 0.60032677D-04, 0.53665277D-02, 0.46474873D-04, - + 0.57805120D-01, 0.74443801D-02, 0.54558688D-04, 0.56108474D-04, - + 0.54617657D-04, 0.54558688D-04, 0.42438055D-02, 0.42944754D-04, - + 0.51607257D-01, 0.65333812D-02, 0.49263551D-04, 0.50732414D-04, - + 0.49318922D-04, 0.49263551D-04, 0.33620652D-02, 0.39325376D-04, - + 0.46013841D-01, 0.57268858D-02, 0.44233750D-04, 0.45614158D-04, - + 0.44285328D-04, 0.44233750D-04, 0.26700731D-02, 0.35738622D-04, - + 0.40973286D-01, 0.50138581D-02, 0.39524115D-04, 0.40811745D-04, - + 0.39571827D-04, 0.39524115D-04, 0.21269517D-02, 0.32270251D-04, - + 0.36437630D-01, 0.43843135D-02, 0.35165232D-04, 0.36358345D-04, - + 0.35209098D-04, 0.35165232D-04, 0.17003738D-02, 0.28977854D-04, - + 0.32362334D-01, 0.38292285D-02, 0.31169503D-04, 0.32268408D-04, - + 0.31209611D-04, 0.31169503D-04, 0.13649232D-02, 0.25897389D-04, - + 0.28706102D-01, 0.33404582D-02, 0.27535873D-04, 0.28542471D-04, - + 0.27572364D-04, 0.27535873D-04, 0.11005374D-02, 0.23048338D-04/ - DATA ((CALC(I,K,18),I=1,8), K=19,20) / - + 0.25430700D-01, 0.29106608D-02, 0.24253781D-04, 0.25171186D-04, - + 0.24286832D-04, 0.24253781D-04, 0.89149947D-03, 0.20438022D-04, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALC(I,K,19),I=1,8), K=1,9) / - + 0.12511596D+00, 0.15277434D-01, 0.18761940D-04, 0.18761940D-04, - + 0.18761940D-04, 0.18761940D-04, 0.31976696D-01, 0.11244362D-17, - + 0.11203183D+00, 0.13425405D-01, 0.24867409D-04, 0.25139448D-04, - + 0.24876929D-04, 0.24867409D-04, 0.24985115D-01, 0.88225515D-05, - + 0.10021714D+00, 0.11789005D-01, 0.28571124D-04, 0.29040474D-04, - + 0.28587419D-04, 0.28571124D-04, 0.19490648D-01, 0.14854089D-04, - + 0.89543890D-01, 0.10341160D-01, 0.30433528D-04, 0.31041543D-04, - + 0.30454492D-04, 0.30433528D-04, 0.15164455D-01, 0.18716337D-04, - + 0.79912217D-01, 0.90612886D-02, 0.30974160D-04, 0.31673538D-04, - + 0.30998138D-04, 0.30974160D-04, 0.11767860D-01, 0.20974399D-04, - + 0.71229380D-01, 0.79309402D-02, 0.30508076D-04, 0.31261180D-04, - + 0.30533769D-04, 0.30508076D-04, 0.91152641D-02, 0.21981861D-04, - + 0.63410450D-01, 0.69335629D-02, 0.29328990D-04, 0.30106333D-04, - + 0.29355400D-04, 0.29328990D-04, 0.70505733D-02, 0.22066269D-04, - + 0.56377807D-01, 0.60544377D-02, 0.27677772D-04, 0.28456519D-04, - + 0.27704142D-04, 0.27677772D-04, 0.54488746D-02, 0.21497573D-04, - + 0.50060242D-01, 0.52804060D-02, 0.25735893D-04, 0.26498771D-04, - + 0.25761661D-04, 0.25735893D-04, 0.42101156D-02, 0.20482340D-04/ - DATA ((CALC(I,K,19),I=1,8), K=10,18) / - + 0.44392424D-01, 0.45997051D-02, 0.23643606D-04, 0.24377904D-04, - + 0.23668370D-04, 0.23643606D-04, 0.32543735D-02, 0.19182514D-04, - + 0.39314381D-01, 0.40018155D-02, 0.21505942D-04, 0.22202662D-04, - + 0.21529422D-04, 0.21505942D-04, 0.25184902D-02, 0.17721871D-04, - + 0.34771051D-01, 0.34773286D-02, 0.19398514D-04, 0.20051671D-04, - + 0.19420532D-04, 0.19398514D-04, 0.19527211D-02, 0.16192231D-04, - + 0.30711899D-01, 0.30178307D-02, 0.17373779D-04, 0.17979794D-04, - + 0.17394234D-04, 0.17373779D-04, 0.15180062D-02, 0.14660054D-04, - + 0.27090563D-01, 0.26158026D-02, 0.15466106D-04, 0.16023302D-04, - + 0.15484957D-04, 0.15466106D-04, 0.11839900D-02, 0.13171807D-04, - + 0.23864549D-01, 0.22645289D-02, 0.13696033D-04, 0.14204210D-04, - + 0.13713284D-04, 0.13696033D-04, 0.92724223D-03, 0.11758474D-04, - + 0.20994946D-01, 0.19580180D-02, 0.12073599D-04, 0.12533683D-04, - + 0.12089289D-04, 0.12073599D-04, 0.72955528D-03, 0.10439109D-04, - + 0.18446167D-01, 0.16909298D-02, 0.10601234D-04, 0.11014980D-04, - + 0.10615424D-04, 0.10601234D-04, 0.57689779D-03, 0.92239109D-05, - + 0.16185714D-01, 0.14585109D-02, 0.92761477D-05, 0.96459052D-05, - + 0.92889183D-05, 0.92761477D-05, 0.45869843D-03, 0.81167844D-05/ - DATA ((CALC(I,K,19),I=1,8), K=19,20) / - + 0.14183953D-01, 0.12565363D-02, 0.80919019D-05, 0.84204158D-05, - + 0.81033428D-05, 0.80919019D-05, 0.36686556D-03, 0.71170484D-05, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALC(I,K,20),I=1,8), K=1,9) / - + 0.78207939D-01, 0.71718715D-02, 0.48685484D-05, 0.48685484D-05, - + 0.48685484D-05, 0.48685484D-05, 0.17260222D-01, 0.65899163D-18, - + 0.69231380D-01, 0.62267774D-02, 0.72000531D-05, 0.73038093D-05, - + 0.72035216D-05, 0.72000531D-05, 0.13139860D-01, 0.30850984D-05, - + 0.61227629D-01, 0.54026433D-02, 0.86663244D-05, 0.88395579D-05, - + 0.86721878D-05, 0.86663244D-05, 0.99947918D-02, 0.51890455D-05, - + 0.54085345D-01, 0.46826456D-02, 0.94402700D-05, 0.96573590D-05, - + 0.94477236D-05, 0.94402700D-05, 0.75850886D-02, 0.65043408D-05, - + 0.47718551D-01, 0.40541438D-02, 0.97259942D-05, 0.99672413D-05, - + 0.97344198D-05, 0.97259942D-05, 0.57407678D-02, 0.72495189D-05, - + 0.42049033D-01, 0.35060412D-02, 0.96322988D-05, 0.98828263D-05, - + 0.96412218D-05, 0.96322988D-05, 0.43380534D-02, 0.75453521D-05, - + 0.37005885D-01, 0.30284797D-02, 0.92685924D-05, 0.95174911D-05, - + 0.92776571D-05, 0.92685924D-05, 0.32745391D-02, 0.75116772D-05, - + 0.32525236D-01, 0.26128175D-02, 0.87291103D-05, 0.89685648D-05, - + 0.87380555D-05, 0.87291103D-05, 0.24704846D-02, 0.72515884D-05, - + 0.28549325D-01, 0.22514364D-02, 0.80827884D-05, 0.83074776D-05, - + 0.80914274D-05, 0.80827884D-05, 0.18643596D-02, 0.68415702D-05/ - DATA ((CALC(I,K,20),I=1,8), K=10,18) / - + 0.25025915D-01, 0.19376193D-02, 0.73826785D-05, 0.75892343D-05, - + 0.73908832D-05, 0.73826785D-05, 0.14084418D-02, 0.63411222D-05, - + 0.21907749D-01, 0.16654436D-02, 0.66682955D-05, 0.68548566D-05, - + 0.66759835D-05, 0.66682955D-05, 0.10659816D-02, 0.57952644D-05, - + 0.19152084D-01, 0.14296863D-02, 0.59674032D-05, 0.61332583D-05, - + 0.59745275D-05, 0.59674032D-05, 0.80895634D-03, 0.52364600D-05, - + 0.16720268D-01, 0.12257434D-02, 0.52988039D-05, 0.54440952D-05, - + 0.53053441D-05, 0.52988039D-05, 0.61617187D-03, 0.46875223D-05, - + 0.14577375D-01, 0.10495583D-02, 0.46742455D-05, 0.47997302D-05, - + 0.46802014D-05, 0.46742455D-05, 0.47144499D-03, 0.41636212D-05, - + 0.12691871D-01, 0.89756029D-03, 0.41001724D-05, 0.42070311D-05, - + 0.41055580D-05, 0.41001724D-05, 0.36251748D-03, 0.36741181D-05, - + 0.11035317D-01, 0.76660894D-03, 0.35793348D-05, 0.36690201D-05, - + 0.35841745D-05, 0.35793348D-05, 0.28039012D-03, 0.32242487D-05, - + 0.95820983D-02, 0.65394572D-03, 0.31117463D-05, 0.31858637D-05, - + 0.31160713D-05, 0.31117463D-05, 0.21831921D-03, 0.28161414D-05, - + 0.83091737D-02, 0.55715039D-03, 0.26954812D-05, 0.27556979D-05, - + 0.26993268D-05, 0.26954812D-05, 0.17110569D-03, 0.24496689D-05/ - DATA ((CALC(I,K,20),I=1,8), K=19,20) / - + 0.71958512D-02, 0.47410266D-03, 0.23275372D-05, 0.23755137D-05, - + 0.23309410D-05, 0.23275372D-05, 0.13497267D-03, 0.21233560D-05, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALC(I,K,21),I=1,8), K=1,9) / - + 0.44126198D-01, 0.28774181D-02, 0.98730783D-06, 0.98730783D-06, - + 0.98730783D-06, 0.98730783D-06, 0.83237942D-02, 0.16570082D-19, - + 0.38566452D-01, 0.24647091D-02, 0.16316902D-05, 0.16407939D-05, - + 0.16327293D-05, 0.16316902D-05, 0.61526696D-02, 0.80814262D-06, - + 0.33677597D-01, 0.21100556D-02, 0.20721243D-05, 0.20823724D-05, - + 0.20738572D-05, 0.20721243D-05, 0.45490572D-02, 0.13852264D-05, - + 0.29373200D-01, 0.18045320D-02, 0.23203461D-05, 0.23267903D-05, - + 0.23225203D-05, 0.23203461D-05, 0.33575991D-02, 0.17479170D-05, - + 0.25587283D-01, 0.15415184D-02, 0.24333717D-05, 0.24329421D-05, - + 0.24357984D-05, 0.24333717D-05, 0.24706562D-02, 0.19568236D-05, - + 0.22261127D-01, 0.13153392D-02, 0.24344018D-05, 0.24255218D-05, - + 0.24369394D-05, 0.24344018D-05, 0.18156650D-02, 0.20380617D-05, - + 0.19342057D-01, 0.11210040D-02, 0.23525948D-05, 0.23348337D-05, - + 0.23551400D-05, 0.23525948D-05, 0.13335055D-02, 0.20233070D-05, - + 0.16783341D-01, 0.95420544D-03, 0.22171962D-05, 0.21908372D-05, - + 0.22196760D-05, 0.22171962D-05, 0.97931452D-03, 0.19439162D-05, - + 0.14543347D-01, 0.81120410D-03, 0.20488639D-05, 0.20147058D-05, - + 0.20512283D-05, 0.20488639D-05, 0.71978424D-03, 0.18223200D-05/ - DATA ((CALC(I,K,21),I=1,8), K=10,18) / - + 0.12584987D-01, 0.68875151D-03, 0.18635568D-05, 0.18227219D-05, - + 0.18657735D-05, 0.18635568D-05, 0.52992811D-03, 0.16759719D-05, - + 0.10875222D-01, 0.58402703D-03, 0.16735644D-05, 0.16273312D-05, - + 0.16756148D-05, 0.16735644D-05, 0.39128689D-03, 0.15184202D-05, - + 0.93846245D-02, 0.49458096D-03, 0.14873320D-05, 0.14370258D-05, - + 0.14892073D-05, 0.14873320D-05, 0.29005601D-03, 0.13591698D-05, - + 0.80869988D-02, 0.41828666D-03, 0.13103514D-05, 0.12572654D-05, - + 0.13120505D-05, 0.13103514D-05, 0.21597406D-03, 0.12046045D-05, - + 0.69590429D-02, 0.35329943D-03, 0.11460860D-05, 0.10914244D-05, - + 0.11476129D-05, 0.11460860D-05, 0.16173656D-03, 0.10589379D-05, - + 0.59800496D-02, 0.29802041D-03, 0.99635391D-06, 0.94119654D-06, - + 0.99771627D-06, 0.99635391D-06, 0.12200019D-03, 0.92461894D-06, - + 0.51316381D-02, 0.25106512D-03, 0.86169801D-06, 0.80698098D-06, - + 0.86290587D-06, 0.86169801D-06, 0.92683828D-04, 0.80272005D-06, - + 0.43975147D-02, 0.21123630D-03, 0.74193773D-06, 0.68844610D-06, - + 0.74300255D-06, 0.74193773D-06, 0.70911410D-04, 0.69350509D-06, - + 0.37632565D-02, 0.17749999D-03, 0.63643257D-06, 0.58480153D-06, - + 0.63736646D-06, 0.63643257D-06, 0.54725864D-04, 0.59670595D-06/ - DATA ((CALC(I,K,21),I=1,8), K=19,20) / - + 0.32161163D-02, 0.14896435D-03, 0.54415857D-06, 0.49488097D-06, - + 0.54497380D-06, 0.54415857D-06, 0.42606524D-04, 0.51161037D-06, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALC(I,K,22),I=1,8), K=1,9) / - + 0.21580972D-01, 0.92209954D-03, 0.14007288D-06, 0.14007288D-06, - + 0.14007288D-06, 0.14007288D-06, 0.34094253D-02, 0.22811987D-19, - + 0.18585618D-01, 0.77752973D-03, 0.22352135D-06, 0.19058807D-06, - + 0.22376004D-06, 0.22352135D-06, 0.24340210D-02, 0.10846867D-06, - + 0.15993270D-01, 0.65539026D-03, 0.30802777D-06, 0.24852177D-06, - + 0.30841980D-06, 0.30802777D-06, 0.17410110D-02, 0.21351491D-06, - + 0.13745610D-01, 0.55186052D-03, 0.36621607D-06, 0.28633073D-06, - + 0.36670050D-06, 0.36621607D-06, 0.12444936D-02, 0.28864325D-06, - + 0.11798701D-01, 0.46414836D-03, 0.40311511D-06, 0.30870323D-06, - + 0.40364752D-06, 0.40311511D-06, 0.88612427D-03, 0.33951680D-06, - + 0.10114392D-01, 0.38992726D-03, 0.41758062D-06, 0.31368737D-06, - + 0.41812855D-06, 0.41758062D-06, 0.63037536D-03, 0.36549185D-06, - + 0.86588490D-02, 0.32717401D-03, 0.41277224D-06, 0.30369141D-06, - + 0.41331294D-06, 0.41277224D-06, 0.44853047D-03, 0.37015640D-06, - + 0.74025551D-02, 0.27417276D-03, 0.39489841D-06, 0.28417881D-06, - + 0.39541648D-06, 0.39489841D-06, 0.31919521D-03, 0.36007271D-06, - + 0.63196564D-02, 0.22946005D-03, 0.36836096D-06, 0.25883661D-06, - + 0.36884652D-06, 0.36836096D-06, 0.22754880D-03, 0.33993476D-06/ - DATA ((CALC(I,K,22),I=1,8), K=10,18) / - + 0.53874971D-02, 0.19178564D-03, 0.33665343D-06, 0.23050806D-06, - + 0.33710077D-06, 0.33665343D-06, 0.16272555D-03, 0.31347867D-06, - + 0.45862357D-02, 0.16008248D-03, 0.30269325D-06, 0.20153905D-06, - + 0.30309968D-06, 0.30269325D-06, 0.11675915D-03, 0.28382289D-06, - + 0.38985004D-02, 0.13343992D-03, 0.26863798D-06, 0.17359831D-06, - + 0.26900300D-06, 0.26863798D-06, 0.84194380D-04, 0.25329154D-06, - + 0.33090918D-02, 0.11108101D-03, 0.23591169D-06, 0.14769895D-06, - + 0.23623631D-06, 0.23591169D-06, 0.61171621D-04, 0.22344662D-06, - + 0.28047231D-02, 0.92343339D-04, 0.20533311D-06, 0.12432414D-06, - + 0.20561935D-06, 0.20533311D-06, 0.44770743D-04, 0.19522106D-06, - + 0.23737922D-02, 0.76662798D-04, 0.17739050D-06, 0.10369546D-06, - + 0.17764102D-06, 0.17739050D-06, 0.32997468D-04, 0.16919749D-06, - + 0.20061808D-02, 0.63559531D-04, 0.15232747D-06, 0.85849969D-07, - + 0.15254527D-06, 0.15232747D-06, 0.24567206D-04, 0.14569754D-06, - + 0.16930761D-02, 0.52625754D-04, 0.13013297D-06, 0.70622292D-07, - + 0.13032119D-06, 0.13013297D-06, 0.18493395D-04, 0.12477449D-06, - + 0.14268147D-02, 0.43515450D-04, 0.11066644D-06, 0.57761959D-07, - + 0.11082822D-06, 0.11066644D-06, 0.14033552D-04, 0.10634084D-06/ - DATA ((CALC(I,K,22),I=1,8), K=19,20) / - + 0.12007428D-02, 0.35935474D-04, 0.93752153D-07, 0.47019945D-07, - + 0.93890517D-07, 0.93752153D-07, 0.10740693D-04, 0.90264520D-07, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALC(I,K,23),I=1,8), K=1,9) / - + 0.84858156D-02, 0.20777556D-03, 0.11297044D-07, 0.11297044D-07, - + 0.11297044D-07, 0.11297044D-07, 0.10787630D-02, 0.81852830D-19, - + 0.71772078D-02, 0.17184644D-03,-0.66395807D-08,-0.41478760D-07, - + -0.66053772D-08,-0.66395807D-08, 0.73734465D-03,-0.15743793D-07, - + 0.60664390D-02, 0.14211945D-03,-0.20154037D-08,-0.57171527D-07, - + -0.19618372D-08,-0.20154037D-08, 0.50633255D-03,-0.93555012D-08, - + 0.51211524D-02, 0.11741519D-03, 0.68791051D-08,-0.58842106D-07, - + 0.69423207D-08, 0.68791051D-08, 0.34830947D-03, 0.96628812D-09, - + 0.43173411D-02, 0.96886760D-04, 0.16322381D-07,-0.53462304D-07, - + 0.16388920D-07, 0.16322381D-07, 0.23817074D-03, 0.11565259D-07, - + 0.36348173D-02, 0.79853924D-04, 0.23685523D-07,-0.45664853D-07, - + 0.23751105D-07, 0.23685523D-07, 0.16267318D-03, 0.19862202D-07, - + 0.30559156D-02, 0.65732582D-04, 0.27959697D-07,-0.38052035D-07, - + 0.28021657D-07, 0.27959697D-07, 0.11140415D-03, 0.24890346D-07, - + 0.25655227D-02, 0.54037278D-04, 0.29830311D-07,-0.31147471D-07, - + 0.29887152D-07, 0.29830311D-07, 0.76410313D-04, 0.27369238D-07, - + 0.21506722D-02, 0.44362930D-04, 0.29807241D-07,-0.25259246D-07, - + 0.29858244D-07, 0.29807241D-07, 0.52448899D-04, 0.27836343D-07/ - DATA ((CALC(I,K,23),I=1,8), K=10,18) / - + 0.18002247D-02, 0.36370383D-04, 0.28397781D-07,-0.20440888D-07, - + 0.28442756D-07, 0.28397781D-07, 0.36149121D-04, 0.26821429D-07, - + 0.15046181D-02, 0.29776112D-04, 0.26176173D-07,-0.16505236D-07, - + 0.26215275D-07, 0.26176173D-07, 0.25121414D-04, 0.24917013D-07, - + 0.12556495D-02, 0.24343044D-04, 0.23524267D-07,-0.13316204D-07, - + 0.23557864D-07, 0.23524267D-07, 0.17574399D-04, 0.22519787D-07, - + 0.10462870D-02, 0.19873096D-04, 0.20716252D-07,-0.10742717D-07, - + 0.20744828D-07, 0.20716252D-07, 0.12362798D-04, 0.19915994D-07, - + 0.87050901D-03, 0.16200928D-04, 0.17966909D-07,-0.86435474D-08, - + 0.17991001D-07, 0.17966909D-07, 0.87997065D-05, 0.17330192D-07, - + 0.72316490D-03, 0.13188630D-04, 0.15391385D-07,-0.69279941D-08, - + 0.15411538D-07, 0.15391385D-07, 0.63519415D-05, 0.14885453D-07, - + 0.59985502D-03, 0.10721318D-04, 0.13045821D-07,-0.55309984D-08, - + 0.13062561D-07, 0.13045821D-07, 0.46234869D-05, 0.12644335D-07, - + 0.49682666D-03, 0.87034365D-05, 0.10964387D-07,-0.43885536D-08, - + 0.10978202D-07, 0.10964387D-07, 0.33981657D-05, 0.10646197D-07, - + 0.41088397D-03, 0.70556024D-05, 0.91516560D-08,-0.34539907D-08, - + 0.91629915D-08, 0.91516560D-08, 0.25366900D-05, 0.88998043D-08/ - DATA ((CALC(I,K,23),I=1,8), K=19,20) / - + 0.33930984D-03, 0.57119689D-05, 0.75919874D-08,-0.26946949D-08, - + 0.76012374D-08, 0.75919874D-08, 0.19154362D-05, 0.73928945D-08, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALC(I,K,24),I=1,8), K=1,9) / - + 0.22702571D-02, 0.24708982D-04, 0.32502839D-09, 0.32502839D-09, - + 0.32502839D-09, 0.32502839D-09, 0.21308933D-03,-0.18486130D-20, - + 0.18744090D-02, 0.19903444D-04,-0.14246691D-07,-0.42350326D-08, - + -0.14249211D-07,-0.14246691D-07, 0.13714357D-03,-0.14501962D-07, - + 0.15469124D-02, 0.16040142D-04,-0.18652171D-07,-0.27630390D-08, - + -0.18656122D-07,-0.18652171D-07, 0.89146620D-04,-0.18852845D-07, - + 0.12749615D-02, 0.12914882D-04,-0.19042325D-07,-0.74608701D-10, - + -0.19046993D-07,-0.19042325D-07, 0.58368090D-04,-0.19199960D-07, - + 0.10492560D-02, 0.10384592D-04,-0.17684678D-07, 0.24683636D-08, - + -0.17689594D-07,-0.17684678D-07, 0.37797614D-04,-0.17808318D-07, - + 0.86227886D-03, 0.83402949D-05,-0.15549653D-07, 0.44773317D-08, - + -0.15554502D-07,-0.15549653D-07, 0.24455882D-04,-0.15646524D-07, - + 0.70756042D-03, 0.66897909D-05,-0.13333272D-07, 0.57206659D-08, - + -0.13337857D-07,-0.13333272D-07, 0.15933279D-04,-0.13409081D-07, - + 0.57970642D-03, 0.53585136D-05,-0.11252145D-07, 0.63275839D-08, - + -0.11256354D-07,-0.11252145D-07, 0.10386156D-04,-0.11311394D-07, - + 0.47420896D-03, 0.42861267D-05,-0.93772561D-08, 0.64667477D-08, - + -0.93810351D-08,-0.93772561D-08, 0.67963855D-05,-0.94235001D-08/ - DATA ((CALC(I,K,24),I=1,8), K=10,18) / - + 0.38729093D-03, 0.34233910D-05,-0.77688585D-08, 0.62450390D-08, - + -0.77721932D-08,-0.77688585D-08, 0.44870343D-05,-0.78049036D-08, - + 0.31579344D-03, 0.27302787D-05,-0.64116419D-08, 0.57920215D-08, - + -0.64145433D-08,-0.64116419D-08, 0.29804498D-05,-0.64396984D-08, - + 0.25707652D-03, 0.21742626D-05,-0.52650150D-08, 0.52214625D-08, - + -0.52675098D-08,-0.52650150D-08, 0.19997594D-05,-0.52868229D-08, - + 0.20893582D-03, 0.17288911D-05,-0.43056522D-08, 0.46000381D-08, - + -0.43077759D-08,-0.43056522D-08, 0.13632810D-05,-0.43225792D-08, - + 0.16953312D-03, 0.13726894D-05,-0.35096481D-08, 0.39740039D-08, - + -0.35114402D-08,-0.35096481D-08, 0.94021476D-06,-0.35227681D-08, - + 0.13733760D-03, 0.10882495D-05,-0.28493808D-08, 0.33785446D-08, - + -0.28508814D-08,-0.28493808D-08, 0.65571517D-06,-0.28595357D-08, - + 0.11107635D-03, 0.86147086D-06,-0.23030700D-08, 0.28329892D-08, - + -0.23043179D-08,-0.23030700D-08, 0.46575548D-06,-0.23109189D-08, - + 0.89692587D-04, 0.68094803D-06,-0.18535793D-08, 0.23456287D-08, - + -0.18546104D-08,-0.18535793D-08, 0.33609604D-06,-0.18596374D-08, - + 0.72310507D-04, 0.53747241D-06,-0.14850461D-08, 0.19196948D-08, - + -0.14858934D-08,-0.14850461D-08, 0.24478891D-06,-0.14897156D-08/ - DATA ((CALC(I,K,24),I=1,8), K=19,20) / - + 0.58205571D-04, 0.42361984D-06,-0.11839162D-08, 0.15541943D-08, - + -0.11846086D-08,-0.11839162D-08, 0.18047922D-06,-0.11875105D-08, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ - DATA ((CALC(I,K,25),I=1,8), K=1,9) / - + 0.24429591D-03, 0.62021186D-06, 0.75420150D-12, 0.75420150D-12, - + 0.75420150D-12, 0.75420150D-12, 0.13318083D-04, 0.95227098D-22, - + 0.19366150D-03, 0.47939321D-06, 0.21511713D-09,-0.40057740D-08, - + 0.21523678D-09, 0.21511713D-09, 0.77271079D-05, 0.21454950D-09, - + 0.15355328D-03, 0.37131637D-06, 0.67681623D-09,-0.60145920D-08, - + 0.67699959D-09, 0.67681623D-09, 0.45920150D-05, 0.67638808D-09, - + 0.12159520D-03, 0.28752233D-06, 0.10810370D-08,-0.69046506D-08, - + 0.10812489D-08, 0.10810370D-08, 0.28193096D-05, 0.10807142D-08, - + 0.96111689D-04, 0.22228227D-06, 0.13333946D-08,-0.71542527D-08, - + 0.13336133D-08, 0.13333946D-08, 0.16691017D-05, 0.13331517D-08, - + 0.75852785D-04, 0.17167953D-06, 0.14702839D-08,-0.69732754D-08, - + 0.14704954D-08, 0.14702839D-08, 0.97059807D-06, 0.14701014D-08, - + 0.59767344D-04, 0.13245573D-06, 0.15134131D-08,-0.65356568D-08, - + 0.15136090D-08, 0.15134131D-08, 0.59145851D-06, 0.15132761D-08, - + 0.47011851D-04, 0.10205625D-06, 0.14805928D-08,-0.59668029D-08, - + 0.14807691D-08, 0.14805928D-08, 0.36409669D-06, 0.14804901D-08, - + 0.36914306D-04, 0.78527064D-07, 0.13973951D-08,-0.53401944D-08, - + 0.13975503D-08, 0.13973951D-08, 0.21651983D-06, 0.13973183D-08/ - DATA ((CALC(I,K,25),I=1,8), K=10,18) / - + 0.28934434D-04, 0.60339449D-07, 0.12841196D-08,-0.47044321D-08, - + 0.12842538D-08, 0.12841196D-08, 0.13171744D-06, 0.12840622D-08, - + 0.22638993D-04, 0.46297848D-07, 0.11551000D-08,-0.40916924D-08, - + 0.11552145D-08, 0.11551000D-08, 0.84441910D-07, 0.11550572D-08, - + 0.17681367D-04, 0.35472543D-07, 0.10216026D-08,-0.35203358D-08, - + 0.10216991D-08, 0.10216026D-08, 0.53712308D-07, 0.10215707D-08, - + 0.13784433D-04, 0.27139041D-07, 0.89105708D-09,-0.30004447D-08, - + 0.89113766D-09, 0.89105708D-09, 0.33895730D-07, 0.89103334D-09, - + 0.10726952D-04, 0.20732993D-07, 0.76790480D-09,-0.25365403D-08, - + 0.76797148D-09, 0.76790480D-09, 0.22507340D-07, 0.76788717D-09, - + 0.83326046D-05, 0.15816051D-07, 0.65502489D-09,-0.21287637D-08, - + 0.65507965D-09, 0.65502489D-09, 0.15432815D-07, 0.65501182D-09, - + 0.64611100D-05, 0.12047888D-07, 0.55385358D-09,-0.17747234D-08, - + 0.55389824D-09, 0.55385358D-09, 0.10449599D-07, 0.55384390D-09, - + 0.50010620D-05, 0.91644363D-08, 0.46463511D-09,-0.14706962D-08, - + 0.46467131D-09, 0.46463511D-09, 0.71931193D-08, 0.46462796D-09, - + 0.38641562D-05, 0.69612878D-08, 0.38702015D-09,-0.12120739D-08, - + 0.38704934D-09, 0.38702015D-09, 0.51519281D-08, 0.38701488D-09/ - DATA ((CALC(I,K,25),I=1,8), K=19,20) / - + 0.29805372D-05, 0.52805026D-08, 0.32033222D-09,-0.99383802D-09, - + 0.32035562D-09, 0.32033222D-09, 0.37055056D-08, 0.32032833D-09, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, - + 0.00000000D+00, 0.00000000D+00, 0.00000000D+00, 0.00000000D+00/ -C --------------------------------------------------------------------- - DATA ISTART/0/ - SAVE ISTART,OWLAM2,Q02PR -C - IF(ISTART.EQ.0) THEN - ISTART=1 - DO 11 K=1,25 - DO 11 I=1,20 - DO 11 M=1,8 - 11 CALCO(M,I,K) = CALC(M,I,K) - OWLAM=PAR(1) - OWLAM2=OWLAM**2 - Q02PR=PAR(39) - Q2MAX=PAR(40) - ENDIF -C -C the conventions are : q(1)=x*u, q(2)=x*d, q(3)=x*str, q(4)=x*usea, -C q(5)=x*dsea, q(6)=x*charm, q(7)=x*gluon -C - X = DX - Q = DQ - Q2 = Q*Q - IDQ2=2 - SB=0. - IF(Q2-Q02PR) 1,1,2 - 2 IF(IDQ2-1) 1,1,3 - 3 SB= LOG( LOG(Q2/OWLAM2)/ LOG(Q02PR/OWLAM2)) - 1 CONTINUE - CALL AURPR(1,0,X,SB,XPDF(1)) - CALL AURPR(2,0,X,SB,XPDF(2)) - CALL AURPR(3,0,X,SB,XPDF(3)) - CALL AURPR(4,0,X,SB,XPDF(4)) - CALL AURPR(5,0,X,SB,XPDF(5)) - CALL AURPR(8,0,X,SB,XPDF(6)) - CALL AURPR(7,0,X,SB,XPDF(7)) -C - DUPV=XPDF(1) - XPDF(4) - DDNV=XPDF(2) - XPDF(5) - DUSEA=XPDF(4) - DDSEA=XPDF(5) - DSTR=XPDF(3) - DCHM=XPDF(6) - DGL =XPDF(7) -C - RETURN - END diff --git a/PDF/spdf/sfafg1.F b/PDF/spdf/sfafg1.F deleted file mode 100644 index 292236c4eb3..00000000000 --- a/PDF/spdf/sfafg1.F +++ /dev/null @@ -1,2931 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:32:30 cernlib -* Version 7.04 -* -* Revision 1.2 1996/10/28 15:05:02 pdflib -* PDFLIB new version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:30 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFAFG1(DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DGL) -C -C************************************************************************** -C ( 1st of February 1994) -C This is an interpolation program which reads the files GRPOL and -C GRVDM and gives the quark and gluon distributions in real photon -C as functions of x and Q**2. -C -C The Q**2 evolution is a BLL evolution (MSbar scheme) with Nf=4 -C and LAMBDA(MSbar)=.200 Gev. -C -C A massless charm distribution is generated for Q**2 > 2 Gev**2. -C -C The distributions are the sum of a pointlike part (PL) and of a -C Vdm part (VDM): -C dist=PL + KA*VDM -C KA is a factor which can be adjusted ( the default value is KA=1.0). -C The file GRPOL contains the pointlike part of the distributions. -C The file GRVDM contains the vdm part (A precise definition of this -C latter is given in the paper "PARTON DISTRIBUTIONS IN THE PHOTON", -C Preprint LPTHE Orsay 93-37, by P.Aurenche,M.Fontannaz and J.Ph.Guillet). -C -C The output of the program is written in the file GETOUT with the -C following conventions -C UPLUS=x(u+ubar) -C DPLUS=x(d+dbar) -C SPLUS=x(s+sbar) -C CPLUS=x(c+cbar) -C SING =UPLUS+DPLUS+SPLUS+CPLUS -C GLU =x*g -C -C The interpolation is valid for 2. < Q**2 < 5.5E+5 Gev**2, -C and for .0015< x < .99 -C -C The program also gives the structure function F2: -C F2 = q*Cq + g*Cg + Cgam -C Cq and Cg are the Wilson coeficients and Cgam is the direct term. -C -C Although the charm quark evolution is massless, the direct term -C Cgam includes the effects due to the charm quark mass. The charm -C quark threshold is therefore correctly described at the lowest -C ordre in alphastrong (Details are given in the preprint). -C -C -C************************************************************************** -C -#include "pdf/expdp.inc" - + DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DGL - REAL X, Q, UV, DV, UB, DB, SB, CB, BB, GL - REAL Q2 - DIMENSION XPDF(7) - DIMENSION PAR(30), CALC(8,20,32),CALCO(8,20,32) - DIMENSION PAR2(30),CELC(8,20,32),CELCO(8,20,32) - COMMON/W5051IA/CALCO - COMMON/W5051IB/CELCO - EXTERNAL AFCPLU - DATA ZERO/0.0/ -C---------------------------------------------------------------------- - DATA (PAR(I),I=1,30) / - + .2000E+00, .4800E+00, .8500E+00, .1000E+01, - + .1000E+01, .1000E+01, .1200E+01, .7500E+01, - + .1987E+01, .1900E+01, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .1000E+01, - + .0000E+00, .1000E+01, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .4000E+01, .0000E+00, .2000E+01, .1000E+01, - + .8000E-01, .2000E+01/ - DATA ((CALC(I,K,1 ),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .7046E-04, -.1941E-04, - + .3163E-04, -.1941E-04, .2818E-03, .1587E-02, - + .0000E+00, .0000E+00, .6989E-04, -.1815E-04, - + .3360E-04, -.1815E-04, .4710E-03, .2351E-02, - + .0000E+00, .0000E+00, .6919E-04, -.1670E-04, - + .3579E-04, -.1670E-04, .7175E-03, .3348E-02, - + .0000E+00, .0000E+00, .6833E-04, -.1507E-04, - + .3820E-04, -.1507E-04, .1033E-02, .4635E-02, - + .0000E+00, .0000E+00, .6730E-04, -.1322E-04, - + .4085E-04, -.1322E-04, .1429E-02, .6264E-02, - + .0000E+00, .0000E+00, .6607E-04, -.1115E-04, - + .4378E-04, -.1115E-04, .1920E-02, .8299E-02, - + .0000E+00, .0000E+00, .6463E-04, -.8819E-05, - + .4699E-04, -.8819E-05, .2521E-02, .1081E-01, - + .0000E+00, .0000E+00, .6295E-04, -.6218E-05, - + .5052E-04, -.6218E-05, .3249E-02, .1387E-01, - + .0000E+00, .0000E+00, .6102E-04, -.3316E-05, - + .5439E-04, -.3316E-05, .4126E-02, .1757E-01/ - DATA ((CALC(I,K,1 ),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .5879E-04, -.8646E-07, - + .5862E-04, -.8646E-07, .5172E-02, .2200E-01, - + .0000E+00, .0000E+00, .5624E-04, .3500E-05, - + .6325E-04, .3500E-05, .6413E-02, .2726E-01, - + .0000E+00, .0000E+00, .5335E-04, .7477E-05, - + .6830E-04, .7477E-05, .7877E-02, .3346E-01, - + .0000E+00, .0000E+00, .5007E-04, .1188E-04, - + .7383E-04, .1188E-04, .9594E-02, .4073E-01, - + .0000E+00, .0000E+00, .4636E-04, .1675E-04, - + .7986E-04, .1675E-04, .1160E-01, .4919E-01, - + .0000E+00, .0000E+00, .4220E-04, .2212E-04, - + .8643E-04, .2212E-04, .1393E-01, .5898E-01, - + .0000E+00, .0000E+00, .3752E-04, .2804E-04, - + .9361E-04, .2804E-04, .1663E-01, .7026E-01, - + .0000E+00, .0000E+00, .3228E-04, .3457E-04, - + .1014E-03, .3457E-04, .1974E-01, .8319E-01, - + .0000E+00, .0000E+00, .2644E-04, .4175E-04, - + .1099E-03, .4175E-04, .2331E-01, .9795E-01/ - DATA ((CALC(I,K,1 ),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .1992E-04, .4964E-04, - + .1192E-03, .4964E-04, .2740E-01, .1147E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,2 ),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .8644E-04, -.1332E-04, - + .5980E-04, -.1332E-04, .3458E-03, .1536E-02, - + .0000E+00, .0000E+00, .8349E-04, -.8330E-05, - + .6683E-04, -.8330E-05, .5160E-03, .2121E-02, - + .0000E+00, .0000E+00, .7998E-04, -.2714E-05, - + .7455E-04, -.2714E-05, .7238E-03, .2849E-02, - + .0000E+00, .0000E+00, .7586E-04, .3591E-05, - + .8305E-04, .3591E-05, .9745E-03, .3743E-02, - + .0000E+00, .0000E+00, .7107E-04, .1064E-04, - + .9236E-04, .1064E-04, .1273E-02, .4826E-02, - + .0000E+00, .0000E+00, .6553E-04, .1851E-04, - + .1026E-03, .1851E-04, .1627E-02, .6122E-02, - + .0000E+00, .0000E+00, .5919E-04, .2727E-04, - + .1137E-03, .2727E-04, .2041E-02, .7658E-02, - + .0000E+00, .0000E+00, .5194E-04, .3699E-04, - + .1259E-03, .3699E-04, .2522E-02, .9460E-02, - + .0000E+00, .0000E+00, .4373E-04, .4776E-04, - + .1393E-03, .4776E-04, .3079E-02, .1156E-01/ - DATA ((CALC(I,K,2 ),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .3444E-04, .5968E-04, - + .1538E-03, .5968E-04, .3719E-02, .1398E-01, - + .0000E+00, .0000E+00, .2398E-04, .7284E-04, - + .1697E-03, .7284E-04, .4451E-02, .1676E-01, - + .0000E+00, .0000E+00, .1224E-04, .8735E-04, - + .1869E-03, .8735E-04, .5284E-02, .1993E-01, - + .0000E+00, .0000E+00, -.8887E-06, .1033E-03, - + .2058E-03, .1033E-03, .6227E-02, .2353E-01, - + .0000E+00, .0000E+00, -.1555E-04, .1209E-03, - + .2263E-03, .1209E-03, .7292E-02, .2758E-01, - + .0000E+00, .0000E+00, -.3187E-04, .1402E-03, - + .2486E-03, .1402E-03, .8489E-02, .3213E-01, - + .0000E+00, .0000E+00, -.5001E-04, .1614E-03, - + .2729E-03, .1614E-03, .9830E-02, .3721E-01, - + .0000E+00, .0000E+00, -.7012E-04, .1847E-03, - + .2993E-03, .1847E-03, .1133E-01, .4287E-01, - + .0000E+00, .0000E+00, -.9240E-04, .2102E-03, - + .3280E-03, .2102E-03, .1299E-01, .4915E-01/ - DATA ((CALC(I,K,2 ),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.1170E-03, .2381E-03, - + .3592E-03, .2381E-03, .1484E-01, .5608E-01, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,3 ),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .9767E-04, -.1471E-05, - + .9472E-04, -.1471E-05, .3907E-03, .1317E-02, - + .0000E+00, .0000E+00, .9108E-04, .8666E-05, - + .1084E-03, .8666E-05, .5631E-03, .1782E-02, - + .0000E+00, .0000E+00, .8336E-04, .2002E-04, - + .1234E-03, .2002E-04, .7670E-03, .2352E-02, - + .0000E+00, .0000E+00, .7440E-04, .3269E-04, - + .1398E-03, .3269E-04, .1006E-02, .3044E-02, - + .0000E+00, .0000E+00, .6409E-04, .4681E-04, - + .1577E-03, .4681E-04, .1286E-02, .3872E-02, - + .0000E+00, .0000E+00, .5230E-04, .6248E-04, - + .1773E-03, .6248E-04, .1609E-02, .4853E-02, - + .0000E+00, .0000E+00, .3889E-04, .7985E-04, - + .1986E-03, .7985E-04, .1982E-02, .6003E-02, - + .0000E+00, .0000E+00, .2372E-04, .9906E-04, - + .2218E-03, .9906E-04, .2410E-02, .7340E-02, - + .0000E+00, .0000E+00, .6630E-05, .1203E-03, - + .2472E-03, .1203E-03, .2898E-02, .8883E-02/ - DATA ((CALC(I,K,3 ),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.1255E-04, .1436E-03, - + .2747E-03, .1436E-03, .3453E-02, .1065E-01, - + .0000E+00, .0000E+00, -.3400E-04, .1694E-03, - + .3047E-03, .1694E-03, .4082E-02, .1267E-01, - + .0000E+00, .0000E+00, -.5792E-04, .1976E-03, - + .3373E-03, .1976E-03, .4793E-02, .1496E-01, - + .0000E+00, .0000E+00, -.8455E-04, .2286E-03, - + .3728E-03, .2286E-03, .5593E-02, .1754E-01, - + .0000E+00, .0000E+00, -.1141E-03, .2627E-03, - + .4113E-03, .2627E-03, .6491E-02, .2044E-01, - + .0000E+00, .0000E+00, -.1468E-03, .3000E-03, - + .4531E-03, .3000E-03, .7497E-02, .2369E-01, - + .0000E+00, .0000E+00, -.1831E-03, .3408E-03, - + .4985E-03, .3408E-03, .8621E-02, .2732E-01, - + .0000E+00, .0000E+00, -.2230E-03, .3854E-03, - + .5479E-03, .3854E-03, .9874E-02, .3134E-01, - + .0000E+00, .0000E+00, -.2671E-03, .4342E-03, - + .6014E-03, .4342E-03, .1127E-01, .3581E-01/ - DATA ((CALC(I,K,3 ),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.3156E-03, .4876E-03, - + .6595E-03, .4876E-03, .1281E-01, .4075E-01, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,4 ),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .1161E-03, .1080E-04, - + .1377E-03, .1080E-04, .4642E-03, .1155E-02, - + .0000E+00, .0000E+00, .1047E-03, .2719E-04, - + .1591E-03, .2719E-04, .6584E-03, .1543E-02, - + .0000E+00, .0000E+00, .9152E-04, .4545E-04, - + .1824E-03, .4545E-04, .8823E-03, .2014E-02, - + .0000E+00, .0000E+00, .7636E-04, .6577E-04, - + .2079E-03, .6577E-04, .1140E-02, .2580E-02, - + .0000E+00, .0000E+00, .5906E-04, .8831E-04, - + .2357E-03, .8831E-04, .1434E-02, .3252E-02, - + .0000E+00, .0000E+00, .3943E-04, .1132E-03, - + .2659E-03, .1132E-03, .1769E-02, .4039E-02, - + .0000E+00, .0000E+00, .1725E-04, .1408E-03, - + .2989E-03, .1408E-03, .2149E-02, .4953E-02, - + .0000E+00, .0000E+00, -.7685E-05, .1712E-03, - + .3346E-03, .1712E-03, .2578E-02, .6007E-02, - + .0000E+00, .0000E+00, -.3561E-04, .2046E-03, - + .3736E-03, .2046E-03, .3061E-02, .7212E-02/ - DATA ((CALC(I,K,4 ),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.6680E-04, .2413E-03, - + .4158E-03, .2413E-03, .3603E-02, .8581E-02, - + .0000E+00, .0000E+00, -.1015E-03, .2816E-03, - + .4618E-03, .2816E-03, .4210E-02, .1013E-01, - + .0000E+00, .0000E+00, -.1401E-03, .3258E-03, - + .5116E-03, .3258E-03, .4889E-02, .1187E-01, - + .0000E+00, .0000E+00, -.1828E-03, .3742E-03, - + .5657E-03, .3742E-03, .5644E-02, .1382E-01, - + .0000E+00, .0000E+00, -.2300E-03, .4272E-03, - + .6244E-03, .4272E-03, .6483E-02, .1599E-01, - + .0000E+00, .0000E+00, -.2821E-03, .4851E-03, - + .6881E-03, .4851E-03, .7415E-02, .1840E-01, - + .0000E+00, .0000E+00, -.3395E-03, .5484E-03, - + .7572E-03, .5484E-03, .8446E-02, .2108E-01, - + .0000E+00, .0000E+00, -.4028E-03, .6174E-03, - + .8321E-03, .6174E-03, .9585E-02, .2403E-01, - + .0000E+00, .0000E+00, -.4722E-03, .6927E-03, - + .9133E-03, .6927E-03, .1084E-01, .2728E-01/ - DATA ((CALC(I,K,4 ),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.5485E-03, .7749E-03, - + .1001E-02, .7749E-03, .1223E-01, .3085E-01, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,5 ),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .1386E-03, .2317E-04, - + .1850E-03, .2317E-04, .5544E-03, .1024E-02, - + .0000E+00, .0000E+00, .1214E-03, .4659E-04, - + .2146E-03, .4659E-04, .7810E-03, .1353E-02, - + .0000E+00, .0000E+00, .1017E-03, .7259E-04, - + .2469E-03, .7259E-04, .1038E-02, .1751E-02, - + .0000E+00, .0000E+00, .7926E-04, .1014E-03, - + .2821E-03, .1014E-03, .1328E-02, .2226E-02, - + .0000E+00, .0000E+00, .5382E-04, .1332E-03, - + .3203E-03, .1332E-03, .1656E-02, .2786E-02, - + .0000E+00, .0000E+00, .2514E-04, .1684E-03, - + .3619E-03, .1684E-03, .2023E-02, .3437E-02, - + .0000E+00, .0000E+00, -.7055E-05, .2071E-03, - + .4071E-03, .2071E-03, .2435E-02, .4188E-02, - + .0000E+00, .0000E+00, -.4305E-04, .2496E-03, - + .4561E-03, .2496E-03, .2894E-02, .5047E-02, - + .0000E+00, .0000E+00, -.8316E-04, .2962E-03, - + .5093E-03, .2962E-03, .3407E-02, .6023E-02/ - DATA ((CALC(I,K,5 ),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.1277E-03, .3474E-03, - + .5671E-03, .3474E-03, .3977E-02, .7125E-02, - + .0000E+00, .0000E+00, -.1772E-03, .4034E-03, - + .6297E-03, .4034E-03, .4609E-02, .8363E-02, - + .0000E+00, .0000E+00, -.2318E-03, .4647E-03, - + .6976E-03, .4647E-03, .5308E-02, .9746E-02, - + .0000E+00, .0000E+00, -.2922E-03, .5317E-03, - + .7712E-03, .5317E-03, .6082E-02, .1129E-01, - + .0000E+00, .0000E+00, -.3586E-03, .6048E-03, - + .8510E-03, .6048E-03, .6935E-02, .1299E-01, - + .0000E+00, .0000E+00, -.4318E-03, .6846E-03, - + .9375E-03, .6846E-03, .7875E-02, .1488E-01, - + .0000E+00, .0000E+00, -.5122E-03, .7717E-03, - + .1031E-02, .7717E-03, .8909E-02, .1696E-01, - + .0000E+00, .0000E+00, -.6004E-03, .8665E-03, - + .1133E-02, .8665E-03, .1005E-01, .1924E-01, - + .0000E+00, .0000E+00, -.6971E-03, .9698E-03, - + .1243E-02, .9698E-03, .1129E-01, .2174E-01/ - DATA ((CALC(I,K,5 ),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.8030E-03, .1082E-02, - + .1362E-02, .1082E-02, .1266E-01, .2448E-01, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,6 ),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .1628E-03, .3519E-04, - + .2333E-03, .3519E-04, .6514E-03, .9133E-03, - + .0000E+00, .0000E+00, .1392E-03, .6607E-04, - + .2714E-03, .6607E-04, .9167E-03, .1195E-02, - + .0000E+00, .0000E+00, .1123E-03, .1002E-03, - + .3128E-03, .1002E-03, .1214E-02, .1535E-02, - + .0000E+00, .0000E+00, .8187E-04, .1379E-03, - + .3578E-03, .1379E-03, .1546E-02, .1939E-02, - + .0000E+00, .0000E+00, .4764E-04, .1795E-03, - + .4067E-03, .1795E-03, .1916E-02, .2412E-02, - + .0000E+00, .0000E+00, .9280E-05, .2252E-03, - + .4597E-03, .2252E-03, .2328E-02, .2960E-02, - + .0000E+00, .0000E+00, -.3354E-04, .2754E-03, - + .5172E-03, .2754E-03, .2785E-02, .3588E-02, - + .0000E+00, .0000E+00, -.8119E-04, .3304E-03, - + .5796E-03, .3304E-03, .3291E-02, .4303E-02, - + .0000E+00, .0000E+00, -.1341E-03, .3906E-03, - + .6472E-03, .3906E-03, .3851E-02, .5111E-02/ - DATA ((CALC(I,K,6 ),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.1926E-03, .4565E-03, - + .7205E-03, .4565E-03, .4469E-02, .6018E-02, - + .0000E+00, .0000E+00, -.2573E-03, .5286E-03, - + .7999E-03, .5286E-03, .5151E-02, .7031E-02, - + .0000E+00, .0000E+00, -.3286E-03, .6072E-03, - + .8859E-03, .6072E-03, .5901E-02, .8158E-02, - + .0000E+00, .0000E+00, -.4070E-03, .6930E-03, - + .9790E-03, .6930E-03, .6725E-02, .9406E-02, - + .0000E+00, .0000E+00, -.4933E-03, .7865E-03, - + .1080E-02, .7865E-03, .7629E-02, .1078E-01, - + .0000E+00, .0000E+00, -.5879E-03, .8884E-03, - + .1189E-02, .8884E-03, .8620E-02, .1230E-01, - + .0000E+00, .0000E+00, -.6917E-03, .9994E-03, - + .1307E-02, .9994E-03, .9705E-02, .1396E-01, - + .0000E+00, .0000E+00, -.8053E-03, .1120E-02, - + .1435E-02, .1120E-02, .1089E-01, .1578E-01, - + .0000E+00, .0000E+00, -.9295E-03, .1252E-02, - + .1574E-02, .1252E-02, .1219E-01, .1777E-01/ - DATA ((CALC(I,K,6 ),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.1065E-02, .1394E-02, - + .1723E-02, .1394E-02, .1360E-01, .1994E-01, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,7 ),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .1866E-03, .4643E-04, - + .2795E-03, .4643E-04, .7463E-03, .8158E-03, - + .0000E+00, .0000E+00, .1562E-03, .8485E-04, - + .3260E-03, .8485E-04, .1053E-02, .1058E-02, - + .0000E+00, .0000E+00, .1220E-03, .1272E-03, - + .3764E-03, .1272E-03, .1394E-02, .1350E-02, - + .0000E+00, .0000E+00, .8344E-04, .1738E-03, - + .4311E-03, .1738E-03, .1771E-02, .1696E-02, - + .0000E+00, .0000E+00, .4033E-04, .2250E-03, - + .4904E-03, .2250E-03, .2189E-02, .2099E-02, - + .0000E+00, .0000E+00, -.7743E-05, .2812E-03, - + .5547E-03, .2812E-03, .2651E-02, .2564E-02, - + .0000E+00, .0000E+00, -.6118E-04, .3428E-03, - + .6244E-03, .3428E-03, .3160E-02, .3095E-02, - + .0000E+00, .0000E+00, -.1204E-03, .4101E-03, - + .6998E-03, .4101E-03, .3721E-02, .3697E-02, - + .0000E+00, .0000E+00, -.1859E-03, .4837E-03, - + .7815E-03, .4837E-03, .4338E-02, .4373E-02/ - DATA ((CALC(I,K,7 ),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.2582E-03, .5641E-03, - + .8699E-03, .5641E-03, .5015E-02, .5130E-02, - + .0000E+00, .0000E+00, -.3379E-03, .6517E-03, - + .9656E-03, .6517E-03, .5758E-02, .5972E-02, - + .0000E+00, .0000E+00, -.4255E-03, .7473E-03, - + .1069E-02, .7473E-03, .6572E-02, .6904E-02, - + .0000E+00, .0000E+00, -.5217E-03, .8514E-03, - + .1181E-02, .8514E-03, .7463E-02, .7933E-02, - + .0000E+00, .0000E+00, -.6272E-03, .9647E-03, - + .1302E-02, .9647E-03, .8436E-02, .9064E-02, - + .0000E+00, .0000E+00, -.7428E-03, .1088E-02, - + .1433E-02, .1088E-02, .9500E-02, .1030E-01, - + .0000E+00, .0000E+00, -.8692E-03, .1222E-02, - + .1575E-02, .1222E-02, .1066E-01, .1166E-01, - + .0000E+00, .0000E+00, -.1007E-02, .1368E-02, - + .1728E-02, .1368E-02, .1193E-01, .1314E-01, - + .0000E+00, .0000E+00, -.1158E-02, .1526E-02, - + .1894E-02, .1526E-02, .1331E-01, .1475E-01/ - DATA ((CALC(I,K,7 ),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.1323E-02, .1698E-02, - + .2074E-02, .1698E-02, .1481E-01, .1651E-01, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,8 ),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .2084E-03, .5650E-04, - + .3213E-03, .5650E-04, .8334E-03, .7299E-03, - + .0000E+00, .0000E+00, .1715E-03, .1022E-03, - + .3760E-03, .1022E-03, .1182E-02, .9382E-03, - + .0000E+00, .0000E+00, .1301E-03, .1525E-03, - + .4352E-03, .1525E-03, .1567E-02, .1189E-02, - + .0000E+00, .0000E+00, .8388E-04, .2077E-03, - + .4993E-03, .2077E-03, .1991E-02, .1485E-02, - + .0000E+00, .0000E+00, .3231E-04, .2682E-03, - + .5687E-03, .2682E-03, .2458E-02, .1830E-02, - + .0000E+00, .0000E+00, -.2499E-04, .3344E-03, - + .6438E-03, .3344E-03, .2971E-02, .2227E-02, - + .0000E+00, .0000E+00, -.8849E-04, .4068E-03, - + .7251E-03, .4068E-03, .3534E-02, .2679E-02, - + .0000E+00, .0000E+00, -.1587E-03, .4858E-03, - + .8130E-03, .4858E-03, .4152E-02, .3189E-02, - + .0000E+00, .0000E+00, -.2361E-03, .5721E-03, - + .9081E-03, .5721E-03, .4829E-02, .3760E-02/ - DATA ((CALC(I,K,8 ),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.3214E-03, .6662E-03, - + .1011E-02, .6662E-03, .5569E-02, .4397E-02, - + .0000E+00, .0000E+00, -.4152E-03, .7686E-03, - + .1122E-02, .7686E-03, .6378E-02, .5103E-02, - + .0000E+00, .0000E+00, -.5181E-03, .8801E-03, - + .1242E-02, .8801E-03, .7262E-02, .5882E-02, - + .0000E+00, .0000E+00, -.6310E-03, .1001E-02, - + .1372E-02, .1001E-02, .8226E-02, .6738E-02, - + .0000E+00, .0000E+00, -.7545E-03, .1133E-02, - + .1512E-02, .1133E-02, .9278E-02, .7677E-02, - + .0000E+00, .0000E+00, -.8897E-03, .1277E-02, - + .1664E-02, .1277E-02, .1042E-01, .8703E-02, - + .0000E+00, .0000E+00, -.1037E-02, .1433E-02, - + .1828E-02, .1433E-02, .1167E-01, .9823E-02, - + .0000E+00, .0000E+00, -.1199E-02, .1602E-02, - + .2005E-02, .1602E-02, .1303E-01, .1104E-01, - + .0000E+00, .0000E+00, -.1375E-02, .1786E-02, - + .2197E-02, .1786E-02, .1450E-01, .1236E-01/ - DATA ((CALC(I,K,8 ),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.1567E-02, .1985E-02, - + .2404E-02, .1985E-02, .1610E-01, .1380E-01, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,9 ),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .2271E-03, .6509E-04, - + .3574E-03, .6509E-04, .9085E-03, .6523E-03, - + .0000E+00, .0000E+00, .1845E-03, .1177E-03, - + .4200E-03, .1177E-03, .1298E-02, .8308E-03, - + .0000E+00, .0000E+00, .1368E-03, .1754E-03, - + .4876E-03, .1754E-03, .1726E-02, .1046E-02, - + .0000E+00, .0000E+00, .8354E-04, .2386E-03, - + .5608E-03, .2386E-03, .2195E-02, .1300E-02, - + .0000E+00, .0000E+00, .2438E-04, .3077E-03, - + .6399E-03, .3077E-03, .2710E-02, .1596E-02, - + .0000E+00, .0000E+00, -.4122E-04, .3832E-03, - + .7254E-03, .3832E-03, .3274E-02, .1935E-02, - + .0000E+00, .0000E+00, -.1138E-03, .4657E-03, - + .8177E-03, .4657E-03, .3890E-02, .2321E-02, - + .0000E+00, .0000E+00, -.1938E-03, .5556E-03, - + .9175E-03, .5556E-03, .4564E-02, .2755E-02, - + .0000E+00, .0000E+00, -.2821E-03, .6536E-03, - + .1025E-02, .6536E-03, .5301E-02, .3239E-02/ - DATA ((CALC(I,K,9 ),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.3791E-03, .7603E-03, - + .1142E-02, .7603E-03, .6104E-02, .3778E-02, - + .0000E+00, .0000E+00, -.4857E-03, .8765E-03, - + .1267E-02, .8765E-03, .6980E-02, .4373E-02, - + .0000E+00, .0000E+00, -.6025E-03, .1003E-02, - + .1403E-02, .1003E-02, .7934E-02, .5028E-02, - + .0000E+00, .0000E+00, -.7305E-03, .1140E-02, - + .1550E-02, .1140E-02, .8973E-02, .5746E-02, - + .0000E+00, .0000E+00, -.8706E-03, .1289E-02, - + .1708E-02, .1289E-02, .1010E-01, .6531E-02, - + .0000E+00, .0000E+00, -.1024E-02, .1451E-02, - + .1879E-02, .1451E-02, .1133E-01, .7387E-02, - + .0000E+00, .0000E+00, -.1191E-02, .1627E-02, - + .2063E-02, .1627E-02, .1267E-01, .8318E-02, - + .0000E+00, .0000E+00, -.1373E-02, .1818E-02, - + .2262E-02, .1818E-02, .1412E-01, .9330E-02, - + .0000E+00, .0000E+00, -.1572E-02, .2025E-02, - + .2477E-02, .2025E-02, .1569E-01, .1043E-01/ - DATA ((CALC(I,K,9 ),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.1789E-02, .2249E-02, - + .2710E-02, .2249E-02, .1740E-01, .1161E-01, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,10),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .2428E-03, .7234E-04, - + .3876E-03, .7234E-04, .9714E-03, .5822E-03, - + .0000E+00, .0000E+00, .1954E-03, .1312E-03, - + .4580E-03, .1312E-03, .1399E-02, .7344E-03, - + .0000E+00, .0000E+00, .1425E-03, .1957E-03, - + .5339E-03, .1957E-03, .1868E-02, .9186E-03, - + .0000E+00, .0000E+00, .8346E-04, .2661E-03, - + .6158E-03, .2661E-03, .2380E-02, .1137E-02, - + .0000E+00, .0000E+00, .1789E-04, .3432E-03, - + .7043E-03, .3432E-03, .2941E-02, .1390E-02, - + .0000E+00, .0000E+00, -.5477E-04, .4272E-03, - + .7997E-03, .4272E-03, .3553E-02, .1680E-02, - + .0000E+00, .0000E+00, -.1351E-03, .5189E-03, - + .9027E-03, .5189E-03, .4221E-02, .2010E-02, - + .0000E+00, .0000E+00, -.2238E-03, .6187E-03, - + .1014E-02, .6187E-03, .4949E-02, .2380E-02, - + .0000E+00, .0000E+00, -.3214E-03, .7274E-03, - + .1134E-02, .7274E-03, .5743E-02, .2792E-02/ - DATA ((CALC(I,K,10),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.4288E-03, .8457E-03, - + .1263E-02, .8457E-03, .6607E-02, .3249E-02, - + .0000E+00, .0000E+00, -.5467E-03, .9743E-03, - + .1402E-02, .9743E-03, .7548E-02, .3753E-02, - + .0000E+00, .0000E+00, -.6759E-03, .1114E-02, - + .1552E-02, .1114E-02, .8571E-02, .4306E-02, - + .0000E+00, .0000E+00, -.8175E-03, .1266E-02, - + .1714E-02, .1266E-02, .9682E-02, .4911E-02, - + .0000E+00, .0000E+00, -.9724E-03, .1431E-02, - + .1889E-02, .1431E-02, .1089E-01, .5570E-02, - + .0000E+00, .0000E+00, -.1142E-02, .1610E-02, - + .2077E-02, .1610E-02, .1220E-01, .6288E-02, - + .0000E+00, .0000E+00, -.1327E-02, .1804E-02, - + .2281E-02, .1804E-02, .1363E-01, .7067E-02, - + .0000E+00, .0000E+00, -.1528E-02, .2014E-02, - + .2500E-02, .2014E-02, .1517E-01, .7911E-02, - + .0000E+00, .0000E+00, -.1748E-02, .2242E-02, - + .2737E-02, .2242E-02, .1684E-01, .8824E-02/ - DATA ((CALC(I,K,10),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.1987E-02, .2490E-02, - + .2992E-02, .2490E-02, .1866E-01, .9812E-02, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,11),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .2563E-03, .7857E-04, - + .4134E-03, .7857E-04, .1025E-02, .5194E-03, - + .0000E+00, .0000E+00, .2055E-03, .1431E-03, - + .4916E-03, .1431E-03, .1490E-02, .6484E-03, - + .0000E+00, .0000E+00, .1486E-03, .2136E-03, - + .5758E-03, .2136E-03, .1997E-02, .8056E-03, - + .0000E+00, .0000E+00, .8512E-04, .2907E-03, - + .6665E-03, .2907E-03, .2550E-02, .9920E-03, - + .0000E+00, .0000E+00, .1446E-04, .3749E-03, - + .7642E-03, .3749E-03, .3154E-02, .1209E-02, - + .0000E+00, .0000E+00, -.6396E-04, .4667E-03, - + .8693E-03, .4667E-03, .3812E-02, .1457E-02, - + .0000E+00, .0000E+00, -.1508E-03, .5667E-03, - + .9826E-03, .5667E-03, .4529E-02, .1739E-02, - + .0000E+00, .0000E+00, -.2467E-03, .6756E-03, - + .1105E-02, .6756E-03, .5309E-02, .2055E-02, - + .0000E+00, .0000E+00, -.3524E-03, .7942E-03, - + .1236E-02, .7942E-03, .6158E-02, .2406E-02/ - DATA ((CALC(I,K,11),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.4688E-03, .9230E-03, - + .1377E-02, .9230E-03, .7081E-02, .2794E-02, - + .0000E+00, .0000E+00, -.5967E-03, .1063E-02, - + .1529E-02, .1063E-02, .8085E-02, .3222E-02, - + .0000E+00, .0000E+00, -.7371E-03, .1215E-02, - + .1693E-02, .1215E-02, .9174E-02, .3690E-02, - + .0000E+00, .0000E+00, -.8909E-03, .1380E-02, - + .1870E-02, .1380E-02, .1036E-01, .4200E-02, - + .0000E+00, .0000E+00, -.1059E-02, .1560E-02, - + .2060E-02, .1560E-02, .1164E-01, .4756E-02, - + .0000E+00, .0000E+00, -.1243E-02, .1754E-02, - + .2265E-02, .1754E-02, .1303E-01, .5360E-02, - + .0000E+00, .0000E+00, -.1444E-02, .1965E-02, - + .2486E-02, .1965E-02, .1454E-01, .6013E-02, - + .0000E+00, .0000E+00, -.1663E-02, .2193E-02, - + .2723E-02, .2193E-02, .1618E-01, .6721E-02, - + .0000E+00, .0000E+00, -.1902E-02, .2441E-02, - + .2980E-02, .2441E-02, .1795E-01, .7484E-02/ - DATA ((CALC(I,K,11),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.2163E-02, .2710E-02, - + .3256E-02, .2710E-02, .1987E-01, .8309E-02, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,12),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .2693E-03, .8426E-04, - + .4380E-03, .8426E-04, .1077E-02, .4633E-03, - + .0000E+00, .0000E+00, .2165E-03, .1539E-03, - + .5243E-03, .1539E-03, .1576E-02, .5719E-03, - + .0000E+00, .0000E+00, .1571E-03, .2300E-03, - + .6171E-03, .2300E-03, .2120E-02, .7054E-03, - + .0000E+00, .0000E+00, .9040E-04, .3131E-03, - + .7167E-03, .3131E-03, .2713E-02, .8644E-03, - + .0000E+00, .0000E+00, .1590E-04, .4039E-03, - + .8238E-03, .4039E-03, .3359E-02, .1050E-02, - + .0000E+00, .0000E+00, -.6708E-04, .5029E-03, - + .9387E-03, .5029E-03, .4062E-02, .1262E-02, - + .0000E+00, .0000E+00, -.1592E-03, .6107E-03, - + .1062E-02, .6107E-03, .4827E-02, .1503E-02, - + .0000E+00, .0000E+00, -.2614E-03, .7281E-03, - + .1195E-02, .7281E-03, .5658E-02, .1772E-02, - + .0000E+00, .0000E+00, -.3742E-03, .8558E-03, - + .1337E-02, .8558E-03, .6561E-02, .2071E-02/ - DATA ((CALC(I,K,12),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.4986E-03, .9946E-03, - + .1491E-02, .9946E-03, .7542E-02, .2402E-02, - + .0000E+00, .0000E+00, -.6356E-03, .1145E-02, - + .1655E-02, .1145E-02, .8607E-02, .2765E-02, - + .0000E+00, .0000E+00, -.7862E-03, .1309E-02, - + .1832E-02, .1309E-02, .9762E-02, .3161E-02, - + .0000E+00, .0000E+00, -.9513E-03, .1487E-02, - + .2022E-02, .1487E-02, .1101E-01, .3593E-02, - + .0000E+00, .0000E+00, -.1132E-02, .1680E-02, - + .2227E-02, .1680E-02, .1237E-01, .4062E-02, - + .0000E+00, .0000E+00, -.1330E-02, .1889E-02, - + .2447E-02, .1889E-02, .1384E-01, .4571E-02, - + .0000E+00, .0000E+00, -.1546E-02, .2115E-02, - + .2684E-02, .2115E-02, .1544E-01, .5120E-02, - + .0000E+00, .0000E+00, -.1782E-02, .2361E-02, - + .2939E-02, .2361E-02, .1716E-01, .5714E-02, - + .0000E+00, .0000E+00, -.2039E-02, .2627E-02, - + .3214E-02, .2627E-02, .1903E-01, .6354E-02/ - DATA ((CALC(I,K,12),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.2320E-02, .2915E-02, - + .3510E-02, .2915E-02, .2106E-01, .7044E-02, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,13),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .2847E-03, .9072E-04, - + .4660E-03, .9072E-04, .1139E-02, .4132E-03, - + .0000E+00, .0000E+00, .2312E-03, .1651E-03, - + .5612E-03, .1651E-03, .1672E-02, .5041E-03, - + .0000E+00, .0000E+00, .1705E-03, .2464E-03, - + .6631E-03, .2464E-03, .2253E-02, .6168E-03, - + .0000E+00, .0000E+00, .1017E-03, .3353E-03, - + .7722E-03, .3353E-03, .2885E-02, .7519E-03, - + .0000E+00, .0000E+00, .2433E-04, .4324E-03, - + .8890E-03, .4324E-03, .3574E-02, .9099E-03, - + .0000E+00, .0000E+00, -.6240E-04, .5383E-03, - + .1014E-02, .5383E-03, .4322E-02, .1091E-02, - + .0000E+00, .0000E+00, -.1592E-03, .6537E-03, - + .1148E-02, .6537E-03, .5135E-02, .1296E-02, - + .0000E+00, .0000E+00, -.2669E-03, .7793E-03, - + .1292E-02, .7793E-03, .6018E-02, .1526E-02, - + .0000E+00, .0000E+00, -.3864E-03, .9159E-03, - + .1445E-02, .9159E-03, .6977E-02, .1781E-02/ - DATA ((CALC(I,K,13),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.5186E-03, .1064E-02, - + .1610E-02, .1064E-02, .8017E-02, .2062E-02, - + .0000E+00, .0000E+00, -.6644E-03, .1226E-02, - + .1787E-02, .1226E-02, .9144E-02, .2370E-02, - + .0000E+00, .0000E+00, -.8250E-03, .1401E-02, - + .1977E-02, .1401E-02, .1037E-01, .2707E-02, - + .0000E+00, .0000E+00, -.1001E-02, .1591E-02, - + .2180E-02, .1591E-02, .1169E-01, .3072E-02, - + .0000E+00, .0000E+00, -.1195E-02, .1797E-02, - + .2399E-02, .1797E-02, .1312E-01, .3468E-02, - + .0000E+00, .0000E+00, -.1407E-02, .2020E-02, - + .2634E-02, .2020E-02, .1468E-01, .3897E-02, - + .0000E+00, .0000E+00, -.1638E-02, .2262E-02, - + .2886E-02, .2262E-02, .1636E-01, .4359E-02, - + .0000E+00, .0000E+00, -.1891E-02, .2524E-02, - + .3157E-02, .2524E-02, .1817E-01, .4858E-02, - + .0000E+00, .0000E+00, -.2166E-02, .2808E-02, - + .3449E-02, .2808E-02, .2014E-01, .5394E-02/ - DATA ((CALC(I,K,13),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.2466E-02, .3115E-02, - + .3764E-02, .3115E-02, .2227E-01, .5972E-02, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,14),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .3067E-03, .9883E-04, - + .5044E-03, .9883E-04, .1227E-02, .3693E-03, - + .0000E+00, .0000E+00, .2536E-03, .1779E-03, - + .6094E-03, .1779E-03, .1796E-02, .4446E-03, - + .0000E+00, .0000E+00, .1922E-03, .2645E-03, - + .7213E-03, .2645E-03, .2416E-02, .5393E-03, - + .0000E+00, .0000E+00, .1219E-03, .3593E-03, - + .8405E-03, .3593E-03, .3090E-02, .6537E-03, - + .0000E+00, .0000E+00, .4200E-04, .4629E-03, - + .9677E-03, .4629E-03, .3823E-02, .7880E-03, - + .0000E+00, .0000E+00, -.4833E-04, .5759E-03, - + .1103E-02, .5759E-03, .4619E-02, .9425E-03, - + .0000E+00, .0000E+00, -.1499E-03, .6991E-03, - + .1248E-02, .6991E-03, .5484E-02, .1117E-02, - + .0000E+00, .0000E+00, -.2634E-03, .8332E-03, - + .1403E-02, .8332E-03, .6422E-02, .1313E-02, - + .0000E+00, .0000E+00, -.3900E-03, .9790E-03, - + .1568E-02, .9790E-03, .7439E-02, .1530E-02/ - DATA ((CALC(I,K,14),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.5304E-03, .1138E-02, - + .1745E-02, .1138E-02, .8541E-02, .1769E-02, - + .0000E+00, .0000E+00, -.6857E-03, .1310E-02, - + .1934E-02, .1310E-02, .9735E-02, .2030E-02, - + .0000E+00, .0000E+00, -.8570E-03, .1496E-02, - + .2136E-02, .1496E-02, .1103E-01, .2315E-02, - + .0000E+00, .0000E+00, -.1046E-02, .1699E-02, - + .2352E-02, .1699E-02, .1243E-01, .2624E-02, - + .0000E+00, .0000E+00, -.1252E-02, .1919E-02, - + .2585E-02, .1919E-02, .1394E-01, .2958E-02, - + .0000E+00, .0000E+00, -.1479E-02, .2156E-02, - + .2834E-02, .2156E-02, .1558E-01, .3319E-02, - + .0000E+00, .0000E+00, -.1727E-02, .2414E-02, - + .3101E-02, .2414E-02, .1735E-01, .3707E-02, - + .0000E+00, .0000E+00, -.1998E-02, .2693E-02, - + .3388E-02, .2693E-02, .1926E-01, .4126E-02, - + .0000E+00, .0000E+00, -.2293E-02, .2995E-02, - + .3697E-02, .2995E-02, .2133E-01, .4576E-02/ - DATA ((CALC(I,K,14),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.2614E-02, .3321E-02, - + .4029E-02, .3321E-02, .2357E-01, .5059E-02, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,15),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .3396E-03, .1106E-03, - + .5609E-03, .1106E-03, .1359E-02, .3308E-03, - + .0000E+00, .0000E+00, .2872E-03, .1948E-03, - + .6768E-03, .1948E-03, .1968E-02, .3925E-03, - + .0000E+00, .0000E+00, .2254E-03, .2871E-03, - + .7996E-03, .2871E-03, .2631E-02, .4717E-03, - + .0000E+00, .0000E+00, .1533E-03, .3883E-03, - + .9299E-03, .3883E-03, .3351E-02, .5682E-03, - + .0000E+00, .0000E+00, .7039E-04, .4989E-03, - + .1068E-02, .4989E-03, .4134E-02, .6820E-03, - + .0000E+00, .0000E+00, -.2425E-04, .6197E-03, - + .1215E-02, .6197E-03, .4983E-02, .8132E-03, - + .0000E+00, .0000E+00, -.1314E-03, .7513E-03, - + .1371E-02, .7513E-03, .5905E-02, .9619E-03, - + .0000E+00, .0000E+00, -.2520E-03, .8947E-03, - + .1537E-02, .8947E-03, .6903E-02, .1128E-02, - + .0000E+00, .0000E+00, -.3868E-03, .1051E-02, - + .1714E-02, .1051E-02, .7984E-02, .1313E-02/ - DATA ((CALC(I,K,15),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.5370E-03, .1220E-02, - + .1903E-02, .1220E-02, .9155E-02, .1515E-02, - + .0000E+00, .0000E+00, -.7034E-03, .1404E-02, - + .2104E-02, .1404E-02, .1042E-01, .1736E-02, - + .0000E+00, .0000E+00, -.8874E-03, .1603E-02, - + .2319E-02, .1603E-02, .1179E-01, .1977E-02, - + .0000E+00, .0000E+00, -.1090E-02, .1819E-02, - + .2548E-02, .1819E-02, .1327E-01, .2237E-02, - + .0000E+00, .0000E+00, -.1312E-02, .2053E-02, - + .2794E-02, .2053E-02, .1487E-01, .2518E-02, - + .0000E+00, .0000E+00, -.1556E-02, .2307E-02, - + .3057E-02, .2307E-02, .1660E-01, .2822E-02, - + .0000E+00, .0000E+00, -.1822E-02, .2581E-02, - + .3339E-02, .2581E-02, .1847E-01, .3148E-02, - + .0000E+00, .0000E+00, -.2113E-02, .2878E-02, - + .3642E-02, .2878E-02, .2049E-01, .3498E-02, - + .0000E+00, .0000E+00, -.2430E-02, .3198E-02, - + .3967E-02, .3198E-02, .2267E-01, .3874E-02/ - DATA ((CALC(I,K,15),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.2774E-02, .3545E-02, - + .4316E-02, .3545E-02, .2503E-01, .4278E-02, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,16),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .3890E-03, .1278E-03, - + .6446E-03, .1278E-03, .1556E-02, .2970E-03, - + .0000E+00, .0000E+00, .3368E-03, .2178E-03, - + .7725E-03, .2178E-03, .2212E-02, .3471E-03, - + .0000E+00, .0000E+00, .2736E-03, .3168E-03, - + .9072E-03, .3168E-03, .2924E-02, .4127E-03, - + .0000E+00, .0000E+00, .1986E-03, .4253E-03, - + .1049E-02, .4253E-03, .3698E-02, .4937E-03, - + .0000E+00, .0000E+00, .1112E-03, .5441E-03, - + .1199E-02, .5441E-03, .4537E-02, .5898E-03, - + .0000E+00, .0000E+00, .1045E-04, .6737E-03, - + .1358E-02, .6737E-03, .5447E-02, .7009E-03, - + .0000E+00, .0000E+00, -.1044E-03, .8150E-03, - + .1526E-02, .8150E-03, .6433E-02, .8269E-03, - + .0000E+00, .0000E+00, -.2341E-03, .9689E-03, - + .1704E-02, .9689E-03, .7500E-02, .9678E-03, - + .0000E+00, .0000E+00, -.3798E-03, .1136E-02, - + .1892E-02, .1136E-02, .8654E-02, .1124E-02/ - DATA ((CALC(I,K,16),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.5422E-03, .1318E-02, - + .2093E-02, .1318E-02, .9902E-02, .1295E-02, - + .0000E+00, .0000E+00, -.7226E-03, .1514E-02, - + .2306E-02, .1514E-02, .1125E-01, .1482E-02, - + .0000E+00, .0000E+00, -.9219E-03, .1728E-02, - + .2534E-02, .1728E-02, .1271E-01, .1684E-02, - + .0000E+00, .0000E+00, -.1141E-02, .1959E-02, - + .2776E-02, .1959E-02, .1428E-01, .1903E-02, - + .0000E+00, .0000E+00, -.1382E-02, .2209E-02, - + .3035E-02, .2209E-02, .1598E-01, .2139E-02, - + .0000E+00, .0000E+00, -.1646E-02, .2479E-02, - + .3313E-02, .2479E-02, .1781E-01, .2393E-02, - + .0000E+00, .0000E+00, -.1934E-02, .2772E-02, - + .3609E-02, .2772E-02, .1979E-01, .2665E-02, - + .0000E+00, .0000E+00, -.2248E-02, .3088E-02, - + .3928E-02, .3088E-02, .2192E-01, .2957E-02, - + .0000E+00, .0000E+00, -.2589E-02, .3429E-02, - + .4269E-02, .3429E-02, .2422E-01, .3271E-02/ - DATA ((CALC(I,K,16),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.2960E-02, .3798E-02, - + .4636E-02, .3798E-02, .2671E-01, .3607E-02, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,17),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .4607E-03, .1520E-03, - + .7648E-03, .1520E-03, .1843E-02, .2671E-03, - + .0000E+00, .0000E+00, .4070E-03, .2493E-03, - + .9056E-03, .2493E-03, .2553E-02, .3071E-03, - + .0000E+00, .0000E+00, .3403E-03, .3563E-03, - + .1053E-02, .3563E-03, .3323E-02, .3611E-03, - + .0000E+00, .0000E+00, .2600E-03, .4736E-03, - + .1207E-02, .4736E-03, .4159E-02, .4286E-03, - + .0000E+00, .0000E+00, .1653E-03, .6020E-03, - + .1369E-02, .6020E-03, .5064E-02, .5093E-03, - + .0000E+00, .0000E+00, .5554E-04, .7421E-03, - + .1540E-02, .7421E-03, .6043E-02, .6029E-03, - + .0000E+00, .0000E+00, -.7012E-04, .8947E-03, - + .1719E-02, .8947E-03, .7103E-02, .7092E-03, - + .0000E+00, .0000E+00, -.2125E-03, .1061E-02, - + .1909E-02, .1061E-02, .8248E-02, .8281E-03, - + .0000E+00, .0000E+00, -.3724E-03, .1241E-02, - + .2109E-02, .1241E-02, .9484E-02, .9595E-03/ - DATA ((CALC(I,K,17),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.5509E-03, .1436E-02, - + .2322E-02, .1436E-02, .1082E-01, .1103E-02, - + .0000E+00, .0000E+00, -.7488E-03, .1648E-02, - + .2547E-02, .1648E-02, .1226E-01, .1260E-02, - + .0000E+00, .0000E+00, -.9673E-03, .1877E-02, - + .2787E-02, .1877E-02, .1381E-01, .1430E-02, - + .0000E+00, .0000E+00, -.1208E-02, .2125E-02, - + .3042E-02, .2125E-02, .1548E-01, .1613E-02, - + .0000E+00, .0000E+00, -.1471E-02, .2393E-02, - + .3314E-02, .2393E-02, .1729E-01, .1810E-02, - + .0000E+00, .0000E+00, -.1758E-02, .2682E-02, - + .3605E-02, .2682E-02, .1924E-01, .2021E-02, - + .0000E+00, .0000E+00, -.2072E-02, .2994E-02, - + .3917E-02, .2994E-02, .2133E-01, .2247E-02, - + .0000E+00, .0000E+00, -.2412E-02, .3331E-02, - + .4250E-02, .3331E-02, .2360E-01, .2490E-02, - + .0000E+00, .0000E+00, -.2782E-02, .3695E-02, - + .4608E-02, .3695E-02, .2603E-01, .2750E-02/ - DATA ((CALC(I,K,17),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.3183E-02, .4088E-02, - + .4993E-02, .4088E-02, .2866E-01, .3028E-02, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,18),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .5599E-03, .1856E-03, - + .9310E-03, .1856E-03, .2240E-02, .2405E-03, - + .0000E+00, .0000E+00, .5015E-03, .2917E-03, - + .1085E-02, .2917E-03, .3014E-02, .2720E-03, - + .0000E+00, .0000E+00, .4279E-03, .4085E-03, - + .1245E-02, .4085E-03, .3852E-02, .3160E-03, - + .0000E+00, .0000E+00, .3385E-03, .5364E-03, - + .1411E-02, .5364E-03, .4760E-02, .3719E-03, - + .0000E+00, .0000E+00, .2325E-03, .6763E-03, - + .1585E-02, .6763E-03, .5741E-02, .4393E-03, - + .0000E+00, .0000E+00, .1094E-03, .8288E-03, - + .1767E-02, .8288E-03, .6800E-02, .5177E-03, - + .0000E+00, .0000E+00, -.3146E-04, .9946E-03, - + .1958E-02, .9946E-03, .7943E-02, .6069E-03, - + .0000E+00, .0000E+00, -.1909E-03, .1175E-02, - + .2158E-02, .1175E-02, .9176E-02, .7066E-03, - + .0000E+00, .0000E+00, -.3697E-03, .1370E-02, - + .2370E-02, .1370E-02, .1050E-01, .8166E-03/ - DATA ((CALC(I,K,18),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.5687E-03, .1581E-02, - + .2593E-02, .1581E-02, .1194E-01, .9369E-03, - + .0000E+00, .0000E+00, -.7888E-03, .1809E-02, - + .2830E-02, .1809E-02, .1348E-01, .1068E-02, - + .0000E+00, .0000E+00, -.1031E-02, .2056E-02, - + .3081E-02, .2056E-02, .1514E-01, .1209E-02, - + .0000E+00, .0000E+00, -.1296E-02, .2323E-02, - + .3349E-02, .2323E-02, .1692E-01, .1361E-02, - + .0000E+00, .0000E+00, -.1586E-02, .2610E-02, - + .3634E-02, .2610E-02, .1885E-01, .1524E-02, - + .0000E+00, .0000E+00, -.1902E-02, .2920E-02, - + .3938E-02, .2920E-02, .2092E-01, .1698E-02, - + .0000E+00, .0000E+00, -.2245E-02, .3254E-02, - + .4264E-02, .3254E-02, .2314E-01, .1885E-02, - + .0000E+00, .0000E+00, -.2616E-02, .3615E-02, - + .4613E-02, .3615E-02, .2554E-01, .2085E-02, - + .0000E+00, .0000E+00, -.3018E-02, .4003E-02, - + .4987E-02, .4003E-02, .2813E-01, .2299E-02/ - DATA ((CALC(I,K,18),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.3453E-02, .4421E-02, - + .5390E-02, .4421E-02, .3091E-01, .2527E-02, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,19),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .6921E-03, .2299E-03, - + .1152E-02, .2299E-03, .2768E-02, .2166E-03, - + .0000E+00, .0000E+00, .6242E-03, .3471E-03, - + .1318E-02, .3471E-03, .3617E-02, .2409E-03, - + .0000E+00, .0000E+00, .5385E-03, .4757E-03, - + .1490E-02, .4757E-03, .4534E-02, .2764E-03, - + .0000E+00, .0000E+00, .4345E-03, .6165E-03, - + .1668E-02, .6165E-03, .5524E-02, .3223E-03, - + .0000E+00, .0000E+00, .3119E-03, .7700E-03, - + .1852E-02, .7700E-03, .6591E-02, .3781E-03, - + .0000E+00, .0000E+00, .1699E-03, .9370E-03, - + .2044E-02, .9370E-03, .7740E-02, .4434E-03, - + .0000E+00, .0000E+00, .8262E-05, .1118E-02, - + .2244E-02, .1118E-02, .8976E-02, .5176E-03, - + .0000E+00, .0000E+00, -.1738E-03, .1314E-02, - + .2455E-02, .1314E-02, .1031E-01, .6005E-03, - + .0000E+00, .0000E+00, -.3768E-03, .1526E-02, - + .2676E-02, .1526E-02, .1174E-01, .6918E-03/ - DATA ((CALC(I,K,19),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.6016E-03, .1755E-02, - + .2909E-02, .1755E-02, .1327E-01, .7915E-03, - + .0000E+00, .0000E+00, -.8489E-03, .2002E-02, - + .3156E-02, .2002E-02, .1492E-01, .8995E-03, - + .0000E+00, .0000E+00, -.1120E-02, .2269E-02, - + .3417E-02, .2269E-02, .1670E-01, .1016E-02, - + .0000E+00, .0000E+00, -.1415E-02, .2555E-02, - + .3696E-02, .2555E-02, .1861E-01, .1141E-02, - + .0000E+00, .0000E+00, -.1736E-02, .2864E-02, - + .3992E-02, .2864E-02, .2066E-01, .1274E-02, - + .0000E+00, .0000E+00, -.2084E-02, .3197E-02, - + .4309E-02, .3197E-02, .2286E-01, .1417E-02, - + .0000E+00, .0000E+00, -.2460E-02, .3554E-02, - + .4649E-02, .3554E-02, .2523E-01, .1570E-02, - + .0000E+00, .0000E+00, -.2866E-02, .3939E-02, - + .5013E-02, .3939E-02, .2778E-01, .1733E-02, - + .0000E+00, .0000E+00, -.3303E-02, .4353E-02, - + .5403E-02, .4353E-02, .3052E-01, .1907E-02/ - DATA ((CALC(I,K,19),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.3775E-02, .4799E-02, - + .5823E-02, .4799E-02, .3346E-01, .2093E-02, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,20),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .8612E-03, .2864E-03, - + .1434E-02, .2864E-03, .3445E-02, .1949E-03, - + .0000E+00, .0000E+00, .7771E-03, .4171E-03, - + .1611E-02, .4171E-03, .4379E-02, .2130E-03, - + .0000E+00, .0000E+00, .6725E-03, .5601E-03, - + .1792E-02, .5601E-03, .5385E-02, .2412E-03, - + .0000E+00, .0000E+00, .5472E-03, .7160E-03, - + .1979E-02, .7160E-03, .6467E-02, .2785E-03, - + .0000E+00, .0000E+00, .4010E-03, .8854E-03, - + .2172E-02, .8854E-03, .7628E-02, .3243E-03, - + .0000E+00, .0000E+00, .2335E-03, .1069E-02, - + .2371E-02, .1069E-02, .8876E-02, .3780E-03, - + .0000E+00, .0000E+00, .4458E-04, .1267E-02, - + .2579E-02, .1267E-02, .1021E-01, .4392E-03, - + .0000E+00, .0000E+00, -.1663E-03, .1482E-02, - + .2797E-02, .1482E-02, .1165E-01, .5074E-03, - + .0000E+00, .0000E+00, -.3995E-03, .1712E-02, - + .3025E-02, .1712E-02, .1319E-01, .5825E-03/ - DATA ((CALC(I,K,20),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.6557E-03, .1961E-02, - + .3266E-02, .1961E-02, .1484E-01, .6641E-03, - + .0000E+00, .0000E+00, -.9356E-03, .2228E-02, - + .3520E-02, .2228E-02, .1660E-01, .7523E-03, - + .0000E+00, .0000E+00, -.1240E-02, .2515E-02, - + .3791E-02, .2515E-02, .1850E-01, .8470E-03, - + .0000E+00, .0000E+00, -.1569E-02, .2824E-02, - + .4078E-02, .2824E-02, .2053E-01, .9485E-03, - + .0000E+00, .0000E+00, -.1925E-02, .3155E-02, - + .4385E-02, .3155E-02, .2271E-01, .1057E-02, - + .0000E+00, .0000E+00, -.2309E-02, .3511E-02, - + .4713E-02, .3511E-02, .2505E-01, .1172E-02, - + .0000E+00, .0000E+00, -.2722E-02, .3893E-02, - + .5065E-02, .3893E-02, .2757E-01, .1296E-02, - + .0000E+00, .0000E+00, -.3165E-02, .4304E-02, - + .5442E-02, .4304E-02, .3027E-01, .1427E-02, - + .0000E+00, .0000E+00, -.3641E-02, .4745E-02, - + .5848E-02, .4745E-02, .3317E-01, .1567E-02/ - DATA ((CALC(I,K,20),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.4152E-02, .5219E-02, - + .6285E-02, .5219E-02, .3629E-01, .1716E-02, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,21),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .1070E-02, .3563E-03, - + .1782E-02, .3563E-03, .4279E-02, .1745E-03, - + .0000E+00, .0000E+00, .9609E-03, .5031E-03, - + .1967E-02, .5031E-03, .5309E-02, .1877E-03, - + .0000E+00, .0000E+00, .8288E-03, .6629E-03, - + .2154E-02, .6629E-03, .6413E-02, .2097E-03, - + .0000E+00, .0000E+00, .6737E-03, .8362E-03, - + .2346E-02, .8362E-03, .7594E-02, .2396E-03, - + .0000E+00, .0000E+00, .4959E-03, .1024E-02, - + .2543E-02, .1024E-02, .8857E-02, .2767E-03, - + .0000E+00, .0000E+00, .2953E-03, .1226E-02, - + .2747E-02, .1226E-02, .1021E-01, .3204E-03, - + .0000E+00, .0000E+00, .7187E-04, .1443E-02, - + .2959E-02, .1443E-02, .1165E-01, .3702E-03, - + .0000E+00, .0000E+00, -.1745E-03, .1677E-02, - + .3180E-02, .1677E-02, .1320E-01, .4256E-03, - + .0000E+00, .0000E+00, -.4441E-03, .1928E-02, - + .3412E-02, .1928E-02, .1485E-01, .4864E-03/ - DATA ((CALC(I,K,21),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.7373E-03, .2197E-02, - + .3657E-02, .2197E-02, .1661E-01, .5523E-03, - + .0000E+00, .0000E+00, -.1055E-02, .2486E-02, - + .3917E-02, .2486E-02, .1850E-01, .6233E-03, - + .0000E+00, .0000E+00, -.1397E-02, .2795E-02, - + .4192E-02, .2795E-02, .2051E-01, .6993E-03, - + .0000E+00, .0000E+00, -.1764E-02, .3126E-02, - + .4486E-02, .3126E-02, .2267E-01, .7804E-03, - + .0000E+00, .0000E+00, -.2159E-02, .3480E-02, - + .4801E-02, .3480E-02, .2499E-01, .8669E-03, - + .0000E+00, .0000E+00, -.2581E-02, .3860E-02, - + .5138E-02, .3860E-02, .2747E-01, .9589E-03, - + .0000E+00, .0000E+00, -.3032E-02, .4266E-02, - + .5500E-02, .4266E-02, .3012E-01, .1057E-02, - + .0000E+00, .0000E+00, -.3515E-02, .4702E-02, - + .5890E-02, .4702E-02, .3297E-01, .1161E-02, - + .0000E+00, .0000E+00, -.4030E-02, .5170E-02, - + .6310E-02, .5170E-02, .3603E-01, .1272E-02/ - DATA ((CALC(I,K,21),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.4580E-02, .5672E-02, - + .6764E-02, .5672E-02, .3932E-01, .1390E-02, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,22),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .1320E-02, .4396E-03, - + .2199E-02, .4396E-03, .5278E-02, .1552E-03, - + .0000E+00, .0000E+00, .1175E-02, .6052E-03, - + .2385E-02, .6052E-03, .6411E-02, .1643E-03, - + .0000E+00, .0000E+00, .1005E-02, .7844E-03, - + .2573E-02, .7844E-03, .7618E-02, .1812E-03, - + .0000E+00, .0000E+00, .8101E-03, .9775E-03, - + .2765E-02, .9775E-03, .8903E-02, .2048E-03, - + .0000E+00, .0000E+00, .5915E-03, .1185E-02, - + .2961E-02, .1185E-02, .1027E-01, .2344E-03, - + .0000E+00, .0000E+00, .3494E-03, .1407E-02, - + .3164E-02, .1407E-02, .1173E-01, .2694E-03, - + .0000E+00, .0000E+00, .8390E-04, .1645E-02, - + .3375E-02, .1645E-02, .1328E-01, .3092E-03, - + .0000E+00, .0000E+00, -.2047E-03, .1900E-02, - + .3595E-02, .1900E-02, .1493E-01, .3535E-03, - + .0000E+00, .0000E+00, -.5165E-03, .2172E-02, - + .3827E-02, .2172E-02, .1669E-01, .4018E-03/ - DATA ((CALC(I,K,22),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.8517E-03, .2462E-02, - + .4072E-02, .2462E-02, .1857E-01, .4541E-03, - + .0000E+00, .0000E+00, -.1211E-02, .2772E-02, - + .4333E-02, .2772E-02, .2057E-01, .5102E-03, - + .0000E+00, .0000E+00, -.1594E-02, .3102E-02, - + .4611E-02, .3102E-02, .2271E-01, .5701E-03, - + .0000E+00, .0000E+00, -.2002E-02, .3455E-02, - + .4908E-02, .3455E-02, .2499E-01, .6337E-03, - + .0000E+00, .0000E+00, -.2437E-02, .3832E-02, - + .5227E-02, .3832E-02, .2742E-01, .7014E-03, - + .0000E+00, .0000E+00, -.2898E-02, .4235E-02, - + .5571E-02, .4235E-02, .3003E-01, .7732E-03, - + .0000E+00, .0000E+00, -.3389E-02, .4665E-02, - + .5941E-02, .4665E-02, .3282E-01, .8494E-03, - + .0000E+00, .0000E+00, -.3910E-02, .5125E-02, - + .6341E-02, .5125E-02, .3581E-01, .9304E-03, - + .0000E+00, .0000E+00, -.4463E-02, .5618E-02, - + .6773E-02, .5618E-02, .3902E-01, .1017E-02/ - DATA ((CALC(I,K,22),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.5051E-02, .6146E-02, - + .7240E-02, .6146E-02, .4246E-01, .1108E-02, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,23),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .1609E-02, .5367E-03, - + .2681E-02, .5367E-03, .6436E-02, .1366E-03, - + .0000E+00, .0000E+00, .1415E-02, .7238E-03, - + .2862E-02, .7238E-03, .7676E-02, .1424E-03, - + .0000E+00, .0000E+00, .1195E-02, .9246E-03, - + .3043E-02, .9246E-03, .8989E-02, .1550E-03, - + .0000E+00, .0000E+00, .9500E-03, .1139E-02, - + .3228E-02, .1139E-02, .1038E-01, .1732E-03, - + .0000E+00, .0000E+00, .6808E-03, .1368E-02, - + .3416E-02, .1368E-02, .1185E-01, .1964E-03, - + .0000E+00, .0000E+00, .3884E-03, .1612E-02, - + .3612E-02, .1612E-02, .1341E-01, .2239E-03, - + .0000E+00, .0000E+00, .7339E-04, .1871E-02, - + .3815E-02, .1871E-02, .1507E-01, .2552E-03, - + .0000E+00, .0000E+00, -.2637E-03, .2147E-02, - + .4029E-02, .2147E-02, .1682E-01, .2898E-03, - + .0000E+00, .0000E+00, -.6228E-03, .2439E-02, - + .4255E-02, .2439E-02, .1869E-01, .3275E-03/ - DATA ((CALC(I,K,23),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.1004E-02, .2750E-02, - + .4496E-02, .2750E-02, .2067E-01, .3680E-03, - + .0000E+00, .0000E+00, -.1407E-02, .3080E-02, - + .4753E-02, .3080E-02, .2277E-01, .4113E-03, - + .0000E+00, .0000E+00, -.1833E-02, .3431E-02, - + .5029E-02, .3431E-02, .2501E-01, .4573E-03, - + .0000E+00, .0000E+00, -.2283E-02, .3805E-02, - + .5326E-02, .3805E-02, .2740E-01, .5061E-03, - + .0000E+00, .0000E+00, -.2757E-02, .4202E-02, - + .5647E-02, .4202E-02, .2995E-01, .5578E-03, - + .0000E+00, .0000E+00, -.3258E-02, .4626E-02, - + .5993E-02, .4626E-02, .3267E-01, .6125E-03, - + .0000E+00, .0000E+00, -.3785E-02, .5077E-02, - + .6369E-02, .5077E-02, .3558E-01, .6705E-03, - + .0000E+00, .0000E+00, -.4342E-02, .5559E-02, - + .6776E-02, .5559E-02, .3870E-01, .7319E-03, - + .0000E+00, .0000E+00, -.4931E-02, .6074E-02, - + .7217E-02, .6074E-02, .4203E-01, .7972E-03/ - DATA ((CALC(I,K,23),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.5553E-02, .6625E-02, - + .7696E-02, .6625E-02, .4561E-01, .8667E-03, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,24),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .1935E-02, .6449E-03, - + .3226E-02, .6449E-03, .7742E-02, .1184E-03, - + .0000E+00, .0000E+00, .1677E-02, .8565E-03, - + .3390E-02, .8565E-03, .9090E-02, .1217E-03, - + .0000E+00, .0000E+00, .1393E-02, .1081E-02, - + .3555E-02, .1081E-02, .1051E-01, .1308E-03, - + .0000E+00, .0000E+00, .1085E-02, .1319E-02, - + .3723E-02, .1319E-02, .1200E-01, .1446E-03, - + .0000E+00, .0000E+00, .7550E-03, .1571E-02, - + .3896E-02, .1571E-02, .1357E-01, .1623E-03, - + .0000E+00, .0000E+00, .4038E-03, .1836E-02, - + .4076E-02, .1836E-02, .1523E-01, .1834E-03, - + .0000E+00, .0000E+00, .3232E-04, .2117E-02, - + .4265E-02, .2117E-02, .1698E-01, .2073E-03, - + .0000E+00, .0000E+00, -.3586E-03, .2412E-02, - + .4466E-02, .2412E-02, .1882E-01, .2337E-03, - + .0000E+00, .0000E+00, -.7687E-03, .2725E-02, - + .4681E-02, .2725E-02, .2078E-01, .2622E-03/ - DATA ((CALC(I,K,24),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.1198E-02, .3055E-02, - + .4911E-02, .3055E-02, .2284E-01, .2928E-03, - + .0000E+00, .0000E+00, -.1647E-02, .3404E-02, - + .5160E-02, .3404E-02, .2504E-01, .3253E-03, - + .0000E+00, .0000E+00, -.2115E-02, .3773E-02, - + .5430E-02, .3773E-02, .2737E-01, .3597E-03, - + .0000E+00, .0000E+00, -.2605E-02, .4164E-02, - + .5722E-02, .4164E-02, .2984E-01, .3959E-03, - + .0000E+00, .0000E+00, -.3117E-02, .4579E-02, - + .6041E-02, .4579E-02, .3248E-01, .4342E-03, - + .0000E+00, .0000E+00, -.3652E-02, .5019E-02, - + .6387E-02, .5019E-02, .3529E-01, .4747E-03, - + .0000E+00, .0000E+00, -.4212E-02, .5488E-02, - + .6764E-02, .5488E-02, .3830E-01, .5174E-03, - + .0000E+00, .0000E+00, -.4800E-02, .5987E-02, - + .7174E-02, .5987E-02, .4151E-01, .5627E-03, - + .0000E+00, .0000E+00, -.5417E-02, .6519E-02, - + .7622E-02, .6519E-02, .4494E-01, .6108E-03/ - DATA ((CALC(I,K,24),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.6067E-02, .7088E-02, - + .8109E-02, .7088E-02, .4863E-01, .6619E-03, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,25),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .2294E-02, .7649E-03, - + .3823E-02, .7649E-03, .9174E-02, .1007E-03, - + .0000E+00, .0000E+00, .1953E-02, .1003E-02, - + .3959E-02, .1003E-02, .1063E-01, .1021E-03, - + .0000E+00, .0000E+00, .1589E-02, .1254E-02, - + .4096E-02, .1254E-02, .1215E-01, .1084E-03, - + .0000E+00, .0000E+00, .1206E-02, .1516E-02, - + .4237E-02, .1516E-02, .1373E-01, .1185E-03, - + .0000E+00, .0000E+00, .8039E-03, .1790E-02, - + .4384E-02, .1790E-02, .1539E-01, .1317E-03, - + .0000E+00, .0000E+00, .3856E-03, .2077E-02, - + .4540E-02, .2077E-02, .1713E-01, .1473E-03, - + .0000E+00, .0000E+00, -.4818E-04, .2378E-02, - + .4707E-02, .2378E-02, .1896E-01, .1650E-03, - + .0000E+00, .0000E+00, -.4968E-03, .2692E-02, - + .4888E-02, .2692E-02, .2088E-01, .1845E-03, - + .0000E+00, .0000E+00, -.9598E-03, .3022E-02, - + .5085E-02, .3022E-02, .2290E-01, .2054E-03/ - DATA ((CALC(I,K,25),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.1437E-02, .3369E-02, - + .5300E-02, .3369E-02, .2503E-01, .2276E-03, - + .0000E+00, .0000E+00, -.1930E-02, .3733E-02, - + .5535E-02, .3733E-02, .2729E-01, .2511E-03, - + .0000E+00, .0000E+00, -.2438E-02, .4116E-02, - + .5794E-02, .4116E-02, .2968E-01, .2759E-03, - + .0000E+00, .0000E+00, -.2963E-02, .4521E-02, - + .6078E-02, .4521E-02, .3222E-01, .3018E-03, - + .0000E+00, .0000E+00, -.3507E-02, .4948E-02, - + .6389E-02, .4948E-02, .3491E-01, .3292E-03, - + .0000E+00, .0000E+00, -.4070E-02, .5401E-02, - + .6731E-02, .5401E-02, .3778E-01, .3580E-03, - + .0000E+00, .0000E+00, -.4656E-02, .5881E-02, - + .7106E-02, .5881E-02, .4085E-01, .3883E-03, - + .0000E+00, .0000E+00, -.5267E-02, .6392E-02, - + .7517E-02, .6392E-02, .4412E-01, .4205E-03, - + .0000E+00, .0000E+00, -.5904E-02, .6935E-02, - + .7966E-02, .6935E-02, .4762E-01, .4545E-03/ - DATA ((CALC(I,K,25),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.6573E-02, .7515E-02, - + .8457E-02, .7515E-02, .5136E-01, .4907E-03, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,26),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .2676E-02, .8925E-03, - + .4461E-02, .8925E-03, .1071E-01, .8338E-04, - + .0000E+00, .0000E+00, .2232E-02, .1161E-02, - + .4553E-02, .1161E-02, .1226E-01, .8346E-04, - + .0000E+00, .0000E+00, .1772E-02, .1438E-02, - + .4648E-02, .1438E-02, .1387E-01, .8758E-04, - + .0000E+00, .0000E+00, .1299E-02, .1726E-02, - + .4749E-02, .1726E-02, .1554E-01, .9470E-04, - + .0000E+00, .0000E+00, .8150E-03, .2023E-02, - + .4860E-02, .2023E-02, .1727E-01, .1041E-03, - + .0000E+00, .0000E+00, .3226E-03, .2330E-02, - + .4983E-02, .2330E-02, .1907E-01, .1153E-03, - + .0000E+00, .0000E+00, -.1779E-03, .2649E-02, - + .5120E-02, .2649E-02, .2096E-01, .1280E-03, - + .0000E+00, .0000E+00, -.6858E-03, .2980E-02, - + .5274E-02, .2980E-02, .2293E-01, .1417E-03, - + .0000E+00, .0000E+00, -.1201E-02, .3324E-02, - + .5447E-02, .3324E-02, .2499E-01, .1563E-03/ - DATA ((CALC(I,K,26),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.1724E-02, .3683E-02, - + .5641E-02, .3683E-02, .2716E-01, .1718E-03, - + .0000E+00, .0000E+00, -.2256E-02, .4058E-02, - + .5858E-02, .4058E-02, .2945E-01, .1880E-03, - + .0000E+00, .0000E+00, -.2798E-02, .4450E-02, - + .6102E-02, .4450E-02, .3187E-01, .2050E-03, - + .0000E+00, .0000E+00, -.3352E-02, .4863E-02, - + .6373E-02, .4863E-02, .3443E-01, .2227E-03, - + .0000E+00, .0000E+00, -.3919E-02, .5297E-02, - + .6674E-02, .5297E-02, .3715E-01, .2413E-03, - + .0000E+00, .0000E+00, -.4502E-02, .5755E-02, - + .7008E-02, .5755E-02, .4004E-01, .2608E-03, - + .0000E+00, .0000E+00, -.5103E-02, .6240E-02, - + .7377E-02, .6240E-02, .4312E-01, .2814E-03, - + .0000E+00, .0000E+00, -.5725E-02, .6755E-02, - + .7784E-02, .6755E-02, .4641E-01, .3031E-03, - + .0000E+00, .0000E+00, -.6372E-02, .7302E-02, - + .8231E-02, .7302E-02, .4992E-01, .3261E-03/ - DATA ((CALC(I,K,26),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.7046E-02, .7884E-02, - + .8722E-02, .7884E-02, .5368E-01, .3505E-03, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,27),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .3076E-02, .1026E-02, - + .5127E-02, .1026E-02, .1230E-01, .6658E-04, - + .0000E+00, .0000E+00, .2503E-02, .1327E-02, - + .5156E-02, .1327E-02, .1395E-01, .6586E-04, - + .0000E+00, .0000E+00, .1926E-02, .1634E-02, - + .5193E-02, .1634E-02, .1564E-01, .6839E-04, - + .0000E+00, .0000E+00, .1349E-02, .1947E-02, - + .5242E-02, .1947E-02, .1737E-01, .7318E-04, - + .0000E+00, .0000E+00, .7736E-03, .2266E-02, - + .5305E-02, .2266E-02, .1916E-01, .7961E-04, - + .0000E+00, .0000E+00, .2012E-03, .2592E-02, - + .5385E-02, .2592E-02, .2100E-01, .8725E-04, - + .0000E+00, .0000E+00, -.3680E-03, .2926E-02, - + .5484E-02, .2926E-02, .2292E-01, .9577E-04, - + .0000E+00, .0000E+00, -.9343E-03, .3270E-02, - + .5605E-02, .3270E-02, .2491E-01, .1049E-03, - + .0000E+00, .0000E+00, -.1498E-02, .3623E-02, - + .5748E-02, .3623E-02, .2699E-01, .1146E-03/ - DATA ((CALC(I,K,27),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.2061E-02, .3989E-02, - + .5917E-02, .3989E-02, .2917E-01, .1247E-03, - + .0000E+00, .0000E+00, -.2625E-02, .4369E-02, - + .6113E-02, .4369E-02, .3145E-01, .1353E-03, - + .0000E+00, .0000E+00, -.3192E-02, .4765E-02, - + .6338E-02, .4765E-02, .3386E-01, .1462E-03, - + .0000E+00, .0000E+00, -.3763E-02, .5178E-02, - + .6593E-02, .5178E-02, .3641E-01, .1575E-03, - + .0000E+00, .0000E+00, -.4342E-02, .5611E-02, - + .6881E-02, .5611E-02, .3910E-01, .1694E-03, - + .0000E+00, .0000E+00, -.4931E-02, .6067E-02, - + .7204E-02, .6067E-02, .4197E-01, .1818E-03, - + .0000E+00, .0000E+00, -.5535E-02, .6549E-02, - + .7563E-02, .6549E-02, .4501E-01, .1948E-03, - + .0000E+00, .0000E+00, -.6156E-02, .7059E-02, - + .7962E-02, .7059E-02, .4826E-01, .2086E-03, - + .0000E+00, .0000E+00, -.6797E-02, .7600E-02, - + .8402E-02, .7600E-02, .5173E-01, .2231E-03/ - DATA ((CALC(I,K,27),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.7464E-02, .8175E-02, - + .8886E-02, .8175E-02, .5545E-01, .2386E-03, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,28),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .3485E-02, .1161E-02, - + .5807E-02, .1161E-02, .1394E-01, .5057E-04, - + .0000E+00, .0000E+00, .2750E-02, .1500E-02, - + .5751E-02, .1500E-02, .1567E-01, .4947E-04, - + .0000E+00, .0000E+00, .2034E-02, .1839E-02, - + .5712E-02, .1839E-02, .1743E-01, .5088E-04, - + .0000E+00, .0000E+00, .1337E-02, .2178E-02, - + .5693E-02, .2178E-02, .1921E-01, .5392E-04, - + .0000E+00, .0000E+00, .6608E-03, .2518E-02, - + .5697E-02, .2518E-02, .2103E-01, .5805E-04, - + .0000E+00, .0000E+00, .4482E-05, .2861E-02, - + .5726E-02, .2861E-02, .2289E-01, .6291E-04, - + .0000E+00, .0000E+00, -.6330E-03, .3207E-02, - + .5780E-02, .3207E-02, .2481E-01, .6827E-04, - + .0000E+00, .0000E+00, -.1253E-02, .3558E-02, - + .5862E-02, .3558E-02, .2679E-01, .7394E-04, - + .0000E+00, .0000E+00, -.1859E-02, .3916E-02, - + .5973E-02, .3916E-02, .2885E-01, .7985E-04/ - DATA ((CALC(I,K,28),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.2452E-02, .4283E-02, - + .6114E-02, .4283E-02, .3099E-01, .8593E-04, - + .0000E+00, .0000E+00, -.3035E-02, .4660E-02, - + .6285E-02, .4660E-02, .3324E-01, .9218E-04, - + .0000E+00, .0000E+00, -.3613E-02, .5051E-02, - + .6489E-02, .5051E-02, .3559E-01, .9862E-04, - + .0000E+00, .0000E+00, -.4188E-02, .5457E-02, - + .6726E-02, .5457E-02, .3807E-01, .1053E-03, - + .0000E+00, .0000E+00, -.4764E-02, .5881E-02, - + .6999E-02, .5881E-02, .4070E-01, .1122E-03, - + .0000E+00, .0000E+00, -.5345E-02, .6326E-02, - + .7307E-02, .6326E-02, .4348E-01, .1194E-03, - + .0000E+00, .0000E+00, -.5935E-02, .6795E-02, - + .7654E-02, .6795E-02, .4644E-01, .1269E-03, - + .0000E+00, .0000E+00, -.6539E-02, .7289E-02, - + .8040E-02, .7289E-02, .4960E-01, .1349E-03, - + .0000E+00, .0000E+00, -.7160E-02, .7814E-02, - + .8468E-02, .7814E-02, .5296E-01, .1433E-03/ - DATA ((CALC(I,K,28),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.7803E-02, .8371E-02, - + .8940E-02, .8371E-02, .5657E-01, .1523E-03, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,29),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .3891E-02, .1298E-02, - + .6486E-02, .1298E-02, .1557E-01, .3566E-04, - + .0000E+00, .0000E+00, .2953E-02, .1682E-02, - + .6317E-02, .1682E-02, .1739E-01, .3452E-04, - + .0000E+00, .0000E+00, .2068E-02, .2057E-02, - + .6182E-02, .2057E-02, .1921E-01, .3523E-04, - + .0000E+00, .0000E+00, .1235E-02, .2424E-02, - + .6082E-02, .2424E-02, .2103E-01, .3703E-04, - + .0000E+00, .0000E+00, .4491E-03, .2784E-02, - + .6017E-02, .2784E-02, .2287E-01, .3946E-04, - + .0000E+00, .0000E+00, -.2920E-03, .3140E-02, - + .5987E-02, .3140E-02, .2473E-01, .4228E-04, - + .0000E+00, .0000E+00, -.9929E-03, .3493E-02, - + .5993E-02, .3493E-02, .2662E-01, .4531E-04, - + .0000E+00, .0000E+00, -.1658E-02, .3846E-02, - + .6034E-02, .3846E-02, .2856E-01, .4845E-04, - + .0000E+00, .0000E+00, -.2292E-02, .4202E-02, - + .6111E-02, .4202E-02, .3056E-01, .5164E-04/ - DATA ((CALC(I,K,29),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.2901E-02, .4562E-02, - + .6222E-02, .4562E-02, .3263E-01, .5487E-04, - + .0000E+00, .0000E+00, -.3488E-02, .4929E-02, - + .6370E-02, .4929E-02, .3478E-01, .5813E-04, - + .0000E+00, .0000E+00, -.4060E-02, .5306E-02, - + .6552E-02, .5306E-02, .3704E-01, .6145E-04, - + .0000E+00, .0000E+00, -.4621E-02, .5696E-02, - + .6771E-02, .5696E-02, .3941E-01, .6485E-04, - + .0000E+00, .0000E+00, -.5176E-02, .6101E-02, - + .7026E-02, .6101E-02, .4191E-01, .6835E-04, - + .0000E+00, .0000E+00, -.5731E-02, .6524E-02, - + .7318E-02, .6524E-02, .4455E-01, .7200E-04, - + .0000E+00, .0000E+00, -.6290E-02, .6969E-02, - + .7648E-02, .6969E-02, .4737E-01, .7583E-04, - + .0000E+00, .0000E+00, -.6858E-02, .7438E-02, - + .8018E-02, .7438E-02, .5036E-01, .7988E-04, - + .0000E+00, .0000E+00, -.7441E-02, .7935E-02, - + .8428E-02, .7935E-02, .5356E-01, .8417E-04/ - DATA ((CALC(I,K,29),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.8043E-02, .8462E-02, - + .8881E-02, .8462E-02, .5697E-01, .8876E-04, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,30),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .4302E-02, .1433E-02, - + .7170E-02, .1433E-02, .1721E-01, .2230E-04, - + .0000E+00, .0000E+00, .3094E-02, .1879E-02, - + .6853E-02, .1879E-02, .1916E-01, .2138E-04, - + .0000E+00, .0000E+00, .1999E-02, .2299E-02, - + .6598E-02, .2299E-02, .2106E-01, .2171E-04, - + .0000E+00, .0000E+00, .1004E-02, .2697E-02, - + .6400E-02, .2697E-02, .2292E-01, .2268E-04, - + .0000E+00, .0000E+00, .9942E-04, .3078E-02, - + .6256E-02, .3078E-02, .2476E-01, .2394E-04, - + .0000E+00, .0000E+00, -.7262E-03, .3445E-02, - + .6163E-02, .3445E-02, .2659E-01, .2536E-04, - + .0000E+00, .0000E+00, -.1483E-02, .3801E-02, - + .6119E-02, .3801E-02, .2843E-01, .2681E-04, - + .0000E+00, .0000E+00, -.2179E-02, .4149E-02, - + .6120E-02, .4149E-02, .3029E-01, .2826E-04, - + .0000E+00, .0000E+00, -.2825E-02, .4495E-02, - + .6164E-02, .4495E-02, .3219E-01, .2967E-04/ - DATA ((CALC(I,K,30),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.3429E-02, .4839E-02, - + .6249E-02, .4839E-02, .3414E-01, .3105E-04, - + .0000E+00, .0000E+00, -.4000E-02, .5187E-02, - + .6374E-02, .5187E-02, .3616E-01, .3241E-04, - + .0000E+00, .0000E+00, -.4543E-02, .5540E-02, - + .6537E-02, .5540E-02, .3827E-01, .3377E-04, - + .0000E+00, .0000E+00, -.5068E-02, .5903E-02, - + .6738E-02, .5903E-02, .4047E-01, .3514E-04, - + .0000E+00, .0000E+00, -.5581E-02, .6278E-02, - + .6975E-02, .6278E-02, .4278E-01, .3655E-04, - + .0000E+00, .0000E+00, -.6088E-02, .6669E-02, - + .7249E-02, .6669E-02, .4523E-01, .3802E-04, - + .0000E+00, .0000E+00, -.6596E-02, .7077E-02, - + .7559E-02, .7077E-02, .4783E-01, .3956E-04, - + .0000E+00, .0000E+00, -.7109E-02, .7508E-02, - + .7907E-02, .7508E-02, .5059E-01, .4120E-04, - + .0000E+00, .0000E+00, -.7634E-02, .7964E-02, - + .8294E-02, .7964E-02, .5353E-01, .4295E-04/ - DATA ((CALC(I,K,30),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.8176E-02, .8448E-02, - + .8719E-02, .8448E-02, .5668E-01, .4483E-04, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,31),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .4756E-02, .1585E-02, - + .7925E-02, .1585E-02, .1902E-01, .1098E-04, - + .0000E+00, .0000E+00, .3138E-02, .2130E-02, - + .7397E-02, .2130E-02, .2122E-01, .1045E-04, - + .0000E+00, .0000E+00, .1739E-02, .2621E-02, - + .6980E-02, .2621E-02, .2329E-01, .1064E-04, - + .0000E+00, .0000E+00, .5274E-03, .3067E-02, - + .6660E-02, .3067E-02, .2524E-01, .1112E-04, - + .0000E+00, .0000E+00, -.5225E-03, .3475E-02, - + .6427E-02, .3475E-02, .2710E-01, .1164E-04, - + .0000E+00, .0000E+00, -.1436E-02, .3852E-02, - + .6269E-02, .3852E-02, .2891E-01, .1217E-04, - + .0000E+00, .0000E+00, -.2234E-02, .4206E-02, - + .6178E-02, .4206E-02, .3067E-01, .1268E-04, - + .0000E+00, .0000E+00, -.2938E-02, .4542E-02, - + .6146E-02, .4542E-02, .3242E-01, .1313E-04, - + .0000E+00, .0000E+00, -.3565E-02, .4866E-02, - + .6167E-02, .4866E-02, .3417E-01, .1354E-04/ - DATA ((CALC(I,K,31),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.4130E-02, .5182E-02, - + .6234E-02, .5182E-02, .3595E-01, .1391E-04, - + .0000E+00, .0000E+00, -.4648E-02, .5496E-02, - + .6344E-02, .5496E-02, .3777E-01, .1426E-04, - + .0000E+00, .0000E+00, -.5129E-02, .5811E-02, - + .6493E-02, .5811E-02, .3965E-01, .1459E-04, - + .0000E+00, .0000E+00, -.5584E-02, .6132E-02, - + .6679E-02, .6132E-02, .4161E-01, .1492E-04, - + .0000E+00, .0000E+00, -.6023E-02, .6461E-02, - + .6898E-02, .6461E-02, .4366E-01, .1526E-04, - + .0000E+00, .0000E+00, -.6453E-02, .6802E-02, - + .7152E-02, .6802E-02, .4582E-01, .1562E-04, - + .0000E+00, .0000E+00, -.6881E-02, .7159E-02, - + .7437E-02, .7159E-02, .4810E-01, .1600E-04, - + .0000E+00, .0000E+00, -.7314E-02, .7535E-02, - + .7756E-02, .7535E-02, .5053E-01, .1641E-04, - + .0000E+00, .0000E+00, -.7758E-02, .7933E-02, - + .8108E-02, .7933E-02, .5312E-01, .1686E-04/ - DATA ((CALC(I,K,31),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.8217E-02, .8355E-02, - + .8493E-02, .8355E-02, .5588E-01, .1736E-04, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CALC(I,K,32),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .5261E-02, .1754E-02, - + .8769E-02, .1754E-02, .2104E-01, .2781E-05, - + .0000E+00, .0000E+00, .2862E-02, .2523E-02, - + .7907E-02, .2523E-02, .2400E-01, .2638E-05, - + .0000E+00, .0000E+00, .9884E-03, .3148E-02, - + .7284E-02, .3148E-02, .2650E-01, .2723E-05, - + .0000E+00, .0000E+00, -.4935E-03, .3666E-02, - + .6839E-02, .3666E-02, .2867E-01, .2872E-05, - + .0000E+00, .0000E+00, -.1678E-02, .4106E-02, - + .6534E-02, .4106E-02, .3061E-01, .2974E-05, - + .0000E+00, .0000E+00, -.2630E-02, .4485E-02, - + .6340E-02, .4485E-02, .3237E-01, .3051E-05, - + .0000E+00, .0000E+00, -.3405E-02, .4819E-02, - + .6234E-02, .4819E-02, .3402E-01, .3123E-05, - + .0000E+00, .0000E+00, -.4046E-02, .5122E-02, - + .6198E-02, .5122E-02, .3558E-01, .3170E-05, - + .0000E+00, .0000E+00, -.4586E-02, .5403E-02, - + .6220E-02, .5403E-02, .3711E-01, .3193E-05/ - DATA ((CALC(I,K,32),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, -.5052E-02, .5671E-02, - + .6290E-02, .5671E-02, .3863E-01, .3206E-05, - + .0000E+00, .0000E+00, -.5463E-02, .5931E-02, - + .6399E-02, .5931E-02, .4016E-01, .3214E-05, - + .0000E+00, .0000E+00, -.5836E-02, .6189E-02, - + .6542E-02, .6189E-02, .4173E-01, .3217E-05, - + .0000E+00, .0000E+00, -.6184E-02, .6450E-02, - + .6715E-02, .6450E-02, .4335E-01, .3218E-05, - + .0000E+00, .0000E+00, -.6517E-02, .6717E-02, - + .6916E-02, .6717E-02, .4504E-01, .3221E-05, - + .0000E+00, .0000E+00, -.6844E-02, .6993E-02, - + .7142E-02, .6993E-02, .4682E-01, .3228E-05, - + .0000E+00, .0000E+00, -.7171E-02, .7282E-02, - + .7394E-02, .7282E-02, .4870E-01, .3238E-05, - + .0000E+00, .0000E+00, -.7504E-02, .7587E-02, - + .7670E-02, .7587E-02, .5069E-01, .3255E-05, - + .0000E+00, .0000E+00, -.7848E-02, .7909E-02, - + .7971E-02, .7909E-02, .5281E-01, .3279E-05/ - DATA ((CALC(I,K,32),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, -.8207E-02, .8253E-02, - + .8298E-02, .8253E-02, .5508E-01, .3309E-05, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA (PAR2(I),I=1,30) / - + .2000E+00, .4800E+00, .8500E+00, .1000E+01, - + .1000E+01, .1000E+01, .1200E+01, .7500E+01, - + .1987E+01, .1900E+01, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .1000E+01, - + .0000E+00, .1000E+01, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .4000E+01, .0000E+00, .1000E+01, .1000E+01, - + .8000E-01, .2000E+01/ - DATA ((CELC(I,K,1 ),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .1515E-02, -.4584E-03, - + .5980E-03, -.4584E-03, .6059E-02, .6289E-02, - + .0000E+00, .0000E+00, .1514E-02, -.4567E-03, - + .6009E-03, -.4567E-03, .6839E-02, .9576E-02, - + .0000E+00, .0000E+00, .1514E-02, -.4550E-03, - + .6038E-03, -.4550E-03, .7744E-02, .1330E-01, - + .0000E+00, .0000E+00, .1513E-02, -.4533E-03, - + .6068E-03, -.4533E-03, .8782E-02, .1746E-01, - + .0000E+00, .0000E+00, .1513E-02, -.4515E-03, - + .6098E-03, -.4515E-03, .9957E-02, .2207E-01, - + .0000E+00, .0000E+00, .1512E-02, -.4497E-03, - + .6128E-03, -.4497E-03, .1128E-01, .2712E-01, - + .0000E+00, .0000E+00, .1511E-02, -.4478E-03, - + .6158E-03, -.4478E-03, .1275E-01, .3260E-01, - + .0000E+00, .0000E+00, .1511E-02, -.4458E-03, - + .6189E-03, -.4458E-03, .1437E-01, .3852E-01, - + .0000E+00, .0000E+00, .1510E-02, -.4439E-03, - + .6220E-03, -.4439E-03, .1616E-01, .4485E-01/ - DATA ((CELC(I,K,1 ),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .1509E-02, -.4418E-03, - + .6252E-03, -.4418E-03, .1811E-01, .5157E-01, - + .0000E+00, .0000E+00, .1508E-02, -.4397E-03, - + .6283E-03, -.4397E-03, .2023E-01, .5866E-01, - + .0000E+00, .0000E+00, .1507E-02, -.4376E-03, - + .6315E-03, -.4376E-03, .2251E-01, .6609E-01, - + .0000E+00, .0000E+00, .1505E-02, -.4353E-03, - + .6348E-03, -.4353E-03, .2497E-01, .7384E-01, - + .0000E+00, .0000E+00, .1504E-02, -.4331E-03, - + .6380E-03, -.4331E-03, .2761E-01, .8187E-01, - + .0000E+00, .0000E+00, .1503E-02, -.4307E-03, - + .6413E-03, -.4307E-03, .3041E-01, .9013E-01, - + .0000E+00, .0000E+00, .1501E-02, -.4283E-03, - + .6446E-03, -.4283E-03, .3338E-01, .9860E-01, - + .0000E+00, .0000E+00, .1500E-02, -.4259E-03, - + .6479E-03, -.4259E-03, .3652E-01, .1072E+00, - + .0000E+00, .0000E+00, .1498E-02, -.4234E-03, - + .6512E-03, -.4234E-03, .3982E-01, .1160E+00/ - DATA ((CELC(I,K,1 ),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .1496E-02, -.4208E-03, - + .6546E-03, -.4208E-03, .4328E-01, .1248E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,2 ),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .1537E-02, -.4096E-03, - + .7179E-03, -.4096E-03, .6148E-02, .6219E-02, - + .0000E+00, .0000E+00, .1534E-02, -.4053E-03, - + .7231E-03, -.4053E-03, .6640E-02, .8229E-02, - + .0000E+00, .0000E+00, .1530E-02, -.4009E-03, - + .7283E-03, -.4009E-03, .7175E-02, .1032E-01, - + .0000E+00, .0000E+00, .1526E-02, -.3964E-03, - + .7335E-03, -.3964E-03, .7748E-02, .1247E-01, - + .0000E+00, .0000E+00, .1522E-02, -.3918E-03, - + .7387E-03, -.3918E-03, .8358E-02, .1466E-01, - + .0000E+00, .0000E+00, .1518E-02, -.3872E-03, - + .7438E-03, -.3872E-03, .9000E-02, .1686E-01, - + .0000E+00, .0000E+00, .1514E-02, -.3825E-03, - + .7488E-03, -.3825E-03, .9670E-02, .1906E-01, - + .0000E+00, .0000E+00, .1509E-02, -.3777E-03, - + .7539E-03, -.3777E-03, .1036E-01, .2123E-01, - + .0000E+00, .0000E+00, .1504E-02, -.3728E-03, - + .7589E-03, -.3728E-03, .1108E-01, .2335E-01/ - DATA ((CELC(I,K,2 ),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .1500E-02, -.3679E-03, - + .7638E-03, -.3679E-03, .1180E-01, .2540E-01, - + .0000E+00, .0000E+00, .1494E-02, -.3628E-03, - + .7687E-03, -.3628E-03, .1253E-01, .2734E-01, - + .0000E+00, .0000E+00, .1489E-02, -.3577E-03, - + .7736E-03, -.3577E-03, .1326E-01, .2917E-01, - + .0000E+00, .0000E+00, .1483E-02, -.3525E-03, - + .7784E-03, -.3525E-03, .1399E-01, .3086E-01, - + .0000E+00, .0000E+00, .1478E-02, -.3473E-03, - + .7831E-03, -.3473E-03, .1470E-01, .3239E-01, - + .0000E+00, .0000E+00, .1472E-02, -.3420E-03, - + .7877E-03, -.3420E-03, .1540E-01, .3374E-01, - + .0000E+00, .0000E+00, .1465E-02, -.3366E-03, - + .7923E-03, -.3366E-03, .1606E-01, .3490E-01, - + .0000E+00, .0000E+00, .1459E-02, -.3311E-03, - + .7968E-03, -.3311E-03, .1669E-01, .3584E-01, - + .0000E+00, .0000E+00, .1452E-02, -.3256E-03, - + .8013E-03, -.3256E-03, .1728E-01, .3656E-01/ - DATA ((CELC(I,K,2 ),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .1445E-02, -.3199E-03, - + .8056E-03, -.3199E-03, .1781E-01, .3705E-01, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,3 ),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .1512E-02, -.3476E-03, - + .8173E-03, -.3476E-03, .6050E-02, .6096E-02, - + .0000E+00, .0000E+00, .1504E-02, -.3410E-03, - + .8225E-03, -.3410E-03, .6398E-02, .7474E-02, - + .0000E+00, .0000E+00, .1496E-02, -.3343E-03, - + .8276E-03, -.3343E-03, .6766E-02, .8854E-02, - + .0000E+00, .0000E+00, .1488E-02, -.3275E-03, - + .8326E-03, -.3275E-03, .7151E-02, .1022E-01, - + .0000E+00, .0000E+00, .1479E-02, -.3208E-03, - + .8374E-03, -.3208E-03, .7552E-02, .1157E-01, - + .0000E+00, .0000E+00, .1470E-02, -.3140E-03, - + .8421E-03, -.3140E-03, .7966E-02, .1289E-01, - + .0000E+00, .0000E+00, .1461E-02, -.3071E-03, - + .8467E-03, -.3071E-03, .8391E-02, .1417E-01, - + .0000E+00, .0000E+00, .1452E-02, -.3003E-03, - + .8511E-03, -.3003E-03, .8826E-02, .1541E-01, - + .0000E+00, .0000E+00, .1442E-02, -.2934E-03, - + .8553E-03, -.2934E-03, .9268E-02, .1660E-01/ - DATA ((CELC(I,K,3 ),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .1432E-02, -.2865E-03, - + .8594E-03, -.2865E-03, .9715E-02, .1772E-01, - + .0000E+00, .0000E+00, .1422E-02, -.2795E-03, - + .8633E-03, -.2795E-03, .1016E-01, .1879E-01, - + .0000E+00, .0000E+00, .1412E-02, -.2725E-03, - + .8671E-03, -.2725E-03, .1062E-01, .1978E-01, - + .0000E+00, .0000E+00, .1402E-02, -.2656E-03, - + .8707E-03, -.2656E-03, .1106E-01, .2071E-01, - + .0000E+00, .0000E+00, .1391E-02, -.2586E-03, - + .8741E-03, -.2586E-03, .1151E-01, .2156E-01, - + .0000E+00, .0000E+00, .1380E-02, -.2516E-03, - + .8773E-03, -.2516E-03, .1195E-01, .2235E-01, - + .0000E+00, .0000E+00, .1369E-02, -.2445E-03, - + .8803E-03, -.2445E-03, .1239E-01, .2305E-01, - + .0000E+00, .0000E+00, .1358E-02, -.2375E-03, - + .8832E-03, -.2375E-03, .1282E-01, .2368E-01, - + .0000E+00, .0000E+00, .1347E-02, -.2305E-03, - + .8858E-03, -.2305E-03, .1324E-01, .2424E-01/ - DATA ((CELC(I,K,3 ),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .1335E-02, -.2235E-03, - + .8882E-03, -.2235E-03, .1365E-01, .2474E-01, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,4 ),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .1450E-02, -.2759E-03, - + .8984E-03, -.2759E-03, .5801E-02, .5921E-02, - + .0000E+00, .0000E+00, .1438E-02, -.2676E-03, - + .9028E-03, -.2676E-03, .6052E-02, .6886E-02, - + .0000E+00, .0000E+00, .1425E-02, -.2592E-03, - + .9070E-03, -.2592E-03, .6310E-02, .7817E-02, - + .0000E+00, .0000E+00, .1413E-02, -.2509E-03, - + .9110E-03, -.2509E-03, .6574E-02, .8708E-02, - + .0000E+00, .0000E+00, .1400E-02, -.2426E-03, - + .9148E-03, -.2426E-03, .6841E-02, .9554E-02, - + .0000E+00, .0000E+00, .1387E-02, -.2344E-03, - + .9183E-03, -.2344E-03, .7111E-02, .1035E-01, - + .0000E+00, .0000E+00, .1374E-02, -.2262E-03, - + .9216E-03, -.2262E-03, .7381E-02, .1109E-01, - + .0000E+00, .0000E+00, .1361E-02, -.2181E-03, - + .9246E-03, -.2181E-03, .7649E-02, .1178E-01, - + .0000E+00, .0000E+00, .1347E-02, -.2100E-03, - + .9275E-03, -.2100E-03, .7915E-02, .1241E-01/ - DATA ((CELC(I,K,4 ),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .1334E-02, -.2020E-03, - + .9300E-03, -.2020E-03, .8177E-02, .1297E-01, - + .0000E+00, .0000E+00, .1320E-02, -.1940E-03, - + .9323E-03, -.1940E-03, .8433E-02, .1348E-01, - + .0000E+00, .0000E+00, .1307E-02, -.1861E-03, - + .9343E-03, -.1861E-03, .8682E-02, .1392E-01, - + .0000E+00, .0000E+00, .1293E-02, -.1782E-03, - + .9361E-03, -.1782E-03, .8923E-02, .1430E-01, - + .0000E+00, .0000E+00, .1279E-02, -.1705E-03, - + .9376E-03, -.1705E-03, .9154E-02, .1462E-01, - + .0000E+00, .0000E+00, .1264E-02, -.1628E-03, - + .9389E-03, -.1628E-03, .9374E-02, .1487E-01, - + .0000E+00, .0000E+00, .1250E-02, -.1552E-03, - + .9398E-03, -.1552E-03, .9582E-02, .1507E-01, - + .0000E+00, .0000E+00, .1236E-02, -.1476E-03, - + .9405E-03, -.1476E-03, .9778E-02, .1521E-01, - + .0000E+00, .0000E+00, .1221E-02, -.1402E-03, - + .9408E-03, -.1402E-03, .9960E-02, .1529E-01/ - DATA ((CELC(I,K,4 ),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .1207E-02, -.1328E-03, - + .9409E-03, -.1328E-03, .1013E-01, .1532E-01, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,5 ),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .1362E-02, -.1989E-03, - + .9640E-03, -.1989E-03, .5447E-02, .5699E-02, - + .0000E+00, .0000E+00, .1346E-02, -.1896E-03, - + .9671E-03, -.1896E-03, .5628E-02, .6368E-02, - + .0000E+00, .0000E+00, .1331E-02, -.1805E-03, - + .9698E-03, -.1805E-03, .5809E-02, .6992E-02, - + .0000E+00, .0000E+00, .1315E-02, -.1715E-03, - + .9723E-03, -.1715E-03, .5989E-02, .7567E-02, - + .0000E+00, .0000E+00, .1300E-02, -.1626E-03, - + .9745E-03, -.1626E-03, .6167E-02, .8090E-02, - + .0000E+00, .0000E+00, .1284E-02, -.1538E-03, - + .9763E-03, -.1538E-03, .6342E-02, .8563E-02, - + .0000E+00, .0000E+00, .1268E-02, -.1451E-03, - + .9778E-03, -.1451E-03, .6512E-02, .8982E-02, - + .0000E+00, .0000E+00, .1252E-02, -.1367E-03, - + .9790E-03, -.1367E-03, .6677E-02, .9349E-02, - + .0000E+00, .0000E+00, .1236E-02, -.1283E-03, - + .9798E-03, -.1283E-03, .6835E-02, .9664E-02/ - DATA ((CELC(I,K,5 ),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .1221E-02, -.1201E-03, - + .9804E-03, -.1201E-03, .6986E-02, .9927E-02, - + .0000E+00, .0000E+00, .1205E-02, -.1120E-03, - + .9805E-03, -.1120E-03, .7129E-02, .1014E-01, - + .0000E+00, .0000E+00, .1189E-02, -.1041E-03, - + .9804E-03, -.1041E-03, .7263E-02, .1030E-01, - + .0000E+00, .0000E+00, .1173E-02, -.9636E-04, - + .9799E-03, -.9636E-04, .7387E-02, .1042E-01, - + .0000E+00, .0000E+00, .1157E-02, -.8876E-04, - + .9790E-03, -.8876E-04, .7501E-02, .1049E-01, - + .0000E+00, .0000E+00, .1140E-02, -.8132E-04, - + .9778E-03, -.8132E-04, .7605E-02, .1052E-01, - + .0000E+00, .0000E+00, .1124E-02, -.7404E-04, - + .9762E-03, -.7404E-04, .7698E-02, .1051E-01, - + .0000E+00, .0000E+00, .1108E-02, -.6693E-04, - + .9743E-03, -.6693E-04, .7780E-02, .1047E-01, - + .0000E+00, .0000E+00, .1092E-02, -.6000E-04, - + .9720E-03, -.6000E-04, .7850E-02, .1039E-01/ - DATA ((CELC(I,K,5 ),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .1076E-02, -.5324E-04, - + .9694E-03, -.5324E-04, .7908E-02, .1028E-01, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,6 ),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .1259E-02, -.1212E-03, - + .1017E-02, -.1212E-03, .5038E-02, .5434E-02, - + .0000E+00, .0000E+00, .1242E-02, -.1118E-03, - + .1018E-02, -.1118E-03, .5166E-02, .5883E-02, - + .0000E+00, .0000E+00, .1225E-02, -.1027E-03, - + .1019E-02, -.1027E-03, .5291E-02, .6285E-02, - + .0000E+00, .0000E+00, .1208E-02, -.9380E-04, - + .1020E-02, -.9380E-04, .5412E-02, .6638E-02, - + .0000E+00, .0000E+00, .1190E-02, -.8512E-04, - + .1020E-02, -.8512E-04, .5528E-02, .6944E-02, - + .0000E+00, .0000E+00, .1173E-02, -.7666E-04, - + .1020E-02, -.7666E-04, .5638E-02, .7202E-02, - + .0000E+00, .0000E+00, .1156E-02, -.6842E-04, - + .1019E-02, -.6842E-04, .5742E-02, .7414E-02, - + .0000E+00, .0000E+00, .1139E-02, -.6041E-04, - + .1018E-02, -.6041E-04, .5838E-02, .7582E-02, - + .0000E+00, .0000E+00, .1122E-02, -.5262E-04, - + .1017E-02, -.5262E-04, .5927E-02, .7708E-02/ - DATA ((CELC(I,K,6 ),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .1105E-02, -.4505E-04, - + .1015E-02, -.4505E-04, .6008E-02, .7793E-02, - + .0000E+00, .0000E+00, .1088E-02, -.3771E-04, - + .1013E-02, -.3771E-04, .6080E-02, .7839E-02, - + .0000E+00, .0000E+00, .1071E-02, -.3059E-04, - + .1010E-02, -.3059E-04, .6144E-02, .7851E-02, - + .0000E+00, .0000E+00, .1054E-02, -.2369E-04, - + .1007E-02, -.2369E-04, .6198E-02, .7829E-02, - + .0000E+00, .0000E+00, .1037E-02, -.1703E-04, - + .1003E-02, -.1703E-04, .6244E-02, .7776E-02, - + .0000E+00, .0000E+00, .1021E-02, -.1059E-04, - + .9995E-03, -.1059E-04, .6280E-02, .7696E-02, - + .0000E+00, .0000E+00, .1004E-02, -.4384E-05, - + .9952E-03, -.4384E-05, .6307E-02, .7591E-02, - + .0000E+00, .0000E+00, .9872E-03, .1594E-05, - + .9904E-03, .1594E-05, .6325E-02, .7464E-02, - + .0000E+00, .0000E+00, .9706E-03, .7342E-05, - + .9853E-03, .7342E-05, .6333E-02, .7316E-02/ - DATA ((CELC(I,K,6 ),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .9540E-03, .1286E-04, - + .9797E-03, .1286E-04, .6333E-02, .7152E-02, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,7 ),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .1154E-02, -.4682E-04, - + .1061E-02, -.4682E-04, .4617E-02, .5131E-02, - + .0000E+00, .0000E+00, .1136E-02, -.3821E-04, - + .1060E-02, -.3821E-04, .4707E-02, .5414E-02, - + .0000E+00, .0000E+00, .1118E-02, -.2990E-04, - + .1059E-02, -.2990E-04, .4791E-02, .5651E-02, - + .0000E+00, .0000E+00, .1101E-02, -.2189E-04, - + .1057E-02, -.2189E-04, .4870E-02, .5845E-02, - + .0000E+00, .0000E+00, .1083E-02, -.1416E-04, - + .1055E-02, -.1416E-04, .4942E-02, .5997E-02, - + .0000E+00, .0000E+00, .1066E-02, -.6730E-05, - + .1052E-02, -.6730E-05, .5008E-02, .6110E-02, - + .0000E+00, .0000E+00, .1048E-02, .4163E-06, - + .1049E-02, .4163E-06, .5066E-02, .6185E-02, - + .0000E+00, .0000E+00, .1031E-02, .7279E-05, - + .1046E-02, .7279E-05, .5117E-02, .6225E-02, - + .0000E+00, .0000E+00, .1014E-02, .1386E-04, - + .1041E-02, .1386E-04, .5160E-02, .6233E-02/ - DATA ((CELC(I,K,7 ),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .9967E-03, .2016E-04, - + .1037E-02, .2016E-04, .5196E-02, .6211E-02, - + .0000E+00, .0000E+00, .9796E-03, .2619E-04, - + .1032E-02, .2619E-04, .5223E-02, .6162E-02, - + .0000E+00, .0000E+00, .9627E-03, .3193E-04, - + .1027E-02, .3193E-04, .5243E-02, .6088E-02, - + .0000E+00, .0000E+00, .9459E-03, .3741E-04, - + .1021E-02, .3741E-04, .5255E-02, .5992E-02, - + .0000E+00, .0000E+00, .9291E-03, .4261E-04, - + .1014E-02, .4261E-04, .5259E-02, .5877E-02, - + .0000E+00, .0000E+00, .9124E-03, .4755E-04, - + .1008E-02, .4755E-04, .5255E-02, .5746E-02, - + .0000E+00, .0000E+00, .8958E-03, .5222E-04, - + .1000E-02, .5222E-04, .5244E-02, .5600E-02, - + .0000E+00, .0000E+00, .8793E-03, .5663E-04, - + .9926E-03, .5663E-04, .5226E-02, .5442E-02, - + .0000E+00, .0000E+00, .8629E-03, .6078E-04, - + .9844E-03, .6078E-04, .5201E-02, .5274E-02/ - DATA ((CELC(I,K,7 ),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .8465E-03, .6467E-04, - + .9759E-03, .6467E-04, .5169E-02, .5098E-02, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,8 ),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .1055E-02, .2064E-04, - + .1096E-02, .2064E-04, .4221E-02, .4798E-02, - + .0000E+00, .0000E+00, .1038E-02, .2789E-04, - + .1093E-02, .2789E-04, .4282E-02, .4952E-02, - + .0000E+00, .0000E+00, .1020E-02, .3480E-04, - + .1090E-02, .3480E-04, .4337E-02, .5066E-02, - + .0000E+00, .0000E+00, .1003E-02, .4136E-04, - + .1085E-02, .4136E-04, .4385E-02, .5144E-02, - + .0000E+00, .0000E+00, .9854E-03, .4758E-04, - + .1081E-02, .4758E-04, .4426E-02, .5188E-02, - + .0000E+00, .0000E+00, .9683E-03, .5348E-04, - + .1075E-02, .5348E-04, .4460E-02, .5201E-02, - + .0000E+00, .0000E+00, .9513E-03, .5904E-04, - + .1069E-02, .5904E-04, .4487E-02, .5185E-02, - + .0000E+00, .0000E+00, .9344E-03, .6430E-04, - + .1063E-02, .6430E-04, .4507E-02, .5143E-02, - + .0000E+00, .0000E+00, .9176E-03, .6923E-04, - + .1056E-02, .6923E-04, .4520E-02, .5077E-02/ - DATA ((CELC(I,K,8 ),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .9009E-03, .7386E-04, - + .1049E-02, .7386E-04, .4526E-02, .4991E-02, - + .0000E+00, .0000E+00, .8844E-03, .7819E-04, - + .1041E-02, .7819E-04, .4525E-02, .4888E-02, - + .0000E+00, .0000E+00, .8679E-03, .8222E-04, - + .1032E-02, .8222E-04, .4517E-02, .4768E-02, - + .0000E+00, .0000E+00, .8515E-03, .8597E-04, - + .1023E-02, .8597E-04, .4502E-02, .4636E-02, - + .0000E+00, .0000E+00, .8352E-03, .8942E-04, - + .1014E-02, .8942E-04, .4481E-02, .4493E-02, - + .0000E+00, .0000E+00, .8190E-03, .9260E-04, - + .1004E-02, .9260E-04, .4454E-02, .4342E-02, - + .0000E+00, .0000E+00, .8028E-03, .9550E-04, - + .9938E-03, .9550E-04, .4421E-02, .4184E-02, - + .0000E+00, .0000E+00, .7868E-03, .9814E-04, - + .9831E-03, .9814E-04, .4382E-02, .4021E-02, - + .0000E+00, .0000E+00, .7708E-03, .1005E-03, - + .9719E-03, .1005E-03, .4339E-02, .3855E-02/ - DATA ((CELC(I,K,8 ),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .7550E-03, .1026E-03, - + .9603E-03, .1026E-03, .4290E-02, .3687E-02, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,9 ),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .9683E-03, .7884E-04, - + .1126E-02, .7884E-04, .3873E-02, .4441E-02, - + .0000E+00, .0000E+00, .9514E-03, .8432E-04, - + .1120E-02, .8432E-04, .3912E-02, .4496E-02, - + .0000E+00, .0000E+00, .9346E-03, .8942E-04, - + .1113E-02, .8942E-04, .3945E-02, .4519E-02, - + .0000E+00, .0000E+00, .9179E-03, .9417E-04, - + .1106E-02, .9417E-04, .3970E-02, .4513E-02, - + .0000E+00, .0000E+00, .9013E-03, .9856E-04, - + .1098E-02, .9856E-04, .3988E-02, .4480E-02, - + .0000E+00, .0000E+00, .8849E-03, .1026E-03, - + .1090E-02, .1026E-03, .4000E-02, .4425E-02, - + .0000E+00, .0000E+00, .8685E-03, .1063E-03, - + .1081E-02, .1063E-03, .4005E-02, .4348E-02, - + .0000E+00, .0000E+00, .8522E-03, .1097E-03, - + .1072E-02, .1097E-03, .4003E-02, .4254E-02, - + .0000E+00, .0000E+00, .8360E-03, .1128E-03, - + .1062E-02, .1128E-03, .3995E-02, .4145E-02/ - DATA ((CELC(I,K,9 ),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .8199E-03, .1156E-03, - + .1051E-02, .1156E-03, .3981E-02, .4024E-02, - + .0000E+00, .0000E+00, .8039E-03, .1180E-03, - + .1040E-02, .1180E-03, .3960E-02, .3891E-02, - + .0000E+00, .0000E+00, .7879E-03, .1202E-03, - + .1028E-02, .1202E-03, .3934E-02, .3751E-02, - + .0000E+00, .0000E+00, .7720E-03, .1221E-03, - + .1016E-02, .1221E-03, .3903E-02, .3604E-02, - + .0000E+00, .0000E+00, .7562E-03, .1237E-03, - + .1004E-02, .1237E-03, .3866E-02, .3453E-02, - + .0000E+00, .0000E+00, .7405E-03, .1251E-03, - + .9906E-03, .1251E-03, .3825E-02, .3300E-02, - + .0000E+00, .0000E+00, .7248E-03, .1262E-03, - + .9772E-03, .1262E-03, .3779E-02, .3145E-02, - + .0000E+00, .0000E+00, .7092E-03, .1271E-03, - + .9633E-03, .1271E-03, .3728E-02, .2991E-02, - + .0000E+00, .0000E+00, .6936E-03, .1277E-03, - + .9490E-03, .1277E-03, .3674E-02, .2838E-02/ - DATA ((CELC(I,K,9 ),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .6782E-03, .1281E-03, - + .9344E-03, .1281E-03, .3617E-02, .2687E-02, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,10),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .8965E-03, .1265E-03, - + .1150E-02, .1265E-03, .3586E-02, .4066E-02, - + .0000E+00, .0000E+00, .8803E-03, .1300E-03, - + .1140E-02, .1300E-03, .3607E-02, .4047E-02, - + .0000E+00, .0000E+00, .8642E-03, .1331E-03, - + .1130E-02, .1331E-03, .3621E-02, .4002E-02, - + .0000E+00, .0000E+00, .8482E-03, .1359E-03, - + .1120E-02, .1359E-03, .3628E-02, .3936E-02, - + .0000E+00, .0000E+00, .8322E-03, .1383E-03, - + .1109E-02, .1383E-03, .3629E-02, .3851E-02, - + .0000E+00, .0000E+00, .8163E-03, .1404E-03, - + .1097E-02, .1404E-03, .3623E-02, .3751E-02, - + .0000E+00, .0000E+00, .8004E-03, .1422E-03, - + .1085E-02, .1422E-03, .3611E-02, .3637E-02, - + .0000E+00, .0000E+00, .7846E-03, .1436E-03, - + .1072E-02, .1436E-03, .3593E-02, .3512E-02, - + .0000E+00, .0000E+00, .7688E-03, .1448E-03, - + .1058E-02, .1448E-03, .3570E-02, .3379E-02/ - DATA ((CELC(I,K,10),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .7530E-03, .1457E-03, - + .1044E-02, .1457E-03, .3541E-02, .3240E-02, - + .0000E+00, .0000E+00, .7374E-03, .1463E-03, - + .1030E-02, .1463E-03, .3507E-02, .3097E-02, - + .0000E+00, .0000E+00, .7217E-03, .1467E-03, - + .1015E-02, .1467E-03, .3469E-02, .2950E-02, - + .0000E+00, .0000E+00, .7061E-03, .1468E-03, - + .9997E-03, .1468E-03, .3426E-02, .2803E-02, - + .0000E+00, .0000E+00, .6905E-03, .1467E-03, - + .9839E-03, .1467E-03, .3379E-02, .2656E-02, - + .0000E+00, .0000E+00, .6750E-03, .1463E-03, - + .9676E-03, .1463E-03, .3328E-02, .2511E-02, - + .0000E+00, .0000E+00, .6596E-03, .1457E-03, - + .9510E-03, .1457E-03, .3274E-02, .2368E-02, - + .0000E+00, .0000E+00, .6442E-03, .1449E-03, - + .9341E-03, .1449E-03, .3217E-02, .2228E-02, - + .0000E+00, .0000E+00, .6288E-03, .1440E-03, - + .9168E-03, .1440E-03, .3156E-02, .2093E-02/ - DATA ((CELC(I,K,10),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .6136E-03, .1428E-03, - + .8992E-03, .1428E-03, .3094E-02, .1962E-02, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,11),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .8398E-03, .1635E-03, - + .1167E-02, .1635E-03, .3359E-02, .3682E-02, - + .0000E+00, .0000E+00, .8240E-03, .1649E-03, - + .1154E-02, .1649E-03, .3364E-02, .3607E-02, - + .0000E+00, .0000E+00, .8082E-03, .1660E-03, - + .1140E-02, .1660E-03, .3362E-02, .3515E-02, - + .0000E+00, .0000E+00, .7925E-03, .1668E-03, - + .1126E-02, .1668E-03, .3354E-02, .3407E-02, - + .0000E+00, .0000E+00, .7767E-03, .1672E-03, - + .1111E-02, .1672E-03, .3340E-02, .3289E-02, - + .0000E+00, .0000E+00, .7610E-03, .1674E-03, - + .1096E-02, .1674E-03, .3319E-02, .3160E-02, - + .0000E+00, .0000E+00, .7452E-03, .1673E-03, - + .1080E-02, .1673E-03, .3294E-02, .3025E-02, - + .0000E+00, .0000E+00, .7295E-03, .1669E-03, - + .1063E-02, .1669E-03, .3263E-02, .2885E-02, - + .0000E+00, .0000E+00, .7137E-03, .1663E-03, - + .1046E-02, .1663E-03, .3227E-02, .2742E-02/ - DATA ((CELC(I,K,11),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .6980E-03, .1654E-03, - + .1029E-02, .1654E-03, .3187E-02, .2598E-02, - + .0000E+00, .0000E+00, .6823E-03, .1643E-03, - + .1011E-02, .1643E-03, .3143E-02, .2454E-02, - + .0000E+00, .0000E+00, .6666E-03, .1630E-03, - + .9926E-03, .1630E-03, .3095E-02, .2312E-02, - + .0000E+00, .0000E+00, .6509E-03, .1615E-03, - + .9739E-03, .1615E-03, .3043E-02, .2172E-02, - + .0000E+00, .0000E+00, .6353E-03, .1598E-03, - + .9549E-03, .1598E-03, .2988E-02, .2036E-02, - + .0000E+00, .0000E+00, .6197E-03, .1579E-03, - + .9355E-03, .1579E-03, .2931E-02, .1904E-02, - + .0000E+00, .0000E+00, .6041E-03, .1559E-03, - + .9158E-03, .1559E-03, .2871E-02, .1777E-02, - + .0000E+00, .0000E+00, .5886E-03, .1536E-03, - + .8959E-03, .1536E-03, .2809E-02, .1655E-02, - + .0000E+00, .0000E+00, .5732E-03, .1513E-03, - + .8758E-03, .1513E-03, .2745E-02, .1539E-02/ - DATA ((CELC(I,K,11),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .5579E-03, .1488E-03, - + .8555E-03, .1488E-03, .2680E-02, .1429E-02, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,12),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .7960E-03, .1902E-03, - + .1176E-02, .1902E-03, .3184E-02, .3295E-02, - + .0000E+00, .0000E+00, .7801E-03, .1897E-03, - + .1160E-02, .1897E-03, .3174E-02, .3181E-02, - + .0000E+00, .0000E+00, .7642E-03, .1889E-03, - + .1142E-02, .1889E-03, .3157E-02, .3056E-02, - + .0000E+00, .0000E+00, .7482E-03, .1878E-03, - + .1124E-02, .1878E-03, .3134E-02, .2923E-02, - + .0000E+00, .0000E+00, .7321E-03, .1864E-03, - + .1105E-02, .1864E-03, .3106E-02, .2783E-02, - + .0000E+00, .0000E+00, .7161E-03, .1848E-03, - + .1086E-02, .1848E-03, .3073E-02, .2641E-02, - + .0000E+00, .0000E+00, .7000E-03, .1830E-03, - + .1066E-02, .1830E-03, .3035E-02, .2496E-02, - + .0000E+00, .0000E+00, .6838E-03, .1809E-03, - + .1046E-02, .1809E-03, .2993E-02, .2352E-02, - + .0000E+00, .0000E+00, .6677E-03, .1787E-03, - + .1025E-02, .1787E-03, .2947E-02, .2209E-02/ - DATA ((CELC(I,K,12),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .6515E-03, .1762E-03, - + .1004E-02, .1762E-03, .2897E-02, .2068E-02, - + .0000E+00, .0000E+00, .6354E-03, .1736E-03, - + .9827E-03, .1736E-03, .2844E-02, .1932E-02, - + .0000E+00, .0000E+00, .6193E-03, .1709E-03, - + .9610E-03, .1709E-03, .2788E-02, .1799E-02, - + .0000E+00, .0000E+00, .6032E-03, .1679E-03, - + .9391E-03, .1679E-03, .2729E-02, .1672E-02, - + .0000E+00, .0000E+00, .5871E-03, .1649E-03, - + .9169E-03, .1649E-03, .2669E-02, .1550E-02, - + .0000E+00, .0000E+00, .5712E-03, .1617E-03, - + .8946E-03, .1617E-03, .2606E-02, .1435E-02, - + .0000E+00, .0000E+00, .5552E-03, .1584E-03, - + .8721E-03, .1584E-03, .2542E-02, .1325E-02, - + .0000E+00, .0000E+00, .5394E-03, .1550E-03, - + .8495E-03, .1550E-03, .2476E-02, .1222E-02, - + .0000E+00, .0000E+00, .5237E-03, .1516E-03, - + .8268E-03, .1516E-03, .2409E-02, .1125E-02/ - DATA ((CELC(I,K,12),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .5081E-03, .1480E-03, - + .8041E-03, .1480E-03, .2342E-02, .1035E-02, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,13),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .7620E-03, .2079E-03, - + .1178E-02, .2079E-03, .3048E-02, .2912E-02, - + .0000E+00, .0000E+00, .7454E-03, .2055E-03, - + .1156E-02, .2055E-03, .3022E-02, .2772E-02, - + .0000E+00, .0000E+00, .7286E-03, .2030E-03, - + .1135E-02, .2030E-03, .2991E-02, .2627E-02, - + .0000E+00, .0000E+00, .7118E-03, .2002E-03, - + .1112E-02, .2002E-03, .2955E-02, .2479E-02, - + .0000E+00, .0000E+00, .6950E-03, .1972E-03, - + .1089E-02, .1972E-03, .2913E-02, .2331E-02, - + .0000E+00, .0000E+00, .6781E-03, .1940E-03, - + .1066E-02, .1940E-03, .2868E-02, .2184E-02, - + .0000E+00, .0000E+00, .6611E-03, .1906E-03, - + .1042E-02, .1906E-03, .2819E-02, .2039E-02, - + .0000E+00, .0000E+00, .6442E-03, .1871E-03, - + .1018E-02, .1871E-03, .2766E-02, .1898E-02, - + .0000E+00, .0000E+00, .6272E-03, .1835E-03, - + .9942E-03, .1835E-03, .2710E-02, .1762E-02/ - DATA ((CELC(I,K,13),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .6103E-03, .1797E-03, - + .9698E-03, .1797E-03, .2652E-02, .1631E-02, - + .0000E+00, .0000E+00, .5934E-03, .1759E-03, - + .9451E-03, .1759E-03, .2591E-02, .1506E-02, - + .0000E+00, .0000E+00, .5766E-03, .1719E-03, - + .9203E-03, .1719E-03, .2528E-02, .1387E-02, - + .0000E+00, .0000E+00, .5598E-03, .1678E-03, - + .8954E-03, .1678E-03, .2464E-02, .1275E-02, - + .0000E+00, .0000E+00, .5431E-03, .1637E-03, - + .8705E-03, .1637E-03, .2398E-02, .1169E-02, - + .0000E+00, .0000E+00, .5266E-03, .1595E-03, - + .8455E-03, .1595E-03, .2331E-02, .1071E-02, - + .0000E+00, .0000E+00, .5101E-03, .1552E-03, - + .8205E-03, .1552E-03, .2263E-02, .9791E-03, - + .0000E+00, .0000E+00, .4938E-03, .1509E-03, - + .7957E-03, .1509E-03, .2195E-02, .8939E-03, - + .0000E+00, .0000E+00, .4777E-03, .1466E-03, - + .7709E-03, .1466E-03, .2126E-02, .8151E-03/ - DATA ((CELC(I,K,13),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .4617E-03, .1423E-03, - + .7462E-03, .1423E-03, .2057E-02, .7425E-03, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,14),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .7339E-03, .2177E-03, - + .1169E-02, .2177E-03, .2935E-02, .2540E-02, - + .0000E+00, .0000E+00, .7159E-03, .2138E-03, - + .1143E-02, .2138E-03, .2894E-02, .2385E-02, - + .0000E+00, .0000E+00, .6979E-03, .2097E-03, - + .1117E-02, .2097E-03, .2849E-02, .2230E-02, - + .0000E+00, .0000E+00, .6798E-03, .2054E-03, - + .1091E-02, .2054E-03, .2799E-02, .2078E-02, - + .0000E+00, .0000E+00, .6617E-03, .2010E-03, - + .1064E-02, .2010E-03, .2745E-02, .1929E-02, - + .0000E+00, .0000E+00, .6435E-03, .1965E-03, - + .1036E-02, .1965E-03, .2688E-02, .1784E-02, - + .0000E+00, .0000E+00, .6254E-03, .1918E-03, - + .1009E-02, .1918E-03, .2628E-02, .1646E-02, - + .0000E+00, .0000E+00, .6074E-03, .1871E-03, - + .9816E-03, .1871E-03, .2566E-02, .1514E-02, - + .0000E+00, .0000E+00, .5894E-03, .1823E-03, - + .9540E-03, .1823E-03, .2501E-02, .1388E-02/ - DATA ((CELC(I,K,14),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .5714E-03, .1775E-03, - + .9263E-03, .1775E-03, .2435E-02, .1270E-02, - + .0000E+00, .0000E+00, .5536E-03, .1726E-03, - + .8987E-03, .1726E-03, .2367E-02, .1159E-02, - + .0000E+00, .0000E+00, .5359E-03, .1676E-03, - + .8711E-03, .1676E-03, .2299E-02, .1056E-02, - + .0000E+00, .0000E+00, .5183E-03, .1627E-03, - + .8436E-03, .1627E-03, .2229E-02, .9600E-03, - + .0000E+00, .0000E+00, .5009E-03, .1577E-03, - + .8162E-03, .1577E-03, .2159E-02, .8712E-03, - + .0000E+00, .0000E+00, .4837E-03, .1527E-03, - + .7891E-03, .1527E-03, .2088E-02, .7894E-03, - + .0000E+00, .0000E+00, .4666E-03, .1477E-03, - + .7621E-03, .1477E-03, .2018E-02, .7144E-03, - + .0000E+00, .0000E+00, .4498E-03, .1428E-03, - + .7354E-03, .1428E-03, .1947E-02, .6457E-03, - + .0000E+00, .0000E+00, .4333E-03, .1379E-03, - + .7090E-03, .1379E-03, .1877E-02, .5831E-03/ - DATA ((CELC(I,K,14),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .4170E-03, .1330E-03, - + .6830E-03, .1330E-03, .1808E-02, .5261E-03, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,15),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .7080E-03, .2212E-03, - + .1150E-02, .2212E-03, .2832E-02, .2183E-02, - + .0000E+00, .0000E+00, .6883E-03, .2158E-03, - + .1120E-02, .2158E-03, .2776E-02, .2023E-02, - + .0000E+00, .0000E+00, .6686E-03, .2104E-03, - + .1089E-02, .2104E-03, .2716E-02, .1867E-02, - + .0000E+00, .0000E+00, .6489E-03, .2049E-03, - + .1059E-02, .2049E-03, .2653E-02, .1717E-02, - + .0000E+00, .0000E+00, .6292E-03, .1993E-03, - + .1028E-02, .1993E-03, .2588E-02, .1573E-02, - + .0000E+00, .0000E+00, .6097E-03, .1936E-03, - + .9969E-03, .1936E-03, .2520E-02, .1437E-02, - + .0000E+00, .0000E+00, .5902E-03, .1879E-03, - + .9660E-03, .1879E-03, .2450E-02, .1310E-02, - + .0000E+00, .0000E+00, .5708E-03, .1822E-03, - + .9353E-03, .1822E-03, .2379E-02, .1190E-02, - + .0000E+00, .0000E+00, .5516E-03, .1765E-03, - + .9047E-03, .1765E-03, .2307E-02, .1078E-02/ - DATA ((CELC(I,K,15),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .5326E-03, .1708E-03, - + .8742E-03, .1708E-03, .2234E-02, .9749E-03, - + .0000E+00, .0000E+00, .5138E-03, .1651E-03, - + .8440E-03, .1651E-03, .2161E-02, .8796E-03, - + .0000E+00, .0000E+00, .4952E-03, .1594E-03, - + .8141E-03, .1594E-03, .2087E-02, .7921E-03, - + .0000E+00, .0000E+00, .4769E-03, .1538E-03, - + .7845E-03, .1538E-03, .2013E-02, .7121E-03, - + .0000E+00, .0000E+00, .4588E-03, .1482E-03, - + .7553E-03, .1482E-03, .1939E-02, .6393E-03, - + .0000E+00, .0000E+00, .4410E-03, .1427E-03, - + .7264E-03, .1427E-03, .1866E-02, .5731E-03, - + .0000E+00, .0000E+00, .4235E-03, .1373E-03, - + .6981E-03, .1373E-03, .1794E-02, .5133E-03, - + .0000E+00, .0000E+00, .4063E-03, .1319E-03, - + .6702E-03, .1319E-03, .1723E-02, .4593E-03, - + .0000E+00, .0000E+00, .3895E-03, .1266E-03, - + .6428E-03, .1266E-03, .1652E-02, .4107E-03/ - DATA ((CELC(I,K,15),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .3731E-03, .1214E-03, - + .6159E-03, .1214E-03, .1583E-02, .3671E-03, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,16),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .6814E-03, .2195E-03, - + .1120E-02, .2195E-03, .2725E-02, .1848E-02, - + .0000E+00, .0000E+00, .6597E-03, .2129E-03, - + .1085E-02, .2129E-03, .2655E-02, .1689E-02, - + .0000E+00, .0000E+00, .6381E-03, .2063E-03, - + .1051E-02, .2063E-03, .2582E-02, .1538E-02, - + .0000E+00, .0000E+00, .6167E-03, .1998E-03, - + .1016E-02, .1998E-03, .2508E-02, .1396E-02, - + .0000E+00, .0000E+00, .5954E-03, .1932E-03, - + .9818E-03, .1932E-03, .2431E-02, .1263E-02, - + .0000E+00, .0000E+00, .5743E-03, .1866E-03, - + .9476E-03, .1866E-03, .2354E-02, .1139E-02, - + .0000E+00, .0000E+00, .5535E-03, .1801E-03, - + .9137E-03, .1801E-03, .2276E-02, .1025E-02, - + .0000E+00, .0000E+00, .5329E-03, .1737E-03, - + .8802E-03, .1737E-03, .2197E-02, .9197E-03, - + .0000E+00, .0000E+00, .5126E-03, .1672E-03, - + .8470E-03, .1672E-03, .2119E-02, .8234E-03/ - DATA ((CELC(I,K,16),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .4925E-03, .1609E-03, - + .8144E-03, .1609E-03, .2040E-02, .7356E-03, - + .0000E+00, .0000E+00, .4729E-03, .1546E-03, - + .7822E-03, .1546E-03, .1962E-02, .6559E-03, - + .0000E+00, .0000E+00, .4535E-03, .1485E-03, - + .7505E-03, .1485E-03, .1884E-02, .5839E-03, - + .0000E+00, .0000E+00, .4346E-03, .1424E-03, - + .7194E-03, .1424E-03, .1808E-02, .5190E-03, - + .0000E+00, .0000E+00, .4160E-03, .1365E-03, - + .6889E-03, .1365E-03, .1732E-02, .4608E-03, - + .0000E+00, .0000E+00, .3979E-03, .1306E-03, - + .6591E-03, .1306E-03, .1658E-02, .4086E-03, - + .0000E+00, .0000E+00, .3801E-03, .1249E-03, - + .6299E-03, .1249E-03, .1585E-02, .3622E-03, - + .0000E+00, .0000E+00, .3628E-03, .1193E-03, - + .6015E-03, .1193E-03, .1514E-02, .3208E-03, - + .0000E+00, .0000E+00, .3460E-03, .1139E-03, - + .5737E-03, .1139E-03, .1444E-02, .2840E-03/ - DATA ((CELC(I,K,16),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .3296E-03, .1085E-03, - + .5467E-03, .1085E-03, .1376E-02, .2515E-03, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,17),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .6519E-03, .2136E-03, - + .1079E-02, .2136E-03, .2608E-02, .1538E-02, - + .0000E+00, .0000E+00, .6282E-03, .2060E-03, - + .1040E-02, .2060E-03, .2524E-02, .1386E-02, - + .0000E+00, .0000E+00, .6047E-03, .1985E-03, - + .1002E-02, .1985E-03, .2440E-02, .1246E-02, - + .0000E+00, .0000E+00, .5816E-03, .1911E-03, - + .9638E-03, .1911E-03, .2354E-02, .1115E-02, - + .0000E+00, .0000E+00, .5588E-03, .1838E-03, - + .9263E-03, .1838E-03, .2269E-02, .9958E-03, - + .0000E+00, .0000E+00, .5363E-03, .1765E-03, - + .8894E-03, .1765E-03, .2184E-02, .8866E-03, - + .0000E+00, .0000E+00, .5143E-03, .1694E-03, - + .8530E-03, .1694E-03, .2098E-02, .7874E-03, - + .0000E+00, .0000E+00, .4926E-03, .1624E-03, - + .8173E-03, .1624E-03, .2014E-02, .6976E-03, - + .0000E+00, .0000E+00, .4714E-03, .1555E-03, - + .7823E-03, .1555E-03, .1930E-02, .6167E-03/ - DATA ((CELC(I,K,17),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .4506E-03, .1487E-03, - + .7480E-03, .1487E-03, .1848E-02, .5442E-03, - + .0000E+00, .0000E+00, .4303E-03, .1421E-03, - + .7145E-03, .1421E-03, .1767E-02, .4794E-03, - + .0000E+00, .0000E+00, .4105E-03, .1356E-03, - + .6817E-03, .1356E-03, .1687E-02, .4217E-03, - + .0000E+00, .0000E+00, .3912E-03, .1293E-03, - + .6498E-03, .1293E-03, .1609E-02, .3705E-03, - + .0000E+00, .0000E+00, .3724E-03, .1232E-03, - + .6188E-03, .1232E-03, .1533E-02, .3252E-03, - + .0000E+00, .0000E+00, .3542E-03, .1172E-03, - + .5886E-03, .1172E-03, .1459E-02, .2853E-03, - + .0000E+00, .0000E+00, .3366E-03, .1114E-03, - + .5594E-03, .1114E-03, .1386E-02, .2502E-03, - + .0000E+00, .0000E+00, .3194E-03, .1058E-03, - + .5310E-03, .1058E-03, .1316E-02, .2193E-03, - + .0000E+00, .0000E+00, .3029E-03, .1003E-03, - + .5036E-03, .1003E-03, .1248E-02, .1923E-03/ - DATA ((CELC(I,K,17),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .2869E-03, .9507E-04, - + .4771E-03, .9507E-04, .1182E-02, .1686E-03, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,18),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .6183E-03, .2044E-03, - + .1027E-02, .2044E-03, .2473E-02, .1256E-02, - + .0000E+00, .0000E+00, .5927E-03, .1961E-03, - + .9848E-03, .1961E-03, .2378E-02, .1116E-02, - + .0000E+00, .0000E+00, .5676E-03, .1878E-03, - + .9432E-03, .1878E-03, .2284E-02, .9891E-03, - + .0000E+00, .0000E+00, .5429E-03, .1798E-03, - + .9024E-03, .1798E-03, .2190E-02, .8736E-03, - + .0000E+00, .0000E+00, .5188E-03, .1718E-03, - + .8625E-03, .1718E-03, .2097E-02, .7693E-03, - + .0000E+00, .0000E+00, .4952E-03, .1641E-03, - + .8234E-03, .1641E-03, .2006E-02, .6757E-03, - + .0000E+00, .0000E+00, .4722E-03, .1565E-03, - + .7853E-03, .1565E-03, .1916E-02, .5921E-03, - + .0000E+00, .0000E+00, .4498E-03, .1491E-03, - + .7481E-03, .1491E-03, .1827E-02, .5177E-03, - + .0000E+00, .0000E+00, .4280E-03, .1420E-03, - + .7119E-03, .1420E-03, .1740E-02, .4518E-03/ - DATA ((CELC(I,K,18),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .4068E-03, .1350E-03, - + .6767E-03, .1350E-03, .1656E-02, .3936E-03, - + .0000E+00, .0000E+00, .3862E-03, .1282E-03, - + .6426E-03, .1282E-03, .1573E-02, .3424E-03, - + .0000E+00, .0000E+00, .3663E-03, .1216E-03, - + .6095E-03, .1216E-03, .1493E-02, .2975E-03, - + .0000E+00, .0000E+00, .3470E-03, .1152E-03, - + .5775E-03, .1152E-03, .1415E-02, .2583E-03, - + .0000E+00, .0000E+00, .3284E-03, .1091E-03, - + .5466E-03, .1091E-03, .1340E-02, .2241E-03, - + .0000E+00, .0000E+00, .3105E-03, .1031E-03, - + .5168E-03, .1031E-03, .1267E-02, .1944E-03, - + .0000E+00, .0000E+00, .2932E-03, .9743E-04, - + .4881E-03, .9743E-04, .1197E-02, .1686E-03, - + .0000E+00, .0000E+00, .2766E-03, .9193E-04, - + .4605E-03, .9193E-04, .1129E-02, .1463E-03, - + .0000E+00, .0000E+00, .2607E-03, .8665E-04, - + .4340E-03, .8665E-04, .1064E-02, .1270E-03/ - DATA ((CELC(I,K,18),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .2454E-03, .8159E-04, - + .4086E-03, .8159E-04, .1002E-02, .1103E-03, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,19),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .5800E-03, .1926E-03, - + .9653E-03, .1926E-03, .2320E-02, .1005E-02, - + .0000E+00, .0000E+00, .5528E-03, .1837E-03, - + .9201E-03, .1837E-03, .2216E-02, .8800E-03, - + .0000E+00, .0000E+00, .5263E-03, .1749E-03, - + .8761E-03, .1749E-03, .2114E-02, .7684E-03, - + .0000E+00, .0000E+00, .5005E-03, .1663E-03, - + .8332E-03, .1663E-03, .2014E-02, .6689E-03, - + .0000E+00, .0000E+00, .4754E-03, .1580E-03, - + .7915E-03, .1580E-03, .1916E-02, .5807E-03, - + .0000E+00, .0000E+00, .4511E-03, .1500E-03, - + .7511E-03, .1500E-03, .1820E-02, .5029E-03, - + .0000E+00, .0000E+00, .4276E-03, .1422E-03, - + .7119E-03, .1422E-03, .1727E-02, .4345E-03, - + .0000E+00, .0000E+00, .4048E-03, .1346E-03, - + .6740E-03, .1346E-03, .1636E-02, .3747E-03, - + .0000E+00, .0000E+00, .3828E-03, .1273E-03, - + .6374E-03, .1273E-03, .1549E-02, .3226E-03/ - DATA ((CELC(I,K,19),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .3616E-03, .1203E-03, - + .6022E-03, .1203E-03, .1464E-02, .2773E-03, - + .0000E+00, .0000E+00, .3412E-03, .1135E-03, - + .5682E-03, .1135E-03, .1382E-02, .2382E-03, - + .0000E+00, .0000E+00, .3215E-03, .1070E-03, - + .5355E-03, .1070E-03, .1303E-02, .2043E-03, - + .0000E+00, .0000E+00, .3027E-03, .1007E-03, - + .5042E-03, .1007E-03, .1227E-02, .1752E-03, - + .0000E+00, .0000E+00, .2846E-03, .9473E-04, - + .4741E-03, .9473E-04, .1154E-02, .1502E-03, - + .0000E+00, .0000E+00, .2674E-03, .8899E-04, - + .4454E-03, .8899E-04, .1084E-02, .1288E-03, - + .0000E+00, .0000E+00, .2509E-03, .8351E-04, - + .4179E-03, .8351E-04, .1017E-02, .1105E-03, - + .0000E+00, .0000E+00, .2351E-03, .7827E-04, - + .3917E-03, .7827E-04, .9535E-03, .9488E-04, - + .0000E+00, .0000E+00, .2201E-03, .7328E-04, - + .3667E-03, .7328E-04, .8927E-03, .8153E-04/ - DATA ((CELC(I,K,19),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .2058E-03, .6853E-04, - + .3429E-03, .6853E-04, .8348E-03, .7015E-04, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,20),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .5371E-03, .1788E-03, - + .8947E-03, .1788E-03, .2149E-02, .7852E-03, - + .0000E+00, .0000E+00, .5087E-03, .1694E-03, - + .8474E-03, .1694E-03, .2038E-02, .6771E-03, - + .0000E+00, .0000E+00, .4813E-03, .1602E-03, - + .8017E-03, .1602E-03, .1930E-02, .5822E-03, - + .0000E+00, .0000E+00, .4548E-03, .1514E-03, - + .7576E-03, .1514E-03, .1826E-02, .4992E-03, - + .0000E+00, .0000E+00, .4292E-03, .1429E-03, - + .7151E-03, .1429E-03, .1725E-02, .4269E-03, - + .0000E+00, .0000E+00, .4046E-03, .1347E-03, - + .6741E-03, .1347E-03, .1628E-02, .3642E-03, - + .0000E+00, .0000E+00, .3810E-03, .1269E-03, - + .6347E-03, .1269E-03, .1534E-02, .3101E-03, - + .0000E+00, .0000E+00, .3583E-03, .1193E-03, - + .5970E-03, .1193E-03, .1443E-02, .2636E-03, - + .0000E+00, .0000E+00, .3366E-03, .1121E-03, - + .5608E-03, .1121E-03, .1356E-02, .2237E-03/ - DATA ((CELC(I,K,20),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .3158E-03, .1052E-03, - + .5262E-03, .1052E-03, .1273E-02, .1897E-03, - + .0000E+00, .0000E+00, .2960E-03, .9858E-04, - + .4931E-03, .9858E-04, .1194E-02, .1607E-03, - + .0000E+00, .0000E+00, .2770E-03, .9228E-04, - + .4616E-03, .9228E-04, .1118E-02, .1361E-03, - + .0000E+00, .0000E+00, .2590E-03, .8628E-04, - + .4316E-03, .8628E-04, .1045E-02, .1152E-03, - + .0000E+00, .0000E+00, .2419E-03, .8058E-04, - + .4031E-03, .8058E-04, .9761E-03, .9756E-04, - + .0000E+00, .0000E+00, .2256E-03, .7517E-04, - + .3760E-03, .7517E-04, .9105E-03, .8267E-04, - + .0000E+00, .0000E+00, .2102E-03, .7003E-04, - + .3503E-03, .7003E-04, .8484E-03, .7012E-04, - + .0000E+00, .0000E+00, .1956E-03, .6518E-04, - + .3260E-03, .6518E-04, .7896E-03, .5955E-04, - + .0000E+00, .0000E+00, .1819E-03, .6059E-04, - + .3030E-03, .6059E-04, .7339E-03, .5066E-04/ - DATA ((CELC(I,K,20),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .1688E-03, .5626E-04, - + .2814E-03, .5626E-04, .6814E-03, .4317E-04, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,21),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .4902E-03, .1633E-03, - + .8168E-03, .1633E-03, .1961E-02, .5975E-03, - + .0000E+00, .0000E+00, .4611E-03, .1536E-03, - + .7683E-03, .1536E-03, .1846E-02, .5068E-03, - + .0000E+00, .0000E+00, .4332E-03, .1443E-03, - + .7219E-03, .1443E-03, .1736E-02, .4287E-03, - + .0000E+00, .0000E+00, .4065E-03, .1354E-03, - + .6774E-03, .1354E-03, .1630E-02, .3617E-03, - + .0000E+00, .0000E+00, .3810E-03, .1269E-03, - + .6348E-03, .1269E-03, .1529E-02, .3044E-03, - + .0000E+00, .0000E+00, .3566E-03, .1188E-03, - + .5942E-03, .1188E-03, .1432E-02, .2556E-03, - + .0000E+00, .0000E+00, .3334E-03, .1111E-03, - + .5556E-03, .1111E-03, .1339E-02, .2143E-03, - + .0000E+00, .0000E+00, .3113E-03, .1037E-03, - + .5187E-03, .1037E-03, .1251E-02, .1794E-03, - + .0000E+00, .0000E+00, .2903E-03, .9674E-04, - + .4838E-03, .9674E-04, .1167E-02, .1500E-03/ - DATA ((CELC(I,K,21),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .2704E-03, .9011E-04, - + .4506E-03, .9011E-04, .1087E-02, .1253E-03, - + .0000E+00, .0000E+00, .2515E-03, .8383E-04, - + .4192E-03, .8383E-04, .1011E-02, .1046E-03, - + .0000E+00, .0000E+00, .2337E-03, .7789E-04, - + .3895E-03, .7789E-04, .9398E-03, .8739E-04, - + .0000E+00, .0000E+00, .2169E-03, .7228E-04, - + .3615E-03, .7228E-04, .8722E-03, .7301E-04, - + .0000E+00, .0000E+00, .2010E-03, .6700E-04, - + .3350E-03, .6700E-04, .8085E-03, .6105E-04, - + .0000E+00, .0000E+00, .1861E-03, .6202E-04, - + .3102E-03, .6202E-04, .7485E-03, .5111E-04, - + .0000E+00, .0000E+00, .1721E-03, .5735E-04, - + .2868E-03, .5735E-04, .6921E-03, .4285E-04, - + .0000E+00, .0000E+00, .1589E-03, .5296E-04, - + .2648E-03, .5296E-04, .6392E-03, .3600E-04, - + .0000E+00, .0000E+00, .1466E-03, .4885E-04, - + .2443E-03, .4885E-04, .5896E-03, .3031E-04/ - DATA ((CELC(I,K,21),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .1351E-03, .4501E-04, - + .2251E-03, .4501E-04, .5432E-03, .2558E-04, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,22),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .4400E-03, .1466E-03, - + .7332E-03, .1466E-03, .1760E-02, .4409E-03, - + .0000E+00, .0000E+00, .4107E-03, .1369E-03, - + .6845E-03, .1369E-03, .1644E-02, .3674E-03, - + .0000E+00, .0000E+00, .3830E-03, .1276E-03, - + .6382E-03, .1276E-03, .1533E-02, .3054E-03, - + .0000E+00, .0000E+00, .3566E-03, .1189E-03, - + .5943E-03, .1189E-03, .1429E-02, .2532E-03, - + .0000E+00, .0000E+00, .3317E-03, .1105E-03, - + .5527E-03, .1105E-03, .1329E-02, .2095E-03, - + .0000E+00, .0000E+00, .3080E-03, .1027E-03, - + .5134E-03, .1027E-03, .1235E-02, .1729E-03, - + .0000E+00, .0000E+00, .2857E-03, .9524E-04, - + .4762E-03, .9524E-04, .1146E-02, .1426E-03, - + .0000E+00, .0000E+00, .2647E-03, .8823E-04, - + .4412E-03, .8823E-04, .1062E-02, .1174E-03, - + .0000E+00, .0000E+00, .2449E-03, .8163E-04, - + .4082E-03, .8163E-04, .9824E-03, .9661E-04/ - DATA ((CELC(I,K,22),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .2263E-03, .7543E-04, - + .3772E-03, .7543E-04, .9079E-03, .7947E-04, - + .0000E+00, .0000E+00, .2088E-03, .6961E-04, - + .3481E-03, .6961E-04, .8379E-03, .6538E-04, - + .0000E+00, .0000E+00, .1925E-03, .6416E-04, - + .3208E-03, .6416E-04, .7723E-03, .5382E-04, - + .0000E+00, .0000E+00, .1772E-03, .5905E-04, - + .2953E-03, .5905E-04, .7110E-03, .4434E-04, - + .0000E+00, .0000E+00, .1629E-03, .5429E-04, - + .2715E-03, .5429E-04, .6536E-03, .3659E-04, - + .0000E+00, .0000E+00, .1495E-03, .4985E-04, - + .2492E-03, .4985E-04, .6001E-03, .3025E-04, - + .0000E+00, .0000E+00, .1371E-03, .4571E-04, - + .2286E-03, .4571E-04, .5503E-03, .2507E-04, - + .0000E+00, .0000E+00, .1256E-03, .4186E-04, - + .2093E-03, .4186E-04, .5040E-03, .2083E-04, - + .0000E+00, .0000E+00, .1149E-03, .3829E-04, - + .1915E-03, .3829E-04, .4610E-03, .1736E-04/ - DATA ((CELC(I,K,22),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .1050E-03, .3498E-04, - + .1749E-03, .3498E-04, .4212E-03, .1451E-04, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,23),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .3874E-03, .1291E-03, - + .6457E-03, .1291E-03, .1550E-02, .3138E-03, - + .0000E+00, .0000E+00, .3587E-03, .1196E-03, - + .5978E-03, .1196E-03, .1435E-02, .2564E-03, - + .0000E+00, .0000E+00, .3317E-03, .1105E-03, - + .5527E-03, .1105E-03, .1327E-02, .2092E-03, - + .0000E+00, .0000E+00, .3062E-03, .1021E-03, - + .5104E-03, .1021E-03, .1226E-02, .1702E-03, - + .0000E+00, .0000E+00, .2824E-03, .9413E-04, - + .4706E-03, .9413E-04, .1131E-02, .1382E-03, - + .0000E+00, .0000E+00, .2600E-03, .8668E-04, - + .4334E-03, .8668E-04, .1041E-02, .1120E-03, - + .0000E+00, .0000E+00, .2391E-03, .7971E-04, - + .3986E-03, .7971E-04, .9578E-03, .9072E-04, - + .0000E+00, .0000E+00, .2196E-03, .7321E-04, - + .3661E-03, .7321E-04, .8798E-03, .7340E-04, - + .0000E+00, .0000E+00, .2014E-03, .6714E-04, - + .3357E-03, .6714E-04, .8070E-03, .5938E-04/ - DATA ((CELC(I,K,23),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .1845E-03, .6150E-04, - + .3075E-03, .6150E-04, .7392E-03, .4804E-04, - + .0000E+00, .0000E+00, .1688E-03, .5625E-04, - + .2813E-03, .5625E-04, .6762E-03, .3890E-04, - + .0000E+00, .0000E+00, .1542E-03, .5139E-04, - + .2569E-03, .5139E-04, .6177E-03, .3154E-04, - + .0000E+00, .0000E+00, .1406E-03, .4688E-04, - + .2344E-03, .4688E-04, .5635E-03, .2561E-04, - + .0000E+00, .0000E+00, .1281E-03, .4271E-04, - + .2136E-03, .4271E-04, .5134E-03, .2085E-04, - + .0000E+00, .0000E+00, .1166E-03, .3886E-04, - + .1943E-03, .3886E-04, .4672E-03, .1702E-04, - + .0000E+00, .0000E+00, .1059E-03, .3531E-04, - + .1766E-03, .3531E-04, .4245E-03, .1393E-04, - + .0000E+00, .0000E+00, .9614E-04, .3205E-04, - + .1602E-03, .3205E-04, .3852E-03, .1145E-04, - + .0000E+00, .0000E+00, .8713E-04, .2904E-04, - + .1452E-03, .2904E-04, .3492E-03, .9440E-05/ - DATA ((CELC(I,K,23),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .7887E-04, .2629E-04, - + .1314E-03, .2629E-04, .3160E-03, .7816E-05, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,24),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .3337E-03, .1112E-03, - + .5562E-03, .1112E-03, .1335E-02, .2139E-03, - + .0000E+00, .0000E+00, .3061E-03, .1020E-03, - + .5102E-03, .1020E-03, .1225E-02, .1711E-03, - + .0000E+00, .0000E+00, .2804E-03, .9346E-04, - + .4673E-03, .9346E-04, .1122E-02, .1367E-03, - + .0000E+00, .0000E+00, .2565E-03, .8549E-04, - + .4274E-03, .8549E-04, .1026E-02, .1089E-03, - + .0000E+00, .0000E+00, .2343E-03, .7809E-04, - + .3904E-03, .7809E-04, .9375E-03, .8668E-04, - + .0000E+00, .0000E+00, .2137E-03, .7122E-04, - + .3561E-03, .7122E-04, .8552E-03, .6888E-04, - + .0000E+00, .0000E+00, .1946E-03, .6488E-04, - + .3244E-03, .6488E-04, .7790E-03, .5470E-04, - + .0000E+00, .0000E+00, .1770E-03, .5901E-04, - + .2950E-03, .5901E-04, .7086E-03, .4343E-04, - + .0000E+00, .0000E+00, .1608E-03, .5360E-04, - + .2680E-03, .5360E-04, .6436E-03, .3449E-04/ - DATA ((CELC(I,K,24),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .1458E-03, .4861E-04, - + .2431E-03, .4861E-04, .5838E-03, .2741E-04, - + .0000E+00, .0000E+00, .1321E-03, .4403E-04, - + .2202E-03, .4403E-04, .5288E-03, .2183E-04, - + .0000E+00, .0000E+00, .1195E-03, .3983E-04, - + .1991E-03, .3983E-04, .4783E-03, .1741E-04, - + .0000E+00, .0000E+00, .1079E-03, .3597E-04, - + .1799E-03, .3597E-04, .4320E-03, .1393E-04, - + .0000E+00, .0000E+00, .9734E-04, .3245E-04, - + .1622E-03, .3245E-04, .3897E-03, .1118E-04, - + .0000E+00, .0000E+00, .8768E-04, .2923E-04, - + .1461E-03, .2923E-04, .3510E-03, .9003E-05, - + .0000E+00, .0000E+00, .7888E-04, .2629E-04, - + .1315E-03, .2629E-04, .3158E-03, .7282E-05, - + .0000E+00, .0000E+00, .7086E-04, .2362E-04, - + .1181E-03, .2362E-04, .2837E-03, .5915E-05, - + .0000E+00, .0000E+00, .6357E-04, .2119E-04, - + .1059E-03, .2119E-04, .2545E-03, .4828E-05/ - DATA ((CELC(I,K,24),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .5695E-04, .1898E-04, - + .9492E-04, .1898E-04, .2280E-03, .3959E-05, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,25),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .2800E-03, .9332E-04, - + .4666E-03, .9332E-04, .1120E-02, .1382E-03, - + .0000E+00, .0000E+00, .2541E-03, .8470E-04, - + .4235E-03, .8470E-04, .1016E-02, .1080E-03, - + .0000E+00, .0000E+00, .2303E-03, .7677E-04, - + .3838E-03, .7677E-04, .9213E-03, .8428E-04, - + .0000E+00, .0000E+00, .2084E-03, .6948E-04, - + .3474E-03, .6948E-04, .8338E-03, .6567E-04, - + .0000E+00, .0000E+00, .1884E-03, .6279E-04, - + .3139E-03, .6279E-04, .7536E-03, .5109E-04, - + .0000E+00, .0000E+00, .1700E-03, .5666E-04, - + .2833E-03, .5666E-04, .6800E-03, .3972E-04, - + .0000E+00, .0000E+00, .1532E-03, .5105E-04, - + .2553E-03, .5105E-04, .6127E-03, .3087E-04, - + .0000E+00, .0000E+00, .1378E-03, .4593E-04, - + .2297E-03, .4593E-04, .5513E-03, .2401E-04, - + .0000E+00, .0000E+00, .1238E-03, .4127E-04, - + .2063E-03, .4127E-04, .4953E-03, .1869E-04/ - DATA ((CELC(I,K,25),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .1111E-03, .3702E-04, - + .1851E-03, .3702E-04, .4444E-03, .1458E-04, - + .0000E+00, .0000E+00, .9948E-04, .3316E-04, - + .1658E-03, .3316E-04, .3981E-03, .1140E-04, - + .0000E+00, .0000E+00, .8899E-04, .2966E-04, - + .1483E-03, .2966E-04, .3561E-03, .8939E-05, - + .0000E+00, .0000E+00, .7948E-04, .2649E-04, - + .1325E-03, .2649E-04, .3180E-03, .7038E-05, - + .0000E+00, .0000E+00, .7089E-04, .2363E-04, - + .1182E-03, .2363E-04, .2837E-03, .5566E-05, - + .0000E+00, .0000E+00, .6314E-04, .2105E-04, - + .1052E-03, .2105E-04, .2527E-03, .4423E-05, - + .0000E+00, .0000E+00, .5616E-04, .1872E-04, - + .9360E-04, .1872E-04, .2247E-03, .3533E-05, - + .0000E+00, .0000E+00, .4988E-04, .1663E-04, - + .8313E-04, .1663E-04, .1996E-03, .2837E-05, - + .0000E+00, .0000E+00, .4424E-04, .1475E-04, - + .7373E-04, .1475E-04, .1770E-03, .2291E-05/ - DATA ((CELC(I,K,25),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .3918E-04, .1306E-04, - + .6530E-04, .1306E-04, .1568E-03, .1861E-05, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,26),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .2274E-03, .7579E-04, - + .3789E-03, .7579E-04, .9094E-03, .8359E-04, - + .0000E+00, .0000E+00, .2039E-03, .6796E-04, - + .3398E-03, .6796E-04, .8155E-03, .6354E-04, - + .0000E+00, .0000E+00, .1826E-03, .6085E-04, - + .3043E-03, .6085E-04, .7302E-03, .4831E-04, - + .0000E+00, .0000E+00, .1632E-03, .5441E-04, - + .2720E-03, .5441E-04, .6529E-03, .3670E-04, - + .0000E+00, .0000E+00, .1457E-03, .4857E-04, - + .2428E-03, .4857E-04, .5828E-03, .2784E-04, - + .0000E+00, .0000E+00, .1299E-03, .4329E-04, - + .2165E-03, .4329E-04, .5195E-03, .2112E-04, - + .0000E+00, .0000E+00, .1156E-03, .3853E-04, - + .1926E-03, .3853E-04, .4624E-03, .1603E-04, - + .0000E+00, .0000E+00, .1027E-03, .3424E-04, - + .1712E-03, .3424E-04, .4109E-03, .1218E-04, - + .0000E+00, .0000E+00, .9113E-04, .3038E-04, - + .1519E-03, .3038E-04, .3645E-03, .9282E-05/ - DATA ((CELC(I,K,26),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .8073E-04, .2691E-04, - + .1346E-03, .2691E-04, .3230E-03, .7092E-05, - + .0000E+00, .0000E+00, .7141E-04, .2380E-04, - + .1190E-03, .2380E-04, .2857E-03, .5439E-05, - + .0000E+00, .0000E+00, .6307E-04, .2102E-04, - + .1051E-03, .2102E-04, .2523E-03, .4190E-05, - + .0000E+00, .0000E+00, .5562E-04, .1854E-04, - + .9271E-04, .1854E-04, .2225E-03, .3245E-05, - + .0000E+00, .0000E+00, .4898E-04, .1633E-04, - + .8163E-04, .1633E-04, .1959E-03, .2527E-05, - + .0000E+00, .0000E+00, .4307E-04, .1436E-04, - + .7178E-04, .1436E-04, .1723E-03, .1981E-05, - + .0000E+00, .0000E+00, .3781E-04, .1260E-04, - + .6302E-04, .1260E-04, .1513E-03, .1562E-05, - + .0000E+00, .0000E+00, .3315E-04, .1105E-04, - + .5525E-04, .1105E-04, .1326E-03, .1240E-05, - + .0000E+00, .0000E+00, .2902E-04, .9673E-05, - + .4837E-04, .9673E-05, .1161E-03, .9909E-06/ - DATA ((CELC(I,K,26),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .2537E-04, .8456E-05, - + .4228E-04, .8456E-05, .1015E-03, .7967E-06, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,27),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .1771E-03, .5904E-04, - + .2952E-03, .5904E-04, .7085E-03, .4632E-04, - + .0000E+00, .0000E+00, .1566E-03, .5220E-04, - + .2610E-03, .5220E-04, .6264E-03, .3411E-04, - + .0000E+00, .0000E+00, .1383E-03, .4609E-04, - + .2304E-03, .4609E-04, .5530E-03, .2517E-04, - + .0000E+00, .0000E+00, .1219E-03, .4062E-04, - + .2031E-03, .4062E-04, .4875E-03, .1857E-04, - + .0000E+00, .0000E+00, .1073E-03, .3575E-04, - + .1788E-03, .3575E-04, .4290E-03, .1369E-04, - + .0000E+00, .0000E+00, .9423E-04, .3141E-04, - + .1571E-03, .3141E-04, .3769E-03, .1010E-04, - + .0000E+00, .0000E+00, .8266E-04, .2755E-04, - + .1378E-03, .2755E-04, .3306E-03, .7468E-05, - + .0000E+00, .0000E+00, .7240E-04, .2413E-04, - + .1207E-03, .2413E-04, .2896E-03, .5534E-05, - + .0000E+00, .0000E+00, .6331E-04, .2110E-04, - + .1055E-03, .2110E-04, .2532E-03, .4116E-05/ - DATA ((CELC(I,K,27),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .5527E-04, .1842E-04, - + .9212E-04, .1842E-04, .2211E-03, .3075E-05, - + .0000E+00, .0000E+00, .4818E-04, .1606E-04, - + .8030E-04, .1606E-04, .1927E-03, .2310E-05, - + .0000E+00, .0000E+00, .4193E-04, .1398E-04, - + .6988E-04, .1398E-04, .1677E-03, .1746E-05, - + .0000E+00, .0000E+00, .3643E-04, .1214E-04, - + .6072E-04, .1214E-04, .1457E-03, .1329E-05, - + .0000E+00, .0000E+00, .3161E-04, .1054E-04, - + .5268E-04, .1054E-04, .1264E-03, .1019E-05, - + .0000E+00, .0000E+00, .2738E-04, .9126E-05, - + .4563E-04, .9126E-05, .1095E-03, .7875E-06, - + .0000E+00, .0000E+00, .2368E-04, .7893E-05, - + .3947E-04, .7893E-05, .9472E-04, .6131E-06, - + .0000E+00, .0000E+00, .2045E-04, .6816E-05, - + .3408E-04, .6816E-05, .8180E-04, .4810E-06, - + .0000E+00, .0000E+00, .1763E-04, .5878E-05, - + .2939E-04, .5878E-05, .7053E-04, .3800E-06/ - DATA ((CELC(I,K,27),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .1518E-04, .5061E-05, - + .2530E-04, .5061E-05, .6073E-04, .3022E-06, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,28),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .1305E-03, .4350E-04, - + .2175E-03, .4350E-04, .5220E-03, .2278E-04, - + .0000E+00, .0000E+00, .1134E-03, .3781E-04, - + .1891E-03, .3781E-04, .4538E-03, .1615E-04, - + .0000E+00, .0000E+00, .9847E-04, .3282E-04, - + .1641E-03, .3282E-04, .3939E-03, .1150E-04, - + .0000E+00, .0000E+00, .8533E-04, .2844E-04, - + .1422E-03, .2844E-04, .3413E-03, .8211E-05, - + .0000E+00, .0000E+00, .7382E-04, .2461E-04, - + .1230E-03, .2461E-04, .2953E-03, .5854E-05, - + .0000E+00, .0000E+00, .6375E-04, .2125E-04, - + .1063E-03, .2125E-04, .2550E-03, .4183E-05, - + .0000E+00, .0000E+00, .5497E-04, .1832E-04, - + .9162E-04, .1832E-04, .2199E-03, .3001E-05, - + .0000E+00, .0000E+00, .4732E-04, .1577E-04, - + .7886E-04, .1577E-04, .1893E-03, .2162E-05, - + .0000E+00, .0000E+00, .4066E-04, .1355E-04, - + .6777E-04, .1355E-04, .1626E-03, .1566E-05/ - DATA ((CELC(I,K,28),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .3488E-04, .1163E-04, - + .5814E-04, .1163E-04, .1395E-03, .1142E-05, - + .0000E+00, .0000E+00, .2988E-04, .9959E-05, - + .4980E-04, .9959E-05, .1195E-03, .8389E-06, - + .0000E+00, .0000E+00, .2555E-04, .8516E-05, - + .4258E-04, .8516E-05, .1022E-03, .6216E-06, - + .0000E+00, .0000E+00, .2181E-04, .7270E-05, - + .3635E-04, .7270E-05, .8723E-04, .4647E-06, - + .0000E+00, .0000E+00, .1859E-04, .6196E-05, - + .3098E-04, .6196E-05, .7435E-04, .3506E-06, - + .0000E+00, .0000E+00, .1582E-04, .5272E-05, - + .2636E-04, .5272E-05, .6326E-04, .2669E-06, - + .0000E+00, .0000E+00, .1344E-04, .4479E-05, - + .2239E-04, .4479E-05, .5374E-04, .2050E-06, - + .0000E+00, .0000E+00, .1140E-04, .3799E-05, - + .1899E-04, .3799E-05, .4558E-04, .1587E-06, - + .0000E+00, .0000E+00, .9651E-05, .3217E-05, - + .1609E-04, .3217E-05, .3860E-04, .1238E-06/ - DATA ((CELC(I,K,28),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .8160E-05, .2720E-05, - + .1360E-04, .2720E-05, .3264E-04, .9727E-07, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,29),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .8872E-04, .2957E-04, - + .1479E-03, .2957E-04, .3549E-03, .9408E-05, - + .0000E+00, .0000E+00, .7550E-04, .2517E-04, - + .1258E-03, .2517E-04, .3020E-03, .6361E-05, - + .0000E+00, .0000E+00, .6417E-04, .2139E-04, - + .1069E-03, .2139E-04, .2567E-03, .4341E-05, - + .0000E+00, .0000E+00, .5444E-04, .1815E-04, - + .9073E-04, .1815E-04, .2178E-03, .2981E-05, - + .0000E+00, .0000E+00, .4611E-04, .1537E-04, - + .7684E-04, .1537E-04, .1844E-03, .2042E-05, - + .0000E+00, .0000E+00, .3898E-04, .1299E-04, - + .6496E-04, .1299E-04, .1559E-03, .1405E-05, - + .0000E+00, .0000E+00, .3290E-04, .1097E-04, - + .5483E-04, .1097E-04, .1316E-03, .9737E-06, - + .0000E+00, .0000E+00, .2771E-04, .9238E-05, - + .4619E-04, .9238E-05, .1108E-03, .6792E-06, - + .0000E+00, .0000E+00, .2331E-04, .7768E-05, - + .3884E-04, .7768E-05, .9322E-04, .4776E-06/ - DATA ((CELC(I,K,29),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .1956E-04, .6522E-05, - + .3261E-04, .6522E-05, .7826E-04, .3392E-06, - + .0000E+00, .0000E+00, .1640E-04, .5465E-05, - + .2733E-04, .5465E-05, .6558E-04, .2433E-06, - + .0000E+00, .0000E+00, .1372E-04, .4572E-05, - + .2286E-04, .4572E-05, .5486E-04, .1765E-06, - + .0000E+00, .0000E+00, .1145E-04, .3818E-05, - + .1909E-04, .3818E-05, .4582E-04, .1295E-06, - + .0000E+00, .0000E+00, .9550E-05, .3183E-05, - + .1592E-04, .3183E-05, .3820E-04, .9600E-07, - + .0000E+00, .0000E+00, .7948E-05, .2649E-05, - + .1325E-04, .2649E-05, .3179E-04, .7192E-07, - + .0000E+00, .0000E+00, .6604E-05, .2201E-05, - + .1101E-04, .2201E-05, .2642E-04, .5440E-07, - + .0000E+00, .0000E+00, .5478E-05, .1826E-05, - + .9130E-05, .1826E-05, .2191E-04, .4149E-07, - + .0000E+00, .0000E+00, .4537E-05, .1512E-05, - + .7561E-05, .1512E-05, .1815E-04, .3188E-07/ - DATA ((CELC(I,K,29),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .3751E-05, .1250E-05, - + .6251E-05, .1250E-05, .1500E-04, .2465E-07, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,30),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .5304E-04, .1768E-04, - + .8841E-04, .1768E-04, .2122E-03, .2931E-05, - + .0000E+00, .0000E+00, .4390E-04, .1463E-04, - + .7317E-04, .1463E-04, .1756E-03, .1861E-05, - + .0000E+00, .0000E+00, .3629E-04, .1210E-04, - + .6048E-04, .1210E-04, .1452E-03, .1202E-05, - + .0000E+00, .0000E+00, .2994E-04, .9981E-05, - + .4990E-04, .9981E-05, .1198E-03, .7899E-06, - + .0000E+00, .0000E+00, .2466E-04, .8219E-05, - + .4110E-04, .8219E-05, .9863E-04, .5147E-06, - + .0000E+00, .0000E+00, .2027E-04, .6756E-05, - + .3378E-04, .6756E-05, .8107E-04, .3371E-06, - + .0000E+00, .0000E+00, .1663E-04, .5543E-05, - + .2771E-04, .5543E-05, .6651E-04, .2249E-06, - + .0000E+00, .0000E+00, .1362E-04, .4539E-05, - + .2269E-04, .4539E-05, .5447E-04, .1513E-06, - + .0000E+00, .0000E+00, .1113E-04, .3710E-05, - + .1855E-04, .3710E-05, .4452E-04, .1027E-06/ - DATA ((CELC(I,K,30),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .9081E-05, .3027E-05, - + .1513E-04, .3027E-05, .3632E-04, .7089E-07, - + .0000E+00, .0000E+00, .7395E-05, .2465E-05, - + .1233E-04, .2465E-05, .2958E-04, .4961E-07, - + .0000E+00, .0000E+00, .6011E-05, .2004E-05, - + .1002E-04, .2004E-05, .2405E-04, .3514E-07, - + .0000E+00, .0000E+00, .4878E-05, .1626E-05, - + .8130E-05, .1626E-05, .1951E-04, .2525E-07, - + .0000E+00, .0000E+00, .3951E-05, .1317E-05, - + .6585E-05, .1317E-05, .1580E-04, .1837E-07, - + .0000E+00, .0000E+00, .3194E-05, .1065E-05, - + .5324E-05, .1065E-05, .1278E-04, .1349E-07, - + .0000E+00, .0000E+00, .2578E-05, .8594E-06, - + .4297E-05, .8594E-06, .1031E-04, .1001E-07, - + .0000E+00, .0000E+00, .2077E-05, .6924E-06, - + .3462E-05, .6924E-06, .8309E-05, .7482E-08, - + .0000E+00, .0000E+00, .1671E-05, .5569E-06, - + .2785E-05, .5569E-06, .6683E-05, .5625E-08/ - DATA ((CELC(I,K,30),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .1342E-05, .4472E-06, - + .2236E-05, .4472E-06, .5366E-05, .4252E-08, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,31),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .2490E-04, .8300E-05, - + .4150E-04, .8300E-05, .9960E-04, .5345E-06, - + .0000E+00, .0000E+00, .1976E-04, .6588E-05, - + .3294E-04, .6588E-05, .7906E-04, .3091E-06, - + .0000E+00, .0000E+00, .1568E-04, .5228E-05, - + .2614E-04, .5228E-05, .6273E-04, .1851E-06, - + .0000E+00, .0000E+00, .1243E-04, .4142E-05, - + .2071E-04, .4142E-05, .4970E-04, .1160E-06, - + .0000E+00, .0000E+00, .9825E-05, .3275E-05, - + .1638E-04, .3275E-05, .3930E-04, .7050E-07, - + .0000E+00, .0000E+00, .7755E-05, .2585E-05, - + .1293E-04, .2585E-05, .3102E-04, .4259E-07, - + .0000E+00, .0000E+00, .6110E-05, .2037E-05, - + .1018E-04, .2037E-05, .2444E-04, .2736E-07, - + .0000E+00, .0000E+00, .4805E-05, .1602E-05, - + .8009E-05, .1602E-05, .1922E-04, .1788E-07, - + .0000E+00, .0000E+00, .3772E-05, .1257E-05, - + .6287E-05, .1257E-05, .1509E-04, .1149E-07/ - DATA ((CELC(I,K,31),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .2955E-05, .9851E-06, - + .4925E-05, .9851E-06, .1182E-04, .7633E-08, - + .0000E+00, .0000E+00, .2311E-05, .7703E-06, - + .3852E-05, .7703E-06, .9244E-05, .5271E-08, - + .0000E+00, .0000E+00, .1804E-05, .6012E-06, - + .3006E-05, .6012E-06, .7215E-05, .3627E-08, - + .0000E+00, .0000E+00, .1405E-05, .4683E-06, - + .2342E-05, .4683E-06, .5620E-05, .2519E-08, - + .0000E+00, .0000E+00, .1092E-05, .3641E-06, - + .1821E-05, .3641E-06, .4369E-05, .1796E-08, - + .0000E+00, .0000E+00, .8476E-06, .2825E-06, - + .1413E-05, .2825E-06, .3390E-05, .1284E-08, - + .0000E+00, .0000E+00, .6564E-06, .2188E-06, - + .1094E-05, .2188E-06, .2625E-05, .9189E-09, - + .0000E+00, .0000E+00, .5073E-06, .1691E-06, - + .8455E-06, .1691E-06, .2029E-05, .6668E-09, - + .0000E+00, .0000E+00, .3913E-06, .1304E-06, - + .6522E-06, .1304E-06, .1565E-05, .4847E-09/ - DATA ((CELC(I,K,31),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .3013E-06, .1004E-06, - + .5021E-06, .1004E-06, .1205E-05, .3507E-09, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ - DATA ((CELC(I,K,32),I=1,8), K=1,9) / - + .0000E+00, .0000E+00, .6091E-05, .2030E-05, - + .1015E-04, .2030E-05, .2436E-04, .2282E-07, - + .0000E+00, .0000E+00, .4497E-05, .1499E-05, - + .7496E-05, .1499E-05, .1799E-04, .1070E-07, - + .0000E+00, .0000E+00, .3322E-05, .1107E-05, - + .5537E-05, .1107E-05, .1329E-04, .5779E-08, - + .0000E+00, .0000E+00, .2448E-05, .8160E-06, - + .4080E-05, .8160E-06, .9792E-05, .4083E-08, - + .0000E+00, .0000E+00, .1795E-05, .5984E-06, - + .2992E-05, .5984E-06, .7181E-05, .2368E-08, - + .0000E+00, .0000E+00, .1312E-05, .4372E-06, - + .2186E-05, .4372E-06, .5247E-05, .1090E-08, - + .0000E+00, .0000E+00, .9547E-06, .3182E-06, - + .1591E-05, .3182E-06, .3819E-05, .8345E-09, - + .0000E+00, .0000E+00, .6917E-06, .2306E-06, - + .1153E-05, .2306E-06, .2767E-05, .7180E-09, - + .0000E+00, .0000E+00, .4989E-06, .1663E-06, - + .8314E-06, .1663E-06, .1995E-05, .3660E-09/ - DATA ((CELC(I,K,32),I=1,8), K=10,18) / - + .0000E+00, .0000E+00, .3580E-06, .1193E-06, - + .5966E-06, .1193E-06, .1432E-05, .1734E-09, - + .0000E+00, .0000E+00, .2555E-06, .8516E-07, - + .4258E-06, .8516E-07, .1022E-05, .1700E-09, - + .0000E+00, .0000E+00, .1813E-06, .6042E-07, - + .3021E-06, .6042E-07, .7251E-06, .1219E-09, - + .0000E+00, .0000E+00, .1278E-06, .4261E-07, - + .2130E-06, .4261E-07, .5113E-06, .4408E-10, - + .0000E+00, .0000E+00, .8952E-07, .2984E-07, - + .1492E-06, .2984E-07, .3581E-06, .2505E-10, - + .0000E+00, .0000E+00, .6223E-07, .2074E-07, - + .1037E-06, .2074E-07, .2489E-06, .2685E-10, - + .0000E+00, .0000E+00, .4291E-07, .1430E-07, - + .7152E-07, .1430E-07, .1717E-06, .1174E-10, - + .0000E+00, .0000E+00, .2933E-07, .9777E-08, - + .4889E-07, .9777E-08, .1173E-06, .6037E-12, - + .0000E+00, .0000E+00, .1985E-07, .6618E-08, - + .3309E-07, .6618E-08, .7941E-07, .1474E-11/ - DATA ((CELC(I,K,32),I=1,8), K=19,20) / - + .0000E+00, .0000E+00, .1329E-07, .4430E-08, - + .2215E-07, .4430E-08, .5316E-07, .1234E-11, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00, - + .0000E+00, .0000E+00, .0000E+00, .0000E+00/ -C---------------------------------------------------------------------- - DATA ISTART/0/ - SAVE ISTART,OWLAM2,Q02,FLAV,KA, /W5051IA/, /W5051IB/ -C - IF (ISTART.EQ.0) THEN - ISTART=1 - DO 10 K=1,32 - DO 10 I=1,20 - DO 10 M=1,8 - CALCO(M,I,K) = CALC(M,I,K) - 10 CELCO(M,I,K) = CELC(M,I,K) - OWLAM=PAR(1) - OWLAM2=OWLAM**2 - Q02=PAR(30) - FLAV=PAR(25) - DELTA=PAR(29) - CALL WATE32 - KA=1.0 - ENDIF -C - X = DX - Q = DQ - Q2 = Q*Q - IDQ2=2 - SB=0. - IF(Q2-Q02) 1,1,2 - 2 IF(IDQ2-1) 1,1,3 - 3 SB= LOG( LOG( MAX(Q02,Q2)/OWLAM2)/ LOG(Q02/OWLAM2)) - 1 CONTINUE - CALL AFGINT(8,0,X,SB,XPDF(7)) - CALL AFGINT(7,0,X,SB,SING) - CALL AFGINT(4,0,X,SB,DPLUSNS) - CALL AFGINT(3,0,X,SB,CPLUSNS) - CALL AFGINT(5,0,X,SB,UPLUSNS) - CALL AFGINT(6,0,X,SB,SPLUSNS) - XPDF(3) = CPLUSNS - XPDF(4) = DPLUSNS - XPDF(5) = UPLUSNS - XPDF(6) = SPLUSNS - XPDF(1) = SING -C - ADD = XPDF(1)/FLAV - UPLUS= XPDF(5)+ADD - DPLUS=-XPDF(4)+ADD - SPLUS=-XPDF(6)+ADD - CPLUS=-XPDF(3)+ADD - SING=XPDF(1) - GLU=XPDF(7) - GL=GLU -* - CALL AFGIN2(8,0,X,SB,XPDF(7)) - CALL AFGIN2(7,0,X,SB,SING) - CALL AFGIN2(4,0,X,SB,DPLUSNS) - CALL AFGIN2(3,0,X,SB,CPLUSNS) - CALL AFGIN2(5,0,X,SB,UPLUSNS) - CALL AFGIN2(6,0,X,SB,SPLUSNS) - XPDF(3) = CPLUSNS - XPDF(4) = DPLUSNS - XPDF(5) = UPLUSNS - XPDF(6) = SPLUSNS - XPDF(1) = SING -C - ADD2 = XPDF(1)/FLAV - UPLU2= XPDF(5)+ADD2 - DPLU2=-XPDF(4)+ADD2 - SPLU2=-XPDF(6)+ADD2 - CPLU2=-XPDF(3)+ADD2 - SING2=XPDF(1) - GLU2=XPDF(7) - UB=UPLUS+UPLU2*KA - UV=UB - DB=DPLUS+DPLU2*KA - DV=DB - SB=SPLUS+SPLU2*KA - CB=CPLUS+CPLU2*KA - SING=SING+SING2*KA - GL=GLU+GLU2*KA -* - DUV=MAX(ZERO,UV) - DDV=MAX(ZERO,DV) - DUB=MAX(ZERO,UB) - DDB=MAX(ZERO,DB) - DSB=MAX(ZERO,SB) - DCB=MAX(ZERO,CB) - DGL=MAX(ZERO,GL) -C - RETURN - END diff --git a/PDF/spdf/sfbma.F b/PDF/spdf/sfbma.F deleted file mode 100644 index a4b01e543f3..00000000000 --- a/PDF/spdf/sfbma.F +++ /dev/null @@ -1,2716 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:23 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:30 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFBMA (X,SCALE,UPV,DNV,UBAR,DBAR,STR,CHM,BOT,GLU) - -#include "pdf/impdp.inc" - parameter(nx=65) - parameter(ntenth=39) - DIMENSION F(8,nx,19),G(8),XX(nx),N0(8) - DATA ((F(I,1 ,M), I=1,8), M=1,7) / - + 0.00066, 0.00037, 4.01409, 0.12821, 0.12788, - + 0.12788, 0.12787, 0.00000, - + 0.00110, 0.00062, 11.36906, 0.34642, 0.34586, - + 0.34585, 0.34584, 0.00000, - + 0.00146, 0.00083, 22.62466, 0.66769, 0.66693, - + 0.66691, 0.66689, 0.00000, - + 0.00177, 0.00100, 36.86576, 1.08418, 1.08323, - + 1.08321, 1.08319, 0.35743, - + 0.00203, 0.00116, 54.77760, 1.60358, 1.60247, - + 1.60244, 1.60241, 0.88271, - + 0.00226, 0.00130, 76.32043, 2.22199, 2.22072, - + 2.22069, 2.22065, 1.50644, - + 0.00247, 0.00143, 101.39430, 2.93794, 2.93653, - + 2.93649, 2.93645, 2.22728/ - DATA ((F(I,1 ,M), I=1,8), M=8,14) / - + 0.00267, 0.00155, 129.90375, 3.75056, 3.74902, - + 3.74897, 3.74892, 3.04440, - + 0.00284, 0.00166, 161.64223, 4.65576, 4.65409, - + 4.65403, 4.65398, 3.95377, - + 0.00300, 0.00177, 196.29192, 5.64533, 5.64354, - + 5.64347, 5.64341, 4.94722, - + 0.00315, 0.00186, 233.94012, 6.72473, 6.72282, - + 6.72274, 6.72268, 6.03026, - + 0.00330, 0.00195, 274.19122, 7.88312, 7.88110, - + 7.88101, 7.88095, 7.19206, - + 0.00343, 0.00204, 316.96681, 9.11994, 9.11781, - + 9.11772, 9.11765, 8.43210, - + 0.00355, 0.00212, 362.14201, 10.43359, 10.43136, - + 10.43126, 10.43118, 9.74880/ - DATA ((F(I,1 ,M), I=1,8), M=15,19) / - + 0.00367, 0.00220, 409.44363, 11.81600, 11.81367, - + 11.81357, 11.81348, 11.13410, - + 0.00379, 0.00228, 458.84701, 13.26906, 13.26664, - + 13.26652, 13.26643, 12.58991, - + 0.00390, 0.00235, 510.29143, 14.79274, 14.79022, - + 14.79010, 14.79000, 14.11620, - + 0.00400, 0.00242, 563.43453, 16.37565, 16.37305, - + 16.37291, 16.37281, 15.70161, - + 0.00410, 0.00249, 617.98869, 18.00821, 18.00552, - + 18.00538, 18.00527, 17.33656/ - DATA ((F(I,2 ,M), I=1,8), M=1,7) / - + 0.00388, 0.00210, 3.82968, 0.12370, 0.12198, - + 0.12197, 0.12195, 0.00000, - + 0.00408, 0.00225, 10.51729, 0.32287, 0.32093, - + 0.32091, 0.32088, 0.00000, - + 0.00426, 0.00239, 20.45853, 0.60874, 0.60659, - + 0.60656, 0.60653, 0.00000, - + 0.00442, 0.00251, 32.79191, 0.97316, 0.97082, - + 0.97077, 0.97073, 0.31248, - + 0.00458, 0.00263, 48.02086, 1.42053, 1.41801, - + 1.41795, 1.41790, 0.76524, - + 0.00472, 0.00274, 66.06611, 1.94636, 1.94366, - + 1.94359, 1.94353, 1.29596, - + 0.00486, 0.00285, 86.79486, 2.54826, 2.54540, - + 2.54531, 2.54524, 1.90233/ - DATA ((F(I,2 ,M), I=1,8), M=8,14) / - + 0.00500, 0.00295, 110.08253, 3.22437, 3.22136, - + 3.22126, 3.22118, 2.58257, - + 0.00513, 0.00305, 135.73363, 3.97059, 3.96743, - + 3.96731, 3.96722, 3.33260, - + 0.00525, 0.00315, 163.48961, 4.78013, 4.77682, - + 4.77669, 4.77659, 4.14569, - + 0.00537, 0.00324, 193.36498, 5.65595, 5.65249, - + 5.65235, 5.65224, 5.02482, - + 0.00548, 0.00333, 225.05945, 6.58955, 6.58596, - + 6.58580, 6.58568, 5.96154, - + 0.00559, 0.00341, 258.48967, 7.57988, 7.57616, - + 7.57599, 7.57586, 6.95481, - + 0.00570, 0.00350, 293.53995, 8.62505, 8.62120, - + 8.62102, 8.62088, 8.00276/ - DATA ((F(I,2 ,M), I=1,8), M=15,19) / - + 0.00581, 0.00358, 330.01166, 9.71900, 9.71503, - + 9.71483, 9.71468, 9.09934, - + 0.00591, 0.00365, 367.85903, 10.86234, 10.85824, - + 10.85803, 10.85787, 10.24517, - + 0.00601, 0.00373, 407.01982, 12.05451, 12.05030, - + 12.05007, 12.04991, 11.43972, - + 0.00611, 0.00380, 447.26294, 13.28740, 13.28307, - + 13.28283, 13.28266, 12.67488, - + 0.00620, 0.00388, 488.39462, 14.55418, 14.54974, - + 14.54948, 14.54930, 13.94383/ - DATA ((F(I,3 ,M), I=1,8), M=1,7) / - + 0.00496, 0.00290, 3.64569, 0.11884, 0.11603, - + 0.11600, 0.11597, 0.00000, - + 0.00522, 0.00311, 9.69961, 0.29999, 0.29685, - + 0.29679, 0.29675, 0.00000, - + 0.00546, 0.00329, 18.42884, 0.55316, 0.54972, - + 0.54964, 0.54959, 0.00000, - + 0.00568, 0.00347, 29.03523, 0.87025, 0.86653, - + 0.86643, 0.86636, 0.27162, - + 0.00589, 0.00363, 41.88010, 1.25319, 1.24920, - + 1.24908, 1.24899, 0.65943, - + 0.00609, 0.00378, 56.86322, 1.69729, 1.69305, - + 1.69291, 1.69280, 1.10795, - + 0.00627, 0.00393, 73.83765, 2.19966, 2.19518, - + 2.19502, 2.19489, 1.61436/ - DATA ((F(I,3 ,M), I=1,8), M=8,14) / - + 0.00645, 0.00407, 92.66816, 2.75791, 2.75320, - + 2.75302, 2.75288, 2.17632, - + 0.00663, 0.00421, 113.17881, 3.36816, 3.36323, - + 3.36302, 3.36287, 2.79000, - + 0.00679, 0.00433, 135.16382, 4.02488, 4.01974, - + 4.01951, 4.01933, 3.44991, - + 0.00695, 0.00446, 158.59471, 4.72934, 4.72400, - + 4.72374, 4.72355, 4.15735, - + 0.00711, 0.00458, 183.24921, 5.47501, 5.46948, - + 5.46920, 5.46899, 4.90583, - + 0.00726, 0.00469, 209.04800, 6.26062, 6.25490, - + 6.25460, 6.25438, 5.69407, - + 0.00740, 0.00480, 235.89106, 7.08427, 7.07837, - + 7.07804, 7.07780, 6.52021/ - DATA ((F(I,3 ,M), I=1,8), M=15,19) / - + 0.00754, 0.00491, 263.63780, 7.94146, 7.93539, - + 7.93504, 7.93479, 7.37976, - + 0.00768, 0.00502, 292.23612, 8.83208, 8.82584, - + 8.82546, 8.82520, 8.27262, - + 0.00782, 0.00512, 321.62936, 9.75533, 9.74893, - + 9.74853, 9.74824, 9.19800, - + 0.00795, 0.00522, 351.66747, 10.70556, 10.69899, - + 10.69857, 10.69827, 10.15025, - + 0.00808, 0.00532, 382.22506, 11.67802, 11.67130, - + 11.67085, 11.67054, 11.12465/ - DATA ((F(I,4 ,M), I=1,8), M=1,7) / - + 0.00573, 0.00350, 3.53781, 0.11623, 0.11250, - + 0.11245, 0.11242, 0.00000, - + 0.00604, 0.00375, 9.23558, 0.28723, 0.28309, - + 0.28301, 0.28295, 0.00000, - + 0.00633, 0.00398, 17.30020, 0.52241, 0.51789, - + 0.51778, 0.51770, 0.00000, - + 0.00659, 0.00418, 26.97428, 0.81382, 0.80895, - + 0.80881, 0.80870, 0.24945, - + 0.00684, 0.00438, 38.55214, 1.16226, 1.15706, - + 1.15689, 1.15676, 0.60246, - + 0.00708, 0.00456, 51.92824, 1.56308, 1.55758, - + 1.55737, 1.55722, 1.00742, - + 0.00730, 0.00474, 66.95421, 2.01326, 2.00746, - + 2.00722, 2.00705, 1.46137/ - DATA ((F(I,4 ,M), I=1,8), M=8,14) / - + 0.00752, 0.00491, 83.49514, 2.51023, 2.50416, - + 2.50389, 2.50369, 1.96181, - + 0.00772, 0.00507, 101.38912, 3.05034, 3.04400, - + 3.04370, 3.04348, 2.50513, - + 0.00792, 0.00522, 120.45819, 3.62873, 3.62213, - + 3.62180, 3.62156, 3.08649, - + 0.00811, 0.00537, 140.65923, 4.24597, 4.23913, - + 4.23877, 4.23850, 3.70652, - + 0.00830, 0.00551, 161.80843, 4.89653, 4.88946, - + 4.88906, 4.88878, 4.35969, - + 0.00848, 0.00565, 183.83164, 5.57909, 5.57179, - + 5.57136, 5.57105, 5.04470, - + 0.00865, 0.00578, 206.63950, 6.29182, 6.28430, - + 6.28384, 6.28351, 5.75975/ - DATA ((F(I,4 ,M), I=1,8), M=15,19) / - + 0.00882, 0.00591, 230.11897, 7.03101, 7.02329, - + 7.02279, 7.02244, 6.50113, - + 0.00898, 0.00604, 254.21879, 7.79628, 7.78834, - + 7.78782, 7.78745, 7.26848, - + 0.00914, 0.00616, 278.88746, 8.58677, 8.57864, - + 8.57808, 8.57769, 8.06095, - + 0.00930, 0.00628, 304.01114, 9.39798, 9.38966, - + 9.38907, 9.38866, 8.87405, - + 0.00945, 0.00639, 329.49489, 10.22614, 10.21763, - + 10.21701, 10.21658, 9.70401/ - DATA ((F(I,5 ,M), I=1,8), M=1,7) / - + 0.00636, 0.00400, 3.46079, 0.11450, 0.10996, - + 0.10990, 0.10985, 0.00000, - + 0.00672, 0.00429, 8.91142, 0.27845, 0.27342, - + 0.27332, 0.27324, 0.00000, - + 0.00704, 0.00454, 16.52222, 0.50131, 0.49584, - + 0.49569, 0.49559, 0.00000, - + 0.00734, 0.00478, 25.56624, 0.77528, 0.76941, - + 0.76923, 0.76909, 0.23441, - + 0.00762, 0.00500, 36.29645, 1.10053, 1.09428, - + 1.09405, 1.09389, 0.56399, - + 0.00789, 0.00521, 48.60613, 1.47245, 1.46585, - + 1.46558, 1.46539, 0.93984, - + 0.00814, 0.00541, 62.34838, 1.88798, 1.88104, - + 1.88073, 1.88051, 1.35895/ - DATA ((F(I,5 ,M), I=1,8), M=8,14) / - + 0.00839, 0.00560, 77.39079, 2.34453, 2.33727, - + 2.33692, 2.33667, 1.81879, - + 0.00862, 0.00578, 93.58213, 2.83859, 2.83102, - + 2.83064, 2.83036, 2.31589, - + 0.00885, 0.00595, 110.76291, 3.36576, 3.35790, - + 3.35747, 3.35717, 2.84588, - + 0.00906, 0.00612, 128.88327, 3.92623, 3.91810, - + 3.91763, 3.91730, 3.40899, - + 0.00927, 0.00628, 147.78384, 4.51510, 4.50670, - + 4.50619, 4.50583, 4.00033, - + 0.00948, 0.00644, 167.39495, 5.13105, 5.12239, - + 5.12184, 5.12146, 4.61860, - + 0.00967, 0.00659, 187.63517, 5.77235, 5.76344, - + 5.76285, 5.76244, 5.26209/ - DATA ((F(I,5 ,M), I=1,8), M=15,19) / - + 0.00987, 0.00674, 208.40850, 6.43576, 6.42661, - + 6.42598, 6.42555, 5.92757, - + 0.01005, 0.00688, 229.66568, 7.12076, 7.11138, - + 7.11072, 7.11026, 6.61454, - + 0.01023, 0.00702, 251.35938, 7.82652, 7.81692, - + 7.81621, 7.81572, 7.32216, - + 0.01041, 0.00715, 273.39731, 8.54922, 8.53940, - + 8.53866, 8.53815, 8.04665, - + 0.01059, 0.00728, 295.70265, 9.28568, 9.27565, - + 9.27487, 9.27433, 8.78481/ - DATA ((F(I,6 ,M), I=1,8), M=1,7) / - + 0.00690, 0.00444, 3.39847, 0.11318, 0.10789, - + 0.10781, 0.10775, 0.00000, - + 0.00729, 0.00475, 8.65660, 0.27160, 0.26577, - + 0.26564, 0.26554, 0.00000, - + 0.00765, 0.00504, 15.91957, 0.48496, 0.47864, - + 0.47846, 0.47833, 0.00000, - + 0.00798, 0.00530, 24.48552, 0.74564, 0.73886, - + 0.73863, 0.73847, 0.22292, - + 0.00829, 0.00554, 34.57827, 1.05332, 1.04612, - + 1.04585, 1.04565, 0.53475, - + 0.00859, 0.00577, 46.09157, 1.40350, 1.39591, - + 1.39558, 1.39535, 0.88869, - + 0.00887, 0.00599, 58.88098, 1.79312, 1.78515, - + 1.78478, 1.78451, 1.28172/ - DATA ((F(I,6 ,M), I=1,8), M=8,14) / - + 0.00914, 0.00620, 72.81726, 2.21957, 2.21124, - + 2.21082, 2.21052, 1.71131, - + 0.00939, 0.00640, 87.75789, 2.67950, 2.67084, - + 2.67037, 2.67004, 2.17415, - + 0.00964, 0.00659, 103.55712, 3.16884, 3.15986, - + 3.15934, 3.15898, 2.66619, - + 0.00988, 0.00678, 120.16168, 3.68754, 3.67826, - + 3.67769, 3.67729, 3.18740, - + 0.01011, 0.00695, 137.42977, 4.23116, 4.22158, - + 4.22097, 4.22054, 3.73337, - + 0.01034, 0.00713, 155.29561, 4.79841, 4.78854, - + 4.78788, 4.78743, 4.30283, - + 0.01056, 0.00729, 173.68405, 5.38761, 5.37748, - + 5.37677, 5.37628, 4.89413/ - DATA ((F(I,6 ,M), I=1,8), M=15,19) / - + 0.01077, 0.00745, 192.51114, 5.99590, 5.98550, - + 5.98474, 5.98422, 5.50438, - + 0.01097, 0.00761, 211.72980, 6.62267, 6.61202, - + 6.61122, 6.61067, 6.13303, - + 0.01118, 0.00776, 231.29616, 7.26710, 7.25621, - + 7.25536, 7.25478, 6.77924, - + 0.01137, 0.00791, 251.13262, 7.92588, 7.91474, - + 7.91385, 7.91324, 7.43971, - + 0.01156, 0.00805, 271.17474, 8.59622, 8.58486, - + 8.58392, 8.58328, 8.11167/ - DATA ((F(I,7 ,M), I=1,8), M=1,7) / - + 0.00895, 0.00613, 3.23083, 0.11065, 0.10225, - + 0.10207, 0.10195, 0.00000, - + 0.00949, 0.00655, 7.95814, 0.25391, 0.24474, - + 0.24447, 0.24429, 0.00000, - + 0.00998, 0.00694, 14.26980, 0.44138, 0.43152, - + 0.43116, 0.43092, 0.00000, - + 0.01043, 0.00729, 21.53810, 0.66599, 0.65550, - + 0.65506, 0.65476, 0.19176, - + 0.01085, 0.00762, 29.91768, 0.92641, 0.91535, - + 0.91482, 0.91446, 0.45578, - + 0.01125, 0.00794, 39.30907, 1.21848, 1.20688, - + 1.20627, 1.20585, 0.75110, - + 0.01164, 0.00823, 49.57999, 1.53924, 1.52713, - + 1.52644, 1.52597, 1.07481/ - DATA ((F(I,7 ,M), I=1,8), M=8,14) / - + 0.01200, 0.00851, 60.61481, 1.88620, 1.87361, - + 1.87284, 1.87231, 1.42447, - + 0.01236, 0.00878, 72.29722, 2.25648, 2.24344, - + 2.24258, 2.24200, 1.79725, - + 0.01269, 0.00904, 84.51807, 2.64691, 2.63344, - + 2.63250, 2.63187, 2.18998, - + 0.01302, 0.00929, 97.22128, 3.05693, 3.04305, - + 3.04203, 3.04134, 2.60216, - + 0.01334, 0.00953, 110.30942, 3.48329, 3.46903, - + 3.46793, 3.46719, 3.03054, - + 0.01365, 0.00976, 123.72926, 3.92484, 3.91020, - + 3.90903, 3.90824, 3.47397, - + 0.01394, 0.00998, 137.42382, 4.38015, 4.36516, - + 4.36391, 4.36307, 3.93106/ - DATA ((F(I,7 ,M), I=1,8), M=15,19) / - + 0.01423, 0.01020, 151.33862, 4.84722, 4.83189, - + 4.83056, 4.82967, 4.39981, - + 0.01451, 0.01041, 165.43507, 5.32537, 5.30971, - + 5.30831, 5.30737, 4.87955, - + 0.01479, 0.01061, 179.67980, 5.81387, 5.79789, - + 5.79641, 5.79542, 5.36955, - + 0.01505, 0.01081, 194.02917, 6.31056, 6.29427, - + 6.29272, 6.29169, 5.86768, - + 0.01532, 0.01100, 208.44727, 6.81366, 6.79708, - + 6.79546, 6.79438, 6.37216/ - DATA ((F(I,8 ,M), I=1,8), M=1,7) / - + 0.01171, 0.00845, 3.06371, 0.10970, 0.09656, - + 0.09618, 0.09593, 0.00000, - + 0.01244, 0.00903, 7.28824, 0.23857, 0.22438, - + 0.22384, 0.22348, 0.00000, - + 0.01311, 0.00955, 12.72787, 0.40219, 0.38707, - + 0.38638, 0.38591, 0.00000, - + 0.01373, 0.01002, 18.83225, 0.59422, 0.57827, - + 0.57743, 0.57686, 0.16357, - + 0.01431, 0.01047, 25.70798, 0.81272, 0.79601, - + 0.79502, 0.79435, 0.38507, - + 0.01487, 0.01089, 33.26891, 1.05399, 1.03657, - + 1.03543, 1.03467, 0.62903, - + 0.01539, 0.01129, 41.40064, 1.31534, 1.29727, - + 1.29599, 1.29513, 0.89283/ - DATA ((F(I,8 ,M), I=1,8), M=8,14) / - + 0.01590, 0.01167, 50.00572, 1.59452, 1.57583, - + 1.57441, 1.57346, 1.17424, - + 0.01638, 0.01203, 58.99374, 1.88915, 1.86988, - + 1.86832, 1.86729, 1.47092, - + 0.01685, 0.01237, 68.28640, 2.19683, 2.17702, - + 2.17533, 2.17421, 1.78050, - + 0.01729, 0.01270, 77.83266, 2.51679, 2.49646, - + 2.49464, 2.49343, 2.10222, - + 0.01773, 0.01302, 87.56938, 2.84673, 2.82591, - + 2.82396, 2.82267, 2.43380, - + 0.01815, 0.01333, 97.45626, 3.18567, 3.16439, - + 3.16231, 3.16094, 2.77428, - + 0.01856, 0.01362, 107.45293, 3.53249, 3.51076, - + 3.50856, 3.50711, 3.12255/ - DATA ((F(I,8 ,M), I=1,8), M=15,19) / - + 0.01895, 0.01391, 117.52656, 3.88584, 3.86369, - + 3.86136, 3.85983, 3.47726, - + 0.01934, 0.01419, 127.64833, 4.24508, 4.22253, - + 4.22008, 4.21847, 3.83779, - + 0.01971, 0.01446, 137.79484, 4.60962, 4.58667, - + 4.58411, 4.58242, 4.20355, - + 0.02008, 0.01472, 147.94495, 4.97814, 4.95481, - + 4.95214, 4.95037, 4.57323, - + 0.02043, 0.01497, 158.08154, 5.34957, 5.32588, - + 5.32309, 5.32125, 4.94576/ - DATA ((F(I,9 ,M), I=1,8), M=1,7) / - + 0.01375, 0.01019, 2.96933, 0.11028, 0.09335, - + 0.09276, 0.09237, 0.00000, - + 0.01464, 0.01088, 6.91768, 0.23122, 0.21307, - + 0.21225, 0.21171, 0.00000, - + 0.01545, 0.01150, 11.88989, 0.38202, 0.36279, - + 0.36176, 0.36107, 0.00000, - + 0.01620, 0.01207, 17.38106, 0.55679, 0.53660, - + 0.53536, 0.53454, 0.14861, - + 0.01690, 0.01260, 23.47816, 0.75340, 0.73233, - + 0.73089, 0.72994, 0.34784, - + 0.01757, 0.01309, 30.10478, 0.96844, 0.94658, - + 0.94494, 0.94386, 0.56523, - + 0.01820, 0.01357, 37.15849, 1.19945, 1.17683, - + 1.17500, 1.17380, 0.79836/ - DATA ((F(I,9 ,M), I=1,8), M=8,14) / - + 0.01881, 0.01401, 44.55347, 1.44433, 1.42103, - + 1.41901, 1.41768, 1.04519, - + 0.01939, 0.01444, 52.21361, 1.70102, 1.67707, - + 1.67487, 1.67342, 1.30366, - + 0.01996, 0.01485, 60.07594, 1.96751, 1.94294, - + 1.94056, 1.93899, 1.57178, - + 0.02050, 0.01524, 68.09456, 2.24296, 2.21782, - + 2.21527, 2.21359, 1.84876, - + 0.02102, 0.01561, 76.22211, 2.52557, 2.49988, - + 2.49716, 2.49537, 2.13278, - + 0.02152, 0.01597, 84.42551, 2.81445, 2.78824, - + 2.78535, 2.78345, 2.42299, - + 0.02201, 0.01632, 92.67296, 3.10865, 3.08195, - + 3.07890, 3.07690, 2.71843/ - DATA ((F(I,9 ,M), I=1,8), M=15,19) / - + 0.02249, 0.01666, 100.94118, 3.40713, 3.37997, - + 3.37676, 3.37465, 3.01809, - + 0.02295, 0.01699, 109.20695, 3.70932, 3.68172, - + 3.67835, 3.67614, 3.32138, - + 0.02340, 0.01730, 117.45208, 4.01470, 3.98666, - + 3.98314, 3.98083, 3.62780, - + 0.02384, 0.01761, 125.66440, 4.32232, 4.29388, - + 4.29020, 4.28780, 3.93642, - + 0.02427, 0.01791, 133.83427, 4.63142, 4.60258, - + 4.59876, 4.59626, 4.24646/ - DATA ((F(I,10,M), I=1,8), M=1,7) / - + 0.01544, 0.01163, 2.89670, 0.11111, 0.09095, - + 0.09013, 0.08961, 0.00000, - + 0.01646, 0.01241, 6.64510, 0.22630, 0.20478, - + 0.20369, 0.20297, 0.00000, - + 0.01738, 0.01312, 11.28713, 0.36801, 0.34531, - + 0.34395, 0.34305, 0.00000, - + 0.01824, 0.01376, 16.35156, 0.53071, 0.50697, - + 0.50534, 0.50427, 0.13814, - + 0.01905, 0.01435, 21.91424, 0.71219, 0.68749, - + 0.68561, 0.68438, 0.32195, - + 0.01981, 0.01491, 27.90655, 0.90928, 0.88371, - + 0.88159, 0.88020, 0.52113, - + 0.02054, 0.01544, 34.23524, 1.11966, 1.09329, - + 1.09093, 1.08939, 0.73341/ - DATA ((F(I,10,M), I=1,8), M=8,14) / - + 0.02123, 0.01595, 40.82328, 1.34141, 1.31430, - + 1.31171, 1.31001, 0.95688, - + 0.02190, 0.01643, 47.60448, 1.57266, 1.54485, - + 1.54204, 1.54020, 1.18970, - + 0.02254, 0.01688, 54.52601, 1.81166, 1.78319, - + 1.78017, 1.77818, 1.43015, - + 0.02315, 0.01732, 61.54629, 2.05759, 2.02851, - + 2.02527, 2.02315, 1.67742, - + 0.02375, 0.01774, 68.62790, 2.30892, 2.27927, - + 2.27582, 2.27357, 1.93000, - + 0.02432, 0.01815, 75.74274, 2.56487, 2.53468, - + 2.53103, 2.52865, 2.18712, - + 0.02488, 0.01854, 82.86470, 2.82462, 2.79390, - + 2.79006, 2.78754, 2.44796/ - DATA ((F(I,10,M), I=1,8), M=15,19) / - + 0.02543, 0.01892, 89.97634, 3.08729, 3.05609, - + 3.05205, 3.04941, 2.71166, - + 0.02595, 0.01928, 97.05831, 3.35238, 3.32071, - + 3.31649, 3.31373, 2.97773, - + 0.02646, 0.01964, 104.09592, 3.61943, 3.58732, - + 3.58290, 3.58003, 3.24569, - + 0.02696, 0.01998, 111.08204, 3.88772, 3.85518, - + 3.85058, 3.84759, 3.51484, - + 0.02745, 0.02031, 118.01128, 4.15665, 4.12370, - + 4.11893, 4.11583, 3.78460/ - DATA ((F(I,11,M), I=1,8), M=1,7) / - + 0.01692, 0.01290, 2.85171, 0.11251, 0.08948, - + 0.08844, 0.08777, 0.00000, - + 0.01805, 0.01375, 6.46640, 0.22385, 0.19937, - + 0.19800, 0.19710, 0.00000, - + 0.01909, 0.01452, 10.88653, 0.35947, 0.33373, - + 0.33203, 0.33092, 0.00000, - + 0.02004, 0.01523, 15.66468, 0.51407, 0.48722, - + 0.48522, 0.48391, 0.13109, - + 0.02093, 0.01588, 20.87031, 0.68542, 0.65757, - + 0.65527, 0.65377, 0.30456, - + 0.02178, 0.01650, 26.44063, 0.87053, 0.84176, - + 0.83918, 0.83749, 0.49157, - + 0.02258, 0.01708, 32.28917, 1.06720, 1.03759, - + 1.03473, 1.03286, 0.68995/ - DATA ((F(I,11,M), I=1,8), M=8,14) / - + 0.02336, 0.01763, 38.34518, 1.27361, 1.24322, - + 1.24009, 1.23805, 0.89791, - + 0.02409, 0.01815, 44.54937, 1.48805, 1.45693, - + 1.45354, 1.45132, 1.11376, - + 0.02480, 0.01865, 50.85559, 1.70892, 1.67713, - + 1.67349, 1.67111, 1.33595, - + 0.02549, 0.01913, 57.22564, 1.93545, 1.90303, - + 1.89913, 1.89659, 1.56369, - + 0.02615, 0.01959, 63.62839, 2.16629, 2.13327, - + 2.12913, 2.12644, 1.79565, - + 0.02679, 0.02004, 70.03917, 2.40072, 2.36713, - + 2.36276, 2.35992, 2.03113, - + 0.02740, 0.02046, 76.43569, 2.63799, 2.60387, - + 2.59927, 2.59628, 2.26938/ - DATA ((F(I,11,M), I=1,8), M=15,19) / - + 0.02800, 0.02088, 82.80412, 2.87737, 2.84275, - + 2.83793, 2.83480, 2.50968, - + 0.02859, 0.02127, 89.12778, 3.11838, 3.08328, - + 3.07825, 3.07498, 2.75157, - + 0.02915, 0.02166, 95.39429, 3.36062, 3.32506, - + 3.31982, 3.31641, 2.99463, - + 0.02971, 0.02203, 101.59949, 3.60349, 3.56750, - + 3.56205, 3.55850, 3.23827, - + 0.03024, 0.02240, 107.74040, 3.84652, 3.81012, - + 3.80446, 3.80079, 3.48205/ - DATA ((F(I,12,M), I=1,8), M=1,7) / - + 0.02265, 0.01774, 2.70211, 0.11929, 0.08515, - + 0.08295, 0.08154, 0.00000, - + 0.02423, 0.01889, 5.89951, 0.21864, 0.18281, - + 0.18003, 0.17823, 0.00000, - + 0.02567, 0.01992, 9.64726, 0.33574, 0.29847, - + 0.29514, 0.29299, 0.00000, - + 0.02699, 0.02085, 13.57376, 0.46615, 0.42763, - + 0.42380, 0.42131, 0.11001, - + 0.02823, 0.02172, 17.73573, 0.60768, 0.56805, - + 0.56372, 0.56093, 0.25297, - + 0.02941, 0.02253, 22.08980, 0.75789, 0.71726, - + 0.71247, 0.70937, 0.40444, - + 0.03053, 0.02330, 26.57117, 0.91500, 0.87346, - + 0.86822, 0.86484, 0.56269/ - DATA ((F(I,12,M), I=1,8), M=8,14) / - + 0.03159, 0.02402, 31.12891, 1.07755, 1.03518, - + 1.02952, 1.02586, 0.72627, - + 0.03261, 0.02471, 35.72374, 1.24427, 1.20114, - + 1.19506, 1.19114, 0.89392, - + 0.03359, 0.02537, 40.32791, 1.41408, 1.37025, - + 1.36377, 1.35959, 1.06459, - + 0.03453, 0.02600, 44.91431, 1.58628, 1.54180, - + 1.53494, 1.53051, 1.23758, - + 0.03543, 0.02660, 49.46799, 1.76006, 1.71497, - + 1.70774, 1.70307, 1.41209, - + 0.03631, 0.02718, 53.97410, 1.93489, 1.88924, - + 1.88165, 1.87675, 1.58761, - + 0.03716, 0.02773, 58.42067, 2.11027, 2.06409, - + 2.05615, 2.05103, 1.76363/ - DATA ((F(I,12,M), I=1,8), M=15,19) / - + 0.03798, 0.02827, 62.80280, 2.28579, 2.23911, - + 2.23084, 2.22550, 1.93975, - + 0.03877, 0.02878, 67.11130, 2.46111, 2.41396, - + 2.40536, 2.39981, 2.11563, - + 0.03955, 0.02928, 71.34008, 2.63594, 2.58836, - + 2.57944, 2.57368, 2.29100, - + 0.04030, 0.02977, 75.49137, 2.81005, 2.76205, - + 2.75282, 2.74686, 2.46561, - + 0.04103, 0.03023, 79.56749, 2.98322, 2.93484, - + 2.92529, 2.91914, 2.63927/ - DATA ((F(I,13,M), I=1,8), M=1,7) / - + 0.03068, 0.02438, 2.55461, 0.13144, 0.08257, - + 0.07797, 0.07503, 0.00000, - + 0.03290, 0.02590, 5.35775, 0.21941, 0.16883, - + 0.16325, 0.15968, 0.00000, - + 0.03492, 0.02726, 8.49429, 0.31960, 0.26760, - + 0.26113, 0.25698, 0.00000, - + 0.03676, 0.02849, 11.66734, 0.42841, 0.37521, - + 0.36792, 0.36324, 0.09117, - + 0.03849, 0.02963, 14.93002, 0.54385, 0.48962, - + 0.48156, 0.47638, 0.20736, - + 0.04012, 0.03070, 18.25847, 0.66406, 0.60891, - + 0.60012, 0.59448, 0.32823, - + 0.04167, 0.03170, 21.60892, 0.78766, 0.73170, - + 0.72222, 0.71613, 0.45242/ - DATA ((F(I,13,M), I=1,8), M=8,14) / - + 0.04314, 0.03264, 24.94884, 0.91357, 0.85690, - + 0.84675, 0.84024, 0.57887, - + 0.04454, 0.03354, 28.25585, 1.04092, 0.98360, - + 0.97283, 0.96591, 0.70671, - + 0.04588, 0.03439, 31.51638, 1.16903, 1.11112, - + 1.09975, 1.09245, 0.83527, - + 0.04717, 0.03519, 34.71405, 1.29736, 1.23892, - + 1.22697, 1.21931, 0.96402, - + 0.04842, 0.03597, 37.84491, 1.42548, 1.36656, - + 1.35406, 1.34603, 1.09253, - + 0.04961, 0.03671, 40.90204, 1.55304, 1.49369, - + 1.48065, 1.47229, 1.22046, - + 0.05077, 0.03742, 43.88116, 1.67977, 1.62001, - + 1.60646, 1.59777, 1.34753/ - DATA ((F(I,13,M), I=1,8), M=15,19) / - + 0.05188, 0.03811, 46.78297, 1.80546, 1.74533, - + 1.73129, 1.72228, 1.47355, - + 0.05296, 0.03877, 49.60410, 1.92991, 1.86945, - + 1.85493, 1.84561, 1.59831, - + 0.05401, 0.03940, 52.34302, 2.05297, 1.99219, - + 1.97721, 1.96760, 1.72167, - + 0.05503, 0.04002, 55.00494, 2.17458, 2.11352, - + 2.09809, 2.08820, 1.84356, - + 0.05602, 0.04062, 57.59456, 2.29472, 2.23340, - + 2.21753, 2.20736, 1.96398/ - DATA ((F(I,14,M), I=1,8), M=1,7) / - + 0.03685, 0.02932, 2.47306, 0.14165, 0.08272, - + 0.07569, 0.07121, 0.00000, - + 0.03956, 0.03111, 5.05987, 0.22334, 0.16287, - + 0.15456, 0.14926, 0.00000, - + 0.04201, 0.03270, 7.87163, 0.31448, 0.25279, - + 0.24331, 0.23726, 0.00000, - + 0.04425, 0.03414, 10.65365, 0.41196, 0.34925, - + 0.33872, 0.33199, 0.08131, - + 0.04634, 0.03546, 13.46012, 0.51396, 0.45041, - + 0.43889, 0.43151, 0.18370, - + 0.04831, 0.03670, 16.27793, 0.61893, 0.55465, - + 0.54220, 0.53423, 0.28903, - + 0.05018, 0.03786, 19.07473, 0.72572, 0.66082, - + 0.64750, 0.63898, 0.39615/ - DATA ((F(I,14,M), I=1,8), M=8,14) / - + 0.05195, 0.03895, 21.82756, 0.83348, 0.76804, - + 0.75389, 0.74484, 0.50422, - + 0.05363, 0.03998, 24.52224, 0.94153, 0.87562, - + 0.86069, 0.85113, 0.61255, - + 0.05525, 0.04096, 27.15162, 1.04938, 0.98306, - + 0.96738, 0.95735, 0.72067, - + 0.05679, 0.04190, 29.70488, 1.15661, 1.08993, - + 1.07354, 1.06305, 0.82815, - + 0.05827, 0.04278, 32.18245, 1.26293, 1.19594, - + 1.17887, 1.16795, 0.93472, - + 0.05970, 0.04364, 34.58105, 1.36812, 1.30085, - + 1.28313, 1.27180, 1.04015, - + 0.06108, 0.04445, 36.89970, 1.47198, 1.40447, - + 1.38612, 1.37439, 1.14424/ - DATA ((F(I,14,M), I=1,8), M=15,19) / - + 0.06241, 0.04523, 39.14110, 1.57442, 1.50669, - + 1.48775, 1.47563, 1.24690, - + 0.06369, 0.04599, 41.30441, 1.67530, 1.60738, - + 1.58786, 1.57537, 1.34800, - + 0.06494, 0.04671, 43.39002, 1.77451, 1.70644, - + 1.68636, 1.67351, 1.44743, - + 0.06614, 0.04741, 45.40372, 1.87210, 1.80388, - + 1.78326, 1.77008, 1.54522, - + 0.06732, 0.04809, 47.35070, 1.96809, 1.89974, - + 1.87860, 1.86509, 1.64141/ - DATA ((F(I,15,M), I=1,8), M=1,7) / - + 0.04204, 0.03337, 2.40708, 0.15009, 0.08365, - + 0.07421, 0.06821, 0.00000, - + 0.04516, 0.03536, 4.83157, 0.22706, 0.15935, - + 0.14837, 0.14138, 0.00000, - + 0.04797, 0.03714, 7.40853, 0.31162, 0.24293, - + 0.23057, 0.22269, 0.00000, - + 0.05053, 0.03874, 9.91404, 0.40100, 0.33154, - + 0.31793, 0.30924, 0.07432, - + 0.05292, 0.04021, 12.40410, 0.49355, 0.42346, - + 0.40869, 0.39926, 0.16707, - + 0.05517, 0.04158, 14.87313, 0.58792, 0.51733, - + 0.50148, 0.49135, 0.26165, - + 0.05729, 0.04286, 17.29666, 0.68317, 0.61216, - + 0.59529, 0.58451, 0.35708/ - DATA ((F(I,15,M), I=1,8), M=8,14) / - + 0.05931, 0.04406, 19.65827, 0.77855, 0.70721, - + 0.68938, 0.67799, 0.45266, - + 0.06122, 0.04520, 21.94906, 0.87355, 0.80193, - + 0.78320, 0.77123, 0.54785, - + 0.06305, 0.04627, 24.16583, 0.96780, 0.89595, - + 0.87637, 0.86386, 0.64228, - + 0.06480, 0.04730, 26.30149, 1.06095, 0.98892, - + 0.96852, 0.95549, 0.73562, - + 0.06648, 0.04827, 28.35891, 1.15283, 1.08066, - + 1.05949, 1.04596, 0.82769, - + 0.06809, 0.04920, 30.33706, 1.24327, 1.17099, - + 1.14908, 1.13508, 0.91832, - + 0.06965, 0.05010, 32.23686, 1.33214, 1.25978, - + 1.23716, 1.22271, 1.00737/ - DATA ((F(I,15,M), I=1,8), M=15,19) / - + 0.07115, 0.05095, 34.06208, 1.41941, 1.34699, - + 1.32369, 1.30881, 1.09483, - + 0.07259, 0.05177, 35.81335, 1.50497, 1.43252, - + 1.40857, 1.39327, 1.18058, - + 0.07399, 0.05256, 37.49211, 1.58878, 1.51631, - + 1.49173, 1.47604, 1.26458, - + 0.07535, 0.05333, 39.10427, 1.67090, 1.59843, - + 1.57325, 1.55717, 1.34689, - + 0.07666, 0.05406, 40.65503, 1.75139, 1.67893, - + 1.65317, 1.63673, 1.42757/ - DATA ((F(I,16,M), I=1,8), M=1,7) / - + 0.04673, 0.03695, 2.37666, 0.15820, 0.08579, - + 0.07399, 0.06649, 0.00000, - + 0.05021, 0.03912, 4.70117, 0.23227, 0.15888, - + 0.14531, 0.13668, 0.00000, - + 0.05334, 0.04105, 7.13100, 0.31274, 0.23862, - + 0.22348, 0.21384, 0.00000, - + 0.05619, 0.04279, 9.46283, 0.39706, 0.32241, - + 0.30586, 0.29530, 0.06996, - + 0.05885, 0.04438, 11.75472, 0.48368, 0.40864, - + 0.39079, 0.37940, 0.15670, - + 0.06134, 0.04586, 14.00620, 0.57143, 0.49610, - + 0.47703, 0.46487, 0.24457, - + 0.06369, 0.04724, 16.19808, 0.65946, 0.58392, - + 0.56372, 0.55083, 0.33274/ - DATA ((F(I,16,M), I=1,8), M=8,14) / - + 0.06592, 0.04854, 18.31815, 0.74714, 0.67146, - + 0.65019, 0.63663, 0.42057, - + 0.06803, 0.04977, 20.36084, 0.83404, 0.75826, - + 0.73600, 0.72179, 0.50762, - + 0.07005, 0.05092, 22.32539, 0.91987, 0.84404, - + 0.82083, 0.80602, 0.59361, - + 0.07198, 0.05202, 24.20709, 1.00433, 0.92849, - + 0.90439, 0.88901, 0.67824, - + 0.07382, 0.05307, 26.01016, 1.08731, 1.01149, - + 0.98654, 0.97062, 0.76141, - + 0.07560, 0.05407, 27.73495, 1.16870, 1.09292, - + 1.06717, 1.05073, 0.84298, - + 0.07730, 0.05502, 29.38350, 1.24840, 1.17268, - + 1.14615, 1.12923, 0.92287/ - DATA ((F(I,16,M), I=1,8), M=15,19) / - + 0.07895, 0.05594, 30.96010, 1.32640, 1.25077, - + 1.22350, 1.20611, 1.00107, - + 0.08053, 0.05682, 32.46624, 1.40264, 1.32712, - + 1.29914, 1.28130, 1.07751, - + 0.08206, 0.05766, 33.90398, 1.47710, 1.40169, - + 1.37304, 1.35476, 1.15217, - + 0.08355, 0.05848, 35.27915, 1.54985, 1.47456, - + 1.44526, 1.42657, 1.22513, - + 0.08498, 0.05926, 36.59687, 1.62098, 1.54583, - + 1.51590, 1.49681, 1.29647/ - DATA ((F(I,17,M), I=1,8), M=1,7) / - + 0.06551, 0.05060, 2.28546, 0.18767, 0.09842, - + 0.07540, 0.06079, 0.00000, - + 0.07038, 0.05340, 4.27724, 0.25200, 0.16323, - + 0.13769, 0.12146, 0.00000, - + 0.07473, 0.05587, 6.24036, 0.31921, 0.23103, - + 0.20329, 0.18566, 0.00000, - + 0.07867, 0.05806, 8.03703, 0.38754, 0.30000, - + 0.27032, 0.25145, 0.05656, - + 0.08231, 0.06007, 9.73344, 0.45584, 0.36897, - + 0.33754, 0.31755, 0.12502, - + 0.08571, 0.06193, 11.34409, 0.52340, 0.43723, - + 0.40419, 0.38317, 0.19281, - + 0.08890, 0.06365, 12.86511, 0.58973, 0.50428, - + 0.46977, 0.44780, 0.25942/ - DATA ((F(I,17,M), I=1,8), M=8,14) / - + 0.09190, 0.06526, 14.29623, 0.65453, 0.56980, - + 0.53391, 0.51108, 0.32453, - + 0.09474, 0.06677, 15.64071, 0.71761, 0.63360, - + 0.59643, 0.57279, 0.38795, - + 0.09744, 0.06819, 16.90376, 0.77892, 0.69561, - + 0.65726, 0.63286, 0.44962, - + 0.10000, 0.06954, 18.08713, 0.83831, 0.75571, - + 0.71624, 0.69113, 0.50940, - + 0.10245, 0.07081, 19.19782, 0.89585, 0.81395, - + 0.77343, 0.74765, 0.56734, - + 0.10479, 0.07202, 20.23950, 0.95153, 0.87030, - + 0.82880, 0.80239, 0.62342, - + 0.10703, 0.07317, 21.21664, 1.00535, 0.92480, - + 0.88237, 0.85536, 0.67767/ - DATA ((F(I,17,M), I=1,8), M=15,19) / - + 0.10919, 0.07427, 22.13437, 1.05740, 0.97752, - + 0.93420, 0.90663, 0.73016, - + 0.11126, 0.07532, 22.99607, 1.10770, 1.02847, - + 0.98431, 0.95621, 0.78089, - + 0.11325, 0.07633, 23.80500, 1.15628, 1.07769, - + 1.03273, 1.00412, 0.82991, - + 0.11518, 0.07730, 24.56622, 1.20326, 1.12529, - + 1.07958, 1.05049, 0.87734, - + 0.11703, 0.07823, 25.28409, 1.24875, 1.17140, - + 1.12496, 1.09541, 0.92328/ - DATA ((F(I,18,M), I=1,8), M=1,7) / - + 0.09337, 0.06915, 2.29284, 0.22205, 0.12545, - + 0.08305, 0.05615, 0.00000, - + 0.10009, 0.07266, 3.95539, 0.27666, 0.18290, - + 0.13735, 0.10845, 0.00000, - + 0.10605, 0.07572, 5.48627, 0.33122, 0.24004, - + 0.19183, 0.16123, 0.00000, - + 0.11137, 0.07842, 6.80834, 0.38473, 0.29593, - + 0.24543, 0.21336, 0.04498, - + 0.11626, 0.08087, 7.99725, 0.43653, 0.34994, - + 0.29741, 0.26405, 0.09789, - + 0.12079, 0.08311, 9.07947, 0.48633, 0.40183, - + 0.34748, 0.31296, 0.14884, - + 0.12501, 0.08518, 10.06314, 0.53401, 0.45147, - + 0.39547, 0.35990, 0.19768/ - DATA ((F(I,18,M), I=1,8), M=8,14) / - + 0.12895, 0.08709, 10.95672, 0.57950, 0.49881, - + 0.44132, 0.40480, 0.24434, - + 0.13266, 0.08887, 11.76917, 0.62284, 0.54392, - + 0.48506, 0.44767, 0.28885, - + 0.13616, 0.09054, 12.50902, 0.66414, 0.58689, - + 0.52677, 0.48859, 0.33132, - + 0.13947, 0.09211, 13.18219, 0.70341, 0.62775, - + 0.56647, 0.52755, 0.37174, - + 0.14261, 0.09359, 13.79635, 0.74079, 0.66665, - + 0.60430, 0.56469, 0.41027, - + 0.14559, 0.09498, 14.35681, 0.77637, 0.70367, - + 0.64033, 0.60009, 0.44698, - + 0.14844, 0.09630, 14.86888, 0.81023, 0.73892, - + 0.67464, 0.63382, 0.48196/ - DATA ((F(I,18,M), I=1,8), M=15,19) / - + 0.15116, 0.09756, 15.33740, 0.84249, 0.77251, - + 0.70737, 0.66599, 0.51533, - + 0.15376, 0.09875, 15.76635, 0.87322, 0.80451, - + 0.73856, 0.69666, 0.54715, - + 0.15625, 0.09988, 16.15925, 0.90250, 0.83501, - + 0.76830, 0.72592, 0.57750, - + 0.15864, 0.10097, 16.51981, 0.93044, 0.86413, - + 0.79670, 0.75386, 0.60650, - + 0.16095, 0.10201, 16.85126, 0.95716, 0.89199, - + 0.82388, 0.78062, 0.63427/ - DATA ((F(I,19,M), I=1,8), M=1,7) / - + 0.11584, 0.08298, 2.40418, 0.24142, 0.14974, - + 0.09131, 0.05426, 0.00000, - + 0.12388, 0.08692, 3.87097, 0.29034, 0.20305, - + 0.14141, 0.10231, 0.00000, - + 0.13093, 0.09032, 5.16255, 0.33773, 0.25430, - + 0.19000, 0.14920, 0.00000, - + 0.13720, 0.09330, 6.23315, 0.38308, 0.30309, - + 0.23654, 0.19431, 0.03915, - + 0.14292, 0.09598, 7.16365, 0.42601, 0.34915, - + 0.28065, 0.23718, 0.08431, - + 0.14818, 0.09842, 7.98552, 0.46650, 0.39252, - + 0.32230, 0.27773, 0.12697, - + 0.15306, 0.10066, 8.71208, 0.50457, 0.43326, - + 0.36151, 0.31596, 0.16716/ - DATA ((F(I,19,M), I=1,8), M=8,14) / - + 0.15759, 0.10272, 9.35514, 0.54031, 0.47148, - + 0.39836, 0.35194, 0.20497, - + 0.16184, 0.10463, 9.92545, 0.57386, 0.50734, - + 0.43299, 0.38579, 0.24053, - + 0.16582, 0.10640, 10.43231, 0.60538, 0.54103, - + 0.46556, 0.41766, 0.27402, - + 0.16957, 0.10806, 10.88296, 0.63496, 0.57264, - + 0.49616, 0.44761, 0.30550, - + 0.17312, 0.10962, 11.28467, 0.66277, 0.60237, - + 0.52497, 0.47584, 0.33517, - + 0.17647, 0.11108, 11.64298, 0.68893, 0.63034, - + 0.55209, 0.50242, 0.36313, - + 0.17966, 0.11246, 11.96302, 0.71355, 0.65667, - + 0.57765, 0.52748, 0.38950/ - DATA ((F(I,19,M), I=1,8), M=15,19) / - + 0.18269, 0.11376, 12.24914, 0.73675, 0.68150, - + 0.60176, 0.55115, 0.41442, - + 0.18559, 0.11500, 12.50514, 0.75862, 0.70492, - + 0.62453, 0.57349, 0.43796, - + 0.18835, 0.11617, 12.73431, 0.77925, 0.72703, - + 0.64602, 0.59460, 0.46022, - + 0.19099, 0.11728, 12.93951, 0.79875, 0.74793, - + 0.66636, 0.61458, 0.48131, - + 0.19352, 0.11834, 13.12325, 0.81722, 0.76775, - + 0.68566, 0.63354, 0.50133/ - DATA ((F(I,20,M), I=1,8), M=1,7) / - + 0.13546, 0.09439, 2.54902, 0.25250, 0.17039, - + 0.09854, 0.05299, 0.00000, - + 0.14449, 0.09860, 3.85896, 0.29701, 0.22029, - + 0.14544, 0.09796, 0.00000, - + 0.15238, 0.10222, 4.97133, 0.33903, 0.26696, - + 0.18966, 0.14062, 0.00000, - + 0.15934, 0.10537, 5.86088, 0.37839, 0.31041, - + 0.23108, 0.18076, 0.03512, - + 0.16566, 0.10818, 6.61147, 0.41497, 0.35065, - + 0.26960, 0.21817, 0.07497, - + 0.17144, 0.11073, 7.25705, 0.44889, 0.38789, - + 0.30535, 0.25298, 0.11202, - + 0.17678, 0.11305, 7.81356, 0.48031, 0.42235, - + 0.33851, 0.28531, 0.14643/ - DATA ((F(I,20,M), I=1,8), M=8,14) / - + 0.18172, 0.11517, 8.29435, 0.50939, 0.45423, - + 0.36925, 0.31533, 0.17838, - + 0.18632, 0.11714, 8.71074, 0.53634, 0.48376, - + 0.39778, 0.34321, 0.20808, - + 0.19062, 0.11895, 9.07202, 0.56135, 0.51117, - + 0.42429, 0.36916, 0.23574, - + 0.19466, 0.12064, 9.38585, 0.58455, 0.53660, - + 0.44893, 0.39329, 0.26148, - + 0.19846, 0.12221, 9.65886, 0.60612, 0.56027, - + 0.47188, 0.41579, 0.28551, - + 0.20204, 0.12369, 9.89643, 0.62620, 0.58230, - + 0.49328, 0.43678, 0.30796, - + 0.20544, 0.12507, 10.10332, 0.64490, 0.60285, - + 0.51324, 0.45638, 0.32895/ - DATA ((F(I,20,M), I=1,8), M=15,19) / - + 0.20865, 0.12637, 10.28333, 0.66235, 0.62204, - + 0.53192, 0.47473, 0.34861, - + 0.21171, 0.12760, 10.43996, 0.67865, 0.63998, - + 0.54939, 0.49190, 0.36705, - + 0.21462, 0.12876, 10.57616, 0.69388, 0.65676, - + 0.56575, 0.50799, 0.38435, - + 0.21739, 0.12985, 10.69418, 0.70814, 0.67250, - + 0.58111, 0.52311, 0.40063, - + 0.22004, 0.13089, 10.79597, 0.72153, 0.68730, - + 0.59555, 0.53733, 0.41597/ - DATA ((F(I,21,M), I=1,8), M=1,7) / - + 0.15331, 0.10434, 2.71978, 0.25883, 0.18792, - + 0.10485, 0.05218, 0.00000, - + 0.16314, 0.10875, 3.90461, 0.30000, 0.23505, - + 0.14932, 0.09495, 0.00000, - + 0.17168, 0.11251, 4.88198, 0.33802, 0.27816, - + 0.19031, 0.13459, 0.00000, - + 0.17918, 0.11576, 5.63981, 0.37304, 0.31757, - + 0.22802, 0.17121, 0.03234, - + 0.18594, 0.11865, 6.26336, 0.40509, 0.35352, - + 0.26254, 0.20484, 0.06855, - + 0.19212, 0.12125, 6.78754, 0.43439, 0.38634, - + 0.29416, 0.23569, 0.10180, - + 0.19778, 0.12360, 7.22953, 0.46120, 0.41633, - + 0.32313, 0.26401, 0.13233/ - DATA ((F(I,21,M), I=1,8), M=8,14) / - + 0.20301, 0.12575, 7.60317, 0.48573, 0.44376, - + 0.34969, 0.29002, 0.16039, - + 0.20786, 0.12773, 7.91976, 0.50821, 0.46891, - + 0.37409, 0.31394, 0.18624, - + 0.21238, 0.12955, 8.18823, 0.52886, 0.49201, - + 0.39655, 0.33599, 0.21010, - + 0.21661, 0.13123, 8.41618, 0.54783, 0.51326, - + 0.41724, 0.35632, 0.23214, - + 0.22057, 0.13279, 8.60961, 0.56531, 0.53285, - + 0.43634, 0.37512, 0.25255, - + 0.22430, 0.13425, 8.77359, 0.58143, 0.55094, - + 0.45401, 0.39252, 0.27148, - + 0.22781, 0.13561, 8.91244, 0.59631, 0.56766, - + 0.47037, 0.40865, 0.28907/ - DATA ((F(I,21,M), I=1,8), M=15,19) / - + 0.23114, 0.13688, 9.02950, 0.61009, 0.58317, - + 0.48556, 0.42364, 0.30545, - + 0.23429, 0.13808, 9.12792, 0.62285, 0.59755, - + 0.49967, 0.43757, 0.32071, - + 0.23727, 0.13920, 9.21032, 0.63467, 0.61090, - + 0.51279, 0.45055, 0.33495, - + 0.24011, 0.14026, 9.27851, 0.64566, 0.62334, - + 0.52502, 0.46265, 0.34827, - + 0.24282, 0.14127, 9.33407, 0.65589, 0.63493, - + 0.53645, 0.47397, 0.36075/ - DATA ((F(I,22,M), I=1,8), M=1,7) / - + 0.19261, 0.12502, 3.11167, 0.26113, 0.21981, - + 0.11570, 0.04971, 0.00000, - + 0.20385, 0.12965, 4.01607, 0.29522, 0.26023, - + 0.15458, 0.08760, 0.00000, - + 0.21348, 0.13354, 4.71473, 0.32521, 0.29547, - + 0.18872, 0.12103, 0.00000, - + 0.22184, 0.13685, 5.21457, 0.35174, 0.32643, - + 0.21890, 0.15072, 0.02693, - + 0.22930, 0.13975, 5.59949, 0.37518, 0.35372, - + 0.24563, 0.17709, 0.05625, - + 0.23604, 0.14233, 5.90342, 0.39592, 0.37787, - + 0.26938, 0.20058, 0.08244, - + 0.24217, 0.14464, 6.14365, 0.41434, 0.39932, - + 0.29056, 0.22158, 0.10592/ - DATA ((F(I,22,M), I=1,8), M=8,14) / - + 0.24777, 0.14672, 6.33336, 0.43073, 0.41842, - + 0.30949, 0.24041, 0.12705, - + 0.25293, 0.14860, 6.48253, 0.44535, 0.43550, - + 0.32648, 0.25734, 0.14611, - + 0.25769, 0.15032, 6.59867, 0.45844, 0.45081, - + 0.34177, 0.27261, 0.16339, - + 0.26211, 0.15188, 6.68841, 0.47016, 0.46457, - + 0.35556, 0.28642, 0.17907, - + 0.26621, 0.15332, 6.75615, 0.48071, 0.47698, - + 0.36804, 0.29895, 0.19336, - + 0.27005, 0.15465, 6.80596, 0.49020, 0.48818, - + 0.37936, 0.31034, 0.20641, - + 0.27364, 0.15587, 6.84102, 0.49876, 0.49833, - + 0.38964, 0.32071, 0.21836/ - DATA ((F(I,22,M), I=1,8), M=15,19) / - + 0.27701, 0.15701, 6.86364, 0.50650, 0.50753, - + 0.39901, 0.33018, 0.22932, - + 0.28018, 0.15806, 6.87611, 0.51350, 0.51589, - + 0.40755, 0.33885, 0.23941, - + 0.28316, 0.15904, 6.88028, 0.51983, 0.52349, - + 0.41536, 0.34678, 0.24869, - + 0.28598, 0.15995, 6.87716, 0.52557, 0.53041, - + 0.42251, 0.35407, 0.25727, - + 0.28865, 0.16080, 6.86762, 0.53078, 0.53673, - + 0.42906, 0.36076, 0.26520/ - DATA ((F(I,23,M), I=1,8), M=1,7) / - + 0.22701, 0.14202, 3.41997, 0.25375, 0.23919, - + 0.12144, 0.04680, 0.00000, - + 0.23908, 0.14665, 4.09091, 0.28231, 0.27353, - + 0.15544, 0.08057, 0.00000, - + 0.24931, 0.15047, 4.57827, 0.30642, 0.30233, - + 0.18418, 0.10927, 0.00000, - + 0.25810, 0.15368, 4.89536, 0.32703, 0.32680, - + 0.20879, 0.13397, 0.02303, - + 0.26586, 0.15645, 5.12029, 0.34467, 0.34775, - + 0.23000, 0.15534, 0.04758, - + 0.27280, 0.15888, 5.28339, 0.35983, 0.36577, - + 0.24838, 0.17395, 0.06906, - + 0.27906, 0.16103, 5.39991, 0.37292, 0.38136, - + 0.26439, 0.19022, 0.08797/ - DATA ((F(I,23,M), I=1,8), M=8,14) / - + 0.28474, 0.16293, 5.48102, 0.38425, 0.39491, - + 0.27840, 0.20453, 0.10470, - + 0.28992, 0.16464, 5.53476, 0.39411, 0.40672, - + 0.29072, 0.21716, 0.11957, - + 0.29466, 0.16617, 5.56693, 0.40269, 0.41706, - + 0.30158, 0.22836, 0.13285, - + 0.29903, 0.16755, 5.58279, 0.41019, 0.42614, - + 0.31120, 0.23832, 0.14474, - + 0.30306, 0.16879, 5.58542, 0.41676, 0.43412, - + 0.31974, 0.24720, 0.15545, - + 0.30679, 0.16993, 5.57780, 0.42250, 0.44116, - + 0.32733, 0.25515, 0.16510, - + 0.31026, 0.17096, 5.56214, 0.42755, 0.44738, - + 0.33411, 0.26229, 0.17384/ - DATA ((F(I,23,M), I=1,8), M=15,19) / - + 0.31349, 0.17190, 5.53996, 0.43197, 0.45287, - + 0.34016, 0.26870, 0.18177, - + 0.31651, 0.17276, 5.51282, 0.43584, 0.45773, - + 0.34558, 0.27447, 0.18899, - + 0.31933, 0.17355, 5.48195, 0.43924, 0.46203, - + 0.35044, 0.27969, 0.19556, - + 0.32198, 0.17427, 5.44784, 0.44222, 0.46583, - + 0.35480, 0.28440, 0.20157, - + 0.32446, 0.17494, 5.41096, 0.44481, 0.46919, - + 0.35872, 0.28866, 0.20707/ - DATA ((F(I,24,M), I=1,8), M=1,7) / - + 0.25805, 0.15661, 3.61604, 0.24183, 0.24991, - + 0.12355, 0.04346, 0.00000, - + 0.27056, 0.16108, 4.08810, 0.26576, 0.27867, - + 0.15308, 0.07347, 0.00000, - + 0.28105, 0.16472, 4.40698, 0.28521, 0.30193, - + 0.17724, 0.09819, 0.00000, - + 0.28996, 0.16772, 4.58618, 0.30129, 0.32109, - + 0.19735, 0.11891, 0.01986, - + 0.29776, 0.17027, 4.69552, 0.31465, 0.33701, - + 0.21427, 0.13646, 0.04066, - + 0.30468, 0.17248, 4.76074, 0.32579, 0.35032, - + 0.22859, 0.15142, 0.05857, - + 0.31086, 0.17439, 4.79424, 0.33513, 0.36152, - + 0.24081, 0.16427, 0.07409/ - DATA ((F(I,24,M), I=1,8), M=8,14) / - + 0.31641, 0.17606, 4.80477, 0.34298, 0.37098, - + 0.25127, 0.17538, 0.08763, - + 0.32143, 0.17753, 4.79839, 0.34960, 0.37900, - + 0.26028, 0.18502, 0.09952, - + 0.32599, 0.17882, 4.77928, 0.35519, 0.38581, - + 0.26807, 0.19343, 0.11001, - + 0.33016, 0.17997, 4.75130, 0.35992, 0.39161, - + 0.27483, 0.20079, 0.11930, - + 0.33397, 0.18099, 4.71643, 0.36391, 0.39655, - + 0.28071, 0.20726, 0.12757, - + 0.33747, 0.18189, 4.67672, 0.36727, 0.40075, - + 0.28583, 0.21297, 0.13495, - + 0.34070, 0.18270, 4.63357, 0.37009, 0.40432, - + 0.29030, 0.21801, 0.14157/ - DATA ((F(I,24,M), I=1,8), M=15,19) / - + 0.34368, 0.18342, 4.58788, 0.37245, 0.40735, - + 0.29420, 0.22247, 0.14751, - + 0.34644, 0.18407, 4.54064, 0.37441, 0.40991, - + 0.29762, 0.22642, 0.15287, - + 0.34900, 0.18464, 4.49256, 0.37603, 0.41206, - + 0.30061, 0.22994, 0.15771, - + 0.35138, 0.18516, 4.44384, 0.37735, 0.41385, - + 0.30321, 0.23307, 0.16209, - + 0.35360, 0.18562, 4.39463, 0.37839, 0.41532, - + 0.30548, 0.23584, 0.16605/ - DATA ((F(I,25,M), I=1,8), M=1,7) / - + 0.28652, 0.16943, 3.71098, 0.22790, 0.25458, - + 0.12319, 0.03991, 0.00000, - + 0.29918, 0.17365, 4.01652, 0.24791, 0.27828, - + 0.14866, 0.06650, 0.00000, - + 0.30968, 0.17702, 4.20179, 0.26360, 0.29679, - + 0.16890, 0.08783, 0.00000, - + 0.31851, 0.17974, 4.27702, 0.27616, 0.31156, - + 0.18533, 0.10532, 0.01721, - + 0.32616, 0.18201, 4.30272, 0.28628, 0.32345, - + 0.19884, 0.11985, 0.03499, - + 0.33288, 0.18392, 4.29972, 0.29446, 0.33308, - + 0.21004, 0.13203, 0.05007, - + 0.33882, 0.18556, 4.27739, 0.30109, 0.34092, - + 0.21938, 0.14233, 0.06299/ - DATA ((F(I,25,M), I=1,8), M=8,14) / - + 0.34411, 0.18695, 4.24209, 0.30648, 0.34731, - + 0.22722, 0.15108, 0.07414, - + 0.34885, 0.18815, 4.19800, 0.31086, 0.35252, - + 0.23383, 0.15858, 0.08381, - + 0.35312, 0.18918, 4.14787, 0.31441, 0.35677, - + 0.23941, 0.16502, 0.09227, - + 0.35698, 0.19007, 4.09431, 0.31727, 0.36022, - + 0.24416, 0.17058, 0.09969, - + 0.36048, 0.19084, 4.03841, 0.31956, 0.36300, - + 0.24818, 0.17540, 0.10623, - + 0.36366, 0.19150, 3.98142, 0.32136, 0.36522, - + 0.25161, 0.17958, 0.11202, - + 0.36657, 0.19206, 3.92414, 0.32276, 0.36696, - + 0.25451, 0.18322, 0.11717/ - DATA ((F(I,25,M), I=1,8), M=15,19) / - + 0.36923, 0.19255, 3.86699, 0.32382, 0.36831, - + 0.25698, 0.18640, 0.12176, - + 0.37166, 0.19297, 3.81048, 0.32458, 0.36931, - + 0.25906, 0.18917, 0.12585, - + 0.37390, 0.19332, 3.75497, 0.32510, 0.37002, - + 0.26082, 0.19159, 0.12953, - + 0.37596, 0.19362, 3.70045, 0.32540, 0.37048, - + 0.26230, 0.19371, 0.13283, - + 0.37786, 0.19387, 3.64689, 0.32550, 0.37071, - + 0.26351, 0.19555, 0.13579/ - DATA ((F(I,26,M), I=1,8), M=1,7) / - + 0.31298, 0.18097, 3.71178, 0.21400, 0.25493, - + 0.12118, 0.03641, 0.00000, - + 0.32557, 0.18485, 3.88704, 0.23079, 0.27427, - + 0.14312, 0.05999, 0.00000, - + 0.33590, 0.18788, 3.97321, 0.24355, 0.28888, - + 0.16015, 0.07855, 0.00000, - + 0.34448, 0.19028, 3.97550, 0.25348, 0.30016, - + 0.17368, 0.09350, 0.01504, - + 0.35184, 0.19222, 3.94510, 0.26125, 0.30896, - + 0.18458, 0.10574, 0.03042, - + 0.35823, 0.19383, 3.89825, 0.26732, 0.31582, - + 0.19344, 0.11587, 0.04334, - + 0.36384, 0.19515, 3.84153, 0.27208, 0.32117, - + 0.20069, 0.12431, 0.05429/ - DATA ((F(I,26,M), I=1,8), M=8,14) / - + 0.36877, 0.19625, 3.77918, 0.27581, 0.32534, - + 0.20665, 0.13141, 0.06367, - + 0.37315, 0.19716, 3.71382, 0.27869, 0.32856, - + 0.21157, 0.13741, 0.07174, - + 0.37705, 0.19791, 3.64709, 0.28090, 0.33100, - + 0.21564, 0.14250, 0.07874, - + 0.38053, 0.19853, 3.58053, 0.28256, 0.33283, - + 0.21900, 0.14685, 0.08484, - + 0.38366, 0.19903, 3.51463, 0.28377, 0.33413, - + 0.22179, 0.15057, 0.09018, - + 0.38647, 0.19944, 3.45004, 0.28461, 0.33501, - + 0.22408, 0.15376, 0.09488, - + 0.38901, 0.19976, 3.38708, 0.28513, 0.33555, - + 0.22597, 0.15650, 0.09903/ - DATA ((F(I,26,M), I=1,8), M=15,19) / - + 0.39130, 0.20001, 3.32588, 0.28540, 0.33578, - + 0.22750, 0.15885, 0.10270, - + 0.39338, 0.20020, 3.26660, 0.28544, 0.33577, - + 0.22873, 0.16088, 0.10596, - + 0.39526, 0.20033, 3.20938, 0.28531, 0.33555, - + 0.22972, 0.16262, 0.10886, - + 0.39696, 0.20041, 3.15404, 0.28502, 0.33516, - + 0.23048, 0.16412, 0.11145, - + 0.39851, 0.20044, 3.10048, 0.28460, 0.33461, - + 0.23104, 0.16539, 0.11376/ - DATA ((F(I,27,M), I=1,8), M=1,7) / - + 0.33758, 0.19129, 3.64552, 0.19982, 0.25223, - + 0.11798, 0.03290, 0.00000, - + 0.34990, 0.19476, 3.71326, 0.21377, 0.26761, - + 0.13668, 0.05370, 0.00000, - + 0.35989, 0.19741, 3.72063, 0.22403, 0.27879, - + 0.15086, 0.06978, 0.00000, - + 0.36809, 0.19943, 3.66750, 0.23176, 0.28708, - + 0.16188, 0.08252, 0.01311, - + 0.37504, 0.20102, 3.59604, 0.23761, 0.29325, - + 0.17058, 0.09283, 0.02638, - + 0.38101, 0.20228, 3.51830, 0.24200, 0.29781, - + 0.17750, 0.10124, 0.03743, - + 0.38618, 0.20327, 3.43830, 0.24529, 0.30114, - + 0.18303, 0.10817, 0.04673/ - DATA ((F(I,27,M), I=1,8), M=8,14) / - + 0.39068, 0.20405, 3.35845, 0.24772, 0.30352, - + 0.18748, 0.11393, 0.05462, - + 0.39462, 0.20466, 3.28004, 0.24947, 0.30514, - + 0.19106, 0.11874, 0.06137, - + 0.39809, 0.20511, 3.20375, 0.25068, 0.30617, - + 0.19393, 0.12278, 0.06718, - + 0.40114, 0.20545, 3.13029, 0.25145, 0.30673, - + 0.19623, 0.12618, 0.07222, - + 0.40384, 0.20568, 3.05964, 0.25187, 0.30690, - + 0.19806, 0.12906, 0.07660, - + 0.40624, 0.20583, 2.99198, 0.25201, 0.30676, - + 0.19949, 0.13150, 0.08042, - + 0.40836, 0.20590, 2.92727, 0.25191, 0.30637, - + 0.20060, 0.13356, 0.08378/ - DATA ((F(I,27,M), I=1,8), M=15,19) / - + 0.41025, 0.20590, 2.86540, 0.25162, 0.30577, - + 0.20144, 0.13530, 0.08674, - + 0.41193, 0.20585, 2.80630, 0.25118, 0.30501, - + 0.20205, 0.13678, 0.08934, - + 0.41342, 0.20576, 2.74990, 0.25060, 0.30411, - + 0.20246, 0.13802, 0.09165, - + 0.41474, 0.20562, 2.69596, 0.24992, 0.30310, - + 0.20271, 0.13907, 0.09370, - + 0.41592, 0.20544, 2.64428, 0.24914, 0.30199, - + 0.20281, 0.13993, 0.09551/ - DATA ((F(I,28,M), I=1,8), M=1,7) / - + 0.36072, 0.20071, 3.52192, 0.18680, 0.24754, - + 0.11419, 0.02968, 0.00000, - + 0.37262, 0.20374, 3.51101, 0.19842, 0.25959, - + 0.13014, 0.04809, 0.00000, - + 0.38215, 0.20596, 3.46359, 0.20670, 0.26797, - + 0.14198, 0.06213, 0.00000, - + 0.38986, 0.20758, 3.37454, 0.21276, 0.27389, - + 0.15101, 0.07312, 0.01151, - + 0.39632, 0.20879, 3.27800, 0.21717, 0.27803, - + 0.15800, 0.08191, 0.02309, - + 0.40180, 0.20969, 3.18257, 0.22035, 0.28084, - + 0.16344, 0.08902, 0.03266, - + 0.40647, 0.21034, 3.09021, 0.22259, 0.28265, - + 0.16769, 0.09482, 0.04066/ - DATA ((F(I,28,M), I=1,8), M=8,14) / - + 0.41048, 0.21079, 3.00190, 0.22411, 0.28370, - + 0.17102, 0.09959, 0.04741, - + 0.41393, 0.21108, 2.91794, 0.22508, 0.28417, - + 0.17362, 0.10355, 0.05315, - + 0.41692, 0.21124, 2.83833, 0.22561, 0.28418, - + 0.17563, 0.10683, 0.05807, - + 0.41950, 0.21129, 2.76316, 0.22580, 0.28384, - + 0.17718, 0.10957, 0.06231, - + 0.42175, 0.21125, 2.69208, 0.22571, 0.28322, - + 0.17834, 0.11186, 0.06598, - + 0.42370, 0.21114, 2.62492, 0.22539, 0.28237, - + 0.17919, 0.11378, 0.06917, - + 0.42539, 0.21096, 2.56145, 0.22491, 0.28136, - + 0.17977, 0.11538, 0.07195/ - DATA ((F(I,28,M), I=1,8), M=15,19) / - + 0.42685, 0.21072, 2.50137, 0.22428, 0.28020, - + 0.18014, 0.11671, 0.07439, - + 0.42811, 0.21044, 2.44448, 0.22353, 0.27893, - + 0.18033, 0.11782, 0.07653, - + 0.42920, 0.21012, 2.39057, 0.22270, 0.27759, - + 0.18037, 0.11875, 0.07842, - + 0.43013, 0.20977, 2.33938, 0.22179, 0.27617, - + 0.18028, 0.11950, 0.08008, - + 0.43092, 0.20939, 2.29067, 0.22081, 0.27470, - + 0.18008, 0.12010, 0.08154/ - DATA ((F(I,29,M), I=1,8), M=1,7) / - + 0.38246, 0.20928, 3.35938, 0.17460, 0.24137, - + 0.10996, 0.02668, 0.00000, - + 0.39382, 0.21182, 3.29066, 0.18425, 0.25055, - + 0.12351, 0.04300, 0.00000, - + 0.40278, 0.21358, 3.20524, 0.19093, 0.25658, - + 0.13338, 0.05530, 0.00000, - + 0.40992, 0.21478, 3.09351, 0.19566, 0.26056, - + 0.14077, 0.06484, 0.01015, - + 0.41581, 0.21560, 2.98257, 0.19897, 0.26308, - + 0.14638, 0.07241, 0.02030, - + 0.42072, 0.21612, 2.87809, 0.20122, 0.26451, - + 0.15065, 0.07848, 0.02864, - + 0.42484, 0.21642, 2.78042, 0.20268, 0.26515, - + 0.15391, 0.08340, 0.03559/ - DATA ((F(I,29,M), I=1,8), M=8,14) / - + 0.42831, 0.21654, 2.68940, 0.20356, 0.26520, - + 0.15639, 0.08742, 0.04142, - + 0.43124, 0.21651, 2.60461, 0.20397, 0.26480, - + 0.15826, 0.09072, 0.04637, - + 0.43371, 0.21637, 2.52554, 0.20403, 0.26406, - + 0.15964, 0.09345, 0.05058, - + 0.43580, 0.21614, 2.45182, 0.20382, 0.26307, - + 0.16063, 0.09570, 0.05420, - + 0.43757, 0.21582, 2.38290, 0.20339, 0.26187, - + 0.16131, 0.09757, 0.05732, - + 0.43904, 0.21544, 2.31838, 0.20279, 0.26053, - + 0.16174, 0.09911, 0.06002, - + 0.44028, 0.21502, 2.25787, 0.20206, 0.25908, - + 0.16195, 0.10039, 0.06237/ - DATA ((F(I,29,M), I=1,8), M=15,19) / - + 0.44130, 0.21454, 2.20101, 0.20121, 0.25754, - + 0.16200, 0.10144, 0.06442, - + 0.44213, 0.21403, 2.14747, 0.20029, 0.25593, - + 0.16190, 0.10230, 0.06622, - + 0.44281, 0.21350, 2.09699, 0.19931, 0.25429, - + 0.16169, 0.10300, 0.06779, - + 0.44333, 0.21294, 2.04927, 0.19827, 0.25261, - + 0.16139, 0.10356, 0.06917, - + 0.44373, 0.21235, 2.00409, 0.19719, 0.25091, - + 0.16099, 0.10400, 0.07038/ - DATA ((F(I,30,M), I=1,8), M=1,7) / - + 0.40282, 0.21699, 3.17493, 0.16270, 0.23409, - + 0.10538, 0.02382, 0.00000, - + 0.41351, 0.21900, 3.06012, 0.17055, 0.24066, - + 0.11672, 0.03817, 0.00000, - + 0.42181, 0.22028, 2.94542, 0.17579, 0.24459, - + 0.12480, 0.04887, 0.00000, - + 0.42830, 0.22104, 2.81744, 0.17934, 0.24685, - + 0.13071, 0.05710, 0.00888, - + 0.43355, 0.22144, 2.69697, 0.18168, 0.24794, - + 0.13509, 0.06357, 0.01773, - + 0.43784, 0.22158, 2.58721, 0.18314, 0.24817, - + 0.13833, 0.06871, 0.02496, - + 0.44136, 0.22151, 2.48711, 0.18394, 0.24780, - + 0.14072, 0.07285, 0.03094/ - DATA ((F(I,30,M), I=1,8), M=8,14) / - + 0.44425, 0.22129, 2.39564, 0.18426, 0.24699, - + 0.14246, 0.07621, 0.03595, - + 0.44661, 0.22094, 2.31176, 0.18421, 0.24585, - + 0.14369, 0.07894, 0.04017, - + 0.44855, 0.22050, 2.23458, 0.18387, 0.24448, - + 0.14453, 0.08117, 0.04375, - + 0.45011, 0.21997, 2.16337, 0.18333, 0.24294, - + 0.14505, 0.08300, 0.04682, - + 0.45137, 0.21939, 2.09742, 0.18263, 0.24128, - + 0.14532, 0.08450, 0.04945, - + 0.45236, 0.21875, 2.03616, 0.18179, 0.23952, - + 0.14539, 0.08573, 0.05173, - + 0.45312, 0.21807, 1.97910, 0.18086, 0.23771, - + 0.14530, 0.08673, 0.05369/ - DATA ((F(I,30,M), I=1,8), M=15,19) / - + 0.45368, 0.21736, 1.92579, 0.17986, 0.23586, - + 0.14508, 0.08754, 0.05540, - + 0.45408, 0.21663, 1.87585, 0.17880, 0.23399, - + 0.14475, 0.08819, 0.05689, - + 0.45432, 0.21588, 1.82897, 0.17770, 0.23211, - + 0.14434, 0.08870, 0.05818, - + 0.45444, 0.21511, 1.78484, 0.17657, 0.23022, - + 0.14385, 0.08910, 0.05932, - + 0.45443, 0.21433, 1.74323, 0.17542, 0.22834, - + 0.14330, 0.08939, 0.06030/ - DATA ((F(I,31,M), I=1,8), M=1,7) / - + 0.42218, 0.22417, 2.97365, 0.15296, 0.22659, - + 0.10103, 0.02145, 0.00000, - + 0.43211, 0.22564, 2.83691, 0.15949, 0.23119, - + 0.11067, 0.03428, 0.00000, - + 0.43967, 0.22642, 2.71085, 0.16371, 0.23361, - + 0.11743, 0.04380, 0.00000, - + 0.44546, 0.22673, 2.57958, 0.16647, 0.23467, - + 0.12230, 0.05109, 0.00793, - + 0.45003, 0.22672, 2.45928, 0.16819, 0.23479, - + 0.12584, 0.05680, 0.01581, - + 0.45367, 0.22647, 2.35157, 0.16914, 0.23423, - + 0.12840, 0.06132, 0.02223, - + 0.45657, 0.22605, 2.25464, 0.16954, 0.23321, - + 0.13022, 0.06494, 0.02754/ - DATA ((F(I,31,M), I=1,8), M=8,14) / - + 0.45885, 0.22549, 2.16694, 0.16953, 0.23185, - + 0.13148, 0.06787, 0.03197, - + 0.46065, 0.22483, 2.08718, 0.16922, 0.23027, - + 0.13232, 0.07024, 0.03570, - + 0.46203, 0.22409, 2.01429, 0.16867, 0.22852, - + 0.13282, 0.07217, 0.03885, - + 0.46306, 0.22328, 1.94736, 0.16796, 0.22666, - + 0.13307, 0.07375, 0.04155, - + 0.46381, 0.22243, 1.88566, 0.16712, 0.22473, - + 0.13310, 0.07503, 0.04385, - + 0.46431, 0.22155, 1.82856, 0.16618, 0.22276, - + 0.13297, 0.07607, 0.04584, - + 0.46460, 0.22063, 1.77553, 0.16516, 0.22076, - + 0.13271, 0.07691, 0.04756/ - DATA ((F(I,31,M), I=1,8), M=15,19) / - + 0.46471, 0.21970, 1.72611, 0.16409, 0.21874, - + 0.13235, 0.07758, 0.04904, - + 0.46467, 0.21875, 1.67993, 0.16298, 0.21674, - + 0.13189, 0.07811, 0.05033, - + 0.46450, 0.21780, 1.63665, 0.16185, 0.21474, - + 0.13137, 0.07853, 0.05145, - + 0.46421, 0.21684, 1.59599, 0.16069, 0.21277, - + 0.13080, 0.07885, 0.05243, - + 0.46382, 0.21587, 1.55770, 0.15952, 0.21081, - + 0.13018, 0.07907, 0.05327/ - DATA ((F(I,32,M), I=1,8), M=1,7) / - + 0.44035, 0.23064, 2.76589, 0.14354, 0.21851, - + 0.09652, 0.01921, 0.00000, - + 0.44943, 0.23153, 2.61401, 0.14885, 0.22133, - + 0.10461, 0.03063, 0.00000, - + 0.45618, 0.23180, 2.48129, 0.15216, 0.22239, - + 0.11018, 0.03907, 0.00000, - + 0.46121, 0.23165, 2.34989, 0.15422, 0.22239, - + 0.11412, 0.04549, 0.00705, - + 0.46506, 0.23122, 2.23202, 0.15538, 0.22167, - + 0.11691, 0.05051, 0.01404, - + 0.46801, 0.23058, 2.12799, 0.15590, 0.22043, - + 0.11886, 0.05448, 0.01973, - + 0.47025, 0.22979, 2.03538, 0.15596, 0.21885, - + 0.12018, 0.05764, 0.02441/ - DATA ((F(I,32,M), I=1,8), M=8,14) / - + 0.47191, 0.22890, 1.95230, 0.15567, 0.21704, - + 0.12103, 0.06018, 0.02832, - + 0.47311, 0.22792, 1.87724, 0.15514, 0.21508, - + 0.12153, 0.06224, 0.03160, - + 0.47391, 0.22688, 1.80903, 0.15442, 0.21302, - + 0.12175, 0.06390, 0.03436, - + 0.47441, 0.22580, 1.74667, 0.15357, 0.21091, - + 0.12175, 0.06525, 0.03672, - + 0.47463, 0.22469, 1.68939, 0.15262, 0.20876, - + 0.12159, 0.06634, 0.03874, - + 0.47463, 0.22356, 1.63654, 0.15159, 0.20661, - + 0.12129, 0.06722, 0.04047, - + 0.47445, 0.22241, 1.58758, 0.15051, 0.20446, - + 0.12089, 0.06792, 0.04196/ - DATA ((F(I,32,M), I=1,8), M=15,19) / - + 0.47410, 0.22126, 1.54206, 0.14940, 0.20233, - + 0.12041, 0.06848, 0.04325, - + 0.47362, 0.22011, 1.49959, 0.14825, 0.20022, - + 0.11985, 0.06891, 0.04436, - + 0.47302, 0.21895, 1.45985, 0.14710, 0.19815, - + 0.11925, 0.06925, 0.04533, - + 0.47232, 0.21780, 1.42256, 0.14593, 0.19611, - + 0.11861, 0.06949, 0.04616, - + 0.47154, 0.21665, 1.38751, 0.14476, 0.19410, - + 0.11793, 0.06966, 0.04689/ - DATA ((F(I,33,M), I=1,8), M=1,7) / - + 0.45742, 0.23645, 2.55778, 0.13453, 0.21008, - + 0.09197, 0.01712, 0.00000, - + 0.46558, 0.23675, 2.39641, 0.13875, 0.21132, - + 0.09865, 0.02725, 0.00000, - + 0.47147, 0.23650, 2.26071, 0.14125, 0.21117, - + 0.10315, 0.03469, 0.00000, - + 0.47569, 0.23588, 2.13150, 0.14268, 0.21025, - + 0.10625, 0.04034, 0.00625, - + 0.47878, 0.23502, 2.01759, 0.14335, 0.20879, - + 0.10837, 0.04473, 0.01242, - + 0.48101, 0.23399, 1.91823, 0.14349, 0.20696, - + 0.10978, 0.04819, 0.01743, - + 0.48257, 0.23285, 1.83060, 0.14324, 0.20491, - + 0.11067, 0.05094, 0.02156/ - DATA ((F(I,33,M), I=1,8), M=8,14) / - + 0.48358, 0.23161, 1.75253, 0.14273, 0.20272, - + 0.11117, 0.05314, 0.02498, - + 0.48416, 0.23032, 1.68242, 0.14201, 0.20044, - + 0.11137, 0.05491, 0.02785, - + 0.48438, 0.22899, 1.61900, 0.14114, 0.19812, - + 0.11134, 0.05633, 0.03027, - + 0.48432, 0.22764, 1.56122, 0.14018, 0.19580, - + 0.11114, 0.05748, 0.03232, - + 0.48401, 0.22627, 1.50833, 0.13913, 0.19348, - + 0.11081, 0.05841, 0.03407, - + 0.48351, 0.22490, 1.45964, 0.13804, 0.19119, - + 0.11037, 0.05914, 0.03557, - + 0.48284, 0.22352, 1.41463, 0.13691, 0.18893, - + 0.10985, 0.05973, 0.03686/ - DATA ((F(I,33,M), I=1,8), M=15,19) / - + 0.48203, 0.22216, 1.37286, 0.13576, 0.18670, - + 0.10926, 0.06018, 0.03797, - + 0.48111, 0.22080, 1.33395, 0.13459, 0.18453, - + 0.10863, 0.06053, 0.03892, - + 0.48008, 0.21945, 1.29758, 0.13343, 0.18240, - + 0.10797, 0.06079, 0.03975, - + 0.47898, 0.21812, 1.26351, 0.13226, 0.18032, - + 0.10727, 0.06097, 0.04046, - + 0.47780, 0.21680, 1.23151, 0.13109, 0.17828, - + 0.10655, 0.06109, 0.04107/ - DATA ((F(I,34,M), I=1,8), M=1,7) / - + 0.47366, 0.24184, 2.36185, 0.12726, 0.20213, - + 0.08789, 0.01548, 0.00000, - + 0.48084, 0.24155, 2.20305, 0.13067, 0.20221, - + 0.09351, 0.02462, 0.00000, - + 0.48583, 0.24078, 2.07223, 0.13258, 0.20123, - + 0.09724, 0.03133, 0.00000, - + 0.48922, 0.23969, 1.95004, 0.13358, 0.19967, - + 0.09974, 0.03641, 0.00564, - + 0.49153, 0.23841, 1.84318, 0.13392, 0.19772, - + 0.10140, 0.04036, 0.01121, - + 0.49303, 0.23700, 1.75048, 0.13381, 0.19551, - + 0.10245, 0.04346, 0.01573, - + 0.49389, 0.23550, 1.66902, 0.13337, 0.19316, - + 0.10304, 0.04592, 0.01944/ - DATA ((F(I,34,M), I=1,8), M=8,14) / - + 0.49426, 0.23394, 1.59663, 0.13271, 0.19073, - + 0.10330, 0.04789, 0.02252, - + 0.49422, 0.23234, 1.53174, 0.13188, 0.18827, - + 0.10331, 0.04946, 0.02509, - + 0.49386, 0.23073, 1.47311, 0.13093, 0.18581, - + 0.10313, 0.05073, 0.02726, - + 0.49325, 0.22912, 1.41975, 0.12990, 0.18338, - + 0.10281, 0.05174, 0.02910, - + 0.49242, 0.22751, 1.37093, 0.12881, 0.18097, - + 0.10237, 0.05255, 0.03066, - + 0.49142, 0.22590, 1.32601, 0.12768, 0.17861, - + 0.10185, 0.05320, 0.03199, - + 0.49027, 0.22431, 1.28449, 0.12654, 0.17630, - + 0.10126, 0.05370, 0.03314/ - DATA ((F(I,34,M), I=1,8), M=15,19) / - + 0.48901, 0.22274, 1.24597, 0.12537, 0.17405, - + 0.10063, 0.05409, 0.03412, - + 0.48766, 0.22119, 1.21009, 0.12421, 0.17185, - + 0.09995, 0.05439, 0.03496, - + 0.48622, 0.21966, 1.17656, 0.12305, 0.16971, - + 0.09926, 0.05460, 0.03569, - + 0.48472, 0.21816, 1.14515, 0.12189, 0.16763, - + 0.09854, 0.05475, 0.03632, - + 0.48317, 0.21668, 1.11566, 0.12074, 0.16559, - + 0.09780, 0.05483, 0.03685/ - DATA ((F(I,35,M), I=1,8), M=1,7) / - + 0.48895, 0.24669, 2.17187, 0.12045, 0.19410, - + 0.08386, 0.01400, 0.00000, - + 0.49510, 0.24579, 2.01927, 0.12315, 0.19320, - + 0.08856, 0.02225, 0.00000, - + 0.49914, 0.24449, 1.89557, 0.12456, 0.19150, - + 0.09161, 0.02830, 0.00000, - + 0.50166, 0.24294, 1.78160, 0.12518, 0.18941, - + 0.09361, 0.03289, 0.00510, - + 0.50317, 0.24124, 1.68250, 0.12525, 0.18706, - + 0.09487, 0.03644, 0.01013, - + 0.50392, 0.23944, 1.59682, 0.12492, 0.18455, - + 0.09561, 0.03923, 0.01421, - + 0.50408, 0.23759, 1.52169, 0.12433, 0.18196, - + 0.09595, 0.04144, 0.01755/ - DATA ((F(I,35,M), I=1,8), M=8,14) / - + 0.50378, 0.23571, 1.45501, 0.12354, 0.17935, - + 0.09602, 0.04320, 0.02032, - + 0.50312, 0.23382, 1.39527, 0.12262, 0.17676, - + 0.09587, 0.04461, 0.02264, - + 0.50218, 0.23194, 1.34132, 0.12160, 0.17419, - + 0.09557, 0.04574, 0.02458, - + 0.50101, 0.23007, 1.29221, 0.12053, 0.17167, - + 0.09514, 0.04664, 0.02623, - + 0.49965, 0.22821, 1.24728, 0.11941, 0.16921, - + 0.09463, 0.04735, 0.02763, - + 0.49815, 0.22639, 1.20592, 0.11827, 0.16682, - + 0.09404, 0.04792, 0.02882, - + 0.49654, 0.22459, 1.16769, 0.11711, 0.16448, - + 0.09341, 0.04836, 0.02984/ - DATA ((F(I,35,M), I=1,8), M=15,19) / - + 0.49483, 0.22282, 1.13221, 0.11594, 0.16222, - + 0.09273, 0.04869, 0.03071, - + 0.49304, 0.22109, 1.09916, 0.11478, 0.16002, - + 0.09203, 0.04894, 0.03146, - + 0.49120, 0.21938, 1.06826, 0.11363, 0.15788, - + 0.09131, 0.04912, 0.03210, - + 0.48931, 0.21772, 1.03931, 0.11249, 0.15581, - + 0.09058, 0.04923, 0.03265, - + 0.48739, 0.21608, 1.01213, 0.11136, 0.15380, - + 0.08983, 0.04929, 0.03312/ - DATA ((F(I,36,M), I=1,8), M=1,7) / - + 0.50330, 0.25100, 1.98896, 0.11390, 0.18599, - + 0.07987, 0.01261, 0.00000, - + 0.50836, 0.24949, 1.84400, 0.11595, 0.18420, - + 0.08372, 0.02004, 0.00000, - + 0.51143, 0.24766, 1.72809, 0.11689, 0.18187, - + 0.08615, 0.02548, 0.00000, - + 0.51306, 0.24565, 1.62253, 0.11717, 0.17932, - + 0.08768, 0.02960, 0.00460, - + 0.51374, 0.24353, 1.53116, 0.11698, 0.17662, - + 0.08859, 0.03280, 0.00913, - + 0.51372, 0.24135, 1.45237, 0.11647, 0.17384, - + 0.08904, 0.03530, 0.01279, - + 0.51316, 0.23916, 1.38338, 0.11573, 0.17106, - + 0.08917, 0.03728, 0.01580/ - DATA ((F(I,36,M), I=1,8), M=8,14) / - + 0.51220, 0.23696, 1.32219, 0.11484, 0.16830, - + 0.08907, 0.03885, 0.01828, - + 0.51091, 0.23478, 1.26738, 0.11384, 0.16559, - + 0.08878, 0.04010, 0.02036, - + 0.50938, 0.23262, 1.21787, 0.11277, 0.16294, - + 0.08836, 0.04110, 0.02209, - + 0.50765, 0.23050, 1.17279, 0.11165, 0.16037, - + 0.08785, 0.04189, 0.02356, - + 0.50577, 0.22842, 1.13153, 0.11051, 0.15787, - + 0.08727, 0.04252, 0.02481, - + 0.50377, 0.22638, 1.09353, 0.10935, 0.15545, - + 0.08663, 0.04301, 0.02586, - + 0.50169, 0.22438, 1.05840, 0.10818, 0.15311, - + 0.08595, 0.04339, 0.02677/ - DATA ((F(I,36,M), I=1,8), M=15,19) / - + 0.49953, 0.22242, 1.02578, 0.10702, 0.15084, - + 0.08524, 0.04367, 0.02753, - + 0.49732, 0.22051, 0.99538, 0.10587, 0.14865, - + 0.08452, 0.04388, 0.02819, - + 0.49508, 0.21864, 0.96696, 0.10473, 0.14653, - + 0.08379, 0.04402, 0.02875, - + 0.49281, 0.21681, 0.94032, 0.10361, 0.14448, - + 0.08304, 0.04411, 0.02923, - + 0.49051, 0.21502, 0.91530, 0.10250, 0.14249, - + 0.08230, 0.04414, 0.02964/ - DATA ((F(I,37,M), I=1,8), M=1,7) / - + 0.51683, 0.25488, 1.82071, 0.10799, 0.17815, - + 0.07608, 0.01140, 0.00000, - + 0.52077, 0.25276, 1.68544, 0.10947, 0.17563, - + 0.07922, 0.01811, 0.00000, - + 0.52283, 0.25040, 1.57822, 0.11002, 0.17279, - + 0.08113, 0.02304, 0.00000, - + 0.52355, 0.24793, 1.48123, 0.11002, 0.16987, - + 0.08228, 0.02676, 0.00416, - + 0.52340, 0.24540, 1.39743, 0.10962, 0.16690, - + 0.08289, 0.02964, 0.00826, - + 0.52261, 0.24285, 1.32522, 0.10895, 0.16393, - + 0.08312, 0.03190, 0.01157, - + 0.52133, 0.24031, 1.26196, 0.10809, 0.16100, - + 0.08306, 0.03367, 0.01428/ - DATA ((F(I,37,M), I=1,8), M=8,14) / - + 0.51969, 0.23781, 1.20583, 0.10711, 0.15813, - + 0.08282, 0.03508, 0.01651, - + 0.51778, 0.23535, 1.15550, 0.10605, 0.15535, - + 0.08242, 0.03620, 0.01838, - + 0.51566, 0.23293, 1.10999, 0.10493, 0.15265, - + 0.08192, 0.03709, 0.01994, - + 0.51338, 0.23057, 1.06852, 0.10379, 0.15004, - + 0.08134, 0.03779, 0.02125, - + 0.51099, 0.22826, 1.03052, 0.10262, 0.14752, - + 0.08070, 0.03834, 0.02236, - + 0.50850, 0.22602, 0.99551, 0.10145, 0.14510, - + 0.08002, 0.03877, 0.02331, - + 0.50595, 0.22382, 0.96311, 0.10029, 0.14276, - + 0.07931, 0.03910, 0.02411/ - DATA ((F(I,37,M), I=1,8), M=15,19) / - + 0.50336, 0.22168, 0.93301, 0.09913, 0.14050, - + 0.07858, 0.03934, 0.02479, - + 0.50074, 0.21960, 0.90495, 0.09799, 0.13833, - + 0.07784, 0.03951, 0.02537, - + 0.49810, 0.21758, 0.87870, 0.09686, 0.13624, - + 0.07710, 0.03962, 0.02586, - + 0.49545, 0.21560, 0.85409, 0.09576, 0.13422, - + 0.07635, 0.03968, 0.02628, - + 0.49280, 0.21367, 0.83097, 0.09467, 0.13227, - + 0.07561, 0.03970, 0.02663/ - DATA ((F(I,38,M), I=1,8), M=1,7) / - + 0.52967, 0.25844, 1.67692, 0.10321, 0.17104, - + 0.07275, 0.01047, 0.00000, - + 0.53247, 0.25571, 1.55433, 0.10429, 0.16803, - + 0.07537, 0.01665, 0.00000, - + 0.53351, 0.25283, 1.45716, 0.10455, 0.16485, - + 0.07692, 0.02119, 0.00000, - + 0.53331, 0.24991, 1.36891, 0.10435, 0.16171, - + 0.07780, 0.02462, 0.00383, - + 0.53233, 0.24698, 1.29239, 0.10380, 0.15858, - + 0.07821, 0.02728, 0.00760, - + 0.53076, 0.24408, 1.22621, 0.10302, 0.15550, - + 0.07828, 0.02935, 0.01065, - + 0.52878, 0.24122, 1.16804, 0.10208, 0.15249, - + 0.07811, 0.03098, 0.01313/ - DATA ((F(I,38,M), I=1,8), M=8,14) / - + 0.52648, 0.23842, 1.11626, 0.10104, 0.14958, - + 0.07777, 0.03227, 0.01519, - + 0.52396, 0.23569, 1.06969, 0.09994, 0.14676, - + 0.07731, 0.03329, 0.01690, - + 0.52126, 0.23303, 1.02749, 0.09879, 0.14405, - + 0.07675, 0.03410, 0.01832, - + 0.51845, 0.23044, 0.98894, 0.09763, 0.14145, - + 0.07613, 0.03473, 0.01952, - + 0.51555, 0.22793, 0.95355, 0.09645, 0.13894, - + 0.07546, 0.03523, 0.02053, - + 0.51260, 0.22548, 0.92090, 0.09528, 0.13654, - + 0.07476, 0.03561, 0.02139, - + 0.50960, 0.22311, 0.89064, 0.09412, 0.13422, - + 0.07404, 0.03590, 0.02212/ - DATA ((F(I,38,M), I=1,8), M=15,19) / - + 0.50659, 0.22080, 0.86251, 0.09297, 0.13200, - + 0.07330, 0.03611, 0.02273, - + 0.50357, 0.21857, 0.83625, 0.09184, 0.12986, - + 0.07256, 0.03625, 0.02325, - + 0.50056, 0.21639, 0.81169, 0.09073, 0.12780, - + 0.07182, 0.03634, 0.02370, - + 0.49755, 0.21428, 0.78864, 0.08964, 0.12582, - + 0.07108, 0.03639, 0.02407, - + 0.49456, 0.21222, 0.76697, 0.08856, 0.12391, - + 0.07034, 0.03639, 0.02438/ - DATA ((F(I,39,M), I=1,8), M=1,7) / - + 0.54167, 0.26152, 1.53938, 0.09853, 0.16387, - + 0.06944, 0.00959, 0.00000, - + 0.54329, 0.25819, 1.42918, 0.09922, 0.16042, - + 0.07157, 0.01527, 0.00000, - + 0.54328, 0.25480, 1.34167, 0.09921, 0.15695, - + 0.07278, 0.01944, 0.00000, - + 0.54216, 0.25143, 1.26177, 0.09881, 0.15361, - + 0.07341, 0.02259, 0.00352, - + 0.54032, 0.24811, 1.19215, 0.09813, 0.15035, - + 0.07364, 0.02502, 0.00698, - + 0.53798, 0.24485, 1.13169, 0.09724, 0.14717, - + 0.07357, 0.02692, 0.00977, - + 0.53528, 0.24167, 1.07833, 0.09623, 0.14411, - + 0.07329, 0.02841, 0.01205/ - DATA ((F(I,39,M), I=1,8), M=8,14) / - + 0.53232, 0.23859, 1.03065, 0.09514, 0.14116, - + 0.07287, 0.02959, 0.01392, - + 0.52919, 0.23560, 0.98764, 0.09400, 0.13833, - + 0.07234, 0.03052, 0.01548, - + 0.52592, 0.23270, 0.94855, 0.09283, 0.13562, - + 0.07173, 0.03125, 0.01678, - + 0.52258, 0.22989, 0.91277, 0.09165, 0.13302, - + 0.07108, 0.03182, 0.01787, - + 0.51918, 0.22717, 0.87986, 0.09046, 0.13054, - + 0.07038, 0.03226, 0.01879, - + 0.51575, 0.22454, 0.84944, 0.08929, 0.12815, - + 0.06967, 0.03260, 0.01956, - + 0.51232, 0.22200, 0.82123, 0.08813, 0.12587, - + 0.06893, 0.03285, 0.02022/ - DATA ((F(I,39,M), I=1,8), M=15,19) / - + 0.50889, 0.21953, 0.79496, 0.08699, 0.12368, - + 0.06819, 0.03303, 0.02077, - + 0.50548, 0.21714, 0.77043, 0.08587, 0.12158, - + 0.06745, 0.03314, 0.02123, - + 0.50210, 0.21483, 0.74746, 0.08478, 0.11956, - + 0.06671, 0.03322, 0.02163, - + 0.49874, 0.21258, 0.72591, 0.08370, 0.11762, - + 0.06598, 0.03324, 0.02196, - + 0.49542, 0.21041, 0.70564, 0.08265, 0.11576, - + 0.06525, 0.03323, 0.02223/ - DATA ((F(I,40,M), I=1,8), M=1,7) / - + 0.59061, 0.27130, 1.03517, 0.07969, 0.13167, - + 0.05510, 0.00658, 0.00000, - + 0.58606, 0.26504, 0.97682, 0.07907, 0.12709, - + 0.05572, 0.01048, 0.00000, - + 0.58067, 0.25920, 0.92695, 0.07815, 0.12294, - + 0.05585, 0.01334, 0.00000, - + 0.57484, 0.25375, 0.87761, 0.07710, 0.11918, - + 0.05570, 0.01548, 0.00240, - + 0.56877, 0.24861, 0.83253, 0.07593, 0.11567, - + 0.05535, 0.01712, 0.00475, - + 0.56259, 0.24375, 0.79191, 0.07470, 0.11238, - + 0.05484, 0.01837, 0.00663, - + 0.55639, 0.23914, 0.75499, 0.07343, 0.10930, - + 0.05424, 0.01934, 0.00815/ - DATA ((F(I,40,M), I=1,8), M=8,14) / - + 0.55023, 0.23477, 0.72124, 0.07216, 0.10641, - + 0.05357, 0.02008, 0.00939, - + 0.54415, 0.23062, 0.69026, 0.07090, 0.10368, - + 0.05286, 0.02065, 0.01040, - + 0.53816, 0.22667, 0.66170, 0.06966, 0.10111, - + 0.05213, 0.02109, 0.01123, - + 0.53230, 0.22291, 0.63531, 0.06844, 0.09869, - + 0.05139, 0.02141, 0.01192, - + 0.52656, 0.21933, 0.61084, 0.06725, 0.09639, - + 0.05064, 0.02165, 0.01249, - + 0.52095, 0.21590, 0.58811, 0.06609, 0.09422, - + 0.04990, 0.02181, 0.01296, - + 0.51548, 0.21262, 0.56694, 0.06497, 0.09215, - + 0.04916, 0.02192, 0.01335/ - DATA ((F(I,40,M), I=1,8), M=15,19) / - + 0.51015, 0.20948, 0.54719, 0.06388, 0.09019, - + 0.04844, 0.02198, 0.01368, - + 0.50495, 0.20647, 0.52872, 0.06282, 0.08833, - + 0.04773, 0.02200, 0.01394, - + 0.49988, 0.20358, 0.51143, 0.06180, 0.08655, - + 0.04703, 0.02199, 0.01416, - + 0.49494, 0.20080, 0.49521, 0.06081, 0.08486, - + 0.04635, 0.02195, 0.01433, - + 0.49013, 0.19813, 0.47995, 0.05986, 0.08324, - + 0.04569, 0.02189, 0.01447/ - DATA ((F(I,41,M), I=1,8), M=1,7) / - + 0.62345, 0.27336, 0.76725, 0.06603, 0.10567, - + 0.04401, 0.00494, 0.00000, - + 0.61262, 0.26449, 0.73442, 0.06472, 0.10098, - + 0.04396, 0.00783, 0.00000, - + 0.60192, 0.25652, 0.70123, 0.06332, 0.09684, - + 0.04363, 0.00990, 0.00000, - + 0.59151, 0.24930, 0.66479, 0.06192, 0.09317, - + 0.04314, 0.01143, 0.00175, - + 0.58142, 0.24265, 0.62990, 0.06051, 0.08982, - + 0.04253, 0.01256, 0.00344, - + 0.57166, 0.23648, 0.59748, 0.05910, 0.08673, - + 0.04185, 0.01341, 0.00477, - + 0.56224, 0.23074, 0.56747, 0.05772, 0.08386, - + 0.04113, 0.01404, 0.00583/ - DATA ((F(I,41,M), I=1,8), M=8,14) / - + 0.55318, 0.22537, 0.53975, 0.05638, 0.08121, - + 0.04038, 0.01451, 0.00668, - + 0.54447, 0.22033, 0.51416, 0.05508, 0.07873, - + 0.03963, 0.01485, 0.00736, - + 0.53608, 0.21559, 0.49051, 0.05383, 0.07642, - + 0.03888, 0.01509, 0.00791, - + 0.52803, 0.21113, 0.46868, 0.05262, 0.07426, - + 0.03814, 0.01526, 0.00836, - + 0.52028, 0.20691, 0.44847, 0.05147, 0.07223, - + 0.03742, 0.01536, 0.00872, - + 0.51282, 0.20292, 0.42975, 0.05036, 0.07032, - + 0.03671, 0.01542, 0.00901, - + 0.50564, 0.19913, 0.41239, 0.04930, 0.06852, - + 0.03603, 0.01543, 0.00924/ - DATA ((F(I,41,M), I=1,8), M=15,19) / - + 0.49872, 0.19552, 0.39625, 0.04828, 0.06682, - + 0.03536, 0.01542, 0.00943, - + 0.49205, 0.19209, 0.38124, 0.04730, 0.06521, - + 0.03471, 0.01538, 0.00958, - + 0.48562, 0.18881, 0.36725, 0.04636, 0.06369, - + 0.03408, 0.01532, 0.00970, - + 0.47941, 0.18569, 0.35418, 0.04546, 0.06225, - + 0.03348, 0.01524, 0.00978, - + 0.47340, 0.18269, 0.34195, 0.04460, 0.06087, - + 0.03289, 0.01515, 0.00985/ - DATA ((F(I,42,M), I=1,8), M=1,7) / - + 0.64229, 0.26928, 0.62855, 0.05505, 0.08473, - + 0.03526, 0.00391, 0.00000, - + 0.62543, 0.25822, 0.59990, 0.05338, 0.08030, - + 0.03490, 0.00612, 0.00000, - + 0.60972, 0.24850, 0.56895, 0.05174, 0.07644, - + 0.03435, 0.00767, 0.00000, - + 0.59510, 0.23988, 0.53493, 0.05017, 0.07306, - + 0.03371, 0.00877, 0.00132, - + 0.58137, 0.23207, 0.50249, 0.04864, 0.07000, - + 0.03300, 0.00956, 0.00256, - + 0.56842, 0.22491, 0.47251, 0.04718, 0.06721, - + 0.03227, 0.01012, 0.00353, - + 0.55619, 0.21832, 0.44500, 0.04578, 0.06464, - + 0.03152, 0.01053, 0.00428/ - DATA ((F(I,42,M), I=1,8), M=8,14) / - + 0.54462, 0.21223, 0.41986, 0.04445, 0.06228, - + 0.03077, 0.01080, 0.00487, - + 0.53367, 0.20657, 0.39690, 0.04318, 0.06011, - + 0.03004, 0.01099, 0.00534, - + 0.52328, 0.20129, 0.37591, 0.04198, 0.05808, - + 0.02933, 0.01111, 0.00571, - + 0.51341, 0.19636, 0.35674, 0.04084, 0.05621, - + 0.02864, 0.01117, 0.00600, - + 0.50402, 0.19173, 0.33917, 0.03976, 0.05445, - + 0.02797, 0.01119, 0.00623, - + 0.49507, 0.18737, 0.32306, 0.03873, 0.05282, - + 0.02733, 0.01117, 0.00641, - + 0.48653, 0.18327, 0.30826, 0.03776, 0.05128, - + 0.02671, 0.01114, 0.00655/ - DATA ((F(I,42,M), I=1,8), M=15,19) / - + 0.47837, 0.17938, 0.29462, 0.03684, 0.04984, - + 0.02612, 0.01108, 0.00665, - + 0.47056, 0.17571, 0.28203, 0.03596, 0.04849, - + 0.02555, 0.01101, 0.00673, - + 0.46308, 0.17222, 0.27040, 0.03512, 0.04721, - + 0.02500, 0.01092, 0.00679, - + 0.45591, 0.16890, 0.25961, 0.03432, 0.04600, - + 0.02447, 0.01083, 0.00683, - + 0.44901, 0.16574, 0.24959, 0.03356, 0.04486, - + 0.02397, 0.01073, 0.00685/ - DATA ((F(I,43,M), I=1,8), M=1,7) / - + 0.64879, 0.26033, 0.54653, 0.04566, 0.06769, - + 0.02818, 0.00313, 0.00000, - + 0.62637, 0.24754, 0.51200, 0.04382, 0.06367, - + 0.02766, 0.00484, 0.00000, - + 0.60615, 0.23649, 0.47744, 0.04208, 0.06019, - + 0.02701, 0.00599, 0.00000, - + 0.58783, 0.22684, 0.44221, 0.04047, 0.05716, - + 0.02632, 0.00677, 0.00099, - + 0.57094, 0.21819, 0.40984, 0.03895, 0.05445, - + 0.02560, 0.00731, 0.00192, - + 0.55528, 0.21036, 0.38073, 0.03752, 0.05199, - + 0.02487, 0.00768, 0.00262, - + 0.54069, 0.20321, 0.35464, 0.03618, 0.04975, - + 0.02415, 0.00793, 0.00316/ - DATA ((F(I,43,M), I=1,8), M=8,14) / - + 0.52707, 0.19666, 0.33128, 0.03493, 0.04771, - + 0.02345, 0.00808, 0.00357, - + 0.51431, 0.19062, 0.31032, 0.03375, 0.04583, - + 0.02278, 0.00817, 0.00389, - + 0.50232, 0.18503, 0.29148, 0.03264, 0.04410, - + 0.02213, 0.00821, 0.00414, - + 0.49104, 0.17983, 0.27451, 0.03161, 0.04251, - + 0.02151, 0.00821, 0.00432, - + 0.48038, 0.17498, 0.25918, 0.03063, 0.04103, - + 0.02092, 0.00818, 0.00447, - + 0.47030, 0.17045, 0.24528, 0.02972, 0.03965, - + 0.02036, 0.00813, 0.00457, - + 0.46075, 0.16620, 0.23265, 0.02886, 0.03837, - + 0.01982, 0.00807, 0.00465/ - DATA ((F(I,43,M), I=1,8), M=15,19) / - + 0.45167, 0.16220, 0.22114, 0.02804, 0.03717, - + 0.01931, 0.00799, 0.00471, - + 0.44304, 0.15842, 0.21061, 0.02728, 0.03605, - + 0.01883, 0.00791, 0.00475, - + 0.43482, 0.15486, 0.20095, 0.02655, 0.03500, - + 0.01836, 0.00782, 0.00477, - + 0.42698, 0.15148, 0.19208, 0.02587, 0.03400, - + 0.01792, 0.00773, 0.00478, - + 0.41947, 0.14828, 0.18391, 0.02521, 0.03307, - + 0.01750, 0.00763, 0.00478/ - DATA ((F(I,44,M), I=1,8), M=1,7) / - + 0.64507, 0.24790, 0.48459, 0.03754, 0.05387, - + 0.02243, 0.00250, 0.00000, - + 0.61775, 0.23385, 0.44230, 0.03568, 0.05029, - + 0.02184, 0.00381, 0.00000, - + 0.59363, 0.22188, 0.40374, 0.03396, 0.04722, - + 0.02117, 0.00466, 0.00000, - + 0.57218, 0.21155, 0.36744, 0.03240, 0.04457, - + 0.02048, 0.00521, 0.00075, - + 0.55270, 0.20238, 0.33543, 0.03096, 0.04221, - + 0.01978, 0.00557, 0.00144, - + 0.53484, 0.19415, 0.30751, 0.02963, 0.04009, - + 0.01910, 0.00581, 0.00194, - + 0.51839, 0.18670, 0.28312, 0.02840, 0.03817, - + 0.01845, 0.00595, 0.00233/ - DATA ((F(I,44,M), I=1,8), M=8,14) / - + 0.50317, 0.17991, 0.26175, 0.02726, 0.03643, - + 0.01782, 0.00602, 0.00261, - + 0.48903, 0.17370, 0.24293, 0.02621, 0.03485, - + 0.01722, 0.00605, 0.00283, - + 0.47585, 0.16799, 0.22630, 0.02523, 0.03340, - + 0.01666, 0.00604, 0.00299, - + 0.46353, 0.16270, 0.21153, 0.02432, 0.03207, - + 0.01612, 0.00601, 0.00311, - + 0.45197, 0.15780, 0.19836, 0.02347, 0.03084, - + 0.01561, 0.00596, 0.00320, - + 0.44111, 0.15324, 0.18656, 0.02268, 0.02970, - + 0.01514, 0.00590, 0.00327, - + 0.43087, 0.14898, 0.17595, 0.02194, 0.02865, - + 0.01468, 0.00583, 0.00331/ - DATA ((F(I,44,M), I=1,8), M=15,19) / - + 0.42119, 0.14498, 0.16638, 0.02125, 0.02767, - + 0.01426, 0.00576, 0.00334, - + 0.41203, 0.14123, 0.15770, 0.02060, 0.02675, - + 0.01385, 0.00568, 0.00335, - + 0.40334, 0.13770, 0.14980, 0.01998, 0.02590, - + 0.01347, 0.00559, 0.00336, - + 0.39509, 0.13437, 0.14260, 0.01941, 0.02510, - + 0.01311, 0.00551, 0.00336, - + 0.38723, 0.13122, 0.13602, 0.01886, 0.02434, - + 0.01276, 0.00542, 0.00335/ - DATA ((F(I,45,M), I=1,8), M=1,7) / - + 0.63220, 0.23275, 0.42677, 0.03048, 0.04256, - + 0.01771, 0.00197, 0.00000, - + 0.60071, 0.21789, 0.37891, 0.02868, 0.03943, - + 0.01710, 0.00295, 0.00000, - + 0.57339, 0.20538, 0.33834, 0.02706, 0.03676, - + 0.01644, 0.00357, 0.00000, - + 0.54943, 0.19470, 0.30253, 0.02563, 0.03449, - + 0.01579, 0.00395, 0.00056, - + 0.52792, 0.18529, 0.27206, 0.02432, 0.03247, - + 0.01516, 0.00419, 0.00106, - + 0.50839, 0.17691, 0.24622, 0.02313, 0.03068, - + 0.01455, 0.00433, 0.00143, - + 0.49056, 0.16938, 0.22416, 0.02204, 0.02907, - + 0.01397, 0.00440, 0.00169/ - DATA ((F(I,45,M), I=1,8), M=8,14) / - + 0.47420, 0.16257, 0.20520, 0.02105, 0.02762, - + 0.01343, 0.00443, 0.00189, - + 0.45911, 0.15637, 0.18878, 0.02013, 0.02631, - + 0.01292, 0.00443, 0.00204, - + 0.44514, 0.15069, 0.17450, 0.01929, 0.02512, - + 0.01244, 0.00440, 0.00215, - + 0.43215, 0.14546, 0.16198, 0.01852, 0.02403, - + 0.01199, 0.00436, 0.00222, - + 0.42003, 0.14064, 0.15095, 0.01780, 0.02302, - + 0.01157, 0.00430, 0.00228, - + 0.40870, 0.13617, 0.14117, 0.01714, 0.02210, - + 0.01117, 0.00424, 0.00231, - + 0.39807, 0.13201, 0.13246, 0.01652, 0.02125, - + 0.01080, 0.00418, 0.00234/ - DATA ((F(I,45,M), I=1,8), M=15,19) / - + 0.38807, 0.12813, 0.12467, 0.01594, 0.02046, - + 0.01045, 0.00411, 0.00235, - + 0.37864, 0.12449, 0.11766, 0.01541, 0.01973, - + 0.01012, 0.00404, 0.00235, - + 0.36974, 0.12108, 0.11133, 0.01490, 0.01905, - + 0.00982, 0.00396, 0.00235, - + 0.36131, 0.11788, 0.10559, 0.01443, 0.01841, - + 0.00952, 0.00389, 0.00234, - + 0.35332, 0.11486, 0.10039, 0.01399, 0.01781, - + 0.00925, 0.00382, 0.00233/ - DATA ((F(I,46,M), I=1,8), M=1,7) / - + 0.61166, 0.21575, 0.36898, 0.02440, 0.03331, - + 0.01385, 0.00151, 0.00000, - + 0.57682, 0.20050, 0.31901, 0.02274, 0.03062, - + 0.01325, 0.00224, 0.00000, - + 0.54700, 0.18780, 0.27894, 0.02128, 0.02835, - + 0.01264, 0.00268, 0.00000, - + 0.52117, 0.17704, 0.24530, 0.02000, 0.02643, - + 0.01206, 0.00294, 0.00041, - + 0.49819, 0.16765, 0.21751, 0.01886, 0.02475, - + 0.01150, 0.00310, 0.00077, - + 0.47752, 0.15934, 0.19450, 0.01783, 0.02326, - + 0.01097, 0.00318, 0.00103, - + 0.45879, 0.15191, 0.17525, 0.01689, 0.02194, - + 0.01048, 0.00321, 0.00122/ - DATA ((F(I,46,M), I=1,8), M=8,14) / - + 0.44171, 0.14523, 0.15897, 0.01605, 0.02075, - + 0.01002, 0.00321, 0.00135, - + 0.42607, 0.13918, 0.14510, 0.01528, 0.01968, - + 0.00959, 0.00319, 0.00145, - + 0.41166, 0.13367, 0.13319, 0.01458, 0.01872, - + 0.00919, 0.00316, 0.00152, - + 0.39833, 0.12862, 0.12286, 0.01394, 0.01784, - + 0.00883, 0.00312, 0.00157, - + 0.38597, 0.12398, 0.11385, 0.01335, 0.01704, - + 0.00849, 0.00306, 0.00160, - + 0.37446, 0.11970, 0.10595, 0.01280, 0.01630, - + 0.00817, 0.00301, 0.00162, - + 0.36370, 0.11572, 0.09897, 0.01230, 0.01563, - + 0.00787, 0.00295, 0.00163/ - DATA ((F(I,46,M), I=1,8), M=15,19) / - + 0.35363, 0.11203, 0.09277, 0.01183, 0.01500, - + 0.00759, 0.00289, 0.00164, - + 0.34417, 0.10859, 0.08723, 0.01140, 0.01443, - + 0.00733, 0.00284, 0.00164, - + 0.33527, 0.10536, 0.08225, 0.01100, 0.01389, - + 0.00709, 0.00278, 0.00163, - + 0.32687, 0.10234, 0.07777, 0.01062, 0.01339, - + 0.00686, 0.00272, 0.00162, - + 0.31893, 0.09950, 0.07374, 0.01027, 0.01293, - + 0.00665, 0.00266, 0.00161/ - DATA ((F(I,47,M), I=1,8), M=1,7) / - + 0.58481, 0.19766, 0.31172, 0.01926, 0.02580, - + 0.01071, 0.00114, 0.00000, - + 0.54746, 0.18238, 0.26299, 0.01778, 0.02353, - + 0.01015, 0.00167, 0.00000, - + 0.51587, 0.16977, 0.22553, 0.01650, 0.02163, - + 0.00961, 0.00198, 0.00000, - + 0.48879, 0.15920, 0.19533, 0.01540, 0.02004, - + 0.00909, 0.00216, 0.00030, - + 0.46490, 0.15002, 0.17100, 0.01442, 0.01866, - + 0.00862, 0.00225, 0.00055, - + 0.44357, 0.14195, 0.15125, 0.01356, 0.01745, - + 0.00817, 0.00229, 0.00074, - + 0.42438, 0.13478, 0.13501, 0.01278, 0.01638, - + 0.00776, 0.00231, 0.00087/ - DATA ((F(I,47,M), I=1,8), M=8,14) / - + 0.40699, 0.12837, 0.12149, 0.01208, 0.01542, - + 0.00739, 0.00230, 0.00096, - + 0.39114, 0.12258, 0.11010, 0.01145, 0.01457, - + 0.00704, 0.00227, 0.00102, - + 0.37663, 0.11734, 0.10045, 0.01088, 0.01380, - + 0.00672, 0.00224, 0.00107, - + 0.36327, 0.11256, 0.09216, 0.01036, 0.01311, - + 0.00643, 0.00220, 0.00110, - + 0.35093, 0.10818, 0.08500, 0.00989, 0.01248, - + 0.00616, 0.00215, 0.00112, - + 0.33949, 0.10415, 0.07876, 0.00945, 0.01190, - + 0.00591, 0.00211, 0.00113, - + 0.32884, 0.10042, 0.07329, 0.00905, 0.01138, - + 0.00567, 0.00206, 0.00113/ - DATA ((F(I,47,M), I=1,8), M=15,19) / - + 0.31891, 0.09697, 0.06846, 0.00868, 0.01089, - + 0.00546, 0.00201, 0.00113, - + 0.30961, 0.09376, 0.06418, 0.00834, 0.01045, - + 0.00526, 0.00197, 0.00113, - + 0.30089, 0.09077, 0.06034, 0.00802, 0.01003, - + 0.00507, 0.00192, 0.00112, - + 0.29269, 0.08798, 0.05691, 0.00773, 0.00965, - + 0.00489, 0.00188, 0.00111, - + 0.28496, 0.08535, 0.05383, 0.00745, 0.00929, - + 0.00473, 0.00184, 0.00110/ - DATA ((F(I,48,M), I=1,8), M=1,7) / - + 0.55286, 0.17905, 0.25682, 0.01499, 0.01977, - + 0.00818, 0.00084, 0.00000, - + 0.51384, 0.16408, 0.21193, 0.01371, 0.01788, - + 0.00768, 0.00122, 0.00000, - + 0.48118, 0.15182, 0.17860, 0.01262, 0.01632, - + 0.00721, 0.00143, 0.00000, - + 0.45345, 0.14162, 0.15260, 0.01169, 0.01503, - + 0.00678, 0.00155, 0.00021, - + 0.42918, 0.13283, 0.13209, 0.01089, 0.01392, - + 0.00638, 0.00161, 0.00039, - + 0.40765, 0.12514, 0.11573, 0.01017, 0.01295, - + 0.00602, 0.00163, 0.00052, - + 0.38841, 0.11835, 0.10247, 0.00954, 0.01209, - + 0.00569, 0.00163, 0.00060/ - DATA ((F(I,48,M), I=1,8), M=8,14) / - + 0.37107, 0.11230, 0.09157, 0.00898, 0.01134, - + 0.00539, 0.00161, 0.00067, - + 0.35535, 0.10687, 0.08250, 0.00847, 0.01067, - + 0.00511, 0.00159, 0.00071, - + 0.34102, 0.10197, 0.07488, 0.00802, 0.01007, - + 0.00486, 0.00156, 0.00074, - + 0.32789, 0.09751, 0.06839, 0.00761, 0.00953, - + 0.00463, 0.00153, 0.00076, - + 0.31581, 0.09345, 0.06283, 0.00723, 0.00905, - + 0.00442, 0.00149, 0.00077, - + 0.30466, 0.08972, 0.05802, 0.00689, 0.00860, - + 0.00423, 0.00146, 0.00077, - + 0.29432, 0.08629, 0.05382, 0.00658, 0.00820, - + 0.00405, 0.00142, 0.00078/ - DATA ((F(I,48,M), I=1,8), M=15,19) / - + 0.28470, 0.08312, 0.05015, 0.00629, 0.00783, - + 0.00388, 0.00139, 0.00077, - + 0.27573, 0.08019, 0.04689, 0.00603, 0.00749, - + 0.00373, 0.00135, 0.00077, - + 0.26734, 0.07745, 0.04399, 0.00579, 0.00717, - + 0.00359, 0.00132, 0.00076, - + 0.25948, 0.07490, 0.04141, 0.00556, 0.00688, - + 0.00346, 0.00128, 0.00076, - + 0.25209, 0.07252, 0.03910, 0.00535, 0.00662, - + 0.00333, 0.00125, 0.00075/ - DATA ((F(I,49,M), I=1,8), M=1,7) / - + 0.51701, 0.16049, 0.20642, 0.01153, 0.01501, - + 0.00620, 0.00061, 0.00000, - + 0.47714, 0.14609, 0.16711, 0.01045, 0.01347, - + 0.00577, 0.00088, 0.00000, - + 0.44410, 0.13439, 0.13874, 0.00955, 0.01222, - + 0.00537, 0.00103, 0.00000, - + 0.41629, 0.12473, 0.11721, 0.00879, 0.01118, - + 0.00501, 0.00110, 0.00015, - + 0.39211, 0.11645, 0.10050, 0.00814, 0.01030, - + 0.00469, 0.00114, 0.00027, - + 0.37082, 0.10925, 0.08738, 0.00757, 0.00954, - + 0.00440, 0.00115, 0.00036, - + 0.35188, 0.10292, 0.07687, 0.00706, 0.00887, - + 0.00414, 0.00114, 0.00042/ - DATA ((F(I,49,M), I=1,8), M=8,14) / - + 0.33492, 0.09731, 0.06832, 0.00662, 0.00829, - + 0.00390, 0.00113, 0.00046, - + 0.31961, 0.09230, 0.06127, 0.00622, 0.00777, - + 0.00369, 0.00111, 0.00049, - + 0.30572, 0.08779, 0.05540, 0.00587, 0.00731, - + 0.00350, 0.00108, 0.00051, - + 0.29305, 0.08371, 0.05043, 0.00555, 0.00689, - + 0.00332, 0.00106, 0.00052, - + 0.28144, 0.08000, 0.04620, 0.00526, 0.00652, - + 0.00316, 0.00103, 0.00053, - + 0.27076, 0.07661, 0.04256, 0.00499, 0.00618, - + 0.00301, 0.00100, 0.00053, - + 0.26089, 0.07350, 0.03939, 0.00476, 0.00588, - + 0.00288, 0.00098, 0.00053/ - DATA ((F(I,49,M), I=1,8), M=15,19) / - + 0.25174, 0.07063, 0.03663, 0.00454, 0.00560, - + 0.00275, 0.00095, 0.00053, - + 0.24323, 0.06798, 0.03420, 0.00434, 0.00534, - + 0.00264, 0.00093, 0.00053, - + 0.23530, 0.06552, 0.03203, 0.00415, 0.00511, - + 0.00253, 0.00090, 0.00052, - + 0.22789, 0.06323, 0.03011, 0.00398, 0.00489, - + 0.00243, 0.00088, 0.00052, - + 0.22094, 0.06110, 0.02840, 0.00382, 0.00469, - + 0.00234, 0.00085, 0.00051/ - DATA ((F(I,50,M), I=1,8), M=1,7) / - + 0.47850, 0.14240, 0.16202, 0.00875, 0.01126, - + 0.00463, 0.00043, 0.00000, - + 0.43856, 0.12878, 0.12898, 0.00786, 0.01003, - + 0.00427, 0.00062, 0.00000, - + 0.40575, 0.11780, 0.10569, 0.00713, 0.00903, - + 0.00395, 0.00072, 0.00000, - + 0.37836, 0.10879, 0.08842, 0.00652, 0.00822, - + 0.00366, 0.00077, 0.00010, - + 0.35471, 0.10112, 0.07523, 0.00600, 0.00753, - + 0.00340, 0.00079, 0.00019, - + 0.33400, 0.09448, 0.06499, 0.00555, 0.00694, - + 0.00318, 0.00079, 0.00025, - + 0.31569, 0.08867, 0.05688, 0.00516, 0.00643, - + 0.00298, 0.00079, 0.00029/ - DATA ((F(I,50,M), I=1,8), M=8,14) / - + 0.29936, 0.08354, 0.05033, 0.00481, 0.00598, - + 0.00279, 0.00078, 0.00032, - + 0.28470, 0.07898, 0.04498, 0.00451, 0.00559, - + 0.00263, 0.00076, 0.00034, - + 0.27145, 0.07489, 0.04055, 0.00424, 0.00524, - + 0.00249, 0.00074, 0.00035, - + 0.25941, 0.07121, 0.03682, 0.00399, 0.00493, - + 0.00235, 0.00072, 0.00036, - + 0.24843, 0.06787, 0.03366, 0.00377, 0.00465, - + 0.00223, 0.00070, 0.00036, - + 0.23835, 0.06482, 0.03095, 0.00358, 0.00439, - + 0.00212, 0.00068, 0.00036, - + 0.22907, 0.06204, 0.02860, 0.00340, 0.00417, - + 0.00202, 0.00066, 0.00036/ - DATA ((F(I,50,M), I=1,8), M=15,19) / - + 0.22050, 0.05948, 0.02656, 0.00323, 0.00396, - + 0.00193, 0.00064, 0.00036, - + 0.21255, 0.05712, 0.02477, 0.00308, 0.00377, - + 0.00185, 0.00063, 0.00036, - + 0.20516, 0.05493, 0.02318, 0.00294, 0.00359, - + 0.00177, 0.00061, 0.00035, - + 0.19827, 0.05291, 0.02176, 0.00281, 0.00343, - + 0.00170, 0.00059, 0.00035, - + 0.19183, 0.05102, 0.02051, 0.00270, 0.00329, - + 0.00163, 0.00058, 0.00034/ - DATA ((F(I,51,M), I=1,8), M=1,7) / - + 0.43811, 0.12500, 0.12398, 0.00653, 0.00831, - + 0.00341, 0.00030, 0.00000, - + 0.39878, 0.11231, 0.09723, 0.00582, 0.00735, - + 0.00311, 0.00043, 0.00000, - + 0.36675, 0.10216, 0.07878, 0.00524, 0.00657, - + 0.00286, 0.00050, 0.00000, - + 0.34023, 0.09389, 0.06538, 0.00476, 0.00595, - + 0.00263, 0.00053, 0.00007, - + 0.31747, 0.08687, 0.05526, 0.00436, 0.00542, - + 0.00243, 0.00054, 0.00013, - + 0.29765, 0.08084, 0.04750, 0.00401, 0.00497, - + 0.00226, 0.00054, 0.00017, - + 0.28021, 0.07559, 0.04140, 0.00371, 0.00459, - + 0.00211, 0.00053, 0.00020/ - DATA ((F(I,51,M), I=1,8), M=8,14) / - + 0.26475, 0.07097, 0.03652, 0.00345, 0.00425, - + 0.00197, 0.00053, 0.00021, - + 0.25092, 0.06687, 0.03255, 0.00322, 0.00396, - + 0.00185, 0.00051, 0.00023, - + 0.23848, 0.06322, 0.02929, 0.00301, 0.00370, - + 0.00174, 0.00050, 0.00024, - + 0.22722, 0.05994, 0.02655, 0.00283, 0.00347, - + 0.00164, 0.00049, 0.00024, - + 0.21697, 0.05697, 0.02424, 0.00267, 0.00326, - + 0.00155, 0.00047, 0.00024, - + 0.20761, 0.05427, 0.02226, 0.00252, 0.00308, - + 0.00147, 0.00046, 0.00024, - + 0.19902, 0.05182, 0.02055, 0.00239, 0.00291, - + 0.00140, 0.00045, 0.00024/ - DATA ((F(I,51,M), I=1,8), M=15,19) / - + 0.19110, 0.04956, 0.01907, 0.00227, 0.00276, - + 0.00133, 0.00043, 0.00024, - + 0.18379, 0.04749, 0.01777, 0.00216, 0.00262, - + 0.00127, 0.00042, 0.00024, - + 0.17700, 0.04558, 0.01662, 0.00205, 0.00249, - + 0.00122, 0.00041, 0.00024, - + 0.17069, 0.04381, 0.01560, 0.00196, 0.00238, - + 0.00116, 0.00040, 0.00023, - + 0.16481, 0.04217, 0.01469, 0.00188, 0.00227, - + 0.00112, 0.00039, 0.00023/ - DATA ((F(I,52,M), I=1,8), M=1,7) / - + 0.39691, 0.10856, 0.09235, 0.00479, 0.00603, - + 0.00247, 0.00021, 0.00000, - + 0.35880, 0.09691, 0.07149, 0.00423, 0.00529, - + 0.00223, 0.00029, 0.00000, - + 0.32802, 0.08765, 0.05736, 0.00378, 0.00470, - + 0.00203, 0.00034, 0.00000, - + 0.30272, 0.08016, 0.04729, 0.00342, 0.00423, - + 0.00186, 0.00036, 0.00005, - + 0.28114, 0.07384, 0.03978, 0.00311, 0.00383, - + 0.00171, 0.00036, 0.00009, - + 0.26246, 0.06843, 0.03406, 0.00285, 0.00350, - + 0.00158, 0.00036, 0.00011, - + 0.24610, 0.06375, 0.02961, 0.00262, 0.00321, - + 0.00147, 0.00036, 0.00013/ - DATA ((F(I,52,M), I=1,8), M=8,14) / - + 0.23166, 0.05964, 0.02607, 0.00243, 0.00297, - + 0.00137, 0.00035, 0.00014, - + 0.21881, 0.05602, 0.02320, 0.00226, 0.00275, - + 0.00128, 0.00034, 0.00015, - + 0.20729, 0.05280, 0.02085, 0.00211, 0.00256, - + 0.00120, 0.00033, 0.00016, - + 0.19690, 0.04991, 0.01888, 0.00197, 0.00240, - + 0.00113, 0.00032, 0.00016, - + 0.18749, 0.04731, 0.01723, 0.00185, 0.00225, - + 0.00106, 0.00031, 0.00016, - + 0.17891, 0.04495, 0.01582, 0.00175, 0.00211, - + 0.00101, 0.00030, 0.00016, - + 0.17107, 0.04281, 0.01460, 0.00165, 0.00199, - + 0.00095, 0.00030, 0.00016/ - DATA ((F(I,52,M), I=1,8), M=15,19) / - + 0.16386, 0.04086, 0.01354, 0.00156, 0.00189, - + 0.00091, 0.00029, 0.00016, - + 0.15722, 0.03906, 0.01261, 0.00148, 0.00179, - + 0.00086, 0.00028, 0.00016, - + 0.15108, 0.03741, 0.01179, 0.00141, 0.00170, - + 0.00082, 0.00027, 0.00016, - + 0.14538, 0.03588, 0.01107, 0.00134, 0.00162, - + 0.00079, 0.00026, 0.00016, - + 0.14008, 0.03447, 0.01042, 0.00128, 0.00154, - + 0.00075, 0.00025, 0.00015/ - DATA ((F(I,53,M), I=1,8), M=1,7) / - + 0.35615, 0.09348, 0.06755, 0.00349, 0.00435, - + 0.00177, 0.00014, 0.00000, - + 0.31980, 0.08293, 0.05179, 0.00305, 0.00379, - + 0.00159, 0.00020, 0.00000, - + 0.29066, 0.07460, 0.04129, 0.00271, 0.00334, - + 0.00144, 0.00023, 0.00000, - + 0.26689, 0.06790, 0.03391, 0.00244, 0.00299, - + 0.00131, 0.00024, 0.00003, - + 0.24673, 0.06228, 0.02845, 0.00221, 0.00270, - + 0.00120, 0.00024, 0.00006, - + 0.22936, 0.05749, 0.02432, 0.00201, 0.00245, - + 0.00110, 0.00024, 0.00008, - + 0.21424, 0.05336, 0.02112, 0.00185, 0.00225, - + 0.00102, 0.00024, 0.00009/ - DATA ((F(I,53,M), I=1,8), M=8,14) / - + 0.20094, 0.04975, 0.01859, 0.00170, 0.00207, - + 0.00095, 0.00024, 0.00010, - + 0.18916, 0.04658, 0.01654, 0.00158, 0.00191, - + 0.00088, 0.00023, 0.00010, - + 0.17864, 0.04377, 0.01486, 0.00147, 0.00177, - + 0.00083, 0.00022, 0.00011, - + 0.16919, 0.04127, 0.01346, 0.00137, 0.00165, - + 0.00077, 0.00022, 0.00011, - + 0.16065, 0.03901, 0.01229, 0.00129, 0.00155, - + 0.00073, 0.00021, 0.00011, - + 0.15290, 0.03698, 0.01128, 0.00121, 0.00145, - + 0.00069, 0.00020, 0.00011, - + 0.14583, 0.03513, 0.01041, 0.00114, 0.00137, - + 0.00065, 0.00020, 0.00011/ - DATA ((F(I,53,M), I=1,8), M=15,19) / - + 0.13935, 0.03345, 0.00966, 0.00108, 0.00129, - + 0.00062, 0.00019, 0.00011, - + 0.13340, 0.03191, 0.00900, 0.00102, 0.00122, - + 0.00059, 0.00019, 0.00011, - + 0.12790, 0.03050, 0.00842, 0.00097, 0.00116, - + 0.00056, 0.00018, 0.00011, - + 0.12282, 0.02920, 0.00790, 0.00092, 0.00110, - + 0.00053, 0.00018, 0.00011, - + 0.11811, 0.02800, 0.00744, 0.00088, 0.00105, - + 0.00051, 0.00017, 0.00010/ - DATA ((F(I,54,M), I=1,8), M=1,7) / - + 0.31589, 0.07958, 0.04815, 0.00249, 0.00308, - + 0.00125, 0.00009, 0.00000, - + 0.28174, 0.07015, 0.03667, 0.00217, 0.00266, - + 0.00112, 0.00013, 0.00000, - + 0.25457, 0.06276, 0.02911, 0.00191, 0.00234, - + 0.00100, 0.00016, 0.00000, - + 0.23257, 0.05686, 0.02387, 0.00171, 0.00208, - + 0.00091, 0.00016, 0.00002, - + 0.21401, 0.05193, 0.02001, 0.00154, 0.00187, - + 0.00083, 0.00016, 0.00004, - + 0.19811, 0.04774, 0.01710, 0.00140, 0.00169, - + 0.00076, 0.00016, 0.00005, - + 0.18433, 0.04415, 0.01486, 0.00128, 0.00154, - + 0.00070, 0.00016, 0.00006/ - DATA ((F(I,54,M), I=1,8), M=8,14) / - + 0.17226, 0.04103, 0.01308, 0.00118, 0.00142, - + 0.00065, 0.00016, 0.00006, - + 0.16161, 0.03829, 0.01165, 0.00109, 0.00130, - + 0.00060, 0.00015, 0.00007, - + 0.15215, 0.03588, 0.01048, 0.00101, 0.00121, - + 0.00056, 0.00015, 0.00007, - + 0.14367, 0.03373, 0.00950, 0.00094, 0.00112, - + 0.00053, 0.00015, 0.00007, - + 0.13604, 0.03180, 0.00867, 0.00088, 0.00105, - + 0.00049, 0.00014, 0.00007, - + 0.12913, 0.03007, 0.00797, 0.00082, 0.00098, - + 0.00047, 0.00014, 0.00007, - + 0.12285, 0.02850, 0.00736, 0.00077, 0.00092, - + 0.00044, 0.00013, 0.00007/ - DATA ((F(I,54,M), I=1,8), M=15,19) / - + 0.11711, 0.02708, 0.00683, 0.00073, 0.00087, - + 0.00042, 0.00013, 0.00007, - + 0.11185, 0.02577, 0.00637, 0.00069, 0.00082, - + 0.00040, 0.00013, 0.00007, - + 0.10701, 0.02458, 0.00595, 0.00065, 0.00078, - + 0.00038, 0.00012, 0.00007, - + 0.10254, 0.02348, 0.00559, 0.00062, 0.00074, - + 0.00036, 0.00012, 0.00007, - + 0.09841, 0.02248, 0.00526, 0.00059, 0.00070, - + 0.00034, 0.00012, 0.00007/ - DATA ((F(I,55,M), I=1,8), M=1,7) / - + 0.27697, 0.06697, 0.03337, 0.00174, 0.00214, - + 0.00086, 0.00006, 0.00000, - + 0.24535, 0.05866, 0.02531, 0.00151, 0.00183, - + 0.00077, 0.00009, 0.00000, - + 0.22039, 0.05219, 0.02006, 0.00132, 0.00160, - + 0.00069, 0.00010, 0.00000, - + 0.20032, 0.04706, 0.01646, 0.00117, 0.00142, - + 0.00062, 0.00011, 0.00001, - + 0.18347, 0.04279, 0.01381, 0.00105, 0.00127, - + 0.00056, 0.00011, 0.00002, - + 0.16912, 0.03919, 0.01183, 0.00095, 0.00114, - + 0.00051, 0.00011, 0.00003, - + 0.15673, 0.03610, 0.01029, 0.00087, 0.00104, - + 0.00047, 0.00011, 0.00004/ - DATA ((F(I,55,M), I=1,8), M=8,14) / - + 0.14594, 0.03343, 0.00908, 0.00079, 0.00095, - + 0.00043, 0.00011, 0.00004, - + 0.13645, 0.03110, 0.00810, 0.00073, 0.00087, - + 0.00040, 0.00010, 0.00005, - + 0.12805, 0.02905, 0.00729, 0.00068, 0.00081, - + 0.00037, 0.00010, 0.00005, - + 0.12055, 0.02724, 0.00662, 0.00063, 0.00075, - + 0.00035, 0.00010, 0.00005, - + 0.11382, 0.02561, 0.00605, 0.00059, 0.00070, - + 0.00033, 0.00009, 0.00005, - + 0.10775, 0.02416, 0.00556, 0.00055, 0.00065, - + 0.00031, 0.00009, 0.00005, - + 0.10225, 0.02284, 0.00514, 0.00052, 0.00061, - + 0.00029, 0.00009, 0.00005/ - DATA ((F(I,55,M), I=1,8), M=15,19) / - + 0.09724, 0.02165, 0.00478, 0.00049, 0.00057, - + 0.00028, 0.00009, 0.00005, - + 0.09266, 0.02056, 0.00445, 0.00046, 0.00054, - + 0.00026, 0.00008, 0.00005, - + 0.08845, 0.01957, 0.00417, 0.00043, 0.00051, - + 0.00025, 0.00008, 0.00005, - + 0.08457, 0.01866, 0.00391, 0.00041, 0.00048, - + 0.00024, 0.00008, 0.00005, - + 0.08100, 0.01782, 0.00368, 0.00039, 0.00046, - + 0.00023, 0.00008, 0.00005/ - DATA ((F(I,56,M), I=1,8), M=1,7) / - + 0.23998, 0.05569, 0.02245, 0.00119, 0.00145, - + 0.00058, 0.00004, 0.00000, - + 0.21113, 0.04847, 0.01702, 0.00102, 0.00123, - + 0.00051, 0.00006, 0.00000, - + 0.18851, 0.04288, 0.01352, 0.00089, 0.00107, - + 0.00046, 0.00007, 0.00000, - + 0.17046, 0.03848, 0.01112, 0.00079, 0.00094, - + 0.00041, 0.00007, 0.00001, - + 0.15539, 0.03483, 0.00936, 0.00070, 0.00084, - + 0.00037, 0.00007, 0.00001, - + 0.14261, 0.03177, 0.00805, 0.00063, 0.00075, - + 0.00034, 0.00007, 0.00002, - + 0.13164, 0.02916, 0.00702, 0.00058, 0.00068, - + 0.00031, 0.00007, 0.00002/ - DATA ((F(I,56,M), I=1,8), M=8,14) / - + 0.12213, 0.02691, 0.00621, 0.00053, 0.00062, - + 0.00028, 0.00007, 0.00003, - + 0.11379, 0.02495, 0.00555, 0.00048, 0.00057, - + 0.00026, 0.00007, 0.00003, - + 0.10644, 0.02323, 0.00501, 0.00045, 0.00053, - + 0.00025, 0.00007, 0.00003, - + 0.09990, 0.02172, 0.00456, 0.00041, 0.00049, - + 0.00023, 0.00007, 0.00003, - + 0.09405, 0.02037, 0.00417, 0.00039, 0.00045, - + 0.00021, 0.00006, 0.00003, - + 0.08879, 0.01916, 0.00384, 0.00036, 0.00042, - + 0.00020, 0.00006, 0.00003, - + 0.08403, 0.01807, 0.00355, 0.00034, 0.00039, - + 0.00019, 0.00006, 0.00003/ - DATA ((F(I,56,M), I=1,8), M=15,19) / - + 0.07972, 0.01709, 0.00330, 0.00032, 0.00037, - + 0.00018, 0.00006, 0.00003, - + 0.07578, 0.01619, 0.00308, 0.00030, 0.00035, - + 0.00017, 0.00006, 0.00003, - + 0.07217, 0.01538, 0.00288, 0.00028, 0.00033, - + 0.00016, 0.00006, 0.00003, - + 0.06886, 0.01463, 0.00271, 0.00027, 0.00031, - + 0.00015, 0.00005, 0.00003, - + 0.06582, 0.01395, 0.00255, 0.00025, 0.00029, - + 0.00015, 0.00005, 0.00003/ - DATA ((F(I,57,M), I=1,8), M=1,7) / - + 0.20546, 0.04582, 0.01488, 0.00081, 0.00097, - + 0.00039, 0.00002, 0.00000, - + 0.17953, 0.03962, 0.01134, 0.00069, 0.00083, - + 0.00034, 0.00004, 0.00000, - + 0.15935, 0.03486, 0.00906, 0.00060, 0.00072, - + 0.00031, 0.00005, 0.00000, - + 0.14335, 0.03113, 0.00750, 0.00053, 0.00063, - + 0.00027, 0.00005, 0.00000, - + 0.13007, 0.02806, 0.00635, 0.00047, 0.00055, - + 0.00025, 0.00005, 0.00001, - + 0.11887, 0.02549, 0.00548, 0.00042, 0.00050, - + 0.00022, 0.00005, 0.00001, - + 0.10929, 0.02331, 0.00481, 0.00038, 0.00045, - + 0.00020, 0.00005, 0.00002/ - DATA ((F(I,57,M), I=1,8), M=8,14) / - + 0.10102, 0.02144, 0.00426, 0.00035, 0.00041, - + 0.00019, 0.00005, 0.00002, - + 0.09380, 0.01981, 0.00382, 0.00032, 0.00037, - + 0.00017, 0.00005, 0.00002, - + 0.08746, 0.01840, 0.00346, 0.00029, 0.00034, - + 0.00016, 0.00005, 0.00002, - + 0.08184, 0.01715, 0.00315, 0.00027, 0.00032, - + 0.00015, 0.00005, 0.00002, - + 0.07683, 0.01604, 0.00289, 0.00025, 0.00029, - + 0.00014, 0.00004, 0.00002, - + 0.07234, 0.01505, 0.00266, 0.00024, 0.00027, - + 0.00013, 0.00004, 0.00002, - + 0.06829, 0.01416, 0.00246, 0.00022, 0.00026, - + 0.00012, 0.00004, 0.00002/ - DATA ((F(I,57,M), I=1,8), M=15,19) / - + 0.06462, 0.01336, 0.00229, 0.00021, 0.00024, - + 0.00012, 0.00004, 0.00002, - + 0.06129, 0.01263, 0.00214, 0.00019, 0.00023, - + 0.00011, 0.00004, 0.00002, - + 0.05824, 0.01197, 0.00200, 0.00018, 0.00021, - + 0.00011, 0.00004, 0.00002, - + 0.05545, 0.01137, 0.00188, 0.00017, 0.00020, - + 0.00010, 0.00004, 0.00002, - + 0.05289, 0.01081, 0.00177, 0.00016, 0.00019, - + 0.00010, 0.00004, 0.00002/ - DATA ((F(I,58,M), I=1,8), M=1,7) / - + 0.17365, 0.03721, 0.00958, 0.00053, 0.00063, - + 0.00025, 0.00001, 0.00000, - + 0.15069, 0.03197, 0.00737, 0.00045, 0.00054, - + 0.00023, 0.00003, 0.00000, - + 0.13295, 0.02797, 0.00595, 0.00039, 0.00046, - + 0.00020, 0.00003, 0.00000, - + 0.11898, 0.02486, 0.00497, 0.00034, 0.00040, - + 0.00018, 0.00003, 0.00000, - + 0.10745, 0.02231, 0.00424, 0.00031, 0.00036, - + 0.00016, 0.00003, 0.00001, - + 0.09777, 0.02018, 0.00368, 0.00027, 0.00032, - + 0.00014, 0.00003, 0.00001, - + 0.08953, 0.01838, 0.00324, 0.00025, 0.00029, - + 0.00013, 0.00003, 0.00001/ - DATA ((F(I,58,M), I=1,8), M=8,14) / - + 0.08244, 0.01685, 0.00289, 0.00022, 0.00026, - + 0.00012, 0.00003, 0.00001, - + 0.07629, 0.01552, 0.00260, 0.00021, 0.00024, - + 0.00011, 0.00003, 0.00001, - + 0.07090, 0.01437, 0.00236, 0.00019, 0.00022, - + 0.00010, 0.00003, 0.00001, - + 0.06613, 0.01335, 0.00215, 0.00017, 0.00020, - + 0.00010, 0.00003, 0.00002, - + 0.06190, 0.01245, 0.00197, 0.00016, 0.00019, - + 0.00009, 0.00003, 0.00002, - + 0.05812, 0.01165, 0.00182, 0.00015, 0.00017, - + 0.00009, 0.00003, 0.00002, - + 0.05473, 0.01094, 0.00169, 0.00014, 0.00016, - + 0.00008, 0.00003, 0.00002/ - DATA ((F(I,58,M), I=1,8), M=15,19) / - + 0.05166, 0.01030, 0.00157, 0.00013, 0.00015, - + 0.00008, 0.00003, 0.00002, - + 0.04887, 0.00971, 0.00146, 0.00012, 0.00014, - + 0.00007, 0.00003, 0.00002, - + 0.04634, 0.00919, 0.00137, 0.00012, 0.00013, - + 0.00007, 0.00003, 0.00002, - + 0.04402, 0.00870, 0.00128, 0.00011, 0.00013, - + 0.00007, 0.00003, 0.00002, - + 0.04190, 0.00826, 0.00121, 0.00011, 0.00012, - + 0.00006, 0.00003, 0.00002/ - DATA ((F(I,59,M), I=1,8), M=1,7) / - + 0.14465, 0.02977, 0.00594, 0.00034, 0.00040, - + 0.00016, 0.00001, 0.00000, - + 0.12463, 0.02541, 0.00465, 0.00029, 0.00034, - + 0.00014, 0.00002, 0.00000, - + 0.10928, 0.02210, 0.00381, 0.00025, 0.00029, - + 0.00013, 0.00002, 0.00000, - + 0.09728, 0.01954, 0.00322, 0.00022, 0.00025, - + 0.00011, 0.00002, 0.00000, - + 0.08741, 0.01745, 0.00277, 0.00019, 0.00022, - + 0.00010, 0.00002, 0.00000, - + 0.07918, 0.01572, 0.00243, 0.00017, 0.00020, - + 0.00009, 0.00002, 0.00001, - + 0.07220, 0.01427, 0.00215, 0.00016, 0.00018, - + 0.00008, 0.00002, 0.00001/ - DATA ((F(I,59,M), I=1,8), M=8,14) / - + 0.06623, 0.01303, 0.00192, 0.00014, 0.00016, - + 0.00008, 0.00002, 0.00001, - + 0.06106, 0.01196, 0.00174, 0.00013, 0.00015, - + 0.00007, 0.00002, 0.00001, - + 0.05655, 0.01103, 0.00158, 0.00012, 0.00014, - + 0.00007, 0.00002, 0.00001, - + 0.05258, 0.01022, 0.00144, 0.00011, 0.00012, - + 0.00006, 0.00002, 0.00001, - + 0.04907, 0.00951, 0.00132, 0.00010, 0.00012, - + 0.00006, 0.00002, 0.00001, - + 0.04594, 0.00887, 0.00122, 0.00009, 0.00011, - + 0.00005, 0.00002, 0.00001, - + 0.04314, 0.00831, 0.00113, 0.00009, 0.00010, - + 0.00005, 0.00002, 0.00001/ - DATA ((F(I,59,M), I=1,8), M=15,19) / - + 0.04061, 0.00780, 0.00105, 0.00008, 0.00009, - + 0.00005, 0.00002, 0.00001, - + 0.03833, 0.00734, 0.00098, 0.00008, 0.00009, - + 0.00005, 0.00002, 0.00001, - + 0.03625, 0.00693, 0.00092, 0.00007, 0.00008, - + 0.00004, 0.00002, 0.00001, - + 0.03435, 0.00655, 0.00086, 0.00007, 0.00008, - + 0.00004, 0.00002, 0.00001, - + 0.03263, 0.00620, 0.00081, 0.00007, 0.00007, - + 0.00004, 0.00002, 0.00001/ - DATA ((F(I,60,M), I=1,8), M=1,7) / - + 0.09598, 0.01824, 0.00217, 0.00013, 0.00015, - + 0.00006, 0.00000, 0.00000, - + 0.08149, 0.01536, 0.00180, 0.00011, 0.00013, - + 0.00006, 0.00001, 0.00000, - + 0.07054, 0.01320, 0.00154, 0.00010, 0.00011, - + 0.00005, 0.00001, 0.00000, - + 0.06210, 0.01155, 0.00134, 0.00008, 0.00010, - + 0.00004, 0.00001, 0.00000, - + 0.05524, 0.01022, 0.00117, 0.00007, 0.00008, - + 0.00004, 0.00001, 0.00000, - + 0.04957, 0.00913, 0.00104, 0.00007, 0.00007, - + 0.00004, 0.00001, 0.00000, - + 0.04481, 0.00821, 0.00093, 0.00006, 0.00007, - + 0.00003, 0.00001, 0.00000/ - DATA ((F(I,60,M), I=1,8), M=8,14) / - + 0.04078, 0.00744, 0.00084, 0.00005, 0.00006, - + 0.00003, 0.00001, 0.00000, - + 0.03731, 0.00679, 0.00076, 0.00005, 0.00006, - + 0.00003, 0.00001, 0.00000, - + 0.03432, 0.00622, 0.00069, 0.00005, 0.00005, - + 0.00003, 0.00001, 0.00000, - + 0.03169, 0.00573, 0.00063, 0.00004, 0.00005, - + 0.00003, 0.00001, 0.00001, - + 0.02939, 0.00530, 0.00058, 0.00004, 0.00004, - + 0.00002, 0.00001, 0.00001, - + 0.02735, 0.00492, 0.00054, 0.00004, 0.00004, - + 0.00002, 0.00001, 0.00001, - + 0.02554, 0.00458, 0.00050, 0.00003, 0.00004, - + 0.00002, 0.00001, 0.00001/ - DATA ((F(I,60,M), I=1,8), M=15,19) / - + 0.02391, 0.00428, 0.00046, 0.00003, 0.00004, - + 0.00002, 0.00001, 0.00001, - + 0.02245, 0.00401, 0.00043, 0.00003, 0.00003, - + 0.00002, 0.00001, 0.00001, - + 0.02113, 0.00376, 0.00040, 0.00003, 0.00003, - + 0.00002, 0.00001, 0.00001, - + 0.01993, 0.00354, 0.00037, 0.00003, 0.00003, - + 0.00002, 0.00001, 0.00001, - + 0.01884, 0.00334, 0.00035, 0.00003, 0.00003, - + 0.00002, 0.00001, 0.00001/ - DATA ((F(I,61,M), I=1,8), M=1,7) / - + 0.05910, 0.01036, 0.00070, 0.00004, 0.00005, - + 0.00002, 0.00000, 0.00000, - + 0.04937, 0.00859, 0.00064, 0.00004, 0.00004, - + 0.00002, 0.00001, 0.00000, - + 0.04212, 0.00728, 0.00058, 0.00003, 0.00004, - + 0.00002, 0.00001, 0.00000, - + 0.03663, 0.00630, 0.00052, 0.00003, 0.00003, - + 0.00002, 0.00001, 0.00000, - + 0.03222, 0.00551, 0.00046, 0.00003, 0.00003, - + 0.00002, 0.00001, 0.00000, - + 0.02861, 0.00488, 0.00042, 0.00002, 0.00003, - + 0.00001, 0.00001, 0.00000, - + 0.02562, 0.00435, 0.00037, 0.00002, 0.00002, - + 0.00001, 0.00001, 0.00000/ - DATA ((F(I,61,M), I=1,8), M=8,14) / - + 0.02310, 0.00391, 0.00034, 0.00002, 0.00002, - + 0.00001, 0.00001, 0.00000, - + 0.02096, 0.00354, 0.00031, 0.00002, 0.00002, - + 0.00001, 0.00001, 0.00000, - + 0.01912, 0.00322, 0.00028, 0.00002, 0.00002, - + 0.00001, 0.00001, 0.00000, - + 0.01753, 0.00294, 0.00025, 0.00002, 0.00002, - + 0.00001, 0.00001, 0.00000, - + 0.01614, 0.00270, 0.00023, 0.00001, 0.00002, - + 0.00001, 0.00001, 0.00000, - + 0.01492, 0.00249, 0.00021, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00000, - + 0.01384, 0.00231, 0.00020, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00000/ - DATA ((F(I,61,M), I=1,8), M=15,19) / - + 0.01289, 0.00214, 0.00018, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00000, - + 0.01203, 0.00200, 0.00017, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00000, - + 0.01125, 0.00187, 0.00016, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00000, - + 0.01056, 0.00175, 0.00015, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00000, - + 0.00993, 0.00164, 0.00014, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00000/ - DATA ((F(I,62,M), I=1,8), M=1,7) / - + 0.03310, 0.00536, 0.00022, 0.00001, 0.00001, - + 0.00000, 0.00000, 0.00000, - + 0.02714, 0.00437, 0.00022, 0.00001, 0.00001, - + 0.00001, 0.00000, 0.00000, - + 0.02278, 0.00365, 0.00021, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00000, - + 0.01954, 0.00312, 0.00019, 0.00001, 0.00001, - + 0.00001, 0.00000, 0.00000, - + 0.01697, 0.00270, 0.00017, 0.00001, 0.00001, - + 0.00001, 0.00000, 0.00000, - + 0.01489, 0.00236, 0.00015, 0.00001, 0.00001, - + 0.00001, 0.00000, 0.00000, - + 0.01319, 0.00209, 0.00014, 0.00001, 0.00001, - + 0.00001, 0.00000, 0.00000/ - DATA ((F(I,62,M), I=1,8), M=8,14) / - + 0.01177, 0.00186, 0.00012, 0.00001, 0.00001, - + 0.00001, 0.00000, 0.00000, - + 0.01058, 0.00167, 0.00011, 0.00001, 0.00001, - + 0.00001, 0.00000, 0.00000, - + 0.00957, 0.00151, 0.00010, 0.00001, 0.00001, - + 0.00000, 0.00000, 0.00000, - + 0.00870, 0.00137, 0.00009, 0.00001, 0.00001, - + 0.00000, 0.00000, 0.00000, - + 0.00795, 0.00125, 0.00008, 0.00001, 0.00001, - + 0.00000, 0.00000, 0.00000, - + 0.00729, 0.00114, 0.00008, 0.00001, 0.00001, - + 0.00000, 0.00000, 0.00000, - + 0.00672, 0.00105, 0.00007, 0.00001, 0.00001, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,62,M), I=1,8), M=15,19) / - + 0.00621, 0.00097, 0.00006, 0.00000, 0.00001, - + 0.00000, 0.00000, 0.00000, - + 0.00576, 0.00090, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00536, 0.00083, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00499, 0.00078, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00467, 0.00073, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,63,M), I=1,8), M=1,7) / - + 0.01603, 0.00242, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01285, 0.00193, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01058, 0.00159, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00892, 0.00134, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00763, 0.00114, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00660, 0.00099, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00577, 0.00086, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,63,M), I=1,8), M=8,14) / - + 0.00509, 0.00076, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00453, 0.00067, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00405, 0.00060, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00365, 0.00054, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00330, 0.00049, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00300, 0.00045, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00274, 0.00041, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,63,M), I=1,8), M=15,19) / - + 0.00251, 0.00037, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00231, 0.00034, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00213, 0.00032, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00198, 0.00029, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00184, 0.00027, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,64,M), I=1,8), M=1,7) / - + 0.00150, 0.00022, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00113, 0.00017, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00089, 0.00013, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00072, 0.00011, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00059, 0.00009, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00049, 0.00007, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00042, 0.00006, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,64,M), I=1,8), M=8,14) / - + 0.00036, 0.00005, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00031, 0.00005, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00027, 0.00004, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00023, 0.00004, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00021, 0.00003, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00018, 0.00003, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00017, 0.00003, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,64,M), I=1,8), M=15,19) / - + 0.00015, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00013, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00012, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00011, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00010, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA XX/1.d-6,2.d-6,4.d-6,6.d-6,8.d-6, - . 1.d-5,2.d-5,4.d-5,6.d-5,8.d-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,1.5D-2,2.D-2,2.5D-2,3.D-2,3.5D-2,4.D-2,4.5D-2,5.D-2, - . 5.5D-2,6.D-2,6.5D-2,7.D-2,7.5D-2,8.D-2,8.5D-2,9.D-2,9.5D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-6,1.D0,5.D0,1310720.D0/ - DATA N0/4,5,8,8,8,8,0,0/ - DATA INIT/0/ - - xsave=x - - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,nx-1 - DO 20 M=1,19 -C READ( 55,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(6,N,M), -C . F(7,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=DBAR 6=SBAR 7=CBAR 8=BBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(1.D0-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,ntenth-1 - XX(J)= LOG10(XX(J))+1.1D0 - DO 30 I=1,7 - DO 30 K=1,19 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,ntenth,K)/ LOG(F(I,ntenth,K)) - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,19 - 40 F(I,nx,M)=0.D0 - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.1.D-1) XXX= LOG10(X)+1.1D0 - - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(2.D0) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,8 - G(I)= (1.D0-A)*(1.D0-B)*F(I,N,M)+(1.D0-A)*B*F(I,N,M+1) - . + A*(1.D0-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.ntenth) GOTO 65 - IF(I.EQ.8) GOTO 65 - FAC=(1.D0-B)*F(I,ntenth,M)+B*F(I,ntenth,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(1.D0-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - GLU=G(3) - UBAR=G(4) - DBAR=G(5) - STR=G(6) - CHM=G(7) - BOT=G(8) - - x=xsave - - RETURN - END diff --git a/PDF/spdf/sfbmb.F b/PDF/spdf/sfbmb.F deleted file mode 100644 index 883520d98c8..00000000000 --- a/PDF/spdf/sfbmb.F +++ /dev/null @@ -1,2717 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:25 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:31 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C - SUBROUTINE SFBMB (X,SCALE,UPV,DNV,UBAR,DBAR,STR,CHM,BOT,GLU) - -#include "pdf/impdp.inc" - parameter(nx=65) - parameter(ntenth=39) - DIMENSION F(8,nx,19),G(8),XX(nx),N0(8) - DATA ((F(I,1 ,M), I=1,8), M=1,7) / - + 0.00060, 0.00042, 5.35266, 0.17141, 0.17109, - + 0.17109, 0.17108, 0.00000, - + 0.00099, 0.00071, 14.87587, 0.45482, 0.45427, - + 0.45427, 0.45426, 0.00000, - + 0.00132, 0.00094, 29.19371, 0.86547, 0.86472, - + 0.86471, 0.86470, 0.00000, - + 0.00159, 0.00115, 47.09506, 1.39235, 1.39143, - + 1.39141, 1.39139, 0.45201, - + 0.00183, 0.00132, 69.36295, 2.04319, 2.04211, - + 2.04209, 2.04207, 1.11060, - + 0.00205, 0.00148, 95.90896, 2.81215, 2.81093, - + 2.81090, 2.81087, 1.88659, - + 0.00224, 0.00163, 126.56798, 3.69645, 3.69508, - + 3.69504, 3.69501, 2.77732/ - DATA ((F(I,1 ,M), I=1,8), M=8,14) / - + 0.00242, 0.00176, 161.18466, 4.69404, 4.69254, - + 4.69250, 4.69246, 3.78084, - + 0.00258, 0.00189, 199.48592, 5.79933, 5.79770, - + 5.79766, 5.79761, 4.89163, - + 0.00273, 0.00200, 241.08717, 7.00228, 7.00053, - + 7.00048, 7.00043, 6.09970, - + 0.00287, 0.00211, 286.04700, 8.30826, 8.30640, - + 8.30634, 8.30629, 7.41048, - + 0.00300, 0.00221, 333.90506, 9.70443, 9.70246, - + 9.70239, 9.70234, 8.81116, - + 0.00312, 0.00231, 384.55041, 11.18961, 11.18754, - + 11.18746, 11.18740, 10.30059, - + 0.00324, 0.00240, 437.82085, 12.76139, 12.75922, - + 12.75914, 12.75907, 11.87639/ - DATA ((F(I,1 ,M), I=1,8), M=15,19) / - + 0.00335, 0.00248, 493.40566, 14.41041, 14.40814, - + 14.40805, 14.40798, 13.52922, - + 0.00346, 0.00257, 551.25443, 16.13820, 16.13584, - + 16.13575, 16.13567, 15.26064, - + 0.00356, 0.00265, 611.28363, 17.94431, 17.94186, - + 17.94175, 17.94167, 17.07020, - + 0.00365, 0.00272, 673.11849, 19.81589, 19.81335, - + 19.81324, 19.81315, 18.94508, - + 0.00375, 0.00280, 736.44449, 21.74215, 21.73953, - + 21.73941, 21.73931, 20.87449/ - DATA ((F(I,2 ,M), I=1,8), M=1,7) / - + 0.00347, 0.00241, 5.10445, 0.16476, 0.16310, - + 0.16309, 0.16308, 0.00000, - + 0.00366, 0.00258, 13.74917, 0.42306, 0.42118, - + 0.42116, 0.42115, 0.00000, - + 0.00383, 0.00273, 26.36496, 0.78773, 0.78565, - + 0.78563, 0.78560, 0.00000, - + 0.00399, 0.00287, 41.82193, 1.24764, 1.24538, - + 1.24534, 1.24531, 0.39425, - + 0.00413, 0.00300, 60.68928, 1.80672, 1.80428, - + 1.80423, 1.80419, 0.96044, - + 0.00427, 0.00312, 82.84058, 2.45864, 2.45603, - + 2.45597, 2.45592, 1.61882, - + 0.00441, 0.00324, 108.08192, 3.19972, 3.19695, - + 3.19688, 3.19682, 2.36580/ - DATA ((F(I,2 ,M), I=1,8), M=8,14) / - + 0.00454, 0.00335, 136.23397, 4.02695, 4.02403, - + 4.02395, 4.02388, 3.19848, - + 0.00466, 0.00346, 167.04594, 4.93492, 4.93184, - + 4.93175, 4.93167, 4.11148, - + 0.00478, 0.00356, 200.20846, 5.91538, 5.91216, - + 5.91206, 5.91197, 5.09664, - + 0.00489, 0.00366, 235.70613, 6.97098, 6.96763, - + 6.96751, 6.96742, 6.15663, - + 0.00500, 0.00376, 273.19375, 8.09176, 8.08827, - + 8.08814, 8.08804, 7.28153, - + 0.00511, 0.00385, 312.56121, 9.27608, 9.27247, - + 9.27233, 9.27221, 8.46974, - + 0.00522, 0.00394, 353.66412, 10.52138, 10.51764, - + 10.51748, 10.51736, 9.71871/ - DATA ((F(I,2 ,M), I=1,8), M=15,19) / - + 0.00532, 0.00402, 396.27936, 11.82066, 11.81680, - + 11.81663, 11.81651, 11.02148, - + 0.00542, 0.00411, 440.34004, 13.17418, 13.17019, - + 13.17002, 13.16988, 12.37831, - + 0.00551, 0.00419, 485.76642, 14.58098, 14.57688, - + 14.57669, 14.57654, 13.78826, - + 0.00561, 0.00427, 532.30976, 16.03201, 16.02780, - + 16.02760, 16.02744, 15.24230, - + 0.00570, 0.00435, 579.76190, 17.51968, 17.51536, - + 17.51514, 17.51498, 16.73285/ - DATA ((F(I,3 ,M), I=1,8), M=1,7) / - + 0.00448, 0.00331, 4.85735, 0.15773, 0.15502, - + 0.15499, 0.15498, 0.00000, - + 0.00473, 0.00354, 12.66887, 0.39224, 0.38920, - + 0.38916, 0.38913, 0.00000, - + 0.00496, 0.00374, 23.71736, 0.71447, 0.71114, - + 0.71108, 0.71103, 0.00000, - + 0.00517, 0.00393, 36.96553, 1.11358, 1.10997, - + 1.10990, 1.10983, 0.34183, - + 0.00537, 0.00411, 52.81770, 1.59071, 1.58684, - + 1.58674, 1.58667, 0.82542, - + 0.00556, 0.00427, 71.13117, 2.13951, 2.13540, - + 2.13528, 2.13519, 1.38009, - + 0.00574, 0.00443, 91.70467, 2.75587, 2.75153, - + 2.75139, 2.75129, 2.00181/ - DATA ((F(I,3 ,M), I=1,8), M=8,14) / - + 0.00592, 0.00458, 114.35565, 3.43636, 3.43179, - + 3.43164, 3.43152, 2.68723, - + 0.00609, 0.00472, 138.86419, 4.17598, 4.17120, - + 4.17102, 4.17089, 3.43142, - + 0.00625, 0.00486, 164.98729, 4.96810, 4.96311, - + 4.96292, 4.96277, 4.22779, - + 0.00640, 0.00500, 192.66900, 5.81357, 5.80838, - + 5.80817, 5.80800, 5.07723, - + 0.00655, 0.00512, 221.65758, 6.70480, 6.69943, - + 6.69919, 6.69902, 5.97220, - + 0.00670, 0.00525, 251.85299, 7.64004, 7.63448, - + 7.63422, 7.63403, 6.91095, - + 0.00684, 0.00537, 283.13443, 8.61681, 8.61108, - + 8.61080, 8.61059, 7.89104/ - DATA ((F(I,3 ,M), I=1,8), M=15,19) / - + 0.00698, 0.00549, 315.34652, 9.63003, 9.62412, - + 9.62382, 9.62360, 8.90740, - + 0.00711, 0.00560, 348.42119, 10.67920, 10.67313, - + 10.67281, 10.67258, 9.95957, - + 0.00724, 0.00571, 382.28923, 11.76322, 11.75699, - + 11.75665, 11.75640, 11.04643, - + 0.00737, 0.00582, 416.79281, 12.87588, 12.86949, - + 12.86912, 12.86886, 12.16180, - + 0.00749, 0.00592, 451.80030, 14.01196, 14.00542, - + 14.00503, 14.00475, 13.30048/ - DATA ((F(I,4 ,M), I=1,8), M=1,7) / - + 0.00521, 0.00398, 4.71284, 0.15381, 0.15022, - + 0.15018, 0.15015, 0.00000, - + 0.00551, 0.00425, 12.05652, 0.37492, 0.37092, - + 0.37086, 0.37081, 0.00000, - + 0.00578, 0.00449, 22.24665, 0.67382, 0.66944, - + 0.66936, 0.66929, 0.00000, - + 0.00604, 0.00472, 34.30432, 1.03997, 1.03526, - + 1.03514, 1.03506, 0.31342, - + 0.00628, 0.00493, 48.55718, 1.47329, 1.46826, - + 1.46812, 1.46801, 0.75283, - + 0.00651, 0.00513, 64.86101, 1.96758, 1.96225, - + 1.96208, 1.96195, 1.25264, - + 0.00672, 0.00532, 83.01799, 2.51867, 2.51305, - + 2.51285, 2.51270, 1.80876/ - DATA ((F(I,4 ,M), I=1,8), M=8,14) / - + 0.00693, 0.00549, 102.85089, 3.12303, 3.11713, - + 3.11691, 3.11674, 2.41776, - + 0.00713, 0.00567, 124.16016, 3.77601, 3.76986, - + 3.76960, 3.76942, 3.07503, - + 0.00733, 0.00583, 146.73759, 4.47183, 4.46542, - + 4.46514, 4.46493, 3.77483, - + 0.00751, 0.00599, 170.51508, 5.21061, 5.20396, - + 5.20365, 5.20343, 4.51734, - + 0.00769, 0.00614, 195.28660, 5.98597, 5.97910, - + 5.97876, 5.97851, 5.29620, - + 0.00787, 0.00629, 220.96071, 6.79616, 6.78907, - + 6.78870, 6.78843, 6.10968, - + 0.00804, 0.00643, 247.43150, 7.63888, 7.63157, - + 7.63117, 7.63089, 6.95551/ - DATA ((F(I,4 ,M), I=1,8), M=15,19) / - + 0.00820, 0.00657, 274.57545, 8.50993, 8.50241, - + 8.50199, 8.50168, 7.82950, - + 0.00836, 0.00670, 302.32830, 9.40860, 9.40088, - + 9.40043, 9.40011, 8.73097, - + 0.00852, 0.00683, 330.62867, 10.33378, 10.32586, - + 10.32538, 10.32504, 9.65881, - + 0.00867, 0.00696, 359.35886, 11.28055, 11.27244, - + 11.27194, 11.27158, 10.60812, - + 0.00882, 0.00708, 388.42097, 12.24482, 12.23653, - + 12.23599, 12.23561, 11.57481/ - DATA ((F(I,5 ,M), I=1,8), M=1,7) / - + 0.00580, 0.00453, 4.60987, 0.15113, 0.14676, - + 0.14671, 0.14667, 0.00000, - + 0.00615, 0.00484, 11.62915, 0.36293, 0.35808, - + 0.35799, 0.35793, 0.00000, - + 0.00646, 0.00512, 21.23364, 0.64585, 0.64056, - + 0.64045, 0.64036, 0.00000, - + 0.00675, 0.00537, 32.48761, 0.98966, 0.98398, - + 0.98383, 0.98372, 0.29417, - + 0.00702, 0.00561, 45.67190, 1.39355, 1.38750, - + 1.38731, 1.38718, 0.70387, - + 0.00728, 0.00583, 60.64415, 1.85148, 1.84508, - + 1.84486, 1.84470, 1.16706, - + 0.00753, 0.00605, 77.21170, 2.35930, 2.35257, - + 2.35231, 2.35213, 1.67968/ - DATA ((F(I,5 ,M), I=1,8), M=8,14) / - + 0.00777, 0.00625, 95.20353, 2.91350, 2.90646, - + 2.90616, 2.90595, 2.23830, - + 0.00800, 0.00644, 114.43519, 3.50969, 3.50234, - + 3.50202, 3.50178, 2.83857, - + 0.00821, 0.00663, 134.72138, 4.14263, 4.13500, - + 4.13464, 4.13438, 3.47532, - + 0.00843, 0.00681, 155.98935, 4.81209, 4.80418, - + 4.80378, 4.80350, 4.14832, - + 0.00863, 0.00698, 178.06197, 5.51243, 5.50426, - + 5.50383, 5.50352, 4.85199, - + 0.00883, 0.00715, 200.85463, 6.24196, 6.23354, - + 6.23306, 6.23273, 5.58465, - + 0.00902, 0.00731, 224.27209, 6.99849, 6.98983, - + 6.98932, 6.98897, 6.34414/ - DATA ((F(I,5 ,M), I=1,8), M=15,19) / - + 0.00921, 0.00746, 248.21047, 7.77842, 7.76952, - + 7.76898, 7.76860, 7.12687, - + 0.00939, 0.00761, 272.60951, 8.58093, 8.57180, - + 8.57123, 8.57082, 7.93203, - + 0.00957, 0.00776, 297.41375, 9.40493, 9.39558, - + 9.39497, 9.39454, 8.75856, - + 0.00975, 0.00790, 322.52918, 10.24631, 10.23674, - + 10.23610, 10.23565, 9.60234, - + 0.00992, 0.00804, 347.87784, 11.10163, 11.09186, - + 11.09118, 11.09071, 10.45997/ - DATA ((F(I,6 ,M), I=1,8), M=1,7) / - + 0.00632, 0.00502, 4.52669, 0.14903, 0.14393, - + 0.14387, 0.14382, 0.00000, - + 0.00670, 0.00535, 11.29349, 0.35353, 0.34790, - + 0.34780, 0.34772, 0.00000, - + 0.00704, 0.00566, 20.44957, 0.62415, 0.61804, - + 0.61789, 0.61779, 0.00000, - + 0.00736, 0.00594, 31.09438, 0.95093, 0.94437, - + 0.94418, 0.94405, 0.27948, - + 0.00767, 0.00620, 43.47610, 1.33256, 1.32559, - + 1.32536, 1.32519, 0.66669, - + 0.00795, 0.00645, 57.45532, 1.76317, 1.75581, - + 1.75554, 1.75534, 1.10235, - + 0.00823, 0.00668, 72.84493, 2.23866, 2.23094, - + 2.23062, 2.23040, 1.58245/ - DATA ((F(I,6 ,M), I=1,8), M=8,14) / - + 0.00849, 0.00690, 89.48003, 2.75557, 2.74750, - + 2.74714, 2.74689, 2.10360, - + 0.00874, 0.00712, 107.18820, 3.30972, 3.30132, - + 3.30092, 3.30063, 2.66167, - + 0.00898, 0.00732, 125.80115, 3.89630, 3.88758, - + 3.88714, 3.88682, 3.25189, - + 0.00922, 0.00752, 145.24444, 4.51483, 4.50580, - + 4.50531, 4.50497, 3.87381, - + 0.00944, 0.00770, 165.36165, 5.16023, 5.15091, - + 5.15039, 5.15002, 4.52241, - + 0.00966, 0.00789, 186.07384, 5.83086, 5.82126, - + 5.82069, 5.82030, 5.19603, - + 0.00988, 0.00806, 207.29402, 6.52466, 6.51479, - + 6.51418, 6.51376, 5.89267/ - DATA ((F(I,6 ,M), I=1,8), M=15,19) / - + 0.01009, 0.00823, 228.93216, 7.23842, 7.22830, - + 7.22764, 7.22719, 6.60911, - + 0.01029, 0.00840, 250.93165, 7.97128, 7.96091, - + 7.96021, 7.95974, 7.34451, - + 0.01048, 0.00856, 273.24177, 8.72219, 8.71157, - + 8.71084, 8.71033, 8.09784, - + 0.01068, 0.00872, 295.78458, 9.48759, 9.47673, - + 9.47596, 9.47543, 8.86554, - + 0.01087, 0.00887, 318.49559, 10.26451, 10.25342, - + 10.25261, 10.25205, 9.64466/ - DATA ((F(I,7 ,M), I=1,8), M=1,7) / - + 0.00827, 0.00687, 4.30391, 0.14427, 0.13617, - + 0.13603, 0.13594, 0.00000, - + 0.00880, 0.00732, 10.37439, 0.32874, 0.31988, - + 0.31967, 0.31952, 0.00000, - + 0.00927, 0.00773, 18.30416, 0.56581, 0.55627, - + 0.55598, 0.55578, 0.00000, - + 0.00971, 0.00811, 27.29643, 0.84641, 0.83625, - + 0.83589, 0.83564, 0.23967, - + 0.01013, 0.00846, 37.52332, 1.16819, 1.15746, - + 1.15703, 1.15672, 0.56637, - + 0.01052, 0.00879, 48.86033, 1.52584, 1.51458, - + 1.51407, 1.51372, 0.92846, - + 0.01090, 0.00910, 61.14176, 1.91555, 1.90379, - + 1.90321, 1.90280, 1.32222/ - DATA ((F(I,7 ,M), I=1,8), M=8,14) / - + 0.01126, 0.00940, 74.22509, 2.33411, 2.32188, - + 2.32122, 2.32077, 1.74449, - + 0.01160, 0.00969, 87.97331, 2.77802, 2.76533, - + 2.76460, 2.76410, 2.19182, - + 0.01194, 0.00996, 102.26308, 3.24356, 3.23045, - + 3.22965, 3.22910, 2.66055, - + 0.01226, 0.01022, 117.02266, 3.72981, 3.71630, - + 3.71543, 3.71483, 3.14978, - + 0.01257, 0.01047, 132.14748, 4.23314, 4.21924, - + 4.21830, 4.21766, 3.65588, - + 0.01287, 0.01071, 147.57595, 4.75210, 4.73783, - + 4.73681, 4.73613, 4.17745, - + 0.01317, 0.01095, 163.24439, 5.28501, 5.27038, - + 5.26930, 5.26857, 4.71282/ - DATA ((F(I,7 ,M), I=1,8), M=15,19) / - + 0.01345, 0.01117, 179.09630, 5.82966, 5.81470, - + 5.81355, 5.81277, 5.25981, - + 0.01373, 0.01139, 195.08755, 6.38520, 6.36991, - + 6.36869, 6.36787, 5.81756, - + 0.01400, 0.01161, 211.18116, 6.95072, 6.93511, - + 6.93382, 6.93296, 6.38517, - + 0.01426, 0.01181, 227.33583, 7.52398, 7.50807, - + 7.50671, 7.50580, 6.96043, - + 0.01452, 0.01201, 243.51781, 8.10312, 8.08692, - + 8.08550, 8.08455, 7.54148/ - DATA ((F(I,8 ,M), I=1,8), M=1,7) / - + 0.01092, 0.00939, 4.08402, 0.14095, 0.12825, - + 0.12796, 0.12777, 0.00000, - + 0.01164, 0.01000, 9.49579, 0.30640, 0.29266, - + 0.29223, 0.29194, 0.00000, - + 0.01230, 0.01055, 16.30328, 0.51263, 0.49797, - + 0.49741, 0.49702, 0.00000, - + 0.01291, 0.01106, 23.81663, 0.75160, 0.73612, - + 0.73542, 0.73495, 0.20375, - + 0.01348, 0.01152, 32.15739, 1.02043, 1.00419, - + 1.00336, 1.00280, 0.47678, - + 0.01403, 0.01197, 41.22287, 1.31449, 1.29754, - + 1.29659, 1.29594, 0.77463, - + 0.01455, 0.01238, 50.87446, 1.63041, 1.61281, - + 1.61172, 1.61100, 1.09399/ - DATA ((F(I,8 ,M), I=1,8), M=8,14) / - + 0.01505, 0.01278, 60.99626, 1.96538, 1.94717, - + 1.94596, 1.94515, 1.43212, - + 0.01553, 0.01316, 71.48507, 2.31658, 2.29779, - + 2.29646, 2.29557, 1.78623, - + 0.01599, 0.01352, 82.25504, 2.68127, 2.66193, - + 2.66048, 2.65951, 2.15360, - + 0.01643, 0.01386, 93.24488, 3.05835, 3.03850, - + 3.03692, 3.03588, 2.53319, - + 0.01686, 0.01420, 104.38949, 3.44532, 3.42498, - + 3.42329, 3.42217, 2.92251, - + 0.01727, 0.01452, 115.64419, 3.84101, 3.82020, - + 3.81840, 3.81720, 3.32040, - + 0.01768, 0.01482, 126.96586, 4.24413, 4.22288, - + 4.22096, 4.21969, 3.72559/ - DATA ((F(I,8 ,M), I=1,8), M=15,19) / - + 0.01807, 0.01512, 138.32225, 4.65325, 4.63156, - + 4.62954, 4.62819, 4.13666, - + 0.01845, 0.01541, 149.68213, 5.06759, 5.04550, - + 5.04336, 5.04195, 4.55286, - + 0.01882, 0.01569, 161.02094, 5.48646, 5.46398, - + 5.46173, 5.46025, 4.97348, - + 0.01918, 0.01596, 172.32102, 5.90855, 5.88569, - + 5.88334, 5.88179, 5.39724, - + 0.01954, 0.01623, 183.56837, 6.33278, 6.30956, - + 6.30711, 6.30549, 5.82307/ - DATA ((F(I,9 ,M), I=1,8), M=1,7) / - + 0.01290, 0.01127, 3.96156, 0.14011, 0.12372, - + 0.12327, 0.12296, 0.00000, - + 0.01378, 0.01200, 9.01169, 0.29510, 0.27750, - + 0.27684, 0.27641, 0.00000, - + 0.01458, 0.01265, 15.21823, 0.48477, 0.46609, - + 0.46525, 0.46469, 0.00000, - + 0.01531, 0.01324, 21.95368, 0.70174, 0.68210, - + 0.68107, 0.68039, 0.18472, - + 0.01601, 0.01380, 29.32009, 0.94297, 0.92246, - + 0.92125, 0.92045, 0.42972, - + 0.01667, 0.01432, 37.22935, 1.20429, 1.18297, - + 1.18158, 1.18067, 0.69442, - + 0.01730, 0.01481, 45.56001, 1.48262, 1.46055, - + 1.45900, 1.45797, 0.97582/ - DATA ((F(I,9 ,M), I=1,8), M=8,14) / - + 0.01790, 0.01528, 54.21231, 1.77544, 1.75267, - + 1.75094, 1.74981, 1.27145, - + 0.01848, 0.01572, 63.10131, 2.08029, 2.05687, - + 2.05498, 2.05373, 1.57889, - + 0.01903, 0.01615, 72.15960, 2.39491, 2.37088, - + 2.36883, 2.36747, 1.89590, - + 0.01957, 0.01655, 81.33389, 2.71824, 2.69363, - + 2.69141, 2.68996, 2.22145, - + 0.02009, 0.01694, 90.57705, 3.04830, 3.02313, - + 3.02077, 3.01921, 2.55359, - + 0.02059, 0.01732, 99.85348, 3.38407, 3.35839, - + 3.35587, 3.35422, 2.89132, - + 0.02108, 0.01768, 109.13039, 3.72450, 3.69832, - + 3.69565, 3.69390, 3.23357/ - DATA ((F(I,9 ,M), I=1,8), M=15,19) / - + 0.02155, 0.01803, 118.38605, 4.06849, 4.04184, - + 4.03902, 4.03718, 3.57929, - + 0.02201, 0.01837, 127.59627, 4.41537, 4.38827, - + 4.38531, 4.38337, 3.92781, - + 0.02246, 0.01869, 136.74274, 4.76456, 4.73703, - + 4.73393, 4.73190, 4.27855, - + 0.02289, 0.01901, 145.81695, 5.11514, 5.08720, - + 5.08396, 5.08184, 4.63061, - + 0.02332, 0.01932, 154.81252, 5.46639, 5.43805, - + 5.43467, 5.43247, 4.98327/ - DATA ((F(I,10,M), I=1,8), M=1,7) / - + 0.01454, 0.01283, 3.86827, 0.13984, 0.12029, - + 0.11966, 0.11925, 0.00000, - + 0.01555, 0.01364, 8.65682, 0.28727, 0.26637, - + 0.26549, 0.26491, 0.00000, - + 0.01646, 0.01438, 14.43943, 0.46524, 0.44315, - + 0.44203, 0.44129, 0.00000, - + 0.01731, 0.01505, 20.63449, 0.66685, 0.64371, - + 0.64235, 0.64147, 0.17144, - + 0.01811, 0.01567, 27.33356, 0.88905, 0.86496, - + 0.86338, 0.86234, 0.39708, - + 0.01886, 0.01625, 34.45978, 1.12799, 1.10302, - + 1.10123, 1.10005, 0.63910, - + 0.01958, 0.01680, 41.90449, 1.38085, 1.35507, - + 1.35306, 1.35174, 0.89475/ - DATA ((F(I,10,M), I=1,8), M=8,14) / - + 0.02027, 0.01733, 49.57979, 1.64529, 1.61875, - + 1.61653, 1.61508, 1.16174, - + 0.02094, 0.01782, 57.41326, 1.91914, 1.89190, - + 1.88948, 1.88789, 1.43793, - + 0.02157, 0.01830, 65.34956, 2.20046, 2.17256, - + 2.16994, 2.16823, 1.72142, - + 0.02218, 0.01875, 73.34168, 2.48821, 2.45970, - + 2.45688, 2.45505, 2.01119, - + 0.02278, 0.01919, 81.35362, 2.78078, 2.75168, - + 2.74868, 2.74672, 2.30564, - + 0.02335, 0.01961, 89.35596, 3.07727, 3.04761, - + 3.04442, 3.04234, 2.60389, - + 0.02391, 0.02001, 97.32265, 3.37675, 3.34657, - + 3.34320, 3.34101, 2.90503/ - DATA ((F(I,10,M), I=1,8), M=15,19) / - + 0.02444, 0.02040, 105.23830, 3.67837, 3.64769, - + 3.64414, 3.64183, 3.20821, - + 0.02497, 0.02078, 113.08345, 3.98152, 3.95037, - + 3.94665, 3.94423, 3.51284, - + 0.02548, 0.02114, 120.84389, 4.28571, 4.25411, - + 4.25022, 4.24768, 3.81843, - + 0.02598, 0.02149, 128.51616, 4.59027, 4.55823, - + 4.55417, 4.55153, 4.12431, - + 0.02646, 0.02184, 136.09805, 4.89464, 4.86219, - + 4.85796, 4.85522, 4.42995/ - DATA ((F(I,11,M), I=1,8), M=1,7) / - + 0.01599, 0.01418, 3.81185, 0.14049, 0.11814, - + 0.11733, 0.11680, 0.00000, - + 0.01711, 0.01508, 8.42516, 0.28287, 0.25905, - + 0.25794, 0.25722, 0.00000, - + 0.01813, 0.01588, 13.92249, 0.45298, 0.42789, - + 0.42650, 0.42559, 0.00000, - + 0.01907, 0.01661, 19.75472, 0.64429, 0.61809, - + 0.61642, 0.61533, 0.16251, - + 0.01996, 0.01729, 26.00783, 0.85377, 0.82656, - + 0.82462, 0.82336, 0.37517, - + 0.02080, 0.01793, 32.61325, 1.07780, 1.04966, - + 1.04746, 1.04603, 0.60204, - + 0.02160, 0.01853, 39.47160, 1.31372, 1.28472, - + 1.28228, 1.28068, 0.84054/ - DATA ((F(I,11,M), I=1,8), M=8,14) / - + 0.02236, 0.01910, 46.50342, 1.55936, 1.52957, - + 1.52688, 1.52512, 1.08854, - + 0.02310, 0.01965, 53.64488, 1.81274, 1.78222, - + 1.77929, 1.77738, 1.34409, - + 0.02381, 0.02016, 60.84858, 2.07213, 2.04092, - + 2.03776, 2.03570, 1.60548, - + 0.02449, 0.02066, 68.07217, 2.33654, 2.30469, - + 2.30130, 2.29909, 1.87175, - + 0.02514, 0.02113, 75.28669, 2.60457, 2.57211, - + 2.56850, 2.56615, 2.14151, - + 0.02578, 0.02159, 82.46692, 2.87541, 2.84237, - + 2.83854, 2.83606, 2.41397, - + 0.02639, 0.02203, 89.59124, 3.14824, 3.11466, - + 3.11062, 3.10800, 2.68833/ - DATA ((F(I,11,M), I=1,8), M=15,19) / - + 0.02699, 0.02245, 96.64816, 3.42234, 3.38824, - + 3.38400, 3.38125, 2.96387, - + 0.02757, 0.02286, 103.62141, 3.69717, 3.66258, - + 3.65814, 3.65526, 3.24005, - + 0.02814, 0.02326, 110.49947, 3.97228, 3.93723, - + 3.93259, 3.92958, 3.51646, - + 0.02869, 0.02364, 117.28174, 4.24715, 4.21166, - + 4.20682, 4.20369, 3.79255, - + 0.02922, 0.02401, 123.96839, 4.52136, 4.48544, - + 4.48042, 4.47717, 4.06793/ - DATA ((F(I,12,M), I=1,8), M=1,7) / - + 0.02159, 0.01935, 3.63114, 0.14483, 0.11150, - + 0.10975, 0.10863, 0.00000, - + 0.02316, 0.02054, 7.69739, 0.27153, 0.23647, - + 0.23419, 0.23273, 0.00000, - + 0.02459, 0.02160, 12.33100, 0.41790, 0.38137, - + 0.37860, 0.37681, 0.00000, - + 0.02591, 0.02256, 17.08569, 0.57857, 0.54076, - + 0.53752, 0.53544, 0.13591, - + 0.02715, 0.02345, 22.03840, 0.75069, 0.71174, - + 0.70806, 0.70569, 0.31039, - + 0.02832, 0.02429, 27.14723, 0.93141, 0.89142, - + 0.88732, 0.88467, 0.49322, - + 0.02943, 0.02508, 32.34187, 1.11864, 1.07772, - + 1.07320, 1.07029, 0.68235/ - DATA ((F(I,12,M), I=1,8), M=8,14) / - + 0.03050, 0.02582, 37.56862, 1.31071, 1.26893, - + 1.26402, 1.26085, 0.87617, - + 0.03152, 0.02652, 42.78826, 1.50622, 1.46364, - + 1.45835, 1.45494, 1.07327, - + 0.03249, 0.02719, 47.97486, 1.70401, 1.66071, - + 1.65505, 1.65140, 1.27254, - + 0.03343, 0.02783, 53.10079, 1.90330, 1.85932, - + 1.85330, 1.84943, 1.47319, - + 0.03434, 0.02845, 58.15471, 2.10327, 2.05866, - + 2.05229, 2.04820, 1.67444, - + 0.03521, 0.02903, 63.12314, 2.30337, 2.25818, - + 2.25147, 2.24716, 1.87574, - + 0.03606, 0.02960, 67.99623, 2.50310, 2.45735, - + 2.45032, 2.44580, 2.07659/ - DATA ((F(I,12,M), I=1,8), M=15,19) / - + 0.03688, 0.03014, 72.77186, 2.70207, 2.65580, - + 2.64845, 2.64373, 2.27662, - + 0.03768, 0.03067, 77.44245, 2.89993, 2.85318, - + 2.84552, 2.84060, 2.47548, - + 0.03845, 0.03118, 82.00353, 3.09641, 3.04920, - + 3.04124, 3.03613, 2.67291, - + 0.03920, 0.03167, 86.46041, 3.29133, 3.24368, - + 3.23543, 3.23013, 2.86874, - + 0.03994, 0.03214, 90.81805, 3.48455, 3.43649, - + 3.42795, 3.42247, 3.06282/ - DATA ((F(I,13,M), I=1,8), M=1,7) / - + 0.02950, 0.02636, 3.47404, 0.15462, 0.10653, - + 0.10278, 0.10039, 0.00000, - + 0.03172, 0.02792, 7.02121, 0.26668, 0.21679, - + 0.21214, 0.20918, 0.00000, - + 0.03373, 0.02931, 10.86887, 0.39157, 0.34018, - + 0.33471, 0.33122, 0.00000, - + 0.03558, 0.03056, 14.67114, 0.52506, 0.47241, - + 0.46618, 0.46220, 0.11228, - + 0.03731, 0.03172, 18.50626, 0.66470, 0.61095, - + 0.60400, 0.59956, 0.25349, - + 0.03894, 0.03280, 22.35807, 0.80839, 0.75366, - + 0.74603, 0.74116, 0.39858, - + 0.04049, 0.03382, 26.18348, 0.95460, 0.89901, - + 0.89073, 0.88544, 0.54606/ - DATA ((F(I,13,M), I=1,8), M=8,14) / - + 0.04196, 0.03477, 29.95191, 1.10216, 1.04580, - + 1.03690, 1.03121, 0.69479, - + 0.04337, 0.03568, 33.64427, 1.25017, 1.19311, - + 1.18361, 1.17755, 0.84387, - + 0.04472, 0.03654, 37.25078, 1.39796, 1.34027, - + 1.33020, 1.32378, 0.99266, - + 0.04601, 0.03735, 40.75710, 1.54496, 1.48670, - + 1.47609, 1.46932, 1.14060, - + 0.04726, 0.03813, 44.16343, 1.69081, 1.63202, - + 1.62089, 1.61378, 1.28732, - + 0.04846, 0.03888, 47.46533, 1.83518, 1.77591, - + 1.76427, 1.75684, 1.43251, - + 0.04962, 0.03960, 50.66132, 1.97781, 1.91810, - + 1.90597, 1.89823, 1.57592/ - DATA ((F(I,13,M), I=1,8), M=15,19) / - + 0.05074, 0.04029, 53.75483, 2.11856, 2.05846, - + 2.04585, 2.03781, 1.71742, - + 0.05182, 0.04095, 56.74460, 2.25726, 2.19678, - + 2.18372, 2.17539, 1.85682, - + 0.05287, 0.04159, 59.63106, 2.39378, 2.33295, - + 2.31945, 2.31083, 1.99401, - + 0.05389, 0.04220, 62.42173, 2.52813, 2.46698, - + 2.45305, 2.44417, 2.12901, - + 0.05489, 0.04280, 65.12332, 2.66035, 2.59891, - + 2.58456, 2.57542, 2.26185/ - DATA ((F(I,14,M), I=1,8), M=1,7) / - + 0.03561, 0.03154, 3.40585, 0.16363, 0.10527, - + 0.09946, 0.09578, 0.00000, - + 0.03832, 0.03336, 6.66551, 0.26775, 0.20774, - + 0.20073, 0.19628, 0.00000, - + 0.04078, 0.03497, 10.09383, 0.38125, 0.31991, - + 0.31181, 0.30666, 0.00000, - + 0.04302, 0.03642, 13.40117, 0.50057, 0.43813, - + 0.42904, 0.42326, 0.09998, - + 0.04512, 0.03776, 16.66979, 0.62356, 0.56019, - + 0.55016, 0.54378, 0.22413, - + 0.04710, 0.03901, 19.89732, 0.74852, 0.68435, - + 0.67344, 0.66650, 0.35014, - + 0.04897, 0.04018, 23.05498, 0.87426, 0.80939, - + 0.79765, 0.79018, 0.47684/ - DATA ((F(I,14,M), I=1,8), M=8,14) / - + 0.05075, 0.04128, 26.12388, 0.99986, 0.93438, - + 0.92186, 0.91389, 0.60335, - + 0.05244, 0.04231, 29.09438, 1.12469, 1.05868, - + 1.04541, 1.03696, 0.72901, - + 0.05406, 0.04329, 31.96376, 1.24831, 1.18183, - + 1.16784, 1.15894, 0.85342, - + 0.05561, 0.04423, 34.72427, 1.37029, 1.30339, - + 1.28872, 1.27939, 0.97614, - + 0.05711, 0.04512, 37.38044, 1.49044, 1.42318, - + 1.40786, 1.39811, 1.09700, - + 0.05854, 0.04597, 39.93177, 1.60857, 1.54098, - + 1.52503, 1.51488, 1.21581, - + 0.05992, 0.04678, 42.38018, 1.72452, 1.65665, - + 1.64009, 1.62956, 1.33241/ - DATA ((F(I,14,M), I=1,8), M=15,19) / - + 0.06126, 0.04756, 44.73089, 1.83828, 1.77015, - + 1.75301, 1.74211, 1.44678, - + 0.06255, 0.04831, 46.98527, 1.94973, 1.88137, - + 1.86367, 1.85242, 1.55883, - + 0.06380, 0.04904, 49.14559, 2.05881, 1.99025, - + 1.97202, 1.96042, 1.66849, - + 0.06502, 0.04973, 51.21954, 2.16563, 2.09689, - + 2.07813, 2.06620, 1.77587, - + 0.06620, 0.05041, 53.21391, 2.27027, 2.20137, - + 2.18211, 2.16986, 1.88105/ - DATA ((F(I,15,M), I=1,8), M=1,7) / - + 0.04077, 0.03576, 3.35857, 0.17122, 0.10510, - + 0.09721, 0.09221, 0.00000, - + 0.04389, 0.03778, 6.40110, 0.26944, 0.20191, - + 0.19256, 0.18664, 0.00000, - + 0.04671, 0.03956, 9.52557, 0.37471, 0.30608, - + 0.29542, 0.28866, 0.00000, - + 0.04929, 0.04117, 12.48288, 0.48396, 0.41445, - + 0.40260, 0.39508, 0.09131, - + 0.05169, 0.04265, 15.35916, 0.59528, 0.52504, - + 0.51209, 0.50386, 0.20357, - + 0.05395, 0.04402, 18.16140, 0.70727, 0.63644, - + 0.62244, 0.61356, 0.31643, - + 0.05608, 0.04530, 20.87050, 0.81896, 0.74763, - + 0.73266, 0.72316, 0.42894/ - DATA ((F(I,15,M), I=1,8), M=8,14) / - + 0.05811, 0.04650, 23.47529, 0.92965, 0.85791, - + 0.84202, 0.83192, 0.54040, - + 0.06003, 0.04764, 25.97207, 1.03886, 0.96677, - + 0.95001, 0.93936, 0.65033, - + 0.06187, 0.04871, 28.36233, 1.14630, 1.07392, - + 1.05633, 1.04516, 0.75847, - + 0.06363, 0.04973, 30.64255, 1.25166, 1.17904, - + 1.16066, 1.14898, 0.86449, - + 0.06532, 0.05070, 32.81951, 1.35485, 1.28203, - + 1.26289, 1.25074, 0.96832, - + 0.06695, 0.05163, 34.89510, 1.45575, 1.38277, - + 1.36291, 1.35031, 1.06984, - + 0.06851, 0.05251, 36.87305, 1.55429, 1.48118, - + 1.46064, 1.44759, 1.16898/ - DATA ((F(I,15,M), I=1,8), M=15,19) / - + 0.07002, 0.05336, 38.75943, 1.65051, 1.57729, - + 1.55609, 1.54262, 1.26578, - + 0.07147, 0.05417, 40.55703, 1.74435, 1.67105, - + 1.64921, 1.63534, 1.36019, - + 0.07288, 0.05496, 42.26911, 1.83580, 1.76244, - + 1.73998, 1.72573, 1.45218, - + 0.07425, 0.05571, 43.90312, 1.92498, 1.85158, - + 1.82853, 1.81390, 1.54190, - + 0.07557, 0.05644, 45.46556, 2.01202, 1.93859, - + 1.91497, 1.89999, 1.62946/ - DATA ((F(I,16,M), I=1,8), M=1,7) / - + 0.04543, 0.03948, 3.35806, 0.17894, 0.10658, - + 0.09660, 0.09029, 0.00000, - + 0.04893, 0.04167, 6.26364, 0.27358, 0.20008, - + 0.18843, 0.18105, 0.00000, - + 0.05207, 0.04360, 9.19504, 0.37376, 0.29939, - + 0.28623, 0.27790, 0.00000, - + 0.05494, 0.04534, 11.93030, 0.47671, 0.40169, - + 0.38718, 0.37798, 0.08592, - + 0.05761, 0.04693, 14.55915, 0.58071, 0.50519, - + 0.48942, 0.47942, 0.19075, - + 0.06011, 0.04840, 17.09487, 0.68457, 0.60867, - + 0.59173, 0.58099, 0.29541, - + 0.06248, 0.04978, 19.52471, 0.78749, 0.71128, - + 0.69325, 0.68181, 0.39909/ - DATA ((F(I,16,M), I=1,8), M=8,14) / - + 0.06472, 0.05107, 21.84245, 0.88888, 0.81245, - + 0.79338, 0.78129, 0.50120, - + 0.06685, 0.05229, 24.04806, 0.98838, 0.91178, - + 0.89174, 0.87903, 0.60140, - + 0.06888, 0.05344, 26.14552, 1.08580, 1.00908, - + 0.98812, 0.97483, 0.69949, - + 0.07082, 0.05453, 28.13399, 1.18088, 1.10410, - + 1.08226, 1.06841, 0.79524, - + 0.07268, 0.05557, 30.02142, 1.27363, 1.19680, - + 1.17413, 1.15976, 0.88862, - + 0.07447, 0.05655, 31.81108, 1.36396, 1.28712, - + 1.26366, 1.24878, 0.97957, - + 0.07618, 0.05750, 33.50772, 1.45186, 1.37503, - + 1.35081, 1.33545, 1.06807/ - DATA ((F(I,16,M), I=1,8), M=15,19) / - + 0.07784, 0.05840, 35.11778, 1.53738, 1.46059, - + 1.43564, 1.41982, 1.15419, - + 0.07944, 0.05927, 36.64484, 1.62051, 1.54378, - + 1.51813, 1.50187, 1.23790, - + 0.08098, 0.06010, 38.09266, 1.70126, 1.62460, - + 1.59828, 1.58160, 1.31922, - + 0.08248, 0.06090, 39.46838, 1.77978, 1.70321, - + 1.67625, 1.65915, 1.39830, - + 0.08393, 0.06168, 40.77826, 1.85620, 1.77973, - + 1.75215, 1.73466, 1.47527/ - DATA ((F(I,17,M), I=1,8), M=1,7) / - + 0.06419, 0.05352, 3.42182, 0.20737, 0.11676, - + 0.09666, 0.08397, 0.00000, - + 0.06910, 0.05629, 5.85863, 0.29005, 0.19974, - + 0.17716, 0.16290, 0.00000, - + 0.07348, 0.05873, 8.16857, 0.37371, 0.28382, - + 0.25908, 0.24344, 0.00000, - + 0.07745, 0.06089, 10.21391, 0.45673, 0.36736, - + 0.34070, 0.32384, 0.06927, - + 0.08112, 0.06286, 12.09624, 0.53807, 0.44926, - + 0.42085, 0.40289, 0.15156, - + 0.08455, 0.06469, 13.84612, 0.61717, 0.52897, - + 0.49895, 0.47998, 0.23162, - + 0.08777, 0.06637, 15.46848, 0.69371, 0.60614, - + 0.57464, 0.55473, 0.30912/ - DATA ((F(I,17,M), I=1,8), M=8,14) / - + 0.09080, 0.06795, 16.97024, 0.76751, 0.68058, - + 0.64771, 0.62693, 0.38387, - + 0.09366, 0.06942, 18.36044, 0.83854, 0.75226, - + 0.71811, 0.69651, 0.45584, - + 0.09638, 0.07081, 19.64879, 0.90685, 0.82122, - + 0.78587, 0.76352, 0.52508, - + 0.09897, 0.07212, 20.84105, 0.97241, 0.88743, - + 0.85096, 0.82789, 0.59157, - + 0.10145, 0.07336, 21.94710, 1.03538, 0.95105, - + 0.91351, 0.88978, 0.65545, - + 0.10381, 0.07454, 22.97319, 1.09582, 1.01213, - + 0.97359, 0.94922, 0.71678, - + 0.10607, 0.07566, 23.92593, 1.15382, 1.07077, - + 1.03128, 1.00631, 0.77567/ - DATA ((F(I,17,M), I=1,8), M=15,19) / - + 0.10825, 0.07673, 24.81194, 1.20953, 1.12711, - + 1.08672, 1.06118, 0.83226, - + 0.11034, 0.07775, 25.63619, 1.26302, 1.18121, - + 1.13997, 1.11389, 0.88661, - + 0.11235, 0.07873, 26.40324, 1.31436, 1.23317, - + 1.19111, 1.16451, 0.93881, - + 0.11430, 0.07967, 27.11874, 1.36373, 1.28314, - + 1.24030, 1.21321, 0.98902, - + 0.11617, 0.08057, 27.78758, 1.41128, 1.33128, - + 1.28770, 1.26014, 1.03740/ - DATA ((F(I,18,M), I=1,8), M=1,7) / - + 0.09216, 0.07229, 3.70631, 0.24104, 0.14091, - + 0.10252, 0.07833, 0.00000, - + 0.09895, 0.07569, 5.64070, 0.31142, 0.21400, - + 0.17240, 0.14617, 0.00000, - + 0.10496, 0.07866, 7.34810, 0.37894, 0.28402, - + 0.23968, 0.21171, 0.00000, - + 0.11035, 0.08126, 8.76371, 0.44317, 0.35057, - + 0.30385, 0.27438, 0.05458, - + 0.11529, 0.08362, 9.99857, 0.50382, 0.41339, - + 0.36457, 0.33377, 0.11736, - + 0.11987, 0.08578, 11.09450, 0.56095, 0.47257, - + 0.42185, 0.38985, 0.17656, - + 0.12413, 0.08776, 12.06832, 0.61466, 0.52823, - + 0.47579, 0.44269, 0.23229/ - DATA ((F(I,18,M), I=1,8), M=8,14) / - + 0.12812, 0.08960, 12.93497, 0.66512, 0.58053, - + 0.52652, 0.49243, 0.28472, - + 0.13187, 0.09131, 13.70801, 0.71253, 0.62969, - + 0.57424, 0.53924, 0.33405, - + 0.13541, 0.09291, 14.39922, 0.75714, 0.67597, - + 0.61919, 0.58335, 0.38052, - + 0.13876, 0.09441, 15.01769, 0.79908, 0.71949, - + 0.66148, 0.62487, 0.42428, - + 0.14193, 0.09582, 15.57266, 0.83858, 0.76052, - + 0.70137, 0.66404, 0.46555, - + 0.14495, 0.09715, 16.07116, 0.87582, 0.79921, - + 0.73900, 0.70099, 0.50451, - + 0.14783, 0.09841, 16.51966, 0.91094, 0.83573, - + 0.77452, 0.73589, 0.54132/ - DATA ((F(I,18,M), I=1,8), M=15,19) / - + 0.15058, 0.09960, 16.92373, 0.94412, 0.87025, - + 0.80811, 0.76890, 0.57615, - + 0.15322, 0.10074, 17.28820, 0.97549, 0.90290, - + 0.83989, 0.80013, 0.60911, - + 0.15574, 0.10182, 17.61722, 1.00515, 0.93380, - + 0.86997, 0.82968, 0.64034, - + 0.15816, 0.10285, 17.91454, 1.03326, 0.96311, - + 0.89850, 0.85773, 0.66998, - + 0.16049, 0.10384, 18.18343, 1.05996, 0.99096, - + 0.92562, 0.88438, 0.69817/ - DATA ((F(I,19,M), I=1,8), M=1,7) / - + 0.11480, 0.08605, 4.01240, 0.25970, 0.16314, - + 0.10906, 0.07500, 0.00000, - + 0.12292, 0.08982, 5.62557, 0.32232, 0.23014, - + 0.17267, 0.13646, 0.00000, - + 0.13006, 0.09307, 6.98440, 0.38027, 0.29198, - + 0.23167, 0.19365, 0.00000, - + 0.13640, 0.09591, 8.05769, 0.43384, 0.34902, - + 0.28630, 0.24676, 0.04685, - + 0.14219, 0.09846, 8.95828, 0.48318, 0.40153, - + 0.33671, 0.29583, 0.09958, - + 0.14752, 0.10078, 9.73057, 0.52864, 0.44992, - + 0.38323, 0.34117, 0.14827, - + 0.15245, 0.10290, 10.39494, 0.57053, 0.49453, - + 0.42617, 0.38307, 0.19326/ - DATA ((F(I,19,M), I=1,8), M=8,14) / - + 0.15704, 0.10485, 10.96817, 0.60919, 0.53571, - + 0.46586, 0.42180, 0.23488, - + 0.16134, 0.10666, 11.46422, 0.64490, 0.57379, - + 0.50258, 0.45768, 0.27345, - + 0.16537, 0.10834, 11.89446, 0.67799, 0.60909, - + 0.53665, 0.49097, 0.30927, - + 0.16917, 0.10991, 12.26828, 0.70863, 0.64183, - + 0.56827, 0.52187, 0.34255, - + 0.17276, 0.11137, 12.59362, 0.73711, 0.67228, - + 0.59769, 0.55064, 0.37357, - + 0.17616, 0.11275, 12.87700, 0.76360, 0.70063, - + 0.62509, 0.57745, 0.40251, - + 0.17939, 0.11405, 13.12409, 0.78828, 0.72707, - + 0.65067, 0.60247, 0.42955/ - DATA ((F(I,19,M), I=1,8), M=15,19) / - + 0.18246, 0.11527, 13.33943, 0.81131, 0.75179, - + 0.67457, 0.62587, 0.45487, - + 0.18538, 0.11643, 13.52719, 0.83283, 0.77491, - + 0.69694, 0.64777, 0.47861, - + 0.18818, 0.11753, 13.69085, 0.85295, 0.79656, - + 0.71790, 0.66829, 0.50088, - + 0.19086, 0.11857, 13.83309, 0.87182, 0.81688, - + 0.73757, 0.68755, 0.52183, - + 0.19342, 0.11957, 13.95619, 0.88954, 0.83600, - + 0.75609, 0.70569, 0.54158/ - DATA ((F(I,20,M), I=1,8), M=1,7) / - + 0.13459, 0.09725, 4.27303, 0.26981, 0.18203, - + 0.11447, 0.07191, 0.00000, - + 0.14374, 0.10124, 5.62816, 0.32608, 0.24382, - + 0.17296, 0.12831, 0.00000, - + 0.15173, 0.10467, 6.72620, 0.37666, 0.29918, - + 0.22562, 0.17926, 0.00000, - + 0.15878, 0.10764, 7.55509, 0.42231, 0.34902, - + 0.27321, 0.22543, 0.04132, - + 0.16518, 0.11029, 8.22598, 0.46349, 0.39398, - + 0.31624, 0.26724, 0.08701, - + 0.17103, 0.11268, 8.78286, 0.50073, 0.43466, - + 0.35524, 0.30517, 0.12851, - + 0.17643, 0.11486, 9.24683, 0.53448, 0.47156, - + 0.39066, 0.33966, 0.16628/ - DATA ((F(I,20,M), I=1,8), M=8,14) / - + 0.18144, 0.11686, 9.63458, 0.56513, 0.50512, - + 0.42291, 0.37108, 0.20074, - + 0.18610, 0.11870, 9.95931, 0.59304, 0.53572, - + 0.45235, 0.39979, 0.23228, - + 0.19046, 0.12040, 10.23139, 0.61855, 0.56372, - + 0.47931, 0.42609, 0.26123, - + 0.19455, 0.12197, 10.45965, 0.64187, 0.58938, - + 0.50403, 0.45022, 0.28785, - + 0.19840, 0.12344, 10.65076, 0.66327, 0.61296, - + 0.52677, 0.47243, 0.31240, - + 0.20203, 0.12482, 10.81049, 0.68294, 0.63468, - + 0.54773, 0.49291, 0.33509, - + 0.20547, 0.12611, 10.94362, 0.70105, 0.65473, - + 0.56708, 0.51182, 0.35611/ - DATA ((F(I,20,M), I=1,8), M=15,19) / - + 0.20873, 0.12732, 11.05380, 0.71777, 0.67327, - + 0.58499, 0.52933, 0.37562, - + 0.21182, 0.12846, 11.14453, 0.73322, 0.69044, - + 0.60159, 0.54557, 0.39375, - + 0.21477, 0.12953, 11.21867, 0.74752, 0.70637, - + 0.61699, 0.56064, 0.41064, - + 0.21758, 0.13055, 11.27812, 0.76078, 0.72118, - + 0.63133, 0.57467, 0.42640, - + 0.22027, 0.13152, 11.32452, 0.77310, 0.73499, - + 0.64469, 0.58776, 0.44114/ - DATA ((F(I,21,M), I=1,8), M=1,7) / - + 0.15263, 0.10694, 4.49652, 0.27505, 0.19816, - + 0.11904, 0.06920, 0.00000, - + 0.16259, 0.11108, 5.64824, 0.32627, 0.25557, - + 0.17343, 0.12168, 0.00000, - + 0.17124, 0.11461, 6.55235, 0.37126, 0.30584, - + 0.22128, 0.16799, 0.00000, - + 0.17884, 0.11765, 7.20688, 0.41110, 0.35027, - + 0.26372, 0.20918, 0.03737, - + 0.18569, 0.12035, 7.71940, 0.44645, 0.38970, - + 0.30149, 0.24589, 0.07815, - + 0.19195, 0.12277, 8.13204, 0.47794, 0.42487, - + 0.33523, 0.27874, 0.11471, - + 0.19769, 0.12497, 8.46525, 0.50609, 0.45636, - + 0.36550, 0.30823, 0.14761/ - DATA ((F(I,21,M), I=1,8), M=8,14) / - + 0.20298, 0.12697, 8.73476, 0.53133, 0.48466, - + 0.39273, 0.33479, 0.17732, - + 0.20790, 0.12880, 8.95260, 0.55404, 0.51018, - + 0.41733, 0.35880, 0.20426, - + 0.21248, 0.13049, 9.12798, 0.57456, 0.53329, - + 0.43962, 0.38058, 0.22877, - + 0.21676, 0.13205, 9.26889, 0.59312, 0.55425, - + 0.45987, 0.40038, 0.25113, - + 0.22078, 0.13350, 9.38090, 0.60997, 0.57334, - + 0.47833, 0.41844, 0.27160, - + 0.22456, 0.13484, 9.46901, 0.62530, 0.59076, - + 0.49519, 0.43495, 0.29037, - + 0.22812, 0.13610, 9.53723, 0.63928, 0.60669, - + 0.51063, 0.45008, 0.30765/ - DATA ((F(I,21,M), I=1,8), M=15,19) / - + 0.23149, 0.13728, 9.58851, 0.65206, 0.62130, - + 0.52480, 0.46398, 0.32358, - + 0.23468, 0.13838, 9.62574, 0.66375, 0.63472, - + 0.53783, 0.47677, 0.33830, - + 0.23771, 0.13941, 9.65128, 0.67447, 0.64706, - + 0.54984, 0.48855, 0.35192, - + 0.24059, 0.14039, 9.66651, 0.68432, 0.65845, - + 0.56092, 0.49944, 0.36456, - + 0.24333, 0.14131, 9.67262, 0.69338, 0.66897, - + 0.57117, 0.50952, 0.37632/ - DATA ((F(I,22,M), I=1,8), M=1,7) / - + 0.19241, 0.12675, 4.82609, 0.27438, 0.22733, - + 0.12581, 0.06188, 0.00000, - + 0.20380, 0.13103, 5.56387, 0.31480, 0.27449, - + 0.17097, 0.10577, 0.00000, - + 0.21357, 0.13463, 6.09789, 0.34857, 0.31387, - + 0.20887, 0.14273, 0.00000, - + 0.22204, 0.13768, 6.43605, 0.37725, 0.34728, - + 0.24117, 0.17433, 0.02968, - + 0.22961, 0.14035, 6.67237, 0.40175, 0.37593, - + 0.26896, 0.20157, 0.06121, - + 0.23644, 0.14272, 6.84188, 0.42283, 0.40066, - + 0.29303, 0.22523, 0.08874, - + 0.24265, 0.14483, 6.96116, 0.44106, 0.42216, - + 0.31402, 0.24590, 0.11294/ - DATA ((F(I,22,M), I=1,8), M=8,14) / - + 0.24833, 0.14673, 7.04237, 0.45691, 0.44094, - + 0.33242, 0.26405, 0.13434, - + 0.25356, 0.14846, 7.09421, 0.47076, 0.45743, - + 0.34863, 0.28008, 0.15336, - + 0.25839, 0.15002, 7.12297, 0.48289, 0.47198, - + 0.36298, 0.29430, 0.17034, - + 0.26286, 0.15145, 7.13432, 0.49356, 0.48485, - + 0.37572, 0.30695, 0.18557, - + 0.26703, 0.15276, 7.13157, 0.50298, 0.49629, - + 0.38707, 0.31826, 0.19929, - + 0.27092, 0.15396, 7.11794, 0.51130, 0.50647, - + 0.39723, 0.32839, 0.21168, - + 0.27455, 0.15507, 7.09581, 0.51867, 0.51557, - + 0.40633, 0.33750, 0.22292/ - DATA ((F(I,22,M), I=1,8), M=15,19) / - + 0.27797, 0.15610, 7.06680, 0.52521, 0.52370, - + 0.41451, 0.34571, 0.23313, - + 0.28118, 0.15705, 7.03259, 0.53102, 0.53100, - + 0.42188, 0.35313, 0.24244, - + 0.28421, 0.15793, 6.99448, 0.53619, 0.53755, - + 0.42853, 0.35984, 0.25095, - + 0.28707, 0.15875, 6.95303, 0.54078, 0.54344, - + 0.43454, 0.36592, 0.25874, - + 0.28977, 0.15952, 6.90868, 0.54487, 0.54874, - + 0.43997, 0.37144, 0.26589/ - DATA ((F(I,23,M), I=1,8), M=1,7) / - + 0.22728, 0.14278, 4.91494, 0.26431, 0.24509, - + 0.12833, 0.05480, 0.00000, - + 0.23952, 0.14701, 5.35686, 0.29646, 0.28352, - + 0.16593, 0.09187, 0.00000, - + 0.24989, 0.15051, 5.64586, 0.32226, 0.31442, - + 0.19638, 0.12203, 0.00000, - + 0.25879, 0.15343, 5.78832, 0.34340, 0.33979, - + 0.22155, 0.14708, 0.02427, - + 0.26667, 0.15595, 5.86290, 0.36089, 0.36090, - + 0.24264, 0.16815, 0.04959, - + 0.27371, 0.15815, 5.89683, 0.37546, 0.37862, - + 0.26046, 0.18603, 0.07127, - + 0.28005, 0.16009, 5.90213, 0.38769, 0.39360, - + 0.27564, 0.20133, 0.09002/ - DATA ((F(I,23,M), I=1,8), M=8,14) / - + 0.28581, 0.16181, 5.88718, 0.39799, 0.40635, - + 0.28865, 0.21451, 0.10634, - + 0.29106, 0.16335, 5.85767, 0.40672, 0.41725, - + 0.29988, 0.22593, 0.12064, - + 0.29587, 0.16472, 5.81751, 0.41413, 0.42661, - + 0.30959, 0.23588, 0.13324, - + 0.30030, 0.16596, 5.77030, 0.42045, 0.43468, - + 0.31805, 0.24458, 0.14440, - + 0.30438, 0.16708, 5.71778, 0.42583, 0.44164, - + 0.32543, 0.25223, 0.15433, - + 0.30817, 0.16809, 5.66182, 0.43041, 0.44767, - + 0.33190, 0.25896, 0.16321, - + 0.31168, 0.16901, 5.60365, 0.43432, 0.45290, - + 0.33757, 0.26492, 0.17116/ - DATA ((F(I,23,M), I=1,8), M=15,19) / - + 0.31496, 0.16984, 5.54404, 0.43765, 0.45743, - + 0.34255, 0.27019, 0.17832, - + 0.31802, 0.17061, 5.48384, 0.44047, 0.46135, - + 0.34694, 0.27487, 0.18477, - + 0.32088, 0.17130, 5.42367, 0.44286, 0.46476, - + 0.35082, 0.27904, 0.19062, - + 0.32356, 0.17194, 5.36363, 0.44487, 0.46770, - + 0.35423, 0.28275, 0.19591, - + 0.32608, 0.17252, 5.30381, 0.44653, 0.47023, - + 0.35724, 0.28605, 0.20072/ - DATA ((F(I,24,M), I=1,8), M=1,7) / - + 0.25876, 0.15636, 4.83227, 0.25022, 0.25500, - + 0.12805, 0.04811, 0.00000, - + 0.27145, 0.16042, 5.05689, 0.27573, 0.28585, - + 0.15922, 0.07948, 0.00000, - + 0.28208, 0.16372, 5.17575, 0.29546, 0.30983, - + 0.18373, 0.10431, 0.00000, - + 0.29112, 0.16642, 5.19005, 0.31109, 0.32890, - + 0.20345, 0.12445, 0.02009, - + 0.29903, 0.16872, 5.16351, 0.32362, 0.34431, - + 0.21959, 0.14105, 0.04073, - + 0.30604, 0.17069, 5.11627, 0.33371, 0.35685, - + 0.23292, 0.15487, 0.05816, - + 0.31230, 0.17240, 5.05612, 0.34189, 0.36714, - + 0.24403, 0.16649, 0.07303/ - DATA ((F(I,24,M), I=1,8), M=8,14) / - + 0.31793, 0.17389, 4.98821, 0.34855, 0.37563, - + 0.25335, 0.17633, 0.08581, - + 0.32302, 0.17519, 4.91578, 0.35398, 0.38265, - + 0.26121, 0.18472, 0.09689, - + 0.32765, 0.17634, 4.84089, 0.35839, 0.38847, - + 0.26787, 0.19191, 0.10654, - + 0.33187, 0.17735, 4.76550, 0.36199, 0.39330, - + 0.27354, 0.19811, 0.11502, - + 0.33573, 0.17825, 4.69028, 0.36489, 0.39731, - + 0.27837, 0.20346, 0.12248, - + 0.33928, 0.17904, 4.61608, 0.36723, 0.40061, - + 0.28250, 0.20811, 0.12908, - + 0.34255, 0.17974, 4.54337, 0.36907, 0.40333, - + 0.28603, 0.21214, 0.13495/ - DATA ((F(I,24,M), I=1,8), M=15,19) / - + 0.34558, 0.18037, 4.47234, 0.37051, 0.40555, - + 0.28905, 0.21566, 0.14018, - + 0.34837, 0.18092, 4.40328, 0.37160, 0.40735, - + 0.29162, 0.21873, 0.14486, - + 0.35097, 0.18141, 4.33636, 0.37240, 0.40878, - + 0.29382, 0.22141, 0.14907, - + 0.35338, 0.18185, 4.27143, 0.37295, 0.40990, - + 0.29569, 0.22376, 0.15284, - + 0.35563, 0.18224, 4.20837, 0.37326, 0.41073, - + 0.29726, 0.22579, 0.15623/ - DATA ((F(I,25,M), I=1,8), M=1,7) / - + 0.28764, 0.16819, 4.63717, 0.23462, 0.25941, - + 0.12599, 0.04198, 0.00000, - + 0.30049, 0.17199, 4.70430, 0.25479, 0.28377, - + 0.15171, 0.06856, 0.00000, - + 0.31114, 0.17501, 4.70626, 0.26984, 0.30206, - + 0.17142, 0.08914, 0.00000, - + 0.32008, 0.17744, 4.63797, 0.28138, 0.31614, - + 0.18690, 0.10551, 0.01677, - + 0.32784, 0.17946, 4.54967, 0.29031, 0.32714, - + 0.19930, 0.11879, 0.03381, - + 0.33465, 0.18116, 4.45538, 0.29725, 0.33578, - + 0.20932, 0.12968, 0.04803, - + 0.34067, 0.18260, 4.35932, 0.30265, 0.34260, - + 0.21749, 0.13869, 0.06003/ - DATA ((F(I,25,M), I=1,8), M=8,14) / - + 0.34603, 0.18383, 4.26405, 0.30684, 0.34799, - + 0.22419, 0.14622, 0.07026, - + 0.35084, 0.18488, 4.17090, 0.31009, 0.35224, - + 0.22972, 0.15255, 0.07905, - + 0.35516, 0.18577, 4.08056, 0.31256, 0.35557, - + 0.23429, 0.15790, 0.08664, - + 0.35907, 0.18654, 3.99375, 0.31442, 0.35816, - + 0.23808, 0.16245, 0.09325, - + 0.36262, 0.18719, 3.91041, 0.31578, 0.36013, - + 0.24122, 0.16632, 0.09903, - + 0.36585, 0.18775, 3.83069, 0.31672, 0.36160, - + 0.24382, 0.16964, 0.10410, - + 0.36879, 0.18822, 3.75453, 0.31731, 0.36264, - + 0.24596, 0.17247, 0.10858/ - DATA ((F(I,25,M), I=1,8), M=15,19) / - + 0.37149, 0.18863, 3.68176, 0.31762, 0.36334, - + 0.24772, 0.17490, 0.11255, - + 0.37396, 0.18897, 3.61229, 0.31770, 0.36374, - + 0.24915, 0.17698, 0.11607, - + 0.37622, 0.18925, 3.54601, 0.31757, 0.36389, - + 0.25031, 0.17877, 0.11921, - + 0.37831, 0.18948, 3.48264, 0.31728, 0.36383, - + 0.25123, 0.18030, 0.12201, - + 0.38024, 0.18967, 3.42195, 0.31684, 0.36359, - + 0.25193, 0.18160, 0.12451/ - DATA ((F(I,26,M), I=1,8), M=1,7) / - + 0.31451, 0.17878, 4.37383, 0.21961, 0.25997, - + 0.12295, 0.03668, 0.00000, - + 0.32727, 0.18225, 4.33689, 0.23565, 0.27902, - + 0.14426, 0.05941, 0.00000, - + 0.33773, 0.18495, 4.26609, 0.24725, 0.29284, - + 0.16024, 0.07674, 0.00000, - + 0.34643, 0.18707, 4.15066, 0.25586, 0.30310, - + 0.17254, 0.09032, 0.01422, - + 0.35389, 0.18878, 4.02967, 0.26231, 0.31082, - + 0.18221, 0.10121, 0.02854, - + 0.36037, 0.19019, 3.91240, 0.26710, 0.31662, - + 0.18986, 0.11004, 0.04040, - + 0.36605, 0.19134, 3.80045, 0.27066, 0.32095, - + 0.19597, 0.11726, 0.05034/ - DATA ((F(I,26,M), I=1,8), M=8,14) / - + 0.37105, 0.19228, 3.69446, 0.27327, 0.32417, - + 0.20088, 0.12324, 0.05876, - + 0.37548, 0.19306, 3.59447, 0.27512, 0.32649, - + 0.20483, 0.12821, 0.06594, - + 0.37943, 0.19369, 3.50026, 0.27639, 0.32812, - + 0.20801, 0.13236, 0.07211, - + 0.38296, 0.19420, 3.41173, 0.27719, 0.32919, - + 0.21057, 0.13586, 0.07745, - + 0.38613, 0.19461, 3.32838, 0.27761, 0.32981, - + 0.21261, 0.13880, 0.08210, - + 0.38898, 0.19493, 3.24991, 0.27773, 0.33006, - + 0.21423, 0.14128, 0.08616, - + 0.39155, 0.19518, 3.17596, 0.27760, 0.33001, - + 0.21550, 0.14338, 0.08972/ - DATA ((F(I,26,M), I=1,8), M=15,19) / - + 0.39387, 0.19536, 3.10615, 0.27726, 0.32972, - + 0.21648, 0.14516, 0.09286, - + 0.39597, 0.19548, 3.04019, 0.27677, 0.32923, - + 0.21721, 0.14665, 0.09563, - + 0.39787, 0.19555, 2.97781, 0.27614, 0.32858, - + 0.21773, 0.14792, 0.09809, - + 0.39960, 0.19558, 2.91867, 0.27540, 0.32778, - + 0.21807, 0.14898, 0.10028, - + 0.40117, 0.19557, 2.86249, 0.27456, 0.32687, - + 0.21826, 0.14985, 0.10221/ - DATA ((F(I,27,M), I=1,8), M=1,7) / - + 0.33948, 0.18818, 4.06938, 0.20461, 0.25769, - + 0.11909, 0.03182, 0.00000, - + 0.35196, 0.19127, 3.95733, 0.21717, 0.27207, - + 0.13652, 0.05117, 0.00000, - + 0.36208, 0.19360, 3.83676, 0.22593, 0.28205, - + 0.14931, 0.06573, 0.00000, - + 0.37039, 0.19537, 3.69209, 0.23219, 0.28912, - + 0.15896, 0.07700, 0.01203, - + 0.37743, 0.19675, 3.55269, 0.23667, 0.29413, - + 0.16638, 0.08594, 0.02407, - + 0.38348, 0.19783, 3.42401, 0.23982, 0.29761, - + 0.17213, 0.09311, 0.03397, - + 0.38872, 0.19867, 3.30554, 0.24198, 0.29996, - + 0.17660, 0.09892, 0.04221/ - DATA ((F(I,27,M), I=1,8), M=8,14) / - + 0.39327, 0.19932, 3.19647, 0.24339, 0.30144, - + 0.18010, 0.10369, 0.04915, - + 0.39726, 0.19981, 3.09590, 0.24423, 0.30226, - + 0.18283, 0.10761, 0.05505, - + 0.40077, 0.20017, 3.00293, 0.24462, 0.30257, - + 0.18494, 0.11086, 0.06008, - + 0.40386, 0.20042, 2.91688, 0.24466, 0.30247, - + 0.18656, 0.11356, 0.06443, - + 0.40660, 0.20058, 2.83694, 0.24443, 0.30206, - + 0.18778, 0.11581, 0.06818, - + 0.40902, 0.20065, 2.76254, 0.24398, 0.30140, - + 0.18868, 0.11769, 0.07145, - + 0.41117, 0.20066, 2.69310, 0.24336, 0.30054, - + 0.18931, 0.11926, 0.07431/ - DATA ((F(I,27,M), I=1,8), M=15,19) / - + 0.41308, 0.20062, 2.62813, 0.24260, 0.29952, - + 0.18971, 0.12056, 0.07681, - + 0.41478, 0.20052, 2.56719, 0.24173, 0.29838, - + 0.18994, 0.12165, 0.07902, - + 0.41629, 0.20038, 2.50992, 0.24078, 0.29714, - + 0.19001, 0.12254, 0.08096, - + 0.41763, 0.20021, 2.45596, 0.23976, 0.29582, - + 0.18995, 0.12328, 0.08268, - + 0.41882, 0.20000, 2.40501, 0.23867, 0.29443, - + 0.18978, 0.12387, 0.08419/ - DATA ((F(I,28,M), I=1,8), M=1,7) / - + 0.36297, 0.19675, 3.75335, 0.19112, 0.25359, - + 0.11500, 0.02773, 0.00000, - + 0.37502, 0.19942, 3.59687, 0.20097, 0.26419, - + 0.12931, 0.04438, 0.00000, - + 0.38467, 0.20135, 3.44959, 0.20759, 0.27115, - + 0.13960, 0.05676, 0.00000, - + 0.39248, 0.20275, 3.29247, 0.21214, 0.27574, - + 0.14721, 0.06627, 0.01031, - + 0.39902, 0.20378, 3.14742, 0.21521, 0.27870, - + 0.15294, 0.07375, 0.02057, - + 0.40456, 0.20453, 3.01714, 0.21720, 0.28045, - + 0.15727, 0.07971, 0.02898, - + 0.40929, 0.20505, 2.89971, 0.21840, 0.28132, - + 0.16056, 0.08450, 0.03594/ - DATA ((F(I,28,M), I=1,8), M=8,14) / - + 0.41335, 0.20540, 2.79342, 0.21901, 0.28155, - + 0.16304, 0.08840, 0.04178, - + 0.41684, 0.20560, 2.69676, 0.21917, 0.28129, - + 0.16489, 0.09159, 0.04672, - + 0.41986, 0.20568, 2.60848, 0.21899, 0.28065, - + 0.16625, 0.09421, 0.05093, - + 0.42248, 0.20567, 2.52753, 0.21856, 0.27974, - + 0.16723, 0.09638, 0.05455, - + 0.42475, 0.20557, 2.45298, 0.21792, 0.27861, - + 0.16789, 0.09816, 0.05766, - + 0.42672, 0.20540, 2.38408, 0.21712, 0.27732, - + 0.16829, 0.09963, 0.06036, - + 0.42843, 0.20518, 2.32017, 0.21621, 0.27591, - + 0.16850, 0.10085, 0.06272/ - DATA ((F(I,28,M), I=1,8), M=15,19) / - + 0.42990, 0.20491, 2.26070, 0.21520, 0.27440, - + 0.16853, 0.10185, 0.06477, - + 0.43118, 0.20460, 2.20519, 0.21412, 0.27282, - + 0.16842, 0.10267, 0.06657, - + 0.43228, 0.20426, 2.15322, 0.21299, 0.27120, - + 0.16820, 0.10334, 0.06816, - + 0.43322, 0.20389, 2.10444, 0.21182, 0.26954, - + 0.16789, 0.10387, 0.06955, - + 0.43402, 0.20349, 2.05857, 0.21061, 0.26785, - + 0.16748, 0.10428, 0.07078/ - DATA ((F(I,29,M), I=1,8), M=1,7) / - + 0.38504, 0.20452, 3.43432, 0.17867, 0.24807, - + 0.11070, 0.02420, 0.00000, - + 0.39653, 0.20673, 3.25365, 0.18635, 0.25553, - + 0.12241, 0.03858, 0.00000, - + 0.40560, 0.20825, 3.09450, 0.19131, 0.26002, - + 0.13067, 0.04921, 0.00000, - + 0.41283, 0.20926, 2.93547, 0.19455, 0.26265, - + 0.13665, 0.05731, 0.00890, - + 0.41879, 0.20993, 2.79260, 0.19657, 0.26399, - + 0.14107, 0.06366, 0.01774, - + 0.42375, 0.21033, 2.66662, 0.19772, 0.26440, - + 0.14431, 0.06869, 0.02494, - + 0.42792, 0.21053, 2.55470, 0.19824, 0.26416, - + 0.14669, 0.07272, 0.03090/ - DATA ((F(I,29,M), I=1,8), M=8,14) / - + 0.43143, 0.21056, 2.45455, 0.19829, 0.26344, - + 0.14841, 0.07597, 0.03588, - + 0.43439, 0.21047, 2.36435, 0.19800, 0.26237, - + 0.14963, 0.07863, 0.04009, - + 0.43689, 0.21028, 2.28263, 0.19744, 0.26105, - + 0.15044, 0.08079, 0.04366, - + 0.43900, 0.21000, 2.20815, 0.19670, 0.25955, - + 0.15096, 0.08257, 0.04672, - + 0.44077, 0.20965, 2.13996, 0.19580, 0.25791, - + 0.15122, 0.08403, 0.04935, - + 0.44227, 0.20924, 2.07723, 0.19480, 0.25618, - + 0.15128, 0.08522, 0.05163, - + 0.44351, 0.20879, 2.01927, 0.19372, 0.25438, - + 0.15119, 0.08620, 0.05360/ - DATA ((F(I,29,M), I=1,8), M=15,19) / - + 0.44454, 0.20830, 1.96553, 0.19257, 0.25254, - + 0.15097, 0.08700, 0.05533, - + 0.44538, 0.20778, 1.91550, 0.19138, 0.25067, - + 0.15064, 0.08764, 0.05683, - + 0.44606, 0.20724, 1.86878, 0.19016, 0.24879, - + 0.15023, 0.08816, 0.05815, - + 0.44659, 0.20667, 1.82504, 0.18892, 0.24691, - + 0.14975, 0.08856, 0.05931, - + 0.44699, 0.20609, 1.78400, 0.18766, 0.24503, - + 0.14921, 0.08887, 0.06033/ - DATA ((F(I,30,M), I=1,8), M=1,7) / - + 0.40570, 0.21147, 3.11732, 0.16660, 0.24142, - + 0.10612, 0.02094, 0.00000, - + 0.41652, 0.21320, 2.92136, 0.17235, 0.24606, - + 0.11548, 0.03326, 0.00000, - + 0.42491, 0.21428, 2.75634, 0.17584, 0.24837, - + 0.12192, 0.04230, 0.00000, - + 0.43147, 0.21488, 2.59929, 0.17794, 0.24926, - + 0.12647, 0.04915, 0.00762, - + 0.43678, 0.21517, 2.46128, 0.17907, 0.24919, - + 0.12972, 0.05449, 0.01517, - + 0.44112, 0.21521, 2.34142, 0.17950, 0.24845, - + 0.13201, 0.05869, 0.02130, - + 0.44467, 0.21508, 2.23624, 0.17943, 0.24724, - + 0.13360, 0.06205, 0.02635/ - DATA ((F(I,30,M), I=1,8), M=8,14) / - + 0.44758, 0.21480, 2.14306, 0.17902, 0.24572, - + 0.13467, 0.06474, 0.03057, - + 0.44997, 0.21441, 2.05982, 0.17835, 0.24397, - + 0.13534, 0.06693, 0.03412, - + 0.45192, 0.21394, 1.98495, 0.17748, 0.24207, - + 0.13569, 0.06870, 0.03712, - + 0.45350, 0.21339, 1.91709, 0.17649, 0.24008, - + 0.13581, 0.07014, 0.03969, - + 0.45476, 0.21279, 1.85527, 0.17539, 0.23802, - + 0.13573, 0.07132, 0.04189, - + 0.45576, 0.21214, 1.79863, 0.17422, 0.23592, - + 0.13551, 0.07228, 0.04379, - + 0.45652, 0.21147, 1.74648, 0.17301, 0.23381, - + 0.13517, 0.07305, 0.04544/ - DATA ((F(I,30,M), I=1,8), M=15,19) / - + 0.45709, 0.21076, 1.69827, 0.17175, 0.23170, - + 0.13474, 0.07367, 0.04687, - + 0.45748, 0.21003, 1.65352, 0.17048, 0.22960, - + 0.13423, 0.07417, 0.04811, - + 0.45772, 0.20929, 1.61181, 0.16920, 0.22752, - + 0.13366, 0.07456, 0.04920, - + 0.45783, 0.20853, 1.57284, 0.16792, 0.22546, - + 0.13305, 0.07486, 0.05016, - + 0.45783, 0.20776, 1.53636, 0.16663, 0.22343, - + 0.13240, 0.07507, 0.05098/ - DATA ((F(I,31,M), I=1,8), M=1,7) / - + 0.42534, 0.21798, 2.83437, 0.15691, 0.23455, - + 0.10196, 0.01847, 0.00000, - + 0.43538, 0.21921, 2.64104, 0.16132, 0.23716, - + 0.10961, 0.02930, 0.00000, - + 0.44301, 0.21984, 2.48210, 0.16385, 0.23794, - + 0.11478, 0.03724, 0.00000, - + 0.44886, 0.22003, 2.33441, 0.16522, 0.23765, - + 0.11835, 0.04324, 0.00671, - + 0.45348, 0.21994, 2.20605, 0.16579, 0.23664, - + 0.12083, 0.04790, 0.01335, - + 0.45716, 0.21963, 2.09544, 0.16579, 0.23515, - + 0.12250, 0.05157, 0.01874, - + 0.46007, 0.21917, 1.99893, 0.16539, 0.23332, - + 0.12359, 0.05449, 0.02318/ - DATA ((F(I,31,M), I=1,8), M=8,14) / - + 0.46238, 0.21858, 1.91381, 0.16472, 0.23130, - + 0.12424, 0.05684, 0.02687, - + 0.46418, 0.21790, 1.83803, 0.16384, 0.22913, - + 0.12457, 0.05873, 0.02998, - + 0.46557, 0.21715, 1.77005, 0.16282, 0.22689, - + 0.12464, 0.06026, 0.03261, - + 0.46661, 0.21635, 1.70856, 0.16170, 0.22461, - + 0.12453, 0.06151, 0.03485, - + 0.46735, 0.21551, 1.65264, 0.16051, 0.22230, - + 0.12426, 0.06252, 0.03678, - + 0.46785, 0.21463, 1.60146, 0.15928, 0.22001, - + 0.12387, 0.06334, 0.03843, - + 0.46814, 0.21374, 1.55438, 0.15801, 0.21773, - + 0.12340, 0.06400, 0.03986/ - DATA ((F(I,31,M), I=1,8), M=15,19) / - + 0.46824, 0.21282, 1.51090, 0.15672, 0.21548, - + 0.12285, 0.06453, 0.04111, - + 0.46820, 0.21190, 1.47055, 0.15543, 0.21326, - + 0.12225, 0.06494, 0.04219, - + 0.46801, 0.21097, 1.43296, 0.15414, 0.21108, - + 0.12161, 0.06526, 0.04313, - + 0.46771, 0.21003, 1.39785, 0.15285, 0.20894, - + 0.12093, 0.06551, 0.04395, - + 0.46731, 0.20909, 1.36499, 0.15157, 0.20684, - + 0.12022, 0.06568, 0.04467/ - DATA ((F(I,32,M), I=1,8), M=1,7) / - + 0.44377, 0.22382, 2.56053, 0.14754, 0.22704, - + 0.09766, 0.01620, 0.00000, - + 0.45294, 0.22453, 2.37373, 0.15077, 0.22783, - + 0.10378, 0.02568, 0.00000, - + 0.45976, 0.22469, 2.22324, 0.15244, 0.22726, - + 0.10781, 0.03260, 0.00000, - + 0.46483, 0.22446, 2.08620, 0.15318, 0.22594, - + 0.11051, 0.03784, 0.00589, - + 0.46871, 0.22398, 1.96820, 0.15327, 0.22412, - + 0.11231, 0.04190, 0.01170, - + 0.47168, 0.22332, 1.86720, 0.15290, 0.22198, - + 0.11344, 0.04509, 0.01642, - + 0.47393, 0.22252, 1.77950, 0.15223, 0.21963, - + 0.11409, 0.04763, 0.02030/ - DATA ((F(I,32,M), I=1,8), M=8,14) / - + 0.47560, 0.22162, 1.70243, 0.15133, 0.21718, - + 0.11439, 0.04966, 0.02353, - + 0.47679, 0.22066, 1.63400, 0.15029, 0.21467, - + 0.11442, 0.05130, 0.02624, - + 0.47760, 0.21964, 1.57275, 0.14914, 0.21214, - + 0.11426, 0.05262, 0.02853, - + 0.47808, 0.21858, 1.51741, 0.14793, 0.20962, - + 0.11394, 0.05369, 0.03048, - + 0.47830, 0.21750, 1.46714, 0.14667, 0.20713, - + 0.11351, 0.05456, 0.03215, - + 0.47829, 0.21639, 1.42117, 0.14538, 0.20468, - + 0.11299, 0.05526, 0.03359, - + 0.47809, 0.21528, 1.37891, 0.14408, 0.20227, - + 0.11241, 0.05582, 0.03483/ - DATA ((F(I,32,M), I=1,8), M=15,19) / - + 0.47773, 0.21416, 1.33989, 0.14278, 0.19991, - + 0.11177, 0.05626, 0.03591, - + 0.47724, 0.21305, 1.30368, 0.14147, 0.19760, - + 0.11109, 0.05661, 0.03684, - + 0.47662, 0.21193, 1.26996, 0.14019, 0.19536, - + 0.11038, 0.05688, 0.03765, - + 0.47591, 0.21082, 1.23846, 0.13891, 0.19317, - + 0.10966, 0.05707, 0.03836, - + 0.47511, 0.20971, 1.20898, 0.13764, 0.19103, - + 0.10891, 0.05721, 0.03897/ - DATA ((F(I,33,M), I=1,8), M=1,7) / - + 0.46109, 0.22906, 2.30028, 0.13861, 0.21910, - + 0.09332, 0.01413, 0.00000, - + 0.46932, 0.22923, 2.12256, 0.14078, 0.21829, - + 0.09807, 0.02237, 0.00000, - + 0.47525, 0.22891, 1.98186, 0.14170, 0.21653, - + 0.10108, 0.02839, 0.00000, - + 0.47950, 0.22826, 1.85594, 0.14188, 0.21432, - + 0.10301, 0.03293, 0.00514, - + 0.48261, 0.22739, 1.74841, 0.14155, 0.21180, - + 0.10420, 0.03645, 0.01020, - + 0.48485, 0.22636, 1.65689, 0.14086, 0.20910, - + 0.10485, 0.03922, 0.01431, - + 0.48640, 0.22523, 1.57776, 0.13994, 0.20631, - + 0.10512, 0.04141, 0.01769/ - DATA ((F(I,33,M), I=1,8), M=8,14) / - + 0.48741, 0.22403, 1.50841, 0.13887, 0.20350, - + 0.10511, 0.04316, 0.02049, - + 0.48798, 0.22277, 1.44699, 0.13768, 0.20070, - + 0.10490, 0.04457, 0.02285, - + 0.48819, 0.22148, 1.39209, 0.13643, 0.19794, - + 0.10453, 0.04571, 0.02483, - + 0.48811, 0.22017, 1.34255, 0.13514, 0.19523, - + 0.10404, 0.04662, 0.02653, - + 0.48779, 0.21885, 1.29757, 0.13382, 0.19258, - + 0.10347, 0.04736, 0.02797, - + 0.48727, 0.21753, 1.25645, 0.13250, 0.19001, - + 0.10284, 0.04795, 0.02921, - + 0.48658, 0.21621, 1.21866, 0.13117, 0.18750, - + 0.10216, 0.04842, 0.03028/ - DATA ((F(I,33,M), I=1,8), M=15,19) / - + 0.48575, 0.21489, 1.18377, 0.12986, 0.18506, - + 0.10145, 0.04880, 0.03120, - + 0.48480, 0.21358, 1.15141, 0.12855, 0.18270, - + 0.10071, 0.04908, 0.03200, - + 0.48376, 0.21229, 1.12125, 0.12727, 0.18040, - + 0.09995, 0.04930, 0.03270, - + 0.48264, 0.21101, 1.09308, 0.12601, 0.17818, - + 0.09919, 0.04945, 0.03330, - + 0.48144, 0.20974, 1.06672, 0.12476, 0.17601, - + 0.09842, 0.04956, 0.03382/ - DATA ((F(I,34,M), I=1,8), M=1,7) / - + 0.47755, 0.23395, 2.08257, 0.13145, 0.21155, - + 0.08946, 0.01259, 0.00000, - + 0.48478, 0.23359, 1.91915, 0.13289, 0.20961, - + 0.09322, 0.01995, 0.00000, - + 0.48980, 0.23279, 1.79088, 0.13329, 0.20703, - + 0.09553, 0.02531, 0.00000, - + 0.49320, 0.23171, 1.67680, 0.13310, 0.20421, - + 0.09692, 0.02937, 0.00459, - + 0.49552, 0.23045, 1.57961, 0.13249, 0.20123, - + 0.09770, 0.03251, 0.00912, - + 0.49701, 0.22908, 1.49700, 0.13160, 0.19817, - + 0.09803, 0.03497, 0.01279, - + 0.49786, 0.22762, 1.42561, 0.13053, 0.19511, - + 0.09804, 0.03692, 0.01581/ - DATA ((F(I,34,M), I=1,8), M=8,14) / - + 0.49821, 0.22612, 1.36303, 0.12934, 0.19208, - + 0.09783, 0.03848, 0.01832, - + 0.49815, 0.22458, 1.30756, 0.12807, 0.18911, - + 0.09745, 0.03974, 0.02042, - + 0.49777, 0.22303, 1.25796, 0.12676, 0.18621, - + 0.09695, 0.04074, 0.02219, - + 0.49713, 0.22148, 1.21314, 0.12543, 0.18340, - + 0.09636, 0.04155, 0.02369, - + 0.49628, 0.21994, 1.17243, 0.12408, 0.18068, - + 0.09571, 0.04220, 0.02498, - + 0.49525, 0.21840, 1.13517, 0.12274, 0.17804, - + 0.09501, 0.04272, 0.02608, - + 0.49408, 0.21688, 1.10089, 0.12142, 0.17549, - + 0.09428, 0.04314, 0.02702/ - DATA ((F(I,34,M), I=1,8), M=15,19) / - + 0.49279, 0.21537, 1.06922, 0.12010, 0.17302, - + 0.09352, 0.04346, 0.02784, - + 0.49141, 0.21389, 1.03981, 0.11881, 0.17064, - + 0.09275, 0.04370, 0.02854, - + 0.48995, 0.21242, 1.01239, 0.11754, 0.16834, - + 0.09197, 0.04389, 0.02916, - + 0.48842, 0.21098, 0.98676, 0.11630, 0.16611, - + 0.09119, 0.04402, 0.02969, - + 0.48684, 0.20957, 0.96276, 0.11508, 0.16396, - + 0.09041, 0.04410, 0.03014/ - DATA ((F(I,35,M), I=1,8), M=1,7) / - + 0.49304, 0.23835, 1.88080, 0.12476, 0.20386, - + 0.08565, 0.01123, 0.00000, - + 0.49922, 0.23743, 1.73274, 0.12557, 0.20095, - + 0.08856, 0.01780, 0.00000, - + 0.50327, 0.23615, 1.61722, 0.12553, 0.19770, - + 0.09025, 0.02260, 0.00000, - + 0.50579, 0.23465, 1.51481, 0.12502, 0.19437, - + 0.09119, 0.02622, 0.00411, - + 0.50729, 0.23301, 1.42761, 0.12418, 0.19102, - + 0.09162, 0.02903, 0.00817, - + 0.50802, 0.23128, 1.35348, 0.12312, 0.18767, - + 0.09168, 0.03123, 0.01146, - + 0.50815, 0.22950, 1.28935, 0.12192, 0.18439, - + 0.09148, 0.03298, 0.01416/ - DATA ((F(I,35,M), I=1,8), M=8,14) / - + 0.50783, 0.22770, 1.23307, 0.12064, 0.18119, - + 0.09110, 0.03437, 0.01640, - + 0.50714, 0.22589, 1.18312, 0.11931, 0.17810, - + 0.09059, 0.03549, 0.01828, - + 0.50617, 0.22409, 1.13837, 0.11796, 0.17511, - + 0.08998, 0.03638, 0.01986, - + 0.50496, 0.22230, 1.09788, 0.11660, 0.17223, - + 0.08931, 0.03710, 0.02120, - + 0.50358, 0.22054, 1.06103, 0.11524, 0.16945, - + 0.08859, 0.03768, 0.02234, - + 0.50205, 0.21879, 1.02727, 0.11389, 0.16678, - + 0.08784, 0.03814, 0.02332, - + 0.50040, 0.21708, 0.99617, 0.11257, 0.16421, - + 0.08707, 0.03850, 0.02416/ - DATA ((F(I,35,M), I=1,8), M=15,19) / - + 0.49865, 0.21539, 0.96740, 0.11126, 0.16173, - + 0.08629, 0.03878, 0.02489, - + 0.49684, 0.21373, 0.94065, 0.10998, 0.15935, - + 0.08550, 0.03899, 0.02551, - + 0.49496, 0.21211, 0.91569, 0.10873, 0.15706, - + 0.08470, 0.03915, 0.02605, - + 0.49304, 0.21052, 0.89234, 0.10751, 0.15484, - + 0.08392, 0.03925, 0.02651, - + 0.49108, 0.20895, 0.87045, 0.10631, 0.15271, - + 0.08313, 0.03932, 0.02691/ - DATA ((F(I,36,M), I=1,8), M=1,7) / - + 0.50758, 0.24226, 1.69107, 0.11831, 0.19601, - + 0.08185, 0.00997, 0.00000, - + 0.51266, 0.24079, 1.55814, 0.11854, 0.19225, - + 0.08398, 0.01581, 0.00000, - + 0.51571, 0.23902, 1.45496, 0.11810, 0.18840, - + 0.08512, 0.02009, 0.00000, - + 0.51732, 0.23709, 1.36364, 0.11730, 0.18464, - + 0.08565, 0.02331, 0.00367, - + 0.51798, 0.23506, 1.28588, 0.11626, 0.18096, - + 0.08576, 0.02582, 0.00729, - + 0.51793, 0.23299, 1.21970, 0.11505, 0.17737, - + 0.08558, 0.02778, 0.01022, - + 0.51733, 0.23089, 1.16237, 0.11374, 0.17391, - + 0.08519, 0.02933, 0.01263/ - DATA ((F(I,36,M), I=1,8), M=8,14) / - + 0.51633, 0.22880, 1.11196, 0.11238, 0.17058, - + 0.08466, 0.03057, 0.01463, - + 0.51500, 0.22672, 1.06713, 0.11100, 0.16738, - + 0.08404, 0.03156, 0.01629, - + 0.51343, 0.22467, 1.02689, 0.10960, 0.16432, - + 0.08334, 0.03235, 0.01770, - + 0.51166, 0.22265, 0.99041, 0.10822, 0.16139, - + 0.08260, 0.03298, 0.01889, - + 0.50974, 0.22067, 0.95716, 0.10685, 0.15858, - + 0.08182, 0.03349, 0.01990, - + 0.50771, 0.21873, 0.92664, 0.10550, 0.15589, - + 0.08103, 0.03389, 0.02077, - + 0.50558, 0.21682, 0.89849, 0.10418, 0.15331, - + 0.08022, 0.03420, 0.02151/ - DATA ((F(I,36,M), I=1,8), M=15,19) / - + 0.50339, 0.21496, 0.87241, 0.10289, 0.15084, - + 0.07942, 0.03445, 0.02214, - + 0.50114, 0.21314, 0.84813, 0.10162, 0.14847, - + 0.07861, 0.03463, 0.02269, - + 0.49886, 0.21136, 0.82546, 0.10039, 0.14619, - + 0.07781, 0.03476, 0.02316, - + 0.49655, 0.20962, 0.80423, 0.09919, 0.14400, - + 0.07702, 0.03484, 0.02357, - + 0.49422, 0.20791, 0.78431, 0.09802, 0.14189, - + 0.07623, 0.03489, 0.02392/ - DATA ((F(I,37,M), I=1,8), M=1,7) / - + 0.52128, 0.24579, 1.52332, 0.11247, 0.18836, - + 0.07823, 0.00889, 0.00000, - + 0.52521, 0.24376, 1.40502, 0.11222, 0.18391, - + 0.07972, 0.01411, 0.00000, - + 0.52724, 0.24151, 1.31337, 0.11144, 0.17958, - + 0.08039, 0.01794, 0.00000, - + 0.52793, 0.23915, 1.23213, 0.11041, 0.17548, - + 0.08058, 0.02082, 0.00329, - + 0.52774, 0.23675, 1.16281, 0.10920, 0.17155, - + 0.08043, 0.02306, 0.00653, - + 0.52690, 0.23433, 1.10368, 0.10786, 0.16778, - + 0.08005, 0.02482, 0.00916, - + 0.52558, 0.23193, 1.05231, 0.10647, 0.16418, - + 0.07951, 0.02620, 0.01131/ - DATA ((F(I,37,M), I=1,8), M=8,14) / - + 0.52389, 0.22955, 1.00702, 0.10504, 0.16076, - + 0.07887, 0.02731, 0.01310, - + 0.52193, 0.22721, 0.96664, 0.10361, 0.15750, - + 0.07815, 0.02819, 0.01459, - + 0.51976, 0.22492, 0.93030, 0.10219, 0.15439, - + 0.07738, 0.02889, 0.01584, - + 0.51744, 0.22268, 0.89729, 0.10079, 0.15143, - + 0.07658, 0.02945, 0.01690, - + 0.51499, 0.22048, 0.86713, 0.09941, 0.14861, - + 0.07577, 0.02990, 0.01780, - + 0.51246, 0.21835, 0.83940, 0.09806, 0.14592, - + 0.07494, 0.03025, 0.01857, - + 0.50987, 0.21626, 0.81378, 0.09675, 0.14335, - + 0.07412, 0.03052, 0.01922/ - DATA ((F(I,37,M), I=1,8), M=15,19) / - + 0.50723, 0.21423, 0.79001, 0.09547, 0.14089, - + 0.07329, 0.03073, 0.01979, - + 0.50456, 0.21225, 0.76787, 0.09422, 0.13854, - + 0.07248, 0.03088, 0.02027, - + 0.50188, 0.21032, 0.74716, 0.09301, 0.13629, - + 0.07168, 0.03099, 0.02068, - + 0.49919, 0.20845, 0.72776, 0.09183, 0.13413, - + 0.07088, 0.03106, 0.02104, - + 0.49650, 0.20661, 0.70953, 0.09068, 0.13206, - + 0.07010, 0.03109, 0.02134/ - DATA ((F(I,38,M), I=1,8), M=1,7) / - + 0.53427, 0.24905, 1.39086, 0.10777, 0.18133, - + 0.07503, 0.00810, 0.00000, - + 0.53704, 0.24647, 1.28636, 0.10716, 0.17643, - + 0.07606, 0.01286, 0.00000, - + 0.53803, 0.24375, 1.20499, 0.10615, 0.17180, - + 0.07641, 0.01636, 0.00000, - + 0.53779, 0.24098, 1.13226, 0.10496, 0.16749, - + 0.07637, 0.01900, 0.00301, - + 0.53675, 0.23821, 1.06982, 0.10362, 0.16342, - + 0.07605, 0.02105, 0.00597, - + 0.53512, 0.23546, 1.01629, 0.10220, 0.15955, - + 0.07554, 0.02265, 0.00837, - + 0.53308, 0.23276, 0.96958, 0.10074, 0.15589, - + 0.07491, 0.02391, 0.01034/ - DATA ((F(I,38,M), I=1,8), M=8,14) / - + 0.53073, 0.23011, 0.92823, 0.09927, 0.15243, - + 0.07418, 0.02492, 0.01197, - + 0.52815, 0.22752, 0.89122, 0.09782, 0.14914, - + 0.07341, 0.02572, 0.01333, - + 0.52540, 0.22500, 0.85782, 0.09638, 0.14603, - + 0.07260, 0.02636, 0.01446, - + 0.52253, 0.22254, 0.82739, 0.09497, 0.14308, - + 0.07177, 0.02686, 0.01543, - + 0.51958, 0.22016, 0.79953, 0.09359, 0.14027, - + 0.07093, 0.02726, 0.01624, - + 0.51657, 0.21784, 0.77387, 0.09224, 0.13761, - + 0.07009, 0.02758, 0.01694, - + 0.51352, 0.21559, 0.75012, 0.09094, 0.13506, - + 0.06926, 0.02782, 0.01753/ - DATA ((F(I,38,M), I=1,8), M=15,19) / - + 0.51046, 0.21340, 0.72806, 0.08967, 0.13264, - + 0.06843, 0.02800, 0.01804, - + 0.50739, 0.21127, 0.70749, 0.08844, 0.13032, - + 0.06762, 0.02813, 0.01847, - + 0.50433, 0.20921, 0.68823, 0.08724, 0.12811, - + 0.06682, 0.02822, 0.01884, - + 0.50128, 0.20720, 0.67018, 0.08608, 0.12599, - + 0.06603, 0.02828, 0.01916, - + 0.49824, 0.20524, 0.65320, 0.08496, 0.12396, - + 0.06526, 0.02830, 0.01943/ - DATA ((F(I,39,M), I=1,8), M=1,7) / - + 0.54641, 0.25189, 1.26525, 0.10312, 0.17421, - + 0.07182, 0.00734, 0.00000, - + 0.54797, 0.24875, 1.17378, 0.10220, 0.16891, - + 0.07243, 0.01168, 0.00000, - + 0.54790, 0.24556, 1.10208, 0.10097, 0.16401, - + 0.07249, 0.01486, 0.00000, - + 0.54671, 0.24238, 1.03731, 0.09962, 0.15953, - + 0.07223, 0.01727, 0.00274, - + 0.54481, 0.23924, 0.98133, 0.09817, 0.15534, - + 0.07176, 0.01913, 0.00544, - + 0.54240, 0.23617, 0.93305, 0.09667, 0.15139, - + 0.07113, 0.02059, 0.00762, - + 0.53963, 0.23317, 0.89070, 0.09516, 0.14768, - + 0.07040, 0.02174, 0.00941/ - DATA ((F(I,39,M), I=1,8), M=8,14) / - + 0.53661, 0.23025, 0.85304, 0.09365, 0.14419, - + 0.06961, 0.02265, 0.01089, - + 0.53340, 0.22742, 0.81921, 0.09217, 0.14091, - + 0.06878, 0.02337, 0.01212, - + 0.53007, 0.22468, 0.78856, 0.09071, 0.13780, - + 0.06794, 0.02395, 0.01316, - + 0.52667, 0.22202, 0.76057, 0.08930, 0.13486, - + 0.06708, 0.02440, 0.01403, - + 0.52321, 0.21944, 0.73488, 0.08792, 0.13208, - + 0.06622, 0.02476, 0.01476, - + 0.51972, 0.21695, 0.71117, 0.08658, 0.12944, - + 0.06538, 0.02504, 0.01539, - + 0.51623, 0.21454, 0.68920, 0.08529, 0.12693, - + 0.06454, 0.02525, 0.01592/ - DATA ((F(I,39,M), I=1,8), M=15,19) / - + 0.51275, 0.21220, 0.66876, 0.08403, 0.12454, - + 0.06371, 0.02541, 0.01637, - + 0.50929, 0.20993, 0.64968, 0.08282, 0.12227, - + 0.06290, 0.02552, 0.01676, - + 0.50585, 0.20773, 0.63181, 0.08164, 0.12010, - + 0.06211, 0.02559, 0.01709, - + 0.50244, 0.20560, 0.61504, 0.08050, 0.11802, - + 0.06133, 0.02563, 0.01737, - + 0.49907, 0.20353, 0.59926, 0.07940, 0.11603, - + 0.06057, 0.02565, 0.01761/ - DATA ((F(I,40,M), I=1,8), M=1,7) / - + 0.59580, 0.26104, 0.82656, 0.08422, 0.14156, - + 0.05763, 0.00479, 0.00000, - + 0.59109, 0.25520, 0.78061, 0.08221, 0.13530, - + 0.05696, 0.00763, 0.00000, - + 0.58556, 0.24974, 0.74148, 0.08025, 0.12983, - + 0.05612, 0.00971, 0.00000, - + 0.57958, 0.24462, 0.70296, 0.07838, 0.12503, - + 0.05523, 0.01128, 0.00180, - + 0.57339, 0.23980, 0.66805, 0.07657, 0.12068, - + 0.05429, 0.01248, 0.00356, - + 0.56709, 0.23522, 0.63681, 0.07481, 0.11670, - + 0.05332, 0.01340, 0.00498, - + 0.56077, 0.23088, 0.60860, 0.07313, 0.11304, - + 0.05234, 0.01412, 0.00613/ - DATA ((F(I,40,M), I=1,8), M=8,14) / - + 0.55450, 0.22676, 0.58296, 0.07152, 0.10966, - + 0.05138, 0.01468, 0.00707, - + 0.54831, 0.22284, 0.55951, 0.06997, 0.10652, - + 0.05043, 0.01512, 0.00785, - + 0.54223, 0.21911, 0.53797, 0.06850, 0.10360, - + 0.04951, 0.01545, 0.00849, - + 0.53627, 0.21555, 0.51811, 0.06709, 0.10087, - + 0.04861, 0.01571, 0.00903, - + 0.53044, 0.21216, 0.49972, 0.06574, 0.09832, - + 0.04774, 0.01590, 0.00947, - + 0.52475, 0.20891, 0.48266, 0.06445, 0.09591, - + 0.04690, 0.01604, 0.00985, - + 0.51921, 0.20580, 0.46678, 0.06322, 0.09365, - + 0.04609, 0.01614, 0.01016/ - DATA ((F(I,40,M), I=1,8), M=15,19) / - + 0.51379, 0.20282, 0.45196, 0.06204, 0.09152, - + 0.04530, 0.01621, 0.01043, - + 0.50852, 0.19996, 0.43810, 0.06091, 0.08950, - + 0.04455, 0.01624, 0.01065, - + 0.50339, 0.19721, 0.42511, 0.05983, 0.08759, - + 0.04382, 0.01625, 0.01083, - + 0.49838, 0.19457, 0.41291, 0.05879, 0.08577, - + 0.04311, 0.01625, 0.01098, - + 0.49351, 0.19203, 0.40142, 0.05780, 0.08405, - + 0.04243, 0.01622, 0.01111/ - DATA ((F(I,41,M), I=1,8), M=1,7) / - + 0.62876, 0.26330, 0.59903, 0.07015, 0.11448, - + 0.04632, 0.00340, 0.00000, - + 0.61769, 0.25502, 0.57146, 0.06761, 0.10823, - + 0.04513, 0.00539, 0.00000, - + 0.60676, 0.24754, 0.54494, 0.06529, 0.10290, - + 0.04395, 0.00683, 0.00000, - + 0.59616, 0.24076, 0.51682, 0.06318, 0.09831, - + 0.04283, 0.00790, 0.00125, - + 0.58589, 0.23450, 0.49046, 0.06121, 0.09421, - + 0.04173, 0.00870, 0.00247, - + 0.57597, 0.22868, 0.46635, 0.05937, 0.09051, - + 0.04067, 0.00930, 0.00343, - + 0.56640, 0.22326, 0.44428, 0.05764, 0.08714, - + 0.03966, 0.00976, 0.00420/ - DATA ((F(I,41,M), I=1,8), M=8,14) / - + 0.55720, 0.21818, 0.42407, 0.05602, 0.08407, - + 0.03868, 0.01010, 0.00483, - + 0.54835, 0.21341, 0.40552, 0.05450, 0.08124, - + 0.03775, 0.01036, 0.00534, - + 0.53985, 0.20892, 0.38845, 0.05307, 0.07864, - + 0.03685, 0.01055, 0.00575, - + 0.53168, 0.20468, 0.37273, 0.05172, 0.07622, - + 0.03601, 0.01069, 0.00610, - + 0.52383, 0.20067, 0.35819, 0.05044, 0.07397, - + 0.03520, 0.01078, 0.00638, - + 0.51627, 0.19687, 0.34473, 0.04924, 0.07188, - + 0.03442, 0.01084, 0.00661, - + 0.50900, 0.19327, 0.33225, 0.04810, 0.06992, - + 0.03369, 0.01087, 0.00680/ - DATA ((F(I,41,M), I=1,8), M=15,19) / - + 0.50199, 0.18983, 0.32063, 0.04701, 0.06808, - + 0.03298, 0.01088, 0.00695, - + 0.49524, 0.18656, 0.30981, 0.04598, 0.06635, - + 0.03231, 0.01088, 0.00708, - + 0.48873, 0.18344, 0.29970, 0.04501, 0.06472, - + 0.03166, 0.01086, 0.00718, - + 0.48244, 0.18045, 0.29023, 0.04408, 0.06318, - + 0.03105, 0.01082, 0.00726, - + 0.47637, 0.17759, 0.28136, 0.04319, 0.06172, - + 0.03046, 0.01078, 0.00733/ - DATA ((F(I,42,M), I=1,8), M=1,7) / - + 0.64746, 0.26000, 0.47125, 0.05866, 0.09228, - + 0.03721, 0.00254, 0.00000, - + 0.63028, 0.24962, 0.44745, 0.05588, 0.08644, - + 0.03584, 0.00398, 0.00000, - + 0.61430, 0.24047, 0.42385, 0.05342, 0.08153, - + 0.03457, 0.00500, 0.00000, - + 0.59945, 0.23233, 0.39912, 0.05125, 0.07734, - + 0.03340, 0.00573, 0.00090, - + 0.58550, 0.22493, 0.37610, 0.04927, 0.07363, - + 0.03230, 0.00627, 0.00176, - + 0.57236, 0.21815, 0.35518, 0.04745, 0.07033, - + 0.03126, 0.00666, 0.00243, - + 0.55996, 0.21190, 0.33619, 0.04577, 0.06734, - + 0.03028, 0.00695, 0.00296/ - DATA ((F(I,42,M), I=1,8), M=8,14) / - + 0.54823, 0.20611, 0.31896, 0.04422, 0.06464, - + 0.02937, 0.00716, 0.00339, - + 0.53714, 0.20072, 0.30328, 0.04278, 0.06218, - + 0.02851, 0.00731, 0.00373, - + 0.52661, 0.19570, 0.28898, 0.04144, 0.05992, - + 0.02770, 0.00741, 0.00400, - + 0.51662, 0.19099, 0.27591, 0.04019, 0.05784, - + 0.02693, 0.00747, 0.00422, - + 0.50712, 0.18657, 0.26393, 0.03903, 0.05591, - + 0.02621, 0.00751, 0.00440, - + 0.49806, 0.18241, 0.25293, 0.03793, 0.05413, - + 0.02553, 0.00752, 0.00455, - + 0.48942, 0.17848, 0.24279, 0.03691, 0.05247, - + 0.02489, 0.00752, 0.00466/ - DATA ((F(I,42,M), I=1,8), M=15,19) / - + 0.48117, 0.17477, 0.23342, 0.03594, 0.05092, - + 0.02428, 0.00750, 0.00475, - + 0.47327, 0.17125, 0.22474, 0.03503, 0.04947, - + 0.02370, 0.00747, 0.00482, - + 0.46571, 0.16790, 0.21668, 0.03416, 0.04811, - + 0.02315, 0.00744, 0.00488, - + 0.45846, 0.16472, 0.20919, 0.03335, 0.04683, - + 0.02263, 0.00739, 0.00492, - + 0.45150, 0.16169, 0.20219, 0.03257, 0.04562, - + 0.02213, 0.00735, 0.00496/ - DATA ((F(I,43,M), I=1,8), M=1,7) / - + 0.65361, 0.25218, 0.38634, 0.04875, 0.07405, - + 0.02978, 0.00191, 0.00000, - + 0.63083, 0.24010, 0.36128, 0.04593, 0.06877, - + 0.02839, 0.00296, 0.00000, - + 0.61030, 0.22964, 0.33772, 0.04350, 0.06437, - + 0.02713, 0.00368, 0.00000, - + 0.59171, 0.22047, 0.31443, 0.04139, 0.06066, - + 0.02601, 0.00419, 0.00065, - + 0.57460, 0.21224, 0.29337, 0.03949, 0.05741, - + 0.02497, 0.00455, 0.00126, - + 0.55873, 0.20478, 0.27462, 0.03778, 0.05453, - + 0.02402, 0.00481, 0.00174, - + 0.54396, 0.19796, 0.25792, 0.03622, 0.05195, - + 0.02313, 0.00498, 0.00210/ - DATA ((F(I,43,M), I=1,8), M=8,14) / - + 0.53018, 0.19169, 0.24299, 0.03480, 0.04963, - + 0.02231, 0.00511, 0.00239, - + 0.51727, 0.18591, 0.22959, 0.03349, 0.04753, - + 0.02155, 0.00519, 0.00262, - + 0.50515, 0.18056, 0.21753, 0.03228, 0.04561, - + 0.02084, 0.00524, 0.00280, - + 0.49373, 0.17558, 0.20662, 0.03117, 0.04386, - + 0.02017, 0.00526, 0.00295, - + 0.48296, 0.17092, 0.19672, 0.03014, 0.04224, - + 0.01955, 0.00527, 0.00306, - + 0.47278, 0.16657, 0.18771, 0.02918, 0.04075, - + 0.01897, 0.00526, 0.00315, - + 0.46313, 0.16248, 0.17947, 0.02828, 0.03938, - + 0.01843, 0.00524, 0.00322/ - DATA ((F(I,43,M), I=1,8), M=15,19) / - + 0.45397, 0.15863, 0.17191, 0.02744, 0.03809, - + 0.01792, 0.00521, 0.00328, - + 0.44525, 0.15500, 0.16496, 0.02665, 0.03690, - + 0.01743, 0.00518, 0.00332, - + 0.43695, 0.15156, 0.15854, 0.02591, 0.03578, - + 0.01698, 0.00514, 0.00335, - + 0.42904, 0.14831, 0.15261, 0.02522, 0.03473, - + 0.01655, 0.00510, 0.00337, - + 0.42147, 0.14522, 0.14710, 0.02456, 0.03375, - + 0.01614, 0.00505, 0.00338/ - DATA ((F(I,44,M), I=1,8), M=1,7) / - + 0.64940, 0.24105, 0.32041, 0.04017, 0.05918, - + 0.02375, 0.00144, 0.00000, - + 0.62168, 0.22769, 0.29388, 0.03746, 0.05451, - + 0.02241, 0.00220, 0.00000, - + 0.59724, 0.21628, 0.27050, 0.03516, 0.05065, - + 0.02124, 0.00272, 0.00000, - + 0.57552, 0.20641, 0.24874, 0.03319, 0.04743, - + 0.02021, 0.00307, 0.00047, - + 0.55580, 0.19764, 0.22966, 0.03145, 0.04463, - + 0.01927, 0.00331, 0.00091, - + 0.53774, 0.18974, 0.21307, 0.02990, 0.04217, - + 0.01842, 0.00347, 0.00124, - + 0.52111, 0.18259, 0.19856, 0.02850, 0.03998, - + 0.01764, 0.00358, 0.00150/ - DATA ((F(I,44,M), I=1,8), M=8,14) / - + 0.50573, 0.17607, 0.18580, 0.02724, 0.03802, - + 0.01693, 0.00365, 0.00170, - + 0.49145, 0.17009, 0.17451, 0.02608, 0.03626, - + 0.01627, 0.00369, 0.00186, - + 0.47814, 0.16458, 0.16446, 0.02503, 0.03466, - + 0.01567, 0.00371, 0.00198, - + 0.46570, 0.15949, 0.15547, 0.02407, 0.03320, - + 0.01511, 0.00372, 0.00207, - + 0.45404, 0.15476, 0.14739, 0.02318, 0.03187, - + 0.01459, 0.00371, 0.00214, - + 0.44307, 0.15035, 0.14009, 0.02235, 0.03065, - + 0.01411, 0.00369, 0.00220, - + 0.43274, 0.14623, 0.13347, 0.02159, 0.02952, - + 0.01365, 0.00367, 0.00224/ - DATA ((F(I,44,M), I=1,8), M=15,19) / - + 0.42298, 0.14236, 0.12743, 0.02088, 0.02847, - + 0.01323, 0.00364, 0.00227, - + 0.41374, 0.13873, 0.12191, 0.02021, 0.02750, - + 0.01284, 0.00360, 0.00230, - + 0.40498, 0.13531, 0.11685, 0.01959, 0.02660, - + 0.01247, 0.00357, 0.00231, - + 0.39666, 0.13208, 0.11218, 0.01901, 0.02575, - + 0.01212, 0.00353, 0.00232, - + 0.38874, 0.12903, 0.10788, 0.01847, 0.02496, - + 0.01179, 0.00349, 0.00233/ - DATA ((F(I,45,M), I=1,8), M=1,7) / - + 0.63592, 0.22725, 0.26388, 0.03271, 0.04695, - + 0.01879, 0.00107, 0.00000, - + 0.60404, 0.21303, 0.23734, 0.03020, 0.04290, - + 0.01757, 0.00162, 0.00000, - + 0.57640, 0.20103, 0.21516, 0.02811, 0.03958, - + 0.01651, 0.00198, 0.00000, - + 0.55218, 0.19076, 0.19554, 0.02634, 0.03684, - + 0.01560, 0.00222, 0.00034, - + 0.53043, 0.18170, 0.17879, 0.02479, 0.03447, - + 0.01478, 0.00238, 0.00065, - + 0.51072, 0.17361, 0.16452, 0.02343, 0.03240, - + 0.01404, 0.00249, 0.00089, - + 0.49272, 0.16634, 0.15225, 0.02221, 0.03057, - + 0.01338, 0.00255, 0.00106/ - DATA ((F(I,45,M), I=1,8), M=8,14) / - + 0.47621, 0.15975, 0.14160, 0.02112, 0.02895, - + 0.01278, 0.00259, 0.00120, - + 0.46099, 0.15374, 0.13229, 0.02013, 0.02750, - + 0.01223, 0.00261, 0.00131, - + 0.44689, 0.14824, 0.12410, 0.01924, 0.02619, - + 0.01172, 0.00262, 0.00139, - + 0.43380, 0.14317, 0.11683, 0.01842, 0.02500, - + 0.01126, 0.00261, 0.00145, - + 0.42159, 0.13849, 0.11035, 0.01767, 0.02392, - + 0.01084, 0.00260, 0.00150, - + 0.41017, 0.13414, 0.10454, 0.01699, 0.02293, - + 0.01044, 0.00258, 0.00153, - + 0.39945, 0.13010, 0.09930, 0.01635, 0.02201, - + 0.01007, 0.00256, 0.00156/ - DATA ((F(I,45,M), I=1,8), M=15,19) / - + 0.38938, 0.12632, 0.09455, 0.01576, 0.02118, - + 0.00973, 0.00253, 0.00158, - + 0.37989, 0.12278, 0.09022, 0.01522, 0.02040, - + 0.00942, 0.00250, 0.00159, - + 0.37093, 0.11946, 0.08627, 0.01471, 0.01968, - + 0.00912, 0.00247, 0.00160, - + 0.36244, 0.11634, 0.08264, 0.01423, 0.01901, - + 0.00884, 0.00244, 0.00160, - + 0.35440, 0.11339, 0.07932, 0.01379, 0.01838, - + 0.00858, 0.00241, 0.00160/ - DATA ((F(I,46,M), I=1,8), M=1,7) / - + 0.61471, 0.21157, 0.21408, 0.02629, 0.03693, - + 0.01475, 0.00078, 0.00000, - + 0.57950, 0.19687, 0.18911, 0.02404, 0.03347, - + 0.01366, 0.00118, 0.00000, - + 0.54938, 0.18460, 0.16911, 0.02220, 0.03067, - + 0.01273, 0.00143, 0.00000, - + 0.52330, 0.17419, 0.15209, 0.02066, 0.02837, - + 0.01194, 0.00160, 0.00024, - + 0.50012, 0.16509, 0.13788, 0.01932, 0.02640, - + 0.01124, 0.00170, 0.00046, - + 0.47927, 0.15702, 0.12598, 0.01816, 0.02469, - + 0.01063, 0.00177, 0.00063, - + 0.46039, 0.14981, 0.11589, 0.01712, 0.02320, - + 0.01007, 0.00181, 0.00075/ - DATA ((F(I,46,M), I=1,8), M=8,14) / - + 0.44318, 0.14331, 0.10724, 0.01620, 0.02187, - + 0.00957, 0.00183, 0.00085, - + 0.42742, 0.13741, 0.09975, 0.01538, 0.02069, - + 0.00912, 0.00184, 0.00092, - + 0.41291, 0.13204, 0.09322, 0.01464, 0.01963, - + 0.00871, 0.00183, 0.00097, - + 0.39949, 0.12712, 0.08746, 0.01396, 0.01868, - + 0.00834, 0.00183, 0.00101, - + 0.38705, 0.12258, 0.08236, 0.01335, 0.01781, - + 0.00799, 0.00181, 0.00104, - + 0.37546, 0.11840, 0.07781, 0.01279, 0.01702, - + 0.00768, 0.00179, 0.00107, - + 0.36464, 0.11451, 0.07372, 0.01227, 0.01630, - + 0.00739, 0.00177, 0.00108/ - DATA ((F(I,46,M), I=1,8), M=15,19) / - + 0.35451, 0.11090, 0.07004, 0.01180, 0.01564, - + 0.00712, 0.00175, 0.00109, - + 0.34500, 0.10752, 0.06670, 0.01135, 0.01502, - + 0.00686, 0.00173, 0.00110, - + 0.33604, 0.10437, 0.06365, 0.01095, 0.01446, - + 0.00663, 0.00170, 0.00110, - + 0.32760, 0.10141, 0.06087, 0.01056, 0.01393, - + 0.00641, 0.00168, 0.00110, - + 0.31962, 0.09862, 0.05832, 0.01021, 0.01344, - + 0.00621, 0.00166, 0.00110/ - DATA ((F(I,47,M), I=1,8), M=1,7) / - + 0.58717, 0.19467, 0.17050, 0.02085, 0.02876, - + 0.01146, 0.00057, 0.00000, - + 0.54948, 0.17986, 0.14828, 0.01890, 0.02586, - + 0.01051, 0.00085, 0.00000, - + 0.51761, 0.16760, 0.13105, 0.01731, 0.02353, - + 0.00972, 0.00102, 0.00000, - + 0.49032, 0.15730, 0.11683, 0.01600, 0.02164, - + 0.00906, 0.00113, 0.00017, - + 0.46625, 0.14835, 0.10518, 0.01488, 0.02003, - + 0.00848, 0.00120, 0.00033, - + 0.44478, 0.14047, 0.09555, 0.01391, 0.01864, - + 0.00797, 0.00124, 0.00044, - + 0.42546, 0.13346, 0.08748, 0.01305, 0.01743, - + 0.00751, 0.00127, 0.00053/ - DATA ((F(I,47,M), I=1,8), M=8,14) / - + 0.40796, 0.12718, 0.08062, 0.01229, 0.01637, - + 0.00711, 0.00128, 0.00059, - + 0.39202, 0.12152, 0.07473, 0.01162, 0.01543, - + 0.00675, 0.00128, 0.00064, - + 0.37742, 0.11638, 0.06962, 0.01102, 0.01459, - + 0.00642, 0.00128, 0.00068, - + 0.36399, 0.11169, 0.06515, 0.01047, 0.01383, - + 0.00612, 0.00127, 0.00070, - + 0.35159, 0.10738, 0.06120, 0.00998, 0.01315, - + 0.00585, 0.00126, 0.00072, - + 0.34009, 0.10342, 0.05769, 0.00953, 0.01253, - + 0.00560, 0.00124, 0.00074, - + 0.32939, 0.09976, 0.05456, 0.00911, 0.01196, - + 0.00537, 0.00122, 0.00075/ - DATA ((F(I,47,M), I=1,8), M=15,19) / - + 0.31941, 0.09637, 0.05174, 0.00874, 0.01144, - + 0.00516, 0.00121, 0.00075, - + 0.31008, 0.09321, 0.04919, 0.00839, 0.01097, - + 0.00497, 0.00119, 0.00076, - + 0.30132, 0.09027, 0.04687, 0.00806, 0.01053, - + 0.00479, 0.00117, 0.00076, - + 0.29308, 0.08751, 0.04475, 0.00776, 0.01012, - + 0.00462, 0.00115, 0.00076, - + 0.28532, 0.08493, 0.04282, 0.00749, 0.00974, - + 0.00446, 0.00113, 0.00076/ - DATA ((F(I,48,M), I=1,8), M=1,7) / - + 0.55454, 0.17712, 0.13317, 0.01632, 0.02216, - + 0.00881, 0.00040, 0.00000, - + 0.51522, 0.16250, 0.11435, 0.01466, 0.01977, - + 0.00801, 0.00060, 0.00000, - + 0.48233, 0.15051, 0.10012, 0.01333, 0.01787, - + 0.00735, 0.00072, 0.00000, - + 0.45443, 0.14052, 0.08866, 0.01225, 0.01634, - + 0.00680, 0.00079, 0.00012, - + 0.43001, 0.13189, 0.07939, 0.01132, 0.01505, - + 0.00633, 0.00084, 0.00023, - + 0.40837, 0.12434, 0.07182, 0.01053, 0.01394, - + 0.00592, 0.00087, 0.00031, - + 0.38902, 0.11766, 0.06552, 0.00983, 0.01298, - + 0.00555, 0.00088, 0.00037/ - DATA ((F(I,48,M), I=1,8), M=8,14) / - + 0.37160, 0.11171, 0.06021, 0.00922, 0.01214, - + 0.00523, 0.00089, 0.00041, - + 0.35581, 0.10636, 0.05567, 0.00868, 0.01140, - + 0.00495, 0.00089, 0.00044, - + 0.34142, 0.10153, 0.05175, 0.00820, 0.01074, - + 0.00469, 0.00088, 0.00047, - + 0.32824, 0.09714, 0.04833, 0.00777, 0.01015, - + 0.00446, 0.00087, 0.00049, - + 0.31611, 0.09313, 0.04532, 0.00738, 0.00962, - + 0.00425, 0.00086, 0.00050, - + 0.30492, 0.08944, 0.04266, 0.00702, 0.00914, - + 0.00405, 0.00085, 0.00051, - + 0.29454, 0.08605, 0.04028, 0.00670, 0.00870, - + 0.00388, 0.00084, 0.00052/ - DATA ((F(I,48,M), I=1,8), M=15,19) / - + 0.28490, 0.08292, 0.03815, 0.00640, 0.00830, - + 0.00372, 0.00083, 0.00052, - + 0.27590, 0.08001, 0.03622, 0.00613, 0.00794, - + 0.00357, 0.00082, 0.00052, - + 0.26749, 0.07731, 0.03447, 0.00588, 0.00760, - + 0.00343, 0.00080, 0.00052, - + 0.25960, 0.07478, 0.03287, 0.00565, 0.00729, - + 0.00330, 0.00079, 0.00052, - + 0.25219, 0.07243, 0.03142, 0.00544, 0.00701, - + 0.00318, 0.00077, 0.00052/ - DATA ((F(I,49,M), I=1,8), M=1,7) / - + 0.51803, 0.15943, 0.10221, 0.01264, 0.01694, - + 0.00672, 0.00028, 0.00000, - + 0.47793, 0.14528, 0.08696, 0.01127, 0.01500, - + 0.00606, 0.00042, 0.00000, - + 0.44470, 0.13378, 0.07565, 0.01017, 0.01348, - + 0.00552, 0.00051, 0.00000, - + 0.41676, 0.12426, 0.06670, 0.00929, 0.01225, - + 0.00508, 0.00056, 0.00008, - + 0.39248, 0.11609, 0.05953, 0.00854, 0.01123, - + 0.00470, 0.00059, 0.00016, - + 0.37110, 0.10898, 0.05371, 0.00791, 0.01035, - + 0.00437, 0.00061, 0.00022, - + 0.35210, 0.10272, 0.04890, 0.00735, 0.00960, - + 0.00409, 0.00062, 0.00026/ - DATA ((F(I,49,M), I=1,8), M=8,14) / - + 0.33508, 0.09717, 0.04486, 0.00687, 0.00895, - + 0.00384, 0.00062, 0.00029, - + 0.31972, 0.09221, 0.04141, 0.00644, 0.00837, - + 0.00361, 0.00062, 0.00031, - + 0.30580, 0.08774, 0.03845, 0.00607, 0.00786, - + 0.00341, 0.00061, 0.00033, - + 0.29309, 0.08369, 0.03586, 0.00573, 0.00741, - + 0.00324, 0.00061, 0.00034, - + 0.28146, 0.08001, 0.03359, 0.00542, 0.00700, - + 0.00307, 0.00060, 0.00035, - + 0.27075, 0.07665, 0.03159, 0.00515, 0.00663, - + 0.00293, 0.00059, 0.00036, - + 0.26086, 0.07356, 0.02979, 0.00490, 0.00630, - + 0.00279, 0.00058, 0.00036/ - DATA ((F(I,49,M), I=1,8), M=15,19) / - + 0.25169, 0.07071, 0.02819, 0.00467, 0.00600, - + 0.00267, 0.00057, 0.00036, - + 0.24317, 0.06807, 0.02674, 0.00446, 0.00572, - + 0.00256, 0.00056, 0.00036, - + 0.23523, 0.06563, 0.02542, 0.00427, 0.00547, - + 0.00245, 0.00055, 0.00036, - + 0.22780, 0.06335, 0.02423, 0.00409, 0.00523, - + 0.00236, 0.00054, 0.00036, - + 0.22084, 0.06123, 0.02313, 0.00393, 0.00502, - + 0.00227, 0.00053, 0.00036/ - DATA ((F(I,50,M), I=1,8), M=1,7) / - + 0.47894, 0.14204, 0.07702, 0.00966, 0.01279, - + 0.00506, 0.00020, 0.00000, - + 0.43882, 0.12858, 0.06514, 0.00855, 0.01125, - + 0.00453, 0.00030, 0.00000, - + 0.40588, 0.11771, 0.05644, 0.00767, 0.01004, - + 0.00410, 0.00036, 0.00000, - + 0.37841, 0.10879, 0.04964, 0.00696, 0.00908, - + 0.00375, 0.00039, 0.00006, - + 0.35469, 0.10118, 0.04423, 0.00637, 0.00828, - + 0.00345, 0.00041, 0.00011, - + 0.33393, 0.09459, 0.03985, 0.00587, 0.00760, - + 0.00320, 0.00042, 0.00015, - + 0.31558, 0.08882, 0.03625, 0.00543, 0.00702, - + 0.00298, 0.00043, 0.00018/ - DATA ((F(I,50,M), I=1,8), M=8,14) / - + 0.29922, 0.08372, 0.03322, 0.00506, 0.00652, - + 0.00278, 0.00043, 0.00020, - + 0.28453, 0.07918, 0.03064, 0.00473, 0.00608, - + 0.00261, 0.00043, 0.00022, - + 0.27127, 0.07511, 0.02843, 0.00443, 0.00569, - + 0.00246, 0.00042, 0.00023, - + 0.25922, 0.07143, 0.02649, 0.00417, 0.00535, - + 0.00232, 0.00042, 0.00024, - + 0.24822, 0.06810, 0.02480, 0.00394, 0.00504, - + 0.00220, 0.00042, 0.00024, - + 0.23814, 0.06507, 0.02330, 0.00373, 0.00476, - + 0.00209, 0.00041, 0.00025, - + 0.22885, 0.06229, 0.02196, 0.00354, 0.00451, - + 0.00199, 0.00040, 0.00025/ - DATA ((F(I,50,M), I=1,8), M=15,19) / - + 0.22027, 0.05973, 0.02076, 0.00337, 0.00429, - + 0.00190, 0.00040, 0.00025, - + 0.21232, 0.05738, 0.01968, 0.00321, 0.00408, - + 0.00182, 0.00039, 0.00025, - + 0.20493, 0.05520, 0.01870, 0.00307, 0.00389, - + 0.00174, 0.00038, 0.00025, - + 0.19804, 0.05317, 0.01780, 0.00293, 0.00372, - + 0.00167, 0.00038, 0.00025, - + 0.19160, 0.05129, 0.01699, 0.00281, 0.00356, - + 0.00160, 0.00037, 0.00025/ - DATA ((F(I,51,M), I=1,8), M=1,7) / - + 0.43803, 0.12516, 0.05687, 0.00727, 0.00952, - + 0.00376, 0.00014, 0.00000, - + 0.39860, 0.11256, 0.04796, 0.00638, 0.00831, - + 0.00334, 0.00021, 0.00000, - + 0.36650, 0.10246, 0.04149, 0.00569, 0.00738, - + 0.00300, 0.00025, 0.00000, - + 0.33993, 0.09422, 0.03648, 0.00514, 0.00663, - + 0.00273, 0.00027, 0.00004, - + 0.31714, 0.08723, 0.03249, 0.00468, 0.00602, - + 0.00250, 0.00028, 0.00008, - + 0.29730, 0.08121, 0.02927, 0.00429, 0.00550, - + 0.00231, 0.00029, 0.00010, - + 0.27986, 0.07597, 0.02662, 0.00396, 0.00506, - + 0.00214, 0.00030, 0.00012/ - DATA ((F(I,51,M), I=1,8), M=8,14) / - + 0.26438, 0.07135, 0.02439, 0.00367, 0.00469, - + 0.00199, 0.00030, 0.00014, - + 0.25055, 0.06726, 0.02250, 0.00342, 0.00435, - + 0.00186, 0.00030, 0.00015, - + 0.23811, 0.06361, 0.02086, 0.00320, 0.00406, - + 0.00175, 0.00029, 0.00016, - + 0.22685, 0.06032, 0.01944, 0.00300, 0.00381, - + 0.00165, 0.00029, 0.00016, - + 0.21661, 0.05735, 0.01819, 0.00282, 0.00358, - + 0.00156, 0.00029, 0.00017, - + 0.20726, 0.05465, 0.01708, 0.00267, 0.00337, - + 0.00148, 0.00028, 0.00017, - + 0.19867, 0.05218, 0.01609, 0.00252, 0.00319, - + 0.00140, 0.00028, 0.00017/ - DATA ((F(I,51,M), I=1,8), M=15,19) / - + 0.19076, 0.04993, 0.01520, 0.00240, 0.00302, - + 0.00133, 0.00027, 0.00017, - + 0.18345, 0.04785, 0.01440, 0.00228, 0.00287, - + 0.00127, 0.00027, 0.00017, - + 0.17667, 0.04593, 0.01367, 0.00217, 0.00273, - + 0.00122, 0.00026, 0.00017, - + 0.17037, 0.04416, 0.01301, 0.00207, 0.00260, - + 0.00116, 0.00026, 0.00017, - + 0.16450, 0.04251, 0.01240, 0.00198, 0.00249, - + 0.00112, 0.00025, 0.00017/ - DATA ((F(I,52,M), I=1,8), M=1,7) / - + 0.39640, 0.10910, 0.04108, 0.00538, 0.00696, - + 0.00275, 0.00009, 0.00000, - + 0.35825, 0.09746, 0.03466, 0.00469, 0.00604, - + 0.00242, 0.00014, 0.00000, - + 0.32746, 0.08821, 0.03002, 0.00416, 0.00533, - + 0.00216, 0.00017, 0.00000, - + 0.30216, 0.08072, 0.02644, 0.00373, 0.00476, - + 0.00196, 0.00019, 0.00003, - + 0.28059, 0.07439, 0.02358, 0.00338, 0.00430, - + 0.00178, 0.00020, 0.00005, - + 0.26191, 0.06897, 0.02127, 0.00308, 0.00392, - + 0.00164, 0.00020, 0.00007, - + 0.24558, 0.06427, 0.01936, 0.00283, 0.00359, - + 0.00151, 0.00020, 0.00008/ - DATA ((F(I,52,M), I=1,8), M=8,14) / - + 0.23115, 0.06015, 0.01775, 0.00262, 0.00331, - + 0.00140, 0.00020, 0.00010, - + 0.21831, 0.05651, 0.01637, 0.00243, 0.00307, - + 0.00131, 0.00020, 0.00010, - + 0.20681, 0.05327, 0.01518, 0.00227, 0.00285, - + 0.00123, 0.00020, 0.00011, - + 0.19644, 0.05037, 0.01415, 0.00212, 0.00266, - + 0.00115, 0.00020, 0.00011, - + 0.18704, 0.04776, 0.01323, 0.00199, 0.00250, - + 0.00109, 0.00020, 0.00012, - + 0.17848, 0.04539, 0.01242, 0.00187, 0.00235, - + 0.00103, 0.00019, 0.00012, - + 0.17065, 0.04324, 0.01169, 0.00177, 0.00221, - + 0.00097, 0.00019, 0.00012/ - DATA ((F(I,52,M), I=1,8), M=15,19) / - + 0.16346, 0.04127, 0.01104, 0.00168, 0.00209, - + 0.00092, 0.00019, 0.00012, - + 0.15683, 0.03946, 0.01045, 0.00159, 0.00198, - + 0.00088, 0.00018, 0.00012, - + 0.15070, 0.03780, 0.00992, 0.00151, 0.00188, - + 0.00084, 0.00018, 0.00012, - + 0.14501, 0.03626, 0.00943, 0.00144, 0.00179, - + 0.00080, 0.00018, 0.00012, - + 0.13973, 0.03484, 0.00898, 0.00137, 0.00171, - + 0.00077, 0.00017, 0.00012/ - DATA ((F(I,53,M), I=1,8), M=1,7) / - + 0.35532, 0.09425, 0.02940, 0.00395, 0.00506, - + 0.00199, 0.00006, 0.00000, - + 0.31900, 0.08366, 0.02494, 0.00342, 0.00436, - + 0.00175, 0.00010, 0.00000, - + 0.28989, 0.07530, 0.02170, 0.00301, 0.00383, - + 0.00155, 0.00012, 0.00000, - + 0.26616, 0.06857, 0.01917, 0.00269, 0.00341, - + 0.00140, 0.00013, 0.00002, - + 0.24603, 0.06292, 0.01715, 0.00243, 0.00306, - + 0.00127, 0.00014, 0.00004, - + 0.22870, 0.05810, 0.01550, 0.00221, 0.00278, - + 0.00116, 0.00014, 0.00005, - + 0.21362, 0.05394, 0.01413, 0.00202, 0.00254, - + 0.00107, 0.00014, 0.00006/ - DATA ((F(I,53,M), I=1,8), M=8,14) / - + 0.20035, 0.05031, 0.01297, 0.00186, 0.00233, - + 0.00099, 0.00014, 0.00007, - + 0.18860, 0.04711, 0.01197, 0.00172, 0.00215, - + 0.00092, 0.00014, 0.00007, - + 0.17811, 0.04428, 0.01111, 0.00160, 0.00200, - + 0.00086, 0.00014, 0.00008, - + 0.16868, 0.04175, 0.01035, 0.00149, 0.00186, - + 0.00080, 0.00014, 0.00008, - + 0.16017, 0.03948, 0.00968, 0.00140, 0.00174, - + 0.00076, 0.00014, 0.00008, - + 0.15244, 0.03743, 0.00908, 0.00131, 0.00163, - + 0.00071, 0.00014, 0.00008, - + 0.14539, 0.03556, 0.00855, 0.00124, 0.00154, - + 0.00068, 0.00013, 0.00008/ - DATA ((F(I,53,M), I=1,8), M=15,19) / - + 0.13894, 0.03387, 0.00807, 0.00117, 0.00145, - + 0.00064, 0.00013, 0.00008, - + 0.13300, 0.03231, 0.00763, 0.00111, 0.00137, - + 0.00061, 0.00013, 0.00008, - + 0.12753, 0.03089, 0.00723, 0.00105, 0.00130, - + 0.00058, 0.00013, 0.00008, - + 0.12246, 0.02957, 0.00687, 0.00100, 0.00123, - + 0.00055, 0.00012, 0.00008, - + 0.11777, 0.02835, 0.00654, 0.00095, 0.00117, - + 0.00053, 0.00012, 0.00008/ - DATA ((F(I,54,M), I=1,8), M=1,7) / - + 0.31484, 0.08047, 0.02065, 0.00285, 0.00362, - + 0.00142, 0.00004, 0.00000, - + 0.28077, 0.07097, 0.01768, 0.00246, 0.00310, - + 0.00124, 0.00007, 0.00000, - + 0.25368, 0.06352, 0.01549, 0.00215, 0.00270, - + 0.00110, 0.00009, 0.00000, - + 0.23175, 0.05757, 0.01377, 0.00191, 0.00240, - + 0.00098, 0.00009, 0.00001, - + 0.21325, 0.05259, 0.01236, 0.00172, 0.00214, - + 0.00089, 0.00010, 0.00002, - + 0.19740, 0.04837, 0.01121, 0.00155, 0.00194, - + 0.00081, 0.00010, 0.00003, - + 0.18367, 0.04473, 0.01023, 0.00142, 0.00176, - + 0.00074, 0.00010, 0.00004/ - DATA ((F(I,54,M), I=1,8), M=8,14) / - + 0.17166, 0.04158, 0.00941, 0.00130, 0.00161, - + 0.00069, 0.00010, 0.00005, - + 0.16105, 0.03881, 0.00869, 0.00120, 0.00149, - + 0.00064, 0.00010, 0.00005, - + 0.15162, 0.03637, 0.00806, 0.00111, 0.00138, - + 0.00059, 0.00010, 0.00005, - + 0.14317, 0.03419, 0.00751, 0.00104, 0.00128, - + 0.00055, 0.00010, 0.00006, - + 0.13557, 0.03225, 0.00703, 0.00097, 0.00119, - + 0.00052, 0.00010, 0.00006, - + 0.12869, 0.03049, 0.00659, 0.00091, 0.00112, - + 0.00049, 0.00010, 0.00006, - + 0.12244, 0.02890, 0.00620, 0.00085, 0.00105, - + 0.00046, 0.00009, 0.00006/ - DATA ((F(I,54,M), I=1,8), M=15,19) / - + 0.11673, 0.02746, 0.00585, 0.00081, 0.00099, - + 0.00044, 0.00009, 0.00006, - + 0.11149, 0.02614, 0.00553, 0.00076, 0.00093, - + 0.00042, 0.00009, 0.00006, - + 0.10667, 0.02494, 0.00523, 0.00072, 0.00088, - + 0.00040, 0.00009, 0.00006, - + 0.10222, 0.02383, 0.00497, 0.00068, 0.00084, - + 0.00038, 0.00009, 0.00006, - + 0.09810, 0.02280, 0.00473, 0.00065, 0.00079, - + 0.00036, 0.00009, 0.00006/ - DATA ((F(I,55,M), I=1,8), M=1,7) / - + 0.27581, 0.06789, 0.01420, 0.00202, 0.00253, - + 0.00100, 0.00003, 0.00000, - + 0.24433, 0.05949, 0.01234, 0.00173, 0.00216, - + 0.00086, 0.00005, 0.00000, - + 0.21947, 0.05295, 0.01092, 0.00151, 0.00187, - + 0.00076, 0.00006, 0.00000, - + 0.19949, 0.04775, 0.00977, 0.00133, 0.00165, - + 0.00068, 0.00007, 0.00001, - + 0.18272, 0.04343, 0.00882, 0.00119, 0.00147, - + 0.00061, 0.00007, 0.00002, - + 0.16843, 0.03977, 0.00802, 0.00107, 0.00132, - + 0.00055, 0.00007, 0.00002, - + 0.15611, 0.03665, 0.00734, 0.00098, 0.00120, - + 0.00051, 0.00007, 0.00003/ - DATA ((F(I,55,M), I=1,8), M=8,14) / - + 0.14537, 0.03395, 0.00676, 0.00089, 0.00110, - + 0.00047, 0.00007, 0.00003, - + 0.13593, 0.03158, 0.00625, 0.00082, 0.00101, - + 0.00043, 0.00007, 0.00003, - + 0.12757, 0.02950, 0.00580, 0.00076, 0.00093, - + 0.00040, 0.00007, 0.00004, - + 0.12011, 0.02766, 0.00540, 0.00071, 0.00086, - + 0.00038, 0.00007, 0.00004, - + 0.11341, 0.02601, 0.00505, 0.00066, 0.00080, - + 0.00035, 0.00007, 0.00004, - + 0.10737, 0.02453, 0.00473, 0.00061, 0.00075, - + 0.00033, 0.00007, 0.00004, - + 0.10190, 0.02320, 0.00445, 0.00058, 0.00070, - + 0.00031, 0.00007, 0.00004/ - DATA ((F(I,55,M), I=1,8), M=15,19) / - + 0.09691, 0.02199, 0.00419, 0.00054, 0.00066, - + 0.00029, 0.00007, 0.00004, - + 0.09235, 0.02089, 0.00396, 0.00051, 0.00062, - + 0.00028, 0.00006, 0.00004, - + 0.08816, 0.01988, 0.00375, 0.00048, 0.00059, - + 0.00027, 0.00006, 0.00004, - + 0.08431, 0.01895, 0.00355, 0.00046, 0.00055, - + 0.00025, 0.00006, 0.00004, - + 0.08075, 0.01810, 0.00338, 0.00044, 0.00053, - + 0.00024, 0.00006, 0.00004/ - DATA ((F(I,56,M), I=1,8), M=1,7) / - + 0.23881, 0.05658, 0.00957, 0.00140, 0.00173, - + 0.00068, 0.00002, 0.00000, - + 0.21012, 0.04925, 0.00848, 0.00119, 0.00147, - + 0.00059, 0.00004, 0.00000, - + 0.18764, 0.04358, 0.00760, 0.00103, 0.00127, - + 0.00052, 0.00005, 0.00000, - + 0.16969, 0.03911, 0.00686, 0.00091, 0.00111, - + 0.00046, 0.00005, 0.00000, - + 0.15471, 0.03541, 0.00623, 0.00081, 0.00099, - + 0.00041, 0.00005, 0.00001, - + 0.14200, 0.03229, 0.00569, 0.00073, 0.00089, - + 0.00037, 0.00005, 0.00002, - + 0.13110, 0.02964, 0.00522, 0.00066, 0.00080, - + 0.00034, 0.00005, 0.00002/ - DATA ((F(I,56,M), I=1,8), M=8,14) / - + 0.12164, 0.02736, 0.00481, 0.00060, 0.00073, - + 0.00031, 0.00005, 0.00002, - + 0.11335, 0.02537, 0.00445, 0.00055, 0.00067, - + 0.00029, 0.00005, 0.00002, - + 0.10604, 0.02362, 0.00413, 0.00051, 0.00061, - + 0.00027, 0.00005, 0.00003, - + 0.09954, 0.02208, 0.00385, 0.00047, 0.00057, - + 0.00025, 0.00005, 0.00003, - + 0.09372, 0.02071, 0.00359, 0.00044, 0.00053, - + 0.00023, 0.00005, 0.00003, - + 0.08849, 0.01948, 0.00336, 0.00041, 0.00049, - + 0.00022, 0.00005, 0.00003, - + 0.08376, 0.01837, 0.00316, 0.00038, 0.00046, - + 0.00021, 0.00005, 0.00003/ - DATA ((F(I,56,M), I=1,8), M=15,19) / - + 0.07947, 0.01737, 0.00297, 0.00036, 0.00043, - + 0.00020, 0.00005, 0.00003, - + 0.07555, 0.01647, 0.00281, 0.00034, 0.00040, - + 0.00018, 0.00005, 0.00003, - + 0.07196, 0.01564, 0.00265, 0.00032, 0.00038, - + 0.00018, 0.00005, 0.00003, - + 0.06867, 0.01488, 0.00251, 0.00030, 0.00036, - + 0.00017, 0.00004, 0.00003, - + 0.06564, 0.01418, 0.00238, 0.00029, 0.00034, - + 0.00016, 0.00004, 0.00003/ - DATA ((F(I,57,M), I=1,8), M=1,7) / - + 0.20438, 0.04662, 0.00643, 0.00096, 0.00117, - + 0.00046, 0.00001, 0.00000, - + 0.17863, 0.04032, 0.00584, 0.00081, 0.00099, - + 0.00040, 0.00003, 0.00000, - + 0.15859, 0.03548, 0.00531, 0.00070, 0.00085, - + 0.00035, 0.00003, 0.00000, - + 0.14270, 0.03168, 0.00483, 0.00061, 0.00074, - + 0.00031, 0.00003, 0.00000, - + 0.12951, 0.02855, 0.00441, 0.00054, 0.00066, - + 0.00028, 0.00004, 0.00001, - + 0.11838, 0.02594, 0.00404, 0.00049, 0.00059, - + 0.00025, 0.00004, 0.00001, - + 0.10887, 0.02372, 0.00372, 0.00044, 0.00053, - + 0.00023, 0.00004, 0.00001/ - DATA ((F(I,57,M), I=1,8), M=8,14) / - + 0.10065, 0.02181, 0.00343, 0.00040, 0.00048, - + 0.00021, 0.00004, 0.00002, - + 0.09348, 0.02016, 0.00317, 0.00037, 0.00044, - + 0.00019, 0.00004, 0.00002, - + 0.08717, 0.01872, 0.00294, 0.00034, 0.00040, - + 0.00018, 0.00004, 0.00002, - + 0.08159, 0.01744, 0.00274, 0.00031, 0.00037, - + 0.00017, 0.00004, 0.00002, - + 0.07661, 0.01632, 0.00256, 0.00029, 0.00035, - + 0.00016, 0.00004, 0.00002, - + 0.07214, 0.01531, 0.00239, 0.00027, 0.00032, - + 0.00015, 0.00004, 0.00002, - + 0.06811, 0.01440, 0.00224, 0.00025, 0.00030, - + 0.00014, 0.00004, 0.00002/ - DATA ((F(I,57,M), I=1,8), M=15,19) / - + 0.06447, 0.01359, 0.00211, 0.00024, 0.00028, - + 0.00013, 0.00003, 0.00002, - + 0.06115, 0.01285, 0.00199, 0.00022, 0.00026, - + 0.00012, 0.00003, 0.00002, - + 0.05812, 0.01217, 0.00188, 0.00021, 0.00025, - + 0.00012, 0.00003, 0.00002, - + 0.05534, 0.01156, 0.00177, 0.00020, 0.00023, - + 0.00011, 0.00003, 0.00002, - + 0.05279, 0.01100, 0.00168, 0.00019, 0.00022, - + 0.00011, 0.00003, 0.00002/ - DATA ((F(I,58,M), I=1,8), M=1,7) / - + 0.17274, 0.03790, 0.00425, 0.00064, 0.00078, - + 0.00030, 0.00001, 0.00000, - + 0.14996, 0.03256, 0.00397, 0.00054, 0.00065, - + 0.00026, 0.00002, 0.00000, - + 0.13236, 0.02848, 0.00367, 0.00047, 0.00056, - + 0.00023, 0.00003, 0.00000, - + 0.11849, 0.02531, 0.00337, 0.00041, 0.00049, - + 0.00020, 0.00003, 0.00000, - + 0.10704, 0.02271, 0.00309, 0.00036, 0.00043, - + 0.00018, 0.00003, 0.00000, - + 0.09743, 0.02054, 0.00284, 0.00032, 0.00038, - + 0.00016, 0.00003, 0.00001, - + 0.08925, 0.01871, 0.00262, 0.00029, 0.00034, - + 0.00015, 0.00003, 0.00001/ - DATA ((F(I,58,M), I=1,8), M=8,14) / - + 0.08220, 0.01715, 0.00241, 0.00026, 0.00031, - + 0.00014, 0.00003, 0.00001, - + 0.07609, 0.01580, 0.00223, 0.00024, 0.00028, - + 0.00013, 0.00003, 0.00001, - + 0.07073, 0.01462, 0.00207, 0.00022, 0.00026, - + 0.00012, 0.00003, 0.00001, - + 0.06600, 0.01358, 0.00193, 0.00020, 0.00024, - + 0.00011, 0.00003, 0.00001, - + 0.06179, 0.01267, 0.00180, 0.00019, 0.00022, - + 0.00010, 0.00003, 0.00001, - + 0.05803, 0.01186, 0.00168, 0.00018, 0.00021, - + 0.00010, 0.00003, 0.00001, - + 0.05465, 0.01113, 0.00157, 0.00016, 0.00019, - + 0.00009, 0.00003, 0.00001/ - DATA ((F(I,58,M), I=1,8), M=15,19) / - + 0.05160, 0.01047, 0.00147, 0.00015, 0.00018, - + 0.00009, 0.00003, 0.00001, - + 0.04883, 0.00988, 0.00139, 0.00014, 0.00017, - + 0.00008, 0.00003, 0.00001, - + 0.04630, 0.00934, 0.00131, 0.00014, 0.00016, - + 0.00008, 0.00002, 0.00002, - + 0.04400, 0.00885, 0.00123, 0.00013, 0.00015, - + 0.00007, 0.00002, 0.00001, - + 0.04188, 0.00840, 0.00117, 0.00012, 0.00014, - + 0.00007, 0.00002, 0.00001/ - DATA ((F(I,59,M), I=1,8), M=1,7) / - + 0.14396, 0.03033, 0.00275, 0.00041, 0.00050, - + 0.00019, 0.00001, 0.00000, - + 0.12411, 0.02588, 0.00266, 0.00035, 0.00042, - + 0.00017, 0.00001, 0.00000, - + 0.10888, 0.02251, 0.00250, 0.00030, 0.00036, - + 0.00015, 0.00002, 0.00000, - + 0.09697, 0.01989, 0.00232, 0.00026, 0.00031, - + 0.00013, 0.00002, 0.00000, - + 0.08718, 0.01777, 0.00214, 0.00023, 0.00027, - + 0.00012, 0.00002, 0.00000, - + 0.07900, 0.01600, 0.00197, 0.00020, 0.00024, - + 0.00011, 0.00002, 0.00000, - + 0.07207, 0.01452, 0.00181, 0.00018, 0.00022, - + 0.00010, 0.00002, 0.00001/ - DATA ((F(I,59,M), I=1,8), M=8,14) / - + 0.06613, 0.01325, 0.00167, 0.00017, 0.00020, - + 0.00009, 0.00002, 0.00001, - + 0.06099, 0.01217, 0.00155, 0.00015, 0.00018, - + 0.00008, 0.00002, 0.00001, - + 0.05651, 0.01122, 0.00143, 0.00014, 0.00016, - + 0.00008, 0.00002, 0.00001, - + 0.05256, 0.01040, 0.00133, 0.00013, 0.00015, - + 0.00007, 0.00002, 0.00001, - + 0.04907, 0.00967, 0.00124, 0.00012, 0.00014, - + 0.00007, 0.00002, 0.00001, - + 0.04595, 0.00902, 0.00115, 0.00011, 0.00013, - + 0.00006, 0.00002, 0.00001, - + 0.04316, 0.00844, 0.00108, 0.00010, 0.00012, - + 0.00006, 0.00002, 0.00001/ - DATA ((F(I,59,M), I=1,8), M=15,19) / - + 0.04064, 0.00793, 0.00101, 0.00010, 0.00011, - + 0.00005, 0.00002, 0.00001, - + 0.03837, 0.00746, 0.00095, 0.00009, 0.00010, - + 0.00005, 0.00002, 0.00001, - + 0.03630, 0.00704, 0.00089, 0.00009, 0.00010, - + 0.00005, 0.00002, 0.00001, - + 0.03441, 0.00665, 0.00084, 0.00008, 0.00009, - + 0.00005, 0.00002, 0.00001, - + 0.03269, 0.00630, 0.00079, 0.00008, 0.00009, - + 0.00004, 0.00002, 0.00001/ - DATA ((F(I,60,M), I=1,8), M=1,7) / - + 0.09585, 0.01856, 0.00114, 0.00016, 0.00019, - + 0.00007, 0.00000, 0.00000, - + 0.08146, 0.01562, 0.00119, 0.00014, 0.00016, - + 0.00007, 0.00001, 0.00000, - + 0.07057, 0.01342, 0.00115, 0.00012, 0.00014, - + 0.00006, 0.00001, 0.00000, - + 0.06218, 0.01174, 0.00108, 0.00010, 0.00012, - + 0.00005, 0.00001, 0.00000, - + 0.05535, 0.01038, 0.00100, 0.00009, 0.00010, - + 0.00005, 0.00001, 0.00000, - + 0.04970, 0.00927, 0.00092, 0.00008, 0.00009, - + 0.00004, 0.00001, 0.00000, - + 0.04496, 0.00834, 0.00085, 0.00007, 0.00008, - + 0.00004, 0.00001, 0.00000/ - DATA ((F(I,60,M), I=1,8), M=8,14) / - + 0.04094, 0.00755, 0.00078, 0.00006, 0.00007, - + 0.00004, 0.00001, 0.00000, - + 0.03748, 0.00688, 0.00072, 0.00006, 0.00007, - + 0.00003, 0.00001, 0.00000, - + 0.03449, 0.00631, 0.00066, 0.00005, 0.00006, - + 0.00003, 0.00001, 0.00000, - + 0.03187, 0.00581, 0.00061, 0.00005, 0.00006, - + 0.00003, 0.00001, 0.00001, - + 0.02957, 0.00537, 0.00057, 0.00005, 0.00005, - + 0.00003, 0.00001, 0.00001, - + 0.02753, 0.00498, 0.00053, 0.00004, 0.00005, - + 0.00003, 0.00001, 0.00001, - + 0.02571, 0.00464, 0.00049, 0.00004, 0.00005, - + 0.00002, 0.00001, 0.00001/ - DATA ((F(I,60,M), I=1,8), M=15,19) / - + 0.02409, 0.00433, 0.00046, 0.00004, 0.00004, - + 0.00002, 0.00001, 0.00001, - + 0.02262, 0.00406, 0.00043, 0.00004, 0.00004, - + 0.00002, 0.00001, 0.00001, - + 0.02130, 0.00381, 0.00040, 0.00003, 0.00004, - + 0.00002, 0.00001, 0.00001, - + 0.02009, 0.00358, 0.00038, 0.00003, 0.00004, - + 0.00002, 0.00001, 0.00001, - + 0.01900, 0.00338, 0.00035, 0.00003, 0.00003, - + 0.00002, 0.00001, 0.00001/ - DATA ((F(I,61,M), I=1,8), M=1,7) / - + 0.05949, 0.01049, 0.00045, 0.00005, 0.00006, - + 0.00002, 0.00000, 0.00000, - + 0.04976, 0.00869, 0.00050, 0.00005, 0.00005, - + 0.00002, 0.00001, 0.00000, - + 0.04251, 0.00736, 0.00050, 0.00004, 0.00005, - + 0.00002, 0.00001, 0.00000, - + 0.03701, 0.00637, 0.00047, 0.00004, 0.00004, - + 0.00002, 0.00001, 0.00000, - + 0.03258, 0.00557, 0.00043, 0.00003, 0.00003, - + 0.00002, 0.00001, 0.00000, - + 0.02896, 0.00492, 0.00040, 0.00003, 0.00003, - + 0.00002, 0.00001, 0.00000, - + 0.02595, 0.00439, 0.00036, 0.00003, 0.00003, - + 0.00002, 0.00001, 0.00000/ - DATA ((F(I,61,M), I=1,8), M=8,14) / - + 0.02342, 0.00395, 0.00033, 0.00002, 0.00003, - + 0.00001, 0.00001, 0.00000, - + 0.02126, 0.00357, 0.00030, 0.00002, 0.00002, - + 0.00001, 0.00001, 0.00000, - + 0.01941, 0.00324, 0.00028, 0.00002, 0.00002, - + 0.00001, 0.00001, 0.00000, - + 0.01781, 0.00297, 0.00025, 0.00002, 0.00002, - + 0.00001, 0.00001, 0.00000, - + 0.01641, 0.00272, 0.00023, 0.00002, 0.00002, - + 0.00001, 0.00001, 0.00000, - + 0.01518, 0.00251, 0.00022, 0.00002, 0.00002, - + 0.00001, 0.00001, 0.00000, - + 0.01409, 0.00232, 0.00020, 0.00001, 0.00002, - + 0.00001, 0.00001, 0.00000/ - DATA ((F(I,61,M), I=1,8), M=15,19) / - + 0.01312, 0.00216, 0.00019, 0.00001, 0.00002, - + 0.00001, 0.00001, 0.00000, - + 0.01225, 0.00201, 0.00017, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00000, - + 0.01147, 0.00188, 0.00016, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00000, - + 0.01076, 0.00176, 0.00015, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00000, - + 0.01013, 0.00165, 0.00014, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00000/ - DATA ((F(I,62,M), I=1,8), M=1,7) / - + 0.03378, 0.00538, 0.00017, 0.00001, 0.00002, - + 0.00001, 0.00000, 0.00000, - + 0.02774, 0.00439, 0.00020, 0.00001, 0.00002, - + 0.00001, 0.00000, 0.00000, - + 0.02332, 0.00366, 0.00020, 0.00001, 0.00002, - + 0.00001, 0.00001, 0.00000, - + 0.02003, 0.00313, 0.00018, 0.00001, 0.00001, - + 0.00001, 0.00000, 0.00000, - + 0.01741, 0.00270, 0.00017, 0.00001, 0.00001, - + 0.00001, 0.00000, 0.00000, - + 0.01530, 0.00237, 0.00015, 0.00001, 0.00001, - + 0.00001, 0.00000, 0.00000, - + 0.01356, 0.00209, 0.00014, 0.00001, 0.00001, - + 0.00001, 0.00000, 0.00000/ - DATA ((F(I,62,M), I=1,8), M=8,14) / - + 0.01212, 0.00186, 0.00013, 0.00001, 0.00001, - + 0.00001, 0.00000, 0.00000, - + 0.01090, 0.00167, 0.00011, 0.00001, 0.00001, - + 0.00001, 0.00000, 0.00000, - + 0.00986, 0.00150, 0.00010, 0.00001, 0.00001, - + 0.00001, 0.00000, 0.00000, - + 0.00897, 0.00136, 0.00009, 0.00001, 0.00001, - + 0.00001, 0.00000, 0.00000, - + 0.00820, 0.00124, 0.00009, 0.00001, 0.00001, - + 0.00000, 0.00000, 0.00000, - + 0.00753, 0.00114, 0.00008, 0.00001, 0.00001, - + 0.00000, 0.00000, 0.00000, - + 0.00694, 0.00105, 0.00007, 0.00001, 0.00001, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,62,M), I=1,8), M=15,19) / - + 0.00642, 0.00097, 0.00007, 0.00001, 0.00001, - + 0.00000, 0.00000, 0.00000, - + 0.00596, 0.00090, 0.00006, 0.00001, 0.00001, - + 0.00000, 0.00000, 0.00000, - + 0.00554, 0.00083, 0.00006, 0.00000, 0.00001, - + 0.00000, 0.00000, 0.00000, - + 0.00517, 0.00077, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00484, 0.00072, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,63,M), I=1,8), M=1,7) / - + 0.01670, 0.00240, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01341, 0.00192, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01106, 0.00157, 0.00007, 0.00000, 0.00001, - + 0.00000, 0.00000, 0.00000, - + 0.00934, 0.00132, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00800, 0.00113, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00693, 0.00098, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00606, 0.00085, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,63,M), I=1,8), M=8,14) / - + 0.00535, 0.00075, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00476, 0.00067, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00426, 0.00060, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00384, 0.00054, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00348, 0.00048, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00316, 0.00044, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00289, 0.00040, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,63,M), I=1,8), M=15,19) / - + 0.00265, 0.00037, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00244, 0.00034, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00225, 0.00031, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00209, 0.00029, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00194, 0.00027, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,64,M), I=1,8), M=1,7) / - + 0.00166, 0.00021, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00125, 0.00016, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00098, 0.00013, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00079, 0.00010, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00065, 0.00008, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00054, 0.00007, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00046, 0.00006, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,64,M), I=1,8), M=8,14) / - + 0.00039, 0.00005, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00034, 0.00004, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00030, 0.00004, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00026, 0.00003, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00023, 0.00003, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00021, 0.00003, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00018, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,64,M), I=1,8), M=15,19) / - + 0.00017, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00015, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00014, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00012, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA XX/1.d-6,2.d-6,4.d-6,6.d-6,8.d-6, - . 1.d-5,2.d-5,4.d-5,6.d-5,8.d-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,1.5D-2,2.D-2,2.5D-2,3.D-2,3.5D-2,4.D-2,4.5D-2,5.D-2, - . 5.5D-2,6.D-2,6.5D-2,7.D-2,7.5D-2,8.D-2,8.5D-2,9.D-2,9.5D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-6,1.D0,5.D0,1310720.D0/ - DATA N0/4,3,7,7,7,7,0,0/ - DATA INIT/0/ - - xsave=x - - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,nx-1 - DO 20 M=1,19 -C READ( 56,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(6,N,M), -C . F(7,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=DBAR 6=SBAR 7=CBAR 8=BBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(1.D0-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,ntenth-1 - XX(J)= LOG10(XX(J))+1.1D0 - DO 30 I=1,7 - DO 30 K=1,19 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,ntenth,K)/ LOG(F(I,ntenth,K)) - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,19 - 40 F(I,nx,M)=0.D0 - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.1.D-1) XXX= LOG10(X)+1.1D0 - - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(2.D0) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,8 - G(I)= (1.D0-A)*(1.D0-B)*F(I,N,M)+(1.D0-A)*B*F(I,N,M+1) - . + A*(1.D0-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.ntenth) GOTO 65 - IF(I.EQ.8) GOTO 65 - FAC=(1.D0-B)*F(I,ntenth,M)+B*F(I,ntenth,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(1.D0-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - GLU=G(3) - UBAR=G(4) - DBAR=G(5) - STR=G(6) - CHM=G(7) - BOT=G(8) - - x=xsave - - RETURN - END diff --git a/PDF/spdf/sfctq11.F b/PDF/spdf/sfctq11.F deleted file mode 100644 index bc385063290..00000000000 --- a/PDF/spdf/sfctq11.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:28 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:32 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE SFCTQ11(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.168 GeV (LO) -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=4) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq1Pd(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = Ctq1Pd(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = Ctq1Pd(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = Ctq1Pd(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = Ctq1Pd(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = Ctq1Pd(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = Ctq1Pd(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = Ctq1Pd(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = Ctq1Pd(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfctq12.F b/PDF/spdf/sfctq12.F deleted file mode 100644 index 35dbcacb5f3..00000000000 --- a/PDF/spdf/sfctq12.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:28 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:32 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE SFCTQ12(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.231 GeV (MSb) (CTEQ1M) -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=1) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq1Pd(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = Ctq1Pd(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = Ctq1Pd(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = Ctq1Pd(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = Ctq1Pd(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = Ctq1Pd(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = Ctq1Pd(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = Ctq1Pd(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = Ctq1Pd(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfctq13.F b/PDF/spdf/sfctq13.F deleted file mode 100644 index 7fe987a4370..00000000000 --- a/PDF/spdf/sfctq13.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:30 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:32 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE SFCTQ13(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.231 GeV (MSb - singular gluon) (CTEQ1MS) -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=2) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq1Pd(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = Ctq1Pd(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = Ctq1Pd(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = Ctq1Pd(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = Ctq1Pd(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = Ctq1Pd(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = Ctq1Pd(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = Ctq1Pd(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = Ctq1Pd(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfctq14.F b/PDF/spdf/sfctq14.F deleted file mode 100644 index 20e847de9fd..00000000000 --- a/PDF/spdf/sfctq14.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:30 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:32 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE SFCTQ14(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.322 GeV (MSb - LEP Lambda value) (CTEQ1ML) -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=5) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq1Pd(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = Ctq1Pd(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = Ctq1Pd(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = Ctq1Pd(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = Ctq1Pd(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = Ctq1Pd(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = Ctq1Pd(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = Ctq1Pd(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = Ctq1Pd(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfctq15.F b/PDF/spdf/sfctq15.F deleted file mode 100644 index e05216c3baa..00000000000 --- a/PDF/spdf/sfctq15.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:31 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:32 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE SFCTQ15(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.247 GeV (DIS) (CTEQ1D) -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=3) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq1Pd(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = Ctq1Pd(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = Ctq1Pd(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = Ctq1Pd(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = Ctq1Pd(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = Ctq1Pd(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = Ctq1Pd(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = Ctq1Pd(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = Ctq1Pd(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfctq21.F b/PDF/spdf/sfctq21.F deleted file mode 100644 index fcd8dc96eff..00000000000 --- a/PDF/spdf/sfctq21.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:32 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:32 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE SFCTQ21(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.190 GeV (LO) (CTEQ2L) -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=5) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq2OPd(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = Ctq2OPd(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = Ctq2OPd(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = Ctq2OPd(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = Ctq2OPd(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = Ctq2OPd(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = Ctq2OPd(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = Ctq2OPd(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = Ctq2OPd(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfctq22.F b/PDF/spdf/sfctq22.F deleted file mode 100644 index 3479f80dfdb..00000000000 --- a/PDF/spdf/sfctq22.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:32 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:33 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE SFCTQ22(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.213 GeV (MSb) (CTEQ2M) -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=1) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq2OPd(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = Ctq2OPd(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = Ctq2OPd(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = Ctq2OPd(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = Ctq2OPd(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = Ctq2OPd(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = Ctq2OPd(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = Ctq2OPd(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = Ctq2OPd(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfctq23.F b/PDF/spdf/sfctq23.F deleted file mode 100644 index b3783f2e83f..00000000000 --- a/PDF/spdf/sfctq23.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:33 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:33 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE SFCTQ23(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.208 GeV (MSb - singular gluon) (CTEQ2MS) -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=2) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq2OPd(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = Ctq2OPd(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = Ctq2OPd(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = Ctq2OPd(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = Ctq2OPd(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = Ctq2OPd(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = Ctq2OPd(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = Ctq2OPd(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = Ctq2OPd(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfctq24.F b/PDF/spdf/sfctq24.F deleted file mode 100644 index 32a59a2b113..00000000000 --- a/PDF/spdf/sfctq24.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:34 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:33 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE SFCTQ24(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.208 GeV (MSb) (flat small-x) (CTEQ2MF) -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=3) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq2OPd(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = Ctq2OPd(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = Ctq2OPd(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = Ctq2OPd(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = Ctq2OPd(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = Ctq2OPd(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = Ctq2OPd(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = Ctq2OPd(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = Ctq2OPd(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfctq25.F b/PDF/spdf/sfctq25.F deleted file mode 100644 index a5d16d8e41b..00000000000 --- a/PDF/spdf/sfctq25.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:35 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:33 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE SFCTQ25(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.322 GeV (MSb - LEP Lambda value) (CTEQ2ML) -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=4) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq2OPd(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = Ctq2OPd(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = Ctq2OPd(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = Ctq2OPd(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = Ctq2OPd(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = Ctq2OPd(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = Ctq2OPd(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = Ctq2OPd(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = Ctq2OPd(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfctq26.F b/PDF/spdf/sfctq26.F deleted file mode 100644 index f3c8db4327a..00000000000 --- a/PDF/spdf/sfctq26.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:36 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:33 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE SFCTQ26(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.235 GeV (DIS) -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=6) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq2OPd(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = Ctq2OPd(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = Ctq2OPd(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = Ctq2OPd(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = Ctq2OPd(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = Ctq2OPd(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = Ctq2OPd(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = Ctq2OPd(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = Ctq2OPd(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfctq31.F b/PDF/spdf/sfctq31.F deleted file mode 100644 index 12f98735e5a..00000000000 --- a/PDF/spdf/sfctq31.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:37 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:33 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE SFCTQ31(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.177 GeV (LO) (CTEQ3L) -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=2) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq3Pd(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = Ctq3Pd(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = Ctq3Pd(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = Ctq3Pd(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = Ctq3Pd(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = Ctq3Pd(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = Ctq3Pd(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = Ctq3Pd(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = Ctq3Pd(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfctq32.F b/PDF/spdf/sfctq32.F deleted file mode 100644 index f8efff8eee5..00000000000 --- a/PDF/spdf/sfctq32.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:37 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:33 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE SFCTQ32(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.239 GeV (MSb) (CTEQ3M) -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=1) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq3Pd(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = Ctq3Pd(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = Ctq3Pd(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = Ctq3Pd(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = Ctq3Pd(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = Ctq3Pd(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = Ctq3Pd(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = Ctq3Pd(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = Ctq3Pd(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfctq33.F b/PDF/spdf/sfctq33.F deleted file mode 100644 index 312c919b30a..00000000000 --- a/PDF/spdf/sfctq33.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:38 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:33 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE SFCTQ33(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.247 GeV (DIS) -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=3) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq3Pd(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = Ctq3Pd(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = Ctq3Pd(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = Ctq3Pd(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = Ctq3Pd(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = Ctq3Pd(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = Ctq3Pd(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = Ctq3Pd(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = Ctq3Pd(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfctq41.F b/PDF/spdf/sfctq41.F deleted file mode 100644 index a4cd8ce52b1..00000000000 --- a/PDF/spdf/sfctq41.F +++ /dev/null @@ -1,47 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" - SUBROUTINE SFCTQ41(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from the CTEQ collaboration version 4 -C :::::::::::: Lambda = 0.181 GeV (LO) -C -#include "pdf/impdp.inc" - PARAMETER (ISET=3) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq4Fn(ISET, 1,X,Q) - DNV = Ctq4Fn(ISET, 2,X,Q) - SEAU = Ctq4Fn(ISET,-1,X,Q) - DSEA = SEAU*X - DUPV = (UPV-SEAU)*X - SEAD = Ctq4Fn(ISET,-2,X,Q) - DSEAD = SEAD*X - DDNV = (DNV-SEAD)*X - STR = Ctq4Fn(ISET,-3,X,Q) - DSTR = STR*X - CHM = Ctq4Fn(ISET,-4,X,Q) - DCHM = CHM*X - BOT = Ctq4Fn(ISET,-5,X,Q) - DBOT = BOT*X - TOP = 0. -C IF (DSCAL.GT.TMAS) TOP = Ctq4Fn(ISET,-6,X,Q) - DTOP = TOP*X - GL = Ctq4Fn(ISET, 0,X,Q) - DGL = GL*X -C - RETURN - END diff --git a/PDF/spdf/sfctq42.F b/PDF/spdf/sfctq42.F deleted file mode 100644 index cbea30f253d..00000000000 --- a/PDF/spdf/sfctq42.F +++ /dev/null @@ -1,47 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" - SUBROUTINE SFCTQ42(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from the CTEQ collaboration version 4 -C :::::::::::: Lambda = 0.202 GeV (DIS) -C -#include "pdf/impdp.inc" - PARAMETER (ISET=2) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq4Fn(ISET, 1,X,Q) - DNV = Ctq4Fn(ISET, 2,X,Q) - SEAU = Ctq4Fn(ISET,-1,X,Q) - DSEA = SEAU*X - DUPV = (UPV-SEAU)*X - SEAD = Ctq4Fn(ISET,-2,X,Q) - DSEAD = SEAD*X - DDNV = (DNV-SEAD)*X - STR = Ctq4Fn(ISET,-3,X,Q) - DSTR = STR*X - CHM = Ctq4Fn(ISET,-4,X,Q) - DCHM = CHM*X - BOT = Ctq4Fn(ISET,-5,X,Q) - DBOT = BOT*X - TOP = 0. -C IF (DSCAL.GT.TMAS) TOP = Ctq4Fn(ISET,-6,X,Q) - DTOP = TOP*X - GL = Ctq4Fn(ISET, 0,X,Q) - DGL = GL*X -C - RETURN - END diff --git a/PDF/spdf/sfctq43.F b/PDF/spdf/sfctq43.F deleted file mode 100644 index 7d8168df2c9..00000000000 --- a/PDF/spdf/sfctq43.F +++ /dev/null @@ -1,47 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" - SUBROUTINE SFCTQ43(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from the CTEQ collaboration version 4 -C :::::::::::: Lambda = 0.202 GeV (MS_bar) -C -#include "pdf/impdp.inc" - PARAMETER (ISET=1) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq4Fn(ISET, 1,X,Q) - DNV = Ctq4Fn(ISET, 2,X,Q) - SEAU = Ctq4Fn(ISET,-1,X,Q) - DSEA = SEAU*X - DUPV = (UPV-SEAU)*X - SEAD = Ctq4Fn(ISET,-2,X,Q) - DSEAD = SEAD*X - DDNV = (DNV-SEAD)*X - STR = Ctq4Fn(ISET,-3,X,Q) - DSTR = STR*X - CHM = Ctq4Fn(ISET,-4,X,Q) - DCHM = CHM*X - BOT = Ctq4Fn(ISET,-5,X,Q) - DBOT = BOT*X - TOP = 0. -C IF (DSCAL.GT.TMAS) TOP = Ctq4Fn(ISET,-6,X,Q) - DTOP = TOP*X - GL = Ctq4Fn(ISET, 0,X,Q) - DGL = GL*X -C - RETURN - END diff --git a/PDF/spdf/sfctq44.F b/PDF/spdf/sfctq44.F deleted file mode 100644 index e71cf98613a..00000000000 --- a/PDF/spdf/sfctq44.F +++ /dev/null @@ -1,47 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" - SUBROUTINE SFCTQ44(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from the CTEQ collaboration version 4 -C :::::::::::: Lambda = 0.140 GeV (MS_bar) alpha_s series -C -#include "pdf/impdp.inc" - PARAMETER (ISET=4) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq4Fn(ISET, 1,X,Q) - DNV = Ctq4Fn(ISET, 2,X,Q) - SEAU = Ctq4Fn(ISET,-1,X,Q) - DSEA = SEAU*X - DUPV = (UPV-SEAU)*X - SEAD = Ctq4Fn(ISET,-2,X,Q) - DSEAD = SEAD*X - DDNV = (DNV-SEAD)*X - STR = Ctq4Fn(ISET,-3,X,Q) - DSTR = STR*X - CHM = Ctq4Fn(ISET,-4,X,Q) - DCHM = CHM*X - BOT = Ctq4Fn(ISET,-5,X,Q) - DBOT = BOT*X - TOP = 0. -C IF (DSCAL.GT.TMAS) TOP = Ctq4Fn(ISET,-6,X,Q) - DTOP = TOP*X - GL = Ctq4Fn(ISET, 0,X,Q) - DGL = GL*X -C - RETURN - END diff --git a/PDF/spdf/sfctq45.F b/PDF/spdf/sfctq45.F deleted file mode 100644 index c13f474e4bd..00000000000 --- a/PDF/spdf/sfctq45.F +++ /dev/null @@ -1,47 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" - SUBROUTINE SFCTQ45(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from the CTEQ collaboration version 4 -C :::::::::::: Lambda = 0.169 GeV (MS_bar) alpha_s series -C -#include "pdf/impdp.inc" - PARAMETER (ISET=5) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq4Fn(ISET, 1,X,Q) - DNV = Ctq4Fn(ISET, 2,X,Q) - SEAU = Ctq4Fn(ISET,-1,X,Q) - DSEA = SEAU*X - DUPV = (UPV-SEAU)*X - SEAD = Ctq4Fn(ISET,-2,X,Q) - DSEAD = SEAD*X - DDNV = (DNV-SEAD)*X - STR = Ctq4Fn(ISET,-3,X,Q) - DSTR = STR*X - CHM = Ctq4Fn(ISET,-4,X,Q) - DCHM = CHM*X - BOT = Ctq4Fn(ISET,-5,X,Q) - DBOT = BOT*X - TOP = 0. -C IF (DSCAL.GT.TMAS) TOP = Ctq4Fn(ISET,-6,X,Q) - DTOP = TOP*X - GL = Ctq4Fn(ISET, 0,X,Q) - DGL = GL*X -C - RETURN - END diff --git a/PDF/spdf/sfctq46.F b/PDF/spdf/sfctq46.F deleted file mode 100644 index d24c96e30d2..00000000000 --- a/PDF/spdf/sfctq46.F +++ /dev/null @@ -1,47 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" - SUBROUTINE SFCTQ46(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from the CTEQ collaboration version 4 -C :::::::::::: Lambda = 0.239 GeV (MS_bar) alpha_s series -C -#include "pdf/impdp.inc" - PARAMETER (ISET=7) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq4Fn(ISET, 1,X,Q) - DNV = Ctq4Fn(ISET, 2,X,Q) - SEAU = Ctq4Fn(ISET,-1,X,Q) - DSEA = SEAU*X - DUPV = (UPV-SEAU)*X - SEAD = Ctq4Fn(ISET,-2,X,Q) - DSEAD = SEAD*X - DDNV = (DNV-SEAD)*X - STR = Ctq4Fn(ISET,-3,X,Q) - DSTR = STR*X - CHM = Ctq4Fn(ISET,-4,X,Q) - DCHM = CHM*X - BOT = Ctq4Fn(ISET,-5,X,Q) - DBOT = BOT*X - TOP = 0. -C IF (DSCAL.GT.TMAS) TOP = Ctq4Fn(ISET,-6,X,Q) - DTOP = TOP*X - GL = Ctq4Fn(ISET, 0,X,Q) - DGL = GL*X -C - RETURN - END diff --git a/PDF/spdf/sfctq47.F b/PDF/spdf/sfctq47.F deleted file mode 100644 index fbec1519572..00000000000 --- a/PDF/spdf/sfctq47.F +++ /dev/null @@ -1,47 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" - SUBROUTINE SFCTQ47(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from the CTEQ collaboration version 4 -C :::::::::::: Lambda = 0.282 GeV (MS_bar) alpha_s series -C -#include "pdf/impdp.inc" - PARAMETER (ISET=8) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq4Fn(ISET, 1,X,Q) - DNV = Ctq4Fn(ISET, 2,X,Q) - SEAU = Ctq4Fn(ISET,-1,X,Q) - DSEA = SEAU*X - DUPV = (UPV-SEAU)*X - SEAD = Ctq4Fn(ISET,-2,X,Q) - DSEAD = SEAD*X - DDNV = (DNV-SEAD)*X - STR = Ctq4Fn(ISET,-3,X,Q) - DSTR = STR*X - CHM = Ctq4Fn(ISET,-4,X,Q) - DCHM = CHM*X - BOT = Ctq4Fn(ISET,-5,X,Q) - DBOT = BOT*X - TOP = 0. -C IF (DSCAL.GT.TMAS) TOP = Ctq4Fn(ISET,-6,X,Q) - DTOP = TOP*X - GL = Ctq4Fn(ISET, 0,X,Q) - DGL = GL*X -C - RETURN - END diff --git a/PDF/spdf/sfctq48.F b/PDF/spdf/sfctq48.F deleted file mode 100644 index 58682eb004d..00000000000 --- a/PDF/spdf/sfctq48.F +++ /dev/null @@ -1,47 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" - SUBROUTINE SFCTQ48(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from the CTEQ collaboration version 4 -C :::::::::::: Lambda = 0.206 GeV (MS_bar) high jet -C -#include "pdf/impdp.inc" - PARAMETER (ISET=9) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq4Fn(ISET, 1,X,Q) - DNV = Ctq4Fn(ISET, 2,X,Q) - SEAU = Ctq4Fn(ISET,-1,X,Q) - DSEA = SEAU*X - DUPV = (UPV-SEAU)*X - SEAD = Ctq4Fn(ISET,-2,X,Q) - DSEAD = SEAD*X - DDNV = (DNV-SEAD)*X - STR = Ctq4Fn(ISET,-3,X,Q) - DSTR = STR*X - CHM = Ctq4Fn(ISET,-4,X,Q) - DCHM = CHM*X - BOT = Ctq4Fn(ISET,-5,X,Q) - DBOT = BOT*X - TOP = 0. -C IF (DSCAL.GT.TMAS) TOP = Ctq4Fn(ISET,-6,X,Q) - DTOP = TOP*X - GL = Ctq4Fn(ISET, 0,X,Q) - DGL = GL*X -C - RETURN - END diff --git a/PDF/spdf/sfctq49.F b/PDF/spdf/sfctq49.F deleted file mode 100644 index 1fc1827c007..00000000000 --- a/PDF/spdf/sfctq49.F +++ /dev/null @@ -1,47 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" - SUBROUTINE SFCTQ49(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from the CTEQ collaboration version 4 -C :::::::::::: Lambda = 0.174 GeV (MS_bar) low Q**2 -C -#include "pdf/impdp.inc" - PARAMETER (ISET=10) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq4Fn(ISET, 1,X,Q) - DNV = Ctq4Fn(ISET, 2,X,Q) - SEAU = Ctq4Fn(ISET,-1,X,Q) - DSEA = SEAU*X - DUPV = (UPV-SEAU)*X - SEAD = Ctq4Fn(ISET,-2,X,Q) - DSEAD = SEAD*X - DDNV = (DNV-SEAD)*X - STR = Ctq4Fn(ISET,-3,X,Q) - DSTR = STR*X - CHM = Ctq4Fn(ISET,-4,X,Q) - DCHM = CHM*X - BOT = Ctq4Fn(ISET,-5,X,Q) - DBOT = BOT*X - TOP = 0. -C IF (DSCAL.GT.TMAS) TOP = Ctq4Fn(ISET,-6,X,Q) - DTOP = TOP*X - GL = Ctq4Fn(ISET, 0,X,Q) - DGL = GL*X -C - RETURN - END diff --git a/PDF/spdf/sfdisa.F b/PDF/spdf/sfdisa.F deleted file mode 100644 index 9b8096f801d..00000000000 --- a/PDF/spdf/sfdisa.F +++ /dev/null @@ -1,1970 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE SFDISA(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) - -C THIS IS THE NEW "A" FIT -- May 1994 -- standard Q^2 range -C DIS DIS DIS DIS DIS DIS DIS DIS DIS DIS DIS DIS DIS DIS DIS -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,20),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + .00477, .00714, 28.15842, 2.63928, .27227, - + .00000, 1.40153, 2.63661, - + .00513, .00738, 40.95661, 3.03369, .71801, - + .00000, 1.82413, 3.03197, - + .00546, .00760, 55.69226, 3.48003, 1.20884, - + .00000, 2.29496, 3.47918, - + .00577, .00781, 71.98843, 3.97328, 1.74137, - + .34007, 2.80989, 3.97324, - + .00608, .00800, 89.79082, 4.51017, 2.31361, - + .97946, 3.36634, 4.51093, - + .00637, .00819, 108.92063, 5.08768, 2.92334, - + 1.62786, 3.96169, 5.08919, - + .00665, .00839, 129.17682, 5.70179, 3.56701, - + 2.31175, 4.59222, 5.70402 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ - + .00693, .00856, 150.39406, 6.34899, 4.24147, - + 3.02502, 5.25458, 6.35191, - + .00719, .00873, 172.43767, 7.02603, 4.94380, - + 3.76499, 5.94570, 7.02963, - + .00745, .00890, 195.20667, 7.73017, 5.67150, - + 4.52908, 6.66297, 7.73443, - + .00770, .00906, 218.62808, 8.45928, 6.42264, - + 5.31542, 7.40439, 8.46416, - + .00794, .00922, 242.57538, 9.21087, 7.19493, - + 6.12166, 8.16754, 9.21635, - + .00819, .00936, 266.79108, 9.98022, 7.98383, - + 6.94318, 8.94784, 9.98631, - + .00841, .00951, 291.48782, 10.76914, 8.79120, - + 7.78204, 9.74709, 10.77580 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ - + .00865, .00965, 316.54001, 11.57541, 9.61495, - + 8.63616, 10.56316, 11.58263, - + .00887, .00980, 341.62692, 12.39302, 10.44920, - + 9.49945, 11.39009, 12.40078, - + .00908, .00993, 367.17233, 13.22829, 11.30029, - + 10.37867, 12.23424, 13.23658, - + .00930, .01007, 392.56421, 14.07036, 12.15750, - + 11.26270, 13.08482, 14.07917, - + .00951, .01019, 418.32579, 14.92685, 13.02841, - + 12.15962, 13.94940, 14.93615 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + .00712, .00919, 22.78315, 2.13445, .21779, - + .00000, 1.13005, 2.13406, - + .00761, .00951, 32.73079, 2.44280, .56738, - + .00000, 1.46077, 2.44298, - + .00807, .00980, 43.96273, 2.78701, .94726, - + .00000, 1.82436, 2.78773, - + .00850, .01008, 56.16534, 3.16268, 1.35441, - + .25995, 2.21716, 3.16390, - + .00892, .01035, 69.29437, 3.56730, 1.78730, - + .74521, 2.63720, 3.56898, - + .00932, .01061, 83.20822, 3.99827, 2.24403, - + 1.23206, 3.08224, 4.00042, - + .00971, .01086, 97.75517, 4.45242, 2.72177, - + 1.74079, 3.54929, 4.45499 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ - + .01008, .01108, 112.81502, 4.92700, 3.21811, - + 2.26672, 4.03578, 4.93000, - + .01045, .01131, 128.29343, 5.41959, 3.73084, - + 2.80787, 4.53940, 5.42298, - + .01080, .01153, 144.12270, 5.92812, 4.25813, - + 3.36238, 5.05822, 5.93190, - + .01115, .01174, 160.25618, 6.45108, 4.79862, - + 3.92896, 5.59081, 6.45523, - + .01148, .01194, 176.60817, 6.98664, 5.35064, - + 4.50594, 6.13542, 6.99115, - + .01180, .01215, 193.00063, 7.53130, 5.91082, - + 5.08989, 6.68860, 7.53615, - + .01212, .01233, 209.59521, 8.08663, 6.48079, - + 5.68264, 7.25199, 8.09182 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ - + .01242, .01252, 226.30714, 8.65105, 7.05909, - + 6.28271, 7.82405, 8.65657, - + .01273, .01271, 242.91707, 9.22010, 7.64133, - + 6.88566, 8.40037, 9.22595, - + .01302, .01288, 259.72992, 9.79875, 8.23252, - + 7.49675, 8.98593, 9.80490, - + .01331, .01306, 276.32343, 10.37895, 8.82469, - + 8.10778, 9.57272, 10.38540, - + .01358, .01323, 293.06784, 10.96654, 9.42371, - + 8.72496, 10.16662, 10.97328 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + .01048, .01184, 18.43334, 1.72552, .17411, - + .00000, .91103, 1.72672, - + .01116, .01227, 26.15385, 1.96612, .44786, - + .00000, 1.16941, 1.96765, - + .01180, .01267, 34.69698, 2.23092, .74132, - + .00000, 1.44959, 2.23278, - + .01240, .01303, 43.80949, 2.51627, 1.05190, - + .19835, 1.74850, 2.51842, - + .01297, .01339, 53.46115, 2.82028, 1.37855, - + .56595, 2.06469, 2.82270, - + .01352, .01373, 63.54490, 3.14086, 1.71974, - + .93070, 2.39636, 3.14354, - + .01406, .01404, 73.95010, 3.47554, 2.07328, - + 1.30822, 2.74120, 3.47846 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ - + .01457, .01435, 84.59291, 3.82226, 2.43737, - + 1.69498, 3.09728, 3.82543, - + .01506, .01466, 95.41053, 4.17924, 2.81042, - + 2.08959, 3.46294, 4.18263, - + .01555, .01494, 106.36025, 4.54504, 3.19117, - + 2.49080, 3.83679, 4.54864, - + .01601, .01522, 117.41489, 4.91856, 3.57867, - + 2.89773, 4.21788, 4.92238, - + .01647, .01549, 128.51851, 5.29855, 3.97174, - + 3.30925, 4.60493, 5.30256, - + .01690, .01575, 139.54984, 5.68238, 4.36792, - + 3.72285, 4.99544, 5.68659, - + .01733, .01600, 150.63226, 6.07148, 4.76868, - + 4.14017, 5.39084, 6.07588 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ - + .01775, .01624, 161.71013, 6.46473, 5.17293, - + 4.56016, 5.79004, 6.46930, - + .01815, .01648, 172.63414, 6.85887, 5.57754, - + 4.97961, 6.18984, 6.86362, - + .01855, .01671, 183.62479, 7.25774, 5.98637, - + 5.40262, 6.59411, 7.26267, - + .01894, .01694, 194.39084, 7.65545, 6.39358, - + 5.82317, 6.99696, 7.66054, - + .01932, .01715, 205.19538, 8.05647, 6.80367, - + 6.24603, 7.40290, 8.06173 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + .01309, .01374, 16.28428, 1.52327, .15268, - + .00000, .80308, 1.52520, - + .01391, .01425, 22.93523, 1.73109, .38971, - + .00000, 1.02647, 1.73327, - + .01467, .01472, 30.20590, 1.95792, .64177, - + .00000, 1.26675, 1.96034, - + .01540, .01515, 37.87578, 2.20047, .90651, - + .16916, 1.52116, 2.20310, - + .01608, .01556, 45.92312, 2.45723, 1.18317, - + .48132, 1.78853, 2.46004, - + .01675, .01595, 54.25890, 2.72634, 1.47039, - + .78902, 2.06732, 2.72934, - + .01739, .01635, 62.79275, 3.00573, 1.76635, - + 1.10565, 2.35557, 3.00891 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ - + .01801, .01671, 71.45830, 3.29369, 2.06956, - + 1.42830, 2.65168, 3.29703, - + .01860, .01706, 80.20737, 3.58874, 2.37871, - + 1.75584, 2.95428, 3.59225, - + .01918, .01738, 89.00863, 3.88971, 2.69280, - + 2.08729, 3.26227, 3.89338, - + .01974, .01772, 97.84350, 4.19579, 3.01111, - + 2.42202, 3.57489, 4.19959, - + .02029, .01802, 106.66942, 4.50589, 3.33270, - + 2.75909, 3.89116, 4.50985, - + .02081, .01833, 115.38995, 4.81788, 3.65550, - + 3.09646, 4.20893, 4.82198, - + .02132, .01863, 124.11079, 5.13308, 3.98090, - + 3.43564, 4.52959, 5.13730 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ - + .02181, .01891, 132.78889, 5.45054, 4.30802, - + 3.77580, 4.85223, 5.45490, - + .02230, .01919, 141.30566, 5.76762, 4.63425, - + 4.11428, 5.17421, 5.77208, - + .02277, .01945, 149.84323, 6.08760, 4.96294, - + 4.45463, 5.49885, 6.09220, - + .02323, .01971, 158.16785, 6.40555, 5.28920, - + 4.79183, 5.82127, 6.41026, - + .02368, .01997, 166.49508, 6.72534, 5.61691, - + 5.12997, 6.14531, 6.73016 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + .01529, .01527, 14.91292, 1.39409, .13906, - + .00000, .73429, 1.39648, - + .01623, .01585, 20.89327, 1.58127, .35294, - + .00000, .93565, 1.58388, - + .01711, .01636, 27.37356, 1.78435, .57908, - + .00000, 1.15099, 1.78713, - + .01793, .01686, 34.15500, 2.00029, .81531, - + .15102, 1.37771, 2.00325, - + .01871, .01732, 41.22172, 2.22782, 1.06101, - + .42883, 1.61490, 2.23094, - + .01948, .01777, 48.49636, 2.46528, 1.31501, - + .70137, 1.86115, 2.46855, - + .02021, .01819, 55.90141, 2.71082, 1.57567, - + .98067, 2.11473, 2.71422 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ - + .02091, .01860, 63.38121, 2.96294, 1.84171, - + 1.26417, 2.37427, 2.96649, - + .02159, .01899, 70.89649, 3.22038, 2.11201, - + 1.55092, 2.63855, 3.22406, - + .02224, .01937, 78.42281, 3.48215, 2.38574, - + 1.84011, 2.90669, 3.48595, - + .02288, .01973, 85.94665, 3.74756, 2.66232, - + 2.13124, 3.17803, 3.75147, - + .02349, .02008, 93.43315, 4.01569, 2.94090, - + 2.42353, 3.45172, 4.01971, - + .02409, .02042, 100.80080, 4.28466, 3.21973, - + 2.71520, 3.72596, 4.28880, - + .02466, .02075, 108.14440, 4.55573, 3.50009, - + 3.00767, 4.00197, 4.55997 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ - + .02523, .02106, 115.42803, 4.82808, 3.78124, - + 3.30025, 4.27900, 4.83242, - + .02577, .02137, 122.55126, 5.09940, 4.06090, - + 3.59061, 4.55476, 5.10383, - + .02631, .02167, 129.67320, 5.37266, 4.34209, - + 3.88197, 4.83224, 5.37719, - + .02683, .02196, 136.59415, 5.64352, 4.62051, - + 4.16990, 5.10714, 5.64814, - + .02733, .02224, 143.50098, 5.91545, 4.89964, - + 4.45808, 5.38290, 5.92015 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + .01724, .01659, 13.92903, 1.30138, .12931, - + .00000, .68499, 1.30409, - + .01827, .01720, 19.43438, 1.47391, .32677, - + .00000, .87072, 1.47679, - + .01925, .01778, 25.35865, 1.66018, .53457, - + .00000, 1.06840, 1.66324, - + .02016, .01832, 31.51905, 1.85742, .75073, - + .13825, 1.27568, 1.86062, - + .02103, .01882, 37.90410, 2.06447, .97476, - + .39196, 1.49172, 2.06781, - + .02187, .01930, 44.44489, 2.27983, 1.20553, - + .63992, 1.71525, 2.28330, - + .02268, .01977, 51.07295, 2.50181, 1.44163, - + .89320, 1.94471, 2.50540 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ - + .02346, .02022, 57.74014, 2.72908, 1.68188, - + 1.14949, 2.17887, 2.73280, - + .02421, .02064, 64.41331, 2.96053, 1.92532, - + 1.40800, 2.41667, 2.96434, - + .02493, .02106, 71.07264, 3.19525, 2.17120, - + 1.66801, 2.65731, 3.19918, - + .02563, .02145, 77.70800, 3.43268, 2.41903, - + 1.92912, 2.90027, 3.43671, - + .02631, .02183, 84.28979, 3.67201, 2.66813, - + 2.19064, 3.14477, 3.67613, - + .02696, .02220, 90.74677, 3.91155, 2.91684, - + 2.45100, 3.38917, 3.91577, - + .02760, .02255, 97.16567, 4.15248, 3.16643, - + 2.71154, 3.63468, 4.15678 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ - + .02821, .02290, 103.51585, 4.39409, 3.41623, - + 2.97165, 3.88065, 4.39848, - + .02882, .02323, 109.70876, 4.63430, 3.66421, - + 3.22926, 4.12497, 4.63876, - + .02941, .02356, 115.88792, 4.87584, 3.91314, - + 3.48733, 4.37044, 4.88039, - + .02998, .02388, 121.87642, 5.11480, 4.15914, - + 3.74185, 4.61314, 5.11943, - + .03054, .02419, 127.84157, 5.35435, 4.40541, - + 3.99622, 4.85625, 5.35905 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + .02487, .02143, 11.26643, 1.04997, .10301, - + .00000, .55178, 1.05371, - + .02630, .02226, 15.51377, 1.18338, .25659, - + .00000, .69583, 1.18726, - + .02764, .02301, 19.98321, 1.32529, .41591, - + .00000, .84691, 1.32931, - + .02889, .02371, 24.53687, 1.47351, .57943, - + .10483, 1.00319, 1.47765, - + .03008, .02438, 29.17542, 1.62731, .74694, - + .29572, 1.16421, 1.63157, - + .03123, .02502, 33.85272, 1.78557, .91765, - + .48005, 1.32902, 1.78994, - + .03234, .02563, 38.52400, 1.94707, 1.09054, - + .66639, 1.49653, 1.95154 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ - + .03340, .02621, 43.16029, 2.11090, 1.26483, - + .85312, 1.66586, 2.11546, - + .03442, .02677, 47.74363, 2.27629, 1.43990, - + 1.03974, 1.83635, 2.28094, - + .03540, .02731, 52.26545, 2.44270, 1.61529, - + 1.22587, 2.00748, 2.44743, - + .03635, .02782, 56.72363, 2.60977, 1.79075, - + 1.41131, 2.17896, 2.61458, - + .03726, .02832, 61.10136, 2.77695, 1.96579, - + 1.59564, 2.35028, 2.78185, - + .03815, .02880, 65.35197, 2.94306, 2.13930, - + 1.77777, 2.52029, 2.94804, - + .03900, .02926, 69.54204, 3.10911, 2.31231, - + 1.95884, 2.69001, 3.11416 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ - + .03984, .02970, 73.65256, 3.27464, 2.48443, - + 2.13848, 2.85899, 3.27975, - + .04064, .03014, 77.62486, 3.43812, 2.65417, - + 2.31520, 3.02577, 3.44331, - + .04144, .03056, 81.56219, 3.60171, 2.82369, - + 2.49131, 3.19248, 3.60696, - + .04220, .03097, 85.34420, 3.76254, 2.99018, - + 2.66389, 3.35628, 3.76784, - + .04295, .03138, 89.08908, 3.92303, 3.15606, - + 2.83554, 3.51960, 3.92838 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + .03563, .02778, 9.10952, .84562, .08174, - + .00000, .44408, .85058, - + .03760, .02886, 12.36868, .94796, .20049, - + .00000, .55507, .95310, - + .03943, .02984, 15.71702, 1.05517, .32184, - + .00000, .66975, 1.06049, - + .04114, .03077, 19.05450, 1.16557, .44468, - + .07908, .78671, 1.17105, - + .04277, .03164, 22.39167, 1.27879, .56903, - + .22192, .90580, 1.28439, - + .04433, .03248, 25.70026, 1.39398, .69434, - + .35811, 1.02632, 1.39973, - + .04584, .03328, 28.95338, 1.51031, .81991, - + .49428, 1.14752, 1.51618 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ - + .04728, .03404, 32.13588, 1.62719, .94529, - + .62934, 1.26888, 1.63317, - + .04865, .03477, 35.24037, 1.74411, 1.07007, - + .76302, 1.38994, 1.75022, - + .04998, .03546, 38.26561, 1.86078, 1.19404, - + .89517, 1.51045, 1.86699, - + .05125, .03612, 41.21448, 1.97699, 1.31705, - + 1.02573, 1.63025, 1.98330, - + .05248, .03677, 44.07856, 2.09241, 1.43886, - + 1.15449, 1.74903, 2.09884, - + .05366, .03739, 46.82820, 2.20620, 1.55864, - + 1.28068, 1.86598, 2.21272, - + .05481, .03799, 49.51406, 2.31923, 1.67733, - + 1.40529, 1.98198, 2.32584 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ - + .05593, .03857, 52.12506, 2.43118, 1.79463, - + 1.52809, 2.09674, 2.43787, - + .05701, .03913, 54.62273, 2.54098, 1.90950, - + 1.64804, 2.20922, 2.54776, - + .05806, .03966, 57.08110, 2.65028, 2.02363, - + 1.76692, 2.32106, 2.65715, - + .05908, .04020, 59.41876, 2.75702, 2.13496, - + 1.88262, 2.43022, 2.76396, - + .06008, .04071, 61.71886, 2.86303, 2.24536, - + 1.99713, 2.53854, 2.87005 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + .04385, .03239, 8.04229, .74421, .07120, - + .00000, .39086, .75006, - + .04621, .03364, 10.82227, .83137, .17294, - + .00000, .48574, .83745, - + .04841, .03480, 13.63543, .92186, .27599, - + .00000, .58289, .92815, - + .05045, .03588, 16.40099, 1.01427, .37944, - + .06681, .68112, 1.02073, - + .05240, .03690, 19.13413, 1.10833, .48340, - + .18688, .78043, 1.11498, - + .05427, .03788, 21.81510, 1.20337, .58744, - + .30047, .88025, 1.21020, - + .05606, .03880, 24.42526, 1.29875, .69103, - + .41327, .97998, 1.30574 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ - + .05778, .03969, 26.95555, 1.39401, .79384, - + .52443, 1.07922, 1.40114, - + .05941, .04054, 29.40300, 1.48879, .89560, - + .63382, 1.17771, 1.49607, - + .06099, .04135, 31.76937, 1.58285, .99616, - + .74134, 1.27521, 1.59028, - + .06250, .04213, 34.05931, 1.67610, 1.09547, - + .84703, 1.37167, 1.68366, - + .06396, .04288, 36.26794, 1.76830, 1.19333, - + .95075, 1.46686, 1.77597, - + .06536, .04359, 38.37289, 1.85874, 1.28912, - + 1.05189, 1.56014, 1.86655, - + .06672, .04429, 40.41710, 1.94823, 1.38363, - + 1.15135, 1.65229, 1.95615 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ - + .06802, .04495, 42.39277, 2.03650, 1.47668, - + 1.24895, 1.74309, 2.04455, - + .06930, .04560, 44.27015, 2.12273, 1.56741, - + 1.34387, 1.83169, 2.13087, - + .07053, .04623, 46.10979, 2.20827, 1.65725, - + 1.43762, 1.91951, 2.21651, - + .07174, .04684, 47.84745, 2.29146, 1.74453, - + 1.52848, 2.00487, 2.29981, - + .07290, .04742, 49.55035, 2.37383, 1.83080, - + 1.61813, 2.08931, 2.38228 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + .05073, .03614, 7.36026, .67927, .06447, - + .00000, .35692, .68586, - + .05343, .03754, 9.83669, .75687, .15548, - + .00000, .44164, .76373, - + .05592, .03884, 12.31420, .83689, .24708, - + .00000, .52782, .84399, - + .05825, .04005, 14.72451, .91809, .33845, - + .05913, .61444, .92541, - + .06046, .04119, 17.08565, 1.00032, .42978, - + .16500, .70150, 1.00785, - + .06258, .04227, 19.38313, 1.08297, .52072, - + .26457, .78856, 1.09070, - + .06460, .04331, 21.60332, 1.16552, .61084, - + .36296, .87513, 1.17344 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ - + .06653, .04430, 23.74072, 1.24759, .69987, - + .45946, .96092, 1.25570, - + .06838, .04524, 25.79492, 1.32891, .78764, - + .55399, 1.04566, 1.33720, - + .07015, .04614, 27.76928, 1.40931, .87402, - + .64654, 1.12925, 1.41776, - + .07185, .04701, 29.66939, 1.48872, .95902, - + .73716, 1.21164, 1.49733, - + .07349, .04784, 31.49225, 1.56695, 1.04248, - + .82576, 1.29265, 1.57572, - + .07507, .04863, 33.21981, 1.64343, 1.12387, - + .91183, 1.37176, 1.65234, - + .07659, .04939, 34.89013, 1.71887, 1.20396, - + .99621, 1.44966, 1.72791 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ - + .07807, .05013, 36.49722, 1.79307, 1.28255, - + 1.07877, 1.52620, 1.80225, - + .07948, .05085, 38.01646, 1.86529, 1.35894, - + 1.15878, 1.60064, 1.87460, - + .08086, .05154, 39.50019, 1.93678, 1.43440, - + 1.23761, 1.67425, 1.94622, - + .08220, .05221, 40.89431, 2.00608, 1.50747, - + 1.31377, 1.74556, 2.01564, - + .08351, .05287, 42.25639, 2.07455, 1.57955, - + 1.38873, 1.81595, 2.08423 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + .05684, .03942, 6.86937, .63259, .05956, - + .00000, .33227, .63965, - + .05980, .04096, 9.12498, .70329, .14280, - + .00000, .40965, .71065, - + .06255, .04237, 11.35974, .77580, .22615, - + .00000, .48793, .78343, - + .06511, .04370, 13.51488, .84900, .30885, - + .05360, .56618, .85686, - + .06753, .04493, 15.61026, .92279, .39116, - + .14928, .64450, .93087, - + .06986, .04612, 17.63542, .99663, .47276, - + .23882, .72247, 1.00494, - + .07208, .04725, 19.58012, 1.07009, .55330, - + .32693, .79970, 1.07860 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ - + .07420, .04832, 21.44131, 1.14286, .63258, - + .41301, .87593, 1.15156, - + .07622, .04935, 23.22055, 1.21471, .71045, - + .49702, .95099, 1.22359, - + .07815, .05032, 24.92199, 1.28551, .78685, - + .57899, 1.02477, 1.29458, - + .08001, .05126, 26.55169, 1.35523, .86180, - + .65901, 1.09729, 1.36446, - + .08179, .05216, 28.10815, 1.42371, .93518, - + .73699, 1.16837, 1.43311, - + .08351, .05302, 29.57612, 1.49045, 1.00652, - + .81253, 1.23757, 1.50000, - + .08516, .05384, 30.99007, 1.55611, 1.07652, - + .88638, 1.30554, 1.56581 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ - + .08676, .05465, 32.34525, 1.62054, 1.14505, - + .95844, 1.37216, 1.63037, - + .08830, .05542, 33.62056, 1.68308, 1.21150, - + 1.02810, 1.43677, 1.69306, - + .08981, .05616, 34.86252, 1.74486, 1.27699, - + 1.09659, 1.50054, 1.75497, - + .09125, .05688, 36.02439, 1.80458, 1.34024, - + 1.16258, 1.56215, 1.81482, - + .09267, .05758, 37.15666, 1.86348, 1.40251, - + 1.22741, 1.62284, 1.87384 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + .08056, .05187, 5.53899, .50541, .04615, - + .00000, .26572, .51484, - + .08454, .05389, 7.20629, .55765, .10862, - + .00000, .32344, .56746, - + .08822, .05575, 8.80460, .61029, .17010, - + .00000, .38083, .62046, - + .09163, .05747, 10.30043, .66253, .23011, - + .03913, .43725, .67304, - + .09486, .05909, 11.71833, .71443, .28897, - + .10827, .49288, .72524, - + .09792, .06063, 13.05725, .76563, .34651, - + .17194, .54750, .77674, - + .10084, .06208, 14.31548, .81589, .40256, - + .23372, .60086, .82726 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ - + .10361, .06345, 15.49562, .86506, .45706, - + .29330, .65291, .87669, - + .10624, .06475, 16.60275, .91304, .50997, - + .35074, .70354, .92492, - + .10874, .06600, 17.64306, .95982, .56133, - + .40615, .75279, .97193, - + .11115, .06718, 18.62338, 1.00541, .61120, - + .45967, .80069, 1.01775, - + .11345, .06831, 19.54482, 1.04974, .65956, - + .51132, .84719, 1.06230, - + .11564, .06938, 20.39902, 1.09251, .70610, - + .56081, .89199, 1.10525, - + .11776, .07042, 21.21094, 1.13422, .75138, - + .60879, .93563, 1.14717 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ - + .11981, .07142, 21.97861, 1.17480, .79535, - + .65521, .97803, 1.18794, - + .12177, .07238, 22.68923, 1.21384, .83757, - + .69967, 1.01878, 1.22714, - + .12367, .07330, 23.37444, 1.25213, .87893, - + .74308, 1.05873, 1.26562, - + .12551, .07419, 24.00451, 1.28880, .91849, - + .78453, 1.09697, 1.30245, - + .12728, .07505, 24.61300, 1.32474, .95722, - + .82500, 1.13441, 1.33856 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + .11354, .06891, 4.45704, .40201, .03499, - + .00000, .21161, .41464, - + .11880, .07154, 5.65313, .43955, .08085, - + .00000, .25367, .45270, - + .12364, .07395, 6.75557, .47666, .12516, - + .00000, .29469, .49028, - + .12810, .07617, 7.75081, .51280, .16762, - + .02790, .33427, .52684, - + .13227, .07823, 8.66580, .54811, .20861, - + .07664, .37266, .56254, - + .13622, .08017, 9.50576, .58235, .24803, - + .12069, .40972, .59715, - + .13995, .08200, 10.27447, .61544, .28588, - + .16278, .44541, .63060 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ - + .14346, .08370, 10.97758, .64735, .32216, - + .20275, .47969, .66283, - + .14679, .08531, 11.62169, .67807, .35691, - + .24076, .51262, .69384, - + .14995, .08684, 12.21352, .70762, .39023, - + .27696, .54422, .72369, - + .15295, .08828, 12.75969, .73608, .42221, - + .31150, .57460, .75243, - + .15581, .08965, 13.26261, .76341, .45286, - + .34443, .60375, .78002, - + .15853, .09095, 13.71802, .78946, .48202, - + .37563, .63149, .80632, - + .16115, .09220, 14.14334, .81462, .51013, - + .40558, .65826, .83171 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ - + .16366, .09339, 14.53804, .83885, .53714, - + .43426, .68400, .85616, - + .16605, .09452, 14.89501, .86186, .56280, - + .46143, .70845, .87938, - + .16837, .09560, 15.23480, .88426, .58774, - + .48776, .73225, .90199, - + .17058, .09665, 15.53910, .90547, .61134, - + .51262, .75476, .92339, - + .17273, .09765, 15.82952, .92610, .63428, - + .53673, .77665, .94421 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + .13834, .08162, 3.91963, .35066, .02931, - + -.00001, .18493, .36574, - + .14448, .08469, 4.88547, .38108, .06713, - + -.00001, .21940, .39675, - + .15010, .08747, 5.75208, .41078, .10326, - + -.00001, .25262, .42700, - + .15524, .09000, 6.51529, .43936, .13748, - + .02258, .28429, .45606, - + .16004, .09233, 7.20213, .46695, .17014, - + .06173, .31467, .48411, - + .16455, .09452, 7.82023, .49342, .20125, - + .09669, .34369, .51100, - + .16879, .09656, 8.37516, .51871, .23080, - + .12975, .37132, .53669 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ - + .17276, .09846, 8.87344, .54287, .25888, - + .16084, .39764, .56121, - + .17651, .10025, 9.32211, .56590, .28555, - + .19013, .42266, .58458, - + .18004, .10191, 9.72756, .58785, .31089, - + .21778, .44647, .60685, - + .18339, .10349, 10.09574, .60880, .33503, - + .24396, .46917, .62811, - + .18658, .10499, 10.42926, .62879, .35800, - + .26874, .49080, .64838, - + .18959, .10639, 10.72539, .64764, .37966, - + .29201, .51120, .66749, - + .19248, .10773, 10.99823, .66571, .40040, - + .31421, .53074, .68583 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ - + .19524, .10901, 11.24775, .68300, .42021, - + .33533, .54941, .70335, - + .19785, .11021, 11.46847, .69928, .43888, - + .35519, .56701, .71986, - + .20039, .11137, 11.67636, .71504, .45694, - + .37434, .58403, .73585, - + .20279, .11246, 11.85815, .72983, .47390, - + .39229, .60001, .75084, - + .20511, .11353, 12.02992, .74414, .49031, - + .40962, .61548, .76535 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + .15889, .09217, 3.57509, .31783, .02560, - + -.00001, .16789, .33487, - + .16571, .09555, 4.39473, .34380, .05837, - + -.00001, .19761, .36150, - + .17193, .09861, 5.11463, .36890, .08940, - + -.00001, .22600, .38721, - + .17758, .10135, 5.73604, .39281, .11854, - + .01928, .25279, .41166, - + .18283, .10389, 6.28565, .41568, .14612, - + .05251, .27827, .43504, - + .18774, .10623, 6.77214, .43743, .17218, - + .08191, .30240, .45723, - + .19233, .10841, 7.20198, .45802, .19674, - + .10948, .32517, .47824 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ - + .19662, .11043, 7.58193, .47754, .21990, - + .13522, .34670, .49814, - + .20064, .11231, 7.91886, .49598, .24175, - + .15931, .36703, .51696, - + .20442, .11407, 8.21884, .51343, .26237, - + .18188, .38624, .53476, - + .20800, .11572, 8.48738, .52998, .28189, - + .20313, .40444, .55162, - + .21139, .11727, 8.72705, .54566, .30036, - + .22312, .42165, .56759, - + .21458, .11872, 8.93594, .56034, .31767, - + .24177, .43777, .58254, - + .21763, .12010, 9.12589, .57432, .33415, - + .25947, .45314, .59678 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ - + .22052, .12141, 9.29704, .58761, .34982, - + .27624, .46774, .61033, - + .22327, .12263, 9.44518, .60004, .36449, - + .29190, .48141, .62298, - + .22592, .12381, 9.58329, .61202, .37862, - + .30695, .49457, .63518, - + .22842, .12492, 9.70083, .62316, .39182, - + .32097, .50684, .64654, - + .23084, .12598, 9.81077, .63390, .40452, - + .33445, .51867, .65748 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + .17665, .10117, 3.32673, .29395, .02286, - + .00000, .15565, .31240, - + .18406, .10485, 4.04194, .31681, .05213, - + .00000, .18208, .33603, - + .19076, .10813, 4.65887, .33873, .07965, - + -.00001, .20709, .35862, - + .19684, .11106, 5.18219, .35943, .10529, - + .01696, .23053, .37991, - + .20244, .11374, 5.63806, .37907, .12939, - + .04607, .25264, .40008, - + .20766, .11620, 6.03570, .39757, .15199, - + .07162, .27342, .41908, - + .21251, .11848, 6.38188, .41497, .17315, - + .09542, .29291, .43693 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ - + .21703, .12057, 6.68365, .43132, .19299, - + .11750, .31119, .45369, - + .22125, .12251, 6.94738, .44668, .21158, - + .13803, .32834, .46943, - + .22521, .12431, 7.17876, .46112, .22904, - + .15717, .34445, .48422, - + .22894, .12600, 7.38304, .47472, .24548, - + .17510, .35963, .49816, - + .23246, .12757, 7.56283, .48752, .26095, - + .19187, .37390, .51126, - + .23577, .12904, 7.71659, .49942, .27535, - + .20745, .38718, .52344, - + .23890, .13044, 7.85442, .51069, .28903, - + .22217, .39979, .53499 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ - + .24189, .13175, 7.97654, .52135, .30196, - + .23605, .41170, .54590, - + .24470, .13297, 8.07988, .53125, .31401, - + .24895, .42278, .55602, - + .24741, .13414, 8.17520, .54075, .32557, - + .26130, .43342, .56575, - + .24996, .13524, 8.25361, .54951, .33630, - + .27275, .44327, .57472, - + .25243, .13629, 8.32609, .55794, .34660, - + .28373, .45273, .58335 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + .24433, .13581, 2.64474, .22926, .01515, - + .00000, .12276, .25444, - + .25356, .14018, 3.07957, .24369, .03515, - + .00000, .14033, .26982, - + .26171, .14396, 3.42895, .25709, .05345, - + .00000, .15648, .28402, - + .26893, .14722, 3.70512, .26930, .07002, - + .01097, .17114, .29691, - + .27545, .15010, 3.93073, .28052, .08522, - + .02948, .18458, .30873, - + .28138, .15267, 4.11511, .29074, .09911, - + .04528, .19683, .31947, - + .28678, .15496, 4.26501, .30004, .11179, - + .05965, .20802, .32923 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ - + .29172, .15701, 4.38661, .30853, .12341, - + .07268, .21824, .33812, - + .29627, .15887, 4.48505, .31626, .13408, - + .08455, .22759, .34620, - + .30045, .16055, 4.56467, .32332, .14388, - + .09540, .23617, .35359, - + .30434, .16210, 4.62914, .32979, .15292, - + .10536, .24406, .36036, - + .30794, .16350, 4.68024, .33571, .16127, - + .11453, .25131, .36654, - + .31127, .16477, 4.71772, .34103, .16889, - + .12286, .25790, .37209, - + .31440, .16594, 4.74756, .34597, .17600, - + .13062, .26401, .37724 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ - + .31732, .16703, 4.77000, .35049, .18259, - + .13782, .26967, .38197, - + .32002, .16801, 4.78330, .35455, .18862, - + .14439, .27480, .38620, - + .32261, .16894, 4.79354, .35837, .19432, - + .15060, .27965, .39018, - + .32499, .16978, 4.79590, .36175, .19950, - + .15625, .28402, .39370, - + .32726, .17056, 4.79639, .36494, .20441, - + .16161, .28814, .39702 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + .33468, .18093, 2.06404, .17371, .00840, - + -.00001, .09516, .20873, - + .34513, .18513, 2.27574, .18123, .02138, - + -.00002, .10573, .21711, - + .35397, .18849, 2.42600, .18783, .03280, - + -.00002, .11501, .22437, - + .36143, .19119, 2.52849, .19350, .04277, - + .00649, .12304, .23050, - + .36791, .19339, 2.60026, .19839, .05157, - + .01722, .13007, .23577, - + .37351, .19518, 2.64872, .20254, .05933, - + .02607, .13618, .24022, - + .37838, .19663, 2.67907, .20608, .06619, - + .03387, .14151, .24396 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ - + .38269, .19784, 2.69554, .20908, .07226, - + .04075, .14616, .24712, - + .38646, .19883, 2.70144, .21163, .07767, - + .04683, .15023, .24977, - + .38981, .19963, 2.69946, .21379, .08249, - + .05224, .15380, .25200, - + .39281, .20030, 2.69167, .21561, .08682, - + .05710, .15695, .25387, - + .39548, .20084, 2.67899, .21714, .09070, - + .06145, .15971, .25542, - + .39782, .20124, 2.66139, .21836, .09413, - + .06532, .16208, .25663, - + .39994, .20157, 2.64186, .21937, .09723, - + .06883, .16419, .25763 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ - + .40185, .20181, 2.62045, .22019, .10006, - + .07202, .16605, .25843, - + .40352, .20196, 2.59630, .22080, .10254, - + .07485, .16763, .25897, - + .40505, .20208, 2.57226, .22131, .10485, - + .07748, .16906, .25942, - + .40637, .20213, 2.54596, .22160, .10685, - + .07980, .17025, .25965, - + .40760, .20213, 2.52020, .22184, .10871, - + .08196, .17133, .25982 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + .39938, .21056, 1.74940, .14184, .00488, - + .00000, .07974, .18348, - + .40948, .21363, 1.85509, .14594, .01467, - + .00000, .08691, .18801, - + .41753, .21579, 1.91718, .14930, .02300, - + .00001, .09293, .19159, - + .42394, .21725, 1.94774, .15193, .03004, - + .00449, .09787, .19429, - + .42917, .21821, 1.95939, .15400, .03607, - + .01176, .10201, .19633, - + .43342, .21876, 1.95773, .15553, .04122, - + .01761, .10542, .19775, - + .43685, .21901, 1.94648, .15665, .04565, - + .02265, .10824, .19873 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ - + .43965, .21903, 1.92844, .15742, .04948, - + .02698, .11057, .19933, - + .44194, .21889, 1.90574, .15793, .05280, - + .03075, .11250, .19960, - + .44380, .21861, 1.88002, .15820, .05567, - + .03403, .11409, .19963, - + .44531, .21822, 1.85251, .15827, .05819, - + .03692, .11539, .19949, - + .44650, .21776, 1.82368, .15820, .06039, - + .03946, .11645, .19915, - + .44739, .21718, 1.79338, .15795, .06228, - + .04166, .11725, .19863, - + .44807, .21658, 1.76337, .15761, .06395, - + .04363, .11790, .19803 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ - + .44856, .21593, 1.73355, .15720, .06542, - + .04538, .11841, .19732, - + .44883, .21522, 1.70326, .15667, .06666, - + .04690, .11875, .19652, - + .44902, .21451, 1.67414, .15611, .06780, - + .04830, .11901, .19569, - + .44901, .21374, 1.64475, .15544, .06874, - + .04948, .11913, .19474, - + .44894, .21298, 1.61661, .15477, .06961, - + .05058, .11920, .19379 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + .45000, .23091, 1.52710, .11805, .00262, - + -.00001, .06822, .16385, - + .45865, .23234, 1.56946, .12007, .01049, - + .00000, .07326, .16573, - + .46503, .23290, 1.58186, .12152, .01698, - + .00000, .07729, .16685, - + .46961, .23282, 1.57417, .12242, .02229, - + .00330, .08042, .16736, - + .47296, .23235, 1.55566, .12293, .02674, - + .00856, .08287, .16739, - + .47526, .23153, 1.53020, .12307, .03043, - + .01271, .08477, .16704, - + .47679, .23047, 1.50033, .12294, .03352, - + .01621, .08621, .16638 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ - + .47770, .22929, 1.46792, .12261, .03613, - + .01917, .08729, .16553, - + .47815, .22798, 1.43427, .12211, .03833, - + .02169, .08807, .16450, - + .47823, .22662, 1.40030, .12150, .04019, - + .02385, .08863, .16336, - + .47799, .22521, 1.36666, .12079, .04177, - + .02572, .08901, .16214, - + .47751, .22378, 1.33354, .12000, .04312, - + .02733, .08923, .16086, - + .47678, .22228, 1.30069, .11912, .04423, - + .02870, .08928, .15949, - + .47590, .22081, 1.26915, .11822, .04520, - + .02990, .08924, .15811 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ - + .47487, .21934, 1.23873, .11730, .04602, - + .03094, .08911, .15671, - + .47368, .21785, 1.20894, .11633, .04669, - + .03184, .08890, .15527, - + .47247, .21639, 1.18072, .11536, .04728, - + .03265, .08865, .15387, - + .47110, .21490, 1.15308, .11435, .04775, - + .03332, .08831, .15243, - + .46971, .21346, 1.12691, .11337, .04815, - + .03393, .08797, .15104 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + .49119, .24467, 1.35090, .09841, .00099, - + .00000, .05831, .14647, - + .49755, .24418, 1.35189, .09909, .00750, - + -.00001, .06187, .14636, - + .50153, .24301, 1.33372, .09936, .01269, - + -.00001, .06453, .14577, - + .50373, .24131, 1.30385, .09924, .01684, - + .00250, .06646, .14474, - + .50473, .23936, 1.26890, .09886, .02022, - + .00644, .06785, .14344, - + .50474, .23717, 1.23142, .09824, .02296, - + .00948, .06880, .14195, - + .50405, .23484, 1.19300, .09746, .02520, - + .01201, .06940, .14031 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ - + .50287, .23248, 1.15472, .09655, .02704, - + .01412, .06975, .13860, - + .50131, .23010, 1.11726, .09558, .02855, - + .01588, .06990, .13683, - + .49946, .22775, 1.08108, .09455, .02980, - + .01736, .06990, .13503, - + .49741, .22542, 1.04646, .09348, .03085, - + .01862, .06978, .13322, - + .49519, .22311, 1.01335, .09240, .03171, - + .01968, .06955, .13143, - + .49278, .22080, .98146, .09128, .03239, - + .02058, .06923, .12965, - + .49031, .21857, .95137, .09016, .03296, - + .02136, .06887, .12792 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ - + .48779, .21639, .92285, .08907, .03343, - + .02203, .06846, .12619, - + .48515, .21423, .89548, .08797, .03379, - + .02256, .06799, .12449, - + .48256, .21214, .86981, .08689, .03409, - + .02304, .06751, .12284, - + .47985, .21007, .84513, .08581, .03431, - + .02342, .06698, .12121, - + .47721, .20808, .82195, .08476, .03449, - + .02377, .06645, .11964 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + .53077, .25425, 1.16857, .07816, .00001, - + -.00001, .04809, .12649, - + .53340, .25128, 1.13617, .07794, .00499, - + -.00001, .05042, .12468, - + .53377, .24785, 1.09503, .07741, .00909, - + -.00001, .05197, .12267, - + .53252, .24422, 1.04985, .07663, .01224, - + .00180, .05295, .12047, - + .53030, .24048, 1.00464, .07568, .01476, - + .00462, .05350, .11823, - + .52726, .23672, .96062, .07462, .01673, - + .00676, .05374, .11588, - + .52369, .23300, .91844, .07347, .01828, - + .00851, .05375, .11357 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ - + .51982, .22934, .87847, .07229, .01951, - + .00992, .05360, .11131, - + .51572, .22580, .84086, .07109, .02051, - + .01107, .05331, .10909, - + .51150, .22238, .80565, .06989, .02130, - + .01204, .05293, .10691, - + .50725, .21905, .77279, .06869, .02193, - + .01285, .05249, .10483, - + .50295, .21584, .74210, .06751, .02242, - + .01352, .05200, .10281, - + .49858, .21272, .71321, .06633, .02281, - + .01405, .05146, .10084, - + .49425, .20972, .68636, .06521, .02310, - + .01450, .05090, .09895 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ - + .48998, .20685, .66128, .06413, .02331, - + .01489, .05034, .09711, - + .48571, .20403, .63763, .06303, .02347, - + .01520, .04975, .09534, - + .48157, .20133, .61566, .06198, .02359, - + .01546, .04917, .09365, - + .47737, .19872, .59484, .06096, .02365, - + .01567, .04857, .09198, - + .47332, .19622, .57546, .05998, .02368, - + .01584, .04798, .09040 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + .55978, .25744, 1.01392, .06150, .00001, - + -.00003, .03931, .10793, - + .55800, .25193, .96111, .06081, .00327, - + -.00003, .04084, .10509, - + .55431, .24637, .90733, .05989, .00659, - + -.00002, .04170, .10225, - + .54938, .24087, .85494, .05880, .00907, - + .00132, .04209, .09943, - + .54376, .23556, .80589, .05763, .01095, - + .00340, .04218, .09671, - + .53757, .23041, .76041, .05643, .01239, - + .00494, .04204, .09403, - + .53116, .22546, .71846, .05520, .01351, - + .00617, .04174, .09146 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ - + .52464, .22077, .67991, .05398, .01437, - + .00716, .04132, .08899, - + .51813, .21628, .64453, .05278, .01503, - + .00794, .04083, .08663, - + .51169, .21198, .61211, .05161, .01554, - + .00858, .04030, .08439, - + .50536, .20790, .58240, .05046, .01592, - + .00911, .03973, .08227, - + .49911, .20402, .55506, .04936, .01621, - + .00954, .03916, .08025, - + .49297, .20028, .52976, .04828, .01643, - + .00987, .03856, .07830, - + .48702, .19672, .50653, .04725, .01657, - + .01015, .03796, .07645 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ - + .48121, .19333, .48508, .04625, .01666, - + .01038, .03735, .07471, - + .47547, .19005, .46511, .04528, .01669, - + .01054, .03675, .07303, - + .46996, .18695, .44670, .04437, .01672, - + .01068, .03617, .07145, - + .46453, .18394, .42945, .04347, .01670, - + .01079, .03559, .06990, - + .45929, .18108, .41349, .04262, .01666, - + .01088, .03502, .06845 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + .57956, .25538, .87934, .04769, .00001, - + .00000, .03179, .09098, - + .57288, .24758, .81474, .04690, .00204, - + -.00001, .03274, .08754, - + .56485, .24017, .75488, .04592, .00472, - + -.00001, .03316, .08432, - + .55611, .23310, .70015, .04481, .00667, - + .00099, .03322, .08123, - + .54706, .22650, .65100, .04367, .00812, - + .00251, .03302, .07831, - + .53788, .22021, .60687, .04250, .00921, - + .00361, .03268, .07556, - + .52874, .21433, .56723, .04134, .01000, - + .00449, .03222, .07298 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ - + .51977, .20878, .53158, .04022, .01061, - + .00518, .03169, .07056, - + .51106, .20354, .49950, .03911, .01104, - + .00571, .03114, .06830, - + .50259, .19865, .47056, .03805, .01137, - + .00614, .03057, .06617, - + .49439, .19405, .44440, .03706, .01162, - + .00649, .02998, .06414, - + .48650, .18967, .42069, .03611, .01180, - + .00677, .02938, .06223, - + .47880, .18550, .39898, .03516, .01189, - + .00697, .02880, .06047, - + .47142, .18158, .37923, .03427, .01195, - + .00714, .02824, .05878 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ - + .46428, .17787, .36118, .03343, .01198, - + .00728, .02768, .05718, - + .45738, .17430, .34454, .03261, .01196, - + .00737, .02713, .05569, - + .45080, .17090, .32930, .03183, .01192, - + .00744, .02660, .05427, - + .44433, .16767, .31518, .03110, .01188, - + .00748, .02607, .05292, - + .43815, .16460, .30217, .03039, .01182, - + .00752, .02556, .05163 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + .59083, .24926, .76061, .03650, .00001, - + -.00002, .02534, .07556, - + .57907, .23940, .69015, .03572, .00119, - + -.00002, .02596, .07196, - + .56672, .23035, .62849, .03480, .00337, - + -.00003, .02613, .06862, - + .55425, .22200, .57445, .03378, .00493, - + .00073, .02599, .06554, - + .54201, .21428, .52734, .03272, .00604, - + .00187, .02567, .06274, - + .52999, .20716, .48607, .03168, .00687, - + .00268, .02524, .06012, - + .51836, .20055, .44979, .03065, .00746, - + .00332, .02474, .05769 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ - + .50721, .19442, .41774, .02969, .00788, - + .00380, .02422, .05542, - + .49653, .18870, .38931, .02876, .00819, - + .00417, .02367, .05332, - + .48632, .18336, .36400, .02785, .00840, - + .00446, .02311, .05140, - + .47658, .17838, .34139, .02700, .00853, - + .00469, .02256, .04961, - + .46729, .17369, .32109, .02618, .00863, - + .00487, .02202, .04795, - + .45833, .16929, .30275, .02541, .00867, - + .00500, .02150, .04634, - + .44979, .16516, .28620, .02468, .00868, - + .00510, .02099, .04486 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ - + .44164, .16125, .27120, .02399, .00868, - + .00517, .02048, .04349, - + .43376, .15755, .25747, .02334, .00865, - + .00523, .02001, .04217, - + .42628, .15406, .24498, .02273, .00861, - + .00527, .01956, .04093, - + .41906, .15071, .23347, .02210, .00854, - + .00528, .01911, .03980, - + .41219, .14753, .22294, .02153, .00846, - + .00528, .01868, .03874 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + .59434, .23984, .65531, .02744, .00001, - + -.00002, .01993, .06187, - + .57754, .22821, .58311, .02679, .00060, - + -.00001, .02036, .05835, - + .56109, .21779, .52246, .02595, .00241, - + -.00002, .02038, .05517, - + .54509, .20846, .47102, .02511, .00367, - + .00056, .02014, .05227, - + .52986, .19998, .42728, .02422, .00453, - + .00142, .01980, .04964, - + .51529, .19225, .38971, .02335, .00514, - + .00201, .01937, .04724, - + .50151, .18514, .35721, .02251, .00557, - + .00246, .01889, .04506 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ - + .48847, .17863, .32891, .02168, .00589, - + .00280, .01837, .04308, - + .47616, .17260, .30416, .02091, .00609, - + .00307, .01788, .04124, - + .46455, .16700, .28238, .02016, .00623, - + .00326, .01739, .03954, - + .45357, .16183, .26312, .01948, .00632, - + .00341, .01689, .03797, - + .44309, .15706, .24601, .01884, .00637, - + .00353, .01644, .03649, - + .43316, .15255, .23069, .01820, .00636, - + .00361, .01597, .03518, - + .42377, .14832, .21697, .01762, .00635, - + .00367, .01554, .03394 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ - + .41487, .14436, .20461, .01707, .00632, - + .00372, .01511, .03278, - + .40629, .14063, .19339, .01655, .00628, - + .00374, .01471, .03169, - + .39819, .13714, .18323, .01606, .00623, - + .00376, .01432, .03067, - + .39039, .13380, .17395, .01561, .00617, - + .00377, .01396, .02972, - + .38300, .13066, .16549, .01517, .00610, - + .00377, .01361, .02883 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + .59081, .22768, .56179, .02013, .00001, - + .00002, .01554, .04994, - + .56917, .21473, .49090, .01969, .00027, - + .00002, .01577, .04665, - + .54874, .20343, .43319, .01913, .00172, - + .00003, .01569, .04375, - + .52961, .19340, .38555, .01843, .00267, - + .00046, .01547, .04113, - + .51178, .18442, .34581, .01775, .00336, - + .00106, .01513, .03878, - + .49505, .17634, .31224, .01706, .00382, - + .00150, .01468, .03670, - + .47948, .16899, .28363, .01636, .00414, - + .00181, .01424, .03480 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ - + .46493, .16226, .25905, .01571, .00434, - + .00206, .01380, .03309, - + .45131, .15614, .23781, .01509, .00448, - + .00224, .01338, .03151, - + .43854, .15051, .21931, .01453, .00457, - + .00237, .01295, .03007, - + .42656, .14532, .20310, .01399, .00463, - + .00247, .01253, .02876, - + .41532, .14052, .18885, .01349, .00465, - + .00255, .01214, .02755, - + .40468, .13602, .17617, .01299, .00464, - + .00259, .01175, .02645, - + .39466, .13185, .16489, .01255, .00461, - + .00262, .01139, .02542 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ - + .38518, .12796, .15481, .01215, .00458, - + .00265, .01106, .02444, - + .37621, .12429, .14571, .01172, .00454, - + .00265, .01072, .02356, - + .36776, .12085, .13751, .01134, .00448, - + .00266, .01041, .02275, - + .35964, .11764, .13007, .01098, .00443, - + .00266, .01010, .02195, - + .35197, .11461, .12332, .01065, .00437, - + .00265, .00983, .02123 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + .58058, .21431, .47915, .01495, .00001, - + -.00014, .01159, .03971, - + .55451, .20028, .41142, .01462, .00001, - + -.00013, .01187, .03674, - + .53072, .18822, .35785, .01409, .00100, - + -.00012, .01182, .03423, - + .50889, .17769, .31456, .01356, .00183, - + .00021, .01160, .03193, - + .48888, .16841, .27910, .01299, .00239, - + .00069, .01128, .02994, - + .47044, .16014, .24960, .01245, .00275, - + .00102, .01095, .02811, - + .45345, .15270, .22480, .01190, .00299, - + .00127, .01060, .02652 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ - + .43774, .14598, .20377, .01136, .00314, - + .00143, .01022, .02512, - + .42317, .13986, .18575, .01088, .00326, - + .00158, .00986, .02384, - + .40964, .13429, .17022, .01043, .00332, - + .00168, .00951, .02263, - + .39703, .12919, .15674, .01000, .00335, - + .00174, .00918, .02154, - + .38523, .12446, .14494, .00963, .00337, - + .00179, .00885, .02056, - + .37417, .12009, .13454, .00925, .00334, - + .00183, .00855, .01964, - + .36383, .11606, .12534, .00890, .00332, - + .00185, .00826, .01880 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ - + .35412, .11230, .11716, .00856, .00328, - + .00186, .00799, .01804, - + .34490, .10878, .10984, .00826, .00325, - + .00186, .00773, .01733, - + .33626, .10550, .10327, .00795, .00321, - + .00186, .00749, .01668, - + .32802, .10243, .09735, .00768, .00316, - + .00185, .00725, .01606, - + .32024, .09954, .09200, .00743, .00311, - + .00185, .00703, .01549 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + .56485, .19887, .40568, .01053, .00001, - + -.00002, .00877, .03101, - + .53479, .18424, .34266, .01035, .00001, - + -.00003, .00897, .02852, - + .50803, .17183, .29389, .01003, .00072, - + -.00003, .00890, .02631, - + .48390, .16119, .25527, .00964, .00134, - + .00021, .00870, .02445, - + .46220, .15188, .22417, .00921, .00175, - + .00055, .00845, .02277, - + .44244, .14363, .19863, .00880, .00201, - + .00078, .00815, .02131, - + .42438, .13633, .17743, .00841, .00220, - + .00095, .00784, .01998 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ - + .40784, .12976, .15963, .00805, .00233, - + .00108, .00754, .01877, - + .39262, .12384, .14454, .00769, .00241, - + .00117, .00724, .01771, - + .37861, .11845, .13166, .00735, .00245, - + .00123, .00696, .01677, - + .36565, .11352, .12056, .00702, .00246, - + .00127, .00668, .01592, - + .35363, .10901, .11090, .00671, .00244, - + .00130, .00643, .01515, - + .34238, .10485, .10245, .00644, .00242, - + .00132, .00619, .01442, - + .33190, .10104, .09503, .00618, .00240, - + .00133, .00596, .01375 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ - + .32209, .09751, .08848, .00594, .00236, - + .00133, .00575, .01314, - + .31282, .09418, .08264, .00574, .00233, - + .00133, .00554, .01259, - + .30416, .09110, .07742, .00556, .00230, - + .00133, .00535, .01209, - + .29599, .08822, .07275, .00535, .00225, - + .00132, .00516, .01161, - + .28832, .08554, .06854, .00515, .00221, - + .00131, .00500, .01116 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + .54401, .18285, .34122, .00732, .00001, - + -.00004, .00641, .02389, - + .51054, .16789, .28359, .00732, .00001, - + -.00003, .00660, .02177, - + .48139, .15539, .24004, .00709, .00042, - + -.00004, .00656, .02002, - + .45559, .14480, .20611, .00680, .00093, - + .00014, .00639, .01846, - + .43257, .13565, .17915, .00650, .00126, - + .00040, .00619, .01707, - + .41191, .12763, .15733, .00620, .00148, - + .00058, .00595, .01589, - + .39322, .12055, .13943, .00592, .00160, - + .00070, .00569, .01485 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ - + .37627, .11423, .12454, .00560, .00168, - + .00078, .00547, .01392, - + .36077, .10856, .11204, .00534, .00172, - + .00083, .00524, .01307, - + .34656, .10345, .10145, .00511, .00175, - + .00087, .00502, .01230, - + .33352, .09881, .09239, .00490, .00176, - + .00091, .00481, .01160, - + .32145, .09457, .08456, .00468, .00175, - + .00093, .00462, .01100, - + .31025, .09069, .07777, .00448, .00174, - + .00094, .00442, .01045, - + .29986, .08710, .07184, .00429, .00171, - + .00095, .00425, .00994 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ - + .29018, .08380, .06662, .00412, .00169, - + .00095, .00409, .00950, - + .28112, .08074, .06200, .00393, .00166, - + .00094, .00392, .00907, - + .27268, .07790, .05789, .00377, .00163, - + .00093, .00378, .00867, - + .26465, .07526, .05424, .00364, .00160, - + .00092, .00365, .00830, - + .25716, .07280, .05095, .00353, .00157, - + .00091, .00353, .00796 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + .51886, .16623, .28475, .00492, .00001, - + .00000, .00462, .01809, - + .48273, .15131, .23299, .00495, .00001, - + .00000, .00479, .01643, - + .45168, .13904, .19461, .00489, .00026, - + .00000, .00478, .01493, - + .42463, .12874, .16529, .00473, .00064, - + .00013, .00466, .01369, - + .40087, .11986, .14226, .00450, .00091, - + .00032, .00447, .01263, - + .37965, .11223, .12386, .00432, .00105, - + .00043, .00430, .01166, - + .36075, .10549, .10893, .00409, .00116, - + .00051, .00411, .01084 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ - + .34365, .09953, .09660, .00392, .00122, - + .00058, .00393, .01010, - + .32820, .09421, .08636, .00372, .00124, - + .00062, .00375, .00945, - + .31411, .08943, .07775, .00353, .00125, - + .00064, .00358, .00887, - + .30120, .08513, .07042, .00336, .00127, - + .00066, .00342, .00836, - + .28935, .08120, .06417, .00320, .00125, - + .00067, .00327, .00790, - + .27837, .07762, .05875, .00306, .00125, - + .00067, .00313, .00748, - + .26824, .07434, .05404, .00294, .00123, - + .00067, .00299, .00709 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ - + .25887, .07133, .04993, .00280, .00120, - + .00068, .00286, .00675, - + .25010, .06852, .04631, .00269, .00118, - + .00067, .00276, .00643, - + .24196, .06595, .04311, .00258, .00116, - + .00067, .00266, .00613, - + .23429, .06356, .04025, .00248, .00112, - + .00065, .00254, .00585, - + .22714, .06134, .03770, .00239, .00110, - + .00064, .00245, .00560 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + .49000, .14947, .23556, .00306, .00001, - + .00004, .00331, .01339, - + .45183, .13488, .18990, .00323, .00001, - + .00005, .00346, .01213, - + .41960, .12303, .15658, .00322, .00017, - + .00004, .00345, .01099, - + .39197, .11315, .13151, .00310, .00049, - + .00013, .00336, .01001, - + .36781, .10477, .11214, .00300, .00068, - + .00026, .00324, .00919, - + .34661, .09759, .09679, .00288, .00080, - + .00034, .00310, .00842, - + .32774, .09131, .08445, .00273, .00084, - + .00040, .00295, .00781 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ - + .31088, .08578, .07441, .00257, .00088, - + .00043, .00280, .00728, - + .29565, .08087, .06611, .00246, .00092, - + .00046, .00266, .00678, - + .28184, .07647, .05918, .00236, .00091, - + .00048, .00253, .00633, - + .26929, .07254, .05334, .00226, .00090, - + .00049, .00242, .00594, - + .25787, .06896, .04835, .00211, .00091, - + .00049, .00229, .00561, - + .24732, .06571, .04409, .00202, .00088, - + .00049, .00220, .00528, - + .23763, .06276, .04041, .00195, .00087, - + .00048, .00210, .00499 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ - + .22867, .06006, .03720, .00187, .00086, - + .00048, .00201, .00472, - + .22033, .05757, .03438, .00178, .00084, - + .00047, .00192, .00447, - + .21259, .05528, .03190, .00172, .00082, - + .00046, .00184, .00425, - + .20537, .05312, .02970, .00165, .00079, - + .00046, .00177, .00405, - + .19866, .05115, .02775, .00157, .00078, - + .00046, .00169, .00386 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + .45824, .13324, .19331, .00198, .00001, - + .00001, .00221, .00988, - + .41888, .11919, .15350, .00211, .00001, - + .00000, .00238, .00877, - + .38607, .10791, .12501, .00212, .00006, - + .00001, .00239, .00795, - + .35814, .09860, .10386, .00212, .00030, - + .00008, .00236, .00721, - + .33417, .09079, .08771, .00204, .00045, - + .00017, .00227, .00653, - + .31325, .08408, .07507, .00196, .00054, - + .00023, .00216, .00599, - + .29486, .07828, .06503, .00183, .00060, - + .00027, .00206, .00552 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ - + .27839, .07322, .05691, .00176, .00063, - + .00030, .00194, .00512, - + .26372, .06875, .05027, .00167, .00063, - + .00032, .00185, .00476, - + .25048, .06481, .04476, .00160, .00064, - + .00033, .00176, .00441, - + .23847, .06125, .04014, .00153, .00064, - + .00033, .00166, .00412, - + .22755, .05803, .03623, .00146, .00061, - + .00032, .00159, .00387, - + .21758, .05514, .03290, .00139, .00062, - + .00033, .00151, .00363, - + .20844, .05250, .03003, .00131, .00061, - + .00033, .00144, .00343 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ - + .20003, .05009, .02754, .00124, .00059, - + .00033, .00135, .00326, - + .19224, .04789, .02537, .00117, .00057, - + .00032, .00130, .00308, - + .18505, .04586, .02347, .00112, .00055, - + .00032, .00125, .00291, - + .17834, .04396, .02179, .00108, .00055, - + .00032, .00120, .00277, - + .17210, .04222, .02030, .00104, .00054, - + .00032, .00116, .00264 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + .42438, .11742, .15704, .00116, .00001, - + .00003, .00148, .00700, - + .38440, .10416, .12291, .00136, .00001, - + .00003, .00163, .00627, - + .35168, .09361, .09888, .00146, .00001, - + .00002, .00165, .00558, - + .32418, .08501, .08131, .00142, .00018, - + .00007, .00160, .00507, - + .30066, .07781, .06805, .00137, .00027, - + .00012, .00153, .00461, - + .28036, .07173, .05779, .00133, .00034, - + .00016, .00146, .00421, - + .26256, .06649, .04969, .00129, .00038, - + .00018, .00139, .00386 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ - + .24687, .06192, .04320, .00122, .00040, - + .00020, .00131, .00356, - + .23290, .05790, .03793, .00115, .00041, - + .00021, .00124, .00328, - + .22041, .05436, .03359, .00108, .00042, - + .00022, .00117, .00305, - + .20915, .05121, .02997, .00103, .00042, - + .00022, .00112, .00283, - + .19889, .04837, .02693, .00098, .00041, - + .00022, .00106, .00266, - + .18956, .04582, .02435, .00096, .00039, - + .00021, .00099, .00249, - + .18107, .04350, .02215, .00090, .00038, - + .00021, .00094, .00234 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ - + .17329, .04139, .02025, .00084, .00038, - + .00022, .00090, .00223, - + .16607, .03947, .01860, .00083, .00038, - + .00021, .00086, .00209, - + .15941, .03770, .01715, .00080, .00038, - + .00021, .00082, .00196, - + .15326, .03606, .01588, .00075, .00036, - + .00020, .00078, .00187, - + .14758, .03456, .01476, .00070, .00035, - + .00020, .00075, .00178 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + .38889, .10222, .12614, .00054, .00001, - + .00004, .00095, .00490, - + .34910, .08989, .09729, .00076, .00001, - + .00004, .00108, .00438, - + .31692, .08021, .07732, .00087, .00001, - + .00003, .00112, .00389, - + .29023, .07233, .06288, .00085, .00013, - + .00006, .00109, .00352, - + .26753, .06583, .05212, .00087, .00020, - + .00010, .00105, .00316, - + .24816, .06036, .04389, .00082, .00025, - + .00013, .00100, .00288, - + .23136, .05569, .03747, .00077, .00028, - + .00014, .00095, .00262 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ - + .21652, .05163, .03236, .00075, .00031, - + .00015, .00091, .00240, - + .20342, .04809, .02824, .00072, .00032, - + .00016, .00085, .00223, - + .19174, .04497, .02487, .00068, .00032, - + .00016, .00080, .00206, - + .18128, .04221, .02209, .00064, .00031, - + .00016, .00075, .00191, - + .17188, .03974, .01976, .00060, .00029, - + .00016, .00072, .00179, - + .16329, .03751, .01780, .00058, .00029, - + .00016, .00069, .00167, - + .15548, .03551, .01613, .00056, .00028, - + .00016, .00064, .00156 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ - + .14834, .03370, .01469, .00053, .00027, - + .00016, .00060, .00147, - + .14178, .03203, .01345, .00051, .00026, - + .00015, .00058, .00139, - + .13577, .03051, .01237, .00050, .00026, - + .00014, .00055, .00130, - + .13019, .02912, .01143, .00046, .00025, - + .00014, .00053, .00124, - + .12506, .02784, .01059, .00044, .00024, - + .00014, .00049, .00117 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + .35261, .08798, .10021, .00018, .00001, - + .00003, .00061, .00334, - + .31369, .07665, .07613, .00034, .00001, - + .00003, .00073, .00296, - + .28250, .06781, .05972, .00043, .00000, - + .00001, .00077, .00266, - + .25690, .06075, .04805, .00045, .00012, - + .00005, .00077, .00236, - + .23540, .05494, .03946, .00046, .00017, - + .00008, .00074, .00213, - + .21714, .05011, .03296, .00046, .00021, - + .00010, .00071, .00190, - + .20138, .04601, .02792, .00046, .00022, - + .00011, .00065, .00174 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ - + .18767, .04246, .02396, .00041, .00023, - + .00012, .00064, .00159, - + .17558, .03937, .02078, .00038, .00023, - + .00013, .00060, .00148, - + .16485, .03668, .01821, .00035, .00023, - + .00013, .00057, .00137, - + .15529, .03431, .01609, .00034, .00022, - + .00012, .00054, .00127, - + .14672, .03219, .01433, .00033, .00022, - + .00013, .00049, .00115, - + .13892, .03030, .01286, .00033, .00022, - + .00012, .00048, .00107, - + .13189, .02859, .01161, .00031, .00022, - + .00012, .00045, .00102 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ - + .12552, .02703, .01054, .00027, .00020, - + .00012, .00044, .00095, - + .11964, .02563, .00962, .00026, .00021, - + .00012, .00040, .00089, - + .11427, .02434, .00882, .00025, .00020, - + .00011, .00038, .00083, - + .10927, .02319, .00813, .00025, .00019, - + .00011, .00037, .00080, - + .10468, .02213, .00752, .00024, .00018, - + .00011, .00036, .00076 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + .31655, .07516, .07877, .00019, .00001, - + -.00002, .00027, .00221, - + .27901, .06489, .05899, .00032, .00001, - + -.00001, .00037, .00201, - + .24943, .05701, .04574, .00036, .00001, - + -.00002, .00044, .00174, - + .22521, .05074, .03644, .00040, .00001, - + .00001, .00043, .00156, - + .20515, .04561, .02966, .00039, .00007, - + .00003, .00044, .00140, - + .18824, .04138, .02458, .00036, .00009, - + .00004, .00042, .00127, - + .17375, .03780, .02069, .00035, .00010, - + .00005, .00039, .00115 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ - + .16119, .03473, .01764, .00034, .00011, - + .00006, .00037, .00105, - + .15022, .03208, .01522, .00032, .00011, - + .00006, .00035, .00095, - + .14049, .02977, .01327, .00028, .00012, - + .00006, .00034, .00088, - + .13185, .02773, .01167, .00028, .00013, - + .00006, .00032, .00081, - + .12412, .02595, .01036, .00027, .00012, - + .00007, .00030, .00076, - + .11718, .02433, .00926, .00025, .00011, - + .00006, .00027, .00070, - + .11090, .02290, .00833, .00024, .00010, - + .00005, .00027, .00065 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ - + .10520, .02161, .00754, .00023, .00010, - + .00005, .00025, .00061, - + .10001, .02043, .00686, .00023, .00010, - + .00005, .00024, .00056, - + .09528, .01936, .00628, .00022, .00010, - + .00005, .00023, .00052, - + .09092, .01839, .00577, .00019, .00010, - + .00005, .00021, .00050, - + .08691, .01750, .00532, .00018, .00010, - + .00005, .00020, .00048 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + .28032, .06291, .06086, .00001, .00001, - + .00002, .00018, .00141, - + .24487, .05384, .04492, .00006, .00001, - + .00002, .00027, .00127, - + .21708, .04694, .03440, .00018, .00001, - + .00002, .00031, .00108, - + .19475, .04150, .02713, .00018, .00002, - + .00003, .00031, .00100, - + .17628, .03710, .02188, .00019, .00006, - + .00003, .00029, .00088, - + .16086, .03347, .01798, .00019, .00006, - + .00004, .00026, .00082, - + .14774, .03043, .01502, .00019, .00008, - + .00005, .00025, .00075 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ - + .13640, .02784, .01273, .00017, .00009, - + .00005, .00024, .00066, - + .12652, .02561, .01092, .00018, .00008, - + .00005, .00023, .00060, - + .11786, .02369, .00947, .00018, .00007, - + .00004, .00021, .00055, - + .11022, .02200, .00830, .00016, .00008, - + .00005, .00020, .00050, - + .10343, .02049, .00733, .00013, .00007, - + .00005, .00019, .00048, - + .09732, .01915, .00653, .00013, .00007, - + .00005, .00018, .00045, - + .09180, .01797, .00585, .00014, .00008, - + .00005, .00017, .00041 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ - + .08684, .01691, .00528, .00014, .00008, - + .00004, .00015, .00037, - + .08230, .01594, .00479, .00014, .00007, - + .00004, .00014, .00035, - + .07819, .01507, .00437, .00013, .00007, - + .00004, .00014, .00034, - + .07442, .01428, .00401, .00014, .00007, - + .00004, .00013, .00030, - + .07098, .01356, .00369, .00012, .00006, - + .00004, .00013, .00028 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + .24509, .05196, .04632, .00001, .00001, - + .00004, .00011, .00085, - + .21210, .04406, .03370, .00001, .00001, - + .00004, .00019, .00078, - + .18655, .03810, .02549, .00003, .00001, - + .00002, .00018, .00070, - + .16611, .03346, .01987, .00009, .00003, - + .00003, .00019, .00064, - + .14945, .02973, .01588, .00006, .00004, - + .00004, .00018, .00056, - + .13556, .02667, .01294, .00007, .00006, - + .00004, .00018, .00050, - + .12385, .02414, .01074, .00010, .00007, - + .00004, .00018, .00044 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ - + .11382, .02197, .00903, .00008, .00007, - + .00004, .00016, .00041, - + .10511, .02012, .00770, .00008, .00008, - + .00004, .00015, .00037, - + .09751, .01852, .00665, .00009, .00007, - + .00004, .00014, .00034, - + .09083, .01713, .00580, .00009, .00006, - + .00004, .00013, .00033, - + .08491, .01591, .00510, .00008, .00006, - + .00004, .00012, .00029, - + .07962, .01482, .00452, .00007, .00006, - + .00003, .00012, .00026, - + .07490, .01386, .00404, .00007, .00006, - + .00003, .00011, .00025 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ - + .07064, .01300, .00363, .00007, .00005, - + .00003, .00010, .00023, - + .06675, .01222, .00329, .00007, .00005, - + .00003, .00010, .00022, - + .06323, .01153, .00299, .00006, .00005, - + .00003, .00009, .00020, - + .06003, .01089, .00274, .00005, .00004, - + .00002, .00009, .00019, - + .05711, .01031, .00251, .00005, .00004, - + .00002, .00008, .00018 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + .21200, .04251, .03478, .00001, .00001, - + .00000, .00001, .00053, - + .18163, .03571, .02492, .00002, .00001, - + .00000, .00005, .00047, - + .15838, .03066, .01862, .00006, .00001, - + .00001, .00008, .00045, - + .14006, .02670, .01436, .00006, .00001, - + .00000, .00009, .00037, - + .12519, .02356, .01137, .00007, .00002, - + .00001, .00010, .00034, - + .11293, .02103, .00920, .00008, .00002, - + .00002, .00009, .00031, - + .10265, .01893, .00757, .00007, .00002, - + .00002, .00009, .00030 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ - + .09386, .01715, .00633, .00007, .00003, - + .00001, .00007, .00025, - + .08629, .01564, .00537, .00008, .00003, - + .00002, .00008, .00022, - + .07974, .01434, .00461, .00008, .00003, - + .00002, .00007, .00020, - + .07397, .01322, .00400, .00007, .00002, - + .00001, .00006, .00018, - + .06889, .01223, .00351, .00008, .00002, - + .00001, .00006, .00018, - + .06439, .01137, .00310, .00005, .00003, - + .00001, .00006, .00017, - + .06038, .01059, .00276, .00004, .00003, - + .00001, .00005, .00015 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ - + .05675, .00989, .00248, .00006, .00003, - + .00001, .00005, .00014, - + .05347, .00929, .00224, .00006, .00003, - + .00001, .00005, .00013, - + .05052, .00872, .00203, .00006, .00002, - + .00001, .00004, .00013, - + .04784, .00821, .00185, .00004, .00002, - + .00001, .00004, .00012, - + .04539, .00776, .00169, .00005, .00002, - + .00001, .00004, .00010 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + .18011, .03388, .02551, .00001, .00001, - + .00003, .00001, .00029, - + .15273, .02821, .01800, .00001, .00001, - + .00002, .00005, .00028, - + .13211, .02402, .01327, .00001, .00001, - + .00001, .00006, .00024, - + .11593, .02078, .01013, .00001, .00001, - + .00002, .00007, .00023, - + .10291, .01823, .00794, .00001, .00001, - + .00002, .00006, .00020, - + .09228, .01618, .00637, .00002, .00002, - + .00002, .00007, .00018, - + .08339, .01448, .00520, .00002, .00002, - + .00002, .00006, .00015 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ - + .07588, .01305, .00432, .00003, .00002, - + .00002, .00006, .00013, - + .06943, .01185, .00364, .00003, .00003, - + .00002, .00005, .00013, - + .06386, .01083, .00311, .00003, .00003, - + .00002, .00005, .00012, - + .05902, .00993, .00269, .00003, .00002, - + .00001, .00004, .00009, - + .05474, .00916, .00235, .00003, .00003, - + .00001, .00004, .00009, - + .05098, .00847, .00207, .00003, .00002, - + .00001, .00004, .00008, - + .04764, .00787, .00183, .00002, .00002, - + .00001, .00004, .00008 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ - + .04464, .00733, .00164, .00002, .00002, - + .00001, .00003, .00008, - + .04194, .00685, .00148, .00002, .00002, - + .00001, .00003, .00007, - + .03950, .00643, .00134, .00002, .00002, - + .00001, .00003, .00007, - + .03730, .00604, .00122, .00002, .00001, - + .00001, .00003, .00006, - + .03530, .00569, .00111, .00001, .00001, - + .00001, .00002, .00006 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + .12388, .02055, .01292, .00001, .00001, - + .00000, .00001, .00008, - + .10291, .01676, .00883, .00001, .00001, - + .00000, .00000, .00007, - + .08742, .01400, .00634, .00001, .00001, - + .00000, .00001, .00006, - + .07549, .01195, .00472, .00001, .00001, - + .00000, .00001, .00006, - + .06607, .01034, .00363, .00001, .00000, - + .00000, .00001, .00006, - + .05851, .00905, .00286, .00000, .00001, - + .00000, .00002, .00005, - + .05228, .00801, .00230, .00001, .00001, - + .00000, .00002, .00005 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ - + .04705, .00715, .00189, .00001, .00001, - + .00000, .00002, .00005, - + .04265, .00643, .00158, .00001, .00001, - + .00000, .00001, .00003, - + .03889, .00581, .00133, .00001, .00001, - + .00000, .00001, .00003, - + .03563, .00529, .00114, .00001, .00001, - + .00000, .00001, .00004, - + .03279, .00484, .00099, .00001, .00001, - + .00000, .00001, .00002, - + .03029, .00445, .00086, .00001, .00001, - + .00000, .00001, .00002, - + .02811, .00410, .00076, .00001, .00001, - + .00000, .00001, .00002 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ - + .02616, .00379, .00068, .00001, .00001, - + .00000, .00001, .00002, - + .02442, .00353, .00061, .00001, .00001, - + .00000, .00001, .00002, - + .02286, .00328, .00055, .00001, .00001, - + .00000, .00001, .00001, - + .02145, .00307, .00049, .00001, .00001, - + .00000, .00001, .00001, - + .02018, .00287, .00045, .00001, .00001, - + .00000, .00001, .00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + .07832, .01128, .00585, .00001, .00001, - + .00000, .00001, .00000, - + .06364, .00901, .00386, .00001, .00001, - + .00000, .00000, .00002, - + .05299, .00740, .00269, .00001, .00001, - + .00000, .00001, .00002, - + .04501, .00620, .00196, .00001, .00001, - + .00000, .00001, .00001, - + .03881, .00529, .00148, .00001, .00001, - + .00000, .00001, .00001, - + .03389, .00457, .00114, .00001, .00001, - + .00000, .00001, .00001, - + .02993, .00400, .00091, .00001, .00001, - + .00000, .00001, .00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ - + .02664, .00351, .00073, .00001, .00001, - + .00000, .00001, .00001, - + .02388, .00314, .00060, .00001, .00001, - + .00000, .00001, .00001, - + .02155, .00281, .00051, .00001, .00001, - + .00000, .00001, .00001, - + .01956, .00253, .00043, .00001, .00001, - + .00000, .00001, .00001, - + .01785, .00230, .00037, .00001, .00001, - + .00000, .00001, .00001, - + .01636, .00209, .00032, .00001, .00001, - + .00000, .00001, .00001, - + .01505, .00192, .00028, .00001, .00001, - + .00000, .00001, .00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ - + .01390, .00176, .00025, .00001, .00001, - + .00000, .00001, .00001, - + .01289, .00162, .00022, .00001, .00001, - + .00000, .00001, .00001, - + .01199, .00150, .00020, .00001, .00001, - + .00000, .00001, .00001, - + .01119, .00139, .00018, .00001, .00001, - + .00000, .00001, .00001, - + .01047, .00130, .00016, .00001, .00001, - + .00000, .00001, .00001 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + .04435, .00544, .00227, .00001, .00001, - + .00000, .00001, .00001, - + .03516, .00424, .00145, .00001, .00001, - + .00000, .00001, .00001, - + .02865, .00341, .00098, .00001, .00001, - + .00000, .00001, .00001, - + .02390, .00281, .00069, .00001, .00001, - + .00000, .00001, .00001, - + .02024, .00235, .00051, .00001, .00001, - + .00000, .00001, .00001, - + .01741, .00200, .00039, .00001, .00001, - + .00000, .00001, .00001, - + .01516, .00173, .00030, .00001, .00001, - + .00000, .00001, .00001 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ - + .01332, .00151, .00024, .00001, .00001, - + .00000, .00001, .00001, - + .01180, .00132, .00020, .00001, .00001, - + .00000, .00001, .00001, - + .01053, .00118, .00016, .00001, .00001, - + .00000, .00001, .00001, - + .00946, .00105, .00014, .00001, .00001, - + .00000, .00001, .00001, - + .00856, .00094, .00012, .00001, .00001, - + .00000, .00001, .00001, - + .00777, .00085, .00010, .00001, .00001, - + .00000, .00001, .00001, - + .00708, .00077, .00009, .00001, .00001, - + .00000, .00001, .00001 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ - + .00649, .00070, .00008, .00001, .00001, - + .00000, .00001, .00001, - + .00598, .00064, .00007, .00001, .00001, - + .00000, .00001, .00001, - + .00551, .00058, .00006, .00001, .00001, - + .00000, .00001, .00001, - + .00510, .00054, .00006, .00001, .00001, - + .00000, .00001, .00001, - + .00474, .00050, .00005, .00001, .00001, - + .00000, .00001, .00001 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + .02114, .00218, .00070, .00001, .00001, - + .00000, .00001, .00001, - + .01629, .00164, .00043, .00001, .00001, - + .00000, .00001, .00001, - + .01295, .00129, .00028, .00001, .00001, - + .00000, .00001, .00001, - + .01056, .00106, .00019, .00001, .00001, - + .00000, .00001, .00001, - + .00877, .00085, .00014, .00001, .00001, - + .00000, .00001, .00001, - + .00742, .00071, .00010, .00001, .00001, - + .00000, .00001, .00001, - + .00635, .00062, .00008, .00001, .00001, - + .00000, .00001, .00001 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ - + .00549, .00053, .00006, .00001, .00001, - + .00000, .00001, .00001, - + .00480, .00045, .00005, .00001, .00001, - + .00000, .00001, .00001, - + .00424, .00039, .00004, .00001, .00001, - + .00000, .00001, .00001, - + .00376, .00034, .00004, .00001, .00001, - + .00000, .00001, .00001, - + .00335, .00030, .00003, .00001, .00001, - + .00000, .00001, .00001, - + .00302, .00027, .00003, .00001, .00001, - + .00000, .00001, .00001, - + .00272, .00024, .00002, .00001, .00001, - + .00000, .00001, .00001 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ - + .00248, .00022, .00002, .00001, .00001, - + .00000, .00001, .00001, - + .00225, .00019, .00002, .00001, .00001, - + .00000, .00001, .00001, - + .00207, .00018, .00002, .00001, .00001, - + .00000, .00001, .00001, - + .00190, .00016, .00001, .00001, .00001, - + .00000, .00001, .00001, - + .00174, .00015, .00001, .00001, .00001, - + .00000, .00001, .00001 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + .00187, .00011, .00002, .00001, .00001, - + .00000, .00001, .00001, - + .00132, .00008, .00001, .00001, .00001, - + .00000, .00001, .00001, - + .00099, .00006, .00001, .00001, .00001, - + .00000, .00001, .00001, - + .00075, .00004, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00060, .00004, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00048, .00003, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00039, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ - + .00032, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00028, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00023, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00020, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00017, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00015, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00013, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ - + .00012, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00011, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00009, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00008, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00008, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,5,9,0,0,9,9/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - xsave=x -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(35,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7) GO TO 31 - DO 30 K=1,19 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,8 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) - - x=xsave - - RETURN - END - diff --git a/PDF/spdf/sfdisd0.F b/PDF/spdf/sfdisd0.F deleted file mode 100644 index fd97449936e..00000000000 --- a/PDF/spdf/sfdisd0.F +++ /dev/null @@ -1,1984 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:39 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:33 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFDISD0(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) - -C THIS IS THE NEW B0-TYPE FIT "D0'" WITH UBAR < DBAR (230 MEV) -C IN THE ** DIS ** SCHEME -C -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,20),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + 0.00930, 0.00352, 4.30034, 0.47321, 0.06807, - + 0.00000, 0.27447, 0.47849, - + 0.00976, 0.00366, 11.00467, 0.65733, 0.25226, - + 0.00000, 0.45879, 0.66265, - + 0.01020, 0.00380, 19.93318, 0.89179, 0.48679, - + 0.00000, 0.69346, 0.89715, - + 0.01060, 0.00393, 30.63055, 1.17179, 0.76686, - + 0.00000, 0.97364, 1.17720, - + 0.01098, 0.00406, 43.07445, 1.49553, 1.09068, - + 0.07132, 1.29756, 1.50100, - + 0.01134, 0.00418, 57.04886, 1.86041, 1.45562, - + 0.40646, 1.66261, 1.86591, - + 0.01168, 0.00431, 72.39754, 2.26499, 1.86027, - + 0.83916, 2.06736, 2.27054 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ - + 0.01201, 0.00442, 88.96280, 2.70667, 2.30201, - + 1.30378, 2.50917, 2.71224, - + 0.01234, 0.00454, 106.60825, 3.18275, 2.77815, - + 1.80435, 2.98540, 3.18836, - + 0.01264, 0.00466, 125.23030, 3.69120, 3.28666, - + 2.33731, 3.49399, 3.69685, - + 0.01294, 0.00478, 144.75316, 4.23047, 3.82598, - + 2.90128, 4.03339, 4.23615, - + 0.01323, 0.00489, 165.02708, 4.79753, 4.39310, - + 3.49297, 4.60057, 4.80326, - + 0.01351, 0.00499, 185.74925, 5.38564, 4.98127, - + 4.10534, 5.18881, 5.39140, - + 0.01378, 0.00510, 207.19238, 6.00021, 5.59589, - + 4.74396, 5.80350, 6.00601 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ - + 0.01405, 0.00521, 229.19391, 6.63778, 6.23352, - + 5.40525, 6.44118, 6.64362, - + 0.01431, 0.00531, 251.37769, 7.28997, 6.88577, - + 6.08051, 7.09349, 7.29585, - + 0.01456, 0.00541, 274.24219, 7.96752, 7.56338, - + 6.78087, 7.77116, 7.97344, - + 0.01481, 0.00551, 297.05859, 8.65364, 8.24955, - + 7.48899, 8.45738, 8.65965, - + 0.01505, 0.00561, 320.44653, 9.36224, 8.95821, - + 8.21925, 9.16609, 9.36827 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + 0.01259, 0.00479, 4.16478, 0.46504, 0.06334, - + 0.00000, 0.26692, 0.46940, - + 0.01320, 0.00501, 10.00315, 0.62742, 0.22605, - + 0.00000, 0.42958, 0.63184, - + 0.01378, 0.00521, 17.46046, 0.82840, 0.42734, - + 0.00000, 0.63082, 0.83288, - + 0.01430, 0.00540, 26.12637, 1.06285, 0.66208, - + 0.00000, 0.86551, 1.06738, - + 0.01480, 0.00558, 35.96332, 1.32860, 0.92810, - + 0.05844, 1.13149, 1.33316, - + 0.01527, 0.00576, 46.78426, 1.62303, 1.22278, - + 0.32996, 1.42615, 1.62765, - + 0.01573, 0.00595, 58.45795, 1.94464, 1.54464, - + 0.67577, 1.74796, 1.94930 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ - + 0.01617, 0.00612, 70.85808, 2.29108, 1.89131, - + 1.04175, 2.09460, 2.29578, - + 0.01659, 0.00629, 83.87958, 2.66004, 2.26049, - + 1.43112, 2.46375, 2.66479, - + 0.01700, 0.00645, 97.44549, 3.04980, 2.65045, - + 1.84095, 2.85367, 3.05457, - + 0.01739, 0.00661, 111.50072, 3.45902, 3.05988, - + 2.27012, 3.26308, 3.46383, - + 0.01776, 0.00677, 125.93797, 3.88536, 3.48643, - + 2.71604, 3.68959, 3.89023, - + 0.01813, 0.00691, 140.54074, 4.32375, 3.92499, - + 3.17347, 4.12812, 4.32864, - + 0.01849, 0.00706, 155.51309, 4.77817, 4.37961, - + 3.64656, 4.58271, 4.78312 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ - + 0.01883, 0.00721, 170.74072, 5.24610, 4.84771, - + 4.13266, 5.05078, 5.25107, - + 0.01917, 0.00735, 185.96050, 5.72129, 5.32308, - + 4.62538, 5.52612, 5.72630, - + 0.01949, 0.00749, 201.53256, 6.21173, 5.81370, - + 5.13296, 6.01671, 6.21678, - + 0.01981, 0.00764, 216.94591, 6.70518, 6.30732, - + 5.64278, 6.51029, 6.71027, - + 0.02012, 0.00777, 232.64290, 7.21178, 6.81408, - + 6.16538, 7.01702, 7.21691 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + 0.01703, 0.00655, 4.03320, 0.45621, 0.05864, - + 0.00000, 0.25929, 0.46003, - + 0.01785, 0.00685, 9.09126, 0.59826, 0.20126, - + 0.00000, 0.40170, 0.60215, - + 0.01859, 0.00715, 15.29068, 0.76919, 0.37273, - + 0.00000, 0.57297, 0.77315, - + 0.01929, 0.00742, 22.27757, 0.96407, 0.56809, - + 0.00000, 0.76815, 0.96809, - + 0.01994, 0.00770, 30.01537, 1.18069, 0.78516, - + 0.04761, 0.98505, 1.18476, - + 0.02057, 0.00796, 38.35127, 1.41665, 1.02158, - + 0.26639, 1.22130, 1.42079, - + 0.02116, 0.00821, 47.18178, 1.67063, 1.27597, - + 0.54128, 1.47553, 1.67483 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ - + 0.02174, 0.00845, 56.41171, 1.94061, 1.54634, - + 0.82802, 1.74576, 1.94485, - + 0.02229, 0.00868, 65.96436, 2.22474, 1.83085, - + 1.12931, 2.03013, 2.22904, - + 0.02282, 0.00891, 75.78619, 2.52162, 2.12809, - + 1.44280, 2.32722, 2.52596, - + 0.02333, 0.00914, 85.84114, 2.83023, 2.43705, - + 1.76766, 2.63605, 2.83461, - + 0.02382, 0.00935, 96.05449, 3.14877, 2.75594, - + 2.10195, 2.95481, 3.15321, - + 0.02430, 0.00957, 106.27458, 3.47349, 3.08099, - + 2.44181, 3.27974, 3.47799, - + 0.02477, 0.00978, 116.65524, 3.80741, 3.41522, - + 2.79038, 3.61385, 3.81194 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ - + 0.02522, 0.00998, 127.11835, 4.14866, 3.75679, - + 3.14577, 3.95529, 4.15324, - + 0.02566, 0.01018, 137.48166, 4.49272, 4.10115, - + 3.50332, 4.29955, 4.49735, - + 0.02608, 0.01038, 148.00665, 4.84548, 4.45421, - + 3.86915, 4.65249, 4.85016, - + 0.02649, 0.01057, 158.33673, 5.19808, 4.80709, - + 4.23413, 5.00525, 5.20279, - + 0.02690, 0.01076, 168.78696, 5.55796, 5.16725, - + 4.60601, 5.36531, 5.56271 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + 0.02032, 0.00786, 3.95792, 0.45065, 0.05589, - + 0.00000, 0.25476, 0.45434, - + 0.02127, 0.00824, 8.59567, 0.58140, 0.18738, - + 0.00000, 0.38592, 0.58517, - + 0.02215, 0.00861, 14.14575, 0.73620, 0.34286, - + 0.00000, 0.54112, 0.74006, - + 0.02297, 0.00896, 20.28943, 0.91037, 0.51766, - + 0.00000, 0.71566, 0.91431, - + 0.02374, 0.00929, 26.99515, 1.10181, 0.70969, - + 0.04210, 0.90743, 1.10583, - + 0.02447, 0.00960, 34.13046, 1.30835, 0.91679, - + 0.23435, 1.11429, 1.31244, - + 0.02518, 0.00992, 41.60805, 1.52875, 1.13771, - + 0.47401, 1.33499, 1.53290 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ - + 0.02584, 0.01021, 49.34917, 1.76126, 1.37071, - + 0.72190, 1.56778, 1.76547, - + 0.02649, 0.01049, 57.29214, 2.00425, 1.61419, - + 0.98047, 1.81105, 2.00852, - + 0.02710, 0.01078, 65.39511, 2.25655, 1.86695, - + 1.24772, 2.06360, 2.26088, - + 0.02770, 0.01105, 73.63124, 2.51728, 2.12814, - + 1.52295, 2.32460, 2.52167, - + 0.02828, 0.01132, 81.94168, 2.78495, 2.39625, - + 1.80457, 2.59252, 2.78940, - + 0.02884, 0.01158, 90.20387, 3.05645, 2.66816, - + 2.08939, 2.86425, 3.06095, - + 0.02938, 0.01183, 98.54913, 3.33434, 2.94644, - + 2.38008, 3.14236, 3.33888 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ - + 0.02990, 0.01207, 106.91562, 3.61706, 3.22957, - + 2.67509, 3.42531, 3.62166, - + 0.03042, 0.01231, 115.15706, 3.90090, 3.51379, - + 2.97059, 3.70937, 3.90555, - + 0.03091, 0.01255, 123.49012, 4.19080, 3.80406, - + 3.27173, 3.99947, 4.19549, - + 0.03139, 0.01278, 131.62665, 4.47943, 4.09306, - + 3.57098, 4.28832, 4.48418, - + 0.03186, 0.01301, 139.82590, 4.77302, 4.38699, - + 3.87479, 4.58210, 4.77781 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + 0.02302, 0.00895, 3.90519, 0.44646, 0.05393, - + 0.00000, 0.25149, 0.45017, - + 0.02409, 0.00941, 8.25971, 0.56944, 0.17778, - + 0.00000, 0.37494, 0.57324, - + 0.02508, 0.00982, 13.38381, 0.71341, 0.32254, - + 0.00000, 0.51934, 0.71731, - + 0.02600, 0.01023, 18.98395, 0.87391, 0.48377, - + 0.00000, 0.68024, 0.87789, - + 0.02685, 0.01061, 25.03314, 1.04893, 0.65948, - + 0.03852, 0.85564, 1.05300, - + 0.02767, 0.01097, 31.41321, 1.23647, 0.84766, - + 0.21366, 1.04353, 1.24062, - + 0.02846, 0.01133, 38.04781, 1.43539, 1.04721, - + 0.43078, 1.24279, 1.43962 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ - + 0.02921, 0.01168, 44.86905, 1.64411, 1.25652, - + 0.65401, 1.45184, 1.64841, - + 0.02993, 0.01201, 51.82478, 1.86119, 1.47416, - + 0.88566, 1.66923, 1.86556, - + 0.03062, 0.01233, 58.88084, 2.08556, 1.69907, - + 1.12394, 1.89390, 2.09000, - + 0.03129, 0.01265, 66.01596, 2.31648, 1.93052, - + 1.36828, 2.12510, 2.32099, - + 0.03193, 0.01296, 73.18097, 2.55265, 2.16719, - + 1.61728, 2.36154, 2.55722, - + 0.03256, 0.01325, 80.27115, 2.79133, 2.40635, - + 1.86815, 2.60049, 2.79595, - + 0.03315, 0.01354, 87.40392, 3.03480, 2.65030, - + 2.12331, 2.84422, 3.03948 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ - + 0.03374, 0.01383, 94.52690, 3.28175, 2.89769, - + 2.38141, 3.09141, 3.28649, - + 0.03431, 0.01409, 101.51570, 3.52892, 3.14531, - + 2.63914, 3.33883, 3.53372, - + 0.03486, 0.01437, 108.55965, 3.78067, 3.39749, - + 2.90102, 3.59082, 3.78552, - + 0.03539, 0.01463, 115.41191, 4.03062, 3.64786, - + 3.16052, 3.84099, 4.03552, - + 0.03592, 0.01489, 122.29738, 4.28423, 3.90188, - + 3.42330, 4.09483, 4.28918 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + 0.02537, 0.00991, 3.86466, 0.44311, 0.05242, - + 0.00000, 0.24892, 0.44686, - + 0.02653, 0.01041, 8.00759, 0.56020, 0.17053, - + 0.00000, 0.36655, 0.56407, - + 0.02761, 0.01089, 12.81977, 0.69609, 0.30735, - + 0.00000, 0.50293, 0.70006, - + 0.02861, 0.01134, 18.02698, 0.84651, 0.45862, - + 0.00000, 0.65380, 0.85058, - + 0.02955, 0.01177, 23.60628, 1.00956, 0.62247, - + 0.03593, 0.81728, 1.01372, - + 0.03044, 0.01218, 29.45024, 1.18336, 0.79701, - + 0.19869, 0.99149, 1.18760, - + 0.03129, 0.01258, 35.49059, 1.36685, 0.98123, - + 0.39962, 1.17536, 1.37119 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ - + 0.03212, 0.01296, 41.66748, 1.55859, 1.17364, - + 0.60524, 1.36746, 1.56301, - + 0.03290, 0.01334, 47.93552, 1.75725, 1.37294, - + 0.81775, 1.56648, 1.76174, - + 0.03365, 0.01369, 54.26602, 1.96188, 1.57819, - + 1.03554, 1.77143, 1.96644, - + 0.03437, 0.01405, 60.64156, 2.17180, 1.78871, - + 1.25811, 1.98168, 2.17645, - + 0.03507, 0.01439, 67.01950, 2.38586, 2.00335, - + 1.48421, 2.19605, 2.39058, - + 0.03575, 0.01472, 73.30774, 2.60160, 2.21962, - + 1.71136, 2.41208, 2.60638, - + 0.03641, 0.01503, 79.61375, 2.82111, 2.43965, - + 1.94175, 2.63186, 2.82595 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ - + 0.03704, 0.01535, 85.89183, 3.04319, 2.66225, - + 2.17421, 2.85423, 3.04810, - + 0.03767, 0.01565, 92.03229, 3.26495, 2.88451, - + 2.40575, 3.07625, 3.26991, - + 0.03827, 0.01595, 98.20593, 3.49033, 3.11038, - + 2.64051, 3.30189, 3.49536, - + 0.03885, 0.01624, 104.19360, 3.71363, 3.33415, - + 2.87262, 3.52545, 3.71871, - + 0.03942, 0.01653, 110.19688, 3.93976, 3.56073, - + 3.10719, 3.75182, 3.94490 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + 0.03425, 0.01362, 3.74033, 0.43143, 0.04762, - + 0.00000, 0.24055, 0.43580, - + 0.03578, 0.01434, 7.26782, 0.53101, 0.14856, - + 0.00000, 0.34083, 0.53554, - + 0.03719, 0.01501, 11.20423, 0.64354, 0.26233, - + 0.00000, 0.45401, 0.64822, - + 0.03850, 0.01566, 15.33313, 0.76547, 0.38541, - + 0.00000, 0.57654, 0.77029, - + 0.03972, 0.01625, 19.64542, 0.89523, 0.51625, - + 0.02874, 0.70687, 0.90018, - + 0.04089, 0.01684, 24.06464, 1.03135, 0.65338, - + 0.15761, 0.84351, 1.03641, - + 0.04201, 0.01740, 28.54543, 1.17303, 0.79602, - + 0.31460, 0.98569, 1.17822 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ - + 0.04308, 0.01794, 33.04964, 1.31920, 0.94310, - + 0.47294, 1.13234, 1.32449, - + 0.04410, 0.01846, 37.54993, 1.46889, 1.09365, - + 0.63456, 1.28249, 1.47429, - + 0.04507, 0.01896, 42.03134, 1.62143, 1.24702, - + 0.79829, 1.43545, 1.62692, - + 0.04602, 0.01945, 46.48680, 1.77637, 1.40275, - + 0.96383, 1.59081, 1.78196, - + 0.04694, 0.01992, 50.89040, 1.93290, 1.56005, - + 1.13036, 1.74774, 1.93859, - + 0.04781, 0.02037, 55.18082, 2.08930, 1.71718, - + 1.29613, 1.90453, 2.09507, - + 0.04866, 0.02083, 59.43996, 2.24715, 1.87574, - + 1.46283, 2.06274, 2.25300 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ - + 0.04948, 0.02126, 63.63884, 2.40563, 2.03491, - + 1.62969, 2.22159, 2.41156, - + 0.05028, 0.02167, 67.70392, 2.56271, 2.19264, - + 1.79460, 2.37901, 2.56872, - + 0.05106, 0.02209, 71.75874, 2.72129, 2.35186, - + 1.96064, 2.53792, 2.72738, - + 0.05180, 0.02249, 75.65318, 2.87732, 2.50853, - + 2.12364, 2.69428, 2.88349, - + 0.05255, 0.02288, 79.53020, 3.03439, 2.66619, - + 2.28734, 2.85166, 3.04061 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + 0.04617, 0.01882, 3.61733, 0.41736, 0.04261, - + 0.00000, 0.23127, 0.42307, - + 0.04818, 0.01984, 6.58533, 0.50052, 0.12751, - + 0.00000, 0.31536, 0.50646, - + 0.05001, 0.02080, 9.76781, 0.59212, 0.22069, - + 0.00000, 0.40779, 0.59826, - + 0.05172, 0.02168, 13.00129, 0.68937, 0.31940, - + 0.00000, 0.50581, 0.69568, - + 0.05332, 0.02253, 16.29041, 0.79105, 0.42243, - + 0.02273, 0.60820, 0.79754, - + 0.05484, 0.02334, 19.58540, 0.89605, 0.52871, - + 0.12364, 0.71387, 0.90269, - + 0.05629, 0.02413, 22.86000, 1.00381, 0.63770, - + 0.24494, 0.82228, 1.01060 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ - + 0.05767, 0.02488, 26.09285, 1.11359, 0.74865, - + 0.36551, 0.93267, 1.12052, - + 0.05900, 0.02560, 29.27072, 1.22471, 0.86088, - + 0.48701, 1.04437, 1.23178, - + 0.06027, 0.02630, 32.38834, 1.33674, 0.97396, - + 0.60866, 1.15696, 1.34393, - + 0.06149, 0.02698, 35.44592, 1.44940, 1.08764, - + 0.73033, 1.27015, 1.45671, - + 0.06266, 0.02763, 38.42929, 1.56215, 1.20137, - + 0.85150, 1.38342, 1.56958, - + 0.06381, 0.02826, 41.29901, 1.67382, 1.31397, - + 0.97098, 1.49557, 1.68135, - + 0.06489, 0.02887, 44.11739, 1.78559, 1.42665, - + 1.09008, 1.60781, 1.79323 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ - + 0.06596, 0.02947, 46.86678, 1.89693, 1.53887, - + 1.20831, 1.71962, 1.90468, - + 0.06698, 0.03005, 49.49901, 2.00645, 1.64924, - + 1.32423, 1.82957, 2.01429, - + 0.06798, 0.03061, 52.10284, 2.11626, 1.75987, - + 1.44009, 1.93981, 2.12420, - + 0.06894, 0.03115, 54.57664, 2.22354, 1.86794, - + 1.55300, 2.04751, 2.23156, - + 0.06989, 0.03169, 57.02118, 2.33086, 1.97604, - + 1.66567, 2.15523, 2.33897 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + 0.05494, 0.02282, 3.54508, 0.40767, 0.03953, - + 0.00000, 0.22523, 0.41451, - + 0.05727, 0.02406, 6.20753, 0.48175, 0.11561, - + 0.00000, 0.30037, 0.48885, - + 0.05941, 0.02521, 8.99580, 0.56216, 0.19784, - + 0.00000, 0.38176, 0.56948, - + 0.06140, 0.02631, 11.77479, 0.64655, 0.28392, - + 0.00000, 0.46704, 0.65409, - + 0.06327, 0.02734, 14.55657, 0.73390, 0.37284, - + 0.01969, 0.55521, 0.74163, - + 0.06504, 0.02833, 17.30482, 0.82328, 0.46369, - + 0.10656, 0.64538, 0.83119, - + 0.06672, 0.02928, 20.00250, 0.91426, 0.55608, - + 0.21017, 0.73712, 0.92235 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ - + 0.06833, 0.03019, 22.63635, 1.00626, 0.64942, - + 0.31224, 0.82982, 1.01451, - + 0.06987, 0.03106, 25.19928, 1.09875, 0.74319, - + 0.41433, 0.92298, 1.10714, - + 0.07135, 0.03191, 27.69032, 1.19140, 0.83705, - + 0.51582, 1.01627, 1.19994, - + 0.07276, 0.03272, 30.11273, 1.28401, 0.93083, - + 0.61666, 1.10950, 1.29268, - + 0.07412, 0.03351, 32.45729, 1.37619, 1.02413, - + 0.71647, 1.20226, 1.38498, - + 0.07543, 0.03426, 34.69431, 1.46697, 1.11599, - + 0.81433, 1.29362, 1.47589, - + 0.07670, 0.03500, 36.87650, 1.55740, 1.20745, - + 0.91137, 1.38458, 1.56643 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ - + 0.07792, 0.03571, 38.99127, 1.64706, 1.29810, - + 1.00721, 1.47476, 1.65619, - + 0.07910, 0.03640, 41.00131, 1.73483, 1.38684, - + 1.10071, 1.56304, 1.74407, - + 0.08025, 0.03707, 42.97942, 1.82247, 1.47543, - + 1.19376, 1.65118, 1.83182, - + 0.08136, 0.03772, 44.84538, 1.90772, 1.56158, - + 1.28403, 1.73690, 1.91716, - + 0.08244, 0.03836, 46.68073, 1.99268, 1.64743, - + 1.37374, 1.82232, 2.00221 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + 0.06212, 0.02617, 3.49319, 0.40002, 0.03729, - + 0.00000, 0.22061, 0.40784, - + 0.06472, 0.02760, 5.94688, 0.46792, 0.10740, - + 0.00000, 0.28969, 0.47602, - + 0.06711, 0.02895, 8.47302, 0.54087, 0.18238, - + 0.00000, 0.36373, 0.54923, - + 0.06932, 0.03021, 10.95557, 0.61684, 0.26020, - + 0.00000, 0.44068, 0.62542, - + 0.07139, 0.03139, 13.41141, 0.69490, 0.34000, - + 0.01771, 0.51967, 0.70368, - + 0.07336, 0.03253, 15.81283, 0.77426, 0.42099, - + 0.09553, 0.59991, 0.78324, - + 0.07524, 0.03362, 18.14856, 0.85457, 0.50286, - + 0.18781, 0.68103, 0.86373 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ - + 0.07702, 0.03466, 20.41023, 0.93535, 0.58511, - + 0.27815, 0.76260, 0.94466, - + 0.07873, 0.03566, 22.59435, 1.01614, 0.66730, - + 0.36799, 0.84413, 1.02562, - + 0.08037, 0.03663, 24.70258, 1.09668, 0.74919, - + 0.45684, 0.92538, 1.10632, - + 0.08193, 0.03755, 26.73956, 1.17686, 0.83064, - + 0.54470, 1.00623, 1.18662, - + 0.08343, 0.03845, 28.69916, 1.25632, 0.91134, - + 0.63128, 1.08634, 1.26622, - + 0.08488, 0.03931, 30.55730, 1.33426, 0.99047, - + 0.71580, 1.16491, 1.34430, - + 0.08628, 0.04014, 32.36076, 1.41162, 1.06897, - + 0.79929, 1.24287, 1.42177 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ - + 0.08764, 0.04095, 34.09976, 1.48805, 1.14650, - + 0.88144, 1.31988, 1.49832, - + 0.08895, 0.04173, 35.74342, 1.56260, 1.22213, - + 0.96130, 1.39500, 1.57298, - + 0.09021, 0.04248, 37.35477, 1.63683, 1.29738, - + 1.04051, 1.46977, 1.64731, - + 0.09143, 0.04323, 38.86623, 1.70878, 1.37033, - + 1.11709, 1.54224, 1.71936, - + 0.09263, 0.04394, 40.34767, 1.78030, 1.44282, - + 1.19299, 1.61427, 1.79097 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + 0.06823, 0.02930, 3.45185, 0.39349, 0.03552, - + 0.00000, 0.21660, 0.40196, - + 0.07105, 0.03091, 5.74432, 0.45677, 0.10126, - + 0.00000, 0.28119, 0.46554, - + 0.07365, 0.03240, 8.07149, 0.52425, 0.17098, - + 0.00000, 0.34985, 0.53327, - + 0.07605, 0.03380, 10.33184, 0.59402, 0.24282, - + 0.00000, 0.42071, 0.60328, - + 0.07830, 0.03512, 12.54625, 0.66531, 0.31601, - + 0.01627, 0.49302, 0.67480, - + 0.08044, 0.03639, 14.69372, 0.73738, 0.38989, - + 0.08749, 0.56603, 0.74706, - + 0.08247, 0.03759, 16.76697, 0.80994, 0.46416, - + 0.17154, 0.63951, 0.81982 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ - + 0.08440, 0.03875, 18.76009, 0.88259, 0.53842, - + 0.25335, 0.71301, 0.89264, - + 0.08625, 0.03986, 20.67302, 0.95494, 0.61231, - + 0.33435, 0.78618, 0.96516, - + 0.08801, 0.04092, 22.50847, 1.02681, 0.68564, - + 0.41412, 0.85881, 1.03717, - + 0.08971, 0.04194, 24.27223, 1.09805, 0.75830, - + 0.49268, 0.93080, 1.10857, - + 0.09134, 0.04292, 25.96126, 1.16844, 0.83001, - + 0.56981, 1.00189, 1.17909, - + 0.09290, 0.04387, 27.55463, 1.23725, 0.90012, - + 0.64485, 1.07137, 1.24804, - + 0.09441, 0.04479, 29.09367, 1.30533, 0.96944, - + 0.71872, 1.14011, 1.31625 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ - + 0.09586, 0.04567, 30.56998, 1.37240, 1.03771, - + 0.79119, 1.20781, 1.38344, - + 0.09727, 0.04652, 31.96104, 1.43763, 1.10408, - + 0.86142, 1.27364, 1.44878, - + 0.09864, 0.04735, 33.32074, 1.50241, 1.16997, - + 0.93090, 1.33900, 1.51366, - + 0.09995, 0.04816, 34.58902, 1.56502, 1.23365, - + 0.99788, 1.40217, 1.57638, - + 0.10123, 0.04894, 35.82820, 1.62712, 1.29679, - + 1.06411, 1.46482, 1.63858 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + 0.09112, 0.04183, 3.31902, 0.36936, 0.02965, - + 0.00000, 0.20230, 0.38041, - + 0.09476, 0.04409, 5.13839, 0.41917, 0.08259, - + 0.00000, 0.25378, 0.43056, - + 0.09811, 0.04618, 6.90384, 0.47100, 0.13726, - + 0.00000, 0.30711, 0.48270, - + 0.10121, 0.04812, 8.55537, 0.52349, 0.19237, - + 0.00000, 0.36098, 0.53545, - + 0.10409, 0.04994, 10.12249, 0.57611, 0.24740, - + 0.01230, 0.41487, 0.58832, - + 0.10683, 0.05167, 11.60013, 0.62838, 0.30194, - + 0.06555, 0.46834, 0.64082, - + 0.10942, 0.05332, 12.99109, 0.68017, 0.35587, - + 0.12743, 0.52125, 0.69282 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ - + 0.11189, 0.05487, 14.29765, 0.73125, 0.40897, - + 0.18663, 0.57340, 0.74408, - + 0.11423, 0.05636, 15.52510, 0.78143, 0.46107, - + 0.24436, 0.62460, 0.79444, - + 0.11647, 0.05778, 16.67973, 0.83064, 0.51210, - + 0.30042, 0.67475, 0.84382, - + 0.11860, 0.05914, 17.76906, 0.87885, 0.56205, - + 0.35492, 0.72387, 0.89219, - + 0.12066, 0.06045, 18.79407, 0.92593, 0.61079, - + 0.40779, 0.77183, 0.93941, - + 0.12262, 0.06169, 19.74326, 0.97144, 0.65789, - + 0.45862, 0.81816, 0.98506, - + 0.12451, 0.06289, 20.64661, 1.01603, 0.70399, - + 0.50814, 0.86354, 1.02977 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ - + 0.12632, 0.06404, 21.50026, 1.05952, 0.74896, - + 0.55624, 0.90781, 1.07339, - + 0.12807, 0.06515, 22.29103, 1.10140, 0.79224, - + 0.60238, 0.95041, 1.11537, - + 0.12977, 0.06623, 23.05534, 1.14265, 0.83485, - + 0.64763, 0.99237, 1.15673, - + 0.13140, 0.06727, 23.75552, 1.18214, 0.87565, - + 0.69085, 1.03254, 1.19632, - + 0.13299, 0.06826, 24.43269, 1.22101, 0.91579, - + 0.73325, 1.07208, 1.23528 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + 0.12137, 0.06045, 3.17302, 0.33802, 0.02317, - + 0.00001, 0.18413, 0.35222, - + 0.12605, 0.06356, 4.55432, 0.37577, 0.06479, - + 0.00001, 0.22393, 0.39034, - + 0.13035, 0.06641, 5.82961, 0.41410, 0.10661, - + 0.00002, 0.26410, 0.42900, - + 0.13430, 0.06903, 6.97356, 0.45203, 0.14772, - + 0.00002, 0.30370, 0.46721, - + 0.13797, 0.07146, 8.01993, 0.48928, 0.18792, - + 0.00905, 0.34250, 0.50471, - + 0.14143, 0.07376, 8.97472, 0.52556, 0.22693, - + 0.04767, 0.38019, 0.54121, - + 0.14470, 0.07591, 9.84731, 0.56084, 0.26479, - + 0.09180, 0.41683, 0.57669 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ - + 0.14778, 0.07794, 10.64545, 0.59507, 0.30145, - + 0.13323, 0.45233, 0.61111, - + 0.15072, 0.07985, 11.37539, 0.62817, 0.33685, - + 0.17295, 0.48662, 0.64437, - + 0.15350, 0.08166, 12.04496, 0.66014, 0.37099, - + 0.21090, 0.51972, 0.67648, - + 0.15614, 0.08339, 12.66244, 0.69101, 0.40393, - + 0.24727, 0.55166, 0.70750, - + 0.15866, 0.08503, 13.23087, 0.72078, 0.43566, - + 0.28207, 0.58245, 0.73739, - + 0.16108, 0.08659, 13.74389, 0.74919, 0.46596, - + 0.31511, 0.61183, 0.76592, - + 0.16340, 0.08807, 14.22304, 0.77669, 0.49526, - + 0.34692, 0.64025, 0.79352 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ - + 0.16561, 0.08950, 14.66714, 0.80320, 0.52349, - + 0.37744, 0.66765, 0.82014, - + 0.16773, 0.09086, 15.06887, 0.82840, 0.55037, - + 0.40639, 0.69372, 0.84543, - + 0.16977, 0.09218, 15.45178, 0.85301, 0.57657, - + 0.43451, 0.71914, 0.87013, - + 0.17173, 0.09342, 15.79320, 0.87628, 0.60138, - + 0.46108, 0.74321, 0.89347, - + 0.17365, 0.09464, 16.11903, 0.89901, 0.62559, - + 0.48692, 0.76669, 0.91627 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + 0.14342, 0.07512, 3.07660, 0.31604, 0.01904, - + 0.00001, 0.17161, 0.33229, - + 0.14884, 0.07883, 4.21919, 0.34742, 0.05474, - + 0.00001, 0.20525, 0.36404, - + 0.15380, 0.08218, 5.24090, 0.37880, 0.09001, - + 0.00003, 0.23867, 0.39573, - + 0.15835, 0.08525, 6.13208, 0.40939, 0.12414, - + 0.00002, 0.27110, 0.42660, - + 0.16257, 0.08807, 6.92730, 0.43904, 0.15703, - + 0.00742, 0.30244, 0.45647, - + 0.16649, 0.09070, 7.63787, 0.46753, 0.18853, - + 0.03885, 0.33249, 0.48515, - + 0.17021, 0.09315, 8.27315, 0.49489, 0.21873, - + 0.07440, 0.36132, 0.51270 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ - + 0.17370, 0.09544, 8.84254, 0.52115, 0.24763, - + 0.10733, 0.38894, 0.53909, - + 0.17700, 0.09759, 9.35405, 0.54625, 0.27525, - + 0.13857, 0.41533, 0.56435, - + 0.18011, 0.09962, 9.81489, 0.57027, 0.30164, - + 0.16814, 0.44058, 0.58849, - + 0.18307, 0.10155, 10.23244, 0.59328, 0.32688, - + 0.19623, 0.46473, 0.61160, - + 0.18587, 0.10337, 10.61008, 0.61522, 0.35097, - + 0.22285, 0.48778, 0.63364, - + 0.18855, 0.10507, 10.94457, 0.63597, 0.37375, - + 0.24791, 0.50956, 0.65448, - + 0.19111, 0.10669, 11.25268, 0.65589, 0.39562, - + 0.27184, 0.53048, 0.67450 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ - + 0.19356, 0.10825, 11.53408, 0.67495, 0.41655, - + 0.29464, 0.55050, 0.69364, - + 0.19588, 0.10973, 11.78216, 0.69291, 0.43630, - + 0.31608, 0.56936, 0.71166, - + 0.19813, 0.11115, 12.01576, 0.71033, 0.45542, - + 0.33678, 0.58765, 0.72913, - + 0.20026, 0.11249, 12.21901, 0.72665, 0.47340, - + 0.35620, 0.60480, 0.74550, - + 0.20234, 0.11378, 12.41085, 0.74249, 0.49084, - + 0.37498, 0.62146, 0.76139 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + 0.16147, 0.08764, 3.00073, 0.29862, 0.01597, - + 0.00001, 0.16174, 0.31640, - + 0.16748, 0.09180, 3.98180, 0.32581, 0.04780, - + 0.00001, 0.19136, 0.34394, - + 0.17297, 0.09553, 4.83776, 0.35268, 0.07884, - + 0.00003, 0.22040, 0.37111, - + 0.17796, 0.09891, 5.56809, 0.37857, 0.10849, - + 0.00001, 0.24824, 0.39724, - + 0.18259, 0.10199, 6.20721, 0.40340, 0.13677, - + 0.00638, 0.27484, 0.42229, - + 0.18688, 0.10484, 6.76805, 0.42703, 0.16359, - + 0.03327, 0.30011, 0.44604, - + 0.19092, 0.10750, 7.26082, 0.44949, 0.18904, - + 0.06342, 0.32411, 0.46866 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ - + 0.19470, 0.10994, 7.69514, 0.47083, 0.21319, - + 0.09110, 0.34688, 0.49012, - + 0.19826, 0.11222, 8.07902, 0.49107, 0.23605, - + 0.11714, 0.36846, 0.51047, - + 0.20160, 0.11438, 8.41936, 0.51028, 0.25775, - + 0.14160, 0.38895, 0.52977, - + 0.20476, 0.11641, 8.72300, 0.52854, 0.27836, - + 0.16467, 0.40841, 0.54809, - + 0.20777, 0.11832, 8.99337, 0.54581, 0.29788, - + 0.18638, 0.42682, 0.56545, - + 0.21062, 0.12009, 9.22818, 0.56203, 0.31623, - + 0.20669, 0.44413, 0.58173, - + 0.21334, 0.12178, 9.44151, 0.57749, 0.33373, - + 0.22596, 0.46063, 0.59726 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ - + 0.21593, 0.12339, 9.63339, 0.59219, 0.35038, - + 0.24422, 0.47631, 0.61202, - + 0.21838, 0.12491, 9.79865, 0.60594, 0.36597, - + 0.26129, 0.49098, 0.62579, - + 0.22073, 0.12637, 9.95258, 0.61920, 0.38102, - + 0.27769, 0.50513, 0.63907, - + 0.22297, 0.12772, 10.08275, 0.63152, 0.39505, - + 0.29299, 0.51832, 0.65142, - + 0.22515, 0.12905, 10.20421, 0.64342, 0.40862, - + 0.30771, 0.53106, 0.66335 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + 0.17684, 0.09866, 2.93643, 0.28433, 0.01360, - + 0.00003, 0.15388, 0.30324, - + 0.18338, 0.10317, 3.79703, 0.30849, 0.04267, - + 0.00003, 0.18056, 0.32772, - + 0.18931, 0.10721, 4.53271, 0.33213, 0.07071, - + 0.00004, 0.20647, 0.35162, - + 0.19472, 0.11083, 5.14857, 0.35467, 0.09723, - + 0.00004, 0.23105, 0.37435, - + 0.19968, 0.11411, 5.67919, 0.37609, 0.12227, - + 0.00566, 0.25432, 0.39593, - + 0.20428, 0.11711, 6.13669, 0.39627, 0.14580, - + 0.02932, 0.27620, 0.41627, - + 0.20858, 0.11986, 6.53273, 0.41531, 0.16797, - + 0.05568, 0.29684, 0.43543 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ - + 0.21258, 0.12242, 6.87682, 0.43327, 0.18884, - + 0.07969, 0.31628, 0.45349, - + 0.21633, 0.12480, 7.17569, 0.45017, 0.20849, - + 0.10213, 0.33456, 0.47046, - + 0.21987, 0.12700, 7.43658, 0.46609, 0.22698, - + 0.12307, 0.35179, 0.48644, - + 0.22320, 0.12907, 7.66622, 0.48111, 0.24445, - + 0.14270, 0.36805, 0.50150, - + 0.22634, 0.13102, 7.86790, 0.49523, 0.26088, - + 0.16107, 0.38333, 0.51566, - + 0.22930, 0.13282, 8.03932, 0.50836, 0.27620, - + 0.17811, 0.39755, 0.52882, - + 0.23212, 0.13453, 8.19258, 0.52083, 0.29075, - + 0.19424, 0.41106, 0.54131 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ - + 0.23480, 0.13614, 8.32788, 0.53263, 0.30456, - + 0.20947, 0.42387, 0.55313, - + 0.23735, 0.13765, 8.44142, 0.54355, 0.31739, - + 0.22362, 0.43576, 0.56408, - + 0.23980, 0.13910, 8.54592, 0.55404, 0.32974, - + 0.23717, 0.44719, 0.57460, - + 0.24210, 0.14045, 8.63130, 0.56376, 0.34122, - + 0.24976, 0.45779, 0.58431, - + 0.24432, 0.14175, 8.71006, 0.57311, 0.35225, - + 0.26184, 0.46797, 0.59366 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + 0.23577, 0.14170, 2.68956, 0.23378, 0.00583, - + 0.00000, 0.12578, 0.25617, - + 0.24410, 0.14711, 3.20585, 0.24968, 0.02715, - + 0.00002, 0.14440, 0.27219, - + 0.25155, 0.15174, 3.61381, 0.26460, 0.04690, - + 0.00001, 0.16173, 0.28719, - + 0.25815, 0.15578, 3.92986, 0.27828, 0.06486, - + 0.00002, 0.17753, 0.30088, - + 0.26410, 0.15930, 4.18309, 0.29080, 0.08128, - + 0.00368, 0.19201, 0.31338, - + 0.26946, 0.16243, 4.38658, 0.30217, 0.09622, - + 0.01877, 0.20512, 0.32470, - + 0.27438, 0.16524, 4.55016, 0.31252, 0.10988, - + 0.03524, 0.21710, 0.33499 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ - + 0.27892, 0.16776, 4.68128, 0.32196, 0.12242, - + 0.04985, 0.22806, 0.34438, - + 0.28310, 0.17001, 4.78554, 0.33056, 0.13390, - + 0.06317, 0.23809, 0.35291, - + 0.28695, 0.17206, 4.86872, 0.33841, 0.14446, - + 0.07531, 0.24727, 0.36068, - + 0.29055, 0.17395, 4.93511, 0.34560, 0.15419, - + 0.08646, 0.25570, 0.36778, - + 0.29385, 0.17569, 4.98624, 0.35217, 0.16317, - + 0.09671, 0.26343, 0.37425, - + 0.29693, 0.17725, 5.02253, 0.35809, 0.17136, - + 0.10605, 0.27046, 0.38007, - + 0.29984, 0.17869, 5.05074, 0.36356, 0.17899, - + 0.11473, 0.27698, 0.38544 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ - + 0.30258, 0.18003, 5.07113, 0.36855, 0.18605, - + 0.12275, 0.28297, 0.39035, - + 0.30513, 0.18122, 5.08129, 0.37303, 0.19251, - + 0.13009, 0.28842, 0.39474, - + 0.30756, 0.18236, 5.08812, 0.37725, 0.19863, - + 0.13703, 0.29357, 0.39888, - + 0.30978, 0.18339, 5.08587, 0.38101, 0.20417, - + 0.14335, 0.29819, 0.40253, - + 0.31191, 0.18438, 5.08184, 0.38454, 0.20943, - + 0.14933, 0.30256, 0.40597 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + 0.31675, 0.19817, 2.33149, 0.17843, 0.00001, - + 0.00011, 0.09467, 0.20244, - + 0.32671, 0.20322, 2.55776, 0.18772, 0.01323, - + 0.00010, 0.10662, 0.21145, - + 0.33511, 0.20726, 2.71158, 0.19587, 0.02620, - + 0.00012, 0.11707, 0.21926, - + 0.34226, 0.21044, 2.81105, 0.20280, 0.03748, - + 0.00012, 0.12606, 0.22586, - + 0.34845, 0.21304, 2.87604, 0.20872, 0.04732, - + 0.00200, 0.13387, 0.23150, - + 0.35382, 0.21516, 2.91558, 0.21374, 0.05590, - + 0.01061, 0.14058, 0.23616, - + 0.35852, 0.21686, 2.93654, 0.21800, 0.06344, - + 0.01974, 0.14639, 0.24010 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ - + 0.36269, 0.21825, 2.94294, 0.22159, 0.07012, - + 0.02757, 0.15146, 0.24341, - + 0.36635, 0.21943, 2.93888, 0.22464, 0.07602, - + 0.03452, 0.15584, 0.24619, - + 0.36961, 0.22040, 2.92715, 0.22722, 0.08127, - + 0.04070, 0.15968, 0.24850, - + 0.37255, 0.22118, 2.90980, 0.22942, 0.08599, - + 0.04623, 0.16306, 0.25040, - + 0.37518, 0.22181, 2.88783, 0.23130, 0.09020, - + 0.05118, 0.16603, 0.25197, - + 0.37750, 0.22228, 2.86153, 0.23278, 0.09390, - + 0.05557, 0.16853, 0.25320, - + 0.37962, 0.22265, 2.83369, 0.23401, 0.09722, - + 0.05956, 0.17074, 0.25422 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ - + 0.38155, 0.22293, 2.80427, 0.23499, 0.10021, - + 0.06316, 0.17268, 0.25502, - + 0.38325, 0.22311, 2.77247, 0.23573, 0.10285, - + 0.06634, 0.17433, 0.25552, - + 0.38482, 0.22325, 2.74123, 0.23636, 0.10529, - + 0.06931, 0.17581, 0.25593, - + 0.38618, 0.22329, 2.70816, 0.23676, 0.10744, - + 0.07194, 0.17702, 0.25610, - + 0.38744, 0.22331, 2.67594, 0.23709, 0.10945, - + 0.07440, 0.17811, 0.25621 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + 0.37716, 0.23432, 2.04614, 0.14605, 0.00001, - + 0.00000, 0.07662, 0.16943, - + 0.38715, 0.23771, 2.13651, 0.15212, 0.00667, - + 0.00003, 0.08529, 0.17487, - + 0.39510, 0.24007, 2.18071, 0.15705, 0.01640, - + 0.00003, 0.09244, 0.17918, - + 0.40150, 0.24165, 2.19287, 0.16082, 0.02454, - + 0.00001, 0.09823, 0.18231, - + 0.40673, 0.24267, 2.18715, 0.16382, 0.03143, - + 0.00144, 0.10304, 0.18473, - + 0.41101, 0.24323, 2.16903, 0.16608, 0.03721, - + 0.00715, 0.10692, 0.18655, - + 0.41457, 0.24336, 2.14268, 0.16776, 0.04218, - + 0.01304, 0.11007, 0.18774 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ - + 0.41749, 0.24330, 2.11091, 0.16895, 0.04642, - + 0.01797, 0.11270, 0.18858, - + 0.41987, 0.24306, 2.07567, 0.16983, 0.05009, - + 0.02232, 0.11485, 0.18902, - + 0.42188, 0.24264, 2.03849, 0.17040, 0.05329, - + 0.02612, 0.11664, 0.18919, - + 0.42355, 0.24211, 2.00049, 0.17072, 0.05606, - + 0.02944, 0.11812, 0.18916, - + 0.42485, 0.24153, 1.96204, 0.17089, 0.05842, - + 0.03238, 0.11928, 0.18895, - + 0.42586, 0.24088, 1.92301, 0.17078, 0.06046, - + 0.03486, 0.12015, 0.18845, - + 0.42670, 0.24014, 1.88496, 0.17056, 0.06228, - + 0.03710, 0.12086, 0.18791 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ - + 0.42736, 0.23933, 1.84771, 0.17021, 0.06389, - + 0.03911, 0.12141, 0.18732, - + 0.42783, 0.23845, 1.81057, 0.16971, 0.06524, - + 0.04088, 0.12177, 0.18656, - + 0.42819, 0.23758, 1.77513, 0.16918, 0.06645, - + 0.04249, 0.12205, 0.18578, - + 0.42835, 0.23665, 1.73997, 0.16854, 0.06744, - + 0.04387, 0.12218, 0.18488, - + 0.42846, 0.23572, 1.70644, 0.16789, 0.06835, - + 0.04514, 0.12226, 0.18397 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + 0.42581, 0.25814, 1.80115, 0.12381, 0.00001, - + 0.00007, 0.06420, 0.14518, - + 0.43471, 0.25940, 1.81457, 0.12765, 0.00306, - + 0.00005, 0.07065, 0.14825, - + 0.44129, 0.25975, 1.80085, 0.13045, 0.01081, - + 0.00009, 0.07572, 0.15018, - + 0.44611, 0.25935, 1.76984, 0.13232, 0.01701, - + 0.00009, 0.07958, 0.15141, - + 0.44973, 0.25854, 1.73120, 0.13353, 0.02210, - + 0.00111, 0.08255, 0.15202, - + 0.45238, 0.25736, 1.68831, 0.13417, 0.02631, - + 0.00512, 0.08484, 0.15211, - + 0.45414, 0.25602, 1.64338, 0.13441, 0.02977, - + 0.00923, 0.08660, 0.15189 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ - + 0.45534, 0.25452, 1.59761, 0.13439, 0.03266, - + 0.01261, 0.08790, 0.15135, - + 0.45609, 0.25289, 1.55215, 0.13412, 0.03512, - + 0.01550, 0.08887, 0.15060, - + 0.45647, 0.25119, 1.50778, 0.13364, 0.03721, - + 0.01799, 0.08959, 0.14971, - + 0.45654, 0.24949, 1.46494, 0.13303, 0.03898, - + 0.02015, 0.09008, 0.14870, - + 0.45630, 0.24779, 1.42360, 0.13239, 0.04046, - + 0.02203, 0.09038, 0.14760, - + 0.45582, 0.24599, 1.38349, 0.13160, 0.04172, - + 0.02361, 0.09046, 0.14642, - + 0.45521, 0.24419, 1.34542, 0.13071, 0.04279, - + 0.02500, 0.09046, 0.14522 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ - + 0.45448, 0.24242, 1.30910, 0.12974, 0.04370, - + 0.02623, 0.09038, 0.14398, - + 0.45357, 0.24062, 1.27398, 0.12876, 0.04442, - + 0.02725, 0.09018, 0.14271, - + 0.45262, 0.23887, 1.24091, 0.12778, 0.04504, - + 0.02817, 0.08994, 0.14146, - + 0.45148, 0.23714, 1.20892, 0.12673, 0.04558, - + 0.02897, 0.08960, 0.14014, - + 0.45033, 0.23546, 1.17876, 0.12569, 0.04604, - + 0.02969, 0.08923, 0.13886 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + 0.46658, 0.27334, 1.58593, 0.10650, 0.00001, - + 0.00007, 0.05433, 0.12564, - + 0.47323, 0.27236, 1.55280, 0.10877, 0.00073, - + 0.00007, 0.05917, 0.12682, - + 0.47775, 0.27046, 1.50636, 0.10999, 0.00688, - + 0.00007, 0.06266, 0.12743, - + 0.48045, 0.26811, 1.45307, 0.11057, 0.01179, - + 0.00004, 0.06522, 0.12715, - + 0.48187, 0.26563, 1.39881, 0.11064, 0.01574, - + 0.00078, 0.06703, 0.12645, - + 0.48223, 0.26289, 1.34532, 0.11039, 0.01886, - + 0.00373, 0.06827, 0.12551, - + 0.48200, 0.26005, 1.29339, 0.10983, 0.02139, - + 0.00669, 0.06913, 0.12433 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ - + 0.48130, 0.25717, 1.24366, 0.10898, 0.02343, - + 0.00905, 0.06964, 0.12315, - + 0.48019, 0.25422, 1.19639, 0.10799, 0.02513, - + 0.01110, 0.06992, 0.12183, - + 0.47873, 0.25139, 1.15171, 0.10699, 0.02657, - + 0.01284, 0.07003, 0.12032, - + 0.47703, 0.24866, 1.10970, 0.10596, 0.02779, - + 0.01429, 0.06998, 0.11875, - + 0.47521, 0.24592, 1.07018, 0.10482, 0.02874, - + 0.01545, 0.06980, 0.11729, - + 0.47313, 0.24320, 1.03270, 0.10368, 0.02953, - + 0.01654, 0.06954, 0.11574, - + 0.47100, 0.24058, 0.99767, 0.10251, 0.03020, - + 0.01747, 0.06921, 0.11423 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ - + 0.46882, 0.23802, 0.96477, 0.10131, 0.03072, - + 0.01825, 0.06881, 0.11277, - + 0.46656, 0.23547, 0.93347, 0.10006, 0.03117, - + 0.01888, 0.06837, 0.11130, - + 0.46432, 0.23302, 0.90427, 0.09884, 0.03154, - + 0.01945, 0.06792, 0.10988, - + 0.46190, 0.23061, 0.87657, 0.09766, 0.03181, - + 0.01995, 0.06739, 0.10844, - + 0.45951, 0.22830, 0.85065, 0.09650, 0.03204, - + 0.02039, 0.06687, 0.10705 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + 0.50652, 0.28284, 1.35102, 0.08926, 0.00001, - + 0.00008, 0.04486, 0.10529, - + 0.50988, 0.27866, 1.28468, 0.08989, 0.00001, - + 0.00004, 0.04820, 0.10508, - + 0.51092, 0.27418, 1.21704, 0.08994, 0.00417, - + 0.00011, 0.05049, 0.10409, - + 0.51031, 0.26953, 1.15112, 0.08934, 0.00790, - + 0.00006, 0.05187, 0.10280, - + 0.50858, 0.26505, 1.08961, 0.08861, 0.01075, - + 0.00058, 0.05272, 0.10125, - + 0.50614, 0.26051, 1.03265, 0.08751, 0.01299, - + 0.00260, 0.05321, 0.09965, - + 0.50314, 0.25608, 0.97995, 0.08630, 0.01481, - + 0.00464, 0.05342, 0.09791 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ - + 0.49993, 0.25167, 0.93124, 0.08496, 0.01625, - + 0.00629, 0.05334, 0.09623, - + 0.49635, 0.24755, 0.88635, 0.08364, 0.01738, - + 0.00760, 0.05314, 0.09444, - + 0.49266, 0.24352, 0.84504, 0.08230, 0.01828, - + 0.00869, 0.05284, 0.09266, - + 0.48894, 0.23959, 0.80701, 0.08091, 0.01904, - + 0.00964, 0.05245, 0.09098, - + 0.48506, 0.23594, 0.77191, 0.07957, 0.01965, - + 0.01041, 0.05198, 0.08932, - + 0.48113, 0.23231, 0.73924, 0.07820, 0.02012, - + 0.01105, 0.05145, 0.08764, - + 0.47718, 0.22888, 0.70913, 0.07689, 0.02047, - + 0.01161, 0.05092, 0.08605 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ - + 0.47320, 0.22564, 0.68125, 0.07563, 0.02070, - + 0.01208, 0.05037, 0.08453, - + 0.46927, 0.22240, 0.65519, 0.07441, 0.02092, - + 0.01247, 0.04981, 0.08295, - + 0.46547, 0.21930, 0.63109, 0.07324, 0.02111, - + 0.01282, 0.04926, 0.08145, - + 0.46163, 0.21629, 0.60840, 0.07203, 0.02121, - + 0.01310, 0.04865, 0.08004, - + 0.45791, 0.21341, 0.58734, 0.07088, 0.02129, - + 0.01334, 0.04807, 0.07871 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + 0.53667, 0.28422, 1.14794, 0.07452, 0.00001, - + 0.00017, 0.03719, 0.08793, - + 0.53576, 0.27723, 1.06488, 0.07421, 0.00001, - + 0.00012, 0.03937, 0.08670, - + 0.53298, 0.27026, 0.98862, 0.07327, 0.00240, - + 0.00014, 0.04074, 0.08501, - + 0.52855, 0.26380, 0.91938, 0.07231, 0.00528, - + 0.00015, 0.04137, 0.08296, - + 0.52365, 0.25748, 0.85763, 0.07090, 0.00751, - + 0.00049, 0.04167, 0.08100, - + 0.51826, 0.25141, 0.80251, 0.06941, 0.00915, - + 0.00196, 0.04162, 0.07914, - + 0.51251, 0.24572, 0.75290, 0.06795, 0.01039, - + 0.00333, 0.04142, 0.07714 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ - + 0.50655, 0.24032, 0.70830, 0.06651, 0.01141, - + 0.00443, 0.04109, 0.07510, - + 0.50067, 0.23516, 0.66795, 0.06501, 0.01220, - + 0.00533, 0.04064, 0.07323, - + 0.49480, 0.23027, 0.63143, 0.06352, 0.01281, - + 0.00606, 0.04018, 0.07139, - + 0.48896, 0.22565, 0.59837, 0.06210, 0.01330, - + 0.00667, 0.03969, 0.06962, - + 0.48330, 0.22114, 0.56832, 0.06068, 0.01367, - + 0.00713, 0.03907, 0.06807, - + 0.47751, 0.21697, 0.54066, 0.05945, 0.01391, - + 0.00752, 0.03851, 0.06639, - + 0.47198, 0.21296, 0.51545, 0.05820, 0.01414, - + 0.00789, 0.03792, 0.06481 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ - + 0.46670, 0.20906, 0.49238, 0.05691, 0.01433, - + 0.00827, 0.03734, 0.06333, - + 0.46134, 0.20539, 0.47115, 0.05570, 0.01441, - + 0.00852, 0.03672, 0.06199, - + 0.45614, 0.20192, 0.45164, 0.05455, 0.01446, - + 0.00873, 0.03612, 0.06071, - + 0.45096, 0.19860, 0.43326, 0.05348, 0.01449, - + 0.00884, 0.03553, 0.05941, - + 0.44599, 0.19542, 0.41633, 0.05246, 0.01451, - + 0.00896, 0.03495, 0.05817 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + 0.55780, 0.27971, 0.97191, 0.06190, 0.00001, - + 0.00006, 0.03043, 0.07284, - + 0.55207, 0.27012, 0.88223, 0.06085, 0.00001, - + 0.00007, 0.03192, 0.07092, - + 0.54482, 0.26136, 0.80448, 0.05964, 0.00138, - + 0.00006, 0.03264, 0.06858, - + 0.53704, 0.25287, 0.73694, 0.05803, 0.00361, - + 0.00001, 0.03287, 0.06648, - + 0.52875, 0.24525, 0.67862, 0.05645, 0.00529, - + 0.00028, 0.03286, 0.06425, - + 0.52031, 0.23809, 0.62775, 0.05479, 0.00652, - + 0.00137, 0.03265, 0.06219, - + 0.51207, 0.23131, 0.58301, 0.05319, 0.00753, - + 0.00235, 0.03218, 0.06019 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ - + 0.50384, 0.22501, 0.54340, 0.05165, 0.00821, - + 0.00310, 0.03165, 0.05841, - + 0.49570, 0.21911, 0.50822, 0.05016, 0.00874, - + 0.00377, 0.03117, 0.05660, - + 0.48774, 0.21361, 0.47688, 0.04877, 0.00918, - + 0.00431, 0.03061, 0.05485, - + 0.48003, 0.20849, 0.44881, 0.04749, 0.00951, - + 0.00473, 0.02997, 0.05324, - + 0.47259, 0.20370, 0.42348, 0.04623, 0.00969, - + 0.00507, 0.02939, 0.05171, - + 0.46549, 0.19894, 0.40045, 0.04487, 0.00985, - + 0.00541, 0.02883, 0.05036, - + 0.45860, 0.19450, 0.37966, 0.04368, 0.00998, - + 0.00565, 0.02825, 0.04902 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ - + 0.45187, 0.19035, 0.36079, 0.04265, 0.01008, - + 0.00577, 0.02766, 0.04765, - + 0.44525, 0.18642, 0.34354, 0.04159, 0.01012, - + 0.00589, 0.02712, 0.04641, - + 0.43893, 0.18271, 0.32781, 0.04059, 0.01014, - + 0.00601, 0.02660, 0.04524, - + 0.43281, 0.17912, 0.31332, 0.03962, 0.01016, - + 0.00608, 0.02605, 0.04412, - + 0.42696, 0.17570, 0.29997, 0.03870, 0.01016, - + 0.00614, 0.02553, 0.04306 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + 0.57041, 0.27068, 0.81970, 0.05094, 0.00001, - + 0.00002, 0.02472, 0.05939, - + 0.55964, 0.25905, 0.72974, 0.04959, 0.00001, - + 0.00000, 0.02563, 0.05710, - + 0.54846, 0.24829, 0.65482, 0.04783, 0.00058, - + 0.00005, 0.02595, 0.05500, - + 0.53681, 0.23875, 0.59176, 0.04618, 0.00234, - + 0.00004, 0.02589, 0.05276, - + 0.52531, 0.23012, 0.53851, 0.04460, 0.00362, - + 0.00034, 0.02565, 0.05057, - + 0.51426, 0.22199, 0.49304, 0.04306, 0.00456, - + 0.00104, 0.02516, 0.04865, - + 0.50346, 0.21459, 0.45365, 0.04158, 0.00525, - + 0.00176, 0.02465, 0.04678 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ - + 0.49304, 0.20771, 0.41933, 0.04008, 0.00586, - + 0.00232, 0.02413, 0.04500, - + 0.48301, 0.20137, 0.38928, 0.03865, 0.00620, - + 0.00274, 0.02360, 0.04345, - + 0.47339, 0.19552, 0.36282, 0.03735, 0.00647, - + 0.00301, 0.02307, 0.04191, - + 0.46419, 0.19006, 0.33936, 0.03615, 0.00674, - + 0.00324, 0.02253, 0.04037, - + 0.45535, 0.18490, 0.31839, 0.03500, 0.00692, - + 0.00352, 0.02202, 0.03900, - + 0.44684, 0.18011, 0.29952, 0.03395, 0.00700, - + 0.00366, 0.02144, 0.03774, - + 0.43871, 0.17558, 0.28259, 0.03297, 0.00705, - + 0.00378, 0.02088, 0.03658 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ - + 0.43088, 0.17127, 0.26732, 0.03209, 0.00708, - + 0.00391, 0.02037, 0.03548, - + 0.42335, 0.16726, 0.25344, 0.03120, 0.00710, - + 0.00403, 0.01990, 0.03433, - + 0.41621, 0.16349, 0.24083, 0.03036, 0.00711, - + 0.00413, 0.01947, 0.03327, - + 0.40937, 0.15980, 0.22926, 0.02946, 0.00711, - + 0.00417, 0.01906, 0.03236, - + 0.40284, 0.15633, 0.21867, 0.02865, 0.00710, - + 0.00421, 0.01864, 0.03152 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + 0.57544, 0.25807, 0.68826, 0.04122, 0.00001, - + 0.00001, 0.01974, 0.04813, - + 0.55979, 0.24471, 0.60187, 0.03965, 0.00001, - + 0.00009, 0.02025, 0.04584, - + 0.54425, 0.23296, 0.53213, 0.03815, 0.00020, - + 0.00004, 0.02042, 0.04317, - + 0.52913, 0.22243, 0.47499, 0.03649, 0.00154, - + 0.00007, 0.02022, 0.04118, - + 0.51504, 0.21276, 0.42763, 0.03484, 0.00256, - + 0.00023, 0.01975, 0.03943, - + 0.50148, 0.20414, 0.38774, 0.03336, 0.00338, - + 0.00074, 0.01934, 0.03746, - + 0.48822, 0.19664, 0.35371, 0.03206, 0.00383, - + 0.00121, 0.01886, 0.03574 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ - + 0.47601, 0.18942, 0.32449, 0.03071, 0.00415, - + 0.00165, 0.01828, 0.03438, - + 0.46440, 0.18279, 0.29914, 0.02951, 0.00440, - + 0.00195, 0.01781, 0.03295, - + 0.45342, 0.17669, 0.27697, 0.02837, 0.00459, - + 0.00215, 0.01732, 0.03161, - + 0.44300, 0.17105, 0.25749, 0.02729, 0.00475, - + 0.00231, 0.01679, 0.03042, - + 0.43286, 0.16599, 0.24029, 0.02641, 0.00484, - + 0.00246, 0.01633, 0.02925, - + 0.42350, 0.16090, 0.22504, 0.02540, 0.00495, - + 0.00265, 0.01585, 0.02828, - + 0.41459, 0.15627, 0.21133, 0.02452, 0.00501, - + 0.00274, 0.01536, 0.02732 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ - + 0.40606, 0.15210, 0.19889, 0.02377, 0.00499, - + 0.00272, 0.01491, 0.02634, - + 0.39772, 0.14818, 0.18788, 0.02305, 0.00501, - + 0.00276, 0.01452, 0.02541, - + 0.38984, 0.14447, 0.17796, 0.02239, 0.00502, - + 0.00280, 0.01415, 0.02453, - + 0.38246, 0.14084, 0.16883, 0.02170, 0.00497, - + 0.00280, 0.01381, 0.02375, - + 0.37544, 0.13743, 0.16054, 0.02106, 0.00491, - + 0.00281, 0.01348, 0.02303 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + 0.57296, 0.24331, 0.57498, 0.03323, 0.00001, - + 0.00000, 0.01564, 0.03790, - + 0.55287, 0.22837, 0.49443, 0.03152, 0.00001, - + 0.00015, 0.01586, 0.03580, - + 0.53348, 0.21570, 0.43117, 0.02996, 0.00001, - + 0.00003, 0.01587, 0.03381, - + 0.51557, 0.20430, 0.38020, 0.02816, 0.00101, - + 0.00014, 0.01560, 0.03199, - + 0.49880, 0.19429, 0.33882, 0.02671, 0.00183, - + 0.00017, 0.01515, 0.03027, - + 0.48293, 0.18554, 0.30443, 0.02552, 0.00237, - + 0.00053, 0.01468, 0.02866, - + 0.46813, 0.17757, 0.27543, 0.02427, 0.00272, - + 0.00090, 0.01427, 0.02732 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ - + 0.45440, 0.17028, 0.25084, 0.02316, 0.00307, - + 0.00122, 0.01376, 0.02599, - + 0.44124, 0.16387, 0.22975, 0.02226, 0.00330, - + 0.00146, 0.01334, 0.02458, - + 0.42895, 0.15791, 0.21147, 0.02133, 0.00343, - + 0.00158, 0.01292, 0.02342, - + 0.41757, 0.15227, 0.19548, 0.02040, 0.00350, - + 0.00166, 0.01249, 0.02255, - + 0.40679, 0.14708, 0.18137, 0.01956, 0.00351, - + 0.00181, 0.01205, 0.02169, - + 0.39644, 0.14238, 0.16919, 0.01895, 0.00352, - + 0.00187, 0.01164, 0.02076, - + 0.38674, 0.13798, 0.15832, 0.01831, 0.00355, - + 0.00190, 0.01126, 0.01991 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ - + 0.37764, 0.13385, 0.14851, 0.01762, 0.00355, - + 0.00190, 0.01089, 0.01918, - + 0.36924, 0.12985, 0.13974, 0.01689, 0.00351, - + 0.00192, 0.01058, 0.01851, - + 0.36130, 0.12612, 0.13186, 0.01624, 0.00345, - + 0.00194, 0.01029, 0.01788, - + 0.35325, 0.12277, 0.12476, 0.01583, 0.00345, - + 0.00202, 0.00995, 0.01720, - + 0.34571, 0.11959, 0.11829, 0.01540, 0.00345, - + 0.00206, 0.00965, 0.01660 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + 0.56518, 0.22574, 0.47773, 0.02572, 0.00001, - + 0.00017, 0.01219, 0.02999, - + 0.54022, 0.21032, 0.40443, 0.02428, 0.00001, - + 0.00008, 0.01231, 0.02779, - + 0.51757, 0.19695, 0.34790, 0.02272, 0.00001, - + 0.00001, 0.01225, 0.02602, - + 0.49637, 0.18579, 0.30341, 0.02165, 0.00073, - + 0.00005, 0.01176, 0.02436, - + 0.47738, 0.17567, 0.26767, 0.02038, 0.00129, - + 0.00015, 0.01135, 0.02300, - + 0.45973, 0.16694, 0.23843, 0.01935, 0.00174, - + 0.00045, 0.01097, 0.02155, - + 0.44350, 0.15904, 0.21412, 0.01829, 0.00198, - + 0.00070, 0.01058, 0.02049 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ - + 0.42843, 0.15191, 0.19373, 0.01738, 0.00217, - + 0.00087, 0.01023, 0.01934, - + 0.41435, 0.14556, 0.17633, 0.01661, 0.00229, - + 0.00102, 0.00983, 0.01830, - + 0.40135, 0.13964, 0.16141, 0.01588, 0.00238, - + 0.00114, 0.00943, 0.01742, - + 0.38933, 0.13414, 0.14855, 0.01516, 0.00245, - + 0.00122, 0.00907, 0.01663, - + 0.37813, 0.12913, 0.13733, 0.01444, 0.00252, - + 0.00122, 0.00879, 0.01582, - + 0.36744, 0.12454, 0.12739, 0.01386, 0.00257, - + 0.00130, 0.00849, 0.01505, - + 0.35745, 0.12028, 0.11868, 0.01330, 0.00255, - + 0.00135, 0.00818, 0.01442 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ - + 0.34809, 0.11628, 0.11101, 0.01276, 0.00250, - + 0.00135, 0.00787, 0.01392, - + 0.33926, 0.11259, 0.10409, 0.01209, 0.00250, - + 0.00138, 0.00764, 0.01354, - + 0.33095, 0.10919, 0.09788, 0.01148, 0.00249, - + 0.00140, 0.00743, 0.01317, - + 0.32294, 0.10598, 0.09234, 0.01107, 0.00244, - + 0.00137, 0.00715, 0.01265, - + 0.31537, 0.10296, 0.08731, 0.01071, 0.00240, - + 0.00135, 0.00691, 0.01219 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + 0.55060, 0.20783, 0.39443, 0.01979, 0.00001, - + 0.00015, 0.00934, 0.02282, - + 0.52171, 0.19198, 0.32888, 0.01862, 0.00001, - + 0.00003, 0.00944, 0.02101, - + 0.49584, 0.17870, 0.27941, 0.01751, 0.00001, - + 0.00000, 0.00928, 0.01940, - + 0.47296, 0.16688, 0.24109, 0.01615, 0.00048, - + 0.00003, 0.00903, 0.01825, - + 0.45189, 0.15716, 0.21062, 0.01529, 0.00099, - + 0.00010, 0.00868, 0.01687, - + 0.43312, 0.14840, 0.18611, 0.01438, 0.00119, - + 0.00035, 0.00831, 0.01594, - + 0.41585, 0.14068, 0.16583, 0.01350, 0.00147, - + 0.00053, 0.00786, 0.01507 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ - + 0.39990, 0.13380, 0.14919, 0.01273, 0.00163, - + 0.00068, 0.00751, 0.01429, - + 0.38524, 0.12762, 0.13513, 0.01208, 0.00174, - + 0.00073, 0.00724, 0.01339, - + 0.37180, 0.12198, 0.12301, 0.01149, 0.00178, - + 0.00081, 0.00695, 0.01263, - + 0.35946, 0.11684, 0.11254, 0.01088, 0.00178, - + 0.00091, 0.00664, 0.01201, - + 0.34797, 0.11216, 0.10354, 0.01030, 0.00186, - + 0.00090, 0.00637, 0.01129, - + 0.33693, 0.10781, 0.09569, 0.00980, 0.00181, - + 0.00092, 0.00616, 0.01090, - + 0.32670, 0.10381, 0.08880, 0.00936, 0.00179, - + 0.00095, 0.00596, 0.01046 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ - + 0.31718, 0.10010, 0.08270, 0.00897, 0.00183, - + 0.00099, 0.00575, 0.00994, - + 0.30824, 0.09662, 0.07732, 0.00856, 0.00181, - + 0.00101, 0.00552, 0.00963, - + 0.29988, 0.09338, 0.07252, 0.00817, 0.00179, - + 0.00102, 0.00531, 0.00935, - + 0.29184, 0.09038, 0.06823, 0.00790, 0.00178, - + 0.00102, 0.00514, 0.00896, - + 0.28433, 0.08761, 0.06433, 0.00763, 0.00176, - + 0.00102, 0.00497, 0.00859 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + 0.53121, 0.19009, 0.32396, 0.01562, 0.00001, - + 0.00009, 0.00666, 0.01711, - + 0.49937, 0.17349, 0.26604, 0.01416, 0.00001, - + 0.00008, 0.00674, 0.01605, - + 0.47097, 0.16040, 0.22326, 0.01321, 0.00001, - + 0.00011, 0.00662, 0.01471, - + 0.44583, 0.14920, 0.19074, 0.01237, 0.00018, - + 0.00006, 0.00648, 0.01344, - + 0.42380, 0.13944, 0.16526, 0.01150, 0.00054, - + 0.00001, 0.00628, 0.01242, - + 0.40392, 0.13099, 0.14509, 0.01069, 0.00081, - + 0.00017, 0.00595, 0.01171, - + 0.38621, 0.12365, 0.12854, 0.00980, 0.00095, - + 0.00031, 0.00572, 0.01105 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ - + 0.36983, 0.11707, 0.11472, 0.00933, 0.00107, - + 0.00039, 0.00540, 0.01034, - + 0.35484, 0.11119, 0.10330, 0.00890, 0.00117, - + 0.00049, 0.00518, 0.00968, - + 0.34113, 0.10588, 0.09359, 0.00835, 0.00123, - + 0.00051, 0.00497, 0.00913, - + 0.32848, 0.10105, 0.08524, 0.00783, 0.00125, - + 0.00051, 0.00472, 0.00873, - + 0.31668, 0.09665, 0.07809, 0.00753, 0.00123, - + 0.00061, 0.00452, 0.00843, - + 0.30596, 0.09263, 0.07190, 0.00714, 0.00125, - + 0.00064, 0.00431, 0.00785, - + 0.29591, 0.08896, 0.06650, 0.00683, 0.00124, - + 0.00065, 0.00413, 0.00741 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ - + 0.28641, 0.08560, 0.06174, 0.00657, 0.00121, - + 0.00067, 0.00397, 0.00713, - + 0.27773, 0.08238, 0.05754, 0.00622, 0.00122, - + 0.00066, 0.00381, 0.00679, - + 0.26963, 0.07941, 0.05381, 0.00588, 0.00123, - + 0.00066, 0.00367, 0.00647, - + 0.26176, 0.07672, 0.05045, 0.00562, 0.00120, - + 0.00066, 0.00354, 0.00623, - + 0.25439, 0.07419, 0.04744, 0.00540, 0.00118, - + 0.00066, 0.00341, 0.00599 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + 0.50755, 0.17053, 0.26316, 0.01106, 0.00001, - + 0.00016, 0.00518, 0.01269, - + 0.47243, 0.15488, 0.21340, 0.01031, 0.00001, - + 0.00012, 0.00513, 0.01162, - + 0.44244, 0.14194, 0.17721, 0.00946, 0.00001, - + 0.00013, 0.00504, 0.01059, - + 0.41618, 0.13122, 0.14992, 0.00870, 0.00029, - + 0.00006, 0.00476, 0.00981, - + 0.39347, 0.12199, 0.12888, 0.00794, 0.00048, - + 0.00012, 0.00457, 0.00911, - + 0.37321, 0.11404, 0.11212, 0.00737, 0.00063, - + 0.00022, 0.00445, 0.00841, - + 0.35479, 0.10714, 0.09864, 0.00702, 0.00085, - + 0.00028, 0.00423, 0.00773 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ - + 0.33840, 0.10098, 0.08757, 0.00633, 0.00082, - + 0.00039, 0.00393, 0.00752, - + 0.32319, 0.09555, 0.07841, 0.00602, 0.00092, - + 0.00041, 0.00372, 0.00707, - + 0.30945, 0.09063, 0.07069, 0.00574, 0.00095, - + 0.00041, 0.00355, 0.00662, - + 0.29704, 0.08626, 0.06412, 0.00541, 0.00088, - + 0.00043, 0.00340, 0.00623, - + 0.28541, 0.08250, 0.05854, 0.00533, 0.00090, - + 0.00044, 0.00320, 0.00564, - + 0.27487, 0.07871, 0.05369, 0.00499, 0.00091, - + 0.00043, 0.00305, 0.00542, - + 0.26513, 0.07526, 0.04947, 0.00463, 0.00090, - + 0.00042, 0.00288, 0.00522 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ - + 0.25605, 0.07217, 0.04578, 0.00430, 0.00086, - + 0.00041, 0.00273, 0.00503, - + 0.24741, 0.06930, 0.04254, 0.00420, 0.00083, - + 0.00047, 0.00265, 0.00482, - + 0.23934, 0.06666, 0.03967, 0.00413, 0.00082, - + 0.00053, 0.00259, 0.00461, - + 0.23155, 0.06423, 0.03712, 0.00409, 0.00083, - + 0.00049, 0.00249, 0.00436, - + 0.22440, 0.06199, 0.03484, 0.00399, 0.00083, - + 0.00046, 0.00239, 0.00413 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + 0.48033, 0.15264, 0.21305, 0.00836, 0.00001, - + 0.00002, 0.00357, 0.00909, - + 0.44304, 0.13739, 0.17039, 0.00774, 0.00001, - + 0.00001, 0.00358, 0.00829, - + 0.41195, 0.12495, 0.13987, 0.00689, 0.00001, - + 0.00004, 0.00350, 0.00760, - + 0.38523, 0.11467, 0.11712, 0.00624, 0.00004, - + 0.00002, 0.00337, 0.00710, - + 0.36185, 0.10601, 0.09981, 0.00572, 0.00029, - + 0.00003, 0.00324, 0.00657, - + 0.34121, 0.09871, 0.08628, 0.00542, 0.00042, - + 0.00012, 0.00299, 0.00608, - + 0.32287, 0.09229, 0.07548, 0.00499, 0.00042, - + 0.00011, 0.00283, 0.00569 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ - + 0.30647, 0.08679, 0.06658, 0.00477, 0.00057, - + 0.00020, 0.00269, 0.00520, - + 0.29188, 0.08178, 0.05928, 0.00441, 0.00056, - + 0.00022, 0.00251, 0.00482, - + 0.27861, 0.07724, 0.05321, 0.00408, 0.00058, - + 0.00023, 0.00236, 0.00449, - + 0.26641, 0.07317, 0.04808, 0.00384, 0.00065, - + 0.00025, 0.00223, 0.00424, - + 0.25518, 0.06944, 0.04369, 0.00364, 0.00056, - + 0.00025, 0.00212, 0.00420, - + 0.24480, 0.06623, 0.03997, 0.00358, 0.00054, - + 0.00027, 0.00207, 0.00383, - + 0.23528, 0.06326, 0.03674, 0.00342, 0.00053, - + 0.00028, 0.00198, 0.00357 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ - + 0.22649, 0.06047, 0.03392, 0.00316, 0.00054, - + 0.00027, 0.00184, 0.00348, - + 0.21826, 0.05793, 0.03140, 0.00306, 0.00054, - + 0.00028, 0.00177, 0.00327, - + 0.21067, 0.05562, 0.02917, 0.00295, 0.00054, - + 0.00030, 0.00172, 0.00307, - + 0.20387, 0.05341, 0.02723, 0.00267, 0.00051, - + 0.00030, 0.00162, 0.00295, - + 0.19744, 0.05139, 0.02550, 0.00248, 0.00050, - + 0.00030, 0.00155, 0.00282 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + 0.44937, 0.13485, 0.17056, 0.00582, 0.00001, - + 0.00008, 0.00249, 0.00658, - + 0.41181, 0.12006, 0.13469, 0.00503, 0.00001, - + 0.00005, 0.00253, 0.00598, - + 0.37920, 0.10859, 0.10935, 0.00489, 0.00001, - + 0.00003, 0.00259, 0.00529, - + 0.35221, 0.09901, 0.09074, 0.00420, 0.00009, - + 0.00001, 0.00238, 0.00497, - + 0.32881, 0.09099, 0.07678, 0.00402, 0.00023, - + 0.00002, 0.00227, 0.00458, - + 0.30871, 0.08440, 0.06584, 0.00368, 0.00028, - + 0.00010, 0.00215, 0.00427, - + 0.29082, 0.07850, 0.05720, 0.00350, 0.00032, - + 0.00013, 0.00206, 0.00382 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ - + 0.27484, 0.07337, 0.05025, 0.00328, 0.00035, - + 0.00014, 0.00188, 0.00355, - + 0.26061, 0.06888, 0.04449, 0.00304, 0.00036, - + 0.00018, 0.00179, 0.00335, - + 0.24770, 0.06490, 0.03975, 0.00286, 0.00039, - + 0.00022, 0.00170, 0.00310, - + 0.23596, 0.06132, 0.03580, 0.00274, 0.00041, - + 0.00023, 0.00159, 0.00286, - + 0.22540, 0.05811, 0.03241, 0.00256, 0.00036, - + 0.00023, 0.00147, 0.00274, - + 0.21580, 0.05517, 0.02952, 0.00227, 0.00036, - + 0.00020, 0.00139, 0.00261, - + 0.20686, 0.05250, 0.02703, 0.00214, 0.00038, - + 0.00020, 0.00134, 0.00244 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ - + 0.19847, 0.05006, 0.02488, 0.00218, 0.00039, - + 0.00024, 0.00133, 0.00223, - + 0.19082, 0.04785, 0.02301, 0.00212, 0.00042, - + 0.00023, 0.00126, 0.00208, - + 0.18376, 0.04582, 0.02136, 0.00205, 0.00043, - + 0.00021, 0.00118, 0.00194, - + 0.17709, 0.04389, 0.01987, 0.00195, 0.00042, - + 0.00020, 0.00110, 0.00190, - + 0.17094, 0.04214, 0.01855, 0.00183, 0.00038, - + 0.00019, 0.00104, 0.00185 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + 0.41755, 0.11759, 0.13558, 0.00373, 0.00001, - + 0.00004, 0.00168, 0.00454, - + 0.37836, 0.10426, 0.10575, 0.00366, 0.00001, - + 0.00004, 0.00176, 0.00415, - + 0.34619, 0.09359, 0.08497, 0.00346, 0.00001, - + 0.00007, 0.00152, 0.00395, - + 0.31940, 0.08485, 0.06994, 0.00307, 0.00001, - + 0.00003, 0.00151, 0.00361, - + 0.29667, 0.07765, 0.05870, 0.00280, 0.00002, - + 0.00004, 0.00145, 0.00330, - + 0.27701, 0.07150, 0.04999, 0.00258, 0.00014, - + 0.00006, 0.00138, 0.00304, - + 0.25957, 0.06627, 0.04314, 0.00254, 0.00018, - + 0.00009, 0.00127, 0.00258 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ - + 0.24431, 0.06167, 0.03767, 0.00232, 0.00017, - + 0.00010, 0.00116, 0.00251, - + 0.23086, 0.05769, 0.03322, 0.00211, 0.00020, - + 0.00008, 0.00113, 0.00229, - + 0.21867, 0.05416, 0.02956, 0.00197, 0.00024, - + 0.00007, 0.00107, 0.00206, - + 0.20759, 0.05101, 0.02651, 0.00185, 0.00024, - + 0.00008, 0.00101, 0.00196, - + 0.19761, 0.04823, 0.02390, 0.00176, 0.00024, - + 0.00010, 0.00095, 0.00181, - + 0.18831, 0.04566, 0.02171, 0.00178, 0.00023, - + 0.00012, 0.00086, 0.00165, - + 0.17988, 0.04332, 0.01983, 0.00177, 0.00023, - + 0.00011, 0.00080, 0.00151 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ - + 0.17222, 0.04122, 0.01820, 0.00169, 0.00023, - + 0.00009, 0.00077, 0.00139, - + 0.16524, 0.03929, 0.01678, 0.00154, 0.00022, - + 0.00010, 0.00075, 0.00136, - + 0.15884, 0.03754, 0.01554, 0.00140, 0.00018, - + 0.00011, 0.00073, 0.00133, - + 0.15284, 0.03591, 0.01445, 0.00131, 0.00018, - + 0.00010, 0.00068, 0.00123, - + 0.14724, 0.03440, 0.01347, 0.00125, 0.00018, - + 0.00010, 0.00064, 0.00115 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + 0.38293, 0.10184, 0.10666, 0.00263, 0.00001, - + 0.00006, 0.00115, 0.00317, - + 0.34411, 0.08923, 0.08197, 0.00232, 0.00001, - + 0.00002, 0.00120, 0.00296, - + 0.31216, 0.07943, 0.06514, 0.00215, 0.00001, - + 0.00002, 0.00115, 0.00277, - + 0.28619, 0.07153, 0.05305, 0.00202, 0.00006, - + 0.00001, 0.00110, 0.00235, - + 0.26418, 0.06511, 0.04410, 0.00192, 0.00015, - + 0.00004, 0.00103, 0.00199, - + 0.24524, 0.05962, 0.03733, 0.00175, 0.00018, - + 0.00002, 0.00098, 0.00189, - + 0.22900, 0.05505, 0.03204, 0.00153, 0.00015, - + 0.00004, 0.00094, 0.00170 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ - + 0.21466, 0.05096, 0.02782, 0.00143, 0.00021, - + 0.00007, 0.00088, 0.00151, - + 0.20176, 0.04746, 0.02440, 0.00136, 0.00019, - + 0.00007, 0.00078, 0.00139, - + 0.19018, 0.04441, 0.02161, 0.00136, 0.00016, - + 0.00007, 0.00071, 0.00128, - + 0.17989, 0.04164, 0.01929, 0.00133, 0.00018, - + 0.00006, 0.00070, 0.00117, - + 0.17080, 0.03913, 0.01733, 0.00111, 0.00018, - + 0.00004, 0.00062, 0.00106, - + 0.16229, 0.03697, 0.01569, 0.00115, 0.00019, - + 0.00007, 0.00064, 0.00098, - + 0.15463, 0.03502, 0.01429, 0.00107, 0.00020, - + 0.00010, 0.00063, 0.00096 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ - + 0.14776, 0.03320, 0.01307, 0.00089, 0.00019, - + 0.00011, 0.00058, 0.00101, - + 0.14137, 0.03155, 0.01202, 0.00085, 0.00018, - + 0.00010, 0.00054, 0.00092, - + 0.13552, 0.03005, 0.01111, 0.00081, 0.00018, - + 0.00008, 0.00049, 0.00081, - + 0.13011, 0.02868, 0.01031, 0.00070, 0.00018, - + 0.00008, 0.00047, 0.00076, - + 0.12509, 0.02742, 0.00960, 0.00063, 0.00018, - + 0.00009, 0.00046, 0.00071 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + 0.34789, 0.08725, 0.08307, 0.00190, 0.00001, - + 0.00007, 0.00067, 0.00216, - + 0.30996, 0.07585, 0.06310, 0.00152, 0.00001, - + 0.00003, 0.00070, 0.00199, - + 0.27929, 0.06697, 0.04952, 0.00141, 0.00001, - + 0.00007, 0.00073, 0.00188, - + 0.25415, 0.06005, 0.03998, 0.00139, 0.00001, - + 0.00002, 0.00071, 0.00149, - + 0.23318, 0.05422, 0.03302, 0.00118, 0.00002, - + 0.00002, 0.00064, 0.00142, - + 0.21539, 0.04942, 0.02776, 0.00114, 0.00006, - + 0.00001, 0.00061, 0.00129, - + 0.20027, 0.04538, 0.02371, 0.00107, 0.00010, - + 0.00003, 0.00061, 0.00112 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ - + 0.18663, 0.04195, 0.02047, 0.00109, 0.00010, - + 0.00002, 0.00051, 0.00098, - + 0.17472, 0.03891, 0.01788, 0.00101, 0.00010, - + 0.00001, 0.00046, 0.00087, - + 0.16435, 0.03621, 0.01577, 0.00085, 0.00011, - + 0.00002, 0.00044, 0.00084, - + 0.15506, 0.03385, 0.01402, 0.00073, 0.00012, - + 0.00005, 0.00042, 0.00085, - + 0.14650, 0.03174, 0.01256, 0.00076, 0.00011, - + 0.00005, 0.00042, 0.00076, - + 0.13866, 0.02990, 0.01134, 0.00080, 0.00013, - + 0.00003, 0.00039, 0.00067, - + 0.13179, 0.02822, 0.01029, 0.00073, 0.00014, - + 0.00003, 0.00037, 0.00062 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ - + 0.12580, 0.02666, 0.00940, 0.00055, 0.00013, - + 0.00005, 0.00035, 0.00061, - + 0.11992, 0.02529, 0.00863, 0.00055, 0.00014, - + 0.00004, 0.00031, 0.00055, - + 0.11452, 0.02405, 0.00795, 0.00057, 0.00013, - + 0.00003, 0.00029, 0.00049, - + 0.10970, 0.02287, 0.00736, 0.00047, 0.00012, - + 0.00003, 0.00027, 0.00049, - + 0.10524, 0.02178, 0.00683, 0.00040, 0.00011, - + 0.00003, 0.00026, 0.00048 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + 0.31257, 0.07367, 0.06381, 0.00095, 0.00001, - + 0.00001, 0.00037, 0.00153, - + 0.27561, 0.06356, 0.04786, 0.00110, 0.00001, - + 0.00005, 0.00041, 0.00114, - + 0.24679, 0.05572, 0.03721, 0.00089, 0.00001, - + 0.00007, 0.00038, 0.00124, - + 0.22307, 0.04957, 0.02978, 0.00088, 0.00001, - + 0.00002, 0.00044, 0.00105, - + 0.20313, 0.04457, 0.02442, 0.00099, 0.00001, - + 0.00002, 0.00038, 0.00095, - + 0.18690, 0.04044, 0.02040, 0.00090, 0.00000, - + 0.00002, 0.00038, 0.00071, - + 0.17258, 0.03697, 0.01729, 0.00085, 0.00001, - + 0.00001, 0.00034, 0.00070 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ - + 0.16048, 0.03397, 0.01486, 0.00076, 0.00001, - + 0.00001, 0.00032, 0.00061, - + 0.14961, 0.03135, 0.01291, 0.00077, 0.00004, - + 0.00001, 0.00029, 0.00050, - + 0.14000, 0.02908, 0.01134, 0.00073, 0.00006, - + 0.00001, 0.00027, 0.00047, - + 0.13161, 0.02712, 0.01006, 0.00061, 0.00009, - + 0.00003, 0.00026, 0.00047, - + 0.12412, 0.02538, 0.00898, 0.00054, 0.00007, - + 0.00003, 0.00025, 0.00049, - + 0.11732, 0.02380, 0.00808, 0.00043, 0.00008, - + 0.00004, 0.00024, 0.00047, - + 0.11121, 0.02238, 0.00732, 0.00034, 0.00008, - + 0.00004, 0.00023, 0.00043 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ - + 0.10567, 0.02111, 0.00666, 0.00030, 0.00010, - + 0.00003, 0.00024, 0.00037, - + 0.10044, 0.01996, 0.00610, 0.00032, 0.00009, - + 0.00003, 0.00023, 0.00035, - + 0.09568, 0.01893, 0.00561, 0.00035, 0.00008, - + 0.00004, 0.00021, 0.00034, - + 0.09135, 0.01796, 0.00518, 0.00030, 0.00008, - + 0.00003, 0.00019, 0.00032, - + 0.08739, 0.01709, 0.00481, 0.00026, 0.00008, - + 0.00002, 0.00018, 0.00031 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + 0.27775, 0.06166, 0.04845, 0.00067, 0.00001, - + 0.00009, 0.00009, 0.00081, - + 0.24296, 0.05256, 0.03586, 0.00060, 0.00001, - + 0.00005, 0.00021, 0.00081, - + 0.21511, 0.04590, 0.02751, 0.00096, 0.00001, - + 0.00005, 0.00022, 0.00046, - + 0.19303, 0.04040, 0.02185, 0.00076, 0.00001, - + 0.00004, 0.00021, 0.00061, - + 0.17528, 0.03607, 0.01775, 0.00061, 0.00001, - + 0.00006, 0.00022, 0.00047, - + 0.16027, 0.03255, 0.01472, 0.00041, 0.00001, - + 0.00006, 0.00019, 0.00049, - + 0.14731, 0.02958, 0.01241, 0.00048, 0.00002, - + 0.00004, 0.00021, 0.00046 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ - + 0.13615, 0.02708, 0.01061, 0.00048, 0.00004, - + 0.00001, 0.00021, 0.00038, - + 0.12661, 0.02490, 0.00917, 0.00037, 0.00008, - + 0.00003, 0.00020, 0.00032, - + 0.11801, 0.02302, 0.00802, 0.00033, 0.00007, - + 0.00003, 0.00019, 0.00033, - + 0.11030, 0.02138, 0.00708, 0.00034, 0.00005, - + 0.00002, 0.00018, 0.00033, - + 0.10374, 0.01990, 0.00630, 0.00030, 0.00007, - + 0.00003, 0.00018, 0.00028, - + 0.09766, 0.01862, 0.00566, 0.00028, 0.00008, - + 0.00004, 0.00019, 0.00026, - + 0.09221, 0.01746, 0.00511, 0.00024, 0.00008, - + 0.00004, 0.00017, 0.00027 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ - + 0.08731, 0.01641, 0.00464, 0.00018, 0.00006, - + 0.00003, 0.00014, 0.00030, - + 0.08286, 0.01548, 0.00424, 0.00016, 0.00004, - + 0.00003, 0.00014, 0.00027, - + 0.07880, 0.01464, 0.00389, 0.00014, 0.00004, - + 0.00003, 0.00014, 0.00024, - + 0.07499, 0.01385, 0.00359, 0.00018, 0.00006, - + 0.00003, 0.00013, 0.00019, - + 0.07153, 0.01313, 0.00332, 0.00018, 0.00006, - + 0.00003, 0.00013, 0.00017 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + 0.24363, 0.05050, 0.03616, 0.00020, 0.00001, - + 0.00001, 0.00011, 0.00064, - + 0.21020, 0.04275, 0.02638, 0.00058, 0.00001, - + 0.00007, 0.00010, 0.00043, - + 0.18553, 0.03685, 0.02003, 0.00022, 0.00001, - + 0.00004, 0.00016, 0.00041, - + 0.16530, 0.03234, 0.01573, 0.00027, 0.00001, - + 0.00005, 0.00015, 0.00030, - + 0.14900, 0.02868, 0.01268, 0.00015, 0.00002, - + 0.00002, 0.00018, 0.00034, - + 0.13511, 0.02575, 0.01044, 0.00024, 0.00003, - + 0.00000, 0.00020, 0.00037, - + 0.12373, 0.02328, 0.00875, 0.00017, 0.00006, - + 0.00000, 0.00018, 0.00033 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ - + 0.11392, 0.02119, 0.00744, 0.00015, 0.00005, - + 0.00001, 0.00014, 0.00028, - + 0.10533, 0.01941, 0.00641, 0.00011, 0.00007, - + 0.00001, 0.00013, 0.00026, - + 0.09784, 0.01787, 0.00558, 0.00009, 0.00008, - + 0.00002, 0.00013, 0.00024, - + 0.09122, 0.01652, 0.00490, 0.00012, 0.00006, - + 0.00003, 0.00013, 0.00019, - + 0.08522, 0.01534, 0.00436, 0.00017, 0.00007, - + 0.00003, 0.00010, 0.00018, - + 0.08008, 0.01427, 0.00390, 0.00009, 0.00006, - + 0.00002, 0.00011, 0.00014, - + 0.07542, 0.01334, 0.00351, 0.00004, 0.00005, - + 0.00002, 0.00013, 0.00011 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ - + 0.07115, 0.01252, 0.00318, 0.00007, 0.00005, - + 0.00002, 0.00011, 0.00009, - + 0.06725, 0.01177, 0.00290, 0.00008, 0.00007, - + 0.00003, 0.00010, 0.00009, - + 0.06373, 0.01110, 0.00266, 0.00007, 0.00007, - + 0.00003, 0.00009, 0.00009, - + 0.06059, 0.01048, 0.00244, 0.00001, 0.00005, - + 0.00002, 0.00007, 0.00010, - + 0.05769, 0.00993, 0.00226, 0.00001, 0.00005, - + 0.00002, 0.00006, 0.00010 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + 0.21093, 0.04119, 0.02669, 0.00049, 0.00001, - + 0.00011, 0.00001, 0.00028, - + 0.18109, 0.03447, 0.01920, 0.00024, 0.00001, - + 0.00008, 0.00003, 0.00026, - + 0.15780, 0.02952, 0.01443, 0.00030, 0.00001, - + 0.00005, 0.00002, 0.00028, - + 0.13985, 0.02566, 0.01124, 0.00017, 0.00001, - + 0.00005, 0.00004, 0.00025, - + 0.12514, 0.02263, 0.00900, 0.00013, 0.00001, - + 0.00004, 0.00007, 0.00022, - + 0.11301, 0.02021, 0.00737, 0.00018, 0.00002, - + 0.00003, 0.00008, 0.00016, - + 0.10282, 0.01816, 0.00615, 0.00018, 0.00001, - + 0.00003, 0.00007, 0.00011 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ - + 0.09406, 0.01649, 0.00520, 0.00014, 0.00003, - + 0.00001, 0.00007, 0.00012, - + 0.08661, 0.01503, 0.00446, 0.00016, 0.00002, - + 0.00000, 0.00007, 0.00012, - + 0.08018, 0.01376, 0.00387, 0.00012, 0.00001, - + 0.00000, 0.00008, 0.00011, - + 0.07454, 0.01268, 0.00340, 0.00004, 0.00002, - + 0.00000, 0.00008, 0.00011, - + 0.06950, 0.01174, 0.00301, 0.00002, 0.00005, - + 0.00001, 0.00010, 0.00012, - + 0.06499, 0.01090, 0.00268, 0.00004, 0.00003, - + 0.00001, 0.00007, 0.00012, - + 0.06096, 0.01015, 0.00241, 0.00005, 0.00003, - + 0.00001, 0.00006, 0.00010 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ - + 0.05734, 0.00950, 0.00218, 0.00003, 0.00002, - + 0.00001, 0.00006, 0.00009, - + 0.05405, 0.00891, 0.00198, 0.00004, 0.00002, - + 0.00000, 0.00006, 0.00009, - + 0.05108, 0.00837, 0.00181, 0.00006, 0.00004, - + 0.00000, 0.00006, 0.00008, - + 0.04833, 0.00789, 0.00167, 0.00010, 0.00004, - + 0.00001, 0.00006, 0.00007, - + 0.04585, 0.00745, 0.00154, 0.00011, 0.00004, - + 0.00002, 0.00006, 0.00005 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + 0.17976, 0.03267, 0.01921, 0.00012, 0.00001, - + 0.00003, 0.00001, 0.00023, - + 0.15272, 0.02717, 0.01370, 0.00019, 0.00001, - + 0.00004, 0.00001, 0.00017, - + 0.13247, 0.02309, 0.01022, 0.00007, 0.00001, - + 0.00005, 0.00001, 0.00011, - + 0.11623, 0.01999, 0.00790, 0.00019, 0.00001, - + 0.00002, 0.00002, 0.00011, - + 0.10335, 0.01755, 0.00627, 0.00019, 0.00001, - + 0.00002, 0.00003, 0.00004, - + 0.09286, 0.01558, 0.00510, 0.00018, 0.00001, - + 0.00001, 0.00002, 0.00008, - + 0.08418, 0.01395, 0.00423, 0.00012, 0.00001, - + 0.00002, 0.00002, 0.00005 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ - + 0.07671, 0.01259, 0.00357, 0.00011, 0.00001, - + 0.00000, 0.00004, 0.00008, - + 0.07036, 0.01144, 0.00305, 0.00006, 0.00002, - + 0.00000, 0.00004, 0.00009, - + 0.06481, 0.01046, 0.00264, 0.00004, 0.00001, - + 0.00001, 0.00003, 0.00008, - + 0.05991, 0.00961, 0.00231, 0.00007, 0.00001, - + 0.00001, 0.00002, 0.00007, - + 0.05566, 0.00886, 0.00204, 0.00006, 0.00001, - + 0.00001, 0.00000, 0.00006, - + 0.05191, 0.00820, 0.00181, 0.00004, 0.00001, - + 0.00000, 0.00001, 0.00007, - + 0.04854, 0.00762, 0.00162, 0.00004, 0.00001, - + 0.00000, 0.00002, 0.00009 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ - + 0.04550, 0.00711, 0.00147, 0.00007, 0.00001, - + 0.00001, 0.00002, 0.00006, - + 0.04279, 0.00663, 0.00133, 0.00005, 0.00001, - + 0.00000, 0.00001, 0.00006, - + 0.04035, 0.00622, 0.00122, 0.00004, 0.00001, - + 0.00001, 0.00001, 0.00006, - + 0.03814, 0.00585, 0.00111, 0.00002, 0.00001, - + 0.00001, 0.00001, 0.00005, - + 0.03613, 0.00552, 0.00103, 0.00002, 0.00001, - + 0.00001, 0.00001, 0.00005 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + 0.12416, 0.01946, 0.00935, 0.00003, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.10312, 0.01588, 0.00647, 0.00011, 0.00001, - + 0.00002, 0.00001, 0.00000, - + 0.08767, 0.01326, 0.00471, 0.00010, 0.00001, - + 0.00001, 0.00002, 0.00001, - + 0.07588, 0.01130, 0.00357, 0.00004, 0.00001, - + 0.00001, 0.00001, 0.00001, - + 0.06658, 0.00977, 0.00279, 0.00002, 0.00001, - + 0.00001, 0.00000, 0.00002, - + 0.05909, 0.00857, 0.00224, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00001, - + 0.05290, 0.00759, 0.00184, 0.00002, 0.00002, - + 0.00000, 0.00002, 0.00001 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ - + 0.04770, 0.00678, 0.00153, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00001, - + 0.04328, 0.00610, 0.00130, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00004, - + 0.03950, 0.00552, 0.00111, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00004, - + 0.03624, 0.00502, 0.00097, 0.00003, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.03342, 0.00460, 0.00085, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00001, - + 0.03088, 0.00422, 0.00075, 0.00003, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02866, 0.00391, 0.00067, 0.00003, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ - + 0.02672, 0.00362, 0.00060, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02497, 0.00335, 0.00054, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02340, 0.00313, 0.00049, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02197, 0.00292, 0.00045, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02067, 0.00274, 0.00041, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + 0.07915, 0.01062, 0.00410, 0.00005, 0.00001, - + 0.00002, 0.00001, 0.00001, - + 0.06445, 0.00847, 0.00275, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.05365, 0.00694, 0.00196, 0.00003, 0.00001, - + 0.00001, 0.00001, 0.00001, - + 0.04567, 0.00582, 0.00145, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00003, - + 0.03941, 0.00496, 0.00112, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.03453, 0.00429, 0.00088, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00001, - + 0.03052, 0.00376, 0.00072, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ - + 0.02719, 0.00332, 0.00059, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02444, 0.00295, 0.00050, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02208, 0.00265, 0.00042, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02005, 0.00239, 0.00036, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01832, 0.00216, 0.00032, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01680, 0.00198, 0.00028, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01548, 0.00181, 0.00025, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ - + 0.01432, 0.00166, 0.00022, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01329, 0.00154, 0.00020, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01237, 0.00142, 0.00018, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01154, 0.00132, 0.00017, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01079, 0.00123, 0.00015, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + 0.04508, 0.00507, 0.00154, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.03580, 0.00395, 0.00100, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00001, - + 0.02927, 0.00318, 0.00070, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02440, 0.00262, 0.00051, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02071, 0.00220, 0.00038, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.01785, 0.00187, 0.00030, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01558, 0.00161, 0.00024, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ - + 0.01372, 0.00140, 0.00020, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01218, 0.00124, 0.00016, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01088, 0.00110, 0.00014, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00979, 0.00099, 0.00012, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00884, 0.00089, 0.00010, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00806, 0.00080, 0.00009, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00737, 0.00072, 0.00008, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ - + 0.00675, 0.00067, 0.00007, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00622, 0.00060, 0.00006, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00574, 0.00056, 0.00006, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00531, 0.00051, 0.00005, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00494, 0.00047, 0.00005, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + 0.02188, 0.00201, 0.00046, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01684, 0.00152, 0.00029, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01339, 0.00119, 0.00020, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01094, 0.00098, 0.00014, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00910, 0.00079, 0.00010, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00770, 0.00065, 0.00008, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00660, 0.00057, 0.00006, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ - + 0.00572, 0.00049, 0.00005, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00500, 0.00042, 0.00004, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00441, 0.00036, 0.00004, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00393, 0.00031, 0.00003, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00351, 0.00028, 0.00003, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00316, 0.00025, 0.00002, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00285, 0.00022, 0.00002, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ - + 0.00260, 0.00019, 0.00002, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00237, 0.00018, 0.00002, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00217, 0.00017, 0.00002, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00199, 0.00015, 0.00001, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00184, 0.00014, 0.00001, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + 0.00198, 0.00011, 0.00001, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00141, 0.00008, 0.00001, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00106, 0.00006, 0.00001, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00080, 0.00004, 0.00000, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00063, 0.00004, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00051, 0.00003, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00042, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ - + 0.00035, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00030, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00026, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00022, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00019, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00016, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00015, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ - + 0.00013, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00010, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,5,10,0,0,10,10/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ - - - XSAVE=X - - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(53,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7) GO TO 31 - DO 30 K=1,19 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,8 - G(I)=ZEROD - IF(XXX.GE.ONED) GOTO 60 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) - - X=XSAVE - - RETURN - END diff --git a/PDF/spdf/sfdisdm.F b/PDF/spdf/sfdisdm.F deleted file mode 100644 index 6b9e4997c84..00000000000 --- a/PDF/spdf/sfdisdm.F +++ /dev/null @@ -1,1984 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:41 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:34 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFDISDM(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) - -C THIS IS THE NEW B--TYPE FIT "D-'" WITH UBAR < DBAR (230 MEV) -C IN THE ** DIS ** SCHEME - -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,20),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + 0.00783, 0.00469, 113.36284, 4.99856, 0.13350, - + 0.00000, 2.59293, 5.02028, - + 0.00828, 0.00483, 131.82452, 5.92056, 1.21986, - + 0.00002, 3.59897, 5.94280, - + 0.00869, 0.00498, 151.84360, 6.83898, 2.27842, - + 0.00000, 4.58917, 6.86165, - + 0.00908, 0.00512, 173.24471, 7.75136, 3.31266, - + 0.00002, 5.56407, 7.77444, - + 0.00944, 0.00525, 195.67310, 8.66962, 4.33841, - + 0.22312, 6.53754, 8.69308, - + 0.00979, 0.00538, 218.97154, 9.59438, 5.35948, - + 1.19609, 7.51180, 9.61820, - + 0.01012, 0.00552, 243.08543, 10.53078, 6.38328, - + 2.34336, 8.49317, 10.55492 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ - + 0.01044, 0.00564, 267.88794, 11.47977, 7.41220, - + 3.46835, 9.48333, 11.50425, - + 0.01075, 0.00577, 293.24634, 12.44047, 8.44644, - + 4.59493, 10.48191, 12.46524, - + 0.01104, 0.00589, 319.05518, 13.41234, 9.48631, - + 5.72057, 11.48886, 13.43743, - + 0.01133, 0.00601, 345.24023, 14.39477, 10.53190, - + 6.84680, 12.50388, 14.42020, - + 0.01160, 0.00613, 371.73511, 15.38583, 11.58189, - + 7.97259, 13.52535, 15.41153, - + 0.01187, 0.00624, 398.40186, 16.38243, 12.63374, - + 9.09607, 14.55050, 16.40844, - + 0.01214, 0.00635, 425.26733, 17.38764, 13.69083, - + 10.22076, 15.58251, 17.41394 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ - + 0.01239, 0.00645, 452.28052, 18.39935, 14.75138, - + 11.34535, 16.61946, 18.42594, - + 0.01264, 0.00657, 479.26636, 19.41307, 15.81131, - + 12.46604, 17.65709, 19.43997, - + 0.01288, 0.00667, 506.41284, 20.43520, 16.87714, - + 13.58954, 18.70181, 20.46239, - + 0.01312, 0.00677, 533.42773, 21.45621, 17.93974, - + 14.70706, 19.74434, 21.48370, - + 0.01335, 0.00688, 560.54785, 22.48378, 19.00680, - + 15.82642, 20.79234, 22.51157 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + 0.01082, 0.00618, 80.27979, 3.67535, 0.09632, - + 0.00000, 1.90005, 3.68793, - + 0.01141, 0.00641, 93.60218, 4.33152, 0.86836, - + 0.00000, 2.61510, 4.34439, - + 0.01196, 0.00661, 107.86386, 4.98281, 1.61841, - + 0.00000, 3.31665, 4.99589, - + 0.01246, 0.00681, 122.91040, 5.62700, 2.34845, - + 0.00001, 4.00458, 5.64030, - + 0.01294, 0.00701, 138.51329, 6.27222, 3.06940, - + 0.15652, 4.68842, 6.28572, - + 0.01340, 0.00720, 154.56238, 6.91877, 3.78380, - + 0.83751, 5.36959, 6.93247, - + 0.01384, 0.00738, 171.01872, 7.57011, 4.49672, - + 1.63737, 6.05238, 7.58398 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ - + 0.01426, 0.00757, 187.79849, 8.22688, 5.20980, - + 2.41790, 6.73793, 8.24095, - + 0.01468, 0.00774, 204.81499, 8.88842, 5.92313, - + 3.19589, 7.42595, 8.90268, - + 0.01506, 0.00791, 222.00338, 9.55446, 6.63707, - + 3.96968, 8.11651, 9.56891, - + 0.01544, 0.00807, 239.31991, 10.22467, 7.35177, - + 4.74047, 8.80948, 10.23928, - + 0.01581, 0.00823, 256.72212, 10.89766, 8.06628, - + 5.50756, 9.50373, 10.91245, - + 0.01616, 0.00839, 274.10981, 11.57118, 8.77870, - + 6.26951, 10.19718, 11.58613, - + 0.01651, 0.00855, 291.52754, 12.24780, 9.49186, - + 7.02928, 10.89252, 12.26293 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ - + 0.01683, 0.00870, 308.94037, 12.92613, 10.20458, - + 7.78604, 11.58849, 12.94140, - + 0.01716, 0.00885, 326.22138, 13.60267, 10.91368, - + 8.53678, 12.28173, 13.61813, - + 0.01748, 0.00899, 343.52923, 14.28270, 11.62449, - + 9.28704, 12.97754, 14.29830, - + 0.01780, 0.00914, 360.64104, 14.95888, 12.32996, - + 10.02994, 13.66874, 14.97465, - + 0.01810, 0.00927, 377.74969, 15.63737, 13.03628, - + 10.77185, 14.36152, 15.65332 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + 0.01493, 0.00816, 56.85426, 2.70330, 0.06946, - + 0.00000, 1.39316, 2.71073, - + 0.01571, 0.00849, 66.46410, 3.16990, 0.61767, - + 0.00000, 1.90097, 3.17747, - + 0.01643, 0.00879, 76.62157, 3.63133, 1.14867, - + 0.00001, 2.39756, 3.63904, - + 0.01710, 0.00909, 87.19536, 4.08570, 1.66349, - + 0.00001, 2.88252, 4.09353, - + 0.01774, 0.00936, 98.04134, 4.53858, 2.16968, - + 0.10972, 3.36237, 4.54654, - + 0.01835, 0.00963, 109.08383, 4.99007, 2.66893, - + 0.58597, 3.83804, 4.99814, - + 0.01893, 0.00989, 120.29666, 5.44254, 3.16472, - + 1.14314, 4.31247, 5.45070 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ - + 0.01948, 0.01014, 131.62527, 5.89642, 3.65821, - + 1.68411, 4.78641, 5.90469, - + 0.02002, 0.01039, 143.01680, 6.35125, 4.14949, - + 2.22076, 5.25972, 6.35962, - + 0.02053, 0.01062, 154.43156, 6.80690, 4.63884, - + 2.75198, 5.73247, 6.81538, - + 0.02103, 0.01085, 165.84703, 7.26325, 5.12648, - + 3.27876, 6.20469, 7.27182, - + 0.02151, 0.01108, 177.23659, 7.71936, 5.61179, - + 3.80066, 6.67562, 7.72802, - + 0.02197, 0.01129, 188.52869, 8.17351, 6.09330, - + 4.31651, 7.14365, 8.18228, - + 0.02243, 0.01151, 199.77345, 8.62790, 6.57340, - + 4.82886, 7.61110, 8.63682 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ - + 0.02287, 0.01172, 210.94688, 9.08158, 7.05127, - + 5.33710, 8.07706, 9.09058, - + 0.02329, 0.01192, 221.95897, 9.53192, 7.52450, - + 5.83896, 8.53903, 9.54103, - + 0.02371, 0.01211, 232.93710, 9.98312, 7.99734, - + 6.33889, 9.00123, 9.99232, - + 0.02412, 0.01231, 243.71588, 10.42962, 8.46443, - + 6.83158, 9.45817, 10.43888, - + 0.02451, 0.01250, 254.44711, 10.87630, 8.93067, - + 7.32211, 9.91481, 10.88567 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + 0.01801, 0.00961, 46.46518, 2.25933, 0.05740, - + 0.00000, 1.16250, 2.26507, - + 0.01893, 0.01002, 54.40184, 2.64137, 0.50593, - + 0.00000, 1.57799, 2.64722, - + 0.01978, 0.01039, 62.72838, 3.01834, 0.93957, - + 0.00000, 1.98349, 3.02429, - + 0.02057, 0.01076, 71.32774, 3.38855, 1.35902, - + 0.00000, 2.37852, 3.39462, - + 0.02132, 0.01110, 80.09055, 3.75648, 1.77037, - + 0.08910, 2.76831, 3.76264, - + 0.02203, 0.01142, 88.95720, 4.12214, 2.17491, - + 0.47528, 3.15358, 4.12838, - + 0.02271, 0.01174, 97.90706, 4.48747, 2.57552, - + 0.92601, 3.53670, 4.49380 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ - + 0.02336, 0.01204, 106.89930, 4.85278, 2.97309, - + 1.36230, 3.91828, 4.85920, - + 0.02399, 0.01234, 115.89411, 5.21774, 3.36772, - + 1.79388, 4.29820, 5.22424, - + 0.02460, 0.01263, 124.86358, 5.58227, 3.75968, - + 2.21988, 4.67657, 5.58886, - + 0.02519, 0.01291, 133.79310, 5.94634, 4.14922, - + 2.64118, 5.05351, 5.95302, - + 0.02575, 0.01318, 142.66317, 6.30919, 4.53583, - + 3.05743, 5.42834, 6.31594, - + 0.02630, 0.01344, 151.41555, 6.66937, 4.91829, - + 3.46764, 5.79977, 6.67619, - + 0.02683, 0.01370, 160.09943, 7.02889, 5.29871, - + 3.87411, 6.16985, 7.03580 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ - + 0.02734, 0.01395, 168.69634, 7.38693, 5.67646, - + 4.27633, 6.53784, 7.39392, - + 0.02785, 0.01419, 177.13248, 7.74131, 6.04946, - + 4.67237, 6.90162, 7.74837, - + 0.02833, 0.01444, 185.51928, 8.09569, 6.42147, - + 5.06613, 7.26490, 8.10283, - + 0.02880, 0.01467, 193.71811, 8.44534, 6.78786, - + 5.45308, 7.62301, 8.45257, - + 0.02927, 0.01489, 201.86036, 8.79452, 7.15296, - + 5.83766, 7.98023, 8.80182 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + 0.02056, 0.01082, 40.26817, 1.98972, 0.05014, - + 0.00000, 1.02275, 1.99472, - + 0.02160, 0.01128, 47.19662, 2.32112, 0.43906, - + 0.00000, 1.38302, 2.32622, - + 0.02255, 0.01172, 54.42696, 2.64761, 0.81458, - + 0.00000, 1.73414, 2.65281, - + 0.02344, 0.01212, 61.85147, 2.96763, 1.17718, - + 0.00000, 2.07554, 2.97293, - + 0.02428, 0.01251, 69.38116, 3.28500, 1.53208, - + 0.07684, 2.41178, 3.29039, - + 0.02507, 0.01290, 76.96577, 3.59972, 1.88044, - + 0.40958, 2.74341, 3.60520, - + 0.02584, 0.01326, 84.58859, 3.91345, 2.22467, - + 0.79724, 3.07246, 3.91900 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ - + 0.02657, 0.01361, 92.21600, 4.22646, 2.56556, - + 1.17169, 3.39949, 4.23210, - + 0.02729, 0.01396, 99.81659, 4.53846, 2.90321, - + 1.54130, 3.72439, 4.54419, - + 0.02796, 0.01429, 107.36899, 4.84945, 3.23791, - + 1.90541, 4.04729, 4.85525, - + 0.02862, 0.01460, 114.86278, 5.15939, 3.56987, - + 2.26477, 4.36830, 5.16526, - + 0.02925, 0.01491, 122.28268, 5.46766, 3.89868, - + 2.61913, 4.68691, 5.47361, - + 0.02986, 0.01521, 129.57832, 5.77302, 4.22328, - + 2.96762, 5.00195, 5.77904, - + 0.03046, 0.01550, 136.79765, 6.07726, 4.54559, - + 3.31231, 5.31527, 6.08334 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ - + 0.03104, 0.01579, 143.92532, 6.37970, 4.86506, - + 3.65280, 5.62628, 6.38586, - + 0.03160, 0.01607, 150.89703, 6.67843, 5.17989, - + 3.98739, 5.93311, 6.68466, - + 0.03214, 0.01634, 157.81467, 6.97673, 5.49342, - + 4.31957, 6.23907, 6.98302, - + 0.03267, 0.01660, 164.55515, 7.27043, 5.80159, - + 4.64533, 6.54005, 7.27679, - + 0.03319, 0.01686, 171.23663, 7.56334, 6.10828, - + 4.96866, 6.83990, 7.56976 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + 0.02279, 0.01185, 36.03723, 1.80307, 0.04516, - + 0.00000, 0.92615, 1.80764, - + 0.02392, 0.01236, 42.27234, 2.09982, 0.39332, - + 0.00000, 1.24868, 2.10452, - + 0.02497, 0.01286, 48.75197, 2.39182, 0.72912, - + 0.00000, 1.56263, 2.39661, - + 0.02594, 0.01331, 55.37572, 2.67759, 1.05293, - + 0.00001, 1.86748, 2.68249, - + 0.02685, 0.01375, 62.06821, 2.96051, 1.36941, - + 0.06850, 2.16722, 2.96551, - + 0.02773, 0.01417, 68.78519, 3.24061, 1.67953, - + 0.36487, 2.46238, 3.24569, - + 0.02856, 0.01457, 75.51291, 3.51929, 1.98549, - + 0.70970, 2.75475, 3.52446 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ - + 0.02937, 0.01497, 82.22302, 3.79687, 2.28797, - + 1.04220, 3.04481, 3.80212, - + 0.03014, 0.01534, 88.88927, 4.07306, 2.58708, - + 1.36987, 3.33251, 4.07840, - + 0.03088, 0.01571, 95.49414, 4.34789, 2.88309, - + 1.69214, 3.61796, 4.35331, - + 0.03160, 0.01606, 102.03079, 4.62135, 3.17623, - + 2.00972, 3.90129, 4.62684, - + 0.03229, 0.01640, 108.48605, 4.89292, 3.46614, - + 2.32239, 4.18206, 4.89848, - + 0.03295, 0.01675, 114.81557, 5.16141, 3.75184, - + 2.62935, 4.45919, 5.16705, - + 0.03360, 0.01707, 121.06581, 5.42857, 4.03514, - + 2.93256, 4.73444, 5.43428 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ - + 0.03423, 0.01738, 127.22301, 5.69378, 4.31556, - + 3.23166, 5.00729, 5.69956, - + 0.03484, 0.01769, 133.23058, 5.95530, 4.59145, - + 3.52509, 5.27602, 5.96114, - + 0.03543, 0.01799, 139.18147, 6.21615, 4.86592, - + 3.81609, 5.54370, 6.22207, - + 0.03601, 0.01828, 144.96507, 6.47256, 5.13525, - + 4.10101, 5.80659, 6.47853, - + 0.03658, 0.01857, 150.68996, 6.72799, 5.40300, - + 4.38349, 6.06820, 6.73403 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + 0.03130, 0.01577, 25.53156, 1.32994, 0.03270, - + 0.00000, 0.68224, 1.33450, - + 0.03280, 0.01650, 30.02258, 1.54021, 0.27934, - + 0.00000, 0.91068, 1.54493, - + 0.03418, 0.01719, 34.62773, 1.74624, 0.51634, - + 0.00000, 1.13218, 1.75109, - + 0.03547, 0.01784, 39.26733, 1.94686, 0.74385, - + 0.00000, 1.34623, 1.95185, - + 0.03668, 0.01844, 43.89818, 2.14443, 0.96513, - + 0.04789, 1.55563, 2.14954, - + 0.03783, 0.01902, 48.49229, 2.33892, 1.18086, - + 0.25451, 1.76073, 2.34414, - + 0.03894, 0.01959, 53.04248, 2.53136, 1.39257, - + 0.49388, 1.96278, 2.53669 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ - + 0.04000, 0.02013, 57.53278, 2.72192, 1.60074, - + 0.72340, 2.16214, 2.72736, - + 0.04101, 0.02065, 61.94952, 2.91049, 1.80550, - + 0.94839, 2.35879, 2.91604, - + 0.04199, 0.02116, 66.28516, 3.09710, 2.00709, - + 1.16851, 2.55288, 3.10275, - + 0.04292, 0.02164, 70.53885, 3.28183, 2.20573, - + 1.38435, 2.74455, 3.28757, - + 0.04383, 0.02212, 74.70436, 3.46435, 2.40121, - + 1.59580, 2.93354, 3.47017, - + 0.04470, 0.02256, 78.75093, 3.64379, 2.59280, - + 1.80225, 3.11903, 3.64969, - + 0.04555, 0.02302, 82.71915, 3.82153, 2.78196, - + 2.00528, 3.30246, 3.82752 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ - + 0.04637, 0.02344, 86.60075, 3.99718, 2.96835, - + 2.20466, 3.48348, 4.00325, - + 0.04717, 0.02386, 90.35558, 4.16945, 3.15079, - + 2.39925, 3.66082, 4.17560, - + 0.04794, 0.02427, 94.05588, 4.34067, 3.33165, - + 2.59153, 3.83684, 4.34689, - + 0.04870, 0.02467, 97.62140, 4.50806, 3.50817, - + 2.77879, 4.00878, 4.51435, - + 0.04943, 0.02506, 101.13344, 4.67428, 3.68308, - + 2.96385, 4.17933, 4.68062 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + 0.04287, 0.02113, 18.09737, 0.98498, 0.02384, - + 0.00000, 0.50552, 0.99097, - + 0.04485, 0.02216, 21.32814, 1.13348, 0.19822, - + 0.00000, 0.66696, 1.13970, - + 0.04669, 0.02310, 24.59242, 1.27824, 0.36507, - + 0.00000, 0.82278, 1.28465, - + 0.04839, 0.02399, 27.82928, 1.41844, 0.52442, - + 0.00000, 0.97254, 1.42504, - + 0.04999, 0.02484, 31.01701, 1.55569, 0.67856, - + 0.03339, 1.11824, 1.56246, - + 0.05150, 0.02565, 34.13919, 1.69000, 0.82800, - + 0.17704, 1.26010, 1.69693, - + 0.05296, 0.02642, 37.19345, 1.82208, 0.97382, - + 0.34266, 1.39904, 1.82917 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ - + 0.05435, 0.02716, 40.17247, 1.95208, 1.11638, - + 0.50050, 1.53532, 1.95931, - + 0.05568, 0.02789, 43.07063, 2.07996, 1.25580, - + 0.65434, 1.66897, 2.08733, - + 0.05696, 0.02857, 45.88628, 2.20579, 1.39230, - + 0.80400, 1.80013, 2.21328, - + 0.05819, 0.02923, 48.62247, 2.32965, 1.52609, - + 0.94996, 1.92895, 2.33727, - + 0.05937, 0.02988, 51.27676, 2.45136, 1.65706, - + 1.09217, 2.05529, 2.45910, - + 0.06052, 0.03050, 53.82848, 2.57030, 1.78466, - + 1.23020, 2.17856, 2.57814, - + 0.06162, 0.03109, 56.31184, 2.68756, 1.91007, - + 1.36531, 2.29987, 2.69551 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ - + 0.06269, 0.03168, 58.72153, 2.80286, 2.03306, - + 1.49735, 2.41901, 2.81091, - + 0.06373, 0.03224, 61.03021, 2.91529, 2.15274, - + 1.62549, 2.53507, 2.92344, - + 0.06473, 0.03280, 63.29239, 3.02662, 2.27096, - + 1.75162, 2.64984, 3.03486, - + 0.06571, 0.03333, 65.45084, 3.13482, 2.38568, - + 1.87376, 2.76129, 3.14314, - + 0.06666, 0.03386, 67.56570, 3.24187, 2.49895, - + 1.99403, 2.87144, 3.25028 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + 0.05146, 0.02518, 14.80340, 0.82900, 0.01988, - + 0.00000, 0.42604, 0.83633, - + 0.05380, 0.02641, 17.46556, 0.94989, 0.16209, - + 0.00000, 0.55763, 0.95749, - + 0.05596, 0.02757, 20.12881, 1.06734, 0.29770, - + 0.00000, 0.68420, 1.07517, - + 0.05795, 0.02864, 22.74222, 1.18065, 0.42679, - + 0.00000, 0.80543, 1.18871, - + 0.05982, 0.02965, 25.29341, 1.29117, 0.55124, - + 0.02698, 0.92294, 1.29944, - + 0.06162, 0.03062, 27.77130, 1.39889, 0.67144, - + 0.14286, 1.03693, 1.40735, - + 0.06332, 0.03156, 30.17592, 1.50442, 0.78829, - + 0.27603, 1.14815, 1.51307 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ - + 0.06495, 0.03245, 32.50339, 1.60789, 0.90212, - + 0.40245, 1.25681, 1.61671, - + 0.06650, 0.03331, 34.75139, 1.70928, 1.01305, - + 0.52521, 1.36299, 1.71826, - + 0.06800, 0.03413, 36.92084, 1.80868, 1.12127, - + 0.64421, 1.46680, 1.81780, - + 0.06943, 0.03494, 39.01585, 1.90619, 1.22697, - + 0.75985, 1.56843, 1.91546, - + 0.07081, 0.03569, 41.03569, 2.00166, 1.33010, - + 0.87214, 1.66775, 2.01107, - + 0.07214, 0.03644, 42.96425, 2.09460, 1.43021, - + 0.98073, 1.76428, 2.10414, - + 0.07343, 0.03715, 44.83162, 2.18596, 1.52830, - + 1.08669, 1.85902, 2.19562 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ - + 0.07467, 0.03785, 46.63419, 2.27552, 1.62421, - + 1.18992, 1.95176, 2.28529, - + 0.07588, 0.03852, 48.35025, 2.36251, 1.71722, - + 1.28974, 2.04177, 2.37240, - + 0.07704, 0.03918, 50.02550, 2.44845, 1.80886, - + 1.38777, 2.13058, 2.45846, - + 0.07818, 0.03981, 51.61328, 2.53165, 1.89747, - + 1.48235, 2.21648, 2.54175, - + 0.07928, 0.04042, 53.16382, 2.61380, 1.98477, - + 1.57527, 2.30122, 2.62401 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + 0.05857, 0.02856, 12.84036, 0.73448, 0.01748, - + 0.00000, 0.37814, 0.74301, - + 0.06118, 0.02996, 15.15948, 0.83891, 0.14043, - + 0.00000, 0.49189, 0.84773, - + 0.06359, 0.03128, 17.46109, 0.94006, 0.25741, - + 0.00000, 0.60101, 0.94917, - + 0.06583, 0.03251, 19.70105, 1.03738, 0.36845, - + 0.00000, 0.70526, 1.04672, - + 0.06792, 0.03367, 21.87273, 1.13203, 0.47522, - + 0.02317, 0.80600, 1.14159, - + 0.06992, 0.03479, 23.96823, 1.22399, 0.57808, - + 0.12249, 0.90346, 1.23377, - + 0.07183, 0.03585, 25.98907, 1.31380, 0.67777, - + 0.23637, 0.99824, 1.32377 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ - + 0.07364, 0.03686, 27.93349, 1.40161, 0.77460, - + 0.34414, 1.09061, 1.41177, - + 0.07538, 0.03784, 29.80106, 1.48739, 0.86871, - + 0.44850, 1.18059, 1.49772, - + 0.07704, 0.03878, 31.59392, 1.57124, 0.96027, - + 0.54937, 1.26832, 1.58174, - + 0.07864, 0.03967, 33.31693, 1.65328, 1.04948, - + 0.64714, 1.35397, 1.66394, - + 0.08018, 0.04054, 34.97005, 1.73340, 1.13628, - + 0.74183, 1.43746, 1.74419, - + 0.08165, 0.04138, 36.54018, 1.81114, 1.22030, - + 0.83313, 1.51837, 1.82207, - + 0.08309, 0.04219, 38.05452, 1.88738, 1.30243, - + 0.92201, 1.59759, 1.89845 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ - + 0.08447, 0.04297, 39.51041, 1.96194, 1.38257, - + 1.00841, 1.67495, 1.97315, - + 0.08580, 0.04374, 40.88936, 2.03418, 1.46006, - + 1.09173, 1.74985, 2.04550, - + 0.08709, 0.04446, 42.23164, 2.10540, 1.53628, - + 1.17340, 1.82359, 2.11684, - + 0.08835, 0.04518, 43.49719, 2.17415, 1.60978, - + 1.25197, 1.89473, 2.18570, - + 0.08957, 0.04588, 44.72981, 2.24190, 1.68205, - + 1.32903, 1.96476, 2.25357 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + 0.06462, 0.03167, 11.50222, 0.67221, 0.01579, - + 0.00000, 0.34616, 0.68127, - + 0.06748, 0.03324, 13.58566, 0.76527, 0.12547, - + 0.00001, 0.44759, 0.77467, - + 0.07011, 0.03470, 15.63766, 0.85522, 0.22961, - + 0.00001, 0.54470, 0.86491, - + 0.07254, 0.03607, 17.61949, 0.94153, 0.32825, - + 0.00002, 0.63723, 0.95150, - + 0.07484, 0.03736, 19.52823, 1.02524, 0.42286, - + 0.02056, 0.72643, 1.03546, - + 0.07701, 0.03859, 21.35942, 1.10634, 0.51374, - + 0.10845, 0.81247, 1.11678, - + 0.07908, 0.03976, 23.11586, 1.18533, 0.60162, - + 0.20903, 0.89595, 1.19599 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ - + 0.08106, 0.04089, 24.79561, 1.26235, 0.68677, - + 0.30394, 0.97707, 1.27319, - + 0.08295, 0.04196, 26.40141, 1.33738, 0.76930, - + 0.39562, 1.05589, 1.34843, - + 0.08475, 0.04299, 27.93648, 1.41056, 0.84943, - + 0.48403, 1.13259, 1.42178, - + 0.08649, 0.04398, 29.40570, 1.48198, 0.92731, - + 0.56952, 1.20727, 1.49337, - + 0.08814, 0.04494, 30.80994, 1.55156, 1.00292, - + 0.65212, 1.27988, 1.56310, - + 0.08974, 0.04586, 32.13626, 1.61893, 1.07594, - + 0.73159, 1.35011, 1.63061, - + 0.09130, 0.04674, 33.41130, 1.68485, 1.14719, - + 0.80880, 1.41872, 1.69668 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ - + 0.09279, 0.04760, 34.63304, 1.74916, 1.21653, - + 0.88368, 1.48557, 1.76113, - + 0.09423, 0.04843, 35.78522, 1.81129, 1.28341, - + 0.95570, 1.55010, 1.82339, - + 0.09564, 0.04923, 36.90384, 1.87244, 1.34908, - + 1.02618, 1.61354, 1.88467, - + 0.09699, 0.05000, 37.95329, 1.93137, 1.41227, - + 1.09385, 1.67461, 1.94370, - + 0.09830, 0.05076, 38.97290, 1.98934, 1.47434, - + 1.16012, 1.73466, 2.00179 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + 0.08761, 0.04400, 8.18436, 0.51440, 0.01144, - + 0.00000, 0.26597, 0.52639, - + 0.09134, 0.04619, 9.67033, 0.57888, 0.08796, - + 0.00000, 0.33658, 0.59127, - + 0.09478, 0.04820, 11.09429, 0.64068, 0.16007, - + 0.00001, 0.40361, 0.65342, - + 0.09797, 0.05008, 12.43272, 0.69945, 0.22783, - + 0.00001, 0.46696, 0.71251, - + 0.10093, 0.05184, 13.69332, 0.75593, 0.29227, - + 0.01404, 0.52749, 0.76928, - + 0.10375, 0.05350, 14.87773, 0.81013, 0.35362, - + 0.07376, 0.58533, 0.82374, - + 0.10643, 0.05510, 15.99150, 0.86243, 0.41244, - + 0.14159, 0.64096, 0.87629 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ - + 0.10898, 0.05659, 17.03688, 0.91293, 0.46894, - + 0.20499, 0.69451, 0.92703, - + 0.11139, 0.05803, 18.01881, 0.96172, 0.52325, - + 0.26570, 0.74611, 0.97602, - + 0.11370, 0.05939, 18.94221, 1.00888, 0.57554, - + 0.32377, 0.79588, 1.02338, - + 0.11591, 0.06070, 19.81262, 1.05452, 0.62596, - + 0.37946, 0.84396, 1.06921, - + 0.11803, 0.06195, 20.63210, 1.09863, 0.67453, - + 0.43285, 0.89034, 1.11349, - + 0.12006, 0.06315, 21.39287, 1.14095, 0.72106, - + 0.48379, 0.93480, 1.15597, - + 0.12202, 0.06430, 22.11525, 1.18207, 0.76613, - + 0.53293, 0.97794, 1.19725 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ - + 0.12390, 0.06541, 22.79848, 1.22190, 0.80971, - + 0.58027, 1.01968, 1.23723, - + 0.12572, 0.06647, 23.43222, 1.26005, 0.85140, - + 0.62544, 1.05963, 1.27552, - + 0.12748, 0.06751, 24.04205, 1.29739, 0.89211, - + 0.66940, 1.09869, 1.31299, - + 0.12916, 0.06850, 24.60417, 1.33305, 0.93096, - + 0.71127, 1.13597, 1.34876, - + 0.13081, 0.06947, 25.14577, 1.36795, 0.96894, - + 0.75207, 1.17244, 1.38380 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + 0.11846, 0.06208, 5.84701, 0.40210, 0.00805, - + 0.00001, 0.20896, 0.41769, - + 0.12332, 0.06506, 6.89168, 0.44579, 0.06069, - + 0.00001, 0.25725, 0.46182, - + 0.12777, 0.06781, 7.85723, 0.48722, 0.10985, - + 0.00002, 0.30265, 0.50365, - + 0.13188, 0.07031, 8.73285, 0.52620, 0.15559, - + 0.00002, 0.34509, 0.54296, - + 0.13571, 0.07264, 9.53477, 0.56324, 0.19863, - + 0.00943, 0.38521, 0.58031, - + 0.13931, 0.07483, 10.26739, 0.59836, 0.23917, - + 0.04923, 0.42311, 0.61569, - + 0.14271, 0.07689, 10.93883, 0.63182, 0.27762, - + 0.09400, 0.45914, 0.64940 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ - + 0.14594, 0.07883, 11.55508, 0.66375, 0.31412, - + 0.13534, 0.49341, 0.68158, - + 0.14899, 0.08065, 12.11970, 0.69430, 0.34889, - + 0.17456, 0.52613, 0.71233, - + 0.15189, 0.08239, 12.63923, 0.72350, 0.38204, - + 0.21166, 0.55735, 0.74172, - + 0.15465, 0.08404, 13.11969, 0.75144, 0.41367, - + 0.24689, 0.58717, 0.76984, - + 0.15728, 0.08562, 13.56279, 0.77818, 0.44388, - + 0.28037, 0.61569, 0.79674, - + 0.15979, 0.08710, 13.96378, 0.80355, 0.47249, - + 0.31196, 0.64272, 0.82226, - + 0.16221, 0.08853, 14.33820, 0.82796, 0.49999, - + 0.34219, 0.66872, 0.84682 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ - + 0.16453, 0.08988, 14.68612, 0.85141, 0.52637, - + 0.37108, 0.69367, 0.87040, - + 0.16673, 0.09119, 15.00078, 0.87362, 0.55134, - + 0.39837, 0.71728, 0.89274, - + 0.16886, 0.09244, 15.29998, 0.89520, 0.57556, - + 0.42475, 0.74021, 0.91443, - + 0.17092, 0.09363, 15.56985, 0.91560, 0.59847, - + 0.44966, 0.76190, 0.93494, - + 0.17291, 0.09479, 15.82652, 0.93543, 0.62072, - + 0.47379, 0.78295, 0.95488 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + 0.14123, 0.07620, 4.81657, 0.35055, 0.00631, - + 0.00001, 0.18293, 0.36854, - + 0.14689, 0.07974, 5.65548, 0.38480, 0.04825, - + 0.00001, 0.22116, 0.40325, - + 0.15207, 0.08295, 6.41075, 0.41705, 0.08717, - + 0.00001, 0.25685, 0.43588, - + 0.15682, 0.08588, 7.07913, 0.44717, 0.12314, - + 0.00003, 0.28998, 0.46634, - + 0.16122, 0.08858, 7.67787, 0.47552, 0.15672, - + 0.00738, 0.32102, 0.49498, - + 0.16535, 0.09108, 8.21503, 0.50216, 0.18811, - + 0.03837, 0.35010, 0.52190, - + 0.16923, 0.09341, 8.69875, 0.52736, 0.21766, - + 0.07303, 0.37753, 0.54733 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ - + 0.17287, 0.09562, 9.13327, 0.55122, 0.24555, - + 0.10479, 0.40348, 0.57139, - + 0.17632, 0.09767, 9.52586, 0.57382, 0.27187, - + 0.13467, 0.42798, 0.59418, - + 0.17958, 0.09960, 9.88058, 0.59525, 0.29678, - + 0.16273, 0.45120, 0.61578, - + 0.18268, 0.10143, 10.20232, 0.61562, 0.32043, - + 0.18921, 0.47325, 0.63632, - + 0.18563, 0.10316, 10.49513, 0.63497, 0.34285, - + 0.21422, 0.49419, 0.65582, - + 0.18842, 0.10478, 10.75471, 0.65318, 0.36395, - + 0.23766, 0.51386, 0.67414, - + 0.19109, 0.10634, 10.99390, 0.67061, 0.38412, - + 0.25996, 0.53269, 0.69169 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ - + 0.19365, 0.10782, 11.21303, 0.68725, 0.40335, - + 0.28117, 0.55066, 0.70844, - + 0.19609, 0.10922, 11.40742, 0.70285, 0.42143, - + 0.30106, 0.56753, 0.72416, - + 0.19845, 0.11057, 11.59032, 0.71795, 0.43889, - + 0.32021, 0.58383, 0.73935, - + 0.20068, 0.11185, 11.74983, 0.73208, 0.45527, - + 0.33815, 0.59910, 0.75356, - + 0.20285, 0.11309, 11.90003, 0.74575, 0.47111, - + 0.35545, 0.61388, 0.76731 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + 0.15999, 0.08821, 4.20492, 0.31892, 0.00510, - + 0.00001, 0.16695, 0.33870, - + 0.16629, 0.09216, 4.91633, 0.34744, 0.04063, - + 0.00001, 0.19910, 0.36768, - + 0.17204, 0.09574, 5.54333, 0.37413, 0.07343, - + 0.00001, 0.22896, 0.39474, - + 0.17730, 0.09895, 6.08681, 0.39891, 0.10359, - + 0.00002, 0.25650, 0.41985, - + 0.18212, 0.10190, 6.56528, 0.42207, 0.13156, - + 0.00616, 0.28213, 0.44328, - + 0.18664, 0.10461, 6.98754, 0.44366, 0.15754, - + 0.03192, 0.30599, 0.46512, - + 0.19088, 0.10713, 7.36174, 0.46395, 0.18186, - + 0.06059, 0.32835, 0.48561 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ - + 0.19482, 0.10947, 7.69255, 0.48304, 0.20467, - + 0.08669, 0.34934, 0.50486, - + 0.19853, 0.11166, 7.98688, 0.50098, 0.22608, - + 0.11110, 0.36906, 0.52296, - + 0.20206, 0.11371, 8.24886, 0.51787, 0.24623, - + 0.13390, 0.38761, 0.54001, - + 0.20539, 0.11562, 8.48311, 0.53382, 0.26523, - + 0.15530, 0.40514, 0.55612, - + 0.20855, 0.11743, 8.69319, 0.54890, 0.28319, - + 0.17540, 0.42169, 0.57130, - + 0.21152, 0.11912, 8.87573, 0.56298, 0.29996, - + 0.19414, 0.43714, 0.58548, - + 0.21435, 0.12073, 9.04169, 0.57639, 0.31594, - + 0.21190, 0.45185, 0.59897 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ - + 0.21706, 0.12227, 9.19145, 0.58911, 0.33109, - + 0.22870, 0.46581, 0.61178, - + 0.21964, 0.12370, 9.32139, 0.60096, 0.34527, - + 0.24439, 0.47884, 0.62372, - + 0.22213, 0.12508, 9.44241, 0.61236, 0.35890, - + 0.25943, 0.49138, 0.63521, - + 0.22447, 0.12639, 9.54491, 0.62296, 0.37162, - + 0.27345, 0.50306, 0.64586, - + 0.22673, 0.12765, 9.64039, 0.63319, 0.38388, - + 0.28692, 0.51431, 0.65613 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + 0.17608, 0.09870, 3.78909, 0.29620, 0.00414, - + 0.00004, 0.15561, 0.31727, - + 0.18297, 0.10300, 4.41062, 0.32081, 0.03534, - + 0.00003, 0.18362, 0.34235, - + 0.18922, 0.10685, 4.94869, 0.34376, 0.06403, - + 0.00004, 0.20953, 0.36566, - + 0.19487, 0.11031, 5.40636, 0.36490, 0.09024, - + 0.00003, 0.23327, 0.38707, - + 0.20007, 0.11343, 5.80367, 0.38455, 0.11446, - + 0.00536, 0.25527, 0.40697, - + 0.20490, 0.11629, 6.14841, 0.40277, 0.13686, - + 0.02759, 0.27562, 0.42542, - + 0.20940, 0.11891, 6.44982, 0.41972, 0.15766, - + 0.05218, 0.29454, 0.44256 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ - + 0.21361, 0.12135, 6.71309, 0.43557, 0.17707, - + 0.07446, 0.31221, 0.45857, - + 0.21754, 0.12361, 6.94215, 0.45040, 0.19522, - + 0.09521, 0.32874, 0.47353, - + 0.22124, 0.12572, 7.14344, 0.46429, 0.21221, - + 0.11449, 0.34422, 0.48755, - + 0.22472, 0.12769, 7.32200, 0.47733, 0.22817, - + 0.13250, 0.35872, 0.50069, - + 0.22801, 0.12954, 7.47954, 0.48957, 0.24314, - + 0.14934, 0.37236, 0.51300, - + 0.23113, 0.13126, 7.61383, 0.50091, 0.25709, - + 0.16497, 0.38503, 0.52445, - + 0.23410, 0.13288, 7.73413, 0.51165, 0.27031, - + 0.17973, 0.39703, 0.53527 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ - + 0.23691, 0.13441, 7.84075, 0.52179, 0.28279, - + 0.19364, 0.40836, 0.54549, - + 0.23955, 0.13585, 7.93079, 0.53119, 0.29442, - + 0.20656, 0.41887, 0.55492, - + 0.24208, 0.13723, 8.01371, 0.54019, 0.30556, - + 0.21892, 0.42896, 0.56397, - + 0.24450, 0.13853, 8.08165, 0.54851, 0.31590, - + 0.23038, 0.43829, 0.57232, - + 0.24683, 0.13976, 8.14413, 0.55648, 0.32584, - + 0.24138, 0.44725, 0.58034 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + 0.23820, 0.13968, 2.76158, 0.23526, 0.00112, - + 0.00001, 0.12497, 0.26085, - + 0.24698, 0.14483, 3.14364, 0.24978, 0.02153, - + 0.00002, 0.14246, 0.27562, - + 0.25474, 0.14929, 3.45111, 0.26301, 0.03992, - + 0.00002, 0.15829, 0.28902, - + 0.26166, 0.15312, 3.69408, 0.27486, 0.05639, - + 0.00001, 0.17246, 0.30101, - + 0.26792, 0.15647, 3.89128, 0.28560, 0.07132, - + 0.00331, 0.18532, 0.31185, - + 0.27355, 0.15946, 4.05216, 0.29526, 0.08480, - + 0.01681, 0.19689, 0.32157, - + 0.27869, 0.16211, 4.18312, 0.30400, 0.09709, - + 0.03151, 0.20740, 0.33033 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ - + 0.28341, 0.16449, 4.28890, 0.31195, 0.10833, - + 0.04454, 0.21699, 0.33831, - + 0.28777, 0.16666, 4.37443, 0.31919, 0.11863, - + 0.05646, 0.22574, 0.34554, - + 0.29180, 0.16863, 4.44350, 0.32578, 0.12811, - + 0.06736, 0.23378, 0.35211, - + 0.29553, 0.17042, 4.49922, 0.33180, 0.13685, - + 0.07738, 0.24115, 0.35810, - + 0.29902, 0.17203, 4.54317, 0.33728, 0.14490, - + 0.08657, 0.24789, 0.36356, - + 0.30224, 0.17352, 4.57534, 0.34224, 0.15228, - + 0.09499, 0.25406, 0.36846, - + 0.30525, 0.17490, 4.60048, 0.34683, 0.15915, - + 0.10282, 0.25977, 0.37299 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ - + 0.30808, 0.17617, 4.61870, 0.35102, 0.16554, - + 0.11009, 0.26503, 0.37713, - + 0.31071, 0.17733, 4.62927, 0.35477, 0.17137, - + 0.11673, 0.26979, 0.38083, - + 0.31322, 0.17842, 4.63718, 0.35828, 0.17688, - + 0.12300, 0.27429, 0.38430, - + 0.31553, 0.17940, 4.63799, 0.36140, 0.18192, - + 0.12873, 0.27833, 0.38737, - + 0.31775, 0.18032, 4.63702, 0.36434, 0.18668, - + 0.13417, 0.28216, 0.39025 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + 0.32378, 0.19344, 2.02602, 0.18065, 0.00001, - + 0.00013, 0.09672, 0.20947, - + 0.33408, 0.19828, 2.21553, 0.18760, 0.01073, - + 0.00010, 0.10656, 0.21627, - + 0.34280, 0.20212, 2.34974, 0.19368, 0.02193, - + 0.00010, 0.11512, 0.22214, - + 0.35019, 0.20519, 2.44077, 0.19883, 0.03171, - + 0.00009, 0.12248, 0.22704, - + 0.35657, 0.20767, 2.50405, 0.20319, 0.04024, - + 0.00174, 0.12888, 0.23123, - + 0.36212, 0.20966, 2.54612, 0.20688, 0.04773, - + 0.00923, 0.13440, 0.23464, - + 0.36694, 0.21128, 2.57231, 0.21000, 0.05438, - + 0.01724, 0.13922, 0.23754 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ - + 0.37122, 0.21262, 2.58620, 0.21261, 0.06026, - + 0.02415, 0.14338, 0.23995, - + 0.37495, 0.21374, 2.59060, 0.21486, 0.06551, - + 0.03029, 0.14706, 0.24189, - + 0.37827, 0.21466, 2.58795, 0.21675, 0.07021, - + 0.03579, 0.15027, 0.24351, - + 0.38129, 0.21540, 2.58009, 0.21833, 0.07442, - + 0.04073, 0.15309, 0.24486, - + 0.38400, 0.21600, 2.56781, 0.21960, 0.07820, - + 0.04515, 0.15556, 0.24588, - + 0.38636, 0.21647, 2.55110, 0.22060, 0.08157, - + 0.04907, 0.15769, 0.24668, - + 0.38851, 0.21683, 2.53267, 0.22142, 0.08465, - + 0.05268, 0.15958, 0.24731 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ - + 0.39049, 0.21707, 2.51257, 0.22210, 0.08744, - + 0.05603, 0.16125, 0.24778, - + 0.39218, 0.21724, 2.49006, 0.22256, 0.08992, - + 0.05899, 0.16267, 0.24803, - + 0.39376, 0.21737, 2.46764, 0.22294, 0.09221, - + 0.06173, 0.16397, 0.24819, - + 0.39512, 0.21741, 2.44285, 0.22314, 0.09420, - + 0.06415, 0.16500, 0.24815, - + 0.39639, 0.21741, 2.41859, 0.22327, 0.09608, - + 0.06642, 0.16593, 0.24807 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + 0.38705, 0.22791, 1.67848, 0.14817, 0.00001, - + 0.00002, 0.07975, 0.17740, - + 0.39714, 0.23124, 1.77422, 0.15178, 0.00586, - + 0.00000, 0.08615, 0.18044, - + 0.40537, 0.23349, 1.83018, 0.15457, 0.01406, - + 0.00001, 0.09157, 0.18286, - + 0.41189, 0.23492, 1.85716, 0.15680, 0.02090, - + 0.00002, 0.09599, 0.18462, - + 0.41715, 0.23594, 1.86716, 0.15850, 0.02683, - + 0.00123, 0.09964, 0.18582, - + 0.42144, 0.23646, 1.86508, 0.15973, 0.03186, - + 0.00619, 0.10264, 0.18656, - + 0.42496, 0.23665, 1.85443, 0.16060, 0.03618, - + 0.01140, 0.10512, 0.18697 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ - + 0.42793, 0.23655, 1.83759, 0.16113, 0.03992, - + 0.01584, 0.10718, 0.18712, - + 0.43030, 0.23631, 1.81657, 0.16148, 0.04316, - + 0.01967, 0.10886, 0.18701, - + 0.43222, 0.23596, 1.79276, 0.16159, 0.04604, - + 0.02302, 0.11022, 0.18672, - + 0.43384, 0.23548, 1.76724, 0.16149, 0.04858, - + 0.02601, 0.11135, 0.18631, - + 0.43512, 0.23490, 1.74053, 0.16129, 0.05078, - + 0.02866, 0.11228, 0.18575, - + 0.43608, 0.23422, 1.71261, 0.16099, 0.05269, - + 0.03102, 0.11295, 0.18505, - + 0.43689, 0.23348, 1.68484, 0.16057, 0.05439, - + 0.03311, 0.11349, 0.18431 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ - + 0.43756, 0.23268, 1.65711, 0.16004, 0.05591, - + 0.03494, 0.11394, 0.18350, - + 0.43793, 0.23184, 1.62902, 0.15943, 0.05720, - + 0.03656, 0.11422, 0.18259, - + 0.43821, 0.23100, 1.60202, 0.15880, 0.05836, - + 0.03806, 0.11442, 0.18168, - + 0.43830, 0.23011, 1.57470, 0.15811, 0.05936, - + 0.03941, 0.11448, 0.18069, - + 0.43833, 0.22924, 1.54849, 0.15741, 0.06027, - + 0.04063, 0.11450, 0.17971 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + 0.43754, 0.25071, 1.44890, 0.12407, 0.00001, - + 0.00006, 0.06695, 0.15239, - + 0.44643, 0.25192, 1.48757, 0.12565, 0.00304, - + 0.00007, 0.07142, 0.15331, - + 0.45299, 0.25224, 1.49868, 0.12675, 0.00944, - + 0.00005, 0.07501, 0.15362, - + 0.45766, 0.25202, 1.49133, 0.12745, 0.01469, - + 0.00005, 0.07775, 0.15348, - + 0.46120, 0.25124, 1.47410, 0.12771, 0.01908, - + 0.00094, 0.07989, 0.15309, - + 0.46372, 0.25007, 1.45070, 0.12757, 0.02273, - + 0.00452, 0.08151, 0.15255, - + 0.46532, 0.24883, 1.42331, 0.12732, 0.02577, - + 0.00814, 0.08274, 0.15166 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ - + 0.46644, 0.24736, 1.39353, 0.12684, 0.02841, - + 0.01115, 0.08368, 0.15060, - + 0.46700, 0.24584, 1.36263, 0.12626, 0.03062, - + 0.01379, 0.08435, 0.14943, - + 0.46725, 0.24422, 1.33144, 0.12553, 0.03252, - + 0.01606, 0.08483, 0.14823, - + 0.46724, 0.24251, 1.30051, 0.12473, 0.03417, - + 0.01802, 0.08513, 0.14703, - + 0.46685, 0.24086, 1.26997, 0.12397, 0.03554, - + 0.01976, 0.08529, 0.14573, - + 0.46631, 0.23911, 1.23963, 0.12294, 0.03670, - + 0.02121, 0.08532, 0.14449, - + 0.46558, 0.23742, 1.21047, 0.12196, 0.03773, - + 0.02250, 0.08526, 0.14315 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ - + 0.46464, 0.23581, 1.18233, 0.12105, 0.03865, - + 0.02364, 0.08514, 0.14168, - + 0.46358, 0.23409, 1.15475, 0.12003, 0.03938, - + 0.02464, 0.08489, 0.14035, - + 0.46252, 0.23242, 1.12862, 0.11902, 0.04002, - + 0.02556, 0.08461, 0.13907, - + 0.46130, 0.23070, 1.10297, 0.11796, 0.04056, - + 0.02632, 0.08428, 0.13771, - + 0.46006, 0.22903, 1.07864, 0.11692, 0.04104, - + 0.02702, 0.08396, 0.13640 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + 0.47903, 0.26552, 1.27311, 0.10469, 0.00001, - + 0.00008, 0.05621, 0.13136, - + 0.48576, 0.26441, 1.27403, 0.10503, 0.00117, - + 0.00009, 0.05940, 0.13069, - + 0.49006, 0.26265, 1.25719, 0.10506, 0.00625, - + 0.00007, 0.06171, 0.12988, - + 0.49229, 0.26058, 1.22963, 0.10478, 0.01041, - + 0.00008, 0.06340, 0.12858, - + 0.49351, 0.25812, 1.19756, 0.10420, 0.01376, - + 0.00068, 0.06463, 0.12725, - + 0.49369, 0.25553, 1.16335, 0.10347, 0.01649, - + 0.00333, 0.06545, 0.12575, - + 0.49327, 0.25276, 1.12824, 0.10250, 0.01876, - + 0.00596, 0.06597, 0.12423 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ - + 0.49233, 0.24994, 1.09321, 0.10152, 0.02065, - + 0.00814, 0.06626, 0.12264, - + 0.49102, 0.24717, 1.05890, 0.10040, 0.02224, - + 0.01001, 0.06640, 0.12100, - + 0.48934, 0.24448, 1.02570, 0.09927, 0.02355, - + 0.01159, 0.06639, 0.11938, - + 0.48742, 0.24182, 0.99387, 0.09819, 0.02463, - + 0.01294, 0.06626, 0.11780, - + 0.48543, 0.23913, 0.96340, 0.09702, 0.02555, - + 0.01414, 0.06601, 0.11627, - + 0.48317, 0.23655, 0.93397, 0.09585, 0.02637, - + 0.01512, 0.06571, 0.11459, - + 0.48087, 0.23404, 0.90616, 0.09472, 0.02703, - + 0.01598, 0.06537, 0.11298 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ - + 0.47851, 0.23154, 0.87977, 0.09361, 0.02755, - + 0.01672, 0.06497, 0.11147, - + 0.47604, 0.22911, 0.85445, 0.09246, 0.02798, - + 0.01734, 0.06453, 0.10994, - + 0.47360, 0.22678, 0.83069, 0.09133, 0.02834, - + 0.01791, 0.06409, 0.10846, - + 0.47107, 0.22445, 0.80782, 0.09019, 0.02866, - + 0.01836, 0.06359, 0.10706, - + 0.46857, 0.22222, 0.78629, 0.08909, 0.02895, - + 0.01878, 0.06311, 0.10568 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + 0.51941, 0.27470, 1.09500, 0.08511, 0.00001, - + 0.00011, 0.04574, 0.10917, - + 0.52229, 0.27080, 1.06534, 0.08460, 0.00001, - + 0.00007, 0.04781, 0.10749, - + 0.52278, 0.26660, 1.02751, 0.08390, 0.00398, - + 0.00010, 0.04926, 0.10553, - + 0.52192, 0.26203, 0.98597, 0.08276, 0.00715, - + 0.00007, 0.05009, 0.10376, - + 0.51991, 0.25765, 0.94460, 0.08168, 0.00962, - + 0.00055, 0.05061, 0.10185, - + 0.51720, 0.25323, 0.90446, 0.08041, 0.01166, - + 0.00240, 0.05084, 0.09988, - + 0.51380, 0.24902, 0.86598, 0.07916, 0.01328, - + 0.00428, 0.05083, 0.09795 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ - + 0.51016, 0.24493, 0.82946, 0.07788, 0.01459, - + 0.00575, 0.05071, 0.09594, - + 0.50633, 0.24089, 0.79505, 0.07663, 0.01567, - + 0.00695, 0.05045, 0.09399, - + 0.50236, 0.23699, 0.76276, 0.07532, 0.01653, - + 0.00800, 0.05007, 0.09221, - + 0.49832, 0.23327, 0.73257, 0.07400, 0.01720, - + 0.00890, 0.04965, 0.09050, - + 0.49415, 0.22975, 0.70432, 0.07283, 0.01775, - + 0.00962, 0.04921, 0.08875, - + 0.48999, 0.22627, 0.67772, 0.07158, 0.01824, - + 0.01026, 0.04873, 0.08701, - + 0.48589, 0.22292, 0.65298, 0.07034, 0.01865, - + 0.01080, 0.04823, 0.08540 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ - + 0.48187, 0.21967, 0.62985, 0.06909, 0.01897, - + 0.01125, 0.04771, 0.08392, - + 0.47769, 0.21659, 0.60792, 0.06800, 0.01920, - + 0.01164, 0.04718, 0.08239, - + 0.47363, 0.21364, 0.58752, 0.06695, 0.01938, - + 0.01199, 0.04666, 0.08090, - + 0.46965, 0.21075, 0.56824, 0.06582, 0.01948, - + 0.01224, 0.04612, 0.07956, - + 0.46577, 0.20799, 0.55024, 0.06475, 0.01957, - + 0.01247, 0.04559, 0.07824 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + 0.54929, 0.27613, 0.94589, 0.06900, 0.00001, - + 0.00016, 0.03716, 0.09060, - + 0.54748, 0.26969, 0.89751, 0.06820, 0.00001, - + 0.00017, 0.03860, 0.08809, - + 0.54403, 0.26305, 0.84810, 0.06691, 0.00246, - + 0.00018, 0.03938, 0.08593, - + 0.53927, 0.25671, 0.80009, 0.06575, 0.00492, - + 0.00012, 0.03977, 0.08356, - + 0.53384, 0.25076, 0.75528, 0.06440, 0.00689, - + 0.00045, 0.03985, 0.08129, - + 0.52793, 0.24495, 0.71393, 0.06302, 0.00836, - + 0.00180, 0.03967, 0.07924, - + 0.52182, 0.23942, 0.67574, 0.06163, 0.00957, - + 0.00312, 0.03938, 0.07718 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ - + 0.51565, 0.23413, 0.64056, 0.06017, 0.01051, - + 0.00411, 0.03904, 0.07522, - + 0.50940, 0.22918, 0.60823, 0.05883, 0.01121, - + 0.00497, 0.03860, 0.07330, - + 0.50321, 0.22445, 0.57857, 0.05756, 0.01177, - + 0.00568, 0.03815, 0.07144, - + 0.49713, 0.21995, 0.55131, 0.05629, 0.01222, - + 0.00626, 0.03770, 0.06967, - + 0.49111, 0.21573, 0.52613, 0.05506, 0.01264, - + 0.00680, 0.03715, 0.06798, - + 0.48518, 0.21162, 0.50286, 0.05391, 0.01288, - + 0.00719, 0.03660, 0.06642, - + 0.47939, 0.20772, 0.48150, 0.05280, 0.01308, - + 0.00755, 0.03604, 0.06494 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ - + 0.47371, 0.20401, 0.46179, 0.05170, 0.01324, - + 0.00789, 0.03546, 0.06357, - + 0.46819, 0.20040, 0.44326, 0.05065, 0.01339, - + 0.00808, 0.03491, 0.06217, - + 0.46290, 0.19698, 0.42615, 0.04964, 0.01350, - + 0.00824, 0.03439, 0.06085, - + 0.45765, 0.19369, 0.41013, 0.04859, 0.01356, - + 0.00841, 0.03383, 0.05965, - + 0.45260, 0.19056, 0.39528, 0.04762, 0.01359, - + 0.00855, 0.03331, 0.05850 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + 0.56922, 0.27224, 0.81692, 0.05614, 0.00001, - + 0.00003, 0.03009, 0.07459, - + 0.56291, 0.26296, 0.75773, 0.05482, 0.00001, - + 0.00004, 0.03100, 0.07212, - + 0.55504, 0.25447, 0.70292, 0.05349, 0.00138, - + 0.00001, 0.03139, 0.06967, - + 0.54651, 0.24646, 0.65280, 0.05194, 0.00340, - + 0.00000, 0.03150, 0.06729, - + 0.53766, 0.23907, 0.60795, 0.05060, 0.00496, - + 0.00028, 0.03132, 0.06499, - + 0.52887, 0.23214, 0.56790, 0.04913, 0.00612, - + 0.00125, 0.03108, 0.06281, - + 0.52020, 0.22554, 0.53185, 0.04775, 0.00695, - + 0.00220, 0.03070, 0.06081 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ - + 0.51150, 0.21953, 0.49937, 0.04643, 0.00763, - + 0.00306, 0.03033, 0.05882, - + 0.50307, 0.21382, 0.47006, 0.04512, 0.00819, - + 0.00366, 0.02980, 0.05707, - + 0.49484, 0.20850, 0.44355, 0.04391, 0.00858, - + 0.00413, 0.02922, 0.05544, - + 0.48689, 0.20350, 0.41957, 0.04278, 0.00888, - + 0.00455, 0.02865, 0.05385, - + 0.47941, 0.19857, 0.39788, 0.04159, 0.00915, - + 0.00489, 0.02812, 0.05240, - + 0.47197, 0.19404, 0.37794, 0.04048, 0.00936, - + 0.00517, 0.02761, 0.05095, - + 0.46479, 0.18978, 0.35974, 0.03944, 0.00949, - + 0.00539, 0.02711, 0.04959 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ - + 0.45787, 0.18575, 0.34305, 0.03849, 0.00956, - + 0.00556, 0.02664, 0.04831, - + 0.45103, 0.18202, 0.32767, 0.03762, 0.00967, - + 0.00568, 0.02610, 0.04700, - + 0.44449, 0.17850, 0.31357, 0.03679, 0.00974, - + 0.00578, 0.02559, 0.04575, - + 0.43819, 0.17500, 0.30049, 0.03594, 0.00971, - + 0.00589, 0.02510, 0.04472, - + 0.43217, 0.17168, 0.28842, 0.03514, 0.00969, - + 0.00598, 0.02464, 0.04371 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + 0.58081, 0.26374, 0.70391, 0.04529, 0.00001, - + 0.00007, 0.02417, 0.06112, - + 0.56913, 0.25252, 0.63960, 0.04406, 0.00001, - + 0.00001, 0.02475, 0.05849, - + 0.55698, 0.24242, 0.58320, 0.04276, 0.00076, - + 0.00005, 0.02497, 0.05579, - + 0.54495, 0.23289, 0.53394, 0.04114, 0.00236, - + 0.00006, 0.02485, 0.05373, - + 0.53302, 0.22452, 0.49127, 0.03981, 0.00351, - + 0.00033, 0.02459, 0.05150, - + 0.52143, 0.21671, 0.45407, 0.03851, 0.00438, - + 0.00095, 0.02425, 0.04946, - + 0.51033, 0.20946, 0.42092, 0.03718, 0.00508, - + 0.00165, 0.02372, 0.04765 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ - + 0.49960, 0.20275, 0.39167, 0.03591, 0.00552, - + 0.00218, 0.02324, 0.04603, - + 0.48912, 0.19669, 0.36585, 0.03476, 0.00591, - + 0.00261, 0.02271, 0.04443, - + 0.47913, 0.19105, 0.34281, 0.03370, 0.00625, - + 0.00296, 0.02222, 0.04280, - + 0.46966, 0.18573, 0.32214, 0.03268, 0.00648, - + 0.00324, 0.02177, 0.04128, - + 0.46057, 0.18075, 0.30354, 0.03164, 0.00659, - + 0.00344, 0.02125, 0.04012, - + 0.45181, 0.17611, 0.28666, 0.03073, 0.00670, - + 0.00362, 0.02078, 0.03879, - + 0.44352, 0.17168, 0.27142, 0.02985, 0.00678, - + 0.00376, 0.02032, 0.03760 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ - + 0.43562, 0.16741, 0.25758, 0.02901, 0.00682, - + 0.00387, 0.01987, 0.03658, - + 0.42792, 0.16347, 0.24484, 0.02826, 0.00685, - + 0.00395, 0.01939, 0.03551, - + 0.42060, 0.15978, 0.23322, 0.02757, 0.00688, - + 0.00401, 0.01893, 0.03450, - + 0.41351, 0.15627, 0.22260, 0.02685, 0.00685, - + 0.00402, 0.01853, 0.03357, - + 0.40677, 0.15295, 0.21285, 0.02617, 0.00682, - + 0.00405, 0.01813, 0.03269 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + 0.58431, 0.25189, 0.60417, 0.03646, 0.00001, - + 0.00010, 0.01929, 0.04964, - + 0.56777, 0.23891, 0.53850, 0.03517, 0.00001, - + 0.00004, 0.01974, 0.04718, - + 0.55177, 0.22725, 0.48351, 0.03374, 0.00024, - + 0.00002, 0.01971, 0.04494, - + 0.53576, 0.21744, 0.43649, 0.03247, 0.00147, - + 0.00009, 0.01945, 0.04281, - + 0.52113, 0.20808, 0.39690, 0.03117, 0.00243, - + 0.00023, 0.01915, 0.04085, - + 0.50719, 0.19965, 0.36291, 0.02987, 0.00318, - + 0.00071, 0.01874, 0.03900, - + 0.49382, 0.19211, 0.33354, 0.02869, 0.00368, - + 0.00125, 0.01833, 0.03734 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ - + 0.48110, 0.18524, 0.30784, 0.02771, 0.00402, - + 0.00162, 0.01786, 0.03572, - + 0.46912, 0.17885, 0.28540, 0.02672, 0.00430, - + 0.00183, 0.01744, 0.03423, - + 0.45786, 0.17289, 0.26566, 0.02576, 0.00451, - + 0.00208, 0.01698, 0.03293, - + 0.44717, 0.16742, 0.24811, 0.02487, 0.00465, - + 0.00237, 0.01647, 0.03175, - + 0.43683, 0.16250, 0.23236, 0.02415, 0.00479, - + 0.00256, 0.01604, 0.03044, - + 0.42726, 0.15763, 0.21825, 0.02322, 0.00486, - + 0.00263, 0.01554, 0.02956, - + 0.41814, 0.15315, 0.20559, 0.02242, 0.00489, - + 0.00265, 0.01509, 0.02866 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ - + 0.40940, 0.14904, 0.19418, 0.02179, 0.00493, - + 0.00264, 0.01470, 0.02766, - + 0.40101, 0.14511, 0.18386, 0.02116, 0.00487, - + 0.00277, 0.01433, 0.02685, - + 0.39307, 0.14143, 0.17451, 0.02056, 0.00480, - + 0.00289, 0.01397, 0.02608, - + 0.38535, 0.13802, 0.16599, 0.02004, 0.00481, - + 0.00287, 0.01363, 0.02522, - + 0.37806, 0.13481, 0.15816, 0.01953, 0.00481, - + 0.00285, 0.01332, 0.02443 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + 0.58064, 0.23760, 0.51600, 0.02917, 0.00001, - + 0.00012, 0.01540, 0.03991, - + 0.55948, 0.22329, 0.45166, 0.02789, 0.00001, - + 0.00001, 0.01556, 0.03781, - + 0.53981, 0.21063, 0.39929, 0.02646, 0.00001, - + 0.00010, 0.01557, 0.03574, - + 0.52120, 0.19956, 0.35603, 0.02526, 0.00117, - + 0.00013, 0.01533, 0.03362, - + 0.50380, 0.19000, 0.32010, 0.02403, 0.00191, - + 0.00011, 0.01494, 0.03195, - + 0.48732, 0.18173, 0.28972, 0.02317, 0.00242, - + 0.00056, 0.01446, 0.03025, - + 0.47222, 0.17395, 0.26391, 0.02210, 0.00280, - + 0.00095, 0.01403, 0.02894 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ - + 0.45794, 0.16705, 0.24174, 0.02115, 0.00297, - + 0.00115, 0.01367, 0.02767, - + 0.44478, 0.16052, 0.22254, 0.02031, 0.00316, - + 0.00140, 0.01328, 0.02639, - + 0.43239, 0.15456, 0.20564, 0.01949, 0.00330, - + 0.00158, 0.01286, 0.02531, - + 0.42063, 0.14922, 0.19076, 0.01873, 0.00336, - + 0.00168, 0.01246, 0.02434, - + 0.40962, 0.14417, 0.17781, 0.01815, 0.00345, - + 0.00175, 0.01207, 0.02331, - + 0.39917, 0.13957, 0.16626, 0.01754, 0.00351, - + 0.00184, 0.01174, 0.02227, - + 0.38942, 0.13524, 0.15594, 0.01690, 0.00351, - + 0.00190, 0.01138, 0.02147 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ - + 0.38027, 0.13112, 0.14666, 0.01620, 0.00344, - + 0.00192, 0.01100, 0.02094, - + 0.37165, 0.12728, 0.13833, 0.01561, 0.00348, - + 0.00197, 0.01069, 0.02014, - + 0.36348, 0.12371, 0.13080, 0.01507, 0.00352, - + 0.00201, 0.01041, 0.01937, - + 0.35533, 0.12043, 0.12395, 0.01469, 0.00351, - + 0.00199, 0.01009, 0.01877, - + 0.34770, 0.11731, 0.11770, 0.01430, 0.00347, - + 0.00197, 0.00980, 0.01821 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + 0.57111, 0.22103, 0.43807, 0.02287, 0.00001, - + 0.00005, 0.01226, 0.03207, - + 0.54551, 0.20592, 0.37693, 0.02184, 0.00001, - + 0.00001, 0.01235, 0.02969, - + 0.52179, 0.19327, 0.32854, 0.02080, 0.00001, - + 0.00014, 0.01224, 0.02785, - + 0.50061, 0.18188, 0.28928, 0.01959, 0.00072, - + 0.00019, 0.01185, 0.02645, - + 0.48087, 0.17234, 0.25737, 0.01878, 0.00131, - + 0.00016, 0.01148, 0.02480, - + 0.46300, 0.16370, 0.23068, 0.01782, 0.00172, - + 0.00044, 0.01112, 0.02346, - + 0.44632, 0.15611, 0.20830, 0.01701, 0.00201, - + 0.00078, 0.01077, 0.02219 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ - + 0.43115, 0.14904, 0.18953, 0.01621, 0.00223, - + 0.00095, 0.01040, 0.02109, - + 0.41705, 0.14265, 0.17326, 0.01547, 0.00233, - + 0.00105, 0.00997, 0.02016, - + 0.40390, 0.13682, 0.15918, 0.01477, 0.00244, - + 0.00114, 0.00966, 0.01916, - + 0.39162, 0.13151, 0.14698, 0.01413, 0.00255, - + 0.00123, 0.00942, 0.01820, - + 0.38001, 0.12682, 0.13626, 0.01354, 0.00255, - + 0.00128, 0.00905, 0.01749, - + 0.36919, 0.12235, 0.12671, 0.01302, 0.00261, - + 0.00129, 0.00877, 0.01669, - + 0.35907, 0.11817, 0.11830, 0.01260, 0.00261, - + 0.00132, 0.00846, 0.01598 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ - + 0.34958, 0.11424, 0.11086, 0.01225, 0.00257, - + 0.00137, 0.00812, 0.01536, - + 0.34051, 0.11069, 0.10413, 0.01173, 0.00253, - + 0.00141, 0.00786, 0.01490, - + 0.33203, 0.10737, 0.09807, 0.01122, 0.00249, - + 0.00144, 0.00761, 0.01448, - + 0.32413, 0.10416, 0.09259, 0.01071, 0.00247, - + 0.00143, 0.00741, 0.01400, - + 0.31662, 0.10116, 0.08763, 0.01029, 0.00245, - + 0.00143, 0.00721, 0.01354 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + 0.55574, 0.20330, 0.36960, 0.01767, 0.00001, - + 0.00010, 0.00947, 0.02555, - + 0.52600, 0.18794, 0.31264, 0.01686, 0.00001, - + 0.00010, 0.00964, 0.02346, - + 0.49962, 0.17484, 0.26862, 0.01583, 0.00001, - + 0.00006, 0.00947, 0.02209, - + 0.47570, 0.16396, 0.23397, 0.01518, 0.00055, - + 0.00007, 0.00915, 0.02040, - + 0.45458, 0.15419, 0.20585, 0.01416, 0.00100, - + 0.00003, 0.00886, 0.01924, - + 0.43545, 0.14564, 0.18290, 0.01335, 0.00127, - + 0.00034, 0.00851, 0.01822, - + 0.41791, 0.13809, 0.16403, 0.01272, 0.00148, - + 0.00056, 0.00826, 0.01707 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ - + 0.40173, 0.13142, 0.14795, 0.01209, 0.00167, - + 0.00071, 0.00790, 0.01612, - + 0.38688, 0.12536, 0.13442, 0.01150, 0.00176, - + 0.00076, 0.00763, 0.01529, - + 0.37319, 0.11983, 0.12279, 0.01101, 0.00181, - + 0.00081, 0.00734, 0.01447, - + 0.36054, 0.11480, 0.11264, 0.01057, 0.00185, - + 0.00088, 0.00704, 0.01371, - + 0.34888, 0.11015, 0.10386, 0.01003, 0.00190, - + 0.00088, 0.00679, 0.01306, - + 0.33783, 0.10589, 0.09622, 0.00943, 0.00185, - + 0.00095, 0.00649, 0.01274, - + 0.32754, 0.10199, 0.08949, 0.00902, 0.00182, - + 0.00099, 0.00624, 0.01231 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ - + 0.31793, 0.09840, 0.08351, 0.00879, 0.00183, - + 0.00099, 0.00604, 0.01173, - + 0.30904, 0.09502, 0.07817, 0.00833, 0.00184, - + 0.00102, 0.00582, 0.01127, - + 0.30072, 0.09189, 0.07339, 0.00790, 0.00185, - + 0.00104, 0.00562, 0.01085, - + 0.29260, 0.08896, 0.06908, 0.00775, 0.00183, - + 0.00102, 0.00547, 0.01038, - + 0.28499, 0.08622, 0.06517, 0.00755, 0.00180, - + 0.00100, 0.00530, 0.00997 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + 0.53468, 0.18644, 0.30992, 0.01431, 0.00001, - + 0.00010, 0.00710, 0.01988, - + 0.50199, 0.17050, 0.25795, 0.01337, 0.00001, - + 0.00015, 0.00717, 0.01845, - + 0.47310, 0.15765, 0.21878, 0.01268, 0.00001, - + 0.00009, 0.00712, 0.01677, - + 0.44805, 0.14641, 0.18824, 0.01173, 0.00022, - + 0.00005, 0.00692, 0.01571, - + 0.42567, 0.13694, 0.16411, 0.01092, 0.00051, - + 0.00007, 0.00662, 0.01483, - + 0.40534, 0.12883, 0.14463, 0.01043, 0.00087, - + 0.00009, 0.00631, 0.01374, - + 0.38730, 0.12153, 0.12866, 0.00971, 0.00099, - + 0.00030, 0.00608, 0.01298 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ - + 0.37099, 0.11516, 0.11540, 0.00900, 0.00108, - + 0.00040, 0.00584, 0.01221, - + 0.35594, 0.10942, 0.10413, 0.00859, 0.00116, - + 0.00047, 0.00557, 0.01146, - + 0.34191, 0.10425, 0.09454, 0.00818, 0.00124, - + 0.00052, 0.00533, 0.01093, - + 0.32898, 0.09954, 0.08634, 0.00773, 0.00127, - + 0.00057, 0.00511, 0.01048, - + 0.31740, 0.09512, 0.07921, 0.00727, 0.00128, - + 0.00062, 0.00497, 0.00995, - + 0.30651, 0.09117, 0.07308, 0.00701, 0.00134, - + 0.00064, 0.00477, 0.00937, - + 0.29641, 0.08754, 0.06770, 0.00674, 0.00135, - + 0.00067, 0.00459, 0.00889 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ - + 0.28701, 0.08417, 0.06294, 0.00644, 0.00131, - + 0.00070, 0.00440, 0.00854, - + 0.27811, 0.08105, 0.05868, 0.00620, 0.00128, - + 0.00072, 0.00424, 0.00821, - + 0.26980, 0.07818, 0.05488, 0.00598, 0.00126, - + 0.00072, 0.00408, 0.00790, - + 0.26191, 0.07551, 0.05148, 0.00575, 0.00121, - + 0.00069, 0.00392, 0.00755, - + 0.25453, 0.07303, 0.04844, 0.00555, 0.00119, - + 0.00067, 0.00377, 0.00724 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + 0.51001, 0.16744, 0.25712, 0.01042, 0.00001, - + 0.00016, 0.00576, 0.01548, - + 0.47435, 0.15211, 0.21080, 0.00987, 0.00001, - + 0.00012, 0.00572, 0.01411, - + 0.44362, 0.13980, 0.17632, 0.00937, 0.00001, - + 0.00010, 0.00556, 0.01290, - + 0.41735, 0.12893, 0.15023, 0.00854, 0.00028, - + 0.00011, 0.00529, 0.01207, - + 0.39401, 0.12009, 0.12987, 0.00802, 0.00059, - + 0.00013, 0.00512, 0.01106, - + 0.37373, 0.11232, 0.11352, 0.00745, 0.00072, - + 0.00019, 0.00490, 0.01025, - + 0.35538, 0.10550, 0.10022, 0.00681, 0.00085, - + 0.00028, 0.00468, 0.00986 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ - + 0.33875, 0.09943, 0.08923, 0.00646, 0.00085, - + 0.00037, 0.00446, 0.00934, - + 0.32350, 0.09408, 0.07999, 0.00612, 0.00089, - + 0.00044, 0.00423, 0.00880, - + 0.30978, 0.08932, 0.07224, 0.00579, 0.00091, - + 0.00048, 0.00402, 0.00822, - + 0.29728, 0.08500, 0.06567, 0.00555, 0.00092, - + 0.00046, 0.00385, 0.00762, - + 0.28535, 0.08117, 0.05998, 0.00546, 0.00095, - + 0.00041, 0.00361, 0.00719, - + 0.27482, 0.07760, 0.05506, 0.00514, 0.00096, - + 0.00045, 0.00347, 0.00673, - + 0.26499, 0.07430, 0.05080, 0.00488, 0.00097, - + 0.00049, 0.00334, 0.00640 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ - + 0.25571, 0.07123, 0.04710, 0.00471, 0.00095, - + 0.00051, 0.00322, 0.00621, - + 0.24708, 0.06847, 0.04375, 0.00459, 0.00094, - + 0.00051, 0.00311, 0.00585, - + 0.23908, 0.06592, 0.04076, 0.00446, 0.00093, - + 0.00049, 0.00298, 0.00553, - + 0.23161, 0.06342, 0.03814, 0.00413, 0.00087, - + 0.00048, 0.00282, 0.00543, - + 0.22462, 0.06114, 0.03579, 0.00388, 0.00084, - + 0.00047, 0.00268, 0.00531 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + 0.48143, 0.15030, 0.21210, 0.00845, 0.00001, - + 0.00005, 0.00419, 0.01161, - + 0.44392, 0.13520, 0.17131, 0.00785, 0.00001, - + 0.00002, 0.00414, 0.01082, - + 0.41269, 0.12290, 0.14174, 0.00699, 0.00001, - + 0.00001, 0.00408, 0.00990, - + 0.38528, 0.11304, 0.11944, 0.00662, 0.00003, - + 0.00004, 0.00384, 0.00915, - + 0.36162, 0.10452, 0.10216, 0.00635, 0.00031, - + 0.00001, 0.00369, 0.00831, - + 0.34133, 0.09730, 0.08863, 0.00565, 0.00041, - + 0.00011, 0.00355, 0.00786, - + 0.32322, 0.09092, 0.07769, 0.00515, 0.00050, - + 0.00019, 0.00340, 0.00737 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ - + 0.30648, 0.08540, 0.06870, 0.00498, 0.00053, - + 0.00024, 0.00315, 0.00691, - + 0.29150, 0.08053, 0.06124, 0.00479, 0.00056, - + 0.00024, 0.00301, 0.00638, - + 0.27806, 0.07615, 0.05501, 0.00453, 0.00062, - + 0.00027, 0.00287, 0.00591, - + 0.26593, 0.07222, 0.04974, 0.00424, 0.00066, - + 0.00032, 0.00268, 0.00559, - + 0.25499, 0.06864, 0.04523, 0.00391, 0.00064, - + 0.00031, 0.00248, 0.00532, - + 0.24438, 0.06539, 0.04137, 0.00384, 0.00061, - + 0.00032, 0.00239, 0.00507, - + 0.23485, 0.06243, 0.03801, 0.00368, 0.00059, - + 0.00029, 0.00230, 0.00476 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ - + 0.22631, 0.05973, 0.03508, 0.00341, 0.00058, - + 0.00023, 0.00221, 0.00436, - + 0.21824, 0.05722, 0.03249, 0.00321, 0.00061, - + 0.00028, 0.00213, 0.00416, - + 0.21071, 0.05492, 0.03021, 0.00303, 0.00063, - + 0.00034, 0.00205, 0.00401, - + 0.20347, 0.05276, 0.02819, 0.00296, 0.00060, - + 0.00032, 0.00198, 0.00388, - + 0.19675, 0.05076, 0.02639, 0.00287, 0.00057, - + 0.00031, 0.00190, 0.00375 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + 0.45008, 0.13260, 0.17320, 0.00618, 0.00001, - + 0.00007, 0.00314, 0.00891, - + 0.41192, 0.11829, 0.13788, 0.00522, 0.00001, - + 0.00005, 0.00315, 0.00831, - + 0.37894, 0.10726, 0.11273, 0.00537, 0.00001, - + 0.00005, 0.00320, 0.00730, - + 0.35199, 0.09767, 0.09393, 0.00460, 0.00014, - + 0.00004, 0.00304, 0.00681, - + 0.32854, 0.08982, 0.07961, 0.00433, 0.00029, - + 0.00004, 0.00278, 0.00623, - + 0.30807, 0.08325, 0.06846, 0.00407, 0.00034, - + 0.00007, 0.00254, 0.00584, - + 0.29033, 0.07749, 0.05963, 0.00382, 0.00037, - + 0.00014, 0.00250, 0.00532 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ - + 0.27430, 0.07241, 0.05237, 0.00369, 0.00041, - + 0.00016, 0.00241, 0.00491, - + 0.25988, 0.06804, 0.04646, 0.00350, 0.00039, - + 0.00018, 0.00221, 0.00458, - + 0.24713, 0.06408, 0.04151, 0.00322, 0.00040, - + 0.00018, 0.00206, 0.00430, - + 0.23563, 0.06047, 0.03732, 0.00299, 0.00043, - + 0.00019, 0.00199, 0.00405, - + 0.22491, 0.05733, 0.03382, 0.00290, 0.00048, - + 0.00025, 0.00196, 0.00374, - + 0.21496, 0.05444, 0.03081, 0.00277, 0.00048, - + 0.00026, 0.00181, 0.00360, - + 0.20592, 0.05186, 0.02820, 0.00264, 0.00048, - + 0.00025, 0.00170, 0.00342 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ - + 0.19766, 0.04953, 0.02594, 0.00254, 0.00049, - + 0.00022, 0.00165, 0.00319, - + 0.19013, 0.04732, 0.02397, 0.00233, 0.00042, - + 0.00020, 0.00151, 0.00300, - + 0.18318, 0.04530, 0.02223, 0.00215, 0.00036, - + 0.00018, 0.00139, 0.00284, - + 0.17651, 0.04341, 0.02069, 0.00210, 0.00037, - + 0.00020, 0.00137, 0.00275, - + 0.17032, 0.04169, 0.01932, 0.00207, 0.00037, - + 0.00022, 0.00133, 0.00264 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + 0.41712, 0.11629, 0.14022, 0.00432, 0.00001, - + 0.00002, 0.00236, 0.00653, - + 0.37810, 0.10295, 0.11010, 0.00412, 0.00001, - + 0.00000, 0.00225, 0.00606, - + 0.34576, 0.09234, 0.08892, 0.00394, 0.00001, - + 0.00000, 0.00216, 0.00548, - + 0.31875, 0.08382, 0.07332, 0.00362, 0.00001, - + 0.00002, 0.00208, 0.00503, - + 0.29611, 0.07673, 0.06161, 0.00316, 0.00009, - + 0.00005, 0.00201, 0.00465, - + 0.27629, 0.07075, 0.05263, 0.00310, 0.00014, - + 0.00007, 0.00188, 0.00419, - + 0.25887, 0.06561, 0.04548, 0.00296, 0.00013, - + 0.00010, 0.00171, 0.00383 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ - + 0.24353, 0.06107, 0.03971, 0.00279, 0.00020, - + 0.00012, 0.00158, 0.00359, - + 0.23012, 0.05707, 0.03505, 0.00250, 0.00027, - + 0.00013, 0.00148, 0.00337, - + 0.21796, 0.05359, 0.03115, 0.00233, 0.00027, - + 0.00013, 0.00142, 0.00309, - + 0.20690, 0.05050, 0.02789, 0.00223, 0.00026, - + 0.00011, 0.00136, 0.00281, - + 0.19711, 0.04763, 0.02518, 0.00195, 0.00023, - + 0.00008, 0.00122, 0.00264, - + 0.18796, 0.04507, 0.02282, 0.00194, 0.00030, - + 0.00011, 0.00121, 0.00249, - + 0.17954, 0.04276, 0.02081, 0.00188, 0.00031, - + 0.00013, 0.00117, 0.00236 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ - + 0.17178, 0.04070, 0.01909, 0.00176, 0.00025, - + 0.00013, 0.00105, 0.00225, - + 0.16454, 0.03886, 0.01758, 0.00177, 0.00024, - + 0.00013, 0.00101, 0.00211, - + 0.15792, 0.03715, 0.01626, 0.00178, 0.00024, - + 0.00013, 0.00098, 0.00198, - + 0.15195, 0.03550, 0.01510, 0.00169, 0.00022, - + 0.00012, 0.00092, 0.00185, - + 0.14644, 0.03401, 0.01406, 0.00160, 0.00021, - + 0.00010, 0.00088, 0.00177 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + 0.38206, 0.10053, 0.11228, 0.00327, 0.00001, - + 0.00005, 0.00172, 0.00507, - + 0.34325, 0.08824, 0.08682, 0.00282, 0.00001, - + 0.00003, 0.00178, 0.00455, - + 0.31172, 0.07860, 0.06915, 0.00254, 0.00001, - + 0.00000, 0.00159, 0.00414, - + 0.28536, 0.07069, 0.05647, 0.00246, 0.00001, - + 0.00001, 0.00154, 0.00368, - + 0.26319, 0.06430, 0.04697, 0.00231, 0.00007, - + 0.00001, 0.00151, 0.00323, - + 0.24469, 0.05896, 0.03978, 0.00197, 0.00014, - + 0.00005, 0.00137, 0.00294, - + 0.22832, 0.05439, 0.03413, 0.00179, 0.00021, - + 0.00007, 0.00125, 0.00278 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ - + 0.21374, 0.05048, 0.02961, 0.00179, 0.00019, - + 0.00008, 0.00116, 0.00250, - + 0.20061, 0.04698, 0.02596, 0.00180, 0.00018, - + 0.00009, 0.00107, 0.00232, - + 0.18916, 0.04390, 0.02296, 0.00169, 0.00021, - + 0.00008, 0.00099, 0.00214, - + 0.17911, 0.04120, 0.02047, 0.00154, 0.00022, - + 0.00006, 0.00092, 0.00193, - + 0.16987, 0.03878, 0.01837, 0.00153, 0.00018, - + 0.00007, 0.00091, 0.00173, - + 0.16149, 0.03662, 0.01661, 0.00139, 0.00022, - + 0.00011, 0.00087, 0.00168, - + 0.15387, 0.03467, 0.01510, 0.00132, 0.00021, - + 0.00012, 0.00082, 0.00160 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ - + 0.14688, 0.03289, 0.01380, 0.00129, 0.00018, - + 0.00009, 0.00077, 0.00147, - + 0.14069, 0.03128, 0.01266, 0.00109, 0.00019, - + 0.00010, 0.00074, 0.00139, - + 0.13500, 0.02980, 0.01167, 0.00090, 0.00020, - + 0.00011, 0.00072, 0.00135, - + 0.12947, 0.02845, 0.01082, 0.00088, 0.00021, - + 0.00010, 0.00067, 0.00127, - + 0.12433, 0.02719, 0.01006, 0.00087, 0.00021, - + 0.00010, 0.00064, 0.00120 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + 0.34692, 0.08632, 0.08902, 0.00231, 0.00001, - + 0.00004, 0.00112, 0.00371, - + 0.30859, 0.07504, 0.06780, 0.00211, 0.00001, - + 0.00007, 0.00112, 0.00336, - + 0.27798, 0.06636, 0.05334, 0.00186, 0.00001, - + 0.00004, 0.00112, 0.00292, - + 0.25287, 0.05941, 0.04318, 0.00187, 0.00001, - + 0.00006, 0.00102, 0.00254, - + 0.23210, 0.05375, 0.03564, 0.00170, 0.00006, - + 0.00002, 0.00094, 0.00235, - + 0.21427, 0.04900, 0.02992, 0.00167, 0.00010, - + 0.00001, 0.00094, 0.00202, - + 0.19894, 0.04498, 0.02548, 0.00149, 0.00015, - + 0.00000, 0.00090, 0.00188 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ - + 0.18543, 0.04154, 0.02201, 0.00145, 0.00014, - + 0.00001, 0.00078, 0.00166, - + 0.17366, 0.03850, 0.01918, 0.00143, 0.00016, - + 0.00001, 0.00077, 0.00147, - + 0.16319, 0.03585, 0.01688, 0.00130, 0.00016, - + 0.00003, 0.00074, 0.00142, - + 0.15383, 0.03352, 0.01498, 0.00114, 0.00014, - + 0.00003, 0.00066, 0.00140, - + 0.14562, 0.03145, 0.01338, 0.00100, 0.00015, - + 0.00002, 0.00061, 0.00124, - + 0.13794, 0.02964, 0.01206, 0.00094, 0.00012, - + 0.00004, 0.00055, 0.00117, - + 0.13100, 0.02797, 0.01093, 0.00088, 0.00011, - + 0.00006, 0.00052, 0.00114 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ - + 0.12476, 0.02642, 0.00996, 0.00081, 0.00010, - + 0.00006, 0.00051, 0.00112, - + 0.11904, 0.02506, 0.00912, 0.00079, 0.00011, - + 0.00006, 0.00049, 0.00102, - + 0.11380, 0.02383, 0.00839, 0.00075, 0.00011, - + 0.00006, 0.00045, 0.00093, - + 0.10895, 0.02270, 0.00775, 0.00065, 0.00011, - + 0.00006, 0.00045, 0.00091, - + 0.10450, 0.02165, 0.00718, 0.00056, 0.00012, - + 0.00007, 0.00044, 0.00087 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + 0.31151, 0.07292, 0.06946, 0.00131, 0.00001, - + 0.00006, 0.00082, 0.00263, - + 0.27445, 0.06298, 0.05230, 0.00142, 0.00001, - + 0.00000, 0.00079, 0.00246, - + 0.24504, 0.05525, 0.04072, 0.00153, 0.00001, - + 0.00003, 0.00083, 0.00213, - + 0.22200, 0.04908, 0.03254, 0.00120, 0.00001, - + 0.00001, 0.00074, 0.00193, - + 0.20199, 0.04417, 0.02665, 0.00136, 0.00001, - + 0.00002, 0.00067, 0.00161, - + 0.18553, 0.04009, 0.02221, 0.00129, 0.00002, - + 0.00000, 0.00065, 0.00144, - + 0.17141, 0.03666, 0.01880, 0.00120, 0.00001, - + 0.00002, 0.00054, 0.00126 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ - + 0.15945, 0.03367, 0.01611, 0.00101, 0.00006, - + 0.00001, 0.00050, 0.00117, - + 0.14873, 0.03110, 0.01396, 0.00088, 0.00009, - + 0.00001, 0.00049, 0.00114, - + 0.13929, 0.02888, 0.01223, 0.00077, 0.00009, - + 0.00002, 0.00046, 0.00103, - + 0.13092, 0.02692, 0.01081, 0.00073, 0.00007, - + 0.00001, 0.00042, 0.00089, - + 0.12319, 0.02519, 0.00963, 0.00077, 0.00006, - + 0.00000, 0.00039, 0.00083, - + 0.11656, 0.02361, 0.00864, 0.00063, 0.00009, - + 0.00002, 0.00039, 0.00075, - + 0.11050, 0.02221, 0.00780, 0.00052, 0.00010, - + 0.00004, 0.00036, 0.00073 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ - + 0.10485, 0.02096, 0.00708, 0.00047, 0.00010, - + 0.00004, 0.00034, 0.00076, - + 0.09971, 0.01983, 0.00647, 0.00046, 0.00011, - + 0.00006, 0.00035, 0.00071, - + 0.09503, 0.01880, 0.00594, 0.00046, 0.00011, - + 0.00007, 0.00035, 0.00066, - + 0.09066, 0.01785, 0.00547, 0.00042, 0.00009, - + 0.00004, 0.00030, 0.00065, - + 0.08668, 0.01698, 0.00506, 0.00039, 0.00006, - + 0.00002, 0.00026, 0.00063 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + 0.27586, 0.06106, 0.05362, 0.00136, 0.00001, - + 0.00004, 0.00053, 0.00190, - + 0.24121, 0.05212, 0.03974, 0.00117, 0.00001, - + 0.00008, 0.00054, 0.00159, - + 0.21378, 0.04540, 0.03052, 0.00125, 0.00001, - + 0.00004, 0.00043, 0.00126, - + 0.19198, 0.04014, 0.02414, 0.00093, 0.00001, - + 0.00003, 0.00045, 0.00127, - + 0.17388, 0.03586, 0.01958, 0.00092, 0.00001, - + 0.00005, 0.00041, 0.00107, - + 0.15912, 0.03230, 0.01618, 0.00076, 0.00001, - + 0.00006, 0.00040, 0.00090, - + 0.14625, 0.02939, 0.01360, 0.00067, 0.00005, - + 0.00002, 0.00040, 0.00085 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ - + 0.13527, 0.02689, 0.01159, 0.00055, 0.00003, - + 0.00001, 0.00038, 0.00085, - + 0.12565, 0.02474, 0.00999, 0.00053, 0.00006, - + 0.00000, 0.00034, 0.00072, - + 0.11705, 0.02287, 0.00871, 0.00058, 0.00008, - + 0.00002, 0.00032, 0.00063, - + 0.10945, 0.02123, 0.00766, 0.00056, 0.00007, - + 0.00002, 0.00032, 0.00060, - + 0.10294, 0.01975, 0.00679, 0.00040, 0.00005, - + 0.00001, 0.00029, 0.00061, - + 0.09698, 0.01849, 0.00607, 0.00034, 0.00007, - + 0.00002, 0.00027, 0.00056, - + 0.09156, 0.01736, 0.00547, 0.00032, 0.00008, - + 0.00003, 0.00026, 0.00052 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ - + 0.08662, 0.01634, 0.00496, 0.00033, 0.00007, - + 0.00003, 0.00026, 0.00048, - + 0.08220, 0.01538, 0.00451, 0.00025, 0.00005, - + 0.00003, 0.00022, 0.00045, - + 0.07818, 0.01453, 0.00413, 0.00019, 0.00005, - + 0.00002, 0.00020, 0.00042, - + 0.07440, 0.01377, 0.00380, 0.00022, 0.00005, - + 0.00003, 0.00020, 0.00039, - + 0.07094, 0.01307, 0.00351, 0.00023, 0.00007, - + 0.00004, 0.00021, 0.00036 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + 0.24183, 0.05013, 0.04066, 0.00060, 0.00001, - + 0.00001, 0.00037, 0.00139, - + 0.20913, 0.04242, 0.02967, 0.00068, 0.00001, - + 0.00006, 0.00028, 0.00104, - + 0.18371, 0.03666, 0.02249, 0.00075, 0.00001, - + 0.00005, 0.00039, 0.00096, - + 0.16370, 0.03212, 0.01761, 0.00069, 0.00001, - + 0.00004, 0.00037, 0.00081, - + 0.14769, 0.02851, 0.01413, 0.00046, 0.00001, - + 0.00003, 0.00031, 0.00072, - + 0.13417, 0.02556, 0.01159, 0.00043, 0.00006, - + 0.00001, 0.00030, 0.00061, - + 0.12262, 0.02312, 0.00968, 0.00050, 0.00005, - + 0.00000, 0.00027, 0.00055 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ - + 0.11279, 0.02107, 0.00820, 0.00039, 0.00008, - + 0.00001, 0.00029, 0.00051, - + 0.10436, 0.01929, 0.00703, 0.00033, 0.00007, - + 0.00002, 0.00029, 0.00047, - + 0.09704, 0.01775, 0.00610, 0.00023, 0.00006, - + 0.00003, 0.00025, 0.00046, - + 0.09056, 0.01641, 0.00534, 0.00013, 0.00006, - + 0.00003, 0.00023, 0.00043, - + 0.08470, 0.01527, 0.00473, 0.00016, 0.00009, - + 0.00002, 0.00022, 0.00034, - + 0.07945, 0.01421, 0.00421, 0.00015, 0.00008, - + 0.00002, 0.00021, 0.00032, - + 0.07471, 0.01327, 0.00377, 0.00016, 0.00008, - + 0.00002, 0.00020, 0.00031 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ - + 0.07038, 0.01245, 0.00340, 0.00021, 0.00005, - + 0.00002, 0.00018, 0.00027, - + 0.06656, 0.01170, 0.00309, 0.00018, 0.00006, - + 0.00003, 0.00018, 0.00028, - + 0.06311, 0.01103, 0.00282, 0.00015, 0.00008, - + 0.00004, 0.00017, 0.00029, - + 0.05996, 0.01042, 0.00259, 0.00014, 0.00008, - + 0.00003, 0.00016, 0.00025, - + 0.05707, 0.00988, 0.00239, 0.00012, 0.00007, - + 0.00003, 0.00015, 0.00022 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + 0.20934, 0.04095, 0.03046, 0.00088, 0.00001, - + 0.00009, 0.00012, 0.00076, - + 0.17938, 0.03433, 0.02189, 0.00055, 0.00001, - + 0.00008, 0.00016, 0.00077, - + 0.15689, 0.02938, 0.01640, 0.00034, 0.00001, - + 0.00008, 0.00022, 0.00069, - + 0.13862, 0.02556, 0.01272, 0.00039, 0.00001, - + 0.00007, 0.00019, 0.00050, - + 0.12384, 0.02251, 0.01014, 0.00038, 0.00001, - + 0.00005, 0.00016, 0.00049, - + 0.11181, 0.02010, 0.00825, 0.00035, 0.00001, - + 0.00004, 0.00016, 0.00043, - + 0.10194, 0.01809, 0.00684, 0.00025, 0.00000, - + 0.00003, 0.00017, 0.00037 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ - + 0.09332, 0.01638, 0.00576, 0.00025, 0.00002, - + 0.00001, 0.00016, 0.00032, - + 0.08581, 0.01495, 0.00491, 0.00022, 0.00003, - + 0.00001, 0.00015, 0.00033, - + 0.07934, 0.01370, 0.00424, 0.00021, 0.00003, - + 0.00000, 0.00014, 0.00032, - + 0.07372, 0.01263, 0.00370, 0.00019, 0.00003, - + 0.00000, 0.00014, 0.00028, - + 0.06878, 0.01168, 0.00326, 0.00012, 0.00003, - + 0.00001, 0.00011, 0.00024, - + 0.06431, 0.01084, 0.00290, 0.00012, 0.00002, - + 0.00001, 0.00010, 0.00025, - + 0.06033, 0.01010, 0.00259, 0.00011, 0.00002, - + 0.00001, 0.00010, 0.00023 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ - + 0.05679, 0.00945, 0.00233, 0.00010, 0.00004, - + 0.00001, 0.00012, 0.00019, - + 0.05356, 0.00885, 0.00212, 0.00009, 0.00005, - + 0.00001, 0.00011, 0.00017, - + 0.05064, 0.00833, 0.00193, 0.00009, 0.00005, - + 0.00002, 0.00011, 0.00016, - + 0.04790, 0.00786, 0.00177, 0.00011, 0.00003, - + 0.00002, 0.00009, 0.00014, - + 0.04542, 0.00743, 0.00162, 0.00013, 0.00003, - + 0.00002, 0.00008, 0.00014 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + 0.17842, 0.03247, 0.02224, 0.00021, 0.00001, - + 0.00003, 0.00009, 0.00066, - + 0.15141, 0.02706, 0.01581, 0.00039, 0.00001, - + 0.00001, 0.00013, 0.00050, - + 0.13081, 0.02302, 0.01173, 0.00048, 0.00001, - + 0.00003, 0.00011, 0.00037, - + 0.11511, 0.01991, 0.00903, 0.00030, 0.00001, - + 0.00002, 0.00009, 0.00038, - + 0.10241, 0.01747, 0.00713, 0.00028, 0.00001, - + 0.00001, 0.00010, 0.00028, - + 0.09191, 0.01553, 0.00576, 0.00029, 0.00001, - + 0.00002, 0.00009, 0.00022, - + 0.08320, 0.01389, 0.00475, 0.00027, 0.00001, - + 0.00001, 0.00007, 0.00024 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ - + 0.07592, 0.01255, 0.00398, 0.00019, 0.00001, - + 0.00000, 0.00008, 0.00025, - + 0.06961, 0.01141, 0.00338, 0.00015, 0.00001, - + 0.00000, 0.00007, 0.00022, - + 0.06412, 0.01042, 0.00291, 0.00013, 0.00001, - + 0.00000, 0.00005, 0.00019, - + 0.05932, 0.00956, 0.00253, 0.00012, 0.00001, - + 0.00001, 0.00005, 0.00017, - + 0.05510, 0.00881, 0.00222, 0.00011, 0.00001, - + 0.00002, 0.00005, 0.00013, - + 0.05133, 0.00816, 0.00196, 0.00011, 0.00001, - + 0.00001, 0.00004, 0.00014, - + 0.04798, 0.00760, 0.00175, 0.00011, 0.00001, - + 0.00000, 0.00004, 0.00014 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ - + 0.04500, 0.00708, 0.00157, 0.00008, 0.00001, - + 0.00000, 0.00004, 0.00013, - + 0.04229, 0.00662, 0.00142, 0.00010, 0.00001, - + 0.00001, 0.00003, 0.00013, - + 0.03986, 0.00621, 0.00129, 0.00011, 0.00001, - + 0.00001, 0.00003, 0.00012, - + 0.03769, 0.00583, 0.00118, 0.00008, 0.00001, - + 0.00000, 0.00003, 0.00012, - + 0.03571, 0.00549, 0.00108, 0.00007, 0.00001, - + 0.00000, 0.00003, 0.00010 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + 0.12266, 0.01942, 0.01114, 0.00014, 0.00001, - + 0.00000, 0.00004, 0.00022, - + 0.10210, 0.01581, 0.00766, 0.00011, 0.00001, - + 0.00002, 0.00004, 0.00021, - + 0.08684, 0.01322, 0.00553, 0.00012, 0.00001, - + 0.00001, 0.00008, 0.00010, - + 0.07503, 0.01126, 0.00416, 0.00012, 0.00001, - + 0.00001, 0.00004, 0.00011, - + 0.06580, 0.00975, 0.00322, 0.00008, 0.00001, - + 0.00000, 0.00006, 0.00013, - + 0.05840, 0.00855, 0.00257, 0.00007, 0.00001, - + 0.00000, 0.00004, 0.00010, - + 0.05227, 0.00759, 0.00208, 0.00006, 0.00001, - + 0.00000, 0.00005, 0.00009 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ - + 0.04717, 0.00678, 0.00172, 0.00003, 0.00001, - + 0.00000, 0.00005, 0.00006, - + 0.04281, 0.00610, 0.00145, 0.00002, 0.00001, - + 0.00000, 0.00005, 0.00007, - + 0.03906, 0.00552, 0.00123, 0.00002, 0.00001, - + 0.00000, 0.00003, 0.00007, - + 0.03585, 0.00502, 0.00106, 0.00002, 0.00001, - + 0.00001, 0.00003, 0.00006, - + 0.03303, 0.00460, 0.00093, 0.00002, 0.00001, - + 0.00000, 0.00003, 0.00004, - + 0.03055, 0.00422, 0.00081, 0.00002, 0.00001, - + 0.00000, 0.00002, 0.00004, - + 0.02836, 0.00389, 0.00072, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00004 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ - + 0.02641, 0.00360, 0.00064, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00005, - + 0.02466, 0.00335, 0.00058, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00005, - + 0.02310, 0.00312, 0.00052, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00003, - + 0.02170, 0.00292, 0.00048, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00003, - + 0.02045, 0.00274, 0.00044, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00003 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + 0.07813, 0.01063, 0.00502, 0.00017, 0.00001, - + 0.00001, 0.00001, 0.00004, - + 0.06353, 0.00846, 0.00333, 0.00008, 0.00001, - + 0.00002, 0.00001, 0.00005, - + 0.05299, 0.00696, 0.00234, 0.00005, 0.00001, - + 0.00002, 0.00000, 0.00005, - + 0.04510, 0.00583, 0.00172, 0.00003, 0.00001, - + 0.00000, 0.00002, 0.00006, - + 0.03890, 0.00496, 0.00131, 0.00004, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.03405, 0.00430, 0.00102, 0.00003, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.03010, 0.00375, 0.00082, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00002 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ - + 0.02682, 0.00331, 0.00067, 0.00003, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.02410, 0.00295, 0.00056, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00003, - + 0.02177, 0.00265, 0.00047, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00003, - + 0.01978, 0.00239, 0.00040, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01807, 0.00216, 0.00035, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01659, 0.00198, 0.00030, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01530, 0.00181, 0.00027, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ - + 0.01415, 0.00166, 0.00024, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01311, 0.00153, 0.00021, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01220, 0.00142, 0.00019, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01139, 0.00132, 0.00017, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01065, 0.00123, 0.00016, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + 0.04445, 0.00508, 0.00193, 0.00003, 0.00001, - + 0.00001, 0.00001, 0.00001, - + 0.03529, 0.00397, 0.00124, 0.00003, 0.00001, - + 0.00001, 0.00001, 0.00001, - + 0.02884, 0.00318, 0.00085, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02407, 0.00263, 0.00061, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02045, 0.00220, 0.00045, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.01762, 0.00188, 0.00035, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01537, 0.00163, 0.00028, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ - + 0.01355, 0.00142, 0.00022, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01200, 0.00124, 0.00018, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01073, 0.00110, 0.00015, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00967, 0.00098, 0.00013, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00875, 0.00089, 0.00011, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00795, 0.00080, 0.00010, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00726, 0.00072, 0.00009, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ - + 0.00666, 0.00066, 0.00008, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00613, 0.00061, 0.00007, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00566, 0.00056, 0.00006, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00524, 0.00052, 0.00005, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00487, 0.00048, 0.00005, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + 0.02156, 0.00203, 0.00060, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01658, 0.00152, 0.00037, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.01318, 0.00119, 0.00024, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.01076, 0.00098, 0.00017, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00895, 0.00079, 0.00012, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00759, 0.00065, 0.00009, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00651, 0.00057, 0.00007, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ - + 0.00564, 0.00049, 0.00006, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00494, 0.00042, 0.00005, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00435, 0.00037, 0.00004, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00387, 0.00033, 0.00003, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00347, 0.00028, 0.00003, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00312, 0.00025, 0.00003, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00282, 0.00022, 0.00002, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ - + 0.00256, 0.00021, 0.00002, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00234, 0.00018, 0.00002, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00214, 0.00017, 0.00002, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00197, 0.00015, 0.00001, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00181, 0.00014, 0.00001, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + 0.00196, 0.00011, 0.00002, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00139, 0.00008, 0.00001, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00104, 0.00006, 0.00001, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00080, 0.00004, 0.00000, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00063, 0.00004, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00051, 0.00003, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00042, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ - + 0.00035, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00029, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00026, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00021, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00018, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00016, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00015, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ - + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,5,7,0,0,7,7/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ - - - XSAVE=X - - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(54,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7) GO TO 31 - DO 30 K=1,19 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,8 - G(I)=ZEROD - IF(XXX.GE.ONED) GOTO 60 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) - - X=XSAVE - - RETURN - END diff --git a/PDF/spdf/sfdish.F b/PDF/spdf/sfdish.F deleted file mode 100644 index 7a150325548..00000000000 --- a/PDF/spdf/sfdish.F +++ /dev/null @@ -1,1983 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:43 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:34 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFDISH(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) - -C THIS IS THE NEW H FIT TO THE 1993 HERA F2 DATA -C WITH UBAR < DBAR (230 MeV) -C IN THE ** DIS ** SCHEME -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,20),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + 0.01508, 0.00234, 28.57361, 2.50233, 0.14546, - + 0.00000, 1.34132, 2.52798, - + 0.01551, 0.00248, 41.41998, 2.90445, 0.59834, - + 0.00001, 1.76941, 2.92978, - + 0.01591, 0.00262, 56.22984, 3.35828, 1.09605, - + 0.00001, 2.24573, 3.38329, - + 0.01629, 0.00274, 72.60197, 3.85731, 1.63369, - + 0.00001, 2.76459, 3.88201, - + 0.01665, 0.00287, 90.39349, 4.39562, 2.20645, - + 0.12740, 3.32062, 4.42005, - + 0.01698, 0.00300, 109.40785, 4.96962, 2.81165, - + 0.69649, 3.91070, 4.99380, - + 0.01730, 0.00311, 129.52321, 5.57897, 3.44960, - + 1.39599, 4.53479, 5.60291 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ - + 0.01761, 0.00324, 150.59039, 6.22099, 4.11796, - + 2.11291, 5.19041, 6.24470, - + 0.01791, 0.00335, 172.47517, 6.89236, 4.81379, - + 2.85689, 5.87442, 6.91586, - + 0.01820, 0.00346, 195.07593, 7.59054, 5.53473, - + 3.62358, 6.58438, 7.61385, - + 0.01848, 0.00357, 218.32326, 8.31348, 6.27895, - + 4.41183, 7.31835, 8.33663, - + 0.01874, 0.00367, 242.10217, 9.05856, 7.04403, - + 5.21909, 8.07380, 9.08157, - + 0.01901, 0.00378, 266.14624, 9.82123, 7.82554, - + 6.04096, 8.84624, 9.84408, - + 0.01927, 0.00389, 290.66772, 10.60346, 8.62559, - + 6.87977, 9.63772, 10.62618 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ - + 0.01951, 0.00399, 315.54395, 11.40309, 9.44207, - + 7.73350, 10.44611, 11.42568, - + 0.01975, 0.00408, 340.46313, 12.21363, 10.26866, - + 8.59568, 11.26500, 12.23610, - + 0.01999, 0.00419, 365.83740, 13.04181, 11.11208, - + 9.47343, 12.10109, 13.06417, - + 0.02021, 0.00428, 391.07251, 13.87698, 11.96183, - + 10.35593, 12.94386, 13.89926, - + 0.02044, 0.00438, 416.66797, 14.72739, 12.82614, - + 11.25187, 13.80151, 14.74957 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + 0.01910, 0.00337, 23.12250, 2.03841, 0.11542, - + 0.00000, 1.08670, 2.05327, - + 0.01968, 0.00359, 33.11473, 2.35319, 0.47102, - + 0.00000, 1.42219, 2.36782, - + 0.02022, 0.00378, 44.40931, 2.70360, 0.85671, - + 0.00001, 1.79052, 2.71801, - + 0.02072, 0.00397, 56.67399, 3.08411, 1.26826, - + 0.00000, 2.18684, 3.09833, - + 0.02118, 0.00415, 69.79973, 3.49027, 1.70207, - + 0.09624, 2.60708, 3.50430, - + 0.02163, 0.00433, 83.63523, 3.91914, 2.15598, - + 0.52392, 3.04873, 3.93300, - + 0.02205, 0.00451, 98.08751, 4.37030, 2.63008, - + 1.04547, 3.51159, 4.38401 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ - + 0.02246, 0.00467, 113.04887, 4.84163, 3.12254, - + 1.57516, 3.99372, 4.85519, - + 0.02285, 0.00484, 128.42445, 5.33066, 3.63115, - + 2.12040, 4.49277, 5.34410, - + 0.02323, 0.00499, 144.14645, 5.83550, 4.15422, - + 2.67801, 5.00693, 5.84881, - + 0.02359, 0.00515, 160.17074, 6.35465, 4.69040, - + 3.24717, 5.53480, 6.36785, - + 0.02394, 0.00531, 176.41951, 6.88621, 5.23795, - + 3.82612, 6.07457, 6.89931, - + 0.02428, 0.00546, 192.70798, 7.42673, 5.79356, - + 4.41154, 6.62283, 7.43974, - + 0.02461, 0.00560, 209.19710, 7.97800, 6.35906, - + 5.00551, 7.18140, 7.99092 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ - + 0.02493, 0.00575, 225.80480, 8.53840, 6.93295, - + 5.60657, 7.74873, 8.55127, - + 0.02524, 0.00589, 242.31673, 9.10323, 7.51058, - + 6.21002, 8.32013, 9.11601, - + 0.02555, 0.00602, 259.02999, 9.67763, 8.09716, - + 6.82136, 8.90079, 9.69039, - + 0.02584, 0.00616, 275.53486, 10.25374, 8.68491, - + 7.43260, 9.48288, 10.26643, - + 0.02613, 0.00629, 292.18452, 10.83787, 9.28013, - + 8.05038, 10.07273, 10.85050 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + 0.02417, 0.00488, 18.71066, 1.65943, 0.09145, - + 0.00000, 0.88033, 1.66758, - + 0.02494, 0.00517, 26.47142, 1.90530, 0.37020, - + 0.00000, 1.14277, 1.91330, - + 0.02563, 0.00547, 35.06683, 2.17515, 0.66844, - + 0.00000, 1.42694, 2.18303, - + 0.02629, 0.00574, 44.22931, 2.46448, 0.98272, - + 0.00000, 1.72885, 2.47225, - + 0.02690, 0.00600, 53.88190, 2.76996, 1.31043, - + 0.07253, 2.04556, 2.77763, - + 0.02748, 0.00626, 63.91248, 3.08932, 1.64989, - + 0.39322, 2.37508, 3.09689, - + 0.02804, 0.00650, 74.25426, 3.42216, 2.00114, - + 0.78114, 2.71723, 3.42965 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ - + 0.02857, 0.00675, 84.83257, 3.76689, 2.36283, - + 1.17147, 3.07054, 3.77432, - + 0.02908, 0.00698, 95.58434, 4.12171, 2.73335, - + 1.56995, 3.43331, 4.12907, - + 0.02957, 0.00721, 106.46631, 4.48525, 3.11149, - + 1.97427, 3.80425, 4.49254, - + 0.03004, 0.00743, 117.45285, 4.85648, 3.49637, - + 2.38397, 4.18240, 4.86371, - + 0.03050, 0.00765, 128.49417, 5.23406, 3.88676, - + 2.79781, 4.56646, 5.24124, - + 0.03093, 0.00786, 139.46341, 5.61542, 4.28018, - + 3.21339, 4.95394, 5.62256, - + 0.03136, 0.00807, 150.48344, 6.00210, 4.67826, - + 3.63247, 5.34640, 6.00920 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ - + 0.03178, 0.00827, 161.50014, 6.39301, 5.07995, - + 4.05410, 5.74279, 6.40008, - + 0.03218, 0.00847, 172.36797, 6.78466, 5.48185, - + 4.47482, 6.13963, 6.79170, - + 0.03256, 0.00866, 183.30180, 7.18108, 5.88799, - + 4.89894, 6.54099, 7.18809, - + 0.03295, 0.00885, 194.01912, 7.57645, 6.29266, - + 5.32057, 6.94109, 7.58344, - + 0.03332, 0.00904, 204.77129, 7.97556, 6.70065, - + 5.74476, 7.34471, 7.98253 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + 0.02772, 0.00605, 16.53067, 1.47072, 0.07972, - + 0.00000, 0.77826, 1.47640, - + 0.02861, 0.00643, 23.21927, 1.68322, 0.32122, - + 0.00000, 1.00530, 1.68881, - + 0.02944, 0.00679, 30.53673, 1.91450, 0.57752, - + 0.00000, 1.24915, 1.92001, - + 0.03020, 0.00712, 38.25038, 2.16056, 0.84557, - + 0.00000, 1.50626, 2.16601, - + 0.03091, 0.00744, 46.30000, 2.41869, 1.12326, - + 0.06140, 1.77423, 2.42408, - + 0.03159, 0.00777, 54.59346, 2.68694, 1.40923, - + 0.33205, 2.05139, 2.69229, - + 0.03224, 0.00807, 63.07721, 2.96498, 1.70347, - + 0.65786, 2.33758, 2.97028 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ - + 0.03286, 0.00837, 71.69281, 3.25146, 2.00488, - + 0.98389, 2.63158, 3.25673, - + 0.03345, 0.00865, 80.39113, 3.54491, 2.31214, - + 1.31506, 2.93198, 3.55014, - + 0.03402, 0.00893, 89.14072, 3.84423, 2.62431, - + 1.64953, 3.23778, 3.84943, - + 0.03456, 0.00921, 97.92462, 4.14861, 2.94069, - + 1.98698, 3.54821, 4.15380, - + 0.03509, 0.00948, 106.70447, 4.45696, 3.26029, - + 2.32641, 3.86223, 4.46210, - + 0.03560, 0.00973, 115.37932, 4.76715, 3.58110, - + 2.66585, 4.17777, 4.77228, - + 0.03610, 0.00998, 124.05480, 5.08060, 3.90455, - + 3.00694, 4.49626, 5.08572 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ - + 0.03658, 0.01022, 132.68862, 5.39638, 4.22981, - + 3.34887, 4.81683, 5.40148, - + 0.03704, 0.01047, 141.16511, 5.71167, 4.55410, - + 3.68886, 5.13665, 5.71676, - + 0.03750, 0.01071, 149.66236, 6.02989, 4.88087, - + 4.03056, 5.45919, 6.03497, - + 0.03794, 0.01093, 157.95304, 6.34620, 5.20535, - + 4.36910, 5.77962, 6.35127, - + 0.03836, 0.01116, 166.24386, 6.66467, 5.53162, - + 4.70876, 6.10203, 6.66975 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + 0.03054, 0.00704, 15.13950, 1.34971, 0.07229, - + 0.00000, 0.71307, 1.35417, - + 0.03154, 0.00749, 21.15556, 1.54117, 0.29027, - + 0.00000, 0.91781, 1.54558, - + 0.03246, 0.00790, 27.67900, 1.74829, 0.52029, - + 0.00000, 1.13641, 1.75265, - + 0.03330, 0.00830, 34.50014, 1.96745, 0.75956, - + 0.00000, 1.36565, 1.97178, - + 0.03410, 0.00868, 41.56969, 2.19628, 1.00629, - + 0.05451, 1.60346, 2.20059, - + 0.03485, 0.00904, 48.80835, 2.43308, 1.25928, - + 0.29431, 1.84837, 2.43736, - + 0.03558, 0.00940, 56.17104, 2.67753, 1.51854, - + 0.58199, 2.10025, 2.68179 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ - + 0.03626, 0.00974, 63.60899, 2.92847, 1.78313, - + 0.86870, 2.35804, 2.93273, - + 0.03692, 0.01008, 71.08234, 3.18464, 2.05191, - + 1.15891, 2.62055, 3.18888, - + 0.03755, 0.01039, 78.56602, 3.44508, 2.32410, - + 1.45101, 2.88688, 3.44931, - + 0.03817, 0.01072, 86.04810, 3.70914, 2.59913, - + 1.74479, 3.15645, 3.71337, - + 0.03875, 0.01102, 93.49756, 3.97587, 2.87615, - + 2.03942, 3.42836, 3.98010, - + 0.03932, 0.01132, 100.82874, 4.24340, 3.15337, - + 2.33317, 3.70076, 4.24764, - + 0.03987, 0.01161, 108.13600, 4.51309, 3.43219, - + 2.62757, 3.97504, 4.51732 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ - + 0.04040, 0.01189, 115.38472, 4.78414, 3.71189, - + 2.92197, 4.25042, 4.78836, - + 0.04092, 0.01217, 122.47620, 5.05405, 3.99002, - + 3.21392, 4.52447, 5.05827, - + 0.04141, 0.01244, 129.56682, 5.32595, 4.26973, - + 3.50673, 4.80029, 5.33019, - + 0.04190, 0.01270, 136.46161, 5.59553, 4.54677, - + 3.79609, 5.07362, 5.59977, - + 0.04239, 0.01297, 143.34029, 5.86647, 4.82482, - + 4.08586, 5.34813, 5.87072 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + 0.03292, 0.00793, 14.14132, 1.26262, 0.06697, - + 0.00000, 0.66628, 1.26634, - + 0.03400, 0.00843, 19.68086, 1.43912, 0.26826, - + 0.00000, 0.85518, 1.44282, - + 0.03500, 0.00890, 25.64561, 1.62915, 0.47969, - + 0.00000, 1.05592, 1.63285, - + 0.03593, 0.00934, 31.84277, 1.82937, 0.69869, - + 0.00000, 1.26554, 1.83306, - + 0.03679, 0.00977, 38.23102, 2.03768, 0.92373, - + 0.04969, 1.48221, 2.04136, - + 0.03760, 0.01018, 44.74008, 2.25249, 1.15367, - + 0.26791, 1.70461, 2.25618, - + 0.03839, 0.01058, 51.33093, 2.47356, 1.38857, - + 0.52899, 1.93261, 2.47725 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ - + 0.03914, 0.01097, 57.96184, 2.69985, 1.62760, - + 0.78837, 2.16528, 2.70355, - + 0.03986, 0.01134, 64.59860, 2.93022, 1.86976, - + 1.05019, 2.40156, 2.93392, - + 0.04055, 0.01170, 71.22144, 3.16385, 2.11435, - + 1.31302, 2.64067, 3.16756, - + 0.04120, 0.01206, 77.82121, 3.40016, 2.36090, - + 1.57670, 2.88212, 3.40388, - + 0.04184, 0.01239, 84.37195, 3.63832, 2.60867, - + 1.84053, 3.12509, 3.64206, - + 0.04245, 0.01272, 90.79819, 3.87666, 2.85606, - + 2.10294, 3.36796, 3.88041, - + 0.04305, 0.01305, 97.18675, 4.11645, 3.10437, - + 2.36541, 3.61203, 4.12021 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ - + 0.04362, 0.01337, 103.50786, 4.35699, 3.35299, - + 2.62735, 3.85662, 4.36077, - + 0.04418, 0.01368, 109.67487, 4.59604, 3.59971, - + 2.88658, 4.09952, 4.59983, - + 0.04473, 0.01397, 115.82816, 4.83648, 3.84742, - + 3.14614, 4.34359, 4.84027, - + 0.04525, 0.01427, 121.79561, 5.07441, 4.09230, - + 3.40214, 4.58501, 5.07821, - + 0.04576, 0.01456, 127.73788, 5.31318, 4.33771, - + 3.65810, 4.82710, 5.31700 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + 0.04155, 0.01147, 11.43973, 1.02530, 0.05266, - + 0.00000, 0.53956, 1.02817, - + 0.04294, 0.01218, 15.71670, 1.16188, 0.20932, - + 0.00000, 0.68616, 1.16481, - + 0.04422, 0.01287, 20.21892, 1.30675, 0.37153, - + 0.00000, 0.83970, 1.30975, - + 0.04541, 0.01351, 24.80116, 1.45733, 0.53732, - + 0.00000, 0.99787, 1.46039, - + 0.04652, 0.01411, 29.44316, 1.61220, 0.70572, - + 0.03716, 1.15949, 1.61531, - + 0.04758, 0.01471, 34.09891, 1.77021, 0.87597, - + 0.19950, 1.32362, 1.77338, - + 0.04858, 0.01527, 38.74529, 1.93122, 1.04817, - + 0.39205, 1.49020, 1.93444 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ - + 0.04954, 0.01582, 43.35803, 2.09451, 1.22177, - + 0.58144, 1.65864, 2.09777, - + 0.05045, 0.01635, 47.91843, 2.25933, 1.39610, - + 0.77090, 1.82820, 2.26264, - + 0.05133, 0.01687, 52.41753, 2.42513, 1.57078, - + 0.95950, 1.99845, 2.42850, - + 0.05218, 0.01736, 56.85410, 2.59160, 1.74553, - + 1.14723, 2.16904, 2.59501, - + 0.05299, 0.01784, 61.21371, 2.75817, 1.91985, - + 1.33365, 2.33948, 2.76162, - + 0.05378, 0.01831, 65.44678, 2.92364, 2.09264, - + 1.51769, 2.50860, 2.92714, - + 0.05454, 0.01876, 69.61964, 3.08911, 2.26500, - + 1.70058, 2.67750, 3.09264 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ - + 0.05527, 0.01920, 73.71400, 3.25409, 2.43649, - + 1.88195, 2.84573, 3.25766, - + 0.05598, 0.01964, 77.67226, 3.41700, 2.60559, - + 2.06026, 3.01172, 3.42061, - + 0.05668, 0.02005, 81.59584, 3.58002, 2.77450, - + 2.23785, 3.17768, 3.58367, - + 0.05735, 0.02046, 85.36723, 3.74035, 2.94044, - + 2.41191, 3.34080, 3.74404, - + 0.05801, 0.02087, 89.10036, 3.90050, 3.10595, - + 2.58510, 3.50363, 3.90423 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + 0.05244, 0.01662, 9.25090, 0.83129, 0.04108, - + 0.00000, 0.43682, 0.83477, - + 0.05421, 0.01766, 12.53508, 0.93613, 0.16225, - + 0.00000, 0.54983, 0.93974, - + 0.05583, 0.01863, 15.90942, 1.04568, 0.28587, - + 0.00000, 0.66642, 1.04938, - + 0.05735, 0.01955, 19.26860, 1.15795, 0.41050, - + 0.00000, 0.78486, 1.16175, - + 0.05876, 0.02041, 22.60866, 1.27205, 0.53561, - + 0.02762, 0.90447, 1.27594, - + 0.06010, 0.02124, 25.90247, 1.38718, 0.66069, - + 0.14764, 1.02458, 1.39118, - + 0.06138, 0.02206, 29.13887, 1.50330, 0.78589, - + 0.28871, 1.14523, 1.50737 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ - + 0.06261, 0.02282, 32.30612, 1.61994, 0.91089, - + 0.42601, 1.26604, 1.62408, - + 0.06378, 0.02357, 35.39610, 1.73659, 1.03531, - + 0.56207, 1.38658, 1.74082, - + 0.06490, 0.02429, 38.40730, 1.85300, 1.15890, - + 0.69633, 1.50657, 1.85729, - + 0.06598, 0.02499, 41.34314, 1.96893, 1.28157, - + 0.82886, 1.62588, 1.97329, - + 0.06700, 0.02567, 44.19688, 2.08407, 1.40301, - + 0.95943, 1.74416, 2.08850, - + 0.06801, 0.02632, 46.93665, 2.19758, 1.52245, - + 1.08731, 1.86063, 2.20206, - + 0.06897, 0.02695, 49.61301, 2.31035, 1.64083, - + 1.21354, 1.97620, 2.31489 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ - + 0.06991, 0.02756, 52.21521, 2.42209, 1.75786, - + 1.33788, 2.09057, 2.42668, - + 0.07081, 0.02816, 54.70546, 2.53165, 1.87246, - + 1.45927, 2.20265, 2.53630, - + 0.07169, 0.02874, 57.15674, 2.64074, 1.98632, - + 1.57950, 2.31412, 2.64543, - + 0.07255, 0.02931, 59.48952, 2.74729, 2.09742, - + 1.69655, 2.42294, 2.75202, - + 0.07337, 0.02985, 61.78384, 2.85322, 2.20772, - + 1.81243, 2.53105, 2.85801 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + 0.06010, 0.02068, 8.16771, 0.73475, 0.03533, - + 0.00000, 0.38595, 0.73899, - + 0.06215, 0.02195, 10.97002, 0.82411, 0.13917, - + 0.00000, 0.48259, 0.82850, - + 0.06401, 0.02315, 13.80556, 0.91663, 0.24418, - + 0.00000, 0.58137, 0.92113, - + 0.06575, 0.02427, 16.58923, 1.01064, 0.34917, - + 0.00000, 0.68089, 1.01526, - + 0.06736, 0.02534, 19.32477, 1.10552, 0.45380, - + 0.02313, 0.78066, 1.11023, - + 0.06891, 0.02637, 21.99377, 1.20060, 0.55771, - + 0.12326, 0.88017, 1.20542, - + 0.07039, 0.02735, 24.59062, 1.29587, 0.66105, - + 0.24031, 0.97949, 1.30079 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ - + 0.07179, 0.02830, 27.10899, 1.39101, 0.76363, - + 0.35349, 1.07836, 1.39601, - + 0.07313, 0.02921, 29.54529, 1.48566, 0.86514, - + 0.46499, 1.17645, 1.49073, - + 0.07442, 0.03008, 31.90111, 1.57960, 0.96547, - + 0.57442, 1.27358, 1.58475, - + 0.07566, 0.03093, 34.18138, 1.67272, 1.06457, - + 0.68189, 1.36970, 1.67794, - + 0.07685, 0.03175, 36.38255, 1.76477, 1.16222, - + 0.78726, 1.46455, 1.77004, - + 0.07800, 0.03254, 38.48053, 1.85508, 1.25780, - + 0.88994, 1.55750, 1.86042, - + 0.07911, 0.03329, 40.51802, 1.94443, 1.35214, - + 0.99087, 1.64936, 1.94984 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ - + 0.08019, 0.03403, 42.48756, 2.03263, 1.44504, - + 1.08989, 1.73990, 2.03808, - + 0.08122, 0.03475, 44.35997, 2.11873, 1.53561, - + 1.18613, 1.82825, 2.12426, - + 0.08223, 0.03545, 46.19490, 2.20419, 1.62532, - + 1.28114, 1.91584, 2.20976, - + 0.08321, 0.03613, 47.92944, 2.28731, 1.71250, - + 1.37323, 2.00098, 2.29293, - + 0.08415, 0.03680, 49.62872, 2.36971, 1.79876, - + 1.46414, 2.08531, 2.37537 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + 0.06624, 0.02414, 7.47539, 0.67282, 0.03164, - + 0.00000, 0.35348, 0.67779, - + 0.06847, 0.02562, 9.97223, 0.75245, 0.12455, - + 0.00000, 0.43978, 0.75754, - + 0.07053, 0.02702, 12.46965, 0.83431, 0.21790, - + 0.00000, 0.52743, 0.83953, - + 0.07245, 0.02832, 14.89576, 0.91699, 0.31065, - + 0.00000, 0.61516, 0.92231, - + 0.07424, 0.02955, 17.25882, 0.99998, 0.40261, - + 0.02033, 0.70266, 1.00540, - + 0.07594, 0.03074, 19.54593, 1.08273, 0.49346, - + 0.10814, 0.78948, 1.08824, - + 0.07758, 0.03188, 21.75473, 1.16525, 0.58341, - + 0.21035, 0.87574, 1.17084 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ - + 0.07913, 0.03297, 23.88213, 1.24729, 0.67228, - + 0.30870, 0.96120, 1.25296, - + 0.08061, 0.03401, 25.92714, 1.32856, 0.75988, - + 0.40519, 1.04565, 1.33430, - + 0.08203, 0.03501, 27.89279, 1.40891, 0.84611, - + 0.49949, 1.12895, 1.41473, - + 0.08340, 0.03598, 29.78505, 1.48828, 0.93096, - + 0.59175, 1.21108, 1.49416, - + 0.08471, 0.03691, 31.60204, 1.56645, 1.01430, - + 0.68189, 1.29184, 1.57239, - + 0.08598, 0.03780, 33.32407, 1.64286, 1.09557, - + 0.76940, 1.37070, 1.64887, - + 0.08720, 0.03868, 34.98917, 1.71825, 1.17554, - + 0.85516, 1.44840, 1.72431 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ - + 0.08839, 0.03952, 36.59158, 1.79243, 1.25405, - + 0.93903, 1.52475, 1.79855, - + 0.08954, 0.04034, 38.10712, 1.86463, 1.33036, - + 1.02028, 1.59900, 1.87079, - + 0.09064, 0.04113, 39.58728, 1.93610, 1.40575, - + 1.10029, 1.67244, 1.94231, - + 0.09172, 0.04189, 40.97926, 2.00539, 1.47878, - + 1.17760, 1.74361, 2.01165, - + 0.09277, 0.04264, 42.33871, 2.07394, 1.55089, - + 1.25374, 1.81395, 2.08024 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + 0.07148, 0.02735, 6.97721, 0.62867, 0.02893, - + 0.00000, 0.33006, 0.63388, - + 0.07391, 0.02902, 9.25154, 0.70124, 0.11395, - + 0.00000, 0.40888, 0.70660, - + 0.07615, 0.03059, 11.50403, 0.77545, 0.19890, - + 0.00000, 0.48849, 0.78094, - + 0.07822, 0.03204, 13.67303, 0.85001, 0.28289, - + 0.00002, 0.56780, 0.85563, - + 0.08017, 0.03342, 15.77015, 0.92449, 0.36577, - + 0.01834, 0.64650, 0.93022, - + 0.08202, 0.03473, 17.78607, 0.99845, 0.44732, - + 0.09732, 0.72428, 1.00429, - + 0.08378, 0.03600, 19.72060, 1.07192, 0.52773, - + 0.18896, 0.80122, 1.07783 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ - + 0.08547, 0.03720, 21.57309, 1.14469, 0.60690, - + 0.27677, 0.87721, 1.15070, - + 0.08708, 0.03836, 23.34392, 1.21652, 0.68465, - + 0.36262, 0.95201, 1.22261, - + 0.08861, 0.03947, 25.03760, 1.28729, 0.76095, - + 0.44622, 1.02557, 1.29346, - + 0.09009, 0.04054, 26.66037, 1.35700, 0.83580, - + 0.52777, 1.09786, 1.36324, - + 0.09151, 0.04156, 28.21049, 1.42545, 0.90909, - + 0.60720, 1.16874, 1.43176, - + 0.09289, 0.04255, 29.67432, 1.49217, 0.98035, - + 0.68409, 1.23774, 1.49854, - + 0.09421, 0.04351, 31.08479, 1.55783, 1.05030, - + 0.75924, 1.30555, 1.56426 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ - + 0.09549, 0.04444, 32.43724, 1.62229, 1.11882, - + 0.83256, 1.37205, 1.62877, - + 0.09673, 0.04533, 33.70975, 1.68483, 1.18523, - + 0.90340, 1.43653, 1.69137, - + 0.09793, 0.04620, 34.94885, 1.74664, 1.25070, - + 0.97302, 1.50018, 1.75323, - + 0.09909, 0.04704, 36.10852, 1.80639, 1.31395, - + 1.04010, 1.56169, 1.81303, - + 0.10022, 0.04786, 37.23849, 1.86539, 1.37629, - + 1.10603, 1.62236, 1.87207 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + 0.09073, 0.04042, 5.62636, 0.50845, 0.02147, - + 0.00000, 0.26664, 0.51491, - + 0.09386, 0.04279, 7.30762, 0.56213, 0.08530, - + 0.00000, 0.32544, 0.56877, - + 0.09674, 0.04498, 8.91820, 0.61605, 0.14799, - + 0.00000, 0.38379, 0.62283, - + 0.09943, 0.04702, 10.42288, 0.66934, 0.20897, - + 0.00001, 0.44095, 0.67625, - + 0.10194, 0.04893, 11.84112, 0.72179, 0.26828, - + 0.01314, 0.49687, 0.72882, - + 0.10432, 0.05074, 13.17321, 0.77315, 0.32585, - + 0.06936, 0.55135, 0.78028, - + 0.10659, 0.05247, 14.42432, 0.82347, 0.38187, - + 0.13384, 0.60455, 0.83069 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ - + 0.10875, 0.05410, 15.59858, 0.87272, 0.43636, - + 0.19482, 0.65644, 0.88002, - + 0.11082, 0.05566, 16.70023, 0.92077, 0.48926, - + 0.25373, 0.70694, 0.92816, - + 0.11280, 0.05715, 17.73563, 0.96761, 0.54062, - + 0.31046, 0.75605, 0.97507, - + 0.11469, 0.05858, 18.71164, 1.01326, 0.59050, - + 0.36522, 0.80384, 1.02079, - + 0.11650, 0.05994, 19.62926, 1.05765, 0.63887, - + 0.41804, 0.85023, 1.06525, - + 0.11825, 0.06125, 20.48106, 1.10048, 0.68543, - + 0.46864, 0.89493, 1.10812, - + 0.11994, 0.06250, 21.29117, 1.14226, 0.73075, - + 0.51769, 0.93851, 1.14998 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ - + 0.12155, 0.06371, 22.05750, 1.18294, 0.77476, - + 0.56513, 0.98086, 1.19070, - + 0.12312, 0.06487, 22.76675, 1.22204, 0.81705, - + 0.61056, 1.02156, 1.22985, - + 0.12464, 0.06600, 23.45059, 1.26041, 0.85845, - + 0.65489, 1.06146, 1.26826, - + 0.12611, 0.06708, 24.07961, 1.29717, 0.89809, - + 0.69723, 1.09967, 1.30507, - + 0.12753, 0.06813, 24.68698, 1.33324, 0.93692, - + 0.73859, 1.13713, 1.34117 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + 0.11612, 0.05999, 4.52734, 0.41093, 0.01511, - + 0.00002, 0.21501, 0.41883, - + 0.12021, 0.06325, 5.73271, 0.44951, 0.06199, - + 0.00001, 0.25778, 0.45759, - + 0.12400, 0.06625, 6.84270, 0.48755, 0.10722, - + 0.00002, 0.29946, 0.49577, - + 0.12750, 0.06900, 7.84306, 0.52442, 0.15040, - + 0.00002, 0.33952, 0.53278, - + 0.13076, 0.07156, 8.75681, 0.56014, 0.19174, - + 0.00920, 0.37808, 0.56858, - + 0.13384, 0.07397, 9.59102, 0.59451, 0.23122, - + 0.04814, 0.41504, 0.60305, - + 0.13679, 0.07622, 10.35507, 0.62768, 0.26910, - + 0.09226, 0.45058, 0.63631 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ - + 0.13957, 0.07834, 11.05375, 0.65970, 0.30544, - + 0.13337, 0.48477, 0.66841, - + 0.14222, 0.08035, 11.69351, 0.69051, 0.34025, - + 0.17253, 0.51760, 0.69926, - + 0.14474, 0.08225, 12.28241, 0.72013, 0.37364, - + 0.20976, 0.54912, 0.72894, - + 0.14715, 0.08406, 12.82666, 0.74866, 0.40568, - + 0.24529, 0.57943, 0.75753, - + 0.14945, 0.08578, 13.32714, 0.77610, 0.43642, - + 0.27918, 0.60853, 0.78501, - + 0.15165, 0.08741, 13.78036, 0.80221, 0.46564, - + 0.31125, 0.63620, 0.81116, - + 0.15378, 0.08897, 14.20426, 0.82743, 0.49379, - + 0.34202, 0.66290, 0.83643 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ - + 0.15582, 0.09047, 14.59854, 0.85172, 0.52089, - + 0.37151, 0.68861, 0.86077, - + 0.15777, 0.09188, 14.95536, 0.87485, 0.54668, - + 0.39948, 0.71307, 0.88391, - + 0.15966, 0.09324, 15.29492, 0.89736, 0.57172, - + 0.42656, 0.73685, 0.90646, - + 0.16148, 0.09456, 15.59800, 0.91864, 0.59542, - + 0.45213, 0.75934, 0.92777, - + 0.16324, 0.09583, 15.88724, 0.93937, 0.61846, - + 0.47693, 0.78125, 0.94853 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + 0.13480, 0.07546, 3.98165, 0.36243, 0.01180, - + 0.00002, 0.18930, 0.37118, - + 0.13962, 0.07935, 4.95415, 0.39371, 0.05048, - + 0.00003, 0.22434, 0.40262, - + 0.14405, 0.08290, 5.82556, 0.42416, 0.08736, - + 0.00003, 0.25805, 0.43319, - + 0.14816, 0.08611, 6.59158, 0.45332, 0.12219, - + 0.00003, 0.29007, 0.46246, - + 0.15199, 0.08906, 7.27642, 0.48123, 0.15518, - + 0.00735, 0.32055, 0.49046, - + 0.15559, 0.09181, 7.89017, 0.50779, 0.18635, - + 0.03830, 0.34945, 0.51711, - + 0.15899, 0.09438, 8.44100, 0.53318, 0.21598, - + 0.07307, 0.37698, 0.54255 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ - + 0.16221, 0.09679, 8.93561, 0.55739, 0.24411, - + 0.10512, 0.40316, 0.56683, - + 0.16525, 0.09904, 9.38150, 0.58047, 0.27084, - + 0.13539, 0.42807, 0.58997, - + 0.16815, 0.10115, 9.78434, 0.60251, 0.29627, - + 0.16395, 0.45183, 0.61204, - + 0.17092, 0.10315, 10.15014, 0.62354, 0.32051, - + 0.19100, 0.47448, 0.63312, - + 0.17354, 0.10505, 10.48254, 0.64358, 0.34355, - + 0.21658, 0.49603, 0.65319, - + 0.17604, 0.10683, 10.77755, 0.66252, 0.36532, - + 0.24065, 0.51639, 0.67216, - + 0.17843, 0.10853, 11.04940, 0.68067, 0.38616, - + 0.26358, 0.53589, 0.69034 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ - + 0.18072, 0.11016, 11.29810, 0.69804, 0.40607, - + 0.28540, 0.55454, 0.70771, - + 0.18292, 0.11169, 11.51828, 0.71437, 0.42484, - + 0.30592, 0.57210, 0.72408, - + 0.18504, 0.11317, 11.72573, 0.73020, 0.44299, - + 0.32569, 0.58909, 0.73992, - + 0.18708, 0.11455, 11.90742, 0.74503, 0.46004, - + 0.34424, 0.60504, 0.75478, - + 0.18905, 0.11590, 12.07889, 0.75942, 0.47655, - + 0.36216, 0.62048, 0.76917 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + 0.15029, 0.08868, 3.63159, 0.33129, 0.00955, - + 0.00002, 0.17277, 0.34067, - + 0.15572, 0.09304, 4.45618, 0.35796, 0.04311, - + 0.00002, 0.20293, 0.36749, - + 0.16071, 0.09698, 5.17942, 0.38370, 0.07481, - + 0.00003, 0.23168, 0.39331, - + 0.16532, 0.10049, 5.80246, 0.40808, 0.10448, - + 0.00003, 0.25873, 0.41781, - + 0.16960, 0.10372, 6.34982, 0.43121, 0.13235, - + 0.00621, 0.28426, 0.44102, - + 0.17362, 0.10670, 6.83238, 0.45303, 0.15850, - + 0.03227, 0.30828, 0.46291, - + 0.17737, 0.10946, 7.25862, 0.47370, 0.18312, - + 0.06136, 0.33094, 0.48360 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ - + 0.18092, 0.11204, 7.63543, 0.49326, 0.20637, - + 0.08796, 0.35234, 0.50320, - + 0.18427, 0.11442, 7.96998, 0.51174, 0.22828, - + 0.11291, 0.37255, 0.52173, - + 0.18745, 0.11666, 8.26775, 0.52927, 0.24902, - + 0.13631, 0.39168, 0.53928, - + 0.19046, 0.11876, 8.53430, 0.54588, 0.26865, - + 0.15834, 0.40982, 0.55592, - + 0.19332, 0.12074, 8.77298, 0.56160, 0.28720, - + 0.17905, 0.42696, 0.57166, - + 0.19603, 0.12258, 8.98090, 0.57635, 0.30461, - + 0.19841, 0.44305, 0.58642, - + 0.19861, 0.12434, 9.17000, 0.59041, 0.32122, - + 0.21678, 0.45837, 0.60048 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ - + 0.20108, 0.12602, 9.34047, 0.60376, 0.33697, - + 0.23416, 0.47293, 0.61383, - + 0.20344, 0.12760, 9.48812, 0.61623, 0.35176, - + 0.25042, 0.48656, 0.62632, - + 0.20572, 0.12911, 9.62581, 0.62826, 0.36599, - + 0.26602, 0.49969, 0.63835, - + 0.20789, 0.13052, 9.74323, 0.63944, 0.37927, - + 0.28058, 0.51193, 0.64954, - + 0.20999, 0.13188, 9.85289, 0.65023, 0.39209, - + 0.29459, 0.52374, 0.66034 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + 0.16352, 0.10032, 3.37937, 0.30848, 0.00790, - + 0.00002, 0.16083, 0.31828, - + 0.16954, 0.10506, 4.09838, 0.33198, 0.03789, - + 0.00004, 0.18760, 0.34191, - + 0.17509, 0.10927, 4.71769, 0.35442, 0.06601, - + 0.00004, 0.21292, 0.36448, - + 0.18013, 0.11305, 5.24194, 0.37553, 0.09213, - + 0.00003, 0.23653, 0.38562, - + 0.18480, 0.11647, 5.69572, 0.39538, 0.11650, - + 0.00545, 0.25865, 0.40554, - + 0.18916, 0.11960, 6.08940, 0.41395, 0.13920, - + 0.02810, 0.27928, 0.42415, - + 0.19324, 0.12247, 6.43224, 0.43142, 0.16047, - + 0.05329, 0.29867, 0.44166 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ - + 0.19707, 0.12514, 6.73166, 0.44780, 0.18039, - + 0.07616, 0.31682, 0.45808, - + 0.20067, 0.12760, 6.99285, 0.46321, 0.19907, - + 0.09751, 0.33388, 0.47350, - + 0.20405, 0.12990, 7.22282, 0.47771, 0.21664, - + 0.11741, 0.34990, 0.48799, - + 0.20727, 0.13205, 7.42642, 0.49135, 0.23319, - + 0.13604, 0.36498, 0.50165, - + 0.21033, 0.13405, 7.60415, 0.50417, 0.24875, - + 0.15348, 0.37919, 0.51450, - + 0.21319, 0.13594, 7.75704, 0.51611, 0.26326, - + 0.16968, 0.39241, 0.52642, - + 0.21592, 0.13772, 7.89445, 0.52745, 0.27703, - + 0.18501, 0.40497, 0.53774 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ - + 0.21854, 0.13938, 8.01655, 0.53817, 0.29009, - + 0.19948, 0.41686, 0.54848, - + 0.22102, 0.14094, 8.11928, 0.54810, 0.30224, - + 0.21292, 0.42788, 0.55840, - + 0.22342, 0.14243, 8.21397, 0.55762, 0.31388, - + 0.22578, 0.43847, 0.56792, - + 0.22569, 0.14384, 8.29227, 0.56642, 0.32472, - + 0.23772, 0.44828, 0.57670, - + 0.22787, 0.14517, 8.36434, 0.57488, 0.33513, - + 0.24917, 0.45771, 0.58514 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + 0.21657, 0.14561, 2.68652, 0.24625, 0.00301, - + 0.00001, 0.12777, 0.25730, - + 0.22475, 0.15119, 3.12191, 0.26105, 0.02355, - + 0.00002, 0.14543, 0.27214, - + 0.23206, 0.15600, 3.47119, 0.27473, 0.04231, - + 0.00000, 0.16162, 0.28581, - + 0.23858, 0.16017, 3.74667, 0.28716, 0.05927, - + 0.00002, 0.17630, 0.29820, - + 0.24448, 0.16382, 3.96980, 0.29849, 0.07471, - + 0.00345, 0.18965, 0.30949, - + 0.24989, 0.16704, 4.15146, 0.30875, 0.08872, - + 0.01754, 0.20177, 0.31970, - + 0.25484, 0.16990, 4.29869, 0.31804, 0.10152, - + 0.03288, 0.21279, 0.32897 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ - + 0.25940, 0.17247, 4.41846, 0.32651, 0.11326, - + 0.04651, 0.22287, 0.33740, - + 0.26362, 0.17480, 4.51544, 0.33427, 0.12405, - + 0.05900, 0.23212, 0.34510, - + 0.26753, 0.17691, 4.59424, 0.34134, 0.13397, - + 0.07041, 0.24060, 0.35210, - + 0.27118, 0.17885, 4.65814, 0.34781, 0.14314, - + 0.08088, 0.24839, 0.35851, - + 0.27460, 0.18061, 4.70790, 0.35373, 0.15160, - + 0.09055, 0.25557, 0.36440, - + 0.27777, 0.18220, 4.74467, 0.35906, 0.15935, - + 0.09936, 0.26207, 0.36965, - + 0.28076, 0.18365, 4.77407, 0.36398, 0.16656, - + 0.10755, 0.26812, 0.37453 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ - + 0.28359, 0.18500, 4.79632, 0.36848, 0.17327, - + 0.11516, 0.27372, 0.37901, - + 0.28621, 0.18622, 4.80952, 0.37255, 0.17942, - + 0.12214, 0.27881, 0.38300, - + 0.28870, 0.18739, 4.81959, 0.37638, 0.18523, - + 0.12874, 0.28361, 0.38676, - + 0.29102, 0.18844, 4.82134, 0.37976, 0.19051, - + 0.13475, 0.28792, 0.39010, - + 0.29325, 0.18943, 4.82118, 0.38294, 0.19552, - + 0.14045, 0.29200, 0.39324 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + 0.29475, 0.20433, 2.09615, 0.19190, 0.00001, - + 0.00012, 0.09825, 0.20318, - + 0.30508, 0.20942, 2.30651, 0.19956, 0.01189, - + 0.00014, 0.10874, 0.21073, - + 0.31388, 0.21346, 2.45504, 0.20630, 0.02372, - + 0.00009, 0.11796, 0.21726, - + 0.32137, 0.21670, 2.55577, 0.21203, 0.03400, - + 0.00010, 0.12588, 0.22279, - + 0.32791, 0.21931, 2.62536, 0.21694, 0.04302, - + 0.00184, 0.13278, 0.22753, - + 0.33360, 0.22141, 2.67192, 0.22103, 0.05095, - + 0.00979, 0.13874, 0.23148, - + 0.33867, 0.22308, 2.70094, 0.22454, 0.05796, - + 0.01828, 0.14396, 0.23481 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ - + 0.34318, 0.22445, 2.71617, 0.22747, 0.06418, - + 0.02557, 0.14851, 0.23759, - + 0.34720, 0.22557, 2.72121, 0.22993, 0.06974, - + 0.03208, 0.15249, 0.23995, - + 0.35078, 0.22647, 2.71849, 0.23203, 0.07470, - + 0.03789, 0.15598, 0.24191, - + 0.35401, 0.22722, 2.70995, 0.23382, 0.07916, - + 0.04311, 0.15905, 0.24354, - + 0.35694, 0.22781, 2.69663, 0.23531, 0.08320, - + 0.04784, 0.16176, 0.24491, - + 0.35953, 0.22823, 2.67878, 0.23646, 0.08675, - + 0.05202, 0.16407, 0.24591, - + 0.36190, 0.22858, 2.65897, 0.23739, 0.08998, - + 0.05581, 0.16613, 0.24674 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ - + 0.36407, 0.22884, 2.63718, 0.23811, 0.09290, - + 0.05923, 0.16793, 0.24741, - + 0.36600, 0.22898, 2.61265, 0.23864, 0.09549, - + 0.06236, 0.16945, 0.24787, - + 0.36781, 0.22906, 2.58826, 0.23910, 0.09789, - + 0.06528, 0.17084, 0.24823, - + 0.36939, 0.22908, 2.56176, 0.23934, 0.10000, - + 0.06783, 0.17200, 0.24833, - + 0.37087, 0.22905, 2.53572, 0.23952, 0.10196, - + 0.07022, 0.17305, 0.24837 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + 0.35617, 0.24127, 1.77708, 0.16036, 0.00001, - + 0.00000, 0.08124, 0.17114, - + 0.36684, 0.24466, 1.88087, 0.16450, 0.00655, - + 0.00001, 0.08835, 0.17499, - + 0.37554, 0.24696, 1.94096, 0.16790, 0.01526, - + 0.00005, 0.09434, 0.17806, - + 0.38259, 0.24840, 1.96970, 0.17044, 0.02262, - + 0.00003, 0.09919, 0.18041, - + 0.38844, 0.24925, 1.97969, 0.17243, 0.02889, - + 0.00132, 0.10323, 0.18207, - + 0.39329, 0.24964, 1.97654, 0.17385, 0.03423, - + 0.00664, 0.10655, 0.18323, - + 0.39733, 0.24973, 1.96431, 0.17479, 0.03891, - + 0.01216, 0.10933, 0.18407 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ - + 0.40074, 0.24955, 1.94539, 0.17543, 0.04292, - + 0.01685, 0.11157, 0.18453, - + 0.40353, 0.24924, 1.92203, 0.17585, 0.04636, - + 0.02097, 0.11345, 0.18472, - + 0.40590, 0.24878, 1.89570, 0.17604, 0.04938, - + 0.02456, 0.11499, 0.18468, - + 0.40797, 0.24816, 1.86760, 0.17599, 0.05205, - + 0.02772, 0.11626, 0.18446, - + 0.40973, 0.24742, 1.83844, 0.17574, 0.05440, - + 0.03057, 0.11731, 0.18409, - + 0.41108, 0.24666, 1.80774, 0.17538, 0.05642, - + 0.03303, 0.11807, 0.18357, - + 0.41222, 0.24584, 1.77732, 0.17492, 0.05824, - + 0.03524, 0.11869, 0.18297 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ - + 0.41321, 0.24494, 1.74710, 0.17436, 0.05987, - + 0.03722, 0.11917, 0.18230, - + 0.41396, 0.24396, 1.71651, 0.17370, 0.06122, - + 0.03895, 0.11950, 0.18152, - + 0.41461, 0.24300, 1.68711, 0.17302, 0.06244, - + 0.04053, 0.11975, 0.18072, - + 0.41504, 0.24200, 1.65738, 0.17225, 0.06347, - + 0.04189, 0.11985, 0.17981, - + 0.41539, 0.24101, 1.62891, 0.17147, 0.06443, - + 0.04314, 0.11991, 0.17891 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + 0.40731, 0.26516, 1.55169, 0.13673, 0.00001, - + 0.00008, 0.06860, 0.14665, - + 0.41708, 0.26630, 1.59176, 0.13869, 0.00350, - + 0.00006, 0.07363, 0.14818, - + 0.42450, 0.26648, 1.60210, 0.14000, 0.01038, - + 0.00005, 0.07764, 0.14908, - + 0.43018, 0.26579, 1.59256, 0.14067, 0.01602, - + 0.00009, 0.08071, 0.14955, - + 0.43449, 0.26486, 1.57257, 0.14097, 0.02069, - + 0.00103, 0.08314, 0.14959, - + 0.43765, 0.26354, 1.54594, 0.14093, 0.02457, - + 0.00483, 0.08501, 0.14929, - + 0.44000, 0.26203, 1.51525, 0.14062, 0.02785, - + 0.00876, 0.08641, 0.14871 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ - + 0.44171, 0.26037, 1.48214, 0.14016, 0.03064, - + 0.01200, 0.08749, 0.14790, - + 0.44295, 0.25858, 1.44787, 0.13944, 0.03301, - + 0.01480, 0.08828, 0.14702, - + 0.44380, 0.25672, 1.41340, 0.13858, 0.03503, - + 0.01719, 0.08881, 0.14603, - + 0.44431, 0.25485, 1.37933, 0.13764, 0.03678, - + 0.01926, 0.08914, 0.14496, - + 0.44452, 0.25297, 1.34583, 0.13660, 0.03831, - + 0.02106, 0.08937, 0.14380, - + 0.44438, 0.25107, 1.31263, 0.13557, 0.03954, - + 0.02266, 0.08942, 0.14258, - + 0.44406, 0.24922, 1.28073, 0.13453, 0.04061, - + 0.02406, 0.08939, 0.14133 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ - + 0.44362, 0.24737, 1.24994, 0.13348, 0.04153, - + 0.02527, 0.08927, 0.14004, - + 0.44301, 0.24547, 1.21982, 0.13229, 0.04231, - + 0.02634, 0.08904, 0.13884, - + 0.44234, 0.24362, 1.19131, 0.13113, 0.04300, - + 0.02732, 0.08879, 0.13767, - + 0.44142, 0.24184, 1.16340, 0.13000, 0.04355, - + 0.02811, 0.08844, 0.13630, - + 0.44049, 0.24009, 1.13695, 0.12889, 0.04404, - + 0.02883, 0.08809, 0.13499 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + 0.45065, 0.28029, 1.37264, 0.11722, 0.00001, - + 0.00008, 0.05790, 0.12589, - + 0.45864, 0.27879, 1.37121, 0.11760, 0.00136, - + 0.00007, 0.06146, 0.12598, - + 0.46405, 0.27661, 1.35088, 0.11760, 0.00694, - + 0.00007, 0.06415, 0.12555, - + 0.46745, 0.27411, 1.31920, 0.11713, 0.01138, - + 0.00011, 0.06605, 0.12479, - + 0.46955, 0.27137, 1.28289, 0.11649, 0.01504, - + 0.00078, 0.06745, 0.12370, - + 0.47069, 0.26833, 1.24451, 0.11555, 0.01800, - + 0.00362, 0.06838, 0.12254, - + 0.47104, 0.26525, 1.20543, 0.11440, 0.02042, - + 0.00644, 0.06898, 0.12127 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ - + 0.47085, 0.26217, 1.16658, 0.11318, 0.02246, - + 0.00878, 0.06937, 0.11987, - + 0.47018, 0.25911, 1.12864, 0.11195, 0.02414, - + 0.01076, 0.06953, 0.11839, - + 0.46915, 0.25612, 1.09201, 0.11067, 0.02552, - + 0.01242, 0.06955, 0.11691, - + 0.46785, 0.25321, 1.05697, 0.10936, 0.02666, - + 0.01384, 0.06947, 0.11544, - + 0.46627, 0.25043, 1.02352, 0.10808, 0.02764, - + 0.01513, 0.06927, 0.11385, - + 0.46453, 0.24759, 0.99127, 0.10674, 0.02847, - + 0.01618, 0.06896, 0.11231, - + 0.46274, 0.24481, 0.96083, 0.10537, 0.02918, - + 0.01708, 0.06859, 0.11086 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ - + 0.46092, 0.24206, 0.93196, 0.10397, 0.02976, - + 0.01784, 0.06817, 0.10952, - + 0.45885, 0.23947, 0.90429, 0.10267, 0.03022, - + 0.01852, 0.06770, 0.10802, - + 0.45677, 0.23700, 0.87835, 0.10144, 0.03061, - + 0.01915, 0.06723, 0.10655, - + 0.45459, 0.23449, 0.85343, 0.10014, 0.03092, - + 0.01967, 0.06672, 0.10518, - + 0.45246, 0.23209, 0.83000, 0.09890, 0.03119, - + 0.02013, 0.06620, 0.10384 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + 0.49430, 0.28888, 1.18740, 0.09657, 0.00001, - + 0.00004, 0.04705, 0.10414, - + 0.49866, 0.28440, 1.15255, 0.09585, 0.00001, - + 0.00006, 0.04952, 0.10290, - + 0.50065, 0.27954, 1.10937, 0.09489, 0.00436, - + 0.00008, 0.05112, 0.10140, - + 0.50086, 0.27457, 1.06249, 0.09356, 0.00787, - + 0.00010, 0.05217, 0.09981, - + 0.49985, 0.26976, 1.01611, 0.09213, 0.01055, - + 0.00061, 0.05278, 0.09826, - + 0.49798, 0.26496, 0.97144, 0.09066, 0.01274, - + 0.00259, 0.05310, 0.09649, - + 0.49544, 0.26037, 0.92871, 0.08918, 0.01451, - + 0.00457, 0.05313, 0.09462 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ - + 0.49267, 0.25580, 0.88821, 0.08760, 0.01587, - + 0.00617, 0.05300, 0.09290, - + 0.48956, 0.25140, 0.85014, 0.08599, 0.01704, - + 0.00751, 0.05277, 0.09117, - + 0.48617, 0.24725, 0.81454, 0.08446, 0.01800, - + 0.00865, 0.05241, 0.08944, - + 0.48264, 0.24330, 0.78133, 0.08298, 0.01876, - + 0.00960, 0.05198, 0.08774, - + 0.47901, 0.23951, 0.75025, 0.08153, 0.01938, - + 0.01036, 0.05155, 0.08608, - + 0.47539, 0.23574, 0.72100, 0.08009, 0.01986, - + 0.01102, 0.05104, 0.08446, - + 0.47175, 0.23215, 0.69387, 0.07870, 0.02024, - + 0.01161, 0.05050, 0.08292 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ - + 0.46802, 0.22874, 0.66857, 0.07737, 0.02053, - + 0.01212, 0.04995, 0.08148, - + 0.46432, 0.22542, 0.64465, 0.07601, 0.02076, - + 0.01250, 0.04941, 0.08002, - + 0.46072, 0.22226, 0.62242, 0.07472, 0.02098, - + 0.01282, 0.04888, 0.07860, - + 0.45707, 0.21916, 0.60137, 0.07346, 0.02113, - + 0.01311, 0.04827, 0.07726, - + 0.45352, 0.21621, 0.58173, 0.07226, 0.02125, - + 0.01336, 0.04768, 0.07596 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + 0.52775, 0.28932, 1.03032, 0.07908, 0.00001, - + 0.00012, 0.03823, 0.08528, - + 0.52784, 0.28186, 0.97512, 0.07771, 0.00001, - + 0.00016, 0.03979, 0.08353, - + 0.52556, 0.27483, 0.91944, 0.07616, 0.00270, - + 0.00014, 0.04073, 0.08172, - + 0.52203, 0.26787, 0.86550, 0.07450, 0.00542, - + 0.00013, 0.04120, 0.07970, - + 0.51775, 0.26122, 0.81547, 0.07282, 0.00758, - + 0.00051, 0.04136, 0.07765, - + 0.51272, 0.25505, 0.76943, 0.07117, 0.00922, - + 0.00195, 0.04122, 0.07569, - + 0.50733, 0.24916, 0.72705, 0.06947, 0.01043, - + 0.00335, 0.04097, 0.07383 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ - + 0.50185, 0.24349, 0.68803, 0.06785, 0.01145, - + 0.00447, 0.04064, 0.07193, - + 0.49626, 0.23822, 0.65228, 0.06622, 0.01226, - + 0.00539, 0.04014, 0.07018, - + 0.49066, 0.23320, 0.61950, 0.06464, 0.01288, - + 0.00616, 0.03967, 0.06846, - + 0.48510, 0.22838, 0.58943, 0.06315, 0.01336, - + 0.00680, 0.03927, 0.06676, - + 0.47959, 0.22378, 0.56185, 0.06174, 0.01375, - + 0.00732, 0.03873, 0.06519, - + 0.47406, 0.21946, 0.53623, 0.06034, 0.01406, - + 0.00773, 0.03812, 0.06371, - + 0.46868, 0.21536, 0.51271, 0.05904, 0.01431, - + 0.00809, 0.03750, 0.06228 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ - + 0.46345, 0.21144, 0.49099, 0.05783, 0.01452, - + 0.00841, 0.03688, 0.06085, - + 0.45831, 0.20762, 0.47080, 0.05658, 0.01464, - + 0.00869, 0.03631, 0.05954, - + 0.45334, 0.20401, 0.45219, 0.05537, 0.01473, - + 0.00893, 0.03576, 0.05830, - + 0.44839, 0.20055, 0.43474, 0.05426, 0.01475, - + 0.00906, 0.03520, 0.05708, - + 0.44363, 0.19724, 0.41857, 0.05318, 0.01476, - + 0.00918, 0.03466, 0.05594 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + 0.55155, 0.28393, 0.89347, 0.06418, 0.00001, - + 0.00004, 0.03060, 0.06934, - + 0.54675, 0.27390, 0.82658, 0.06247, 0.00001, - + 0.00001, 0.03167, 0.06735, - + 0.54026, 0.26460, 0.76486, 0.06075, 0.00167, - + 0.00002, 0.03222, 0.06515, - + 0.53281, 0.25604, 0.70869, 0.05902, 0.00384, - + 0.00001, 0.03238, 0.06298, - + 0.52514, 0.24797, 0.65873, 0.05718, 0.00552, - + 0.00035, 0.03224, 0.06104, - + 0.51712, 0.24061, 0.61410, 0.05548, 0.00670, - + 0.00139, 0.03204, 0.05906, - + 0.50906, 0.23377, 0.57406, 0.05373, 0.00769, - + 0.00243, 0.03170, 0.05722 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ - + 0.50111, 0.22729, 0.53806, 0.05208, 0.00844, - + 0.00324, 0.03117, 0.05558, - + 0.49325, 0.22126, 0.50557, 0.05063, 0.00902, - + 0.00397, 0.03062, 0.05387, - + 0.48554, 0.21562, 0.47630, 0.04920, 0.00946, - + 0.00453, 0.03010, 0.05227, - + 0.47808, 0.21029, 0.44993, 0.04777, 0.00978, - + 0.00493, 0.02960, 0.05082, - + 0.47092, 0.20519, 0.42605, 0.04650, 0.00998, - + 0.00528, 0.02905, 0.04944, - + 0.46381, 0.20055, 0.40396, 0.04528, 0.01021, - + 0.00558, 0.02847, 0.04800, - + 0.45701, 0.19610, 0.38391, 0.04409, 0.01038, - + 0.00582, 0.02792, 0.04670 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ - + 0.45048, 0.19178, 0.36563, 0.04290, 0.01046, - + 0.00598, 0.02739, 0.04559, - + 0.44408, 0.18771, 0.34877, 0.04182, 0.01052, - + 0.00611, 0.02688, 0.04442, - + 0.43793, 0.18391, 0.33331, 0.04081, 0.01055, - + 0.00623, 0.02638, 0.04328, - + 0.43177, 0.18034, 0.31892, 0.03987, 0.01055, - + 0.00631, 0.02589, 0.04221, - + 0.42593, 0.17694, 0.30570, 0.03898, 0.01053, - + 0.00639, 0.02541, 0.04118 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + 0.56657, 0.27385, 0.77290, 0.05154, 0.00001, - + 0.00000, 0.02418, 0.05592, - + 0.55642, 0.26187, 0.70031, 0.04989, 0.00001, - + 0.00002, 0.02490, 0.05366, - + 0.54561, 0.25099, 0.63701, 0.04826, 0.00079, - + 0.00006, 0.02519, 0.05146, - + 0.53441, 0.24104, 0.58177, 0.04645, 0.00265, - + 0.00004, 0.02521, 0.04939, - + 0.52340, 0.23207, 0.53394, 0.04461, 0.00394, - + 0.00029, 0.02498, 0.04760, - + 0.51261, 0.22376, 0.49229, 0.04305, 0.00492, - + 0.00105, 0.02463, 0.04576, - + 0.50181, 0.21638, 0.45567, 0.04167, 0.00558, - + 0.00181, 0.02422, 0.04398 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ - + 0.49159, 0.20941, 0.42329, 0.04020, 0.00616, - + 0.00240, 0.02379, 0.04234, - + 0.48193, 0.20276, 0.39454, 0.03868, 0.00655, - + 0.00283, 0.02326, 0.04105, - + 0.47246, 0.19676, 0.36890, 0.03738, 0.00687, - + 0.00317, 0.02269, 0.03970, - + 0.46331, 0.19126, 0.34601, 0.03622, 0.00713, - + 0.00347, 0.02213, 0.03832, - + 0.45478, 0.18593, 0.32555, 0.03498, 0.00724, - + 0.00373, 0.02162, 0.03721, - + 0.44627, 0.18111, 0.30698, 0.03395, 0.00738, - + 0.00390, 0.02118, 0.03593, - + 0.43822, 0.17649, 0.29019, 0.03298, 0.00747, - + 0.00407, 0.02073, 0.03478 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ - + 0.43059, 0.17204, 0.27493, 0.03203, 0.00751, - + 0.00424, 0.02026, 0.03380, - + 0.42318, 0.16794, 0.26109, 0.03112, 0.00753, - + 0.00434, 0.01979, 0.03283, - + 0.41613, 0.16410, 0.24849, 0.03025, 0.00755, - + 0.00442, 0.01935, 0.03191, - + 0.40919, 0.16048, 0.23672, 0.02947, 0.00750, - + 0.00442, 0.01889, 0.03107, - + 0.40260, 0.15705, 0.22597, 0.02874, 0.00746, - + 0.00443, 0.01845, 0.03027 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + 0.57320, 0.26055, 0.66597, 0.04112, 0.00001, - + 0.00008, 0.01880, 0.04445, - + 0.55803, 0.24685, 0.59189, 0.03946, 0.00001, - + 0.00008, 0.01958, 0.04212, - + 0.54300, 0.23468, 0.52989, 0.03771, 0.00022, - + 0.00008, 0.01959, 0.04049, - + 0.52818, 0.22397, 0.47756, 0.03616, 0.00172, - + 0.00009, 0.01944, 0.03848, - + 0.51431, 0.21407, 0.43304, 0.03457, 0.00274, - + 0.00021, 0.01917, 0.03689, - + 0.50084, 0.20543, 0.39519, 0.03308, 0.00349, - + 0.00076, 0.01884, 0.03532, - + 0.48800, 0.19750, 0.36238, 0.03172, 0.00409, - + 0.00133, 0.01833, 0.03383 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ - + 0.47584, 0.19028, 0.33366, 0.03051, 0.00452, - + 0.00171, 0.01791, 0.03232, - + 0.46421, 0.18367, 0.30864, 0.02942, 0.00479, - + 0.00198, 0.01748, 0.03093, - + 0.45326, 0.17753, 0.28664, 0.02836, 0.00502, - + 0.00223, 0.01702, 0.02972, - + 0.44293, 0.17179, 0.26714, 0.02734, 0.00522, - + 0.00247, 0.01653, 0.02863, - + 0.43306, 0.16640, 0.24979, 0.02637, 0.00535, - + 0.00270, 0.01609, 0.02767, - + 0.42367, 0.16147, 0.23419, 0.02545, 0.00540, - + 0.00284, 0.01568, 0.02665, - + 0.41474, 0.15688, 0.22028, 0.02459, 0.00542, - + 0.00292, 0.01529, 0.02574 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ - + 0.40624, 0.15257, 0.20783, 0.02376, 0.00539, - + 0.00296, 0.01492, 0.02494, - + 0.39801, 0.14859, 0.19640, 0.02306, 0.00537, - + 0.00301, 0.01449, 0.02416, - + 0.39022, 0.14486, 0.18606, 0.02241, 0.00535, - + 0.00305, 0.01409, 0.02343, - + 0.38288, 0.14112, 0.17672, 0.02172, 0.00534, - + 0.00309, 0.01375, 0.02271, - + 0.37586, 0.13766, 0.16816, 0.02106, 0.00531, - + 0.00312, 0.01341, 0.02205 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + 0.57227, 0.24490, 0.57098, 0.03244, 0.00001, - + 0.00001, 0.01463, 0.03454, - + 0.55263, 0.22950, 0.49826, 0.03067, 0.00001, - + 0.00005, 0.01506, 0.03305, - + 0.53356, 0.21649, 0.43921, 0.02912, 0.00022, - + 0.00002, 0.01518, 0.03109, - + 0.51563, 0.20511, 0.39068, 0.02775, 0.00131, - + 0.00009, 0.01496, 0.02952, - + 0.49888, 0.19512, 0.35043, 0.02633, 0.00215, - + 0.00023, 0.01454, 0.02817, - + 0.48317, 0.18618, 0.31648, 0.02522, 0.00272, - + 0.00064, 0.01426, 0.02665, - + 0.46845, 0.17813, 0.28761, 0.02403, 0.00316, - + 0.00095, 0.01388, 0.02544 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ - + 0.45458, 0.17093, 0.26274, 0.02294, 0.00338, - + 0.00125, 0.01352, 0.02436, - + 0.44172, 0.16420, 0.24127, 0.02195, 0.00359, - + 0.00150, 0.01315, 0.02324, - + 0.42952, 0.15810, 0.22253, 0.02113, 0.00370, - + 0.00167, 0.01275, 0.02223, - + 0.41797, 0.15256, 0.20607, 0.02041, 0.00374, - + 0.00178, 0.01232, 0.02135, - + 0.40730, 0.14727, 0.19155, 0.01957, 0.00388, - + 0.00189, 0.01188, 0.02055, - + 0.39716, 0.14243, 0.17887, 0.01882, 0.00390, - + 0.00201, 0.01149, 0.01979, - + 0.38760, 0.13795, 0.16751, 0.01810, 0.00390, - + 0.00209, 0.01115, 0.01910 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ - + 0.37851, 0.13376, 0.15724, 0.01742, 0.00390, - + 0.00210, 0.01084, 0.01848, - + 0.36999, 0.12980, 0.14796, 0.01679, 0.00390, - + 0.00213, 0.01052, 0.01778, - + 0.36193, 0.12613, 0.13959, 0.01621, 0.00389, - + 0.00215, 0.01022, 0.01713, - + 0.35404, 0.12274, 0.13203, 0.01570, 0.00384, - + 0.00218, 0.00994, 0.01657, - + 0.34657, 0.11954, 0.12517, 0.01521, 0.00379, - + 0.00219, 0.00967, 0.01603 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + 0.56538, 0.22677, 0.48679, 0.02493, 0.00001, - + 0.00010, 0.01125, 0.02674, - + 0.54059, 0.21110, 0.41754, 0.02362, 0.00001, - + 0.00004, 0.01150, 0.02509, - + 0.51810, 0.19754, 0.36280, 0.02226, 0.00004, - + 0.00009, 0.01152, 0.02372, - + 0.49725, 0.18600, 0.31868, 0.02104, 0.00095, - + 0.00012, 0.01126, 0.02253, - + 0.47797, 0.17605, 0.28261, 0.02006, 0.00146, - + 0.00015, 0.01103, 0.02126, - + 0.46054, 0.16712, 0.25296, 0.01899, 0.00183, - + 0.00047, 0.01069, 0.02030, - + 0.44439, 0.15914, 0.22776, 0.01801, 0.00221, - + 0.00077, 0.01039, 0.01917 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ - + 0.42925, 0.15205, 0.20665, 0.01728, 0.00247, - + 0.00090, 0.01003, 0.01807, - + 0.41522, 0.14553, 0.18838, 0.01656, 0.00259, - + 0.00109, 0.00965, 0.01726, - + 0.40223, 0.13955, 0.17264, 0.01580, 0.00266, - + 0.00126, 0.00933, 0.01652, - + 0.39029, 0.13407, 0.15908, 0.01501, 0.00274, - + 0.00135, 0.00905, 0.01579, - + 0.37934, 0.12907, 0.14720, 0.01415, 0.00281, - + 0.00136, 0.00872, 0.01512, - + 0.36836, 0.12445, 0.13660, 0.01371, 0.00285, - + 0.00144, 0.00843, 0.01446, - + 0.35837, 0.12013, 0.12722, 0.01320, 0.00284, - + 0.00149, 0.00815, 0.01390 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ - + 0.34934, 0.11605, 0.11888, 0.01254, 0.00279, - + 0.00149, 0.00786, 0.01342, - + 0.34021, 0.11244, 0.11151, 0.01209, 0.00279, - + 0.00155, 0.00765, 0.01297, - + 0.33161, 0.10908, 0.10490, 0.01167, 0.00279, - + 0.00159, 0.00747, 0.01255, - + 0.32368, 0.10578, 0.09886, 0.01125, 0.00273, - + 0.00156, 0.00722, 0.01213, - + 0.31617, 0.10270, 0.09342, 0.01087, 0.00269, - + 0.00153, 0.00699, 0.01171 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + 0.55161, 0.20834, 0.41234, 0.01882, 0.00001, - + 0.00010, 0.00846, 0.02046, - + 0.52309, 0.19192, 0.34778, 0.01775, 0.00001, - + 0.00000, 0.00868, 0.01921, - + 0.49732, 0.17840, 0.29790, 0.01675, 0.00001, - + 0.00010, 0.00874, 0.01797, - + 0.47384, 0.16703, 0.25853, 0.01590, 0.00063, - + 0.00007, 0.00861, 0.01677, - + 0.45313, 0.15697, 0.22705, 0.01487, 0.00118, - + 0.00016, 0.00842, 0.01571, - + 0.43434, 0.14821, 0.20114, 0.01398, 0.00150, - + 0.00036, 0.00808, 0.01494, - + 0.41707, 0.14043, 0.17977, 0.01323, 0.00173, - + 0.00055, 0.00778, 0.01414 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ - + 0.40096, 0.13356, 0.16184, 0.01256, 0.00186, - + 0.00073, 0.00748, 0.01348, - + 0.38638, 0.12729, 0.14652, 0.01194, 0.00193, - + 0.00084, 0.00721, 0.01278, - + 0.37288, 0.12164, 0.13346, 0.01139, 0.00203, - + 0.00090, 0.00692, 0.01209, - + 0.36030, 0.11654, 0.12224, 0.01086, 0.00208, - + 0.00094, 0.00662, 0.01149, - + 0.34863, 0.11186, 0.11247, 0.01034, 0.00199, - + 0.00101, 0.00645, 0.01102, - + 0.33783, 0.10752, 0.10394, 0.00976, 0.00205, - + 0.00105, 0.00619, 0.01061, - + 0.32769, 0.10350, 0.09643, 0.00932, 0.00210, - + 0.00109, 0.00594, 0.01019 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ - + 0.31810, 0.09977, 0.08980, 0.00902, 0.00212, - + 0.00115, 0.00574, 0.00976, - + 0.30922, 0.09632, 0.08383, 0.00857, 0.00208, - + 0.00112, 0.00554, 0.00936, - + 0.30094, 0.09312, 0.07851, 0.00814, 0.00201, - + 0.00109, 0.00534, 0.00900, - + 0.29306, 0.09006, 0.07380, 0.00784, 0.00200, - + 0.00111, 0.00516, 0.00864, - + 0.28559, 0.08722, 0.06954, 0.00758, 0.00199, - + 0.00113, 0.00499, 0.00832 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + 0.53275, 0.18980, 0.34717, 0.01472, 0.00001, - + 0.00007, 0.00592, 0.01533, - + 0.50046, 0.17362, 0.28792, 0.01377, 0.00001, - + 0.00004, 0.00624, 0.01432, - + 0.47216, 0.16028, 0.24361, 0.01288, 0.00001, - + 0.00012, 0.00630, 0.01339, - + 0.44743, 0.14867, 0.20883, 0.01192, 0.00037, - + 0.00006, 0.00612, 0.01259, - + 0.42526, 0.13897, 0.18143, 0.01116, 0.00069, - + 0.00005, 0.00601, 0.01182, - + 0.40536, 0.13054, 0.15956, 0.01046, 0.00095, - + 0.00014, 0.00583, 0.01110, - + 0.38734, 0.12327, 0.14159, 0.00977, 0.00120, - + 0.00033, 0.00561, 0.01048 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ - + 0.37117, 0.11660, 0.12646, 0.00918, 0.00131, - + 0.00042, 0.00528, 0.00991, - + 0.35595, 0.11079, 0.11384, 0.00889, 0.00140, - + 0.00054, 0.00511, 0.00921, - + 0.34224, 0.10551, 0.10312, 0.00838, 0.00145, - + 0.00062, 0.00497, 0.00873, - + 0.32984, 0.10063, 0.09393, 0.00778, 0.00146, - + 0.00065, 0.00479, 0.00841, - + 0.31791, 0.09624, 0.08602, 0.00755, 0.00147, - + 0.00068, 0.00460, 0.00799, - + 0.30715, 0.09225, 0.07912, 0.00720, 0.00144, - + 0.00072, 0.00439, 0.00750, - + 0.29710, 0.08857, 0.07306, 0.00682, 0.00142, - + 0.00072, 0.00420, 0.00711 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ - + 0.28766, 0.08516, 0.06772, 0.00642, 0.00141, - + 0.00068, 0.00404, 0.00685, - + 0.27867, 0.08201, 0.06308, 0.00613, 0.00139, - + 0.00071, 0.00391, 0.00665, - + 0.27031, 0.07911, 0.05895, 0.00588, 0.00139, - + 0.00074, 0.00379, 0.00646, - + 0.26267, 0.07633, 0.05519, 0.00564, 0.00138, - + 0.00077, 0.00362, 0.00614, - + 0.25542, 0.07375, 0.05182, 0.00545, 0.00136, - + 0.00078, 0.00349, 0.00585 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + 0.50914, 0.17015, 0.28913, 0.01049, 0.00001, - + 0.00012, 0.00455, 0.01127, - + 0.47426, 0.15417, 0.23659, 0.00972, 0.00001, - + 0.00008, 0.00473, 0.01058, - + 0.44395, 0.14141, 0.19727, 0.00918, 0.00001, - + 0.00003, 0.00476, 0.00965, - + 0.41794, 0.13044, 0.16745, 0.00837, 0.00030, - + 0.00010, 0.00466, 0.00919, - + 0.39481, 0.12128, 0.14411, 0.00784, 0.00062, - + 0.00014, 0.00446, 0.00864, - + 0.37437, 0.11346, 0.12554, 0.00749, 0.00080, - + 0.00024, 0.00426, 0.00798, - + 0.35603, 0.10655, 0.11047, 0.00693, 0.00090, - + 0.00033, 0.00408, 0.00759 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ - + 0.33928, 0.10054, 0.09801, 0.00665, 0.00100, - + 0.00040, 0.00397, 0.00701, - + 0.32454, 0.09503, 0.08765, 0.00610, 0.00102, - + 0.00043, 0.00382, 0.00674, - + 0.31096, 0.09012, 0.07896, 0.00560, 0.00106, - + 0.00048, 0.00363, 0.00646, - + 0.29826, 0.08579, 0.07158, 0.00536, 0.00112, - + 0.00053, 0.00346, 0.00604, - + 0.28656, 0.08189, 0.06527, 0.00524, 0.00110, - + 0.00050, 0.00331, 0.00567, - + 0.27593, 0.07821, 0.05978, 0.00492, 0.00111, - + 0.00050, 0.00316, 0.00536, - + 0.26610, 0.07483, 0.05497, 0.00465, 0.00109, - + 0.00051, 0.00302, 0.00512 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ - + 0.25692, 0.07173, 0.05074, 0.00445, 0.00106, - + 0.00055, 0.00286, 0.00497, - + 0.24814, 0.06890, 0.04703, 0.00437, 0.00105, - + 0.00056, 0.00277, 0.00464, - + 0.23998, 0.06631, 0.04375, 0.00430, 0.00104, - + 0.00056, 0.00269, 0.00433, - + 0.23238, 0.06386, 0.04090, 0.00415, 0.00096, - + 0.00055, 0.00257, 0.00423, - + 0.22539, 0.06157, 0.03833, 0.00398, 0.00091, - + 0.00055, 0.00247, 0.00412 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + 0.48189, 0.15218, 0.23951, 0.00794, 0.00001, - + 0.00001, 0.00301, 0.00802, - + 0.44468, 0.13685, 0.19286, 0.00734, 0.00001, - + 0.00002, 0.00327, 0.00772, - + 0.41316, 0.12445, 0.15879, 0.00682, 0.00001, - + 0.00002, 0.00328, 0.00718, - + 0.38650, 0.11416, 0.13337, 0.00631, 0.00005, - + 0.00003, 0.00322, 0.00661, - + 0.36315, 0.10543, 0.11373, 0.00580, 0.00035, - + 0.00006, 0.00316, 0.00616, - + 0.34227, 0.09806, 0.09825, 0.00542, 0.00053, - + 0.00013, 0.00305, 0.00590, - + 0.32419, 0.09170, 0.08583, 0.00488, 0.00064, - + 0.00019, 0.00293, 0.00555 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ - + 0.30779, 0.08615, 0.07577, 0.00471, 0.00068, - + 0.00020, 0.00272, 0.00506, - + 0.29284, 0.08123, 0.06732, 0.00455, 0.00070, - + 0.00023, 0.00254, 0.00467, - + 0.27940, 0.07676, 0.06023, 0.00423, 0.00076, - + 0.00026, 0.00246, 0.00445, - + 0.26727, 0.07269, 0.05431, 0.00390, 0.00080, - + 0.00029, 0.00238, 0.00428, - + 0.25617, 0.06899, 0.04930, 0.00371, 0.00073, - + 0.00033, 0.00226, 0.00398, - + 0.24576, 0.06577, 0.04492, 0.00358, 0.00069, - + 0.00033, 0.00213, 0.00381, - + 0.23624, 0.06281, 0.04116, 0.00337, 0.00068, - + 0.00033, 0.00202, 0.00367 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ - + 0.22755, 0.06005, 0.03791, 0.00311, 0.00067, - + 0.00035, 0.00192, 0.00353, - + 0.21927, 0.05753, 0.03502, 0.00308, 0.00065, - + 0.00034, 0.00184, 0.00325, - + 0.21158, 0.05520, 0.03247, 0.00309, 0.00065, - + 0.00032, 0.00177, 0.00298, - + 0.20438, 0.05302, 0.03025, 0.00299, 0.00063, - + 0.00033, 0.00171, 0.00287, - + 0.19773, 0.05103, 0.02826, 0.00289, 0.00062, - + 0.00034, 0.00165, 0.00274 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + 0.45140, 0.13384, 0.19629, 0.00549, 0.00001, - + 0.00002, 0.00212, 0.00592, - + 0.41297, 0.11927, 0.15587, 0.00502, 0.00001, - + 0.00002, 0.00234, 0.00551, - + 0.38107, 0.10777, 0.12669, 0.00472, 0.00001, - + 0.00007, 0.00245, 0.00504, - + 0.35339, 0.09828, 0.10534, 0.00434, 0.00015, - + 0.00004, 0.00233, 0.00485, - + 0.33017, 0.09046, 0.08908, 0.00403, 0.00032, - + 0.00006, 0.00224, 0.00444, - + 0.31005, 0.08364, 0.07629, 0.00368, 0.00041, - + 0.00011, 0.00215, 0.00419, - + 0.29212, 0.07787, 0.06611, 0.00352, 0.00042, - + 0.00012, 0.00201, 0.00377 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ - + 0.27577, 0.07283, 0.05790, 0.00343, 0.00039, - + 0.00015, 0.00195, 0.00355, - + 0.26156, 0.06824, 0.05116, 0.00319, 0.00043, - + 0.00018, 0.00184, 0.00331, - + 0.24884, 0.06423, 0.04558, 0.00285, 0.00046, - + 0.00021, 0.00173, 0.00312, - + 0.23713, 0.06074, 0.04090, 0.00259, 0.00048, - + 0.00021, 0.00167, 0.00298, - + 0.22628, 0.05757, 0.03692, 0.00257, 0.00047, - + 0.00022, 0.00156, 0.00274, - + 0.21651, 0.05464, 0.03349, 0.00246, 0.00045, - + 0.00025, 0.00150, 0.00257, - + 0.20756, 0.05197, 0.03055, 0.00235, 0.00047, - + 0.00026, 0.00144, 0.00240 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ - + 0.19928, 0.04956, 0.02803, 0.00226, 0.00051, - + 0.00025, 0.00139, 0.00222, - + 0.19158, 0.04737, 0.02583, 0.00220, 0.00050, - + 0.00028, 0.00133, 0.00212, - + 0.18449, 0.04538, 0.02390, 0.00211, 0.00048, - + 0.00029, 0.00126, 0.00203, - + 0.17789, 0.04346, 0.02220, 0.00194, 0.00046, - + 0.00023, 0.00118, 0.00197, - + 0.17175, 0.04171, 0.02069, 0.00181, 0.00043, - + 0.00019, 0.00110, 0.00190 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + 0.41866, 0.11687, 0.15953, 0.00362, 0.00001, - + 0.00008, 0.00143, 0.00412, - + 0.37996, 0.10336, 0.12489, 0.00345, 0.00001, - + 0.00007, 0.00161, 0.00391, - + 0.34768, 0.09286, 0.10038, 0.00318, 0.00001, - + 0.00000, 0.00163, 0.00375, - + 0.32090, 0.08415, 0.08252, 0.00289, 0.00001, - + 0.00002, 0.00151, 0.00349, - + 0.29787, 0.07684, 0.06909, 0.00281, 0.00011, - + 0.00006, 0.00144, 0.00319, - + 0.27790, 0.07097, 0.05877, 0.00267, 0.00018, - + 0.00007, 0.00143, 0.00283, - + 0.26062, 0.06573, 0.05059, 0.00256, 0.00026, - + 0.00012, 0.00134, 0.00264 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ - + 0.24556, 0.06109, 0.04403, 0.00228, 0.00025, - + 0.00013, 0.00124, 0.00250, - + 0.23178, 0.05713, 0.03870, 0.00219, 0.00027, - + 0.00012, 0.00120, 0.00234, - + 0.21940, 0.05363, 0.03428, 0.00212, 0.00031, - + 0.00011, 0.00112, 0.00215, - + 0.20837, 0.05050, 0.03058, 0.00201, 0.00034, - + 0.00011, 0.00104, 0.00199, - + 0.19835, 0.04765, 0.02748, 0.00192, 0.00037, - + 0.00015, 0.00111, 0.00189, - + 0.18919, 0.04511, 0.02488, 0.00182, 0.00033, - + 0.00011, 0.00098, 0.00163, - + 0.18073, 0.04283, 0.02264, 0.00178, 0.00028, - + 0.00010, 0.00091, 0.00151 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ - + 0.17287, 0.04077, 0.02070, 0.00180, 0.00025, - + 0.00014, 0.00087, 0.00151, - + 0.16586, 0.03887, 0.01901, 0.00166, 0.00027, - + 0.00014, 0.00084, 0.00137, - + 0.15945, 0.03712, 0.01752, 0.00153, 0.00029, - + 0.00013, 0.00081, 0.00124, - + 0.15322, 0.03551, 0.01623, 0.00153, 0.00027, - + 0.00010, 0.00075, 0.00120, - + 0.14755, 0.03403, 0.01508, 0.00148, 0.00026, - + 0.00009, 0.00069, 0.00117 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + 0.38446, 0.10083, 0.12828, 0.00241, 0.00001, - + 0.00001, 0.00104, 0.00289, - + 0.34532, 0.08856, 0.09880, 0.00224, 0.00001, - + 0.00003, 0.00110, 0.00262, - + 0.31328, 0.07871, 0.07835, 0.00229, 0.00001, - + 0.00006, 0.00108, 0.00252, - + 0.28709, 0.07086, 0.06381, 0.00208, 0.00003, - + 0.00001, 0.00114, 0.00223, - + 0.26527, 0.06441, 0.05285, 0.00181, 0.00011, - + 0.00002, 0.00110, 0.00206, - + 0.24629, 0.05896, 0.04453, 0.00184, 0.00017, - + 0.00004, 0.00101, 0.00191, - + 0.22988, 0.05437, 0.03809, 0.00174, 0.00020, - + 0.00007, 0.00094, 0.00163 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ - + 0.21536, 0.05041, 0.03290, 0.00156, 0.00025, - + 0.00008, 0.00092, 0.00158, - + 0.20238, 0.04693, 0.02871, 0.00150, 0.00026, - + 0.00007, 0.00085, 0.00151, - + 0.19088, 0.04387, 0.02531, 0.00147, 0.00026, - + 0.00008, 0.00079, 0.00133, - + 0.18064, 0.04116, 0.02248, 0.00141, 0.00026, - + 0.00009, 0.00077, 0.00117, - + 0.17127, 0.03876, 0.02011, 0.00131, 0.00024, - + 0.00009, 0.00071, 0.00111, - + 0.16283, 0.03658, 0.01811, 0.00128, 0.00024, - + 0.00011, 0.00073, 0.00110, - + 0.15522, 0.03460, 0.01641, 0.00119, 0.00025, - + 0.00011, 0.00070, 0.00108 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ - + 0.14831, 0.03281, 0.01494, 0.00102, 0.00026, - + 0.00010, 0.00064, 0.00104, - + 0.14181, 0.03117, 0.01368, 0.00099, 0.00025, - + 0.00012, 0.00061, 0.00099, - + 0.13584, 0.02969, 0.01257, 0.00098, 0.00025, - + 0.00013, 0.00059, 0.00094, - + 0.13044, 0.02832, 0.01162, 0.00087, 0.00026, - + 0.00014, 0.00057, 0.00089, - + 0.12541, 0.02706, 0.01077, 0.00079, 0.00026, - + 0.00014, 0.00055, 0.00084 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + 0.34970, 0.08634, 0.10210, 0.00144, 0.00001, - + 0.00002, 0.00044, 0.00217, - + 0.31109, 0.07503, 0.07750, 0.00164, 0.00001, - + 0.00002, 0.00061, 0.00193, - + 0.28053, 0.06625, 0.06078, 0.00141, 0.00001, - + 0.00006, 0.00065, 0.00179, - + 0.25532, 0.05930, 0.04893, 0.00126, 0.00003, - + 0.00001, 0.00068, 0.00175, - + 0.23414, 0.05361, 0.04021, 0.00122, 0.00005, - + 0.00001, 0.00067, 0.00163, - + 0.21632, 0.04889, 0.03361, 0.00122, 0.00009, - + 0.00001, 0.00065, 0.00129, - + 0.20086, 0.04483, 0.02853, 0.00114, 0.00014, - + 0.00003, 0.00062, 0.00119 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ - + 0.18713, 0.04140, 0.02447, 0.00115, 0.00009, - + 0.00000, 0.00055, 0.00115, - + 0.17529, 0.03838, 0.02126, 0.00114, 0.00012, - + 0.00002, 0.00052, 0.00100, - + 0.16486, 0.03575, 0.01864, 0.00104, 0.00014, - + 0.00003, 0.00049, 0.00086, - + 0.15552, 0.03344, 0.01648, 0.00093, 0.00013, - + 0.00003, 0.00045, 0.00077, - + 0.14717, 0.03134, 0.01469, 0.00086, 0.00015, - + 0.00005, 0.00045, 0.00068, - + 0.13953, 0.02948, 0.01318, 0.00075, 0.00017, - + 0.00006, 0.00044, 0.00072, - + 0.13246, 0.02783, 0.01191, 0.00073, 0.00016, - + 0.00006, 0.00041, 0.00072 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ - + 0.12589, 0.02633, 0.01081, 0.00079, 0.00014, - + 0.00005, 0.00038, 0.00067, - + 0.12026, 0.02496, 0.00986, 0.00069, 0.00016, - + 0.00005, 0.00037, 0.00059, - + 0.11513, 0.02372, 0.00904, 0.00056, 0.00016, - + 0.00005, 0.00037, 0.00050, - + 0.11021, 0.02256, 0.00833, 0.00048, 0.00013, - + 0.00005, 0.00034, 0.00052, - + 0.10569, 0.02152, 0.00770, 0.00042, 0.00011, - + 0.00006, 0.00032, 0.00054 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + 0.31340, 0.07287, 0.08010, 0.00120, 0.00001, - + 0.00000, 0.00026, 0.00137, - + 0.27667, 0.06280, 0.05995, 0.00110, 0.00001, - + 0.00001, 0.00043, 0.00136, - + 0.24737, 0.05510, 0.04647, 0.00115, 0.00001, - + 0.00001, 0.00044, 0.00107, - + 0.22381, 0.04895, 0.03700, 0.00105, 0.00001, - + 0.00005, 0.00050, 0.00094, - + 0.20373, 0.04404, 0.03013, 0.00121, 0.00001, - + 0.00005, 0.00043, 0.00079, - + 0.18738, 0.03996, 0.02500, 0.00103, 0.00003, - + 0.00002, 0.00040, 0.00075, - + 0.17334, 0.03646, 0.02106, 0.00095, 0.00005, - + 0.00001, 0.00036, 0.00067 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ - + 0.16108, 0.03352, 0.01798, 0.00088, 0.00009, - + 0.00003, 0.00036, 0.00061, - + 0.15027, 0.03098, 0.01552, 0.00074, 0.00007, - + 0.00003, 0.00033, 0.00065, - + 0.14064, 0.02873, 0.01354, 0.00071, 0.00008, - + 0.00001, 0.00031, 0.00054, - + 0.13214, 0.02678, 0.01192, 0.00072, 0.00011, - + 0.00002, 0.00031, 0.00045, - + 0.12473, 0.02501, 0.01058, 0.00051, 0.00009, - + 0.00004, 0.00030, 0.00057, - + 0.11790, 0.02348, 0.00945, 0.00043, 0.00010, - + 0.00004, 0.00028, 0.00051, - + 0.11168, 0.02208, 0.00849, 0.00039, 0.00010, - + 0.00004, 0.00026, 0.00044 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ - + 0.10602, 0.02082, 0.00769, 0.00039, 0.00009, - + 0.00003, 0.00024, 0.00040, - + 0.10082, 0.01970, 0.00700, 0.00038, 0.00009, - + 0.00004, 0.00023, 0.00039, - + 0.09609, 0.01867, 0.00640, 0.00039, 0.00011, - + 0.00005, 0.00023, 0.00040, - + 0.09175, 0.01774, 0.00588, 0.00036, 0.00009, - + 0.00005, 0.00021, 0.00035, - + 0.08775, 0.01688, 0.00543, 0.00034, 0.00010, - + 0.00005, 0.00020, 0.00033 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + 0.27888, 0.06083, 0.06204, 0.00057, 0.00001, - + 0.00005, 0.00015, 0.00079, - + 0.24346, 0.05199, 0.04573, 0.00083, 0.00001, - + 0.00003, 0.00020, 0.00080, - + 0.21650, 0.04514, 0.03499, 0.00051, 0.00001, - + 0.00001, 0.00022, 0.00075, - + 0.19412, 0.03987, 0.02754, 0.00064, 0.00001, - + 0.00006, 0.00024, 0.00061, - + 0.17601, 0.03561, 0.02221, 0.00056, 0.00001, - + 0.00006, 0.00020, 0.00052, - + 0.16082, 0.03211, 0.01828, 0.00058, 0.00003, - + 0.00002, 0.00025, 0.00050, - + 0.14782, 0.02920, 0.01528, 0.00054, 0.00002, - + 0.00002, 0.00025, 0.00052 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ - + 0.13676, 0.02670, 0.01295, 0.00045, 0.00007, - + 0.00001, 0.00021, 0.00041, - + 0.12707, 0.02456, 0.01112, 0.00040, 0.00009, - + 0.00001, 0.00022, 0.00039, - + 0.11846, 0.02270, 0.00964, 0.00037, 0.00008, - + 0.00003, 0.00023, 0.00042, - + 0.11088, 0.02105, 0.00844, 0.00033, 0.00009, - + 0.00003, 0.00022, 0.00042, - + 0.10430, 0.01963, 0.00746, 0.00024, 0.00008, - + 0.00002, 0.00023, 0.00039, - + 0.09809, 0.01833, 0.00665, 0.00031, 0.00009, - + 0.00002, 0.00021, 0.00029, - + 0.09258, 0.01719, 0.00596, 0.00031, 0.00009, - + 0.00003, 0.00018, 0.00025 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ - + 0.08775, 0.01616, 0.00538, 0.00021, 0.00009, - + 0.00004, 0.00018, 0.00030, - + 0.08322, 0.01524, 0.00488, 0.00021, 0.00009, - + 0.00004, 0.00018, 0.00027, - + 0.07909, 0.01442, 0.00445, 0.00021, 0.00009, - + 0.00005, 0.00017, 0.00025, - + 0.07531, 0.01364, 0.00408, 0.00020, 0.00010, - + 0.00005, 0.00016, 0.00023, - + 0.07185, 0.01294, 0.00376, 0.00019, 0.00008, - + 0.00005, 0.00015, 0.00021 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + 0.24440, 0.04987, 0.04722, 0.00033, 0.00001, - + 0.00005, 0.00006, 0.00047, - + 0.21132, 0.04215, 0.03429, 0.00041, 0.00001, - + 0.00006, 0.00011, 0.00044, - + 0.18597, 0.03635, 0.02586, 0.00051, 0.00001, - + 0.00004, 0.00014, 0.00039, - + 0.16571, 0.03185, 0.02013, 0.00040, 0.00004, - + 0.00001, 0.00018, 0.00049, - + 0.14944, 0.02827, 0.01609, 0.00030, 0.00004, - + 0.00003, 0.00020, 0.00034, - + 0.13588, 0.02534, 0.01313, 0.00022, 0.00003, - + 0.00002, 0.00018, 0.00031, - + 0.12427, 0.02291, 0.01090, 0.00023, 0.00005, - + 0.00001, 0.00018, 0.00030 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ - + 0.11431, 0.02089, 0.00917, 0.00024, 0.00007, - + 0.00001, 0.00019, 0.00027, - + 0.10559, 0.01912, 0.00783, 0.00027, 0.00005, - + 0.00001, 0.00013, 0.00019, - + 0.09806, 0.01760, 0.00676, 0.00023, 0.00005, - + 0.00000, 0.00012, 0.00018, - + 0.09151, 0.01627, 0.00589, 0.00016, 0.00007, - + 0.00002, 0.00016, 0.00020, - + 0.08567, 0.01509, 0.00519, 0.00013, 0.00009, - + 0.00004, 0.00016, 0.00016, - + 0.08042, 0.01407, 0.00461, 0.00009, 0.00008, - + 0.00003, 0.00013, 0.00016, - + 0.07566, 0.01315, 0.00412, 0.00008, 0.00008, - + 0.00003, 0.00012, 0.00015 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ - + 0.07131, 0.01232, 0.00370, 0.00012, 0.00008, - + 0.00002, 0.00012, 0.00014, - + 0.06746, 0.01159, 0.00335, 0.00011, 0.00007, - + 0.00003, 0.00013, 0.00015, - + 0.06399, 0.01093, 0.00304, 0.00009, 0.00007, - + 0.00003, 0.00013, 0.00015, - + 0.06076, 0.01032, 0.00279, 0.00007, 0.00005, - + 0.00003, 0.00010, 0.00014, - + 0.05782, 0.00976, 0.00256, 0.00005, 0.00005, - + 0.00002, 0.00009, 0.00013 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + 0.21180, 0.04060, 0.03552, 0.00040, 0.00001, - + 0.00010, 0.00001, 0.00035, - + 0.18146, 0.03395, 0.02538, 0.00045, 0.00001, - + 0.00006, 0.00002, 0.00030, - + 0.15829, 0.02909, 0.01893, 0.00044, 0.00001, - + 0.00007, 0.00008, 0.00024, - + 0.14038, 0.02532, 0.01458, 0.00021, 0.00001, - + 0.00007, 0.00007, 0.00017, - + 0.12549, 0.02231, 0.01155, 0.00023, 0.00001, - + 0.00004, 0.00009, 0.00026, - + 0.11345, 0.01988, 0.00936, 0.00021, 0.00002, - + 0.00005, 0.00008, 0.00016, - + 0.10312, 0.01790, 0.00771, 0.00027, 0.00003, - + 0.00002, 0.00012, 0.00015 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ - + 0.09442, 0.01622, 0.00646, 0.00023, 0.00003, - + 0.00002, 0.00010, 0.00016, - + 0.08701, 0.01480, 0.00549, 0.00015, 0.00004, - + 0.00000, 0.00008, 0.00014, - + 0.08055, 0.01356, 0.00472, 0.00010, 0.00004, - + 0.00000, 0.00009, 0.00013, - + 0.07481, 0.01248, 0.00410, 0.00008, 0.00004, - + 0.00000, 0.00008, 0.00013, - + 0.06965, 0.01154, 0.00359, 0.00013, 0.00004, - + 0.00001, 0.00006, 0.00014, - + 0.06513, 0.01073, 0.00317, 0.00012, 0.00003, - + 0.00001, 0.00007, 0.00013, - + 0.06113, 0.00999, 0.00283, 0.00011, 0.00003, - + 0.00000, 0.00007, 0.00011 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ - + 0.05755, 0.00934, 0.00254, 0.00007, 0.00002, - + 0.00001, 0.00007, 0.00010, - + 0.05429, 0.00876, 0.00229, 0.00006, 0.00002, - + 0.00001, 0.00006, 0.00007, - + 0.05135, 0.00824, 0.00208, 0.00004, 0.00002, - + 0.00000, 0.00006, 0.00006, - + 0.04866, 0.00776, 0.00190, 0.00001, 0.00004, - + 0.00001, 0.00006, 0.00009, - + 0.04620, 0.00733, 0.00174, 0.00002, 0.00004, - + 0.00002, 0.00006, 0.00011 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + 0.18063, 0.03217, 0.02606, 0.00015, 0.00001, - + 0.00004, 0.00001, 0.00014, - + 0.15337, 0.02677, 0.01841, 0.00024, 0.00001, - + 0.00003, 0.00001, 0.00016, - + 0.13272, 0.02277, 0.01358, 0.00022, 0.00001, - + 0.00004, 0.00002, 0.00018, - + 0.11667, 0.01970, 0.01038, 0.00022, 0.00001, - + 0.00002, 0.00002, 0.00012, - + 0.10374, 0.01728, 0.00815, 0.00023, 0.00001, - + 0.00001, 0.00003, 0.00008, - + 0.09320, 0.01534, 0.00655, 0.00017, 0.00001, - + 0.00002, 0.00001, 0.00012, - + 0.08453, 0.01373, 0.00537, 0.00009, 0.00001, - + 0.00002, 0.00000, 0.00009 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ - + 0.07706, 0.01240, 0.00447, 0.00008, 0.00001, - + 0.00001, 0.00002, 0.00010, - + 0.07062, 0.01126, 0.00378, 0.00009, 0.00001, - + 0.00000, 0.00004, 0.00011, - + 0.06505, 0.01029, 0.00323, 0.00010, 0.00000, - + 0.00000, 0.00003, 0.00009, - + 0.06018, 0.00946, 0.00279, 0.00012, 0.00000, - + 0.00001, 0.00003, 0.00007, - + 0.05588, 0.00872, 0.00244, 0.00012, 0.00000, - + 0.00001, 0.00003, 0.00005, - + 0.05210, 0.00807, 0.00215, 0.00010, 0.00001, - + 0.00000, 0.00003, 0.00007, - + 0.04872, 0.00750, 0.00191, 0.00008, 0.00001, - + 0.00000, 0.00003, 0.00007 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ - + 0.04565, 0.00699, 0.00171, 0.00009, 0.00001, - + 0.00000, 0.00002, 0.00007, - + 0.04298, 0.00653, 0.00154, 0.00006, 0.00001, - + 0.00000, 0.00002, 0.00007, - + 0.04058, 0.00612, 0.00139, 0.00002, 0.00001, - + 0.00000, 0.00002, 0.00007, - + 0.03832, 0.00576, 0.00127, 0.00003, 0.00001, - + 0.00000, 0.00002, 0.00006, - + 0.03629, 0.00542, 0.00116, 0.00003, 0.00001, - + 0.00000, 0.00002, 0.00005 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + 0.12459, 0.01917, 0.01314, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00005, - + 0.10362, 0.01561, 0.00898, 0.00008, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.08808, 0.01306, 0.00644, 0.00006, 0.00001, - + 0.00002, 0.00000, 0.00002, - + 0.07623, 0.01111, 0.00480, 0.00003, 0.00001, - + 0.00000, 0.00001, 0.00005, - + 0.06687, 0.00962, 0.00370, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00007, - + 0.05939, 0.00844, 0.00292, 0.00001, 0.00000, - + 0.00000, 0.00002, 0.00006, - + 0.05313, 0.00748, 0.00236, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00005 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ - + 0.04796, 0.00668, 0.00194, 0.00001, 0.00002, - + 0.00000, 0.00002, 0.00001, - + 0.04353, 0.00600, 0.00162, 0.00001, 0.00002, - + 0.00000, 0.00002, 0.00002, - + 0.03969, 0.00543, 0.00137, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00004, - + 0.03639, 0.00495, 0.00118, 0.00003, 0.00001, - + 0.00000, 0.00002, 0.00002, - + 0.03356, 0.00453, 0.00102, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00004, - + 0.03104, 0.00417, 0.00089, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02881, 0.00383, 0.00079, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ - + 0.02684, 0.00356, 0.00070, 0.00002, 0.00001, - + 0.00001, 0.00002, 0.00001, - + 0.02508, 0.00331, 0.00063, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02350, 0.00309, 0.00056, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02209, 0.00288, 0.00051, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02080, 0.00270, 0.00047, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + 0.07957, 0.01048, 0.00596, 0.00004, 0.00001, - + 0.00001, 0.00001, 0.00001, - + 0.06469, 0.00834, 0.00393, 0.00007, 0.00001, - + 0.00001, 0.00001, 0.00001, - + 0.05390, 0.00684, 0.00274, 0.00003, 0.00001, - + 0.00001, 0.00001, 0.00004, - + 0.04590, 0.00574, 0.00200, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00003, - + 0.03967, 0.00488, 0.00151, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.03470, 0.00422, 0.00117, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.03070, 0.00370, 0.00093, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ - + 0.02737, 0.00326, 0.00076, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02458, 0.00292, 0.00062, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02222, 0.00261, 0.00052, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02021, 0.00236, 0.00044, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01843, 0.00213, 0.00038, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01690, 0.00194, 0.00033, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01559, 0.00179, 0.00029, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ - + 0.01441, 0.00164, 0.00026, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01337, 0.00151, 0.00023, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01244, 0.00140, 0.00021, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01161, 0.00129, 0.00019, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01087, 0.00121, 0.00017, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + 0.04536, 0.00498, 0.00231, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00001, - + 0.03601, 0.00389, 0.00147, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02947, 0.00313, 0.00100, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02460, 0.00257, 0.00071, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.02086, 0.00217, 0.00052, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01798, 0.00184, 0.00040, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01568, 0.00160, 0.00031, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ - + 0.01382, 0.00139, 0.00025, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01226, 0.00123, 0.00021, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01096, 0.00109, 0.00017, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00987, 0.00097, 0.00014, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00894, 0.00087, 0.00012, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00812, 0.00079, 0.00011, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00741, 0.00071, 0.00009, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ - + 0.00680, 0.00066, 0.00008, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00627, 0.00060, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00579, 0.00055, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00536, 0.00051, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00498, 0.00047, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + 0.02210, 0.00199, 0.00072, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01702, 0.00150, 0.00044, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01355, 0.00117, 0.00029, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01104, 0.00096, 0.00020, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00919, 0.00077, 0.00014, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00778, 0.00065, 0.00011, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00668, 0.00057, 0.00008, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ - + 0.00579, 0.00049, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00507, 0.00041, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00448, 0.00036, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00398, 0.00031, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00356, 0.00028, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00321, 0.00025, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00289, 0.00022, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ - + 0.00264, 0.00019, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00240, 0.00018, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00220, 0.00017, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00202, 0.00015, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00186, 0.00014, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + 0.00204, 0.00011, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00145, 0.00008, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00107, 0.00006, 0.00001, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00084, 0.00004, 0.00001, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00065, 0.00004, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00052, 0.00003, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00044, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ - + 0.00037, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00030, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00026, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00022, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00019, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00016, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00015, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ - + 0.00013, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00010, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,5,7,0,0,7,7/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - XSAVE=X -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(55,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7) GO TO 31 - DO 30 K=1,19 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,8 - G(I)=ZEROD - IF(XXX.GE.ONED) GOTO 60 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) -C - X=XSAVE -C - RETURN - END diff --git a/PDF/spdf/sfdiss0.F b/PDF/spdf/sfdiss0.F deleted file mode 100644 index acd4d3b4605..00000000000 --- a/PDF/spdf/sfdiss0.F +++ /dev/null @@ -1,1984 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:44 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:35 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFDISS0(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) - -C THIS IS THE NEW B0-TYPE FIT "S0'" WITH UBAR = DBAR (230 MEV) -C IN THE ** DIS ** SCHEME -C -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,20),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + 0.01733, 0.00079, 4.29007, 0.46317, 0.06785, - + 0.00000, 0.26832, 0.46689, - + 0.01777, 0.00090, 10.96969, 0.64698, 0.25154, - + 0.00000, 0.45214, 0.65044, - + 0.01819, 0.00100, 19.87027, 0.88114, 0.48562, - + 0.00000, 0.68633, 0.88438, - + 0.01858, 0.00109, 30.53786, 1.16076, 0.76516, - + 0.00000, 0.96597, 1.16378, - + 0.01894, 0.00119, 42.94975, 1.48412, 1.08844, - + 0.07130, 1.28936, 1.48695, - + 0.01930, 0.00129, 56.89287, 1.84855, 1.45281, - + 0.40611, 1.65382, 1.85121, - + 0.01963, 0.00138, 72.20888, 2.25266, 1.85687, - + 0.83810, 2.05797, 2.25515 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ - + 0.01995, 0.00148, 88.74004, 2.69380, 2.29795, - + 1.30203, 2.49913, 2.69614, - + 0.02026, 0.00156, 106.35173, 3.16932, 2.77343, - + 1.80186, 2.97468, 3.17151, - + 0.02056, 0.00165, 124.94041, 3.67720, 3.28127, - + 2.33410, 3.48260, 3.67926, - + 0.02084, 0.00174, 144.43050, 4.21585, 3.81988, - + 2.89732, 4.02129, 4.21778, - + 0.02112, 0.00182, 164.67508, 4.78220, 4.38619, - + 3.48814, 4.58766, 4.78400, - + 0.02139, 0.00192, 185.36879, 5.36963, 4.97359, - + 4.09972, 5.17514, 5.37133, - + 0.02166, 0.00200, 206.77844, 5.98353, 5.58747, - + 4.73755, 5.78907, 5.98512 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ - + 0.02191, 0.00208, 228.74190, 6.62047, 6.22438, - + 5.39807, 6.42604, 6.62195, - + 0.02216, 0.00216, 250.89102, 7.27179, 6.87569, - + 6.07236, 7.07740, 7.27318, - + 0.02240, 0.00225, 273.72388, 7.94850, 7.55238, - + 6.77177, 7.75415, 7.94980, - + 0.02263, 0.00232, 296.51294, 8.63398, 8.23784, - + 7.47914, 8.43966, 8.63524, - + 0.02287, 0.00241, 319.87012, 9.34186, 8.94570, - + 8.20858, 9.14757, 9.34301 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + 0.02186, 0.00133, 4.15525, 0.45567, 0.06315, - + 0.00000, 0.26117, 0.45787, - + 0.02247, 0.00149, 9.97353, 0.61785, 0.22549, - + 0.00000, 0.42346, 0.61985, - + 0.02302, 0.00165, 17.40932, 0.81862, 0.42641, - + 0.00000, 0.62433, 0.82044, - + 0.02353, 0.00180, 26.05307, 1.05278, 0.66072, - + 0.00000, 0.85859, 1.05443, - + 0.02401, 0.00195, 35.86687, 1.31822, 0.92630, - + 0.05842, 1.12414, 1.31974, - + 0.02448, 0.00209, 46.66591, 1.61230, 1.22052, - + 0.32968, 1.41834, 1.61370, - + 0.02491, 0.00223, 58.31685, 1.93355, 1.54190, - + 0.67492, 1.73969, 1.93482 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ - + 0.02533, 0.00237, 70.69379, 2.27958, 1.88805, - + 1.04033, 2.08582, 2.28074, - + 0.02573, 0.00251, 83.69285, 2.64813, 2.25672, - + 1.42913, 2.45444, 2.64918, - + 0.02613, 0.00264, 97.23681, 3.03745, 2.64616, - + 1.83841, 2.84386, 3.03840, - + 0.02650, 0.00278, 111.27096, 3.44624, 3.05506, - + 2.26700, 3.25275, 3.44709, - + 0.02686, 0.00291, 125.68948, 3.87206, 3.48100, - + 2.71229, 3.67866, 3.87283, - + 0.02720, 0.00303, 140.27439, 4.30995, 3.91899, - + 3.16911, 4.11663, 4.31065, - + 0.02755, 0.00316, 155.22564, 4.76391, 4.37306, - + 3.64162, 4.57067, 4.76452 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ - + 0.02788, 0.00328, 170.42950, 5.23139, 4.84064, - + 4.12717, 5.03822, 5.23192, - + 0.02819, 0.00341, 185.62791, 5.70599, 5.31534, - + 4.61919, 5.51290, 5.70646, - + 0.02850, 0.00353, 201.18077, 6.19587, 5.80532, - + 5.12611, 6.00286, 6.19627, - + 0.02881, 0.00365, 216.57878, 6.68886, 6.29841, - + 5.63539, 6.49594, 6.68921, - + 0.02910, 0.00376, 232.25762, 7.19497, 6.80463, - + 6.15741, 7.00213, 7.19528 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + 0.02751, 0.00222, 4.02437, 0.44755, 0.05849, - + 0.00000, 0.25394, 0.44862, - + 0.02829, 0.00247, 9.06631, 0.58947, 0.20083, - + 0.00000, 0.39608, 0.59042, - + 0.02902, 0.00271, 15.24934, 0.76026, 0.37199, - + 0.00000, 0.56707, 0.76109, - + 0.02970, 0.00295, 22.21999, 0.95491, 0.56702, - + 0.00000, 0.76193, 0.95565, - + 0.03033, 0.00317, 29.94127, 1.17131, 0.78374, - + 0.04760, 0.97850, 1.17195, - + 0.03092, 0.00339, 38.26198, 1.40703, 1.01979, - + 0.26617, 1.21441, 1.40760, - + 0.03149, 0.00361, 47.07710, 1.66074, 1.27381, - + 0.54061, 1.46829, 1.66123 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ - + 0.03203, 0.00382, 56.29138, 1.93044, 1.54379, - + 0.82692, 1.73814, 1.93085, - + 0.03255, 0.00402, 65.82938, 2.21426, 1.82790, - + 1.12776, 2.02212, 2.21461, - + 0.03305, 0.00423, 75.63731, 2.51083, 2.12475, - + 1.44084, 2.31885, 2.51113, - + 0.03353, 0.00442, 85.67871, 2.81913, 2.43332, - + 1.76527, 2.62730, 2.81938, - + 0.03400, 0.00462, 95.88033, 3.13733, 2.75177, - + 2.09910, 2.94564, 3.13750, - + 0.03444, 0.00481, 106.08917, 3.46172, 3.07641, - + 2.43852, 3.27017, 3.46186, - + 0.03487, 0.00500, 116.45706, 3.79532, 3.41025, - + 2.78668, 3.60390, 3.79541 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ - + 0.03530, 0.00518, 126.90576, 4.13628, 3.75145, - + 3.14167, 3.94499, 4.13633, - + 0.03570, 0.00536, 137.25620, 4.47995, 4.09535, - + 3.49873, 4.28879, 4.47995, - + 0.03609, 0.00555, 147.76971, 4.83234, 4.44797, - + 3.86410, 4.64131, 4.83231, - + 0.03648, 0.00571, 158.09094, 5.18467, 4.80051, - + 4.22873, 4.99375, 5.18460, - + 0.03685, 0.00589, 168.53088, 5.54422, 5.16028, - + 4.60020, 5.35343, 5.54412 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + 0.03140, 0.00299, 3.94949, 0.44243, 0.05576, - + 0.00000, 0.24964, 0.44302, - + 0.03233, 0.00332, 8.57318, 0.57309, 0.18700, - + 0.00000, 0.38060, 0.57360, - + 0.03317, 0.00363, 14.10938, 0.72779, 0.34224, - + 0.00000, 0.53558, 0.72822, - + 0.03395, 0.00392, 20.23964, 0.90180, 0.51673, - + 0.00000, 0.70983, 0.90217, - + 0.03469, 0.00421, 26.93188, 1.09307, 0.70846, - + 0.04209, 0.90134, 1.09339, - + 0.03537, 0.00449, 34.05507, 1.29941, 0.91524, - + 0.23417, 1.10791, 1.29967, - + 0.03603, 0.00477, 41.52043, 1.51959, 1.13586, - + 0.47344, 1.32832, 1.51980 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ - + 0.03667, 0.00503, 49.24931, 1.75186, 1.36853, - + 0.72097, 1.56080, 1.75203, - + 0.03726, 0.00529, 57.18089, 1.99461, 1.61168, - + 0.97916, 1.80376, 1.99475, - + 0.03783, 0.00555, 65.27330, 2.24667, 1.86411, - + 1.24606, 2.05602, 2.24678, - + 0.03839, 0.00581, 73.49934, 2.50718, 2.12497, - + 1.52094, 2.31670, 2.50724, - + 0.03893, 0.00605, 81.80083, 2.77459, 2.39273, - + 1.80219, 2.58429, 2.77462, - + 0.03944, 0.00629, 90.05473, 3.04582, 2.66430, - + 2.08664, 2.85570, 3.04582, - + 0.03994, 0.00652, 98.39052, 3.32346, 2.94226, - + 2.37699, 3.13351, 3.32343 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ - + 0.04042, 0.00675, 106.74629, 3.60596, 3.22508, - + 2.67168, 3.41617, 3.60591, - + 0.04089, 0.00699, 114.97829, 3.88949, 3.50894, - + 2.96679, 3.69988, 3.88943, - + 0.04134, 0.00721, 123.30288, 4.17912, 3.79886, - + 3.26757, 3.98966, 4.17902, - + 0.04178, 0.00742, 131.43360, 4.46755, 4.08758, - + 3.56652, 4.27824, 4.46743, - + 0.04221, 0.00764, 139.62537, 4.76089, 4.38122, - + 3.87001, 4.57173, 4.76075 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + 0.03447, 0.00370, 3.89704, 0.43859, 0.05382, - + 0.00000, 0.24655, 0.43894, - + 0.03550, 0.00408, 8.23885, 0.56152, 0.17745, - + 0.00000, 0.36983, 0.56181, - + 0.03643, 0.00445, 13.35069, 0.70540, 0.32198, - + 0.00000, 0.51403, 0.70564, - + 0.03730, 0.00480, 18.93910, 0.86576, 0.48294, - + 0.00000, 0.67470, 0.86597, - + 0.03812, 0.00515, 24.97672, 1.04064, 0.65838, - + 0.03852, 0.84986, 1.04080, - + 0.03888, 0.00548, 31.34653, 1.22802, 0.84630, - + 0.21350, 1.03751, 1.22815, - + 0.03961, 0.00581, 37.97078, 1.42677, 1.04555, - + 0.43028, 1.23651, 1.42687 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ - + 0.04030, 0.00612, 44.78175, 1.63530, 1.25457, - + 0.65319, 1.44529, 1.63537, - + 0.04096, 0.00643, 51.72809, 1.85217, 1.47192, - + 0.88451, 1.66241, 1.85223, - + 0.04160, 0.00674, 58.77548, 2.07636, 1.69655, - + 1.12249, 1.88683, 2.07640, - + 0.04221, 0.00703, 65.90230, 2.30709, 1.92772, - + 1.36652, 2.11779, 2.30711, - + 0.04280, 0.00732, 73.05998, 2.54304, 2.16409, - + 1.61519, 2.35395, 2.54305, - + 0.04337, 0.00761, 80.14357, 2.78151, 2.40296, - + 1.86575, 2.59261, 2.78150, - + 0.04392, 0.00788, 87.26857, 3.02479, 2.64663, - + 2.12062, 2.83610, 3.02476 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ - + 0.04444, 0.00815, 94.38304, 3.27156, 2.89377, - + 2.37844, 3.08306, 3.27151, - + 0.04496, 0.00842, 101.36421, 3.51848, 3.14107, - + 2.63584, 3.33017, 3.51842, - + 0.04546, 0.00868, 108.40167, 3.77000, 3.39296, - + 2.89741, 3.58188, 3.76994, - + 0.04595, 0.00894, 115.24945, 4.01979, 3.64310, - + 3.15667, 3.83185, 4.01972, - + 0.04641, 0.00919, 122.12920, 4.27322, 3.89686, - + 3.41918, 4.08545, 4.27313 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + 0.03705, 0.00435, 3.85671, 0.43552, 0.05231, - + 0.00000, 0.24411, 0.43571, - + 0.03816, 0.00480, 7.98792, 0.55257, 0.17023, - + 0.00000, 0.36158, 0.55273, - + 0.03917, 0.00522, 12.78898, 0.68841, 0.30683, - + 0.00000, 0.49780, 0.68854, - + 0.04010, 0.00562, 17.98566, 0.83871, 0.45786, - + 0.00000, 0.64847, 0.83881, - + 0.04098, 0.00601, 23.55469, 1.00164, 0.62147, - + 0.03592, 0.81174, 1.00172, - + 0.04181, 0.00639, 29.38963, 1.17530, 0.79576, - + 0.19855, 0.98572, 1.17537, - + 0.04260, 0.00676, 35.42102, 1.35865, 0.97971, - + 0.39916, 1.16938, 1.35870 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ - + 0.04335, 0.00713, 41.58891, 1.55022, 1.17186, - + 0.60449, 1.36125, 1.55027, - + 0.04407, 0.00748, 47.84892, 1.74872, 1.37090, - + 0.81671, 1.56001, 1.74875, - + 0.04475, 0.00782, 54.17197, 1.95319, 1.57589, - + 1.03422, 1.76475, 1.95322, - + 0.04541, 0.00816, 60.54033, 2.16297, 1.78617, - + 1.25652, 1.97479, 2.16299, - + 0.04604, 0.00848, 66.91216, 2.37685, 2.00054, - + 1.48234, 2.18891, 2.37686, - + 0.04665, 0.00880, 73.19493, 2.59240, 2.21656, - + 1.70920, 2.40470, 2.59241, - + 0.04724, 0.00911, 79.49432, 2.81174, 2.43635, - + 1.93933, 2.62427, 2.81174 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ - + 0.04781, 0.00943, 85.76529, 3.03369, 2.65873, - + 2.17155, 2.84643, 3.03368, - + 0.04837, 0.00972, 91.89941, 3.25525, 2.88071, - + 2.40281, 3.06821, 3.25524, - + 0.04890, 0.01002, 98.06761, 3.48046, 3.10632, - + 2.63730, 3.29362, 3.48044, - + 0.04943, 0.01031, 104.05170, 3.70361, 3.32989, - + 2.86919, 3.51699, 3.70360, - + 0.04993, 0.01059, 110.05058, 3.92959, 3.55624, - + 3.10353, 3.74316, 3.92957 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + 0.04617, 0.00719, 3.73301, 0.42494, 0.04753, - + 0.00000, 0.23618, 0.42491, - + 0.04757, 0.00787, 7.25156, 0.52456, 0.14833, - + 0.00000, 0.33638, 0.52454, - + 0.04884, 0.00851, 11.17987, 0.63710, 0.26195, - + 0.00000, 0.44946, 0.63709, - + 0.05003, 0.00912, 15.30139, 0.75899, 0.38485, - + 0.00000, 0.57186, 0.75902, - + 0.05113, 0.00971, 19.60672, 0.88872, 0.51550, - + 0.02874, 0.70205, 0.88877, - + 0.05217, 0.01028, 24.02007, 1.02478, 0.65245, - + 0.15752, 0.83856, 1.02486, - + 0.05316, 0.01084, 28.49510, 1.16640, 0.79491, - + 0.31428, 0.98060, 1.16650 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ - + 0.05411, 0.01138, 32.99355, 1.31251, 0.94180, - + 0.47242, 1.12711, 1.31262, - + 0.05501, 0.01190, 37.48895, 1.46213, 1.09217, - + 0.63383, 1.27711, 1.46226, - + 0.05587, 0.01241, 41.96594, 1.61460, 1.24538, - + 0.79737, 1.42995, 1.61476, - + 0.05669, 0.01291, 46.41725, 1.76949, 1.40095, - + 0.96273, 1.58517, 1.76965, - + 0.05749, 0.01339, 50.81726, 1.92594, 1.55807, - + 1.12906, 1.74196, 1.92613, - + 0.05826, 0.01386, 55.10451, 2.08227, 1.71502, - + 1.29465, 1.89861, 2.08246, - + 0.05900, 0.01431, 59.35997, 2.24004, 1.87341, - + 1.46118, 2.05668, 2.24024 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ - + 0.05971, 0.01476, 63.55490, 2.39847, 2.03245, - + 1.62788, 2.21542, 2.39869, - + 0.06040, 0.01519, 67.61636, 2.55546, 2.19000, - + 1.79261, 2.37269, 2.55569, - + 0.06108, 0.01562, 71.66826, 2.71396, 2.34906, - + 1.95847, 2.53147, 2.71421, - + 0.06173, 0.01603, 75.56110, 2.86995, 2.50560, - + 2.12134, 2.68774, 2.87022, - + 0.06236, 0.01644, 79.43605, 3.02695, 2.66313, - + 2.28489, 2.84500, 3.02723 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + 0.05724, 0.01180, 3.61060, 0.41244, 0.04254, - + 0.00000, 0.22740, 0.41242, - + 0.05898, 0.01282, 6.57201, 0.49574, 0.12734, - + 0.00000, 0.31146, 0.49577, - + 0.06057, 0.01380, 9.74883, 0.58745, 0.22041, - + 0.00000, 0.40385, 0.58750, - + 0.06204, 0.01472, 12.97729, 0.68475, 0.31899, - + 0.00000, 0.50180, 0.68485, - + 0.06340, 0.01560, 16.26187, 0.78648, 0.42191, - + 0.02274, 0.60414, 0.78662, - + 0.06469, 0.01645, 19.55322, 0.89152, 0.52806, - + 0.12360, 0.70974, 0.89170, - + 0.06592, 0.01727, 22.82423, 0.99932, 0.63694, - + 0.24474, 0.81808, 0.99952 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ - + 0.06710, 0.01807, 26.05367, 1.10912, 0.74776, - + 0.36517, 0.92840, 1.10936, - + 0.06822, 0.01885, 29.22864, 1.22027, 0.85987, - + 0.48654, 1.04003, 1.22053, - + 0.06929, 0.01959, 32.34377, 1.33232, 0.97285, - + 0.60806, 1.15255, 1.33261, - + 0.07032, 0.02031, 35.39905, 1.44500, 1.08642, - + 0.72962, 1.26568, 1.44532, - + 0.07131, 0.02101, 38.38046, 1.55777, 1.20004, - + 0.85067, 1.37888, 1.55811, - + 0.07226, 0.02169, 41.24855, 1.66944, 1.31254, - + 0.97003, 1.49096, 1.66981, - + 0.07318, 0.02236, 44.06503, 1.78122, 1.42511, - + 1.08903, 1.60314, 1.78160 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ - + 0.07407, 0.02299, 46.81233, 1.89259, 1.53725, - + 1.20716, 1.71490, 1.89300, - + 0.07494, 0.02362, 49.44273, 2.00210, 1.64751, - + 1.32297, 1.82477, 2.00253, - + 0.07577, 0.02423, 52.04507, 2.11192, 1.75804, - + 1.43873, 1.93496, 2.11235, - + 0.07657, 0.02482, 54.51849, 2.21922, 1.86604, - + 1.55156, 2.04260, 2.21968, - + 0.07736, 0.02541, 56.96199, 2.32655, 1.97406, - + 1.66414, 2.15028, 2.32703 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + 0.06478, 0.01572, 3.53868, 0.40397, 0.03947, - + 0.00000, 0.22167, 0.40399, - + 0.06673, 0.01701, 6.19576, 0.47825, 0.11548, - + 0.00000, 0.29683, 0.47830, - + 0.06853, 0.01825, 8.97954, 0.55882, 0.19762, - + 0.00000, 0.37820, 0.55892, - + 0.07019, 0.01942, 11.75466, 0.64334, 0.28360, - + 0.00000, 0.46345, 0.64346, - + 0.07173, 0.02052, 14.53299, 0.73080, 0.37242, - + 0.01969, 0.55161, 0.73096, - + 0.07320, 0.02159, 17.27850, 0.82028, 0.46318, - + 0.10654, 0.64174, 0.82047, - + 0.07459, 0.02263, 19.97362, 0.91136, 0.55548, - + 0.21002, 0.73344, 0.91156 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ - + 0.07592, 0.02363, 22.60497, 1.00344, 0.64873, - + 0.31199, 0.82610, 1.00367, - + 0.07718, 0.02458, 25.16585, 1.09600, 0.74240, - + 0.41398, 0.91923, 1.09625, - + 0.07840, 0.02550, 27.65526, 1.18873, 0.83619, - + 0.51538, 1.01248, 1.18899, - + 0.07956, 0.02641, 30.07607, 1.28140, 0.92989, - + 0.61614, 1.10569, 1.28170, - + 0.08069, 0.02727, 32.41937, 1.37364, 1.02310, - + 0.71586, 1.19841, 1.37395, - + 0.08177, 0.02810, 34.65535, 1.46448, 1.11489, - + 0.81364, 1.28973, 1.46481, - + 0.08281, 0.02892, 36.83626, 1.55496, 1.20628, - + 0.91060, 1.38067, 1.55531 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ - + 0.08381, 0.02970, 38.94960, 1.64468, 1.29688, - + 1.00637, 1.47083, 1.64505, - + 0.08479, 0.03046, 40.95848, 1.73249, 1.38554, - + 1.09978, 1.55907, 1.73286, - + 0.08573, 0.03122, 42.93570, 1.82018, 1.47406, - + 1.19277, 1.64717, 1.82057, - + 0.08666, 0.03194, 44.80157, 1.90548, 1.56016, - + 1.28298, 1.73287, 1.90589, - + 0.08755, 0.03264, 46.63640, 1.99050, 1.64595, - + 1.37264, 1.81828, 1.99091 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + 0.07065, 0.01922, 3.48702, 0.39740, 0.03723, - + 0.00000, 0.21731, 0.39740, - + 0.07277, 0.02077, 5.93614, 0.46554, 0.10727, - + 0.00000, 0.28641, 0.46556, - + 0.07471, 0.02223, 8.45852, 0.53870, 0.18218, - + 0.00000, 0.36047, 0.53874, - + 0.07652, 0.02359, 10.93790, 0.61483, 0.25993, - + 0.00000, 0.43742, 0.61489, - + 0.07822, 0.02490, 13.39093, 0.69305, 0.33966, - + 0.01772, 0.51640, 0.69314, - + 0.07981, 0.02615, 15.79024, 0.77254, 0.42056, - + 0.09552, 0.59662, 0.77264, - + 0.08134, 0.02735, 18.12395, 0.85298, 0.50237, - + 0.18770, 0.67774, 0.85310 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ - + 0.08279, 0.02852, 20.38364, 0.93387, 0.58454, - + 0.27795, 0.75929, 0.93400, - + 0.08418, 0.02964, 22.56622, 1.01477, 0.66666, - + 0.36771, 0.84080, 1.01491, - + 0.08550, 0.03070, 24.67316, 1.09543, 0.74849, - + 0.45649, 0.92205, 1.09559, - + 0.08678, 0.03173, 26.70900, 1.17570, 0.82989, - + 0.54429, 1.00289, 1.17588, - + 0.08801, 0.03273, 28.66769, 1.25524, 0.91051, - + 0.63080, 1.08298, 1.25543, - + 0.08919, 0.03370, 30.52516, 1.33327, 0.98959, - + 0.71525, 1.16153, 1.33347, - + 0.09033, 0.03464, 32.32776, 1.41071, 1.06803, - + 0.79868, 1.23947, 1.41092 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ - + 0.09144, 0.03554, 34.06572, 1.48724, 1.14552, - + 0.88078, 1.31649, 1.48745, - + 0.09250, 0.03641, 35.70857, 1.56185, 1.22108, - + 0.96057, 1.39158, 1.56208, - + 0.09354, 0.03727, 37.31926, 1.63615, 1.29628, - + 1.03973, 1.46634, 1.63638, - + 0.09453, 0.03810, 38.83084, 1.70817, 1.36920, - + 1.11628, 1.53880, 1.70843, - + 0.09551, 0.03891, 40.31206, 1.77977, 1.44164, - + 1.19213, 1.61083, 1.78002 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + 0.07575, 0.02246, 3.44586, 0.39158, 0.03547, - + 0.00000, 0.21354, 0.39165, - + 0.07804, 0.02421, 5.73444, 0.45514, 0.10115, - + 0.00000, 0.27817, 0.45524, - + 0.08014, 0.02585, 8.05824, 0.52284, 0.17080, - + 0.00000, 0.34685, 0.52297, - + 0.08208, 0.02740, 10.31600, 0.59281, 0.24258, - + 0.00000, 0.41773, 0.59296, - + 0.08389, 0.02887, 12.52815, 0.66427, 0.31570, - + 0.01627, 0.49003, 0.66444, - + 0.08562, 0.03028, 14.67377, 0.73650, 0.38952, - + 0.08748, 0.56306, 0.73671, - + 0.08726, 0.03163, 16.74510, 0.80921, 0.46371, - + 0.17143, 0.63653, 0.80943 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ - + 0.08883, 0.03293, 18.73683, 0.88200, 0.53791, - + 0.25319, 0.71003, 0.88223, - + 0.09032, 0.03417, 20.64867, 0.95449, 0.61176, - + 0.33414, 0.78321, 0.95475, - + 0.09175, 0.03537, 22.48331, 1.02648, 0.68504, - + 0.41384, 0.85585, 1.02675, - + 0.09312, 0.03652, 24.24609, 1.09785, 0.75764, - + 0.49234, 0.92784, 1.09813, - + 0.09443, 0.03763, 25.93327, 1.16834, 0.82932, - + 0.56942, 0.99893, 1.16864, - + 0.09571, 0.03870, 27.52582, 1.23724, 0.89936, - + 0.64439, 1.06840, 1.23756, - + 0.09694, 0.03973, 29.06483, 1.30540, 0.96862, - + 0.71820, 1.13712, 1.30574 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ - + 0.09812, 0.04073, 30.54247, 1.37257, 1.03683, - + 0.79061, 1.20481, 1.37290, - + 0.09927, 0.04170, 31.93173, 1.43787, 1.10316, - + 0.86079, 1.27063, 1.43822, - + 0.10038, 0.04264, 33.28932, 1.50274, 1.16901, - + 0.93022, 1.33599, 1.50309, - + 0.10146, 0.04355, 34.55812, 1.56545, 1.23268, - + 0.99719, 1.39919, 1.56581, - + 0.10251, 0.04444, 35.79784, 1.62763, 1.29579, - + 1.06338, 1.46183, 1.62801 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + 0.09387, 0.03612, 3.31354, 0.37050, 0.02961, - + 0.00000, 0.20010, 0.37051, - + 0.09673, 0.03868, 5.13062, 0.42065, 0.08251, - + 0.00000, 0.25164, 0.42070, - + 0.09937, 0.04107, 6.89413, 0.47280, 0.13715, - + 0.00000, 0.30504, 0.47285, - + 0.10183, 0.04329, 8.54430, 0.52555, 0.19221, - + 0.00000, 0.35895, 0.52563, - + 0.10412, 0.04538, 10.11025, 0.57841, 0.24719, - + 0.01230, 0.41289, 0.57850, - + 0.10631, 0.04737, 11.58706, 0.63089, 0.30168, - + 0.06555, 0.46640, 0.63101, - + 0.10839, 0.04925, 12.97707, 0.68288, 0.35558, - + 0.12737, 0.51934, 0.68302 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ - + 0.11037, 0.05105, 14.28305, 0.73416, 0.40865, - + 0.18654, 0.57152, 0.73430, - + 0.11225, 0.05276, 15.51007, 0.78453, 0.46073, - + 0.24425, 0.62275, 0.78469, - + 0.11407, 0.05440, 16.66443, 0.83390, 0.51173, - + 0.30027, 0.67295, 0.83408, - + 0.11581, 0.05596, 17.75340, 0.88226, 0.56164, - + 0.35474, 0.72209, 0.88245, - + 0.11747, 0.05746, 18.77751, 0.92949, 0.61036, - + 0.40758, 0.77007, 0.92968, - + 0.11907, 0.05890, 19.72649, 0.97514, 0.65743, - + 0.45838, 0.81643, 0.97533, - + 0.12062, 0.06028, 20.63014, 1.01983, 0.70350, - + 0.50786, 0.86182, 1.02003 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ - + 0.12211, 0.06161, 21.48483, 1.06344, 0.74843, - + 0.55592, 0.90609, 1.06366, - + 0.12355, 0.06288, 22.27466, 1.10543, 0.79170, - + 0.60203, 0.94872, 1.10566, - + 0.12494, 0.06412, 23.03784, 1.14680, 0.83429, - + 0.64727, 0.99071, 1.14702, - + 0.12629, 0.06531, 23.73854, 1.18640, 0.87508, - + 0.69048, 1.03091, 1.18663, - + 0.12760, 0.06647, 24.41621, 1.22538, 0.91521, - + 0.73287, 1.07046, 1.22562 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + 0.11706, 0.05734, 3.16801, 0.34287, 0.02313, - + 0.00002, 0.18302, 0.34292, - + 0.12074, 0.06097, 4.54812, 0.38102, 0.06471, - + 0.00002, 0.22291, 0.38110, - + 0.12415, 0.06430, 5.82263, 0.41969, 0.10652, - + 0.00001, 0.26316, 0.41980, - + 0.12732, 0.06736, 6.96601, 0.45791, 0.14759, - + 0.00002, 0.30282, 0.45805, - + 0.13030, 0.07020, 8.01228, 0.49543, 0.18776, - + 0.00905, 0.34167, 0.49559, - + 0.13310, 0.07286, 8.96691, 0.53194, 0.22675, - + 0.04768, 0.37944, 0.53212, - + 0.13578, 0.07537, 9.83846, 0.56743, 0.26459, - + 0.09177, 0.41611, 0.56762 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ - + 0.13833, 0.07772, 10.63628, 0.60187, 0.30123, - + 0.13317, 0.45165, 0.60207, - + 0.14075, 0.07995, 11.36589, 0.63516, 0.33661, - + 0.17288, 0.48600, 0.63537, - + 0.14305, 0.08205, 12.03519, 0.66731, 0.37076, - + 0.21083, 0.51915, 0.66752, - + 0.14526, 0.08405, 12.65259, 0.69835, 0.40370, - + 0.24719, 0.55115, 0.69857, - + 0.14737, 0.08596, 13.22074, 0.72824, 0.43538, - + 0.28195, 0.58194, 0.72846, - + 0.14941, 0.08775, 13.73528, 0.75676, 0.46564, - + 0.31496, 0.61134, 0.75699, - + 0.15136, 0.08947, 14.21533, 0.78438, 0.49494, - + 0.34675, 0.63980, 0.78463 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ - + 0.15324, 0.09113, 14.65937, 0.81104, 0.52319, - + 0.37729, 0.66726, 0.81130, - + 0.15504, 0.09270, 15.06073, 0.83635, 0.55004, - + 0.40621, 0.69334, 0.83660, - + 0.15678, 0.09422, 15.44333, 0.86105, 0.57622, - + 0.43431, 0.71878, 0.86130, - + 0.15847, 0.09567, 15.78525, 0.88444, 0.60104, - + 0.46089, 0.74289, 0.88469, - + 0.16010, 0.09706, 16.11134, 0.90725, 0.62524, - + 0.48672, 0.76639, 0.90751 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + 0.13371, 0.07456, 3.07186, 0.32337, 0.01902, - + 0.00001, 0.17120, 0.32337, - + 0.13806, 0.07890, 4.21376, 0.35516, 0.05469, - + 0.00003, 0.20495, 0.35520, - + 0.14207, 0.08286, 5.23497, 0.38687, 0.08993, - + 0.00001, 0.23843, 0.38693, - + 0.14580, 0.08643, 6.12600, 0.41776, 0.12404, - + 0.00003, 0.27096, 0.41783, - + 0.14927, 0.08973, 6.92145, 0.44766, 0.15690, - + 0.00743, 0.30235, 0.44775, - + 0.15258, 0.09279, 7.63109, 0.47636, 0.18839, - + 0.03887, 0.33246, 0.47647, - + 0.15569, 0.09563, 8.26689, 0.50392, 0.21855, - + 0.07437, 0.36133, 0.50404 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ - + 0.15864, 0.09831, 8.83561, 0.53036, 0.24745, - + 0.10729, 0.38899, 0.53048, - + 0.16145, 0.10080, 9.34709, 0.55563, 0.27505, - + 0.13852, 0.41544, 0.55576, - + 0.16412, 0.10315, 9.80844, 0.57980, 0.30144, - + 0.16808, 0.44073, 0.57994, - + 0.16667, 0.10538, 10.22624, 0.60294, 0.32668, - + 0.19616, 0.46492, 0.60308, - + 0.16909, 0.10747, 10.60383, 0.62501, 0.35076, - + 0.22278, 0.48800, 0.62518, - + 0.17140, 0.10944, 10.93835, 0.64585, 0.37350, - + 0.24780, 0.50980, 0.64601, - + 0.17364, 0.11131, 11.24630, 0.66588, 0.39536, - + 0.27170, 0.53073, 0.66603 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ - + 0.17577, 0.11309, 11.52735, 0.68504, 0.41628, - + 0.29450, 0.55078, 0.68520, - + 0.17781, 0.11478, 11.77610, 0.70310, 0.43603, - + 0.31595, 0.56967, 0.70327, - + 0.17980, 0.11641, 12.01053, 0.72060, 0.45516, - + 0.33667, 0.58800, 0.72078, - + 0.18168, 0.11795, 12.21411, 0.73700, 0.47314, - + 0.35608, 0.60518, 0.73719, - + 0.18352, 0.11943, 12.40637, 0.75291, 0.49056, - + 0.37485, 0.62186, 0.75310 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + 0.14743, 0.08941, 2.99614, 0.30777, 0.01596, - + 0.00001, 0.16188, 0.30779, - + 0.15235, 0.09428, 3.97682, 0.33534, 0.04777, - + 0.00002, 0.19159, 0.33541, - + 0.15689, 0.09867, 4.83251, 0.36253, 0.07876, - + 0.00001, 0.22070, 0.36262, - + 0.16110, 0.10260, 5.56287, 0.38870, 0.10841, - + 0.00003, 0.24862, 0.38881, - + 0.16501, 0.10620, 6.20227, 0.41377, 0.13666, - + 0.00640, 0.27529, 0.41389, - + 0.16870, 0.10949, 6.76239, 0.43757, 0.16346, - + 0.03328, 0.30059, 0.43770, - + 0.17219, 0.11254, 7.25574, 0.46018, 0.18887, - + 0.06340, 0.32461, 0.46034 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ - + 0.17546, 0.11539, 7.68960, 0.48168, 0.21301, - + 0.09107, 0.34743, 0.48182, - + 0.17857, 0.11803, 8.07348, 0.50206, 0.23588, - + 0.11709, 0.36907, 0.50221, - + 0.18153, 0.12050, 8.41432, 0.52140, 0.25758, - + 0.14155, 0.38958, 0.52155, - + 0.18434, 0.12282, 8.71826, 0.53976, 0.27817, - + 0.16461, 0.40907, 0.53992, - + 0.18699, 0.12500, 8.98860, 0.55715, 0.29770, - + 0.18633, 0.42753, 0.55732, - + 0.18953, 0.12704, 9.22349, 0.57343, 0.31602, - + 0.20660, 0.44483, 0.57360, - + 0.19196, 0.12897, 9.43674, 0.58896, 0.33350, - + 0.22585, 0.46134, 0.58914 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ - + 0.19429, 0.13080, 9.62837, 0.60375, 0.35014, - + 0.24411, 0.47705, 0.60392, - + 0.19651, 0.13251, 9.79422, 0.61755, 0.36574, - + 0.26118, 0.49175, 0.61774, - + 0.19866, 0.13416, 9.94882, 0.63087, 0.38079, - + 0.27759, 0.50593, 0.63107, - + 0.20070, 0.13572, 10.07921, 0.64326, 0.39483, - + 0.29288, 0.51914, 0.64345, - + 0.20267, 0.13721, 10.20098, 0.65522, 0.40839, - + 0.30760, 0.53190, 0.65539 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + 0.15902, 0.10267, 2.93193, 0.29486, 0.01357, - + 0.00003, 0.15442, 0.29492, - + 0.16452, 0.10793, 3.79241, 0.31936, 0.04262, - + 0.00003, 0.18121, 0.31944, - + 0.16959, 0.11262, 4.52823, 0.34328, 0.07064, - + 0.00004, 0.20717, 0.34341, - + 0.17423, 0.11680, 5.14390, 0.36609, 0.09714, - + 0.00004, 0.23181, 0.36619, - + 0.17855, 0.12057, 5.67441, 0.38770, 0.12217, - + 0.00567, 0.25514, 0.38782, - + 0.18261, 0.12403, 6.13175, 0.40804, 0.14568, - + 0.02933, 0.27707, 0.40819, - + 0.18641, 0.12721, 6.52844, 0.42722, 0.16784, - + 0.05567, 0.29774, 0.42738 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ - + 0.18998, 0.13013, 6.87192, 0.44531, 0.18870, - + 0.07967, 0.31722, 0.44548, - + 0.19338, 0.13283, 7.17072, 0.46232, 0.20833, - + 0.10209, 0.33554, 0.46250, - + 0.19656, 0.13534, 7.43224, 0.47832, 0.22681, - + 0.12301, 0.35279, 0.47850, - + 0.19957, 0.13770, 7.66248, 0.49342, 0.24426, - + 0.14262, 0.36905, 0.49358, - + 0.20241, 0.13991, 7.86430, 0.50761, 0.26068, - + 0.16099, 0.38436, 0.50776, - + 0.20514, 0.14194, 8.03505, 0.52082, 0.27602, - + 0.17804, 0.39862, 0.52098, - + 0.20775, 0.14387, 8.18813, 0.53334, 0.29057, - + 0.19417, 0.41216, 0.53351 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ - + 0.21022, 0.14569, 8.32394, 0.54518, 0.30435, - + 0.20939, 0.42497, 0.54533, - + 0.21258, 0.14740, 8.43829, 0.55617, 0.31720, - + 0.22355, 0.43688, 0.55632, - + 0.21486, 0.14902, 8.54348, 0.56672, 0.32954, - + 0.23710, 0.44832, 0.56688, - + 0.21701, 0.15053, 8.62821, 0.57642, 0.34098, - + 0.24965, 0.45890, 0.57659, - + 0.21911, 0.15199, 8.70650, 0.58575, 0.35199, - + 0.26169, 0.46907, 0.58593 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + 0.20616, 0.15390, 2.68535, 0.24856, 0.00583, - + 0.00002, 0.12758, 0.24859, - + 0.21388, 0.15999, 3.20192, 0.26461, 0.02713, - + 0.00003, 0.14623, 0.26462, - + 0.22084, 0.16520, 3.61007, 0.27963, 0.04684, - + 0.00001, 0.16359, 0.27966, - + 0.22713, 0.16963, 3.92668, 0.29331, 0.06479, - + 0.00002, 0.17940, 0.29338, - + 0.23284, 0.17355, 4.17998, 0.30586, 0.08119, - + 0.00369, 0.19386, 0.30593, - + 0.23805, 0.17696, 4.38400, 0.31721, 0.09613, - + 0.01878, 0.20700, 0.31731, - + 0.24286, 0.18001, 4.54719, 0.32755, 0.10979, - + 0.03523, 0.21899, 0.32763 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ - + 0.24730, 0.18275, 4.67801, 0.33697, 0.12230, - + 0.04982, 0.22992, 0.33703, - + 0.25144, 0.18517, 4.78318, 0.34553, 0.13377, - + 0.06313, 0.23994, 0.34559, - + 0.25529, 0.18737, 4.86669, 0.35333, 0.14432, - + 0.07527, 0.24910, 0.35340, - + 0.25888, 0.18939, 4.93266, 0.36046, 0.15405, - + 0.08641, 0.25752, 0.36053, - + 0.26227, 0.19121, 4.98391, 0.36697, 0.16302, - + 0.09666, 0.26525, 0.36705, - + 0.26538, 0.19288, 5.02071, 0.37283, 0.17122, - + 0.10599, 0.27228, 0.37289, - + 0.26834, 0.19441, 5.04895, 0.37824, 0.17884, - + 0.11467, 0.27880, 0.37830 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ - + 0.27113, 0.19581, 5.06879, 0.38319, 0.18592, - + 0.12271, 0.28481, 0.38327, - + 0.27374, 0.19707, 5.07871, 0.38762, 0.19237, - + 0.13004, 0.29023, 0.38770, - + 0.27622, 0.19825, 5.08545, 0.39177, 0.19846, - + 0.13697, 0.29536, 0.39187, - + 0.27852, 0.19933, 5.08372, 0.39546, 0.20400, - + 0.14326, 0.29995, 0.39551, - + 0.28073, 0.20035, 5.08013, 0.39891, 0.20925, - + 0.14923, 0.30430, 0.39896 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + 0.27907, 0.21842, 2.32789, 0.19544, 0.00001, - + 0.00013, 0.09712, 0.19532, - + 0.28940, 0.22357, 2.55412, 0.20447, 0.01320, - + 0.00012, 0.10902, 0.20439, - + 0.29821, 0.22765, 2.70850, 0.21237, 0.02621, - + 0.00009, 0.11943, 0.21218, - + 0.30588, 0.23078, 2.80796, 0.21900, 0.03742, - + 0.00010, 0.12836, 0.21887, - + 0.31262, 0.23324, 2.87312, 0.22462, 0.04726, - + 0.00201, 0.13609, 0.22454, - + 0.31848, 0.23523, 2.91302, 0.22939, 0.05584, - + 0.01059, 0.14274, 0.22922, - + 0.32369, 0.23678, 2.93383, 0.23334, 0.06336, - + 0.01972, 0.14848, 0.23325 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ - + 0.32831, 0.23802, 2.94055, 0.23675, 0.07002, - + 0.02757, 0.15349, 0.23661, - + 0.33252, 0.23899, 2.93646, 0.23954, 0.07593, - + 0.03451, 0.15785, 0.23946, - + 0.33629, 0.23977, 2.92475, 0.24189, 0.08118, - + 0.04067, 0.16164, 0.24183, - + 0.33963, 0.24040, 2.90766, 0.24390, 0.08588, - + 0.04619, 0.16498, 0.24379, - + 0.34274, 0.24084, 2.88592, 0.24551, 0.09008, - + 0.05113, 0.16789, 0.24545, - + 0.34551, 0.24111, 2.85969, 0.24680, 0.09378, - + 0.05553, 0.17037, 0.24670, - + 0.34804, 0.24131, 2.83185, 0.24786, 0.09713, - + 0.05950, 0.17257, 0.24772 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ - + 0.35033, 0.24146, 2.80239, 0.24870, 0.10014, - + 0.06307, 0.17447, 0.24854, - + 0.35241, 0.24146, 2.77069, 0.24927, 0.10280, - + 0.06630, 0.17607, 0.24912, - + 0.35437, 0.24142, 2.73959, 0.24975, 0.10525, - + 0.06931, 0.17752, 0.24961, - + 0.35610, 0.24129, 2.70671, 0.24996, 0.10736, - + 0.07194, 0.17871, 0.24989, - + 0.35773, 0.24114, 2.67463, 0.25012, 0.10932, - + 0.07440, 0.17978, 0.25007 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + 0.33941, 0.25693, 2.04288, 0.16248, 0.00001, - + 0.00001, 0.07895, 0.16235, - + 0.35065, 0.25980, 2.13345, 0.16795, 0.00673, - + 0.00003, 0.08752, 0.16785, - + 0.35979, 0.26163, 2.17803, 0.17231, 0.01638, - + 0.00000, 0.09454, 0.17237, - + 0.36730, 0.26270, 2.19021, 0.17562, 0.02458, - + 0.00004, 0.10025, 0.17555, - + 0.37356, 0.26316, 2.18454, 0.17818, 0.03141, - + 0.00144, 0.10495, 0.17812, - + 0.37868, 0.26328, 2.16673, 0.18004, 0.03715, - + 0.00708, 0.10873, 0.17998, - + 0.38307, 0.26304, 2.14048, 0.18135, 0.04212, - + 0.01303, 0.11187, 0.18133 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ - + 0.38678, 0.26257, 2.10900, 0.18227, 0.04639, - + 0.01800, 0.11441, 0.18214, - + 0.38992, 0.26192, 2.07380, 0.18283, 0.05004, - + 0.02231, 0.11652, 0.18263, - + 0.39267, 0.26110, 2.03669, 0.18306, 0.05321, - + 0.02610, 0.11824, 0.18296, - + 0.39506, 0.26016, 1.99883, 0.18306, 0.05598, - + 0.02944, 0.11961, 0.18307, - + 0.39704, 0.25921, 1.96039, 0.18292, 0.05838, - + 0.03230, 0.12074, 0.18284, - + 0.39870, 0.25819, 1.92139, 0.18256, 0.06042, - + 0.03484, 0.12157, 0.18252, - + 0.40011, 0.25711, 1.88338, 0.18210, 0.06221, - + 0.03711, 0.12225, 0.18210 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ - + 0.40133, 0.25599, 1.84621, 0.18154, 0.06380, - + 0.03912, 0.12277, 0.18155, - + 0.40227, 0.25483, 1.80925, 0.18085, 0.06515, - + 0.04085, 0.12310, 0.18081, - + 0.40310, 0.25370, 1.77396, 0.18012, 0.06639, - + 0.04244, 0.12335, 0.18006, - + 0.40366, 0.25256, 1.73879, 0.17930, 0.06740, - + 0.04384, 0.12344, 0.17921, - + 0.40417, 0.25143, 1.70527, 0.17848, 0.06833, - + 0.04513, 0.12348, 0.17836 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + 0.39163, 0.27995, 1.79822, 0.13843, 0.00001, - + 0.00006, 0.06620, 0.13841, - + 0.40222, 0.28028, 1.81193, 0.14154, 0.00308, - + 0.00005, 0.07249, 0.14159, - + 0.41043, 0.27972, 1.79822, 0.14370, 0.01081, - + 0.00006, 0.07741, 0.14366, - + 0.41655, 0.27861, 1.76751, 0.14500, 0.01695, - + 0.00004, 0.08117, 0.14505, - + 0.42142, 0.27708, 1.72906, 0.14576, 0.02206, - + 0.00108, 0.08403, 0.14577, - + 0.42513, 0.27527, 1.68630, 0.14594, 0.02620, - + 0.00510, 0.08623, 0.14604, - + 0.42795, 0.27330, 1.64136, 0.14578, 0.02971, - + 0.00923, 0.08792, 0.14586 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ - + 0.43008, 0.27123, 1.59578, 0.14537, 0.03267, - + 0.01259, 0.08916, 0.14546, - + 0.43168, 0.26909, 1.55051, 0.14479, 0.03511, - + 0.01548, 0.09007, 0.14486, - + 0.43286, 0.26690, 1.50624, 0.14401, 0.03717, - + 0.01797, 0.09072, 0.14405, - + 0.43368, 0.26473, 1.46346, 0.14310, 0.03892, - + 0.02013, 0.09115, 0.14312, - + 0.43414, 0.26254, 1.42223, 0.14213, 0.04040, - + 0.02199, 0.09138, 0.14221, - + 0.43434, 0.26036, 1.38219, 0.14104, 0.04167, - + 0.02358, 0.09146, 0.14110, - + 0.43433, 0.25823, 1.34416, 0.13991, 0.04275, - + 0.02497, 0.09144, 0.13995 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ - + 0.43411, 0.25616, 1.30786, 0.13874, 0.04368, - + 0.02618, 0.09132, 0.13876, - + 0.43365, 0.25410, 1.27284, 0.13757, 0.04441, - + 0.02724, 0.09108, 0.13754, - + 0.43313, 0.25210, 1.23987, 0.13642, 0.04504, - + 0.02820, 0.09080, 0.13636, - + 0.43254, 0.25002, 1.20796, 0.13513, 0.04557, - + 0.02900, 0.09043, 0.13514, - + 0.43190, 0.24802, 1.17785, 0.13387, 0.04601, - + 0.02972, 0.09005, 0.13394 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + 0.43722, 0.29297, 1.58334, 0.11907, 0.00001, - + 0.00007, 0.05583, 0.11915, - + 0.44591, 0.29078, 1.55044, 0.12060, 0.00071, - + 0.00007, 0.06049, 0.12052, - + 0.45213, 0.28783, 1.50408, 0.12116, 0.00690, - + 0.00006, 0.06397, 0.12114, - + 0.45621, 0.28456, 1.45096, 0.12117, 0.01181, - + 0.00006, 0.06634, 0.12110, - + 0.45900, 0.28113, 1.39691, 0.12064, 0.01568, - + 0.00082, 0.06810, 0.12074, - + 0.46053, 0.27774, 1.34365, 0.11996, 0.01877, - + 0.00375, 0.06923, 0.11997, - + 0.46133, 0.27424, 1.29186, 0.11894, 0.02137, - + 0.00671, 0.06999, 0.11893 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ - + 0.46147, 0.27080, 1.24220, 0.11781, 0.02343, - + 0.00908, 0.07050, 0.11769, - + 0.46118, 0.26741, 1.19502, 0.11651, 0.02514, - + 0.01106, 0.07073, 0.11650, - + 0.46052, 0.26408, 1.15044, 0.11517, 0.02655, - + 0.01277, 0.07076, 0.11522, - + 0.45953, 0.26083, 1.10852, 0.11383, 0.02773, - + 0.01427, 0.07067, 0.11385, - + 0.45834, 0.25763, 1.06908, 0.11243, 0.02875, - + 0.01552, 0.07048, 0.11244, - + 0.45690, 0.25454, 1.03167, 0.11101, 0.02953, - + 0.01651, 0.07020, 0.11099, - + 0.45535, 0.25154, 0.99670, 0.10961, 0.03017, - + 0.01740, 0.06985, 0.10958 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ - + 0.45371, 0.24863, 0.96384, 0.10821, 0.03069, - + 0.01822, 0.06943, 0.10824, - + 0.45194, 0.24576, 0.93268, 0.10678, 0.03112, - + 0.01887, 0.06893, 0.10686, - + 0.45015, 0.24302, 0.90360, 0.10540, 0.03150, - + 0.01945, 0.06842, 0.10551, - + 0.44804, 0.24042, 0.87593, 0.10409, 0.03174, - + 0.01993, 0.06787, 0.10415, - + 0.44600, 0.23791, 0.85001, 0.10281, 0.03195, - + 0.02036, 0.06732, 0.10282 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + 0.48368, 0.29879, 1.34867, 0.09928, 0.00001, - + 0.00009, 0.04589, 0.09920, - + 0.48910, 0.29321, 1.28265, 0.09921, 0.00001, - + 0.00009, 0.04912, 0.09917, - + 0.49181, 0.28762, 1.21518, 0.09859, 0.00414, - + 0.00010, 0.05122, 0.09849, - + 0.49257, 0.28205, 1.14948, 0.09744, 0.00788, - + 0.00010, 0.05256, 0.09748, - + 0.49206, 0.27679, 1.08813, 0.09622, 0.01079, - + 0.00058, 0.05333, 0.09605, - + 0.49076, 0.27143, 1.03129, 0.09462, 0.01304, - + 0.00263, 0.05377, 0.09467, - + 0.48869, 0.26638, 0.97867, 0.09305, 0.01480, - + 0.00464, 0.05389, 0.09317 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ - + 0.48622, 0.26150, 0.93011, 0.09145, 0.01623, - + 0.00627, 0.05379, 0.09160, - + 0.48334, 0.25687, 0.88531, 0.08986, 0.01738, - + 0.00759, 0.05355, 0.08995, - + 0.48025, 0.25245, 0.84407, 0.08828, 0.01830, - + 0.00869, 0.05324, 0.08828, - + 0.47708, 0.24819, 0.80612, 0.08667, 0.01904, - + 0.00965, 0.05282, 0.08668, - + 0.47382, 0.24408, 0.77108, 0.08501, 0.01963, - + 0.01044, 0.05231, 0.08522, - + 0.47031, 0.24018, 0.73850, 0.08351, 0.02011, - + 0.01111, 0.05179, 0.08358, - + 0.46680, 0.23648, 0.70846, 0.08205, 0.02050, - + 0.01166, 0.05123, 0.08204 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ - + 0.46329, 0.23291, 0.68065, 0.08059, 0.02078, - + 0.01210, 0.05063, 0.08063, - + 0.45976, 0.22943, 0.65463, 0.07918, 0.02098, - + 0.01248, 0.05008, 0.07913, - + 0.45630, 0.22611, 0.63058, 0.07785, 0.02113, - + 0.01282, 0.04957, 0.07769, - + 0.45273, 0.22289, 0.60800, 0.07655, 0.02123, - + 0.01308, 0.04896, 0.07633, - + 0.44927, 0.21981, 0.58700, 0.07528, 0.02131, - + 0.01331, 0.04835, 0.07508 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + 0.52013, 0.29609, 1.14602, 0.08237, 0.00001, - + 0.00013, 0.03778, 0.08239, - + 0.52111, 0.28781, 1.06317, 0.08124, 0.00001, - + 0.00014, 0.03990, 0.08153, - + 0.51957, 0.27995, 0.98714, 0.07979, 0.00238, - + 0.00019, 0.04107, 0.08019, - + 0.51641, 0.27266, 0.91811, 0.07830, 0.00524, - + 0.00012, 0.04170, 0.07836, - + 0.51252, 0.26563, 0.85648, 0.07656, 0.00746, - + 0.00049, 0.04195, 0.07660, - + 0.50796, 0.25901, 0.80148, 0.07471, 0.00917, - + 0.00194, 0.04190, 0.07478, - + 0.50285, 0.25288, 0.75199, 0.07302, 0.01041, - + 0.00333, 0.04160, 0.07301 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ - + 0.49760, 0.24701, 0.70743, 0.07120, 0.01143, - + 0.00445, 0.04119, 0.07127, - + 0.49228, 0.24145, 0.66719, 0.06942, 0.01222, - + 0.00535, 0.04078, 0.06949, - + 0.48688, 0.23626, 0.63080, 0.06775, 0.01283, - + 0.00607, 0.04027, 0.06781, - + 0.48143, 0.23136, 0.59783, 0.06620, 0.01329, - + 0.00666, 0.03971, 0.06621, - + 0.47606, 0.22670, 0.56777, 0.06472, 0.01366, - + 0.00719, 0.03919, 0.06451, - + 0.47072, 0.22219, 0.54020, 0.06321, 0.01392, - + 0.00758, 0.03857, 0.06306, - + 0.46556, 0.21788, 0.51506, 0.06175, 0.01413, - + 0.00793, 0.03796, 0.06168 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ - + 0.46058, 0.21377, 0.49201, 0.06035, 0.01428, - + 0.00828, 0.03734, 0.06035, - + 0.45547, 0.20993, 0.47070, 0.05901, 0.01437, - + 0.00850, 0.03671, 0.05909, - + 0.45051, 0.20632, 0.45114, 0.05773, 0.01443, - + 0.00868, 0.03612, 0.05788, - + 0.44549, 0.20288, 0.43296, 0.05663, 0.01450, - + 0.00883, 0.03555, 0.05652, - + 0.44072, 0.19957, 0.41617, 0.05555, 0.01452, - + 0.00896, 0.03500, 0.05530 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + 0.54639, 0.28815, 0.97029, 0.06787, 0.00001, - + 0.00001, 0.03069, 0.06788, - + 0.54230, 0.27737, 0.88081, 0.06616, 0.00001, - + 0.00005, 0.03213, 0.06634, - + 0.53613, 0.26783, 0.80328, 0.06457, 0.00133, - + 0.00007, 0.03277, 0.06431, - + 0.52921, 0.25879, 0.73595, 0.06242, 0.00366, - + 0.00005, 0.03300, 0.06251, - + 0.52184, 0.25048, 0.67774, 0.06047, 0.00532, - + 0.00026, 0.03286, 0.06061, - + 0.51404, 0.24286, 0.62694, 0.05861, 0.00654, - + 0.00128, 0.03256, 0.05874, - + 0.50631, 0.23576, 0.58226, 0.05667, 0.00752, - + 0.00237, 0.03228, 0.05683 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ - + 0.49843, 0.22922, 0.54281, 0.05494, 0.00820, - + 0.00318, 0.03179, 0.05510, - + 0.49056, 0.22317, 0.50770, 0.05337, 0.00875, - + 0.00385, 0.03120, 0.05341, - + 0.48299, 0.21744, 0.47636, 0.05182, 0.00917, - + 0.00435, 0.03059, 0.05183, - + 0.47571, 0.21201, 0.44831, 0.05030, 0.00947, - + 0.00472, 0.02999, 0.05038, - + 0.46862, 0.20689, 0.42303, 0.04882, 0.00977, - + 0.00507, 0.02944, 0.04893, - + 0.46177, 0.20194, 0.40022, 0.04742, 0.00988, - + 0.00537, 0.02882, 0.04770, - + 0.45504, 0.19740, 0.37952, 0.04618, 0.00998, - + 0.00561, 0.02823, 0.04642 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ - + 0.44840, 0.19326, 0.36061, 0.04505, 0.01011, - + 0.00582, 0.02766, 0.04510, - + 0.44201, 0.18921, 0.34345, 0.04392, 0.01021, - + 0.00594, 0.02708, 0.04386, - + 0.43591, 0.18536, 0.32779, 0.04284, 0.01028, - + 0.00603, 0.02651, 0.04272, - + 0.43004, 0.18157, 0.31326, 0.04168, 0.01019, - + 0.00607, 0.02599, 0.04182, - + 0.42437, 0.17803, 0.29989, 0.04062, 0.01013, - + 0.00612, 0.02550, 0.04090 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + 0.56337, 0.27601, 0.81835, 0.05530, 0.00001, - + 0.00002, 0.02480, 0.05523, - + 0.55386, 0.26343, 0.72857, 0.05339, 0.00001, - + 0.00000, 0.02562, 0.05339, - + 0.54332, 0.25231, 0.65389, 0.05123, 0.00059, - + 0.00009, 0.02586, 0.05156, - + 0.53225, 0.24228, 0.59091, 0.04946, 0.00230, - + 0.00013, 0.02595, 0.04932, - + 0.52134, 0.23329, 0.53783, 0.04746, 0.00364, - + 0.00032, 0.02556, 0.04754, - + 0.51063, 0.22502, 0.49241, 0.04569, 0.00462, - + 0.00103, 0.02517, 0.04562, - + 0.50016, 0.21740, 0.45331, 0.04408, 0.00525, - + 0.00177, 0.02461, 0.04396 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ - + 0.49009, 0.21026, 0.41904, 0.04235, 0.00578, - + 0.00224, 0.02411, 0.04244, - + 0.48041, 0.20367, 0.38898, 0.04083, 0.00622, - + 0.00264, 0.02356, 0.04087, - + 0.47100, 0.19767, 0.36246, 0.03944, 0.00656, - + 0.00299, 0.02298, 0.03938, - + 0.46196, 0.19207, 0.33901, 0.03807, 0.00681, - + 0.00329, 0.02241, 0.03808, - + 0.45343, 0.18670, 0.31826, 0.03673, 0.00692, - + 0.00356, 0.02183, 0.03697, - + 0.44502, 0.18184, 0.29932, 0.03564, 0.00697, - + 0.00372, 0.02132, 0.03572, - + 0.43700, 0.17725, 0.28233, 0.03461, 0.00705, - + 0.00383, 0.02081, 0.03456 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ - + 0.42933, 0.17291, 0.26705, 0.03359, 0.00714, - + 0.00390, 0.02030, 0.03347, - + 0.42193, 0.16881, 0.25327, 0.03256, 0.00713, - + 0.00400, 0.01979, 0.03257, - + 0.41489, 0.16495, 0.24075, 0.03160, 0.00708, - + 0.00410, 0.01933, 0.03174, - + 0.40802, 0.16127, 0.22923, 0.03079, 0.00704, - + 0.00416, 0.01887, 0.03084, - + 0.40149, 0.15779, 0.21872, 0.02998, 0.00701, - + 0.00422, 0.01844, 0.03000 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + 0.57156, 0.26115, 0.68716, 0.04457, 0.00001, - + 0.00008, 0.01959, 0.04441, - + 0.55656, 0.24731, 0.60099, 0.04265, 0.00001, - + 0.00007, 0.02026, 0.04234, - + 0.54172, 0.23498, 0.53134, 0.04057, 0.00018, - + 0.00006, 0.02030, 0.04042, - + 0.52709, 0.22421, 0.47441, 0.03863, 0.00158, - + 0.00010, 0.02001, 0.03861, - + 0.51318, 0.21444, 0.42700, 0.03692, 0.00250, - + 0.00024, 0.01969, 0.03688, - + 0.49971, 0.20583, 0.38731, 0.03525, 0.00323, - + 0.00076, 0.01919, 0.03527, - + 0.48676, 0.19816, 0.35331, 0.03377, 0.00384, - + 0.00126, 0.01861, 0.03363 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ - + 0.47463, 0.19087, 0.32420, 0.03235, 0.00419, - + 0.00162, 0.01815, 0.03223, - + 0.46317, 0.18415, 0.29893, 0.03102, 0.00441, - + 0.00191, 0.01768, 0.03092, - + 0.45233, 0.17795, 0.27680, 0.02976, 0.00458, - + 0.00217, 0.01720, 0.02975, - + 0.44204, 0.17222, 0.25732, 0.02857, 0.00474, - + 0.00238, 0.01670, 0.02865, - + 0.43219, 0.16699, 0.24006, 0.02760, 0.00490, - + 0.00248, 0.01623, 0.02746, - + 0.42284, 0.16196, 0.22481, 0.02656, 0.00493, - + 0.00257, 0.01574, 0.02660, - + 0.41392, 0.15734, 0.21120, 0.02561, 0.00494, - + 0.00267, 0.01528, 0.02575 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ - + 0.40538, 0.15310, 0.19898, 0.02477, 0.00498, - + 0.00278, 0.01485, 0.02485, - + 0.39712, 0.14912, 0.18792, 0.02404, 0.00498, - + 0.00281, 0.01449, 0.02393, - + 0.38931, 0.14540, 0.17792, 0.02336, 0.00497, - + 0.00283, 0.01413, 0.02308, - + 0.38185, 0.14180, 0.16877, 0.02266, 0.00496, - + 0.00285, 0.01369, 0.02242, - + 0.37477, 0.13840, 0.16047, 0.02198, 0.00492, - + 0.00286, 0.01331, 0.02179 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + 0.57159, 0.24442, 0.57404, 0.03537, 0.00001, - + 0.00006, 0.01545, 0.03516, - + 0.55174, 0.22937, 0.49400, 0.03333, 0.00001, - + 0.00021, 0.01572, 0.03339, - + 0.53272, 0.21644, 0.43060, 0.03154, 0.00001, - + 0.00010, 0.01576, 0.03138, - + 0.51464, 0.20533, 0.37984, 0.02987, 0.00108, - + 0.00012, 0.01534, 0.02969, - + 0.49811, 0.19514, 0.33841, 0.02819, 0.00180, - + 0.00022, 0.01500, 0.02823, - + 0.48247, 0.18629, 0.30410, 0.02665, 0.00246, - + 0.00055, 0.01462, 0.02676, - + 0.46780, 0.17832, 0.27527, 0.02546, 0.00279, - + 0.00094, 0.01415, 0.02545 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ - + 0.45369, 0.17132, 0.25076, 0.02440, 0.00302, - + 0.00121, 0.01369, 0.02417, - + 0.44083, 0.16463, 0.22973, 0.02319, 0.00325, - + 0.00137, 0.01321, 0.02318, - + 0.42871, 0.15854, 0.21139, 0.02219, 0.00340, - + 0.00151, 0.01277, 0.02213, - + 0.41713, 0.15309, 0.19537, 0.02143, 0.00348, - + 0.00165, 0.01238, 0.02107, - + 0.40623, 0.14800, 0.18153, 0.02067, 0.00352, - + 0.00176, 0.01193, 0.02019, - + 0.39623, 0.14313, 0.16924, 0.01970, 0.00358, - + 0.00184, 0.01157, 0.01942, - + 0.38671, 0.13866, 0.15830, 0.01887, 0.00359, - + 0.00189, 0.01122, 0.01871 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ - + 0.37754, 0.13457, 0.14850, 0.01821, 0.00355, - + 0.00194, 0.01087, 0.01807, - + 0.36895, 0.13062, 0.13980, 0.01754, 0.00350, - + 0.00198, 0.01049, 0.01747, - + 0.36086, 0.12694, 0.13197, 0.01691, 0.00346, - + 0.00200, 0.01014, 0.01690, - + 0.35308, 0.12358, 0.12477, 0.01633, 0.00351, - + 0.00203, 0.00986, 0.01621, - + 0.34573, 0.12039, 0.11828, 0.01577, 0.00352, - + 0.00203, 0.00958, 0.01562 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + 0.56500, 0.22609, 0.47688, 0.02730, 0.00001, - + 0.00013, 0.01201, 0.02751, - + 0.53994, 0.21087, 0.40379, 0.02581, 0.00001, - + 0.00008, 0.01212, 0.02559, - + 0.51732, 0.19759, 0.34743, 0.02415, 0.00001, - + 0.00008, 0.01195, 0.02400, - + 0.49653, 0.18603, 0.30312, 0.02263, 0.00078, - + 0.00012, 0.01170, 0.02259, - + 0.47728, 0.17619, 0.26746, 0.02138, 0.00129, - + 0.00016, 0.01129, 0.02130, - + 0.45975, 0.16742, 0.23836, 0.02017, 0.00164, - + 0.00039, 0.01089, 0.02019, - + 0.44367, 0.15942, 0.21392, 0.01899, 0.00195, - + 0.00063, 0.01051, 0.01913 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ - + 0.42863, 0.15237, 0.19344, 0.01812, 0.00219, - + 0.00091, 0.01007, 0.01805, - + 0.41457, 0.14595, 0.17634, 0.01731, 0.00225, - + 0.00103, 0.00965, 0.01718, - + 0.40153, 0.14011, 0.16150, 0.01644, 0.00234, - + 0.00113, 0.00931, 0.01641, - + 0.38949, 0.13479, 0.14849, 0.01556, 0.00246, - + 0.00124, 0.00899, 0.01564, - + 0.37832, 0.12988, 0.13729, 0.01473, 0.00255, - + 0.00129, 0.00860, 0.01498, - + 0.36764, 0.12530, 0.12747, 0.01418, 0.00250, - + 0.00129, 0.00835, 0.01422, - + 0.35758, 0.12105, 0.11877, 0.01365, 0.00245, - + 0.00130, 0.00810, 0.01360 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ - + 0.34807, 0.11711, 0.11101, 0.01311, 0.00244, - + 0.00133, 0.00780, 0.01310, - + 0.33919, 0.11341, 0.10414, 0.01252, 0.00245, - + 0.00135, 0.00755, 0.01265, - + 0.33086, 0.10996, 0.09798, 0.01197, 0.00246, - + 0.00137, 0.00733, 0.01223, - + 0.32293, 0.10667, 0.09236, 0.01152, 0.00245, - + 0.00139, 0.00710, 0.01185, - + 0.31539, 0.10361, 0.08729, 0.01111, 0.00241, - + 0.00140, 0.00688, 0.01147 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + 0.55153, 0.20744, 0.39385, 0.02076, 0.00001, - + 0.00006, 0.00901, 0.02116, - + 0.52235, 0.19185, 0.32842, 0.01951, 0.00001, - + 0.00012, 0.00915, 0.01937, - + 0.49622, 0.17879, 0.27907, 0.01840, 0.00001, - + 0.00012, 0.00907, 0.01802, - + 0.47325, 0.16719, 0.24084, 0.01686, 0.00047, - + 0.00007, 0.00883, 0.01698, - + 0.45217, 0.15753, 0.21043, 0.01593, 0.00090, - + 0.00014, 0.00849, 0.01578, - + 0.43341, 0.14884, 0.18599, 0.01489, 0.00126, - + 0.00038, 0.00816, 0.01480, - + 0.41609, 0.14118, 0.16600, 0.01395, 0.00148, - + 0.00058, 0.00775, 0.01406 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ - + 0.40003, 0.13435, 0.14919, 0.01325, 0.00167, - + 0.00066, 0.00740, 0.01326, - + 0.38555, 0.12809, 0.13494, 0.01245, 0.00175, - + 0.00073, 0.00712, 0.01255, - + 0.37200, 0.12252, 0.12287, 0.01180, 0.00175, - + 0.00081, 0.00682, 0.01188, - + 0.35926, 0.11754, 0.11257, 0.01134, 0.00173, - + 0.00090, 0.00653, 0.01125, - + 0.34763, 0.11289, 0.10363, 0.01082, 0.00177, - + 0.00098, 0.00631, 0.01068, - + 0.33692, 0.10859, 0.09572, 0.01010, 0.00185, - + 0.00096, 0.00610, 0.01021, - + 0.32691, 0.10458, 0.08882, 0.00949, 0.00190, - + 0.00095, 0.00587, 0.00979 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ - + 0.31746, 0.10084, 0.08278, 0.00901, 0.00187, - + 0.00098, 0.00565, 0.00943, - + 0.30828, 0.09741, 0.07738, 0.00871, 0.00183, - + 0.00100, 0.00541, 0.00914, - + 0.29970, 0.09423, 0.07256, 0.00844, 0.00179, - + 0.00101, 0.00521, 0.00886, - + 0.29175, 0.09126, 0.06829, 0.00812, 0.00175, - + 0.00102, 0.00503, 0.00845, - + 0.28429, 0.08848, 0.06442, 0.00784, 0.00173, - + 0.00102, 0.00488, 0.00807 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + 0.53226, 0.18952, 0.32346, 0.01622, 0.00001, - + 0.00010, 0.00646, 0.01587, - + 0.49971, 0.17383, 0.26569, 0.01500, 0.00001, - + 0.00009, 0.00675, 0.01435, - + 0.47142, 0.16058, 0.22306, 0.01370, 0.00001, - + 0.00017, 0.00651, 0.01361, - + 0.44631, 0.14944, 0.19049, 0.01275, 0.00020, - + 0.00014, 0.00630, 0.01256, - + 0.42423, 0.13978, 0.16520, 0.01179, 0.00048, - + 0.00002, 0.00603, 0.01183, - + 0.40414, 0.13162, 0.14495, 0.01113, 0.00074, - + 0.00013, 0.00580, 0.01092, - + 0.38627, 0.12439, 0.12843, 0.01027, 0.00094, - + 0.00028, 0.00562, 0.01016 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ - + 0.37007, 0.11782, 0.11473, 0.00944, 0.00104, - + 0.00037, 0.00530, 0.00971, - + 0.35484, 0.11204, 0.10325, 0.00914, 0.00115, - + 0.00050, 0.00506, 0.00908, - + 0.34097, 0.10675, 0.09356, 0.00872, 0.00121, - + 0.00056, 0.00490, 0.00860, - + 0.32848, 0.10186, 0.08530, 0.00807, 0.00120, - + 0.00056, 0.00472, 0.00824, - + 0.31708, 0.09753, 0.07814, 0.00755, 0.00123, - + 0.00057, 0.00451, 0.00770, - + 0.30596, 0.09349, 0.07194, 0.00724, 0.00125, - + 0.00063, 0.00431, 0.00741, - + 0.29574, 0.08984, 0.06656, 0.00696, 0.00124, - + 0.00067, 0.00412, 0.00707 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ - + 0.28636, 0.08650, 0.06186, 0.00668, 0.00124, - + 0.00070, 0.00393, 0.00664, - + 0.27756, 0.08336, 0.05765, 0.00634, 0.00122, - + 0.00067, 0.00378, 0.00633, - + 0.26933, 0.08044, 0.05389, 0.00603, 0.00118, - + 0.00065, 0.00362, 0.00608, - + 0.26145, 0.07777, 0.05056, 0.00578, 0.00116, - + 0.00063, 0.00347, 0.00588, - + 0.25409, 0.07524, 0.04758, 0.00555, 0.00115, - + 0.00064, 0.00335, 0.00569 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + 0.50834, 0.17046, 0.26302, 0.01146, 0.00001, - + 0.00008, 0.00510, 0.01150, - + 0.47323, 0.15487, 0.21310, 0.01044, 0.00001, - + 0.00013, 0.00489, 0.01093, - + 0.44283, 0.14226, 0.17698, 0.00983, 0.00001, - + 0.00008, 0.00483, 0.00986, - + 0.41641, 0.13177, 0.14977, 0.00901, 0.00030, - + 0.00008, 0.00473, 0.00897, - + 0.39340, 0.12267, 0.12868, 0.00826, 0.00053, - + 0.00014, 0.00447, 0.00840, - + 0.37272, 0.11497, 0.11215, 0.00776, 0.00068, - + 0.00022, 0.00422, 0.00794, - + 0.35461, 0.10810, 0.09863, 0.00711, 0.00084, - + 0.00029, 0.00410, 0.00737 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ - + 0.33831, 0.10201, 0.08756, 0.00643, 0.00083, - + 0.00037, 0.00386, 0.00707, - + 0.32337, 0.09662, 0.07838, 0.00609, 0.00085, - + 0.00042, 0.00370, 0.00661, - + 0.30958, 0.09183, 0.07072, 0.00587, 0.00088, - + 0.00043, 0.00352, 0.00608, - + 0.29689, 0.08748, 0.06423, 0.00558, 0.00089, - + 0.00042, 0.00330, 0.00568, - + 0.28533, 0.08338, 0.05858, 0.00520, 0.00090, - + 0.00042, 0.00316, 0.00549, - + 0.27475, 0.07974, 0.05375, 0.00501, 0.00093, - + 0.00045, 0.00301, 0.00507, - + 0.26486, 0.07644, 0.04955, 0.00484, 0.00092, - + 0.00047, 0.00288, 0.00474 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ - + 0.25550, 0.07343, 0.04587, 0.00469, 0.00088, - + 0.00047, 0.00278, 0.00455, - + 0.24688, 0.07051, 0.04264, 0.00450, 0.00087, - + 0.00046, 0.00264, 0.00441, - + 0.23888, 0.06781, 0.03977, 0.00431, 0.00086, - + 0.00045, 0.00252, 0.00428, - + 0.23132, 0.06545, 0.03721, 0.00414, 0.00085, - + 0.00044, 0.00242, 0.00402, - + 0.22431, 0.06321, 0.03491, 0.00396, 0.00082, - + 0.00044, 0.00232, 0.00380 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + 0.48053, 0.15315, 0.21254, 0.00875, 0.00001, - + 0.00004, 0.00337, 0.00839, - + 0.44307, 0.13812, 0.17031, 0.00809, 0.00001, - + 0.00000, 0.00343, 0.00755, - + 0.41193, 0.12582, 0.13974, 0.00704, 0.00001, - + 0.00001, 0.00345, 0.00707, - + 0.38541, 0.11573, 0.11714, 0.00638, 0.00014, - + 0.00000, 0.00332, 0.00636, - + 0.36195, 0.10710, 0.09976, 0.00587, 0.00030, - + 0.00004, 0.00319, 0.00602, - + 0.34119, 0.09979, 0.08621, 0.00541, 0.00047, - + 0.00016, 0.00300, 0.00571, - + 0.32272, 0.09350, 0.07547, 0.00493, 0.00044, - + 0.00017, 0.00277, 0.00544 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ - + 0.30619, 0.08799, 0.06664, 0.00485, 0.00051, - + 0.00024, 0.00268, 0.00486, - + 0.29139, 0.08301, 0.05933, 0.00458, 0.00058, - + 0.00023, 0.00252, 0.00440, - + 0.27798, 0.07854, 0.05323, 0.00427, 0.00061, - + 0.00023, 0.00236, 0.00415, - + 0.26577, 0.07455, 0.04809, 0.00404, 0.00061, - + 0.00027, 0.00220, 0.00396, - + 0.25467, 0.07096, 0.04373, 0.00380, 0.00059, - + 0.00029, 0.00210, 0.00375, - + 0.24450, 0.06762, 0.04002, 0.00351, 0.00058, - + 0.00028, 0.00202, 0.00357, - + 0.23507, 0.06460, 0.03680, 0.00327, 0.00057, - + 0.00028, 0.00193, 0.00343 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ - + 0.22623, 0.06187, 0.03399, 0.00309, 0.00054, - + 0.00027, 0.00181, 0.00331, - + 0.21795, 0.05928, 0.03150, 0.00305, 0.00057, - + 0.00027, 0.00174, 0.00306, - + 0.21030, 0.05690, 0.02929, 0.00300, 0.00059, - + 0.00028, 0.00168, 0.00282, - + 0.20327, 0.05474, 0.02736, 0.00285, 0.00058, - + 0.00031, 0.00162, 0.00272, - + 0.19670, 0.05273, 0.02563, 0.00270, 0.00056, - + 0.00034, 0.00157, 0.00262 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + 0.44954, 0.13564, 0.17036, 0.00592, 0.00001, - + 0.00009, 0.00236, 0.00609, - + 0.41177, 0.12116, 0.13452, 0.00513, 0.00001, - + 0.00009, 0.00250, 0.00551, - + 0.37956, 0.10980, 0.10933, 0.00478, 0.00001, - + 0.00004, 0.00242, 0.00493, - + 0.35175, 0.10045, 0.09073, 0.00437, 0.00006, - + 0.00003, 0.00231, 0.00465, - + 0.32833, 0.09263, 0.07678, 0.00414, 0.00026, - + 0.00003, 0.00221, 0.00417, - + 0.30806, 0.08593, 0.06591, 0.00365, 0.00025, - + 0.00011, 0.00203, 0.00408, - + 0.29021, 0.08001, 0.05726, 0.00355, 0.00034, - + 0.00014, 0.00192, 0.00371 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ - + 0.27418, 0.07494, 0.05026, 0.00329, 0.00037, - + 0.00012, 0.00182, 0.00343, - + 0.25999, 0.07043, 0.04456, 0.00306, 0.00039, - + 0.00018, 0.00172, 0.00317, - + 0.24719, 0.06640, 0.03982, 0.00289, 0.00041, - + 0.00020, 0.00165, 0.00297, - + 0.23549, 0.06278, 0.03583, 0.00271, 0.00041, - + 0.00020, 0.00159, 0.00278, - + 0.22479, 0.05957, 0.03248, 0.00260, 0.00040, - + 0.00024, 0.00145, 0.00251, - + 0.21500, 0.05663, 0.02960, 0.00251, 0.00041, - + 0.00023, 0.00141, 0.00240, - + 0.20605, 0.05395, 0.02712, 0.00238, 0.00040, - + 0.00021, 0.00134, 0.00229 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ - + 0.19779, 0.05149, 0.02495, 0.00221, 0.00036, - + 0.00017, 0.00123, 0.00214, - + 0.19018, 0.04926, 0.02307, 0.00211, 0.00036, - + 0.00019, 0.00118, 0.00202, - + 0.18316, 0.04721, 0.02142, 0.00202, 0.00035, - + 0.00021, 0.00113, 0.00190, - + 0.17655, 0.04529, 0.01996, 0.00194, 0.00037, - + 0.00021, 0.00109, 0.00183, - + 0.17042, 0.04351, 0.01867, 0.00186, 0.00038, - + 0.00020, 0.00105, 0.00175 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + 0.41699, 0.11897, 0.13532, 0.00396, 0.00001, - + 0.00005, 0.00165, 0.00405, - + 0.37771, 0.10601, 0.10567, 0.00381, 0.00001, - + 0.00001, 0.00173, 0.00366, - + 0.34544, 0.09535, 0.08486, 0.00354, 0.00001, - + 0.00000, 0.00154, 0.00346, - + 0.31876, 0.08659, 0.06991, 0.00304, 0.00001, - + 0.00002, 0.00150, 0.00344, - + 0.29619, 0.07936, 0.05867, 0.00278, 0.00007, - + 0.00002, 0.00143, 0.00288, - + 0.27639, 0.07329, 0.05003, 0.00257, 0.00011, - + 0.00001, 0.00130, 0.00269, - + 0.25916, 0.06802, 0.04319, 0.00246, 0.00014, - + 0.00003, 0.00121, 0.00248 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ - + 0.24360, 0.06352, 0.03773, 0.00241, 0.00019, - + 0.00007, 0.00118, 0.00228, - + 0.23007, 0.05946, 0.03328, 0.00216, 0.00020, - + 0.00009, 0.00110, 0.00222, - + 0.21791, 0.05587, 0.02960, 0.00203, 0.00019, - + 0.00008, 0.00104, 0.00199, - + 0.20686, 0.05270, 0.02654, 0.00201, 0.00021, - + 0.00008, 0.00099, 0.00175, - + 0.19710, 0.04980, 0.02397, 0.00179, 0.00026, - + 0.00012, 0.00094, 0.00171, - + 0.18785, 0.04719, 0.02179, 0.00173, 0.00027, - + 0.00011, 0.00086, 0.00159, - + 0.17942, 0.04485, 0.01991, 0.00165, 0.00025, - + 0.00010, 0.00080, 0.00149 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ - + 0.17173, 0.04273, 0.01827, 0.00157, 0.00022, - + 0.00010, 0.00073, 0.00140, - + 0.16464, 0.04079, 0.01685, 0.00153, 0.00021, - + 0.00010, 0.00070, 0.00130, - + 0.15813, 0.03902, 0.01559, 0.00151, 0.00022, - + 0.00010, 0.00069, 0.00121, - + 0.15212, 0.03733, 0.01450, 0.00140, 0.00021, - + 0.00009, 0.00067, 0.00115, - + 0.14655, 0.03579, 0.01353, 0.00131, 0.00021, - + 0.00009, 0.00063, 0.00111 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + 0.38208, 0.10396, 0.10650, 0.00264, 0.00001, - + 0.00005, 0.00106, 0.00276, - + 0.34289, 0.09137, 0.08191, 0.00248, 0.00001, - + 0.00000, 0.00112, 0.00272, - + 0.31133, 0.08155, 0.06503, 0.00233, 0.00001, - + 0.00006, 0.00113, 0.00244, - + 0.28533, 0.07371, 0.05307, 0.00191, 0.00006, - + 0.00000, 0.00107, 0.00217, - + 0.26320, 0.06714, 0.04416, 0.00192, 0.00009, - + 0.00004, 0.00099, 0.00197, - + 0.24433, 0.06160, 0.03734, 0.00180, 0.00017, - + 0.00005, 0.00097, 0.00175, - + 0.22797, 0.05695, 0.03206, 0.00166, 0.00018, - + 0.00006, 0.00091, 0.00152 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ - + 0.21399, 0.05290, 0.02787, 0.00136, 0.00020, - + 0.00006, 0.00082, 0.00140, - + 0.20097, 0.04931, 0.02447, 0.00138, 0.00024, - + 0.00006, 0.00080, 0.00124, - + 0.18938, 0.04616, 0.02166, 0.00135, 0.00022, - + 0.00006, 0.00075, 0.00115, - + 0.17929, 0.04335, 0.01932, 0.00119, 0.00017, - + 0.00007, 0.00070, 0.00111, - + 0.17014, 0.04083, 0.01738, 0.00115, 0.00018, - + 0.00009, 0.00069, 0.00103, - + 0.16182, 0.03858, 0.01575, 0.00102, 0.00019, - + 0.00011, 0.00064, 0.00102, - + 0.15420, 0.03655, 0.01436, 0.00097, 0.00020, - + 0.00011, 0.00059, 0.00096 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ - + 0.14716, 0.03475, 0.01315, 0.00097, 0.00019, - + 0.00009, 0.00055, 0.00083, - + 0.14071, 0.03307, 0.01210, 0.00093, 0.00019, - + 0.00008, 0.00052, 0.00077, - + 0.13482, 0.03152, 0.01118, 0.00089, 0.00018, - + 0.00007, 0.00048, 0.00074, - + 0.12938, 0.03009, 0.01037, 0.00081, 0.00019, - + 0.00008, 0.00048, 0.00072, - + 0.12438, 0.02878, 0.00966, 0.00073, 0.00019, - + 0.00009, 0.00047, 0.00069 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + 0.34682, 0.08969, 0.08288, 0.00184, 0.00001, - + 0.00003, 0.00062, 0.00194, - + 0.30886, 0.07826, 0.06302, 0.00152, 0.00001, - + 0.00004, 0.00067, 0.00170, - + 0.27815, 0.06934, 0.04961, 0.00154, 0.00001, - + 0.00006, 0.00062, 0.00162, - + 0.25331, 0.06222, 0.04006, 0.00125, 0.00001, - + 0.00005, 0.00062, 0.00145, - + 0.23218, 0.05639, 0.03309, 0.00131, 0.00002, - + 0.00004, 0.00063, 0.00123, - + 0.21437, 0.05155, 0.02783, 0.00132, 0.00004, - + 0.00001, 0.00061, 0.00121, - + 0.19911, 0.04737, 0.02374, 0.00118, 0.00012, - + 0.00003, 0.00057, 0.00117 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ - + 0.18549, 0.04382, 0.02051, 0.00124, 0.00006, - + 0.00001, 0.00048, 0.00094, - + 0.17375, 0.04077, 0.01793, 0.00113, 0.00004, - + 0.00001, 0.00046, 0.00078, - + 0.16355, 0.03804, 0.01582, 0.00096, 0.00010, - + 0.00002, 0.00048, 0.00069, - + 0.15433, 0.03559, 0.01407, 0.00087, 0.00017, - + 0.00006, 0.00048, 0.00065, - + 0.14563, 0.03348, 0.01262, 0.00087, 0.00013, - + 0.00007, 0.00041, 0.00068, - + 0.13813, 0.03152, 0.01139, 0.00073, 0.00013, - + 0.00005, 0.00037, 0.00068, - + 0.13126, 0.02976, 0.01035, 0.00068, 0.00013, - + 0.00005, 0.00034, 0.00063 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ - + 0.12486, 0.02817, 0.00946, 0.00074, 0.00012, - + 0.00005, 0.00035, 0.00054, - + 0.11926, 0.02674, 0.00868, 0.00065, 0.00014, - + 0.00005, 0.00034, 0.00049, - + 0.11415, 0.02543, 0.00800, 0.00054, 0.00014, - + 0.00006, 0.00033, 0.00047, - + 0.10934, 0.02423, 0.00741, 0.00041, 0.00012, - + 0.00005, 0.00030, 0.00051, - + 0.10487, 0.02313, 0.00688, 0.00032, 0.00011, - + 0.00005, 0.00027, 0.00053 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + 0.31107, 0.07643, 0.06374, 0.00106, 0.00001, - + 0.00005, 0.00034, 0.00132, - + 0.27476, 0.06619, 0.04782, 0.00088, 0.00001, - + 0.00001, 0.00040, 0.00126, - + 0.24561, 0.05831, 0.03722, 0.00090, 0.00001, - + 0.00003, 0.00042, 0.00113, - + 0.22204, 0.05198, 0.02981, 0.00091, 0.00001, - + 0.00002, 0.00037, 0.00098, - + 0.20242, 0.04683, 0.02444, 0.00081, 0.00001, - + 0.00005, 0.00030, 0.00089, - + 0.18599, 0.04259, 0.02041, 0.00083, 0.00004, - + 0.00004, 0.00032, 0.00063, - + 0.17167, 0.03901, 0.01733, 0.00095, 0.00000, - + 0.00001, 0.00031, 0.00057 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ - + 0.15976, 0.03590, 0.01491, 0.00066, 0.00000, - + 0.00000, 0.00028, 0.00058, - + 0.14910, 0.03322, 0.01297, 0.00057, 0.00003, - + 0.00001, 0.00025, 0.00055, - + 0.13946, 0.03086, 0.01140, 0.00064, 0.00004, - + 0.00001, 0.00026, 0.00050, - + 0.13094, 0.02880, 0.01010, 0.00063, 0.00008, - + 0.00001, 0.00028, 0.00046, - + 0.12351, 0.02695, 0.00903, 0.00051, 0.00011, - + 0.00004, 0.00028, 0.00047, - + 0.11676, 0.02532, 0.00812, 0.00048, 0.00008, - + 0.00003, 0.00026, 0.00037, - + 0.11062, 0.02386, 0.00736, 0.00046, 0.00008, - + 0.00003, 0.00024, 0.00032 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ - + 0.10501, 0.02254, 0.00671, 0.00044, 0.00009, - + 0.00004, 0.00023, 0.00033, - + 0.09992, 0.02134, 0.00615, 0.00037, 0.00008, - + 0.00004, 0.00022, 0.00032, - + 0.09527, 0.02026, 0.00566, 0.00032, 0.00007, - + 0.00004, 0.00020, 0.00031, - + 0.09098, 0.01926, 0.00523, 0.00025, 0.00006, - + 0.00003, 0.00019, 0.00033, - + 0.08703, 0.01834, 0.00485, 0.00021, 0.00006, - + 0.00003, 0.00018, 0.00033 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + 0.27641, 0.06454, 0.04839, 0.00067, 0.00001, - + 0.00004, 0.00014, 0.00080, - + 0.24134, 0.05542, 0.03583, 0.00074, 0.00001, - + 0.00007, 0.00018, 0.00081, - + 0.21404, 0.04838, 0.02757, 0.00077, 0.00001, - + 0.00007, 0.00023, 0.00057, - + 0.19208, 0.04284, 0.02186, 0.00068, 0.00001, - + 0.00007, 0.00017, 0.00055, - + 0.17429, 0.03840, 0.01777, 0.00061, 0.00001, - + 0.00003, 0.00022, 0.00047, - + 0.15939, 0.03470, 0.01476, 0.00055, 0.00002, - + 0.00002, 0.00024, 0.00039, - + 0.14683, 0.03158, 0.01244, 0.00039, 0.00005, - + 0.00002, 0.00024, 0.00046 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ - + 0.13558, 0.02898, 0.01064, 0.00042, 0.00006, - + 0.00001, 0.00021, 0.00036, - + 0.12574, 0.02671, 0.00921, 0.00045, 0.00005, - + 0.00001, 0.00017, 0.00028, - + 0.11728, 0.02472, 0.00806, 0.00038, 0.00004, - + 0.00001, 0.00016, 0.00027, - + 0.10988, 0.02299, 0.00712, 0.00030, 0.00003, - + 0.00000, 0.00016, 0.00026, - + 0.10323, 0.02144, 0.00634, 0.00028, 0.00005, - + 0.00001, 0.00016, 0.00023, - + 0.09721, 0.02006, 0.00570, 0.00022, 0.00006, - + 0.00003, 0.00016, 0.00026, - + 0.09185, 0.01883, 0.00515, 0.00019, 0.00008, - + 0.00004, 0.00017, 0.00026 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ - + 0.08706, 0.01773, 0.00468, 0.00015, 0.00010, - + 0.00004, 0.00017, 0.00021, - + 0.08250, 0.01673, 0.00427, 0.00016, 0.00008, - + 0.00003, 0.00016, 0.00020, - + 0.07836, 0.01583, 0.00393, 0.00016, 0.00007, - + 0.00002, 0.00015, 0.00020, - + 0.07462, 0.01500, 0.00362, 0.00014, 0.00007, - + 0.00003, 0.00014, 0.00023, - + 0.07120, 0.01424, 0.00335, 0.00011, 0.00006, - + 0.00003, 0.00013, 0.00025 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + 0.24174, 0.05358, 0.03612, 0.00044, 0.00001, - + 0.00000, 0.00016, 0.00052, - + 0.20941, 0.04551, 0.02638, 0.00026, 0.00001, - + 0.00005, 0.00007, 0.00045, - + 0.18424, 0.03942, 0.02008, 0.00038, 0.00001, - + 0.00006, 0.00014, 0.00033, - + 0.16416, 0.03464, 0.01576, 0.00041, 0.00001, - + 0.00004, 0.00015, 0.00033, - + 0.14806, 0.03083, 0.01272, 0.00024, 0.00004, - + 0.00003, 0.00015, 0.00037, - + 0.13447, 0.02774, 0.01048, 0.00023, 0.00001, - + 0.00004, 0.00013, 0.00026, - + 0.12297, 0.02513, 0.00879, 0.00026, 0.00007, - + 0.00000, 0.00017, 0.00022 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ - + 0.11320, 0.02292, 0.00748, 0.00019, 0.00006, - + 0.00000, 0.00014, 0.00025, - + 0.10463, 0.02103, 0.00644, 0.00019, 0.00006, - + 0.00000, 0.00013, 0.00020, - + 0.09719, 0.01939, 0.00561, 0.00018, 0.00007, - + 0.00001, 0.00015, 0.00019, - + 0.09068, 0.01797, 0.00494, 0.00012, 0.00006, - + 0.00002, 0.00014, 0.00020, - + 0.08482, 0.01671, 0.00439, 0.00010, 0.00005, - + 0.00001, 0.00009, 0.00018, - + 0.07954, 0.01559, 0.00393, 0.00013, 0.00006, - + 0.00002, 0.00011, 0.00016, - + 0.07487, 0.01459, 0.00354, 0.00013, 0.00006, - + 0.00002, 0.00012, 0.00015 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ - + 0.07073, 0.01368, 0.00322, 0.00009, 0.00005, - + 0.00002, 0.00011, 0.00012, - + 0.06692, 0.01287, 0.00293, 0.00006, 0.00007, - + 0.00003, 0.00011, 0.00013, - + 0.06347, 0.01215, 0.00269, 0.00003, 0.00007, - + 0.00004, 0.00010, 0.00014, - + 0.06030, 0.01150, 0.00247, 0.00004, 0.00007, - + 0.00004, 0.00010, 0.00011, - + 0.05738, 0.01090, 0.00229, 0.00005, 0.00006, - + 0.00003, 0.00009, 0.00009 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + 0.20948, 0.04429, 0.02665, 0.00063, 0.00001, - + 0.00009, 0.00001, 0.00016, - + 0.17959, 0.03723, 0.01920, 0.00050, 0.00001, - + 0.00009, 0.00001, 0.00024, - + 0.15654, 0.03197, 0.01444, 0.00050, 0.00001, - + 0.00007, 0.00001, 0.00016, - + 0.13900, 0.02793, 0.01127, 0.00019, 0.00000, - + 0.00005, 0.00006, 0.00017, - + 0.12435, 0.02466, 0.00902, 0.00015, 0.00001, - + 0.00005, 0.00007, 0.00018, - + 0.11217, 0.02207, 0.00739, 0.00025, 0.00001, - + 0.00004, 0.00007, 0.00013, - + 0.10220, 0.01989, 0.00617, 0.00022, 0.00001, - + 0.00003, 0.00007, 0.00012 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ - + 0.09371, 0.01804, 0.00523, 0.00015, 0.00001, - + 0.00002, 0.00006, 0.00011, - + 0.08631, 0.01650, 0.00449, 0.00009, 0.00003, - + 0.00000, 0.00007, 0.00014, - + 0.07984, 0.01516, 0.00390, 0.00007, 0.00003, - + 0.00000, 0.00006, 0.00011, - + 0.07415, 0.01398, 0.00342, 0.00008, 0.00003, - + 0.00001, 0.00005, 0.00006, - + 0.06908, 0.01296, 0.00303, 0.00009, 0.00002, - + 0.00000, 0.00007, 0.00008, - + 0.06467, 0.01205, 0.00271, 0.00007, 0.00003, - + 0.00001, 0.00007, 0.00008, - + 0.06070, 0.01123, 0.00244, 0.00005, 0.00003, - + 0.00001, 0.00007, 0.00008 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ - + 0.05713, 0.01052, 0.00220, 0.00002, 0.00003, - + 0.00001, 0.00007, 0.00008, - + 0.05385, 0.00987, 0.00201, 0.00004, 0.00002, - + 0.00001, 0.00006, 0.00008, - + 0.05088, 0.00929, 0.00184, 0.00005, 0.00002, - + 0.00000, 0.00005, 0.00006, - + 0.04821, 0.00877, 0.00169, 0.00004, 0.00002, - + 0.00001, 0.00005, 0.00005, - + 0.04578, 0.00829, 0.00156, 0.00004, 0.00002, - + 0.00001, 0.00004, 0.00005 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + 0.17878, 0.03552, 0.01919, 0.00016, 0.00001, - + 0.00001, 0.00001, 0.00012, - + 0.15198, 0.02970, 0.01370, 0.00010, 0.00001, - + 0.00004, 0.00001, 0.00015, - + 0.13163, 0.02539, 0.01022, 0.00013, 0.00001, - + 0.00001, 0.00003, 0.00013, - + 0.11556, 0.02201, 0.00791, 0.00019, 0.00001, - + 0.00002, 0.00004, 0.00012, - + 0.10277, 0.01935, 0.00630, 0.00015, 0.00001, - + 0.00003, 0.00001, 0.00012, - + 0.09241, 0.01723, 0.00513, 0.00008, 0.00001, - + 0.00002, 0.00000, 0.00012, - + 0.08364, 0.01547, 0.00426, 0.00009, 0.00001, - + 0.00001, 0.00003, 0.00014 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ - + 0.07628, 0.01401, 0.00359, 0.00009, 0.00001, - + 0.00002, 0.00003, 0.00008, - + 0.06996, 0.01274, 0.00307, 0.00010, 0.00001, - + 0.00001, 0.00002, 0.00008, - + 0.06450, 0.01166, 0.00266, 0.00006, 0.00000, - + 0.00000, 0.00003, 0.00010, - + 0.05973, 0.01071, 0.00233, 0.00003, 0.00000, - + 0.00000, 0.00003, 0.00011, - + 0.05546, 0.00991, 0.00206, 0.00008, 0.00001, - + 0.00000, 0.00003, 0.00004, - + 0.05170, 0.00918, 0.00183, 0.00008, 0.00001, - + 0.00000, 0.00003, 0.00004, - + 0.04837, 0.00853, 0.00164, 0.00006, 0.00001, - + 0.00000, 0.00003, 0.00004 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ - + 0.04540, 0.00796, 0.00149, 0.00004, 0.00001, - + 0.00000, 0.00002, 0.00004, - + 0.04266, 0.00747, 0.00135, 0.00005, 0.00001, - + 0.00000, 0.00001, 0.00004, - + 0.04021, 0.00701, 0.00123, 0.00005, 0.00001, - + 0.00000, 0.00001, 0.00004, - + 0.03799, 0.00659, 0.00113, 0.00006, 0.00001, - + 0.00000, 0.00001, 0.00004, - + 0.03599, 0.00621, 0.00104, 0.00006, 0.00001, - + 0.00000, 0.00002, 0.00005 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + 0.12352, 0.02187, 0.00934, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00011, - + 0.10268, 0.01787, 0.00648, 0.00000, 0.00001, - + 0.00001, 0.00001, 0.00005, - + 0.08738, 0.01499, 0.00472, 0.00007, 0.00001, - + 0.00000, 0.00001, 0.00000, - + 0.07562, 0.01283, 0.00358, 0.00001, 0.00001, - + 0.00002, 0.00000, 0.00000, - + 0.06638, 0.01112, 0.00281, 0.00001, 0.00001, - + 0.00001, 0.00002, 0.00002, - + 0.05884, 0.00977, 0.00225, 0.00005, 0.00001, - + 0.00000, 0.00002, 0.00002, - + 0.05276, 0.00867, 0.00185, 0.00002, 0.00001, - + 0.00000, 0.00002, 0.00001 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ - + 0.04758, 0.00776, 0.00155, 0.00003, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.04319, 0.00699, 0.00131, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00004, - + 0.03943, 0.00634, 0.00113, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00004, - + 0.03619, 0.00580, 0.00098, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.03337, 0.00531, 0.00086, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00003, - + 0.03088, 0.00487, 0.00076, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00003, - + 0.02867, 0.00451, 0.00068, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00004 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ - + 0.02667, 0.00418, 0.00061, 0.00003, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.02494, 0.00388, 0.00055, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.02340, 0.00363, 0.00050, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.02197, 0.00339, 0.00046, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.02069, 0.00317, 0.00042, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + 0.07898, 0.01234, 0.00409, 0.00007, 0.00001, - + 0.00001, 0.00001, 0.00001, - + 0.06427, 0.00989, 0.00276, 0.00007, 0.00001, - + 0.00001, 0.00001, 0.00001, - + 0.05362, 0.00814, 0.00196, 0.00003, 0.00001, - + 0.00000, 0.00001, 0.00003, - + 0.04567, 0.00682, 0.00146, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00001, - + 0.03947, 0.00583, 0.00113, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00001, - + 0.03456, 0.00506, 0.00089, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00001, - + 0.03057, 0.00443, 0.00073, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ - + 0.02726, 0.00393, 0.00060, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02449, 0.00350, 0.00050, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02214, 0.00315, 0.00043, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02013, 0.00283, 0.00037, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01840, 0.00258, 0.00033, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01687, 0.00236, 0.00029, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01555, 0.00216, 0.00025, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ - + 0.01439, 0.00198, 0.00023, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01335, 0.00184, 0.00021, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01243, 0.00170, 0.00019, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01161, 0.00158, 0.00017, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01086, 0.00147, 0.00016, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + 0.04533, 0.00611, 0.00154, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.03595, 0.00478, 0.00101, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02945, 0.00384, 0.00070, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02459, 0.00319, 0.00051, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02087, 0.00267, 0.00039, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01799, 0.00229, 0.00030, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01572, 0.00198, 0.00024, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ - + 0.01385, 0.00172, 0.00020, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01230, 0.00152, 0.00017, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01100, 0.00135, 0.00014, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00990, 0.00121, 0.00012, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00898, 0.00109, 0.00011, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00816, 0.00099, 0.00009, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00746, 0.00089, 0.00008, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ - + 0.00684, 0.00081, 0.00007, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00630, 0.00075, 0.00007, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00582, 0.00069, 0.00006, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00539, 0.00064, 0.00005, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00501, 0.00059, 0.00005, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + 0.02219, 0.00251, 0.00047, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01715, 0.00193, 0.00029, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01365, 0.00151, 0.00020, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01113, 0.00123, 0.00014, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00928, 0.00099, 0.00011, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00787, 0.00085, 0.00008, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00674, 0.00071, 0.00007, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ - + 0.00586, 0.00061, 0.00005, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00513, 0.00055, 0.00004, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00453, 0.00047, 0.00004, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00403, 0.00043, 0.00003, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00360, 0.00037, 0.00003, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00324, 0.00033, 0.00002, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00293, 0.00029, 0.00002, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ - + 0.00267, 0.00026, 0.00002, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00243, 0.00023, 0.00002, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00222, 0.00022, 0.00002, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00205, 0.00019, 0.00001, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00188, 0.00018, 0.00001, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + 0.00211, 0.00016, 0.00001, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00150, 0.00010, 0.00001, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00112, 0.00008, 0.00001, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00087, 0.00006, 0.00000, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.00068, 0.00005, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00056, 0.00003, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00045, 0.00003, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ - + 0.00038, 0.00003, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00032, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00027, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00024, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00021, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00018, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00016, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ - + 0.00013, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00010, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,5,10,0,0,10,10/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ - - - XSAVE=X - - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(52,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7) GO TO 31 - DO 30 K=1,19 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,8 - G(I)=ZEROD - IF(XXX.GE.ONED) GOTO 60 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) - - X=XSAVE - - RETURN - END diff --git a/PDF/spdf/sfdsqa.F b/PDF/spdf/sfdsqa.F deleted file mode 100644 index 925017d4b0e..00000000000 --- a/PDF/spdf/sfdsqa.F +++ /dev/null @@ -1,775 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE SFDSQA(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) - -C THIS IS THE NEW "A" FIT -- May 1994 -- low Q^2 range -C DIS DIS DIS DIS DIS DIS DIS DIS DIS DIS DIS DIS DIS DIS -C -#include "pdf/impdp.inc" -C - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,8),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + .00353, .00627, 4.23812, 1.87623, .00000, - + .00000, .51265, 1.87021, - + .00377, .00645, 6.42705, 1.94786, .00000, - + .00000, .61236, 1.94247, - + .00399, .00660, 9.43898, 2.04451, .00000, - + .00000, .73330, 2.03973, - + .00420, .00675, 13.16286, 2.16589, .00000, - + .00000, .87600, 2.16169, - + .00440, .00688, 17.54780, 2.30621, .00000, - + .00000, 1.03533, 2.30254, - + .00460, .00702, 22.55753, 2.46430, .06825, - + .00000, 1.21072, 2.46116, - + .00477, .00714, 28.12229, 2.63824, .27055, - + .00000, 1.40039, 2.63556 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + .00538, .00802, 3.22632, 1.51244, .00000, - + .00000, .40761, 1.50993, - + .00571, .00826, 5.15995, 1.57471, .00000, - + .00000, .49238, 1.57262, - + .00602, .00846, 7.71045, 1.65616, .00000, - + .00000, .59325, 1.65446, - + .00632, .00866, 10.78281, 1.75593, .00000, - + .00000, .71002, 1.75459, - + .00659, .00884, 14.34431, 1.86953, .00000, - + .00000, .83878, 1.86852, - + .00686, .00902, 18.35565, 1.99595, .05595, - + .00000, .97896, 1.99526, - + .00712, .00919, 22.75467, 2.13362, .21642, - + .00000, 1.12915, 2.13323 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + .00806, .01027, 2.45661, 1.21901, .00000, - + .00000, .32420, 1.21891, - + .00853, .01059, 4.14420, 1.27292, .00000, - + .00000, .39616, 1.27308, - + .00896, .01087, 6.30016, 1.34140, .00000, - + .00000, .48020, 1.34180, - + .00937, .01113, 8.83462, 1.42328, .00000, - + .00000, .57568, 1.42390, - + .00975, .01137, 11.72666, 1.51512, .00000, - + .00000, .67963, 1.51595, - + .01013, .01162, 14.93678, 1.61607, .04591, - + .00000, .79155, 1.61709, - + .01048, .01184, 18.41091, 1.72486, .17321, - + .00000, .91032, 1.72606 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + .01014, .01188, 2.09495, 1.07443, .00000, - + .00000, .28369, 1.07538, - + .01071, .01225, 3.64657, 1.12390, .00000, - + .00000, .34904, 1.12504, - + .01125, .01259, 5.59929, 1.18568, .00000, - + .00000, .42450, 1.18701, - + .01174, .01289, 7.86366, 1.25856, .00000, - + .00000, .50933, 1.26006, - + .01220, .01319, 10.42364, 1.33960, .00000, - + .00000, .60099, 1.34125, - + .01266, .01348, 13.24045, 1.42800, .04089, - + .00000, .69902, 1.42979, - + .01308, .01374, 16.26478, 1.52271, .15196, - + .00000, .80246, 1.52463 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + .01193, .01319, 1.87136, .98235, .00000, - + .00000, .25813, .98392, - + .01258, .01359, 3.33089, 1.02884, .00000, - + .00000, .31915, 1.03058, - + .01318, .01397, 5.15064, 1.08626, .00000, - + .00000, .38906, 1.08815, - + .01374, .01433, 7.24090, 1.15331, .00000, - + .00000, .46701, 1.15535, - + .01428, .01465, 9.58839, 1.22740, .00000, - + .00000, .55080, 1.22955, - + .01479, .01496, 12.15519, 1.30782, .03767, - + .00000, .63999, 1.31010, - + .01529, .01527, 14.89528, 1.39358, .13842, - + .00000, .73373, 1.39596 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + .01351, .01430, 1.71468, .91640, .00000, - + .00000, .23995, .91839, - + .01423, .01475, 3.10549, .96070, .00000, - + .00000, .29779, .96283, - + .01490, .01516, 4.82815, 1.01490, .00000, - + .00000, .36364, 1.01717, - + .01552, .01555, 6.79254, 1.07773, .00000, - + .00000, .43666, 1.08013, - + .01611, .01591, 8.98726, 1.14683, .00000, - + .00000, .51480, 1.14934, - + .01668, .01626, 11.37514, 1.22153, .03529, - + .00000, .59766, 1.22414, - + .01724, .01658, 13.91271, 1.30091, .12850, - + .00000, .68447, 1.30361 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + .01973, .01843, 1.30792, .73836, .00000, - + .00000, .19165, .74150, - + .02071, .01901, 2.50161, .77638, .00000, - + .00000, .24064, .77965, - + .02164, .01956, 3.95367, .82157, .00000, - + .00000, .29525, .82495, - + .02250, .02006, 5.57292, .87276, .00000, - + .00000, .35466, .87624, - + .02331, .02054, 7.35237, .92821, .00000, - + .00000, .41740, .93177, - + .02411, .02099, 9.25794, .98738, .02895, - + .00000, .48318, .99104, - + .02486, .02143, 11.25363, 1.04960, .10236, - + .00000, .55137, 1.05333 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + .02860, .02387, .99986, .59496, .00000, - + .00000, .15390, .59922, - + .02994, .02463, 2.02268, .62745, .00000, - + .00000, .19534, .63186, - + .03120, .02534, 3.24642, .66488, .00000, - + .00000, .24044, .66941, - + .03238, .02600, 4.58011, .70627, .00000, - + .00000, .28853, .71093, - + .03349, .02660, 6.02017, .75042, .00000, - + .00000, .33861, .75519, - + .03458, .02721, 7.53631, .79695, .02377, - + .00000, .39051, .80182, - + .03562, .02777, 9.09952, .84533, .08133, - + .00000, .44376, .85029 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + .03541, .02785, .85607, .52448, .00000, - + .00000, .13594, .52948, - + .03702, .02872, 1.79177, .55403, .00000, - + .00000, .17343, .55918, - + .03853, .02954, 2.89947, .58737, .00000, - + .00000, .21363, .59270, - + .03994, .03030, 4.08932, .62376, .00000, - + .00000, .25595, .62921, - + .04128, .03102, 5.35969, .66221, .00000, - + .00000, .29970, .66779, - + .04259, .03172, 6.68285, .70242, .02116, - + .00000, .34469, .70814, - + .04384, .03239, 8.03367, .74396, .07087, - + .00000, .39058, .74981 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + .04114, .03109, .76776, .47972, .00000, - + .00000, .12483, .48529, - + .04297, .03205, 1.64767, .50719, .00000, - + .00000, .15966, .51298, - + .04468, .03295, 2.68028, .53784, .00000, - + .00000, .19662, .54379, - + .04629, .03380, 3.77709, .57092, .00000, - + .00000, .23521, .57706, - + .04781, .03460, 4.93803, .60569, .00000, - + .00000, .27487, .61197, - + .04931, .03538, 6.13732, .64187, .01945, - + .00000, .31546, .64830, - + .05072, .03614, 7.35252, .67905, .06418, - + .00000, .35667, .68564 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + .04628, .03389, .70475, .44767, .00000, - + .00000, .11695, .45366, - + .04828, .03494, 1.54754, .47364, .00000, - + .00000, .14979, .47983, - + .05016, .03594, 2.52696, .50227, .00000, - + .00000, .18433, .50868, - + .05194, .03687, 3.55628, .53299, .00000, - + .00000, .22019, .53956, - + .05361, .03774, 4.63730, .56508, .00000, - + .00000, .25686, .57183, - + .05525, .03861, 5.74604, .59832, .01817, - + .00000, .29424, .60523, - + .05683, .03941, 6.86227, .63238, .05918, - + .00000, .33205, .63944 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + .06634, .04460, .54955, .36164, .00000, - + .00000, .09697, .36963, - + .06902, .04597, 1.28832, .38302, .00000, - + .00000, .12399, .39128, - + .07156, .04728, 2.11904, .40586, .00000, - + .00000, .15169, .41438, - + .07395, .04850, 2.96136, .42982, .00000, - + .00000, .17986, .43859, - + .07622, .04966, 3.82264, .45449, .00000, - + .00000, .20829, .46348, - + .07843, .05079, 4.68465, .47971, .01465, - + .00000, .23691, .48893, - + .08055, .05186, 5.53362, .50526, .04585, - + .00000, .26555, .51468 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + .09459, .05933, .45006, .29360, .00000, - + .00000, .08276, .30437, - + .09814, .06112, 1.10456, .31050, .00000, - + .00000, .10425, .32162, - + .10155, .06285, 1.80790, .32807, .00000, - + .00000, .12580, .33952, - + .10473, .06446, 2.49068, .34620, .00000, - + .00000, .14739, .35798, - + .10777, .06600, 3.16635, .36464, .00000, - + .00000, .16891, .37671, - + .11072, .06748, 3.82305, .38326, .01152, - + .00000, .19031, .39562, - + .11353, .06890, 4.45308, .40190, .03481, - + .00000, .21149, .41453 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + .11598, .07030, .42083, .26052, .00000, - + .00000, .07654, .27338, - + .12018, .07245, 1.03073, .27483, .00000, - + .00000, .09494, .28811, - + .12420, .07450, 1.66542, .28956, .00000, - + .00000, .11322, .30324, - + .12798, .07641, 2.26414, .30469, .00000, - + .00000, .13143, .31874, - + .13156, .07822, 2.84358, .31997, .00000, - + .00000, .14946, .33439, - + .13503, .07996, 3.39582, .33531, .00979, - + .00000, .16730, .35006, - + .13832, .08161, 3.91637, .35057, .02918, - + -.00001, .18482, .36564 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + .13377, .07939, .41558, .23959, .00000, - + .00000, .07283, .25410, - + .13849, .08184, .99416, .25213, .00000, - + .00000, .08912, .26710, - + .14304, .08416, 1.58125, .26497, .00000, - + .00000, .10522, .28042, - + .14730, .08633, 2.12318, .27815, .00000, - + .00000, .12124, .29401, - + .15132, .08837, 2.63867, .29140, .00000, - + .00000, .13703, .30768, - + .15519, .09033, 3.12247, .30466, .00857, - + .00000, .15259, .32132, - + .15886, .09215, 3.57229, .31776, .02549, - + -.00001, .16780, .33479 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + .14903, .08698, .42079, .22390, .00000, - + .00000, .06996, .23937, - + .15428, .08974, .97466, .23519, .00000, - + .00000, .08469, .25125, - + .15929, .09235, 1.52498, .24674, .00000, - + .00000, .09927, .26336, - + .16398, .09477, 2.02410, .25857, .00000, - + .00000, .11375, .27570, - + .16840, .09703, 2.49209, .27045, .00000, - + .00000, .12799, .28805, - + .17264, .09917, 2.92573, .28225, .00757, - + .00000, .14197, .30029, - + .17663, .10116, 3.32426, .29388, .02270, - + .00000, .15557, .31233 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + .20755, .11696, .49179, .18309, .00000, - + .00000, .06331, .20391, - + .21483, .12090, .96223, .19043, .00000, - + .00000, .07349, .21220, - + .22167, .12450, 1.39560, .19812, .00000, - + .00000, .08371, .22074, - + .22795, .12773, 1.76565, .20605, .00000, - + .00000, .09388, .22941, - + .23378, .13067, 2.09508, .21395, .00000, - + .00000, .10382, .23798, - + .23925, .13335, 2.38648, .22169, .00451, - + .00000, .11345, .24633, - + .24430, .13580, 2.64317, .22922, .01502, - + .00000, .12270, .25439 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + .28677, .15844, .65201, .14832, .00000, - + .00000, .05678, .17806, - + .29713, .16379, 1.01515, .15204, .00000, - + .00000, .06325, .18312, - + .30643, .16834, 1.31959, .15631, .00000, - + .00000, .06998, .18849, - + .31466, .17220, 1.56052, .16082, .00000, - + .00000, .07671, .19391, - + .32205, .17554, 1.76050, .16531, .00000, - + .00000, .08320, .19917, - + .32867, .17842, 1.92619, .16961, .00128, - + .00000, .08935, .20410, - + .33465, .18092, 2.06321, .17369, .00833, - + -.00001, .09512, .20870 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + .34542, .18867, .77868, .12710, .00000, - + .00000, .05139, .16412, - + .35819, .19454, 1.06122, .12899, .00000, - + .00000, .05624, .16744, - + .36909, .19926, 1.28184, .13152, .00000, - + .00000, .06139, .17101, - + .37837, .20302, 1.44554, .13426, .00000, - + .00000, .06644, .17453, - + .38641, .20610, 1.57317, .13698, .00000, - + .00000, .07123, .17784, - + .39332, .20854, 1.67235, .13951, .00001, - + .00000, .07566, .18081, - + .39934, .21054, 1.74894, .14183, .00482, - + .00000, .07971, .18346 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + .39417, .21269, .87132, .11000, .00000, - + .00000, .04597, .15304, - + .40857, .21843, 1.08735, .11080, .00000, - + .00000, .04998, .15496, - + .42039, .22263, 1.24495, .11220, .00000, - + .00000, .05416, .15715, - + .42999, .22574, 1.35369, .11380, .00000, - + .00000, .05818, .15920, - + .43796, .22808, 1.43230, .11540, .00000, - + .00000, .06191, .16105, - + .44452, .22971, 1.48820, .11679, .00001, - + .00000, .06523, .16258, - + .44997, .23090, 1.52687, .11804, .00257, - + -.00001, .06820, .16384 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + .43740, .23195, .93597, .09467, .00000, - + .00000, .04051, .14281, - + .45273, .23699, 1.09539, .09482, .00000, - + .00000, .04393, .14355, - + .46465, .24034, 1.20287, .09550, .00000, - + .00000, .04744, .14447, - + .47385, .24250, 1.26983, .09636, .00000, - + .00000, .05068, .14526, - + .48116, .24382, 1.31262, .09719, .00000, - + .00000, .05359, .14591, - + .48675, .24447, 1.33802, .09787, .00001, - + .00000, .05612, .14629, - + .49116, .24467, 1.35083, .09841, .00096, - + .00000, .05830, .14647 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + .48495, .25086, .98361, .07726, .00000, - + .00000, .03390, .12954, - + .50004, .25430, 1.08372, .07710, .00000, - + .00000, .03696, .12905, - + .51094, .25600, 1.14164, .07738, .00000, - + .00000, .03990, .12871, - + .51874, .25651, 1.16898, .07772, .00000, - + .00000, .04250, .12835, - + .52440, .25628, 1.17918, .07799, .00000, - + .00000, .04472, .12789, - + .52821, .25543, 1.17779, .07813, .00001, - + .00000, .04656, .12725, - + .53076, .25425, 1.16862, .07816, .00001, - + -.00001, .04809, .12650 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + .52685, .26533, 1.00111, .06198, .00000, - + .00000, .02725, .11577, - + .54044, .26638, 1.05264, .06174, .00000, - + .00000, .03024, .11435, - + .54931, .26589, 1.07218, .06180, .00000, - + .00000, .03289, .11316, - + .55485, .26445, 1.07015, .06185, .00000, - + .00000, .03506, .11194, - + .55816, .26246, 1.05720, .06185, .00000, - + .00000, .03682, .11070, - + .55957, .26006, 1.03756, .06171, .00001, - + .00000, .03820, .10935, - + .55978, .25746, 1.01406, .06150, .00001, - + -.00003, .03931, .10794 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + .56454, .27445, .99514, .04789, .00000, - + .00000, .02161, .10191, - + .57507, .27304, 1.00701, .04803, .00000, - + .00000, .02440, .09988, - + .58075, .27034, .99689, .04819, .00000, - + .00000, .02674, .09801, - + .58312, .26698, .97320, .04827, .00000, - + .00000, .02854, .09624, - + .58342, .26328, .94399, .04821, .00000, - + .00000, .02995, .09448, - + .58201, .25935, .91213, .04801, .00001, - + .00000, .03101, .09271, - + .57958, .25541, .87953, .04770, .00001, - + -.00001, .03178, .09099 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + .59691, .27992, .97091, .03603, .00000, - + .00000, .01614, .08820, - + .60334, .27563, .95082, .03651, .00000, - + .00000, .01898, .08577, - + .60506, .27058, .91809, .03687, .00000, - + .00000, .02114, .08357, - + .60374, .26525, .87878, .03699, .00000, - + .00000, .02277, .08146, - + .60062, .25988, .83847, .03696, .00000, - + .00000, .02394, .07943, - + .59609, .25451, .79881, .03678, .00001, - + .00000, .02476, .07747, - + .59086, .24929, .76083, .03650, .00001, - + -.00002, .02533, .07557 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + .62371, .28203, .93107, .02649, .00000, - + .00000, .01124, .07481, - + .62519, .27467, .88680, .02720, .00000, - + .00000, .01413, .07232, - + .62239, .26718, .83766, .02763, .00000, - + .00000, .01625, .07001, - + .61707, .25983, .78764, .02781, .00000, - + .00000, .01772, .06790, - + .61031, .25286, .74029, .02785, .00000, - + .00000, .01879, .06577, - + .60253, .24619, .69616, .02770, .00001, - + .00000, .01949, .06376, - + .59439, .23988, .65555, .02744, .00001, - + -.00002, .01993, .06188 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + .64685, .27834, .87914, .01677, .00000, - + .00000, .00808, .06246, - + .64193, .26874, .81691, .01836, .00000, - + .00000, .01072, .06006, - + .63371, .25949, .75668, .01935, .00000, - + .00000, .01258, .05778, - + .62377, .25070, .70017, .01991, .00000, - + .00000, .01381, .05566, - + .61311, .24249, .64913, .02015, .00000, - + .00000, .01465, .05364, - + .60199, .23483, .60318, .02021, .00001, - + .00000, .01518, .05174, - + .59088, .22773, .56203, .02013, .00001, - + .00002, .01554, .04995 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + .66107, .27515, .82378, .01211, .00000, - + .00000, .00374, .05101, - + .65020, .26245, .74720, .01349, .00000, - + .00000, .00665, .04889, - + .63701, .25088, .67896, .01434, .00000, - + .00000, .00861, .04683, - + .62284, .24040, .61850, .01480, .00000, - + .00000, .00991, .04486, - + .60857, .23090, .56585, .01502, .00000, - + .00000, .01076, .04303, - + .59439, .22225, .51975, .01504, .00001, - + .00000, .01129, .04132, - + .58066, .21436, .47938, .01495, .00001, - + -.00014, .01159, .03972 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + .67179, .26585, .75762, .00606, .00000, - + .00000, .00178, .04082, - + .65387, .25121, .67378, .00798, .00000, - + .00000, .00448, .03902, - + .63509, .23825, .60220, .00918, .00000, - + .00000, .00622, .03725, - + .61643, .22673, .54096, .00988, .00000, - + .00000, .00733, .03555, - + .59846, .21645, .48891, .01024, .00000, - + .00000, .00805, .03397, - + .58120, .20725, .44429, .01048, .00001, - + .00000, .00851, .03240, - + .56495, .19892, .40590, .01053, .00001, - + -.00002, .00877, .03101 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + .67527, .25529, .69187, .00245, .00000, - + .00000, .00001, .03191, - + .65063, .23870, .60286, .00452, .00000, - + .00000, .00236, .03056, - + .62661, .22441, .52998, .00578, .00000, - + .00000, .00405, .02908, - + .60372, .21204, .46960, .00656, .00000, - + .00000, .00510, .02766, - + .58244, .20113, .41941, .00701, .00000, - + .00000, .00575, .02631, - + .56258, .19146, .37721, .00720, .00001, - + .00000, .00615, .02511, - + .54411, .18290, .34143, .00732, .00001, - + -.00004, .00641, .02390 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + .67251, .24277, .62540, .00010, .00000, - + .00000, .00001, .02445, - + .64126, .22455, .53420, .00214, .00000, - + .00000, .00078, .02338, - + .61229, .20924, .46215, .00332, .00000, - + .00000, .00236, .02228, - + .58571, .19616, .40404, .00407, .00000, - + .00000, .00338, .02110, - + .56145, .18486, .35676, .00452, .00000, - + .00000, .00399, .02008, - + .53927, .17498, .31763, .00477, .00001, - + .00000, .00440, .01905, - + .51898, .16628, .28494, .00492, .00001, - + .00000, .00462, .01810 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + .66391, .22706, .55633, .00001, .00000, - + .00000, .00001, .01820, - + .62628, .20811, .46726, .00001, .00000, - + .00000, .00003, .01752, - + .59273, .19238, .39852, .00116, .00000, - + .00000, .00139, .01675, - + .56270, .17922, .34417, .00202, .00000, - + .00000, .00225, .01585, - + .53591, .16787, .30062, .00253, .00000, - + .00000, .00280, .01501, - + .51187, .15809, .26506, .00284, .00001, - + .00000, .00311, .01421, - + .49013, .14952, .23573, .00306, .00001, - + .00004, .00331, .01340 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + .64879, .21198, .49256, .00001, .00000, - + .00000, .00001, .01307, - + .60557, .19218, .40616, .00001, .00000, - + .00000, .00001, .01281, - + .56813, .17607, .34118, .00036, .00000, - + .00000, .00038, .01218, - + .53536, .16266, .29090, .00107, .00000, - + .00000, .00120, .01162, - + .50661, .15134, .25128, .00154, .00000, - + .00000, .00172, .01096, - + .48111, .14168, .21942, .00184, .00001, - + .00000, .00204, .01034, - + .45837, .13328, .19346, .00198, .00001, - + .00001, .00221, .00988 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + .62786, .19433, .42790, .00001, .00000, - + .00000, .00001, .00916, - + .57984, .17452, .34752, .00001, .00000, - + .00000, .00001, .00903, - + .53927, .15865, .28809, .00001, .00000, - + .00000, .00001, .00871, - + .50443, .14561, .24287, .00016, .00000, - + .00000, .00065, .00832, - + .47415, .13472, .20769, .00067, .00000, - + .00000, .00105, .00783, - + .44781, .12546, .17973, .00096, .00001, - + .00000, .00131, .00743, - + .42452, .11746, .15717, .00116, .00001, - + .00003, .00148, .00700 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + .60128, .17617, .36867, .00001, .00000, - + .00000, .00001, .00600, - + .54953, .15670, .29445, .00001, .00000, - + .00000, .00001, .00617, - + .50651, .14136, .24076, .00001, .00000, - + .00000, .00001, .00596, - + .47024, .12886, .20061, .00001, .00000, - + .00000, .00024, .00577, - + .43920, .11844, .16982, .00005, .00000, - + .00000, .00059, .00551, - + .41244, .10970, .14560, .00035, .00001, - + .00000, .00083, .00521, - + .38903, .10226, .12625, .00054, .00001, - + .00004, .00095, .00490 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + .57046, .15882, .31457, .00001, .00000, - + .00000, .00001, .00370, - + .51571, .13983, .24747, .00001, .00000, - + .00000, .00001, .00397, - + .47116, .12491, .19955, .00001, .00000, - + .00000, .00001, .00406, - + .43400, .11296, .16422, .00001, .00000, - + .00000, .00001, .00391, - + .40271, .10316, .13748, .00001, .00000, - + .00000, .00027, .00374, - + .37598, .09498, .11669, .00001, .00001, - + .00000, .00048, .00356, - + .35274, .08802, .10031, .00018, .00001, - + .00003, .00061, .00334 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + .53556, .14173, .26561, .00001, .00000, - + .00000, .00001, .00219, - + .47905, .12344, .20521, .00001, .00000, - + .00000, .00001, .00262, - + .43373, .10934, .16317, .00001, .00000, - + .00000, .00001, .00266, - + .39671, .09815, .13264, .00001, .00000, - + .00000, .00001, .00257, - + .36558, .08902, .10991, .00001, .00000, - + .00000, .00001, .00250, - + .33924, .08151, .09246, .00007, .00001, - + .00000, .00015, .00237, - + .31668, .07519, .07885, .00019, .00001, - + -.00002, .00027, .00222 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + .49683, .12381, .22084, .00001, .00000, - + .00000, .00001, .00113, - + .43944, .10672, .16749, .00001, .00000, - + .00000, .00001, .00150, - + .39428, .09371, .13118, .00001, .00000, - + .00000, .00001, .00168, - + .35761, .08355, .10540, .00001, .00000, - + .00000, .00001, .00159, - + .32742, .07528, .08641, .00001, .00000, - + .00000, .00001, .00161, - + .30203, .06857, .07204, .00001, .00001, - + .00000, .00009, .00150, - + .28045, .06294, .06092, .00001, .00001, - + .00002, .00018, .00141 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + .45431, .10635, .17814, .00001, .00000, - + .00000, .00001, .00036, - + .39783, .09091, .13388, .00001, .00000, - + .00000, .00001, .00072, - + .35381, .07923, .10374, .00001, .00000, - + .00000, .00001, .00084, - + .31856, .07014, .08246, .00001, .00000, - + .00000, .00001, .00096, - + .28960, .06287, .06697, .00001, .00000, - + .00000, .00001, .00093, - + .26556, .05692, .05530, .00001, .00001, - + .00000, .00004, .00092, - + .24521, .05198, .04637, .00001, .00001, - + .00004, .00011, .00086 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + .41254, .09148, .14592, .00001, .00000, - + .00000, .00001, .00003, - + .35692, .07724, .10695, .00001, .00000, - + .00000, .00001, .00033, - + .31428, .06668, .08140, .00001, .00000, - + .00000, .00001, .00047, - + .28057, .05850, .06381, .00001, .00000, - + .00000, .00001, .00053, - + .25332, .05206, .05122, .00001, .00000, - + .00000, .00001, .00056, - + .23091, .04683, .04190, .00001, .00001, - + .00000, .00001, .00054, - + .21210, .04253, .03482, .00001, .00001, - + .00000, .00001, .00053 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + .36734, .07563, .11355, .00001, .00000, - + .00000, .00001, .00001, - + .31446, .06338, .08237, .00001, .00000, - + .00000, .00001, .00001, - + .27437, .05433, .06203, .00001, .00000, - + .00000, .00001, .00017, - + .24304, .04740, .04812, .00001, .00000, - + .00000, .00001, .00024, - + .21785, .04189, .03825, .00001, .00000, - + .00000, .00001, .00027, - + .19734, .03751, .03100, .00001, .00001, - + .00000, .00001, .00030, - + .18021, .03390, .02554, .00001, .00001, - + .00003, .00001, .00029 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + .27911, .05064, .06747, .00001, .00000, - + .00000, .00001, .00001, - + .23354, .04145, .04718, .00001, .00000, - + .00000, .00001, .00001, - + .19979, .03487, .03442, .00001, .00000, - + .00000, .00001, .00001, - + .17401, .02990, .02599, .00001, .00000, - + .00000, .00001, .00005, - + .15364, .02606, .02017, .00001, .00000, - + .00000, .00001, .00006, - + .13734, .02302, .01600, .00001, .00001, - + .00000, .00001, .00008, - + .12395, .02056, .01294, .00001, .00001, - + .00000, .00001, .00008 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + .19610, .03075, .03606, .00001, .00000, - + .00000, .00001, .00001, - + .16013, .02462, .02425, .00001, .00000, - + .00000, .00001, .00001, - + .13421, .02028, .01712, .00001, .00000, - + .00000, .00001, .00001, - + .11479, .01712, .01257, .00001, .00000, - + .00000, .00001, .00001, - + .09976, .01469, .00952, .00001, .00000, - + .00000, .00001, .00001, - + .08792, .01280, .00739, .00000, .00001, - + .00000, .00001, .00001, - + .07838, .01129, .00586, .00001, .00001, - + .00000, .00001, .00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + .12471, .01656, .01668, .00001, .00000, - + .00000, .00001, .00001, - + .09913, .01295, .01080, .00001, .00000, - + .00000, .00001, .00001, - + .08124, .01044, .00737, .00001, .00000, - + .00000, .00001, .00001, - + .06814, .00865, .00525, .00001, .00000, - + .00000, .00001, .00001, - + .05819, .00728, .00387, .00000, .00000, - + .00000, .00001, .00000, - + .05052, .00627, .00294, .00001, .00001, - + .00000, .00001, .00001, - + .04438, .00545, .00227, .00001, .00001, - + .00000, .00001, .00001 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + .06789, .00717, .00626, .00001, .00000, - + .00000, .00001, .00001, - + .05238, .00549, .00388, .00001, .00000, - + .00000, .00001, .00001, - + .04184, .00436, .00255, .00001, .00000, - + .00000, .00001, .00001, - + .03429, .00357, .00176, .00001, .00000, - + .00000, .00001, .00001, - + .02872, .00295, .00126, .00001, .00000, - + .00000, .00001, .00001, - + .02448, .00252, .00093, .00001, .00001, - + .00000, .00001, .00001, - + .02116, .00218, .00070, .00001, .00001, - + .00000, .00001, .00001 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + .00856, .00063, .00037, .00001, .00000, - + .00000, .00001, .00001, - + .00610, .00043, .00017, .00001, .00000, - + .00000, .00001, .00001, - + .00453, .00032, .00010, .00001, .00000, - + .00000, .00001, .00001, - + .00349, .00023, .00006, .00001, .00000, - + .00000, .00001, .00001, - + .00277, .00019, .00004, .00001, .00000, - + .00000, .00001, .00001, - + .00226, .00014, .00003, .00001, .00001, - + .00000, .00001, .00001, - + .00187, .00011, .00002, .00001, .00001, - + .00000, .00001, .00001 / - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,0.625D0,5.D0/ - DATA N0/2,5,5,9,0,0,9,9/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C don't let x be altered if it's out of range!! - xsave=x -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,7 -C READ(36,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7.OR.I.EQ.5) GO TO 31 - DO 30 K=1,7 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,7 - 40 F(I,nx,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD)*TWOD - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,8 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.ntenth) GOTO 65 - IF(I.EQ.7.or.i.eq.5) GOTO 65 - FAC=(ONED-B)*F(I,ntenth,M)+B*F(I,ntenth,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) -C restore x - x=xsave -C - RETURN - END diff --git a/PDF/spdf/sfehlq1.F b/PDF/spdf/sfehlq1.F deleted file mode 100644 index a0fff2d302a..00000000000 --- a/PDF/spdf/sfehlq1.F +++ /dev/null @@ -1,239 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:46 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:35 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE SFEHLQ1(DX,DSCALE,DUP,DDN,DSEA,DSTR,DCHM,DBOT,DTOP,DGL) -C ::::::: EHLQ SET 1 SUPERFAST DOUBLE PRECISION ::::::: -C -#include "pdf/expdp.inc" - + DX,DSCALE,DUP,DDN,DSEA,DSTR,DCHM,DBOT,DTOP,DGL - PARAMETER (ALAM=0.2, Q02=5.0) -#include "pdf/w50511.inc" - DIMENSION XQ(9),TX(6),TT(6),TS(6),NEHLQ(8),CEHLQ(6,6,2,8) -C -C...The following data lines are coefficients needed in the -C...Eichten, Hinchliffe, Lane, Quigg proton structure function -C...parametrizations, see below. -C...Powers of 1-x in different cases. - DATA NEHLQ/3,4,7,5,7,7,7,7/ -C...Expansion coefficients for up valence quark distribution. - DATA (((CEHLQ(IX,IT,NX,1),IX=1,6),IT=1,6),NX=1,2)/ - 1 7.677E-01,-2.087E-01,-3.303E-01,-2.517E-02,-1.570E-02,-1.000E-04, - 2-5.326E-01,-2.661E-01, 3.201E-01, 1.192E-01, 2.434E-02, 7.620E-03, - 3 2.162E-01, 1.881E-01,-8.375E-02,-6.515E-02,-1.743E-02,-5.040E-03, - 4-9.211E-02,-9.952E-02, 1.373E-02, 2.506E-02, 8.770E-03, 2.550E-03, - 5 3.670E-02, 4.409E-02, 9.600E-04,-7.960E-03,-3.420E-03,-1.050E-03, - 6-1.549E-02,-2.026E-02,-3.060E-03, 2.220E-03, 1.240E-03, 4.100E-04, - 1 2.395E-01, 2.905E-01, 9.778E-02, 2.149E-02, 3.440E-03, 5.000E-04, - 2 1.751E-02,-6.090E-03,-2.687E-02,-1.916E-02,-7.970E-03,-2.750E-03, - 3-5.760E-03,-5.040E-03, 1.080E-03, 2.490E-03, 1.530E-03, 7.500E-04, - 4 1.740E-03, 1.960E-03, 3.000E-04,-3.400E-04,-2.900E-04,-1.800E-04, - 5-5.300E-04,-6.400E-04,-1.700E-04, 4.000E-05, 6.000E-05, 4.000E-05, - 6 1.700E-04, 2.200E-04, 8.000E-05, 1.000E-05,-1.000E-05,-1.000E-05/ -C...Expansion coefficients for down valence quark distribution. - DATA (((CEHLQ(IX,IT,NX,2),IX=1,6),IT=1,6),NX=1,2)/ - 1 3.813E-01,-8.090E-02,-1.634E-01,-2.185E-02,-8.430E-03,-6.200E-04, - 2-2.948E-01,-1.435E-01, 1.665E-01, 6.638E-02, 1.473E-02, 4.080E-03, - 3 1.252E-01, 1.042E-01,-4.722E-02,-3.683E-02,-1.038E-02,-2.860E-03, - 4-5.478E-02,-5.678E-02, 8.900E-03, 1.484E-02, 5.340E-03, 1.520E-03, - 5 2.220E-02, 2.567E-02,-3.000E-05,-4.970E-03,-2.160E-03,-6.500E-04, - 6-9.530E-03,-1.204E-02,-1.510E-03, 1.510E-03, 8.300E-04, 2.700E-04, - 1 1.261E-01, 1.354E-01, 3.958E-02, 8.240E-03, 1.660E-03, 4.500E-04, - 2 3.890E-03,-1.159E-02,-1.625E-02,-9.610E-03,-3.710E-03,-1.260E-03, - 3-1.910E-03,-5.600E-04, 1.590E-03, 1.590E-03, 8.400E-04, 3.900E-04, - 4 6.400E-04, 4.900E-04,-1.500E-04,-2.900E-04,-1.800E-04,-1.000E-04, - 5-2.000E-04,-1.900E-04, 0.000E+00, 6.000E-05, 4.000E-05, 3.000E-05, - 6 7.000E-05, 8.000E-05, 2.000E-05,-1.000E-05,-1.000E-05,-1.000E-05/ -C...Expansion coefficients for up and down sea quark distributions. - DATA (((CEHLQ(IX,IT,NX,3),IX=1,6),IT=1,6),NX=1,2)/ - 1 6.870E-02,-6.861E-02, 2.973E-02,-5.400E-03, 3.780E-03,-9.700E-04, - 2-1.802E-02, 1.400E-04, 6.490E-03,-8.540E-03, 1.220E-03,-1.750E-03, - 3-4.650E-03, 1.480E-03,-5.930E-03, 6.000E-04,-1.030E-03,-8.000E-05, - 4 6.440E-03, 2.570E-03, 2.830E-03, 1.150E-03, 7.100E-04, 3.300E-04, - 5-3.930E-03,-2.540E-03,-1.160E-03,-7.700E-04,-3.600E-04,-1.900E-04, - 6 2.340E-03, 1.930E-03, 5.300E-04, 3.700E-04, 1.600E-04, 9.000E-05, - 1 1.014E+00,-1.106E+00, 3.374E-01,-7.444E-02, 8.850E-03,-8.700E-04, - 2 9.233E-01,-1.285E+00, 4.475E-01,-9.786E-02, 1.419E-02,-1.120E-03, - 3 4.888E-02,-1.271E-01, 8.606E-02,-2.608E-02, 4.780E-03,-6.000E-04, - 4-2.691E-02, 4.887E-02,-1.771E-02, 1.620E-03, 2.500E-04,-6.000E-05, - 5 7.040E-03,-1.113E-02, 1.590E-03, 7.000E-04,-2.000E-04, 0.000E+00, - 6-1.710E-03, 2.290E-03, 3.800E-04,-3.500E-04, 4.000E-05, 1.000E-05/ -C...Expansion coefficients for gluon distribution. - DATA (((CEHLQ(IX,IT,NX,4),IX=1,6),IT=1,6),NX=1,2)/ - 1 9.482E-01,-9.578E-01, 1.009E-01,-1.051E-01, 3.456E-02,-3.054E-02, - 2-9.627E-01, 5.379E-01, 3.368E-01,-9.525E-02, 1.488E-02,-2.051E-02, - 3 4.300E-01,-8.306E-02,-3.372E-01, 4.902E-02,-9.160E-03, 1.041E-02, - 4-1.925E-01,-1.790E-02, 2.183E-01, 7.490E-03, 4.140E-03,-1.860E-03, - 5 8.183E-02, 1.926E-02,-1.072E-01,-1.944E-02,-2.770E-03,-5.200E-04, - 6-3.884E-02,-1.234E-02, 5.410E-02, 1.879E-02, 3.350E-03, 1.040E-03, - 1 2.948E+01,-3.902E+01, 1.464E+01,-3.335E+00, 5.054E-01,-5.915E-02, - 2 2.559E+01,-3.955E+01, 1.661E+01,-4.299E+00, 6.904E-01,-8.243E-02, - 3-1.663E+00, 1.176E+00, 1.118E+00,-7.099E-01, 1.948E-01,-2.404E-02, - 4-2.168E-01, 8.170E-01,-7.169E-01, 1.851E-01,-1.924E-02,-3.250E-03, - 5 2.088E-01,-4.355E-01, 2.239E-01,-2.446E-02,-3.620E-03, 1.910E-03, - 6-9.097E-02, 1.601E-01,-5.681E-02,-2.500E-03, 2.580E-03,-4.700E-04/ -C...Expansion coefficients for strange sea quark distribution. - DATA (((CEHLQ(IX,IT,NX,5),IX=1,6),IT=1,6),NX=1,2)/ - 1 4.968E-02,-4.173E-02, 2.102E-02,-3.270E-03, 3.240E-03,-6.700E-04, - 2-6.150E-03,-1.294E-02, 6.740E-03,-6.890E-03, 9.000E-04,-1.510E-03, - 3-8.580E-03, 5.050E-03,-4.900E-03,-1.600E-04,-9.400E-04,-1.500E-04, - 4 7.840E-03, 1.510E-03, 2.220E-03, 1.400E-03, 7.000E-04, 3.500E-04, - 5-4.410E-03,-2.220E-03,-8.900E-04,-8.500E-04,-3.600E-04,-2.000E-04, - 6 2.520E-03, 1.840E-03, 4.100E-04, 3.900E-04, 1.600E-04, 9.000E-05, - 1 9.235E-01,-1.085E+00, 3.464E-01,-7.210E-02, 9.140E-03,-9.100E-04, - 2 9.315E-01,-1.274E+00, 4.512E-01,-9.775E-02, 1.380E-02,-1.310E-03, - 3 4.739E-02,-1.296E-01, 8.482E-02,-2.642E-02, 4.760E-03,-5.700E-04, - 4-2.653E-02, 4.953E-02,-1.735E-02, 1.750E-03, 2.800E-04,-6.000E-05, - 5 6.940E-03,-1.132E-02, 1.480E-03, 6.500E-04,-2.100E-04, 0.000E+00, - 6-1.680E-03, 2.340E-03, 4.200E-04,-3.400E-04, 5.000E-05, 1.000E-05/ -C...Expansion coefficients for charm sea quark distribution. - DATA (((CEHLQ(IX,IT,NX,6),IX=1,6),IT=1,6),NX=1,2)/ - 1 9.270E-03,-1.817E-02, 9.590E-03,-6.390E-03, 1.690E-03,-1.540E-03, - 2 5.710E-03,-1.188E-02, 6.090E-03,-4.650E-03, 1.240E-03,-1.310E-03, - 3-3.960E-03, 7.100E-03,-3.590E-03, 1.840E-03,-3.900E-04, 3.400E-04, - 4 1.120E-03,-1.960E-03, 1.120E-03,-4.800E-04, 1.000E-04,-4.000E-05, - 5 4.000E-05,-3.000E-05,-1.800E-04, 9.000E-05,-5.000E-05,-2.000E-05, - 6-4.200E-04, 7.300E-04,-1.600E-04, 5.000E-05, 5.000E-05, 5.000E-05, - 1 8.098E-01,-1.042E+00, 3.398E-01,-6.824E-02, 8.760E-03,-9.000E-04, - 2 8.961E-01,-1.217E+00, 4.339E-01,-9.287E-02, 1.304E-02,-1.290E-03, - 3 3.058E-02,-1.040E-01, 7.604E-02,-2.415E-02, 4.600E-03,-5.000E-04, - 4-2.451E-02, 4.432E-02,-1.651E-02, 1.430E-03, 1.200E-04,-1.000E-04, - 5 1.122E-02,-1.457E-02, 2.680E-03, 5.800E-04,-1.200E-04, 3.000E-05, - 6-7.730E-03, 7.330E-03,-7.600E-04,-2.400E-04, 1.000E-05, 0.000E+00/ -C...Expansion coefficients for bottom sea quark distribution. - DATA (((CEHLQ(IX,IT,NX,7),IX=1,6),IT=1,6),NX=1,2)/ - 1 9.010E-03,-1.401E-02, 7.150E-03,-4.130E-03, 1.260E-03,-1.040E-03, - 2 6.280E-03,-9.320E-03, 4.780E-03,-2.890E-03, 9.100E-04,-8.200E-04, - 3-2.930E-03, 4.090E-03,-1.890E-03, 7.600E-04,-2.300E-04, 1.400E-04, - 4 3.900E-04,-1.200E-03, 4.400E-04,-2.500E-04, 2.000E-05,-2.000E-05, - 5 2.600E-04, 1.400E-04,-8.000E-05, 1.000E-04, 1.000E-05, 1.000E-05, - 6-2.600E-04, 3.200E-04, 1.000E-05,-1.000E-05, 1.000E-05,-1.000E-05, - 1 8.029E-01,-1.075E+00, 3.792E-01,-7.843E-02, 1.007E-02,-1.090E-03, - 2 7.903E-01,-1.099E+00, 4.153E-01,-9.301E-02, 1.317E-02,-1.410E-03, - 3-1.704E-02,-1.130E-02, 2.882E-02,-1.341E-02, 3.040E-03,-3.600E-04, - 4-7.200E-04, 7.230E-03,-5.160E-03, 1.080E-03,-5.000E-05,-4.000E-05, - 5 3.050E-03,-4.610E-03, 1.660E-03,-1.300E-04,-1.000E-05, 1.000E-05, - 6-4.360E-03, 5.230E-03,-1.610E-03, 2.000E-04,-2.000E-05, 0.000E+00/ -C...Expansion coefficients for top sea quark distribution. - DATA (((CEHLQ(IX,IT,NX,8),IX=1,6),IT=1,6),NX=1,2)/ - 1 4.410E-03,-7.480E-03, 3.770E-03,-2.580E-03, 7.300E-04,-7.100E-04, - 2 3.840E-03,-6.050E-03, 3.030E-03,-2.030E-03, 5.800E-04,-5.900E-04, - 3-8.800E-04, 1.660E-03,-7.500E-04, 4.700E-04,-1.000E-04, 1.000E-04, - 4-8.000E-05,-1.500E-04, 1.200E-04,-9.000E-05, 3.000E-05, 0.000E+00, - 5 1.300E-04,-2.200E-04,-2.000E-05,-2.000E-05,-2.000E-05,-2.000E-05, - 6-7.000E-05, 1.900E-04,-4.000E-05, 2.000E-05, 0.000E+00, 0.000E+00, - 1 6.623E-01,-9.248E-01, 3.519E-01,-7.930E-02, 1.110E-02,-1.180E-03, - 2 6.380E-01,-9.062E-01, 3.582E-01,-8.479E-02, 1.265E-02,-1.390E-03, - 3-2.581E-02, 2.125E-02, 4.190E-03,-4.980E-03, 1.490E-03,-2.100E-04, - 4 7.100E-04, 5.300E-04,-1.270E-03, 3.900E-04,-5.000E-05,-1.000E-05, - 5 3.850E-03,-5.060E-03, 1.860E-03,-3.500E-04, 4.000E-05, 0.000E+00, - 6-3.530E-03, 4.460E-03,-1.500E-03, 2.700E-04,-3.000E-05, 0.000E+00/ -C -C -C...Proton structure functions from Eichten, Hinchliffe, Lane, Quigg. -C...Allowed variable range: 5 GeV^2 < Q^2 < 1E8 GeV^2; 1E-4 < x < 1 -C -C...Determine Lamdba and x and t expansion variables. - X = DX - SCALE = DSCALE - KF = ABS(NFL) - Q2 =SCALE**2 - TMIN=LOG(Q02/ALAM**2) - TMAX=LOG(1E8/ALAM**2) - T=LOG(MAX(1.,Q2/ALAM**2)) - VT=MAX(-1.,MIN(1.,(2.*T-TMAX-TMIN)/(TMAX-TMIN))) - NX=1 - IF(X.LE.0.1) NX=2 - IF(NX.EQ.1) VX=(2.*X-1.1)/0.9 - IF(NX.EQ.2) VX=MAX(-1.,(2.*LOG(X)+11.51293)/6.90776) - CXS=1. - -C...Chebyshev polynomials for x and t expansion. - TX(1)=1. - TX(2)=VX - TX(3)=2.*VX**2-1. - TX(4)=4.*VX**3-3.*VX - TX(5)=8.*VX**4-8.*VX**2+1. - TX(6)=16.*VX**5-20.*VX**3+5.*VX - TT(1)=1. - TT(2)=VT - TT(3)=2.*VT**2-1. - TT(4)=4.*VT**3-3.*VT - TT(5)=8.*VT**4-8.*VT**2+1. - TT(6)=16.*VT**5-20.*VT**3+5.*VT - -C...Calculate structure functions. - DO 120 KFL=1,6 - XQSUM=0. - DO 110 IT=1,6 - DO 110 IX=1,6 - 110 XQSUM=XQSUM+CEHLQ(IX,IT,NX,KFL)*TX(IX)*TT(IT) - 120 XQ(KFL)=XQSUM*(1.-X)**NEHLQ(KFL)*CXS -C -C...Put into output variables - DUP = XQ(1) - DDN = XQ(2) - DSEA = XQ(3) - DGL = XQ(4) - DSTR = XQ(5) - DCHM = XQ(6) - DBOT = 0.D0 - DTOP = 0.D0 -C - IF (KF.GE.5) THEN -C -C...Special expansion for bottom (threshold effects). - BOT = 0. - TMIN=8.1905 - IF(T.LE.TMIN) GOTO 140 - VT=MAX(-1.,MIN(1.,(2.*T-TMAX-TMIN)/(TMAX-TMIN))) - TT(1)=1. - TT(2)=VT - TT(3)=2.*VT**2-1. - TT(4)=4.*VT**3-3.*VT - TT(5)=8.*VT**4-8.*VT**2+1. - TT(6)=16.*VT**5-20.*VT**3+5.*VT - XQSUM=0. - DO 130 IT=1,6 - DO 130 IX=1,6 - 130 XQSUM=XQSUM+CEHLQ(IX,IT,NX,7)*TX(IX)*TT(IT) - BOT=XQSUM*(1.-X)**NEHLQ(7)*CXS - 140 CONTINUE - ENDIF - DBOT = BOT -C-- - IF (KF.GE.6) THEN -C -C...Special expansion for top (threshold effects). - TOP = 0. - TMIN=11.5528 - TMIN=TMIN+2.*LOG(TMAS/30.) - TMAX=TMAX+2.*LOG(TMAS/30.) - IF(T.LE.TMIN) GOTO 160 - VT=MAX(-1.,MIN(1.,(2.*T-TMAX-TMIN)/(TMAX-TMIN))) - TT(1)=1. - TT(2)=VT - TT(3)=2.*VT**2-1. - TT(4)=4.*VT**3-3.*VT - TT(5)=8.*VT**4-8.*VT**2+1. - TT(6)=16.*VT**5-20.*VT**3+5.*VT - XQSUM=0. - DO 150 IT=1,6 - DO 150 IX=1,6 - 150 XQSUM=XQSUM+CEHLQ(IX,IT,NX,8)*TX(IX)*TT(IT) - TOP=XQSUM*(1.-X)**NEHLQ(8)*CXS - 160 CONTINUE - ENDIF - DTOP = TOP -C - RETURN - END diff --git a/PDF/spdf/sfehlq2.F b/PDF/spdf/sfehlq2.F deleted file mode 100644 index f60d0d667ff..00000000000 --- a/PDF/spdf/sfehlq2.F +++ /dev/null @@ -1,239 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:47 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:35 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE SFEHLQ2(DX,DSCALE,DUP,DDN,DSEA,DSTR,DCHM,DBOT,DTOP,DGL) -C ::::::: EHLQ SET 2 SUPERFAST DOUBLE PRECISION ::::::: -C -#include "pdf/expdp.inc" - + DX,DSCALE,DUP,DDN,DSEA,DSTR,DCHM,DBOT,DTOP,DGL - PARAMETER (ALAM=0.29, Q02=5.0) -#include "pdf/w50511.inc" - DIMENSION XQ(9),TX(6),TT(6),TS(6),NEHLQ(8),CEHLQ(6,6,2,8) -C -C...The following data lines are coefficients needed in the -C...Eichten, Hinchliffe, Lane, Quigg proton structure function -C...parametrizations, see below. -C...Powers of 1-x in different cases. - DATA NEHLQ/3,4,7,6,7,7,7,7/ -C...Expansion coefficients for up valence quark distribution. - DATA (((CEHLQ(IX,IT,NX,1),IX=1,6),IT=1,6),NX=1,2)/ - 1 7.237E-01,-2.189E-01,-2.995E-01,-1.909E-02,-1.477E-02, 2.500E-04, - 2-5.314E-01,-2.425E-01, 3.283E-01, 1.119E-01, 2.223E-02, 7.070E-03, - 3 2.289E-01, 1.890E-01,-9.859E-02,-6.900E-02,-1.747E-02,-5.080E-03, - 4-1.041E-01,-1.084E-01, 2.108E-02, 2.975E-02, 9.830E-03, 2.830E-03, - 5 4.394E-02, 5.116E-02,-1.410E-03,-1.055E-02,-4.230E-03,-1.270E-03, - 6-1.991E-02,-2.539E-02,-2.780E-03, 3.430E-03, 1.720E-03, 5.500E-04, - 1 2.410E-01, 2.884E-01, 9.369E-02, 1.900E-02, 2.530E-03, 2.400E-04, - 2 1.765E-02,-9.220E-03,-3.037E-02,-2.085E-02,-8.440E-03,-2.810E-03, - 3-6.450E-03,-5.260E-03, 1.720E-03, 3.110E-03, 1.830E-03, 8.700E-04, - 4 2.120E-03, 2.320E-03, 2.600E-04,-4.900E-04,-3.900E-04,-2.300E-04, - 5-6.900E-04,-8.200E-04,-2.000E-04, 7.000E-05, 9.000E-05, 6.000E-05, - 6 2.400E-04, 3.100E-04, 1.100E-04, 0.000E+00,-2.000E-05,-2.000E-05/ -C...Expansion coefficients for down valence quark distribution. - DATA (((CEHLQ(IX,IT,NX,2),IX=1,6),IT=1,6),NX=1,2)/ - 1 3.578E-01,-8.622E-02,-1.480E-01,-1.840E-02,-7.820E-03,-4.500E-04, - 2-2.925E-01,-1.304E-01, 1.696E-01, 6.243E-02, 1.353E-02, 3.750E-03, - 3 1.318E-01, 1.041E-01,-5.486E-02,-3.872E-02,-1.038E-02,-2.850E-03, - 4-6.162E-02,-6.143E-02, 1.303E-02, 1.740E-02, 5.940E-03, 1.670E-03, - 5 2.643E-02, 2.957E-02,-1.490E-03,-6.450E-03,-2.630E-03,-7.700E-04, - 6-1.218E-02,-1.497E-02,-1.260E-03, 2.240E-03, 1.120E-03, 3.500E-04, - 1 1.263E-01, 1.334E-01, 3.732E-02, 7.070E-03, 1.260E-03, 3.400E-04, - 2 3.660E-03,-1.357E-02,-1.795E-02,-1.031E-02,-3.880E-03,-1.280E-03, - 3-2.100E-03,-3.600E-04, 2.050E-03, 1.920E-03, 9.800E-04, 4.400E-04, - 4 7.700E-04, 5.400E-04,-2.400E-04,-3.900E-04,-2.400E-04,-1.300E-04, - 5-2.600E-04,-2.300E-04, 2.000E-05, 9.000E-05, 6.000E-05, 4.000E-05, - 6 9.000E-05, 1.000E-04, 2.000E-05,-2.000E-05,-2.000E-05,-1.000E-05/ -C...Expansion coefficients for up and down sea quark distributions. - DATA (((CEHLQ(IX,IT,NX,3),IX=1,6),IT=1,6),NX=1,2)/ - 1 1.008E-01,-7.100E-02, 1.973E-02,-5.710E-03, 2.930E-03,-9.900E-04, - 2-5.271E-02,-1.823E-02, 1.792E-02,-6.580E-03, 1.750E-03,-1.550E-03, - 3 1.220E-02, 1.763E-02,-8.690E-03,-8.800E-04,-1.160E-03,-2.100E-04, - 4-1.190E-03,-7.180E-03, 2.360E-03, 1.890E-03, 7.700E-04, 4.100E-04, - 5-9.100E-04, 2.040E-03,-3.100E-04,-1.050E-03,-4.000E-04,-2.400E-04, - 6 1.190E-03,-1.700E-04,-2.000E-04, 4.200E-04, 1.700E-04, 1.000E-04, - 1 1.081E+00,-1.189E+00, 3.868E-01,-8.617E-02, 1.115E-02,-1.180E-03, - 2 9.917E-01,-1.396E+00, 4.998E-01,-1.159E-01, 1.674E-02,-1.720E-03, - 3 5.099E-02,-1.338E-01, 9.173E-02,-2.885E-02, 5.890E-03,-6.500E-04, - 4-3.178E-02, 5.703E-02,-2.070E-02, 2.440E-03, 1.100E-04,-9.000E-05, - 5 8.970E-03,-1.392E-02, 2.050E-03, 6.500E-04,-2.300E-04, 2.000E-05, - 6-2.340E-03, 3.010E-03, 5.000E-04,-3.900E-04, 6.000E-05, 1.000E-05/ -C...Expansion coefficients for gluon distribution. - DATA (((CEHLQ(IX,IT,NX,4),IX=1,6),IT=1,6),NX=1,2)/ - 1 2.367E+00, 4.453E-01, 3.660E-01, 9.467E-02, 1.341E-01, 1.661E-02, - 2-3.170E+00,-1.795E+00, 3.313E-02,-2.874E-01,-9.827E-02,-7.119E-02, - 3 1.823E+00, 1.457E+00,-2.465E-01, 3.739E-02, 6.090E-03, 1.814E-02, - 4-1.033E+00,-9.827E-01, 2.136E-01, 1.169E-01, 5.001E-02, 1.684E-02, - 5 5.133E-01, 5.259E-01,-1.173E-01,-1.139E-01,-4.988E-02,-2.021E-02, - 6-2.881E-01,-3.145E-01, 5.667E-02, 9.161E-02, 4.568E-02, 1.951E-02, - 1 3.036E+01,-4.062E+01, 1.578E+01,-3.699E+00, 6.020E-01,-7.031E-02, - 2 2.700E+01,-4.167E+01, 1.770E+01,-4.804E+00, 7.862E-01,-1.060E-01, - 3-1.909E+00, 1.357E+00, 1.127E+00,-7.181E-01, 2.232E-01,-2.481E-02, - 4-2.488E-01, 9.781E-01,-8.127E-01, 2.094E-01,-2.997E-02,-4.710E-03, - 5 2.506E-01,-5.427E-01, 2.672E-01,-3.103E-02,-1.800E-03, 2.870E-03, - 6-1.128E-01, 2.087E-01,-6.972E-02,-2.480E-03, 2.630E-03,-8.400E-04/ -C...Expansion coefficients for strange sea quark distribution. - DATA (((CEHLQ(IX,IT,NX,5),IX=1,6),IT=1,6),NX=1,2)/ - 1 6.478E-02,-4.537E-02, 1.643E-02,-3.490E-03, 2.710E-03,-6.700E-04, - 2-2.223E-02,-2.126E-02, 1.247E-02,-6.290E-03, 1.120E-03,-1.440E-03, - 3-1.340E-03, 1.362E-02,-6.130E-03,-7.900E-04,-9.000E-04,-2.000E-04, - 4 5.080E-03,-3.610E-03, 1.700E-03, 1.830E-03, 6.800E-04, 4.000E-04, - 5-3.580E-03, 6.000E-05,-2.600E-04,-1.050E-03,-3.800E-04,-2.300E-04, - 6 2.420E-03, 9.300E-04,-1.000E-04, 4.500E-04, 1.700E-04, 1.100E-04, - 1 9.868E-01,-1.171E+00, 3.940E-01,-8.459E-02, 1.124E-02,-1.250E-03, - 2 1.001E+00,-1.383E+00, 5.044E-01,-1.152E-01, 1.658E-02,-1.830E-03, - 3 4.928E-02,-1.368E-01, 9.021E-02,-2.935E-02, 5.800E-03,-6.600E-04, - 4-3.133E-02, 5.785E-02,-2.023E-02, 2.630E-03, 1.600E-04,-8.000E-05, - 5 8.840E-03,-1.416E-02, 1.900E-03, 5.800E-04,-2.500E-04, 1.000E-05, - 6-2.300E-03, 3.080E-03, 5.500E-04,-3.700E-04, 7.000E-05, 1.000E-05/ -C...Expansion coefficients for charm sea quark distribution. - DATA (((CEHLQ(IX,IT,NX,6),IX=1,6),IT=1,6),NX=1,2)/ - 1 9.980E-03,-1.945E-02, 1.055E-02,-6.870E-03, 1.860E-03,-1.560E-03, - 2 5.700E-03,-1.203E-02, 6.250E-03,-4.860E-03, 1.310E-03,-1.370E-03, - 3-4.490E-03, 7.990E-03,-4.170E-03, 2.050E-03,-4.400E-04, 3.300E-04, - 4 1.470E-03,-2.480E-03, 1.460E-03,-5.700E-04, 1.200E-04,-1.000E-05, - 5-9.000E-05, 1.500E-04,-3.200E-04, 1.200E-04,-6.000E-05,-4.000E-05, - 6-4.200E-04, 7.600E-04,-1.400E-04, 4.000E-05, 7.000E-05, 5.000E-05, - 1 8.698E-01,-1.131E+00, 3.836E-01,-8.111E-02, 1.048E-02,-1.300E-03, - 2 9.626E-01,-1.321E+00, 4.854E-01,-1.091E-01, 1.583E-02,-1.700E-03, - 3 3.057E-02,-1.088E-01, 8.022E-02,-2.676E-02, 5.590E-03,-5.600E-04, - 4-2.845E-02, 5.164E-02,-1.918E-02, 2.210E-03,-4.000E-05,-1.500E-04, - 5 1.311E-02,-1.751E-02, 3.310E-03, 5.100E-04,-1.200E-04, 5.000E-05, - 6-8.590E-03, 8.380E-03,-9.200E-04,-2.600E-04, 1.000E-05,-1.000E-05/ -C...Expansion coefficients for bottom sea quark distribution. - DATA (((CEHLQ(IX,IT,NX,7),IX=1,6),IT=1,6),NX=1,2)/ - 1 8.980E-03,-1.459E-02, 7.510E-03,-4.410E-03, 1.310E-03,-1.070E-03, - 2 5.970E-03,-9.440E-03, 4.800E-03,-3.020E-03, 9.100E-04,-8.500E-04, - 3-3.050E-03, 4.440E-03,-2.100E-03, 8.500E-04,-2.400E-04, 1.400E-04, - 4 5.300E-04,-1.300E-03, 5.600E-04,-2.700E-04, 3.000E-05,-2.000E-05, - 5 2.000E-04, 1.400E-04,-1.100E-04, 1.000E-04, 0.000E+00, 0.000E+00, - 6-2.600E-04, 3.200E-04, 0.000E+00,-3.000E-05, 1.000E-05,-1.000E-05, - 1 8.672E-01,-1.174E+00, 4.265E-01,-9.252E-02, 1.244E-02,-1.460E-03, - 2 8.500E-01,-1.194E+00, 4.630E-01,-1.083E-01, 1.614E-02,-1.830E-03, - 3-2.241E-02,-5.630E-03, 2.815E-02,-1.425E-02, 3.520E-03,-4.300E-04, - 4-7.300E-04, 8.030E-03,-5.780E-03, 1.380E-03,-1.300E-04,-4.000E-05, - 5 3.460E-03,-5.380E-03, 1.960E-03,-2.100E-04, 1.000E-05, 1.000E-05, - 6-4.850E-03, 5.950E-03,-1.890E-03, 2.600E-04,-3.000E-05, 0.000E+00/ -C...Expansion coefficients for top sea quark distribution. - DATA (((CEHLQ(IX,IT,NX,8),IX=1,6),IT=1,6),NX=1,2)/ - 1 4.260E-03,-7.530E-03, 3.830E-03,-2.680E-03, 7.600E-04,-7.300E-04, - 2 3.640E-03,-6.050E-03, 3.030E-03,-2.090E-03, 5.900E-04,-6.000E-04, - 3-9.200E-04, 1.710E-03,-8.200E-04, 5.000E-04,-1.200E-04, 1.000E-04, - 4-5.000E-05,-1.600E-04, 1.300E-04,-9.000E-05, 3.000E-05, 0.000E+00, - 5 1.300E-04,-2.100E-04,-1.000E-05,-2.000E-05,-2.000E-05,-1.000E-05, - 6-8.000E-05, 1.800E-04,-5.000E-05, 2.000E-05, 0.000E+00, 0.000E+00, - 1 7.146E-01,-1.007E+00, 3.932E-01,-9.246E-02, 1.366E-02,-1.540E-03, - 2 6.856E-01,-9.828E-01, 3.977E-01,-9.795E-02, 1.540E-02,-1.790E-03, - 3-3.053E-02, 2.758E-02, 2.150E-03,-4.880E-03, 1.640E-03,-2.500E-04, - 4 9.200E-04, 4.200E-04,-1.340E-03, 4.600E-04,-8.000E-05,-1.000E-05, - 5 4.230E-03,-5.660E-03, 2.140E-03,-4.300E-04, 6.000E-05, 0.000E+00, - 6-3.890E-03, 5.000E-03,-1.740E-03, 3.300E-04,-4.000E-05, 0.000E+00/ -C -C -C...Proton structure functions from Eichten, Hinchliffe, Lane, Quigg. -C...Allowed variable range: 5 GeV^2 < Q^2 < 1E8 GeV^2; 1E-4 < x < 1 -C -C...Determine Lamdba and x and t expansion variables. - X = DX - SCALE = DSCALE - KF = ABS(NFL) - Q2 =SCALE*SCALE - TMIN=LOG(Q02/ALAM**2) - TMAX=LOG(1E8/ALAM**2) - T=LOG(MAX(1.,Q2/ALAM**2)) - VT=MAX(-1.,MIN(1.,(2.*T-TMAX-TMIN)/(TMAX-TMIN))) - NX=1 - IF(X.LE.0.1) NX=2 - IF(NX.EQ.1) VX=(2.*X-1.1)/0.9 - IF(NX.EQ.2) VX=MAX(-1.,(2.*LOG(X)+11.51293)/6.90776) - CXS=1. - -C...Chebyshev polynomials for x and t expansion. - TX(1)=1. - TX(2)=VX - TX(3)=2.*VX**2-1. - TX(4)=4.*VX**3-3.*VX - TX(5)=8.*VX**4-8.*VX**2+1. - TX(6)=16.*VX**5-20.*VX**3+5.*VX - TT(1)=1. - TT(2)=VT - TT(3)=2.*VT**2-1. - TT(4)=4.*VT**3-3.*VT - TT(5)=8.*VT**4-8.*VT**2+1. - TT(6)=16.*VT**5-20.*VT**3+5.*VT - -C...Calculate structure functions. - DO 120 KFL=1,6 - XQSUM=0. - DO 110 IT=1,6 - DO 110 IX=1,6 - 110 XQSUM=XQSUM+CEHLQ(IX,IT,NX,KFL)*TX(IX)*TT(IT) - 120 XQ(KFL)=XQSUM*(1.-X)**NEHLQ(KFL)*CXS -C -C...Put into output variables - DUP = XQ(1) - DDN = XQ(2) - DSEA = XQ(3) - DGL = XQ(4) - DSTR = XQ(5) - DCHM = XQ(6) - DBOT = 0.D0 - DTOP = 0.D0 -C - IF (KF.GE.5) THEN -C -C...Special expansion for bottom (threshold effects). - BOT = 0. - TMIN=7.4474 - IF(T.LE.TMIN) GOTO 140 - VT=MAX(-1.,MIN(1.,(2.*T-TMAX-TMIN)/(TMAX-TMIN))) - TT(1)=1. - TT(2)=VT - TT(3)=2.*VT**2-1. - TT(4)=4.*VT**3-3.*VT - TT(5)=8.*VT**4-8.*VT**2+1. - TT(6)=16.*VT**5-20.*VT**3+5.*VT - XQSUM=0. - DO 130 IT=1,6 - DO 130 IX=1,6 - 130 XQSUM=XQSUM+CEHLQ(IX,IT,NX,7)*TX(IX)*TT(IT) - BOT=XQSUM*(1.-X)**NEHLQ(7)*CXS - 140 CONTINUE - ENDIF - DBOT = BOT -C-- - IF (KF.GE.6) THEN -C -C...Special expansion for top (threshold effects). - TOP = 0. - TMIN=10.8097 - TMIN=TMIN+2.*LOG(TMAS/30.) - TMAX=TMAX+2.*LOG(TMAS/30.) - IF(T.LE.TMIN) GOTO 160 - VT=MAX(-1.,MIN(1.,(2.*T-TMAX-TMIN)/(TMAX-TMIN))) - TT(1)=1. - TT(2)=VT - TT(3)=2.*VT**2-1. - TT(4)=4.*VT**3-3.*VT - TT(5)=8.*VT**4-8.*VT**2+1. - TT(6)=16.*VT**5-20.*VT**3+5.*VT - XQSUM=0. - DO 150 IT=1,6 - DO 150 IX=1,6 - 150 XQSUM=XQSUM+CEHLQ(IX,IT,NX,8)*TX(IX)*TT(IT) - TOP=XQSUM*(1.-X)**NEHLQ(8)*CXS - 160 CONTINUE - ENDIF - DTOP = TOP -C - RETURN - END diff --git a/PDF/spdf/sfgrvh.F b/PDF/spdf/sfgrvh.F deleted file mode 100644 index 463a3ac5a73..00000000000 --- a/PDF/spdf/sfgrvh.F +++ /dev/null @@ -1,83 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:48 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:35 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C - SUBROUTINE SFGRVH(DX,DSCAL,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL) -C -C :::::::::::: Structure functions from Glueck, Reya and Vogt (HO) -C :::::::::::: Lambda(NF=3) = 0.200 GeV -C - DIMENSION XQ(7) -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL - PARAMETER (ALAM=0.200) -C - X = DX - Q2 = DSCAL**2 -C -C generate the individual structure fcn calls -C -C...Higher order parametrization of Gluck, Reya, Vogt. -C...Allowed variable range: 0.2 GeV^2 < Q2 < 1E6 GeV^2; 1E-4 < x < 1. - -C...Determine s and x. - Q2IN=MIN(1.E6,MAX(0.2,Q2)) - SD=LOG(LOG(Q2IN/ALAM**2)/LOG(0.2/ALAM**2)) - SD2=SD**2 - XC=MAX(1.E-4,X) - XL=-LOG(XC) - -C...Calculate structure functions. - XQ(1)=(1.364+0.989*SD-0.236*SD2)*XC**(0.593-0.048*SD)* - & (1.+(8.912-6.092*SD+0.852*SD2)*XC+(-16.737+7.039*SD)*XC**2+ - & (10.275+0.806*SD-2.000*SD2)*XC**3)* - & (1.-XC)**(2.043+1.408*SD-0.283*SD2) - XQ(2)=(0.835+0.527*SD-0.144*SD2)*XC**(0.600-0.054*SD)* - & (1.+(10.245-7.821*SD+1.325*SD2)*XC+(-19.511+10.940*SD- - & 1.133*SD2)*XC**2+(12.836-2.570*SD-1.041*SD2)*XC**3)* - & (1.-XC)**(3.083+1.382*SD-0.276*SD2) - XQ(3)=(XC**(0.321-0.135*SD)*((10.51-2.299*SD)+ - & (-17.28+0.755*SD)*XC+(8.242+2.543*SD)*XC**2)* - & XL**(-2.023-0.103*SD)+SD**1.044* - & EXP(-(-1.178+2.792*SD)+SQRT(2.318*SD**1.673*XL)))* - & (1.-XC)**(3.720+2.337*SD-0.199*SD2) - XQ(4)=SD**0.761*(1.+(6.078-2.065*SD)*XC)*(1.-XC)**(4.654+ - & 0.603*SD-0.326*SD2)*EXP(-(4.231+1.036*SD)+SQRT(3.419*SD**0.316* - & XL))/XL**(0.897-0.618*SD) - XQ(5)=0. - IF(SD.GT.0.918) XQ(5)=(SD-0.918)*(1.-XC)**(3.328+0.859*SD)* - & EXP(-(3.837+1.504*SD)+SQRT((2.150+1.291*SD)*SD**0.5*XL)) - XQ(6)=0. - IF(SD.GT.1.353) XQ(6)=(SD-1.353)*(1.-XC)**(3.382+0.909*SD)* - & EXP(-(4.130+1.486*SD)+SQRT((2.895+1.240*SD)*SD**0.5*XL)) - -C...Put into output array - special factor for small x. - CXS=1. -C IF(X.LT.1E-4.AND.ABS(XLOWPW-1.).GT.0.01) -C & CXS=(1E-4/X)**(XLOWPW-1.) - UPV = CXS*XQ(1) - DUPV = UPV - DNV = CXS*XQ(2) - DDNV = DNV - SEA = CXS*XQ(4) - DSEA = SEA - STR = CXS*XQ(4) - DSTR = STR - CHM = CXS*XQ(5) - DCHM = CHM - DBOT = 0.0D0 - DTOP = 0.0D0 - GL = CXS*XQ(3) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfgrvl.F b/PDF/spdf/sfgrvl.F deleted file mode 100644 index d35918282a0..00000000000 --- a/PDF/spdf/sfgrvl.F +++ /dev/null @@ -1,81 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:48 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:35 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE SFGRVL(DX,DSCAL,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL) -C -C :::::::::::: Structure functions from Glueck, Reya and Vogt (LO) -C :::::::::::: Lambda(NF=3) = 0.250 GeV -C - DIMENSION XQ(7) -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL - PARAMETER (ALAM=0.250) -C - X = DX - Q2 = DSCAL**2 -C -C generate the individual structure fcn calls -C -C...Lowest order parametrization of Gluck, Reya, Vogt. -C...Allowed variable range: 0.2 GeV^2 < Q2 < 1E6 GeV^2; 1E-4 < x < 1; -C...extended to 0.2 GeV^2 < Q2 < 1E8 GeV^2; 1E-6 < x < 1 -C...after consultation with the authors. - -C...Determine s and x. - Q2IN=MIN(1E8,MAX(0.2,Q2)) - SD=LOG(LOG(Q2IN/ALAM**2)/LOG(0.2/ALAM**2)) - XC=MAX(1E-6,X) - XL=-LOG(XC) - -C...Calculate structure functions. - XQ(1)=(0.794+0.312*SD)*XC**(0.427-0.011*SD)* - & (1.+(6.887-2.227*SD)*XC+(-11.083+2.136*SD)*XC**2+ - & (3.900+1.079*SD)*XC**3)*(1.-XC)**(1.037+1.077*SD) - XQ(2)=(0.486+0.139*SD)*XC**(0.434-0.018*SD)* - & (1.+(7.716-2.684*SD)*XC+(-12.768+3.122*SD)*XC**2+ - & (4.564+0.470*SD)*XC**3)*(1.-XC)**(1.889+1.129*SD) - XQ(3)=(XC**(0.415+0.186*SD)*((0.786+0.942*SD)+ - & (5.256-5.810*SD)*XC+(-4.599+5.842*SD)*XC**2)+SD**0.592* - & EXP(-(0.398+2.135*SD)+SQRT(3.779*SD**1.250*XL)))* - & (1.-XC)**(1.622+1.980*SD) - XQ(4)=SD**0.448*(1.-XC)**(5.540-0.445*SD)* - & EXP(-(4.668+1.230*SD)+SQRT((13.173-1.361*SD)*SD**0.442*XL))/ - & XL**(3.181-0.862*SD) - XQ(5)=0. - IF(SD.GT.1.125) XQ(5)=(SD-1.125)*(1.-XC)**(2.038+1.022*SD)* - & EXP(-(4.290+1.569*SD)+SQRT((2.982+1.452*SD)*SD**0.5*XL)) - XQ(6)=0. - IF(SD.GT.1.603) XQ(6)=(SD-1.603)*(1.-XC)**(2.230+1.052*SD)* - & EXP(-(4.566+1.559*SD)+SQRT((4.147+1.268*SD)*SD**0.5*XL)) - -C...Put into output array - special factor for small x. - CXS=1. -C IF(X.LT.1E-4.AND.ABS(XLOWPW-1.).GT.0.01) -C & CXS=(1E-4/X)**(XLOWPW-1.) - UPV = CXS*XQ(1) - DUPV = UPV - DNV = CXS*XQ(2) - DDNV = DNV - SEA = CXS*XQ(4) - DSEA = SEA - STR = CXS*XQ(4) - DSTR = STR - CHM = CXS*XQ(5) - DCHM = CHM - DBOT = 0.0D0 - DTOP = 0.0D0 - GL = CXS*XQ(3) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfgsho.F b/PDF/spdf/sfgsho.F deleted file mode 100644 index 62b054b6e49..00000000000 --- a/PDF/spdf/sfgsho.F +++ /dev/null @@ -1,1038 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:50 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:35 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFGSHO(X,Q,U,D,US,DS,S,C,B,G) -C -***************************************************************** -* Subroutine returns the parton distributions in the photon in * -* higher order. u,d etc. gives the actual distributions and * -* not x times the distributions; Q2 means Q 2. The distributions* -* are valid for 5.0e -4< x < 1.0 and 5.3 GeV 2 < Q 2 < 1.0e 8. * -* if higher Q 2 or lower x is required, these may be obtained * -* from the authors on request. * -* Lionel Gordon July 1991 : Gordon@uk.ac.man.ph.v2 * -***************************************************************** -C -#include "pdf/impdp.inc" - PARAMETER(NP=78,NQ=11,NARG=2) -#include "pdf/expdp.inc" - + DBFINT, - + SIG(NP,NQ),QNS(NP,NQ),GL(NP,NQ),Y(NP), - + XT(NARG),A(NP+NQ),QT(NQ) - DIMENSION NA(NARG) - EXTERNAL GSXCOR - SAVE SIG,QNS,GL,Y,ICALL - DATA QT /5.3D0,20.0D0,50.0D0,1.0D2,5.0D2,1.0D3,1.0D4,1.0D5, - * 1.0D6,1.0D7,1.0D8/ - DATA ZEROD/0.D0/ - DATA ICALL/0/ - DATA (SIG(1 ,K),QNS(1 ,K),GL(1 ,K), K=1,11) / - + 0.6065650D+01, 0.1673511D-01, 0.2735557D+02, - + 0.1481312D+02, 0.2400233D-01, 0.7486941D+02, - + 0.9293111D+01, 0.3138266D-01, 0.9985361D+02, - + 0.2989254D+02, 0.4222596D-01, 0.1230775D+03, - + 0.4618080D+02, 0.5221972D-01, 0.2166799D+03, - + 0.5893127D+02, 0.5874368D-01, 0.2610377D+03, - + 0.1055808D+03, 0.8102559D-01, 0.4353956D+03, - + 0.1576617D+03, 0.1040283D+00, 0.6461963D+03, - + 0.2140912D+03, 0.1275606D+00, 0.8877358D+03, - + 0.2741096D+03, 0.1514974D+00, 0.1155378D+04, - + 0.3371538D+03, 0.1757520D+00, 0.1445374D+04/ - DATA (SIG(2 ,K),QNS(2 ,K),GL(2 ,K), K=1,11) / - + 0.2088165D+01, 0.1036023D-01, 0.8723419D+01, - + 0.4225006D+01, 0.1475505D-01, 0.1941606D+02, - + 0.3339304D+01, 0.1994866D-01, 0.2310114D+02, - + 0.8486094D+01, 0.2711732D-01, 0.2970967D+02, - + 0.1273584D+02, 0.3351494D-01, 0.4668130D+02, - + 0.1583552D+02, 0.3769763D-01, 0.5517038D+02, - + 0.2682932D+02, 0.5180539D-01, 0.8690373D+02, - + 0.3868541D+02, 0.6613841D-01, 0.1228761D+03, - + 0.5120706D+02, 0.8061253D-01, 0.1619629D+03, - + 0.6425571D+02, 0.9517723D-01, 0.2033927D+03, - + 0.7772972D+02, 0.1098005D+00, 0.2466208D+03/ - DATA (SIG(3 ,K),QNS(3 ,K),GL(3 ,K), K=1,11) / - + 0.1280238D+01, 0.8388687D-02, 0.5101070D+01, - + 0.2383706D+01, 0.1199014D-01, 0.1044092D+02, - + 0.2067960D+01, 0.1662210D-01, 0.1182869D+02, - + 0.4705948D+01, 0.2254763D-01, 0.1541149D+02, - + 0.6897929D+01, 0.2803397D-01, 0.2318680D+02, - + 0.8463400D+01, 0.3153630D-01, 0.2717897D+02, - + 0.1394875D+02, 0.4330472D-01, 0.4180924D+02, - + 0.1978188D+02, 0.5520337D-01, 0.5800315D+02, - + 0.2587715D+02, 0.6717250D-01, 0.7527982D+02, - + 0.3217454D+02, 0.7917807D-01, 0.9332840D+02, - + 0.3863046D+02, 0.9119967D-01, 0.1119399D+03/ - DATA (SIG(4 ,K),QNS(4 ,K),GL(4 ,K), K=1,11) / - + 0.9302918D+00, 0.7335389D-02, 0.3575869D+01, - + 0.1639148D+01, 0.1051952D-01, 0.6947249D+01, - + 0.1502766D+01, 0.1484208D-01, 0.7627649D+01, - + 0.3188108D+01, 0.2006829D-01, 0.1001293D+02, - + 0.4587731D+01, 0.2507186D-01, 0.1467344D+02, - + 0.5576946D+01, 0.2820290D-01, 0.1711137D+02, - + 0.9016710D+01, 0.3870013D-01, 0.2593665D+02, - + 0.1264162D+02, 0.4928320D-01, 0.3556541D+02, - + 0.1640320D+02, 0.5990463D-01, 0.4572807D+02, - + 0.2026772D+02, 0.7053860D-01, 0.5625666D+02, - + 0.2421099D+02, 0.8117033D-01, 0.6704169D+02/ - DATA (SIG(5 ,K),QNS(5 ,K),GL(5 ,K), K=1,11) / - + 0.7341829D+00, 0.6653940D-02, 0.2739483D+01, - + 0.1240866D+01, 0.9566919D-02, 0.5124557D+01, - + 0.1183022D+01, 0.1368404D-01, 0.5494513D+01, - + 0.2384678D+01, 0.1843840D-01, 0.7254667D+01, - + 0.3381126D+01, 0.2312477D-01, 0.1043191D+02, - + 0.4080611D+01, 0.2600844D-01, 0.1212016D+02, - + 0.6499412D+01, 0.3566051D-01, 0.1817709D+02, - + 0.9031486D+01, 0.4537145D-01, 0.2471753D+02, - + 0.1164555D+02, 0.5510174D-01, 0.3156858D+02, - + 0.1432000D+02, 0.6483074D-01, 0.3862542D+02, - + 0.1703953D+02, 0.7454720D-01, 0.4582131D+02/ - DATA (SIG(6 ,K),QNS(6 ,K),GL(6 ,K), K=1,11) / - + 0.6084410D+00, 0.6166135D-02, 0.2212711D+01, - + 0.9945472D+00, 0.8883065D-02, 0.4017803D+01, - + 0.9783799D+00, 0.1283867D-01, 0.4227000D+01, - + 0.1892738D+01, 0.1725123D-01, 0.5606328D+01, - + 0.2651696D+01, 0.2169976D-01, 0.7943884D+01, - + 0.3181088D+01, 0.2440177D-01, 0.9202744D+01, - + 0.5003829D+01, 0.3343367D-01, 0.1368754D+02, - + 0.6901991D+01, 0.4250548D-01, 0.1849166D+02, - + 0.8853699D+01, 0.5158359D-01, 0.2349486D+02, - + 0.1084398D+02, 0.6065109D-01, 0.2862582D+02, - + 0.1286234D+02, 0.6969934D-01, 0.3384002D+02/ - DATA (SIG(7 ,K),QNS(7 ,K),GL(7 ,K), K=1,11) / - + 0.5207982D+00, 0.5794293D-02, 0.1851154D+01, - + 0.8279024D+00, 0.8359971D-02, 0.3279824D+01, - + 0.8352991D+00, 0.1219818D-01, 0.3395676D+01, - + 0.1562856D+01, 0.1633236D-01, 0.4521039D+01, - + 0.2167241D+01, 0.2060156D-01, 0.6329528D+01, - + 0.2586669D+01, 0.2316071D-01, 0.7315240D+01, - + 0.4025714D+01, 0.3170613D-01, 0.1080662D+02, - + 0.5517890D+01, 0.4027804D-01, 0.1452216D+02, - + 0.7047054D+01, 0.4884713D-01, 0.1837359D+02, - + 0.8602262D+01, 0.5739923D-01, 0.2230954D+02, - + 0.1017592D+02, 0.6592748D-01, 0.2629850D+02/ - DATA (SIG(8 ,K),QNS(8 ,K),GL(8 ,K), K=1,11) / - + 0.4561276D+00, 0.5498347D-02, 0.1587975D+01, - + 0.7080337D+00, 0.7942158D-02, 0.2755364D+01, - + 0.7298861D+00, 0.1168320D-01, 0.2813688D+01, - + 0.1327437D+01, 0.1559082D-01, 0.3758285D+01, - + 0.1824850D+01, 0.1971228D-01, 0.5208444D+01, - + 0.2168283D+01, 0.2215487D-01, 0.6007488D+01, - + 0.3343064D+01, 0.3030401D-01, 0.8823803D+01, - + 0.4556793D+01, 0.3846943D-01, 0.1180446D+02, - + 0.5797109D+01, 0.4662514D-01, 0.1488208D+02, - + 0.7055698D+01, 0.5475909D-01, 0.1801812D+02, - + 0.8326851D+01, 0.6286585D-01, 0.2118931D+02/ - DATA (SIG(9 ,K),QNS(9 ,K),GL(9 ,K), K=1,11) / - + 0.4063894D+00, 0.5255330D-02, 0.1388031D+01, - + 0.6178786D+00, 0.7597823D-02, 0.2365005D+01, - + 0.6490827D+00, 0.1124494D-01, 0.2385734D+01, - + 0.1151646D+01, 0.1497336D-01, 0.3195698D+01, - + 0.1571178D+01, 0.1896419D-01, 0.4390163D+01, - + 0.1859430D+01, 0.2130983D-01, 0.5054904D+01, - + 0.2842955D+01, 0.2912866D-01, 0.7387858D+01, - + 0.3855926D+01, 0.3695479D-01, 0.9845208D+01, - + 0.4888587D+01, 0.4476535D-01, 0.1237404D+02, - + 0.5934431D+01, 0.5255023D-01, 0.1494452D+02, - + 0.6989035D+01, 0.6030523D-01, 0.1753891D+02/ - DATA (SIG(10,K),QNS(10,K),GL(10,K), K=1,11) / - + 0.3669108D+00, 0.5050910D-02, 0.1231104D+01, - + 0.5477297D+00, 0.7307178D-02, 0.2064071D+01, - + 0.5845310D+00, 0.1088540D-01, 0.2059616D+01, - + 0.1015645D+01, 0.1444751D-01, 0.2765911D+01, - + 0.1376090D+01, 0.1833354D-01, 0.3770310D+01, - + 0.1622807D+01, 0.2059506D-01, 0.4334537D+01, - + 0.2462716D+01, 0.2812857D-01, 0.6307271D+01, - + 0.3325383D+01, 0.3566287D-01, 0.8376540D+01, - + 0.4202940D+01, 0.4317731D-01, 0.1049981D+02, - + 0.5090187D+01, 0.5066318D-01, 0.1265347D+02, - + 0.5983618D+01, 0.5811724D-01, 0.1482375D+02/ - DATA (SIG(11,K),QNS(11,K),GL(11,K), K=1,11) / - + 0.2430186D+00, 0.4314023D-02, 0.7523072D+00, - + 0.3377715D+00, 0.6249551D-02, 0.1183329D+01, - + 0.3837406D+00, 0.9531402D-02, 0.1130697D+01, - + 0.6146161D+00, 0.1249180D-01, 0.1532368D+01, - + 0.8112021D+00, 0.1596203D-01, 0.2028064D+01, - + 0.9429896D+00, 0.1790703D-01, 0.2317788D+01, - + 0.1387883D+01, 0.2436676D-01, 0.3316495D+01, - + 0.1840164D+01, 0.3080363D-01, 0.4348077D+01, - + 0.2296647D+01, 0.3720595D-01, 0.5395572D+01, - + 0.2755311D+01, 0.4357046D-01, 0.6450140D+01, - + 0.3214868D+01, 0.4989738D-01, 0.7507156D+01/ - DATA (SIG(12,K),QNS(12,K),GL(12,K), K=1,11) / - + 0.1877330D+00, 0.3918133D-02, 0.5472383D+00, - + 0.2498051D+00, 0.5673293D-02, 0.8258573D+00, - + 0.2960849D+00, 0.8751134D-02, 0.7670979D+00, - + 0.4499378D+00, 0.1139486D-01, 0.1044215D+01, - + 0.5851333D+00, 0.1460703D-01, 0.1356770D+01, - + 0.6736690D+00, 0.1637242D-01, 0.1544586D+01, - + 0.9710444D+00, 0.2222223D-01, 0.2186219D+01, - + 0.1271493D+01, 0.2803610D-01, 0.2842571D+01, - + 0.1573305D+01, 0.3380803D-01, 0.3504703D+01, - + 0.1875444D+01, 0.3953799D-01, 0.4168181D+01, - + 0.2177278D+01, 0.4522816D-01, 0.4830741D+01/ - DATA (SIG(13,K),QNS(13,K),GL(13,K), K=1,11) / - + 0.1536570D+00, 0.3640366D-02, 0.4246642D+00, - + 0.1978402D+00, 0.5264835D-02, 0.6197465D+00, - + 0.2420744D+00, 0.8206276D-02, 0.5624516D+00, - + 0.3538099D+00, 0.1060189D-01, 0.7681583D+00, - + 0.4550185D+00, 0.1363207D-01, 0.9831431D+00, - + 0.5199088D+00, 0.1526445D-01, 0.1115647D+01, - + 0.7369921D+00, 0.2066525D-01, 0.1565027D+01, - + 0.9552516D+00, 0.2602315D-01, 0.2021111D+01, - + 0.1173696D+01, 0.3133545D-01, 0.2478795D+01, - + 0.1391756D+01, 0.3660403D-01, 0.2935698D+01, - + 0.1609106D+01, 0.4183217D-01, 0.3390712D+01/ - DATA (SIG(14,K),QNS(14,K),GL(14,K), K=1,11) / - + 0.1307466D+00, 0.3430768D-02, 0.3446542D+00, - + 0.1642276D+00, 0.4953992D-02, 0.4896833D+00, - + 0.2061101D+00, 0.7783275D-02, 0.4361399D+00, - + 0.2923728D+00, 0.9988721D-02, 0.5970331D+00, - + 0.3731124D+00, 0.1287307D-01, 0.7552890D+00, - + 0.4238146D+00, 0.1440173D-01, 0.8549424D+00, - + 0.5929472D+00, 0.1945293D-01, 0.1191056D+01, - + 0.7624074D+00, 0.2445664D-01, 0.1530201D+01, - + 0.9315756D+00, 0.2941259D-01, 0.1869240D+01, - + 0.1100116D+01, 0.3432402D-01, 0.2206814D+01, - + 0.1267856D+01, 0.3919499D-01, 0.2542411D+01/ - DATA (SIG(15,K),QNS(15,K),GL(15,K), K=1,11) / - + 0.1142303D+00, 0.3264050D-02, 0.2884674D+00, - + 0.1407451D+00, 0.4705052D-02, 0.4008395D+00, - + 0.1803555D+00, 0.7435805D-02, 0.3514833D+00, - + 0.2498652D+00, 0.9491595D-02, 0.4818864D+00, - + 0.3170887D+00, 0.1225274D-01, 0.6039667D+00, - + 0.3584874D+00, 0.1369704D-01, 0.6822623D+00, - + 0.4962908D+00, 0.1846406D-01, 0.9452117D+00, - + 0.6340090D+00, 0.2318019D-01, 0.1209350D+01, - + 0.7712347D+00, 0.2784719D-01, 0.1472646D+01, - + 0.9077632D+00, 0.3246936D-01, 0.1734274D+01, - + 0.1043501D+01, 0.3705138D-01, 0.1993933D+01/ - DATA (SIG(16,K),QNS(16,K),GL(16,K), K=1,11) / - + 0.1016919D+00, 0.3126270D-02, 0.2467923D+00, - + 0.1233648D+00, 0.4498203D-02, 0.3364129D+00, - + 0.1609060D+00, 0.7144636D-02, 0.2909869D+00, - + 0.2185992D+00, 0.9074521D-02, 0.3994197D+00, - + 0.2763102D+00, 0.1173045D-01, 0.4967034D+00, - + 0.3111752D+00, 0.1310358D-01, 0.5601225D+00, - + 0.4270351D+00, 0.1763133D-01, 0.7723572D+00, - + 0.5425936D+00, 0.2210593D-01, 0.9847733D+00, - + 0.6575760D+00, 0.2653071D-01, 0.1196022D+01, - + 0.7718564D+00, 0.3091074D-01, 0.1405613D+01, - + 0.8853900D+00, 0.3525113D-01, 0.1613477D+01/ - DATA (SIG(17,K),QNS(17,K),GL(17,K), K=1,11) / - + 0.9182438D-01, 0.3009235D-02, 0.2146909D+00, - + 0.1099809D+00, 0.4321725D-02, 0.2877548D+00, - + 0.1457158D+00, 0.6893122D-02, 0.2459586D+00, - + 0.1946893D+00, 0.8715689D-02, 0.3378464D+00, - + 0.2453717D+00, 0.1127961D-01, 0.4173046D+00, - + 0.2754281D+00, 0.1259139D-01, 0.4698735D+00, - + 0.3751792D+00, 0.1691322D-01, 0.6452820D+00, - + 0.4745191D+00, 0.2118032D-01, 0.8203104D+00, - + 0.5732574D+00, 0.2539727D-01, 0.9940447D+00, - + 0.6713176D+00, 0.2956980D-01, 0.1166189D+01, - + 0.7686830D+00, 0.3370330D-01, 0.1336708D+01/ - DATA (SIG(18,K),QNS(18,K),GL(18,K), K=1,11) / - + 0.8383799D-01, 0.2907675D-02, 0.1892241D+00, - + 0.9935048D-01, 0.4168045D-02, 0.2498206D+00, - + 0.1334649D+00, 0.6672353D-02, 0.2112534D+00, - + 0.1757937D+00, 0.8401655D-02, 0.2903118D+00, - + 0.2210806D+00, 0.1088340D-01, 0.3564903D+00, - + 0.2474715D+00, 0.1214132D-01, 0.4008628D+00, - + 0.3349671D+00, 0.1628262D-01, 0.5485501D+00, - + 0.4219958D+00, 0.2036817D-01, 0.6955385D+00, - + 0.5084242D+00, 0.2440356D-01, 0.8412092D+00, - + 0.5942087D+00, 0.2839500D-01, 0.9854434D+00, - + 0.6793509D+00, 0.3234812D-01, 0.1128552D+01/ - DATA (SIG(19,K),QNS(19,K),GL(19,K), K=1,11) / - + 0.7723206D-01, 0.2818058D-02, 0.1685560D+00, - + 0.9070309D-01, 0.4032067D-02, 0.2195174D+00, - + 0.1232904D+00, 0.6475505D-02, 0.1837747D+00, - + 0.1604877D+00, 0.8122404D-02, 0.2526959D+00, - + 0.2014971D+00, 0.1053004D-01, 0.3086819D+00, - + 0.2250217D+00, 0.1174002D-01, 0.3466962D+00, - + 0.3029397D+00, 0.1572088D-01, 0.4729392D+00, - + 0.3803591D+00, 0.1964536D-01, 0.5983037D+00, - + 0.4571906D+00, 0.2351989D-01, 0.7223719D+00, - + 0.5334144D+00, 0.2735105D-01, 0.8450831D+00, - + 0.6090437D+00, 0.3114464D-01, 0.9665902D+00/ - DATA (SIG(20,K),QNS(20,K),GL(20,K), K=1,11) / - + 0.7166979D-01, 0.2737904D-02, 0.1514659D+00, - + 0.8352938D-01, 0.3910187D-02, 0.1948200D+00, - + 0.1147711D+00, 0.6297541D-02, 0.1616210D+00, - + 0.1478390D+00, 0.7871022D-02, 0.2223137D+00, - + 0.1854069D+00, 0.1021112D-01, 0.2703070D+00, - + 0.2066313D+00, 0.1137797D-01, 0.3032722D+00, - + 0.2768761D+00, 0.1521465D-01, 0.4125369D+00, - + 0.3466116D+00, 0.1899463D-01, 0.5208333D+00, - + 0.4157796D+00, 0.2272501D-01, 0.6278800D+00, - + 0.4843759D+00, 0.2641267D-01, 0.7336177D+00, - + 0.5524220D+00, 0.3006353D-01, 0.8378928D+00/ - DATA (SIG(21,K),QNS(21,K),GL(21,K), K=1,11) / - + 0.6691647D-01, 0.2665407D-02, 0.1371127D+00, - + 0.7748023D-01, 0.3799770D-02, 0.1743523D+00, - + 0.1075640D+00, 0.6134855D-02, 0.1434916D+00, - + 0.1372090D+00, 0.7642610D-02, 0.1973353D+00, - + 0.1719627D+00, 0.9920397D-02, 0.2389568D+00, - + 0.1913020D+00, 0.1104810D-01, 0.2678341D+00, - + 0.2552737D+00, 0.1475406D-01, 0.3633965D+00, - + 0.3187415D+00, 0.1840319D-01, 0.4579583D+00, - + 0.3816664D+00, 0.2200316D-01, 0.5513343D+00, - + 0.4440552D+00, 0.2556111D-01, 0.6435294D+00, - + 0.5059347D+00, 0.2908306D-01, 0.7346384D+00/ - DATA (SIG(22,K),QNS(22,K),GL(22,K), K=1,11) / - + 0.6280322D-01, 0.2599220D-02, 0.1248987D+00, - + 0.7230827D-01, 0.3698845D-02, 0.1571487D+00, - + 0.1012721D+00, 0.5984977D-02, 0.1283524D+00, - + 0.1281479D+00, 0.7433146D-02, 0.1764963D+00, - + 0.1605255D+00, 0.9653220D-02, 0.2129282D+00, - + 0.1783039D+00, 0.1074511D-01, 0.2384503D+00, - + 0.2370774D+00, 0.1433162D-01, 0.3227885D+00, - + 0.2953521D+00, 0.1786131D-01, 0.4061219D+00, - + 0.3531073D+00, 0.2134241D-01, 0.4883356D+00, - + 0.4103581D+00, 0.2478220D-01, 0.5694727D+00, - + 0.4671349D+00, 0.2818677D-01, 0.6497681D+00/ - DATA (SIG(23,K),QNS(23,K),GL(23,K), K=1,11) / - + 0.5920566D-01, 0.2538310D-02, 0.1143875D+00, - + 0.6783383D-01, 0.3605897D-02, 0.1425133D+00, - + 0.9587391D-01, 0.5846810D-02, 0.1154861D+00, - + 0.1203243D+00, 0.7239886D-02, 0.1588972D+00, - + 0.1507296D+00, 0.9406499D-02, 0.1910425D+00, - + 0.1671840D+00, 0.1046534D-01, 0.2137761D+00, - + 0.2215643D+00, 0.1394179D-01, 0.2887921D+00, - + 0.2754635D+00, 0.1736169D-01, 0.3628156D+00, - + 0.3288700D+00, 0.2073360D-01, 0.4357847D+00, - + 0.3818032D+00, 0.2406498D-01, 0.5076579D+00, - + 0.4342943D+00, 0.2736193D-01, 0.5779003D+00/ - DATA (SIG(24,K),QNS(24,K),GL(24,K), K=1,11) / - + 0.5602975D-01, 0.2481877D-02, 0.1052530D+00, - + 0.6392282D-01, 0.3519741D-02, 0.1299312D+00, - + 0.9098847D-01, 0.5718579D-02, 0.1045397D+00, - + 0.1135013D+00, 0.7060596D-02, 0.1438706D+00, - + 0.1421624D+00, 0.9177235D-02, 0.1724437D+00, - + 0.1574975D+00, 0.1020541D-01, 0.1928262D+00, - + 0.2081516D+00, 0.1357993D-01, 0.2600014D+00, - + 0.2583326D+00, 0.1689829D-01, 0.3262112D+00, - + 0.3080420D+00, 0.2016938D-01, 0.3914376D+00, - + 0.3573045D+00, 0.2340073D-01, 0.4556479D+00, - + 0.4061528D+00, 0.2659843D-01, 0.5181314D+00/ - DATA (SIG(25,K),QNS(25,K),GL(25,K), K=1,11) / - + 0.5320339D-01, 0.2429285D-02, 0.9724709D-01, - + 0.6047362D-01, 0.3439436D-02, 0.1190152D+00, - + 0.8672179D-01, 0.5598116D-02, 0.9515747D-01, - + 0.1074955D+00, 0.6893428D-02, 0.1309197D+00, - + 0.1346727D+00, 0.8962708D-02, 0.1564870D+00, - + 0.1490360D+00, 0.9962359D-02, 0.1748654D+00, - + 0.1964665D+00, 0.1324214D-01, 0.2353754D+00, - + 0.2434399D+00, 0.1646624D-01, 0.2949560D+00, - + 0.2899643D+00, 0.1964379D-01, 0.3536189D+00, - + 0.3360674D+00, 0.2278239D-01, 0.4114122D+00, - + 0.3817828D+00, 0.2588812D-01, 0.4681676D+00/ - DATA (SIG(26,K),QNS(26,K),GL(26,K), K=1,11) / - + 0.5067014D-01, 0.2380023D-02, 0.9017766D-01, - + 0.5740767D-01, 0.3364221D-02, 0.1094682D+00, - + 0.8294029D-01, 0.5484802D-02, 0.8701598D-01, - + 0.1021628D+00, 0.6736615D-02, 0.1196648D+00, - + 0.1280525D+00, 0.8761290D-02, 0.1426762D+00, - + 0.1415660D+00, 0.9734266D-02, 0.1593326D+00, - + 0.1861850D+00, 0.1292555D-01, 0.2141261D+00, - + 0.2303669D+00, 0.1606172D-01, 0.2680304D+00, - + 0.2741223D+00, 0.1915210D-01, 0.3210715D+00, - + 0.3174801D+00, 0.2220431D-01, 0.3733182D+00, - + 0.3604743D+00, 0.2522440D-01, 0.4248763D+00/ - DATA (SIG(27,K),QNS(27,K),GL(27,K), K=1,11) / - + 0.4838525D-01, 0.2333673D-02, 0.8389354D-01, - + 0.5466325D-01, 0.3293475D-02, 0.1010585D+00, - + 0.7942896D-01, 0.5378205D-02, 0.7987463D-01, - + 0.9739343D-01, 0.6588836D-02, 0.1098106D+00, - + 0.1220999D+00, 0.8571672D-02, 0.1306276D+00, - + 0.1348752D+00, 0.9519577D-02, 0.1457940D+00, - + 0.1770428D+00, 0.1262781D-01, 0.1956462D+00, - + 0.2187841D+00, 0.1568160D-01, 0.2446509D+00, - + 0.2601163D+00, 0.1869039D-01, 0.2928437D+00, - + 0.3010706D+00, 0.2166182D-01, 0.3402504D+00, - + 0.3416809D+00, 0.2460189D-01, 0.3867162D+00/ - DATA (SIG(28,K),QNS(28,K),GL(28,K), K=1,11) / - + 0.4631267D-01, 0.2289894D-02, 0.7827406D-01, - + 0.5219118D-01, 0.3226686D-02, 0.9360310D-01, - + 0.7630146D-01, 0.5276581D-02, 0.7356495D-01, - + 0.9310554D-01, 0.6449411D-02, 0.1011247D+00, - + 0.1167827D+00, 0.8392094D-02, 0.1200429D+00, - + 0.1289001D+00, 0.9316437D-02, 0.1339110D+00, - + 0.1688894D+00, 0.1234665D-01, 0.1794612D+00, - + 0.2084679D+00, 0.1532308D-01, 0.2242050D+00, - + 0.2476557D+00, 0.1825530D-01, 0.2681946D+00, - + 0.2864847D+00, 0.2115094D-01, 0.3115122D+00, - + 0.3249890D+00, 0.2401596D-01, 0.3542832D+00/ - DATA (SIG(29,K),QNS(29,K),GL(29,K), K=1,11) / - + 0.3963995D-01, 0.2135454D-02, 0.6077375D-01, - + 0.4434767D-01, 0.2991513D-02, 0.7082573D-01, - + 0.6624326D-01, 0.4915647D-02, 0.5452637D-01, - + 0.7952175D-01, 0.5958057D-02, 0.7493513D-01, - + 0.1000133D+00, 0.7757855D-02, 0.8836736D-01, - + 0.1101170D+00, 0.8599883D-02, 0.9841307D-01, - + 0.1434479D+00, 0.1135815D-01, 0.1313303D+00, - + 0.1764247D+00, 0.1406569D-01, 0.1635950D+00, - + 0.2090732D+00, 0.1673228D-01, 0.1952974D+00, - + 0.2414257D+00, 0.1936536D-01, 0.2266835D+00, - + 0.2735150D+00, 0.2197062D-01, 0.2586619D+00/ - DATA (SIG(30,K),QNS(30,K),GL(30,K), K=1,11) / - + 0.3473127D-01, 0.2005596D-02, 0.4855298D-01, - + 0.3868482D-01, 0.2794641D-02, 0.5535224D-01, - + 0.5871451D-01, 0.4611990D-02, 0.4189645D-01, - + 0.6970597D-01, 0.5546104D-02, 0.5749077D-01, - + 0.8790730D-01, 0.7226409D-02, 0.6749497D-01, - + 0.9663246D-01, 0.8000395D-02, 0.7507513D-01, - + 0.1254004D+00, 0.1053498D-01, 0.9987858D-01, - + 0.1538522D+00, 0.1302248D-01, 0.1241562D+00, - + 0.1820191D+00, 0.1547236D-01, 0.1479759D+00, - + 0.2099336D+00, 0.1789169D-01, 0.1713871D+00, - + 0.2376255D+00, 0.2028576D-01, 0.1942811D+00/ - DATA (SIG(31,K),QNS(31,K),GL(31,K), K=1,11) / - + 0.3096272D-01, 0.1893419D-02, 0.3963485D-01, - + 0.3440060D-01, 0.2625488D-02, 0.4433935D-01, - + 0.5295932D-01, 0.4348357D-02, 0.3305527D-01, - + 0.6227508D-01, 0.5192441D-02, 0.4530292D-01, - + 0.7878427D-01, 0.6769381D-02, 0.5304958D-01, - + 0.8650020D-01, 0.7485907D-02, 0.5895900D-01, - + 0.1119368D+00, 0.9832260D-02, 0.7827856D-01, - + 0.1370931D+00, 0.1213530D-01, 0.9717233D-01, - + 0.1620007D+00, 0.1440397D-01, 0.1156999D+00, - + 0.1866905D+00, 0.1664484D-01, 0.1339078D+00, - + 0.2111894D+00, 0.1886280D-01, 0.1517285D+00/ - DATA (SIG(32,K),QNS(32,K),GL(32,K), K=1,11) / - + 0.2795860D-01, 0.1794555D-02, 0.3285041D-01, - + 0.3102012D-01, 0.2477298D-02, 0.3613191D-01, - + 0.4834785D-01, 0.4115216D-02, 0.2656478D-01, - + 0.5639649D-01, 0.4882376D-02, 0.3636285D-01, - + 0.7157303D-01, 0.6368941D-02, 0.4252888D-01, - + 0.7851124D-01, 0.7036028D-02, 0.4724076D-01, - + 0.1013838D+00, 0.9220985D-02, 0.6263629D-01, - + 0.1240067D+00, 0.1136641D-01, 0.7768341D-01, - + 0.1464104D+00, 0.1348058D-01, 0.9243061D-01, - + 0.1686237D+00, 0.1556952D-01, 0.1069155D+00, - + 0.1906710D+00, 0.1763769D-01, 0.1211197D+00/ - DATA (SIG(33,K),QNS(33,K),GL(33,K), K=1,11) / - + 0.2550812D-01, 0.1706341D-02, 0.2756726D-01, - + 0.2828616D-01, 0.2345881D-02, 0.2986518D-01, - + 0.4456303D-01, 0.3906355D-02, 0.2167934D-01, - + 0.5162542D-01, 0.4606805D-02, 0.2964358D-01, - + 0.6572278D-01, 0.6013698D-02, 0.3467294D-01, - + 0.7204419D-01, 0.6637753D-02, 0.3850438D-01, - + 0.9288541D-01, 0.8682663D-02, 0.5101891D-01, - + 0.1135038D+00, 0.1069176D-01, 0.6324522D-01, - + 0.1339278D+00, 0.1267255D-01, 0.7521787D-01, - + 0.1541835D+00, 0.1463047D-01, 0.8693566D-01, - + 0.1742932D+00, 0.1656957D-01, 0.9827354D-01/ - DATA (SIG(34,K),QNS(34,K),GL(34,K), K=1,11) / - + 0.2346782D-01, 0.1626907D-02, 0.2335992D-01, - + 0.2602508D-01, 0.2228274D-02, 0.2496174D-01, - + 0.4139830D-01, 0.3717883D-02, 0.1790854D-01, - + 0.4766020D-01, 0.4359389D-02, 0.2446231D-01, - + 0.6086595D-01, 0.5695777D-02, 0.2864798D-01, - + 0.6668359D-01, 0.6281994D-02, 0.3181253D-01, - + 0.8586868D-01, 0.8204173D-02, 0.4214714D-01, - + 0.1048552D+00, 0.1009418D-01, 0.5224091D-01, - + 0.1236690D+00, 0.1195865D-01, 0.6211735D-01, - + 0.1423333D+00, 0.1380242D-01, 0.7174700D-01, - + 0.1608679D+00, 0.1562911D-01, 0.8092517D-01/ - DATA (SIG(35,K),QNS(35,K),GL(35,K), K=1,11) / - + 0.2174052D-01, 0.1554922D-02, 0.1994644D-01, - + 0.2412138D-01, 0.2122341D-02, 0.2104650D-01, - + 0.3870388D-01, 0.3546495D-02, 0.1493920D-01, - + 0.4430282D-01, 0.4135457D-02, 0.2038137D-01, - + 0.5675727D-01, 0.5409177D-02, 0.2392391D-01, - + 0.6215470D-01, 0.5961907D-02, 0.2657063D-01, - + 0.7996025D-01, 0.7775788D-02, 0.3521395D-01, - + 0.9758952D-01, 0.9561009D-02, 0.4365453D-01, - + 0.1150648D+00, 0.1132327D-01, 0.5190911D-01, - + 0.1324067D+00, 0.1306682D-01, 0.5994190D-01, - + 0.1496328D+00, 0.1479486D-01, 0.6754249D-01/ - DATA (SIG(36,K),QNS(36,K),GL(36,K), K=1,11) / - + 0.2026112D-01, 0.1489445D-02, 0.1714226D-01, - + 0.2249913D-01, 0.2026552D-02, 0.1787877D-01, - + 0.3637431D-01, 0.3389577D-02, 0.1257395D-01, - + 0.4142448D-01, 0.3931617D-02, 0.1712367D-01, - + 0.5323490D-01, 0.5149424D-02, 0.2016795D-01, - + 0.5827752D-01, 0.5672412D-02, 0.2240598D-01, - + 0.7491877D-01, 0.7390360D-02, 0.2971616D-01, - + 0.9140342D-01, 0.9082965D-02, 0.3685477D-01, - + 0.1077506D+00, 0.1075500D-01, 0.4383659D-01, - + 0.1239783D+00, 0.1241011D-01, 0.5064669D-01, - + 0.1401016D+00, 0.1405115D-01, 0.5716857D-01/ - DATA (SIG(37,K),QNS(37,K),GL(37,K), K=1,11) / - + 0.1897928D-01, 0.1429733D-02, 0.1480575D-01, - + 0.2109989D-01, 0.1939687D-02, 0.1527502D-01, - + 0.3434731D-01, 0.3245061D-02, 0.1065428D-01, - + 0.3892485D-01, 0.3745247D-02, 0.1447877D-01, - + 0.5017955D-01, 0.4913054D-02, 0.1712695D-01, - + 0.5491741D-01, 0.5409554D-02, 0.1903599D-01, - + 0.7056040D-01, 0.7042225D-02, 0.2527338D-01, - + 0.8606525D-01, 0.8652645D-02, 0.3136426D-01, - + 0.1014476D+00, 0.1024466D-01, 0.3731765D-01, - + 0.1167225D+00, 0.1182137D-01, 0.4310605D-01, - + 0.1319030D+00, 0.1338523D-01, 0.4856615D-01/ - DATA (SIG(38,K),QNS(38,K),GL(38,K), K=1,11) / - + 0.1786026D-01, 0.1375239D-02, 0.1284175D-01, - + 0.1988414D-01, 0.1860838D-02, 0.1311480D-01, - + 0.3257804D-01, 0.3111553D-02, 0.9077812D-02, - + 0.3673648D-01, 0.3574365D-02, 0.1231087D-01, - + 0.4751076D-01, 0.4697474D-02, 0.1463924D-01, - + 0.5198410D-01, 0.5170351D-02, 0.1628060D-01, - + 0.6676326D-01, 0.6727088D-02, 0.2164489D-01, - + 0.8142222D-01, 0.8264424D-02, 0.2688248D-01, - + 0.9597226D-01, 0.9785323D-02, 0.3199040D-01, - + 0.1104258D+00, 0.1129232D-01, 0.3687973D-01, - + 0.1247939D+00, 0.1278746D-01, 0.4114147D-01/ - DATA (SIG(39,K),QNS(39,K),GL(39,K), K=1,11) / - + 0.1687667D-01, 0.1325525D-02, 0.1117568D-01, - + 0.1882082D-01, 0.1789262D-02, 0.1130437D-01, - + 0.3101532D-01, 0.2988451D-02, 0.7771350D-02, - + 0.3480674D-01, 0.3417267D-02, 0.1051495D-01, - + 0.4516156D-01, 0.4500583D-02, 0.1258078D-01, - + 0.4940417D-01, 0.4952347D-02, 0.1400123D-01, - + 0.6343101D-01, 0.6441374D-02, 0.1864500D-01, - + 0.7735425D-01, 0.7913638D-02, 0.2317885D-01, - + 0.9118083D-01, 0.9371229D-02, 0.2759768D-01, - + 0.1049204D+00, 0.1081616D-01, 0.3181773D-01, - + 0.1185825D+00, 0.1225015D-01, 0.3546369D-01/ - DATA (SIG(40,K),QNS(40,K),GL(40,K), K=1,11) / - + 0.1600790D-01, 0.1280243D-02, 0.9752417D-02, - + 0.1788685D-01, 0.1724369D-02, 0.9775493D-02, - + 0.2962648D-01, 0.2875010D-02, 0.6681283D-02, - + 0.3309635D-01, 0.3272610D-02, 0.9015398D-02, - + 0.4308362D-01, 0.4320696D-02, 0.1086284D-01, - + 0.4712416D-01, 0.4753591D-02, 0.1209901D-01, - + 0.6049278D-01, 0.6182242D-02, 0.1614185D-01, - + 0.7377297D-01, 0.7596552D-02, 0.2008945D-01, - + 0.8696745D-01, 0.8997748D-02, 0.2394496D-01, - + 0.1000833D+00, 0.1038738D-01, 0.2769812D-01, - + 0.1131282D+00, 0.1176692D-01, 0.3128067D-01/ - DATA (SIG(41,K),QNS(41,K),GL(41,K), K=1,11) / - + 0.1523772D-01, 0.1239113D-02, 0.8528992D-02, - + 0.1706416D-01, 0.1665670D-02, 0.8475568D-02, - + 0.2839349D-01, 0.2770231D-02, 0.5765168D-02, - + 0.3157419D-01, 0.3139319D-02, 0.7754231D-02, - + 0.4124089D-01, 0.4156408D-02, 0.9417515D-02, - + 0.4510345D-01, 0.4572478D-02, 0.1049851D-01, - + 0.5789349D-01, 0.5947373D-02, 0.1403532D-01, - + 0.7060934D-01, 0.7310097D-02, 0.1748913D-01, - + 0.8324938D-01, 0.8661061D-02, 0.2086697D-01, - + 0.9581807D-01, 0.1000138D-01, 0.2418921D-01, - + 0.1083215D+00, 0.1133226D-01, 0.2747728D-01/ - DATA (SIG(42,K),QNS(42,K),GL(42,K), K=1,11) / - + 0.1455323D-01, 0.1201901D-02, 0.7471548D-02, - + 0.1633845D-01, 0.1612758D-02, 0.7363583D-02, - + 0.2729630D-01, 0.2673283D-02, 0.4990482D-02, - + 0.3021620D-01, 0.3016514D-02, 0.6686722D-02, - + 0.3960291D-01, 0.4006438D-02, 0.8192691D-02, - + 0.4330837D-01, 0.4407562D-02, 0.9141828D-02, - + 0.5558890D-01, 0.5734733D-02, 0.1224871D-01, - + 0.6780845D-01, 0.7051626D-02, 0.1528267D-01, - + 0.7996099D-01, 0.8357894D-02, 0.1824895D-01, - + 0.9204853D-01, 0.9654265D-02, 0.2115846D-01, - + 0.1040759D+00, 0.1094172D-01, 0.2396305D-01/ - DATA (SIG(43,K),QNS(43,K),GL(43,K), K=1,11) / - + 0.1394419D-01, 0.1168415D-02, 0.6553553D-02, - + 0.1569844D-01, 0.1565289D-02, 0.6407801D-02, - + 0.2631675D-01, 0.2583498D-02, 0.4332239D-02, - + 0.2900352D-01, 0.2903465D-02, 0.5778616D-02, - + 0.3814479D-01, 0.3869698D-02, 0.7148648D-02, - + 0.4171183D-01, 0.4257617D-02, 0.7984910D-02, - + 0.5354388D-01, 0.5542592D-02, 0.1072379D-01, - + 0.6532679D-01, 0.6818882D-02, 0.1339810D-01, - + 0.7705033D-01, 0.8085467D-02, 0.1600921D-01, - + 0.8871432D-01, 0.9342752D-02, 0.1856095D-01, - + 0.1003230D+00, 0.1059164D-01, 0.2102536D-01/ - DATA (SIG(44,K),QNS(44,K),GL(44,K), K=1,11) / - + 0.1340217D-01, 0.1138493D-02, 0.5753254D-02, - + 0.1513488D-01, 0.1522968D-02, 0.5582407D-02, - + 0.2543883D-01, 0.2499414D-02, 0.3769770D-02, - + 0.2791923D-01, 0.2799531D-02, 0.5002239D-02, - + 0.3684597D-01, 0.3744949D-02, 0.6253347D-02, - + 0.4029136D-01, 0.4121362D-02, 0.6992269D-02, - + 0.5172933D-01, 0.5369404D-02, 0.9413801D-02, - + 0.6312836D-01, 0.6609934D-02, 0.1177816D-01, - + 0.7447435D-01, 0.7841404D-02, 0.1408587D-01, - + 0.8576509D-01, 0.9063961D-02, 0.1634614D-01, - + 0.9700397D-01, 0.1027838D-01, 0.1857268D-01/ - DATA (SIG(45,K),QNS(45,K),GL(45,K), K=1,11) / - + 0.1292036D-01, 0.1111996D-02, 0.5053260D-02, - + 0.1464030D-01, 0.1485543D-02, 0.4867025D-02, - + 0.2465190D-01, 0.2420667D-02, 0.3287046D-02, - + 0.2694984D-01, 0.2704141D-02, 0.4335943D-02, - + 0.3569077D-01, 0.3631560D-02, 0.5481896D-02, - + 0.3902959D-01, 0.3998062D-02, 0.6136356D-02, - + 0.5012212D-01, 0.5214033D-02, 0.8282538D-02, - + 0.6118419D-01, 0.6423222D-02, 0.1037843D-01, - + 0.7219820D-01, 0.7623707D-02, 0.1242835D-01, - + 0.8316006D-01, 0.8815451D-02, 0.1446010D-01, - + 0.9407152D-01, 0.9998979D-02, 0.1650448D-01/ - DATA (SIG(46,K),QNS(46,K),GL(46,K), K=1,11) / - + 0.1249310D-01, 0.1088806D-02, 0.4439143D-02, - + 0.1420849D-01, 0.1452790D-02, 0.4244885D-02, - + 0.2395598D-01, 0.2350271D-02, 0.2871654D-02, - + 0.2608594D-01, 0.2617224D-02, 0.3761943D-02, - + 0.3466997D-01, 0.3530602D-02, 0.4814066D-02, - + 0.3791512D-01, 0.3888402D-02, 0.5394776D-02, - + 0.4870442D-01, 0.5076194D-02, 0.7300583D-02, - + 0.5947068D-01, 0.6257760D-02, 0.9161833D-02, - + 0.7019290D-01, 0.7430845D-02, 0.1098223D-01, - + 0.8086509D-01, 0.8595268D-02, 0.1278958D-01, - + 0.9148696D-01, 0.9751464D-02, 0.1461056D-01/ - DATA (SIG(47,K),QNS(47,K),GL(47,K), K=1,11) / - + 0.1211569D-01, 0.1068819D-02, 0.3899017D-02, - + 0.1383428D-01, 0.1424514D-02, 0.3702315D-02, - + 0.2334240D-01, 0.2286572D-02, 0.2513208D-02, - + 0.2531619D-01, 0.2537027D-02, 0.3265929D-02, - + 0.3377093D-01, 0.3440771D-02, 0.4233571D-02, - + 0.3693428D-01, 0.3791115D-02, 0.4749537D-02, - + 0.4745892D-01, 0.4954590D-02, 0.6444375D-02, - + 0.5796663D-01, 0.6112073D-02, 0.8099326D-02, - + 0.6843322D-01, 0.7261087D-02, 0.9712690D-02, - + 0.7885111D-01, 0.8401411D-02, 0.1129342D-01, - + 0.8921855D-01, 0.9533566D-02, 0.1285285D-01/ - DATA (SIG(48,K),QNS(48,K),GL(48,K), K=1,11) / - + 0.1178420D-01, 0.1051946D-02, 0.3422948D-02, - + 0.1351336D-01, 0.1400540D-02, 0.3227998D-02, - + 0.2279290D-01, 0.2222986D-02, 0.2202729D-02, - + 0.2462639D-01, 0.2459831D-02, 0.2836209D-02, - + 0.3297638D-01, 0.3358073D-02, 0.3727067D-02, - + 0.3606984D-01, 0.3702675D-02, 0.4185912D-02, - + 0.4636753D-01, 0.4846645D-02, 0.5694691D-02, - + 0.5665187D-01, 0.5983969D-02, 0.7168071D-02, - + 0.6689626D-01, 0.7112319D-02, 0.8603057D-02, - + 0.7709253D-01, 0.8231635D-02, 0.1000619D-01, - + 0.8723987D-01, 0.9342570D-02, 0.1139055D-01/ - DATA (SIG(49,K),QNS(49,K),GL(49,K), K=1,11) / - + 0.1149529D-01, 0.1038107D-02, 0.3002565D-02, - + 0.1324203D-01, 0.1380712D-02, 0.2812477D-02, - + 0.2231491D-01, 0.2166749D-02, 0.1933013D-02, - + 0.2402455D-01, 0.2392620D-02, 0.2463026D-02, - + 0.3228866D-01, 0.3287488D-02, 0.3283484D-02, - + 0.3532220D-01, 0.3627406D-02, 0.3691709D-02, - + 0.4542445D-01, 0.4754858D-02, 0.5035658D-02, - + 0.5551528D-01, 0.5874617D-02, 0.6348246D-02, - + 0.6556622D-01, 0.6984737D-02, 0.7625089D-02, - + 0.7556887D-01, 0.8085398D-02, 0.8868126D-02, - + 0.8552402D-01, 0.9177392D-02, 0.1007870D-01/ - DATA (SIG(50,K),QNS(50,K),GL(50,K), K=1,11) / - + 0.1124616D-01, 0.1027230D-02, 0.2630821D-02, - + 0.1301714D-01, 0.1364887D-02, 0.2447872D-02, - + 0.2192372D-01, 0.2129306D-02, 0.1698206D-02, - + 0.2352558D-01, 0.2345484D-02, 0.2138281D-02, - + 0.3171635D-01, 0.3236580D-02, 0.2893693D-02, - + 0.3469742D-01, 0.3571854D-02, 0.3256882D-02, - + 0.4462830D-01, 0.4683112D-02, 0.4454236D-02, - + 0.5454942D-01, 0.5786085D-02, 0.5623153D-02, - + 0.6443056D-01, 0.6879143D-02, 0.6749026D-02, - + 0.7426261D-01, 0.7962607D-02, 0.7789787D-02, - + 0.8404548D-01, 0.9037441D-02, 0.8669741D-02/ - DATA (SIG(51,K),QNS(51,K),GL(51,K), K=1,11) / - + 0.1103438D-01, 0.1019251D-02, 0.2301676D-02, - + 0.1283600D-01, 0.1352933D-02, 0.2127479D-02, - + 0.2160814D-01, 0.2106366D-02, 0.1492965D-02, - + 0.2311523D-01, 0.2312986D-02, 0.1855069D-02, - + 0.3124109D-01, 0.3199316D-02, 0.2550045D-02, - + 0.3417664D-01, 0.3530047D-02, 0.2873027D-02, - + 0.4395954D-01, 0.4626038D-02, 0.3939551D-02, - + 0.5373416D-01, 0.5713649D-02, 0.4981035D-02, - + 0.6346823D-01, 0.6791305D-02, 0.5982809D-02, - + 0.7315179D-01, 0.7859351D-02, 0.6904523D-02, - + 0.8278356D-01, 0.8918864D-02, 0.7675607D-02/ - DATA (SIG(52,K),QNS(52,K),GL(52,K), K=1,11) / - + 0.1085790D-01, 0.1014114D-02, 0.2009990D-02, - + 0.1269625D-01, 0.1344732D-02, 0.1845652D-02, - + 0.2135426D-01, 0.2092798D-02, 0.1313058D-02, - + 0.2277900D-01, 0.2289594D-02, 0.1607648D-02, - + 0.3084644D-01, 0.3170330D-02, 0.2246213D-02, - + 0.3374336D-01, 0.3496817D-02, 0.2533189D-02, - + 0.4340158D-01, 0.4579202D-02, 0.3482587D-02, - + 0.5305233D-01, 0.5653470D-02, 0.4411415D-02, - + 0.6266104D-01, 0.6717785D-02, 0.5321811D-02, - + 0.7221726D-01, 0.7772419D-02, 0.6251061D-02, - + 0.8171982D-01, 0.8818458D-02, 0.7268327D-02/ - DATA (SIG(53,K),QNS(53,K),GL(53,K), K=1,11) / - + 0.1071493D-01, 0.1011762D-02, 0.1751324D-02, - + 0.1259582D-01, 0.1340170D-02, 0.1597551D-02, - + 0.2114501D-01, 0.2083862D-02, 0.1155694D-02, - + 0.2250576D-01, 0.2272187D-02, 0.1391240D-02, - + 0.3052386D-01, 0.3148043D-02, 0.1976923D-02, - + 0.3338967D-01, 0.3470956D-02, 0.2231526D-02, - + 0.4294638D-01, 0.4541916D-02, 0.3075710D-02, - + 0.5249434D-01, 0.5604904D-02, 0.3902668D-02, - + 0.6199733D-01, 0.6657812D-02, 0.4720710D-02, - + 0.7144511D-01, 0.7700821D-02, 0.5597501D-02, - + 0.8083810D-01, 0.8734850D-02, 0.6664278D-02/ - DATA (SIG(54,K),QNS(54,K),GL(54,K), K=1,11) / - + 0.1060391D-01, 0.1012148D-02, 0.1521852D-02, - + 0.1253289D-01, 0.1339142D-02, 0.1379041D-02, - + 0.2097213D-01, 0.2077262D-02, 0.1017767D-02, - + 0.2228926D-01, 0.2259164D-02, 0.1201775D-02, - + 0.3026715D-01, 0.3131450D-02, 0.1737664D-02, - + 0.3310928D-01, 0.3451602D-02, 0.1963099D-02, - + 0.4258645D-01, 0.4513489D-02, 0.2712520D-02, - + 0.5205093D-01, 0.5567199D-02, 0.3446609D-02, - + 0.6146586D-01, 0.6610495D-02, 0.4164984D-02, - + 0.7082175D-01, 0.7643513D-02, 0.4898620D-02, - + 0.8012108D-01, 0.8666980D-02, 0.5723075D-02/ - DATA (SIG(55,K),QNS(55,K),GL(55,K), K=1,11) / - + 0.1052348D-01, 0.1015224D-02, 0.1318255D-02, - + 0.1250582D-01, 0.1341546D-02, 0.1186564D-02, - + 0.2083739D-01, 0.2073792D-02, 0.8957586D-03, - + 0.2212933D-01, 0.2251047D-02, 0.1035754D-02, - + 0.3007323D-01, 0.3120552D-02, 0.1524534D-02, - + 0.3289816D-01, 0.3438624D-02, 0.1723670D-02, - + 0.4231527D-01, 0.4493469D-02, 0.2387608D-02, - + 0.5171338D-01, 0.5539663D-02, 0.3038195D-02, - + 0.6105570D-01, 0.6574927D-02, 0.3670457D-02, - + 0.7033358D-01, 0.7599475D-02, 0.4294804D-02, - + 0.7954992D-01, 0.8614127D-02, 0.4944872D-02/ - DATA (SIG(56,K),QNS(56,K),GL(56,K), K=1,11) / - + 0.1047244D-01, 0.1020945D-02, 0.1137636D-02, - + 0.1251313D-01, 0.1347287D-02, 0.1017041D-02, - + 0.2073806D-01, 0.2073273D-02, 0.7876636D-03, - + 0.2202273D-01, 0.2247680D-02, 0.8901817D-03, - + 0.2993745D-01, 0.3114997D-02, 0.1334295D-02, - + 0.3275122D-01, 0.3431630D-02, 0.1509675D-02, - + 0.4212620D-01, 0.4481306D-02, 0.2096351D-02, - + 0.5147332D-01, 0.5521568D-02, 0.2671800D-02, - + 0.6075664D-01, 0.6550191D-02, 0.3231094D-02, - + 0.6996872D-01, 0.7567561D-02, 0.3784007D-02, - + 0.7911229D-01, 0.8574781D-02, 0.4352146D-02/ - DATA (SIG(57,K),QNS(57,K),GL(57,K), K=1,11) / - + 0.1044972D-01, 0.1029268D-02, 0.9774779D-03, - + 0.1255350D-01, 0.1356273D-02, 0.8678135D-03, - + 0.2066992D-01, 0.2075333D-02, 0.6921957D-03, - + 0.2196562D-01, 0.2248788D-02, 0.7624932D-03, - + 0.2985471D-01, 0.3114351D-02, 0.1164232D-02, - + 0.3266315D-01, 0.3430154D-02, 0.1318104D-02, - + 0.4201273D-01, 0.4476414D-02, 0.1834815D-02, - + 0.5132261D-01, 0.5512165D-02, 0.2342132D-02, - + 0.6055876D-01, 0.6535352D-02, 0.2834267D-02, - + 0.6971592D-01, 0.7546567D-02, 0.3317937D-02, - + 0.7879832D-01, 0.8547100D-02, 0.3811467D-02/ - DATA (SIG(58,K),QNS(58,K),GL(58,K), K=1,11) / - + 0.1045435D-01, 0.1040151D-02, 0.8355650D-03, - + 0.1262569D-01, 0.1368412D-02, 0.7365616D-03, - + 0.2063083D-01, 0.2079191D-02, 0.6075426D-03, - + 0.2195770D-01, 0.2254233D-02, 0.6504640D-03, - + 0.2982169D-01, 0.3118137D-02, 0.1011948D-02, - + 0.3263010D-01, 0.3433727D-02, 0.1146336D-02, - + 0.4196920D-01, 0.4478232D-02, 0.1599617D-02, - + 0.5125362D-01, 0.5510739D-02, 0.2045118D-02, - + 0.6045238D-01, 0.6529504D-02, 0.2475939D-02, - + 0.6956314D-01, 0.7535433D-02, 0.2893872D-02, - + 0.7859266D-01, 0.8530091D-02, 0.3307776D-02/ - DATA (SIG(59,K),QNS(59,K),GL(59,K), K=1,11) / - + 0.1048546D-01, 0.1053547D-02, 0.7099625D-03, - + 0.1272853D-01, 0.1383614D-02, 0.6212702D-03, - + 0.2061648D-01, 0.2084243D-02, 0.5321479D-03, - + 0.2199796D-01, 0.2263852D-02, 0.5521804D-03, - + 0.2983434D-01, 0.3125919D-02, 0.8753955D-03, - + 0.3264772D-01, 0.3441904D-02, 0.9921320D-03, - + 0.4198977D-01, 0.4486207D-02, 0.1387869D-02, - + 0.5125865D-01, 0.5516554D-02, 0.1777270D-02, - + 0.6042770D-01, 0.6531715D-02, 0.2152616D-02, - + 0.6949834D-01, 0.7533032D-02, 0.2510341D-02, - + 0.7848012D-01, 0.8522533D-02, 0.2839263D-02/ - DATA (SIG(60,K),QNS(60,K),GL(60,K), K=1,11) / - + 0.1054222D-01, 0.1069414D-02, 0.5989679D-03, - + 0.1286095D-01, 0.1401790D-02, 0.5201774D-03, - + 0.2061806D-01, 0.2090398D-02, 0.4647142D-03, - + 0.2208311D-01, 0.2277419D-02, 0.4659813D-03, - + 0.2988675D-01, 0.3137368D-02, 0.7528104D-03, - + 0.3271026D-01, 0.3454307D-02, 0.8535673D-03, - + 0.4206795D-01, 0.4499787D-02, 0.1197085D-02, - + 0.5132957D-01, 0.5528862D-02, 0.1535666D-02, - + 0.6047457D-01, 0.6541002D-02, 0.1862927D-02, - + 0.6950893D-01, 0.7538092D-02, 0.2181331D-02, - + 0.7844487D-01, 0.8522594D-02, 0.2492964D-02/ - DATA (SIG(61,K),QNS(61,K),GL(61,K), K=1,11) / - + 0.1062383D-01, 0.1087704D-02, 0.5010861D-03, - + 0.1302189D-01, 0.1422854D-02, 0.4317422D-03, - + 0.2062839D-01, 0.2097339D-02, 0.4042136D-03, - + 0.2221038D-01, 0.2294751D-02, 0.3904274D-03, - + 0.2997359D-01, 0.3152120D-02, 0.6426976D-03, - + 0.3281234D-01, 0.3470540D-02, 0.7289981D-03, - + 0.4219737D-01, 0.4518421D-02, 0.1025129D-02, - + 0.5145813D-01, 0.5546887D-02, 0.1317569D-02, - + 0.6058253D-01, 0.6556350D-02, 0.1601980D-02, - + 0.6958259D-01, 0.7549350D-02, 0.1890736D-02, - + 0.7847460D-01, 0.8528807D-02, 0.2213008D-02/ - DATA (SIG(62,K),QNS(62,K),GL(62,K), K=1,11) / - + 0.1072952D-01, 0.1108364D-02, 0.4150045D-03, - + 0.1321034D-01, 0.1446714D-02, 0.3546149D-03, - + 0.2064111D-01, 0.2104503D-02, 0.3498957D-03, - + 0.2237696D-01, 0.2315665D-02, 0.3242668D-03, - + 0.3008952D-01, 0.3169750D-02, 0.5437976D-03, - + 0.3294856D-01, 0.3490167D-02, 0.6170291D-03, - + 0.4237143D-01, 0.4541521D-02, 0.8701613D-03, - + 0.5163567D-01, 0.5569811D-02, 0.1120311D-02, - + 0.6074059D-01, 0.6576678D-02, 0.1360293D-02, - + 0.6970704D-01, 0.7565557D-02, 0.1584552D-02, - + 0.7856282D-01, 0.8540347D-02, 0.1764050D-02/ - DATA (SIG(63,K),QNS(63,K),GL(63,K), K=1,11) / - + 0.1085850D-01, 0.1131334D-02, 0.3395707D-03, - + 0.1342532D-01, 0.1473281D-02, 0.2876105D-03, - + 0.2065245D-01, 0.2110415D-02, 0.3007357D-03, - + 0.2258702D-01, 0.2340195D-02, 0.2664124D-03, - + 0.3023235D-01, 0.3189620D-02, 0.4549792D-03, - + 0.3311621D-01, 0.3512596D-02, 0.5164340D-03, - + 0.4258475D-01, 0.4568415D-02, 0.7306088D-03, - + 0.5185369D-01, 0.5596713D-02, 0.9425278D-03, - + 0.6093653D-01, 0.6600713D-02, 0.1145295D-02, - + 0.6986260D-01, 0.7584754D-02, 0.1334739D-02, - + 0.7866288D-01, 0.8552918D-02, 0.1494378D-02/ - DATA (SIG(64,K),QNS(64,K),GL(64,K), K=1,11) / - + 0.1095056D-01, 0.1146833D-02, 0.2973791D-03, - + 0.1357274D-01, 0.1491220D-02, 0.2504063D-03, - + 0.2065445D-01, 0.2112884D-02, 0.2723036D-03, - + 0.2274003D-01, 0.2357246D-02, 0.2340431D-03, - + 0.3033250D-01, 0.3202872D-02, 0.4041655D-03, - + 0.3323418D-01, 0.3527750D-02, 0.4588746D-03, - + 0.4273469D-01, 0.4586816D-02, 0.6506095D-03, - + 0.5200596D-01, 0.5615090D-02, 0.8405470D-03, - + 0.6107217D-01, 0.6617008D-02, 0.1023416D-02, - + 0.6996785D-01, 0.7597519D-02, 0.1204404D-02, - + 0.7872140D-01, 0.8560537D-02, 0.1404463D-02/ - DATA (SIG(65,K),QNS(65,K),GL(65,K), K=1,11) / - + 0.1105116D-01, 0.1163187D-02, 0.2587327D-03, - + 0.1372991D-01, 0.1510159D-02, 0.2165202D-03, - + 0.2064613D-01, 0.2114270D-02, 0.2456066D-03, - + 0.2290573D-01, 0.2375356D-02, 0.2043327D-03, - + 0.3043651D-01, 0.3216581D-02, 0.3567473D-03, - + 0.3335829D-01, 0.3543591D-02, 0.4051492D-03, - + 0.4289395D-01, 0.4606211D-02, 0.5758095D-03, - + 0.5216669D-01, 0.5634336D-02, 0.7446848D-03, - + 0.6121353D-01, 0.6633858D-02, 0.9025874D-03, - + 0.7007667D-01, 0.7610632D-02, 0.1030998D-02, - + 0.7878929D-01, 0.8569376D-02, 0.1077537D-02/ - DATA (SIG(66,K),QNS(66,K),GL(66,K), K=1,11) / - + 0.1116004D-01, 0.1180374D-02, 0.2234305D-03, - + 0.1389661D-01, 0.1530078D-02, 0.1857416D-03, - + 0.2063697D-01, 0.2115628D-02, 0.2203036D-03, - + 0.2308712D-01, 0.2394960D-02, 0.1771058D-03, - + 0.3054759D-01, 0.3230993D-02, 0.3125297D-03, - + 0.3349073D-01, 0.3560260D-02, 0.3550529D-03, - + 0.4306231D-01, 0.4626511D-02, 0.5059651D-03, - + 0.5233388D-01, 0.5654200D-02, 0.6558619D-03, - + 0.6135705D-01, 0.6650822D-02, 0.8028907D-03, - + 0.7018390D-01, 0.7623096D-02, 0.9665798D-03, - + 0.7885914D-01, 0.8575979D-02, 0.1203969D-02/ - DATA (SIG(67,K),QNS(67,K),GL(67,K), K=1,11) / - + 0.1127693D-01, 0.1198365D-02, 0.1912908D-03, - + 0.1407266D-01, 0.1550955D-02, 0.1578765D-03, - + 0.2060949D-01, 0.2113887D-02, 0.1964569D-03, - + 0.2328407D-01, 0.2415770D-02, 0.1521849D-03, - + 0.3066088D-01, 0.3245210D-02, 0.2713597D-03, - + 0.3362771D-01, 0.3577086D-02, 0.3084104D-03, - + 0.4323691D-01, 0.4647330D-02, 0.4408168D-03, - + 0.5250398D-01, 0.5674290D-02, 0.5721364D-03, - + 0.6149764D-01, 0.6667425D-02, 0.6972495D-03, - + 0.7027970D-01, 0.7634560D-02, 0.8160472D-03, - + 0.7890062D-01, 0.8581299D-02, 0.9290159D-03/ - DATA (SIG(68,K),QNS(68,K),GL(68,K), K=1,11) / - + 0.1140147D-01, 0.1217128D-02, 0.1621482D-03, - + 0.1425784D-01, 0.1572775D-02, 0.1327457D-03, - + 0.2055878D-01, 0.2109888D-02, 0.1737863D-03, - + 0.2349476D-01, 0.2437721D-02, 0.1294131D-03, - + 0.3077430D-01, 0.3259460D-02, 0.2330962D-03, - + 0.3376728D-01, 0.3594203D-02, 0.2650687D-03, - + 0.4341532D-01, 0.4668562D-02, 0.3801743D-03, - + 0.5267327D-01, 0.5694284D-02, 0.4942894D-03, - + 0.6162996D-01, 0.6683147D-02, 0.6019176D-03, - + 0.7035687D-01, 0.7644281D-02, 0.6974530D-03, - + 0.7890423D-01, 0.8584311D-02, 0.7580469D-03/ - DATA (SIG(69,K),QNS(69,K),GL(69,K), K=1,11) / - + 0.1153327D-01, 0.1236620D-02, 0.1358542D-03, - + 0.1445202D-01, 0.1595521D-02, 0.1101834D-03, - + 0.2048052D-01, 0.2104457D-02, 0.1524725D-03, - + 0.2372376D-01, 0.2461083D-02, 0.1086476D-03, - + 0.3088459D-01, 0.3273838D-02, 0.1976499D-03, - + 0.3390647D-01, 0.3611625D-02, 0.2249100D-03, - + 0.4359434D-01, 0.4690013D-02, 0.3238549D-03, - + 0.5283727D-01, 0.5713785D-02, 0.4220202D-03, - + 0.6174823D-01, 0.6697353D-02, 0.5158874D-03, - + 0.7041217D-01, 0.7651341D-02, 0.6098137D-03, - + 0.7888968D-01, 0.8583534D-02, 0.7180615D-03/ - DATA (SIG(70,K),QNS(70,K),GL(70,K), K=1,11) / - + 0.1167183D-01, 0.1256790D-02, 0.1122758D-03, - + 0.1465510D-01, 0.1619189D-02, 0.9003570D-04, - + 0.2037853D-01, 0.2094017D-02, 0.1321030D-03, - + 0.2396785D-01, 0.2485650D-02, 0.8975944D-04, - + 0.3099402D-01, 0.3287437D-02, 0.1648836D-03, - + 0.3404687D-01, 0.3628694D-02, 0.1877990D-03, - + 0.4377300D-01, 0.4711264D-02, 0.2716916D-03, - + 0.5299219D-01, 0.5732249D-02, 0.3548223D-03, - + 0.6184544D-01, 0.6709254D-02, 0.4334635D-03, - + 0.7043227D-01, 0.7654560D-02, 0.5080978D-03, - + 0.7882120D-01, 0.8576844D-02, 0.5797531D-03/ - DATA (SIG(71,K),QNS(71,K),GL(71,K), K=1,11) / - + 0.1181647D-01, 0.1277565D-02, 0.9129428D-04, - + 0.1486710D-01, 0.1643782D-02, 0.7215919D-04, - + 0.2022955D-01, 0.2077429D-02, 0.1127025D-03, - + 0.2423278D-01, 0.2511646D-02, 0.7263067D-04, - + 0.3109528D-01, 0.3300031D-02, 0.1347201D-03, - + 0.3418277D-01, 0.3645241D-02, 0.1536427D-03, - + 0.4394674D-01, 0.4732059D-02, 0.2235573D-03, - + 0.5313173D-01, 0.5749129D-02, 0.2930308D-03, - + 0.6191258D-01, 0.6717955D-02, 0.3626658D-03, - + 0.7040595D-01, 0.7652672D-02, 0.4535676D-03, - + 0.7868964D-01, 0.8562632D-02, 0.6247552D-03/ - DATA (SIG(72,K),QNS(72,K),GL(72,K), K=1,11) / - + 0.1196628D-01, 0.1298846D-02, 0.7280353D-04, - + 0.1508822D-01, 0.1669327D-02, 0.5641824D-04, - + 0.2002976D-01, 0.2055872D-02, 0.9438530D-04, - + 0.2451781D-01, 0.2539266D-02, 0.5715600D-04, - + 0.3118934D-01, 0.3311992D-02, 0.1071288D-03, - + 0.3431502D-01, 0.3661525D-02, 0.1223854D-03, - + 0.4411383D-01, 0.4752254D-02, 0.1793328D-03, - + 0.5325008D-01, 0.5763819D-02, 0.2355838D-03, - + 0.6193935D-01, 0.6722374D-02, 0.2884691D-03, - + 0.7031817D-01, 0.7644304D-02, 0.3390711D-03, - + 0.7847476D-01, 0.8540155D-02, 0.3905845D-03/ - DATA (SIG(73,K),QNS(73,K),GL(73,K), K=1,11) / - + 0.1211980D-01, 0.1320475D-02, 0.5670526D-04, - + 0.1531890D-01, 0.1695875D-02, 0.4268258D-04, - + 0.1975773D-01, 0.2025696D-02, 0.7695441D-04, - + 0.2482848D-01, 0.2568552D-02, 0.4324056D-04, - + 0.3127177D-01, 0.3322650D-02, 0.8205078D-04, - + 0.3444048D-01, 0.3677119D-02, 0.9396410D-04, - + 0.4427030D-01, 0.4771465D-02, 0.1389470D-03, - + 0.5333876D-01, 0.5775471D-02, 0.1832372D-03, - + 0.6191156D-01, 0.6721027D-02, 0.2243437D-03, - + 0.7014885D-01, 0.7627193D-02, 0.2616205D-03, - + 0.7815062D-01, 0.8505841D-02, 0.2933832D-03/ - DATA (SIG(74,K),QNS(74,K),GL(74,K), K=1,11) / - + 0.1227299D-01, 0.1342003D-02, 0.4289990D-04, - + 0.1555954D-01, 0.1723476D-02, 0.3082279D-04, - + 0.1936295D-01, 0.1984274D-02, 0.6042343D-04, - + 0.2516971D-01, 0.2600582D-02, 0.3080060D-04, - + 0.3133393D-01, 0.3332148D-02, 0.5947800D-04, - + 0.3455411D-01, 0.3692320D-02, 0.6835598D-04, - + 0.4441201D-01, 0.4789662D-02, 0.1023489D-03, - + 0.5338756D-01, 0.5783205D-02, 0.1357253D-03, - + 0.6181091D-01, 0.6712049D-02, 0.1667890D-03, - + 0.6987172D-01, 0.7598458D-02, 0.1963376D-03, - + 0.7768720D-01, 0.8455781D-02, 0.2259275D-03/ - DATA (SIG(75,K),QNS(75,K),GL(75,K), K=1,11) / - + 0.1243137D-01, 0.1364048D-02, 0.3129244D-04, - + 0.1581572D-01, 0.1752757D-02, 0.2070323D-04, - + 0.1884552D-01, 0.1926498D-02, 0.4480547D-04, - + 0.2556812D-01, 0.2637158D-02, 0.1975675D-04, - + 0.3139065D-01, 0.3340494D-02, 0.3942602D-04, - + 0.3466979D-01, 0.3707470D-02, 0.4556351D-04, - + 0.4454300D-01, 0.4806847D-02, 0.6952895D-04, - + 0.5338652D-01, 0.5785771D-02, 0.9298713D-04, - + 0.6161238D-01, 0.6692699D-02, 0.1147661D-03, - + 0.6944466D-01, 0.7553868D-02, 0.1360036D-03, - + 0.7701357D-01, 0.8384460D-02, 0.1596615D-03/ - DATA (SIG(76,K),QNS(76,K),GL(76,K), K=1,11) / - + 0.1252328D-01, 0.1378649D-02, 0.2163190D-04, - + 0.1604865D-01, 0.1779411D-02, 0.1214199D-04, - + 0.1804958D-01, 0.1839043D-02, 0.3014681D-04, - + 0.2602381D-01, 0.2677629D-02, 0.1004265D-04, - + 0.3142022D-01, 0.3346852D-02, 0.2195819D-04, - + 0.3477752D-01, 0.3722718D-02, 0.2563694D-04, - + 0.4465882D-01, 0.4823221D-02, 0.4054423D-04, - + 0.5331569D-01, 0.5781421D-02, 0.5514060D-04, - + 0.6127490D-01, 0.6658731D-02, 0.6863506D-04, - + 0.6880718D-01, 0.7486566D-02, 0.8193828D-04, - + 0.7606576D-01, 0.8282335D-02, 0.9740668D-04/ - DATA (SIG(77,K),QNS(77,K),GL(77,K), K=1,11) / - + 0.1234791D-01, 0.1363494D-02, 0.1348928D-04, - + 0.1622263D-01, 0.1799507D-02, 0.4961565D-05, - + 0.1676115D-01, 0.1697429D-02, 0.1666435D-04, - + 0.2661140D-01, 0.2728740D-02, 0.1627666D-05, - + 0.3146012D-01, 0.3355362D-02, 0.7215678D-05, - + 0.3492982D-01, 0.3743962D-02, 0.8694667D-05, - + 0.4480030D-01, 0.4843537D-02, 0.1554571D-04, - + 0.5317078D-01, 0.5769960D-02, 0.2244054D-04, - + 0.6074226D-01, 0.6604301D-02, 0.2880538D-04, - + 0.6784808D-01, 0.7385162D-02, 0.3495122D-04, - + 0.7466155D-01, 0.8132980D-02, 0.4120636D-04/ - DATA (SIG(78,K),QNS(78,K),GL(78,K), K=1,11) / - + 0.1211214D-01, 0.1341571D-02, 0.4373675D-05, - + 0.1661582D-01, 0.1843998D-02, 0.0000000D+00, - + 0.1456251D-01, 0.1453943D-02, 0.4857473D-05, - + 0.2778169D-01, 0.2834638D-02, 0.0000000D+00, - + 0.3179171D-01, 0.3398332D-02, 0.0000000D+00, - + 0.3543129D-01, 0.3806159D-02, 0.0000000D+00, - + 0.4519056D-01, 0.4893611D-02, 0.0000000D+00, - + 0.5302338D-01, 0.5760278D-02, 0.0000000D+00, - + 0.5993193D-01, 0.6521104D-02, 0.0000000D+00, - + 0.6634341D-01, 0.7225065D-02, 0.0000000D+00, - + 0.7246398D-01, 0.7895784D-02, 0.1451897D-05/ -****************************************************************** - U = ZEROD - D = ZEROD - S = ZEROD - C = ZEROD - B = ZEROD - G = ZEROD -*if x is out of range - IF((X.LT.5.0D-4).OR.(X.GT.0.95D0)) GOTO 90 -******************************************************************* - IF (ICALL.NE.1) THEN -* get the x coordinates - CALL GSXCOR(Y,NP) - ICALL=1 - END IF -* - DO 30 IX=1,NP - A(IX)=Y(IX) - 30 CONTINUE - DO 40 IQ=1,NQ - A(NP+IQ)=QT(IQ) - 40 CONTINUE -* - Q2 = Q*Q - NA(1)=NP - NA(2)=NQ - XT(1)=X - XT(2)=Q2 - XSIG=DBFINT(2,XT,NA,A,SIG) - XQNS=DBFINT(2,XT,NA,A,QNS) - G =DBFINT(2,XT,NA,A,GL) -* - IF (Q2.LT.50.0D0) THEN -C Use three flavour evolution. - U=(XSIG+9.0D0*XQNS)/6.0D0 - D=(XSIG-4.5D0*XQNS)/6.0D0 - S=D - C=ZEROD - B=ZEROD -* - ELSE IF((Q2.GT.50.0D0).AND.(Q2.LT.250.0D0)) THEN -C Use four flavour evolution - U=(XSIG+6.0D0*XQNS)/8.0D0 - D=(XSIG-6.0D0*XQNS)/8.0D0 - S=D - C=U - B=ZEROD - ELSE -C Use five flavour evolution - U=(XSIG+7.5D0*XQNS)/10.0D0 - D=(XSIG-5.0D0*XQNS)/10.0D0 - S=D - C=U - B=D - ENDIF - U=X*U - US=U - D=X*D - DS=D - S=X*S - C=X*C - B=X*B - G=X*G - 90 RETURN - END diff --git a/PDF/spdf/sfgslo1.F b/PDF/spdf/sfgslo1.F deleted file mode 100644 index 95fd6140e38..00000000000 --- a/PDF/spdf/sfgslo1.F +++ /dev/null @@ -1,1039 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:51 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:36 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFGSLO1(X,Q,U,D,US,DS,S,C,B,G) - -***************************************************************** -* Subroutine returns the parton distributions in the photon in * -* leading order. u,d etc. gives * -* x times the distributions; Q2 means Q 2. The distributions* -* are valid for 5.0e -4< x < 1.0 and 5.3 GeV 2 < Q 2 < 1.0e 8. * -* if higher Q 2 or lower x is required, these may be obtained * -* from the authors on request. ISET=1 chooses a harder gluon * -* distribution. * -* Lionel Gordon July 1991 : Gordon@uk.ac.man.ph.v2 * -***************************************************************** -C -#include "pdf/impdp.inc" - PARAMETER(NP=78,NQ=11,NARG=2) -#include "pdf/expdp.inc" - + DBFINT, - + SIG(NP,NQ),QNS(NP,NQ),GL(NP,NQ),Y(NP), - + XT(NARG),A(NP+NQ),QT(NQ) - DIMENSION NA(NARG) - EXTERNAL GSXCOR - SAVE SIG,QNS,GL,Y,ICALL - DATA QT /5.3D0,20.0D0,50.0D0,1.0D2,5.0D2,1.0D3,1.0D4,1.0D5, - * 1.0D6,1.0D7,1.0D8/ - DATA ZEROD/0.D0/ - DATA ICALL/0/ - DATA (SIG(1 ,K),QNS(1 ,K),GL(1 ,K), K=1,11) / - + 0.9811474D+01, 0.1864514D-01, 0.2545083D+02, - + 0.1342878D+02, 0.2346805D-01, 0.9675292D+02, - + 0.1871367D+02, 0.3348569D-01, 0.1647521D+03, - + 0.2475213D+02, 0.3649892D-01, 0.2225751D+03, - + 0.4415395D+02, 0.4732645D-01, 0.3758252D+03, - + 0.5349644D+02, 0.5161918D-01, 0.4462931D+03, - + 0.8856512D+02, 0.6620172D-01, 0.6947289D+03, - + 0.1282624D+03, 0.8118179D-01, 0.9577845D+03, - + 0.1712023D+03, 0.9646955D-01, 0.1229658D+04, - + 0.2165017D+03, 0.1120038D+00, 0.1507126D+04, - + 0.2635741D+03, 0.1277408D+00, 0.1788290D+04/ - DATA (SIG(2 ,K),QNS(2 ,K),GL(2 ,K), K=1,11) / - + 0.3340865D+01, 0.1254764D-01, 0.8458172D+01, - + 0.4615365D+01, 0.1593154D-01, 0.2534847D+02, - + 0.6407919D+01, 0.2383214D-01, 0.3975948D+02, - + 0.8345271D+01, 0.2587110D-01, 0.5118792D+02, - + 0.1426236D+02, 0.3378655D-01, 0.7934057D+02, - + 0.1698355D+02, 0.3685939D-01, 0.9159314D+02, - + 0.2676101D+02, 0.4725523D-01, 0.1325592D+03, - + 0.3728618D+02, 0.5787674D-01, 0.1734413D+03, - + 0.4825718D+02, 0.6866755D-01, 0.2140051D+03, - + 0.5950685D+02, 0.7959052D-01, 0.2542146D+03, - + 0.7093750D+02, 0.9061975D-01, 0.2940978D+03/ - DATA (SIG(3 ,K),QNS(3 ,K),GL(3 ,K), K=1,11) / - + 0.2034510D+01, 0.1057583D-01, 0.5059672D+01, - + 0.2788372D+01, 0.1348177D-01, 0.1356121D+02, - + 0.3818232D+01, 0.2056081D-01, 0.2047473D+02, - + 0.4886212D+01, 0.2227210D-01, 0.2579153D+02, - + 0.8061907D+01, 0.2914690D-01, 0.3849590D+02, - + 0.9487711D+01, 0.3178981D-01, 0.4390494D+02, - + 0.1450119D+02, 0.4071058D-01, 0.6163788D+02, - + 0.1976989D+02, 0.4979865D-01, 0.7897868D+02, - + 0.2517030D+02, 0.5901041D-01, 0.9597537D+02, - + 0.3064047D+02, 0.6831757D-01, 0.1126978D+03, - + 0.3614773D+02, 0.7770066D-01, 0.1292082D+03/ - DATA (SIG(4 ,K),QNS(4 ,K),GL(4 ,K), K=1,11) / - + 0.1470873D+01, 0.9489893D-02, 0.3603193D+01, - + 0.1996594D+01, 0.1212548D-01, 0.8973600D+01, - + 0.2701098D+01, 0.1870426D-01, 0.1321112D+02, - + 0.3407142D+01, 0.2023077D-01, 0.1640650D+02, - + 0.5469768D+01, 0.2649866D-01, 0.2389886D+02, - + 0.6380776D+01, 0.2889295D-01, 0.2704700D+02, - + 0.9538903D+01, 0.3696154D-01, 0.3725226D+02, - + 0.1280682D+02, 0.4516515D-01, 0.4712321D+02, - + 0.1612162D+02, 0.5346760D-01, 0.5674164D+02, - + 0.1945463D+02, 0.6184567D-01, 0.6617581D+02, - + 0.2279240D+02, 0.7028355D-01, 0.7547659D+02/ - DATA (SIG(5 ,K),QNS(5 ,K),GL(5 ,K), K=1,11) / - + 0.1155962D+01, 0.8769721D-02, 0.2794055D+01, - + 0.1555081D+01, 0.1122175D-01, 0.6586598D+01, - + 0.2083039D+01, 0.1744450D-01, 0.9514421D+01, - + 0.2596578D+01, 0.1884628D-01, 0.1169037D+02, - + 0.4077581D+01, 0.2469463D-01, 0.1672371D+02, - + 0.4723573D+01, 0.2691814D-01, 0.1881923D+02, - + 0.6939601D+01, 0.3440195D-01, 0.2556127D+02, - + 0.9207032D+01, 0.4199949D-01, 0.3203772D+02, - + 0.1149009D+02, 0.4967968D-01, 0.3832801D+02, - + 0.1377416D+02, 0.5742272D-01, 0.4448952D+02, - + 0.1605343D+02, 0.6521522D-01, 0.5056183D+02/ - DATA (SIG(6 ,K),QNS(6 ,K),GL(6 ,K), K=1,11) / - + 0.9545560D+00, 0.8243679D-02, 0.2279163D+01, - + 0.1273810D+01, 0.1055868D-01, 0.5141778D+01, - + 0.1692448D+01, 0.1650667D-01, 0.7314287D+01, - + 0.2088771D+01, 0.1781595D-01, 0.8910377D+01, - + 0.3220486D+01, 0.2334759D-01, 0.1256385D+02, - + 0.3709136D+01, 0.2544282D-01, 0.1407441D+02, - + 0.5371622D+01, 0.3248779D-01, 0.1890806D+02, - + 0.7057906D+01, 0.3963112D-01, 0.2352976D+02, - + 0.8746382D+01, 0.4684550D-01, 0.2801030D+02, - + 0.1042938D+02, 0.5411365D-01, 0.3239702D+02, - + 0.1210461D+02, 0.6142394D-01, 0.3672108D+02/ - DATA (SIG(7 ,K),QNS(7 ,K),GL(7 ,K), K=1,11) / - + 0.8144777D+00, 0.7835363D-02, 0.1922711D+01, - + 0.1079065D+01, 0.1004205D-01, 0.4181421D+01, - + 0.1424030D+01, 0.1576720D-01, 0.5871822D+01, - + 0.1742533D+01, 0.1700388D-01, 0.7101886D+01, - + 0.2644899D+01, 0.2228313D-01, 0.9893680D+01, - + 0.3031201D+01, 0.2427658D-01, 0.1104170D+02, - + 0.4336613D+01, 0.3097363D-01, 0.1470028D+02, - + 0.5651427D+01, 0.3775726D-01, 0.1818711D+02, - + 0.6962189D+01, 0.4460313D-01, 0.2156402D+02, - + 0.8265006D+01, 0.5149590D-01, 0.2487031D+02, - + 0.9559405D+01, 0.5842533D-01, 0.2813094D+02/ - DATA (SIG(8 ,K),QNS(8 ,K),GL(8 ,K), K=1,11) / - + 0.7113130D+00, 0.7505120D-02, 0.1661322D+01, - + 0.9362982D+00, 0.9622823D-02, 0.3500973D+01, - + 0.1228600D+01, 0.1516108D-01, 0.4861612D+01, - + 0.1492201D+01, 0.1633848D-01, 0.5843631D+01, - + 0.2234300D+01, 0.2140911D-01, 0.8056692D+01, - + 0.2549644D+01, 0.2331871D-01, 0.8962737D+01, - + 0.3609223D+01, 0.2972941D-01, 0.1184104D+02, - + 0.4670222D+01, 0.3621733D-01, 0.1457797D+02, - + 0.5724207D+01, 0.4276049D-01, 0.1722742D+02, - + 0.6769478D+01, 0.4934516D-01, 0.1982232D+02, - + 0.7806528D+01, 0.5596216D-01, 0.2238305D+02/ - DATA (SIG(9 ,K),QNS(9 ,K),GL(9 ,K), K=1,11) / - + 0.6321049D+00, 0.7229919D-02, 0.1461446D+01, - + 0.8271749D+00, 0.9272436D-02, 0.2995936D+01, - + 0.1080155D+01, 0.1465007D-01, 0.4119382D+01, - + 0.1303253D+01, 0.1577768D-01, 0.4924404D+01, - + 0.1928079D+01, 0.2067121D-01, 0.6727659D+01, - + 0.2191856D+01, 0.2250988D-01, 0.7463250D+01, - + 0.3073851D+01, 0.2867844D-01, 0.9794267D+01, - + 0.3952683D+01, 0.3491653D-01, 0.1200727D+02, - + 0.4823158D+01, 0.4120417D-01, 0.1414939D+02, - + 0.5684904D+01, 0.4752893D-01, 0.1624856D+02, - + 0.6538944D+01, 0.5388253D-01, 0.1832162D+02/ - DATA (SIG(10,K),QNS(10,K),GL(10,K), K=1,11) / - + 0.5693330D+00, 0.6995336D-02, 0.1303657D+01, - + 0.7410676D+00, 0.8972980D-02, 0.2607617D+01, - + 0.9636782D+00, 0.1421000D-01, 0.3553791D+01, - + 0.1155855D+01, 0.1529489D-01, 0.4227472D+01, - + 0.1691770D+01, 0.2003504D-01, 0.5728633D+01, - + 0.1916692D+01, 0.2181243D-01, 0.6339138D+01, - + 0.2665577D+01, 0.2777200D-01, 0.8269980D+01, - + 0.3408627D+01, 0.3379465D-01, 0.1010111D+02, - + 0.4142817D+01, 0.3986209D-01, 0.1187397D+02, - + 0.4868604D+01, 0.4596301D-01, 0.1361246D+02, - + 0.5587296D+01, 0.5208989D-01, 0.1533073D+02/ - DATA (SIG(11,K),QNS(11,K),GL(11,K), K=1,11) / - + 0.3730960D+00, 0.6120965D-02, 0.8154455D+00, - + 0.4749083D+00, 0.7849717D-02, 0.1478536D+01, - + 0.6086066D+00, 0.1252952D-01, 0.1943912D+01, - + 0.7127702D+00, 0.1345286D-01, 0.2267237D+01, - + 0.9997864D+00, 0.1759998D-01, 0.2974678D+01, - + 0.1117477D+01, 0.1914207D-01, 0.3259808D+01, - + 0.1503442D+01, 0.2430040D-01, 0.4157717D+01, - + 0.1880986D+01, 0.2949893D-01, 0.5009443D+01, - + 0.2251280D+01, 0.3472565D-01, 0.5837374D+01, - + 0.2615967D+01, 0.3997324D-01, 0.6653189D+01, - + 0.2976464D+01, 0.4523694D-01, 0.7463200D+01/ - DATA (SIG(12,K),QNS(12,K),GL(12,K), K=1,11) / - + 0.2859998D+00, 0.5629193D-02, 0.6023001D+00, - + 0.3587725D+00, 0.7212752D-02, 0.1024434D+01, - + 0.4565610D+00, 0.1155531D-01, 0.1314519D+01, - + 0.5266432D+00, 0.1238625D-01, 0.1512774D+01, - + 0.7192906D+00, 0.1618484D-01, 0.1941998D+01, - + 0.7970759D+00, 0.1758982D-01, 0.2114345D+01, - + 0.1050007D+01, 0.2228246D-01, 0.2656958D+01, - + 0.1295612D+01, 0.2700356D-01, 0.3173484D+01, - + 0.1535753D+01, 0.3174450D-01, 0.3678110D+01, - + 0.1772011D+01, 0.3650011D-01, 0.4177689D+01, - + 0.2005552D+01, 0.4126704D-01, 0.4675528D+01/ - DATA (SIG(13,K),QNS(13,K),GL(13,K), K=1,11) / - + 0.2325262D+00, 0.5273251D-02, 0.4731738D+00, - + 0.2883535D+00, 0.6749219D-02, 0.7642125D+00, - + 0.3654920D+00, 0.1083653D-01, 0.9608043D+00, - + 0.4166306D+00, 0.1159989D-01, 0.1093294D+01, - + 0.5574725D+00, 0.1513929D-01, 0.1377878D+01, - + 0.6136260D+00, 0.1644289D-01, 0.1491966D+01, - + 0.7951283D+00, 0.2079185D-01, 0.1851742D+01, - + 0.9705577D+00, 0.2516146D-01, 0.2196020D+01, - + 0.1141835D+01, 0.2954550D-01, 0.2534298D+01, - + 0.1310343D+01, 0.3394023D-01, 0.2870839D+01, - + 0.1477018D+01, 0.3834328D-01, 0.3207519D+01/ - DATA (SIG(14,K),QNS(14,K),GL(14,K), K=1,11) / - + 0.1967074D+00, 0.4997904D-02, 0.3878182D+00, - + 0.2417281D+00, 0.6389082D-02, 0.6009470D+00, - + 0.3058526D+00, 0.1027213D-01, 0.7430875D+00, - + 0.3454587D+00, 0.1098271D-01, 0.8378482D+00, - + 0.4551466D+00, 0.1431736D-01, 0.1040439D+01, - + 0.4984555D+00, 0.1554122D-01, 0.1121722D+01, - + 0.6379509D+00, 0.1962036D-01, 0.1378926D+01, - + 0.7724993D+00, 0.2371465D-01, 0.1626676D+01, - + 0.9038709D+00, 0.2781962D-01, 0.1871567D+01, - + 0.1033232D+01, 0.3193259D-01, 0.2116360D+01, - + 0.1161330D+01, 0.3605186D-01, 0.2362229D+01/ - DATA (SIG(15,K),QNS(15,K),GL(15,K), K=1,11) / - + 0.1709702D+00, 0.4774667D-02, 0.3272337D+00, - + 0.2085570D+00, 0.6096091D-02, 0.4899467D+00, - + 0.2637885D+00, 0.9809195D-02, 0.5974096D+00, - + 0.2957638D+00, 0.1047664D-01, 0.6684300D+00, - + 0.3850212D+00, 0.1364252D-01, 0.8199058D+00, - + 0.4199937D+00, 0.1480091D-01, 0.8808272D+00, - + 0.5324273D+00, 0.1865882D-01, 0.1074482D+01, - + 0.6408225D+00, 0.2252785D-01, 0.1262378D+01, - + 0.7467554D+00, 0.2640485D-01, 0.1449204D+01, - + 0.8512034D+00, 0.3028796D-01, 0.1636755D+01, - + 0.9547686D+00, 0.3417598D-01, 0.1825670D+01/ - DATA (SIG(16,K),QNS(16,K),GL(16,K), K=1,11) / - + 0.1514900D+00, 0.4587498D-02, 0.2818885D+00, - + 0.1836623D+00, 0.5849718D-02, 0.4097530D+00, - + 0.2324266D+00, 0.9417417D-02, 0.4935393D+00, - + 0.2590170D+00, 0.1004844D-01, 0.5485061D+00, - + 0.3339433D+00, 0.1307091D-01, 0.6656389D+00, - + 0.3631165D+00, 0.1417383D-01, 0.7129148D+00, - + 0.4568269D+00, 0.1784463D-01, 0.8639954D+00, - + 0.5472150D+00, 0.2152348D-01, 0.1011711D+01, - + 0.6356704D+00, 0.2520832D-01, 0.1159433D+01, - + 0.7230151D+00, 0.2889791D-01, 0.1308315D+01, - + 0.8097384D+00, 0.3259142D-01, 0.1458630D+01/ - DATA (SIG(17,K),QNS(17,K),GL(17,K), K=1,11) / - + 0.1362032D+00, 0.4426775D-02, 0.2466773D+00, - + 0.1642793D+00, 0.5637536D-02, 0.3493700D+00, - + 0.2081314D+00, 0.9078316D-02, 0.4162589D+00, - + 0.2307493D+00, 0.9677830D-02, 0.4598475D+00, - + 0.2951564D+00, 0.1257574D-01, 0.5527651D+00, - + 0.3201033D+00, 0.1363060D-01, 0.5904349D+00, - + 0.4002301D+00, 0.1713951D-01, 0.7115331D+00, - + 0.4776029D+00, 0.2065413D-01, 0.8308750D+00, - + 0.5534435D+00, 0.2417327D-01, 0.9508961D+00, - + 0.6284475D+00, 0.2769616D-01, 0.1072330D+01, - + 0.7030161D+00, 0.3122227D-01, 0.1195327D+01/ - DATA (SIG(18,K),QNS(18,K),GL(18,K), K=1,11) / - + 0.1238651D+00, 0.4286165D-02, 0.2185398D+00, - + 0.1485757D+00, 0.5453052D-02, 0.3029612D+00, - + 0.1886876D+00, 0.8780119D-02, 0.3568719D+00, - + 0.2082834D+00, 0.9351763D-02, 0.3920567D+00, - + 0.2647055D+00, 0.1213944D-01, 0.4672107D+00, - + 0.2864626D+00, 0.1315189D-01, 0.4978496D+00, - + 0.3563689D+00, 0.1651818D-01, 0.5969922D+00, - + 0.4239718D+00, 0.1988844D-01, 0.6954935D+00, - + 0.4903486D+00, 0.2326213D-01, 0.7950932D+00, - + 0.5560921D+00, 0.2663887D-01, 0.8962021D+00, - + 0.6215344D+00, 0.3001835D-01, 0.9987553D+00/ - DATA (SIG(19,K),QNS(19,K),GL(19,K), K=1,11) / - + 0.1136880D+00, 0.4161361D-02, 0.1955509D+00, - + 0.1357758D+00, 0.5288262D-02, 0.2657110D+00, - + 0.1728313D+00, 0.8513547D-02, 0.3099208D+00, - + 0.1900576D+00, 0.9060307D-02, 0.3387726D+00, - + 0.2402334D+00, 0.1174931D-01, 0.4005765D+00, - + 0.2595095D+00, 0.1272387D-01, 0.4259297D+00, - + 0.3214905D+00, 0.1596293D-01, 0.5085320D+00, - + 0.3815339D+00, 0.1920461D-01, 0.5912675D+00, - + 0.4405917D+00, 0.2244892D-01, 0.6753586D+00, - + 0.4991714D+00, 0.2569579D-01, 0.7609743D+00, - + 0.5575493D+00, 0.2894506D-01, 0.8478420D+00/ - DATA (SIG(20,K),QNS(20,K),GL(20,K), K=1,11) / - + 0.1051429D+00, 0.4049293D-02, 0.1764239D+00, - + 0.1251967D+00, 0.5138969D-02, 0.2350378D+00, - + 0.1596674D+00, 0.8272475D-02, 0.2719973D+00, - + 0.1749906D+00, 0.8796788D-02, 0.2959797D+00, - + 0.2201627D+00, 0.1139652D-01, 0.3475265D+00, - + 0.2374618D+00, 0.1233688D-01, 0.3688112D+00, - + 0.2931447D+00, 0.1546121D-01, 0.4386453D+00, - + 0.3471920D+00, 0.1858711D-01, 0.5091549D+00, - + 0.4004459D+00, 0.2171506D-01, 0.5811735D+00, - + 0.4533429D+00, 0.2484521D-01, 0.6546974D+00, - + 0.5061138D+00, 0.2797757D-01, 0.7293174D+00/ - DATA (SIG(21,K),QNS(21,K),GL(21,K), K=1,11) / - + 0.9786133D-01, 0.3947691D-02, 0.1602676D+00, - + 0.1161986D+00, 0.5003614D-02, 0.2097587D+00, - + 0.1485238D+00, 0.8052864D-02, 0.2409080D+00, - + 0.1622960D+00, 0.8556679D-02, 0.2610485D+00, - + 0.2033910D+00, 0.1107483D-01, 0.3045284D+00, - + 0.2190863D+00, 0.1198399D-01, 0.3226118D+00, - + 0.2696688D+00, 0.1500384D-01, 0.3823773D+00, - + 0.3188646D+00, 0.1802449D-01, 0.4432053D+00, - + 0.3674216D+00, 0.2104678D-01, 0.5056271D+00, - + 0.4157164D+00, 0.2407107D-01, 0.5694936D+00, - + 0.4639427D+00, 0.2709744D-01, 0.6342043D+00/ - DATA (SIG(22,K),QNS(22,K),GL(22,K), K=1,11) / - + 0.9157856D-01, 0.3854825D-02, 0.1464450D+00, - + 0.1084705D+00, 0.4879677D-02, 0.1885441D+00, - + 0.1389709D+00, 0.7851154D-02, 0.2150231D+00, - + 0.1514586D+00, 0.8336118D-02, 0.2320898D+00, - + 0.1891747D+00, 0.1077916D-01, 0.2691259D+00, - + 0.2035462D+00, 0.1165966D-01, 0.2846489D+00, - + 0.2499252D+00, 0.1458365D-01, 0.3363387D+00, - + 0.2951253D+00, 0.1750788D-01, 0.3893658D+00, - + 0.3398120D+00, 0.2043351D-01, 0.4440254D+00, - + 0.3843117D+00, 0.2336103D-01, 0.5000539D+00, - + 0.4287871D+00, 0.2629059D-01, 0.5566753D+00/ - DATA (SIG(23,K),QNS(23,K),GL(23,K), K=1,11) / - + 0.8609981D-01, 0.3769372D-02, 0.1344894D+00, - + 0.1017579D+00, 0.4765453D-02, 0.1705291D+00, - + 0.1306882D+00, 0.7664669D-02, 0.1931985D+00, - + 0.1420965D+00, 0.8132177D-02, 0.2077720D+00, - + 0.1769728D+00, 0.1050562D-01, 0.2395875D+00, - + 0.1902355D+00, 0.1135961D-01, 0.2530326D+00, - + 0.2330983D+00, 0.1419508D-01, 0.2981487D+00, - + 0.2749570D+00, 0.1703043D-01, 0.3447958D+00, - + 0.3164053D+00, 0.1986706D-01, 0.3930942D+00, - + 0.3577269D+00, 0.2270554D-01, 0.4427890D+00, - + 0.3990594D+00, 0.2554609D-01, 0.4934667D+00/ - DATA (SIG(24,K),QNS(24,K),GL(24,K), K=1,11) / - + 0.8127817D-01, 0.3690287D-02, 0.1240502D+00, - + 0.9587178D-01, 0.4659572D-02, 0.1550682D+00, - + 0.1234335D+00, 0.7491268D-02, 0.1745938D+00, - + 0.1339254D+00, 0.7942527D-02, 0.1871210D+00, - + 0.1663844D+00, 0.1025112D-01, 0.2146546D+00, - + 0.1787068D+00, 0.1108047D-01, 0.2263920D+00, - + 0.2185897D+00, 0.1383374D-01, 0.2660874D+00, - + 0.2576166D+00, 0.1658668D-01, 0.3074479D+00, - + 0.2963185D+00, 0.1934088D-01, 0.3504595D+00, - + 0.3349425D+00, 0.2209699D-01, 0.3949131D+00, - + 0.3736051D+00, 0.2485523D-01, 0.4408714D+00/ - DATA (SIG(25,K),QNS(25,K),GL(25,K), K=1,11) / - + 0.7700072D-01, 0.3616717D-02, 0.1148599D+00, - + 0.9066703D-01, 0.4560939D-02, 0.1416777D+00, - + 0.1170243D+00, 0.7329230D-02, 0.1585820D+00, - + 0.1267295D+00, 0.7765293D-02, 0.1694124D+00, - + 0.1571087D+00, 0.1001317D-01, 0.1933961D+00, - + 0.1686245D+00, 0.1081949D-01, 0.2037145D+00, - + 0.2059529D+00, 0.1349607D-01, 0.2388896D+00, - + 0.2425518D+00, 0.1617226D-01, 0.2758190D+00, - + 0.2788968D+00, 0.1884976D-01, 0.3143754D+00, - + 0.3152034D+00, 0.2152928D-01, 0.3543264D+00, - + 0.3515700D+00, 0.2421104D-01, 0.3957874D+00/ - DATA (SIG(26,K),QNS(26,K),GL(26,K), K=1,11) / - + 0.7317924D-01, 0.3547973D-02, 0.1067101D+00, - + 0.8603272D-01, 0.4468605D-02, 0.1299792D+00, - + 0.1113200D+00, 0.7177133D-02, 0.1446859D+00, - + 0.1203424D+00, 0.7598930D-02, 0.1540961D+00, - + 0.1489149D+00, 0.9789726D-02, 0.1751095D+00, - + 0.1597317D+00, 0.1057444D-01, 0.1842373D+00, - + 0.1948478D+00, 0.1317917D-01, 0.2156051D+00, - + 0.2293430D+00, 0.1578356D-01, 0.2487827D+00, - + 0.2636440D+00, 0.1838941D-01, 0.2835412D+00, - + 0.2979390D+00, 0.2099743D-01, 0.3195266D+00, - + 0.3323100D+00, 0.2360783D-01, 0.3563460D+00/ - DATA (SIG(27,K),QNS(27,K),GL(27,K), K=1,11) / - + 0.6974384D-01, 0.3483488D-02, 0.9943664D-01, - + 0.8187382D-01, 0.4382003D-02, 0.1197128D+00, - + 0.1062061D+00, 0.7033862D-02, 0.1325399D+00, - + 0.1146319D+00, 0.7442211D-02, 0.1407497D+00, - + 0.1416214D+00, 0.9579126D-02, 0.1592550D+00, - + 0.1518274D+00, 0.1034350D-01, 0.1673748D+00, - + 0.1850101D+00, 0.1288067D-01, 0.1955072D+00, - + 0.2176658D+00, 0.1541765D-01, 0.2254800D+00, - + 0.2501778D+00, 0.1795630D-01, 0.2569802D+00, - + 0.2827101D+00, 0.2049730D-01, 0.2895307D+00, - + 0.3153313D+00, 0.2304087D-01, 0.3221902D+00/ - DATA (SIG(28,K),QNS(28,K),GL(28,K), K=1,11) / - + 0.6663838D-01, 0.3422795D-02, 0.9290756D-01, - + 0.7810341D-01, 0.4300967D-02, 0.1107238D+00, - + 0.1015874D+00, 0.6898572D-02, 0.1218608D+00, - + 0.1094900D+00, 0.7294175D-02, 0.1290444D+00, - + 0.1350829D+00, 0.9380019D-02, 0.1454110D+00, - + 0.1447512D+00, 0.1012516D-01, 0.1526704D+00, - + 0.1762317D+00, 0.1259856D-01, 0.1780313D+00, - + 0.2072659D+00, 0.1507204D-01, 0.2052453D+00, - + 0.2381990D+00, 0.1754745D-01, 0.2339463D+00, - + 0.2691743D+00, 0.2002546D-01, 0.2636970D+00, - + 0.3002485D+00, 0.2250621D-01, 0.2938297D+00/ - DATA (SIG(29,K),QNS(29,K),GL(29,K), K=1,11) / - + 0.5672650D-01, 0.3210853D-02, 0.7240408D-01, - + 0.6615824D-01, 0.4016148D-02, 0.8323177D-01, - + 0.8691136D-01, 0.6420369D-02, 0.8971424D-01, - + 0.9323547D-01, 0.6771184D-02, 0.9406866D-01, - + 0.1145714D+00, 0.8676316D-02, 0.1045172D+00, - + 0.1226097D+00, 0.9353817D-02, 0.1093721D+00, - + 0.1489274D+00, 0.1160369D-01, 0.1268984D+00, - + 0.1750335D+00, 0.1385536D-01, 0.1462071D+00, - + 0.2011561D+00, 0.1611042D-01, 0.1668319D+00, - + 0.2273771D+00, 0.1836924D-01, 0.1885959D+00, - + 0.2537208D+00, 0.2063174D-01, 0.2122672D+00/ - DATA (SIG(30,K),QNS(30,K),GL(30,K), K=1,11) / - + 0.4954493D-01, 0.3036037D-02, 0.5791704D-01, - + 0.5767308D-01, 0.3776657D-02, 0.6409829D-01, - + 0.7632964D-01, 0.6017023D-02, 0.6828358D-01, - + 0.8158505D-01, 0.6330936D-02, 0.7103772D-01, - + 0.9998869D-01, 0.8084253D-02, 0.7807089D-01, - + 0.1069129D+00, 0.8705546D-02, 0.8150090D-01, - + 0.1296983D+00, 0.1077057D-01, 0.9427469D-01, - + 0.1524214D+00, 0.1283979D-01, 0.1086698D+00, - + 0.1752299D+00, 0.1491422D-01, 0.1241663D+00, - + 0.1981660D+00, 0.1699377D-01, 0.1404129D+00, - + 0.2212340D+00, 0.1907801D-01, 0.1571799D+00/ - DATA (SIG(31,K),QNS(31,K),GL(31,K), K=1,11) / - + 0.4412153D-01, 0.2888053D-02, 0.4723757D-01, - + 0.5124083D-01, 0.3574623D-02, 0.5079840D-01, - + 0.6828640D-01, 0.5668800D-02, 0.5340916D-01, - + 0.7278667D-01, 0.5951593D-02, 0.5518718D-01, - + 0.8905596D-01, 0.7573866D-02, 0.6011898D-01, - + 0.9517505D-01, 0.8147290D-02, 0.6265433D-01, - + 0.1154004D+00, 0.1005577D-01, 0.7237706D-01, - + 0.1356604D+00, 0.1197136D-01, 0.8354372D-01, - + 0.1560466D+00, 0.1389421D-01, 0.9564194D-01, - + 0.1765749D+00, 0.1582365D-01, 0.1083558D+00, - + 0.1972366D+00, 0.1775883D-01, 0.1215070D+00/ - DATA (SIG(32,K),QNS(32,K),GL(32,K), K=1,11) / - + 0.3987000D-01, 0.2760162D-02, 0.3905016D-01, - + 0.4620264D-01, 0.3399376D-02, 0.4096906D-01, - + 0.6191934D-01, 0.5361016D-02, 0.4254156D-01, - + 0.6585419D-01, 0.5617449D-02, 0.4369583D-01, - + 0.8047312D-01, 0.7124692D-02, 0.4725629D-01, - + 0.8597415D-01, 0.7656726D-02, 0.4919142D-01, - + 0.1042297D+00, 0.9430540D-02, 0.5681735D-01, - + 0.1225874D+00, 0.1121465D-01, 0.6571598D-01, - + 0.1410978D+00, 0.1300815D-01, 0.7540076D-01, - + 0.1597577D+00, 0.1480967D-01, 0.8558730D-01, - + 0.1785497D+00, 0.1661794D-01, 0.9611574D-01/ - DATA (SIG(33,K),QNS(33,K),GL(33,K), K=1,11) / - + 0.3646109D-01, 0.2648039D-02, 0.3263199D-01, - + 0.4217242D-01, 0.3244785D-02, 0.3347094D-01, - + 0.5674877D-01, 0.5084485D-02, 0.3439708D-01, - + 0.6024879D-01, 0.5318638D-02, 0.3515416D-01, - + 0.7354944D-01, 0.6723776D-02, 0.3781038D-01, - + 0.7856124D-01, 0.7219697D-02, 0.3933451D-01, - + 0.9525463D-01, 0.8876577D-02, 0.4548254D-01, - + 0.1120997D+00, 0.1054704D-01, 0.5274369D-01, - + 0.1291150D+00, 0.1222897D-01, 0.6066672D-01, - + 0.1462836D+00, 0.1392031D-01, 0.6899395D-01, - + 0.1635819D+00, 0.1561931D-01, 0.7755795D-01/ - DATA (SIG(34,K),QNS(34,K),GL(34,K), K=1,11) / - + 0.3367022D-01, 0.2548552D-02, 0.2749444D-01, - + 0.3887100D-01, 0.3106863D-02, 0.2762565D-01, - + 0.5244414D-01, 0.4832766D-02, 0.2813872D-01, - + 0.5560189D-01, 0.5048218D-02, 0.2863779D-01, - + 0.6781742D-01, 0.6361936D-02, 0.3067907D-01, - + 0.7243072D-01, 0.6826144D-02, 0.3191142D-01, - + 0.8784979D-01, 0.8380807D-02, 0.3697870D-01, - + 0.1034580D+00, 0.9952320D-02, 0.4301513D-01, - + 0.1192488D+00, 0.1153730D-01, 0.4960915D-01, - + 0.1351946D+00, 0.1313294D-01, 0.5653657D-01, - + 0.1512669D+00, 0.1473702D-01, 0.6366571D-01/ - DATA (SIG(35,K),QNS(35,K),GL(35,K), K=1,11) / - + 0.3134481D-01, 0.2459379D-02, 0.2331059D-01, - + 0.3611534D-01, 0.2982715D-02, 0.2298208D-01, - + 0.4878597D-01, 0.4601158D-02, 0.2322870D-01, - + 0.5167003D-01, 0.4801118D-02, 0.2355833D-01, - + 0.6297136D-01, 0.6032467D-02, 0.2517093D-01, - + 0.6725305D-01, 0.6468721D-02, 0.2618981D-01, - + 0.8161064D-01, 0.7933663D-02, 0.3044220D-01, - + 0.9618679D-01, 0.9418618D-02, 0.3553568D-01, - + 0.1109544D+00, 0.1091889D-01, 0.4109899D-01, - + 0.1258772D+00, 0.1243090D-01, 0.4694225D-01, - + 0.1409234D+00, 0.1395202D-01, 0.5298558D-01/ - DATA (SIG(36,K),QNS(36,K),GL(36,K), K=1,11) / - + 0.2938217D-01, 0.2378800D-02, 0.1986429D-01, - + 0.3378389D-01, 0.2870303D-02, 0.1925703D-01, - + 0.4562917D-01, 0.4386271D-02, 0.1932811D-01, - + 0.4829334D-01, 0.4573682D-02, 0.1954728D-01, - + 0.5881281D-01, 0.5730525D-02, 0.2085770D-01, - + 0.6281506D-01, 0.6142113D-02, 0.2171753D-01, - + 0.7627748D-01, 0.7528192D-02, 0.2534355D-01, - + 0.8998194D-01, 0.8937272D-02, 0.2969751D-01, - + 0.1038842D+00, 0.1036331D-01, 0.3444605D-01, - + 0.1179407D+00, 0.1180201D-01, 0.3942204D-01, - + 0.1321170D+00, 0.1325033D-01, 0.4454895D-01/ - DATA (SIG(37,K),QNS(37,K),GL(37,K), K=1,11) / - + 0.2770262D-01, 0.2305415D-02, 0.1698906D-01, - + 0.3178261D-01, 0.2767735D-02, 0.1621974D-01, - + 0.4286201D-01, 0.4185330D-02, 0.1617733D-01, - + 0.4534900D-01, 0.4362933D-02, 0.1632430D-01, - + 0.5518980D-01, 0.5452214D-02, 0.1741592D-01, - + 0.5895360D-01, 0.5842051D-02, 0.1815359D-01, - + 0.7165176D-01, 0.7158814D-02, 0.2128433D-01, - + 0.8461095D-01, 0.8501318D-02, 0.2504361D-01, - + 0.9777212D-01, 0.9862194D-02, 0.2913437D-01, - + 0.1110861D+00, 0.1123646D-01, 0.3341568D-01, - + 0.1245159D+00, 0.1262069D-01, 0.3784494D-01/ - DATA (SIG(38,K),QNS(38,K),GL(38,K), K=1,11) / - + 0.2625076D-01, 0.2238143D-02, 0.1457164D-01, - + 0.3004678D-01, 0.2673543D-02, 0.1371774D-01, - + 0.4040840D-01, 0.3996244D-02, 0.1360885D-01, - + 0.4275402D-01, 0.4166634D-02, 0.1371041D-01, - + 0.5200107D-01, 0.5194614D-02, 0.1464250D-01, - + 0.5556037D-01, 0.5565332D-02, 0.1528490D-01, - + 0.6760275D-01, 0.6821321D-02, 0.1801795D-01, - + 0.7992130D-01, 0.8105482D-02, 0.2129236D-01, - + 0.9244427D-01, 0.9409166D-02, 0.2484524D-01, - + 0.1051176D+00, 0.1072675D-01, 0.2856420D-01, - + 0.1179026D+00, 0.1205448D-01, 0.3246368D-01/ - DATA (SIG(39,K),QNS(39,K),GL(39,K), K=1,11) / - + 0.2498264D-01, 0.2176074D-02, 0.1252296D-01, - + 0.2852474D-01, 0.2586529D-02, 0.1163583D-01, - + 0.3820837D-01, 0.3817320D-02, 0.1149342D-01, - + 0.4044316D-01, 0.3982970D-02, 0.1156755D-01, - + 0.4916729D-01, 0.4955355D-02, 0.1238112D-01, - + 0.5255058D-01, 0.5309351D-02, 0.1294757D-01, - + 0.6402810D-01, 0.6512269D-02, 0.1535507D-01, - + 0.7579352D-01, 0.7745429D-02, 0.1822732D-01, - + 0.8776405D-01, 0.8998974D-02, 0.2132728D-01, - + 0.9988157D-01, 0.1026671D-01, 0.2451663D-01, - + 0.1121061D+00, 0.1154461D-01, 0.2759257D-01/ - DATA (SIG(40,K),QNS(40,K),GL(40,K), K=1,11) / - + 0.2386489D-01, 0.2118459D-02, 0.1077657D-01, - + 0.2717822D-01, 0.2505779D-02, 0.9892013D-02, - + 0.3621722D-01, 0.3647218D-02, 0.9738241D-02, - + 0.3836804D-01, 0.3810504D-02, 0.9797171D-02, - + 0.4663004D-01, 0.4732553D-02, 0.1052143D-01, - + 0.4986193D-01, 0.5072033D-02, 0.1102628D-01, - + 0.6085280D-01, 0.6228898D-02, 0.1316329D-01, - + 0.7214003D-01, 0.7417662D-02, 0.1569785D-01, - + 0.8363130D-01, 0.8627361D-02, 0.1841362D-01, - + 0.9526528D-01, 0.9851314D-02, 0.2112131D-01, - + 0.1070011D+00, 0.1108527D-01, 0.2327940D-01/ - DATA (SIG(41,K),QNS(41,K),GL(41,K), K=1,11) / - + 0.2287098D-01, 0.2064657D-02, 0.9280388D-02, - + 0.2597773D-01, 0.2430616D-02, 0.8425721D-02, - + 0.3439999D-01, 0.3484847D-02, 0.8272486D-02, - + 0.3649089D-01, 0.3648070D-02, 0.8324276D-02, - + 0.4434388D-01, 0.4524671D-02, 0.8979947D-02, - + 0.4744594D-01, 0.4851682D-02, 0.9433945D-02, - + 0.5801849D-01, 0.5968927D-02, 0.1134298D-01, - + 0.6889258D-01, 0.7119276D-02, 0.1359116D-01, - + 0.7996782D-01, 0.8290777D-02, 0.1599018D-01, - + 0.9118045D-01, 0.9476352D-02, 0.1839031D-01, - + 0.1024892D+00, 0.1067160D-01, 0.2039326D-01/ - DATA (SIG(42,K),QNS(42,K),GL(42,K), K=1,11) / - + 0.2197955D-01, 0.2014114D-02, 0.7993099D-02, - + 0.2489892D-01, 0.2360339D-02, 0.7186451D-02, - + 0.3272884D-01, 0.3329282D-02, 0.7041447D-02, - + 0.3478187D-01, 0.3494691D-02, 0.7091319D-02, - + 0.4227310D-01, 0.4330436D-02, 0.7693084D-02, - + 0.4526455D-01, 0.4646892D-02, 0.8104329D-02, - + 0.5547928D-01, 0.5730457D-02, 0.9818596D-02, - + 0.6599736D-01, 0.6847828D-02, 0.1182118D-01, - + 0.7671179D-01, 0.7986219D-02, 0.1395409D-01, - + 0.8755713D-01, 0.9138261D-02, 0.1614919D-01, - + 0.9849221D-01, 0.1029947D-01, 0.1837904D-01/ - DATA (SIG(43,K),QNS(43,K),GL(43,K), K=1,11) / - + 0.2117340D-01, 0.1966342D-02, 0.6882100D-02, - + 0.2392202D-01, 0.2294293D-02, 0.6133391D-02, - + 0.3118119D-01, 0.3179651D-02, 0.6003205D-02, - + 0.3321734D-01, 0.3349532D-02, 0.6054520D-02, - + 0.4038951D-01, 0.4148762D-02, 0.6612858D-02, - + 0.4328782D-01, 0.4456474D-02, 0.6987574D-02, - + 0.5319917D-01, 0.5511893D-02, 0.8533492D-02, - + 0.6341209D-01, 0.6601263D-02, 0.1032315D-01, - + 0.7381442D-01, 0.7711148D-02, 0.1221988D-01, - + 0.8433995D-01, 0.8834009D-02, 0.1417351D-01, - + 0.9494803D-01, 0.9965359D-02, 0.1620130D-01/ - DATA (SIG(44,K),QNS(44,K),GL(44,K), K=1,11) / - + 0.2043814D-01, 0.1920905D-02, 0.5920516D-02, - + 0.2303106D-01, 0.2231972D-02, 0.5235412D-02, - + 0.2973935D-01, 0.3035369D-02, 0.5123704D-02, - + 0.3177770D-01, 0.3211858D-02, 0.5178428D-02, - + 0.3867066D-01, 0.3978835D-02, 0.5700761D-02, - + 0.4149177D-01, 0.4279512D-02, 0.6043757D-02, - + 0.5114890D-01, 0.5311924D-02, 0.7442485D-02, - + 0.6110199D-01, 0.6377837D-02, 0.9046025D-02, - + 0.7123538D-01, 0.7463372D-02, 0.1073481D-01, - + 0.8148293D-01, 0.8560955D-02, 0.1245572D-01, - + 0.9180501D-01, 0.9666184D-02, 0.1416720D-01/ - DATA (SIG(45,K),QNS(45,K),GL(45,K), K=1,11) / - + 0.1976193D-01, 0.1877410D-02, 0.5086713D-02, - + 0.2221291D-01, 0.2172914D-02, 0.4467734D-02, - + 0.2838599D-01, 0.2895430D-02, 0.4376311D-02, - + 0.3044695D-01, 0.3081011D-02, 0.4435494D-02, - + 0.3709682D-01, 0.3819678D-02, 0.4927158D-02, - + 0.3985576D-01, 0.4114991D-02, 0.5242225D-02, - + 0.4930422D-01, 0.5129310D-02, 0.6511036D-02, - + 0.5903866D-01, 0.6175988D-02, 0.7950838D-02, - + 0.6894178D-01, 0.7240966D-02, 0.9458458D-02, - + 0.7894853D-01, 0.8316794D-02, 0.1098790D-01, - + 0.8902094D-01, 0.9399251D-02, 0.1249729D-01/ - DATA (SIG(46,K),QNS(46,K),GL(46,K), K=1,11) / - + 0.1913463D-01, 0.1835496D-02, 0.4362632D-02, - + 0.2145590D-01, 0.2116647D-02, 0.3809195D-02, - + 0.2710495D-01, 0.2758708D-02, 0.3739239D-02, - + 0.2921686D-01, 0.2957282D-02, 0.3803287D-02, - + 0.3564769D-01, 0.3669808D-02, 0.4268056D-02, - + 0.3835874D-01, 0.3961405D-02, 0.4558201D-02, - + 0.4764170D-01, 0.4962458D-02, 0.5711288D-02, - + 0.5719584D-01, 0.5993963D-02, 0.7006013D-02, - + 0.6690404D-01, 0.7041949D-02, 0.8354029D-02, - + 0.7670359D-01, 0.8099270D-02, 0.9717345D-02, - + 0.8655882D-01, 0.9162005D-02, 0.1106294D-01/ - DATA (SIG(47,K),QNS(47,K),GL(47,K), K=1,11) / - + 0.1854764D-01, 0.1794825D-02, 0.3733304D-02, - + 0.2075086D-01, 0.2062805D-02, 0.3243440D-02, - + 0.2586753D-01, 0.2621691D-02, 0.3195035D-02, - + 0.2806129D-01, 0.2837668D-02, 0.3263885D-02, - + 0.3430926D-01, 0.3528447D-02, 0.3704376D-02, - + 0.3698811D-01, 0.3818282D-02, 0.3971997D-02, - + 0.4614900D-01, 0.4811196D-02, 0.5021144D-02, - + 0.5555833D-01, 0.5831374D-02, 0.6186538D-02, - + 0.6510306D-01, 0.6865544D-02, 0.7393058D-02, - + 0.7472472D-01, 0.7907176D-02, 0.8610003D-02, - + 0.8439100D-01, 0.8952809D-02, 0.9813729D-02/ - DATA (SIG(48,K),QNS(48,K),GL(48,K), K=1,11) / - + 0.1799345D-01, 0.1755079D-02, 0.3186141D-02, - + 0.2009060D-01, 0.2011123D-02, 0.2757918D-02, - + 0.2462623D-01, 0.2477509D-02, 0.2729519D-02, - + 0.2693235D-01, 0.2715303D-02, 0.2802749D-02, - + 0.3306826D-01, 0.3394658D-02, 0.3220668D-02, - + 0.3573439D-01, 0.3685386D-02, 0.3467681D-02, - + 0.4482053D-01, 0.4676154D-02, 0.4422733D-02, - + 0.5411841D-01, 0.5688723D-02, 0.5472197D-02, - + 0.6352707D-01, 0.6711812D-02, 0.6552948D-02, - + 0.7299563D-01, 0.7740054D-02, 0.7643261D-02, - + 0.8249668D-01, 0.8770698D-02, 0.8741538D-02/ - DATA (SIG(49,K),QNS(49,K),GL(49,K), K=1,11) / - + 0.1746548D-01, 0.1715953D-02, 0.2710467D-02, - + 0.1946806D-01, 0.1961262D-02, 0.2340938D-02, - + 0.2350704D-01, 0.2348056D-02, 0.2330809D-02, - + 0.2590782D-01, 0.2604098D-02, 0.2407697D-02, - + 0.3198994D-01, 0.3280403D-02, 0.2804010D-02, - + 0.3465026D-01, 0.3572639D-02, 0.3031970D-02, - + 0.4367926D-01, 0.4562489D-02, 0.3901298D-02, - + 0.5288092D-01, 0.5568338D-02, 0.4846367D-02, - + 0.6216904D-01, 0.6581304D-02, 0.5814597D-02, - + 0.7150093D-01, 0.7597267D-02, 0.6792054D-02, - + 0.8085416D-01, 0.8614193D-02, 0.7796493D-02/ - DATA (SIG(50,K),QNS(50,K),GL(50,K), K=1,11) / - + 0.1695791D-01, 0.1677152D-02, 0.2297231D-02, - + 0.1887672D-01, 0.1912869D-02, 0.1982212D-02, - + 0.2268456D-01, 0.2263196D-02, 0.1989012D-02, - + 0.2510231D-01, 0.2523959D-02, 0.2068612D-02, - + 0.3115808D-01, 0.3200559D-02, 0.2443735D-02, - + 0.3380212D-01, 0.3492068D-02, 0.2653930D-02, - + 0.4275270D-01, 0.4475908D-02, 0.3444788D-02, - + 0.5185150D-01, 0.5472451D-02, 0.4295515D-02, - + 0.6102133D-01, 0.6474218D-02, 0.5162264D-02, - + 0.7022431D-01, 0.7477751D-02, 0.6033582D-02, - + 0.7944090D-01, 0.8481383D-02, 0.6922060D-02/ - DATA (SIG(51,K),QNS(51,K),GL(51,K), K=1,11) / - + 0.1646541D-01, 0.1638383D-02, 0.1938626D-02, - + 0.1831074D-01, 0.1865606D-02, 0.1673497D-02, - + 0.2204616D-01, 0.2204811D-02, 0.1695369D-02, - + 0.2444568D-01, 0.2463889D-02, 0.1776706D-02, - + 0.3047576D-01, 0.3139762D-02, 0.2130947D-02, - + 0.3309959D-01, 0.3429442D-02, 0.2324524D-02, - + 0.4196919D-01, 0.4405446D-02, 0.3043336D-02, - + 0.5097149D-01, 0.5392421D-02, 0.3808564D-02, - + 0.6003382D-01, 0.6383495D-02, 0.4583789D-02, - + 0.6912110D-01, 0.7375522D-02, 0.5358050D-02, - + 0.7821569D-01, 0.8367026D-02, 0.6131132D-02/ - DATA (SIG(52,K),QNS(52,K),GL(52,K), K=1,11) / - + 0.1598313D-01, 0.1599356D-02, 0.1627963D-02, - + 0.1776514D-01, 0.1819174D-02, 0.1407954D-02, - + 0.2148560D-01, 0.2155759D-02, 0.1442665D-02, - + 0.2386894D-01, 0.2412981D-02, 0.1524787D-02, - + 0.2986111D-01, 0.3085047D-02, 0.1858422D-02, - + 0.3246750D-01, 0.3372948D-02, 0.2036420D-02, - + 0.4127076D-01, 0.4342294D-02, 0.2688928D-02, - + 0.5019388D-01, 0.5321403D-02, 0.3376494D-02, - + 0.5916623D-01, 0.6303562D-02, 0.4069231D-02, - + 0.6815506D-01, 0.7285834D-02, 0.4757368D-02, - + 0.7714466D-01, 0.8266924D-02, 0.5433820D-02/ - DATA (SIG(53,K),QNS(53,K),GL(53,K), K=1,11) / - + 0.1550654D-01, 0.1559773D-02, 0.1359418D-02, - + 0.1723619D-01, 0.1773360D-02, 0.1180071D-02, - + 0.2096290D-01, 0.2109849D-02, 0.1225215D-02, - + 0.2333658D-01, 0.2365825D-02, 0.1307185D-02, - + 0.2930237D-01, 0.3035046D-02, 0.1620378D-02, - + 0.3189688D-01, 0.3321720D-02, 0.1783705D-02, - + 0.4065142D-01, 0.4286208D-02, 0.2374984D-02, - + 0.4951167D-01, 0.5259127D-02, 0.2991800D-02, - + 0.5840944D-01, 0.6233935D-02, 0.3610009D-02, - + 0.6731464D-01, 0.7207936D-02, 0.4221724D-02, - + 0.7621369D-01, 0.8180047D-02, 0.4818659D-02/ - DATA (SIG(54,K),QNS(54,K),GL(54,K), K=1,11) / - + 0.1503130D-01, 0.1519329D-02, 0.1127933D-02, - + 0.1671990D-01, 0.1727892D-02, 0.9849006D-03, - + 0.2045578D-01, 0.2063797D-02, 0.1038154D-02, - + 0.2282919D-01, 0.2319642D-02, 0.1119089D-02, - + 0.2878964D-01, 0.2988638D-02, 0.1411966D-02, - + 0.3137898D-01, 0.3274867D-02, 0.1561435D-02, - + 0.4010326D-01, 0.4236559D-02, 0.2096014D-02, - + 0.4891584D-01, 0.5204902D-02, 0.2648220D-02, - + 0.5775263D-01, 0.6173755D-02, 0.3198920D-02, - + 0.6658697D-01, 0.7140768D-02, 0.3742543D-02, - + 0.7540784D-01, 0.8105119D-02, 0.4273630D-02/ - DATA (SIG(55,K),QNS(55,K),GL(55,K), K=1,11) / - + 0.1455322D-01, 0.1477706D-02, 0.9290777D-03, - + 0.1621185D-01, 0.1682435D-02, 0.8178835D-03, - + 0.1996990D-01, 0.2018943D-02, 0.8772579D-03, - + 0.2235032D-01, 0.2275435D-02, 0.9563592D-03, - + 0.2832019D-01, 0.2945853D-02, 0.1229056D-02, - + 0.3090970D-01, 0.3232220D-02, 0.1365408D-02, - + 0.3961889D-01, 0.4192747D-02, 0.1847375D-02, - + 0.4839651D-01, 0.5157844D-02, 0.2340460D-02, - + 0.5718377D-01, 0.6121909D-02, 0.2829815D-02, - + 0.6595804D-01, 0.7083010D-02, 0.3311857D-02, - + 0.7471115D-01, 0.8040628D-02, 0.3783842D-02/ - DATA (SIG(56,K),QNS(56,K),GL(56,K), K=1,11) / - + 0.1406811D-01, 0.1434564D-02, 0.7589557D-03, - + 0.1570823D-01, 0.1636690D-02, 0.6752545D-03, - + 0.1950212D-01, 0.1975114D-02, 0.7389313D-03, - + 0.2189636D-01, 0.2232978D-02, 0.8154783D-03, - + 0.2788920D-01, 0.2906329D-02, 0.1068157D-02, - + 0.3048365D-01, 0.3193354D-02, 0.1192079D-02, - + 0.3919091D-01, 0.4154133D-02, 0.1625145D-02, - + 0.4794429D-01, 0.5117102D-02, 0.2064043D-02, - + 0.5669146D-01, 0.6077336D-02, 0.2497567D-02, - + 0.6541444D-01, 0.7033397D-02, 0.2923871D-02, - + 0.7410826D-01, 0.7985108D-02, 0.3342986D-02/ - DATA (SIG(57,K),QNS(57,K),GL(57,K), K=1,11) / - + 0.1357172D-01, 0.1389532D-02, 0.6141374D-03, - + 0.1520546D-01, 0.1590357D-02, 0.5538299D-03, - + 0.1904756D-01, 0.1931818D-02, 0.6201010D-03, - + 0.2146241D-01, 0.2191801D-02, 0.6934552D-03, - + 0.2749114D-01, 0.2869556D-02, 0.9263228D-03, - + 0.3009486D-01, 0.3157722D-02, 0.1038456D-02, - + 0.3881166D-01, 0.4120003D-02, 0.1426019D-02, - + 0.4754955D-01, 0.5081763D-02, 0.1815194D-02, - + 0.5626407D-01, 0.6038917D-02, 0.2197886D-02, - + 0.6494256D-01, 0.6990604D-02, 0.2574141D-02, - + 0.7358356D-01, 0.7937031D-02, 0.2948746D-02/ - DATA (SIG(58,K),QNS(58,K),GL(58,K), K=1,11) / - + 0.1305961D-01, 0.1342208D-02, 0.4915750D-03, - + 0.1469918D-01, 0.1543048D-02, 0.4508016D-03, - + 0.1860215D-01, 0.1888699D-02, 0.5181130D-03, - + 0.2104422D-01, 0.2151533D-02, 0.5877194D-03, - + 0.2712081D-01, 0.2835076D-02, 0.8010341D-03, - + 0.2973763D-01, 0.3124815D-02, 0.9019835D-03, - + 0.3847346D-01, 0.4089642D-02, 0.1247175D-02, - + 0.4720254D-01, 0.5050893D-02, 0.1590676D-02, - + 0.5588975D-01, 0.6005498D-02, 0.1926936D-02, - + 0.6452845D-01, 0.6953258D-02, 0.2257086D-02, - + 0.7312111D-01, 0.7894811D-02, 0.2587537D-02/ - DATA (SIG(59,K),QNS(59,K),GL(59,K), K=1,11) / - + 0.1252702D-01, 0.1292136D-02, 0.3885671D-03, - + 0.1418534D-01, 0.1494387D-02, 0.3637417D-03, - + 0.1816184D-01, 0.1845390D-02, 0.4306922D-03, - + 0.2063755D-01, 0.2111791D-02, 0.4960791D-03, - + 0.2677293D-01, 0.2802407D-02, 0.6901580D-03, - + 0.2940612D-01, 0.3094090D-02, 0.7805020D-03, - + 0.3816837D-01, 0.4062288D-02, 0.1086226D-02, - + 0.4689307D-01, 0.5023491D-02, 0.1387751D-02, - + 0.5555607D-01, 0.5975840D-02, 0.1681514D-02, - + 0.6415751D-01, 0.6919890D-02, 0.1968570D-02, - + 0.7270413D-01, 0.7856755D-02, 0.2251816D-02/ - DATA (SIG(60,K),QNS(60,K),GL(60,K), K=1,11) / - + 0.1196868D-01, 0.1238794D-02, 0.3027001D-03, - + 0.1366069D-01, 0.1444059D-02, 0.2905299D-03, - + 0.1772278D-01, 0.1801523D-02, 0.3558742D-03, - + 0.2023822D-01, 0.2072187D-02, 0.4166499D-03, - + 0.2644215D-01, 0.2771042D-02, 0.5918701D-03, - + 0.2909433D-01, 0.3064977D-02, 0.6721645D-03, - + 0.3788805D-01, 0.4037122D-02, 0.9411313D-03, - + 0.4661037D-01, 0.4998478D-02, 0.1204081D-02, - + 0.5524982D-01, 0.5948604D-02, 0.1459074D-02, - + 0.6381416D-01, 0.6888909D-02, 0.1707222D-02, - + 0.7231476D-01, 0.7821029D-02, 0.1949374D-02/ - DATA (SIG(61,K),QNS(61,K),GL(61,K), K=1,11) / - + 0.1137865D-01, 0.1181574D-02, 0.2318165D-03, - + 0.1312101D-01, 0.1391639D-02, 0.2292968D-03, - + 0.1728060D-01, 0.1756671D-02, 0.2919582D-03, - + 0.1984164D-01, 0.2032277D-02, 0.3478124D-03, - + 0.2612261D-01, 0.2740417D-02, 0.5046158D-03, - + 0.2879571D-01, 0.3036838D-02, 0.5753994D-03, - + 0.3762338D-01, 0.4013233D-02, 0.8101543D-03, - + 0.4634261D-01, 0.4974653D-02, 0.1037667D-02, - + 0.5495655D-01, 0.5922305D-02, 0.1257321D-02, - + 0.6348138D-01, 0.6858553D-02, 0.1470516D-02, - + 0.7193348D-01, 0.7785600D-02, 0.1677973D-02/ - DATA (SIG(62,K),QNS(62,K),GL(62,K), K=1,11) / - + 0.1074991D-01, 0.1119738D-02, 0.1739793D-03, - + 0.1256094D-01, 0.1336577D-02, 0.1783844D-03, - + 0.1683025D-01, 0.1710325D-02, 0.2374660D-03, - + 0.1944256D-01, 0.1991544D-02, 0.2881699D-03, - + 0.2580777D-01, 0.2709886D-02, 0.4270664D-03, - + 0.2850296D-01, 0.3008949D-02, 0.4888655D-03, - + 0.3736416D-01, 0.3989588D-02, 0.6918148D-03, - + 0.4607655D-01, 0.4950653D-02, 0.8868018D-03, - + 0.5466002D-01, 0.5895256D-02, 0.1074146D-02, - + 0.6314003D-01, 0.6826821D-02, 0.1254700D-02, - + 0.7153834D-01, 0.7748167D-02, 0.1425246D-02/ - DATA (SIG(63,K),QNS(63,K),GL(63,K), K=1,11) / - + 0.1007400D-01, 0.1052383D-02, 0.1274453D-03, - + 0.1197358D-01, 0.1278152D-02, 0.1364337D-03, - + 0.1636572D-01, 0.1661868D-02, 0.1911371D-03, - + 0.1903486D-01, 0.1949365D-02, 0.2365329D-03, - + 0.2549000D-01, 0.2678687D-02, 0.3580925D-03, - + 0.2820758D-01, 0.2980457D-02, 0.4114234D-03, - + 0.3709858D-01, 0.3964979D-02, 0.5848546D-03, - + 0.4579694D-01, 0.4924896D-02, 0.7500401D-03, - + 0.5434155D-01, 0.5865502D-02, 0.9080527D-03, - + 0.6276812D-01, 0.6791399D-02, 0.1059851D-02, - + 0.7110417D-01, 0.7706069D-02, 0.1202185D-02/ - DATA (SIG(64,K),QNS(64,K),GL(64,K), K=1,11) / - + 0.9622924D-02, 0.1006979D-02, 0.1033961D-03, - + 0.1158935D-01, 0.1239575D-02, 0.1142204D-03, - + 0.1606518D-01, 0.1630195D-02, 0.1658357D-03, - + 0.1877257D-01, 0.1921954D-02, 0.2078648D-03, - + 0.2528606D-01, 0.2658460D-02, 0.3189058D-03, - + 0.2801733D-01, 0.2961906D-02, 0.3672030D-03, - + 0.3692332D-01, 0.3948482D-02, 0.5233033D-03, - + 0.4560741D-01, 0.4907079D-02, 0.6711742D-03, - + 0.5412171D-01, 0.5844512D-02, 0.8123121D-03, - + 0.6250880D-01, 0.6766180D-02, 0.9483706D-03, - + 0.7079999D-01, 0.7676003D-02, 0.1079576D-02/ - DATA (SIG(65,K),QNS(65,K),GL(65,K), K=1,11) / - + 0.9146037D-02, 0.9586166D-03, 0.8279114D-04, - + 0.1118984D-01, 0.1199183D-02, 0.9473437D-04, - + 0.1575466D-01, 0.1597227D-02, 0.1430530D-03, - + 0.1850232D-01, 0.1893508D-02, 0.1816995D-03, - + 0.2507520D-01, 0.2637382D-02, 0.2824857D-03, - + 0.2781954D-01, 0.2942452D-02, 0.3259477D-03, - + 0.3673635D-01, 0.3930649D-02, 0.4655528D-03, - + 0.4540055D-01, 0.4887307D-02, 0.5970734D-03, - + 0.5387853D-01, 0.5820898D-02, 0.7223289D-03, - + 0.6222016D-01, 0.6737665D-02, 0.8434945D-03, - + 0.7046065D-01, 0.7641985D-02, 0.9635346D-03/ - DATA (SIG(66,K),QNS(66,K),GL(66,K), K=1,11) / - + 0.8639353D-02, 0.9068600D-03, 0.6529791D-04, - + 0.1077253D-01, 0.1156700D-02, 0.7772599D-04, - + 0.1543193D-01, 0.1562728D-02, 0.1225721D-03, - + 0.1822189D-01, 0.1863792D-02, 0.1578370D-03, - + 0.2485458D-01, 0.2615166D-02, 0.2486485D-03, - + 0.2761103D-01, 0.2921773D-02, 0.2874734D-03, - + 0.3653314D-01, 0.3911010D-02, 0.4114025D-03, - + 0.4517043D-01, 0.4864960D-02, 0.5275054D-03, - + 0.5360474D-01, 0.5793892D-02, 0.6378053D-03, - + 0.6189362D-01, 0.6704948D-02, 0.7445840D-03, - + 0.7007635D-01, 0.7602974D-02, 0.8515526D-03/ - DATA (SIG(67,K),QNS(67,K),GL(67,K), K=1,11) / - + 0.8097853D-02, 0.8511551D-03, 0.5060323D-04, - + 0.1033647D-01, 0.1112007D-02, 0.6285172D-04, - + 0.1509471D-01, 0.1526449D-02, 0.1041970D-03, - + 0.1792878D-01, 0.1832549D-02, 0.1361005D-03, - + 0.2462094D-01, 0.2591474D-02, 0.2172318D-03, - + 0.2738810D-01, 0.2899482D-02, 0.2516174D-03, - + 0.3630841D-01, 0.3889008D-02, 0.3606749D-03, - + 0.4491017D-01, 0.4839302D-02, 0.4622659D-03, - + 0.5329193D-01, 0.5762589D-02, 0.5584833D-03, - + 0.6151933D-01, 0.6666957D-02, 0.6511047D-03, - + 0.6963580D-01, 0.7557742D-02, 0.7414816D-03/ - DATA (SIG(68,K),QNS(68,K),GL(68,K), K=1,11) / - + 0.7514872D-02, 0.7907674D-03, 0.3841250D-04, - + 0.9873614D-02, 0.1064245D-02, 0.5014641D-04, - + 0.1473850D-01, 0.1487915D-02, 0.8776989D-04, - + 0.1761894D-01, 0.1799351D-02, 0.1163357D-03, - + 0.2436997D-01, 0.2565861D-02, 0.1880906D-03, - + 0.2714606D-01, 0.2875096D-02, 0.2182348D-03, - + 0.3605581D-01, 0.3863979D-02, 0.3132148D-03, - + 0.4461159D-01, 0.4809469D-02, 0.4011823D-03, - + 0.5293010D-01, 0.5725924D-02, 0.4842680D-03, - + 0.6108553D-01, 0.6622438D-02, 0.5640514D-03, - + 0.6912561D-01, 0.7504852D-02, 0.6412635D-03/ - DATA (SIG(69,K),QNS(69,K),GL(69,K), K=1,11) / - + 0.6880619D-02, 0.7246115D-03, 0.2844760D-04, - + 0.9380667D-02, 0.1013034D-02, 0.3929549D-04, - + 0.1435947D-01, 0.1446701D-02, 0.7312048D-04, - + 0.1728859D-01, 0.1763800D-02, 0.9839339D-04, - + 0.2409705D-01, 0.2537849D-02, 0.1610956D-03, - + 0.2687972D-01, 0.2848077D-02, 0.1871983D-03, - + 0.3576791D-01, 0.3835137D-02, 0.2688886D-03, - + 0.4426491D-01, 0.4774415D-02, 0.3441027D-03, - + 0.5250722D-01, 0.5682603D-02, 0.4149649D-03, - + 0.6057806D-01, 0.6569860D-02, 0.4829946D-03, - + 0.6852953D-01, 0.7442548D-02, 0.5491281D-03/ - DATA (SIG(70,K),QNS(70,K),GL(70,K), K=1,11) / - + 0.6175053D-02, 0.6504649D-03, 0.2044622D-04, - + 0.8848811D-02, 0.9573941D-03, 0.3013649D-04, - + 0.1395049D-01, 0.1402032D-02, 0.6010827D-04, - + 0.1693154D-01, 0.1725234D-02, 0.8214608D-04, - + 0.2379598D-01, 0.2506793D-02, 0.1361355D-03, - + 0.2658237D-01, 0.2817723D-02, 0.1583990D-03, - + 0.3543548D-01, 0.3801509D-02, 0.2275843D-03, - + 0.4385810D-01, 0.4732856D-02, 0.2909021D-03, - + 0.5200849D-01, 0.5631034D-02, 0.3504226D-03, - + 0.5997947D-01, 0.6507340D-02, 0.4076877D-03, - + 0.6782766D-01, 0.7368673D-02, 0.4644050D-03/ - DATA (SIG(71,K),QNS(71,K),GL(71,K), K=1,11) / - + 0.5398744D-02, 0.5683946D-03, 0.1416060D-04, - + 0.8281431D-02, 0.8976869D-03, 0.2239874D-04, - + 0.1351845D-01, 0.1354687D-02, 0.4860597D-04, - + 0.1655331D-01, 0.1684299D-02, 0.6748272D-04, - + 0.2346726D-01, 0.2472803D-02, 0.1131140D-03, - + 0.2625230D-01, 0.2783907D-02, 0.1317435D-03, - + 0.3505035D-01, 0.3762254D-02, 0.1892110D-03, - + 0.4337771D-01, 0.4683367D-02, 0.2414809D-03, - + 0.5141607D-01, 0.5569306D-02, 0.2904725D-03, - + 0.5926806D-01, 0.6432540D-02, 0.3373234D-03, - + 0.6699463D-01, 0.7280485D-02, 0.3822983D-03/ - DATA (SIG(72,K),QNS(72,K),GL(72,K), K=1,11) / - + 0.4588185D-02, 0.4824567D-03, 0.9356528D-05, - + 0.7692733D-02, 0.8355193D-03, 0.1615647D-04, - + 0.1306276D-01, 0.1304628D-02, 0.3850066D-04, - + 0.1614865D-01, 0.1640468D-02, 0.5429527D-04, - + 0.2309929D-01, 0.2434666D-02, 0.9194451D-04, - + 0.2587607D-01, 0.2745214D-02, 0.1071520D-03, - + 0.3459412D-01, 0.3715406D-02, 0.1537015D-03, - + 0.4280104D-01, 0.4623504D-02, 0.1957761D-03, - + 0.5070320D-01, 0.5494522D-02, 0.2351316D-03, - + 0.5841316D-01, 0.6342127D-02, 0.2728421D-03, - + 0.6599612D-01, 0.7174248D-02, 0.3096146D-03/ - DATA (SIG(73,K),QNS(73,K),GL(73,K), K=1,11) / - + 0.3641422D-02, 0.3813268D-03, 0.5812531D-05, - + 0.7030305D-02, 0.7650499D-03, 0.1118915D-04, - + 0.1254823D-01, 0.1247977D-02, 0.2969350D-04, - + 0.1568961D-01, 0.1590694D-02, 0.4250254D-04, - + 0.2267060D-01, 0.2390098D-02, 0.7257038D-04, - + 0.2543256D-01, 0.2699404D-02, 0.8457547D-04, - + 0.3404272D-01, 0.3658409D-02, 0.1210229D-03, - + 0.4209881D-01, 0.4550128D-02, 0.1537602D-03, - + 0.4983488D-01, 0.5402912D-02, 0.1843363D-03, - + 0.5737408D-01, 0.6231706D-02, 0.2137833D-03, - + 0.6478584D-01, 0.7044951D-02, 0.2434280D-03/ - DATA (SIG(74,K),QNS(74,K),GL(74,K), K=1,11) / - + 0.2442180D-02, 0.2520874D-03, 0.3318887D-05, - + 0.6246053D-02, 0.6809301D-03, 0.7439917D-05, - + 0.1194027D-01, 0.1180934D-02, 0.2212418D-04, - + 0.1514887D-01, 0.1532038D-02, 0.3205041D-04, - + 0.2215876D-01, 0.2336753D-02, 0.5495747D-04, - + 0.2489860D-01, 0.2644056D-02, 0.6398874D-04, - + 0.3336605D-01, 0.3588071D-02, 0.9117621D-04, - + 0.4123181D-01, 0.4459036D-02, 0.1154432D-03, - + 0.4876278D-01, 0.5289257D-02, 0.1379148D-03, - + 0.5609374D-01, 0.6095086D-02, 0.1579914D-03, - + 0.6329842D-01, 0.6885487D-02, 0.1694595D-03/ - DATA (SIG(75,K),QNS(75,K),GL(75,K), K=1,11) / - + 0.2725973D-03, 0.1497779D-04, 0.1676913D-05, - + 0.4997874D-02, 0.5451269D-03, 0.4794887D-05, - + 0.1111990D-01, 0.1090347D-02, 0.1574706D-04, - + 0.1446766D-01, 0.1458127D-02, 0.2289941D-04, - + 0.2155396D-01, 0.2273767D-02, 0.3908881D-04, - + 0.2426704D-01, 0.2578614D-02, 0.4538793D-04, - + 0.3254323D-01, 0.3502312D-02, 0.6420119D-04, - + 0.4015768D-01, 0.4345752D-02, 0.8092218D-04, - + 0.4742446D-01, 0.5146848D-02, 0.9654040D-04, - + 0.5449197D-01, 0.5923595D-02, 0.1118682D-03, - + 0.6143754D-01, 0.6685400D-02, 0.1288652D-03/ - DATA (SIG(76,K),QNS(76,K),GL(76,K), K=1,11) / - + 0.2031153D-03, 0.1116017D-04, 0.6982608D-06, - + 0.4974824D-02, 0.5453293D-03, 0.2608937D-05, - + 0.1105191D-01, 0.1083556D-02, 0.1014033D-04, - + 0.1431165D-01, 0.1443205D-02, 0.1469766D-04, - + 0.2112373D-01, 0.2231271D-02, 0.2478729D-04, - + 0.2371064D-01, 0.2522687D-02, 0.2865972D-04, - + 0.3157121D-01, 0.3401200D-02, 0.4014286D-04, - + 0.3879308D-01, 0.4201408D-02, 0.5031873D-04, - + 0.4569130D-01, 0.4961783D-02, 0.5985590D-04, - + 0.5240933D-01, 0.5699913D-02, 0.6945468D-04, - + 0.5901973D-01, 0.6424723D-02, 0.8133991D-04/ - DATA (SIG(77,K),QNS(77,K),GL(77,K), K=1,11) / - + 0.1345390D-03, 0.7392253D-05, 0.2042386D-06, - + 0.4921615D-02, 0.5420251D-03, 0.7561732D-06, - + 0.1088284D-01, 0.1066024D-02, 0.5069232D-05, - + 0.1399945D-01, 0.1412158D-02, 0.7312571D-05, - + 0.2040805D-01, 0.2158973D-02, 0.1213798D-04, - + 0.2281829D-01, 0.2431431D-02, 0.1395974D-04, - + 0.3011432D-01, 0.3248235D-02, 0.1932136D-04, - + 0.3681532D-01, 0.3990908D-02, 0.2406288D-04, - + 0.4322868D-01, 0.4697631D-02, 0.2851021D-04, - + 0.4948774D-01, 0.5385024D-02, 0.3292002D-04, - + 0.5565732D-01, 0.6061184D-02, 0.3790388D-04/ - DATA (SIG(78,K),QNS(78,K),GL(78,K), K=1,11) / - + 0.6684235D-04, 0.3672657D-05, 0.2520666D-07, - + 0.4787180D-02, 0.5296710D-03, 0.7858168D-08, - + 0.1047770D-01, 0.1023679D-02, 0.7086373D-06, - + 0.1333311D-01, 0.1344802D-02, 0.1007223D-05, - + 0.1907124D-01, 0.2021903D-02, 0.1626336D-05, - + 0.2120296D-01, 0.2264166D-02, 0.1856073D-05, - + 0.2763801D-01, 0.2986157D-02, 0.2528095D-05, - + 0.3356345D-01, 0.3642820D-02, 0.3119144D-05, - + 0.3925936D-01, 0.4270031D-02, 0.3576717D-05, - + 0.4483872D-01, 0.4882277D-02, 0.3037903D-05, - + 0.5035331D-01, 0.5486195D-02,-0.3139074D-05/ -****************************************************************** -*if x is out of range - U = ZEROD - D = ZEROD - S = ZEROD - C = ZEROD - B = ZEROD - G = ZEROD - IF((X.LT.5.0D-4).OR.(X.GT.0.99D0)) GOTO 90 -******************************************************************* - IF (ICALL.NE.1) THEN -* get the x coordinates - CALL GSXCOR(Y,NP) - ICALL=1 - END IF -* - DO 30 IX=1,NP - A(IX)=Y(IX) - 30 CONTINUE - DO 40 IQ=1,NQ - A(NP+IQ)=QT(IQ) - 40 CONTINUE -* - Q2 = Q*Q - NA(1)=NP - NA(2)=NQ - XT(1)=X - XT(2)=Q2 - XSIG=DBFINT(2,XT,NA,A,SIG) - XQNS=DBFINT(2,XT,NA,A,QNS) - G =DBFINT(2,XT,NA,A,GL) -* - IF (Q2.LT.50.0D0) THEN -C Use three flavour evolution. - U=(XSIG+9.0D0*XQNS)/6.0D0 - D=(XSIG-4.5D0*XQNS)/6.0D0 - S=D - C=ZEROD - B=ZEROD -* - ELSE IF((Q2.GT.50.0D0).AND.(Q2.LT.250.0D0)) THEN -C Use four flavour evolution - U=(XSIG+6.D0*XQNS)/8.0D0 - D=(XSIG-6.D0*XQNS)/8.0D0 - S=D - C=U - B=ZEROD - ELSE -C Use five flavour evolution - U=(XSIG+7.5D0*XQNS)/10.0D0 - D=(XSIG-5.D0*XQNS)/10.0D0 - S=D - C=U - B=D - ENDIF - U=X*U - US=U - D=X*D - DS=D - S=X*S - C=X*C - B=X*B - G=X*G - 90 RETURN - END diff --git a/PDF/spdf/sfgslo2.F b/PDF/spdf/sfgslo2.F deleted file mode 100644 index 92cb5c03d7b..00000000000 --- a/PDF/spdf/sfgslo2.F +++ /dev/null @@ -1,1039 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:53 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:36 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFGSLO2(X,Q,U,D,US,DS,S,C,B,G) - -***************************************************************** -* Subroutine returns the parton distributions in the photon in * -* leading order. u,d etc. gives * -* x times the distributions; Q2 means Q 2. The distributions* -* are valid for 5.0e -4< x < 1.0 and 5.3 GeV 2 < Q 2 < 1.0e 8. * -* if higher Q 2 or lower x is required, these may be obtained * -* from the authors on request. ISET=1 chooses a harder gluon * -* distribution. * -* Lionel Gordon July 1991 : Gordon@uk.ac.man.ph.v2 * -***************************************************************** -C -#include "pdf/impdp.inc" - PARAMETER(NP=78,NQ=11,NARG=2) -#include "pdf/expdp.inc" - + DBFINT, - + SIG(NP,NQ),QNS(NP,NQ),GL(NP,NQ),Y(NP), - + XT(NARG),A(NP+NQ),QT(NQ) - DIMENSION NA(NARG) - EXTERNAL GSXCOR - SAVE SIG,QNS,GL,Y,ICALL - DATA QT /5.3D0,20.0D0,50.0D0,1.0D2,5.0D2,1.0D3,1.0D4,1.0D5, - * 1.0D6,1.0D7,1.0D8/ - DATA ZEROD/0.D0/ - DATA ICALL/0/ - DATA (SIG(1 ,K),QNS(1 ,K),GL(1 ,K), K=1,11) / - + 0.1001201D+02, 0.2955027D-01, 0.4014422D+02, - + 0.1520649D+02, 0.3565433D-01, 0.1411348D+03, - + 0.2269219D+02, 0.4652600D-01, 0.2346022D+03, - + 0.3111953D+02, 0.5015592D-01, 0.3130608D+03, - + 0.5771281D+02, 0.6232776D-01, 0.5168353D+03, - + 0.7032112D+02, 0.6714210D-01, 0.6089606D+03, - + 0.1168419D+03, 0.8328690D-01, 0.9274825D+03, - + 0.1683443D+03, 0.9962358D-01, 0.1256198D+04, - + 0.2230113D+03, 0.1161127D+00, 0.1588646D+04, - + 0.2797452D+03, 0.1327265D+00, 0.1921691D+04, - + 0.3378567D+03, 0.1494446D+00, 0.2253792D+04/ - DATA (SIG(2 ,K),QNS(2 ,K),GL(2 ,K), K=1,11) / - + 0.3454344D+01, 0.1859512D-01, 0.1329268D+02, - + 0.5322830D+01, 0.2254013D-01, 0.3691824D+02, - + 0.7867405D+01, 0.3080488D-01, 0.5637647D+02, - + 0.1057068D+02, 0.3310206D-01, 0.7157190D+02, - + 0.1864028D+02, 0.4156727D-01, 0.1080786D+03, - + 0.2228195D+02, 0.4484870D-01, 0.1236305D+03, - + 0.3509851D+02, 0.5585410D-01, 0.1743656D+03, - + 0.4852821D+02, 0.6698711D-01, 0.2233706D+03, - + 0.6221161D+02, 0.7821754D-01, 0.2706978D+03, - + 0.7597015D+02, 0.8952515D-01, 0.3165699D+03, - + 0.8971333D+02, 0.1008956D+00, 0.3612254D+03/ - DATA (SIG(3 ,K),QNS(3 ,K),GL(3 ,K), K=1,11) / - + 0.2121281D+01, 0.1513978D-01, 0.7928871D+01, - + 0.3229393D+01, 0.1842273D-01, 0.1973442D+02, - + 0.4685472D+01, 0.2574320D-01, 0.2897214D+02, - + 0.6172252D+01, 0.2762416D-01, 0.3595784D+02, - + 0.1048352D+02, 0.3485581D-01, 0.5219241D+02, - + 0.1237995D+02, 0.3763255D-01, 0.5894186D+02, - + 0.1889984D+02, 0.4693942D-01, 0.8047654D+02, - + 0.2555286D+02, 0.5634555D-01, 0.1007941D+03, - + 0.3220530D+02, 0.6582623D-01, 0.1201395D+03, - + 0.3880233D+02, 0.7536519D-01, 0.1387318D+03, - + 0.4532360D+02, 0.8495111D-01, 0.1567431D+03/ - DATA (SIG(4 ,K),QNS(4 ,K),GL(4 ,K), K=1,11) / - + 0.1543464D+01, 0.1326884D-01, 0.5632548D+01, - + 0.2316019D+01, 0.1619202D-01, 0.1304977D+02, - + 0.3307298D+01, 0.2295312D-01, 0.1866749D+02, - + 0.4288005D+01, 0.2460686D-01, 0.2282806D+02, - + 0.7077272D+01, 0.3113984D-01, 0.3229663D+02, - + 0.8282985D+01, 0.3363265D-01, 0.3617478D+02, - + 0.1236456D+02, 0.4198262D-01, 0.4838806D+02, - + 0.1645833D+02, 0.5041463D-01, 0.5976289D+02, - + 0.2050364D+02, 0.5890765D-01, 0.7051933D+02, - + 0.2448171D+02, 0.6744798D-01, 0.8082289D+02, - + 0.2839022D+02, 0.7602622D-01, 0.9079259D+02/ - DATA (SIG(5 ,K),QNS(5 ,K),GL(5 ,K), K=1,11) / - + 0.1219433D+01, 0.1204527D-01, 0.4358105D+01, - + 0.1805245D+01, 0.1473045D-01, 0.9572778D+01, - + 0.2544387D+01, 0.2109975D-01, 0.1342878D+02, - + 0.3256197D+01, 0.2260316D-01, 0.1624080D+02, - + 0.5251921D+01, 0.2866164D-01, 0.2254296D+02, - + 0.6103218D+01, 0.3096262D-01, 0.2509699D+02, - + 0.8952094D+01, 0.3866571D-01, 0.3306903D+02, - + 0.1177368D+02, 0.4643894D-01, 0.4043243D+02, - + 0.1453848D+02, 0.5426396D-01, 0.4736932D+02, - + 0.1724163D+02, 0.6212893D-01, 0.5400590D+02, - + 0.1988677D+02, 0.7002579D-01, 0.6042843D+02/ - DATA (SIG(6 ,K),QNS(6 ,K),GL(6 ,K), K=1,11) / - + 0.1011531D+01, 0.1116152D-01, 0.3547886D+01, - + 0.1479381D+01, 0.1367256D-01, 0.7468752D+01, - + 0.2062511D+01, 0.1974278D-01, 0.1031370D+02, - + 0.2610758D+01, 0.2113642D-01, 0.1236271D+02, - + 0.4130833D+01, 0.2684110D-01, 0.1690005D+02, - + 0.4772286D+01, 0.2899967D-01, 0.1872401D+02, - + 0.6899490D+01, 0.3622243D-01, 0.2438008D+02, - + 0.8985679D+01, 0.4350645D-01, 0.2957468D+02, - + 0.1101682D+02, 0.5083547D-01, 0.3445816D+02, - + 0.1299419D+02, 0.5819908D-01, 0.3912936D+02, - + 0.1492357D+02, 0.6559021D-01, 0.4365351D+02/ - DATA (SIG(7 ,K),QNS(7 ,K),GL(7 ,K), K=1,11) / - + 0.8665296D+00, 0.1048272D-01, 0.2987500D+01, - + 0.1253585D+01, 0.1285820D-01, 0.6070546D+01, - + 0.1731670D+01, 0.1868786D-01, 0.8272797D+01, - + 0.2171419D+01, 0.1999625D-01, 0.9842484D+01, - + 0.3379709D+01, 0.2542164D-01, 0.1328421D+02, - + 0.3884986D+01, 0.2746820D-01, 0.1465882D+02, - + 0.5548106D+01, 0.3431315D-01, 0.1890005D+02, - + 0.7166167D+01, 0.4121241D-01, 0.2277959D+02, - + 0.8733556D+01, 0.4815142D-01, 0.2642291D+02, - + 0.1025445D+02, 0.5512090D-01, 0.2990938D+02, - + 0.1173527D+02, 0.6211456D-01, 0.3328994D+02/ - DATA (SIG(8 ,K),QNS(8 ,K),GL(8 ,K), K=1,11) / - + 0.7594660D+00, 0.9938753D-02, 0.2576934D+01, - + 0.1087976D+01, 0.1220429D-01, 0.5080088D+01, - + 0.1491041D+01, 0.1783343D-01, 0.6844357D+01, - + 0.1854323D+01, 0.1907289D-01, 0.8090606D+01, - + 0.2845068D+01, 0.2426914D-01, 0.1080037D+02, - + 0.3256133D+01, 0.2622410D-01, 0.1187689D+02, - + 0.4600628D+01, 0.3276007D-01, 0.1518524D+02, - + 0.5899998D+01, 0.3934474D-01, 0.1820276D+02, - + 0.7153488D+01, 0.4596494D-01, 0.2103550D+02, - + 0.8366651D+01, 0.5261231D-01, 0.2374855D+02, - + 0.9545962D+01, 0.5928123D-01, 0.2638268D+02/ - DATA (SIG(9 ,K),QNS(9 ,K),GL(9 ,K), K=1,11) / - + 0.6770721D+00, 0.9489263D-02, 0.2263260D+01, - + 0.9613553D+00, 0.1166290D-01, 0.4345114D+01, - + 0.1308470D+01, 0.1712059D-01, 0.5795414D+01, - + 0.1615381D+01, 0.1830263D-01, 0.6811776D+01, - + 0.2447169D+01, 0.2330556D-01, 0.9005742D+01, - + 0.2789900D+01, 0.2518346D-01, 0.9873459D+01, - + 0.3904803D+01, 0.3145953D-01, 0.1253167D+02, - + 0.4976195D+01, 0.3777964D-01, 0.1495128D+02, - + 0.6006228D+01, 0.4413179D-01, 0.1722302D+02, - + 0.7001065D+01, 0.5050841D-01, 0.1940113D+02, - + 0.7966968D+01, 0.5690443D-01, 0.2151895D+02/ - DATA (SIG(10,K),QNS(10,K),GL(10,K), K=1,11) / - + 0.6116338D+00, 0.9109087D-02, 0.2015847D+01, - + 0.8614222D+00, 0.1120419D-01, 0.3780118D+01, - + 0.1165383D+01, 0.1651245D-01, 0.4996497D+01, - + 0.1429281D+01, 0.1764553D-01, 0.5842898D+01, - + 0.2140716D+01, 0.2248192D-01, 0.7658350D+01, - + 0.2432047D+01, 0.2429359D-01, 0.8373641D+01, - + 0.3375248D+01, 0.3034633D-01, 0.1055928D+02, - + 0.4277221D+01, 0.3643916D-01, 0.1254599D+02, - + 0.5141894D+01, 0.4256109D-01, 0.1441219D+02, - + 0.5975632D+01, 0.4870525D-01, 0.1620376D+02, - + 0.6784374D+01, 0.5486701D-01, 0.1794838D+02/ - DATA (SIG(11,K),QNS(11,K),GL(11,K), K=1,11) / - + 0.4059278D+00, 0.7720371D-02, 0.1252160D+01, - + 0.5524353D+00, 0.9520617D-02, 0.2138338D+01, - + 0.7304612D+00, 0.1424226D-01, 0.2725357D+01, - + 0.8721845D+00, 0.1519313D-01, 0.3122568D+01, - + 0.1247831D+01, 0.1939320D-01, 0.3954914D+01, - + 0.1397945D+01, 0.2095338D-01, 0.4278952D+01, - + 0.1875680D+01, 0.2615850D-01, 0.5262935D+01, - + 0.2324999D+01, 0.3138939D-01, 0.6157547D+01, - + 0.2752009D+01, 0.3663897D-01, 0.7003358D+01, - + 0.3162024D+01, 0.4190285D-01, 0.7822107D+01, - + 0.3559128D+01, 0.4717811D-01, 0.8625999D+01/ - DATA (SIG(12,K),QNS(12,K),GL(12,K), K=1,11) / - + 0.3138786D+00, 0.6961782D-02, 0.9201018D+00, - + 0.4175822D+00, 0.8594582D-02, 0.1478793D+01, - + 0.5450424D+00, 0.1296489D-01, 0.1839103D+01, - + 0.6396218D+00, 0.1381361D-01, 0.2078171D+01, - + 0.8886108D+00, 0.1764489D-01, 0.2571802D+01, - + 0.9865214D+00, 0.1906050D-01, 0.2762852D+01, - + 0.1295061D+01, 0.2377881D-01, 0.3342346D+01, - + 0.1582732D+01, 0.2851540D-01, 0.3871711D+01, - + 0.1855141D+01, 0.3326538D-01, 0.4376209D+01, - + 0.2116481D+01, 0.3802572D-01, 0.4868533D+01, - + 0.2369736D+01, 0.4279440D-01, 0.5355356D+01/ - DATA (SIG(13,K),QNS(13,K),GL(13,K), K=1,11) / - + 0.2570156D+00, 0.6424484D-02, 0.7196354D+00, - + 0.3357928D+00, 0.7935347D-02, 0.1101251D+01, - + 0.4343536D+00, 0.1204144D-01, 0.1341759D+01, - + 0.5027834D+00, 0.1281637D-01, 0.1498570D+01, - + 0.6825307D+00, 0.1637578D-01, 0.1818445D+01, - + 0.7522866D+00, 0.1768538D-01, 0.1941829D+01, - + 0.9705584D+00, 0.2204705D-01, 0.2316552D+01, - + 0.1172936D+01, 0.2642202D-01, 0.2661374D+01, - + 0.1364290D+01, 0.3080692D-01, 0.2993047D+01, - + 0.1547962D+01, 0.3519968D-01, 0.3319452D+01, - + 0.1726212D+01, 0.3959887D-01, 0.3644363D+01/ - DATA (SIG(14,K),QNS(14,K),GL(14,K), K=1,11) / - + 0.2187037D+00, 0.6016589D-02, 0.5875905D+00, - + 0.2816192D+00, 0.7432679D-02, 0.8646647D+00, - + 0.3620820D+00, 0.1132833D-01, 0.1036109D+01, - + 0.4146359D+00, 0.1204625D-01, 0.1146303D+01, - + 0.5529318D+00, 0.1539231D-01, 0.1369183D+01, - + 0.6060635D+00, 0.1661907D-01, 0.1455123D+01, - + 0.7716201D+00, 0.2070237D-01, 0.1717133D+01, - + 0.9247498D+00, 0.2479544D-01, 0.1960536D+01, - + 0.1069604D+01, 0.2889609D-01, 0.2196948D+01, - + 0.1208881D+01, 0.3300291D-01, 0.2431482D+01, - + 0.1344335D+01, 0.3711492D-01, 0.2666339D+01/ - DATA (SIG(15,K),QNS(15,K),GL(15,K), K=1,11) / - + 0.1910339D+00, 0.5691203D-02, 0.4941807D+00, - + 0.2430614D+00, 0.7030179D-02, 0.7040123D+00, - + 0.3112376D+00, 0.1075136D-01, 0.8318765D+00, - + 0.3533130D+00, 0.1142309D-01, 0.9130735D+00, - + 0.4645427D+00, 0.1459422D-01, 0.1076339D+01, - + 0.5069412D+00, 0.1575330D-01, 0.1139405D+01, - + 0.6387553D+00, 0.1960939D-01, 0.1332763D+01, - + 0.7606292D+00, 0.2347269D-01, 0.1514336D+01, - + 0.8761060D+00, 0.2734189D-01, 0.1692424D+01, - + 0.9873938D+00, 0.3121611D-01, 0.1870447D+01, - + 0.1095889D+01, 0.3509468D-01, 0.2049772D+01/ - DATA (SIG(16,K),QNS(16,K),GL(16,K), K=1,11) / - + 0.1699968D+00, 0.5422205D-02, 0.4244849D+00, - + 0.2141108D+00, 0.6696302D-02, 0.5880855D+00, - + 0.2734098D+00, 0.1026865D-01, 0.6864454D+00, - + 0.3081069D+00, 0.1090162D-01, 0.7482291D+00, - + 0.4004274D+00, 0.1392474D-01, 0.8719418D+00, - + 0.4353949D+00, 0.1502672D-01, 0.9198927D+00, - + 0.5439979D+00, 0.1869130D-01, 0.1067925D+01, - + 0.6445016D+00, 0.2236121D-01, 0.1208568D+01, - + 0.7399485D+00, 0.2603582D-01, 0.1347858D+01, - + 0.8321728D+00, 0.2971465D-01, 0.1488103D+01, - + 0.9223059D+00, 0.3339726D-01, 0.1630155D+01/ - DATA (SIG(17,K),QNS(17,K),GL(17,K), K=1,11) / - + 0.1534201D+00, 0.5194013D-02, 0.3705261D+00, - + 0.1915611D+00, 0.6412141D-02, 0.5009002D+00, - + 0.2441567D+00, 0.9854891D-02, 0.5783718D+00, - + 0.2734244D+00, 0.1045455D-01, 0.6265323D+00, - + 0.3519204D+00, 0.1334956D-01, 0.7226887D+00, - + 0.3814976D+00, 0.1440224D-01, 0.7601378D+00, - + 0.4733550D+00, 0.1790164D-01, 0.8766831D+00, - + 0.5585145D+00, 0.2140495D-01, 0.9887897D+00, - + 0.6396077D+00, 0.2491211D-01, 0.1100889D+01, - + 0.7181760D+00, 0.2842295D-01, 0.1214539D+01, - + 0.7951503D+00, 0.3193720D-01, 0.1330315D+01/ - DATA (SIG(18,K),QNS(18,K),GL(18,K), K=1,11) / - + 0.1399899D+00, 0.4996552D-02, 0.3275291D+00, - + 0.1731927D+00, 0.6167692D-02, 0.4340010D+00, - + 0.2207540D+00, 0.9494216D-02, 0.4954290D+00, - + 0.2459049D+00, 0.1006453D-01, 0.5336054D+00, - + 0.3139559D+00, 0.1284644D-01, 0.6097657D+00, - + 0.3394857D+00, 0.1385573D-01, 0.6396229D+00, - + 0.4188169D+00, 0.1720995D-01, 0.7334046D+00, - + 0.4925338D+00, 0.2056710D-01, 0.8247958D+00, - + 0.5629318D+00, 0.2392755D-01, 0.9170436D+00, - + 0.6313219D+00, 0.2729132D-01, 0.1011140D+01, - + 0.6984795D+00, 0.3065829D-01, 0.1107299D+01/ - DATA (SIG(19,K),QNS(19,K),GL(19,K), K=1,11) / - + 0.1288726D+00, 0.4823027D-02, 0.2924954D+00, - + 0.1582516D+00, 0.5951372D-02, 0.3803488D+00, - + 0.2017119D+00, 0.9174189D-02, 0.4299174D+00, - + 0.2236416D+00, 0.9718425D-02, 0.4606436D+00, - + 0.2835536D+00, 0.1239938D-01, 0.5219588D+00, - + 0.3059492D+00, 0.1336999D-01, 0.5461822D+00, - + 0.3756168D+00, 0.1659500D-01, 0.6230339D+00, - + 0.4405324D+00, 0.1982223D-01, 0.6989289D+00, - + 0.5027102D+00, 0.2305239D-01, 0.7762398D+00, - + 0.5632748D+00, 0.2628567D-01, 0.8555841D+00, - + 0.6228783D+00, 0.2952202D-01, 0.9370841D+00/ - DATA (SIG(20,K),QNS(20,K),GL(20,K), K=1,11) / - + 0.1195067D+00, 0.4668611D-02, 0.2634232D+00, - + 0.1459540D+00, 0.5757013D-02, 0.3361955D+00, - + 0.1859438D+00, 0.8886667D-02, 0.3770460D+00, - + 0.2052912D+00, 0.9407497D-02, 0.4021068D+00, - + 0.2587058D+00, 0.1199735D-01, 0.4521596D+00, - + 0.2786141D+00, 0.1293315D-01, 0.4721025D+00, - + 0.3406394D+00, 0.1604188D-01, 0.5360476D+00, - + 0.3986129D+00, 0.1915233D-01, 0.6000513D+00, - + 0.4543102D+00, 0.2226547D-01, 0.6658290D+00, - + 0.5087024D+00, 0.2538162D-01, 0.7337234D+00, - + 0.5623424D+00, 0.2850081D-01, 0.8037858D+00/ - DATA (SIG(21,K),QNS(21,K),GL(21,K), K=1,11) / - + 0.1115000D+00, 0.4529753D-02, 0.2389279D+00, - + 0.1354715D+00, 0.5582175D-02, 0.2998531D+00, - + 0.1726061D+00, 0.8626354D-02, 0.3337488D+00, - + 0.1898548D+00, 0.9125881D-02, 0.3543789D+00, - + 0.2379985D+00, 0.1163264D-01, 0.3956722D+00, - + 0.2558984D+00, 0.1253674D-01, 0.4122870D+00, - + 0.3117678D+00, 0.1553977D-01, 0.4661722D+00, - + 0.3641574D+00, 0.1854419D-01, 0.5208510D+00, - + 0.4146409D+00, 0.2155121D-01, 0.5775262D+00, - + 0.4640623D+00, 0.2456123D-01, 0.6362971D+00, - + 0.5128937D+00, 0.2757431D-01, 0.6969613D+00/ - DATA (SIG(22,K),QNS(22,K),GL(22,K), K=1,11) / - + 0.1045704D+00, 0.4403776D-02, 0.2180216D+00, - + 0.1264625D+00, 0.5423210D-02, 0.2693866D+00, - + 0.1611852D+00, 0.8388596D-02, 0.2977345D+00, - + 0.1766999D+00, 0.8868589D-02, 0.3148528D+00, - + 0.2204938D+00, 0.1129899D-01, 0.3492297D+00, - + 0.2367438D+00, 0.1217403D-01, 0.3632144D+00, - + 0.2875661D+00, 0.1508022D-01, 0.4091231D+00, - + 0.3353824D+00, 0.1798767D-01, 0.4563585D+00, - + 0.3815939D+00, 0.2089771D-01, 0.5057280D+00, - + 0.4269380D+00, 0.2381081D-01, 0.5571908D+00, - + 0.4718204D+00, 0.2672705D-01, 0.6105771D+00/ - DATA (SIG(23,K),QNS(23,K),GL(23,K), K=1,11) / - + 0.9850968D-01, 0.4288634D-02, 0.1999812D+00, - + 0.1186304D+00, 0.5277643D-02, 0.2435429D+00, - + 0.1512908D+00, 0.8169893D-02, 0.2673986D+00, - + 0.1653534D+00, 0.8631858D-02, 0.2816943D+00, - + 0.2055072D+00, 0.1099163D-01, 0.3105319D+00, - + 0.2203819D+00, 0.1183982D-01, 0.3224077D+00, - + 0.2670045D+00, 0.1465673D-01, 0.3618959D+00, - + 0.3110175D+00, 0.1747486D-01, 0.4030974D+00, - + 0.3536738D+00, 0.2029568D-01, 0.4465096D+00, - + 0.3956206D+00, 0.2311969D-01, 0.4919991D+00, - + 0.4372080D+00, 0.2594695D-01, 0.5394946D+00/ - DATA (SIG(24,K),QNS(24,K),GL(24,K), K=1,11) / - + 0.9316059D-01, 0.4182739D-02, 0.1842643D+00, - + 0.1117564D+00, 0.5143512D-02, 0.2213859D+00, - + 0.1426326D+00, 0.7967487D-02, 0.2415615D+00, - + 0.1554647D+00, 0.8412716D-02, 0.2535626D+00, - + 0.1925343D+00, 0.1070676D-01, 0.2779095D+00, - + 0.2062482D+00, 0.1153004D-01, 0.2880726D+00, - + 0.2493299D+00, 0.1426414D-01, 0.3223246D+00, - + 0.2901372D+00, 0.1699957D-01, 0.3585681D+00, - + 0.3297940D+00, 0.1973785D-01, 0.3970448D+00, - + 0.3688706D+00, 0.2247949D-01, 0.4374617D+00, - + 0.4076700D+00, 0.2522453D-01, 0.4793542D+00/ - DATA (SIG(25,K),QNS(25,K),GL(25,K), K=1,11) / - + 0.8840203D-01, 0.4084798D-02, 0.1704574D+00, - + 0.1056724D+00, 0.5019246D-02, 0.2022156D+00, - + 0.1349903D+00, 0.7779162D-02, 0.2193450D+00, - + 0.1467682D+00, 0.8208777D-02, 0.2294611D+00, - + 0.1811965D+00, 0.1044138D-01, 0.2501289D+00, - + 0.1939192D+00, 0.1124141D-01, 0.2588857D+00, - + 0.2339811D+00, 0.1389834D-01, 0.2888182D+00, - + 0.2720542D+00, 0.1655680D-01, 0.3209401D+00, - + 0.3091497D+00, 0.1921835D-01, 0.3552901D+00, - + 0.3457722D+00, 0.2188346D-01, 0.3914645D+00, - + 0.3821843D+00, 0.2455215D-01, 0.4287555D+00/ - DATA (SIG(26,K),QNS(26,K),GL(26,K), K=1,11) / - + 0.8413926D-01, 0.3993766D-02, 0.1582394D+00, - + 0.1002512D+00, 0.4903506D-02, 0.1854837D+00, - + 0.1281925D+00, 0.7603098D-02, 0.2000798D+00, - + 0.1390593D+00, 0.8018091D-02, 0.2086339D+00, - + 0.1712030D+00, 0.1019300D-01, 0.2262595D+00, - + 0.1830711D+00, 0.1097125D-01, 0.2338503D+00, - + 0.2205311D+00, 0.1355597D-01, 0.2601833D+00, - + 0.2562476D+00, 0.1614251D-01, 0.2888437D+00, - + 0.2911329D+00, 0.1873241D-01, 0.3197191D+00, - + 0.3256345D+00, 0.2132612D-01, 0.3524311D+00, - + 0.3599817D+00, 0.2392361D-01, 0.3866583D+00/ - DATA (SIG(27,K),QNS(27,K),GL(27,K), K=1,11) / - + 0.8029707D-01, 0.3908799D-02, 0.1473567D+00, - + 0.9537854D-01, 0.4795466D-02, 0.1708152D+00, - + 0.1220997D+00, 0.7437878D-02, 0.1832541D+00, - + 0.1321744D+00, 0.7839115D-02, 0.1905007D+00, - + 0.1623256D+00, 0.9959630D-02, 0.2055876D+00, - + 0.1734507D+00, 0.1071739D-01, 0.2122029D+00, - + 0.2086491D+00, 0.1323427D-01, 0.2355091D+00, - + 0.2423157D+00, 0.1575333D-01, 0.2612353D+00, - + 0.2752756D+00, 0.1827610D-01, 0.2891524D+00, - + 0.3079269D+00, 0.2080293D-01, 0.3189559D+00, - + 0.3404705D+00, 0.2333377D-01, 0.3509009D+00/ - DATA (SIG(28,K),QNS(28,K),GL(28,K), K=1,11) / - + 0.7681481D-01, 0.3829185D-02, 0.1376068D+00, - + 0.9094260D-01, 0.4694826D-02, 0.1579894D+00, - + 0.1165959D+00, 0.7282431D-02, 0.1684734D+00, - + 0.1259785D+00, 0.7670647D-02, 0.1746107D+00, - + 0.1543817D+00, 0.9739644D-02, 0.1875565D+00, - + 0.1648563D+00, 0.1047805D-01, 0.1933487D+00, - + 0.1980744D+00, 0.1293096D-01, 0.2140889D+00, - + 0.2299434D+00, 0.1538651D-01, 0.2373064D+00, - + 0.2612120D+00, 0.1784613D-01, 0.2626651D+00, - + 0.2922347D+00, 0.2031013D-01, 0.2898076D+00, - + 0.3231866D+00, 0.2277836D-01, 0.3188580D+00/ - DATA (SIG(29,K),QNS(29,K),GL(29,K), K=1,11) / - + 0.6563249D-01, 0.3553842D-02, 0.1071211D+00, - + 0.7687253D-01, 0.4344396D-02, 0.1188363D+00, - + 0.9913771D-01, 0.6737095D-02, 0.1240514D+00, - + 0.1064470D+00, 0.7079776D-02, 0.1272095D+00, - + 0.1295831D+00, 0.8966957D-02, 0.1344169D+00, - + 0.1381085D+00, 0.9637479D-02, 0.1379772D+00, - + 0.1653914D+00, 0.1186663D-01, 0.1516436D+00, - + 0.1918587D+00, 0.1410071D-01, 0.1677900D+00, - + 0.2180257D+00, 0.1634065D-01, 0.1858221D+00, - + 0.2441185D+00, 0.1858630D-01, 0.2052059D+00, - + 0.2702366D+00, 0.2083721D-01, 0.2253880D+00/ - DATA (SIG(30,K),QNS(30,K),GL(30,K), K=1,11) / - + 0.5745195D-01, 0.3329610D-02, 0.8571566D-01, - + 0.6691286D-01, 0.4053258D-02, 0.9162973D-01, - + 0.8659933D-01, 0.6281751D-02, 0.9449410D-01, - + 0.9251953D-01, 0.6587201D-02, 0.9606259D-01, - + 0.1120911D+00, 0.8322260D-02, 0.1001608D+00, - + 0.1193075D+00, 0.8936588D-02, 0.1024678D+00, - + 0.1426012D+00, 0.1098131D-01, 0.1120144D+00, - + 0.1654209D+00, 0.1303371D-01, 0.1238726D+00, - + 0.1881228D+00, 0.1509395D-01, 0.1373875D+00, - + 0.2108504D+00, 0.1716134D-01, 0.1522449D+00, - + 0.2336608D+00, 0.1923504D-01, 0.1690019D+00/ - DATA (SIG(31,K),QNS(31,K),GL(31,K), K=1,11) / - + 0.5121423D-01, 0.3141632D-02, 0.7002328D-01, - + 0.5929283D-01, 0.3810202D-02, 0.7278127D-01, - + 0.7706797D-01, 0.5892148D-02, 0.7402337D-01, - + 0.8202420D-01, 0.6166357D-02, 0.7467312D-01, - + 0.9905594D-01, 0.7770454D-02, 0.7697902D-01, - + 0.1053459D+00, 0.8337058D-02, 0.7854215D-01, - + 0.1258043D+00, 0.1022598D-01, 0.8555079D-01, - + 0.1460121D+00, 0.1212572D-01, 0.9465327D-01, - + 0.1662154D+00, 0.1403543D-01, 0.1051685D+00, - + 0.1865021D+00, 0.1595377D-01, 0.1167079D+00, - + 0.2068994D+00, 0.1787944D-01, 0.1293049D+00/ - DATA (SIG(32,K),QNS(32,K),GL(32,K), K=1,11) / - + 0.4627884D-01, 0.2980345D-02, 0.5804462D-01, - + 0.5329282D-01, 0.3601038D-02, 0.5887774D-01, - + 0.6952907D-01, 0.5550300D-02, 0.5908614D-01, - + 0.7377469D-01, 0.5798186D-02, 0.5918727D-01, - + 0.8887936D-01, 0.7287629D-02, 0.6040659D-01, - + 0.9447064D-01, 0.7813082D-02, 0.6149783D-01, - + 0.1127827D+00, 0.9568307D-02, 0.6682454D-01, - + 0.1309997D+00, 0.1133764D-01, 0.7402402D-01, - + 0.1492878D+00, 0.1311908D-01, 0.8242603D-01, - + 0.1676954D+00, 0.1491057D-01, 0.9160433D-01, - + 0.1862289D+00, 0.1671035D-01, 0.1012248D+00/ - DATA (SIG(33,K),QNS(33,K),GL(33,K), K=1,11) / - + 0.4228387D-01, 0.2839738D-02, 0.4868885D-01, - + 0.4847489D-01, 0.3417714D-02, 0.4828291D-01, - + 0.6341530D-01, 0.5245120D-02, 0.4790069D-01, - + 0.6712223D-01, 0.5470888D-02, 0.4768746D-01, - + 0.8071581D-01, 0.6858821D-02, 0.4826157D-01, - + 0.8576344D-01, 0.7348466D-02, 0.4905161D-01, - + 0.1023992D+00, 0.8987869D-02, 0.5324048D-01, - + 0.1190524D+00, 0.1064470D-01, 0.5909014D-01, - + 0.1358284D+00, 0.1231569D-01, 0.6596951D-01, - + 0.1527466D+00, 0.1399804D-01, 0.7350542D-01, - + 0.1697994D+00, 0.1568951D-01, 0.8145751D-01/ - DATA (SIG(34,K),QNS(34,K),GL(34,K), K=1,11) / - + 0.3898201D-01, 0.2715516D-02, 0.4122074D-01, - + 0.4451036D-01, 0.3255044D-02, 0.4002824D-01, - + 0.5833130D-01, 0.4968902D-02, 0.3930819D-01, - + 0.6162013D-01, 0.5176222D-02, 0.3891877D-01, - + 0.7399134D-01, 0.6473489D-02, 0.3910787D-01, - + 0.7860309D-01, 0.6931774D-02, 0.3969960D-01, - + 0.9389021D-01, 0.8470166D-02, 0.4308815D-01, - + 0.1092782D+00, 0.1002922D-01, 0.4794264D-01, - + 0.1248253D+00, 0.1160436D-01, 0.5367902D-01, - + 0.1405293D+00, 0.1319202D-01, 0.5997478D-01, - + 0.1563720D+00, 0.1478951D-01, 0.6667523D-01/ - DATA (SIG(35,K),QNS(35,K),GL(35,K), K=1,11) / - + 0.3620467D-01, 0.2604545D-02, 0.3515068D-01, - + 0.4118562D-01, 0.3109293D-02, 0.3347064D-01, - + 0.5401587D-01, 0.4716059D-02, 0.3256553D-01, - + 0.5697474D-01, 0.4908211D-02, 0.3208403D-01, - + 0.6833256D-01, 0.6123980D-02, 0.3204709D-01, - + 0.7258683D-01, 0.6554697D-02, 0.3250517D-01, - + 0.8676436D-01, 0.8004632D-02, 0.3531221D-01, - + 0.1011063D+00, 0.9478311D-02, 0.3940955D-01, - + 0.1156335D+00, 0.1096981D-01, 0.4426129D-01, - + 0.1303267D+00, 0.1247482D-01, 0.4958064D-01, - + 0.1451598D+00, 0.1399024D-01, 0.5523203D-01/ - DATA (SIG(36,K),QNS(36,K),GL(36,K), K=1,11) / - + 0.3383804D-01, 0.2504547D-02, 0.3015674D-01, - + 0.3835829D-01, 0.2977869D-02, 0.2820794D-01, - + 0.5029646D-01, 0.4482603D-02, 0.2720574D-01, - + 0.5299354D-01, 0.4662583D-02, 0.2668533D-01, - + 0.6349794D-01, 0.5804804D-02, 0.2652439D-01, - + 0.6745509D-01, 0.6211264D-02, 0.2689187D-01, - + 0.8070773D-01, 0.7583632D-02, 0.2926830D-01, - + 0.9417375D-01, 0.8982609D-02, 0.3277807D-01, - + 0.1078435D+00, 0.1040093D-01, 0.3693279D-01, - + 0.1216845D+00, 0.1183356D-01, 0.4147453D-01, - + 0.1356646D+00, 0.1327699D-01, 0.4626441D-01/ - DATA (SIG(37,K),QNS(37,K),GL(37,K), K=1,11) / - + 0.3179372D-01, 0.2413689D-02, 0.2599155D-01, - + 0.3591975D-01, 0.2858401D-02, 0.2391202D-01, - + 0.4704078D-01, 0.4265274D-02, 0.2287115D-01, - + 0.4952917D-01, 0.4435867D-02, 0.2234399D-01, - + 0.5930292D-01, 0.5511552D-02, 0.2212101D-01, - + 0.6300963D-01, 0.5896684D-02, 0.2242528D-01, - + 0.7548074D-01, 0.7201047D-02, 0.2447195D-01, - + 0.8820342D-01, 0.8534602D-02, 0.2751278D-01, - + 0.1011429D+00, 0.9888763D-02, 0.3110564D-01, - + 0.1142560D+00, 0.1125784D-01, 0.3502572D-01, - + 0.1275058D+00, 0.1263796D-01, 0.3916763D-01/ - DATA (SIG(38,K),QNS(38,K),GL(38,K), K=1,11) / - + 0.3001005D-01, 0.2330582D-02, 0.2248794D-01, - + 0.3379539D-01, 0.2749075D-02, 0.2036682D-01, - + 0.4415900D-01, 0.4061637D-02, 0.1933175D-01, - + 0.4648239D-01, 0.4225478D-02, 0.1881904D-01, - + 0.5562508D-01, 0.5240939D-02, 0.1857500D-01, - + 0.5911952D-01, 0.5607385D-02, 0.1883509D-01, - + 0.7092657D-01, 0.6852289D-02, 0.2062499D-01, - + 0.8301479D-01, 0.8128628D-02, 0.2328576D-01, - + 0.9532842D-01, 0.9426562D-02, 0.2641913D-01, - + 0.1078157D+00, 0.1073979D-01, 0.2983252D-01, - + 0.1204362D+00, 0.1206413D-01, 0.3346303D-01/ - DATA (SIG(39,K),QNS(39,K),GL(39,K), K=1,11) / - + 0.2843806D-01, 0.2254077D-02, 0.1951482D-01, - + 0.3192511D-01, 0.2648428D-02, 0.1740943D-01, - + 0.4158013D-01, 0.3869728D-02, 0.1641025D-01, - + 0.4377509D-01, 0.4029322D-02, 0.1592473D-01, - + 0.5236858D-01, 0.4990304D-02, 0.1568488D-01, - + 0.5568235D-01, 0.5340468D-02, 0.1591352D-01, - + 0.6692266D-01, 0.6533609D-02, 0.1749867D-01, - + 0.7846669D-01, 0.7760040D-02, 0.1984530D-01, - + 0.9024108D-01, 0.9008754D-02, 0.2258858D-01, - + 0.1021872D+00, 0.1027291D-01, 0.2549587D-01, - + 0.1142619D+00, 0.1154809D-01, 0.2818174D-01/ - DATA (SIG(40,K),QNS(40,K),GL(40,K), K=1,11) / - + 0.2704053D-01, 0.2183239D-02, 0.1697489D-01, - + 0.3026434D-01, 0.2555356D-02, 0.1492445D-01, - + 0.3925138D-01, 0.3688008D-02, 0.1397970D-01, - + 0.4134945D-01, 0.3845756D-02, 0.1352881D-01, - + 0.4946303D-01, 0.4757546D-02, 0.1330879D-01, - + 0.5262306D-01, 0.5093637D-02, 0.1351477D-01, - + 0.6337953D-01, 0.6242013D-02, 0.1493358D-01, - + 0.7445616D-01, 0.7425105D-02, 0.1701697D-01, - + 0.8576484D-01, 0.8630844D-02, 0.1942778D-01, - + 0.9724151D-01, 0.9851943D-02, 0.2186552D-01, - + 0.1088413D+00, 0.1108379D-01, 0.2348862D-01/ - DATA (SIG(41,K),QNS(41,K),GL(41,K), K=1,11) / - + 0.2578785D-01, 0.2117286D-02, 0.1479218D-01, - + 0.2877853D-01, 0.2469047D-02, 0.1282719D-01, - + 0.3713135D-01, 0.3515226D-02, 0.1194340D-01, - + 0.3916036D-01, 0.3673445D-02, 0.1153078D-01, - + 0.4685373D-01, 0.4540949D-02, 0.1133954D-01, - + 0.4988335D-01, 0.4865013D-02, 0.1152888D-01, - + 0.6022774D-01, 0.5975035D-02, 0.1280998D-01, - + 0.7090319D-01, 0.7120723D-02, 0.1467053D-01, - + 0.8180943D-01, 0.8289086D-02, 0.1681260D-01, - + 0.9287832D-01, 0.9472484D-02, 0.1900096D-01, - + 0.1040640D+00, 0.1066619D-01, 0.2064494D-01/ - DATA (SIG(42,K),QNS(42,K),GL(42,K), K=1,11) / - + 0.2465618D-01, 0.2055547D-02, 0.1290668D-01, - + 0.2743951D-01, 0.2388675D-02, 0.1104679D-01, - + 0.3518725D-01, 0.3350326D-02, 0.1022679D-01, - + 0.3717219D-01, 0.3511281D-02, 0.9853658D-02, - + 0.4449776D-01, 0.4339101D-02, 0.9695612D-02, - + 0.4741756D-01, 0.4653046D-02, 0.9872415D-02, - + 0.5741283D-01, 0.5730621D-02, 0.1103732D-01, - + 0.6774493D-01, 0.6844297D-02, 0.1270672D-01, - + 0.7830371D-01, 0.7980321D-02, 0.1462546D-01, - + 0.8901825D-01, 0.9130811D-02, 0.1668201D-01, - + 0.9984238D-01, 0.1029099D-01, 0.1885162D-01/ - DATA (SIG(43,K),QNS(43,K),GL(43,K), K=1,11) / - + 0.2362634D-01, 0.1997450D-02, 0.1127128D-01, - + 0.2622453D-01, 0.2313475D-02, 0.9525941D-02, - + 0.3339260D-01, 0.3192334D-02, 0.8772832D-02, - + 0.3535685D-01, 0.3358322D-02, 0.8439009D-02, - + 0.4236139D-01, 0.4150798D-02, 0.8315660D-02, - + 0.4518986D-01, 0.4456430D-02, 0.8482671D-02, - + 0.5489224D-01, 0.5507054D-02, 0.9547867D-02, - + 0.6493216D-01, 0.6593647D-02, 0.1105093D-01, - + 0.7519187D-01, 0.7701883D-02, 0.1276636D-01, - + 0.8559880D-01, 0.8823764D-02, 0.1460784D-01, - + 0.9610710D-01, 0.9954551D-02, 0.1661072D-01/ - DATA (SIG(44,K),QNS(44,K),GL(44,K), K=1,11) / - + 0.2268229D-01, 0.1942486D-02, 0.9847256D-02, - + 0.2511509D-01, 0.2242865D-02, 0.8221282D-02, - + 0.3172649D-01, 0.3040579D-02, 0.7535245D-02, - + 0.3369107D-01, 0.3213744D-02, 0.7239509D-02, - + 0.4041762D-01, 0.3975134D-02, 0.7150450D-02, - + 0.4317148D-01, 0.4274152D-02, 0.7309487D-02, - + 0.5263137D-01, 0.5302921D-02, 0.8287676D-02, - + 0.6242453D-01, 0.6366920D-02, 0.9644739D-02, - + 0.7242784D-01, 0.7451470D-02, 0.1117904D-01, - + 0.8256826D-01, 0.8548595D-02, 0.1279818D-01, - + 0.9280089D-01, 0.9653678D-02, 0.1444188D-01/ - DATA (SIG(45,K),QNS(45,K),GL(45,K), K=1,11) / - + 0.2181083D-01, 0.1890208D-02, 0.8603617D-02, - + 0.2409598D-01, 0.2176319D-02, 0.7098314D-02, - + 0.3016901D-01, 0.2893986D-02, 0.6477884D-02, - + 0.3215592D-01, 0.3076816D-02, 0.6218434D-02, - + 0.3864314D-01, 0.3811049D-02, 0.6162152D-02, - + 0.4133797D-01, 0.4105114D-02, 0.6314414D-02, - + 0.5060175D-01, 0.5116893D-02, 0.7215611D-02, - + 0.6018922D-01, 0.6162467D-02, 0.8443634D-02, - + 0.6997426D-01, 0.7227070D-02, 0.9820351D-02, - + 0.7988465D-01, 0.8302910D-02, 0.1126450D-01, - + 0.8987716D-01, 0.9385592D-02, 0.1271716D-01/ - DATA (SIG(46,K),QNS(46,K),GL(46,K), K=1,11) / - + 0.2100072D-01, 0.1840209D-02, 0.7514582D-02, - + 0.2315380D-01, 0.2113305D-02, 0.6127400D-02, - + 0.2870188D-01, 0.2751370D-02, 0.5571191D-02, - + 0.3074073D-01, 0.2947767D-02, 0.5345919D-02, - + 0.3701465D-01, 0.3656994D-02, 0.5320167D-02, - + 0.3966520D-01, 0.3947740D-02, 0.5466403D-02, - + 0.4877653D-01, 0.4947303D-02, 0.6298537D-02, - + 0.5819639D-01, 0.5978456D-02, 0.7411545D-02, - + 0.6779793D-01, 0.7026621D-02, 0.8648852D-02, - + 0.7751116D-01, 0.8084376D-02, 0.9941266D-02, - + 0.8729528D-01, 0.9147659D-02, 0.1124248D-01/ - DATA (SIG(47,K),QNS(47,K),GL(47,K), K=1,11) / - + 0.2024245D-01, 0.1792120D-02, 0.6558884D-02, - + 0.2227798D-01, 0.2053421D-02, 0.5285963D-02, - + 0.2729464D-01, 0.2609175D-02, 0.4791579D-02, - + 0.2941735D-01, 0.2823545D-02, 0.4598144D-02, - + 0.3551575D-01, 0.3512134D-02, 0.4600187D-02, - + 0.3813799D-01, 0.3801500D-02, 0.4740811D-02, - + 0.4714056D-01, 0.4793914D-02, 0.5510224D-02, - + 0.5642791D-01, 0.5814433D-02, 0.6519979D-02, - + 0.6587677D-01, 0.6849282D-02, 0.7632838D-02, - + 0.7542144D-01, 0.7891717D-02, 0.8788709D-02, - + 0.8502467D-01, 0.8938176D-02, 0.9944049D-02/ - DATA (SIG(48,K),QNS(48,K),GL(48,K), K=1,11) / - + 0.1952776D-01, 0.1745598D-02, 0.5718721D-02, - + 0.2146028D-01, 0.1996381D-02, 0.4557055D-02, - + 0.2589833D-01, 0.2460495D-02, 0.4119974D-02, - + 0.2813628D-01, 0.2697245D-02, 0.3955824D-02, - + 0.3413111D-01, 0.3375486D-02, 0.3982551D-02, - + 0.3674474D-01, 0.3666109D-02, 0.4117720D-02, - + 0.4568589D-01, 0.4657304D-02, 0.4829496D-02, - + 0.5487362D-01, 0.5670843D-02, 0.5745965D-02, - + 0.6419655D-01, 0.6695055D-02, 0.6747396D-02, - + 0.7359673D-01, 0.7724418D-02, 0.7782276D-02, - + 0.8304209D-01, 0.8756123D-02, 0.8812386D-02/ - DATA (SIG(49,K),QNS(49,K),GL(49,K), K=1,11) / - + 0.1884945D-01, 0.1700320D-02, 0.4979060D-02, - + 0.2069266D-01, 0.1941818D-02, 0.3924521D-02, - + 0.2463772D-01, 0.2327195D-02, 0.3540333D-02, - + 0.2697389D-01, 0.2582744D-02, 0.3402817D-02, - + 0.3292430D-01, 0.3258969D-02, 0.3450882D-02, - + 0.3553634D-01, 0.3551444D-02, 0.3580588D-02, - + 0.4443353D-01, 0.4542580D-02, 0.4238918D-02, - + 0.5353634D-01, 0.5549965D-02, 0.5070685D-02, - + 0.6274817D-01, 0.6564439D-02, 0.5972004D-02, - + 0.7201961D-01, 0.7581792D-02, 0.6900090D-02, - + 0.8132382D-01, 0.8599972D-02, 0.7827526D-02/ - DATA (SIG(50,K),QNS(50,K),GL(50,K), K=1,11) / - + 0.1820118D-01, 0.1655981D-02, 0.4327232D-02, - + 0.1996775D-01, 0.1889351D-02, 0.3374022D-02, - + 0.2368638D-01, 0.2239107D-02, 0.3039288D-02, - + 0.2604359D-01, 0.2499915D-02, 0.2925736D-02, - + 0.3197767D-01, 0.3177425D-02, 0.2991694D-02, - + 0.3457769D-01, 0.3469494D-02, 0.3115839D-02, - + 0.4340933D-01, 0.4455406D-02, 0.3724289D-02, - + 0.5241997D-01, 0.5453984D-02, 0.4478859D-02, - + 0.6152229D-01, 0.6457586D-02, 0.5290021D-02, - + 0.7067206D-01, 0.7462731D-02, 0.6124400D-02, - + 0.7984568D-01, 0.8467766D-02, 0.6973142D-02/ - DATA (SIG(51,K),QNS(51,K),GL(51,K), K=1,11) / - + 0.1757725D-01, 0.1612281D-02, 0.3752353D-02, - + 0.1927898D-01, 0.1838626D-02, 0.2894098D-02, - + 0.2293077D-01, 0.2178095D-02, 0.2605180D-02, - + 0.2527426D-01, 0.2437739D-02, 0.2513056D-02, - + 0.3119304D-01, 0.3115456D-02, 0.2593740D-02, - + 0.3377711D-01, 0.3405994D-02, 0.2712229D-02, - + 0.4254023D-01, 0.4384778D-02, 0.3273960D-02, - + 0.5146441D-01, 0.5374219D-02, 0.3957929D-02, - + 0.6046730D-01, 0.6367398D-02, 0.4687200D-02, - + 0.6950794D-01, 0.7361208D-02, 0.5434531D-02, - + 0.7856500D-01, 0.8354225D-02, 0.6196265D-02/ - DATA (SIG(52,K),QNS(52,K),GL(52,K), K=1,11) / - + 0.1697249D-01, 0.1568930D-02, 0.3245150D-02, - + 0.1862079D-01, 0.1789335D-02, 0.2475358D-02, - + 0.2226395D-01, 0.2127000D-02, 0.2228403D-02, - + 0.2459603D-01, 0.2385286D-02, 0.2155321D-02, - + 0.3048753D-01, 0.3060070D-02, 0.2247857D-02, - + 0.3305832D-01, 0.3349099D-02, 0.2360612D-02, - + 0.4176703D-01, 0.4321850D-02, 0.2878467D-02, - + 0.5062136D-01, 0.5303787D-02, 0.3497680D-02, - + 0.5954165D-01, 0.6288263D-02, 0.4152105D-02, - + 0.6848978D-01, 0.7272442D-02, 0.4815643D-02, - + 0.7744669D-01, 0.8255116D-02, 0.5467176D-02/ - DATA (SIG(53,K),QNS(53,K),GL(53,K), K=1,11) / - + 0.1638212D-01, 0.1525636D-02, 0.2797598D-02, - + 0.1798911D-01, 0.1741262D-02, 0.2110567D-02, - + 0.2164531D-01, 0.2079620D-02, 0.1901293D-02, - + 0.2397271D-01, 0.2337130D-02, 0.1844967D-02, - + 0.2984844D-01, 0.3009873D-02, 0.1946632D-02, - + 0.3241139D-01, 0.3297918D-02, 0.2053554D-02, - + 0.4108266D-01, 0.4266349D-02, 0.2530017D-02, - + 0.4988275D-01, 0.5242384D-02, 0.3089660D-02, - + 0.5873515D-01, 0.6219663D-02, 0.3675918D-02, - + 0.6760493D-01, 0.7195648D-02, 0.4263404D-02, - + 0.7647559D-01, 0.8169373D-02, 0.4814349D-02/ - DATA (SIG(54,K),QNS(54,K),GL(54,K), K=1,11) / - + 0.1580168D-01, 0.1482105D-02, 0.2402764D-02, - + 0.1737958D-01, 0.1694137D-02, 0.1793054D-02, - + 0.2105206D-01, 0.2032661D-02, 0.1617295D-02, - + 0.2338426D-01, 0.2290478D-02, 0.1575584D-02, - + 0.2926510D-01, 0.2963722D-02, 0.1683850D-02, - + 0.3182675D-01, 0.3251533D-02, 0.1784837D-02, - + 0.4047833D-01, 0.4217614D-02, 0.2222117D-02, - + 0.4923858D-01, 0.5189286D-02, 0.2726816D-02, - + 0.5803598D-01, 0.6160705D-02, 0.3251017D-02, - + 0.6683960D-01, 0.7129733D-02, 0.3771182D-02, - + 0.7563581D-01, 0.8095692D-02, 0.4241524D-02/ - DATA (SIG(55,K),QNS(55,K),GL(55,K), K=1,11) / - + 0.1522688D-01, 0.1438032D-02, 0.2054624D-02, - + 0.1678744D-01, 0.1647620D-02, 0.1516450D-02, - + 0.2048942D-01, 0.1987455D-02, 0.1370720D-02, - + 0.2283367D-01, 0.2246321D-02, 0.1341664D-02, - + 0.2873409D-01, 0.2921627D-02, 0.1454225D-02, - + 0.3129957D-01, 0.3209751D-02, 0.1549186D-02, - + 0.3994578D-01, 0.4175013D-02, 0.1949282D-02, - + 0.4867814D-01, 0.5143578D-02, 0.2403186D-02, - + 0.5743131D-01, 0.6110245D-02, 0.2870602D-02, - + 0.6617892D-01, 0.7073346D-02, 0.3329195D-02, - + 0.7491059D-01, 0.8032530D-02, 0.3724147D-02/ - DATA (SIG(56,K),QNS(56,K),GL(56,K), K=1,11) / - + 0.1465355D-01, 0.1393100D-02, 0.1747911D-02, - + 0.1620864D-01, 0.1601418D-02, 0.1275640D-02, - + 0.1995388D-01, 0.1943825D-02, 0.1156723D-02, - + 0.2231690D-01, 0.2204423D-02, 0.1138516D-02, - + 0.2824998D-01, 0.2883203D-02, 0.1253279D-02, - + 0.3082377D-01, 0.3172124D-02, 0.1342136D-02, - + 0.3947692D-01, 0.4137882D-02, 0.1706879D-02, - + 0.4819128D-01, 0.5104380D-02, 0.2113753D-02, - + 0.5690894D-01, 0.6067193D-02, 0.2529401D-02, - + 0.6560875D-01, 0.7025194D-02, 0.2934544D-02, - + 0.7428384D-01, 0.7978396D-02, 0.3276993D-02/ - DATA (SIG(57,K),QNS(57,K),GL(57,K), K=1,11) / - + 0.1407749D-01, 0.1346968D-02, 0.1478031D-02, - + 0.1563945D-01, 0.1555241D-02, 0.1066360D-02, - + 0.1944024D-01, 0.1901278D-02, 0.9711652D-03, - + 0.2182866D-01, 0.2164305D-02, 0.9621416D-03, - + 0.2780667D-01, 0.2847925D-02, 0.1077218D-02, - + 0.3039283D-01, 0.3138087D-02, 0.1159914D-02, - + 0.3906338D-01, 0.4105481D-02, 0.1491006D-02, - + 0.4776766D-01, 0.5070750D-02, 0.1854291D-02, - + 0.5645656D-01, 0.6030404D-02, 0.2223140D-02, - + 0.6511479D-01, 0.6983928D-02, 0.2586685D-02, - + 0.7373934D-01, 0.7931739D-02, 0.2925121D-02/ - DATA (SIG(58,K),QNS(58,K),GL(58,K), K=1,11) / - + 0.1349444D-01, 0.1299267D-02, 0.1240936D-02, - + 0.1507538D-01, 0.1508716D-02, 0.8846816D-03, - + 0.1894419D-01, 0.1859462D-02, 0.8104447D-03, - + 0.2136434D-01, 0.2125594D-02, 0.8090871D-03, - + 0.2739849D-01, 0.2815317D-02, 0.9227907D-03, - + 0.3000049D-01, 0.3107107D-02, 0.9992913D-03, - + 0.3869691D-01, 0.4077066D-02, 0.1298326D-02, - + 0.4739693D-01, 0.5041725D-02, 0.1621145D-02, - + 0.5606172D-01, 0.5998692D-02, 0.1946904D-02, - + 0.6468253D-01, 0.6948146D-02, 0.2271225D-02, - + 0.7326055D-01, 0.7890947D-02, 0.2598422D-02/ - DATA (SIG(59,K),QNS(59,K),GL(59,K), K=1,11) / - + 0.1289987D-01, 0.1249584D-02, 0.1033081D-02, - + 0.1451237D-01, 0.1461485D-02, 0.7273077D-03, - + 0.1846151D-01, 0.1818013D-02, 0.6714853D-03, - + 0.2091942D-01, 0.2087902D-02, 0.6764054D-03, - + 0.2701972D-01, 0.2784879D-02, 0.7872339D-03, - + 0.2964046D-01, 0.3078622D-02, 0.8575271D-03, - + 0.3836901D-01, 0.4051849D-02, 0.1126019D-02, - + 0.4706833D-01, 0.5016276D-02, 0.1411231D-02, - + 0.5571143D-01, 0.5970791D-02, 0.1696802D-02, - + 0.6429682D-01, 0.6916351D-02, 0.1978967D-02, - + 0.7283019D-01, 0.7854300D-02, 0.2257198D-02/ - DATA (SIG(60,K),QNS(60,K),GL(60,K), K=1,11) / - + 0.1228891D-01, 0.1197454D-02, 0.8513343D-03, - + 0.1394728D-01, 0.1413255D-02, 0.5916331D-03, - + 0.1798822D-01, 0.1776572D-02, 0.5516701D-03, - + 0.2048952D-01, 0.2050837D-02, 0.5615787D-03, - + 0.2666460D-01, 0.2756087D-02, 0.6681796D-03, - + 0.2930626D-01, 0.3052040D-02, 0.7322735D-03, - + 0.3807079D-01, 0.4028980D-02, 0.9716695D-03, - + 0.4677049D-01, 0.4993292D-02, 0.1221955D-02, - + 0.5539190D-01, 0.5945333D-02, 0.1470665D-02, - + 0.6394152D-01, 0.6886927D-02, 0.1714880D-02, - + 0.7242988D-01, 0.7819940D-02, 0.1951831D-02/ - DATA (SIG(61,K),QNS(61,K),GL(61,K), K=1,11) / - + 0.1165610D-01, 0.1142338D-02, 0.6929434D-03, - + 0.1337603D-01, 0.1363632D-02, 0.4752178D-03, - + 0.1751989D-01, 0.1734720D-02, 0.4487068D-03, - + 0.2006984D-01, 0.2013955D-02, 0.4624209D-03, - + 0.2632691D-01, 0.2728358D-02, 0.5635959D-03, - + 0.2899093D-01, 0.3026700D-02, 0.6215215D-03, - + 0.3779262D-01, 0.4007521D-02, 0.8332199D-03, - + 0.4649108D-01, 0.4971543D-02, 0.1051090D-02, - + 0.5508818D-01, 0.5920805D-02, 0.1266148D-02, - + 0.6359912D-01, 0.6858085D-02, 0.1477698D-02, - + 0.7203961D-01, 0.7785812D-02, 0.1689135D-02/ - DATA (SIG(62,K),QNS(62,K),GL(62,K), K=1,11) / - + 0.1099514D-01, 0.1083588D-02, 0.5554829D-03, - + 0.1279345D-01, 0.1312105D-02, 0.3757508D-03, - + 0.1705150D-01, 0.1691967D-02, 0.3605745D-03, - + 0.1965503D-01, 0.1976742D-02, 0.3770231D-03, - + 0.2599972D-01, 0.2701027D-02, 0.4717315D-03, - + 0.2868675D-01, 0.3001852D-02, 0.5235444D-03, - + 0.3752380D-01, 0.3986402D-02, 0.7089121D-03, - + 0.4621635D-01, 0.4949630D-02, 0.8967120D-03, - + 0.5478352D-01, 0.5895485D-02, 0.1080649D-02, - + 0.6325004D-01, 0.6827794D-02, 0.1259726D-02, - + 0.7163704D-01, 0.7749586D-02, 0.1431507D-02/ - DATA (SIG(63,K),QNS(63,K),GL(63,K), K=1,11) / - + 0.1029850D-01, 0.1020420D-02, 0.4368255D-03, - + 0.1219302D-01, 0.1258011D-02, 0.2912833D-03, - + 0.1657706D-01, 0.1647716D-02, 0.2855189D-03, - + 0.1923879D-01, 0.1938580D-02, 0.3037309D-03, - + 0.2567508D-01, 0.2673311D-02, 0.3910778D-03, - + 0.2838481D-01, 0.2976616D-02, 0.4368594D-03, - + 0.3725202D-01, 0.3964379D-02, 0.5972465D-03, - + 0.4593051D-01, 0.4925929D-02, 0.7572191D-03, - + 0.5445876D-01, 0.5867380D-02, 0.9128350D-03, - + 0.6287181D-01, 0.6793706D-02, 0.1064099D-02, - + 0.7119658D-01, 0.7708577D-02, 0.1210551D-02/ - DATA (SIG(64,K),QNS(64,K),GL(64,K), K=1,11) / - + 0.9840897D-02, 0.9782596D-03, 0.3713784D-03, - + 0.1180564D-01, 0.1222580D-02, 0.2453782D-03, - + 0.1627454D-01, 0.1618998D-02, 0.2445719D-03, - + 0.1897483D-01, 0.1913936D-02, 0.2634300D-03, - + 0.2546946D-01, 0.2655393D-02, 0.3457791D-03, - + 0.2819273D-01, 0.2960194D-02, 0.3878439D-03, - + 0.3707435D-01, 0.3949510D-02, 0.5333011D-03, - + 0.4573808D-01, 0.4909365D-02, 0.6769768D-03, - + 0.5423568D-01, 0.5847364D-02, 0.8162581D-03, - + 0.6260905D-01, 0.6769252D-02, 0.9525659D-03, - + 0.7088885D-01, 0.7679118D-02, 0.1091238D-02/ - DATA (SIG(65,K),QNS(65,K),GL(65,K), K=1,11) / - + 0.9362920D-02, 0.9336812D-03, 0.3121447D-03, - + 0.1140707D-01, 0.1185693D-02, 0.2043740D-03, - + 0.1596535D-01, 0.1589249D-02, 0.2078236D-03, - + 0.1870573D-01, 0.1888457D-02, 0.2269950D-03, - + 0.2525882D-01, 0.2636719D-02, 0.3040733D-03, - + 0.2799473D-01, 0.2942935D-02, 0.3424685D-03, - + 0.3688593D-01, 0.3933301D-02, 0.4735221D-03, - + 0.4552889D-01, 0.4890808D-02, 0.6017052D-03, - + 0.5398961D-01, 0.5824669D-02, 0.7253177D-03, - + 0.6231716D-01, 0.6741440D-02, 0.8448679D-03, - + 0.7054607D-01, 0.7645640D-02, 0.9597377D-03/ - DATA (SIG(66,K),QNS(66,K),GL(66,K), K=1,11) / - + 0.8861152D-02, 0.8863133D-03, 0.2587609D-03, - + 0.1099504D-01, 0.1147103D-02, 0.1679426D-03, - + 0.1564738D-01, 0.1558242D-02, 0.1749748D-03, - + 0.1842927D-01, 0.1861911D-02, 0.1941430D-03, - + 0.2504024D-01, 0.2616993D-02, 0.2657061D-03, - + 0.2778752D-01, 0.2924500D-02, 0.3004861D-03, - + 0.3668208D-01, 0.3915265D-02, 0.4176663D-03, - + 0.4529689D-01, 0.4869621D-02, 0.5311613D-03, - + 0.5371317D-01, 0.5798514D-02, 0.6401437D-03, - + 0.6198753D-01, 0.6709351D-02, 0.7452922D-03, - + 0.7015842D-01, 0.7607094D-02, 0.8459428D-03/ - DATA (SIG(67,K),QNS(67,K),GL(67,K), K=1,11) / - + 0.8331323D-02, 0.8356897D-03, 0.2109022D-03, - + 0.1056886D-01, 0.1106710D-02, 0.1358045D-03, - + 0.1531844D-01, 0.1525740D-02, 0.1457502D-03, - + 0.1814299D-01, 0.1834044D-02, 0.1646124D-03, - + 0.2481034D-01, 0.2595862D-02, 0.2304459D-03, - + 0.2756725D-01, 0.2904489D-02, 0.2616728D-03, - + 0.3645735D-01, 0.3894826D-02, 0.3655178D-03, - + 0.4503501D-01, 0.4845051D-02, 0.4651090D-03, - + 0.5339778D-01, 0.5767975D-02, 0.5602599D-03, - + 0.6161011D-01, 0.6671899D-02, 0.6510685D-03, - + 0.6971447D-01, 0.7562242D-02, 0.7332600D-03/ - DATA (SIG(68,K),QNS(68,K),GL(68,K), K=1,11) / - + 0.7767826D-02, 0.7811929D-03, 0.1682844D-03, - + 0.1012105D-01, 0.1063746D-02, 0.1076382D-03, - + 0.1497433D-01, 0.1491304D-02, 0.1198886D-03, - + 0.1784295D-01, 0.1804446D-02, 0.1381639D-03, - + 0.2456471D-01, 0.2572881D-02, 0.1980851D-03, - + 0.2732909D-01, 0.2882411D-02, 0.2258286D-03, - + 0.3620518D-01, 0.3871305D-02, 0.3168863D-03, - + 0.4473488D-01, 0.4816218D-02, 0.4033581D-03, - + 0.5303326D-01, 0.5731976D-02, 0.4856919D-03, - + 0.6117300D-01, 0.6627822D-02, 0.5646497D-03, - + 0.6920063D-01, 0.7509639D-02, 0.6390357D-03/ - DATA (SIG(69,K),QNS(69,K),GL(69,K), K=1,11) / - + 0.7162524D-02, 0.7219252D-03, 0.1306685D-03, - + 0.9648990D-02, 0.1017894D-02, 0.8324373D-04, - + 0.1461151D-01, 0.1454547D-02, 0.9717247D-04, - + 0.1752550D-01, 0.1772730D-02, 0.1145860D-03, - + 0.2429861D-01, 0.2547554D-02, 0.1684362D-03, - + 0.2706767D-01, 0.2857704D-02, 0.1927744D-03, - + 0.3591786D-01, 0.3843886D-02, 0.2716051D-03, - + 0.4438643D-01, 0.4782047D-02, 0.3457338D-03, - + 0.5260734D-01, 0.5689198D-02, 0.4161628D-03, - + 0.6066182D-01, 0.6575566D-02, 0.4848411D-03, - + 0.6860054D-01, 0.7447509D-02, 0.5565929D-03/ - DATA (SIG(70,K),QNS(70,K),GL(70,K), K=1,11) / - + 0.6498830D-02, 0.6560480D-03, 0.9787648D-04, - + 0.9145191D-02, 0.9683183D-03, 0.6241237D-04, - + 0.1422362D-01, 0.1414772D-02, 0.7739472D-04, - + 0.1718482D-01, 0.1738279D-02, 0.9368118D-04, - + 0.2400574D-01, 0.2519222D-02, 0.1413299D-03, - + 0.2677606D-01, 0.2829644D-02, 0.1623507D-03, - + 0.3558588D-01, 0.3811562D-02, 0.2295327D-03, - + 0.4397734D-01, 0.4741221D-02, 0.2920817D-03, - + 0.5210497D-01, 0.5638020D-02, 0.3512062D-03, - + 0.6005895D-01, 0.6513225D-02, 0.4080366D-03, - + 0.6789415D-01, 0.7373677D-02, 0.4632646D-03/ - DATA (SIG(71,K),QNS(71,K),GL(71,K), K=1,11) / - + 0.5778300D-02, 0.5837402D-03, 0.6984198D-04, - + 0.8612970D-02, 0.9153618D-03, 0.4492100D-04, - + 0.1381626D-01, 0.1372613D-02, 0.6035747D-04, - + 0.1682500D-01, 0.1701574D-02, 0.7526036D-04, - + 0.2368520D-01, 0.2487846D-02, 0.1166112D-03, - + 0.2645128D-01, 0.2797962D-02, 0.1344146D-03, - + 0.3520003D-01, 0.3773383D-02, 0.1905509D-03, - + 0.4349343D-01, 0.4692238D-02, 0.2423050D-03, - + 0.5150776D-01, 0.5576476D-02, 0.2911091D-03, - + 0.5934224D-01, 0.6438423D-02, 0.3385689D-03, - + 0.6705574D-01, 0.7285380D-02, 0.3881714D-03/ - DATA (SIG(72,K),QNS(72,K),GL(72,K), K=1,11) / - + 0.5034733D-02, 0.5087611D-03, 0.4625723D-04, - + 0.8064844D-02, 0.8604694D-03, 0.3058347D-04, - + 0.1338882D-01, 0.1328038D-02, 0.4584601D-04, - + 0.1644089D-01, 0.1662102D-02, 0.5913359D-04, - + 0.2332541D-01, 0.2452214D-02, 0.9413941D-04, - + 0.2607982D-01, 0.2761237D-02, 0.1088415D-03, - + 0.3474175D-01, 0.3727366D-02, 0.1545688D-03, - + 0.4291176D-01, 0.4632629D-02, 0.1963152D-03, - + 0.5078870D-01, 0.5501647D-02, 0.2355473D-03, - + 0.5848082D-01, 0.6347807D-02, 0.2736505D-03, - + 0.6605081D-01, 0.7178859D-02, 0.3134502D-03/ - DATA (SIG(73,K),QNS(73,K),GL(73,K), K=1,11) / - + 0.4190120D-02, 0.4224470D-03, 0.2707369D-04, - + 0.7459661D-02, 0.7990326D-03, 0.1924123D-04, - + 0.1291263D-01, 0.1277880D-02, 0.3371034D-04, - + 0.1600870D-01, 0.1617273D-02, 0.4515653D-04, - + 0.2290601D-01, 0.2410157D-02, 0.7380760D-04, - + 0.2564100D-01, 0.2717275D-02, 0.8554009D-04, - + 0.3418645D-01, 0.3670890D-02, 0.1215324D-03, - + 0.4220236D-01, 0.4559178D-02, 0.1540794D-03, - + 0.4991220D-01, 0.5409691D-02, 0.1845894D-03, - + 0.5743353D-01, 0.6236926D-02, 0.2143511D-03, - + 0.6483269D-01, 0.7049062D-02, 0.2463026D-03/ - DATA (SIG(74,K),QNS(74,K),GL(74,K), K=1,11) / - + 0.3185613D-02, 0.3182631D-03, 0.1245652D-04, - + 0.6769268D-02, 0.7279159D-03, 0.1081952D-04, - + 0.1236544D-01, 0.1219703D-02, 0.2382310D-04, - + 0.1550825D-01, 0.1564938D-02, 0.3320242D-04, - + 0.2240537D-01, 0.2359413D-02, 0.5553033D-04, - + 0.2511120D-01, 0.2663596D-02, 0.6444454D-04, - + 0.3350197D-01, 0.3600533D-02, 0.9142491D-04, - + 0.4132394D-01, 0.4467443D-02, 0.1156077D-03, - + 0.4882817D-01, 0.5295189D-02, 0.1382571D-03, - + 0.5614187D-01, 0.6099425D-02, 0.1606747D-03, - + 0.6333486D-01, 0.6888744D-02, 0.1865614D-03/ - DATA (SIG(75,K),QNS(75,K),GL(75,K), K=1,11) / - + 0.1809282D-02, 0.1726649D-03, 0.2992961D-05, - + 0.5931035D-02, 0.6401202D-03, 0.5333937D-05, - + 0.1168839D-01, 0.1147036D-02, 0.1608256D-04, - + 0.1489229D-01, 0.1499991D-02, 0.2315794D-04, - + 0.2178472D-01, 0.2295904D-02, 0.3924450D-04, - + 0.2445086D-01, 0.2596047D-02, 0.4551809D-04, - + 0.3263896D-01, 0.3511060D-02, 0.6427893D-04, - + 0.4021380D-01, 0.4350705D-02, 0.8097014D-04, - + 0.4746027D-01, 0.5149908D-02, 0.9650246D-04, - + 0.5451648D-01, 0.5925630D-02, 0.1110490D-03, - + 0.6145620D-01, 0.6686943D-02, 0.1231286D-03/ - DATA (SIG(76,K),QNS(76,K),GL(76,K), K=1,11) / - + 0.3805620D-03, 0.2114851D-04, 0.6982608D-06, - + 0.5090375D-02, 0.5518335D-03, 0.2662843D-05, - + 0.1113599D-01, 0.1088290D-02, 0.1022639D-04, - + 0.1437980D-01, 0.1447041D-02, 0.1477675D-04, - + 0.2116744D-01, 0.2233731D-02, 0.2484446D-04, - + 0.2374762D-01, 0.2524768D-02, 0.2870907D-04, - + 0.3159391D-01, 0.3402477D-02, 0.4017386D-04, - + 0.3880817D-01, 0.4202257D-02, 0.5033954D-04, - + 0.4570192D-01, 0.4962380D-02, 0.5987738D-04, - + 0.5241713D-01, 0.5700351D-02, 0.6954527D-04, - + 0.5902565D-01, 0.6425055D-02, 0.8187836D-04/ - DATA (SIG(77,K),QNS(77,K),GL(77,K), K=1,11) / - + 0.2520758D-03, 0.1400832D-04, 0.2042386D-06, - + 0.4996608D-02, 0.5462461D-03, 0.7665191D-06, - + 0.1093572D-01, 0.1068999D-02, 0.5098637D-05, - + 0.1404163D-01, 0.1414532D-02, 0.7339637D-05, - + 0.2043427D-01, 0.2160448D-02, 0.1215728D-04, - + 0.2284021D-01, 0.2432665D-02, 0.1397626D-04, - + 0.3012736D-01, 0.3248969D-02, 0.1933151D-04, - + 0.3682378D-01, 0.3991383D-02, 0.2406949D-04, - + 0.4323450D-01, 0.4697957D-02, 0.2851476D-04, - + 0.4949194D-01, 0.5385258D-02, 0.3292379D-04, - + 0.5566045D-01, 0.6061358D-02, 0.3791125D-04/ - DATA (SIG(78,K),QNS(78,K),GL(78,K), K=1,11) / - + 0.1252376D-03, 0.6959685D-05, 0.2520666D-07, - + 0.4821983D-02, 0.5316304D-03, 0.7858168D-08, - + 0.1050200D-01, 0.1025048D-02, 0.7111042D-06, - + 0.1335221D-01, 0.1345876D-02, 0.1009473D-05, - + 0.1908276D-01, 0.2022552D-02, 0.1627908D-05, - + 0.2121249D-01, 0.2264703D-02, 0.1857406D-05, - + 0.2764352D-01, 0.2986467D-02, 0.2528897D-05, - + 0.3356695D-01, 0.3643016D-02, 0.3119704D-05, - + 0.3926174D-01, 0.4270162D-02, 0.3578213D-05, - + 0.4484042D-01, 0.4882367D-02, 0.3050931D-05, - + 0.5035456D-01, 0.5486257D-02,-0.3054033D-05/ -****************************************************************** -*if x is out of range - U = ZEROD - D = ZEROD - S = ZEROD - C = ZEROD - B = ZEROD - G = ZEROD - IF((X.LT.5.0D-4).OR.(X.GT.0.99D0)) GOTO 90 -******************************************************************* - IF (ICALL.NE.1) THEN -* get the x coordinates - CALL GSXCOR(Y,NP) - ICALL=1 - END IF -* - DO 30 IX=1,NP - A(IX)=Y(IX) - 30 CONTINUE - DO 40 IQ=1,NQ - A(NP+IQ)=QT(IQ) - 40 CONTINUE -* - Q2 = Q*Q - NA(1)=NP - NA(2)=NQ - XT(1)=X - XT(2)=Q2 - XSIG=DBFINT(2,XT,NA,A,SIG) - XQNS=DBFINT(2,XT,NA,A,QNS) - G =DBFINT(2,XT,NA,A,GL) -* - IF (Q2.LT.50.0D0) THEN -C Use three flavour evolution. - U=(XSIG+9.0D0*XQNS)/6.0D0 - D=(XSIG-4.5D0*XQNS)/6.0D0 - S=D - C=ZEROD - B=ZEROD -* - ELSE IF((Q2.GT.50.0D0).AND.(Q2.LT.250.0D0)) THEN -C Use four flavour evolution - U=(XSIG+6.D0*XQNS)/8.0D0 - D=(XSIG-6.D0*XQNS)/8.0D0 - S=D - C=U - B=ZEROD - ELSE -C Use five flavour evolution - U=(XSIG+7.5D0*XQNS)/10.0D0 - D=(XSIG-5.D0*XQNS)/10.0D0 - S=D - C=U - B=D - ENDIF - U=X*U - US=U - D=X*D - DS=D - S=X*S - C=X*C - B=X*B - G=X*G - 90 RETURN - END diff --git a/PDF/spdf/sfkbmr2.F b/PDF/spdf/sfkbmr2.F deleted file mode 100644 index a1ea5cc9547..00000000000 --- a/PDF/spdf/sfkbmr2.F +++ /dev/null @@ -1,1014 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:54 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:36 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE SFKBMR2(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - -C :::::::::::: KMRS (B-5) sea=ubar=dbar=2sbar at Q0**2 -C :::::::::::: STRONG (R=2 GEV^-1) SHADOWING -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(7,NX,19),G(7),XX(NX),N0(7) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),K=1,19)/ - + 0.01543 ,0.00139 ,14.62175 ,0.18028 ,0.05009 ,0.00000 ,0.11643 - +,0.01576 ,0.00155 ,19.22122 ,0.39216 ,0.26291 ,0.00000 ,0.32882 - +,0.01606 ,0.00170 ,26.43625 ,0.63140 ,0.50298 ,0.00000 ,0.56850 - +,0.01634 ,0.00185 ,35.78271 ,0.91607 ,0.78840 ,0.00000 ,0.85357 - +,0.01661 ,0.00199 ,46.98465 ,1.23990 ,1.11290 ,0.01977 ,1.17775 - +,0.01687 ,0.00213 ,59.78014 ,1.60572 ,1.47933 ,0.24557 ,1.54389 - +,0.01712 ,0.00226 ,73.97676 ,2.01184 ,1.88601 ,0.69210 ,1.95030 - +,0.01735 ,0.00238 ,89.39842 ,2.45534 ,2.33004 ,1.14314 ,2.39408 - +,0.01758 ,0.00251,105.88327 ,2.93295 ,2.80813 ,1.63344 ,2.87193 - +,0.01780 ,0.00263,123.09564 ,3.43581 ,3.31144 ,2.14713 ,3.37502 - +,0.01802 ,0.00275,141.09068 ,3.96643 ,3.84248 ,2.68807 ,3.90585 - +,0.01823 ,0.00286,159.82532 ,4.52392 ,4.40036 ,3.25533 ,4.46354 - +,0.01843 ,0.00297,179.18117 ,5.10510 ,4.98191 ,3.84574 ,5.04490 - +,0.01863 ,0.00308,198.79659 ,5.69994 ,5.57709 ,4.44938 ,5.63991 - +,0.01882 ,0.00319,219.04924 ,6.31927 ,6.19675 ,5.07707 ,6.25940 - +,0.01901 ,0.00330,239.55400 ,6.95222 ,6.83000 ,5.71800 ,6.89250 - +,0.01920 ,0.00340,260.38818 ,7.60101 ,7.47908 ,6.37442 ,7.54143 - +,0.01938 ,0.00350,281.58154 ,8.26639 ,8.14473 ,7.04710 ,8.20693 - +,0.01956 ,0.00360,302.85181 ,8.94064 ,8.81924 ,7.72838 ,8.88131/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),K=1,19)/ - + 0.01901 ,0.00212 ,13.04230 ,0.17608 ,0.04631 ,0.00000 ,0.11170 - +,0.01947 ,0.00237 ,16.96806 ,0.35846 ,0.22939 ,0.00000 ,0.29445 - +,0.01990 ,0.00259 ,22.89725 ,0.55952 ,0.43106 ,0.00000 ,0.49583 - +,0.02030 ,0.00281 ,30.38103 ,0.79401 ,0.66609 ,0.00000 ,0.73060 - +,0.02067 ,0.00301 ,39.14903 ,1.05605 ,0.92861 ,0.01588 ,0.99288 - +,0.02103 ,0.00321 ,48.97232 ,1.34737 ,1.22037 ,0.19531 ,1.28443 - +,0.02137 ,0.00339 ,59.68785 ,1.66621 ,1.53960 ,0.54721 ,1.60346 - +,0.02169 ,0.00358 ,71.15416 ,2.00998 ,1.88374 ,0.89761 ,1.94742 - +,0.02200 ,0.00376 ,83.24699 ,2.37598 ,2.25009 ,1.27429 ,2.31359 - +,0.02231 ,0.00393 ,95.71999 ,2.75730 ,2.63172 ,1.66475 ,2.69506 - +,0.02260 ,0.00410,108.61681 ,3.15592 ,3.03063 ,2.07207 ,3.09382 - +,0.02288 ,0.00426,121.90857 ,3.57116 ,3.44614 ,2.49552 ,3.50919 - +,0.02316 ,0.00442,135.51230 ,4.00059 ,3.87583 ,2.93270 ,3.93874 - +,0.02343 ,0.00458,149.17374 ,4.43672 ,4.31220 ,3.37622 ,4.37499 - +,0.02369 ,0.00473,163.16608 ,4.88777 ,4.76347 ,3.83427 ,4.82615 - +,0.02394 ,0.00488,177.22104 ,5.34564 ,5.22155 ,4.29882 ,5.28412 - +,0.02419 ,0.00503,191.39680 ,5.81207 ,5.68817 ,4.77162 ,5.75063 - +,0.02443 ,0.00517,205.71866 ,6.28767 ,6.16396 ,5.25331 ,6.22632 - +,0.02466 ,0.00531,219.99425 ,6.76682 ,6.64329 ,5.73832 ,6.70555/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),K=1,19)/ - + 0.02333 ,0.00325 ,11.62529 ,0.17185 ,0.04267 ,0.00000 ,0.10708 - +,0.02397 ,0.00361 ,14.96887 ,0.32789 ,0.19917 ,0.00000 ,0.26334 - +,0.02456 ,0.00394 ,19.81924 ,0.49631 ,0.36798 ,0.00000 ,0.43195 - +,0.02510 ,0.00425 ,25.77884 ,0.68887 ,0.56089 ,0.00000 ,0.62468 - +,0.02562 ,0.00455 ,32.60065 ,0.90026 ,0.77258 ,0.01271 ,0.83621 - +,0.02610 ,0.00483 ,40.09500 ,1.13150 ,1.00409 ,0.15485 ,1.06758 - +,0.02656 ,0.00511 ,48.13098 ,1.38095 ,1.25378 ,0.43131 ,1.31714 - +,0.02700 ,0.00537 ,56.60031 ,1.64646 ,1.51952 ,0.70264 ,1.58276 - +,0.02743 ,0.00563 ,65.41214 ,1.92590 ,1.79915 ,0.99105 ,1.86228 - +,0.02783 ,0.00587 ,74.38899 ,2.21394 ,2.08738 ,1.28680 ,2.15040 - +,0.02823 ,0.00611 ,83.56812 ,2.51221 ,2.38581 ,1.59239 ,2.44874 - +,0.02861 ,0.00635 ,92.93182 ,2.82023 ,2.69399 ,1.90732 ,2.75683 - +,0.02898 ,0.00657,102.42447 ,3.13620 ,3.01011 ,2.22980 ,3.07287 - +,0.02934 ,0.00680,111.86948 ,3.45461 ,3.32865 ,2.55439 ,3.39133 - +,0.02968 ,0.00701,121.46526 ,3.78166 ,3.65582 ,2.88730 ,3.71843 - +,0.03002 ,0.00722,131.02612 ,4.11139 ,3.98567 ,3.22262 ,4.04821 - +,0.03035 ,0.00743,140.59692 ,4.44517 ,4.31956 ,3.56173 ,4.38204 - +,0.03067 ,0.00763,150.19884 ,4.78353 ,4.65801 ,3.90517 ,4.72043 - +,0.03099 ,0.00783,159.70267 ,5.12240 ,4.99697 ,4.24891 ,5.05934/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),K=1,19)/ - + 0.02623 ,0.00417 ,10.86262 ,0.16937 ,0.04062 ,0.00000 ,0.10445 - +,0.02700 ,0.00462 ,13.90271 ,0.31135 ,0.18292 ,0.00000 ,0.24657 - +,0.02771 ,0.00503 ,18.20462 ,0.46292 ,0.33476 ,0.00000 ,0.39825 - +,0.02836 ,0.00542 ,23.40520 ,0.63424 ,0.50632 ,0.00000 ,0.56968 - +,0.02897 ,0.00579 ,29.27592 ,0.82036 ,0.69264 ,0.01113 ,0.75588 - +,0.02955 ,0.00614 ,35.65080 ,1.02203 ,0.89448 ,0.13496 ,0.95762 - +,0.03010 ,0.00648 ,42.41753 ,1.23771 ,1.11032 ,0.37463 ,1.17337 - +,0.03063 ,0.00681 ,49.48547 ,1.46554 ,1.33829 ,0.60784 ,1.40125 - +,0.03113 ,0.00712 ,56.78062 ,1.70369 ,1.57656 ,0.85409 ,1.63944 - +,0.03162 ,0.00743 ,64.15797 ,1.94761 ,1.82059 ,1.10499 ,1.88341 - +,0.03208 ,0.00772 ,71.65199 ,2.19879 ,2.07187 ,1.36279 ,2.13462 - +,0.03253 ,0.00801 ,79.25067 ,2.45686 ,2.33003 ,1.62709 ,2.39272 - +,0.03297 ,0.00829 ,86.91052 ,2.72032 ,2.59357 ,1.89643 ,2.65621 - +,0.03340 ,0.00856 ,94.48994 ,2.98458 ,2.85790 ,2.16625 ,2.92048 - +,0.03381 ,0.00883,102.15327 ,3.25490 ,3.12829 ,2.44186 ,3.19083 - +,0.03421 ,0.00908,109.75177 ,3.52635 ,3.39979 ,2.71833 ,3.46229 - +,0.03459 ,0.00934,117.32455 ,3.80010 ,3.67360 ,2.99687 ,3.73606 - +,0.03497 ,0.00958,124.89027 ,4.07663 ,3.95019 ,3.27798 ,4.01261 - +,0.03534 ,0.00982,132.34691 ,4.35262 ,4.22621 ,3.55835 ,4.28860/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),K=1,19)/ - + 0.02848 ,0.00498 ,10.34778 ,0.16763 ,0.03920 ,0.00000 ,0.10262 - +,0.02935 ,0.00550 ,13.18742 ,0.30019 ,0.17200 ,0.00000 ,0.23527 - +,0.03015 ,0.00599 ,17.13303 ,0.44071 ,0.31271 ,0.00000 ,0.37586 - +,0.03090 ,0.00644 ,21.84698 ,0.59827 ,0.47043 ,0.00000 ,0.53348 - +,0.03159 ,0.00688 ,27.11523 ,0.76817 ,0.64046 ,0.01013 ,0.70342 - +,0.03224 ,0.00729 ,32.78844 ,0.95100 ,0.82340 ,0.12230 ,0.88629 - +,0.03286 ,0.00768 ,38.76683 ,1.14535 ,1.01785 ,0.33869 ,1.08067 - +,0.03346 ,0.00806 ,44.97147 ,1.34953 ,1.22211 ,0.54795 ,1.28486 - +,0.03402 ,0.00842 ,51.33891 ,1.56190 ,1.43455 ,0.76786 ,1.49726 - +,0.03457 ,0.00878 ,57.74446 ,1.77845 ,1.65116 ,0.99092 ,1.71382 - +,0.03510 ,0.00912 ,64.22066 ,2.00055 ,1.87331 ,1.21917 ,1.93592 - +,0.03561 ,0.00945 ,70.75890 ,2.22790 ,2.10070 ,1.45231 ,2.16327 - +,0.03610 ,0.00977 ,77.32318 ,2.45920 ,2.33204 ,1.68908 ,2.39458 - +,0.03658 ,0.01008 ,83.79253 ,2.69043 ,2.56330 ,1.92548 ,2.62580 - +,0.03704 ,0.01039 ,90.31113 ,2.92628 ,2.79918 ,2.16624 ,2.86166 - +,0.03749 ,0.01069 ,96.75220 ,3.16243 ,3.03534 ,2.40704 ,3.09780 - +,0.03793 ,0.01098,103.15034 ,3.39993 ,3.27287 ,2.64900 ,3.33531 - +,0.03835 ,0.01126,109.52362 ,3.63927 ,3.51222 ,2.89257 ,3.57463 - +,0.03877 ,0.01154,115.78574 ,3.87751 ,3.75047 ,3.13487 ,3.81287/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),K=1,19)/ - + 0.03034 ,0.00571 ,9.96220 ,0.16629 ,0.03813 ,0.00000 ,0.10123 - +,0.03130 ,0.00630 ,12.65423 ,0.29185 ,0.16387 ,0.00000 ,0.22685 - +,0.03218 ,0.00685 ,16.34081 ,0.42429 ,0.29643 ,0.00000 ,0.35932 - +,0.03300 ,0.00737 ,20.70444 ,0.57186 ,0.44410 ,0.00000 ,0.50692 - +,0.03376 ,0.00785 ,25.54297 ,0.73007 ,0.60239 ,0.00941 ,0.66513 - +,0.03448 ,0.00831 ,30.71948 ,0.89941 ,0.77179 ,0.11324 ,0.83449 - +,0.03516 ,0.00876 ,36.14366 ,1.07857 ,0.95100 ,0.31302 ,1.01365 - +,0.03581 ,0.00918 ,41.74501 ,1.26598 ,1.13845 ,0.50531 ,1.20105 - +,0.03643 ,0.00959 ,47.46764 ,1.46017 ,1.33267 ,0.70661 ,1.39524 - +,0.03703 ,0.00999 ,53.20100 ,1.65748 ,1.53000 ,0.91008 ,1.59253 - +,0.03761 ,0.01037 ,58.97615 ,1.85921 ,1.73174 ,1.11763 ,1.79425 - +,0.03817 ,0.01074 ,64.78697 ,2.06512 ,1.93766 ,1.32901 ,2.00014 - +,0.03871 ,0.01110 ,70.60245 ,2.27404 ,2.14659 ,1.54310 ,2.20905 - +,0.03923 ,0.01145 ,76.31586 ,2.48235 ,2.35490 ,1.75629 ,2.41735 - +,0.03974 ,0.01179 ,82.05717 ,2.69436 ,2.56690 ,1.97293 ,2.62933 - +,0.04023 ,0.01212 ,87.71454 ,2.90612 ,2.77867 ,2.18910 ,2.84108 - +,0.04071 ,0.01244 ,93.32028 ,3.11868 ,2.99121 ,2.40585 ,3.05362 - +,0.04117 ,0.01276 ,98.89088 ,3.33245 ,3.20497 ,2.62361 ,3.26737 - +,0.04163 ,0.01307,104.35112 ,3.54481 ,3.41732 ,2.83980 ,3.47971/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),K=1,19)/ - + 0.03681 ,0.00875 ,8.83023 ,0.16229 ,0.03499 ,0.00000 ,0.09717 - +,0.03809 ,0.00961 ,11.10304 ,0.26777 ,0.14043 ,0.00000 ,0.20258 - +,0.03927 ,0.01041 ,14.07161 ,0.37755 ,0.25015 ,0.00000 ,0.31229 - +,0.04035 ,0.01116 ,17.48184 ,0.49752 ,0.37006 ,0.00000 ,0.43219 - +,0.04137 ,0.01186 ,21.16902 ,0.62383 ,0.49629 ,0.00745 ,0.55841 - +,0.04233 ,0.01252 ,25.03328 ,0.75677 ,0.62915 ,0.08882 ,0.69128 - +,0.04324 ,0.01316 ,29.01054 ,0.89531 ,0.76760 ,0.24411 ,0.82974 - +,0.04410 ,0.01376 ,33.05336 ,1.03829 ,0.91049 ,0.39133 ,0.97265 - +,0.04493 ,0.01435 ,37.12587 ,1.18466 ,1.05678 ,0.54367 ,1.11895 - +,0.04573 ,0.01491 ,41.15311 ,1.33173 ,1.20375 ,0.69591 ,1.26595 - +,0.04650 ,0.01545 ,45.16260 ,1.48062 ,1.35255 ,0.84969 ,1.41476 - +,0.04724 ,0.01597 ,49.15382 ,1.63121 ,1.50305 ,1.00487 ,1.56529 - +,0.04795 ,0.01648 ,53.10829 ,1.78272 ,1.65448 ,1.16071 ,1.71673 - +,0.04865 ,0.01697 ,56.95433 ,1.93254 ,1.80420 ,1.31461 ,1.86648 - +,0.04931 ,0.01744 ,60.78625 ,2.08392 ,1.95550 ,1.46986 ,2.01780 - +,0.04996 ,0.01791 ,64.52904 ,2.23405 ,2.10554 ,1.62366 ,2.16787 - +,0.05060 ,0.01836 ,68.20735 ,2.38373 ,2.25513 ,1.77684 ,2.31749 - +,0.05121 ,0.01879 ,71.83536 ,2.53333 ,2.40465 ,1.92978 ,2.46703 - +,0.05181 ,0.01922 ,75.36348 ,2.68102 ,2.55225 ,2.08065 ,2.61465/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),K=1,19)/ - + 0.04452 ,0.01340 ,7.77219 ,0.15888 ,0.03223 ,0.00000 ,0.09366 - +,0.04622 ,0.01466 ,9.67626 ,0.24660 ,0.11972 ,0.00000 ,0.18121 - +,0.04778 ,0.01582 ,12.03988 ,0.33696 ,0.20985 ,0.00000 ,0.27140 - +,0.04922 ,0.01690 ,14.67021 ,0.43377 ,0.30644 ,0.00000 ,0.36806 - +,0.05057 ,0.01790 ,17.43961 ,0.53382 ,0.40627 ,0.00586 ,0.46796 - +,0.05184 ,0.01885 ,20.28035 ,0.63732 ,0.50955 ,0.06910 ,0.57131 - +,0.05305 ,0.01975 ,23.15044 ,0.74352 ,0.61554 ,0.18883 ,0.67736 - +,0.05420 ,0.02061 ,26.02049 ,0.85160 ,0.72342 ,0.30058 ,0.78531 - +,0.05530 ,0.02143 ,28.86963 ,0.96088 ,0.83250 ,0.41483 ,0.89447 - +,0.05636 ,0.02222 ,31.64868 ,1.06942 ,0.94085 ,0.52771 ,1.00288 - +,0.05737 ,0.02298 ,34.38202 ,1.17819 ,1.04943 ,0.64056 ,1.11153 - +,0.05835 ,0.02371 ,37.07245 ,1.28717 ,1.15824 ,0.75338 ,1.22040 - +,0.05930 ,0.02442 ,39.71002 ,1.39587 ,1.26676 ,0.86568 ,1.32898 - +,0.06021 ,0.02509 ,42.24763 ,1.50241 ,1.37313 ,0.97564 ,1.43542 - +,0.06110 ,0.02575 ,44.75349 ,1.60928 ,1.47984 ,1.08573 ,1.54218 - +,0.06195 ,0.02639 ,47.17776 ,1.71446 ,1.58486 ,1.19398 ,1.64727 - +,0.06279 ,0.02701 ,49.53976 ,1.81860 ,1.68884 ,1.30103 ,1.75131 - +,0.06360 ,0.02761 ,51.85078 ,1.92202 ,1.79211 ,1.40722 ,1.85463 - +,0.06439 ,0.02820 ,54.07875 ,2.02343 ,1.89337 ,1.51129 ,1.95595/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),K=1,19)/ - + 0.04979 ,0.01721 ,7.17122 ,0.15747 ,0.03090 ,0.00000 ,0.09206 - +,0.05180 ,0.01877 ,8.87816 ,0.23580 ,0.10888 ,0.00000 ,0.17015 - +,0.05364 ,0.02020 ,10.93173 ,0.31604 ,0.18879 ,0.00000 ,0.25018 - +,0.05535 ,0.02153 ,13.17259 ,0.40100 ,0.27343 ,0.00000 ,0.33493 - +,0.05694 ,0.02277 ,15.49347 ,0.48782 ,0.35994 ,0.00506 ,0.42156 - +,0.05844 ,0.02393 ,17.84312 ,0.57670 ,0.44853 ,0.05933 ,0.51026 - +,0.05987 ,0.02503 ,20.19031 ,0.66704 ,0.53860 ,0.16155 ,0.60042 - +,0.06123 ,0.02607 ,22.51401 ,0.75822 ,0.62951 ,0.25608 ,0.69144 - +,0.06253 ,0.02707 ,24.80016 ,0.84973 ,0.72076 ,0.35204 ,0.78279 - +,0.06377 ,0.02803 ,27.01106 ,0.93998 ,0.81077 ,0.44618 ,0.87289 - +,0.06497 ,0.02895 ,29.16924 ,1.02986 ,0.90041 ,0.53973 ,0.96263 - +,0.06613 ,0.02983 ,31.27881 ,1.11941 ,0.98973 ,0.63272 ,1.05204 - +,0.06724 ,0.03068 ,33.33328 ,1.20824 ,1.07835 ,0.72479 ,1.14075 - +,0.06832 ,0.03150 ,35.29636 ,1.29486 ,1.16475 ,0.81447 ,1.22723 - +,0.06936 ,0.03229 ,37.22418 ,1.38135 ,1.25103 ,0.90385 ,1.31361 - +,0.07037 ,0.03305 ,39.07790 ,1.46608 ,1.33557 ,0.99133 ,1.39822 - +,0.07135 ,0.03379 ,40.87396 ,1.54962 ,1.41891 ,1.07748 ,1.48164 - +,0.07230 ,0.03451 ,42.62245 ,1.63224 ,1.50136 ,1.16260 ,1.56416 - +,0.07322 ,0.03521 ,44.29866 ,1.71293 ,1.58187 ,1.24567 ,1.64475/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),K=1,19)/ - + 0.05400 ,0.02055 ,6.74567 ,0.15692 ,0.03015 ,0.00000 ,0.09122 - +,0.05627 ,0.02237 ,8.31935 ,0.22899 ,0.10177 ,0.00000 ,0.16301 - +,0.05835 ,0.02403 ,10.16981 ,0.30253 ,0.17489 ,0.00000 ,0.23629 - +,0.06028 ,0.02556 ,12.16005 ,0.37970 ,0.25167 ,0.00000 ,0.31323 - +,0.06208 ,0.02699 ,14.19644 ,0.45793 ,0.32953 ,0.00454 ,0.39123 - +,0.06377 ,0.02832 ,16.23822 ,0.53740 ,0.40866 ,0.05304 ,0.47050 - +,0.06538 ,0.02958 ,18.26085 ,0.61763 ,0.48856 ,0.14407 ,0.55053 - +,0.06691 ,0.03078 ,20.24840 ,0.69812 ,0.56873 ,0.22768 ,0.63084 - +,0.06837 ,0.03193 ,22.19081 ,0.77845 ,0.64877 ,0.31211 ,0.71099 - +,0.06978 ,0.03302 ,24.05725 ,0.85729 ,0.72732 ,0.39455 ,0.78966 - +,0.07113 ,0.03406 ,25.86887 ,0.93544 ,0.80519 ,0.47608 ,0.86766 - +,0.07243 ,0.03507 ,27.63052 ,1.01298 ,0.88247 ,0.55680 ,0.94505 - +,0.07368 ,0.03603 ,29.33766 ,1.08961 ,0.95885 ,0.63642 ,1.02153 - +,0.07489 ,0.03696 ,30.96022 ,1.16402 ,1.03302 ,0.71366 ,1.09581 - +,0.07606 ,0.03786 ,32.54703 ,1.23809 ,1.10685 ,0.79040 ,1.16974 - +,0.07719 ,0.03873 ,34.06580 ,1.31040 ,1.17894 ,0.86524 ,1.24192 - +,0.07829 ,0.03956 ,35.53111 ,1.38146 ,1.24979 ,0.93872 ,1.31286 - +,0.07936 ,0.04037 ,36.95215 ,1.45155 ,1.31967 ,1.01112 ,1.38284 - +,0.08040 ,0.04116 ,38.30847 ,1.51978 ,1.38770 ,1.08155 ,1.45096/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),K=1,19)/ - + 0.05783 ,0.02359 ,6.38424 ,0.15726 ,0.02981 ,0.00000 ,0.09100 - +,0.06035 ,0.02563 ,7.85416 ,0.22466 ,0.09666 ,0.00000 ,0.15806 - +,0.06266 ,0.02748 ,9.55266 ,0.29305 ,0.16454 ,0.00000 ,0.22614 - +,0.06480 ,0.02919 ,11.35857 ,0.36427 ,0.23530 ,0.00000 ,0.29710 - +,0.06679 ,0.03078 ,13.18853 ,0.43602 ,0.30661 ,0.00416 ,0.36859 - +,0.06867 ,0.03226 ,15.00874 ,0.50848 ,0.37866 ,0.04834 ,0.44081 - +,0.07045 ,0.03366 ,16.79973 ,0.58125 ,0.45104 ,0.13104 ,0.51335 - +,0.07214 ,0.03498 ,18.54863 ,0.65391 ,0.52334 ,0.20662 ,0.58581 - +,0.07376 ,0.03625 ,20.24876 ,0.72611 ,0.59520 ,0.28261 ,0.65781 - +,0.07530 ,0.03745 ,21.87363 ,0.79669 ,0.66545 ,0.35653 ,0.72820 - +,0.07679 ,0.03860 ,23.44194 ,0.86641 ,0.73485 ,0.42938 ,0.79775 - +,0.07822 ,0.03970 ,24.96039 ,0.93534 ,0.80349 ,0.50127 ,0.86651 - +,0.07960 ,0.04076 ,26.42680 ,1.00323 ,0.87109 ,0.57193 ,0.93424 - +,0.08093 ,0.04178 ,27.81438 ,1.06898 ,0.93658 ,0.64032 ,0.99985 - +,0.08222 ,0.04276 ,29.16653 ,1.13425 ,1.00159 ,0.70806 ,1.06497 - +,0.08346 ,0.04371 ,30.45483 ,1.19776 ,1.06485 ,0.77393 ,1.12834 - +,0.08467 ,0.04462 ,31.69324 ,1.26002 ,1.12688 ,0.83844 ,1.19048 - +,0.08584 ,0.04551 ,32.89020 ,1.32130 ,1.18793 ,0.90186 ,1.25163 - +,0.08698 ,0.04636 ,34.02936 ,1.38080 ,1.24721 ,0.96341 ,1.31102/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),K=1,19)/ - + 0.07221 ,0.03622 ,5.33543 ,0.16014 ,0.02949 ,0.00000 ,0.09147 - +,0.07572 ,0.03908 ,6.50903 ,0.21418 ,0.08264 ,0.00000 ,0.14503 - +,0.07894 ,0.04166 ,7.79063 ,0.26810 ,0.13577 ,0.00000 ,0.19852 - +,0.08190 ,0.04402 ,9.10256 ,0.32294 ,0.18989 ,0.00000 ,0.25297 - +,0.08465 ,0.04619 ,10.38877 ,0.37708 ,0.24338 ,0.00312 ,0.30676 - +,0.08722 ,0.04820 ,11.63484 ,0.43072 ,0.29641 ,0.03576 ,0.36008 - +,0.08966 ,0.05009 ,12.83290 ,0.48367 ,0.34881 ,0.09633 ,0.41274 - +,0.09197 ,0.05187 ,13.97877 ,0.53573 ,0.40035 ,0.15076 ,0.46453 - +,0.09417 ,0.05356 ,15.07191 ,0.58674 ,0.45088 ,0.20478 ,0.51530 - +,0.09627 ,0.05515 ,16.09695 ,0.63597 ,0.49965 ,0.25667 ,0.56429 - +,0.09828 ,0.05666 ,17.07022 ,0.68401 ,0.54728 ,0.30723 ,0.61212 - +,0.10020 ,0.05811 ,17.99850 ,0.73100 ,0.59386 ,0.35658 ,0.65891 - +,0.10206 ,0.05950 ,18.88206 ,0.77680 ,0.63928 ,0.40461 ,0.70452 - +,0.10384 ,0.06082 ,19.70454 ,0.82070 ,0.68283 ,0.45062 ,0.74824 - +,0.10556 ,0.06209 ,20.49661 ,0.86388 ,0.72568 ,0.49581 ,0.79126 - +,0.10722 ,0.06331 ,21.24033 ,0.90552 ,0.76699 ,0.53936 ,0.83274 - +,0.10882 ,0.06448 ,21.94609 ,0.94599 ,0.80716 ,0.58165 ,0.87307 - +,0.11037 ,0.06561 ,22.62033 ,0.98551 ,0.84639 ,0.62291 ,0.91245 - +,0.11187 ,0.06670 ,23.25322 ,1.02356 ,0.88417 ,0.66262 ,0.95037/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),K=1,19)/ - + 0.09312 ,0.05563 ,4.38659 ,0.16820 ,0.03118 ,0.00000 ,0.09512 - +,0.09811 ,0.05951 ,5.29460 ,0.21059 ,0.07240 ,0.00001 ,0.13691 - +,0.10262 ,0.06296 ,6.22789 ,0.25197 ,0.11269 ,0.00001 ,0.17776 - +,0.10677 ,0.06609 ,7.14285 ,0.29295 ,0.15268 ,0.00002 ,0.21828 - +,0.11057 ,0.06893 ,8.00580 ,0.33254 ,0.19134 ,0.00229 ,0.25744 - +,0.11411 ,0.07155 ,8.81654 ,0.37095 ,0.22890 ,0.02566 ,0.29547 - +,0.11744 ,0.07398 ,9.57464 ,0.40815 ,0.26532 ,0.06863 ,0.33232 - +,0.12059 ,0.07625 ,10.28230 ,0.44411 ,0.30055 ,0.10655 ,0.36797 - +,0.12358 ,0.07839 ,10.94179 ,0.47881 ,0.33457 ,0.14367 ,0.40239 - +,0.12639 ,0.08040 ,11.54496 ,0.51178 ,0.36693 ,0.17881 ,0.43511 - +,0.12907 ,0.08230 ,12.10683 ,0.54354 ,0.39811 ,0.21263 ,0.46663 - +,0.13164 ,0.08409 ,12.63254 ,0.57422 ,0.42824 ,0.24525 ,0.49709 - +,0.13411 ,0.08580 ,13.12295 ,0.60378 ,0.45729 ,0.27666 ,0.52645 - +,0.13645 ,0.08742 ,13.56979 ,0.63177 ,0.48482 ,0.30641 ,0.55426 - +,0.13871 ,0.08897 ,13.99396 ,0.65903 ,0.51164 ,0.33535 ,0.58135 - +,0.14087 ,0.09044 ,14.38470 ,0.68502 ,0.53723 ,0.36295 ,0.60720 - +,0.14296 ,0.09185 ,14.74896 ,0.71004 ,0.56187 ,0.38952 ,0.63208 - +,0.14497 ,0.09321 ,15.09139 ,0.73424 ,0.58573 ,0.41521 ,0.65616 - +,0.14690 ,0.09451 ,15.40618 ,0.75730 ,0.60847 ,0.43971 ,0.67910/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),K=1,19)/ - + 0.11004 ,0.07143 ,3.90754 ,0.17565 ,0.03341 ,0.00000 ,0.09896 - +,0.11615 ,0.07595 ,4.66920 ,0.21185 ,0.06787 ,0.00001 ,0.13443 - +,0.12164 ,0.07994 ,5.42292 ,0.24668 ,0.10108 ,0.00001 ,0.16860 - +,0.12666 ,0.08352 ,6.14123 ,0.28060 ,0.13353 ,0.00001 ,0.20196 - +,0.13123 ,0.08676 ,6.80270 ,0.31290 ,0.16448 ,0.00188 ,0.23375 - +,0.13548 ,0.08971 ,7.41040 ,0.34379 ,0.19419 ,0.02077 ,0.26422 - +,0.13944 ,0.09244 ,7.96907 ,0.37337 ,0.22269 ,0.05530 ,0.29341 - +,0.14315 ,0.09499 ,8.48130 ,0.40163 ,0.24999 ,0.08543 ,0.32134 - +,0.14667 ,0.09736 ,8.95157 ,0.42862 ,0.27608 ,0.11463 ,0.34802 - +,0.14997 ,0.09958 ,9.37363 ,0.45400 ,0.30071 ,0.14206 ,0.37315 - +,0.15311 ,0.10165 ,9.76156 ,0.47825 ,0.32426 ,0.16825 ,0.39718 - +,0.15611 ,0.10361 ,10.11962 ,0.50147 ,0.34684 ,0.19332 ,0.42021 - +,0.15898 ,0.10546 ,10.44872 ,0.52365 ,0.36846 ,0.21727 ,0.44222 - +,0.16168 ,0.10721 ,10.74302 ,0.54449 ,0.38879 ,0.23982 ,0.46291 - +,0.16427 ,0.10889 ,11.01927 ,0.56464 ,0.40848 ,0.26160 ,0.48294 - +,0.16674 ,0.11047 ,11.26982 ,0.58371 ,0.42715 ,0.28225 ,0.50190 - +,0.16912 ,0.11198 ,11.50014 ,0.60193 ,0.44501 ,0.30200 ,0.52003 - +,0.17141 ,0.11342 ,11.71395 ,0.61944 ,0.46219 ,0.32097 ,0.53747 - +,0.17361 ,0.11478 ,11.90653 ,0.63601 ,0.47848 ,0.33896 ,0.55398/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),K=1,19)/ - + 0.12517 ,0.08518 ,3.61077 ,0.18205 ,0.03733 ,0.00000 ,0.10285 - +,0.13220 ,0.09014 ,4.26253 ,0.21453 ,0.06522 ,0.00001 ,0.13379 - +,0.13847 ,0.09449 ,4.89400 ,0.24525 ,0.09243 ,0.00001 ,0.16335 - +,0.14418 ,0.09837 ,5.48519 ,0.27467 ,0.11908 ,0.00001 ,0.19189 - +,0.14935 ,0.10184 ,6.02053 ,0.30232 ,0.14452 ,0.00162 ,0.21884 - +,0.15413 ,0.10500 ,6.50495 ,0.32844 ,0.16888 ,0.01770 ,0.24442 - +,0.15857 ,0.10790 ,6.94409 ,0.35318 ,0.19216 ,0.04697 ,0.26874 - +,0.16272 ,0.11059 ,7.34131 ,0.37659 ,0.21438 ,0.07231 ,0.29181 - +,0.16663 ,0.11308 ,7.70134 ,0.39874 ,0.23553 ,0.09668 ,0.31370 - +,0.17028 ,0.11540 ,8.01971 ,0.41941 ,0.25541 ,0.11943 ,0.33417 - +,0.17375 ,0.11756 ,8.30866 ,0.43900 ,0.27434 ,0.14102 ,0.35362 - +,0.17704 ,0.11959 ,8.57215 ,0.45762 ,0.29242 ,0.16158 ,0.37213 - +,0.18019 ,0.12150 ,8.81127 ,0.47529 ,0.30964 ,0.18110 ,0.38972 - +,0.18313 ,0.12330 ,9.02156 ,0.49178 ,0.32578 ,0.19938 ,0.40617 - +,0.18595 ,0.12501 ,9.21697 ,0.50762 ,0.34134 ,0.21696 ,0.42200 - +,0.18864 ,0.12663 ,9.39139 ,0.52253 ,0.35603 ,0.23354 ,0.43690 - +,0.19122 ,0.12816 ,9.54948 ,0.53668 ,0.37002 ,0.24931 ,0.45108 - +,0.19369 ,0.12961 ,9.69438 ,0.55020 ,0.38343 ,0.26440 ,0.46464 - +,0.19605 ,0.13099 ,9.82236 ,0.56292 ,0.39608 ,0.27865 ,0.47742/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),K=1,19)/ - + 0.13915 ,0.09753 ,3.36446 ,0.19398 ,0.02213 ,0.00001 ,0.10479 - +,0.14693 ,0.10279 ,3.94057 ,0.22215 ,0.04831 ,0.00001 ,0.13241 - +,0.15386 ,0.10738 ,4.48886 ,0.24870 ,0.07352 ,0.00002 ,0.15863 - +,0.16012 ,0.11144 ,4.99428 ,0.27396 ,0.09786 ,0.00003 ,0.18370 - +,0.16579 ,0.11505 ,5.44450 ,0.29756 ,0.12086 ,0.00145 ,0.20721 - +,0.17098 ,0.11833 ,5.84773 ,0.31972 ,0.14265 ,0.01558 ,0.22938 - +,0.17579 ,0.12132 ,6.20786 ,0.34056 ,0.16328 ,0.04115 ,0.25027 - +,0.18028 ,0.12407 ,6.52990 ,0.36019 ,0.18283 ,0.06316 ,0.26998 - +,0.18449 ,0.12663 ,6.81689 ,0.37862 ,0.20130 ,0.08419 ,0.28854 - +,0.18842 ,0.12896 ,7.06864 ,0.39575 ,0.21855 ,0.10375 ,0.30584 - +,0.19212 ,0.13115 ,7.29376 ,0.41191 ,0.23488 ,0.12222 ,0.32217 - +,0.19561 ,0.13321 ,7.49663 ,0.42719 ,0.25038 ,0.13971 ,0.33764 - +,0.19892 ,0.13514 ,7.67887 ,0.44160 ,0.26506 ,0.15623 ,0.35226 - +,0.20207 ,0.13692 ,7.83662 ,0.45496 ,0.27873 ,0.17164 ,0.36584 - +,0.20507 ,0.13862 ,7.98132 ,0.46775 ,0.29185 ,0.18639 ,0.37885 - +,0.20790 ,0.14022 ,8.10727 ,0.47972 ,0.30417 ,0.20025 ,0.39105 - +,0.21060 ,0.14173 ,8.22027 ,0.49103 ,0.31585 ,0.21338 ,0.40259 - +,0.21319 ,0.14317 ,8.32289 ,0.50180 ,0.32700 ,0.22590 ,0.41360 - +,0.21566 ,0.14452 ,8.41144 ,0.51187 ,0.33747 ,0.23767 ,0.42390/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),K=1,19)/ - + 0.19991 ,0.14688 ,2.63302 ,0.20313 ,0.00668 ,0.00000 ,0.10490 - +,0.21019 ,0.15254 ,3.01985 ,0.22084 ,0.02658 ,0.00001 ,0.12373 - +,0.21910 ,0.15734 ,3.35851 ,0.23710 ,0.04491 ,0.00002 ,0.14102 - +,0.22699 ,0.16149 ,3.65044 ,0.25207 ,0.06187 ,0.00002 ,0.15698 - +,0.23400 ,0.16506 ,3.89322 ,0.26566 ,0.07734 ,0.00095 ,0.17153 - +,0.24029 ,0.16823 ,4.09738 ,0.27807 ,0.09152 ,0.00999 ,0.18481 - +,0.24606 ,0.17103 ,4.26931 ,0.28940 ,0.10457 ,0.02618 ,0.19702 - +,0.25132 ,0.17358 ,4.41294 ,0.29980 ,0.11661 ,0.03976 ,0.20823 - +,0.25620 ,0.17587 ,4.53442 ,0.30934 ,0.12774 ,0.05251 ,0.21857 - +,0.26066 ,0.17794 ,4.63273 ,0.31793 ,0.13787 ,0.06414 ,0.22794 - +,0.26482 ,0.17982 ,4.71489 ,0.32583 ,0.14726 ,0.07491 ,0.23659 - +,0.26871 ,0.18153 ,4.78364 ,0.33313 ,0.15600 ,0.08493 ,0.24461 - +,0.27237 ,0.18310 ,4.84004 ,0.33985 ,0.16410 ,0.09424 ,0.25201 - +,0.27573 ,0.18453 ,4.88339 ,0.34592 ,0.17149 ,0.10278 ,0.25873 - +,0.27891 ,0.18586 ,4.92007 ,0.35160 ,0.17847 ,0.11084 ,0.26507 - +,0.28189 ,0.18707 ,4.94669 ,0.35678 ,0.18491 ,0.11830 ,0.27088 - +,0.28469 ,0.18819 ,4.96714 ,0.36156 ,0.19091 ,0.12527 ,0.27627 - +,0.28733 ,0.18924 ,4.98293 ,0.36602 ,0.19653 ,0.13182 ,0.28131 - +,0.28983 ,0.19020 ,4.99203 ,0.37005 ,0.20172 ,0.13787 ,0.28592/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),K=1,19)/ - + 0.29948 ,0.21337 ,2.10573 ,0.19377 ,0.00456 ,-0.00009 ,0.09910 - +,0.31092 ,0.21753 ,2.31318 ,0.20250 ,0.01795 ,-0.00010 ,0.11018 - +,0.32048 ,0.22075 ,2.47381 ,0.21007 ,0.02972 ,-0.00008 ,0.11986 - +,0.32863 ,0.22337 ,2.59686 ,0.21667 ,0.04013 ,-0.00011 ,0.12838 - +,0.33561 ,0.22543 ,2.68564 ,0.22230 ,0.04926 ,0.00043 ,0.13573 - +,0.34167 ,0.22710 ,2.75017 ,0.22713 ,0.05732 ,0.00576 ,0.14218 - +,0.34701 ,0.22845 ,2.79539 ,0.23126 ,0.06448 ,0.01510 ,0.14785 - +,0.35181 ,0.22956 ,2.82534 ,0.23480 ,0.07089 ,0.02270 ,0.15281 - +,0.35602 ,0.23048 ,2.84381 ,0.23785 ,0.07661 ,0.02966 ,0.15720 - +,0.35979 ,0.23116 ,2.85090 ,0.24036 ,0.08166 ,0.03582 ,0.16098 - +,0.36315 ,0.23172 ,2.85065 ,0.24250 ,0.08620 ,0.04141 ,0.16431 - +,0.36619 ,0.23218 ,2.84518 ,0.24432 ,0.09031 ,0.04649 ,0.16728 - +,0.36895 ,0.23254 ,2.83537 ,0.24588 ,0.09403 ,0.05112 ,0.16992 - +,0.37142 ,0.23274 ,2.82002 ,0.24710 ,0.09732 ,0.05524 ,0.17218 - +,0.37369 ,0.23289 ,2.80308 ,0.24815 ,0.10034 ,0.05905 ,0.17423 - +,0.37572 ,0.23297 ,2.78303 ,0.24898 ,0.10302 ,0.06252 ,0.17597 - +,0.37757 ,0.23298 ,2.76123 ,0.24962 ,0.10546 ,0.06567 ,0.17751 - +,0.37928 ,0.23295 ,2.73844 ,0.25012 ,0.10771 ,0.06857 ,0.17888 - +,0.38080 ,0.23286 ,2.71384 ,0.25044 ,0.10971 ,0.07122 ,0.18006/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),K=1,19)/ - + 0.38126 ,0.25604 ,1.84720 ,0.17610 ,0.00360 ,0.00003 ,0.08985 - +,0.39110 ,0.25769 ,1.95456 ,0.17999 ,0.01360 ,-0.00001 ,0.09680 - +,0.39904 ,0.25855 ,2.02553 ,0.18309 ,0.02218 ,0.00005 ,0.10262 - +,0.40550 ,0.25893 ,2.07008 ,0.18554 ,0.02946 ,-0.00002 ,0.10753 - +,0.41073 ,0.25893 ,2.09168 ,0.18736 ,0.03569 ,0.00036 ,0.11151 - +,0.41500 ,0.25874 ,2.09847 ,0.18871 ,0.04101 ,0.00405 ,0.11487 - +,0.41863 ,0.25826 ,2.09439 ,0.18961 ,0.04564 ,0.01032 ,0.11766 - +,0.42159 ,0.25773 ,2.08247 ,0.19022 ,0.04968 ,0.01533 ,0.11996 - +,0.42417 ,0.25700 ,2.06473 ,0.19054 ,0.05317 ,0.01982 ,0.12187 - +,0.42618 ,0.25624 ,2.04172 ,0.19057 ,0.05619 ,0.02376 ,0.12341 - +,0.42791 ,0.25534 ,2.01601 ,0.19041 ,0.05883 ,0.02723 ,0.12464 - +,0.42935 ,0.25442 ,1.98880 ,0.19011 ,0.06116 ,0.03035 ,0.12566 - +,0.43046 ,0.25351 ,1.96049 ,0.18970 ,0.06321 ,0.03317 ,0.12649 - +,0.43137 ,0.25247 ,1.93011 ,0.18913 ,0.06497 ,0.03564 ,0.12708 - +,0.43215 ,0.25143 ,1.90019 ,0.18851 ,0.06655 ,0.03787 ,0.12755 - +,0.43271 ,0.25035 ,1.86970 ,0.18780 ,0.06791 ,0.03981 ,0.12786 - +,0.43311 ,0.24929 ,1.83936 ,0.18701 ,0.06912 ,0.04160 ,0.12808 - +,0.43340 ,0.24824 ,1.80952 ,0.18617 ,0.07021 ,0.04325 ,0.12823 - +,0.43355 ,0.24714 ,1.77961 ,0.18527 ,0.07114 ,0.04467 ,0.12825/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),K=1,19)/ - + 0.44870 ,0.28373 ,1.66065 ,0.15548 ,0.00287 ,0.00009 ,0.07919 - +,0.45580 ,0.28235 ,1.70302 ,0.15637 ,0.01075 ,0.00007 ,0.08360 - +,0.46076 ,0.28076 ,1.71922 ,0.15685 ,0.01726 ,0.00006 ,0.08710 - +,0.46441 ,0.27894 ,1.71828 ,0.15700 ,0.02269 ,0.00009 ,0.08988 - +,0.46708 ,0.27688 ,1.70344 ,0.15671 ,0.02721 ,0.00035 ,0.09202 - +,0.46889 ,0.27477 ,1.68043 ,0.15623 ,0.03090 ,0.00300 ,0.09362 - +,0.47013 ,0.27260 ,1.65249 ,0.15552 ,0.03408 ,0.00752 ,0.09487 - +,0.47092 ,0.27042 ,1.62118 ,0.15460 ,0.03681 ,0.01108 ,0.09575 - +,0.47132 ,0.26823 ,1.58786 ,0.15358 ,0.03911 ,0.01418 ,0.09639 - +,0.47123 ,0.26605 ,1.55278 ,0.15246 ,0.04101 ,0.01689 ,0.09677 - +,0.47092 ,0.26389 ,1.51755 ,0.15126 ,0.04265 ,0.01922 ,0.09699 - +,0.47042 ,0.26178 ,1.48283 ,0.15001 ,0.04406 ,0.02128 ,0.09708 - +,0.46972 ,0.25973 ,1.44876 ,0.14875 ,0.04526 ,0.02313 ,0.09706 - +,0.46888 ,0.25763 ,1.41462 ,0.14741 ,0.04628 ,0.02473 ,0.09689 - +,0.46797 ,0.25560 ,1.38192 ,0.14610 ,0.04718 ,0.02615 ,0.09667 - +,0.46689 ,0.25358 ,1.34987 ,0.14477 ,0.04788 ,0.02735 ,0.09639 - +,0.46572 ,0.25162 ,1.31885 ,0.14343 ,0.04850 ,0.02842 ,0.09603 - +,0.46450 ,0.24972 ,1.28900 ,0.14210 ,0.04904 ,0.02941 ,0.09562 - +,0.46318 ,0.24784 ,1.25994 ,0.14076 ,0.04949 ,0.03026 ,0.09516/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),K=1,19)/ - + 0.50376 ,0.30039 ,1.50391 ,0.13447 ,0.00235 ,0.00004 ,0.06841 - +,0.50691 ,0.29630 ,1.50117 ,0.13358 ,0.00862 ,0.00011 ,0.07114 - +,0.50837 ,0.29228 ,1.48169 ,0.13253 ,0.01368 ,0.00010 ,0.07311 - +,0.50881 ,0.28830 ,1.45291 ,0.13136 ,0.01779 ,0.00005 ,0.07461 - +,0.50845 ,0.28434 ,1.41691 ,0.12994 ,0.02119 ,0.00033 ,0.07559 - +,0.50743 ,0.28059 ,1.37802 ,0.12847 ,0.02389 ,0.00227 ,0.07618 - +,0.50600 ,0.27694 ,1.33772 ,0.12690 ,0.02613 ,0.00566 ,0.07652 - +,0.50427 ,0.27337 ,1.29723 ,0.12530 ,0.02798 ,0.00821 ,0.07665 - +,0.50246 ,0.26983 ,1.25731 ,0.12368 ,0.02950 ,0.01049 ,0.07660 - +,0.50014 ,0.26653 ,1.21778 ,0.12203 ,0.03075 ,0.01238 ,0.07639 - +,0.49778 ,0.26327 ,1.17973 ,0.12036 ,0.03180 ,0.01402 ,0.07610 - +,0.49537 ,0.26012 ,1.14335 ,0.11871 ,0.03269 ,0.01545 ,0.07573 - +,0.49290 ,0.25712 ,1.10852 ,0.11709 ,0.03346 ,0.01669 ,0.07528 - +,0.49026 ,0.25415 ,1.07481 ,0.11549 ,0.03402 ,0.01772 ,0.07478 - +,0.48765 ,0.25132 ,1.04304 ,0.11394 ,0.03450 ,0.01864 ,0.07427 - +,0.48498 ,0.24860 ,1.01253 ,0.11240 ,0.03491 ,0.01948 ,0.07370 - +,0.48235 ,0.24590 ,0.98348 ,0.11090 ,0.03522 ,0.02019 ,0.07310 - +,0.47976 ,0.24326 ,0.95590 ,0.10945 ,0.03546 ,0.02079 ,0.07249 - +,0.47706 ,0.24076 ,0.92953 ,0.10801 ,0.03564 ,0.02131 ,0.07186/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),K=1,19)/ - + 0.55658 ,0.30965 ,1.32999 ,0.10973 ,0.00184 ,0.00008 ,0.05580 - +,0.55439 ,0.30227 ,1.28955 ,0.10766 ,0.00665 ,0.00006 ,0.05723 - +,0.55088 ,0.29557 ,1.24240 ,0.10564 ,0.01044 ,0.00004 ,0.05809 - +,0.54699 ,0.28926 ,1.19325 ,0.10361 ,0.01344 ,0.00003 ,0.05860 - +,0.54263 ,0.28332 ,1.14320 ,0.10159 ,0.01579 ,0.00026 ,0.05874 - +,0.53803 ,0.27776 ,1.09453 ,0.09959 ,0.01765 ,0.00165 ,0.05866 - +,0.53327 ,0.27255 ,1.04777 ,0.09759 ,0.01918 ,0.00403 ,0.05842 - +,0.52853 ,0.26749 ,1.00331 ,0.09567 ,0.02035 ,0.00589 ,0.05807 - +,0.52369 ,0.26282 ,0.96134 ,0.09379 ,0.02136 ,0.00746 ,0.05765 - +,0.51887 ,0.25827 ,0.92139 ,0.09194 ,0.02210 ,0.00872 ,0.05707 - +,0.51404 ,0.25397 ,0.88397 ,0.09016 ,0.02269 ,0.00977 ,0.05649 - +,0.50931 ,0.24988 ,0.84904 ,0.08843 ,0.02319 ,0.01068 ,0.05589 - +,0.50471 ,0.24594 ,0.81637 ,0.08675 ,0.02362 ,0.01148 ,0.05526 - +,0.50009 ,0.24218 ,0.78546 ,0.08513 ,0.02389 ,0.01212 ,0.05456 - +,0.49560 ,0.23861 ,0.75671 ,0.08359 ,0.02410 ,0.01270 ,0.05389 - +,0.49111 ,0.23518 ,0.72958 ,0.08209 ,0.02425 ,0.01322 ,0.05322 - +,0.48677 ,0.23185 ,0.70414 ,0.08064 ,0.02436 ,0.01364 ,0.05258 - +,0.48259 ,0.22862 ,0.68030 ,0.07923 ,0.02444 ,0.01400 ,0.05195 - +,0.47838 ,0.22555 ,0.65777 ,0.07786 ,0.02448 ,0.01430 ,0.05131/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),K=1,19)/ - + 0.59361 ,0.30895 ,1.17233 ,0.08778 ,0.00147 ,0.00013 ,0.04471 - +,0.58554 ,0.29901 ,1.10828 ,0.08527 ,0.00519 ,0.00017 ,0.04534 - +,0.57720 ,0.29004 ,1.04539 ,0.08289 ,0.00806 ,0.00017 ,0.04553 - +,0.56892 ,0.28188 ,0.98596 ,0.08061 ,0.01028 ,0.00014 ,0.04550 - +,0.56062 ,0.27441 ,0.92999 ,0.07847 ,0.01191 ,0.00028 ,0.04525 - +,0.55254 ,0.26754 ,0.87815 ,0.07638 ,0.01320 ,0.00132 ,0.04486 - +,0.54467 ,0.26109 ,0.83027 ,0.07433 ,0.01425 ,0.00299 ,0.04437 - +,0.53711 ,0.25501 ,0.78618 ,0.07242 ,0.01503 ,0.00432 ,0.04378 - +,0.52969 ,0.24940 ,0.74573 ,0.07060 ,0.01561 ,0.00539 ,0.04316 - +,0.52254 ,0.24397 ,0.70817 ,0.06882 ,0.01610 ,0.00624 ,0.04250 - +,0.51552 ,0.23893 ,0.67363 ,0.06715 ,0.01645 ,0.00695 ,0.04181 - +,0.50873 ,0.23419 ,0.64190 ,0.06556 ,0.01671 ,0.00755 ,0.04114 - +,0.50218 ,0.22970 ,0.61263 ,0.06404 ,0.01690 ,0.00806 ,0.04048 - +,0.49581 ,0.22538 ,0.58541 ,0.06255 ,0.01702 ,0.00850 ,0.03986 - +,0.48971 ,0.22129 ,0.56036 ,0.06114 ,0.01712 ,0.00889 ,0.03926 - +,0.48378 ,0.21739 ,0.53704 ,0.05977 ,0.01719 ,0.00920 ,0.03864 - +,0.47803 ,0.21366 ,0.51536 ,0.05850 ,0.01720 ,0.00944 ,0.03801 - +,0.47247 ,0.21010 ,0.49522 ,0.05731 ,0.01716 ,0.00962 ,0.03737 - +,0.46695 ,0.20673 ,0.47645 ,0.05615 ,0.01712 ,0.00980 ,0.03676/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),K=1,19)/ - + 0.61603 ,0.30141 ,1.02763 ,0.06909 ,0.00113 ,0.00004 ,0.03509 - +,0.60244 ,0.28929 ,0.94991 ,0.06651 ,0.00402 ,0.00003 ,0.03531 - +,0.58935 ,0.27863 ,0.87921 ,0.06412 ,0.00622 ,0.00007 ,0.03523 - +,0.57704 ,0.26901 ,0.81580 ,0.06190 ,0.00785 ,0.00002 ,0.03499 - +,0.56529 ,0.26026 ,0.75863 ,0.05985 ,0.00902 ,0.00009 ,0.03452 - +,0.55423 ,0.25225 ,0.70751 ,0.05788 ,0.00995 ,0.00093 ,0.03399 - +,0.54359 ,0.24493 ,0.66154 ,0.05604 ,0.01067 ,0.00222 ,0.03341 - +,0.53344 ,0.23817 ,0.62011 ,0.05427 ,0.01119 ,0.00306 ,0.03288 - +,0.52377 ,0.23196 ,0.58270 ,0.05261 ,0.01161 ,0.00386 ,0.03223 - +,0.51454 ,0.22602 ,0.54866 ,0.05107 ,0.01185 ,0.00451 ,0.03158 - +,0.50564 ,0.22053 ,0.51782 ,0.04960 ,0.01205 ,0.00506 ,0.03094 - +,0.49718 ,0.21538 ,0.48986 ,0.04820 ,0.01221 ,0.00551 ,0.03032 - +,0.48916 ,0.21049 ,0.46441 ,0.04688 ,0.01231 ,0.00587 ,0.02972 - +,0.48137 ,0.20580 ,0.44108 ,0.04563 ,0.01236 ,0.00611 ,0.02913 - +,0.47396 ,0.20141 ,0.41979 ,0.04445 ,0.01239 ,0.00631 ,0.02856 - +,0.46684 ,0.19727 ,0.40017 ,0.04331 ,0.01238 ,0.00649 ,0.02800 - +,0.45997 ,0.19333 ,0.38204 ,0.04225 ,0.01234 ,0.00667 ,0.02745 - +,0.45336 ,0.18958 ,0.36529 ,0.04125 ,0.01230 ,0.00686 ,0.02690 - +,0.44697 ,0.18603 ,0.34975 ,0.04029 ,0.01222 ,0.00694 ,0.02638/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),K=1,19)/ - + 0.62597 ,0.28845 ,0.89518 ,0.05351 ,0.00089 ,0.00000 ,0.02723 - +,0.60716 ,0.27483 ,0.81075 ,0.05112 ,0.00314 ,0.00005 ,0.02715 - +,0.58995 ,0.26272 ,0.73770 ,0.04899 ,0.00474 ,0.00004 ,0.02689 - +,0.57392 ,0.25223 ,0.67449 ,0.04701 ,0.00593 ,0.00005 ,0.02652 - +,0.55910 ,0.24275 ,0.61911 ,0.04514 ,0.00679 ,0.00012 ,0.02607 - +,0.54518 ,0.23422 ,0.57089 ,0.04345 ,0.00742 ,0.00074 ,0.02552 - +,0.53225 ,0.22641 ,0.52832 ,0.04181 ,0.00791 ,0.00163 ,0.02499 - +,0.51998 ,0.21929 ,0.49063 ,0.04031 ,0.00826 ,0.00230 ,0.02442 - +,0.50857 ,0.21256 ,0.45732 ,0.03889 ,0.00858 ,0.00287 ,0.02383 - +,0.49765 ,0.20632 ,0.42726 ,0.03761 ,0.00871 ,0.00327 ,0.02321 - +,0.48741 ,0.20050 ,0.40037 ,0.03639 ,0.00880 ,0.00360 ,0.02264 - +,0.47765 ,0.19512 ,0.37629 ,0.03523 ,0.00888 ,0.00387 ,0.02211 - +,0.46823 ,0.19018 ,0.35463 ,0.03412 ,0.00897 ,0.00410 ,0.02160 - +,0.45927 ,0.18551 ,0.33484 ,0.03311 ,0.00896 ,0.00430 ,0.02107 - +,0.45080 ,0.18112 ,0.31691 ,0.03217 ,0.00893 ,0.00447 ,0.02055 - +,0.44268 ,0.17694 ,0.30053 ,0.03129 ,0.00888 ,0.00459 ,0.02005 - +,0.43498 ,0.17295 ,0.28559 ,0.03043 ,0.00882 ,0.00468 ,0.01960 - +,0.42768 ,0.16914 ,0.27194 ,0.02962 ,0.00875 ,0.00476 ,0.01920 - +,0.42057 ,0.16558 ,0.25931 ,0.02885 ,0.00867 ,0.00483 ,0.01878/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),K=1,19)/ - + 0.62507 ,0.27162 ,0.77440 ,0.04086 ,0.00070 ,0.00008 ,0.02075 - +,0.60163 ,0.25694 ,0.68849 ,0.03881 ,0.00235 ,0.00015 ,0.02063 - +,0.58059 ,0.24423 ,0.61648 ,0.03693 ,0.00360 ,0.00009 ,0.02033 - +,0.56153 ,0.23313 ,0.55601 ,0.03525 ,0.00453 ,0.00004 ,0.01985 - +,0.54412 ,0.22318 ,0.50440 ,0.03363 ,0.00517 ,0.00018 ,0.01949 - +,0.52807 ,0.21424 ,0.46013 ,0.03223 ,0.00558 ,0.00050 ,0.01898 - +,0.51323 ,0.20613 ,0.42182 ,0.03091 ,0.00592 ,0.00119 ,0.01845 - +,0.49937 ,0.19875 ,0.38832 ,0.02970 ,0.00616 ,0.00170 ,0.01787 - +,0.48615 ,0.19234 ,0.35898 ,0.02850 ,0.00631 ,0.00207 ,0.01747 - +,0.47407 ,0.18591 ,0.33305 ,0.02745 ,0.00641 ,0.00243 ,0.01693 - +,0.46275 ,0.17998 ,0.31008 ,0.02646 ,0.00644 ,0.00264 ,0.01648 - +,0.45198 ,0.17462 ,0.28966 ,0.02553 ,0.00646 ,0.00279 ,0.01606 - +,0.44161 ,0.16982 ,0.27143 ,0.02467 ,0.00647 ,0.00292 ,0.01565 - +,0.43197 ,0.16505 ,0.25495 ,0.02385 ,0.00649 ,0.00303 ,0.01522 - +,0.42290 ,0.16060 ,0.24012 ,0.02309 ,0.00648 ,0.00313 ,0.01482 - +,0.41424 ,0.15648 ,0.22665 ,0.02238 ,0.00641 ,0.00320 ,0.01443 - +,0.40598 ,0.15262 ,0.21442 ,0.02173 ,0.00631 ,0.00326 ,0.01404 - +,0.39811 ,0.14898 ,0.20329 ,0.02113 ,0.00619 ,0.00331 ,0.01366 - +,0.39058 ,0.14552 ,0.19311 ,0.02052 ,0.00614 ,0.00333 ,0.01333/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),K=1,19)/ - + 0.61450 ,0.25244 ,0.66500 ,0.03077 ,0.00049 ,0.00006 ,0.01562 - +,0.58728 ,0.23712 ,0.58091 ,0.02900 ,0.00188 ,-0.00001 ,0.01548 - +,0.56319 ,0.22392 ,0.51253 ,0.02742 ,0.00284 ,0.00013 ,0.01521 - +,0.54158 ,0.21255 ,0.45642 ,0.02607 ,0.00345 ,-0.00001 ,0.01482 - +,0.52205 ,0.20250 ,0.40932 ,0.02477 ,0.00389 ,0.00009 ,0.01442 - +,0.50423 ,0.19359 ,0.36965 ,0.02364 ,0.00423 ,0.00044 ,0.01391 - +,0.48803 ,0.18543 ,0.33575 ,0.02255 ,0.00445 ,0.00090 ,0.01354 - +,0.47287 ,0.17818 ,0.30675 ,0.02157 ,0.00455 ,0.00128 ,0.01316 - +,0.45880 ,0.17156 ,0.28156 ,0.02066 ,0.00469 ,0.00146 ,0.01272 - +,0.44565 ,0.16542 ,0.25923 ,0.01981 ,0.00475 ,0.00170 ,0.01233 - +,0.43343 ,0.15976 ,0.23977 ,0.01904 ,0.00478 ,0.00187 ,0.01191 - +,0.42200 ,0.15455 ,0.22260 ,0.01832 ,0.00480 ,0.00200 ,0.01151 - +,0.41124 ,0.14973 ,0.20731 ,0.01765 ,0.00481 ,0.00212 ,0.01116 - +,0.40102 ,0.14525 ,0.19381 ,0.01704 ,0.00473 ,0.00218 ,0.01083 - +,0.39148 ,0.14104 ,0.18176 ,0.01647 ,0.00465 ,0.00225 ,0.01053 - +,0.38256 ,0.13699 ,0.17090 ,0.01591 ,0.00457 ,0.00232 ,0.01026 - +,0.37413 ,0.13321 ,0.16104 ,0.01537 ,0.00451 ,0.00236 ,0.00998 - +,0.36617 ,0.12968 ,0.15208 ,0.01485 ,0.00446 ,0.00237 ,0.00971 - +,0.35837 ,0.12640 ,0.14392 ,0.01438 ,0.00443 ,0.00238 ,0.00946/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),K=1,19)/ - + 0.59623 ,0.23145 ,0.56660 ,0.02278 ,0.00036 ,0.00006 ,0.01173 - +,0.56581 ,0.21603 ,0.48704 ,0.02127 ,0.00157 ,0.00012 ,0.01153 - +,0.53921 ,0.20287 ,0.42367 ,0.02006 ,0.00223 ,0.00013 ,0.01125 - +,0.51569 ,0.19152 ,0.37264 ,0.01904 ,0.00265 ,0.00014 ,0.01089 - +,0.49454 ,0.18168 ,0.33058 ,0.01809 ,0.00291 ,0.00010 ,0.01051 - +,0.47561 ,0.17287 ,0.29568 ,0.01717 ,0.00311 ,0.00032 ,0.01014 - +,0.45816 ,0.16510 ,0.26634 ,0.01632 ,0.00325 ,0.00076 ,0.00982 - +,0.44227 ,0.15800 ,0.24127 ,0.01554 ,0.00340 ,0.00092 ,0.00945 - +,0.42747 ,0.15168 ,0.21982 ,0.01486 ,0.00344 ,0.00113 ,0.00910 - +,0.41388 ,0.14565 ,0.20120 ,0.01419 ,0.00346 ,0.00126 ,0.00888 - +,0.40122 ,0.14023 ,0.18498 ,0.01359 ,0.00346 ,0.00137 ,0.00857 - +,0.38955 ,0.13525 ,0.17084 ,0.01303 ,0.00343 ,0.00146 ,0.00827 - +,0.37884 ,0.13058 ,0.15844 ,0.01246 ,0.00338 ,0.00150 ,0.00802 - +,0.36842 ,0.12632 ,0.14739 ,0.01199 ,0.00336 ,0.00160 ,0.00773 - +,0.35864 ,0.12237 ,0.13755 ,0.01156 ,0.00334 ,0.00165 ,0.00747 - +,0.34943 ,0.11866 ,0.12873 ,0.01116 ,0.00329 ,0.00164 ,0.00725 - +,0.34083 ,0.11515 ,0.12085 ,0.01076 ,0.00324 ,0.00165 ,0.00705 - +,0.33278 ,0.11185 ,0.11378 ,0.01038 ,0.00320 ,0.00166 ,0.00686 - +,0.32505 ,0.10879 ,0.10735 ,0.01003 ,0.00314 ,0.00167 ,0.00665/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),K=1,19)/ - + 0.57130 ,0.20986 ,0.47897 ,0.01657 ,0.00039 ,0.00008 ,0.00859 - +,0.53839 ,0.19460 ,0.40503 ,0.01557 ,0.00111 ,0.00012 ,0.00836 - +,0.51006 ,0.18167 ,0.34772 ,0.01459 ,0.00162 ,0.00005 ,0.00820 - +,0.48504 ,0.17081 ,0.30226 ,0.01376 ,0.00199 ,0.00011 ,0.00787 - +,0.46317 ,0.16108 ,0.26556 ,0.01296 ,0.00225 ,0.00011 ,0.00758 - +,0.44311 ,0.15286 ,0.23528 ,0.01225 ,0.00239 ,0.00029 ,0.00736 - +,0.42527 ,0.14530 ,0.21008 ,0.01159 ,0.00250 ,0.00054 ,0.00709 - +,0.40900 ,0.13851 ,0.18894 ,0.01102 ,0.00254 ,0.00067 ,0.00680 - +,0.39407 ,0.13233 ,0.17095 ,0.01046 ,0.00261 ,0.00075 ,0.00659 - +,0.38013 ,0.12685 ,0.15558 ,0.01000 ,0.00258 ,0.00096 ,0.00631 - +,0.36755 ,0.12174 ,0.14224 ,0.00949 ,0.00255 ,0.00100 ,0.00611 - +,0.35580 ,0.11706 ,0.13066 ,0.00904 ,0.00252 ,0.00101 ,0.00591 - +,0.34458 ,0.11280 ,0.12058 ,0.00871 ,0.00248 ,0.00107 ,0.00567 - +,0.33440 ,0.10874 ,0.11169 ,0.00835 ,0.00245 ,0.00112 ,0.00543 - +,0.32484 ,0.10502 ,0.10382 ,0.00802 ,0.00243 ,0.00117 ,0.00523 - +,0.31562 ,0.10166 ,0.09681 ,0.00772 ,0.00243 ,0.00123 ,0.00511 - +,0.30708 ,0.09846 ,0.09052 ,0.00745 ,0.00237 ,0.00123 ,0.00495 - +,0.29915 ,0.09543 ,0.08485 ,0.00719 ,0.00228 ,0.00119 ,0.00476 - +,0.29158 ,0.09261 ,0.07978 ,0.00692 ,0.00223 ,0.00119 ,0.00462/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),K=1,19)/ - + 0.54087 ,0.18863 ,0.40186 ,0.01207 ,0.00016 ,-0.00010 ,0.00607 - +,0.50635 ,0.17383 ,0.33459 ,0.01124 ,0.00077 ,-0.00004 ,0.00597 - +,0.47690 ,0.16143 ,0.28362 ,0.01049 ,0.00114 ,-0.00009 ,0.00584 - +,0.45143 ,0.15077 ,0.24353 ,0.00983 ,0.00142 ,-0.00002 ,0.00559 - +,0.42885 ,0.14169 ,0.21179 ,0.00927 ,0.00158 ,-0.00010 ,0.00538 - +,0.40888 ,0.13362 ,0.18631 ,0.00866 ,0.00179 ,0.00003 ,0.00523 - +,0.39078 ,0.12668 ,0.16503 ,0.00819 ,0.00180 ,0.00025 ,0.00497 - +,0.37456 ,0.12039 ,0.14731 ,0.00774 ,0.00180 ,0.00041 ,0.00476 - +,0.35932 ,0.11465 ,0.13263 ,0.00739 ,0.00185 ,0.00053 ,0.00458 - +,0.34590 ,0.10943 ,0.12001 ,0.00699 ,0.00183 ,0.00059 ,0.00446 - +,0.33328 ,0.10475 ,0.10920 ,0.00665 ,0.00182 ,0.00067 ,0.00431 - +,0.32159 ,0.10049 ,0.09984 ,0.00633 ,0.00179 ,0.00072 ,0.00412 - +,0.31082 ,0.09657 ,0.09164 ,0.00603 ,0.00175 ,0.00072 ,0.00389 - +,0.30066 ,0.09293 ,0.08447 ,0.00579 ,0.00174 ,0.00078 ,0.00379 - +,0.29120 ,0.08957 ,0.07819 ,0.00557 ,0.00173 ,0.00082 ,0.00370 - +,0.28231 ,0.08644 ,0.07265 ,0.00537 ,0.00170 ,0.00083 ,0.00355 - +,0.27407 ,0.08350 ,0.06774 ,0.00516 ,0.00167 ,0.00083 ,0.00341 - +,0.26640 ,0.08075 ,0.06335 ,0.00495 ,0.00163 ,0.00082 ,0.00326 - +,0.25912 ,0.07819 ,0.05940 ,0.00478 ,0.00157 ,0.00081 ,0.00314/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),K=1,19)/ - + 0.50654 ,0.16707 ,0.33353 ,0.00836 ,0.00036 ,0.00010 ,0.00447 - +,0.47131 ,0.15282 ,0.27348 ,0.00781 ,0.00071 ,0.00008 ,0.00437 - +,0.44126 ,0.14122 ,0.22884 ,0.00730 ,0.00101 ,0.00009 ,0.00416 - +,0.41532 ,0.13150 ,0.19460 ,0.00681 ,0.00118 ,0.00013 ,0.00405 - +,0.39285 ,0.12299 ,0.16783 ,0.00637 ,0.00129 ,0.00008 ,0.00387 - +,0.37297 ,0.11550 ,0.14623 ,0.00601 ,0.00133 ,0.00019 ,0.00370 - +,0.35503 ,0.10899 ,0.12867 ,0.00568 ,0.00133 ,0.00033 ,0.00359 - +,0.33913 ,0.10320 ,0.11416 ,0.00529 ,0.00135 ,0.00040 ,0.00339 - +,0.32436 ,0.09807 ,0.10190 ,0.00505 ,0.00132 ,0.00046 ,0.00325 - +,0.31099 ,0.09337 ,0.09161 ,0.00478 ,0.00133 ,0.00048 ,0.00309 - +,0.29848 ,0.08915 ,0.08299 ,0.00460 ,0.00135 ,0.00049 ,0.00297 - +,0.28707 ,0.08527 ,0.07557 ,0.00441 ,0.00134 ,0.00052 ,0.00285 - +,0.27682 ,0.08165 ,0.06905 ,0.00417 ,0.00129 ,0.00059 ,0.00272 - +,0.26723 ,0.07835 ,0.06343 ,0.00393 ,0.00127 ,0.00058 ,0.00265 - +,0.25829 ,0.07534 ,0.05850 ,0.00373 ,0.00126 ,0.00057 ,0.00257 - +,0.24981 ,0.07260 ,0.05415 ,0.00360 ,0.00124 ,0.00056 ,0.00243 - +,0.24191 ,0.06999 ,0.05031 ,0.00349 ,0.00120 ,0.00056 ,0.00232 - +,0.23455 ,0.06751 ,0.04689 ,0.00339 ,0.00115 ,0.00055 ,0.00223 - +,0.22769 ,0.06522 ,0.04383 ,0.00326 ,0.00108 ,0.00056 ,0.00216/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),K=1,19)/ - + 0.46927 ,0.14695 ,0.27460 ,0.00598 ,0.00013 ,-0.00004 ,0.00295 - +,0.43382 ,0.13366 ,0.22227 ,0.00551 ,0.00043 ,-0.00003 ,0.00299 - +,0.40386 ,0.12282 ,0.18377 ,0.00512 ,0.00065 ,-0.00002 ,0.00290 - +,0.37847 ,0.11367 ,0.15471 ,0.00480 ,0.00073 ,-0.00003 ,0.00271 - +,0.35640 ,0.10583 ,0.13190 ,0.00442 ,0.00090 ,-0.00004 ,0.00263 - +,0.33666 ,0.09913 ,0.11407 ,0.00419 ,0.00090 ,0.00006 ,0.00253 - +,0.31938 ,0.09314 ,0.09980 ,0.00395 ,0.00092 ,0.00016 ,0.00241 - +,0.30376 ,0.08793 ,0.08791 ,0.00369 ,0.00091 ,0.00019 ,0.00227 - +,0.28964 ,0.08316 ,0.07799 ,0.00353 ,0.00093 ,0.00024 ,0.00217 - +,0.27663 ,0.07905 ,0.06980 ,0.00336 ,0.00089 ,0.00026 ,0.00209 - +,0.26490 ,0.07524 ,0.06285 ,0.00317 ,0.00089 ,0.00032 ,0.00198 - +,0.25424 ,0.07172 ,0.05690 ,0.00301 ,0.00090 ,0.00036 ,0.00189 - +,0.24445 ,0.06848 ,0.05177 ,0.00287 ,0.00089 ,0.00037 ,0.00185 - +,0.23524 ,0.06555 ,0.04735 ,0.00275 ,0.00084 ,0.00038 ,0.00175 - +,0.22676 ,0.06288 ,0.04350 ,0.00263 ,0.00080 ,0.00038 ,0.00165 - +,0.21898 ,0.06046 ,0.04013 ,0.00248 ,0.00077 ,0.00037 ,0.00159 - +,0.21169 ,0.05818 ,0.03718 ,0.00235 ,0.00076 ,0.00037 ,0.00154 - +,0.20487 ,0.05604 ,0.03457 ,0.00224 ,0.00077 ,0.00038 ,0.00148 - +,0.19838 ,0.05405 ,0.03223 ,0.00217 ,0.00074 ,0.00037 ,0.00141/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),K=1,19)/ - + 0.43009 ,0.12748 ,0.22366 ,0.00400 ,0.00019 ,0.00007 ,0.00215 - +,0.39534 ,0.11524 ,0.17850 ,0.00370 ,0.00034 ,0.00010 ,0.00209 - +,0.36578 ,0.10533 ,0.14586 ,0.00353 ,0.00049 ,0.00005 ,0.00204 - +,0.34110 ,0.09703 ,0.12139 ,0.00322 ,0.00057 ,0.00000 ,0.00194 - +,0.31934 ,0.09006 ,0.10284 ,0.00305 ,0.00062 ,-0.00001 ,0.00185 - +,0.30080 ,0.08395 ,0.08822 ,0.00282 ,0.00064 ,0.00008 ,0.00174 - +,0.28407 ,0.07862 ,0.07653 ,0.00266 ,0.00068 ,0.00011 ,0.00165 - +,0.26930 ,0.07392 ,0.06701 ,0.00246 ,0.00070 ,0.00018 ,0.00159 - +,0.25601 ,0.06967 ,0.05908 ,0.00235 ,0.00065 ,0.00019 ,0.00148 - +,0.24384 ,0.06594 ,0.05259 ,0.00218 ,0.00062 ,0.00022 ,0.00144 - +,0.23282 ,0.06263 ,0.04709 ,0.00206 ,0.00063 ,0.00024 ,0.00137 - +,0.22278 ,0.05960 ,0.04242 ,0.00196 ,0.00064 ,0.00025 ,0.00130 - +,0.21358 ,0.05679 ,0.03845 ,0.00188 ,0.00062 ,0.00025 ,0.00121 - +,0.20497 ,0.05427 ,0.03506 ,0.00179 ,0.00062 ,0.00028 ,0.00120 - +,0.19705 ,0.05195 ,0.03212 ,0.00171 ,0.00060 ,0.00029 ,0.00118 - +,0.18975 ,0.04974 ,0.02955 ,0.00166 ,0.00054 ,0.00027 ,0.00110 - +,0.18302 ,0.04774 ,0.02729 ,0.00157 ,0.00052 ,0.00026 ,0.00103 - +,0.17679 ,0.04590 ,0.02529 ,0.00147 ,0.00052 ,0.00026 ,0.00097 - +,0.17091 ,0.04418 ,0.02352 ,0.00141 ,0.00050 ,0.00024 ,0.00093/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),K=1,19)/ - + 0.39010 ,0.10947 ,0.18037 ,0.00269 ,0.00019 ,0.00003 ,0.00143 - +,0.35623 ,0.09848 ,0.14224 ,0.00248 ,0.00026 ,0.00006 ,0.00143 - +,0.32772 ,0.08962 ,0.11485 ,0.00240 ,0.00035 ,0.00005 ,0.00136 - +,0.30394 ,0.08214 ,0.09490 ,0.00229 ,0.00036 ,0.00007 ,0.00125 - +,0.28366 ,0.07586 ,0.07957 ,0.00209 ,0.00043 ,0.00005 ,0.00122 - +,0.26605 ,0.07053 ,0.06764 ,0.00189 ,0.00044 ,0.00007 ,0.00119 - +,0.25030 ,0.06575 ,0.05828 ,0.00182 ,0.00041 ,0.00009 ,0.00109 - +,0.23643 ,0.06159 ,0.05069 ,0.00172 ,0.00043 ,0.00013 ,0.00103 - +,0.22394 ,0.05798 ,0.04453 ,0.00160 ,0.00044 ,0.00014 ,0.00097 - +,0.21274 ,0.05471 ,0.03936 ,0.00149 ,0.00037 ,0.00011 ,0.00090 - +,0.20253 ,0.05173 ,0.03511 ,0.00143 ,0.00038 ,0.00013 ,0.00085 - +,0.19326 ,0.04906 ,0.03152 ,0.00137 ,0.00039 ,0.00014 ,0.00080 - +,0.18482 ,0.04669 ,0.02844 ,0.00127 ,0.00036 ,0.00011 ,0.00076 - +,0.17699 ,0.04447 ,0.02583 ,0.00120 ,0.00036 ,0.00011 ,0.00072 - +,0.16982 ,0.04245 ,0.02357 ,0.00114 ,0.00036 ,0.00011 ,0.00069 - +,0.16322 ,0.04061 ,0.02161 ,0.00106 ,0.00035 ,0.00012 ,0.00067 - +,0.15707 ,0.03891 ,0.01991 ,0.00102 ,0.00034 ,0.00012 ,0.00064 - +,0.15133 ,0.03733 ,0.01842 ,0.00099 ,0.00032 ,0.00012 ,0.00060 - +,0.14601 ,0.03587 ,0.01709 ,0.00095 ,0.00031 ,0.00012 ,0.00058/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),K=1,19)/ - + 0.35004 ,0.09294 ,0.14366 ,0.00181 ,0.00010 ,0.00001 ,0.00096 - +,0.31737 ,0.08312 ,0.11179 ,0.00162 ,0.00020 ,-0.00001 ,0.00094 - +,0.29045 ,0.07514 ,0.08915 ,0.00159 ,0.00023 ,0.00000 ,0.00088 - +,0.26790 ,0.06854 ,0.07283 ,0.00145 ,0.00028 ,-0.00001 ,0.00083 - +,0.24881 ,0.06300 ,0.06044 ,0.00138 ,0.00035 ,0.00000 ,0.00084 - +,0.23243 ,0.05822 ,0.05099 ,0.00122 ,0.00035 ,0.00000 ,0.00079 - +,0.21802 ,0.05416 ,0.04357 ,0.00111 ,0.00037 ,0.00005 ,0.00080 - +,0.20518 ,0.05055 ,0.03768 ,0.00106 ,0.00032 ,0.00010 ,0.00074 - +,0.19356 ,0.04737 ,0.03287 ,0.00098 ,0.00032 ,0.00007 ,0.00067 - +,0.18306 ,0.04457 ,0.02895 ,0.00096 ,0.00026 ,0.00008 ,0.00060 - +,0.17381 ,0.04206 ,0.02568 ,0.00091 ,0.00026 ,0.00008 ,0.00057 - +,0.16547 ,0.03979 ,0.02294 ,0.00083 ,0.00027 ,0.00008 ,0.00055 - +,0.15782 ,0.03771 ,0.02062 ,0.00075 ,0.00027 ,0.00008 ,0.00052 - +,0.15077 ,0.03583 ,0.01867 ,0.00074 ,0.00026 ,0.00010 ,0.00051 - +,0.14435 ,0.03412 ,0.01699 ,0.00071 ,0.00026 ,0.00011 ,0.00049 - +,0.13851 ,0.03255 ,0.01554 ,0.00066 ,0.00027 ,0.00012 ,0.00046 - +,0.13301 ,0.03110 ,0.01426 ,0.00062 ,0.00028 ,0.00012 ,0.00045 - +,0.12784 ,0.02978 ,0.01312 ,0.00059 ,0.00028 ,0.00013 ,0.00045 - +,0.12314 ,0.02855 ,0.01214 ,0.00055 ,0.00028 ,0.00013 ,0.00044/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),K=1,19)/ - + 0.31041 ,0.07819 ,0.11345 ,0.00124 ,0.00001 ,-0.00002 ,0.00059 - +,0.28003 ,0.06934 ,0.08695 ,0.00110 ,0.00008 ,0.00000 ,0.00060 - +,0.25490 ,0.06240 ,0.06856 ,0.00104 ,0.00014 ,0.00000 ,0.00056 - +,0.23402 ,0.05671 ,0.05549 ,0.00089 ,0.00022 ,-0.00001 ,0.00057 - +,0.21610 ,0.05186 ,0.04565 ,0.00096 ,0.00023 ,0.00002 ,0.00055 - +,0.20101 ,0.04778 ,0.03826 ,0.00083 ,0.00019 ,-0.00001 ,0.00048 - +,0.18765 ,0.04429 ,0.03250 ,0.00078 ,0.00021 ,0.00002 ,0.00045 - +,0.17596 ,0.04117 ,0.02788 ,0.00073 ,0.00017 ,0.00002 ,0.00042 - +,0.16558 ,0.03845 ,0.02421 ,0.00072 ,0.00018 ,0.00003 ,0.00040 - +,0.15630 ,0.03605 ,0.02121 ,0.00067 ,0.00020 ,0.00005 ,0.00039 - +,0.14789 ,0.03391 ,0.01874 ,0.00062 ,0.00018 ,0.00004 ,0.00036 - +,0.14032 ,0.03199 ,0.01667 ,0.00059 ,0.00017 ,0.00004 ,0.00035 - +,0.13352 ,0.03026 ,0.01494 ,0.00055 ,0.00019 ,0.00008 ,0.00037 - +,0.12727 ,0.02869 ,0.01347 ,0.00050 ,0.00017 ,0.00006 ,0.00034 - +,0.12155 ,0.02727 ,0.01221 ,0.00046 ,0.00015 ,0.00004 ,0.00031 - +,0.11621 ,0.02597 ,0.01112 ,0.00045 ,0.00016 ,0.00004 ,0.00029 - +,0.11133 ,0.02476 ,0.01018 ,0.00044 ,0.00017 ,0.00006 ,0.00027 - +,0.10685 ,0.02364 ,0.00937 ,0.00042 ,0.00017 ,0.00008 ,0.00026 - +,0.10270 ,0.02262 ,0.00865 ,0.00039 ,0.00017 ,0.00008 ,0.00026/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),K=1,19)/ - + 0.27216 ,0.06472 ,0.08808 ,0.00076 ,0.00004 ,-0.00004 ,0.00030 - +,0.24361 ,0.05712 ,0.06669 ,0.00075 ,0.00006 ,-0.00003 ,0.00033 - +,0.22060 ,0.05111 ,0.05205 ,0.00069 ,0.00007 ,-0.00003 ,0.00034 - +,0.20136 ,0.04619 ,0.04163 ,0.00074 ,0.00011 ,-0.00002 ,0.00033 - +,0.18541 ,0.04214 ,0.03403 ,0.00060 ,0.00009 ,-0.00005 ,0.00027 - +,0.17174 ,0.03862 ,0.02829 ,0.00054 ,0.00012 ,-0.00003 ,0.00028 - +,0.15981 ,0.03566 ,0.02385 ,0.00051 ,0.00012 ,-0.00002 ,0.00028 - +,0.14926 ,0.03305 ,0.02036 ,0.00050 ,0.00011 ,0.00000 ,0.00026 - +,0.14021 ,0.03079 ,0.01755 ,0.00040 ,0.00013 ,0.00001 ,0.00025 - +,0.13194 ,0.02876 ,0.01531 ,0.00037 ,0.00012 ,0.00001 ,0.00024 - +,0.12455 ,0.02697 ,0.01347 ,0.00034 ,0.00013 ,0.00004 ,0.00024 - +,0.11781 ,0.02538 ,0.01194 ,0.00034 ,0.00014 ,0.00005 ,0.00023 - +,0.11158 ,0.02393 ,0.01065 ,0.00036 ,0.00012 ,0.00003 ,0.00021 - +,0.10609 ,0.02263 ,0.00958 ,0.00034 ,0.00012 ,0.00003 ,0.00021 - +,0.10110 ,0.02146 ,0.00866 ,0.00031 ,0.00012 ,0.00003 ,0.00020 - +,0.09652 ,0.02039 ,0.00786 ,0.00028 ,0.00012 ,0.00004 ,0.00020 - +,0.09227 ,0.01940 ,0.00717 ,0.00027 ,0.00012 ,0.00005 ,0.00019 - +,0.08834 ,0.01850 ,0.00658 ,0.00026 ,0.00011 ,0.00005 ,0.00018 - +,0.08473 ,0.01766 ,0.00606 ,0.00023 ,0.00010 ,0.00005 ,0.00017/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),K=1,19)/ - + 0.23580 ,0.05296 ,0.06756 ,0.00047 ,0.00000 ,-0.00005 ,0.00020 - +,0.20963 ,0.04647 ,0.05036 ,0.00049 ,0.00004 ,-0.00003 ,0.00020 - +,0.18873 ,0.04129 ,0.03884 ,0.00043 ,0.00004 ,-0.00003 ,0.00025 - +,0.17139 ,0.03714 ,0.03071 ,0.00042 ,0.00006 ,-0.00007 ,0.00017 - +,0.15703 ,0.03369 ,0.02489 ,0.00038 ,0.00009 ,-0.00007 ,0.00017 - +,0.14488 ,0.03077 ,0.02052 ,0.00034 ,0.00009 ,-0.00001 ,0.00019 - +,0.13432 ,0.02826 ,0.01718 ,0.00030 ,0.00005 ,-0.00003 ,0.00019 - +,0.12494 ,0.02611 ,0.01456 ,0.00030 ,0.00006 ,-0.00001 ,0.00016 - +,0.11681 ,0.02421 ,0.01251 ,0.00027 ,0.00011 ,0.00001 ,0.00017 - +,0.10961 ,0.02256 ,0.01084 ,0.00025 ,0.00009 ,0.00002 ,0.00015 - +,0.10319 ,0.02109 ,0.00950 ,0.00021 ,0.00008 ,0.00001 ,0.00013 - +,0.09742 ,0.01978 ,0.00839 ,0.00017 ,0.00009 ,0.00001 ,0.00013 - +,0.09222 ,0.01861 ,0.00745 ,0.00015 ,0.00012 ,0.00004 ,0.00016 - +,0.08733 ,0.01755 ,0.00667 ,0.00016 ,0.00010 ,0.00003 ,0.00014 - +,0.08293 ,0.01660 ,0.00601 ,0.00016 ,0.00008 ,0.00002 ,0.00013 - +,0.07901 ,0.01571 ,0.00545 ,0.00013 ,0.00008 ,0.00002 ,0.00012 - +,0.07535 ,0.01492 ,0.00496 ,0.00012 ,0.00008 ,0.00002 ,0.00012 - +,0.07193 ,0.01420 ,0.00454 ,0.00013 ,0.00007 ,0.00002 ,0.00012 - +,0.06878 ,0.01353 ,0.00418 ,0.00013 ,0.00007 ,0.00003 ,0.00012/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),K=1,19)/ - + 0.20148 ,0.04259 ,0.05086 ,0.00031 ,-0.00003 ,-0.00001 ,0.00011 - +,0.17780 ,0.03712 ,0.03737 ,0.00030 ,-0.00001 ,-0.00006 ,0.00009 - +,0.15932 ,0.03277 ,0.02846 ,0.00023 ,0.00003 ,-0.00006 ,0.00010 - +,0.14400 ,0.02932 ,0.02229 ,0.00021 ,0.00007 ,-0.00005 ,0.00014 - +,0.13120 ,0.02649 ,0.01787 ,0.00020 ,0.00008 ,-0.00004 ,0.00014 - +,0.12053 ,0.02408 ,0.01462 ,0.00018 ,0.00007 ,0.00000 ,0.00015 - +,0.11121 ,0.02203 ,0.01216 ,0.00018 ,0.00010 ,0.00001 ,0.00013 - +,0.10300 ,0.02027 ,0.01026 ,0.00018 ,0.00007 ,0.00000 ,0.00012 - +,0.09596 ,0.01872 ,0.00876 ,0.00015 ,0.00006 ,0.00000 ,0.00012 - +,0.08974 ,0.01739 ,0.00755 ,0.00014 ,0.00007 ,0.00002 ,0.00012 - +,0.08411 ,0.01621 ,0.00658 ,0.00013 ,0.00007 ,0.00002 ,0.00012 - +,0.07913 ,0.01517 ,0.00578 ,0.00011 ,0.00007 ,0.00002 ,0.00012 - +,0.07477 ,0.01423 ,0.00513 ,0.00008 ,0.00006 ,0.00003 ,0.00012 - +,0.07067 ,0.01338 ,0.00458 ,0.00008 ,0.00008 ,0.00003 ,0.00010 - +,0.06694 ,0.01262 ,0.00412 ,0.00008 ,0.00008 ,0.00004 ,0.00009 - +,0.06354 ,0.01193 ,0.00372 ,0.00007 ,0.00008 ,0.00003 ,0.00008 - +,0.06046 ,0.01129 ,0.00338 ,0.00006 ,0.00007 ,0.00003 ,0.00008 - +,0.05765 ,0.01071 ,0.00309 ,0.00005 ,0.00007 ,0.00003 ,0.00008 - +,0.05503 ,0.01018 ,0.00283 ,0.00005 ,0.00006 ,0.00003 ,0.00008/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),K=1,19)/ - + 0.16982 ,0.03391 ,0.03778 ,0.00022 ,-0.00005 ,-0.00007 ,0.00000 - +,0.14910 ,0.02933 ,0.02736 ,0.00017 ,-0.00001 ,-0.00008 ,0.00005 - +,0.13261 ,0.02576 ,0.02061 ,0.00017 ,0.00001 ,-0.00004 ,0.00006 - +,0.11933 ,0.02290 ,0.01600 ,0.00013 ,0.00000 ,-0.00007 ,0.00003 - +,0.10818 ,0.02059 ,0.01272 ,0.00014 ,0.00003 ,-0.00006 ,0.00007 - +,0.09891 ,0.01863 ,0.01034 ,0.00013 ,0.00003 ,-0.00006 ,0.00005 - +,0.09081 ,0.01699 ,0.00855 ,0.00015 ,0.00003 ,-0.00003 ,0.00007 - +,0.08399 ,0.01558 ,0.00717 ,0.00012 ,0.00004 ,-0.00002 ,0.00007 - +,0.07803 ,0.01436 ,0.00608 ,0.00008 ,0.00005 ,0.00000 ,0.00006 - +,0.07263 ,0.01328 ,0.00523 ,0.00009 ,0.00004 ,0.00000 ,0.00008 - +,0.06789 ,0.01235 ,0.00454 ,0.00007 ,0.00003 ,0.00000 ,0.00006 - +,0.06370 ,0.01152 ,0.00398 ,0.00005 ,0.00003 ,0.00000 ,0.00005 - +,0.05995 ,0.01076 ,0.00352 ,0.00005 ,0.00003 ,0.00001 ,0.00005 - +,0.05651 ,0.01009 ,0.00313 ,0.00006 ,0.00004 ,0.00002 ,0.00005 - +,0.05340 ,0.00949 ,0.00281 ,0.00006 ,0.00004 ,0.00002 ,0.00005 - +,0.05058 ,0.00896 ,0.00253 ,0.00006 ,0.00003 ,0.00002 ,0.00004 - +,0.04801 ,0.00847 ,0.00229 ,0.00005 ,0.00003 ,0.00001 ,0.00004 - +,0.04565 ,0.00801 ,0.00209 ,0.00005 ,0.00003 ,0.00001 ,0.00004 - +,0.04349 ,0.00760 ,0.00191 ,0.00005 ,0.00003 ,0.00001 ,0.00004/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),K=1,19)/ - + 0.14066 ,0.02631 ,0.02735 ,0.00010 ,-0.00002 ,-0.00005 ,0.00002 - +,0.12272 ,0.02264 ,0.01963 ,0.00007 ,-0.00001 ,-0.00004 ,0.00002 - +,0.10852 ,0.01979 ,0.01463 ,0.00012 ,0.00001 ,-0.00001 ,0.00004 - +,0.09708 ,0.01752 ,0.01124 ,0.00010 ,-0.00001 ,-0.00003 ,0.00001 - +,0.08776 ,0.01570 ,0.00888 ,0.00008 ,0.00001 ,0.00000 ,0.00002 - +,0.07982 ,0.01414 ,0.00717 ,0.00009 ,0.00001 ,0.00000 ,0.00002 - +,0.07317 ,0.01286 ,0.00590 ,0.00006 ,-0.00001 ,-0.00002 ,0.00000 - +,0.06737 ,0.01175 ,0.00492 ,0.00006 ,0.00001 ,0.00001 ,0.00003 - +,0.06228 ,0.01080 ,0.00416 ,0.00008 ,0.00001 ,0.00001 ,0.00003 - +,0.05786 ,0.00997 ,0.00356 ,0.00005 ,0.00002 ,0.00000 ,0.00003 - +,0.05389 ,0.00923 ,0.00308 ,0.00005 ,0.00002 ,-0.00001 ,0.00002 - +,0.05037 ,0.00859 ,0.00269 ,0.00006 ,0.00001 ,-0.00001 ,0.00001 - +,0.04725 ,0.00802 ,0.00236 ,0.00007 ,0.00000 ,0.00001 ,0.00002 - +,0.04446 ,0.00750 ,0.00210 ,0.00005 ,0.00001 ,0.00000 ,0.00002 - +,0.04193 ,0.00704 ,0.00188 ,0.00004 ,0.00001 ,-0.00001 ,0.00002 - +,0.03960 ,0.00662 ,0.00169 ,0.00005 ,0.00000 ,-0.00001 ,0.00002 - +,0.03749 ,0.00625 ,0.00153 ,0.00005 ,0.00001 ,0.00000 ,0.00002 - +,0.03558 ,0.00590 ,0.00139 ,0.00004 ,0.00001 ,0.00000 ,0.00001 - +,0.03383 ,0.00559 ,0.00127 ,0.00004 ,0.00001 ,0.00000 ,0.00001/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),K=1,19)/ - + 0.09154 ,0.01495 ,0.01339 ,0.00004 ,-0.00002 ,0.00000 ,0.00000 - +,0.07871 ,0.01266 ,0.00932 ,0.00003 ,-0.00001 ,0.00000 ,0.00002 - +,0.06870 ,0.01093 ,0.00677 ,0.00003 ,0.00000 ,-0.00001 ,0.00001 - +,0.06074 ,0.00957 ,0.00511 ,0.00003 ,0.00001 ,-0.00001 ,0.00000 - +,0.05433 ,0.00847 ,0.00395 ,0.00002 ,0.00000 ,0.00000 ,0.00001 - +,0.04900 ,0.00757 ,0.00314 ,0.00002 ,0.00002 ,0.00001 ,0.00002 - +,0.04447 ,0.00682 ,0.00255 ,0.00002 ,0.00002 ,0.00000 ,0.00002 - +,0.04060 ,0.00618 ,0.00209 ,0.00001 ,0.00002 ,0.00000 ,0.00002 - +,0.03725 ,0.00563 ,0.00175 ,0.00000 ,0.00001 ,0.00000 ,0.00002 - +,0.03430 ,0.00515 ,0.00149 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.03174 ,0.00474 ,0.00127 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02948 ,0.00438 ,0.00110 ,0.00001 ,0.00001 ,0.00000 ,0.00000 - +,0.02745 ,0.00406 ,0.00097 ,0.00002 ,0.00001 ,0.00001 ,0.00001 - +,0.02567 ,0.00378 ,0.00085 ,0.00002 ,0.00001 ,0.00001 ,0.00001 - +,0.02408 ,0.00353 ,0.00076 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02263 ,0.00330 ,0.00068 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02132 ,0.00310 ,0.00061 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02014 ,0.00291 ,0.00055 ,0.00000 ,0.00001 ,0.00000 ,0.00001 - +,0.01905 ,0.00274 ,0.00050 ,0.00000 ,0.00001 ,0.00000 ,0.00001/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),K=1,19)/ - + 0.05476 ,0.00773 ,0.00588 ,0.00002 ,-0.00002 ,-0.00002 ,-0.00002 - +,0.04631 ,0.00644 ,0.00397 ,0.00002 ,0.00000 ,-0.00001 ,0.00000 - +,0.03992 ,0.00548 ,0.00281 ,0.00001 ,-0.00001 ,-0.00001 ,0.00000 - +,0.03487 ,0.00474 ,0.00207 ,0.00001 ,0.00001 ,-0.00001 ,0.00001 - +,0.03084 ,0.00415 ,0.00157 ,0.00000 ,0.00000 ,-0.00001 ,0.00000 - +,0.02748 ,0.00367 ,0.00123 ,0.00000 ,0.00000 ,-0.00001 ,0.00000 - +,0.02471 ,0.00327 ,0.00098 ,0.00000 ,0.00000 ,0.00000 ,0.00001 - +,0.02233 ,0.00294 ,0.00080 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.02034 ,0.00266 ,0.00066 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01857 ,0.00241 ,0.00056 ,0.00000 ,0.00001 ,0.00000 ,0.00000 - +,0.01705 ,0.00220 ,0.00047 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01573 ,0.00202 ,0.00041 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01457 ,0.00186 ,0.00035 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01352 ,0.00172 ,0.00031 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01259 ,0.00159 ,0.00028 ,0.00000 ,0.00000 ,0.00000 ,0.00001 - +,0.01177 ,0.00148 ,0.00025 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01103 ,0.00138 ,0.00022 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01036 ,0.00129 ,0.00020 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00974 ,0.00121 ,0.00018 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),K=1,19)/ - + 0.02907 ,0.00346 ,0.00219 ,0.00001 ,-0.00001 ,0.00000 ,-0.00001 - +,0.02418 ,0.00284 ,0.00143 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.02051 ,0.00238 ,0.00099 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01765 ,0.00203 ,0.00071 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01541 ,0.00176 ,0.00053 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01361 ,0.00154 ,0.00041 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01209 ,0.00135 ,0.00032 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01082 ,0.00120 ,0.00026 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00976 ,0.00108 ,0.00021 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00885 ,0.00097 ,0.00018 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00806 ,0.00088 ,0.00015 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00737 ,0.00080 ,0.00013 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00677 ,0.00073 ,0.00011 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00625 ,0.00067 ,0.00010 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00578 ,0.00062 ,0.00009 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00536 ,0.00057 ,0.00008 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00499 ,0.00053 ,0.00007 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00466 ,0.00049 ,0.00006 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00436 ,0.00046 ,0.00006 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),K=1,19)/ - + 0.01312 ,0.00128 ,0.00065 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01068 ,0.00103 ,0.00041 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00889 ,0.00085 ,0.00027 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00754 ,0.00071 ,0.00019 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00648 ,0.00060 ,0.00014 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00563 ,0.00052 ,0.00011 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00494 ,0.00045 ,0.00008 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00437 ,0.00040 ,0.00007 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00390 ,0.00035 ,0.00005 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00349 ,0.00031 ,0.00004 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00315 ,0.00028 ,0.00004 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00285 ,0.00025 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00260 ,0.00023 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00238 ,0.00021 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00218 ,0.00019 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00201 ,0.00018 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00185 ,0.00016 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00172 ,0.00015 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00160 ,0.00014 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),K=1,19)/ - + 0.00099 ,0.00005 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00076 ,0.00004 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00060 ,0.00003 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00049 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00040 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00034 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00028 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00024 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00021 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00018 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00016 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00014 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00013 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00011 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00010 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00009 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00008 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00007 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00007 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,4,5,0,0,5/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C -C - XSAVE=X -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(68,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M) -C 1=UV 2=DV 3=GLUE 4=(UBAR+DBAR)/2 5=CBAR 7=BBAR 6=SBAR - DO 25 I=1,7 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=1,6 - DO 30 K=1,19 - 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) - 50 FORMAT(7F10.5) - DO 40 I=1,7 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,7 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) -C... THIS SEA IS (UBAR+DBAR)/2 - SEA=G(4) - STR=G(6) - CHM=G(5) - GL =G(3) - BOT=G(7) -C - X=XSAVE -C - RETURN - END diff --git a/PDF/spdf/sfkbmr5.F b/PDF/spdf/sfkbmr5.F deleted file mode 100644 index cd7ea82364d..00000000000 --- a/PDF/spdf/sfkbmr5.F +++ /dev/null @@ -1,1014 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:56 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:37 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE SFKBMR5(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - -C :::::::::::: KMRS (B-5) sea=ubar=dbar=2sbar at Q0**2 -C :::::::::::: WEAK (R=5 GEV^-1) SHADOWING -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(7,NX,19),G(7),XX(NX),N0(7) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),K=1,19)/ - + 0.01543 ,0.00139 ,53.93732 ,0.63661 ,0.12466 ,0.00000 ,0.39043 - +,0.01576 ,0.00155 ,63.10207 ,1.11724 ,0.61895 ,0.00000 ,0.87808 - +,0.01606 ,0.00170 ,74.88754 ,1.62592 ,1.13950 ,0.00000 ,1.39283 - +,0.01634 ,0.00185 ,88.49773 ,2.17548 ,1.69955 ,0.00000 ,1.94775 - +,0.01661 ,0.00199,103.64189 ,2.74630 ,2.27974 ,0.03434 ,2.52332 - +,0.01687 ,0.00213,119.96683 ,3.34482 ,2.88673 ,0.41047 ,3.12614 - +,0.01712 ,0.00226,137.32428 ,3.96990 ,3.51955 ,1.12883 ,3.75513 - +,0.01735 ,0.00238,155.57675 ,4.61957 ,4.17635 ,1.81277 ,4.40839 - +,0.01758 ,0.00251,174.60330 ,5.29151 ,4.85488 ,2.52565 ,5.08363 - +,0.01780 ,0.00263,194.22980 ,5.97685 ,5.54637 ,3.24753 ,5.77204 - +,0.01802 ,0.00275,214.41457 ,6.68100 ,6.25624 ,3.98602 ,6.47905 - +,0.01823 ,0.00286,235.11403 ,7.40355 ,6.98414 ,4.74082 ,7.20426 - +,0.01843 ,0.00297,256.26099 ,8.14156 ,7.72719 ,5.50918 ,7.94477 - +,0.01863 ,0.00308,277.64917 ,8.88635 ,8.47670 ,6.28268 ,8.69189 - +,0.01882 ,0.00319,299.44775 ,9.64876 ,9.24358 ,7.07223 ,9.45650 - +,0.01901 ,0.00330,321.44849,10.41849,10.01756 ,7.86776,10.22833 - +,0.01920 ,0.00340,343.66235,11.19838,10.80146 ,8.67219,11.01019 - +,0.01938 ,0.00350,366.11255,11.98933,11.59624 ,9.48654,11.80302 - +,0.01956 ,0.00360,388.60059,12.78468,12.39522,10.30423,12.60014/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),K=1,19)/ - + 0.01901 ,0.00212 ,40.82663 ,0.53503 ,0.10148 ,0.00000 ,0.32359 - +,0.01947 ,0.00237 ,47.97343 ,0.90621 ,0.48300 ,0.00000 ,0.70005 - +,0.01990 ,0.00259 ,56.87790 ,1.29361 ,0.87938 ,0.00000 ,1.09202 - +,0.02030 ,0.00281 ,66.98347 ,1.70741 ,1.30109 ,0.00000 ,1.50984 - +,0.02067 ,0.00301 ,78.05980 ,2.13325 ,1.73398 ,0.02554 ,1.93925 - +,0.02103 ,0.00321 ,89.86069 ,2.57601 ,2.18313 ,0.30363 ,2.38524 - +,0.02137 ,0.00339,102.27707 ,3.03490 ,2.64784 ,0.83251 ,2.84707 - +,0.02169 ,0.00358,115.20901 ,3.50846 ,3.12677 ,1.33215 ,3.32333 - +,0.02200 ,0.00376,128.56944 ,3.99505 ,3.61830 ,1.84965 ,3.81239 - +,0.02231 ,0.00393,142.22670 ,4.48812 ,4.11599 ,2.37032 ,4.30778 - +,0.02260 ,0.00410,156.16287 ,4.99174 ,4.62390 ,2.89984 ,4.81354 - +,0.02288 ,0.00426,170.35071 ,5.50565 ,5.14184 ,3.43806 ,5.32945 - +,0.02316 ,0.00442,184.74261 ,6.02779 ,5.66775 ,3.98306 ,5.85347 - +,0.02343 ,0.00458,199.18904 ,6.55175 ,6.19528 ,4.52864 ,6.37920 - +,0.02369 ,0.00473,213.82605 ,7.08566 ,6.73256 ,5.08297 ,6.91478 - +,0.02394 ,0.00488,228.50055 ,7.62202 ,7.27210 ,5.63873 ,7.45272 - +,0.02419 ,0.00503,243.22897 ,8.16297 ,7.81606 ,6.19812 ,7.99515 - +,0.02443 ,0.00517,258.03198 ,8.70927 ,8.36522 ,6.76197 ,8.54285 - +,0.02466 ,0.00531,272.77148 ,9.25607 ,8.91475 ,7.32555 ,9.09100/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),K=1,19)/ - + 0.02333 ,0.00325 ,30.89745 ,0.44958 ,0.08262 ,0.00000 ,0.26823 - +,0.02397 ,0.00361 ,36.46609 ,0.73538 ,0.37616 ,0.00000 ,0.55793 - +,0.02456 ,0.00394 ,43.19214 ,1.02992 ,0.67739 ,0.00000 ,0.85584 - +,0.02510 ,0.00425 ,50.69005 ,1.34103 ,0.99439 ,0.00000 ,1.16991 - +,0.02562 ,0.00455 ,58.77997 ,1.65825 ,1.31685 ,0.01896 ,1.48976 - +,0.02610 ,0.00483 ,67.29413 ,1.98530 ,1.64862 ,0.22426 ,1.81918 - +,0.02656 ,0.00511 ,76.15483 ,2.32165 ,1.98928 ,0.61307 ,2.15768 - +,0.02700 ,0.00537 ,85.29123 ,2.66627 ,2.33786 ,0.97749 ,2.50428 - +,0.02743 ,0.00563 ,94.64334 ,3.01798 ,2.69324 ,1.35253 ,2.85782 - +,0.02783 ,0.00587,104.11266 ,3.37205 ,3.05070 ,1.72740 ,3.21357 - +,0.02823 ,0.00611,113.69696 ,3.73149 ,3.41331 ,2.10636 ,3.57458 - +,0.02861 ,0.00635,123.38087 ,4.09622 ,3.78100 ,2.48940 ,3.94078 - +,0.02898 ,0.00657,133.13214 ,4.46477 ,4.15233 ,2.87515 ,4.31071 - +,0.02934 ,0.00680,142.84274 ,4.83248 ,4.52266 ,3.25910 ,4.67971 - +,0.02968 ,0.00701,152.62146 ,5.20543 ,4.89807 ,3.64738 ,5.05388 - +,0.03002 ,0.00722,162.35721 ,5.57817 ,5.27315 ,4.03467 ,5.42777 - +,0.03035 ,0.00743,172.06805 ,5.95232 ,5.64952 ,4.42266 ,5.80301 - +,0.03067 ,0.00763,181.77232 ,6.32851 ,6.02781 ,4.81201 ,6.18024 - +,0.03099 ,0.00783,191.37398 ,6.70328 ,6.40459 ,5.19935 ,6.55599/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),K=1,19)/ - + 0.02623 ,0.00417 ,26.24622 ,0.40609 ,0.07329 ,0.00000 ,0.24044 - +,0.02700 ,0.00462 ,31.05679 ,0.65102 ,0.32471 ,0.00000 ,0.48861 - +,0.02771 ,0.00503 ,36.76364 ,0.90172 ,0.58101 ,0.00000 ,0.74210 - +,0.02836 ,0.00542 ,43.05748 ,1.16481 ,0.84903 ,0.00000 ,1.00765 - +,0.02897 ,0.00579 ,49.78372 ,1.43164 ,1.12022 ,0.01592 ,1.27664 - +,0.02955 ,0.00614 ,56.81024 ,1.70537 ,1.39788 ,0.18769 ,1.55232 - +,0.03010 ,0.00648 ,64.07402 ,1.98559 ,1.68168 ,0.51221 ,1.83432 - +,0.03063 ,0.00681 ,71.51833 ,2.27147 ,1.97085 ,0.81493 ,2.12183 - +,0.03113 ,0.00712 ,79.09543 ,2.56209 ,2.26450 ,1.12531 ,2.41394 - +,0.03162 ,0.00743 ,86.72331 ,2.85348 ,2.55871 ,1.43434 ,2.70673 - +,0.03208 ,0.00772 ,94.40572 ,3.14824 ,2.85608 ,1.74562 ,3.00277 - +,0.03253 ,0.00801,102.13243 ,3.44631 ,3.15661 ,2.05919 ,3.30206 - +,0.03297 ,0.00829,109.87839 ,3.74654 ,3.45914 ,2.37397 ,3.60342 - +,0.03340 ,0.00856,117.55438 ,4.04504 ,3.75979 ,2.68619 ,3.90298 - +,0.03381 ,0.00883,125.25586 ,4.34695 ,4.06374 ,3.00107 ,4.20588 - +,0.03421 ,0.00908,132.89099 ,4.64777 ,4.36649 ,3.31418 ,4.50765 - +,0.03459 ,0.00934,140.47804 ,4.94886 ,4.66941 ,3.62696 ,4.80964 - +,0.03497 ,0.00958,148.03319 ,5.25080 ,4.97308 ,3.94001 ,5.11242 - +,0.03534 ,0.00982,155.47989 ,5.55075 ,5.27469 ,4.25057 ,5.41318/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),K=1,19)/ - + 0.02848 ,0.00498 ,23.37486 ,0.37786 ,0.06736 ,0.00000 ,0.22257 - +,0.02935 ,0.00550 ,27.71025 ,0.59724 ,0.29245 ,0.00000 ,0.44478 - +,0.03015 ,0.00599 ,32.78838 ,0.82077 ,0.52090 ,0.00000 ,0.67074 - +,0.03090 ,0.00644 ,38.34554 ,1.05428 ,0.75872 ,0.00000 ,0.90638 - +,0.03159 ,0.00688 ,44.24344 ,1.29019 ,0.99846 ,0.01406 ,1.14418 - +,0.03224 ,0.00729 ,50.37109 ,1.53135 ,1.24305 ,0.16535 ,1.38703 - +,0.03286 ,0.00768 ,56.67496 ,1.77742 ,1.49224 ,0.45069 ,1.63464 - +,0.03346 ,0.00806 ,63.10699 ,2.02769 ,1.74538 ,0.71597 ,1.88631 - +,0.03402 ,0.00842 ,69.62662 ,2.28136 ,2.00170 ,0.98722 ,2.14129 - +,0.03457 ,0.00878 ,76.16223 ,2.53501 ,2.25778 ,1.25653 ,2.39613 - +,0.03510 ,0.00912 ,82.72104 ,2.79090 ,2.51596 ,1.52710 ,2.65313 - +,0.03561 ,0.00945 ,89.29575 ,3.04905 ,2.77624 ,1.79901 ,2.91233 - +,0.03610 ,0.00977 ,95.86514 ,3.30846 ,3.03764 ,2.07134 ,3.17271 - +,0.03658 ,0.01008,102.35211 ,3.56572 ,3.29677 ,2.34078 ,3.43088 - +,0.03704 ,0.01039,108.84338 ,3.82539 ,3.55821 ,2.61195 ,3.69141 - +,0.03749 ,0.01069,115.25858 ,4.08355 ,3.81805 ,2.88102 ,3.95039 - +,0.03793 ,0.01098,121.61571 ,4.34141 ,4.07750 ,3.14925 ,4.20903 - +,0.03835 ,0.01126,127.93025 ,4.59953 ,4.33711 ,3.41722 ,4.46787 - +,0.03877 ,0.01154,134.13638 ,4.85539 ,4.59441 ,3.68248 ,4.72443/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),K=1,19)/ - + 0.03034 ,0.00571 ,21.36412 ,0.35737 ,0.06311 ,0.00000 ,0.20970 - +,0.03130 ,0.00630 ,25.36305 ,0.55871 ,0.26962 ,0.00000 ,0.41358 - +,0.03218 ,0.00685 ,30.00117 ,0.76316 ,0.47850 ,0.00000 ,0.62020 - +,0.03300 ,0.00737 ,35.04601 ,0.97598 ,0.69521 ,0.00000 ,0.83493 - +,0.03376 ,0.00785 ,40.37053 ,1.19036 ,0.91303 ,0.01276 ,1.05100 - +,0.03448 ,0.00831 ,45.87875 ,1.40889 ,1.13464 ,0.14983 ,1.27103 - +,0.03516 ,0.00876 ,51.52362 ,1.63130 ,1.35985 ,0.40800 ,1.49481 - +,0.03581 ,0.00918 ,57.26280 ,1.85696 ,1.58808 ,0.64739 ,1.72172 - +,0.03643 ,0.00959 ,63.06140 ,2.08517 ,1.81867 ,0.89164 ,1.95109 - +,0.03703 ,0.00999 ,68.85457 ,2.31285 ,2.04853 ,1.13361 ,2.17983 - +,0.03761 ,0.01037 ,74.65167 ,2.54207 ,2.27979 ,1.37622 ,2.41005 - +,0.03817 ,0.01074 ,80.44727 ,2.77288 ,2.51250 ,1.61958 ,2.64178 - +,0.03871 ,0.01110 ,86.22357 ,3.00438 ,2.74579 ,1.86286 ,2.87415 - +,0.03923 ,0.01145 ,91.91116 ,3.23350 ,2.97658 ,2.10309 ,3.10408 - +,0.03974 ,0.01179 ,97.59048 ,3.46442 ,3.20908 ,2.34449 ,3.33576 - +,0.04023 ,0.01212,103.18921 ,3.69358 ,3.43973 ,2.58358 ,3.56564 - +,0.04071 ,0.01244,108.72531 ,3.92211 ,3.66968 ,2.82155 ,3.79486 - +,0.04117 ,0.01276,114.21329 ,4.15052 ,3.89943 ,3.05894 ,4.02392 - +,0.04163 ,0.01307,119.59454 ,4.37657 ,4.12676 ,3.29355 ,4.25059/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),K=1,19)/ - + 0.03681 ,0.00875 ,16.14552 ,0.30109 ,0.05178 ,0.00000 ,0.17481 - +,0.03809 ,0.00961 ,19.25462 ,0.45499 ,0.20942 ,0.00000 ,0.33051 - +,0.03927 ,0.01041 ,22.75180 ,0.60975 ,0.36735 ,0.00000 ,0.48678 - +,0.04035 ,0.01116 ,26.48170 ,0.76906 ,0.52944 ,0.00000 ,0.64743 - +,0.04137 ,0.01186 ,30.34851 ,0.92805 ,0.69087 ,0.00943 ,0.80758 - +,0.04233 ,0.01252 ,34.29292 ,1.08868 ,0.85367 ,0.11013 ,0.96924 - +,0.04324 ,0.01316 ,38.28462 ,1.25083 ,1.01779 ,0.29897 ,1.13233 - +,0.04410 ,0.01376 ,42.29669 ,1.41408 ,1.18284 ,0.47263 ,1.29644 - +,0.04493 ,0.01435 ,46.30734 ,1.57800 ,1.34842 ,0.64859 ,1.46114 - +,0.04573 ,0.01491 ,50.27022 ,1.74036 ,1.51230 ,0.82170 ,1.62423 - +,0.04650 ,0.01545 ,54.19905 ,1.90276 ,1.67611 ,0.99415 ,1.78729 - +,0.04724 ,0.01597 ,58.09349 ,2.06528 ,1.83995 ,1.16609 ,1.95044 - +,0.04795 ,0.01648 ,61.94232 ,2.22733 ,2.00323 ,1.33697 ,2.11307 - +,0.04865 ,0.01697 ,65.69666 ,2.38670 ,2.16374 ,1.50466 ,2.27298 - +,0.04931 ,0.01744 ,69.42009 ,2.54649 ,2.32462 ,1.67230 ,2.43329 - +,0.04996 ,0.01791 ,73.06088 ,2.70419 ,2.48334 ,1.83743 ,2.59146 - +,0.05060 ,0.01836 ,76.63516 ,2.86063 ,2.64075 ,2.00093 ,2.74836 - +,0.05121 ,0.01879 ,80.15533 ,3.01623 ,2.79727 ,2.16325 ,2.90440 - +,0.05181 ,0.01922 ,83.58142 ,3.16943 ,2.95133 ,2.32283 ,3.05800/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),K=1,19)/ - + 0.04452 ,0.01340 ,12.18017 ,0.25526 ,0.04301 ,0.00000 ,0.14702 - +,0.04622 ,0.01466 ,14.59403 ,0.37256 ,0.16293 ,0.00000 ,0.26555 - +,0.04778 ,0.01582 ,17.22517 ,0.48942 ,0.28201 ,0.00000 ,0.38345 - +,0.04922 ,0.01690 ,19.97301 ,0.60835 ,0.40286 ,0.00000 ,0.50327 - +,0.05057 ,0.01790 ,22.76669 ,0.72587 ,0.52206 ,0.00695 ,0.62157 - +,0.05184 ,0.01885 ,25.57291 ,0.84350 ,0.64118 ,0.08064 ,0.73990 - +,0.05305 ,0.01975 ,28.37378 ,0.96122 ,0.76023 ,0.21823 ,0.85823 - +,0.05420 ,0.02061 ,31.15359 ,1.07877 ,0.87901 ,0.34363 ,0.97635 - +,0.05530 ,0.02143 ,33.90024 ,1.19590 ,0.99725 ,0.46979 ,1.09399 - +,0.05636 ,0.02222 ,36.58125 ,1.31103 ,1.11340 ,0.59299 ,1.20960 - +,0.05737 ,0.02298 ,39.21225 ,1.42539 ,1.22870 ,0.71488 ,1.32439 - +,0.05835 ,0.02371 ,41.79572 ,1.53909 ,1.34327 ,0.83563 ,1.43849 - +,0.05930 ,0.02442 ,44.32555 ,1.65174 ,1.45675 ,0.95490 ,1.55152 - +,0.06021 ,0.02509 ,46.76761 ,1.76177 ,1.56753 ,1.07116 ,1.66190 - +,0.06110 ,0.02575 ,49.17183 ,1.87151 ,1.67799 ,1.18677 ,1.77197 - +,0.06195 ,0.02639 ,51.50127 ,1.97915 ,1.78629 ,1.29996 ,1.87992 - +,0.06279 ,0.02701 ,53.77014 ,2.08534 ,1.89312 ,1.41143 ,1.98640 - +,0.06360 ,0.02761 ,55.98872 ,2.19043 ,1.99880 ,1.52153 ,2.09176 - +,0.06439 ,0.02820 ,58.12968 ,2.29330 ,2.10224 ,1.62918 ,2.19489/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),K=1,19)/ - + 0.04979 ,0.01721 ,10.31383 ,0.23324 ,0.03900 ,0.00000 ,0.13388 - +,0.05180 ,0.01877 ,12.39349 ,0.33317 ,0.14102 ,0.00000 ,0.23478 - +,0.05364 ,0.02020 ,14.61718 ,0.43217 ,0.24177 ,0.00000 ,0.33459 - +,0.05535 ,0.02153 ,16.90881 ,0.53220 ,0.34332 ,0.00000 ,0.43532 - +,0.05694 ,0.02277 ,19.20958 ,0.63046 ,0.44289 ,0.00580 ,0.53419 - +,0.05844 ,0.02393 ,21.49785 ,0.72823 ,0.54182 ,0.06702 ,0.63249 - +,0.05987 ,0.02503 ,23.76151 ,0.82553 ,0.64016 ,0.18100 ,0.73027 - +,0.06123 ,0.02607 ,25.98984 ,0.92220 ,0.73777 ,0.28431 ,0.82737 - +,0.06253 ,0.02707 ,28.17500 ,1.01805 ,0.83449 ,0.38778 ,0.92362 - +,0.06377 ,0.02803 ,30.29117 ,1.11182 ,0.92904 ,0.48834 ,1.01775 - +,0.06497 ,0.02895 ,32.35403 ,1.20455 ,1.02249 ,0.58742 ,1.11080 - +,0.06613 ,0.02983 ,34.36743 ,1.29636 ,1.11497 ,0.68518 ,1.20292 - +,0.06724 ,0.03068 ,36.32730 ,1.38697 ,1.20621 ,0.78137 ,1.29382 - +,0.06832 ,0.03150 ,38.20624 ,1.47509 ,1.29491 ,0.87474 ,1.38220 - +,0.06936 ,0.03229 ,40.04732 ,1.56268 ,1.38303 ,0.96728 ,1.47004 - +,0.07037 ,0.03305 ,41.82056 ,1.64826 ,1.46912 ,1.05754 ,1.55585 - +,0.07135 ,0.03379 ,43.53870 ,1.73239 ,1.55373 ,1.14612 ,1.64020 - +,0.07230 ,0.03451 ,45.21095 ,1.81539 ,1.63718 ,1.23334 ,1.72340 - +,0.07322 ,0.03521 ,46.81567 ,1.89633 ,1.71855 ,1.31832 ,1.80454/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),K=1,19)/ - + 0.05400 ,0.02055 ,9.15638 ,0.21988 ,0.03667 ,0.00000 ,0.12595 - +,0.05627 ,0.02237 ,11.02626 ,0.30899 ,0.12752 ,0.00000 ,0.21587 - +,0.05835 ,0.02403 ,12.99722 ,0.39691 ,0.21689 ,0.00000 ,0.30446 - +,0.06028 ,0.02556 ,15.00798 ,0.48527 ,0.30650 ,0.00000 ,0.39340 - +,0.06208 ,0.02699 ,17.00743 ,0.57167 ,0.39398 ,0.00509 ,0.48029 - +,0.06377 ,0.02832 ,18.98090 ,0.65726 ,0.48052 ,0.05865 ,0.56632 - +,0.06538 ,0.02958 ,20.91975 ,0.74208 ,0.56619 ,0.15817 ,0.65153 - +,0.06691 ,0.03078 ,22.81633 ,0.82603 ,0.65091 ,0.24800 ,0.73583 - +,0.06837 ,0.03193 ,24.66537 ,0.90896 ,0.73454 ,0.33767 ,0.81908 - +,0.06978 ,0.03302 ,26.44504 ,0.98980 ,0.81601 ,0.42452 ,0.90021 - +,0.07113 ,0.03406 ,28.17111 ,1.06947 ,0.89626 ,0.50980 ,0.98015 - +,0.07243 ,0.03507 ,29.84787 ,1.14810 ,0.97544 ,0.59370 ,1.05903 - +,0.07368 ,0.03603 ,31.47249 ,1.22548 ,1.05331 ,0.67601 ,1.13663 - +,0.07489 ,0.03696 ,33.02176 ,1.30048 ,1.12878 ,0.75565 ,1.21185 - +,0.07606 ,0.03786 ,34.53430 ,1.37484 ,1.20357 ,0.83439 ,1.28640 - +,0.07719 ,0.03873 ,35.98442 ,1.44728 ,1.27641 ,0.91098 ,1.35903 - +,0.07829 ,0.03956 ,37.38385 ,1.51831 ,1.34783 ,0.98594 ,1.43024 - +,0.07936 ,0.04037 ,38.74081 ,1.58821 ,1.41808 ,1.05958 ,1.50030 - +,0.08040 ,0.04116 ,40.03738 ,1.65620 ,1.48641 ,1.13114 ,1.56844/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),K=1,19)/ - + 0.05783 ,0.02359 ,8.32439 ,0.21193 ,0.03531 ,0.00000 ,0.12103 - +,0.06035 ,0.02563 ,10.04638 ,0.29332 ,0.11813 ,0.00000 ,0.20307 - +,0.06266 ,0.02748 ,11.83913 ,0.37333 ,0.19933 ,0.00000 ,0.28362 - +,0.06480 ,0.02919 ,13.65271 ,0.45338 ,0.28040 ,0.00000 ,0.36414 - +,0.06679 ,0.03078 ,15.44065 ,0.53137 ,0.35927 ,0.00459 ,0.44252 - +,0.06867 ,0.03226 ,17.19397 ,0.60835 ,0.43701 ,0.05271 ,0.51984 - +,0.07045 ,0.03366 ,18.90512 ,0.68439 ,0.51373 ,0.14197 ,0.59619 - +,0.07214 ,0.03498 ,20.57022 ,0.75937 ,0.58933 ,0.22226 ,0.67145 - +,0.07376 ,0.03625 ,22.18562 ,0.83322 ,0.66373 ,0.30217 ,0.74555 - +,0.07530 ,0.03745 ,23.73164 ,0.90500 ,0.73601 ,0.37936 ,0.81755 - +,0.07679 ,0.03860 ,25.22469 ,0.97553 ,0.80700 ,0.45494 ,0.88829 - +,0.07822 ,0.03970 ,26.66899 ,1.04495 ,0.87685 ,0.52910 ,0.95791 - +,0.07960 ,0.04076 ,28.06227 ,1.11309 ,0.94540 ,0.60169 ,1.02623 - +,0.08093 ,0.04178 ,29.38585 ,1.17895 ,1.01161 ,0.67172 ,1.09225 - +,0.08222 ,0.04276 ,30.67355 ,1.24410 ,1.07711 ,0.74083 ,1.15756 - +,0.08346 ,0.04371 ,31.90166 ,1.30745 ,1.14077 ,0.80791 ,1.22105 - +,0.08467 ,0.04462 ,33.08351 ,1.36942 ,1.20304 ,0.87343 ,1.28316 - +,0.08584 ,0.04551 ,34.22668 ,1.43027 ,1.26417 ,0.93765 ,1.34414 - +,0.08698 ,0.04636 ,35.31464 ,1.48932 ,1.32347 ,0.99990 ,1.40330/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),K=1,19)/ - + 0.07221 ,0.03622 ,6.20471 ,0.19265 ,0.03253 ,0.00000 ,0.10925 - +,0.07572 ,0.03908 ,7.53009 ,0.25384 ,0.09429 ,0.00000 ,0.17068 - +,0.07894 ,0.04166 ,8.85575 ,0.31332 ,0.15422 ,0.00000 ,0.23035 - +,0.08190 ,0.04402 ,10.15744 ,0.37195 ,0.21322 ,0.00000 ,0.28913 - +,0.08465 ,0.04619 ,11.40411 ,0.42836 ,0.26992 ,0.00330 ,0.34566 - +,0.08722 ,0.04820 ,12.59865 ,0.48332 ,0.32514 ,0.03756 ,0.40073 - +,0.08966 ,0.05009 ,13.74018 ,0.53696 ,0.37900 ,0.10071 ,0.45447 - +,0.09197 ,0.05187 ,14.82975 ,0.58927 ,0.43149 ,0.15686 ,0.50686 - +,0.09417 ,0.05356 ,15.86806 ,0.64023 ,0.48262 ,0.21220 ,0.55790 - +,0.09627 ,0.05515 ,16.84302 ,0.68925 ,0.53178 ,0.26513 ,0.60698 - +,0.09828 ,0.05666 ,17.76987 ,0.73695 ,0.57960 ,0.31649 ,0.65473 - +,0.10020 ,0.05811 ,18.65359 ,0.78347 ,0.62623 ,0.36645 ,0.70130 - +,0.10206 ,0.05950 ,19.49396 ,0.82873 ,0.67160 ,0.41494 ,0.74662 - +,0.10384 ,0.06082 ,20.27901 ,0.87207 ,0.71502 ,0.46132 ,0.79000 - +,0.10556 ,0.06209 ,21.03439 ,0.91462 ,0.75766 ,0.50675 ,0.83259 - +,0.10722 ,0.06331 ,21.74411 ,0.95564 ,0.79875 ,0.55050 ,0.87366 - +,0.10882 ,0.06448 ,22.41852 ,0.99547 ,0.83865 ,0.59292 ,0.91352 - +,0.11037 ,0.06561 ,23.06354 ,1.03430 ,0.87754 ,0.63422 ,0.95239 - +,0.11187 ,0.06670 ,23.66867 ,1.07168 ,0.91498 ,0.67395 ,0.98980/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),K=1,19)/ - + 0.09312 ,0.05563 ,4.66224 ,0.18453 ,0.03280 ,0.00001 ,0.10409 - +,0.09811 ,0.05951 ,5.66851 ,0.23030 ,0.07842 ,0.00001 ,0.14977 - +,0.10262 ,0.06296 ,6.62779 ,0.27407 ,0.12197 ,0.00001 ,0.19344 - +,0.10677 ,0.06609 ,7.53575 ,0.31640 ,0.16403 ,0.00001 ,0.23566 - +,0.11057 ,0.06893 ,8.37418 ,0.35651 ,0.20386 ,0.00235 ,0.27566 - +,0.11411 ,0.07155 ,9.15495 ,0.39497 ,0.24202 ,0.02625 ,0.31402 - +,0.11744 ,0.07398 ,9.88215 ,0.43194 ,0.27870 ,0.06998 ,0.35089 - +,0.12059 ,0.07625 ,10.55849 ,0.46749 ,0.31397 ,0.10832 ,0.38636 - +,0.12358 ,0.07839 ,11.18888 ,0.50168 ,0.34789 ,0.14567 ,0.42047 - +,0.12639 ,0.08040 ,11.76665 ,0.53415 ,0.38009 ,0.18098 ,0.45286 - +,0.12907 ,0.08230 ,12.30516 ,0.56537 ,0.41107 ,0.21488 ,0.48401 - +,0.13164 ,0.08409 ,12.80933 ,0.59547 ,0.44094 ,0.24750 ,0.51405 - +,0.13411 ,0.08580 ,13.28011 ,0.62443 ,0.46968 ,0.27884 ,0.54295 - +,0.13645 ,0.08742 ,13.70901 ,0.65186 ,0.49690 ,0.30853 ,0.57033 - +,0.13871 ,0.08897 ,14.11578 ,0.67853 ,0.52339 ,0.33735 ,0.59696 - +,0.14087 ,0.09044 ,14.49054 ,0.70397 ,0.54865 ,0.36483 ,0.62237 - +,0.14296 ,0.09185 ,14.84033 ,0.72844 ,0.57296 ,0.39126 ,0.64681 - +,0.14497 ,0.09321 ,15.16953 ,0.75211 ,0.59648 ,0.41679 ,0.67045 - +,0.14690 ,0.09451 ,15.47151 ,0.77468 ,0.61891 ,0.44114 ,0.69300/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),K=1,19)/ - + 0.11004 ,0.07143 ,3.98202 ,0.18435 ,0.03454 ,0.00000 ,0.10387 - +,0.11615 ,0.07595 ,4.82406 ,0.22279 ,0.07197 ,0.00001 ,0.14195 - +,0.12164 ,0.07994 ,5.60145 ,0.25911 ,0.10725 ,0.00001 ,0.17790 - +,0.12666 ,0.08352 ,6.31919 ,0.29375 ,0.14090 ,0.00002 ,0.21222 - +,0.13123 ,0.08676 ,6.96638 ,0.32620 ,0.17243 ,0.00191 ,0.24437 - +,0.13548 ,0.08971 ,7.55670 ,0.35696 ,0.20235 ,0.02104 ,0.27487 - +,0.13944 ,0.09244 ,8.09600 ,0.38622 ,0.23082 ,0.05585 ,0.30389 - +,0.14315 ,0.09499 ,8.59029 ,0.41407 ,0.25797 ,0.08606 ,0.33154 - +,0.14667 ,0.09736 ,9.04313 ,0.44058 ,0.28385 ,0.11524 ,0.35788 - +,0.14997 ,0.09958 ,9.44929 ,0.46554 ,0.30825 ,0.14265 ,0.38269 - +,0.15311 ,0.10165 ,9.82335 ,0.48932 ,0.33152 ,0.16876 ,0.40634 - +,0.15611 ,0.10361 ,10.16862 ,0.51208 ,0.35382 ,0.19371 ,0.42899 - +,0.15898 ,0.10546 ,10.48552 ,0.53382 ,0.37516 ,0.21755 ,0.45065 - +,0.16168 ,0.10721 ,10.76995 ,0.55423 ,0.39521 ,0.23995 ,0.47098 - +,0.16427 ,0.10889 ,11.03682 ,0.57394 ,0.41460 ,0.26156 ,0.49064 - +,0.16674 ,0.11047 ,11.27858 ,0.59261 ,0.43297 ,0.28204 ,0.50925 - +,0.16912 ,0.11198 ,11.50030 ,0.61043 ,0.45055 ,0.30162 ,0.52705 - +,0.17141 ,0.11342 ,11.70569 ,0.62756 ,0.46747 ,0.32044 ,0.54417 - +,0.17361 ,0.11478 ,11.89111 ,0.64379 ,0.48350 ,0.33829 ,0.56038/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),K=1,19)/ - + 0.12517 ,0.08518 ,3.58700 ,0.18589 ,0.03826 ,0.00000 ,0.10522 - +,0.13220 ,0.09014 ,4.31517 ,0.22035 ,0.06844 ,0.00001 ,0.13830 - +,0.13847 ,0.09449 ,4.97278 ,0.25234 ,0.09716 ,0.00001 ,0.16925 - +,0.14418 ,0.09837 ,5.56900 ,0.28237 ,0.12461 ,0.00002 ,0.19850 - +,0.14935 ,0.10184 ,6.09696 ,0.31014 ,0.15037 ,0.00163 ,0.22567 - +,0.15413 ,0.10500 ,6.57108 ,0.33616 ,0.17477 ,0.01784 ,0.25123 - +,0.15857 ,0.10790 ,6.99776 ,0.36066 ,0.19793 ,0.04720 ,0.27536 - +,0.16272 ,0.11059 ,7.38339 ,0.38376 ,0.21994 ,0.07250 ,0.29818 - +,0.16663 ,0.11308 ,7.73195 ,0.40555 ,0.24084 ,0.09677 ,0.31976 - +,0.17028 ,0.11540 ,8.03964 ,0.42590 ,0.26049 ,0.11944 ,0.33996 - +,0.17375 ,0.11756 ,8.31943 ,0.44515 ,0.27915 ,0.14090 ,0.35909 - +,0.17704 ,0.11959 ,8.57450 ,0.46343 ,0.29695 ,0.16131 ,0.37730 - +,0.18019 ,0.12150 ,8.80560 ,0.48078 ,0.31392 ,0.18070 ,0.39461 - +,0.18313 ,0.12330 ,9.00943 ,0.49694 ,0.32981 ,0.19882 ,0.41077 - +,0.18595 ,0.12501 ,9.19873 ,0.51247 ,0.34510 ,0.21623 ,0.42630 - +,0.18864 ,0.12663 ,9.36740 ,0.52708 ,0.35952 ,0.23264 ,0.44093 - +,0.19122 ,0.12816 ,9.51984 ,0.54094 ,0.37327 ,0.24826 ,0.45484 - +,0.19369 ,0.12961 ,9.65919 ,0.55419 ,0.38646 ,0.26321 ,0.46816 - +,0.19605 ,0.13099 ,9.78253 ,0.56667 ,0.39890 ,0.27732 ,0.48070/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),K=1,19)/ - + 0.13915 ,0.09753 ,3.30557 ,0.19566 ,0.02282 ,0.00001 ,0.10599 - +,0.14693 ,0.10279 ,3.95197 ,0.22563 ,0.05093 ,0.00001 ,0.13546 - +,0.15386 ,0.10738 ,4.52497 ,0.25328 ,0.07734 ,0.00003 ,0.16284 - +,0.16012 ,0.11144 ,5.03676 ,0.27906 ,0.10228 ,0.00003 ,0.18847 - +,0.16579 ,0.11505 ,5.48213 ,0.30276 ,0.12545 ,0.00144 ,0.21211 - +,0.17098 ,0.11833 ,5.87767 ,0.32483 ,0.14720 ,0.01561 ,0.23421 - +,0.17579 ,0.12132 ,6.22917 ,0.34549 ,0.16770 ,0.04122 ,0.25494 - +,0.18028 ,0.12407 ,6.54153 ,0.36485 ,0.18702 ,0.06314 ,0.27441 - +,0.18449 ,0.12663 ,6.82112 ,0.38303 ,0.20527 ,0.08408 ,0.29274 - +,0.18842 ,0.12896 ,7.06442 ,0.39990 ,0.22228 ,0.10350 ,0.30978 - +,0.19212 ,0.13115 ,7.28276 ,0.41576 ,0.23835 ,0.12181 ,0.32583 - +,0.19561 ,0.13321 ,7.47966 ,0.43076 ,0.25359 ,0.13915 ,0.34103 - +,0.19892 ,0.13514 ,7.65621 ,0.44491 ,0.26803 ,0.15554 ,0.35540 - +,0.20207 ,0.13692 ,7.80800 ,0.45802 ,0.28147 ,0.17079 ,0.36874 - +,0.20507 ,0.13862 ,7.94756 ,0.47056 ,0.29435 ,0.18538 ,0.38151 - +,0.20790 ,0.14022 ,8.07020 ,0.48229 ,0.30645 ,0.19909 ,0.39348 - +,0.21060 ,0.14173 ,8.17916 ,0.49338 ,0.31793 ,0.21209 ,0.40481 - +,0.21319 ,0.14317 ,8.27721 ,0.50395 ,0.32889 ,0.22449 ,0.41562 - +,0.21566 ,0.14452 ,8.36267 ,0.51382 ,0.33917 ,0.23613 ,0.42573/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),K=1,19)/ - + 0.19991 ,0.14688 ,2.56857 ,0.20356 ,0.00711 ,0.00001 ,0.10533 - +,0.21019 ,0.15254 ,2.99495 ,0.22228 ,0.02802 ,0.00001 ,0.12516 - +,0.21910 ,0.15734 ,3.34596 ,0.23905 ,0.04686 ,0.00001 ,0.14297 - +,0.22699 ,0.16149 ,3.63998 ,0.25422 ,0.06402 ,0.00003 ,0.15913 - +,0.23400 ,0.16506 ,3.87944 ,0.26775 ,0.07943 ,0.00093 ,0.17362 - +,0.24029 ,0.16823 ,4.07874 ,0.28001 ,0.09347 ,0.00993 ,0.18676 - +,0.24606 ,0.17103 ,4.24636 ,0.29117 ,0.10634 ,0.02601 ,0.19879 - +,0.25132 ,0.17358 ,4.38604 ,0.30135 ,0.11816 ,0.03945 ,0.20978 - +,0.25620 ,0.17587 ,4.50338 ,0.31067 ,0.12907 ,0.05204 ,0.21990 - +,0.26066 ,0.17794 ,4.59779 ,0.31908 ,0.13902 ,0.06354 ,0.22908 - +,0.26482 ,0.17982 ,4.67682 ,0.32680 ,0.14823 ,0.07418 ,0.23756 - +,0.26871 ,0.18153 ,4.74333 ,0.33392 ,0.15679 ,0.08407 ,0.24540 - +,0.27237 ,0.18310 ,4.79852 ,0.34047 ,0.16472 ,0.09327 ,0.25262 - +,0.27573 ,0.18453 ,4.83939 ,0.34638 ,0.17196 ,0.10168 ,0.25920 - +,0.27891 ,0.18586 ,4.87400 ,0.35192 ,0.17879 ,0.10962 ,0.26539 - +,0.28189 ,0.18707 ,4.89970 ,0.35696 ,0.18508 ,0.11698 ,0.27106 - +,0.28469 ,0.18819 ,4.91915 ,0.36160 ,0.19095 ,0.12385 ,0.27631 - +,0.28733 ,0.18924 ,4.93388 ,0.36593 ,0.19645 ,0.13030 ,0.28122 - +,0.28983 ,0.19020 ,4.94179 ,0.36985 ,0.20152 ,0.13628 ,0.28572/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),K=1,19)/ - + 0.29948 ,0.21337 ,2.04845 ,0.19404 ,0.00483 ,-0.00010 ,0.09937 - +,0.31092 ,0.21753 ,2.27595 ,0.20328 ,0.01874 ,-0.00012 ,0.11097 - +,0.32048 ,0.22075 ,2.44221 ,0.21105 ,0.03070 ,-0.00010 ,0.12084 - +,0.32863 ,0.22337 ,2.56593 ,0.21765 ,0.04111 ,-0.00010 ,0.12936 - +,0.33561 ,0.22543 ,2.65341 ,0.22316 ,0.05012 ,0.00044 ,0.13659 - +,0.34167 ,0.22710 ,2.71640 ,0.22783 ,0.05802 ,0.00569 ,0.14289 - +,0.34701 ,0.22845 ,2.76002 ,0.23182 ,0.06504 ,0.01492 ,0.14841 - +,0.35181 ,0.22956 ,2.78894 ,0.23518 ,0.07128 ,0.02236 ,0.15319 - +,0.35602 ,0.23048 ,2.80658 ,0.23809 ,0.07685 ,0.02920 ,0.15744 - +,0.35979 ,0.23116 ,2.81290 ,0.24050 ,0.08180 ,0.03529 ,0.16111 - +,0.36315 ,0.23172 ,2.81250 ,0.24252 ,0.08622 ,0.04077 ,0.16433 - +,0.36619 ,0.23218 ,2.80692 ,0.24424 ,0.09022 ,0.04577 ,0.16720 - +,0.36895 ,0.23254 ,2.79675 ,0.24571 ,0.09386 ,0.05033 ,0.16976 - +,0.37142 ,0.23274 ,2.78153 ,0.24682 ,0.09705 ,0.05439 ,0.17191 - +,0.37369 ,0.23289 ,2.76475 ,0.24779 ,0.09998 ,0.05813 ,0.17386 - +,0.37572 ,0.23297 ,2.74485 ,0.24855 ,0.10259 ,0.06150 ,0.17554 - +,0.37757 ,0.23298 ,2.72337 ,0.24913 ,0.10497 ,0.06461 ,0.17702 - +,0.37928 ,0.23295 ,2.70103 ,0.24957 ,0.10716 ,0.06750 ,0.17833 - +,0.38080 ,0.23286 ,2.67672 ,0.24984 ,0.10911 ,0.07011 ,0.17945/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),K=1,19)/ - + 0.38126 ,0.25604 ,1.79396 ,0.17629 ,0.00380 ,-0.00001 ,0.09005 - +,0.39110 ,0.25769 ,1.91498 ,0.18055 ,0.01416 ,-0.00002 ,0.09736 - +,0.39904 ,0.25855 ,1.98993 ,0.18373 ,0.02282 ,0.00000 ,0.10325 - +,0.40550 ,0.25893 ,2.03529 ,0.18613 ,0.03005 ,-0.00004 ,0.10812 - +,0.41073 ,0.25893 ,2.05700 ,0.18784 ,0.03618 ,0.00034 ,0.11200 - +,0.41500 ,0.25874 ,2.06374 ,0.18907 ,0.04137 ,0.00391 ,0.11523 - +,0.41863 ,0.25826 ,2.05972 ,0.18987 ,0.04590 ,0.01016 ,0.11791 - +,0.42159 ,0.25773 ,2.04798 ,0.19034 ,0.04981 ,0.01510 ,0.12009 - +,0.42417 ,0.25700 ,2.03085 ,0.19056 ,0.05319 ,0.01947 ,0.12189 - +,0.42618 ,0.25624 ,2.00807 ,0.19047 ,0.05609 ,0.02333 ,0.12331 - +,0.42791 ,0.25534 ,1.98283 ,0.19024 ,0.05866 ,0.02674 ,0.12447 - +,0.42935 ,0.25442 ,1.95617 ,0.18988 ,0.06093 ,0.02979 ,0.12542 - +,0.43046 ,0.25351 ,1.92842 ,0.18940 ,0.06290 ,0.03252 ,0.12619 - +,0.43137 ,0.25247 ,1.89878 ,0.18878 ,0.06462 ,0.03494 ,0.12673 - +,0.43215 ,0.25143 ,1.86957 ,0.18813 ,0.06617 ,0.03715 ,0.12716 - +,0.43271 ,0.25035 ,1.83978 ,0.18737 ,0.06749 ,0.03909 ,0.12744 - +,0.43311 ,0.24929 ,1.81008 ,0.18653 ,0.06865 ,0.04083 ,0.12761 - +,0.43340 ,0.24824 ,1.78084 ,0.18564 ,0.06968 ,0.04240 ,0.12770 - +,0.43355 ,0.24714 ,1.75159 ,0.18471 ,0.07058 ,0.04382 ,0.12769/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),K=1,19)/ - + 0.44870 ,0.28373 ,1.61128 ,0.15564 ,0.00303 ,0.00010 ,0.07935 - +,0.45580 ,0.28235 ,1.66371 ,0.15679 ,0.01117 ,0.00005 ,0.08403 - +,0.46076 ,0.28076 ,1.68337 ,0.15732 ,0.01772 ,0.00007 ,0.08757 - +,0.46441 ,0.27894 ,1.68385 ,0.15740 ,0.02310 ,0.00010 ,0.09029 - +,0.46708 ,0.27688 ,1.67003 ,0.15701 ,0.02751 ,0.00037 ,0.09232 - +,0.46889 ,0.27477 ,1.64818 ,0.15643 ,0.03110 ,0.00293 ,0.09382 - +,0.47013 ,0.27260 ,1.62095 ,0.15561 ,0.03417 ,0.00742 ,0.09496 - +,0.47092 ,0.27042 ,1.59028 ,0.15461 ,0.03683 ,0.01091 ,0.09576 - +,0.47132 ,0.26823 ,1.55792 ,0.15353 ,0.03906 ,0.01391 ,0.09634 - +,0.47123 ,0.26605 ,1.52371 ,0.15234 ,0.04089 ,0.01653 ,0.09665 - +,0.47092 ,0.26389 ,1.48946 ,0.15108 ,0.04247 ,0.01885 ,0.09681 - +,0.47042 ,0.26178 ,1.45568 ,0.14979 ,0.04383 ,0.02090 ,0.09685 - +,0.46972 ,0.25973 ,1.42249 ,0.14849 ,0.04500 ,0.02270 ,0.09680 - +,0.46888 ,0.25763 ,1.38923 ,0.14711 ,0.04598 ,0.02424 ,0.09659 - +,0.46797 ,0.25560 ,1.35737 ,0.14576 ,0.04683 ,0.02561 ,0.09633 - +,0.46689 ,0.25358 ,1.32614 ,0.14439 ,0.04751 ,0.02680 ,0.09601 - +,0.46572 ,0.25162 ,1.29596 ,0.14303 ,0.04810 ,0.02787 ,0.09562 - +,0.46450 ,0.24972 ,1.26696 ,0.14168 ,0.04862 ,0.02882 ,0.09520 - +,0.46318 ,0.24784 ,1.23864 ,0.14032 ,0.04905 ,0.02965 ,0.09472/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),K=1,19)/ - + 0.50376 ,0.30039 ,1.45795 ,0.13461 ,0.00250 ,0.00007 ,0.06855 - +,0.50691 ,0.29630 ,1.46342 ,0.13392 ,0.00896 ,0.00004 ,0.07149 - +,0.50837 ,0.29228 ,1.44746 ,0.13289 ,0.01403 ,0.00007 ,0.07347 - +,0.50881 ,0.28830 ,1.42062 ,0.13164 ,0.01807 ,0.00010 ,0.07489 - +,0.50845 ,0.28434 ,1.38623 ,0.13012 ,0.02137 ,0.00026 ,0.07578 - +,0.50743 ,0.28059 ,1.34861 ,0.12857 ,0.02399 ,0.00224 ,0.07628 - +,0.50600 ,0.27694 ,1.30958 ,0.12693 ,0.02617 ,0.00553 ,0.07656 - +,0.50427 ,0.27337 ,1.27032 ,0.12526 ,0.02794 ,0.00801 ,0.07660 - +,0.50246 ,0.26983 ,1.23161 ,0.12357 ,0.02939 ,0.01029 ,0.07650 - +,0.50014 ,0.26653 ,1.19322 ,0.12188 ,0.03060 ,0.01213 ,0.07625 - +,0.49778 ,0.26327 ,1.15625 ,0.12018 ,0.03162 ,0.01369 ,0.07592 - +,0.49537 ,0.26012 ,1.12090 ,0.11851 ,0.03249 ,0.01507 ,0.07552 - +,0.49290 ,0.25712 ,1.08707 ,0.11685 ,0.03322 ,0.01631 ,0.07505 - +,0.49026 ,0.25415 ,1.05432 ,0.11523 ,0.03375 ,0.01733 ,0.07452 - +,0.48765 ,0.25132 ,1.02342 ,0.11366 ,0.03421 ,0.01824 ,0.07398 - +,0.48498 ,0.24860 ,0.99371 ,0.11208 ,0.03460 ,0.01905 ,0.07339 - +,0.48235 ,0.24590 ,0.96543 ,0.11057 ,0.03489 ,0.01973 ,0.07277 - +,0.47976 ,0.24326 ,0.93859 ,0.10911 ,0.03512 ,0.02032 ,0.07215 - +,0.47706 ,0.24076 ,0.91286 ,0.10765 ,0.03529 ,0.02083 ,0.07150/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),K=1,19)/ - + 0.55658 ,0.30965 ,1.28851 ,0.10984 ,0.00195 ,0.00011 ,0.05591 - +,0.55439 ,0.30227 ,1.25479 ,0.10791 ,0.00690 ,0.00007 ,0.05748 - +,0.55088 ,0.29557 ,1.21109 ,0.10589 ,0.01068 ,0.00011 ,0.05833 - +,0.54699 ,0.28926 ,1.16434 ,0.10379 ,0.01362 ,0.00007 ,0.05878 - +,0.54263 ,0.28332 ,1.11618 ,0.10171 ,0.01590 ,0.00029 ,0.05886 - +,0.53803 ,0.27776 ,1.06920 ,0.09963 ,0.01769 ,0.00164 ,0.05871 - +,0.53327 ,0.27255 ,1.02396 ,0.09758 ,0.01917 ,0.00394 ,0.05841 - +,0.52853 ,0.26749 ,0.98095 ,0.09562 ,0.02030 ,0.00576 ,0.05803 - +,0.52369 ,0.26282 ,0.94027 ,0.09369 ,0.02126 ,0.00727 ,0.05755 - +,0.51887 ,0.25827 ,0.90156 ,0.09181 ,0.02198 ,0.00849 ,0.05695 - +,0.51404 ,0.25397 ,0.86528 ,0.09000 ,0.02253 ,0.00955 ,0.05634 - +,0.50931 ,0.24988 ,0.83139 ,0.08825 ,0.02300 ,0.01047 ,0.05571 - +,0.50471 ,0.24594 ,0.79967 ,0.08655 ,0.02342 ,0.01125 ,0.05506 - +,0.50009 ,0.24218 ,0.76968 ,0.08491 ,0.02367 ,0.01187 ,0.05435 - +,0.49560 ,0.23861 ,0.74175 ,0.08336 ,0.02387 ,0.01242 ,0.05366 - +,0.49111 ,0.23518 ,0.71535 ,0.08185 ,0.02401 ,0.01292 ,0.05298 - +,0.48677 ,0.23185 ,0.69060 ,0.08038 ,0.02411 ,0.01332 ,0.05232 - +,0.48259 ,0.22862 ,0.66742 ,0.07896 ,0.02418 ,0.01366 ,0.05168 - +,0.47838 ,0.22555 ,0.64549 ,0.07759 ,0.02421 ,0.01395 ,0.05104/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),K=1,19)/ - + 0.59361 ,0.30895 ,1.13516 ,0.08787 ,0.00156 ,0.00014 ,0.04480 - +,0.58554 ,0.29901 ,1.07703 ,0.08545 ,0.00537 ,0.00016 ,0.04552 - +,0.57720 ,0.29004 ,1.01756 ,0.08306 ,0.00823 ,0.00011 ,0.04570 - +,0.56892 ,0.28188 ,0.96068 ,0.08073 ,0.01039 ,0.00013 ,0.04562 - +,0.56062 ,0.27441 ,0.90671 ,0.07853 ,0.01197 ,0.00025 ,0.04530 - +,0.55254 ,0.26754 ,0.85669 ,0.07639 ,0.01321 ,0.00128 ,0.04487 - +,0.54467 ,0.26109 ,0.81042 ,0.07431 ,0.01423 ,0.00294 ,0.04435 - +,0.53711 ,0.25501 ,0.76781 ,0.07235 ,0.01497 ,0.00423 ,0.04371 - +,0.52969 ,0.24940 ,0.72861 ,0.07051 ,0.01552 ,0.00526 ,0.04307 - +,0.52254 ,0.24397 ,0.69222 ,0.06871 ,0.01599 ,0.00605 ,0.04238 - +,0.51552 ,0.23893 ,0.65872 ,0.06702 ,0.01631 ,0.00676 ,0.04168 - +,0.50873 ,0.23419 ,0.62794 ,0.06541 ,0.01656 ,0.00739 ,0.04099 - +,0.50218 ,0.22970 ,0.59959 ,0.06388 ,0.01675 ,0.00795 ,0.04032 - +,0.49581 ,0.22538 ,0.57319 ,0.06238 ,0.01685 ,0.00834 ,0.03969 - +,0.48971 ,0.22129 ,0.54889 ,0.06096 ,0.01694 ,0.00868 ,0.03907 - +,0.48378 ,0.21739 ,0.52625 ,0.05959 ,0.01700 ,0.00901 ,0.03845 - +,0.47803 ,0.21366 ,0.50520 ,0.05831 ,0.01700 ,0.00927 ,0.03781 - +,0.47247 ,0.21010 ,0.48562 ,0.05711 ,0.01696 ,0.00949 ,0.03717 - +,0.46695 ,0.20673 ,0.46733 ,0.05595 ,0.01692 ,0.00967 ,0.03655/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),K=1,19)/ - + 0.61603 ,0.30141 ,0.99469 ,0.06915 ,0.00119 ,0.00003 ,0.03516 - +,0.60244 ,0.28929 ,0.92223 ,0.06666 ,0.00416 ,0.00005 ,0.03545 - +,0.58935 ,0.27863 ,0.85485 ,0.06424 ,0.00634 ,0.00007 ,0.03535 - +,0.57704 ,0.26901 ,0.79400 ,0.06198 ,0.00794 ,0.00007 ,0.03507 - +,0.56529 ,0.26026 ,0.73894 ,0.05989 ,0.00906 ,0.00011 ,0.03456 - +,0.55423 ,0.25225 ,0.68958 ,0.05787 ,0.00994 ,0.00089 ,0.03399 - +,0.54359 ,0.24493 ,0.64508 ,0.05600 ,0.01063 ,0.00219 ,0.03338 - +,0.53344 ,0.23817 ,0.60497 ,0.05420 ,0.01112 ,0.00303 ,0.03282 - +,0.52377 ,0.23196 ,0.56882 ,0.05253 ,0.01153 ,0.00373 ,0.03215 - +,0.51454 ,0.22602 ,0.53586 ,0.05097 ,0.01175 ,0.00446 ,0.03148 - +,0.50564 ,0.22053 ,0.50608 ,0.04949 ,0.01194 ,0.00498 ,0.03083 - +,0.49718 ,0.21538 ,0.47905 ,0.04808 ,0.01209 ,0.00536 ,0.03020 - +,0.48916 ,0.21049 ,0.45439 ,0.04675 ,0.01218 ,0.00564 ,0.02960 - +,0.48137 ,0.20580 ,0.43172 ,0.04549 ,0.01223 ,0.00594 ,0.02899 - +,0.47396 ,0.20141 ,0.41102 ,0.04431 ,0.01225 ,0.00620 ,0.02842 - +,0.46684 ,0.19727 ,0.39191 ,0.04317 ,0.01223 ,0.00640 ,0.02786 - +,0.45997 ,0.19333 ,0.37429 ,0.04210 ,0.01220 ,0.00655 ,0.02730 - +,0.45336 ,0.18958 ,0.35803 ,0.04109 ,0.01214 ,0.00668 ,0.02675 - +,0.44697 ,0.18603 ,0.34292 ,0.04013 ,0.01206 ,0.00680 ,0.02622/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),K=1,19)/ - + 0.62597 ,0.28845 ,0.86626 ,0.05356 ,0.00094 ,0.00001 ,0.02728 - +,0.60716 ,0.27483 ,0.78661 ,0.05122 ,0.00324 ,0.00000 ,0.02725 - +,0.58995 ,0.26272 ,0.71662 ,0.04907 ,0.00482 ,0.00002 ,0.02697 - +,0.57392 ,0.25223 ,0.65589 ,0.04705 ,0.00597 ,0.00001 ,0.02657 - +,0.55910 ,0.24275 ,0.60254 ,0.04515 ,0.00680 ,0.00017 ,0.02608 - +,0.54518 ,0.23422 ,0.55593 ,0.04343 ,0.00740 ,0.00075 ,0.02550 - +,0.53225 ,0.22641 ,0.51483 ,0.04177 ,0.00787 ,0.00159 ,0.02495 - +,0.51998 ,0.21929 ,0.47842 ,0.04025 ,0.00820 ,0.00218 ,0.02436 - +,0.50857 ,0.21256 ,0.44613 ,0.03882 ,0.00851 ,0.00277 ,0.02376 - +,0.49765 ,0.20632 ,0.41715 ,0.03753 ,0.00863 ,0.00318 ,0.02313 - +,0.48741 ,0.20050 ,0.39111 ,0.03630 ,0.00871 ,0.00355 ,0.02255 - +,0.47765 ,0.19512 ,0.36774 ,0.03513 ,0.00878 ,0.00384 ,0.02201 - +,0.46823 ,0.19018 ,0.34671 ,0.03401 ,0.00886 ,0.00403 ,0.02150 - +,0.45927 ,0.18551 ,0.32746 ,0.03300 ,0.00885 ,0.00419 ,0.02096 - +,0.45080 ,0.18112 ,0.31006 ,0.03206 ,0.00882 ,0.00434 ,0.02044 - +,0.44268 ,0.17694 ,0.29425 ,0.03117 ,0.00877 ,0.00447 ,0.01994 - +,0.43498 ,0.17295 ,0.27977 ,0.03032 ,0.00870 ,0.00456 ,0.01949 - +,0.42768 ,0.16914 ,0.26647 ,0.02949 ,0.00862 ,0.00462 ,0.01908 - +,0.42057 ,0.16558 ,0.25421 ,0.02873 ,0.00855 ,0.00469 ,0.01866/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),K=1,19)/ - + 0.62507 ,0.27162 ,0.74926 ,0.04089 ,0.00073 ,0.00007 ,0.02078 - +,0.60163 ,0.25694 ,0.66761 ,0.03888 ,0.00241 ,0.00009 ,0.02070 - +,0.58059 ,0.24423 ,0.59856 ,0.03698 ,0.00365 ,0.00008 ,0.02038 - +,0.56153 ,0.23313 ,0.54029 ,0.03527 ,0.00455 ,0.00012 ,0.01987 - +,0.54412 ,0.22318 ,0.49062 ,0.03362 ,0.00516 ,0.00008 ,0.01948 - +,0.52807 ,0.21424 ,0.44808 ,0.03220 ,0.00555 ,0.00053 ,0.01896 - +,0.51323 ,0.20613 ,0.41099 ,0.03086 ,0.00587 ,0.00124 ,0.01841 - +,0.49937 ,0.19875 ,0.37872 ,0.02964 ,0.00610 ,0.00174 ,0.01782 - +,0.48615 ,0.19234 ,0.35026 ,0.02843 ,0.00625 ,0.00213 ,0.01741 - +,0.47407 ,0.18591 ,0.32509 ,0.02738 ,0.00634 ,0.00235 ,0.01686 - +,0.46275 ,0.17998 ,0.30280 ,0.02638 ,0.00637 ,0.00256 ,0.01641 - +,0.45198 ,0.17462 ,0.28299 ,0.02546 ,0.00638 ,0.00276 ,0.01599 - +,0.44161 ,0.16982 ,0.26531 ,0.02459 ,0.00640 ,0.00296 ,0.01557 - +,0.43197 ,0.16505 ,0.24933 ,0.02376 ,0.00641 ,0.00300 ,0.01514 - +,0.42290 ,0.16060 ,0.23495 ,0.02300 ,0.00639 ,0.00305 ,0.01473 - +,0.41424 ,0.15648 ,0.22192 ,0.02228 ,0.00631 ,0.00314 ,0.01433 - +,0.40598 ,0.15262 ,0.21008 ,0.02163 ,0.00622 ,0.00320 ,0.01394 - +,0.39811 ,0.14898 ,0.19929 ,0.02104 ,0.00610 ,0.00322 ,0.01357 - +,0.39058 ,0.14552 ,0.18932 ,0.02043 ,0.00605 ,0.00325 ,0.01324/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),K=1,19)/ - + 0.61450 ,0.25244 ,0.64331 ,0.03080 ,0.00052 ,0.00011 ,0.01564 - +,0.58728 ,0.23712 ,0.56308 ,0.02904 ,0.00192 ,0.00015 ,0.01552 - +,0.56319 ,0.22392 ,0.49752 ,0.02744 ,0.00286 ,0.00011 ,0.01523 - +,0.54158 ,0.21255 ,0.44347 ,0.02607 ,0.00346 ,0.00011 ,0.01482 - +,0.52205 ,0.20250 ,0.39804 ,0.02476 ,0.00389 ,0.00010 ,0.01441 - +,0.50423 ,0.19359 ,0.35969 ,0.02362 ,0.00421 ,0.00039 ,0.01389 - +,0.48803 ,0.18543 ,0.32695 ,0.02251 ,0.00441 ,0.00082 ,0.01350 - +,0.47287 ,0.17818 ,0.29880 ,0.02153 ,0.00450 ,0.00122 ,0.01312 - +,0.45880 ,0.17156 ,0.27419 ,0.02060 ,0.00464 ,0.00150 ,0.01267 - +,0.44565 ,0.16542 ,0.25290 ,0.01976 ,0.00470 ,0.00164 ,0.01227 - +,0.43343 ,0.15976 ,0.23412 ,0.01898 ,0.00473 ,0.00181 ,0.01185 - +,0.42200 ,0.15455 ,0.21755 ,0.01826 ,0.00474 ,0.00197 ,0.01145 - +,0.41124 ,0.14973 ,0.20289 ,0.01758 ,0.00474 ,0.00210 ,0.01109 - +,0.40102 ,0.14525 ,0.18969 ,0.01697 ,0.00466 ,0.00212 ,0.01076 - +,0.39148 ,0.14104 ,0.17790 ,0.01640 ,0.00458 ,0.00215 ,0.01046 - +,0.38256 ,0.13699 ,0.16729 ,0.01584 ,0.00450 ,0.00224 ,0.01019 - +,0.37413 ,0.13321 ,0.15772 ,0.01530 ,0.00444 ,0.00228 ,0.00991 - +,0.36617 ,0.12968 ,0.14905 ,0.01478 ,0.00439 ,0.00228 ,0.00964 - +,0.35837 ,0.12640 ,0.14120 ,0.01431 ,0.00436 ,0.00229 ,0.00939/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),K=1,19)/ - + 0.59623 ,0.23145 ,0.54806 ,0.02279 ,0.00038 ,0.00012 ,0.01174 - +,0.56581 ,0.21603 ,0.47176 ,0.02130 ,0.00160 ,0.00006 ,0.01156 - +,0.53921 ,0.20287 ,0.41101 ,0.02008 ,0.00225 ,0.00002 ,0.01127 - +,0.51569 ,0.19152 ,0.36177 ,0.01904 ,0.00265 ,0.00010 ,0.01089 - +,0.49454 ,0.18168 ,0.32130 ,0.01807 ,0.00289 ,0.00013 ,0.01049 - +,0.47561 ,0.17287 ,0.28773 ,0.01714 ,0.00308 ,0.00038 ,0.01011 - +,0.45816 ,0.16510 ,0.25947 ,0.01629 ,0.00322 ,0.00063 ,0.00979 - +,0.44227 ,0.15800 ,0.23510 ,0.01550 ,0.00336 ,0.00085 ,0.00941 - +,0.42747 ,0.15168 ,0.21433 ,0.01481 ,0.00339 ,0.00111 ,0.00905 - +,0.41388 ,0.14565 ,0.19618 ,0.01414 ,0.00341 ,0.00124 ,0.00883 - +,0.40122 ,0.14023 ,0.18062 ,0.01354 ,0.00341 ,0.00137 ,0.00852 - +,0.38955 ,0.13525 ,0.16695 ,0.01297 ,0.00337 ,0.00146 ,0.00821 - +,0.37884 ,0.13058 ,0.15475 ,0.01239 ,0.00331 ,0.00147 ,0.00796 - +,0.36842 ,0.12632 ,0.14412 ,0.01194 ,0.00331 ,0.00151 ,0.00768 - +,0.35864 ,0.12237 ,0.13466 ,0.01151 ,0.00329 ,0.00155 ,0.00742 - +,0.34943 ,0.11866 ,0.12614 ,0.01110 ,0.00323 ,0.00158 ,0.00719 - +,0.34083 ,0.11515 ,0.11846 ,0.01071 ,0.00319 ,0.00162 ,0.00699 - +,0.33278 ,0.11185 ,0.11153 ,0.01033 ,0.00315 ,0.00167 ,0.00681 - +,0.32505 ,0.10879 ,0.10526 ,0.01000 ,0.00311 ,0.00168 ,0.00661/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),K=1,19)/ - + 0.57130 ,0.20986 ,0.46344 ,0.01658 ,0.00040 ,0.00012 ,0.00859 - +,0.53839 ,0.19460 ,0.39234 ,0.01560 ,0.00113 ,0.00004 ,0.00838 - +,0.51006 ,0.18167 ,0.33718 ,0.01460 ,0.00163 ,0.00007 ,0.00820 - +,0.48504 ,0.17081 ,0.29329 ,0.01375 ,0.00199 ,0.00008 ,0.00786 - +,0.46317 ,0.16108 ,0.25779 ,0.01294 ,0.00224 ,0.00005 ,0.00757 - +,0.44311 ,0.15286 ,0.22866 ,0.01223 ,0.00237 ,0.00026 ,0.00734 - +,0.42527 ,0.14530 ,0.20423 ,0.01156 ,0.00247 ,0.00054 ,0.00707 - +,0.40900 ,0.13851 ,0.18388 ,0.01100 ,0.00251 ,0.00064 ,0.00677 - +,0.39407 ,0.13233 ,0.16670 ,0.01043 ,0.00258 ,0.00084 ,0.00656 - +,0.38013 ,0.12685 ,0.15168 ,0.00997 ,0.00254 ,0.00094 ,0.00628 - +,0.36755 ,0.12174 ,0.13875 ,0.00945 ,0.00251 ,0.00099 ,0.00607 - +,0.35580 ,0.11706 ,0.12757 ,0.00900 ,0.00248 ,0.00104 ,0.00588 - +,0.34458 ,0.11280 ,0.11785 ,0.00869 ,0.00246 ,0.00110 ,0.00565 - +,0.33440 ,0.10874 ,0.10917 ,0.00834 ,0.00244 ,0.00116 ,0.00542 - +,0.32484 ,0.10502 ,0.10150 ,0.00801 ,0.00243 ,0.00119 ,0.00522 - +,0.31562 ,0.10166 ,0.09469 ,0.00770 ,0.00240 ,0.00118 ,0.00509 - +,0.30708 ,0.09846 ,0.08859 ,0.00741 ,0.00234 ,0.00117 ,0.00492 - +,0.29915 ,0.09543 ,0.08310 ,0.00716 ,0.00226 ,0.00117 ,0.00474 - +,0.29158 ,0.09261 ,0.07819 ,0.00689 ,0.00221 ,0.00116 ,0.00460/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),K=1,19)/ - + 0.54087 ,0.18863 ,0.38868 ,0.01208 ,0.00017 ,-0.00010 ,0.00608 - +,0.50635 ,0.17383 ,0.32407 ,0.01125 ,0.00078 ,-0.00006 ,0.00598 - +,0.47690 ,0.16143 ,0.27493 ,0.01049 ,0.00114 ,-0.00005 ,0.00585 - +,0.45143 ,0.15077 ,0.23668 ,0.00984 ,0.00143 ,-0.00013 ,0.00559 - +,0.42885 ,0.14169 ,0.20586 ,0.00925 ,0.00156 ,-0.00006 ,0.00536 - +,0.40888 ,0.13362 ,0.18126 ,0.00863 ,0.00176 ,0.00006 ,0.00521 - +,0.39078 ,0.12668 ,0.16072 ,0.00818 ,0.00179 ,0.00029 ,0.00495 - +,0.37456 ,0.12039 ,0.14364 ,0.00771 ,0.00177 ,0.00046 ,0.00473 - +,0.35932 ,0.11465 ,0.12922 ,0.00735 ,0.00181 ,0.00047 ,0.00454 - +,0.34590 ,0.10943 ,0.11698 ,0.00696 ,0.00180 ,0.00065 ,0.00442 - +,0.33328 ,0.10475 ,0.10653 ,0.00659 ,0.00177 ,0.00066 ,0.00426 - +,0.32159 ,0.10049 ,0.09748 ,0.00628 ,0.00175 ,0.00067 ,0.00408 - +,0.31082 ,0.09657 ,0.08956 ,0.00604 ,0.00176 ,0.00075 ,0.00390 - +,0.30066 ,0.09293 ,0.08264 ,0.00578 ,0.00174 ,0.00080 ,0.00379 - +,0.29120 ,0.08957 ,0.07654 ,0.00555 ,0.00171 ,0.00083 ,0.00367 - +,0.28231 ,0.08644 ,0.07111 ,0.00534 ,0.00167 ,0.00080 ,0.00352 - +,0.27407 ,0.08350 ,0.06631 ,0.00514 ,0.00165 ,0.00080 ,0.00339 - +,0.26640 ,0.08075 ,0.06203 ,0.00494 ,0.00163 ,0.00083 ,0.00326 - +,0.25912 ,0.07819 ,0.05821 ,0.00477 ,0.00157 ,0.00083 ,0.00313/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),K=1,19)/ - + 0.50654 ,0.16707 ,0.32224 ,0.00836 ,0.00036 ,0.00011 ,0.00448 - +,0.47131 ,0.15282 ,0.26495 ,0.00782 ,0.00072 ,0.00017 ,0.00438 - +,0.44126 ,0.14122 ,0.22192 ,0.00730 ,0.00101 ,0.00004 ,0.00416 - +,0.41532 ,0.13150 ,0.18881 ,0.00679 ,0.00117 ,0.00014 ,0.00404 - +,0.39285 ,0.12299 ,0.16307 ,0.00636 ,0.00128 ,0.00011 ,0.00386 - +,0.37297 ,0.11550 ,0.14219 ,0.00602 ,0.00135 ,0.00021 ,0.00372 - +,0.35503 ,0.10899 ,0.12521 ,0.00567 ,0.00132 ,0.00029 ,0.00358 - +,0.33913 ,0.10320 ,0.11113 ,0.00528 ,0.00134 ,0.00035 ,0.00337 - +,0.32436 ,0.09807 ,0.09940 ,0.00501 ,0.00128 ,0.00048 ,0.00321 - +,0.31099 ,0.09337 ,0.08947 ,0.00477 ,0.00132 ,0.00054 ,0.00308 - +,0.29848 ,0.08915 ,0.08101 ,0.00457 ,0.00133 ,0.00052 ,0.00294 - +,0.28707 ,0.08527 ,0.07377 ,0.00436 ,0.00130 ,0.00051 ,0.00281 - +,0.27682 ,0.08165 ,0.06754 ,0.00412 ,0.00124 ,0.00053 ,0.00268 - +,0.26723 ,0.07835 ,0.06204 ,0.00390 ,0.00125 ,0.00054 ,0.00263 - +,0.25829 ,0.07534 ,0.05722 ,0.00372 ,0.00124 ,0.00055 ,0.00255 - +,0.24981 ,0.07260 ,0.05297 ,0.00358 ,0.00122 ,0.00056 ,0.00241 - +,0.24191 ,0.06999 ,0.04924 ,0.00346 ,0.00116 ,0.00056 ,0.00229 - +,0.23455 ,0.06751 ,0.04593 ,0.00335 ,0.00110 ,0.00055 ,0.00219 - +,0.22769 ,0.06522 ,0.04298 ,0.00322 ,0.00104 ,0.00054 ,0.00212/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),K=1,19)/ - + 0.46927 ,0.14695 ,0.26593 ,0.00598 ,0.00013 ,-0.00003 ,0.00295 - +,0.43382 ,0.13366 ,0.21530 ,0.00551 ,0.00043 ,0.00004 ,0.00299 - +,0.40386 ,0.12282 ,0.17816 ,0.00512 ,0.00065 ,-0.00006 ,0.00290 - +,0.37847 ,0.11367 ,0.15016 ,0.00480 ,0.00073 ,-0.00001 ,0.00270 - +,0.35640 ,0.10583 ,0.12827 ,0.00445 ,0.00093 ,0.00001 ,0.00266 - +,0.33666 ,0.09913 ,0.11097 ,0.00419 ,0.00090 ,0.00008 ,0.00254 - +,0.31938 ,0.09314 ,0.09697 ,0.00395 ,0.00092 ,0.00016 ,0.00241 - +,0.30376 ,0.08793 ,0.08552 ,0.00369 ,0.00091 ,0.00025 ,0.00227 - +,0.28964 ,0.08316 ,0.07609 ,0.00350 ,0.00091 ,0.00030 ,0.00215 - +,0.27663 ,0.07905 ,0.06815 ,0.00334 ,0.00087 ,0.00027 ,0.00207 - +,0.26490 ,0.07524 ,0.06138 ,0.00316 ,0.00087 ,0.00030 ,0.00196 - +,0.25424 ,0.07172 ,0.05559 ,0.00298 ,0.00087 ,0.00033 ,0.00186 - +,0.24445 ,0.06848 ,0.05063 ,0.00282 ,0.00084 ,0.00033 ,0.00180 - +,0.23524 ,0.06555 ,0.04634 ,0.00274 ,0.00083 ,0.00038 ,0.00173 - +,0.22676 ,0.06288 ,0.04261 ,0.00264 ,0.00081 ,0.00040 ,0.00166 - +,0.21898 ,0.06046 ,0.03935 ,0.00246 ,0.00076 ,0.00034 ,0.00158 - +,0.21169 ,0.05818 ,0.03647 ,0.00234 ,0.00075 ,0.00035 ,0.00153 - +,0.20487 ,0.05604 ,0.03393 ,0.00225 ,0.00079 ,0.00041 ,0.00149 - +,0.19838 ,0.05405 ,0.03164 ,0.00219 ,0.00076 ,0.00039 ,0.00143/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),K=1,19)/ - + 0.43009 ,0.12748 ,0.21607 ,0.00400 ,0.00019 ,0.00004 ,0.00215 - +,0.39534 ,0.11524 ,0.17289 ,0.00370 ,0.00034 ,0.00006 ,0.00209 - +,0.36578 ,0.10533 ,0.14144 ,0.00354 ,0.00049 ,0.00003 ,0.00204 - +,0.34110 ,0.09703 ,0.11799 ,0.00322 ,0.00057 ,-0.00001 ,0.00194 - +,0.31934 ,0.09006 ,0.09988 ,0.00303 ,0.00059 ,0.00002 ,0.00183 - +,0.30080 ,0.08395 ,0.08574 ,0.00282 ,0.00063 ,0.00009 ,0.00174 - +,0.28407 ,0.07862 ,0.07449 ,0.00265 ,0.00067 ,0.00015 ,0.00164 - +,0.26930 ,0.07392 ,0.06520 ,0.00245 ,0.00068 ,0.00014 ,0.00157 - +,0.25601 ,0.06967 ,0.05768 ,0.00234 ,0.00063 ,0.00020 ,0.00147 - +,0.24384 ,0.06594 ,0.05133 ,0.00218 ,0.00062 ,0.00025 ,0.00144 - +,0.23282 ,0.06263 ,0.04601 ,0.00206 ,0.00063 ,0.00025 ,0.00137 - +,0.22278 ,0.05960 ,0.04151 ,0.00196 ,0.00063 ,0.00025 ,0.00129 - +,0.21358 ,0.05679 ,0.03766 ,0.00186 ,0.00061 ,0.00027 ,0.00120 - +,0.20497 ,0.05427 ,0.03436 ,0.00177 ,0.00060 ,0.00025 ,0.00119 - +,0.19705 ,0.05195 ,0.03148 ,0.00169 ,0.00058 ,0.00024 ,0.00116 - +,0.18975 ,0.04974 ,0.02897 ,0.00164 ,0.00053 ,0.00025 ,0.00109 - +,0.18302 ,0.04774 ,0.02676 ,0.00157 ,0.00052 ,0.00026 ,0.00103 - +,0.17679 ,0.04590 ,0.02482 ,0.00148 ,0.00052 ,0.00027 ,0.00098 - +,0.17091 ,0.04418 ,0.02310 ,0.00142 ,0.00051 ,0.00026 ,0.00094/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),K=1,19)/ - + 0.39010 ,0.10947 ,0.17418 ,0.00270 ,0.00020 ,0.00008 ,0.00144 - +,0.35623 ,0.09848 ,0.13754 ,0.00250 ,0.00029 ,0.00007 ,0.00145 - +,0.32772 ,0.08962 ,0.11130 ,0.00239 ,0.00034 ,0.00006 ,0.00135 - +,0.30394 ,0.08214 ,0.09197 ,0.00227 ,0.00034 ,0.00004 ,0.00124 - +,0.28366 ,0.07586 ,0.07721 ,0.00208 ,0.00042 ,0.00001 ,0.00121 - +,0.26605 ,0.07053 ,0.06569 ,0.00187 ,0.00042 ,0.00004 ,0.00117 - +,0.25030 ,0.06575 ,0.05664 ,0.00182 ,0.00041 ,0.00006 ,0.00109 - +,0.23643 ,0.06159 ,0.04939 ,0.00169 ,0.00041 ,0.00008 ,0.00101 - +,0.22394 ,0.05798 ,0.04334 ,0.00157 ,0.00041 ,0.00012 ,0.00094 - +,0.21274 ,0.05471 ,0.03839 ,0.00148 ,0.00035 ,0.00010 ,0.00088 - +,0.20253 ,0.05173 ,0.03428 ,0.00143 ,0.00038 ,0.00014 ,0.00084 - +,0.19326 ,0.04906 ,0.03081 ,0.00137 ,0.00039 ,0.00018 ,0.00080 - +,0.18482 ,0.04669 ,0.02786 ,0.00129 ,0.00037 ,0.00017 ,0.00078 - +,0.17699 ,0.04447 ,0.02530 ,0.00121 ,0.00036 ,0.00014 ,0.00073 - +,0.16982 ,0.04245 ,0.02309 ,0.00114 ,0.00036 ,0.00012 ,0.00069 - +,0.16322 ,0.04061 ,0.02119 ,0.00108 ,0.00036 ,0.00014 ,0.00069 - +,0.15707 ,0.03891 ,0.01952 ,0.00103 ,0.00035 ,0.00014 ,0.00066 - +,0.15133 ,0.03733 ,0.01806 ,0.00101 ,0.00034 ,0.00012 ,0.00062 - +,0.14601 ,0.03587 ,0.01677 ,0.00096 ,0.00031 ,0.00013 ,0.00059/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),K=1,19)/ - + 0.35004 ,0.09294 ,0.13907 ,0.00180 ,0.00010 ,0.00004 ,0.00095 - +,0.31737 ,0.08312 ,0.10821 ,0.00165 ,0.00023 ,0.00006 ,0.00097 - +,0.29045 ,0.07514 ,0.08640 ,0.00161 ,0.00024 ,0.00002 ,0.00090 - +,0.26790 ,0.06854 ,0.07057 ,0.00144 ,0.00027 ,-0.00002 ,0.00082 - +,0.24881 ,0.06300 ,0.05871 ,0.00137 ,0.00033 ,0.00001 ,0.00083 - +,0.23243 ,0.05822 ,0.04963 ,0.00123 ,0.00036 ,-0.00001 ,0.00080 - +,0.21802 ,0.05416 ,0.04246 ,0.00108 ,0.00034 ,0.00007 ,0.00077 - +,0.20518 ,0.05055 ,0.03673 ,0.00105 ,0.00031 ,0.00012 ,0.00073 - +,0.19356 ,0.04737 ,0.03206 ,0.00101 ,0.00034 ,0.00010 ,0.00070 - +,0.18306 ,0.04457 ,0.02827 ,0.00098 ,0.00028 ,0.00009 ,0.00062 - +,0.17381 ,0.04206 ,0.02511 ,0.00092 ,0.00027 ,0.00010 ,0.00058 - +,0.16547 ,0.03979 ,0.02246 ,0.00084 ,0.00028 ,0.00010 ,0.00056 - +,0.15782 ,0.03771 ,0.02021 ,0.00077 ,0.00029 ,0.00010 ,0.00054 - +,0.15077 ,0.03583 ,0.01830 ,0.00074 ,0.00026 ,0.00011 ,0.00051 - +,0.14435 ,0.03412 ,0.01665 ,0.00071 ,0.00025 ,0.00011 ,0.00048 - +,0.13851 ,0.03255 ,0.01523 ,0.00065 ,0.00026 ,0.00011 ,0.00046 - +,0.13301 ,0.03110 ,0.01400 ,0.00061 ,0.00027 ,0.00011 ,0.00045 - +,0.12784 ,0.02978 ,0.01291 ,0.00058 ,0.00027 ,0.00012 ,0.00044 - +,0.12314 ,0.02855 ,0.01196 ,0.00054 ,0.00027 ,0.00013 ,0.00043/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),K=1,19)/ - + 0.31041 ,0.07819 ,0.10961 ,0.00122 ,0.00000 ,-0.00001 ,0.00057 - +,0.28003 ,0.06934 ,0.08414 ,0.00107 ,0.00005 ,-0.00007 ,0.00058 - +,0.25490 ,0.06240 ,0.06652 ,0.00099 ,0.00010 ,-0.00006 ,0.00051 - +,0.23402 ,0.05671 ,0.05372 ,0.00090 ,0.00022 ,-0.00006 ,0.00057 - +,0.21610 ,0.05186 ,0.04437 ,0.00091 ,0.00018 ,-0.00004 ,0.00050 - +,0.20101 ,0.04778 ,0.03720 ,0.00081 ,0.00017 ,-0.00003 ,0.00046 - +,0.18765 ,0.04429 ,0.03161 ,0.00078 ,0.00021 ,0.00000 ,0.00045 - +,0.17596 ,0.04117 ,0.02717 ,0.00073 ,0.00016 ,0.00000 ,0.00041 - +,0.16558 ,0.03845 ,0.02361 ,0.00069 ,0.00015 ,0.00001 ,0.00037 - +,0.15630 ,0.03605 ,0.02070 ,0.00064 ,0.00017 ,0.00002 ,0.00036 - +,0.14789 ,0.03391 ,0.01831 ,0.00063 ,0.00019 ,0.00003 ,0.00037 - +,0.14032 ,0.03199 ,0.01631 ,0.00061 ,0.00019 ,0.00005 ,0.00037 - +,0.13352 ,0.03026 ,0.01461 ,0.00054 ,0.00018 ,0.00006 ,0.00035 - +,0.12727 ,0.02869 ,0.01320 ,0.00050 ,0.00016 ,0.00004 ,0.00034 - +,0.12155 ,0.02727 ,0.01198 ,0.00047 ,0.00016 ,0.00004 ,0.00032 - +,0.11621 ,0.02597 ,0.01093 ,0.00045 ,0.00016 ,0.00004 ,0.00028 - +,0.11133 ,0.02476 ,0.01001 ,0.00043 ,0.00016 ,0.00005 ,0.00026 - +,0.10685 ,0.02364 ,0.00921 ,0.00041 ,0.00016 ,0.00006 ,0.00025 - +,0.10270 ,0.02262 ,0.00851 ,0.00039 ,0.00017 ,0.00007 ,0.00026/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),K=1,19)/ - + 0.27216 ,0.06472 ,0.08524 ,0.00077 ,0.00005 ,-0.00002 ,0.00031 - +,0.24361 ,0.05712 ,0.06454 ,0.00076 ,0.00007 ,-0.00002 ,0.00034 - +,0.22060 ,0.05111 ,0.05042 ,0.00069 ,0.00007 ,-0.00003 ,0.00035 - +,0.20136 ,0.04619 ,0.04041 ,0.00072 ,0.00010 ,-0.00005 ,0.00031 - +,0.18541 ,0.04214 ,0.03304 ,0.00059 ,0.00009 ,-0.00005 ,0.00027 - +,0.17174 ,0.03862 ,0.02750 ,0.00053 ,0.00012 ,-0.00004 ,0.00027 - +,0.15981 ,0.03566 ,0.02321 ,0.00050 ,0.00011 ,-0.00001 ,0.00027 - +,0.14926 ,0.03305 ,0.01983 ,0.00049 ,0.00011 ,-0.00002 ,0.00025 - +,0.14021 ,0.03079 ,0.01714 ,0.00038 ,0.00011 ,0.00000 ,0.00024 - +,0.13194 ,0.02876 ,0.01494 ,0.00038 ,0.00012 ,0.00001 ,0.00024 - +,0.12455 ,0.02697 ,0.01316 ,0.00033 ,0.00011 ,0.00002 ,0.00022 - +,0.11781 ,0.02538 ,0.01168 ,0.00032 ,0.00012 ,0.00002 ,0.00021 - +,0.11158 ,0.02393 ,0.01043 ,0.00037 ,0.00013 ,0.00003 ,0.00022 - +,0.10609 ,0.02263 ,0.00939 ,0.00034 ,0.00012 ,0.00004 ,0.00021 - +,0.10110 ,0.02146 ,0.00849 ,0.00031 ,0.00012 ,0.00005 ,0.00020 - +,0.09652 ,0.02039 ,0.00772 ,0.00027 ,0.00011 ,0.00004 ,0.00019 - +,0.09227 ,0.01940 ,0.00706 ,0.00026 ,0.00011 ,0.00004 ,0.00018 - +,0.08834 ,0.01850 ,0.00648 ,0.00026 ,0.00011 ,0.00005 ,0.00018 - +,0.08473 ,0.01766 ,0.00597 ,0.00023 ,0.00010 ,0.00004 ,0.00017/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),K=1,19)/ - + 0.23580 ,0.05296 ,0.06531 ,0.00046 ,-0.00001 ,-0.00005 ,0.00019 - +,0.20963 ,0.04647 ,0.04878 ,0.00047 ,0.00001 ,-0.00007 ,0.00018 - +,0.18873 ,0.04129 ,0.03764 ,0.00038 ,-0.00001 ,-0.00010 ,0.00021 - +,0.17139 ,0.03714 ,0.02982 ,0.00041 ,0.00006 ,-0.00007 ,0.00017 - +,0.15703 ,0.03369 ,0.02418 ,0.00039 ,0.00010 ,-0.00003 ,0.00018 - +,0.14488 ,0.03077 ,0.01996 ,0.00031 ,0.00006 ,-0.00005 ,0.00016 - +,0.13432 ,0.02826 ,0.01673 ,0.00029 ,0.00005 ,-0.00001 ,0.00018 - +,0.12494 ,0.02611 ,0.01420 ,0.00031 ,0.00007 ,-0.00001 ,0.00017 - +,0.11681 ,0.02421 ,0.01220 ,0.00027 ,0.00010 ,-0.00003 ,0.00016 - +,0.10961 ,0.02256 ,0.01060 ,0.00024 ,0.00008 ,0.00001 ,0.00014 - +,0.10319 ,0.02109 ,0.00929 ,0.00021 ,0.00008 ,0.00001 ,0.00013 - +,0.09742 ,0.01978 ,0.00821 ,0.00018 ,0.00009 ,0.00002 ,0.00014 - +,0.09222 ,0.01861 ,0.00731 ,0.00014 ,0.00011 ,0.00003 ,0.00015 - +,0.08733 ,0.01755 ,0.00655 ,0.00017 ,0.00010 ,0.00004 ,0.00015 - +,0.08293 ,0.01660 ,0.00591 ,0.00018 ,0.00009 ,0.00003 ,0.00014 - +,0.07901 ,0.01571 ,0.00536 ,0.00014 ,0.00009 ,0.00003 ,0.00013 - +,0.07535 ,0.01492 ,0.00489 ,0.00013 ,0.00008 ,0.00003 ,0.00012 - +,0.07193 ,0.01420 ,0.00447 ,0.00013 ,0.00007 ,0.00003 ,0.00012 - +,0.06878 ,0.01353 ,0.00412 ,0.00013 ,0.00008 ,0.00004 ,0.00012/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),K=1,19)/ - + 0.20148 ,0.04259 ,0.04912 ,0.00029 ,-0.00005 ,-0.00004 ,0.00009 - +,0.17780 ,0.03712 ,0.03620 ,0.00028 ,-0.00003 ,-0.00009 ,0.00007 - +,0.15932 ,0.03277 ,0.02759 ,0.00022 ,0.00002 ,-0.00006 ,0.00009 - +,0.14400 ,0.02932 ,0.02161 ,0.00019 ,0.00004 ,-0.00007 ,0.00012 - +,0.13120 ,0.02649 ,0.01739 ,0.00022 ,0.00009 ,-0.00001 ,0.00015 - +,0.12053 ,0.02408 ,0.01424 ,0.00015 ,0.00004 ,-0.00004 ,0.00012 - +,0.11121 ,0.02203 ,0.01185 ,0.00016 ,0.00008 ,-0.00001 ,0.00011 - +,0.10300 ,0.02027 ,0.01000 ,0.00020 ,0.00009 ,0.00002 ,0.00014 - +,0.09596 ,0.01872 ,0.00855 ,0.00016 ,0.00007 ,0.00001 ,0.00013 - +,0.08974 ,0.01739 ,0.00738 ,0.00014 ,0.00008 ,0.00002 ,0.00012 - +,0.08411 ,0.01621 ,0.00644 ,0.00014 ,0.00008 ,0.00002 ,0.00013 - +,0.07913 ,0.01517 ,0.00567 ,0.00012 ,0.00008 ,0.00003 ,0.00013 - +,0.07477 ,0.01423 ,0.00503 ,0.00008 ,0.00006 ,0.00004 ,0.00012 - +,0.07067 ,0.01338 ,0.00450 ,0.00007 ,0.00007 ,0.00003 ,0.00010 - +,0.06694 ,0.01262 ,0.00404 ,0.00007 ,0.00008 ,0.00002 ,0.00008 - +,0.06354 ,0.01193 ,0.00366 ,0.00007 ,0.00008 ,0.00002 ,0.00008 - +,0.06046 ,0.01129 ,0.00332 ,0.00006 ,0.00007 ,0.00002 ,0.00008 - +,0.05765 ,0.01071 ,0.00304 ,0.00005 ,0.00006 ,0.00002 ,0.00007 - +,0.05503 ,0.01018 ,0.00279 ,0.00005 ,0.00006 ,0.00002 ,0.00008/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),K=1,19)/ - + 0.16982 ,0.03391 ,0.03654 ,0.00022 ,-0.00005 ,-0.00008 ,0.00000 - +,0.14910 ,0.02933 ,0.02652 ,0.00017 ,0.00000 ,-0.00006 ,0.00006 - +,0.13261 ,0.02576 ,0.01999 ,0.00017 ,0.00002 ,-0.00005 ,0.00007 - +,0.11933 ,0.02290 ,0.01555 ,0.00015 ,0.00001 ,-0.00006 ,0.00005 - +,0.10818 ,0.02059 ,0.01237 ,0.00012 ,0.00001 ,-0.00007 ,0.00005 - +,0.09891 ,0.01863 ,0.01006 ,0.00012 ,0.00002 ,-0.00005 ,0.00004 - +,0.09081 ,0.01699 ,0.00833 ,0.00014 ,0.00002 ,-0.00003 ,0.00005 - +,0.08399 ,0.01558 ,0.00698 ,0.00011 ,0.00003 ,-0.00003 ,0.00006 - +,0.07803 ,0.01436 ,0.00594 ,0.00008 ,0.00006 ,-0.00001 ,0.00006 - +,0.07263 ,0.01328 ,0.00512 ,0.00008 ,0.00003 ,0.00000 ,0.00006 - +,0.06789 ,0.01235 ,0.00445 ,0.00008 ,0.00004 ,0.00002 ,0.00006 - +,0.06370 ,0.01152 ,0.00390 ,0.00007 ,0.00004 ,0.00002 ,0.00006 - +,0.05995 ,0.01076 ,0.00345 ,0.00005 ,0.00004 ,0.00001 ,0.00005 - +,0.05651 ,0.01009 ,0.00307 ,0.00006 ,0.00004 ,0.00001 ,0.00005 - +,0.05340 ,0.00949 ,0.00276 ,0.00006 ,0.00004 ,0.00001 ,0.00005 - +,0.05058 ,0.00896 ,0.00249 ,0.00005 ,0.00002 ,0.00001 ,0.00004 - +,0.04801 ,0.00847 ,0.00226 ,0.00005 ,0.00002 ,0.00001 ,0.00004 - +,0.04565 ,0.00801 ,0.00206 ,0.00005 ,0.00003 ,0.00001 ,0.00005 - +,0.04349 ,0.00760 ,0.00189 ,0.00005 ,0.00003 ,0.00001 ,0.00004/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),K=1,19)/ - + 0.14066 ,0.02631 ,0.02643 ,0.00010 ,-0.00002 ,-0.00003 ,0.00002 - +,0.12272 ,0.02264 ,0.01901 ,0.00009 ,0.00001 ,-0.00002 ,0.00004 - +,0.10852 ,0.01979 ,0.01419 ,0.00011 ,0.00001 ,-0.00001 ,0.00004 - +,0.09708 ,0.01752 ,0.01092 ,0.00012 ,0.00001 ,0.00000 ,0.00004 - +,0.08776 ,0.01570 ,0.00863 ,0.00008 ,0.00001 ,-0.00002 ,0.00002 - +,0.07982 ,0.01414 ,0.00698 ,0.00008 ,0.00000 ,-0.00003 ,0.00001 - +,0.07317 ,0.01286 ,0.00575 ,0.00007 ,0.00000 ,-0.00002 ,0.00001 - +,0.06737 ,0.01175 ,0.00479 ,0.00006 ,0.00001 ,0.00000 ,0.00003 - +,0.06228 ,0.01080 ,0.00406 ,0.00007 ,0.00000 ,0.00001 ,0.00002 - +,0.05786 ,0.00997 ,0.00348 ,0.00005 ,0.00002 ,0.00001 ,0.00003 - +,0.05389 ,0.00923 ,0.00301 ,0.00006 ,0.00003 ,0.00001 ,0.00003 - +,0.05037 ,0.00859 ,0.00263 ,0.00007 ,0.00002 ,0.00000 ,0.00002 - +,0.04725 ,0.00802 ,0.00232 ,0.00006 ,0.00000 ,0.00000 ,0.00002 - +,0.04446 ,0.00750 ,0.00206 ,0.00005 ,0.00001 ,0.00000 ,0.00002 - +,0.04193 ,0.00704 ,0.00184 ,0.00004 ,0.00001 ,0.00000 ,0.00002 - +,0.03960 ,0.00662 ,0.00166 ,0.00004 ,0.00000 ,0.00000 ,0.00002 - +,0.03749 ,0.00625 ,0.00151 ,0.00004 ,0.00000 ,0.00000 ,0.00001 - +,0.03558 ,0.00590 ,0.00137 ,0.00004 ,0.00000 ,0.00000 ,0.00001 - +,0.03383 ,0.00559 ,0.00125 ,0.00004 ,0.00001 ,0.00000 ,0.00001/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),K=1,19)/ - + 0.09154 ,0.01495 ,0.01296 ,0.00005 ,-0.00001 ,0.00000 ,0.00001 - +,0.07871 ,0.01266 ,0.00902 ,0.00002 ,-0.00001 ,-0.00002 ,0.00001 - +,0.06870 ,0.01093 ,0.00657 ,0.00004 ,0.00000 ,0.00000 ,0.00001 - +,0.06074 ,0.00957 ,0.00496 ,0.00004 ,0.00001 ,-0.00001 ,0.00001 - +,0.05433 ,0.00847 ,0.00385 ,0.00002 ,0.00000 ,0.00000 ,0.00001 - +,0.04900 ,0.00757 ,0.00306 ,0.00001 ,0.00002 ,0.00000 ,0.00002 - +,0.04447 ,0.00682 ,0.00249 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.04060 ,0.00618 ,0.00205 ,0.00001 ,0.00002 ,0.00000 ,0.00002 - +,0.03725 ,0.00563 ,0.00171 ,0.00000 ,0.00001 ,0.00001 ,0.00001 - +,0.03430 ,0.00515 ,0.00146 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.03174 ,0.00474 ,0.00125 ,0.00002 ,0.00001 ,0.00001 ,0.00001 - +,0.02948 ,0.00438 ,0.00108 ,0.00002 ,0.00002 ,0.00001 ,0.00001 - +,0.02745 ,0.00406 ,0.00095 ,0.00002 ,0.00001 ,0.00001 ,0.00001 - +,0.02567 ,0.00378 ,0.00084 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02408 ,0.00353 ,0.00075 ,0.00001 ,0.00001 ,0.00000 ,0.00000 - +,0.02263 ,0.00330 ,0.00067 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02132 ,0.00310 ,0.00060 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02014 ,0.00291 ,0.00055 ,0.00000 ,0.00001 ,0.00000 ,0.00001 - +,0.01905 ,0.00274 ,0.00050 ,0.00000 ,0.00001 ,0.00000 ,0.00001/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),K=1,19)/ - + 0.05476 ,0.00773 ,0.00569 ,0.00002 ,-0.00002 ,-0.00002 ,-0.00002 - +,0.04631 ,0.00644 ,0.00384 ,0.00003 ,0.00000 ,-0.00001 ,0.00000 - +,0.03992 ,0.00548 ,0.00273 ,0.00001 ,0.00000 ,-0.00001 ,0.00000 - +,0.03487 ,0.00474 ,0.00201 ,0.00001 ,0.00000 ,0.00000 ,0.00001 - +,0.03084 ,0.00415 ,0.00153 ,0.00000 ,0.00000 ,-0.00001 ,0.00000 - +,0.02748 ,0.00367 ,0.00120 ,0.00000 ,0.00000 ,-0.00001 ,0.00000 - +,0.02471 ,0.00327 ,0.00096 ,0.00000 ,0.00000 ,0.00000 ,0.00001 - +,0.02233 ,0.00294 ,0.00078 ,0.00001 ,0.00000 ,0.00000 ,0.00001 - +,0.02034 ,0.00266 ,0.00065 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01857 ,0.00241 ,0.00055 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01705 ,0.00220 ,0.00047 ,0.00000 ,0.00001 ,0.00000 ,0.00000 - +,0.01573 ,0.00202 ,0.00040 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01457 ,0.00186 ,0.00035 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01352 ,0.00172 ,0.00031 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01259 ,0.00159 ,0.00027 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01177 ,0.00148 ,0.00024 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01103 ,0.00138 ,0.00022 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01036 ,0.00129 ,0.00020 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00974 ,0.00121 ,0.00018 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),K=1,19)/ - + 0.02907 ,0.00346 ,0.00212 ,0.00001 ,0.00000 ,0.00000 ,-0.00001 - +,0.02418 ,0.00284 ,0.00139 ,0.00001 ,0.00000 ,-0.00001 ,0.00000 - +,0.02051 ,0.00238 ,0.00096 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01765 ,0.00203 ,0.00069 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01541 ,0.00176 ,0.00052 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01361 ,0.00154 ,0.00040 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01209 ,0.00135 ,0.00032 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01082 ,0.00120 ,0.00026 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00976 ,0.00108 ,0.00021 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00885 ,0.00097 ,0.00017 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00806 ,0.00088 ,0.00015 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00737 ,0.00080 ,0.00013 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00677 ,0.00073 ,0.00011 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00625 ,0.00067 ,0.00010 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00578 ,0.00062 ,0.00009 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00536 ,0.00057 ,0.00008 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00499 ,0.00053 ,0.00007 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00466 ,0.00049 ,0.00006 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00436 ,0.00046 ,0.00006 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),K=1,19)/ - + 0.01312 ,0.00128 ,0.00063 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01068 ,0.00103 ,0.00040 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00889 ,0.00085 ,0.00027 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00754 ,0.00071 ,0.00019 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00648 ,0.00060 ,0.00014 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00563 ,0.00052 ,0.00010 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00494 ,0.00045 ,0.00008 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00437 ,0.00040 ,0.00007 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00390 ,0.00035 ,0.00005 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00349 ,0.00031 ,0.00004 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00315 ,0.00028 ,0.00004 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00285 ,0.00025 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00260 ,0.00023 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00238 ,0.00021 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00218 ,0.00019 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00201 ,0.00018 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00185 ,0.00016 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00172 ,0.00015 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00160 ,0.00014 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),K=1,19)/ - + 0.00099 ,0.00005 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00076 ,0.00004 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00060 ,0.00003 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00049 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00040 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00034 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00028 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00024 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00021 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00018 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00016 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00014 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00013 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00011 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00010 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00009 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00008 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00007 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00007 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,4,5,0,0,5/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C -C - XSAVE=X -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(58,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M) -C 1=UV 2=DV 3=GLUE 4=(UBAR+DBAR)/2 5=CBAR 7=BBAR 6=SBAR - DO 25 I=1,7 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=1,6 - DO 30 K=1,19 - 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) - 50 FORMAT(7F10.5) - DO 40 I=1,7 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,7 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) -C... THIS SEA IS (UBAR+DBAR)/2 - SEA=G(4) - STR=G(6) - CHM=G(5) - GL =G(3) - BOT=G(7) -C - X=XSAVE -C - RETURN - END diff --git a/PDF/spdf/sflacg1.F b/PDF/spdf/sflacg1.F deleted file mode 100644 index 6bcb041f0fe..00000000000 --- a/PDF/spdf/sflacg1.F +++ /dev/null @@ -1,63 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:57 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:37 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFLACG1(DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DTB,DGL) -C -C******************************************************************** -C* * -C* Parametrization of parton distribution functions * -C* in the photon (LO analysis) - full solution of AP eq.! * -C* * -C* authors: H.Abramowicz, K.Charchula and A.Levy (LAC) * -C* /Phys. Lett. B269 (1991) 458/ * -C* * -C* Prepared by: * -C* Krzysztof Charchula, DESY * -C* bitnet: F1PCHA@DHHDESY3 * -C* decnet: 13313::CHARCHULA * -C* * -C* Modified by: * -C* H. Plothow-Besch/CERN-PPE * -C* * -C******************************************************************** -C -C...ISET Q20(GEV2) comments -C...------------------------------------------------------------ -C... 1 4 xG(x,Q20)-->x**(-0.34) (fitted) at low x -C...------------------------------------------------------------ -C...LAMBDA=0.2 GeV, Nf=4 (i.e. xb=0) -C...range of validity: -C... 10**-4 < X < 1 -C... 4(1) < Q2 < 10**5 GeV**2 -C -#include "pdf/impdp.inc" -#include "pdf/expdp.inc" - + DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DTB,DGL, - + XPDF(-6:6), X, Q, Q2 -C - X = DX - Q = DQ - Q2 = Q*Q - CALL PHLAC1(X,Q2,XPDF) -C - DDV = XPDF(1) - DUV = XPDF(2) - DDB = XPDF(-1) - DUB = XPDF(-2) - DSB = XPDF(-3) - DCB = XPDF(-4) - DBB = XPDF(-5) - DTB = XPDF(-6) - DGL = XPDF(0) -C - RETURN - END diff --git a/PDF/spdf/sflacg2.F b/PDF/spdf/sflacg2.F deleted file mode 100644 index ad24d9cdcc3..00000000000 --- a/PDF/spdf/sflacg2.F +++ /dev/null @@ -1,63 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:58 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:38 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFLACG2(DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DTB,DGL) -C -C******************************************************************** -C* * -C* Parametrization of parton distribution functions * -C* in the photon (LO analysis) - full solution of AP eq.! * -C* * -C* authors: H.Abramowicz, K.Charchula and A.Levy (LAC) * -C* /Phys. Lett. B269 (1991) 458/ * -C* * -C* Prepared by: * -C* Krzysztof Charchula, DESY * -C* bitnet: F1PCHA@DHHDESY3 * -C* decnet: 13313::CHARCHULA * -C* * -C* Modified by: * -C* H. Plothow-Besch/CERN-PPE * -C* * -C******************************************************************** -C -C...ISET Q20(GEV2) comments -C...------------------------------------------------------------ -C... 2 4 xG(x,Q20)-->const (fixed) at low x -C...------------------------------------------------------------ -C...LAMBDA=0.2 GeV, Nf=4 (i.e. xb=0) -C...range of validity: -C... 10**-4 < X < 1 -C... 4(1) < Q2 < 10**5 GeV**2 -C -#include "pdf/impdp.inc" -#include "pdf/expdp.inc" - + DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DTB,DGL, - + XPDF(-6:6), X, Q, Q2 -C - X = DX - Q = DQ - Q2 = Q*Q - CALL PHLAC2(X,Q2,XPDF) -C - DDV = XPDF(1) - DUV = XPDF(2) - DDB = XPDF(-1) - DUB = XPDF(-2) - DSB = XPDF(-3) - DCB = XPDF(-4) - DBB = XPDF(-5) - DTB = XPDF(-6) - DGL = XPDF(0) -C - RETURN - END diff --git a/PDF/spdf/sflacg3.F b/PDF/spdf/sflacg3.F deleted file mode 100644 index 8fd25fb388a..00000000000 --- a/PDF/spdf/sflacg3.F +++ /dev/null @@ -1,63 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:29:59 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:38 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFLACG3(DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DTB,DGL) -C -C******************************************************************** -C* * -C* Parametrization of parton distribution functions * -C* in the photon (LO analysis) - full solution of AP eq.! * -C* * -C* authors: H.Abramowicz, K.Charchula and A.Levy (LAC) * -C* /Phys. Lett. B269 (1991) 458/ * -C* * -C* Prepared by: * -C* Krzysztof Charchula, DESY * -C* bitnet: F1PCHA@DHHDESY3 * -C* decnet: 13313::CHARCHULA * -C* * -C* Modified by: * -C* H. Plothow-Besch/CERN-PPE * -C* * -C******************************************************************** -C -C...ISET Q20(GEV2) comments -C...------------------------------------------------------------ -C... 3 1 as result--very hard gluons -C...------------------------------------------------------------ -C...LAMBDA=0.2 GeV, Nf=4 (i.e. xb=0) -C...range of validity: -C... 10**-4 < X < 1 -C... 4(1) < Q2 < 10**5 GeV**2 -C -#include "pdf/impdp.inc" -#include "pdf/expdp.inc" - + DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DTB,DGL, - + XPDF(-6:6), X, Q, Q2 -C - X = DX - Q = DQ - Q2 = Q*Q - CALL PHLAC3(X,Q2,XPDF) -C - DDV = XPDF(1) - DUV = XPDF(2) - DDB = XPDF(-1) - DUB = XPDF(-2) - DSB = XPDF(-3) - DCB = XPDF(-4) - DBB = XPDF(-5) - DTB = XPDF(-6) - DGL = XPDF(0) -C - RETURN - END diff --git a/PDF/spdf/sfmfap.F b/PDF/spdf/sfmfap.F deleted file mode 100644 index 4415b3635ea..00000000000 --- a/PDF/spdf/sfmfap.F +++ /dev/null @@ -1,87 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:00 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:38 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFMFAP(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) -cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc -c c -c This program returns the fitted parton distributions for MRS(A') c -c c -cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc -C -#include "pdf/impdp.inc" -C - DIMENSION Z(18,8),ZZ(18),F(8) - DATA ((Z(I,K),I=1,18),K=1,4) / - +2.385035, -1.750356, 0.370491, 0.581567, 0.033300, 0.012245, - +3.925280, -0.226187, -0.062425, -0.862021, 1.178930, 0.038682, - +4.894751, -1.377950, 0.280011, 0.061201, 0.749858, 0.092008, - - +0.270620, -0.195488, 0.040248, 0.357825, 0.156226, -0.020230, - +4.339434, -0.525551, -0.016963, 6.583414, -0.366604, 1.082098, - +2.174049, 0.263928, -1.336412, 0.101026, 1.140400, -0.026956, - - +0.852604, -0.683552, 0.214748, -0.105954, -0.211982, 0.010073, - +4.305152, 0.992946, 0.019575, -1.042052, 0.027041, -0.255378, - +4.441180, -1.800216, 0.129922, 0.639220, 0.833309, -0.341173, - - +0.328730, -0.173874, 0.006988, -0.228390, 0.025648, -0.083929, - +9.748830, -0.727386, 0.397301, -1.384145, -0.538920, 0.432677, - +10.440065, -4.280664, 1.752318, -0.192712, 0.860909, -0.191209 / - - DATA ((Z(I,K),I=1,18),K=5,8) / - +0.012332, -0.002796, 0.000000, -0.205990, 0.123876, 0.070738, - +10.590572, 0.702136, -0.391293, 0.000000, 16.654520, 8.695223, - +190.873402,-92.774861,-17.858415, -1.078797,0.650973, 0.080318, - - +0.042355, -0.025763, 0.006208, -0.117133, -0.090933, -0.031820, - +8.486509, -1.178987, 0.706619, -1.478869, 0.416645, 0.202853, - +12.931922, -4.845551, 0.221202, 0.563591, 0.954011, -0.329131, - - +0.001518, 0.018562, -0.005142, -0.067847, -0.212202, 0.017218, - +5.612756, 3.786456, -2.084374, -0.140671, -3.278622, 1.815593, - +6.910856, 0.785627, -3.351047, 1.384535, -0.069658, -0.078327, - - +-0.004515, 0.013875, -0.004472, -0.146553, -0.034326, -0.043137, - +2.593083, 3.836694, -0.763188, 1.095127, -2.988716, 1.042826, - +-2.628259, 7.263671, -2.674676, 1.660073, 0.206697, -0.081092/ - - AL=0.231 - Q2=SCALE*SCALE - Q0=2. - ARG=( LOG(SCALE/AL)/ LOG(Q0/AL)) - S= LOG(ARG) - - DO 10 J=1,8 - - A=Z(1,J)+Z(2,J)*S+Z(3,J)*S*S - B=Z(4,J)+Z(5,J)*S+Z(6,J)*S*S - C=Z(7,J)+Z(8,J)*S+Z(9,J)*S*S - D=Z(10,J)+Z(11,J)*S+Z(12,J)*S*S - E=Z(13,J)+Z(14,J)*S+Z(15,J)*S*S - H=Z(16,J)+Z(17,J)*S+Z(18,J)*S*S - 10 F(J)=A*X**B*(1.-X)**C*(1.+D*SQRT(X)+E*X)*( LOG(1./X))**H - UPV=F(1) - DNV=F(2) - GLU=F(3) - DUSUM=F(4) - DUDIF=F(5) - STR=F(6) - CHM=F(7) - BOT=F(8) - DSEA=0.5D0*(DUSUM+DUDIF) - USEA=0.5D0*(DUSUM-DUDIF) - IF(Q2.LT.2.7D0) CHM=0.D0 - IF(Q2.LT.30.D0) BOT=0.D0 - IF(CHM.LT.0.D0) CHM=0.D0 - IF(BOT.LT.0.D0) BOT=0.D0 - RETURN - END diff --git a/PDF/spdf/sfmfr1.F b/PDF/spdf/sfmfr1.F deleted file mode 100644 index d32a375c066..00000000000 --- a/PDF/spdf/sfmfr1.F +++ /dev/null @@ -1,90 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE SFMFR1(X,Q2,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) -cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc -c c -c This program returns the fitted parton distributions for MRS(R1) c -c c -c Note:: The gluon fit below Q2=2 GeV2 is not reliable c -c c -cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc -C -#include "pdf/impdp.inc" -C -#include "pdf/expdp.inc" - + F(8) - REAL Z(18,8) - DATA Z/ - .1.851372, -0.519807, 0.012441, 0.633560, -0.037308, 0.015912, - .3.375911, 0.342401, -0.051574, -1.120042, 1.261935, -0.260027, - .7.269788, -3.120148, 0.333912, 0.267482, 0.294300, 0.057360, - - .0.118684, -0.026694, 0.001418, 0.309073, 0.036590, 0.020734, - .4.069154, 0.290830, -0.125778, 4.041269, 7.626688, -2.807994, - .29.897693,-22.979920, 4.180347, 0.334020, 0.330986, 0.114984, - - .9.053009, -8.482741, 2.830186, 0.053474, -0.589212, 0.144551, - .5.812161, 2.209058, 0.424067, -4.014258, 0.658552, -0.367525, - .5.807276, 0.224226, 0.154323, -0.520160, 0.182673, -0.104011, - - .0.120167, 0.167327, -0.053467, -0.054880, -0.148988, -0.048956, - .7.759331, 2.553270, -0.438661, 1.178532, -5.710315, 2.380271, - .11.895434, 0.861384, -2.528848, 0.493662, -0.073144, -0.207566, - - .0.177E-03,-0.159E-03, 0.953E-04,-0.863E+00,-0.352E+00, 0.338E+00, - .0.126E+02, 0.887E+00,-0.929E+00, 0.394E+03,-0.978E+03, 0.542E+03, - .0.236E+05, 0.358E+04,-0.137E+05,-0.326E+01,-0.248E-01, 0.973E+00, - - .0.049569, 0.044433, -0.016279, -0.105288, -0.087260, -0.050832, - .8.515981, -0.203986, 0.963570, 0.588399, -4.727176, 1.568474, - .9.610173, -1.946171, 0.998092, 0.108582, 0.643896, -0.358571, - - .0.001324, 0.020995, 0.033861, -0.116455, -0.101398, -0.054482, - .7.220589, 1.135903, 0.961005, -5.142936, 2.318274, -1.057351, - .14.319705,-10.025316, 3.619585, -0.692507, 2.084232, -1.105329, - - .-0.011228, 0.014937, -0.000135, -0.109754, -0.019479, -0.064273, - . 2.973424, 3.819107, -0.168367, -0.662015, -2.241463, 0.521234, - . 0.936045, 6.588813, -2.031513, 1.507347, 0.341242, -0.313753/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ -C - UPV= ZEROD - DNV= ZEROD - USEA=ZEROD - DSEA=ZEROD - STR= ZEROD - CHM= ZEROD - BOT= ZEROD - GLU= ZEROD - IF(X.GE.ONED) RETURN -C - AL=0.241D0 - AL2=AL*AL - Q02=ONED - ARG=( LOG(Q2/AL2)/ LOG(Q02/AL2)) - S= LOG(ARG) -C - DO 10 J=1,8 -C - A=Z(1,J)+Z(2,J)*S+Z(3,J)*S*S - B=Z(4,J)+Z(5,J)*S+Z(6,J)*S*S - C=Z(7,J)+Z(8,J)*S+Z(9,J)*S*S - D=Z(10,J)+Z(11,J)*S+Z(12,J)*S*S - E=Z(13,J)+Z(14,J)*S+Z(15,J)*S*S - H=Z(16,J)+Z(17,J)*S+Z(18,J)*S*S - 10 F(J)=A*X**B*(ONED-X)**C*(ONED+D*SQRT(X)+E*X)*( LOG(ONED/X))**H - UPV=F(1) - DNV=F(2) - GLU=F(3) - DUSUM=F(4) - DUDIF=F(5) - STR=F(6) - CHM=F(7) - BOT=F(8) - DSEA=0.5D0*(DUSUM+DUDIF) - USEA=0.5D0*(DUSUM-DUDIF) - IF(Q2.LT.2.7D0) CHM=ZEROD - IF(Q2.LT.30.D0) BOT=ZEROD - IF(CHM.LT.ZEROD) CHM=ZEROD - IF(BOT.LT.ZEROD) BOT=ZEROD - RETURN - END diff --git a/PDF/spdf/sfmfr2.F b/PDF/spdf/sfmfr2.F deleted file mode 100644 index be5c2c7ad73..00000000000 --- a/PDF/spdf/sfmfr2.F +++ /dev/null @@ -1,90 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE SFMFR2(X,Q2,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) -cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc -c c -c This program returns the fitted parton distributions for MRS(R2) c -c c -c Note:: The gluon fit below Q2=2 GeV2 is not reliable c -c c -cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc -C -#include "pdf/impdp.inc" -C -#include "pdf/expdp.inc" - + F(8) - REAL Z(18,8) - DATA Z/ - .1.840938, -0.613912, 0.069060, 0.664453, -0.047312, 0.008339, - .3.199642, 0.299148, -0.005252, -1.176342, 1.452607, -0.242739, - .7.607104, -3.009800, 0.110586, 0.305600, 0.324526, 0.004361, - - .0.116204, -0.036926, 0.005132, 0.347559, 0.044734, 0.025428, - .3.776571, 0.129517, -0.106180, 4.583171, 6.631731, -2.496486, - .29.786677,-19.577891, 3.120062, 0.410322, 0.467855, 0.101884, - - .9.333184, -8.070131, 2.146747, -0.089195, -0.436328, 0.122834, - .6.948321, -0.174262, 0.921887, -4.043493, 2.187837, -1.088141, - .7.196254, -4.912953, 2.464480, -1.359569, 0.705893, -0.012063, - - .0.083723, 0.102184, -0.032540, -0.069562, -0.107065, -0.042555, - .6.848496, 2.149966, -0.330963, 2.365100, -5.254575, 1.846434, - .11.934685, -0.271707, -1.758501, 0.554814, 0.050133, -0.160565, - - .-0.221E-04, 0.120E-04,-0.234E-05,-0.603E+00, 0.251E+00,-0.146E-01, - . 0.108E+02,-0.722E+00, 0.876E-02,-0.774E+04,-0.783E+03, 0.152E+04, - .-0.125E+06, 0.519E+05,-0.507E+04,-0.244E+01, 0.146E+01, 0.237E-01, - - .0.285E-01, 0.481E-01,-0.128E-01,-0.686E-01,-0.139E+00,-0.255E-01, - .0.694E+01, 0.204E+01,-0.290E+00, 0.105E+01,-0.445E+01, 0.154E+01, - .0.988E+01, 0.519E+00,-0.159E+01, 0.447E+00, 0.123E+00,-0.158E+00, - - .0.536E-02,-0.149E-01, 0.337E-01,-0.136E+00, 0.397E-01,-0.114E+00, - .0.459E+01, 0.333E+01,-0.115E+00,-0.309E+01, 0.189E+00,-0.109E+00, - .0.182E+02,-0.122E+02, 0.286E+01,-0.323E+00, 0.207E+01,-0.108E+01, - - .-0.111E-01, 0.134E-01,-0.146E-02,-0.130E+00,-0.157E-01,-0.418E-01, - . 0.276E+01, 0.277E+01,-0.697E-01, 0.124E+01,-0.255E+01, 0.466E+00, - .-0.125E+01, 0.581E+01,-0.154E+01, 0.148E+01, 0.353E+00,-0.196E+00/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ -C - UPV= ZEROD - DNV= ZEROD - USEA=ZEROD - DSEA=ZEROD - STR= ZEROD - CHM= ZEROD - BOT= ZEROD - GLU= ZEROD - IF(X.GE.ONED) RETURN -C - AL=0.344D0 - AL2=AL*AL - Q02=ONED - ARG=( LOG(Q2/AL2)/ LOG(Q02/AL2)) - S= LOG(ARG) -C - DO 10 J=1,8 -C - A=Z(1,J)+Z(2,J)*S+Z(3,J)*S*S - B=Z(4,J)+Z(5,J)*S+Z(6,J)*S*S - C=Z(7,J)+Z(8,J)*S+Z(9,J)*S*S - D=Z(10,J)+Z(11,J)*S+Z(12,J)*S*S - E=Z(13,J)+Z(14,J)*S+Z(15,J)*S*S - H=Z(16,J)+Z(17,J)*S+Z(18,J)*S*S - 10 F(J)=A*X**B*(ONED-X)**C*(ONED+D*SQRT(X)+E*X)*( LOG(ONED/X))**H - UPV=F(1) - DNV=F(2) - GLU=F(3) - DUSUM=F(4) - DUDIF=F(5) - STR=F(6) - CHM=F(7) - BOT=F(8) - DSEA=0.5D0*(DUSUM+DUDIF) - USEA=0.5D0*(DUSUM-DUDIF) - IF(Q2.LT.2.7D0) CHM=ZEROD - IF(Q2.LT.30.D0) BOT=ZEROD - IF(CHM.LT.ZEROD) CHM=ZEROD - IF(BOT.LT.ZEROD) BOT=ZEROD - RETURN - END diff --git a/PDF/spdf/sfmrsd0.F b/PDF/spdf/sfmrsd0.F deleted file mode 100644 index 881a5633972..00000000000 --- a/PDF/spdf/sfmrsd0.F +++ /dev/null @@ -1,3038 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:01 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:38 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFMRSD0(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) - -C THIS IS THE NEW B0-TYPE FIT "D0" WITH UBAR < DBAR (215 MeV) - -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,31),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + 0.00527, 0.00379, 4.16160, 0.42827, 0.04251, - + 0.00000, 0.23879, 0.43194, - + 0.00571, 0.00398, 10.53527, 0.59413, 0.20855, - + 0.00000, 0.40495, 0.59798, - + 0.00611, 0.00416, 18.94711, 0.81204, 0.42662, - + 0.00000, 0.62314, 0.81605, - + 0.00649, 0.00433, 29.13760, 1.07776, 0.69250, - + 0.00000, 0.88912, 1.08193, - + 0.00684, 0.00449, 40.90144, 1.38737, 1.00225, - + 0.04940, 1.19897, 1.39168, - + 0.00717, 0.00464, 54.13913, 1.73868, 1.35369, - + 0.32870, 1.55049, 1.74312, - + 0.00749, 0.00479, 68.70134, 2.12982, 1.74496, - + 0.74221, 1.94185, 2.13440/ - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ - + 0.00780, 0.00493, 84.45479, 2.55836, 2.17362, - + 1.17807, 2.37059, 2.56307, - + 0.00809, 0.00507, 101.27483, 3.02156, 2.63694, - + 1.65049, 2.83398, 3.02638, - + 0.00838, 0.00520, 119.07127, 3.51741, 3.13290, - + 2.15442, 3.33002, 3.52235, - + 0.00865, 0.00533, 137.72023, 4.04318, 3.65878, - + 2.68787, 3.85597, 4.04824, - + 0.00892, 0.00546, 156.89792, 4.59187, 4.20758, - + 3.24377, 4.40483, 4.59703, - + 0.00918, 0.00558, 176.82750, 5.16762, 4.78344, - + 3.82632, 4.98075, 5.17289, - + 0.00943, 0.00570, 197.49895, 5.77028, 5.38620, - + 4.43541, 5.58357, 5.77565/ - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,21)/ - + 0.00968, 0.00582, 218.30847, 6.38602, 6.00204, - + 5.05725, 6.19946, 6.39149, - + 0.00992, 0.00594, 239.77707, 7.02631, 6.64243, - + 5.70335, 6.83990, 7.03189, - + 0.01015, 0.00605, 261.55347, 7.68318, 7.29940, - + 6.36576, 7.49692, 7.68886, - + 0.01038, 0.00616, 283.61084, 8.35531, 7.97163, - + 7.04320, 8.16919, 8.36112, - + 0.01060, 0.00627, 306.05566, 9.04520, 8.66161, - + 7.73815, 8.85922, 9.05112, - + 0.01082, 0.00637, 328.57227, 9.74491, 9.36142, - + 8.44272, 9.55907, 9.75091, - + 0.01103, 0.00648, 351.42407, 10.46078, 10.07737, - + 9.16324, 10.27506, 10.46686/ - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=22,30)/ - + 0.01124, 0.00658, 374.33521, 11.18573, 10.80241, - + 9.89268, 11.00014, 11.19190, - + 0.01145, 0.00668, 397.39160, 11.92178, 11.53856, - + 10.63304, 11.73632, 11.92803, - + 0.01165, 0.00678, 420.68213, 12.67088, 12.28775, - + 11.38631, 12.48555, 12.67723, - + 0.01185, 0.00688, 443.76709, 13.42167, 13.03862, - + 12.14111, 13.23645, 13.42809, - + 0.01205, 0.00697, 467.31934, 14.19122, 13.80825, - + 12.91454, 14.00611, 14.19772, - + 0.01224, 0.00707, 490.44507, 14.95614, 14.57326, - + 13.68323, 14.77115, 14.96274, - + 0.01243, 0.00716, 513.82275, 15.73401, 15.35122, - + 14.46475, 15.54913, 15.74067, - + 0.01261, 0.00725, 537.37817, 16.52260, 16.13989, - + 15.25686, 16.33783, 16.52934, - + 0.01279, 0.00734, 560.48096, 17.30472, 16.92209, - + 16.04240, 17.12006, 17.31152/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + 0.00748, 0.00506, 4.03425, 0.42202, 0.03893, - + 0.00000, 0.23287, 0.42510, - + 0.00808, 0.00533, 9.59390, 0.56993, 0.18723, - + 0.00000, 0.38112, 0.57316, - + 0.00863, 0.00559, 16.63675, 0.75835, 0.37599, - + 0.00000, 0.56984, 0.76172, - + 0.00914, 0.00583, 24.91501, 0.98242, 0.60038, - + 0.00000, 0.79420, 0.98592, - + 0.00963, 0.00605, 34.24229, 1.23811, 0.85637, - + 0.04058, 1.05015, 1.24173, - + 0.01008, 0.00626, 44.52573, 1.52310, 1.14163, - + 0.26728, 1.33539, 1.52683, - + 0.01051, 0.00647, 55.63896, 1.83551, 1.45430, - + 0.59891, 1.64803, 1.83935/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ - + 0.01093, 0.00667, 67.47330, 2.17310, 1.79214, - + 0.94330, 1.98584, 2.17704, - + 0.01133, 0.00686, 79.93159, 2.53348, 2.15277, - + 1.31198, 2.34643, 2.53752, - + 0.01172, 0.00705, 92.94511, 2.91496, 2.53447, - + 1.70077, 2.72811, 2.91909, - + 0.01209, 0.00722, 106.42245, 3.31530, 2.93504, - + 2.10806, 3.12864, 3.31952, - + 0.01245, 0.00740, 120.12767, 3.72916, 3.34912, - + 2.52845, 3.54270, 3.73348, - + 0.01280, 0.00757, 134.23006, 4.15965, 3.77982, - + 2.96510, 3.97337, 4.16406, - + 0.01314, 0.00773, 148.72430, 4.60661, 4.22697, - + 3.41789, 4.42050, 4.61109/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,21)/ - + 0.01347, 0.00790, 163.17821, 5.05975, 4.68031, - + 3.87656, 4.87381, 5.06431, - + 0.01379, 0.00805, 177.97304, 5.52762, 5.14838, - + 4.34970, 5.34185, 5.53227, - + 0.01410, 0.00821, 192.86023, 6.00436, 5.62530, - + 4.83147, 5.81875, 6.00909, - + 0.01441, 0.00836, 207.82683, 6.48906, 6.11018, - + 5.32097, 6.30360, 6.49386, - + 0.01471, 0.00850, 222.95268, 6.98358, 6.60489, - + 5.82009, 6.79827, 6.98845, - + 0.01500, 0.00865, 238.01959, 7.48219, 7.10367, - + 6.32310, 7.29703, 7.48714, - + 0.01529, 0.00879, 253.21811, 7.98956, 7.61121, - + 6.83471, 7.80454, 7.99458/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=22,30)/ - + 0.01557, 0.00893, 268.35864, 8.50062, 8.12244, - + 7.34986, 8.31574, 8.50574, - + 0.01584, 0.00906, 283.50684, 9.01692, 8.63890, - + 7.87007, 8.83218, 9.02210, - + 0.01611, 0.00920, 298.72632, 9.53991, 9.16206, - + 8.39685, 9.35530, 9.54518, - + 0.01637, 0.00933, 313.72021, 10.06150, 9.68381, - + 8.92210, 9.87702, 10.06682, - + 0.01663, 0.00946, 328.95093, 10.59396, 10.21642, - + 9.45808, 10.40961, 10.59936, - + 0.01689, 0.00959, 343.81567, 11.12071, 10.74333, - + 9.98827, 10.93649, 11.12617, - + 0.01714, 0.00971, 358.77734, 11.65426, 11.27702, - + 10.52512, 11.47015, 11.65977, - + 0.01738, 0.00983, 373.78662, 12.19310, 11.81602, - + 11.06717, 12.00912, 12.19868, - + 0.01762, 0.00995, 388.42651, 12.72524, 12.34830, - + 11.60243, 12.54138, 12.73087/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + 0.01061, 0.00676, 3.91052, 0.41536, 0.03543, - + 0.00000, 0.22698, 0.41810, - + 0.01143, 0.00715, 8.73520, 0.54638, 0.16706, - + 0.00000, 0.35839, 0.54925, - + 0.01218, 0.00750, 14.60456, 0.70820, 0.32944, - + 0.00000, 0.52057, 0.71119, - + 0.01288, 0.00784, 21.29790, 0.89592, 0.51767, - + 0.00000, 0.70863, 0.89903, - + 0.01354, 0.00816, 28.65718, 1.10575, 0.72797, - + 0.03314, 0.91877, 1.10897, - + 0.01416, 0.00846, 36.60509, 1.33552, 0.95818, - + 0.21616, 1.14882, 1.33884, - + 0.01475, 0.00874, 45.04100, 1.58353, 1.20661, - + 0.48071, 1.39711, 1.58695/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ - + 0.01531, 0.00902, 53.88190, 1.84788, 1.47135, - + 0.75139, 1.66171, 1.85138, - + 0.01585, 0.00928, 63.05592, 2.12661, 1.75046, - + 1.03762, 1.94069, 2.13020, - + 0.01637, 0.00954, 72.51494, 2.41835, 2.04257, - + 1.33601, 2.23266, 2.42202, - + 0.01688, 0.00979, 82.19409, 2.72139, 2.34596, - + 1.64537, 2.53593, 2.72515, - + 0.01736, 0.01003, 91.92476, 3.03171, 2.65662, - + 1.96163, 2.84647, 3.03555, - + 0.01784, 0.01026, 101.83705, 3.35169, 2.97692, - + 2.28720, 3.16666, 3.35560, - + 0.01829, 0.01049, 111.93031, 3.68119, 3.30674, - + 2.62201, 3.49636, 3.68516/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,21)/ - + 0.01874, 0.01071, 121.89775, 4.01265, 3.63851, - + 2.95852, 3.82802, 4.01670, - + 0.01917, 0.01092, 132.01865, 4.35246, 3.97862, - + 3.30313, 4.16803, 4.35658, - + 0.01959, 0.01113, 142.11986, 4.69636, 4.32280, - + 3.65160, 4.51210, 4.70054, - + 0.02000, 0.01134, 152.19661, 5.04373, 4.67045, - + 4.00335, 4.85965, 5.04797, - + 0.02040, 0.01154, 162.30907, 5.39601, 5.02301, - + 4.35982, 5.21211, 5.40032, - + 0.02079, 0.01174, 172.30928, 5.74909, 5.37636, - + 4.71692, 5.56536, 5.75346, - + 0.02117, 0.01193, 182.33311, 6.10641, 5.73394, - + 5.07811, 5.92285, 6.11085/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=22,30)/ - + 0.02154, 0.01211, 192.25368, 6.46440, 6.09219, - + 5.43982, 6.28100, 6.46889, - + 0.02190, 0.01230, 202.11906, 6.82421, 6.45225, - + 5.80322, 6.64097, 6.82876, - + 0.02226, 0.01248, 211.97659, 7.18694, 6.81522, - + 6.16940, 7.00385, 7.19155, - + 0.02261, 0.01266, 221.62646, 7.54692, 7.17544, - + 6.53272, 7.36398, 7.55158, - + 0.02295, 0.01283, 231.38594, 7.91288, 7.54164, - + 6.90191, 7.73009, 7.91760, - + 0.02329, 0.01300, 240.84964, 8.27315, 7.90215, - + 7.26532, 8.09051, 8.27796, - + 0.02362, 0.01317, 250.33224, 8.63664, 8.26586, - + 7.63185, 8.45415, 8.64150, - + 0.02395, 0.01333, 259.80371, 9.00233, 8.63177, - + 8.00046, 8.81996, 9.00723, - + 0.02427, 0.01349, 268.98608, 9.36187, 8.99152, - + 8.36286, 9.17964, 9.36681/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + 0.01300, 0.00801, 3.83968, 0.41120, 0.03342, - + 0.00000, 0.22353, 0.41388, - + 0.01399, 0.00848, 8.26788, 0.53279, 0.15577, - + 0.00000, 0.34557, 0.53560, - + 0.01490, 0.00892, 13.53016, 0.68028, 0.30397, - + 0.00000, 0.49347, 0.68322, - + 0.01574, 0.00933, 19.42570, 0.84893, 0.47325, - + 0.00000, 0.66250, 0.85199, - + 0.01652, 0.00972, 25.81505, 1.03521, 0.66012, - + 0.02936, 0.84912, 1.03837, - + 0.01726, 0.01008, 32.63159, 1.23710, 0.86256, - + 0.19035, 1.05133, 1.24036, - + 0.01797, 0.01043, 39.78993, 1.45306, 1.07904, - + 0.42149, 1.26760, 1.45642/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ - + 0.01864, 0.01076, 47.22098, 1.68142, 1.30789, - + 0.65594, 1.49625, 1.68486, - + 0.01929, 0.01109, 54.86650, 1.92047, 1.54742, - + 0.90207, 1.73558, 1.92400, - + 0.01991, 0.01140, 62.68849, 2.16905, 1.79644, - + 1.15696, 1.98442, 2.17266, - + 0.02051, 0.01169, 70.63565, 2.42570, 2.05353, - + 1.41960, 2.24132, 2.42939, - + 0.02109, 0.01198, 78.57030, 2.68705, 2.31531, - + 1.68659, 2.50292, 2.69082, - + 0.02165, 0.01227, 86.60472, 2.95515, 2.58381, - + 1.96000, 2.77126, 2.95898, - + 0.02220, 0.01254, 94.74078, 3.22993, 2.85898, - + 2.23981, 3.04626, 3.23383/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,21)/ - + 0.02272, 0.01280, 102.72762, 3.50506, 3.13449, - + 2.51973, 3.32161, 3.50903, - + 0.02323, 0.01306, 110.79912, 3.78595, 3.41574, - + 2.80517, 3.60272, 3.78999, - + 0.02373, 0.01331, 118.81537, 4.06906, 3.69921, - + 3.09264, 3.88604, 4.07316, - + 0.02422, 0.01356, 126.77501, 4.35394, 3.98444, - + 3.38167, 4.17111, 4.35810, - + 0.02469, 0.01380, 134.72934, 4.64183, 4.27266, - + 3.67354, 4.45920, 4.64605, - + 0.02515, 0.01403, 142.56062, 4.92934, 4.56050, - + 3.96488, 4.74689, 4.93361, - + 0.02560, 0.01426, 150.38101, 5.21937, 4.85086, - + 4.25859, 5.03712, 5.22371/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=22,30)/ - + 0.02604, 0.01448, 158.08989, 5.50902, 5.14081, - + 4.55177, 5.32694, 5.51340, - + 0.02647, 0.01470, 165.72813, 5.79926, 5.43137, - + 4.84542, 5.61736, 5.80371, - + 0.02689, 0.01492, 173.33493, 6.09104, 5.72344, - + 5.14049, 5.90931, 6.09553, - + 0.02731, 0.01513, 180.75243, 6.37973, 6.01243, - + 5.43236, 6.19817, 6.38428, - + 0.02771, 0.01533, 188.23514, 6.67253, 6.30552, - + 5.72824, 6.49114, 6.67713, - + 0.02811, 0.01554, 195.46159, 6.95994, 6.59320, - + 6.01862, 6.77871, 6.96459, - + 0.02850, 0.01574, 202.68405, 7.24923, 6.88277, - + 6.31080, 7.06816, 7.25393, - + 0.02888, 0.01593, 209.87814, 7.53960, 7.17341, - + 6.60396, 7.35868, 7.54434, - + 0.02925, 0.01612, 216.82742, 7.82432, 7.45840, - + 6.89140, 7.64355, 7.82910/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + 0.01502, 0.00903, 3.79004, 0.40809, 0.03202, - + 0.00000, 0.22107, 0.41081, - + 0.01614, 0.00958, 7.95079, 0.52318, 0.14799, - + 0.00000, 0.33666, 0.52604, - + 0.01718, 0.01009, 12.81434, 0.66102, 0.28664, - + 0.00000, 0.47495, 0.66401, - + 0.01813, 0.01056, 18.19484, 0.81705, 0.44340, - + 0.00000, 0.63139, 0.82015, - + 0.01903, 0.01100, 23.96620, 0.98793, 0.61495, - + 0.02689, 0.80265, 0.99114, - + 0.01987, 0.01142, 30.06989, 1.17179, 0.79945, - + 0.17367, 0.98687, 1.17511, - + 0.02067, 0.01182, 36.43076, 1.36723, 0.99549, - + 0.38340, 1.18264, 1.37064/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ - + 0.02144, 0.01221, 42.98917, 1.57271, 1.20154, - + 0.59481, 1.38844, 1.57621, - + 0.02217, 0.01257, 49.69554, 1.78672, 1.41610, - + 0.81563, 1.60276, 1.79031, - + 0.02287, 0.01293, 56.51860, 2.00822, 1.63811, - + 1.04322, 1.82455, 2.01189, - + 0.02355, 0.01327, 63.41504, 2.23594, 1.86634, - + 1.27672, 2.05255, 2.23969, - + 0.02421, 0.01360, 70.26666, 2.46692, 2.09780, - + 1.51313, 2.28380, 2.47075, - + 0.02484, 0.01392, 77.17451, 2.70299, 2.33434, - + 1.75434, 2.52013, 2.70689, - + 0.02546, 0.01423, 84.14182, 2.94412, 2.57591, - + 2.00032, 2.76150, 2.94808/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,21)/ - + 0.02605, 0.01453, 90.95229, 3.18477, 2.81700, - + 2.24559, 3.00240, 3.18881, - + 0.02663, 0.01483, 97.81131, 3.42973, 3.06237, - + 2.49495, 3.24758, 3.43382, - + 0.02719, 0.01511, 104.59871, 3.67590, 3.30896, - + 2.74532, 3.49398, 3.68007, - + 0.02774, 0.01539, 111.31577, 3.92294, 3.55639, - + 2.99638, 3.74124, 3.92716, - + 0.02827, 0.01566, 118.00806, 4.17194, 3.80578, - + 3.24923, 3.99046, 4.17623, - + 0.02879, 0.01593, 124.57552, 4.42000, 4.05421, - + 3.50098, 4.23872, 4.42434, - + 0.02929, 0.01619, 131.11626, 4.66966, 4.30424, - + 3.75420, 4.48859, 4.67405/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=22,30)/ - + 0.02979, 0.01644, 137.54460, 4.91841, 4.55334, - + 4.00636, 4.73753, 4.92286, - + 0.03027, 0.01669, 143.89732, 5.16713, 4.80242, - + 4.25838, 4.98645, 5.17163, - + 0.03075, 0.01693, 150.20872, 5.41667, 5.05230, - + 4.51110, 5.23617, 5.42123, - + 0.03121, 0.01717, 156.34572, 5.66304, 5.29901, - + 4.76055, 5.48273, 5.66765, - + 0.03167, 0.01740, 162.52515, 5.91249, 5.54877, - + 5.01296, 5.73235, 5.91713, - + 0.03211, 0.01763, 168.47530, 6.15680, 5.79341, - + 5.26016, 5.97684, 6.16150, - + 0.03255, 0.01786, 174.41026, 6.40234, 6.03926, - + 5.50848, 6.22254, 6.40708, - + 0.03298, 0.01808, 180.31116, 6.64837, 6.28560, - + 5.75722, 6.46874, 6.65316, - + 0.03340, 0.01829, 185.99512, 6.88915, 6.52668, - + 6.00063, 6.70969, 6.89398/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + 0.01679, 0.00992, 3.75185, 0.40557, 0.03093, - + 0.00000, 0.21915, 0.40836, - + 0.01804, 0.01054, 7.71266, 0.51572, 0.14207, - + 0.00000, 0.32985, 0.51867, - + 0.01918, 0.01110, 12.28397, 0.64636, 0.27361, - + 0.00000, 0.46098, 0.64945, - + 0.02024, 0.01163, 17.29173, 0.79308, 0.42114, - + 0.00000, 0.60814, 0.79629, - + 0.02123, 0.01212, 22.62030, 0.95272, 0.58153, - + 0.02510, 0.76819, 0.95604, - + 0.02216, 0.01259, 28.21730, 1.12353, 0.75305, - + 0.16160, 0.93938, 1.12695, - + 0.02304, 0.01303, 34.01537, 1.30420, 0.93438, - + 0.35591, 1.12042, 1.30772/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ - + 0.02389, 0.01346, 39.96162, 1.49332, 1.12414, - + 0.55085, 1.30989, 1.49693, - + 0.02469, 0.01387, 46.01283, 1.68951, 1.32093, - + 0.75366, 1.50640, 1.69322, - + 0.02547, 0.01426, 52.14250, 1.89184, 1.52384, - + 0.96192, 1.70905, 1.89563, - + 0.02622, 0.01464, 58.31314, 2.09916, 1.73171, - + 1.17486, 1.91667, 2.10303, - + 0.02694, 0.01500, 64.41977, 2.30880, 1.94189, - + 1.38979, 2.12660, 2.31275, - + 0.02763, 0.01536, 70.55553, 2.52246, 2.15606, - + 1.60844, 2.34053, 2.52648, - + 0.02831, 0.01570, 76.72475, 2.74010, 2.37420, - + 1.83082, 2.55844, 2.74419/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,21)/ - + 0.02896, 0.01604, 82.73460, 2.95677, 2.59134, - + 2.05198, 2.77537, 2.96092, - + 0.02960, 0.01636, 88.77101, 3.17679, 2.81183, - + 2.27629, 2.99564, 3.18101, - + 0.03021, 0.01668, 94.72769, 3.39741, 3.03291, - + 2.50101, 3.21651, 3.40171, - + 0.03081, 0.01698, 100.60686, 3.61834, 3.25427, - + 2.72585, 3.43767, 3.62268, - + 0.03140, 0.01728, 106.45047, 3.84057, 3.47693, - + 2.95183, 3.66013, 3.84498, - + 0.03197, 0.01758, 112.17043, 4.06153, 3.69830, - + 3.17639, 3.88131, 4.06600, - + 0.03252, 0.01786, 117.85454, 4.28351, 3.92069, - + 3.40184, 4.10351, 4.28804/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=22,30)/ - + 0.03306, 0.01814, 123.42854, 4.50429, 4.14186, - + 3.62595, 4.32450, 4.50886, - + 0.03359, 0.01841, 128.92538, 4.72467, 4.36263, - + 3.84955, 4.54509, 4.72929, - + 0.03411, 0.01868, 134.37595, 4.94542, 4.58375, - + 4.07340, 4.76604, 4.95010, - + 0.03462, 0.01894, 139.66373, 5.16301, 4.80170, - + 4.29398, 4.98382, 5.16774, - + 0.03512, 0.01920, 144.98056, 5.38301, 5.02207, - + 4.51689, 5.20402, 5.38779, - + 0.03560, 0.01945, 150.08801, 5.59813, 5.23754, - + 4.73482, 5.41933, 5.60297, - + 0.03608, 0.01970, 155.17490, 5.81404, 5.45380, - + 4.95345, 5.63542, 5.81892, - + 0.03655, 0.01994, 160.22455, 6.03012, 5.67021, - + 5.17217, 5.85168, 6.03503, - + 0.03701, 0.02018, 165.07777, 6.24125, 5.88168, - + 5.38588, 6.06299, 6.24622/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + 0.02372, 0.01331, 3.63468, 0.39694, 0.02762, - + 0.00000, 0.21305, 0.40033, - + 0.02544, 0.01417, 7.01318, 0.49235, 0.12437, - + 0.00000, 0.30917, 0.49593, - + 0.02701, 0.01497, 10.76247, 0.60209, 0.23532, - + 0.00000, 0.41956, 0.60584, - + 0.02845, 0.01571, 14.74542, 0.72239, 0.35673, - + 0.00000, 0.54044, 0.72628, - + 0.02980, 0.01640, 18.87759, 0.85068, 0.48604, - + 0.02014, 0.66926, 0.85471, - + 0.03106, 0.01705, 23.12521, 0.98558, 0.62190, - + 0.12843, 0.80467, 0.98974, - + 0.03226, 0.01766, 27.44276, 1.12612, 0.76334, - + 0.28083, 0.94568, 1.13039/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ - + 0.03340, 0.01825, 31.79620, 1.27124, 0.90931, - + 0.43146, 1.09125, 1.27563, - + 0.03449, 0.01881, 36.15913, 1.41994, 1.05883, - + 0.58626, 1.24037, 1.42443, - + 0.03554, 0.01936, 40.51744, 1.57157, 1.21124, - + 0.74338, 1.39241, 1.57616, - + 0.03655, 0.01988, 44.84868, 1.72534, 1.36575, - + 0.90236, 1.54657, 1.73002, - + 0.03751, 0.02038, 49.08141, 1.87934, 1.52046, - + 1.06126, 1.70094, 1.88411, - + 0.03845, 0.02087, 53.28854, 2.03489, 1.67670, - + 1.22144, 1.85684, 2.03974, - + 0.03935, 0.02133, 57.47639, 2.19203, 1.83450, - + 1.38297, 2.01433, 2.19696/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,21)/ - + 0.04022, 0.02179, 61.51141, 2.34720, 1.99031, - + 1.54232, 2.16983, 2.35221, - + 0.04107, 0.02223, 65.52953, 2.50362, 2.14736, - + 1.70273, 2.32658, 2.50872, - + 0.04189, 0.02266, 69.45862, 2.65937, 2.30371, - + 1.86229, 2.48264, 2.66454, - + 0.04269, 0.02308, 73.30327, 2.81428, 2.45920, - + 2.02083, 2.63785, 2.81951, - + 0.04346, 0.02348, 77.09537, 2.96913, 2.61462, - + 2.17918, 2.79300, 2.97443, - + 0.04422, 0.02388, 80.77638, 3.12213, 2.76817, - + 2.33553, 2.94628, 3.12749, - + 0.04496, 0.02426, 84.40930, 3.27498, 2.92155, - + 2.49160, 3.09940, 3.28040/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=22,30)/ - + 0.04567, 0.02464, 87.94498, 3.42611, 3.07321, - + 2.64585, 3.25081, 3.43159, - + 0.04637, 0.02501, 91.40793, 3.57618, 3.22378, - + 2.79891, 3.40114, 3.58172, - + 0.04706, 0.02536, 94.82088, 3.72574, 3.37384, - + 2.95137, 3.55096, 3.73134, - + 0.04772, 0.02571, 98.10699, 3.87237, 3.52096, - + 3.10080, 3.69784, 3.87803, - + 0.04838, 0.02606, 101.39621, 4.02001, 3.66907, - + 3.25114, 3.84572, 4.02571, - + 0.04902, 0.02639, 104.53040, 4.16360, 3.81312, - + 3.39736, 3.98955, 4.16935, - + 0.04965, 0.02672, 107.63730, 4.30712, 3.95710, - + 3.54342, 4.13330, 4.31293, - + 0.05026, 0.02705, 110.70639, 4.45017, 4.10060, - + 3.68895, 4.27659, 4.45603, - + 0.05086, 0.02736, 113.63367, 4.58926, 4.24012, - + 3.83043, 4.41590, 4.59516/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + 0.03348, 0.01795, 3.51864, 0.38664, 0.02439, - + 0.00000, 0.20654, 0.39124, - + 0.03584, 0.01917, 6.36670, 0.46813, 0.10766, - + 0.00000, 0.28898, 0.47298, - + 0.03798, 0.02028, 9.40647, 0.55903, 0.20017, - + 0.00000, 0.38073, 0.56409, - + 0.03995, 0.02131, 12.53584, 0.65630, 0.29891, - + 0.00000, 0.47878, 0.66156, - + 0.04178, 0.02227, 15.69876, 0.75799, 0.40195, - + 0.01598, 0.58118, 0.76342, - + 0.04349, 0.02317, 18.87799, 0.86308, 0.50831, - + 0.10095, 0.68693, 0.86867, - + 0.04511, 0.02402, 22.04619, 0.97090, 0.61732, - + 0.21919, 0.79538, 0.97664/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ - + 0.04666, 0.02484, 25.18449, 1.08072, 0.72826, - + 0.33429, 0.90579, 1.08660, - + 0.04812, 0.02561, 28.27940, 1.19184, 0.84046, - + 0.45111, 1.01748, 1.19786, - + 0.04953, 0.02636, 31.32594, 1.30387, 0.95351, - + 0.56830, 1.13004, 1.31001, - + 0.05088, 0.02707, 34.31244, 1.41628, 1.06690, - + 0.68561, 1.24296, 1.42254, - + 0.05217, 0.02776, 37.19206, 1.52775, 1.17931, - + 0.80169, 1.35492, 1.53412, - + 0.05342, 0.02842, 40.02147, 1.63932, 1.29177, - + 0.91761, 1.46695, 1.64579, - + 0.05462, 0.02906, 42.80838, 1.75107, 1.40440, - + 1.03350, 1.57916, 1.75765/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,21)/ - + 0.05578, 0.02967, 45.46129, 1.86050, 1.51466, - + 1.14687, 1.68902, 1.86717, - + 0.05690, 0.03027, 48.07924, 1.96999, 1.62496, - + 1.26012, 1.79893, 1.97675, - + 0.05799, 0.03085, 50.61392, 2.07820, 1.73395, - + 1.37192, 1.90755, 2.08505, - + 0.05904, 0.03141, 53.07117, 2.18508, 1.84159, - + 1.48223, 2.01482, 2.19201, - + 0.06007, 0.03195, 55.47482, 2.29123, 1.94847, - + 1.59168, 2.12135, 2.29825, - + 0.06106, 0.03249, 57.78671, 2.39541, 2.05337, - + 1.69904, 2.22591, 2.40251, - + 0.06203, 0.03300, 60.05144, 2.49889, 2.15755, - + 1.80557, 2.32974, 2.50606/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=22,30)/ - + 0.06297, 0.03350, 62.23726, 2.60059, 2.25992, - + 1.91020, 2.43179, 2.60783, - + 0.06389, 0.03400, 64.36217, 2.70102, 2.36101, - + 2.01347, 2.53256, 2.70833, - + 0.06479, 0.03447, 66.44255, 2.80058, 2.46121, - + 2.11577, 2.63246, 2.80796, - + 0.06566, 0.03494, 68.42822, 2.89763, 2.55889, - + 2.21547, 2.72983, 2.90508, - + 0.06652, 0.03540, 70.40685, 2.99494, 2.65681, - + 2.31535, 2.82745, 3.00245, - + 0.06735, 0.03584, 72.27454, 3.08902, 2.75149, - + 2.41191, 2.92184, 3.09659, - + 0.06817, 0.03628, 74.11644, 3.18266, 2.84572, - + 2.50797, 3.01579, 3.19029, - + 0.06897, 0.03671, 75.92647, 3.27561, 2.93924, - + 2.60326, 3.10903, 3.28330, - + 0.06975, 0.03712, 77.63715, 3.36549, 3.02967, - + 2.69542, 3.19920, 3.37323/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + 0.04094, 0.02148, 3.45041, 0.37951, 0.02254, - + 0.00000, 0.20237, 0.38513, - + 0.04377, 0.02296, 6.00836, 0.45322, 0.09834, - + 0.00000, 0.27719, 0.45913, - + 0.04634, 0.02432, 8.67633, 0.53396, 0.18098, - + 0.00000, 0.35895, 0.54012, - + 0.04869, 0.02557, 11.37143, 0.61915, 0.26789, - + 0.00000, 0.44506, 0.62554, - + 0.05088, 0.02673, 14.05241, 0.70717, 0.35750, - + 0.01386, 0.53392, 0.71376, - + 0.05292, 0.02782, 16.71053, 0.79720, 0.44901, - + 0.08712, 0.62474, 0.80398, - + 0.05485, 0.02885, 19.32741, 0.88874, 0.54193, - + 0.18836, 0.71701, 0.89569/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ - + 0.05668, 0.02983, 21.89130, 0.98120, 0.63572, - + 0.28603, 0.81017, 0.98832, - + 0.05842, 0.03076, 24.39459, 1.07408, 0.72984, - + 0.38441, 0.90370, 1.08134, - + 0.06009, 0.03165, 26.83636, 1.16705, 0.82401, - + 0.48242, 0.99731, 1.17447, - + 0.06168, 0.03251, 29.20973, 1.25976, 0.91786, - + 0.57988, 1.09062, 1.26731, - + 0.06321, 0.03333, 31.47873, 1.35114, 1.01033, - + 0.67574, 1.18256, 1.35881, - + 0.06467, 0.03412, 33.69226, 1.44209, 1.10232, - + 0.77094, 1.27407, 1.44988, - + 0.06609, 0.03488, 35.85814, 1.53272, 1.19396, - + 0.86560, 1.36523, 1.54064/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,21)/ - + 0.06745, 0.03561, 37.90388, 1.62101, 1.28323, - + 0.95773, 1.45403, 1.62903, - + 0.06877, 0.03632, 39.91124, 1.70895, 1.37210, - + 1.04932, 1.54245, 1.71707, - + 0.07005, 0.03701, 41.84253, 1.79547, 1.45953, - + 1.13934, 1.62945, 1.80370, - + 0.07128, 0.03767, 43.70357, 1.88056, 1.54549, - + 1.22778, 1.71500, 1.88888, - + 0.07248, 0.03832, 45.51447, 1.96474, 1.63052, - + 1.31517, 1.79962, 1.97314, - + 0.07364, 0.03894, 47.24580, 2.04701, 1.71362, - + 1.40054, 1.88233, 2.05551, - + 0.07478, 0.03955, 48.93390, 2.12844, 1.79585, - + 1.48494, 1.96417, 2.13702/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=22,30)/ - + 0.07587, 0.04015, 50.55420, 2.20817, 1.87636, - + 1.56754, 2.04431, 2.21683, - + 0.07695, 0.04072, 52.12177, 2.28663, 1.95557, - + 1.64877, 2.12316, 2.29537, - + 0.07799, 0.04129, 53.64992, 2.36417, 2.03385, - + 1.72898, 2.20108, 2.37298, - + 0.07900, 0.04184, 55.09999, 2.43948, 2.10989, - + 1.80689, 2.27677, 2.44837, - + 0.08000, 0.04237, 56.54097, 2.51479, 2.18590, - + 1.88470, 2.35245, 2.52375, - + 0.08097, 0.04289, 57.89229, 2.58734, 2.25914, - + 1.95968, 2.42535, 2.59637, - + 0.08191, 0.04341, 59.22070, 2.65936, 2.33183, - + 2.03406, 2.49772, 2.66846, - + 0.08284, 0.04391, 60.52168, 2.73066, 2.40379, - + 2.10765, 2.56937, 2.73982, - + 0.08374, 0.04439, 61.74344, 2.79937, 2.47314, - + 2.17859, 2.63840, 2.80859/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + 0.04721, 0.02447, 3.40138, 0.37379, 0.02125, - + 0.00000, 0.19914, 0.38028, - + 0.05043, 0.02618, 5.76094, 0.44213, 0.09194, - + 0.00000, 0.26874, 0.44894, - + 0.05334, 0.02774, 8.18133, 0.51603, 0.16796, - + 0.00000, 0.34378, 0.52312, - + 0.05602, 0.02918, 10.59270, 0.59322, 0.24707, - + 0.00000, 0.42200, 0.60056, - + 0.05849, 0.03051, 12.96355, 0.67228, 0.32790, - + 0.01249, 0.50201, 0.67984, - + 0.06080, 0.03175, 15.29050, 0.75256, 0.40983, - + 0.07818, 0.58317, 0.76033, - + 0.06298, 0.03292, 17.56081, 0.83364, 0.49246, - + 0.16852, 0.66507, 0.84160/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ - + 0.06504, 0.03404, 19.76703, 0.91505, 0.57534, - + 0.25510, 0.74726, 0.92319, - + 0.06700, 0.03510, 21.90514, 0.99638, 0.65806, - + 0.34183, 0.82932, 1.00468, - + 0.06887, 0.03611, 23.97650, 1.07738, 0.74039, - + 0.42779, 0.91103, 1.08584, - + 0.07066, 0.03708, 25.97701, 1.15777, 0.82204, - + 0.51286, 0.99210, 1.16638, - + 0.07237, 0.03800, 27.87729, 1.23666, 0.90214, - + 0.59616, 1.07162, 1.24541, - + 0.07402, 0.03890, 29.72107, 1.31486, 0.98150, - + 0.67854, 1.15043, 1.32374, - + 0.07561, 0.03976, 31.51622, 1.39250, 1.06025, - + 0.76015, 1.22866, 1.40150/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,21)/ - + 0.07713, 0.04058, 33.20169, 1.46783, 1.13666, - + 0.83926, 1.30456, 1.47695, - + 0.07860, 0.04138, 34.84850, 1.54261, 1.21248, - + 0.91765, 1.37989, 1.55184, - + 0.08003, 0.04215, 36.42523, 1.61595, 1.28682, - + 0.99443, 1.45375, 1.62529, - + 0.08140, 0.04290, 37.93759, 1.68783, 1.35967, - + 1.06963, 1.52614, 1.69727, - + 0.08274, 0.04363, 39.40340, 1.75874, 1.43152, - + 1.14371, 1.59755, 1.76828, - + 0.08403, 0.04433, 40.79820, 1.82784, 1.50153, - + 1.21585, 1.66712, 1.83747, - + 0.08529, 0.04501, 42.15338, 1.89604, 1.57062, - + 1.28699, 1.73579, 1.90577/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=22,30)/ - + 0.08651, 0.04568, 43.44849, 1.96264, 1.63807, - + 1.35642, 1.80283, 1.97245, - + 0.08770, 0.04632, 44.69672, 2.02800, 1.70427, - + 1.42452, 1.86864, 2.03790, - + 0.08886, 0.04695, 45.90965, 2.09245, 1.76953, - + 1.49161, 1.93351, 2.10243, - + 0.08999, 0.04756, 47.05519, 2.15487, 1.83275, - + 1.55658, 1.99635, 2.16492, - + 0.09109, 0.04816, 48.19124, 2.21718, 1.89583, - + 1.62137, 2.05906, 2.22731, - + 0.09216, 0.04874, 49.25096, 2.27703, 1.95644, - + 1.68361, 2.11930, 2.28723, - + 0.09321, 0.04931, 50.29021, 2.33634, 2.01648, - + 1.74525, 2.17899, 2.34661, - + 0.09423, 0.04987, 51.30533, 2.39493, 2.07580, - + 1.80610, 2.23797, 2.40527, - + 0.09523, 0.05041, 52.25362, 2.45125, 2.13282, - + 1.86462, 2.29465, 2.46165/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + 0.05270, 0.02722, 3.36230, 0.36877, 0.02027, - + 0.00000, 0.19627, 0.37590, - + 0.05625, 0.02913, 5.56861, 0.43306, 0.08712, - + 0.00000, 0.26193, 0.44052, - + 0.05946, 0.03087, 7.80073, 0.50185, 0.15822, - + 0.00000, 0.33196, 0.50962, - + 0.06241, 0.03247, 9.99926, 0.57310, 0.23157, - + 0.00000, 0.40433, 0.58113, - + 0.06512, 0.03394, 12.14047, 0.64557, 0.30598, - + 0.01149, 0.47783, 0.65384, - + 0.06765, 0.03531, 14.22458, 0.71871, 0.38091, - + 0.07165, 0.55192, 0.72719, - + 0.07004, 0.03661, 16.24274, 0.79216, 0.45604, - + 0.15405, 0.62626, 0.80084/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ - + 0.07229, 0.03784, 18.19061, 0.86555, 0.53102, - + 0.23259, 0.70049, 0.87442, - + 0.07444, 0.03901, 20.06685, 0.93851, 0.60550, - + 0.31091, 0.77426, 0.94755, - + 0.07648, 0.04012, 21.87428, 1.01089, 0.67931, - + 0.38818, 0.84739, 1.02009, - + 0.07843, 0.04119, 23.60918, 1.08244, 0.75223, - + 0.46437, 0.91966, 1.09179, - + 0.08030, 0.04221, 25.24994, 1.15240, 0.82350, - + 0.53871, 0.99032, 1.16190, - + 0.08209, 0.04318, 26.83463, 1.22151, 0.89386, - + 0.61195, 1.06008, 1.23114, - + 0.08382, 0.04413, 28.37086, 1.28987, 0.96344, - + 0.68425, 1.12909, 1.29964/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,21)/ - + 0.08547, 0.04503, 29.80495, 1.35602, 1.03075, - + 0.75415, 1.19584, 1.36591, - + 0.08707, 0.04590, 31.20174, 1.42152, 1.09736, - + 0.82322, 1.26192, 1.43151, - + 0.08861, 0.04675, 32.53477, 1.48557, 1.16249, - + 0.89069, 1.32654, 1.49568, - + 0.09010, 0.04756, 33.80771, 1.54818, 1.22614, - + 0.95657, 1.38969, 1.55838, - + 0.09155, 0.04835, 35.03682, 1.60977, 1.28875, - + 1.02131, 1.45182, 1.62008, - + 0.09295, 0.04912, 36.20123, 1.66965, 1.34961, - + 1.08421, 1.51221, 1.68005, - + 0.09431, 0.04986, 37.32884, 1.72862, 1.40954, - + 1.14610, 1.57168, 1.73912/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=22,30)/ - + 0.09563, 0.05058, 38.40320, 1.78606, 1.46790, - + 1.20635, 1.62960, 1.79665, - + 0.09691, 0.05128, 39.43581, 1.84231, 1.52505, - + 1.26530, 1.68632, 1.85298, - + 0.09816, 0.05196, 40.43611, 1.89768, 1.58129, - + 1.32329, 1.74214, 1.90843, - + 0.09937, 0.05263, 41.37621, 1.95122, 1.63568, - + 1.37936, 1.79613, 1.96204, - + 0.10056, 0.05327, 42.30707, 2.00459, 1.68988, - + 1.43519, 1.84993, 2.01549, - + 0.10172, 0.05390, 43.17253, 2.05564, 1.74175, - + 1.48862, 1.90141, 2.06662, - + 0.10285, 0.05452, 44.01979, 2.10615, 1.79304, - + 1.54144, 1.95232, 2.11720, - + 0.10395, 0.05512, 44.84526, 2.15598, 1.84365, - + 1.59351, 2.00256, 2.16710, - + 0.10502, 0.05570, 45.61142, 2.20382, 1.89225, - + 1.64354, 2.05079, 2.21501/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + 0.07422, 0.03828, 3.23663, 0.35033, 0.01729, - + 0.00000, 0.18624, 0.36003, - + 0.07902, 0.04095, 4.99249, 0.40250, 0.07280, - + 0.00000, 0.24019, 0.41260, - + 0.08333, 0.04336, 6.69249, 0.45651, 0.12980, - + 0.00000, 0.29580, 0.46695, - + 0.08725, 0.04556, 8.30627, 0.51096, 0.18696, - + 0.00000, 0.35169, 0.52171, - + 0.09086, 0.04757, 9.82916, 0.56509, 0.24357, - + 0.00872, 0.40713, 0.57611, - + 0.09420, 0.04944, 11.27110, 0.61864, 0.29942, - + 0.05382, 0.46189, 0.62990, - + 0.09734, 0.05119, 12.63316, 0.67146, 0.35439, - + 0.11480, 0.51585, 0.68294/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ - + 0.10029, 0.05284, 13.91819, 0.72339, 0.40834, - + 0.17189, 0.56885, 0.73508, - + 0.10308, 0.05440, 15.13035, 0.77425, 0.46112, - + 0.22797, 0.62072, 0.78613, - + 0.10574, 0.05588, 16.27565, 0.82402, 0.51270, - + 0.28256, 0.67144, 0.83607, - + 0.10826, 0.05729, 17.35497, 0.87259, 0.56299, - + 0.33568, 0.72091, 0.88481, - + 0.11066, 0.05863, 18.35672, 0.91950, 0.61155, - + 0.38689, 0.76868, 0.93187, - + 0.11297, 0.05990, 19.30920, 0.96532, 0.65894, - + 0.43678, 0.81533, 0.97783, - + 0.11517, 0.06113, 20.21938, 1.01019, 0.70532, - + 0.48551, 0.86099, 1.02284/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,21)/ - + 0.11728, 0.06230, 21.05333, 1.05312, 0.74971, - + 0.53213, 0.90468, 1.06590, - + 0.11931, 0.06343, 21.85579, 1.09525, 0.79323, - + 0.57778, 0.94754, 1.10814, - + 0.12127, 0.06452, 22.61040, 1.13607, 0.83539, - + 0.62196, 0.98906, 1.14908, - + 0.12315, 0.06556, 23.32080, 1.17561, 0.87623, - + 0.66472, 1.02927, 1.18872, - + 0.12498, 0.06657, 23.99844, 1.21419, 0.91607, - + 0.70639, 1.06851, 1.22740, - + 0.12673, 0.06754, 24.63080, 1.25138, 0.95446, - + 0.74655, 1.10632, 1.26468, - + 0.12844, 0.06849, 25.23645, 1.28774, 0.99199, - + 0.78578, 1.14329, 1.30113/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=22,30)/ - + 0.13008, 0.06940, 25.80553, 1.32286, 1.02826, - + 0.82366, 1.17900, 1.33635, - + 0.13168, 0.07028, 26.34595, 1.35702, 1.06351, - + 0.86048, 1.21373, 1.37058, - + 0.13323, 0.07114, 26.86412, 1.39041, 1.09799, - + 0.89645, 1.24768, 1.40406, - + 0.13473, 0.07197, 27.34312, 1.42245, 1.13106, - + 0.93098, 1.28026, 1.43617, - + 0.13620, 0.07278, 27.81493, 1.45422, 1.16386, - + 0.96517, 1.31256, 1.46802, - + 0.13762, 0.07356, 28.24525, 1.48436, 1.19498, - + 0.99764, 1.34320, 1.49822, - + 0.13901, 0.07432, 28.66350, 1.51401, 1.22560, - + 1.02957, 1.37336, 1.52795, - + 0.14037, 0.07506, 29.06752, 1.54312, 1.25565, - + 1.06088, 1.40296, 1.55713, - + 0.14168, 0.07578, 29.43488, 1.57083, 1.28428, - + 1.09073, 1.43114, 1.58489/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + 0.10473, 0.05511, 3.09838, 0.32584, 0.01445, - + 0.00001, 0.17338, 0.33882, - + 0.11111, 0.05877, 4.43612, 0.36668, 0.05953, - + 0.00001, 0.21646, 0.38009, - + 0.11681, 0.06204, 5.67029, 0.40748, 0.10410, - + 0.00002, 0.25925, 0.42124, - + 0.12194, 0.06497, 6.79476, 0.44739, 0.14739, - + 0.00001, 0.30093, 0.46147, - + 0.12662, 0.06765, 7.81793, 0.48607, 0.18917, - + 0.00644, 0.34124, 0.50042, - + 0.13094, 0.07010, 8.75642, 0.52349, 0.22944, - + 0.03926, 0.38015, 0.53808, - + 0.13497, 0.07238, 9.61720, 0.55967, 0.26827, - + 0.08300, 0.41771, 0.57447/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ - + 0.13873, 0.07452, 10.40764, 0.59458, 0.30567, - + 0.12315, 0.45391, 0.60957, - + 0.14227, 0.07652, 11.13506, 0.62819, 0.34163, - + 0.16194, 0.48874, 0.64336, - + 0.14562, 0.07840, 11.80638, 0.66057, 0.37624, - + 0.19913, 0.52229, 0.67591, - + 0.14879, 0.08018, 12.42450, 0.69172, 0.40949, - + 0.23481, 0.55453, 0.70720, - + 0.15177, 0.08186, 12.98358, 0.72134, 0.44110, - + 0.26870, 0.58518, 0.73694, - + 0.15462, 0.08346, 13.50563, 0.74992, 0.47158, - + 0.30132, 0.61474, 0.76564, - + 0.15735, 0.08498, 13.99638, 0.77759, 0.50109, - + 0.33284, 0.64336, 0.79344/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,21)/ - + 0.15994, 0.08643, 14.43365, 0.80370, 0.52893, - + 0.36260, 0.67036, 0.81964, - + 0.16243, 0.08781, 14.84781, 0.82905, 0.55595, - + 0.39144, 0.69658, 0.84510, - + 0.16480, 0.08913, 15.22944, 0.85335, 0.58185, - + 0.41907, 0.72170, 0.86949, - + 0.16709, 0.09040, 15.58145, 0.87661, 0.60667, - + 0.44553, 0.74576, 0.89284, - + 0.16930, 0.09161, 15.91156, 0.89909, 0.63064, - + 0.47108, 0.76901, 0.91541, - + 0.17141, 0.09278, 16.21295, 0.92053, 0.65352, - + 0.49547, 0.79118, 0.93693, - + 0.17345, 0.09390, 16.49730, 0.94133, 0.67571, - + 0.51910, 0.81270, 0.95779/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=22,30)/ - + 0.17542, 0.09498, 16.75845, 0.96122, 0.69696, - + 0.54173, 0.83328, 0.97775, - + 0.17732, 0.09603, 17.00165, 0.98040, 0.71745, - + 0.56354, 0.85313, 0.99699, - + 0.17916, 0.09703, 17.23123, 0.99900, 0.73731, - + 0.58469, 0.87238, 1.01565, - + 0.18093, 0.09800, 17.43752, 1.01662, 0.75616, - + 0.60477, 0.89063, 1.03333, - + 0.18267, 0.09895, 17.63954, 1.03402, 0.77474, - + 0.62454, 0.90863, 1.05077, - + 0.18432, 0.09986, 17.81783, 1.05034, 0.79222, - + 0.64317, 0.92554, 1.06714, - + 0.18594, 0.10074, 17.98932, 1.06631, 0.80932, - + 0.66139, 0.94209, 1.08316, - + 0.18751, 0.10161, 18.15286, 1.08189, 0.82600, - + 0.67913, 0.95823, 1.09878, - + 0.18903, 0.10243, 18.29572, 1.09652, 0.84170, - + 0.69587, 0.97340, 1.11345/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + 0.12833, 0.06885, 3.00716, 0.30809, 0.01284, - + 0.00001, 0.16427, 0.32334, - + 0.13580, 0.07317, 4.11661, 0.34266, 0.05219, - + 0.00001, 0.20136, 0.35834, - + 0.14241, 0.07698, 5.10886, 0.37642, 0.09018, - + 0.00002, 0.23733, 0.39242, - + 0.14835, 0.08039, 5.98858, 0.40881, 0.12637, - + 0.00001, 0.27170, 0.42509, - + 0.15372, 0.08347, 6.77038, 0.43969, 0.16069, - + 0.00529, 0.30436, 0.45622, - + 0.15866, 0.08627, 7.47185, 0.46911, 0.19330, - + 0.03206, 0.33543, 0.48585, - + 0.16322, 0.08887, 8.10256, 0.49718, 0.22431, - + 0.06741, 0.36502, 0.51411/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ - + 0.16748, 0.09127, 8.67050, 0.52395, 0.25383, - + 0.09947, 0.39322, 0.54104, - + 0.17147, 0.09351, 9.18309, 0.54943, 0.28190, - + 0.13013, 0.42003, 0.56666, - + 0.17522, 0.09562, 9.64813, 0.57370, 0.30862, - + 0.15920, 0.44556, 0.59107, - + 0.17877, 0.09758, 10.07095, 0.59683, 0.33406, - + 0.18685, 0.46988, 0.61434, - + 0.18210, 0.09944, 10.44525, 0.61857, 0.35800, - + 0.21285, 0.49275, 0.63617, - + 0.18525, 0.10119, 10.78880, 0.63937, 0.38088, - + 0.23768, 0.51461, 0.65707, - + 0.18827, 0.10286, 11.10668, 0.65936, 0.40285, - + 0.26149, 0.53561, 0.67715/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,21)/ - + 0.19111, 0.10443, 11.38490, 0.67805, 0.42344, - + 0.28381, 0.55528, 0.69591, - + 0.19383, 0.10593, 11.64480, 0.69607, 0.44328, - + 0.30530, 0.57423, 0.71400, - + 0.19644, 0.10736, 11.87941, 0.71317, 0.46214, - + 0.32572, 0.59222, 0.73117, - + 0.19892, 0.10871, 12.09259, 0.72944, 0.48008, - + 0.34516, 0.60934, 0.74750, - + 0.20129, 0.11002, 12.29009, 0.74507, 0.49733, - + 0.36383, 0.62580, 0.76318, - + 0.20357, 0.11126, 12.46622, 0.75986, 0.51367, - + 0.38153, 0.64137, 0.77801, - + 0.20578, 0.11245, 12.62989, 0.77410, 0.52942, - + 0.39859, 0.65638, 0.79231/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=22,30)/ - + 0.20789, 0.11360, 12.77680, 0.78762, 0.54439, - + 0.41480, 0.67063, 0.80586, - + 0.20993, 0.11469, 12.91090, 0.80054, 0.55871, - + 0.43033, 0.68426, 0.81882, - + 0.21189, 0.11575, 13.03596, 0.81301, 0.57255, - + 0.44532, 0.69743, 0.83132, - + 0.21378, 0.11677, 13.14549, 0.82475, 0.58561, - + 0.45948, 0.70983, 0.84309, - + 0.21562, 0.11776, 13.25240, 0.83630, 0.59844, - + 0.47339, 0.72203, 0.85468, - + 0.21737, 0.11870, 13.34136, 0.84702, 0.61041, - + 0.48640, 0.73338, 0.86543, - + 0.21908, 0.11961, 13.42575, 0.85748, 0.62207, - + 0.49906, 0.74445, 0.87591, - + 0.22075, 0.12049, 13.50519, 0.86762, 0.63340, - + 0.51135, 0.75520, 0.88608, - + 0.22235, 0.12133, 13.57122, 0.87704, 0.64397, - + 0.52286, 0.76519, 0.89552/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + 0.14842, 0.08094, 2.93523, 0.29368, 0.01171, - + 0.00000, 0.15694, 0.31069, - + 0.15670, 0.08573, 3.89003, 0.32399, 0.04717, - + 0.00001, 0.18993, 0.34137, - + 0.16400, 0.08992, 4.72379, 0.35307, 0.08079, - + 0.00002, 0.22136, 0.37073, - + 0.17050, 0.09365, 5.44750, 0.38054, 0.11233, - + 0.00001, 0.25094, 0.39846, - + 0.17638, 0.09699, 6.07836, 0.40640, 0.14188, - + 0.00456, 0.27870, 0.42452, - + 0.18174, 0.10002, 6.63456, 0.43075, 0.16962, - + 0.02749, 0.30479, 0.44905, - + 0.18668, 0.10280, 7.12632, 0.45375, 0.19575, - + 0.05758, 0.32939, 0.47219/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ - + 0.19127, 0.10536, 7.56207, 0.47546, 0.22038, - + 0.08459, 0.35260, 0.49403, - + 0.19555, 0.10774, 7.94926, 0.49594, 0.24360, - + 0.11022, 0.37448, 0.51462, - + 0.19955, 0.10997, 8.29526, 0.51528, 0.26553, - + 0.13435, 0.39514, 0.53406, - + 0.20335, 0.11203, 8.60525, 0.53355, 0.28625, - + 0.15713, 0.41467, 0.55245, - + 0.20687, 0.11397, 8.87474, 0.55059, 0.30560, - + 0.17839, 0.43288, 0.56954, - + 0.21021, 0.11580, 9.11866, 0.56677, 0.32397, - + 0.19858, 0.45017, 0.58578, - + 0.21339, 0.11753, 9.34149, 0.58222, 0.34151, - + 0.21783, 0.46668, 0.60131/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,21)/ - + 0.21637, 0.11915, 9.53218, 0.59654, 0.35783, - + 0.23576, 0.48202, 0.61567, - + 0.21923, 0.12070, 9.70818, 0.61027, 0.37347, - + 0.25293, 0.49672, 0.62944, - + 0.22196, 0.12216, 9.86408, 0.62322, 0.38825, - + 0.26916, 0.51058, 0.64242, - + 0.22454, 0.12355, 10.00307, 0.63545, 0.40223, - + 0.28453, 0.52370, 0.65468, - + 0.22701, 0.12488, 10.12982, 0.64714, 0.41560, - + 0.29922, 0.53624, 0.66639, - + 0.22937, 0.12613, 10.24010, 0.65810, 0.42820, - + 0.31308, 0.54802, 0.67739, - + 0.23164, 0.12734, 10.34095, 0.66862, 0.44029, - + 0.32638, 0.55933, 0.68793/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=22,30)/ - + 0.23382, 0.12848, 10.42904, 0.67853, 0.45171, - + 0.33896, 0.57000, 0.69785, - + 0.23591, 0.12958, 10.50754, 0.68795, 0.46259, - + 0.35095, 0.58015, 0.70728, - + 0.23792, 0.13065, 10.57941, 0.69700, 0.47305, - + 0.36248, 0.58991, 0.71634, - + 0.23985, 0.13166, 10.63970, 0.70544, 0.48287, - + 0.37332, 0.59904, 0.72479, - + 0.24172, 0.13264, 10.69840, 0.71373, 0.49249, - + 0.38394, 0.60800, 0.73310, - + 0.24351, 0.13356, 10.74357, 0.72136, 0.50141, - + 0.39381, 0.61628, 0.74073, - + 0.24524, 0.13446, 10.78568, 0.72877, 0.51007, - + 0.40340, 0.62431, 0.74814, - + 0.24693, 0.13533, 10.82440, 0.73592, 0.51845, - + 0.41267, 0.63209, 0.75531, - + 0.24854, 0.13615, 10.85329, 0.74250, 0.52621, - + 0.42130, 0.63925, 0.76188/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + 0.16625, 0.09189, 2.87405, 0.28147, 0.01087, - + 0.00002, 0.15075, 0.29988, - + 0.17519, 0.09702, 3.71353, 0.30857, 0.04339, - + 0.00004, 0.18066, 0.32730, - + 0.18301, 0.10148, 4.43213, 0.33417, 0.07378, - + 0.00004, 0.20874, 0.35315, - + 0.18994, 0.10542, 5.04488, 0.35811, 0.10196, - + 0.00005, 0.23485, 0.37730, - + 0.19618, 0.10892, 5.56980, 0.38035, 0.12806, - + 0.00407, 0.25906, 0.39970, - + 0.20186, 0.11209, 6.02571, 0.40111, 0.15236, - + 0.02427, 0.28163, 0.42059, - + 0.20705, 0.11499, 6.42270, 0.42053, 0.17503, - + 0.05062, 0.30270, 0.44011/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ - + 0.21187, 0.11765, 6.76965, 0.43870, 0.19625, - + 0.07410, 0.32242, 0.45838, - + 0.21635, 0.12010, 7.07351, 0.45572, 0.21611, - + 0.09623, 0.34089, 0.47547, - + 0.22052, 0.12237, 7.34112, 0.47167, 0.23474, - + 0.11693, 0.35820, 0.49148, - + 0.22444, 0.12451, 7.57773, 0.48664, 0.25223, - + 0.13638, 0.37445, 0.50649, - + 0.22809, 0.12647, 7.77856, 0.50049, 0.26847, - + 0.15443, 0.38950, 0.52039, - + 0.23154, 0.12831, 7.95835, 0.51355, 0.28380, - + 0.17146, 0.40370, 0.53349, - + 0.23481, 0.13006, 8.12101, 0.52592, 0.29834, - + 0.18761, 0.41717, 0.54590/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,21)/ - + 0.23789, 0.13168, 8.25623, 0.53733, 0.31181, - + 0.20260, 0.42961, 0.55734, - + 0.24083, 0.13322, 8.37978, 0.54821, 0.32466, - + 0.21690, 0.44149, 0.56825, - + 0.24360, 0.13468, 8.48748, 0.55841, 0.33675, - + 0.23035, 0.45264, 0.57846, - + 0.24623, 0.13605, 8.58109, 0.56799, 0.34814, - + 0.24303, 0.46312, 0.58804, - + 0.24874, 0.13736, 8.66466, 0.57709, 0.35897, - + 0.25511, 0.47309, 0.59715, - + 0.25112, 0.13861, 8.73475, 0.58557, 0.36910, - + 0.26643, 0.48239, 0.60562, - + 0.25340, 0.13980, 8.79738, 0.59365, 0.37878, - + 0.27724, 0.49127, 0.61368/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=22,30)/ - + 0.25558, 0.14093, 8.85025, 0.60121, 0.38790, - + 0.28745, 0.49961, 0.62124, - + 0.25769, 0.14199, 8.89589, 0.60837, 0.39657, - + 0.29715, 0.50752, 0.62839, - + 0.25972, 0.14301, 8.93644, 0.61522, 0.40486, - + 0.30644, 0.51510, 0.63523, - + 0.26163, 0.14399, 8.96776, 0.62155, 0.41259, - + 0.31514, 0.52212, 0.64154, - + 0.26350, 0.14494, 8.99820, 0.62775, 0.42015, - + 0.32364, 0.52900, 0.64774, - + 0.26527, 0.14583, 9.01810, 0.63340, 0.42712, - + 0.33150, 0.53530, 0.65338, - + 0.26699, 0.14670, 9.03593, 0.63887, 0.43387, - + 0.33912, 0.54140, 0.65884, - + 0.26865, 0.14753, 9.05144, 0.64414, 0.44038, - + 0.34647, 0.54729, 0.66410, - + 0.27024, 0.14832, 9.05952, 0.64892, 0.44636, - + 0.35327, 0.55267, 0.66886/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + 0.23766, 0.13666, 2.63988, 0.23755, 0.00824, - + 0.00002, 0.12854, 0.26022, - + 0.24833, 0.14241, 3.14831, 0.25534, 0.03209, - + 0.00002, 0.14938, 0.27803, - + 0.25744, 0.14729, 3.55181, 0.27126, 0.05330, - + 0.00002, 0.16796, 0.29394, - + 0.26538, 0.15146, 3.87172, 0.28545, 0.07218, - + 0.00003, 0.18449, 0.30805, - + 0.27239, 0.15507, 4.12722, 0.29806, 0.08902, - + 0.00267, 0.19920, 0.32063, - + 0.27865, 0.15826, 4.33458, 0.30939, 0.10419, - + 0.01563, 0.21244, 0.33190, - + 0.28430, 0.16109, 4.50271, 0.31961, 0.11794, - + 0.03224, 0.22441, 0.34204/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ - + 0.28945, 0.16362, 4.63925, 0.32883, 0.13046, - + 0.04665, 0.23526, 0.35119, - + 0.29414, 0.16592, 4.74971, 0.33718, 0.14187, - + 0.05990, 0.24512, 0.35945, - + 0.29844, 0.16802, 4.83951, 0.34477, 0.15231, - + 0.07203, 0.25412, 0.36693, - + 0.30241, 0.16991, 4.91107, 0.35167, 0.16189, - + 0.08320, 0.26234, 0.37375, - + 0.30607, 0.17163, 4.96508, 0.35783, 0.17058, - + 0.09335, 0.26974, 0.37982, - + 0.30945, 0.17322, 5.00830, 0.36348, 0.17863, - + 0.10277, 0.27656, 0.38537, - + 0.31261, 0.17470, 5.04307, 0.36872, 0.18613, - + 0.11157, 0.28290, 0.39050/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,21)/ - + 0.31555, 0.17602, 5.06363, 0.37333, 0.19289, - + 0.11955, 0.28856, 0.39501, - + 0.31832, 0.17725, 5.07962, 0.37762, 0.19924, - + 0.12706, 0.29386, 0.39921, - + 0.32089, 0.17838, 5.08904, 0.38151, 0.20510, - + 0.13400, 0.29871, 0.40301, - + 0.32330, 0.17943, 5.09243, 0.38503, 0.21050, - + 0.14044, 0.30315, 0.40644, - + 0.32559, 0.18042, 5.09199, 0.38828, 0.21554, - + 0.14649, 0.30728, 0.40960, - + 0.32771, 0.18133, 5.08591, 0.39121, 0.22018, - + 0.15207, 0.31103, 0.41241, - + 0.32970, 0.18220, 5.07732, 0.39393, 0.22454, - + 0.15734, 0.31454, 0.41502/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=22,30)/ - + 0.33160, 0.18299, 5.06549, 0.39636, 0.22857, - + 0.16224, 0.31775, 0.41736, - + 0.33341, 0.18372, 5.05158, 0.39857, 0.23233, - + 0.16682, 0.32072, 0.41948, - + 0.33513, 0.18441, 5.03616, 0.40062, 0.23588, - + 0.17115, 0.32350, 0.42146, - + 0.33673, 0.18504, 5.01697, 0.40242, 0.23910, - + 0.17513, 0.32599, 0.42317, - + 0.33828, 0.18565, 4.99847, 0.40417, 0.24224, - + 0.17899, 0.32841, 0.42484, - + 0.33970, 0.18620, 4.97611, 0.40565, 0.24504, - + 0.18251, 0.33052, 0.42622, - + 0.34106, 0.18674, 4.95381, 0.40704, 0.24773, - + 0.18588, 0.33254, 0.42752, - + 0.34238, 0.18725, 4.93141, 0.40835, 0.25029, - + 0.18910, 0.33445, 0.42874, - + 0.34360, 0.18770, 4.90650, 0.40940, 0.25256, - + 0.19200, 0.33609, 0.42970/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + 0.34080, 0.19974, 2.29970, 0.18609, 0.00562, - + -0.00010, 0.10205, 0.21102, - + 0.35150, 0.20429, 2.52765, 0.19563, 0.02148, - + -0.00010, 0.11465, 0.22015, - + 0.36030, 0.20789, 2.68473, 0.20352, 0.03480, - + -0.00009, 0.12513, 0.22754, - + 0.36760, 0.21074, 2.79061, 0.20996, 0.04607, - + -0.00009, 0.13391, 0.23364, - + 0.37377, 0.21305, 2.86036, 0.21529, 0.05568, - + 0.00143, 0.14127, 0.23857, - + 0.37907, 0.21496, 2.90528, 0.21973, 0.06398, - + 0.00888, 0.14755, 0.24263, - + 0.38369, 0.21650, 2.93107, 0.22342, 0.07124, - + 0.01821, 0.15295, 0.24599/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ - + 0.38767, 0.21778, 2.94251, 0.22654, 0.07760, - + 0.02604, 0.15759, 0.24876, - + 0.39116, 0.21886, 2.94313, 0.22915, 0.08322, - + 0.03305, 0.16161, 0.25101, - + 0.39430, 0.21971, 2.93589, 0.23128, 0.08820, - + 0.03930, 0.16509, 0.25284, - + 0.39703, 0.22042, 2.92219, 0.23307, 0.09262, - + 0.04491, 0.16811, 0.25433, - + 0.39948, 0.22092, 2.90245, 0.23442, 0.09647, - + 0.04987, 0.17068, 0.25545, - + 0.40162, 0.22136, 2.87990, 0.23557, 0.09993, - + 0.05437, 0.17292, 0.25635, - + 0.40351, 0.22176, 2.85557, 0.23655, 0.10308, - + 0.05850, 0.17492, 0.25707/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,21)/ - + 0.40518, 0.22197, 2.82720, 0.23718, 0.10578, - + 0.06212, 0.17652, 0.25746, - + 0.40672, 0.22214, 2.79854, 0.23769, 0.10827, - + 0.06545, 0.17795, 0.25775, - + 0.40809, 0.22223, 2.76844, 0.23802, 0.11049, - + 0.06844, 0.17919, 0.25787, - + 0.40928, 0.22227, 2.73752, 0.23821, 0.11248, - + 0.07120, 0.18022, 0.25785, - + 0.41034, 0.22226, 2.70665, 0.23830, 0.11429, - + 0.07376, 0.18112, 0.25773, - + 0.41125, 0.22222, 2.67497, 0.23828, 0.11588, - + 0.07603, 0.18186, 0.25748, - + 0.41206, 0.22215, 2.64372, 0.23822, 0.11733, - + 0.07812, 0.18251, 0.25716/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=22,30)/ - + 0.41277, 0.22203, 2.61228, 0.23802, 0.11863, - + 0.08004, 0.18301, 0.25674, - + 0.41341, 0.22186, 2.58114, 0.23773, 0.11981, - + 0.08181, 0.18339, 0.25627, - + 0.41398, 0.22168, 2.55058, 0.23740, 0.12089, - + 0.08346, 0.18371, 0.25577, - + 0.41444, 0.22146, 2.51963, 0.23698, 0.12180, - + 0.08492, 0.18391, 0.25518, - + 0.41488, 0.22125, 2.49003, 0.23658, 0.12267, - + 0.08632, 0.18410, 0.25462, - + 0.41520, 0.22098, 2.46008, 0.23604, 0.12340, - + 0.08753, 0.18417, 0.25393, - + 0.41549, 0.22071, 2.43112, 0.23550, 0.12409, - + 0.08867, 0.18420, 0.25324, - + 0.41575, 0.22044, 2.40295, 0.23496, 0.12472, - + 0.08975, 0.18421, 0.25255, - + 0.41588, 0.22014, 2.37442, 0.23434, 0.12520, - + 0.09070, 0.18409, 0.25176/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + 0.41841, 0.24222, 2.02765, 0.15359, 0.00430, - + -0.00002, 0.08499, 0.17782, - + 0.42694, 0.24435, 2.12304, 0.15893, 0.01589, - + 0.00002, 0.09328, 0.18239, - + 0.43356, 0.24569, 2.17238, 0.16294, 0.02530, - + 0.00002, 0.09980, 0.18567, - + 0.43866, 0.24648, 2.19096, 0.16591, 0.03294, - + 0.00000, 0.10494, 0.18792, - + 0.44266, 0.24688, 2.19002, 0.16804, 0.03922, - + 0.00102, 0.10901, 0.18949, - + 0.44589, 0.24691, 2.17640, 0.16957, 0.04454, - + 0.00600, 0.11231, 0.19053, - + 0.44842, 0.24676, 2.15401, 0.17063, 0.04903, - + 0.01215, 0.11497, 0.19112/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ - + 0.45043, 0.24642, 2.12578, 0.17134, 0.05289, - + 0.01717, 0.11713, 0.19133, - + 0.45203, 0.24591, 2.09381, 0.17173, 0.05620, - + 0.02154, 0.11886, 0.19125, - + 0.45328, 0.24532, 2.05950, 0.17185, 0.05903, - + 0.02539, 0.12023, 0.19098, - + 0.45418, 0.24467, 2.02389, 0.17182, 0.06147, - + 0.02881, 0.12136, 0.19060, - + 0.45473, 0.24394, 1.98664, 0.17153, 0.06353, - + 0.03173, 0.12216, 0.18993, - + 0.45510, 0.24315, 1.94967, 0.17118, 0.06536, - + 0.03437, 0.12279, 0.18917, - + 0.45536, 0.24233, 1.91345, 0.17077, 0.06699, - + 0.03677, 0.12328, 0.18837/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,21)/ - + 0.45547, 0.24137, 1.87654, 0.17010, 0.06831, - + 0.03879, 0.12358, 0.18747, - + 0.45543, 0.24044, 1.84098, 0.16942, 0.06949, - + 0.04063, 0.12378, 0.18654, - + 0.45518, 0.23955, 1.80599, 0.16872, 0.07051, - + 0.04227, 0.12384, 0.18552, - + 0.45486, 0.23860, 1.77178, 0.16793, 0.07139, - + 0.04375, 0.12382, 0.18447, - + 0.45452, 0.23764, 1.73872, 0.16709, 0.07216, - + 0.04511, 0.12375, 0.18344, - + 0.45405, 0.23664, 1.70626, 0.16621, 0.07280, - + 0.04628, 0.12358, 0.18237, - + 0.45353, 0.23566, 1.67499, 0.16534, 0.07336, - + 0.04734, 0.12338, 0.18131/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=22,30)/ - + 0.45291, 0.23468, 1.64453, 0.16443, 0.07385, - + 0.04830, 0.12311, 0.18018, - + 0.45224, 0.23371, 1.61506, 0.16350, 0.07428, - + 0.04918, 0.12280, 0.17901, - + 0.45154, 0.23275, 1.58668, 0.16257, 0.07464, - + 0.04997, 0.12247, 0.17788, - + 0.45079, 0.23175, 1.55882, 0.16162, 0.07488, - + 0.05062, 0.12206, 0.17677, - + 0.45006, 0.23079, 1.53231, 0.16069, 0.07510, - + 0.05124, 0.12166, 0.17569, - + 0.44921, 0.22981, 1.50610, 0.15973, 0.07527, - + 0.05178, 0.12121, 0.17454, - + 0.44836, 0.22886, 1.48096, 0.15879, 0.07541, - + 0.05229, 0.12076, 0.17340, - + 0.44751, 0.22793, 1.45678, 0.15787, 0.07553, - + 0.05276, 0.12031, 0.17229, - + 0.44656, 0.22699, 1.43302, 0.15693, 0.07557, - + 0.05313, 0.11981, 0.17112/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + 0.47959, 0.27101, 1.79317, 0.12967, 0.00341, - + 0.00008, 0.07211, 0.15190, - + 0.48482, 0.27032, 1.81276, 0.13240, 0.01218, - + 0.00005, 0.07765, 0.15367, - + 0.48821, 0.26924, 1.80418, 0.13411, 0.01911, - + 0.00007, 0.08174, 0.15446, - + 0.49042, 0.26774, 1.77895, 0.13500, 0.02460, - + 0.00008, 0.08477, 0.15462, - + 0.49171, 0.26608, 1.74426, 0.13541, 0.02904, - + 0.00081, 0.08701, 0.15427, - + 0.49232, 0.26428, 1.70485, 0.13541, 0.03266, - + 0.00433, 0.08866, 0.15368, - + 0.49241, 0.26240, 1.66273, 0.13509, 0.03565, - + 0.00866, 0.08985, 0.15285/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ - + 0.49206, 0.26051, 1.61939, 0.13458, 0.03813, - + 0.01211, 0.09071, 0.15185, - + 0.49143, 0.25855, 1.57605, 0.13391, 0.04019, - + 0.01508, 0.09131, 0.15073, - + 0.49056, 0.25655, 1.53350, 0.13312, 0.04193, - + 0.01766, 0.09167, 0.14951, - + 0.48944, 0.25466, 1.49192, 0.13225, 0.04344, - + 0.01991, 0.09185, 0.14815, - + 0.48812, 0.25269, 1.45111, 0.13123, 0.04461, - + 0.02175, 0.09186, 0.14678, - + 0.48673, 0.25072, 1.41202, 0.13019, 0.04562, - + 0.02342, 0.09177, 0.14540, - + 0.48528, 0.24879, 1.37477, 0.12916, 0.04650, - + 0.02493, 0.09160, 0.14400/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,21)/ - + 0.48357, 0.24693, 1.33836, 0.12809, 0.04721, - + 0.02616, 0.09131, 0.14255, - + 0.48188, 0.24509, 1.30391, 0.12700, 0.04780, - + 0.02729, 0.09098, 0.14117, - + 0.48019, 0.24321, 1.27085, 0.12584, 0.04827, - + 0.02829, 0.09058, 0.13985, - + 0.47841, 0.24141, 1.23911, 0.12471, 0.04865, - + 0.02915, 0.09015, 0.13846, - + 0.47661, 0.23968, 1.20885, 0.12361, 0.04898, - + 0.02989, 0.08971, 0.13705, - + 0.47474, 0.23795, 1.17976, 0.12250, 0.04923, - + 0.03056, 0.08921, 0.13564, - + 0.47289, 0.23627, 1.15210, 0.12140, 0.04945, - + 0.03117, 0.08870, 0.13426/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=22,30)/ - + 0.47103, 0.23459, 1.12553, 0.12028, 0.04959, - + 0.03169, 0.08816, 0.13295, - + 0.46916, 0.23293, 1.10011, 0.11917, 0.04968, - + 0.03215, 0.08760, 0.13170, - + 0.46731, 0.23131, 1.07587, 0.11809, 0.04975, - + 0.03255, 0.08704, 0.13045, - + 0.46539, 0.22973, 1.05247, 0.11703, 0.04976, - + 0.03287, 0.08647, 0.12914, - + 0.46354, 0.22820, 1.03029, 0.11602, 0.04977, - + 0.03317, 0.08591, 0.12788, - + 0.46160, 0.22670, 1.00872, 0.11498, 0.04972, - + 0.03342, 0.08533, 0.12666, - + 0.45970, 0.22524, 0.98814, 0.11397, 0.04967, - + 0.03366, 0.08476, 0.12548, - + 0.45784, 0.22381, 0.96846, 0.11298, 0.04960, - + 0.03387, 0.08419, 0.12434, - + 0.45600, 0.22233, 0.94936, 0.11197, 0.04950, - + 0.03403, 0.08359, 0.12319/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + 0.52800, 0.28940, 1.58630, 0.11053, 0.00269, - + 0.00004, 0.06152, 0.13021, - + 0.52913, 0.28596, 1.55935, 0.11148, 0.00953, - + 0.00010, 0.06518, 0.13012, - + 0.52893, 0.28241, 1.51762, 0.11173, 0.01473, - + 0.00008, 0.06769, 0.12934, - + 0.52786, 0.27872, 1.46891, 0.11132, 0.01885, - + 0.00008, 0.06932, 0.12830, - + 0.52609, 0.27518, 1.41775, 0.11072, 0.02203, - + 0.00064, 0.07045, 0.12684, - + 0.52390, 0.27170, 1.36676, 0.10986, 0.02457, - + 0.00322, 0.07112, 0.12535, - + 0.52137, 0.26829, 1.31676, 0.10882, 0.02660, - + 0.00628, 0.07148, 0.12378/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ - + 0.51864, 0.26492, 1.26850, 0.10768, 0.02825, - + 0.00872, 0.07161, 0.12217, - + 0.51573, 0.26166, 1.22240, 0.10649, 0.02960, - + 0.01083, 0.07155, 0.12050, - + 0.51269, 0.25853, 1.17863, 0.10531, 0.03071, - + 0.01265, 0.07137, 0.11876, - + 0.50961, 0.25547, 1.13717, 0.10400, 0.03159, - + 0.01419, 0.07109, 0.11717, - + 0.50640, 0.25250, 1.09759, 0.10270, 0.03229, - + 0.01544, 0.07074, 0.11545, - + 0.50322, 0.24961, 1.06047, 0.10138, 0.03289, - + 0.01655, 0.07031, 0.11382, - + 0.50008, 0.24681, 1.02570, 0.10007, 0.03338, - + 0.01753, 0.06982, 0.11229/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,21)/ - + 0.49680, 0.24410, 0.99239, 0.09881, 0.03372, - + 0.01833, 0.06926, 0.11069, - + 0.49359, 0.24151, 0.96123, 0.09759, 0.03401, - + 0.01906, 0.06871, 0.10914, - + 0.49038, 0.23901, 0.93172, 0.09639, 0.03424, - + 0.01972, 0.06815, 0.10758, - + 0.48727, 0.23652, 0.90380, 0.09515, 0.03442, - + 0.02023, 0.06757, 0.10608, - + 0.48427, 0.23409, 0.87749, 0.09392, 0.03456, - + 0.02066, 0.06699, 0.10463, - + 0.48118, 0.23173, 0.85245, 0.09275, 0.03463, - + 0.02103, 0.06637, 0.10323, - + 0.47812, 0.22946, 0.82881, 0.09163, 0.03466, - + 0.02135, 0.06574, 0.10188/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=22,30)/ - + 0.47507, 0.22726, 0.80638, 0.09052, 0.03464, - + 0.02166, 0.06512, 0.10057, - + 0.47205, 0.22514, 0.78512, 0.08943, 0.03458, - + 0.02194, 0.06452, 0.09930, - + 0.46912, 0.22307, 0.76497, 0.08838, 0.03453, - + 0.02217, 0.06393, 0.09806, - + 0.46621, 0.22103, 0.74566, 0.08732, 0.03447, - + 0.02233, 0.06332, 0.09682, - + 0.46341, 0.21907, 0.72743, 0.08632, 0.03441, - + 0.02248, 0.06274, 0.09564, - + 0.46058, 0.21712, 0.70989, 0.08531, 0.03428, - + 0.02261, 0.06214, 0.09448, - + 0.45783, 0.21522, 0.69323, 0.08435, 0.03415, - + 0.02273, 0.06156, 0.09337, - + 0.45515, 0.21340, 0.67738, 0.08341, 0.03402, - + 0.02282, 0.06100, 0.09229, - + 0.45245, 0.21160, 0.66213, 0.08246, 0.03387, - + 0.02287, 0.06045, 0.09120/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + 0.57309, 0.30121, 1.35921, 0.09079, 0.00205, - + 0.00009, 0.05050, 0.10710, - + 0.56890, 0.29431, 1.29844, 0.09019, 0.00716, - + 0.00004, 0.05257, 0.10560, - + 0.56381, 0.28801, 1.23474, 0.08938, 0.01092, - + 0.00010, 0.05380, 0.10366, - + 0.55849, 0.28191, 1.17201, 0.08811, 0.01377, - + 0.00008, 0.05441, 0.10172, - + 0.55279, 0.27629, 1.11244, 0.08679, 0.01594, - + 0.00044, 0.05463, 0.09967, - + 0.54712, 0.27096, 1.05684, 0.08538, 0.01762, - + 0.00228, 0.05458, 0.09766, - + 0.54139, 0.26592, 1.00505, 0.08389, 0.01895, - + 0.00441, 0.05440, 0.09567/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ - + 0.53574, 0.26106, 0.95693, 0.08237, 0.01998, - + 0.00606, 0.05407, 0.09374, - + 0.53014, 0.25645, 0.91236, 0.08088, 0.02079, - + 0.00746, 0.05363, 0.09184, - + 0.52457, 0.25216, 0.87117, 0.07946, 0.02147, - + 0.00864, 0.05312, 0.08992, - + 0.51905, 0.24807, 0.83305, 0.07809, 0.02194, - + 0.00968, 0.05257, 0.08814, - + 0.51372, 0.24406, 0.79751, 0.07660, 0.02231, - + 0.01050, 0.05195, 0.08648, - + 0.50851, 0.24024, 0.76464, 0.07522, 0.02259, - + 0.01117, 0.05135, 0.08481, - + 0.50344, 0.23664, 0.73424, 0.07394, 0.02282, - + 0.01174, 0.05077, 0.08313/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,21)/ - + 0.49849, 0.23310, 0.70577, 0.07259, 0.02296, - + 0.01225, 0.05010, 0.08161, - + 0.49365, 0.22976, 0.67941, 0.07133, 0.02306, - + 0.01269, 0.04946, 0.08014, - + 0.48882, 0.22659, 0.65477, 0.07014, 0.02312, - + 0.01302, 0.04885, 0.07867, - + 0.48417, 0.22349, 0.63169, 0.06897, 0.02315, - + 0.01331, 0.04823, 0.07727, - + 0.47969, 0.22051, 0.61011, 0.06784, 0.02318, - + 0.01357, 0.04760, 0.07592, - + 0.47525, 0.21765, 0.58981, 0.06676, 0.02312, - + 0.01380, 0.04700, 0.07460, - + 0.47092, 0.21492, 0.57079, 0.06574, 0.02304, - + 0.01401, 0.04642, 0.07334/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=22,30)/ - + 0.46671, 0.21224, 0.55289, 0.06472, 0.02296, - + 0.01414, 0.04583, 0.07213, - + 0.46262, 0.20963, 0.53604, 0.06371, 0.02289, - + 0.01421, 0.04524, 0.07097, - + 0.45864, 0.20712, 0.52018, 0.06275, 0.02280, - + 0.01430, 0.04467, 0.06987, - + 0.45467, 0.20471, 0.50513, 0.06181, 0.02267, - + 0.01444, 0.04411, 0.06880, - + 0.45087, 0.20240, 0.49097, 0.06092, 0.02255, - + 0.01457, 0.04357, 0.06777, - + 0.44710, 0.20013, 0.47753, 0.06003, 0.02242, - + 0.01460, 0.04302, 0.06676, - + 0.44346, 0.19794, 0.46483, 0.05918, 0.02229, - + 0.01462, 0.04250, 0.06578, - + 0.43993, 0.19582, 0.45278, 0.05836, 0.02216, - + 0.01463, 0.04199, 0.06484, - + 0.43639, 0.19372, 0.44123, 0.05758, 0.02200, - + 0.01462, 0.04148, 0.06392/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + 0.60359, 0.30307, 1.16193, 0.07412, 0.00164, - + 0.00016, 0.04130, 0.08745, - + 0.59369, 0.29347, 1.08331, 0.07284, 0.00539, - + 0.00014, 0.04229, 0.08515, - + 0.58388, 0.28471, 1.00984, 0.07127, 0.00815, - + 0.00013, 0.04269, 0.08281, - + 0.57431, 0.27668, 0.94265, 0.06963, 0.01021, - + 0.00016, 0.04271, 0.08042, - + 0.56497, 0.26933, 0.88195, 0.06804, 0.01169, - + 0.00040, 0.04242, 0.07821, - + 0.55597, 0.26257, 0.82726, 0.06636, 0.01287, - + 0.00167, 0.04206, 0.07601, - + 0.54730, 0.25623, 0.77780, 0.06473, 0.01374, - + 0.00320, 0.04159, 0.07392/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ - + 0.53891, 0.25033, 0.73303, 0.06319, 0.01438, - + 0.00436, 0.04103, 0.07192, - + 0.53080, 0.24479, 0.69247, 0.06168, 0.01487, - + 0.00531, 0.04042, 0.07002, - + 0.52303, 0.23955, 0.65564, 0.06022, 0.01525, - + 0.00611, 0.03977, 0.06828, - + 0.51551, 0.23469, 0.62208, 0.05889, 0.01551, - + 0.00671, 0.03912, 0.06652, - + 0.50824, 0.23000, 0.59129, 0.05747, 0.01571, - + 0.00726, 0.03852, 0.06488, - + 0.50128, 0.22553, 0.56320, 0.05615, 0.01585, - + 0.00770, 0.03789, 0.06333, - + 0.49463, 0.22129, 0.53753, 0.05494, 0.01596, - + 0.00808, 0.03726, 0.06186/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,21)/ - + 0.48808, 0.21731, 0.51364, 0.05376, 0.01595, - + 0.00842, 0.03663, 0.06043, - + 0.48183, 0.21352, 0.49175, 0.05264, 0.01596, - + 0.00870, 0.03602, 0.05908, - + 0.47578, 0.20985, 0.47152, 0.05152, 0.01599, - + 0.00890, 0.03540, 0.05781, - + 0.46992, 0.20635, 0.45272, 0.05047, 0.01595, - + 0.00906, 0.03482, 0.05658, - + 0.46427, 0.20302, 0.43525, 0.04947, 0.01588, - + 0.00921, 0.03428, 0.05541, - + 0.45876, 0.19984, 0.41902, 0.04851, 0.01579, - + 0.00932, 0.03371, 0.05430, - + 0.45345, 0.19681, 0.40393, 0.04760, 0.01570, - + 0.00941, 0.03315, 0.05324/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=22,30)/ - + 0.44829, 0.19387, 0.38979, 0.04672, 0.01560, - + 0.00947, 0.03261, 0.05221, - + 0.44330, 0.19104, 0.37654, 0.04587, 0.01550, - + 0.00951, 0.03210, 0.05122, - + 0.43848, 0.18831, 0.36410, 0.04505, 0.01540, - + 0.00955, 0.03161, 0.05026, - + 0.43379, 0.18563, 0.35234, 0.04425, 0.01531, - + 0.00957, 0.03115, 0.04930, - + 0.42930, 0.18308, 0.34132, 0.04348, 0.01521, - + 0.00959, 0.03071, 0.04839, - + 0.42480, 0.18064, 0.33093, 0.04276, 0.01510, - + 0.00960, 0.03021, 0.04756, - + 0.42045, 0.17830, 0.32116, 0.04206, 0.01499, - + 0.00960, 0.02973, 0.04676, - + 0.41624, 0.17605, 0.31194, 0.04139, 0.01487, - + 0.00960, 0.02927, 0.04600, - + 0.41210, 0.17384, 0.30319, 0.04073, 0.01472, - + 0.00958, 0.02887, 0.04526/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + 0.62100, 0.29784, 0.98986, 0.06021, 0.00118, - + 0.00007, 0.03333, 0.07056, - + 0.60584, 0.28573, 0.90350, 0.05840, 0.00412, - + 0.00003, 0.03368, 0.06797, - + 0.59147, 0.27506, 0.82746, 0.05650, 0.00615, - + 0.00000, 0.03364, 0.06555, - + 0.57796, 0.26554, 0.76094, 0.05472, 0.00766, - + 0.00006, 0.03334, 0.06310, - + 0.56527, 0.25689, 0.70279, 0.05302, 0.00870, - + 0.00028, 0.03289, 0.06082, - + 0.55336, 0.24901, 0.65175, 0.05141, 0.00949, - + 0.00119, 0.03232, 0.05869, - + 0.54209, 0.24171, 0.60659, 0.04981, 0.01006, - + 0.00227, 0.03176, 0.05675/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ - + 0.53137, 0.23504, 0.56643, 0.04825, 0.01048, - + 0.00309, 0.03120, 0.05489, - + 0.52122, 0.22880, 0.53062, 0.04677, 0.01079, - + 0.00381, 0.03055, 0.05319, - + 0.51161, 0.22291, 0.49861, 0.04543, 0.01100, - + 0.00443, 0.02991, 0.05159, - + 0.50240, 0.21746, 0.46989, 0.04416, 0.01117, - + 0.00492, 0.02926, 0.05007, - + 0.49353, 0.21234, 0.44380, 0.04298, 0.01125, - + 0.00521, 0.02867, 0.04857, - + 0.48514, 0.20747, 0.42016, 0.04181, 0.01129, - + 0.00548, 0.02808, 0.04723, - + 0.47720, 0.20285, 0.39868, 0.04067, 0.01131, - + 0.00574, 0.02750, 0.04602/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,21)/ - + 0.46942, 0.19855, 0.37890, 0.03961, 0.01130, - + 0.00589, 0.02692, 0.04483, - + 0.46204, 0.19451, 0.36091, 0.03865, 0.01129, - + 0.00604, 0.02636, 0.04366, - + 0.45493, 0.19067, 0.34447, 0.03779, 0.01129, - + 0.00619, 0.02580, 0.04246, - + 0.44810, 0.18701, 0.32935, 0.03693, 0.01124, - + 0.00629, 0.02529, 0.04139, - + 0.44154, 0.18353, 0.31542, 0.03607, 0.01116, - + 0.00638, 0.02480, 0.04040, - + 0.43519, 0.18021, 0.30251, 0.03526, 0.01106, - + 0.00644, 0.02433, 0.03947, - + 0.42909, 0.17704, 0.29054, 0.03451, 0.01096, - + 0.00648, 0.02386, 0.03859/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=22,30)/ - + 0.42325, 0.17396, 0.27936, 0.03377, 0.01087, - + 0.00650, 0.02341, 0.03774, - + 0.41764, 0.17098, 0.26891, 0.03306, 0.01078, - + 0.00651, 0.02298, 0.03693, - + 0.41224, 0.16814, 0.25919, 0.03237, 0.01069, - + 0.00653, 0.02257, 0.03616, - + 0.40694, 0.16545, 0.25010, 0.03171, 0.01058, - + 0.00655, 0.02215, 0.03543, - + 0.40188, 0.16289, 0.24161, 0.03108, 0.01047, - + 0.00657, 0.02176, 0.03473, - + 0.39693, 0.16037, 0.23370, 0.03047, 0.01036, - + 0.00656, 0.02139, 0.03406, - + 0.39216, 0.15795, 0.22628, 0.02989, 0.01025, - + 0.00655, 0.02103, 0.03341, - + 0.38756, 0.15563, 0.21929, 0.02934, 0.01015, - + 0.00653, 0.02069, 0.03279, - + 0.38303, 0.15341, 0.21264, 0.02881, 0.01005, - + 0.00650, 0.02034, 0.03218/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + 0.62734, 0.28683, 0.84015, 0.04816, 0.00090, - + 0.00003, 0.02662, 0.05639, - + 0.60698, 0.27308, 0.75233, 0.04633, 0.00308, - + 0.00002, 0.02658, 0.05373, - + 0.58860, 0.26098, 0.67824, 0.04449, 0.00457, - + 0.00003, 0.02623, 0.05132, - + 0.57160, 0.25034, 0.61529, 0.04268, 0.00565, - + 0.00001, 0.02581, 0.04908, - + 0.55597, 0.24087, 0.56163, 0.04106, 0.00642, - + 0.00018, 0.02532, 0.04688, - + 0.54140, 0.23239, 0.51550, 0.03958, 0.00695, - + 0.00087, 0.02471, 0.04493, - + 0.52793, 0.22452, 0.47548, 0.03812, 0.00735, - + 0.00168, 0.02411, 0.04315/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ - + 0.51524, 0.21730, 0.44044, 0.03680, 0.00762, - + 0.00230, 0.02346, 0.04158, - + 0.50339, 0.21059, 0.40944, 0.03550, 0.00779, - + 0.00277, 0.02283, 0.04016, - + 0.49231, 0.20433, 0.38191, 0.03424, 0.00794, - + 0.00309, 0.02226, 0.03879, - + 0.48167, 0.19872, 0.35750, 0.03320, 0.00800, - + 0.00339, 0.02170, 0.03738, - + 0.47153, 0.19342, 0.33568, 0.03219, 0.00805, - + 0.00363, 0.02119, 0.03605, - + 0.46202, 0.18840, 0.31608, 0.03121, 0.00809, - + 0.00383, 0.02065, 0.03487, - + 0.45308, 0.18366, 0.29841, 0.03026, 0.00813, - + 0.00401, 0.02010, 0.03383/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,21)/ - + 0.44432, 0.17930, 0.28241, 0.02945, 0.00803, - + 0.00417, 0.01961, 0.03280, - + 0.43608, 0.17519, 0.26785, 0.02867, 0.00796, - + 0.00428, 0.01914, 0.03185, - + 0.42827, 0.17126, 0.25448, 0.02787, 0.00794, - + 0.00433, 0.01866, 0.03097, - + 0.42081, 0.16751, 0.24237, 0.02711, 0.00786, - + 0.00438, 0.01824, 0.03016, - + 0.41370, 0.16393, 0.23134, 0.02637, 0.00775, - + 0.00441, 0.01786, 0.02942, - + 0.40686, 0.16054, 0.22114, 0.02569, 0.00767, - + 0.00441, 0.01748, 0.02866, - + 0.40031, 0.15734, 0.21172, 0.02505, 0.00761, - + 0.00439, 0.01711, 0.02791/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=22,30)/ - + 0.39405, 0.15424, 0.20296, 0.02442, 0.00753, - + 0.00440, 0.01676, 0.02722, - + 0.38806, 0.15126, 0.19480, 0.02382, 0.00746, - + 0.00444, 0.01642, 0.02658, - + 0.38227, 0.14844, 0.18725, 0.02326, 0.00738, - + 0.00446, 0.01608, 0.02597, - + 0.37657, 0.14580, 0.18025, 0.02275, 0.00731, - + 0.00443, 0.01573, 0.02536, - + 0.37112, 0.14329, 0.17372, 0.02227, 0.00724, - + 0.00441, 0.01540, 0.02479, - + 0.36580, 0.14087, 0.16767, 0.02185, 0.00713, - + 0.00441, 0.01509, 0.02424, - + 0.36068, 0.13856, 0.16201, 0.02146, 0.00701, - + 0.00442, 0.01479, 0.02372, - + 0.35578, 0.13632, 0.15669, 0.02107, 0.00690, - + 0.00441, 0.01451, 0.02323, - + 0.35106, 0.13408, 0.15161, 0.02063, 0.00681, - + 0.00434, 0.01425, 0.02277/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + 0.62374, 0.27185, 0.71003, 0.03818, 0.00068, - + 0.00005, 0.02096, 0.04434, - + 0.59904, 0.25678, 0.62476, 0.03637, 0.00231, - + 0.00005, 0.02073, 0.04186, - + 0.57689, 0.24392, 0.55494, 0.03460, 0.00343, - + 0.00002, 0.02034, 0.03964, - + 0.55700, 0.23258, 0.49719, 0.03303, 0.00418, - + -0.00004, 0.01985, 0.03757, - + 0.53885, 0.22259, 0.44913, 0.03159, 0.00468, - + 0.00022, 0.01923, 0.03582, - + 0.52240, 0.21351, 0.40829, 0.03013, 0.00511, - + 0.00068, 0.01863, 0.03422, - + 0.50713, 0.20535, 0.37323, 0.02888, 0.00540, - + 0.00118, 0.01808, 0.03264/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ - + 0.49288, 0.19797, 0.34293, 0.02778, 0.00556, - + 0.00161, 0.01751, 0.03123, - + 0.47962, 0.19118, 0.31656, 0.02673, 0.00568, - + 0.00199, 0.01702, 0.02990, - + 0.46728, 0.18491, 0.29352, 0.02572, 0.00574, - + 0.00229, 0.01659, 0.02865, - + 0.45565, 0.17912, 0.27319, 0.02474, 0.00569, - + 0.00243, 0.01604, 0.02773, - + 0.44472, 0.17370, 0.25509, 0.02387, 0.00578, - + 0.00256, 0.01554, 0.02668, - + 0.43440, 0.16869, 0.23899, 0.02307, 0.00581, - + 0.00269, 0.01510, 0.02570, - + 0.42465, 0.16403, 0.22460, 0.02233, 0.00579, - + 0.00280, 0.01470, 0.02480/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,21)/ - + 0.41546, 0.15959, 0.21157, 0.02159, 0.00566, - + 0.00287, 0.01426, 0.02411, - + 0.40679, 0.15545, 0.19985, 0.02090, 0.00556, - + 0.00293, 0.01386, 0.02342, - + 0.39851, 0.15155, 0.18924, 0.02025, 0.00551, - + 0.00297, 0.01348, 0.02270, - + 0.39062, 0.14786, 0.17957, 0.01964, 0.00547, - + 0.00300, 0.01314, 0.02201, - + 0.38312, 0.14439, 0.17072, 0.01909, 0.00542, - + 0.00303, 0.01282, 0.02136, - + 0.37593, 0.14110, 0.16263, 0.01855, 0.00534, - + 0.00303, 0.01252, 0.02075, - + 0.36909, 0.13798, 0.15522, 0.01805, 0.00525, - + 0.00302, 0.01223, 0.02018/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=22,30)/ - + 0.36251, 0.13508, 0.14842, 0.01757, 0.00517, - + 0.00302, 0.01193, 0.01963, - + 0.35620, 0.13237, 0.14215, 0.01710, 0.00510, - + 0.00302, 0.01162, 0.01910, - + 0.35015, 0.12974, 0.13634, 0.01667, 0.00504, - + 0.00303, 0.01134, 0.01861, - + 0.34428, 0.12710, 0.13097, 0.01630, 0.00499, - + 0.00304, 0.01109, 0.01815, - + 0.33870, 0.12460, 0.12597, 0.01594, 0.00493, - + 0.00304, 0.01085, 0.01773, - + 0.33335, 0.12226, 0.12123, 0.01556, 0.00487, - + 0.00300, 0.01062, 0.01727, - + 0.32824, 0.12004, 0.11678, 0.01519, 0.00480, - + 0.00295, 0.01039, 0.01683, - + 0.32330, 0.11791, 0.11265, 0.01485, 0.00474, - + 0.00290, 0.01018, 0.01642, - + 0.31839, 0.11582, 0.10889, 0.01452, 0.00467, - + 0.00288, 0.00998, 0.01609/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + 0.61182, 0.25391, 0.59709, 0.02982, 0.00052, - + 0.00008, 0.01634, 0.03436, - + 0.58329, 0.23809, 0.51687, 0.02809, 0.00179, - + 0.00007, 0.01601, 0.03219, - + 0.55846, 0.22447, 0.45304, 0.02639, 0.00260, - + 0.00015, 0.01562, 0.03032, - + 0.53599, 0.21290, 0.40109, 0.02503, 0.00323, - + 0.00011, 0.01507, 0.02855, - + 0.51592, 0.20265, 0.35838, 0.02382, 0.00356, - + 0.00018, 0.01460, 0.02695, - + 0.49776, 0.19353, 0.32281, 0.02263, 0.00379, - + 0.00051, 0.01402, 0.02568, - + 0.48104, 0.18543, 0.29273, 0.02159, 0.00396, - + 0.00090, 0.01352, 0.02442/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ - + 0.46571, 0.17799, 0.26696, 0.02061, 0.00407, - + 0.00123, 0.01306, 0.02331, - + 0.45151, 0.17123, 0.24483, 0.01970, 0.00415, - + 0.00147, 0.01261, 0.02226, - + 0.43827, 0.16509, 0.22567, 0.01891, 0.00424, - + 0.00161, 0.01217, 0.02121, - + 0.42577, 0.15952, 0.20858, 0.01829, 0.00420, - + 0.00182, 0.01175, 0.02030, - + 0.41436, 0.15412, 0.19368, 0.01754, 0.00419, - + 0.00188, 0.01134, 0.01955, - + 0.40362, 0.14918, 0.18062, 0.01685, 0.00416, - + 0.00196, 0.01094, 0.01885, - + 0.39351, 0.14466, 0.16907, 0.01621, 0.00412, - + 0.00207, 0.01056, 0.01820/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,21)/ - + 0.38391, 0.14039, 0.15866, 0.01564, 0.00410, - + 0.00204, 0.01026, 0.01751, - + 0.37497, 0.13642, 0.14932, 0.01506, 0.00405, - + 0.00204, 0.00997, 0.01691, - + 0.36659, 0.13270, 0.14090, 0.01443, 0.00397, - + 0.00209, 0.00968, 0.01639, - + 0.35842, 0.12923, 0.13331, 0.01401, 0.00389, - + 0.00212, 0.00940, 0.01586, - + 0.35054, 0.12599, 0.12642, 0.01370, 0.00381, - + 0.00213, 0.00913, 0.01533, - + 0.34319, 0.12286, 0.12012, 0.01335, 0.00376, - + 0.00212, 0.00888, 0.01481, - + 0.33629, 0.11986, 0.11433, 0.01298, 0.00372, - + 0.00211, 0.00864, 0.01432/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=22,30)/ - + 0.32961, 0.11704, 0.10903, 0.01257, 0.00367, - + 0.00210, 0.00842, 0.01395, - + 0.32318, 0.11436, 0.10414, 0.01215, 0.00361, - + 0.00210, 0.00822, 0.01365, - + 0.31709, 0.11183, 0.09963, 0.01178, 0.00356, - + 0.00209, 0.00802, 0.01333, - + 0.31129, 0.10940, 0.09545, 0.01151, 0.00351, - + 0.00207, 0.00783, 0.01292, - + 0.30578, 0.10711, 0.09157, 0.01126, 0.00346, - + 0.00206, 0.00764, 0.01254, - + 0.30038, 0.10488, 0.08798, 0.01096, 0.00341, - + 0.00206, 0.00748, 0.01226, - + 0.29522, 0.10276, 0.08463, 0.01067, 0.00335, - + 0.00206, 0.00732, 0.01200, - + 0.29029, 0.10074, 0.08150, 0.01039, 0.00329, - + 0.00205, 0.00716, 0.01175, - + 0.28556, 0.09878, 0.07859, 0.01009, 0.00324, - + 0.00199, 0.00699, 0.01147/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + 0.59283, 0.23394, 0.49952, 0.02280, 0.00045, - + 0.00008, 0.01266, 0.02621, - + 0.56116, 0.21787, 0.42568, 0.02132, 0.00140, - + 0.00020, 0.01225, 0.02441, - + 0.53378, 0.20423, 0.36834, 0.01997, 0.00203, - + 0.00019, 0.01175, 0.02285, - + 0.50936, 0.19285, 0.32234, 0.01893, 0.00240, - + 0.00008, 0.01128, 0.02131, - + 0.48773, 0.18271, 0.28525, 0.01791, 0.00267, - + 0.00020, 0.01084, 0.02003, - + 0.46855, 0.17362, 0.25484, 0.01687, 0.00279, - + 0.00043, 0.01044, 0.01900, - + 0.45100, 0.16560, 0.22935, 0.01600, 0.00287, - + 0.00068, 0.01001, 0.01802/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ - + 0.43488, 0.15841, 0.20754, 0.01523, 0.00297, - + 0.00090, 0.00962, 0.01705, - + 0.42005, 0.15182, 0.18902, 0.01458, 0.00301, - + 0.00105, 0.00924, 0.01617, - + 0.40634, 0.14585, 0.17328, 0.01395, 0.00298, - + 0.00112, 0.00890, 0.01544, - + 0.39372, 0.14046, 0.15946, 0.01326, 0.00297, - + 0.00121, 0.00857, 0.01478, - + 0.38190, 0.13532, 0.14744, 0.01273, 0.00295, - + 0.00130, 0.00819, 0.01421, - + 0.37090, 0.13063, 0.13690, 0.01223, 0.00295, - + 0.00138, 0.00789, 0.01359, - + 0.36063, 0.12635, 0.12759, 0.01175, 0.00296, - + 0.00146, 0.00766, 0.01294/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,21)/ - + 0.35092, 0.12227, 0.11926, 0.01124, 0.00284, - + 0.00145, 0.00737, 0.01261, - + 0.34184, 0.11852, 0.11184, 0.01076, 0.00279, - + 0.00146, 0.00713, 0.01222, - + 0.33329, 0.11508, 0.10521, 0.01033, 0.00282, - + 0.00149, 0.00693, 0.01174, - + 0.32521, 0.11176, 0.09922, 0.00996, 0.00277, - + 0.00149, 0.00670, 0.01135, - + 0.31757, 0.10860, 0.09377, 0.00965, 0.00267, - + 0.00145, 0.00647, 0.01101, - + 0.31022, 0.10565, 0.08884, 0.00934, 0.00264, - + 0.00147, 0.00628, 0.01065, - + 0.30322, 0.10290, 0.08434, 0.00904, 0.00264, - + 0.00151, 0.00610, 0.01030/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=22,30)/ - + 0.29662, 0.10029, 0.08022, 0.00878, 0.00262, - + 0.00151, 0.00596, 0.00995, - + 0.29039, 0.09782, 0.07645, 0.00854, 0.00259, - + 0.00149, 0.00583, 0.00959, - + 0.28448, 0.09548, 0.07298, 0.00830, 0.00254, - + 0.00147, 0.00569, 0.00928, - + 0.27883, 0.09324, 0.06978, 0.00801, 0.00247, - + 0.00143, 0.00552, 0.00903, - + 0.27346, 0.09112, 0.06681, 0.00774, 0.00240, - + 0.00139, 0.00537, 0.00880, - + 0.26814, 0.08909, 0.06407, 0.00759, 0.00236, - + 0.00139, 0.00523, 0.00855, - + 0.26304, 0.08715, 0.06152, 0.00747, 0.00232, - + 0.00141, 0.00510, 0.00832, - + 0.25818, 0.08531, 0.05915, 0.00734, 0.00229, - + 0.00141, 0.00498, 0.00809, - + 0.25354, 0.08354, 0.05694, 0.00715, 0.00224, - + 0.00141, 0.00487, 0.00788/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + 0.56767, 0.21321, 0.41537, 0.01721, 0.00042, - + 0.00007, 0.00954, 0.01969, - + 0.53358, 0.19724, 0.34866, 0.01601, 0.00110, - + 0.00010, 0.00907, 0.01830, - + 0.50443, 0.18379, 0.29773, 0.01496, 0.00149, - + 0.00009, 0.00878, 0.01691, - + 0.47902, 0.17232, 0.25795, 0.01395, 0.00186, - + 0.00008, 0.00841, 0.01574, - + 0.45658, 0.16239, 0.22597, 0.01309, 0.00200, - + 0.00010, 0.00806, 0.01475, - + 0.43654, 0.15377, 0.20014, 0.01232, 0.00207, - + 0.00031, 0.00772, 0.01388, - + 0.41845, 0.14610, 0.17883, 0.01157, 0.00217, - + 0.00050, 0.00736, 0.01312/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ - + 0.40194, 0.13918, 0.16097, 0.01097, 0.00221, - + 0.00069, 0.00703, 0.01241, - + 0.38676, 0.13302, 0.14579, 0.01050, 0.00221, - + 0.00082, 0.00670, 0.01174, - + 0.37291, 0.12743, 0.13275, 0.01000, 0.00221, - + 0.00086, 0.00643, 0.01112, - + 0.36032, 0.12216, 0.12158, 0.00948, 0.00226, - + 0.00095, 0.00618, 0.01055, - + 0.34829, 0.11746, 0.11191, 0.00905, 0.00221, - + 0.00099, 0.00594, 0.01008, - + 0.33730, 0.11312, 0.10347, 0.00862, 0.00219, - + 0.00101, 0.00573, 0.00963, - + 0.32724, 0.10908, 0.09606, 0.00820, 0.00218, - + 0.00102, 0.00555, 0.00920/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,21)/ - + 0.31751, 0.10533, 0.08947, 0.00785, 0.00209, - + 0.00102, 0.00530, 0.00891, - + 0.30851, 0.10182, 0.08359, 0.00750, 0.00202, - + 0.00102, 0.00510, 0.00862, - + 0.30017, 0.09852, 0.07829, 0.00714, 0.00197, - + 0.00102, 0.00494, 0.00832, - + 0.29217, 0.09546, 0.07357, 0.00690, 0.00195, - + 0.00106, 0.00478, 0.00804, - + 0.28456, 0.09263, 0.06935, 0.00674, 0.00194, - + 0.00111, 0.00462, 0.00778, - + 0.27752, 0.08993, 0.06557, 0.00651, 0.00191, - + 0.00111, 0.00448, 0.00747, - + 0.27095, 0.08738, 0.06215, 0.00626, 0.00187, - + 0.00107, 0.00435, 0.00714/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=22,30)/ - + 0.26454, 0.08499, 0.05898, 0.00607, 0.00184, - + 0.00104, 0.00423, 0.00687, - + 0.25834, 0.08274, 0.05604, 0.00594, 0.00182, - + 0.00102, 0.00411, 0.00662, - + 0.25248, 0.08063, 0.05335, 0.00579, 0.00179, - + 0.00100, 0.00399, 0.00640, - + 0.24691, 0.07865, 0.05089, 0.00563, 0.00176, - + 0.00102, 0.00389, 0.00621, - + 0.24165, 0.07677, 0.04862, 0.00547, 0.00173, - + 0.00104, 0.00379, 0.00603, - + 0.23669, 0.07490, 0.04655, 0.00528, 0.00169, - + 0.00105, 0.00368, 0.00587, - + 0.23198, 0.07312, 0.04462, 0.00510, 0.00165, - + 0.00105, 0.00359, 0.00573, - + 0.22745, 0.07143, 0.04284, 0.00494, 0.00162, - + 0.00104, 0.00349, 0.00559, - + 0.22294, 0.06986, 0.04121, 0.00482, 0.00159, - + 0.00101, 0.00340, 0.00543/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + 0.53756, 0.19251, 0.34356, 0.01314, 0.00016, - + -0.00009, 0.00690, 0.01461, - + 0.50198, 0.17680, 0.28444, 0.01208, 0.00070, - + -0.00009, 0.00663, 0.01343, - + 0.47186, 0.16371, 0.23969, 0.01107, 0.00110, - + -0.00013, 0.00636, 0.01238, - + 0.44546, 0.15288, 0.20566, 0.01036, 0.00124, - + -0.00013, 0.00605, 0.01152, - + 0.42277, 0.14331, 0.17868, 0.00954, 0.00141, - + -0.00011, 0.00577, 0.01080, - + 0.40245, 0.13512, 0.15703, 0.00895, 0.00146, - + 0.00009, 0.00550, 0.01011, - + 0.38434, 0.12788, 0.13927, 0.00842, 0.00149, - + 0.00029, 0.00523, 0.00943/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ - + 0.36789, 0.12139, 0.12463, 0.00790, 0.00156, - + 0.00037, 0.00499, 0.00882, - + 0.35271, 0.11557, 0.11227, 0.00751, 0.00159, - + 0.00045, 0.00476, 0.00834, - + 0.33888, 0.11030, 0.10171, 0.00717, 0.00156, - + 0.00056, 0.00453, 0.00797, - + 0.32661, 0.10541, 0.09273, 0.00660, 0.00156, - + 0.00064, 0.00435, 0.00771, - + 0.31471, 0.10107, 0.08496, 0.00640, 0.00149, - + 0.00064, 0.00411, 0.00730, - + 0.30391, 0.09702, 0.07822, 0.00612, 0.00148, - + 0.00065, 0.00393, 0.00694, - + 0.29408, 0.09326, 0.07233, 0.00578, 0.00150, - + 0.00067, 0.00380, 0.00662/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,21)/ - + 0.28471, 0.08985, 0.06702, 0.00554, 0.00147, - + 0.00070, 0.00370, 0.00630, - + 0.27599, 0.08670, 0.06242, 0.00535, 0.00145, - + 0.00072, 0.00359, 0.00600, - + 0.26778, 0.08376, 0.05844, 0.00521, 0.00142, - + 0.00073, 0.00344, 0.00572, - + 0.26005, 0.08101, 0.05481, 0.00502, 0.00140, - + 0.00072, 0.00330, 0.00548, - + 0.25277, 0.07845, 0.05150, 0.00482, 0.00137, - + 0.00071, 0.00317, 0.00527, - + 0.24592, 0.07602, 0.04854, 0.00466, 0.00134, - + 0.00070, 0.00305, 0.00508, - + 0.23948, 0.07373, 0.04586, 0.00452, 0.00131, - + 0.00071, 0.00294, 0.00489/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=22,30)/ - + 0.23342, 0.07157, 0.04342, 0.00433, 0.00127, - + 0.00069, 0.00285, 0.00475, - + 0.22770, 0.06954, 0.04120, 0.00413, 0.00122, - + 0.00065, 0.00276, 0.00465, - + 0.22226, 0.06764, 0.03916, 0.00398, 0.00118, - + 0.00063, 0.00269, 0.00450, - + 0.21701, 0.06587, 0.03730, 0.00390, 0.00115, - + 0.00064, 0.00261, 0.00427, - + 0.21204, 0.06421, 0.03559, 0.00382, 0.00113, - + 0.00065, 0.00255, 0.00406, - + 0.20727, 0.06255, 0.03403, 0.00373, 0.00110, - + 0.00064, 0.00246, 0.00394, - + 0.20272, 0.06097, 0.03257, 0.00365, 0.00107, - + 0.00063, 0.00238, 0.00384, - + 0.19839, 0.05948, 0.03122, 0.00356, 0.00105, - + 0.00062, 0.00231, 0.00375, - + 0.19422, 0.05809, 0.02995, 0.00347, 0.00104, - + 0.00061, 0.00226, 0.00366/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + 0.50388, 0.17114, 0.28161, 0.00931, 0.00030, - + 0.00015, 0.00527, 0.01059, - + 0.46731, 0.15625, 0.22981, 0.00854, 0.00068, - + 0.00013, 0.00495, 0.00970, - + 0.43662, 0.14387, 0.19162, 0.00789, 0.00087, - + 0.00016, 0.00472, 0.00889, - + 0.41032, 0.13355, 0.16276, 0.00712, 0.00094, - + 0.00011, 0.00443, 0.00845, - + 0.38749, 0.12485, 0.14030, 0.00663, 0.00108, - + 0.00013, 0.00420, 0.00766, - + 0.36705, 0.11718, 0.12227, 0.00625, 0.00115, - + 0.00022, 0.00398, 0.00724, - + 0.34910, 0.11038, 0.10770, 0.00578, 0.00118, - + 0.00032, 0.00379, 0.00688/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ - + 0.33294, 0.10439, 0.09568, 0.00543, 0.00117, - + 0.00040, 0.00356, 0.00644, - + 0.31819, 0.09907, 0.08573, 0.00520, 0.00113, - + 0.00046, 0.00336, 0.00604, - + 0.30484, 0.09423, 0.07740, 0.00491, 0.00115, - + 0.00047, 0.00324, 0.00564, - + 0.29256, 0.08994, 0.07016, 0.00475, 0.00117, - + 0.00052, 0.00308, 0.00516, - + 0.28126, 0.08590, 0.06400, 0.00449, 0.00114, - + 0.00049, 0.00296, 0.00499, - + 0.27087, 0.08228, 0.05866, 0.00428, 0.00113, - + 0.00049, 0.00282, 0.00470, - + 0.26130, 0.07901, 0.05401, 0.00411, 0.00113, - + 0.00051, 0.00269, 0.00435/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,21)/ - + 0.25222, 0.07587, 0.04999, 0.00401, 0.00110, - + 0.00050, 0.00256, 0.00421, - + 0.24386, 0.07297, 0.04642, 0.00386, 0.00105, - + 0.00050, 0.00244, 0.00409, - + 0.23617, 0.07027, 0.04323, 0.00364, 0.00098, - + 0.00051, 0.00233, 0.00402, - + 0.22891, 0.06780, 0.04040, 0.00345, 0.00094, - + 0.00050, 0.00225, 0.00388, - + 0.22208, 0.06552, 0.03787, 0.00328, 0.00093, - + 0.00049, 0.00218, 0.00370, - + 0.21565, 0.06340, 0.03563, 0.00315, 0.00089, - + 0.00046, 0.00209, 0.00353, - + 0.20961, 0.06141, 0.03362, 0.00305, 0.00085, - + 0.00041, 0.00200, 0.00337/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=22,30)/ - + 0.20399, 0.05953, 0.03178, 0.00290, 0.00083, - + 0.00042, 0.00193, 0.00324, - + 0.19875, 0.05774, 0.03009, 0.00273, 0.00084, - + 0.00047, 0.00188, 0.00314, - + 0.19367, 0.05605, 0.02855, 0.00263, 0.00084, - + 0.00049, 0.00183, 0.00304, - + 0.18859, 0.05443, 0.02716, 0.00268, 0.00081, - + 0.00049, 0.00178, 0.00292, - + 0.18380, 0.05292, 0.02587, 0.00272, 0.00079, - + 0.00049, 0.00174, 0.00281, - + 0.17941, 0.05150, 0.02467, 0.00259, 0.00076, - + 0.00048, 0.00167, 0.00274, - + 0.17528, 0.05017, 0.02356, 0.00244, 0.00073, - + 0.00048, 0.00160, 0.00267, - + 0.17134, 0.04890, 0.02254, 0.00232, 0.00070, - + 0.00046, 0.00155, 0.00259, - + 0.16751, 0.04769, 0.02161, 0.00228, 0.00069, - + 0.00043, 0.00151, 0.00248/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + 0.46743, 0.15112, 0.22941, 0.00689, 0.00015, - + -0.00006, 0.00365, 0.00758, - + 0.43068, 0.13701, 0.18489, 0.00629, 0.00039, - + -0.00002, 0.00345, 0.00693, - + 0.40006, 0.12549, 0.15252, 0.00567, 0.00057, - + 0.00001, 0.00327, 0.00640, - + 0.37414, 0.11588, 0.12820, 0.00519, 0.00067, - + -0.00001, 0.00313, 0.00578, - + 0.35148, 0.10780, 0.10957, 0.00481, 0.00073, - + 0.00000, 0.00296, 0.00536, - + 0.33163, 0.10076, 0.09485, 0.00449, 0.00075, - + 0.00008, 0.00278, 0.00502, - + 0.31419, 0.09457, 0.08299, 0.00418, 0.00082, - + 0.00014, 0.00262, 0.00470/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ - + 0.29859, 0.08910, 0.07329, 0.00389, 0.00085, - + 0.00019, 0.00248, 0.00438, - + 0.28445, 0.08428, 0.06527, 0.00367, 0.00082, - + 0.00027, 0.00235, 0.00407, - + 0.27159, 0.08000, 0.05858, 0.00347, 0.00077, - + 0.00033, 0.00224, 0.00380, - + 0.25981, 0.07602, 0.05292, 0.00334, 0.00074, - + 0.00027, 0.00212, 0.00357, - + 0.24894, 0.07252, 0.04809, 0.00326, 0.00074, - + 0.00031, 0.00198, 0.00340, - + 0.23913, 0.06924, 0.04394, 0.00307, 0.00072, - + 0.00032, 0.00187, 0.00328, - + 0.23023, 0.06617, 0.04033, 0.00280, 0.00068, - + 0.00030, 0.00178, 0.00319/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,21)/ - + 0.22179, 0.06340, 0.03716, 0.00270, 0.00068, - + 0.00034, 0.00169, 0.00301, - + 0.21398, 0.06088, 0.03440, 0.00261, 0.00067, - + 0.00035, 0.00161, 0.00283, - + 0.20668, 0.05857, 0.03198, 0.00253, 0.00066, - + 0.00030, 0.00155, 0.00262, - + 0.19986, 0.05640, 0.02983, 0.00246, 0.00064, - + 0.00028, 0.00148, 0.00247, - + 0.19347, 0.05438, 0.02791, 0.00240, 0.00061, - + 0.00028, 0.00141, 0.00235, - + 0.18753, 0.05249, 0.02618, 0.00228, 0.00060, - + 0.00028, 0.00137, 0.00226, - + 0.18201, 0.05072, 0.02462, 0.00214, 0.00060, - + 0.00029, 0.00135, 0.00219/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=22,30)/ - + 0.17672, 0.04908, 0.02322, 0.00205, 0.00057, - + 0.00029, 0.00131, 0.00211, - + 0.17168, 0.04754, 0.02195, 0.00201, 0.00052, - + 0.00028, 0.00125, 0.00202, - + 0.16694, 0.04609, 0.02080, 0.00196, 0.00049, - + 0.00028, 0.00119, 0.00194, - + 0.16245, 0.04469, 0.01974, 0.00190, 0.00050, - + 0.00028, 0.00116, 0.00189, - + 0.15822, 0.04338, 0.01877, 0.00185, 0.00051, - + 0.00028, 0.00112, 0.00184, - + 0.15429, 0.04213, 0.01789, 0.00174, 0.00051, - + 0.00030, 0.00109, 0.00179, - + 0.15057, 0.04096, 0.01707, 0.00163, 0.00051, - + 0.00031, 0.00106, 0.00175, - + 0.14701, 0.03985, 0.01632, 0.00155, 0.00051, - + 0.00031, 0.00103, 0.00171, - + 0.14347, 0.03881, 0.01563, 0.00154, 0.00050, - + 0.00030, 0.00100, 0.00164/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + 0.42913, 0.13158, 0.18533, 0.00475, 0.00010, - + 0.00010, 0.00263, 0.00540, - + 0.39289, 0.11862, 0.14742, 0.00419, 0.00035, - + 0.00005, 0.00250, 0.00487, - + 0.36264, 0.10801, 0.12025, 0.00392, 0.00045, - + 0.00002, 0.00240, 0.00444, - + 0.33736, 0.09934, 0.10022, 0.00346, 0.00048, - + 0.00002, 0.00219, 0.00416, - + 0.31554, 0.09185, 0.08491, 0.00326, 0.00059, - + 0.00006, 0.00206, 0.00378, - + 0.29658, 0.08553, 0.07288, 0.00301, 0.00058, - + 0.00008, 0.00191, 0.00357, - + 0.27980, 0.08004, 0.06335, 0.00284, 0.00058, - + 0.00010, 0.00179, 0.00330/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ - + 0.26482, 0.07516, 0.05562, 0.00276, 0.00057, - + 0.00016, 0.00166, 0.00297, - + 0.25128, 0.07085, 0.04929, 0.00268, 0.00052, - + 0.00018, 0.00155, 0.00274, - + 0.23911, 0.06701, 0.04403, 0.00253, 0.00052, - + 0.00018, 0.00148, 0.00255, - + 0.22825, 0.06354, 0.03958, 0.00229, 0.00050, - + 0.00021, 0.00146, 0.00245, - + 0.21816, 0.06036, 0.03582, 0.00224, 0.00045, - + 0.00021, 0.00132, 0.00229, - + 0.20901, 0.05747, 0.03260, 0.00212, 0.00045, - + 0.00022, 0.00125, 0.00215, - + 0.20068, 0.05483, 0.02983, 0.00196, 0.00050, - + 0.00025, 0.00124, 0.00205/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,21)/ - + 0.19288, 0.05244, 0.02741, 0.00183, 0.00049, - + 0.00023, 0.00117, 0.00195, - + 0.18566, 0.05024, 0.02530, 0.00176, 0.00047, - + 0.00023, 0.00112, 0.00184, - + 0.17891, 0.04819, 0.02346, 0.00177, 0.00045, - + 0.00024, 0.00108, 0.00169, - + 0.17265, 0.04631, 0.02182, 0.00169, 0.00043, - + 0.00023, 0.00103, 0.00163, - + 0.16682, 0.04457, 0.02036, 0.00155, 0.00041, - + 0.00020, 0.00097, 0.00161, - + 0.16137, 0.04293, 0.01907, 0.00147, 0.00040, - + 0.00019, 0.00091, 0.00157, - + 0.15629, 0.04140, 0.01792, 0.00141, 0.00040, - + 0.00019, 0.00086, 0.00152/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=22,30)/ - + 0.15154, 0.03998, 0.01687, 0.00134, 0.00039, - + 0.00019, 0.00083, 0.00142, - + 0.14709, 0.03866, 0.01592, 0.00128, 0.00038, - + 0.00019, 0.00081, 0.00130, - + 0.14285, 0.03742, 0.01506, 0.00123, 0.00037, - + 0.00019, 0.00079, 0.00121, - + 0.13872, 0.03624, 0.01427, 0.00122, 0.00037, - + 0.00021, 0.00078, 0.00116, - + 0.13484, 0.03513, 0.01354, 0.00121, 0.00037, - + 0.00022, 0.00076, 0.00111, - + 0.13122, 0.03407, 0.01289, 0.00117, 0.00036, - + 0.00021, 0.00074, 0.00109, - + 0.12781, 0.03307, 0.01228, 0.00113, 0.00035, - + 0.00020, 0.00072, 0.00108, - + 0.12457, 0.03213, 0.01172, 0.00109, 0.00034, - + 0.00019, 0.00070, 0.00105, - + 0.12147, 0.03124, 0.01121, 0.00106, 0.00034, - + 0.00020, 0.00068, 0.00099/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + 0.39000, 0.11349, 0.14863, 0.00320, 0.00011, - + 0.00004, 0.00186, 0.00368, - + 0.35471, 0.10154, 0.11669, 0.00298, 0.00027, - + 0.00003, 0.00172, 0.00336, - + 0.32551, 0.09213, 0.09418, 0.00271, 0.00028, - + 0.00008, 0.00160, 0.00315, - + 0.30121, 0.08427, 0.07772, 0.00243, 0.00030, - + 0.00004, 0.00145, 0.00298, - + 0.28044, 0.07772, 0.06535, 0.00233, 0.00037, - + 0.00000, 0.00133, 0.00255, - + 0.26261, 0.07203, 0.05573, 0.00218, 0.00036, - + 0.00005, 0.00124, 0.00231, - + 0.24665, 0.06714, 0.04814, 0.00210, 0.00036, - + 0.00010, 0.00117, 0.00216/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ - + 0.23266, 0.06281, 0.04203, 0.00197, 0.00035, - + 0.00011, 0.00108, 0.00200, - + 0.22026, 0.05898, 0.03702, 0.00180, 0.00035, - + 0.00011, 0.00102, 0.00186, - + 0.20906, 0.05562, 0.03291, 0.00166, 0.00034, - + 0.00011, 0.00095, 0.00175, - + 0.19897, 0.05262, 0.02947, 0.00158, 0.00031, - + 0.00013, 0.00091, 0.00158, - + 0.18970, 0.04982, 0.02659, 0.00150, 0.00031, - + 0.00010, 0.00087, 0.00143, - + 0.18111, 0.04733, 0.02412, 0.00148, 0.00031, - + 0.00009, 0.00082, 0.00136, - + 0.17317, 0.04511, 0.02198, 0.00147, 0.00029, - + 0.00010, 0.00078, 0.00133/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,21)/ - + 0.16624, 0.04303, 0.02016, 0.00131, 0.00028, - + 0.00010, 0.00073, 0.00125, - + 0.15980, 0.04112, 0.01856, 0.00116, 0.00027, - + 0.00009, 0.00069, 0.00119, - + 0.15375, 0.03934, 0.01715, 0.00105, 0.00026, - + 0.00010, 0.00067, 0.00116, - + 0.14800, 0.03771, 0.01591, 0.00105, 0.00025, - + 0.00011, 0.00065, 0.00109, - + 0.14259, 0.03622, 0.01481, 0.00113, 0.00025, - + 0.00012, 0.00063, 0.00099, - + 0.13769, 0.03483, 0.01384, 0.00108, 0.00025, - + 0.00011, 0.00060, 0.00093, - + 0.13319, 0.03353, 0.01297, 0.00097, 0.00025, - + 0.00010, 0.00056, 0.00089/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=22,30)/ - + 0.12884, 0.03233, 0.01219, 0.00094, 0.00026, - + 0.00010, 0.00055, 0.00086, - + 0.12468, 0.03121, 0.01149, 0.00096, 0.00027, - + 0.00012, 0.00054, 0.00083, - + 0.12080, 0.03015, 0.01085, 0.00095, 0.00027, - + 0.00014, 0.00053, 0.00082, - + 0.11721, 0.02914, 0.01026, 0.00089, 0.00025, - + 0.00013, 0.00052, 0.00082, - + 0.11384, 0.02818, 0.00972, 0.00083, 0.00024, - + 0.00013, 0.00050, 0.00083, - + 0.11065, 0.02729, 0.00924, 0.00075, 0.00023, - + 0.00012, 0.00048, 0.00080, - + 0.10764, 0.02646, 0.00879, 0.00068, 0.00021, - + 0.00012, 0.00046, 0.00078, - + 0.10477, 0.02567, 0.00838, 0.00063, 0.00020, - + 0.00011, 0.00044, 0.00075, - + 0.10194, 0.02493, 0.00801, 0.00064, 0.00019, - + 0.00011, 0.00042, 0.00073/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + 0.35067, 0.09674, 0.11784, 0.00210, 0.00003, - + 0.00003, 0.00124, 0.00266, - + 0.31677, 0.08600, 0.09133, 0.00189, 0.00020, - + -0.00002, 0.00116, 0.00229, - + 0.28912, 0.07753, 0.07290, 0.00163, 0.00024, - + -0.00001, 0.00107, 0.00215, - + 0.26605, 0.07052, 0.05946, 0.00161, 0.00027, - + 0.00006, 0.00100, 0.00188, - + 0.24656, 0.06464, 0.04958, 0.00148, 0.00025, - + 0.00000, 0.00091, 0.00170, - + 0.22976, 0.05969, 0.04195, 0.00133, 0.00026, - + 0.00002, 0.00086, 0.00158, - + 0.21487, 0.05541, 0.03598, 0.00143, 0.00027, - + 0.00006, 0.00082, 0.00143/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ - + 0.20206, 0.05164, 0.03124, 0.00128, 0.00027, - + 0.00007, 0.00078, 0.00129, - + 0.19067, 0.04833, 0.02738, 0.00107, 0.00025, - + 0.00005, 0.00069, 0.00116, - + 0.18018, 0.04540, 0.02420, 0.00104, 0.00026, - + 0.00004, 0.00062, 0.00110, - + 0.17094, 0.04275, 0.02158, 0.00099, 0.00025, - + 0.00009, 0.00062, 0.00115, - + 0.16260, 0.04041, 0.01939, 0.00093, 0.00026, - + 0.00007, 0.00058, 0.00100, - + 0.15494, 0.03828, 0.01753, 0.00087, 0.00025, - + 0.00008, 0.00056, 0.00091, - + 0.14789, 0.03634, 0.01593, 0.00083, 0.00022, - + 0.00011, 0.00055, 0.00087/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,21)/ - + 0.14143, 0.03462, 0.01455, 0.00076, 0.00023, - + 0.00010, 0.00052, 0.00083, - + 0.13553, 0.03303, 0.01336, 0.00071, 0.00024, - + 0.00010, 0.00050, 0.00078, - + 0.13011, 0.03153, 0.01231, 0.00069, 0.00022, - + 0.00010, 0.00049, 0.00071, - + 0.12507, 0.03016, 0.01140, 0.00064, 0.00022, - + 0.00011, 0.00048, 0.00067, - + 0.12038, 0.02889, 0.01059, 0.00059, 0.00022, - + 0.00014, 0.00048, 0.00067, - + 0.11595, 0.02773, 0.00987, 0.00058, 0.00022, - + 0.00014, 0.00046, 0.00063, - + 0.11178, 0.02665, 0.00922, 0.00059, 0.00021, - + 0.00012, 0.00044, 0.00058/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=22,30)/ - + 0.10793, 0.02564, 0.00865, 0.00058, 0.00021, - + 0.00012, 0.00042, 0.00056, - + 0.10436, 0.02470, 0.00813, 0.00054, 0.00021, - + 0.00013, 0.00040, 0.00054, - + 0.10100, 0.02382, 0.00767, 0.00051, 0.00020, - + 0.00013, 0.00038, 0.00052, - + 0.09781, 0.02300, 0.00725, 0.00048, 0.00019, - + 0.00012, 0.00036, 0.00049, - + 0.09482, 0.02222, 0.00686, 0.00045, 0.00018, - + 0.00011, 0.00034, 0.00046, - + 0.09195, 0.02148, 0.00652, 0.00044, 0.00018, - + 0.00011, 0.00033, 0.00047, - + 0.08925, 0.02078, 0.00620, 0.00043, 0.00019, - + 0.00011, 0.00033, 0.00048, - + 0.08671, 0.02013, 0.00590, 0.00042, 0.00019, - + 0.00011, 0.00033, 0.00048, - + 0.08433, 0.01951, 0.00563, 0.00039, 0.00017, - + 0.00011, 0.00031, 0.00043/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + 0.31178, 0.08159, 0.09265, 0.00138, 0.00003, - + -0.00002, 0.00080, 0.00178, - + 0.27963, 0.07214, 0.07082, 0.00135, 0.00009, - + -0.00004, 0.00072, 0.00164, - + 0.25388, 0.06464, 0.05594, 0.00128, 0.00010, - + -0.00003, 0.00065, 0.00129, - + 0.23278, 0.05841, 0.04523, 0.00102, 0.00013, - + -0.00007, 0.00063, 0.00123, - + 0.21460, 0.05336, 0.03742, 0.00100, 0.00013, - + -0.00007, 0.00059, 0.00111, - + 0.19920, 0.04905, 0.03144, 0.00092, 0.00014, - + -0.00002, 0.00057, 0.00104, - + 0.18573, 0.04535, 0.02680, 0.00091, 0.00017, - + 0.00002, 0.00053, 0.00092/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ - + 0.17376, 0.04214, 0.02314, 0.00089, 0.00017, - + 0.00001, 0.00048, 0.00084, - + 0.16336, 0.03930, 0.02018, 0.00076, 0.00014, - + 0.00001, 0.00044, 0.00079, - + 0.15407, 0.03678, 0.01774, 0.00070, 0.00014, - + 0.00001, 0.00041, 0.00071, - + 0.14560, 0.03458, 0.01577, 0.00072, 0.00013, - + 0.00000, 0.00033, 0.00061, - + 0.13807, 0.03259, 0.01410, 0.00066, 0.00015, - + 0.00004, 0.00035, 0.00060, - + 0.13120, 0.03080, 0.01270, 0.00062, 0.00015, - + 0.00005, 0.00035, 0.00056, - + 0.12492, 0.02919, 0.01151, 0.00060, 0.00013, - + 0.00003, 0.00033, 0.00049/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,21)/ - + 0.11918, 0.02770, 0.01049, 0.00056, 0.00013, - + 0.00004, 0.00031, 0.00050, - + 0.11397, 0.02633, 0.00961, 0.00052, 0.00014, - + 0.00005, 0.00030, 0.00050, - + 0.10921, 0.02508, 0.00884, 0.00046, 0.00015, - + 0.00006, 0.00029, 0.00049, - + 0.10479, 0.02393, 0.00817, 0.00040, 0.00015, - + 0.00008, 0.00028, 0.00049, - + 0.10069, 0.02289, 0.00757, 0.00035, 0.00014, - + 0.00009, 0.00027, 0.00049, - + 0.09683, 0.02193, 0.00705, 0.00033, 0.00013, - + 0.00009, 0.00026, 0.00046, - + 0.09322, 0.02105, 0.00658, 0.00032, 0.00014, - + 0.00008, 0.00026, 0.00041/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=22,30)/ - + 0.08982, 0.02022, 0.00616, 0.00033, 0.00014, - + 0.00008, 0.00025, 0.00039, - + 0.08663, 0.01943, 0.00578, 0.00033, 0.00014, - + 0.00007, 0.00024, 0.00038, - + 0.08366, 0.01870, 0.00544, 0.00033, 0.00014, - + 0.00007, 0.00023, 0.00037, - + 0.08091, 0.01802, 0.00513, 0.00031, 0.00013, - + 0.00006, 0.00022, 0.00033, - + 0.07833, 0.01740, 0.00485, 0.00028, 0.00012, - + 0.00006, 0.00021, 0.00030, - + 0.07583, 0.01679, 0.00460, 0.00028, 0.00011, - + 0.00006, 0.00020, 0.00029, - + 0.07347, 0.01622, 0.00437, 0.00029, 0.00011, - + 0.00005, 0.00019, 0.00028, - + 0.07125, 0.01569, 0.00415, 0.00029, 0.00010, - + 0.00005, 0.00019, 0.00027, - + 0.06916, 0.01519, 0.00395, 0.00027, 0.00010, - + 0.00005, 0.00017, 0.00026/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + 0.27403, 0.06783, 0.07197, 0.00094, 0.00000, - + 0.00000, 0.00049, 0.00113, - + 0.24431, 0.05954, 0.05433, 0.00083, 0.00001, - + -0.00006, 0.00045, 0.00104, - + 0.22030, 0.05306, 0.04242, 0.00087, 0.00007, - + 0.00001, 0.00044, 0.00092, - + 0.20093, 0.04776, 0.03399, 0.00076, 0.00006, - + 0.00000, 0.00040, 0.00079, - + 0.18429, 0.04340, 0.02789, 0.00074, 0.00006, - + -0.00005, 0.00036, 0.00067, - + 0.17022, 0.03979, 0.02328, 0.00075, 0.00008, - + -0.00004, 0.00032, 0.00058, - + 0.15809, 0.03666, 0.01971, 0.00074, 0.00007, - + -0.00001, 0.00030, 0.00050/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ - + 0.14762, 0.03391, 0.01691, 0.00062, 0.00008, - + -0.00001, 0.00027, 0.00046, - + 0.13828, 0.03152, 0.01467, 0.00055, 0.00010, - + -0.00001, 0.00028, 0.00044, - + 0.13000, 0.02940, 0.01287, 0.00050, 0.00012, - + 0.00001, 0.00029, 0.00042, - + 0.12249, 0.02755, 0.01139, 0.00051, 0.00010, - + 0.00001, 0.00024, 0.00037, - + 0.11589, 0.02589, 0.01014, 0.00042, 0.00011, - + 0.00001, 0.00023, 0.00035, - + 0.10986, 0.02440, 0.00910, 0.00038, 0.00010, - + 0.00002, 0.00022, 0.00033, - + 0.10434, 0.02306, 0.00822, 0.00037, 0.00009, - + 0.00003, 0.00020, 0.00033/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,21)/ - + 0.09940, 0.02182, 0.00747, 0.00030, 0.00008, - + 0.00005, 0.00021, 0.00034, - + 0.09485, 0.02070, 0.00682, 0.00026, 0.00009, - + 0.00007, 0.00021, 0.00034, - + 0.09060, 0.01970, 0.00626, 0.00025, 0.00011, - + 0.00006, 0.00021, 0.00032, - + 0.08668, 0.01877, 0.00577, 0.00024, 0.00011, - + 0.00005, 0.00019, 0.00030, - + 0.08305, 0.01791, 0.00533, 0.00023, 0.00010, - + 0.00004, 0.00016, 0.00028, - + 0.07970, 0.01712, 0.00496, 0.00021, 0.00010, - + 0.00004, 0.00016, 0.00026, - + 0.07661, 0.01638, 0.00462, 0.00018, 0.00010, - + 0.00005, 0.00017, 0.00025/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=22,30)/ - + 0.07371, 0.01570, 0.00432, 0.00017, 0.00010, - + 0.00004, 0.00016, 0.00023, - + 0.07100, 0.01508, 0.00405, 0.00017, 0.00008, - + 0.00003, 0.00015, 0.00020, - + 0.06846, 0.01449, 0.00381, 0.00016, 0.00007, - + 0.00002, 0.00013, 0.00019, - + 0.06606, 0.01393, 0.00358, 0.00014, 0.00007, - + 0.00003, 0.00013, 0.00021, - + 0.06382, 0.01342, 0.00338, 0.00012, 0.00006, - + 0.00003, 0.00012, 0.00022, - + 0.06170, 0.01293, 0.00320, 0.00012, 0.00007, - + 0.00003, 0.00012, 0.00021, - + 0.05970, 0.01248, 0.00303, 0.00013, 0.00007, - + 0.00003, 0.00012, 0.00020, - + 0.05782, 0.01206, 0.00288, 0.00013, 0.00007, - + 0.00003, 0.00012, 0.00019, - + 0.05604, 0.01166, 0.00274, 0.00013, 0.00006, - + 0.00003, 0.00011, 0.00018/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + 0.23821, 0.05558, 0.05514, 0.00045, -0.00005, - + -0.00009, 0.00024, 0.00081, - + 0.21065, 0.04853, 0.04109, 0.00064, -0.00001, - + -0.00005, 0.00029, 0.00071, - + 0.18877, 0.04298, 0.03169, 0.00063, 0.00003, - + -0.00005, 0.00027, 0.00049, - + 0.17121, 0.03848, 0.02515, 0.00053, 0.00002, - + -0.00006, 0.00022, 0.00040, - + 0.15646, 0.03481, 0.02042, 0.00050, 0.00004, - + -0.00006, 0.00022, 0.00038, - + 0.14398, 0.03172, 0.01692, 0.00041, 0.00006, - + -0.00003, 0.00020, 0.00039, - + 0.13318, 0.02910, 0.01425, 0.00037, 0.00008, - + -0.00001, 0.00021, 0.00036/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ - + 0.12387, 0.02685, 0.01216, 0.00032, 0.00009, - + 0.00000, 0.00020, 0.00031, - + 0.11570, 0.02487, 0.01049, 0.00027, 0.00009, - + 0.00001, 0.00019, 0.00028, - + 0.10834, 0.02311, 0.00915, 0.00025, 0.00007, - + 0.00000, 0.00018, 0.00025, - + 0.10174, 0.02159, 0.00805, 0.00027, 0.00006, - + 0.00001, 0.00017, 0.00024, - + 0.09589, 0.02021, 0.00715, 0.00024, 0.00007, - + 0.00003, 0.00017, 0.00025, - + 0.09064, 0.01899, 0.00640, 0.00021, 0.00009, - + 0.00004, 0.00016, 0.00024, - + 0.08590, 0.01791, 0.00576, 0.00019, 0.00010, - + 0.00003, 0.00016, 0.00021/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,21)/ - + 0.08153, 0.01692, 0.00522, 0.00016, 0.00009, - + 0.00003, 0.00014, 0.00023, - + 0.07755, 0.01602, 0.00476, 0.00014, 0.00008, - + 0.00003, 0.00013, 0.00023, - + 0.07391, 0.01519, 0.00435, 0.00014, 0.00007, - + 0.00003, 0.00013, 0.00020, - + 0.07055, 0.01443, 0.00400, 0.00014, 0.00007, - + 0.00003, 0.00013, 0.00018, - + 0.06744, 0.01374, 0.00369, 0.00014, 0.00007, - + 0.00003, 0.00012, 0.00017, - + 0.06460, 0.01310, 0.00342, 0.00012, 0.00007, - + 0.00003, 0.00011, 0.00016, - + 0.06198, 0.01250, 0.00318, 0.00009, 0.00006, - + 0.00003, 0.00010, 0.00015/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=22,30)/ - + 0.05954, 0.01197, 0.00297, 0.00007, 0.00006, - + 0.00003, 0.00010, 0.00014, - + 0.05725, 0.01147, 0.00278, 0.00006, 0.00006, - + 0.00003, 0.00010, 0.00013, - + 0.05511, 0.01101, 0.00261, 0.00006, 0.00006, - + 0.00003, 0.00010, 0.00012, - + 0.05309, 0.01057, 0.00246, 0.00006, 0.00005, - + 0.00003, 0.00010, 0.00011, - + 0.05121, 0.01016, 0.00232, 0.00006, 0.00004, - + 0.00003, 0.00009, 0.00011, - + 0.04940, 0.00977, 0.00219, 0.00007, 0.00004, - + 0.00002, 0.00009, 0.00011, - + 0.04771, 0.00942, 0.00208, 0.00007, 0.00004, - + 0.00002, 0.00008, 0.00010, - + 0.04612, 0.00908, 0.00197, 0.00008, 0.00004, - + 0.00002, 0.00008, 0.00010, - + 0.04462, 0.00876, 0.00187, 0.00008, 0.00005, - + 0.00003, 0.00007, 0.00010/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + 0.20410, 0.04487, 0.04164, 0.00022, -0.00001, - + -0.00006, 0.00019, 0.00051, - + 0.17917, 0.03887, 0.03055, 0.00036, 0.00001, - + -0.00005, 0.00013, 0.00041, - + 0.15986, 0.03423, 0.02330, 0.00032, 0.00003, - + -0.00004, 0.00015, 0.00027, - + 0.14406, 0.03047, 0.01830, 0.00027, 0.00003, - + -0.00006, 0.00014, 0.00024, - + 0.13094, 0.02743, 0.01473, 0.00028, 0.00005, - + -0.00002, 0.00015, 0.00025, - + 0.12002, 0.02486, 0.01212, 0.00019, 0.00006, - + -0.00002, 0.00014, 0.00022, - + 0.11055, 0.02271, 0.01014, 0.00020, 0.00005, - + -0.00002, 0.00014, 0.00018/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ - + 0.10224, 0.02087, 0.00859, 0.00021, 0.00006, - + 0.00000, 0.00013, 0.00016, - + 0.09504, 0.01926, 0.00738, 0.00019, 0.00006, - + 0.00000, 0.00012, 0.00015, - + 0.08876, 0.01786, 0.00641, 0.00015, 0.00004, - + 0.00000, 0.00011, 0.00013, - + 0.08320, 0.01662, 0.00562, 0.00011, 0.00005, - + 0.00004, 0.00012, 0.00017, - + 0.07822, 0.01552, 0.00497, 0.00008, 0.00006, - + 0.00003, 0.00012, 0.00014, - + 0.07369, 0.01454, 0.00443, 0.00007, 0.00007, - + 0.00003, 0.00011, 0.00013, - + 0.06956, 0.01365, 0.00398, 0.00008, 0.00007, - + 0.00004, 0.00011, 0.00015/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,21)/ - + 0.06584, 0.01286, 0.00359, 0.00009, 0.00006, - + 0.00003, 0.00010, 0.00014, - + 0.06246, 0.01215, 0.00326, 0.00009, 0.00006, - + 0.00003, 0.00009, 0.00012, - + 0.05937, 0.01150, 0.00298, 0.00010, 0.00007, - + 0.00004, 0.00009, 0.00010, - + 0.05656, 0.01091, 0.00274, 0.00008, 0.00006, - + 0.00003, 0.00008, 0.00008, - + 0.05399, 0.01036, 0.00252, 0.00006, 0.00005, - + 0.00002, 0.00007, 0.00007, - + 0.05158, 0.00986, 0.00233, 0.00006, 0.00005, - + 0.00002, 0.00007, 0.00006, - + 0.04933, 0.00940, 0.00216, 0.00006, 0.00004, - + 0.00003, 0.00007, 0.00005/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=22,30)/ - + 0.04728, 0.00897, 0.00202, 0.00005, 0.00004, - + 0.00003, 0.00007, 0.00005, - + 0.04541, 0.00857, 0.00188, 0.00003, 0.00004, - + 0.00003, 0.00007, 0.00007, - + 0.04364, 0.00820, 0.00177, 0.00003, 0.00004, - + 0.00003, 0.00006, 0.00007, - + 0.04194, 0.00786, 0.00166, 0.00004, 0.00005, - + 0.00003, 0.00006, 0.00007, - + 0.04036, 0.00755, 0.00156, 0.00005, 0.00005, - + 0.00003, 0.00006, 0.00007, - + 0.03890, 0.00725, 0.00148, 0.00004, 0.00005, - + 0.00003, 0.00006, 0.00007, - + 0.03753, 0.00698, 0.00140, 0.00002, 0.00005, - + 0.00003, 0.00006, 0.00006, - + 0.03625, 0.00672, 0.00132, 0.00000, 0.00005, - + 0.00003, 0.00005, 0.00006, - + 0.03503, 0.00647, 0.00126, 0.00000, 0.00005, - + 0.00003, 0.00006, 0.00007/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + 0.17243, 0.03586, 0.03108, 0.00036, -0.00006, - + -0.00010, 0.00006, 0.00020, - + 0.15055, 0.03081, 0.02247, 0.00027, -0.00006, - + -0.00010, 0.00006, 0.00024, - + 0.13329, 0.02693, 0.01695, 0.00032, -0.00002, - + -0.00007, 0.00006, 0.00020, - + 0.11960, 0.02386, 0.01319, 0.00021, 0.00000, - + -0.00005, 0.00008, 0.00018, - + 0.10826, 0.02138, 0.01055, 0.00017, 0.00002, - + -0.00004, 0.00008, 0.00018, - + 0.09872, 0.01929, 0.00862, 0.00012, 0.00002, - + -0.00004, 0.00008, 0.00015, - + 0.09063, 0.01755, 0.00716, 0.00007, 0.00003, - + -0.00003, 0.00006, 0.00013/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ - + 0.08356, 0.01606, 0.00604, 0.00010, 0.00004, - + -0.00001, 0.00007, 0.00011, - + 0.07739, 0.01477, 0.00517, 0.00012, 0.00004, - + 0.00000, 0.00007, 0.00010, - + 0.07197, 0.01365, 0.00447, 0.00012, 0.00004, - + 0.00000, 0.00005, 0.00008, - + 0.06723, 0.01267, 0.00390, 0.00010, 0.00004, - + 0.00000, 0.00006, 0.00007, - + 0.06299, 0.01179, 0.00344, 0.00008, 0.00003, - + 0.00001, 0.00006, 0.00007, - + 0.05917, 0.01102, 0.00306, 0.00008, 0.00003, - + 0.00001, 0.00006, 0.00007, - + 0.05571, 0.01033, 0.00274, 0.00009, 0.00003, - + 0.00000, 0.00006, 0.00008/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,21)/ - + 0.05262, 0.00971, 0.00247, 0.00007, 0.00003, - + 0.00001, 0.00005, 0.00008, - + 0.04982, 0.00914, 0.00224, 0.00006, 0.00003, - + 0.00002, 0.00005, 0.00008, - + 0.04726, 0.00863, 0.00204, 0.00005, 0.00004, - + 0.00002, 0.00005, 0.00008, - + 0.04491, 0.00816, 0.00187, 0.00005, 0.00003, - + 0.00001, 0.00005, 0.00007, - + 0.04275, 0.00775, 0.00172, 0.00005, 0.00002, - + 0.00001, 0.00004, 0.00006, - + 0.04076, 0.00736, 0.00159, 0.00005, 0.00003, - + 0.00001, 0.00004, 0.00005, - + 0.03892, 0.00700, 0.00147, 0.00005, 0.00003, - + 0.00001, 0.00004, 0.00004/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=22,30)/ - + 0.03722, 0.00667, 0.00137, 0.00005, 0.00003, - + 0.00001, 0.00004, 0.00004, - + 0.03564, 0.00636, 0.00128, 0.00005, 0.00003, - + 0.00001, 0.00004, 0.00004, - + 0.03417, 0.00608, 0.00119, 0.00005, 0.00002, - + 0.00001, 0.00004, 0.00004, - + 0.03283, 0.00582, 0.00112, 0.00004, 0.00002, - + 0.00001, 0.00003, 0.00004, - + 0.03158, 0.00558, 0.00105, 0.00003, 0.00002, - + 0.00001, 0.00003, 0.00003, - + 0.03038, 0.00535, 0.00099, 0.00002, 0.00002, - + 0.00001, 0.00003, 0.00003, - + 0.02926, 0.00514, 0.00094, 0.00002, 0.00002, - + 0.00001, 0.00003, 0.00003, - + 0.02821, 0.00495, 0.00089, 0.00002, 0.00002, - + 0.00001, 0.00003, 0.00003, - + 0.02720, 0.00476, 0.00084, 0.00002, 0.00002, - + 0.00001, 0.00002, 0.00004/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + 0.14323, 0.02791, 0.02263, 0.00021, -0.00001, - + -0.00003, 0.00004, 0.00016, - + 0.12432, 0.02386, 0.01621, 0.00014, -0.00002, - + -0.00001, 0.00005, 0.00017, - + 0.10958, 0.02075, 0.01211, 0.00012, 0.00002, - + 0.00000, 0.00006, 0.00013, - + 0.09764, 0.01831, 0.00935, 0.00015, -0.00001, - + -0.00003, 0.00004, 0.00008, - + 0.08793, 0.01633, 0.00742, 0.00014, 0.00000, - + -0.00001, 0.00004, 0.00007, - + 0.07987, 0.01469, 0.00602, 0.00012, -0.00001, - + 0.00000, 0.00004, 0.00007, - + 0.07293, 0.01331, 0.00497, 0.00013, 0.00000, - + 0.00000, 0.00004, 0.00007/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ - + 0.06702, 0.01214, 0.00418, 0.00010, 0.00000, - + -0.00001, 0.00004, 0.00007, - + 0.06192, 0.01114, 0.00355, 0.00007, 0.00000, - + -0.00002, 0.00003, 0.00006, - + 0.05741, 0.01026, 0.00306, 0.00009, 0.00000, - + -0.00001, 0.00003, 0.00005, - + 0.05345, 0.00949, 0.00267, 0.00006, 0.00000, - + 0.00000, 0.00002, 0.00008, - + 0.04996, 0.00881, 0.00234, 0.00003, 0.00000, - + 0.00000, 0.00002, 0.00007, - + 0.04680, 0.00821, 0.00207, 0.00003, 0.00000, - + 0.00000, 0.00001, 0.00006, - + 0.04393, 0.00768, 0.00185, 0.00006, 0.00000, - + -0.00001, 0.00001, 0.00005/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,21)/ - + 0.04139, 0.00720, 0.00166, 0.00004, 0.00000, - + 0.00000, 0.00002, 0.00006, - + 0.03908, 0.00677, 0.00150, 0.00004, 0.00001, - + 0.00000, 0.00002, 0.00006, - + 0.03696, 0.00638, 0.00137, 0.00006, 0.00001, - + 0.00000, 0.00002, 0.00004, - + 0.03504, 0.00603, 0.00125, 0.00006, 0.00001, - + 0.00000, 0.00001, 0.00003, - + 0.03329, 0.00570, 0.00115, 0.00006, 0.00000, - + 0.00000, 0.00001, 0.00004, - + 0.03169, 0.00540, 0.00106, 0.00005, 0.00000, - + 0.00000, 0.00001, 0.00003, - + 0.03020, 0.00513, 0.00098, 0.00004, 0.00000, - + 0.00000, 0.00001, 0.00003/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=22,30)/ - + 0.02883, 0.00487, 0.00091, 0.00004, 0.00000, - + 0.00000, 0.00001, 0.00003, - + 0.02755, 0.00465, 0.00085, 0.00004, 0.00000, - + 0.00000, 0.00001, 0.00003, - + 0.02637, 0.00443, 0.00079, 0.00004, 0.00000, - + 0.00000, 0.00001, 0.00003, - + 0.02528, 0.00424, 0.00074, 0.00003, 0.00001, - + 0.00000, 0.00001, 0.00003, - + 0.02427, 0.00405, 0.00070, 0.00003, 0.00001, - + 0.00000, 0.00001, 0.00003, - + 0.02332, 0.00388, 0.00066, 0.00003, 0.00000, - + 0.00000, 0.00001, 0.00002, - + 0.02244, 0.00372, 0.00062, 0.00002, 0.00000, - + -0.00001, 0.00001, 0.00002, - + 0.02160, 0.00357, 0.00059, 0.00001, 0.00000, - + -0.00001, 0.00000, 0.00002, - + 0.02081, 0.00343, 0.00056, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00002/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + 0.09393, 0.01597, 0.01130, 0.00005, -0.00002, - + -0.00002, 0.00000, 0.00005, - + 0.08034, 0.01343, 0.00786, 0.00002, -0.00001, - + -0.00001, 0.00001, 0.00003, - + 0.06980, 0.01154, 0.00572, 0.00003, 0.00000, - + -0.00002, 0.00000, 0.00001, - + 0.06138, 0.01005, 0.00432, 0.00008, 0.00002, - + 0.00000, 0.00002, 0.00002, - + 0.05467, 0.00886, 0.00337, 0.00005, 0.00001, - + 0.00000, 0.00002, 0.00003, - + 0.04918, 0.00789, 0.00269, 0.00003, 0.00001, - + 0.00000, 0.00002, 0.00002, - + 0.04455, 0.00709, 0.00219, 0.00003, 0.00001, - + 0.00001, 0.00002, 0.00001/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ - + 0.04055, 0.00641, 0.00182, 0.00004, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.03711, 0.00582, 0.00153, 0.00003, 0.00000, - + 0.00000, 0.00001, 0.00002, - + 0.03416, 0.00532, 0.00131, 0.00002, 0.00001, - + 0.00001, 0.00001, 0.00003, - + 0.03157, 0.00489, 0.00113, 0.00003, 0.00001, - + 0.00001, 0.00001, 0.00002, - + 0.02928, 0.00451, 0.00098, 0.00003, 0.00001, - + 0.00001, 0.00001, 0.00002, - + 0.02726, 0.00418, 0.00087, 0.00002, 0.00001, - + 0.00001, 0.00001, 0.00002, - + 0.02546, 0.00388, 0.00077, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00002/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,21)/ - + 0.02386, 0.00362, 0.00069, 0.00000, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.02240, 0.00338, 0.00062, 0.00000, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.02106, 0.00317, 0.00056, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01987, 0.00298, 0.00051, 0.00001, 0.00001, - + 0.00000, 0.00000, 0.00001, - + 0.01881, 0.00280, 0.00046, -0.00001, 0.00000, - + 0.00000, 0.00000, 0.00002, - + 0.01782, 0.00264, 0.00043, -0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01690, 0.00250, 0.00039, 0.00000, 0.00000, - + 0.00000, 0.00001, 0.00001/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=22,30)/ - + 0.01605, 0.00237, 0.00036, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00000, - + 0.01527, 0.00225, 0.00034, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00000, - + 0.01455, 0.00213, 0.00032, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00000, - + 0.01389, 0.00203, 0.00029, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01329, 0.00194, 0.00028, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01271, 0.00185, 0.00026, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01218, 0.00176, 0.00024, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01168, 0.00169, 0.00023, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01121, 0.00162, 0.00022, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + 0.05668, 0.00830, 0.00510, 0.00003, -0.00002, - + -0.00001, -0.00001, -0.00001, - + 0.04758, 0.00687, 0.00344, 0.00002, -0.00001, - + -0.00002, -0.00001, 0.00000, - + 0.04073, 0.00581, 0.00244, 0.00002, -0.00001, - + -0.00002, -0.00001, 0.00001, - + 0.03545, 0.00500, 0.00180, 0.00002, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.03120, 0.00435, 0.00138, 0.00000, 0.00000, - + -0.00001, 0.00000, 0.00002, - + 0.02773, 0.00384, 0.00108, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.02485, 0.00341, 0.00087, 0.00000, 0.00001, - + 0.00000, 0.00000, 0.00001/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ - + 0.02242, 0.00306, 0.00071, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02035, 0.00276, 0.00059, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00000, - + 0.01858, 0.00250, 0.00050, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01704, 0.00228, 0.00043, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01568, 0.00208, 0.00037, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01449, 0.00192, 0.00033, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01344, 0.00177, 0.00029, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,21)/ - + 0.01252, 0.00164, 0.00026, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01169, 0.00152, 0.00023, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01093, 0.00142, 0.00021, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01025, 0.00133, 0.00019, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00964, 0.00124, 0.00017, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00908, 0.00117, 0.00016, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00857, 0.00110, 0.00014, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=22,30)/ - + 0.00811, 0.00103, 0.00013, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00769, 0.00098, 0.00012, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00729, 0.00092, 0.00011, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00693, 0.00087, 0.00011, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00659, 0.00083, 0.00010, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00628, 0.00079, 0.00009, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00600, 0.00075, 0.00009, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00573, 0.00072, 0.00008, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00548, 0.00068, 0.00008, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + 0.03031, 0.00375, 0.00199, 0.00002, -0.00001, - + -0.00001, -0.00001, 0.00000, - + 0.02501, 0.00305, 0.00129, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.02111, 0.00254, 0.00089, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01810, 0.00215, 0.00064, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01572, 0.00185, 0.00048, -0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01380, 0.00161, 0.00037, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01222, 0.00142, 0.00030, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ - + 0.01092, 0.00126, 0.00024, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00982, 0.00112, 0.00020, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00888, 0.00101, 0.00017, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00807, 0.00091, 0.00014, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00738, 0.00083, 0.00012, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00677, 0.00076, 0.00011, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00623, 0.00069, 0.00009, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,21)/ - + 0.00576, 0.00064, 0.00008, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00535, 0.00059, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00497, 0.00055, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00463, 0.00051, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00433, 0.00047, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00406, 0.00044, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00381, 0.00041, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=22,30)/ - + 0.00358, 0.00039, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00338, 0.00036, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00319, 0.00034, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00302, 0.00032, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00286, 0.00031, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00271, 0.00029, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00257, 0.00027, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00245, 0.00026, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00233, 0.00025, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + 0.01382, 0.00139, 0.00063, -0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01114, 0.00111, 0.00039, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00920, 0.00091, 0.00026, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00775, 0.00076, 0.00018, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00663, 0.00064, 0.00014, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00574, 0.00055, 0.00010, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00502, 0.00048, 0.00008, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ - + 0.00443, 0.00042, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00394, 0.00037, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00352, 0.00033, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00317, 0.00029, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00287, 0.00026, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00261, 0.00024, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00238, 0.00022, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,21)/ - + 0.00218, 0.00020, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00201, 0.00018, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00185, 0.00017, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00171, 0.00015, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00159, 0.00014, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00148, 0.00013, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00138, 0.00012, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=22,30)/ - + 0.00129, 0.00011, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00121, 0.00011, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00114, 0.00010, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00107, 0.00009, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00101, 0.00009, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00095, 0.00008, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00090, 0.00008, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00085, 0.00007, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00081, 0.00007, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + 0.00106, 0.00006, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00081, 0.00004, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00063, 0.00003, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00051, 0.00003, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00042, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00035, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00029, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ - + 0.00025, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00022, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00019, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00016, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00014, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00013, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,21)/ - + 0.00010, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00006, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00005, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=22,30)/ - + 0.00005, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00005, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00004, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00004, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00004, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00003, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00003, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00003, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00003, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,2.6844D9/ - DATA N0/2,5,4,5,0,0,5,5/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - XSAVE=X -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,30 -C READ(90,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7) GO TO 31 - DO 30 K=1,30 - 30 F(I,J,K)= LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,30 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,8 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) -C - X=XSAVE -C - RETURN - END diff --git a/PDF/spdf/sfmrsdm.F b/PDF/spdf/sfmrsdm.F deleted file mode 100644 index 33ffe81968e..00000000000 --- a/PDF/spdf/sfmrsdm.F +++ /dev/null @@ -1,3038 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:04 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:38 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFMRSDM(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) - -C THIS IS THE NEW B--TYPE FIT "D-" WITH UBAR < DBAR (215 MeV) - -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,31),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + 0.00474, 0.00363, 105.20667, 3.38287, 0.30745, - + 0.00000, 1.86600, 3.39947, - + 0.00517, 0.00380, 121.16353, 4.24797, 1.27579, - + 0.00001, 2.78413, 4.26519, - + 0.00557, 0.00395, 138.75592, 5.11115, 2.22680, - + 0.00002, 3.69250, 5.12894, - + 0.00594, 0.00410, 157.75523, 5.97252, 3.16435, - + 0.00001, 4.59312, 5.99085, - + 0.00629, 0.00425, 177.87869, 6.83674, 4.09564, - + 0.14925, 5.49195, 6.85557, - + 0.00662, 0.00439, 198.93768, 7.70980, 5.02859, - + 0.92479, 6.39593, 7.72909, - + 0.00694, 0.00452, 220.85381, 8.59461, 5.96762, - + 1.97792, 7.30878, 8.61436/ - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ - + 0.00724, 0.00465, 243.50656, 9.49181, 6.91431, - + 2.99075, 8.23158, 9.51201, - + 0.00753, 0.00478, 266.77148, 10.40060, 7.86857, - + 4.01220, 9.16391, 10.42123, - + 0.00781, 0.00490, 290.55444, 11.32081, 8.83074, - + 5.03527, 10.10586, 11.34183, - + 0.00808, 0.00502, 314.77856, 12.25117, 9.80005, - + 6.06144, 11.05640, 12.27258, - + 0.00834, 0.00514, 339.32031, 13.18602, 10.77122, - + 7.08568, 12.01009, 13.20786, - + 0.00860, 0.00526, 364.14795, 14.13060, 11.74976, - + 8.11388, 12.97228, 14.15279, - + 0.00884, 0.00537, 389.24976, 15.08508, 12.73609, - + 9.14683, 13.94328, 15.10761/ - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,21)/ - + 0.00908, 0.00548, 414.43823, 16.04021, 13.72123, - + 10.17600, 14.91399, 16.06311, - + 0.00932, 0.00559, 439.81250, 17.00414, 14.71346, - + 11.20982, 15.89262, 17.02740, - + 0.00955, 0.00570, 465.27539, 17.97191, 15.70803, - + 12.24380, 16.87430, 17.99550, - + 0.00977, 0.00580, 490.74780, 18.94206, 16.70360, - + 13.27682, 17.85767, 18.96600, - + 0.00999, 0.00591, 516.31274, 19.91797, 17.70364, - + 14.31248, 18.84610, 19.94223, - + 0.01021, 0.00601, 541.79224, 20.89288, 18.70155, - + 15.34435, 19.83296, 20.91747, - + 0.01042, 0.00611, 567.34644, 21.87302, 19.70363, - + 16.37881, 20.82449, 21.89790/ - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=22,30)/ - + 0.01062, 0.00621, 592.77295, 22.85214, 20.70374, - + 17.40994, 21.81450, 22.87732, - + 0.01083, 0.00630, 618.16821, 23.83340, 21.70506, - + 18.44102, 22.80620, 23.85892, - + 0.01102, 0.00640, 643.53052, 24.81667, 22.70757, - + 19.47205, 23.79945, 24.84247, - + 0.01122, 0.00649, 668.67798, 25.79578, 23.70514, - + 20.49706, 24.78816, 25.82185, - + 0.01141, 0.00658, 693.95557, 26.78209, 24.70917, - + 21.52742, 25.78366, 26.80841, - + 0.01160, 0.00667, 718.82617, 27.75861, 25.70277, - + 22.54646, 26.76904, 27.78525, - + 0.01178, 0.00676, 743.74561, 28.73950, 26.70012, - + 23.56830, 27.75848, 28.76640, - + 0.01197, 0.00685, 768.60937, 29.72150, 27.69794, - + 24.58977, 28.74870, 29.74866, - + 0.01214, 0.00694, 793.10669, 30.69447, 28.68623, - + 25.60092, 29.72961, 30.72191/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + 0.00683, 0.00483, 74.55249, 2.57252, 0.22193, - + 0.00000, 1.40853, 2.58222, - + 0.00742, 0.00507, 86.23500, 3.19392, 0.91734, - + 0.00000, 2.06769, 3.20396, - + 0.00797, 0.00530, 98.92352, 3.81089, 1.59730, - + 0.00001, 2.71685, 3.82126, - + 0.00847, 0.00552, 112.43947, 4.42376, 2.26482, - + 0.00001, 3.35767, 4.43443, - + 0.00895, 0.00573, 126.58798, 5.03572, 2.92491, - + 0.10560, 3.99427, 5.04666, - + 0.00940, 0.00593, 141.24376, 5.65085, 3.58305, - + 0.65255, 4.63144, 5.66205, - + 0.00982, 0.00612, 156.35168, 6.27119, 4.24232, - + 1.39282, 5.27175, 6.28265/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ - + 0.01023, 0.00631, 171.83012, 6.89708, 4.90378, - + 2.10131, 5.91589, 6.90878, - + 0.01063, 0.00649, 187.59732, 7.52796, 5.56734, - + 2.81259, 6.56356, 7.53990, - + 0.01101, 0.00666, 203.59380, 8.16373, 6.23331, - + 3.52181, 7.21484, 8.17590, - + 0.01137, 0.00683, 219.77072, 8.80358, 6.90118, - + 4.23006, 7.86909, 8.81601, - + 0.01173, 0.00700, 236.03085, 9.44334, 7.56708, - + 4.93363, 8.52229, 9.45599, - + 0.01207, 0.00716, 252.38057, 10.08700, 8.23518, - + 5.63700, 9.17852, 10.09986, - + 0.01241, 0.00732, 268.81860, 10.73486, 8.90599, - + 6.34090, 9.83819, 10.74792/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,21)/ - + 0.01273, 0.00748, 285.19336, 11.38000, 9.57275, - + 7.03892, 10.49446, 11.39326, - + 0.01305, 0.00763, 301.60645, 12.02873, 10.24188, - + 7.73756, 11.15369, 12.04218, - + 0.01336, 0.00777, 317.98486, 12.67747, 10.90994, - + 8.43359, 11.81239, 12.69112, - + 0.01366, 0.00792, 334.27686, 13.32524, 11.57604, - + 9.12626, 12.46959, 13.33912, - + 0.01396, 0.00806, 350.55249, 13.97468, 12.24290, - + 9.81837, 13.12800, 13.98872, - + 0.01424, 0.00820, 366.68384, 14.62085, 12.90568, - + 10.50524, 13.78272, 14.63507, - + 0.01453, 0.00834, 382.79565, 15.26848, 13.56915, - + 11.19168, 14.43851, 15.28287/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=22,30)/ - + 0.01480, 0.00847, 398.74438, 15.91307, 14.22888, - + 11.87343, 15.09090, 15.92764, - + 0.01507, 0.00860, 414.60596, 16.55704, 14.88737, - + 12.55300, 15.74235, 16.57179, - + 0.01534, 0.00873, 430.38257, 17.20036, 15.54459, - + 13.23046, 16.39282, 17.21529, - + 0.01560, 0.00886, 445.94849, 17.83865, 16.19623, - + 13.90155, 17.03799, 17.85376, - + 0.01585, 0.00899, 461.55200, 18.48032, 16.85071, - + 14.57470, 17.68625, 18.49554, - + 0.01610, 0.00911, 476.81738, 19.11299, 17.49574, - + 15.23778, 18.32530, 19.12840, - + 0.01635, 0.00923, 492.06763, 19.74713, 18.14180, - + 15.90118, 18.96558, 19.76270, - + 0.01659, 0.00935, 507.23267, 20.38034, 18.78647, - + 16.56261, 19.60469, 20.39604, - + 0.01683, 0.00947, 522.10156, 21.00551, 19.42273, - + 17.21509, 20.23557, 21.02136/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + 0.00981, 0.00643, 52.83357, 1.95700, 0.15981, - + 0.00000, 1.06382, 1.96251, - + 0.01062, 0.00679, 61.37857, 2.40251, 0.65822, - + 0.00000, 1.53612, 2.40820, - + 0.01137, 0.00712, 70.52628, 2.84290, 1.14366, - + 0.00000, 1.99935, 2.84878, - + 0.01206, 0.00744, 80.13821, 3.27844, 1.61827, - + 0.00000, 2.45471, 3.28448, - + 0.01271, 0.00774, 90.07974, 3.71125, 2.08553, - + 0.07462, 2.90501, 3.71745, - + 0.01332, 0.00802, 100.26997, 4.14415, 2.54921, - + 0.45994, 3.35354, 4.15049, - + 0.01390, 0.00830, 110.67050, 4.57849, 3.01142, - + 0.97970, 3.80205, 4.58496/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ - + 0.01446, 0.00856, 121.22859, 5.01450, 3.47291, - + 1.47465, 4.25101, 5.02111, - + 0.01499, 0.00882, 131.89154, 5.45177, 3.93359, - + 1.96928, 4.70019, 5.45851, - + 0.01551, 0.00906, 142.62386, 5.89030, 4.39376, - + 2.46021, 5.14972, 5.89717, - + 0.01601, 0.00930, 153.39543, 6.32957, 4.85312, - + 2.94828, 5.59922, 6.33656, - + 0.01649, 0.00953, 164.13260, 6.76648, 5.30877, - + 3.43072, 6.04567, 6.77359, - + 0.01695, 0.00976, 174.85992, 7.20417, 5.76400, - + 3.91101, 6.49229, 7.21138, - + 0.01740, 0.00998, 185.58228, 7.64293, 6.21922, - + 4.38976, 6.93943, 7.65026/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,21)/ - + 0.01784, 0.01020, 196.18077, 8.07762, 6.66944, - + 4.86220, 7.38204, 8.08508, - + 0.01827, 0.01040, 206.74886, 8.51312, 7.11959, - + 5.33332, 7.82500, 8.52070, - + 0.01868, 0.01061, 217.23164, 8.94685, 7.56719, - + 5.80080, 8.26579, 8.95454, - + 0.01909, 0.01081, 227.59798, 9.37814, 8.01164, - + 6.26412, 8.70379, 9.38593, - + 0.01948, 0.01100, 237.90340, 9.80905, 8.45509, - + 6.72551, 9.14108, 9.81694, - + 0.01987, 0.01120, 248.05699, 10.23599, 8.89397, - + 7.18150, 9.57411, 10.24398, - + 0.02025, 0.01138, 258.15405, 10.66256, 9.33192, - + 7.63579, 10.00648, 10.67067/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=22,30)/ - + 0.02061, 0.01157, 268.09570, 11.08548, 9.76574, - + 8.08524, 10.43496, 11.09367, - + 0.02097, 0.01175, 277.93726, 11.50662, 10.19732, - + 8.53179, 10.86142, 11.51489, - + 0.02133, 0.01192, 287.68506, 11.92604, 10.62675, - + 8.97558, 11.28594, 11.93442, - + 0.02167, 0.01210, 297.25171, 12.34058, 11.05090, - + 9.41355, 11.70538, 12.34906, - + 0.02202, 0.01227, 306.81494, 12.75640, 11.47597, - + 9.85188, 12.12592, 12.76496, - + 0.02235, 0.01244, 316.11328, 13.16469, 11.89316, - + 10.28186, 12.53873, 13.17331, - + 0.02268, 0.01260, 325.37402, 13.57296, 12.31001, - + 10.71104, 12.95139, 13.58169, - + 0.02300, 0.01276, 334.55054, 13.97959, 12.72491, - + 11.13785, 13.36223, 13.98843, - + 0.02331, 0.01292, 343.50073, 14.37952, 13.13284, - + 11.55727, 13.76623, 14.38841/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + 0.01211, 0.00760, 43.19687, 1.66822, 0.13173, - + 0.00000, 0.90319, 1.67223, - + 0.01309, 0.00805, 50.31007, 2.03458, 0.54152, - + 0.00000, 1.29146, 2.03874, - + 0.01399, 0.00847, 57.86238, 2.39590, 0.93982, - + 0.00001, 1.67143, 2.40019, - + 0.01482, 0.00886, 65.73433, 2.75232, 1.32835, - + 0.00000, 2.04406, 2.75674, - + 0.01559, 0.00923, 73.81813, 3.10554, 1.70984, - + 0.06087, 2.41156, 3.11006, - + 0.01633, 0.00958, 82.05162, 3.45776, 2.08736, - + 0.37461, 2.77656, 3.46239, - + 0.01702, 0.00991, 90.40471, 3.81010, 2.46260, - + 0.79698, 3.14048, 3.81483/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ - + 0.01769, 0.01024, 98.83658, 4.16271, 2.83614, - + 1.19798, 3.50366, 4.16754, - + 0.01833, 0.01055, 107.30779, 4.51529, 3.20796, - + 1.59762, 3.86597, 4.52021, - + 0.01895, 0.01085, 115.79259, 4.86784, 3.57830, - + 1.99319, 4.22752, 4.87285, - + 0.01954, 0.01114, 124.26961, 5.21998, 3.94696, - + 2.38539, 4.58801, 5.22508, - + 0.02011, 0.01143, 132.67622, 5.56915, 4.31155, - + 2.77192, 4.94498, 5.57434, - + 0.02067, 0.01170, 141.04211, 5.91801, 4.67483, - + 3.15575, 5.30114, 5.92328, - + 0.02121, 0.01197, 149.37447, 6.26689, 5.03725, - + 3.53746, 5.65687, 6.27224/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,21)/ - + 0.02173, 0.01223, 157.57074, 6.61146, 5.39460, - + 3.91301, 6.00790, 6.61690, - + 0.02223, 0.01248, 165.71786, 6.95591, 5.75110, - + 4.28670, 6.35845, 6.96142, - + 0.02273, 0.01273, 173.76973, 7.29809, 6.10470, - + 4.65659, 6.70641, 7.30367, - + 0.02321, 0.01297, 181.70335, 7.63750, 6.45496, - + 5.02231, 7.05131, 7.64317, - + 0.02368, 0.01320, 189.56662, 7.97591, 6.80368, - + 5.38575, 7.39495, 7.98165, - + 0.02413, 0.01343, 197.28546, 8.31036, 7.14796, - + 5.74405, 7.73437, 8.31617, - + 0.02458, 0.01366, 204.94165, 8.64386, 7.49085, - + 6.10032, 8.07262, 8.64975/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=22,30)/ - + 0.02502, 0.01388, 212.45361, 8.97375, 7.82972, - + 6.45199, 8.40705, 8.97973, - + 0.02544, 0.01410, 219.87009, 9.30161, 8.16618, - + 6.80072, 8.73927, 9.30763, - + 0.02586, 0.01431, 227.19678, 9.62750, 8.50031, - + 7.14663, 9.06934, 9.63361, - + 0.02627, 0.01452, 234.36319, 9.94887, 8.82961, - + 7.48724, 9.39471, 9.95502, - + 0.02667, 0.01472, 241.51552, 10.27083, 9.15919, - + 7.82768, 9.72054, 10.27705, - + 0.02707, 0.01492, 248.44218, 10.58608, 9.48179, - + 8.16077, 10.03950, 10.59239, - + 0.02745, 0.01512, 255.32877, 10.90092, 9.80370, - + 8.49278, 10.35793, 10.90730, - + 0.02783, 0.01531, 262.13794, 11.21401, 10.12362, - + 8.82243, 10.67447, 11.22044, - + 0.02820, 0.01550, 268.75610, 11.52120, 10.43740, - + 9.14564, 10.98499, 11.52769/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + 0.01406, 0.00856, 37.44693, 1.48991, 0.11480, - + 0.00000, 0.80446, 1.49323, - + 0.01517, 0.00909, 43.69106, 1.80867, 0.47130, - + 0.00000, 1.14219, 1.81210, - + 0.01620, 0.00957, 50.28206, 2.12254, 0.81732, - + 0.00000, 1.47224, 2.12608, - + 0.01714, 0.01003, 57.11266, 2.43161, 1.15431, - + 0.00000, 1.79535, 2.43526, - + 0.01803, 0.01046, 64.09100, 2.73729, 1.48458, - + 0.05266, 2.11340, 2.74104, - + 0.01886, 0.01086, 71.16570, 3.04146, 1.81074, - + 0.32376, 2.42864, 3.04529, - + 0.01965, 0.01125, 78.31183, 3.34506, 2.13426, - + 0.68819, 2.74227, 3.34898/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ - + 0.02041, 0.01163, 85.49580, 3.64822, 2.45564, - + 1.03343, 3.05460, 3.65222, - + 0.02114, 0.01199, 92.68576, 3.95070, 2.77486, - + 1.37683, 3.36551, 3.95479, - + 0.02184, 0.01233, 99.86163, 4.25252, 3.09215, - + 1.71604, 3.67512, 4.25668, - + 0.02251, 0.01267, 107.00671, 4.55336, 3.40737, - + 2.05171, 3.98321, 4.55760, - + 0.02316, 0.01299, 114.06580, 4.85099, 3.71841, - + 2.38183, 4.28759, 4.85530, - + 0.02378, 0.01331, 121.07054, 5.14780, 4.02778, - + 2.70904, 4.59072, 5.15217, - + 0.02439, 0.01361, 128.02887, 5.44409, 4.33587, - + 3.03389, 4.89296, 5.44854/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,21)/ - + 0.02498, 0.01391, 134.84953, 5.73608, 4.63897, - + 3.35281, 5.19054, 5.74060, - + 0.02556, 0.01420, 141.61372, 6.02748, 4.94087, - + 3.66963, 5.48723, 6.03205, - + 0.02611, 0.01448, 148.28059, 6.31643, 5.23978, - + 3.98269, 5.78120, 6.32107, - + 0.02665, 0.01476, 154.83165, 6.60255, 5.53534, - + 4.29168, 6.07208, 6.60725, - + 0.02718, 0.01503, 161.31081, 6.88738, 5.82916, - + 4.59828, 6.36144, 6.89215, - + 0.02770, 0.01529, 167.65370, 7.16836, 6.11870, - + 4.89999, 6.64672, 7.17318, - + 0.02820, 0.01555, 173.93271, 7.44816, 6.40668, - + 5.19960, 6.93065, 7.45304/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=22,30)/ - + 0.02869, 0.01580, 180.07848, 7.72444, 6.69079, - + 5.49483, 7.21087, 7.72938, - + 0.02918, 0.01604, 186.13351, 7.99863, 6.97247, - + 5.78717, 7.48883, 8.00362, - + 0.02965, 0.01629, 192.10376, 8.27081, 7.25185, - + 6.07677, 7.76464, 8.27585, - + 0.03011, 0.01652, 197.92903, 8.53873, 7.52669, - + 6.36144, 8.03605, 8.54386, - + 0.03056, 0.01675, 203.73598, 8.80694, 7.80154, - + 6.64572, 8.30759, 8.81210, - + 0.03100, 0.01698, 209.34341, 9.06905, 8.07005, - + 6.92334, 8.57293, 9.07427, - + 0.03144, 0.01721, 214.91100, 9.33054, 8.33771, - + 7.19977, 8.83753, 9.33582, - + 0.03186, 0.01743, 220.40732, 9.59027, 8.60340, - + 7.47392, 9.10027, 9.59561, - + 0.03228, 0.01764, 225.73593, 9.84470, 8.86357, - + 7.74227, 9.35758, 9.85004/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + 0.01578, 0.00940, 33.52054, 1.36509, 0.10315, - + 0.00000, 0.73558, 1.36804, - + 0.01701, 0.00999, 39.16364, 1.65114, 0.42307, - + 0.00000, 1.03862, 1.65420, - + 0.01815, 0.01054, 45.09344, 1.93248, 0.73326, - + 0.00000, 1.33444, 1.93565, - + 0.01919, 0.01105, 51.21114, 2.20915, 1.03496, - + 0.00000, 1.62367, 2.21242, - + 0.02017, 0.01153, 57.43585, 2.48234, 1.33022, - + 0.04706, 1.90794, 2.48569, - + 0.02109, 0.01198, 63.72350, 2.75373, 1.62135, - + 0.28907, 2.18923, 2.75717, - + 0.02197, 0.01242, 70.05261, 3.02414, 1.90964, - + 0.61402, 2.46862, 3.02766/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ - + 0.02280, 0.01284, 76.39458, 3.29370, 2.19555, - + 0.92134, 2.74639, 3.29730, - + 0.02360, 0.01324, 82.72253, 3.56219, 2.47907, - + 1.22654, 3.02242, 3.56586, - + 0.02437, 0.01362, 89.02026, 3.82964, 2.76041, - + 1.52754, 3.29685, 3.83338, - + 0.02511, 0.01400, 95.27409, 4.09579, 3.03948, - + 1.82495, 3.56948, 4.09960, - + 0.02583, 0.01436, 101.43393, 4.35864, 3.31437, - + 2.11695, 3.83837, 4.36252, - + 0.02652, 0.01471, 107.53255, 4.62036, 3.58737, - + 2.40596, 4.10576, 4.62430, - + 0.02719, 0.01505, 113.57819, 4.88126, 3.85887, - + 2.69248, 4.37198, 4.88526/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,21)/ - + 0.02784, 0.01538, 119.48749, 5.13792, 4.12551, - + 2.97331, 4.63365, 5.14198, - + 0.02847, 0.01570, 125.33711, 5.39372, 4.39075, - + 3.25194, 4.89419, 5.39784, - + 0.02908, 0.01601, 131.09000, 5.64704, 4.65301, - + 3.52688, 5.15200, 5.65121, - + 0.02967, 0.01632, 136.73061, 5.89749, 4.91195, - + 3.79787, 5.40671, 5.90172, - + 0.03026, 0.01662, 142.29996, 6.14653, 5.16907, - + 4.06644, 5.65980, 6.15081, - + 0.03082, 0.01691, 147.74026, 6.39183, 5.42207, - + 4.33036, 5.90897, 6.39617, - + 0.03137, 0.01719, 153.11758, 6.63584, 5.67343, - + 4.59214, 6.15667, 6.64022/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=22,30)/ - + 0.03191, 0.01747, 158.37041, 6.87646, 5.92109, - + 4.84977, 6.40082, 6.88090, - + 0.03244, 0.01774, 163.53699, 7.11498, 6.16635, - + 5.10459, 6.64272, 7.11946, - + 0.03296, 0.01801, 168.62349, 7.35150, 6.40934, - + 5.35674, 6.88249, 7.35603, - + 0.03346, 0.01827, 173.57678, 7.58402, 6.64807, - + 5.60429, 7.11813, 7.58858, - + 0.03396, 0.01852, 178.50967, 7.81658, 6.88662, - + 5.85129, 7.35370, 7.82121, - + 0.03444, 0.01878, 183.26160, 8.04353, 7.11932, - + 6.09216, 7.58353, 8.04819, - + 0.03491, 0.01902, 187.97484, 8.26978, 7.35112, - + 6.33183, 7.81257, 8.27448, - + 0.03538, 0.01926, 192.62238, 8.49429, 7.58099, - + 6.56928, 8.03976, 8.49904, - + 0.03584, 0.01950, 197.11847, 8.71389, 7.80577, - + 6.80140, 8.26196, 8.71870/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + 0.02254, 0.01258, 23.76790, 1.04198, 0.07388, - + 0.00000, 0.55837, 1.04469, - + 0.02424, 0.01343, 27.88596, 1.24603, 0.30216, - + 0.00000, 0.77452, 1.24888, - + 0.02579, 0.01422, 32.15172, 1.44603, 0.52280, - + 0.00000, 0.98483, 1.44900, - + 0.02723, 0.01495, 36.48993, 1.64185, 0.73655, - + 0.00000, 1.18959, 1.64492, - + 0.02856, 0.01564, 40.84645, 1.83424, 0.94474, - + 0.03314, 1.38987, 1.83741, - + 0.02981, 0.01628, 45.19539, 2.02432, 1.14897, - + 0.20301, 1.58701, 2.02759, - + 0.03101, 0.01690, 49.52376, 2.21267, 1.35015, - + 0.43027, 1.78176, 2.21603/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ - + 0.03214, 0.01748, 53.81523, 2.39938, 1.54858, - + 0.64401, 1.97431, 2.40282, - + 0.03323, 0.01805, 58.05467, 2.58431, 1.74430, - + 0.85522, 2.16463, 2.58783, - + 0.03427, 0.01859, 62.23500, 2.76754, 1.93751, - + 1.06246, 2.35283, 2.77113, - + 0.03527, 0.01911, 66.34991, 2.94892, 2.12817, - + 1.26622, 2.53884, 2.95259, - + 0.03623, 0.01961, 70.36275, 3.12702, 2.31492, - + 1.46519, 2.72125, 3.13074, - + 0.03716, 0.02010, 74.30632, 3.30350, 2.49951, - + 1.66121, 2.90177, 3.30728, - + 0.03806, 0.02057, 78.18915, 3.47863, 2.68227, - + 1.85470, 3.08070, 3.48248/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,21)/ - + 0.03893, 0.02102, 81.94872, 3.64993, 2.86075, - + 2.04331, 3.25558, 3.65384, - + 0.03977, 0.02147, 85.64809, 3.81996, 3.03758, - + 2.22970, 3.42900, 3.82393, - + 0.04059, 0.02190, 89.26041, 3.98755, 3.21161, - + 2.41279, 3.59980, 3.99157, - + 0.04139, 0.02232, 92.77730, 4.15248, 3.38266, - + 2.59243, 3.76777, 4.15655, - + 0.04216, 0.02272, 96.22998, 4.31584, 3.55185, - + 2.76980, 3.93404, 4.31997, - + 0.04291, 0.02312, 99.57814, 4.47599, 3.71755, - + 2.94329, 4.09694, 4.48016, - + 0.04365, 0.02351, 102.87096, 4.63474, 3.88161, - + 3.11479, 4.25834, 4.63896/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=22,30)/ - + 0.04436, 0.02389, 106.06580, 4.79059, 4.04254, - + 3.28284, 4.41672, 4.79485, - + 0.04506, 0.02425, 109.19156, 4.94451, 4.20133, - + 3.44846, 4.57306, 4.94882, - + 0.04575, 0.02462, 112.25346, 5.09661, 4.35811, - + 3.61178, 4.72749, 5.10096, - + 0.04641, 0.02497, 115.21495, 5.24547, 4.51146, - + 3.77142, 4.87858, 5.24986, - + 0.04707, 0.02532, 118.15614, 5.39404, 4.66436, - + 3.93036, 5.02931, 5.39847, - + 0.04770, 0.02565, 120.96597, 5.53826, 4.81275, - + 4.08457, 5.17560, 5.54274, - + 0.04833, 0.02599, 123.74394, 5.68170, 4.96021, - + 4.23765, 5.32105, 5.68621, - + 0.04895, 0.02631, 126.47166, 5.82363, 5.10602, - + 4.38887, 5.46490, 5.82818, - + 0.04955, 0.02663, 129.09160, 5.96181, 5.24795, - + 4.53604, 5.60495, 5.96640/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + 0.03213, 0.01697, 16.86401, 0.79917, 0.05285, - + 0.00000, 0.42657, 0.80284, - + 0.03446, 0.01820, 19.86559, 0.94435, 0.21549, - + 0.00000, 0.58048, 0.94821, - + 0.03659, 0.01932, 22.92682, 1.08612, 0.37217, - + 0.00000, 0.72971, 1.09016, - + 0.03855, 0.02036, 25.99207, 1.22426, 0.52328, - + 0.00000, 0.87433, 1.22846, - + 0.04037, 0.02133, 29.02663, 1.35924, 0.66969, - + 0.02328, 1.01502, 1.36358, - + 0.04208, 0.02224, 32.01698, 1.49180, 0.81250, - + 0.14218, 1.15270, 1.49627, - + 0.04369, 0.02310, 34.95654, 1.62236, 0.95236, - + 0.30061, 1.28790, 1.62696/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ - + 0.04523, 0.02393, 37.83714, 1.75099, 1.08950, - + 0.44873, 1.42079, 1.75570, - + 0.04669, 0.02471, 40.65182, 1.87763, 1.22397, - + 0.59428, 1.55134, 1.88245, - + 0.04810, 0.02546, 43.39896, 2.00237, 1.35597, - + 0.73632, 1.67970, 2.00729, - + 0.04944, 0.02619, 46.07690, 2.12515, 1.48551, - + 0.87523, 1.80585, 2.13017, - + 0.05073, 0.02688, 48.65976, 2.24495, 1.61161, - + 1.01008, 1.92879, 2.25006, - + 0.05198, 0.02755, 51.17711, 2.36303, 1.73561, - + 1.14226, 2.04983, 2.36824, - + 0.05318, 0.02820, 53.63704, 2.47966, 1.85780, - + 1.27213, 2.16923, 2.48495/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,21)/ - + 0.05434, 0.02883, 55.99368, 2.59302, 1.97641, - + 1.39798, 2.28520, 2.59838, - + 0.05546, 0.02943, 58.29735, 2.70503, 2.09339, - + 1.52180, 2.39969, 2.71048, - + 0.05655, 0.03002, 60.52895, 2.81488, 2.20795, - + 1.64285, 2.51190, 2.82040, - + 0.05761, 0.03059, 62.68413, 2.92245, 2.32000, - + 1.76105, 2.62169, 2.92804, - + 0.05863, 0.03114, 64.78665, 3.02855, 2.43037, - + 1.87728, 2.72993, 3.03421, - + 0.05963, 0.03168, 66.80867, 3.13202, 2.53791, - + 1.99040, 2.83542, 3.13774, - + 0.06060, 0.03221, 68.78638, 3.23420, 2.64398, - + 2.10180, 2.93954, 3.23998/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=22,30)/ - + 0.06154, 0.03272, 70.69051, 3.33403, 2.74754, - + 2.21045, 3.04123, 3.33988, - + 0.06246, 0.03322, 72.54198, 3.43223, 2.84932, - + 2.31712, 3.14121, 3.43814, - + 0.06336, 0.03370, 74.34546, 3.52891, 2.94944, - + 2.42192, 3.23961, 3.53487, - + 0.06424, 0.03418, 76.07614, 3.62306, 3.04690, - + 2.52388, 3.33541, 3.62908, - + 0.06510, 0.03464, 77.78990, 3.71682, 3.14384, - + 2.62515, 3.43075, 3.72289, - + 0.06593, 0.03509, 79.41106, 3.80731, 3.23740, - + 2.72287, 3.52276, 3.81343, - + 0.06675, 0.03554, 81.00812, 3.89707, 3.33012, - + 2.81961, 3.61400, 3.90324, - + 0.06756, 0.03597, 82.56900, 3.98560, 3.42152, - + 2.91489, 3.70397, 3.99182, - + 0.06834, 0.03640, 84.05544, 4.07137, 3.51006, - + 3.00717, 3.79111, 4.07764/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + 0.03947, 0.02036, 13.80465, 0.68729, 0.04343, - + 0.00000, 0.36635, 0.69198, - + 0.04229, 0.02187, 16.29749, 0.80606, 0.17675, - + 0.00000, 0.49243, 0.81100, - + 0.04485, 0.02325, 18.81380, 0.92175, 0.30487, - + 0.00000, 0.61437, 0.92691, - + 0.04719, 0.02452, 21.30786, 1.03411, 0.42805, - + 0.00000, 0.73217, 1.03947, - + 0.04937, 0.02570, 23.75412, 1.14349, 0.54698, - + 0.01890, 0.84635, 1.14903, - + 0.05141, 0.02681, 26.14452, 1.25049, 0.66255, - + 0.11520, 0.95765, 1.25619, - + 0.05334, 0.02786, 28.47552, 1.35546, 0.77530, - + 0.24317, 1.06653, 1.36131/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ - + 0.05517, 0.02886, 30.74246, 1.45846, 0.88543, - + 0.36236, 1.17311, 1.46446, - + 0.05691, 0.02981, 32.94174, 1.55948, 0.99302, - + 0.47906, 1.27743, 1.56561, - + 0.05857, 0.03072, 35.07402, 1.65860, 1.09824, - + 0.59254, 1.37961, 1.66486, - + 0.06017, 0.03159, 37.13947, 1.75581, 1.20112, - + 0.70314, 1.47967, 1.76219, - + 0.06170, 0.03243, 39.11719, 1.85028, 1.30089, - + 0.81010, 1.57680, 1.85677, - + 0.06317, 0.03323, 41.03441, 1.94308, 1.39867, - + 0.91462, 1.67210, 1.94969, - + 0.06459, 0.03401, 42.89870, 2.03444, 1.49472, - + 1.01699, 1.76582, 2.04115/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,21)/ - + 0.06595, 0.03476, 44.67230, 2.12290, 1.58760, - + 1.11583, 1.85649, 2.12971, - + 0.06728, 0.03548, 46.39841, 2.21006, 1.67895, - + 1.21281, 1.94576, 2.21696, - + 0.06856, 0.03618, 48.06181, 2.29526, 1.76813, - + 1.30733, 2.03296, 2.30226, - + 0.06980, 0.03686, 49.65973, 2.37842, 1.85506, - + 1.39933, 2.11801, 2.38550, - + 0.07100, 0.03752, 51.21216, 2.46023, 1.94048, - + 1.48957, 2.20163, 2.46739, - + 0.07217, 0.03816, 52.69685, 2.53974, 2.02343, - + 1.57712, 2.28286, 2.54698, - + 0.07330, 0.03878, 54.14377, 2.61807, 2.10506, - + 1.66313, 2.36285, 2.62539/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=22,30)/ - + 0.07441, 0.03939, 55.52960, 2.69436, 2.18451, - + 1.74678, 2.44073, 2.70176, - + 0.07549, 0.03998, 56.87166, 2.76923, 2.26240, - + 1.82869, 2.51711, 2.77669, - + 0.07653, 0.04055, 58.17400, 2.84275, 2.33884, - + 1.90899, 2.59209, 2.85028, - + 0.07756, 0.04111, 59.41718, 2.91412, 2.41301, - + 1.98687, 2.66487, 2.92171, - + 0.07856, 0.04166, 60.64572, 2.98509, 2.48668, - + 2.06410, 2.73720, 2.99275, - + 0.07953, 0.04219, 61.80011, 3.05332, 2.55752, - + 2.13838, 2.80674, 3.06105, - + 0.08048, 0.04272, 62.93463, 3.12091, 2.62763, - + 2.21179, 2.87559, 3.12870, - + 0.08142, 0.04323, 64.03999, 3.18744, 2.69659, - + 2.28395, 2.94334, 3.19528, - + 0.08233, 0.04372, 65.08626, 3.25166, 2.76317, - + 2.35361, 3.00874, 3.25956/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + 0.04566, 0.02327, 11.98151, 0.61958, 0.03778, - + 0.00000, 0.33006, 0.62516, - + 0.04887, 0.02502, 14.16578, 0.72248, 0.15352, - + 0.00000, 0.43945, 0.72835, - + 0.05178, 0.02661, 16.35237, 0.82250, 0.26453, - + 0.00000, 0.54503, 0.82862, - + 0.05445, 0.02808, 18.50237, 0.91938, 0.37098, - + 0.00000, 0.64674, 0.92573, - + 0.05692, 0.02944, 20.59581, 1.01340, 0.47346, - + 0.01628, 0.74504, 1.01996, - + 0.05923, 0.03071, 22.62811, 1.10510, 0.57276, - + 0.09908, 0.84058, 1.11185, - + 0.06140, 0.03191, 24.59756, 1.19477, 0.66933, - + 0.20888, 0.93374, 1.20169/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ - + 0.06347, 0.03305, 26.50163, 1.28249, 0.76339, - + 0.31083, 1.02467, 1.28958, - + 0.06544, 0.03414, 28.33871, 1.36826, 0.85500, - + 0.41037, 1.11339, 1.37551, - + 0.06731, 0.03518, 30.11067, 1.45218, 0.94434, - + 0.50691, 1.20004, 1.45957, - + 0.06911, 0.03617, 31.81856, 1.53424, 1.03146, - + 0.60075, 1.28467, 1.54177, - + 0.07082, 0.03712, 33.44487, 1.61375, 1.11568, - + 0.69125, 1.36656, 1.62140, - + 0.07248, 0.03803, 35.01474, 1.69165, 1.19802, - + 0.77946, 1.44670, 1.69943, - + 0.07407, 0.03891, 36.53555, 1.76816, 1.27872, - + 0.86566, 1.52533, 1.77606/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,21)/ - + 0.07560, 0.03976, 37.97437, 1.84201, 1.35651, - + 0.94866, 1.60117, 1.85002, - + 0.07708, 0.04058, 39.37004, 1.91462, 1.43286, - + 1.02992, 1.67567, 1.92274, - + 0.07851, 0.04137, 40.70947, 1.98542, 1.50722, - + 1.10892, 1.74827, 1.99364, - + 0.07990, 0.04214, 41.99072, 2.05436, 1.57953, - + 1.18566, 1.81891, 2.06267, - + 0.08124, 0.04288, 43.23154, 2.12203, 1.65044, - + 1.26077, 1.88823, 2.13045, - + 0.08254, 0.04360, 44.41306, 2.18764, 1.71913, - + 1.33346, 1.95539, 2.19614, - + 0.08381, 0.04430, 45.56116, 2.25216, 1.78660, - + 1.40475, 2.02140, 2.26075/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=22,30)/ - + 0.08504, 0.04498, 46.65639, 2.31484, 1.85211, - + 1.47392, 2.08552, 2.32351, - + 0.08624, 0.04564, 47.71355, 2.37624, 1.91623, - + 1.54154, 2.14828, 2.38499, - + 0.08741, 0.04628, 48.73634, 2.43642, 1.97902, - + 1.60770, 2.20979, 2.44525, - + 0.08854, 0.04691, 49.70844, 2.49470, 2.03982, - + 1.67173, 2.26934, 2.50361, - + 0.08965, 0.04752, 50.66792, 2.55259, 2.10014, - + 1.73516, 2.32846, 2.56157, - + 0.09073, 0.04812, 51.56422, 2.60809, 2.15798, - + 1.79599, 2.38514, 2.61714, - + 0.09179, 0.04870, 52.44368, 2.66299, 2.21514, - + 1.85603, 2.44118, 2.67211, - + 0.09282, 0.04927, 53.29836, 2.71695, 2.27129, - + 1.91497, 2.49625, 2.72613, - + 0.09383, 0.04983, 54.10326, 2.76891, 2.32537, - + 1.97173, 2.54928, 2.77816/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + 0.05104, 0.02602, 10.73932, 0.57570, 0.03392, - + 0.00000, 0.30622, 0.58179, - + 0.05459, 0.02798, 12.71148, 0.66770, 0.13761, - + 0.00000, 0.40414, 0.67410, - + 0.05780, 0.02977, 14.67019, 0.75691, 0.23683, - + 0.00000, 0.49841, 0.76359, - + 0.06074, 0.03140, 16.58112, 0.84311, 0.33174, - + 0.00001, 0.58902, 0.85002, - + 0.06346, 0.03291, 18.42950, 0.92653, 0.42288, - + 0.01450, 0.67635, 0.93366, - + 0.06600, 0.03433, 20.21327, 1.00763, 0.51092, - + 0.08796, 0.76096, 1.01497, - + 0.06839, 0.03566, 21.93221, 1.08671, 0.59631, - + 0.18520, 0.84323, 1.09424/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ - + 0.07066, 0.03692, 23.58543, 1.16387, 0.67927, - + 0.27525, 0.92332, 1.17157, - + 0.07281, 0.03812, 25.17284, 1.23911, 0.75986, - + 0.36297, 1.00127, 1.24698, - + 0.07486, 0.03926, 26.69704, 1.31252, 0.83823, - + 0.44782, 1.07720, 1.32054, - + 0.07682, 0.04036, 28.15999, 1.38413, 0.91447, - + 0.53010, 1.15115, 1.39229, - + 0.07870, 0.04140, 29.54605, 1.45330, 0.98797, - + 0.60923, 1.22251, 1.46160, - + 0.08050, 0.04240, 30.87839, 1.52096, 1.05971, - + 0.68624, 1.29223, 1.52939, - + 0.08224, 0.04337, 32.16423, 1.58731, 1.12989, - + 0.76138, 1.36052, 1.59585/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,21)/ - + 0.08390, 0.04430, 33.37624, 1.65111, 1.19732, - + 0.83348, 1.42616, 1.65977, - + 0.08551, 0.04519, 34.54834, 1.71373, 1.26338, - + 0.90395, 1.49052, 1.72250, - + 0.08707, 0.04606, 35.66885, 1.77467, 1.32759, - + 0.97234, 1.55312, 1.78355, - + 0.08857, 0.04689, 36.73740, 1.83389, 1.38993, - + 1.03864, 1.61391, 1.84287, - + 0.09003, 0.04770, 37.76947, 1.89195, 1.45096, - + 1.10344, 1.67347, 1.90102, - + 0.09144, 0.04849, 38.74765, 1.94807, 1.50992, - + 1.16600, 1.73103, 1.95724, - + 0.09281, 0.04925, 39.69556, 2.00316, 1.56773, - + 1.22725, 1.78750, 2.01242/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=22,30)/ - + 0.09414, 0.04999, 40.59631, 2.05660, 1.62378, - + 1.28658, 1.84226, 2.06594, - + 0.09544, 0.05070, 41.46330, 2.10885, 1.67854, - + 1.34450, 1.89578, 2.11828, - + 0.09670, 0.05140, 42.30049, 2.16000, 1.73211, - + 1.40108, 1.94816, 2.16951, - + 0.09792, 0.05208, 43.09392, 2.20947, 1.78389, - + 1.45577, 1.99879, 2.21905, - + 0.09913, 0.05275, 43.87616, 2.25854, 1.83522, - + 1.50989, 2.04901, 2.26821, - + 0.10029, 0.05339, 44.60326, 2.30544, 1.88428, - + 1.56164, 2.09700, 2.31517, - + 0.10143, 0.05402, 45.31555, 2.35177, 1.93270, - + 1.61265, 2.14439, 2.36157, - + 0.10254, 0.05464, 46.00581, 2.39726, 1.98022, - + 1.66267, 2.19091, 2.40713, - + 0.10362, 0.05524, 46.65149, 2.44099, 2.02591, - + 1.71077, 2.23563, 2.45092/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + 0.07221, 0.03727, 7.65999, 0.46193, 0.02421, - + 0.00000, 0.24518, 0.47036, - + 0.07704, 0.04004, 9.08929, 0.52640, 0.09763, - + 0.00000, 0.31423, 0.53522, - + 0.08138, 0.04253, 10.46902, 0.58839, 0.16732, - + 0.00000, 0.38016, 0.59754, - + 0.08533, 0.04480, 11.78004, 0.64770, 0.23338, - + 0.00001, 0.44292, 0.65715, - + 0.08897, 0.04687, 13.01871, 0.70454, 0.29621, - + 0.01000, 0.50283, 0.71425, - + 0.09235, 0.04881, 14.18943, 0.75924, 0.35632, - + 0.06031, 0.56030, 0.76920, - + 0.09551, 0.05061, 15.29570, 0.81206, 0.41407, - + 0.12648, 0.61563, 0.82224/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ - + 0.09850, 0.05232, 16.34016, 0.86309, 0.46964, - + 0.18717, 0.66899, 0.87348, - + 0.10132, 0.05392, 17.32582, 0.91239, 0.52315, - + 0.24580, 0.72044, 0.92297, - + 0.10400, 0.05545, 18.25714, 0.96006, 0.57473, - + 0.30204, 0.77011, 0.97081, - + 0.10656, 0.05690, 19.13739, 1.00615, 0.62449, - + 0.35614, 0.81808, 1.01707, - + 0.10899, 0.05827, 19.95688, 1.05027, 0.67204, - + 0.40774, 0.86395, 1.06135, - + 0.11132, 0.05959, 20.73421, 1.09308, 0.71809, - + 0.45758, 0.90841, 1.10430, - + 0.11356, 0.06085, 21.47536, 1.13475, 0.76283, - + 0.50588, 0.95165, 1.14612/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,21)/ - + 0.11569, 0.06205, 22.16185, 1.17448, 0.80544, - + 0.55186, 0.99285, 1.18597, - + 0.11776, 0.06321, 22.81882, 1.21320, 0.84692, - + 0.59651, 1.03298, 1.22482, - + 0.11974, 0.06433, 23.43857, 1.25060, 0.88695, - + 0.63954, 1.07173, 1.26235, - + 0.12165, 0.06540, 24.02162, 1.28669, 0.92553, - + 0.68098, 1.10909, 1.29854, - + 0.12350, 0.06644, 24.57899, 1.32185, 0.96309, - + 0.72125, 1.14547, 1.33381, - + 0.12528, 0.06744, 25.09943, 1.35557, 0.99910, - + 0.75985, 1.18036, 1.36764, - + 0.12702, 0.06841, 25.59909, 1.38849, 1.03423, - + 0.79745, 1.21441, 1.40066/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=22,30)/ - + 0.12869, 0.06934, 26.06734, 1.42020, 1.06805, - + 0.83363, 1.24720, 1.43246, - + 0.13031, 0.07024, 26.51321, 1.45103, 1.10090, - + 0.86876, 1.27906, 1.46338, - + 0.13189, 0.07112, 26.93950, 1.48104, 1.13288, - + 0.90291, 1.31008, 1.49348, - + 0.13342, 0.07197, 27.33743, 1.50985, 1.16358, - + 0.93569, 1.33985, 1.52237, - + 0.13491, 0.07280, 27.72827, 1.53835, 1.19390, - + 0.96803, 1.36928, 1.55095, - + 0.13635, 0.07360, 28.08401, 1.56533, 1.22264, - + 0.99870, 1.39716, 1.57800, - + 0.13776, 0.07438, 28.43059, 1.59189, 1.25092, - + 1.02884, 1.42459, 1.60464, - + 0.13914, 0.07514, 28.76358, 1.61785, 1.27853, - + 1.05825, 1.45140, 1.63067, - + 0.14047, 0.07588, 29.06891, 1.64260, 1.30489, - + 1.08635, 1.47697, 1.65550/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + 0.10241, 0.05477, 5.49365, 0.37873, 0.01721, - + 0.00001, 0.20079, 0.39012, - + 0.10890, 0.05857, 6.51592, 0.42308, 0.06887, - + 0.00002, 0.24892, 0.43492, - + 0.11468, 0.06195, 7.46694, 0.46518, 0.11728, - + 0.00002, 0.29427, 0.47739, - + 0.11990, 0.06498, 8.34042, 0.50492, 0.16258, - + 0.00002, 0.33689, 0.51745, - + 0.12468, 0.06773, 9.14057, 0.54250, 0.20514, - + 0.00679, 0.37703, 0.55532, - + 0.12907, 0.07027, 9.87692, 0.57819, 0.24534, - + 0.04061, 0.41504, 0.59127, - + 0.13317, 0.07261, 10.55657, 0.61221, 0.28349, - + 0.08473, 0.45119, 0.62553/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ - + 0.13701, 0.07481, 11.18242, 0.64469, 0.31978, - + 0.12472, 0.48563, 0.65822, - + 0.14062, 0.07687, 11.75978, 0.67569, 0.35432, - + 0.16295, 0.51845, 0.68941, - + 0.14404, 0.07880, 12.29456, 0.70532, 0.38727, - + 0.19925, 0.54979, 0.71922, - + 0.14727, 0.08062, 12.78826, 0.73366, 0.41873, - + 0.23383, 0.57973, 0.74774, - + 0.15033, 0.08234, 13.23891, 0.76051, 0.44850, - + 0.26652, 0.60808, 0.77474, - + 0.15325, 0.08398, 13.65882, 0.78628, 0.47704, - + 0.29779, 0.63527, 0.80066, - + 0.15603, 0.08554, 14.05266, 0.81111, 0.50449, - + 0.32781, 0.66145, 0.82563/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,21)/ - + 0.15867, 0.08702, 14.40745, 0.83453, 0.53039, - + 0.35613, 0.68614, 0.84918, - + 0.16122, 0.08844, 14.74235, 0.85718, 0.55541, - + 0.38343, 0.71000, 0.87194, - + 0.16366, 0.08978, 15.05260, 0.87886, 0.57935, - + 0.40954, 0.73285, 0.89374, - + 0.16600, 0.09107, 15.33934, 0.89956, 0.60221, - + 0.43446, 0.75466, 0.91455, - + 0.16825, 0.09232, 15.60989, 0.91957, 0.62429, - + 0.45849, 0.77572, 0.93467, - + 0.17041, 0.09351, 15.85600, 0.93858, 0.64528, - + 0.48135, 0.79575, 0.95377, - + 0.17250, 0.09466, 16.08884, 0.95701, 0.66562, - + 0.50347, 0.81516, 0.97229/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=22,30)/ - + 0.17451, 0.09576, 16.30206, 0.97461, 0.68506, - + 0.52461, 0.83369, 0.98997, - + 0.17646, 0.09683, 16.50160, 0.99160, 0.70381, - + 0.54500, 0.85159, 1.00704, - + 0.17834, 0.09786, 16.68945, 1.00801, 0.72194, - + 0.56468, 0.86887, 1.02353, - + 0.18016, 0.09884, 16.86037, 1.02359, 0.73917, - + 0.58342, 0.88530, 1.03919, - + 0.18193, 0.09980, 17.02748, 1.03894, 0.75613, - + 0.60182, 0.90148, 1.05462, - + 0.18364, 0.10072, 17.17404, 1.05332, 0.77205, - + 0.61913, 0.91664, 1.06906, - + 0.18530, 0.10162, 17.31575, 1.06741, 0.78764, - + 0.63606, 0.93149, 1.08321, - + 0.18692, 0.10250, 17.45000, 1.08110, 0.80279, - + 0.65251, 0.94593, 1.09696, - + 0.18847, 0.10334, 17.56873, 1.09401, 0.81710, - + 0.66807, 0.95955, 1.10991/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + 0.12599, 0.06919, 4.54047, 0.33913, 0.01404, - + 0.00001, 0.17996, 0.35265, - + 0.13363, 0.07364, 5.37074, 0.37420, 0.05587, - + 0.00002, 0.21854, 0.38819, - + 0.14040, 0.07757, 6.12260, 0.40716, 0.09469, - + 0.00002, 0.25453, 0.42151, - + 0.14646, 0.08108, 6.79686, 0.43796, 0.13067, - + 0.00001, 0.28802, 0.45266, - + 0.15197, 0.08424, 7.40143, 0.46682, 0.16417, - + 0.00535, 0.31926, 0.48178, - + 0.15702, 0.08712, 7.94803, 0.49396, 0.19552, - + 0.03185, 0.34857, 0.50918, - + 0.16171, 0.08977, 8.44249, 0.51957, 0.22501, - + 0.06622, 0.37619, 0.53502/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ - + 0.16609, 0.09223, 8.88977, 0.54381, 0.25284, - + 0.09712, 0.40228, 0.55947, - + 0.17018, 0.09452, 9.29611, 0.56676, 0.27913, - + 0.12645, 0.42695, 0.58261, - + 0.17402, 0.09667, 9.66644, 0.58852, 0.30401, - + 0.15410, 0.45031, 0.60453, - + 0.17765, 0.09869, 10.00310, 0.60916, 0.32759, - + 0.18027, 0.47247, 0.62532, - + 0.18105, 0.10058, 10.30348, 0.62854, 0.34974, - + 0.20483, 0.49326, 0.64484, - + 0.18430, 0.10236, 10.58012, 0.64701, 0.37082, - + 0.22817, 0.51307, 0.66345, - + 0.18741, 0.10404, 10.83683, 0.66469, 0.39099, - + 0.25045, 0.53203, 0.68127/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,21)/ - + 0.19033, 0.10565, 11.06288, 0.68126, 0.40991, - + 0.27137, 0.54980, 0.69793, - + 0.19313, 0.10717, 11.27363, 0.69717, 0.42808, - + 0.29143, 0.56687, 0.71395, - + 0.19581, 0.10862, 11.46552, 0.71228, 0.44535, - + 0.31049, 0.58309, 0.72916, - + 0.19836, 0.11000, 11.63963, 0.72661, 0.46174, - + 0.32856, 0.59847, 0.74358, - + 0.20081, 0.11132, 11.80170, 0.74038, 0.47747, - + 0.34591, 0.61324, 0.75743, - + 0.20315, 0.11258, 11.94662, 0.75338, 0.49236, - + 0.36233, 0.62720, 0.77050, - + 0.20542, 0.11378, 12.08236, 0.76592, 0.50672, - + 0.37816, 0.64067, 0.78312/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=22,30)/ - + 0.20759, 0.11494, 12.20361, 0.77779, 0.52035, - + 0.39319, 0.65343, 0.79507, - + 0.20969, 0.11605, 12.31499, 0.78917, 0.53342, - + 0.40762, 0.66568, 0.80653, - + 0.21171, 0.11712, 12.41793, 0.80011, 0.54600, - + 0.42149, 0.67745, 0.81753, - + 0.21365, 0.11814, 12.50829, 0.81042, 0.55789, - + 0.43461, 0.68857, 0.82789, - + 0.21554, 0.11914, 12.59642, 0.82056, 0.56956, - + 0.44747, 0.69949, 0.83808, - + 0.21735, 0.12008, 12.67102, 0.82995, 0.58043, - + 0.45949, 0.70964, 0.84752, - + 0.21912, 0.12100, 12.74269, 0.83913, 0.59105, - + 0.47122, 0.71955, 0.85676, - + 0.22084, 0.12189, 12.80922, 0.84802, 0.60132, - + 0.48256, 0.72914, 0.86569, - + 0.22248, 0.12274, 12.86448, 0.85633, 0.61098, - + 0.49325, 0.73813, 0.87404/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + 0.14622, 0.08188, 3.97606, 0.31400, 0.01213, - + 0.00001, 0.16684, 0.32920, - + 0.15474, 0.08680, 4.68589, 0.34338, 0.04802, - + 0.00002, 0.19960, 0.35903, - + 0.16223, 0.09110, 5.31507, 0.37074, 0.08105, - + 0.00002, 0.22990, 0.38675, - + 0.16892, 0.09490, 5.86837, 0.39609, 0.11143, - + 0.00001, 0.25785, 0.41242, - + 0.17495, 0.09832, 6.35571, 0.41965, 0.13949, - + 0.00448, 0.28372, 0.43623, - + 0.18047, 0.10141, 6.78942, 0.44162, 0.16556, - + 0.02662, 0.30781, 0.45844, - + 0.18556, 0.10424, 7.17575, 0.46221, 0.18991, - + 0.05519, 0.33033, 0.47923/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ - + 0.19029, 0.10685, 7.51997, 0.48153, 0.21275, - + 0.08071, 0.35147, 0.49875, - + 0.19470, 0.10927, 7.82818, 0.49970, 0.23418, - + 0.10480, 0.37131, 0.51709, - + 0.19883, 0.11152, 8.10510, 0.51681, 0.25433, - + 0.12737, 0.38999, 0.53434, - + 0.20271, 0.11363, 8.35338, 0.53293, 0.27333, - + 0.14862, 0.40759, 0.55059, - + 0.20633, 0.11559, 8.57108, 0.54797, 0.29106, - + 0.16846, 0.42399, 0.56575, - + 0.20978, 0.11744, 8.76899, 0.56220, 0.30785, - + 0.18723, 0.43953, 0.58010, - + 0.21308, 0.11918, 8.95044, 0.57575, 0.32384, - + 0.20506, 0.45433, 0.59377/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,21)/ - + 0.21615, 0.12082, 9.10672, 0.58836, 0.33875, - + 0.22171, 0.46811, 0.60646, - + 0.21909, 0.12238, 9.25078, 0.60040, 0.35300, - + 0.23761, 0.48128, 0.61859, - + 0.22191, 0.12385, 9.37976, 0.61177, 0.36649, - + 0.25266, 0.49374, 0.63004, - + 0.22457, 0.12525, 9.49463, 0.62249, 0.37922, - + 0.26686, 0.50547, 0.64082, - + 0.22712, 0.12659, 9.60014, 0.63273, 0.39139, - + 0.28044, 0.51670, 0.65113, - + 0.22956, 0.12785, 9.69219, 0.64234, 0.40284, - + 0.29324, 0.52724, 0.66080, - + 0.23190, 0.12906, 9.77724, 0.65156, 0.41386, - + 0.30553, 0.53737, 0.67008/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=22,30)/ - + 0.23415, 0.13021, 9.85107, 0.66024, 0.42426, - + 0.31715, 0.54692, 0.67881, - + 0.23630, 0.13131, 9.91746, 0.66852, 0.43420, - + 0.32826, 0.55604, 0.68715, - + 0.23838, 0.13237, 9.97754, 0.67643, 0.44372, - + 0.33891, 0.56477, 0.69511, - + 0.24037, 0.13338, 10.02808, 0.68384, 0.45267, - + 0.34894, 0.57296, 0.70255, - + 0.24231, 0.13437, 10.07724, 0.69110, 0.46144, - + 0.35875, 0.58099, 0.70985, - + 0.24415, 0.13529, 10.11611, 0.69777, 0.46955, - + 0.36787, 0.58840, 0.71655, - + 0.24595, 0.13618, 10.15307, 0.70427, 0.47746, - + 0.37674, 0.59561, 0.72309, - + 0.24769, 0.13705, 10.18641, 0.71053, 0.48509, - + 0.38530, 0.60257, 0.72939, - + 0.24935, 0.13788, 10.21135, 0.71634, 0.49222, - + 0.39333, 0.60904, 0.73522/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + 0.16431, 0.09335, 3.59329, 0.29565, 0.01082, - + 0.00003, 0.15736, 0.31225, - + 0.17351, 0.09859, 4.21753, 0.32104, 0.04262, - + 0.00004, 0.18607, 0.33804, - + 0.18156, 0.10316, 4.76067, 0.34450, 0.07167, - + 0.00004, 0.21243, 0.36184, - + 0.18872, 0.10716, 5.23067, 0.36607, 0.09818, - + 0.00003, 0.23654, 0.38370, - + 0.19516, 0.11072, 5.63825, 0.38594, 0.12252, - + 0.00392, 0.25871, 0.40381, - + 0.20102, 0.11392, 5.99532, 0.40435, 0.14498, - + 0.02306, 0.27921, 0.42244, - + 0.20640, 0.11685, 6.30914, 0.42151, 0.16587, - + 0.04772, 0.29829, 0.43980/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ - + 0.21136, 0.11954, 6.58538, 0.43751, 0.18533, - + 0.06961, 0.31606, 0.45596, - + 0.21598, 0.12203, 6.82879, 0.45244, 0.20348, - + 0.09014, 0.33263, 0.47102, - + 0.22029, 0.12433, 7.04388, 0.46640, 0.22046, - + 0.10930, 0.34814, 0.48510, - + 0.22434, 0.12647, 7.23532, 0.47950, 0.23641, - + 0.12728, 0.36270, 0.49832, - + 0.22812, 0.12844, 7.40078, 0.49162, 0.25122, - + 0.14397, 0.37618, 0.51054, - + 0.23168, 0.13030, 7.54893, 0.50304, 0.26517, - + 0.15970, 0.38889, 0.52205, - + 0.23506, 0.13205, 7.68284, 0.51386, 0.27840, - + 0.17459, 0.40094, 0.53296/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,21)/ - + 0.23822, 0.13369, 7.79545, 0.52384, 0.29066, - + 0.18842, 0.41207, 0.54300, - + 0.24123, 0.13523, 7.89786, 0.53332, 0.30232, - + 0.20157, 0.42267, 0.55256, - + 0.24410, 0.13669, 7.98763, 0.54222, 0.31331, - + 0.21396, 0.43262, 0.56152, - + 0.24682, 0.13806, 8.06639, 0.55057, 0.32366, - + 0.22564, 0.44198, 0.56992, - + 0.24943, 0.13936, 8.13791, 0.55854, 0.33355, - + 0.23679, 0.45093, 0.57793, - + 0.25190, 0.14060, 8.19777, 0.56593, 0.34279, - + 0.24722, 0.45926, 0.58536, - + 0.25427, 0.14179, 8.25187, 0.57301, 0.35162, - + 0.25721, 0.46723, 0.59248/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=22,30)/ - + 0.25653, 0.14290, 8.29722, 0.57962, 0.35994, - + 0.26663, 0.47470, 0.59913, - + 0.25870, 0.14397, 8.33686, 0.58590, 0.36787, - + 0.27561, 0.48180, 0.60546, - + 0.26079, 0.14499, 8.37192, 0.59189, 0.37544, - + 0.28420, 0.48859, 0.61148, - + 0.26277, 0.14596, 8.39994, 0.59746, 0.38254, - + 0.29226, 0.49492, 0.61706, - + 0.26470, 0.14691, 8.42714, 0.60291, 0.38947, - + 0.30013, 0.50112, 0.62254, - + 0.26654, 0.14778, 8.44477, 0.60784, 0.39585, - + 0.30741, 0.50679, 0.62750, - + 0.26833, 0.14864, 8.46103, 0.61264, 0.40205, - + 0.31448, 0.51230, 0.63233, - + 0.27006, 0.14946, 8.47492, 0.61724, 0.40802, - + 0.32127, 0.51759, 0.63696, - + 0.27170, 0.15023, 8.48297, 0.62146, 0.41355, - + 0.32761, 0.52246, 0.64119/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + 0.23762, 0.13983, 2.65164, 0.24192, 0.00743, - + 0.00002, 0.12998, 0.26315, - + 0.24868, 0.14559, 3.04434, 0.25685, 0.02880, - + 0.00003, 0.14820, 0.27831, - + 0.25817, 0.15043, 3.36292, 0.27018, 0.04776, - + 0.00002, 0.16440, 0.29181, - + 0.26645, 0.15455, 3.62016, 0.28200, 0.06458, - + 0.00002, 0.17877, 0.30381, - + 0.27370, 0.15813, 3.82965, 0.29260, 0.07963, - + 0.00245, 0.19160, 0.31447, - + 0.28020, 0.16127, 4.00176, 0.30210, 0.09321, - + 0.01424, 0.20316, 0.32405, - + 0.28607, 0.16406, 4.14317, 0.31069, 0.10555, - + 0.02919, 0.21364, 0.33268/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ - + 0.29140, 0.16655, 4.25992, 0.31846, 0.11680, - + 0.04218, 0.22316, 0.34048, - + 0.29626, 0.16879, 4.35616, 0.32551, 0.12706, - + 0.05416, 0.23182, 0.34755, - + 0.30073, 0.17083, 4.43532, 0.33192, 0.13649, - + 0.06517, 0.23974, 0.35397, - + 0.30488, 0.17267, 4.50031, 0.33775, 0.14515, - + 0.07532, 0.24701, 0.35982, - + 0.30863, 0.17436, 4.55031, 0.34299, 0.15306, - + 0.08455, 0.25357, 0.36502, - + 0.31215, 0.17591, 4.59101, 0.34780, 0.16039, - + 0.09315, 0.25963, 0.36980, - + 0.31545, 0.17732, 4.62438, 0.35224, 0.16724, - + 0.10119, 0.26528, 0.37423/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,21)/ - + 0.31849, 0.17858, 4.64654, 0.35617, 0.17343, - + 0.10850, 0.27033, 0.37814, - + 0.32135, 0.17976, 4.66427, 0.35983, 0.17925, - + 0.11537, 0.27506, 0.38177, - + 0.32403, 0.18087, 4.67631, 0.36316, 0.18464, - + 0.12177, 0.27942, 0.38506, - + 0.32652, 0.18188, 4.68314, 0.36618, 0.18962, - + 0.12771, 0.28341, 0.38805, - + 0.32888, 0.18282, 4.68698, 0.36898, 0.19432, - + 0.13330, 0.28714, 0.39083, - + 0.33109, 0.18368, 4.68519, 0.37149, 0.19863, - + 0.13846, 0.29054, 0.39329, - + 0.33319, 0.18449, 4.68121, 0.37382, 0.20271, - + 0.14336, 0.29375, 0.39558/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=22,30)/ - + 0.33516, 0.18523, 4.67400, 0.37592, 0.20647, - + 0.14790, 0.29667, 0.39763, - + 0.33702, 0.18593, 4.66500, 0.37784, 0.21000, - + 0.15218, 0.29938, 0.39952, - + 0.33879, 0.18659, 4.65445, 0.37962, 0.21333, - + 0.15622, 0.30192, 0.40126, - + 0.34044, 0.18718, 4.64102, 0.38117, 0.21638, - + 0.15996, 0.30421, 0.40278, - + 0.34205, 0.18776, 4.62803, 0.38268, 0.21935, - + 0.16359, 0.30644, 0.40427, - + 0.34353, 0.18827, 4.61098, 0.38395, 0.22201, - + 0.16689, 0.30839, 0.40548, - + 0.34496, 0.18875, 4.59406, 0.38517, 0.22458, - + 0.17008, 0.31028, 0.40663, - + 0.34633, 0.18922, 4.57668, 0.38629, 0.22702, - + 0.17310, 0.31205, 0.40770, - + 0.34759, 0.18964, 4.55699, 0.38720, 0.22919, - + 0.17584, 0.31358, 0.40857/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + 0.34498, 0.20377, 1.98377, 0.18744, 0.00478, - + 0.00000, 0.10236, 0.21261, - + 0.35611, 0.20806, 2.18571, 0.19430, 0.01836, - + 0.00000, 0.11256, 0.21938, - + 0.36520, 0.21143, 2.33102, 0.20005, 0.02990, - + 0.00000, 0.12116, 0.22494, - + 0.37280, 0.21404, 2.43388, 0.20479, 0.03975, - + 0.00000, 0.12840, 0.22952, - + 0.37916, 0.21616, 2.50653, 0.20875, 0.04823, - + 0.00128, 0.13457, 0.23327, - + 0.38464, 0.21785, 2.55704, 0.21206, 0.05565, - + 0.00795, 0.13988, 0.23638, - + 0.38944, 0.21920, 2.59072, 0.21480, 0.06215, - + 0.01624, 0.14448, 0.23894/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ - + 0.39361, 0.22030, 2.61121, 0.21710, 0.06790, - + 0.02326, 0.14847, 0.24105, - + 0.39723, 0.22119, 2.62152, 0.21901, 0.07300, - + 0.02956, 0.15192, 0.24276, - + 0.40044, 0.22191, 2.62432, 0.22058, 0.07756, - + 0.03520, 0.15493, 0.24416, - + 0.40330, 0.22247, 2.62107, 0.22188, 0.08166, - + 0.04031, 0.15759, 0.24528, - + 0.40572, 0.22292, 2.61152, 0.22292, 0.08526, - + 0.04485, 0.15984, 0.24609, - + 0.40794, 0.22323, 2.59881, 0.22372, 0.08850, - + 0.04898, 0.16182, 0.24672, - + 0.40997, 0.22343, 2.58397, 0.22434, 0.09145, - + 0.05277, 0.16359, 0.24722/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,21)/ - + 0.41165, 0.22357, 2.56523, 0.22479, 0.09403, - + 0.05617, 0.16506, 0.24749, - + 0.41321, 0.22365, 2.54560, 0.22512, 0.09640, - + 0.05929, 0.16638, 0.24765, - + 0.41461, 0.22364, 2.52433, 0.22528, 0.09855, - + 0.06210, 0.16751, 0.24768, - + 0.41582, 0.22358, 2.50176, 0.22534, 0.10048, - + 0.06466, 0.16846, 0.24758, - + 0.41690, 0.22349, 2.47896, 0.22533, 0.10225, - + 0.06703, 0.16929, 0.24740, - + 0.41783, 0.22335, 2.45493, 0.22521, 0.10383, - + 0.06919, 0.16997, 0.24712, - + 0.41867, 0.22320, 2.43109, 0.22504, 0.10529, - + 0.07123, 0.17057, 0.24680/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=22,30)/ - + 0.41939, 0.22300, 2.40663, 0.22479, 0.10658, - + 0.07306, 0.17105, 0.24639, - + 0.42002, 0.22277, 2.38223, 0.22449, 0.10777, - + 0.07474, 0.17146, 0.24594, - + 0.42058, 0.22253, 2.35805, 0.22415, 0.10886, - + 0.07630, 0.17179, 0.24544, - + 0.42105, 0.22224, 2.33340, 0.22373, 0.10982, - + 0.07772, 0.17202, 0.24485, - + 0.42149, 0.22196, 2.30978, 0.22332, 0.11074, - + 0.07907, 0.17225, 0.24429, - + 0.42181, 0.22162, 2.28535, 0.22280, 0.11149, - + 0.08029, 0.17233, 0.24363, - + 0.42211, 0.22129, 2.26172, 0.22228, 0.11220, - + 0.08145, 0.17239, 0.24300, - + 0.42236, 0.22096, 2.23855, 0.22175, 0.11286, - + 0.08252, 0.17243, 0.24234, - + 0.42251, 0.22060, 2.21495, 0.22116, 0.11343, - + 0.08344, 0.17238, 0.24159/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + 0.42600, 0.24543, 1.66882, 0.15260, 0.00365, - + 0.00003, 0.08470, 0.17899, - + 0.43479, 0.24709, 1.77580, 0.15583, 0.01354, - + 0.00003, 0.09119, 0.18181, - + 0.44152, 0.24810, 1.84087, 0.15828, 0.02170, - + 0.00006, 0.09639, 0.18378, - + 0.44673, 0.24858, 1.87709, 0.16007, 0.02845, - + 0.00000, 0.10051, 0.18507, - + 0.45085, 0.24864, 1.89357, 0.16129, 0.03411, - + 0.00093, 0.10387, 0.18588, - + 0.45403, 0.24849, 1.89695, 0.16215, 0.03890, - + 0.00540, 0.10657, 0.18633, - + 0.45664, 0.24806, 1.89098, 0.16262, 0.04301, - + 0.01090, 0.10878, 0.18652/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ - + 0.45866, 0.24752, 1.87822, 0.16290, 0.04652, - + 0.01545, 0.11060, 0.18639, - + 0.46024, 0.24685, 1.86051, 0.16293, 0.04958, - + 0.01944, 0.11208, 0.18607, - + 0.46149, 0.24603, 1.83952, 0.16276, 0.05224, - + 0.02296, 0.11327, 0.18565, - + 0.46232, 0.24525, 1.81633, 0.16257, 0.05458, - + 0.02614, 0.11422, 0.18506, - + 0.46294, 0.24428, 1.79055, 0.16212, 0.05659, - + 0.02886, 0.11493, 0.18431, - + 0.46334, 0.24331, 1.76428, 0.16161, 0.05835, - + 0.03132, 0.11548, 0.18351, - + 0.46356, 0.24237, 1.73803, 0.16106, 0.05992, - + 0.03355, 0.11590, 0.18269/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,21)/ - + 0.46355, 0.24136, 1.71048, 0.16041, 0.06126, - + 0.03547, 0.11620, 0.18174, - + 0.46343, 0.24036, 1.68351, 0.15972, 0.06246, - + 0.03723, 0.11640, 0.18080, - + 0.46317, 0.23933, 1.65656, 0.15895, 0.06350, - + 0.03881, 0.11646, 0.17985, - + 0.46282, 0.23826, 1.62972, 0.15813, 0.06441, - + 0.04020, 0.11645, 0.17883, - + 0.46245, 0.23720, 1.60357, 0.15731, 0.06521, - + 0.04145, 0.11639, 0.17778, - + 0.46193, 0.23611, 1.57753, 0.15645, 0.06590, - + 0.04261, 0.11627, 0.17672, - + 0.46136, 0.23504, 1.55233, 0.15561, 0.06651, - + 0.04370, 0.11613, 0.17569/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=22,30)/ - + 0.46069, 0.23397, 1.52749, 0.15474, 0.06705, - + 0.04463, 0.11590, 0.17461, - + 0.45998, 0.23293, 1.50333, 0.15387, 0.06753, - + 0.04544, 0.11563, 0.17351, - + 0.45923, 0.23190, 1.47989, 0.15301, 0.06795, - + 0.04620, 0.11534, 0.17242, - + 0.45839, 0.23087, 1.45673, 0.15213, 0.06826, - + 0.04689, 0.11502, 0.17132, - + 0.45758, 0.22988, 1.43466, 0.15129, 0.06856, - + 0.04754, 0.11471, 0.17026, - + 0.45667, 0.22884, 1.41252, 0.15037, 0.06879, - + 0.04809, 0.11432, 0.16917, - + 0.45578, 0.22784, 1.39127, 0.14948, 0.06901, - + 0.04860, 0.11394, 0.16812, - + 0.45489, 0.22684, 1.37071, 0.14860, 0.06919, - + 0.04908, 0.11355, 0.16709, - + 0.45396, 0.22580, 1.35040, 0.14767, 0.06930, - + 0.04950, 0.11311, 0.16606/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + 0.48957, 0.27265, 1.45917, 0.12627, 0.00293, - + 0.00010, 0.07116, 0.15242, - + 0.49473, 0.27151, 1.50721, 0.12751, 0.01054, - + 0.00010, 0.07540, 0.15293, - + 0.49809, 0.26997, 1.52544, 0.12820, 0.01667, - + 0.00012, 0.07862, 0.15291, - + 0.50023, 0.26811, 1.52445, 0.12835, 0.02156, - + 0.00010, 0.08104, 0.15253, - + 0.50140, 0.26615, 1.51147, 0.12824, 0.02556, - + 0.00076, 0.08281, 0.15180, - + 0.50186, 0.26412, 1.49154, 0.12791, 0.02891, - + 0.00396, 0.08416, 0.15086, - + 0.50185, 0.26202, 1.46690, 0.12733, 0.03170, - + 0.00787, 0.08516, 0.14979/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ - + 0.50146, 0.25986, 1.43925, 0.12661, 0.03401, - + 0.01102, 0.08590, 0.14866, - + 0.50073, 0.25770, 1.40990, 0.12582, 0.03598, - + 0.01376, 0.08638, 0.14744, - + 0.49968, 0.25561, 1.37988, 0.12496, 0.03768, - + 0.01616, 0.08667, 0.14613, - + 0.49852, 0.25347, 1.34974, 0.12403, 0.03915, - + 0.01823, 0.08682, 0.14478, - + 0.49701, 0.25140, 1.31912, 0.12303, 0.04032, - + 0.02007, 0.08683, 0.14345, - + 0.49543, 0.24936, 1.28930, 0.12204, 0.04133, - + 0.02167, 0.08676, 0.14209, - + 0.49381, 0.24737, 1.26052, 0.12106, 0.04222, - + 0.02308, 0.08662, 0.14071/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,21)/ - + 0.49211, 0.24534, 1.23169, 0.11993, 0.04294, - + 0.02429, 0.08635, 0.13939, - + 0.49035, 0.24338, 1.20414, 0.11886, 0.04358, - + 0.02537, 0.08605, 0.13805, - + 0.48846, 0.24149, 1.17742, 0.11783, 0.04413, - + 0.02630, 0.08572, 0.13665, - + 0.48658, 0.23958, 1.15148, 0.11675, 0.04458, - + 0.02714, 0.08535, 0.13530, - + 0.48473, 0.23772, 1.12662, 0.11568, 0.04497, - + 0.02791, 0.08496, 0.13402, - + 0.48277, 0.23592, 1.10243, 0.11463, 0.04527, - + 0.02859, 0.08451, 0.13270, - + 0.48083, 0.23418, 1.07932, 0.11362, 0.04552, - + 0.02920, 0.08405, 0.13141/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=22,30)/ - + 0.47887, 0.23244, 1.05689, 0.11259, 0.04571, - + 0.02972, 0.08358, 0.13014, - + 0.47693, 0.23072, 1.03531, 0.11156, 0.04586, - + 0.03016, 0.08311, 0.12891, - + 0.47499, 0.22905, 1.01460, 0.11056, 0.04597, - + 0.03057, 0.08263, 0.12771, - + 0.47299, 0.22739, 0.99447, 0.10955, 0.04605, - + 0.03094, 0.08212, 0.12654, - + 0.47106, 0.22579, 0.97536, 0.10858, 0.04611, - + 0.03130, 0.08163, 0.12542, - + 0.46906, 0.22422, 0.95661, 0.10761, 0.04615, - + 0.03156, 0.08110, 0.12425, - + 0.46712, 0.22270, 0.93871, 0.10667, 0.04617, - + 0.03181, 0.08059, 0.12311, - + 0.46520, 0.22122, 0.92151, 0.10576, 0.04617, - + 0.03203, 0.08008, 0.12201, - + 0.46322, 0.21975, 0.90472, 0.10485, 0.04611, - + 0.03220, 0.07955, 0.12091/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + 0.53915, 0.28944, 1.29659, 0.10527, 0.00234, - + 0.00009, 0.06010, 0.13024, - + 0.54019, 0.28535, 1.30479, 0.10526, 0.00836, - + 0.00009, 0.06289, 0.12939, - + 0.53963, 0.28147, 1.29310, 0.10492, 0.01310, - + 0.00009, 0.06485, 0.12816, - + 0.53833, 0.27744, 1.26969, 0.10425, 0.01676, - + 0.00005, 0.06615, 0.12676, - + 0.53631, 0.27360, 1.24019, 0.10341, 0.01971, - + 0.00059, 0.06701, 0.12521, - + 0.53387, 0.26987, 1.20774, 0.10239, 0.02205, - + 0.00299, 0.06757, 0.12367, - + 0.53109, 0.26629, 1.17383, 0.10136, 0.02398, - + 0.00581, 0.06789, 0.12197/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ - + 0.52815, 0.26276, 1.13955, 0.10022, 0.02559, - + 0.00810, 0.06797, 0.12029, - + 0.52506, 0.25934, 1.10563, 0.09901, 0.02695, - + 0.01010, 0.06791, 0.11862, - + 0.52177, 0.25612, 1.07256, 0.09785, 0.02808, - + 0.01179, 0.06776, 0.11692, - + 0.51844, 0.25298, 1.04058, 0.09671, 0.02899, - + 0.01326, 0.06748, 0.11532, - + 0.51514, 0.24983, 1.00936, 0.09542, 0.02972, - + 0.01446, 0.06714, 0.11374, - + 0.51179, 0.24684, 0.97962, 0.09420, 0.03032, - + 0.01554, 0.06677, 0.11219, - + 0.50844, 0.24402, 0.95141, 0.09306, 0.03083, - + 0.01651, 0.06636, 0.11066/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,21)/ - + 0.50500, 0.24124, 0.92404, 0.09189, 0.03124, - + 0.01730, 0.06589, 0.10907, - + 0.50166, 0.23855, 0.89818, 0.09073, 0.03157, - + 0.01800, 0.06541, 0.10759, - + 0.49838, 0.23591, 0.87347, 0.08957, 0.03181, - + 0.01859, 0.06490, 0.10620, - + 0.49509, 0.23336, 0.84986, 0.08847, 0.03201, - + 0.01912, 0.06437, 0.10480, - + 0.49185, 0.23091, 0.82750, 0.08742, 0.03220, - + 0.01960, 0.06385, 0.10342, - + 0.48859, 0.22854, 0.80601, 0.08635, 0.03230, - + 0.01999, 0.06330, 0.10209, - + 0.48540, 0.22625, 0.78565, 0.08531, 0.03237, - + 0.02033, 0.06276, 0.10081/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=22,30)/ - + 0.48230, 0.22399, 0.76612, 0.08425, 0.03242, - + 0.02062, 0.06222, 0.09956, - + 0.47929, 0.22178, 0.74750, 0.08320, 0.03246, - + 0.02087, 0.06168, 0.09834, - + 0.47629, 0.21966, 0.72977, 0.08222, 0.03247, - + 0.02110, 0.06113, 0.09715, - + 0.47320, 0.21761, 0.71273, 0.08134, 0.03243, - + 0.02130, 0.06057, 0.09597, - + 0.47023, 0.21565, 0.69661, 0.08049, 0.03239, - + 0.02148, 0.06003, 0.09485, - + 0.46732, 0.21367, 0.68095, 0.07956, 0.03232, - + 0.02161, 0.05949, 0.09374, - + 0.46451, 0.21176, 0.66607, 0.07866, 0.03225, - + 0.02173, 0.05898, 0.09267, - + 0.46175, 0.20991, 0.65184, 0.07778, 0.03216, - + 0.02183, 0.05847, 0.09163, - + 0.45893, 0.20809, 0.63807, 0.07693, 0.03205, - + 0.02192, 0.05796, 0.09061/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + 0.58491, 0.29887, 1.12907, 0.08407, 0.00185, - + 0.00011, 0.04878, 0.10717, - + 0.58012, 0.29170, 1.10426, 0.08323, 0.00641, - + 0.00007, 0.05040, 0.10531, - + 0.57457, 0.28507, 1.06934, 0.08227, 0.00994, - + 0.00013, 0.05139, 0.10317, - + 0.56883, 0.27870, 1.02988, 0.08105, 0.01256, - + 0.00011, 0.05185, 0.10118, - + 0.56274, 0.27289, 0.98933, 0.07972, 0.01463, - + 0.00046, 0.05205, 0.09918, - + 0.55666, 0.26741, 0.94946, 0.07841, 0.01624, - + 0.00215, 0.05206, 0.09714, - + 0.55067, 0.26218, 0.91082, 0.07702, 0.01754, - + 0.00417, 0.05187, 0.09520/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ - + 0.54472, 0.25722, 0.87384, 0.07566, 0.01858, - + 0.00576, 0.05159, 0.09329, - + 0.53878, 0.25257, 0.83882, 0.07436, 0.01941, - + 0.00708, 0.05122, 0.09143, - + 0.53297, 0.24816, 0.80582, 0.07306, 0.02005, - + 0.00823, 0.05075, 0.08971, - + 0.52732, 0.24395, 0.77473, 0.07179, 0.02054, - + 0.00922, 0.05029, 0.08798, - + 0.52166, 0.23996, 0.74518, 0.07056, 0.02100, - + 0.01002, 0.04976, 0.08623, - + 0.51622, 0.23610, 0.71764, 0.06935, 0.02131, - + 0.01069, 0.04922, 0.08461, - + 0.51101, 0.23241, 0.69199, 0.06818, 0.02152, - + 0.01125, 0.04866, 0.08311/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,21)/ - + 0.50582, 0.22887, 0.66757, 0.06696, 0.02174, - + 0.01176, 0.04809, 0.08162, - + 0.50078, 0.22552, 0.64477, 0.06583, 0.02190, - + 0.01220, 0.04752, 0.08021, - + 0.49580, 0.22232, 0.62328, 0.06479, 0.02198, - + 0.01256, 0.04693, 0.07884, - + 0.49093, 0.21922, 0.60302, 0.06379, 0.02202, - + 0.01286, 0.04640, 0.07747, - + 0.48623, 0.21625, 0.58401, 0.06283, 0.02204, - + 0.01312, 0.04589, 0.07614, - + 0.48162, 0.21337, 0.56595, 0.06184, 0.02203, - + 0.01334, 0.04534, 0.07491, - + 0.47719, 0.21060, 0.54897, 0.06087, 0.02202, - + 0.01352, 0.04479, 0.07375/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=22,30)/ - + 0.47285, 0.20790, 0.53286, 0.05992, 0.02196, - + 0.01367, 0.04424, 0.07264, - + 0.46865, 0.20528, 0.51764, 0.05901, 0.02189, - + 0.01380, 0.04370, 0.07158, - + 0.46452, 0.20279, 0.50326, 0.05817, 0.02182, - + 0.01392, 0.04318, 0.07051, - + 0.46039, 0.20045, 0.48955, 0.05739, 0.02173, - + 0.01405, 0.04266, 0.06942, - + 0.45642, 0.19820, 0.47664, 0.05666, 0.02165, - + 0.01417, 0.04215, 0.06837, - + 0.45256, 0.19591, 0.46425, 0.05584, 0.02154, - + 0.01420, 0.04166, 0.06742, - + 0.44883, 0.19370, 0.45252, 0.05504, 0.02143, - + 0.01422, 0.04118, 0.06651, - + 0.44522, 0.19155, 0.44138, 0.05428, 0.02132, - + 0.01425, 0.04072, 0.06563, - + 0.44169, 0.18940, 0.43071, 0.05353, 0.02122, - + 0.01428, 0.04027, 0.06473/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + 0.61492, 0.29891, 0.98625, 0.06718, 0.00154, - + 0.00019, 0.03963, 0.08797, - + 0.60439, 0.28895, 0.94061, 0.06597, 0.00505, - + 0.00014, 0.04049, 0.08557, - + 0.59387, 0.28013, 0.89232, 0.06464, 0.00764, - + 0.00017, 0.04083, 0.08317, - + 0.58370, 0.27198, 0.84462, 0.06325, 0.00949, - + 0.00012, 0.04087, 0.08093, - + 0.57392, 0.26452, 0.79934, 0.06182, 0.01102, - + 0.00042, 0.04068, 0.07866, - + 0.56453, 0.25766, 0.75711, 0.06040, 0.01213, - + 0.00164, 0.04034, 0.07658, - + 0.55551, 0.25125, 0.71791, 0.05901, 0.01299, - + 0.00311, 0.03993, 0.07459/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ - + 0.54673, 0.24534, 0.68154, 0.05768, 0.01365, - + 0.00421, 0.03946, 0.07263, - + 0.53832, 0.23976, 0.64791, 0.05635, 0.01417, - + 0.00512, 0.03894, 0.07084, - + 0.53028, 0.23448, 0.61693, 0.05505, 0.01456, - + 0.00590, 0.03838, 0.06917, - + 0.52250, 0.22956, 0.58840, 0.05383, 0.01488, - + 0.00650, 0.03783, 0.06754, - + 0.51498, 0.22490, 0.56175, 0.05267, 0.01506, - + 0.00707, 0.03728, 0.06594, - + 0.50778, 0.22046, 0.53722, 0.05154, 0.01521, - + 0.00753, 0.03670, 0.06447, - + 0.50091, 0.21623, 0.51461, 0.05045, 0.01533, - + 0.00790, 0.03612, 0.06309/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,21)/ - + 0.49420, 0.21221, 0.49341, 0.04940, 0.01543, - + 0.00820, 0.03558, 0.06166, - + 0.48773, 0.20843, 0.47383, 0.04842, 0.01549, - + 0.00847, 0.03503, 0.06033, - + 0.48141, 0.20486, 0.45562, 0.04751, 0.01549, - + 0.00872, 0.03446, 0.05909, - + 0.47534, 0.20139, 0.43867, 0.04663, 0.01545, - + 0.00892, 0.03393, 0.05790, - + 0.46955, 0.19807, 0.42289, 0.04578, 0.01537, - + 0.00909, 0.03343, 0.05677, - + 0.46396, 0.19485, 0.40798, 0.04488, 0.01534, - + 0.00920, 0.03291, 0.05570, - + 0.45862, 0.19177, 0.39402, 0.04399, 0.01533, - + 0.00928, 0.03239, 0.05470/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=22,30)/ - + 0.45330, 0.18886, 0.38090, 0.04322, 0.01524, - + 0.00936, 0.03190, 0.05371, - + 0.44810, 0.18610, 0.36858, 0.04254, 0.01511, - + 0.00943, 0.03143, 0.05274, - + 0.44308, 0.18344, 0.35699, 0.04185, 0.01501, - + 0.00948, 0.03097, 0.05181, - + 0.43822, 0.18085, 0.34601, 0.04112, 0.01496, - + 0.00951, 0.03051, 0.05089, - + 0.43356, 0.17838, 0.33570, 0.04043, 0.01491, - + 0.00953, 0.03007, 0.05002, - + 0.42901, 0.17594, 0.32593, 0.03977, 0.01480, - + 0.00954, 0.02965, 0.04916, - + 0.42463, 0.17359, 0.31671, 0.03915, 0.01468, - + 0.00955, 0.02925, 0.04833, - + 0.42037, 0.17133, 0.30799, 0.03855, 0.01457, - + 0.00954, 0.02885, 0.04755, - + 0.41614, 0.16913, 0.29972, 0.03797, 0.01445, - + 0.00953, 0.02846, 0.04682/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + 0.63130, 0.29213, 0.86069, 0.05373, 0.00112, - + 0.00006, 0.03201, 0.07197, - + 0.61522, 0.27998, 0.80233, 0.05233, 0.00390, - + 0.00002, 0.03240, 0.06936, - + 0.60021, 0.26925, 0.74698, 0.05079, 0.00583, - + 0.00004, 0.03245, 0.06695, - + 0.58608, 0.25971, 0.69605, 0.04938, 0.00731, - + 0.00003, 0.03217, 0.06456, - + 0.57288, 0.25106, 0.64981, 0.04796, 0.00836, - + 0.00021, 0.03183, 0.06240, - + 0.56061, 0.24309, 0.60813, 0.04658, 0.00914, - + 0.00111, 0.03138, 0.06038, - + 0.54888, 0.23590, 0.57042, 0.04525, 0.00971, - + 0.00217, 0.03092, 0.05846/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ - + 0.53779, 0.22925, 0.53626, 0.04399, 0.01018, - + 0.00302, 0.03040, 0.05659, - + 0.52736, 0.22302, 0.50529, 0.04273, 0.01053, - + 0.00375, 0.02982, 0.05494, - + 0.51737, 0.21726, 0.47724, 0.04156, 0.01077, - + 0.00435, 0.02924, 0.05343, - + 0.50782, 0.21189, 0.45178, 0.04050, 0.01089, - + 0.00482, 0.02869, 0.05198, - + 0.49873, 0.20683, 0.42850, 0.03945, 0.01097, - + 0.00517, 0.02818, 0.05054, - + 0.49016, 0.20197, 0.40718, 0.03845, 0.01108, - + 0.00546, 0.02763, 0.04921, - + 0.48206, 0.19733, 0.38763, 0.03748, 0.01119, - + 0.00570, 0.02705, 0.04799/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,21)/ - + 0.47412, 0.19305, 0.36970, 0.03654, 0.01114, - + 0.00592, 0.02655, 0.04687, - + 0.46657, 0.18904, 0.35320, 0.03569, 0.01112, - + 0.00610, 0.02605, 0.04573, - + 0.45933, 0.18524, 0.33788, 0.03492, 0.01115, - + 0.00622, 0.02556, 0.04453, - + 0.45235, 0.18161, 0.32374, 0.03415, 0.01111, - + 0.00633, 0.02507, 0.04349, - + 0.44567, 0.17816, 0.31069, 0.03339, 0.01104, - + 0.00644, 0.02459, 0.04256, - + 0.43916, 0.17491, 0.29851, 0.03271, 0.01097, - + 0.00650, 0.02414, 0.04160, - + 0.43290, 0.17184, 0.28719, 0.03209, 0.01091, - + 0.00655, 0.02371, 0.04067/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=22,30)/ - + 0.42690, 0.16886, 0.27658, 0.03144, 0.01082, - + 0.00656, 0.02330, 0.03981, - + 0.42115, 0.16598, 0.26664, 0.03079, 0.01071, - + 0.00656, 0.02291, 0.03900, - + 0.41561, 0.16323, 0.25738, 0.03019, 0.01062, - + 0.00656, 0.02252, 0.03823, - + 0.41021, 0.16056, 0.24872, 0.02962, 0.01052, - + 0.00655, 0.02213, 0.03748, - + 0.40505, 0.15802, 0.24062, 0.02908, 0.01044, - + 0.00655, 0.02177, 0.03677, - + 0.40001, 0.15554, 0.23295, 0.02852, 0.01032, - + 0.00656, 0.02143, 0.03610, - + 0.39517, 0.15316, 0.22574, 0.02800, 0.01020, - + 0.00658, 0.02112, 0.03546, - + 0.39048, 0.15089, 0.21894, 0.02750, 0.01009, - + 0.00658, 0.02080, 0.03484, - + 0.38584, 0.14872, 0.21251, 0.02704, 0.01000, - + 0.00654, 0.02047, 0.03422/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + 0.63607, 0.28009, 0.74894, 0.04280, 0.00088, - + 0.00000, 0.02576, 0.05865, - + 0.61502, 0.26623, 0.68387, 0.04135, 0.00298, - + 0.00000, 0.02584, 0.05609, - + 0.59578, 0.25431, 0.62586, 0.03989, 0.00447, - + 0.00000, 0.02564, 0.05375, - + 0.57820, 0.24381, 0.57471, 0.03851, 0.00555, - + 0.00000, 0.02524, 0.05150, - + 0.56217, 0.23431, 0.52983, 0.03721, 0.00630, - + 0.00023, 0.02483, 0.04939, - + 0.54731, 0.22579, 0.49036, 0.03592, 0.00683, - + 0.00092, 0.02435, 0.04753, - + 0.53351, 0.21797, 0.45543, 0.03468, 0.00723, - + 0.00166, 0.02382, 0.04586/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ - + 0.52049, 0.21088, 0.42440, 0.03360, 0.00753, - + 0.00222, 0.02330, 0.04417, - + 0.50821, 0.20437, 0.39659, 0.03258, 0.00775, - + 0.00273, 0.02276, 0.04263, - + 0.49669, 0.19832, 0.37165, 0.03156, 0.00792, - + 0.00316, 0.02220, 0.04129, - + 0.48595, 0.19264, 0.34960, 0.03053, 0.00800, - + 0.00339, 0.02170, 0.04003, - + 0.47555, 0.18748, 0.32945, 0.02971, 0.00806, - + 0.00363, 0.02120, 0.03867, - + 0.46577, 0.18264, 0.31123, 0.02891, 0.00809, - + 0.00383, 0.02071, 0.03745, - + 0.45656, 0.17807, 0.29469, 0.02814, 0.00808, - + 0.00401, 0.02025, 0.03636/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,21)/ - + 0.44771, 0.17374, 0.27946, 0.02739, 0.00805, - + 0.00415, 0.01978, 0.03535, - + 0.43935, 0.16968, 0.26566, 0.02669, 0.00800, - + 0.00426, 0.01935, 0.03438, - + 0.43139, 0.16585, 0.25307, 0.02602, 0.00794, - + 0.00435, 0.01892, 0.03346, - + 0.42379, 0.16218, 0.24151, 0.02536, 0.00792, - + 0.00439, 0.01850, 0.03260, - + 0.41655, 0.15870, 0.23087, 0.02473, 0.00791, - + 0.00440, 0.01810, 0.03180, - + 0.40959, 0.15536, 0.22098, 0.02412, 0.00782, - + 0.00443, 0.01773, 0.03106, - + 0.40296, 0.15219, 0.21182, 0.02354, 0.00770, - + 0.00446, 0.01738, 0.03037/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=22,30)/ - + 0.39654, 0.14919, 0.20329, 0.02300, 0.00760, - + 0.00450, 0.01704, 0.02968, - + 0.39036, 0.14633, 0.19537, 0.02249, 0.00752, - + 0.00453, 0.01670, 0.02902, - + 0.38444, 0.14360, 0.18802, 0.02201, 0.00743, - + 0.00455, 0.01638, 0.02839, - + 0.37875, 0.14097, 0.18123, 0.02153, 0.00733, - + 0.00453, 0.01606, 0.02779, - + 0.37332, 0.13846, 0.17488, 0.02108, 0.00724, - + 0.00452, 0.01577, 0.02723, - + 0.36796, 0.13607, 0.16885, 0.02068, 0.00719, - + 0.00451, 0.01547, 0.02661, - + 0.36282, 0.13379, 0.16320, 0.02029, 0.00715, - + 0.00451, 0.01520, 0.02601, - + 0.35787, 0.13160, 0.15789, 0.01992, 0.00709, - + 0.00449, 0.01493, 0.02547, - + 0.35301, 0.12949, 0.15288, 0.01954, 0.00698, - + 0.00446, 0.01466, 0.02501/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + 0.63093, 0.26426, 0.64895, 0.03397, 0.00065, - + 0.00005, 0.02068, 0.04746, - + 0.60540, 0.24938, 0.58125, 0.03262, 0.00231, - + 0.00014, 0.02055, 0.04500, - + 0.58263, 0.23663, 0.52352, 0.03129, 0.00343, - + 0.00010, 0.02025, 0.04277, - + 0.56208, 0.22563, 0.47456, 0.03008, 0.00415, - + 0.00009, 0.01989, 0.04065, - + 0.54354, 0.21572, 0.43216, 0.02891, 0.00478, - + 0.00015, 0.01940, 0.03875, - + 0.52668, 0.20682, 0.39583, 0.02771, 0.00525, - + 0.00067, 0.01884, 0.03714, - + 0.51105, 0.19881, 0.36415, 0.02660, 0.00547, - + 0.00129, 0.01835, 0.03573/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ - + 0.49646, 0.19160, 0.33645, 0.02572, 0.00564, - + 0.00172, 0.01782, 0.03429, - + 0.48296, 0.18494, 0.31210, 0.02486, 0.00576, - + 0.00203, 0.01732, 0.03293, - + 0.47047, 0.17873, 0.29046, 0.02394, 0.00578, - + 0.00232, 0.01687, 0.03176, - + 0.45875, 0.17299, 0.27124, 0.02311, 0.00587, - + 0.00256, 0.01638, 0.03067, - + 0.44750, 0.16780, 0.25403, 0.02238, 0.00586, - + 0.00273, 0.01598, 0.02962, - + 0.43700, 0.16291, 0.23873, 0.02165, 0.00583, - + 0.00285, 0.01559, 0.02867, - + 0.42719, 0.15831, 0.22502, 0.02093, 0.00581, - + 0.00293, 0.01521, 0.02780/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,21)/ - + 0.41771, 0.15404, 0.21233, 0.02039, 0.00578, - + 0.00298, 0.01475, 0.02693, - + 0.40880, 0.15006, 0.20094, 0.01984, 0.00576, - + 0.00301, 0.01435, 0.02610, - + 0.40038, 0.14631, 0.19066, 0.01929, 0.00574, - + 0.00300, 0.01399, 0.02530, - + 0.39235, 0.14279, 0.18116, 0.01876, 0.00569, - + 0.00303, 0.01365, 0.02456, - + 0.38473, 0.13948, 0.17240, 0.01828, 0.00563, - + 0.00307, 0.01332, 0.02386, - + 0.37748, 0.13626, 0.16450, 0.01776, 0.00554, - + 0.00311, 0.01303, 0.02326, - + 0.37061, 0.13319, 0.15729, 0.01726, 0.00543, - + 0.00315, 0.01276, 0.02271/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=22,30)/ - + 0.36399, 0.13032, 0.15054, 0.01680, 0.00537, - + 0.00316, 0.01248, 0.02213, - + 0.35766, 0.12762, 0.14424, 0.01638, 0.00532, - + 0.00315, 0.01219, 0.02153, - + 0.35158, 0.12502, 0.13840, 0.01599, 0.00527, - + 0.00314, 0.01192, 0.02100, - + 0.34570, 0.12247, 0.13296, 0.01561, 0.00521, - + 0.00312, 0.01167, 0.02053, - + 0.34010, 0.12005, 0.12790, 0.01526, 0.00515, - + 0.00310, 0.01143, 0.02009, - + 0.33459, 0.11780, 0.12323, 0.01495, 0.00506, - + 0.00307, 0.01119, 0.01964, - + 0.32930, 0.11567, 0.11886, 0.01466, 0.00496, - + 0.00304, 0.01096, 0.01921, - + 0.32424, 0.11361, 0.11475, 0.01436, 0.00488, - + 0.00302, 0.01074, 0.01881, - + 0.31934, 0.11154, 0.11088, 0.01404, 0.00481, - + 0.00301, 0.01055, 0.01846/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + 0.61726, 0.24593, 0.55930, 0.02680, 0.00046, - + 0.00000, 0.01653, 0.03826, - + 0.58810, 0.23036, 0.49202, 0.02548, 0.00177, - + 0.00016, 0.01635, 0.03597, - + 0.56247, 0.21711, 0.43643, 0.02423, 0.00258, - + 0.00009, 0.01598, 0.03407, - + 0.53962, 0.20582, 0.39035, 0.02320, 0.00332, - + 0.00015, 0.01552, 0.03202, - + 0.51915, 0.19579, 0.35167, 0.02217, 0.00371, - + 0.00016, 0.01505, 0.03041, - + 0.50062, 0.18690, 0.31880, 0.02120, 0.00394, - + 0.00050, 0.01457, 0.02905, - + 0.48371, 0.17890, 0.29071, 0.02033, 0.00417, - + 0.00092, 0.01411, 0.02767/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ - + 0.46809, 0.17169, 0.26649, 0.01952, 0.00431, - + 0.00122, 0.01366, 0.02644, - + 0.45362, 0.16516, 0.24534, 0.01874, 0.00434, - + 0.00150, 0.01325, 0.02536, - + 0.44017, 0.15922, 0.22679, 0.01803, 0.00431, - + 0.00168, 0.01281, 0.02439, - + 0.42758, 0.15377, 0.21039, 0.01746, 0.00431, - + 0.00183, 0.01233, 0.02349, - + 0.41595, 0.14859, 0.19590, 0.01677, 0.00435, - + 0.00187, 0.01197, 0.02260, - + 0.40504, 0.14383, 0.18305, 0.01615, 0.00434, - + 0.00195, 0.01162, 0.02181, - + 0.39480, 0.13943, 0.17161, 0.01559, 0.00431, - + 0.00205, 0.01127, 0.02109/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,21)/ - + 0.38513, 0.13523, 0.16136, 0.01509, 0.00428, - + 0.00217, 0.01098, 0.02035, - + 0.37605, 0.13136, 0.15210, 0.01463, 0.00423, - + 0.00222, 0.01069, 0.01964, - + 0.36747, 0.12780, 0.14367, 0.01420, 0.00417, - + 0.00219, 0.01040, 0.01895, - + 0.35935, 0.12437, 0.13604, 0.01374, 0.00409, - + 0.00221, 0.01012, 0.01838, - + 0.35168, 0.12111, 0.12910, 0.01327, 0.00402, - + 0.00227, 0.00986, 0.01789, - + 0.34419, 0.11808, 0.12276, 0.01292, 0.00394, - + 0.00224, 0.00959, 0.01741, - + 0.33703, 0.11524, 0.11696, 0.01261, 0.00387, - + 0.00219, 0.00933, 0.01694/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=22,30)/ - + 0.33028, 0.11253, 0.11159, 0.01225, 0.00381, - + 0.00217, 0.00909, 0.01654, - + 0.32390, 0.10996, 0.10664, 0.01185, 0.00375, - + 0.00218, 0.00886, 0.01620, - + 0.31780, 0.10752, 0.10206, 0.01152, 0.00370, - + 0.00219, 0.00865, 0.01580, - + 0.31192, 0.10518, 0.09781, 0.01127, 0.00368, - + 0.00219, 0.00846, 0.01530, - + 0.30634, 0.10296, 0.09386, 0.01104, 0.00365, - + 0.00218, 0.00828, 0.01483, - + 0.30095, 0.10076, 0.09025, 0.01077, 0.00359, - + 0.00216, 0.00811, 0.01451, - + 0.29580, 0.09866, 0.08688, 0.01051, 0.00353, - + 0.00214, 0.00795, 0.01423, - + 0.29084, 0.09669, 0.08371, 0.01027, 0.00347, - + 0.00212, 0.00780, 0.01394, - + 0.28593, 0.09487, 0.08070, 0.01004, 0.00342, - + 0.00211, 0.00763, 0.01361/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + 0.59662, 0.22596, 0.47919, 0.02099, 0.00042, - + 0.00011, 0.01319, 0.03047, - + 0.56451, 0.21011, 0.41451, 0.01980, 0.00150, - + 0.00009, 0.01292, 0.02839, - + 0.53658, 0.19689, 0.36222, 0.01871, 0.00211, - + 0.00005, 0.01250, 0.02673, - + 0.51191, 0.18562, 0.32007, 0.01784, 0.00253, - + 0.00004, 0.01205, 0.02515, - + 0.48993, 0.17584, 0.28524, 0.01698, 0.00281, - + 0.00019, 0.01164, 0.02376, - + 0.47039, 0.16707, 0.25606, 0.01613, 0.00295, - + 0.00043, 0.01121, 0.02260, - + 0.45255, 0.15934, 0.23138, 0.01540, 0.00305, - + 0.00072, 0.01077, 0.02150/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ - + 0.43617, 0.15241, 0.21039, 0.01474, 0.00314, - + 0.00094, 0.01040, 0.02042, - + 0.42121, 0.14604, 0.19235, 0.01412, 0.00315, - + 0.00111, 0.01001, 0.01952, - + 0.40740, 0.14024, 0.17676, 0.01356, 0.00313, - + 0.00123, 0.00961, 0.01875, - + 0.39460, 0.13490, 0.16307, 0.01302, 0.00319, - + 0.00128, 0.00932, 0.01788, - + 0.38276, 0.13004, 0.15119, 0.01241, 0.00311, - + 0.00139, 0.00899, 0.01726, - + 0.37163, 0.12556, 0.14058, 0.01191, 0.00309, - + 0.00144, 0.00871, 0.01658, - + 0.36119, 0.12141, 0.13109, 0.01150, 0.00309, - + 0.00144, 0.00845, 0.01588/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,21)/ - + 0.35130, 0.11747, 0.12277, 0.01117, 0.00305, - + 0.00148, 0.00818, 0.01529, - + 0.34217, 0.11385, 0.11523, 0.01076, 0.00301, - + 0.00152, 0.00791, 0.01479, - + 0.33371, 0.11051, 0.10832, 0.01024, 0.00298, - + 0.00156, 0.00763, 0.01439, - + 0.32559, 0.10728, 0.10221, 0.00985, 0.00295, - + 0.00158, 0.00743, 0.01397, - + 0.31785, 0.10420, 0.09674, 0.00954, 0.00292, - + 0.00160, 0.00729, 0.01353, - + 0.31042, 0.10136, 0.09170, 0.00933, 0.00286, - + 0.00160, 0.00709, 0.01311, - + 0.30337, 0.09871, 0.08707, 0.00916, 0.00279, - + 0.00158, 0.00687, 0.01270/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=22,30)/ - + 0.29676, 0.09619, 0.08285, 0.00889, 0.00274, - + 0.00156, 0.00667, 0.01233, - + 0.29055, 0.09379, 0.07898, 0.00856, 0.00269, - + 0.00153, 0.00647, 0.01199, - + 0.28460, 0.09154, 0.07540, 0.00830, 0.00263, - + 0.00152, 0.00630, 0.01164, - + 0.27885, 0.08943, 0.07207, 0.00814, 0.00256, - + 0.00151, 0.00616, 0.01126, - + 0.27339, 0.08743, 0.06899, 0.00798, 0.00250, - + 0.00151, 0.00602, 0.01091, - + 0.26803, 0.08545, 0.06617, 0.00784, 0.00248, - + 0.00149, 0.00587, 0.01061, - + 0.26291, 0.08356, 0.06355, 0.00771, 0.00247, - + 0.00148, 0.00573, 0.01034, - + 0.25803, 0.08177, 0.06111, 0.00755, 0.00245, - + 0.00146, 0.00560, 0.01008, - + 0.25338, 0.08009, 0.05884, 0.00732, 0.00240, - + 0.00146, 0.00548, 0.00984/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + 0.57001, 0.20536, 0.40799, 0.01638, 0.00036, - + 0.00012, 0.01040, 0.02411, - + 0.53559, 0.18969, 0.34682, 0.01535, 0.00118, - + 0.00010, 0.01013, 0.02230, - + 0.50586, 0.17684, 0.29915, 0.01450, 0.00160, - + 0.00014, 0.00972, 0.02087, - + 0.48021, 0.16564, 0.26091, 0.01361, 0.00191, - + 0.00011, 0.00930, 0.01966, - + 0.45749, 0.15612, 0.23019, 0.01287, 0.00212, - + 0.00011, 0.00891, 0.01847, - + 0.43720, 0.14776, 0.20474, 0.01222, 0.00227, - + 0.00035, 0.00858, 0.01736, - + 0.41895, 0.14031, 0.18362, 0.01156, 0.00233, - + 0.00057, 0.00824, 0.01646/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ - + 0.40237, 0.13358, 0.16579, 0.01099, 0.00238, - + 0.00070, 0.00795, 0.01561, - + 0.38713, 0.12756, 0.15046, 0.01057, 0.00240, - + 0.00080, 0.00761, 0.01481, - + 0.37316, 0.12213, 0.13729, 0.01016, 0.00240, - + 0.00088, 0.00726, 0.01412, - + 0.36033, 0.11718, 0.12594, 0.00972, 0.00240, - + 0.00098, 0.00697, 0.01345, - + 0.34867, 0.11248, 0.11603, 0.00901, 0.00234, - + 0.00103, 0.00670, 0.01309, - + 0.33765, 0.10825, 0.10739, 0.00858, 0.00233, - + 0.00108, 0.00649, 0.01257, - + 0.32727, 0.10443, 0.09980, 0.00837, 0.00233, - + 0.00111, 0.00633, 0.01197/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,21)/ - + 0.31747, 0.10088, 0.09300, 0.00810, 0.00229, - + 0.00117, 0.00611, 0.01151, - + 0.30839, 0.09755, 0.08694, 0.00781, 0.00225, - + 0.00119, 0.00589, 0.01107, - + 0.29994, 0.09440, 0.08153, 0.00748, 0.00222, - + 0.00116, 0.00567, 0.01065, - + 0.29194, 0.09147, 0.07667, 0.00724, 0.00216, - + 0.00116, 0.00550, 0.01028, - + 0.28439, 0.08874, 0.07228, 0.00705, 0.00210, - + 0.00116, 0.00536, 0.00995, - + 0.27731, 0.08613, 0.06829, 0.00681, 0.00206, - + 0.00117, 0.00518, 0.00964, - + 0.27065, 0.08365, 0.06466, 0.00655, 0.00204, - + 0.00117, 0.00499, 0.00936/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=22,30)/ - + 0.26424, 0.08135, 0.06135, 0.00634, 0.00200, - + 0.00115, 0.00486, 0.00904, - + 0.25811, 0.07921, 0.05830, 0.00617, 0.00196, - + 0.00112, 0.00476, 0.00871, - + 0.25232, 0.07717, 0.05552, 0.00600, 0.00192, - + 0.00110, 0.00466, 0.00843, - + 0.24682, 0.07520, 0.05298, 0.00582, 0.00187, - + 0.00108, 0.00452, 0.00823, - + 0.24161, 0.07334, 0.05063, 0.00566, 0.00182, - + 0.00107, 0.00440, 0.00803, - + 0.23644, 0.07160, 0.04845, 0.00550, 0.00179, - + 0.00105, 0.00427, 0.00783, - + 0.23151, 0.06995, 0.04642, 0.00535, 0.00176, - + 0.00104, 0.00415, 0.00764, - + 0.22684, 0.06838, 0.04454, 0.00522, 0.00173, - + 0.00103, 0.00404, 0.00744, - + 0.22244, 0.06686, 0.04280, 0.00512, 0.00169, - + 0.00104, 0.00395, 0.00722/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + 0.53874, 0.18484, 0.34520, 0.01284, 0.00008, - + 0.00000, 0.00799, 0.01913, - + 0.50280, 0.16963, 0.28863, 0.01197, 0.00081, - + 0.00000, 0.00776, 0.01749, - + 0.47229, 0.15708, 0.24570, 0.01115, 0.00113, - + 0.00000, 0.00739, 0.01634, - + 0.44601, 0.14641, 0.21197, 0.01035, 0.00142, - + 0.00000, 0.00708, 0.01525, - + 0.42284, 0.13740, 0.18512, 0.00979, 0.00152, - + 0.00000, 0.00671, 0.01430, - + 0.40238, 0.12948, 0.16329, 0.00928, 0.00164, - + 0.00012, 0.00642, 0.01336, - + 0.38407, 0.12244, 0.14531, 0.00876, 0.00164, - + 0.00031, 0.00611, 0.01270/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ - + 0.36760, 0.11622, 0.13020, 0.00823, 0.00165, - + 0.00040, 0.00583, 0.01202, - + 0.35261, 0.11061, 0.11745, 0.00775, 0.00168, - + 0.00050, 0.00560, 0.01140, - + 0.33877, 0.10554, 0.10661, 0.00737, 0.00169, - + 0.00060, 0.00540, 0.01085, - + 0.32603, 0.10095, 0.09724, 0.00704, 0.00167, - + 0.00060, 0.00513, 0.01038, - + 0.31440, 0.09668, 0.08919, 0.00668, 0.00166, - + 0.00069, 0.00495, 0.00994, - + 0.30357, 0.09285, 0.08217, 0.00643, 0.00165, - + 0.00073, 0.00476, 0.00942, - + 0.29348, 0.08938, 0.07600, 0.00625, 0.00163, - + 0.00072, 0.00459, 0.00886/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,21)/ - + 0.28416, 0.08603, 0.07049, 0.00597, 0.00158, - + 0.00076, 0.00447, 0.00854, - + 0.27542, 0.08294, 0.06564, 0.00576, 0.00155, - + 0.00078, 0.00433, 0.00821, - + 0.26713, 0.08010, 0.06136, 0.00560, 0.00154, - + 0.00078, 0.00415, 0.00787, - + 0.25941, 0.07744, 0.05753, 0.00540, 0.00151, - + 0.00079, 0.00398, 0.00761, - + 0.25222, 0.07495, 0.05408, 0.00518, 0.00147, - + 0.00080, 0.00383, 0.00739, - + 0.24540, 0.07263, 0.05094, 0.00502, 0.00143, - + 0.00081, 0.00372, 0.00710, - + 0.23898, 0.07048, 0.04809, 0.00490, 0.00140, - + 0.00081, 0.00362, 0.00680/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=22,30)/ - + 0.23285, 0.06846, 0.04551, 0.00475, 0.00138, - + 0.00079, 0.00351, 0.00655, - + 0.22701, 0.06657, 0.04317, 0.00458, 0.00137, - + 0.00076, 0.00340, 0.00635, - + 0.22151, 0.06477, 0.04103, 0.00443, 0.00134, - + 0.00073, 0.00329, 0.00615, - + 0.21631, 0.06302, 0.03906, 0.00432, 0.00129, - + 0.00071, 0.00317, 0.00596, - + 0.21139, 0.06137, 0.03724, 0.00421, 0.00124, - + 0.00069, 0.00305, 0.00577, - + 0.20657, 0.05979, 0.03556, 0.00411, 0.00121, - + 0.00070, 0.00298, 0.00562, - + 0.20199, 0.05829, 0.03401, 0.00402, 0.00118, - + 0.00070, 0.00291, 0.00548, - + 0.19766, 0.05687, 0.03257, 0.00392, 0.00115, - + 0.00071, 0.00284, 0.00534, - + 0.19361, 0.05552, 0.03126, 0.00377, 0.00113, - + 0.00069, 0.00277, 0.00519/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + 0.50422, 0.16389, 0.28902, 0.00955, 0.00026, - + 0.00005, 0.00638, 0.01489, - + 0.46733, 0.14955, 0.23821, 0.00892, 0.00073, - + 0.00012, 0.00606, 0.01353, - + 0.43635, 0.13775, 0.20005, 0.00827, 0.00094, - + 0.00007, 0.00571, 0.01261, - + 0.40975, 0.12793, 0.17081, 0.00777, 0.00110, - + 0.00005, 0.00542, 0.01163, - + 0.38683, 0.11938, 0.14764, 0.00723, 0.00118, - + 0.00009, 0.00515, 0.01087, - + 0.36664, 0.11203, 0.12914, 0.00677, 0.00127, - + 0.00021, 0.00492, 0.01016, - + 0.34858, 0.10559, 0.11404, 0.00625, 0.00131, - + 0.00033, 0.00469, 0.00962/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ - + 0.33225, 0.09985, 0.10151, 0.00591, 0.00133, - + 0.00039, 0.00446, 0.00904, - + 0.31759, 0.09469, 0.09097, 0.00560, 0.00133, - + 0.00047, 0.00423, 0.00851, - + 0.30428, 0.09002, 0.08205, 0.00523, 0.00126, - + 0.00055, 0.00403, 0.00813, - + 0.29170, 0.08588, 0.07450, 0.00517, 0.00125, - + 0.00057, 0.00390, 0.00770, - + 0.28039, 0.08217, 0.06798, 0.00500, 0.00119, - + 0.00057, 0.00373, 0.00721, - + 0.27007, 0.07868, 0.06232, 0.00475, 0.00119, - + 0.00054, 0.00356, 0.00684, - + 0.26058, 0.07542, 0.05736, 0.00447, 0.00121, - + 0.00049, 0.00341, 0.00656/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,21)/ - + 0.25151, 0.07248, 0.05304, 0.00441, 0.00116, - + 0.00051, 0.00322, 0.00625, - + 0.24314, 0.06973, 0.04923, 0.00429, 0.00111, - + 0.00054, 0.00308, 0.00601, - + 0.23538, 0.06715, 0.04586, 0.00410, 0.00107, - + 0.00057, 0.00297, 0.00583, - + 0.22813, 0.06479, 0.04284, 0.00392, 0.00105, - + 0.00058, 0.00289, 0.00560, - + 0.22136, 0.06263, 0.04012, 0.00375, 0.00104, - + 0.00057, 0.00283, 0.00536, - + 0.21498, 0.06058, 0.03768, 0.00360, 0.00102, - + 0.00056, 0.00272, 0.00512, - + 0.20898, 0.05865, 0.03549, 0.00346, 0.00100, - + 0.00055, 0.00260, 0.00491/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=22,30)/ - + 0.20328, 0.05681, 0.03351, 0.00332, 0.00098, - + 0.00055, 0.00251, 0.00475, - + 0.19789, 0.05507, 0.03171, 0.00319, 0.00097, - + 0.00055, 0.00245, 0.00463, - + 0.19274, 0.05344, 0.03007, 0.00310, 0.00094, - + 0.00054, 0.00238, 0.00450, - + 0.18775, 0.05192, 0.02857, 0.00310, 0.00090, - + 0.00052, 0.00229, 0.00434, - + 0.18304, 0.05050, 0.02719, 0.00310, 0.00085, - + 0.00051, 0.00220, 0.00418, - + 0.17868, 0.04914, 0.02592, 0.00297, 0.00085, - + 0.00051, 0.00213, 0.00406, - + 0.17456, 0.04785, 0.02474, 0.00285, 0.00085, - + 0.00051, 0.00206, 0.00394, - + 0.17063, 0.04663, 0.02365, 0.00274, 0.00084, - + 0.00051, 0.00200, 0.00383, - + 0.16683, 0.04549, 0.02266, 0.00268, 0.00079, - + 0.00048, 0.00194, 0.00369/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + 0.46683, 0.14460, 0.24073, 0.00751, 0.00013, - + 0.00000, 0.00480, 0.01140, - + 0.42997, 0.13097, 0.19538, 0.00680, 0.00043, - + 0.00000, 0.00454, 0.01055, - + 0.39927, 0.11993, 0.16217, 0.00633, 0.00064, - + 0.00000, 0.00427, 0.00962, - + 0.37325, 0.11079, 0.13684, 0.00580, 0.00077, - + 0.00000, 0.00401, 0.00886, - + 0.35038, 0.10301, 0.11717, 0.00549, 0.00082, - + 0.00000, 0.00387, 0.00820, - + 0.33066, 0.09618, 0.10167, 0.00505, 0.00088, - + 0.00004, 0.00365, 0.00780, - + 0.31317, 0.09026, 0.08905, 0.00468, 0.00090, - + 0.00013, 0.00343, 0.00733/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ - + 0.29751, 0.08510, 0.07869, 0.00441, 0.00087, - + 0.00020, 0.00324, 0.00681, - + 0.28343, 0.08045, 0.07016, 0.00419, 0.00088, - + 0.00024, 0.00307, 0.00633, - + 0.27074, 0.07625, 0.06298, 0.00398, 0.00092, - + 0.00028, 0.00294, 0.00588, - + 0.25891, 0.07255, 0.05677, 0.00392, 0.00090, - + 0.00030, 0.00280, 0.00550, - + 0.24821, 0.06916, 0.05156, 0.00368, 0.00085, - + 0.00038, 0.00267, 0.00531, - + 0.23832, 0.06603, 0.04705, 0.00352, 0.00081, - + 0.00040, 0.00253, 0.00509, - + 0.22917, 0.06314, 0.04313, 0.00343, 0.00078, - + 0.00037, 0.00240, 0.00485/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,21)/ - + 0.22068, 0.06052, 0.03978, 0.00330, 0.00079, - + 0.00034, 0.00229, 0.00459, - + 0.21296, 0.05809, 0.03681, 0.00314, 0.00078, - + 0.00033, 0.00220, 0.00438, - + 0.20592, 0.05581, 0.03417, 0.00291, 0.00074, - + 0.00035, 0.00213, 0.00422, - + 0.19917, 0.05375, 0.03182, 0.00279, 0.00073, - + 0.00036, 0.00205, 0.00404, - + 0.19276, 0.05187, 0.02974, 0.00272, 0.00074, - + 0.00036, 0.00197, 0.00386, - + 0.18668, 0.05006, 0.02786, 0.00268, 0.00071, - + 0.00034, 0.00190, 0.00372, - + 0.18096, 0.04836, 0.02617, 0.00264, 0.00068, - + 0.00033, 0.00183, 0.00360/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=22,30)/ - + 0.17570, 0.04677, 0.02464, 0.00254, 0.00065, - + 0.00032, 0.00177, 0.00346, - + 0.17084, 0.04527, 0.02325, 0.00240, 0.00063, - + 0.00032, 0.00171, 0.00332, - + 0.16622, 0.04387, 0.02200, 0.00229, 0.00060, - + 0.00031, 0.00165, 0.00319, - + 0.16178, 0.04257, 0.02087, 0.00219, 0.00057, - + 0.00031, 0.00159, 0.00306, - + 0.15761, 0.04135, 0.01983, 0.00210, 0.00054, - + 0.00030, 0.00153, 0.00294, - + 0.15360, 0.04016, 0.01887, 0.00204, 0.00055, - + 0.00030, 0.00150, 0.00285, - + 0.14980, 0.03904, 0.01800, 0.00198, 0.00056, - + 0.00029, 0.00147, 0.00277, - + 0.14620, 0.03798, 0.01718, 0.00192, 0.00056, - + 0.00029, 0.00144, 0.00269, - + 0.14277, 0.03698, 0.01643, 0.00184, 0.00054, - + 0.00030, 0.00138, 0.00264/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + 0.42787, 0.12580, 0.19817, 0.00551, 0.00017, - + 0.00005, 0.00371, 0.00875, - + 0.39190, 0.11312, 0.15881, 0.00489, 0.00037, - + 0.00011, 0.00349, 0.00806, - + 0.36169, 0.10315, 0.13005, 0.00454, 0.00054, - + 0.00008, 0.00324, 0.00728, - + 0.33591, 0.09485, 0.10864, 0.00422, 0.00057, - + 0.00007, 0.00304, 0.00683, - + 0.31428, 0.08773, 0.09218, 0.00386, 0.00062, - + 0.00006, 0.00286, 0.00627, - + 0.29538, 0.08166, 0.07931, 0.00360, 0.00065, - + 0.00011, 0.00269, 0.00579, - + 0.27848, 0.07638, 0.06896, 0.00354, 0.00064, - + 0.00016, 0.00255, 0.00530/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ - + 0.26351, 0.07172, 0.06052, 0.00337, 0.00063, - + 0.00020, 0.00235, 0.00496, - + 0.25015, 0.06755, 0.05355, 0.00317, 0.00061, - + 0.00019, 0.00218, 0.00468, - + 0.23815, 0.06382, 0.04777, 0.00299, 0.00061, - + 0.00021, 0.00210, 0.00437, - + 0.22742, 0.06051, 0.04298, 0.00273, 0.00056, - + 0.00025, 0.00203, 0.00414, - + 0.21731, 0.05747, 0.03883, 0.00262, 0.00057, - + 0.00026, 0.00187, 0.00391, - + 0.20819, 0.05473, 0.03528, 0.00246, 0.00056, - + 0.00026, 0.00179, 0.00373, - + 0.19990, 0.05223, 0.03223, 0.00228, 0.00054, - + 0.00026, 0.00176, 0.00357/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,21)/ - + 0.19192, 0.04997, 0.02960, 0.00233, 0.00053, - + 0.00027, 0.00167, 0.00336, - + 0.18462, 0.04789, 0.02730, 0.00230, 0.00051, - + 0.00026, 0.00158, 0.00316, - + 0.17793, 0.04597, 0.02526, 0.00217, 0.00049, - + 0.00023, 0.00151, 0.00294, - + 0.17168, 0.04415, 0.02346, 0.00211, 0.00049, - + 0.00024, 0.00145, 0.00281, - + 0.16586, 0.04245, 0.02185, 0.00209, 0.00050, - + 0.00027, 0.00140, 0.00272, - + 0.16041, 0.04090, 0.02042, 0.00200, 0.00048, - + 0.00027, 0.00134, 0.00261, - + 0.15533, 0.03947, 0.01913, 0.00189, 0.00046, - + 0.00026, 0.00129, 0.00249/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=22,30)/ - + 0.15064, 0.03811, 0.01798, 0.00176, 0.00043, - + 0.00025, 0.00124, 0.00240, - + 0.14628, 0.03682, 0.01694, 0.00163, 0.00041, - + 0.00023, 0.00120, 0.00233, - + 0.14211, 0.03562, 0.01600, 0.00154, 0.00040, - + 0.00022, 0.00115, 0.00226, - + 0.13802, 0.03450, 0.01514, 0.00153, 0.00041, - + 0.00022, 0.00112, 0.00219, - + 0.13418, 0.03345, 0.01434, 0.00151, 0.00043, - + 0.00023, 0.00108, 0.00213, - + 0.13053, 0.03245, 0.01364, 0.00149, 0.00043, - + 0.00024, 0.00105, 0.00204, - + 0.12709, 0.03151, 0.01299, 0.00146, 0.00043, - + 0.00025, 0.00102, 0.00196, - + 0.12382, 0.03062, 0.01239, 0.00143, 0.00042, - + 0.00026, 0.00100, 0.00188, - + 0.12070, 0.02977, 0.01182, 0.00139, 0.00040, - + 0.00024, 0.00098, 0.00182/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + 0.38842, 0.10833, 0.16214, 0.00409, 0.00014, - + 0.00004, 0.00280, 0.00658, - + 0.35294, 0.09710, 0.12784, 0.00381, 0.00031, - + 0.00004, 0.00265, 0.00587, - + 0.32419, 0.08786, 0.10358, 0.00336, 0.00031, - + 0.00004, 0.00238, 0.00556, - + 0.29984, 0.08045, 0.08563, 0.00318, 0.00037, - + 0.00000, 0.00220, 0.00498, - + 0.27914, 0.07406, 0.07205, 0.00294, 0.00037, - + 0.00001, 0.00203, 0.00466, - + 0.26116, 0.06862, 0.06140, 0.00286, 0.00039, - + 0.00004, 0.00193, 0.00423, - + 0.24545, 0.06394, 0.05303, 0.00269, 0.00042, - + 0.00009, 0.00183, 0.00385/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ - + 0.23143, 0.05991, 0.04628, 0.00250, 0.00042, - + 0.00010, 0.00170, 0.00356, - + 0.21897, 0.05629, 0.04076, 0.00233, 0.00041, - + 0.00009, 0.00158, 0.00332, - + 0.20788, 0.05302, 0.03617, 0.00218, 0.00040, - + 0.00010, 0.00148, 0.00310, - + 0.19771, 0.05012, 0.03231, 0.00211, 0.00039, - + 0.00010, 0.00140, 0.00290, - + 0.18855, 0.04754, 0.02906, 0.00195, 0.00038, - + 0.00013, 0.00136, 0.00279, - + 0.18014, 0.04515, 0.02630, 0.00186, 0.00037, - + 0.00014, 0.00129, 0.00264, - + 0.17239, 0.04294, 0.02394, 0.00181, 0.00034, - + 0.00013, 0.00121, 0.00247/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,21)/ - + 0.16530, 0.04094, 0.02191, 0.00166, 0.00034, - + 0.00013, 0.00113, 0.00239, - + 0.15873, 0.03913, 0.02013, 0.00157, 0.00033, - + 0.00013, 0.00106, 0.00229, - + 0.15260, 0.03748, 0.01856, 0.00153, 0.00030, - + 0.00012, 0.00100, 0.00216, - + 0.14691, 0.03594, 0.01719, 0.00150, 0.00028, - + 0.00012, 0.00097, 0.00205, - + 0.14163, 0.03452, 0.01598, 0.00149, 0.00026, - + 0.00012, 0.00095, 0.00194, - + 0.13681, 0.03320, 0.01489, 0.00141, 0.00027, - + 0.00013, 0.00093, 0.00183, - + 0.13235, 0.03196, 0.01392, 0.00131, 0.00029, - + 0.00013, 0.00090, 0.00172/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=22,30)/ - + 0.12809, 0.03080, 0.01307, 0.00123, 0.00029, - + 0.00014, 0.00087, 0.00167, - + 0.12407, 0.02972, 0.01230, 0.00115, 0.00028, - + 0.00015, 0.00083, 0.00165, - + 0.12027, 0.02870, 0.01159, 0.00109, 0.00027, - + 0.00015, 0.00080, 0.00161, - + 0.11668, 0.02775, 0.01094, 0.00107, 0.00028, - + 0.00014, 0.00077, 0.00155, - + 0.11331, 0.02686, 0.01033, 0.00104, 0.00028, - + 0.00014, 0.00075, 0.00148, - + 0.11006, 0.02602, 0.00981, 0.00100, 0.00027, - + 0.00014, 0.00072, 0.00145, - + 0.10700, 0.02523, 0.00933, 0.00096, 0.00025, - + 0.00014, 0.00069, 0.00142, - + 0.10411, 0.02449, 0.00888, 0.00093, 0.00024, - + 0.00014, 0.00066, 0.00139, - + 0.10135, 0.02377, 0.00847, 0.00091, 0.00023, - + 0.00014, 0.00065, 0.00132/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + 0.34889, 0.09221, 0.13094, 0.00298, 0.00007, - + 0.00000, 0.00209, 0.00511, - + 0.31513, 0.08201, 0.10200, 0.00261, 0.00017, - + 0.00002, 0.00189, 0.00457, - + 0.28733, 0.07386, 0.08145, 0.00250, 0.00024, - + 0.00001, 0.00174, 0.00414, - + 0.26435, 0.06721, 0.06653, 0.00238, 0.00024, - + 0.00000, 0.00162, 0.00365, - + 0.24520, 0.06156, 0.05538, 0.00205, 0.00030, - + 0.00001, 0.00150, 0.00342, - + 0.22848, 0.05687, 0.04686, 0.00192, 0.00034, - + 0.00005, 0.00141, 0.00308, - + 0.21384, 0.05279, 0.04012, 0.00185, 0.00034, - + 0.00009, 0.00136, 0.00278/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ - + 0.20103, 0.04922, 0.03475, 0.00170, 0.00033, - + 0.00008, 0.00124, 0.00257, - + 0.18952, 0.04608, 0.03042, 0.00161, 0.00032, - + 0.00007, 0.00112, 0.00237, - + 0.17915, 0.04326, 0.02686, 0.00153, 0.00031, - + 0.00009, 0.00106, 0.00220, - + 0.16992, 0.04071, 0.02388, 0.00144, 0.00031, - + 0.00014, 0.00102, 0.00215, - + 0.16162, 0.03849, 0.02138, 0.00124, 0.00028, - + 0.00014, 0.00094, 0.00208, - + 0.15394, 0.03649, 0.01927, 0.00120, 0.00027, - + 0.00014, 0.00089, 0.00194, - + 0.14685, 0.03469, 0.01746, 0.00125, 0.00029, - + 0.00012, 0.00086, 0.00176/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,21)/ - + 0.14059, 0.03299, 0.01591, 0.00111, 0.00025, - + 0.00010, 0.00083, 0.00165, - + 0.13477, 0.03144, 0.01457, 0.00102, 0.00024, - + 0.00011, 0.00080, 0.00155, - + 0.12930, 0.03002, 0.01341, 0.00100, 0.00025, - + 0.00014, 0.00076, 0.00148, - + 0.12428, 0.02871, 0.01238, 0.00094, 0.00025, - + 0.00016, 0.00073, 0.00143, - + 0.11966, 0.02750, 0.01148, 0.00088, 0.00026, - + 0.00015, 0.00070, 0.00138, - + 0.11532, 0.02639, 0.01067, 0.00082, 0.00024, - + 0.00013, 0.00066, 0.00130, - + 0.11127, 0.02537, 0.00994, 0.00076, 0.00022, - + 0.00011, 0.00062, 0.00121/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=22,30)/ - + 0.10744, 0.02441, 0.00931, 0.00074, 0.00022, - + 0.00011, 0.00061, 0.00115, - + 0.10382, 0.02351, 0.00874, 0.00075, 0.00022, - + 0.00014, 0.00061, 0.00110, - + 0.10043, 0.02267, 0.00822, 0.00074, 0.00022, - + 0.00015, 0.00060, 0.00107, - + 0.09723, 0.02189, 0.00775, 0.00069, 0.00021, - + 0.00013, 0.00058, 0.00105, - + 0.09423, 0.02116, 0.00732, 0.00065, 0.00019, - + 0.00012, 0.00055, 0.00104, - + 0.09145, 0.02046, 0.00693, 0.00061, 0.00019, - + 0.00012, 0.00053, 0.00099, - + 0.08883, 0.01980, 0.00658, 0.00058, 0.00019, - + 0.00012, 0.00050, 0.00095, - + 0.08633, 0.01917, 0.00625, 0.00055, 0.00019, - + 0.00013, 0.00048, 0.00092, - + 0.08389, 0.01858, 0.00595, 0.00056, 0.00020, - + 0.00013, 0.00048, 0.00088/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + 0.31028, 0.07774, 0.10491, 0.00202, 0.00003, - + 0.00001, 0.00146, 0.00388, - + 0.27821, 0.06868, 0.08040, 0.00197, 0.00007, - + 0.00001, 0.00137, 0.00339, - + 0.25250, 0.06156, 0.06351, 0.00177, 0.00014, - + 0.00000, 0.00124, 0.00288, - + 0.23117, 0.05564, 0.05132, 0.00165, 0.00014, - + 0.00000, 0.00112, 0.00271, - + 0.21313, 0.05084, 0.04237, 0.00161, 0.00016, - + 0.00000, 0.00105, 0.00238, - + 0.19789, 0.04676, 0.03554, 0.00147, 0.00022, - + 0.00002, 0.00099, 0.00213, - + 0.18435, 0.04325, 0.03023, 0.00144, 0.00023, - + 0.00004, 0.00092, 0.00197/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ - + 0.17271, 0.04013, 0.02602, 0.00128, 0.00021, - + 0.00002, 0.00083, 0.00182, - + 0.16239, 0.03741, 0.02264, 0.00116, 0.00019, - + 0.00001, 0.00077, 0.00167, - + 0.15306, 0.03504, 0.01987, 0.00111, 0.00019, - + 0.00003, 0.00074, 0.00157, - + 0.14491, 0.03291, 0.01758, 0.00098, 0.00018, - + 0.00004, 0.00072, 0.00147, - + 0.13731, 0.03102, 0.01568, 0.00093, 0.00015, - + 0.00003, 0.00066, 0.00136, - + 0.13040, 0.02932, 0.01409, 0.00090, 0.00015, - + 0.00004, 0.00062, 0.00129, - + 0.12413, 0.02778, 0.01273, 0.00088, 0.00016, - + 0.00007, 0.00059, 0.00123/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,21)/ - + 0.11852, 0.02637, 0.01156, 0.00081, 0.00018, - + 0.00005, 0.00057, 0.00111, - + 0.11332, 0.02510, 0.01055, 0.00074, 0.00017, - + 0.00005, 0.00055, 0.00105, - + 0.10847, 0.02394, 0.00966, 0.00066, 0.00015, - + 0.00005, 0.00052, 0.00105, - + 0.10397, 0.02286, 0.00890, 0.00066, 0.00015, - + 0.00006, 0.00050, 0.00101, - + 0.09982, 0.02186, 0.00824, 0.00070, 0.00016, - + 0.00007, 0.00047, 0.00095, - + 0.09603, 0.02093, 0.00764, 0.00064, 0.00016, - + 0.00008, 0.00045, 0.00091, - + 0.09255, 0.02007, 0.00711, 0.00056, 0.00016, - + 0.00008, 0.00044, 0.00088/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=22,30)/ - + 0.08923, 0.01927, 0.00664, 0.00053, 0.00015, - + 0.00008, 0.00042, 0.00083, - + 0.08608, 0.01852, 0.00622, 0.00053, 0.00015, - + 0.00009, 0.00041, 0.00078, - + 0.08314, 0.01783, 0.00584, 0.00051, 0.00015, - + 0.00009, 0.00040, 0.00074, - + 0.08038, 0.01718, 0.00550, 0.00049, 0.00014, - + 0.00008, 0.00038, 0.00072, - + 0.07780, 0.01657, 0.00519, 0.00047, 0.00013, - + 0.00007, 0.00036, 0.00071, - + 0.07534, 0.01600, 0.00490, 0.00044, 0.00013, - + 0.00007, 0.00035, 0.00069, - + 0.07303, 0.01546, 0.00464, 0.00041, 0.00013, - + 0.00007, 0.00034, 0.00068, - + 0.07083, 0.01496, 0.00440, 0.00040, 0.00013, - + 0.00007, 0.00033, 0.00066, - + 0.06872, 0.01448, 0.00419, 0.00040, 0.00012, - + 0.00006, 0.00031, 0.00063/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + 0.27245, 0.06463, 0.08282, 0.00152, 0.00000, - + 0.00000, 0.00103, 0.00275, - + 0.24283, 0.05672, 0.06264, 0.00134, 0.00005, - + 0.00000, 0.00096, 0.00254, - + 0.21901, 0.05057, 0.04887, 0.00133, 0.00012, - + 0.00000, 0.00086, 0.00218, - + 0.19954, 0.04552, 0.03915, 0.00121, 0.00010, - + 0.00000, 0.00077, 0.00191, - + 0.18326, 0.04138, 0.03200, 0.00110, 0.00014, - + 0.00000, 0.00071, 0.00174, - + 0.16939, 0.03784, 0.02664, 0.00102, 0.00010, - + 0.00000, 0.00065, 0.00151, - + 0.15736, 0.03488, 0.02251, 0.00090, 0.00013, - + 0.00000, 0.00063, 0.00141/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ - + 0.14683, 0.03230, 0.01925, 0.00086, 0.00014, - + 0.00003, 0.00059, 0.00128, - + 0.13746, 0.03004, 0.01664, 0.00087, 0.00013, - + 0.00004, 0.00054, 0.00116, - + 0.12913, 0.02806, 0.01452, 0.00083, 0.00013, - + 0.00003, 0.00051, 0.00107, - + 0.12182, 0.02627, 0.01280, 0.00074, 0.00012, - + 0.00001, 0.00049, 0.00096, - + 0.11514, 0.02468, 0.01136, 0.00067, 0.00013, - + 0.00004, 0.00046, 0.00096, - + 0.10922, 0.02325, 0.01015, 0.00058, 0.00013, - + 0.00005, 0.00043, 0.00093, - + 0.10391, 0.02195, 0.00912, 0.00048, 0.00012, - + 0.00004, 0.00041, 0.00089/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,21)/ - + 0.09887, 0.02080, 0.00826, 0.00049, 0.00014, - + 0.00006, 0.00040, 0.00081, - + 0.09426, 0.01974, 0.00752, 0.00049, 0.00013, - + 0.00006, 0.00039, 0.00075, - + 0.09000, 0.01878, 0.00687, 0.00046, 0.00011, - + 0.00006, 0.00036, 0.00071, - + 0.08609, 0.01789, 0.00632, 0.00045, 0.00010, - + 0.00005, 0.00034, 0.00067, - + 0.08247, 0.01707, 0.00583, 0.00045, 0.00011, - + 0.00005, 0.00033, 0.00062, - + 0.07912, 0.01632, 0.00539, 0.00044, 0.00011, - + 0.00005, 0.00031, 0.00059, - + 0.07601, 0.01564, 0.00501, 0.00042, 0.00010, - + 0.00004, 0.00028, 0.00057/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=22,30)/ - + 0.07315, 0.01499, 0.00467, 0.00038, 0.00009, - + 0.00004, 0.00027, 0.00055, - + 0.07052, 0.01437, 0.00436, 0.00033, 0.00009, - + 0.00004, 0.00026, 0.00054, - + 0.06803, 0.01381, 0.00409, 0.00030, 0.00008, - + 0.00004, 0.00026, 0.00053, - + 0.06566, 0.01329, 0.00384, 0.00029, 0.00008, - + 0.00004, 0.00025, 0.00049, - + 0.06345, 0.01281, 0.00362, 0.00028, 0.00007, - + 0.00004, 0.00025, 0.00046, - + 0.06130, 0.01235, 0.00342, 0.00029, 0.00008, - + 0.00004, 0.00024, 0.00045, - + 0.05927, 0.01192, 0.00323, 0.00030, 0.00009, - + 0.00004, 0.00023, 0.00044, - + 0.05738, 0.01151, 0.00306, 0.00031, 0.00009, - + 0.00003, 0.00022, 0.00043, - + 0.05563, 0.01112, 0.00291, 0.00030, 0.00008, - + 0.00003, 0.00021, 0.00041/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + 0.23651, 0.05298, 0.06463, 0.00119, 0.00000, - + 0.00000, 0.00073, 0.00199, - + 0.20950, 0.04629, 0.04814, 0.00101, 0.00003, - + 0.00000, 0.00066, 0.00172, - + 0.18767, 0.04097, 0.03708, 0.00103, 0.00003, - + 0.00000, 0.00056, 0.00143, - + 0.17013, 0.03669, 0.02931, 0.00088, 0.00005, - + 0.00000, 0.00053, 0.00124, - + 0.15553, 0.03318, 0.02375, 0.00080, 0.00007, - + 0.00000, 0.00049, 0.00115, - + 0.14318, 0.03022, 0.01959, 0.00066, 0.00007, - + 0.00000, 0.00046, 0.00107, - + 0.13229, 0.02773, 0.01642, 0.00067, 0.00008, - + 0.00000, 0.00044, 0.00100/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ - + 0.12294, 0.02559, 0.01395, 0.00064, 0.00009, - + 0.00001, 0.00042, 0.00091, - + 0.11483, 0.02370, 0.01199, 0.00054, 0.00010, - + 0.00001, 0.00040, 0.00082, - + 0.10761, 0.02204, 0.01041, 0.00045, 0.00008, - + 0.00001, 0.00037, 0.00078, - + 0.10120, 0.02059, 0.00913, 0.00042, 0.00008, - + 0.00001, 0.00033, 0.00070, - + 0.09540, 0.01927, 0.00807, 0.00039, 0.00009, - + 0.00002, 0.00032, 0.00066, - + 0.09017, 0.01810, 0.00718, 0.00035, 0.00010, - + 0.00003, 0.00030, 0.00062, - + 0.08545, 0.01707, 0.00643, 0.00030, 0.00010, - + 0.00003, 0.00028, 0.00059/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,21)/ - + 0.08103, 0.01612, 0.00580, 0.00036, 0.00011, - + 0.00005, 0.00029, 0.00054, - + 0.07705, 0.01526, 0.00526, 0.00036, 0.00011, - + 0.00005, 0.00027, 0.00051, - + 0.07345, 0.01448, 0.00480, 0.00030, 0.00010, - + 0.00003, 0.00024, 0.00049, - + 0.07011, 0.01376, 0.00440, 0.00028, 0.00009, - + 0.00003, 0.00023, 0.00046, - + 0.06702, 0.01312, 0.00404, 0.00028, 0.00008, - + 0.00004, 0.00023, 0.00044, - + 0.06419, 0.01250, 0.00374, 0.00027, 0.00008, - + 0.00005, 0.00022, 0.00042, - + 0.06158, 0.01194, 0.00346, 0.00026, 0.00008, - + 0.00005, 0.00021, 0.00041/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=22,30)/ - + 0.05914, 0.01142, 0.00322, 0.00024, 0.00008, - + 0.00005, 0.00020, 0.00038, - + 0.05686, 0.01094, 0.00300, 0.00021, 0.00006, - + 0.00004, 0.00019, 0.00036, - + 0.05474, 0.01050, 0.00281, 0.00018, 0.00006, - + 0.00004, 0.00018, 0.00034, - + 0.05278, 0.01008, 0.00264, 0.00015, 0.00006, - + 0.00003, 0.00016, 0.00034, - + 0.05094, 0.00969, 0.00248, 0.00013, 0.00006, - + 0.00003, 0.00015, 0.00033, - + 0.04916, 0.00932, 0.00234, 0.00014, 0.00005, - + 0.00003, 0.00015, 0.00030, - + 0.04749, 0.00897, 0.00221, 0.00016, 0.00005, - + 0.00003, 0.00014, 0.00028, - + 0.04592, 0.00865, 0.00209, 0.00017, 0.00005, - + 0.00003, 0.00014, 0.00026, - + 0.04444, 0.00835, 0.00199, 0.00016, 0.00005, - + 0.00003, 0.00014, 0.00026/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + 0.20284, 0.04282, 0.04964, 0.00070, 0.00000, - + 0.00000, 0.00050, 0.00140, - + 0.17800, 0.03711, 0.03633, 0.00075, 0.00000, - + 0.00000, 0.00043, 0.00119, - + 0.15881, 0.03261, 0.02763, 0.00062, 0.00002, - + 0.00000, 0.00041, 0.00101, - + 0.14322, 0.02907, 0.02160, 0.00056, 0.00006, - + 0.00000, 0.00039, 0.00090, - + 0.13022, 0.02616, 0.01733, 0.00049, 0.00007, - + 0.00000, 0.00036, 0.00078, - + 0.11925, 0.02372, 0.01417, 0.00044, 0.00006, - + 0.00000, 0.00033, 0.00071, - + 0.10983, 0.02166, 0.01178, 0.00042, 0.00008, - + 0.00000, 0.00032, 0.00064/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ - + 0.10176, 0.01989, 0.00994, 0.00034, 0.00008, - + 0.00001, 0.00031, 0.00059, - + 0.09461, 0.01836, 0.00850, 0.00031, 0.00006, - + 0.00002, 0.00028, 0.00055, - + 0.08827, 0.01704, 0.00734, 0.00032, 0.00007, - + 0.00002, 0.00025, 0.00051, - + 0.08280, 0.01585, 0.00640, 0.00027, 0.00007, - + 0.00003, 0.00024, 0.00047, - + 0.07773, 0.01480, 0.00563, 0.00024, 0.00007, - + 0.00003, 0.00024, 0.00046, - + 0.07321, 0.01386, 0.00500, 0.00023, 0.00007, - + 0.00003, 0.00022, 0.00043, - + 0.06917, 0.01302, 0.00447, 0.00022, 0.00007, - + 0.00004, 0.00020, 0.00039/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,21)/ - + 0.06554, 0.01228, 0.00401, 0.00020, 0.00008, - + 0.00005, 0.00021, 0.00035, - + 0.06222, 0.01159, 0.00363, 0.00018, 0.00008, - + 0.00005, 0.00020, 0.00032, - + 0.05915, 0.01097, 0.00330, 0.00014, 0.00008, - + 0.00004, 0.00018, 0.00032, - + 0.05634, 0.01040, 0.00301, 0.00013, 0.00007, - + 0.00003, 0.00017, 0.00031, - + 0.05376, 0.00989, 0.00276, 0.00013, 0.00006, - + 0.00003, 0.00016, 0.00029, - + 0.05137, 0.00941, 0.00255, 0.00012, 0.00005, - + 0.00002, 0.00015, 0.00027, - + 0.04916, 0.00896, 0.00236, 0.00010, 0.00005, - + 0.00002, 0.00014, 0.00026/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=22,30)/ - + 0.04709, 0.00856, 0.00219, 0.00011, 0.00005, - + 0.00002, 0.00013, 0.00024, - + 0.04517, 0.00819, 0.00204, 0.00013, 0.00006, - + 0.00003, 0.00013, 0.00023, - + 0.04338, 0.00784, 0.00190, 0.00013, 0.00006, - + 0.00004, 0.00013, 0.00022, - + 0.04172, 0.00751, 0.00178, 0.00012, 0.00006, - + 0.00003, 0.00012, 0.00021, - + 0.04016, 0.00721, 0.00168, 0.00011, 0.00006, - + 0.00003, 0.00012, 0.00020, - + 0.03873, 0.00693, 0.00158, 0.00010, 0.00005, - + 0.00003, 0.00011, 0.00019, - + 0.03738, 0.00667, 0.00149, 0.00009, 0.00005, - + 0.00003, 0.00010, 0.00017, - + 0.03611, 0.00642, 0.00141, 0.00009, 0.00004, - + 0.00003, 0.00010, 0.00016, - + 0.03489, 0.00618, 0.00133, 0.00008, 0.00004, - + 0.00003, 0.00010, 0.00016/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + 0.17159, 0.03419, 0.03759, 0.00053, 0.00000, - + 0.00000, 0.00026, 0.00100, - + 0.14965, 0.02940, 0.02714, 0.00059, 0.00000, - + 0.00000, 0.00025, 0.00080, - + 0.13264, 0.02573, 0.02039, 0.00056, 0.00000, - + 0.00000, 0.00027, 0.00061, - + 0.11905, 0.02277, 0.01578, 0.00039, 0.00002, - + 0.00000, 0.00024, 0.00060, - + 0.10776, 0.02038, 0.01254, 0.00030, 0.00002, - + 0.00000, 0.00021, 0.00053, - + 0.09819, 0.01842, 0.01019, 0.00032, 0.00005, - + 0.00000, 0.00020, 0.00050, - + 0.09009, 0.01674, 0.00841, 0.00029, 0.00003, - + 0.00000, 0.00020, 0.00045/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ - + 0.08314, 0.01533, 0.00705, 0.00023, 0.00003, - + 0.00000, 0.00018, 0.00039, - + 0.07703, 0.01412, 0.00599, 0.00022, 0.00004, - + 0.00000, 0.00017, 0.00036, - + 0.07164, 0.01304, 0.00515, 0.00020, 0.00005, - + 0.00000, 0.00016, 0.00036, - + 0.06683, 0.01210, 0.00448, 0.00021, 0.00004, - + 0.00001, 0.00015, 0.00034, - + 0.06277, 0.01127, 0.00392, 0.00013, 0.00004, - + 0.00001, 0.00014, 0.00029, - + 0.05901, 0.01053, 0.00346, 0.00011, 0.00003, - + 0.00001, 0.00013, 0.00027, - + 0.05554, 0.00988, 0.00309, 0.00012, 0.00003, - + 0.00001, 0.00012, 0.00026/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,21)/ - + 0.05240, 0.00928, 0.00277, 0.00014, 0.00003, - + 0.00001, 0.00012, 0.00023, - + 0.04959, 0.00873, 0.00249, 0.00014, 0.00003, - + 0.00001, 0.00011, 0.00020, - + 0.04708, 0.00824, 0.00226, 0.00012, 0.00002, - + 0.00001, 0.00010, 0.00019, - + 0.04476, 0.00780, 0.00206, 0.00010, 0.00003, - + 0.00001, 0.00009, 0.00018, - + 0.04262, 0.00740, 0.00189, 0.00008, 0.00003, - + 0.00001, 0.00009, 0.00019, - + 0.04063, 0.00703, 0.00174, 0.00008, 0.00003, - + 0.00001, 0.00008, 0.00018, - + 0.03879, 0.00669, 0.00160, 0.00009, 0.00004, - + 0.00002, 0.00009, 0.00018/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=22,30)/ - + 0.03709, 0.00638, 0.00149, 0.00009, 0.00004, - + 0.00002, 0.00008, 0.00017, - + 0.03553, 0.00609, 0.00138, 0.00009, 0.00003, - + 0.00002, 0.00008, 0.00016, - + 0.03408, 0.00582, 0.00129, 0.00008, 0.00002, - + 0.00002, 0.00007, 0.00015, - + 0.03272, 0.00557, 0.00121, 0.00007, 0.00002, - + 0.00001, 0.00007, 0.00014, - + 0.03146, 0.00533, 0.00113, 0.00006, 0.00002, - + 0.00001, 0.00006, 0.00013, - + 0.03026, 0.00512, 0.00106, 0.00007, 0.00002, - + 0.00001, 0.00006, 0.00012, - + 0.02913, 0.00492, 0.00100, 0.00008, 0.00002, - + 0.00001, 0.00006, 0.00011, - + 0.02808, 0.00473, 0.00094, 0.00008, 0.00002, - + 0.00001, 0.00006, 0.00011, - + 0.02710, 0.00455, 0.00089, 0.00007, 0.00002, - + 0.00001, 0.00006, 0.00011/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + 0.14260, 0.02665, 0.02784, 0.00036, 0.00000, - + 0.00000, 0.00021, 0.00067, - + 0.12370, 0.02280, 0.01985, 0.00039, 0.00000, - + 0.00000, 0.00019, 0.00054, - + 0.10902, 0.01982, 0.01474, 0.00034, 0.00000, - + 0.00000, 0.00019, 0.00045, - + 0.09728, 0.01749, 0.01131, 0.00027, 0.00001, - + 0.00000, 0.00016, 0.00038, - + 0.08762, 0.01561, 0.00892, 0.00023, 0.00001, - + 0.00000, 0.00013, 0.00034, - + 0.07950, 0.01404, 0.00718, 0.00025, 0.00002, - + 0.00000, 0.00012, 0.00031, - + 0.07261, 0.01273, 0.00589, 0.00025, 0.00001, - + 0.00000, 0.00011, 0.00027/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ - + 0.06677, 0.01161, 0.00492, 0.00019, 0.00001, - + 0.00000, 0.00011, 0.00028, - + 0.06170, 0.01065, 0.00415, 0.00015, 0.00001, - + 0.00001, 0.00010, 0.00028, - + 0.05723, 0.00981, 0.00355, 0.00015, 0.00001, - + 0.00000, 0.00009, 0.00023, - + 0.05328, 0.00908, 0.00307, 0.00014, 0.00002, - + 0.00000, 0.00008, 0.00020, - + 0.04973, 0.00843, 0.00268, 0.00013, 0.00002, - + 0.00000, 0.00008, 0.00021, - + 0.04661, 0.00786, 0.00236, 0.00011, 0.00002, - + 0.00001, 0.00007, 0.00019, - + 0.04384, 0.00735, 0.00209, 0.00009, 0.00001, - + 0.00000, 0.00006, 0.00016/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,21)/ - + 0.04130, 0.00689, 0.00187, 0.00008, 0.00001, - + 0.00000, 0.00006, 0.00015, - + 0.03900, 0.00648, 0.00168, 0.00008, 0.00001, - + 0.00000, 0.00006, 0.00014, - + 0.03689, 0.00611, 0.00152, 0.00009, 0.00001, - + 0.00000, 0.00006, 0.00014, - + 0.03499, 0.00577, 0.00138, 0.00008, 0.00001, - + 0.00000, 0.00005, 0.00013, - + 0.03327, 0.00546, 0.00126, 0.00007, 0.00001, - + 0.00000, 0.00005, 0.00012, - + 0.03165, 0.00517, 0.00116, 0.00007, 0.00001, - + 0.00000, 0.00005, 0.00012, - + 0.03015, 0.00491, 0.00107, 0.00007, 0.00001, - + 0.00000, 0.00004, 0.00011/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=22,30)/ - + 0.02877, 0.00467, 0.00099, 0.00008, 0.00001, - + 0.00000, 0.00004, 0.00011, - + 0.02749, 0.00445, 0.00092, 0.00008, 0.00001, - + 0.00000, 0.00004, 0.00010, - + 0.02631, 0.00425, 0.00086, 0.00008, 0.00000, - + 0.00000, 0.00004, 0.00009, - + 0.02522, 0.00406, 0.00080, 0.00008, 0.00000, - + 0.00000, 0.00003, 0.00008, - + 0.02420, 0.00389, 0.00075, 0.00008, 0.00000, - + -0.00001, 0.00003, 0.00007, - + 0.02325, 0.00372, 0.00070, 0.00007, 0.00000, - + 0.00000, 0.00003, 0.00007, - + 0.02236, 0.00357, 0.00066, 0.00006, 0.00000, - + 0.00000, 0.00003, 0.00008, - + 0.02153, 0.00342, 0.00062, 0.00005, 0.00001, - + 0.00000, 0.00003, 0.00008, - + 0.02075, 0.00329, 0.00059, 0.00005, 0.00001, - + 0.00000, 0.00003, 0.00008/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + 0.09383, 0.01529, 0.01433, 0.00011, 0.00000, - + 0.00000, 0.00008, 0.00029, - + 0.08012, 0.01289, 0.00987, 0.00015, 0.00000, - + 0.00000, 0.00008, 0.00021, - + 0.06961, 0.01106, 0.00713, 0.00012, 0.00001, - + 0.00000, 0.00007, 0.00020, - + 0.06131, 0.00964, 0.00535, 0.00012, 0.00001, - + 0.00000, 0.00006, 0.00016, - + 0.05465, 0.00850, 0.00413, 0.00009, 0.00001, - + 0.00000, 0.00006, 0.00014, - + 0.04916, 0.00757, 0.00327, 0.00008, 0.00002, - + 0.00000, 0.00006, 0.00012, - + 0.04453, 0.00680, 0.00264, 0.00005, 0.00001, - + 0.00000, 0.00005, 0.00011/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ - + 0.04053, 0.00615, 0.00217, 0.00006, 0.00001, - + 0.00000, 0.00004, 0.00010, - + 0.03712, 0.00559, 0.00181, 0.00006, 0.00001, - + 0.00000, 0.00005, 0.00008, - + 0.03420, 0.00511, 0.00153, 0.00004, 0.00001, - + 0.00000, 0.00004, 0.00007, - + 0.03160, 0.00470, 0.00131, 0.00003, 0.00001, - + 0.00000, 0.00004, 0.00008, - + 0.02930, 0.00434, 0.00114, 0.00004, 0.00001, - + 0.00000, 0.00003, 0.00006, - + 0.02727, 0.00402, 0.00099, 0.00004, 0.00001, - + 0.00000, 0.00003, 0.00005, - + 0.02547, 0.00373, 0.00087, 0.00004, 0.00000, - + 0.00000, 0.00002, 0.00005/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,21)/ - + 0.02386, 0.00348, 0.00078, 0.00003, 0.00000, - + 0.00000, 0.00003, 0.00006, - + 0.02242, 0.00325, 0.00069, 0.00002, 0.00000, - + 0.00000, 0.00003, 0.00006, - + 0.02112, 0.00305, 0.00062, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00006, - + 0.01991, 0.00286, 0.00056, 0.00002, 0.00001, - + 0.00000, 0.00002, 0.00005, - + 0.01881, 0.00270, 0.00051, 0.00003, 0.00001, - + 0.00001, 0.00002, 0.00004, - + 0.01781, 0.00254, 0.00047, 0.00003, 0.00001, - + 0.00000, 0.00002, 0.00004, - + 0.01690, 0.00240, 0.00043, 0.00002, 0.00001, - + 0.00000, 0.00002, 0.00004/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=22,30)/ - + 0.01606, 0.00228, 0.00040, 0.00002, 0.00001, - + 0.00000, 0.00002, 0.00004, - + 0.01529, 0.00216, 0.00037, 0.00002, 0.00001, - + 0.00000, 0.00002, 0.00003, - + 0.01457, 0.00205, 0.00034, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00003, - + 0.01392, 0.00195, 0.00032, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00003, - + 0.01331, 0.00186, 0.00030, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00004, - + 0.01273, 0.00178, 0.00028, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00003, - + 0.01220, 0.00170, 0.00026, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00003, - + 0.01170, 0.00162, 0.00024, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00002, - + 0.01124, 0.00156, 0.00023, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00002/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + 0.05674, 0.00799, 0.00665, 0.00011, 0.00000, - + 0.00000, 0.00002, 0.00008, - + 0.04773, 0.00663, 0.00443, 0.00004, 0.00000, - + 0.00000, 0.00002, 0.00008, - + 0.04088, 0.00560, 0.00311, 0.00005, 0.00000, - + 0.00000, 0.00002, 0.00006, - + 0.03554, 0.00482, 0.00227, 0.00004, 0.00000, - + 0.00000, 0.00002, 0.00007, - + 0.03131, 0.00420, 0.00172, 0.00002, 0.00000, - + 0.00000, 0.00002, 0.00005, - + 0.02785, 0.00370, 0.00134, 0.00001, 0.00000, - + 0.00000, 0.00002, 0.00005, - + 0.02497, 0.00329, 0.00106, 0.00001, 0.00000, - + 0.00000, 0.00002, 0.00004/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ - + 0.02254, 0.00295, 0.00086, 0.00001, 0.00000, - + 0.00000, 0.00002, 0.00003, - + 0.02045, 0.00266, 0.00071, 0.00002, 0.00000, - + 0.00000, 0.00002, 0.00003, - + 0.01865, 0.00241, 0.00059, 0.00002, 0.00001, - + 0.00000, 0.00002, 0.00003, - + 0.01713, 0.00220, 0.00050, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00002, - + 0.01577, 0.00201, 0.00043, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00002, - + 0.01458, 0.00185, 0.00037, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00002, - + 0.01353, 0.00171, 0.00033, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00002/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,21)/ - + 0.01258, 0.00158, 0.00029, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00002, - + 0.01175, 0.00147, 0.00026, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00002, - + 0.01100, 0.00137, 0.00023, 0.00000, 0.00000, - + 0.00000, 0.00001, 0.00002, - + 0.01032, 0.00128, 0.00021, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00002, - + 0.00970, 0.00120, 0.00019, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.00914, 0.00113, 0.00017, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.00864, 0.00106, 0.00016, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00001/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=22,30)/ - + 0.00817, 0.00100, 0.00014, 0.00000, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.00773, 0.00094, 0.00013, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.00734, 0.00089, 0.00012, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.00698, 0.00085, 0.00011, 0.00000, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.00665, 0.00080, 0.00011, 0.00000, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.00634, 0.00076, 0.00010, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.00605, 0.00073, 0.00009, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.00578, 0.00069, 0.00009, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.00552, 0.00066, 0.00008, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + 0.03058, 0.00364, 0.00266, 0.00004, 0.00000, - + 0.00000, 0.00001, 0.00003, - + 0.02529, 0.00296, 0.00171, 0.00000, 0.00000, - + 0.00000, 0.00001, 0.00003, - + 0.02132, 0.00246, 0.00116, 0.00000, 0.00000, - + 0.00000, 0.00001, 0.00002, - + 0.01828, 0.00209, 0.00083, 0.00000, 0.00000, - + 0.00000, 0.00001, 0.00002, - + 0.01587, 0.00180, 0.00061, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00002, - + 0.01394, 0.00157, 0.00047, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01237, 0.00138, 0.00037, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ - + 0.01105, 0.00122, 0.00029, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.00994, 0.00109, 0.00024, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00900, 0.00098, 0.00020, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.00818, 0.00089, 0.00017, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00748, 0.00081, 0.00014, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.00686, 0.00074, 0.00012, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.00632, 0.00068, 0.00011, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,21)/ - + 0.00584, 0.00062, 0.00009, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00541, 0.00057, 0.00008, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00503, 0.00053, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00470, 0.00049, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00439, 0.00046, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00411, 0.00043, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00386, 0.00040, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=22,30)/ - + 0.00363, 0.00038, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00343, 0.00036, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00324, 0.00033, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00306, 0.00032, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00290, 0.00030, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00275, 0.00028, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00262, 0.00027, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00249, 0.00025, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00237, 0.00024, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + 0.01407, 0.00137, 0.00086, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01134, 0.00109, 0.00053, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.00940, 0.00089, 0.00035, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00791, 0.00074, 0.00024, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00677, 0.00063, 0.00017, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00587, 0.00054, 0.00013, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00514, 0.00047, 0.00010, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ - + 0.00454, 0.00041, 0.00008, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00403, 0.00036, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00360, 0.00032, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00324, 0.00029, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00294, 0.00026, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00267, 0.00024, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00244, 0.00021, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,21)/ - + 0.00223, 0.00020, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00206, 0.00018, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00190, 0.00016, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00176, 0.00015, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00163, 0.00014, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00152, 0.00013, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00142, 0.00012, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=22,30)/ - + 0.00133, 0.00011, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00124, 0.00011, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00116, 0.00010, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00110, 0.00009, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00103, 0.00009, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00097, 0.00008, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00092, 0.00008, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00087, 0.00007, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00083, 0.00007, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + 0.00113, 0.00006, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00086, 0.00005, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00067, 0.00004, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00054, 0.00003, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00044, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00037, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00031, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ - + 0.00027, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00023, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00020, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00017, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00015, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00014, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,21)/ - + 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00010, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00006, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00006, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=22,30)/ - + 0.00005, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00005, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00004, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00004, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00004, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00003, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00003, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00003, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00003, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,2.6844D9/ - DATA N0/2,5,4,5,0,0,5,5/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - XSAVE=X -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,30 -C READ(91,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7) GO TO 31 - DO 30 K=1,30 - 30 F(I,J,K)= LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,30 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,8 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) -C - X=XSAVE -C - RETURN - END diff --git a/PDF/spdf/sfmrsg.F b/PDF/spdf/sfmrsg.F deleted file mode 100644 index ebf6e2fbc5a..00000000000 --- a/PDF/spdf/sfmrsg.F +++ /dev/null @@ -1,1981 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:06 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:39 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFMRSG(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) -C -C THIS IS THE NEW "G" FIT -- Feb 1995 -- standard Q^2 range -C -#include "pdf/impdp.inc" -C - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,20),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + 0.00269, 0.00519, 55.04009, 0.93808, 0.23085, - + 0.00000, 0.56956, 0.94157, - + 0.00308, 0.00544, 74.12506, 1.65007, 0.94742, - + 0.00000, 1.28439, 1.65404, - + 0.00344, 0.00568, 95.23531, 2.44308, 1.74440, - + 0.02544, 2.07989, 2.44748, - + 0.00378, 0.00590, 117.89208, 3.27437, 2.57920, - + 0.63342, 2.91339, 3.27916, - + 0.00410, 0.00610, 141.99054, 4.15617, 3.46418, - + 1.57435, 3.79720, 4.16132, - + 0.00441, 0.00630, 167.27766, 5.07568, 4.38660, - + 2.52873, 4.71856, 5.08117, - + 0.00471, 0.00649, 193.47682, 6.02122, 5.33482, - + 3.50576, 5.66582, 6.02703 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ - + 0.00499, 0.00667, 220.46440, 6.99424, 6.31033, - + 4.50790, 6.64044, 7.00035, - + 0.00527, 0.00685, 248.05037, 7.98816, 7.30658, - + 5.52860, 7.63585, 7.99455, - + 0.00554, 0.00701, 276.08490, 8.99885, 8.31945, - + 6.56410, 8.64794, 9.00551, - + 0.00580, 0.00718, 304.50995, 10.02678, 9.34943, - + 7.61513, 9.67720, 10.03370, - + 0.00605, 0.00733, 333.27853, 11.07132, 10.39592, - + 8.68126, 10.72300, 11.07848, - + 0.00630, 0.00749, 362.36829, 12.13224, 11.45868, - + 9.76243, 11.78512, 12.13963, - + 0.00654, 0.00764, 391.36038, 13.19210, 12.52029, - + 10.84137, 12.84611, 13.19972 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ - + 0.00677, 0.00778, 420.55627, 14.26562, 13.59549, - + 11.93292, 13.92072, 14.27346, - + 0.00700, 0.00792, 449.91208, 15.35062, 14.68209, - + 13.03497, 15.00677, 15.35866, - + 0.00723, 0.00806, 479.00864, 16.43104, 15.76404, - + 14.13160, 16.08818, 16.43928, - + 0.00745, 0.00820, 508.37811, 17.52810, 16.86257, - + 15.24407, 17.18620, 17.53654, - + 0.00766, 0.00833, 537.33978, 18.61555, 17.95145, - + 16.34625, 18.27459, 18.62418 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + 0.00429, 0.00679, 43.63768, 0.86288, 0.19610, - + 0.00000, 0.51435, 0.86602, - + 0.00485, 0.00714, 57.84075, 1.42877, 0.76670, - + 0.00000, 1.08300, 1.43224, - + 0.00536, 0.00746, 73.25481, 2.03758, 1.37960, - + 0.01945, 1.69422, 2.04136, - + 0.00584, 0.00776, 89.52473, 2.66278, 2.00842, - + 0.47742, 2.32156, 2.66683, - + 0.00629, 0.00805, 106.58344, 3.31543, 2.66435, - + 1.17743, 2.97615, 3.31973, - + 0.00673, 0.00831, 124.25308, 3.98727, 3.33918, - + 1.87794, 3.64977, 3.99180, - + 0.00715, 0.00857, 142.34306, 4.67060, 4.02528, - + 2.58719, 4.33475, 4.67535 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ - + 0.00755, 0.00882, 160.77849, 5.36695, 4.72419, - + 3.30749, 5.03263, 5.37191, - + 0.00794, 0.00905, 179.43553, 6.07203, 5.43166, - + 4.03459, 5.73914, 6.07718, - + 0.00831, 0.00928, 198.22041, 6.78326, 6.14514, - + 4.76625, 6.45172, 6.78860, - + 0.00867, 0.00950, 217.10510, 7.50129, 6.86528, - + 5.50328, 7.17101, 7.50680, - + 0.00902, 0.00971, 236.06654, 8.22592, 7.59192, - + 6.24569, 7.89685, 8.23160, - + 0.00937, 0.00992, 255.09875, 8.95725, 8.32515, - + 6.99369, 8.62932, 8.96309, - + 0.00970, 0.01012, 273.92307, 9.68334, 9.05305, - + 7.73550, 9.35650, 9.68934 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ - + 0.01002, 0.01031, 292.75638, 10.41469, 9.78612, - + 8.48169, 10.08889, 10.42083, - + 0.01034, 0.01050, 311.57574, 11.14995, 10.52303, - + 9.23100, 10.82514, 11.15623, - + 0.01065, 0.01068, 330.10516, 11.87821, 11.25286, - + 9.97261, 11.55435, 11.88463, - + 0.01095, 0.01086, 348.71143, 12.61431, 11.99048, - + 10.72141, 12.29137, 12.62087, - + 0.01124, 0.01103, 366.94412, 13.34034, 12.71798, - + 11.45957, 13.01829, 13.34703 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + 0.00670, 0.00888, 34.58309, 0.79334, 0.16527, - + 0.00000, 0.46419, 0.79626, - + 0.00749, 0.00937, 45.11368, 1.23843, 0.61523, - + 0.00000, 0.91200, 1.24158, - + 0.00822, 0.00981, 56.32086, 1.70222, 1.08323, - + 0.01479, 1.37815, 1.70557, - + 0.00890, 0.01022, 67.94986, 2.16941, 1.55416, - + 0.35792, 1.84744, 2.17294, - + 0.00955, 0.01061, 79.96514, 2.64965, 2.03778, - + 0.87616, 2.32958, 2.65335, - + 0.01016, 0.01098, 92.24657, 3.13785, 2.52908, - + 1.38801, 2.81953, 3.14172, - + 0.01074, 0.01133, 104.66766, 3.62911, 3.02320, - + 1.90067, 3.31240, 3.63312 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ - + 0.01131, 0.01166, 117.18735, 4.12490, 3.52164, - + 2.41621, 3.80968, 4.12905, - + 0.01185, 0.01198, 129.72842, 4.62253, 4.02175, - + 2.93203, 4.30872, 4.62681, - + 0.01237, 0.01228, 142.23572, 5.12049, 4.52203, - + 3.44685, 4.80799, 5.12489, - + 0.01287, 0.01258, 154.69917, 5.61948, 5.02320, - + 3.96154, 5.30821, 5.62400, - + 0.01336, 0.01286, 167.11168, 6.11959, 5.52539, - + 4.47634, 5.80950, 6.12423, - + 0.01383, 0.01313, 179.47678, 6.62111, 6.02887, - + 4.99163, 6.31213, 6.62585, - + 0.01429, 0.01340, 191.60965, 7.11592, 6.52555, - + 5.49942, 6.80799, 7.12076 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ - + 0.01474, 0.01366, 203.66759, 7.61150, 7.02291, - + 6.00726, 7.30458, 7.61644, - + 0.01517, 0.01391, 215.64014, 8.10708, 7.52019, - + 6.51446, 7.80113, 8.11212, - + 0.01559, 0.01415, 227.34645, 8.59527, 8.01001, - + 7.01369, 8.29024, 8.60040, - + 0.01601, 0.01439, 239.03926, 9.08645, 8.50276, - + 7.51537, 8.78231, 9.09166, - + 0.01641, 0.01462, 250.42131, 9.56843, 8.98625, - + 8.00738, 9.26515, 9.57373 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + 0.00863, 0.01040, 30.17398, 0.75498, 0.14890, - + 0.00000, 0.43697, 0.75786, - + 0.00961, 0.01099, 38.99531, 1.13951, 0.53839, - + 0.00000, 0.82421, 1.14258, - + 0.01050, 0.01152, 48.27411, 1.53337, 0.93655, - + 0.01256, 1.22043, 1.53660, - + 0.01134, 0.01202, 57.80405, 1.92597, 1.33297, - + 0.30154, 1.61513, 1.92934, - + 0.01212, 0.01248, 67.56464, 2.32604, 1.73650, - + 0.73507, 2.01710, 2.32955, - + 0.01287, 0.01292, 77.46257, 2.72985, 2.14348, - + 1.16005, 2.42265, 2.73349, - + 0.01358, 0.01333, 87.40008, 3.13370, 2.55024, - + 1.58306, 2.82810, 3.13745 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ - + 0.01427, 0.01373, 97.35071, 3.53898, 2.95823, - + 2.00603, 3.23487, 3.54284, - + 0.01492, 0.01411, 107.25739, 3.94370, 3.36548, - + 2.42704, 3.64099, 3.94767, - + 0.01556, 0.01447, 117.08073, 4.34678, 3.77095, - + 2.84523, 4.04538, 4.35085, - + 0.01616, 0.01482, 126.81818, 4.74894, 4.17534, - + 3.26146, 4.44877, 4.75310, - + 0.01675, 0.01516, 136.46843, 5.15037, 4.57889, - + 3.67604, 4.85137, 5.15462, - + 0.01733, 0.01548, 146.03833, 5.55141, 4.98193, - + 4.08943, 5.25351, 5.55575, - + 0.01788, 0.01580, 155.38332, 5.94561, 5.37805, - + 4.49528, 5.64877, 5.95004 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ - + 0.01842, 0.01610, 164.63324, 6.33911, 5.77337, - + 4.89978, 6.04327, 6.34362, - + 0.01894, 0.01640, 173.78258, 6.73138, 6.16738, - + 5.30245, 6.43650, 6.73596, - + 0.01945, 0.01669, 182.69046, 7.11652, 6.55420, - + 5.69750, 6.82256, 7.12117, - + 0.01994, 0.01697, 191.55995, 7.50298, 6.94226, - + 6.09338, 7.20991, 7.50771, - + 0.02043, 0.01724, 200.15868, 7.88105, 7.32187, - + 6.48044, 7.58883, 7.88584 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + 0.01030, 0.01164, 27.38437, 0.72870, 0.13799, - + 0.00000, 0.41854, 0.73161, - + 0.01143, 0.01231, 35.15528, 1.07428, 0.48860, - + 0.00000, 0.76684, 1.07734, - + 0.01247, 0.01292, 43.26037, 1.42424, 0.84294, - + 0.01117, 1.11918, 1.42745, - + 0.01343, 0.01348, 51.52355, 1.77062, 1.19321, - + 0.26662, 1.46766, 1.77396, - + 0.01434, 0.01400, 59.93344, 2.12149, 1.54759, - + 0.64808, 1.82044, 2.12495, - + 0.01520, 0.01450, 68.41301, 2.47388, 1.90319, - + 1.02005, 2.17457, 2.47744, - + 0.01602, 0.01497, 76.88164, 2.82477, 2.25705, - + 1.38869, 2.52707, 2.82844 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ - + 0.01680, 0.01542, 85.32117, 3.17551, 2.61056, - + 1.75582, 2.87931, 3.17928, - + 0.01756, 0.01585, 93.68624, 3.52451, 2.96213, - + 2.11990, 3.22971, 3.52837, - + 0.01828, 0.01626, 101.94651, 3.87094, 3.31098, - + 2.48032, 3.57745, 3.87489, - + 0.01898, 0.01666, 110.10349, 4.21549, 3.65781, - + 2.83790, 3.92323, 4.21952, - + 0.01965, 0.01704, 118.15879, 4.55843, 4.00290, - + 3.19303, 4.26734, 4.56254, - + 0.02030, 0.01740, 126.12068, 4.90012, 4.34663, - + 3.54615, 4.61014, 4.90430, - + 0.02094, 0.01776, 133.86815, 5.23508, 4.68354, - + 3.89191, 4.94616, 5.23934 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ - + 0.02155, 0.01810, 141.51456, 5.56865, 5.01896, - + 4.23567, 5.28073, 5.57298, - + 0.02215, 0.01843, 149.05692, 5.90042, 5.35251, - + 4.57709, 5.61346, 5.90481, - + 0.02272, 0.01876, 156.37718, 6.22540, 5.67919, - + 4.91125, 5.93937, 6.22986, - + 0.02329, 0.01907, 163.64955, 6.55086, 6.00628, - + 5.24545, 6.26572, 6.55539, - + 0.02384, 0.01938, 170.67847, 6.86855, 6.32554, - + 5.57147, 6.58426, 6.87314 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + 0.01180, 0.01270, 25.39465, 0.70881, 0.12991, - + 0.00000, 0.40472, 0.71177, - + 0.01306, 0.01344, 32.43248, 1.02630, 0.45250, - + 0.00000, 0.72495, 1.02940, - + 0.01422, 0.01411, 39.72435, 1.34516, 0.77581, - + 0.01019, 1.04621, 1.34840, - + 0.01530, 0.01474, 47.11535, 1.65912, 1.09370, - + 0.24213, 1.36228, 1.66247, - + 0.01631, 0.01532, 54.60041, 1.97569, 1.41383, - + 0.58724, 1.68076, 1.97915, - + 0.01727, 0.01587, 62.11357, 2.29242, 1.73382, - + 0.92243, 1.99925, 2.29599, - + 0.01819, 0.01638, 69.58585, 2.60676, 2.05118, - + 1.25351, 2.31521, 2.61042 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ - + 0.01906, 0.01688, 77.00473, 2.92000, 2.36722, - + 1.58220, 2.62996, 2.92376, - + 0.01990, 0.01735, 84.33237, 3.23082, 2.68065, - + 1.90724, 2.94218, 3.23466, - + 0.02070, 0.01780, 91.54472, 3.53854, 2.99083, - + 2.22816, 3.25122, 3.54247, - + 0.02148, 0.01824, 98.64532, 3.84386, 3.29846, - + 2.54577, 3.55779, 3.84786, - + 0.02223, 0.01865, 105.63778, 4.14707, 3.60385, - + 2.86047, 3.86216, 4.15114, - + 0.02295, 0.01906, 112.53145, 4.44852, 3.90738, - + 3.17272, 4.16474, 4.45267, - + 0.02365, 0.01945, 119.22063, 4.74344, 4.20427, - + 3.47782, 4.46072, 4.74765 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ - + 0.02433, 0.01982, 125.80739, 5.03657, 4.49929, - + 3.78057, 4.75486, 5.04085, - + 0.02499, 0.02019, 132.29031, 5.32761, 4.79213, - + 4.08072, 5.04687, 5.33196, - + 0.02563, 0.02054, 138.56662, 5.61218, 5.07842, - + 4.37394, 5.33236, 5.61658, - + 0.02625, 0.02088, 144.79092, 5.89673, 5.36463, - + 4.66674, 5.61780, 5.90119, - + 0.02686, 0.02122, 150.79224, 6.17400, 5.64349, - + 4.95187, 5.89593, 6.17852 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + 0.01784, 0.01668, 20.05825, 0.64939, 0.10686, - + 0.00000, 0.36425, 0.65272, - + 0.01965, 0.01770, 25.20509, 0.89038, 0.35320, - + 0.00000, 0.60808, 0.89386, - + 0.02130, 0.01862, 30.42582, 1.12707, 0.59455, - + 0.00761, 0.84725, 1.13068, - + 0.02282, 0.01947, 35.62016, 1.35667, 0.82829, - + 0.17844, 1.07904, 1.36040, - + 0.02424, 0.02026, 40.79804, 1.58504, 1.06041, - + 0.42995, 1.30940, 1.58887, - + 0.02559, 0.02100, 45.92116, 1.81091, 1.28971, - + 0.67126, 1.53709, 1.81485, - + 0.02687, 0.02170, 50.94894, 2.03280, 1.51477, - + 0.90718, 1.76066, 2.03683 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ - + 0.02808, 0.02237, 55.88126, 2.25183, 1.73675, - + 1.13915, 1.98126, 2.25595, - + 0.02925, 0.02300, 60.69846, 2.46728, 1.95495, - + 1.36652, 2.19816, 2.47149, - + 0.03036, 0.02361, 65.39013, 2.67885, 2.16912, - + 1.58916, 2.41111, 2.68314, - + 0.03143, 0.02419, 69.96445, 2.88719, 2.37989, - + 1.80781, 2.62073, 2.89155, - + 0.03246, 0.02475, 74.42881, 3.09261, 2.58761, - + 2.02288, 2.82738, 3.09705, - + 0.03345, 0.02528, 78.79345, 3.29551, 2.79270, - + 2.23484, 3.03143, 3.30002, - + 0.03441, 0.02580, 82.99005, 3.49269, 2.99197, - + 2.44058, 3.22972, 3.49727 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ - + 0.03534, 0.02630, 87.09189, 3.68753, 3.18879, - + 2.64350, 3.42560, 3.69218, - + 0.03624, 0.02678, 91.10059, 3.87989, 3.38306, - + 2.84353, 3.61898, 3.88461, - + 0.03711, 0.02725, 94.94978, 4.06687, 3.57186, - + 3.03779, 3.80692, 4.07165, - + 0.03796, 0.02770, 98.74551, 4.25296, 3.75969, - + 3.23081, 3.99393, 4.25780, - + 0.03878, 0.02814, 102.37583, 4.43327, 3.94168, - + 3.41774, 4.17513, 4.43817 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + 0.02677, 0.02201, 15.77720, 0.59273, 0.08675, - + 0.00000, 0.32699, 0.59684, - + 0.02933, 0.02341, 19.50018, 0.77156, 0.27127, - + 0.00000, 0.50885, 0.77588, - + 0.03166, 0.02466, 23.19359, 0.94432, 0.44898, - + 0.00562, 0.68424, 0.94881, - + 0.03380, 0.02581, 26.79719, 1.10977, 0.61883, - + 0.13008, 0.85204, 1.11442, - + 0.03579, 0.02688, 30.33009, 1.27224, 0.78529, - + 0.31146, 1.01663, 1.27704, - + 0.03767, 0.02789, 33.77290, 1.43114, 0.94785, - + 0.48344, 1.17748, 1.43608, - + 0.03945, 0.02883, 37.10410, 1.58569, 1.10578, - + 0.64988, 1.33383, 1.59076 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ - + 0.04113, 0.02972, 40.33062, 1.73679, 1.26002, - + 0.81196, 1.48660, 1.74199, - + 0.04273, 0.03057, 43.44416, 1.88412, 1.41029, - + 0.96940, 1.63549, 1.88944, - + 0.04426, 0.03138, 46.44238, 2.02761, 1.55654, - + 1.12229, 1.78045, 2.03304, - + 0.04573, 0.03215, 49.33528, 2.16779, 1.69932, - + 1.27124, 1.92202, 2.17333, - + 0.04713, 0.03289, 52.13140, 2.30502, 1.83901, - + 1.41667, 2.06055, 2.31066, - + 0.04849, 0.03360, 54.84068, 2.43963, 1.97596, - + 1.55899, 2.19641, 2.44538, - + 0.04979, 0.03429, 57.41934, 2.56955, 2.10810, - + 1.69619, 2.32751, 2.57539 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ - + 0.05105, 0.03495, 59.91969, 2.69714, 2.23781, - + 1.83067, 2.45622, 2.70308, - + 0.05227, 0.03558, 62.34460, 2.82239, 2.36508, - + 1.96244, 2.58255, 2.82842, - + 0.05345, 0.03619, 64.65158, 2.94337, 2.48801, - + 2.08963, 2.70456, 2.94948, - + 0.05459, 0.03679, 66.91292, 3.06318, 2.60968, - + 2.21536, 2.82537, 3.06938, - + 0.05570, 0.03736, 69.05586, 3.17858, 2.72687, - + 2.33641, 2.94171, 3.18485 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + 0.03384, 0.02599, 13.66262, 0.56034, 0.07632, - + 0.00000, 0.30639, 0.56512, - + 0.03698, 0.02766, 16.71935, 0.70863, 0.23054, - + 0.00000, 0.45786, 0.71367, - + 0.03982, 0.02917, 19.71086, 0.85086, 0.37793, - + 0.00467, 0.60286, 0.85613, - + 0.04242, 0.03054, 22.59473, 0.98619, 0.51785, - + 0.10739, 0.74065, 0.99167, - + 0.04484, 0.03181, 25.39314, 1.11811, 0.65394, - + 0.25622, 0.87481, 1.12378, - + 0.04711, 0.03300, 28.09462, 1.24630, 0.78595, - + 0.39637, 1.00505, 1.25216, - + 0.04925, 0.03412, 30.68545, 1.37025, 0.91342, - + 0.53120, 1.13089, 1.37627 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ - + 0.05127, 0.03518, 33.17494, 1.49075, 1.03720, - + 0.66173, 1.25315, 1.49693, - + 0.05320, 0.03619, 35.55912, 1.60762, 1.15714, - + 0.78786, 1.37166, 1.61396, - + 0.05503, 0.03714, 37.83856, 1.72087, 1.27327, - + 0.90972, 1.48646, 1.72735, - + 0.05678, 0.03805, 40.02342, 1.83099, 1.38611, - + 1.02787, 1.59804, 1.83762, - + 0.05847, 0.03892, 42.12228, 1.93831, 1.49599, - + 1.14271, 1.70674, 1.94507, - + 0.06008, 0.03976, 44.14441, 2.04316, 1.60327, - + 1.25462, 1.81289, 2.05004, - + 0.06163, 0.04056, 46.05630, 2.14392, 1.70635, - + 1.36206, 1.91489, 2.15092 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ - + 0.06313, 0.04133, 47.90068, 2.24249, 1.80714, - + 1.46695, 2.01465, 2.24962, - + 0.06457, 0.04207, 49.68069, 2.33892, 1.90568, - + 1.56936, 2.11221, 2.34616, - + 0.06596, 0.04279, 51.36375, 2.43170, 2.00049, - + 1.66784, 2.20608, 2.43905, - + 0.06732, 0.04348, 53.00735, 2.52330, 2.09404, - + 1.76488, 2.29873, 2.53077, - + 0.06862, 0.04415, 54.55517, 2.61120, 2.18381, - + 1.85797, 2.38763, 2.61877 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + 0.03993, 0.02932, 12.30660, 0.53746, 0.06952, - + 0.00000, 0.29218, 0.54282, - + 0.04355, 0.03122, 14.95107, 0.66647, 0.20464, - + 0.00000, 0.42449, 0.67213, - + 0.04681, 0.03293, 17.51349, 0.78966, 0.33317, - + 0.00409, 0.55056, 0.79560, - + 0.04978, 0.03448, 19.96186, 0.90635, 0.45461, - + 0.09337, 0.66982, 0.91254, - + 0.05255, 0.03592, 22.31970, 1.01952, 0.57207, - + 0.22221, 0.78531, 1.02594, - + 0.05514, 0.03727, 24.57994, 1.12898, 0.68548, - + 0.34293, 0.89690, 1.13562, - + 0.05758, 0.03853, 26.73329, 1.23436, 0.79450, - + 0.45856, 1.00425, 1.24120 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ - + 0.05988, 0.03972, 28.79006, 1.33639, 0.89992, - + 0.57005, 1.10811, 1.34343, - + 0.06206, 0.04085, 30.74858, 1.43497, 1.00167, - + 0.67736, 1.20840, 1.44219, - + 0.06414, 0.04192, 32.61092, 1.53014, 1.09981, - + 0.78065, 1.30518, 1.53754, - + 0.06612, 0.04294, 34.38702, 1.62237, 1.19484, - + 0.88044, 1.39892, 1.62993, - + 0.06802, 0.04391, 36.08525, 1.71196, 1.28708, - + 0.97712, 1.48994, 1.71967, - + 0.06984, 0.04484, 37.71435, 1.79921, 1.37684, - + 1.07105, 1.57855, 1.80708, - + 0.07159, 0.04573, 39.24672, 1.88279, 1.46282, - + 1.16093, 1.66342, 1.89081 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ - + 0.07327, 0.04659, 40.71925, 1.96434, 1.54665, - + 1.24845, 1.74621, 1.97250, - + 0.07489, 0.04742, 42.13503, 2.04390, 1.62840, - + 1.33367, 1.82695, 2.05219, - + 0.07646, 0.04822, 43.46724, 2.12023, 1.70682, - + 1.41538, 1.90441, 2.12865, - + 0.07797, 0.04899, 44.76455, 2.19543, 1.78402, - + 1.49571, 1.98069, 2.20398, - + 0.07943, 0.04973, 45.98016, 2.26738, 1.85790, - + 1.57256, 2.05368, 2.27605 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + 0.04544, 0.03232, 11.31137, 0.51949, 0.06475, - + 0.00000, 0.28121, 0.52522, - + 0.04945, 0.03443, 13.65905, 0.63506, 0.18659, - + 0.00000, 0.40017, 0.64113, - + 0.05307, 0.03631, 15.91589, 0.74479, 0.30180, - + 0.00367, 0.51286, 0.75116, - + 0.05636, 0.03802, 18.05700, 0.84826, 0.41014, - + 0.08343, 0.61896, 0.85490, - + 0.05942, 0.03961, 20.10622, 0.94814, 0.51444, - + 0.19812, 0.72123, 0.95505, - + 0.06227, 0.04108, 22.05949, 1.04439, 0.61472, - + 0.30512, 0.81966, 1.05153, - + 0.06495, 0.04247, 23.91000, 1.13671, 0.71078, - + 0.40726, 0.91400, 1.14408 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ - + 0.06748, 0.04377, 25.66904, 1.22579, 0.80334, - + 0.50539, 1.00496, 1.23337, - + 0.06988, 0.04500, 27.33588, 1.31157, 0.89236, - + 0.59953, 1.09250, 1.31936, - + 0.07215, 0.04616, 28.91352, 1.39416, 0.97799, - + 0.68988, 1.17673, 1.40213, - + 0.07432, 0.04727, 30.41193, 1.47395, 1.06065, - + 0.77692, 1.25807, 1.48210, - + 0.07639, 0.04833, 31.83911, 1.55124, 1.14066, - + 0.86102, 1.33684, 1.55957, - + 0.07838, 0.04934, 33.20328, 1.62635, 1.21834, - + 0.94251, 1.41333, 1.63484, - + 0.08028, 0.05031, 34.48087, 1.69810, 1.29254, - + 1.02030, 1.48641, 1.70675 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ - + 0.08211, 0.05124, 35.70431, 1.76794, 1.36472, - + 1.09585, 1.55751, 1.77675, - + 0.08388, 0.05214, 36.87663, 1.83593, 1.43494, - + 1.16927, 1.62671, 1.84489, - + 0.08558, 0.05300, 37.97540, 1.90102, 1.50216, - + 1.23951, 1.69295, 1.91012, - + 0.08723, 0.05383, 39.04290, 1.96502, 1.56822, - + 1.30843, 1.75807, 1.97426, - + 0.08881, 0.05463, 40.03866, 2.02611, 1.63128, - + 1.37422, 1.82022, 2.03548 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + 0.06768, 0.04415, 8.61584, 0.46308, 0.05142, - + 0.00000, 0.24796, 0.47059, - + 0.07319, 0.04700, 10.20898, 0.54291, 0.13808, - + 0.00000, 0.33152, 0.55091, - + 0.07812, 0.04954, 11.70121, 0.61754, 0.21867, - + 0.00258, 0.40941, 0.62598, - + 0.08256, 0.05183, 13.08360, 0.68701, 0.29342, - + 0.05790, 0.48176, 0.69584, - + 0.08666, 0.05393, 14.37958, 0.75315, 0.36435, - + 0.13658, 0.55052, 0.76235, - + 0.09047, 0.05588, 15.59109, 0.81610, 0.43169, - + 0.20904, 0.61587, 0.82565, - + 0.09403, 0.05769, 16.71752, 0.87581, 0.49544, - + 0.27742, 0.67778, 0.88567 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ - + 0.09736, 0.05938, 17.77018, 0.93280, 0.55618, - + 0.34240, 0.73682, 0.94296, - + 0.10051, 0.06097, 18.75124, 0.98712, 0.61399, - + 0.40410, 0.79305, 0.99756, - + 0.10347, 0.06247, 19.66505, 1.03890, 0.66904, - + 0.46274, 0.84661, 1.04960, - + 0.10629, 0.06389, 20.52015, 1.08846, 0.72169, - + 0.51871, 0.89786, 1.09941, - + 0.10897, 0.06524, 21.32339, 1.13605, 0.77219, - + 0.57231, 0.94704, 1.14723, - + 0.11154, 0.06653, 22.08137, 1.18190, 0.82081, - + 0.62383, 0.99441, 1.19332, - + 0.11398, 0.06775, 22.77973, 1.22533, 0.86687, - + 0.67259, 1.03927, 1.23696 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ - + 0.11632, 0.06892, 23.44060, 1.26729, 0.91132, - + 0.71960, 1.08259, 1.27912, - + 0.11857, 0.07004, 24.06660, 1.30783, 0.95425, - + 0.76495, 1.12444, 1.31987, - + 0.12072, 0.07111, 24.64403, 1.34632, 0.99503, - + 0.80801, 1.16418, 1.35855, - + 0.12280, 0.07214, 25.20043, 1.38396, 1.03485, - + 0.85000, 1.20301, 1.39637, - + 0.12480, 0.07313, 25.71060, 1.41958, 1.07257, - + 0.88977, 1.23977, 1.43216 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + 0.10038, 0.06152, 6.39838, 0.40386, 0.04028, - + 0.00000, 0.21467, 0.41396, - + 0.10775, 0.06531, 7.43979, 0.45628, 0.10009, - + 0.00000, 0.27117, 0.46708, - + 0.11426, 0.06864, 8.38713, 0.50450, 0.15473, - + 0.00177, 0.32293, 0.51592, - + 0.12008, 0.07161, 9.24073, 0.54876, 0.20467, - + 0.03897, 0.37032, 0.56073, - + 0.12540, 0.07430, 10.02179, 0.59029, 0.25132, - + 0.09130, 0.41467, 0.60277, - + 0.13031, 0.07678, 10.73483, 0.62929, 0.29500, - + 0.13880, 0.45625, 0.64224, - + 0.13485, 0.07906, 11.38255, 0.66583, 0.33584, - + 0.18310, 0.49516, 0.67920 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ - + 0.13908, 0.08117, 11.97523, 0.70027, 0.37426, - + 0.22469, 0.53180, 0.71404, - + 0.14304, 0.08315, 12.51620, 0.73272, 0.41042, - + 0.26374, 0.56629, 0.74686, - + 0.14676, 0.08499, 13.00955, 0.76331, 0.44447, - + 0.30046, 0.59878, 0.77780, - + 0.15026, 0.08672, 13.46212, 0.79227, 0.47669, - + 0.33515, 0.62954, 0.80708, - + 0.15358, 0.08836, 13.87946, 0.81980, 0.50729, - + 0.36805, 0.65876, 0.83492, - + 0.15674, 0.08991, 14.26664, 0.84607, 0.53647, - + 0.39937, 0.68664, 0.86149, - + 0.15972, 0.09137, 14.61512, 0.87068, 0.56383, - + 0.42875, 0.71276, 0.88637 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ - + 0.16257, 0.09276, 14.93951, 0.89425, 0.59002, - + 0.45683, 0.73777, 0.91020, - + 0.16530, 0.09409, 15.24181, 0.91684, 0.61510, - + 0.48370, 0.76174, 0.93305, - + 0.16790, 0.09534, 15.51394, 0.93806, 0.63870, - + 0.50899, 0.78426, 0.95450, - + 0.17040, 0.09655, 15.77335, 0.95866, 0.66159, - + 0.53348, 0.80612, 0.97533, - + 0.17278, 0.09770, 16.00476, 0.97795, 0.68306, - + 0.55647, 0.82661, 0.99484 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + 0.12610, 0.07531, 5.29865, 0.36750, 0.03459, - + -0.00001, 0.19502, 0.37986, - + 0.13467, 0.07969, 6.09709, 0.40718, 0.08192, - + -0.00001, 0.23895, 0.42039, - + 0.14219, 0.08351, 6.80911, 0.44333, 0.12471, - + 0.00138, 0.27879, 0.45729, - + 0.14888, 0.08687, 7.43835, 0.47623, 0.16346, - + 0.03040, 0.31493, 0.49085, - + 0.15494, 0.08992, 8.00421, 0.50683, 0.19933, - + 0.07093, 0.34845, 0.52204, - + 0.16051, 0.09268, 8.51220, 0.53532, 0.23262, - + 0.10741, 0.37961, 0.55108, - + 0.16562, 0.09522, 8.96579, 0.56179, 0.26349, - + 0.14117, 0.40852, 0.57805 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ - + 0.17037, 0.09755, 9.37393, 0.58654, 0.29232, - + 0.17262, 0.43553, 0.60326, - + 0.17479, 0.09972, 9.74081, 0.60968, 0.31924, - + 0.20195, 0.46077, 0.62682, - + 0.17892, 0.10173, 10.06995, 0.63132, 0.34440, - + 0.22933, 0.48435, 0.64885, - + 0.18279, 0.10360, 10.36721, 0.65165, 0.36805, - + 0.25503, 0.50651, 0.66955, - + 0.18645, 0.10537, 10.63731, 0.67084, 0.39035, - + 0.27925, 0.52743, 0.68909, - + 0.18991, 0.10703, 10.88445, 0.68904, 0.41150, - + 0.30217, 0.54726, 0.70761, - + 0.19317, 0.10858, 11.10213, 0.70595, 0.43120, - + 0.32354, 0.56572, 0.72483 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ - + 0.19627, 0.11006, 11.30211, 0.72204, 0.44993, - + 0.34385, 0.58327, 0.74121, - + 0.19922, 0.11146, 11.48601, 0.73737, 0.46778, - + 0.36318, 0.59999, 0.75681, - + 0.20202, 0.11278, 11.64761, 0.75165, 0.48446, - + 0.38126, 0.61559, 0.77135, - + 0.20471, 0.11405, 11.80025, 0.76545, 0.50057, - + 0.39870, 0.63067, 0.78540, - + 0.20727, 0.11524, 11.93268, 0.77827, 0.51559, - + 0.41498, 0.64470, 0.79845 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + 0.14803, 0.08722, 4.59800, 0.34083, 0.03090, - + -0.00001, 0.18093, 0.35524, - + 0.15748, 0.09200, 5.25438, 0.37279, 0.07066, - + -0.00001, 0.21725, 0.38818, - + 0.16572, 0.09614, 5.83030, 0.40173, 0.10632, - + 0.00115, 0.24994, 0.41795, - + 0.17299, 0.09976, 6.33107, 0.42789, 0.13841, - + 0.02528, 0.27940, 0.44485, - + 0.17957, 0.10300, 6.77501, 0.45205, 0.16789, - + 0.05880, 0.30652, 0.46966, - + 0.18557, 0.10594, 7.16787, 0.47439, 0.19508, - + 0.08877, 0.33157, 0.49260, - + 0.19105, 0.10861, 7.51347, 0.49501, 0.22014, - + 0.11634, 0.35466, 0.51376 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ - + 0.19613, 0.11106, 7.82012, 0.51417, 0.24339, - + 0.14189, 0.37609, 0.53342, - + 0.20082, 0.11332, 8.09182, 0.53196, 0.26498, - + 0.16558, 0.39600, 0.55167, - + 0.20520, 0.11540, 8.33199, 0.54849, 0.28505, - + 0.18758, 0.41448, 0.56861, - + 0.20928, 0.11734, 8.54581, 0.56393, 0.30380, - + 0.20813, 0.43176, 0.58444, - + 0.21313, 0.11915, 8.73740, 0.57841, 0.32140, - + 0.22739, 0.44797, 0.59929, - + 0.21675, 0.12085, 8.91042, 0.59206, 0.33800, - + 0.24555, 0.46327, 0.61329, - + 0.22015, 0.12243, 9.05964, 0.60467, 0.35339, - + 0.26239, 0.47741, 0.62621 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ - + 0.22337, 0.12392, 9.19486, 0.61659, 0.36795, - + 0.27832, 0.49080, 0.63843, - + 0.22644, 0.12533, 9.31747, 0.62789, 0.38177, - + 0.29342, 0.50349, 0.65001, - + 0.22933, 0.12665, 9.42245, 0.63834, 0.39461, - + 0.30748, 0.51526, 0.66073, - + 0.23210, 0.12792, 9.52071, 0.64841, 0.40696, - + 0.32099, 0.52659, 0.67105, - + 0.23472, 0.12910, 9.60318, 0.65768, 0.41842, - + 0.33355, 0.53707, 0.68055 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + 0.16748, 0.09785, 4.09947, 0.31969, 0.02823, - + 0.00000, 0.16998, 0.33606, - + 0.17759, 0.10292, 4.66121, 0.34639, 0.06278, - + 0.00000, 0.20108, 0.36382, - + 0.18636, 0.10727, 5.14709, 0.37042, 0.09358, - + 0.00100, 0.22891, 0.38877, - + 0.19407, 0.11104, 5.56341, 0.39204, 0.12114, - + 0.02179, 0.25384, 0.41116, - + 0.20100, 0.11441, 5.92782, 0.41188, 0.14632, - + 0.05057, 0.27667, 0.43171, - + 0.20729, 0.11744, 6.24610, 0.43012, 0.16941, - + 0.07616, 0.29762, 0.45058, - + 0.21303, 0.12018, 6.52246, 0.44687, 0.19059, - + 0.09960, 0.31684, 0.46789 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ - + 0.21830, 0.12267, 6.76435, 0.46232, 0.21013, - + 0.12120, 0.33457, 0.48386, - + 0.22318, 0.12496, 6.97560, 0.47660, 0.22819, - + 0.14114, 0.35095, 0.49861, - + 0.22769, 0.12706, 7.15981, 0.48979, 0.24491, - + 0.15959, 0.36611, 0.51223, - + 0.23190, 0.12900, 7.32142, 0.50204, 0.26046, - + 0.17674, 0.38019, 0.52487, - + 0.23584, 0.13081, 7.46428, 0.51346, 0.27499, - + 0.19276, 0.39334, 0.53667, - + 0.23955, 0.13250, 7.59165, 0.52417, 0.28863, - + 0.20779, 0.40568, 0.54773, - + 0.24300, 0.13406, 7.69881, 0.53399, 0.30120, - + 0.22167, 0.41702, 0.55787 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ - + 0.24628, 0.13554, 7.79458, 0.54324, 0.31307, - + 0.23476, 0.42772, 0.56741, - + 0.24938, 0.13692, 7.88015, 0.55196, 0.32428, - + 0.24712, 0.43782, 0.57641, - + 0.25229, 0.13821, 7.95121, 0.55997, 0.33466, - + 0.25859, 0.44714, 0.58468, - + 0.25509, 0.13945, 8.01701, 0.56766, 0.34461, - + 0.26958, 0.45608, 0.59262, - + 0.25771, 0.14059, 8.06985, 0.57468, 0.35379, - + 0.27973, 0.46429, 0.59986 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + 0.24419, 0.14014, 2.79566, 0.25224, 0.02089, - + 0.00000, 0.13632, 0.27748, - + 0.25595, 0.14557, 3.13467, 0.26619, 0.04257, - + 0.00000, 0.15464, 0.29264, - + 0.26590, 0.15008, 3.41080, 0.27849, 0.06150, - + 0.00062, 0.17067, 0.30593, - + 0.27446, 0.15387, 3.63307, 0.28929, 0.07808, - + 0.01330, 0.18471, 0.31756, - + 0.28200, 0.15716, 3.81685, 0.29896, 0.09292, - + 0.03060, 0.19728, 0.32794, - + 0.28872, 0.16003, 3.96810, 0.30764, 0.10627, - + 0.04570, 0.20857, 0.33723, - + 0.29473, 0.16255, 4.09096, 0.31537, 0.11826, - + 0.05928, 0.21867, 0.34550 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ - + 0.30015, 0.16478, 4.19167, 0.32234, 0.12913, - + 0.07160, 0.22781, 0.35293, - + 0.30507, 0.16678, 4.27336, 0.32860, 0.13899, - + 0.08277, 0.23606, 0.35959, - + 0.30956, 0.16855, 4.33881, 0.33420, 0.14794, - + 0.09294, 0.24351, 0.36556, - + 0.31366, 0.17016, 4.39139, 0.33926, 0.15612, - + 0.10224, 0.25030, 0.37095, - + 0.31744, 0.17161, 4.43360, 0.34386, 0.16364, - + 0.11080, 0.25650, 0.37583, - + 0.32096, 0.17294, 4.46755, 0.34806, 0.17059, - + 0.11873, 0.26222, 0.38030, - + 0.32416, 0.17413, 4.49085, 0.35177, 0.17688, - + 0.12592, 0.26734, 0.38423 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ - + 0.32716, 0.17522, 4.50865, 0.35517, 0.18273, - + 0.13262, 0.27208, 0.38784, - + 0.32997, 0.17622, 4.52167, 0.35829, 0.18817, - + 0.13887, 0.27647, 0.39116, - + 0.33254, 0.17713, 4.52744, 0.36103, 0.19310, - + 0.14456, 0.28040, 0.39405, - + 0.33499, 0.17798, 4.53140, 0.36361, 0.19778, - + 0.14996, 0.28413, 0.39679, - + 0.33724, 0.17873, 4.52925, 0.36585, 0.20201, - + 0.15487, 0.28744, 0.39916 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + 0.35111, 0.19714, 1.86020, 0.18489, 0.01497, - + -0.00002, 0.10460, 0.22397, - + 0.36249, 0.20108, 2.05100, 0.19073, 0.02794, - + -0.00001, 0.11438, 0.23055, - + 0.37170, 0.20408, 2.19024, 0.19561, 0.03890, - + 0.00035, 0.12259, 0.23596, - + 0.37926, 0.20637, 2.28925, 0.19964, 0.04819, - + 0.00762, 0.12948, 0.24035, - + 0.38564, 0.20818, 2.36156, 0.20303, 0.05626, - + 0.01735, 0.13539, 0.24398, - + 0.39109, 0.20960, 2.41274, 0.20585, 0.06328, - + 0.02560, 0.14047, 0.24699, - + 0.39574, 0.21069, 2.44654, 0.20817, 0.06941, - + 0.03284, 0.14483, 0.24942 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ - + 0.39975, 0.21155, 2.46789, 0.21009, 0.07482, - + 0.03925, 0.14860, 0.25140, - + 0.40322, 0.21221, 2.47914, 0.21165, 0.07957, - + 0.04492, 0.15185, 0.25297, - + 0.40623, 0.21268, 2.48220, 0.21289, 0.08377, - + 0.04997, 0.15464, 0.25419, - + 0.40887, 0.21301, 2.47939, 0.21387, 0.08750, - + 0.05448, 0.15706, 0.25513, - + 0.41118, 0.21325, 2.47221, 0.21465, 0.09083, - + 0.05854, 0.15917, 0.25585, - + 0.41323, 0.21340, 2.46187, 0.21526, 0.09384, - + 0.06222, 0.16103, 0.25639, - + 0.41499, 0.21343, 2.44706, 0.21564, 0.09647, - + 0.06549, 0.16257, 0.25667 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ - + 0.41654, 0.21341, 2.43065, 0.21590, 0.09886, - + 0.06846, 0.16393, 0.25683, - + 0.41791, 0.21335, 2.41297, 0.21607, 0.10102, - + 0.07119, 0.16512, 0.25688, - + 0.41907, 0.21320, 2.39269, 0.21607, 0.10291, - + 0.07360, 0.16609, 0.25675, - + 0.42015, 0.21303, 2.37264, 0.21603, 0.10467, - + 0.07586, 0.16697, 0.25659, - + 0.42102, 0.21280, 2.35049, 0.21584, 0.10619, - + 0.07785, 0.16765, 0.25627 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + 0.42907, 0.23418, 1.47819, 0.14703, 0.01209, - + 0.00000, 0.08733, 0.19523, - + 0.43796, 0.23560, 1.59814, 0.14970, 0.02138, - + 0.00000, 0.09346, 0.19776, - + 0.44468, 0.23633, 1.67494, 0.15169, 0.02897, - + 0.00026, 0.09834, 0.19950, - + 0.44978, 0.23651, 1.72030, 0.15311, 0.03522, - + 0.00527, 0.10223, 0.20058, - + 0.45377, 0.23637, 1.74629, 0.15410, 0.04049, - + 0.01187, 0.10539, 0.20121, - + 0.45686, 0.23598, 1.75777, 0.15475, 0.04497, - + 0.01736, 0.10796, 0.20146, - + 0.45924, 0.23539, 1.75797, 0.15509, 0.04876, - + 0.02206, 0.11003, 0.20139 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ - + 0.46106, 0.23465, 1.75075, 0.15520, 0.05200, - + 0.02612, 0.11168, 0.20105, - + 0.46240, 0.23381, 1.73789, 0.15511, 0.05479, - + 0.02965, 0.11300, 0.20054, - + 0.46335, 0.23288, 1.72084, 0.15485, 0.05719, - + 0.03274, 0.11404, 0.19986, - + 0.46399, 0.23190, 1.70110, 0.15447, 0.05925, - + 0.03544, 0.11485, 0.19904, - + 0.46439, 0.23088, 1.67969, 0.15399, 0.06105, - + 0.03782, 0.11547, 0.19815, - + 0.46460, 0.22984, 1.65737, 0.15345, 0.06262, - + 0.03995, 0.11595, 0.19721, - + 0.46455, 0.22874, 1.63319, 0.15279, 0.06395, - + 0.04180, 0.11624, 0.19614 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ - + 0.46437, 0.22765, 1.60900, 0.15210, 0.06513, - + 0.04344, 0.11644, 0.19505, - + 0.46409, 0.22656, 1.58493, 0.15138, 0.06616, - + 0.04492, 0.11654, 0.19393, - + 0.46363, 0.22543, 1.56008, 0.15059, 0.06702, - + 0.04620, 0.11653, 0.19274, - + 0.46314, 0.22434, 1.53619, 0.14981, 0.06781, - + 0.04738, 0.11649, 0.19158, - + 0.46249, 0.22321, 1.51173, 0.14895, 0.06844, - + 0.04840, 0.11633, 0.19036 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + 0.48971, 0.25836, 1.26878, 0.12090, 0.01018, - + 0.00000, 0.07514, 0.17407, - + 0.49497, 0.25702, 1.34015, 0.12184, 0.01730, - + 0.00000, 0.07908, 0.17392, - + 0.49836, 0.25527, 1.37658, 0.12225, 0.02293, - + 0.00019, 0.08202, 0.17334, - + 0.50032, 0.25330, 1.38917, 0.12229, 0.02744, - + 0.00392, 0.08417, 0.17237, - + 0.50137, 0.25120, 1.38823, 0.12205, 0.03115, - + 0.00876, 0.08578, 0.17118, - + 0.50170, 0.24905, 1.37774, 0.12160, 0.03420, - + 0.01269, 0.08696, 0.16981, - + 0.50145, 0.24682, 1.36033, 0.12096, 0.03670, - + 0.01598, 0.08778, 0.16832 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ - + 0.50081, 0.24459, 1.33898, 0.12021, 0.03880, - + 0.01880, 0.08832, 0.16673, - + 0.49980, 0.24238, 1.31489, 0.11936, 0.04055, - + 0.02119, 0.08865, 0.16507, - + 0.49853, 0.24018, 1.28910, 0.11844, 0.04200, - + 0.02322, 0.08880, 0.16336, - + 0.49707, 0.23801, 1.26261, 0.11745, 0.04321, - + 0.02498, 0.08880, 0.16165, - + 0.49548, 0.23588, 1.23604, 0.11644, 0.04424, - + 0.02650, 0.08870, 0.15995, - + 0.49378, 0.23381, 1.20982, 0.11542, 0.04510, - + 0.02784, 0.08852, 0.15827, - + 0.49192, 0.23174, 1.18322, 0.11436, 0.04580, - + 0.02897, 0.08823, 0.15655 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ - + 0.49001, 0.22974, 1.15744, 0.11331, 0.04640, - + 0.02997, 0.08789, 0.15487, - + 0.48807, 0.22780, 1.13248, 0.11227, 0.04690, - + 0.03085, 0.08752, 0.15322, - + 0.48603, 0.22587, 1.10772, 0.11119, 0.04728, - + 0.03159, 0.08708, 0.15157, - + 0.48404, 0.22401, 1.08422, 0.11015, 0.04761, - + 0.03227, 0.08663, 0.15000, - + 0.48193, 0.22217, 1.06092, 0.10909, 0.04784, - + 0.03282, 0.08613, 0.14840 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + 0.53736, 0.27314, 1.13097, 0.10088, 0.00871, - + 0.00000, 0.06527, 0.15565, - + 0.53839, 0.26906, 1.16509, 0.10072, 0.01433, - + 0.00000, 0.06771, 0.15362, - + 0.53793, 0.26500, 1.17234, 0.10021, 0.01864, - + 0.00014, 0.06935, 0.15143, - + 0.53643, 0.26099, 1.16261, 0.09943, 0.02200, - + 0.00302, 0.07038, 0.14911, - + 0.53431, 0.25711, 1.14423, 0.09850, 0.02467, - + 0.00670, 0.07102, 0.14676, - + 0.53171, 0.25334, 1.12030, 0.09745, 0.02681, - + 0.00961, 0.07134, 0.14442, - + 0.52874, 0.24969, 1.09283, 0.09633, 0.02854, - + 0.01202, 0.07141, 0.14204 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ - + 0.52556, 0.24616, 1.06393, 0.09513, 0.02992, - + 0.01402, 0.07132, 0.13972, - + 0.52223, 0.24275, 1.03439, 0.09391, 0.03103, - + 0.01572, 0.07109, 0.13744, - + 0.51876, 0.23947, 1.00484, 0.09268, 0.03193, - + 0.01712, 0.07073, 0.13520, - + 0.51523, 0.23631, 0.97589, 0.09145, 0.03266, - + 0.01831, 0.07031, 0.13302, - + 0.51169, 0.23328, 0.94788, 0.09023, 0.03324, - + 0.01934, 0.06982, 0.13091, - + 0.50817, 0.23037, 0.92099, 0.08904, 0.03371, - + 0.02022, 0.06930, 0.12888, - + 0.50459, 0.22752, 0.89463, 0.08783, 0.03405, - + 0.02095, 0.06873, 0.12687 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ - + 0.50106, 0.22480, 0.86955, 0.08666, 0.03433, - + 0.02156, 0.06815, 0.12494, - + 0.49758, 0.22218, 0.84568, 0.08553, 0.03455, - + 0.02210, 0.06755, 0.12308, - + 0.49408, 0.21962, 0.82253, 0.08438, 0.03468, - + 0.02254, 0.06692, 0.12126, - + 0.49070, 0.21718, 0.80076, 0.08328, 0.03479, - + 0.02294, 0.06631, 0.11952, - + 0.48728, 0.21477, 0.77962, 0.08220, 0.03483, - + 0.02326, 0.06566, 0.11781 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + 0.58201, 0.28159, 1.00361, 0.08093, 0.00719, - + 0.00000, 0.05468, 0.13423, - + 0.57728, 0.27439, 1.00191, 0.07996, 0.01147, - + -0.00001, 0.05584, 0.13062, - + 0.57175, 0.26774, 0.98296, 0.07878, 0.01464, - + 0.00009, 0.05642, 0.12717, - + 0.56578, 0.26151, 0.95448, 0.07745, 0.01698, - + 0.00223, 0.05656, 0.12386, - + 0.55963, 0.25572, 0.92242, 0.07609, 0.01880, - + 0.00489, 0.05645, 0.12069, - + 0.55337, 0.25029, 0.88878, 0.07470, 0.02022, - + 0.00698, 0.05613, 0.11767, - + 0.54709, 0.24514, 0.85472, 0.07328, 0.02129, - + 0.00865, 0.05569, 0.11478 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ - + 0.54087, 0.24029, 0.82149, 0.07187, 0.02213, - + 0.01003, 0.05515, 0.11202, - + 0.53471, 0.23572, 0.78946, 0.07051, 0.02276, - + 0.01115, 0.05454, 0.10940, - + 0.52864, 0.23138, 0.75881, 0.06917, 0.02324, - + 0.01206, 0.05388, 0.10689, - + 0.52273, 0.22726, 0.72979, 0.06786, 0.02360, - + 0.01282, 0.05319, 0.10451, - + 0.51698, 0.22335, 0.70247, 0.06659, 0.02387, - + 0.01346, 0.05250, 0.10224, - + 0.51141, 0.21965, 0.67684, 0.06537, 0.02407, - + 0.01398, 0.05181, 0.10007, - + 0.50589, 0.21607, 0.65239, 0.06417, 0.02419, - + 0.01441, 0.05109, 0.09800 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ - + 0.50056, 0.21268, 0.62951, 0.06301, 0.02425, - + 0.01477, 0.05039, 0.09603, - + 0.49540, 0.20944, 0.60805, 0.06191, 0.02428, - + 0.01507, 0.04970, 0.09415, - + 0.49031, 0.20632, 0.58765, 0.06082, 0.02426, - + 0.01531, 0.04901, 0.09234, - + 0.48543, 0.20335, 0.56864, 0.05979, 0.02422, - + 0.01551, 0.04834, 0.09062, - + 0.48060, 0.20048, 0.55050, 0.05879, 0.02415, - + 0.01565, 0.04766, 0.08895 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + 0.61244, 0.28164, 0.89881, 0.06478, 0.00591, - + -0.00002, 0.04539, 0.11398, - + 0.60177, 0.27174, 0.87070, 0.06336, 0.00920, - + -0.00003, 0.04574, 0.10954, - + 0.59122, 0.26290, 0.83391, 0.06185, 0.01155, - + 0.00006, 0.04567, 0.10547, - + 0.58084, 0.25489, 0.79378, 0.06032, 0.01323, - + 0.00167, 0.04530, 0.10169, - + 0.57082, 0.24758, 0.75406, 0.05879, 0.01449, - + 0.00365, 0.04477, 0.09821, - + 0.56116, 0.24080, 0.71572, 0.05727, 0.01542, - + 0.00517, 0.04415, 0.09498, - + 0.55178, 0.23454, 0.67920, 0.05582, 0.01611, - + 0.00637, 0.04345, 0.09193 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ - + 0.54275, 0.22872, 0.64505, 0.05442, 0.01660, - + 0.00731, 0.04271, 0.08910, - + 0.53408, 0.22327, 0.61323, 0.05306, 0.01695, - + 0.00808, 0.04195, 0.08646, - + 0.52574, 0.21816, 0.58366, 0.05175, 0.01720, - + 0.00869, 0.04117, 0.08398, - + 0.51771, 0.21337, 0.55631, 0.05051, 0.01736, - + 0.00919, 0.04041, 0.08163, - + 0.51003, 0.20886, 0.53105, 0.04933, 0.01746, - + 0.00960, 0.03966, 0.07943, - + 0.50270, 0.20462, 0.50773, 0.04820, 0.01750, - + 0.00993, 0.03894, 0.07736, - + 0.49552, 0.20058, 0.48595, 0.04712, 0.01750, - + 0.01018, 0.03821, 0.07538 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ - + 0.48867, 0.19676, 0.46581, 0.04608, 0.01746, - + 0.01039, 0.03751, 0.07354, - + 0.48212, 0.19312, 0.44712, 0.04508, 0.01740, - + 0.01056, 0.03684, 0.07181, - + 0.47572, 0.18966, 0.42962, 0.04413, 0.01732, - + 0.01068, 0.03617, 0.07013, - + 0.46961, 0.18639, 0.41344, 0.04323, 0.01723, - + 0.01078, 0.03553, 0.06854, - + 0.46363, 0.18324, 0.39820, 0.04236, 0.01711, - + 0.01084, 0.03491, 0.06702 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + 0.63045, 0.27534, 0.80467, 0.05142, 0.00481, - + -0.00001, 0.03720, 0.09515, - + 0.61398, 0.26332, 0.75791, 0.04988, 0.00733, - + -0.00001, 0.03703, 0.09038, - + 0.59861, 0.25279, 0.70971, 0.04828, 0.00908, - + 0.00006, 0.03657, 0.08613, - + 0.58412, 0.24343, 0.66308, 0.04674, 0.01027, - + 0.00126, 0.03592, 0.08230, - + 0.57054, 0.23500, 0.61987, 0.04525, 0.01113, - + 0.00275, 0.03521, 0.07882, - + 0.55776, 0.22731, 0.58015, 0.04380, 0.01175, - + 0.00383, 0.03444, 0.07566, - + 0.54562, 0.22027, 0.54375, 0.04244, 0.01216, - + 0.00468, 0.03364, 0.07273 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ - + 0.53418, 0.21376, 0.51070, 0.04114, 0.01244, - + 0.00535, 0.03284, 0.07005, - + 0.52331, 0.20777, 0.48067, 0.03991, 0.01263, - + 0.00587, 0.03206, 0.06755, - + 0.51301, 0.20217, 0.45338, 0.03873, 0.01273, - + 0.00628, 0.03129, 0.06525, - + 0.50324, 0.19696, 0.42857, 0.03762, 0.01278, - + 0.00661, 0.03055, 0.06310, - + 0.49397, 0.19208, 0.40600, 0.03657, 0.01278, - + 0.00686, 0.02983, 0.06111, - + 0.48520, 0.18752, 0.38545, 0.03556, 0.01275, - + 0.00706, 0.02915, 0.05927, - + 0.47670, 0.18322, 0.36649, 0.03464, 0.01268, - + 0.00721, 0.02847, 0.05751 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ - + 0.46863, 0.17917, 0.34915, 0.03376, 0.01260, - + 0.00732, 0.02783, 0.05586, - + 0.46095, 0.17535, 0.33323, 0.03291, 0.01251, - + 0.00741, 0.02722, 0.05432, - + 0.45355, 0.17171, 0.31851, 0.03210, 0.01241, - + 0.00747, 0.02662, 0.05286, - + 0.44652, 0.16828, 0.30499, 0.03134, 0.01230, - + 0.00752, 0.02606, 0.05148, - + 0.43969, 0.16499, 0.29238, 0.03061, 0.01217, - + 0.00754, 0.02551, 0.05018 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + 0.63743, 0.26442, 0.71660, 0.04042, 0.00386, - + -0.00001, 0.03003, 0.07800, - + 0.61558, 0.25075, 0.65751, 0.03887, 0.00581, - + -0.00002, 0.02958, 0.07328, - + 0.59577, 0.23898, 0.60287, 0.03735, 0.00710, - + 0.00004, 0.02894, 0.06919, - + 0.57763, 0.22864, 0.55348, 0.03588, 0.00795, - + 0.00095, 0.02818, 0.06558, - + 0.56095, 0.21943, 0.50968, 0.03450, 0.00855, - + 0.00206, 0.02740, 0.06235, - + 0.54545, 0.21115, 0.47078, 0.03320, 0.00895, - + 0.00287, 0.02661, 0.05943, - + 0.53099, 0.20360, 0.43615, 0.03200, 0.00920, - + 0.00348, 0.02584, 0.05675 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ - + 0.51748, 0.19673, 0.40539, 0.03085, 0.00935, - + 0.00396, 0.02507, 0.05435, - + 0.50488, 0.19039, 0.37803, 0.02977, 0.00942, - + 0.00431, 0.02435, 0.05213, - + 0.49297, 0.18454, 0.35351, 0.02877, 0.00945, - + 0.00458, 0.02364, 0.05009, - + 0.48180, 0.17912, 0.33157, 0.02781, 0.00945, - + 0.00479, 0.02295, 0.04823, - + 0.47129, 0.17408, 0.31187, 0.02691, 0.00941, - + 0.00496, 0.02231, 0.04650, - + 0.46138, 0.16940, 0.29411, 0.02608, 0.00935, - + 0.00508, 0.02171, 0.04489, - + 0.45191, 0.16498, 0.27797, 0.02530, 0.00925, - + 0.00517, 0.02112, 0.04339 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ - + 0.44295, 0.16086, 0.26335, 0.02456, 0.00915, - + 0.00524, 0.02057, 0.04200, - + 0.43447, 0.15698, 0.25003, 0.02385, 0.00905, - + 0.00529, 0.02004, 0.04070, - + 0.42631, 0.15330, 0.23782, 0.02320, 0.00894, - + 0.00531, 0.01954, 0.03947, - + 0.41861, 0.14984, 0.22666, 0.02259, 0.00884, - + 0.00532, 0.01906, 0.03832, - + 0.41117, 0.14657, 0.21636, 0.02200, 0.00872, - + 0.00532, 0.01860, 0.03721 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + 0.63473, 0.25010, 0.63318, 0.03136, 0.00307, - + -0.00001, 0.02388, 0.06278, - + 0.60801, 0.23528, 0.56697, 0.02990, 0.00456, - + -0.00002, 0.02329, 0.05844, - + 0.58431, 0.22271, 0.50968, 0.02853, 0.00553, - + 0.00002, 0.02260, 0.05467, - + 0.56301, 0.21175, 0.46035, 0.02723, 0.00614, - + 0.00072, 0.02186, 0.05141, - + 0.54369, 0.20212, 0.41796, 0.02603, 0.00655, - + 0.00156, 0.02110, 0.04852, - + 0.52600, 0.19349, 0.38127, 0.02490, 0.00680, - + 0.00215, 0.02036, 0.04596, - + 0.50966, 0.18570, 0.34940, 0.02385, 0.00694, - + 0.00260, 0.01964, 0.04367 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ - + 0.49455, 0.17866, 0.32163, 0.02289, 0.00701, - + 0.00294, 0.01895, 0.04159, - + 0.48055, 0.17221, 0.29723, 0.02198, 0.00704, - + 0.00319, 0.01831, 0.03969, - + 0.46746, 0.16629, 0.27577, 0.02113, 0.00702, - + 0.00336, 0.01770, 0.03797, - + 0.45522, 0.16086, 0.25678, 0.02035, 0.00697, - + 0.00350, 0.01711, 0.03639, - + 0.44379, 0.15582, 0.23992, 0.01962, 0.00691, - + 0.00360, 0.01656, 0.03494, - + 0.43311, 0.15115, 0.22488, 0.01894, 0.00684, - + 0.00368, 0.01604, 0.03360, - + 0.42290, 0.14680, 0.21133, 0.01832, 0.00675, - + 0.00373, 0.01556, 0.03234 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ - + 0.41332, 0.14273, 0.19916, 0.01773, 0.00666, - + 0.00377, 0.01510, 0.03119, - + 0.40430, 0.13891, 0.18818, 0.01718, 0.00656, - + 0.00379, 0.01466, 0.03012, - + 0.39569, 0.13530, 0.17817, 0.01664, 0.00647, - + 0.00379, 0.01424, 0.02912, - + 0.38758, 0.13192, 0.16908, 0.01614, 0.00637, - + 0.00379, 0.01385, 0.02819, - + 0.37979, 0.12872, 0.16076, 0.01568, 0.00626, - + 0.00377, 0.01348, 0.02730 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + 0.62355, 0.23340, 0.55429, 0.02396, 0.00244, - + 0.00004, 0.01872, 0.04963, - + 0.59260, 0.21795, 0.48528, 0.02273, 0.00356, - + 0.00003, 0.01808, 0.04575, - + 0.56564, 0.20494, 0.42830, 0.02154, 0.00424, - + 0.00007, 0.01739, 0.04252, - + 0.54173, 0.19377, 0.38090, 0.02044, 0.00467, - + 0.00057, 0.01668, 0.03968, - + 0.52029, 0.18401, 0.34127, 0.01944, 0.00494, - + 0.00117, 0.01601, 0.03719, - + 0.50093, 0.17528, 0.30775, 0.01848, 0.00512, - + 0.00160, 0.01535, 0.03503, - + 0.48313, 0.16752, 0.27914, 0.01764, 0.00517, - + 0.00193, 0.01473, 0.03309 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ - + 0.46684, 0.16049, 0.25456, 0.01684, 0.00522, - + 0.00214, 0.01416, 0.03134, - + 0.45184, 0.15413, 0.23335, 0.01612, 0.00518, - + 0.00230, 0.01360, 0.02979, - + 0.43792, 0.14833, 0.21490, 0.01543, 0.00516, - + 0.00244, 0.01307, 0.02836, - + 0.42502, 0.14297, 0.19873, 0.01481, 0.00510, - + 0.00253, 0.01260, 0.02706, - + 0.41301, 0.13806, 0.18453, 0.01423, 0.00503, - + 0.00259, 0.01215, 0.02587, - + 0.40180, 0.13354, 0.17198, 0.01370, 0.00495, - + 0.00264, 0.01173, 0.02479, - + 0.39121, 0.12932, 0.16076, 0.01320, 0.00488, - + 0.00267, 0.01132, 0.02378 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ - + 0.38130, 0.12539, 0.15075, 0.01273, 0.00480, - + 0.00268, 0.01095, 0.02286, - + 0.37202, 0.12173, 0.14179, 0.01228, 0.00472, - + 0.00268, 0.01060, 0.02202, - + 0.36315, 0.11827, 0.13369, 0.01188, 0.00462, - + 0.00268, 0.01028, 0.02122, - + 0.35483, 0.11505, 0.12638, 0.01151, 0.00453, - + 0.00268, 0.00997, 0.02048, - + 0.34690, 0.11201, 0.11973, 0.01114, 0.00444, - + 0.00265, 0.00966, 0.01979 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + 0.60485, 0.21558, 0.48069, 0.01831, 0.00176, - + -0.00013, 0.01427, 0.03851, - + 0.57053, 0.19980, 0.41189, 0.01720, 0.00261, - + -0.00014, 0.01371, 0.03523, - + 0.54097, 0.18669, 0.35728, 0.01621, 0.00313, - + -0.00010, 0.01311, 0.03246, - + 0.51512, 0.17547, 0.31317, 0.01526, 0.00345, - + 0.00030, 0.01251, 0.03012, - + 0.49216, 0.16577, 0.27705, 0.01442, 0.00365, - + 0.00078, 0.01193, 0.02806, - + 0.47155, 0.15720, 0.24712, 0.01365, 0.00376, - + 0.00110, 0.01138, 0.02628, - + 0.45284, 0.14957, 0.22195, 0.01294, 0.00379, - + 0.00133, 0.01086, 0.02471 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ - + 0.43578, 0.14277, 0.20066, 0.01232, 0.00379, - + 0.00152, 0.01039, 0.02328, - + 0.42016, 0.13658, 0.18255, 0.01173, 0.00378, - + 0.00163, 0.00995, 0.02202, - + 0.40579, 0.13096, 0.16690, 0.01120, 0.00372, - + 0.00171, 0.00953, 0.02087, - + 0.39252, 0.12584, 0.15339, 0.01070, 0.00368, - + 0.00178, 0.00914, 0.01985, - + 0.38023, 0.12115, 0.14160, 0.01024, 0.00362, - + 0.00183, 0.00878, 0.01891, - + 0.36880, 0.11684, 0.13124, 0.00984, 0.00356, - + 0.00186, 0.00846, 0.01804, - + 0.35808, 0.11283, 0.12209, 0.00943, 0.00349, - + 0.00186, 0.00814, 0.01727 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ - + 0.34808, 0.10911, 0.11398, 0.00907, 0.00342, - + 0.00186, 0.00785, 0.01655, - + 0.33872, 0.10565, 0.10674, 0.00873, 0.00335, - + 0.00187, 0.00758, 0.01588, - + 0.32987, 0.10241, 0.10025, 0.00840, 0.00328, - + 0.00186, 0.00732, 0.01527, - + 0.32158, 0.09940, 0.09441, 0.00810, 0.00321, - + 0.00185, 0.00708, 0.01470, - + 0.31367, 0.09656, 0.08914, 0.00784, 0.00314, - + 0.00184, 0.00685, 0.01416 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + 0.58019, 0.19652, 0.41208, 0.01353, 0.00137, - + -0.00004, 0.01086, 0.02939, - + 0.54314, 0.18088, 0.34615, 0.01265, 0.00202, - + -0.00003, 0.01034, 0.02665, - + 0.51169, 0.16796, 0.29534, 0.01184, 0.00240, - + -0.00001, 0.00982, 0.02438, - + 0.48442, 0.15703, 0.25529, 0.01113, 0.00262, - + 0.00028, 0.00931, 0.02245, - + 0.46046, 0.14762, 0.22320, 0.01045, 0.00274, - + 0.00061, 0.00882, 0.02082, - + 0.43905, 0.13936, 0.19701, 0.00986, 0.00278, - + 0.00084, 0.00836, 0.01942, - + 0.41982, 0.13207, 0.17534, 0.00931, 0.00281, - + 0.00100, 0.00795, 0.01812 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ - + 0.40238, 0.12555, 0.15722, 0.00882, 0.00279, - + 0.00112, 0.00757, 0.01702, - + 0.38652, 0.11969, 0.14193, 0.00837, 0.00276, - + 0.00119, 0.00721, 0.01604, - + 0.37202, 0.11438, 0.12894, 0.00794, 0.00271, - + 0.00125, 0.00687, 0.01516, - + 0.35862, 0.10958, 0.11778, 0.00759, 0.00266, - + 0.00129, 0.00658, 0.01433, - + 0.34628, 0.10518, 0.10812, 0.00727, 0.00261, - + 0.00131, 0.00630, 0.01360, - + 0.33494, 0.10114, 0.09971, 0.00693, 0.00255, - + 0.00132, 0.00603, 0.01296, - + 0.32431, 0.09740, 0.09232, 0.00663, 0.00250, - + 0.00132, 0.00579, 0.01235 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ - + 0.31441, 0.09396, 0.08582, 0.00636, 0.00244, - + 0.00132, 0.00557, 0.01179, - + 0.30519, 0.09076, 0.08006, 0.00613, 0.00238, - + 0.00132, 0.00536, 0.01128, - + 0.29649, 0.08778, 0.07492, 0.00588, 0.00232, - + 0.00131, 0.00516, 0.01082, - + 0.28837, 0.08501, 0.07032, 0.00566, 0.00227, - + 0.00131, 0.00498, 0.01039, - + 0.28063, 0.08240, 0.06618, 0.00547, 0.00220, - + 0.00130, 0.00480, 0.00999 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + 0.55038, 0.17742, 0.34954, 0.00991, 0.00103, - + -0.00004, 0.00807, 0.02200, - + 0.51147, 0.16214, 0.28808, 0.00922, 0.00150, - + -0.00003, 0.00764, 0.01980, - + 0.47881, 0.14966, 0.24195, 0.00859, 0.00177, - + -0.00002, 0.00722, 0.01799, - + 0.45071, 0.13920, 0.20641, 0.00803, 0.00192, - + 0.00020, 0.00680, 0.01648, - + 0.42626, 0.13019, 0.17841, 0.00751, 0.00199, - + 0.00044, 0.00640, 0.01520, - + 0.40458, 0.12238, 0.15592, 0.00705, 0.00204, - + 0.00061, 0.00606, 0.01407, - + 0.38518, 0.11551, 0.13752, 0.00664, 0.00203, - + 0.00073, 0.00573, 0.01309 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ - + 0.36772, 0.10940, 0.12239, 0.00626, 0.00201, - + 0.00080, 0.00543, 0.01225, - + 0.35196, 0.10391, 0.10972, 0.00592, 0.00199, - + 0.00085, 0.00515, 0.01147, - + 0.33753, 0.09900, 0.09902, 0.00562, 0.00194, - + 0.00090, 0.00489, 0.01080, - + 0.32436, 0.09453, 0.08993, 0.00534, 0.00191, - + 0.00092, 0.00467, 0.01018, - + 0.31228, 0.09047, 0.08213, 0.00508, 0.00186, - + 0.00093, 0.00446, 0.00963, - + 0.30116, 0.08676, 0.07538, 0.00483, 0.00181, - + 0.00094, 0.00426, 0.00916, - + 0.29080, 0.08334, 0.06950, 0.00463, 0.00176, - + 0.00094, 0.00407, 0.00870 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ - + 0.28119, 0.08019, 0.06434, 0.00443, 0.00172, - + 0.00094, 0.00390, 0.00828, - + 0.27225, 0.07729, 0.05978, 0.00425, 0.00167, - + 0.00094, 0.00375, 0.00790, - + 0.26388, 0.07457, 0.05577, 0.00407, 0.00162, - + 0.00092, 0.00360, 0.00755, - + 0.25610, 0.07206, 0.05218, 0.00390, 0.00158, - + 0.00090, 0.00346, 0.00723, - + 0.24870, 0.06971, 0.04897, 0.00376, 0.00154, - + 0.00089, 0.00333, 0.00693 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + 0.51658, 0.15844, 0.29304, 0.00708, 0.00077, - + -0.00001, 0.00592, 0.01619, - + 0.47655, 0.14384, 0.23711, 0.00658, 0.00112, - + 0.00000, 0.00557, 0.01445, - + 0.44332, 0.13197, 0.19622, 0.00610, 0.00131, - + 0.00001, 0.00524, 0.01304, - + 0.41502, 0.12209, 0.16531, 0.00567, 0.00141, - + 0.00016, 0.00490, 0.01188, - + 0.39052, 0.11367, 0.14133, 0.00528, 0.00146, - + 0.00034, 0.00461, 0.01089, - + 0.36899, 0.10639, 0.12233, 0.00493, 0.00147, - + 0.00045, 0.00432, 0.01003, - + 0.34979, 0.09998, 0.10701, 0.00464, 0.00146, - + 0.00054, 0.00407, 0.00931 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ - + 0.33269, 0.09435, 0.09450, 0.00434, 0.00145, - + 0.00058, 0.00385, 0.00866, - + 0.31719, 0.08934, 0.08416, 0.00413, 0.00142, - + 0.00061, 0.00363, 0.00807, - + 0.30321, 0.08482, 0.07551, 0.00388, 0.00139, - + 0.00064, 0.00344, 0.00759, - + 0.29046, 0.08074, 0.06820, 0.00367, 0.00135, - + 0.00066, 0.00327, 0.00714, - + 0.27880, 0.07705, 0.06196, 0.00349, 0.00132, - + 0.00067, 0.00310, 0.00673, - + 0.26810, 0.07371, 0.05661, 0.00332, 0.00128, - + 0.00067, 0.00295, 0.00638, - + 0.25818, 0.07062, 0.05198, 0.00316, 0.00124, - + 0.00067, 0.00282, 0.00605 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ - + 0.24900, 0.06779, 0.04794, 0.00302, 0.00120, - + 0.00066, 0.00269, 0.00574, - + 0.24048, 0.06517, 0.04439, 0.00290, 0.00117, - + 0.00065, 0.00258, 0.00544, - + 0.23254, 0.06274, 0.04128, 0.00277, 0.00113, - + 0.00064, 0.00247, 0.00519, - + 0.22518, 0.06050, 0.03851, 0.00264, 0.00110, - + 0.00062, 0.00237, 0.00497, - + 0.21820, 0.05840, 0.03603, 0.00255, 0.00108, - + 0.00062, 0.00228, 0.00475 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + 0.47972, 0.14004, 0.24269, 0.00495, 0.00061, - + 0.00004, 0.00428, 0.01165, - + 0.43943, 0.12625, 0.19300, 0.00455, 0.00085, - + 0.00006, 0.00400, 0.01036, - + 0.40620, 0.11518, 0.15740, 0.00423, 0.00099, - + 0.00005, 0.00374, 0.00927, - + 0.37820, 0.10600, 0.13101, 0.00391, 0.00104, - + 0.00016, 0.00349, 0.00841, - + 0.35409, 0.09823, 0.11085, 0.00363, 0.00106, - + 0.00027, 0.00326, 0.00768, - + 0.33305, 0.09153, 0.09504, 0.00337, 0.00107, - + 0.00035, 0.00305, 0.00704, - + 0.31441, 0.08570, 0.08248, 0.00317, 0.00106, - + 0.00040, 0.00286, 0.00649 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ - + 0.29782, 0.08057, 0.07233, 0.00297, 0.00104, - + 0.00044, 0.00268, 0.00604, - + 0.28300, 0.07602, 0.06398, 0.00279, 0.00101, - + 0.00045, 0.00253, 0.00559, - + 0.26960, 0.07195, 0.05707, 0.00264, 0.00098, - + 0.00047, 0.00239, 0.00521, - + 0.25745, 0.06829, 0.05130, 0.00249, 0.00095, - + 0.00048, 0.00226, 0.00489, - + 0.24637, 0.06498, 0.04640, 0.00235, 0.00092, - + 0.00048, 0.00214, 0.00461, - + 0.23623, 0.06199, 0.04219, 0.00223, 0.00089, - + 0.00047, 0.00204, 0.00436, - + 0.22689, 0.05923, 0.03859, 0.00213, 0.00087, - + 0.00048, 0.00194, 0.00411 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ - + 0.21825, 0.05671, 0.03547, 0.00204, 0.00084, - + 0.00047, 0.00186, 0.00389, - + 0.21026, 0.05441, 0.03275, 0.00196, 0.00081, - + 0.00046, 0.00177, 0.00368, - + 0.20285, 0.05226, 0.03036, 0.00186, 0.00079, - + 0.00046, 0.00169, 0.00351, - + 0.19599, 0.05028, 0.02824, 0.00176, 0.00077, - + 0.00045, 0.00161, 0.00336, - + 0.18951, 0.04843, 0.02635, 0.00170, 0.00074, - + 0.00044, 0.00155, 0.00321 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + 0.44083, 0.12264, 0.19865, 0.00347, 0.00041, - + 0.00001, 0.00300, 0.00824, - + 0.40094, 0.10983, 0.15531, 0.00317, 0.00060, - + 0.00001, 0.00279, 0.00726, - + 0.36834, 0.09962, 0.12491, 0.00293, 0.00069, - + 0.00002, 0.00259, 0.00648, - + 0.34107, 0.09121, 0.10277, 0.00271, 0.00073, - + 0.00010, 0.00241, 0.00583, - + 0.31778, 0.08411, 0.08606, 0.00250, 0.00075, - + 0.00018, 0.00224, 0.00529, - + 0.29753, 0.07803, 0.07315, 0.00231, 0.00074, - + 0.00023, 0.00209, 0.00486, - + 0.27971, 0.07278, 0.06298, 0.00218, 0.00074, - + 0.00028, 0.00196, 0.00444 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ - + 0.26398, 0.06817, 0.05484, 0.00202, 0.00072, - + 0.00030, 0.00184, 0.00410, - + 0.24992, 0.06409, 0.04825, 0.00190, 0.00071, - + 0.00032, 0.00172, 0.00380, - + 0.23730, 0.06047, 0.04279, 0.00178, 0.00067, - + 0.00032, 0.00161, 0.00354, - + 0.22588, 0.05723, 0.03826, 0.00168, 0.00065, - + 0.00032, 0.00152, 0.00331, - + 0.21552, 0.05431, 0.03446, 0.00158, 0.00063, - + 0.00033, 0.00144, 0.00310, - + 0.20609, 0.05166, 0.03121, 0.00150, 0.00062, - + 0.00033, 0.00137, 0.00290, - + 0.19741, 0.04923, 0.02845, 0.00142, 0.00059, - + 0.00032, 0.00130, 0.00274 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ - + 0.18943, 0.04702, 0.02607, 0.00135, 0.00057, - + 0.00031, 0.00124, 0.00260, - + 0.18208, 0.04500, 0.02399, 0.00129, 0.00054, - + 0.00031, 0.00118, 0.00248, - + 0.17524, 0.04313, 0.02217, 0.00123, 0.00053, - + 0.00030, 0.00112, 0.00235, - + 0.16892, 0.04142, 0.02057, 0.00116, 0.00052, - + 0.00030, 0.00106, 0.00223, - + 0.16302, 0.03982, 0.01916, 0.00111, 0.00049, - + 0.00029, 0.00102, 0.00212 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + 0.40084, 0.10620, 0.16042, 0.00233, 0.00030, - + 0.00003, 0.00208, 0.00569, - + 0.36197, 0.09450, 0.12346, 0.00214, 0.00041, - + 0.00002, 0.00192, 0.00500, - + 0.33053, 0.08521, 0.09797, 0.00199, 0.00047, - + 0.00003, 0.00176, 0.00444, - + 0.30438, 0.07763, 0.07970, 0.00184, 0.00050, - + 0.00008, 0.00164, 0.00396, - + 0.28222, 0.07127, 0.06611, 0.00168, 0.00050, - + 0.00013, 0.00151, 0.00359, - + 0.26302, 0.06585, 0.05572, 0.00159, 0.00050, - + 0.00017, 0.00140, 0.00327, - + 0.24632, 0.06117, 0.04762, 0.00144, 0.00050, - + 0.00018, 0.00130, 0.00300 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ - + 0.23158, 0.05709, 0.04121, 0.00134, 0.00047, - + 0.00020, 0.00122, 0.00276, - + 0.21843, 0.05351, 0.03603, 0.00128, 0.00046, - + 0.00019, 0.00113, 0.00254, - + 0.20670, 0.05032, 0.03179, 0.00119, 0.00045, - + 0.00019, 0.00106, 0.00237, - + 0.19614, 0.04747, 0.02830, 0.00112, 0.00042, - + 0.00020, 0.00100, 0.00222, - + 0.18661, 0.04492, 0.02537, 0.00106, 0.00041, - + 0.00021, 0.00094, 0.00207, - + 0.17797, 0.04263, 0.02290, 0.00099, 0.00039, - + 0.00020, 0.00089, 0.00193, - + 0.16998, 0.04054, 0.02080, 0.00096, 0.00038, - + 0.00021, 0.00084, 0.00182 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ - + 0.16268, 0.03863, 0.01899, 0.00093, 0.00037, - + 0.00021, 0.00079, 0.00171, - + 0.15598, 0.03689, 0.01743, 0.00089, 0.00036, - + 0.00020, 0.00075, 0.00161, - + 0.14980, 0.03527, 0.01607, 0.00083, 0.00035, - + 0.00019, 0.00072, 0.00153, - + 0.14411, 0.03379, 0.01487, 0.00078, 0.00033, - + 0.00019, 0.00068, 0.00146, - + 0.13875, 0.03243, 0.01382, 0.00076, 0.00032, - + 0.00018, 0.00066, 0.00138 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + 0.36038, 0.09094, 0.12773, 0.00153, 0.00022, - + 0.00004, 0.00142, 0.00387, - + 0.32316, 0.08037, 0.09671, 0.00141, 0.00030, - + 0.00004, 0.00131, 0.00336, - + 0.29326, 0.07205, 0.07573, 0.00129, 0.00033, - + 0.00003, 0.00120, 0.00297, - + 0.26860, 0.06528, 0.06093, 0.00119, 0.00035, - + 0.00006, 0.00110, 0.00263, - + 0.24777, 0.05967, 0.05004, 0.00110, 0.00036, - + 0.00011, 0.00102, 0.00237, - + 0.22989, 0.05488, 0.04182, 0.00102, 0.00036, - + 0.00013, 0.00094, 0.00215, - + 0.21434, 0.05078, 0.03547, 0.00094, 0.00034, - + 0.00014, 0.00088, 0.00197 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ - + 0.20074, 0.04723, 0.03050, 0.00087, 0.00034, - + 0.00015, 0.00081, 0.00180, - + 0.18874, 0.04410, 0.02651, 0.00078, 0.00033, - + 0.00014, 0.00075, 0.00167, - + 0.17797, 0.04134, 0.02328, 0.00076, 0.00032, - + 0.00016, 0.00071, 0.00153, - + 0.16835, 0.03888, 0.02063, 0.00071, 0.00031, - + 0.00016, 0.00067, 0.00142, - + 0.15968, 0.03668, 0.01842, 0.00066, 0.00030, - + 0.00015, 0.00063, 0.00133, - + 0.15183, 0.03471, 0.01657, 0.00063, 0.00028, - + 0.00015, 0.00060, 0.00124, - + 0.14463, 0.03292, 0.01500, 0.00060, 0.00027, - + 0.00015, 0.00056, 0.00117 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ - + 0.13808, 0.03129, 0.01366, 0.00057, 0.00026, - + 0.00014, 0.00053, 0.00110, - + 0.13208, 0.02980, 0.01250, 0.00054, 0.00025, - + 0.00013, 0.00050, 0.00104, - + 0.12654, 0.02844, 0.01149, 0.00052, 0.00024, - + 0.00013, 0.00048, 0.00097, - + 0.12145, 0.02719, 0.01061, 0.00049, 0.00023, - + 0.00013, 0.00046, 0.00092, - + 0.11670, 0.02604, 0.00984, 0.00046, 0.00022, - + 0.00013, 0.00043, 0.00087 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + 0.32048, 0.07704, 0.10025, 0.00098, 0.00016, - + 0.00003, 0.00095, 0.00254, - + 0.28528, 0.06760, 0.07466, 0.00088, 0.00022, - + 0.00003, 0.00087, 0.00221, - + 0.25724, 0.06022, 0.05766, 0.00082, 0.00025, - + 0.00002, 0.00081, 0.00194, - + 0.23432, 0.05427, 0.04588, 0.00072, 0.00026, - + 0.00006, 0.00073, 0.00172, - + 0.21508, 0.04934, 0.03733, 0.00067, 0.00026, - + 0.00009, 0.00069, 0.00152, - + 0.19862, 0.04520, 0.03094, 0.00062, 0.00025, - + 0.00010, 0.00063, 0.00138, - + 0.18439, 0.04164, 0.02607, 0.00058, 0.00025, - + 0.00010, 0.00058, 0.00124 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ - + 0.17199, 0.03858, 0.02227, 0.00054, 0.00024, - + 0.00012, 0.00054, 0.00116, - + 0.16110, 0.03589, 0.01925, 0.00049, 0.00023, - + 0.00012, 0.00051, 0.00105, - + 0.15141, 0.03353, 0.01683, 0.00046, 0.00022, - + 0.00012, 0.00047, 0.00097, - + 0.14276, 0.03145, 0.01485, 0.00042, 0.00021, - + 0.00012, 0.00044, 0.00090, - + 0.13500, 0.02959, 0.01321, 0.00039, 0.00020, - + 0.00012, 0.00041, 0.00084, - + 0.12798, 0.02792, 0.01183, 0.00038, 0.00020, - + 0.00011, 0.00040, 0.00077, - + 0.12161, 0.02640, 0.01068, 0.00035, 0.00019, - + 0.00012, 0.00037, 0.00073 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ - + 0.11581, 0.02503, 0.00970, 0.00032, 0.00018, - + 0.00011, 0.00035, 0.00069, - + 0.11051, 0.02379, 0.00885, 0.00030, 0.00017, - + 0.00011, 0.00033, 0.00065, - + 0.10562, 0.02265, 0.00812, 0.00029, 0.00017, - + 0.00011, 0.00032, 0.00060, - + 0.10113, 0.02160, 0.00748, 0.00028, 0.00016, - + 0.00011, 0.00030, 0.00056, - + 0.09694, 0.02064, 0.00692, 0.00028, 0.00015, - + 0.00010, 0.00028, 0.00053 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + 0.28175, 0.06457, 0.07758, 0.00067, 0.00008, - + -0.00001, 0.00058, 0.00164, - + 0.24898, 0.05630, 0.05693, 0.00064, 0.00011, - + -0.00001, 0.00053, 0.00141, - + 0.22316, 0.04988, 0.04346, 0.00057, 0.00013, - + -0.00001, 0.00048, 0.00123, - + 0.20212, 0.04472, 0.03422, 0.00053, 0.00015, - + 0.00001, 0.00044, 0.00109, - + 0.18464, 0.04047, 0.02761, 0.00047, 0.00014, - + 0.00002, 0.00041, 0.00098, - + 0.16977, 0.03692, 0.02272, 0.00044, 0.00014, - + 0.00004, 0.00037, 0.00087, - + 0.15695, 0.03389, 0.01901, 0.00041, 0.00014, - + 0.00006, 0.00035, 0.00079 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ - + 0.14588, 0.03128, 0.01616, 0.00037, 0.00013, - + 0.00005, 0.00031, 0.00072, - + 0.13613, 0.02900, 0.01389, 0.00034, 0.00013, - + 0.00005, 0.00029, 0.00066, - + 0.12751, 0.02702, 0.01209, 0.00033, 0.00012, - + 0.00006, 0.00027, 0.00061, - + 0.11984, 0.02526, 0.01063, 0.00031, 0.00012, - + 0.00006, 0.00026, 0.00056, - + 0.11298, 0.02369, 0.00942, 0.00029, 0.00011, - + 0.00005, 0.00024, 0.00052, - + 0.10683, 0.02229, 0.00842, 0.00026, 0.00011, - + 0.00005, 0.00022, 0.00050, - + 0.10123, 0.02104, 0.00758, 0.00025, 0.00010, - + 0.00005, 0.00021, 0.00046 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ - + 0.09616, 0.01990, 0.00686, 0.00023, 0.00009, - + 0.00005, 0.00020, 0.00043, - + 0.09153, 0.01887, 0.00625, 0.00022, 0.00009, - + 0.00005, 0.00018, 0.00040, - + 0.08728, 0.01792, 0.00572, 0.00022, 0.00009, - + 0.00005, 0.00018, 0.00037, - + 0.08339, 0.01706, 0.00526, 0.00021, 0.00008, - + 0.00005, 0.00017, 0.00034, - + 0.07978, 0.01626, 0.00486, 0.00019, 0.00008, - + 0.00004, 0.00016, 0.00033 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + 0.24431, 0.05323, 0.05881, 0.00036, 0.00008, - + 0.00003, 0.00040, 0.00102, - + 0.21437, 0.04610, 0.04254, 0.00034, 0.00010, - + 0.00002, 0.00035, 0.00089, - + 0.19088, 0.04061, 0.03207, 0.00034, 0.00010, - + 0.00002, 0.00032, 0.00076, - + 0.17195, 0.03621, 0.02499, 0.00029, 0.00011, - + 0.00003, 0.00029, 0.00068, - + 0.15628, 0.03262, 0.01998, 0.00025, 0.00010, - + 0.00004, 0.00027, 0.00060, - + 0.14300, 0.02962, 0.01633, 0.00024, 0.00011, - + 0.00004, 0.00024, 0.00054, - + 0.13164, 0.02707, 0.01357, 0.00024, 0.00010, - + 0.00004, 0.00022, 0.00049 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ - + 0.12185, 0.02490, 0.01146, 0.00021, 0.00009, - + 0.00005, 0.00020, 0.00045, - + 0.11331, 0.02301, 0.00982, 0.00020, 0.00009, - + 0.00004, 0.00019, 0.00040, - + 0.10576, 0.02136, 0.00851, 0.00018, 0.00008, - + 0.00005, 0.00017, 0.00037, - + 0.09906, 0.01991, 0.00745, 0.00018, 0.00008, - + 0.00005, 0.00016, 0.00034, - + 0.09310, 0.01863, 0.00658, 0.00018, 0.00007, - + 0.00004, 0.00015, 0.00031, - + 0.08777, 0.01748, 0.00586, 0.00016, 0.00006, - + 0.00004, 0.00014, 0.00029, - + 0.08296, 0.01644, 0.00526, 0.00014, 0.00006, - + 0.00004, 0.00013, 0.00027 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ - + 0.07860, 0.01551, 0.00475, 0.00013, 0.00006, - + 0.00004, 0.00012, 0.00025, - + 0.07463, 0.01468, 0.00432, 0.00013, 0.00006, - + 0.00004, 0.00011, 0.00024, - + 0.07098, 0.01391, 0.00395, 0.00012, 0.00006, - + 0.00003, 0.00011, 0.00022, - + 0.06766, 0.01321, 0.00362, 0.00012, 0.00006, - + 0.00003, 0.00010, 0.00021, - + 0.06458, 0.01257, 0.00334, 0.00011, 0.00005, - + 0.00003, 0.00010, 0.00020 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + 0.20907, 0.04333, 0.04381, 0.00020, 0.00007, - + 0.00004, 0.00026, 0.00061, - + 0.18208, 0.03726, 0.03120, 0.00019, 0.00007, - + 0.00003, 0.00023, 0.00053, - + 0.16111, 0.03261, 0.02323, 0.00016, 0.00008, - + 0.00003, 0.00021, 0.00046, - + 0.14429, 0.02892, 0.01792, 0.00015, 0.00008, - + 0.00003, 0.00019, 0.00040, - + 0.13042, 0.02592, 0.01420, 0.00015, 0.00007, - + 0.00003, 0.00017, 0.00037, - + 0.11876, 0.02343, 0.01151, 0.00014, 0.00007, - + 0.00004, 0.00016, 0.00032, - + 0.10887, 0.02133, 0.00952, 0.00014, 0.00007, - + 0.00004, 0.00014, 0.00028 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ - + 0.10036, 0.01953, 0.00799, 0.00012, 0.00006, - + 0.00003, 0.00013, 0.00026, - + 0.09296, 0.01799, 0.00681, 0.00010, 0.00006, - + 0.00004, 0.00012, 0.00023, - + 0.08644, 0.01664, 0.00588, 0.00011, 0.00006, - + 0.00003, 0.00011, 0.00021, - + 0.08072, 0.01546, 0.00513, 0.00010, 0.00005, - + 0.00003, 0.00010, 0.00020, - + 0.07565, 0.01441, 0.00451, 0.00009, 0.00005, - + 0.00003, 0.00010, 0.00018, - + 0.07111, 0.01348, 0.00401, 0.00008, 0.00005, - + 0.00003, 0.00009, 0.00016, - + 0.06699, 0.01265, 0.00359, 0.00008, 0.00004, - + 0.00003, 0.00008, 0.00016 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ - + 0.06328, 0.01191, 0.00324, 0.00008, 0.00004, - + 0.00003, 0.00008, 0.00015, - + 0.05992, 0.01124, 0.00294, 0.00008, 0.00004, - + 0.00003, 0.00007, 0.00014, - + 0.05686, 0.01062, 0.00268, 0.00008, 0.00004, - + 0.00003, 0.00007, 0.00013, - + 0.05407, 0.01006, 0.00245, 0.00007, 0.00004, - + 0.00002, 0.00006, 0.00012, - + 0.05150, 0.00956, 0.00226, 0.00007, 0.00003, - + 0.00002, 0.00006, 0.00011 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + 0.17651, 0.03484, 0.03207, 0.00013, 0.00002, - + 0.00000, 0.00013, 0.00037, - + 0.15256, 0.02974, 0.02249, 0.00014, 0.00003, - + 0.00000, 0.00012, 0.00031, - + 0.13411, 0.02586, 0.01655, 0.00012, 0.00004, - + 0.00000, 0.00011, 0.00027, - + 0.11940, 0.02281, 0.01265, 0.00012, 0.00003, - + 0.00001, 0.00010, 0.00024, - + 0.10738, 0.02035, 0.00994, 0.00011, 0.00004, - + 0.00001, 0.00009, 0.00020, - + 0.09735, 0.01830, 0.00800, 0.00008, 0.00004, - + 0.00001, 0.00008, 0.00019, - + 0.08885, 0.01659, 0.00657, 0.00007, 0.00003, - + 0.00002, 0.00007, 0.00018 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ - + 0.08155, 0.01514, 0.00549, 0.00007, 0.00003, - + 0.00001, 0.00007, 0.00015, - + 0.07524, 0.01389, 0.00466, 0.00007, 0.00003, - + 0.00002, 0.00006, 0.00014, - + 0.06973, 0.01281, 0.00401, 0.00007, 0.00002, - + 0.00001, 0.00006, 0.00012, - + 0.06491, 0.01186, 0.00349, 0.00006, 0.00002, - + 0.00001, 0.00005, 0.00011, - + 0.06063, 0.01102, 0.00306, 0.00005, 0.00002, - + 0.00001, 0.00005, 0.00010, - + 0.05681, 0.01029, 0.00271, 0.00005, 0.00002, - + 0.00001, 0.00005, 0.00009, - + 0.05338, 0.00962, 0.00242, 0.00005, 0.00002, - + 0.00001, 0.00004, 0.00009 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ - + 0.05030, 0.00903, 0.00218, 0.00004, 0.00002, - + 0.00001, 0.00004, 0.00009, - + 0.04752, 0.00850, 0.00197, 0.00004, 0.00002, - + 0.00001, 0.00004, 0.00008, - + 0.04497, 0.00802, 0.00180, 0.00004, 0.00002, - + 0.00001, 0.00003, 0.00007, - + 0.04265, 0.00758, 0.00164, 0.00005, 0.00002, - + 0.00001, 0.00003, 0.00007, - + 0.04052, 0.00718, 0.00151, 0.00005, 0.00002, - + 0.00001, 0.00003, 0.00006 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + 0.14643, 0.02742, 0.02285, 0.00005, 0.00003, - + 0.00002, 0.00009, 0.00020, - + 0.12561, 0.02323, 0.01579, 0.00004, 0.00003, - + 0.00002, 0.00008, 0.00017, - + 0.10965, 0.02008, 0.01149, 0.00004, 0.00003, - + 0.00002, 0.00008, 0.00016, - + 0.09704, 0.01761, 0.00869, 0.00004, 0.00003, - + 0.00002, 0.00007, 0.00013, - + 0.08681, 0.01562, 0.00677, 0.00003, 0.00003, - + 0.00002, 0.00006, 0.00011, - + 0.07829, 0.01399, 0.00541, 0.00004, 0.00003, - + 0.00002, 0.00005, 0.00010, - + 0.07111, 0.01262, 0.00442, 0.00003, 0.00003, - + 0.00002, 0.00005, 0.00010 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ - + 0.06500, 0.01147, 0.00367, 0.00004, 0.00003, - + 0.00002, 0.00004, 0.00008, - + 0.05971, 0.01048, 0.00310, 0.00004, 0.00003, - + 0.00002, 0.00004, 0.00007, - + 0.05515, 0.00963, 0.00266, 0.00003, 0.00002, - + 0.00001, 0.00004, 0.00007, - + 0.05114, 0.00889, 0.00231, 0.00003, 0.00002, - + 0.00001, 0.00003, 0.00006, - + 0.04760, 0.00823, 0.00202, 0.00003, 0.00002, - + 0.00001, 0.00003, 0.00005, - + 0.04446, 0.00766, 0.00178, 0.00003, 0.00002, - + 0.00001, 0.00003, 0.00005, - + 0.04167, 0.00714, 0.00159, 0.00002, 0.00002, - + 0.00001, 0.00003, 0.00005 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ - + 0.03915, 0.00669, 0.00143, 0.00002, 0.00002, - + 0.00001, 0.00003, 0.00005, - + 0.03687, 0.00628, 0.00129, 0.00002, 0.00001, - + 0.00001, 0.00003, 0.00004, - + 0.03481, 0.00590, 0.00117, 0.00002, 0.00001, - + 0.00001, 0.00002, 0.00004, - + 0.03295, 0.00557, 0.00107, 0.00001, 0.00001, - + 0.00001, 0.00002, 0.00003, - + 0.03124, 0.00526, 0.00098, 0.00001, 0.00001, - + 0.00001, 0.00002, 0.00003 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + 0.09569, 0.01614, 0.01080, 0.00002, 0.00000, - + 0.00000, 0.00002, 0.00006, - + 0.08074, 0.01346, 0.00724, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00006, - + 0.06949, 0.01147, 0.00514, 0.00002, 0.00001, - + 0.00000, 0.00002, 0.00004, - + 0.06072, 0.00993, 0.00381, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00003, - + 0.05369, 0.00871, 0.00292, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00003, - + 0.04793, 0.00772, 0.00231, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00003, - + 0.04311, 0.00690, 0.00187, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00002 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ - + 0.03904, 0.00622, 0.00154, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.03558, 0.00564, 0.00129, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00002, - + 0.03261, 0.00514, 0.00110, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00002, - + 0.03001, 0.00471, 0.00095, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.02774, 0.00433, 0.00082, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02574, 0.00400, 0.00073, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02397, 0.00371, 0.00064, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ - + 0.02239, 0.00345, 0.00058, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02096, 0.00323, 0.00052, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01968, 0.00302, 0.00047, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01852, 0.00283, 0.00043, 0.00000, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.01747, 0.00266, 0.00039, 0.00000, 0.00000, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + 0.05720, 0.00862, 0.00448, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.04740, 0.00707, 0.00291, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00002, - + 0.04017, 0.00593, 0.00202, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.03463, 0.00507, 0.00147, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.03024, 0.00439, 0.00112, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.02668, 0.00385, 0.00087, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.02375, 0.00341, 0.00070, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ - + 0.02130, 0.00304, 0.00057, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01925, 0.00274, 0.00048, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01749, 0.00247, 0.00040, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01596, 0.00225, 0.00035, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01464, 0.00205, 0.00030, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01349, 0.00188, 0.00026, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01247, 0.00174, 0.00023, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ - + 0.01158, 0.00161, 0.00021, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01078, 0.00149, 0.00019, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01006, 0.00138, 0.00017, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00942, 0.00129, 0.00015, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00883, 0.00121, 0.00014, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + 0.03038, 0.00405, 0.00156, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.02468, 0.00326, 0.00099, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.02056, 0.00269, 0.00067, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01745, 0.00226, 0.00048, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01503, 0.00194, 0.00036, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01309, 0.00168, 0.00028, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01152, 0.00147, 0.00022, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ - + 0.01022, 0.00129, 0.00018, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00914, 0.00115, 0.00015, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00822, 0.00103, 0.00013, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00744, 0.00093, 0.00011, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00677, 0.00084, 0.00009, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00619, 0.00077, 0.00008, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00568, 0.00070, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ - + 0.00523, 0.00064, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00483, 0.00059, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00448, 0.00055, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00417, 0.00051, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00389, 0.00047, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + 0.01357, 0.00157, 0.00042, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01079, 0.00124, 0.00026, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00881, 0.00100, 0.00017, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00734, 0.00083, 0.00012, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00622, 0.00070, 0.00009, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00534, 0.00060, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00464, 0.00051, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ - + 0.00407, 0.00045, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00359, 0.00039, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00319, 0.00035, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00286, 0.00031, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00258, 0.00028, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00233, 0.00025, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00212, 0.00023, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ - + 0.00194, 0.00021, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00178, 0.00019, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00163, 0.00017, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00151, 0.00016, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00140, 0.00015, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + 0.00100, 0.00008, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00075, 0.00006, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00058, 0.00004, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00046, 0.00004, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00037, 0.00003, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00030, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00025, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ - + 0.00021, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00018, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00016, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00014, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ - + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00006, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00005, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,5,9,0,0,9,9/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ - - XSAVE=X -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(31,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7) GO TO 31 - DO 30 K=1,19 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-DINT(RM) - M=1+IDINT(RM) - DO 60 I=1,8 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) - - X=XSAVE - - RETURN - END diff --git a/PDF/spdf/sfmrsj.F b/PDF/spdf/sfmrsj.F deleted file mode 100644 index 3f1d46f5640..00000000000 --- a/PDF/spdf/sfmrsj.F +++ /dev/null @@ -1,1970 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE SFMRSJ(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) -C -C THIS IS THE NEW "J" FIT -- Mar 1996 -- standard Q^2 range -C -#include "pdf/impdp.inc" -C - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,20),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + .00356, .00376, 15.54792, 1.06868, .16989, - + .00000, .60096, 1.07613, - + .00405, .00399, 28.10206, 1.49111, .60427, - + .00000, 1.03034, 1.49918, - + .00450, .00420, 43.39771, 1.99040, 1.11366, - + .00000, 1.53554, 1.99901, - + .00491, .00440, 61.08128, 2.55696, 1.68897, - + .29431, 2.10723, 2.56603, - + .00530, .00459, 80.82011, 3.18503, 2.32483, - + .97669, 2.73989, 3.19454, - + .00567, .00477, 102.41924, 3.87056, 3.01738, - + 1.68799, 3.42958, 3.88046, - + .00602, .00494, 125.43236, 4.60312, 3.75633, - + 2.44462, 4.16593, 4.61339 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ - + .00636, .00511, 149.71310, 5.37875, 4.53785, - + 3.24240, 4.94506, 5.38936, - + .00668, .00528, 175.08170, 6.19291, 5.35744, - + 4.07690, 5.76246, 6.20385, - + .00700, .00543, 201.37189, 7.04141, 6.21100, - + 4.94421, 6.61397, 7.05266, - + .00730, .00559, 228.28065, 7.91679, 7.09111, - + 5.83709, 7.49218, 7.92833, - + .00759, .00574, 255.76427, 8.81751, 7.99626, - + 6.75415, 8.39556, 8.82932, - + .00787, .00588, 283.79901, 9.74265, 8.92558, - + 7.69462, 9.32320, 9.75472, - + .00815, .00603, 312.35641, 10.69122, 9.87811, - + 8.65763, 10.27415, 10.70355 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ - + .00841, .00616, 341.00568, 11.65233, 10.84297, - + 9.63237, 11.23750, 11.66490, - + .00867, .00630, 369.92984, 12.62999, 11.82420, - + 10.62295, 12.21731, 12.64280, - + .00893, .00643, 399.26962, 13.62749, 12.82509, - + 11.63270, 13.21685, 13.64051, - + .00918, .00656, 428.29883, 14.62618, 13.82704, - + 12.64308, 14.21750, 14.63943, - + .00942, .00669, 457.78537, 15.64505, 14.84901, - + 13.67308, 15.23824, 15.65850 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + .00533, .00501, 13.49326, .96315, .14644, - + .00000, .53681, .96950, - + .00602, .00534, 23.62843, 1.31095, .50536, - + .00000, .89087, 1.31771, - + .00664, .00564, 35.60191, 1.71182, .91561, - + .00000, 1.29705, 1.71894, - + .00721, .00593, 49.10532, 2.15754, 1.36947, - + .23169, 1.74739, 2.16498, - + .00775, .00620, 63.86553, 2.64329, 1.86244, - + .76279, 2.23724, 2.65101, - + .00827, .00645, 79.72802, 3.16567, 2.39132, - + 1.30764, 2.76332, 3.17365, - + .00875, .00670, 96.35773, 3.71659, 2.94817, - + 1.87950, 3.31763, 3.72481 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ - + .00922, .00694, 113.65404, 4.29310, 3.53011, - + 2.47525, 3.89725, 4.30155, - + .00966, .00717, 131.49316, 4.89185, 4.13389, - + 3.09166, 4.49888, 4.90051, - + .01009, .00739, 149.76366, 5.50983, 4.75655, - + 3.72597, 5.11954, 5.51870, - + .01050, .00760, 168.25789, 6.14167, 5.39275, - + 4.37299, 5.75388, 6.15072, - + .01090, .00781, 186.95740, 6.78642, 6.04160, - + 5.03194, 6.40099, 6.79566, - + .01129, .00801, 205.85593, 7.44359, 6.70263, - + 5.70241, 7.06038, 7.45300, - + .01166, .00820, 224.94231, 8.11261, 7.37529, - + 6.38394, 7.73149, 8.12218 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ - + .01203, .00839, 243.92563, 8.78578, 8.05192, - + 7.06894, 8.40665, 8.79551, - + .01238, .00857, 262.94421, 9.46619, 8.73562, - + 7.76056, 9.08896, 9.47608, - + .01273, .00875, 282.10266, 10.15635, 9.42891, - + 8.46134, 9.78092, 10.16638, - + .01306, .00893, 300.91220, 10.84313, 10.11868, - + 9.15825, 10.46943, 10.85330, - + .01339, .00910, 319.90482, 11.54020, 10.81861, - + 9.86497, 11.16815, 11.55051 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + .00793, .00667, 11.70796, .86745, .12592, - + .00000, .47934, .87303, - + .00889, .00715, 19.86142, 1.15220, .42107, - + .00000, .76978, 1.15805, - + .00976, .00759, 29.19653, 1.47231, .74994, - + .00000, 1.09471, 1.47839, - + .01056, .00800, 39.46207, 1.82111, 1.10633, - + .18160, 1.44768, 1.82740, - + .01131, .00838, 50.44613, 2.19479, 1.48674, - + .59321, 1.82507, 2.20126, - + .01202, .00874, 62.03557, 2.59071, 1.88873, - + 1.00875, 2.22434, 2.59735, - + .01269, .00909, 73.98632, 3.00281, 2.30635, - + 1.43908, 2.63948, 3.00960 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ - + .01333, .00942, 86.23578, 3.42898, 2.73759, - + 1.88199, 3.06845, 3.43592, - + .01394, .00974, 98.70371, 3.86689, 3.18018, - + 2.33526, 3.50895, 3.87396, - + .01453, .01004, 111.31990, 4.31446, 3.63209, - + 2.79704, 3.95892, 4.32166, - + .01510, .01034, 123.94626, 4.76792, 4.08961, - + 3.26371, 4.41463, 4.77524, - + .01564, .01062, 136.58080, 5.22678, 4.55228, - + 3.73491, 4.87560, 5.23422, - + .01617, .01090, 149.22902, 5.69086, 5.01995, - + 4.21055, 5.34167, 5.69841, - + .01668, .01116, 161.89098, 6.15991, 5.49238, - + 4.69048, 5.81259, 6.16756 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ - + .01717, .01142, 174.37276, 6.62855, 5.96423, - + 5.16940, 6.28301, 6.63630, - + .01765, .01167, 186.77908, 7.09919, 6.43792, - + 5.64977, 6.75533, 7.10703, - + .01812, .01192, 199.18790, 7.57374, 6.91538, - + 6.13355, 7.23150, 7.58168, - + .01857, .01216, 211.27234, 8.04302, 7.38743, - + 6.61163, 7.70232, 8.05105, - + .01901, .01239, 223.40123, 8.51688, 7.86394, - + 7.09387, 8.17765, 8.52499 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + .00998, .00790, 10.77356, .81553, .11513, - + .00000, .44850, .82085, - + .01115, .00849, 17.93859, 1.06807, .37769, - + .00000, .70646, 1.07360, - + .01221, .00903, 25.99063, 1.34788, .66594, - + .00000, .99083, 1.35358, - + .01318, .00953, 34.71334, 1.64918, .97456, - + .15711, 1.29610, 1.65505, - + .01409, .01000, 43.92878, 1.96877, 1.30063, - + .51089, 1.61921, 1.97477, - + .01495, .01045, 53.54631, 2.30444, 1.64215, - + .86471, 1.95805, 2.31058, - + .01576, .01087, 63.36623, 2.65113, 1.99415, - + 1.22823, 2.30762, 2.65739 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ - + .01653, .01127, 73.34408, 3.00718, 2.35508, - + 1.59973, 2.66632, 3.01355, - + .01726, .01165, 83.41993, 3.37074, 2.72314, - + 1.97747, 3.03233, 3.37721, - + .01797, .01202, 93.54228, 3.74018, 3.09677, - + 2.36002, 3.40404, 3.74675, - + .01865, .01238, 103.60374, 4.11247, 3.47297, - + 2.74450, 3.77846, 4.11914, - + .01930, .01272, 113.60923, 4.48733, 3.85149, - + 3.13074, 4.15531, 4.49409, - + .01993, .01305, 123.56846, 4.86472, 4.23232, - + 3.51880, 4.53457, 4.87156, - + .02054, .01337, 133.48621, 5.24452, 4.61538, - + 3.90864, 4.91614, 5.25144 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ - + .02113, .01368, 143.20993, 5.62240, 4.99635, - + 4.29600, 5.29570, 5.62940, - + .02170, .01398, 152.82880, 6.00043, 5.37732, - + 4.68301, 5.67533, 6.00751, - + .02226, .01428, 162.40894, 6.38028, 5.75996, - + 5.07138, 6.05670, 6.38743, - + .02280, .01456, 171.69228, 6.75450, 6.13685, - + 5.45371, 6.43237, 6.76172, - + .02333, .01484, 180.97649, 7.13123, 6.51612, - + 5.83817, 6.81048, 7.13851 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + .01174, .00891, 10.15510, .78035, .10797, - + .00000, .42776, .78556, - + .01309, .00960, 16.68560, 1.01191, .34930, - + .00000, .66456, 1.01730, - + .01430, .01022, 23.92710, 1.26584, .61147, - + .00000, .92292, 1.27138, - + .01542, .01080, 31.68767, 1.53701, .88978, - + .14159, 1.19792, 1.54269, - + .01646, .01134, 39.81208, 1.82260, 1.18170, - + .45896, 1.48691, 1.82840, - + .01744, .01185, 48.22453, 2.12071, 1.48551, - + .77425, 1.78808, 2.12662, - + .01836, .01234, 56.75309, 2.42691, 1.79689, - + 1.09637, 2.09707, 2.43292 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ - + .01924, .01280, 65.36441, 2.73982, 2.11457, - + 1.42390, 2.41254, 2.74594, - + .02008, .01324, 74.01095, 3.05790, 2.43704, - + 1.75538, 2.73298, 3.06411, - + .02089, .01366, 82.65224, 3.37980, 2.76302, - + 2.08967, 3.05707, 3.38609, - + .02166, .01407, 91.19908, 3.70293, 3.08996, - + 2.42432, 3.38226, 3.70930, - + .02240, .01446, 99.66013, 4.02714, 3.41774, - + 2.75929, 3.70839, 4.03359, - + .02312, .01484, 108.04739, 4.35246, 3.74643, - + 3.09470, 4.03551, 4.35898, - + .02381, .01520, 116.36797, 4.67887, 4.07601, - + 3.43059, 4.36363, 4.68546 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ - + .02448, .01556, 124.49368, 5.00264, 4.40279, - + 3.76333, 4.68902, 5.00930, - + .02513, .01590, 132.50395, 5.32565, 4.72867, - + 4.09483, 5.01357, 5.33238, - + .02576, .01623, 140.45741, 5.64941, 5.05514, - + 4.42663, 5.33879, 5.65619, - + .02637, .01655, 148.13635, 5.96750, 5.37584, - + 4.75240, 5.65828, 5.97435, - + .02696, .01687, 155.79619, 6.28703, 5.69785, - + 5.07923, 5.97915, 6.29393 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + .01331, .00978, 9.69912, .75395, .10268, - + .00000, .41229, .75913, - + .01481, .01056, 15.77229, .97021, .32855, - + .00000, .63368, .97556, - + .01616, .01126, 22.43651, 1.20551, .57194, - + .00000, .87330, 1.21099, - + .01740, .01190, 29.51837, 1.45515, .82859, - + .13052, 1.12669, 1.46076, - + .01856, .01251, 36.87933, 1.71662, 1.09628, - + .42203, 1.39148, 1.72234, - + .01964, .01308, 44.45433, 1.98825, 1.37350, - + .71013, 1.66609, 1.99407, - + .02067, .01362, 52.09108, 2.26604, 1.65640, - + 1.00318, 1.94661, 2.27196 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ - + .02165, .01413, 59.76386, 2.54884, 1.94387, - + 1.29997, 2.23190, 2.55485, - + .02258, .01462, 67.43357, 2.83530, 2.23464, - + 1.59927, 2.52067, 2.84139, - + .02347, .01509, 75.06716, 3.12426, 2.52762, - + 1.90010, 2.81177, 3.13043, - + .02432, .01554, 82.58798, 3.41347, 2.82056, - + 2.20035, 3.10298, 3.41971, - + .02514, .01597, 90.00687, 3.70283, 3.11344, - + 2.50002, 3.39421, 3.70915, - + .02593, .01639, 97.33720, 3.99244, 3.40635, - + 2.79929, 3.68558, 3.99882, - + .02669, .01679, 104.58734, 4.28232, 3.69935, - + 3.09826, 3.97713, 4.28877 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ - + .02743, .01718, 111.64555, 4.56918, 3.98916, - + 3.39370, 4.26556, 4.57569, - + .02814, .01756, 118.58449, 4.85475, 4.27755, - + 3.68740, 4.55264, 4.86132, - + .02884, .01793, 125.45766, 5.14042, 4.56589, - + 3.98078, 4.83974, 5.14705, - + .02951, .01829, 132.07423, 5.42050, 4.84852, - + 4.26820, 5.12117, 5.42718, - + .03016, .01863, 138.66100, 5.70136, 5.13182, - + 4.55606, 5.40334, 5.70809 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + .01958, .01311, 8.40333, .67636, .08762, - + .00000, .36736, .68178, - + .02169, .01422, 13.22801, .85015, .27056, - + .00000, .54599, .85572, - + .02358, .01522, 18.34923, 1.03464, .46276, - + .00000, .73455, 1.04034, - + .02530, .01613, 23.64732, 1.22648, .66128, - + .10086, .92992, 1.23230, - + .02690, .01698, 29.03012, 1.42398, .86471, - + .32364, 1.13055, 1.42991, - + .02840, .01778, 34.46159, 1.62608, 1.07215, - + .54025, 1.33548, 1.63211, - + .02982, .01853, 39.84029, 1.83001, 1.28095, - + .75758, 1.54197, 1.83613 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ - + .03116, .01924, 45.15955, 2.03511, 1.49050, - + .97496, 1.74943, 2.04132, - + .03243, .01992, 50.40087, 2.24059, 1.70010, - + 1.19171, 1.95707, 2.24688, - + .03364, .02057, 55.54933, 2.44577, 1.90911, - + 1.40732, 2.16428, 2.45214, - + .03480, .02119, 60.55828, 2.64918, 2.11609, - + 1.62042, 2.36957, 2.65562, - + .03591, .02178, 65.44303, 2.85092, 2.32118, - + 1.83121, 2.57307, 2.85742, - + .03698, .02235, 70.21916, 3.05119, 2.52460, - + 2.03997, 2.77500, 3.05776, - + .03802, .02290, 74.89758, 3.25014, 2.72654, - + 2.24691, 2.97553, 3.25678 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ - + .03901, .02343, 79.40594, 3.44554, 2.92476, - + 2.44985, 3.17241, 3.45224, - + .03997, .02394, 83.79903, 3.63875, 3.12064, - + 2.65020, 3.36703, 3.64550, - + .04090, .02444, 88.11669, 3.83082, 3.31527, - + 2.84904, 3.56045, 3.83763, - + .04180, .02492, 92.23324, 4.01784, 3.50473, - + 3.04252, 3.74875, 4.02471, - + .04268, .02539, 96.30490, 4.20439, 3.69361, - + 3.23521, 3.93653, 4.21131 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + .02871, .01770, 7.26714, .60445, .07439, - + .00000, .32651, .61067, - + .03166, .01928, 11.06306, .74238, .22114, - + .00000, .46911, .74879, - + .03430, .02070, 14.95499, .88524, .37144, - + .00000, .61591, .89182, - + .03669, .02198, 18.86991, 1.03079, .52345, - + .07719, .76488, 1.03754, - + .03890, .02317, 22.75336, 1.17806, .67645, - + .24583, .91518, 1.18495, - + .04096, .02428, 26.59169, 1.32645, .83001, - + .40709, 1.06632, 1.33348, - + .04289, .02532, 30.32141, 1.47414, .98240, - + .56663, 1.21649, 1.48128 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ - + .04472, .02630, 33.94852, 1.62083, 1.13341, - + .72418, 1.36546, 1.62809, - + .04645, .02723, 37.46835, 1.76613, 1.28270, - + .87945, 1.51287, 1.77350, - + .04810, .02812, 40.87758, 1.90971, 1.42998, - + 1.03225, 1.65841, 1.91718, - + .04966, .02897, 44.14984, 2.05064, 1.57438, - + 1.18176, 1.80117, 2.05822, - + .05116, .02977, 47.30179, 2.18915, 1.71613, - + 1.32828, 1.94139, 2.19682, - + .05260, .03055, 50.34907, 2.32549, 1.85554, - + 1.47213, 2.07935, 2.33325, - + .05399, .03129, 53.30316, 2.45988, 1.99281, - + 1.61358, 2.21527, 2.46772 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ - + .05532, .03201, 56.11809, 2.59082, 2.12649, - + 1.75120, 2.34765, 2.59874, - + .05660, .03270, 58.83470, 2.71937, 2.25764, - + 1.88607, 2.47757, 2.72737, - + .05784, .03337, 61.48241, 2.84634, 2.38710, - + 2.01904, 2.60586, 2.85442, - + .05904, .03401, 63.97937, 2.96907, 2.51219, - + 2.14748, 2.72983, 2.97722, - + .06020, .03464, 66.43238, 3.09082, 2.63621, - + 2.27468, 2.85278, 3.09904 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + .03586, .02124, 6.66484, .56445, .06738, - + .00000, .30413, .57139, - + .03946, .02317, 9.94165, .68400, .19562, - + .00000, .42831, .69119, - + .04264, .02490, 13.23069, .80604, .32499, - + .00000, .55426, .81345, - + .04553, .02646, 16.48252, .92888, .45421, - + .06562, .68050, .93649, - + .04818, .02790, 19.66086, 1.05187, .58285, - + .20804, .80650, 1.05966, - + .05066, .02924, 22.76230, 1.17466, .71074, - + .34285, .93201, 1.18262, - + .05297, .03050, 25.74059, 1.29584, .83657, - + .47511, 1.05567, 1.30396 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ - + .05515, .03168, 28.60671, 1.41530, .96030, - + .60471, 1.17740, 1.42357, - + .05722, .03280, 31.36157, 1.53281, 1.08175, - + .73153, 1.29701, 1.54121, - + .05917, .03386, 34.00644, 1.64819, 1.20080, - + .85553, 1.41434, 1.65672, - + .06103, .03487, 36.52328, 1.76076, 1.31679, - + .97611, 1.52873, 1.76941, - + .06281, .03583, 38.92864, 1.87076, 1.43001, - + 1.09360, 1.64045, 1.87954, - + .06451, .03675, 41.23754, 1.97849, 1.54076, - + 1.20835, 1.74979, 1.98738, - + .06614, .03764, 43.46108, 2.08417, 1.64930, - + 1.32064, 1.85699, 2.09316 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ - + .06771, .03848, 45.56446, 2.18663, 1.75446, - + 1.42933, 1.96088, 2.19572, - + .06922, .03930, 47.58186, 2.28676, 1.85718, - + 1.53538, 2.06239, 2.29595, - + .07068, .04009, 49.53772, 2.38529, 1.95816, - + 1.63952, 2.16223, 2.39458, - + .07208, .04085, 51.36873, 2.48008, 2.05530, - + 1.73966, 2.25827, 2.48946, - + .07344, .04159, 53.15987, 2.57380, 2.15126, - + 1.83847, 2.35318, 2.58327 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + .04198, .02427, 6.26127, .53676, .06269, - + .00000, .28877, .54431, - + .04610, .02650, 9.20060, .64430, .17885, - + .00000, .40093, .65215, - + .04974, .02848, 12.10500, .75292, .29475, - + .00000, .51345, .76103, - + .05302, .03027, 14.94009, .86130, .40946, - + .05827, .62522, .86965, - + .05604, .03192, 17.68082, .96898, .52275, - + .18412, .73592, .97754, - + .05885, .03345, 20.32986, 1.07576, .63461, - + .30239, .84542, 1.08452, - + .06148, .03488, 22.85129, 1.18049, .74396, - + .41769, .95263, 1.18944 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ - + .06394, .03622, 25.25876, 1.28317, .85087, - + .53004, 1.05758, 1.29229, - + .06627, .03749, 27.55616, 1.38365, .95528, - + .63942, 1.16016, 1.39293, - + .06847, .03869, 29.74718, 1.48184, 1.05712, - + .74584, 1.26031, 1.49128, - + .07056, .03983, 31.81858, 1.57722, 1.15590, - + .84886, 1.35751, 1.58680, - + .07256, .04092, 33.78643, 1.67004, 1.25191, - + .94882, 1.45204, 1.67975, - + .07447, .04196, 35.66511, 1.76059, 1.34547, - + 1.04607, 1.54420, 1.77043, - + .07630, .04295, 37.46526, 1.84909, 1.43682, - + 1.14089, 1.63423, 1.85906 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ - + .07805, .04391, 39.15857, 1.93458, 1.52500, - + 1.23234, 1.72117, 1.94467, - + .07973, .04482, 40.77489, 2.01786, 1.61085, - + 1.32127, 1.80582, 2.02806, - + .08136, .04571, 42.33558, 2.09957, 1.69500, - + 1.40833, 1.88884, 2.10988, - + .08293, .04655, 43.78826, 2.17790, 1.77566, - + 1.49176, 1.96842, 2.18831, - + .08444, .04738, 45.20470, 2.25516, 1.85515, - + 1.57389, 2.04687, 2.26567 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + .04744, .02712, 5.95654, .51536, .05915, - + .00000, .27681, .52325, - + .05199, .02961, 8.64377, .61403, .16639, - + .00000, .38008, .62226, - + .05601, .03182, 11.26517, .71284, .27243, - + .00000, .48276, .72134, - + .05964, .03381, 13.79730, .81070, .37658, - + .05293, .58400, .81947, - + .06296, .03563, 16.22306, .90732, .47878, - + .16680, .68362, .91632, - + .06604, .03732, 18.54925, 1.00261, .57910, - + .27316, .78160, 1.01182, - + .06892, .03889, 20.74704, 1.09559, .67667, - + .37633, .87705, 1.10500 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ - + .07161, .04037, 22.83174, 1.18632, .77162, - + .47638, .97004, 1.19592, - + .07416, .04176, 24.80939, 1.27474, .86393, - + .57337, 1.06055, 1.28452, - + .07656, .04308, 26.68486, 1.36081, .95362, - + .66737, 1.14856, 1.37075, - + .07884, .04433, 28.44814, 1.44410, 1.04029, - + .75803, 1.23366, 1.45420, - + .08101, .04551, 30.11470, 1.52488, 1.12424, - + .84569, 1.31614, 1.53512, - + .08309, .04665, 31.69852, 1.60343, 1.20578, - + .93070, 1.39629, 1.61381, - + .08508, .04773, 33.20981, 1.67998, 1.28516, - + 1.01333, 1.47436, 1.69050 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ - + .08698, .04877, 34.62450, 1.75369, 1.36155, - + 1.09279, 1.54951, 1.76433, - + .08880, .04976, 35.96930, 1.82531, 1.43571, - + 1.16984, 1.62248, 1.83607, - + .09057, .05072, 37.26331, 1.89539, 1.50822, - + 1.24509, 1.69388, 1.90628, - + .09226, .05164, 38.46186, 1.96239, 1.57753, - + 1.31701, 1.76211, 1.97339, - + .09390, .05253, 39.62732, 2.02834, 1.64570, - + 1.38764, 1.82925, 2.03944 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + .06925, .03871, 5.07810, .45062, .04899, - + .00000, .24127, .46017, - + .07544, .04219, 7.07574, .52474, .13158, - + .00000, .31998, .53474, - + .08086, .04523, 8.94374, .59690, .21090, - + .00000, .39602, .60730, - + .08571, .04794, 10.68623, .66673, .28693, - + .03872, .46920, .67747, - + .09012, .05041, 12.30563, .73425, .35997, - + .12098, .53972, .74532, - + .09419, .05267, 13.81785, .79964, .43034, - + .19633, .60780, .81099, - + .09797, .05477, 15.21125, .86239, .49762, - + .26821, .67300, .87401 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ - + .10148, .05672, 16.50359, .92269, .56208, - + .33688, .73556, .93456, - + .10478, .05855, 17.70447, .98064, .62388, - + .40251, .79559, .99274, - + .10789, .06026, 18.82145, 1.03633, .68313, - + .46530, .85321, 1.04864, - + .11082, .06188, 19.85142, 1.08955, .73969, - + .52513, .90823, 1.10206, - + .11359, .06341, 20.80771, 1.14056, .79383, - + .58231, .96094, 1.15327, - + .11624, .06486, 21.70183, 1.18965, .84587, - + .63719, 1.01162, 1.20254, - + .11876, .06624, 22.54226, 1.23702, .89602, - + .69001, 1.06050, 1.25008 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ - + .12116, .06756, 23.31507, 1.28215, .94379, - + .74029, 1.10706, 1.29538, - + .12346, .06881, 24.03894, 1.32560, .98974, - + .78861, 1.15186, 1.33898, - + .12567, .07002, 24.72700, 1.36778, 1.03432, - + .83542, 1.19534, 1.38131, - + .12778, .07117, 25.35204, 1.40768, 1.07650, - + .87972, 1.23647, 1.42135, - + .12983, .07228, 25.95412, 1.44670, 1.11770, - + .92294, 1.27667, 1.46051 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + .10082, .05660, 4.28068, .38728, .03987, - + .00000, .20701, .39905, - + .10905, .06130, 5.70546, .44081, .10178, - + .00000, .26512, .45320, - + .11617, .06534, 6.97538, .49134, .15937, - + .00000, .31950, .50426, - + .12247, .06890, 8.11311, .53896, .21312, - + .02750, .37047, .55234, - + .12816, .07209, 9.13353, .58396, .26356, - + .08511, .41844, .59775, - + .13336, .07500, 10.05694, .62664, .31114, - + .13676, .46380, .64080, - + .13814, .07766, 10.88208, .66681, .35577, - + .18513, .50640, .68132 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ - + .14257, .08011, 11.62655, .70475, .39780, - + .23056, .54657, .71957, - + .14669, .08238, 12.30057, .74062, .43745, - + .27332, .58450, .75572, - + .15055, .08450, 12.91245, .77457, .47491, - + .31364, .62037, .78995, - + .15416, .08648, 13.46223, .80654, .51015, - + .35153, .65412, .82216, - + .15757, .08833, 13.96088, .83676, .54344, - + .38728, .68601, .85262, - + .16079, .09008, 14.41714, .86548, .57504, - + .42118, .71630, .88155, - + .16385, .09173, 14.83745, .89287, .60516, - + .45345, .74518, .90915 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ - + .16675, .09329, 15.21402, .91864, .63350, - + .48381, .77235, .93511, - + .16950, .09478, 15.55942, .94316, .66047, - + .51269, .79820, .95981, - + .17215, .09619, 15.88226, .96674, .68639, - + .54041, .82306, .98356, - + .17465, .09753, 16.16632, .98874, .71062, - + .56635, .84627, 1.00573, - + .17707, .09882, 16.43656, 1.01010, .73410, - + .59146, .86878, 1.02725 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + .12542, .07120, 3.84676, .35071, .03498, - + -.00001, .18758, .36433, - + .13500, .07667, 4.98682, .39389, .08646, - + -.00001, .23533, .40823, - + .14322, .08132, 5.97113, .43383, .13341, - + -.00001, .27912, .44879, - + .15043, .08537, 6.82930, .47084, .17648, - + .02211, .31945, .48633, - + .15691, .08897, 7.58037, .50526, .21628, - + .06806, .35683, .52123, - + .16279, .09223, 8.24519, .53747, .25334, - + .10870, .39170, .55386, - + .16816, .09518, 8.82633, .56739, .28767, - + .14631, .42404, .58416 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ - + .17311, .09788, 9.34003, .59532, .31962, - + .18126, .45417, .61243, - + .17769, .10036, 9.79627, .62143, .34945, - + .21382, .48232, .63885, - + .18196, .10267, 10.20278, .64587, .37736, - + .24423, .50866, .66359, - + .18594, .10480, 10.56073, .66866, .40336, - + .27256, .53320, .68664, - + .18967, .10679, 10.87911, .69000, .42772, - + .29907, .55619, .70823, - + .19319, .10865, 11.16524, .71009, .45064, - + .32400, .57783, .72855, - + .19652, .11041, 11.42442, .72909, .47233, - + .34757, .59830, .74778 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ - + .19965, .11205, 11.65133, .74679, .49256, - + .36957, .61738, .76568, - + .20262, .11361, 11.85561, .76351, .51168, - + .39035, .63541, .78258, - + .20547, .11509, 12.04375, .77948, .52994, - + .41019, .65263, .79873, - + .20815, .11647, 12.20420, .79422, .54685, - + .42859, .66855, .81364, - + .21072, .11780, 12.35514, .80844, .56317, - + .44633, .68392, .82803 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + .14635, .08398, 3.55118, .32495, .03170, - + -.00001, .17404, .34019, - + .15691, .08996, 4.50984, .36149, .07647, - + -.00001, .21512, .37754, - + .16591, .09500, 5.31706, .39476, .11668, - + -.00001, .25222, .41148, - + .17377, .09935, 6.00574, .42517, .15309, - + .01876, .28594, .44248, - + .18078, .10319, 6.59653, .45313, .18636, - + .05751, .31682, .47094, - + .18711, .10664, 7.11005, .47899, .21702, - + .09143, .34533, .49725, - + .19287, .10974, 7.55058, .50277, .24514, - + .12254, .37149, .52143 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ - + .19814, .11256, 7.93320, .52475, .27110, - + .15121, .39565, .54376, - + .20301, .11514, 8.26725, .54511, .29513, - + .17772, .41803, .56445, - + .20753, .11752, 8.55992, .56401, .31744, - + .20230, .43880, .58365, - + .21171, .11970, 8.81277, .58148, .33807, - + .22503, .45799, .60139, - + .21562, .12173, 9.03356, .59770, .35726, - + .24617, .47584, .61786, - + .21930, .12362, 9.22855, .61286, .37521, - + .26594, .49252, .63325, - + .22276, .12540, 9.40224, .62709, .39208, - + .28451, .50820, .64771 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ - + .22601, .12705, 9.55060, .64024, .40772, - + .30174, .52271, .66105, - + .22908, .12860, 9.68146, .65257, .42241, - + .31794, .53632, .67357, - + .23201, .13007, 9.80009, .66429, .43638, - + .33333, .54927, .68546, - + .23476, .13144, 9.89744, .67499, .44921, - + .34751, .56113, .69632, - + .23740, .13276, 9.98790, .68528, .46155, - + .36113, .57254, .70677 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + .16489, .09548, 3.32845, .30510, .02927, - + .00000, .16372, .32187, - + .17621, .10181, 4.15789, .33688, .06921, - + .00000, .20002, .35450, - + .18579, .10710, 4.84151, .36544, .10463, - + .00000, .23237, .38377, - + .19413, .11164, 5.41397, .39124, .13638, - + .01642, .26146, .41018, - + .20151, .11560, 5.89654, .41472, .16511, - + .05015, .28784, .43417, - + .20816, .11914, 6.30917, .43624, .19137, - + .07942, .31197, .45616, - + .21417, .12231, 6.65712, .45583, .21525, - + .10607, .33392, .47615 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ - + .21966, .12517, 6.95469, .47378, .23713, - + .13046, .35403, .49447, - + .22470, .12777, 7.20996, .49029, .25727, - + .15288, .37253, .51130, - + .22936, .13015, 7.42989, .50550, .27584, - + .17356, .38958, .52682, - + .23366, .13233, 7.61640, .51943, .29290, - + .19255, .40523, .54101, - + .23766, .13435, 7.77622, .53228, .30867, - + .21012, .41967, .55410, - + .24141, .13621, 7.91472, .54421, .32335, - + .22648, .43310, .56626, - + .24493, .13796, 8.03581, .55534, .33707, - + .24177, .44565, .57760 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ - + .24822, .13957, 8.13630, .56553, .34972, - + .25588, .45718, .58798, - + .25132, .14108, 8.22278, .57503, .36153, - + .26908, .46794, .59765, - + .25427, .14251, 8.29966, .58400, .37272, - + .28158, .47812, .60679, - + .25702, .14383, 8.35946, .59213, .38295, - + .29305, .48738, .61506, - + .25967, .14509, 8.41417, .59991, .39274, - + .30402, .49626, .62299 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + .23825, .14150, 2.66783, .24444, .02231, - + .00000, .13292, .26776, - + .25156, .14824, 3.15560, .26344, .04919, - + .00000, .15630, .28766, - + .26253, .15365, 3.52557, .27968, .07202, - + .00000, .17619, .30459, - + .27184, .15813, 3.81269, .29370, .09174, - + .01037, .19335, .31918, - + .27991, .16192, 4.03692, .30593, .10901, - + .03129, .20835, .33188, - + .28702, .16520, 4.21488, .31671, .12431, - + .04893, .22161, .34304, - + .29331, .16804, 4.35259, .32615, .13784, - + .06458, .23328, .35280 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ - + .29895, .17052, 4.46039, .33448, .14991, - + .07857, .24365, .36142, - + .30404, .17271, 4.54459, .34187, .16074, - + .09114, .25290, .36904, - + .30865, .17466, 4.60961, .34844, .17049, - + .10250, .26120, .37582, - + .31283, .17639, 4.65723, .35423, .17924, - + .11272, .26859, .38177, - + .31665, .17793, 4.69173, .35937, .18714, - + .12199, .27522, .38706, - + .32017, .17932, 4.71634, .36399, .19435, - + .13046, .28123, .39180, - + .32342, .18059, 4.73327, .36816, .20096, - + .13826, .28671, .39609 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ - + .32640, .18172, 4.74078, .37180, .20690, - + .14531, .29159, .39982, - + .32917, .18275, 4.74260, .37507, .21234, - + .15180, .29602, .40317, - + .33177, .18370, 4.74103, .37807, .21741, - + .15785, .30013, .40625, - + .33413, .18453, 4.73230, .38061, .22192, - + .16329, .30372, .40885, - + .33638, .18532, 4.72247, .38300, .22618, - + .16844, .30711, .41128 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + .34220, .20330, 2.04676, .18593, .01626, - + -.00002, .10430, .21876, - + .35539, .20807, 2.27672, .19492, .03279, - + -.00002, .11737, .22817, - + .36572, .21152, 2.42680, .20194, .04611, - + -.00001, .12777, .23542, - + .37406, .21408, 2.52577, .20750, .05707, - + .00593, .13620, .24111, - + .38096, .21601, 2.58902, .21195, .06628, - + .01769, .14317, .24560, - + .38676, .21749, 2.62800, .21554, .07412, - + .02725, .14900, .24918, - + .39163, .21858, 2.64728, .21836, .08078, - + .03546, .15383, .25195 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ - + .39578, .21939, 2.65319, .22060, .08650, - + .04259, .15789, .25410, - + .39934, .21997, 2.64953, .22236, .09145, - + .04881, .16130, .25575, - + .40242, .22036, 2.63861, .22373, .09576, - + .05429, .16420, .25701, - + .40505, .22060, 2.62155, .22474, .09950, - + .05908, .16661, .25787, - + .40732, .22071, 2.60036, .22544, .10274, - + .06331, .16862, .25845, - + .40930, .22072, 2.57660, .22593, .10560, - + .06708, .17033, .25879, - + .41103, .22066, 2.55126, .22626, .10815, - + .07047, .17178, .25896 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ - + .41249, .22050, 2.52352, .22636, .11035, - + .07347, .17295, .25891, - + .41376, .22028, 2.49493, .22633, .11229, - + .07616, .17392, .25871, - + .41490, .22004, 2.46646, .22622, .11405, - + .07861, .17476, .25844, - + .41582, .21971, 2.43627, .22593, .11552, - + .08075, .17536, .25798, - + .41665, .21938, 2.40707, .22560, .11689, - + .08274, .17589, .25751 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + .41979, .24288, 1.69908, .15230, .01311, - + .00000, .08811, .19096, - + .43037, .24450, 1.81444, .15661, .02475, - + .00001, .09621, .19493, - + .43804, .24515, 1.87399, .15953, .03377, - + .00000, .10224, .19744, - + .44377, .24517, 1.90065, .16150, .04094, - + .00401, .10684, .19897, - + .44809, .24480, 1.90592, .16277, .04675, - + .01183, .11040, .19977, - + .45140, .24415, 1.89792, .16352, .05154, - + .01803, .11318, .20008, - + .45386, .24327, 1.87988, .16384, .05550, - + .02322, .11529, .19993 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ - + .45568, .24225, 1.85576, .16384, .05878, - + .02762, .11692, .19948, - + .45700, .24112, 1.82795, .16360, .06153, - + .03140, .11815, .19880, - + .45789, .23994, 1.79785, .16317, .06385, - + .03464, .11907, .19795, - + .45843, .23868, 1.76586, .16258, .06579, - + .03743, .11971, .19693, - + .45868, .23740, 1.73317, .16186, .06742, - + .03983, .12014, .19579, - + .45871, .23609, 1.70056, .16106, .06880, - + .04194, .12039, .19460, - + .45859, .23478, 1.66847, .16020, .06999, - + .04381, .12052, .19337 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ - + .45826, .23343, 1.63623, .15925, .07096, - + .04540, .12050, .19205, - + .45779, .23211, 1.60473, .15827, .07178, - + .04680, .12038, .19072, - + .45725, .23081, 1.57442, .15729, .07250, - + .04806, .12022, .18940, - + .45653, .22948, 1.54411, .15623, .07304, - + .04912, .11992, .18799, - + .45579, .22819, 1.51530, .15520, .07353, - + .05009, .11961, .18663 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + .48135, .26833, 1.45828, .12804, .01095, - + .00000, .07617, .16955, - + .48795, .26655, 1.50803, .12958, .01965, - + .00000, .08123, .17003, - + .49194, .26427, 1.51902, .13021, .02615, - + .00000, .08472, .16962, - + .49425, .26177, 1.50921, .13023, .03116, - + .00291, .08714, .16872, - + .49537, .25915, 1.48708, .12985, .03510, - + .00849, .08882, .16743, - + .49571, .25646, 1.45828, .12918, .03826, - + .01284, .08998, .16593, - + .49534, .25378, 1.42494, .12830, .04078, - + .01640, .09070, .16422 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ - + .49453, .25108, 1.38970, .12724, .04280, - + .01936, .09109, .16244, - + .49336, .24845, 1.35389, .12611, .04444, - + .02186, .09125, .16060, - + .49193, .24586, 1.31831, .12489, .04579, - + .02397, .09123, .15874, - + .49024, .24333, 1.28298, .12363, .04685, - + .02573, .09104, .15683, - + .48839, .24085, 1.24859, .12234, .04771, - + .02724, .09074, .15494, - + .48644, .23844, 1.21548, .12104, .04841, - + .02853, .09036, .15307, - + .48443, .23611, 1.18380, .11974, .04898, - + .02964, .08992, .15123 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ - + .48230, .23381, 1.15299, .11843, .04941, - + .03058, .08940, .14940, - + .48011, .23158, 1.12354, .11713, .04973, - + .03139, .08884, .14761, - + .47794, .22944, 1.09562, .11588, .05000, - + .03210, .08828, .14588, - + .47566, .22731, 1.06842, .11460, .05016, - + .03268, .08765, .14415, - + .47344, .22527, 1.04279, .11337, .05028, - + .03320, .08703, .14249 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + .53061, .28359, 1.27440, .10862, .00929, - + .00000, .06625, .15072, - + .53241, .27853, 1.28232, .10846, .01597, - + -.00001, .06928, .14884, - + .53213, .27353, 1.26423, .10770, .02082, - + -.00001, .07112, .14657, - + .53061, .26872, 1.23403, .10662, .02444, - + .00218, .07220, .14412, - + .52828, .26407, 1.19768, .10532, .02721, - + .00634, .07275, .14161, - + .52542, .25963, 1.15907, .10392, .02936, - + .00950, .07295, .13906, - + .52214, .25536, 1.11939, .10240, .03103, - + .01205, .07287, .13653 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ - + .51860, .25129, 1.08033, .10089, .03232, - + .01415, .07260, .13403, - + .51494, .24738, 1.04254, .09933, .03334, - + .01588, .07219, .13161, - + .51118, .24366, 1.00637, .09781, .03411, - + .01730, .07169, .12923, - + .50736, .24005, .97168, .09625, .03470, - + .01847, .07109, .12697, - + .50347, .23663, .93874, .09476, .03515, - + .01947, .07044, .12474, - + .49960, .23335, .90765, .09330, .03548, - + .02031, .06977, .12259, - + .49581, .23021, .87840, .09189, .03573, - + .02101, .06907, .12054 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ - + .49202, .22716, .85050, .09046, .03588, - + .02158, .06834, .11856, - + .48826, .22424, .82420, .08910, .03597, - + .02207, .06761, .11663, - + .48458, .22146, .79953, .08781, .03603, - + .02249, .06690, .11477, - + .48089, .21874, .77588, .08651, .03601, - + .02281, .06615, .11297, - + .47733, .21615, .75376, .08527, .03597, - + .02310, .06544, .11126 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + .57766, .29204, 1.09262, .08858, .00760, - + .00000, .05549, .12908, - + .57284, .28330, 1.06688, .08714, .01254, - + -.00002, .05686, .12534, - + .56685, .27532, 1.02722, .08544, .01598, - + -.00002, .05741, .12169, - + .56037, .26803, .98320, .08364, .01847, - + .00157, .05747, .11819, - + .55362, .26128, .93836, .08179, .02030, - + .00454, .05721, .11486, - + .54679, .25504, .89487, .07997, .02167, - + .00674, .05675, .11170, - + .53994, .24919, .85309, .07816, .02268, - + .00850, .05614, .10868 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ - + .53316, .24372, .81376, .07640, .02343, - + .00989, .05544, .10584, - + .52653, .23858, .77706, .07470, .02398, - + .01102, .05469, .10315, - + .52005, .23376, .74291, .07307, .02436, - + .01195, .05391, .10061, - + .51370, .22919, .71099, .07149, .02463, - + .01269, .05311, .09817, - + .50751, .22488, .68133, .06997, .02480, - + .01329, .05229, .09588, - + .50152, .22080, .65382, .06852, .02489, - + .01379, .05148, .09371, - + .49573, .21694, .62830, .06714, .02494, - + .01421, .05068, .09165 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ - + .49007, .21324, .60439, .06581, .02493, - + .01454, .04990, .08966, - + .48457, .20973, .58212, .06453, .02487, - + .01480, .04912, .08778, - + .47928, .20642, .56143, .06331, .02480, - + .01502, .04837, .08601, - + .47407, .20318, .54188, .06212, .02467, - + .01518, .04763, .08430, - + .46909, .20011, .52373, .06099, .02455, - + .01532, .04691, .08269 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + .61056, .29170, .94540, .07187, .00621, - + -.00003, .04607, .10909, - + .59892, .27981, .89858, .06976, .00995, - + -.00003, .04643, .10438, - + .58719, .26941, .84686, .06764, .01245, - + -.00002, .04623, .10008, - + .57583, .26014, .79630, .06555, .01419, - + .00115, .04574, .09618, - + .56484, .25176, .74851, .06354, .01543, - + .00333, .04507, .09256, - + .55428, .24413, .70435, .06163, .01631, - + .00491, .04429, .08926, - + .54410, .23710, .66356, .05979, .01693, - + .00616, .04345, .08617 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ - + .53438, .23063, .62628, .05805, .01735, - + .00712, .04259, .08330, - + .52507, .22462, .59232, .05641, .01763, - + .00790, .04173, .08064, - + .51620, .21905, .56135, .05485, .01782, - + .00851, .04086, .07818, - + .50765, .21384, .53297, .05338, .01790, - + .00900, .04001, .07586, - + .49947, .20894, .50696, .05198, .01793, - + .00938, .03918, .07368, - + .49166, .20435, .48316, .05065, .01791, - + .00968, .03838, .07165, - + .48422, .20002, .46137, .04940, .01785, - + .00992, .03761, .06975 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ - + .47704, .19592, .44118, .04819, .01776, - + .01011, .03685, .06795, - + .47012, .19205, .42257, .04706, .01765, - + .01025, .03612, .06625, - + .46352, .18840, .40542, .04600, .01753, - + .01036, .03542, .06465, - + .45708, .18490, .38941, .04498, .01739, - + .01045, .03474, .06310, - + .45095, .18160, .37462, .04401, .01725, - + .01052, .03409, .06165 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + .63093, .28487, .82190, .05779, .00505, - + -.00001, .03782, .09084, - + .61251, .27057, .76212, .05548, .00786, - + -.00001, .03755, .08580, - + .59530, .25829, .70421, .05326, .00971, - + -.00001, .03694, .08133, - + .57937, .24755, .65138, .05117, .01093, - + .00087, .03616, .07741, - + .56449, .23800, .60370, .04921, .01176, - + .00247, .03530, .07388, - + .55060, .22941, .56109, .04738, .01234, - + .00362, .03441, .07067, - + .53748, .22162, .52282, .04569, .01270, - + .00448, .03351, .06773 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ - + .52515, .21449, .48862, .04409, .01293, - + .00517, .03261, .06507, - + .51359, .20794, .45804, .04258, .01305, - + .00570, .03175, .06264, - + .50270, .20189, .43060, .04120, .01310, - + .00610, .03091, .06039, - + .49232, .19631, .40578, .03992, .01310, - + .00644, .03011, .05827, - + .48254, .19108, .38338, .03869, .01306, - + .00667, .02934, .05633, - + .47327, .18620, .36310, .03753, .01299, - + .00686, .02861, .05453, - + .46448, .18165, .34468, .03645, .01290, - + .00700, .02792, .05286 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ - + .45607, .17736, .32780, .03544, .01278, - + .00711, .02724, .05127, - + .44805, .17333, .31237, .03449, .01265, - + .00718, .02659, .04979, - + .44045, .16954, .29826, .03359, .01252, - + .00724, .02599, .04841, - + .43310, .16593, .28518, .03274, .01237, - + .00727, .02540, .04709, - + .42614, .16253, .27317, .03193, .01223, - + .00729, .02485, .04585 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + .64004, .27337, .71578, .04598, .00405, - + -.00002, .03062, .07449, - + .61527, .25721, .64852, .04369, .00621, - + -.00002, .03005, .06951, - + .59306, .24357, .58822, .04158, .00758, - + -.00003, .02925, .06524, - + .57306, .23182, .53569, .03962, .00845, - + .00065, .02837, .06155, - + .55478, .22149, .48988, .03782, .00903, - + .00185, .02748, .05826, - + .53799, .21230, .45001, .03617, .00938, - + .00271, .02658, .05537, - + .52239, .20404, .41498, .03465, .00959, - + .00334, .02572, .05273 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ - + .50796, .19653, .38423, .03327, .00970, - + .00381, .02489, .05035, - + .49451, .18972, .35718, .03198, .00975, - + .00417, .02410, .04818, - + .48198, .18346, .33319, .03080, .00974, - + .00445, .02334, .04621, - + .47018, .17770, .31180, .02970, .00968, - + .00466, .02263, .04440, - + .45913, .17235, .29267, .02867, .00961, - + .00482, .02195, .04273, - + .44874, .16738, .27552, .02771, .00953, - + .00493, .02132, .04117, - + .43897, .16277, .26009, .02682, .00942, - + .00502, .02072, .03974 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ - + .42966, .15846, .24609, .02597, .00930, - + .00509, .02013, .03842, - + .42085, .15441, .23339, .02519, .00918, - + .00513, .01958, .03718, - + .41254, .15062, .22185, .02445, .00905, - + .00515, .01908, .03602, - + .40457, .14701, .21123, .02375, .00891, - + .00515, .01858, .03493, - + .39704, .14363, .20153, .02310, .00878, - + .00515, .01811, .03391 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + .63913, .25851, .62319, .03616, .00325, - + .00000, .02447, .06010, - + .60868, .24104, .55233, .03402, .00492, - + -.00002, .02378, .05547, - + .58204, .22655, .49219, .03211, .00592, - + .00000, .02292, .05161, - + .55850, .21422, .44163, .03036, .00655, - + .00050, .02207, .04829, - + .53736, .20346, .39876, .02879, .00694, - + .00140, .02121, .04540, - + .51818, .19400, .36220, .02739, .00716, - + .00202, .02040, .04282, - + .50063, .18551, .33073, .02609, .00728, - + .00249, .01962, .04056 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ - + .48450, .17791, .30349, .02492, .00732, - + .00284, .01888, .03851, - + .46967, .17101, .27986, .02382, .00731, - + .00309, .01819, .03668, - + .45593, .16472, .25914, .02285, .00726, - + .00328, .01752, .03502, - + .44312, .15896, .24091, .02192, .00720, - + .00343, .01692, .03349, - + .43116, .15366, .22473, .02109, .00711, - + .00353, .01635, .03209, - + .41998, .14877, .21036, .02031, .00701, - + .00359, .01581, .03081, - + .40953, .14425, .19754, .01959, .00690, - + .00363, .01531, .02963 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ - + .39966, .13999, .18598, .01890, .00679, - + .00366, .01483, .02856, - + .39036, .13604, .17557, .01827, .00668, - + .00369, .01438, .02755, - + .38161, .13235, .16617, .01769, .00657, - + .00370, .01396, .02660, - + .37325, .12886, .15758, .01713, .00645, - + .00369, .01356, .02572, - + .36538, .12560, .14977, .01662, .00634, - + .00367, .01318, .02490 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + .62947, .24129, .54165, .02801, .00260, - + .00004, .01931, .04775, - + .59403, .22315, .47015, .02618, .00386, - + .00003, .01856, .04365, - + .56369, .20823, .41192, .02452, .00459, - + .00003, .01775, .04027, - + .53726, .19568, .36440, .02307, .00503, - + .00040, .01695, .03740, - + .51382, .18483, .32503, .02175, .00530, - + .00108, .01619, .03491, - + .49286, .17532, .29207, .02055, .00544, - + .00155, .01547, .03275, - + .47380, .16692, .26412, .01951, .00547, - + .00186, .01479, .03084 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ - + .45650, .15937, .24032, .01853, .00548, - + .00210, .01417, .02913, - + .44064, .15261, .21990, .01766, .00544, - + .00227, .01359, .02759, - + .42613, .14644, .20220, .01684, .00539, - + .00240, .01305, .02623, - + .41263, .14085, .18675, .01611, .00531, - + .00250, .01254, .02500, - + .40011, .13572, .17318, .01544, .00522, - + .00256, .01206, .02386, - + .38849, .13098, .16123, .01482, .00513, - + .00259, .01162, .02283, - + .37766, .12661, .15065, .01424, .00504, - + .00262, .01122, .02189 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ - + .36750, .12255, .14114, .01370, .00494, - + .00263, .01082, .02103, - + .35796, .11878, .13266, .01321, .00485, - + .00263, .01046, .02022, - + .34903, .11527, .12505, .01275, .00476, - + .00263, .01012, .01945, - + .34052, .11197, .11814, .01232, .00466, - + .00262, .00981, .01874, - + .33254, .10889, .11188, .01192, .00456, - + .00261, .00952, .01809 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + .61193, .22304, .46967, .02167, .00189, - + -.00013, .01486, .03735, - + .57249, .20454, .39945, .02007, .00290, - + -.00012, .01421, .03381, - + .53927, .18951, .34429, .01865, .00346, - + -.00012, .01351, .03095, - + .51066, .17701, .30042, .01742, .00379, - + .00018, .01282, .02855, - + .48556, .16628, .26476, .01635, .00396, - + .00071, .01217, .02650, - + .46337, .15693, .23545, .01532, .00405, - + .00106, .01158, .02473, - + .44335, .14873, .21097, .01448, .00407, - + .00131, .01103, .02316 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ - + .42529, .14142, .19036, .01368, .00405, - + .00149, .01050, .02178, - + .40887, .13487, .17286, .01298, .00402, - + .00162, .01003, .02055, - + .39381, .12901, .15788, .01238, .00396, - + .00172, .00960, .01942, - + .38006, .12366, .14489, .01177, .00389, - + .00178, .00917, .01844, - + .36729, .11875, .13362, .01123, .00381, - + .00182, .00879, .01756, - + .35549, .11427, .12375, .01075, .00374, - + .00185, .00845, .01674, - + .34458, .11018, .11506, .01032, .00367, - + .00186, .00814, .01597 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ - + .33433, .10637, .10734, .00993, .00358, - + .00187, .00783, .01527, - + .32479, .10283, .10046, .00954, .00351, - + .00187, .00755, .01464, - + .31591, .09954, .09431, .00916, .00343, - + .00186, .00729, .01406, - + .30745, .09645, .08877, .00882, .00335, - + .00185, .00704, .01352, - + .29954, .09359, .08378, .00851, .00328, - + .00183, .00681, .01303 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + .58819, .20357, .40531, .01627, .00152, - + -.00004, .01143, .02874, - + .54550, .18527, .33808, .01501, .00225, - + -.00004, .01082, .02584, - + .51009, .17052, .28680, .01387, .00267, - + -.00003, .01022, .02344, - + .47995, .15832, .24689, .01289, .00289, - + .00020, .00964, .02150, - + .45381, .14796, .21508, .01203, .00302, - + .00059, .00911, .01981, - + .43076, .13903, .18933, .01128, .00305, - + .00082, .00861, .01840, - + .41026, .13117, .16810, .01057, .00307, - + .00101, .00816, .01713 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ - + .39182, .12423, .15044, .00998, .00304, - + .00113, .00774, .01603, - + .37523, .11804, .13561, .00941, .00299, - + .00122, .00736, .01506, - + .36015, .11248, .12303, .00890, .00293, - + .00128, .00700, .01422, - + .34629, .10746, .11226, .00846, .00286, - + .00132, .00667, .01345, - + .33360, .10290, .10294, .00806, .00280, - + .00134, .00638, .01274, - + .32190, .09874, .09484, .00769, .00273, - + .00135, .00611, .01210, - + .31109, .09493, .08775, .00736, .00267, - + .00135, .00586, .01153 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ - + .30102, .09140, .08150, .00705, .00261, - + .00135, .00563, .01099, - + .29165, .08814, .07597, .00676, .00254, - + .00135, .00541, .01050, - + .28293, .08514, .07105, .00649, .00247, - + .00134, .00520, .01005, - + .27472, .08232, .06664, .00623, .00241, - + .00133, .00502, .00965, - + .26705, .07970, .06269, .00599, .00234, - + .00132, .00484, .00928 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + .55897, .18413, .34824, .01215, .00114, - + -.00004, .00860, .02174, - + .51407, .16625, .28495, .01112, .00171, - + -.00003, .00811, .01941, - + .47727, .15201, .23798, .01022, .00203, - + -.00004, .00761, .01750, - + .44631, .14032, .20217, .00944, .00218, - + .00015, .00715, .01594, - + .41966, .13046, .17415, .00876, .00226, - + .00043, .00671, .01462, - + .39635, .12199, .15179, .00818, .00228, - + .00061, .00632, .01350, - + .37570, .11461, .13358, .00765, .00227, - + .00073, .00595, .01254 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ - + .35731, .10814, .11859, .00720, .00224, - + .00082, .00563, .01165, - + .34084, .10238, .10614, .00675, .00219, - + .00088, .00533, .01092, - + .32593, .09724, .09565, .00640, .00213, - + .00093, .00505, .01025, - + .31238, .09258, .08674, .00604, .00209, - + .00096, .00481, .00967, - + .29995, .08840, .07910, .00574, .00204, - + .00097, .00458, .00913, - + .28856, .08459, .07252, .00546, .00198, - + .00097, .00437, .00864, - + .27810, .08110, .06679, .00519, .00192, - + .00097, .00417, .00822 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ - + .26838, .07789, .06177, .00494, .00187, - + .00097, .00399, .00783, - + .25935, .07493, .05735, .00473, .00182, - + .00096, .00383, .00746, - + .25097, .07221, .05344, .00455, .00177, - + .00095, .00368, .00711, - + .24308, .06966, .04994, .00436, .00172, - + .00093, .00354, .00681, - + .23576, .06730, .04682, .00419, .00167, - + .00092, .00340, .00653 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + .52552, .16484, .29742, .00886, .00086, - + .00000, .00638, .01623, - + .47934, .14772, .23886, .00806, .00131, - + .00001, .00599, .01434, - + .44182, .13421, .19647, .00740, .00154, - + .00000, .00560, .01285, - + .41065, .12316, .16477, .00679, .00165, - + .00013, .00523, .01166, - + .38395, .11395, .14035, .00632, .00169, - + .00034, .00489, .01061, - + .36087, .10607, .12109, .00585, .00169, - + .00046, .00458, .00976, - + .34057, .09923, .10563, .00544, .00168, - + .00056, .00430, .00901 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ - + .32258, .09324, .09305, .00510, .00165, - + .00062, .00404, .00837, - + .30647, .08798, .08269, .00481, .00161, - + .00066, .00382, .00778, - + .29202, .08326, .07404, .00452, .00156, - + .00068, .00362, .00728, - + .27887, .07907, .06676, .00430, .00153, - + .00070, .00343, .00682, - + .26694, .07525, .06056, .00405, .00148, - + .00071, .00325, .00645, - + .25607, .07179, .05524, .00381, .00143, - + .00071, .00309, .00610, - + .24612, .06865, .05064, .00360, .00138, - + .00070, .00295, .00577 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ - + .23685, .06577, .04664, .00344, .00134, - + .00069, .00282, .00547, - + .22828, .06313, .04313, .00330, .00130, - + .00068, .00269, .00520, - + .22035, .06071, .04003, .00317, .00126, - + .00068, .00258, .00496, - + .21298, .05843, .03729, .00303, .00122, - + .00067, .00247, .00473, - + .20613, .05633, .03484, .00290, .00119, - + .00066, .00238, .00452 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + .48884, .14612, .25237, .00631, .00069, - + .00004, .00469, .01188, - + .44222, .12998, .19899, .00573, .00101, - + .00005, .00439, .01042, - + .40479, .11733, .16120, .00524, .00116, - + .00004, .00408, .00928, - + .37392, .10710, .13347, .00481, .00124, - + .00014, .00378, .00837, - + .34777, .09858, .11241, .00442, .00127, - + .00028, .00353, .00760, - + .32524, .09132, .09605, .00411, .00127, - + .00037, .00330, .00694, - + .30555, .08507, .08307, .00380, .00125, - + .00043, .00308, .00639 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ - + .28818, .07965, .07260, .00355, .00121, - + .00047, .00288, .00591, - + .27276, .07487, .06405, .00332, .00117, - + .00049, .00271, .00550, - + .25897, .07065, .05699, .00313, .00114, - + .00052, .00256, .00511, - + .24650, .06686, .05108, .00295, .00111, - + .00052, .00242, .00477, - + .23521, .06346, .04610, .00279, .00107, - + .00051, .00228, .00447, - + .22494, .06038, .04184, .00263, .00103, - + .00051, .00217, .00421, - + .21556, .05758, .03818, .00249, .00099, - + .00050, .00206, .00399 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ - + .20689, .05502, .03502, .00238, .00096, - + .00049, .00197, .00377, - + .19893, .05268, .03226, .00226, .00093, - + .00049, .00188, .00358, - + .19162, .05054, .02984, .00214, .00090, - + .00048, .00179, .00341, - + .18474, .04854, .02770, .00205, .00086, - + .00047, .00171, .00325, - + .17837, .04670, .02580, .00196, .00083, - + .00046, .00163, .00310 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + .44995, .12843, .21276, .00450, .00048, - + .00001, .00335, .00853, - + .40366, .11338, .16470, .00409, .00072, - + .00001, .00312, .00745, - + .36698, .10169, .13142, .00371, .00085, - + .00002, .00289, .00660, - + .33695, .09230, .10745, .00340, .00090, - + .00008, .00268, .00590, - + .31168, .08453, .08951, .00312, .00091, - + .00019, .00248, .00534, - + .29007, .07797, .07572, .00288, .00090, - + .00027, .00231, .00488, - + .27129, .07234, .06493, .00268, .00089, - + .00031, .00217, .00444 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ - + .25487, .06745, .05630, .00246, .00086, - + .00034, .00202, .00411, - + .24031, .06319, .04934, .00231, .00084, - + .00036, .00188, .00379, - + .22730, .05941, .04363, .00220, .00082, - + .00036, .00177, .00352, - + .21564, .05607, .03888, .00205, .00078, - + .00037, .00166, .00329, - + .20513, .05306, .03490, .00193, .00075, - + .00037, .00157, .00307, - + .19560, .05035, .03152, .00183, .00073, - + .00037, .00149, .00288, - + .18693, .04789, .02863, .00173, .00070, - + .00036, .00141, .00271 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ - + .17898, .04565, .02615, .00163, .00067, - + .00035, .00135, .00256, - + .17165, .04360, .02400, .00155, .00065, - + .00035, .00128, .00243, - + .16491, .04173, .02212, .00148, .00062, - + .00034, .00122, .00232, - + .15865, .03999, .02047, .00140, .00060, - + .00033, .00116, .00220, - + .15286, .03840, .01901, .00133, .00058, - + .00032, .00111, .00209 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + .40966, .11170, .17791, .00313, .00036, - + .00002, .00236, .00601, - + .36462, .09792, .13531, .00285, .00053, - + .00002, .00220, .00522, - + .32922, .08727, .10639, .00258, .00061, - + .00002, .00203, .00459, - + .30047, .07879, .08588, .00237, .00064, - + .00006, .00186, .00410, - + .27642, .07181, .07075, .00220, .00064, - + .00013, .00171, .00368, - + .25604, .06594, .05929, .00200, .00063, - + .00019, .00159, .00335, - + .23842, .06093, .05040, .00184, .00062, - + .00021, .00148, .00305 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ - + .22304, .05661, .04338, .00171, .00060, - + .00022, .00137, .00281, - + .20949, .05284, .03774, .00161, .00057, - + .00023, .00127, .00259, - + .19748, .04953, .03317, .00152, .00056, - + .00024, .00120, .00239, - + .18678, .04657, .02938, .00141, .00053, - + .00025, .00113, .00222, - + .17714, .04394, .02624, .00131, .00050, - + .00024, .00105, .00208, - + .16840, .04159, .02359, .00124, .00048, - + .00024, .00100, .00195, - + .16048, .03947, .02134, .00118, .00047, - + .00024, .00095, .00183 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ - + .15323, .03753, .01941, .00111, .00045, - + .00023, .00090, .00172, - + .14660, .03577, .01774, .00105, .00043, - + .00023, .00085, .00163, - + .14051, .03415, .01629, .00100, .00041, - + .00022, .00080, .00155, - + .13484, .03266, .01503, .00096, .00040, - + .00022, .00077, .00146, - + .12962, .03129, .01392, .00092, .00039, - + .00021, .00074, .00138 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + .36892, .09612, .14738, .00209, .00027, - + .00005, .00164, .00416, - + .32575, .08362, .11006, .00189, .00040, - + .00005, .00154, .00359, - + .29204, .07404, .08523, .00172, .00045, - + .00003, .00141, .00315, - + .26495, .06645, .06790, .00156, .00048, - + .00007, .00129, .00279, - + .24245, .06026, .05532, .00144, .00048, - + .00012, .00119, .00250, - + .22344, .05509, .04590, .00133, .00046, - + .00015, .00109, .00224, - + .20708, .05070, .03867, .00124, .00046, - + .00017, .00103, .00204 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ - + .19293, .04691, .03301, .00113, .00044, - + .00017, .00095, .00188, - + .18051, .04363, .02853, .00107, .00041, - + .00017, .00088, .00172, - + .16959, .04076, .02490, .00099, .00040, - + .00018, .00082, .00160, - + .15984, .03822, .02193, .00092, .00039, - + .00018, .00077, .00148, - + .15110, .03595, .01948, .00086, .00037, - + .00018, .00072, .00137, - + .14323, .03392, .01743, .00080, .00035, - + .00017, .00068, .00128, - + .13613, .03210, .01570, .00076, .00034, - + .00017, .00064, .00120 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ - + .12964, .03044, .01422, .00071, .00032, - + .00017, .00061, .00114, - + .12370, .02894, .01295, .00067, .00031, - + .00017, .00058, .00107, - + .11826, .02757, .01185, .00065, .00030, - + .00016, .00055, .00100, - + .11324, .02631, .01090, .00060, .00029, - + .00016, .00052, .00096, - + .10863, .02515, .01006, .00057, .00028, - + .00016, .00049, .00092 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + .32854, .08189, .12095, .00140, .00019, - + .00003, .00112, .00280, - + .28770, .07067, .08861, .00124, .00029, - + .00002, .00104, .00240, - + .25611, .06216, .06758, .00112, .00034, - + .00003, .00097, .00211, - + .23093, .05547, .05313, .00101, .00035, - + .00005, .00089, .00186, - + .21019, .05003, .04280, .00091, .00035, - + .00009, .00082, .00165, - + .19268, .04552, .03516, .00085, .00034, - + .00011, .00075, .00150, - + .17782, .04168, .02936, .00077, .00033, - + .00013, .00071, .00135 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ - + .16498, .03843, .02487, .00071, .00032, - + .00014, .00065, .00124, - + .15377, .03561, .02134, .00065, .00030, - + .00014, .00060, .00112, - + .14391, .03316, .01850, .00061, .00029, - + .00014, .00056, .00104, - + .13520, .03098, .01621, .00056, .00029, - + .00015, .00053, .00096, - + .12740, .02906, .01432, .00052, .00027, - + .00015, .00049, .00089, - + .12038, .02735, .01274, .00050, .00026, - + .00014, .00046, .00083, - + .11406, .02581, .01142, .00047, .00024, - + .00013, .00043, .00078 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ - + .10834, .02442, .01030, .00044, .00023, - + .00013, .00041, .00073, - + .10312, .02315, .00935, .00041, .00022, - + .00013, .00038, .00068, - + .09835, .02200, .00853, .00038, .00021, - + .00012, .00036, .00065, - + .09395, .02095, .00782, .00037, .00020, - + .00012, .00035, .00061, - + .08991, .01999, .00719, .00035, .00019, - + .00012, .00033, .00058 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + .28928, .06908, .09837, .00096, .00010, - + -.00001, .00071, .00185, - + .25122, .05918, .07081, .00090, .00017, - + -.00001, .00066, .00159, - + .22214, .05173, .05319, .00079, .00020, - + -.00002, .00061, .00138, - + .19909, .04590, .04132, .00072, .00022, - + .00001, .00056, .00122, - + .18022, .04121, .03291, .00065, .00021, - + .00003, .00051, .00107, - + .16445, .03733, .02678, .00061, .00021, - + .00005, .00046, .00097, - + .15109, .03406, .02217, .00055, .00020, - + .00006, .00043, .00087 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ - + .13960, .03127, .01863, .00050, .00020, - + .00007, .00040, .00080, - + .12961, .02888, .01588, .00047, .00019, - + .00007, .00037, .00072, - + .12089, .02680, .01369, .00044, .00017, - + .00008, .00035, .00066, - + .11318, .02496, .01192, .00041, .00017, - + .00008, .00032, .00062, - + .10632, .02335, .01048, .00038, .00016, - + .00007, .00030, .00057, - + .10019, .02191, .00928, .00036, .00015, - + .00007, .00028, .00053, - + .09467, .02062, .00829, .00034, .00014, - + .00007, .00026, .00049 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ - + .08968, .01946, .00745, .00030, .00013, - + .00007, .00025, .00047, - + .08514, .01841, .00673, .00028, .00013, - + .00007, .00023, .00044, - + .08101, .01746, .00612, .00027, .00012, - + .00007, .00022, .00041, - + .07721, .01659, .00559, .00026, .00012, - + .00006, .00020, .00038, - + .07373, .01580, .00513, .00025, .00011, - + .00006, .00019, .00036 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + .25129, .05737, .07880, .00053, .00010, - + .00003, .00049, .00120, - + .21645, .04877, .05571, .00050, .00014, - + .00002, .00046, .00101, - + .18999, .04236, .04123, .00047, .00016, - + .00002, .00041, .00090, - + .16923, .03738, .03159, .00043, .00016, - + .00003, .00038, .00078, - + .15235, .03339, .02488, .00038, .00016, - + .00005, .00034, .00069, - + .13832, .03010, .02004, .00037, .00015, - + .00005, .00031, .00060, - + .12648, .02735, .01645, .00033, .00015, - + .00006, .00029, .00056 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ - + .11634, .02501, .01371, .00032, .00013, - + .00006, .00027, .00049, - + .10760, .02302, .01160, .00031, .00013, - + .00006, .00024, .00045, - + .10001, .02128, .00993, .00026, .00012, - + .00006, .00022, .00042, - + .09330, .01975, .00860, .00024, .00012, - + .00006, .00021, .00039, - + .08736, .01842, .00752, .00023, .00011, - + .00006, .00019, .00036, - + .08207, .01723, .00663, .00021, .00011, - + .00005, .00018, .00033, - + .07733, .01618, .00589, .00020, .00010, - + .00005, .00017, .00030 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ - + .07305, .01523, .00527, .00019, .00009, - + .00005, .00016, .00029, - + .06917, .01438, .00475, .00018, .00009, - + .00005, .00015, .00027, - + .06565, .01361, .00430, .00017, .00008, - + .00004, .00014, .00025, - + .06242, .01290, .00391, .00016, .00008, - + .00004, .00013, .00023, - + .05948, .01225, .00358, .00015, .00007, - + .00004, .00012, .00021 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + .21537, .04709, .06237, .00033, .00008, - + .00004, .00032, .00073, - + .18396, .03972, .04325, .00030, .00010, - + .00003, .00030, .00063, - + .16033, .03426, .03149, .00027, .00011, - + .00002, .00026, .00055, - + .14186, .03005, .02381, .00026, .00012, - + .00004, .00025, .00048, - + .12700, .02668, .01853, .00023, .00011, - + .00004, .00022, .00043, - + .11472, .02393, .01477, .00021, .00011, - + .00005, .00020, .00038, - + .10440, .02165, .01201, .00019, .00010, - + .00005, .00018, .00035 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ - + .09562, .01972, .00993, .00018, .00010, - + .00005, .00018, .00031, - + .08810, .01807, .00834, .00016, .00009, - + .00004, .00016, .00028, - + .08156, .01665, .00709, .00015, .00008, - + .00005, .00015, .00026, - + .07582, .01541, .00610, .00014, .00008, - + .00004, .00014, .00023, - + .07077, .01432, .00531, .00012, .00008, - + .00004, .00013, .00022, - + .06627, .01336, .00466, .00011, .00007, - + .00004, .00012, .00020, - + .06225, .01250, .00412, .00012, .00007, - + .00004, .00011, .00018 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ - + .05863, .01174, .00367, .00011, .00006, - + .00004, .00010, .00017, - + .05536, .01105, .00329, .00011, .00006, - + .00003, .00009, .00016, - + .05240, .01044, .00297, .00011, .00005, - + .00003, .00009, .00014, - + .04971, .00987, .00270, .00010, .00005, - + .00003, .00009, .00014, - + .04726, .00935, .00246, .00009, .00005, - + .00003, .00008, .00013 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + .18221, .03819, .04874, .00020, .00004, - + .00000, .00018, .00045, - + .15422, .03196, .03316, .00022, .00006, - + .00001, .00017, .00039, - + .13344, .02737, .02377, .00019, .00006, - + .00000, .00016, .00033, - + .11736, .02387, .01774, .00018, .00007, - + .00001, .00014, .00029, - + .10443, .02109, .01364, .00016, .00006, - + .00001, .00013, .00026, - + .09385, .01882, .01076, .00014, .00005, - + .00002, .00011, .00024, - + .08502, .01695, .00867, .00013, .00006, - + .00002, .00011, .00020 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ - + .07755, .01538, .00711, .00012, .00005, - + .00002, .00010, .00018, - + .07115, .01404, .00593, .00012, .00005, - + .00002, .00009, .00016, - + .06561, .01289, .00501, .00011, .00005, - + .00002, .00008, .00015, - + .06078, .01189, .00428, .00010, .00004, - + .00002, .00008, .00013, - + .05653, .01101, .00370, .00009, .00004, - + .00002, .00007, .00013, - + .05278, .01024, .00323, .00008, .00004, - + .00002, .00006, .00012, - + .04944, .00956, .00285, .00007, .00003, - + .00002, .00006, .00012 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ - + .04643, .00895, .00253, .00007, .00003, - + .00002, .00005, .00011, - + .04374, .00841, .00226, .00007, .00003, - + .00002, .00005, .00010, - + .04131, .00792, .00203, .00006, .00003, - + .00002, .00005, .00009, - + .03908, .00747, .00184, .00005, .00003, - + .00001, .00005, .00008, - + .03706, .00706, .00167, .00005, .00003, - + .00001, .00004, .00008 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + .15141, .03038, .03733, .00011, .00004, - + .00003, .00013, .00026, - + .12708, .02520, .02491, .00009, .00005, - + .00003, .00012, .00024, - + .10911, .02143, .01755, .00010, .00005, - + .00002, .00011, .00020, - + .09532, .01857, .01291, .00009, .00005, - + .00002, .00010, .00017, - + .08432, .01631, .00981, .00008, .00005, - + .00002, .00009, .00015, - + .07538, .01449, .00765, .00007, .00004, - + .00002, .00008, .00013, - + .06792, .01299, .00610, .00008, .00005, - + .00002, .00007, .00011 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ - + .06168, .01173, .00496, .00006, .00004, - + .00002, .00006, .00010, - + .05634, .01067, .00410, .00006, .00003, - + .00002, .00006, .00009, - + .05175, .00975, .00344, .00005, .00003, - + .00002, .00005, .00009, - + .04777, .00897, .00293, .00005, .00003, - + .00002, .00005, .00008, - + .04428, .00828, .00252, .00004, .00003, - + .00002, .00004, .00007, - + .04119, .00768, .00218, .00004, .00003, - + .00002, .00004, .00007, - + .03846, .00714, .00191, .00004, .00003, - + .00002, .00004, .00006 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ - + .03602, .00667, .00169, .00003, .00002, - + .00002, .00004, .00006, - + .03383, .00625, .00151, .00003, .00002, - + .00001, .00003, .00005, - + .03185, .00586, .00135, .00004, .00002, - + .00001, .00003, .00005, - + .03006, .00552, .00122, .00003, .00002, - + .00001, .00003, .00004, - + .02843, .00521, .00110, .00003, .00002, - + .00001, .00003, .00004 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + .09935, .01831, .02078, .00005, .00001, - + .00000, .00004, .00008, - + .08185, .01492, .01329, .00003, .00002, - + .00000, .00003, .00007, - + .06917, .01250, .00905, .00003, .00002, - + .00000, .00003, .00006, - + .05958, .01069, .00646, .00003, .00002, - + .00000, .00003, .00005, - + .05205, .00928, .00478, .00002, .00002, - + .00000, .00003, .00004, - + .04600, .00815, .00364, .00002, .00002, - + .00001, .00003, .00004, - + .04102, .00723, .00285, .00002, .00001, - + .00001, .00002, .00004 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ - + .03688, .00647, .00227, .00003, .00002, - + .00001, .00002, .00003, - + .03341, .00583, .00185, .00002, .00001, - + .00001, .00002, .00003, - + .03044, .00529, .00153, .00002, .00001, - + .00000, .00002, .00002, - + .02787, .00483, .00128, .00001, .00001, - + .00001, .00002, .00002, - + .02564, .00443, .00109, .00001, .00001, - + .00001, .00001, .00002, - + .02369, .00408, .00094, .00001, .00001, - + .00001, .00001, .00002, - + .02198, .00377, .00081, .00001, .00001, - + .00000, .00001, .00002 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ - + .02045, .00350, .00071, .00001, .00001, - + .00000, .00001, .00001, - + .01909, .00326, .00063, .00001, .00001, - + .00000, .00001, .00001, - + .01788, .00304, .00056, .00001, .00001, - + .00001, .00001, .00001, - + .01678, .00285, .00050, .00001, .00001, - + .00000, .00001, .00001, - + .01579, .00267, .00045, .00001, .00001, - + .00000, .00001, .00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + .05968, .01008, .01048, .00002, .00000, - + .00000, .00001, .00002, - + .04818, .00806, .00641, .00001, .00000, - + .00000, .00001, .00002, - + .04001, .00664, .00420, .00001, .00000, - + .00000, .00001, .00002, - + .03394, .00559, .00290, .00001, .00000, - + .00000, .00001, .00001, - + .02925, .00479, .00209, .00001, .00000, - + .00000, .00001, .00001, - + .02554, .00416, .00155, .00001, .00000, - + .00000, .00000, .00001, - + .02253, .00365, .00119, .00001, .00000, - + .00000, .00001, .00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ - + .02005, .00324, .00093, .00000, .00000, - + .00000, .00000, .00001, - + .01798, .00289, .00075, .00001, .00000, - + .00000, .00000, .00001, - + .01623, .00260, .00061, .00001, .00000, - + .00000, .00001, .00001, - + .01474, .00235, .00050, .00000, .00000, - + .00000, .00000, .00001, - + .01345, .00214, .00042, .00001, .00000, - + .00000, .00000, .00000, - + .01234, .00196, .00036, .00000, .00000, - + .00000, .00000, .00001, - + .01136, .00180, .00031, .00000, .00000, - + .00000, .00000, .00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ - + .01050, .00166, .00027, .00001, .00000, - + .00000, .00000, .00000, - + .00974, .00153, .00023, .00000, .00000, - + .00000, .00000, .00000, - + .00907, .00142, .00021, .00000, .00000, - + .00000, .00000, .00000, - + .00846, .00133, .00018, .00000, .00000, - + .00000, .00000, .00000, - + .00792, .00124, .00017, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + .03190, .00492, .00463, .00000, .00000, - + .00000, .00000, .00001, - + .02518, .00384, .00269, .00000, .00000, - + .00000, .00000, .00001, - + .02051, .00311, .00169, .00000, .00000, - + .00000, .00000, .00000, - + .01711, .00258, .00113, .00000, .00000, - + .00000, .00000, .00000, - + .01452, .00218, .00079, .00001, .00000, - + .00000, .00000, .00000, - + .01250, .00187, .00057, .00000, .00000, - + .00000, .00000, .00000, - + .01089, .00162, .00043, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ - + .00958, .00142, .00033, .00000, .00000, - + .00000, .00000, .00000, - + .00850, .00125, .00026, .00000, .00000, - + .00000, .00000, .00000, - + .00759, .00112, .00021, .00000, .00000, - + .00000, .00000, .00000, - + .00683, .00100, .00017, .00000, .00000, - + .00000, .00000, .00000, - + .00618, .00090, .00014, .00000, .00000, - + .00000, .00000, .00000, - + .00562, .00082, .00012, .00000, .00000, - + .00000, .00000, .00000, - + .00513, .00075, .00010, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ - + .00471, .00068, .00009, .00000, .00000, - + .00000, .00000, .00000, - + .00434, .00063, .00007, .00000, .00000, - + .00000, .00000, .00000, - + .00401, .00058, .00007, .00000, .00000, - + .00000, .00000, .00000, - + .00372, .00054, .00006, .00000, .00000, - + .00000, .00000, .00000, - + .00346, .00050, .00005, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + .01437, .00200, .00167, .00000, .00000, - + .00000, .00000, .00000, - + .01105, .00153, .00092, .00000, .00000, - + .00000, .00000, .00000, - + .00880, .00121, .00055, .00000, .00000, - + .00000, .00000, .00000, - + .00720, .00099, .00035, .00000, .00000, - + .00000, .00000, .00000, - + .00601, .00082, .00024, .00000, .00000, - + .00000, .00000, .00000, - + .00509, .00069, .00017, .00000, .00000, - + .00000, .00000, .00000, - + .00437, .00059, .00012, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ - + .00379, .00051, .00009, .00000, .00000, - + .00000, .00000, .00000, - + .00332, .00045, .00007, .00000, .00000, - + .00000, .00000, .00000, - + .00293, .00039, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00261, .00035, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00234, .00031, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00210, .00028, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00190, .00025, .00003, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ - + .00173, .00023, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00158, .00021, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00145, .00019, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00133, .00018, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00123, .00016, .00001, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + .00109, .00012, .00007, .00000, .00000, - + .00000, .00000, .00000, - + .00078, .00008, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00058, .00006, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00045, .00005, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00036, .00004, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00029, .00003, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00024, .00003, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ - + .00020, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00017, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00014, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00012, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00011, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00009, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00008, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ - + .00007, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00006, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00006, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00005, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00005, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,5,9,0,0,9,9/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - xsave=x -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(37,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7) GO TO 31 - DO 30 K=1,19 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,8 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) - - x=xsave - - RETURN - END diff --git a/PDF/spdf/sfmrss0.F b/PDF/spdf/sfmrss0.F deleted file mode 100644 index d523870eeec..00000000000 --- a/PDF/spdf/sfmrss0.F +++ /dev/null @@ -1,3038 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:09 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:40 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFMRSS0(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) - -C THIS IS THE NEW B0-TYPE FIT "S0" WITH UBAR=DBAR (215 MeV) - -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,31),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + 0.01356, 0.00052, 4.15791, 0.41745, 0.04254, - + 0.00000, 0.23182, 0.41888, - + 0.01391, 0.00064, 10.52604, 0.58403, 0.20909, - + 0.00000, 0.39848, 0.58527, - + 0.01424, 0.00075, 18.94614, 0.80300, 0.42803, - + 0.00000, 0.61752, 0.80407, - + 0.01455, 0.00086, 29.13998, 1.06988, 0.69490, - + 0.00000, 0.88449, 1.07082, - + 0.01484, 0.00096, 40.92299, 1.38091, 1.00591, - + 0.05155, 1.19560, 1.38173, - + 0.01512, 0.00106, 54.18365, 1.73378, 1.35877, - + 0.33603, 1.54856, 1.73449, - + 0.01539, 0.00116, 68.77280, 2.12661, 1.75160, - + 0.75030, 1.94147, 2.12723/ - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ - + 0.01565, 0.00126, 84.55649, 2.55692, 2.18191, - + 1.18798, 2.37186, 2.55745, - + 0.01590, 0.00136, 101.40771, 3.02191, 2.64691, - + 1.66207, 2.83694, 3.02237, - + 0.01614, 0.00145, 119.23399, 3.51957, 3.14458, - + 2.16772, 3.33468, 3.51996, - + 0.01637, 0.00155, 137.94803, 4.04788, 3.67290, - + 2.70362, 3.86307, 4.04821, - + 0.01660, 0.00164, 157.15669, 4.59840, 4.22344, - + 3.26127, 4.41368, 4.59868, - + 0.01683, 0.00173, 177.11443, 5.17588, 4.80094, - + 3.84547, 4.99124, 5.17611, - + 0.01704, 0.00182, 197.81166, 5.78017, 5.40524, - + 4.45612, 5.59561, 5.78035/ - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,21)/ - + 0.01726, 0.00191, 218.69606, 6.39868, 6.02378, - + 5.08067, 6.21421, 6.39883, - + 0.01746, 0.00199, 240.18811, 7.04057, 6.66569, - + 5.72830, 6.85617, 7.04068, - + 0.01767, 0.00208, 262.04004, 7.70017, 7.32531, - + 6.39337, 7.51585, 7.70024, - + 0.01787, 0.00216, 284.11426, 8.37366, 7.99884, - + 7.07210, 8.18942, 8.37373, - + 0.01806, 0.00225, 306.63867, 9.06646, 8.69166, - + 7.76990, 8.88229, 9.06650, - + 0.01825, 0.00233, 329.16626, 9.76754, 9.39277, - + 8.47578, 9.58345, 9.76758, - + 0.01844, 0.00241, 352.09912, 10.48653, 10.11180, - + 9.19938, 10.30252, 10.48656/ - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=22,30)/ - + 0.01862, 0.00249, 375.01318, 11.21275, 10.83805, - + 9.93004, 11.02882, 11.21276, - + 0.01880, 0.00257, 398.14575, 11.95192, 11.57724, - + 10.67346, 11.76805, 11.95190, - + 0.01898, 0.00265, 421.42920, 12.70200, 12.32735, - + 11.42766, 12.51821, 12.70198, - + 0.01915, 0.00272, 444.58594, 13.45567, 13.08105, - + 12.18530, 13.27195, 13.45564, - + 0.01932, 0.00280, 468.21338, 14.22825, 13.85367, - + 12.96170, 14.04459, 14.22818, - + 0.01949, 0.00288, 491.32202, 14.99336, 14.61883, - + 13.73055, 14.80979, 14.99332, - + 0.01965, 0.00295, 514.77441, 15.77383, 15.39932, - + 14.51461, 15.59032, 15.77377, - + 0.01981, 0.00303, 538.30566, 16.56248, 16.18802, - + 15.30676, 16.37904, 16.56241, - + 0.01998, 0.00310, 561.48047, 17.34760, 16.97318, - + 16.09525, 17.16423, 17.34752/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + 0.01706, 0.00089, 4.03087, 0.41159, 0.03898, - + 0.00000, 0.22637, 0.41225, - + 0.01756, 0.00107, 9.58692, 0.56018, 0.18775, - + 0.00000, 0.37511, 0.56070, - + 0.01803, 0.00124, 16.63766, 0.74950, 0.37724, - + 0.00000, 0.56457, 0.74990, - + 0.01847, 0.00141, 24.91933, 0.97451, 0.60241, - + 0.00000, 0.78972, 0.97482, - + 0.01887, 0.00158, 34.26222, 1.23131, 0.85936, - + 0.04234, 1.04665, 1.23153, - + 0.01926, 0.00173, 44.56371, 1.51750, 1.14569, - + 0.27319, 1.33297, 1.51764, - + 0.01963, 0.00189, 55.69725, 1.83117, 1.45950, - + 0.60530, 1.64676, 1.83124/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ - + 0.01999, 0.00204, 67.55377, 2.17005, 1.79851, - + 0.95099, 1.98576, 2.17005, - + 0.02033, 0.00218, 80.03427, 2.53174, 2.16033, - + 1.32085, 2.34756, 2.53169, - + 0.02066, 0.00233, 93.06857, 2.91449, 2.54321, - + 1.71083, 2.73043, 2.91438, - + 0.02098, 0.00247, 106.59218, 3.31667, 2.94552, - + 2.11987, 3.13272, 3.31652, - + 0.02129, 0.00261, 120.31766, 3.73180, 3.36078, - + 2.54144, 3.54796, 3.73162, - + 0.02159, 0.00274, 134.43773, 4.16348, 3.79257, - + 2.97919, 3.97975, 4.16326, - + 0.02188, 0.00287, 148.94786, 4.61153, 4.24075, - + 3.43299, 4.42791, 4.61127/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,21)/ - + 0.02217, 0.00300, 163.45279, 5.06659, 4.69593, - + 3.89352, 4.88307, 5.06631, - + 0.02245, 0.00313, 178.26062, 5.53551, 5.16497, - + 4.36763, 5.35210, 5.53521, - + 0.02272, 0.00326, 193.19839, 6.01412, 5.64369, - + 4.85119, 5.83080, 6.01379, - + 0.02298, 0.00338, 208.17317, 6.49967, 6.12935, - + 5.34148, 6.31645, 6.49933, - + 0.02324, 0.00351, 223.35042, 6.99617, 6.62597, - + 5.84251, 6.81305, 6.99581, - + 0.02349, 0.00363, 238.42171, 7.49561, 7.12552, - + 6.34630, 7.31259, 7.49524, - + 0.02374, 0.00375, 253.67203, 8.00508, 7.63510, - + 6.85995, 7.82215, 8.00469/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=22,30)/ - + 0.02398, 0.00386, 268.81079, 8.51689, 8.14703, - + 7.37578, 8.33406, 8.51651, - + 0.02422, 0.00398, 284.00684, 9.03528, 8.66551, - + 7.89803, 8.85253, 9.03487, - + 0.02445, 0.00409, 299.21680, 9.55878, 9.18913, - + 8.42528, 9.37614, 9.55840, - + 0.02468, 0.00420, 314.25562, 10.08226, 9.71272, - + 8.95236, 9.89970, 10.08189, - + 0.02490, 0.00432, 329.53296, 10.61671, 10.24725, - + 9.49026, 10.43422, 10.61629, - + 0.02512, 0.00443, 344.38159, 11.14342, 10.77408, - + 10.02036, 10.96103, 11.14301, - + 0.02534, 0.00453, 359.38867, 11.67864, 11.30940, - + 10.55885, 11.49634, 11.67825, - + 0.02555, 0.00464, 374.37817, 12.21739, 11.84825, - + 11.10076, 12.03516, 12.21698, - + 0.02576, 0.00475, 389.06104, 12.75146, 12.38242, - + 11.63790, 12.56931, 12.75105/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + 0.02138, 0.00151, 3.90744, 0.40536, 0.03549, - + 0.00000, 0.22096, 0.40555, - + 0.02209, 0.00180, 8.73014, 0.53700, 0.16756, - + 0.00000, 0.35285, 0.53711, - + 0.02274, 0.00207, 14.60691, 0.69960, 0.33054, - + 0.00000, 0.51567, 0.69964, - + 0.02334, 0.00233, 21.30354, 0.88810, 0.51938, - + 0.00000, 0.70437, 0.88807, - + 0.02390, 0.00258, 28.67549, 1.09881, 0.73042, - + 0.03457, 0.91527, 1.09873, - + 0.02443, 0.00283, 36.63736, 1.32950, 0.96143, - + 0.22090, 1.14615, 1.32938, - + 0.02494, 0.00306, 45.08853, 1.57846, 1.21068, - + 0.48575, 1.39529, 1.57830/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ - + 0.02542, 0.00329, 53.94554, 1.84377, 1.47627, - + 0.75737, 1.66076, 1.84357, - + 0.02589, 0.00351, 63.13535, 2.12345, 1.75623, - + 1.04443, 1.94061, 2.12322, - + 0.02633, 0.00373, 72.60841, 2.41611, 2.04915, - + 1.34364, 2.23343, 2.41586, - + 0.02676, 0.00394, 82.32031, 2.72049, 2.35378, - + 1.65423, 2.53796, 2.72021, - + 0.02718, 0.00414, 92.06381, 3.03169, 2.66523, - + 1.97129, 2.84931, 3.03139, - + 0.02758, 0.00434, 101.98711, 3.35247, 2.98625, - + 2.29758, 3.17024, 3.35215, - + 0.02797, 0.00454, 112.08969, 3.68272, 3.31674, - + 2.63305, 3.50063, 3.68238/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,21)/ - + 0.02835, 0.00474, 122.09135, 4.01554, 3.64977, - + 2.97082, 3.83358, 4.01518, - + 0.02872, 0.00493, 132.21936, 4.35604, 3.99050, - + 3.31605, 4.17422, 4.35567, - + 0.02907, 0.00511, 142.35371, 4.70122, 4.33589, - + 3.66572, 4.51952, 4.70084, - + 0.02942, 0.00529, 152.43324, 5.04912, 4.68401, - + 4.01794, 4.86756, 5.04874, - + 0.02976, 0.00547, 162.57909, 5.40274, 5.03783, - + 4.37567, 5.22130, 5.40234, - + 0.03010, 0.00565, 172.57965, 5.75632, 5.39161, - + 4.73321, 5.57500, 5.75591, - + 0.03042, 0.00582, 182.63681, 6.11506, 5.75055, - + 5.09575, 5.93387, 6.11465/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=22,30)/ - + 0.03074, 0.00599, 192.55315, 6.47348, 6.10917, - + 5.45783, 6.29240, 6.47307, - + 0.03105, 0.00616, 202.44836, 6.83468, 6.47056, - + 5.82255, 6.65372, 6.83427, - + 0.03136, 0.00633, 212.29665, 7.19770, 6.83376, - + 6.18897, 7.01685, 7.19728, - + 0.03166, 0.00649, 221.97400, 7.55892, 7.19517, - + 6.55348, 7.37819, 7.55851, - + 0.03195, 0.00665, 231.76204, 7.92618, 7.56261, - + 6.92390, 7.74555, 7.92576, - + 0.03224, 0.00681, 241.21121, 8.28634, 7.92295, - + 7.28715, 8.10582, 8.28596, - + 0.03252, 0.00696, 250.72192, 8.65092, 8.28771, - + 7.65472, 8.47052, 8.65054, - + 0.03279, 0.00712, 260.17651, 9.01644, 8.65340, - + 8.02311, 8.83613, 9.01604, - + 0.03307, 0.00727, 269.38574, 9.37721, 9.01434, - + 8.38669, 9.19701, 9.37682/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + 0.02435, 0.00206, 3.83677, 0.40150, 0.03349, - + 0.00000, 0.21780, 0.40155, - + 0.02520, 0.00244, 8.26379, 0.52370, 0.15625, - + 0.00000, 0.34029, 0.52369, - + 0.02598, 0.00279, 13.53319, 0.67191, 0.30499, - + 0.00000, 0.48879, 0.67186, - + 0.02670, 0.00313, 19.43192, 0.84126, 0.47481, - + 0.00000, 0.65839, 0.84118, - + 0.02738, 0.00345, 25.83235, 1.02831, 0.66230, - + 0.03062, 0.84568, 1.02819, - + 0.02801, 0.00376, 32.66095, 1.23100, 0.86541, - + 0.19452, 1.04860, 1.23086, - + 0.02861, 0.00406, 39.83208, 1.44778, 1.08259, - + 0.42587, 1.26560, 1.44762/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ - + 0.02919, 0.00435, 47.27646, 1.67695, 1.31214, - + 0.66110, 1.49497, 1.67677, - + 0.02974, 0.00463, 54.93477, 1.91680, 1.55235, - + 0.90791, 1.73502, 1.91660, - + 0.03027, 0.00491, 62.76787, 2.16614, 1.80204, - + 1.16346, 1.98455, 2.16593, - + 0.03078, 0.00517, 70.74162, 2.42390, 2.06013, - + 1.42710, 2.24250, 2.42368, - + 0.03127, 0.00543, 78.68599, 2.68598, 2.32254, - + 1.69472, 2.50476, 2.68575, - + 0.03175, 0.00569, 86.72836, 2.95474, 2.59162, - + 1.96871, 2.77369, 2.95450, - + 0.03221, 0.00594, 94.87099, 3.23011, 2.86729, - + 2.24902, 3.04923, 3.22986/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,21)/ - + 0.03265, 0.00618, 102.88527, 3.50635, 3.14382, - + 2.52996, 3.32563, 3.50609, - + 0.03309, 0.00642, 110.96133, 3.78778, 3.42554, - + 2.81586, 3.60722, 3.78752, - + 0.03351, 0.00665, 119.00316, 4.07193, 3.70997, - + 3.10428, 3.89152, 4.07166, - + 0.03392, 0.00688, 126.96399, 4.35723, 3.99554, - + 3.39366, 4.17697, 4.35695, - + 0.03432, 0.00710, 134.94395, 4.64618, 4.28476, - + 3.68653, 4.46607, 4.64591, - + 0.03471, 0.00732, 142.77423, 4.93407, 4.57291, - + 3.97816, 4.75410, 4.93379, - + 0.03509, 0.00753, 150.62027, 5.22523, 4.86433, - + 4.27293, 5.04540, 5.22495/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=22,30)/ - + 0.03547, 0.00775, 158.32465, 5.51519, 5.15453, - + 4.56636, 5.33550, 5.51491, - + 0.03583, 0.00795, 165.98517, 5.80654, 5.44613, - + 4.86106, 5.62698, 5.80626, - + 0.03619, 0.00816, 173.58307, 6.09850, 5.73833, - + 5.15624, 5.91907, 6.09822, - + 0.03654, 0.00836, 181.02136, 6.38818, 6.02824, - + 5.44904, 6.20888, 6.38791, - + 0.03688, 0.00856, 188.52527, 6.68198, 6.32227, - + 5.74585, 6.50281, 6.68171, - + 0.03721, 0.00875, 195.73917, 6.96926, 6.60978, - + 6.03606, 6.79021, 6.96900, - + 0.03754, 0.00894, 202.98195, 7.25940, 6.90014, - + 6.32902, 7.08047, 7.25913, - + 0.03787, 0.00913, 210.16176, 7.54960, 7.19055, - + 6.62196, 7.37079, 7.54933, - + 0.03818, 0.00932, 217.13078, 7.83529, 7.47646, - + 6.91032, 7.65659, 7.83502/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + 0.02668, 0.00257, 3.78724, 0.39865, 0.03208, - + 0.00000, 0.21554, 0.39865, - + 0.02764, 0.00302, 7.94733, 0.51434, 0.14845, - + 0.00000, 0.33158, 0.51430, - + 0.02853, 0.00345, 12.81777, 0.65287, 0.28761, - + 0.00000, 0.47044, 0.65281, - + 0.02935, 0.00385, 18.20132, 0.80954, 0.44486, - + 0.00000, 0.62741, 0.80947, - + 0.03011, 0.00424, 23.98286, 0.98113, 0.61698, - + 0.02805, 0.79928, 0.98105, - + 0.03083, 0.00460, 30.09732, 1.16572, 0.80207, - + 0.17747, 0.98414, 1.16563, - + 0.03151, 0.00496, 36.46944, 1.36190, 0.99871, - + 0.38736, 1.18056, 1.36179/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ - + 0.03216, 0.00530, 43.03941, 1.56811, 1.20537, - + 0.59946, 1.38700, 1.56799, - + 0.03278, 0.00564, 49.75676, 1.78283, 1.42052, - + 0.82087, 1.60195, 1.78270, - + 0.03337, 0.00596, 56.58920, 2.00500, 1.64311, - + 1.04902, 1.82434, 2.00487, - + 0.03395, 0.00628, 63.50867, 2.23371, 1.87221, - + 1.28340, 2.05326, 2.23357, - + 0.03450, 0.00658, 70.36818, 2.46532, 2.10421, - + 1.52034, 2.28507, 2.46519, - + 0.03504, 0.00688, 77.28235, 2.70196, 2.34122, - + 1.76202, 2.52191, 2.70183, - + 0.03555, 0.00718, 84.25479, 2.94360, 2.58322, - + 2.00843, 2.76374, 2.94346/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,21)/ - + 0.03606, 0.00746, 91.08830, 3.18521, 2.82518, - + 2.25457, 3.00553, 3.18507, - + 0.03654, 0.00774, 97.95039, 3.43063, 3.07093, - + 2.50430, 3.25112, 3.43049, - + 0.03702, 0.00801, 104.75943, 3.67770, 3.31833, - + 2.75548, 3.49837, 3.67756, - + 0.03748, 0.00828, 111.47672, 3.92509, 3.56604, - + 3.00681, 3.74592, 3.92495, - + 0.03792, 0.00854, 118.19017, 4.17501, 3.81627, - + 3.26050, 3.99601, 4.17487, - + 0.03836, 0.00879, 124.75587, 4.42338, 4.06495, - + 3.51249, 4.24454, 4.42324, - + 0.03879, 0.00904, 131.31798, 4.67399, 4.31586, - + 3.76659, 4.49531, 4.67386/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=22,30)/ - + 0.03921, 0.00929, 137.74150, 4.92299, 4.56515, - + 4.01893, 4.74446, 4.92286, - + 0.03961, 0.00953, 144.11266, 5.17265, 4.81509, - + 4.27182, 4.99427, 5.17252, - + 0.04001, 0.00977, 150.41557, 5.42234, 5.06506, - + 4.52462, 5.24410, 5.42221, - + 0.04040, 0.01000, 156.56908, 5.66954, 5.31253, - + 4.77484, 5.49145, 5.66942, - + 0.04078, 0.01023, 162.76556, 5.91983, 5.56309, - + 5.02803, 5.74188, 5.91970, - + 0.04116, 0.01046, 168.70441, 6.16403, 5.80755, - + 5.27505, 5.98621, 6.16391, - + 0.04153, 0.01068, 174.65610, 6.41026, 6.05404, - + 5.52402, 6.23258, 6.41015, - + 0.04189, 0.01090, 180.54398, 6.65613, 6.30016, - + 5.77253, 6.47858, 6.65602, - + 0.04224, 0.01111, 186.24414, 6.89771, 6.54200, - + 6.01670, 6.72030, 6.89761/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + 0.02861, 0.00305, 3.74915, 0.39637, 0.03100, - + 0.00000, 0.21378, 0.39635, - + 0.02968, 0.00357, 7.70968, 0.50711, 0.14253, - + 0.00000, 0.32493, 0.50708, - + 0.03065, 0.00406, 12.28766, 0.63842, 0.27454, - + 0.00000, 0.45660, 0.63838, - + 0.03155, 0.00453, 17.29839, 0.78575, 0.42252, - + 0.00000, 0.60427, 0.78571, - + 0.03239, 0.00497, 22.63643, 0.94606, 0.58343, - + 0.02618, 0.76489, 0.94602, - + 0.03318, 0.00539, 28.24333, 1.11755, 0.75549, - + 0.16513, 0.93667, 1.11751, - + 0.03393, 0.00579, 34.05156, 1.29890, 0.93738, - + 0.35958, 1.11829, 1.29885/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ - + 0.03464, 0.00619, 40.00826, 1.48870, 1.12768, - + 0.55514, 1.30835, 1.48865, - + 0.03532, 0.00657, 46.06912, 1.68554, 1.32501, - + 0.75847, 1.50545, 1.68550, - + 0.03597, 0.00694, 52.20699, 1.88849, 1.52842, - + 0.96724, 1.70863, 1.88844, - + 0.03660, 0.00730, 58.39812, 2.09670, 1.73708, - + 1.18096, 1.91708, 2.09666, - + 0.03721, 0.00764, 64.51125, 2.30691, 1.94773, - + 1.39636, 2.12751, 2.30688, - + 0.03780, 0.00798, 70.65230, 2.52108, 2.16232, - + 1.61543, 2.34190, 2.52105, - + 0.03836, 0.00831, 76.82571, 2.73920, 2.38083, - + 1.83818, 2.56022, 2.73917/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,21)/ - + 0.03891, 0.00863, 82.85573, 2.95671, 2.59874, - + 2.06010, 2.77794, 2.95668, - + 0.03944, 0.00895, 88.89453, 3.17715, 2.81955, - + 2.28473, 2.99856, 3.17712, - + 0.03996, 0.00925, 94.86998, 3.39857, 3.04134, - + 2.51016, 3.22018, 3.39855, - + 0.04046, 0.00955, 100.74866, 3.61980, 3.26293, - + 2.73522, 3.44159, 3.61979, - + 0.04095, 0.00985, 106.61058, 3.84286, 3.48634, - + 2.96195, 3.66483, 3.84284, - + 0.04143, 0.01014, 112.32832, 4.06408, 3.70790, - + 3.18670, 3.88622, 4.06407, - + 0.04190, 0.01042, 118.03102, 4.28691, 3.93106, - + 3.41292, 4.10923, 4.28690/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=22,30)/ - + 0.04235, 0.01070, 123.60016, 4.50790, 4.15238, - + 3.63717, 4.33038, 4.50790, - + 0.04279, 0.01097, 129.11253, 4.72911, 4.37390, - + 3.86152, 4.55175, 4.72911, - + 0.04323, 0.01123, 134.55510, 4.94997, 4.59508, - + 4.08542, 4.77278, 4.94998, - + 0.04365, 0.01149, 139.85725, 5.16828, 4.81370, - + 4.30667, 4.99125, 5.16830, - + 0.04407, 0.01175, 145.18852, 5.38903, 5.03474, - + 4.53024, 5.21214, 5.38905, - + 0.04448, 0.01200, 150.28510, 5.60404, 5.25004, - + 4.74800, 5.42730, 5.60406, - + 0.04488, 0.01225, 155.38606, 5.82057, 5.46686, - + 4.96719, 5.64398, 5.82060, - + 0.04527, 0.01250, 160.42392, 6.03649, 5.68306, - + 5.18570, 5.86004, 6.03653, - + 0.04566, 0.01274, 165.29060, 6.24833, 5.89517, - + 5.40005, 6.07202, 6.24837/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + 0.03543, 0.00518, 3.63224, 0.38877, 0.02769, - + 0.00000, 0.20821, 0.38881, - + 0.03686, 0.00599, 7.01147, 0.48477, 0.12479, - + 0.00000, 0.30476, 0.48484, - + 0.03816, 0.00675, 10.76682, 0.59512, 0.23614, - + 0.00000, 0.41562, 0.59522, - + 0.03937, 0.00746, 14.75243, 0.71597, 0.35791, - + 0.00000, 0.53694, 0.71611, - + 0.04048, 0.00813, 18.89207, 0.84484, 0.48762, - + 0.02100, 0.66624, 0.84500, - + 0.04153, 0.00877, 23.14717, 0.98032, 0.62389, - + 0.13124, 0.80211, 0.98050, - + 0.04253, 0.00938, 27.47209, 1.12142, 0.76574, - + 0.28372, 0.94359, 1.12162/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ - + 0.04347, 0.00997, 31.83289, 1.26708, 0.91211, - + 0.43481, 1.08961, 1.26730, - + 0.04438, 0.01054, 36.20238, 1.41630, 1.06201, - + 0.58997, 1.23917, 1.41654, - + 0.04524, 0.01108, 40.56593, 1.56842, 1.21477, - + 0.74745, 1.39161, 1.56867, - + 0.04607, 0.01161, 44.91116, 1.72287, 1.36984, - + 0.90698, 1.54637, 1.72314, - + 0.04687, 0.01212, 49.14764, 1.87730, 1.52488, - + 1.06620, 1.70110, 1.87759, - + 0.04765, 0.01262, 53.35750, 2.03323, 1.68139, - + 1.22666, 1.85732, 2.03354, - + 0.04839, 0.01310, 57.54732, 2.19073, 1.83944, - + 1.38843, 2.01509, 2.19105/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,21)/ - + 0.04912, 0.01357, 61.59552, 2.34652, 1.99577, - + 1.54830, 2.17115, 2.34686, - + 0.04981, 0.01403, 65.61420, 2.50325, 2.15301, - + 1.70891, 2.32814, 2.50359, - + 0.05049, 0.01447, 69.55527, 2.65957, 2.30984, - + 1.86893, 2.48471, 2.65993, - + 0.05115, 0.01490, 73.39827, 2.81469, 2.46546, - + 2.02761, 2.64008, 2.81507, - + 0.05179, 0.01533, 77.20175, 2.97013, 2.62137, - + 2.18644, 2.79575, 2.97051, - + 0.05242, 0.01574, 80.88028, 3.12330, 2.77501, - + 2.34288, 2.94915, 3.12370, - + 0.05303, 0.01615, 84.52473, 3.27674, 2.92889, - + 2.49945, 3.10282, 3.27714/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=22,30)/ - + 0.05362, 0.01654, 88.05583, 3.42801, 3.08061, - + 2.65375, 3.25431, 3.42842, - + 0.05420, 0.01693, 91.52831, 3.57864, 3.23168, - + 2.80731, 3.40516, 3.57907, - + 0.05477, 0.01731, 94.93478, 3.72828, 3.38173, - + 2.95975, 3.55500, 3.72871, - + 0.05532, 0.01768, 98.22906, 3.87540, 3.52927, - + 3.10960, 3.70232, 3.87584, - + 0.05586, 0.01804, 101.52675, 4.02355, 3.67781, - + 3.26038, 3.85067, 4.02400, - + 0.05640, 0.01840, 104.65279, 4.16704, 3.82170, - + 3.40642, 3.99436, 4.16750, - + 0.05692, 0.01875, 107.76775, 4.31098, 3.96603, - + 3.55284, 4.13849, 4.31144, - + 0.05742, 0.01909, 110.82787, 4.45391, 4.10934, - + 3.69817, 4.28161, 4.45439, - + 0.05792, 0.01943, 113.76302, 4.59347, 4.24927, - + 3.84006, 4.42135, 4.59395/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + 0.04367, 0.00879, 3.51643, 0.38016, 0.02446, - + 0.00000, 0.20229, 0.38027, - + 0.04556, 0.01004, 6.36604, 0.46226, 0.10804, - + 0.00000, 0.28514, 0.46242, - + 0.04729, 0.01120, 9.41122, 0.55376, 0.20088, - + 0.00000, 0.37732, 0.55396, - + 0.04888, 0.01228, 12.54292, 0.65157, 0.29992, - + 0.00000, 0.47576, 0.65182, - + 0.05036, 0.01329, 15.71163, 0.75379, 0.40328, - + 0.01666, 0.57856, 0.75408, - + 0.05174, 0.01424, 18.89641, 0.85941, 0.50995, - + 0.10318, 0.68470, 0.85972, - + 0.05306, 0.01515, 22.06985, 0.96772, 0.61926, - + 0.22145, 0.79352, 0.96806/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ - + 0.05431, 0.01602, 25.21317, 1.07801, 0.73050, - + 0.33690, 0.90428, 1.07838, - + 0.05550, 0.01685, 28.31235, 1.18958, 0.84298, - + 0.45398, 1.01631, 1.18997, - + 0.05664, 0.01765, 31.36208, 1.30202, 0.95628, - + 0.57143, 1.12918, 1.30243, - + 0.05773, 0.01843, 34.35812, 1.41498, 1.07006, - + 0.68913, 1.24255, 1.41541, - + 0.05879, 0.01917, 37.23959, 1.52680, 1.18269, - + 0.80542, 1.35478, 1.52726, - + 0.05980, 0.01989, 40.07008, 1.63869, 1.29533, - + 0.92153, 1.46704, 1.63916, - + 0.06078, 0.02059, 42.85756, 1.75073, 1.40811, - + 1.03758, 1.57945, 1.75122/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,21)/ - + 0.06173, 0.02126, 45.51903, 1.86063, 1.51873, - + 1.15130, 1.68971, 1.86114, - + 0.06264, 0.02191, 48.13640, 1.97036, 1.62914, - + 1.26466, 1.79978, 1.97088, - + 0.06353, 0.02255, 50.67865, 2.07901, 1.73846, - + 1.37678, 1.90876, 2.07955, - + 0.06440, 0.02316, 53.13387, 2.18606, 1.84616, - + 1.48715, 2.01613, 2.18661, - + 0.06523, 0.02376, 55.54443, 2.29264, 1.95337, - + 1.59693, 2.12303, 2.29321, - + 0.06605, 0.02435, 57.85371, 2.39697, 2.05830, - + 1.70432, 2.22765, 2.39754, - + 0.06685, 0.02492, 60.12547, 2.50086, 2.16280, - + 1.81117, 2.33185, 2.50145/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=22,30)/ - + 0.06762, 0.02547, 62.30739, 2.60267, 2.26519, - + 1.91582, 2.43394, 2.60327, - + 0.06838, 0.02602, 64.43790, 2.70351, 2.36659, - + 2.01939, 2.53506, 2.70411, - + 0.06911, 0.02655, 66.51305, 2.80312, 2.46676, - + 2.12166, 2.63495, 2.80374, - + 0.06983, 0.02706, 68.50357, 2.90053, 2.56470, - + 2.22162, 2.73262, 2.90115, - + 0.07054, 0.02757, 70.48700, 2.99820, 2.66289, - + 2.32177, 2.83055, 2.99883, - + 0.07122, 0.02807, 72.34839, 3.09222, 2.75744, - + 2.41820, 2.92483, 3.09286, - + 0.07190, 0.02855, 74.19495, 3.18616, 2.85188, - + 2.51447, 3.01901, 3.18681, - + 0.07256, 0.02903, 75.99834, 3.27903, 2.94524, - + 2.60960, 3.11213, 3.27969, - + 0.07320, 0.02949, 77.71352, 3.36923, 3.03593, - + 2.70201, 3.20257, 3.36990/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + 0.04932, 0.01196, 3.44833, 0.37442, 0.02261, - + 0.00000, 0.19851, 0.37450, - + 0.05155, 0.01357, 6.00821, 0.44876, 0.09869, - + 0.00000, 0.27375, 0.44889, - + 0.05359, 0.01504, 8.68118, 0.53013, 0.18163, - + 0.00000, 0.35591, 0.53029, - + 0.05546, 0.01641, 11.37840, 0.61587, 0.26881, - + 0.00000, 0.44239, 0.61606, - + 0.05720, 0.01768, 14.06437, 0.70441, 0.35869, - + 0.01446, 0.53161, 0.70464, - + 0.05883, 0.01887, 16.72710, 0.79496, 0.45048, - + 0.08905, 0.62278, 0.79521, - + 0.06038, 0.02001, 19.34813, 0.88697, 0.54366, - + 0.19032, 0.71538, 0.88725/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ - + 0.06184, 0.02110, 21.91597, 0.97988, 0.63769, - + 0.28828, 0.80886, 0.98018, - + 0.06324, 0.02213, 24.42255, 1.07318, 0.73204, - + 0.38688, 0.90268, 1.07349, - + 0.06458, 0.02313, 26.86662, 1.16654, 0.82641, - + 0.48509, 0.99655, 1.16687, - + 0.06587, 0.02408, 29.24745, 1.25974, 0.92058, - + 0.58288, 1.09024, 1.26010, - + 0.06711, 0.02500, 31.51755, 1.35145, 1.01322, - + 0.67891, 1.18242, 1.35182, - + 0.06830, 0.02588, 33.73155, 1.44270, 1.10536, - + 0.77425, 1.27411, 1.44308, - + 0.06944, 0.02674, 35.89746, 1.53360, 1.19712, - + 0.86903, 1.36545, 1.53400/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,21)/ - + 0.07055, 0.02756, 37.94968, 1.62231, 1.28666, - + 0.96144, 1.45457, 1.62272, - + 0.07163, 0.02836, 39.95625, 1.71047, 1.37562, - + 1.05312, 1.54313, 1.71089, - + 0.07267, 0.02913, 41.89313, 1.79737, 1.46330, - + 1.14339, 1.63042, 1.79780, - + 0.07368, 0.02988, 43.75214, 1.88261, 1.54930, - + 1.23186, 1.71604, 1.88306, - + 0.07466, 0.03061, 45.56824, 1.96716, 1.63458, - + 1.31951, 1.80095, 1.96762, - + 0.07561, 0.03132, 47.29715, 2.04957, 1.71770, - + 1.40489, 1.88371, 2.05003, - + 0.07654, 0.03201, 48.99036, 2.13135, 1.80017, - + 1.48954, 1.96585, 2.13182/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=22,30)/ - + 0.07744, 0.03268, 50.60716, 2.21118, 1.88068, - + 1.57213, 2.04601, 2.21166, - + 0.07832, 0.03334, 52.17871, 2.28998, 1.96013, - + 1.65360, 2.12514, 2.29047, - + 0.07918, 0.03398, 53.70244, 2.36758, 2.03837, - + 1.73377, 2.20306, 2.36807, - + 0.08002, 0.03460, 55.15588, 2.44318, 2.11460, - + 1.81187, 2.27897, 2.44368, - + 0.08084, 0.03521, 56.60027, 2.51880, 2.19083, - + 1.88990, 2.35489, 2.51931, - + 0.08164, 0.03580, 57.94630, 2.59131, 2.26394, - + 1.96475, 2.42770, 2.59182, - + 0.08242, 0.03639, 59.27806, 2.66358, 2.33679, - + 2.03929, 2.50026, 2.66410, - + 0.08319, 0.03696, 60.57359, 2.73483, 2.40861, - + 2.11274, 2.57179, 2.73536, - + 0.08394, 0.03751, 61.79852, 2.80380, 2.47815, - + 2.18386, 2.64105, 2.80434/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + 0.05384, 0.01488, 3.39938, 0.36989, 0.02131, - + 0.00000, 0.19561, 0.36991, - + 0.05635, 0.01678, 5.76108, 0.43889, 0.09227, - + 0.00000, 0.26561, 0.43894, - + 0.05864, 0.01852, 8.18620, 0.51343, 0.16857, - + 0.00000, 0.34104, 0.51350, - + 0.06074, 0.02013, 10.59956, 0.59118, 0.24792, - + 0.00000, 0.41961, 0.59127, - + 0.06270, 0.02162, 12.97484, 0.67077, 0.32901, - + 0.01302, 0.49996, 0.67089, - + 0.06454, 0.02302, 15.30579, 0.75156, 0.41118, - + 0.07991, 0.58145, 0.75169, - + 0.06627, 0.02434, 17.57964, 0.83310, 0.49404, - + 0.17028, 0.66366, 0.83325/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ - + 0.06792, 0.02561, 19.78914, 0.91496, 0.57713, - + 0.25711, 0.74614, 0.91512, - + 0.06949, 0.02681, 21.92989, 0.99669, 0.66004, - + 0.34404, 0.82846, 0.99687, - + 0.07100, 0.02796, 24.00305, 1.07807, 0.74255, - + 0.43017, 0.91041, 1.07826, - + 0.07244, 0.02906, 26.00980, 1.15893, 0.82448, - + 0.51553, 0.99181, 1.15913, - + 0.07382, 0.03012, 27.91072, 1.23813, 0.90473, - + 0.59898, 1.07154, 1.23835, - + 0.07516, 0.03114, 29.75467, 1.31661, 0.98421, - + 0.68148, 1.15052, 1.31684, - + 0.07644, 0.03212, 31.54961, 1.39451, 1.06306, - + 0.76318, 1.22890, 1.39474/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,21)/ - + 0.07769, 0.03307, 33.24040, 1.47023, 1.13970, - + 0.84253, 1.30508, 1.47047, - + 0.07889, 0.03398, 34.88622, 1.54522, 1.21559, - + 0.92099, 1.38053, 1.54548, - + 0.08005, 0.03487, 36.46742, 1.61890, 1.29013, - + 0.99798, 1.45464, 1.61916, - + 0.08118, 0.03572, 37.97787, 1.69094, 1.36301, - + 1.07319, 1.52710, 1.69121, - + 0.08227, 0.03656, 39.44775, 1.76219, 1.43506, - + 1.14748, 1.59875, 1.76246, - + 0.08334, 0.03736, 40.84026, 1.83141, 1.50508, - + 1.21964, 1.66837, 1.83169, - + 0.08437, 0.03815, 42.19948, 1.89993, 1.57437, - + 1.29098, 1.73728, 1.90022/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=22,30)/ - + 0.08538, 0.03891, 43.49147, 1.96663, 1.64181, - + 1.36039, 1.80435, 1.96692, - + 0.08636, 0.03966, 44.74278, 2.03230, 1.70821, - + 1.42868, 1.87038, 2.03259, - + 0.08732, 0.04038, 45.95175, 2.09680, 1.77342, - + 1.49572, 1.93524, 2.09710, - + 0.08825, 0.04108, 47.09991, 2.15948, 1.83680, - + 1.56086, 1.99827, 2.15979, - + 0.08916, 0.04178, 48.23856, 2.22206, 1.90005, - + 1.62581, 2.06119, 2.22237, - + 0.09005, 0.04244, 49.29376, 2.28189, 1.96054, - + 1.68794, 2.12134, 2.28220, - + 0.09092, 0.04310, 50.33556, 2.34142, 2.02072, - + 1.74971, 2.18120, 2.34174, - + 0.09178, 0.04374, 51.34596, 2.39998, 2.07991, - + 1.81044, 2.24008, 2.40030, - + 0.09261, 0.04437, 52.29674, 2.45652, 2.13708, - + 1.86910, 2.29693, 2.45685/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + 0.05798, 0.01761, 3.36036, 0.36575, 0.02033, - + 0.00000, 0.19305, 0.36583, - + 0.06075, 0.01977, 5.56892, 0.43071, 0.08743, - + 0.00000, 0.25910, 0.43082, - + 0.06328, 0.02174, 7.80566, 0.50014, 0.15880, - + 0.00000, 0.32951, 0.50028, - + 0.06561, 0.02355, 10.00588, 0.57194, 0.23238, - + 0.00000, 0.40221, 0.57211, - + 0.06777, 0.02523, 12.15107, 0.64494, 0.30701, - + 0.01198, 0.47604, 0.64513, - + 0.06979, 0.02680, 14.23879, 0.71856, 0.38216, - + 0.07324, 0.55043, 0.71877, - + 0.07170, 0.02829, 16.26010, 0.79246, 0.45749, - + 0.15566, 0.62506, 0.79270/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ - + 0.07351, 0.02970, 18.21065, 0.86628, 0.53266, - + 0.23443, 0.69955, 0.86652, - + 0.07524, 0.03104, 20.08899, 0.93964, 0.60731, - + 0.31292, 0.77357, 0.93990, - + 0.07689, 0.03232, 21.89804, 1.01237, 0.68128, - + 0.39035, 0.84692, 1.01264, - + 0.07847, 0.03355, 23.63921, 1.08434, 0.75443, - + 0.46677, 0.91948, 1.08463, - + 0.07999, 0.03472, 25.28024, 1.15461, 0.82582, - + 0.54123, 0.99031, 1.15490, - + 0.08145, 0.03585, 26.86481, 1.22398, 0.89628, - + 0.61457, 1.06023, 1.22429, - + 0.08286, 0.03693, 28.40063, 1.29261, 0.96595, - + 0.68697, 1.12938, 1.29293/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,21)/ - + 0.08422, 0.03798, 29.83987, 1.35910, 1.03344, - + 0.75705, 1.19637, 1.35942, - + 0.08553, 0.03899, 31.23586, 1.42478, 1.10010, - + 0.82616, 1.26254, 1.42511, - + 0.08680, 0.03996, 32.57190, 1.48916, 1.16542, - + 0.89382, 1.32739, 1.48950, - + 0.08804, 0.04090, 33.84204, 1.55192, 1.22909, - + 0.95972, 1.39061, 1.55226, - + 0.08923, 0.04182, 35.07362, 1.61383, 1.29188, - + 1.02464, 1.45296, 1.61418, - + 0.09039, 0.04271, 36.23630, 1.67382, 1.35274, - + 1.08754, 1.51338, 1.67418, - + 0.09151, 0.04357, 37.36835, 1.73309, 1.41283, - + 1.14959, 1.57306, 1.73345/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=22,30)/ - + 0.09261, 0.04440, 38.44032, 1.79061, 1.47117, - + 1.20982, 1.63100, 1.79098, - + 0.09368, 0.04522, 39.47562, 1.84714, 1.52848, - + 1.26894, 1.68791, 1.84751, - + 0.09472, 0.04601, 40.47269, 1.90256, 1.58468, - + 1.32688, 1.74372, 1.90294, - + 0.09573, 0.04678, 41.41563, 1.95633, 1.63919, - + 1.38308, 1.79786, 1.95671, - + 0.09672, 0.04753, 42.34937, 2.00992, 1.69352, - + 1.43902, 1.85182, 2.01031, - + 0.09769, 0.04826, 43.21034, 2.06101, 1.74532, - + 1.49240, 1.90326, 2.06139, - + 0.09863, 0.04897, 44.05885, 2.11176, 1.79677, - + 1.54536, 1.95436, 2.11215, - + 0.09956, 0.04967, 44.87958, 2.16160, 1.84730, - + 1.59736, 2.00455, 2.16199, - + 0.10046, 0.05035, 45.64818, 2.20961, 1.89598, - + 1.64747, 2.05289, 2.21001/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + 0.07336, 0.02960, 3.23483, 0.35086, 0.01735, - + 0.00000, 0.18411, 0.35087, - + 0.07718, 0.03275, 4.99325, 0.40372, 0.07307, - + 0.00000, 0.23843, 0.40377, - + 0.08065, 0.03559, 6.69714, 0.45836, 0.13027, - + 0.00000, 0.29437, 0.45843, - + 0.08382, 0.03817, 8.31234, 0.51335, 0.18760, - + 0.00000, 0.35054, 0.51343, - + 0.08676, 0.04055, 9.83809, 0.56798, 0.24438, - + 0.00909, 0.40626, 0.56808, - + 0.08951, 0.04275, 11.28245, 0.62197, 0.30038, - + 0.05502, 0.46126, 0.62210, - + 0.09209, 0.04482, 12.64645, 0.67521, 0.35549, - + 0.11600, 0.51545, 0.67535/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ - + 0.09453, 0.04676, 13.93307, 0.72751, 0.40957, - + 0.17325, 0.56864, 0.72766, - + 0.09684, 0.04860, 15.14629, 0.77872, 0.46246, - + 0.22945, 0.62070, 0.77888, - + 0.09905, 0.05035, 16.29228, 0.82880, 0.51413, - + 0.28413, 0.67158, 0.82897, - + 0.10116, 0.05201, 17.37546, 0.87772, 0.56458, - + 0.33741, 0.72127, 0.87790, - + 0.10318, 0.05359, 18.37695, 0.92488, 0.61320, - + 0.38868, 0.76917, 0.92507, - + 0.10512, 0.05509, 19.32887, 0.97094, 0.66065, - + 0.43863, 0.81592, 0.97113, - + 0.10698, 0.05654, 20.23840, 1.01602, 0.70708, - + 0.48742, 0.86168, 1.01622/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,21)/ - + 0.10877, 0.05792, 21.07541, 1.05922, 0.75158, - + 0.53415, 0.90553, 1.05943, - + 0.11049, 0.05925, 21.87688, 1.10151, 0.79512, - + 0.57981, 0.94845, 1.10173, - + 0.11216, 0.06053, 22.63304, 1.14258, 0.83739, - + 0.62410, 0.99012, 1.14280, - + 0.11377, 0.06176, 23.34122, 1.18225, 0.87822, - + 0.66686, 1.03037, 1.18248, - + 0.11533, 0.06295, 24.02008, 1.22107, 0.91817, - + 0.70864, 1.06976, 1.22130, - + 0.11683, 0.06410, 24.65096, 1.25835, 0.95654, - + 0.74878, 1.10759, 1.25859, - + 0.11829, 0.06521, 25.25905, 1.29492, 0.99417, - + 0.78810, 1.14469, 1.29516/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=22,30)/ - + 0.11971, 0.06628, 25.82635, 1.33013, 1.03041, - + 0.82596, 1.18041, 1.33037, - + 0.12109, 0.06732, 26.36818, 1.36448, 1.06575, - + 0.86287, 1.21526, 1.36472, - + 0.12243, 0.06833, 26.88400, 1.39793, 1.10018, - + 0.89879, 1.24920, 1.39817, - + 0.12373, 0.06930, 27.36446, 1.43013, 1.13332, - + 0.93339, 1.28187, 1.43037, - + 0.12500, 0.07026, 27.83771, 1.46207, 1.16619, - + 0.96765, 1.31427, 1.46232, - + 0.12623, 0.07117, 28.26503, 1.49223, 1.19725, - + 1.00006, 1.34488, 1.49248, - + 0.12744, 0.07207, 28.68384, 1.52205, 1.22795, - + 1.03207, 1.37515, 1.52231, - + 0.12862, 0.07295, 29.08476, 1.55118, 1.25794, - + 1.06332, 1.40470, 1.55143, - + 0.12976, 0.07379, 29.45329, 1.57901, 1.28661, - + 1.09321, 1.43295, 1.57926/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + 0.09536, 0.04928, 3.09663, 0.33075, 0.01450, - + 0.00001, 0.17263, 0.33081, - + 0.10070, 0.05367, 4.43702, 0.37225, 0.05974, - + 0.00002, 0.21602, 0.37233, - + 0.10550, 0.05758, 5.67431, 0.41361, 0.10445, - + 0.00002, 0.25907, 0.41371, - + 0.10986, 0.06109, 6.79987, 0.45401, 0.14788, - + 0.00002, 0.30100, 0.45413, - + 0.11386, 0.06428, 7.82535, 0.49312, 0.18977, - + 0.00672, 0.34151, 0.49325, - + 0.11758, 0.06721, 8.76484, 0.53092, 0.23014, - + 0.04014, 0.38060, 0.53106, - + 0.12107, 0.06993, 9.62727, 0.56742, 0.26906, - + 0.08387, 0.41833, 0.56758/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ - + 0.12435, 0.07246, 10.41858, 0.60261, 0.30653, - + 0.12410, 0.45466, 0.60279, - + 0.12744, 0.07484, 11.14566, 0.63649, 0.34254, - + 0.16296, 0.48962, 0.63667, - + 0.13037, 0.07708, 11.81706, 0.66912, 0.37720, - + 0.20021, 0.52327, 0.66931, - + 0.13316, 0.07919, 12.43672, 0.70052, 0.41053, - + 0.23596, 0.55563, 0.70071, - + 0.13580, 0.08117, 12.99685, 0.73036, 0.44220, - + 0.26992, 0.58639, 0.73056, - + 0.13832, 0.08306, 13.51814, 0.75911, 0.47271, - + 0.30257, 0.61602, 0.75932, - + 0.14074, 0.08486, 14.00673, 0.78692, 0.50221, - + 0.33409, 0.64468, 0.78714/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,21)/ - + 0.14306, 0.08657, 14.44570, 0.81320, 0.53011, - + 0.36390, 0.67177, 0.81341, - + 0.14528, 0.08821, 14.85890, 0.83866, 0.55712, - + 0.39274, 0.69801, 0.83887, - + 0.14742, 0.08977, 15.24092, 0.86313, 0.58309, - + 0.42043, 0.72323, 0.86334, - + 0.14947, 0.09126, 15.59162, 0.88649, 0.60790, - + 0.44689, 0.74732, 0.88671, - + 0.15146, 0.09270, 15.92292, 0.90914, 0.63194, - + 0.47250, 0.77067, 0.90937, - + 0.15336, 0.09407, 16.22272, 0.93066, 0.65480, - + 0.49687, 0.79285, 0.93088, - + 0.15521, 0.09541, 16.50739, 0.95159, 0.67704, - + 0.52055, 0.81444, 0.95182/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=22,30)/ - + 0.15699, 0.09668, 16.76733, 0.97153, 0.69825, - + 0.54314, 0.83501, 0.97175, - + 0.15872, 0.09790, 17.01180, 0.99083, 0.71878, - + 0.56500, 0.85492, 0.99105, - + 0.16040, 0.09909, 17.24040, 1.00945, 0.73860, - + 0.58610, 0.87414, 1.00967, - + 0.16202, 0.10022, 17.44788, 1.02719, 0.75749, - + 0.60622, 0.89246, 1.02741, - + 0.16360, 0.10134, 17.65108, 1.04469, 0.77613, - + 0.62605, 0.91053, 1.04492, - + 0.16511, 0.10240, 17.82687, 1.06101, 0.79354, - + 0.64461, 0.92739, 1.06123, - + 0.16659, 0.10344, 17.99789, 1.07707, 0.81066, - + 0.66285, 0.94398, 1.07728, - + 0.16804, 0.10445, 18.15886, 1.09263, 0.82727, - + 0.68053, 0.96007, 1.09285, - + 0.16945, 0.10541, 18.30157, 1.10735, 0.84300, - + 0.69731, 0.97529, 1.10757/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + 0.11284, 0.06598, 3.00536, 0.31596, 0.01288, - + 0.00001, 0.16442, 0.31597, - + 0.11932, 0.07117, 4.11730, 0.35112, 0.05237, - + 0.00002, 0.20177, 0.35116, - + 0.12512, 0.07572, 5.11199, 0.38536, 0.09049, - + 0.00002, 0.23796, 0.38543, - + 0.13036, 0.07978, 5.99292, 0.41816, 0.12677, - + 0.00003, 0.27252, 0.41824, - + 0.13514, 0.08344, 6.77586, 0.44939, 0.16119, - + 0.00553, 0.30535, 0.44949, - + 0.13955, 0.08677, 7.47835, 0.47913, 0.19386, - + 0.03278, 0.33656, 0.47923, - + 0.14365, 0.08984, 8.10987, 0.50746, 0.22494, - + 0.06812, 0.36627, 0.50758/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ - + 0.14750, 0.09270, 8.67813, 0.53445, 0.25451, - + 0.10024, 0.39456, 0.53457, - + 0.15112, 0.09535, 9.19144, 0.56013, 0.28262, - + 0.13093, 0.42146, 0.56025, - + 0.15454, 0.09782, 9.65715, 0.58458, 0.30936, - + 0.16003, 0.44706, 0.58472, - + 0.15777, 0.10016, 10.07936, 0.60788, 0.33485, - + 0.18774, 0.47147, 0.60803, - + 0.16082, 0.10233, 10.45379, 0.62978, 0.35882, - + 0.21377, 0.49440, 0.62993, - + 0.16372, 0.10440, 10.79701, 0.65071, 0.38172, - + 0.23863, 0.51632, 0.65087, - + 0.16650, 0.10636, 11.11424, 0.67080, 0.40370, - + 0.26245, 0.53736, 0.67096/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,21)/ - + 0.16914, 0.10820, 11.39333, 0.68961, 0.42433, - + 0.28480, 0.55707, 0.68977, - + 0.17167, 0.10995, 11.65232, 0.70771, 0.44416, - + 0.30628, 0.57604, 0.70787, - + 0.17409, 0.11163, 11.88743, 0.72496, 0.46308, - + 0.32677, 0.59412, 0.72511, - + 0.17642, 0.11321, 12.09953, 0.74128, 0.48101, - + 0.34619, 0.61125, 0.74144, - + 0.17866, 0.11474, 12.29744, 0.75699, 0.49828, - + 0.36489, 0.62775, 0.75716, - + 0.18080, 0.11618, 12.47223, 0.77179, 0.51458, - + 0.38255, 0.64330, 0.77197, - + 0.18287, 0.11758, 12.63614, 0.78611, 0.53035, - + 0.39962, 0.65834, 0.78629/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=22,30)/ - + 0.18486, 0.11891, 12.78186, 0.79964, 0.54529, - + 0.41581, 0.67258, 0.79983, - + 0.18679, 0.12019, 12.91649, 0.81266, 0.55966, - + 0.43139, 0.68628, 0.81283, - + 0.18865, 0.12142, 13.04049, 0.82514, 0.57347, - + 0.44635, 0.69942, 0.82532, - + 0.19043, 0.12260, 13.15038, 0.83694, 0.58654, - + 0.46053, 0.71185, 0.83711, - + 0.19217, 0.12375, 13.25761, 0.84855, 0.59939, - + 0.47446, 0.72408, 0.84871, - + 0.19384, 0.12484, 13.34546, 0.85923, 0.61128, - + 0.48739, 0.73537, 0.85940, - + 0.19548, 0.12590, 13.43038, 0.86971, 0.62294, - + 0.50005, 0.74644, 0.86988, - + 0.19707, 0.12692, 13.50864, 0.87982, 0.63419, - + 0.51228, 0.75712, 0.87999, - + 0.19859, 0.12791, 13.57453, 0.88930, 0.64479, - + 0.52381, 0.76716, 0.88947/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + 0.12828, 0.08081, 2.93342, 0.30373, 0.01175, - + 0.00001, 0.15774, 0.30376, - + 0.13570, 0.08654, 3.89053, 0.33453, 0.04733, - + 0.00002, 0.19094, 0.33459, - + 0.14230, 0.09151, 4.72641, 0.36401, 0.08105, - + 0.00002, 0.22256, 0.36409, - + 0.14822, 0.09592, 5.45107, 0.39182, 0.11268, - + 0.00003, 0.25230, 0.39192, - + 0.15361, 0.09986, 6.08283, 0.41795, 0.14229, - + 0.00476, 0.28017, 0.41806, - + 0.15854, 0.10343, 6.63979, 0.44255, 0.17009, - + 0.02811, 0.30638, 0.44267, - + 0.16312, 0.10670, 7.13214, 0.46573, 0.19626, - + 0.05818, 0.33107, 0.46587/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ - + 0.16739, 0.10972, 7.56798, 0.48761, 0.22093, - + 0.08524, 0.35434, 0.48774, - + 0.17140, 0.11252, 7.95559, 0.50823, 0.24418, - + 0.11089, 0.37628, 0.50836, - + 0.17517, 0.11511, 8.30206, 0.52769, 0.26612, - + 0.13503, 0.39698, 0.52783, - + 0.17872, 0.11754, 8.61142, 0.54609, 0.28688, - + 0.15785, 0.41657, 0.54624, - + 0.18205, 0.11980, 8.88095, 0.56323, 0.30624, - + 0.17914, 0.43482, 0.56338, - + 0.18522, 0.12193, 9.12451, 0.57949, 0.32463, - + 0.19934, 0.45214, 0.57964, - + 0.18824, 0.12395, 9.34666, 0.59500, 0.34217, - + 0.21860, 0.46867, 0.59515/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,21)/ - + 0.19110, 0.12582, 9.53799, 0.60940, 0.35851, - + 0.23655, 0.48404, 0.60955, - + 0.19383, 0.12761, 9.71318, 0.62317, 0.37415, - + 0.25370, 0.49874, 0.62332, - + 0.19644, 0.12931, 9.86941, 0.63620, 0.38897, - + 0.26999, 0.51267, 0.63636, - + 0.19893, 0.13091, 10.00748, 0.64845, 0.40294, - + 0.28534, 0.52578, 0.64860, - + 0.20133, 0.13244, 10.13455, 0.66018, 0.41633, - + 0.30005, 0.53834, 0.66034, - + 0.20361, 0.13389, 10.24370, 0.67114, 0.42889, - + 0.31387, 0.55010, 0.67130, - + 0.20581, 0.13529, 10.34465, 0.68169, 0.44099, - + 0.32718, 0.56143, 0.68187/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=22,30)/ - + 0.20793, 0.13661, 10.43174, 0.69159, 0.45238, - + 0.33973, 0.57208, 0.69176, - + 0.20997, 0.13788, 10.51060, 0.70107, 0.46330, - + 0.35176, 0.58228, 0.70123, - + 0.21193, 0.13909, 10.58158, 0.71010, 0.47373, - + 0.36327, 0.59201, 0.71026, - + 0.21381, 0.14025, 10.64202, 0.71858, 0.48356, - + 0.37412, 0.60116, 0.71873, - + 0.21564, 0.14138, 10.70087, 0.72690, 0.49319, - + 0.38475, 0.61013, 0.72704, - + 0.21739, 0.14244, 10.74516, 0.73446, 0.50204, - + 0.39456, 0.61834, 0.73461, - + 0.21910, 0.14347, 10.78768, 0.74186, 0.51069, - + 0.40414, 0.62637, 0.74202, - + 0.22076, 0.14447, 10.82550, 0.74897, 0.51901, - + 0.41335, 0.63408, 0.74913, - + 0.22234, 0.14542, 10.85428, 0.75558, 0.52680, - + 0.42200, 0.64127, 0.75573/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + 0.14242, 0.09430, 2.87231, 0.29320, 0.01090, - + 0.00002, 0.15205, 0.29321, - + 0.15064, 0.10037, 3.71389, 0.32071, 0.04354, - + 0.00003, 0.18213, 0.32075, - + 0.15789, 0.10563, 4.43425, 0.34664, 0.07400, - + 0.00004, 0.21036, 0.34672, - + 0.16437, 0.11026, 5.04740, 0.37081, 0.10225, - + 0.00004, 0.23658, 0.37090, - + 0.17024, 0.11436, 5.57299, 0.39327, 0.12841, - + 0.00425, 0.26090, 0.39337, - + 0.17560, 0.11806, 6.02986, 0.41419, 0.15275, - + 0.02481, 0.28353, 0.41431, - + 0.18055, 0.12143, 6.42765, 0.43375, 0.17546, - + 0.05114, 0.30467, 0.43386/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ - + 0.18515, 0.12453, 6.77413, 0.45203, 0.19670, - + 0.07467, 0.32443, 0.45215, - + 0.18945, 0.12737, 7.07770, 0.46913, 0.21659, - + 0.09682, 0.34293, 0.46927, - + 0.19346, 0.13001, 7.34515, 0.48518, 0.23525, - + 0.11756, 0.36029, 0.48530, - + 0.19723, 0.13247, 7.58083, 0.50022, 0.25276, - + 0.13700, 0.37657, 0.50034, - + 0.20077, 0.13474, 7.78235, 0.51411, 0.26901, - + 0.15506, 0.39163, 0.51423, - + 0.20413, 0.13687, 7.96200, 0.52720, 0.28434, - + 0.17210, 0.40584, 0.52732, - + 0.20732, 0.13888, 8.12376, 0.53961, 0.29888, - + 0.18825, 0.41932, 0.53973/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,21)/ - + 0.21033, 0.14075, 8.25976, 0.55105, 0.31236, - + 0.20326, 0.43178, 0.55119, - + 0.21319, 0.14252, 8.38282, 0.56193, 0.32519, - + 0.21753, 0.44364, 0.56207, - + 0.21591, 0.14419, 8.49078, 0.57217, 0.33730, - + 0.23101, 0.45482, 0.57229, - + 0.21851, 0.14576, 8.58341, 0.58172, 0.34865, - + 0.24365, 0.46526, 0.58184, - + 0.22102, 0.14726, 8.66699, 0.59081, 0.35948, - + 0.25573, 0.47523, 0.59094, - + 0.22339, 0.14867, 8.73652, 0.59927, 0.36961, - + 0.26704, 0.48452, 0.59940, - + 0.22566, 0.15003, 8.79984, 0.60739, 0.37933, - + 0.27791, 0.49344, 0.60751/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=22,30)/ - + 0.22784, 0.15131, 8.85197, 0.61494, 0.38843, - + 0.28809, 0.50176, 0.61505, - + 0.22993, 0.15253, 8.89764, 0.62211, 0.39710, - + 0.29781, 0.50968, 0.62222, - + 0.23195, 0.15369, 8.93724, 0.62891, 0.40536, - + 0.30707, 0.51721, 0.62903, - + 0.23388, 0.15479, 8.96855, 0.63524, 0.41310, - + 0.31577, 0.52424, 0.63535, - + 0.23576, 0.15586, 8.99897, 0.64144, 0.42067, - + 0.32427, 0.53113, 0.64156, - + 0.23754, 0.15686, 9.01801, 0.64703, 0.42759, - + 0.33209, 0.53738, 0.64715, - + 0.23928, 0.15784, 9.03599, 0.65249, 0.43434, - + 0.33971, 0.54348, 0.65261, - + 0.24096, 0.15878, 9.05071, 0.65770, 0.44081, - + 0.34701, 0.54932, 0.65782, - + 0.24256, 0.15968, 9.05874, 0.66249, 0.44682, - + 0.35382, 0.55472, 0.66260/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + 0.20339, 0.14875, 2.63800, 0.25382, 0.00827, - + 0.00002, 0.13105, 0.25384, - + 0.21406, 0.15530, 3.14790, 0.27162, 0.03218, - + 0.00003, 0.15190, 0.27163, - + 0.22337, 0.16076, 3.55241, 0.28750, 0.05345, - + 0.00003, 0.17051, 0.28751, - + 0.23146, 0.16541, 3.87235, 0.30159, 0.07234, - + 0.00003, 0.18698, 0.30163, - + 0.23865, 0.16944, 4.12777, 0.31413, 0.08921, - + 0.00276, 0.20170, 0.31415, - + 0.24511, 0.17297, 4.33537, 0.32536, 0.10441, - + 0.01598, 0.21492, 0.32540, - + 0.25097, 0.17609, 4.50393, 0.33549, 0.11818, - + 0.03257, 0.22687, 0.33553/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ - + 0.25633, 0.17890, 4.64050, 0.34460, 0.13070, - + 0.04697, 0.23769, 0.34466, - + 0.26125, 0.18141, 4.75057, 0.35283, 0.14211, - + 0.06022, 0.24751, 0.35290, - + 0.26579, 0.18369, 4.83946, 0.36030, 0.15255, - + 0.07236, 0.25648, 0.36036, - + 0.27000, 0.18576, 4.91174, 0.36712, 0.16218, - + 0.08355, 0.26470, 0.36717, - + 0.27388, 0.18762, 4.96468, 0.37314, 0.17084, - + 0.09370, 0.27205, 0.37321, - + 0.27748, 0.18934, 5.00716, 0.37867, 0.17887, - + 0.10312, 0.27882, 0.37874, - + 0.28086, 0.19092, 5.04149, 0.38378, 0.18636, - + 0.11191, 0.28513, 0.38385/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,21)/ - + 0.28401, 0.19234, 5.06337, 0.38827, 0.19312, - + 0.11989, 0.29075, 0.38832, - + 0.28698, 0.19367, 5.07932, 0.39244, 0.19946, - + 0.12737, 0.29600, 0.39248, - + 0.28977, 0.19491, 5.08819, 0.39625, 0.20533, - + 0.13434, 0.30084, 0.39628, - + 0.29238, 0.19602, 5.09094, 0.39966, 0.21072, - + 0.14076, 0.30523, 0.39971, - + 0.29487, 0.19705, 5.09065, 0.40283, 0.21578, - + 0.14681, 0.30935, 0.40291, - + 0.29720, 0.19800, 5.08433, 0.40563, 0.22039, - + 0.15237, 0.31306, 0.40570, - + 0.29942, 0.19891, 5.07610, 0.40825, 0.22476, - + 0.15765, 0.31656, 0.40831/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=22,30)/ - + 0.30151, 0.19973, 5.06376, 0.41056, 0.22877, - + 0.16252, 0.31972, 0.41062, - + 0.30350, 0.20050, 5.04955, 0.41270, 0.23254, - + 0.16711, 0.32267, 0.41276, - + 0.30539, 0.20122, 5.03355, 0.41465, 0.23606, - + 0.17143, 0.32541, 0.41471, - + 0.30716, 0.20189, 5.01466, 0.41637, 0.23928, - + 0.17541, 0.32787, 0.41642, - + 0.30888, 0.20254, 4.99642, 0.41803, 0.24241, - + 0.17927, 0.33027, 0.41808, - + 0.31046, 0.20311, 4.97369, 0.41938, 0.24517, - + 0.18273, 0.33232, 0.41941, - + 0.31200, 0.20367, 4.95149, 0.42068, 0.24784, - + 0.18609, 0.33430, 0.42070, - + 0.31348, 0.20418, 4.92858, 0.42187, 0.25037, - + 0.18927, 0.33615, 0.42189, - + 0.31489, 0.20463, 4.90317, 0.42285, 0.25265, - + 0.19219, 0.33779, 0.42288/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + 0.30264, 0.22170, 2.29769, 0.20366, 0.00565, - + -0.00011, 0.10457, 0.20350, - + 0.31450, 0.22634, 2.52620, 0.21271, 0.02154, - + -0.00010, 0.11704, 0.21253, - + 0.32438, 0.22992, 2.68370, 0.22007, 0.03487, - + -0.00010, 0.12740, 0.21996, - + 0.33271, 0.23269, 2.78938, 0.22608, 0.04615, - + -0.00011, 0.13605, 0.22594, - + 0.33980, 0.23489, 2.85928, 0.23100, 0.05578, - + 0.00149, 0.14331, 0.23088, - + 0.34595, 0.23665, 2.90402, 0.23504, 0.06408, - + 0.00906, 0.14950, 0.23494, - + 0.35130, 0.23809, 2.92967, 0.23843, 0.07135, - + 0.01837, 0.15483, 0.23826/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ - + 0.35606, 0.23922, 2.94088, 0.24118, 0.07773, - + 0.02622, 0.15938, 0.24105, - + 0.36028, 0.24009, 2.94132, 0.24343, 0.08333, - + 0.03323, 0.16331, 0.24332, - + 0.36399, 0.24082, 2.93380, 0.24529, 0.08828, - + 0.03948, 0.16674, 0.24516, - + 0.36732, 0.24141, 2.92048, 0.24682, 0.09270, - + 0.04508, 0.16969, 0.24664, - + 0.37029, 0.24180, 2.90020, 0.24791, 0.09654, - + 0.05002, 0.17216, 0.24776, - + 0.37299, 0.24206, 2.87726, 0.24878, 0.10000, - + 0.05451, 0.17433, 0.24865, - + 0.37546, 0.24224, 2.85268, 0.24949, 0.10315, - + 0.05862, 0.17626, 0.24937/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,21)/ - + 0.37756, 0.24235, 2.82434, 0.24994, 0.10584, - + 0.06220, 0.17781, 0.24979, - + 0.37951, 0.24240, 2.79551, 0.25025, 0.10831, - + 0.06551, 0.17920, 0.25010, - + 0.38131, 0.24237, 2.76560, 0.25037, 0.11053, - + 0.06856, 0.18039, 0.25028, - + 0.38292, 0.24227, 2.73444, 0.25035, 0.11250, - + 0.07130, 0.18137, 0.25027, - + 0.38440, 0.24213, 2.70346, 0.25027, 0.11432, - + 0.07384, 0.18224, 0.25018, - + 0.38572, 0.24191, 2.67165, 0.25004, 0.11591, - + 0.07612, 0.18293, 0.24995, - + 0.38695, 0.24167, 2.64056, 0.24977, 0.11739, - + 0.07824, 0.18353, 0.24968/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=22,30)/ - + 0.38802, 0.24140, 2.60904, 0.24938, 0.11868, - + 0.08016, 0.18398, 0.24930, - + 0.38899, 0.24112, 2.57800, 0.24893, 0.11983, - + 0.08193, 0.18434, 0.24887, - + 0.38988, 0.24081, 2.54731, 0.24844, 0.12088, - + 0.08355, 0.18463, 0.24839, - + 0.39065, 0.24046, 2.51644, 0.24788, 0.12178, - + 0.08500, 0.18479, 0.24781, - + 0.39140, 0.24013, 2.48691, 0.24733, 0.12265, - + 0.08639, 0.18496, 0.24726, - + 0.39199, 0.23975, 2.45669, 0.24668, 0.12337, - + 0.08760, 0.18498, 0.24656, - + 0.39256, 0.23939, 2.42764, 0.24605, 0.12406, - + 0.08876, 0.18499, 0.24589, - + 0.39307, 0.23901, 2.39925, 0.24538, 0.12467, - + 0.08984, 0.18496, 0.24520, - + 0.39350, 0.23857, 2.37084, 0.24461, 0.12516, - + 0.09077, 0.18483, 0.24449/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + 0.38419, 0.26734, 2.02580, 0.16912, 0.00429, - + 0.00000, 0.08669, 0.16913, - + 0.39447, 0.26896, 2.12146, 0.17372, 0.01593, - + -0.00002, 0.09481, 0.17365, - + 0.40262, 0.26975, 2.17094, 0.17708, 0.02532, - + 0.00002, 0.10117, 0.17700, - + 0.40908, 0.27002, 2.18931, 0.17939, 0.03300, - + 0.00002, 0.10618, 0.17932, - + 0.41435, 0.26988, 2.18805, 0.18096, 0.03930, - + 0.00108, 0.11014, 0.18096, - + 0.41858, 0.26955, 2.17430, 0.18206, 0.04459, - + 0.00612, 0.11334, 0.18203, - + 0.42207, 0.26897, 2.15190, 0.18270, 0.04909, - + 0.01224, 0.11590, 0.18267/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ - + 0.42496, 0.26820, 2.12353, 0.18299, 0.05292, - + 0.01725, 0.11797, 0.18299, - + 0.42737, 0.26732, 2.09140, 0.18300, 0.05619, - + 0.02165, 0.11963, 0.18302, - + 0.42934, 0.26638, 2.05710, 0.18280, 0.05903, - + 0.02551, 0.12094, 0.18283, - + 0.43092, 0.26541, 2.02161, 0.18249, 0.06151, - + 0.02894, 0.12199, 0.18243, - + 0.43220, 0.26428, 1.98419, 0.18188, 0.06358, - + 0.03186, 0.12274, 0.18187, - + 0.43322, 0.26316, 1.94708, 0.18119, 0.06538, - + 0.03446, 0.12331, 0.18122, - + 0.43403, 0.26206, 1.91076, 0.18046, 0.06695, - + 0.03680, 0.12375, 0.18051/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,21)/ - + 0.43456, 0.26088, 1.87389, 0.17961, 0.06828, - + 0.03887, 0.12398, 0.17964, - + 0.43498, 0.25969, 1.83821, 0.17875, 0.06948, - + 0.04074, 0.12413, 0.17874, - + 0.43528, 0.25847, 1.80326, 0.17784, 0.07054, - + 0.04239, 0.12418, 0.17780, - + 0.43541, 0.25727, 1.76895, 0.17685, 0.07141, - + 0.04384, 0.12412, 0.17683, - + 0.43546, 0.25610, 1.73594, 0.17584, 0.07215, - + 0.04515, 0.12401, 0.17588, - + 0.43538, 0.25487, 1.70342, 0.17479, 0.07279, - + 0.04631, 0.12381, 0.17482, - + 0.43527, 0.25365, 1.67223, 0.17376, 0.07337, - + 0.04738, 0.12358, 0.17375/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=22,30)/ - + 0.43502, 0.25244, 1.64169, 0.17268, 0.07384, - + 0.04833, 0.12328, 0.17265, - + 0.43471, 0.25125, 1.61222, 0.17160, 0.07425, - + 0.04921, 0.12295, 0.17155, - + 0.43435, 0.25009, 1.58375, 0.17051, 0.07459, - + 0.04999, 0.12258, 0.17047, - + 0.43389, 0.24893, 1.55594, 0.16941, 0.07484, - + 0.05064, 0.12216, 0.16939, - + 0.43345, 0.24782, 1.52948, 0.16834, 0.07508, - + 0.05127, 0.12175, 0.16836, - + 0.43288, 0.24666, 1.50329, 0.16726, 0.07524, - + 0.05181, 0.12127, 0.16722, - + 0.43232, 0.24553, 1.47827, 0.16622, 0.07538, - + 0.05232, 0.12081, 0.16612, - + 0.43174, 0.24442, 1.45410, 0.16517, 0.07549, - + 0.05279, 0.12033, 0.16505, - + 0.43109, 0.24328, 1.43038, 0.16407, 0.07551, - + 0.05317, 0.11981, 0.16400/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + 0.45157, 0.29597, 1.79157, 0.14242, 0.00340, - + 0.00006, 0.07292, 0.14231, - + 0.45875, 0.29435, 1.81095, 0.14430, 0.01226, - + 0.00007, 0.07830, 0.14422, - + 0.46389, 0.29228, 1.80248, 0.14526, 0.01916, - + 0.00008, 0.08224, 0.14527, - + 0.46744, 0.29007, 1.77685, 0.14555, 0.02467, - + 0.00008, 0.08517, 0.14559, - + 0.46988, 0.28777, 1.74226, 0.14546, 0.02905, - + 0.00087, 0.08729, 0.14543, - + 0.47160, 0.28534, 1.70264, 0.14497, 0.03267, - + 0.00443, 0.08887, 0.14498, - + 0.47264, 0.28288, 1.66042, 0.14425, 0.03566, - + 0.00870, 0.09002, 0.14426/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ - + 0.47317, 0.28041, 1.61709, 0.14335, 0.03814, - + 0.01215, 0.09081, 0.14336, - + 0.47328, 0.27799, 1.57370, 0.14234, 0.04020, - + 0.01514, 0.09132, 0.14234, - + 0.47304, 0.27561, 1.53103, 0.14124, 0.04193, - + 0.01773, 0.09163, 0.14125, - + 0.47254, 0.27327, 1.48956, 0.14009, 0.04338, - + 0.01997, 0.09179, 0.14013, - + 0.47192, 0.27085, 1.44864, 0.13878, 0.04459, - + 0.02184, 0.09174, 0.13886, - + 0.47106, 0.26850, 1.40954, 0.13749, 0.04562, - + 0.02348, 0.09161, 0.13758, - + 0.47006, 0.26622, 1.37233, 0.13625, 0.04650, - + 0.02494, 0.09141, 0.13632/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,21)/ - + 0.46888, 0.26403, 1.33589, 0.13491, 0.04717, - + 0.02622, 0.09112, 0.13498, - + 0.46767, 0.26186, 1.30138, 0.13360, 0.04775, - + 0.02736, 0.09078, 0.13367, - + 0.46641, 0.25968, 1.26838, 0.13228, 0.04823, - + 0.02835, 0.09037, 0.13238, - + 0.46500, 0.25759, 1.23664, 0.13099, 0.04863, - + 0.02919, 0.08990, 0.13104, - + 0.46354, 0.25559, 1.20649, 0.12975, 0.04896, - + 0.02994, 0.08941, 0.12972, - + 0.46202, 0.25358, 1.17742, 0.12844, 0.04922, - + 0.03058, 0.08888, 0.12844, - + 0.46053, 0.25162, 1.14984, 0.12716, 0.04944, - + 0.03118, 0.08835, 0.12721/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=22,30)/ - + 0.45896, 0.24970, 1.12327, 0.12590, 0.04956, - + 0.03169, 0.08779, 0.12599, - + 0.45737, 0.24783, 1.09790, 0.12467, 0.04963, - + 0.03215, 0.08723, 0.12480, - + 0.45576, 0.24602, 1.07366, 0.12348, 0.04968, - + 0.03256, 0.08666, 0.12361, - + 0.45411, 0.24424, 1.05030, 0.12230, 0.04972, - + 0.03290, 0.08608, 0.12240, - + 0.45252, 0.24254, 1.02817, 0.12116, 0.04974, - + 0.03322, 0.08551, 0.12123, - + 0.45087, 0.24077, 1.00661, 0.11999, 0.04969, - + 0.03347, 0.08490, 0.12008, - + 0.44927, 0.23906, 0.98610, 0.11886, 0.04963, - + 0.03370, 0.08431, 0.11897, - + 0.44765, 0.23741, 0.96644, 0.11777, 0.04956, - + 0.03390, 0.08372, 0.11787, - + 0.44595, 0.23580, 0.94739, 0.11669, 0.04946, - + 0.03405, 0.08313, 0.11676/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + 0.50658, 0.31252, 1.58458, 0.12043, 0.00271, - + 0.00006, 0.06158, 0.12036, - + 0.50958, 0.30787, 1.55765, 0.12057, 0.00952, - + 0.00006, 0.06509, 0.12058, - + 0.51092, 0.30325, 1.51588, 0.12018, 0.01481, - + 0.00010, 0.06749, 0.12010, - + 0.51097, 0.29886, 1.46704, 0.11930, 0.01881, - + 0.00008, 0.06908, 0.11924, - + 0.51033, 0.29447, 1.41582, 0.11818, 0.02203, - + 0.00063, 0.07012, 0.11809, - + 0.50907, 0.29027, 1.36475, 0.11692, 0.02457, - + 0.00329, 0.07075, 0.11679, - + 0.50745, 0.28617, 1.31464, 0.11546, 0.02660, - + 0.00640, 0.07107, 0.11545/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ - + 0.50545, 0.28221, 1.26633, 0.11398, 0.02825, - + 0.00884, 0.07117, 0.11403, - + 0.50317, 0.27844, 1.22022, 0.11249, 0.02959, - + 0.01091, 0.07108, 0.11256, - + 0.50074, 0.27484, 1.17645, 0.11096, 0.03068, - + 0.01267, 0.07086, 0.11110, - + 0.49817, 0.27140, 1.13503, 0.10949, 0.03159, - + 0.01423, 0.07060, 0.10951, - + 0.49553, 0.26793, 1.09548, 0.10796, 0.03233, - + 0.01546, 0.07018, 0.10790, - + 0.49274, 0.26467, 1.05837, 0.10648, 0.03292, - + 0.01657, 0.06971, 0.10640, - + 0.48991, 0.26160, 1.02361, 0.10504, 0.03340, - + 0.01757, 0.06921, 0.10499/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,21)/ - + 0.48713, 0.25848, 0.99036, 0.10352, 0.03375, - + 0.01838, 0.06867, 0.10355, - + 0.48434, 0.25550, 0.95920, 0.10207, 0.03403, - + 0.01910, 0.06812, 0.10217, - + 0.48151, 0.25263, 0.92977, 0.10069, 0.03424, - + 0.01973, 0.06752, 0.10083, - + 0.47862, 0.24990, 0.90189, 0.09935, 0.03440, - + 0.02023, 0.06692, 0.09943, - + 0.47577, 0.24729, 0.87567, 0.09806, 0.03454, - + 0.02066, 0.06633, 0.09803, - + 0.47297, 0.24467, 0.85067, 0.09674, 0.03460, - + 0.02106, 0.06571, 0.09674, - + 0.47027, 0.24211, 0.82711, 0.09544, 0.03463, - + 0.02143, 0.06510, 0.09554/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=22,30)/ - + 0.46745, 0.23969, 0.80467, 0.09423, 0.03461, - + 0.02172, 0.06448, 0.09431, - + 0.46464, 0.23737, 0.78343, 0.09308, 0.03455, - + 0.02196, 0.06386, 0.09309, - + 0.46191, 0.23510, 0.76327, 0.09193, 0.03450, - + 0.02216, 0.06325, 0.09192, - + 0.45924, 0.23283, 0.74401, 0.09077, 0.03444, - + 0.02233, 0.06263, 0.09078, - + 0.45668, 0.23065, 0.72583, 0.08965, 0.03439, - + 0.02249, 0.06204, 0.08969, - + 0.45402, 0.22851, 0.70831, 0.08857, 0.03427, - + 0.02259, 0.06146, 0.08858, - + 0.45145, 0.22645, 0.69171, 0.08753, 0.03415, - + 0.02269, 0.06091, 0.08752, - + 0.44891, 0.22445, 0.67588, 0.08652, 0.03402, - + 0.02277, 0.06035, 0.08648, - + 0.44633, 0.22251, 0.66068, 0.08555, 0.03387, - + 0.02282, 0.05979, 0.08545/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + 0.55912, 0.32098, 1.35778, 0.09761, 0.00206, - + 0.00005, 0.04985, 0.09749, - + 0.55643, 0.31285, 1.29678, 0.09635, 0.00719, - + 0.00010, 0.05186, 0.09646, - + 0.55252, 0.30552, 1.23313, 0.09504, 0.01092, - + 0.00007, 0.05297, 0.09497, - + 0.54819, 0.29850, 1.17024, 0.09328, 0.01382, - + 0.00003, 0.05363, 0.09331, - + 0.54341, 0.29203, 1.11064, 0.09151, 0.01596, - + 0.00044, 0.05382, 0.09167, - + 0.53839, 0.28603, 1.05502, 0.08983, 0.01767, - + 0.00231, 0.05381, 0.08982, - + 0.53327, 0.28037, 1.00320, 0.08808, 0.01899, - + 0.00445, 0.05357, 0.08809/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ - + 0.52808, 0.27502, 0.95510, 0.08633, 0.01998, - + 0.00612, 0.05323, 0.08641, - + 0.52293, 0.26996, 0.91053, 0.08465, 0.02080, - + 0.00753, 0.05280, 0.08466, - + 0.51783, 0.26515, 0.86932, 0.08301, 0.02149, - + 0.00871, 0.05229, 0.08294, - + 0.51273, 0.26065, 0.83132, 0.08146, 0.02198, - + 0.00965, 0.05176, 0.08129, - + 0.50775, 0.25623, 0.79587, 0.07984, 0.02232, - + 0.01047, 0.05114, 0.07979, - + 0.50287, 0.25204, 0.76305, 0.07827, 0.02260, - + 0.01118, 0.05051, 0.07834, - + 0.49811, 0.24808, 0.73267, 0.07676, 0.02282, - + 0.01181, 0.04987, 0.07695/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,21)/ - + 0.49332, 0.24430, 0.70422, 0.07536, 0.02296, - + 0.01229, 0.04926, 0.07548, - + 0.48869, 0.24069, 0.67787, 0.07403, 0.02306, - + 0.01272, 0.04865, 0.07408, - + 0.48415, 0.23721, 0.65329, 0.07275, 0.02311, - + 0.01308, 0.04803, 0.07274, - + 0.47971, 0.23386, 0.63024, 0.07149, 0.02312, - + 0.01336, 0.04743, 0.07142, - + 0.47541, 0.23065, 0.60872, 0.07026, 0.02313, - + 0.01359, 0.04687, 0.07014, - + 0.47113, 0.22754, 0.58846, 0.06907, 0.02308, - + 0.01378, 0.04623, 0.06901, - + 0.46697, 0.22456, 0.56951, 0.06792, 0.02302, - + 0.01395, 0.04558, 0.06797/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=22,30)/ - + 0.46288, 0.22169, 0.55165, 0.06681, 0.02295, - + 0.01410, 0.04498, 0.06688, - + 0.45890, 0.21894, 0.53486, 0.06575, 0.02287, - + 0.01423, 0.04442, 0.06580, - + 0.45504, 0.21627, 0.51902, 0.06473, 0.02278, - + 0.01434, 0.04386, 0.06475, - + 0.45124, 0.21364, 0.50399, 0.06377, 0.02266, - + 0.01442, 0.04330, 0.06374, - + 0.44760, 0.21112, 0.48986, 0.06284, 0.02255, - + 0.01449, 0.04276, 0.06277, - + 0.44393, 0.20868, 0.47645, 0.06188, 0.02242, - + 0.01457, 0.04222, 0.06185, - + 0.44039, 0.20634, 0.46378, 0.06095, 0.02230, - + 0.01464, 0.04171, 0.06097, - + 0.43694, 0.20408, 0.45173, 0.06007, 0.02216, - + 0.01468, 0.04121, 0.06012, - + 0.43349, 0.20186, 0.44017, 0.05923, 0.02199, - + 0.01465, 0.04071, 0.05928/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + 0.59556, 0.31939, 1.16063, 0.07858, 0.00162, - + 0.00014, 0.04021, 0.07860, - + 0.58685, 0.30848, 1.08190, 0.07669, 0.00544, - + 0.00015, 0.04117, 0.07690, - + 0.57779, 0.29883, 1.00837, 0.07482, 0.00819, - + 0.00018, 0.04157, 0.07495, - + 0.56881, 0.29004, 0.94110, 0.07292, 0.01019, - + 0.00013, 0.04158, 0.07293, - + 0.56008, 0.28197, 0.88035, 0.07093, 0.01174, - + 0.00044, 0.04137, 0.07099, - + 0.55159, 0.27455, 0.82571, 0.06907, 0.01286, - + 0.00173, 0.04101, 0.06912, - + 0.54330, 0.26767, 0.77628, 0.06728, 0.01372, - + 0.00321, 0.04053, 0.06731/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ - + 0.53523, 0.26128, 0.73153, 0.06555, 0.01438, - + 0.00437, 0.03999, 0.06553, - + 0.52748, 0.25524, 0.69102, 0.06385, 0.01488, - + 0.00532, 0.03942, 0.06386, - + 0.52002, 0.24959, 0.65425, 0.06220, 0.01524, - + 0.00610, 0.03882, 0.06233, - + 0.51276, 0.24434, 0.62075, 0.06069, 0.01556, - + 0.00677, 0.03815, 0.06084, - + 0.50570, 0.23931, 0.58999, 0.05923, 0.01573, - + 0.00727, 0.03753, 0.05933, - + 0.49886, 0.23461, 0.56194, 0.05788, 0.01584, - + 0.00771, 0.03693, 0.05789, - + 0.49227, 0.23019, 0.53628, 0.05661, 0.01591, - + 0.00811, 0.03634, 0.05653/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,21)/ - + 0.48597, 0.22583, 0.51248, 0.05526, 0.01596, - + 0.00844, 0.03573, 0.05530, - + 0.47988, 0.22175, 0.49065, 0.05402, 0.01597, - + 0.00872, 0.03513, 0.05412, - + 0.47393, 0.21791, 0.47052, 0.05287, 0.01594, - + 0.00895, 0.03454, 0.05297, - + 0.46813, 0.21422, 0.45173, 0.05177, 0.01589, - + 0.00911, 0.03396, 0.05188, - + 0.46255, 0.21070, 0.43429, 0.05073, 0.01584, - + 0.00922, 0.03339, 0.05084, - + 0.45708, 0.20734, 0.41806, 0.04977, 0.01577, - + 0.00931, 0.03285, 0.04976, - + 0.45182, 0.20414, 0.40298, 0.04887, 0.01569, - + 0.00939, 0.03234, 0.04871/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=22,30)/ - + 0.44671, 0.20105, 0.38886, 0.04796, 0.01560, - + 0.00948, 0.03183, 0.04775, - + 0.44177, 0.19808, 0.37566, 0.04707, 0.01549, - + 0.00956, 0.03132, 0.04685, - + 0.43704, 0.19519, 0.36327, 0.04619, 0.01538, - + 0.00961, 0.03083, 0.04602, - + 0.43247, 0.19234, 0.35157, 0.04529, 0.01528, - + 0.00963, 0.03033, 0.04526, - + 0.42809, 0.18962, 0.34060, 0.04442, 0.01517, - + 0.00965, 0.02986, 0.04454, - + 0.42364, 0.18704, 0.33024, 0.04365, 0.01504, - + 0.00965, 0.02941, 0.04377, - + 0.41936, 0.18457, 0.32049, 0.04291, 0.01490, - + 0.00965, 0.02898, 0.04304, - + 0.41522, 0.18218, 0.31130, 0.04220, 0.01478, - + 0.00963, 0.02857, 0.04232, - + 0.41117, 0.17985, 0.30262, 0.04153, 0.01466, - + 0.00958, 0.02816, 0.04159/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + 0.61759, 0.31075, 0.98875, 0.06277, 0.00117, - + 0.00000, 0.03206, 0.06283, - + 0.60293, 0.29773, 0.90226, 0.06072, 0.00408, - + 0.00005, 0.03248, 0.06071, - + 0.58922, 0.28615, 0.82620, 0.05852, 0.00617, - + 0.00006, 0.03246, 0.05866, - + 0.57609, 0.27587, 0.75967, 0.05656, 0.00761, - + 0.00008, 0.03221, 0.05664, - + 0.56357, 0.26676, 0.70148, 0.05467, 0.00869, - + 0.00026, 0.03177, 0.05467, - + 0.55190, 0.25833, 0.65048, 0.05281, 0.00947, - + 0.00123, 0.03126, 0.05294, - + 0.54088, 0.25054, 0.60535, 0.05110, 0.01005, - + 0.00230, 0.03071, 0.05123/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ - + 0.53029, 0.24345, 0.56527, 0.04953, 0.01049, - + 0.00316, 0.03014, 0.04954, - + 0.52022, 0.23690, 0.52951, 0.04801, 0.01080, - + 0.00389, 0.02955, 0.04799, - + 0.51072, 0.23072, 0.49746, 0.04651, 0.01099, - + 0.00445, 0.02895, 0.04664, - + 0.50171, 0.22487, 0.46866, 0.04513, 0.01114, - + 0.00484, 0.02833, 0.04537, - + 0.49297, 0.21950, 0.44270, 0.04383, 0.01130, - + 0.00525, 0.02775, 0.04398, - + 0.48462, 0.21443, 0.41912, 0.04261, 0.01135, - + 0.00554, 0.02719, 0.04276, - + 0.47667, 0.20965, 0.39767, 0.04147, 0.01134, - + 0.00574, 0.02665, 0.04167/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,21)/ - + 0.46886, 0.20525, 0.37808, 0.04047, 0.01134, - + 0.00589, 0.02604, 0.04053, - + 0.46152, 0.20100, 0.36021, 0.03946, 0.01131, - + 0.00604, 0.02551, 0.03949, - + 0.45460, 0.19685, 0.34382, 0.03843, 0.01126, - + 0.00620, 0.02504, 0.03852, - + 0.44785, 0.19294, 0.32869, 0.03749, 0.01119, - + 0.00628, 0.02454, 0.03762, - + 0.44136, 0.18926, 0.31475, 0.03661, 0.01112, - + 0.00632, 0.02404, 0.03677, - + 0.43504, 0.18579, 0.30179, 0.03577, 0.01103, - + 0.00638, 0.02356, 0.03595, - + 0.42899, 0.18250, 0.28979, 0.03497, 0.01092, - + 0.00645, 0.02311, 0.03518/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=22,30)/ - + 0.42320, 0.17927, 0.27868, 0.03417, 0.01085, - + 0.00651, 0.02267, 0.03442, - + 0.41767, 0.17615, 0.26837, 0.03340, 0.01079, - + 0.00656, 0.02224, 0.03369, - + 0.41227, 0.17322, 0.25872, 0.03270, 0.01070, - + 0.00658, 0.02184, 0.03298, - + 0.40693, 0.17046, 0.24963, 0.03206, 0.01055, - + 0.00655, 0.02147, 0.03228, - + 0.40182, 0.16784, 0.24114, 0.03146, 0.01041, - + 0.00652, 0.02112, 0.03161, - + 0.39687, 0.16521, 0.23327, 0.03084, 0.01031, - + 0.00651, 0.02074, 0.03102, - + 0.39212, 0.16270, 0.22588, 0.03024, 0.01022, - + 0.00650, 0.02038, 0.03045, - + 0.38752, 0.16028, 0.21893, 0.02967, 0.01013, - + 0.00648, 0.02004, 0.02989, - + 0.38302, 0.15796, 0.21234, 0.02911, 0.01002, - + 0.00644, 0.01972, 0.02934/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + 0.62689, 0.29712, 0.83920, 0.04966, 0.00089, - + 0.00003, 0.02530, 0.04965, - + 0.60695, 0.28237, 0.75124, 0.04749, 0.00308, - + 0.00005, 0.02529, 0.04762, - + 0.58852, 0.26977, 0.67715, 0.04559, 0.00460, - + -0.00008, 0.02504, 0.04550, - + 0.57185, 0.25845, 0.61412, 0.04361, 0.00566, - + 0.00012, 0.02466, 0.04363, - + 0.55620, 0.24853, 0.56052, 0.04194, 0.00641, - + 0.00024, 0.02416, 0.04181, - + 0.54189, 0.23948, 0.51441, 0.04029, 0.00691, - + 0.00090, 0.02362, 0.04023, - + 0.52856, 0.23119, 0.47447, 0.03870, 0.00735, - + 0.00171, 0.02305, 0.03871/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ - + 0.51590, 0.22367, 0.43938, 0.03726, 0.00765, - + 0.00227, 0.02247, 0.03732, - + 0.50388, 0.21685, 0.40838, 0.03596, 0.00779, - + 0.00275, 0.02193, 0.03601, - + 0.49260, 0.21054, 0.38102, 0.03479, 0.00788, - + 0.00318, 0.02140, 0.03472, - + 0.48214, 0.20445, 0.35675, 0.03366, 0.00800, - + 0.00337, 0.02080, 0.03360, - + 0.47215, 0.19883, 0.33495, 0.03249, 0.00808, - + 0.00359, 0.02029, 0.03253, - + 0.46263, 0.19363, 0.31538, 0.03146, 0.00807, - + 0.00377, 0.01981, 0.03152, - + 0.45360, 0.18880, 0.29774, 0.03055, 0.00800, - + 0.00391, 0.01934, 0.03056/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,21)/ - + 0.44487, 0.18425, 0.28177, 0.02969, 0.00796, - + 0.00413, 0.01885, 0.02968, - + 0.43666, 0.17995, 0.26726, 0.02884, 0.00792, - + 0.00427, 0.01839, 0.02885, - + 0.42891, 0.17585, 0.25401, 0.02799, 0.00788, - + 0.00431, 0.01796, 0.02806, - + 0.42139, 0.17199, 0.24190, 0.02725, 0.00783, - + 0.00437, 0.01757, 0.02725, - + 0.41419, 0.16837, 0.23081, 0.02660, 0.00778, - + 0.00443, 0.01722, 0.02646, - + 0.40730, 0.16490, 0.22061, 0.02591, 0.00770, - + 0.00447, 0.01684, 0.02579, - + 0.40075, 0.16162, 0.21120, 0.02523, 0.00761, - + 0.00448, 0.01645, 0.02519/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=22,30)/ - + 0.39446, 0.15845, 0.20249, 0.02461, 0.00752, - + 0.00448, 0.01608, 0.02459, - + 0.38843, 0.15541, 0.19441, 0.02401, 0.00743, - + 0.00448, 0.01574, 0.02400, - + 0.38263, 0.15251, 0.18692, 0.02346, 0.00735, - + 0.00447, 0.01542, 0.02343, - + 0.37697, 0.14974, 0.17995, 0.02295, 0.00729, - + 0.00447, 0.01513, 0.02285, - + 0.37158, 0.14710, 0.17344, 0.02247, 0.00722, - + 0.00446, 0.01486, 0.02230, - + 0.36629, 0.14454, 0.16734, 0.02199, 0.00709, - + 0.00444, 0.01456, 0.02187, - + 0.36123, 0.14209, 0.16162, 0.02153, 0.00696, - + 0.00442, 0.01428, 0.02147, - + 0.35634, 0.13977, 0.15625, 0.02108, 0.00686, - + 0.00440, 0.01401, 0.02106, - + 0.35156, 0.13755, 0.15117, 0.02064, 0.00680, - + 0.00437, 0.01374, 0.02061/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + 0.62534, 0.27977, 0.70920, 0.03883, 0.00063, - + 0.00003, 0.01971, 0.03880, - + 0.60054, 0.26409, 0.62384, 0.03682, 0.00231, - + 0.00009, 0.01956, 0.03684, - + 0.57838, 0.25065, 0.55412, 0.03507, 0.00340, - + 0.00014, 0.01926, 0.03491, - + 0.55843, 0.23886, 0.49642, 0.03333, 0.00423, - + 0.00006, 0.01880, 0.03321, - + 0.54021, 0.22857, 0.44812, 0.03185, 0.00480, - + 0.00021, 0.01828, 0.03157, - + 0.52376, 0.21911, 0.40738, 0.03033, 0.00518, - + 0.00070, 0.01776, 0.03025, - + 0.50837, 0.21073, 0.37250, 0.02903, 0.00540, - + 0.00127, 0.01724, 0.02899/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ - + 0.49405, 0.20311, 0.34226, 0.02788, 0.00556, - + 0.00167, 0.01674, 0.02775, - + 0.48076, 0.19605, 0.31592, 0.02684, 0.00568, - + 0.00202, 0.01626, 0.02658, - + 0.46839, 0.18955, 0.29285, 0.02583, 0.00575, - + 0.00228, 0.01577, 0.02558, - + 0.45679, 0.18356, 0.27244, 0.02481, 0.00579, - + 0.00243, 0.01525, 0.02472, - + 0.44585, 0.17791, 0.25438, 0.02388, 0.00581, - + 0.00259, 0.01480, 0.02388, - + 0.43543, 0.17281, 0.23833, 0.02308, 0.00582, - + 0.00269, 0.01441, 0.02300, - + 0.42555, 0.16814, 0.22399, 0.02236, 0.00580, - + 0.00275, 0.01405, 0.02213/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,21)/ - + 0.41631, 0.16359, 0.21109, 0.02161, 0.00571, - + 0.00285, 0.01362, 0.02151, - + 0.40757, 0.15933, 0.19945, 0.02093, 0.00564, - + 0.00292, 0.01322, 0.02088, - + 0.39924, 0.15532, 0.18887, 0.02032, 0.00559, - + 0.00295, 0.01285, 0.02022, - + 0.39132, 0.15154, 0.17922, 0.01970, 0.00554, - + 0.00300, 0.01253, 0.01961, - + 0.38382, 0.14800, 0.17041, 0.01910, 0.00549, - + 0.00304, 0.01225, 0.01903, - + 0.37655, 0.14465, 0.16235, 0.01859, 0.00542, - + 0.00305, 0.01196, 0.01847, - + 0.36962, 0.14148, 0.15496, 0.01811, 0.00535, - + 0.00304, 0.01168, 0.01794/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=22,30)/ - + 0.36301, 0.13842, 0.14813, 0.01764, 0.00526, - + 0.00303, 0.01141, 0.01746, - + 0.35674, 0.13550, 0.14182, 0.01718, 0.00517, - + 0.00301, 0.01116, 0.01701, - + 0.35071, 0.13272, 0.13600, 0.01674, 0.00510, - + 0.00300, 0.01090, 0.01658, - + 0.34488, 0.13008, 0.13062, 0.01632, 0.00504, - + 0.00299, 0.01064, 0.01618, - + 0.33932, 0.12757, 0.12562, 0.01593, 0.00499, - + 0.00298, 0.01040, 0.01581, - + 0.33386, 0.12517, 0.12101, 0.01559, 0.00490, - + 0.00296, 0.01018, 0.01541, - + 0.32863, 0.12289, 0.11670, 0.01528, 0.00481, - + 0.00294, 0.00997, 0.01503, - + 0.32364, 0.12069, 0.11266, 0.01493, 0.00472, - + 0.00292, 0.00977, 0.01470, - + 0.31887, 0.11854, 0.10886, 0.01449, 0.00466, - + 0.00291, 0.00957, 0.01447/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + 0.61423, 0.26028, 0.59642, 0.02994, 0.00049, - + 0.00006, 0.01523, 0.02988, - + 0.58559, 0.24385, 0.51608, 0.02818, 0.00175, - + 0.00015, 0.01500, 0.02811, - + 0.56028, 0.23004, 0.45216, 0.02656, 0.00266, - + 0.00014, 0.01462, 0.02646, - + 0.53780, 0.21802, 0.40026, 0.02511, 0.00322, - + 0.00008, 0.01416, 0.02502, - + 0.51768, 0.20742, 0.35765, 0.02376, 0.00354, - + 0.00018, 0.01368, 0.02384, - + 0.49952, 0.19792, 0.32218, 0.02248, 0.00382, - + 0.00059, 0.01316, 0.02280, - + 0.48264, 0.18962, 0.29197, 0.02149, 0.00401, - + 0.00089, 0.01274, 0.02160/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ - + 0.46713, 0.18205, 0.26640, 0.02057, 0.00415, - + 0.00122, 0.01238, 0.02049, - + 0.45280, 0.17513, 0.24437, 0.01969, 0.00417, - + 0.00150, 0.01194, 0.01962, - + 0.43948, 0.16883, 0.22505, 0.01890, 0.00413, - + 0.00164, 0.01148, 0.01887, - + 0.42717, 0.16297, 0.20816, 0.01810, 0.00420, - + 0.00174, 0.01108, 0.01811, - + 0.41550, 0.15756, 0.19347, 0.01743, 0.00422, - + 0.00185, 0.01075, 0.01734, - + 0.40448, 0.15267, 0.18040, 0.01683, 0.00415, - + 0.00193, 0.01041, 0.01668, - + 0.39412, 0.14820, 0.16874, 0.01629, 0.00402, - + 0.00197, 0.01008, 0.01611/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,21)/ - + 0.38449, 0.14380, 0.15846, 0.01569, 0.00404, - + 0.00201, 0.00982, 0.01545, - + 0.37548, 0.13969, 0.14915, 0.01511, 0.00404, - + 0.00205, 0.00956, 0.01489, - + 0.36700, 0.13581, 0.14064, 0.01454, 0.00402, - + 0.00208, 0.00927, 0.01443, - + 0.35897, 0.13212, 0.13307, 0.01400, 0.00393, - + 0.00210, 0.00900, 0.01405, - + 0.35137, 0.12865, 0.12626, 0.01348, 0.00382, - + 0.00212, 0.00874, 0.01372, - + 0.34398, 0.12545, 0.11994, 0.01309, 0.00375, - + 0.00210, 0.00850, 0.01329, - + 0.33693, 0.12245, 0.11413, 0.01276, 0.00369, - + 0.00207, 0.00828, 0.01285/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=22,30)/ - + 0.33025, 0.11963, 0.10882, 0.01237, 0.00364, - + 0.00208, 0.00806, 0.01249, - + 0.32391, 0.11695, 0.10395, 0.01196, 0.00360, - + 0.00212, 0.00784, 0.01218, - + 0.31784, 0.11437, 0.09946, 0.01160, 0.00355, - + 0.00213, 0.00765, 0.01188, - + 0.31201, 0.11184, 0.09532, 0.01128, 0.00350, - + 0.00210, 0.00749, 0.01158, - + 0.30646, 0.10944, 0.09148, 0.01098, 0.00345, - + 0.00208, 0.00734, 0.01130, - + 0.30105, 0.10720, 0.08789, 0.01071, 0.00341, - + 0.00205, 0.00714, 0.01099, - + 0.29589, 0.10508, 0.08454, 0.01047, 0.00337, - + 0.00203, 0.00696, 0.01070, - + 0.29089, 0.10305, 0.08141, 0.01024, 0.00332, - + 0.00201, 0.00679, 0.01043, - + 0.28598, 0.10107, 0.07851, 0.01003, 0.00325, - + 0.00202, 0.00666, 0.01021/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + 0.59534, 0.23939, 0.49902, 0.02282, 0.00042, - + 0.00018, 0.01168, 0.02250, - + 0.56379, 0.22244, 0.42506, 0.02112, 0.00140, - + 0.00008, 0.01138, 0.02121, - + 0.53589, 0.20867, 0.36764, 0.01984, 0.00205, - + 0.00002, 0.01098, 0.01982, - + 0.51144, 0.19677, 0.32171, 0.01871, 0.00241, - + 0.00012, 0.01057, 0.01869, - + 0.48959, 0.18650, 0.28472, 0.01768, 0.00266, - + 0.00011, 0.01015, 0.01760, - + 0.47013, 0.17734, 0.25413, 0.01671, 0.00281, - + 0.00038, 0.00978, 0.01663, - + 0.45250, 0.16908, 0.22862, 0.01579, 0.00295, - + 0.00070, 0.00939, 0.01579/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ - + 0.43618, 0.16174, 0.20716, 0.01506, 0.00299, - + 0.00093, 0.00899, 0.01504, - + 0.42117, 0.15513, 0.18875, 0.01438, 0.00302, - + 0.00105, 0.00867, 0.01429, - + 0.40746, 0.14898, 0.17286, 0.01367, 0.00303, - + 0.00113, 0.00840, 0.01364, - + 0.39478, 0.14329, 0.15924, 0.01304, 0.00299, - + 0.00124, 0.00806, 0.01314, - + 0.38281, 0.13816, 0.14722, 0.01255, 0.00297, - + 0.00127, 0.00775, 0.01258, - + 0.37166, 0.13345, 0.13668, 0.01206, 0.00294, - + 0.00136, 0.00748, 0.01204, - + 0.36127, 0.12909, 0.12737, 0.01157, 0.00292, - + 0.00147, 0.00725, 0.01154/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,21)/ - + 0.35167, 0.12498, 0.11910, 0.01103, 0.00288, - + 0.00145, 0.00701, 0.01110, - + 0.34263, 0.12114, 0.11170, 0.01055, 0.00286, - + 0.00146, 0.00680, 0.01072, - + 0.33404, 0.11755, 0.10502, 0.01014, 0.00285, - + 0.00148, 0.00662, 0.01039, - + 0.32579, 0.11416, 0.09899, 0.00979, 0.00278, - + 0.00150, 0.00643, 0.01009, - + 0.31796, 0.11098, 0.09354, 0.00949, 0.00270, - + 0.00153, 0.00623, 0.00982, - + 0.31059, 0.10805, 0.08861, 0.00923, 0.00266, - + 0.00152, 0.00604, 0.00945, - + 0.30365, 0.10532, 0.08412, 0.00899, 0.00264, - + 0.00149, 0.00588, 0.00906/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=22,30)/ - + 0.29707, 0.10265, 0.08003, 0.00871, 0.00258, - + 0.00148, 0.00570, 0.00876, - + 0.29085, 0.10008, 0.07629, 0.00843, 0.00251, - + 0.00147, 0.00553, 0.00850, - + 0.28489, 0.09765, 0.07285, 0.00815, 0.00245, - + 0.00146, 0.00537, 0.00826, - + 0.27917, 0.09534, 0.06970, 0.00788, 0.00242, - + 0.00144, 0.00524, 0.00805, - + 0.27373, 0.09316, 0.06678, 0.00762, 0.00239, - + 0.00142, 0.00511, 0.00784, - + 0.26830, 0.09112, 0.06406, 0.00746, 0.00236, - + 0.00140, 0.00497, 0.00766, - + 0.26312, 0.08918, 0.06153, 0.00731, 0.00232, - + 0.00138, 0.00484, 0.00749, - + 0.25823, 0.08732, 0.05916, 0.00714, 0.00229, - + 0.00136, 0.00472, 0.00732, - + 0.25366, 0.08552, 0.05691, 0.00692, 0.00225, - + 0.00134, 0.00462, 0.00711/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + 0.57038, 0.21745, 0.41500, 0.01696, 0.00040, - + 0.00009, 0.00872, 0.01694, - + 0.53597, 0.20103, 0.34829, 0.01565, 0.00108, - + 0.00011, 0.00847, 0.01582, - + 0.50635, 0.18752, 0.29731, 0.01465, 0.00146, - + 0.00016, 0.00811, 0.01477, - + 0.48055, 0.17599, 0.25749, 0.01377, 0.00185, - + 0.00011, 0.00786, 0.01355, - + 0.45790, 0.16586, 0.22562, 0.01285, 0.00201, - + 0.00012, 0.00748, 0.01286, - + 0.43781, 0.15692, 0.19976, 0.01202, 0.00212, - + 0.00032, 0.00713, 0.01223, - + 0.41956, 0.14909, 0.17854, 0.01132, 0.00220, - + 0.00047, 0.00688, 0.01152/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ - + 0.40281, 0.14215, 0.16077, 0.01078, 0.00221, - + 0.00064, 0.00659, 0.01090, - + 0.38761, 0.13577, 0.14558, 0.01024, 0.00218, - + 0.00076, 0.00628, 0.01043, - + 0.37382, 0.12996, 0.13253, 0.00971, 0.00216, - + 0.00082, 0.00601, 0.00994, - + 0.36111, 0.12480, 0.12123, 0.00919, 0.00216, - + 0.00096, 0.00580, 0.00940, - + 0.34910, 0.11997, 0.11168, 0.00874, 0.00215, - + 0.00095, 0.00556, 0.00903, - + 0.33795, 0.11555, 0.10328, 0.00837, 0.00213, - + 0.00097, 0.00537, 0.00860, - + 0.32761, 0.11149, 0.09586, 0.00804, 0.00210, - + 0.00103, 0.00520, 0.00817/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,21)/ - + 0.31794, 0.10758, 0.08933, 0.00772, 0.00207, - + 0.00104, 0.00503, 0.00792, - + 0.30891, 0.10400, 0.08348, 0.00741, 0.00204, - + 0.00106, 0.00486, 0.00765, - + 0.30042, 0.10071, 0.07819, 0.00712, 0.00202, - + 0.00109, 0.00468, 0.00734, - + 0.29250, 0.09759, 0.07352, 0.00680, 0.00198, - + 0.00109, 0.00450, 0.00711, - + 0.28508, 0.09465, 0.06934, 0.00648, 0.00193, - + 0.00106, 0.00434, 0.00692, - + 0.27788, 0.09193, 0.06552, 0.00627, 0.00190, - + 0.00106, 0.00421, 0.00663, - + 0.27104, 0.08940, 0.06205, 0.00612, 0.00188, - + 0.00106, 0.00411, 0.00631/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=22,30)/ - + 0.26458, 0.08700, 0.05886, 0.00592, 0.00185, - + 0.00106, 0.00400, 0.00609, - + 0.25848, 0.08473, 0.05594, 0.00570, 0.00180, - + 0.00107, 0.00389, 0.00593, - + 0.25268, 0.08255, 0.05328, 0.00552, 0.00176, - + 0.00106, 0.00378, 0.00577, - + 0.24713, 0.08044, 0.05086, 0.00539, 0.00173, - + 0.00104, 0.00368, 0.00562, - + 0.24187, 0.07846, 0.04862, 0.00526, 0.00170, - + 0.00102, 0.00358, 0.00547, - + 0.23682, 0.07661, 0.04656, 0.00510, 0.00166, - + 0.00101, 0.00347, 0.00529, - + 0.23201, 0.07486, 0.04465, 0.00493, 0.00162, - + 0.00101, 0.00337, 0.00513, - + 0.22740, 0.07319, 0.04287, 0.00480, 0.00159, - + 0.00100, 0.00327, 0.00497, - + 0.22292, 0.07158, 0.04118, 0.00472, 0.00158, - + 0.00100, 0.00318, 0.00481/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + 0.53982, 0.19616, 0.34313, 0.01276, 0.00017, - + -0.00011, 0.00637, 0.01246, - + 0.50377, 0.18025, 0.28390, 0.01176, 0.00074, - + -0.00002, 0.00609, 0.01152, - + 0.47323, 0.16705, 0.23944, 0.01085, 0.00114, - + -0.00005, 0.00586, 0.01062, - + 0.44688, 0.15581, 0.20518, 0.01008, 0.00132, - + -0.00008, 0.00561, 0.00991, - + 0.42362, 0.14638, 0.17825, 0.00947, 0.00142, - + 0.00001, 0.00536, 0.00922, - + 0.40324, 0.13798, 0.15677, 0.00883, 0.00148, - + 0.00015, 0.00509, 0.00870, - + 0.38490, 0.13062, 0.13904, 0.00821, 0.00155, - + 0.00028, 0.00488, 0.00821/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ - + 0.36823, 0.12401, 0.12423, 0.00777, 0.00161, - + 0.00036, 0.00467, 0.00772, - + 0.35316, 0.11804, 0.11188, 0.00736, 0.00160, - + 0.00050, 0.00446, 0.00734, - + 0.33947, 0.11270, 0.10147, 0.00690, 0.00156, - + 0.00061, 0.00428, 0.00707, - + 0.32678, 0.10788, 0.09258, 0.00656, 0.00156, - + 0.00058, 0.00407, 0.00666, - + 0.31508, 0.10333, 0.08484, 0.00612, 0.00155, - + 0.00061, 0.00390, 0.00641, - + 0.30423, 0.09923, 0.07811, 0.00587, 0.00150, - + 0.00064, 0.00374, 0.00610, - + 0.29415, 0.09551, 0.07221, 0.00574, 0.00142, - + 0.00067, 0.00359, 0.00577/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,21)/ - + 0.28473, 0.09200, 0.06703, 0.00541, 0.00142, - + 0.00068, 0.00346, 0.00563, - + 0.27593, 0.08879, 0.06243, 0.00518, 0.00141, - + 0.00068, 0.00333, 0.00539, - + 0.26765, 0.08583, 0.05834, 0.00505, 0.00141, - + 0.00069, 0.00322, 0.00504, - + 0.25998, 0.08300, 0.05470, 0.00484, 0.00138, - + 0.00069, 0.00310, 0.00485, - + 0.25283, 0.08032, 0.05144, 0.00460, 0.00133, - + 0.00068, 0.00298, 0.00475, - + 0.24601, 0.07784, 0.04848, 0.00440, 0.00131, - + 0.00069, 0.00290, 0.00457, - + 0.23958, 0.07552, 0.04581, 0.00423, 0.00130, - + 0.00071, 0.00282, 0.00437/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=22,30)/ - + 0.23346, 0.07332, 0.04338, 0.00409, 0.00127, - + 0.00070, 0.00273, 0.00423, - + 0.22767, 0.07124, 0.04117, 0.00397, 0.00122, - + 0.00068, 0.00263, 0.00411, - + 0.22219, 0.06930, 0.03914, 0.00385, 0.00119, - + 0.00066, 0.00255, 0.00399, - + 0.21699, 0.06748, 0.03728, 0.00374, 0.00118, - + 0.00065, 0.00249, 0.00384, - + 0.21206, 0.06576, 0.03557, 0.00363, 0.00116, - + 0.00065, 0.00244, 0.00370, - + 0.20729, 0.06412, 0.03402, 0.00351, 0.00114, - + 0.00066, 0.00235, 0.00359, - + 0.20276, 0.06256, 0.03258, 0.00339, 0.00112, - + 0.00066, 0.00227, 0.00349, - + 0.19841, 0.06108, 0.03124, 0.00331, 0.00110, - + 0.00066, 0.00220, 0.00338, - + 0.19415, 0.05965, 0.02998, 0.00330, 0.00106, - + 0.00063, 0.00213, 0.00325/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + 0.50564, 0.17447, 0.28121, 0.00901, 0.00030, - + 0.00011, 0.00477, 0.00900, - + 0.46853, 0.15947, 0.22961, 0.00830, 0.00064, - + 0.00013, 0.00454, 0.00828, - + 0.43760, 0.14689, 0.19140, 0.00759, 0.00092, - + 0.00013, 0.00431, 0.00767, - + 0.41080, 0.13659, 0.16242, 0.00713, 0.00101, - + 0.00008, 0.00412, 0.00702, - + 0.38776, 0.12762, 0.13990, 0.00656, 0.00108, - + 0.00010, 0.00394, 0.00656, - + 0.36746, 0.11983, 0.12194, 0.00611, 0.00115, - + 0.00018, 0.00371, 0.00617, - + 0.34933, 0.11291, 0.10749, 0.00566, 0.00118, - + 0.00031, 0.00351, 0.00597/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ - + 0.33311, 0.10679, 0.09551, 0.00524, 0.00119, - + 0.00041, 0.00333, 0.00565, - + 0.31841, 0.10138, 0.08554, 0.00495, 0.00115, - + 0.00043, 0.00317, 0.00522, - + 0.30496, 0.09650, 0.07721, 0.00473, 0.00110, - + 0.00047, 0.00302, 0.00493, - + 0.29273, 0.09203, 0.07003, 0.00455, 0.00112, - + 0.00057, 0.00289, 0.00463, - + 0.28131, 0.08802, 0.06391, 0.00426, 0.00107, - + 0.00049, 0.00271, 0.00445, - + 0.27084, 0.08429, 0.05862, 0.00406, 0.00105, - + 0.00046, 0.00260, 0.00424, - + 0.26123, 0.08084, 0.05401, 0.00391, 0.00105, - + 0.00047, 0.00252, 0.00403/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,21)/ - + 0.25230, 0.07778, 0.04995, 0.00367, 0.00104, - + 0.00050, 0.00242, 0.00386, - + 0.24400, 0.07490, 0.04638, 0.00349, 0.00101, - + 0.00052, 0.00232, 0.00369, - + 0.23622, 0.07216, 0.04322, 0.00335, 0.00096, - + 0.00053, 0.00220, 0.00353, - + 0.22881, 0.06966, 0.04042, 0.00330, 0.00094, - + 0.00050, 0.00210, 0.00336, - + 0.22182, 0.06735, 0.03791, 0.00329, 0.00094, - + 0.00044, 0.00201, 0.00319, - + 0.21540, 0.06517, 0.03566, 0.00315, 0.00090, - + 0.00045, 0.00194, 0.00304, - + 0.20942, 0.06313, 0.03363, 0.00297, 0.00085, - + 0.00048, 0.00186, 0.00291/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=22,30)/ - + 0.20372, 0.06117, 0.03177, 0.00284, 0.00083, - + 0.00047, 0.00180, 0.00283, - + 0.19831, 0.05932, 0.03007, 0.00274, 0.00081, - + 0.00045, 0.00174, 0.00278, - + 0.19314, 0.05759, 0.02853, 0.00268, 0.00080, - + 0.00043, 0.00170, 0.00270, - + 0.18814, 0.05598, 0.02714, 0.00266, 0.00079, - + 0.00044, 0.00167, 0.00260, - + 0.18342, 0.05446, 0.02586, 0.00265, 0.00078, - + 0.00044, 0.00164, 0.00250, - + 0.17911, 0.05301, 0.02468, 0.00250, 0.00075, - + 0.00042, 0.00157, 0.00238, - + 0.17503, 0.05165, 0.02359, 0.00236, 0.00072, - + 0.00041, 0.00151, 0.00227, - + 0.17112, 0.05034, 0.02257, 0.00224, 0.00070, - + 0.00040, 0.00146, 0.00218, - + 0.16731, 0.04907, 0.02165, 0.00217, 0.00069, - + 0.00040, 0.00143, 0.00214/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + 0.46841, 0.15439, 0.22920, 0.00661, 0.00010, - + -0.00009, 0.00336, 0.00641, - + 0.43142, 0.14002, 0.18482, 0.00595, 0.00041, - + -0.00004, 0.00312, 0.00598, - + 0.40037, 0.12846, 0.15226, 0.00553, 0.00057, - + -0.00001, 0.00304, 0.00538, - + 0.37425, 0.11870, 0.12804, 0.00497, 0.00072, - + -0.00002, 0.00286, 0.00501, - + 0.35158, 0.11039, 0.10930, 0.00458, 0.00081, - + 0.00003, 0.00270, 0.00476, - + 0.33180, 0.10323, 0.09469, 0.00419, 0.00079, - + 0.00009, 0.00255, 0.00443, - + 0.31419, 0.09693, 0.08287, 0.00393, 0.00079, - + 0.00019, 0.00243, 0.00413/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ - + 0.29834, 0.09139, 0.07319, 0.00376, 0.00083, - + 0.00021, 0.00228, 0.00385, - + 0.28417, 0.08645, 0.06518, 0.00352, 0.00084, - + 0.00021, 0.00216, 0.00364, - + 0.27138, 0.08204, 0.05847, 0.00328, 0.00082, - + 0.00024, 0.00210, 0.00341, - + 0.25953, 0.07812, 0.05285, 0.00328, 0.00081, - + 0.00027, 0.00200, 0.00306, - + 0.24888, 0.07448, 0.04807, 0.00299, 0.00077, - + 0.00029, 0.00185, 0.00295, - + 0.23906, 0.07111, 0.04391, 0.00281, 0.00074, - + 0.00032, 0.00175, 0.00285, - + 0.22998, 0.06801, 0.04029, 0.00270, 0.00071, - + 0.00035, 0.00170, 0.00276/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,21)/ - + 0.22152, 0.06524, 0.03716, 0.00258, 0.00068, - + 0.00033, 0.00164, 0.00261, - + 0.21365, 0.06268, 0.03441, 0.00248, 0.00066, - + 0.00030, 0.00157, 0.00248, - + 0.20629, 0.06030, 0.03197, 0.00241, 0.00067, - + 0.00028, 0.00148, 0.00236, - + 0.19948, 0.05807, 0.02982, 0.00231, 0.00066, - + 0.00030, 0.00142, 0.00228, - + 0.19317, 0.05599, 0.02790, 0.00220, 0.00065, - + 0.00034, 0.00137, 0.00222, - + 0.18723, 0.05405, 0.02618, 0.00211, 0.00062, - + 0.00033, 0.00132, 0.00213, - + 0.18166, 0.05225, 0.02463, 0.00203, 0.00058, - + 0.00032, 0.00127, 0.00203/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=22,30)/ - + 0.17634, 0.05056, 0.02324, 0.00197, 0.00055, - + 0.00031, 0.00122, 0.00193, - + 0.17129, 0.04898, 0.02197, 0.00191, 0.00053, - + 0.00032, 0.00117, 0.00184, - + 0.16656, 0.04749, 0.02082, 0.00185, 0.00051, - + 0.00031, 0.00113, 0.00177, - + 0.16214, 0.04608, 0.01976, 0.00177, 0.00050, - + 0.00029, 0.00107, 0.00174, - + 0.15797, 0.04475, 0.01880, 0.00170, 0.00048, - + 0.00028, 0.00103, 0.00171, - + 0.15399, 0.04350, 0.01791, 0.00162, 0.00049, - + 0.00028, 0.00102, 0.00162, - + 0.15022, 0.04231, 0.01710, 0.00155, 0.00049, - + 0.00028, 0.00102, 0.00154, - + 0.14660, 0.04119, 0.01634, 0.00151, 0.00049, - + 0.00028, 0.00101, 0.00148, - + 0.14304, 0.04010, 0.01564, 0.00151, 0.00048, - + 0.00029, 0.00098, 0.00144/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + 0.42958, 0.13472, 0.18513, 0.00441, 0.00012, - + 0.00002, 0.00241, 0.00465, - + 0.39290, 0.12161, 0.14710, 0.00409, 0.00032, - + 0.00005, 0.00229, 0.00412, - + 0.36258, 0.11093, 0.12004, 0.00379, 0.00047, - + 0.00001, 0.00223, 0.00376, - + 0.33696, 0.10200, 0.10001, 0.00347, 0.00052, - + 0.00003, 0.00207, 0.00344, - + 0.31532, 0.09448, 0.08478, 0.00308, 0.00061, - + 0.00003, 0.00190, 0.00325, - + 0.29625, 0.08797, 0.07277, 0.00291, 0.00063, - + 0.00011, 0.00173, 0.00302, - + 0.27936, 0.08231, 0.06323, 0.00278, 0.00058, - + 0.00018, 0.00165, 0.00280/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ - + 0.26432, 0.07737, 0.05554, 0.00261, 0.00056, - + 0.00018, 0.00157, 0.00260, - + 0.25078, 0.07296, 0.04924, 0.00250, 0.00053, - + 0.00016, 0.00148, 0.00243, - + 0.23866, 0.06898, 0.04401, 0.00237, 0.00050, - + 0.00016, 0.00138, 0.00229, - + 0.22798, 0.06535, 0.03954, 0.00216, 0.00054, - + 0.00020, 0.00134, 0.00217, - + 0.21793, 0.06218, 0.03581, 0.00199, 0.00051, - + 0.00023, 0.00128, 0.00207, - + 0.20878, 0.05928, 0.03260, 0.00187, 0.00049, - + 0.00025, 0.00123, 0.00195, - + 0.20041, 0.05662, 0.02981, 0.00178, 0.00049, - + 0.00025, 0.00117, 0.00182/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,21)/ - + 0.19252, 0.05416, 0.02740, 0.00170, 0.00047, - + 0.00024, 0.00107, 0.00177, - + 0.18519, 0.05191, 0.02530, 0.00168, 0.00044, - + 0.00022, 0.00100, 0.00168, - + 0.17833, 0.04982, 0.02347, 0.00170, 0.00041, - + 0.00021, 0.00098, 0.00155, - + 0.17206, 0.04789, 0.02185, 0.00165, 0.00039, - + 0.00020, 0.00093, 0.00146, - + 0.16628, 0.04610, 0.02041, 0.00157, 0.00039, - + 0.00020, 0.00088, 0.00139, - + 0.16084, 0.04442, 0.01910, 0.00149, 0.00039, - + 0.00020, 0.00085, 0.00134, - + 0.15575, 0.04284, 0.01792, 0.00142, 0.00039, - + 0.00021, 0.00082, 0.00128/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=22,30)/ - + 0.15099, 0.04138, 0.01688, 0.00136, 0.00038, - + 0.00020, 0.00081, 0.00119, - + 0.14653, 0.04002, 0.01594, 0.00130, 0.00037, - + 0.00019, 0.00079, 0.00108, - + 0.14231, 0.03874, 0.01508, 0.00123, 0.00037, - + 0.00019, 0.00076, 0.00104, - + 0.13831, 0.03752, 0.01429, 0.00116, 0.00037, - + 0.00021, 0.00073, 0.00107, - + 0.13455, 0.03639, 0.01356, 0.00109, 0.00038, - + 0.00022, 0.00069, 0.00110, - + 0.13084, 0.03532, 0.01291, 0.00110, 0.00036, - + 0.00022, 0.00069, 0.00104, - + 0.12733, 0.03431, 0.01231, 0.00111, 0.00035, - + 0.00022, 0.00069, 0.00098, - + 0.12404, 0.03335, 0.01175, 0.00110, 0.00033, - + 0.00022, 0.00068, 0.00093, - + 0.12097, 0.03242, 0.01124, 0.00105, 0.00032, - + 0.00021, 0.00066, 0.00090/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + 0.38999, 0.11667, 0.14838, 0.00300, 0.00012, - + 0.00008, 0.00162, 0.00311, - + 0.35446, 0.10457, 0.11647, 0.00276, 0.00026, - + 0.00009, 0.00155, 0.00295, - + 0.32527, 0.09486, 0.09408, 0.00247, 0.00034, - + 0.00000, 0.00138, 0.00263, - + 0.30099, 0.08682, 0.07764, 0.00232, 0.00035, - + 0.00002, 0.00134, 0.00243, - + 0.27998, 0.08008, 0.06523, 0.00213, 0.00034, - + 0.00004, 0.00121, 0.00232, - + 0.26194, 0.07433, 0.05564, 0.00202, 0.00032, - + 0.00004, 0.00112, 0.00216, - + 0.24616, 0.06927, 0.04809, 0.00190, 0.00033, - + 0.00007, 0.00105, 0.00199/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ - + 0.23211, 0.06487, 0.04197, 0.00183, 0.00035, - + 0.00010, 0.00102, 0.00178, - + 0.21962, 0.06100, 0.03699, 0.00174, 0.00034, - + 0.00011, 0.00097, 0.00164, - + 0.20843, 0.05754, 0.03290, 0.00159, 0.00034, - + 0.00011, 0.00090, 0.00157, - + 0.19840, 0.05443, 0.02950, 0.00139, 0.00035, - + 0.00012, 0.00084, 0.00147, - + 0.18914, 0.05163, 0.02660, 0.00138, 0.00031, - + 0.00012, 0.00082, 0.00125, - + 0.18053, 0.04906, 0.02412, 0.00141, 0.00030, - + 0.00012, 0.00079, 0.00115, - + 0.17258, 0.04671, 0.02199, 0.00146, 0.00032, - + 0.00013, 0.00074, 0.00113/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,21)/ - + 0.16548, 0.04459, 0.02017, 0.00133, 0.00029, - + 0.00011, 0.00067, 0.00111, - + 0.15901, 0.04264, 0.01857, 0.00121, 0.00028, - + 0.00010, 0.00063, 0.00106, - + 0.15309, 0.04083, 0.01717, 0.00109, 0.00028, - + 0.00009, 0.00061, 0.00100, - + 0.14742, 0.03918, 0.01594, 0.00106, 0.00028, - + 0.00010, 0.00060, 0.00096, - + 0.14207, 0.03766, 0.01485, 0.00107, 0.00029, - + 0.00013, 0.00059, 0.00094, - + 0.13719, 0.03622, 0.01387, 0.00102, 0.00027, - + 0.00013, 0.00056, 0.00087, - + 0.13267, 0.03488, 0.01300, 0.00095, 0.00026, - + 0.00013, 0.00054, 0.00079/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=22,30)/ - + 0.12836, 0.03364, 0.01222, 0.00090, 0.00024, - + 0.00012, 0.00052, 0.00075, - + 0.12427, 0.03248, 0.01152, 0.00087, 0.00024, - + 0.00010, 0.00050, 0.00075, - + 0.12046, 0.03138, 0.01089, 0.00082, 0.00023, - + 0.00010, 0.00049, 0.00074, - + 0.11691, 0.03034, 0.01030, 0.00076, 0.00022, - + 0.00011, 0.00047, 0.00073, - + 0.11357, 0.02936, 0.00977, 0.00070, 0.00021, - + 0.00012, 0.00046, 0.00072, - + 0.11035, 0.02844, 0.00928, 0.00068, 0.00021, - + 0.00013, 0.00045, 0.00067, - + 0.10732, 0.02758, 0.00883, 0.00066, 0.00020, - + 0.00013, 0.00043, 0.00062, - + 0.10441, 0.02676, 0.00842, 0.00065, 0.00020, - + 0.00012, 0.00042, 0.00058, - + 0.10158, 0.02599, 0.00804, 0.00065, 0.00021, - + 0.00012, 0.00040, 0.00058/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + 0.35013, 0.09987, 0.11775, 0.00200, 0.00009, - + 0.00000, 0.00109, 0.00221, - + 0.31588, 0.08894, 0.09112, 0.00186, 0.00018, - + 0.00002, 0.00108, 0.00202, - + 0.28834, 0.08020, 0.07267, 0.00169, 0.00021, - + 0.00001, 0.00095, 0.00185, - + 0.26535, 0.07305, 0.05939, 0.00152, 0.00026, - + -0.00006, 0.00090, 0.00164, - + 0.24571, 0.06704, 0.04944, 0.00149, 0.00028, - + -0.00002, 0.00085, 0.00146, - + 0.22904, 0.06187, 0.04191, 0.00133, 0.00029, - + 0.00003, 0.00081, 0.00135, - + 0.21441, 0.05747, 0.03592, 0.00124, 0.00029, - + 0.00005, 0.00075, 0.00127/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ - + 0.20153, 0.05363, 0.03120, 0.00111, 0.00026, - + 0.00006, 0.00070, 0.00113, - + 0.18991, 0.05023, 0.02738, 0.00109, 0.00025, - + 0.00008, 0.00066, 0.00101, - + 0.17951, 0.04718, 0.02419, 0.00107, 0.00026, - + 0.00008, 0.00063, 0.00096, - + 0.17032, 0.04446, 0.02156, 0.00103, 0.00021, - + 0.00003, 0.00056, 0.00084, - + 0.16185, 0.04205, 0.01938, 0.00097, 0.00025, - + 0.00006, 0.00054, 0.00081, - + 0.15414, 0.03988, 0.01752, 0.00092, 0.00024, - + 0.00008, 0.00052, 0.00077, - + 0.14711, 0.03791, 0.01592, 0.00088, 0.00022, - + 0.00010, 0.00050, 0.00074/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,21)/ - + 0.14067, 0.03610, 0.01456, 0.00087, 0.00022, - + 0.00009, 0.00047, 0.00065, - + 0.13485, 0.03443, 0.01337, 0.00079, 0.00021, - + 0.00009, 0.00045, 0.00064, - + 0.12956, 0.03288, 0.01232, 0.00062, 0.00020, - + 0.00010, 0.00042, 0.00070, - + 0.12453, 0.03147, 0.01141, 0.00057, 0.00019, - + 0.00011, 0.00041, 0.00067, - + 0.11982, 0.03019, 0.01061, 0.00058, 0.00018, - + 0.00013, 0.00041, 0.00059, - + 0.11539, 0.02898, 0.00990, 0.00057, 0.00019, - + 0.00012, 0.00040, 0.00057, - + 0.11126, 0.02785, 0.00926, 0.00056, 0.00020, - + 0.00010, 0.00039, 0.00056/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=22,30)/ - + 0.10747, 0.02680, 0.00868, 0.00052, 0.00020, - + 0.00010, 0.00037, 0.00054, - + 0.10396, 0.02582, 0.00817, 0.00047, 0.00019, - + 0.00012, 0.00035, 0.00051, - + 0.10065, 0.02490, 0.00770, 0.00043, 0.00018, - + 0.00013, 0.00034, 0.00049, - + 0.09752, 0.02404, 0.00728, 0.00039, 0.00019, - + 0.00013, 0.00034, 0.00047, - + 0.09458, 0.02323, 0.00689, 0.00035, 0.00019, - + 0.00013, 0.00034, 0.00046, - + 0.09173, 0.02248, 0.00654, 0.00033, 0.00019, - + 0.00012, 0.00033, 0.00044, - + 0.08905, 0.02178, 0.00622, 0.00032, 0.00018, - + 0.00011, 0.00033, 0.00043, - + 0.08650, 0.02112, 0.00592, 0.00031, 0.00018, - + 0.00011, 0.00032, 0.00041, - + 0.08405, 0.02046, 0.00565, 0.00032, 0.00018, - + 0.00012, 0.00031, 0.00040/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + 0.31124, 0.08458, 0.09254, 0.00129, 0.00001, - + -0.00001, 0.00072, 0.00151, - + 0.27903, 0.07491, 0.07080, 0.00127, 0.00012, - + -0.00003, 0.00065, 0.00126, - + 0.25311, 0.06717, 0.05584, 0.00114, 0.00012, - + -0.00004, 0.00061, 0.00116, - + 0.23188, 0.06082, 0.04518, 0.00102, 0.00012, - + -0.00004, 0.00052, 0.00108, - + 0.21360, 0.05558, 0.03736, 0.00111, 0.00016, - + -0.00002, 0.00053, 0.00093, - + 0.19836, 0.05116, 0.03141, 0.00090, 0.00016, - + -0.00001, 0.00051, 0.00088, - + 0.18490, 0.04734, 0.02678, 0.00089, 0.00017, - + 0.00001, 0.00049, 0.00076/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ - + 0.17299, 0.04401, 0.02314, 0.00094, 0.00018, - + 0.00002, 0.00043, 0.00064, - + 0.16256, 0.04109, 0.02019, 0.00084, 0.00017, - + 0.00001, 0.00039, 0.00061, - + 0.15339, 0.03852, 0.01776, 0.00069, 0.00015, - + 0.00001, 0.00037, 0.00059, - + 0.14510, 0.03619, 0.01577, 0.00066, 0.00017, - + 0.00005, 0.00036, 0.00055, - + 0.13751, 0.03412, 0.01412, 0.00058, 0.00017, - + 0.00004, 0.00033, 0.00052, - + 0.13062, 0.03227, 0.01272, 0.00057, 0.00016, - + 0.00003, 0.00032, 0.00048, - + 0.12437, 0.03061, 0.01153, 0.00058, 0.00015, - + 0.00004, 0.00031, 0.00043/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,21)/ - + 0.11880, 0.02903, 0.01052, 0.00050, 0.00015, - + 0.00005, 0.00030, 0.00039, - + 0.11365, 0.02761, 0.00964, 0.00043, 0.00015, - + 0.00006, 0.00029, 0.00038, - + 0.10883, 0.02633, 0.00887, 0.00037, 0.00015, - + 0.00006, 0.00028, 0.00040, - + 0.10437, 0.02516, 0.00819, 0.00035, 0.00014, - + 0.00005, 0.00026, 0.00038, - + 0.10025, 0.02407, 0.00759, 0.00034, 0.00012, - + 0.00005, 0.00025, 0.00034, - + 0.09632, 0.02306, 0.00706, 0.00036, 0.00012, - + 0.00006, 0.00024, 0.00034, - + 0.09264, 0.02212, 0.00659, 0.00039, 0.00012, - + 0.00007, 0.00022, 0.00035/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=22,30)/ - + 0.08930, 0.02125, 0.00618, 0.00037, 0.00012, - + 0.00007, 0.00022, 0.00034, - + 0.08623, 0.02045, 0.00580, 0.00033, 0.00012, - + 0.00008, 0.00021, 0.00033, - + 0.08333, 0.01970, 0.00546, 0.00030, 0.00012, - + 0.00008, 0.00021, 0.00031, - + 0.08057, 0.01898, 0.00516, 0.00026, 0.00013, - + 0.00007, 0.00020, 0.00030, - + 0.07799, 0.01831, 0.00487, 0.00023, 0.00013, - + 0.00006, 0.00019, 0.00029, - + 0.07552, 0.01769, 0.00462, 0.00023, 0.00012, - + 0.00006, 0.00019, 0.00028, - + 0.07319, 0.01711, 0.00439, 0.00024, 0.00011, - + 0.00006, 0.00018, 0.00027, - + 0.07099, 0.01655, 0.00418, 0.00023, 0.00010, - + 0.00006, 0.00018, 0.00025, - + 0.06890, 0.01602, 0.00398, 0.00023, 0.00010, - + 0.00006, 0.00018, 0.00024/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + 0.27326, 0.07070, 0.07180, 0.00086, 0.00006, - + 0.00000, 0.00045, 0.00100, - + 0.24339, 0.06224, 0.05426, 0.00079, 0.00001, - + -0.00005, 0.00042, 0.00087, - + 0.21990, 0.05546, 0.04238, 0.00056, 0.00004, - + -0.00002, 0.00037, 0.00084, - + 0.20020, 0.05006, 0.03394, 0.00067, 0.00009, - + -0.00005, 0.00034, 0.00061, - + 0.18355, 0.04550, 0.02785, 0.00079, 0.00008, - + -0.00004, 0.00032, 0.00057, - + 0.16963, 0.04169, 0.02327, 0.00065, 0.00006, - + -0.00004, 0.00027, 0.00055, - + 0.15763, 0.03844, 0.01970, 0.00054, 0.00007, - + -0.00003, 0.00025, 0.00050/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ - + 0.14713, 0.03559, 0.01691, 0.00048, 0.00011, - + -0.00001, 0.00025, 0.00045, - + 0.13779, 0.03310, 0.01468, 0.00048, 0.00011, - + 0.00001, 0.00025, 0.00039, - + 0.12939, 0.03095, 0.01287, 0.00049, 0.00008, - + 0.00000, 0.00023, 0.00033, - + 0.12185, 0.02904, 0.01138, 0.00052, 0.00007, - + -0.00002, 0.00020, 0.00032, - + 0.11532, 0.02727, 0.01015, 0.00039, 0.00009, - + 0.00000, 0.00021, 0.00037, - + 0.10936, 0.02572, 0.00912, 0.00033, 0.00009, - + 0.00001, 0.00020, 0.00034, - + 0.10391, 0.02434, 0.00824, 0.00030, 0.00008, - + 0.00003, 0.00019, 0.00029/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,21)/ - + 0.09888, 0.02304, 0.00749, 0.00031, 0.00010, - + 0.00003, 0.00021, 0.00031, - + 0.09427, 0.02187, 0.00684, 0.00030, 0.00010, - + 0.00003, 0.00020, 0.00031, - + 0.09002, 0.02081, 0.00628, 0.00028, 0.00008, - + 0.00002, 0.00017, 0.00029, - + 0.08619, 0.01984, 0.00579, 0.00022, 0.00007, - + 0.00003, 0.00015, 0.00028, - + 0.08270, 0.01895, 0.00536, 0.00016, 0.00007, - + 0.00004, 0.00014, 0.00026, - + 0.07935, 0.01811, 0.00498, 0.00017, 0.00008, - + 0.00005, 0.00014, 0.00024, - + 0.07620, 0.01734, 0.00464, 0.00020, 0.00008, - + 0.00005, 0.00015, 0.00022/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=22,30)/ - + 0.07330, 0.01662, 0.00434, 0.00020, 0.00008, - + 0.00005, 0.00015, 0.00021, - + 0.07062, 0.01597, 0.00406, 0.00019, 0.00008, - + 0.00005, 0.00014, 0.00021, - + 0.06809, 0.01535, 0.00382, 0.00018, 0.00008, - + 0.00004, 0.00014, 0.00020, - + 0.06569, 0.01477, 0.00360, 0.00017, 0.00008, - + 0.00004, 0.00014, 0.00020, - + 0.06344, 0.01424, 0.00340, 0.00016, 0.00008, - + 0.00003, 0.00013, 0.00019, - + 0.06136, 0.01372, 0.00322, 0.00015, 0.00008, - + 0.00003, 0.00013, 0.00018, - + 0.05940, 0.01324, 0.00306, 0.00014, 0.00007, - + 0.00003, 0.00012, 0.00017, - + 0.05754, 0.01279, 0.00291, 0.00014, 0.00007, - + 0.00003, 0.00012, 0.00016, - + 0.05574, 0.01238, 0.00277, 0.00015, 0.00006, - + 0.00003, 0.00011, 0.00015/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + 0.23711, 0.05849, 0.05512, 0.00056, -0.00005, - + -0.00006, 0.00024, 0.00060, - + 0.20980, 0.05103, 0.04103, 0.00064, -0.00001, - + -0.00007, 0.00026, 0.00054, - + 0.18800, 0.04525, 0.03160, 0.00065, -0.00001, - + -0.00008, 0.00022, 0.00040, - + 0.17049, 0.04054, 0.02511, 0.00054, 0.00004, - + -0.00005, 0.00020, 0.00034, - + 0.15591, 0.03671, 0.02042, 0.00037, 0.00007, - + -0.00005, 0.00021, 0.00035, - + 0.14341, 0.03348, 0.01690, 0.00039, 0.00008, - + -0.00001, 0.00022, 0.00033, - + 0.13272, 0.03074, 0.01424, 0.00030, 0.00009, - + -0.00001, 0.00019, 0.00031/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ - + 0.12338, 0.02838, 0.01216, 0.00024, 0.00009, - + -0.00002, 0.00017, 0.00029, - + 0.11505, 0.02630, 0.01050, 0.00028, 0.00010, - + 0.00001, 0.00017, 0.00028, - + 0.10776, 0.02446, 0.00916, 0.00027, 0.00010, - + 0.00001, 0.00016, 0.00026, - + 0.10131, 0.02286, 0.00807, 0.00019, 0.00005, - + -0.00002, 0.00014, 0.00027, - + 0.09551, 0.02145, 0.00717, 0.00017, 0.00006, - + 0.00002, 0.00015, 0.00026, - + 0.09029, 0.02017, 0.00642, 0.00014, 0.00008, - + 0.00004, 0.00015, 0.00024, - + 0.08558, 0.01900, 0.00578, 0.00011, 0.00009, - + 0.00004, 0.00014, 0.00021/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,21)/ - + 0.08125, 0.01797, 0.00524, 0.00009, 0.00008, - + 0.00004, 0.00014, 0.00019, - + 0.07726, 0.01704, 0.00477, 0.00011, 0.00008, - + 0.00004, 0.00014, 0.00018, - + 0.07353, 0.01618, 0.00437, 0.00016, 0.00008, - + 0.00004, 0.00013, 0.00016, - + 0.07022, 0.01538, 0.00402, 0.00013, 0.00007, - + 0.00004, 0.00012, 0.00016, - + 0.06724, 0.01465, 0.00371, 0.00007, 0.00006, - + 0.00003, 0.00011, 0.00016, - + 0.06434, 0.01397, 0.00344, 0.00010, 0.00007, - + 0.00003, 0.00011, 0.00014, - + 0.06163, 0.01334, 0.00320, 0.00015, 0.00007, - + 0.00003, 0.00012, 0.00011/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=22,30)/ - + 0.05918, 0.01276, 0.00299, 0.00014, 0.00006, - + 0.00003, 0.00011, 0.00011, - + 0.05694, 0.01223, 0.00280, 0.00010, 0.00005, - + 0.00003, 0.00009, 0.00011, - + 0.05483, 0.01174, 0.00263, 0.00008, 0.00004, - + 0.00003, 0.00008, 0.00011, - + 0.05283, 0.01128, 0.00248, 0.00007, 0.00005, - + 0.00002, 0.00008, 0.00010, - + 0.05095, 0.01086, 0.00234, 0.00006, 0.00005, - + 0.00002, 0.00008, 0.00010, - + 0.04917, 0.01045, 0.00221, 0.00007, 0.00005, - + 0.00002, 0.00008, 0.00010, - + 0.04750, 0.01006, 0.00209, 0.00007, 0.00005, - + 0.00002, 0.00008, 0.00009, - + 0.04593, 0.00970, 0.00199, 0.00007, 0.00005, - + 0.00002, 0.00008, 0.00009, - + 0.04448, 0.00937, 0.00189, 0.00006, 0.00005, - + 0.00002, 0.00007, 0.00008/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + 0.20310, 0.04755, 0.04156, 0.00039, 0.00000, - + -0.00003, 0.00018, 0.00034, - + 0.17846, 0.04117, 0.03051, 0.00038, -0.00002, - + -0.00006, 0.00014, 0.00034, - + 0.15891, 0.03628, 0.02325, 0.00043, 0.00004, - + -0.00003, 0.00014, 0.00032, - + 0.14341, 0.03236, 0.01828, 0.00027, 0.00006, - + -0.00006, 0.00013, 0.00025, - + 0.13041, 0.02914, 0.01472, 0.00023, 0.00008, - + -0.00004, 0.00015, 0.00018, - + 0.11941, 0.02646, 0.01211, 0.00021, 0.00007, - + -0.00002, 0.00015, 0.00018, - + 0.11003, 0.02418, 0.01014, 0.00018, 0.00006, - + -0.00001, 0.00014, 0.00017/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ - + 0.10185, 0.02223, 0.00860, 0.00016, 0.00005, - + 0.00000, 0.00014, 0.00018, - + 0.09467, 0.02054, 0.00739, 0.00015, 0.00006, - + 0.00002, 0.00013, 0.00017, - + 0.08836, 0.01906, 0.00642, 0.00015, 0.00007, - + 0.00002, 0.00011, 0.00015, - + 0.08281, 0.01775, 0.00563, 0.00015, 0.00007, - + 0.00004, 0.00010, 0.00014, - + 0.07777, 0.01659, 0.00499, 0.00012, 0.00008, - + 0.00003, 0.00010, 0.00015, - + 0.07329, 0.01555, 0.00445, 0.00009, 0.00008, - + 0.00003, 0.00010, 0.00013, - + 0.06929, 0.01462, 0.00399, 0.00007, 0.00007, - + 0.00003, 0.00010, 0.00011/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,21)/ - + 0.06561, 0.01376, 0.00361, 0.00007, 0.00007, - + 0.00003, 0.00010, 0.00010, - + 0.06227, 0.01299, 0.00328, 0.00006, 0.00006, - + 0.00003, 0.00009, 0.00010, - + 0.05923, 0.01232, 0.00300, 0.00003, 0.00006, - + 0.00003, 0.00009, 0.00011, - + 0.05642, 0.01169, 0.00275, 0.00003, 0.00006, - + 0.00003, 0.00008, 0.00009, - + 0.05382, 0.01111, 0.00254, 0.00004, 0.00005, - + 0.00002, 0.00008, 0.00007, - + 0.05139, 0.01058, 0.00235, 0.00005, 0.00005, - + 0.00002, 0.00008, 0.00007, - + 0.04915, 0.01009, 0.00218, 0.00007, 0.00005, - + 0.00003, 0.00008, 0.00007/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=22,30)/ - + 0.04711, 0.00964, 0.00203, 0.00006, 0.00005, - + 0.00003, 0.00007, 0.00007, - + 0.04523, 0.00921, 0.00190, 0.00004, 0.00004, - + 0.00003, 0.00007, 0.00008, - + 0.04347, 0.00882, 0.00178, 0.00002, 0.00004, - + 0.00003, 0.00006, 0.00008, - + 0.04179, 0.00846, 0.00168, 0.00002, 0.00004, - + 0.00003, 0.00006, 0.00007, - + 0.04023, 0.00813, 0.00158, 0.00002, 0.00004, - + 0.00002, 0.00006, 0.00006, - + 0.03877, 0.00781, 0.00149, 0.00002, 0.00004, - + 0.00003, 0.00006, 0.00006, - + 0.03739, 0.00752, 0.00141, 0.00002, 0.00004, - + 0.00003, 0.00006, 0.00006, - + 0.03610, 0.00724, 0.00134, 0.00002, 0.00004, - + 0.00003, 0.00006, 0.00006, - + 0.03488, 0.00698, 0.00127, 0.00002, 0.00004, - + 0.00003, 0.00005, 0.00005/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + 0.17186, 0.03817, 0.03100, 0.00032, -0.00007, - + -0.00011, 0.00003, 0.00019, - + 0.15006, 0.03291, 0.02245, 0.00024, -0.00003, - + -0.00007, 0.00005, 0.00023, - + 0.13281, 0.02879, 0.01693, 0.00031, -0.00001, - + -0.00010, 0.00005, 0.00012, - + 0.11928, 0.02552, 0.01320, 0.00012, 0.00000, - + -0.00007, 0.00006, 0.00017, - + 0.10781, 0.02290, 0.01056, 0.00017, 0.00002, - + -0.00004, 0.00008, 0.00015, - + 0.09828, 0.02069, 0.00862, 0.00016, 0.00002, - + -0.00004, 0.00006, 0.00012, - + 0.09017, 0.01885, 0.00717, 0.00012, 0.00002, - + -0.00005, 0.00005, 0.00010/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ - + 0.08315, 0.01726, 0.00605, 0.00013, 0.00003, - + -0.00003, 0.00005, 0.00009, - + 0.07707, 0.01588, 0.00518, 0.00013, 0.00002, - + -0.00002, 0.00005, 0.00007, - + 0.07177, 0.01469, 0.00448, 0.00009, 0.00002, - + -0.00002, 0.00005, 0.00006, - + 0.06697, 0.01364, 0.00392, 0.00010, 0.00004, - + 0.00001, 0.00006, 0.00008, - + 0.06277, 0.01271, 0.00346, 0.00005, 0.00005, - + 0.00001, 0.00007, 0.00009, - + 0.05902, 0.01188, 0.00307, 0.00003, 0.00005, - + 0.00001, 0.00006, 0.00009, - + 0.05564, 0.01114, 0.00276, 0.00001, 0.00004, - + 0.00001, 0.00006, 0.00009/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,21)/ - + 0.05249, 0.01048, 0.00248, 0.00003, 0.00003, - + 0.00001, 0.00004, 0.00008, - + 0.04967, 0.00988, 0.00225, 0.00004, 0.00003, - + 0.00001, 0.00004, 0.00007, - + 0.04715, 0.00932, 0.00205, 0.00003, 0.00003, - + 0.00001, 0.00004, 0.00005, - + 0.04480, 0.00882, 0.00188, 0.00004, 0.00003, - + 0.00001, 0.00004, 0.00005, - + 0.04263, 0.00837, 0.00173, 0.00004, 0.00003, - + 0.00001, 0.00004, 0.00006, - + 0.04066, 0.00796, 0.00160, 0.00003, 0.00003, - + 0.00001, 0.00004, 0.00005, - + 0.03886, 0.00758, 0.00148, 0.00002, 0.00003, - + 0.00001, 0.00004, 0.00004/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=22,30)/ - + 0.03716, 0.00722, 0.00138, 0.00003, 0.00003, - + 0.00001, 0.00004, 0.00003, - + 0.03557, 0.00690, 0.00129, 0.00005, 0.00003, - + 0.00001, 0.00004, 0.00003, - + 0.03411, 0.00660, 0.00121, 0.00004, 0.00003, - + 0.00001, 0.00003, 0.00002, - + 0.03276, 0.00632, 0.00113, 0.00002, 0.00002, - + 0.00001, 0.00003, 0.00003, - + 0.03151, 0.00606, 0.00107, 0.00000, 0.00001, - + 0.00001, 0.00003, 0.00004, - + 0.03031, 0.00581, 0.00101, 0.00001, 0.00002, - + 0.00001, 0.00003, 0.00003, - + 0.02919, 0.00558, 0.00095, 0.00001, 0.00002, - + 0.00001, 0.00003, 0.00003, - + 0.02814, 0.00537, 0.00090, 0.00002, 0.00002, - + 0.00001, 0.00003, 0.00003, - + 0.02715, 0.00517, 0.00085, 0.00002, 0.00002, - + 0.00001, 0.00003, 0.00003/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + 0.14290, 0.03000, 0.02260, 0.00013, -0.00004, - + -0.00003, 0.00004, 0.00016, - + 0.12394, 0.02568, 0.01617, 0.00017, -0.00002, - + -0.00003, 0.00005, 0.00012, - + 0.10912, 0.02238, 0.01211, 0.00014, -0.00003, - + -0.00003, 0.00001, 0.00012, - + 0.09734, 0.01978, 0.00935, 0.00017, 0.00000, - + -0.00001, 0.00003, 0.00007, - + 0.08765, 0.01764, 0.00743, 0.00013, 0.00002, - + 0.00000, 0.00004, 0.00011, - + 0.07961, 0.01589, 0.00603, 0.00010, 0.00001, - + -0.00001, 0.00003, 0.00010, - + 0.07279, 0.01441, 0.00499, 0.00006, 0.00001, - + -0.00001, 0.00003, 0.00009/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ - + 0.06685, 0.01316, 0.00419, 0.00007, 0.00000, - + -0.00001, 0.00003, 0.00007, - + 0.06174, 0.01207, 0.00356, 0.00007, 0.00001, - + -0.00001, 0.00003, 0.00005, - + 0.05730, 0.01113, 0.00307, 0.00005, 0.00001, - + -0.00001, 0.00003, 0.00004, - + 0.05330, 0.01031, 0.00268, 0.00006, 0.00000, - + -0.00001, 0.00001, 0.00005, - + 0.04978, 0.00958, 0.00235, 0.00007, 0.00001, - + 0.00000, 0.00002, 0.00005, - + 0.04666, 0.00893, 0.00209, 0.00005, 0.00001, - + 0.00000, 0.00002, 0.00005, - + 0.04389, 0.00836, 0.00186, 0.00002, 0.00001, - + -0.00001, 0.00002, 0.00005/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,21)/ - + 0.04132, 0.00784, 0.00168, 0.00004, 0.00001, - + 0.00000, 0.00002, 0.00005, - + 0.03901, 0.00737, 0.00152, 0.00004, 0.00001, - + 0.00000, 0.00002, 0.00005, - + 0.03692, 0.00695, 0.00138, 0.00003, 0.00000, - + -0.00001, 0.00001, 0.00004, - + 0.03501, 0.00656, 0.00126, 0.00003, 0.00000, - + -0.00001, 0.00001, 0.00004, - + 0.03327, 0.00621, 0.00116, 0.00003, 0.00001, - + 0.00000, 0.00002, 0.00003, - + 0.03164, 0.00590, 0.00107, 0.00004, 0.00001, - + 0.00000, 0.00002, 0.00003, - + 0.03013, 0.00561, 0.00099, 0.00005, 0.00001, - + 0.00000, 0.00002, 0.00003/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=22,30)/ - + 0.02876, 0.00533, 0.00092, 0.00005, 0.00001, - + 0.00000, 0.00001, 0.00003, - + 0.02751, 0.00508, 0.00086, 0.00004, 0.00000, - + 0.00000, 0.00001, 0.00002, - + 0.02634, 0.00485, 0.00080, 0.00003, 0.00000, - + 0.00000, 0.00001, 0.00002, - + 0.02524, 0.00463, 0.00075, 0.00004, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.02423, 0.00444, 0.00071, 0.00004, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.02327, 0.00425, 0.00067, 0.00004, 0.00000, - + 0.00000, 0.00001, 0.00002, - + 0.02237, 0.00408, 0.00063, 0.00004, 0.00000, - + 0.00000, 0.00001, 0.00002, - + 0.02153, 0.00391, 0.00059, 0.00004, 0.00000, - + 0.00000, 0.00001, 0.00002, - + 0.02074, 0.00376, 0.00056, 0.00003, 0.00000, - + 0.00000, 0.00001, 0.00002/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + 0.09392, 0.01751, 0.01129, 0.00004, 0.00000, - + -0.00001, 0.00001, 0.00006, - + 0.08028, 0.01476, 0.00785, 0.00001, 0.00000, - + -0.00001, 0.00001, 0.00004, - + 0.06974, 0.01268, 0.00572, 0.00003, 0.00000, - + -0.00001, 0.00001, 0.00002, - + 0.06147, 0.01106, 0.00432, 0.00002, 0.00001, - + -0.00001, 0.00002, 0.00000, - + 0.05476, 0.00977, 0.00337, 0.00002, 0.00000, - + -0.00001, 0.00001, 0.00001, - + 0.04920, 0.00871, 0.00270, 0.00003, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.04458, 0.00782, 0.00220, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00001/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ - + 0.04063, 0.00708, 0.00183, 0.00000, 0.00001, - + 0.00000, 0.00002, 0.00001, - + 0.03720, 0.00644, 0.00154, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.03423, 0.00589, 0.00131, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.03165, 0.00541, 0.00113, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02936, 0.00500, 0.00099, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.02732, 0.00464, 0.00087, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02549, 0.00431, 0.00078, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00001/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,21)/ - + 0.02387, 0.00402, 0.00069, 0.00002, 0.00001, - + 0.00001, 0.00001, 0.00001, - + 0.02242, 0.00376, 0.00063, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00001, - + 0.02112, 0.00353, 0.00057, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01994, 0.00331, 0.00052, -0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01886, 0.00312, 0.00047, -0.00001, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.01786, 0.00294, 0.00043, 0.00000, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.01693, 0.00278, 0.00040, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00001/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=22,30)/ - + 0.01609, 0.00264, 0.00037, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.01532, 0.00250, 0.00034, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01461, 0.00238, 0.00032, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01395, 0.00227, 0.00030, 0.00000, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.01333, 0.00216, 0.00028, 0.00000, 0.00000, - + 0.00000, 0.00001, 0.00000, - + 0.01276, 0.00206, 0.00026, 0.00000, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.01223, 0.00197, 0.00025, -0.00001, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.01174, 0.00188, 0.00024, -0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01126, 0.00180, 0.00022, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + 0.05694, 0.00929, 0.00511, 0.00001, -0.00001, - + -0.00002, -0.00002, 0.00002, - + 0.04783, 0.00771, 0.00343, 0.00002, -0.00001, - + -0.00002, 0.00000, -0.00001, - + 0.04090, 0.00653, 0.00244, 0.00005, 0.00000, - + -0.00001, 0.00001, 0.00001, - + 0.03566, 0.00562, 0.00181, -0.00002, 0.00000, - + -0.00001, 0.00000, 0.00002, - + 0.03139, 0.00490, 0.00138, -0.00001, 0.00000, - + -0.00001, 0.00000, 0.00002, - + 0.02790, 0.00433, 0.00109, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02499, 0.00385, 0.00088, 0.00002, 0.00000, - + 0.00000, 0.00001, 0.00000/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ - + 0.02257, 0.00345, 0.00072, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.02050, 0.00311, 0.00060, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01871, 0.00282, 0.00051, -0.00001, 0.00000, - + -0.00001, 0.00000, 0.00001, - + 0.01715, 0.00258, 0.00043, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01580, 0.00236, 0.00038, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01461, 0.00217, 0.00033, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01356, 0.00201, 0.00029, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,21)/ - + 0.01262, 0.00186, 0.00026, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01178, 0.00173, 0.00023, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01102, 0.00161, 0.00021, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01035, 0.00150, 0.00019, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00974, 0.00141, 0.00017, -0.00001, 0.00000, - + 0.00000, 0.00001, 0.00000, - + 0.00918, 0.00132, 0.00016, -0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00866, 0.00125, 0.00015, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=22,30)/ - + 0.00819, 0.00118, 0.00014, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00776, 0.00111, 0.00013, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00736, 0.00105, 0.00012, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00699, 0.00100, 0.00011, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00665, 0.00095, 0.00010, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00634, 0.00090, 0.00010, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00605, 0.00086, 0.00009, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00578, 0.00082, 0.00008, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00554, 0.00078, 0.00008, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + 0.03072, 0.00431, 0.00199, 0.00001, -0.00001, - + 0.00000, -0.00001, 0.00000, - + 0.02536, 0.00350, 0.00130, 0.00001, -0.00001, - + 0.00000, 0.00000, 0.00001, - + 0.02139, 0.00293, 0.00089, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01834, 0.00248, 0.00065, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01594, 0.00214, 0.00049, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01401, 0.00187, 0.00038, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01243, 0.00164, 0.00030, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ - + 0.01110, 0.00146, 0.00024, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00998, 0.00130, 0.00020, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00903, 0.00117, 0.00017, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00821, 0.00106, 0.00014, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00751, 0.00096, 0.00012, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00689, 0.00088, 0.00011, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00634, 0.00081, 0.00009, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,21)/ - + 0.00586, 0.00074, 0.00008, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00544, 0.00069, 0.00008, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00506, 0.00064, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00472, 0.00059, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00441, 0.00055, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00413, 0.00051, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00388, 0.00048, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=22,30)/ - + 0.00365, 0.00045, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00344, 0.00042, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00325, 0.00040, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00308, 0.00038, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00291, 0.00036, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00276, 0.00034, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00263, 0.00032, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00250, 0.00030, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00238, 0.00029, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + 0.01416, 0.00165, 0.00063, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01143, 0.00132, 0.00039, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00945, 0.00108, 0.00026, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00796, 0.00090, 0.00019, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00682, 0.00076, 0.00014, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00590, 0.00065, 0.00010, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00516, 0.00057, 0.00008, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ - + 0.00455, 0.00050, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00405, 0.00044, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00363, 0.00039, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00327, 0.00035, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00296, 0.00032, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00269, 0.00029, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00245, 0.00026, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,21)/ - + 0.00225, 0.00024, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00207, 0.00022, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00191, 0.00020, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00177, 0.00018, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00164, 0.00017, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00153, 0.00016, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00143, 0.00015, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=22,30)/ - + 0.00133, 0.00014, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00125, 0.00013, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00117, 0.00012, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00110, 0.00011, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00104, 0.00011, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00098, 0.00010, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00093, 0.00009, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00088, 0.00009, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00083, 0.00008, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + 0.00114, 0.00008, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00087, 0.00006, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00068, 0.00004, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00055, 0.00004, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00045, 0.00003, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00037, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00032, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ - + 0.00027, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00023, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00020, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00018, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00016, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00014, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,21)/ - + 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00010, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00006, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=22,30)/ - + 0.00005, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00005, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00005, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00004, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00004, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00004, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00003, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00003, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00003, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,2.6844D9/ - DATA N0/2,5,4,5,0,0,5,5/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - XSAVE=X -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,30 -C READ(89,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7) GO TO 31 - DO 30 K=1,30 - 30 F(I,J,K)= LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,30 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,8 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) -C - X=XSAVE -C - RETURN - END diff --git a/PDF/spdf/sfms105.F b/PDF/spdf/sfms105.F deleted file mode 100644 index f4a391efbca..00000000000 --- a/PDF/spdf/sfms105.F +++ /dev/null @@ -1,1970 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE SFMS105(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) -C -C THIS IS THE alphas=0.105 FIT -- May 1995 -- standard Q^2 range -C -#include "pdf/impdp.inc" -C - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,20),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + .00429, .00751, 15.24004, 1.49785, .15273, - + .00000, .79608, 1.50215, - + .00467, .00773, 25.09024, 1.75664, .42720, - + .00000, 1.06366, 1.76153, - + .00502, .00793, 36.47660, 2.06438, .74880, - + .00000, 1.37920, 2.06981, - + .00535, .00812, 49.44331, 2.41480, 1.11165, - + .08323, 1.73663, 2.42071, - + .00567, .00830, 63.80544, 2.80662, 1.51481, - + .44671, 2.13487, 2.81299, - + .00597, .00847, 79.39906, 3.23736, 1.95598, - + .90575, 2.57152, 3.24417, - + .00626, .00864, 96.07378, 3.70368, 2.43195, - + 1.39154, 3.04333, 3.71090 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ - + .00654, .00879, 113.71258, 4.20263, 2.93990, - + 1.90982, 3.54740, 4.21025, - + .00681, .00895, 132.22623, 4.73181, 3.47749, - + 2.45670, 4.08138, 4.73980, - + .00708, .00910, 151.55020, 5.28940, 4.04297, - + 3.03096, 4.64347, 5.29775, - + .00733, .00924, 171.42918, 5.87117, 4.63218, - + 3.62840, 5.22951, 5.87986, - + .00758, .00938, 191.81004, 6.47485, 5.24292, - + 4.24688, 5.83724, 6.48388, - + .00782, .00952, 212.84419, 7.10212, 5.87686, - + 4.88814, 6.46833, 7.11146, - + .00806, .00965, 234.20511, 7.74732, 6.52842, - + 5.54663, 7.11719, 7.75697 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ - + .00829, .00978, 255.89407, 8.40938, 7.19654, - + 6.22134, 7.78273, 8.41933, - + .00851, .00990, 278.10541, 9.09163, 7.88457, - + 6.91563, 8.46831, 9.10187, - + .00873, .01003, 300.25491, 9.78245, 8.58094, - + 7.61799, 9.16234, 9.79297, - + .00895, .01015, 323.02802, 10.49473, 9.29853, - + 8.34129, 9.87768, 10.50552, - + .00916, .01026, 345.52124, 11.21006, 10.01898, - + 9.06721, 10.59597, 11.22112 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + .00649, .00944, 13.36316, 1.31543, .13108, - + .00000, .69578, 1.31921, - + .00701, .00974, 21.36941, 1.52902, .35885, - + .00000, .91715, 1.53317, - + .00749, .01001, 30.39042, 1.77845, .62082, - + .00000, 1.17349, 1.78295, - + .00794, .01027, 40.44909, 2.05823, .91184, - + .06642, 1.45947, 2.06304, - + .00837, .01051, 51.38906, 2.36683, 1.23068, - + .35422, 1.77373, 2.37194, - + .00879, .01074, 63.07763, 2.70191, 1.57517, - + .71372, 2.11401, 2.70730, - + .00919, .01096, 75.39803, 3.06057, 1.94255, - + 1.08958, 2.47751, 3.06623 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ - + .00957, .01118, 88.26244, 3.44038, 2.33047, - + 1.48635, 2.86182, 3.44629, - + .00994, .01138, 101.60588, 3.83936, 2.73703, - + 1.90088, 3.26501, 3.84551, - + .01030, .01158, 115.38318, 4.25605, 3.16083, - + 2.33221, 3.68566, 4.26243, - + .01064, .01178, 129.41080, 4.68718, 3.59867, - + 2.77710, 4.12053, 4.69378, - + .01098, .01196, 143.65585, 5.13108, 4.04891, - + 3.23398, 4.56796, 5.13789, - + .01131, .01214, 158.23265, 5.58901, 4.51285, - + 3.70419, 5.02924, 5.59602, - + .01162, .01232, 172.91071, 6.05676, 4.98632, - + 4.18361, 5.50019, 6.06397 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ - + .01193, .01249, 187.69673, 6.53361, 5.46862, - + 4.67155, 5.98008, 6.54101, - + .01224, .01265, 202.73286, 7.02206, 5.96226, - + 5.17057, 6.47144, 7.02965, - + .01253, .01282, 217.61276, 7.51363, 6.45881, - + 5.67225, 6.96580, 7.52139, - + .01282, .01298, 232.82140, 8.01782, 6.96776, - + 6.18609, 7.47266, 8.02576, - + .01310, .01313, 247.73346, 8.52126, 7.47579, - + 6.69882, 7.97867, 8.52936 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + .00963, .01187, 11.71559, 1.15438, .11239, - + .00000, .60791, 1.15784, - + .01034, .01227, 18.19607, 1.33000, .30088, - + .00000, .79048, 1.33370, - + .01101, .01264, 25.31227, 1.53130, .51355, - + .00000, .99792, 1.53521, - + .01163, .01299, 33.07971, 1.75362, .74607, - + .05280, 1.22575, 1.75773, - + .01222, .01332, 41.37315, 1.99547, .99719, - + .27979, 1.47263, 1.99977, - + .01279, .01363, 50.09064, 2.25478, 1.26503, - + .56021, 1.73656, 2.25925, - + .01333, .01393, 59.14583, 2.52919, 1.54732, - + .84980, 2.01524, 2.53382 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ - + .01385, .01421, 68.47643, 2.81673, 1.84220, - + 1.15224, 2.30676, 2.82151, - + .01436, .01449, 78.03844, 3.11588, 2.14821, - + 1.46507, 2.60964, 3.12081, - + .01484, .01475, 87.80267, 3.42552, 2.46428, - + 1.78758, 2.92278, 3.43060, - + .01531, .01501, 97.63992, 3.74320, 2.78802, - + 2.11735, 3.24375, 3.74841, - + .01577, .01526, 107.53239, 4.06770, 3.11825, - + 2.45327, 3.57137, 4.07304, - + .01621, .01550, 117.56750, 4.40005, 3.45602, - + 2.79640, 3.90667, 4.40552, - + .01664, .01573, 127.58436, 4.73715, 3.79828, - + 3.14374, 4.24658, 4.74273 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ - + .01706, .01596, 137.59335, 5.07853, 4.14458, - + 3.49487, 4.59064, 5.08423, - + .01747, .01617, 147.69920, 5.42611, 4.49684, - + 3.85172, 4.94077, 5.43192, - + .01786, .01639, 157.62035, 5.77373, 4.84895, - + 4.20822, 5.29084, 5.77965, - + .01825, .01660, 167.70047, 6.12840, 5.20792, - + 4.57137, 5.64786, 6.13443, - + .01863, .01680, 177.50833, 6.48048, 5.56412, - + 4.93159, 6.00218, 6.48660 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + .01205, .01357, 10.84625, 1.06891, .10267, - + .00000, .56160, 1.07232, - + .01291, .01405, 16.55970, 1.22522, .27115, - + .00000, .72443, 1.22880, - + .01371, .01450, 22.73916, 1.40235, .45904, - + .00000, .90732, 1.40610, - + .01446, .01491, 29.39969, 1.59620, .66254, - + .04606, 1.10634, 1.60010, - + .01518, .01530, 36.43384, 1.80534, .88044, - + .24322, 1.32018, 1.80938, - + .01586, .01567, 43.75632, 2.02791, 1.11107, - + .48518, 1.54707, 2.03208, - + .01651, .01602, 51.29648, 2.26183, 1.35245, - + .73324, 1.78500, 2.26612 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ - + .01714, .01636, 59.00493, 2.50544, 1.60299, - + .99067, 2.03233, 2.50985, - + .01774, .01669, 66.84789, 2.75744, 1.86147, - + 1.25537, 2.28781, 2.76196, - + .01832, .01700, 74.80418, 3.01690, 2.12701, - + 1.52678, 2.55054, 3.02153, - + .01888, .01730, 82.76933, 3.28176, 2.39760, - + 1.80286, 2.81847, 3.28649, - + .01943, .01760, 90.73236, 3.55105, 2.67230, - + 2.08274, 3.09067, 3.55588, - + .01995, .01788, 98.76840, 3.82568, 2.95204, - + 2.36738, 3.36806, 3.83060, - + .02047, .01815, 106.74777, 4.10307, 3.23430, - + 2.65427, 3.64807, 4.10808 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ - + .02096, .01842, 114.68212, 4.38288, 3.51876, - + 2.94313, 3.93038, 4.38798, - + .02145, .01868, 122.65924, 4.66677, 3.80706, - + 3.23562, 4.21664, 4.67195, - + .02192, .01893, 130.45233, 4.94963, 4.09416, - + 3.52671, 4.50178, 4.95489, - + .02238, .01917, 138.34261, 5.23733, 4.38592, - + 3.82228, 4.79167, 5.24267, - + .02283, .01941, 145.98373, 5.52193, 4.67441, - + 4.11443, 5.07836, 5.52734 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + .01409, .01493, 10.26792, 1.01181, .09626, - + .00000, .53081, 1.01524, - + .01508, .01548, 15.48660, 1.15555, .25172, - + .00000, .68080, 1.15914, - + .01599, .01598, 21.07016, 1.31713, .42365, - + .00000, .84789, 1.32085, - + .01685, .01645, 27.03439, 1.49277, .60857, - + .04177, 1.02848, 1.49662, - + .01767, .01689, 33.28394, 1.68115, .80539, - + .21997, 1.22136, 1.68512, - + .01844, .01731, 39.74452, 1.88055, 1.01254, - + .43765, 1.42489, 1.88463, - + .01918, .01771, 46.35567, 2.08911, 1.22827, - + .65965, 1.63728, 2.09329 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ - + .01990, .01809, 53.07611, 2.30534, 1.45117, - + .88899, 1.85707, 2.30962, - + .02058, .01845, 59.87853, 2.52810, 1.68017, - + 1.12381, 2.08315, 2.53247, - + .02124, .01881, 66.74657, 2.75660, 1.91451, - + 1.36364, 2.31477, 2.76106, - + .02188, .01915, 73.59087, 2.98902, 2.15243, - + 1.60671, 2.55013, 2.99356, - + .02250, .01947, 80.40439, 3.22453, 2.39314, - + 1.85227, 2.78842, 3.22916, - + .02309, .01979, 87.25471, 3.46398, 2.63751, - + 2.10122, 3.03049, 3.46868, - + .02367, .02010, 94.03099, 3.70511, 2.88333, - + 2.35136, 3.27413, 3.70989 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ - + .02424, .02040, 100.74520, 3.94767, 3.13034, - + 2.60250, 3.51907, 3.95252, - + .02479, .02068, 107.47482, 4.19313, 3.38006, - + 2.85612, 3.76680, 4.19805, - + .02532, .02097, 114.02604, 4.43705, 3.62804, - + 3.10785, 4.01289, 4.44204, - + .02584, .02124, 120.64219, 4.68460, 3.87949, - + 3.36287, 4.26253, 4.68966, - + .02635, .02151, 127.02734, 4.92886, 4.12749, - + 3.61429, 4.50878, 4.93398 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + .01589, .01609, 9.83995, .96939, .09154, - + .00000, .50803, .97289, - + .01699, .01668, 14.70079, 1.10400, .23754, - + .00000, .64868, 1.10763, - + .01800, .01724, 19.85776, 1.25433, .39792, - + .00000, .80435, 1.25809, - + .01895, .01775, 25.32763, 1.41690, .56950, - + .03869, .97171, 1.42077, - + .01986, .01823, 31.02410, 1.59045, .75124, - + .20334, 1.14960, 1.59442, - + .02071, .01869, 36.88091, 1.77338, .94170, - + .40373, 1.33653, 1.77745, - + .02153, .01913, 42.84484, 1.96398, 1.13927, - + .60727, 1.53084, 1.96815 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ - + .02232, .01955, 48.88044, 2.16091, 1.34267, - + .81678, 1.73121, 2.16517, - + .02308, .01995, 54.96485, 2.36314, 1.55096, - + 1.03060, 1.93666, 2.36748, - + .02381, .02034, 61.08510, 2.56998, 1.76346, - + 1.24832, 2.14651, 2.57440, - + .02451, .02071, 67.16228, 2.77976, 1.97859, - + 1.46833, 2.35913, 2.78426, - + .02519, .02107, 73.19199, 2.99178, 2.19566, - + 1.69001, 2.57384, 2.99635, - + .02585, .02142, 79.23650, 3.20684, 2.41549, - + 1.91419, 2.79143, 3.21148, - + .02649, .02175, 85.19765, 3.42290, 2.63610, - + 2.13891, 3.00991, 3.42761 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ - + .02711, .02208, 91.08782, 3.63976, 2.85729, - + 2.36401, 3.22907, 3.64453, - + .02771, .02239, 96.97733, 3.85878, 3.08043, - + 2.59087, 3.45029, 3.86362, - + .02830, .02270, 102.69447, 4.07597, 3.30157, - + 2.81555, 3.66957, 4.08086, - + .02887, .02300, 108.45699, 4.29602, 3.52540, - + 3.04277, 3.89163, 4.30097, - + .02942, .02329, 114.00282, 4.51270, 3.74571, - + 3.26633, 4.11024, 4.51771 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + .02294, .02030, 8.61589, .84714, .07820, - + .00000, .44282, .85110, - + .02446, .02110, 12.49397, .95640, .19790, - + .00000, .55760, .96049, - + .02586, .02184, 16.50042, 1.07590, .32662, - + .00000, .68197, 1.08010, - + .02717, .02253, 20.65644, 1.20302, .46199, - + .03035, .81344, 1.20732, - + .02841, .02318, 24.90124, 1.33671, .60320, - + .15857, .95110, 1.34111, - + .02958, .02379, 29.19057, 1.47578, .74918, - + .31282, 1.09381, 1.48026, - + .03070, .02438, 33.49064, 1.61894, .89873, - + .46748, 1.24035, 1.62351 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ - + .03177, .02494, 37.78101, 1.76524, 1.05097, - + .62490, 1.38978, 1.76990, - + .03280, .02547, 42.05033, 1.91398, 1.20525, - + .78389, 1.54144, 1.91871, - + .03379, .02598, 46.29396, 2.06468, 1.36116, - + .94423, 1.69490, 2.06949, - + .03474, .02647, 50.45932, 2.21619, 1.51756, - + 1.10479, 1.84898, 2.22107, - + .03566, .02695, 54.54804, 2.36805, 1.67405, - + 1.26519, 2.00328, 2.37299, - + .03655, .02740, 58.60851, 2.52093, 1.83132, - + 1.42614, 2.15848, 2.52594, - + .03741, .02784, 62.57438, 2.67339, 1.98794, - + 1.58626, 2.31313, 2.67846 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ - + .03824, .02827, 66.45786, 2.82536, 2.14387, - + 1.74551, 2.46719, 2.83049, - + .03905, .02869, 70.31107, 2.97788, 2.30018, - + 1.90497, 2.62171, 2.98307, - + .03983, .02909, 74.01716, 3.12811, 2.45402, - + 2.06183, 2.77384, 3.13335, - + .04060, .02948, 77.72953, 3.27950, 2.60888, - + 2.21957, 2.92706, 3.28481, - + .04134, .02986, 81.26978, 3.42762, 2.76033, - + 2.37377, 3.07693, 3.43298 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + .03288, .02574, 7.53223, .73728, .06656, - + .00000, .38488, .74217, - + .03498, .02682, 10.59324, .82512, .16404, - + .00000, .47782, .83017, - + .03691, .02781, 13.67015, .91911, .26654, - + .00000, .57631, .92430, - + .03871, .02873, 16.78907, 1.01736, .37242, - + .02361, .67860, 1.02269, - + .04040, .02959, 19.91064, 1.11911, .48113, - + .12258, .78403, 1.12457, - + .04200, .03041, 23.00824, 1.22349, .59190, - + .24022, .89179, 1.22908, - + .04353, .03118, 26.06300, 1.32962, .70393, - + .35661, 1.00104, 1.33532 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ - + .04498, .03192, 29.06558, 1.43685, .81665, - + .47372, 1.11117, 1.44266, - + .04637, .03263, 32.01273, 1.54473, .92966, - + .59072, 1.22176, 1.55064, - + .04771, .03330, 34.90546, 1.65299, 1.04273, - + .70754, 1.33257, 1.65901, - + .04899, .03395, 37.70998, 1.76083, 1.15510, - + .82342, 1.44280, 1.76694, - + .05022, .03457, 40.43147, 1.86799, 1.26654, - + .93817, 1.55222, 1.87419, - + .05141, .03517, 43.10740, 1.97503, 1.37764, - + 1.05240, 1.66141, 1.98132, - + .05257, .03575, 45.69372, 2.08096, 1.48743, - + 1.16514, 1.76938, 2.08734 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ - + .05368, .03631, 48.20187, 2.18578, 1.59591, - + 1.27644, 1.87613, 2.19224, - + .05476, .03685, 50.67022, 2.29031, 1.70394, - + 1.38714, 1.98252, 2.29685, - + .05580, .03737, 53.02005, 2.39254, 1.80951, - + 1.49526, 2.08650, 2.39915, - + .05682, .03788, 55.35876, 2.49499, 1.91518, - + 1.60336, 2.19066, 2.50168, - + .05781, .03837, 57.56620, 2.59455, 2.01781, - + 1.70832, 2.29183, 2.60131 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + .04049, .02969, 6.95356, .67771, .06040, - + .00000, .35371, .68336, - + .04303, .03097, 9.59946, .75454, .14646, - + .00000, .43545, .76039, - + .04535, .03215, 12.21521, .83563, .23571, - + .00000, .52088, .84168, - + .04751, .03324, 14.82948, .91950, .32690, - + .02027, .60864, .92573, - + .04953, .03426, 17.41357, 1.00555, .41962, - + .10484, .69823, 1.01194, - + .05145, .03522, 19.94930, 1.09309, .51327, - + .20465, .78902, 1.09963, - + .05327, .03613, 22.42464, 1.18141, .60725, - + .30259, .88035, 1.18810 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ - + .05500, .03700, 24.83516, 1.27002, .70114, - + .40044, .97176, 1.27685, - + .05666, .03782, 27.18107, 1.35861, .79464, - + .49757, 1.06297, 1.36558, - + .05824, .03862, 29.46562, 1.44699, .88764, - + .59396, 1.15380, 1.45409, - + .05976, .03937, 31.66334, 1.53452, .97952, - + .68903, 1.24365, 1.54174, - + .06122, .04010, 33.78059, 1.62105, 1.07016, - + .78266, 1.33235, 1.62838, - + .06263, .04080, 35.84948, 1.70708, 1.16008, - + .87541, 1.42046, 1.71453, - + .06399, .04148, 37.83582, 1.79180, 1.24850, - + .96651, 1.50714, 1.79936 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ - + .06530, .04213, 39.75022, 1.87527, 1.33548, - + 1.05604, 1.59248, 1.88293, - + .06658, .04276, 41.62459, 1.95818, 1.42175, - + 1.14472, 1.67718, 1.96594, - + .06781, .04337, 43.39705, 2.03889, 1.50568, - + 1.23096, 1.75959, 2.04675, - + .06900, .04396, 45.15421, 2.11953, 1.58939, - + 1.31687, 1.84187, 2.12749, - + .07016, .04453, 46.80130, 2.19754, 1.67035, - + 1.39994, 1.92145, 2.20559 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + .04692, .03295, 6.56414, .63716, .05627, - + .00000, .33258, .64345, - + .04981, .03440, 8.93909, .70674, .13483, - + .00000, .40696, .71328, - + .05245, .03572, 11.25842, .77946, .21547, - + .00000, .48391, .78623, - + .05490, .03695, 13.55241, .85410, .29722, - + .01813, .56234, .86107, - + .05720, .03810, 15.79911, .93013, .37973, - + .09351, .64183, .93731, - + .05937, .03918, 17.98551, 1.00700, .46255, - + .18202, .72188, 1.01436, - + .06143, .04020, 20.10373, 1.08413, .54518, - + .26834, .80194, 1.09166 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ - + .06338, .04117, 22.15219, 1.16111, .62729, - + .35415, .88166, 1.16881, - + .06525, .04210, 24.13305, 1.23771, .70867, - + .43890, .96082, 1.24557, - + .06704, .04298, 26.05077, 1.31380, .78925, - + .52264, 1.03931, 1.32182, - + .06875, .04383, 27.88480, 1.38885, .86853, - + .60488, 1.11662, 1.39701, - + .07039, .04464, 29.64199, 1.46274, .94641, - + .68556, 1.19264, 1.47104, - + .07197, .04542, 31.35105, 1.53596, 1.02341, - + .76519, 1.26788, 1.54439, - + .07349, .04617, 32.98357, 1.60781, 1.09885, - + .84313, 1.34165, 1.61637 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ - + .07496, .04690, 34.54958, 1.67835, 1.17282, - + .91946, 1.41402, 1.68704, - + .07639, .04760, 36.07693, 1.74822, 1.24596, - + .99485, 1.48565, 1.75703, - + .07776, .04827, 37.51375, 1.81602, 1.31688, - + 1.06791, 1.55511, 1.82494, - + .07910, .04893, 38.93396, 1.88359, 1.38744, - + 1.14052, 1.62428, 1.89262, - + .08039, .04956, 40.25806, 1.94873, 1.45546, - + 1.21051, 1.69096, 1.95788 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + .05265, .03588, 6.26982, .60610, .05312, - + .00000, .31627, .61280, - + .05583, .03748, 8.44191, .67027, .12606, - + .00000, .38513, .67725, - + .05874, .03893, 10.54189, .73680, .20035, - + .00000, .45580, .74403, - + .06144, .04028, 12.60117, .80466, .27516, - + .01656, .52737, .81211, - + .06397, .04153, 14.60282, .87340, .35023, - + .08526, .59950, .88107, - + .06635, .04272, 16.53732, .94254, .42519, - + .16555, .67175, .95042, - + .06860, .04384, 18.39979, 1.01160, .49962, - + .24349, .74368, 1.01966 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ - + .07074, .04490, 20.19061, 1.08023, .57326, - + .32062, .81499, 1.08848, - + .07278, .04591, 21.91310, 1.14826, .64596, - + .39651, .88552, 1.15669, - + .07473, .04687, 23.57248, 1.21560, .71768, - + .47123, .95521, 1.22420, - + .07660, .04779, 25.15165, 1.28179, .78800, - + .54434, 1.02360, 1.29054, - + .07839, .04867, 26.65755, 1.34674, .85685, - + .61583, 1.09063, 1.35564, - + .08011, .04952, 28.11650, 1.41091, .92472, - + .68619, 1.15678, 1.41996, - + .08177, .05034, 29.50427, 1.47370, .99102, - + .75485, 1.22145, 1.48289 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ - + .08336, .05112, 30.83015, 1.53518, 1.05584, - + .82191, 1.28472, 1.54450, - + .08491, .05188, 32.11908, 1.59593, 1.11978, - + .88797, 1.34718, 1.60538, - + .08640, .05261, 33.32617, 1.65471, 1.18160, - + .95183, 1.40758, 1.66428, - + .08785, .05332, 34.51641, 1.71318, 1.24299, - + 1.01515, 1.46762, 1.72288, - + .08925, .05400, 35.62114, 1.76939, 1.30201, - + 1.07602, 1.52533, 1.77920 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + .07517, .04719, 5.41490, .51454, .04408, - + .00000, .26871, .52320, - + .07946, .04933, 7.02868, .56363, .10138, - + .00000, .32223, .57268, - + .08336, .05127, 8.53842, .61322, .15821, - + .00000, .37572, .62262, - + .08695, .05306, 9.97762, .66276, .21425, - + .01235, .42876, .67248, - + .09030, .05471, 11.34166, .71202, .26942, - + .06312, .48122, .72204, - + .09344, .05627, 12.62999, .76074, .32358, - + .12165, .53287, .77105, - + .09640, .05773, 13.84438, .80866, .37652, - + .17755, .58350, .81923 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ - + .09920, .05911, 14.98943, .85564, .42817, - + .23211, .63299, .86646, - + .10186, .06041, 16.07103, .90160, .47849, - + .28511, .68131, .91266, - + .10439, .06166, 17.09566, .94656, .52755, - + .33666, .72849, .95785, - + .10680, .06284, 18.05423, .99025, .57508, - + .38654, .77425, 1.00175, - + .10910, .06396, 18.95373, 1.03265, .62111, - + .43478, .81861, 1.04435, - + .11132, .06504, 19.81352, 1.07414, .66606, - + .48180, .86197, 1.08604, - + .11343, .06607, 20.61901, 1.11435, .70953, - + .52724, .90394, 1.12643 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ - + .11547, .06706, 21.37772, 1.15334, .75164, - + .57122, .94462, 1.16561, - + .11744, .06802, 22.10705, 1.19158, .79285, - + .61420, .98446, 1.20402, - + .11932, .06893, 22.77884, 1.22821, .83231, - + .65536, 1.02262, 1.24082, - + .12116, .06982, 23.43591, 1.26443, .87125, - + .69591, 1.06031, 1.27719, - + .12292, .07067, 24.03496, 1.29890, .90833, - + .73454, 1.09619, 1.31182 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + .10717, .06345, 4.62899, .42858, .03589, - + .00000, .22435, .43995, - + .11284, .06628, 5.77495, .46482, .07978, - + .00000, .26476, .47674, - + .11794, .06882, 6.80785, .50038, .12207, - + .00000, .30398, .51277, - + .12261, .07113, 7.76118, .53508, .16281, - + .00895, .34198, .54792, - + .12694, .07327, 8.63855, .56888, .20210, - + .04539, .37877, .58212, - + .13097, .07525, 9.44523, .60167, .23993, - + .08677, .41430, .61529, - + .13474, .07710, 10.18674, .63336, .27627, - + .12558, .44853, .64733 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ - + .13829, .07883, 10.86947, .66393, .31116, - + .16289, .48146, .67823, - + .14165, .08046, 11.50019, .69341, .34467, - + .19862, .51313, .70802, - + .14482, .08200, 12.08549, .72185, .37690, - + .23292, .54364, .73676, - + .14783, .08345, 12.62132, .74910, .40771, - + .26567, .57283, .76428, - + .15069, .08483, 13.11387, .77522, .43718, - + .29697, .60078, .79066, - + .15342, .08615, 13.57670, .80051, .46565, - + .32715, .62780, .81620, - + .15603, .08740, 14.00136, .82470, .49286, - + .35599, .65364, .84063 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ - + .15853, .08859, 14.39392, .84792, .51894, - + .38362, .67841, .86407, - + .16093, .08973, 14.76592, .87047, .54424, - + .41038, .70247, .88684, - + .16322, .09082, 15.10030, .89182, .56820, - + .43573, .72524, .90839, - + .16544, .09187, 15.42419, .91278, .59166, - + .46053, .74757, .92956, - + .16756, .09287, 15.71150, .93248, .61375, - + .48389, .76856, .94944 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + .13178, .07619, 4.19514, .38089, .03149, - + -.00001, .20002, .39453, - + .13836, .07946, 5.10692, .41058, .06848, - + -.00001, .23373, .42488, - + .14425, .08237, 5.90863, .43916, .10348, - + -.00001, .26583, .45403, - + .14961, .08501, 6.63274, .46663, .13670, - + .00728, .29646, .48202, - + .15455, .08743, 7.28621, .49301, .16831, - + .03678, .32571, .50888, - + .15913, .08966, 7.87565, .51829, .19837, - + .06997, .35361, .53459, - + .16340, .09172, 8.40794, .54243, .22694, - + .10074, .38019, .55914 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ - + .16740, .09365, 8.88981, .56546, .25408, - + .13004, .40548, .58255, - + .17116, .09545, 9.32786, .58745, .27990, - + .15783, .42957, .60488, - + .17470, .09715, 9.72828, .60846, .30452, - + .18429, .45256, .62623, - + .17806, .09874, 10.08882, .62841, .32784, - + .20934, .47436, .64649, - + .18122, .10024, 10.41476, .64735, .34997, - + .23309, .49505, .66573, - + .18425, .10166, 10.71710, .66556, .37119, - + .25584, .51491, .68421, - + .18712, .10301, 10.99015, .68283, .39132, - + .27742, .53375, .70174 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ - + .18985, .10429, 11.23854, .69927, .41049, - + .29795, .55168, .71843, - + .19248, .10552, 11.47121, .71515, .42896, - + .31772, .56899, .73455, - + .19498, .10668, 11.67572, .73004, .44632, - + .33632, .58523, .74965, - + .19739, .10779, 11.87243, .74459, .46325, - + .35443, .60109, .76443, - + .19968, .10885, 12.04229, .75813, .47905, - + .37136, .61586, .77816 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + .15255, .08712, 3.89613, .34823, .02854, - + -.00001, .18348, .36390, - + .15980, .09070, 4.65814, .37368, .06101, - + -.00001, .21281, .39007, - + .16626, .09386, 5.31520, .39781, .09132, - + -.00001, .24035, .41484, - + .17211, .09671, 5.89858, .42073, .11977, - + .00624, .26633, .43834, - + .17748, .09930, 6.41662, .44250, .14657, - + .03138, .29088, .46063, - + .18244, .10168, 6.87676, .46315, .17183, - + .05947, .31407, .48176, - + .18704, .10388, 7.28614, .48268, .19561, - + .08529, .33595, .50173 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ - + .19134, .10591, 7.65145, .50116, .21804, - + .10969, .35661, .52061, - + .19536, .10781, 7.97895, .51866, .23922, - + .13267, .37613, .53848, - + .19914, .10959, 8.27436, .53526, .25927, - + .15442, .39464, .55543, - + .20271, .11124, 8.53640, .55088, .27814, - + .17487, .41205, .57139, - + .20606, .11280, 8.76975, .56562, .29593, - + .19414, .42846, .58643, - + .20926, .11427, 8.98366, .57969, .31289, - + .21251, .44413, .60079, - + .21228, .11566, 9.17379, .59295, .32890, - + .22983, .45890, .61432 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ - + .21515, .11697, 9.34410, .60549, .34404, - + .24622, .47287, .62711, - + .21790, .11823, 9.50190, .61753, .35857, - + .26195, .48628, .63940, - + .22051, .11940, 9.63737, .62873, .37214, - + .27665, .49879, .65083, - + .22302, .12054, 9.76685, .63964, .38533, - + .29091, .51095, .66196, - + .22540, .12160, 9.87534, .64970, .39756, - + .30417, .52220, .67222 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + .17086, .09686, 3.66841, .32366, .02635, - + .00000, .17115, .34123, - + .17863, .10065, 4.32339, .34603, .05553, - + .00000, .19731, .36439, - + .18552, .10398, 4.87893, .36699, .08247, - + .00000, .22158, .38602, - + .19173, .10697, 5.36494, .38669, .10753, - + .00550, .24426, .40634, - + .19742, .10967, 5.79031, .40523, .13094, - + .02757, .26549, .42543, - + .20265, .11214, 6.16314, .42266, .15283, - + .05208, .28539, .44336, - + .20749, .11441, 6.49036, .43902, .17331, - + .07446, .30403, .46017 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ - + .21199, .11650, 6.77861, .45437, .19248, - + .09547, .32150, .47595, - + .21619, .11844, 7.03367, .46881, .21048, - + .11516, .33791, .49078, - + .22012, .12024, 7.26072, .48242, .22743, - + .13369, .35337, .50475, - + .22382, .12193, 7.45933, .49514, .24329, - + .15101, .36782, .51780, - + .22728, .12350, 7.63357, .50705, .25815, - + .16726, .38136, .53002, - + .23058, .12498, 7.79140, .51837, .27227, - + .18268, .39422, .54163, - + .23369, .12637, 7.92920, .52897, .28552, - + .19715, .40628, .55250 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ - + .23663, .12768, 8.05072, .53893, .29799, - + .21079, .41763, .56271, - + .23945, .12893, 8.16209, .54845, .30992, - + .22382, .42848, .57248, - + .24210, .13009, 8.25507, .55723, .32100, - + .23595, .43852, .58149, - + .24466, .13121, 8.34336, .56577, .33173, - + .24768, .44827, .59024, - + .24707, .13226, 8.41462, .57357, .34163, - + .25853, .45722, .59824 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + .24275, .13542, 2.97669, .25204, .02014, - + .00000, .13598, .27789, - + .25190, .13955, 3.34811, .26597, .04022, - + .00000, .15335, .29270, - + .25985, .14306, 3.64290, .27841, .05805, - + .00000, .16881, .30587, - + .26690, .14613, 3.88571, .28967, .07414, - + .00355, .18277, .31775, - + .27323, .14885, 4.08579, .29988, .08874, - + .01760, .19542, .32851, - + .27897, .15127, 4.25060, .30916, .10202, - + .03290, .20693, .33826, - + .28418, .15344, 4.38615, .31758, .11415, - + .04653, .21740, .34710 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ - + .28895, .15540, 4.49771, .32524, .12525, - + .05907, .22696, .35514, - + .29335, .15717, 4.58983, .33223, .13544, - + .07059, .23572, .36247, - + .29742, .15880, 4.66621, .33863, .14484, - + .08123, .24377, .36917, - + .30118, .16027, 4.72679, .34443, .15345, - + .09099, .25112, .37524, - + .30465, .16161, 4.77456, .34969, .16136, - + .09998, .25784, .38074, - + .30790, .16285, 4.81422, .35458, .16876, - + .10839, .26410, .38585, - + .31094, .16399, 4.84403, .35901, .17556, - + .11615, .26982, .39048 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ - + .31377, .16504, 4.86599, .36305, .18186, - + .12335, .27509, .39470, - + .31645, .16602, 4.88357, .36683, .18779, - + .13014, .28005, .39865, - + .31893, .16691, 4.89253, .37018, .19318, - + .13634, .28450, .40213, - + .32131, .16776, 4.90018, .37338, .19835, - + .14229, .28878, .40548, - + .32350, .16852, 4.90003, .37617, .20300, - + .14768, .29258, .40838 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + .34376, .18759, 2.29428, .18798, .01484, - + -.00002, .10581, .22626, - + .35285, .19072, 2.45316, .19490, .02738, - + -.00001, .11580, .23365, - + .36046, .19318, 2.56349, .20061, .03804, - + -.00002, .12420, .23969, - + .36697, .19519, 2.64286, .20544, .04729, - + .00206, .13142, .24477, - + .37261, .19685, 2.69838, .20953, .05538, - + .01014, .13766, .24903, - + .37753, .19821, 2.73536, .21299, .06250, - + .01873, .14307, .25260, - + .38185, .19933, 2.75804, .21591, .06879, - + .02617, .14779, .25560 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ - + .38566, .20025, 2.76966, .21838, .07438, - + .03285, .15191, .25811, - + .38904, .20101, 2.77298, .22046, .07936, - + .03882, .15552, .26019, - + .39207, .20163, 2.77014, .22221, .08383, - + .04420, .15871, .26193, - + .39475, .20213, 2.76113, .22365, .08780, - + .04904, .16147, .26334, - + .39712, .20251, 2.74758, .22482, .09135, - + .05339, .16388, .26444, - + .39928, .20283, 2.73182, .22581, .09459, - + .05738, .16604, .26535, - + .40121, .20305, 2.71297, .22657, .09748, - + .06098, .16790, .26604 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ - + .40292, .20321, 2.69196, .22716, .10009, - + .06425, .16953, .26653, - + .40449, .20333, 2.67040, .22765, .10250, - + .06728, .17101, .26693, - + .40586, .20336, 2.64618, .22793, .10460, - + .06999, .17222, .26710, - + .40715, .20338, 2.62270, .22818, .10659, - + .07255, .17336, .26725, - + .40823, .20333, 2.59698, .22823, .10830, - + .07480, .17426, .26718 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + .41868, .22193, 1.89418, .15273, .01209, - + .00000, .08953, .19882, - + .42599, .22325, 1.96122, .15614, .02095, - + .00000, .09577, .20204, - + .43174, .22401, 1.99648, .15868, .02824, - + .00000, .10074, .20428, - + .43640, .22444, 2.01297, .16058, .03440, - + .00141, .10482, .20590, - + .44019, .22459, 2.01580, .16201, .03964, - + .00685, .10818, .20699, - + .44329, .22453, 2.00858, .16302, .04414, - + .01254, .11094, .20765, - + .44581, .22429, 1.99426, .16370, .04801, - + .01735, .11321, .20796 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ - + .44785, .22393, 1.97492, .16411, .05137, - + .02159, .11509, .20800, - + .44951, .22348, 1.95221, .16431, .05429, - + .02532, .11663, .20782, - + .45085, .22295, 1.92738, .16433, .05685, - + .02863, .11791, .20747, - + .45187, .22234, 1.90039, .16418, .05907, - + .03154, .11891, .20694, - + .45265, .22167, 1.87214, .16389, .06100, - + .03413, .11971, .20629, - + .45326, .22097, 1.84394, .16353, .06273, - + .03646, .12037, .20557, - + .45365, .22024, 1.81510, .16307, .06422, - + .03853, .12085, .20474 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ - + .45387, .21948, 1.78616, .16252, .06553, - + .04037, .12120, .20384, - + .45401, .21871, 1.75799, .16193, .06672, - + .04207, .12147, .20294, - + .45396, .21789, 1.72929, .16126, .06772, - + .04354, .12159, .20192, - + .45390, .21709, 1.70195, .16059, .06865, - + .04491, .12169, .20093, - + .45364, .21625, 1.67411, .15984, .06940, - + .04610, .12166, .19984 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + .47772, .24478, 1.60943, .12740, .01016, - + .00000, .07747, .17746, - + .48226, .24401, 1.62608, .12871, .01677, - + -.00001, .08136, .17785, - + .48536, .24291, 1.62229, .12938, .02205, - + .00000, .08426, .17767, - + .48751, .24162, 1.60765, .12966, .02641, - + .00103, .08649, .17713, - + .48891, .24020, 1.58570, .12964, .03004, - + .00494, .08820, .17629, - + .48970, .23869, 1.55888, .12936, .03308, - + .00898, .08949, .17524, - + .49001, .23712, 1.52911, .12891, .03563, - + .01234, .09044, .17403 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ - + .48997, .23550, 1.49774, .12830, .03780, - + .01525, .09113, .17271, - + .48963, .23386, 1.46569, .12758, .03964, - + .01777, .09160, .17131, - + .48905, .23224, 1.43364, .12680, .04122, - + .01999, .09190, .16986, - + .48823, .23060, 1.40149, .12594, .04256, - + .02191, .09205, .16835, - + .48723, .22896, 1.36969, .12502, .04369, - + .02358, .09206, .16681, - + .48614, .22735, 1.33900, .12408, .04467, - + .02506, .09200, .16529, - + .48493, .22574, 1.30887, .12309, .04550, - + .02637, .09184, .16377 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ - + .48360, .22415, 1.27957, .12208, .04619, - + .02751, .09160, .16222, - + .48225, .22261, 1.25157, .12110, .04681, - + .02854, .09134, .16069, - + .48075, .22105, 1.22397, .12007, .04730, - + .02943, .09098, .15915, - + .47929, .21956, 1.19791, .11908, .04774, - + .03025, .09063, .15768, - + .47768, .21805, 1.17215, .11804, .04808, - + .03093, .09021, .15617 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + .52453, .25909, 1.38874, .10701, .00863, - + -.00001, .06723, .15799, - + .52570, .25627, 1.37491, .10699, .01368, - + -.00001, .06952, .15647, - + .52572, .25331, 1.34878, .10655, .01764, - + .00000, .07108, .15466, - + .52500, .25038, 1.31736, .10589, .02082, - + .00076, .07215, .15274, - + .52370, .24749, 1.28287, .10506, .02341, - + .00368, .07284, .15072, - + .52198, .24464, 1.24692, .10411, .02555, - + .00666, .07325, .14864, - + .51995, .24184, 1.21062, .10304, .02730, - + .00911, .07342, .14655 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ - + .51769, .23909, 1.17473, .10193, .02874, - + .01120, .07343, .14448, - + .51526, .23641, 1.13978, .10078, .02994, - + .01298, .07331, .14242, - + .51272, .23381, 1.10609, .09962, .03095, - + .01452, .07309, .14039, - + .51003, .23128, 1.07341, .09844, .03178, - + .01585, .07276, .13839, - + .50726, .22880, 1.04196, .09725, .03245, - + .01698, .07237, .13642, - + .50451, .22641, 1.01215, .09609, .03303, - + .01798, .07195, .13451, - + .50170, .22407, .98350, .09492, .03349, - + .01884, .07148, .13264 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ - + .49885, .22180, .95612, .09376, .03386, - + .01958, .07096, .13082, - + .49604, .21962, .93025, .09264, .03417, - + .02024, .07045, .12907, - + .49316, .21746, .90523, .09151, .03440, - + .02080, .06989, .12732, - + .49040, .21539, .88175, .09043, .03460, - + .02132, .06935, .12566, - + .48753, .21334, .85895, .08934, .03472, - + .02173, .06876, .12401 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + .56862, .26782, 1.16940, .08585, .00704, - + -.00001, .05591, .13486, - + .56515, .26255, 1.13287, .08486, .01074, - + -.00001, .05692, .13185, - + .56096, .25751, 1.09131, .08367, .01357, - + .00000, .05741, .12885, - + .55644, .25276, 1.04924, .08242, .01577, - + .00056, .05759, .12594, - + .55169, .24824, 1.00768, .08109, .01753, - + .00264, .05753, .12313, - + .54679, .24391, .96734, .07972, .01893, - + .00474, .05732, .12042, - + .54179, .23980, .92869, .07836, .02005, - + .00643, .05696, .11779 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ - + .53678, .23587, .89199, .07700, .02095, - + .00787, .05652, .11528, - + .53179, .23211, .85737, .07567, .02167, - + .00907, .05601, .11287, - + .52687, .22853, .82484, .07437, .02225, - + .01010, .05546, .11057, - + .52197, .22507, .79409, .07309, .02271, - + .01096, .05487, .10834, - + .51712, .22176, .76509, .07183, .02306, - + .01168, .05425, .10621, - + .51240, .21861, .73802, .07062, .02334, - + .01230, .05363, .10418, - + .50775, .21556, .71246, .06944, .02355, - + .01284, .05300, .10221 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ - + .50316, .21262, .68839, .06829, .02370, - + .01330, .05237, .10033, - + .49872, .20983, .66590, .06719, .02381, - + .01369, .05174, .09853, - + .49430, .20709, .64446, .06610, .02388, - + .01402, .05111, .09678, - + .49006, .20450, .62449, .06506, .02393, - + .01431, .05050, .09511, - + .48581, .20195, .60538, .06404, .02392, - + .01454, .04987, .09350 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + .59866, .26868, .99245, .06825, .00570, - + -.00003, .04589, .11306, - + .59040, .26127, .94327, .06682, .00848, - + -.00002, .04612, .10929, - + .58197, .25444, .89416, .06530, .01053, - + -.00003, .04601, .10578, - + .57369, .24815, .84774, .06380, .01210, - + .00038, .04571, .10247, - + .56554, .24228, .80414, .06232, .01332, - + .00193, .04527, .09938, - + .55758, .23677, .76340, .06087, .01426, - + .00346, .04474, .09648, - + .54979, .23160, .72558, .05946, .01498, - + .00468, .04414, .09375 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ - + .54221, .22674, .69054, .05809, .01554, - + .00568, .04351, .09116, - + .53488, .22216, .65816, .05677, .01599, - + .00651, .04285, .08872, - + .52780, .21783, .62828, .05550, .01633, - + .00721, .04219, .08643, - + .52090, .21370, .60050, .05429, .01658, - + .00779, .04151, .08425, - + .51420, .20977, .57472, .05310, .01675, - + .00828, .04084, .08219, - + .50776, .20606, .55093, .05198, .01688, - + .00869, .04018, .08025, - + .50149, .20252, .52874, .05091, .01696, - + .00904, .03953, .07838 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ - + .49541, .19912, .50807, .04987, .01699, - + .00932, .03889, .07661, - + .48959, .19589, .48890, .04888, .01701, - + .00956, .03827, .07494, - + .48383, .19279, .47086, .04792, .01699, - + .00975, .03765, .07333, - + .47834, .18985, .45414, .04702, .01697, - + .00991, .03706, .07180, - + .47292, .18698, .43831, .04613, .01690, - + .01004, .03647, .07034 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + .61630, .26354, .84571, .05361, .00458, - + -.00001, .03710, .09303, - + .60329, .25443, .79004, .05207, .00666, - + -.00001, .03687, .08906, - + .59081, .24614, .73803, .05050, .00816, - + -.00002, .03644, .08544, - + .57897, .23864, .69085, .04901, .00929, - + .00030, .03591, .08212, - + .56768, .23175, .64795, .04758, .01012, - + .00143, .03529, .07908, - + .55688, .22538, .60890, .04621, .01076, - + .00254, .03464, .07626, - + .54656, .21945, .57341, .04490, .01124, - + .00342, .03396, .07363 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ - + .53672, .21391, .54115, .04364, .01160, - + .00414, .03327, .07120, - + .52733, .20874, .51180, .04244, .01186, - + .00472, .03259, .06894, - + .51836, .20390, .48510, .04132, .01204, - + .00521, .03191, .06684, - + .50976, .19933, .46062, .04024, .01216, - + .00559, .03125, .06486, - + .50149, .19500, .43813, .03920, .01224, - + .00591, .03061, .06298, - + .49360, .19093, .41757, .03823, .01229, - + .00618, .03000, .06123, - + .48600, .18707, .39862, .03730, .01229, - + .00639, .02938, .05959 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ - + .47871, .18338, .38111, .03641, .01228, - + .00657, .02879, .05802, - + .47176, .17990, .36498, .03557, .01226, - + .00672, .02824, .05653, - + .46496, .17657, .34993, .03477, .01220, - + .00684, .02768, .05513, - + .45850, .17344, .33607, .03401, .01213, - + .00695, .02715, .05381, - + .45217, .17039, .32306, .03327, .01205, - + .00702, .02664, .05255 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + .62293, .25389, .72171, .04154, .00362, - + -.00003, .02950, .07514, - + .60552, .24340, .66351, .04006, .00521, - + -.00002, .02908, .07128, - + .58926, .23405, .61143, .03860, .00632, - + -.00002, .02851, .06786, - + .57422, .22565, .56557, .03723, .00714, - + .00021, .02789, .06478, - + .56012, .21804, .52484, .03595, .00773, - + .00106, .02723, .06198, - + .54689, .21103, .48852, .03472, .00816, - + .00190, .02657, .05942, - + .53441, .20457, .45611, .03357, .00848, - + .00253, .02591, .05706 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ - + .52261, .19861, .42707, .03248, .00871, - + .00304, .02525, .05489, - + .51147, .19307, .40098, .03147, .00886, - + .00346, .02462, .05289, - + .50097, .18791, .37748, .03050, .00896, - + .00380, .02401, .05104, - + .49098, .18306, .35620, .02959, .00900, - + .00408, .02340, .04934, - + .48144, .17851, .33689, .02873, .00901, - + .00430, .02283, .04773, - + .47241, .17426, .31936, .02792, .00901, - + .00448, .02229, .04622, - + .46377, .17024, .30330, .02716, .00899, - + .00462, .02176, .04479 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ - + .45552, .16643, .28860, .02643, .00895, - + .00473, .02125, .04346, - + .44769, .16285, .27517, .02574, .00891, - + .00483, .02077, .04222, - + .44009, .15943, .26272, .02509, .00884, - + .00490, .02030, .04104, - + .43291, .15622, .25130, .02448, .00877, - + .00495, .01985, .03993, - + .42592, .15311, .24068, .02389, .00869, - + .00500, .01942, .03887 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + .61980, .24090, .61569, .03174, .00284, - + -.00002, .02310, .05958, - + .59842, .22941, .55758, .03039, .00405, - + .00001, .02261, .05609, - + .57888, .21932, .50721, .02913, .00490, - + -.00001, .02201, .05301, - + .56106, .21032, .46392, .02795, .00549, - + .00016, .02141, .05028, - + .54457, .20224, .42622, .02685, .00591, - + .00081, .02079, .04783, - + .52926, .19489, .39315, .02581, .00621, - + .00142, .02018, .04559, - + .51498, .18814, .36404, .02486, .00642, - + .00190, .01958, .04355 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ - + .50164, .18194, .33828, .02395, .00655, - + .00228, .01900, .04171, - + .48916, .17622, .31543, .02309, .00664, - + .00258, .01844, .04003, - + .47745, .17092, .29509, .02229, .00669, - + .00282, .01791, .03847, - + .46637, .16598, .27684, .02156, .00669, - + .00301, .01740, .03702, - + .45588, .16137, .26037, .02086, .00668, - + .00316, .01691, .03568, - + .44601, .15707, .24555, .02021, .00665, - + .00328, .01645, .03443, - + .43664, .15301, .23210, .01959, .00661, - + .00337, .01601, .03328 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ - + .42771, .14919, .21986, .01901, .00656, - + .00344, .01559, .03219, - + .41926, .14561, .20873, .01848, .00651, - + .00349, .01519, .03117, - + .41113, .14220, .19849, .01796, .00644, - + .00354, .01481, .03021, - + .40346, .13899, .18914, .01747, .00637, - + .00358, .01445, .02932, - + .39605, .13592, .18051, .01701, .00630, - + .00359, .01410, .02847 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + .60821, .22551, .52438, .02384, .00223, - + .00004, .01781, .04641, - + .58337, .21344, .46819, .02274, .00315, - + .00005, .01731, .04338, - + .56104, .20292, .42079, .02170, .00375, - + .00003, .01676, .04074, - + .54092, .19363, .38073, .02073, .00417, - + .00017, .01621, .03844, - + .52254, .18532, .34643, .01982, .00447, - + .00064, .01565, .03637, - + .50561, .17781, .31679, .01900, .00468, - + .00109, .01511, .03450, - + .48993, .17102, .29105, .01825, .00480, - + .00142, .01461, .03279 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ - + .47544, .16478, .26853, .01751, .00488, - + .00169, .01412, .03127, - + .46197, .15903, .24875, .01681, .00493, - + .00190, .01365, .02988, - + .44937, .15375, .23129, .01619, .00495, - + .00208, .01320, .02861, - + .43756, .14884, .21573, .01561, .00493, - + .00220, .01279, .02742, - + .42642, .14428, .20186, .01506, .00491, - + .00229, .01239, .02635, - + .41598, .14004, .18946, .01456, .00488, - + .00237, .01201, .02535, - + .40610, .13608, .17825, .01409, .00483, - + .00244, .01165, .02441 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ - + .39678, .13234, .16813, .01363, .00478, - + .00248, .01131, .02354, - + .38801, .12882, .15898, .01319, .00473, - + .00252, .01100, .02274, - + .37959, .12552, .15062, .01279, .00466, - + .00254, .01070, .02198, - + .37167, .12242, .14301, .01242, .00460, - + .00256, .01041, .02128, - + .36402, .11947, .13602, .01206, .00454, - + .00256, .01013, .02061 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + .58916, .20888, .44565, .01788, .00157, - + -.00014, .01336, .03553, - + .56157, .19648, .39243, .01695, .00230, - + -.00014, .01296, .03297, - + .53705, .18577, .34853, .01611, .00278, - + -.00012, .01250, .03077, - + .51519, .17638, .31209, .01531, .00309, - + -.00001, .01203, .02889, - + .49540, .16805, .28134, .01458, .00332, - + .00036, .01158, .02719, - + .47731, .16058, .25511, .01390, .00346, - + .00072, .01115, .02569, - + .46072, .15382, .23261, .01328, .00354, - + .00098, .01073, .02433 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ - + .44543, .14767, .21314, .01270, .00359, - + .00118, .01033, .02311, - + .43129, .14205, .19618, .01217, .00362, - + .00135, .00996, .02199, - + .41817, .13689, .18132, .01168, .00362, - + .00147, .00961, .02097, - + .40588, .13214, .16824, .01124, .00360, - + .00157, .00927, .02005, - + .39442, .12771, .15662, .01081, .00357, - + .00163, .00896, .01919, - + .38373, .12361, .14629, .01040, .00355, - + .00168, .00867, .01840, - + .37363, .11979, .13705, .01003, .00351, - + .00173, .00839, .01769 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ - + .36411, .11622, .12873, .00970, .00346, - + .00176, .00812, .01701, - + .35518, .11289, .12124, .00939, .00342, - + .00179, .00787, .01636, - + .34667, .10974, .11445, .00908, .00336, - + .00180, .00763, .01578, - + .33867, .10679, .10830, .00880, .00331, - + .00182, .00741, .01524, - + .33100, .10400, .10268, .00852, .00326, - + .00181, .00720, .01473 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + .56419, .19093, .37699, .01296, .00123, - + -.00003, .01000, .02672, - + .53441, .17856, .32759, .01227, .00176, - + -.00003, .00964, .02468, - + .50826, .16795, .28761, .01162, .00213, - + -.00003, .00928, .02287, - + .48514, .15872, .25497, .01102, .00236, - + .00005, .00889, .02135, - + .46437, .15057, .22780, .01047, .00250, - + .00032, .00852, .02002, - + .44555, .14331, .20490, .00996, .00260, - + .00057, .00816, .01882, - + .42839, .13675, .18544, .00949, .00265, - + .00076, .00783, .01777 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ - + .41267, .13082, .16877, .00905, .00267, - + .00092, .00752, .01681, - + .39819, .12544, .15439, .00866, .00268, - + .00103, .00722, .01594, - + .38480, .12053, .14189, .00831, .00267, - + .00111, .00695, .01514, - + .37239, .11598, .13094, .00796, .00265, - + .00117, .00668, .01443, - + .36084, .11179, .12129, .00763, .00262, - + .00121, .00643, .01378, - + .35011, .10793, .11276, .00732, .00259, - + .00124, .00620, .01319, - + .34004, .10434, .10519, .00704, .00255, - + .00127, .00598, .01263 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ - + .33056, .10098, .09842, .00678, .00251, - + .00129, .00578, .01212, - + .32166, .09786, .09235, .00654, .00247, - + .00130, .00559, .01165, - + .31324, .09493, .08688, .00631, .00242, - + .00130, .00541, .01121, - + .30535, .09220, .08193, .00610, .00238, - + .00130, .00524, .01080, - + .29782, .08959, .07743, .00591, .00234, - + .00130, .00508, .01041 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + .53418, .17278, .31758, .00933, .00090, - + -.00003, .00732, .01974, - + .50291, .16067, .27239, .00882, .00134, - + -.00003, .00705, .01807, - + .47575, .15032, .23649, .00831, .00159, - + -.00004, .00673, .01674, - + .45190, .14140, .20756, .00786, .00175, - + .00002, .00645, .01555, - + .43061, .13358, .18380, .00745, .00186, - + .00022, .00616, .01450, - + .41147, .12662, .16404, .00707, .00193, - + .00042, .00589, .01358, - + .39412, .12039, .14740, .00671, .00196, - + .00057, .00564, .01276 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ - + .37830, .11479, .13325, .00638, .00197, - + .00066, .00538, .01204, - + .36381, .10970, .12115, .00609, .00197, - + .00074, .00515, .01139, - + .35050, .10507, .11072, .00582, .00196, - + .00082, .00495, .01080, - + .33818, .10084, .10166, .00556, .00194, - + .00085, .00475, .01025, - + .32677, .09694, .09371, .00533, .00191, - + .00088, .00457, .00975, - + .31620, .09335, .08673, .00510, .00188, - + .00091, .00440, .00930, - + .30629, .09002, .08056, .00489, .00184, - + .00091, .00423, .00890 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ - + .29702, .08692, .07508, .00470, .00181, - + .00092, .00407, .00852, - + .28837, .08404, .07019, .00453, .00178, - + .00093, .00393, .00818, - + .28019, .08134, .06581, .00438, .00174, - + .00093, .00380, .00783, - + .27254, .07883, .06186, .00424, .00171, - + .00093, .00367, .00751, - + .26529, .07645, .05829, .00408, .00167, - + .00093, .00355, .00724 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + .50033, .15468, .26599, .00655, .00068, - + .00000, .00529, .01428, - + .46822, .14300, .22525, .00619, .00100, - + .00000, .00508, .01306, - + .44056, .13313, .19342, .00583, .00119, - + .00000, .00485, .01202, - + .41648, .12465, .16812, .00550, .00131, - + .00005, .00462, .01111, - + .39511, .11726, .14759, .00522, .00139, - + .00020, .00440, .01032, - + .37603, .11072, .13068, .00491, .00143, - + .00033, .00420, .00965, - + .35881, .10490, .11658, .00465, .00145, - + .00043, .00400, .00903 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ - + .34320, .09967, .10471, .00442, .00145, - + .00050, .00382, .00849, - + .32898, .09496, .09464, .00420, .00144, - + .00056, .00365, .00799, - + .31596, .09069, .08602, .00402, .00143, - + .00060, .00350, .00754, - + .30397, .08678, .07856, .00382, .00141, - + .00063, .00335, .00717, - + .29286, .08321, .07208, .00366, .00138, - + .00065, .00320, .00681, - + .28261, .07993, .06643, .00351, .00134, - + .00065, .00307, .00648, - + .27311, .07688, .06146, .00336, .00133, - + .00067, .00295, .00617 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ - + .26422, .07405, .05706, .00322, .00130, - + .00068, .00283, .00590, - + .25594, .07143, .05315, .00309, .00127, - + .00068, .00272, .00566, - + .24814, .06900, .04966, .00298, .00124, - + .00067, .00263, .00540, - + .24087, .06675, .04653, .00287, .00121, - + .00066, .00254, .00516, - + .23396, .06461, .04371, .00277, .00119, - + .00066, .00245, .00496 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + .46362, .13696, .22134, .00446, .00053, - + .00006, .00378, .01018, - + .43129, .12594, .18514, .00423, .00076, - + .00005, .00362, .00924, - + .40368, .11665, .15723, .00399, .00090, - + .00005, .00345, .00848, - + .37979, .10874, .13536, .00377, .00098, - + .00007, .00328, .00780, - + .35876, .10187, .11783, .00355, .00103, - + .00018, .00312, .00724, - + .34005, .09581, .10350, .00335, .00106, - + .00027, .00296, .00672, - + .32326, .09045, .09169, .00318, .00106, - + .00033, .00281, .00627 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ - + .30811, .08565, .08182, .00302, .00106, - + .00039, .00268, .00588, - + .29438, .08135, .07350, .00286, .00105, - + .00043, .00255, .00554, - + .28185, .07745, .06643, .00271, .00104, - + .00045, .00244, .00523, - + .27037, .07391, .06037, .00258, .00102, - + .00047, .00233, .00494, - + .25979, .07067, .05514, .00246, .00100, - + .00047, .00222, .00468, - + .25004, .06772, .05059, .00236, .00098, - + .00048, .00213, .00444, - + .24101, .06499, .04661, .00226, .00096, - + .00049, .00204, .00421 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ - + .23259, .06247, .04310, .00218, .00094, - + .00049, .00196, .00400, - + .22477, .06015, .04000, .00210, .00091, - + .00049, .00188, .00382, - + .21745, .05796, .03725, .00201, .00089, - + .00049, .00181, .00366, - + .21065, .05593, .03479, .00192, .00087, - + .00048, .00174, .00352, - + .20421, .05404, .03259, .00185, .00084, - + .00048, .00167, .00336 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + .42506, .12017, .18305, .00307, .00035, - + .00002, .00260, .00709, - + .39308, .10986, .15119, .00293, .00053, - + .00001, .00251, .00641, - + .36603, .10125, .12701, .00273, .00064, - + .00001, .00238, .00587, - + .34276, .09394, .10831, .00256, .00070, - + .00004, .00227, .00540, - + .32237, .08764, .09346, .00243, .00074, - + .00012, .00215, .00499, - + .30435, .08212, .08148, .00229, .00076, - + .00019, .00203, .00461, - + .28825, .07726, .07164, .00216, .00077, - + .00024, .00193, .00430 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ - + .27379, .07293, .06351, .00205, .00077, - + .00028, .00184, .00401, - + .26072, .06904, .05674, .00194, .00076, - + .00030, .00175, .00376, - + .24886, .06555, .05102, .00185, .00074, - + .00032, .00166, .00355, - + .23802, .06238, .04613, .00178, .00072, - + .00033, .00158, .00333, - + .22810, .05949, .04193, .00168, .00070, - + .00033, .00151, .00315, - + .21899, .05684, .03831, .00160, .00069, - + .00034, .00145, .00298, - + .21055, .05443, .03516, .00153, .00067, - + .00034, .00139, .00281 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ - + .20273, .05220, .03240, .00147, .00065, - + .00034, .00133, .00267, - + .19548, .05014, .02997, .00141, .00063, - + .00034, .00127, .00254, - + .18871, .04821, .02781, .00134, .00062, - + .00034, .00122, .00244, - + .18242, .04643, .02588, .00128, .00060, - + .00034, .00117, .00234, - + .17645, .04478, .02418, .00125, .00059, - + .00033, .00113, .00223 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + .38548, .10424, .15013, .00204, .00027, - + .00002, .00178, .00482, - + .35446, .09478, .12249, .00196, .00040, - + .00002, .00171, .00436, - + .32832, .08694, .10182, .00184, .00045, - + .00002, .00162, .00399, - + .30601, .08032, .08603, .00173, .00049, - + .00003, .00153, .00365, - + .28659, .07463, .07361, .00165, .00052, - + .00010, .00146, .00336, - + .26947, .06967, .06369, .00156, .00053, - + .00014, .00137, .00311, - + .25427, .06531, .05562, .00148, .00053, - + .00017, .00130, .00289 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ - + .24069, .06145, .04900, .00140, .00052, - + .00019, .00123, .00269, - + .22848, .05800, .04351, .00133, .00051, - + .00020, .00117, .00251, - + .21745, .05490, .03891, .00126, .00050, - + .00021, .00111, .00235, - + .20741, .05210, .03500, .00119, .00049, - + .00022, .00105, .00222, - + .19820, .04956, .03168, .00113, .00048, - + .00023, .00100, .00209, - + .18977, .04724, .02882, .00109, .00047, - + .00023, .00095, .00198, - + .18204, .04512, .02633, .00103, .00045, - + .00023, .00091, .00187 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ - + .17486, .04318, .02418, .00099, .00044, - + .00023, .00087, .00178, - + .16821, .04139, .02229, .00095, .00042, - + .00023, .00083, .00170, - + .16204, .03973, .02062, .00090, .00042, - + .00022, .00080, .00161, - + .15633, .03819, .01914, .00086, .00041, - + .00022, .00077, .00152, - + .15092, .03675, .01783, .00084, .00040, - + .00021, .00074, .00145 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + .34571, .08937, .12198, .00130, .00020, - + .00004, .00120, .00324, - + .31607, .08080, .09830, .00124, .00029, - + .00004, .00116, .00290, - + .29123, .07373, .08083, .00118, .00034, - + .00004, .00110, .00264, - + .27013, .06781, .06760, .00113, .00037, - + .00006, .00105, .00241, - + .25191, .06275, .05734, .00105, .00038, - + .00008, .00099, .00222, - + .23591, .05836, .04922, .00100, .00039, - + .00011, .00094, .00205, - + .22178, .05451, .04269, .00095, .00038, - + .00014, .00089, .00189 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ - + .20922, .05111, .03736, .00089, .00039, - + .00015, .00084, .00175, - + .19795, .04809, .03297, .00084, .00038, - + .00016, .00079, .00164, - + .18778, .04538, .02933, .00081, .00036, - + .00016, .00074, .00154, - + .17859, .04295, .02625, .00077, .00035, - + .00016, .00071, .00144, - + .17021, .04074, .02364, .00072, .00034, - + .00017, .00068, .00136, - + .16255, .03874, .02141, .00068, .00033, - + .00017, .00064, .00128, - + .15549, .03693, .01949, .00067, .00033, - + .00017, .00062, .00119 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ - + .14900, .03525, .01783, .00065, .00032, - + .00017, .00059, .00113, - + .14304, .03370, .01637, .00061, .00030, - + .00016, .00056, .00108, - + .13748, .03227, .01509, .00057, .00030, - + .00016, .00054, .00103, - + .13235, .03096, .01396, .00054, .00029, - + .00016, .00051, .00098, - + .12751, .02974, .01297, .00053, .00028, - + .00016, .00049, .00093 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + .30661, .07579, .09819, .00083, .00014, - + .00004, .00079, .00210, - + .27860, .06813, .07808, .00078, .00021, - + .00002, .00077, .00189, - + .25535, .06184, .06347, .00075, .00025, - + .00003, .00074, .00172, - + .23575, .05660, .05257, .00069, .00027, - + .00003, .00071, .00157, - + .21886, .05214, .04419, .00065, .00029, - + .00006, .00067, .00143, - + .20414, .04830, .03763, .00062, .00029, - + .00008, .00063, .00131, - + .19121, .04494, .03240, .00057, .00029, - + .00010, .00059, .00123 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ - + .17973, .04198, .02817, .00053, .00028, - + .00011, .00056, .00115, - + .16947, .03937, .02472, .00051, .00027, - + .00012, .00053, .00106, - + .16028, .03705, .02185, .00049, .00028, - + .00013, .00051, .00098, - + .15200, .03496, .01946, .00045, .00026, - + .00014, .00047, .00093, - + .14442, .03308, .01745, .00044, .00025, - + .00013, .00045, .00086, - + .13754, .03138, .01573, .00043, .00025, - + .00013, .00043, .00081, - + .13127, .02982, .01426, .00039, .00024, - + .00013, .00041, .00076 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ - + .12549, .02840, .01300, .00036, .00023, - + .00013, .00040, .00072, - + .12018, .02709, .01190, .00035, .00022, - + .00013, .00038, .00068, - + .11524, .02589, .01093, .00034, .00022, - + .00013, .00036, .00065, - + .11069, .02478, .01008, .00033, .00021, - + .00012, .00035, .00062, - + .10644, .02375, .00934, .00031, .00020, - + .00012, .00033, .00059 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + .26878, .06359, .07832, .00057, .00005, - + -.00001, .00047, .00134, - + .24281, .05684, .06152, .00056, .00011, - + -.00002, .00046, .00121, - + .22137, .05135, .04950, .00054, .00014, - + -.00002, .00044, .00110, - + .20344, .04679, .04061, .00050, .00016, - + .00000, .00042, .00099, - + .18808, .04293, .03385, .00046, .00017, - + .00001, .00041, .00091, - + .17473, .03961, .02861, .00043, .00017, - + .00003, .00038, .00085, - + .16306, .03674, .02446, .00040, .00017, - + .00004, .00036, .00078 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ - + .15274, .03422, .02113, .00038, .00017, - + .00006, .00034, .00072, - + .14357, .03199, .01843, .00036, .00017, - + .00007, .00032, .00067, - + .13536, .03001, .01621, .00035, .00016, - + .00007, .00031, .00063, - + .12798, .02824, .01436, .00032, .00015, - + .00007, .00029, .00059, - + .12130, .02665, .01282, .00030, .00014, - + .00006, .00027, .00055, - + .11523, .02522, .01151, .00030, .00014, - + .00006, .00026, .00051, - + .10968, .02390, .01040, .00029, .00014, - + .00007, .00025, .00049 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ - + .10460, .02271, .00945, .00028, .00014, - + .00007, .00024, .00046, - + .09996, .02163, .00861, .00026, .00013, - + .00007, .00022, .00043, - + .09565, .02063, .00789, .00025, .00012, - + .00006, .00021, .00041, - + .09169, .01972, .00726, .00023, .00012, - + .00006, .00020, .00039, - + .08798, .01886, .00670, .00023, .00011, - + .00006, .00019, .00037 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + .23244, .05247, .06152, .00028, .00007, - + .00002, .00033, .00082, - + .20874, .04663, .04770, .00030, .00010, - + .00003, .00032, .00074, - + .18930, .04191, .03797, .00028, .00012, - + .00002, .00029, .00068, - + .17310, .03801, .03085, .00027, .00013, - + .00002, .00029, .00061, - + .15930, .03473, .02548, .00027, .00013, - + .00003, .00027, .00056, - + .14740, .03193, .02136, .00025, .00013, - + .00004, .00025, .00051, - + .13700, .02950, .01813, .00025, .00012, - + .00004, .00023, .00047 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ - + .12787, .02738, .01557, .00024, .00012, - + .00005, .00022, .00044, - + .11980, .02552, .01350, .00022, .00012, - + .00006, .00021, .00042, - + .11262, .02387, .01180, .00020, .00011, - + .00006, .00020, .00039, - + .10614, .02240, .01041, .00020, .00010, - + .00005, .00019, .00036, - + .10030, .02108, .00924, .00020, .00010, - + .00005, .00018, .00033, - + .09503, .01989, .00827, .00019, .00010, - + .00005, .00017, .00031, - + .09024, .01881, .00743, .00017, .00010, - + .00005, .00016, .00030 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ - + .08585, .01783, .00672, .00016, .00009, - + .00005, .00015, .00028, - + .08184, .01694, .00611, .00016, .00009, - + .00005, .00014, .00026, - + .07814, .01612, .00558, .00015, .00008, - + .00005, .00014, .00025, - + .07475, .01537, .00511, .00014, .00008, - + .00005, .00013, .00023, - + .07158, .01468, .00471, .00013, .00008, - + .00005, .00012, .00022 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + .19831, .04271, .04770, .00015, .00006, - + .00003, .00021, .00049, - + .17704, .03772, .03651, .00015, .00008, - + .00004, .00021, .00044, - + .15966, .03374, .02872, .00015, .00009, - + .00003, .00019, .00041, - + .14528, .03045, .02309, .00015, .00010, - + .00003, .00018, .00037, - + .13312, .02770, .01890, .00012, .00009, - + .00003, .00017, .00035, - + .12264, .02536, .01572, .00013, .00009, - + .00004, .00016, .00032, - + .11355, .02334, .01324, .00013, .00009, - + .00004, .00016, .00029 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ - + .10559, .02159, .01128, .00013, .00009, - + .00004, .00015, .00026, - + .09856, .02005, .00972, .00013, .00008, - + .00004, .00014, .00024, - + .09234, .01870, .00846, .00012, .00008, - + .00004, .00013, .00024, - + .08679, .01749, .00741, .00011, .00008, - + .00004, .00012, .00021, - + .08179, .01641, .00655, .00010, .00007, - + .00004, .00012, .00020, - + .07728, .01544, .00583, .00009, .00007, - + .00004, .00011, .00019, - + .07318, .01457, .00523, .00009, .00007, - + .00004, .00010, .00017 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ - + .06944, .01378, .00471, .00009, .00007, - + .00004, .00010, .00016, - + .06604, .01305, .00426, .00009, .00006, - + .00004, .00009, .00016, - + .06289, .01239, .00388, .00009, .00006, - + .00004, .00009, .00015, - + .06001, .01179, .00355, .00009, .00006, - + .00004, .00008, .00014, - + .05735, .01123, .00326, .00008, .00006, - + .00003, .00008, .00013 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + .16694, .03433, .03654, .00011, .00002, - + .00000, .00011, .00029, - + .14812, .03014, .02760, .00009, .00004, - + .00000, .00011, .00025, - + .13284, .02682, .02146, .00011, .00005, - + .00000, .00010, .00024, - + .12028, .02409, .01708, .00010, .00005, - + .00001, .00010, .00022, - + .10968, .02181, .01385, .00011, .00005, - + .00001, .00010, .00020, - + .10063, .01989, .01142, .00010, .00005, - + .00001, .00009, .00018, - + .09282, .01824, .00955, .00008, .00005, - + .00002, .00009, .00018 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ - + .08601, .01681, .00809, .00008, .00005, - + .00002, .00008, .00016, - + .08002, .01556, .00692, .00008, .00005, - + .00002, .00008, .00014, - + .07472, .01446, .00599, .00007, .00004, - + .00002, .00007, .00014, - + .07000, .01349, .00522, .00008, .00004, - + .00002, .00006, .00012, - + .06577, .01262, .00460, .00008, .00004, - + .00002, .00006, .00012, - + .06197, .01185, .00407, .00007, .00004, - + .00002, .00006, .00011, - + .05852, .01115, .00363, .00008, .00004, - + .00002, .00006, .00010 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ - + .05539, .01051, .00326, .00007, .00004, - + .00002, .00005, .00010, - + .05255, .00994, .00294, .00007, .00003, - + .00002, .00005, .00008, - + .04994, .00942, .00267, .00006, .00003, - + .00002, .00005, .00008, - + .04756, .00894, .00243, .00005, .00003, - + .00001, .00004, .00008, - + .04536, .00850, .00223, .00005, .00003, - + .00002, .00004, .00008 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + .13809, .02701, .02739, .00002, .00003, - + .00002, .00008, .00015, - + .12169, .02358, .02042, .00004, .00004, - + .00003, .00008, .00013, - + .10853, .02085, .01567, .00004, .00005, - + .00002, .00007, .00013, - + .09775, .01864, .01235, .00004, .00004, - + .00002, .00007, .00012, - + .08873, .01681, .00992, .00004, .00004, - + .00002, .00007, .00011, - + .08106, .01526, .00811, .00004, .00004, - + .00002, .00006, .00010, - + .07444, .01393, .00672, .00005, .00004, - + .00002, .00006, .00009 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ - + .06871, .01279, .00565, .00004, .00004, - + .00002, .00006, .00009, - + .06370, .01180, .00481, .00004, .00003, - + .00002, .00005, .00008, - + .05928, .01094, .00413, .00005, .00003, - + .00002, .00004, .00007, - + .05535, .01017, .00358, .00005, .00003, - + .00002, .00005, .00006, - + .05185, .00948, .00314, .00004, .00003, - + .00002, .00004, .00006, - + .04872, .00888, .00277, .00003, .00003, - + .00002, .00004, .00006, - + .04589, .00833, .00246, .00004, .00003, - + .00002, .00004, .00005 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ - + .04333, .00784, .00220, .00003, .00003, - + .00002, .00004, .00005, - + .04100, .00739, .00198, .00002, .00003, - + .00002, .00003, .00005, - + .03886, .00698, .00179, .00003, .00003, - + .00002, .00003, .00005, - + .03690, .00662, .00162, .00004, .00003, - + .00002, .00003, .00004, - + .03511, .00628, .00148, .00003, .00002, - + .00001, .00003, .00004 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + .08966, .01586, .01459, .00001, .00001, - + .00000, .00001, .00005, - + .07796, .01367, .01055, .00001, .00001, - + .00000, .00002, .00005, - + .06870, .01195, .00790, .00002, .00001, - + .00000, .00002, .00004, - + .06121, .01057, .00608, .00001, .00001, - + .00000, .00002, .00003, - + .05500, .00943, .00479, .00001, .00001, - + .00000, .00002, .00003, - + .04978, .00848, .00384, .00001, .00001, - + .00001, .00002, .00003, - + .04532, .00768, .00313, .00002, .00001, - + .00001, .00002, .00003 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ - + .04150, .00700, .00260, .00002, .00001, - + .00001, .00002, .00003, - + .03818, .00641, .00218, .00002, .00001, - + .00001, .00002, .00003, - + .03527, .00589, .00185, .00001, .00001, - + .00001, .00002, .00003, - + .03273, .00544, .00159, .00001, .00001, - + .00001, .00001, .00002, - + .03047, .00505, .00137, .00001, .00001, - + .00001, .00001, .00002, - + .02845, .00469, .00120, .00001, .00001, - + .00000, .00001, .00002, - + .02664, .00438, .00106, .00000, .00001, - + .00000, .00001, .00001 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ - + .02501, .00410, .00094, .00001, .00001, - + .00000, .00001, .00001, - + .02354, .00384, .00084, .00001, .00001, - + .00000, .00001, .00001, - + .02220, .00361, .00075, .00001, .00001, - + .00000, .00001, .00001, - + .02100, .00341, .00068, .00000, .00001, - + .00000, .00001, .00001, - + .01987, .00322, .00062, .00001, .00001, - + .00001, .00001, .00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + .05321, .00844, .00701, .00001, .00000, - + .00000, .00000, .00001, - + .04558, .00717, .00491, .00001, .00000, - + .00000, .00000, .00002, - + .03967, .00619, .00358, .00001, .00000, - + .00000, .00001, .00000, - + .03492, .00541, .00269, .00001, .00000, - + .00000, .00000, .00001, - + .03105, .00478, .00207, .00000, .00000, - + .00000, .00000, .00001, - + .02782, .00426, .00163, .00000, .00000, - + .00000, .00000, .00001, - + .02510, .00382, .00131, .00000, .00000, - + .00000, .00001, .00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ - + .02279, .00345, .00106, .00000, .00000, - + .00000, .00000, .00001, - + .02080, .00313, .00088, .00000, .00000, - + .00000, .00000, .00001, - + .01907, .00286, .00074, .00000, .00000, - + .00000, .00000, .00001, - + .01755, .00262, .00063, .00001, .00000, - + .00000, .00000, .00001, - + .01622, .00242, .00054, .00000, .00000, - + .00000, .00000, .00000, - + .01505, .00223, .00046, .00000, .00000, - + .00000, .00000, .00000, - + .01400, .00207, .00040, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ - + .01307, .00193, .00036, .00000, .00000, - + .00000, .00000, .00000, - + .01223, .00180, .00031, .00000, .00000, - + .00000, .00000, .00000, - + .01147, .00168, .00028, .00000, .00000, - + .00000, .00000, .00000, - + .01079, .00158, .00025, .00000, .00000, - + .00000, .00000, .00000, - + .01016, .00148, .00023, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + .02805, .00394, .00293, .00001, .00000, - + .00000, .00000, .00000, - + .02364, .00330, .00198, .00000, .00000, - + .00000, .00000, .00000, - + .02028, .00280, .00140, .00000, .00000, - + .00000, .00000, .00000, - + .01762, .00242, .00102, .00000, .00000, - + .00000, .00000, .00000, - + .01547, .00211, .00077, .00001, .00000, - + .00000, .00000, .00000, - + .01371, .00186, .00059, .00000, .00000, - + .00000, .00000, .00000, - + .01224, .00165, .00047, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ - + .01100, .00148, .00037, .00000, .00000, - + .00000, .00000, .00000, - + .00995, .00133, .00030, .00000, .00000, - + .00000, .00000, .00000, - + .00904, .00121, .00025, .00000, .00000, - + .00000, .00000, .00000, - + .00826, .00110, .00021, .00000, .00000, - + .00000, .00000, .00000, - + .00757, .00100, .00018, .00000, .00000, - + .00000, .00000, .00000, - + .00698, .00092, .00015, .00000, .00000, - + .00000, .00000, .00000, - + .00644, .00085, .00013, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ - + .00597, .00078, .00011, .00000, .00000, - + .00000, .00000, .00000, - + .00555, .00073, .00010, .00000, .00000, - + .00000, .00000, .00000, - + .00518, .00067, .00009, .00000, .00000, - + .00000, .00000, .00000, - + .00484, .00063, .00008, .00000, .00000, - + .00000, .00000, .00000, - + .00453, .00059, .00007, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + .01243, .00151, .00099, .00000, .00000, - + .00000, .00000, .00000, - + .01029, .00124, .00065, .00000, .00000, - + .00000, .00000, .00000, - + .00867, .00104, .00044, .00000, .00000, - + .00000, .00000, .00000, - + .00742, .00088, .00031, .00000, .00000, - + .00000, .00000, .00000, - + .00643, .00076, .00023, .00000, .00000, - + .00000, .00000, .00000, - + .00562, .00066, .00017, .00000, .00000, - + .00000, .00000, .00000, - + .00496, .00058, .00013, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ - + .00441, .00052, .00010, .00000, .00000, - + .00000, .00000, .00000, - + .00394, .00046, .00008, .00000, .00000, - + .00000, .00000, .00000, - + .00355, .00041, .00007, .00000, .00000, - + .00000, .00000, .00000, - + .00321, .00037, .00006, .00000, .00000, - + .00000, .00000, .00000, - + .00292, .00034, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00266, .00031, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00244, .00028, .00003, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ - + .00225, .00026, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00207, .00024, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00192, .00022, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00178, .00020, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00166, .00019, .00002, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + .00090, .00007, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00070, .00006, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00057, .00005, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00046, .00004, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00039, .00003, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00032, .00003, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00028, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ - + .00024, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00021, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00018, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00016, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00014, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00013, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00011, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ - + .00010, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00009, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00008, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00007, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00007, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,5,9,0,0,9,9/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - xsave=x -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(55,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7) GO TO 31 - DO 30 K=1,19 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,8 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) -C - x=xsave -C - RETURN - END diff --git a/PDF/spdf/sfms110.F b/PDF/spdf/sfms110.F deleted file mode 100644 index ce0a3d0fa37..00000000000 --- a/PDF/spdf/sfms110.F +++ /dev/null @@ -1,1970 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE SFMS110(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) -C -C THIS IS THE alphas=0.110 FIT -- May 1995 -- standard Q^2 range -C -#include "pdf/impdp.inc" -C - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,20),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + .00350, .00584, 15.76545, 1.36380, .15972, - + .00000, .73557, 1.36685, - + .00388, .00609, 26.72803, 1.67856, .48954, - + .00000, 1.05886, 1.68223, - + .00423, .00632, 39.70970, 2.05033, .87447, - + .00000, 1.43812, 2.05457, - + .00457, .00653, 54.51459, 2.47316, 1.30900, - + .18116, 1.86762, 2.47792, - + .00489, .00673, 70.80423, 2.94346, 1.78988, - + .70933, 2.34397, 2.94871, - + .00520, .00693, 88.54226, 3.45863, 2.31472, - + 1.24271, 2.86469, 3.46434, - + .00549, .00711, 107.51952, 4.01425, 2.87924, - + 1.81975, 3.42544, 4.02039 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ - + .00577, .00729, 127.57347, 4.60658, 3.47983, - + 2.43115, 4.02253, 4.61314, - + .00605, .00746, 148.57693, 5.23245, 4.11339, - + 3.07486, 4.65284, 5.23940, - + .00632, .00762, 170.40149, 5.88889, 4.77703, - + 3.74793, 5.31345, 5.89621, - + .00657, .00778, 192.71471, 6.56903, 5.46396, - + 4.44370, 5.99753, 6.57672, - + .00683, .00794, 215.68127, 7.27477, 6.17609, - + 5.16412, 6.70698, 7.28281, - + .00707, .00809, 239.28069, 8.00535, 6.91272, - + 5.90856, 7.44108, 8.01372, - + .00731, .00823, 263.13687, 8.75291, 7.66602, - + 6.66925, 8.19198, 8.76160 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ - + .00754, .00838, 287.34186, 9.51840, 8.43698, - + 7.44721, 8.96066, 9.52740, - + .00777, .00852, 312.06598, 10.30521, 9.22899, - + 8.24587, 9.75050, 10.31451, - + .00799, .00865, 336.64063, 11.09840, 10.02717, - + 9.05040, 10.54661, 11.10800, - + .00821, .00878, 361.79715, 11.91353, 10.84707, - + 9.87634, 11.36452, 11.92340, - + .00842, .00891, 386.70850, 12.73188, 11.67000, - + 10.70506, 12.18556, 12.74203 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + .00536, .00758, 13.84617, 1.20533, .13713, - + .00000, .64647, 1.20833, - + .00590, .00792, 22.73385, 1.46475, .41024, - + .00000, .91345, 1.46816, - + .00640, .00823, 32.96960, 1.76511, .72254, - + .00000, 1.22044, 1.76890, - + .00687, .00852, 44.38044, 2.10098, 1.06901, - + .14397, 1.56220, 2.10511, - + .00732, .00879, 56.69380, 2.46896, 1.44657, - + .56022, 1.93553, 2.47341, - + .00774, .00905, 69.87840, 2.86672, 1.85308, - + .97434, 2.33817, 2.87147, - + .00815, .00930, 83.77415, 3.29058, 2.28500, - + 1.41696, 2.76653, 3.29561 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ - + .00855, .00954, 98.26125, 3.73752, 2.73940, - + 1.88065, 3.21765, 3.74282, - + .00893, .00977, 113.24922, 4.20504, 3.21388, - + 2.36384, 3.68907, 4.21060, - + .00929, .00999, 128.64873, 4.69090, 3.70623, - + 2.86430, 4.17858, 4.69669, - + .00965, .01020, 144.22554, 5.18993, 4.21138, - + 3.37703, 4.68105, 5.19596, - + .01000, .01041, 160.10609, 5.70364, 4.73085, - + 3.90362, 5.19800, 5.70989, - + .01033, .01061, 176.28105, 6.23151, 5.26417, - + 4.44364, 5.72894, 6.23798, - + .01066, .01080, 192.48924, 6.76780, 5.80564, - + 4.99144, 6.26815, 6.77447 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ - + .01098, .01099, 208.80417, 7.31332, 6.35608, - + 5.54789, 6.81645, 7.32020, - + .01129, .01117, 225.35027, 7.87063, 6.91808, - + 6.11559, 7.37640, 7.87770, - + .01159, .01135, 241.66792, 8.42894, 7.48087, - + 6.68382, 7.93724, 8.43619, - + .01189, .01152, 258.27087, 8.99965, 8.05586, - + 7.26399, 8.51037, 9.00708, - + .01218, .01169, 274.59384, 9.56934, 8.62967, - + 7.84276, 9.08239, 9.57695 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + .00811, .00984, 12.15788, 1.06455, .11760, - + .00000, .56796, 1.06759, - + .00887, .01030, 19.33097, 1.27746, .34297, - + .00000, .78763, 1.28076, - + .00957, .01072, 27.36415, 1.51900, .59538, - + .00000, 1.03507, 1.52253, - + .01022, .01111, 36.11627, 1.78447, .87049, - + .11395, 1.30578, 1.78822, - + .01085, .01148, 45.37636, 2.07092, 1.16565, - + .44068, 1.59697, 2.07487, - + .01144, .01183, 55.12385, 2.37640, 1.47909, - + .76087, 1.90679, 2.38055, - + .01201, .01217, 65.24172, 2.69800, 1.80801, - + 1.09891, 2.23238, 2.70232 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ - + .01255, .01248, 75.64615, 3.03339, 2.15017, - + 1.44904, 2.57146, 3.03787, - + .01308, .01279, 86.27654, 3.38069, 2.50378, - + 1.81011, 2.92221, 3.38533, - + .01358, .01309, 97.07407, 3.73825, 2.86723, - + 2.18050, 3.28299, 3.74305, - + .01407, .01337, 107.87643, 4.10229, 3.23681, - + 2.55657, 3.65006, 4.10723, - + .01455, .01364, 118.78291, 4.47404, 3.61379, - + 2.93964, 4.02467, 4.47912, - + .01501, .01391, 129.79192, 4.85320, 3.99788, - + 3.32947, 4.40653, 4.85841, - + .01545, .01416, 140.72470, 5.23563, 4.38499, - + 3.72199, 4.79152, 5.24096 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ - + .01589, .01441, 151.63962, 5.62203, 4.77584, - + 4.11799, 5.18036, 5.62748, - + .01631, .01466, 162.62886, 6.01435, 5.17240, - + 4.51942, 5.57501, 6.01993, - + .01672, .01489, 173.37791, 6.40488, 5.56699, - + 4.91866, 5.96776, 6.41057, - + .01713, .01512, 184.24803, 6.80195, 5.96792, - + 5.32403, 6.36695, 6.80775, - + .01752, .01534, 194.85468, 7.19599, 6.36569, - + 5.72603, 6.76304, 7.20190 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + .01027, .01146, 11.26534, .98946, .10742, - + .00000, .52641, .99259, - + .01120, .01201, 17.57743, 1.17869, .30847, - + .00000, .72198, 1.18202, - + .01205, .01252, 24.53098, 1.39077, .53085, - + .00000, .93960, 1.39428, - + .01285, .01298, 32.00478, 1.62148, .77071, - + .09916, 1.17523, 1.62516, - + .01360, .01343, 39.82050, 1.86819, 1.02567, - + .38213, 1.42638, 1.87202, - + .01432, .01384, 47.96474, 2.12920, 1.29423, - + .65695, 1.69145, 2.13318, - + .01501, .01424, 56.34219, 2.40202, 1.57398, - + .94502, 1.96801, 2.40613 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ - + .01567, .01462, 64.88661, 2.68469, 1.86306, - + 1.24137, 2.25413, 2.68893, - + .01630, .01498, 73.55186, 2.97566, 2.16000, - + 1.54511, 2.54832, 2.98001, - + .01691, .01533, 82.29319, 3.27357, 2.46350, - + 1.85493, 2.84924, 3.27804, - + .01750, .01566, 90.98100, 3.57530, 2.77048, - + 2.16783, 3.15381, 3.57988, - + .01807, .01599, 99.70162, 3.88197, 3.08209, - + 2.48500, 3.46314, 3.88665, - + .01862, .01630, 108.45699, 4.19338, 3.39817, - + 2.80630, 3.77707, 4.19816, - + .01916, .01660, 117.10468, 4.50611, 3.71533, - + 3.12841, 4.09220, 4.51099 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ - + .01968, .01690, 125.69592, 4.82085, 4.03428, - + 3.45204, 4.40921, 4.82582, - + .02019, .01718, 134.30804, 5.13925, 4.35669, - + 3.77890, 4.72977, 5.14431, - + .02068, .01746, 142.69025, 5.45499, 4.67626, - + 4.10271, 5.04758, 5.46013, - + .02116, .01773, 151.13611, 5.77500, 4.99993, - + 4.43042, 5.36958, 5.78023, - + .02163, .01799, 159.33914, 6.09147, 5.31991, - + 4.75426, 5.68794, 6.09677 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + .01212, .01278, 10.67074, .93913, .10070, - + .00000, .49870, .94237, - + .01318, .01340, 16.42786, 1.11296, .28593, - + .00000, .67862, 1.11637, - + .01417, .01398, 22.69605, 1.30608, .48898, - + .00000, .87704, 1.30964, - + .01509, .01451, 29.36817, 1.51464, .70636, - + .08975, 1.09031, 1.51833, - + .01595, .01500, 36.28737, 1.73620, .93588, - + .34497, 1.31612, 1.74003, - + .01678, .01548, 43.44522, 1.96929, 1.17624, - + .59128, 1.55310, 1.97324, - + .01756, .01592, 50.76023, 2.21168, 1.42531, - + .84812, 1.79906, 2.21574 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ - + .01832, .01635, 58.17730, 2.46165, 1.68146, - + 1.11108, 2.05234, 2.46582, - + .01904, .01676, 65.65899, 2.71786, 1.94343, - + 1.37942, 2.31163, 2.72213, - + .01974, .01715, 73.16917, 2.97916, 2.21010, - + 1.65201, 2.57581, 2.98352, - + .02041, .01753, 80.59789, 3.24282, 2.47882, - + 1.92627, 2.84217, 3.24727, - + .02106, .01789, 88.02338, 3.50988, 2.75064, - + 2.20330, 3.11178, 3.51442, - + .02169, .01825, 95.44975, 3.78022, 3.02548, - + 2.48303, 3.38453, 3.78485, - + .02230, .01859, 102.75584, 4.05088, 3.30041, - + 2.76258, 3.65747, 4.05559 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ - + .02289, .01891, 109.98847, 4.32249, 3.57607, - + 3.04263, 3.93125, 4.32727, - + .02346, .01923, 117.21607, 4.59656, 3.85400, - + 3.32472, 4.20739, 4.60142, - + .02402, .01954, 124.22512, 4.86758, 4.12871, - + 3.60340, 4.48039, 4.87251, - + .02457, .01985, 131.26889, 5.14166, 4.40632, - + 3.88478, 4.75636, 5.14666, - + .02510, .02014, 138.08716, 5.41201, 4.68005, - + 4.16213, 5.02852, 5.41708 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + .01376, .01391, 10.23021, .90166, .09575, - + .00000, .47816, .90501, - + .01495, .01459, 15.58616, 1.06429, .26947, - + .00000, .64668, 1.06779, - + .01605, .01523, 21.36449, 1.24372, .45857, - + .00000, .83125, 1.24735, - + .01707, .01581, 27.46876, 1.43639, .65981, - + .08300, 1.02848, 1.44015, - + .01803, .01636, 33.75774, 1.64004, .87121, - + .31844, 1.23625, 1.64391, - + .01895, .01688, 40.22672, 1.85334, 1.09157, - + .54451, 1.45331, 1.85732, - + .01982, .01737, 46.80410, 2.07425, 1.31899, - + .77930, 1.67769, 2.07834 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ - + .02066, .01784, 53.44252, 2.30125, 1.55200, - + 1.01878, 1.90789, 2.30543, - + .02146, .01829, 60.11060, 2.53314, 1.78949, - + 1.26232, 2.14276, 2.53741, - + .02223, .01872, 66.77824, 2.76891, 2.03049, - + 1.50895, 2.38132, 2.77327, - + .02298, .01913, 73.34869, 3.00612, 2.27262, - + 1.75633, 2.62114, 3.01056, - + .02370, .01953, 79.89471, 3.24576, 2.51689, - + 2.00554, 2.86325, 3.25028, - + .02439, .01992, 86.42159, 3.48774, 2.76324, - + 2.25654, 3.10756, 3.49233, - + .02506, .02029, 92.82278, 3.72942, 3.00907, - + 2.50676, 3.35144, 3.73408 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ - + .02572, .02065, 99.14192, 3.97141, 3.25500, - + 2.75686, 3.59553, 3.97614, - + .02635, .02100, 105.44106, 4.21509, 3.50244, - + 3.00824, 3.84122, 4.21990, - + .02697, .02133, 111.53206, 4.45555, 3.74648, - + 3.25606, 4.08358, 4.46042, - + .02757, .02166, 117.64073, 4.69830, 3.99266, - + 3.50582, 4.32816, 4.70323, - + .02816, .02198, 123.53794, 4.93727, 4.23492, - + 3.75151, 4.56888, 4.94226 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + .02032, .01811, 8.96701, .79321, .08174, - + .00000, .41915, .79709, - + .02199, .01904, 13.22234, .92474, .22350, - + .00000, .55609, .92875, - + .02353, .01989, 17.68326, 1.06672, .37441, - + .00000, .70278, 1.07086, - + .02495, .02068, 22.28451, 1.21643, .53204, - + .06482, .85668, 1.22069, - + .02629, .02142, 26.92757, 1.37216, .69492, - + .24717, 1.01619, 1.37653, - + .02756, .02212, 31.61810, 1.53301, .86229, - + .41954, 1.18048, 1.53747, - + .02877, .02277, 36.31049, 1.69751, 1.03279, - + .59630, 1.34815, 1.70207 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ - + .02992, .02340, 40.97721, 1.86462, 1.20545, - + .77446, 1.51818, 1.86926, - + .03103, .02400, 45.60224, 2.03354, 1.37955, - + .95370, 1.68983, 2.03827, - + .03208, .02457, 50.16994, 2.20364, 1.55447, - + 1.13341, 1.86248, 2.20844, - + .03310, .02512, 54.61698, 2.37319, 1.72856, - + 1.31197, 2.03442, 2.37807, - + .03408, .02565, 59.00085, 2.54306, 1.90270, - + 1.49031, 2.20654, 2.54801, - + .03503, .02616, 63.32956, 2.71326, 2.07695, - + 1.66850, 2.37888, 2.71829, - + .03594, .02665, 67.53239, 2.88196, 2.24947, - + 1.84476, 2.54959, 2.88704 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ - + .03683, .02712, 71.64390, 3.04968, 2.42083, - + 2.01966, 2.71923, 3.05483, - + .03769, .02758, 75.71024, 3.21751, 2.59212, - + 2.19430, 2.88888, 3.22272, - + .03852, .02803, 79.60498, 3.38197, 2.75989, - + 2.36527, 3.05508, 3.38724, - + .03933, .02846, 83.48587, 3.54708, 2.92817, - + 2.53659, 3.22187, 3.55242, - + .04012, .02888, 87.19914, 3.70859, 3.09272, - + 2.70405, 3.38498, 3.71398 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + .02981, .02368, 7.84250, .69509, .06949, - + .00000, .36644, .69988, - + .03215, .02494, 11.18441, .80035, .18429, - + .00000, .47674, .80531, - + .03429, .02609, 14.58595, .91141, .30366, - + .00000, .59221, .91654, - + .03627, .02715, 18.00874, 1.02634, .42598, - + .05015, .71105, 1.03162, - + .03813, .02814, 21.38867, 1.14393, .55023, - + .19010, .83216, 1.14935, - + .03988, .02907, 24.73934, 1.26364, .67602, - + .32025, .95509, 1.26919, - + .04154, .02995, 28.03472, 1.38449, .80247, - + .45198, 1.07890, 1.39016 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ - + .04312, .03078, 31.26165, 1.50580, .92897, - + .58315, 1.20295, 1.51160, - + .04462, .03157, 34.41466, 1.62712, 1.05511, - + .71365, 1.32682, 1.63303, - + .04607, .03233, 37.48793, 1.74806, 1.18056, - + .84314, 1.45014, 1.75407, - + .04745, .03306, 40.44139, 1.86745, 1.30419, - + .97056, 1.57178, 1.87357, - + .04878, .03375, 43.32035, 1.98604, 1.42677, - + 1.09670, 1.69248, 1.99225, - + .05006, .03442, 46.13375, 2.10392, 1.54842, - + 1.22169, 1.81235, 2.11023, - + .05129, .03507, 48.83561, 2.21982, 1.66789, - + 1.34432, 1.93013, 2.22621 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ - + .05248, .03569, 51.45310, 2.33420, 1.78568, - + 1.46509, 2.04631, 2.34068, - + .05364, .03629, 54.02028, 2.44790, 1.90262, - + 1.58487, 2.16173, 2.45447, - + .05475, .03687, 56.45315, 2.55851, 2.01632, - + 1.70128, 2.27397, 2.56516, - + .05584, .03743, 58.86105, 2.66894, 2.12971, - + 1.81724, 2.38596, 2.67567, - + .05689, .03798, 61.14193, 2.77622, 2.23982, - + 1.92981, 2.49474, 2.78302 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + .03721, .02779, 7.23802, .64160, .06301, - + .00000, .33797, .64711, - + .04006, .02929, 10.11671, .73335, .16395, - + .00000, .43461, .73909, - + .04265, .03066, 12.99488, .82882, .26744, - + .00000, .53435, .83478, - + .04505, .03192, 15.84764, .92650, .37225, - + .04291, .63582, .93266, - + .04728, .03309, 18.62747, 1.02544, .47761, - + .16206, .73818, 1.03177, - + .04939, .03419, 21.35142, 1.12529, .58333, - + .27179, .84115, 1.13179, - + .05138, .03523, 24.00234, 1.22529, .68874, - + .38197, .94403, 1.23195 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ - + .05327, .03621, 26.57333, 1.32497, .79342, - + .49088, 1.04637, 1.33177, - + .05507, .03715, 29.06330, 1.42398, .89709, - + .59850, 1.14786, 1.43093, - + .05679, .03804, 31.47043, 1.52209, .99955, - + .70462, 1.24829, 1.52918, - + .05843, .03889, 33.76482, 1.61837, 1.09993, - + .80843, 1.34674, 1.62559, - + .06001, .03970, 35.98555, 1.71350, 1.19891, - + .91062, 1.44392, 1.72084, - + .06153, .04049, 38.14165, 1.80760, 1.29665, - + 1.01139, 1.53996, 1.81506, - + .06299, .04124, 40.19783, 1.89966, 1.39217, - + 1.10976, 1.63386, 1.90723 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ - + .06440, .04196, 42.17743, 1.99010, 1.48590, - + 1.20620, 1.72605, 1.99779, - + .06577, .04266, 44.10880, 2.07966, 1.57858, - + 1.30145, 1.81727, 2.08745, - + .06708, .04334, 45.92641, 2.16637, 1.66828, - + 1.39359, 1.90557, 2.17426, - + .06836, .04399, 47.71789, 2.25265, 1.75742, - + 1.48506, 1.99337, 2.26064, - + .06960, .04463, 49.40356, 2.33610, 1.84362, - + 1.57348, 2.07828, 2.34419 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + .04353, .03120, 6.82886, .60506, .05866, - + .00000, .31862, .61118, - + .04679, .03291, 9.40564, .68793, .15051, - + .00000, .40629, .69433, - + .04976, .03446, 11.94843, .77330, .24371, - + .00000, .49584, .77995, - + .05249, .03588, 14.44091, .85992, .33728, - + .03828, .58619, .86681, - + .05503, .03719, 16.84590, .94701, .43065, - + .14419, .67663, .95411, - + .05742, .03843, 19.18231, 1.03434, .52372, - + .24103, .76703, 1.04164, - + .05968, .03960, 21.43833, 1.12130, .61596, - + .33770, .85681, 1.12878 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ - + .06182, .04070, 23.61065, 1.20751, .70706, - + .43275, .94564, 1.21518, - + .06385, .04175, 25.70063, 1.29274, .79684, - + .52620, 1.03331, 1.30058, - + .06580, .04274, 27.70865, 1.37680, .88517, - + .61793, 1.11965, 1.38481, - + .06765, .04369, 29.61074, 1.45895, .97131, - + .70727, 1.20394, 1.46710, - + .06943, .04460, 31.44198, 1.53979, 1.05592, - + .79487, 1.28680, 1.54809, - + .07114, .04548, 33.21123, 1.61947, 1.13916, - + .88092, 1.36839, 1.62791, - + .07278, .04631, 34.88946, 1.69714, 1.22021, - + .96463, 1.44786, 1.70572 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ - + .07436, .04712, 36.49754, 1.77319, 1.29947, - + 1.04641, 1.52563, 1.78190, - + .07589, .04790, 38.06026, 1.84827, 1.37761, - + 1.12693, 1.60235, 1.85710, - + .07737, .04865, 39.52288, 1.92071, 1.45298, - + 1.20457, 1.67635, 1.92966, - + .07880, .04937, 40.96005, 1.99261, 1.52768, - + 1.28143, 1.74976, 2.00169, - + .08018, .05007, 42.30522, 2.06194, 1.59968, - + 1.35551, 1.82052, 2.07113 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + .04919, .03426, 6.51662, .57703, .05535, - + .00000, .30366, .58357, - + .05280, .03614, 8.86763, .65327, .14039, - + .00000, .38461, .66011, - + .05607, .03785, 11.16286, .73118, .22598, - + .00000, .46663, .73830, - + .05908, .03941, 13.39227, .80970, .31132, - + .03489, .54880, .81707, - + .06188, .04085, 15.52598, .88817, .39595, - + .13116, .63056, .89578, - + .06451, .04221, 17.58413, .96645, .47986, - + .21866, .71185, .97427, - + .06699, .04348, 19.55862, 1.04403, .56261, - + .30560, .79220, 1.05205 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ - + .06934, .04468, 21.44861, 1.12060, .64398, - + .39070, .87135, 1.12882, - + .07156, .04582, 23.25690, 1.19601, .72385, - + .47404, .94914, 1.20441, - + .07369, .04691, 24.98553, 1.27010, .80212, - + .55552, 1.02547, 1.27868, - + .07571, .04794, 26.61408, 1.34224, .87818, - + .63460, 1.09971, 1.35099, - + .07765, .04893, 28.17510, 1.41301, .95264, - + .71188, 1.17246, 1.42191, - + .07951, .04988, 29.67714, 1.48255, 1.02568, - + .78758, 1.24387, 1.49161, - + .08130, .05078, 31.09542, 1.55014, 1.09657, - + .86098, 1.31323, 1.55934 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ - + .08302, .05166, 32.44903, 1.61613, 1.16572, - + .93250, 1.38091, 1.62548, - + .08469, .05250, 33.76011, 1.68112, 1.23371, - + 1.00274, 1.44751, 1.69061, - + .08629, .05330, 34.98129, 1.74364, 1.29909, - + 1.07027, 1.51156, 1.75325, - + .08784, .05409, 36.17809, 1.80557, 1.36376, - + 1.13698, 1.57497, 1.81531, - + .08934, .05484, 37.29313, 1.86512, 1.42594, - + 1.20110, 1.63592, 1.87498 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + .07173, .04618, 5.60344, .49395, .04584, - + .00000, .25985, .50239, - + .07664, .04871, 7.33556, .55173, .11197, - + .00000, .32214, .56061, - + .08106, .05098, 8.96837, .60926, .17677, - + .00000, .38360, .61852, - + .08509, .05305, 10.50742, .66598, .23996, - + .02581, .44381, .67560, - + .08882, .05496, 11.94121, .72156, .30137, - + .09635, .50255, .73150, - + .09231, .05673, 13.29171, .77606, .36120, - + .15927, .55993, .78630, - + .09557, .05839, 14.55930, .82924, .41928, - + .22083, .61576, .83976 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ - + .09865, .05995, 15.74832, .88098, .47556, - + .28023, .66996, .89178, - + .10156, .06142, 16.86475, .93127, .53008, - + .33763, .72253, .94231, - + .10432, .06281, 17.91332, .98007, .58283, - + .39307, .77348, .99136, - + .10694, .06413, 18.88318, 1.02702, .63348, - + .44623, .82243, 1.03853, - + .10944, .06538, 19.79854, 1.07258, .68254, - + .49764, .86988, 1.08431, - + .11183, .06658, 20.66684, 1.11692, .73019, - + .54749, .91601, 1.12885, - + .11412, .06772, 21.47346, 1.15957, .77596, - + .59535, .96035, 1.17169 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ - + .11631, .06881, 22.23237, 1.20082, .82019, - + .64155, 1.00322, 1.21314, - + .11843, .06987, 22.95897, 1.24112, .86334, - + .68656, 1.04506, 1.25362, - + .12045, .07087, 23.62389, 1.27951, .90442, - + .72943, 1.08490, 1.29217, - + .12241, .07184, 24.26986, 1.31728, .94478, - + .77148, 1.12408, 1.33012, - + .12429, .07278, 24.86124, 1.35325, .98323, - + .81155, 1.16139, 1.36624 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + .10428, .06340, 4.75186, .41525, .03725, - + .00000, .21869, .42635, - + .11078, .06673, 5.96984, .45735, .08724, - + .00000, .26511, .46905, - + .11658, .06969, 7.07363, .49809, .13485, - + .00000, .30960, .51032, - + .12184, .07236, 8.07892, .53729, .18016, - + .01853, .35214, .55000, - + .12666, .07480, 8.98645, .57486, .22323, - + .06863, .39271, .58801, - + .13113, .07705, 9.81772, .61099, .26439, - + .11242, .43159, .62455, - + .13529, .07913, 10.57792, .64563, .30365, - + .15453, .46876, .65956 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ - + .13919, .08108, 11.27366, .67879, .34109, - + .19453, .50425, .69307, - + .14285, .08290, 11.91191, .71053, .37681, - + .23263, .53817, .72514, - + .14631, .08461, 12.49830, .74091, .41090, - + .26893, .57058, .75583, - + .14956, .08622, 13.02791, .76970, .44317, - + .30326, .60127, .78490, - + .15265, .08774, 13.51797, .79730, .47406, - + .33608, .63067, .81278, - + .15560, .08918, 13.97442, .82386, .50373, - + .36756, .65893, .83960, - + .15840, .09055, 14.38903, .84908, .53188, - + .39742, .68576, .86507 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ - + .16108, .09185, 14.77166, .87321, .55880, - + .42596, .71141, .88943, - + .16365, .09310, 15.13250, .89657, .58483, - + .45351, .73623, .91302, - + .16609, .09428, 15.45398, .91853, .60932, - + .47946, .75957, .93519, - + .16845, .09542, 15.76290, .93999, .63321, - + .50473, .78236, .95686, - + .17070, .09651, 16.03808, .96018, .65571, - + .52856, .80381, .97723 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + .12954, .07691, 4.27776, .37116, .03263, - + -.00001, .19594, .38449, - + .13709, .08076, 5.24103, .40530, .07439, - + -.00001, .23429, .41935, - + .14378, .08414, 6.09151, .43773, .11346, - + -.00001, .27037, .45241, - + .14981, .08717, 6.84858, .46844, .15006, - + .01498, .30433, .48370, - + .15530, .08991, 7.51744, .49747, .18438, - + .05528, .33627, .51323, - + .16037, .09242, 8.11832, .52502, .21677, - + .09003, .36648, .54125, - + .16506, .09474, 8.65771, .55111, .24732, - + .12311, .39503, .56778 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ - + .16944, .09689, 9.14259, .57583, .27615, - + .15420, .42201, .59289, - + .17353, .09889, 9.58003, .59924, .30339, - + .18355, .44753, .61668, - + .17738, .10076, 9.97528, .62143, .32915, - + .21126, .47169, .63922, - + .18098, .10250, 10.32566, .64225, .35332, - + .23725, .49434, .66036, - + .18439, .10414, 10.64490, .66204, .37626, - + .26189, .51586, .68045, - + .18763, .10570, 10.93800, .68093, .39813, - + .28536, .53640, .69963, - + .19070, .10716, 11.19932, .69872, .41874, - + .30747, .55573, .71769 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ - + .19362, .10855, 11.43650, .71560, .43829, - + .32846, .57409, .73483, - + .19641, .10987, 11.65740, .73183, .45708, - + .34859, .59173, .75131, - + .19906, .11112, 11.84952, .74695, .47462, - + .36742, .60817, .76665, - + .20161, .11232, 12.03260, .76164, .49165, - + .38566, .62415, .78157, - + .20403, .11345, 12.19133, .77533, .50756, - + .40273, .63906, .79547 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + .15095, .08851, 3.94980, .34073, .02953, - + -.00001, .18037, .35604, - + .15926, .09270, 4.75153, .36974, .06595, - + -.00001, .21349, .38586, - + .16658, .09636, 5.44508, .39690, .09956, - + -.00001, .24422, .41372, - + .17316, .09962, 6.05127, .42231, .13069, - + .01277, .27280, .43977, - + .17910, .10255, 6.57747, .44605, .15957, - + .04694, .29938, .46406, - + .18457, .10522, 7.04269, .46835, .18657, - + .07613, .32429, .48688, - + .18962, .10766, 7.45385, .48928, .21182, - + .10368, .34761, .50828 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ - + .19430, .10992, 7.81789, .50893, .23546, - + .12938, .36946, .52835, - + .19866, .11201, 8.14151, .52739, .25763, - + .15347, .38997, .54721, - + .20275, .11395, 8.42966, .54475, .27845, - + .17607, .40925, .56494, - + .20656, .11575, 8.68070, .56090, .29784, - + .19712, .42718, .58143, - + .21015, .11745, 8.90620, .57614, .31613, - + .21696, .44411, .59699, - + .21356, .11904, 9.11049, .59060, .33348, - + .23576, .46016, .61175, - + .21677, .12053, 9.28926, .60411, .34971, - + .25337, .47517, .62554 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ - + .21982, .12194, 9.44888, .61685, .36504, - + .26999, .48933, .63854, - + .22273, .12328, 9.59576, .62903, .37969, - + .28587, .50288, .65098, - + .22547, .12453, 9.72006, .64028, .39328, - + .30062, .51542, .66246, - + .22811, .12574, 9.83757, .65117, .40643, - + .31487, .52755, .67358, - + .23061, .12687, 9.93624, .66123, .41863, - + .32813, .53879, .68384 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + .16985, .09883, 3.69993, .31767, .02724, - + .00000, .16869, .33485, - + .17874, .10326, 4.38708, .34298, .05979, - + .00000, .19803, .36103, - + .18655, .10711, 4.97131, .36639, .08950, - + .00000, .22495, .38520, - + .19351, .11051, 5.47405, .38807, .11676, - + .01121, .24974, .40755, - + .19979, .11355, 5.90348, .40813, .14184, - + .04108, .27258, .42820, - + .20553, .11630, 6.27797, .42681, .16510, - + .06639, .29381, .44742, - + .21082, .11881, 6.60431, .44421, .18671, - + .09013, .31354, .46530 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ - + .21570, .12112, 6.88921, .46040, .20679, - + .11214, .33189, .48194, - + .22023, .12324, 7.13888, .47551, .22551, - + .13264, .34900, .49746, - + .22447, .12521, 7.35822, .48962, .24300, - + .15177, .36499, .51196, - + .22840, .12702, 7.54588, .50265, .25919, - + .16950, .37976, .52533, - + .23211, .12872, 7.71218, .51488, .27438, - + .18613, .39363, .53787, - + .23560, .13031, 7.86082, .52640, .28872, - + .20181, .40671, .54970, - + .23889, .13179, 7.98812, .53710, .30207, - + .21643, .41887, .56068 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ - + .24199, .13318, 8.09987, .54712, .31461, - + .23016, .43027, .57096, - + .24495, .13451, 8.20142, .55666, .32655, - + .24324, .44114, .58075, - + .24772, .13573, 8.28453, .56539, .33756, - + .25532, .45113, .58971, - + .25040, .13691, 8.36239, .57382, .34818, - + .26697, .46077, .59836, - + .25291, .13801, 8.42506, .58155, .35799, - + .27775, .46964, .60629 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + .24407, .13960, 2.94545, .24935, .02073, - + .00000, .13489, .27472, - + .25444, .14435, 3.33365, .26462, .04271, - + .00000, .15394, .29097, - + .26335, .14835, 3.64192, .27815, .06205, - + .00000, .17073, .30531, - + .27115, .15179, 3.89051, .29018, .07923, - + .00714, .18564, .31803, - + .27804, .15477, 4.08902, .30088, .09457, - + .02590, .19893, .32932, - + .28424, .15741, 4.25115, .31052, .10843, - + .04139, .21091, .33947, - + .28985, .15975, 4.38297, .31918, .12097, - + .05559, .22173, .34860 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ - + .29494, .16184, 4.48996, .32700, .13236, - + .06847, .23153, .35681, - + .29959, .16373, 4.57679, .33407, .14274, - + .08022, .24042, .36423, - + .30387, .16543, 4.64674, .34048, .15225, - + .09100, .24854, .37096, - + .30777, .16695, 4.69986, .34618, .16084, - + .10077, .25583, .37693, - + .31139, .16835, 4.74210, .35138, .16875, - + .10979, .26252, .38238, - + .31477, .16962, 4.77578, .35616, .17610, - + .11817, .26871, .38739, - + .31789, .17078, 4.79922, .36043, .18279, - + .12583, .27430, .39187 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ - + .32080, .17184, 4.81555, .36431, .18896, - + .13292, .27943, .39593, - + .32353, .17284, 4.82773, .36792, .19476, - + .13958, .28424, .39971, - + .32605, .17372, 4.83130, .37107, .19999, - + .14563, .28852, .40300, - + .32846, .17456, 4.83342, .37407, .20498, - + .15139, .29260, .40615, - + .33068, .17532, 4.82898, .37667, .20947, - + .15662, .29622, .40886 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + .34755, .19432, 2.22233, .18632, .01516, - + -.00002, .10507, .22413, - + .35772, .19780, 2.39237, .19359, .02868, - + -.00001, .11577, .23197, - + .36611, .20050, 2.51071, .19955, .04006, - + -.00001, .12470, .23835, - + .37314, .20264, 2.59336, .20450, .04977, - + .00412, .13223, .24357, - + .37911, .20432, 2.64806, .20857, .05811, - + .01479, .13859, .24785, - + .38427, .20568, 2.68364, .21197, .06540, - + .02332, .14407, .25138, - + .38874, .20677, 2.70456, .21480, .07179, - + .03092, .14880, .25429 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ - + .39265, .20763, 2.71420, .21714, .07740, - + .03763, .15288, .25668, - + .39608, .20831, 2.71527, .21908, .08237, - + .04361, .15642, .25864, - + .39911, .20885, 2.70973, .22068, .08678, - + .04896, .15950, .26023, - + .40174, .20924, 2.69761, .22193, .09065, - + .05369, .16211, .26143, - + .40407, .20953, 2.68204, .22294, .09412, - + .05795, .16440, .26238, - + .40617, .20974, 2.66413, .22376, .09724, - + .06184, .16643, .26313, - + .40801, .20985, 2.64299, .22435, .10001, - + .06531, .16814, .26363 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ - + .40964, .20989, 2.62010, .22476, .10249, - + .06845, .16962, .26395, - + .41112, .20990, 2.59683, .22508, .10477, - + .07135, .17095, .26418, - + .41237, .20982, 2.57105, .22520, .10673, - + .07391, .17202, .26418, - + .41354, .20973, 2.54600, .22528, .10858, - + .07632, .17300, .26415, - + .41451, .20957, 2.51918, .22520, .11017, - + .07844, .17377, .26394 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + .42354, .22993, 1.81715, .15091, .01228, - + .00000, .08871, .19674, - + .43159, .23122, 1.89409, .15439, .02179, - + .00000, .09533, .20007, - + .43783, .23191, 1.93633, .15694, .02953, - + .00000, .10056, .20239, - + .44274, .23218, 1.95611, .15880, .03594, - + .00280, .10476, .20397, - + .44660, .23213, 1.95924, .16009, .04131, - + .00995, .10812, .20491, - + .44968, .23185, 1.95200, .16098, .04587, - + .01553, .11085, .20545, - + .45213, .23140, 1.93736, .16152, .04976, - + .02041, .11307, .20562 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ - + .45405, .23084, 1.91747, .16180, .05309, - + .02464, .11486, .20550, - + .45557, .23016, 1.89406, .16185, .05597, - + .02834, .11632, .20518, - + .45674, .22940, 1.86831, .16173, .05845, - + .03157, .11747, .20466, - + .45756, .22855, 1.84010, .16141, .06057, - + .03438, .11835, .20397, - + .45814, .22768, 1.81129, .16099, .06242, - + .03688, .11904, .20317, - + .45853, .22678, 1.78245, .16050, .06405, - + .03912, .11958, .20231, - + .45871, .22585, 1.75294, .15990, .06545, - + .04108, .11994, .20135 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ - + .45873, .22488, 1.72355, .15924, .06666, - + .04282, .12018, .20033, - + .45867, .22392, 1.69501, .15855, .06774, - + .04440, .12035, .19929, - + .45841, .22292, 1.66596, .15776, .06864, - + .04576, .12036, .19815, - + .45812, .22195, 1.63826, .15699, .06946, - + .04703, .12035, .19705, - + .45766, .22095, 1.61043, .15614, .07013, - + .04812, .12022, .19587 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + .48305, .25326, 1.53932, .12545, .01030, - + .00000, .07664, .17560, - + .48794, .25212, 1.56474, .12672, .01737, - + -.00001, .08075, .17595, - + .49121, .25064, 1.56694, .12735, .02299, - + .00000, .08380, .17568, - + .49332, .24896, 1.55540, .12754, .02752, - + .00203, .08608, .17501, - + .49450, .24714, 1.53424, .12738, .03121, - + .00718, .08775, .17402, - + .49506, .24524, 1.50794, .12698, .03427, - + .01112, .08898, .17281, - + .49511, .24330, 1.47842, .12639, .03682, - + .01450, .08987, .17145 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ - + .49478, .24134, 1.44710, .12567, .03894, - + .01739, .09047, .16998, - + .49413, .23937, 1.41501, .12485, .04073, - + .01988, .09086, .16847, - + .49324, .23743, 1.38277, .12395, .04226, - + .02203, .09107, .16687, - + .49209, .23547, 1.35022, .12296, .04350, - + .02385, .09110, .16523, - + .49078, .23355, 1.31846, .12195, .04455, - + .02545, .09103, .16359, - + .48938, .23168, 1.28776, .12093, .04545, - + .02685, .09088, .16195, - + .48785, .22981, 1.25759, .11986, .04621, - + .02806, .09063, .16030 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ - + .48623, .22797, 1.22838, .11878, .04683, - + .02912, .09032, .15866, - + .48460, .22620, 1.20052, .11772, .04737, - + .03007, .08997, .15707, - + .48281, .22443, 1.17309, .11662, .04778, - + .03087, .08955, .15546, - + .48107, .22273, 1.14718, .11557, .04815, - + .03161, .08913, .15391, - + .47922, .22102, 1.12175, .11448, .04841, - + .03223, .08864, .15233 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + .53007, .26759, 1.32992, .10512, .00874, - + .00000, .06651, .15657, - + .53120, .26403, 1.32335, .10502, .01417, - + -.00001, .06895, .15490, - + .53101, .26047, 1.30204, .10452, .01837, - + .00000, .07058, .15294, - + .52998, .25696, 1.27313, .10377, .02169, - + .00153, .07166, .15084, - + .52823, .25350, 1.23941, .10281, .02430, - + .00538, .07229, .14867, - + .52608, .25012, 1.20396, .10173, .02644, - + .00827, .07263, .14642, - + .52361, .24683, 1.16799, .10058, .02817, - + .01072, .07274, .14419 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ - + .52090, .24365, 1.13235, .09939, .02958, - + .01278, .07268, .14197, - + .51803, .24057, 1.09758, .09815, .03074, - + .01453, .07248, .13980, - + .51507, .23759, 1.06396, .09690, .03169, - + .01600, .07218, .13766, - + .51196, .23468, 1.03120, .09563, .03243, - + .01724, .07177, .13556, - + .50881, .23188, .99999, .09438, .03305, - + .01831, .07132, .13350, - + .50566, .22920, .97040, .09317, .03356, - + .01925, .07083, .13150, - + .50248, .22657, .94195, .09194, .03395, - + .02004, .07029, .12955 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ - + .49929, .22403, .91486, .09074, .03426, - + .02072, .06972, .12766, - + .49616, .22160, .88931, .08958, .03451, - + .02132, .06915, .12585, - + .49297, .21920, .86460, .08841, .03468, - + .02181, .06853, .12407, - + .48989, .21691, .84144, .08729, .03482, - + .02225, .06794, .12237, - + .48674, .21467, .81908, .08618, .03489, - + .02261, .06731, .12067 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + .57432, .27588, 1.12591, .08423, .00714, - + -.00001, .05544, .13418, - + .57027, .26955, 1.09439, .08316, .01114, - + -.00002, .05650, .13092, - + .56548, .26363, 1.05598, .08190, .01414, - + -.00001, .05702, .12772, - + .56030, .25811, 1.01542, .08055, .01645, - + .00110, .05719, .12459, - + .55483, .25286, .97417, .07912, .01822, - + .00386, .05707, .12159, - + .54925, .24791, .93405, .07768, .01961, - + .00590, .05678, .11871, - + .54364, .24323, .89556, .07624, .02071, - + .00759, .05636, .11595 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ - + .53805, .23879, .85902, .07482, .02157, - + .00898, .05585, .11331, - + .53250, .23458, .82455, .07342, .02224, - + .01015, .05529, .11080, - + .52705, .23058, .79215, .07207, .02277, - + .01112, .05467, .10840, - + .52162, .22673, .76141, .07072, .02317, - + .01194, .05402, .10609, - + .51632, .22308, .73269, .06943, .02347, - + .01262, .05336, .10388, - + .51117, .21961, .70591, .06819, .02371, - + .01319, .05269, .10178, - + .50610, .21626, .68060, .06697, .02387, - + .01366, .05201, .09977 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ - + .50114, .21306, .65687, .06579, .02397, - + .01406, .05133, .09784, - + .49635, .21002, .63472, .06468, .02403, - + .01442, .05066, .09600, - + .49157, .20706, .61366, .06358, .02405, - + .01469, .04999, .09422, - + .48700, .20425, .59406, .06254, .02405, - + .01493, .04934, .09253, - + .48246, .20151, .57539, .06150, .02400, - + .01512, .04869, .09089 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + .60457, .27602, .96315, .06702, .00580, - + -.00003, .04567, .11317, - + .59516, .26729, .91661, .06548, .00882, - + -.00003, .04593, .10908, - + .58574, .25940, .86895, .06391, .01102, - + -.00003, .04582, .10526, - + .57651, .25217, .82299, .06233, .01264, - + .00080, .04548, .10177, - + .56742, .24549, .77913, .06076, .01387, - + .00284, .04498, .09846, - + .55858, .23930, .73821, .05923, .01480, - + .00432, .04438, .09539, - + .55002, .23352, .70026, .05776, .01549, - + .00553, .04373, .09251 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ - + .54175, .22812, .66518, .05634, .01602, - + .00651, .04303, .08981, - + .53377, .22306, .63283, .05498, .01642, - + .00731, .04232, .08728, - + .52607, .21831, .60297, .05367, .01673, - + .00797, .04161, .08489, - + .51860, .21379, .57522, .05242, .01692, - + .00851, .04087, .08264, - + .51140, .20954, .54966, .05122, .01705, - + .00895, .04015, .08053, - + .50450, .20553, .52612, .05008, .01714, - + .00933, .03946, .07853, - + .49780, .20170, .50416, .04899, .01718, - + .00961, .03877, .07661 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ - + .49132, .19806, .48379, .04794, .01718, - + .00985, .03810, .07481, - + .48512, .19461, .46495, .04694, .01715, - + .01005, .03744, .07312, - + .47904, .19129, .44726, .04597, .01710, - + .01021, .03680, .07148, - + .47325, .18815, .43089, .04505, .01704, - + .01035, .03619, .06994, - + .46757, .18511, .41544, .04416, .01695, - + .01045, .03559, .06844 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + .62249, .27001, .82839, .05276, .00469, - + -.00001, .03713, .09382, - + .60782, .25937, .77313, .05113, .00695, - + -.00002, .03691, .08944, - + .59393, .24992, .72105, .04950, .00856, - + -.00001, .03644, .08553, - + .58087, .24141, .67334, .04794, .00973, - + .00060, .03585, .08198, - + .56841, .23368, .62963, .04645, .01057, - + .00211, .03517, .07871, - + .55660, .22658, .59003, .04501, .01119, - + .00319, .03444, .07572, - + .54540, .22004, .55415, .04364, .01164, - + .00406, .03371, .07296 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ - + .53477, .21397, .52165, .04235, .01197, - + .00475, .03296, .07041, - + .52468, .20834, .49219, .04112, .01219, - + .00531, .03224, .06805, - + .51505, .20309, .46543, .03996, .01234, - + .00577, .03152, .06588, - + .50583, .19814, .44092, .03885, .01242, - + .00610, .03081, .06382, - + .49706, .19350, .41861, .03780, .01246, - + .00639, .03013, .06189, - + .48872, .18916, .39826, .03680, .01248, - + .00664, .02948, .06009, - + .48066, .18506, .37949, .03588, .01245, - + .00681, .02884, .05839 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ - + .47296, .18117, .36224, .03500, .01240, - + .00696, .02823, .05678, - + .46565, .17749, .34640, .03416, .01235, - + .00709, .02766, .05527, - + .45854, .17398, .33164, .03334, .01226, - + .00717, .02708, .05385, - + .45180, .17067, .31807, .03257, .01218, - + .00723, .02653, .05252, - + .44522, .16748, .30542, .03183, .01207, - + .00728, .02600, .05125 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + .62942, .25945, .71392, .04105, .00374, - + -.00002, .02974, .07641, - + .60987, .24730, .65417, .03947, .00546, - + -.00003, .02928, .07216, - + .59188, .23671, .60074, .03796, .00666, - + -.00002, .02867, .06839, - + .57535, .22729, .55357, .03654, .00752, - + .00046, .02799, .06505, - + .55993, .21881, .51162, .03517, .00809, - + .00158, .02725, .06207, - + .54554, .21110, .47444, .03389, .00851, - + .00237, .02653, .05932, - + .53207, .20406, .44140, .03270, .00880, - + .00301, .02581, .05683 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ - + .51945, .19757, .41197, .03157, .00899, - + .00351, .02511, .05456, - + .50759, .19159, .38567, .03051, .00912, - + .00390, .02443, .05245, - + .49640, .18606, .36213, .02954, .00918, - + .00421, .02378, .05052, - + .48579, .18087, .34076, .02859, .00919, - + .00444, .02315, .04874, - + .47575, .17606, .32151, .02772, .00919, - + .00464, .02254, .04706, - + .46625, .17158, .30411, .02691, .00917, - + .00480, .02196, .04549, - + .45720, .16734, .28824, .02613, .00911, - + .00491, .02140, .04406 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ - + .44859, .16334, .27378, .02538, .00904, - + .00499, .02087, .04271, - + .44045, .15957, .26060, .02469, .00898, - + .00507, .02038, .04143, - + .43255, .15601, .24841, .02404, .00889, - + .00512, .01989, .04024, - + .42507, .15267, .23725, .02343, .00879, - + .00516, .01943, .03912, - + .41785, .14945, .22692, .02284, .00870, - + .00518, .01899, .03805 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + .62666, .24555, .61504, .03151, .00295, - + -.00001, .02347, .06118, - + .60266, .23238, .55378, .03010, .00427, - + -.00002, .02292, .05727, - + .58112, .22095, .50111, .02876, .00518, - + -.00001, .02228, .05387, - + .56158, .21098, .45592, .02751, .00579, - + .00035, .02160, .05089, - + .54366, .20202, .41667, .02632, .00621, - + .00120, .02092, .04823, - + .52713, .19397, .38253, .02526, .00649, - + .00180, .02024, .04583, - + .51180, .18669, .35271, .02426, .00666, - + .00226, .01959, .04367 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ - + .49758, .18002, .32651, .02331, .00677, - + .00262, .01896, .04173, - + .48433, .17392, .30337, .02245, .00683, - + .00289, .01836, .03993, - + .47193, .16828, .28285, .02164, .00686, - + .00310, .01780, .03828, - + .46023, .16304, .26452, .02088, .00683, - + .00327, .01725, .03679, - + .44926, .15820, .24814, .02017, .00679, - + .00340, .01674, .03539, - + .43895, .15371, .23344, .01950, .00675, - + .00350, .01626, .03409, - + .42917, .14946, .22013, .01889, .00670, - + .00358, .01579, .03288 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ - + .41990, .14550, .20809, .01830, .00663, - + .00363, .01534, .03176, - + .41115, .14181, .19718, .01776, .00655, - + .00367, .01492, .03073, - + .40277, .13828, .18719, .01724, .00646, - + .00369, .01453, .02975, - + .39487, .13497, .17808, .01675, .00638, - + .00370, .01416, .02884, - + .38728, .13181, .16969, .01627, .00630, - + .00370, .01380, .02797 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + .61543, .22929, .52874, .02383, .00233, - + .00003, .01827, .04815, - + .58758, .21551, .46827, .02265, .00333, - + .00003, .01769, .04472, - + .56298, .20372, .41779, .02154, .00399, - + .00003, .01709, .04174, - + .54102, .19344, .37551, .02051, .00443, - + .00029, .01646, .03920, - + .52105, .18433, .33951, .01956, .00471, - + .00092, .01585, .03693, - + .50284, .17619, .30872, .01867, .00489, - + .00135, .01527, .03492, - + .48612, .16886, .28220, .01786, .00500, - + .00168, .01470, .03311 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ - + .47071, .16221, .25919, .01711, .00505, - + .00193, .01416, .03147, - + .45643, .15613, .23909, .01641, .00507, - + .00212, .01365, .03000, - + .44318, .15056, .22148, .01576, .00506, - + .00228, .01317, .02867, - + .43077, .14540, .20585, .01516, .00504, - + .00239, .01272, .02743, - + .41919, .14065, .19202, .01459, .00500, - + .00247, .01230, .02628, - + .40836, .13625, .17971, .01406, .00495, - + .00254, .01191, .02523, - + .39811, .13215, .16867, .01359, .00488, - + .00259, .01153, .02426 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ - + .38846, .12830, .15872, .01314, .00482, - + .00261, .01117, .02336, - + .37940, .12470, .14973, .01271, .00476, - + .00262, .01084, .02253, - + .37075, .12132, .14158, .01231, .00468, - + .00263, .01052, .02175, - + .36262, .11816, .13419, .01193, .00460, - + .00264, .01022, .02103, - + .35484, .11513, .12743, .01156, .00452, - + .00264, .00993, .02036 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + .59672, .21188, .45333, .01801, .00166, - + -.00014, .01386, .03724, - + .56579, .19778, .39497, .01700, .00246, - + -.00014, .01337, .03433, - + .53877, .18584, .34760, .01609, .00296, - + -.00011, .01284, .03185, - + .51494, .17552, .30875, .01523, .00330, - + .00008, .01231, .02974, - + .49352, .16644, .27626, .01444, .00350, - + .00060, .01180, .02788, - + .47411, .15838, .24886, .01372, .00362, - + .00093, .01131, .02622, - + .45645, .15116, .22556, .01306, .00370, - + .00117, .01086, .02473 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ - + .44025, .14465, .20559, .01246, .00373, - + .00136, .01042, .02342, - + .42534, .13873, .18840, .01191, .00374, - + .00151, .01001, .02223, - + .41160, .13335, .17340, .01140, .00372, - + .00162, .00963, .02115, - + .39879, .12838, .16023, .01092, .00368, - + .00171, .00928, .02016, - + .38686, .12382, .14865, .01049, .00364, - + .00177, .00894, .01926, - + .37575, .11961, .13841, .01009, .00359, - + .00180, .00862, .01844, - + .36535, .11569, .12928, .00971, .00353, - + .00183, .00832, .01768 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ - + .35556, .11204, .12114, .00937, .00347, - + .00185, .00803, .01697, - + .34637, .10865, .11384, .00906, .00341, - + .00185, .00777, .01631, - + .33770, .10544, .10724, .00873, .00336, - + .00185, .00753, .01571, - + .32956, .10245, .10128, .00842, .00330, - + .00186, .00731, .01516, - + .32175, .09962, .09583, .00815, .00324, - + .00185, .00708, .01463 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + .57205, .19320, .38646, .01316, .00131, - + -.00003, .01049, .02835, - + .53865, .17922, .33150, .01239, .00190, - + -.00003, .01006, .02595, - + .50984, .16744, .28794, .01170, .00228, - + -.00002, .00961, .02391, - + .48467, .15734, .25283, .01104, .00253, - + .00013, .00917, .02219, - + .46223, .14851, .22393, .01044, .00265, - + .00049, .00875, .02069, - + .44205, .14072, .19990, .00988, .00273, - + .00072, .00835, .01937, - + .42381, .13379, .17972, .00938, .00277, - + .00090, .00796, .01822 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ - + .40720, .12757, .16261, .00892, .00277, - + .00103, .00762, .01718, - + .39201, .12193, .14799, .00850, .00277, - + .00113, .00729, .01623, - + .37808, .11681, .13536, .00811, .00274, - + .00121, .00699, .01539, - + .36515, .11211, .12438, .00775, .00270, - + .00126, .00670, .01463, - + .35319, .10781, .11480, .00741, .00266, - + .00130, .00644, .01394, - + .34209, .10386, .10637, .00710, .00262, - + .00132, .00620, .01330, - + .33168, .10020, .09891, .00684, .00257, - + .00134, .00596, .01269 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ - + .32199, .09680, .09228, .00658, .00253, - + .00135, .00575, .01215, - + .31295, .09364, .08638, .00632, .00248, - + .00135, .00556, .01166, - + .30435, .09069, .08107, .00610, .00242, - + .00134, .00537, .01119, - + .29631, .08794, .07629, .00589, .00237, - + .00134, .00519, .01076, - + .28867, .08533, .07197, .00569, .00232, - + .00133, .00502, .01037 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + .54225, .17448, .32776, .00955, .00097, - + -.00003, .00776, .02118, - + .50717, .16079, .27690, .00897, .00144, - + -.00002, .00741, .01927, - + .47724, .14937, .23738, .00843, .00170, - + -.00003, .00705, .01768, - + .45131, .13965, .20610, .00791, .00188, - + .00009, .00671, .01632, - + .42832, .13124, .18075, .00746, .00197, - + .00036, .00637, .01514, - + .40784, .12382, .15995, .00704, .00202, - + .00052, .00606, .01412, - + .38941, .11726, .14267, .00667, .00204, - + .00066, .00576, .01321 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ - + .37275, .11139, .12815, .00632, .00204, - + .00076, .00549, .01241, - + .35759, .10613, .11584, .00601, .00203, - + .00082, .00523, .01168, - + .34370, .10136, .10532, .00574, .00200, - + .00088, .00501, .01101, - + .33093, .09700, .09624, .00545, .00197, - + .00091, .00479, .01044, - + .31915, .09301, .08837, .00521, .00193, - + .00093, .00459, .00991, - + .30826, .08936, .08150, .00498, .00190, - + .00095, .00441, .00943, - + .29810, .08599, .07547, .00477, .00186, - + .00096, .00423, .00899 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ - + .28865, .08287, .07012, .00458, .00181, - + .00096, .00406, .00859, - + .27986, .07998, .06536, .00441, .00177, - + .00096, .00390, .00821, - + .27155, .07727, .06113, .00424, .00173, - + .00096, .00376, .00787, - + .26381, .07476, .05733, .00409, .00170, - + .00096, .00363, .00756, - + .25646, .07240, .05393, .00394, .00165, - + .00094, .00351, .00726 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + .50850, .15585, .27609, .00678, .00073, - + .00000, .00567, .01556, - + .47246, .14271, .22980, .00635, .00107, - + .00000, .00539, .01409, - + .44199, .13186, .19452, .00594, .00128, - + -.00001, .00511, .01284, - + .41577, .12268, .16703, .00558, .00140, - + .00009, .00485, .01180, - + .39278, .11476, .14507, .00522, .00146, - + .00029, .00459, .01090, - + .37237, .10784, .12724, .00494, .00150, - + .00041, .00435, .01009, - + .35410, .10174, .11261, .00468, .00151, - + .00050, .00413, .00940 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ - + .33765, .09630, .10044, .00445, .00150, - + .00057, .00391, .00879, - + .32281, .09144, .09022, .00419, .00147, - + .00061, .00373, .00827, - + .30928, .08705, .08152, .00399, .00145, - + .00065, .00356, .00780, - + .29687, .08307, .07408, .00377, .00142, - + .00067, .00338, .00737, - + .28545, .07944, .06769, .00360, .00139, - + .00067, .00322, .00697, - + .27495, .07612, .06214, .00345, .00136, - + .00068, .00308, .00660, - + .26521, .07306, .05729, .00330, .00133, - + .00069, .00296, .00627 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ - + .25616, .07024, .05303, .00316, .00129, - + .00069, .00284, .00598, - + .24776, .06764, .04926, .00303, .00126, - + .00068, .00272, .00571, - + .23987, .06521, .04590, .00290, .00123, - + .00068, .00262, .00546, - + .23253, .06295, .04291, .00277, .00120, - + .00068, .00252, .00523, - + .22559, .06084, .04023, .00268, .00117, - + .00067, .00243, .00501 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + .47178, .13772, .23081, .00467, .00058, - + .00005, .00410, .01122, - + .43546, .12536, .18928, .00439, .00083, - + .00004, .00389, .01008, - + .40504, .11519, .15824, .00411, .00096, - + .00003, .00367, .00915, - + .37909, .10665, .13438, .00383, .00105, - + .00010, .00347, .00837, - + .35638, .09933, .11561, .00362, .00109, - + .00024, .00327, .00770, - + .33641, .09296, .10054, .00340, .00110, - + .00033, .00310, .00713, - + .31865, .08736, .08827, .00321, .00110, - + .00039, .00292, .00661 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ - + .30277, .08240, .07817, .00303, .00110, - + .00043, .00277, .00616, - + .28845, .07797, .06976, .00287, .00108, - + .00046, .00262, .00575, - + .27547, .07402, .06268, .00271, .00106, - + .00048, .00248, .00541, - + .26359, .07042, .05667, .00257, .00104, - + .00049, .00237, .00507, - + .25273, .06716, .05153, .00244, .00101, - + .00050, .00226, .00479, - + .24277, .06418, .04709, .00233, .00098, - + .00051, .00216, .00455, - + .23354, .06146, .04322, .00223, .00095, - + .00051, .00206, .00431 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ - + .22502, .05894, .03984, .00213, .00092, - + .00051, .00197, .00409, - + .21714, .05662, .03687, .00203, .00090, - + .00050, .00189, .00390, - + .20972, .05447, .03424, .00196, .00088, - + .00049, .00182, .00372, - + .20283, .05249, .03191, .00189, .00086, - + .00049, .00175, .00355, - + .19637, .05063, .02983, .00182, .00083, - + .00048, .00168, .00340 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + .43310, .12059, .19151, .00325, .00039, - + .00001, .00286, .00794, - + .39713, .10907, .15479, .00306, .00059, - + .00001, .00273, .00709, - + .36730, .09969, .12779, .00284, .00069, - + .00002, .00257, .00641, - + .34203, .09185, .10735, .00263, .00076, - + .00007, .00242, .00585, - + .32008, .08514, .09147, .00247, .00078, - + .00016, .00227, .00536, - + .30083, .07937, .07887, .00233, .00079, - + .00022, .00214, .00493, - + .28384, .07430, .06874, .00220, .00079, - + .00027, .00201, .00456 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ - + .26869, .06985, .06046, .00207, .00078, - + .00030, .00190, .00423, - + .25511, .06588, .05361, .00195, .00077, - + .00032, .00180, .00394, - + .24284, .06236, .04790, .00186, .00075, - + .00034, .00172, .00367, - + .23166, .05915, .04307, .00175, .00073, - + .00034, .00162, .00347, - + .22149, .05625, .03897, .00165, .00070, - + .00035, .00154, .00328, - + .21219, .05361, .03546, .00158, .00068, - + .00035, .00146, .00309, - + .20359, .05121, .03242, .00152, .00066, - + .00035, .00140, .00291 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ - + .19569, .04900, .02977, .00145, .00065, - + .00035, .00133, .00276, - + .18840, .04697, .02746, .00137, .00063, - + .00035, .00127, .00263, - + .18157, .04508, .02541, .00131, .00061, - + .00034, .00122, .00251, - + .17524, .04334, .02360, .00126, .00059, - + .00034, .00117, .00239, - + .16930, .04172, .02200, .00120, .00057, - + .00033, .00113, .00228 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + .39330, .10440, .15740, .00219, .00028, - + .00002, .00197, .00550, - + .35836, .09387, .12543, .00207, .00041, - + .00002, .00187, .00490, - + .32952, .08535, .10231, .00195, .00049, - + .00003, .00176, .00440, - + .30523, .07827, .08506, .00185, .00053, - + .00005, .00165, .00398, - + .28436, .07225, .07180, .00173, .00054, - + .00013, .00155, .00364, - + .26618, .06706, .06140, .00160, .00055, - + .00016, .00145, .00335, - + .25015, .06257, .05310, .00151, .00054, - + .00019, .00136, .00308 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ - + .23597, .05861, .04639, .00140, .00053, - + .00021, .00128, .00286, - + .22325, .05511, .04089, .00134, .00052, - + .00022, .00121, .00265, - + .21186, .05199, .03632, .00125, .00052, - + .00022, .00114, .00247, - + .20150, .04917, .03250, .00119, .00049, - + .00023, .00108, .00232, - + .19210, .04664, .02926, .00113, .00047, - + .00023, .00102, .00218, - + .18355, .04434, .02649, .00107, .00045, - + .00023, .00097, .00206, - + .17567, .04224, .02413, .00102, .00044, - + .00023, .00093, .00195 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ - + .16842, .04033, .02208, .00097, .00043, - + .00023, .00088, .00184, - + .16176, .03857, .02029, .00093, .00042, - + .00022, .00084, .00174, - + .15553, .03695, .01873, .00090, .00041, - + .00022, .00080, .00164, - + .14978, .03546, .01734, .00087, .00040, - + .00021, .00077, .00156, - + .14443, .03406, .01612, .00082, .00038, - + .00021, .00074, .00149 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + .35322, .08936, .12800, .00140, .00021, - + .00005, .00135, .00373, - + .31975, .07985, .10052, .00135, .00032, - + .00005, .00129, .00329, - + .29238, .07218, .08098, .00124, .00037, - + .00004, .00120, .00297, - + .26943, .06589, .06659, .00118, .00039, - + .00005, .00112, .00268, - + .24981, .06055, .05568, .00112, .00039, - + .00010, .00105, .00242, - + .23282, .05597, .04721, .00105, .00039, - + .00013, .00099, .00222, - + .21794, .05201, .04052, .00098, .00039, - + .00015, .00094, .00204 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ - + .20481, .04854, .03515, .00091, .00038, - + .00016, .00087, .00189, - + .19314, .04549, .03078, .00085, .00037, - + .00017, .00082, .00175, - + .18267, .04279, .02718, .00080, .00036, - + .00016, .00077, .00162, - + .17321, .04035, .02420, .00076, .00035, - + .00017, .00072, .00152, - + .16462, .03816, .02169, .00073, .00034, - + .00017, .00069, .00143, - + .15682, .03619, .01955, .00071, .00033, - + .00017, .00066, .00135, - + .14973, .03439, .01773, .00066, .00032, - + .00017, .00062, .00127 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ - + .14322, .03275, .01616, .00061, .00031, - + .00017, .00059, .00120, - + .13725, .03125, .01479, .00057, .00030, - + .00016, .00056, .00114, - + .13166, .02986, .01361, .00055, .00028, - + .00016, .00053, .00108, - + .12652, .02859, .01257, .00053, .00027, - + .00016, .00051, .00102, - + .12173, .02741, .01165, .00051, .00027, - + .00016, .00049, .00097 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + .31365, .07564, .10297, .00092, .00016, - + .00004, .00090, .00245, - + .28210, .06714, .07966, .00084, .00022, - + .00002, .00086, .00218, - + .25643, .06036, .06336, .00078, .00026, - + .00002, .00081, .00196, - + .23507, .05480, .05152, .00074, .00029, - + .00005, .00076, .00175, - + .21694, .05014, .04265, .00069, .00029, - + .00007, .00071, .00158, - + .20130, .04616, .03587, .00064, .00028, - + .00010, .00067, .00144, - + .18769, .04272, .03054, .00059, .00028, - + .00012, .00063, .00133 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ - + .17572, .03971, .02631, .00055, .00028, - + .00012, .00059, .00122, - + .16513, .03708, .02290, .00051, .00027, - + .00013, .00056, .00114, - + .15566, .03477, .02011, .00049, .00026, - + .00014, .00053, .00105, - + .14714, .03269, .01780, .00045, .00026, - + .00013, .00050, .00098, - + .13946, .03083, .01588, .00042, .00025, - + .00014, .00047, .00091, - + .13251, .02916, .01426, .00040, .00024, - + .00014, .00045, .00085, - + .12615, .02763, .01287, .00038, .00023, - + .00013, .00042, .00081 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ - + .12034, .02625, .01169, .00036, .00022, - + .00013, .00040, .00076, - + .11503, .02500, .01067, .00034, .00021, - + .00012, .00038, .00072, - + .11010, .02384, .00979, .00033, .00020, - + .00013, .00036, .00068, - + .10558, .02277, .00901, .00032, .00020, - + .00012, .00035, .00064, - + .10135, .02179, .00833, .00030, .00019, - + .00012, .00033, .00061 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + .27538, .06334, .08197, .00063, .00007, - + -.00002, .00055, .00160, - + .24604, .05589, .06256, .00059, .00013, - + -.00001, .00053, .00142, - + .22235, .04999, .04915, .00057, .00015, - + -.00001, .00050, .00125, - + .20286, .04516, .03957, .00050, .00017, - + -.00001, .00047, .00113, - + .18634, .04113, .03246, .00048, .00018, - + .00003, .00044, .00103, - + .17217, .03771, .02707, .00044, .00018, - + .00004, .00040, .00095, - + .15989, .03478, .02289, .00042, .00017, - + .00005, .00038, .00086 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ - + .14915, .03224, .01959, .00039, .00016, - + .00006, .00036, .00079, - + .13966, .03001, .01694, .00038, .00016, - + .00006, .00034, .00072, - + .13125, .02803, .01480, .00035, .00015, - + .00007, .00031, .00067, - + .12367, .02629, .01304, .00034, .00015, - + .00007, .00029, .00062, - + .11688, .02473, .01158, .00032, .00014, - + .00007, .00028, .00058, - + .11076, .02333, .01035, .00030, .00013, - + .00007, .00026, .00055, - + .10520, .02206, .00932, .00028, .00013, - + .00007, .00025, .00051 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ - + .10011, .02090, .00843, .00026, .00013, - + .00007, .00023, .00048, - + .09546, .01985, .00767, .00025, .00012, - + .00006, .00022, .00046, - + .09117, .01889, .00701, .00024, .00011, - + .00006, .00020, .00043, - + .08723, .01802, .00643, .00023, .00011, - + .00005, .00019, .00040, - + .08358, .01721, .00593, .00022, .00010, - + .00006, .00019, .00038 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + .23844, .05217, .06416, .00033, .00007, - + .00002, .00037, .00101, - + .21160, .04576, .04827, .00034, .00011, - + .00002, .00035, .00089, - + .19017, .04068, .03747, .00032, .00012, - + .00003, .00033, .00079, - + .17257, .03658, .02983, .00029, .00013, - + .00002, .00030, .00070, - + .15774, .03317, .02425, .00028, .00012, - + .00004, .00029, .00064, - + .14509, .03029, .02005, .00027, .00012, - + .00005, .00027, .00058, - + .13420, .02782, .01682, .00026, .00012, - + .00005, .00025, .00052 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ - + .12471, .02569, .01429, .00024, .00012, - + .00005, .00023, .00049, - + .11638, .02384, .01229, .00022, .00011, - + .00005, .00022, .00045, - + .10898, .02221, .01068, .00022, .00011, - + .00005, .00020, .00041, - + .10239, .02076, .00936, .00020, .00011, - + .00006, .00019, .00038, - + .09649, .01947, .00827, .00018, .00010, - + .00006, .00018, .00035, - + .09117, .01832, .00736, .00018, .00010, - + .00005, .00017, .00032, - + .08635, .01728, .00660, .00017, .00009, - + .00005, .00016, .00030 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ - + .08197, .01633, .00595, .00016, .00009, - + .00005, .00015, .00028, - + .07798, .01547, .00539, .00014, .00008, - + .00004, .00014, .00028, - + .07429, .01469, .00491, .00014, .00008, - + .00004, .00013, .00026, - + .07092, .01398, .00450, .00013, .00007, - + .00004, .00013, .00025, - + .06781, .01332, .00414, .00013, .00007, - + .00004, .00012, .00023 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + .20374, .04241, .04951, .00018, .00006, - + .00003, .00025, .00060, - + .17960, .03694, .03669, .00018, .00008, - + .00002, .00023, .00053, - + .16043, .03267, .02811, .00017, .00009, - + .00003, .00022, .00047, - + .14480, .02921, .02214, .00015, .00010, - + .00003, .00020, .00043, - + .13169, .02637, .01782, .00017, .00010, - + .00004, .00019, .00038, - + .12059, .02397, .01461, .00015, .00009, - + .00004, .00017, .00035, - + .11108, .02193, .01216, .00014, .00009, - + .00005, .00017, .00032 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ - + .10284, .02017, .01026, .00013, .00008, - + .00005, .00016, .00029, - + .09561, .01865, .00877, .00012, .00008, - + .00005, .00015, .00026, - + .08924, .01731, .00757, .00012, .00008, - + .00005, .00013, .00025, - + .08356, .01614, .00660, .00011, .00007, - + .00004, .00012, .00023, - + .07851, .01509, .00581, .00010, .00007, - + .00004, .00011, .00021, - + .07398, .01415, .00515, .00009, .00007, - + .00004, .00010, .00020, - + .06987, .01331, .00459, .00009, .00006, - + .00004, .00010, .00018 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ - + .06613, .01256, .00413, .00009, .00006, - + .00004, .00010, .00016, - + .06274, .01187, .00373, .00009, .00005, - + .00003, .00009, .00015, - + .05964, .01124, .00339, .00008, .00005, - + .00003, .00008, .00015, - + .05681, .01067, .00309, .00008, .00005, - + .00003, .00008, .00015, - + .05419, .01015, .00284, .00007, .00005, - + .00003, .00008, .00014 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + .17177, .03403, .03769, .00012, .00002, - + .00000, .00013, .00036, - + .15036, .02946, .02751, .00014, .00004, - + .00001, .00013, .00031, - + .13349, .02589, .02081, .00012, .00005, - + .00000, .00012, .00029, - + .11980, .02304, .01622, .00012, .00005, - + .00000, .00011, .00025, - + .10849, .02069, .01293, .00009, .00005, - + .00002, .00010, .00024, - + .09891, .01873, .01050, .00010, .00005, - + .00002, .00010, .00020, - + .09070, .01707, .00867, .00010, .00005, - + .00002, .00009, .00018 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ - + .08363, .01565, .00727, .00009, .00004, - + .00002, .00009, .00017, - + .07748, .01441, .00617, .00008, .00004, - + .00002, .00008, .00016, - + .07206, .01334, .00530, .00008, .00004, - + .00002, .00007, .00015, - + .06725, .01239, .00460, .00009, .00004, - + .00002, .00007, .00013, - + .06300, .01155, .00403, .00008, .00004, - + .00002, .00006, .00012, - + .05920, .01081, .00355, .00007, .00003, - + .00002, .00006, .00011, - + .05575, .01014, .00316, .00007, .00003, - + .00002, .00005, .00011 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ - + .05264, .00954, .00283, .00007, .00003, - + .00002, .00005, .00010, - + .04982, .00900, .00255, .00006, .00003, - + .00001, .00004, .00009, - + .04725, .00850, .00231, .00005, .00003, - + .00001, .00004, .00009, - + .04491, .00805, .00210, .00004, .00003, - + .00001, .00004, .00009, - + .04275, .00764, .00192, .00004, .00002, - + .00001, .00004, .00008 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + .14223, .02674, .02804, .00005, .00004, - + .00003, .00010, .00020, - + .12366, .02299, .02016, .00004, .00004, - + .00002, .00009, .00019, - + .10910, .02008, .01505, .00005, .00004, - + .00002, .00008, .00016, - + .09739, .01778, .01159, .00005, .00004, - + .00002, .00008, .00014, - + .08771, .01589, .00914, .00004, .00004, - + .00002, .00007, .00012, - + .07957, .01432, .00736, .00004, .00004, - + .00002, .00007, .00011, - + .07266, .01299, .00603, .00005, .00004, - + .00002, .00006, .00011 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ - + .06672, .01186, .00502, .00005, .00003, - + .00002, .00005, .00009, - + .06158, .01089, .00423, .00004, .00003, - + .00002, .00005, .00008, - + .05706, .01004, .00362, .00004, .00003, - + .00002, .00005, .00008, - + .05310, .00929, .00312, .00003, .00003, - + .00002, .00004, .00007, - + .04957, .00864, .00272, .00003, .00003, - + .00002, .00004, .00007, - + .04642, .00805, .00239, .00003, .00002, - + .00002, .00004, .00006, - + .04360, .00753, .00212, .00003, .00002, - + .00002, .00004, .00006 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ - + .04106, .00707, .00189, .00003, .00002, - + .00002, .00003, .00006, - + .03876, .00665, .00169, .00003, .00002, - + .00001, .00003, .00005, - + .03665, .00627, .00153, .00003, .00002, - + .00001, .00003, .00005, - + .03474, .00592, .00139, .00003, .00002, - + .00001, .00003, .00004, - + .03299, .00561, .00127, .00002, .00002, - + .00001, .00003, .00004 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + .09262, .01566, .01462, .00002, .00001, - + .00000, .00002, .00006, - + .07932, .01327, .01017, .00002, .00001, - + .00000, .00002, .00005, - + .06906, .01144, .00739, .00002, .00001, - + .00000, .00002, .00005, - + .06092, .01001, .00555, .00002, .00001, - + .00000, .00002, .00004, - + .05426, .00885, .00429, .00002, .00001, - + .00000, .00002, .00003, - + .04875, .00790, .00339, .00002, .00001, - + .00000, .00002, .00004, - + .04412, .00710, .00273, .00001, .00001, - + .00001, .00002, .00003 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ - + .04017, .00643, .00224, .00002, .00001, - + .00001, .00002, .00002, - + .03677, .00586, .00187, .00002, .00001, - + .00001, .00002, .00002, - + .03383, .00536, .00157, .00001, .00001, - + .00000, .00001, .00002, - + .03124, .00493, .00134, .00001, .00001, - + .00000, .00001, .00002, - + .02897, .00455, .00116, .00001, .00001, - + .00001, .00001, .00002, - + .02696, .00422, .00101, .00001, .00001, - + .00001, .00001, .00002, - + .02517, .00392, .00089, .00001, .00001, - + .00001, .00001, .00002 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ - + .02356, .00366, .00079, .00001, .00001, - + .00000, .00001, .00002, - + .02212, .00343, .00070, .00001, .00001, - + .00000, .00001, .00001, - + .02081, .00321, .00063, .00001, .00001, - + .00000, .00001, .00001, - + .01963, .00302, .00057, .00001, .00001, - + .00000, .00001, .00001, - + .01855, .00284, .00052, .00001, .00001, - + .00000, .00001, .00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + .05513, .00831, .00682, .00001, .00000, - + .00000, .00000, .00001, - + .04647, .00693, .00458, .00000, .00000, - + .00000, .00000, .00001, - + .03988, .00590, .00324, .00001, .00000, - + .00000, .00000, .00001, - + .03473, .00510, .00237, .00001, .00000, - + .00000, .00001, .00001, - + .03058, .00446, .00179, .00001, .00000, - + .00000, .00000, .00001, - + .02718, .00394, .00139, .00001, .00000, - + .00000, .00000, .00001, - + .02435, .00350, .00110, .00001, .00000, - + .00000, .00000, .00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ - + .02196, .00314, .00089, .00001, .00000, - + .00000, .00000, .00001, - + .01994, .00284, .00073, .00000, .00000, - + .00000, .00000, .00000, - + .01820, .00258, .00061, .00000, .00000, - + .00000, .00000, .00000, - + .01667, .00235, .00051, .00000, .00000, - + .00000, .00000, .00001, - + .01535, .00216, .00044, .00000, .00000, - + .00000, .00000, .00001, - + .01419, .00199, .00038, .00000, .00000, - + .00000, .00000, .00000, - + .01316, .00184, .00033, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ - + .01224, .00170, .00029, .00000, .00000, - + .00000, .00000, .00000, - + .01142, .00158, .00026, .00000, .00000, - + .00000, .00000, .00000, - + .01069, .00148, .00023, .00000, .00000, - + .00000, .00000, .00000, - + .01002, .00138, .00021, .00000, .00000, - + .00000, .00000, .00000, - + .00942, .00129, .00019, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + .02916, .00387, .00274, .00000, .00000, - + .00000, .00000, .00001, - + .02412, .00317, .00177, .00000, .00000, - + .00000, .00000, .00000, - + .02038, .00266, .00121, .00000, .00000, - + .00000, .00000, .00000, - + .01750, .00226, .00086, .00000, .00000, - + .00000, .00000, .00000, - + .01520, .00196, .00064, .00000, .00000, - + .00000, .00000, .00000, - + .01335, .00171, .00048, .00001, .00000, - + .00000, .00000, .00000, - + .01183, .00150, .00038, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ - + .01056, .00134, .00030, .00000, .00000, - + .00000, .00000, .00000, - + .00949, .00119, .00024, .00000, .00000, - + .00000, .00000, .00000, - + .00858, .00108, .00020, .00000, .00000, - + .00000, .00000, .00000, - + .00780, .00097, .00017, .00000, .00000, - + .00000, .00000, .00000, - + .00712, .00088, .00014, .00000, .00000, - + .00000, .00000, .00000, - + .00653, .00081, .00012, .00000, .00000, - + .00000, .00000, .00000, - + .00601, .00074, .00010, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ - + .00555, .00068, .00009, .00000, .00000, - + .00000, .00000, .00000, - + .00515, .00063, .00008, .00000, .00000, - + .00000, .00000, .00000, - + .00479, .00058, .00007, .00000, .00000, - + .00000, .00000, .00000, - + .00446, .00054, .00006, .00000, .00000, - + .00000, .00000, .00000, - + .00417, .00051, .00006, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + .01296, .00148, .00088, .00000, .00000, - + .00000, .00000, .00000, - + .01050, .00119, .00055, .00000, .00000, - + .00000, .00000, .00000, - + .00871, .00098, .00036, .00000, .00000, - + .00000, .00000, .00000, - + .00736, .00082, .00025, .00000, .00000, - + .00000, .00000, .00000, - + .00630, .00070, .00018, .00000, .00000, - + .00000, .00000, .00000, - + .00546, .00060, .00013, .00000, .00000, - + .00000, .00000, .00000, - + .00477, .00052, .00010, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ - + .00421, .00046, .00008, .00000, .00000, - + .00000, .00000, .00000, - + .00374, .00041, .00006, .00000, .00000, - + .00000, .00000, .00000, - + .00335, .00036, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00301, .00033, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00272, .00029, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00248, .00027, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00226, .00024, .00003, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ - + .00207, .00022, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00190, .00020, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00176, .00019, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00163, .00017, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00151, .00016, .00001, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + .00094, .00007, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00072, .00005, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00057, .00004, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00046, .00003, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00037, .00003, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00031, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00026, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ - + .00022, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00019, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00017, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00015, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00013, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00011, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00010, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ - + .00009, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00008, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00007, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00007, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00006, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,5,9,0,0,9,9/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - xsave=x -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,nx-1 - DO 20 M=1,19 -C READ(60,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7) GO TO 31 - DO 30 K=1,19 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,8 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.ntenth) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) -C - x=xsave -C - RETURN - END diff --git a/PDF/spdf/sfms115.F b/PDF/spdf/sfms115.F deleted file mode 100644 index b7c63464afc..00000000000 --- a/PDF/spdf/sfms115.F +++ /dev/null @@ -1,1970 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE SFMS115(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) -C -C THIS IS THE alphas=0.115 FIT -- May 1995 -- standard Q^2 range -C -#include "pdf/impdp.inc" -C - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,20),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + .00294, .00618, 13.39808, 1.13613, .15325, - + .00000, .62350, 1.14037, - + .00338, .00641, 24.76481, 1.48226, .51080, - + .00000, .97623, 1.48715, - + .00378, .00662, 38.63756, 1.89669, .93505, - + .00000, 1.39637, 1.90215, - + .00415, .00682, 54.53614, 2.37016, 1.41716, - + .10064, 1.87489, 2.37615, - + .00450, .00701, 72.40820, 2.90107, 1.95583, - + .61877, 2.41034, 2.90753, - + .00484, .00719, 91.81515, 3.48226, 2.54407, - + 1.21948, 2.99567, 3.48917, - + .00516, .00737, 112.60778, 4.10911, 3.17740, - + 1.86958, 3.62635, 4.11645 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ - + .00547, .00754, 134.61856, 4.77730, 3.85157, - + 2.55796, 4.29807, 4.78503, - + .00577, .00770, 157.67596, 5.48271, 4.56253, - + 3.28222, 5.00677, 5.49081, - + .00606, .00785, 181.58061, 6.22071, 5.30571, - + 4.03771, 5.74784, 6.22916, - + .00634, .00801, 206.08290, 6.98534, 6.07522, - + 4.81871, 6.51538, 6.99414, - + .00661, .00816, 231.24123, 7.77697, 6.87144, - + 5.62567, 7.30974, 7.78609, - + .00687, .00830, 257.01788, 8.59436, 7.69316, - + 6.45749, 8.12971, 8.60379, - + .00713, .00844, 283.19421, 9.43239, 8.53529, - + 7.30914, 8.97019, 9.44211 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ - + .00738, .00858, 309.53323, 10.28503, 9.39184, - + 8.17470, 9.82517, 10.29503, - + .00762, .00871, 336.40234, 11.16018, 10.27072, - + 9.06211, 10.70255, 11.17046, - + .00786, .00884, 363.25061, 12.04481, 11.15890, - + 9.95842, 11.58931, 12.05536, - + .00809, .00897, 390.38428, 12.94544, 12.06294, - + 10.87019, 12.49199, 12.95624, - + .00832, .00909, 417.62585, 13.85767, 12.97843, - + 11.79306, 13.40617, 13.86872 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + .00473, .00784, 11.95323, 1.02402, .13320, - + .00000, .55809, 1.02776, - + .00533, .00817, 21.24411, 1.31177, .43166, - + .00000, .85184, 1.31595, - + .00589, .00847, 32.22407, 1.64827, .77736, - + .00000, 1.19353, 1.65283, - + .00641, .00875, 44.49063, 2.02521, 1.16240, - + .07996, 1.57503, 2.03013, - + .00689, .00901, 57.99106, 2.44082, 1.58526, - + .48771, 1.99475, 2.44605, - + .00736, .00927, 72.38376, 2.88908, 2.04012, - + .95365, 2.44675, 2.89461, - + .00780, .00951, 87.55804, 3.36624, 2.52333, - + 1.45123, 2.92735, 3.37205 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ - + .00823, .00974, 103.39267, 3.86889, 3.03157, - + 1.97172, 3.43318, 3.87496, - + .00864, .00996, 119.76660, 4.39387, 3.56173, - + 2.51333, 3.96111, 4.40018, - + .00904, .01018, 136.54185, 4.93771, 4.11041, - + 3.07261, 4.50772, 4.94426, - + .00942, .01038, 153.54713, 5.49607, 4.67332, - + 3.64540, 5.06868, 5.50285, - + .00979, .01058, 170.83406, 6.06933, 5.25084, - + 4.23218, 5.64437, 6.07632, - + .01015, .01078, 188.38329, 6.65665, 5.84220, - + 4.83222, 6.23401, 6.66384, - + .01050, .01097, 206.04793, 7.25439, 6.44376, - + 5.44198, 6.83394, 7.26178 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ - + .01084, .01115, 223.67165, 7.85832, 7.05133, - + 6.05729, 7.43995, 7.86589, - + .01117, .01133, 241.51816, 8.47427, 7.67075, - + 6.68405, 8.05790, 8.48203, - + .01149, .01150, 259.21350, 9.09298, 8.29276, - + 7.31305, 8.67851, 9.10091, - + .01181, .01167, 276.97617, 9.71928, 8.92223, - + 7.94916, 9.30663, 9.72738, - + .01211, .01184, 294.69116, 10.35014, 9.55611, - + 8.58939, 9.93922, 10.35840 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + .00737, .00996, 10.66136, .92230, .11557, - + .00000, .49935, .92574, - + .00822, .01042, 18.21794, 1.16030, .36365, - + .00000, .74286, 1.16402, - + .00899, .01084, 26.86497, 1.43207, .64408, - + .00000, 1.01937, 1.43604, - + .00971, .01123, 36.28026, 1.73052, .95014, - + .06323, 1.32199, 1.73472, - + .01039, .01160, 46.42347, 2.05406, 1.28050, - + .38270, 1.64928, 2.05846, - + .01103, .01195, 57.03725, 2.39785, 1.63049, - + .74248, 1.99647, 2.40244, - + .01165, .01228, 68.04616, 2.75899, 1.99731, - + 1.12158, 2.36075, 2.76376 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ - + .01224, .01259, 79.36783, 3.13493, 2.37849, - + 1.51330, 2.73957, 3.13987, - + .01280, .01290, 90.92162, 3.52335, 2.77178, - + 1.91641, 3.13067, 3.52844, - + .01335, .01319, 102.61610, 3.92176, 3.17473, - + 2.32845, 3.53159, 3.92700, - + .01387, .01347, 114.33725, 4.32705, 3.58428, - + 2.74649, 3.93923, 4.33244, - + .01438, .01374, 126.13145, 4.73966, 4.00089, - + 3.17103, 4.35405, 4.74517, - + .01487, .01400, 137.99217, 5.15909, 4.42410, - + 3.60170, 4.77557, 5.16473, - + .01534, .01425, 149.82338, 5.58280, 4.85140, - + 4.03602, 5.20126, 5.58858 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ - + .01580, .01450, 161.52379, 6.00787, 5.27986, - + 4.47113, 5.62821, 6.01376, - + .01625, .01474, 173.28362, 6.43865, 5.71388, - + 4.91144, 6.06078, 6.44465, - + .01669, .01497, 184.85039, 6.86859, 6.14692, - + 5.35046, 6.49244, 6.87470, - + .01712, .01520, 196.38115, 7.30128, 6.58257, - + 5.79180, 6.92676, 7.30750, - + .01754, .01542, 207.80215, 7.73467, 7.01880, - + 6.23347, 7.36173, 7.74099 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + .00946, .01146, 9.96917, .86710, .10626, - + .00000, .46777, .87047, - + .01049, .01202, 16.64713, 1.07949, .32840, - + .00000, .68543, 1.08308, - + .01143, .01253, 24.14569, 1.31862, .57591, - + .00000, .92909, 1.32241, - + .01231, .01300, 32.18777, 1.57818, .84283, - + .05498, 1.19263, 1.58214, - + .01313, .01345, 40.74284, 1.85677, 1.12802, - + .33129, 1.47479, 1.86089, - + .01391, .01386, 49.59633, 2.15021, 1.42746, - + .63981, 1.77148, 2.15448, - + .01465, .01426, 58.69073, 2.45608, 1.73882, - + .96235, 2.08032, 2.46049 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ - + .01536, .01464, 67.96285, 2.77226, 2.06006, - + 1.29322, 2.39925, 2.77679, - + .01604, .01500, 77.35088, 3.09686, 2.38936, - + 1.63150, 2.72640, 3.10152, - + .01670, .01535, 86.78479, 3.42787, 2.72476, - + 1.97520, 3.05979, 3.43264, - + .01733, .01569, 96.17627, 3.76277, 3.06378, - + 2.32196, 3.39693, 3.76765, - + .01794, .01601, 105.56869, 4.10202, 3.40690, - + 2.67233, 3.73828, 4.10701, - + .01853, .01632, 114.96102, 4.44529, 3.75382, - + 3.02605, 4.08353, 4.45038, - + .01910, .01662, 124.27915, 4.79055, 4.10254, - + 3.38118, 4.43067, 4.79574 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ - + .01965, .01692, 133.44566, 5.13546, 4.45073, - + 3.73543, 4.77736, 5.14073, - + .02019, .01720, 142.61754, 5.48368, 4.80209, - + 4.09253, 5.12729, 5.48905, - + .02071, .01747, 151.59502, 5.82991, 5.15130, - + 4.44720, 5.47513, 5.83535, - + .02122, .01774, 160.50732, 6.17715, 5.50140, - + 4.80249, 5.82393, 6.18268, - + .02171, .01800, 169.29832, 6.52380, 5.85078, - + 5.15683, 6.17207, 6.52941 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + .01124, .01267, 9.50402, .82967, .10007, - + .00000, .44650, .83306, - + .01243, .01331, 15.61248, 1.02530, .30523, - + .00000, .64724, 1.02888, - + .01352, .01389, 22.38003, 1.24334, .53147, - + .00000, .86968, 1.24709, - + .01452, .01443, 29.56006, 1.47805, .77337, - + .04973, 1.10825, 1.48195, - + .01547, .01494, 37.12939, 1.72819, 1.02996, - + .29868, 1.36185, 1.73222, - + .01636, .01541, 44.90087, 1.99002, 1.29766, - + .57498, 1.62683, 1.99417, - + .01721, .01587, 52.82838, 2.26142, 1.57443, - + .86222, 1.90112, 2.26570 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ - + .01802, .01630, 60.86065, 2.54058, 1.85855, - + 1.15536, 2.18294, 2.54497, - + .01880, .01671, 68.94741, 2.82588, 2.14844, - + 1.45366, 2.47071, 2.83037, - + .01954, .01710, 77.03146, 3.11560, 2.44246, - + 1.75545, 2.76274, 3.12019, - + .02026, .01748, 85.03981, 3.40759, 2.73847, - + 2.05872, 3.05689, 3.41227, - + .02095, .01785, 93.01374, 3.70232, 3.03698, - + 2.36402, 3.35365, 3.70709, - + .02162, .01820, 100.95535, 3.99957, 3.33779, - + 2.67120, 3.65282, 4.00442, - + .02227, .01854, 108.80322, 4.29759, 3.63920, - + 2.97861, 3.95266, 4.30253 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ - + .02290, .01887, 116.49366, 4.59441, 3.93923, - + 3.28431, 4.25120, 4.59942, - + .02351, .01919, 124.16376, 4.89328, 4.24116, - + 3.59162, 4.55172, 4.89837, - + .02410, .01950, 131.64481, 5.18962, 4.54042, - + 3.89599, 4.84963, 5.19478, - + .02468, .01980, 139.04913, 5.48610, 4.83969, - + 4.20013, 5.14761, 5.49133, - + .02524, .02010, 146.33073, 5.78137, 5.13763, - + 4.50270, 5.44431, 5.78667 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + .01284, .01369, 9.15710, .80157, .09548, - + .00000, .43061, .80501, - + .01416, .01441, 14.85221, .98494, .28822, - + .00000, .61899, .98855, - + .01537, .01505, 21.09624, 1.18771, .49907, - + .00000, .82607, 1.19148, - + .01649, .01565, 27.66522, 1.40458, .72301, - + .04597, 1.04671, 1.40848, - + .01754, .01621, 34.54162, 1.63442, .95921, - + .27540, 1.27995, 1.63845, - + .01853, .01674, 41.55801, 1.87384, 1.20440, - + .52884, 1.52245, 1.87798, - + .01948, .01724, 48.67631, 2.12095, 1.45679, - + .79116, 1.77238, 2.12520 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ - + .02038, .01771, 55.85345, 2.37413, 1.71485, - + 1.05779, 2.02816, 2.37848, - + .02124, .01817, 63.04741, 2.63197, 1.97721, - + 1.32814, 2.28842, 2.63641, - + .02206, .01860, 70.20945, 2.89295, 2.24241, - + 1.60074, 2.55166, 2.89748, - + .02286, .01902, 77.27711, 3.15518, 2.50860, - + 1.87382, 2.81600, 3.15980, - + .02362, .01942, 84.29008, 3.41914, 2.77627, - + 2.14794, 3.08194, 3.42383, - + .02436, .01981, 91.25224, 3.68466, 3.04531, - + 2.42302, 3.34933, 3.68943, - + .02508, .02018, 98.11102, 3.95022, 3.31420, - + 2.69762, 3.61668, 3.95507 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ - + .02577, .02055, 104.81170, 4.21409, 3.58122, - + 2.97004, 3.88223, 4.21900, - + .02645, .02090, 111.47772, 4.47922, 3.84937, - + 3.24328, 4.14897, 4.48421, - + .02710, .02124, 117.96120, 4.74154, 4.11456, - + 3.51333, 4.41283, 4.74659, - + .02774, .02157, 124.36292, 5.00349, 4.37925, - + 3.78264, 4.67624, 5.00860, - + .02835, .02189, 130.64351, 5.26387, 4.64226, - + 4.05005, 4.93802, 5.26904 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + .01919, .01748, 8.14996, .71892, .08233, - + .00000, .38434, .72280, - + .02105, .01846, 12.70285, .86796, .24035, - + .00000, .53814, .87200, - + .02275, .01936, 17.53416, 1.02876, .40886, - + .00000, .70301, 1.03293, - + .02431, .02018, 22.48380, 1.19725, .58413, - + .03581, .87509, 1.20155, - + .02577, .02094, 27.55086, 1.37277, .76573, - + .21293, 1.05383, 1.37718, - + .02715, .02166, 32.62030, 1.55283, .95131, - + .40571, 1.23681, 1.55735, - + .02845, .02234, 37.67496, 1.73617, 1.13971, - + .60252, 1.42282, 1.74078 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ - + .02969, .02298, 42.69280, 1.92173, 1.32995, - + .80008, 1.61086, 1.92645, - + .03088, .02360, 47.65164, 2.10863, 1.52118, - + .99810, 1.80004, 2.11343, - + .03201, .02418, 52.52433, 2.29587, 1.71247, - + 1.19568, 1.98942, 2.30076, - + .03310, .02475, 57.27354, 2.48222, 1.90261, - + 1.39168, 2.17777, 2.48718, - + .03414, .02529, 61.93387, 2.66815, 2.09211, - + 1.58667, 2.36559, 2.67320, - + .03515, .02580, 66.51328, 2.85368, 2.28100, - + 1.78070, 2.55289, 2.85879, - + .03612, .02630, 70.97984, 3.03780, 2.46831, - + 1.97286, 2.73869, 3.04299 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ - + .03706, .02679, 75.30048, 3.21937, 2.65291, - + 2.16204, 2.92186, 3.22463, - + .03797, .02725, 79.56411, 3.40062, 2.83704, - + 2.35051, 3.10463, 3.40594, - + .03885, .02771, 83.67294, 3.57871, 3.01789, - + 2.53548, 3.28418, 3.58410, - + .03971, .02815, 87.69898, 3.75548, 3.19728, - + 2.71879, 3.46233, 3.76093, - + .04054, .02857, 91.61830, 3.93014, 3.37446, - + 2.89972, 3.63832, 3.93565 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + .02839, .02246, 7.23420, .64214, .07066, - + .00000, .34203, .64692, - + .03102, .02381, 10.82860, .76181, .19900, - + .00000, .46631, .76679, - + .03339, .02503, 14.51802, .88768, .33234, - + .00000, .59614, .89285, - + .03557, .02615, 18.19586, 1.01687, .46809, - + .02761, .72881, 1.02220, - + .03759, .02719, 21.87499, 1.14908, .60620, - + .16298, .86414, 1.15457, - + .03949, .02817, 25.48096, 1.28261, .74508, - + .30810, 1.00051, 1.28824, - + .04129, .02909, 29.01168, 1.41669, .88408, - + .45420, 1.13720, 1.42246 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ - + .04299, .02995, 32.45984, 1.55073, 1.02264, - + .59896, 1.27363, 1.55662, - + .04461, .03078, 35.81690, 1.68418, 1.16030, - + .74238, 1.40931, 1.69019, - + .04615, .03157, 39.07015, 1.81649, 1.29653, - + .88393, 1.54370, 1.82261, - + .04763, .03232, 42.19911, 1.94685, 1.43058, - + 1.02295, 1.67601, 1.95309, - + .04905, .03304, 45.23337, 2.07576, 1.56295, - + 1.15996, 1.80676, 2.08210, - + .05041, .03373, 48.18255, 2.20331, 1.69377, - + 1.29513, 1.93604, 2.20975, - + .05172, .03439, 51.02823, 2.32888, 1.82243, - + 1.42789, 2.06324, 2.33541 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ - + .05298, .03503, 53.75137, 2.45174, 1.94823, - + 1.55756, 2.18766, 2.45836, - + .05421, .03565, 56.41547, 2.57354, 2.07284, - + 1.68583, 2.31095, 2.58026, - + .05539, .03625, 58.95689, 2.69237, 2.19434, - + 1.81081, 2.43119, 2.69917, - + .05653, .03682, 61.42655, 2.80956, 2.31409, - + 1.93388, 2.54973, 2.81645, - + .05764, .03738, 63.81034, 2.92464, 2.43161, - + 2.05456, 2.66611, 2.93160 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + .03559, .02614, 6.73201, .59928, .06439, - + .00000, .31870, .60481, - + .03879, .02777, 9.83611, .70370, .17737, - + .00000, .42769, .70949, - + .04167, .02924, 12.95918, .81187, .29291, - + .00000, .53979, .81790, - + .04430, .03058, 16.02117, .92151, .40903, - + .02356, .65289, .92775, - + .04675, .03182, 19.04138, 1.03254, .52587, - + .13848, .76702, 1.03898, - + .04904, .03298, 21.96433, 1.14361, .64224, - + .26058, .88092, 1.15024, - + .05119, .03407, 24.79433, 1.25423, .75770, - + .38245, .99412, 1.26103 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ - + .05323, .03510, 27.53029, 1.36396, .87191, - + .50227, 1.10624, 1.37092, - + .05517, .03608, 30.16933, 1.47247, .98458, - + .62014, 1.21697, 1.47958, - + .05701, .03701, 32.70458, 1.57935, 1.09534, - + .73573, 1.32592, 1.58662, - + .05877, .03790, 35.12266, 1.68403, 1.20366, - + .84853, 1.43254, 1.69144, - + .06045, .03874, 37.45015, 1.78698, 1.31003, - + .95909, 1.53731, 1.79451, - + .06207, .03956, 39.69685, 1.88831, 1.41460, - + 1.06760, 1.64037, 1.89598, - + .06362, .04034, 41.84991, 1.98758, 1.51693, - + 1.17363, 1.74128, 1.99537 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ - + .06511, .04109, 43.89595, 2.08424, 1.61649, - + 1.27669, 1.83948, 2.09214, - + .06656, .04181, 45.88681, 2.17967, 1.71470, - + 1.37821, 1.93639, 2.18769, - + .06795, .04251, 47.77338, 2.27235, 1.81002, - + 1.47668, 2.03048, 2.28047, - + .06930, .04319, 49.59703, 2.36340, 1.90360, - + 1.57325, 2.12288, 2.37163, - + .07061, .04384, 51.34756, 2.45246, 1.99509, - + 1.66758, 2.21324, 2.46079 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + .04175, .02922, 6.38704, .56950, .06015, - + .00000, .30259, .57567, - + .04542, .03108, 9.16992, .66385, .16299, - + .00000, .40149, .67033, - + .04872, .03275, 11.92927, .76051, .26697, - + .00000, .50209, .76728, - + .05172, .03427, 14.60186, .85760, .37050, - + .02098, .60263, .86462, - + .05451, .03568, 17.21076, .95516, .47384, - + .12289, .70330, .96242, - + .05711, .03699, 19.71207, 1.05210, .57603, - + .23046, .80305, 1.05958, - + .05956, .03822, 22.11371, 1.14804, .67679, - + .33717, .90158, 1.15572 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ - + .06187, .03938, 24.41806, 1.24269, .77589, - + .44149, .99862, 1.25057, - + .06406, .04048, 26.62535, 1.33581, .87314, - + .54359, 1.09396, 1.34387, - + .06614, .04153, 28.73206, 1.42710, .96829, - + .64322, 1.18732, 1.43534, - + .06812, .04252, 30.72867, 1.51612, 1.06092, - + .74002, 1.27828, 1.52452, - + .07002, .04347, 32.63969, 1.60330, 1.15150, - + .83450, 1.36728, 1.61185, - + .07184, .04438, 34.47482, 1.68879, 1.24021, - + .92686, 1.45450, 1.69750, - + .07358, .04526, 36.22431, 1.77224, 1.32670, - + 1.01679, 1.53959, 1.78109 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ - + .07526, .04609, 37.87795, 1.85319, 1.41055, - + 1.10389, 1.62209, 1.86218, - + .07688, .04690, 39.48041, 1.93288, 1.49299, - + 1.18940, 1.70326, 1.94200, - + .07844, .04768, 40.99110, 2.01001, 1.57274, - + 1.27208, 1.78180, 2.01926, - + .07994, .04843, 42.44547, 2.08556, 1.65081, - + 1.35292, 1.85870, 2.09493, - + .08140, .04916, 43.83561, 2.15925, 1.72691, - + 1.43167, 1.93369, 2.16875 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + .04730, .03206, 6.11918, .54628, .05690, - + .00000, .28994, .55285, - + .05136, .03412, 8.66098, .63308, .15214, - + .00000, .38127, .64000, - + .05501, .03596, 11.15140, .72123, .24757, - + .00000, .47334, .72847, - + .05833, .03764, 13.53957, .80913, .34186, - + .01909, .56467, .81664, - + .06140, .03919, 15.85095, .89691, .43538, - + .11154, .65553, .90467, - + .06426, .04063, 18.04998, .98362, .52732, - + .20860, .74505, .99163, - + .06695, .04199, 20.14686, 1.06902, .61751, - + .30439, .83302, 1.07725 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ - + .06948, .04326, 22.14627, 1.15289, .70580, - + .39762, .91927, 1.16133, - + .07187, .04446, 24.05030, 1.23506, .79207, - + .48846, 1.00364, 1.24370, - + .07415, .04561, 25.85773, 1.31529, .87614, - + .57675, 1.08593, 1.32412, - + .07631, .04669, 27.56176, 1.39324, .95768, - + .66223, 1.16581, 1.40225, - + .07838, .04772, 29.18496, 1.46933, 1.03715, - + .74538, 1.24372, 1.47851, - + .08036, .04871, 30.73680, 1.54372, 1.11472, - + .82640, 1.31982, 1.55306, - + .08226, .04966, 32.20955, 1.61610, 1.19013, - + .90505, 1.39383, 1.62560 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ - + .08408, .05057, 33.59530, 1.68611, 1.26301, - + .98100, 1.46538, 1.69576, - + .08584, .05145, 34.93357, 1.75486, 1.33449, - + 1.05537, 1.53560, 1.76465, - + .08753, .05229, 36.18959, 1.82120, 1.40344, - + 1.12708, 1.60334, 1.83113, - + .08917, .05310, 37.39471, 1.88603, 1.47077, - + 1.19702, 1.66952, 1.89609, - + .09075, .05388, 38.54248, 1.94912, 1.53625, - + 1.26499, 1.73389, 1.95931 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + .06952, .04323, 5.32073, .47579, .04744, - + .00000, .25212, .48429, - + .07506, .04605, 7.19824, .54146, .12146, - + .00000, .32231, .55044, - + .08000, .04856, 8.96805, .60630, .19349, - + .00000, .39105, .61572, - + .08445, .05081, 10.61047, .66943, .26294, - + .01403, .45761, .67925, - + .08855, .05288, 12.15591, .73122, .33039, - + .08132, .52248, .74139, - + .09234, .05480, 13.58867, .79114, .39547, - + .15075, .58520, .80164, - + .09588, .05658, 14.92348, .84919, .45824, - + .21815, .64581, .86000 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ - + .09920, .05825, 16.16949, .90536, .51877, - + .28278, .70434, .91645, - + .10233, .05982, 17.33282, .95964, .57709, - + .34489, .76082, .97100, - + .10528, .06129, 18.41656, 1.01197, .63319, - + .40449, .81519, 1.02358, - + .10808, .06269, 19.41947, 1.06218, .68693, - + .46150, .86732, 1.07403, - + .11074, .06402, 20.35917, 1.11064, .73873, - + .51633, .91759, 1.12273, - + .11328, .06528, 21.24398, 1.15754, .78876, - + .56922, .96620, 1.16984, - + .11570, .06648, 22.07058, 1.20271, .83691, - + .62005, 1.01298, 1.21522 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ - + .11802, .06763, 22.83552, 1.24596, .88298, - + .66865, 1.05776, 1.25866, - + .12024, .06873, 23.56540, 1.28808, .92778, - + .71584, 1.10134, 1.30097, - + .12238, .06979, 24.23916, 1.32833, .97059, - + .76093, 1.14298, 1.34140, - + .12443, .07080, 24.87763, 1.36736, 1.01207, - + .80456, 1.18334, 1.38060, - + .12641, .07178, 25.47748, 1.40503, 1.05208, - + .84663, 1.22228, 1.41843 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + .10183, .05987, 4.54986, .40621, .03875, - + .00000, .21523, .41738, - + .10920, .06364, 5.87243, .45380, .09457, - + .00000, .26733, .46564, - + .11569, .06695, 7.06654, .49939, .14723, - + .00000, .31680, .51182, - + .12149, .06989, 8.13413, .54264, .19669, - + .00999, .36344, .55560, - + .12679, .07257, 9.10679, .58402, .24364, - + .05740, .40788, .59746, - + .13165, .07502, 9.98109, .62334, .28801, - + .10541, .44997, .63722, - + .13615, .07728, 10.77334, .66073, .33002, - + .15120, .48989, .67500 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ - + .14035, .07938, 11.49406, .69630, .36985, - + .19438, .52779, .71094, - + .14427, .08133, 12.15094, .73013, .40764, - + .23527, .56380, .74513, - + .14796, .08316, 12.74853, .76227, .44346, - + .27394, .59795, .77759, - + .15143, .08487, 13.28817, .79266, .47729, - + .31043, .63022, .80828, - + .15471, .08649, 13.78310, .82162, .50948, - + .34510, .66095, .83752, - + .15782, .08802, 14.23993, .84930, .54022, - + .37816, .69031, .86547, - + .16078, .08947, 14.65774, .87565, .56946, - + .40958, .71825, .89208 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ - + .16359, .09084, 15.03555, .90056, .59711, - + .43928, .74465, .91723, - + .16628, .09215, 15.39035, .92459, .62375, - + .46786, .77011, .94149, - + .16884, .09340, 15.70975, .94728, .64892, - + .49487, .79416, .96439, - + .17130, .09459, 16.00706, .96907, .67309, - + .52078, .81725, .98639, - + .17366, .09573, 16.28069, .98989, .69618, - + .54554, .83931, 1.00741 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + .12704, .07318, 4.10945, .36589, .03402, - + -.00001, .19421, .37929, - + .13560, .07756, 5.15649, .40429, .08053, - + -.00001, .23708, .41849, - + .14309, .08137, 6.07569, .44036, .12358, - + -.00001, .27701, .45526, - + .14974, .08473, 6.87711, .47401, .16335, - + .00804, .31403, .48953, - + .15577, .08776, 7.59138, .50575, .20056, - + .04595, .34880, .52182, - + .16128, .09051, 8.21990, .53549, .23527, - + .08391, .38128, .55207, - + .16635, .09303, 8.77835, .56342, .26774, - + .11969, .41171, .58045 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ - + .17105, .09535, 9.27685, .58970, .29819, - + .15311, .44029, .60715, - + .17543, .09750, 9.72313, .61442, .32679, - + .18442, .46715, .63227, - + .17952, .09950, 10.12157, .63767, .35365, - + .21379, .49239, .65588, - + .18335, .10136, 10.47508, .65944, .37878, - + .24126, .51601, .67798, - + .18695, .10311, 10.79369, .67999, .40250, - + .26715, .53830, .69885, - + .19036, .10476, 11.08308, .69947, .42497, - + .29165, .55943, .71862, - + .19359, .10631, 11.34325, .71785, .44617, - + .31476, .57937, .73728 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ - + .19664, .10776, 11.57354, .73508, .46607, - + .33645, .59806, .75477, - + .19956, .10916, 11.78689, .75158, .48512, - + .35720, .61596, .77152, - + .20232, .11047, 11.97450, .76703, .50299, - + .37668, .63274, .78720, - + .20496, .11172, 12.14636, .78176, .52003, - + .39525, .64874, .80215, - + .20749, .11291, 12.30148, .79572, .53620, - + .41288, .66392, .81633 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + .14847, .08474, 3.80001, .33746, .03082, - + -.00001, .17952, .35283, - + .15790, .08954, 4.67247, .36991, .07129, - + -.00001, .21642, .38619, - + .16610, .09368, 5.42176, .39996, .10822, - + -.00001, .25030, .41703, - + .17334, .09730, 6.06215, .42764, .14191, - + .00682, .28131, .44537, - + .17987, .10055, 6.62285, .45344, .17310, - + .03884, .31010, .47179, - + .18581, .10347, 7.10755, .47736, .20190, - + .07062, .33672, .49625, - + .19124, .10613, 7.53107, .49961, .22860, - + .10033, .36144, .51899 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ - + .19626, .10857, 7.90312, .52035, .25344, - + .12785, .38444, .54017, - + .20092, .11082, 8.23100, .53969, .27658, - + .15346, .40589, .55993, - + .20525, .11290, 8.51902, .55773, .29816, - + .17731, .42588, .57835, - + .20929, .11483, 8.77010, .57448, .31820, - + .19947, .44445, .59545, - + .21307, .11662, 8.99282, .59017, .33699, - + .22023, .46185, .61146, - + .21665, .11831, 9.19205, .60495, .35469, - + .23976, .47824, .62654, - + .22002, .11989, 9.36803, .61879, .37129, - + .25809, .49360, .64067 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ - + .22319, .12137, 9.52045, .63165, .38676, - + .27519, .50790, .65380, - + .22621, .12277, 9.65978, .64391, .40151, - + .29147, .52153, .66631, - + .22906, .12409, 9.77914, .65529, .41525, - + .30666, .53421, .67792, - + .23179, .12534, 9.88653, .66608, .42830, - + .32109, .54625, .68893, - + .23438, .12653, 9.98125, .67625, .44062, - + .33472, .55759, .69931 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + .16742, .09510, 3.56194, .31556, .02843, - + .00000, .16834, .33280, - + .17752, .10020, 4.31078, .34376, .06453, - + .00000, .20094, .36197, - + .18625, .10456, 4.94205, .36954, .09710, - + .00000, .23051, .38859, - + .19392, .10835, 5.47237, .39303, .12651, - + .00597, .25730, .41279, - + .20081, .11172, 5.92952, .41473, .15351, - + .03387, .28194, .43512, - + .20704, .11474, 6.31857, .43465, .17824, - + .06137, .30453, .45561, - + .21272, .11747, 6.65323, .45301, .20098, - + .08689, .32533, .47449 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ - + .21795, .11996, 6.94291, .47000, .22200, - + .11039, .34455, .49193, - + .22278, .12225, 7.19447, .48573, .24146, - + .13213, .36235, .50809, - + .22725, .12435, 7.41201, .50029, .25949, - + .15226, .37883, .52304, - + .23140, .12629, 7.59815, .51370, .27614, - + .17085, .39403, .53679, - + .23529, .12809, 7.76074, .52619, .29166, - + .18818, .40819, .54961, - + .23895, .12977, 7.90394, .53787, .30621, - + .20442, .42146, .56159, - + .24238, .13133, 8.02794, .54874, .31978, - + .21959, .43382, .57274 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ - + .24560, .13279, 8.13271, .55876, .33236, - + .23366, .44525, .58303, - + .24866, .13418, 8.22703, .56827, .34430, - + .24701, .45610, .59278, - + .25154, .13546, 8.30528, .57703, .35537, - + .25942, .46613, .60177, - + .25429, .13668, 8.37413, .58529, .36584, - + .27116, .47560, .61025, - + .25689, .13784, 8.43302, .59303, .37568, - + .28220, .48450, .61818 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + .24211, .13656, 2.83402, .24901, .02159, - + .00000, .13520, .27440, - + .25389, .14207, 3.26176, .26578, .04583, - + .00000, .15616, .29224, - + .26385, .14663, 3.59715, .28042, .06687, - + .00000, .17439, .30777, - + .27239, .15047, 3.85963, .29321, .08523, - + .00376, .19029, .32127, - + .27993, .15379, 4.07124, .30457, .10157, - + .02111, .20443, .33326, - + .28660, .15667, 4.23844, .31462, .11611, - + .03782, .21697, .34384, - + .29258, .15921, 4.37203, .32357, .12914, - + .05296, .22818, .35323 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ - + .29797, .16146, 4.47886, .33155, .14089, - + .06659, .23824, .36162, - + .30287, .16347, 4.56392, .33871, .15151, - + .07895, .24731, .36913, - + .30734, .16527, 4.63062, .34511, .16114, - + .09016, .25549, .37585, - + .31141, .16688, 4.68084, .35080, .16983, - + .10032, .26282, .38180, - + .31516, .16834, 4.71926, .35593, .17777, - + .10963, .26949, .38717, - + .31863, .16967, 4.74844, .36059, .18507, - + .11820, .27559, .39204, - + .32184, .17088, 4.76869, .36477, .19175, - + .12607, .28113, .39642 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ - + .32479, .17197, 4.78019, .36848, .19780, - + .13326, .28612, .40029, - + .32757, .17298, 4.78765, .37191, .20347, - + .13998, .29076, .40388, - + .33013, .17389, 4.78801, .37493, .20860, - + .14611, .29493, .40703, - + .33254, .17473, 4.78490, .37768, .21338, - + .15183, .29877, .40990, - + .33479, .17551, 4.77801, .38016, .21778, - + .15713, .30229, .41249 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + .34667, .19296, 2.13435, .18592, .01570, - + -.00001, .10515, .22363, - + .35823, .19704, 2.32967, .19381, .03056, - + -.00002, .11686, .23214, - + .36755, .20014, 2.46356, .20018, .04287, - + -.00002, .12647, .23892, - + .37520, .20251, 2.55316, .20532, .05316, - + .00215, .13439, .24434, - + .38165, .20439, 2.61393, .20956, .06198, - + .01193, .14109, .24876, - + .38712, .20585, 2.65115, .21298, .06953, - + .02109, .14672, .25231, - + .39181, .20699, 2.67179, .21577, .07607, - + .02914, .15149, .25516 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ - + .39585, .20788, 2.68030, .21805, .08177, - + .03621, .15558, .25744, - + .39936, .20858, 2.67970, .21989, .08675, - + .04244, .15907, .25926, - + .40242, .20910, 2.67187, .22136, .09113, - + .04796, .16206, .26068, - + .40505, .20946, 2.65772, .22248, .09495, - + .05283, .16458, .26172, - + .40736, .20971, 2.63986, .22334, .09834, - + .05720, .16676, .26249, - + .40941, .20988, 2.61952, .22400, .10137, - + .06113, .16864, .26305, - + .41121, .20996, 2.59670, .22446, .10404, - + .06466, .17024, .26340 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ - + .41275, .20995, 2.57143, .22470, .10638, - + .06779, .17156, .26353, - + .41415, .20990, 2.54593, .22485, .10852, - + .07067, .17273, .26356, - + .41533, .20978, 2.51866, .22484, .11038, - + .07324, .17367, .26341, - + .41637, .20962, 2.49129, .22475, .11206, - + .07559, .17448, .26317, - + .41728, .20942, 2.46357, .22455, .11356, - + .07772, .17514, .26284 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + .42370, .22997, 1.74889, .15041, .01267, - + .00000, .08864, .19608, - + .43286, .23156, 1.84451, .15420, .02314, - + .00000, .09591, .19969, - + .43977, .23239, 1.89737, .15693, .03152, - + .00000, .10155, .20211, - + .44504, .23267, 1.92141, .15882, .03830, - + .00146, .10593, .20365, - + .44916, .23261, 1.92811, .16015, .04394, - + .00799, .10943, .20457, - + .45233, .23228, 1.92135, .16096, .04863, - + .01400, .11219, .20498, - + .45478, .23174, 1.90595, .16141, .05257, - + .01915, .11438, .20500 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ - + .45666, .23106, 1.88494, .16157, .05591, - + .02359, .11611, .20474, - + .45808, .23027, 1.86010, .16149, .05874, - + .02742, .11748, .20424, - + .45911, .22940, 1.83263, .16122, .06117, - + .03076, .11853, .20356, - + .45977, .22845, 1.80300, .16080, .06322, - + .03364, .11930, .20269, - + .46019, .22746, 1.77268, .16025, .06498, - + .03617, .11986, .20173, - + .46042, .22645, 1.74231, .15962, .06651, - + .03842, .12028, .20069, - + .46044, .22541, 1.71181, .15892, .06782, - + .04039, .12054, .19958 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ - + .46028, .22433, 1.68104, .15812, .06891, - + .04212, .12065, .19840, - + .46003, .22326, 1.65127, .15730, .06989, - + .04368, .12069, .19722, - + .45961, .22217, 1.62151, .15642, .07069, - + .04504, .12061, .19596, - + .45910, .22109, 1.59262, .15553, .07139, - + .04626, .12046, .19470, - + .45851, .22001, 1.56438, .15461, .07198, - + .04734, .12025, .19342 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + .48419, .25441, 1.48949, .12515, .01062, - + -.00001, .07661, .17506, - + .48982, .25319, 1.52866, .12655, .01845, - + .00001, .08116, .17544, - + .49342, .25158, 1.53799, .12723, .02453, - + .00001, .08445, .17512, - + .49556, .24971, 1.52869, .12738, .02930, - + .00107, .08681, .17430, - + .49677, .24770, 1.50936, .12718, .03318, - + .00575, .08854, .17317, - + .49719, .24557, 1.48264, .12667, .03630, - + .00999, .08974, .17181, - + .49702, .24343, 1.45207, .12599, .03885, - + .01356, .09056, .17025 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ - + .49644, .24125, 1.41949, .12515, .04095, - + .01659, .09108, .16861, - + .49555, .23908, 1.38606, .12420, .04269, - + .01917, .09137, .16692, - + .49438, .23693, 1.35238, .12316, .04413, - + .02136, .09147, .16516, - + .49295, .23479, 1.31865, .12206, .04531, - + .02323, .09140, .16337, - + .49137, .23271, 1.28577, .12094, .04628, - + .02485, .09123, .16157, - + .48969, .23068, 1.25399, .11980, .04709, - + .02625, .09097, .15980, - + .48792, .22867, 1.22312, .11865, .04776, - + .02747, .09063, .15803 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ - + .48602, .22669, 1.19301, .11748, .04829, - + .02851, .09021, .15625, - + .48412, .22477, 1.16439, .11634, .04874, - + .02944, .08977, .15453, - + .48212, .22288, 1.13654, .11516, .04907, - + .03023, .08926, .15283, - + .48011, .22104, 1.10994, .11401, .04934, - + .03092, .08874, .15116, - + .47808, .21924, 1.08438, .11287, .04954, - + .03153, .08819, .14952 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + .53222, .26957, 1.29654, .10513, .00901, - + .00000, .06660, .15635, - + .53360, .26560, 1.29940, .10506, .01506, - + -.00001, .06934, .15450, - + .53334, .26164, 1.28226, .10454, .01962, - + .00000, .07110, .15236, - + .53202, .25772, 1.25390, .10369, .02309, - + .00080, .07219, .15006, - + .53005, .25392, 1.22056, .10265, .02584, - + .00429, .07283, .14767, - + .52753, .25019, 1.18403, .10144, .02800, - + .00742, .07311, .14525, - + .52463, .24660, 1.14665, .10018, .02972, - + .01001, .07314, .14280 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ - + .52153, .24311, 1.10960, .09885, .03109, - + .01216, .07298, .14042, - + .51825, .23978, 1.07348, .09752, .03219, - + .01396, .07269, .13804, - + .51487, .23655, 1.03854, .09616, .03305, - + .01547, .07228, .13575, - + .51139, .23341, 1.00477, .09479, .03373, - + .01675, .07178, .13352, - + .50788, .23041, .97262, .09345, .03427, - + .01783, .07123, .13133, - + .50437, .22753, .94218, .09214, .03470, - + .01875, .07065, .12921, - + .50087, .22475, .91321, .09083, .03503, - + .01953, .07003, .12718 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ - + .49735, .22204, .88549, .08955, .03526, - + .02019, .06937, .12519, - + .49391, .21945, .85945, .08831, .03544, - + .02077, .06872, .12328, - + .49045, .21693, .83451, .08709, .03554, - + .02125, .06804, .12142, - + .48705, .21450, .81095, .08591, .03560, - + .02166, .06737, .11963, - + .48368, .21215, .78857, .08475, .03562, - + .02201, .06670, .11789 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + .57768, .27860, 1.10972, .08465, .00739, - + -.00001, .05570, .13438, - + .57317, .27150, 1.08280, .08352, .01186, - + -.00001, .05694, .13078, - + .56784, .26489, 1.04541, .08216, .01512, - + -.00001, .05750, .12728, - + .56198, .25874, 1.00362, .08067, .01753, - + .00057, .05761, .12389, - + .55594, .25300, .96138, .07913, .01937, - + .00308, .05746, .12067, - + .54973, .24757, .91949, .07755, .02076, - + .00529, .05708, .11757, - + .54349, .24249, .87925, .07599, .02182, - + .00706, .05657, .11461 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ - + .53731, .23768, .84116, .07444, .02263, - + .00853, .05597, .11180, - + .53123, .23314, .80533, .07294, .02326, - + .00973, .05531, .10912, - + .52525, .22886, .77171, .07147, .02371, - + .01072, .05461, .10658, - + .51935, .22476, .74008, .07006, .02405, - + .01153, .05387, .10414, - + .51360, .22088, .71060, .06868, .02429, - + .01220, .05312, .10183, - + .50803, .21720, .68317, .06736, .02446, - + .01278, .05238, .09964, - + .50259, .21368, .65749, .06609, .02455, - + .01325, .05163, .09756 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ - + .49724, .21031, .63334, .06485, .02459, - + .01364, .05089, .09554, - + .49210, .20711, .61090, .06367, .02460, - + .01397, .05017, .09364, - + .48705, .20402, .58974, .06251, .02456, - + .01423, .04944, .09182, - + .48215, .20107, .56994, .06141, .02450, - + .01445, .04874, .09008, - + .47738, .19823, .55132, .06035, .02442, - + .01463, .04805, .08839 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + .60908, .27924, .96023, .06775, .00603, - + -.00003, .04609, .11373, - + .59855, .26938, .91415, .06609, .00941, - + -.00002, .04641, .10919, - + .58805, .26056, .86497, .06438, .01178, - + -.00003, .04629, .10504, - + .57778, .25256, .81640, .06263, .01350, - + .00041, .04587, .10121, - + .56781, .24527, .77057, .06093, .01474, - + .00227, .04529, .09769, - + .55811, .23855, .72742, .05926, .01566, - + .00386, .04460, .09439, - + .54873, .23231, .68749, .05767, .01632, - + .00512, .04385, .09131 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ - + .53973, .22650, .65083, .05614, .01680, - + .00614, .04307, .08844, - + .53110, .22109, .61718, .05468, .01715, - + .00696, .04228, .08577, - + .52281, .21602, .58623, .05327, .01738, - + .00763, .04147, .08327, - + .51477, .21126, .55770, .05194, .01752, - + .00817, .04068, .08092, - + .50708, .20677, .53150, .05067, .01760, - + .00861, .03989, .07871, - + .49972, .20253, .50745, .04947, .01764, - + .00897, .03913, .07663, - + .49263, .19853, .48524, .04831, .01763, - + .00926, .03838, .07468 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ - + .48576, .19473, .46460, .04721, .01757, - + .00950, .03766, .07282, - + .47920, .19114, .44560, .04617, .01750, - + .00969, .03696, .07107, - + .47281, .18771, .42789, .04517, .01741, - + .00984, .03629, .06938, - + .46668, .18444, .41147, .04421, .01730, - + .00996, .03563, .06780, - + .46078, .18130, .39617, .04329, .01718, - + .01005, .03500, .06631 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + .62806, .27354, .83506, .05371, .00488, - + .00000, .03765, .09460, - + .61162, .26146, .77690, .05188, .00745, - + -.00001, .03742, .08975, - + .59618, .25093, .72139, .05010, .00918, - + -.00001, .03689, .08545, - + .58170, .24155, .67013, .04836, .01039, - + .00031, .03620, .08160, - + .56812, .23313, .62381, .04672, .01124, - + .00168, .03544, .07810, - + .55524, .22545, .58173, .04516, .01184, - + .00284, .03461, .07489, - + .54310, .21839, .54384, .04366, .01225, - + .00375, .03379, .07196 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ - + .53164, .21191, .50977, .04226, .01252, - + .00446, .03297, .06928, - + .52081, .20591, .47911, .04093, .01270, - + .00502, .03217, .06678, - + .51046, .20039, .45140, .03972, .01280, - + .00549, .03137, .06448, - + .50069, .19517, .42623, .03854, .01283, - + .00584, .03061, .06233, - + .49137, .19032, .40341, .03744, .01283, - + .00612, .02988, .06033, - + .48253, .18579, .38269, .03641, .01279, - + .00636, .02918, .05846, - + .47413, .18151, .36375, .03541, .01273, - + .00653, .02850, .05673 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ - + .46605, .17745, .34637, .03447, .01264, - + .00667, .02784, .05509, - + .45839, .17364, .33048, .03359, .01255, - + .00679, .02722, .05356, - + .45099, .17003, .31579, .03275, .01244, - + .00685, .02662, .05211, - + .44392, .16661, .30227, .03195, .01232, - + .00691, .02604, .05075, - + .43713, .16336, .28977, .03120, .01218, - + .00695, .02549, .04947 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + .63598, .26313, .72699, .04209, .00391, - + -.00002, .03030, .07733, - + .61397, .24936, .66177, .04030, .00586, - + -.00002, .02978, .07258, - + .59402, .23754, .60356, .03861, .00716, - + -.00003, .02909, .06844, - + .57578, .22717, .55228, .03701, .00802, - + .00023, .02829, .06481, - + .55901, .21796, .50736, .03551, .00860, - + .00124, .02748, .06158, - + .54340, .20963, .46766, .03411, .00899, - + .00210, .02667, .05865, - + .52889, .20207, .43270, .03281, .00924, - + .00276, .02586, .05600 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ - + .51534, .19518, .40182, .03159, .00939, - + .00328, .02510, .05358, - + .50267, .18887, .37448, .03046, .00947, - + .00367, .02434, .05140, - + .49079, .18306, .35008, .02941, .00949, - + .00400, .02363, .04936, - + .47958, .17762, .32821, .02841, .00948, - + .00422, .02295, .04749, - + .46901, .17260, .30863, .02747, .00943, - + .00441, .02229, .04578, - + .45905, .16792, .29102, .02660, .00936, - + .00457, .02167, .04420, - + .44963, .16353, .27507, .02578, .00927, - + .00467, .02110, .04272 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ - + .44061, .15941, .26058, .02502, .00917, - + .00475, .02053, .04133, - + .43210, .15556, .24741, .02431, .00907, - + .00482, .02000, .04004, - + .42397, .15190, .23533, .02362, .00896, - + .00487, .01950, .03882, - + .41624, .14846, .22428, .02298, .00885, - + .00489, .01902, .03768, - + .40885, .14520, .21412, .02237, .00873, - + .00491, .01856, .03661 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + .63409, .24925, .63191, .03256, .00311, - + -.00002, .02402, .06212, - + .60709, .23428, .56337, .03091, .00460, - + -.00001, .02340, .05775, - + .58315, .22160, .50509, .02939, .00556, - + -.00002, .02266, .05400, - + .56166, .21061, .45550, .02800, .00618, - + .00017, .02189, .05072, - + .54222, .20092, .41323, .02670, .00657, - + .00094, .02111, .04788, - + .52434, .19226, .37672, .02550, .00682, - + .00159, .02036, .04532, - + .50791, .18445, .34510, .02439, .00697, - + .00206, .01964, .04301 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ - + .49272, .17742, .31765, .02337, .00706, - + .00243, .01895, .04092, - + .47862, .17098, .29361, .02244, .00707, - + .00272, .01830, .03905, - + .46553, .16507, .27249, .02155, .00705, - + .00294, .01767, .03737, - + .45323, .15963, .25374, .02076, .00700, - + .00310, .01708, .03579, - + .44174, .15459, .23712, .02000, .00694, - + .00322, .01654, .03435, - + .43097, .14992, .22231, .01930, .00687, - + .00330, .01602, .03302, - + .42082, .14558, .20899, .01865, .00678, - + .00337, .01553, .03180 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ - + .41121, .14151, .19699, .01804, .00669, - + .00342, .01506, .03067, - + .40217, .13771, .18619, .01747, .00659, - + .00346, .01462, .02961, - + .39355, .13413, .17636, .01692, .00648, - + .00347, .01421, .02863, - + .38539, .13076, .16740, .01642, .00638, - + .00348, .01382, .02770, - + .37763, .12757, .15920, .01594, .00628, - + .00348, .01344, .02684 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + .62362, .23292, .54730, .02478, .00245, - + .00004, .01879, .04909, - + .59222, .21729, .47841, .02341, .00358, - + .00003, .01813, .04519, - + .56490, .20416, .42198, .02214, .00427, - + .00004, .01741, .04194, - + .54075, .19291, .37533, .02097, .00472, - + .00016, .01670, .03910, - + .51913, .18308, .33641, .01992, .00498, - + .00073, .01601, .03664, - + .49951, .17434, .30342, .01891, .00516, - + .00119, .01536, .03447, - + .48160, .16654, .27534, .01801, .00522, - + .00153, .01472, .03257 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ - + .46526, .15947, .25126, .01716, .00525, - + .00179, .01413, .03087, - + .45016, .15310, .23048, .01642, .00523, - + .00198, .01357, .02932, - + .43620, .14731, .21241, .01572, .00519, - + .00212, .01307, .02789, - + .42320, .14196, .19653, .01509, .00514, - + .00223, .01257, .02662, - + .41112, .13704, .18256, .01449, .00507, - + .00231, .01212, .02546, - + .39986, .13250, .17021, .01393, .00500, - + .00238, .01171, .02440, - + .38931, .12828, .15923, .01342, .00492, - + .00242, .01130, .02342 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ - + .37935, .12436, .14938, .01294, .00484, - + .00244, .01093, .02250, - + .37002, .12071, .14055, .01250, .00476, - + .00245, .01058, .02164, - + .36119, .11727, .13258, .01207, .00467, - + .00246, .01026, .02086, - + .35285, .11406, .12537, .01167, .00458, - + .00247, .00995, .02013, - + .34494, .11103, .11883, .01130, .00450, - + .00247, .00966, .01945 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + .60548, .21539, .47197, .01886, .00177, - + -.00013, .01431, .03809, - + .57056, .19940, .40472, .01768, .00266, - + -.00013, .01373, .03478, - + .54060, .18611, .35136, .01660, .00318, - + -.00013, .01312, .03203, - + .51443, .17483, .30834, .01563, .00351, - + -.00001, .01251, .02968, - + .49129, .16502, .27317, .01472, .00369, - + .00043, .01195, .02767, - + .47039, .15644, .24387, .01395, .00380, - + .00080, .01139, .02587, - + .45154, .14874, .21931, .01319, .00383, - + .00106, .01088, .02434 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ - + .43437, .14189, .19848, .01253, .00384, - + .00124, .01039, .02295, - + .41864, .13573, .18071, .01195, .00383, - + .00138, .00994, .02169, - + .40420, .13012, .16542, .01141, .00379, - + .00150, .00953, .02057, - + .39086, .12497, .15211, .01089, .00373, - + .00158, .00915, .01955, - + .37852, .12026, .14051, .01041, .00367, - + .00163, .00879, .01863, - + .36705, .11594, .13033, .00998, .00361, - + .00167, .00846, .01779, - + .35633, .11194, .12132, .00959, .00354, - + .00170, .00814, .01702 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ - + .34627, .10822, .11332, .00923, .00348, - + .00171, .00785, .01629, - + .33688, .10478, .10617, .00890, .00341, - + .00171, .00758, .01562, - + .32800, .10157, .09977, .00858, .00334, - + .00172, .00732, .01500, - + .31967, .09856, .09400, .00828, .00326, - + .00172, .00708, .01444, - + .31181, .09573, .08879, .00798, .00318, - + .00171, .00685, .01393 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + .58125, .19655, .40419, .01389, .00138, - + -.00003, .01089, .02909, - + .54349, .18067, .34025, .01297, .00206, - + -.00004, .01036, .02635, - + .51155, .16760, .29093, .01213, .00244, - + -.00003, .00983, .02408, - + .48395, .15657, .25202, .01136, .00266, - + .00005, .00932, .02219, - + .45970, .14709, .22075, .01069, .00278, - + .00036, .00884, .02054, - + .43808, .13875, .19510, .01005, .00284, - + .00063, .00839, .01914, - + .41868, .13139, .17390, .00948, .00286, - + .00081, .00797, .01789 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ - + .40110, .12485, .15616, .00898, .00285, - + .00094, .00759, .01680, - + .38514, .11898, .14117, .00852, .00282, - + .00104, .00723, .01582, - + .37055, .11366, .12836, .00811, .00278, - + .00111, .00690, .01495, - + .35710, .10883, .11733, .00773, .00272, - + .00115, .00660, .01416, - + .34474, .10443, .10779, .00737, .00267, - + .00119, .00632, .01343, - + .33333, .10040, .09948, .00704, .00262, - + .00122, .00607, .01277, - + .32271, .09666, .09219, .00675, .00256, - + .00123, .00583, .01218 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ - + .31273, .09322, .08574, .00648, .00250, - + .00123, .00560, .01164, - + .30345, .09004, .08002, .00624, .00244, - + .00123, .00538, .01114, - + .29476, .08706, .07491, .00599, .00238, - + .00122, .00519, .01068, - + .28662, .08428, .07033, .00576, .00232, - + .00122, .00501, .01025, - + .27894, .08169, .06620, .00555, .00227, - + .00121, .00484, .00986 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + .55172, .17761, .34379, .01016, .00104, - + -.00004, .00808, .02180, - + .51202, .16209, .28425, .00944, .00154, - + -.00003, .00766, .01961, - + .47883, .14942, .23945, .00878, .00182, - + -.00004, .00723, .01782, - + .45041, .13880, .20486, .00819, .00198, - + .00003, .00682, .01633, - + .42567, .12975, .17745, .00764, .00207, - + .00027, .00644, .01505, - + .40371, .12187, .15534, .00718, .00208, - + .00046, .00608, .01395, - + .38413, .11495, .13728, .00677, .00209, - + .00059, .00576, .01296 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ - + .36654, .10881, .12232, .00638, .00207, - + .00069, .00545, .01212, - + .35065, .10332, .10980, .00603, .00204, - + .00075, .00518, .01139, - + .33620, .09838, .09921, .00573, .00200, - + .00079, .00492, .01071, - + .32297, .09390, .09018, .00543, .00196, - + .00083, .00469, .01011, - + .31082, .08983, .08241, .00517, .00192, - + .00085, .00448, .00956, - + .29964, .08612, .07568, .00493, .00187, - + .00086, .00429, .00907, - + .28928, .08270, .06982, .00470, .00183, - + .00086, .00410, .00862 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ - + .27964, .07955, .06466, .00450, .00178, - + .00087, .00393, .00820, - + .27069, .07665, .06011, .00432, .00174, - + .00087, .00378, .00783, - + .26229, .07394, .05608, .00414, .00168, - + .00086, .00363, .00750, - + .25444, .07143, .05249, .00398, .00163, - + .00085, .00349, .00718, - + .24707, .06909, .04926, .00384, .00159, - + .00084, .00336, .00687 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + .51809, .15875, .29000, .00727, .00080, - + .00001, .00593, .01606, - + .47729, .14387, .23565, .00671, .00115, - + .00000, .00559, .01436, - + .44347, .13181, .19564, .00623, .00137, - + .00000, .00527, .01294, - + .41477, .12182, .16531, .00581, .00148, - + .00005, .00493, .01179, - + .38998, .11332, .14169, .00539, .00152, - + .00023, .00464, .01083, - + .36811, .10598, .12288, .00507, .00154, - + .00036, .00436, .00998, - + .34880, .09954, .10768, .00474, .00153, - + .00045, .00411, .00925 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ - + .33154, .09386, .09522, .00446, .00151, - + .00051, .00389, .00861, - + .31601, .08881, .08488, .00420, .00148, - + .00055, .00367, .00805, - + .30196, .08429, .07623, .00396, .00145, - + .00058, .00348, .00755, - + .28914, .08021, .06892, .00375, .00141, - + .00060, .00330, .00709, - + .27741, .07652, .06265, .00357, .00137, - + .00061, .00314, .00668, - + .26666, .07315, .05726, .00341, .00133, - + .00062, .00300, .00631, - + .25674, .07007, .05259, .00324, .00130, - + .00062, .00287, .00599 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ - + .24754, .06723, .04853, .00309, .00126, - + .00062, .00274, .00570, - + .23903, .06462, .04496, .00295, .00122, - + .00062, .00262, .00543, - + .23106, .06220, .04180, .00284, .00118, - + .00062, .00251, .00517, - + .22365, .05995, .03899, .00273, .00115, - + .00061, .00241, .00494, - + .21671, .05785, .03649, .00261, .00111, - + .00060, .00233, .00473 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + .48137, .14038, .24241, .00504, .00061, - + .00005, .00431, .01161, - + .44018, .12637, .19367, .00469, .00088, - + .00005, .00404, .01029, - + .40637, .11510, .15851, .00433, .00102, - + .00004, .00378, .00926, - + .37798, .10580, .13233, .00402, .00109, - + .00007, .00353, .00837, - + .35358, .09793, .11223, .00373, .00111, - + .00020, .00330, .00766, - + .33229, .09118, .09642, .00348, .00112, - + .00027, .00309, .00701, - + .31352, .08529, .08379, .00324, .00111, - + .00034, .00290, .00648 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ - + .29680, .08014, .07355, .00305, .00109, - + .00038, .00273, .00600, - + .28188, .07558, .06515, .00288, .00107, - + .00041, .00257, .00558, - + .26844, .07149, .05816, .00271, .00104, - + .00043, .00243, .00522, - + .25619, .06781, .05229, .00256, .00100, - + .00044, .00230, .00491, - + .24507, .06450, .04730, .00241, .00097, - + .00045, .00219, .00461, - + .23491, .06150, .04303, .00228, .00094, - + .00045, .00208, .00434, - + .22555, .05875, .03935, .00218, .00092, - + .00044, .00198, .00410 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ - + .21688, .05623, .03617, .00209, .00089, - + .00044, .00189, .00389, - + .20890, .05393, .03339, .00200, .00086, - + .00044, .00181, .00370, - + .20149, .05178, .03094, .00190, .00084, - + .00044, .00173, .00352, - + .19460, .04980, .02877, .00182, .00081, - + .00043, .00165, .00336, - + .18814, .04797, .02685, .00175, .00078, - + .00042, .00159, .00321 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + .44247, .12303, .20083, .00355, .00042, - + .00002, .00301, .00824, - + .40173, .10995, .15777, .00325, .00062, - + .00000, .00284, .00726, - + .36857, .09956, .12734, .00301, .00072, - + .00001, .00263, .00649, - + .34088, .09103, .10505, .00278, .00077, - + .00003, .00245, .00584, - + .31733, .08385, .08816, .00256, .00080, - + .00013, .00229, .00531, - + .29682, .07772, .07506, .00238, .00080, - + .00019, .00214, .00486, - + .27887, .07242, .06472, .00223, .00079, - + .00023, .00200, .00446 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ - + .26299, .06779, .05642, .00211, .00077, - + .00027, .00188, .00411, - + .24887, .06372, .04964, .00197, .00075, - + .00029, .00177, .00380, - + .23618, .06007, .04406, .00184, .00073, - + .00030, .00166, .00355, - + .22471, .05682, .03939, .00173, .00070, - + .00030, .00157, .00332, - + .21431, .05389, .03547, .00164, .00067, - + .00030, .00148, .00312, - + .20484, .05123, .03213, .00155, .00064, - + .00030, .00140, .00294, - + .19617, .04882, .02927, .00147, .00062, - + .00030, .00133, .00277 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ - + .18814, .04661, .02680, .00141, .00061, - + .00031, .00127, .00262, - + .18076, .04460, .02466, .00135, .00059, - + .00031, .00121, .00248, - + .17394, .04275, .02278, .00128, .00057, - + .00030, .00116, .00235, - + .16763, .04103, .02112, .00122, .00055, - + .00029, .00110, .00223, - + .16174, .03942, .01965, .00117, .00053, - + .00028, .00105, .00213 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + .40243, .10658, .16457, .00239, .00031, - + .00003, .00209, .00573, - + .36275, .09461, .12720, .00220, .00045, - + .00003, .00195, .00502, - + .33075, .08517, .10131, .00204, .00050, - + .00001, .00181, .00448, - + .30419, .07748, .08261, .00191, .00054, - + .00003, .00168, .00400, - + .28172, .07107, .06864, .00177, .00055, - + .00010, .00156, .00362, - + .26236, .06559, .05792, .00163, .00055, - + .00014, .00145, .00330, - + .24543, .06088, .04954, .00154, .00053, - + .00015, .00134, .00301 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ - + .23061, .05677, .04289, .00142, .00052, - + .00017, .00126, .00278, - + .21742, .05316, .03750, .00133, .00051, - + .00018, .00118, .00257, - + .20567, .04996, .03310, .00124, .00049, - + .00019, .00110, .00239, - + .19507, .04713, .02944, .00117, .00047, - + .00020, .00103, .00222, - + .18547, .04458, .02638, .00111, .00045, - + .00020, .00098, .00208, - + .17676, .04228, .02380, .00106, .00044, - + .00020, .00093, .00195, - + .16883, .04018, .02160, .00099, .00041, - + .00019, .00087, .00184 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ - + .16155, .03826, .01971, .00094, .00040, - + .00019, .00083, .00172, - + .15487, .03652, .01807, .00090, .00039, - + .00019, .00079, .00162, - + .14867, .03492, .01664, .00085, .00037, - + .00019, .00075, .00154, - + .14293, .03345, .01538, .00082, .00036, - + .00018, .00072, .00147, - + .13760, .03208, .01428, .00079, .00034, - + .00018, .00068, .00139 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + .36198, .09127, .13326, .00154, .00023, - + .00005, .00145, .00389, - + .32389, .08048, .10131, .00143, .00033, - + .00004, .00134, .00340, - + .29344, .07201, .07958, .00132, .00037, - + .00003, .00124, .00299, - + .26844, .06516, .06412, .00121, .00040, - + .00005, .00114, .00269, - + .24737, .05946, .05274, .00113, .00039, - + .00008, .00105, .00243, - + .22926, .05465, .04412, .00105, .00040, - + .00011, .00099, .00217, - + .21358, .05051, .03743, .00098, .00038, - + .00012, .00091, .00199 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ - + .19990, .04692, .03217, .00090, .00037, - + .00014, .00085, .00183, - + .18779, .04380, .02796, .00083, .00035, - + .00014, .00080, .00169, - + .17700, .04103, .02451, .00080, .00034, - + .00015, .00075, .00156, - + .16735, .03856, .02170, .00074, .00033, - + .00015, .00070, .00145, - + .15864, .03637, .01936, .00070, .00032, - + .00015, .00066, .00135, - + .15077, .03440, .01739, .00066, .00031, - + .00015, .00062, .00126, - + .14361, .03260, .01572, .00062, .00029, - + .00015, .00058, .00119 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ - + .13704, .03097, .01429, .00059, .00028, - + .00015, .00055, .00113, - + .13103, .02949, .01306, .00056, .00028, - + .00014, .00053, .00107, - + .12549, .02813, .01199, .00053, .00026, - + .00014, .00050, .00100, - + .12039, .02689, .01106, .00051, .00025, - + .00013, .00048, .00095, - + .11566, .02574, .01023, .00049, .00024, - + .00013, .00045, .00090 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + .32189, .07733, .10660, .00100, .00017, - + .00003, .00097, .00258, - + .28596, .06767, .07967, .00090, .00024, - + .00003, .00089, .00225, - + .25741, .06016, .06170, .00083, .00027, - + .00003, .00083, .00199, - + .23410, .05415, .04913, .00078, .00028, - + .00003, .00077, .00176, - + .21461, .04916, .04000, .00072, .00029, - + .00006, .00071, .00158, - + .19801, .04497, .03316, .00066, .00029, - + .00009, .00067, .00143, - + .18368, .04140, .02792, .00062, .00028, - + .00010, .00062, .00129 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ - + .17119, .03832, .02382, .00058, .00027, - + .00011, .00057, .00119, - + .16025, .03562, .02057, .00052, .00026, - + .00011, .00054, .00108, - + .15054, .03326, .01795, .00047, .00025, - + .00011, .00050, .00100, - + .14184, .03117, .01581, .00044, .00024, - + .00011, .00047, .00093, - + .13406, .02930, .01404, .00041, .00023, - + .00012, .00044, .00086, - + .12705, .02763, .01256, .00038, .00022, - + .00012, .00042, .00081, - + .12066, .02613, .01132, .00037, .00020, - + .00011, .00039, .00076 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ - + .11484, .02476, .01025, .00036, .00020, - + .00011, .00037, .00071, - + .10954, .02352, .00933, .00034, .00019, - + .00010, .00035, .00067, - + .10467, .02238, .00854, .00031, .00018, - + .00010, .00033, .00063, - + .10018, .02134, .00786, .00029, .00018, - + .00010, .00032, .00059, - + .09603, .02038, .00726, .00028, .00017, - + .00009, .00030, .00056 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + .28300, .06481, .08425, .00071, .00008, - + -.00002, .00059, .00167, - + .24956, .05635, .06202, .00064, .00012, - + -.00001, .00055, .00145, - + .22326, .04981, .04740, .00059, .00015, - + -.00001, .00051, .00127, - + .20194, .04459, .03734, .00053, .00016, - + -.00002, .00047, .00113, - + .18424, .04031, .03011, .00049, .00016, - + .00001, .00043, .00101, - + .16919, .03671, .02475, .00045, .00016, - + .00003, .00041, .00091, - + .15628, .03365, .02069, .00043, .00016, - + .00004, .00037, .00083 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ - + .14512, .03104, .01754, .00039, .00016, - + .00005, .00034, .00075, - + .13533, .02877, .01505, .00037, .00016, - + .00006, .00032, .00069, - + .12670, .02677, .01307, .00035, .00015, - + .00006, .00030, .00063, - + .11902, .02501, .01146, .00032, .00013, - + .00006, .00028, .00059, - + .11216, .02345, .01013, .00029, .00013, - + .00005, .00026, .00055, - + .10599, .02205, .00903, .00027, .00012, - + .00005, .00024, .00052, - + .10040, .02079, .00810, .00027, .00012, - + .00005, .00023, .00048 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ - + .09531, .01966, .00732, .00026, .00011, - + .00005, .00021, .00044, - + .09068, .01863, .00665, .00025, .00011, - + .00005, .00021, .00041, - + .08644, .01769, .00607, .00024, .00010, - + .00005, .00019, .00039, - + .08254, .01684, .00557, .00023, .00009, - + .00005, .00018, .00037, - + .07895, .01605, .00513, .00022, .00009, - + .00005, .00017, .00034 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + .24547, .05341, .06540, .00038, .00008, - + .00002, .00041, .00104, - + .21484, .04613, .04738, .00037, .00011, - + .00003, .00038, .00091, - + .19096, .04052, .03573, .00034, .00011, - + .00002, .00034, .00081, - + .17173, .03609, .02782, .00031, .00012, - + .00003, .00031, .00071, - + .15588, .03246, .02222, .00028, .00012, - + .00002, .00028, .00062, - + .14246, .02944, .01811, .00026, .00012, - + .00003, .00026, .00056, - + .13105, .02688, .01501, .00025, .00011, - + .00005, .00024, .00051 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ - + .12120, .02469, .01264, .00022, .00011, - + .00004, .00023, .00046, - + .11260, .02281, .01079, .00020, .00010, - + .00004, .00020, .00042, - + .10504, .02115, .00932, .00020, .00010, - + .00005, .00019, .00039, - + .09835, .01970, .00812, .00019, .00009, - + .00004, .00018, .00035, - + .09238, .01841, .00715, .00018, .00009, - + .00004, .00016, .00033, - + .08704, .01726, .00635, .00016, .00009, - + .00004, .00015, .00031, - + .08224, .01623, .00568, .00015, .00008, - + .00004, .00015, .00028 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ - + .07786, .01531, .00512, .00015, .00007, - + .00004, .00014, .00027, - + .07389, .01448, .00463, .00014, .00007, - + .00004, .00013, .00025, - + .07028, .01372, .00422, .00013, .00007, - + .00003, .00012, .00024, - + .06696, .01302, .00386, .00013, .00006, - + .00003, .00011, .00022, - + .06389, .01238, .00355, .00013, .00006, - + .00003, .00010, .00020 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + .21004, .04347, .04998, .00021, .00006, - + .00003, .00026, .00064, - + .18248, .03727, .03561, .00020, .00009, - + .00003, .00024, .00054, - + .16110, .03253, .02648, .00019, .00008, - + .00003, .00022, .00049, - + .14407, .02879, .02039, .00016, .00009, - + .00002, .00020, .00042, - + .13004, .02577, .01611, .00017, .00009, - + .00003, .00018, .00037, - + .11829, .02325, .01301, .00016, .00008, - + .00003, .00017, .00034, - + .10833, .02115, .01071, .00013, .00008, - + .00004, .00015, .00031 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ - + .09977, .01935, .00896, .00013, .00008, - + .00004, .00014, .00028, - + .09231, .01780, .00760, .00013, .00007, - + .00004, .00013, .00026, - + .08581, .01646, .00652, .00012, .00006, - + .00003, .00012, .00024, - + .08008, .01527, .00566, .00011, .00006, - + .00004, .00011, .00022, - + .07498, .01423, .00497, .00010, .00006, - + .00004, .00010, .00020, - + .07044, .01331, .00439, .00010, .00006, - + .00004, .00010, .00018, - + .06637, .01248, .00392, .00009, .00005, - + .00003, .00009, .00016 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ - + .06266, .01174, .00351, .00008, .00005, - + .00003, .00008, .00016, - + .05932, .01106, .00317, .00007, .00005, - + .00003, .00008, .00016, - + .05626, .01046, .00288, .00008, .00005, - + .00003, .00008, .00014, - + .05348, .00991, .00263, .00007, .00005, - + .00003, .00007, .00013, - + .05093, .00940, .00241, .00007, .00004, - + .00003, .00007, .00012 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + .17740, .03492, .03761, .00014, .00002, - + .00000, .00015, .00038, - + .15291, .02970, .02636, .00012, .00004, - + .00000, .00013, .00034, - + .13408, .02578, .01935, .00014, .00004, - + -.00001, .00011, .00028, - + .11920, .02269, .01472, .00012, .00004, - + .00000, .00010, .00025, - + .10703, .02021, .01152, .00012, .00005, - + .00000, .00010, .00023, - + .09690, .01815, .00922, .00010, .00004, - + .00001, .00009, .00021, - + .08836, .01643, .00754, .00008, .00004, - + .00002, .00009, .00019 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ - + .08103, .01498, .00626, .00008, .00004, - + .00002, .00008, .00016, - + .07470, .01372, .00528, .00008, .00004, - + .00001, .00007, .00015, - + .06920, .01264, .00451, .00007, .00004, - + .00001, .00007, .00014, - + .06434, .01170, .00390, .00007, .00003, - + .00002, .00006, .00013, - + .06005, .01087, .00341, .00007, .00003, - + .00001, .00005, .00012, - + .05625, .01013, .00300, .00006, .00003, - + .00001, .00005, .00010, - + .05283, .00948, .00267, .00006, .00003, - + .00001, .00005, .00009 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ - + .04976, .00889, .00239, .00006, .00002, - + .00001, .00005, .00009, - + .04698, .00836, .00215, .00005, .00002, - + .00001, .00004, .00008, - + .04446, .00788, .00195, .00005, .00002, - + .00001, .00004, .00008, - + .04215, .00745, .00177, .00005, .00002, - + .00001, .00004, .00007, - + .04005, .00705, .00162, .00004, .00002, - + .00001, .00003, .00007 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + .14715, .02747, .02762, .00005, .00004, - + .00004, .00010, .00021, - + .12585, .02319, .01904, .00005, .00004, - + .00002, .00009, .00019, - + .10964, .01999, .01378, .00005, .00003, - + .00002, .00008, .00017, - + .09684, .01749, .01036, .00005, .00003, - + .00002, .00007, .00014, - + .08648, .01549, .00803, .00005, .00004, - + .00002, .00007, .00012, - + .07788, .01386, .00637, .00005, .00003, - + .00001, .00005, .00010, - + .07067, .01248, .00516, .00005, .00003, - + .00002, .00005, .00010 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ - + .06453, .01133, .00426, .00005, .00003, - + .00002, .00005, .00009, - + .05926, .01034, .00357, .00005, .00003, - + .00002, .00004, .00008, - + .05467, .00949, .00303, .00004, .00002, - + .00002, .00004, .00007, - + .05067, .00875, .00261, .00004, .00002, - + .00001, .00004, .00006, - + .04714, .00810, .00227, .00003, .00002, - + .00001, .00004, .00006, - + .04401, .00753, .00199, .00003, .00002, - + .00001, .00003, .00005, - + .04121, .00702, .00177, .00002, .00002, - + .00001, .00003, .00006 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ - + .03869, .00657, .00157, .00003, .00002, - + .00001, .00003, .00005, - + .03643, .00616, .00141, .00003, .00002, - + .00001, .00003, .00004, - + .03439, .00580, .00128, .00002, .00002, - + .00001, .00003, .00004, - + .03253, .00546, .00116, .00002, .00002, - + .00001, .00002, .00004, - + .03083, .00516, .00106, .00002, .00002, - + .00001, .00002, .00004 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + .09618, .01613, .01396, .00001, .00001, - + .00000, .00003, .00007, - + .08088, .01340, .00929, .00001, .00001, - + .00000, .00003, .00006, - + .06943, .01138, .00653, .00002, .00001, - + .00000, .00002, .00005, - + .06056, .00984, .00479, .00002, .00001, - + .00000, .00002, .00004, - + .05345, .00861, .00364, .00001, .00001, - + .00000, .00002, .00003, - + .04763, .00762, .00283, .00001, .00001, - + .00000, .00002, .00003, - + .04280, .00680, .00226, .00002, .00001, - + .00000, .00002, .00002 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ - + .03873, .00612, .00185, .00002, .00001, - + .00000, .00001, .00002, - + .03526, .00554, .00153, .00001, .00001, - + .00001, .00001, .00002, - + .03227, .00504, .00129, .00002, .00001, - + .00000, .00001, .00002, - + .02970, .00462, .00110, .00001, .00001, - + .00000, .00001, .00002, - + .02743, .00424, .00095, .00000, .00001, - + .00000, .00001, .00002, - + .02543, .00392, .00082, .00001, .00001, - + .00000, .00001, .00002, - + .02367, .00363, .00073, .00001, .00001, - + .00000, .00001, .00001 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ - + .02209, .00338, .00064, .00001, .00001, - + .00000, .00001, .00001, - + .02069, .00315, .00058, .00001, .00001, - + .00000, .00001, .00001, - + .01941, .00295, .00052, .00001, .00001, - + .00000, .00001, .00001, - + .01826, .00277, .00047, .00001, .00001, - + .00000, .00001, .00001, - + .01722, .00260, .00043, .00001, .00001, - + .00000, .00001, .00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + .05747, .00859, .00626, .00001, .00000, - + .00000, .00000, .00001, - + .04747, .00701, .00402, .00001, .00000, - + .00000, .00000, .00001, - + .04012, .00586, .00274, .00001, .00000, - + .00000, .00001, .00001, - + .03451, .00500, .00196, .00000, .00000, - + .00000, .00000, .00001, - + .03008, .00432, .00146, .00000, .00000, - + .00000, .00000, .00001, - + .02650, .00378, .00112, .00001, .00000, - + .00000, .00001, .00000, - + .02356, .00334, .00088, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ - + .02111, .00298, .00071, .00000, .00000, - + .00000, .00000, .00001, - + .01905, .00267, .00058, .00000, .00000, - + .00000, .00000, .00000, - + .01729, .00241, .00048, .00000, .00000, - + .00000, .00000, .00000, - + .01577, .00219, .00041, .00000, .00000, - + .00000, .00000, .00000, - + .01446, .00200, .00035, .00000, .00000, - + .00000, .00000, .00000, - + .01331, .00183, .00030, .00000, .00000, - + .00000, .00000, .00000, - + .01230, .00169, .00027, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ - + .01141, .00156, .00023, .00000, .00000, - + .00000, .00000, .00000, - + .01061, .00145, .00021, .00000, .00000, - + .00000, .00000, .00000, - + .00990, .00135, .00019, .00000, .00000, - + .00000, .00000, .00000, - + .00926, .00125, .00017, .00000, .00000, - + .00000, .00000, .00000, - + .00869, .00117, .00015, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + .03053, .00401, .00239, .00001, .00000, - + .00000, .00000, .00000, - + .02471, .00321, .00148, .00000, .00000, - + .00000, .00000, .00000, - + .02052, .00264, .00098, .00000, .00000, - + .00000, .00000, .00000, - + .01737, .00222, .00068, .00000, .00000, - + .00000, .00000, .00000, - + .01494, .00189, .00050, .00000, .00000, - + .00000, .00000, .00000, - + .01299, .00164, .00037, .00000, .00000, - + .00000, .00000, .00000, - + .01141, .00143, .00029, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ - + .01011, .00126, .00023, .00000, .00000, - + .00000, .00000, .00000, - + .00903, .00112, .00019, .00000, .00000, - + .00000, .00000, .00000, - + .00812, .00100, .00015, .00000, .00000, - + .00000, .00000, .00000, - + .00734, .00090, .00013, .00000, .00000, - + .00000, .00000, .00000, - + .00667, .00082, .00011, .00000, .00000, - + .00000, .00000, .00000, - + .00609, .00074, .00009, .00000, .00000, - + .00000, .00000, .00000, - + .00559, .00068, .00008, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ - + .00514, .00062, .00007, .00000, .00000, - + .00000, .00000, .00000, - + .00475, .00057, .00006, .00000, .00000, - + .00000, .00000, .00000, - + .00440, .00053, .00006, .00000, .00000, - + .00000, .00000, .00000, - + .00409, .00049, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00382, .00046, .00005, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + .01364, .00154, .00072, .00000, .00000, - + .00000, .00000, .00000, - + .01079, .00121, .00043, .00000, .00000, - + .00000, .00000, .00000, - + .00878, .00098, .00027, .00000, .00000, - + .00000, .00000, .00000, - + .00731, .00081, .00019, .00000, .00000, - + .00000, .00000, .00000, - + .00618, .00068, .00013, .00000, .00000, - + .00000, .00000, .00000, - + .00529, .00058, .00010, .00000, .00000, - + .00000, .00000, .00000, - + .00459, .00050, .00007, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ - + .00401, .00043, .00006, .00000, .00000, - + .00000, .00000, .00000, - + .00354, .00038, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00315, .00034, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00282, .00030, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00254, .00027, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00229, .00024, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00209, .00022, .00002, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ - + .00190, .00020, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00174, .00018, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00160, .00017, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00148, .00015, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00137, .00014, .00001, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + .00101, .00008, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00075, .00006, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00057, .00004, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00045, .00003, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00037, .00003, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00030, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00025, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ - + .00021, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00018, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00015, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00013, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00012, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00010, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00009, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ - + .00008, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00007, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00006, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00006, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00005, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,5,9,0,0,9,9/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - xsave=x -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(65,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7) GO TO 31 - DO 30 K=1,19 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-DINT(RM) - M=1+IDINT(RM) - DO 60 I=1,8 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) - - x=xsave - - RETURN - END diff --git a/PDF/spdf/sfms120.F b/PDF/spdf/sfms120.F deleted file mode 100644 index e11bd7d9de7..00000000000 --- a/PDF/spdf/sfms120.F +++ /dev/null @@ -1,1970 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE SFMS120(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) -C -C THIS IS THE alphas=0.120 FIT -- May 1995 -- standard Q^2 range -C -#include "pdf/impdp.inc" -C - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,20),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + .00273, .00548, 13.49467, 1.08774, .16677, - + .00000, .60749, 1.09192, - + .00321, .00572, 25.89590, 1.49672, .58806, - + .00000, 1.02362, 1.50160, - + .00365, .00594, 41.09657, 1.98438, 1.08613, - + .00000, 1.51736, 1.98989, - + .00405, .00615, 58.73158, 2.54056, 1.65134, - + .28907, 2.07884, 2.54662, - + .00443, .00635, 78.44312, 3.15943, 2.27822, - + .96054, 2.70243, 3.16599, - + .00480, .00654, 100.03658, 3.83656, 2.96260, - + 1.66242, 3.38385, 3.84360, - + .00514, .00672, 123.04382, 4.56165, 3.69428, - + 2.41066, 4.11284, 4.56913 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ - + .00547, .00690, 147.32309, 5.33045, 4.46915, - + 3.20079, 4.88525, 5.33834, - + .00579, .00707, 172.69366, 6.13834, 5.28265, - + 4.02826, 5.69649, 6.14663, - + .00610, .00723, 198.98749, 6.98102, 6.13055, - + 4.88908, 6.54229, 6.98968, - + .00639, .00739, 225.89227, 7.85099, 7.00539, - + 5.77593, 7.41517, 7.86000, - + .00668, .00754, 253.36957, 8.74664, 7.90563, - + 6.68737, 8.31357, 8.75598, - + .00696, .00769, 281.39920, 9.66700, 8.83030, - + 7.62254, 9.23652, 9.67666, - + .00723, .00784, 309.95297, 10.61105, 9.77843, - + 8.58053, 10.18302, 10.62102 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ - + .00749, .00798, 338.58713, 11.56781, 10.73906, - + 9.55048, 11.14211, 11.57807, - + .00775, .00812, 367.49585, 12.54131, 11.71625, - + 10.53649, 12.11783, 12.55186, - + .00800, .00825, 396.82361, 13.53482, 12.71327, - + 11.54186, 13.11345, 13.54565, - + .00824, .00839, 425.82990, 14.52968, 13.71148, - + 12.54803, 14.11033, 14.54076, - + .00848, .00852, 455.29865, 15.54486, 14.72987, - + 13.57400, 15.12744, 15.55620 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + .00440, .00701, 11.98568, .97989, .14426, - + .00000, .54292, .98369, - + .00507, .00735, 22.07285, 1.31803, .49385, - + .00000, .88751, 1.32231, - + .00568, .00767, 34.02595, 1.71097, .89646, - + .00000, 1.28591, 1.71566, - + .00624, .00797, 47.53143, 2.14986, 1.34373, - + .22828, 1.72956, 2.15493, - + .00677, .00825, 62.30047, 2.62970, 1.83102, - + .75237, 2.21363, 2.63512, - + .00727, .00851, 78.18016, 3.14679, 2.35482, - + 1.29126, 2.73455, 3.15253, - + .00775, .00877, 94.82214, 3.69309, 2.90724, - + 1.85790, 3.28435, 3.69913 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ - + .00820, .00901, 112.12962, 4.26543, 3.48519, - + 2.44895, 3.85990, 4.27174, - + .00864, .00924, 129.97926, 4.86039, 4.08533, - + 3.06108, 4.45783, 4.86696, - + .00906, .00947, 148.25876, 5.47486, 4.70462, - + 3.69146, 5.07507, 5.48168, - + .00947, .00968, 166.75540, 6.10346, 5.33772, - + 4.33485, 5.70625, 6.11051, - + .00986, .00989, 185.45454, 6.74518, 5.98368, - + 4.99041, 6.35041, 6.75246, - + .01024, .01010, 204.35214, 7.39950, 6.64198, - + 5.65770, 7.00702, 7.40699, - + .01061, .01029, 223.43745, 8.06582, 7.31206, - + 6.33623, 7.67551, 8.07352 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ - + .01097, .01049, 242.41223, 8.73641, 7.98621, - + 7.01836, 8.34815, 8.74430, - + .01132, .01067, 261.42172, 9.41435, 8.66754, - + 7.70724, 9.02805, 9.42242, - + .01166, .01085, 280.57239, 10.10213, 9.35855, - + 8.40540, 9.71769, 10.11038, - + .01199, .01103, 299.36771, 10.78663, 10.04614, - + 9.09981, 10.40397, 10.79506, - + .01231, .01121, 318.34900, 11.48151, 10.74398, - + 9.80412, 11.10056, 11.49011 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + .00689, .00896, 10.64206, .88214, .12452, - + .00000, .48503, .88572, - + .00783, .00946, 18.80727, 1.16024, .41333, - + .00000, .76901, 1.16415, - + .00868, .00991, 28.16027, 1.47515, .73727, - + .00000, 1.08888, 1.47934, - + .00946, .01033, 38.45005, 1.81962, 1.08956, - + .17948, 1.43766, 1.82405, - + .01020, .01072, 49.45632, 2.18964, 1.46653, - + .58676, 1.81151, 2.19430, - + .01089, .01109, 61.06856, 2.58235, 1.86549, - + .99869, 2.20767, 2.58722, - + .01155, .01144, 73.03525, 2.99166, 2.28050, - + 1.42589, 2.62013, 2.99673 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ - + .01218, .01177, 85.29709, 3.41534, 2.70940, - + 1.86600, 3.04670, 3.42058, - + .01279, .01209, 97.77499, 3.85099, 3.14988, - + 2.31673, 3.48502, 3.85640, - + .01337, .01240, 110.39864, 4.29647, 3.59984, - + 2.77617, 3.93298, 4.30204, - + .01392, .01270, 123.02710, 4.74800, 4.05555, - + 3.24069, 4.38683, 4.75372, - + .01446, .01298, 135.66132, 5.20505, 4.51654, - + 3.70988, 4.84606, 5.21092, - + .01498, .01326, 148.30818, 5.66743, 4.98261, - + 4.18364, 5.31049, 5.67343, - + .01549, .01353, 160.96828, 6.13486, 5.45353, - + 4.66178, 5.77986, 6.14099 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ - + .01597, .01378, 173.44341, 6.60194, 5.92392, - + 5.13898, 6.24877, 6.60820, - + .01645, .01404, 185.84245, 7.07107, 6.39620, - + 5.61770, 6.71965, 7.07745, - + .01691, .01428, 198.24471, 7.54418, 6.87230, - + 6.09991, 7.19442, 7.55068, - + .01736, .01452, 210.31915, 8.01209, 7.34307, - + 6.57649, 7.66392, 8.01869, - + .01780, .01475, 222.43936, 8.48461, 7.81833, - + 7.05728, 8.13797, 8.49133 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + .00887, .01036, 9.92440, .82913, .11412, - + .00000, .45396, .83270, - + .01001, .01097, 17.12054, 1.07647, .37178, - + .00000, .70689, 1.08030, - + .01105, .01152, 25.20106, 1.35231, .65633, - + .00000, .98745, 1.35636, - + .01200, .01203, 33.95230, 1.65038, .96193, - + .15554, 1.28960, 1.65462, - + .01290, .01250, 43.19118, 1.96726, 1.28550, - + .50615, 1.61011, 1.97168, - + .01374, .01295, 52.83006, 2.30056, 1.62482, - + .85733, 1.94668, 2.30515, - + .01454, .01337, 62.66437, 2.64520, 1.97494, - + 1.21858, 2.29431, 2.64994 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ - + .01530, .01377, 72.65254, 2.99942, 2.33419, - + 1.58804, 2.65126, 3.00430, - + .01603, .01416, 82.73607, 3.36131, 2.70072, - + 1.96393, 3.01568, 3.36632, - + .01672, .01453, 92.86338, 3.72921, 3.07293, - + 2.34477, 3.38592, 3.73434, - + .01740, .01488, 102.92542, 4.10006, 3.44781, - + 2.72767, 3.75896, 4.10531, - + .01804, .01522, 112.92944, 4.47357, 3.82510, - + 3.11243, 4.13453, 4.47894, - + .01867, .01555, 122.88632, 4.84968, 4.20476, - + 3.49910, 4.51258, 4.85515, - + .01927, .01587, 132.80104, 5.22826, 4.58671, - + 3.88761, 4.89299, 5.23384 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ - + .01985, .01618, 142.51822, 5.60497, 4.96659, - + 4.27370, 5.27143, 5.61064, - + .02042, .01648, 152.13029, 5.98186, 5.34651, - + 4.65948, 5.64997, 5.98763, - + .02097, .01677, 161.70389, 6.36061, 5.72814, - + 5.04667, 6.03029, 6.36647, - + .02151, .01705, 170.97856, 6.73379, 6.10407, - + 5.42788, 6.40497, 6.73974, - + .02203, .01732, 180.25485, 7.10949, 6.48240, - + 5.81125, 6.78210, 7.11553 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + .01057, .01148, 9.44303, .79322, .10721, - + .00000, .43306, .79684, - + .01189, .01219, 16.01293, 1.02047, .34453, - + .00000, .66572, 1.02432, - + .01308, .01282, 23.28651, 1.27119, .60374, - + .00000, .92100, 1.27523, - + .01418, .01340, 31.07592, 1.53975, .87966, - + .14035, 1.19352, 1.54396, - + .01520, .01395, 39.22272, 1.82317, 1.16960, - + .45521, 1.48045, 1.82753, - + .01617, .01446, 47.65421, 2.11939, 1.47169, - + .76842, 1.77982, 2.12389, - + .01708, .01494, 56.19510, 2.42395, 1.78160, - + 1.08874, 2.08726, 2.42858 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ - + .01795, .01540, 64.81468, 2.73539, 2.09794, - + 1.41464, 2.40134, 2.74014, - + .01878, .01584, 73.46676, 3.05212, 2.41920, - + 1.74465, 2.72051, 3.05699, - + .01958, .01626, 82.11100, 3.37276, 2.74404, - + 2.07758, 3.04342, 3.37774, - + .02035, .01666, 90.65715, 3.69472, 3.06993, - + 2.41096, 3.36749, 3.69980, - + .02108, .01705, 99.11568, 4.01782, 3.39672, - + 2.74474, 3.69258, 4.02300, - + .02179, .01742, 107.49963, 4.34209, 3.72445, - + 3.07902, 4.01872, 4.34736, - + .02248, .01778, 115.81633, 4.66749, 4.05312, - + 3.41384, 4.34588, 4.67285 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ - + .02314, .01813, 123.93544, 4.99029, 4.37902, - + 3.74553, 4.67034, 4.99573, - + .02379, .01847, 131.93890, 5.31236, 4.70404, - + 4.07604, 4.99401, 5.31788, - + .02441, .01879, 139.88594, 5.63519, 5.02968, - + 4.40687, 5.31835, 5.64079, - + .02502, .01911, 147.55693, 5.95242, 5.34958, - + 4.73172, 5.63702, 5.95809, - + .02561, .01942, 155.20944, 6.27109, 5.67082, - + 5.05765, 5.95707, 6.27684 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + .01208, .01244, 9.08447, .76627, .10210, - + .00000, .41745, .76997, - + .01356, .01323, 15.20084, .97887, .32459, - + .00000, .63534, .98277, - + .01489, .01394, 21.89812, 1.21145, .56551, - + .00000, .87238, 1.21553, - + .01611, .01458, 29.00785, 1.45891, .82019, - + .12950, 1.12370, 1.46314, - + .01725, .01519, 36.38956, 1.71857, 1.08625, - + .41893, 1.38679, 1.72294, - + .01833, .01575, 43.98135, 1.98860, 1.36205, - + .70531, 1.65990, 1.99310, - + .01934, .01629, 51.62846, 2.26502, 1.64372, - + .99687, 1.93913, 2.26964 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ - + .02031, .01680, 59.30760, 2.54657, 1.93009, - + 1.29231, 2.22326, 2.55131, - + .02123, .01728, 66.98110, 2.83188, 2.21985, - + 1.59038, 2.51095, 2.83672, - + .02211, .01774, 74.61622, 3.11977, 2.51187, - + 1.89007, 2.80105, 3.12471, - + .02296, .01819, 82.13520, 3.40797, 2.80392, - + 2.18923, 3.09131, 3.41300, - + .02377, .01862, 89.55078, 3.69637, 3.09594, - + 2.48789, 3.38165, 3.70150, - + .02456, .01903, 96.87703, 3.98507, 3.38804, - + 2.78620, 3.67217, 3.99028, - + .02532, .01942, 104.12268, 4.27408, 3.68026, - + 3.08425, 3.96289, 4.27936 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ - + .02605, .01981, 111.17424, 4.56008, 3.96932, - + 3.37881, 4.25053, 4.56545, - + .02676, .02018, 118.10646, 4.84483, 4.25696, - + 3.67166, 4.53682, 4.85028, - + .02745, .02054, 124.97301, 5.12970, 4.54458, - + 3.96420, 4.82316, 5.13521, - + .02812, .02088, 131.58211, 5.40901, 4.82652, - + 4.25083, 5.10388, 5.41459, - + .02877, .02122, 138.16185, 5.68912, 5.10914, - + 4.53791, 5.38533, 5.69477 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + .01817, .01601, 8.04552, .68711, .08751, - + .00000, .37210, .69132, - + .02025, .01711, 12.91360, .85884, .26865, - + .00000, .54882, .86324, - + .02213, .01809, 18.06339, 1.04184, .45960, - + .00000, .73603, 1.04640, - + .02384, .01899, 23.38176, 1.23248, .65711, - + .10034, .93031, 1.23718, - + .02543, .01982, 28.77731, 1.42896, .85970, - + .32204, 1.13002, 1.43380, - + .02692, .02060, 34.21707, 1.63014, 1.06638, - + .53774, 1.33412, 1.63510, - + .02833, .02134, 39.59921, 1.83325, 1.27449, - + .75425, 1.53987, 1.83832 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ - + .02966, .02203, 44.91873, 2.03758, 1.48342, - + .97088, 1.74663, 2.04276, - + .03092, .02269, 50.15850, 2.24233, 1.69241, - + 1.18692, 1.95362, 2.24761, - + .03213, .02332, 55.30388, 2.44682, 1.90083, - + 1.40185, 2.16019, 2.45219, - + .03329, .02392, 60.30795, 2.64956, 2.10724, - + 1.61430, 2.36487, 2.65502, - + .03440, .02450, 65.18708, 2.85065, 2.31179, - + 1.82446, 2.56779, 2.85620, - + .03547, .02505, 69.95734, 3.05030, 2.51469, - + 2.03263, 2.76915, 3.05593, - + .03650, .02558, 74.62974, 3.24865, 2.71610, - + 2.23898, 2.96912, 3.25436 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ - + .03749, .02609, 79.13119, 3.44346, 2.91382, - + 2.44135, 3.16546, 3.44924, - + .03845, .02659, 83.51760, 3.63609, 3.10920, - + 2.64114, 3.35955, 3.64194, - + .03938, .02707, 87.82889, 3.82759, 3.30334, - + 2.83944, 3.55244, 3.83351, - + .04028, .02753, 91.93896, 4.01408, 3.49233, - + 3.03241, 3.74025, 4.02007, - + .04116, .02798, 96.00449, 4.20010, 3.68075, - + 3.22459, 3.92754, 4.20615 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + .02705, .02074, 7.10270, .61377, .07461, - + .00000, .33079, .61894, - + .02999, .02227, 10.92993, .75075, .22067, - + .00000, .47260, .75617, - + .03262, .02364, 14.83882, .89289, .37047, - + .00000, .61881, .89852, - + .03501, .02488, 18.76272, 1.03782, .52204, - + .07697, .76726, 1.04364, - + .03722, .02602, 22.64921, 1.18450, .67461, - + .24511, .91707, 1.19049, - + .03928, .02708, 26.48713, 1.33233, .82776, - + .40589, 1.06772, 1.33848, - + .04122, .02808, 30.21359, 1.47947, .97974, - + .56498, 1.21743, 1.48578 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ - + .04305, .02903, 33.83561, 1.62563, 1.13034, - + .72209, 1.36594, 1.63208, - + .04479, .02992, 37.34951, 1.77041, 1.27923, - + .87692, 1.51290, 1.77699, - + .04644, .03077, 40.75229, 1.91348, 1.42610, - + 1.02928, 1.65798, 1.92018, - + .04801, .03157, 44.01752, 2.05391, 1.57010, - + 1.17837, 1.80030, 2.06073, - + .04951, .03235, 47.16245, 2.19193, 1.71146, - + 1.32447, 1.94009, 2.19886, - + .05096, .03309, 50.20290, 2.32780, 1.85047, - + 1.46792, 2.07763, 2.33484, - + .05235, .03380, 53.15033, 2.46172, 1.98737, - + 1.60897, 2.21312, 2.46886 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ - + .05368, .03448, 55.95864, 2.59221, 2.12067, - + 1.74620, 2.34510, 2.59945, - + .05497, .03514, 58.66910, 2.72031, 2.25145, - + 1.88068, 2.47462, 2.72764, - + .05622, .03577, 61.31099, 2.84685, 2.38054, - + 2.01327, 2.60251, 2.85427, - + .05742, .03639, 63.80264, 2.96917, 2.50530, - + 2.14137, 2.72612, 2.97669, - + .05859, .03698, 66.25052, 3.09052, 2.62897, - + 2.26821, 2.84870, 3.09811 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + .03403, .02428, 6.58580, .57296, .06772, - + .00000, .30811, .57893, - + .03763, .02614, 9.88353, .69200, .19570, - + .00000, .43193, .69828, - + .04082, .02778, 13.18123, .81358, .32484, - + .00000, .55755, .82013, - + .04372, .02927, 16.43507, .93598, .45378, - + .06549, .68345, .94277, - + .04639, .03064, 19.61098, 1.05851, .58213, - + .20759, .80909, 1.06552, - + .04887, .03192, 22.70753, 1.18083, .70970, - + .34207, .93422, 1.18805, - + .05120, .03311, 25.67934, 1.30155, .83520, - + .47399, 1.05749, 1.30895 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ - + .05339, .03423, 28.53801, 1.42054, .95858, - + .60324, 1.17882, 1.42812, - + .05547, .03529, 31.28523, 1.53759, 1.07968, - + .72972, 1.29804, 1.54534, - + .05744, .03630, 33.92243, 1.65251, 1.19837, - + .85335, 1.41497, 1.66041, - + .05931, .03726, 36.43164, 1.76463, 1.31401, - + .97358, 1.52897, 1.77268, - + .06110, .03817, 38.82973, 1.87420, 1.42688, - + 1.09073, 1.64030, 1.88239, - + .06281, .03904, 41.13178, 1.98151, 1.53730, - + 1.20514, 1.74927, 1.98983, - + .06446, .03988, 43.34883, 2.08676, 1.64550, - + 1.31709, 1.85610, 2.09522 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ - + .06604, .04068, 45.44612, 2.18882, 1.75033, - + 1.42546, 1.95964, 2.19740, - + .06756, .04145, 47.45792, 2.28857, 1.85273, - + 1.53119, 2.06080, 2.29726, - + .06903, .04220, 49.40853, 2.38671, 1.95340, - + 1.63502, 2.16029, 2.39552, - + .07044, .04292, 51.23505, 2.48115, 2.05024, - + 1.73487, 2.25601, 2.49007, - + .07182, .04361, 53.02186, 2.57451, 2.14591, - + 1.83339, 2.35061, 2.58354 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + .04003, .02727, 6.23047, .54469, .06308, - + .00000, .29251, .55133, - + .04416, .02939, 9.18263, .65192, .17918, - + .00000, .40451, .65893, - + .04782, .03127, 12.08966, .76020, .29496, - + .00000, .51682, .76753, - + .05113, .03296, 14.92202, .86820, .40946, - + .05818, .62832, .87581, - + .05417, .03452, 17.65683, .97547, .52251, - + .18379, .73870, .98334, - + .05700, .03597, 20.29831, 1.08182, .63407, - + .30178, .84786, 1.08993, - + .05965, .03732, 22.81145, 1.18612, .74312, - + .41679, .95471, 1.19445 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ - + .06213, .03858, 25.21024, 1.28835, .84971, - + .52883, 1.05928, 1.29689, - + .06448, .03978, 27.49922, 1.38840, .95379, - + .63789, 1.16150, 1.39713, - + .06670, .04091, 29.68213, 1.48616, 1.05529, - + .74399, 1.26127, 1.49508, - + .06881, .04199, 31.74580, 1.58111, 1.15374, - + .84669, 1.35810, 1.59020, - + .07083, .04301, 33.70652, 1.67351, 1.24943, - + .94635, 1.45227, 1.68277, - + .07275, .04399, 35.57861, 1.76366, 1.34267, - + 1.04329, 1.54409, 1.77308, - + .07460, .04493, 37.37265, 1.85178, 1.43371, - + 1.13781, 1.63378, 1.86135 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ - + .07637, .04582, 39.06033, 1.93690, 1.52160, - + 1.22897, 1.72038, 1.94661, - + .07808, .04669, 40.67165, 2.01982, 1.60715, - + 1.31762, 1.80472, 2.02967, - + .07972, .04752, 42.22771, 2.10117, 1.69102, - + 1.40440, 1.88743, 2.11115, - + .08130, .04832, 43.67652, 2.17918, 1.77142, - + 1.48759, 1.96672, 2.18929, - + .08284, .04909, 45.08930, 2.25611, 1.85065, - + 1.56946, 2.04489, 2.26634 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + .04544, .03004, 5.95335, .52274, .05953, - + .00000, .28032, .52982, - + .05002, .03240, 8.64695, .62116, .16675, - + .00000, .38347, .62863, - + .05408, .03448, 11.26632, .71963, .27267, - + .00000, .48595, .72745, - + .05773, .03636, 13.79224, .81712, .37662, - + .05284, .58691, .82525, - + .06108, .03808, 16.20955, .91333, .47857, - + .16648, .68621, .92174, - + .06420, .03967, 18.52642, 1.00818, .57860, - + .27257, .78385, 1.01685, - + .06710, .04115, 20.71494, 1.10072, .67586, - + .37545, .87893, 1.10963 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ - + .06982, .04254, 22.79035, 1.19101, .77048, - + .47520, .97155, 1.20015, - + .07239, .04385, 24.75902, 1.27900, .86247, - + .57189, 1.06170, 1.28835, - + .07482, .04509, 26.62630, 1.36464, .95183, - + .66558, 1.14934, 1.37419, - + .07712, .04626, 28.38204, 1.44753, 1.03818, - + .75594, 1.23409, 1.45726, - + .07932, .04738, 30.04197, 1.52791, 1.12182, - + .84331, 1.31622, 1.53781, - + .08142, .04844, 31.61963, 1.60607, 1.20306, - + .92803, 1.39604, 1.61615, - + .08343, .04946, 33.12521, 1.68225, 1.28214, - + 1.01039, 1.47379, 1.69249 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ - + .08535, .05043, 34.53512, 1.75562, 1.35826, - + 1.08958, 1.54863, 1.76601, - + .08720, .05137, 35.87559, 1.82690, 1.43216, - + 1.16639, 1.62132, 1.83744, - + .08898, .05227, 37.16557, 1.89667, 1.50441, - + 1.24139, 1.69243, 1.90735, - + .09069, .05313, 38.36072, 1.96336, 1.57348, - + 1.31308, 1.76040, 1.97417, - + .09235, .05397, 39.52301, 2.02900, 1.64140, - + 1.38348, 1.82727, 2.03995 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + .06721, .04110, 5.12829, .45635, .04930, - + .00000, .24404, .46542, - + .07349, .04435, 7.11413, .53020, .13185, - + .00000, .32261, .53981, - + .07898, .04719, 8.96827, .60199, .21099, - + .00000, .39840, .61208, - + .08390, .04972, 10.69674, .67139, .28676, - + .03862, .47126, .68189, - + .08837, .05203, 12.30293, .73847, .35951, - + .12062, .54143, .74936, - + .09250, .05415, 13.80304, .80341, .42956, - + .19570, .60915, .81464, - + .09632, .05611, 15.18602, .86571, .49652, - + .26730, .67398, .87727 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ - + .09989, .05793, 16.46906, .92559, .56067, - + .33568, .73618, .93745, - + .10324, .05964, 17.66173, .98314, .62217, - + .40104, .79588, .99527, - + .10639, .06124, 18.77179, 1.03844, .68113, - + .46356, .85318, 1.05083, - + .10936, .06275, 19.79592, 1.09130, .73742, - + .52314, .90790, 1.10394, - + .11218, .06418, 20.74743, 1.14198, .79131, - + .58010, .96032, 1.15484, - + .11486, .06554, 21.63743, 1.19075, .84310, - + .63475, 1.01073, 1.20383, - + .11742, .06683, 22.47427, 1.23782, .89303, - + .68736, 1.05936, 1.25111 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ - + .11986, .06806, 23.24443, 1.28268, .94059, - + .73745, 1.10569, 1.29616, - + .12220, .06923, 23.96606, 1.32587, .98635, - + .78559, 1.15027, 1.33954, - + .12444, .07036, 24.65218, 1.36780, 1.03074, - + .83223, 1.19354, 1.38166, - + .12659, .07144, 25.27589, 1.40748, 1.07275, - + .87638, 1.23449, 1.42150, - + .12866, .07247, 25.87682, 1.44628, 1.11379, - + .91945, 1.27451, 1.46047 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + .09909, .05780, 4.33282, .39130, .04002, - + .00000, .20899, .40306, - + .10746, .06217, 5.73457, .44433, .10165, - + .00000, .26675, .45683, - + .11470, .06593, 6.98514, .49434, .15891, - + .00000, .32073, .50747, - + .12111, .06925, 8.10695, .54145, .21231, - + .02735, .37129, .55512, - + .12689, .07223, 9.11460, .58596, .26240, - + .08463, .41887, .60013, - + .13218, .07494, 10.02737, .62818, .30965, - + .13597, .46385, .64280, - + .13704, .07742, 10.84441, .66794, .35398, - + .18407, .50611, .68296 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ - + .14154, .07971, 11.58248, .70550, .39573, - + .22924, .54597, .72090, - + .14573, .08183, 12.25159, .74103, .43513, - + .27176, .58362, .75677, - + .14966, .08381, 12.85958, .77467, .47236, - + .31187, .61924, .79073, - + .15333, .08566, 13.40678, .80635, .50740, - + .34956, .65275, .82271, - + .15680, .08740, 13.90352, .83633, .54052, - + .38515, .68445, .85296, - + .16007, .08903, 14.35841, .86482, .57196, - + .41890, .71456, .88172, - + .16319, .09058, 14.77777, .89200, .60194, - + .45103, .74328, .90915 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ - + .16613, .09204, 15.15399, .91758, .63016, - + .48128, .77030, .93495, - + .16893, .09343, 15.49949, .94193, .65702, - + .51005, .79602, .95953, - + .17162, .09476, 15.82271, .96535, .68283, - + .53767, .82076, .98317, - + .17417, .09601, 16.10752, .98723, .70698, - + .56354, .84388, 1.00524, - + .17663, .09721, 16.37858, 1.00846, .73040, - + .58858, .86631, 1.02667 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + .12409, .07128, 3.88127, .35374, .03503, - + -.00001, .18912, .36769, - + .13384, .07638, 4.99641, .39629, .08610, - + .00000, .23638, .41111, - + .14220, .08071, 5.96207, .43564, .13263, - + -.00001, .27971, .45119, - + .14955, .08449, 6.80636, .47211, .17532, - + .02195, .31961, .48830, - + .15613, .08786, 7.54701, .50607, .21478, - + .06755, .35661, .52281, - + .16212, .09090, 8.20410, .53785, .25153, - + .10788, .39113, .55510, - + .16759, .09366, 8.77975, .56740, .28559, - + .14524, .42317, .58511 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ - + .17262, .09619, 9.28985, .59499, .31731, - + .17996, .45304, .61312, - + .17728, .09852, 9.74368, .62081, .34695, - + .21232, .48096, .63932, - + .18163, .10067, 10.14860, .64502, .37469, - + .24257, .50712, .66388, - + .18568, .10268, 10.50592, .66759, .40056, - + .27075, .53150, .68677, - + .18947, .10454, 10.82430, .68873, .42478, - + .29713, .55434, .70821, - + .19305, .10629, 11.11089, .70866, .44761, - + .32196, .57586, .72842, - + .19643, .10794, 11.37084, .72752, .46922, - + .34545, .59623, .74754 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ - + .19961, .10949, 11.59875, .74509, .48938, - + .36737, .61523, .76536, - + .20264, .11095, 11.80427, .76169, .50844, - + .38809, .63318, .78219, - + .20553, .11234, 11.99380, .77756, .52664, - + .40787, .65033, .79828, - + .20825, .11364, 12.15566, .79222, .54354, - + .42625, .66621, .81315, - + .21087, .11490, 12.30808, .80638, .55983, - + .44396, .68155, .82750 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + .14542, .08305, 3.56639, .32729, .03168, - + -.00001, .17529, .34316, - + .15617, .08864, 4.50139, .36312, .07596, - + .00000, .21581, .37995, - + .16533, .09335, 5.29231, .39579, .11572, - + -.00001, .25241, .41341, - + .17333, .09742, 5.96980, .42568, .15175, - + .01860, .28571, .44399, - + .18046, .10102, 6.55292, .45318, .18470, - + .05699, .31623, .47210, - + .18690, .10425, 7.06131, .47866, .21508, - + .09063, .34443, .49812, - + .19276, .10716, 7.49874, .50211, .24298, - + .12151, .37034, .52205 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ - + .19812, .10981, 7.87987, .52381, .26875, - + .14998, .39429, .54418, - + .20307, .11224, 8.21345, .54393, .29263, - + .17632, .41649, .56470, - + .20766, .11447, 8.50625, .56264, .31482, - + .20077, .43712, .58378, - + .21192, .11654, 8.75991, .57994, .33536, - + .22340, .45621, .60141, - + .21590, .11845, 8.98196, .59602, .35447, - + .24445, .47395, .61779, - + .21963, .12023, 9.17851, .61105, .37236, - + .26415, .49056, .63311, - + .22315, .12190, 9.35395, .62519, .38920, - + .28267, .50618, .64751 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ - + .22645, .12346, 9.50412, .63826, .40480, - + .29986, .52064, .66082, - + .22957, .12493, 9.63692, .65051, .41947, - + .31602, .53423, .67331, - + .23255, .12632, 9.75753, .66216, .43342, - + .33138, .54714, .68518, - + .23534, .12762, 9.85679, .67283, .44626, - + .34557, .55900, .69604, - + .23802, .12886, 9.94918, .68308, .45861, - + .35918, .57040, .70649 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + .16434, .09364, 3.32621, .30693, .02921, - + .00000, .16476, .32457, - + .17586, .09957, 4.13446, .33796, .06860, - + .00000, .20046, .35662, - + .18562, .10453, 4.80458, .36591, .10358, - + .00000, .23232, .38542, - + .19409, .10879, 5.36862, .39121, .13496, - + .01626, .26101, .41145, - + .20160, .11252, 5.84606, .41427, .16340, - + .04965, .28706, .43513, - + .20837, .11585, 6.25585, .43544, .18942, - + .07866, .31092, .45686, - + .21447, .11884, 6.60268, .45475, .21312, - + .10511, .33266, .47667 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ - + .22005, .12153, 6.90016, .47247, .23486, - + .12933, .35261, .49483, - + .22517, .12399, 7.15641, .48879, .25488, - + .15162, .37097, .51154, - + .22990, .12624, 7.37787, .50385, .27337, - + .17219, .38792, .52696, - + .23428, .12830, 7.56622, .51765, .29037, - + .19111, .40349, .54109, - + .23834, .13021, 7.72827, .53040, .30610, - + .20862, .41788, .55414, - + .24215, .13198, 7.86906, .54223, .32075, - + .22493, .43127, .56626, - + .24573, .13363, 7.99243, .55329, .33446, - + .24018, .44378, .57758 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ - + .24906, .13516, 8.09537, .56344, .34710, - + .25429, .45530, .58796, - + .25221, .13660, 8.18419, .57289, .35893, - + .26749, .46606, .59763, - + .25521, .13795, 8.26331, .58183, .37013, - + .27998, .47624, .60678, - + .25800, .13920, 8.32547, .58994, .38038, - + .29145, .48552, .61508, - + .26069, .14040, 8.38247, .59771, .39020, - + .30243, .49441, .62303 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + .23927, .13619, 2.60958, .24477, .02218, - + .00000, .13347, .27003, - + .25275, .14262, 3.09109, .26309, .04854, - + .00000, .15630, .28945, - + .26388, .14779, 3.46043, .27884, .07104, - + .00000, .17582, .30607, - + .27331, .15209, 3.74971, .29252, .09054, - + .01025, .19274, .32045, - + .28149, .15573, 3.97752, .30450, .10767, - + .03096, .20757, .33302, - + .28870, .15888, 4.15977, .31511, .12289, - + .04846, .22073, .34413, - + .29507, .16161, 4.30203, .32443, .13637, - + .06403, .23235, .35386 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ - + .30078, .16401, 4.41447, .33267, .14843, - + .07796, .24269, .36246, - + .30592, .16613, 4.50318, .34001, .15927, - + .09051, .25194, .37011, - + .31059, .16802, 4.57250, .34655, .16905, - + .10186, .26026, .37692, - + .31482, .16970, 4.62420, .35232, .17783, - + .11208, .26767, .38292, - + .31868, .17120, 4.66250, .35746, .18578, - + .12136, .27434, .38827, - + .32224, .17256, 4.69053, .36208, .19304, - + .12986, .28039, .39306, - + .32553, .17381, 4.71059, .36627, .19971, - + .13769, .28592, .39740 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ - + .32854, .17491, 4.72106, .36993, .20571, - + .14478, .29085, .40120, - + .33133, .17592, 4.72566, .37322, .21121, - + .15130, .29533, .40461, - + .33396, .17685, 4.72672, .37625, .21634, - + .15739, .29949, .40776, - + .33635, .17767, 4.72026, .37883, .22092, - + .16288, .30314, .41042, - + .33863, .17845, 4.71256, .38124, .22524, - + .16806, .30658, .41292 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + .34496, .19442, 1.96182, .18489, .01621, - + -.00001, .10466, .22143, - + .35823, .19920, 2.20511, .19353, .03252, - + -.00001, .11749, .23068, - + .36863, .20269, 2.36754, .20037, .04576, - + -.00002, .12780, .23790, - + .37702, .20530, 2.47739, .20585, .05674, - + .00592, .13623, .24361, - + .38395, .20729, 2.55002, .21025, .06597, - + .01765, .14322, .24816, - + .38978, .20884, 2.59710, .21384, .07387, - + .02723, .14909, .25181, - + .39467, .21001, 2.62315, .21669, .08060, - + .03548, .15399, .25467 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ - + .39884, .21089, 2.63487, .21896, .08640, - + .04264, .15811, .25690, - + .40241, .21156, 2.63606, .22077, .09144, - + .04892, .16161, .25863, - + .40551, .21202, 2.62931, .22218, .09583, - + .05444, .16457, .25996, - + .40814, .21233, 2.61573, .22323, .09963, - + .05930, .16704, .26091, - + .41041, .21252, 2.59749, .22398, .10296, - + .06358, .16912, .26155, - + .41239, .21260, 2.57627, .22452, .10589, - + .06740, .17089, .26195, - + .41413, .21262, 2.55313, .22489, .10850, - + .07084, .17240, .26217 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ - + .41559, .21253, 2.52716, .22504, .11075, - + .07387, .17362, .26217, - + .41685, .21238, 2.50008, .22505, .11274, - + .07660, .17465, .26203, - + .41799, .21221, 2.47294, .22497, .11455, - + .07909, .17553, .26181, - + .41889, .21195, 2.44383, .22471, .11607, - + .08126, .17616, .26138, - + .41972, .21168, 2.41561, .22443, .11747, - + .08328, .17673, .26093 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + .42330, .23283, 1.62990, .15045, .01314, - + .00000, .08847, .19426, - + .43388, .23474, 1.76530, .15469, .02480, - + .00000, .09657, .19827, - + .44154, .23563, 1.83990, .15763, .03390, - + -.00001, .10267, .20085, - + .44725, .23590, 1.87807, .15967, .04118, - + .00405, .10736, .20247, - + .45157, .23574, 1.89216, .16098, .04708, - + .01194, .11100, .20337, - + .45486, .23530, 1.89097, .16181, .05197, - + .01822, .11387, .20374, - + .45730, .23461, 1.87805, .16219, .05601, - + .02348, .11606, .20368 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ - + .45910, .23377, 1.85803, .16225, .05937, - + .02796, .11775, .20327, - + .46038, .23282, 1.83329, .16209, .06220, - + .03180, .11905, .20264, - + .46128, .23179, 1.80563, .16172, .06458, - + .03510, .12003, .20183, - + .46179, .23069, 1.77543, .16117, .06658, - + .03793, .12073, .20085, - + .46202, .22954, 1.74413, .16050, .06825, - + .04038, .12119, .19974, - + .46203, .22837, 1.71257, .15974, .06968, - + .04253, .12148, .19855, - + .46188, .22720, 1.68127, .15893, .07090, - + .04441, .12164, .19733 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ - + .46152, .22598, 1.64956, .15802, .07190, - + .04603, .12164, .19603, - + .46104, .22476, 1.61843, .15707, .07275, - + .04747, .12155, .19470, - + .46048, .22357, 1.58838, .15612, .07349, - + .04876, .12140, .19338, - + .45973, .22235, 1.55815, .15509, .07406, - + .04984, .12112, .19197, - + .45898, .22117, 1.52938, .15408, .07456, - + .05083, .12083, .19060 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + .48512, .25833, 1.41641, .12561, .01104, - + .00000, .07654, .17334, - + .49168, .25701, 1.48572, .12729, .01989, - + -.00001, .08174, .17392, - + .49560, .25515, 1.50974, .12805, .02654, - + .00000, .08535, .17362, - + .49786, .25299, 1.50883, .12821, .03168, - + .00297, .08790, .17277, - + .49894, .25068, 1.49278, .12793, .03573, - + .00867, .08968, .17153, - + .49922, .24829, 1.46827, .12738, .03897, - + .01310, .09091, .17007, - + .49882, .24585, 1.43774, .12656, .04157, - + .01675, .09168, .16839 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ - + .49796, .24341, 1.40437, .12560, .04365, - + .01978, .09214, .16661, - + .49675, .24098, 1.36976, .12452, .04535, - + .02232, .09234, .16476, - + .49528, .23860, 1.33488, .12338, .04672, - + .02447, .09235, .16288, - + .49356, .23625, 1.29989, .12217, .04782, - + .02629, .09218, .16096, - + .49169, .23393, 1.26555, .12091, .04871, - + .02781, .09189, .15904, - + .48970, .23168, 1.23232, .11964, .04942, - + .02913, .09153, .15715, - + .48765, .22950, 1.20041, .11838, .05000, - + .03027, .09110, .15530 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ - + .48548, .22735, 1.16925, .11710, .05044, - + .03121, .09058, .15344, - + .48327, .22525, 1.13939, .11583, .05077, - + .03203, .09002, .15161, - + .48108, .22324, 1.11104, .11460, .05104, - + .03275, .08945, .14983, - + .47877, .22123, 1.08333, .11334, .05119, - + .03333, .08882, .14806, - + .47652, .21931, 1.05722, .11212, .05132, - + .03385, .08820, .14637 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + .53440, .27430, 1.26021, .10580, .00940, - + -.00001, .06660, .15479, - + .53611, .26982, 1.28364, .10589, .01630, - + .00000, .06984, .15301, - + .53575, .26530, 1.27458, .10534, .02131, - + -.00001, .07182, .15078, - + .53417, .26088, 1.24970, .10444, .02507, - + .00225, .07301, .14836, - + .53177, .25659, 1.21636, .10327, .02793, - + .00652, .07365, .14585, - + .52887, .25246, 1.17936, .10197, .03015, - + .00978, .07391, .14329, - + .52554, .24846, 1.14029, .10056, .03186, - + .01239, .07386, .14073 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ - + .52194, .24465, 1.10124, .09911, .03320, - + .01453, .07362, .13816, - + .51821, .24098, 1.06310, .09764, .03423, - + .01629, .07323, .13568, - + .51442, .23745, 1.02636, .09616, .03502, - + .01776, .07273, .13328, - + .51054, .23405, .99090, .09467, .03562, - + .01897, .07214, .13094, - + .50664, .23078, .95711, .09320, .03608, - + .01997, .07149, .12865, - + .50274, .22766, .92516, .09177, .03641, - + .02082, .07081, .12645, - + .49890, .22469, .89505, .09039, .03664, - + .02153, .07010, .12434 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ - + .49504, .22179, .86628, .08902, .03679, - + .02210, .06937, .12227, - + .49125, .21900, .83912, .08768, .03687, - + .02259, .06862, .12028, - + .48757, .21633, .81364, .08639, .03691, - + .02300, .06789, .11839, - + .48382, .21374, .78918, .08513, .03688, - + .02332, .06713, .11651, - + .48022, .21126, .76632, .08392, .03683, - + .02361, .06640, .11473 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + .58133, .28408, 1.10728, .08548, .00772, - + .00000, .05580, .13321, - + .57640, .27595, 1.09008, .08439, .01289, - + -.00001, .05737, .12950, - + .57033, .26846, 1.05387, .08293, .01649, - + -.00001, .05806, .12583, - + .56378, .26157, 1.01079, .08132, .01907, - + .00163, .05821, .12229, - + .55695, .25518, .96553, .07962, .02096, - + .00470, .05800, .11890, - + .55008, .24924, .92095, .07791, .02239, - + .00698, .05757, .11565, - + .54313, .24367, .87766, .07622, .02341, - + .00877, .05697, .11255 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ - + .53633, .23841, .83671, .07453, .02416, - + .01020, .05628, .10962, - + .52966, .23349, .79837, .07288, .02471, - + .01136, .05553, .10683, - + .52311, .22887, .76263, .07132, .02509, - + .01230, .05473, .10420, - + .51670, .22449, .72917, .06979, .02536, - + .01304, .05392, .10167, - + .51046, .22034, .69805, .06832, .02551, - + .01366, .05308, .09929, - + .50443, .21640, .66921, .06691, .02559, - + .01415, .05225, .09703, - + .49862, .21267, .64248, .06556, .02561, - + .01456, .05144, .09488 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ - + .49292, .20911, .61740, .06425, .02558, - + .01488, .05063, .09283, - + .48739, .20571, .59407, .06299, .02551, - + .01514, .04983, .09088, - + .48209, .20248, .57244, .06179, .02542, - + .01537, .04907, .08903, - + .47682, .19937, .55198, .06063, .02529, - + .01551, .04830, .08723, - + .47179, .19642, .53301, .05953, .02516, - + .01563, .04757, .08554 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + .61409, .28519, .98024, .06868, .00631, - + -.00004, .04630, .11305, - + .60231, .27390, .93495, .06696, .01023, - + -.00003, .04684, .10832, - + .59054, .26391, .88177, .06508, .01287, - + -.00003, .04676, .10391, - + .57908, .25504, .82863, .06319, .01468, - + .00119, .04632, .09989, - + .56803, .24696, .77790, .06133, .01596, - + .00344, .04567, .09615, - + .55739, .23961, .73085, .05954, .01685, - + .00509, .04491, .09272, - + .54717, .23281, .68728, .05780, .01747, - + .00635, .04406, .08951 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ - + .53737, .22653, .64747, .05614, .01789, - + .00734, .04319, .08653, - + .52802, .22072, .61120, .05457, .01815, - + .00811, .04230, .08376, - + .51909, .21531, .57816, .05307, .01833, - + .00873, .04142, .08117, - + .51050, .21023, .54793, .05164, .01839, - + .00922, .04056, .07875, - + .50229, .20546, .52030, .05028, .01841, - + .00959, .03970, .07649, - + .49443, .20100, .49506, .04900, .01837, - + .00989, .03887, .07435, - + .48692, .19682, .47197, .04781, .01830, - + .01013, .03808, .07235 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ - + .47968, .19282, .45065, .04665, .01819, - + .01030, .03729, .07046, - + .47272, .18904, .43102, .04555, .01806, - + .01044, .03654, .06867, - + .46608, .18548, .41296, .04452, .01792, - + .01054, .03583, .06699, - + .45962, .18206, .39613, .04351, .01775, - + .01062, .03512, .06539, - + .45347, .17882, .38062, .04256, .01759, - + .01067, .03446, .06389 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + .63433, .27974, .86847, .05467, .00513, - + -.00001, .03798, .09447, - + .61578, .26594, .80432, .05276, .00810, - + -.00002, .03786, .08928, - + .59852, .25403, .74121, .05077, .01003, - + -.00001, .03731, .08469, - + .58249, .24363, .68342, .04889, .01129, - + .00090, .03656, .08059, - + .56753, .23434, .63127, .04707, .01213, - + .00255, .03571, .07690, - + .55356, .22597, .58478, .04537, .01269, - + .00372, .03481, .07356, - + .54039, .21835, .54311, .04376, .01305, - + .00462, .03390, .07049 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ - + .52800, .21139, .50608, .04225, .01326, - + .00529, .03298, .06770, - + .51638, .20499, .47302, .04082, .01338, - + .00582, .03209, .06514, - + .50544, .19907, .44345, .03948, .01341, - + .00623, .03124, .06278, - + .49501, .19360, .41682, .03825, .01339, - + .00655, .03041, .06057, - + .48516, .18848, .39285, .03707, .01332, - + .00678, .02962, .05852, - + .47585, .18370, .37123, .03597, .01323, - + .00695, .02886, .05664, - + .46703, .17924, .35166, .03493, .01311, - + .00709, .02814, .05489 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ - + .45857, .17503, .33380, .03396, .01298, - + .00718, .02745, .05321, - + .45052, .17107, .31752, .03304, .01284, - + .00725, .02678, .05166, - + .44289, .16735, .30267, .03217, .01270, - + .00730, .02615, .05021, - + .43551, .16378, .28895, .03133, .01253, - + .00733, .02555, .04884, - + .42852, .16042, .27638, .03055, .01237, - + .00734, .02498, .04755 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + .64333, .26945, .76694, .04310, .00413, - + -.00002, .03072, .07762, - + .61847, .25369, .69095, .04114, .00640, - + -.00001, .03024, .07249, - + .59619, .24033, .62306, .03925, .00779, - + -.00001, .02948, .06805, - + .57608, .22884, .56427, .03749, .00867, - + .00066, .02862, .06417, - + .55772, .21871, .51332, .03582, .00925, - + .00190, .02770, .06075, - + .54080, .20973, .46923, .03430, .00958, - + .00275, .02680, .05768, - + .52517, .20160, .43077, .03288, .00979, - + .00338, .02592, .05489 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ - + .51065, .19422, .39725, .03157, .00989, - + .00387, .02507, .05237, - + .49719, .18748, .36786, .03033, .00991, - + .00421, .02425, .05012, - + .48463, .18131, .34199, .02918, .00988, - + .00448, .02348, .04805, - + .47283, .17562, .31899, .02813, .00981, - + .00470, .02274, .04614, - + .46169, .17035, .29856, .02715, .00971, - + .00484, .02204, .04438, - + .45124, .16548, .28032, .02624, .00960, - + .00495, .02138, .04276, - + .44141, .16094, .26396, .02539, .00948, - + .00503, .02077, .04125 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ - + .43208, .15667, .24917, .02459, .00934, - + .00509, .02017, .03986, - + .42323, .15267, .23582, .02384, .00921, - + .00512, .01961, .03855, - + .41489, .14893, .22372, .02314, .00908, - + .00513, .01909, .03732, - + .40686, .14537, .21265, .02247, .00893, - + .00512, .01858, .03619, - + .39928, .14204, .20255, .02184, .00878, - + .00510, .01810, .03514 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + .64238, .25556, .67343, .03354, .00329, - + -.00001, .02451, .06279, - + .61183, .23839, .59118, .03170, .00501, - + -.00001, .02384, .05800, - + .58509, .22412, .52226, .02999, .00604, - + -.00002, .02304, .05390, - + .56149, .21195, .46503, .02841, .00665, - + .00051, .02216, .05042, - + .54021, .20137, .41699, .02699, .00703, - + .00142, .02130, .04733, - + .52096, .19201, .37640, .02568, .00723, - + .00204, .02047, .04464, - + .50336, .18361, .34180, .02445, .00733, - + .00251, .01966, .04224 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ - + .48718, .17610, .31210, .02335, .00736, - + .00285, .01890, .04007, - + .47226, .16927, .28646, .02233, .00733, - + .00309, .01820, .03814, - + .45845, .16307, .26423, .02141, .00728, - + .00328, .01752, .03637, - + .44560, .15737, .24470, .02053, .00719, - + .00340, .01689, .03477, - + .43358, .15213, .22753, .01973, .00709, - + .00348, .01630, .03332, - + .42236, .14728, .21235, .01899, .00698, - + .00354, .01574, .03197, - + .41188, .14279, .19886, .01830, .00687, - + .00358, .01523, .03072 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ - + .40194, .13860, .18677, .01769, .00674, - + .00361, .01475, .02956, - + .39259, .13468, .17592, .01709, .00662, - + .00362, .01429, .02850, - + .38382, .13102, .16615, .01652, .00650, - + .00362, .01386, .02752, - + .37541, .12757, .15729, .01601, .00638, - + .00360, .01345, .02658, - + .36749, .12434, .14926, .01553, .00626, - + .00359, .01307, .02572 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + .63269, .23910, .58704, .02572, .00261, - + .00003, .01931, .04998, - + .59711, .22117, .50294, .02415, .00389, - + .00002, .01857, .04568, - + .56669, .20637, .43582, .02267, .00462, - + .00002, .01776, .04207, - + .54019, .19393, .38186, .02133, .00504, - + .00041, .01696, .03904, - + .51663, .18320, .33778, .02016, .00527, - + .00106, .01616, .03641, - + .49553, .17381, .30131, .01908, .00540, - + .00151, .01542, .03410, - + .47646, .16542, .27074, .01806, .00544, - + .00183, .01472, .03207 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ - + .45901, .15798, .24499, .01719, .00542, - + .00205, .01408, .03026, - + .44314, .15123, .22304, .01636, .00536, - + .00223, .01350, .02865, - + .42850, .14515, .20416, .01561, .00530, - + .00234, .01293, .02722, - + .41500, .13956, .18780, .01491, .00521, - + .00243, .01241, .02591, - + .40244, .13446, .17357, .01427, .00512, - + .00249, .01193, .02471, - + .39075, .12977, .16107, .01370, .00502, - + .00253, .01148, .02361, - + .37986, .12545, .15004, .01318, .00492, - + .00254, .01106, .02261 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ - + .36967, .12139, .14027, .01265, .00482, - + .00255, .01067, .02171, - + .36010, .11764, .13155, .01218, .00472, - + .00255, .01031, .02086, - + .35112, .11417, .12374, .01176, .00463, - + .00254, .00997, .02007, - + .34258, .11089, .11670, .01135, .00452, - + .00252, .00964, .01934, - + .33457, .10782, .11033, .01096, .00442, - + .00249, .00934, .01866 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + .61515, .22136, .50774, .01972, .00189, - + -.00013, .01483, .03913, - + .57559, .20299, .42503, .01832, .00290, - + -.00014, .01416, .03538, - + .54219, .18807, .36152, .01707, .00344, - + -.00013, .01343, .03233, - + .51351, .17560, .31199, .01596, .00373, - + .00017, .01274, .02979, - + .48838, .16492, .27239, .01494, .00388, - + .00068, .01208, .02759, - + .46597, .15570, .24027, .01406, .00397, - + .00102, .01147, .02567, - + .44591, .14750, .21378, .01325, .00397, - + .00127, .01088, .02403 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ - + .42775, .14023, .19172, .01253, .00394, - + .00143, .01036, .02256, - + .41123, .13376, .17314, .01190, .00390, - + .00156, .00987, .02124, - + .39617, .12787, .15740, .01130, .00383, - + .00165, .00941, .02011, - + .38232, .12253, .14389, .01075, .00374, - + .00170, .00901, .01907, - + .36951, .11767, .13221, .01025, .00366, - + .00173, .00863, .01812, - + .35768, .11321, .12206, .00979, .00358, - + .00175, .00827, .01726, - + .34672, .10912, .11317, .00938, .00350, - + .00176, .00794, .01647 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ - + .33645, .10533, .10533, .00900, .00341, - + .00176, .00764, .01574, - + .32684, .10182, .09837, .00865, .00333, - + .00176, .00736, .01507, - + .31786, .09857, .09217, .00833, .00326, - + .00176, .00709, .01445, - + .30936, .09551, .08662, .00802, .00318, - + .00173, .00685, .01389, - + .30142, .09266, .08163, .00774, .00310, - + .00172, .00662, .01337 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + .59136, .20227, .43478, .01466, .00151, - + -.00003, .01136, .03014, - + .54855, .18398, .35606, .01356, .00222, - + -.00003, .01073, .02701, - + .51298, .16928, .29758, .01255, .00259, - + -.00003, .01012, .02447, - + .48276, .15714, .25307, .01167, .00280, - + .00018, .00951, .02237, - + .45649, .14679, .21822, .01087, .00290, - + .00054, .00895, .02060, - + .43334, .13789, .19043, .01019, .00292, - + .00077, .00845, .01906, - + .41273, .13006, .16781, .00956, .00292, - + .00094, .00798, .01772 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ - + .39422, .12315, .14923, .00900, .00288, - + .00107, .00756, .01657, - + .37749, .11700, .13381, .00852, .00282, - + .00114, .00716, .01556, - + .36235, .11146, .12082, .00804, .00277, - + .00119, .00681, .01465, - + .34843, .10647, .10978, .00765, .00270, - + .00123, .00648, .01382, - + .33567, .10191, .10033, .00727, .00263, - + .00125, .00619, .01308, - + .32393, .09776, .09216, .00692, .00256, - + .00125, .00591, .01242, - + .31310, .09397, .08505, .00659, .00249, - + .00124, .00566, .01182 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ - + .30297, .09046, .07883, .00630, .00243, - + .00125, .00543, .01127, - + .29355, .08721, .07334, .00603, .00236, - + .00124, .00521, .01077, - + .28479, .08421, .06847, .00579, .00229, - + .00122, .00501, .01031, - + .27652, .08141, .06413, .00557, .00223, - + .00122, .00482, .00988, - + .26880, .07880, .06025, .00538, .00217, - + .00121, .00464, .00948 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + .56217, .18296, .36880, .01081, .00111, - + -.00004, .00853, .02285, - + .51712, .16510, .29569, .00991, .00165, - + -.00003, .00799, .02030, - + .48010, .15090, .24297, .00913, .00192, - + -.00003, .00747, .01824, - + .44901, .13923, .20374, .00844, .00206, - + .00013, .00699, .01655, - + .42221, .12940, .17361, .00784, .00212, - + .00040, .00654, .01513, - + .39883, .12094, .14990, .00730, .00213, - + .00057, .00613, .01393, - + .37810, .11358, .13094, .00682, .00211, - + .00068, .00577, .01290 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ - + .35964, .10710, .11554, .00637, .00207, - + .00075, .00543, .01201, - + .34308, .10136, .10284, .00601, .00202, - + .00080, .00513, .01120, - + .32804, .09625, .09227, .00568, .00197, - + .00084, .00486, .01052, - + .31440, .09163, .08336, .00535, .00192, - + .00086, .00461, .00990, - + .30192, .08744, .07579, .00507, .00186, - + .00088, .00439, .00934, - + .29047, .08364, .06929, .00483, .00180, - + .00088, .00418, .00884, - + .27994, .08017, .06367, .00461, .00175, - + .00088, .00398, .00838 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ - + .27016, .07697, .05878, .00438, .00170, - + .00087, .00381, .00797, - + .26109, .07403, .05449, .00418, .00165, - + .00086, .00365, .00759, - + .25267, .07132, .05071, .00401, .00160, - + .00085, .00349, .00724, - + .24475, .06878, .04735, .00385, .00155, - + .00084, .00336, .00692, - + .23739, .06644, .04435, .00370, .00151, - + .00083, .00323, .00662 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + .52873, .16373, .30947, .00780, .00085, - + -.00001, .00632, .01702, - + .48229, .14659, .24315, .00711, .00123, - + -.00001, .00589, .01498, - + .44461, .13309, .19654, .00652, .00143, - + .00000, .00546, .01336, - + .41328, .12208, .16262, .00599, .00150, - + .00011, .00506, .01206, - + .38647, .11288, .13697, .00555, .00154, - + .00031, .00472, .01095, - + .36326, .10501, .11712, .00513, .00155, - + .00043, .00441, .01004, - + .34283, .09817, .10140, .00479, .00152, - + .00050, .00410, .00925 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ - + .32473, .09221, .08878, .00445, .00148, - + .00055, .00386, .00858, - + .30856, .08696, .07850, .00417, .00144, - + .00059, .00363, .00797, - + .29401, .08230, .07001, .00393, .00140, - + .00060, .00343, .00744, - + .28081, .07808, .06290, .00371, .00135, - + .00061, .00324, .00698, - + .26881, .07430, .05691, .00350, .00131, - + .00062, .00307, .00655, - + .25784, .07087, .05181, .00331, .00126, - + .00061, .00291, .00618, - + .24779, .06774, .04742, .00316, .00122, - + .00061, .00277, .00585 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ - + .23847, .06489, .04360, .00302, .00118, - + .00061, .00263, .00554, - + .22989, .06225, .04028, .00288, .00115, - + .00060, .00252, .00526, - + .22196, .05980, .03738, .00274, .00112, - + .00059, .00241, .00500, - + .21450, .05756, .03480, .00262, .00107, - + .00057, .00231, .00477, - + .20757, .05549, .03251, .00251, .00103, - + .00056, .00221, .00456 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + .49194, .14499, .25671, .00551, .00066, - + .00006, .00463, .01244, - + .44508, .12882, .19780, .00501, .00094, - + .00004, .00427, .01086, - + .40748, .11617, .15741, .00455, .00107, - + .00004, .00394, .00961, - + .37645, .10596, .12853, .00415, .00111, - + .00011, .00363, .00864, - + .35016, .09744, .10705, .00381, .00112, - + .00025, .00335, .00782, - + .32742, .09024, .09064, .00357, .00113, - + .00033, .00313, .00709, - + .30766, .08402, .07783, .00329, .00109, - + .00038, .00290, .00650 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ - + .29022, .07860, .06765, .00304, .00106, - + .00040, .00271, .00601, - + .27472, .07385, .05943, .00285, .00102, - + .00042, .00254, .00556, - + .26083, .06964, .05267, .00267, .00098, - + .00043, .00239, .00516, - + .24830, .06587, .04709, .00252, .00095, - + .00045, .00224, .00483, - + .23696, .06247, .04240, .00236, .00092, - + .00045, .00212, .00454, - + .22660, .05942, .03843, .00223, .00088, - + .00044, .00201, .00426, - + .21713, .05666, .03504, .00214, .00085, - + .00043, .00190, .00401 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ - + .20842, .05413, .03211, .00203, .00083, - + .00043, .00181, .00378, - + .20040, .05181, .02957, .00193, .00080, - + .00042, .00172, .00358, - + .19300, .04967, .02735, .00184, .00077, - + .00042, .00164, .00341, - + .18611, .04769, .02540, .00175, .00074, - + .00041, .00157, .00324, - + .17973, .04587, .02368, .00167, .00072, - + .00041, .00151, .00308 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + .45296, .12719, .21063, .00388, .00046, - + .00001, .00328, .00894, - + .40646, .11215, .15922, .00352, .00066, - + .00002, .00302, .00773, - + .36955, .10046, .12478, .00317, .00074, - + .00001, .00276, .00681, - + .33933, .09110, .10061, .00290, .00078, - + .00006, .00253, .00607, - + .31394, .08336, .08289, .00266, .00078, - + .00016, .00233, .00545, - + .29221, .07682, .06956, .00243, .00078, - + .00021, .00217, .00493, - + .27328, .07122, .05922, .00225, .00076, - + .00026, .00199, .00453 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ - + .25675, .06637, .05113, .00207, .00073, - + .00027, .00185, .00416, - + .24212, .06213, .04463, .00193, .00070, - + .00029, .00174, .00383, - + .22905, .05839, .03935, .00182, .00067, - + .00030, .00163, .00355, - + .21731, .05508, .03501, .00171, .00065, - + .00030, .00152, .00329, - + .20671, .05209, .03138, .00162, .00062, - + .00030, .00143, .00307, - + .19712, .04940, .02833, .00152, .00060, - + .00030, .00135, .00288, - + .18840, .04696, .02574, .00142, .00058, - + .00029, .00128, .00271 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ - + .18037, .04474, .02351, .00135, .00054, - + .00028, .00121, .00257, - + .17298, .04272, .02158, .00129, .00052, - + .00027, .00115, .00243, - + .16618, .04087, .01990, .00123, .00050, - + .00027, .00109, .00231, - + .15987, .03915, .01844, .00117, .00049, - + .00027, .00104, .00219, - + .15405, .03757, .01715, .00111, .00048, - + .00027, .00099, .00207 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + .41259, .11034, .17064, .00266, .00033, - + .00002, .00230, .00631, - + .36730, .09657, .12665, .00239, .00045, - + .00003, .00209, .00543, - + .33164, .08597, .09780, .00218, .00051, - + .00002, .00190, .00472, - + .30270, .07753, .07791, .00199, .00054, - + .00006, .00174, .00417, - + .27856, .07058, .06352, .00181, .00053, - + .00011, .00159, .00374, - + .25801, .06474, .05285, .00167, .00051, - + .00015, .00144, .00338, - + .24023, .05978, .04465, .00155, .00050, - + .00017, .00134, .00306 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ - + .22478, .05549, .03828, .00142, .00048, - + .00018, .00124, .00281, - + .21114, .05175, .03323, .00132, .00047, - + .00018, .00116, .00259, - + .19903, .04850, .02914, .00125, .00044, - + .00020, .00107, .00239, - + .18828, .04558, .02579, .00114, .00042, - + .00019, .00101, .00220, - + .17854, .04299, .02303, .00107, .00041, - + .00019, .00094, .00205, - + .16976, .04065, .02072, .00101, .00039, - + .00019, .00089, .00193, - + .16180, .03854, .01875, .00094, .00037, - + .00018, .00083, .00181 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ - + .15450, .03664, .01708, .00090, .00036, - + .00018, .00079, .00170, - + .14780, .03490, .01564, .00085, .00035, - + .00018, .00075, .00160, - + .14165, .03330, .01439, .00081, .00033, - + .00017, .00071, .00152, - + .13594, .03184, .01330, .00078, .00031, - + .00016, .00067, .00144, - + .13069, .03049, .01234, .00075, .00030, - + .00016, .00064, .00136 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + .37169, .09462, .13629, .00175, .00025, - + .00003, .00161, .00436, - + .32820, .08218, .09932, .00159, .00034, - + .00004, .00145, .00368, - + .29428, .07269, .07559, .00143, .00037, - + .00004, .00130, .00320, - + .26702, .06514, .05946, .00129, .00038, - + .00006, .00119, .00283, - + .24437, .05900, .04800, .00117, .00037, - + .00010, .00108, .00251, - + .22521, .05388, .03956, .00108, .00036, - + .00010, .00099, .00225, - + .20877, .04953, .03318, .00100, .00036, - + .00012, .00090, .00203 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ - + .19452, .04580, .02825, .00091, .00034, - + .00014, .00084, .00184, - + .18204, .04255, .02438, .00083, .00032, - + .00014, .00078, .00170, - + .17100, .03972, .02127, .00078, .00032, - + .00015, .00072, .00155, - + .16116, .03723, .01875, .00073, .00030, - + .00014, .00067, .00144, - + .15236, .03500, .01667, .00069, .00029, - + .00014, .00063, .00132, - + .14443, .03300, .01494, .00065, .00027, - + .00013, .00060, .00124, - + .13725, .03120, .01348, .00060, .00026, - + .00013, .00056, .00117 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ - + .13071, .02958, .01224, .00056, .00025, - + .00012, .00053, .00110, - + .12474, .02810, .01118, .00053, .00024, - + .00012, .00050, .00103, - + .11927, .02675, .01026, .00050, .00023, - + .00013, .00047, .00098, - + .11420, .02552, .00946, .00049, .00023, - + .00012, .00045, .00092, - + .10953, .02439, .00876, .00047, .00022, - + .00012, .00042, .00087 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + .33115, .08028, .10734, .00114, .00018, - + .00003, .00109, .00291, - + .29000, .06914, .07679, .00099, .00023, - + .00003, .00097, .00250, - + .25818, .06072, .05757, .00090, .00027, - + .00002, .00089, .00214, - + .23280, .05411, .04475, .00081, .00027, - + .00005, .00080, .00188, - + .21189, .04875, .03575, .00073, .00027, - + .00007, .00073, .00165, - + .19435, .04428, .02922, .00065, .00026, - + .00009, .00066, .00148, - + .17934, .04053, .02432, .00059, .00025, - + .00010, .00061, .00134 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ - + .16637, .03732, .02058, .00054, .00024, - + .00011, .00057, .00121, - + .15507, .03456, .01765, .00051, .00023, - + .00011, .00052, .00110, - + .14516, .03214, .01533, .00047, .00022, - + .00011, .00049, .00102, - + .13635, .03001, .01346, .00043, .00021, - + .00011, .00045, .00092, - + .12850, .02813, .01192, .00040, .00020, - + .00010, .00042, .00085, - + .12145, .02644, .01064, .00037, .00019, - + .00010, .00039, .00079, - + .11509, .02494, .00957, .00034, .00018, - + .00010, .00037, .00074 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ - + .10931, .02358, .00867, .00032, .00017, - + .00010, .00035, .00068, - + .10404, .02235, .00790, .00030, .00017, - + .00010, .00033, .00065, - + .09922, .02122, .00723, .00029, .00016, - + .00010, .00031, .00062, - + .09478, .02020, .00666, .00028, .00016, - + .00009, .00029, .00057, - + .09071, .01926, .00615, .00027, .00015, - + .00009, .00028, .00053 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + .29165, .06740, .08342, .00079, .00008, - + -.00002, .00068, .00194, - + .25334, .05762, .05867, .00072, .00013, - + .00000, .00061, .00161, - + .22402, .05028, .04339, .00064, .00015, - + -.00001, .00054, .00139, - + .20081, .04455, .03335, .00056, .00015, - + .00000, .00049, .00121, - + .18176, .03993, .02640, .00052, .00015, - + .00002, .00043, .00105, - + .16588, .03612, .02141, .00047, .00014, - + .00004, .00039, .00095, - + .15237, .03292, .01770, .00044, .00014, - + .00003, .00036, .00085 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ - + .14079, .03020, .01490, .00040, .00013, - + .00005, .00034, .00079, - + .13079, .02786, .01272, .00035, .00013, - + .00005, .00031, .00069, - + .12196, .02582, .01099, .00034, .00012, - + .00005, .00029, .00064, - + .11418, .02404, .00961, .00032, .00012, - + .00005, .00026, .00058, - + .10724, .02246, .00848, .00030, .00011, - + .00005, .00025, .00054, - + .10106, .02106, .00756, .00028, .00011, - + .00005, .00023, .00050, - + .09553, .01981, .00678, .00025, .00009, - + .00004, .00021, .00047 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ - + .09048, .01868, .00613, .00024, .00009, - + .00004, .00020, .00044, - + .08590, .01766, .00557, .00023, .00009, - + .00004, .00019, .00040, - + .08172, .01674, .00509, .00023, .00008, - + .00004, .00018, .00038, - + .07790, .01590, .00468, .00021, .00008, - + .00004, .00017, .00036, - + .07440, .01513, .00431, .00018, .00007, - + .00004, .00015, .00034 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + .25348, .05564, .06353, .00042, .00008, - + .00004, .00046, .00125, - + .21832, .04721, .04392, .00042, .00011, - + .00002, .00041, .00101, - + .19167, .04092, .03204, .00036, .00010, - + .00001, .00036, .00088, - + .17072, .03604, .02435, .00033, .00011, - + .00002, .00033, .00075, - + .15368, .03214, .01910, .00031, .00011, - + .00003, .00029, .00066, - + .13954, .02893, .01535, .00028, .00011, - + .00004, .00026, .00059, - + .12762, .02625, .01262, .00025, .00009, - + .00004, .00023, .00052 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ - + .11743, .02398, .01056, .00023, .00009, - + .00004, .00022, .00046, - + .10861, .02204, .00896, .00021, .00008, - + .00004, .00019, .00043, - + .10094, .02036, .00772, .00019, .00008, - + .00004, .00018, .00039, - + .09418, .01889, .00672, .00018, .00008, - + .00004, .00016, .00036, - + .08818, .01760, .00591, .00017, .00007, - + .00004, .00015, .00033, - + .08283, .01645, .00525, .00016, .00007, - + .00003, .00014, .00031, - + .07805, .01543, .00470, .00015, .00006, - + .00003, .00013, .00028 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ - + .07374, .01451, .00423, .00014, .00006, - + .00003, .00012, .00026, - + .06983, .01369, .00384, .00013, .00006, - + .00003, .00012, .00024, - + .06627, .01294, .00350, .00012, .00006, - + .00003, .00011, .00023, - + .06301, .01226, .00321, .00012, .00005, - + .00003, .00010, .00021, - + .06003, .01164, .00296, .00012, .00004, - + .00002, .00010, .00020 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + .21732, .04536, .04753, .00025, .00008, - + .00004, .00031, .00074, - + .18560, .03816, .03230, .00024, .00009, - + .00004, .00027, .00063, - + .16182, .03284, .02323, .00019, .00008, - + .00003, .00024, .00053, - + .14316, .02876, .01746, .00020, .00008, - + .00003, .00021, .00046, - + .12818, .02550, .01357, .00016, .00007, - + .00003, .00019, .00040, - + .11580, .02284, .01082, .00014, .00007, - + .00003, .00017, .00036, - + .10538, .02063, .00883, .00013, .00006, - + .00003, .00015, .00032 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ - + .09655, .01876, .00734, .00012, .00007, - + .00004, .00014, .00028, - + .08894, .01718, .00621, .00012, .00006, - + .00003, .00012, .00025, - + .08234, .01581, .00532, .00011, .00005, - + .00003, .00011, .00022, - + .07655, .01462, .00462, .00009, .00005, - + .00003, .00010, .00021, - + .07143, .01357, .00405, .00009, .00005, - + .00003, .00009, .00020, - + .06689, .01265, .00359, .00009, .00004, - + .00003, .00009, .00018, - + .06284, .01183, .00320, .00009, .00004, - + .00003, .00008, .00016 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ - + .05919, .01110, .00288, .00008, .00004, - + .00002, .00008, .00015, - + .05591, .01044, .00261, .00007, .00004, - + .00002, .00007, .00014, - + .05294, .00985, .00237, .00006, .00003, - + .00002, .00007, .00013, - + .05021, .00930, .00217, .00006, .00003, - + .00002, .00006, .00012, - + .04773, .00881, .00200, .00006, .00003, - + .00002, .00006, .00012 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + .18386, .03650, .03495, .00018, .00002, - + -.00001, .00016, .00048, - + .15570, .03046, .02334, .00017, .00003, - + .00001, .00015, .00037, - + .13474, .02603, .01657, .00012, .00003, - + .00000, .00013, .00033, - + .11846, .02266, .01233, .00013, .00004, - + .00000, .00011, .00028, - + .10544, .01998, .00949, .00012, .00004, - + .00002, .00010, .00025, - + .09476, .01780, .00752, .00011, .00004, - + .00001, .00009, .00021, - + .08587, .01601, .00610, .00008, .00004, - + .00001, .00008, .00018 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ - + .07831, .01450, .00504, .00008, .00004, - + .00001, .00007, .00016, - + .07183, .01322, .00425, .00008, .00003, - + .00001, .00007, .00016, - + .06625, .01212, .00362, .00007, .00003, - + .00002, .00006, .00014, - + .06136, .01118, .00313, .00008, .00003, - + .00001, .00005, .00013, - + .05708, .01034, .00274, .00006, .00002, - + .00001, .00005, .00012, - + .05330, .00961, .00242, .00006, .00002, - + .00001, .00005, .00011, - + .04993, .00896, .00216, .00005, .00002, - + .00001, .00004, .00010 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ - + .04689, .00838, .00194, .00005, .00002, - + .00001, .00004, .00009, - + .04417, .00787, .00175, .00005, .00002, - + .00001, .00004, .00008, - + .04171, .00740, .00159, .00004, .00002, - + .00001, .00004, .00008, - + .03946, .00698, .00145, .00005, .00002, - + .00001, .00003, .00007, - + .03742, .00660, .00134, .00005, .00002, - + .00001, .00003, .00006 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + .15289, .02877, .02504, .00007, .00004, - + .00003, .00012, .00026, - + .12832, .02380, .01644, .00006, .00004, - + .00002, .00010, .00022, - + .11020, .02020, .01151, .00005, .00003, - + .00002, .00009, .00019, - + .09626, .01746, .00847, .00005, .00003, - + .00002, .00008, .00016, - + .08517, .01531, .00646, .00004, .00003, - + .00002, .00007, .00014, - + .07612, .01358, .00508, .00004, .00003, - + .00002, .00006, .00012, - + .06861, .01215, .00410, .00004, .00003, - + .00002, .00005, .00010 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ - + .06228, .01096, .00337, .00004, .00002, - + .00001, .00005, .00008, - + .05691, .00995, .00282, .00003, .00002, - + .00001, .00005, .00007, - + .05227, .00908, .00240, .00004, .00002, - + .00002, .00004, .00007, - + .04825, .00834, .00207, .00003, .00002, - + .00001, .00003, .00006, - + .04472, .00769, .00181, .00003, .00002, - + .00001, .00003, .00006, - + .04161, .00713, .00159, .00002, .00002, - + .00001, .00003, .00006, - + .03886, .00663, .00141, .00002, .00002, - + .00001, .00003, .00005 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ - + .03638, .00618, .00127, .00002, .00001, - + .00001, .00002, .00005, - + .03417, .00578, .00114, .00002, .00001, - + .00001, .00002, .00004, - + .03219, .00543, .00104, .00002, .00001, - + .00001, .00002, .00004, - + .03038, .00510, .00095, .00001, .00001, - + .00001, .00002, .00004, - + .02874, .00481, .00087, .00001, .00001, - + .00001, .00002, .00004 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + .10040, .01696, .01196, .00002, .00000, - + .00000, .00003, .00009, - + .08270, .01378, .00758, .00001, .00001, - + .00000, .00003, .00007, - + .06988, .01151, .00517, .00002, .00001, - + .00000, .00002, .00006, - + .06019, .00982, .00372, .00002, .00001, - + .00000, .00002, .00004, - + .05258, .00850, .00279, .00002, .00001, - + .00000, .00002, .00003, - + .04647, .00746, .00216, .00002, .00001, - + .00000, .00002, .00003, - + .04146, .00660, .00173, .00001, .00001, - + .00000, .00002, .00003 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ - + .03727, .00590, .00141, .00001, .00001, - + .00000, .00001, .00002, - + .03375, .00531, .00117, .00001, .00001, - + .00000, .00001, .00002, - + .03076, .00481, .00099, .00001, .00001, - + .00000, .00001, .00002, - + .02815, .00438, .00085, .00001, .00001, - + .00000, .00001, .00002, - + .02591, .00401, .00074, .00001, .00001, - + .00000, .00001, .00002, - + .02394, .00369, .00065, .00001, .00001, - + .00000, .00001, .00002, - + .02221, .00341, .00057, .00001, .00000, - + .00000, .00001, .00001 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ - + .02067, .00316, .00051, .00001, .00000, - + .00000, .00001, .00001, - + .01930, .00294, .00046, .00000, .00000, - + .00000, .00001, .00001, - + .01807, .00275, .00042, .00000, .00000, - + .00000, .00001, .00001, - + .01696, .00257, .00038, .00000, .00000, - + .00000, .00001, .00001, - + .01596, .00241, .00035, .00000, .00001, - + .00000, .00001, .00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + .06032, .00908, .00501, .00001, .00000, - + -.00001, .00000, .00002, - + .04870, .00723, .00307, .00001, .00000, - + .00000, .00000, .00002, - + .04045, .00594, .00204, .00001, .00000, - + .00000, .00000, .00001, - + .03432, .00499, .00144, .00000, .00000, - + .00000, .00000, .00001, - + .02958, .00427, .00107, .00000, .00000, - + .00000, .00000, .00001, - + .02582, .00369, .00082, .00000, .00000, - + .00000, .00000, .00001, - + .02277, .00324, .00065, .00000, .00000, - + .00000, .00000, .00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ - + .02026, .00286, .00052, .00001, .00000, - + .00000, .00000, .00001, - + .01817, .00255, .00043, .00000, .00000, - + .00000, .00000, .00001, - + .01641, .00229, .00036, .00000, .00000, - + .00000, .00000, .00000, - + .01490, .00207, .00031, .00000, .00000, - + .00000, .00000, .00001, - + .01360, .00188, .00027, .00000, .00000, - + .00000, .00000, .00000, - + .01247, .00172, .00023, .00000, .00000, - + .00000, .00000, .00000, - + .01149, .00158, .00021, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ - + .01062, .00145, .00018, .00000, .00000, - + .00000, .00000, .00000, - + .00985, .00134, .00017, .00000, .00000, - + .00000, .00000, .00000, - + .00917, .00125, .00015, .00000, .00000, - + .00000, .00000, .00000, - + .00855, .00116, .00014, .00000, .00000, - + .00000, .00000, .00000, - + .00801, .00108, .00012, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + .03225, .00427, .00177, .00001, .00000, - + .00000, .00000, .00001, - + .02545, .00333, .00105, .00000, .00000, - + .00000, .00000, .00001, - + .02074, .00268, .00068, .00000, .00000, - + .00000, .00000, .00000, - + .01729, .00222, .00047, .00000, .00000, - + .00000, .00000, .00000, - + .01468, .00187, .00034, .00000, .00000, - + .00000, .00000, .00000, - + .01264, .00160, .00026, .00000, .00000, - + .00000, .00000, .00000, - + .01101, .00138, .00021, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ - + .00968, .00121, .00017, .00000, .00000, - + .00000, .00000, .00000, - + .00859, .00107, .00014, .00000, .00000, - + .00000, .00000, .00000, - + .00768, .00095, .00011, .00000, .00000, - + .00000, .00000, .00000, - + .00690, .00085, .00010, .00000, .00000, - + .00000, .00000, .00000, - + .00625, .00076, .00008, .00000, .00000, - + .00000, .00000, .00000, - + .00568, .00069, .00007, .00000, .00000, - + .00000, .00000, .00000, - + .00519, .00063, .00006, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ - + .00476, .00058, .00006, .00000, .00000, - + .00000, .00000, .00000, - + .00438, .00053, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00405, .00049, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00376, .00045, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00349, .00042, .00004, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + .01453, .00165, .00048, .00000, .00000, - + .00000, .00000, .00000, - + .01117, .00126, .00028, .00000, .00000, - + .00000, .00000, .00000, - + .00890, .00099, .00018, .00000, .00000, - + .00000, .00000, .00000, - + .00728, .00080, .00012, .00000, .00000, - + .00000, .00000, .00000, - + .00607, .00067, .00009, .00000, .00000, - + .00000, .00000, .00000, - + .00515, .00056, .00007, .00000, .00000, - + .00000, .00000, .00000, - + .00442, .00048, .00005, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ - + .00383, .00041, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00336, .00036, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00297, .00032, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00264, .00028, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00236, .00025, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00213, .00022, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00193, .00020, .00002, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ - + .00175, .00018, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00160, .00017, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00147, .00015, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00135, .00014, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00124, .00013, .00001, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + .00110, .00008, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00079, .00006, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00059, .00004, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00045, .00003, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00036, .00003, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00029, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00024, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ - + .00020, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00017, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00014, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00012, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00011, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00009, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00008, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ - + .00007, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00006, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00006, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00005, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00005, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,5,9,0,0,9,9/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - xsave=x -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(70,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7) GO TO 31 - DO 30 K=1,19 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,8 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) -C - x=xsave -C - RETURN - END diff --git a/PDF/spdf/sfms125.F b/PDF/spdf/sfms125.F deleted file mode 100644 index 5b7cf9f2ec4..00000000000 --- a/PDF/spdf/sfms125.F +++ /dev/null @@ -1,1970 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE SFMS125(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) -C -C THIS IS THE alphas=0.125 FIT -- May 1995 -- standard Q^2 range -C -#include "pdf/impdp.inc" -C - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,20),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + .00195, .00475, 10.30474, .83897, .15537, - + .00000, .48248, .84275, - + .00245, .00501, 22.74874, 1.27391, .59666, - + .00000, .92138, 1.27835, - + .00290, .00525, 38.69376, 1.80601, 1.13404, - + .00000, 1.45680, 1.81101, - + .00332, .00547, 57.55440, 2.41978, 1.75236, - + .18121, 2.07346, 2.42528, - + .00371, .00569, 78.70570, 3.10377, 2.44038, - + .93212, 2.76002, 3.10973, - + .00408, .00589, 102.07712, 3.85572, 3.19596, - + 1.70778, 3.51429, 3.86210, - + .00444, .00608, 127.07484, 4.66182, 4.00536, - + 2.53709, 4.32252, 4.66859 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ - + .00477, .00627, 153.45285, 5.51557, 4.86215, - + 3.41204, 5.17823, 5.52271, - + .00510, .00645, 181.01610, 6.41189, 5.76127, - + 4.32772, 6.07637, 6.41937, - + .00541, .00663, 209.54704, 7.34520, 6.69719, - + 5.27887, 7.01138, 7.35300, - + .00572, .00679, 238.88373, 8.31114, 7.66558, - + 6.26135, 7.97890, 8.31925, - + .00601, .00696, 268.77637, 9.30332, 8.66005, - + 7.26895, 8.97258, 9.31172, - + .00629, .00712, 299.03442, 10.31650, 9.67541, - + 8.29657, 9.98718, 10.32518, - + .00657, .00727, 329.74854, 11.35245, 10.71342, - + 9.34607, 11.02447, 11.36139 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ - + .00684, .00742, 360.90289, 12.41042, 11.77334, - + 10.41682, 12.08372, 12.41962, - + .00710, .00757, 392.02005, 13.47797, 12.84275, - + 11.49647, 13.15248, 13.48741, - + .00735, .00771, 423.31967, 14.56010, 13.92667, - + 12.59007, 14.23578, 14.56978, - + .00760, .00785, 454.92798, 15.65979, 15.02805, - + 13.70065, 15.33659, 15.66970, - + .00785, .00799, 486.13748, 16.75830, 16.12820, - + 14.80957, 16.43617, 16.76843 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + .00333, .00614, 9.39194, .77917, .13714, - + .00000, .44344, .78263, - + .00404, .00652, 19.64882, 1.14390, .50830, - + .00000, .81196, 1.14783, - + .00468, .00687, 32.26968, 1.57604, .94579, - + .00000, 1.24727, 1.58038, - + .00527, .00719, 46.75418, 2.06240, 1.43675, - + .14321, 1.73637, 2.06709, - + .00582, .00749, 62.60751, 2.59367, 1.97210, - + .73041, 2.27008, 2.59868, - + .00634, .00777, 79.77301, 3.16791, 2.55000, - + 1.32590, 2.84651, 3.17322, - + .00684, .00805, 97.81029, 3.77452, 3.15994, - + 1.95312, 3.45513, 3.78010 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ - + .00731, .00831, 116.54944, 4.40872, 3.79720, - + 2.60612, 4.09116, 4.41455, - + .00776, .00856, 135.86064, 5.06686, 4.45817, - + 3.28144, 4.75101, 5.07292, - + .00820, .00880, 155.60034, 5.74500, 5.13894, - + 3.97541, 5.43075, 5.75129, - + .00862, .00903, 175.66640, 6.44017, 5.83657, - + 4.68525, 6.12740, 6.44667, - + .00902, .00925, 195.89603, 7.14793, 6.54664, - + 5.40669, 6.83656, 7.15463, - + .00942, .00947, 216.17055, 7.86476, 7.26566, - + 6.13632, 7.55472, 7.87165, - + .00980, .00968, 236.56630, 8.59217, 7.99513, - + 6.87575, 8.28337, 8.59924 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ - + .01017, .00988, 257.08298, 9.32984, 8.73476, - + 7.62475, 9.02224, 9.33709, - + .01053, .01008, 277.40414, 10.06912, 9.47592, - + 8.37475, 9.76266, 10.07654, - + .01088, .01027, 297.69208, 10.81383, 10.22241, - + 9.12963, 10.50845, 10.82141, - + .01122, .01046, 318.04102, 11.56625, 10.97653, - + 9.89170, 11.26190, 11.57399, - + .01155, .01064, 337.98416, 12.31339, 11.72531, - + 10.64805, 12.01003, 12.32128 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + .00546, .00795, 8.55666, .72311, .12065, - + .00000, .40736, .72640, - + .00647, .00850, 16.96416, 1.02699, .43106, - + .00000, .71492, 1.03061, - + .00738, .00899, 26.89989, 1.37578, .78529, - + .00000, 1.06677, 1.37967, - + .00821, .00945, 37.96227, 1.75884, 1.17303, - + .11261, 1.45248, 1.76298, - + .00898, .00987, 49.77652, 2.16904, 1.58736, - + .56959, 1.86502, 2.17340, - + .00972, .01027, 62.30912, 2.60496, 2.02700, - + 1.02457, 2.30305, 2.60952, - + .01041, .01065, 75.24337, 3.05874, 2.48415, - + 1.49666, 2.75874, 3.06348 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ - + .01107, .01101, 88.47001, 3.52702, 2.95554, - + 1.98164, 3.22878, 3.53193, - + .01170, .01135, 101.90923, 4.00735, 3.43874, - + 2.47724, 3.71075, 4.01243, - + .01231, .01168, 115.47191, 4.49710, 3.93115, - + 2.98105, 4.20201, 4.50232, - + .01289, .01199, 129.09843, 4.99431, 4.43086, - + 3.49129, 4.70065, 4.99968, - + .01345, .01230, 142.68712, 5.49604, 4.93493, - + 4.00516, 5.20371, 5.50155, - + .01400, .01259, 156.16756, 5.99999, 5.44109, - + 4.52048, 5.70892, 6.00562, - + .01452, .01288, 169.60416, 6.50748, 5.95068, - + 5.03865, 6.21761, 6.51324 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ - + .01503, .01315, 183.00574, 7.01850, 6.46368, - + 5.55972, 6.72976, 7.02438, - + .01552, .01342, 196.16496, 7.52709, 6.97416, - + 6.07783, 7.23942, 7.53308, - + .01600, .01368, 209.20210, 8.03618, 7.48505, - + 6.59593, 7.74954, 8.04228, - + .01647, .01393, 222.18738, 8.54752, 7.99811, - + 7.11584, 8.26186, 8.55372, - + .01693, .01418, 234.81465, 9.05220, 8.50444, - + 7.62870, 8.76748, 9.05850 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + .00719, .00925, 8.10026, .69183, .11174, - + .00000, .38750, .69512, - + .00843, .00992, 15.56164, .96397, .39048, - + .00000, .66327, .96752, - + .00955, .01053, 24.17390, 1.27061, .70263, - + .00000, .97295, 1.27438, - + .01057, .01109, 33.59345, 1.60263, 1.03938, - + .09757, 1.30758, 1.60660, - + .01151, .01160, 43.50859, 1.95406, 1.39499, - + .49118, 1.66132, 1.95821, - + .01241, .01209, 53.89985, 2.32385, 1.76855, - + .87887, 2.03320, 2.32817, - + .01325, .01255, 64.51032, 2.70549, 2.15361, - + 1.27762, 2.41672, 2.70995 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ - + .01406, .01298, 75.25906, 3.09633, 2.54759, - + 1.68406, 2.80930, 3.10093, - + .01482, .01339, 86.08910, 3.49451, 2.94867, - + 2.09649, 3.20908, 3.49924, - + .01556, .01379, 96.93544, 3.89796, 3.35482, - + 2.51308, 3.61403, 3.90282, - + .01626, .01417, 107.75695, 4.30526, 3.76464, - + 2.93254, 4.02272, 4.31023, - + .01694, .01453, 118.47829, 4.71409, 4.17584, - + 3.35271, 4.43287, 4.71917, - + .01760, .01489, 129.04907, 5.12271, 4.58670, - + 3.77195, 4.84273, 5.12789, - + .01823, .01523, 139.52747, 5.53236, 4.99846, - + 4.19157, 5.25354, 5.53764 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ - + .01884, .01555, 149.92522, 5.94312, 5.41123, - + 4.61172, 5.66542, 5.94850, - + .01944, .01587, 160.08167, 6.35026, 5.82028, - + 5.02774, 6.07361, 6.35573, - + .02001, .01618, 170.09723, 6.75625, 6.22809, - + 5.44216, 6.48061, 6.76181, - + .02057, .01648, 180.03134, 7.16264, 6.63622, - + 5.85655, 6.88797, 7.16828, - + .02112, .01677, 189.64545, 7.56226, 7.03752, - + 6.26380, 7.28851, 7.56798 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + .00870, .01030, 7.78952, .67024, .10573, - + .00000, .37392, .67357, - + .01014, .01109, 14.63388, .92141, .36357, - + .00000, .62872, .92498, - + .01143, .01179, 22.40309, 1.20078, .64849, - + .00000, .91110, 1.20454, - + .01261, .01243, 30.79351, 1.50023, .95273, - + .08801, 1.21316, 1.50417, - + .01370, .01302, 39.53445, 1.81460, 1.27133, - + .44159, 1.52984, 1.81870, - + .01473, .01358, 48.61608, 2.14308, 1.60362, - + .78719, 1.86039, 2.14732, - + .01570, .01410, 57.81852, 2.48001, 1.94401, - + 1.14044, 2.19920, 2.48439 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ - + .01662, .01460, 67.07805, 2.82321, 2.29037, - + 1.49850, 2.54413, 2.82770, - + .01750, .01507, 76.35139, 3.17114, 2.64124, - + 1.86002, 2.89366, 3.17575, - + .01834, .01552, 85.58774, 3.52213, 2.99495, - + 2.22353, 3.24613, 3.52684, - + .01915, .01595, 94.75678, 3.87502, 3.35040, - + 2.58803, 3.60041, 3.87984, - + .01993, .01637, 103.79803, 4.22792, 3.70569, - + 2.95174, 3.95462, 4.23284, - + .02067, .01676, 112.67277, 4.57939, 4.05942, - + 3.31334, 4.30732, 4.58440, - + .02140, .01715, 121.43491, 4.93061, 4.41278, - + 3.67406, 4.65970, 4.93571 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ - + .02210, .01752, 130.09776, 5.28173, 4.76593, - + 4.03413, 5.01193, 5.28692, - + .02277, .01788, 138.52704, 5.62873, 5.11485, - + 4.38960, 5.35997, 5.63399, - + .02343, .01823, 146.81166, 5.97381, 5.46178, - + 4.74271, 5.70606, 5.97916, - + .02407, .01857, 155.00406, 6.31838, 5.80810, - + 5.09491, 6.05159, 6.32380, - + .02469, .01890, 162.90463, 6.65632, 6.14773, - + 5.44012, 6.39044, 6.66181 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + .01005, .01120, 7.55538, .65380, .10123, - + .00000, .36365, .65720, - + .01167, .01208, 13.94982, .88955, .34371, - + .00000, .60303, .89316, - + .01312, .01287, 21.11500, 1.14913, .60891, - + .00000, .86565, 1.15294, - + .01443, .01358, 28.77708, 1.42523, .88983, - + .08117, 1.14435, 1.42920, - + .01566, .01424, 36.69506, 1.71325, 1.18212, - + .40625, 1.43467, 1.71736, - + .01681, .01486, 44.86610, 2.01256, 1.48527, - + .72210, 1.73605, 2.01680, - + .01789, .01544, 53.09635, 2.31811, 1.79431, - + 1.04338, 2.04348, 2.32248 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ - + .01892, .01599, 61.33392, 2.62803, 2.10743, - + 1.36764, 2.35513, 2.63251, - + .01989, .01651, 69.54469, 2.94103, 2.42340, - + 1.69375, 2.66974, 2.94562, - + .02083, .01701, 77.68748, 3.25570, 2.74082, - + 2.02049, 2.98589, 3.26039, - + .02172, .01749, 85.73888, 3.57108, 3.05877, - + 2.34706, 3.30266, 3.57587, - + .02258, .01794, 93.64872, 3.88554, 3.37565, - + 2.67194, 3.61842, 3.89042, - + .02341, .01838, 101.38567, 4.19787, 3.69026, - + 2.99403, 3.93198, 4.20283, - + .02421, .01881, 109.00049, 4.50918, 4.00373, - + 3.31450, 4.24445, 4.51423 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ - + .02499, .01922, 116.50704, 4.81968, 4.31628, - + 3.63364, 4.55606, 4.82481, - + .02573, .01961, 123.78921, 5.12582, 4.62436, - + 3.94794, 4.86325, 5.13102, - + .02646, .02000, 130.92732, 5.42963, 4.93004, - + 4.25950, 5.16806, 5.43491, - + .02716, .02037, 137.96928, 5.73240, 5.23458, - + 4.56962, 5.47179, 5.73775, - + .02785, .02073, 144.74129, 6.02873, 5.53261, - + 4.87296, 5.76903, 6.03414 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + .01559, .01458, 6.86180, .60411, .08812, - + .00000, .33309, .60797, - + .01791, .01583, 12.00302, .79622, .28719, - + .00000, .52891, .80029, - + .01997, .01694, 17.53698, 1.00131, .49810, - + .00000, .73709, 1.00555, - + .02184, .01793, 23.27461, 1.21426, .71606, - + .06277, .95271, 1.21867, - + .02356, .01885, 29.05490, 1.43206, .93829, - + .31175, 1.17287, 1.43661, - + .02518, .01970, 34.89369, 1.65460, 1.16481, - + .54922, 1.39752, 1.65928, - + .02669, .02050, 40.66394, 1.87842, 1.39227, - + .78715, 1.62328, 1.88323 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ - + .02812, .02126, 46.34280, 2.10248, 1.61965, - + 1.02404, 1.84909, 2.10739, - + .02948, .02197, 51.91821, 2.32608, 1.84634, - + 1.25939, 2.07433, 2.33111, - + .03077, .02265, 57.37167, 2.54846, 2.07157, - + 1.49258, 2.29823, 2.55359, - + .03201, .02330, 62.69605, 2.76913, 2.29492, - + 1.72328, 2.52031, 2.77435, - + .03319, .02392, 67.86456, 2.98712, 2.51542, - + 1.95061, 2.73964, 2.99244, - + .03433, .02451, 72.86330, 3.20177, 2.73244, - + 2.17400, 2.95554, 3.20717, - + .03542, .02509, 77.73354, 3.41402, 2.94693, - + 2.39446, 3.16898, 3.41950 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ - + .03647, .02564, 82.48990, 3.62415, 3.15919, - + 2.61233, 3.38024, 3.62972, - + .03749, .02617, 87.05855, 3.82981, 3.36687, - + 2.82532, 3.58697, 3.83545, - + .03847, .02668, 91.49846, 4.03254, 3.57154, - + 3.03499, 3.79072, 4.03826, - + .03943, .02717, 95.84518, 4.23335, 3.77419, - + 3.24239, 3.99251, 4.23914, - + .04035, .02765, 99.98647, 4.42857, 3.97119, - + 3.44390, 4.18867, 4.43443 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + .02386, .01914, 6.20742, .55573, .07616, - + .00000, .30408, .56048, - + .02719, .02089, 10.28419, .70990, .23765, - + .00000, .46216, .71493, - + .03012, .02243, 14.49868, .86954, .40340, - + .00000, .62506, .87480, - + .03276, .02381, 18.73262, 1.03139, .57051, - + .04801, .78972, 1.03686, - + .03518, .02508, 22.88749, 1.19367, .73745, - + .23663, .95448, 1.19933, - + .03743, .02626, 26.99244, 1.35666, .90464, - + .41319, 1.11971, 1.36250, - + .03954, .02735, 30.96924, 1.51814, 1.06995, - + .58740, 1.28323, 1.52416 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ - + .04152, .02838, 34.81436, 1.67763, 1.23294, - + .75846, 1.44458, 1.68380, - + .04339, .02936, 38.52969, 1.83488, 1.39343, - + .92630, 1.60356, 1.84119, - + .04517, .03028, 42.11097, 1.98954, 1.55110, - + 1.09072, 1.75982, 1.99598, - + .04686, .03115, 45.56064, 2.14144, 1.70582, - + 1.25167, 1.91322, 2.14801, - + .04848, .03199, 48.86668, 2.29007, 1.85710, - + 1.40873, 2.06326, 2.29677, - + .05002, .03278, 52.02520, 2.43510, 2.00463, - + 1.56165, 2.20962, 2.44191, - + .05151, .03355, 55.06923, 2.57734, 2.14922, - + 1.71130, 2.35311, 2.58426 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ - + .05293, .03428, 58.01244, 2.71708, 2.29121, - + 1.85803, 2.49404, 2.72411, - + .05431, .03499, 60.80869, 2.85279, 2.42905, - + 2.00035, 2.63088, 2.85992, - + .05563, .03567, 63.50077, 2.98563, 2.56393, - + 2.13946, 2.76481, 2.99286, - + .05691, .03632, 66.11463, 3.11638, 2.69662, - + 2.27616, 2.89659, 3.12371, - + .05815, .03696, 68.57877, 3.24259, 2.82470, - + 2.40805, 3.02379, 3.25001 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + .03049, .02258, 5.83487, .52749, .06962, - + .00000, .28750, .53299, - + .03458, .02471, 9.36219, .66176, .21146, - + .00000, .42584, .66761, - + .03817, .02658, 12.92239, .79833, .35436, - + .00000, .56582, .80448, - + .04139, .02825, 16.43183, .93486, .49635, - + .04075, .70529, .94128, - + .04433, .02978, 19.82119, 1.07016, .63648, - + .19998, .84318, 1.07683, - + .04706, .03119, 23.12483, 1.20468, .77535, - + .34737, .98004, 1.21157, - + .04960, .03250, 26.28631, 1.33676, .91139, - + .49147, 1.11425, 1.34386 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ - + .05199, .03373, 29.30975, 1.46615, 1.04442, - + .63180, 1.24559, 1.47345, - + .05423, .03489, 32.20228, 1.59280, 1.17442, - + .76845, 1.37404, 1.60027, - + .05636, .03598, 34.96506, 1.71651, 1.30126, - + .90139, 1.49944, 1.72416, - + .05839, .03702, 37.60386, 1.83728, 1.42495, - + 1.03071, 1.62177, 1.84509, - + .06031, .03801, 40.11234, 1.95475, 1.54517, - + 1.15615, 1.74072, 1.96272, - + .06215, .03895, 42.49025, 2.06875, 1.66175, - + 1.27761, 1.85610, 2.07686, - + .06391, .03985, 44.76618, 2.17999, 1.77544, - + 1.39586, 1.96865, 2.18823 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ - + .06560, .04071, 46.95271, 2.28876, 1.88653, - + 1.51124, 2.07868, 2.29714, - + .06722, .04154, 49.01532, 2.39389, 1.99387, - + 1.62261, 2.18499, 2.40240, - + .06879, .04234, 50.98907, 2.49636, 2.09845, - + 1.73101, 2.28859, 2.50498, - + .07030, .04311, 52.89544, 2.59681, 2.20092, - + 1.83710, 2.39013, 2.60556, - + .07176, .04385, 54.67988, 2.69335, 2.29939, - + 1.93900, 2.48770, 2.70221 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + .03625, .02550, 5.57143, .50723, .06514, - + .00000, .27575, .51336, - + .04097, .02795, 8.73703, .62827, .19397, - + .00000, .40101, .63482, - + .04510, .03009, 11.87738, .74984, .32205, - + .00000, .52611, .75675, - + .04880, .03200, 14.93049, .87016, .44798, - + .03613, .64947, .87740, - + .05216, .03374, 17.84471, .98840, .57118, - + .17673, .77039, .99591, - + .05528, .03534, 20.65707, 1.10508, .69233, - + .30584, .88950, 1.11287, - + .05817, .03683, 23.32401, 1.21890, .81023, - + .43122, 1.00552, 1.22693 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ - + .06088, .03822, 25.85369, 1.32975, .92481, - + .55259, 1.11839, 1.33801, - + .06343, .03953, 28.25593, 1.43767, 1.03618, - + .67014, 1.22818, 1.44614, - + .06584, .04076, 30.53469, 1.54257, 1.14429, - + .78391, 1.33482, 1.55124, - + .06813, .04193, 32.69736, 1.64450, 1.24922, - + .89407, 1.43837, 1.65336, - + .07030, .04304, 34.74057, 1.74322, 1.35077, - + 1.00047, 1.53862, 1.75227, - + .07237, .04409, 36.66591, 1.83864, 1.44884, - + 1.10306, 1.63547, 1.84785, - + .07435, .04510, 38.49898, 1.93139, 1.54410, - + 1.20255, 1.72958, 1.94076 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ - + .07625, .04606, 40.25151, 2.02178, 1.63688, - + 1.29930, 1.82127, 2.03131, - + .07807, .04699, 41.89557, 2.10882, 1.72619, - + 1.39236, 1.90954, 2.11850, - + .07982, .04788, 43.46149, 2.19340, 1.81292, - + 1.48263, 1.99528, 2.20322, - + .08151, .04874, 44.96783, 2.27607, 1.89767, - + 1.57073, 2.07908, 2.28603, - + .08313, .04956, 46.36988, 2.35525, 1.97883, - + 1.65508, 2.15933, 2.36534 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + .04149, .02825, 5.35912, .49087, .06169, - + .00000, .26626, .49742, - + .04676, .03098, 8.25239, .60200, .18077, - + .00000, .38170, .60900, - + .05134, .03335, 11.08269, .71250, .29792, - + .00000, .49580, .71990, - + .05543, .03547, 13.80358, .82097, .41212, - + .03276, .60737, .82872, - + .05915, .03738, 16.37584, .92683, .52304, - + .15985, .71597, .93489, - + .06258, .03915, 18.83802, 1.03067, .63145, - + .27577, .82229, 1.03902, - + .06576, .04078, 21.15543, 1.13143, .73636, - + .38774, .92530, 1.14005 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ - + .06874, .04231, 23.33873, 1.22908, .83782, - + .49560, 1.02501, 1.23795, - + .07153, .04374, 25.39916, 1.32373, .93599, - + .59959, 1.12156, 1.33283, - + .07417, .04509, 27.34246, 1.41537, 1.03090, - + .69984, 1.21497, 1.42468, - + .07666, .04636, 29.17710, 1.50408, 1.12267, - + .79653, 1.30534, 1.51360, - + .07903, .04757, 30.90140, 1.58969, 1.21115, - + .88958, 1.39251, 1.59941, - + .08128, .04871, 32.51793, 1.67215, 1.29631, - + .97900, 1.47643, 1.68205, - + .08344, .04981, 34.05024, 1.75207, 1.37878, - + 1.06546, 1.55773, 1.76214 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ - + .08550, .05086, 35.50927, 1.82973, 1.45887, - + 1.14928, 1.63671, 1.83997, - + .08748, .05186, 36.87117, 1.90429, 1.53574, - + 1.22967, 1.71251, 1.91469, - + .08938, .05282, 38.16330, 1.97654, 1.61018, - + 1.30745, 1.78595, 1.98709, - + .09121, .05375, 39.40215, 2.04701, 1.68276, - + 1.38317, 1.85756, 2.05771, - + .09297, .05463, 40.54940, 2.11430, 1.75206, - + 1.45547, 1.92594, 2.12514 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + .06294, .03930, 4.70337, .43893, .05154, - + .00000, .23683, .44739, - + .07021, .04308, 6.84471, .52217, .14331, - + .00000, .32474, .53127, - + .07648, .04633, 8.84766, .60236, .23062, - + .00000, .40883, .61201, - + .08201, .04919, 10.70421, .67909, .31348, - + .02380, .48892, .68922, - + .08699, .05176, 12.40457, .75235, .39215, - + .11515, .56513, .76290, - + .09156, .05411, 13.98867, .82285, .46751, - + .19677, .63829, .83380, - + .09577, .05627, 15.44226, .89007, .53915, - + .27424, .70793, .90138 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ - + .09968, .05827, 16.78052, .95421, .60733, - + .34770, .77428, .96585, - + .10333, .06013, 18.01706, 1.01549, .67234, - + .41750, .83760, 1.02743, - + .10675, .06187, 19.16042, 1.07403, .73435, - + .48389, .89803, 1.08626, - + .10997, .06351, 20.21995, 1.13001, .79356, - + .54715, .95578, 1.14251, - + .11301, .06505, 21.19762, 1.18339, .84998, - + .60732, 1.01083, 1.19615, - + .11589, .06651, 22.09775, 1.23423, .90367, - + .66450, 1.06322, 1.24722, - + .11863, .06789, 22.93754, 1.28300, .95513, - + .71922, 1.11346, 1.29622 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ - + .12125, .06921, 23.72552, 1.32995, 1.00464, - + .77179, 1.16181, 1.34338, - + .12374, .07046, 24.44806, 1.37456, 1.05167, - + .82170, 1.20774, 1.38820, - + .12612, .07165, 25.12359, 1.41740, 1.09682, - + .86958, 1.25185, 1.43124, - + .12841, .07280, 25.76330, 1.45886, 1.14049, - + .91582, 1.29452, 1.47289, - + .13060, .07390, 26.34430, 1.49806, 1.18179, - + .95957, 1.33486, 1.51226 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + .09497, .05620, 4.02867, .38351, .04206, - + .00000, .20623, .39463, - + .10471, .06130, 5.54361, .44285, .11048, - + .00000, .27059, .45485, - + .11300, .06561, 6.89291, .49819, .17337, - + .00000, .33009, .51093, - + .12024, .06935, 8.09380, .54974, .23138, - + .01673, .38521, .56312, - + .12669, .07266, 9.15397, .59779, .28511, - + .08021, .43639, .61173, - + .13254, .07566, 10.11107, .64307, .33550, - + .13569, .48449, .65753, - + .13788, .07838, 10.96294, .68543, .38247, - + .18737, .52939, .70034 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ - + .14280, .08087, 11.72521, .72513, .42638, - + .23554, .57141, .74046, - + .14735, .08317, 12.41156, .76244, .46758, - + .28059, .61086, .77815, - + .15159, .08530, 13.03038, .79754, .50628, - + .32282, .64795, .81361, - + .15557, .08729, 13.59003, .83063, .54272, - + .36251, .68289, .84704, - + .15929, .08915, 14.09411, .86175, .57697, - + .39977, .71573, .87847, - + .16278, .09089, 14.54675, .89099, .60915, - + .43474, .74658, .90799, - + .16609, .09253, 14.95990, .91870, .63964, - + .46784, .77582, .93597 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ - + .16924, .09408, 15.33978, .94507, .66864, - + .49928, .80364, .96261, - + .17221, .09555, 15.67906, .96982, .69587, - + .52881, .82975, .98759, - + .17504, .09694, 15.98942, .99333, .72174, - + .55685, .85455, 1.01132, - + .17776, .09826, 16.27810, 1.01586, .74654, - + .58370, .87834, 1.03408, - + .18033, .09952, 16.53209, 1.03689, .76971, - + .60882, .90054, 1.05531 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + .12040, .06995, 3.62693, .34937, .03685, - + -.00001, .18787, .36272, - + .13177, .07589, 4.83397, .39662, .09342, - + -.00001, .24031, .41102, - + .14134, .08084, 5.87577, .43983, .14434, - + -.00001, .28780, .45509, - + .14963, .08510, 6.77809, .47940, .19051, - + .01335, .33104, .49541, - + .15695, .08883, 7.55504, .51573, .23262, - + .06372, .37057, .53238, - + .16356, .09217, 8.24125, .54951, .27158, - + .10713, .40722, .56674, - + .16955, .09519, 8.83889, .58069, .30744, - + .14710, .44100, .59844 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ - + .17502, .09793, 9.36271, .60958, .34059, - + .18394, .47224, .62779, - + .18007, .10043, 9.82512, .63643, .37136, - + .21806, .50126, .65506, - + .18474, .10275, 10.23402, .66143, .39998, - + .24975, .52826, .68045, - + .18909, .10488, 10.59686, .68476, .42668, - + .27927, .55346, .70415, - + .19315, .10687, 10.91750, .70649, .45156, - + .30675, .57692, .72621, - + .19694, .10872, 11.19916, .72670, .47472, - + .33233, .59876, .74673, - + .20052, .11045, 11.45150, .74569, .49649, - + .35636, .61928, .76600 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ - + .20390, .11208, 11.67951, .76362, .51705, - + .37904, .63867, .78421, - + .20708, .11361, 11.87815, .78029, .53620, - + .40018, .65670, .80113, - + .21010, .11505, 12.05624, .79599, .55427, - + .42011, .67370, .81707, - + .21299, .11642, 12.21919, .81094, .57147, - + .43909, .68990, .83225, - + .21570, .11771, 12.35743, .82474, .58741, - + .45671, .70487, .84626 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + .14222, .08199, 3.33873, .32435, .03331, - + -.00001, .17463, .33968, - + .15476, .08849, 4.35279, .36388, .08225, - + -.00001, .21941, .38038, - + .16524, .09387, 5.20684, .39951, .12565, - + -.00001, .25937, .41695, - + .17424, .09844, 5.93087, .43172, .16449, - + .01127, .29528, .44998, - + .18215, .10242, 6.54166, .46094, .19951, - + .05357, .32773, .47989, - + .18924, .10596, 7.07153, .48782, .23158, - + .08966, .35750, .50739, - + .19563, .10913, 7.52453, .51239, .26082, - + .12260, .38466, .53250 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ - + .20144, .11198, 7.91449, .53492, .28762, - + .15272, .40955, .55553, - + .20677, .11458, 8.25281, .55568, .31228, - + .18040, .43248, .57673, - + .21168, .11696, 8.54676, .57485, .33505, - + .20592, .45364, .59629, - + .21624, .11915, 8.80305, .59258, .35615, - + .22954, .47324, .61441, - + .22047, .12117, 9.02525, .60897, .37565, - + .25138, .49135, .63113, - + .22440, .12304, 9.21634, .62408, .39369, - + .27159, .50807, .64654, - + .22809, .12478, 9.38434, .63817, .41054, - + .29045, .52368, .66092 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ - + .23158, .12642, 9.53342, .65139, .42636, - + .30817, .53834, .67442, - + .23484, .12794, 9.65971, .66357, .44100, - + .32458, .55187, .68684, - + .23793, .12937, 9.77036, .67496, .45472, - + .33998, .56455, .69847, - + .24086, .13072, 9.86969, .68574, .46773, - + .35457, .57656, .70947, - + .24362, .13198, 9.95021, .69559, .47970, - + .36804, .58757, .71953 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + .16165, .09284, 3.11496, .30458, .03067, - + .00000, .16432, .32177, - + .17508, .09974, 3.99381, .33862, .07414, - + .00000, .20364, .35706, - + .18621, .10539, 4.71873, .36894, .11223, - + .00000, .23831, .38839, - + .19573, .11016, 5.32219, .39605, .14597, - + .00982, .26912, .41635, - + .20403, .11427, 5.82217, .42041, .17611, - + .04654, .29670, .44143, - + .21145, .11791, 6.24899, .44261, .20348, - + .07760, .32179, .46428, - + .21809, .12114, 6.60758, .46273, .22824, - + .10575, .34449, .48494 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ - + .22410, .12403, 6.91136, .48102, .25076, - + .13132, .36513, .50373, - + .22959, .12665, 7.17048, .49774, .27135, - + .15467, .38399, .52090, - + .23463, .12903, 7.39177, .51305, .29025, - + .17608, .40129, .53661, - + .23928, .13122, 7.58139, .52712, .30763, - + .19578, .41719, .55105, - + .24358, .13322, 7.74236, .54001, .32361, - + .21389, .43179, .56427, - + .24757, .13505, 7.87775, .55181, .33830, - + .23056, .44518, .57637, - + .25130, .13676, 7.99427, .56273, .35195, - + .24606, .45761, .58758 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ - + .25481, .13835, 8.09553, .57292, .36471, - + .26054, .46921, .59802, - + .25808, .13983, 8.17855, .58222, .37643, - + .27389, .47984, .60756, - + .26116, .14121, 8.24908, .59087, .38738, - + .28636, .48976, .61643, - + .26409, .14250, 8.31077, .59901, .39772, - + .29814, .49911, .62479, - + .26682, .14371, 8.35762, .60637, .40716, - + .30895, .50761, .63234 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + .23874, .13656, 2.43307, .24201, .02312, - + .00000, .13268, .26734, - + .25436, .14401, 2.96786, .26179, .05208, - + .00000, .15763, .28847, - + .26694, .14986, 3.37490, .27863, .07644, - + .00000, .17869, .30635, - + .27741, .15461, 3.68921, .29308, .09727, - + .00615, .19671, .32165, - + .28630, .15856, 3.92993, .30554, .11526, - + .02879, .21224, .33476, - + .29407, .16194, 4.12127, .31648, .13113, - + .04743, .22591, .34627, - + .30088, .16483, 4.26914, .32601, .14507, - + .06389, .23788, .35627 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ - + .30690, .16733, 4.38364, .33436, .15742, - + .07850, .24843, .36501, - + .31229, .16954, 4.47248, .34172, .16843, - + .09155, .25779, .37271, - + .31714, .17147, 4.54050, .34821, .17828, - + .10326, .26613, .37949, - + .32153, .17319, 4.59195, .35396, .18714, - + .11382, .27357, .38549, - + .32552, .17471, 4.62870, .35903, .19509, - + .12335, .28022, .39078, - + .32913, .17606, 4.65289, .36348, .20223, - + .13195, .28613, .39541, - + .33245, .17728, 4.66855, .36745, .20873, - + .13980, .29146, .39954 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ - + .33552, .17839, 4.67773, .37102, .21468, - + .14702, .29632, .40326, - + .33833, .17937, 4.67874, .37412, .22002, - + .15355, .30063, .40648, - + .34092, .18026, 4.67473, .37689, .22490, - + .15955, .30454, .40934, - + .34334, .18108, 4.66765, .37940, .22943, - + .16513, .30814, .41195, - + .34556, .18179, 4.65446, .38151, .23345, - + .17014, .31127, .41413 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + .34706, .19651, 1.81832, .18047, .01673, - + -.00001, .10310, .21812, - + .36223, .20200, 2.10712, .18997, .03473, - + -.00001, .11726, .22834, - + .37379, .20585, 2.29826, .19739, .04909, - + -.00002, .12845, .23623, - + .38289, .20866, 2.42558, .20327, .06079, - + .00353, .13747, .24237, - + .39019, .21071, 2.50654, .20789, .07045, - + .01635, .14477, .24711, - + .39625, .21224, 2.55879, .21160, .07863, - + .02653, .15085, .25088, - + .40128, .21335, 2.58771, .21452, .08552, - + .03523, .15585, .25378 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ - + .40546, .21416, 2.60003, .21679, .09138, - + .04271, .16001, .25599, - + .40901, .21471, 2.60077, .21855, .09641, - + .04920, .16347, .25767, - + .41202, .21507, 2.59289, .21990, .10075, - + .05486, .16637, .25890, - + .41458, .21528, 2.57872, .22091, .10450, - + .05984, .16879, .25977, - + .41673, .21536, 2.55931, .22160, .10774, - + .06419, .17079, .26031, - + .41856, .21530, 2.53583, .22202, .11053, - + .06801, .17242, .26057, - + .42012, .21518, 2.51024, .22225, .11298, - + .07142, .17378, .26062 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ - + .42146, .21500, 2.48344, .22234, .11514, - + .07448, .17491, .26053, - + .42256, .21473, 2.45447, .22223, .11698, - + .07716, .17579, .26025, - + .42348, .21442, 2.42491, .22201, .11860, - + .07956, .17650, .25984, - + .42428, .21409, 2.39555, .22172, .12005, - + .08175, .17708, .25936, - + .42489, .21368, 2.36481, .22127, .12125, - + .08364, .17745, .25872 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + .42675, .23609, 1.51999, .14610, .01356, - + .00000, .08705, .19170, - + .43873, .23821, 1.69520, .15106, .02656, - + .00000, .09618, .19638, - + .44710, .23909, 1.79249, .15448, .03649, - + .00000, .10294, .19938, - + .45314, .23924, 1.84325, .15680, .04425, - + .00242, .10801, .20121, - + .45745, .23888, 1.86240, .15829, .05041, - + .01107, .11183, .20214, - + .46064, .23822, 1.86397, .15921, .05544, - + .01774, .11479, .20253, - + .46291, .23730, 1.85200, .15963, .05952, - + .02330, .11702, .20240 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ - + .46448, .23622, 1.83150, .15969, .06288, - + .02797, .11868, .20192, - + .46552, .23503, 1.80576, .15948, .06565, - + .03192, .11992, .20120, - + .46612, .23377, 1.77665, .15907, .06795, - + .03529, .12081, .20026, - + .46638, .23247, 1.74551, .15850, .06986, - + .03817, .12143, .19917, - + .46635, .23113, 1.71298, .15778, .07144, - + .04065, .12180, .19795, - + .46605, .22975, 1.67962, .15695, .07274, - + .04277, .12197, .19663, - + .46559, .22836, 1.64654, .15604, .07381, - + .04461, .12200, .19527 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ - + .46500, .22699, 1.61413, .15509, .07471, - + .04623, .12193, .19390, - + .46422, .22561, 1.58170, .15408, .07544, - + .04761, .12172, .19242, - + .46335, .22424, 1.55009, .15304, .07602, - + .04882, .12144, .19095, - + .46243, .22289, 1.51966, .15200, .07652, - + .04990, .12111, .18951, - + .46137, .22152, 1.48938, .15090, .07686, - + .05080, .12068, .18800 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + .48940, .26238, 1.33993, .12215, .01145, - + .00001, .07563, .17207, - + .49675, .26076, 1.44156, .12443, .02141, - + .00000, .08165, .17302, - + .50088, .25852, 1.48196, .12557, .02872, - + .00000, .08573, .17286, - + .50306, .25596, 1.48895, .12594, .03421, - + .00178, .08852, .17204, - + .50382, .25322, 1.47496, .12575, .03840, - + .00805, .09038, .17072, - + .50371, .25044, 1.45092, .12525, .04171, - + .01277, .09163, .16915, - + .50291, .24761, 1.41978, .12444, .04430, - + .01661, .09238, .16736 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ - + .50160, .24483, 1.38498, .12346, .04633, - + .01976, .09276, .16542, - + .49996, .24208, 1.34874, .12234, .04794, - + .02237, .09287, .16344, - + .49806, .23939, 1.31211, .12114, .04921, - + .02455, .09278, .16141, - + .49596, .23677, 1.27590, .11989, .05022, - + .02638, .09254, .15939, - + .49370, .23422, 1.24028, .11860, .05100, - + .02792, .09216, .15734, - + .49131, .23171, 1.20548, .11727, .05160, - + .02920, .09168, .15530, - + .48886, .22929, 1.17211, .11595, .05205, - + .03030, .09113, .15331 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ - + .48638, .22696, 1.14028, .11465, .05239, - + .03124, .09054, .15137, - + .48383, .22467, 1.10942, .11334, .05261, - + .03201, .08989, .14943, - + .48127, .22245, 1.07997, .11203, .05275, - + .03267, .08921, .14755, - + .47875, .22030, 1.05207, .11076, .05285, - + .03324, .08853, .14574, - + .47614, .21819, 1.02500, .10948, .05284, - + .03369, .08780, .14393 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + .53929, .27890, 1.21398, .10346, .00981, - + -.00001, .06625, .15472, - + .54114, .27361, 1.26114, .10401, .01766, - + .00000, .07010, .15300, - + .54051, .26836, 1.26224, .10371, .02317, - + -.00001, .07240, .15072, - + .53845, .26331, 1.24096, .10293, .02717, - + .00135, .07372, .14817, - + .53541, .25842, 1.20707, .10179, .03012, - + .00606, .07435, .14542, - + .53186, .25378, 1.16874, .10049, .03235, - + .00952, .07457, .14268, - + .52793, .24930, 1.12782, .09905, .03402, - + .01229, .07445, .13993 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ - + .52376, .24504, 1.08665, .09754, .03527, - + .01449, .07411, .13722, - + .51947, .24098, 1.04648, .09600, .03621, - + .01630, .07362, .13456, - + .51513, .23710, 1.00784, .09447, .03690, - + .01776, .07301, .13199, - + .51076, .23343, .97101, .09295, .03741, - + .01898, .07234, .12950, - + .50641, .22989, .93593, .09143, .03776, - + .01997, .07160, .12709, - + .50206, .22650, .90260, .08994, .03798, - + .02078, .07080, .12476, - + .49777, .22326, .87128, .08850, .03811, - + .02146, .07000, .12252 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ - + .49357, .22018, .84192, .08710, .03817, - + .02201, .06920, .12038, - + .48940, .21720, .81400, .08572, .03815, - + .02246, .06837, .11831, - + .48531, .21434, .78775, .08439, .03809, - + .02283, .06755, .11630, - + .48134, .21162, .76316, .08311, .03800, - + .02315, .06674, .11437, - + .47738, .20895, .73967, .08184, .03785, - + .02337, .06592, .11251 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + .58699, .28906, 1.09215, .08444, .00812, - + .00000, .05602, .13431, - + .58133, .27958, 1.08790, .08359, .01405, - + -.00001, .05800, .13033, - + .57436, .27102, 1.05487, .08223, .01801, - + -.00001, .05882, .12634, - + .56689, .26325, 1.01103, .08063, .02076, - + .00099, .05898, .12252, - + .55907, .25610, .96271, .07888, .02266, - + .00435, .05870, .11881, - + .55130, .24952, .91517, .07711, .02404, - + .00678, .05818, .11530, - + .54360, .24336, .86910, .07532, .02500, - + .00866, .05747, .11199 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ - + .53601, .23765, .82556, .07356, .02568, - + .01013, .05666, .10882, - + .52863, .23231, .78499, .07186, .02613, - + .01130, .05580, .10583, - + .52147, .22731, .74735, .07020, .02641, - + .01224, .05489, .10306, - + .51454, .22262, .71254, .06862, .02658, - + .01299, .05398, .10041, - + .50781, .21820, .68025, .06709, .02665, - + .01358, .05306, .09789, - + .50126, .21401, .65029, .06563, .02663, - + .01405, .05214, .09551, - + .49497, .21005, .62265, .06422, .02657, - + .01442, .05124, .09326 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ - + .48892, .20630, .59713, .06288, .02647, - + .01473, .05036, .09113, - + .48301, .20271, .57330, .06159, .02632, - + .01497, .04950, .08910, - + .47731, .19929, .55119, .06034, .02615, - + .01514, .04866, .08717, - + .47185, .19605, .53070, .05915, .02596, - + .01527, .04786, .08535, - + .46646, .19294, .51143, .05801, .02575, - + .01537, .04706, .08358 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + .62061, .29034, .98813, .06862, .00669, - + -.00004, .04690, .11481, - + .60721, .27723, .94614, .06695, .01122, - + -.00003, .04767, .10953, - + .59391, .26592, .89055, .06505, .01410, - + -.00002, .04758, .10467, - + .58114, .25599, .83346, .06309, .01600, - + .00070, .04708, .10026, - + .56879, .24703, .77809, .06110, .01725, - + .00319, .04630, .09618, - + .55710, .23896, .72718, .05918, .01809, - + .00492, .04541, .09246, - + .54590, .23157, .68040, .05735, .01864, - + .00625, .04445, .08899 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ - + .53523, .22481, .63792, .05558, .01897, - + .00726, .04345, .08581, - + .52512, .21857, .59951, .05392, .01915, - + .00804, .04246, .08286, - + .51549, .21279, .56478, .05236, .01922, - + .00864, .04148, .08010, - + .50635, .20742, .53337, .05086, .01922, - + .00911, .04053, .07756, - + .49761, .20241, .50479, .04945, .01915, - + .00948, .03959, .07520, - + .48922, .19770, .47874, .04812, .01904, - + .00975, .03868, .07296, - + .48125, .19328, .45502, .04687, .01889, - + .00997, .03781, .07087 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ - + .47367, .18913, .43338, .04568, .01872, - + .01013, .03698, .06892, - + .46636, .18519, .41348, .04453, .01853, - + .01023, .03618, .06708, - + .45936, .18147, .39520, .04346, .01833, - + .01031, .03541, .06534, - + .45268, .17797, .37841, .04244, .01813, - + .01038, .03467, .06370, - + .44619, .17460, .36280, .04147, .01790, - + .01040, .03396, .06214 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + .64179, .28490, .89191, .05527, .00546, - + -.00002, .03877, .09648, - + .62075, .26891, .82319, .05325, .00890, - + -.00001, .03871, .09061, - + .60140, .25548, .75364, .05115, .01098, - + -.00002, .03810, .08548, - + .58370, .24390, .68985, .04912, .01228, - + .00053, .03723, .08095, - + .56720, .23367, .63225, .04713, .01309, - + .00235, .03623, .07691, - + .55196, .22457, .58159, .04529, .01360, - + .00359, .03520, .07327, - + .53770, .21637, .53677, .04358, .01388, - + .00450, .03415, .06995 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ - + .52439, .20890, .49720, .04197, .01401, - + .00520, .03312, .06697, - + .51196, .20209, .46224, .04044, .01404, - + .00571, .03214, .06425, - + .50030, .19583, .43128, .03903, .01400, - + .00610, .03121, .06174, - + .48933, .19007, .40376, .03772, .01391, - + .00640, .03030, .05944, - + .47896, .18474, .37907, .03648, .01379, - + .00664, .02944, .05731, - + .46914, .17975, .35694, .03533, .01364, - + .00678, .02862, .05533, - + .45988, .17509, .33699, .03425, .01346, - + .00690, .02784, .05350 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ - + .45112, .17075, .31898, .03323, .01328, - + .00698, .02711, .05182, - + .44271, .16667, .30262, .03229, .01310, - + .00704, .02640, .05020, - + .43474, .16282, .28770, .03140, .01290, - + .00706, .02573, .04871, - + .42719, .15919, .27409, .03055, .01270, - + .00708, .02510, .04732, - + .41988, .15575, .26159, .02975, .01250, - + .00707, .02449, .04600 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + .65185, .27447, .79962, .04401, .00442, - + -.00002, .03156, .07962, - + .62362, .25627, .71320, .04188, .00702, - + -.00002, .03104, .07373, - + .59873, .24126, .63624, .03979, .00853, - + -.00002, .03016, .06873, - + .57660, .22857, .57041, .03787, .00943, - + .00038, .02914, .06442, - + .55649, .21745, .51382, .03603, .00993, - + .00173, .02809, .06066, - + .53824, .20769, .46569, .03435, .01022, - + .00264, .02707, .05732, - + .52141, .19901, .42431, .03282, .01035, - + .00330, .02606, .05433 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ - + .50591, .19117, .38863, .03141, .01037, - + .00376, .02511, .05166, - + .49159, .18407, .35770, .03010, .01033, - + .00412, .02420, .04925, - + .47830, .17760, .33077, .02889, .01025, - + .00437, .02336, .04705, - + .46593, .17167, .30712, .02777, .01012, - + .00456, .02256, .04507, - + .45431, .16621, .28623, .02675, .00998, - + .00469, .02182, .04323, - + .44338, .16115, .26770, .02580, .00981, - + .00479, .02110, .04157, - + .43313, .15645, .25118, .02491, .00965, - + .00485, .02044, .04001 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ - + .42352, .15208, .23640, .02408, .00950, - + .00488, .01982, .03857, - + .41440, .14798, .22311, .02328, .00931, - + .00491, .01923, .03726, - + .40576, .14414, .21110, .02255, .00914, - + .00491, .01867, .03603, - + .39760, .14056, .20023, .02187, .00898, - + .00491, .01816, .03486, - + .38979, .13714, .19029, .02122, .00880, - + .00489, .01765, .03378 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + .65194, .26037, .71031, .03460, .00353, - + -.00002, .02531, .06456, - + .61722, .24060, .61373, .03252, .00550, - + -.00002, .02455, .05900, - + .58745, .22456, .53438, .03058, .00658, - + -.00002, .02358, .05440, - + .56156, .21116, .46983, .02882, .00719, - + .00028, .02257, .05052, - + .53837, .19964, .41641, .02723, .00751, - + .00127, .02157, .04713, - + .51763, .18955, .37222, .02577, .00765, - + .00194, .02061, .04423, - + .49876, .18066, .33508, .02447, .00771, - + .00239, .01971, .04163 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ - + .48157, .17269, .30366, .02327, .00768, - + .00273, .01887, .03933, - + .46584, .16555, .27691, .02217, .00759, - + .00298, .01809, .03727, - + .45134, .15907, .25387, .02118, .00748, - + .00315, .01736, .03542, - + .43794, .15316, .23397, .02025, .00736, - + .00327, .01668, .03378, - + .42548, .14774, .21656, .01942, .00722, - + .00335, .01605, .03226, - + .41380, .14275, .20130, .01865, .00708, - + .00339, .01547, .03087, - + .40292, .13815, .18783, .01794, .00693, - + .00342, .01492, .02960 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ - + .39276, .13389, .17587, .01728, .00677, - + .00344, .01440, .02845, - + .38315, .12992, .16516, .01667, .00663, - + .00344, .01392, .02735, - + .37411, .12620, .15558, .01609, .00649, - + .00343, .01347, .02635, - + .36561, .12273, .14697, .01555, .00634, - + .00341, .01305, .02544, - + .35749, .11946, .13913, .01505, .00621, - + .00339, .01265, .02456 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + .64326, .24365, .62446, .02677, .00280, - + .00004, .02000, .05145, - + .60281, .22298, .52383, .02493, .00425, - + .00003, .01913, .04644, - + .56888, .20646, .44587, .02327, .00501, - + .00004, .01816, .04236, - + .53985, .19282, .38492, .02175, .00543, - + .00025, .01722, .03897, - + .51427, .18115, .33603, .02040, .00560, - + .00096, .01633, .03609, - + .49164, .17105, .29644, .01919, .00566, - + .00143, .01549, .03363, - + .47129, .16219, .26386, .01810, .00567, - + .00175, .01472, .03144 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ - + .45289, .15433, .23678, .01712, .00559, - + .00197, .01399, .02956, - + .43617, .14731, .21402, .01622, .00551, - + .00213, .01334, .02786, - + .42089, .14098, .19473, .01541, .00541, - + .00223, .01274, .02635, - + .40685, .13525, .17818, .01469, .00529, - + .00231, .01218, .02500, - + .39384, .13003, .16390, .01405, .00517, - + .00236, .01167, .02375, - + .38178, .12522, .15148, .01342, .00505, - + .00239, .01120, .02265, - + .37058, .12081, .14060, .01286, .00492, - + .00240, .01076, .02164 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ - + .36017, .11674, .13101, .01235, .00480, - + .00241, .01035, .02070, - + .35035, .11295, .12251, .01187, .00468, - + .00239, .00997, .01986, - + .34115, .10943, .11493, .01143, .00456, - + .00238, .00962, .01908, - + .33254, .10616, .10813, .01101, .00445, - + .00236, .00930, .01836, - + .32438, .10308, .10204, .01062, .00434, - + .00234, .00899, .01767 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + .62660, .22561, .54304, .02069, .00204, - + -.00014, .01540, .04026, - + .58153, .20448, .44303, .01901, .00313, - + -.00014, .01459, .03594, - + .54437, .18781, .36909, .01756, .00371, - + -.00011, .01373, .03246, - + .51298, .17417, .31317, .01628, .00399, - + .00005, .01292, .02960, - + .48568, .16266, .26948, .01515, .00411, - + .00060, .01215, .02721, - + .46175, .15277, .23484, .01415, .00413, - + .00096, .01145, .02518, - + .44041, .14414, .20686, .01325, .00410, - + .00118, .01081, .02342 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ - + .42124, .13657, .18387, .01248, .00404, - + .00135, .01023, .02187, - + .40397, .12980, .16486, .01177, .00396, - + .00147, .00970, .02052, - + .38828, .12373, .14891, .01113, .00387, - + .00155, .00923, .01933, - + .37393, .11829, .13537, .01057, .00377, - + .00159, .00878, .01826, - + .36076, .11335, .12382, .01004, .00367, - + .00162, .00839, .01727, - + .34859, .10880, .11381, .00958, .00357, - + .00163, .00801, .01640, - + .33734, .10466, .10512, .00914, .00347, - + .00164, .00767, .01561 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ - + .32691, .10085, .09753, .00873, .00336, - + .00165, .00736, .01490, - + .31715, .09732, .09083, .00836, .00327, - + .00165, .00707, .01425, - + .30802, .09404, .08490, .00803, .00318, - + .00163, .00680, .01364, - + .29949, .09100, .07962, .00771, .00310, - + .00160, .00654, .01308, - + .29140, .08816, .07489, .00744, .00302, - + .00159, .00631, .01255 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + .60362, .20616, .46640, .01546, .00162, - + -.00003, .01181, .03099, - + .55478, .18516, .37067, .01410, .00240, - + -.00003, .01105, .02734, - + .51515, .16879, .30265, .01291, .00278, - + -.00003, .01029, .02448, - + .48204, .15555, .25263, .01193, .00296, - + .00009, .00960, .02215, - + .45364, .14439, .21443, .01102, .00302, - + .00047, .00896, .02022, - + .42889, .13492, .18471, .01025, .00301, - + .00071, .00839, .01858, - + .40707, .12669, .16106, .00954, .00297, - + .00088, .00788, .01718 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ - + .38763, .11949, .14194, .00893, .00291, - + .00099, .00741, .01596, - + .37019, .11312, .12628, .00838, .00283, - + .00106, .00699, .01492, - + .35440, .10747, .11328, .00790, .00274, - + .00110, .00662, .01397, - + .34008, .10236, .10238, .00747, .00267, - + .00113, .00628, .01314, - + .32697, .09775, .09310, .00710, .00258, - + .00114, .00597, .01238, - + .31492, .09357, .08517, .00673, .00250, - + .00115, .00568, .01173, - + .30382, .08974, .07833, .00641, .00243, - + .00115, .00542, .01113 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ - + .29358, .08624, .07238, .00612, .00236, - + .00114, .00519, .01056, - + .28403, .08299, .06716, .00586, .00228, - + .00114, .00496, .01007, - + .27515, .08000, .06256, .00560, .00221, - + .00113, .00475, .00962, - + .26688, .07723, .05847, .00536, .00214, - + .00112, .00457, .00920, - + .25909, .07464, .05485, .00514, .00208, - + .00110, .00439, .00882 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + .57500, .18653, .39581, .01147, .00120, - + -.00005, .00886, .02343, - + .52348, .16604, .30686, .01037, .00178, - + -.00003, .00820, .02045, - + .48225, .15021, .24577, .00942, .00204, - + -.00004, .00757, .01813, - + .44826, .13752, .20199, .00862, .00216, - + .00006, .00701, .01628, - + .41929, .12694, .16924, .00792, .00218, - + .00034, .00650, .01478, - + .39430, .11800, .14417, .00734, .00216, - + .00051, .00605, .01348, - + .37243, .11031, .12455, .00679, .00213, - + .00062, .00565, .01239 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ - + .35307, .10358, .10885, .00630, .00206, - + .00069, .00528, .01149, - + .33578, .09768, .09615, .00590, .00200, - + .00074, .00497, .01066, - + .32024, .09244, .08571, .00556, .00194, - + .00077, .00468, .00993, - + .30620, .08777, .07701, .00524, .00188, - + .00079, .00444, .00931, - + .29339, .08356, .06966, .00497, .00181, - + .00080, .00419, .00874, - + .28172, .07974, .06344, .00469, .00175, - + .00080, .00397, .00824, - + .27100, .07625, .05812, .00445, .00169, - + .00079, .00378, .00779 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ - + .26113, .07307, .05351, .00424, .00163, - + .00079, .00360, .00738, - + .25197, .07014, .04947, .00403, .00157, - + .00078, .00343, .00703, - + .24347, .06745, .04594, .00384, .00152, - + .00077, .00328, .00669, - + .23557, .06496, .04282, .00368, .00147, - + .00076, .00315, .00637, - + .22816, .06265, .04006, .00352, .00142, - + .00074, .00302, .00609 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + .54192, .16692, .33163, .00833, .00090, - + .00001, .00657, .01738, - + .48875, .14731, .25111, .00745, .00131, - + .00000, .00601, .01502, - + .44676, .13230, .19744, .00673, .00150, - + .00000, .00550, .01320, - + .41252, .12033, .15986, .00610, .00156, - + .00007, .00505, .01179, - + .38360, .11048, .13233, .00557, .00157, - + .00026, .00466, .01061, - + .35882, .10219, .11157, .00513, .00155, - + .00036, .00431, .00962, - + .33726, .09506, .09550, .00475, .00151, - + .00045, .00400, .00880 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ - + .31831, .08891, .08284, .00440, .00145, - + .00049, .00372, .00810, - + .30149, .08352, .07268, .00411, .00140, - + .00052, .00348, .00750, - + .28648, .07874, .06440, .00382, .00136, - + .00054, .00327, .00697, - + .27293, .07450, .05754, .00362, .00130, - + .00056, .00306, .00650, - + .26068, .07070, .05181, .00340, .00126, - + .00056, .00289, .00608, - + .24951, .06727, .04699, .00321, .00121, - + .00055, .00274, .00572, - + .23931, .06415, .04288, .00304, .00116, - + .00055, .00260, .00539 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ - + .22997, .06131, .03935, .00288, .00112, - + .00055, .00247, .00509, - + .22132, .05871, .03627, .00273, .00108, - + .00053, .00235, .00483, - + .21331, .05633, .03358, .00261, .00104, - + .00052, .00224, .00458, - + .20588, .05413, .03121, .00251, .00100, - + .00051, .00213, .00435, - + .19895, .05209, .02914, .00239, .00097, - + .00051, .00205, .00414 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + .50534, .14783, .27417, .00586, .00069, - + .00006, .00480, .01269, - + .45156, .12933, .20295, .00523, .00099, - + .00004, .00435, .01082, - + .40955, .11531, .15680, .00471, .00109, - + .00005, .00394, .00944, - + .37569, .10422, .12516, .00422, .00112, - + .00008, .00359, .00839, - + .34723, .09517, .10241, .00389, .00112, - + .00021, .00329, .00746, - + .32312, .08759, .08546, .00356, .00110, - + .00028, .00302, .00672, - + .30231, .08110, .07254, .00325, .00107, - + .00033, .00280, .00613 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ - + .28402, .07554, .06246, .00301, .00102, - + .00036, .00258, .00563, - + .26794, .07070, .05445, .00280, .00098, - + .00039, .00240, .00518, - + .25364, .06640, .04797, .00259, .00094, - + .00039, .00225, .00481, - + .24084, .06263, .04265, .00243, .00090, - + .00040, .00211, .00447, - + .22929, .05925, .03826, .00227, .00085, - + .00040, .00197, .00418, - + .21878, .05621, .03456, .00214, .00083, - + .00039, .00187, .00390, - + .20921, .05345, .03142, .00203, .00079, - + .00038, .00177, .00365 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ - + .20047, .05095, .02873, .00194, .00076, - + .00037, .00167, .00343, - + .19243, .04867, .02641, .00182, .00073, - + .00037, .00159, .00325, - + .18502, .04658, .02439, .00172, .00070, - + .00037, .00151, .00308, - + .17817, .04465, .02262, .00165, .00068, - + .00036, .00143, .00293, - + .17179, .04287, .02106, .00157, .00065, - + .00035, .00137, .00279 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + .46628, .12970, .22370, .00417, .00049, - + .00001, .00339, .00905, - + .41283, .11249, .16205, .00368, .00068, - + .00002, .00305, .00766, - + .37164, .09956, .12311, .00325, .00076, - + .00001, .00275, .00664, - + .33861, .08943, .09695, .00294, .00078, - + .00004, .00249, .00581, - + .31121, .08119, .07843, .00265, .00078, - + .00013, .00226, .00518, - + .28807, .07436, .06482, .00242, .00076, - + .00019, .00208, .00464, - + .26823, .06854, .05459, .00219, .00073, - + .00022, .00191, .00421 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ - + .25091, .06357, .04669, .00204, .00070, - + .00024, .00176, .00384, - + .23573, .05928, .04045, .00191, .00066, - + .00025, .00163, .00351, - + .22233, .05550, .03546, .00176, .00063, - + .00025, .00152, .00324, - + .21038, .05216, .03138, .00164, .00061, - + .00026, .00142, .00300, - + .19962, .04919, .02803, .00154, .00058, - + .00026, .00132, .00279, - + .18990, .04652, .02523, .00144, .00054, - + .00025, .00124, .00261, - + .18108, .04412, .02287, .00136, .00052, - + .00025, .00117, .00245 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ - + .17304, .04195, .02085, .00129, .00051, - + .00025, .00111, .00230, - + .16569, .03997, .01912, .00120, .00049, - + .00024, .00105, .00218, - + .15891, .03815, .01762, .00113, .00046, - + .00024, .00099, .00206, - + .15266, .03649, .01631, .00108, .00044, - + .00023, .00093, .00195, - + .14686, .03496, .01516, .00103, .00042, - + .00022, .00089, .00185 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + .42565, .11254, .17998, .00288, .00035, - + .00002, .00237, .00633, - + .37345, .09678, .12769, .00251, .00048, - + .00003, .00211, .00531, - + .33360, .08506, .09546, .00226, .00051, - + .00002, .00187, .00455, - + .30200, .07594, .07420, .00201, .00053, - + .00005, .00168, .00399, - + .27594, .06859, .05939, .00182, .00050, - + .00009, .00152, .00351, - + .25413, .06248, .04867, .00163, .00049, - + .00013, .00138, .00317, - + .23547, .05738, .04067, .00149, .00047, - + .00015, .00126, .00285 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ - + .21935, .05301, .03456, .00138, .00045, - + .00016, .00115, .00256, - + .20526, .04922, .02979, .00128, .00043, - + .00016, .00106, .00235, - + .19287, .04592, .02598, .00118, .00041, - + .00015, .00098, .00215, - + .18186, .04303, .02291, .00110, .00039, - + .00016, .00092, .00200, - + .17202, .04045, .02038, .00103, .00037, - + .00016, .00086, .00184, - + .16315, .03815, .01829, .00096, .00035, - + .00015, .00080, .00172, - + .15513, .03607, .01652, .00091, .00033, - + .00015, .00075, .00160 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ - + .14785, .03420, .01502, .00086, .00032, - + .00016, .00072, .00149, - + .14120, .03252, .01374, .00080, .00030, - + .00016, .00067, .00142, - + .13508, .03097, .01263, .00075, .00029, - + .00015, .00063, .00134, - + .12947, .02955, .01167, .00072, .00028, - + .00014, .00060, .00126, - + .12426, .02825, .01083, .00069, .00027, - + .00014, .00057, .00119 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + .38432, .09654, .14250, .00189, .00027, - + .00004, .00165, .00432, - + .33409, .08230, .09906, .00167, .00033, - + .00004, .00144, .00359, - + .29619, .07180, .07288, .00146, .00036, - + .00004, .00127, .00307, - + .26635, .06371, .05592, .00131, .00037, - + .00005, .00114, .00264, - + .24192, .05721, .04431, .00117, .00036, - + .00007, .00103, .00233, - + .22160, .05187, .03599, .00106, .00034, - + .00010, .00092, .00208, - + .20436, .04740, .02986, .00095, .00033, - + .00011, .00085, .00186 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ - + .18955, .04359, .02521, .00088, .00030, - + .00011, .00077, .00168, - + .17666, .04032, .02160, .00080, .00029, - + .00012, .00071, .00153, - + .16540, .03749, .01876, .00073, .00028, - + .00011, .00065, .00141, - + .15543, .03500, .01647, .00067, .00027, - + .00011, .00061, .00128, - + .14651, .03280, .01461, .00065, .00026, - + .00012, .00057, .00116, - + .13852, .03083, .01307, .00060, .00024, - + .00012, .00053, .00110, - + .13133, .02907, .01178, .00055, .00022, - + .00012, .00050, .00103 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ - + .12483, .02749, .01068, .00051, .00021, - + .00011, .00046, .00097, - + .11888, .02606, .00975, .00048, .00021, - + .00011, .00044, .00090, - + .11344, .02476, .00895, .00046, .00020, - + .00011, .00042, .00085, - + .10846, .02358, .00825, .00043, .00019, - + .00010, .00039, .00080, - + .10385, .02249, .00764, .00041, .00018, - + .00010, .00038, .00075 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + .34311, .08191, .11112, .00123, .00017, - + .00004, .00110, .00292, - + .29554, .06921, .07565, .00104, .00025, - + .00003, .00097, .00239, - + .25992, .05992, .05478, .00092, .00026, - + .00003, .00086, .00200, - + .23221, .05280, .04152, .00080, .00026, - + .00004, .00076, .00173, - + .20966, .04713, .03257, .00071, .00025, - + .00006, .00068, .00152, - + .19104, .04252, .02623, .00062, .00025, - + .00007, .00061, .00133, - + .17533, .03866, .02161, .00056, .00024, - + .00008, .00056, .00120 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ - + .16187, .03541, .01815, .00053, .00022, - + .00009, .00051, .00107, - + .15025, .03263, .01548, .00048, .00021, - + .00010, .00047, .00097, - + .14011, .03022, .01338, .00043, .00020, - + .00010, .00043, .00089, - + .13118, .02812, .01170, .00040, .00019, - + .00009, .00040, .00081, - + .12326, .02626, .01035, .00037, .00017, - + .00009, .00037, .00075, - + .11616, .02462, .00923, .00036, .00017, - + .00009, .00035, .00068, - + .10981, .02315, .00830, .00033, .00016, - + .00009, .00033, .00064 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ - + .10408, .02183, .00751, .00030, .00015, - + .00009, .00031, .00060, - + .09885, .02065, .00684, .00028, .00014, - + .00008, .00028, .00056, - + .09408, .01957, .00627, .00027, .00013, - + .00008, .00026, .00053, - + .08972, .01859, .00577, .00026, .00013, - + .00008, .00025, .00050, - + .08573, .01769, .00534, .00024, .00013, - + .00008, .00024, .00046 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + .30286, .06877, .08531, .00086, .00008, - + -.00002, .00067, .00190, - + .25845, .05761, .05703, .00074, .00011, - + -.00002, .00059, .00156, - + .22559, .04954, .04072, .00064, .00013, - + -.00001, .00052, .00130, - + .20023, .04339, .03053, .00056, .00014, - + .00000, .00046, .00109, - + .17976, .03852, .02373, .00048, .00014, - + .00001, .00041, .00097, - + .16294, .03458, .01898, .00043, .00013, - + .00003, .00037, .00087, - + .14880, .03131, .01554, .00041, .00012, - + .00003, .00032, .00075 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ - + .13680, .02855, .01298, .00037, .00012, - + .00004, .00030, .00067, - + .12647, .02622, .01103, .00034, .00011, - + .00004, .00027, .00062, - + .11750, .02419, .00950, .00031, .00010, - + .00004, .00024, .00056, - + .10966, .02243, .00829, .00028, .00010, - + .00004, .00023, .00050, - + .10267, .02089, .00730, .00027, .00009, - + .00004, .00021, .00047, - + .09648, .01953, .00650, .00026, .00009, - + .00004, .00020, .00043, - + .09094, .01831, .00583, .00024, .00008, - + .00004, .00018, .00040 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ - + .08595, .01723, .00527, .00022, .00008, - + .00004, .00017, .00037, - + .08143, .01625, .00479, .00021, .00007, - + .00004, .00016, .00035, - + .07732, .01536, .00438, .00019, .00007, - + .00003, .00015, .00033, - + .07358, .01456, .00403, .00018, .00006, - + .00003, .00014, .00031, - + .07013, .01383, .00372, .00017, .00006, - + .00003, .00013, .00029 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + .26376, .05680, .06410, .00047, .00009, - + .00004, .00046, .00120, - + .22297, .04717, .04207, .00042, .00010, - + .00003, .00040, .00096, - + .19309, .04025, .02961, .00037, .00011, - + .00002, .00035, .00080, - + .17021, .03504, .02196, .00032, .00010, - + .00002, .00030, .00069, - + .15188, .03093, .01692, .00028, .00010, - + .00003, .00026, .00061, - + .13692, .02762, .01343, .00026, .00008, - + .00004, .00023, .00052, - + .12443, .02490, .01093, .00025, .00008, - + .00004, .00021, .00046 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ - + .11390, .02261, .00909, .00021, .00008, - + .00004, .00019, .00041, - + .10485, .02067, .00769, .00020, .00007, - + .00003, .00017, .00037, - + .09704, .01901, .00660, .00018, .00007, - + .00004, .00015, .00035, - + .09021, .01757, .00574, .00016, .00006, - + .00003, .00014, .00032, - + .08422, .01630, .00505, .00015, .00006, - + .00003, .00013, .00028, - + .07889, .01520, .00448, .00014, .00006, - + .00003, .00012, .00026, - + .07412, .01421, .00401, .00013, .00005, - + .00003, .00011, .00023 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ - + .06985, .01333, .00362, .00013, .00005, - + .00003, .00010, .00021, - + .06599, .01254, .00329, .00013, .00005, - + .00002, .00010, .00020, - + .06250, .01183, .00300, .00012, .00004, - + .00002, .00009, .00019, - + .05933, .01118, .00276, .00011, .00004, - + .00002, .00008, .00018, - + .05641, .01060, .00254, .00010, .00004, - + .00002, .00008, .00017 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + .22667, .04629, .04727, .00027, .00007, - + .00004, .00030, .00073, - + .18977, .03809, .03043, .00024, .00007, - + .00003, .00025, .00059, - + .16305, .03225, .02112, .00020, .00007, - + .00003, .00022, .00049, - + .14273, .02789, .01549, .00016, .00007, - + .00002, .00019, .00042, - + .12657, .02448, .01183, .00015, .00007, - + .00003, .00017, .00035, - + .11346, .02175, .00933, .00014, .00006, - + .00003, .00015, .00031, - + .10260, .01950, .00755, .00012, .00006, - + .00002, .00013, .00028 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ - + .09348, .01763, .00625, .00011, .00005, - + .00003, .00012, .00024, - + .08571, .01605, .00527, .00009, .00005, - + .00003, .00010, .00022, - + .07899, .01470, .00451, .00010, .00005, - + .00003, .00009, .00020, - + .07316, .01354, .00391, .00008, .00004, - + .00002, .00009, .00019, - + .06804, .01253, .00343, .00009, .00004, - + .00003, .00008, .00016, - + .06352, .01164, .00304, .00008, .00004, - + .00002, .00007, .00015, - + .05950, .01085, .00272, .00008, .00003, - + .00002, .00007, .00014 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ - + .05591, .01015, .00245, .00007, .00004, - + .00002, .00006, .00013, - + .05268, .00952, .00222, .00006, .00003, - + .00002, .00006, .00012, - + .04976, .00896, .00203, .00006, .00003, - + .00002, .00005, .00011, - + .04712, .00845, .00186, .00005, .00003, - + .00002, .00005, .00010, - + .04470, .00798, .00171, .00005, .00003, - + .00002, .00005, .00010 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + .19218, .03728, .03418, .00018, .00002, - + .00001, .00016, .00045, - + .15933, .03038, .02162, .00016, .00003, - + .00000, .00013, .00037, - + .13580, .02553, .01482, .00014, .00004, - + .00000, .00011, .00029, - + .11802, .02193, .01076, .00013, .00003, - + .00001, .00010, .00024, - + .10403, .01913, .00815, .00011, .00003, - + .00001, .00008, .00020, - + .09277, .01690, .00639, .00009, .00002, - + .00001, .00007, .00019, - + .08346, .01509, .00515, .00007, .00003, - + .00001, .00006, .00016 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ - + .07567, .01358, .00425, .00008, .00002, - + .00001, .00006, .00014, - + .06908, .01231, .00357, .00007, .00002, - + .00001, .00005, .00013, - + .06344, .01124, .00305, .00006, .00002, - + .00001, .00005, .00011, - + .05854, .01031, .00264, .00006, .00002, - + .00001, .00004, .00010, - + .05426, .00951, .00231, .00006, .00002, - + .00001, .00004, .00009, - + .05049, .00880, .00204, .00005, .00002, - + .00001, .00004, .00009, - + .04714, .00818, .00182, .00005, .00002, - + .00001, .00003, .00008 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ - + .04416, .00763, .00164, .00005, .00001, - + .00001, .00003, .00007, - + .04151, .00714, .00148, .00004, .00001, - + .00001, .00003, .00007, - + .03910, .00670, .00135, .00004, .00001, - + .00001, .00003, .00006, - + .03693, .00631, .00124, .00004, .00001, - + .00001, .00003, .00005, - + .03494, .00595, .00114, .00004, .00001, - + .00001, .00003, .00005 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + .16016, .02939, .02404, .00006, .00004, - + .00003, .00011, .00024, - + .13146, .02373, .01495, .00007, .00004, - + .00002, .00010, .00019, - + .11109, .01977, .01011, .00005, .00003, - + .00002, .00008, .00017, - + .09586, .01687, .00727, .00005, .00002, - + .00001, .00006, .00013, - + .08394, .01462, .00547, .00004, .00003, - + .00001, .00006, .00012, - + .07440, .01285, .00426, .00003, .00003, - + .00002, .00005, .00011, - + .06658, .01141, .00342, .00004, .00002, - + .00001, .00005, .00008 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ - + .06009, .01022, .00281, .00002, .00002, - + .00001, .00004, .00008, - + .05460, .00923, .00235, .00003, .00002, - + .00001, .00004, .00007, - + .04993, .00839, .00200, .00002, .00002, - + .00001, .00003, .00006, - + .04589, .00766, .00173, .00002, .00001, - + .00001, .00003, .00006, - + .04238, .00704, .00151, .00002, .00001, - + .00001, .00003, .00005, - + .03930, .00650, .00134, .00001, .00001, - + .00001, .00002, .00005, - + .03658, .00602, .00119, .00002, .00001, - + .00001, .00002, .00005 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ - + .03416, .00560, .00107, .00002, .00001, - + .00001, .00002, .00004, - + .03200, .00523, .00097, .00002, .00001, - + .00001, .00002, .00004, - + .03006, .00489, .00088, .00002, .00001, - + .00001, .00002, .00003, - + .02832, .00459, .00081, .00002, .00001, - + .00001, .00002, .00003, - + .02673, .00432, .00074, .00001, .00001, - + .00001, .00002, .00003 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + .10558, .01734, .01100, .00003, .00000, - + -.00001, .00003, .00008, - + .08488, .01372, .00661, .00002, .00000, - + .00000, .00002, .00005, - + .07046, .01123, .00436, .00002, .00001, - + .00000, .00002, .00004, - + .05986, .00944, .00308, .00002, .00001, - + .00000, .00002, .00004, - + .05172, .00808, .00229, .00001, .00000, - + .00000, .00001, .00003, - + .04530, .00701, .00177, .00001, .00001, - + .00001, .00002, .00003, - + .04010, .00616, .00141, .00001, .00001, - + .00000, .00001, .00002 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ - + .03581, .00546, .00115, .00001, .00000, - + .00000, .00001, .00002, - + .03223, .00489, .00096, .00001, .00000, - + .00000, .00001, .00002, - + .02922, .00440, .00082, .00000, .00001, - + .00000, .00001, .00002, - + .02664, .00399, .00070, .00000, .00000, - + .00000, .00001, .00002, - + .02441, .00364, .00061, .00001, .00000, - + .00000, .00001, .00001, - + .02247, .00334, .00054, .00000, .00000, - + .00000, .00001, .00001, - + .02077, .00307, .00048, .00000, .00000, - + .00000, .00001, .00001 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ - + .01928, .00284, .00043, .00001, .00000, - + .00000, .00001, .00001, - + .01795, .00263, .00039, .00001, .00000, - + .00000, .00001, .00001, - + .01676, .00245, .00035, .00001, .00000, - + .00000, .00001, .00001, - + .01570, .00229, .00032, .00001, .00000, - + .00000, .00001, .00001, - + .01474, .00214, .00030, .00000, .00000, - + .00000, .00001, .00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + .06373, .00928, .00438, .00000, .00000, - + .00000, .00000, .00003, - + .05005, .00718, .00256, .00002, .00000, - + .00000, .00000, .00001, - + .04077, .00578, .00165, .00001, .00000, - + .00000, .00000, .00001, - + .03409, .00478, .00115, .00000, .00000, - + .00000, .00000, .00001, - + .02901, .00403, .00085, .00001, .00000, - + .00000, .00000, .00000, - + .02508, .00345, .00065, .00000, .00000, - + .00000, .00000, .00001, - + .02193, .00300, .00052, .00000, .00000, - + .00000, .00000, .00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ - + .01937, .00263, .00042, .00000, .00000, - + .00000, .00000, .00000, - + .01726, .00233, .00035, .00000, .00000, - + .00000, .00000, .00000, - + .01549, .00208, .00030, .00000, .00000, - + .00000, .00000, .00000, - + .01401, .00187, .00026, .00000, .00000, - + .00000, .00000, .00000, - + .01273, .00169, .00022, .00000, .00000, - + .00000, .00000, .00000, - + .01163, .00154, .00020, .00000, .00000, - + .00000, .00000, .00000, - + .01067, .00141, .00017, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ - + .00983, .00129, .00016, .00000, .00000, - + .00000, .00000, .00000, - + .00909, .00119, .00014, .00000, .00000, - + .00000, .00000, .00000, - + .00844, .00110, .00013, .00000, .00000, - + .00000, .00000, .00000, - + .00785, .00102, .00012, .00000, .00000, - + .00000, .00000, .00000, - + .00733, .00095, .00011, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + .03422, .00437, .00145, .00000, .00000, - + .00000, .00000, .00000, - + .02620, .00330, .00083, .00001, .00000, - + .00000, .00000, .00000, - + .02089, .00260, .00053, .00000, .00000, - + .00000, .00000, .00000, - + .01713, .00211, .00037, .00001, .00000, - + .00000, .00000, .00000, - + .01435, .00175, .00027, .00001, .00000, - + .00000, .00000, .00000, - + .01222, .00148, .00021, .00000, .00000, - + .00000, .00000, .00000, - + .01054, .00127, .00016, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ - + .00920, .00110, .00013, .00000, .00000, - + .00000, .00000, .00000, - + .00811, .00096, .00011, .00000, .00000, - + .00000, .00000, .00000, - + .00720, .00085, .00009, .00000, .00000, - + .00000, .00000, .00000, - + .00644, .00076, .00008, .00000, .00000, - + .00000, .00000, .00000, - + .00580, .00068, .00007, .00000, .00000, - + .00000, .00000, .00000, - + .00525, .00061, .00006, .00000, .00000, - + .00000, .00000, .00000, - + .00478, .00055, .00005, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ - + .00437, .00051, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00401, .00046, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00370, .00042, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00342, .00039, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00317, .00036, .00003, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + .01548, .00170, .00037, .00000, .00000, - + .00000, .00000, .00000, - + .01152, .00125, .00021, .00000, .00000, - + .00000, .00000, .00000, - + .00896, .00096, .00013, .00000, .00000, - + .00000, .00000, .00000, - + .00719, .00076, .00009, .00000, .00000, - + .00000, .00000, .00000, - + .00591, .00062, .00007, .00000, .00000, - + .00000, .00000, .00000, - + .00495, .00052, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00420, .00044, .00004, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ - + .00361, .00037, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00314, .00032, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00276, .00028, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00244, .00025, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00217, .00022, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00195, .00020, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00175, .00018, .00001, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ - + .00159, .00016, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00145, .00014, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00132, .00013, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00121, .00012, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00111, .00011, .00001, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + .00119, .00009, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00081, .00006, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00059, .00004, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00044, .00003, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00034, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00027, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00022, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ - + .00018, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00015, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00013, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00011, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00010, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00008, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00007, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ - + .00006, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00006, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00005, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00004, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00004, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,5,9,0,0,9,9/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - xsave=x -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(75,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7) GO TO 31 - DO 30 K=1,19 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,8 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) -C - x=xsave -C - RETURN - END diff --git a/PDF/spdf/sfms130.F b/PDF/spdf/sfms130.F deleted file mode 100644 index f4375cc4fe4..00000000000 --- a/PDF/spdf/sfms130.F +++ /dev/null @@ -1,1970 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE SFMS130(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) -C -C THIS IS THE alphas=0.130 FIT -- May 1995 -- standard Q^2 range -C -#include "pdf/impdp.inc" -C - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,20),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + .00145, .00341, 8.97173, .70631, .15951, - + .00000, .42112, .70932, - + .00195, .00370, 21.90480, 1.19723, .65448, - + .00000, .91481, 1.20088, - + .00241, .00397, 39.05281, 1.80629, 1.26685, - + .00000, 1.52615, 1.81047, - + .00282, .00421, 59.39211, 2.50449, 1.96787, - + .15991, 2.22633, 2.50914, - + .00321, .00445, 82.46889, 3.28433, 2.75020, - + .99243, 3.00792, 3.28941, - + .00358, .00467, 107.99681, 4.13912, 3.60721, - + 1.87580, 3.86428, 4.14459, - + .00393, .00488, 135.18617, 5.04914, 4.51927, - + 2.81308, 4.77575, 5.05498 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ - + .00427, .00508, 163.95160, 6.01197, 5.48396, - + 3.80070, 5.73991, 6.01815, - + .00460, .00528, 193.94818, 7.01879, 6.49250, - + 4.83005, 6.74796, 7.02529, - + .00491, .00546, 224.90520, 8.06265, 7.53796, - + 5.89456, 7.79297, 8.06945, - + .00521, .00564, 256.61942, 9.13814, 8.61496, - + 6.98912, 8.86953, 9.14523, - + .00551, .00582, 288.94693, 10.24123, 9.71946, - + 8.10991, 9.97364, 10.24859, - + .00579, .00599, 321.78876, 11.36910, 10.84867, - + 9.25427, 11.10246, 11.37672, - + .00607, .00615, 354.90732, 12.51540, 11.99624, - + 10.41604, 12.24968, 12.52328 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ - + .00634, .00632, 388.08878, 13.67410, 13.15614, - + 11.58928, 13.40924, 13.68221, - + .00660, .00647, 421.57944, 14.85103, 14.33423, - + 12.77993, 14.58700, 14.85938, - + .00686, .00662, 455.24307, 16.04232, 15.52661, - + 13.98418, 15.77907, 16.05088, - + .00711, .00677, 488.59973, 17.23502, 16.72036, - + 15.18921, 16.97252, 17.24380, - + .00735, .00692, 522.26788, 18.44496, 17.93132, - + 16.41086, 18.18320, 18.45395 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + .00253, .00457, 8.25009, .66508, .14168, - + .00000, .39140, .66804, - + .00326, .00499, 18.93998, 1.07771, .55863, - + .00000, .80673, 1.08113, - + .00392, .00537, 32.49142, 1.57101, 1.05546, - + .00000, 1.30225, 1.57482, - + .00451, .00573, 48.05289, 2.12156, 1.60902, - + .12561, 1.85471, 2.12572, - + .00507, .00606, 65.26363, 2.72355, 2.21366, - + .77230, 2.45838, 2.72802, - + .00560, .00637, 83.90363, 3.37180, 2.86427, - + 1.44583, 3.10814, 3.37654, - + .00611, .00666, 103.39499, 4.05152, 3.54615, - + 2.14950, 3.78924, 4.05653 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ - + .00659, .00694, 123.69079, 4.76120, 4.25780, - + 2.88091, 4.50019, 4.76645, - + .00705, .00721, 144.55658, 5.49457, 4.99299, - + 3.63404, 5.23473, 5.50005, - + .00749, .00747, 165.81564, 6.24685, 5.74697, - + 4.40443, 5.98810, 6.25254, - + .00792, .00772, 187.34157, 7.01443, 6.51614, - + 5.18873, 6.75670, 7.02033, - + .00833, .00796, 209.04994, 7.79474, 7.29795, - + 5.98455, 7.53797, 7.80083, - + .00873, .00819, 230.88733, 8.58605, 8.09067, - + 6.79032, 8.33020, 8.59233, - + .00911, .00842, 252.70547, 9.38414, 8.89010, - + 7.60195, 9.12914, 9.39059 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ - + .00949, .00864, 274.37265, 10.18504, 9.69227, - + 8.41560, 9.93087, 10.19166, - + .00986, .00885, 296.07019, 10.99321, 10.50165, - + 9.23578, 10.73981, 10.99999, - + .01021, .00906, 317.71695, 11.80612, 11.31571, - + 10.06005, 11.55346, 11.81306, - + .01056, .00926, 339.00198, 12.61497, 12.12568, - + 10.87969, 12.36303, 12.62206, - + .01090, .00945, 360.35056, 13.43110, 12.94287, - + 11.70607, 13.17984, 13.43833 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + .00425, .00612, 7.58296, .62588, .12529, - + .00000, .36358, .62886, - + .00531, .00673, 16.36875, .97032, .47435, - + .00000, .71070, .97364, - + .00626, .00728, 27.01918, 1.36734, .87515, - + .00000, 1.10992, 1.37093, - + .00712, .00779, 38.85864, 1.79884, 1.30987, - + .09816, 1.54331, 1.80268, - + .00793, .00825, 51.62027, 2.26079, 1.77464, - + .59813, 2.00691, 2.26485, - + .00868, .00869, 65.14942, 2.74950, 2.26589, - + 1.10921, 2.49711, 2.75377, - + .00940, .00910, 79.03492, 3.25422, 2.77291, - + 1.63498, 3.00319, 3.25867 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ - + .01008, .00949, 93.26187, 3.77421, 3.29501, - + 2.17406, 3.52441, 3.77883, - + .01073, .00987, 107.67826, 4.30521, 3.82795, - + 2.72240, 4.05656, 4.30999, - + .01136, .01022, 122.17532, 4.84408, 4.36863, - + 3.27718, 4.59649, 4.84901, - + .01196, .01057, 136.67989, 5.38855, 4.91480, - + 3.83633, 5.14197, 5.39363, - + .01253, .01090, 151.14815, 5.93711, 5.46495, - + 4.39850, 5.69146, 5.94232, - + .01309, .01121, 165.55626, 6.48881, 6.01815, - + 4.96289, 6.24405, 6.49415, - + .01363, .01152, 179.81464, 7.04092, 6.57169, - + 5.52689, 6.79699, 7.04638 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ - + .01416, .01182, 193.84564, 7.59092, 7.12304, - + 6.08807, 7.34779, 7.59650, - + .01466, .01210, 207.78363, 8.14221, 7.67561, - + 6.64989, 7.89983, 8.14790, - + .01516, .01238, 221.58186, 8.69324, 8.22787, - + 7.21089, 8.45158, 8.69904, - + .01564, .01265, 235.04161, 9.23805, 8.77387, - + 7.76517, 8.99709, 9.24396, - + .01611, .01292, 248.45462, 9.78478, 9.32173, - + 8.32089, 9.54449, 9.79079 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + .00568, .00726, 7.21520, .60375, .11633, - + .00000, .34810, .60680, - + .00700, .00803, 15.02376, .91246, .42986, - + .00000, .65953, .91580, - + .00818, .00871, 24.24597, 1.26089, .78224, - + .00000, 1.01018, 1.26446, - + .00925, .00932, 34.30429, 1.63382, 1.15852, - + .08475, 1.38500, 1.63760, - + .01024, .00989, 44.98284, 2.02818, 1.55583, - + .51372, 1.78103, 2.03215, - + .01118, .01042, 56.16156, 2.44110, 1.97140, - + .94748, 2.19544, 2.44523, - + .01206, .01093, 67.50828, 2.86377, 2.39646, - + 1.38969, 2.61947, 2.86805 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ - + .01289, .01140, 79.02312, 3.29583, 2.83072, - + 1.83946, 3.05277, 3.30026, - + .01369, .01185, 90.59126, 3.73396, 3.27089, - + 2.29369, 3.49206, 3.73852, - + .01445, .01228, 102.13345, 4.17579, 3.71461, - + 2.75028, 3.93495, 4.18048, - + .01518, .01270, 113.59947, 4.61964, 4.16023, - + 3.20775, 4.37981, 4.62445, - + .01589, .01309, 124.96193, 5.06446, 4.60670, - + 3.66519, 4.82556, 5.06938, - + .01657, .01347, 136.20905, 5.50964, 5.05345, - + 4.12214, 5.27162, 5.51466, - + .01722, .01384, 147.27547, 5.95310, 5.49839, - + 4.57663, 5.71592, 5.95823 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ - + .01785, .01419, 158.10556, 6.39294, 5.93965, - + 5.02684, 6.15656, 6.39817, - + .01847, .01454, 168.81200, 6.83207, 6.38012, - + 5.47575, 6.59645, 6.83739, - + .01907, .01487, 179.36188, 7.26935, 6.81867, - + 5.92226, 7.03445, 7.27475, - + .01964, .01519, 189.60268, 7.70007, 7.25063, - + 6.36177, 7.46586, 7.70556, - + .02021, .01551, 199.76869, 8.13091, 7.68264, - + 6.80094, 7.89736, 8.13649 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + .00694, .00820, 6.96326, .58834, .11023, - + .00000, .33745, .59148, - + .00849, .00910, 14.13319, .87340, .40027, - + .00000, .62526, .87680, - + .00987, .00989, 22.44636, 1.19043, .72137, - + .00000, .94454, 1.19404, - + .01111, .01060, 31.39114, 1.52610, 1.06050, - + .07625, 1.28213, 1.52990, - + .01227, .01125, 40.78522, 1.87798, 1.41544, - + .46054, 1.63570, 1.88195, - + .01335, .01187, 50.53088, 2.24373, 1.78392, - + .84613, 2.00296, 2.24785, - + .01437, .01244, 60.34471, 2.61576, 2.15843, - + 1.23670, 2.37636, 2.62002 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ - + .01533, .01299, 70.23557, 2.99395, 2.53889, - + 1.63170, 2.75580, 2.99834, - + .01625, .01350, 80.11086, 3.37555, 2.92259, - + 2.02857, 3.13856, 3.38006, - + .01713, .01399, 89.90868, 3.75863, 3.30762, - + 2.42566, 3.52272, 3.76325, - + .01797, .01446, 99.59186, 4.14189, 3.69271, - + 2.82183, 3.90699, 4.14662, - + .01878, .01491, 109.14227, 4.52452, 4.07705, - + 3.21645, 4.29057, 4.52935, - + .01956, .01535, 118.55435, 4.90613, 4.46028, - + 3.60923, 4.67307, 4.91106, - + .02031, .01576, 127.77693, 5.28501, 4.84069, - + 3.99857, 5.05280, 5.29003 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ - + .02103, .01617, 136.76628, 5.65962, 5.21676, - + 4.38303, 5.42821, 5.66473, - + .02174, .01656, 145.62187, 6.03257, 5.59110, - + 4.76525, 5.80193, 6.03777, - + .02242, .01693, 154.31879, 6.40295, 5.96279, - + 5.14439, 6.17303, 6.40822, - + .02308, .01730, 162.73064, 6.76678, 6.32789, - + 5.51656, 6.53756, 6.77213, - + .02372, .01765, 171.05791, 7.12987, 6.69220, - + 5.88756, 6.90132, 7.13530 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + .00810, .00902, 6.77247, .57652, .10565, - + .00000, .32936, .57977, - + .00985, .01003, 13.47605, .84415, .37838, - + .00000, .59977, .84764, - + .01140, .01091, 21.13824, 1.13844, .67685, - + .00000, .89634, 1.14213, - + .01280, .01171, 29.29614, 1.44744, .98941, - + .07019, 1.20729, 1.45131, - + .01409, .01244, 37.79176, 1.76920, 1.31429, - + .42275, 1.53075, 1.77322, - + .01531, .01312, 46.54340, 2.10173, 1.64963, - + .77438, 1.86482, 2.10590, - + .01645, .01376, 55.30159, 2.43832, 1.98877, - + 1.12879, 2.20280, 2.44262 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ - + .01752, .01437, 64.08105, 2.77901, 2.33179, - + 1.48562, 2.54476, 2.78343, - + .01855, .01494, 72.80413, 3.12144, 2.67638, - + 1.84273, 2.88836, 3.12597, - + .01953, .01548, 81.42059, 3.46399, 3.02094, - + 2.19873, 3.23201, 3.46864, - + .02047, .01600, 89.90174, 3.80560, 3.36442, - + 2.55275, 3.57464, 3.81035, - + .02137, .01650, 98.23544, 4.14564, 3.70622, - + 2.90430, 3.91564, 4.15049, - + .02223, .01698, 106.42037, 4.48385, 4.04609, - + 3.25324, 4.25475, 4.48878, - + .02307, .01744, 114.41388, 4.81877, 4.38258, - + 3.59822, 4.59053, 4.82379 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ - + .02387, .01789, 122.18080, 5.14911, 4.71442, - + 3.93801, 4.92168, 5.15422, - + .02465, .01831, 129.81091, 5.47726, 5.04399, - + 4.27506, 5.25060, 5.48244, - + .02541, .01873, 137.28435, 5.80244, 5.37053, - + 4.60867, 5.57653, 5.80770, - + .02614, .01913, 144.49228, 6.12121, 5.69060, - + 4.93544, 5.89600, 6.12654, - + .02685, .01952, 151.61221, 6.43875, 6.00939, - + 5.26058, 6.21422, 6.44416 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + .01291, .01216, 6.20156, .54036, .09215, - + .00000, .30504, .54410, - + .01547, .01360, 11.60259, .75851, .31588, - + .00000, .52618, .76249, - + .01772, .01486, 17.50877, .99023, .55217, - + .00000, .76035, .99442, - + .01973, .01598, 23.59314, 1.22739, .79322, - + .05395, .99958, 1.23175, - + .02158, .01701, 29.76331, 1.46923, 1.03850, - + .32220, 1.24326, 1.47376, - + .02331, .01796, 35.97956, 1.71481, 1.28715, - + .58480, 1.49048, 1.71948, - + .02492, .01885, 42.07872, 1.95960, 1.53473, - + .84539, 1.73676, 1.96441 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ - + .02645, .01969, 48.08881, 2.20404, 1.78174, - + 1.10413, 1.98256, 2.20898, - + .02789, .02048, 53.96851, 2.44676, 2.02682, - + 1.35985, 2.22655, 2.45182, - + .02926, .02123, 59.69471, 2.68691, 2.26916, - + 1.61191, 2.46786, 2.69207, - + .03056, .02194, 65.25824, 2.92397, 2.50829, - + 1.85998, 2.70602, 2.92924, - + .03181, .02262, 70.65990, 3.15776, 2.74400, - + 2.10397, 2.94083, 3.16313, - + .03301, .02327, 75.90666, 3.38828, 2.97635, - + 2.34400, 3.17232, 3.39374, - + .03416, .02389, 80.97660, 3.61471, 3.20450, - + 2.57934, 3.39967, 3.62026 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ - + .03527, .02449, 85.85220, 3.83630, 3.42773, - + 2.80931, 3.62213, 3.84194, - + .03634, .02507, 90.59946, 4.05488, 3.64788, - + 3.03580, 3.84154, 4.06060, - + .03737, .02562, 95.20920, 4.27005, 3.86454, - + 3.25844, 4.05751, 4.27586, - + .03837, .02616, 99.61356, 4.47953, 4.07544, - + 3.47501, 4.26774, 4.48541, - + .03934, .02668, 103.93369, 4.68703, 4.28430, - + 3.68924, 4.47596, 4.69298 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + .02034, .01652, 5.65225, .50432, .07968, - + .00000, .28159, .50893, - + .02407, .01858, 9.94245, .67927, .26081, - + .00000, .45986, .68419, - + .02731, .02036, 14.43102, .85896, .44558, - + .00000, .64228, .86416, - + .03020, .02193, 18.90255, 1.03828, .62923, - + .04100, .82392, 1.04372, - + .03283, .02337, 23.31495, 1.21738, .81214, - + .24288, 1.00506, 1.22303, - + .03527, .02469, 27.65916, 1.39603, .99422, - + .43682, 1.18555, 1.40189, - + .03754, .02592, 31.83426, 1.57138, 1.17267, - + .62626, 1.36256, 1.57741 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ - + .03967, .02707, 35.87514, 1.74408, 1.34822, - + .81172, 1.53678, 1.75028, - + .04168, .02815, 39.76421, 1.91344, 1.52022, - + .99269, 1.70755, 1.91980, - + .04358, .02917, 43.49528, 2.07912, 1.68834, - + 1.16900, 1.87453, 2.08562, - + .04538, .03013, 47.07044, 2.24097, 1.85248, - + 1.34068, 2.03761, 2.24761, - + .04710, .03105, 50.49731, 2.39905, 2.01271, - + 1.50787, 2.19683, 2.40582, - + .04875, .03193, 53.78654, 2.55353, 2.16922, - + 1.67085, 2.35240, 2.56043, - + .05032, .03277, 56.92845, 2.70399, 2.32159, - + 1.82927, 2.50388, 2.71100 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ - + .05183, .03357, 59.91586, 2.85003, 2.46945, - + 1.98279, 2.65089, 2.85716, - + .05328, .03434, 62.79673, 2.99304, 2.61419, - + 2.13286, 2.79482, 3.00028, - + .05469, .03509, 65.56800, 3.13284, 2.75565, - + 2.27934, 2.93551, 3.14018, - + .05603, .03580, 68.18784, 3.26795, 2.89234, - + 2.42079, 3.07146, 3.27539, - + .05734, .03649, 70.73832, 3.40100, 3.02691, - + 2.55987, 3.20532, 3.40854 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + .02643, .01989, 5.33300, .48281, .07281, - + .00000, .26801, .48814, - + .03106, .02241, 9.04815, .63501, .23161, - + .00000, .42379, .64074, - + .03507, .02459, 12.83521, .78836, .39040, - + .00000, .58009, .79443, - + .03861, .02650, 16.53288, .93916, .54584, - + .03467, .73340, .94553, - + .04183, .02824, 20.12173, 1.08794, .69870, - + .20442, .88439, 1.09458, - + .04481, .02984, 23.60596, 1.23480, .84922, - + .36568, 1.03323, 1.24168, - + .04756, .03131, 26.91204, 1.37760, .99535, - + .52172, 1.17782, 1.38471 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ - + .05014, .03269, 30.07650, 1.51709, 1.13789, - + .67320, 1.31896, 1.52441, - + .05256, .03398, 33.09121, 1.65286, 1.27648, - + .81988, 1.45626, 1.66038, - + .05484, .03520, 35.95637, 1.78477, 1.41100, - + .96178, 1.58958, 1.79247, - + .05701, .03635, 38.67790, 1.91282, 1.54149, - + 1.09906, 1.71894, 1.92069, - + .05907, .03744, 41.26545, 2.03715, 1.66812, - + 1.23195, 1.84451, 2.04518, - + .06103, .03848, 43.73038, 2.15798, 1.79113, - + 1.36078, 1.96652, 2.16618, - + .06291, .03947, 46.06755, 2.27506, 1.91025, - + 1.48534, 2.08470, 2.28340 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ - + .06470, .04041, 48.27351, 2.38812, 2.02526, - + 1.60544, 2.19882, 2.39661, - + .06643, .04132, 50.38773, 2.49835, 2.13734, - + 1.72231, 2.31004, 2.50697, - + .06809, .04220, 52.40919, 2.60564, 2.24639, - + 1.83587, 2.41828, 2.61439, - + .06969, .04303, 54.30672, 2.70886, 2.35130, - + 1.94505, 2.52241, 2.71773, - + .07123, .04384, 56.14520, 2.81013, 2.45420, - + 2.05200, 2.62456, 2.81912 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + .03179, .02279, 5.10358, .46712, .06809, - + .00000, .25829, .47305, - + .03718, .02571, 8.43961, .60419, .21210, - + .00000, .39915, .61059, - + .04182, .02821, 11.77731, .74043, .35407, - + .00000, .53852, .74725, - + .04591, .03040, 14.98898, .87302, .49153, - + .03066, .67377, .88019, - + .04961, .03239, 18.06856, 1.00268, .62549, - + .18012, .80577, 1.01016, - + .05302, .03421, 21.02767, 1.12970, .75636, - + .32097, .93489, 1.13747, - + .05617, .03588, 23.80894, 1.25238, .88253, - + .45634, 1.05948, 1.26042 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ - + .05910, .03745, 26.44914, 1.37149, 1.00485, - + .58694, 1.18034, 1.37978, - + .06186, .03891, 28.94529, 1.48680, 1.12312, - + .71270, 1.29726, 1.49532, - + .06445, .04028, 31.30086, 1.59826, 1.23733, - + .83374, 1.41022, 1.60699, - + .06690, .04157, 33.52361, 1.70596, 1.34759, - + .95029, 1.51932, 1.71489, - + .06923, .04280, 35.62395, 1.81008, 1.45412, - + 1.06262, 1.62475, 1.81920, - + .07145, .04396, 37.61330, 1.91087, 1.55718, - + 1.17106, 1.72677, 1.92017, - + .07356, .04507, 39.48883, 2.00813, 1.65660, - + 1.27551, 1.82521, 2.01761 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ - + .07558, .04613, 41.24903, 2.10172, 1.75222, - + 1.37584, 1.91991, 2.11136, - + .07752, .04715, 42.92804, 2.19266, 1.84510, - + 1.47314, 2.01190, 2.20245, - + .07938, .04812, 44.52591, 2.28088, 1.93518, - + 1.56739, 2.10114, 2.29082, - + .08117, .04905, 46.01746, 2.36547, 2.02154, - + 1.65769, 2.18669, 2.37555, - + .08290, .04995, 47.45732, 2.44825, 2.10601, - + 1.74591, 2.27039, 2.45847 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + .03673, .02553, 4.91482, .45426, .06446, - + .00000, .25036, .46060, - + .04275, .02879, 7.96518, .57999, .19742, - + .00000, .38003, .58685, - + .04793, .03157, 10.97152, .70361, .32698, - + .00000, .50690, .71092, - + .05247, .03401, 13.83031, .82289, .45133, - + .02774, .62895, .83059, - + .05657, .03620, 16.54461, .93872, .57162, - + .16250, .74720, .94676, - + .06034, .03821, 19.13077, 1.05148, .68838, - + .28866, .86215, 1.05984, - + .06381, .04005, 21.54247, 1.15980, .80032, - + .40926, .97244, 1.16844 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ - + .06704, .04176, 23.81627, 1.26446, .90830, - + .52502, 1.07891, 1.27336, - + .07006, .04336, 25.95245, 1.36532, 1.01223, - + .63599, 1.18144, 1.37448, - + .07291, .04486, 27.95644, 1.46242, 1.11217, - + .74235, 1.28009, 1.47180, - + .07559, .04627, 29.83712, 1.55588, 1.20828, - + .84436, 1.37499, 1.56548, - + .07813, .04761, 31.60490, 1.64591, 1.30080, - + .94233, 1.46638, 1.65571, - + .08055, .04887, 33.27084, 1.73277, 1.39002, - + 1.03661, 1.55453, 1.74277, - + .08285, .05008, 34.83403, 1.81633, 1.47580, - + 1.12710, 1.63930, 1.82652 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ - + .08505, .05122, 36.29396, 1.89648, 1.55805, - + 1.21377, 1.72059, 1.90684, - + .08716, .05232, 37.68100, 1.97414, 1.63772, - + 1.29759, 1.79934, 1.98467, - + .08918, .05337, 38.99577, 2.04930, 1.71479, - + 1.37857, 1.87555, 2.05999, - + .09111, .05438, 40.21697, 2.12115, 1.78846, - + 1.45594, 1.94838, 2.13198, - + .09299, .05535, 41.39225, 2.19130, 1.86036, - + 1.53134, 2.01949, 2.20228 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + .05729, .03676, 4.32079, .41243, .05376, - + .00000, .22540, .42062, - + .06573, .04131, 6.58273, .50617, .15570, - + .00000, .32367, .51510, - + .07288, .04514, 8.70834, .59533, .25158, - + .00000, .41654, .60487, - + .07909, .04845, 10.65358, .67913, .34109, - + .02000, .50348, .68920, - + .08464, .05139, 12.44142, .75870, .42566, - + .11614, .58580, .76923, - + .08969, .05406, 14.09782, .83465, .50609, - + .20431, .66422, .84560, - + .09431, .05649, 15.60198, .90632, .58182, - + .28712, .73813, .91766 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ - + .09857, .05873, 16.98759, .97448, .65368, - + .36533, .80832, .98617, - + .10254, .06081, 18.26130, 1.03922, .72183, - + .43922, .87494, 1.05124, - + .10625, .06274, 19.43187, 1.10070, .78647, - + .50908, .93815, 1.11302, - + .10972, .06455, 20.50929, 1.15913, .84784, - + .57525, .99820, 1.17173, - + .11300, .06624, 21.50360, 1.21476, .90623, - + .63807, 1.05535, 1.22762, - + .11610, .06785, 22.42455, 1.26784, .96191, - + .69785, 1.10986, 1.28096, - + .11904, .06936, 23.27370, 1.31835, 1.01488, - + .75464, 1.16172, 1.33171 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ - + .12182, .07079, 24.05259, 1.36629, 1.06514, - + .80847, 1.21094, 1.37987, - + .12448, .07216, 24.78187, 1.41233, 1.11337, - + .86006, 1.25818, 1.42612, - + .12703, .07346, 25.46301, 1.45648, 1.15963, - + .90948, 1.30349, 1.47048, - + .12945, .07470, 26.08382, 1.49827, 1.20341, - + .95625, 1.34637, 1.51245, - + .13179, .07589, 26.67465, 1.53877, 1.24583, - + 1.00150, 1.38793, 1.55314 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + .08880, .05423, 3.68945, .36591, .04378, - + .00000, .19873, .37669, - + .10026, .06037, 5.29736, .43225, .11930, - + .00000, .27018, .44403, - + .10981, .06545, 6.73290, .49328, .18782, - + .00000, .33537, .50590, - + .11798, .06977, 7.99157, .54910, .24995, - + .01395, .39470, .56242, - + .12520, .07355, 9.10605, .60085, .30722, - + .08025, .44950, .61477, - + .13170, .07694, 10.10534, .64921, .36050, - + .13975, .50060, .66369, - + .13758, .07999, 10.98410, .69396, .40968, - + .19457, .54780, .70892 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ - + .14296, .08277, 11.77089, .73576, .45552, - + .24546, .59183, .75116, - + .14793, .08531, 12.47468, .77481, .49827, - + .29278, .63293, .79062, - + .15252, .08766, 13.10461, .81132, .53821, - + .33686, .67134, .82750, - + .15681, .08984, 13.66985, .84551, .57558, - + .37803, .70729, .86204, - + .16081, .09187, 14.17889, .87762, .61066, - + .41661, .74104, .89447, - + .16458, .09376, 14.63947, .90785, .64369, - + .45287, .77281, .92500, - + .16812, .09554, 15.05374, .93626, .67472, - + .48692, .80267, .95369 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ - + .17146, .09721, 15.42384, .96286, .70380, - + .51882, .83064, .98055, - + .17463, .09879, 15.76315, .98812, .73141, - + .54908, .85720, 1.00606, - + .17764, .10029, 16.07312, 1.01209, .75762, - + .57777, .88240, 1.03027, - + .18050, .10170, 16.34717, 1.03449, .78214, - + .60464, .90597, 1.05289, - + .18324, .10305, 16.60378, 1.05602, .80571, - + .63042, .92862, 1.07463 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + .11432, .06858, 3.30622, .33623, .03830, - + -.00001, .18233, .34918, - + .12775, .07574, 4.59543, .38872, .10048, - + -.00001, .24024, .40286, - + .13882, .08157, 5.70932, .43609, .15572, - + -.00001, .29201, .45121, - + .14819, .08646, 6.65830, .47869, .20493, - + .01109, .33830, .49462, - + .15641, .09071, 7.47751, .51760, .24960, - + .06346, .38041, .53422, - + .16375, .09448, 8.19556, .55347, .29059, - + .10984, .41914, .57071, - + .17033, .09783, 8.81229, .58623, .32795, - + .15207, .45445, .60401 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ - + .17633, .10086, 9.35310, .61647, .36237, - + .19084, .48701, .63475, - + .18182, .10362, 9.82714, .64440, .39413, - + .22653, .51707, .66313, - + .18687, .10614, 10.24289, .67024, .42349, - + .25945, .54486, .68937, - + .19155, .10846, 10.60831, .69418, .45070, - + .28993, .57062, .71369, - + .19591, .11061, 10.93075, .71644, .47602, - + .31825, .59457, .73629, - + .19998, .11261, 11.21683, .73721, .49965, - + .34466, .61692, .75739, - + .20379, .11447, 11.46870, .75655, .52166, - + .36926, .63774, .77701 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ - + .20737, .11620, 11.68827, .77447, .54212, - + .39213, .65706, .79521, - + .21075, .11783, 11.88582, .79136, .56141, - + .41368, .67528, .81236, - + .21395, .11937, 12.06263, .80726, .57958, - + .43399, .69243, .82850, - + .21696, .12081, 12.21381, .82196, .59644, - + .45285, .70832, .84343, - + .21985, .12218, 12.35318, .83601, .61255, - + .47086, .72351, .85769 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + .13644, .08120, 3.02896, .31396, .03459, - + -.00001, .17029, .32885, - + .15130, .08904, 4.12006, .35763, .08824, - + -.00001, .21956, .37385, - + .16343, .09535, 5.03905, .39650, .13518, - + -.00001, .26295, .41379, - + .17363, .10059, 5.80427, .43102, .17646, - + .00933, .30125, .44919, - + .18249, .10510, 6.45123, .46219, .21350, - + .05321, .33570, .48110, - + .19037, .10907, 7.00779, .49061, .24714, - + .09167, .36704, .51019, - + .19738, .11257, 7.47629, .51630, .27750, - + .12638, .39532, .53645 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ - + .20373, .11571, 7.87978, .53980, .30523, - + .15800, .42117, .56046, - + .20952, .11854, 8.22705, .56129, .33059, - + .18687, .44482, .58242, - + .21481, .12112, 8.52597, .58100, .35386, - + .21331, .46650, .60254, - + .21970, .12348, 8.78374, .59910, .37526, - + .23762, .48643, .62102, - + .22422, .12565, 9.00682, .61579, .39502, - + .26006, .50483, .63806, - + .22843, .12765, 9.20088, .63124, .41335, - + .28086, .52187, .65384, - + .23235, .12951, 9.36795, .64550, .43031, - + .30011, .53762, .66839 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ - + .23601, .13122, 9.50977, .65861, .44595, - + .31790, .55213, .68177, - + .23946, .13283, 9.63474, .67088, .46062, - + .33458, .56572, .69429, - + .24272, .13434, 9.74396, .68234, .47436, - + .35021, .57844, .70599, - + .24577, .13574, 9.83363, .69284, .48701, - + .36464, .59012, .71671, - + .24868, .13707, 9.91472, .70281, .49905, - + .37836, .60123, .72689 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + .15628, .09260, 2.81322, .29605, .03183, - + .00000, .16078, .31276, - + .17222, .10091, 3.76659, .33348, .07940, - + .00000, .20392, .35161, - + .18513, .10753, 4.55235, .36642, .12052, - + .00000, .24146, .38569, - + .19590, .11298, 5.19380, .39538, .15632, - + .00812, .27425, .41557, - + .20520, .11762, 5.72621, .42126, .18813, - + .04613, .30344, .44223, - + .21341, .12168, 6.17672, .44467, .21679, - + .07920, .32979, .46632, - + .22070, .12522, 6.54890, .46561, .24243, - + .10881, .35335, .48785 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ - + .22725, .12839, 6.86413, .48461, .26567, - + .13559, .37470, .50736, - + .23319, .13122, 7.13066, .50185, .28679, - + .15990, .39410, .52507, - + .23861, .13379, 7.35587, .51752, .30603, - + .18204, .41175, .54116, - + .24357, .13612, 7.54630, .53181, .32361, - + .20227, .42787, .55582, - + .24816, .13824, 7.70794, .54488, .33975, - + .22084, .44263, .56923, - + .25241, .14020, 7.84576, .55690, .35463, - + .23796, .45623, .58156, - + .25635, .14200, 7.96125, .56789, .36832, - + .25374, .46872, .59284 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ - + .26001, .14365, 8.05622, .57792, .38086, - + .26823, .48013, .60313, - + .26345, .14520, 8.13777, .58723, .39257, - + .28177, .49076, .61269, - + .26669, .14664, 8.20687, .59589, .40348, - + .29439, .50066, .62156, - + .26971, .14797, 8.26045, .60372, .41346, - + .30598, .50967, .62960, - + .27258, .14922, 8.30759, .61113, .42291, - + .31696, .51820, .63720 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + .23590, .13868, 2.16171, .23745, .02396, - + .00000, .13082, .26215, - + .25446, .14758, 2.76970, .25885, .05562, - + .00000, .15801, .28514, - + .26899, .15435, 3.22983, .27695, .08189, - + .00000, .18071, .30440, - + .28075, .15968, 3.57588, .29221, .10395, - + .00507, .19977, .32057, - + .29063, .16404, 3.84121, .30531, .12288, - + .02846, .21612, .33439, - + .29914, .16771, 4.04948, .31671, .13943, - + .04825, .23038, .34639, - + .30648, .17079, 4.20655, .32650, .15378, - + .06551, .24269, .35666 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ - + .31294, .17344, 4.32829, .33504, .16643, - + .08076, .25350, .36562, - + .31865, .17574, 4.42150, .34250, .17762, - + .09428, .26300, .37342, - + .32376, .17773, 4.49152, .34901, .18755, - + .10632, .27139, .38023, - + .32835, .17948, 4.54287, .35472, .19641, - + .11711, .27881, .38619, - + .33248, .18102, 4.57947, .35974, .20434, - + .12681, .28542, .39143, - + .33624, .18239, 4.60458, .36417, .21149, - + .13559, .29132, .39604, - + .33966, .18360, 4.61920, .36804, .21789, - + .14351, .29657, .40007 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ - + .34276, .18466, 4.62450, .37139, .22362, - + .15065, .30120, .40356, - + .34562, .18562, 4.62435, .37438, .22885, - + .15720, .30540, .40667, - + .34826, .18649, 4.61922, .37704, .23362, - + .16321, .30920, .40943, - + .35065, .18724, 4.60760, .37928, .23785, - + .16861, .31251, .41175, - + .35291, .18794, 4.59432, .38133, .24180, - + .17366, .31557, .41388 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + .34870, .20185, 1.60761, .17704, .01738, - + -.00002, .10167, .21403, - + .36659, .20828, 1.96903, .18737, .03734, - + -.00001, .11730, .22529, - + .37973, .21259, 2.20538, .19540, .05298, - + -.00001, .12948, .23387, - + .38971, .21554, 2.35707, .20160, .06543, - + .00293, .13905, .24038, - + .39759, .21762, 2.45432, .20644, .07561, - + .01623, .14674, .24537, - + .40400, .21912, 2.51666, .21027, .08410, - + .02706, .15305, .24928, - + .40916, .22011, 2.55005, .21318, .09113, - + .03618, .15813, .25218 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ - + .41343, .22078, 2.56543, .21544, .09707, - + .04399, .16231, .25438, - + .41697, .22119, 2.56732, .21715, .10211, - + .05069, .16575, .25599, - + .41992, .22139, 2.55924, .21840, .10639, - + .05648, .16857, .25712, - + .42237, .22142, 2.54390, .21928, .11004, - + .06150, .17087, .25785, - + .42441, .22133, 2.52343, .21986, .11317, - + .06590, .17276, .25827, - + .42614, .22113, 2.49945, .22019, .11587, - + .06976, .17430, .25843, - + .42755, .22084, 2.47252, .22030, .11819, - + .07315, .17553, .25836 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ - + .42868, .22047, 2.44299, .22021, .12015, - + .07611, .17648, .25808, - + .42962, .22005, 2.41287, .22000, .12187, - + .07875, .17723, .25767, - + .43040, .21960, 2.38229, .21968, .12335, - + .08111, .17781, .25715, - + .43097, .21908, 2.35033, .21919, .12458, - + .08316, .17818, .25648, - + .43146, .21855, 2.31919, .21867, .12568, - + .08504, .17847, .25578 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + .43156, .24337, 1.36996, .14248, .01413, - + .00001, .08555, .18770, - + .44554, .24571, 1.60928, .14817, .02881, - + .00000, .09594, .19319, - + .45485, .24650, 1.74154, .15205, .03974, - + .00000, .10344, .19666, - + .46118, .24636, 1.80853, .15459, .04804, - + .00201, .10889, .19869, - + .46558, .24567, 1.83713, .15618, .05452, - + .01104, .11293, .19975, - + .46869, .24467, 1.84335, .15713, .05971, - + .01816, .11598, .20015, - + .47073, .24338, 1.83214, .15751, .06381, - + .02399, .11820, .19997 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ - + .47203, .24197, 1.81166, .15751, .06714, - + .02885, .11982, .19942, - + .47275, .24046, 1.78492, .15723, .06984, - + .03291, .12098, .19858, - + .47302, .23888, 1.75418, .15672, .07203, - + .03632, .12177, .19753, - + .47294, .23726, 1.72109, .15603, .07381, - + .03921, .12226, .19633, - + .47257, .23563, 1.68685, .15522, .07526, - + .04168, .12251, .19502, - + .47197, .23401, 1.65231, .15431, .07643, - + .04379, .12258, .19362, - + .47118, .23239, 1.61764, .15332, .07736, - + .04560, .12249, .19214 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ - + .47022, .23075, 1.58301, .15224, .07809, - + .04712, .12226, .19061, - + .46916, .22914, 1.54941, .15114, .07867, - + .04846, .12194, .18908, - + .46802, .22756, 1.51677, .15003, .07914, - + .04962, .12156, .18755, - + .46674, .22598, 1.48451, .14886, .07945, - + .05059, .12107, .18596, - + .46545, .22444, 1.45378, .14771, .07970, - + .05146, .12056, .18441 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + .49642, .27083, 1.24381, .11851, .01198, - + .00000, .07419, .16844, - + .50483, .26869, 1.39643, .12149, .02341, - + .00000, .08131, .17002, - + .50920, .26582, 1.46080, .12301, .03151, - + -.00001, .08598, .17022, - + .51113, .26259, 1.47647, .12353, .03737, - + .00149, .08902, .16950, - + .51148, .25923, 1.46618, .12342, .04175, - + .00805, .09100, .16819, - + .51091, .25589, 1.44264, .12290, .04511, - + .01308, .09226, .16659, - + .50954, .25252, 1.40963, .12204, .04765, - + .01710, .09295, .16471 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ - + .50770, .24924, 1.37291, .12100, .04960, - + .02037, .09326, .16270, - + .50550, .24606, 1.33439, .11982, .05111, - + .02304, .09328, .16060, - + .50306, .24295, 1.29540, .11854, .05225, - + .02523, .09307, .15849, - + .50045, .23994, 1.25683, .11720, .05311, - + .02704, .09271, .15635, - + .49770, .23704, 1.21925, .11584, .05376, - + .02854, .09222, .15422, - + .49489, .23424, 1.18303, .11447, .05423, - + .02980, .09165, .15212, - + .49201, .23154, 1.14811, .11308, .05454, - + .03085, .09100, .15006 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ - + .48906, .22890, 1.11445, .11168, .05473, - + .03171, .09028, .14801, - + .48614, .22636, 1.08255, .11031, .05483, - + .03243, .08954, .14603, - + .48324, .22391, 1.05224, .10896, .05486, - + .03304, .08879, .14410, - + .48027, .22153, 1.02304, .10762, .05480, - + .03353, .08798, .14219, - + .47739, .21925, .99559, .10632, .05472, - + .03396, .08720, .14036 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + .54788, .28796, 1.16251, .10008, .01030, - + .00000, .06503, .15187, - + .54982, .28147, 1.24605, .10126, .01943, - + -.00001, .06981, .15057, - + .54871, .27514, 1.26090, .10129, .02557, - + -.00001, .07255, .14847, - + .54586, .26911, 1.24196, .10060, .02980, - + .00114, .07402, .14592, - + .54202, .26338, 1.20736, .09950, .03283, - + .00605, .07470, .14316, - + .53767, .25800, 1.16665, .09818, .03505, - + .00976, .07491, .14033, - + .53290, .25286, 1.12225, .09668, .03663, - + .01262, .07469, .13746 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ - + .52798, .24802, 1.07803, .09512, .03778, - + .01491, .07426, .13466, - + .52298, .24345, 1.03499, .09352, .03859, - + .01673, .07366, .13192, - + .51794, .23912, .99371, .09193, .03916, - + .01819, .07295, .12925, - + .51294, .23502, .95450, .09035, .03952, - + .01937, .07216, .12668, - + .50798, .23113, .91753, .08879, .03974, - + .02033, .07132, .12420, - + .50313, .22743, .88284, .08727, .03984, - + .02111, .07045, .12182, - + .49837, .22389, .85019, .08577, .03986, - + .02173, .06957, .11952 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ - + .49364, .22050, .81939, .08431, .03978, - + .02224, .06866, .11731, - + .48906, .21728, .79066, .08291, .03966, - + .02265, .06776, .11519, - + .48460, .21419, .76375, .08155, .03950, - + .02298, .06688, .11317, - + .48018, .21121, .73828, .08022, .03929, - + .02322, .06598, .11121, - + .47592, .20838, .71454, .07895, .03907, - + .02343, .06512, .10933 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + .59696, .29838, 1.08309, .08167, .00858, - + -.00002, .05522, .13266, - + .59016, .28694, 1.09774, .08134, .01553, - + -.00001, .05789, .12884, - + .58187, .27686, 1.06781, .08019, .01993, - + .00000, .05899, .12486, - + .57302, .26782, 1.02038, .07863, .02279, - + .00082, .05921, .12091, - + .56396, .25965, .96770, .07689, .02472, - + .00435, .05890, .11708, - + .55504, .25221, .91569, .07509, .02603, - + .00691, .05830, .11346, - + .54624, .24531, .86515, .07322, .02689, - + .00886, .05751, .11001 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ - + .53771, .23897, .81806, .07142, .02745, - + .01036, .05660, .10674, - + .52946, .23309, .77450, .06968, .02776, - + .01153, .05563, .10369, - + .52152, .22761, .73437, .06798, .02793, - + .01244, .05463, .10081, - + .51386, .22250, .69747, .06635, .02798, - + .01315, .05363, .09807, - + .50650, .21771, .66361, .06480, .02793, - + .01372, .05263, .09551, - + .49943, .21321, .63254, .06331, .02781, - + .01416, .05164, .09310, - + .49261, .20897, .60392, .06188, .02765, - + .01450, .05068, .09080 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ - + .48601, .20493, .57745, .06051, .02744, - + .01475, .04973, .08864, - + .47968, .20112, .55311, .05921, .02721, - + .01495, .04882, .08658, - + .47358, .19753, .53063, .05798, .02696, - + .01510, .04794, .08462, - + .46765, .19408, .50970, .05678, .02669, - + .01518, .04707, .08275, - + .46199, .19082, .49038, .05564, .02642, - + .01524, .04624, .08100 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + .63159, .29953, 1.00799, .06659, .00710, - + -.00003, .04657, .11446, - + .61584, .28388, .97004, .06530, .01244, - + -.00002, .04778, .10903, - + .60049, .27069, .90969, .06348, .01562, - + -.00003, .04786, .10400, - + .58581, .25930, .84524, .06152, .01755, - + .00059, .04732, .09936, - + .57186, .24922, .78353, .05951, .01877, - + .00316, .04648, .09510, - + .55875, .24025, .72728, .05757, .01954, - + .00500, .04549, .09120, - + .54630, .23208, .67591, .05564, .01996, - + .00634, .04442, .08762 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ - + .53458, .22466, .62999, .05384, .02018, - + .00735, .04333, .08432, - + .52352, .21790, .58891, .05214, .02025, - + .00813, .04224, .08127, - + .51305, .21168, .55210, .05053, .02021, - + .00872, .04117, .07845, - + .50315, .20590, .51904, .04902, .02010, - + .00915, .04014, .07583, - + .49378, .20053, .48930, .04759, .01994, - + .00948, .03914, .07340, - + .48486, .19556, .46248, .04625, .01975, - + .00974, .03819, .07113, - + .47637, .19091, .43817, .04498, .01952, - + .00992, .03727, .06901 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ - + .46825, .18652, .41601, .04377, .01927, - + .01004, .03638, .06703, - + .46055, .18240, .39587, .04263, .01902, - + .01013, .03554, .06518, - + .45322, .17851, .37746, .04154, .01876, - + .01019, .03473, .06344, - + .44612, .17483, .36053, .04053, .01849, - + .01021, .03396, .06178, - + .43938, .17135, .34503, .03958, .01822, - + .01022, .03323, .06022 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + .65359, .29370, .92960, .05398, .00584, - + -.00001, .03885, .09726, - + .62904, .27475, .85340, .05217, .00987, - + .00000, .03905, .09100, - + .60694, .25923, .77385, .05009, .01214, - + -.00001, .03846, .08552, - + .58690, .24609, .70071, .04799, .01344, - + .00045, .03751, .08072, - + .56853, .23468, .63607, .04596, .01418, - + .00231, .03641, .07644, - + .55171, .22467, .58004, .04406, .01461, - + .00361, .03528, .07260, - + .53609, .21567, .53101, .04227, .01478, - + .00453, .03413, .06914 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ - + .52166, .20760, .48845, .04060, .01481, - + .00521, .03302, .06603, - + .50826, .20028, .45132, .03906, .01475, - + .00573, .03195, .06320, - + .49573, .19362, .41879, .03763, .01462, - + .00610, .03093, .06062, - + .48401, .18751, .39010, .03630, .01446, - + .00637, .02996, .05824, - + .47304, .18186, .36470, .03504, .01426, - + .00656, .02905, .05607, - + .46273, .17665, .34212, .03387, .01403, - + .00670, .02819, .05408, - + .45296, .17181, .32189, .03282, .01381, - + .00680, .02737, .05220 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ - + .44370, .16727, .30369, .03179, .01356, - + .00686, .02660, .05048, - + .43497, .16303, .28730, .03083, .01332, - + .00689, .02587, .04888, - + .42670, .15906, .27249, .02994, .01309, - + .00690, .02518, .04737, - + .41879, .15530, .25898, .02909, .01285, - + .00689, .02452, .04596, - + .41131, .15177, .24669, .02830, .01262, - + .00688, .02390, .04464 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + .66431, .28276, .84653, .04336, .00474, - + -.00001, .03197, .08132, - + .63153, .26127, .74452, .04130, .00777, - + -.00002, .03156, .07481, - + .60331, .24403, .65460, .03916, .00939, - + -.00002, .03062, .06937, - + .57848, .22974, .57878, .03712, .01026, - + .00031, .02949, .06470, - + .55631, .21746, .51526, .03520, .01070, - + .00169, .02831, .06068, - + .53635, .20682, .46221, .03348, .01090, - + .00260, .02718, .05712, - + .51811, .19738, .41729, .03187, .01095, - + .00327, .02607, .05398 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ - + .50146, .18898, .37923, .03041, .01089, - + .00374, .02504, .05117, - + .48618, .18142, .34668, .02907, .01076, - + .00407, .02406, .04866, - + .47205, .17460, .31865, .02784, .01060, - + .00432, .02315, .04640, - + .45893, .16838, .29435, .02671, .01042, - + .00449, .02230, .04435, - + .44676, .16266, .27310, .02567, .01022, - + .00459, .02151, .04247, - + .43541, .15741, .25441, .02470, .01001, - + .00466, .02077, .04075, - + .42477, .15256, .23784, .02381, .00981, - + .00472, .02007, .03917 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ - + .41473, .14803, .22313, .02297, .00960, - + .00475, .01941, .03771, - + .40530, .14383, .20999, .02220, .00939, - + .00476, .01880, .03636, - + .39642, .13991, .19818, .02148, .00920, - + .00475, .01823, .03512, - + .38796, .13621, .18754, .02080, .00900, - + .00473, .01769, .03395, - + .37999, .13276, .17790, .02016, .00881, - + .00469, .01719, .03286 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + .66501, .26806, .76016, .03445, .00382, - + -.00002, .02597, .06684, - + .62480, .24477, .64287, .03232, .00608, - + -.00001, .02518, .06056, - + .59113, .22650, .54934, .03031, .00722, - + -.00002, .02409, .05541, - + .56229, .21151, .47509, .02840, .00778, - + .00025, .02295, .05116, - + .53691, .19883, .41540, .02670, .00804, - + .00123, .02181, .04752, - + .51441, .18793, .36705, .02518, .00813, - + .00189, .02075, .04436, - + .49410, .17834, .32712, .02382, .00808, - + .00236, .01975, .04161 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ - + .47576, .16989, .29396, .02258, .00797, - + .00269, .01883, .03920, - + .45909, .16234, .26613, .02146, .00783, - + .00292, .01799, .03704, - + .44381, .15554, .24250, .02044, .00768, - + .00307, .01721, .03511, - + .42975, .14939, .22223, .01951, .00750, - + .00317, .01648, .03339, - + .41678, .14378, .20475, .01866, .00732, - + .00323, .01581, .03183, - + .40477, .13864, .18955, .01786, .00714, - + .00328, .01521, .03041, - + .39351, .13393, .17622, .01715, .00696, - + .00329, .01463, .02911 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ - + .38297, .12955, .16448, .01650, .00679, - + .00329, .01410, .02791, - + .37314, .12549, .15406, .01589, .00663, - + .00329, .01360, .02681, - + .36394, .12172, .14477, .01532, .00646, - + .00327, .01315, .02580, - + .35520, .11820, .13642, .01479, .00630, - + .00325, .01271, .02486, - + .34701, .11491, .12891, .01429, .00615, - + .00323, .01230, .02398 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + .65683, .25071, .67279, .02701, .00304, - + .00005, .02080, .05405, - + .61006, .22645, .54900, .02502, .00469, - + .00002, .01982, .04824, - + .57187, .20766, .45698, .02318, .00547, - + .00003, .01870, .04364, - + .53971, .19245, .38718, .02156, .00583, - + .00019, .01760, .03986, - + .51183, .17974, .33292, .02009, .00594, - + .00091, .01656, .03672, - + .48739, .16889, .29007, .01884, .00596, - + .00139, .01564, .03399, - + .46562, .15941, .25544, .01766, .00588, - + .00169, .01477, .03169 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ - + .44613, .15111, .22718, .01664, .00577, - + .00190, .01400, .02965, - + .42852, .14376, .20383, .01574, .00564, - + .00205, .01328, .02786, - + .41250, .13719, .18424, .01492, .00550, - + .00215, .01264, .02627, - + .39787, .13125, .16766, .01418, .00534, - + .00222, .01204, .02486, - + .38445, .12587, .15352, .01349, .00518, - + .00225, .01151, .02359, - + .37207, .12097, .14132, .01286, .00504, - + .00227, .01102, .02245, - + .36055, .11649, .13069, .01233, .00490, - + .00228, .01056, .02140 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ - + .34986, .11233, .12139, .01178, .00475, - + .00227, .01014, .02046, - + .33991, .10850, .11322, .01129, .00461, - + .00225, .00975, .01960, - + .33058, .10496, .10598, .01086, .00449, - + .00223, .00938, .01878, - + .32179, .10166, .09953, .01047, .00437, - + .00221, .00905, .01802, - + .31357, .09859, .09375, .01010, .00425, - + .00218, .00874, .01732 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + .64065, .23200, .58715, .02115, .00225, - + -.00014, .01625, .04297, - + .58852, .20729, .46345, .01928, .00347, - + -.00015, .01527, .03782, - + .54674, .18842, .37639, .01765, .00404, - + -.00013, .01425, .03381, - + .51212, .17334, .31289, .01624, .00425, - + .00002, .01328, .03060, - + .48246, .16081, .26492, .01500, .00432, - + .00056, .01240, .02795, - + .45675, .15021, .22778, .01394, .00432, - + .00091, .01162, .02570, - + .43402, .14108, .19840, .01301, .00421, - + .00114, .01090, .02378 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ - + .41382, .13310, .17477, .01219, .00411, - + .00129, .01026, .02214, - + .39575, .12606, .15547, .01145, .00400, - + .00140, .00969, .02070, - + .37940, .11981, .13951, .01081, .00388, - + .00147, .00917, .01943, - + .36454, .11421, .12615, .01022, .00376, - + .00151, .00870, .01828, - + .35100, .10916, .11484, .00969, .00364, - + .00153, .00828, .01726, - + .33855, .10457, .10517, .00923, .00352, - + .00154, .00789, .01634, - + .32708, .10038, .09681, .00877, .00341, - + .00154, .00753, .01554 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ - + .31640, .09653, .08957, .00837, .00330, - + .00153, .00721, .01479, - + .30650, .09298, .08323, .00802, .00320, - + .00152, .00691, .01411, - + .29730, .08971, .07763, .00768, .00310, - + .00151, .00663, .01351, - + .28866, .08667, .07266, .00736, .00300, - + .00149, .00637, .01294, - + .28060, .08385, .06823, .00707, .00290, - + .00147, .00613, .01241 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + .61804, .21189, .50473, .01606, .00178, - + -.00004, .01267, .03361, - + .56155, .18741, .38629, .01448, .00265, - + -.00002, .01170, .02917, - + .51709, .16893, .30663, .01312, .00301, - + -.00003, .01078, .02580, - + .48072, .15429, .25038, .01196, .00313, - + .00007, .00994, .02317, - + .44992, .14226, .20887, .01098, .00315, - + .00044, .00919, .02097, - + .42343, .13218, .17743, .01016, .00310, - + .00067, .00855, .01915, - + .40028, .12349, .15296, .00941, .00302, - + .00083, .00798, .01759 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ - + .37985, .11599, .13355, .00877, .00293, - + .00093, .00746, .01628, - + .36164, .10941, .11791, .00820, .00283, - + .00100, .00700, .01514, - + .34534, .10357, .10511, .00769, .00274, - + .00104, .00659, .01414, - + .33058, .09836, .09447, .00724, .00264, - + .00106, .00623, .01326, - + .31715, .09370, .08553, .00685, .00254, - + .00107, .00590, .01247, - + .30492, .08949, .07796, .00648, .00244, - + .00107, .00560, .01176, - + .29363, .08564, .07147, .00617, .00236, - + .00107, .00534, .01114 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ - + .28321, .08212, .06586, .00588, .00228, - + .00106, .00509, .01056, - + .27361, .07890, .06099, .00561, .00220, - + .00105, .00486, .01004, - + .26470, .07593, .05671, .00536, .00213, - + .00104, .00464, .00958, - + .25637, .07317, .05293, .00512, .00205, - + .00102, .00445, .00914, - + .24862, .07062, .04958, .00490, .00199, - + .00100, .00428, .00875 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + .58965, .19166, .42772, .01211, .00134, - + -.00003, .00966, .02584, - + .53008, .16777, .31802, .01077, .00195, - + -.00004, .00879, .02215, - + .48387, .14997, .24702, .00967, .00221, - + -.00003, .00800, .01937, - + .44655, .13604, .19835, .00872, .00226, - + .00004, .00732, .01722, - + .41526, .12469, .16325, .00796, .00224, - + .00031, .00672, .01548, - + .38864, .11519, .13706, .00730, .00220, - + .00049, .00620, .01404, - + .36545, .10711, .11702, .00673, .00214, - + .00058, .00574, .01284 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ - + .34518, .10014, .10134, .00624, .00206, - + .00064, .00535, .01181, - + .32726, .09407, .08885, .00580, .00198, - + .00069, .00499, .01091, - + .31125, .08873, .07872, .00542, .00190, - + .00072, .00468, .01015, - + .29683, .08398, .07038, .00509, .00182, - + .00073, .00440, .00948, - + .28380, .07972, .06342, .00479, .00175, - + .00073, .00415, .00888, - + .27196, .07588, .05755, .00451, .00169, - + .00073, .00393, .00835, - + .26109, .07242, .05256, .00429, .00162, - + .00072, .00372, .00788 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ - + .25111, .06925, .04828, .00408, .00156, - + .00071, .00354, .00744, - + .24194, .06634, .04457, .00387, .00150, - + .00070, .00337, .00706, - + .23348, .06368, .04134, .00367, .00144, - + .00071, .00321, .00672, - + .22558, .06122, .03848, .00349, .00139, - + .00069, .00307, .00641, - + .21825, .05896, .03595, .00333, .00134, - + .00067, .00293, .00612 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + .55671, .17150, .35716, .00892, .00101, - + -.00001, .00728, .01953, - + .49518, .14866, .25840, .00785, .00144, - + -.00001, .00653, .01650, - + .44816, .13180, .19669, .00697, .00159, - + .00000, .00588, .01430, - + .41060, .11872, .15543, .00624, .00162, - + .00004, .00532, .01262, - + .37939, .10818, .12629, .00567, .00160, - + .00024, .00483, .01125, - + .35306, .09941, .10492, .00515, .00155, - + .00034, .00444, .01014, - + .33032, .09198, .08878, .00473, .00150, - + .00041, .00409, .00920 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ - + .31055, .08562, .07630, .00436, .00144, - + .00045, .00378, .00843, - + .29318, .08010, .06644, .00404, .00138, - + .00047, .00351, .00776, - + .27774, .07527, .05852, .00376, .00132, - + .00050, .00327, .00718, - + .26392, .07099, .05207, .00352, .00125, - + .00051, .00306, .00667, - + .25146, .06717, .04672, .00330, .00119, - + .00051, .00288, .00624, - + .24017, .06374, .04224, .00311, .00115, - + .00050, .00272, .00585, - + .22995, .06063, .03845, .00292, .00110, - + .00050, .00257, .00550 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ - + .22052, .05783, .03521, .00277, .00105, - + .00048, .00243, .00518, - + .21186, .05527, .03241, .00264, .00101, - + .00048, .00231, .00489, - + .20388, .05293, .02998, .00252, .00098, - + .00048, .00219, .00464, - + .19649, .05077, .02786, .00240, .00093, - + .00046, .00209, .00440, - + .18966, .04880, .02598, .00229, .00089, - + .00045, .00199, .00418 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + .52016, .15185, .29381, .00640, .00079, - + .00005, .00540, .01451, - + .45781, .13035, .20711, .00559, .00106, - + .00005, .00477, .01212, - + .41085, .11466, .15465, .00492, .00115, - + .00005, .00425, .01038, - + .37367, .10259, .12037, .00438, .00116, - + .00008, .00381, .00908, - + .34313, .09290, .09662, .00394, .00114, - + .00019, .00345, .00803, - + .31752, .08491, .07948, .00356, .00110, - + .00026, .00313, .00719, - + .29558, .07820, .06671, .00326, .00104, - + .00030, .00287, .00648 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ - + .27662, .07248, .05694, .00299, .00099, - + .00033, .00263, .00591, - + .26003, .06752, .04928, .00276, .00094, - + .00035, .00244, .00543, - + .24537, .06321, .04317, .00256, .00090, - + .00035, .00227, .00500, - + .23231, .05940, .03823, .00239, .00085, - + .00035, .00211, .00462, - + .22059, .05603, .03418, .00224, .00081, - + .00034, .00198, .00430, - + .21004, .05302, .03079, .00209, .00077, - + .00034, .00186, .00402, - + .20044, .05030, .02794, .00198, .00074, - + .00033, .00175, .00375 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ - + .19166, .04784, .02552, .00188, .00070, - + .00033, .00165, .00353, - + .18365, .04560, .02343, .00178, .00068, - + .00032, .00156, .00333, - + .17632, .04356, .02163, .00168, .00066, - + .00031, .00148, .00314, - + .16954, .04169, .02005, .00158, .00063, - + .00031, .00141, .00297, - + .16328, .03997, .01866, .00149, .00060, - + .00031, .00134, .00283 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + .48090, .13323, .23815, .00463, .00054, - + .00001, .00389, .01058, - + .41895, .11324, .16385, .00397, .00074, - + .00002, .00340, .00871, - + .37279, .09882, .12007, .00344, .00080, - + .00001, .00299, .00741, - + .33665, .08781, .09216, .00307, .00080, - + .00003, .00266, .00641, - + .30720, .07905, .07313, .00273, .00078, - + .00012, .00239, .00564, - + .28268, .07187, .05961, .00248, .00074, - + .00018, .00216, .00501, - + .26183, .06588, .04965, .00224, .00070, - + .00020, .00196, .00451 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ - + .24391, .06079, .04209, .00205, .00067, - + .00022, .00180, .00407, - + .22831, .05642, .03624, .00189, .00064, - + .00024, .00166, .00372, - + .21461, .05261, .03162, .00175, .00060, - + .00023, .00153, .00341, - + .20249, .04927, .02788, .00161, .00056, - + .00023, .00142, .00314, - + .19165, .04633, .02484, .00149, .00054, - + .00023, .00132, .00292, - + .18189, .04370, .02231, .00140, .00051, - + .00023, .00124, .00272, - + .17306, .04133, .02019, .00132, .00049, - + .00023, .00117, .00254 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ - + .16503, .03921, .01839, .00125, .00046, - + .00022, .00109, .00238, - + .15771, .03729, .01685, .00117, .00043, - + .00022, .00103, .00224, - + .15103, .03553, .01552, .00110, .00041, - + .00020, .00097, .00211, - + .14485, .03392, .01437, .00105, .00040, - + .00020, .00092, .00200, - + .13917, .03245, .01335, .00099, .00038, - + .00020, .00087, .00189 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + .44001, .11559, .19006, .00324, .00038, - + .00003, .00278, .00754, - + .37939, .09733, .12774, .00274, .00051, - + .00002, .00238, .00615, - + .33470, .08429, .09202, .00240, .00052, - + .00002, .00206, .00518, - + .30011, .07442, .06971, .00214, .00052, - + .00003, .00183, .00443, - + .27218, .06660, .05475, .00189, .00050, - + .00008, .00161, .00388, - + .24907, .06024, .04422, .00170, .00047, - + .00011, .00146, .00343, - + .22956, .05495, .03657, .00153, .00045, - + .00013, .00131, .00307 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ - + .21287, .05049, .03084, .00140, .00042, - + .00014, .00119, .00278, - + .19842, .04667, .02642, .00129, .00040, - + .00015, .00110, .00251, - + .18581, .04337, .02295, .00118, .00038, - + .00014, .00100, .00229, - + .17467, .04049, .02017, .00109, .00036, - + .00014, .00092, .00211, - + .16475, .03794, .01791, .00102, .00034, - + .00014, .00086, .00195, - + .15589, .03568, .01605, .00095, .00032, - + .00013, .00080, .00180, - + .14790, .03366, .01449, .00088, .00030, - + .00013, .00075, .00169 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ - + .14064, .03184, .01317, .00083, .00029, - + .00013, .00070, .00158, - + .13405, .03020, .01204, .00078, .00027, - + .00013, .00066, .00148, - + .12805, .02870, .01108, .00073, .00025, - + .00012, .00063, .00140, - + .12250, .02734, .01024, .00070, .00024, - + .00012, .00059, .00131, - + .11740, .02610, .00950, .00067, .00023, - + .00011, .00055, .00123 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + .39819, .09919, .14914, .00220, .00031, - + .00004, .00195, .00525, - + .33978, .08269, .09797, .00184, .00036, - + .00004, .00165, .00426, - + .29723, .07103, .06939, .00159, .00037, - + .00003, .00142, .00355, - + .26461, .06228, .05188, .00139, .00036, - + .00004, .00124, .00301, - + .23845, .05540, .04033, .00122, .00034, - + .00007, .00109, .00262, - + .21702, .04983, .03232, .00107, .00033, - + .00009, .00098, .00231, - + .19897, .04524, .02655, .00098, .00031, - + .00009, .00088, .00203 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ - + .18368, .04138, .02226, .00088, .00028, - + .00010, .00080, .00183, - + .17050, .03810, .01898, .00080, .00026, - + .00010, .00072, .00166, - + .15903, .03527, .01643, .00073, .00025, - + .00010, .00066, .00152, - + .14893, .03281, .01440, .00068, .00024, - + .00010, .00061, .00139, - + .13999, .03064, .01274, .00063, .00023, - + .00010, .00057, .00127, - + .13204, .02872, .01139, .00058, .00022, - + .00010, .00053, .00118, - + .12487, .02702, .01026, .00056, .00021, - + .00009, .00049, .00108 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ - + .11840, .02549, .00931, .00052, .00019, - + .00010, .00046, .00101, - + .11255, .02411, .00850, .00050, .00018, - + .00010, .00043, .00095, - + .10721, .02287, .00781, .00047, .00018, - + .00009, .00041, .00087, - + .10232, .02172, .00721, .00044, .00017, - + .00009, .00038, .00083, - + .09785, .02069, .00668, .00040, .00016, - + .00008, .00036, .00079 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + .35637, .08418, .11504, .00144, .00020, - + .00002, .00134, .00363, - + .30093, .06947, .07388, .00119, .00025, - + .00003, .00113, .00287, - + .26098, .05917, .05149, .00101, .00026, - + .00003, .00096, .00236, - + .23066, .05151, .03802, .00086, .00026, - + .00003, .00084, .00199, - + .20652, .04555, .02928, .00077, .00025, - + .00006, .00075, .00169, - + .18689, .04074, .02329, .00065, .00023, - + .00007, .00066, .00150, - + .17047, .03680, .01902, .00059, .00022, - + .00007, .00059, .00132 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ - + .15663, .03351, .01587, .00053, .00020, - + .00008, .00053, .00118, - + .14477, .03071, .01348, .00047, .00019, - + .00009, .00049, .00107, - + .13448, .02832, .01163, .00044, .00018, - + .00008, .00044, .00097, - + .12548, .02625, .01016, .00041, .00017, - + .00008, .00041, .00088, - + .11755, .02444, .00898, .00037, .00016, - + .00008, .00038, .00080, - + .11050, .02284, .00800, .00034, .00015, - + .00008, .00035, .00075, - + .10418, .02142, .00720, .00033, .00014, - + .00007, .00033, .00069 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ - + .09850, .02015, .00652, .00031, .00014, - + .00008, .00031, .00064, - + .09338, .01901, .00594, .00028, .00013, - + .00008, .00028, .00060, - + .08872, .01798, .00545, .00026, .00012, - + .00007, .00026, .00056, - + .08446, .01704, .00502, .00025, .00011, - + .00007, .00025, .00052, - + .08057, .01619, .00465, .00024, .00011, - + .00006, .00024, .00049 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + .31534, .07072, .08731, .00103, .00009, - + -.00003, .00084, .00244, - + .26356, .05780, .05498, .00083, .00013, - + -.00001, .00070, .00190, - + .22668, .04884, .03774, .00070, .00014, - + -.00002, .00060, .00153, - + .19891, .04225, .02760, .00059, .00013, - + -.00001, .00052, .00130, - + .17696, .03713, .02109, .00054, .00012, - + .00001, .00044, .00111, - + .15925, .03305, .01666, .00047, .00012, - + .00002, .00039, .00097, - + .14455, .02971, .01354, .00042, .00011, - + .00003, .00035, .00086 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ - + .13219, .02694, .01125, .00038, .00010, - + .00003, .00031, .00075, - + .12165, .02460, .00953, .00036, .00010, - + .00003, .00028, .00067, - + .11257, .02260, .00820, .00032, .00009, - + .00003, .00026, .00061, - + .10466, .02087, .00715, .00029, .00008, - + .00003, .00024, .00055, - + .09772, .01937, .00630, .00026, .00008, - + .00003, .00022, .00051, - + .09158, .01805, .00561, .00023, .00007, - + .00003, .00020, .00048, - + .08608, .01688, .00504, .00023, .00007, - + .00003, .00018, .00043 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ - + .08116, .01584, .00456, .00022, .00006, - + .00003, .00017, .00040, - + .07674, .01491, .00415, .00020, .00006, - + .00003, .00016, .00037, - + .07273, .01406, .00380, .00019, .00006, - + .00003, .00014, .00035, - + .06907, .01330, .00350, .00018, .00006, - + .00003, .00013, .00033, - + .06574, .01261, .00324, .00017, .00005, - + .00002, .00013, .00031 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + .27543, .05845, .06477, .00059, .00010, - + .00003, .00059, .00156, - + .22769, .04730, .03998, .00050, .00010, - + .00003, .00047, .00122, - + .19413, .03965, .02708, .00042, .00010, - + .00002, .00038, .00099, - + .16908, .03404, .01959, .00036, .00009, - + .00003, .00033, .00083, - + .14947, .02974, .01485, .00031, .00008, - + .00003, .00028, .00071, - + .13371, .02634, .01167, .00027, .00007, - + .00002, .00025, .00060, - + .12076, .02356, .00944, .00024, .00007, - + .00003, .00022, .00053 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ - + .10990, .02127, .00782, .00024, .00007, - + .00003, .00019, .00047, - + .10070, .01934, .00660, .00021, .00006, - + .00003, .00017, .00042, - + .09282, .01770, .00566, .00018, .00006, - + .00003, .00016, .00037, - + .08598, .01629, .00493, .00017, .00005, - + .00002, .00015, .00033, - + .07998, .01506, .00434, .00016, .00005, - + .00003, .00013, .00030, - + .07469, .01399, .00386, .00015, .00005, - + .00002, .00012, .00028, - + .07001, .01305, .00346, .00013, .00004, - + .00002, .00011, .00026 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ - + .06580, .01220, .00313, .00013, .00004, - + .00002, .00010, .00024, - + .06203, .01145, .00284, .00012, .00004, - + .00002, .00009, .00022, - + .05863, .01078, .00260, .00012, .00003, - + .00002, .00009, .00021, - + .05556, .01017, .00239, .00010, .00004, - + .00002, .00009, .00019, - + .05276, .00962, .00221, .00010, .00003, - + .00002, .00008, .00018 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + .23735, .04768, .04709, .00034, .00008, - + .00004, .00039, .00098, - + .19415, .03819, .02850, .00027, .00008, - + .00004, .00031, .00075, - + .16402, .03174, .01904, .00024, .00007, - + .00002, .00026, .00061, - + .14179, .02706, .01365, .00019, .00006, - + .00002, .00021, .00051, - + .12451, .02349, .01027, .00018, .00006, - + .00003, .00018, .00042, - + .11074, .02068, .00802, .00016, .00005, - + .00002, .00016, .00036, - + .09945, .01840, .00647, .00014, .00005, - + .00003, .00014, .00032 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ - + .09009, .01653, .00534, .00011, .00005, - + .00002, .00012, .00028, - + .08217, .01496, .00450, .00011, .00004, - + .00002, .00011, .00025, - + .07541, .01364, .00385, .00010, .00004, - + .00002, .00009, .00023, - + .06959, .01251, .00334, .00009, .00003, - + .00002, .00009, .00021, - + .06451, .01153, .00294, .00008, .00003, - + .00002, .00008, .00018, - + .06004, .01067, .00261, .00008, .00003, - + .00002, .00008, .00016, - + .05608, .00992, .00234, .00008, .00003, - + .00002, .00007, .00015 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ - + .05256, .00925, .00211, .00007, .00003, - + .00002, .00006, .00014, - + .04941, .00866, .00192, .00007, .00003, - + .00001, .00006, .00013, - + .04656, .00813, .00175, .00007, .00002, - + .00001, .00006, .00012, - + .04400, .00765, .00161, .00006, .00002, - + .00001, .00005, .00010, - + .04168, .00722, .00149, .00005, .00002, - + .00001, .00005, .00009 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + .20188, .03842, .03353, .00024, .00003, - + .00001, .00022, .00062, - + .16328, .03045, .01994, .00019, .00003, - + .00001, .00017, .00047, - + .13671, .02510, .01316, .00017, .00003, - + .00001, .00014, .00037, - + .11730, .02124, .00936, .00013, .00003, - + .00000, .00012, .00030, - + .10235, .01832, .00700, .00011, .00002, - + .00001, .00010, .00025, - + .09047, .01603, .00545, .00010, .00003, - + .00001, .00009, .00023, - + .08083, .01419, .00438, .00008, .00002, - + .00001, .00007, .00019 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ - + .07285, .01269, .00360, .00008, .00002, - + .00000, .00006, .00016, - + .06614, .01144, .00303, .00008, .00001, - + .00001, .00005, .00015, - + .06046, .01039, .00259, .00007, .00002, - + .00001, .00005, .00013, - + .05557, .00949, .00225, .00007, .00002, - + .00001, .00005, .00012, - + .05132, .00872, .00197, .00007, .00001, - + .00001, .00004, .00011, - + .04760, .00804, .00175, .00006, .00001, - + .00000, .00003, .00009, - + .04433, .00746, .00157, .00006, .00001, - + .00000, .00003, .00008 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ - + .04142, .00693, .00141, .00005, .00001, - + .00000, .00003, .00008, - + .03883, .00647, .00128, .00005, .00001, - + .00001, .00003, .00007, - + .03652, .00606, .00117, .00004, .00001, - + .00000, .00003, .00007, - + .03441, .00569, .00108, .00004, .00001, - + .00001, .00002, .00006, - + .03250, .00535, .00099, .00004, .00001, - + .00001, .00002, .00006 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + .16881, .03032, .02320, .00009, .00004, - + .00004, .00014, .00037, - + .13497, .02378, .01355, .00008, .00003, - + .00003, .00011, .00027, - + .11197, .01942, .00885, .00007, .00003, - + .00002, .00009, .00021, - + .09528, .01632, .00624, .00007, .00003, - + .00002, .00007, .00016, - + .08255, .01398, .00465, .00005, .00002, - + .00002, .00006, .00015, - + .07252, .01216, .00360, .00006, .00002, - + .00002, .00006, .00010, - + .06443, .01071, .00289, .00004, .00002, - + .00001, .00004, .00010 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ - + .05777, .00953, .00237, .00003, .00002, - + .00001, .00004, .00009, - + .05221, .00855, .00199, .00004, .00001, - + .00001, .00004, .00008, - + .04752, .00773, .00170, .00003, .00001, - + .00001, .00003, .00007, - + .04349, .00703, .00147, .00003, .00001, - + .00001, .00003, .00006, - + .04002, .00643, .00129, .00002, .00001, - + .00001, .00003, .00006, - + .03701, .00592, .00114, .00001, .00001, - + .00001, .00002, .00005, - + .03432, .00546, .00102, .00003, .00001, - + .00001, .00002, .00005 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ - + .03197, .00507, .00092, .00002, .00001, - + .00001, .00002, .00004, - + .02988, .00471, .00084, .00002, .00001, - + .00001, .00002, .00004, - + .02800, .00440, .00076, .00002, .00001, - + .00001, .00002, .00003, - + .02632, .00412, .00070, .00002, .00001, - + .00001, .00002, .00003, - + .02480, .00387, .00064, .00002, .00001, - + .00001, .00002, .00003 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + .11210, .01794, .01023, .00004, .00001, - + .00000, .00004, .00011, - + .08751, .01374, .00580, .00003, .00001, - + .00000, .00003, .00008, - + .07118, .01102, .00371, .00002, .00000, - + .00000, .00003, .00006, - + .05958, .00910, .00259, .00001, .00000, - + .00000, .00002, .00005, - + .05085, .00769, .00192, .00002, .00001, - + .00000, .00002, .00004, - + .04410, .00661, .00148, .00001, .00000, - + .00000, .00001, .00003, - + .03872, .00575, .00118, .00001, .00001, - + .00000, .00001, .00002 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ - + .03434, .00506, .00097, .00001, .00001, - + .00000, .00001, .00002, - + .03074, .00450, .00081, .00001, .00000, - + .00000, .00001, .00002, - + .02771, .00403, .00069, .00001, .00000, - + .00000, .00001, .00002, - + .02516, .00364, .00060, .00000, .00000, - + .00000, .00001, .00002, - + .02296, .00330, .00052, .00000, .00000, - + .00000, .00001, .00002, - + .02106, .00302, .00046, .00001, .00000, - + .00000, .00001, .00001, - + .01940, .00277, .00041, .00001, .00000, - + .00000, .00001, .00001 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ - + .01795, .00255, .00037, .00001, .00000, - + .00000, .00001, .00001, - + .01667, .00236, .00034, .00000, .00000, - + .00000, .00001, .00001, - + .01554, .00219, .00031, .00000, .00000, - + .00000, .00001, .00001, - + .01452, .00203, .00028, .00000, .00000, - + .00000, .00001, .00001, - + .01360, .00190, .00026, .00000, .00000, - + .00000, .00001, .00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + .06818, .00965, .00390, .00001, .00000, - + .00000, .00001, .00003, - + .05187, .00721, .00217, .00000, .00000, - + -.00001, .00001, .00003, - + .04129, .00566, .00137, .00001, .00000, - + -.00001, .00000, .00002, - + .03395, .00459, .00096, .00000, .00000, - + .00000, .00000, .00001, - + .02853, .00382, .00071, .00001, .00000, - + .00000, .00000, .00001, - + .02439, .00324, .00055, .00001, .00000, - + .00000, .00000, .00000, - + .02114, .00279, .00044, .00000, .00000, - + .00000, .00000, .00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ - + .01853, .00242, .00036, .00000, .00000, - + .00000, .00000, .00001, - + .01641, .00213, .00030, .00000, .00000, - + .00000, .00000, .00000, - + .01465, .00189, .00025, .00000, .00000, - + .00000, .00000, .00000, - + .01317, .00169, .00022, .00000, .00000, - + .00000, .00000, .00000, - + .01192, .00152, .00019, .00000, .00000, - + .00000, .00000, .00000, - + .01085, .00138, .00017, .00000, .00000, - + .00000, .00000, .00000, - + .00992, .00126, .00015, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ - + .00911, .00115, .00014, .00000, .00000, - + .00000, .00000, .00000, - + .00840, .00106, .00012, .00000, .00000, - + .00000, .00000, .00000, - + .00778, .00097, .00011, .00000, .00000, - + .00000, .00000, .00000, - + .00722, .00090, .00010, .00000, .00000, - + .00000, .00000, .00000, - + .00673, .00084, .00009, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + .03695, .00456, .00123, .00000, .00000, - + .00000, .00000, .00001, - + .02730, .00331, .00068, .00001, .00000, - + .00000, .00000, .00000, - + .02123, .00254, .00043, .00000, .00000, - + .00000, .00000, .00000, - + .01711, .00203, .00030, .00000, .00000, - + .00000, .00000, .00000, - + .01412, .00166, .00022, .00000, .00000, - + .00000, .00000, .00000, - + .01188, .00138, .00017, .00000, .00000, - + .00000, .00000, .00000, - + .01015, .00117, .00014, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ - + .00879, .00101, .00011, .00000, .00000, - + .00000, .00000, .00000, - + .00768, .00088, .00010, .00000, .00000, - + .00000, .00000, .00000, - + .00678, .00077, .00008, .00000, .00000, - + .00000, .00000, .00000, - + .00604, .00068, .00007, .00000, .00000, - + .00000, .00000, .00000, - + .00541, .00061, .00006, .00000, .00000, - + .00000, .00000, .00000, - + .00488, .00054, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00442, .00049, .00005, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ - + .00403, .00045, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00369, .00041, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00339, .00037, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00312, .00034, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00289, .00032, .00003, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + .01691, .00179, .00029, .00000, .00000, - + .00000, .00000, .00000, - + .01209, .00126, .00017, .00000, .00000, - + .00000, .00000, .00000, - + .00914, .00094, .00011, .00000, .00000, - + .00000, .00000, .00000, - + .00720, .00073, .00008, .00000, .00000, - + .00000, .00000, .00000, - + .00582, .00059, .00006, .00000, .00000, - + .00000, .00000, .00000, - + .00481, .00048, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00404, .00040, .00004, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ - + .00344, .00034, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00297, .00029, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00259, .00025, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00227, .00022, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00202, .00019, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00180, .00017, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00161, .00015, .00001, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ - + .00146, .00014, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00132, .00013, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00120, .00011, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00110, .00010, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00101, .00010, .00001, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + .00134, .00009, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00087, .00006, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00061, .00004, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00045, .00003, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00034, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00027, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00021, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ - + .00017, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00014, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00012, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00010, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00009, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00008, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00006, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ - + .00006, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00005, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00004, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00004, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00003, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,5,9,0,0,9,9/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - xsave=x -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(80,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7) GO TO 31 - DO 30 K=1,19 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,19 - 40 F(I,nx,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-DINT(RM) - M=1+IDINT(RM) - DO 60 I=1,8 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) -C - x=xsave -C - RETURN - END diff --git a/PDF/spdf/sfmsap.F b/PDF/spdf/sfmsap.F deleted file mode 100644 index 01680c77f6c..00000000000 --- a/PDF/spdf/sfmsap.F +++ /dev/null @@ -1,1981 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:12 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:41 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFMSAP(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) - -C THIS IS THE NEW "Aprime" FIT -- Feb 1995 -- standard Q^2 range -C -#include "pdf/impdp.inc" -C - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,20),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + 0.00341, 0.00574, 16.34894, 1.36777, 0.16849, - + 0.00000, 0.74209, 1.37043, - + 0.00380, 0.00601, 27.84977, 1.71293, 0.53041, - + 0.00000, 1.09672, 1.71625, - + 0.00417, 0.00625, 41.61470, 2.11989, 0.95188, - + 0.00000, 1.51192, 2.12382, - + 0.00452, 0.00647, 57.12130, 2.58001, 1.42481, - + 0.29549, 1.97933, 2.58449, - + 0.00485, 0.00669, 74.36945, 3.09151, 1.94783, - + 0.85447, 2.49742, 3.09651, - + 0.00516, 0.00689, 93.12980, 3.65043, 2.51725, - + 1.43583, 3.06235, 3.65592, - + 0.00546, 0.00708, 113.16151, 4.25147, 3.12793, - + 2.05929, 3.66894, 4.25743 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ - + 0.00576, 0.00727, 134.27341, 4.89014, 3.77551, - + 2.71844, 4.31273, 4.89653, - + 0.00604, 0.00744, 156.31604, 5.56261, 4.45626, - + 3.40991, 4.98997, 5.56941, - + 0.00631, 0.00762, 179.17664, 6.26585, 5.16723, - + 4.13084, 5.69768, 6.27305, - + 0.00658, 0.00778, 202.77608, 6.99762, 5.90626, - + 4.87917, 6.43365, 7.00520, - + 0.00683, 0.00794, 227.00273, 7.75517, 6.67063, - + 5.65226, 7.19516, 7.76312, - + 0.00708, 0.00810, 251.47612, 8.53016, 7.45208, - + 6.44193, 7.97389, 8.53846, - + 0.00733, 0.00825, 276.50598, 9.32807, 8.25610, - + 7.25370, 8.77535, 9.33670 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ - + 0.00756, 0.00840, 301.98294, 10.14641, 9.08025, - + 8.08518, 9.59707, 10.15537, - + 0.00780, 0.00854, 327.44116, 10.97447, 9.91385, - + 8.92575, 10.42836, 10.98375, - + 0.00802, 0.00868, 353.43365, 11.82398, 10.76864, - + 9.78716, 11.28094, 11.83356, - + 0.00825, 0.00882, 379.29434, 12.67963, 11.62935, - + 10.65419, 12.13954, 12.68951, - + 0.00846, 0.00895, 405.52954, 13.55245, 12.50701, - + 11.53788, 13.01519, 13.56261 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + 0.00523, 0.00746, 14.27491, 1.20378, 0.14390, - + 0.00000, 0.64930, 1.20653, - + 0.00579, 0.00782, 23.56232, 1.48695, 0.44209, - + 0.00000, 0.94077, 1.49013, - + 0.00630, 0.00815, 34.37032, 1.81410, 0.78224, - + 0.00000, 1.27513, 1.81768, - + 0.00679, 0.00845, 46.26783, 2.17756, 1.15717, - + 0.23398, 1.64495, 2.18150, - + 0.00725, 0.00874, 59.24736, 2.57556, 1.56547, - + 0.67185, 2.04869, 2.57984, - + 0.00769, 0.00901, 73.12711, 3.00465, 2.00394, - + 1.12063, 2.48302, 3.00924, - + 0.00811, 0.00927, 87.72483, 3.46052, 2.46842, - + 1.59600, 2.94370, 3.46542 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ - + 0.00851, 0.00952, 102.90147, 3.93963, 2.95547, - + 2.09293, 3.42725, 3.94481, - + 0.00890, 0.00976, 118.55226, 4.43904, 3.46226, - + 2.60888, 3.93080, 4.44449, - + 0.00928, 0.00999, 134.60143, 4.95651, 3.98662, - + 3.14173, 4.45214, 4.96221, - + 0.00965, 0.01021, 150.99817, 5.49039, 4.52695, - + 3.69000, 4.98964, 5.49633, - + 0.01000, 0.01042, 167.66873, 6.03869, 5.08132, - + 4.25181, 5.54136, 6.04487, - + 0.01034, 0.01063, 184.35077, 6.59534, 5.64372, - + 4.82121, 6.10124, 6.60174, - + 0.01068, 0.01083, 201.27243, 7.16452, 6.21833, - + 5.40243, 6.67348, 7.17113 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ - + 0.01100, 0.01103, 218.36198, 7.74447, 6.80344, - + 5.99379, 7.25634, 7.75130, - + 0.01132, 0.01122, 235.30188, 8.32752, 7.39141, - + 6.58770, 7.84216, 8.33455, - + 0.01163, 0.01140, 252.48384, 8.92230, 7.99087, - + 7.19280, 8.43958, 8.92952, - + 0.01193, 0.01158, 269.45328, 9.51785, 8.59091, - + 7.79822, 9.03767, 9.52526, - + 0.01223, 0.01176, 286.56522, 10.12224, 9.19958, - + 8.41204, 9.64448, 10.12983 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + 0.00790, 0.00970, 12.46120, 1.05878, 0.12275, - + 0.00000, 0.56794, 1.06166, - + 0.00869, 0.01019, 19.92904, 1.29013, 0.36761, - + 0.00000, 0.80661, 1.29328, - + 0.00942, 0.01064, 28.37716, 1.55193, 0.64110, - + 0.00000, 1.07475, 1.55533, - + 0.01010, 0.01105, 37.46199, 1.83766, 0.93712, - + 0.18454, 1.36608, 1.84129, - + 0.01074, 0.01144, 47.18013, 2.14581, 1.25452, - + 0.52621, 1.67926, 2.14965, - + 0.01135, 0.01180, 57.39457, 2.47355, 1.59067, - + 0.87124, 2.01158, 2.47759, - + 0.01194, 0.01215, 67.97319, 2.81751, 1.94234, - + 1.23218, 2.35975, 2.82173 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ - + 0.01250, 0.01248, 78.81964, 3.17500, 2.30695, - + 1.60521, 2.72113, 3.17940, - + 0.01304, 0.01280, 89.86458, 3.54389, 2.68244, - + 1.98850, 3.09362, 3.54845, - + 0.01356, 0.01311, 101.06064, 3.92255, 3.06727, - + 2.38056, 3.47565, 3.92727, - + 0.01406, 0.01340, 112.37846, 4.30986, 3.46036, - + 2.78041, 3.86613, 4.31474, - + 0.01455, 0.01369, 123.77215, 4.70446, 3.86038, - + 3.18676, 4.26369, 4.70947, - + 0.01502, 0.01396, 135.06305, 5.10196, 4.26301, - + 3.59536, 4.66400, 5.10711, - + 0.01547, 0.01423, 146.42036, 5.50559, 4.67150, - + 4.00946, 5.07029, 5.51088 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ - + 0.01592, 0.01448, 157.79880, 5.91415, 5.08467, - + 4.42794, 5.48138, 5.91957, - + 0.01635, 0.01473, 168.98354, 6.32219, 5.49709, - + 4.84542, 5.89181, 6.32772, - + 0.01677, 0.01498, 180.25227, 6.73607, 5.91515, - + 5.26827, 6.30799, 6.74172, - + 0.01718, 0.01521, 191.29652, 7.14800, 6.33107, - + 5.68878, 6.72211, 7.15377, - + 0.01759, 0.01544, 202.36566, 7.56387, 6.75077, - + 6.11285, 7.14008, 7.56975 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + 0.01001, 0.01132, 11.50687, 0.98175, 0.11177, - + 0.00000, 0.52504, 0.98476, - + 0.01098, 0.01190, 18.06482, 1.18683, 0.32958, - + 0.00000, 0.73695, 1.19005, - + 0.01187, 0.01243, 25.36090, 1.41606, 0.56981, - + 0.00000, 0.97209, 1.41947, - + 0.01269, 0.01292, 33.09897, 1.66362, 0.82706, - + 0.16028, 1.22486, 1.66720, - + 0.01347, 0.01338, 41.28057, 1.92820, 1.10035, - + 0.45517, 1.49413, 1.93194, - + 0.01422, 0.01382, 49.79235, 2.20736, 1.38742, - + 0.75036, 1.77755, 2.21125, - + 0.01492, 0.01423, 58.52721, 2.49822, 1.68553, - + 1.05691, 2.07231, 2.50225 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ - + 0.01560, 0.01463, 67.40930, 2.79855, 1.99255, - + 1.37159, 2.37625, 2.80271, - + 0.01625, 0.01501, 76.38609, 3.10659, 2.30680, - + 1.69293, 2.68764, 3.11088, - + 0.01688, 0.01537, 85.42310, 3.42106, 2.62706, - + 2.01977, 3.00523, 3.42546, - + 0.01748, 0.01571, 94.50066, 3.74108, 2.95251, - + 2.35136, 3.32818, 3.74560, - + 0.01807, 0.01605, 103.58522, 4.06556, 3.28209, - + 2.68669, 3.65542, 4.07019, - + 0.01863, 0.01637, 112.53505, 4.39093, 3.61228, - + 3.02230, 3.98339, 4.39566, - + 0.01918, 0.01669, 121.49236, 4.71996, 3.94586, - + 3.36100, 4.31488, 4.72479 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ - + 0.01972, 0.01699, 130.42348, 5.05172, 4.28194, - + 3.70191, 4.64897, 5.05664, - + 0.02023, 0.01728, 139.15791, 5.38174, 4.61608, - + 4.04064, 4.98121, 5.38675, - + 0.02074, 0.01757, 147.92311, 5.71536, 4.95363, - + 4.38254, 5.31696, 5.72047, - + 0.02123, 0.01784, 156.47362, 6.04622, 5.28824, - + 4.72131, 5.64984, 6.05141, - + 0.02171, 0.01811, 165.01198, 6.37922, 5.62483, - + 5.06187, 5.98479, 6.38450 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + 0.01181, 0.01262, 10.87302, 0.93026, 0.10455, - + 0.00000, 0.49651, 0.93338, - + 0.01293, 0.01329, 16.84599, 1.11830, 0.30481, - + 0.00000, 0.69108, 1.12161, - + 0.01395, 0.01389, 23.41261, 1.32664, 0.52370, - + 0.00000, 0.90505, 1.33011, - + 0.01490, 0.01445, 30.30828, 1.54994, 0.75629, - + 0.14487, 1.13332, 1.55355, - + 0.01580, 0.01497, 37.53857, 1.78706, 1.00176, - + 0.41022, 1.37490, 1.79081, - + 0.01665, 0.01546, 45.00551, 2.03581, 1.25810, - + 0.67418, 1.62771, 2.03968, - + 0.01746, 0.01593, 52.61781, 2.29365, 1.52290, - + 0.94686, 1.88927, 2.29765 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ - + 0.01824, 0.01637, 60.31244, 2.55865, 1.79431, - + 1.22542, 2.15769, 2.56275, - + 0.01898, 0.01680, 68.04700, 2.82928, 2.07089, - + 1.50863, 2.43151, 2.83348, - + 0.01970, 0.01720, 75.79476, 3.10447, 2.35163, - + 1.79552, 2.70967, 3.10877, - + 0.02039, 0.01760, 83.54190, 3.38349, 2.63586, - + 2.08548, 2.99148, 3.38790, - + 0.02105, 0.01797, 91.26199, 3.66545, 2.92270, - + 2.37771, 3.27606, 3.66995, - + 0.02170, 0.01834, 98.83516, 3.94725, 3.20911, - + 2.66918, 3.56032, 3.95183, - + 0.02232, 0.01869, 106.38724, 4.23137, 3.49760, - + 2.96244, 3.84678, 4.23603 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ - + 0.02293, 0.01903, 113.89106, 4.51705, 3.78743, - + 3.25677, 4.13468, 4.52179, - + 0.02351, 0.01936, 121.20264, 4.80043, 4.07475, - + 3.54838, 4.42017, 4.80525, - + 0.02409, 0.01968, 128.51881, 5.08622, 4.36429, - + 3.84200, 4.70797, 5.09111, - + 0.02464, 0.01999, 135.63156, 5.36890, 4.65057, - + 4.13215, 4.99258, 5.37387, - + 0.02519, 0.02029, 142.71542, 5.65280, 4.93790, - + 4.42319, 5.27832, 5.65783 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + 0.01342, 0.01374, 10.40444, 0.89200, 0.09924, - + 0.00000, 0.47540, 0.89525, - + 0.01466, 0.01447, 15.95537, 1.06768, 0.28676, - + 0.00000, 0.65738, 1.07109, - + 0.01580, 0.01514, 22.00158, 1.26097, 0.49028, - + 0.00000, 0.85611, 1.26452, - + 0.01686, 0.01575, 28.30171, 1.46691, 0.70523, - + 0.13386, 1.06685, 1.47060, - + 0.01786, 0.01633, 34.86451, 1.68451, 0.93092, - + 0.37817, 1.28875, 1.68832, - + 0.01881, 0.01687, 41.60317, 1.91176, 1.16552, - + 0.62002, 1.51991, 1.91568, - + 0.01971, 0.01738, 48.43763, 2.14637, 1.40686, - + 0.86884, 1.75811, 2.15039 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ - + 0.02057, 0.01787, 55.31372, 2.38660, 1.65331, - + 1.12207, 2.00164, 2.39072, - + 0.02139, 0.01834, 62.19605, 2.63112, 1.90360, - + 1.37864, 2.24923, 2.63533, - + 0.02219, 0.01878, 69.06330, 2.87899, 2.15685, - + 1.63773, 2.49997, 2.88330, - + 0.02295, 0.01921, 75.90525, 3.12961, 2.41250, - + 1.89882, 2.75327, 3.13400, - + 0.02369, 0.01962, 82.70053, 3.38218, 2.66981, - + 2.16123, 3.00836, 3.38665, - + 0.02440, 0.02002, 89.34396, 3.63396, 2.92605, - + 2.42227, 3.26252, 3.63850, - + 0.02509, 0.02040, 95.95007, 3.88723, 3.18355, - + 2.68429, 3.51804, 3.89185 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ - + 0.02576, 0.02078, 102.49614, 4.14133, 3.44166, - + 2.94668, 3.77428, 4.14602, - + 0.02641, 0.02114, 108.85563, 4.39283, 3.69698, - + 3.20606, 4.02781, 4.39759, - + 0.02704, 0.02148, 115.20495, 4.64598, 3.95378, - + 3.46671, 4.28290, 4.65081, - + 0.02765, 0.02182, 121.36076, 4.89588, 4.20715, - + 3.72377, 4.53465, 4.90077, - + 0.02825, 0.02215, 127.47897, 5.14642, 4.46102, - + 3.98114, 4.78696, 5.15137 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + 0.01982, 0.01792, 9.06611, 0.78170, 0.08426, - + 0.00000, 0.41502, 0.78550, - + 0.02157, 0.01891, 13.46304, 0.92319, 0.23655, - + 0.00000, 0.56221, 0.92713, - + 0.02318, 0.01981, 18.11430, 1.07546, 0.39816, - + 0.00000, 0.71942, 1.07954, - + 0.02466, 0.02064, 22.84342, 1.23470, 0.56562, - + 0.10422, 0.88300, 1.23889, - + 0.02605, 0.02141, 27.66872, 1.40031, 0.73860, - + 0.29241, 1.05249, 1.40460, - + 0.02736, 0.02213, 32.53346, 1.57082, 0.91583, - + 0.47583, 1.22655, 1.57523, - + 0.02861, 0.02282, 37.38685, 1.74464, 1.09579, - + 0.66212, 1.40361, 1.74914 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ - + 0.02979, 0.02347, 42.19742, 1.92058, 1.27740, - + 0.84947, 1.58254, 1.92516, - + 0.03093, 0.02409, 46.94717, 2.09777, 1.45985, - + 1.03725, 1.76251, 2.10244, - + 0.03202, 0.02469, 51.62756, 2.27566, 1.64264, - + 1.22497, 1.94298, 2.28041, - + 0.03306, 0.02525, 56.23737, 2.45390, 1.82548, - + 1.41241, 2.12364, 2.45873, - + 0.03407, 0.02580, 60.76658, 2.63203, 2.00793, - + 1.59918, 2.30405, 2.63693, - + 0.03504, 0.02632, 65.14653, 2.80813, 2.18811, - + 1.78342, 2.48231, 2.81311, - + 0.03597, 0.02683, 69.46220, 2.98401, 2.36784, - + 1.96697, 2.66021, 2.98905 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ - + 0.03688, 0.02732, 73.70121, 3.15924, 2.54674, - + 2.14949, 2.83738, 3.16435, - + 0.03776, 0.02779, 77.78007, 3.33145, 2.72243, - + 2.32861, 3.01142, 3.33662, - + 0.03861, 0.02825, 81.82326, 3.50378, 2.89807, - + 2.50751, 3.18550, 3.50901, - + 0.03944, 0.02869, 85.70834, 3.67278, 3.07024, - + 2.68279, 3.35616, 3.67806, - + 0.04025, 0.02912, 89.54416, 3.84130, 3.24180, - + 2.85731, 3.52628, 3.84664 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + 0.02910, 0.02346, 7.88212, 0.68264, 0.07127, - + 0.00000, 0.36145, 0.68732, - + 0.03156, 0.02480, 11.32634, 0.79541, 0.19399, - + 0.00000, 0.47949, 0.80028, - + 0.03380, 0.02602, 14.86166, 0.91404, 0.32122, - + 0.00000, 0.60268, 0.91908, - + 0.03586, 0.02713, 18.36563, 1.03571, 0.45047, - + 0.08043, 0.72836, 1.04091, - + 0.03778, 0.02816, 21.86448, 1.16019, 0.58176, - + 0.22407, 0.85644, 1.16554, - + 0.03960, 0.02913, 25.32497, 1.28651, 0.71427, - + 0.36186, 0.98603, 1.29199, - + 0.04131, 0.03004, 28.71812, 1.41360, 0.84703, - + 0.49995, 1.11612, 1.41921 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ - + 0.04294, 0.03091, 32.02872, 1.54070, 0.97937, - + 0.63714, 1.24599, 1.54643, - + 0.04449, 0.03173, 35.25054, 1.66732, 1.11085, - + 0.77311, 1.37518, 1.67317, - + 0.04598, 0.03252, 38.38342, 1.79316, 1.24122, - + 0.90764, 1.50342, 1.79911, - + 0.04740, 0.03327, 41.43144, 1.91808, 1.37039, - + 1.04069, 1.63058, 1.92414, - + 0.04876, 0.03399, 44.39192, 2.04184, 1.49814, - + 1.17207, 1.75645, 2.04800, - + 0.05007, 0.03468, 47.22102, 2.16314, 1.62321, - + 1.30056, 1.87974, 2.16940, - + 0.05134, 0.03534, 49.98155, 2.28337, 1.74701, - + 1.42758, 2.00186, 2.28972 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ - + 0.05256, 0.03598, 52.66763, 2.40231, 1.86933, - + 1.55294, 2.12258, 2.40874, - + 0.05374, 0.03660, 55.22485, 2.51831, 1.98855, - + 1.67506, 2.24029, 2.52483, - + 0.05489, 0.03719, 57.74058, 2.63370, 2.10701, - + 1.79626, 2.35729, 2.64030, - + 0.05600, 0.03777, 60.13393, 2.74607, 2.22231, - + 1.91418, 2.47121, 2.75275, - + 0.05707, 0.03833, 62.48022, 2.85749, 2.33655, - + 2.03091, 2.58412, 2.86425 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + 0.03635, 0.02756, 7.24898, 0.62902, 0.06443, - + 0.00000, 0.33273, 0.63441, - + 0.03934, 0.02916, 10.21210, 0.72709, 0.17204, - + 0.00000, 0.43588, 0.73273, - + 0.04206, 0.03060, 13.19847, 0.82885, 0.28204, - + 0.00000, 0.54203, 0.83470, - + 0.04454, 0.03192, 16.11250, 0.93199, 0.39245, - + 0.06872, 0.64904, 0.93805, - + 0.04687, 0.03314, 18.98394, 1.03647, 0.50346, - + 0.19063, 0.75699, 1.04271, - + 0.04905, 0.03429, 21.79053, 1.14156, 0.61449, - + 0.30646, 0.86525, 1.14798, - + 0.05111, 0.03537, 24.51313, 1.24645, 0.72482, - + 0.42161, 0.97303, 1.25303 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ - + 0.05306, 0.03639, 27.14354, 1.35059, 0.83399, - + 0.53516, 1.07985, 1.35733, - + 0.05491, 0.03735, 29.68041, 1.45365, 0.94171, - + 0.64693, 1.18539, 1.46053, - + 0.05668, 0.03828, 32.12677, 1.55544, 1.04786, - + 0.75683, 1.28949, 1.56246, - + 0.05838, 0.03915, 34.48865, 1.65592, 1.15241, - + 0.86489, 1.39214, 1.66307, - + 0.06000, 0.04000, 36.76609, 1.75493, 1.25526, - + 0.97101, 1.49319, 1.76221, - + 0.06156, 0.04080, 38.92599, 1.85145, 1.35541, - + 1.07424, 1.59164, 1.85886, - + 0.06306, 0.04157, 41.02062, 1.94669, 1.45407, - + 1.17581, 1.68870, 1.95421 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ - + 0.06451, 0.04232, 43.04662, 2.04048, 1.55112, - + 1.27561, 1.78423, 2.04812, - + 0.06590, 0.04304, 44.96209, 2.13154, 1.64527, - + 1.37236, 1.87693, 2.13928, - + 0.06725, 0.04373, 46.83757, 2.22177, 1.73846, - + 1.46803, 1.96874, 2.22962, - + 0.06856, 0.04440, 48.61013, 2.30926, 1.82877, - + 1.56070, 2.05773, 2.31721, - + 0.06983, 0.04505, 50.34008, 2.39573, 1.91794, - + 1.65211, 2.14563, 2.40377 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + 0.04254, 0.03097, 6.82189, 0.59259, 0.05986, - + 0.00000, 0.31332, 0.59857, - + 0.04597, 0.03277, 9.47231, 0.68104, 0.15758, - + 0.00000, 0.40673, 0.68732, - + 0.04908, 0.03440, 12.10788, 0.77189, 0.25645, - + 0.00000, 0.50187, 0.77843, - + 0.05192, 0.03589, 14.65013, 0.86319, 0.35482, - + 0.06124, 0.59695, 0.86997, - + 0.05456, 0.03727, 17.13078, 0.95501, 0.45298, - + 0.16937, 0.69216, 0.96201, - + 0.05704, 0.03856, 19.53420, 1.04676, 0.55052, - + 0.27138, 0.78701, 1.05397, - + 0.05938, 0.03977, 21.84714, 1.13780, 0.64686, - + 0.37219, 0.88088, 1.14520 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ - + 0.06159, 0.04091, 24.06540, 1.22771, 0.74166, - + 0.47106, 0.97341, 1.23530, - + 0.06369, 0.04199, 26.19033, 1.31624, 0.83474, - + 0.56790, 1.06438, 1.32401, - + 0.06569, 0.04302, 28.22665, 1.40329, 0.92603, - + 0.66268, 1.15370, 1.41122, - + 0.06760, 0.04401, 30.18129, 1.48886, 1.01557, - + 0.75548, 1.24140, 1.49695, - + 0.06943, 0.04494, 32.05577, 1.57285, 1.10330, - + 0.84625, 1.32739, 1.58109, - + 0.07118, 0.04584, 33.82315, 1.65440, 1.18838, - + 0.93419, 1.41083, 1.66278, - + 0.07286, 0.04670, 35.52917, 1.73459, 1.27191, - + 1.02042, 1.49281, 1.74311 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ - + 0.07449, 0.04753, 37.17181, 1.81331, 1.35380, - + 1.10486, 1.57323, 1.82196, - + 0.07605, 0.04833, 38.71652, 1.88946, 1.43297, - + 1.18644, 1.65099, 1.89824, - + 0.07757, 0.04910, 40.22359, 1.96472, 1.51111, - + 1.26688, 1.72780, 1.97363, - + 0.07903, 0.04984, 41.64064, 2.03745, 1.58660, - + 1.34455, 1.80201, 2.04648, - + 0.08045, 0.05056, 43.01890, 2.10915, 1.66093, - + 1.42097, 1.87512, 2.11830 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + 0.04809, 0.03401, 6.49679, 0.56487, 0.05640, - + 0.00000, 0.29842, 0.57126, - + 0.05189, 0.03600, 8.91391, 0.64615, 0.14674, - + 0.00000, 0.38455, 0.65286, - + 0.05533, 0.03780, 11.29112, 0.72896, 0.23739, - + 0.00000, 0.47156, 0.73596, - + 0.05846, 0.03943, 13.56253, 0.81160, 0.32694, - + 0.05578, 0.55789, 0.81886, - + 0.06137, 0.04094, 15.76106, 0.89422, 0.41577, - + 0.15388, 0.64384, 0.90172, - + 0.06410, 0.04235, 17.87583, 0.97635, 0.50355, - + 0.24589, 0.72900, 0.98408, - + 0.06667, 0.04368, 19.89749, 1.05745, 0.58983, - + 0.33639, 0.81287, 1.06539 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ - + 0.06909, 0.04492, 21.82453, 1.13719, 0.67435, - + 0.42476, 0.89518, 1.14533, - + 0.07139, 0.04610, 23.66011, 1.21540, 0.75700, - + 0.51095, 0.97576, 1.22372, - + 0.07358, 0.04722, 25.40997, 1.29200, 0.83775, - + 0.59499, 1.05458, 1.30050, - + 0.07567, 0.04829, 27.08148, 1.36704, 0.91667, - + 0.67698, 1.13170, 1.37571, - + 0.07766, 0.04931, 28.67694, 1.44045, 0.99374, - + 0.75692, 1.20708, 1.44930, - + 0.07957, 0.05028, 30.17404, 1.51150, 1.06824, - + 0.83412, 1.27998, 1.52050, - + 0.08141, 0.05121, 31.61345, 1.58117, 1.14117, - + 0.90959, 1.35139, 1.59031 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ - + 0.08318, 0.05210, 32.99401, 1.64937, 1.21248, - + 0.98330, 1.42126, 1.65867, - + 0.08487, 0.05296, 34.28631, 1.71516, 1.28122, - + 1.05432, 1.48863, 1.72459, - + 0.08652, 0.05379, 35.54338, 1.78004, 1.34891, - + 1.12417, 1.55502, 1.78960, - + 0.08810, 0.05459, 36.72006, 1.84256, 1.41411, - + 1.19144, 1.61898, 1.85225, - + 0.08964, 0.05537, 37.86131, 1.90406, 1.47819, - + 1.25748, 1.68187, 1.91388 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + 0.07026, 0.04588, 5.55100, 0.48325, 0.04652, - + 0.00000, 0.25510, 0.49150, - + 0.07544, 0.04856, 7.33070, 0.54464, 0.11642, - + 0.00000, 0.32109, 0.55334, - + 0.08009, 0.05095, 9.01919, 0.60557, 0.18472, - + 0.00000, 0.38601, 0.61468, - + 0.08430, 0.05312, 10.58275, 0.66502, 0.25065, - + 0.04116, 0.44896, 0.67449, - + 0.08819, 0.05510, 12.05601, 0.72331, 0.31478, - + 0.11264, 0.51042, 0.73313, - + 0.09181, 0.05695, 13.43913, 0.78026, 0.37705, - + 0.17846, 0.57025, 0.79040, - + 0.09520, 0.05867, 14.73205, 0.83562, 0.43727, - + 0.24218, 0.62824, 0.84604 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ - + 0.09839, 0.06028, 15.93910, 0.88926, 0.49541, - + 0.30351, 0.68432, 0.89996, - + 0.10139, 0.06180, 17.06683, 0.94117, 0.55150, - + 0.36253, 0.73848, 0.95213, - + 0.10424, 0.06323, 18.12267, 0.99139, 0.60561, - + 0.41937, 0.79081, 1.00259, - + 0.10694, 0.06459, 19.11442, 1.04001, 0.65789, - + 0.47420, 0.84142, 1.05145, - + 0.10952, 0.06588, 20.04600, 1.08708, 0.70840, - + 0.52708, 0.89036, 1.09874, - + 0.11197, 0.06710, 20.90477, 1.13212, 0.75668, - + 0.57759, 0.93715, 1.14399, - + 0.11432, 0.06827, 21.71924, 1.17588, 0.80350, - + 0.62652, 0.98257, 1.18795 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ - + 0.11658, 0.06939, 22.48988, 1.21833, 0.84888, - + 0.67387, 1.02661, 1.23060, - + 0.11873, 0.07046, 23.19905, 1.25887, 0.89219, - + 0.71907, 1.06865, 1.27131, - + 0.12082, 0.07149, 23.88179, 1.29856, 0.93452, - + 0.76318, 1.10977, 1.31118, - + 0.12282, 0.07248, 24.51019, 1.33644, 0.97492, - + 0.80529, 1.14902, 1.34922, - + 0.12475, 0.07343, 25.11353, 1.37345, 1.01436, - + 0.84634, 1.18734, 1.38640 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + 0.10240, 0.06303, 4.67694, 0.40698, 0.03770, - + 0.00000, 0.21496, 0.41783, - + 0.10929, 0.06656, 5.92991, 0.45155, 0.09028, - + 0.00000, 0.26392, 0.46304, - + 0.11542, 0.06968, 7.07151, 0.49456, 0.14022, - + 0.00000, 0.31072, 0.50661, - + 0.12092, 0.07246, 8.09113, 0.53547, 0.18723, - + 0.02947, 0.35497, 0.54802, - + 0.12596, 0.07500, 9.02240, 0.57473, 0.23198, - + 0.07997, 0.39723, 0.58773, - + 0.13062, 0.07733, 9.87177, 0.61235, 0.27459, - + 0.12552, 0.43758, 0.62577, - + 0.13495, 0.07949, 10.64485, 0.64826, 0.31508, - + 0.16887, 0.47600, 0.66207 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ - + 0.13899, 0.08150, 11.34855, 0.68249, 0.35353, - + 0.20993, 0.51254, 0.69666, - + 0.14278, 0.08337, 11.99027, 0.71509, 0.39006, - + 0.24887, 0.54729, 0.72960, - + 0.14635, 0.08512, 12.57767, 0.74619, 0.42481, - + 0.28585, 0.58039, 0.76101, - + 0.14972, 0.08678, 13.11783, 0.77590, 0.45796, - + 0.32107, 0.61199, 0.79103, - + 0.15291, 0.08834, 13.61470, 0.80430, 0.48958, - + 0.35463, 0.64215, 0.81971, - + 0.15593, 0.08981, 14.06173, 0.83111, 0.51943, - + 0.38630, 0.67062, 0.84678, - + 0.15881, 0.09120, 14.47832, 0.85687, 0.54807, - + 0.41666, 0.69796, 0.87280 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ - + 0.16156, 0.09254, 14.86561, 0.88161, 0.57555, - + 0.44575, 0.72420, 0.89777, - + 0.16418, 0.09380, 15.21296, 0.90492, 0.60146, - + 0.47319, 0.74893, 0.92131, - + 0.16670, 0.09501, 15.54287, 0.92756, 0.62657, - + 0.49975, 0.77293, 0.94417, - + 0.16910, 0.09616, 15.83879, 0.94891, 0.65029, - + 0.52486, 0.79557, 0.96573, - + 0.17142, 0.09726, 16.11901, 0.96961, 0.67326, - + 0.54914, 0.81751, 0.98662 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + 0.12745, 0.07649, 4.19462, 0.36460, 0.03300, - + -0.00001, 0.19297, 0.37764, - + 0.13548, 0.08056, 5.18766, 0.40068, 0.07681, - + -0.00001, 0.23331, 0.41448, - + 0.14257, 0.08413, 6.06860, 0.43484, 0.11767, - + -0.00001, 0.27118, 0.44932, - + 0.14889, 0.08728, 6.83642, 0.46682, 0.15554, - + 0.02382, 0.30641, 0.48189, - + 0.15464, 0.09013, 7.52282, 0.49708, 0.19109, - + 0.06430, 0.33959, 0.51268, - + 0.15993, 0.09274, 8.13662, 0.52570, 0.22453, - + 0.10034, 0.37086, 0.54179, - + 0.16482, 0.09514, 8.68463, 0.55269, 0.25593, - + 0.13428, 0.40029, 0.56922 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ - + 0.16936, 0.09735, 9.17423, 0.57812, 0.28544, - + 0.16608, 0.42796, 0.59507, - + 0.17360, 0.09940, 9.61286, 0.60210, 0.31319, - + 0.19597, 0.45403, 0.61943, - + 0.17757, 0.10131, 10.00758, 0.62475, 0.33936, - + 0.22410, 0.47862, 0.64243, - + 0.18130, 0.10310, 10.36471, 0.64619, 0.36411, - + 0.25067, 0.50188, 0.66421, - + 0.18483, 0.10478, 10.68804, 0.66650, 0.38753, - + 0.27580, 0.52390, 0.68484, - + 0.18814, 0.10636, 10.97301, 0.68549, 0.40944, - + 0.29931, 0.54450, 0.70411, - + 0.19130, 0.10785, 11.23473, 0.70360, 0.43032, - + 0.32170, 0.56413, 0.72250 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ - + 0.19431, 0.10926, 11.47438, 0.72085, 0.45021, - + 0.34301, 0.58284, 0.74002, - + 0.19715, 0.11059, 11.68461, 0.73697, 0.46882, - + 0.36296, 0.60033, 0.75638, - + 0.19988, 0.11187, 11.88214, 0.75253, 0.48677, - + 0.38218, 0.61720, 0.77218, - + 0.20247, 0.11307, 12.05502, 0.76707, 0.50358, - + 0.40021, 0.63299, 0.78694, - + 0.20497, 0.11422, 12.21671, 0.78108, 0.51978, - + 0.41756, 0.64821, 0.80117 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + 0.14876, 0.08805, 3.86320, 0.33548, 0.02987, - + -0.00001, 0.17799, 0.35048, - + 0.15761, 0.09248, 4.69173, 0.36608, 0.06800, - + -0.00001, 0.21277, 0.38193, - + 0.16539, 0.09634, 5.41151, 0.39465, 0.10310, - + -0.00001, 0.24497, 0.41125, - + 0.17228, 0.09973, 6.02668, 0.42106, 0.13523, - + 0.02028, 0.27455, 0.43830, - + 0.17852, 0.10277, 6.56719, 0.44576, 0.16509, - + 0.05453, 0.30212, 0.46360, - + 0.18424, 0.10554, 7.04262, 0.46889, 0.19291, - + 0.08474, 0.32785, 0.48726, - + 0.18950, 0.10807, 7.46029, 0.49050, 0.21881, - + 0.11295, 0.35183, 0.50935 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ - + 0.19436, 0.11039, 7.82757, 0.51067, 0.24294, - + 0.13918, 0.37420, 0.52996, - + 0.19887, 0.11252, 8.15155, 0.52953, 0.26548, - + 0.16364, 0.39509, 0.54923, - + 0.20309, 0.11451, 8.43867, 0.54720, 0.28657, - + 0.18652, 0.41466, 0.56728, - + 0.20704, 0.11636, 8.69462, 0.56380, 0.30638, - + 0.20800, 0.43304, 0.58423, - + 0.21076, 0.11809, 8.92290, 0.57942, 0.32502, - + 0.22818, 0.45032, 0.60018, - + 0.21425, 0.11970, 9.12015, 0.59389, 0.34233, - + 0.24695, 0.46637, 0.61495, - + 0.21755, 0.12121, 9.29882, 0.60761, 0.35875, - + 0.26473, 0.48157, 0.62896 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ - + 0.22069, 0.12265, 9.46000, 0.62060, 0.37430, - + 0.28157, 0.49598, 0.64223, - + 0.22365, 0.12399, 9.59801, 0.63264, 0.38875, - + 0.29725, 0.50935, 0.65451, - + 0.22648, 0.12527, 9.72629, 0.64420, 0.40263, - + 0.31228, 0.52219, 0.66632, - + 0.22916, 0.12647, 9.83543, 0.65492, 0.41556, - + 0.32630, 0.53412, 0.67726, - + 0.23173, 0.12763, 9.93618, 0.66520, 0.42796, - + 0.33975, 0.54557, 0.68776 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + 0.16762, 0.09833, 3.61212, 0.31344, 0.02756, - + 0.00000, 0.16678, 0.33028, - + 0.17712, 0.10302, 4.32408, 0.34010, 0.06159, - + 0.00000, 0.19755, 0.35786, - + 0.18541, 0.10708, 4.93174, 0.36470, 0.09258, - + 0.00000, 0.22572, 0.38326, - + 0.19272, 0.11061, 5.44235, 0.38718, 0.12068, - + 0.01780, 0.25133, 0.40644, - + 0.19932, 0.11377, 5.88435, 0.40802, 0.14657, - + 0.04769, 0.27498, 0.42790, - + 0.20533, 0.11662, 6.26741, 0.42737, 0.17050, - + 0.07385, 0.29688, 0.44780, - + 0.21083, 0.11921, 6.59889, 0.44528, 0.19262, - + 0.09810, 0.31713, 0.46622 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ - + 0.21590, 0.12158, 6.88616, 0.46189, 0.21310, - + 0.12053, 0.33589, 0.48328, - + 0.22060, 0.12375, 7.13598, 0.47729, 0.23210, - + 0.14131, 0.35329, 0.49911, - + 0.22497, 0.12575, 7.35402, 0.49161, 0.24977, - + 0.16064, 0.36947, 0.51382, - + 0.22905, 0.12761, 7.54555, 0.50498, 0.26628, - + 0.17868, 0.38458, 0.52755, - + 0.23288, 0.12935, 7.71402, 0.51748, 0.28173, - + 0.19557, 0.39871, 0.54038, - + 0.23645, 0.13095, 7.85628, 0.52897, 0.29600, - + 0.21119, 0.41174, 0.55218, - + 0.23983, 0.13245, 7.98334, 0.53981, 0.30947, - + 0.22591, 0.42403, 0.56330 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ - + 0.24303, 0.13387, 8.09623, 0.55001, 0.32217, - + 0.23981, 0.43562, 0.57378, - + 0.24603, 0.13519, 8.19012, 0.55939, 0.33392, - + 0.25268, 0.44630, 0.58340, - + 0.24890, 0.13644, 8.27632, 0.56837, 0.34515, - + 0.26498, 0.45653, 0.59262, - + 0.25160, 0.13762, 8.34703, 0.57661, 0.35555, - + 0.27639, 0.46596, 0.60108, - + 0.25420, 0.13873, 8.41129, 0.58449, 0.36549, - + 0.28729, 0.47497, 0.60917 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + 0.24212, 0.13901, 2.86282, 0.24796, 0.02101, - + 0.00000, 0.13429, 0.27290, - + 0.25325, 0.14405, 3.27095, 0.26394, 0.04394, - + 0.00000, 0.15419, 0.28993, - + 0.26276, 0.14827, 3.59596, 0.27805, 0.06406, - + -0.00001, 0.17168, 0.30492, - + 0.27096, 0.15183, 3.85037, 0.29042, 0.08170, - + 0.01133, 0.18699, 0.31800, - + 0.27822, 0.15493, 4.05673, 0.30147, 0.09747, - + 0.03004, 0.20068, 0.32966, - + 0.28471, 0.15765, 4.22395, 0.31135, 0.11166, - + 0.04597, 0.21297, 0.34009, - + 0.29056, 0.16006, 4.35871, 0.32020, 0.12445, - + 0.06041, 0.22400, 0.34942 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ - + 0.29583, 0.16220, 4.46693, 0.32814, 0.13600, - + 0.07346, 0.23394, 0.35776, - + 0.30064, 0.16411, 4.55346, 0.33525, 0.14646, - + 0.08530, 0.24291, 0.36524, - + 0.30504, 0.16582, 4.62246, 0.34166, 0.15600, - + 0.09611, 0.25104, 0.37197, - + 0.30909, 0.16738, 4.67741, 0.34746, 0.16472, - + 0.10601, 0.25846, 0.37807, - + 0.31283, 0.16879, 4.72050, 0.35273, 0.17273, - + 0.11512, 0.26523, 0.38360, - + 0.31625, 0.17006, 4.75054, 0.35738, 0.17996, - + 0.12338, 0.27130, 0.38849, - + 0.31945, 0.17123, 4.77357, 0.36165, 0.18667, - + 0.13105, 0.27690, 0.39296 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ - + 0.32244, 0.17230, 4.79025, 0.36556, 0.19288, - + 0.13817, 0.28207, 0.39706, - + 0.32519, 0.17326, 4.79810, 0.36899, 0.19851, - + 0.14465, 0.28669, 0.40066, - + 0.32780, 0.17416, 4.80328, 0.37221, 0.20382, - + 0.15077, 0.29105, 0.40404, - + 0.33020, 0.17498, 4.80171, 0.37503, 0.20862, - + 0.15635, 0.29495, 0.40699, - + 0.33248, 0.17574, 4.79809, 0.37766, 0.21315, - + 0.16161, 0.29861, 0.40975 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + 0.34690, 0.19378, 2.16021, 0.18644, 0.01541, - + -0.00002, 0.10516, 0.22383, - + 0.35784, 0.19749, 2.34535, 0.19394, 0.02952, - + -0.00001, 0.11631, 0.23197, - + 0.36678, 0.20036, 2.47500, 0.20010, 0.04136, - + -0.00001, 0.12557, 0.23858, - + 0.37419, 0.20255, 2.56171, 0.20505, 0.05131, - + 0.00656, 0.13324, 0.24388, - + 0.38045, 0.20430, 2.62099, 0.20917, 0.05987, - + 0.01718, 0.13976, 0.24823, - + 0.38583, 0.20570, 2.65947, 0.21258, 0.06731, - + 0.02592, 0.14532, 0.25180, - + 0.39047, 0.20680, 2.68182, 0.21539, 0.07378, - + 0.03362, 0.15009, 0.25470 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ - + 0.39451, 0.20766, 2.69185, 0.21767, 0.07944, - + 0.04039, 0.15417, 0.25705, - + 0.39800, 0.20833, 2.69258, 0.21954, 0.08441, - + 0.04637, 0.15767, 0.25894, - + 0.40107, 0.20885, 2.68637, 0.22105, 0.08880, - + 0.05170, 0.16070, 0.26044, - + 0.40378, 0.20923, 2.67506, 0.22226, 0.09270, - + 0.05646, 0.16333, 0.26163, - + 0.40617, 0.20951, 2.65975, 0.22323, 0.09618, - + 0.06074, 0.16560, 0.26255, - + 0.40823, 0.20967, 2.63998, 0.22391, 0.09921, - + 0.06453, 0.16751, 0.26315, - + 0.41007, 0.20976, 2.61860, 0.22443, 0.10195, - + 0.06797, 0.16918, 0.26359 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ - + 0.41172, 0.20980, 2.59582, 0.22481, 0.10442, - + 0.07110, 0.17063, 0.26388, - + 0.41312, 0.20975, 2.57052, 0.22497, 0.10657, - + 0.07387, 0.17182, 0.26396, - + 0.41442, 0.20967, 2.54549, 0.22508, 0.10855, - + 0.07644, 0.17290, 0.26397, - + 0.41550, 0.20953, 2.51869, 0.22502, 0.11028, - + 0.07873, 0.17375, 0.26379, - + 0.41649, 0.20937, 2.49229, 0.22492, 0.11187, - + 0.08085, 0.17451, 0.26357 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + 0.42423, 0.22960, 1.77386, 0.15099, 0.01247, - + 0.00000, 0.08880, 0.19660, - + 0.43290, 0.23102, 1.86216, 0.15454, 0.02243, - + 0.00000, 0.09570, 0.20005, - + 0.43956, 0.23178, 1.91224, 0.15713, 0.03051, - + 0.00000, 0.10114, 0.20244, - + 0.44467, 0.23204, 1.93455, 0.15892, 0.03708, - + 0.00448, 0.10538, 0.20396, - + 0.44869, 0.23198, 1.94049, 0.16019, 0.04258, - + 0.01158, 0.10880, 0.20489, - + 0.45187, 0.23168, 1.93474, 0.16101, 0.04722, - + 0.01730, 0.11156, 0.20539, - + 0.45438, 0.23120, 1.92064, 0.16147, 0.05115, - + 0.02223, 0.11376, 0.20550 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ - + 0.45630, 0.23058, 1.90067, 0.16166, 0.05449, - + 0.02648, 0.11552, 0.20531, - + 0.45777, 0.22985, 1.87677, 0.16162, 0.05735, - + 0.03016, 0.11692, 0.20489, - + 0.45888, 0.22903, 1.85032, 0.16139, 0.05980, - + 0.03337, 0.11802, 0.20430, - + 0.45969, 0.22817, 1.82240, 0.16103, 0.06192, - + 0.03620, 0.11888, 0.20356, - + 0.46024, 0.22726, 1.79362, 0.16055, 0.06376, - + 0.03868, 0.11953, 0.20271, - + 0.46051, 0.22629, 1.76346, 0.15994, 0.06531, - + 0.04083, 0.11997, 0.20173, - + 0.46063, 0.22531, 1.73368, 0.15928, 0.06667, - + 0.04275, 0.12028, 0.20071 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ - + 0.46061, 0.22432, 1.70431, 0.15857, 0.06787, - + 0.04447, 0.12049, 0.19964, - + 0.46040, 0.22329, 1.67450, 0.15776, 0.06885, - + 0.04596, 0.12055, 0.19848, - + 0.46013, 0.22228, 1.64587, 0.15695, 0.06975, - + 0.04732, 0.12057, 0.19735, - + 0.45969, 0.22124, 1.61714, 0.15608, 0.07049, - + 0.04850, 0.12046, 0.19613, - + 0.45920, 0.22023, 1.58952, 0.15522, 0.07115, - + 0.04958, 0.12032, 0.19494 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + 0.48491, 0.25322, 1.51121, 0.12521, 0.01045, - + 0.00000, 0.07662, 0.17542, - + 0.49018, 0.25207, 1.54471, 0.12646, 0.01789, - + 0.00000, 0.08093, 0.17579, - + 0.49366, 0.25057, 1.55211, 0.12708, 0.02376, - + 0.00000, 0.08411, 0.17552, - + 0.49577, 0.24879, 1.54170, 0.12719, 0.02839, - + 0.00326, 0.08640, 0.17477, - + 0.49698, 0.24690, 1.52194, 0.12696, 0.03218, - + 0.00838, 0.08809, 0.17372, - + 0.49749, 0.24493, 1.49614, 0.12650, 0.03528, - + 0.01241, 0.08932, 0.17245, - + 0.49747, 0.24291, 1.46654, 0.12584, 0.03785, - + 0.01583, 0.09018, 0.17102 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ - + 0.49700, 0.24087, 1.43478, 0.12504, 0.03997, - + 0.01872, 0.09074, 0.16948, - + 0.49620, 0.23882, 1.40200, 0.12413, 0.04174, - + 0.02118, 0.09107, 0.16786, - + 0.49515, 0.23679, 1.36903, 0.12315, 0.04321, - + 0.02329, 0.09122, 0.16619, - + 0.49390, 0.23479, 1.33646, 0.12212, 0.04445, - + 0.02512, 0.09123, 0.16451, - + 0.49251, 0.23282, 1.30453, 0.12105, 0.04549, - + 0.02669, 0.09113, 0.16282, - + 0.49092, 0.23084, 1.27281, 0.11994, 0.04633, - + 0.02803, 0.09090, 0.16109, - + 0.48926, 0.22893, 1.24236, 0.11882, 0.04704, - + 0.02921, 0.09061, 0.15939 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ - + 0.48755, 0.22706, 1.21308, 0.11771, 0.04764, - + 0.03026, 0.09027, 0.15773, - + 0.48569, 0.22520, 1.18434, 0.11657, 0.04811, - + 0.03113, 0.08984, 0.15604, - + 0.48386, 0.22342, 1.15712, 0.11547, 0.04852, - + 0.03193, 0.08941, 0.15441, - + 0.48192, 0.22164, 1.13052, 0.11434, 0.04882, - + 0.03259, 0.08892, 0.15277, - + 0.48001, 0.21992, 1.10524, 0.11324, 0.04907, - + 0.03319, 0.08841, 0.15120 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + 0.53287, 0.26788, 1.31364, 0.10457, 0.00886, - + -0.00001, 0.06640, 0.15643, - + 0.53409, 0.26419, 1.31231, 0.10445, 0.01459, - + 0.00000, 0.06899, 0.15470, - + 0.53390, 0.26050, 1.29398, 0.10393, 0.01898, - + 0.00000, 0.07072, 0.15269, - + 0.53266, 0.25681, 1.26507, 0.10309, 0.02237, - + 0.00245, 0.07178, 0.15051, - + 0.53079, 0.25321, 1.23169, 0.10207, 0.02507, - + 0.00628, 0.07242, 0.14825, - + 0.52844, 0.24971, 1.19604, 0.10094, 0.02722, - + 0.00924, 0.07274, 0.14595, - + 0.52575, 0.24633, 1.15955, 0.09973, 0.02896, - + 0.01170, 0.07283, 0.14362 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ - + 0.52284, 0.24302, 1.12318, 0.09846, 0.03036, - + 0.01376, 0.07272, 0.14134, - + 0.51972, 0.23984, 1.08759, 0.09717, 0.03148, - + 0.01548, 0.07248, 0.13908, - + 0.51651, 0.23675, 1.05319, 0.09587, 0.03239, - + 0.01693, 0.07212, 0.13688, - + 0.51325, 0.23377, 1.02024, 0.09456, 0.03312, - + 0.01817, 0.07169, 0.13474, - + 0.50992, 0.23094, 0.98875, 0.09329, 0.03372, - + 0.01923, 0.07120, 0.13265, - + 0.50653, 0.22813, 0.95833, 0.09200, 0.03417, - + 0.02010, 0.07065, 0.13058, - + 0.50317, 0.22545, 0.92960, 0.09074, 0.03453, - + 0.02086, 0.07008, 0.12860 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ - + 0.49984, 0.22288, 0.90239, 0.08952, 0.03482, - + 0.02152, 0.06950, 0.12667, - + 0.49645, 0.22036, 0.87621, 0.08830, 0.03502, - + 0.02206, 0.06886, 0.12480, - + 0.49317, 0.21795, 0.85165, 0.08713, 0.03518, - + 0.02254, 0.06824, 0.12301, - + 0.48986, 0.21558, 0.82801, 0.08596, 0.03526, - + 0.02294, 0.06760, 0.12124, - + 0.48665, 0.21331, 0.80573, 0.08484, 0.03532, - + 0.02328, 0.06696, 0.11955 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + 0.57802, 0.27659, 1.12050, 0.08345, 0.00723, - + -0.00002, 0.05530, 0.13424, - + 0.57367, 0.26996, 1.09121, 0.08236, 0.01148, - + -0.00001, 0.05647, 0.13087, - + 0.56858, 0.26382, 1.05363, 0.08108, 0.01462, - + -0.00001, 0.05705, 0.12756, - + 0.56296, 0.25803, 1.01199, 0.07967, 0.01696, - + 0.00178, 0.05720, 0.12435, - + 0.55715, 0.25259, 0.97014, 0.07820, 0.01878, - + 0.00452, 0.05707, 0.12126, - + 0.55125, 0.24745, 0.92921, 0.07671, 0.02019, - + 0.00661, 0.05676, 0.11830, - + 0.54527, 0.24264, 0.88983, 0.07524, 0.02128, - + 0.00829, 0.05631, 0.11546 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ - + 0.53934, 0.23804, 0.85237, 0.07377, 0.02212, - + 0.00969, 0.05576, 0.11276, - + 0.53348, 0.23368, 0.81702, 0.07232, 0.02276, - + 0.01083, 0.05516, 0.11019, - + 0.52769, 0.22956, 0.78383, 0.07093, 0.02326, - + 0.01177, 0.05451, 0.10772, - + 0.52204, 0.22566, 0.75279, 0.06958, 0.02364, - + 0.01256, 0.05383, 0.10536, - + 0.51653, 0.22194, 0.72376, 0.06827, 0.02392, - + 0.01323, 0.05314, 0.10314, - + 0.51106, 0.21835, 0.69632, 0.06699, 0.02411, - + 0.01376, 0.05243, 0.10099, - + 0.50577, 0.21495, 0.67077, 0.06577, 0.02424, - + 0.01422, 0.05172, 0.09895 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ - + 0.50064, 0.21171, 0.64691, 0.06459, 0.02432, - + 0.01459, 0.05103, 0.09699, - + 0.49557, 0.20857, 0.62433, 0.06343, 0.02435, - + 0.01490, 0.05033, 0.09510, - + 0.49070, 0.20559, 0.60333, 0.06233, 0.02435, - + 0.01516, 0.04965, 0.09332, - + 0.48590, 0.20269, 0.58341, 0.06125, 0.02431, - + 0.01537, 0.04896, 0.09161, - + 0.48127, 0.19993, 0.56480, 0.06021, 0.02426, - + 0.01554, 0.04830, 0.08998 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + 0.60888, 0.27714, 0.96513, 0.06618, 0.00588, - + -0.00003, 0.04559, 0.11349, - + 0.59881, 0.26796, 0.91843, 0.06464, 0.00908, - + -0.00003, 0.04592, 0.10926, - + 0.58881, 0.25971, 0.87002, 0.06304, 0.01139, - + -0.00002, 0.04583, 0.10534, - + 0.57890, 0.25217, 0.82223, 0.06142, 0.01305, - + 0.00131, 0.04546, 0.10171, - + 0.56930, 0.24525, 0.77716, 0.05981, 0.01429, - + 0.00333, 0.04495, 0.09833, - + 0.56000, 0.23884, 0.73508, 0.05827, 0.01522, - + 0.00484, 0.04433, 0.09517, - + 0.55097, 0.23289, 0.69605, 0.05677, 0.01592, - + 0.00604, 0.04364, 0.09221 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ - + 0.54229, 0.22732, 0.66000, 0.05532, 0.01643, - + 0.00701, 0.04291, 0.08945, - + 0.53390, 0.22211, 0.62678, 0.05394, 0.01680, - + 0.00778, 0.04217, 0.08685, - + 0.52583, 0.21723, 0.59622, 0.05262, 0.01706, - + 0.00842, 0.04142, 0.08441, - + 0.51809, 0.21264, 0.56812, 0.05136, 0.01725, - + 0.00894, 0.04067, 0.08212, - + 0.51063, 0.20832, 0.54226, 0.05017, 0.01736, - + 0.00936, 0.03993, 0.07995, - + 0.50340, 0.20418, 0.51819, 0.04900, 0.01740, - + 0.00969, 0.03920, 0.07793, - + 0.49646, 0.20028, 0.49604, 0.04791, 0.01742, - + 0.00997, 0.03849, 0.07601 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ - + 0.48979, 0.19661, 0.47558, 0.04687, 0.01740, - + 0.01019, 0.03781, 0.07418, - + 0.48331, 0.19306, 0.45644, 0.04584, 0.01735, - + 0.01037, 0.03713, 0.07245, - + 0.47714, 0.18972, 0.43878, 0.04486, 0.01728, - + 0.01053, 0.03649, 0.07082, - + 0.47109, 0.18651, 0.42224, 0.04394, 0.01719, - + 0.01063, 0.03585, 0.06924, - + 0.46529, 0.18346, 0.40687, 0.04307, 0.01709, - + 0.01072, 0.03524, 0.06775 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + 0.62718, 0.27150, 0.83506, 0.05198, 0.00476, - + -0.00002, 0.03714, 0.09445, - + 0.61149, 0.26028, 0.77788, 0.05033, 0.00718, - + -0.00001, 0.03695, 0.08990, - + 0.59681, 0.25037, 0.72395, 0.04870, 0.00886, - + -0.00001, 0.03650, 0.08583, - + 0.58287, 0.24151, 0.67396, 0.04711, 0.01004, - + 0.00098, 0.03586, 0.08215, - + 0.56976, 0.23348, 0.62870, 0.04559, 0.01090, - + 0.00247, 0.03515, 0.07880, - + 0.55735, 0.22615, 0.58777, 0.04414, 0.01150, - + 0.00356, 0.03441, 0.07572, - + 0.54563, 0.21940, 0.55076, 0.04276, 0.01194, - + 0.00442, 0.03363, 0.07290 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ - + 0.53451, 0.21316, 0.51731, 0.04145, 0.01225, - + 0.00510, 0.03287, 0.07027, - + 0.52396, 0.20736, 0.48705, 0.04020, 0.01245, - + 0.00564, 0.03211, 0.06786, - + 0.51395, 0.20197, 0.45965, 0.03903, 0.01258, - + 0.00607, 0.03137, 0.06561, - + 0.50443, 0.19695, 0.43481, 0.03794, 0.01265, - + 0.00641, 0.03065, 0.06350, - + 0.49537, 0.19226, 0.41224, 0.03691, 0.01267, - + 0.00670, 0.02995, 0.06154, - + 0.48669, 0.18779, 0.39150, 0.03589, 0.01265, - + 0.00690, 0.02927, 0.05973, - + 0.47843, 0.18361, 0.37261, 0.03495, 0.01260, - + 0.00706, 0.02862, 0.05802 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ - + 0.47055, 0.17969, 0.35532, 0.03408, 0.01254, - + 0.00718, 0.02799, 0.05640, - + 0.46295, 0.17594, 0.33929, 0.03323, 0.01245, - + 0.00729, 0.02739, 0.05487, - + 0.45574, 0.17240, 0.32458, 0.03242, 0.01236, - + 0.00738, 0.02681, 0.05344, - + 0.44874, 0.16901, 0.31093, 0.03165, 0.01226, - + 0.00742, 0.02626, 0.05208, - + 0.44207, 0.16581, 0.29833, 0.03092, 0.01215, - + 0.00745, 0.02573, 0.05080 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + 0.63432, 0.26127, 0.72328, 0.04038, 0.00381, - + -0.00002, 0.02983, 0.07731, - + 0.61344, 0.24843, 0.66034, 0.03880, 0.00564, - + -0.00002, 0.02938, 0.07285, - + 0.59442, 0.23730, 0.60435, 0.03729, 0.00690, - + -0.00002, 0.02875, 0.06893, - + 0.57687, 0.22748, 0.55471, 0.03583, 0.00775, - + 0.00075, 0.02803, 0.06545, - + 0.56069, 0.21867, 0.51106, 0.03445, 0.00835, - + 0.00185, 0.02728, 0.06234, - + 0.54566, 0.21069, 0.47253, 0.03316, 0.00874, - + 0.00266, 0.02653, 0.05953, - + 0.53159, 0.20346, 0.43841, 0.03197, 0.00902, - + 0.00328, 0.02579, 0.05692 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ - + 0.51844, 0.19679, 0.40811, 0.03085, 0.00919, - + 0.00376, 0.02506, 0.05458, - + 0.50610, 0.19065, 0.38112, 0.02978, 0.00930, - + 0.00414, 0.02434, 0.05244, - + 0.49449, 0.18498, 0.35701, 0.02878, 0.00935, - + 0.00444, 0.02366, 0.05047, - + 0.48357, 0.17972, 0.33540, 0.02784, 0.00935, - + 0.00466, 0.02302, 0.04865, - + 0.47329, 0.17480, 0.31595, 0.02697, 0.00932, - + 0.00483, 0.02240, 0.04697, - + 0.46345, 0.17022, 0.29831, 0.02616, 0.00927, - + 0.00496, 0.02181, 0.04535, - + 0.45417, 0.16593, 0.28236, 0.02539, 0.00921, - + 0.00507, 0.02124, 0.04386 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ - + 0.44538, 0.16190, 0.26787, 0.02465, 0.00913, - + 0.00515, 0.02070, 0.04249, - + 0.43695, 0.15807, 0.25457, 0.02397, 0.00903, - + 0.00521, 0.02018, 0.04122, - + 0.42898, 0.15447, 0.24244, 0.02332, 0.00893, - + 0.00526, 0.01969, 0.04002, - + 0.42130, 0.15106, 0.23126, 0.02270, 0.00883, - + 0.00527, 0.01922, 0.03888, - + 0.41400, 0.14783, 0.22100, 0.02212, 0.00873, - + 0.00528, 0.01877, 0.03781 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + 0.63165, 0.24762, 0.62566, 0.03099, 0.00301, - + -0.00001, 0.02364, 0.06227, - + 0.60605, 0.23364, 0.56038, 0.02957, 0.00443, - + -0.00002, 0.02308, 0.05811, - + 0.58327, 0.22168, 0.50480, 0.02822, 0.00537, - + -0.00001, 0.02240, 0.05457, - + 0.56262, 0.21124, 0.45705, 0.02696, 0.00597, - + 0.00055, 0.02170, 0.05142, - + 0.54384, 0.20197, 0.41611, 0.02577, 0.00639, - + 0.00141, 0.02099, 0.04865, - + 0.52660, 0.19365, 0.38070, 0.02469, 0.00665, - + 0.00199, 0.02028, 0.04618, - + 0.51068, 0.18613, 0.34987, 0.02369, 0.00682, - + 0.00245, 0.01962, 0.04391 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ - + 0.49594, 0.17927, 0.32291, 0.02273, 0.00691, - + 0.00279, 0.01896, 0.04191, - + 0.48218, 0.17301, 0.29923, 0.02186, 0.00696, - + 0.00306, 0.01833, 0.04006, - + 0.46936, 0.16725, 0.27833, 0.02106, 0.00697, - + 0.00327, 0.01774, 0.03836, - + 0.45738, 0.16193, 0.25978, 0.02030, 0.00694, - + 0.00342, 0.01717, 0.03682, - + 0.44616, 0.15699, 0.24326, 0.01959, 0.00689, - + 0.00354, 0.01664, 0.03541, - + 0.43551, 0.15240, 0.22837, 0.01893, 0.00682, - + 0.00362, 0.01614, 0.03409, - + 0.42552, 0.14812, 0.21504, 0.01831, 0.00674, - + 0.00368, 0.01568, 0.03287 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ - + 0.41612, 0.14411, 0.20303, 0.01773, 0.00666, - + 0.00374, 0.01524, 0.03173, - + 0.40713, 0.14033, 0.19210, 0.01718, 0.00658, - + 0.00376, 0.01480, 0.03067, - + 0.39867, 0.13680, 0.18218, 0.01667, 0.00649, - + 0.00377, 0.01439, 0.02968, - + 0.39056, 0.13344, 0.17309, 0.01619, 0.00640, - + 0.00377, 0.01402, 0.02874, - + 0.38288, 0.13029, 0.16479, 0.01573, 0.00631, - + 0.00377, 0.01366, 0.02786 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + 0.62040, 0.23155, 0.53954, 0.02345, 0.00239, - + 0.00003, 0.01849, 0.04933, - + 0.59072, 0.21693, 0.47462, 0.02226, 0.00345, - + 0.00003, 0.01789, 0.04567, - + 0.56471, 0.20456, 0.42107, 0.02116, 0.00413, - + 0.00005, 0.01726, 0.04252, - + 0.54159, 0.19377, 0.37636, 0.02009, 0.00456, - + 0.00045, 0.01659, 0.03985, - + 0.52072, 0.18435, 0.33877, 0.01913, 0.00485, - + 0.00107, 0.01595, 0.03745, - + 0.50178, 0.17592, 0.30683, 0.01823, 0.00502, - + 0.00150, 0.01534, 0.03534, - + 0.48445, 0.16836, 0.27945, 0.01741, 0.00512, - + 0.00182, 0.01473, 0.03346 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ - + 0.46847, 0.16154, 0.25580, 0.01666, 0.00516, - + 0.00207, 0.01417, 0.03176, - + 0.45372, 0.15530, 0.23531, 0.01596, 0.00516, - + 0.00225, 0.01365, 0.03024, - + 0.44010, 0.14958, 0.21741, 0.01531, 0.00514, - + 0.00237, 0.01316, 0.02885, - + 0.42743, 0.14434, 0.20166, 0.01470, 0.00511, - + 0.00248, 0.01270, 0.02756, - + 0.41558, 0.13954, 0.18772, 0.01416, 0.00505, - + 0.00256, 0.01226, 0.02639, - + 0.40444, 0.13504, 0.17532, 0.01363, 0.00498, - + 0.00261, 0.01184, 0.02534, - + 0.39404, 0.13087, 0.16427, 0.01314, 0.00490, - + 0.00265, 0.01146, 0.02435 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ - + 0.38427, 0.12699, 0.15436, 0.01270, 0.00483, - + 0.00268, 0.01111, 0.02342, - + 0.37496, 0.12336, 0.14542, 0.01228, 0.00475, - + 0.00268, 0.01076, 0.02257, - + 0.36624, 0.11996, 0.13735, 0.01189, 0.00467, - + 0.00268, 0.01043, 0.02178, - + 0.35796, 0.11674, 0.13001, 0.01151, 0.00460, - + 0.00268, 0.01013, 0.02104, - + 0.35015, 0.11372, 0.12333, 0.01115, 0.00452, - + 0.00268, 0.00984, 0.02034 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + 0.60158, 0.21430, 0.46356, 0.01776, 0.00170, - + -0.00013, 0.01410, 0.03846, - + 0.56866, 0.19929, 0.40066, 0.01672, 0.00255, - + -0.00013, 0.01359, 0.03531, - + 0.54017, 0.18675, 0.35027, 0.01578, 0.00308, - + -0.00013, 0.01301, 0.03269, - + 0.51512, 0.17591, 0.30915, 0.01490, 0.00339, - + 0.00023, 0.01246, 0.03042, - + 0.49276, 0.16650, 0.27523, 0.01412, 0.00360, - + 0.00070, 0.01192, 0.02842, - + 0.47257, 0.15819, 0.24686, 0.01342, 0.00371, - + 0.00103, 0.01141, 0.02667, - + 0.45427, 0.15074, 0.22287, 0.01275, 0.00378, - + 0.00128, 0.01093, 0.02512 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ - + 0.43755, 0.14405, 0.20242, 0.01215, 0.00380, - + 0.00146, 0.01047, 0.02375, - + 0.42222, 0.13800, 0.18488, 0.01159, 0.00379, - + 0.00159, 0.01004, 0.02251, - + 0.40808, 0.13249, 0.16969, 0.01108, 0.00376, - + 0.00169, 0.00964, 0.02139, - + 0.39501, 0.12745, 0.15645, 0.01062, 0.00371, - + 0.00177, 0.00926, 0.02037, - + 0.38292, 0.12280, 0.14483, 0.01017, 0.00367, - + 0.00183, 0.00892, 0.01944, - + 0.37157, 0.11850, 0.13460, 0.00977, 0.00361, - + 0.00186, 0.00859, 0.01858, - + 0.36099, 0.11453, 0.12553, 0.00940, 0.00355, - + 0.00188, 0.00829, 0.01780 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ - + 0.35109, 0.11085, 0.11743, 0.00905, 0.00348, - + 0.00189, 0.00801, 0.01709, - + 0.34174, 0.10741, 0.11018, 0.00872, 0.00342, - + 0.00189, 0.00774, 0.01642, - + 0.33300, 0.10420, 0.10367, 0.00841, 0.00336, - + 0.00189, 0.00748, 0.01580, - + 0.32469, 0.10117, 0.09778, 0.00813, 0.00329, - + 0.00189, 0.00725, 0.01522, - + 0.31687, 0.09834, 0.09245, 0.00787, 0.00323, - + 0.00188, 0.00702, 0.01468 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + 0.57678, 0.19570, 0.39576, 0.01300, 0.00136, - + -0.00003, 0.01076, 0.02948, - + 0.54128, 0.18076, 0.33634, 0.01220, 0.00199, - + -0.00002, 0.01027, 0.02689, - + 0.51091, 0.16836, 0.28991, 0.01148, 0.00237, - + -0.00003, 0.00979, 0.02473, - + 0.48443, 0.15781, 0.25278, 0.01085, 0.00259, - + 0.00022, 0.00932, 0.02283, - + 0.46109, 0.14863, 0.22267, 0.01021, 0.00272, - + 0.00057, 0.00886, 0.02126, - + 0.44017, 0.14058, 0.19783, 0.00966, 0.00279, - + 0.00080, 0.00843, 0.01987, - + 0.42133, 0.13343, 0.17710, 0.00915, 0.00281, - + 0.00097, 0.00804, 0.01863 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ - + 0.40424, 0.12703, 0.15964, 0.00868, 0.00281, - + 0.00109, 0.00767, 0.01752, - + 0.38861, 0.12127, 0.14479, 0.00827, 0.00280, - + 0.00119, 0.00733, 0.01654, - + 0.37431, 0.11603, 0.13205, 0.00788, 0.00277, - + 0.00126, 0.00702, 0.01565, - + 0.36118, 0.11126, 0.12104, 0.00753, 0.00272, - + 0.00130, 0.00672, 0.01485, - + 0.34899, 0.10691, 0.11147, 0.00722, 0.00267, - + 0.00133, 0.00644, 0.01413, - + 0.33767, 0.10287, 0.10307, 0.00691, 0.00262, - + 0.00135, 0.00619, 0.01346, - + 0.32716, 0.09916, 0.09568, 0.00663, 0.00257, - + 0.00136, 0.00595, 0.01285 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ - + 0.31737, 0.09574, 0.08913, 0.00637, 0.00252, - + 0.00137, 0.00573, 0.01228, - + 0.30814, 0.09253, 0.08330, 0.00613, 0.00246, - + 0.00136, 0.00553, 0.01178, - + 0.29953, 0.08956, 0.07809, 0.00590, 0.00241, - + 0.00135, 0.00533, 0.01131, - + 0.29139, 0.08678, 0.07340, 0.00569, 0.00235, - + 0.00135, 0.00515, 0.01087, - + 0.28375, 0.08419, 0.06917, 0.00549, 0.00230, - + 0.00134, 0.00498, 0.01046 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + 0.54685, 0.17698, 0.33584, 0.00946, 0.00101, - + -0.00004, 0.00801, 0.02224, - + 0.50954, 0.16235, 0.28077, 0.00885, 0.00150, - + -0.00003, 0.00763, 0.02014, - + 0.47800, 0.15034, 0.23870, 0.00831, 0.00176, - + -0.00002, 0.00724, 0.01839, - + 0.45079, 0.14016, 0.20567, 0.00779, 0.00192, - + 0.00016, 0.00685, 0.01692, - + 0.42691, 0.13140, 0.17931, 0.00732, 0.00202, - + 0.00042, 0.00648, 0.01566, - + 0.40571, 0.12374, 0.15783, 0.00690, 0.00206, - + 0.00060, 0.00615, 0.01455, - + 0.38673, 0.11698, 0.14013, 0.00650, 0.00207, - + 0.00071, 0.00584, 0.01360 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ - + 0.36958, 0.11096, 0.12536, 0.00616, 0.00206, - + 0.00080, 0.00554, 0.01273, - + 0.35402, 0.10554, 0.11294, 0.00585, 0.00204, - + 0.00086, 0.00527, 0.01198, - + 0.33985, 0.10065, 0.10238, 0.00556, 0.00201, - + 0.00091, 0.00503, 0.01129, - + 0.32688, 0.09623, 0.09332, 0.00530, 0.00198, - + 0.00094, 0.00481, 0.01066, - + 0.31491, 0.09220, 0.08549, 0.00506, 0.00194, - + 0.00096, 0.00460, 0.01011, - + 0.30384, 0.08848, 0.07868, 0.00482, 0.00189, - + 0.00097, 0.00440, 0.00961, - + 0.29360, 0.08507, 0.07271, 0.00462, 0.00184, - + 0.00097, 0.00422, 0.00915 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ - + 0.28407, 0.08193, 0.06745, 0.00444, 0.00179, - + 0.00096, 0.00405, 0.00873, - + 0.27514, 0.07900, 0.06280, 0.00426, 0.00176, - + 0.00096, 0.00389, 0.00835, - + 0.26683, 0.07629, 0.05865, 0.00409, 0.00172, - + 0.00096, 0.00375, 0.00799, - + 0.25900, 0.07375, 0.05495, 0.00394, 0.00167, - + 0.00095, 0.00362, 0.00766, - + 0.25167, 0.07139, 0.05163, 0.00380, 0.00162, - + 0.00094, 0.00349, 0.00735 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + 0.51290, 0.15830, 0.28289, 0.00674, 0.00078, - + 0.00000, 0.00590, 0.01649, - + 0.47458, 0.14428, 0.23272, 0.00628, 0.00113, - + 0.00000, 0.00559, 0.01483, - + 0.44250, 0.13283, 0.19515, 0.00588, 0.00133, - + 0.00000, 0.00529, 0.01346, - + 0.41508, 0.12320, 0.16625, 0.00548, 0.00144, - + 0.00013, 0.00497, 0.01234, - + 0.39114, 0.11496, 0.14346, 0.00516, 0.00150, - + 0.00032, 0.00469, 0.01134, - + 0.37005, 0.10780, 0.12514, 0.00486, 0.00153, - + 0.00044, 0.00444, 0.01048, - + 0.35125, 0.10150, 0.11022, 0.00458, 0.00153, - + 0.00053, 0.00419, 0.00975 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ - + 0.33443, 0.09593, 0.09790, 0.00431, 0.00151, - + 0.00060, 0.00396, 0.00910, - + 0.31922, 0.09094, 0.08761, 0.00408, 0.00148, - + 0.00063, 0.00376, 0.00854, - + 0.30540, 0.08646, 0.07894, 0.00387, 0.00145, - + 0.00066, 0.00357, 0.00802, - + 0.29282, 0.08241, 0.07156, 0.00368, 0.00141, - + 0.00068, 0.00341, 0.00755, - + 0.28130, 0.07873, 0.06522, 0.00350, 0.00138, - + 0.00070, 0.00325, 0.00716, - + 0.27065, 0.07534, 0.05974, 0.00332, 0.00135, - + 0.00070, 0.00310, 0.00677, - + 0.26082, 0.07225, 0.05498, 0.00317, 0.00132, - + 0.00069, 0.00296, 0.00642 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ - + 0.25172, 0.06942, 0.05081, 0.00303, 0.00128, - + 0.00070, 0.00284, 0.00611, - + 0.24322, 0.06678, 0.04714, 0.00292, 0.00125, - + 0.00070, 0.00273, 0.00583, - + 0.23533, 0.06434, 0.04388, 0.00281, 0.00121, - + 0.00070, 0.00262, 0.00557, - + 0.22789, 0.06207, 0.04098, 0.00271, 0.00118, - + 0.00069, 0.00251, 0.00532, - + 0.22096, 0.05997, 0.03838, 0.00261, 0.00115, - + 0.00067, 0.00242, 0.00510 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + 0.47600, 0.14011, 0.23627, 0.00467, 0.00060, - + 0.00005, 0.00429, 0.01201, - + 0.43740, 0.12688, 0.19135, 0.00437, 0.00086, - + 0.00005, 0.00407, 0.01072, - + 0.40539, 0.11614, 0.15839, 0.00408, 0.00101, - + 0.00004, 0.00381, 0.00968, - + 0.37816, 0.10719, 0.13336, 0.00380, 0.00107, - + 0.00014, 0.00358, 0.00883, - + 0.35465, 0.09956, 0.11394, 0.00357, 0.00110, - + 0.00026, 0.00336, 0.00808, - + 0.33403, 0.09296, 0.09851, 0.00336, 0.00112, - + 0.00036, 0.00316, 0.00746, - + 0.31581, 0.08721, 0.08607, 0.00314, 0.00111, - + 0.00041, 0.00298, 0.00690 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ - + 0.29955, 0.08209, 0.07590, 0.00295, 0.00110, - + 0.00045, 0.00281, 0.00641, - + 0.28491, 0.07756, 0.06748, 0.00279, 0.00108, - + 0.00047, 0.00265, 0.00598, - + 0.27169, 0.07350, 0.06045, 0.00263, 0.00105, - + 0.00049, 0.00251, 0.00561, - + 0.25969, 0.06985, 0.05451, 0.00248, 0.00102, - + 0.00050, 0.00238, 0.00529, - + 0.24874, 0.06653, 0.04943, 0.00235, 0.00099, - + 0.00051, 0.00226, 0.00498, - + 0.23863, 0.06351, 0.04508, 0.00225, 0.00096, - + 0.00051, 0.00216, 0.00470, - + 0.22935, 0.06075, 0.04131, 0.00215, 0.00094, - + 0.00052, 0.00207, 0.00445 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ - + 0.22080, 0.05822, 0.03803, 0.00205, 0.00092, - + 0.00052, 0.00198, 0.00422, - + 0.21283, 0.05588, 0.03515, 0.00196, 0.00089, - + 0.00051, 0.00189, 0.00400, - + 0.20545, 0.05373, 0.03260, 0.00188, 0.00086, - + 0.00049, 0.00180, 0.00381, - + 0.19852, 0.05173, 0.03036, 0.00181, 0.00083, - + 0.00048, 0.00173, 0.00363, - + 0.19208, 0.04987, 0.02836, 0.00174, 0.00081, - + 0.00047, 0.00167, 0.00348 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + 0.43710, 0.12286, 0.19576, 0.00328, 0.00042, - + 0.00002, 0.00304, 0.00857, - + 0.39891, 0.11053, 0.15609, 0.00304, 0.00061, - + 0.00001, 0.00285, 0.00763, - + 0.36747, 0.10061, 0.12750, 0.00283, 0.00072, - + 0.00000, 0.00267, 0.00685, - + 0.34099, 0.09238, 0.10618, 0.00266, 0.00077, - + 0.00009, 0.00251, 0.00619, - + 0.31830, 0.08540, 0.08981, 0.00247, 0.00079, - + 0.00018, 0.00235, 0.00565, - + 0.29853, 0.07940, 0.07697, 0.00230, 0.00080, - + 0.00024, 0.00220, 0.00519, - + 0.28107, 0.07417, 0.06672, 0.00215, 0.00080, - + 0.00029, 0.00207, 0.00479 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ - + 0.26555, 0.06960, 0.05843, 0.00203, 0.00078, - + 0.00031, 0.00194, 0.00443, - + 0.25170, 0.06554, 0.05163, 0.00191, 0.00076, - + 0.00033, 0.00183, 0.00412, - + 0.23923, 0.06191, 0.04598, 0.00180, 0.00074, - + 0.00035, 0.00173, 0.00386, - + 0.22795, 0.05865, 0.04125, 0.00170, 0.00072, - + 0.00036, 0.00164, 0.00362, - + 0.21767, 0.05572, 0.03724, 0.00162, 0.00070, - + 0.00036, 0.00155, 0.00340, - + 0.20826, 0.05305, 0.03381, 0.00153, 0.00068, - + 0.00034, 0.00147, 0.00320, - + 0.19964, 0.05062, 0.03085, 0.00146, 0.00065, - + 0.00034, 0.00140, 0.00302 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ - + 0.19170, 0.04840, 0.02828, 0.00140, 0.00062, - + 0.00035, 0.00133, 0.00287, - + 0.18435, 0.04635, 0.02605, 0.00134, 0.00061, - + 0.00034, 0.00127, 0.00272, - + 0.17756, 0.04446, 0.02409, 0.00128, 0.00059, - + 0.00033, 0.00122, 0.00258, - + 0.17121, 0.04271, 0.02236, 0.00123, 0.00057, - + 0.00032, 0.00116, 0.00246, - + 0.16532, 0.04108, 0.02083, 0.00117, 0.00056, - + 0.00032, 0.00112, 0.00235 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + 0.39711, 0.10654, 0.16056, 0.00221, 0.00030, - + 0.00003, 0.00212, 0.00601, - + 0.35993, 0.09525, 0.12613, 0.00207, 0.00043, - + 0.00002, 0.00199, 0.00531, - + 0.32966, 0.08620, 0.10170, 0.00192, 0.00050, - + 0.00002, 0.00184, 0.00478, - + 0.30427, 0.07877, 0.08378, 0.00182, 0.00054, - + 0.00006, 0.00172, 0.00427, - + 0.28263, 0.07251, 0.07020, 0.00170, 0.00055, - + 0.00013, 0.00160, 0.00389, - + 0.26392, 0.06713, 0.05965, 0.00159, 0.00055, - + 0.00017, 0.00150, 0.00356, - + 0.24751, 0.06247, 0.05132, 0.00147, 0.00054, - + 0.00020, 0.00140, 0.00328 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ - + 0.23298, 0.05841, 0.04462, 0.00140, 0.00053, - + 0.00022, 0.00131, 0.00302, - + 0.22004, 0.05483, 0.03918, 0.00131, 0.00052, - + 0.00022, 0.00123, 0.00280, - + 0.20845, 0.05164, 0.03470, 0.00124, 0.00050, - + 0.00023, 0.00116, 0.00260, - + 0.19800, 0.04878, 0.03096, 0.00117, 0.00048, - + 0.00024, 0.00110, 0.00243, - + 0.18857, 0.04621, 0.02781, 0.00109, 0.00047, - + 0.00024, 0.00104, 0.00229, - + 0.17995, 0.04387, 0.02514, 0.00102, 0.00044, - + 0.00024, 0.00098, 0.00216, - + 0.17205, 0.04176, 0.02286, 0.00098, 0.00043, - + 0.00023, 0.00093, 0.00204 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ - + 0.16477, 0.03983, 0.02089, 0.00096, 0.00042, - + 0.00022, 0.00089, 0.00191, - + 0.15808, 0.03806, 0.01918, 0.00091, 0.00040, - + 0.00022, 0.00085, 0.00180, - + 0.15192, 0.03643, 0.01768, 0.00086, 0.00039, - + 0.00021, 0.00080, 0.00171, - + 0.14618, 0.03492, 0.01636, 0.00081, 0.00038, - + 0.00021, 0.00077, 0.00163, - + 0.14085, 0.03353, 0.01520, 0.00078, 0.00037, - + 0.00020, 0.00073, 0.00156 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + 0.35681, 0.09132, 0.13024, 0.00142, 0.00023, - + 0.00004, 0.00147, 0.00412, - + 0.32119, 0.08111, 0.10074, 0.00135, 0.00032, - + 0.00004, 0.00137, 0.00365, - + 0.29244, 0.07297, 0.08020, 0.00124, 0.00037, - + 0.00004, 0.00128, 0.00324, - + 0.26849, 0.06634, 0.06531, 0.00117, 0.00039, - + 0.00007, 0.00119, 0.00289, - + 0.24819, 0.06078, 0.05418, 0.00110, 0.00040, - + 0.00011, 0.00110, 0.00263, - + 0.23069, 0.05606, 0.04563, 0.00103, 0.00040, - + 0.00013, 0.00102, 0.00237, - + 0.21547, 0.05196, 0.03895, 0.00095, 0.00039, - + 0.00014, 0.00096, 0.00217 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ - + 0.20209, 0.04838, 0.03364, 0.00088, 0.00038, - + 0.00016, 0.00089, 0.00202, - + 0.19017, 0.04526, 0.02935, 0.00084, 0.00037, - + 0.00017, 0.00084, 0.00187, - + 0.17955, 0.04249, 0.02585, 0.00079, 0.00036, - + 0.00017, 0.00079, 0.00172, - + 0.17005, 0.04001, 0.02294, 0.00073, 0.00034, - + 0.00017, 0.00074, 0.00160, - + 0.16145, 0.03781, 0.02051, 0.00069, 0.00033, - + 0.00017, 0.00069, 0.00150, - + 0.15359, 0.03580, 0.01846, 0.00067, 0.00032, - + 0.00017, 0.00066, 0.00141, - + 0.14647, 0.03398, 0.01672, 0.00063, 0.00031, - + 0.00017, 0.00063, 0.00133 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ - + 0.13998, 0.03233, 0.01522, 0.00057, 0.00030, - + 0.00016, 0.00059, 0.00126, - + 0.13393, 0.03081, 0.01392, 0.00057, 0.00029, - + 0.00016, 0.00056, 0.00119, - + 0.12838, 0.02943, 0.01279, 0.00056, 0.00028, - + 0.00015, 0.00053, 0.00112, - + 0.12326, 0.02816, 0.01181, 0.00052, 0.00026, - + 0.00015, 0.00051, 0.00107, - + 0.11852, 0.02698, 0.01094, 0.00049, 0.00025, - + 0.00015, 0.00049, 0.00101 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + 0.31703, 0.07742, 0.10444, 0.00092, 0.00016, - + 0.00003, 0.00099, 0.00276, - + 0.28338, 0.06830, 0.07952, 0.00089, 0.00024, - + 0.00002, 0.00093, 0.00241, - + 0.25644, 0.06110, 0.06247, 0.00080, 0.00028, - + 0.00004, 0.00087, 0.00214, - + 0.23418, 0.05522, 0.05029, 0.00073, 0.00029, - + 0.00005, 0.00081, 0.00192, - + 0.21543, 0.05035, 0.04130, 0.00068, 0.00029, - + 0.00008, 0.00075, 0.00174, - + 0.19937, 0.04621, 0.03449, 0.00061, 0.00030, - + 0.00011, 0.00070, 0.00155, - + 0.18540, 0.04268, 0.02922, 0.00058, 0.00029, - + 0.00013, 0.00065, 0.00143 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ - + 0.17318, 0.03960, 0.02506, 0.00056, 0.00028, - + 0.00013, 0.00060, 0.00132, - + 0.16240, 0.03691, 0.02173, 0.00053, 0.00027, - + 0.00013, 0.00057, 0.00120, - + 0.15284, 0.03454, 0.01902, 0.00049, 0.00026, - + 0.00013, 0.00054, 0.00110, - + 0.14429, 0.03242, 0.01680, 0.00045, 0.00025, - + 0.00013, 0.00051, 0.00102, - + 0.13657, 0.03054, 0.01495, 0.00043, 0.00024, - + 0.00014, 0.00048, 0.00096, - + 0.12957, 0.02884, 0.01340, 0.00040, 0.00023, - + 0.00013, 0.00045, 0.00090, - + 0.12323, 0.02730, 0.01208, 0.00038, 0.00022, - + 0.00012, 0.00042, 0.00084 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ - + 0.11746, 0.02591, 0.01096, 0.00034, 0.00021, - + 0.00012, 0.00039, 0.00079, - + 0.11214, 0.02464, 0.01000, 0.00032, 0.00020, - + 0.00012, 0.00038, 0.00076, - + 0.10726, 0.02348, 0.00916, 0.00030, 0.00019, - + 0.00012, 0.00036, 0.00072, - + 0.10275, 0.02241, 0.00843, 0.00029, 0.00019, - + 0.00011, 0.00034, 0.00068, - + 0.09857, 0.02142, 0.00779, 0.00028, 0.00018, - + 0.00011, 0.00032, 0.00065 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + 0.27849, 0.06494, 0.08285, 0.00063, 0.00007, - + -0.00001, 0.00061, 0.00183, - + 0.24727, 0.05693, 0.06216, 0.00060, 0.00013, - + -0.00001, 0.00058, 0.00159, - + 0.22241, 0.05064, 0.04822, 0.00056, 0.00015, - + -0.00002, 0.00054, 0.00139, - + 0.20204, 0.04555, 0.03842, 0.00051, 0.00017, - + 0.00000, 0.00050, 0.00126, - + 0.18495, 0.04135, 0.03126, 0.00049, 0.00018, - + 0.00004, 0.00047, 0.00112, - + 0.17041, 0.03781, 0.02589, 0.00046, 0.00017, - + 0.00005, 0.00043, 0.00100, - + 0.15782, 0.03478, 0.02176, 0.00044, 0.00017, - + 0.00006, 0.00039, 0.00091 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ - + 0.14691, 0.03215, 0.01855, 0.00039, 0.00016, - + 0.00007, 0.00036, 0.00085, - + 0.13730, 0.02986, 0.01599, 0.00037, 0.00016, - + 0.00007, 0.00034, 0.00077, - + 0.12878, 0.02786, 0.01393, 0.00035, 0.00015, - + 0.00007, 0.00032, 0.00071, - + 0.12118, 0.02608, 0.01224, 0.00033, 0.00014, - + 0.00007, 0.00030, 0.00067, - + 0.11435, 0.02451, 0.01084, 0.00032, 0.00014, - + 0.00007, 0.00028, 0.00061, - + 0.10820, 0.02308, 0.00968, 0.00029, 0.00013, - + 0.00007, 0.00026, 0.00057, - + 0.10264, 0.02180, 0.00870, 0.00027, 0.00013, - + 0.00006, 0.00025, 0.00054 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ - + 0.09758, 0.02064, 0.00787, 0.00026, 0.00012, - + 0.00006, 0.00024, 0.00050, - + 0.09293, 0.01958, 0.00715, 0.00025, 0.00012, - + 0.00006, 0.00022, 0.00047, - + 0.08868, 0.01861, 0.00653, 0.00024, 0.00012, - + 0.00006, 0.00021, 0.00044, - + 0.08477, 0.01773, 0.00600, 0.00023, 0.00011, - + 0.00006, 0.00020, 0.00042, - + 0.08116, 0.01692, 0.00553, 0.00021, 0.00010, - + 0.00006, 0.00019, 0.00040 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + 0.24129, 0.05358, 0.06458, 0.00036, 0.00008, - + 0.00003, 0.00042, 0.00115, - + 0.21274, 0.04667, 0.04773, 0.00034, 0.00011, - + 0.00002, 0.00039, 0.00100, - + 0.19019, 0.04128, 0.03655, 0.00031, 0.00012, - + 0.00002, 0.00035, 0.00090, - + 0.17184, 0.03693, 0.02880, 0.00029, 0.00012, - + 0.00003, 0.00033, 0.00079, - + 0.15653, 0.03337, 0.02322, 0.00029, 0.00012, - + 0.00004, 0.00030, 0.00070, - + 0.14358, 0.03038, 0.01906, 0.00026, 0.00013, - + 0.00005, 0.00028, 0.00062, - + 0.13242, 0.02783, 0.01590, 0.00025, 0.00012, - + 0.00005, 0.00026, 0.00058 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ - + 0.12277, 0.02563, 0.01346, 0.00024, 0.00012, - + 0.00006, 0.00024, 0.00052, - + 0.11432, 0.02373, 0.01153, 0.00021, 0.00011, - + 0.00006, 0.00022, 0.00048, - + 0.10686, 0.02206, 0.00999, 0.00020, 0.00010, - + 0.00006, 0.00020, 0.00044, - + 0.10023, 0.02059, 0.00874, 0.00019, 0.00010, - + 0.00006, 0.00019, 0.00041, - + 0.09433, 0.01928, 0.00770, 0.00017, 0.00009, - + 0.00005, 0.00018, 0.00039, - + 0.08899, 0.01811, 0.00685, 0.00017, 0.00009, - + 0.00005, 0.00017, 0.00035, - + 0.08418, 0.01706, 0.00613, 0.00016, 0.00009, - + 0.00005, 0.00016, 0.00033 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ - + 0.07982, 0.01611, 0.00553, 0.00015, 0.00008, - + 0.00005, 0.00015, 0.00032, - + 0.07583, 0.01525, 0.00501, 0.00015, 0.00008, - + 0.00005, 0.00014, 0.00029, - + 0.07219, 0.01447, 0.00456, 0.00014, 0.00007, - + 0.00004, 0.00013, 0.00027, - + 0.06884, 0.01375, 0.00418, 0.00014, 0.00007, - + 0.00004, 0.00013, 0.00025, - + 0.06576, 0.01309, 0.00384, 0.00013, 0.00006, - + 0.00004, 0.00012, 0.00024 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + 0.20632, 0.04363, 0.04960, 0.00019, 0.00007, - + 0.00004, 0.00027, 0.00073, - + 0.18062, 0.03774, 0.03610, 0.00020, 0.00009, - + 0.00003, 0.00025, 0.00060, - + 0.16046, 0.03316, 0.02727, 0.00017, 0.00009, - + 0.00003, 0.00024, 0.00055, - + 0.14417, 0.02953, 0.02125, 0.00016, 0.00009, - + 0.00003, 0.00022, 0.00048, - + 0.13066, 0.02655, 0.01696, 0.00016, 0.00009, - + 0.00004, 0.00020, 0.00043, - + 0.11927, 0.02405, 0.01380, 0.00015, 0.00009, - + 0.00004, 0.00019, 0.00038, - + 0.10955, 0.02194, 0.01143, 0.00014, 0.00008, - + 0.00004, 0.00017, 0.00035 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ - + 0.10117, 0.02014, 0.00960, 0.00013, 0.00008, - + 0.00005, 0.00016, 0.00031, - + 0.09386, 0.01857, 0.00818, 0.00011, 0.00008, - + 0.00004, 0.00015, 0.00029, - + 0.08743, 0.01721, 0.00704, 0.00010, 0.00007, - + 0.00004, 0.00014, 0.00027, - + 0.08175, 0.01601, 0.00613, 0.00009, 0.00007, - + 0.00004, 0.00013, 0.00025, - + 0.07669, 0.01494, 0.00538, 0.00008, 0.00007, - + 0.00004, 0.00012, 0.00023, - + 0.07213, 0.01400, 0.00477, 0.00009, 0.00006, - + 0.00004, 0.00011, 0.00021, - + 0.06803, 0.01315, 0.00425, 0.00009, 0.00006, - + 0.00004, 0.00010, 0.00019 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ - + 0.06432, 0.01239, 0.00382, 0.00009, 0.00005, - + 0.00003, 0.00009, 0.00019, - + 0.06095, 0.01170, 0.00345, 0.00008, 0.00005, - + 0.00003, 0.00009, 0.00017, - + 0.05790, 0.01107, 0.00313, 0.00007, 0.00005, - + 0.00003, 0.00008, 0.00016, - + 0.05509, 0.01049, 0.00286, 0.00006, 0.00005, - + 0.00003, 0.00008, 0.00015, - + 0.05252, 0.00997, 0.00262, 0.00006, 0.00004, - + 0.00003, 0.00007, 0.00014 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + 0.17410, 0.03508, 0.03756, 0.00013, 0.00002, - + 0.00000, 0.00015, 0.00045, - + 0.15131, 0.03014, 0.02689, 0.00013, 0.00005, - + 0.00000, 0.00014, 0.00037, - + 0.13357, 0.02632, 0.02007, 0.00012, 0.00004, - + 0.00000, 0.00013, 0.00034, - + 0.11932, 0.02330, 0.01546, 0.00012, 0.00005, - + 0.00001, 0.00012, 0.00029, - + 0.10760, 0.02085, 0.01222, 0.00011, 0.00005, - + 0.00001, 0.00011, 0.00026, - + 0.09778, 0.01881, 0.00986, 0.00011, 0.00005, - + 0.00002, 0.00010, 0.00022, - + 0.08943, 0.01709, 0.00810, 0.00008, 0.00004, - + 0.00002, 0.00009, 0.00022 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ - + 0.08225, 0.01562, 0.00676, 0.00008, 0.00004, - + 0.00002, 0.00009, 0.00018, - + 0.07600, 0.01436, 0.00572, 0.00009, 0.00004, - + 0.00002, 0.00008, 0.00016, - + 0.07054, 0.01326, 0.00490, 0.00009, 0.00004, - + 0.00002, 0.00007, 0.00015, - + 0.06573, 0.01230, 0.00425, 0.00008, 0.00003, - + 0.00002, 0.00007, 0.00013, - + 0.06146, 0.01145, 0.00371, 0.00007, 0.00003, - + 0.00001, 0.00006, 0.00013, - + 0.05765, 0.01069, 0.00328, 0.00007, 0.00003, - + 0.00002, 0.00006, 0.00012, - + 0.05424, 0.01001, 0.00291, 0.00007, 0.00003, - + 0.00002, 0.00006, 0.00011 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ - + 0.05117, 0.00941, 0.00260, 0.00006, 0.00003, - + 0.00002, 0.00005, 0.00010, - + 0.04836, 0.00886, 0.00235, 0.00005, 0.00003, - + 0.00001, 0.00005, 0.00010, - + 0.04582, 0.00836, 0.00212, 0.00005, 0.00003, - + 0.00001, 0.00004, 0.00009, - + 0.04348, 0.00791, 0.00194, 0.00005, 0.00003, - + 0.00001, 0.00004, 0.00009, - + 0.04135, 0.00750, 0.00177, 0.00005, 0.00003, - + 0.00001, 0.00004, 0.00008 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + 0.14432, 0.02762, 0.02776, 0.00005, 0.00003, - + 0.00002, 0.00010, 0.00025, - + 0.12451, 0.02355, 0.01957, 0.00004, 0.00004, - + 0.00002, 0.00010, 0.00021, - + 0.10919, 0.02044, 0.01441, 0.00006, 0.00005, - + 0.00002, 0.00010, 0.00018, - + 0.09697, 0.01800, 0.01097, 0.00005, 0.00004, - + 0.00002, 0.00008, 0.00017, - + 0.08697, 0.01602, 0.00858, 0.00006, 0.00004, - + 0.00002, 0.00007, 0.00014, - + 0.07865, 0.01438, 0.00686, 0.00005, 0.00004, - + 0.00002, 0.00007, 0.00013, - + 0.07161, 0.01301, 0.00559, 0.00005, 0.00003, - + 0.00002, 0.00006, 0.00012 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ - + 0.06557, 0.01185, 0.00464, 0.00005, 0.00003, - + 0.00002, 0.00005, 0.00011, - + 0.06038, 0.01085, 0.00390, 0.00004, 0.00003, - + 0.00002, 0.00005, 0.00010, - + 0.05584, 0.00998, 0.00332, 0.00003, 0.00003, - + 0.00002, 0.00005, 0.00009, - + 0.05185, 0.00922, 0.00286, 0.00003, 0.00002, - + 0.00002, 0.00005, 0.00008, - + 0.04833, 0.00856, 0.00249, 0.00002, 0.00002, - + 0.00001, 0.00004, 0.00008, - + 0.04519, 0.00797, 0.00219, 0.00003, 0.00002, - + 0.00002, 0.00004, 0.00007, - + 0.04238, 0.00744, 0.00194, 0.00003, 0.00003, - + 0.00002, 0.00004, 0.00006 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ - + 0.03986, 0.00697, 0.00173, 0.00002, 0.00002, - + 0.00001, 0.00003, 0.00006, - + 0.03758, 0.00655, 0.00155, 0.00002, 0.00002, - + 0.00001, 0.00003, 0.00005, - + 0.03551, 0.00617, 0.00140, 0.00002, 0.00002, - + 0.00001, 0.00003, 0.00005, - + 0.03362, 0.00582, 0.00127, 0.00002, 0.00002, - + 0.00001, 0.00003, 0.00005, - + 0.03190, 0.00551, 0.00116, 0.00002, 0.00002, - + 0.00001, 0.00003, 0.00004 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + 0.09420, 0.01625, 0.01428, 0.00002, 0.00000, - + 0.00000, 0.00003, 0.00008, - + 0.08000, 0.01364, 0.00973, 0.00002, 0.00001, - + 0.00000, 0.00003, 0.00006, - + 0.06919, 0.01168, 0.00696, 0.00003, 0.00001, - + 0.00000, 0.00002, 0.00005, - + 0.06069, 0.01017, 0.00517, 0.00002, 0.00001, - + 0.00000, 0.00002, 0.00005, - + 0.05383, 0.00895, 0.00396, 0.00002, 0.00001, - + 0.00000, 0.00002, 0.00005, - + 0.04819, 0.00795, 0.00311, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00004, - + 0.04345, 0.00712, 0.00250, 0.00001, 0.00001, - + 0.00001, 0.00002, 0.00004 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ - + 0.03945, 0.00643, 0.00204, 0.00001, 0.00001, - + 0.00001, 0.00002, 0.00003, - + 0.03602, 0.00584, 0.00170, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00003, - + 0.03305, 0.00533, 0.00143, 0.00001, 0.00001, - + 0.00001, 0.00002, 0.00003, - + 0.03047, 0.00490, 0.00122, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00002, - + 0.02821, 0.00451, 0.00105, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00002, - + 0.02620, 0.00417, 0.00092, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.02443, 0.00387, 0.00081, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00002 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ - + 0.02284, 0.00361, 0.00071, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00002, - + 0.02141, 0.00337, 0.00064, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00002, - + 0.02012, 0.00316, 0.00057, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01895, 0.00296, 0.00052, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01789, 0.00279, 0.00047, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + 0.05623, 0.00867, 0.00655, 0.00002, 0.00000, - + 0.00000, 0.00000, 0.00002, - + 0.04695, 0.00716, 0.00431, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00002, - + 0.04001, 0.00604, 0.00299, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00002, - + 0.03463, 0.00519, 0.00217, 0.00000, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.03035, 0.00451, 0.00163, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.02686, 0.00397, 0.00125, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.02398, 0.00352, 0.00099, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ - + 0.02157, 0.00315, 0.00080, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01952, 0.00283, 0.00065, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01776, 0.00257, 0.00055, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01625, 0.00234, 0.00046, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01493, 0.00214, 0.00039, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01377, 0.00197, 0.00034, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01275, 0.00181, 0.00030, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ - + 0.01185, 0.00168, 0.00026, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01103, 0.00156, 0.00023, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01031, 0.00145, 0.00021, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00966, 0.00136, 0.00019, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00907, 0.00127, 0.00017, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + 0.02985, 0.00406, 0.00258, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.02444, 0.00329, 0.00163, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.02049, 0.00273, 0.00110, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01747, 0.00231, 0.00077, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01510, 0.00199, 0.00057, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01320, 0.00172, 0.00043, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01166, 0.00151, 0.00033, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ - + 0.01037, 0.00134, 0.00026, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00929, 0.00119, 0.00021, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00838, 0.00107, 0.00018, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00759, 0.00097, 0.00015, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00692, 0.00088, 0.00013, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00633, 0.00080, 0.00011, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00582, 0.00073, 0.00009, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ - + 0.00537, 0.00067, 0.00008, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00497, 0.00062, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00461, 0.00058, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00429, 0.00053, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00401, 0.00050, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + 0.01333, 0.00157, 0.00081, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01068, 0.00124, 0.00049, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00878, 0.00101, 0.00032, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00736, 0.00084, 0.00022, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00627, 0.00071, 0.00016, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00540, 0.00061, 0.00011, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00470, 0.00053, 0.00009, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ - + 0.00413, 0.00046, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00366, 0.00041, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00327, 0.00036, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00293, 0.00032, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00265, 0.00029, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00240, 0.00026, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00218, 0.00024, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ - + 0.00200, 0.00022, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00183, 0.00020, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00169, 0.00018, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00156, 0.00017, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00145, 0.00016, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + 0.00099, 0.00008, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00074, 0.00006, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00058, 0.00004, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00046, 0.00004, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00037, 0.00003, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00031, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00026, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ - + 0.00022, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00019, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00016, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00014, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00010, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ - + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00006, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00006, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,5,9,0,0,9,9/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - XSAVE=X -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(30,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7) GO TO 31 - DO 30 K=1,19 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-DINT(RM) - M=1+IDINT(RM) - DO 60 I=1,8 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) - - X=XSAVE - - RETURN - END diff --git a/PDF/spdf/sfmsba.F b/PDF/spdf/sfmsba.F deleted file mode 100644 index 3a183eaca08..00000000000 --- a/PDF/spdf/sfmsba.F +++ /dev/null @@ -1,1982 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:14 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:41 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFMSBA(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) -C -C THIS IS THE NEW "A" FIT -- May 1994 -- standard Q^2 range -C -#include "pdf/impdp.inc" -C - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,20),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + 0.00383, 0.00653, 28.15842, 2.66466, 0.26782, - + 0.00000, 1.41125, 2.66188, - + 0.00424, 0.00681, 40.95661, 3.06669, 0.72520, - + 0.00000, 1.84358, 3.06487, - + 0.00462, 0.00707, 55.69226, 3.52457, 1.23064, - + 0.00000, 2.32757, 3.52363, - + 0.00497, 0.00731, 71.98843, 4.03218, 1.77997, - + 0.34007, 2.85815, 4.03207, - + 0.00531, 0.00753, 89.79082, 4.58542, 2.37052, - + 0.97946, 3.43198, 4.58611, - + 0.00563, 0.00774, 108.92063, 5.18108, 2.99995, - + 1.62786, 4.04631, 5.18253, - + 0.00594, 0.00795, 129.17682, 5.81455, 3.66427, - + 2.31175, 4.69687, 5.81673 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ - + 0.00624, 0.00814, 150.39406, 6.48174, 4.35982, - + 3.02502, 5.37980, 6.48462, - + 0.00652, 0.00833, 172.43767, 7.17909, 5.08341, - + 3.76499, 6.09173, 7.18264, - + 0.00680, 0.00851, 195.20667, 7.90361, 5.83233, - + 4.52908, 6.82983, 7.90783, - + 0.00707, 0.00868, 218.62808, 8.65304, 6.60453, - + 5.31542, 7.59195, 8.65788, - + 0.00733, 0.00885, 242.57538, 9.42471, 7.39756, - + 6.12166, 8.37553, 9.43016, - + 0.00759, 0.00901, 266.79108, 10.21366, 8.20665, - + 6.94318, 9.17574, 10.21972, - + 0.00783, 0.00917, 291.48782, 11.02185, 9.03382, - + 7.78204, 9.99453, 11.02848 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ - + 0.00808, 0.00932, 316.54001, 11.84695, 9.87688, - + 8.63616, 10.82968, 11.85414, - + 0.00831, 0.00947, 341.62692, 12.68269, 10.72970, - + 9.49945, 11.67498, 12.69042, - + 0.00854, 0.00961, 367.17233, 13.53576, 11.59899, - + 10.37867, 12.53714, 13.54402, - + 0.00877, 0.00976, 392.56421, 14.39482, 12.47355, - + 11.26270, 13.40489, 14.40360, - + 0.00899, 0.00989, 418.32065, 15.26866, 13.36216, - + 12.16033, 14.28701, 15.27794 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + 0.00579, 0.00839, 22.78315, 2.15515, 0.21426, - + 0.00000, 1.13797, 2.15464, - + 0.00636, 0.00877, 32.73079, 2.46979, 0.57339, - + 0.00000, 1.47669, 2.46986, - + 0.00689, 0.00911, 43.96273, 2.82321, 0.96497, - + 0.00000, 1.85080, 2.82382, - + 0.00738, 0.00943, 56.16534, 3.21005, 1.38526, - + 0.25995, 2.25582, 3.21117, - + 0.00785, 0.00973, 69.29437, 3.62713, 1.83220, - + 0.74521, 2.68916, 3.62872, - + 0.00830, 0.01002, 83.20822, 4.07170, 2.30378, - + 1.23206, 3.14846, 4.07376, - + 0.00872, 0.01029, 97.75517, 4.54012, 2.79684, - + 1.74079, 3.63033, 4.54261 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ - + 0.00913, 0.01054, 112.81502, 5.02922, 3.30858, - + 2.26672, 4.13180, 5.03214, - + 0.00953, 0.01079, 128.29343, 5.53634, 3.83662, - + 2.80787, 4.65036, 5.53965, - + 0.00991, 0.01103, 144.12270, 6.05927, 4.37899, - + 3.36238, 5.18395, 6.06298, - + 0.01028, 0.01125, 160.25618, 6.59641, 4.93426, - + 3.92896, 5.73103, 6.60049, - + 0.01064, 0.01147, 176.60817, 7.14582, 5.50066, - + 4.50594, 6.28976, 7.15026, - + 0.01098, 0.01169, 193.00063, 7.70383, 6.07467, - + 5.08989, 6.85655, 7.70862, - + 0.01132, 0.01189, 209.59521, 8.27215, 6.65806, - + 5.68264, 7.43316, 8.27728 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ - + 0.01165, 0.01209, 226.30714, 8.84913, 7.24931, - + 6.28271, 8.01798, 8.85459, - + 0.01197, 0.01229, 242.91707, 9.43015, 7.84388, - + 6.88566, 8.60646, 9.43594, - + 0.01228, 0.01247, 259.72992, 10.02044, 8.44703, - + 7.49675, 9.20383, 10.02654, - + 0.01259, 0.01266, 276.32343, 10.61163, 9.05049, - + 8.10778, 9.80177, 10.61803, - + 0.01288, 0.01284, 293.06424, 11.21039, 9.66095, - + 8.72545, 10.40698, 11.21708 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + 0.00862, 0.01079, 18.43334, 1.74251, 0.17137, - + 0.00000, 0.91755, 1.74354, - + 0.00942, 0.01129, 26.15385, 1.98844, 0.45309, - + 0.00000, 1.18265, 1.98981, - + 0.01016, 0.01176, 34.69698, 2.26072, 0.75605, - + 0.00000, 1.47138, 2.26242, - + 0.01085, 0.01218, 43.80949, 2.55486, 1.07703, - + 0.19835, 1.77993, 2.55686, - + 0.01150, 0.01258, 53.46115, 2.86845, 1.41456, - + 0.56595, 2.10639, 2.87073, - + 0.01212, 0.01296, 63.54490, 3.19929, 1.76704, - + 0.93070, 2.44886, 3.20183, - + 0.01271, 0.01331, 73.95010, 3.54455, 2.13201, - + 1.30822, 2.80473, 3.54734 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ - + 0.01327, 0.01365, 84.59291, 3.90185, 2.50741, - + 1.69498, 3.17178, 3.90489, - + 0.01381, 0.01398, 95.41053, 4.26926, 2.89153, - + 2.08959, 3.54820, 4.27252, - + 0.01434, 0.01429, 106.36025, 4.64524, 3.28302, - + 2.49080, 3.93254, 4.64872, - + 0.01484, 0.01459, 117.41489, 5.02866, 3.68091, - + 2.89773, 4.32378, 5.03236, - + 0.01533, 0.01488, 128.51851, 5.41818, 4.08396, - + 3.30925, 4.72060, 5.42208, - + 0.01580, 0.01516, 139.54984, 5.81109, 4.48961, - + 3.72285, 5.12040, 5.81519, - + 0.01626, 0.01543, 150.63226, 6.20892, 4.89945, - + 4.14017, 5.52471, 6.21321 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ - + 0.01671, 0.01569, 161.71013, 6.61051, 5.31237, - + 4.56016, 5.93243, 6.61498, - + 0.01714, 0.01594, 172.63414, 7.01250, 5.72513, - + 4.97961, 6.34024, 7.01715, - + 0.01756, 0.01619, 183.62479, 7.41894, 6.14179, - + 5.40262, 6.75221, 7.42377, - + 0.01798, 0.01643, 194.39084, 7.82370, 6.55629, - + 5.82317, 7.16224, 7.82869, - + 0.01838, 0.01666, 205.19286, 8.23184, 6.97373, - + 6.24637, 7.57542, 8.23700 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + 0.01083, 0.01250, 16.28428, 1.53846, 0.15036, - + 0.00000, 0.80894, 1.54017, - + 0.01181, 0.01310, 22.93523, 1.75120, 0.39465, - + 0.00000, 1.03849, 1.75318, - + 0.01270, 0.01365, 30.20590, 1.98472, 0.65519, - + 0.00000, 1.28641, 1.98694, - + 0.01354, 0.01415, 37.87578, 2.23498, 0.92907, - + 0.16916, 1.54928, 2.23742, - + 0.01432, 0.01462, 45.92312, 2.50000, 1.21515, - + 0.48132, 1.82553, 2.50264, - + 0.01507, 0.01506, 54.25890, 2.77786, 1.51203, - + 0.78902, 2.11355, 2.78069, - + 0.01578, 0.01549, 62.79275, 3.06616, 1.81766, - + 1.10565, 2.41111, 3.06918 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ - + 0.01646, 0.01589, 71.45830, 3.36294, 2.13034, - + 1.42830, 2.71639, 3.36613, - + 0.01711, 0.01627, 80.20737, 3.66660, 2.44867, - + 1.75584, 3.02790, 3.66996, - + 0.01774, 0.01663, 89.00863, 3.97591, 2.77159, - + 2.08729, 3.34449, 3.97943, - + 0.01835, 0.01699, 97.84350, 4.29001, 3.09837, - + 2.42202, 3.66537, 4.29367, - + 0.01894, 0.01732, 106.66942, 4.60778, 3.42802, - + 2.75909, 3.98951, 4.61160, - + 0.01950, 0.01765, 115.38995, 4.92701, 3.75841, - + 3.09646, 4.31471, 4.93097, - + 0.02005, 0.01797, 124.11079, 5.24911, 4.09103, - + 3.43564, 4.64244, 5.25320 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ - + 0.02058, 0.01827, 132.78889, 5.57313, 4.42499, - + 3.77580, 4.97179, 5.57736, - + 0.02110, 0.01857, 141.30566, 5.89632, 4.75760, - + 4.11428, 5.30002, 5.90066, - + 0.02161, 0.01885, 149.84323, 6.22216, 5.09238, - + 4.45463, 5.63065, 6.22663, - + 0.02210, 0.01913, 158.16785, 6.54552, 5.42427, - + 4.79183, 5.95859, 6.55011, - + 0.02258, 0.01940, 166.49304, 6.87075, 5.75763, - + 5.13024, 6.28818, 6.87545 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + 0.01271, 0.01388, 14.91292, 1.40814, 0.13702, - + 0.00000, 0.73975, 1.41028, - + 0.01383, 0.01456, 20.89327, 1.60001, 0.35774, - + 0.00000, 0.94694, 1.60238, - + 0.01486, 0.01517, 27.37356, 1.80930, 0.59174, - + 0.00000, 1.16936, 1.81186, - + 0.01581, 0.01574, 34.15500, 2.03230, 0.83633, - + 0.15102, 1.40383, 2.03505, - + 0.01671, 0.01627, 41.22172, 2.26730, 1.09057, - + 0.42883, 1.64906, 2.27022, - + 0.01757, 0.01677, 48.49636, 2.51259, 1.35323, - + 0.70137, 1.90358, 2.51566, - + 0.01838, 0.01724, 55.90141, 2.76604, 1.62250, - + 0.98067, 2.16544, 2.76926 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ - + 0.01916, 0.01769, 63.38121, 3.02593, 1.89691, - + 1.26417, 2.43306, 3.02930, - + 0.01990, 0.01812, 70.89649, 3.29090, 2.17526, - + 1.55092, 2.70515, 3.29440, - + 0.02062, 0.01853, 78.42281, 3.55990, 2.45668, - + 1.84011, 2.98076, 3.56353, - + 0.02131, 0.01892, 85.94665, 3.83222, 2.74057, - + 2.13124, 3.25923, 3.83597, - + 0.02197, 0.01930, 93.43315, 4.10692, 3.02609, - + 2.42353, 3.53969, 4.11078, - + 0.02262, 0.01967, 100.80080, 4.38205, 3.31140, - + 2.71520, 3.82025, 4.38603, - + 0.02324, 0.02002, 108.14440, 4.65896, 3.59789, - + 3.00767, 4.10226, 4.66305 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ - + 0.02385, 0.02036, 115.42803, 4.93683, 3.88482, - + 3.30025, 4.38495, 4.94102, - + 0.02443, 0.02069, 122.55126, 5.21326, 4.16983, - + 3.59061, 4.66595, 5.21755, - + 0.02501, 0.02101, 129.67320, 5.49139, 4.45611, - + 3.88197, 4.94842, 5.49578, - + 0.02556, 0.02132, 136.59415, 5.76672, 4.73921, - + 4.16990, 5.22789, 5.77120, - + 0.02610, 0.02162, 143.49922, 6.04313, 5.02301, - + 4.45831, 5.50824, 6.04770 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + 0.01437, 0.01506, 13.92903, 1.31459, 0.12748, - + 0.00000, 0.69017, 1.31704, - + 0.01561, 0.01580, 19.43438, 1.49164, 0.33147, - + 0.00000, 0.88149, 1.49428, - + 0.01676, 0.01648, 25.35865, 1.68380, 0.54669, - + 0.00000, 1.08587, 1.68663, - + 0.01782, 0.01710, 31.51905, 1.88763, 0.77066, - + 0.13825, 1.30038, 1.89062, - + 0.01882, 0.01768, 37.90410, 2.10159, 1.00258, - + 0.39196, 1.52386, 2.10473, - + 0.01977, 0.01822, 44.44489, 2.32414, 1.24132, - + 0.63992, 1.75499, 2.32742, - + 0.02067, 0.01874, 51.07295, 2.55334, 1.48527, - + 0.89320, 1.99201, 2.55675 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ - + 0.02153, 0.01923, 57.74014, 2.78765, 1.73311, - + 1.14949, 2.23349, 2.79119, - + 0.02236, 0.01970, 64.41331, 3.02587, 1.98380, - + 1.40800, 2.47832, 3.02952, - + 0.02315, 0.02015, 71.07264, 3.26707, 2.23658, - + 1.66801, 2.72566, 3.27084, - + 0.02391, 0.02058, 77.70800, 3.51066, 2.49094, - + 1.92912, 2.97497, 3.51453, - + 0.02465, 0.02099, 84.28979, 3.75581, 2.74618, - + 2.19064, 3.22547, 3.75978, - + 0.02536, 0.02139, 90.74677, 4.00077, 3.00061, - + 2.45100, 3.47545, 4.00484, - + 0.02605, 0.02177, 97.16567, 4.24682, 3.25559, - + 2.71154, 3.72623, 4.25098 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ - + 0.02671, 0.02214, 103.51585, 4.49325, 3.51045, - + 2.97165, 3.97714, 4.49750, - + 0.02736, 0.02250, 109.70876, 4.73789, 3.76308, - + 3.22926, 4.22601, 4.74222, - + 0.02799, 0.02285, 115.88792, 4.98364, 4.01642, - + 3.48733, 4.47580, 4.98807, - + 0.02860, 0.02319, 121.87642, 5.22645, 4.26645, - + 3.74185, 4.72243, 5.23095, - + 0.02920, 0.02352, 127.84000, 5.46984, 4.51673, - + 3.99642, 4.96948, 5.47442 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + 0.02093, 0.01941, 11.26643, 1.06105, 0.10183, - + 0.00000, 0.55629, 1.06444, - + 0.02268, 0.02041, 15.51377, 1.19866, 0.26125, - + 0.00000, 0.70541, 1.20223, - + 0.02428, 0.02130, 19.98321, 1.34567, 0.42692, - + 0.00000, 0.86226, 1.34940, - + 0.02575, 0.02213, 24.53687, 1.49934, 0.59687, - + 0.10483, 1.02451, 1.50321, - + 0.02713, 0.02290, 29.17542, 1.65866, 0.77070, - + 0.29572, 1.19148, 1.66267, - + 0.02844, 0.02362, 33.85272, 1.82251, 0.94763, - + 0.48005, 1.36222, 1.82664, - + 0.02968, 0.02430, 38.52400, 1.98949, 1.12652, - + 0.66639, 1.53548, 1.99373 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ - + 0.03086, 0.02495, 43.16029, 2.15854, 1.30648, - + 0.85312, 1.71027, 2.16289, - + 0.03199, 0.02557, 47.74363, 2.32885, 1.48686, - + 1.03974, 1.88589, 2.33330, - + 0.03307, 0.02616, 52.26545, 2.49987, 1.66720, - + 1.22587, 2.06181, 2.50441, - + 0.03411, 0.02672, 56.72363, 2.67124, 1.84726, - + 1.41131, 2.23775, 2.67587, - + 0.03511, 0.02726, 61.10136, 2.84242, 2.02656, - + 1.59564, 2.41321, 2.84714, - + 0.03607, 0.02778, 65.35197, 3.01218, 2.20396, - + 1.77777, 2.58699, 3.01698, - + 0.03700, 0.02828, 69.54204, 3.18162, 2.38058, - + 1.95884, 2.76022, 3.18650 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ - + 0.03790, 0.02876, 73.65256, 3.35028, 2.55602, - + 2.13848, 2.93244, 3.35523, - + 0.03877, 0.02923, 77.62486, 3.51659, 2.72877, - + 2.31520, 3.10214, 3.52162, - + 0.03962, 0.02968, 81.56219, 3.68282, 2.90110, - + 2.49131, 3.27158, 3.68792, - + 0.04044, 0.03012, 85.34420, 3.84601, 3.07010, - + 2.66389, 3.43782, 3.85117, - + 0.04124, 0.03055, 89.08799, 4.00884, 3.23846, - + 2.83568, 3.60356, 4.01406 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + 0.03032, 0.02511, 9.10952, 0.85512, 0.08122, - + 0.00000, 0.44819, 0.85959, - + 0.03276, 0.02644, 12.36868, 0.96155, 0.20539, - + 0.00000, 0.56399, 0.96625, - + 0.03498, 0.02763, 15.71702, 1.07334, 0.33235, - + 0.00000, 0.68380, 1.07825, - + 0.03701, 0.02873, 19.05450, 1.18838, 0.46064, - + 0.07908, 0.80583, 1.19348, - + 0.03892, 0.02974, 22.39167, 1.30611, 0.59016, - + 0.22192, 0.92978, 1.31137, - + 0.04071, 0.03070, 25.70026, 1.42573, 0.72041, - + 0.35811, 1.05501, 1.43115, - + 0.04241, 0.03160, 28.95338, 1.54627, 0.85063, - + 0.49428, 1.18066, 1.55184 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ - + 0.04402, 0.03245, 32.13588, 1.66706, 0.98029, - + 0.62934, 1.30612, 1.67276, - + 0.04555, 0.03326, 35.24037, 1.78758, 1.10899, - + 0.76302, 1.43095, 1.79342, - + 0.04702, 0.03403, 38.26561, 1.90753, 1.23652, - + 0.89517, 1.55490, 1.91349, - + 0.04842, 0.03476, 41.21448, 2.02674, 1.36278, - + 1.02573, 1.67783, 2.03281, - + 0.04977, 0.03547, 44.07856, 2.14488, 1.48753, - + 1.15449, 1.79945, 2.15107, - + 0.05106, 0.03614, 46.82820, 2.26109, 1.60994, - + 1.28068, 1.91893, 2.26739, - + 0.05231, 0.03679, 49.51406, 2.37632, 1.73101, - + 1.40529, 2.03723, 2.38272 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ - + 0.05352, 0.03742, 52.12506, 2.49026, 1.85046, - + 1.52809, 2.15407, 2.49675, - + 0.05469, 0.03802, 54.62273, 2.60181, 1.96723, - + 1.64804, 2.26838, 2.60840, - + 0.05582, 0.03860, 57.08110, 2.71272, 2.08310, - + 1.76692, 2.38190, 2.71940, - + 0.05691, 0.03917, 59.41876, 2.82084, 2.19594, - + 1.88262, 2.49251, 2.82761, - + 0.05798, 0.03972, 61.71810, 2.92821, 2.30782, - + 1.99722, 2.60225, 2.93506 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + 0.03759, 0.02928, 8.04229, 0.75299, 0.07107, - + 0.00000, 0.39483, 0.75825, - + 0.04054, 0.03084, 10.82227, 0.84422, 0.17806, - + 0.00000, 0.49442, 0.84977, - + 0.04322, 0.03225, 13.63543, 0.93905, 0.28637, - + 0.00000, 0.59640, 0.94486, - + 0.04567, 0.03354, 16.40099, 1.03570, 0.39478, - + 0.06681, 0.69927, 1.04173, - + 0.04796, 0.03474, 19.13413, 1.13379, 0.50335, - + 0.18688, 0.80292, 1.14004, - + 0.05011, 0.03586, 21.81510, 1.23270, 0.61172, - + 0.30047, 0.90685, 1.23915, - + 0.05214, 0.03691, 24.42526, 1.33169, 0.71931, - + 0.41327, 1.01040, 1.33833 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ - + 0.05407, 0.03791, 26.95555, 1.43024, 0.82574, - + 0.52443, 1.11312, 1.43705, - + 0.05589, 0.03885, 29.40300, 1.52799, 0.93076, - + 0.63382, 1.21473, 1.53497, - + 0.05764, 0.03975, 31.76937, 1.62473, 1.03425, - + 0.74134, 1.31504, 1.63187, - + 0.05931, 0.04061, 34.05931, 1.72038, 1.13618, - + 0.84703, 1.41402, 1.72766, - + 0.06091, 0.04143, 36.26794, 1.81471, 1.23638, - + 0.95075, 1.51146, 1.82213, - + 0.06244, 0.04221, 38.37289, 1.90703, 1.33422, - + 1.05189, 1.60671, 1.91459, - + 0.06392, 0.04297, 40.41710, 1.99819, 1.43057, - + 1.15135, 1.70062, 2.00588 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ - + 0.06534, 0.04369, 42.39277, 2.08795, 1.52525, - + 1.24895, 1.79299, 2.09577, - + 0.06672, 0.04439, 44.27015, 2.17545, 1.61739, - + 1.34387, 1.88294, 2.18338, - + 0.06805, 0.04507, 46.10979, 2.26215, 1.70851, - + 1.43762, 1.97198, 2.27019, - + 0.06934, 0.04572, 47.84745, 2.34630, 1.79686, - + 1.52848, 2.05836, 2.35446, - + 0.07059, 0.04635, 49.54973, 2.42961, 1.88418, - + 1.61820, 2.14380, 2.43788 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + 0.04376, 0.03271, 7.36026, 0.68763, 0.06460, - + 0.00000, 0.36076, 0.69355, - + 0.04714, 0.03447, 9.83669, 0.76922, 0.16068, - + 0.00000, 0.45006, 0.77548, - + 0.05019, 0.03606, 12.31420, 0.85336, 0.25723, - + 0.00000, 0.54081, 0.85992, - + 0.05299, 0.03751, 14.72451, 0.93849, 0.35318, - + 0.05913, 0.63171, 0.94532, - + 0.05559, 0.03885, 17.08565, 1.02437, 0.44870, - + 0.16500, 0.72272, 1.03145, - + 0.05803, 0.04010, 19.38313, 1.11048, 0.54352, - + 0.26457, 0.81347, 1.11779, - + 0.06033, 0.04128, 21.60332, 1.19621, 0.63717, - + 0.36296, 0.90341, 1.20374 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ - + 0.06250, 0.04239, 23.74072, 1.28114, 0.72936, - + 0.45946, 0.99222, 1.28888, - + 0.06457, 0.04344, 25.79492, 1.36500, 0.81993, - + 0.55399, 1.07965, 1.37294, - + 0.06653, 0.04444, 27.76928, 1.44766, 0.90880, - + 0.64654, 1.16562, 1.45578, - + 0.06841, 0.04540, 29.66939, 1.52907, 0.99600, - + 0.73716, 1.25012, 1.53736, - + 0.07021, 0.04631, 31.49225, 1.60905, 1.08140, - + 0.82576, 1.33299, 1.61752, - + 0.07194, 0.04718, 33.21981, 1.68704, 1.16447, - + 0.91183, 1.41369, 1.69567, - + 0.07360, 0.04801, 34.89013, 1.76381, 1.24603, - + 0.99621, 1.49301, 1.77258 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ - + 0.07520, 0.04881, 36.49722, 1.83917, 1.32592, - + 1.07877, 1.57078, 1.84809, - + 0.07673, 0.04959, 38.01646, 1.91237, 1.40341, - + 1.15878, 1.64627, 1.92143, - + 0.07822, 0.05033, 39.50019, 1.98473, 1.47985, - + 1.23761, 1.72081, 1.99393, - + 0.07966, 0.05105, 40.89431, 2.05473, 1.55373, - + 1.31377, 1.79288, 2.06406, - + 0.08106, 0.05175, 42.25586, 2.12388, 1.62658, - + 1.38879, 1.86400, 2.13334 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + 0.04928, 0.03574, 6.86937, 0.64065, 0.05990, - + 0.00000, 0.33610, 0.64709, - + 0.05301, 0.03768, 9.12498, 0.71525, 0.14804, - + 0.00000, 0.41792, 0.72206, - + 0.05639, 0.03942, 11.35974, 0.79168, 0.23607, - + 0.00000, 0.50053, 0.79882, - + 0.05947, 0.04101, 13.51488, 0.86854, 0.32304, - + 0.05360, 0.58278, 0.87597, - + 0.06233, 0.04247, 15.61026, 0.94568, 0.40919, - + 0.14928, 0.66472, 0.95337, - + 0.06501, 0.04384, 17.63542, 1.02266, 0.49431, - + 0.23882, 0.74604, 1.03061, - + 0.06753, 0.04512, 19.58012, 1.09897, 0.57802, - + 0.32693, 0.82629, 1.10715 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ - + 0.06992, 0.04633, 21.44131, 1.17426, 0.66010, - + 0.41301, 0.90520, 1.18266, - + 0.07218, 0.04748, 23.22055, 1.24834, 0.74043, - + 0.49702, 0.98261, 1.25694, - + 0.07433, 0.04856, 24.92199, 1.32109, 0.81899, - + 0.57899, 1.05846, 1.32989, - + 0.07638, 0.04959, 26.55169, 1.39251, 0.89583, - + 0.65901, 1.13278, 1.40150, - + 0.07834, 0.05058, 28.10815, 1.46247, 0.97085, - + 0.73699, 1.20543, 1.47164, - + 0.08022, 0.05152, 29.57612, 1.53046, 1.04359, - + 0.81253, 1.27596, 1.53980, - + 0.08202, 0.05242, 30.99007, 1.59721, 1.11482, - + 0.88638, 1.34510, 1.60671 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ - + 0.08376, 0.05329, 32.34525, 1.66257, 1.18441, - + 0.95844, 1.41272, 1.67222, - + 0.08543, 0.05412, 33.62056, 1.72588, 1.25173, - + 1.02810, 1.47816, 1.73568, - + 0.08705, 0.05492, 34.86252, 1.78833, 1.31800, - + 1.09659, 1.54266, 1.79828, - + 0.08860, 0.05569, 36.02439, 1.84858, 1.38187, - + 1.16258, 1.60484, 1.85866, - + 0.09012, 0.05644, 37.15619, 1.90798, 1.44473, - + 1.22746, 1.66609, 1.91820 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + 0.07115, 0.04744, 5.53899, 0.51305, 0.04724, - + 0.00000, 0.26968, 0.52174, - + 0.07622, 0.05002, 7.20629, 0.56895, 0.11419, - + 0.00000, 0.33152, 0.57813, - + 0.08077, 0.05232, 8.80460, 0.62496, 0.17967, - + 0.00000, 0.39264, 0.63459, - + 0.08490, 0.05440, 10.30043, 0.68015, 0.24312, - + 0.03913, 0.45228, 0.69018, - + 0.08872, 0.05631, 11.71833, 0.73460, 0.30493, - + 0.10827, 0.51069, 0.74499, - + 0.09227, 0.05809, 13.05725, 0.78808, 0.36506, - + 0.17194, 0.56776, 0.79881, - + 0.09559, 0.05974, 14.31548, 0.84032, 0.42336, - + 0.23372, 0.62326, 0.85136 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ - + 0.09872, 0.06129, 15.49562, 0.89117, 0.47977, - + 0.29330, 0.67711, 0.90250, - + 0.10167, 0.06275, 16.60275, 0.94056, 0.53429, - + 0.35074, 0.72927, 0.95217, - + 0.10446, 0.06413, 17.64306, 0.98851, 0.58700, - + 0.40615, 0.77979, 1.00038, - + 0.10712, 0.06544, 18.62338, 1.03508, 0.63800, - + 0.45967, 0.82875, 1.04719, - + 0.10965, 0.06668, 19.54482, 1.08021, 0.68729, - + 0.51132, 0.87613, 1.09256, - + 0.11205, 0.06785, 20.39902, 1.12360, 0.73458, - + 0.56081, 0.92162, 1.13616, - + 0.11436, 0.06898, 21.21094, 1.16582, 0.78048, - + 0.60879, 0.96583, 1.17860 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ - + 0.11658, 0.07006, 21.97861, 1.20680, 0.82495, - + 0.65521, 1.00869, 1.21978, - + 0.11870, 0.07109, 22.68923, 1.24611, 0.86755, - + 0.69967, 1.04977, 1.25927, - + 0.12075, 0.07208, 23.37444, 1.28462, 0.90921, - + 0.74308, 1.08999, 1.29798, - + 0.12272, 0.07303, 24.00451, 1.32141, 0.94897, - + 0.78453, 1.12839, 1.33494, - + 0.12462, 0.07395, 24.61268, 1.35746, 0.98788, - + 0.82503, 1.16598, 1.37117 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + 0.10262, 0.06404, 4.45704, 0.40977, 0.03700, - + 0.00000, 0.21612, 0.42153, - + 0.10936, 0.06741, 5.65313, 0.45065, 0.08690, - + 0.00000, 0.26192, 0.46307, - + 0.11536, 0.07039, 6.75557, 0.49056, 0.13455, - + 0.00000, 0.30606, 0.50357, - + 0.12076, 0.07306, 7.75081, 0.52896, 0.17970, - + 0.02790, 0.34814, 0.54247, - + 0.12570, 0.07549, 8.66580, 0.56608, 0.22286, - + 0.07664, 0.38855, 0.58006, - + 0.13027, 0.07773, 9.50576, 0.60186, 0.26410, - + 0.12069, 0.42731, 0.61627, - + 0.13452, 0.07980, 10.27447, 0.63621, 0.30344, - + 0.16278, 0.46439, 0.65102 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ - + 0.13849, 0.08172, 10.97758, 0.66911, 0.34091, - + 0.20275, 0.49978, 0.68428, - + 0.14221, 0.08351, 11.62169, 0.70059, 0.37661, - + 0.24076, 0.53357, 0.71610, - + 0.14572, 0.08520, 12.21352, 0.73072, 0.41067, - + 0.27696, 0.56585, 0.74656, - + 0.14903, 0.08678, 12.75969, 0.75961, 0.44322, - + 0.31150, 0.59674, 0.77575, - + 0.15217, 0.08828, 13.26261, 0.78725, 0.47430, - + 0.34443, 0.62626, 0.80367, - + 0.15514, 0.08969, 13.71802, 0.81348, 0.50376, - + 0.37563, 0.65425, 0.83017, - + 0.15798, 0.09104, 14.14334, 0.83874, 0.53207, - + 0.40558, 0.68118, 0.85568 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ - + 0.16069, 0.09232, 14.53804, 0.86300, 0.55921, - + 0.43426, 0.70701, 0.88018, - + 0.16327, 0.09353, 14.89501, 0.88597, 0.58492, - + 0.46143, 0.73147, 0.90338, - + 0.16576, 0.09469, 15.23480, 0.90830, 0.60986, - + 0.48776, 0.75524, 0.92593, - + 0.16812, 0.09580, 15.53910, 0.92937, 0.63341, - + 0.51262, 0.77766, 0.94721, - + 0.17041, 0.09686, 15.82931, 0.94987, 0.65628, - + 0.53675, 0.79945, 0.96790 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + 0.12706, 0.07692, 3.91963, 0.35886, 0.03197, - + -0.00001, 0.18999, 0.37308, - + 0.13492, 0.08081, 4.88547, 0.39235, 0.07352, - + -0.00001, 0.22792, 0.40733, - + 0.14187, 0.08422, 5.75208, 0.42447, 0.11258, - + -0.00001, 0.26387, 0.44013, - + 0.14807, 0.08724, 6.51529, 0.45488, 0.14905, - + 0.02258, 0.29761, 0.47112, - + 0.15373, 0.08997, 7.20213, 0.48387, 0.18346, - + 0.06173, 0.32959, 0.50065, - + 0.15893, 0.09247, 7.82023, 0.51147, 0.21597, - + 0.09669, 0.35990, 0.52873, - + 0.16374, 0.09477, 8.37516, 0.53764, 0.24663, - + 0.12975, 0.38854, 0.55534 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ - + 0.16821, 0.09689, 8.87344, 0.56244, 0.27555, - + 0.16084, 0.41561, 0.58054, - + 0.17238, 0.09886, 9.32211, 0.58591, 0.30284, - + 0.19013, 0.44118, 0.60440, - + 0.17629, 0.10069, 9.72756, 0.60816, 0.32863, - + 0.21778, 0.46538, 0.62700, - + 0.17997, 0.10241, 10.09574, 0.62929, 0.35309, - + 0.24396, 0.48834, 0.64846, - + 0.18345, 0.10403, 10.42926, 0.64935, 0.37626, - + 0.26874, 0.51012, 0.66883, - + 0.18672, 0.10554, 10.72539, 0.66819, 0.39802, - + 0.29201, 0.53056, 0.68795, - + 0.18984, 0.10698, 10.99823, 0.68619, 0.41879, - + 0.31421, 0.55009, 0.70623 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ - + 0.19281, 0.10834, 11.24775, 0.70336, 0.43858, - + 0.33533, 0.56870, 0.72365, - + 0.19561, 0.10962, 11.46847, 0.71947, 0.45717, - + 0.35519, 0.58617, 0.74000, - + 0.19832, 0.11085, 11.67636, 0.73504, 0.47511, - + 0.37434, 0.60305, 0.75581, - + 0.20087, 0.11200, 11.85815, 0.74960, 0.49192, - + 0.39229, 0.61884, 0.77058, - + 0.20334, 0.11312, 12.02975, 0.76368, 0.50817, - + 0.40963, 0.63412, 0.78488 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + 0.14782, 0.08793, 3.57509, 0.32656, 0.02878, - + -0.00001, 0.17350, 0.34287, - + 0.15651, 0.09217, 4.39473, 0.35533, 0.06502, - + -0.00001, 0.20642, 0.37248, - + 0.16415, 0.09587, 5.11463, 0.38254, 0.09868, - + -0.00001, 0.23722, 0.40042, - + 0.17093, 0.09911, 5.73604, 0.40796, 0.12975, - + 0.01928, 0.26577, 0.42648, - + 0.17708, 0.10204, 6.28565, 0.43193, 0.15878, - + 0.05251, 0.29255, 0.45103, - + 0.18271, 0.10469, 6.77214, 0.45452, 0.18596, - + 0.08191, 0.31768, 0.47413, - + 0.18790, 0.10712, 7.20198, 0.47573, 0.21137, - + 0.10948, 0.34121, 0.49581 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ - + 0.19269, 0.10935, 7.58193, 0.49565, 0.23514, - + 0.13522, 0.36326, 0.51615, - + 0.19715, 0.11141, 7.91886, 0.51434, 0.25741, - + 0.15931, 0.38394, 0.53525, - + 0.20131, 0.11332, 8.21884, 0.53191, 0.27831, - + 0.18188, 0.40335, 0.55319, - + 0.20522, 0.11510, 8.48738, 0.54848, 0.29799, - + 0.20313, 0.42165, 0.57010, - + 0.20890, 0.11676, 8.72705, 0.56410, 0.31653, - + 0.22312, 0.43888, 0.58603, - + 0.21235, 0.11831, 8.93594, 0.57864, 0.33382, - + 0.24177, 0.45493, 0.60086, - + 0.21562, 0.11978, 9.12589, 0.59245, 0.35023, - + 0.25947, 0.47019, 0.61495 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ - + 0.21872, 0.12116, 9.29704, 0.60554, 0.36579, - + 0.27624, 0.48464, 0.62830, - + 0.22165, 0.12245, 9.44518, 0.61772, 0.38031, - + 0.29190, 0.49811, 0.64072, - + 0.22446, 0.12369, 9.58329, 0.62945, 0.39427, - + 0.30695, 0.51106, 0.65268, - + 0.22711, 0.12485, 9.70083, 0.64031, 0.40726, - + 0.32097, 0.52310, 0.66376, - + 0.22966, 0.12596, 9.81063, 0.65078, 0.41976, - + 0.33446, 0.53469, 0.67444 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + 0.16621, 0.09771, 3.32673, 0.30346, 0.02650, - + 0.00000, 0.16182, 0.32167, - + 0.17555, 0.10221, 4.04194, 0.32881, 0.05896, - + 0.00000, 0.19115, 0.34793, - + 0.18371, 0.10610, 4.65887, 0.35251, 0.08880, - + -0.00001, 0.21827, 0.37240, - + 0.19092, 0.10949, 5.18219, 0.37441, 0.11608, - + 0.01696, 0.24317, 0.39497, - + 0.19743, 0.11253, 5.63806, 0.39487, 0.14136, - + 0.04607, 0.26631, 0.41602, - + 0.20337, 0.11527, 6.03570, 0.41397, 0.16484, - + 0.07162, 0.28785, 0.43566, - + 0.20881, 0.11777, 6.38188, 0.43176, 0.18664, - + 0.09542, 0.30788, 0.45394 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ - + 0.21382, 0.12005, 6.68365, 0.44833, 0.20690, - + 0.11750, 0.32650, 0.47094, - + 0.21847, 0.12214, 6.94738, 0.46377, 0.22576, - + 0.13803, 0.34383, 0.48678, - + 0.22279, 0.12407, 7.17876, 0.47818, 0.24335, - + 0.15717, 0.36001, 0.50156, - + 0.22684, 0.12587, 7.38304, 0.49168, 0.25984, - + 0.17510, 0.37517, 0.51541, - + 0.23063, 0.12754, 7.56283, 0.50431, 0.27527, - + 0.19187, 0.38935, 0.52835, - + 0.23418, 0.12909, 7.71659, 0.51599, 0.28958, - + 0.20745, 0.40248, 0.54032, - + 0.23753, 0.13055, 7.85442, 0.52702, 0.30312, - + 0.22217, 0.41490, 0.55163 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ - + 0.24070, 0.13192, 7.97654, 0.53741, 0.31588, - + 0.23605, 0.42660, 0.56228, - + 0.24368, 0.13319, 8.07988, 0.54701, 0.32773, - + 0.24895, 0.43744, 0.57211, - + 0.24654, 0.13441, 8.17520, 0.55622, 0.33908, - + 0.26130, 0.44783, 0.58154, - + 0.24922, 0.13554, 8.25361, 0.56467, 0.34957, - + 0.27275, 0.45741, 0.59020, - + 0.25181, 0.13663, 8.32597, 0.57279, 0.35965, - + 0.28374, 0.46661, 0.59853 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + 0.23909, 0.13644, 2.64474, 0.24060, 0.02040, - + 0.00000, 0.13077, 0.26678, - + 0.25014, 0.14133, 3.07957, 0.25651, 0.04269, - + -0.00001, 0.15029, 0.28367, - + 0.25959, 0.14543, 3.42895, 0.27073, 0.06243, - + 0.00000, 0.16761, 0.29869, - + 0.26776, 0.14890, 3.70512, 0.28330, 0.07986, - + 0.01097, 0.18291, 0.31193, - + 0.27500, 0.15192, 3.93073, 0.29460, 0.09555, - + 0.02948, 0.19666, 0.32381, - + 0.28148, 0.15458, 4.11511, 0.30478, 0.10972, - + 0.04528, 0.20906, 0.33449, - + 0.28731, 0.15693, 4.26501, 0.31394, 0.12253, - + 0.05965, 0.22025, 0.34409 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ - + 0.29259, 0.15902, 4.38661, 0.32218, 0.13414, - + 0.07268, 0.23036, 0.35271, - + 0.29741, 0.16090, 4.48505, 0.32961, 0.14471, - + 0.08455, 0.23952, 0.36047, - + 0.30181, 0.16258, 4.56467, 0.33633, 0.15435, - + 0.09540, 0.24785, 0.36749, - + 0.30587, 0.16412, 4.62914, 0.34244, 0.16319, - + 0.10536, 0.25547, 0.37387, - + 0.30962, 0.16551, 4.68024, 0.34798, 0.17131, - + 0.11453, 0.26242, 0.37966, - + 0.31306, 0.16676, 4.71772, 0.35292, 0.17867, - + 0.12286, 0.26869, 0.38480, - + 0.31628, 0.16791, 4.74756, 0.35747, 0.18551, - + 0.13062, 0.27448, 0.38954 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ - + 0.31928, 0.16897, 4.77000, 0.36162, 0.19184, - + 0.13782, 0.27983, 0.39388, - + 0.32204, 0.16992, 4.78330, 0.36531, 0.19759, - + 0.14439, 0.28464, 0.39771, - + 0.32467, 0.17082, 4.79354, 0.36878, 0.20303, - + 0.15060, 0.28918, 0.40132, - + 0.32709, 0.17163, 4.79590, 0.37181, 0.20794, - + 0.15625, 0.29324, 0.40447, - + 0.32939, 0.17238, 4.79631, 0.37467, 0.21260, - + 0.16161, 0.29707, 0.40744 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + 0.34271, 0.18927, 2.06404, 0.18589, 0.01537, - + -0.00001, 0.10497, 0.22364, - + 0.35374, 0.19299, 2.27574, 0.19369, 0.02950, - + -0.00002, 0.11625, 0.23204, - + 0.36280, 0.19588, 2.42600, 0.20013, 0.04142, - + -0.00002, 0.12569, 0.23892, - + 0.37028, 0.19813, 2.52849, 0.20539, 0.05149, - + 0.00649, 0.13355, 0.24446, - + 0.37666, 0.19992, 2.60026, 0.20977, 0.06018, - + 0.01722, 0.14026, 0.24905, - + 0.38214, 0.20136, 2.64872, 0.21341, 0.06775, - + 0.02607, 0.14601, 0.25285, - + 0.38687, 0.20250, 2.67907, 0.21644, 0.07436, - + 0.03387, 0.15094, 0.25596 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ - + 0.39099, 0.20342, 2.69554, 0.21892, 0.08013, - + 0.04075, 0.15517, 0.25850, - + 0.39457, 0.20414, 2.70144, 0.22096, 0.08522, - + 0.04683, 0.15882, 0.26055, - + 0.39771, 0.20470, 2.69946, 0.22263, 0.08971, - + 0.05224, 0.16197, 0.26220, - + 0.40050, 0.20513, 2.69167, 0.22399, 0.09371, - + 0.05710, 0.16472, 0.26353, - + 0.40296, 0.20546, 2.67899, 0.22507, 0.09727, - + 0.06145, 0.16709, 0.26457, - + 0.40510, 0.20566, 2.66139, 0.22587, 0.10039, - + 0.06532, 0.16909, 0.26529, - + 0.40701, 0.20580, 2.64186, 0.22649, 0.10320, - + 0.06883, 0.17085, 0.26584 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ - + 0.40873, 0.20587, 2.62045, 0.22695, 0.10574, - + 0.07202, 0.17238, 0.26622, - + 0.41020, 0.20586, 2.59630, 0.22721, 0.10795, - + 0.07485, 0.17365, 0.26636, - + 0.41155, 0.20583, 2.57226, 0.22740, 0.11001, - + 0.07748, 0.17479, 0.26645, - + 0.41269, 0.20573, 2.54596, 0.22739, 0.11177, - + 0.07980, 0.17570, 0.26633, - + 0.41375, 0.20560, 2.52015, 0.22734, 0.11341, - + 0.08196, 0.17652, 0.26618 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + 0.42019, 0.22459, 1.74940, 0.15320, 0.01264, - + 0.00000, 0.08988, 0.19859, - + 0.42908, 0.22617, 1.85509, 0.15691, 0.02280, - + 0.00000, 0.09697, 0.20223, - + 0.43594, 0.22709, 1.91718, 0.15965, 0.03105, - + 0.00001, 0.10258, 0.20478, - + 0.44121, 0.22750, 1.94774, 0.16157, 0.03778, - + 0.00449, 0.10696, 0.20644, - + 0.44540, 0.22757, 1.95939, 0.16293, 0.04342, - + 0.01176, 0.11050, 0.20750, - + 0.44875, 0.22739, 1.95773, 0.16382, 0.04817, - + 0.01761, 0.11336, 0.20807, - + 0.45139, 0.22702, 1.94648, 0.16434, 0.05220, - + 0.02265, 0.11565, 0.20827 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ - + 0.45345, 0.22649, 1.92844, 0.16456, 0.05563, - + 0.02698, 0.11748, 0.20815, - + 0.45505, 0.22586, 1.90574, 0.16455, 0.05856, - + 0.03075, 0.11893, 0.20777, - + 0.45628, 0.22514, 1.88002, 0.16434, 0.06107, - + 0.03403, 0.12008, 0.20721, - + 0.45720, 0.22435, 1.85251, 0.16398, 0.06325, - + 0.03692, 0.12098, 0.20652, - + 0.45784, 0.22353, 1.82368, 0.16351, 0.06513, - + 0.03946, 0.12166, 0.20569, - + 0.45822, 0.22263, 1.79338, 0.16289, 0.06672, - + 0.04166, 0.12212, 0.20472, - + 0.45843, 0.22173, 1.76337, 0.16222, 0.06811, - + 0.04363, 0.12245, 0.20371 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ - + 0.45848, 0.22081, 1.73355, 0.16150, 0.06933, - + 0.04538, 0.12267, 0.20263, - + 0.45834, 0.21985, 1.70326, 0.16069, 0.07034, - + 0.04690, 0.12274, 0.20148, - + 0.45815, 0.21891, 1.67414, 0.15987, 0.07126, - + 0.04830, 0.12276, 0.20034, - + 0.45778, 0.21793, 1.64475, 0.15897, 0.07200, - + 0.04948, 0.12265, 0.19910, - + 0.45737, 0.21697, 1.61658, 0.15808, 0.07268, - + 0.05058, 0.12251, 0.19789 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + 0.48154, 0.24849, 1.52710, 0.12792, 0.01066, - + -0.00001, 0.07792, 0.17772, - + 0.48710, 0.24759, 1.56946, 0.12922, 0.01833, - + 0.00000, 0.08238, 0.17821, - + 0.49084, 0.24631, 1.58186, 0.12986, 0.02437, - + 0.00000, 0.08568, 0.17803, - + 0.49316, 0.24473, 1.57417, 0.12996, 0.02914, - + 0.00330, 0.08806, 0.17734, - + 0.49456, 0.24302, 1.55566, 0.12973, 0.03304, - + 0.00856, 0.08981, 0.17632, - + 0.49525, 0.24120, 1.53020, 0.12923, 0.03623, - + 0.01271, 0.09109, 0.17508, - + 0.49539, 0.23931, 1.50033, 0.12853, 0.03886, - + 0.01621, 0.09198, 0.17365 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ - + 0.49507, 0.23740, 1.46792, 0.12769, 0.04104, - + 0.01917, 0.09256, 0.17211, - + 0.49441, 0.23546, 1.43427, 0.12673, 0.04285, - + 0.02169, 0.09289, 0.17048, - + 0.49349, 0.23354, 1.40030, 0.12571, 0.04435, - + 0.02385, 0.09304, 0.16880, - + 0.49235, 0.23164, 1.36666, 0.12463, 0.04561, - + 0.02572, 0.09305, 0.16710, - + 0.49105, 0.22976, 1.33354, 0.12351, 0.04666, - + 0.02733, 0.09294, 0.16539, - + 0.48957, 0.22787, 1.30069, 0.12233, 0.04751, - + 0.02870, 0.09269, 0.16364, - + 0.48800, 0.22604, 1.26915, 0.12117, 0.04823, - + 0.02990, 0.09239, 0.16192 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ - + 0.48635, 0.22425, 1.23873, 0.12001, 0.04883, - + 0.03094, 0.09202, 0.16022, - + 0.48458, 0.22247, 1.20894, 0.11882, 0.04930, - + 0.03184, 0.09159, 0.15850, - + 0.48284, 0.22074, 1.18072, 0.11766, 0.04971, - + 0.03265, 0.09114, 0.15685, - + 0.48098, 0.21901, 1.15308, 0.11647, 0.05001, - + 0.03332, 0.09062, 0.15519, - + 0.47914, 0.21735, 1.12689, 0.11533, 0.05026, - + 0.03393, 0.09011, 0.15359 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + 0.53041, 0.26380, 1.35090, 0.10680, 0.00904, - + 0.00000, 0.06749, 0.15835, - + 0.53194, 0.26038, 1.35189, 0.10663, 0.01499, - + -0.00001, 0.07019, 0.15671, - + 0.53201, 0.25694, 1.33372, 0.10606, 0.01953, - + -0.00001, 0.07199, 0.15478, - + 0.53099, 0.25346, 1.30385, 0.10517, 0.02302, - + 0.00250, 0.07311, 0.15260, - + 0.52931, 0.25006, 1.26890, 0.10410, 0.02580, - + 0.00644, 0.07378, 0.15033, - + 0.52714, 0.24672, 1.23142, 0.10290, 0.02801, - + 0.00948, 0.07412, 0.14802, - + 0.52461, 0.24345, 1.19300, 0.10162, 0.02979, - + 0.01201, 0.07420, 0.14570 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ - + 0.52182, 0.24028, 1.15472, 0.10028, 0.03121, - + 0.01412, 0.07408, 0.14340, - + 0.51884, 0.23720, 1.11726, 0.09892, 0.03235, - + 0.01588, 0.07382, 0.14112, - + 0.51574, 0.23424, 1.08108, 0.09755, 0.03327, - + 0.01736, 0.07345, 0.13887, - + 0.51257, 0.23138, 1.04646, 0.09619, 0.03402, - + 0.01862, 0.07301, 0.13668, - + 0.50935, 0.22860, 1.01335, 0.09484, 0.03462, - + 0.01968, 0.07250, 0.13455, - + 0.50604, 0.22588, 0.98146, 0.09349, 0.03506, - + 0.02058, 0.07192, 0.13247, - + 0.50276, 0.22328, 0.95137, 0.09217, 0.03542, - + 0.02136, 0.07133, 0.13047 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ - + 0.49950, 0.22077, 0.92285, 0.09090, 0.03570, - + 0.02203, 0.07072, 0.12851, - + 0.49619, 0.21831, 0.89548, 0.08963, 0.03589, - + 0.02256, 0.07007, 0.12660, - + 0.49299, 0.21595, 0.86981, 0.08841, 0.03604, - + 0.02304, 0.06943, 0.12476, - + 0.48972, 0.21364, 0.84513, 0.08720, 0.03612, - + 0.02342, 0.06875, 0.12296, - + 0.48656, 0.21143, 0.82193, 0.08603, 0.03617, - + 0.02377, 0.06809, 0.12124 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + 0.57673, 0.27349, 1.16857, 0.08458, 0.00737, - + -0.00001, 0.05594, 0.13551, - + 0.57268, 0.26716, 1.13617, 0.08346, 0.01176, - + -0.00001, 0.05721, 0.13219, - + 0.56783, 0.26121, 1.09503, 0.08212, 0.01502, - + -0.00001, 0.05783, 0.12895, - + 0.56241, 0.25562, 1.04985, 0.08064, 0.01743, - + 0.00180, 0.05800, 0.12574, - + 0.55678, 0.25034, 1.00464, 0.07910, 0.01930, - + 0.00462, 0.05788, 0.12268, - + 0.55101, 0.24536, 0.96062, 0.07756, 0.02074, - + 0.00676, 0.05757, 0.11968, - + 0.54518, 0.24065, 0.91844, 0.07601, 0.02184, - + 0.00851, 0.05711, 0.11683 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ - + 0.53936, 0.23617, 0.87847, 0.07449, 0.02268, - + 0.00992, 0.05656, 0.11411, - + 0.53357, 0.23192, 0.84086, 0.07300, 0.02334, - + 0.01107, 0.05593, 0.11150, - + 0.52788, 0.22789, 0.80565, 0.07155, 0.02384, - + 0.01204, 0.05526, 0.10900, - + 0.52233, 0.22404, 0.77279, 0.07014, 0.02422, - + 0.01285, 0.05456, 0.10664, - + 0.51688, 0.22038, 0.74210, 0.06878, 0.02449, - + 0.01352, 0.05385, 0.10438, - + 0.51149, 0.21686, 0.71321, 0.06744, 0.02468, - + 0.01405, 0.05312, 0.10221, - + 0.50626, 0.21351, 0.68636, 0.06618, 0.02480, - + 0.01450, 0.05239, 0.10014 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ - + 0.50117, 0.21033, 0.66128, 0.06498, 0.02486, - + 0.01489, 0.05168, 0.09815, - + 0.49616, 0.20723, 0.63763, 0.06378, 0.02488, - + 0.01520, 0.05096, 0.09625, - + 0.49135, 0.20429, 0.61566, 0.06264, 0.02488, - + 0.01546, 0.05026, 0.09444, - + 0.48655, 0.20146, 0.59484, 0.06154, 0.02483, - + 0.01567, 0.04956, 0.09267, - + 0.48195, 0.19875, 0.57544, 0.06049, 0.02477, - + 0.01584, 0.04888, 0.09100 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + 0.60864, 0.27503, 1.01392, 0.06628, 0.00596, - + -0.00003, 0.04583, 0.11422, - + 0.59882, 0.26609, 0.96111, 0.06473, 0.00927, - + -0.00003, 0.04623, 0.11005, - + 0.58901, 0.25802, 0.90733, 0.06310, 0.01165, - + -0.00002, 0.04618, 0.10619, - + 0.57929, 0.25061, 0.85494, 0.06143, 0.01336, - + 0.00132, 0.04583, 0.10257, - + 0.56983, 0.24381, 0.80589, 0.05979, 0.01462, - + 0.00340, 0.04532, 0.09921, - + 0.56061, 0.23750, 0.76041, 0.05821, 0.01556, - + 0.00494, 0.04470, 0.09604, - + 0.55171, 0.23163, 0.71846, 0.05667, 0.01626, - + 0.00617, 0.04401, 0.09308 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ - + 0.54308, 0.22616, 0.67991, 0.05520, 0.01677, - + 0.00716, 0.04327, 0.09030, - + 0.53477, 0.22102, 0.64453, 0.05379, 0.01714, - + 0.00794, 0.04251, 0.08768, - + 0.52677, 0.21618, 0.61211, 0.05244, 0.01740, - + 0.00858, 0.04175, 0.08523, - + 0.51908, 0.21164, 0.58240, 0.05115, 0.01757, - + 0.00911, 0.04099, 0.08293, - + 0.51165, 0.20736, 0.55506, 0.04993, 0.01768, - + 0.00954, 0.04025, 0.08076, - + 0.50447, 0.20327, 0.52976, 0.04874, 0.01773, - + 0.00987, 0.03951, 0.07869, - + 0.49759, 0.19941, 0.50653, 0.04762, 0.01774, - + 0.01015, 0.03879, 0.07674 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ - + 0.49096, 0.19576, 0.48508, 0.04655, 0.01771, - + 0.01038, 0.03808, 0.07491, - + 0.48449, 0.19225, 0.46511, 0.04552, 0.01764, - + 0.01054, 0.03739, 0.07316, - + 0.47833, 0.18894, 0.44670, 0.04455, 0.01757, - + 0.01068, 0.03673, 0.07151, - + 0.47230, 0.18575, 0.42945, 0.04361, 0.01747, - + 0.01079, 0.03608, 0.06992, - + 0.46653, 0.18272, 0.41348, 0.04272, 0.01736, - + 0.01088, 0.03545, 0.06842 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + 0.62786, 0.27019, 0.87934, 0.05126, 0.00479, - + -0.00001, 0.03709, 0.09488, - + 0.61237, 0.25914, 0.81474, 0.04965, 0.00728, - + -0.00001, 0.03695, 0.09039, - + 0.59778, 0.24939, 0.75488, 0.04804, 0.00901, - + -0.00001, 0.03653, 0.08638, - + 0.58398, 0.24060, 0.70015, 0.04645, 0.01022, - + 0.00099, 0.03593, 0.08271, - + 0.57096, 0.23266, 0.65100, 0.04493, 0.01108, - + 0.00251, 0.03523, 0.07936, - + 0.55866, 0.22537, 0.60687, 0.04347, 0.01171, - + 0.00361, 0.03449, 0.07628, - + 0.54699, 0.21868, 0.56723, 0.04208, 0.01214, - + 0.00449, 0.03372, 0.07345 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ - + 0.53591, 0.21248, 0.53158, 0.04078, 0.01244, - + 0.00518, 0.03294, 0.07083, - + 0.52541, 0.20671, 0.49950, 0.03953, 0.01263, - + 0.00571, 0.03218, 0.06841, - + 0.51542, 0.20136, 0.47056, 0.03835, 0.01275, - + 0.00614, 0.03143, 0.06616, - + 0.50592, 0.19638, 0.44440, 0.03726, 0.01282, - + 0.00649, 0.03070, 0.06404, - + 0.49689, 0.19169, 0.42069, 0.03623, 0.01285, - + 0.00677, 0.02999, 0.06206, - + 0.48821, 0.18725, 0.39898, 0.03522, 0.01281, - + 0.00697, 0.02931, 0.06023, - + 0.47996, 0.18310, 0.37923, 0.03428, 0.01276, - + 0.00714, 0.02866, 0.05850 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ - + 0.47207, 0.17918, 0.36118, 0.03340, 0.01270, - + 0.00728, 0.02803, 0.05687, - + 0.46449, 0.17544, 0.34454, 0.03255, 0.01260, - + 0.00737, 0.02742, 0.05534, - + 0.45730, 0.17190, 0.32930, 0.03174, 0.01250, - + 0.00744, 0.02684, 0.05390, - + 0.45030, 0.16853, 0.31518, 0.03098, 0.01239, - + 0.00748, 0.02627, 0.05254, - + 0.44364, 0.16534, 0.30216, 0.03025, 0.01228, - + 0.00752, 0.02572, 0.05124 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + 0.63571, 0.26057, 0.76061, 0.03916, 0.00380, - + -0.00002, 0.02961, 0.07759, - + 0.61492, 0.24785, 0.69015, 0.03764, 0.00570, - + -0.00002, 0.02921, 0.07320, - + 0.59599, 0.23680, 0.62849, 0.03617, 0.00697, - + -0.00003, 0.02862, 0.06932, - + 0.57852, 0.22701, 0.57445, 0.03476, 0.00784, - + 0.00073, 0.02792, 0.06585, - + 0.56240, 0.21822, 0.52734, 0.03341, 0.00842, - + 0.00187, 0.02718, 0.06277, - + 0.54738, 0.21029, 0.48607, 0.03215, 0.00884, - + 0.00268, 0.02643, 0.05995, - + 0.53336, 0.20304, 0.44979, 0.03096, 0.00911, - + 0.00332, 0.02569, 0.05738 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ - + 0.52023, 0.19641, 0.41774, 0.02986, 0.00927, - + 0.00380, 0.02497, 0.05502, - + 0.50790, 0.19028, 0.38931, 0.02883, 0.00937, - + 0.00417, 0.02426, 0.05285, - + 0.49631, 0.18461, 0.36400, 0.02785, 0.00941, - + 0.00446, 0.02358, 0.05087, - + 0.48539, 0.17936, 0.34139, 0.02694, 0.00940, - + 0.00469, 0.02293, 0.04904, - + 0.47508, 0.17446, 0.32109, 0.02608, 0.00938, - + 0.00487, 0.02231, 0.04735, - + 0.46525, 0.16987, 0.30275, 0.02527, 0.00932, - + 0.00500, 0.02172, 0.04574, - + 0.45596, 0.16558, 0.28620, 0.02451, 0.00925, - + 0.00510, 0.02115, 0.04426 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ - + 0.44716, 0.16154, 0.27120, 0.02380, 0.00917, - + 0.00517, 0.02060, 0.04289, - + 0.43870, 0.15773, 0.25747, 0.02313, 0.00908, - + 0.00523, 0.02009, 0.04157, - + 0.43072, 0.15415, 0.24498, 0.02251, 0.00899, - + 0.00527, 0.01961, 0.04034, - + 0.42305, 0.15072, 0.23347, 0.02188, 0.00887, - + 0.00528, 0.01913, 0.03922, - + 0.41577, 0.14748, 0.22293, 0.02130, 0.00876, - + 0.00528, 0.01868, 0.03816 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + 0.63353, 0.24733, 0.65531, 0.02949, 0.00299, - + -0.00002, 0.02335, 0.06253, - + 0.60799, 0.23340, 0.58311, 0.02817, 0.00444, - + -0.00001, 0.02283, 0.05845, - + 0.58526, 0.22144, 0.52246, 0.02688, 0.00539, - + -0.00002, 0.02219, 0.05492, - + 0.56463, 0.21101, 0.47102, 0.02570, 0.00601, - + 0.00056, 0.02149, 0.05179, - + 0.54586, 0.20174, 0.42728, 0.02458, 0.00641, - + 0.00142, 0.02080, 0.04902, - + 0.52859, 0.19343, 0.38971, 0.02355, 0.00667, - + 0.00201, 0.02011, 0.04653, - + 0.51268, 0.18589, 0.35721, 0.02258, 0.00683, - + 0.00246, 0.01944, 0.04429 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ - + 0.49791, 0.17904, 0.32891, 0.02166, 0.00693, - + 0.00280, 0.01878, 0.04228, - + 0.48417, 0.17275, 0.30416, 0.02082, 0.00696, - + 0.00307, 0.01817, 0.04043, - + 0.47137, 0.16696, 0.28238, 0.02003, 0.00696, - + 0.00326, 0.01759, 0.03873, - + 0.45939, 0.16163, 0.26312, 0.01931, 0.00694, - + 0.00341, 0.01703, 0.03717, - + 0.44809, 0.15673, 0.24601, 0.01864, 0.00689, - + 0.00353, 0.01652, 0.03571, - + 0.43745, 0.15212, 0.23069, 0.01799, 0.00681, - + 0.00361, 0.01601, 0.03441, - + 0.42745, 0.14781, 0.21697, 0.01739, 0.00673, - + 0.00367, 0.01554, 0.03319 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ - + 0.41802, 0.14379, 0.20461, 0.01684, 0.00665, - + 0.00372, 0.01509, 0.03205, - + 0.40900, 0.14001, 0.19339, 0.01631, 0.00656, - + 0.00374, 0.01466, 0.03098, - + 0.40052, 0.13648, 0.18323, 0.01582, 0.00647, - + 0.00376, 0.01426, 0.02999, - + 0.39238, 0.13312, 0.17395, 0.01536, 0.00638, - + 0.00377, 0.01388, 0.02906, - + 0.38469, 0.12996, 0.16548, 0.01492, 0.00628, - + 0.00377, 0.01352, 0.02819 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + 0.62259, 0.23148, 0.56179, 0.02188, 0.00236, - + 0.00002, 0.01819, 0.04966, - + 0.59295, 0.21682, 0.49090, 0.02080, 0.00345, - + 0.00002, 0.01762, 0.04601, - + 0.56695, 0.20441, 0.43319, 0.01979, 0.00413, - + 0.00003, 0.01699, 0.04291, - + 0.54376, 0.19365, 0.38555, 0.01882, 0.00455, - + 0.00046, 0.01637, 0.04019, - + 0.52290, 0.18418, 0.34581, 0.01793, 0.00483, - + 0.00106, 0.01575, 0.03780, - + 0.50390, 0.17575, 0.31224, 0.01711, 0.00500, - + 0.00150, 0.01512, 0.03569, - + 0.48655, 0.16816, 0.28363, 0.01632, 0.00509, - + 0.00181, 0.01454, 0.03380 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ - + 0.47059, 0.16127, 0.25905, 0.01560, 0.00512, - + 0.00206, 0.01399, 0.03211, - + 0.45583, 0.15503, 0.23781, 0.01494, 0.00512, - + 0.00224, 0.01348, 0.03056, - + 0.44214, 0.14932, 0.21931, 0.01434, 0.00510, - + 0.00237, 0.01299, 0.02915, - + 0.42941, 0.14408, 0.20310, 0.01378, 0.00507, - + 0.00247, 0.01253, 0.02787, - + 0.41754, 0.13924, 0.18885, 0.01326, 0.00502, - + 0.00255, 0.01210, 0.02670, - + 0.40638, 0.13472, 0.17617, 0.01276, 0.00495, - + 0.00259, 0.01169, 0.02563, - + 0.39593, 0.13055, 0.16489, 0.01231, 0.00487, - + 0.00262, 0.01131, 0.02463 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ - + 0.38609, 0.12666, 0.15481, 0.01190, 0.00480, - + 0.00265, 0.01096, 0.02369, - + 0.37681, 0.12300, 0.14571, 0.01148, 0.00472, - + 0.00265, 0.01061, 0.02284, - + 0.36809, 0.11958, 0.13751, 0.01110, 0.00464, - + 0.00266, 0.01029, 0.02206, - + 0.35975, 0.11638, 0.13007, 0.01074, 0.00456, - + 0.00266, 0.00998, 0.02130, - + 0.35189, 0.11337, 0.12331, 0.01042, 0.00448, - + 0.00265, 0.00970, 0.02060 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + 0.60398, 0.21422, 0.47915, 0.01623, 0.00169, - + -0.00014, 0.01382, 0.03885, - + 0.57099, 0.19920, 0.41142, 0.01535, 0.00253, - + -0.00013, 0.01334, 0.03569, - + 0.54250, 0.18657, 0.35785, 0.01449, 0.00304, - + -0.00012, 0.01280, 0.03307, - + 0.51735, 0.17574, 0.31456, 0.01373, 0.00337, - + 0.00021, 0.01225, 0.03077, - + 0.49494, 0.16629, 0.27910, 0.01301, 0.00357, - + 0.00069, 0.01171, 0.02879, - + 0.47473, 0.15792, 0.24960, 0.01237, 0.00368, - + 0.00102, 0.01122, 0.02701, - + 0.45639, 0.15045, 0.22480, 0.01176, 0.00373, - + 0.00127, 0.01075, 0.02546 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ - + 0.43964, 0.14373, 0.20377, 0.01119, 0.00374, - + 0.00143, 0.01029, 0.02409, - + 0.42426, 0.13764, 0.18575, 0.01068, 0.00374, - + 0.00158, 0.00987, 0.02285, - + 0.41009, 0.13211, 0.17022, 0.01021, 0.00371, - + 0.00168, 0.00948, 0.02170, - + 0.39698, 0.12706, 0.15674, 0.00977, 0.00367, - + 0.00174, 0.00912, 0.02066, - + 0.38479, 0.12239, 0.14494, 0.00939, 0.00363, - + 0.00179, 0.00877, 0.01973, - + 0.37341, 0.11808, 0.13454, 0.00901, 0.00356, - + 0.00183, 0.00845, 0.01886, - + 0.36281, 0.11411, 0.12534, 0.00866, 0.00350, - + 0.00185, 0.00815, 0.01806 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ - + 0.35289, 0.11042, 0.11716, 0.00833, 0.00343, - + 0.00186, 0.00787, 0.01734, - + 0.34351, 0.10696, 0.10984, 0.00803, 0.00337, - + 0.00186, 0.00760, 0.01666, - + 0.33474, 0.10374, 0.10327, 0.00774, 0.00331, - + 0.00186, 0.00736, 0.01605, - + 0.32640, 0.10072, 0.09735, 0.00747, 0.00324, - + 0.00185, 0.00712, 0.01546, - + 0.31854, 0.09789, 0.09200, 0.00723, 0.00318, - + 0.00185, 0.00690, 0.01492 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + 0.57919, 0.19555, 0.40568, 0.01166, 0.00134, - + -0.00002, 0.01052, 0.02990, - + 0.54360, 0.18057, 0.34266, 0.01099, 0.00196, - + -0.00003, 0.01007, 0.02729, - + 0.51323, 0.16808, 0.29389, 0.01036, 0.00234, - + -0.00003, 0.00960, 0.02508, - + 0.48668, 0.15748, 0.25527, 0.00977, 0.00255, - + 0.00021, 0.00913, 0.02324, - + 0.46327, 0.14828, 0.22417, 0.00922, 0.00267, - + 0.00055, 0.00870, 0.02161, - + 0.44231, 0.14017, 0.19863, 0.00873, 0.00273, - + 0.00078, 0.00828, 0.02021, - + 0.42339, 0.13300, 0.17743, 0.00828, 0.00276, - + 0.00095, 0.00789, 0.01895 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ - + 0.40622, 0.12657, 0.15963, 0.00788, 0.00277, - + 0.00108, 0.00753, 0.01781, - + 0.39055, 0.12079, 0.14454, 0.00750, 0.00275, - + 0.00117, 0.00719, 0.01681, - + 0.37620, 0.11554, 0.13166, 0.00715, 0.00272, - + 0.00123, 0.00688, 0.01592, - + 0.36300, 0.11075, 0.12056, 0.00682, 0.00268, - + 0.00127, 0.00659, 0.01512, - + 0.35080, 0.10637, 0.11090, 0.00651, 0.00262, - + 0.00130, 0.00632, 0.01440, - + 0.33944, 0.10234, 0.10245, 0.00624, 0.00257, - + 0.00132, 0.00607, 0.01372, - + 0.32888, 0.09864, 0.09503, 0.00599, 0.00252, - + 0.00133, 0.00584, 0.01309 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ - + 0.31903, 0.09521, 0.08848, 0.00575, 0.00246, - + 0.00133, 0.00562, 0.01253, - + 0.30975, 0.09199, 0.08264, 0.00555, 0.00241, - + 0.00133, 0.00541, 0.01201, - + 0.30110, 0.08901, 0.07742, 0.00537, 0.00236, - + 0.00133, 0.00522, 0.01154, - + 0.29293, 0.08622, 0.07275, 0.00517, 0.00230, - + 0.00132, 0.00504, 0.01109, - + 0.28528, 0.08362, 0.06854, 0.00498, 0.00225, - + 0.00131, 0.00488, 0.01067 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + 0.54919, 0.17662, 0.34122, 0.00829, 0.00100, - + -0.00004, 0.00784, 0.02270, - + 0.51179, 0.16196, 0.28359, 0.00782, 0.00147, - + -0.00003, 0.00746, 0.02055, - + 0.48021, 0.14985, 0.24004, 0.00734, 0.00173, - + -0.00004, 0.00708, 0.01880, - + 0.45291, 0.13964, 0.20611, 0.00689, 0.00189, - + 0.00014, 0.00670, 0.01730, - + 0.42896, 0.13085, 0.17915, 0.00649, 0.00198, - + 0.00040, 0.00635, 0.01600, - + 0.40769, 0.12316, 0.15733, 0.00613, 0.00202, - + 0.00058, 0.00602, 0.01488, - + 0.38863, 0.11637, 0.13943, 0.00580, 0.00202, - + 0.00070, 0.00570, 0.01391 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ - + 0.37145, 0.11032, 0.12454, 0.00547, 0.00201, - + 0.00078, 0.00543, 0.01304, - + 0.35584, 0.10490, 0.11204, 0.00519, 0.00198, - + 0.00083, 0.00517, 0.01226, - + 0.34160, 0.10001, 0.10145, 0.00495, 0.00195, - + 0.00087, 0.00493, 0.01155, - + 0.32857, 0.09558, 0.09239, 0.00473, 0.00192, - + 0.00091, 0.00471, 0.01091, - + 0.31656, 0.09153, 0.08456, 0.00451, 0.00188, - + 0.00093, 0.00451, 0.01036, - + 0.30543, 0.08782, 0.07777, 0.00431, 0.00184, - + 0.00094, 0.00431, 0.00985, - + 0.29514, 0.08440, 0.07184, 0.00413, 0.00179, - + 0.00095, 0.00413, 0.00938 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ - + 0.28557, 0.08125, 0.06662, 0.00396, 0.00175, - + 0.00095, 0.00397, 0.00897, - + 0.27662, 0.07832, 0.06200, 0.00378, 0.00171, - + 0.00094, 0.00381, 0.00858, - + 0.26829, 0.07561, 0.05789, 0.00363, 0.00167, - + 0.00093, 0.00367, 0.00821, - + 0.26039, 0.07308, 0.05424, 0.00350, 0.00163, - + 0.00092, 0.00354, 0.00787, - + 0.25302, 0.07073, 0.05095, 0.00339, 0.00159, - + 0.00091, 0.00342, 0.00755 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + 0.51514, 0.15768, 0.28475, 0.00577, 0.00076, - + 0.00000, 0.00578, 0.01695, - + 0.47674, 0.14362, 0.23299, 0.00541, 0.00109, - + 0.00000, 0.00547, 0.01527, - + 0.44456, 0.13212, 0.19461, 0.00510, 0.00130, - + 0.00000, 0.00517, 0.01384, - + 0.41700, 0.12248, 0.16529, 0.00479, 0.00140, - + 0.00013, 0.00487, 0.01267, - + 0.39304, 0.11420, 0.14226, 0.00449, 0.00146, - + 0.00032, 0.00458, 0.01168, - + 0.37184, 0.10705, 0.12386, 0.00425, 0.00147, - + 0.00043, 0.00433, 0.01079, - + 0.35302, 0.10073, 0.10893, 0.00399, 0.00147, - + 0.00051, 0.00409, 0.01004 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ - + 0.33610, 0.09514, 0.09660, 0.00379, 0.00146, - + 0.00058, 0.00388, 0.00937, - + 0.32086, 0.09015, 0.08636, 0.00358, 0.00143, - + 0.00062, 0.00368, 0.00878, - + 0.30700, 0.08566, 0.07775, 0.00339, 0.00140, - + 0.00064, 0.00349, 0.00825, - + 0.29435, 0.08162, 0.07042, 0.00323, 0.00138, - + 0.00066, 0.00333, 0.00778, - + 0.28276, 0.07793, 0.06417, 0.00306, 0.00134, - + 0.00067, 0.00317, 0.00737, - + 0.27204, 0.07456, 0.05875, 0.00293, 0.00131, - + 0.00067, 0.00303, 0.00698, - + 0.26216, 0.07148, 0.05404, 0.00281, 0.00128, - + 0.00067, 0.00289, 0.00663 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ - + 0.25303, 0.06864, 0.04993, 0.00268, 0.00124, - + 0.00068, 0.00276, 0.00632, - + 0.24449, 0.06600, 0.04631, 0.00257, 0.00121, - + 0.00067, 0.00266, 0.00603, - + 0.23657, 0.06357, 0.04311, 0.00247, 0.00118, - + 0.00067, 0.00256, 0.00575, - + 0.22912, 0.06131, 0.04025, 0.00237, 0.00114, - + 0.00065, 0.00245, 0.00550, - + 0.22217, 0.05921, 0.03770, 0.00228, 0.00111, - + 0.00064, 0.00236, 0.00527 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + 0.47803, 0.13922, 0.23556, 0.00390, 0.00060, - + 0.00004, 0.00422, 0.01243, - + 0.43933, 0.12596, 0.18990, 0.00368, 0.00084, - + 0.00005, 0.00397, 0.01113, - + 0.40722, 0.11520, 0.15658, 0.00345, 0.00097, - + 0.00004, 0.00373, 0.01005, - + 0.37997, 0.10622, 0.13151, 0.00322, 0.00105, - + 0.00013, 0.00350, 0.00915, - + 0.35637, 0.09859, 0.11214, 0.00303, 0.00108, - + 0.00026, 0.00329, 0.00839, - + 0.33571, 0.09201, 0.09679, 0.00286, 0.00109, - + 0.00034, 0.00309, 0.00770, - + 0.31740, 0.08624, 0.08445, 0.00268, 0.00107, - + 0.00040, 0.00291, 0.00715 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ - + 0.30106, 0.08115, 0.07441, 0.00251, 0.00105, - + 0.00043, 0.00274, 0.00667, - + 0.28636, 0.07663, 0.06611, 0.00238, 0.00104, - + 0.00046, 0.00259, 0.00622, - + 0.27306, 0.07258, 0.05918, 0.00227, 0.00101, - + 0.00048, 0.00245, 0.00582, - + 0.26098, 0.06894, 0.05334, 0.00217, 0.00098, - + 0.00049, 0.00233, 0.00547, - + 0.24998, 0.06563, 0.04835, 0.00203, 0.00096, - + 0.00049, 0.00221, 0.00517, - + 0.23985, 0.06262, 0.04409, 0.00194, 0.00092, - + 0.00049, 0.00211, 0.00488, - + 0.23054, 0.05988, 0.04041, 0.00186, 0.00090, - + 0.00048, 0.00201, 0.00462 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ - + 0.22194, 0.05737, 0.03720, 0.00178, 0.00088, - + 0.00048, 0.00192, 0.00438, - + 0.21393, 0.05505, 0.03438, 0.00170, 0.00085, - + 0.00047, 0.00184, 0.00416, - + 0.20651, 0.05291, 0.03190, 0.00164, 0.00083, - + 0.00046, 0.00176, 0.00396, - + 0.19958, 0.05090, 0.02970, 0.00157, 0.00080, - + 0.00046, 0.00169, 0.00378, - + 0.19313, 0.04905, 0.02775, 0.00150, 0.00078, - + 0.00046, 0.00162, 0.00361 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + 0.43891, 0.12168, 0.19331, 0.00267, 0.00040, - + 0.00001, 0.00298, 0.00902, - + 0.40065, 0.10937, 0.15350, 0.00250, 0.00058, - + 0.00000, 0.00280, 0.00797, - + 0.36916, 0.09945, 0.12501, 0.00234, 0.00069, - + 0.00001, 0.00262, 0.00717, - + 0.34256, 0.09123, 0.10386, 0.00221, 0.00074, - + 0.00008, 0.00246, 0.00650, - + 0.31978, 0.08429, 0.08771, 0.00207, 0.00076, - + 0.00017, 0.00230, 0.00590, - + 0.29991, 0.07830, 0.07507, 0.00195, 0.00076, - + 0.00023, 0.00215, 0.00542, - + 0.28244, 0.07309, 0.06503, 0.00181, 0.00076, - + 0.00027, 0.00202, 0.00500 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ - + 0.26685, 0.06852, 0.05691, 0.00171, 0.00075, - + 0.00030, 0.00189, 0.00464, - + 0.25296, 0.06448, 0.05027, 0.00161, 0.00072, - + 0.00032, 0.00179, 0.00432, - + 0.24044, 0.06090, 0.04476, 0.00153, 0.00071, - + 0.00033, 0.00169, 0.00402, - + 0.22909, 0.05767, 0.04014, 0.00146, 0.00069, - + 0.00033, 0.00159, 0.00376, - + 0.21876, 0.05474, 0.03623, 0.00139, 0.00065, - + 0.00032, 0.00152, 0.00354, - + 0.20932, 0.05210, 0.03290, 0.00132, 0.00064, - + 0.00033, 0.00144, 0.00333, - + 0.20067, 0.04968, 0.03003, 0.00125, 0.00062, - + 0.00033, 0.00137, 0.00315 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ - + 0.19271, 0.04747, 0.02754, 0.00118, 0.00060, - + 0.00033, 0.00129, 0.00300, - + 0.18533, 0.04545, 0.02537, 0.00112, 0.00058, - + 0.00032, 0.00124, 0.00284, - + 0.17851, 0.04358, 0.02347, 0.00107, 0.00056, - + 0.00032, 0.00119, 0.00269, - + 0.17215, 0.04183, 0.02179, 0.00103, 0.00055, - + 0.00032, 0.00114, 0.00257, - + 0.16623, 0.04022, 0.02030, 0.00099, 0.00054, - + 0.00032, 0.00110, 0.00245 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + 0.39872, 0.10510, 0.15704, 0.00175, 0.00030, - + 0.00003, 0.00210, 0.00636, - + 0.36144, 0.09386, 0.12291, 0.00167, 0.00042, - + 0.00003, 0.00196, 0.00563, - + 0.33109, 0.08486, 0.09888, 0.00160, 0.00049, - + 0.00002, 0.00183, 0.00499, - + 0.30567, 0.07746, 0.08131, 0.00148, 0.00052, - + 0.00007, 0.00169, 0.00452, - + 0.28395, 0.07123, 0.06805, 0.00139, 0.00052, - + 0.00012, 0.00157, 0.00411, - + 0.26514, 0.06591, 0.05779, 0.00131, 0.00052, - + 0.00016, 0.00146, 0.00376, - + 0.24864, 0.06130, 0.04969, 0.00124, 0.00051, - + 0.00018, 0.00137, 0.00345 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ - + 0.23408, 0.05726, 0.04320, 0.00116, 0.00050, - + 0.00020, 0.00128, 0.00319, - + 0.22111, 0.05369, 0.03793, 0.00109, 0.00049, - + 0.00021, 0.00120, 0.00295, - + 0.20950, 0.05054, 0.03359, 0.00102, 0.00048, - + 0.00022, 0.00113, 0.00275, - + 0.19903, 0.04772, 0.02997, 0.00097, 0.00046, - + 0.00022, 0.00107, 0.00256, - + 0.18950, 0.04518, 0.02693, 0.00092, 0.00044, - + 0.00022, 0.00101, 0.00241, - + 0.18081, 0.04288, 0.02435, 0.00089, 0.00042, - + 0.00021, 0.00095, 0.00226, - + 0.17289, 0.04079, 0.02215, 0.00084, 0.00040, - + 0.00021, 0.00090, 0.00213 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ - + 0.16563, 0.03888, 0.02025, 0.00079, 0.00039, - + 0.00022, 0.00086, 0.00203, - + 0.15888, 0.03714, 0.01860, 0.00077, 0.00039, - + 0.00021, 0.00082, 0.00191, - + 0.15266, 0.03553, 0.01715, 0.00075, 0.00038, - + 0.00021, 0.00078, 0.00180, - + 0.14690, 0.03404, 0.01588, 0.00070, 0.00036, - + 0.00020, 0.00074, 0.00172, - + 0.14157, 0.03267, 0.01476, 0.00066, 0.00035, - + 0.00020, 0.00071, 0.00164 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + 0.35819, 0.08968, 0.12614, 0.00109, 0.00022, - + 0.00004, 0.00145, 0.00442, - + 0.32249, 0.07955, 0.09729, 0.00105, 0.00032, - + 0.00004, 0.00135, 0.00389, - + 0.29363, 0.07151, 0.07732, 0.00101, 0.00036, - + 0.00003, 0.00126, 0.00344, - + 0.26966, 0.06492, 0.06288, 0.00093, 0.00038, - + 0.00006, 0.00116, 0.00310, - + 0.24927, 0.05942, 0.05212, 0.00089, 0.00038, - + 0.00010, 0.00108, 0.00279, - + 0.23174, 0.05474, 0.04389, 0.00082, 0.00038, - + 0.00013, 0.00100, 0.00254, - + 0.21648, 0.05071, 0.03747, 0.00076, 0.00037, - + 0.00014, 0.00093, 0.00232 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ - + 0.20301, 0.04719, 0.03236, 0.00072, 0.00037, - + 0.00015, 0.00088, 0.00213, - + 0.19108, 0.04410, 0.02824, 0.00068, 0.00036, - + 0.00016, 0.00082, 0.00198, - + 0.18043, 0.04137, 0.02487, 0.00064, 0.00035, - + 0.00016, 0.00077, 0.00184, - + 0.17087, 0.03894, 0.02209, 0.00060, 0.00033, - + 0.00016, 0.00072, 0.00171, - + 0.16226, 0.03676, 0.01976, 0.00056, 0.00031, - + 0.00016, 0.00068, 0.00160, - + 0.15438, 0.03479, 0.01780, 0.00054, 0.00030, - + 0.00016, 0.00065, 0.00150, - + 0.14721, 0.03301, 0.01613, 0.00052, 0.00029, - + 0.00016, 0.00061, 0.00141 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ - + 0.14065, 0.03139, 0.01469, 0.00049, 0.00028, - + 0.00016, 0.00057, 0.00133, - + 0.13460, 0.02990, 0.01345, 0.00047, 0.00027, - + 0.00015, 0.00055, 0.00126, - + 0.12905, 0.02853, 0.01237, 0.00046, 0.00026, - + 0.00014, 0.00052, 0.00118, - + 0.12389, 0.02728, 0.01143, 0.00043, 0.00025, - + 0.00014, 0.00050, 0.00113, - + 0.11913, 0.02613, 0.01059, 0.00041, 0.00024, - + 0.00014, 0.00047, 0.00107 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + 0.31817, 0.07563, 0.10021, 0.00068, 0.00016, - + 0.00003, 0.00099, 0.00300, - + 0.28451, 0.06662, 0.07613, 0.00064, 0.00023, - + 0.00003, 0.00092, 0.00262, - + 0.25747, 0.05950, 0.05972, 0.00061, 0.00026, - + 0.00001, 0.00086, 0.00232, - + 0.23515, 0.05374, 0.04805, 0.00057, 0.00028, - + 0.00005, 0.00080, 0.00206, - + 0.21633, 0.04894, 0.03946, 0.00053, 0.00028, - + 0.00008, 0.00074, 0.00186, - + 0.20020, 0.04489, 0.03296, 0.00050, 0.00028, - + 0.00010, 0.00069, 0.00167, - + 0.18621, 0.04141, 0.02792, 0.00048, 0.00027, - + 0.00011, 0.00063, 0.00153 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ - + 0.17399, 0.03839, 0.02396, 0.00043, 0.00026, - + 0.00012, 0.00060, 0.00140, - + 0.16319, 0.03574, 0.02078, 0.00039, 0.00025, - + 0.00013, 0.00056, 0.00130, - + 0.15357, 0.03342, 0.01821, 0.00036, 0.00024, - + 0.00013, 0.00053, 0.00121, - + 0.14498, 0.03136, 0.01609, 0.00034, 0.00023, - + 0.00012, 0.00050, 0.00112, - + 0.13725, 0.02952, 0.01433, 0.00033, 0.00022, - + 0.00013, 0.00046, 0.00103, - + 0.13021, 0.02786, 0.01286, 0.00032, 0.00022, - + 0.00012, 0.00044, 0.00096, - + 0.12384, 0.02636, 0.01161, 0.00030, 0.00021, - + 0.00012, 0.00042, 0.00091 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ - + 0.11805, 0.02499, 0.01054, 0.00027, 0.00020, - + 0.00012, 0.00040, 0.00085, - + 0.11270, 0.02375, 0.00962, 0.00026, 0.00020, - + 0.00012, 0.00037, 0.00080, - + 0.10780, 0.02261, 0.00882, 0.00025, 0.00019, - + 0.00011, 0.00035, 0.00075, - + 0.10324, 0.02158, 0.00813, 0.00024, 0.00018, - + 0.00011, 0.00034, 0.00072, - + 0.09904, 0.02063, 0.00752, 0.00023, 0.00017, - + 0.00011, 0.00033, 0.00069 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + 0.27940, 0.06308, 0.07877, 0.00049, 0.00008, - + -0.00002, 0.00062, 0.00199, - + 0.24813, 0.05520, 0.05899, 0.00047, 0.00012, - + -0.00001, 0.00057, 0.00175, - + 0.22326, 0.04904, 0.04574, 0.00044, 0.00015, - + -0.00002, 0.00054, 0.00151, - + 0.20279, 0.04407, 0.03644, 0.00043, 0.00016, - + 0.00001, 0.00049, 0.00135, - + 0.18568, 0.03995, 0.02966, 0.00039, 0.00017, - + 0.00003, 0.00046, 0.00121, - + 0.17110, 0.03648, 0.02458, 0.00036, 0.00016, - + 0.00004, 0.00042, 0.00110, - + 0.15851, 0.03352, 0.02069, 0.00034, 0.00015, - + 0.00005, 0.00039, 0.00100 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ - + 0.14755, 0.03096, 0.01764, 0.00032, 0.00015, - + 0.00006, 0.00036, 0.00091, - + 0.13792, 0.02873, 0.01522, 0.00030, 0.00014, - + 0.00006, 0.00034, 0.00083, - + 0.12937, 0.02678, 0.01327, 0.00027, 0.00014, - + 0.00006, 0.00032, 0.00077, - + 0.12174, 0.02505, 0.01167, 0.00026, 0.00014, - + 0.00006, 0.00030, 0.00071, - + 0.11490, 0.02352, 0.01036, 0.00025, 0.00013, - + 0.00007, 0.00028, 0.00067, - + 0.10873, 0.02213, 0.00926, 0.00023, 0.00012, - + 0.00006, 0.00026, 0.00062, - + 0.10313, 0.02089, 0.00833, 0.00022, 0.00011, - + 0.00005, 0.00025, 0.00058 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ - + 0.09803, 0.01977, 0.00754, 0.00021, 0.00011, - + 0.00005, 0.00023, 0.00054, - + 0.09337, 0.01874, 0.00686, 0.00021, 0.00010, - + 0.00005, 0.00022, 0.00050, - + 0.08911, 0.01781, 0.00628, 0.00020, 0.00010, - + 0.00005, 0.00021, 0.00047, - + 0.08518, 0.01695, 0.00577, 0.00018, 0.00010, - + 0.00005, 0.00020, 0.00045, - + 0.08156, 0.01617, 0.00532, 0.00017, 0.00010, - + 0.00005, 0.00019, 0.00043 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + 0.24204, 0.05168, 0.06086, 0.00025, 0.00009, - + 0.00002, 0.00043, 0.00128, - + 0.21349, 0.04492, 0.04492, 0.00023, 0.00011, - + 0.00002, 0.00040, 0.00111, - + 0.19087, 0.03967, 0.03440, 0.00025, 0.00013, - + 0.00002, 0.00037, 0.00095, - + 0.17248, 0.03546, 0.02713, 0.00023, 0.00012, - + 0.00003, 0.00034, 0.00086, - + 0.15714, 0.03200, 0.02188, 0.00021, 0.00012, - + 0.00003, 0.00030, 0.00076, - + 0.14414, 0.02909, 0.01798, 0.00020, 0.00011, - + 0.00004, 0.00027, 0.00070, - + 0.13298, 0.02662, 0.01502, 0.00019, 0.00011, - + 0.00005, 0.00025, 0.00064 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ - + 0.12329, 0.02450, 0.01273, 0.00017, 0.00011, - + 0.00005, 0.00023, 0.00057, - + 0.11479, 0.02266, 0.01092, 0.00017, 0.00010, - + 0.00005, 0.00022, 0.00052, - + 0.10731, 0.02106, 0.00947, 0.00017, 0.00009, - + 0.00004, 0.00020, 0.00048, - + 0.10067, 0.01964, 0.00830, 0.00015, 0.00009, - + 0.00005, 0.00019, 0.00044, - + 0.09475, 0.01837, 0.00733, 0.00013, 0.00008, - + 0.00005, 0.00018, 0.00042, - + 0.08940, 0.01724, 0.00653, 0.00012, 0.00008, - + 0.00005, 0.00017, 0.00039, - + 0.08456, 0.01623, 0.00585, 0.00013, 0.00008, - + 0.00005, 0.00016, 0.00036 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ - + 0.08018, 0.01532, 0.00528, 0.00013, 0.00008, - + 0.00004, 0.00014, 0.00033, - + 0.07616, 0.01449, 0.00479, 0.00013, 0.00007, - + 0.00004, 0.00013, 0.00031, - + 0.07251, 0.01374, 0.00437, 0.00012, 0.00007, - + 0.00004, 0.00013, 0.00030, - + 0.06916, 0.01305, 0.00401, 0.00012, 0.00007, - + 0.00004, 0.00012, 0.00027, - + 0.06608, 0.01242, 0.00369, 0.00011, 0.00006, - + 0.00004, 0.00012, 0.00025 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + 0.20691, 0.04176, 0.04632, 0.00013, 0.00006, - + 0.00004, 0.00028, 0.00080, - + 0.18121, 0.03604, 0.03370, 0.00013, 0.00009, - + 0.00004, 0.00027, 0.00069, - + 0.16102, 0.03163, 0.02549, 0.00012, 0.00008, - + 0.00002, 0.00023, 0.00061, - + 0.14467, 0.02812, 0.01987, 0.00013, 0.00009, - + 0.00003, 0.00021, 0.00054, - + 0.13116, 0.02525, 0.01588, 0.00010, 0.00008, - + 0.00004, 0.00019, 0.00048, - + 0.11973, 0.02285, 0.01294, 0.00010, 0.00008, - + 0.00004, 0.00018, 0.00043, - + 0.10998, 0.02083, 0.01074, 0.00011, 0.00008, - + 0.00004, 0.00017, 0.00038 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ - + 0.10157, 0.01909, 0.00903, 0.00009, 0.00008, - + 0.00004, 0.00015, 0.00035, - + 0.09422, 0.01759, 0.00770, 0.00009, 0.00008, - + 0.00004, 0.00014, 0.00032, - + 0.08777, 0.01628, 0.00665, 0.00009, 0.00007, - + 0.00004, 0.00013, 0.00029, - + 0.08206, 0.01513, 0.00580, 0.00009, 0.00006, - + 0.00004, 0.00012, 0.00028, - + 0.07698, 0.01412, 0.00510, 0.00008, 0.00006, - + 0.00004, 0.00011, 0.00025, - + 0.07242, 0.01321, 0.00452, 0.00007, 0.00006, - + 0.00003, 0.00011, 0.00023, - + 0.06833, 0.01240, 0.00404, 0.00007, 0.00006, - + 0.00003, 0.00010, 0.00022 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ - + 0.06462, 0.01167, 0.00363, 0.00007, 0.00005, - + 0.00003, 0.00009, 0.00020, - + 0.06123, 0.01101, 0.00329, 0.00007, 0.00005, - + 0.00003, 0.00009, 0.00019, - + 0.05814, 0.01042, 0.00299, 0.00006, 0.00005, - + 0.00003, 0.00008, 0.00018, - + 0.05533, 0.00987, 0.00274, 0.00005, 0.00004, - + 0.00002, 0.00008, 0.00017, - + 0.05275, 0.00937, 0.00251, 0.00005, 0.00004, - + 0.00002, 0.00007, 0.00016 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + 0.17455, 0.03329, 0.03478, 0.00009, 0.00002, - + 0.00000, 0.00015, 0.00050, - + 0.15174, 0.02853, 0.02492, 0.00010, 0.00004, - + 0.00000, 0.00014, 0.00042, - + 0.13397, 0.02490, 0.01862, 0.00009, 0.00005, - + 0.00001, 0.00013, 0.00038, - + 0.11972, 0.02200, 0.01436, 0.00008, 0.00005, - + 0.00000, 0.00012, 0.00032, - + 0.10798, 0.01965, 0.01137, 0.00008, 0.00005, - + 0.00001, 0.00011, 0.00029, - + 0.09813, 0.01771, 0.00920, 0.00008, 0.00004, - + 0.00002, 0.00010, 0.00026, - + 0.08976, 0.01607, 0.00757, 0.00007, 0.00004, - + 0.00002, 0.00009, 0.00025 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ - + 0.08255, 0.01467, 0.00633, 0.00007, 0.00004, - + 0.00001, 0.00008, 0.00021, - + 0.07629, 0.01347, 0.00537, 0.00007, 0.00004, - + 0.00002, 0.00008, 0.00019, - + 0.07083, 0.01243, 0.00461, 0.00007, 0.00004, - + 0.00002, 0.00007, 0.00017, - + 0.06600, 0.01152, 0.00400, 0.00006, 0.00003, - + 0.00001, 0.00006, 0.00015, - + 0.06171, 0.01071, 0.00351, 0.00007, 0.00003, - + 0.00001, 0.00006, 0.00015, - + 0.05790, 0.01000, 0.00310, 0.00005, 0.00003, - + 0.00001, 0.00006, 0.00014, - + 0.05448, 0.00936, 0.00276, 0.00004, 0.00003, - + 0.00001, 0.00005, 0.00013 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ - + 0.05137, 0.00878, 0.00248, 0.00005, 0.00003, - + 0.00001, 0.00005, 0.00012, - + 0.04855, 0.00827, 0.00224, 0.00005, 0.00003, - + 0.00001, 0.00005, 0.00011, - + 0.04600, 0.00780, 0.00203, 0.00005, 0.00002, - + 0.00001, 0.00004, 0.00011, - + 0.04367, 0.00737, 0.00185, 0.00004, 0.00002, - + 0.00001, 0.00004, 0.00010, - + 0.04154, 0.00698, 0.00169, 0.00004, 0.00002, - + 0.00001, 0.00004, 0.00009 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + 0.14466, 0.02595, 0.02551, 0.00002, 0.00004, - + 0.00003, 0.00011, 0.00029, - + 0.12481, 0.02208, 0.01800, 0.00004, 0.00004, - + 0.00002, 0.00010, 0.00025, - + 0.10951, 0.01914, 0.01327, 0.00002, 0.00004, - + 0.00001, 0.00009, 0.00021, - + 0.09728, 0.01682, 0.01013, 0.00003, 0.00004, - + 0.00002, 0.00008, 0.00019, - + 0.08727, 0.01495, 0.00794, 0.00003, 0.00003, - + 0.00002, 0.00007, 0.00017, - + 0.07893, 0.01341, 0.00637, 0.00003, 0.00003, - + 0.00002, 0.00007, 0.00015, - + 0.07186, 0.01211, 0.00520, 0.00003, 0.00003, - + 0.00002, 0.00006, 0.00013 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ - + 0.06582, 0.01101, 0.00432, 0.00003, 0.00003, - + 0.00002, 0.00006, 0.00011, - + 0.06059, 0.01007, 0.00364, 0.00003, 0.00003, - + 0.00002, 0.00005, 0.00011, - + 0.05604, 0.00926, 0.00311, 0.00003, 0.00003, - + 0.00002, 0.00005, 0.00010, - + 0.05205, 0.00855, 0.00269, 0.00003, 0.00002, - + 0.00001, 0.00004, 0.00008, - + 0.04850, 0.00793, 0.00235, 0.00003, 0.00003, - + 0.00001, 0.00004, 0.00008, - + 0.04536, 0.00737, 0.00207, 0.00003, 0.00002, - + 0.00001, 0.00004, 0.00007, - + 0.04255, 0.00688, 0.00183, 0.00002, 0.00002, - + 0.00001, 0.00004, 0.00007 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ - + 0.04002, 0.00644, 0.00164, 0.00002, 0.00002, - + 0.00001, 0.00003, 0.00007, - + 0.03773, 0.00604, 0.00148, 0.00002, 0.00002, - + 0.00001, 0.00003, 0.00006, - + 0.03565, 0.00569, 0.00134, 0.00002, 0.00002, - + 0.00001, 0.00003, 0.00006, - + 0.03376, 0.00537, 0.00122, 0.00002, 0.00001, - + 0.00001, 0.00003, 0.00005, - + 0.03204, 0.00507, 0.00111, 0.00001, 0.00001, - + 0.00001, 0.00002, 0.00005 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + 0.09437, 0.01492, 0.01292, 0.00001, 0.00001, - + 0.00000, 0.00003, 0.00009, - + 0.08017, 0.01250, 0.00883, 0.00001, 0.00001, - + 0.00000, 0.00003, 0.00007, - + 0.06937, 0.01068, 0.00634, 0.00001, 0.00001, - + 0.00000, 0.00003, 0.00006, - + 0.06086, 0.00928, 0.00472, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00005, - + 0.05399, 0.00816, 0.00363, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00005, - + 0.04833, 0.00724, 0.00286, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00004, - + 0.04360, 0.00648, 0.00230, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00004 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ - + 0.03957, 0.00584, 0.00189, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00004, - + 0.03614, 0.00530, 0.00158, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00003, - + 0.03318, 0.00483, 0.00133, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00003, - + 0.03059, 0.00443, 0.00114, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00003, - + 0.02832, 0.00408, 0.00099, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.02630, 0.00377, 0.00086, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.02452, 0.00350, 0.00076, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00002 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ - + 0.02293, 0.00325, 0.00068, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.02149, 0.00304, 0.00061, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.02020, 0.00284, 0.00055, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01903, 0.00267, 0.00049, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01796, 0.00251, 0.00045, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + 0.05631, 0.00773, 0.00585, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00002, - + 0.04704, 0.00637, 0.00386, 0.00000, 0.00000, - + 0.00000, 0.00001, 0.00002, - + 0.04008, 0.00537, 0.00269, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00002, - + 0.03471, 0.00460, 0.00196, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.03043, 0.00400, 0.00148, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.02693, 0.00351, 0.00114, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.02406, 0.00311, 0.00091, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ - + 0.02164, 0.00277, 0.00073, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01958, 0.00250, 0.00060, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01782, 0.00226, 0.00051, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01630, 0.00205, 0.00043, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01498, 0.00188, 0.00037, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01382, 0.00172, 0.00032, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01279, 0.00159, 0.00028, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ - + 0.01188, 0.00147, 0.00025, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01107, 0.00136, 0.00022, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01035, 0.00127, 0.00020, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00970, 0.00118, 0.00018, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00911, 0.00111, 0.00016, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + 0.02987, 0.00349, 0.00227, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.02449, 0.00282, 0.00145, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.02052, 0.00234, 0.00098, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01752, 0.00198, 0.00069, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01514, 0.00169, 0.00051, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01324, 0.00147, 0.00039, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01169, 0.00129, 0.00030, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ - + 0.01040, 0.00114, 0.00024, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00932, 0.00101, 0.00020, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00840, 0.00091, 0.00016, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00762, 0.00082, 0.00014, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00695, 0.00074, 0.00012, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00636, 0.00068, 0.00010, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00584, 0.00062, 0.00009, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ - + 0.00539, 0.00057, 0.00008, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00499, 0.00052, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00463, 0.00048, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00431, 0.00045, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00402, 0.00042, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + 0.01334, 0.00129, 0.00070, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01070, 0.00102, 0.00043, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00880, 0.00083, 0.00028, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00738, 0.00069, 0.00019, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00628, 0.00058, 0.00014, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00542, 0.00050, 0.00010, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00472, 0.00043, 0.00008, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ - + 0.00414, 0.00038, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00367, 0.00033, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00328, 0.00029, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00294, 0.00026, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00265, 0.00023, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00241, 0.00021, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00219, 0.00019, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ - + 0.00201, 0.00018, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00184, 0.00016, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00170, 0.00015, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00157, 0.00014, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00145, 0.00013, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + 0.00099, 0.00005, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00074, 0.00004, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00058, 0.00003, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00046, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00038, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00031, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00026, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ - + 0.00022, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00019, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00016, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00014, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00010, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ - + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00006, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00006, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,5,9,0,0,9,9/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - XSAVE=X -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(33,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7) GO TO 31 - DO 30 K=1,19 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,8 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) -C - X=XSAVE -C - RETURN - END -C diff --git a/PDF/spdf/sfmsbb0.F b/PDF/spdf/sfmsbb0.F deleted file mode 100644 index 6c3d65673dd..00000000000 --- a/PDF/spdf/sfmsbb0.F +++ /dev/null @@ -1,1983 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:16 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:42 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFMSBB0(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) - -C THIS IS THE PREVIOUS KMRS(B0) FIT (190 MEV) USEA=DSEA=2*STR - -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,20),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + 0.01727, 0.00137, 4.14718, 0.13665, 0.03357, - + 0.00000, 0.08600, 0.13665, - + 0.01763, 0.00154, 9.74113, 0.28680, 0.18390, - + 0.00000, 0.23628, 0.28680, - + 0.01797, 0.00169, 17.09975, 0.48357, 0.38081, - + 0.00000, 0.43315, 0.48357, - + 0.01828, 0.00183, 26.22037, 0.72720, 0.62457, - + 0.00000, 0.67687, 0.72720, - + 0.01858, 0.00197, 36.71242, 1.00782, 0.90529, - + 0.01690, 0.95757, 1.00782, - + 0.01886, 0.00211, 48.57324, 1.32668, 1.22422, - + 0.21238, 1.27648, 1.32668, - + 0.01912, 0.00224, 61.70306, 1.68246, 1.58007, - + 0.60144, 1.63232, 1.68246 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ - + 0.01938, 0.00236, 75.99297, 2.07332, 1.97098, - + 0.99713, 2.02322, 2.07332, - + 0.01962, 0.00248, 91.33727, 2.49708, 2.39479, - + 1.43030, 2.44703, 2.49708, - + 0.01986, 0.00260, 107.43649, 2.94648, 2.84421, - + 1.88753, 2.89645, 2.94648, - + 0.02009, 0.00272, 124.38155, 3.42428, 3.32204, - + 2.37281, 3.37428, 3.42428, - + 0.02031, 0.00283, 142.13774, 3.92982, 3.82760, - + 2.88542, 3.87985, 3.92982, - + 0.02053, 0.00295, 160.58954, 4.46035, 4.35815, - + 3.42263, 4.41040, 4.46035, - + 0.02074, 0.00306, 179.37915, 5.00696, 4.90476, - + 3.97556, 4.95702, 5.00696 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ - + 0.02095, 0.00316, 198.88515, 5.57920, 5.47701, - + 4.55381, 5.52928, 5.57920, - + 0.02115, 0.00327, 218.71463, 6.16713, 6.06494, - + 5.14746, 6.11722, 6.16713, - + 0.02134, 0.00337, 238.94661, 6.77271, 6.67052, - + 5.75851, 6.72282, 6.77271, - + 0.02153, 0.00347, 259.60815, 7.39661, 7.29440, - + 6.38763, 7.34672, 7.39661, - + 0.02172, 0.00357, 280.40967, 8.03133, 7.92911, - + 7.02736, 7.98144, 8.03133 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + 0.02115, 0.00210, 4.03986, 0.13824, 0.03153, - + 0.00000, 0.08549, 0.13824, - + 0.02166, 0.00234, 8.96050, 0.27329, 0.16660, - + 0.00000, 0.22057, 0.27329, - + 0.02212, 0.00257, 15.17996, 0.44380, 0.33711, - + 0.00000, 0.39110, 0.44380, - + 0.02255, 0.00278, 22.66025, 0.64940, 0.54270, - + 0.00000, 0.59671, 0.64940, - + 0.02295, 0.00298, 31.05817, 0.88140, 0.77468, - + 0.01386, 0.82873, 0.88140, - + 0.02333, 0.00318, 40.35976, 1.14050, 1.03376, - + 0.17228, 1.08783, 1.14050, - + 0.02369, 0.00336, 50.47510, 1.42533, 1.31855, - + 0.48476, 1.37266, 1.42533 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ - + 0.02404, 0.00355, 61.31216, 1.73411, 1.62730, - + 0.79789, 1.68144, 1.73411, - + 0.02437, 0.00372, 72.78514, 2.06493, 1.95807, - + 1.13674, 2.01225, 2.06493, - + 0.02469, 0.00389, 84.66566, 2.41194, 2.30504, - + 1.49049, 2.35925, 2.41194, - + 0.02500, 0.00406, 97.02478, 2.77726, 2.67032, - + 1.86223, 2.72456, 2.77726, - + 0.02529, 0.00422, 109.83669, 3.16030, 3.05330, - + 2.25132, 3.10758, 3.16030, - + 0.02558, 0.00438, 123.01701, 3.55888, 3.45183, - + 2.65562, 3.50615, 3.55888, - + 0.02586, 0.00454, 136.30722, 3.96619, 3.85910, - + 3.06835, 3.91345, 3.96619 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ - + 0.02613, 0.00469, 149.98785, 4.38954, 4.28239, - + 3.49683, 4.33678, 4.38954, - + 0.02640, 0.00484, 163.77657, 4.82138, 4.71418, - + 3.93358, 4.76860, 4.82138, - + 0.02666, 0.00499, 177.73506, 5.26327, 5.15601, - + 4.38014, 5.21047, 5.26327, - + 0.02691, 0.00513, 191.88643, 5.71572, 5.60841, - + 4.83705, 5.66290, 5.71572, - + 0.02715, 0.00527, 206.02808, 6.17319, 6.06581, - + 5.29879, 6.12035, 6.17319 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + 0.02581, 0.00322, 3.93502, 0.13973, 0.02939, - + 0.00000, 0.08490, 0.13973, - + 0.02649, 0.00357, 8.24120, 0.26052, 0.15004, - + 0.00000, 0.20564, 0.26052, - + 0.02712, 0.00390, 13.47276, 0.40765, 0.29702, - + 0.00000, 0.35270, 0.40765, - + 0.02769, 0.00421, 19.57806, 0.58047, 0.46971, - + 0.00000, 0.52547, 0.58047, - + 0.02823, 0.00451, 26.26634, 0.77156, 0.66065, - + 0.01132, 0.71650, 0.77156, - + 0.02874, 0.00479, 33.52313, 0.98132, 0.87028, - + 0.13924, 0.92620, 0.98132, - + 0.02923, 0.00506, 41.27425, 1.20846, 1.09729, - + 0.38933, 1.15329, 1.20846 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ - + 0.02969, 0.00532, 49.44673, 1.45145, 1.34015, - + 0.63622, 1.39623, 1.45145, - + 0.03013, 0.00558, 57.97556, 1.70868, 1.59726, - + 0.90031, 1.65340, 1.70868, - + 0.03056, 0.00582, 66.68988, 1.97554, 1.86399, - + 1.17296, 1.92020, 1.97554, - + 0.03096, 0.00606, 75.64777, 2.25369, 2.14202, - + 1.45661, 2.19830, 2.25369, - + 0.03136, 0.00629, 84.83273, 2.54266, 2.43087, - + 1.75078, 2.48722, 2.54266, - + 0.03174, 0.00652, 94.18532, 2.84079, 2.72889, - + 2.05381, 2.78530, 2.84079, - + 0.03211, 0.00674, 103.52109, 3.14293, 3.03092, - + 2.36059, 3.08739, 3.14293 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ - + 0.03247, 0.00695, 113.04878, 3.45468, 3.34256, - + 2.67674, 3.39909, 3.45468, - + 0.03282, 0.00716, 122.56744, 3.77040, 3.65817, - + 2.99664, 3.71476, 3.77040, - + 0.03316, 0.00737, 132.12633, 4.09128, 3.97895, - + 3.32153, 4.03560, 4.09128, - + 0.03349, 0.00757, 141.74492, 4.41779, 4.30535, - + 3.65185, 4.36206, 4.41779, - + 0.03381, 0.00777, 151.28378, 4.74585, 4.63331, - + 3.98356, 4.69007, 4.74585 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + 0.02893, 0.00413, 3.87473, 0.14055, 0.02810, - + 0.00000, 0.08453, 0.14055, - + 0.02974, 0.00457, 7.84653, 0.25338, 0.14069, - + 0.00000, 0.19726, 0.25338, - + 0.03048, 0.00499, 12.56228, 0.38804, 0.27512, - + 0.00000, 0.33181, 0.38804, - + 0.03116, 0.00537, 17.96925, 0.54385, 0.43071, - + 0.00000, 0.48753, 0.54385, - + 0.03180, 0.00574, 23.80748, 0.71409, 0.60075, - + 0.01004, 0.65767, 0.71409, - + 0.03240, 0.00609, 30.06538, 0.89909, 0.78555, - + 0.12269, 0.84258, 0.89909, - + 0.03297, 0.00643, 36.67871, 1.09766, 0.98393, - + 0.34182, 1.04106, 1.09766 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ - + 0.03352, 0.00675, 43.58598, 1.30842, 1.19452, - + 0.55625, 1.25174, 1.30842, - + 0.03404, 0.00706, 50.73314, 1.52996, 1.41588, - + 0.78405, 1.47320, 1.52996, - + 0.03454, 0.00737, 57.97787, 1.75831, 1.64406, - + 1.01769, 1.70146, 1.75831, - + 0.03502, 0.00766, 65.37230, 1.99491, 1.88050, - + 1.25932, 1.93799, 1.99491, - + 0.03548, 0.00794, 72.90512, 2.23939, 2.12482, - + 1.50855, 2.18239, 2.23939, - + 0.03593, 0.00822, 80.52847, 2.49034, 2.37562, - + 1.76398, 2.43327, 2.49034, - + 0.03637, 0.00849, 88.09204, 2.74342, 2.62854, - + 2.02129, 2.68628, 2.74342 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ - + 0.03679, 0.00876, 95.77158, 3.00342, 2.88840, - + 2.28531, 2.94621, 3.00342, - + 0.03720, 0.00901, 103.40367, 3.26559, 3.15044, - + 2.55131, 3.20832, 3.26559, - + 0.03759, 0.00926, 111.03078, 3.53100, 3.41570, - + 2.82036, 3.47366, 3.53100, - + 0.03798, 0.00951, 118.67154, 3.80005, 3.68462, - + 3.09289, 3.74265, 3.80005, - + 0.03836, 0.00975, 126.21417, 4.06936, 3.95381, - + 3.36555, 4.01190, 4.06936 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + 0.03134, 0.00493, 3.83235, 0.14111, 0.02716, - + 0.00000, 0.08427, 0.14111, - + 0.03225, 0.00545, 7.57737, 0.24846, 0.13420, - + 0.00000, 0.19148, 0.24846, - + 0.03308, 0.00593, 11.95233, 0.37478, 0.26023, - + 0.00000, 0.31766, 0.37478, - + 0.03385, 0.00639, 16.90590, 0.51940, 0.40458, - + 0.00000, 0.46214, 0.51940, - + 0.03457, 0.00681, 22.19968, 0.67608, 0.56101, - + 0.00921, 0.61870, 0.67608, - + 0.03524, 0.00722, 27.82472, 0.84513, 0.72981, - + 0.11204, 0.78764, 0.84513, - + 0.03588, 0.00761, 33.72424, 1.02544, 0.90990, - + 0.31136, 0.96785, 1.02544 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ - + 0.03649, 0.00799, 39.84422, 1.21576, 1.10000, - + 0.50519, 1.15806, 1.21576, - + 0.03708, 0.00835, 46.13820, 1.41480, 1.29883, - + 0.71009, 1.35700, 1.41480, - + 0.03764, 0.00870, 52.48160, 1.61900, 1.50283, - + 0.91927, 1.56110, 1.61900, - + 0.03818, 0.00904, 58.92308, 1.82969, 1.71334, - + 1.13468, 1.77170, 1.82969, - + 0.03870, 0.00937, 65.45433, 2.04655, 1.93001, - + 1.35600, 1.98847, 2.04655, - + 0.03920, 0.00969, 72.03506, 2.26835, 2.15163, - + 1.58200, 2.21019, 2.26835, - + 0.03969, 0.01000, 78.53560, 2.49124, 2.37434, - + 1.80886, 2.43298, 2.49124 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ - + 0.04016, 0.01031, 85.11166, 2.71952, 2.60246, - + 2.04091, 2.66118, 2.71952, - + 0.04061, 0.01060, 91.62201, 2.94899, 2.83177, - + 2.27397, 2.89058, 2.94899, - + 0.04106, 0.01089, 98.10550, 3.18062, 3.06325, - + 2.50902, 3.12214, 3.18062, - + 0.04149, 0.01117, 104.57967, 3.41482, 3.29729, - + 2.74648, 3.35626, 3.41482, - + 0.04191, 0.01145, 110.94926, 3.64862, 3.53094, - + 2.98341, 3.58998, 3.64862 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + 0.03332, 0.00566, 3.79968, 0.14154, 0.02642, - + 0.00000, 0.08406, 0.14154, - + 0.03432, 0.00625, 7.37448, 0.24473, 0.12925, - + 0.00000, 0.18708, 0.24473, - + 0.03523, 0.00679, 11.49857, 0.36486, 0.24904, - + 0.00000, 0.30705, 0.36486, - + 0.03607, 0.00730, 16.12267, 0.50126, 0.38513, - + 0.00000, 0.44329, 0.50126, - + 0.03686, 0.00778, 21.02475, 0.64808, 0.53166, - + 0.00861, 0.58997, 0.64808, - + 0.03759, 0.00824, 26.19827, 0.80560, 0.68892, - + 0.10436, 0.74737, 0.80560, - + 0.03829, 0.00868, 31.59203, 0.97281, 0.85587, - + 0.28944, 0.91445, 0.97281 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ - + 0.03896, 0.00910, 37.15771, 1.14852, 1.03133, - + 0.46854, 1.09004, 1.14852, - + 0.03960, 0.00951, 42.85422, 1.33156, 1.21414, - + 0.65716, 1.27297, 1.33156, - + 0.04021, 0.00990, 48.56958, 1.51867, 1.40102, - + 0.84901, 1.45996, 1.51867, - + 0.04080, 0.01028, 54.35023, 1.71109, 1.59322, - + 1.04592, 1.65227, 1.71109, - + 0.04137, 0.01065, 60.18990, 1.90854, 1.79047, - + 1.24762, 1.84963, 1.90854, - + 0.04191, 0.01101, 66.05362, 2.10991, 1.99165, - + 1.45299, 2.05090, 2.10991, - + 0.04244, 0.01136, 71.82570, 2.31171, 2.19326, - + 1.65857, 2.25261, 2.31171 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ - + 0.04296, 0.01170, 77.64796, 2.51790, 2.39926, - + 1.86835, 2.45870, 2.51790, - + 0.04345, 0.01203, 83.39464, 2.72465, 2.60584, - + 2.07852, 2.66537, 2.72465, - + 0.04394, 0.01235, 89.10205, 2.93290, 2.81392, - + 2.29002, 2.87354, 2.93290, - + 0.04441, 0.01266, 94.78679, 3.14301, 3.02386, - + 2.50323, 3.08356, 3.14301, - + 0.04487, 0.01297, 100.36469, 3.35231, 3.23300, - + 2.71551, 3.29278, 3.35231 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + 0.04020, 0.00867, 3.69894, 0.14290, 0.02408, - + 0.00000, 0.08346, 0.14290, - + 0.04151, 0.00953, 6.77438, 0.23366, 0.11433, - + 0.00000, 0.17397, 0.23366, - + 0.04270, 0.01032, 10.18754, 0.33598, 0.21618, - + 0.00000, 0.27606, 0.33598, - + 0.04381, 0.01107, 13.89920, 0.44924, 0.32902, - + 0.00000, 0.38911, 0.44924, - + 0.04483, 0.01176, 17.73564, 0.56872, 0.44810, - + 0.00695, 0.50839, 0.56872, - + 0.04580, 0.01242, 21.69847, 0.69469, 0.57370, - + 0.08336, 0.63418, 0.69469, - + 0.04672, 0.01305, 25.75279, 0.82636, 0.70503, - + 0.22979, 0.76568, 0.82636 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ - + 0.04759, 0.01366, 29.86649, 0.96284, 0.84118, - + 0.36932, 0.90200, 0.96284, - + 0.04842, 0.01424, 34.01329, 1.10326, 0.98130, - + 0.51451, 1.04227, 1.10326, - + 0.04922, 0.01479, 38.11441, 1.24516, 1.12290, - + 0.66049, 1.18401, 1.24516, - + 0.04999, 0.01533, 42.20973, 1.38957, 1.26704, - + 0.80878, 1.32829, 1.38957, - + 0.05073, 0.01585, 46.29869, 1.53635, 1.41356, - + 0.95921, 1.47494, 1.53635, - + 0.05145, 0.01635, 50.35931, 1.68471, 1.56166, - + 1.11100, 1.62317, 1.68471, - + 0.05214, 0.01684, 54.31206, 1.83207, 1.70878, - + 1.26162, 1.77041, 1.83207 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ - + 0.05281, 0.01732, 58.26271, 1.98149, 1.85798, - + 1.41412, 1.91972, 1.98149, - + 0.05346, 0.01778, 62.12411, 2.13018, 2.00644, - + 1.56575, 2.06830, 2.13018, - + 0.05409, 0.01822, 65.92543, 2.27888, 2.15493, - + 1.71724, 2.21688, 2.27888, - + 0.05470, 0.01866, 69.68102, 2.42792, 2.30376, - + 1.86895, 2.36582, 2.42792, - + 0.05530, 0.01908, 73.33424, 2.57538, 2.45103, - + 2.01897, 2.51318, 2.57538 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + 0.04833, 0.01328, 3.59829, 0.14447, 0.02168, - + 0.00000, 0.08303, 0.14447, - + 0.05003, 0.01454, 6.21379, 0.22356, 0.10011, - + 0.00000, 0.16179, 0.22356, - + 0.05158, 0.01569, 9.00627, 0.31002, 0.18599, - + 0.00000, 0.24797, 0.31002, - + 0.05302, 0.01676, 11.94959, 0.40334, 0.27878, - + 0.00000, 0.34102, 0.40334, - + 0.05436, 0.01776, 14.91340, 0.49978, 0.37474, - + 0.00557, 0.43723, 0.49978, - + 0.05562, 0.01870, 17.90746, 0.59967, 0.47417, - + 0.06605, 0.53689, 0.59967, - + 0.05682, 0.01960, 20.91110, 0.70244, 0.57653, - + 0.18097, 0.63945, 0.70244 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ - + 0.05796, 0.02045, 23.90559, 0.80747, 0.68117, - + 0.28875, 0.74429, 0.80747, - + 0.05904, 0.02127, 26.87637, 0.91416, 0.78749, - + 0.39953, 0.85079, 0.91416, - + 0.06009, 0.02206, 29.76994, 1.02068, 0.89368, - + 0.50959, 0.95715, 1.02068, - + 0.06109, 0.02281, 32.62083, 1.12794, 1.00060, - + 0.62019, 1.06424, 1.12794, - + 0.06205, 0.02354, 35.43228, 1.23587, 1.10823, - + 0.73127, 1.17202, 1.23587, - + 0.06298, 0.02424, 38.19170, 1.34395, 1.21602, - + 0.84232, 1.27996, 1.34395, - + 0.06388, 0.02492, 40.84555, 1.45032, 1.32211, - + 0.95150, 1.38618, 1.45032 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ - + 0.06475, 0.02558, 43.47240, 1.55732, 1.42885, - + 1.06117, 1.49306, 1.55732, - + 0.06560, 0.02621, 46.01302, 1.66295, 1.53423, - + 1.16933, 1.59856, 1.66295, - + 0.06642, 0.02683, 48.49049, 1.76779, 1.63883, - + 1.27660, 1.70328, 1.76779, - + 0.06721, 0.02743, 50.91679, 1.87215, 1.74296, - + 1.38327, 1.80752, 1.87215, - + 0.06799, 0.02801, 53.25471, 1.97468, 1.84527, - + 1.48801, 1.90995, 1.97468 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + 0.05382, 0.01706, 3.53856, 0.14570, 0.02026, - + 0.00000, 0.08296, 0.14570, - + 0.05580, 0.01861, 5.90028, 0.21828, 0.09212, - + 0.00000, 0.15519, 0.21828, - + 0.05762, 0.02004, 8.36460, 0.29627, 0.16946, - + 0.00000, 0.23286, 0.29627, - + 0.05931, 0.02136, 10.91359, 0.37917, 0.25179, - + 0.00000, 0.31548, 0.37917, - + 0.06087, 0.02259, 13.43987, 0.46381, 0.33590, - + 0.00487, 0.39986, 0.46381, - + 0.06235, 0.02374, 15.95744, 0.55053, 0.42214, - + 0.05734, 0.48634, 0.55053, - + 0.06375, 0.02484, 18.45279, 0.63891, 0.51007, - + 0.15654, 0.57450, 0.63891 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ - + 0.06508, 0.02588, 20.91368, 0.72846, 0.59921, - + 0.24869, 0.66384, 0.72846, - + 0.06635, 0.02688, 23.33113, 0.81871, 0.68907, - + 0.34269, 0.75391, 0.81871, - + 0.06757, 0.02783, 25.66345, 0.90818, 0.77817, - + 0.43540, 0.84319, 0.90818, - + 0.06874, 0.02874, 27.94212, 0.99766, 0.86732, - + 0.52796, 0.93251, 0.99766, - + 0.06987, 0.02962, 30.17204, 1.08716, 0.95650, - + 0.62037, 1.02185, 1.08716, - + 0.07096, 0.03047, 32.34473, 1.17628, 1.04531, - + 0.71221, 1.11081, 1.17628, - + 0.07201, 0.03129, 34.41817, 1.26348, 1.13223, - + 0.80201, 1.19787, 1.26348 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ - + 0.07302, 0.03208, 36.45828, 1.35079, 1.21926, - + 0.89177, 1.28504, 1.35079, - + 0.07401, 0.03284, 38.41805, 1.43653, 1.30475, - + 0.97986, 1.37066, 1.43653, - + 0.07496, 0.03358, 40.31763, 1.52126, 1.38923, - + 1.06682, 1.45527, 1.52126, - + 0.07589, 0.03429, 42.16774, 1.60524, 1.47297, - + 1.15292, 1.53913, 1.60524, - + 0.07679, 0.03499, 43.93956, 1.68738, 1.55489, - + 1.23711, 1.62116, 1.68738 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + 0.05816, 0.02037, 3.49532, 0.14682, 0.01926, - + 0.00000, 0.08304, 0.14682, - + 0.06039, 0.02218, 5.68253, 0.21494, 0.08660, - + 0.00000, 0.15078, 0.21494, - + 0.06243, 0.02383, 7.92716, 0.28721, 0.15819, - + 0.00000, 0.22273, 0.28721, - + 0.06431, 0.02536, 10.21717, 0.36321, 0.23359, - + 0.00000, 0.29843, 0.36321, - + 0.06607, 0.02678, 12.46043, 0.44012, 0.30994, - + 0.00441, 0.37507, 0.44012, - + 0.06772, 0.02811, 14.67355, 0.51829, 0.38762, - + 0.05170, 0.45300, 0.51829, - + 0.06929, 0.02937, 16.84769, 0.59741, 0.46627, - + 0.14077, 0.53189, 0.59741 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ - + 0.07078, 0.03056, 18.97456, 0.67706, 0.54549, - + 0.22292, 0.61133, 0.67706, - + 0.07221, 0.03171, 21.04855, 0.75688, 0.62492, - + 0.30626, 0.69096, 0.75688, - + 0.07358, 0.03279, 23.03528, 0.83558, 0.70325, - + 0.38804, 0.76948, 0.83558, - + 0.07489, 0.03383, 24.96417, 0.91392, 0.78124, - + 0.46927, 0.84764, 0.91392, - + 0.07615, 0.03483, 26.84091, 0.99192, 0.85892, - + 0.55001, 0.92549, 0.99192, - + 0.07736, 0.03580, 28.65936, 1.06925, 0.93595, - + 0.62993, 1.00267, 1.06925, - + 0.07854, 0.03672, 30.38464, 1.14461, 1.01102, - + 0.70774, 1.07789, 1.14461 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ - + 0.07967, 0.03762, 32.07445, 1.21980, 1.08593, - + 0.78524, 1.15294, 1.21980, - + 0.08077, 0.03848, 33.68941, 1.29336, 1.15924, - + 0.86102, 1.22637, 1.29336, - + 0.08184, 0.03932, 35.24754, 1.36580, 1.23144, - + 0.93557, 1.29870, 1.36580, - + 0.08287, 0.04013, 36.75883, 1.43738, 1.30278, - + 1.00917, 1.37016, 1.43738, - + 0.08388, 0.04091, 38.19920, 1.50716, 1.37235, - + 1.08088, 1.43983, 1.50716 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + 0.06205, 0.02339, 3.46064, 0.14821, 0.01849, - + 0.00000, 0.08335, 0.14821, - + 0.06451, 0.02542, 5.51269, 0.21294, 0.08240, - + 0.00000, 0.14767, 0.21294, - + 0.06677, 0.02727, 7.59007, 0.28088, 0.14963, - + 0.00000, 0.21527, 0.28088, - + 0.06885, 0.02897, 9.68558, 0.35168, 0.21980, - + 0.00000, 0.28577, 0.35168, - + 0.07078, 0.03055, 11.71840, 0.42281, 0.29036, - + 0.00408, 0.35662, 0.42281, - + 0.07261, 0.03202, 13.70769, 0.49464, 0.36168, - + 0.04752, 0.42820, 0.49464, - + 0.07433, 0.03342, 15.64750, 0.56692, 0.43349, - + 0.12909, 0.50025, 0.56692 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ - + 0.07597, 0.03474, 17.53214, 0.63932, 0.50545, - + 0.20391, 0.57243, 0.63932, - + 0.07754, 0.03600, 19.35939, 0.71153, 0.57726, - + 0.27946, 0.64444, 0.71153, - + 0.07904, 0.03720, 21.09874, 0.78243, 0.64778, - + 0.35328, 0.71515, 0.78243, - + 0.08048, 0.03835, 22.77890, 0.85269, 0.71769, - + 0.42631, 0.78525, 0.85269, - + 0.08186, 0.03945, 24.40553, 0.92239, 0.78707, - + 0.49863, 0.85479, 0.92239, - + 0.08320, 0.04050, 25.97391, 0.99126, 0.85564, - + 0.56996, 0.92351, 0.99126, - + 0.08448, 0.04152, 27.45506, 1.05815, 0.92224, - + 0.63919, 0.99025, 1.05815 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ - + 0.08573, 0.04250, 28.90048, 1.12468, 0.98850, - + 0.70793, 1.05665, 1.12468, - + 0.08693, 0.04344, 30.27596, 1.18956, 1.05313, - + 0.77493, 1.12141, 1.18956, - + 0.08809, 0.04435, 31.59718, 1.25328, 1.11662, - + 0.84067, 1.18501, 1.25328, - + 0.08922, 0.04524, 32.87344, 1.31609, 1.17920, - + 0.90541, 1.24771, 1.31609, - + 0.09032, 0.04609, 34.08525, 1.37716, 1.24006, - + 0.96833, 1.30868, 1.37716 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + 0.07640, 0.03594, 3.34746, 0.15342, 0.01608, - + 0.00000, 0.08475, 0.15342, - + 0.07979, 0.03879, 4.99865, 0.20792, 0.06970, - + 0.00000, 0.13883, 0.20792, - + 0.08288, 0.04136, 6.59860, 0.26329, 0.12432, - + 0.00000, 0.19384, 0.26329, - + 0.08572, 0.04371, 8.15442, 0.31936, 0.17973, - + 0.00000, 0.24959, 0.31936, - + 0.08836, 0.04587, 9.61668, 0.37438, 0.23418, - + 0.00314, 0.30433, 0.37438, - + 0.09083, 0.04788, 11.00886, 0.42879, 0.28808, - + 0.03609, 0.35849, 0.42879, - + 0.09317, 0.04976, 12.33345, 0.48252, 0.34135, - + 0.09734, 0.41200, 0.48252 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ - + 0.09538, 0.05154, 13.59177, 0.53544, 0.39386, - + 0.15248, 0.46472, 0.53544, - + 0.09749, 0.05323, 14.78690, 0.58741, 0.44546, - + 0.20735, 0.51651, 0.58741, - + 0.09950, 0.05481, 15.90138, 0.63770, 0.49541, - + 0.26021, 0.56663, 0.63770, - + 0.10142, 0.05633, 16.95880, 0.68689, 0.54430, - + 0.31183, 0.61567, 0.68689, - + 0.10327, 0.05778, 17.96573, 0.73509, 0.59222, - + 0.36234, 0.66374, 0.73509, - + 0.10504, 0.05916, 18.92113, 0.78217, 0.63905, - + 0.41160, 0.71070, 0.78217, - + 0.10675, 0.06047, 19.80765, 0.82737, 0.68402, - + 0.45887, 0.75578, 0.82737 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ - + 0.10839, 0.06174, 20.66154, 0.87190, 0.72833, - + 0.50537, 0.80021, 0.87190, - + 0.10998, 0.06296, 21.46149, 0.91488, 0.77111, - + 0.55023, 0.84309, 0.91488, - + 0.11151, 0.06413, 22.21918, 0.95670, 0.81275, - + 0.59385, 0.88482, 0.95670, - + 0.11299, 0.06527, 22.94193, 0.99757, 0.85345, - + 0.63644, 0.92560, 0.99757, - + 0.11443, 0.06635, 23.61795, 1.03694, 0.89267, - + 0.67747, 0.96490, 1.03694 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + 0.09672, 0.05523, 3.21931, 0.16103, 0.01368, - + 0.00001, 0.08735, 0.16103, - + 0.10147, 0.05910, 4.49238, 0.20579, 0.05767, - + 0.00001, 0.13175, 0.20579, - + 0.10577, 0.06255, 5.66821, 0.24966, 0.10091, - + 0.00001, 0.17531, 0.24966, - + 0.10970, 0.06568, 6.76590, 0.29271, 0.14343, - + 0.00001, 0.21811, 0.29271, - + 0.11334, 0.06851, 7.76049, 0.33388, 0.18418, - + 0.00237, 0.25907, 0.33388, - + 0.11671, 0.07113, 8.67746, 0.37365, 0.22359, - + 0.02661, 0.29867, 0.37365, - + 0.11988, 0.07356, 9.52601, 0.41211, 0.26176, - + 0.07120, 0.33700, 0.41211 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ - + 0.12288, 0.07584, 10.31033, 0.44929, 0.29868, - + 0.11054, 0.37405, 0.44929, - + 0.12572, 0.07798, 11.03771, 0.48517, 0.33435, - + 0.14904, 0.40983, 0.48517, - + 0.12841, 0.07998, 11.69819, 0.51929, 0.36831, - + 0.18554, 0.44388, 0.51929, - + 0.13096, 0.08188, 12.31124, 0.55219, 0.40106, - + 0.22068, 0.47670, 0.55219, - + 0.13341, 0.08367, 12.88351, 0.58399, 0.43274, - + 0.25462, 0.50844, 0.58399, - + 0.13576, 0.08538, 13.41623, 0.61465, 0.46331, - + 0.28729, 0.53906, 0.61465, - + 0.13799, 0.08700, 13.89722, 0.64368, 0.49227, - + 0.31826, 0.56806, 0.64368 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ - + 0.14014, 0.08855, 14.35325, 0.67197, 0.52049, - + 0.34839, 0.59631, 0.67197, - + 0.14220, 0.09003, 14.77248, 0.69893, 0.54741, - + 0.37712, 0.62326, 0.69893, - + 0.14418, 0.09144, 15.16176, 0.72489, 0.57335, - + 0.40478, 0.64920, 0.72489, - + 0.14610, 0.09280, 15.52645, 0.75001, 0.59845, - + 0.43152, 0.67432, 0.75001, - + 0.14794, 0.09410, 15.86043, 0.77393, 0.62238, - + 0.45701, 0.69824, 0.77393 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + 0.11288, 0.07096, 3.13232, 0.16637, 0.01227, - + 0.00000, 0.08932, 0.16637, - + 0.11868, 0.07548, 4.19566, 0.20554, 0.05088, - + 0.00000, 0.12822, 0.20554, - + 0.12390, 0.07946, 5.14773, 0.24306, 0.08800, - + 0.00001, 0.16556, 0.24306, - + 0.12866, 0.08305, 6.01318, 0.27917, 0.12380, - + 0.00002, 0.20153, 0.27917, - + 0.13301, 0.08628, 6.77825, 0.31313, 0.15755, - + 0.00197, 0.23539, 0.31313, - + 0.13705, 0.08924, 7.46987, 0.34545, 0.18971, - + 0.02187, 0.26764, 0.34545, - + 0.14080, 0.09198, 8.09556, 0.37630, 0.22047, - + 0.05824, 0.29844, 0.37630 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ - + 0.14435, 0.09451, 8.66505, 0.40574, 0.24985, - + 0.08990, 0.32785, 0.40574, - + 0.14769, 0.09689, 9.18227, 0.43379, 0.27789, - + 0.12053, 0.35591, 0.43379, - + 0.15084, 0.09910, 9.64342, 0.46025, 0.30435, - + 0.14934, 0.38236, 0.46025, - + 0.15382, 0.10119, 10.06437, 0.48547, 0.32962, - + 0.17681, 0.40762, 0.48547, - + 0.15667, 0.10316, 10.45148, 0.50962, 0.35383, - + 0.20308, 0.43180, 0.50962, - + 0.15939, 0.10502, 10.80655, 0.53268, 0.37697, - + 0.22816, 0.45491, 0.53268, - + 0.16195, 0.10677, 11.12072, 0.55435, 0.39874, - + 0.25176, 0.47662, 0.55435 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ - + 0.16442, 0.10844, 11.41458, 0.57530, 0.41980, - + 0.27457, 0.49763, 0.57530, - + 0.16679, 0.11002, 11.67926, 0.59511, 0.43973, - + 0.29615, 0.51750, 0.59511, - + 0.16905, 0.11153, 11.92194, 0.61403, 0.45878, - + 0.31677, 0.53648, 0.61403, - + 0.17124, 0.11298, 12.14672, 0.63220, 0.47709, - + 0.33658, 0.55472, 0.63220, - + 0.17333, 0.11436, 12.34799, 0.64937, 0.49441, - + 0.35534, 0.57197, 0.64937 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + 0.12721, 0.08466, 3.06254, 0.17044, 0.01127, - + 0.00001, 0.09086, 0.17044, - + 0.13387, 0.08963, 3.98219, 0.20564, 0.04619, - + 0.00000, 0.12593, 0.20564, - + 0.13984, 0.09397, 4.78631, 0.23880, 0.07919, - + 0.00001, 0.15902, 0.23880, - + 0.14525, 0.09786, 5.50219, 0.27024, 0.11056, - + 0.00002, 0.19043, 0.27024, - + 0.15017, 0.10133, 6.12281, 0.29942, 0.13977, - + 0.00171, 0.21964, 0.29942, - + 0.15472, 0.10450, 6.67424, 0.32688, 0.16729, - + 0.01884, 0.24714, 0.32688, - + 0.15892, 0.10741, 7.16491, 0.35282, 0.19335, - + 0.04997, 0.27313, 0.35282 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ - + 0.16289, 0.11009, 7.60462, 0.37732, 0.21801, - + 0.07681, 0.29772, 0.37732, - + 0.16661, 0.11259, 7.99792, 0.40048, 0.24135, - + 0.10257, 0.32097, 0.40048, - + 0.17009, 0.11491, 8.34277, 0.42212, 0.26319, - + 0.12662, 0.34271, 0.42212, - + 0.17339, 0.11708, 8.65298, 0.44259, 0.28389, - + 0.14937, 0.36330, 0.44259, - + 0.17652, 0.11912, 8.93436, 0.46205, 0.30359, - + 0.17100, 0.38288, 0.46205, - + 0.17950, 0.12104, 9.18883, 0.48050, 0.32229, - + 0.19152, 0.40146, 0.48050, - + 0.18231, 0.12284, 9.40956, 0.49770, 0.33975, - + 0.21070, 0.41880, 0.49770 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ - + 0.18500, 0.12455, 9.61360, 0.51423, 0.35656, - + 0.22914, 0.43547, 0.51423, - + 0.18757, 0.12617, 9.79406, 0.52976, 0.37237, - + 0.24649, 0.45114, 0.52976, - + 0.19002, 0.12771, 9.95690, 0.54450, 0.38739, - + 0.26298, 0.46602, 0.54450, - + 0.19238, 0.12917, 10.10555, 0.55858, 0.40175, - + 0.27874, 0.48024, 0.55858, - + 0.19463, 0.13056, 10.23571, 0.57180, 0.41526, - + 0.29359, 0.49360, 0.57180 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + 0.14038, 0.09698, 3.00260, 0.17358, 0.01050, - + 0.00002, 0.09204, 0.17358, - + 0.14780, 0.10224, 3.81398, 0.20568, 0.04261, - + 0.00001, 0.12416, 0.20568, - + 0.15436, 0.10684, 4.50970, 0.23552, 0.07255, - + 0.00002, 0.15405, 0.23552, - + 0.16031, 0.11091, 5.11817, 0.26345, 0.10068, - + 0.00003, 0.18209, 0.26345, - + 0.16567, 0.11454, 5.63711, 0.28912, 0.12660, - + 0.00154, 0.20790, 0.28912, - + 0.17062, 0.11783, 6.09092, 0.31302, 0.15081, - + 0.01668, 0.23196, 0.31302, - + 0.17521, 0.12082, 6.48981, 0.33541, 0.17352, - + 0.04408, 0.25452, 0.33541 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ - + 0.17949, 0.12357, 6.84049, 0.35641, 0.19486, - + 0.06753, 0.27568, 0.35641, - + 0.18348, 0.12614, 7.15050, 0.37609, 0.21492, - + 0.08989, 0.29555, 0.37609, - + 0.18723, 0.12848, 7.41871, 0.39433, 0.23356, - + 0.11060, 0.31399, 0.39433, - + 0.19076, 0.13069, 7.65586, 0.41147, 0.25111, - + 0.13010, 0.33134, 0.41147, - + 0.19410, 0.13275, 7.86800, 0.42766, 0.26771, - + 0.14854, 0.34774, 0.42766, - + 0.19728, 0.13468, 8.05751, 0.44294, 0.28342, - + 0.16596, 0.36324, 0.44294, - + 0.20026, 0.13647, 8.21889, 0.45706, 0.29795, - + 0.18213, 0.37757, 0.45706 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ - + 0.20312, 0.13817, 8.36630, 0.47057, 0.31188, - + 0.19760, 0.39128, 0.47057, - + 0.20583, 0.13977, 8.49387, 0.48320, 0.32494, - + 0.21211, 0.40412, 0.48320, - + 0.20841, 0.14129, 8.60662, 0.49511, 0.33727, - + 0.22583, 0.41625, 0.49511, - + 0.21088, 0.14273, 8.70760, 0.50642, 0.34901, - + 0.23889, 0.42779, 0.50642, - + 0.21324, 0.14409, 8.79360, 0.51698, 0.36000, - + 0.25115, 0.43856, 0.51698 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + 0.19755, 0.14628, 2.76721, 0.18116, 0.00807, - + 0.00000, 0.09461, 0.18116, - + 0.20734, 0.15198, 3.26343, 0.20340, 0.03178, - + 0.00000, 0.11759, 0.20340, - + 0.21590, 0.15677, 3.65800, 0.22306, 0.05290, - + 0.00002, 0.13799, 0.22306, - + 0.22341, 0.16094, 3.97958, 0.24068, 0.07193, - + 0.00003, 0.15634, 0.24068, - + 0.23013, 0.16455, 4.23566, 0.25625, 0.08887, - + 0.00101, 0.17258, 0.25625, - + 0.23618, 0.16774, 4.44390, 0.27023, 0.10419, - + 0.01083, 0.18723, 0.27023, - + 0.24169, 0.17058, 4.61561, 0.28288, 0.11813, - + 0.02833, 0.20054, 0.28288 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ - + 0.24676, 0.17313, 4.75545, 0.29438, 0.13090, - + 0.04289, 0.21267, 0.29438, - + 0.25148, 0.17542, 4.87193, 0.30486, 0.14261, - + 0.05649, 0.22377, 0.30486, - + 0.25572, 0.17753, 4.96143, 0.31427, 0.15320, - + 0.06881, 0.23376, 0.31427, - + 0.25972, 0.17941, 5.03492, 0.32286, 0.16295, - + 0.08017, 0.24294, 0.32286, - + 0.26347, 0.18114, 5.09485, 0.33077, 0.17198, - + 0.09071, 0.25141, 0.33077, - + 0.26695, 0.18275, 5.14215, 0.33802, 0.18033, - + 0.10047, 0.25921, 0.33802, - + 0.27021, 0.18418, 5.17558, 0.34452, 0.18791, - + 0.10938, 0.26626, 0.34452 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ - + 0.27330, 0.18552, 5.20275, 0.35062, 0.19505, - + 0.11777, 0.27288, 0.35062, - + 0.27617, 0.18675, 5.22071, 0.35616, 0.20161, - + 0.12551, 0.27893, 0.35616, - + 0.27885, 0.18790, 5.23209, 0.36125, 0.20769, - + 0.13271, 0.28451, 0.36125, - + 0.28138, 0.18897, 5.23857, 0.36597, 0.21337, - + 0.13946, 0.28972, 0.36597, - + 0.28379, 0.18995, 5.23830, 0.37023, 0.21857, - + 0.14568, 0.29445, 0.37023 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + 0.29190, 0.21286, 2.41679, 0.17758, 0.00558, - + -0.00012, 0.09153, 0.17758, - + 0.30296, 0.21710, 2.63960, 0.18955, 0.02145, - + -0.00010, 0.10548, 0.18955, - + 0.31219, 0.22043, 2.79302, 0.19939, 0.03483, - + -0.00011, 0.11707, 0.19939, - + 0.32011, 0.22308, 2.90087, 0.20761, 0.04629, - + -0.00010, 0.12694, 0.20761, - + 0.32694, 0.22515, 2.97062, 0.21441, 0.05609, - + 0.00049, 0.13520, 0.21441, - + 0.33287, 0.22685, 3.01607, 0.22011, 0.06460, - + 0.00619, 0.14232, 0.22011, - + 0.33810, 0.22824, 3.04291, 0.22495, 0.07204, - + 0.01613, 0.14848, 0.22495 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ - + 0.34272, 0.22940, 3.05549, 0.22907, 0.07860, - + 0.02414, 0.15384, 0.22907, - + 0.34687, 0.23036, 3.05751, 0.23259, 0.08444, - + 0.03143, 0.15849, 0.23259, - + 0.35053, 0.23111, 3.04944, 0.23551, 0.08957, - + 0.03787, 0.16252, 0.23551, - + 0.35386, 0.23166, 3.03514, 0.23796, 0.09411, - + 0.04364, 0.16603, 0.23796, - + 0.35689, 0.23209, 3.01668, 0.24005, 0.09820, - + 0.04885, 0.16912, 0.24005, - + 0.35964, 0.23245, 2.99490, 0.24181, 0.10190, - + 0.05357, 0.17184, 0.24181, - + 0.36202, 0.23270, 2.96853, 0.24321, 0.10510, - + 0.05779, 0.17413, 0.24321 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ - + 0.36422, 0.23289, 2.94133, 0.24444, 0.10805, - + 0.06169, 0.17620, 0.24444, - + 0.36624, 0.23299, 2.91178, 0.24539, 0.11067, - + 0.06520, 0.17800, 0.24539, - + 0.36807, 0.23302, 2.88120, 0.24617, 0.11303, - + 0.06840, 0.17957, 0.24617, - + 0.36974, 0.23299, 2.85024, 0.24681, 0.11518, - + 0.07136, 0.18096, 0.24681, - + 0.37127, 0.23290, 2.81809, 0.24721, 0.11708, - + 0.07401, 0.18211, 0.24721 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + 0.37025, 0.25586, 2.13329, 0.16380, 0.00425, - + 0.00001, 0.08404, 0.16380, - + 0.38007, 0.25749, 2.22498, 0.17000, 0.01592, - + 0.00004, 0.09297, 0.17000, - + 0.38785, 0.25847, 2.27134, 0.17462, 0.02538, - + 0.00000, 0.10001, 0.17462, - + 0.39423, 0.25892, 2.29030, 0.17820, 0.03320, - + 0.00006, 0.10573, 0.17820, - + 0.39942, 0.25899, 2.28806, 0.18073, 0.03969, - + 0.00041, 0.11024, 0.18073, - + 0.40370, 0.25880, 2.27386, 0.18262, 0.04520, - + 0.00426, 0.11394, 0.18262, - + 0.40730, 0.25842, 2.25092, 0.18398, 0.04986, - + 0.01079, 0.11693, 0.18398 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ - + 0.41034, 0.25787, 2.22219, 0.18493, 0.05389, - + 0.01602, 0.11941, 0.18493, - + 0.41293, 0.25716, 2.18971, 0.18554, 0.05728, - + 0.02060, 0.12144, 0.18554, - + 0.41501, 0.25639, 2.15360, 0.18579, 0.06024, - + 0.02461, 0.12302, 0.18579, - + 0.41671, 0.25557, 2.11617, 0.18582, 0.06281, - + 0.02813, 0.12434, 0.18582, - + 0.41818, 0.25469, 2.07845, 0.18567, 0.06506, - + 0.03126, 0.12541, 0.18567, - + 0.41947, 0.25372, 2.04072, 0.18539, 0.06701, - + 0.03403, 0.12624, 0.18539, - + 0.42038, 0.25274, 2.00225, 0.18494, 0.06868, - + 0.03650, 0.12684, 0.18494 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ - + 0.42117, 0.25174, 1.96497, 0.18442, 0.07017, - + 0.03874, 0.12732, 0.18442, - + 0.42180, 0.25068, 1.92783, 0.18378, 0.07146, - + 0.04071, 0.12763, 0.18378, - + 0.42224, 0.24964, 1.89143, 0.18306, 0.07255, - + 0.04245, 0.12782, 0.18306, - + 0.42256, 0.24863, 1.85607, 0.18230, 0.07349, - + 0.04400, 0.12792, 0.18230, - + 0.42275, 0.24755, 1.82130, 0.18146, 0.07432, - + 0.04543, 0.12792, 0.18146 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + 0.43578, 0.28378, 1.88804, 0.14623, 0.00340, - + 0.00005, 0.07484, 0.14623, - + 0.44281, 0.28259, 1.90397, 0.14887, 0.01222, - + 0.00005, 0.08057, 0.14887, - + 0.44791, 0.28102, 1.89252, 0.15039, 0.01928, - + 0.00008, 0.08485, 0.15039, - + 0.45179, 0.27917, 1.86632, 0.15122, 0.02493, - + 0.00006, 0.08811, 0.15122, - + 0.45447, 0.27724, 1.82986, 0.15145, 0.02949, - + 0.00037, 0.09050, 0.15145, - + 0.45647, 0.27511, 1.78863, 0.15128, 0.03323, - + 0.00302, 0.09232, 0.15128, - + 0.45782, 0.27300, 1.74493, 0.15085, 0.03636, - + 0.00767, 0.09366, 0.15085 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ - + 0.45866, 0.27088, 1.70028, 0.15018, 0.03897, - + 0.01128, 0.09464, 0.15018, - + 0.45918, 0.26875, 1.65555, 0.14935, 0.04119, - + 0.01441, 0.09532, 0.14935, - + 0.45935, 0.26652, 1.61059, 0.14836, 0.04304, - + 0.01715, 0.09577, 0.14836, - + 0.45913, 0.26440, 1.56698, 0.14729, 0.04457, - + 0.01949, 0.09600, 0.14729, - + 0.45873, 0.26233, 1.52497, 0.14617, 0.04588, - + 0.02154, 0.09608, 0.14617, - + 0.45825, 0.26025, 1.48447, 0.14499, 0.04699, - + 0.02334, 0.09603, 0.14499, - + 0.45748, 0.25819, 1.44486, 0.14374, 0.04789, - + 0.02484, 0.09587, 0.14374 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ - + 0.45664, 0.25619, 1.40732, 0.14249, 0.04867, - + 0.02619, 0.09565, 0.14249, - + 0.45568, 0.25422, 1.37106, 0.14121, 0.04932, - + 0.02739, 0.09533, 0.14121, - + 0.45467, 0.25224, 1.33636, 0.13993, 0.04985, - + 0.02845, 0.09495, 0.13993, - + 0.45361, 0.25029, 1.30328, 0.13868, 0.05028, - + 0.02939, 0.09453, 0.13868, - + 0.45240, 0.24840, 1.27136, 0.13739, 0.05065, - + 0.03024, 0.09407, 0.13739 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + 0.48966, 0.30083, 1.67097, 0.12773, 0.00269, - + 0.00004, 0.06524, 0.12773, - + 0.49307, 0.29682, 1.64066, 0.12809, 0.00961, - + 0.00008, 0.06887, 0.12809, - + 0.49487, 0.29281, 1.59580, 0.12772, 0.01494, - + 0.00006, 0.07134, 0.12772, - + 0.49551, 0.28890, 1.54534, 0.12700, 0.01913, - + 0.00004, 0.07306, 0.12700, - + 0.49544, 0.28497, 1.49179, 0.12594, 0.02237, - + 0.00027, 0.07423, 0.12594, - + 0.49466, 0.28124, 1.43847, 0.12468, 0.02504, - + 0.00231, 0.07491, 0.12468, - + 0.49349, 0.27757, 1.38653, 0.12329, 0.02720, - + 0.00571, 0.07530, 0.12329 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ - + 0.49199, 0.27400, 1.33632, 0.12181, 0.02901, - + 0.00826, 0.07542, 0.12181, - + 0.49024, 0.27059, 1.28828, 0.12030, 0.03046, - + 0.01041, 0.07540, 0.12030, - + 0.48829, 0.26723, 1.24211, 0.11872, 0.03162, - + 0.01227, 0.07517, 0.11872, - + 0.48610, 0.26402, 1.19847, 0.11717, 0.03255, - + 0.01389, 0.07486, 0.11717, - + 0.48383, 0.26093, 1.15737, 0.11562, 0.03334, - + 0.01528, 0.07450, 0.11562, - + 0.48152, 0.25791, 1.11860, 0.11409, 0.03402, - + 0.01647, 0.07408, 0.11409, - + 0.47916, 0.25491, 1.08153, 0.11253, 0.03453, - + 0.01752, 0.07355, 0.11253 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ - + 0.47677, 0.25205, 1.04685, 0.11103, 0.03496, - + 0.01844, 0.07300, 0.11103, - + 0.47421, 0.24933, 1.01394, 0.10955, 0.03530, - + 0.01918, 0.07242, 0.10955, - + 0.47169, 0.24667, 0.98286, 0.10809, 0.03556, - + 0.01985, 0.07182, 0.10809, - + 0.46923, 0.24408, 0.95356, 0.10667, 0.03574, - + 0.02045, 0.07121, 0.10667, - + 0.46669, 0.24158, 0.92566, 0.10526, 0.03587, - + 0.02096, 0.07058, 0.10526 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + 0.54223, 0.31033, 1.43274, 0.10537, 0.00202, - + 0.00008, 0.05374, 0.10537, - + 0.54026, 0.30321, 1.36843, 0.10410, 0.00718, - + 0.00005, 0.05569, 0.10410, - + 0.53738, 0.29641, 1.30134, 0.10248, 0.01106, - + 0.00009, 0.05683, 0.10248, - + 0.53384, 0.29017, 1.23647, 0.10072, 0.01402, - + 0.00004, 0.05741, 0.10072, - + 0.52986, 0.28426, 1.17418, 0.09884, 0.01633, - + 0.00021, 0.05762, 0.09884, - + 0.52567, 0.27870, 1.11605, 0.09696, 0.01808, - + 0.00162, 0.05758, 0.09696, - + 0.52134, 0.27338, 1.06188, 0.09508, 0.01947, - + 0.00396, 0.05733, 0.09508 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ - + 0.51683, 0.26840, 1.01153, 0.09325, 0.02056, - + 0.00574, 0.05698, 0.09325, - + 0.51229, 0.26375, 0.96494, 0.09141, 0.02151, - + 0.00725, 0.05647, 0.09141, - + 0.50768, 0.25922, 0.92139, 0.08965, 0.02214, - + 0.00846, 0.05592, 0.08965, - + 0.50312, 0.25494, 0.88111, 0.08790, 0.02268, - + 0.00949, 0.05534, 0.08790, - + 0.49867, 0.25084, 0.84386, 0.08621, 0.02312, - + 0.01040, 0.05473, 0.08621, - + 0.49432, 0.24685, 0.80928, 0.08459, 0.02345, - + 0.01121, 0.05413, 0.08459, - + 0.48987, 0.24315, 0.77692, 0.08300, 0.02369, - + 0.01183, 0.05344, 0.08300 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ - + 0.48555, 0.23961, 0.74701, 0.08148, 0.02389, - + 0.01236, 0.05276, 0.08148, - + 0.48128, 0.23613, 0.71902, 0.08003, 0.02401, - + 0.01282, 0.05207, 0.08003, - + 0.47710, 0.23281, 0.69289, 0.07860, 0.02409, - + 0.01320, 0.05142, 0.07860, - + 0.47303, 0.22967, 0.66848, 0.07720, 0.02415, - + 0.01354, 0.05081, 0.07720, - + 0.46901, 0.22658, 0.64552, 0.07587, 0.02416, - + 0.01383, 0.05017, 0.07587 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + 0.57955, 0.30997, 1.22539, 0.08511, 0.00166, - + 0.00015, 0.04345, 0.08511, - + 0.57208, 0.30013, 1.14330, 0.08308, 0.00551, - + 0.00018, 0.04433, 0.08308, - + 0.56428, 0.29120, 1.06655, 0.08093, 0.00833, - + 0.00018, 0.04469, 0.08093, - + 0.55653, 0.28303, 0.99682, 0.07878, 0.01047, - + 0.00017, 0.04467, 0.07878, - + 0.54878, 0.27551, 0.93335, 0.07669, 0.01198, - + 0.00024, 0.04439, 0.07669, - + 0.54117, 0.26855, 0.87603, 0.07466, 0.01318, - + 0.00127, 0.04398, 0.07466, - + 0.53361, 0.26221, 0.82423, 0.07269, 0.01411, - + 0.00292, 0.04345, 0.07269 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ - + 0.52635, 0.25618, 0.77728, 0.07078, 0.01484, - + 0.00413, 0.04288, 0.07078, - + 0.51937, 0.25040, 0.73454, 0.06897, 0.01539, - + 0.00511, 0.04228, 0.06897, - + 0.51238, 0.24507, 0.69551, 0.06724, 0.01581, - + 0.00600, 0.04160, 0.06724, - + 0.50563, 0.24007, 0.65999, 0.06558, 0.01613, - + 0.00669, 0.04092, 0.06558, - + 0.49915, 0.23532, 0.62757, 0.06400, 0.01635, - + 0.00727, 0.04026, 0.06400, - + 0.49295, 0.23077, 0.59784, 0.06250, 0.01648, - + 0.00776, 0.03963, 0.06250, - + 0.48684, 0.22642, 0.57034, 0.06104, 0.01659, - + 0.00813, 0.03897, 0.06104 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ - + 0.48092, 0.22235, 0.54514, 0.05968, 0.01667, - + 0.00847, 0.03831, 0.05968, - + 0.47504, 0.21854, 0.52181, 0.05839, 0.01669, - + 0.00882, 0.03764, 0.05839, - + 0.46945, 0.21482, 0.50028, 0.05715, 0.01667, - + 0.00908, 0.03699, 0.05715, - + 0.46413, 0.21122, 0.48036, 0.05597, 0.01663, - + 0.00929, 0.03638, 0.05597, - + 0.45886, 0.20781, 0.46183, 0.05483, 0.01657, - + 0.00943, 0.03577, 0.05483 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + 0.60289, 0.30265, 1.04424, 0.06760, 0.00122, - + 0.00002, 0.03439, 0.06760, - + 0.59001, 0.29057, 0.95472, 0.06526, 0.00414, - + 0.00002, 0.03477, 0.06526, - + 0.57767, 0.27976, 0.87555, 0.06298, 0.00628, - + 0.00002, 0.03468, 0.06298, - + 0.56584, 0.27024, 0.80645, 0.06080, 0.00783, - + 0.00006, 0.03439, 0.06080, - + 0.55466, 0.26145, 0.74555, 0.05872, 0.00896, - + 0.00010, 0.03392, 0.05872, - + 0.54386, 0.25357, 0.69209, 0.05679, 0.00976, - + 0.00086, 0.03337, 0.05679, - + 0.53370, 0.24629, 0.64459, 0.05489, 0.01040, - + 0.00209, 0.03284, 0.05489 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ - + 0.52398, 0.23947, 0.60224, 0.05318, 0.01089, - + 0.00298, 0.03216, 0.05318, - + 0.51460, 0.23321, 0.56446, 0.05153, 0.01124, - + 0.00378, 0.03157, 0.05153, - + 0.50568, 0.22723, 0.53036, 0.05001, 0.01144, - + 0.00435, 0.03088, 0.05001, - + 0.49708, 0.22169, 0.49968, 0.04858, 0.01162, - + 0.00476, 0.03020, 0.04858, - + 0.48892, 0.21648, 0.47204, 0.04720, 0.01176, - + 0.00514, 0.02956, 0.04720, - + 0.48122, 0.21155, 0.44704, 0.04585, 0.01188, - + 0.00556, 0.02899, 0.04585, - + 0.47356, 0.20700, 0.42403, 0.04462, 0.01190, - + 0.00578, 0.02838, 0.04462 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ - + 0.46631, 0.20267, 0.40315, 0.04348, 0.01189, - + 0.00597, 0.02779, 0.04348, - + 0.45945, 0.19842, 0.38413, 0.04239, 0.01185, - + 0.00614, 0.02721, 0.04239, - + 0.45275, 0.19448, 0.36660, 0.04134, 0.01180, - + 0.00632, 0.02667, 0.04134, - + 0.44625, 0.19081, 0.35043, 0.04034, 0.01174, - + 0.00648, 0.02615, 0.04034, - + 0.44001, 0.18723, 0.33541, 0.03938, 0.01168, - + 0.00656, 0.02564, 0.03938 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + 0.61410, 0.28979, 0.88667, 0.05279, 0.00092, - + 0.00004, 0.02687, 0.05279, - + 0.59604, 0.27621, 0.79580, 0.05049, 0.00316, - + -0.00001, 0.02690, 0.05049, - + 0.57944, 0.26417, 0.71873, 0.04839, 0.00468, - + 0.00004, 0.02655, 0.04839, - + 0.56405, 0.25361, 0.65336, 0.04632, 0.00579, - + 0.00003, 0.02625, 0.04632, - + 0.54975, 0.24410, 0.59711, 0.04450, 0.00659, - + 0.00017, 0.02561, 0.04450, - + 0.53630, 0.23556, 0.54858, 0.04275, 0.00717, - + 0.00074, 0.02507, 0.04275, - + 0.52367, 0.22775, 0.50632, 0.04117, 0.00758, - + 0.00148, 0.02444, 0.04117 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ - + 0.51187, 0.22050, 0.46921, 0.03970, 0.00788, - + 0.00222, 0.02382, 0.03970, - + 0.50079, 0.21372, 0.43637, 0.03831, 0.00812, - + 0.00275, 0.02322, 0.03831, - + 0.49012, 0.20756, 0.40718, 0.03696, 0.00828, - + 0.00307, 0.02267, 0.03696, - + 0.48003, 0.20183, 0.38122, 0.03572, 0.00839, - + 0.00337, 0.02210, 0.03572, - + 0.47048, 0.19649, 0.35804, 0.03457, 0.00845, - + 0.00362, 0.02155, 0.03457, - + 0.46141, 0.19150, 0.33722, 0.03348, 0.00848, - + 0.00382, 0.02104, 0.03348, - + 0.45269, 0.18678, 0.31828, 0.03250, 0.00842, - + 0.00401, 0.02050, 0.03250 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ - + 0.44446, 0.18233, 0.30117, 0.03157, 0.00837, - + 0.00418, 0.02000, 0.03157, - + 0.43664, 0.17805, 0.28558, 0.03066, 0.00835, - + 0.00434, 0.01954, 0.03066, - + 0.42911, 0.17405, 0.27139, 0.02981, 0.00829, - + 0.00442, 0.01909, 0.02981, - + 0.42187, 0.17031, 0.25841, 0.02902, 0.00821, - + 0.00445, 0.01865, 0.02902, - + 0.41501, 0.16668, 0.24646, 0.02825, 0.00815, - + 0.00449, 0.01823, 0.02825 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + 0.61433, 0.27330, 0.74950, 0.04060, 0.00064, - + 0.00002, 0.02066, 0.04060, - + 0.59178, 0.25855, 0.66159, 0.03854, 0.00235, - + 0.00009, 0.02053, 0.03854, - + 0.57142, 0.24576, 0.58906, 0.03662, 0.00352, - + 0.00010, 0.02018, 0.03662, - + 0.55273, 0.23478, 0.52903, 0.03494, 0.00429, - + 0.00005, 0.01965, 0.03494, - + 0.53602, 0.22461, 0.47855, 0.03333, 0.00487, - + 0.00011, 0.01917, 0.03333, - + 0.52055, 0.21555, 0.43557, 0.03187, 0.00526, - + 0.00051, 0.01862, 0.03187, - + 0.50593, 0.20758, 0.39844, 0.03051, 0.00558, - + 0.00115, 0.01807, 0.03051 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ - + 0.49243, 0.20017, 0.36642, 0.02924, 0.00585, - + 0.00166, 0.01753, 0.02924, - + 0.47991, 0.19326, 0.33847, 0.02810, 0.00596, - + 0.00194, 0.01700, 0.02810, - + 0.46779, 0.18721, 0.31374, 0.02702, 0.00599, - + 0.00222, 0.01656, 0.02702, - + 0.45658, 0.18141, 0.29198, 0.02603, 0.00603, - + 0.00243, 0.01610, 0.02603, - + 0.44611, 0.17597, 0.27271, 0.02511, 0.00607, - + 0.00260, 0.01563, 0.02511, - + 0.43622, 0.17090, 0.25553, 0.02426, 0.00612, - + 0.00276, 0.01515, 0.02426, - + 0.42664, 0.16623, 0.24001, 0.02348, 0.00605, - + 0.00286, 0.01473, 0.02348 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ - + 0.41767, 0.16185, 0.22608, 0.02274, 0.00597, - + 0.00293, 0.01435, 0.02274, - + 0.40929, 0.15764, 0.21352, 0.02202, 0.00588, - + 0.00297, 0.01400, 0.02202, - + 0.40126, 0.15371, 0.20210, 0.02134, 0.00582, - + 0.00300, 0.01364, 0.02134, - + 0.39359, 0.15002, 0.19169, 0.02068, 0.00579, - + 0.00303, 0.01329, 0.02068, - + 0.38620, 0.14655, 0.18220, 0.02010, 0.00573, - + 0.00303, 0.01294, 0.02010 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + 0.60532, 0.25406, 0.63051, 0.03078, 0.00047, - + 0.00016, 0.01566, 0.03078, - + 0.57898, 0.23857, 0.54779, 0.02902, 0.00179, - + 0.00009, 0.01541, 0.02902, - + 0.55534, 0.22556, 0.48134, 0.02737, 0.00270, - + 0.00009, 0.01508, 0.02737, - + 0.53451, 0.21388, 0.42751, 0.02596, 0.00326, - + 0.00001, 0.01459, 0.02596, - + 0.51533, 0.20398, 0.38247, 0.02458, 0.00371, - + 0.00014, 0.01418, 0.02458, - + 0.49796, 0.19494, 0.34504, 0.02336, 0.00403, - + 0.00037, 0.01378, 0.02336, - + 0.48205, 0.18679, 0.31325, 0.02231, 0.00415, - + 0.00087, 0.01331, 0.02231 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ - + 0.46721, 0.17950, 0.28590, 0.02135, 0.00429, - + 0.00115, 0.01282, 0.02135, - + 0.45345, 0.17287, 0.26220, 0.02041, 0.00438, - + 0.00141, 0.01239, 0.02041, - + 0.44063, 0.16667, 0.24169, 0.01955, 0.00446, - + 0.00159, 0.01198, 0.01955, - + 0.42868, 0.16095, 0.22359, 0.01874, 0.00447, - + 0.00170, 0.01165, 0.01874, - + 0.41748, 0.15568, 0.20767, 0.01802, 0.00442, - + 0.00179, 0.01130, 0.01802, - + 0.40690, 0.15083, 0.19362, 0.01741, 0.00434, - + 0.00191, 0.01090, 0.01741, - + 0.39690, 0.14628, 0.18113, 0.01681, 0.00428, - + 0.00201, 0.01054, 0.01681 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ - + 0.38754, 0.14205, 0.16999, 0.01623, 0.00424, - + 0.00209, 0.01023, 0.01623, - + 0.37872, 0.13804, 0.16000, 0.01565, 0.00423, - + 0.00213, 0.00994, 0.01565, - + 0.37042, 0.13429, 0.15095, 0.01510, 0.00419, - + 0.00216, 0.00967, 0.01510, - + 0.36259, 0.13077, 0.14272, 0.01458, 0.00411, - + 0.00219, 0.00941, 0.01458, - + 0.35501, 0.12747, 0.13524, 0.01411, 0.00405, - + 0.00221, 0.00917, 0.01411 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + 0.58858, 0.23307, 0.52773, 0.02286, 0.00046, - + 0.00014, 0.01179, 0.02286, - + 0.55905, 0.21737, 0.45171, 0.02143, 0.00142, - + 0.00011, 0.01150, 0.02143, - + 0.53267, 0.20451, 0.39204, 0.02014, 0.00206, - + 0.00009, 0.01118, 0.02014, - + 0.50988, 0.19294, 0.34386, 0.01901, 0.00244, - + 0.00010, 0.01077, 0.01901, - + 0.48921, 0.18294, 0.30497, 0.01799, 0.00272, - + 0.00003, 0.01039, 0.01799, - + 0.47047, 0.17422, 0.27271, 0.01699, 0.00297, - + 0.00032, 0.01004, 0.01699, - + 0.45342, 0.16638, 0.24571, 0.01612, 0.00307, - + 0.00064, 0.00971, 0.01612 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ - + 0.43775, 0.15926, 0.22258, 0.01539, 0.00315, - + 0.00084, 0.00928, 0.01539, - + 0.42344, 0.15270, 0.20269, 0.01468, 0.00315, - + 0.00099, 0.00896, 0.01468, - + 0.41007, 0.14672, 0.18599, 0.01403, 0.00319, - + 0.00114, 0.00860, 0.01403, - + 0.39753, 0.14135, 0.17136, 0.01343, 0.00318, - + 0.00125, 0.00831, 0.01343, - + 0.38600, 0.13639, 0.15849, 0.01285, 0.00316, - + 0.00132, 0.00802, 0.01285, - + 0.37550, 0.13171, 0.14711, 0.01227, 0.00314, - + 0.00135, 0.00770, 0.01227, - + 0.36515, 0.12740, 0.13694, 0.01183, 0.00311, - + 0.00141, 0.00745, 0.01183 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ - + 0.35551, 0.12337, 0.12789, 0.01142, 0.00308, - + 0.00146, 0.00722, 0.01142, - + 0.34657, 0.11952, 0.11980, 0.01100, 0.00303, - + 0.00148, 0.00700, 0.01100, - + 0.33811, 0.11600, 0.11263, 0.01061, 0.00299, - + 0.00151, 0.00681, 0.01061, - + 0.33010, 0.11275, 0.10623, 0.01024, 0.00296, - + 0.00154, 0.00665, 0.01024, - + 0.32242, 0.10966, 0.10040, 0.00991, 0.00290, - + 0.00153, 0.00645, 0.00991 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + 0.56509, 0.21132, 0.43887, 0.01680, 0.00043, - + 0.00004, 0.00859, 0.01680, - + 0.53288, 0.19599, 0.37038, 0.01564, 0.00112, - + 0.00003, 0.00844, 0.01564, - + 0.50493, 0.18314, 0.31747, 0.01464, 0.00156, - + 0.00002, 0.00816, 0.01464, - + 0.48041, 0.17217, 0.27563, 0.01374, 0.00188, - + 0.00011, 0.00783, 0.01374, - + 0.45883, 0.16239, 0.24224, 0.01293, 0.00207, - + 0.00006, 0.00753, 0.01293, - + 0.43948, 0.15386, 0.21487, 0.01221, 0.00216, - + 0.00019, 0.00722, 0.01221, - + 0.42178, 0.14637, 0.19192, 0.01152, 0.00225, - + 0.00043, 0.00699, 0.01152 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ - + 0.40565, 0.13960, 0.17299, 0.01093, 0.00231, - + 0.00065, 0.00670, 0.01093, - + 0.39091, 0.13345, 0.15662, 0.01042, 0.00232, - + 0.00079, 0.00637, 0.01042, - + 0.37725, 0.12781, 0.14279, 0.00995, 0.00230, - + 0.00085, 0.00613, 0.00995, - + 0.36473, 0.12267, 0.13078, 0.00946, 0.00229, - + 0.00091, 0.00590, 0.00946, - + 0.35314, 0.11798, 0.12031, 0.00900, 0.00229, - + 0.00098, 0.00567, 0.00900, - + 0.34230, 0.11368, 0.11112, 0.00860, 0.00228, - + 0.00106, 0.00546, 0.00860, - + 0.33212, 0.10970, 0.10320, 0.00825, 0.00227, - + 0.00107, 0.00530, 0.00825 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ - + 0.32258, 0.10602, 0.09614, 0.00793, 0.00225, - + 0.00107, 0.00514, 0.00793, - + 0.31350, 0.10258, 0.08973, 0.00762, 0.00221, - + 0.00109, 0.00496, 0.00762, - + 0.30503, 0.09931, 0.08404, 0.00734, 0.00217, - + 0.00110, 0.00481, 0.00734, - + 0.29710, 0.09621, 0.07896, 0.00708, 0.00212, - + 0.00110, 0.00469, 0.00708, - + 0.28971, 0.09333, 0.07438, 0.00680, 0.00210, - + 0.00112, 0.00453, 0.00680 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + 0.53599, 0.19001, 0.36308, 0.01227, 0.00019, - + -0.00010, 0.00614, 0.01227, - + 0.50198, 0.17522, 0.30214, 0.01140, 0.00069, - + -0.00003, 0.00598, 0.01140, - + 0.47297, 0.16271, 0.25599, 0.01059, 0.00107, - + -0.00005, 0.00577, 0.01059, - + 0.44780, 0.15212, 0.22012, 0.00988, 0.00133, - + -0.00008, 0.00553, 0.00988, - + 0.42563, 0.14289, 0.19174, 0.00921, 0.00144, - + -0.00004, 0.00541, 0.00921, - + 0.40582, 0.13488, 0.16870, 0.00867, 0.00158, - + 0.00004, 0.00513, 0.00867, - + 0.38779, 0.12785, 0.14980, 0.00823, 0.00159, - + 0.00023, 0.00491, 0.00823 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ - + 0.37181, 0.12139, 0.13409, 0.00777, 0.00163, - + 0.00039, 0.00465, 0.00777, - + 0.35708, 0.11575, 0.12072, 0.00734, 0.00162, - + 0.00043, 0.00443, 0.00734, - + 0.34344, 0.11055, 0.10955, 0.00697, 0.00162, - + 0.00055, 0.00430, 0.00697, - + 0.33094, 0.10576, 0.09990, 0.00664, 0.00165, - + 0.00058, 0.00414, 0.00664, - + 0.31945, 0.10138, 0.09151, 0.00633, 0.00165, - + 0.00059, 0.00397, 0.00633, - + 0.30887, 0.09737, 0.08419, 0.00603, 0.00157, - + 0.00062, 0.00379, 0.00603, - + 0.29894, 0.09369, 0.07783, 0.00573, 0.00158, - + 0.00064, 0.00368, 0.00573 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ - + 0.28969, 0.09029, 0.07222, 0.00548, 0.00157, - + 0.00068, 0.00357, 0.00548, - + 0.28097, 0.08712, 0.06723, 0.00530, 0.00149, - + 0.00074, 0.00342, 0.00530, - + 0.27284, 0.08419, 0.06279, 0.00508, 0.00147, - + 0.00076, 0.00331, 0.00508, - + 0.26525, 0.08148, 0.05882, 0.00483, 0.00147, - + 0.00074, 0.00321, 0.00483, - + 0.25793, 0.07891, 0.05527, 0.00467, 0.00143, - + 0.00073, 0.00308, 0.00467 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + 0.50281, 0.16839, 0.29770, 0.00861, 0.00027, - + 0.00012, 0.00453, 0.00861, - + 0.46791, 0.15426, 0.24448, 0.00799, 0.00061, - + 0.00019, 0.00436, 0.00799, - + 0.43830, 0.14249, 0.20482, 0.00737, 0.00091, - + 0.00013, 0.00422, 0.00737, - + 0.41277, 0.13261, 0.17444, 0.00685, 0.00100, - + 0.00012, 0.00410, 0.00685, - + 0.39083, 0.12400, 0.15050, 0.00636, 0.00112, - + 0.00013, 0.00381, 0.00636, - + 0.37090, 0.11660, 0.13154, 0.00601, 0.00121, - + 0.00019, 0.00361, 0.00601, - + 0.35311, 0.11008, 0.11607, 0.00565, 0.00119, - + 0.00034, 0.00350, 0.00565 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ - + 0.33704, 0.10428, 0.10328, 0.00533, 0.00127, - + 0.00034, 0.00329, 0.00533, - + 0.32271, 0.09904, 0.09247, 0.00504, 0.00125, - + 0.00042, 0.00315, 0.00504, - + 0.30922, 0.09434, 0.08337, 0.00478, 0.00121, - + 0.00042, 0.00302, 0.00478, - + 0.29711, 0.09002, 0.07573, 0.00453, 0.00120, - + 0.00041, 0.00287, 0.00453, - + 0.28599, 0.08606, 0.06914, 0.00430, 0.00119, - + 0.00044, 0.00274, 0.00430, - + 0.27561, 0.08243, 0.06334, 0.00410, 0.00115, - + 0.00051, 0.00264, 0.00410, - + 0.26603, 0.07914, 0.05830, 0.00392, 0.00115, - + 0.00051, 0.00256, 0.00392 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ - + 0.25716, 0.07610, 0.05388, 0.00376, 0.00112, - + 0.00050, 0.00246, 0.00376, - + 0.24884, 0.07327, 0.04998, 0.00361, 0.00105, - + 0.00049, 0.00233, 0.00361, - + 0.24098, 0.07062, 0.04655, 0.00349, 0.00102, - + 0.00050, 0.00222, 0.00349, - + 0.23356, 0.06815, 0.04351, 0.00339, 0.00101, - + 0.00052, 0.00214, 0.00339, - + 0.22674, 0.06588, 0.04075, 0.00324, 0.00098, - + 0.00052, 0.00207, 0.00324 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + 0.46651, 0.14828, 0.24279, 0.00611, 0.00011, - + -0.00002, 0.00309, 0.00611, - + 0.43139, 0.13494, 0.19692, 0.00565, 0.00042, - + -0.00006, 0.00294, 0.00565, - + 0.40181, 0.12397, 0.16310, 0.00520, 0.00060, - + -0.00004, 0.00287, 0.00520, - + 0.37674, 0.11465, 0.13762, 0.00476, 0.00072, - + -0.00002, 0.00280, 0.00476, - + 0.35456, 0.10688, 0.11783, 0.00449, 0.00075, - + -0.00001, 0.00266, 0.00449, - + 0.33514, 0.10011, 0.10217, 0.00420, 0.00085, - + 0.00009, 0.00255, 0.00420, - + 0.31798, 0.09409, 0.08951, 0.00397, 0.00081, - + 0.00015, 0.00234, 0.00397 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ - + 0.30251, 0.08874, 0.07912, 0.00373, 0.00087, - + 0.00020, 0.00228, 0.00373, - + 0.28874, 0.08398, 0.07050, 0.00345, 0.00083, - + 0.00025, 0.00212, 0.00345, - + 0.27592, 0.07975, 0.06325, 0.00328, 0.00081, - + 0.00031, 0.00202, 0.00328, - + 0.26437, 0.07591, 0.05717, 0.00308, 0.00081, - + 0.00029, 0.00194, 0.00308, - + 0.25375, 0.07243, 0.05196, 0.00292, 0.00080, - + 0.00028, 0.00186, 0.00292, - + 0.24385, 0.06926, 0.04741, 0.00282, 0.00075, - + 0.00031, 0.00174, 0.00282, - + 0.23477, 0.06629, 0.04352, 0.00267, 0.00075, - + 0.00033, 0.00168, 0.00267 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ - + 0.22633, 0.06355, 0.04011, 0.00254, 0.00074, - + 0.00033, 0.00162, 0.00254, - + 0.21832, 0.06103, 0.03709, 0.00246, 0.00069, - + 0.00032, 0.00154, 0.00246, - + 0.21107, 0.05872, 0.03443, 0.00236, 0.00067, - + 0.00032, 0.00147, 0.00236, - + 0.20445, 0.05660, 0.03206, 0.00225, 0.00068, - + 0.00034, 0.00140, 0.00225, - + 0.19804, 0.05458, 0.02997, 0.00215, 0.00066, - + 0.00033, 0.00135, 0.00215 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + 0.42830, 0.12862, 0.19602, 0.00412, 0.00016, - + 0.00002, 0.00222, 0.00412, - + 0.39354, 0.11649, 0.15706, 0.00378, 0.00034, - + 0.00007, 0.00215, 0.00378, - + 0.36446, 0.10640, 0.12870, 0.00351, 0.00049, - + 0.00006, 0.00208, 0.00351, - + 0.33977, 0.09806, 0.10763, 0.00329, 0.00056, - + 0.00006, 0.00191, 0.00329, - + 0.31854, 0.09092, 0.09144, 0.00298, 0.00063, - + -0.00001, 0.00183, 0.00298, - + 0.30002, 0.08475, 0.07868, 0.00280, 0.00056, - + 0.00002, 0.00170, 0.00280, - + 0.28333, 0.07951, 0.06850, 0.00267, 0.00059, - + 0.00007, 0.00159, 0.00267 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ - + 0.26852, 0.07471, 0.06019, 0.00253, 0.00060, - + 0.00018, 0.00151, 0.00253, - + 0.25520, 0.07053, 0.05334, 0.00236, 0.00058, - + 0.00020, 0.00145, 0.00236, - + 0.24315, 0.06674, 0.04762, 0.00223, 0.00061, - + 0.00020, 0.00133, 0.00223, - + 0.23237, 0.06330, 0.04282, 0.00208, 0.00058, - + 0.00020, 0.00126, 0.00208, - + 0.22250, 0.06018, 0.03873, 0.00195, 0.00054, - + 0.00022, 0.00122, 0.00195, - + 0.21332, 0.05736, 0.03523, 0.00187, 0.00049, - + 0.00025, 0.00120, 0.00187, - + 0.20479, 0.05482, 0.03222, 0.00178, 0.00052, - + 0.00024, 0.00116, 0.00178 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ - + 0.19694, 0.05247, 0.02960, 0.00171, 0.00053, - + 0.00024, 0.00112, 0.00171, - + 0.18966, 0.05025, 0.02732, 0.00167, 0.00051, - + 0.00025, 0.00107, 0.00167, - + 0.18281, 0.04826, 0.02529, 0.00161, 0.00048, - + 0.00024, 0.00101, 0.00161, - + 0.17638, 0.04645, 0.02349, 0.00155, 0.00046, - + 0.00021, 0.00096, 0.00155, - + 0.17064, 0.04470, 0.02190, 0.00144, 0.00047, - + 0.00023, 0.00093, 0.00144 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + 0.38899, 0.11068, 0.15710, 0.00278, 0.00012, - + 0.00003, 0.00148, 0.00278, - + 0.35524, 0.09959, 0.12436, 0.00257, 0.00026, - + 0.00003, 0.00142, 0.00257, - + 0.32728, 0.09049, 0.10097, 0.00238, 0.00032, - + 0.00003, 0.00132, 0.00238, - + 0.30349, 0.08296, 0.08359, 0.00226, 0.00038, - + 0.00004, 0.00121, 0.00226, - + 0.28309, 0.07672, 0.07050, 0.00210, 0.00034, - + 0.00003, 0.00117, 0.00210, - + 0.26550, 0.07121, 0.06023, 0.00197, 0.00037, - + 0.00004, 0.00110, 0.00197, - + 0.24996, 0.06648, 0.05206, 0.00184, 0.00038, - + 0.00006, 0.00102, 0.00184 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ - + 0.23604, 0.06231, 0.04551, 0.00173, 0.00040, - + 0.00007, 0.00098, 0.00173, - + 0.22383, 0.05860, 0.04012, 0.00156, 0.00040, - + 0.00012, 0.00098, 0.00156, - + 0.21241, 0.05531, 0.03563, 0.00157, 0.00038, - + 0.00014, 0.00090, 0.00157, - + 0.20248, 0.05232, 0.03190, 0.00143, 0.00037, - + 0.00014, 0.00086, 0.00143, - + 0.19339, 0.04962, 0.02876, 0.00131, 0.00036, - + 0.00012, 0.00082, 0.00131, - + 0.18483, 0.04721, 0.02608, 0.00126, 0.00036, - + 0.00012, 0.00078, 0.00126, - + 0.17695, 0.04497, 0.02376, 0.00120, 0.00033, - + 0.00010, 0.00074, 0.00120 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ - + 0.16979, 0.04293, 0.02175, 0.00113, 0.00031, - + 0.00009, 0.00069, 0.00113, - + 0.16330, 0.04108, 0.02002, 0.00103, 0.00033, - + 0.00009, 0.00064, 0.00103, - + 0.15711, 0.03935, 0.01849, 0.00100, 0.00031, - + 0.00010, 0.00060, 0.00100, - + 0.15124, 0.03775, 0.01715, 0.00102, 0.00028, - + 0.00010, 0.00057, 0.00102, - + 0.14596, 0.03625, 0.01595, 0.00097, 0.00026, - + 0.00010, 0.00055, 0.00097 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + 0.34945, 0.09404, 0.12470, 0.00185, 0.00011, - + 0.00004, 0.00102, 0.00185, - + 0.31690, 0.08400, 0.09733, 0.00174, 0.00013, - + 0.00001, 0.00093, 0.00174, - + 0.29020, 0.07595, 0.07813, 0.00159, 0.00019, - + 0.00000, 0.00087, 0.00159, - + 0.26765, 0.06933, 0.06402, 0.00146, 0.00031, - + -0.00001, 0.00083, 0.00146, - + 0.24891, 0.06370, 0.05355, 0.00133, 0.00026, - + -0.00002, 0.00077, 0.00133, - + 0.23250, 0.05895, 0.04542, 0.00121, 0.00030, - + 0.00002, 0.00075, 0.00121, - + 0.21805, 0.05480, 0.03899, 0.00111, 0.00031, - + 0.00005, 0.00070, 0.00111 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ - + 0.20509, 0.05113, 0.03386, 0.00109, 0.00030, - + 0.00010, 0.00067, 0.00109, - + 0.19370, 0.04798, 0.02969, 0.00098, 0.00030, - + 0.00008, 0.00062, 0.00098, - + 0.18322, 0.04513, 0.02623, 0.00095, 0.00028, - + 0.00008, 0.00057, 0.00095, - + 0.17403, 0.04255, 0.02338, 0.00089, 0.00028, - + 0.00011, 0.00057, 0.00089, - + 0.16569, 0.04024, 0.02100, 0.00083, 0.00027, - + 0.00012, 0.00055, 0.00083, - + 0.15797, 0.03817, 0.01896, 0.00078, 0.00024, - + 0.00007, 0.00052, 0.00078, - + 0.15093, 0.03626, 0.01721, 0.00073, 0.00023, - + 0.00007, 0.00048, 0.00073 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ - + 0.14451, 0.03453, 0.01570, 0.00068, 0.00023, - + 0.00008, 0.00045, 0.00068, - + 0.13864, 0.03294, 0.01441, 0.00063, 0.00023, - + 0.00010, 0.00047, 0.00063, - + 0.13320, 0.03149, 0.01328, 0.00058, 0.00024, - + 0.00011, 0.00046, 0.00058, - + 0.12817, 0.03015, 0.01229, 0.00052, 0.00024, - + 0.00010, 0.00043, 0.00052, - + 0.12335, 0.02891, 0.01141, 0.00052, 0.00024, - + 0.00011, 0.00042, 0.00052 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + 0.31051, 0.07903, 0.09809, 0.00123, 0.00002, - + -0.00003, 0.00063, 0.00123, - + 0.27990, 0.07018, 0.07567, 0.00117, 0.00005, - + -0.00001, 0.00061, 0.00117, - + 0.25483, 0.06316, 0.06005, 0.00106, 0.00013, - + -0.00007, 0.00058, 0.00106, - + 0.23433, 0.05729, 0.04880, 0.00093, 0.00013, - + 0.00001, 0.00053, 0.00093, - + 0.21651, 0.05247, 0.04045, 0.00091, 0.00020, - + 0.00003, 0.00056, 0.00091, - + 0.20124, 0.04836, 0.03408, 0.00085, 0.00020, - + -0.00001, 0.00048, 0.00085, - + 0.18806, 0.04482, 0.02909, 0.00076, 0.00014, - + 0.00001, 0.00043, 0.00076 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ - + 0.17605, 0.04169, 0.02511, 0.00077, 0.00015, - + 0.00000, 0.00039, 0.00077, - + 0.16597, 0.03893, 0.02192, 0.00065, 0.00012, - + 0.00001, 0.00036, 0.00065, - + 0.15666, 0.03649, 0.01930, 0.00064, 0.00017, - + 0.00005, 0.00039, 0.00064, - + 0.14839, 0.03433, 0.01713, 0.00058, 0.00016, - + 0.00005, 0.00036, 0.00058, - + 0.14084, 0.03240, 0.01531, 0.00054, 0.00016, - + 0.00005, 0.00033, 0.00054, - + 0.13385, 0.03064, 0.01377, 0.00053, 0.00019, - + 0.00007, 0.00034, 0.00053, - + 0.12757, 0.02905, 0.01247, 0.00050, 0.00018, - + 0.00006, 0.00031, 0.00050 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ - + 0.12183, 0.02760, 0.01136, 0.00047, 0.00016, - + 0.00006, 0.00029, 0.00047, - + 0.11651, 0.02627, 0.01038, 0.00047, 0.00015, - + 0.00009, 0.00030, 0.00047, - + 0.11166, 0.02504, 0.00953, 0.00044, 0.00015, - + 0.00008, 0.00030, 0.00044, - + 0.10721, 0.02392, 0.00879, 0.00038, 0.00015, - + 0.00006, 0.00028, 0.00038, - + 0.10303, 0.02289, 0.00815, 0.00035, 0.00015, - + 0.00006, 0.00027, 0.00035 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + 0.27231, 0.06550, 0.07610, 0.00082, -0.00002, - + -0.00005, 0.00037, 0.00082, - + 0.24403, 0.05780, 0.05797, 0.00075, 0.00006, - + -0.00001, 0.00035, 0.00075, - + 0.22099, 0.05174, 0.04557, 0.00067, 0.00005, - + -0.00005, 0.00035, 0.00067, - + 0.20209, 0.04678, 0.03668, 0.00061, 0.00007, - + -0.00003, 0.00031, 0.00061, - + 0.18593, 0.04265, 0.03021, 0.00057, 0.00008, - + -0.00003, 0.00030, 0.00057, - + 0.17204, 0.03914, 0.02522, 0.00056, 0.00010, - + -0.00002, 0.00025, 0.00056, - + 0.16013, 0.03610, 0.02139, 0.00052, 0.00012, - + 0.00000, 0.00026, 0.00052 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ - + 0.14992, 0.03346, 0.01837, 0.00043, 0.00011, - + 0.00000, 0.00025, 0.00043, - + 0.14055, 0.03116, 0.01596, 0.00042, 0.00010, - + -0.00001, 0.00025, 0.00042, - + 0.13230, 0.02911, 0.01397, 0.00037, 0.00009, - + -0.00001, 0.00022, 0.00037, - + 0.12484, 0.02732, 0.01235, 0.00035, 0.00009, - + 0.00001, 0.00021, 0.00035, - + 0.11815, 0.02571, 0.01100, 0.00033, 0.00010, - + 0.00002, 0.00020, 0.00033, - + 0.11215, 0.02426, 0.00986, 0.00030, 0.00008, - + 0.00001, 0.00020, 0.00030, - + 0.10665, 0.02293, 0.00890, 0.00027, 0.00010, - + 0.00001, 0.00020, 0.00027 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ - + 0.10160, 0.02172, 0.00808, 0.00025, 0.00011, - + 0.00002, 0.00020, 0.00025, - + 0.09687, 0.02065, 0.00736, 0.00026, 0.00011, - + 0.00004, 0.00019, 0.00026, - + 0.09260, 0.01965, 0.00675, 0.00025, 0.00011, - + 0.00004, 0.00018, 0.00025, - + 0.08872, 0.01872, 0.00621, 0.00023, 0.00010, - + 0.00002, 0.00016, 0.00023, - + 0.08507, 0.01787, 0.00574, 0.00022, 0.00009, - + 0.00003, 0.00015, 0.00022 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + 0.23626, 0.05359, 0.05834, 0.00053, -0.00008, - + -0.00006, 0.00015, 0.00053, - + 0.21017, 0.04700, 0.04390, 0.00049, -0.00003, - + -0.00004, 0.00017, 0.00049, - + 0.18916, 0.04183, 0.03410, 0.00043, -0.00001, - + -0.00009, 0.00019, 0.00043, - + 0.17202, 0.03760, 0.02719, 0.00039, 0.00004, - + -0.00007, 0.00018, 0.00039, - + 0.15759, 0.03409, 0.02214, 0.00042, 0.00011, - + 0.00000, 0.00022, 0.00042, - + 0.14558, 0.03116, 0.01838, 0.00029, 0.00010, - + -0.00004, 0.00020, 0.00029, - + 0.13491, 0.02864, 0.01549, 0.00028, 0.00009, - + -0.00001, 0.00019, 0.00028 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ - + 0.12544, 0.02647, 0.01321, 0.00031, 0.00012, - + 0.00002, 0.00018, 0.00031, - + 0.11727, 0.02456, 0.01141, 0.00027, 0.00011, - + 0.00001, 0.00021, 0.00027, - + 0.11003, 0.02286, 0.00994, 0.00023, 0.00008, - + -0.00001, 0.00018, 0.00023, - + 0.10356, 0.02138, 0.00875, 0.00020, 0.00008, - + 0.00000, 0.00016, 0.00020, - + 0.09778, 0.02005, 0.00776, 0.00018, 0.00008, - + 0.00001, 0.00015, 0.00018, - + 0.09260, 0.01886, 0.00693, 0.00016, 0.00008, - + 0.00002, 0.00014, 0.00016, - + 0.08774, 0.01778, 0.00624, 0.00015, 0.00007, - + 0.00002, 0.00013, 0.00015 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ - + 0.08333, 0.01682, 0.00565, 0.00015, 0.00008, - + 0.00003, 0.00012, 0.00015, - + 0.07934, 0.01594, 0.00513, 0.00014, 0.00009, - + 0.00003, 0.00012, 0.00014, - + 0.07566, 0.01513, 0.00469, 0.00014, 0.00009, - + 0.00003, 0.00012, 0.00014, - + 0.07228, 0.01439, 0.00431, 0.00014, 0.00008, - + 0.00003, 0.00011, 0.00014, - + 0.06914, 0.01370, 0.00398, 0.00013, 0.00008, - + 0.00004, 0.00011, 0.00013 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + 0.20211, 0.04314, 0.04410, 0.00031, -0.00004, - + -0.00005, 0.00009, 0.00031, - + 0.17834, 0.03761, 0.03269, 0.00035, -0.00001, - + -0.00005, 0.00010, 0.00035, - + 0.15974, 0.03321, 0.02509, 0.00029, 0.00003, - + -0.00006, 0.00011, 0.00029, - + 0.14445, 0.02968, 0.01980, 0.00025, 0.00002, - + -0.00008, 0.00011, 0.00025, - + 0.13183, 0.02684, 0.01598, 0.00020, 0.00006, - + -0.00001, 0.00013, 0.00020, - + 0.12104, 0.02440, 0.01316, 0.00020, 0.00008, - + -0.00001, 0.00012, 0.00020, - + 0.11167, 0.02232, 0.01102, 0.00021, 0.00010, - + 0.00002, 0.00014, 0.00021 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ - + 0.10361, 0.02054, 0.00934, 0.00017, 0.00007, - + 0.00003, 0.00012, 0.00017, - + 0.09655, 0.01898, 0.00801, 0.00012, 0.00006, - + 0.00000, 0.00010, 0.00012, - + 0.09022, 0.01763, 0.00697, 0.00013, 0.00007, - + 0.00001, 0.00011, 0.00013, - + 0.08465, 0.01643, 0.00611, 0.00012, 0.00009, - + 0.00003, 0.00012, 0.00012, - + 0.07963, 0.01537, 0.00540, 0.00011, 0.00009, - + 0.00004, 0.00012, 0.00011, - + 0.07506, 0.01441, 0.00480, 0.00011, 0.00007, - + 0.00002, 0.00011, 0.00011, - + 0.07104, 0.01355, 0.00431, 0.00009, 0.00006, - + 0.00003, 0.00010, 0.00009 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ - + 0.06738, 0.01277, 0.00388, 0.00007, 0.00006, - + 0.00004, 0.00009, 0.00007, - + 0.06394, 0.01208, 0.00352, 0.00007, 0.00007, - + 0.00004, 0.00009, 0.00007, - + 0.06082, 0.01144, 0.00321, 0.00006, 0.00006, - + 0.00004, 0.00009, 0.00006, - + 0.05797, 0.01085, 0.00295, 0.00006, 0.00006, - + 0.00003, 0.00008, 0.00006, - + 0.05532, 0.01032, 0.00271, 0.00006, 0.00006, - + 0.00002, 0.00007, 0.00006 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + 0.17057, 0.03434, 0.03287, 0.00023, -0.00006, - + -0.00012, 0.00000, 0.00023, - + 0.14978, 0.02973, 0.02408, 0.00020, -0.00001, - + -0.00007, 0.00004, 0.00020, - + 0.13336, 0.02610, 0.01826, 0.00019, 0.00000, - + -0.00005, 0.00006, 0.00019, - + 0.11991, 0.02323, 0.01429, 0.00016, -0.00001, - + -0.00006, 0.00005, 0.00016, - + 0.10893, 0.02086, 0.01146, 0.00011, 0.00003, - + -0.00004, 0.00006, 0.00011, - + 0.09949, 0.01889, 0.00937, 0.00011, 0.00001, - + -0.00005, 0.00006, 0.00011, - + 0.09148, 0.01723, 0.00779, 0.00010, 0.00001, - + -0.00004, 0.00005, 0.00010 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ - + 0.08452, 0.01579, 0.00658, 0.00011, 0.00003, - + -0.00002, 0.00005, 0.00011, - + 0.07842, 0.01457, 0.00563, 0.00011, 0.00003, - + -0.00002, 0.00004, 0.00011, - + 0.07314, 0.01348, 0.00486, 0.00008, 0.00005, - + 0.00000, 0.00007, 0.00008, - + 0.06838, 0.01252, 0.00424, 0.00007, 0.00004, - + 0.00001, 0.00006, 0.00007, - + 0.06412, 0.01167, 0.00373, 0.00006, 0.00004, - + 0.00001, 0.00005, 0.00006, - + 0.06028, 0.01093, 0.00331, 0.00007, 0.00004, - + 0.00001, 0.00005, 0.00007, - + 0.05686, 0.01024, 0.00296, 0.00007, 0.00003, - + 0.00001, 0.00005, 0.00007 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ - + 0.05377, 0.00963, 0.00267, 0.00006, 0.00003, - + 0.00001, 0.00006, 0.00006, - + 0.05096, 0.00908, 0.00241, 0.00006, 0.00004, - + 0.00002, 0.00005, 0.00006, - + 0.04837, 0.00858, 0.00220, 0.00005, 0.00004, - + 0.00001, 0.00004, 0.00005, - + 0.04599, 0.00813, 0.00201, 0.00004, 0.00003, - + 0.00000, 0.00003, 0.00004, - + 0.04380, 0.00771, 0.00184, 0.00004, 0.00002, - + 0.00000, 0.00003, 0.00004 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + 0.14149, 0.02665, 0.02396, 0.00011, 0.00000, - + -0.00002, 0.00003, 0.00011, - + 0.12338, 0.02294, 0.01735, 0.00013, 0.00001, - + -0.00001, 0.00003, 0.00013, - + 0.10925, 0.02007, 0.01306, 0.00011, 0.00000, - + -0.00002, 0.00003, 0.00011, - + 0.09790, 0.01778, 0.01014, 0.00005, -0.00002, - + -0.00003, 0.00001, 0.00005, - + 0.08828, 0.01589, 0.00806, 0.00011, 0.00000, - + -0.00001, 0.00004, 0.00011, - + 0.08034, 0.01434, 0.00655, 0.00010, 0.00000, - + -0.00002, 0.00002, 0.00010, - + 0.07354, 0.01305, 0.00542, 0.00010, 0.00000, - + -0.00001, 0.00001, 0.00010 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ - + 0.06771, 0.01191, 0.00455, 0.00010, 0.00001, - + -0.00001, 0.00002, 0.00010, - + 0.06275, 0.01095, 0.00387, 0.00007, 0.00001, - + 0.00001, 0.00003, 0.00007, - + 0.05825, 0.01011, 0.00333, 0.00007, 0.00001, - + 0.00001, 0.00002, 0.00007, - + 0.05429, 0.00937, 0.00290, 0.00006, 0.00001, - + 0.00001, 0.00003, 0.00006, - + 0.05078, 0.00871, 0.00254, 0.00005, 0.00001, - + 0.00000, 0.00003, 0.00005, - + 0.04766, 0.00813, 0.00225, 0.00004, 0.00000, - + 0.00000, 0.00001, 0.00004, - + 0.04480, 0.00761, 0.00200, 0.00004, 0.00001, - + 0.00000, 0.00001, 0.00004 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ - + 0.04223, 0.00714, 0.00180, 0.00005, 0.00001, - + 0.00000, 0.00002, 0.00005, - + 0.03991, 0.00671, 0.00162, 0.00004, 0.00001, - + 0.00000, 0.00002, 0.00004, - + 0.03780, 0.00633, 0.00147, 0.00005, 0.00001, - + 0.00000, 0.00002, 0.00005, - + 0.03586, 0.00599, 0.00134, 0.00005, 0.00001, - + 0.00000, 0.00002, 0.00005, - + 0.03409, 0.00567, 0.00123, 0.00004, 0.00001, - + 0.00000, 0.00002, 0.00004 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + 0.09234, 0.01518, 0.01197, 0.00001, -0.00002, - + -0.00002, 0.00000, 0.00001, - + 0.07935, 0.01288, 0.00842, 0.00003, 0.00000, - + -0.00002, 0.00000, 0.00003, - + 0.06932, 0.01110, 0.00618, 0.00004, 0.00000, - + -0.00001, 0.00002, 0.00004, - + 0.06130, 0.00973, 0.00469, 0.00003, -0.00001, - + -0.00001, 0.00000, 0.00003, - + 0.05485, 0.00860, 0.00367, 0.00002, 0.00001, - + 0.00000, 0.00002, 0.00002, - + 0.04951, 0.00768, 0.00293, 0.00000, 0.00002, - + -0.00001, 0.00001, 0.00000, - + 0.04492, 0.00692, 0.00239, 0.00000, 0.00000, - + -0.00001, 0.00001, 0.00000 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ - + 0.04094, 0.00628, 0.00198, 0.00001, 0.00001, - + -0.00001, 0.00001, 0.00001, - + 0.03754, 0.00572, 0.00167, 0.00002, 0.00001, - + 0.00000, 0.00002, 0.00002, - + 0.03464, 0.00524, 0.00142, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00001, - + 0.03205, 0.00482, 0.00122, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00001, - + 0.02975, 0.00446, 0.00107, 0.00002, 0.00001, - + 0.00000, 0.00002, 0.00002, - + 0.02774, 0.00413, 0.00094, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.02593, 0.00384, 0.00083, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ - + 0.02432, 0.00358, 0.00074, 0.00000, 0.00000, - + 0.00000, 0.00001, 0.00000, - + 0.02286, 0.00335, 0.00066, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.02154, 0.00314, 0.00060, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02034, 0.00296, 0.00054, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01924, 0.00279, 0.00050, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + 0.05534, 0.00785, 0.00541, 0.00003, -0.00001, - + 0.00000, 0.00000, 0.00003, - + 0.04682, 0.00655, 0.00369, 0.00001, -0.00001, - + -0.00002, -0.00001, 0.00001, - + 0.04035, 0.00557, 0.00264, 0.00001, 0.00000, - + -0.00001, 0.00000, 0.00001, - + 0.03525, 0.00482, 0.00196, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.03115, 0.00421, 0.00150, 0.00001, 0.00001, - + 0.00000, 0.00000, 0.00001, - + 0.02778, 0.00373, 0.00118, 0.00000, 0.00000, - + -0.00001, 0.00000, 0.00000, - + 0.02496, 0.00332, 0.00095, 0.00001, 0.00001, - + 0.00000, 0.00000, 0.00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ - + 0.02260, 0.00298, 0.00078, 0.00000, 0.00001, - + 0.00000, 0.00000, 0.00000, - + 0.02054, 0.00270, 0.00065, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01880, 0.00245, 0.00054, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01726, 0.00224, 0.00047, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01591, 0.00205, 0.00040, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01474, 0.00189, 0.00035, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01369, 0.00175, 0.00031, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ - + 0.01276, 0.00162, 0.00027, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01191, 0.00151, 0.00024, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01116, 0.00141, 0.00022, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01048, 0.00132, 0.00020, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00986, 0.00123, 0.00018, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + 0.02946, 0.00352, 0.00211, 0.00000, -0.00001, - + -0.00001, -0.00001, 0.00000, - + 0.02451, 0.00289, 0.00139, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.02080, 0.00242, 0.00097, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01793, 0.00207, 0.00070, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01565, 0.00179, 0.00053, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01378, 0.00156, 0.00041, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01226, 0.00138, 0.00032, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ - + 0.01099, 0.00123, 0.00026, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00989, 0.00110, 0.00021, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00897, 0.00099, 0.00018, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00817, 0.00090, 0.00015, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00747, 0.00082, 0.00013, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00686, 0.00075, 0.00011, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00633, 0.00068, 0.00010, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ - + 0.00586, 0.00063, 0.00009, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00544, 0.00058, 0.00008, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00507, 0.00054, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00473, 0.00050, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00442, 0.00047, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + 0.01332, 0.00130, 0.00067, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01085, 0.00105, 0.00042, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00904, 0.00086, 0.00028, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00764, 0.00072, 0.00020, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00658, 0.00062, 0.00015, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00572, 0.00053, 0.00011, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00502, 0.00046, 0.00009, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ - + 0.00444, 0.00041, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00395, 0.00036, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00355, 0.00032, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00320, 0.00029, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00290, 0.00026, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00264, 0.00024, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00242, 0.00021, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ - + 0.00222, 0.00020, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00204, 0.00018, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00188, 0.00017, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00175, 0.00015, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00162, 0.00014, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + 0.00101, 0.00005, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00077, 0.00004, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00061, 0.00003, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00050, 0.00003, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00041, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00034, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00029, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ - + 0.00025, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00021, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00019, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00016, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00014, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00013, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ - + 0.00010, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,4,5,0,0,5,5/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ - - -C DON'T LET X BE ALTERED IF IT'S OUT OF RANGE!! - XSAVE=X - - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(78,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7) GO TO 31 - DO 30 K=1,19 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,8 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) - -C RESTORE X - X=XSAVE - - RETURN - END diff --git a/PDF/spdf/sfmsbd0.F b/PDF/spdf/sfmsbd0.F deleted file mode 100644 index 643a785bd02..00000000000 --- a/PDF/spdf/sfmsbd0.F +++ /dev/null @@ -1,1981 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:18 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:42 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFMSBD0(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) - -C THIS IS THE NEW B0-TYPE FIT "D0'" WITH UBAR < DBAR (230 MEV) - -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,20),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + 0.00820, 0.00305, 4.30034, 0.45159, 0.04557, - + 0.00000, 0.25246, 0.45682, - + 0.00874, 0.00321, 11.00467, 0.62975, 0.22381, - + 0.00000, 0.43083, 0.63503, - + 0.00924, 0.00337, 19.93318, 0.86387, 0.45800, - + 0.00000, 0.66515, 0.86919, - + 0.00970, 0.00352, 30.63055, 1.14801, 0.74220, - + 0.00000, 0.94947, 1.15338, - + 0.01012, 0.00367, 43.07445, 1.47932, 1.07358, - + 0.07132, 1.28095, 1.48474, - + 0.01052, 0.00380, 57.04886, 1.85438, 1.44870, - + 0.40646, 1.65617, 1.85983, - + 0.01090, 0.00394, 72.39754, 2.27129, 1.86567, - + 0.83916, 2.07324, 2.27679 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ - + 0.01126, 0.00407, 88.96280, 2.72696, 2.32140, - + 1.30378, 2.52905, 2.73249, - + 0.01161, 0.00420, 106.60825, 3.21829, 2.81279, - + 1.80435, 3.02052, 3.22386, - + 0.01194, 0.00433, 125.23030, 3.74290, 3.33746, - + 2.33731, 3.54527, 3.74851, - + 0.01226, 0.00445, 144.75316, 4.29899, 3.89361, - + 2.90128, 4.10149, 4.30463, - + 0.01257, 0.00457, 165.02708, 4.88328, 4.47796, - + 3.49297, 4.68590, 4.88897, - + 0.01287, 0.00468, 185.74925, 5.48867, 5.08341, - + 4.10534, 5.29142, 5.49439, - + 0.01316, 0.00480, 207.19238, 6.12070, 5.71550, - + 4.74396, 5.92357, 6.12646 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ - + 0.01345, 0.00491, 229.19391, 6.77573, 6.37060, - + 5.40525, 6.57872, 6.78154, - + 0.01372, 0.00502, 251.37769, 7.44504, 7.03997, - + 6.08051, 7.24814, 7.45088, - + 0.01399, 0.00513, 274.24219, 8.13973, 7.73473, - + 6.78087, 7.94296, 8.14562, - + 0.01425, 0.00523, 297.05859, 8.84242, 8.43748, - + 7.48899, 8.64576, 8.84840, - + 0.01450, 0.00534, 320.44653, 9.56751, 9.16264, - + 8.21925, 9.37096, 9.57351 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + 0.01112, 0.00413, 4.16478, 0.44450, 0.04167, - + 0.00000, 0.24582, 0.44874, - + 0.01184, 0.00438, 10.00315, 0.60301, 0.20054, - + 0.00000, 0.40463, 0.60732, - + 0.01250, 0.00461, 17.46046, 0.80490, 0.40275, - + 0.00000, 0.60679, 0.80927, - + 0.01310, 0.00483, 26.12637, 1.04382, 0.64197, - + 0.00000, 0.84596, 1.04825, - + 0.01366, 0.00504, 35.96332, 1.31660, 0.91503, - + 0.05844, 1.11897, 1.32107, - + 0.01419, 0.00524, 46.78426, 1.61989, 1.21858, - + 0.32996, 1.42249, 1.62442, - + 0.01469, 0.00544, 58.45796, 1.95180, 1.55074, - + 0.67577, 1.75460, 1.95637 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ - + 0.01517, 0.00563, 70.85809, 2.30957, 1.90874, - + 1.04175, 2.11257, 2.31418, - + 0.01563, 0.00581, 83.87959, 2.69056, 2.28996, - + 1.43112, 2.49375, 2.69523, - + 0.01607, 0.00599, 97.44550, 3.09280, 2.69241, - + 1.84095, 2.89616, 3.09750, - + 0.01649, 0.00616, 111.50073, 3.51478, 3.11461, - + 2.27012, 3.31833, 3.51952, - + 0.01689, 0.00633, 125.93799, 3.95397, 3.55401, - + 2.71604, 3.75769, 3.95876, - + 0.01729, 0.00649, 140.54076, 4.40504, 4.00527, - + 3.17347, 4.20891, 4.40987, - + 0.01767, 0.00665, 155.51311, 4.87211, 4.47255, - + 3.64656, 4.67615, 4.87699 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ - + 0.01804, 0.00681, 170.74074, 5.35252, 4.95314, - + 4.13266, 5.15671, 5.35743, - + 0.01840, 0.00696, 185.96053, 5.83980, 5.44061, - + 4.62538, 5.64414, 5.84475, - + 0.01874, 0.00711, 201.53259, 6.34221, 5.94321, - + 5.13296, 6.14670, 6.34720, - + 0.01908, 0.00726, 216.94594, 6.84709, 6.44827, - + 5.64278, 6.65172, 6.85212, - + 0.01941, 0.00740, 232.64294, 7.36496, 6.96631, - + 6.16538, 7.16973, 7.37004 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + 0.01507, 0.00561, 4.03320, 0.43694, 0.03787, - + 0.00000, 0.23922, 0.44054, - + 0.01603, 0.00597, 9.09126, 0.57700, 0.17859, - + 0.00000, 0.37969, 0.58069, - + 0.01690, 0.00631, 15.29068, 0.74990, 0.35210, - + 0.00000, 0.55297, 0.75367, - + 0.01770, 0.00663, 22.27757, 0.94947, 0.55222, - + 0.00000, 0.75288, 0.95332, - + 0.01844, 0.00694, 30.01537, 1.17262, 0.77587, - + 0.04761, 0.97634, 1.17654, - + 0.01914, 0.00723, 38.35127, 1.41634, 1.02008, - + 0.26639, 1.22036, 1.42033, - + 0.01980, 0.00751, 47.18178, 1.67895, 1.28314, - + 0.54128, 1.48325, 1.68301 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ - + 0.02043, 0.00777, 56.41171, 1.95814, 1.56275, - + 0.82802, 1.76270, 1.96225, - + 0.02103, 0.00803, 65.96436, 2.25180, 1.85682, - + 1.12931, 2.05661, 2.25597, - + 0.02161, 0.00828, 75.78619, 2.55834, 2.16375, - + 1.44280, 2.36339, 2.56256, - + 0.02216, 0.00853, 85.84114, 2.87664, 2.48243, - + 1.76766, 2.68192, 2.88091, - + 0.02269, 0.00876, 96.05449, 3.20477, 2.81093, - + 2.10195, 3.01028, 3.20910, - + 0.02321, 0.00899, 106.27458, 3.53881, 3.14532, - + 2.44181, 3.34454, 3.54320, - + 0.02371, 0.00922, 116.65524, 3.88188, 3.48873, - + 2.79038, 3.68781, 3.88631 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ - + 0.02419, 0.00943, 127.11835, 4.23204, 3.83923, - + 3.14577, 4.03818, 4.23652, - + 0.02466, 0.00965, 137.48166, 4.58461, 4.19212, - + 3.50332, 4.39095, 4.58914, - + 0.02511, 0.00986, 148.00665, 4.94570, 4.55352, - + 3.86915, 4.75223, 4.95028, - + 0.02555, 0.01006, 158.33673, 5.30615, 4.91428, - + 4.23413, 5.11286, 5.31077, - + 0.02598, 0.01026, 168.78696, 5.67369, 5.28212, - + 4.60601, 5.48059, 5.67836 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + 0.01800, 0.00671, 3.95792, 0.43222, 0.03569, - + 0.00000, 0.23537, 0.43564, - + 0.01913, 0.00716, 8.59567, 0.56200, 0.16634, - + 0.00000, 0.36564, 0.56553, - + 0.02016, 0.00759, 14.14575, 0.71932, 0.32444, - + 0.00000, 0.52341, 0.72296, - + 0.02110, 0.00799, 20.28943, 0.89830, 0.50413, - + 0.00000, 0.70280, 0.90203, - + 0.02198, 0.00837, 26.99515, 1.09601, 0.70250, - + 0.04210, 0.90088, 1.09983, - + 0.02280, 0.00872, 34.13046, 1.30974, 0.91685, - + 0.23435, 1.11496, 1.31364, - + 0.02358, 0.00907, 41.60805, 1.53796, 1.14564, - + 0.47401, 1.34351, 1.54193 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ - + 0.02431, 0.00940, 49.34917, 1.77864, 1.38687, - + 0.72190, 1.58450, 1.78269, - + 0.02502, 0.00971, 57.29214, 2.02996, 1.63872, - + 0.98047, 1.83612, 2.03408, - + 0.02569, 0.01002, 65.39511, 2.29060, 1.89986, - + 1.24772, 2.09704, 2.29478, - + 0.02634, 0.01032, 73.63124, 2.55959, 2.16934, - + 1.52295, 2.36631, 2.56384, - + 0.02697, 0.01061, 81.94168, 2.83535, 2.44557, - + 1.80457, 2.64234, 2.83966, - + 0.02757, 0.01089, 90.20387, 3.11462, 2.72529, - + 2.08939, 2.92186, 3.11899, - + 0.02815, 0.01116, 98.54913, 3.40008, 3.01117, - + 2.38008, 3.20756, 3.40450 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ - + 0.02871, 0.01142, 106.91562, 3.69011, 3.30163, - + 2.67509, 3.49783, 3.69459, - + 0.02926, 0.01168, 115.15706, 3.98087, 3.59280, - + 2.97059, 3.78882, 3.98540, - + 0.02979, 0.01193, 123.49013, 4.27749, 3.88981, - + 3.27173, 4.08566, 4.28207, - + 0.03030, 0.01218, 131.62666, 4.57241, 4.18512, - + 3.57098, 4.38081, 4.57705, - + 0.03080, 0.01242, 139.82591, 4.87209, 4.48517, - + 3.87479, 4.68069, 4.87678 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + 0.02042, 0.00762, 3.90519, 0.42868, 0.03416, - + 0.00000, 0.23262, 0.43208, - + 0.02169, 0.00816, 8.25971, 0.55139, 0.15789, - + 0.00000, 0.35589, 0.55492, - + 0.02285, 0.00865, 13.38381, 0.69824, 0.30565, - + 0.00000, 0.50324, 0.70189, - + 0.02391, 0.00912, 18.98395, 0.86361, 0.47185, - + 0.00000, 0.66906, 0.86736, - + 0.02489, 0.00956, 25.03314, 1.04473, 0.65374, - + 0.03852, 0.85060, 1.04858, - + 0.02581, 0.00997, 31.41321, 1.23909, 0.84882, - + 0.21366, 1.04536, 1.24304, - + 0.02668, 0.01037, 38.04781, 1.44531, 1.05572, - + 0.43078, 1.25195, 1.44935 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ - + 0.02751, 0.01075, 44.86905, 1.66156, 1.27261, - + 0.65401, 1.46855, 1.66568, - + 0.02830, 0.01112, 51.82478, 1.88621, 1.49788, - + 0.88566, 1.69355, 1.89041, - + 0.02905, 0.01147, 58.88084, 2.11810, 1.73035, - + 1.12394, 1.92576, 2.12238, - + 0.02978, 0.01182, 66.01596, 2.35640, 1.96922, - + 1.36828, 2.16436, 2.36075, - + 0.03047, 0.01215, 73.18097, 2.59973, 2.21309, - + 1.61728, 2.40799, 2.60415, - + 0.03115, 0.01247, 80.27115, 2.84525, 2.45913, - + 1.86815, 2.65379, 2.84973, - + 0.03179, 0.01278, 87.40392, 3.09533, 2.70972, - + 2.12331, 2.90415, 3.09988 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ - + 0.03242, 0.01309, 94.52690, 3.34863, 2.96349, - + 2.38141, 3.15771, 3.35324, - + 0.03303, 0.01338, 101.51570, 3.60176, 3.21710, - + 2.63914, 3.41110, 3.60643, - + 0.03362, 0.01367, 108.55965, 3.85927, 3.47507, - + 2.90102, 3.66887, 3.86400, - + 0.03419, 0.01395, 115.41191, 4.11458, 3.73083, - + 3.16052, 3.92442, 4.11937, - + 0.03475, 0.01423, 122.29738, 4.37336, 3.99004, - + 3.42330, 4.18343, 4.37820 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + 0.02252, 0.00842, 3.86466, 0.42582, 0.03299, - + 0.00000, 0.23047, 0.42926, - + 0.02391, 0.00902, 8.00759, 0.54317, 0.15148, - + 0.00000, 0.34844, 0.54676, - + 0.02518, 0.00958, 12.81977, 0.68221, 0.29154, - + 0.00000, 0.48803, 0.68593, - + 0.02634, 0.01011, 18.02698, 0.83755, 0.44781, - + 0.00000, 0.64387, 0.84139, - + 0.02741, 0.01060, 23.60628, 1.00657, 0.61769, - + 0.03593, 0.81335, 1.01052, - + 0.02841, 0.01107, 29.45024, 1.18693, 0.79885, - + 0.19869, 0.99415, 1.19098, - + 0.02936, 0.01151, 35.49059, 1.37734, 0.99003, - + 0.39962, 1.18497, 1.38150 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ - + 0.03027, 0.01194, 41.66748, 1.57614, 1.18954, - + 0.60524, 1.38415, 1.58039, - + 0.03113, 0.01235, 47.93552, 1.78184, 1.39593, - + 0.81775, 1.59023, 1.78618, - + 0.03195, 0.01274, 54.26602, 1.99340, 1.60814, - + 1.03554, 1.80213, 1.99782, - + 0.03274, 0.01313, 60.64156, 2.21008, 1.82546, - + 1.25811, 2.01916, 2.21459, - + 0.03350, 0.01350, 67.01950, 2.43066, 2.04664, - + 1.48421, 2.24006, 2.43524, - + 0.03423, 0.01386, 73.30774, 2.65258, 2.26913, - + 1.71136, 2.46229, 2.65723, - + 0.03494, 0.01420, 79.61375, 2.87803, 2.49514, - + 1.94175, 2.68803, 2.88275 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ - + 0.03562, 0.01454, 85.89183, 3.10579, 2.72344, - + 2.17421, 2.91609, 3.11058, - + 0.03629, 0.01487, 92.03229, 3.33285, 2.95103, - + 2.40575, 3.14343, 3.33770, - + 0.03693, 0.01519, 98.20593, 3.56334, 3.18203, - + 2.64051, 3.37419, 3.56826, - + 0.03755, 0.01550, 104.19360, 3.79136, 3.41055, - + 2.87262, 3.60248, 3.79634, - + 0.03816, 0.01581, 110.19688, 4.02202, 3.64168, - + 3.10719, 3.83339, 4.02706 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + 0.03052, 0.01150, 3.74033, 0.41605, 0.02941, - + 0.00000, 0.22366, 0.42006, - + 0.03236, 0.01238, 7.26782, 0.51741, 0.13232, - + 0.00000, 0.32584, 0.52162, - + 0.03403, 0.01319, 11.20423, 0.63383, 0.25014, - + 0.00000, 0.44300, 0.63823, - + 0.03556, 0.01395, 15.33313, 0.76078, 0.37836, - + 0.00000, 0.57062, 0.76534, - + 0.03697, 0.01465, 19.64542, 0.89612, 0.51488, - + 0.02874, 0.70658, 0.90084, - + 0.03829, 0.01532, 24.06464, 1.03805, 0.65790, - + 0.15761, 0.84908, 1.04290, - + 0.03954, 0.01595, 28.54543, 1.18561, 0.80649, - + 0.31460, 0.99718, 1.19060 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ - + 0.04072, 0.01655, 33.04964, 1.33757, 0.95943, - + 0.47294, 1.14966, 1.34268, - + 0.04185, 0.01713, 37.54993, 1.49288, 1.11566, - + 0.63456, 1.30545, 1.49811, - + 0.04292, 0.01769, 42.03134, 1.65080, 1.27447, - + 0.79829, 1.46383, 1.65614, - + 0.04395, 0.01823, 46.48680, 1.81087, 1.43539, - + 0.96383, 1.62435, 1.81632, - + 0.04495, 0.01874, 50.89040, 1.97225, 1.59758, - + 1.13036, 1.78615, 1.97780, - + 0.04590, 0.01924, 55.18082, 2.13315, 1.75926, - + 1.29613, 1.94746, 2.13879, - + 0.04682, 0.01973, 59.43996, 2.29525, 1.92211, - + 1.46283, 2.10995, 2.30098 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ - + 0.04770, 0.02020, 63.63884, 2.45772, 2.08531, - + 1.62969, 2.27280, 2.46354, - + 0.04856, 0.02065, 67.70392, 2.61845, 2.24674, - + 1.79460, 2.43390, 2.62436, - + 0.04939, 0.02110, 71.75874, 2.78050, 2.40946, - + 1.96064, 2.59630, 2.78649, - + 0.05019, 0.02153, 75.65318, 2.93968, 2.56931, - + 2.12364, 2.75582, 2.94575, - + 0.05098, 0.02195, 79.53020, 3.09973, 2.72999, - + 2.28734, 2.91620, 3.10586 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + 0.04133, 0.01583, 3.61733, 0.40444, 0.02592, - + 0.00000, 0.21638, 0.40975, - + 0.04377, 0.01711, 6.58533, 0.49074, 0.11428, - + 0.00000, 0.30378, 0.49633, - + 0.04596, 0.01828, 9.76781, 0.58684, 0.21222, - + 0.00000, 0.40086, 0.59267, - + 0.04797, 0.01935, 13.00129, 0.68913, 0.31619, - + 0.00000, 0.50403, 0.69517, - + 0.04983, 0.02036, 16.29041, 0.79600, 0.42460, - + 0.02273, 0.61171, 0.80224, - + 0.05156, 0.02130, 19.58540, 0.90613, 0.53616, - + 0.12364, 0.72260, 0.91255, - + 0.05319, 0.02220, 22.86000, 1.01888, 0.65026, - + 0.24494, 0.83606, 1.02547 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ - + 0.05473, 0.02305, 26.09285, 1.13340, 0.76606, - + 0.36551, 0.95125, 1.14015, - + 0.05620, 0.02386, 29.27072, 1.24898, 0.88285, - + 0.48701, 1.06746, 1.25587, - + 0.05760, 0.02464, 32.38834, 1.36516, 1.00018, - + 0.60866, 1.18425, 1.37219, - + 0.05894, 0.02539, 35.44592, 1.48168, 1.11780, - + 0.73033, 1.30134, 1.48884, - + 0.06022, 0.02611, 38.42929, 1.59799, 1.23517, - + 0.85150, 1.41821, 1.60528, - + 0.06146, 0.02680, 41.29901, 1.71288, 1.35106, - + 0.97098, 1.53362, 1.72028, - + 0.06264, 0.02747, 44.11739, 1.82763, 1.46679, - + 1.09008, 1.64888, 1.83515 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ - + 0.06379, 0.02812, 46.86678, 1.94172, 1.58181, - + 1.20831, 1.76346, 1.94935, - + 0.06489, 0.02875, 49.49901, 2.05369, 1.69469, - + 1.32423, 1.87590, 2.06142, - + 0.06596, 0.02936, 52.10284, 2.16578, 1.80766, - + 1.44009, 1.98845, 2.17362, - + 0.06699, 0.02994, 54.57664, 2.27508, 1.91780, - + 1.55300, 2.09819, 2.28301, - + 0.06800, 0.03052, 57.02118, 2.38429, 2.02783, - + 1.66567, 2.20782, 2.39231 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + 0.04933, 0.01921, 3.54508, 0.39642, 0.02392, - + 0.00000, 0.21172, 0.40286, - + 0.05219, 0.02079, 6.20753, 0.47433, 0.10423, - + 0.00000, 0.29091, 0.48109, - + 0.05477, 0.02223, 8.99580, 0.55951, 0.19156, - + 0.00000, 0.37724, 0.56654, - + 0.05712, 0.02356, 11.77479, 0.64890, 0.28290, - + 0.00000, 0.46766, 0.65618, - + 0.05930, 0.02479, 14.55657, 0.74118, 0.37698, - + 0.01969, 0.56089, 0.74868, - + 0.06132, 0.02595, 17.30482, 0.83530, 0.47276, - + 0.10656, 0.65589, 0.84300, - + 0.06322, 0.02704, 20.00250, 0.93077, 0.56980, - + 0.21017, 0.75220, 0.93867 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ - + 0.06502, 0.02807, 22.63635, 1.02695, 0.66745, - + 0.31224, 0.84916, 1.03502, - + 0.06673, 0.02906, 25.19928, 1.12329, 0.76519, - + 0.41433, 0.94623, 1.13152, - + 0.06836, 0.03001, 27.69032, 1.21946, 0.86269, - + 0.51582, 1.04310, 1.22785, - + 0.06991, 0.03091, 30.11273, 1.31529, 0.95979, - + 0.61666, 1.13960, 1.32382, - + 0.07140, 0.03178, 32.45729, 1.41039, 1.05610, - + 0.71647, 1.23533, 1.41905, - + 0.07283, 0.03261, 34.69431, 1.50377, 1.15065, - + 0.81433, 1.32933, 1.51257, - + 0.07420, 0.03342, 36.87650, 1.59657, 1.24456, - + 0.91137, 1.42271, 1.60549 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ - + 0.07552, 0.03420, 38.99127, 1.68838, 1.33744, - + 1.00721, 1.51508, 1.69741, - + 0.07680, 0.03495, 41.00131, 1.77803, 1.42813, - + 1.10071, 1.60528, 1.78718, - + 0.07803, 0.03567, 42.97942, 1.86741, 1.51851, - + 1.19376, 1.69518, 1.87667, - + 0.07922, 0.03638, 44.84538, 1.95416, 1.60623, - + 1.28403, 1.78243, 1.96352, - + 0.08038, 0.03706, 46.68073, 2.04050, 1.69351, - + 1.37374, 1.86926, 2.04995 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + 0.05590, 0.02213, 3.49319, 0.38999, 0.02253, - + 0.00000, 0.20811, 0.39739, - + 0.05911, 0.02397, 5.94688, 0.46213, 0.09734, - + 0.00000, 0.28168, 0.46987, - + 0.06200, 0.02565, 8.47302, 0.53997, 0.17757, - + 0.00000, 0.36080, 0.54801, - + 0.06463, 0.02718, 10.95557, 0.62082, 0.26058, - + 0.00000, 0.44280, 0.62913, - + 0.06705, 0.02860, 13.41141, 0.70357, 0.34532, - + 0.01771, 0.52661, 0.71211, - + 0.06931, 0.02993, 15.81283, 0.78734, 0.43093, - + 0.09553, 0.61136, 0.79610, - + 0.07143, 0.03118, 18.14856, 0.87175, 0.51707, - + 0.18781, 0.69668, 0.88071 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ - + 0.07343, 0.03237, 20.41023, 0.95627, 0.60322, - + 0.27815, 0.78207, 0.96541, - + 0.07533, 0.03350, 22.59435, 1.04046, 0.68895, - + 0.36799, 0.86707, 1.04978, - + 0.07714, 0.03458, 24.70258, 1.12407, 0.77403, - + 0.45684, 0.95146, 1.13356, - + 0.07886, 0.03561, 26.73956, 1.20701, 0.85836, - + 0.54470, 1.03513, 1.21664, - + 0.08051, 0.03660, 28.69916, 1.28894, 0.94163, - + 0.63128, 1.11777, 1.29872, - + 0.08209, 0.03755, 30.55730, 1.36906, 1.02303, - + 0.71580, 1.19856, 1.37898, - + 0.08361, 0.03846, 32.36076, 1.44837, 1.10357, - + 0.79929, 1.27852, 1.45842 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ - + 0.08508, 0.03934, 34.09976, 1.52655, 1.18293, - + 0.88144, 1.35732, 1.53672, - + 0.08649, 0.04019, 35.74342, 1.60261, 1.26014, - + 0.96130, 1.43398, 1.61290, - + 0.08785, 0.04101, 37.35477, 1.67821, 1.33683, - + 1.04051, 1.51016, 1.68861, - + 0.08916, 0.04181, 38.86623, 1.75132, 1.41101, - + 1.11709, 1.58383, 1.76183, - + 0.09044, 0.04258, 40.34767, 1.82390, 1.48461, - + 1.19299, 1.65694, 1.83450 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + 0.06152, 0.02491, 3.45185, 0.38434, 0.02147, - + 0.00000, 0.20490, 0.39244, - + 0.06502, 0.02698, 5.74432, 0.45211, 0.09215, - + 0.00000, 0.27423, 0.46057, - + 0.06817, 0.02885, 8.07149, 0.52448, 0.16712, - + 0.00000, 0.34798, 0.53325, - + 0.07104, 0.03056, 10.33184, 0.59900, 0.24400, - + 0.00000, 0.42375, 0.60805, - + 0.07368, 0.03214, 12.54625, 0.67474, 0.32189, - + 0.01627, 0.50064, 0.68405, - + 0.07613, 0.03362, 14.69372, 0.75093, 0.40008, - + 0.08749, 0.57788, 0.76046, - + 0.07843, 0.03501, 16.76697, 0.82728, 0.47830, - + 0.17154, 0.65522, 0.83702 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ - + 0.08060, 0.03633, 18.76009, 0.90333, 0.55611, - + 0.25335, 0.73220, 0.91326, - + 0.08266, 0.03758, 20.67302, 0.97873, 0.63318, - + 0.33435, 0.80849, 0.98885, - + 0.08461, 0.03877, 22.50847, 1.05332, 0.70935, - + 0.41412, 0.88390, 1.06360, - + 0.08648, 0.03990, 24.27223, 1.12699, 0.78454, - + 0.49268, 0.95837, 1.13744, - + 0.08827, 0.04099, 25.96126, 1.19952, 0.85850, - + 0.56981, 1.03166, 1.21011, - + 0.08998, 0.04203, 27.55463, 1.27019, 0.93056, - + 0.64485, 1.10305, 1.28093, - + 0.09162, 0.04304, 29.09367, 1.33993, 1.00162, - + 0.71872, 1.17349, 1.35080 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ - + 0.09319, 0.04400, 30.56998, 1.40846, 1.07142, - + 0.79119, 1.24268, 1.41946, - + 0.09471, 0.04493, 31.96104, 1.47493, 1.13911, - + 0.86142, 1.30979, 1.48605, - + 0.09618, 0.04583, 33.32074, 1.54083, 1.20619, - + 0.93090, 1.37631, 1.55206, - + 0.09759, 0.04670, 34.58902, 1.60437, 1.27087, - + 0.99788, 1.44044, 1.61571, - + 0.09896, 0.04754, 35.82820, 1.66730, 1.33490, - + 1.06411, 1.50395, 1.67875 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + 0.08280, 0.03636, 3.31902, 0.36375, 0.01828, - + 0.00000, 0.19371, 0.37454, - + 0.08739, 0.03929, 5.13839, 0.41854, 0.07679, - + 0.00000, 0.25049, 0.42974, - + 0.09150, 0.04192, 6.90384, 0.47511, 0.13666, - + 0.00000, 0.30881, 0.48667, - + 0.09523, 0.04430, 8.55537, 0.53179, 0.19633, - + 0.00000, 0.36707, 0.54365, - + 0.09864, 0.04648, 10.12249, 0.58808, 0.25535, - + 0.01230, 0.42480, 0.60022, - + 0.10180, 0.04851, 11.60013, 0.64358, 0.31336, - + 0.06555, 0.48162, 0.65597, - + 0.10475, 0.05040, 12.99109, 0.69819, 0.37032, - + 0.12743, 0.53747, 0.71081 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ - + 0.10753, 0.05217, 14.29765, 0.75170, 0.42603, - + 0.18663, 0.59213, 0.76452, - + 0.11015, 0.05385, 15.52510, 0.80396, 0.48037, - + 0.24436, 0.64549, 0.81697, - + 0.11264, 0.05544, 16.67973, 0.85494, 0.53332, - + 0.30042, 0.69749, 0.86813, - + 0.11500, 0.05695, 17.76906, 0.90466, 0.58491, - + 0.35492, 0.74819, 0.91802, - + 0.11726, 0.05839, 18.79407, 0.95301, 0.63504, - + 0.40779, 0.79748, 0.96652, - + 0.11940, 0.05976, 19.74326, 0.99957, 0.68330, - + 0.45862, 0.84492, 1.01322, - + 0.12146, 0.06107, 20.64661, 1.04504, 0.73039, - + 0.50814, 0.89123, 1.05882 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ - + 0.12343, 0.06232, 21.50026, 1.08927, 0.77618, - + 0.55624, 0.93628, 1.10318, - + 0.12532, 0.06352, 22.29103, 1.13173, 0.82013, - + 0.60238, 0.97951, 1.14575, - + 0.12715, 0.06469, 23.05534, 1.17347, 0.86332, - + 0.64763, 1.02200, 1.18761, - + 0.12890, 0.06580, 23.75552, 1.21332, 0.90455, - + 0.69085, 1.06257, 1.22756, - + 0.13060, 0.06687, 24.43269, 1.25249, 0.94506, - + 0.73325, 1.10244, 1.26682 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + 0.11155, 0.05435, 3.17302, 0.33669, 0.01523, - + 0.00001, 0.17948, 0.35085, - + 0.11754, 0.05837, 4.55432, 0.37941, 0.06258, - + 0.00001, 0.22464, 0.39399, - + 0.12287, 0.06193, 5.82961, 0.42194, 0.10920, - + 0.00002, 0.26932, 0.43688, - + 0.12766, 0.06512, 6.97356, 0.46326, 0.15419, - + 0.00002, 0.31256, 0.47851, - + 0.13202, 0.06801, 8.01993, 0.50326, 0.19753, - + 0.00905, 0.35431, 0.51878, - + 0.13603, 0.07067, 8.97472, 0.54182, 0.23914, - + 0.04767, 0.39445, 0.55757, - + 0.13976, 0.07313, 9.84731, 0.57898, 0.27915, - + 0.09180, 0.43310, 0.59494 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ - + 0.14325, 0.07542, 10.64545, 0.61473, 0.31756, - + 0.13323, 0.47023, 0.63088, - + 0.14654, 0.07756, 11.37539, 0.64904, 0.35438, - + 0.17295, 0.50584, 0.66536, - + 0.14963, 0.07957, 12.04496, 0.68197, 0.38966, - + 0.21090, 0.53999, 0.69844, - + 0.15255, 0.08148, 12.66244, 0.71360, 0.42352, - + 0.24727, 0.57277, 0.73022, - + 0.15532, 0.08327, 13.23087, 0.74395, 0.45598, - + 0.28207, 0.60421, 0.76069, - + 0.15796, 0.08497, 13.74389, 0.77277, 0.48682, - + 0.31511, 0.63407, 0.78963, - + 0.16048, 0.08658, 14.22304, 0.80057, 0.51655, - + 0.34692, 0.66286, 0.81754 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ - + 0.16288, 0.08812, 14.66714, 0.82729, 0.54510, - + 0.37744, 0.69052, 0.84436, - + 0.16516, 0.08958, 15.06887, 0.85260, 0.57218, - + 0.40639, 0.71674, 0.86976, - + 0.16736, 0.09099, 15.45178, 0.87726, 0.59853, - + 0.43451, 0.74227, 0.89451, - + 0.16946, 0.09232, 15.79320, 0.90051, 0.62341, - + 0.46108, 0.76635, 0.91783, - + 0.17150, 0.09361, 16.11903, 0.92318, 0.64764, - + 0.48692, 0.78982, 0.94057 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + 0.13310, 0.06923, 3.07660, 0.31734, 0.01350, - + 0.00001, 0.16953, 0.33378, - + 0.14006, 0.07396, 4.21919, 0.35343, 0.05474, - + 0.00001, 0.20830, 0.37026, - + 0.14622, 0.07810, 5.24090, 0.38853, 0.09438, - + 0.00003, 0.24577, 0.40569, - + 0.15172, 0.08178, 6.13208, 0.42195, 0.13186, - + 0.00002, 0.28130, 0.43939, - + 0.15672, 0.08508, 6.92730, 0.45377, 0.16735, - + 0.00742, 0.31502, 0.47144, - + 0.16127, 0.08810, 7.63787, 0.48399, 0.20093, - + 0.03885, 0.34697, 0.50185, - + 0.16551, 0.09087, 8.27315, 0.51271, 0.23277, - + 0.07440, 0.37730, 0.53075 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ - + 0.16945, 0.09343, 8.84254, 0.53999, 0.26295, - + 0.10733, 0.40607, 0.55817, - + 0.17314, 0.09581, 9.35405, 0.56586, 0.29155, - + 0.13857, 0.43334, 0.58419, - + 0.17659, 0.09805, 9.81489, 0.59044, 0.31869, - + 0.16814, 0.45924, 0.60889, - + 0.17985, 0.10015, 10.23244, 0.61384, 0.34450, - + 0.19623, 0.48387, 0.63238, - + 0.18292, 0.10212, 10.61008, 0.63603, 0.36899, - + 0.22285, 0.50724, 0.65467, - + 0.18584, 0.10396, 10.94457, 0.65690, 0.39204, - + 0.24791, 0.52922, 0.67563, - + 0.18861, 0.10570, 11.25268, 0.67687, 0.41409, - + 0.27184, 0.55025, 0.69569 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ - + 0.19125, 0.10736, 11.53408, 0.69591, 0.43511, - + 0.29464, 0.57031, 0.71481, - + 0.19375, 0.10894, 11.78216, 0.71378, 0.45487, - + 0.31608, 0.58912, 0.73273, - + 0.19615, 0.11044, 12.01576, 0.73107, 0.47397, - + 0.33678, 0.60733, 0.75007, - + 0.19843, 0.11186, 12.21901, 0.74721, 0.49186, - + 0.35620, 0.62435, 0.76626, - + 0.20064, 0.11322, 12.41085, 0.76285, 0.50918, - + 0.37498, 0.64085, 0.78195 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + 0.15116, 0.08235, 3.00073, 0.30180, 0.01230, - + 0.00001, 0.16158, 0.31998, - + 0.15887, 0.08757, 3.98180, 0.33339, 0.04938, - + 0.00001, 0.19602, 0.35191, - + 0.16566, 0.09210, 4.83776, 0.36357, 0.08439, - + 0.00003, 0.22870, 0.38238, - + 0.17169, 0.09609, 5.56809, 0.39185, 0.11697, - + 0.00001, 0.25920, 0.41089, - + 0.17715, 0.09965, 6.20721, 0.41843, 0.14744, - + 0.00638, 0.28777, 0.43767, - + 0.18210, 0.10288, 6.76805, 0.44339, 0.17594, - + 0.03327, 0.31454, 0.46276, - + 0.18669, 0.10584, 7.26082, 0.46685, 0.20268, - + 0.06342, 0.33968, 0.48636 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ - + 0.19094, 0.10855, 7.69514, 0.48890, 0.22779, - + 0.09110, 0.36329, 0.50852, - + 0.19490, 0.11105, 8.07902, 0.50962, 0.25136, - + 0.11714, 0.38546, 0.52934, - + 0.19860, 0.11339, 8.41936, 0.52913, 0.27356, - + 0.14160, 0.40634, 0.54893, - + 0.20207, 0.11558, 8.72300, 0.54755, 0.29451, - + 0.16467, 0.42605, 0.56741, - + 0.20535, 0.11763, 8.99337, 0.56488, 0.31424, - + 0.18638, 0.44460, 0.58481, - + 0.20844, 0.11952, 9.22818, 0.58105, 0.33268, - + 0.20669, 0.46192, 0.60104, - + 0.21137, 0.12132, 9.44151, 0.59641, 0.35021, - + 0.22596, 0.47838, 0.61645 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ - + 0.21415, 0.12302, 9.63339, 0.61096, 0.36682, - + 0.24422, 0.49397, 0.63105, - + 0.21677, 0.12462, 9.79865, 0.62450, 0.38232, - + 0.26129, 0.50849, 0.64461, - + 0.21928, 0.12615, 9.95258, 0.63754, 0.39724, - + 0.27769, 0.52246, 0.65766, - + 0.22166, 0.12757, 10.08275, 0.64960, 0.41111, - + 0.29299, 0.53544, 0.66975, - + 0.22396, 0.12895, 10.20421, 0.66124, 0.42449, - + 0.30771, 0.54795, 0.68141 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + 0.16706, 0.09424, 2.93643, 0.28874, 0.01140, - + 0.00003, 0.15495, 0.30829, - + 0.17537, 0.09979, 3.79703, 0.31697, 0.04535, - + 0.00003, 0.18611, 0.33681, - + 0.18265, 0.10459, 4.53271, 0.34354, 0.07694, - + 0.00004, 0.21526, 0.36361, - + 0.18911, 0.10878, 5.14857, 0.36811, 0.10598, - + 0.00004, 0.24212, 0.38834, - + 0.19491, 0.11250, 5.67919, 0.39094, 0.13284, - + 0.00566, 0.26701, 0.41131, - + 0.20017, 0.11585, 6.13669, 0.41216, 0.15772, - + 0.02932, 0.29008, 0.43265, - + 0.20502, 0.11888, 6.53273, 0.43192, 0.18089, - + 0.05568, 0.31158, 0.45252 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ - + 0.20948, 0.12167, 6.87682, 0.45036, 0.20247, - + 0.07969, 0.33161, 0.47103, - + 0.21363, 0.12424, 7.17569, 0.46753, 0.22259, - + 0.10213, 0.35027, 0.48826, - + 0.21751, 0.12661, 7.43658, 0.48357, 0.24139, - + 0.12307, 0.36771, 0.50434, - + 0.22114, 0.12881, 7.66622, 0.49860, 0.25903, - + 0.14270, 0.38406, 0.51940, - + 0.22453, 0.13088, 7.86790, 0.51265, 0.27553, - + 0.16107, 0.39934, 0.53347, - + 0.22772, 0.13278, 8.03932, 0.52562, 0.29083, - + 0.17811, 0.41347, 0.54646, - + 0.23074, 0.13457, 8.19258, 0.53789, 0.30531, - + 0.19424, 0.42685, 0.55874 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ - + 0.23360, 0.13626, 8.32788, 0.54946, 0.31899, - + 0.20947, 0.43948, 0.57031, - + 0.23631, 0.13783, 8.44142, 0.56011, 0.33166, - + 0.22362, 0.45115, 0.58098, - + 0.23890, 0.13933, 8.54592, 0.57032, 0.34382, - + 0.23717, 0.46234, 0.59121, - + 0.24132, 0.14073, 8.63130, 0.57974, 0.35508, - + 0.24976, 0.47268, 0.60061, - + 0.24366, 0.14207, 8.71006, 0.58878, 0.36589, - + 0.26184, 0.48260, 0.60964 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + 0.23037, 0.14238, 2.68956, 0.24290, 0.00859, - + 0.00000, 0.13163, 0.26645, - + 0.24048, 0.14841, 3.20585, 0.26142, 0.03334, - + 0.00002, 0.15326, 0.28495, - + 0.24919, 0.15344, 3.61381, 0.27788, 0.05525, - + 0.00001, 0.17244, 0.30138, - + 0.25672, 0.15772, 3.92986, 0.29236, 0.07452, - + 0.00002, 0.18930, 0.31579, - + 0.26337, 0.16140, 4.18309, 0.30525, 0.09172, - + 0.00368, 0.20435, 0.32859, - + 0.26927, 0.16464, 4.38658, 0.31677, 0.10712, - + 0.01877, 0.21777, 0.33999, - + 0.27461, 0.16752, 4.55016, 0.32709, 0.12103, - + 0.03524, 0.22986, 0.35021 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ - + 0.27949, 0.17008, 4.68128, 0.33637, 0.13364, - + 0.04985, 0.24078, 0.35939, - + 0.28394, 0.17235, 4.78554, 0.34471, 0.14507, - + 0.06317, 0.25065, 0.36762, - + 0.28802, 0.17440, 4.86872, 0.35224, 0.15549, - + 0.07531, 0.25960, 0.37504, - + 0.29179, 0.17628, 4.93511, 0.35907, 0.16503, - + 0.08646, 0.26776, 0.38175, - + 0.29524, 0.17801, 4.98624, 0.36527, 0.17378, - + 0.09671, 0.27519, 0.38781, - + 0.29844, 0.17954, 5.02253, 0.37079, 0.18171, - + 0.10605, 0.28189, 0.39321, - + 0.30145, 0.18095, 5.05074, 0.37586, 0.18906, - + 0.11473, 0.28807, 0.39816 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ - + 0.30427, 0.18226, 5.07113, 0.38046, 0.19584, - + 0.12275, 0.29373, 0.40266, - + 0.30688, 0.18342, 5.08129, 0.38455, 0.20200, - + 0.13009, 0.29884, 0.40664, - + 0.30937, 0.18452, 5.08812, 0.38839, 0.20784, - + 0.13703, 0.30366, 0.41038, - + 0.31163, 0.18552, 5.08587, 0.39177, 0.21309, - + 0.14335, 0.30795, 0.41364, - + 0.31379, 0.18647, 5.08184, 0.39495, 0.21807, - + 0.14933, 0.31200, 0.41670 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + 0.32353, 0.20822, 2.33149, 0.19143, 0.00582, - + -0.00011, 0.10494, 0.21682, - + 0.33420, 0.21261, 2.55776, 0.20135, 0.02213, - + -0.00010, 0.11792, 0.22624, - + 0.34293, 0.21602, 2.71158, 0.20948, 0.03571, - + -0.00012, 0.12865, 0.23386, - + 0.35019, 0.21864, 2.81105, 0.21602, 0.04711, - + -0.00012, 0.13749, 0.23993, - + 0.35636, 0.22072, 2.87604, 0.22139, 0.05681, - + 0.00200, 0.14494, 0.24491, - + 0.36167, 0.22240, 2.91558, 0.22584, 0.06514, - + 0.01061, 0.15124, 0.24893, - + 0.36627, 0.22371, 2.93654, 0.22952, 0.07237, - + 0.01974, 0.15659, 0.25222 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ - + 0.37031, 0.22474, 2.94294, 0.23252, 0.07869, - + 0.02757, 0.16118, 0.25489, - + 0.37381, 0.22559, 2.93888, 0.23499, 0.08421, - + 0.03452, 0.16508, 0.25704, - + 0.37691, 0.22625, 2.92715, 0.23702, 0.08908, - + 0.04070, 0.16845, 0.25875, - + 0.37968, 0.22675, 2.90980, 0.23869, 0.09342, - + 0.04623, 0.17138, 0.26009, - + 0.38212, 0.22713, 2.88783, 0.24007, 0.09726, - + 0.05118, 0.17391, 0.26112, - + 0.38427, 0.22736, 2.86153, 0.24107, 0.10060, - + 0.05557, 0.17599, 0.26184, - + 0.38621, 0.22751, 2.83369, 0.24186, 0.10359, - + 0.05956, 0.17781, 0.26239 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ - + 0.38797, 0.22758, 2.80427, 0.24243, 0.10626, - + 0.06316, 0.17939, 0.26276, - + 0.38950, 0.22757, 2.77247, 0.24278, 0.10860, - + 0.06634, 0.18069, 0.26285, - + 0.39091, 0.22753, 2.74123, 0.24305, 0.11076, - + 0.06931, 0.18185, 0.26288, - + 0.39211, 0.22740, 2.70816, 0.24311, 0.11264, - + 0.07194, 0.18275, 0.26270, - + 0.39322, 0.22726, 2.67594, 0.24312, 0.11439, - + 0.07440, 0.18356, 0.26248 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + 0.39633, 0.25075, 2.04614, 0.16000, 0.00439, - + 0.00000, 0.08830, 0.18444, - + 0.40534, 0.25230, 2.13651, 0.16546, 0.01621, - + 0.00003, 0.09675, 0.18908, - + 0.41228, 0.25314, 2.18071, 0.16952, 0.02570, - + 0.00003, 0.10333, 0.19236, - + 0.41768, 0.25345, 2.19287, 0.17235, 0.03336, - + 0.00001, 0.10840, 0.19445, - + 0.42198, 0.25339, 2.18715, 0.17442, 0.03969, - + 0.00144, 0.11245, 0.19586, - + 0.42547, 0.25308, 2.16903, 0.17585, 0.04495, - + 0.00715, 0.11565, 0.19678, - + 0.42830, 0.25248, 2.14268, 0.17678, 0.04940, - + 0.01304, 0.11818, 0.19717 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ - + 0.43055, 0.25177, 2.11091, 0.17729, 0.05314, - + 0.01797, 0.12021, 0.19727, - + 0.43231, 0.25095, 2.07567, 0.17753, 0.05635, - + 0.02232, 0.12181, 0.19704, - + 0.43373, 0.25001, 2.03849, 0.17752, 0.05911, - + 0.02612, 0.12309, 0.19659, - + 0.43486, 0.24902, 2.00049, 0.17732, 0.06148, - + 0.02944, 0.12410, 0.19601, - + 0.43565, 0.24803, 1.96204, 0.17701, 0.06348, - + 0.03238, 0.12484, 0.19529, - + 0.43619, 0.24699, 1.92301, 0.17647, 0.06518, - + 0.03486, 0.12532, 0.19434, - + 0.43659, 0.24591, 1.88496, 0.17585, 0.06669, - + 0.03710, 0.12567, 0.19338 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ - + 0.43685, 0.24479, 1.84771, 0.17514, 0.06801, - + 0.03911, 0.12590, 0.19241, - + 0.43693, 0.24362, 1.81057, 0.17431, 0.06909, - + 0.04088, 0.12596, 0.19131, - + 0.43694, 0.24248, 1.77513, 0.17348, 0.07006, - + 0.04249, 0.12597, 0.19022, - + 0.43676, 0.24131, 1.73997, 0.17257, 0.07083, - + 0.04387, 0.12585, 0.18903, - + 0.43655, 0.24016, 1.70644, 0.17166, 0.07154, - + 0.04514, 0.12570, 0.18786 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + 0.45572, 0.27815, 1.80115, 0.13715, 0.00346, - + 0.00007, 0.07584, 0.15922, - + 0.46175, 0.27667, 1.81457, 0.13970, 0.01240, - + 0.00005, 0.08134, 0.16081, - + 0.46591, 0.27483, 1.80085, 0.14121, 0.01938, - + 0.00009, 0.08537, 0.16140, - + 0.46863, 0.27269, 1.76984, 0.14191, 0.02481, - + 0.00009, 0.08825, 0.16134, - + 0.47042, 0.27046, 1.73120, 0.14208, 0.02917, - + 0.00111, 0.09033, 0.16082, - + 0.47154, 0.26814, 1.68831, 0.14186, 0.03273, - + 0.00512, 0.09185, 0.15999, - + 0.47201, 0.26584, 1.64338, 0.14135, 0.03562, - + 0.00923, 0.09294, 0.15896 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ - + 0.47205, 0.26350, 1.59761, 0.14064, 0.03799, - + 0.01261, 0.09364, 0.15773, - + 0.47176, 0.26114, 1.55215, 0.13976, 0.03998, - + 0.01550, 0.09408, 0.15637, - + 0.47119, 0.25881, 1.50778, 0.13876, 0.04165, - + 0.01799, 0.09432, 0.15493, - + 0.47040, 0.25655, 1.46494, 0.13770, 0.04305, - + 0.02015, 0.09439, 0.15343, - + 0.46939, 0.25435, 1.42360, 0.13663, 0.04420, - + 0.02203, 0.09432, 0.15191, - + 0.46820, 0.25210, 1.38349, 0.13547, 0.04515, - + 0.02361, 0.09407, 0.15034, - + 0.46694, 0.24991, 1.34542, 0.13426, 0.04595, - + 0.02500, 0.09377, 0.14880 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ - + 0.46561, 0.24778, 1.30910, 0.13300, 0.04662, - + 0.02623, 0.09342, 0.14726, - + 0.46415, 0.24565, 1.27398, 0.13175, 0.04712, - + 0.02725, 0.09298, 0.14572, - + 0.46270, 0.24360, 1.24091, 0.13053, 0.04755, - + 0.02817, 0.09253, 0.14423, - + 0.46109, 0.24160, 1.20892, 0.12926, 0.04790, - + 0.02897, 0.09199, 0.14269, - + 0.45950, 0.23967, 1.17876, 0.12803, 0.04820, - + 0.02969, 0.09145, 0.14121 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + 0.50431, 0.29450, 1.58593, 0.11854, 0.00275, - + 0.00007, 0.06551, 0.13798, - + 0.50642, 0.29013, 1.55280, 0.11917, 0.00962, - + 0.00007, 0.06901, 0.13748, - + 0.50722, 0.28567, 1.50636, 0.11900, 0.01480, - + 0.00007, 0.07131, 0.13656, - + 0.50683, 0.28131, 1.45307, 0.11838, 0.01881, - + 0.00004, 0.07279, 0.13504, - + 0.50567, 0.27721, 1.39881, 0.11745, 0.02196, - + 0.00078, 0.07369, 0.13330, - + 0.50397, 0.27319, 1.34532, 0.11636, 0.02442, - + 0.00373, 0.07418, 0.13153, - + 0.50198, 0.26930, 1.29339, 0.11510, 0.02639, - + 0.00669, 0.07441, 0.12964 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ - + 0.49974, 0.26551, 1.24366, 0.11366, 0.02794, - + 0.00905, 0.07436, 0.12784, - + 0.49727, 0.26181, 1.19639, 0.11217, 0.02920, - + 0.01110, 0.07416, 0.12599, - + 0.49461, 0.25831, 1.15171, 0.11072, 0.03026, - + 0.01284, 0.07385, 0.12403, - + 0.49184, 0.25499, 1.10970, 0.10930, 0.03114, - + 0.01429, 0.07344, 0.12208, - + 0.48906, 0.25174, 1.07018, 0.10782, 0.03180, - + 0.01545, 0.07294, 0.12028, - + 0.48611, 0.24857, 1.03270, 0.10638, 0.03233, - + 0.01654, 0.07239, 0.11843, - + 0.48319, 0.24555, 0.99767, 0.10495, 0.03276, - + 0.01747, 0.07181, 0.11666 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ - + 0.48029, 0.24264, 0.96477, 0.10352, 0.03307, - + 0.01825, 0.07119, 0.11496, - + 0.47738, 0.23977, 0.93347, 0.10208, 0.03333, - + 0.01888, 0.07055, 0.11328, - + 0.47454, 0.23703, 0.90427, 0.10069, 0.03354, - + 0.01945, 0.06992, 0.11167, - + 0.47158, 0.23436, 0.87657, 0.09934, 0.03366, - + 0.01995, 0.06923, 0.11007, - + 0.46869, 0.23181, 0.85065, 0.09804, 0.03375, - + 0.02039, 0.06857, 0.10854 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + 0.55124, 0.30335, 1.35102, 0.09895, 0.00206, - + 0.00008, 0.05452, 0.11495, - + 0.54815, 0.29549, 1.28468, 0.09788, 0.00714, - + 0.00004, 0.05628, 0.11298, - + 0.54417, 0.28824, 1.21704, 0.09653, 0.01092, - + 0.00011, 0.05729, 0.11060, - + 0.53949, 0.28150, 1.15112, 0.09487, 0.01368, - + 0.00006, 0.05762, 0.10818, - + 0.53448, 0.27534, 1.08961, 0.09323, 0.01575, - + 0.00058, 0.05764, 0.10575, - + 0.52942, 0.26949, 1.03265, 0.09143, 0.01735, - + 0.00260, 0.05744, 0.10346, - + 0.52423, 0.26400, 0.97995, 0.08966, 0.01863, - + 0.00464, 0.05709, 0.10115 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ - + 0.51911, 0.25873, 0.93124, 0.08786, 0.01962, - + 0.00629, 0.05655, 0.09897, - + 0.51390, 0.25385, 0.88635, 0.08613, 0.02037, - + 0.00760, 0.05596, 0.09679, - + 0.50877, 0.24919, 0.84504, 0.08445, 0.02095, - + 0.00869, 0.05533, 0.09468, - + 0.50378, 0.24472, 0.80701, 0.08279, 0.02142, - + 0.00964, 0.05466, 0.09271, - + 0.49879, 0.24057, 0.77191, 0.08120, 0.02179, - + 0.01041, 0.05394, 0.09082, - + 0.49386, 0.23653, 0.73924, 0.07963, 0.02204, - + 0.01105, 0.05320, 0.08894, - + 0.48903, 0.23273, 0.70913, 0.07815, 0.02221, - + 0.01161, 0.05248, 0.08717 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ - + 0.48427, 0.22915, 0.68125, 0.07673, 0.02229, - + 0.01208, 0.05177, 0.08549, - + 0.47962, 0.22563, 0.65519, 0.07537, 0.02236, - + 0.01247, 0.05107, 0.08380, - + 0.47516, 0.22228, 0.63109, 0.07408, 0.02242, - + 0.01282, 0.05039, 0.08219, - + 0.47072, 0.21904, 0.60840, 0.07277, 0.02241, - + 0.01310, 0.04967, 0.08068, - + 0.46645, 0.21596, 0.58734, 0.07153, 0.02239, - + 0.01334, 0.04899, 0.07926 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + 0.58452, 0.30236, 1.14794, 0.08190, 0.00165, - + 0.00017, 0.04510, 0.09494, - + 0.57578, 0.29170, 1.06488, 0.07997, 0.00536, - + 0.00012, 0.04573, 0.09210, - + 0.56701, 0.28211, 0.98862, 0.07786, 0.00808, - + 0.00014, 0.04589, 0.08919, - + 0.55798, 0.27357, 0.91938, 0.07590, 0.01001, - + 0.00015, 0.04560, 0.08629, - + 0.54933, 0.26572, 0.85763, 0.07380, 0.01149, - + 0.00049, 0.04517, 0.08362, - + 0.54098, 0.25846, 0.80251, 0.07176, 0.01255, - + 0.00196, 0.04457, 0.08121, - + 0.53282, 0.25179, 0.75290, 0.06986, 0.01334, - + 0.00333, 0.04390, 0.07880 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ - + 0.52483, 0.24559, 0.70830, 0.06806, 0.01396, - + 0.00443, 0.04319, 0.07647, - + 0.51717, 0.23977, 0.66795, 0.06627, 0.01442, - + 0.00533, 0.04245, 0.07433, - + 0.50976, 0.23433, 0.63143, 0.06456, 0.01476, - + 0.00606, 0.04173, 0.07227, - + 0.50259, 0.22924, 0.59837, 0.06296, 0.01502, - + 0.00667, 0.04101, 0.07032, - + 0.49575, 0.22435, 0.56832, 0.06139, 0.01519, - + 0.00713, 0.04022, 0.06860, - + 0.48896, 0.21981, 0.54066, 0.06000, 0.01527, - + 0.00752, 0.03950, 0.06682, - + 0.48253, 0.21549, 0.51545, 0.05863, 0.01535, - + 0.00789, 0.03878, 0.06515 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ - + 0.47642, 0.21133, 0.49238, 0.05727, 0.01541, - + 0.00827, 0.03808, 0.06358, - + 0.47033, 0.20743, 0.47115, 0.05598, 0.01539, - + 0.00852, 0.03737, 0.06215, - + 0.46448, 0.20376, 0.45164, 0.05477, 0.01534, - + 0.00873, 0.03670, 0.06080, - + 0.45873, 0.20025, 0.43326, 0.05363, 0.01529, - + 0.00884, 0.03603, 0.05945, - + 0.45324, 0.19690, 0.41633, 0.05256, 0.01524, - + 0.00896, 0.03539, 0.05817 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + 0.60533, 0.29434, 0.97191, 0.06716, 0.00123, - + 0.00006, 0.03677, 0.07749, - + 0.59099, 0.28144, 0.88223, 0.06474, 0.00403, - + 0.00007, 0.03678, 0.07424, - + 0.57737, 0.27024, 0.80448, 0.06248, 0.00606, - + 0.00006, 0.03644, 0.07103, - + 0.56459, 0.26006, 0.73694, 0.06016, 0.00742, - + -0.00001, 0.03587, 0.06824, - + 0.55242, 0.25110, 0.67862, 0.05805, 0.00843, - + 0.00028, 0.03524, 0.06553, - + 0.54096, 0.24291, 0.62775, 0.05601, 0.00916, - + 0.00137, 0.03455, 0.06310, - + 0.53020, 0.23536, 0.58301, 0.05412, 0.00974, - + 0.00235, 0.03374, 0.06083 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ - + 0.51990, 0.22841, 0.54340, 0.05233, 0.01011, - + 0.00310, 0.03293, 0.05881, - + 0.51001, 0.22199, 0.50822, 0.05065, 0.01037, - + 0.00377, 0.03222, 0.05684, - + 0.50057, 0.21606, 0.47688, 0.04911, 0.01058, - + 0.00431, 0.03148, 0.05497, - + 0.49158, 0.21056, 0.44881, 0.04770, 0.01073, - + 0.00473, 0.03070, 0.05324, - + 0.48302, 0.20545, 0.42348, 0.04634, 0.01077, - + 0.00507, 0.03000, 0.05163, - + 0.47493, 0.20045, 0.40045, 0.04493, 0.01080, - + 0.00541, 0.02932, 0.05020, - + 0.46717, 0.19580, 0.37966, 0.04368, 0.01081, - + 0.00565, 0.02865, 0.04881 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ - + 0.45968, 0.19146, 0.36079, 0.04260, 0.01081, - + 0.00577, 0.02799, 0.04741, - + 0.45240, 0.18737, 0.34354, 0.04150, 0.01077, - + 0.00589, 0.02739, 0.04613, - + 0.44549, 0.18352, 0.32781, 0.04047, 0.01072, - + 0.00601, 0.02682, 0.04493, - + 0.43885, 0.17980, 0.31332, 0.03947, 0.01068, - + 0.00608, 0.02623, 0.04379, - + 0.43253, 0.17627, 0.29997, 0.03852, 0.01062, - + 0.00614, 0.02568, 0.04272 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + 0.61483, 0.28119, 0.81970, 0.05440, 0.00090, - + 0.00002, 0.02965, 0.06228, - + 0.59524, 0.26673, 0.72974, 0.05190, 0.00303, - + 0.00000, 0.02924, 0.05897, - + 0.57749, 0.25410, 0.65482, 0.04945, 0.00445, - + -0.00005, 0.02868, 0.05605, - + 0.56094, 0.24314, 0.59176, 0.04724, 0.00543, - + 0.00004, 0.02796, 0.05337, - + 0.54571, 0.23341, 0.53851, 0.04525, 0.00613, - + 0.00034, 0.02721, 0.05091, - + 0.53170, 0.22454, 0.49304, 0.04344, 0.00665, - + 0.00104, 0.02639, 0.04871, - + 0.51848, 0.21660, 0.45365, 0.04176, 0.00698, - + 0.00176, 0.02562, 0.04668 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ - + 0.50612, 0.20925, 0.41933, 0.04012, 0.00729, - + 0.00232, 0.02488, 0.04481, - + 0.49446, 0.20255, 0.38928, 0.03860, 0.00742, - + 0.00274, 0.02419, 0.04314, - + 0.48347, 0.19639, 0.36282, 0.03722, 0.00751, - + 0.00301, 0.02352, 0.04153, - + 0.47311, 0.19067, 0.33936, 0.03595, 0.00762, - + 0.00324, 0.02287, 0.03998, - + 0.46325, 0.18533, 0.31839, 0.03477, 0.00767, - + 0.00352, 0.02227, 0.03858, - + 0.45389, 0.18035, 0.29952, 0.03367, 0.00766, - + 0.00366, 0.02163, 0.03731, - + 0.44502, 0.17567, 0.28259, 0.03266, 0.00763, - + 0.00378, 0.02102, 0.03613 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ - + 0.43655, 0.17127, 0.26732, 0.03175, 0.00758, - + 0.00391, 0.02046, 0.03502, - + 0.42844, 0.16717, 0.25344, 0.03085, 0.00754, - + 0.00403, 0.01995, 0.03388, - + 0.42079, 0.16332, 0.24083, 0.03000, 0.00750, - + 0.00413, 0.01949, 0.03282, - + 0.41349, 0.15957, 0.22926, 0.02911, 0.00745, - + 0.00417, 0.01905, 0.03191, - + 0.40656, 0.15605, 0.21867, 0.02830, 0.00739, - + 0.00421, 0.01861, 0.03106 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + 0.61442, 0.26435, 0.68826, 0.04337, 0.00063, - + 0.00001, 0.02354, 0.04950, - + 0.59020, 0.24878, 0.60187, 0.04090, 0.00221, - + 0.00009, 0.02292, 0.04645, - + 0.56847, 0.23558, 0.53213, 0.03879, 0.00333, - + 0.00004, 0.02233, 0.04345, - + 0.54880, 0.22403, 0.47499, 0.03673, 0.00402, - + 0.00007, 0.02159, 0.04113, - + 0.53118, 0.21369, 0.42763, 0.03485, 0.00454, - + 0.00023, 0.02076, 0.03913, - + 0.51491, 0.20461, 0.38774, 0.03323, 0.00496, - + 0.00074, 0.02007, 0.03707, - + 0.49960, 0.19667, 0.35371, 0.03178, 0.00513, - + 0.00121, 0.01939, 0.03530 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ - + 0.48565, 0.18918, 0.32449, 0.03037, 0.00525, - + 0.00165, 0.01867, 0.03384, - + 0.47258, 0.18240, 0.29914, 0.02914, 0.00533, - + 0.00195, 0.01808, 0.03234, - + 0.46039, 0.17616, 0.27697, 0.02797, 0.00538, - + 0.00215, 0.01750, 0.03098, - + 0.44899, 0.17039, 0.25749, 0.02687, 0.00541, - + 0.00231, 0.01690, 0.02980, - + 0.43806, 0.16520, 0.24029, 0.02595, 0.00540, - + 0.00246, 0.01638, 0.02865, - + 0.42794, 0.16009, 0.22504, 0.02497, 0.00542, - + 0.00265, 0.01586, 0.02766, - + 0.41840, 0.15543, 0.21133, 0.02410, 0.00541, - + 0.00274, 0.01535, 0.02670 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ - + 0.40935, 0.15121, 0.19889, 0.02334, 0.00534, - + 0.00272, 0.01487, 0.02575, - + 0.40061, 0.14723, 0.18788, 0.02260, 0.00531, - + 0.00276, 0.01446, 0.02485, - + 0.39239, 0.14348, 0.17796, 0.02192, 0.00527, - + 0.00280, 0.01408, 0.02401, - + 0.38462, 0.13986, 0.16883, 0.02126, 0.00519, - + 0.00280, 0.01371, 0.02324, - + 0.37727, 0.13646, 0.16054, 0.02064, 0.00511, - + 0.00281, 0.01337, 0.02253 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + 0.60512, 0.24522, 0.57498, 0.03420, 0.00045, - + 0.00000, 0.01849, 0.03850, - + 0.57695, 0.22895, 0.49443, 0.03189, 0.00170, - + 0.00015, 0.01779, 0.03579, - + 0.55200, 0.21537, 0.43117, 0.02992, 0.00239, - + -0.00003, 0.01718, 0.03346, - + 0.52992, 0.20351, 0.38020, 0.02800, 0.00299, - + 0.00014, 0.01646, 0.03145, - + 0.51011, 0.19317, 0.33882, 0.02641, 0.00337, - + 0.00017, 0.01574, 0.02963, - + 0.49198, 0.18418, 0.30443, 0.02511, 0.00360, - + 0.00053, 0.01508, 0.02797, - + 0.47542, 0.17606, 0.27543, 0.02380, 0.00372, - + 0.00090, 0.01451, 0.02661 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ - + 0.46024, 0.16869, 0.25084, 0.02266, 0.00387, - + 0.00122, 0.01391, 0.02528, - + 0.44596, 0.16220, 0.22975, 0.02173, 0.00395, - + 0.00146, 0.01340, 0.02390, - + 0.43277, 0.15619, 0.21147, 0.02080, 0.00397, - + 0.00158, 0.01292, 0.02277, - + 0.42063, 0.15054, 0.19548, 0.01988, 0.00395, - + 0.00166, 0.01244, 0.02189, - + 0.40924, 0.14536, 0.18137, 0.01905, 0.00390, - + 0.00181, 0.01198, 0.02102, - + 0.39838, 0.14066, 0.16919, 0.01842, 0.00386, - + 0.00187, 0.01156, 0.02012, - + 0.38825, 0.13628, 0.15832, 0.01779, 0.00383, - + 0.00190, 0.01116, 0.01931 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ - + 0.37878, 0.13217, 0.14851, 0.01712, 0.00379, - + 0.00190, 0.01078, 0.01861, - + 0.37003, 0.12822, 0.13974, 0.01640, 0.00372, - + 0.00192, 0.01046, 0.01798, - + 0.36180, 0.12454, 0.13186, 0.01576, 0.00364, - + 0.00194, 0.01016, 0.01739, - + 0.35354, 0.12122, 0.12476, 0.01535, 0.00361, - + 0.00202, 0.00982, 0.01674, - + 0.34582, 0.11807, 0.11829, 0.01493, 0.00358, - + 0.00206, 0.00952, 0.01616 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + 0.58881, 0.22418, 0.47773, 0.02622, 0.00031, - + 0.00017, 0.01429, 0.02978, - + 0.55701, 0.20797, 0.40443, 0.02428, 0.00134, - + 0.00008, 0.01365, 0.02731, - + 0.52957, 0.19433, 0.34790, 0.02253, 0.00189, - + -0.00001, 0.01308, 0.02532, - + 0.50518, 0.18286, 0.30341, 0.02118, 0.00226, - + 0.00005, 0.01234, 0.02361, - + 0.48373, 0.17275, 0.26767, 0.01987, 0.00249, - + 0.00015, 0.01173, 0.02215, - + 0.46435, 0.16398, 0.23843, 0.01877, 0.00266, - + 0.00045, 0.01119, 0.02077, - + 0.44678, 0.15612, 0.21412, 0.01769, 0.00273, - + 0.00070, 0.01068, 0.01970 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ - + 0.43066, 0.14906, 0.19373, 0.01678, 0.00278, - + 0.00087, 0.01024, 0.01861, - + 0.41577, 0.14277, 0.17633, 0.01601, 0.00280, - + 0.00102, 0.00980, 0.01759, - + 0.40213, 0.13695, 0.16141, 0.01529, 0.00280, - + 0.00114, 0.00937, 0.01673, - + 0.38960, 0.13156, 0.14855, 0.01458, 0.00279, - + 0.00122, 0.00898, 0.01597, - + 0.37797, 0.12666, 0.13733, 0.01390, 0.00280, - + 0.00122, 0.00867, 0.01519, - + 0.36694, 0.12216, 0.12739, 0.01333, 0.00279, - + 0.00130, 0.00836, 0.01448, - + 0.35667, 0.11799, 0.11868, 0.01279, 0.00274, - + 0.00135, 0.00805, 0.01388 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ - + 0.34708, 0.11408, 0.11101, 0.01228, 0.00267, - + 0.00135, 0.00774, 0.01339, - + 0.33807, 0.11047, 0.10409, 0.01166, 0.00264, - + 0.00138, 0.00750, 0.01302, - + 0.32962, 0.10713, 0.09788, 0.01109, 0.00261, - + 0.00140, 0.00728, 0.01266, - + 0.32149, 0.10400, 0.09234, 0.01070, 0.00255, - + 0.00137, 0.00701, 0.01217, - + 0.31383, 0.10105, 0.08731, 0.01036, 0.00249, - + 0.00135, 0.00677, 0.01173 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + 0.56553, 0.20303, 0.39443, 0.01997, 0.00038, - + 0.00015, 0.01084, 0.02238, - + 0.53116, 0.18700, 0.32888, 0.01835, 0.00099, - + 0.00003, 0.01030, 0.02044, - + 0.50162, 0.17386, 0.27941, 0.01704, 0.00140, - + 0.00000, 0.00977, 0.01873, - + 0.47614, 0.16239, 0.24109, 0.01567, 0.00166, - + 0.00003, 0.00928, 0.01746, - + 0.45346, 0.15282, 0.21062, 0.01472, 0.00187, - + 0.00010, 0.00880, 0.01613, - + 0.43342, 0.14430, 0.18611, 0.01379, 0.00190, - + 0.00035, 0.00833, 0.01520, - + 0.41528, 0.13680, 0.16583, 0.01291, 0.00201, - + 0.00053, 0.00785, 0.01434 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ - + 0.39870, 0.13012, 0.14919, 0.01217, 0.00205, - + 0.00068, 0.00744, 0.01358, - + 0.38355, 0.12413, 0.13513, 0.01155, 0.00208, - + 0.00073, 0.00713, 0.01274, - + 0.36974, 0.11868, 0.12301, 0.01097, 0.00206, - + 0.00081, 0.00682, 0.01203, - + 0.35710, 0.11371, 0.11254, 0.01039, 0.00201, - + 0.00091, 0.00650, 0.01145, - + 0.34537, 0.10920, 0.10354, 0.00987, 0.00203, - + 0.00090, 0.00622, 0.01081, - + 0.33426, 0.10500, 0.09569, 0.00940, 0.00196, - + 0.00092, 0.00600, 0.01039, - + 0.32396, 0.10114, 0.08880, 0.00898, 0.00192, - + 0.00095, 0.00579, 0.00996 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ - + 0.31438, 0.09757, 0.08270, 0.00861, 0.00192, - + 0.00099, 0.00558, 0.00950, - + 0.30542, 0.09421, 0.07732, 0.00822, 0.00189, - + 0.00101, 0.00536, 0.00919, - + 0.29705, 0.09109, 0.07252, 0.00785, 0.00186, - + 0.00102, 0.00516, 0.00891, - + 0.28901, 0.08820, 0.06823, 0.00759, 0.00183, - + 0.00102, 0.00499, 0.00855, - + 0.28151, 0.08552, 0.06433, 0.00733, 0.00180, - + 0.00102, 0.00482, 0.00821 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + 0.53721, 0.18207, 0.32396, 0.01520, 0.00016, - + -0.00009, 0.00795, 0.01659, - + 0.50117, 0.16632, 0.26604, 0.01368, 0.00064, - + -0.00008, 0.00748, 0.01525, - + 0.47035, 0.15375, 0.22326, 0.01260, 0.00095, - + -0.00011, 0.00705, 0.01390, - + 0.44374, 0.14311, 0.19074, 0.01167, 0.00116, - + -0.00006, 0.00667, 0.01272, - + 0.42073, 0.13388, 0.16526, 0.01081, 0.00127, - + 0.00001, 0.00634, 0.01175, - + 0.40023, 0.12588, 0.14509, 0.01005, 0.00136, - + 0.00017, 0.00596, 0.01103, - + 0.38200, 0.11890, 0.12854, 0.00928, 0.00140, - + 0.00031, 0.00567, 0.01035 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ - + 0.36539, 0.11266, 0.11472, 0.00877, 0.00141, - + 0.00039, 0.00532, 0.00974, - + 0.35025, 0.10709, 0.10330, 0.00835, 0.00144, - + 0.00049, 0.00507, 0.00913, - + 0.33647, 0.10205, 0.09359, 0.00786, 0.00145, - + 0.00051, 0.00484, 0.00861, - + 0.32383, 0.09747, 0.08524, 0.00739, 0.00142, - + 0.00051, 0.00459, 0.00822, - + 0.31207, 0.09333, 0.07809, 0.00712, 0.00137, - + 0.00061, 0.00438, 0.00790, - + 0.30139, 0.08950, 0.07190, 0.00676, 0.00136, - + 0.00064, 0.00418, 0.00739, - + 0.29142, 0.08600, 0.06650, 0.00645, 0.00133, - + 0.00065, 0.00400, 0.00700 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ - + 0.28204, 0.08279, 0.06174, 0.00619, 0.00129, - + 0.00067, 0.00383, 0.00675, - + 0.27341, 0.07974, 0.05754, 0.00589, 0.00128, - + 0.00066, 0.00368, 0.00644, - + 0.26538, 0.07692, 0.05381, 0.00560, 0.00127, - + 0.00066, 0.00355, 0.00614, - + 0.25761, 0.07435, 0.05045, 0.00537, 0.00124, - + 0.00066, 0.00342, 0.00591, - + 0.25035, 0.07194, 0.04744, 0.00517, 0.00121, - + 0.00066, 0.00330, 0.00568 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + 0.50481, 0.16081, 0.26316, 0.01088, 0.00025, - + 0.00016, 0.00600, 0.01214, - + 0.46737, 0.14623, 0.21340, 0.00990, 0.00057, - + 0.00012, 0.00557, 0.01096, - + 0.43606, 0.13426, 0.17721, 0.00900, 0.00081, - + 0.00013, 0.00523, 0.00994, - + 0.40927, 0.12432, 0.14992, 0.00819, 0.00095, - + 0.00006, 0.00484, 0.00918, - + 0.38622, 0.11579, 0.12888, 0.00749, 0.00099, - + 0.00012, 0.00456, 0.00850, - + 0.36585, 0.10844, 0.11212, 0.00696, 0.00102, - + 0.00022, 0.00435, 0.00786, - + 0.34751, 0.10201, 0.09864, 0.00659, 0.00110, - + 0.00028, 0.00410, 0.00723 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ - + 0.33121, 0.09630, 0.08757, 0.00601, 0.00105, - + 0.00039, 0.00381, 0.00696, - + 0.31628, 0.09123, 0.07841, 0.00569, 0.00108, - + 0.00041, 0.00359, 0.00654, - + 0.30278, 0.08664, 0.07069, 0.00540, 0.00107, - + 0.00041, 0.00341, 0.00613, - + 0.29056, 0.08254, 0.06412, 0.00510, 0.00100, - + 0.00043, 0.00325, 0.00578, - + 0.27919, 0.07896, 0.05854, 0.00499, 0.00098, - + 0.00044, 0.00306, 0.00532, - + 0.26884, 0.07545, 0.05369, 0.00470, 0.00097, - + 0.00043, 0.00292, 0.00508, - + 0.25929, 0.07224, 0.04947, 0.00439, 0.00094, - + 0.00042, 0.00277, 0.00488 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ - + 0.25042, 0.06933, 0.04578, 0.00409, 0.00090, - + 0.00041, 0.00262, 0.00471, - + 0.24200, 0.06664, 0.04254, 0.00399, 0.00087, - + 0.00047, 0.00254, 0.00451, - + 0.23416, 0.06416, 0.03967, 0.00392, 0.00085, - + 0.00053, 0.00248, 0.00431, - + 0.22666, 0.06187, 0.03712, 0.00384, 0.00085, - + 0.00049, 0.00238, 0.00409, - + 0.21975, 0.05975, 0.03484, 0.00373, 0.00084, - + 0.00046, 0.00228, 0.00389 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + 0.46931, 0.14113, 0.21305, 0.00797, 0.00013, - + -0.00002, 0.00425, 0.00869, - + 0.43155, 0.12744, 0.17039, 0.00718, 0.00039, - + -0.00001, 0.00394, 0.00779, - + 0.40020, 0.11635, 0.13987, 0.00646, 0.00058, - + -0.00004, 0.00367, 0.00707, - + 0.37377, 0.10712, 0.11712, 0.00579, 0.00060, - + -0.00002, 0.00341, 0.00655, - + 0.35087, 0.09932, 0.09981, 0.00533, 0.00069, - + 0.00003, 0.00321, 0.00604, - + 0.33079, 0.09271, 0.08628, 0.00500, 0.00071, - + 0.00012, 0.00295, 0.00560, - + 0.31297, 0.08686, 0.07548, 0.00464, 0.00066, - + 0.00011, 0.00277, 0.00519 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ - + 0.29707, 0.08180, 0.06658, 0.00441, 0.00073, - + 0.00020, 0.00260, 0.00477, - + 0.28293, 0.07723, 0.05928, 0.00409, 0.00069, - + 0.00022, 0.00243, 0.00444, - + 0.27009, 0.07309, 0.05321, 0.00380, 0.00068, - + 0.00023, 0.00228, 0.00414, - + 0.25832, 0.06936, 0.04808, 0.00359, 0.00072, - + 0.00025, 0.00215, 0.00391, - + 0.24754, 0.06595, 0.04369, 0.00340, 0.00063, - + 0.00025, 0.00203, 0.00385, - + 0.23758, 0.06297, 0.03997, 0.00331, 0.00060, - + 0.00027, 0.00197, 0.00354, - + 0.22843, 0.06022, 0.03674, 0.00317, 0.00058, - + 0.00028, 0.00189, 0.00331 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ - + 0.21998, 0.05764, 0.03392, 0.00296, 0.00058, - + 0.00027, 0.00177, 0.00321, - + 0.21208, 0.05529, 0.03140, 0.00287, 0.00058, - + 0.00028, 0.00170, 0.00302, - + 0.20480, 0.05314, 0.02917, 0.00277, 0.00057, - + 0.00030, 0.00164, 0.00284, - + 0.19822, 0.05109, 0.02723, 0.00252, 0.00054, - + 0.00030, 0.00155, 0.00274, - + 0.19201, 0.04921, 0.02550, 0.00235, 0.00052, - + 0.00030, 0.00148, 0.00263 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + 0.43142, 0.12230, 0.17056, 0.00552, 0.00014, - + 0.00008, 0.00301, 0.00621, - + 0.39442, 0.10961, 0.13469, 0.00480, 0.00031, - + 0.00005, 0.00279, 0.00554, - + 0.36316, 0.09960, 0.10935, 0.00453, 0.00046, - + 0.00003, 0.00262, 0.00495, - + 0.33732, 0.09124, 0.09074, 0.00394, 0.00046, - + 0.00001, 0.00238, 0.00456, - + 0.31510, 0.08421, 0.07678, 0.00371, 0.00050, - + 0.00002, 0.00222, 0.00418, - + 0.29593, 0.07831, 0.06584, 0.00340, 0.00049, - + 0.00010, 0.00208, 0.00389, - + 0.27891, 0.07307, 0.05720, 0.00323, 0.00048, - + 0.00013, 0.00196, 0.00347 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ - + 0.26376, 0.06847, 0.05025, 0.00302, 0.00047, - + 0.00014, 0.00179, 0.00324, - + 0.25027, 0.06443, 0.04449, 0.00280, 0.00046, - + 0.00018, 0.00169, 0.00304, - + 0.23804, 0.06084, 0.03975, 0.00264, 0.00046, - + 0.00022, 0.00160, 0.00282, - + 0.22692, 0.05761, 0.03580, 0.00252, 0.00046, - + 0.00023, 0.00150, 0.00262, - + 0.21691, 0.05470, 0.03241, 0.00236, 0.00041, - + 0.00023, 0.00139, 0.00250, - + 0.20775, 0.05203, 0.02952, 0.00215, 0.00040, - + 0.00020, 0.00131, 0.00237, - + 0.19927, 0.04960, 0.02703, 0.00204, 0.00041, - + 0.00020, 0.00126, 0.00222 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ - + 0.19136, 0.04737, 0.02488, 0.00204, 0.00041, - + 0.00024, 0.00124, 0.00205, - + 0.18412, 0.04534, 0.02301, 0.00197, 0.00043, - + 0.00023, 0.00118, 0.00192, - + 0.17744, 0.04348, 0.02136, 0.00190, 0.00043, - + 0.00021, 0.00111, 0.00180, - + 0.17113, 0.04171, 0.01987, 0.00180, 0.00041, - + 0.00020, 0.00104, 0.00176, - + 0.16530, 0.04010, 0.01855, 0.00170, 0.00038, - + 0.00019, 0.00098, 0.00171 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + 0.39292, 0.10473, 0.13558, 0.00368, 0.00011, - + 0.00004, 0.00209, 0.00431, - + 0.35631, 0.09346, 0.10575, 0.00339, 0.00018, - + 0.00004, 0.00194, 0.00384, - + 0.32636, 0.08442, 0.08497, 0.00313, 0.00028, - + 0.00007, 0.00166, 0.00358, - + 0.30153, 0.07698, 0.06994, 0.00280, 0.00024, - + 0.00003, 0.00156, 0.00321, - + 0.28047, 0.07080, 0.05870, 0.00256, 0.00028, - + 0.00004, 0.00145, 0.00291, - + 0.26221, 0.06546, 0.04999, 0.00235, 0.00032, - + 0.00006, 0.00136, 0.00269, - + 0.24609, 0.06090, 0.04314, 0.00227, 0.00031, - + 0.00009, 0.00125, 0.00232 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ - + 0.23191, 0.05686, 0.03767, 0.00209, 0.00029, - + 0.00010, 0.00114, 0.00222, - + 0.21935, 0.05334, 0.03322, 0.00192, 0.00029, - + 0.00008, 0.00108, 0.00203, - + 0.20799, 0.05021, 0.02956, 0.00180, 0.00030, - + 0.00007, 0.00102, 0.00185, - + 0.19769, 0.04741, 0.02651, 0.00170, 0.00029, - + 0.00008, 0.00096, 0.00176, - + 0.18841, 0.04491, 0.02390, 0.00160, 0.00028, - + 0.00010, 0.00090, 0.00163, - + 0.17975, 0.04262, 0.02171, 0.00162, 0.00027, - + 0.00012, 0.00083, 0.00149, - + 0.17190, 0.04053, 0.01983, 0.00159, 0.00026, - + 0.00011, 0.00078, 0.00138 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ - + 0.16478, 0.03863, 0.01820, 0.00150, 0.00026, - + 0.00009, 0.00074, 0.00129, - + 0.15824, 0.03689, 0.01678, 0.00138, 0.00024, - + 0.00010, 0.00072, 0.00125, - + 0.15223, 0.03530, 0.01554, 0.00127, 0.00021, - + 0.00011, 0.00069, 0.00121, - + 0.14661, 0.03382, 0.01445, 0.00118, 0.00020, - + 0.00010, 0.00065, 0.00113, - + 0.14137, 0.03245, 0.01347, 0.00112, 0.00020, - + 0.00010, 0.00061, 0.00106 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + 0.35342, 0.08888, 0.10666, 0.00257, 0.00010, - + 0.00006, 0.00143, 0.00299, - + 0.31843, 0.07865, 0.08197, 0.00221, 0.00015, - + 0.00002, 0.00131, 0.00267, - + 0.28982, 0.07058, 0.06514, 0.00200, 0.00016, - + -0.00002, 0.00119, 0.00246, - + 0.26638, 0.06403, 0.05305, 0.00186, 0.00025, - + -0.00001, 0.00110, 0.00209, - + 0.24653, 0.05861, 0.04410, 0.00173, 0.00027, - + 0.00004, 0.00100, 0.00181, - + 0.22940, 0.05395, 0.03733, 0.00158, 0.00027, - + 0.00002, 0.00094, 0.00169, - + 0.21463, 0.05002, 0.03204, 0.00141, 0.00023, - + 0.00004, 0.00089, 0.00152 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ - + 0.20153, 0.04651, 0.02782, 0.00133, 0.00026, - + 0.00007, 0.00082, 0.00135, - + 0.18978, 0.04347, 0.02440, 0.00126, 0.00023, - + 0.00007, 0.00073, 0.00124, - + 0.17925, 0.04079, 0.02161, 0.00122, 0.00020, - + 0.00007, 0.00067, 0.00115, - + 0.16985, 0.03837, 0.01929, 0.00118, 0.00021, - + 0.00006, 0.00065, 0.00107, - + 0.16148, 0.03617, 0.01733, 0.00102, 0.00020, - + 0.00004, 0.00059, 0.00098, - + 0.15365, 0.03426, 0.01569, 0.00104, 0.00021, - + 0.00007, 0.00060, 0.00090, - + 0.14662, 0.03252, 0.01429, 0.00097, 0.00021, - + 0.00010, 0.00058, 0.00088 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ - + 0.14031, 0.03090, 0.01307, 0.00080, 0.00020, - + 0.00011, 0.00054, 0.00091, - + 0.13439, 0.02943, 0.01202, 0.00077, 0.00019, - + 0.00010, 0.00050, 0.00083, - + 0.12895, 0.02809, 0.01111, 0.00075, 0.00019, - + 0.00008, 0.00046, 0.00074, - + 0.12394, 0.02685, 0.01031, 0.00065, 0.00018, - + 0.00008, 0.00044, 0.00070, - + 0.11929, 0.02571, 0.00960, 0.00058, 0.00018, - + 0.00009, 0.00043, 0.00066 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + 0.31454, 0.07454, 0.08307, 0.00176, -0.00001, - + -0.00007, 0.00091, 0.00204, - + 0.28150, 0.06557, 0.06310, 0.00148, 0.00005, - + -0.00003, 0.00082, 0.00176, - + 0.25488, 0.05849, 0.04952, 0.00133, 0.00009, - + -0.00007, 0.00076, 0.00163, - + 0.23292, 0.05285, 0.03998, 0.00126, 0.00012, - + -0.00002, 0.00071, 0.00134, - + 0.21451, 0.04809, 0.03302, 0.00111, 0.00013, - + -0.00002, 0.00063, 0.00125, - + 0.19881, 0.04410, 0.02776, 0.00104, 0.00014, - + -0.00001, 0.00059, 0.00112, - + 0.18529, 0.04070, 0.02371, 0.00098, 0.00015, - + 0.00003, 0.00057, 0.00099 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ - + 0.17320, 0.03779, 0.02047, 0.00097, 0.00014, - + 0.00002, 0.00049, 0.00087, - + 0.16256, 0.03519, 0.01788, 0.00091, 0.00014, - + 0.00001, 0.00044, 0.00077, - + 0.15321, 0.03288, 0.01577, 0.00078, 0.00014, - + 0.00002, 0.00042, 0.00074, - + 0.14484, 0.03085, 0.01402, 0.00068, 0.00014, - + 0.00005, 0.00040, 0.00075, - + 0.13716, 0.02903, 0.01256, 0.00069, 0.00013, - + 0.00005, 0.00039, 0.00068, - + 0.13011, 0.02742, 0.01134, 0.00070, 0.00014, - + 0.00003, 0.00037, 0.00061, - + 0.12388, 0.02595, 0.01029, 0.00063, 0.00015, - + 0.00003, 0.00035, 0.00057 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ - + 0.11840, 0.02459, 0.00940, 0.00049, 0.00014, - + 0.00005, 0.00033, 0.00055, - + 0.11305, 0.02338, 0.00863, 0.00049, 0.00014, - + 0.00004, 0.00030, 0.00050, - + 0.10812, 0.02228, 0.00795, 0.00051, 0.00013, - + 0.00003, 0.00028, 0.00045, - + 0.10370, 0.02123, 0.00736, 0.00043, 0.00012, - + 0.00003, 0.00026, 0.00045, - + 0.09961, 0.02027, 0.00683, 0.00037, 0.00011, - + 0.00003, 0.00025, 0.00044 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + 0.27666, 0.06165, 0.06381, 0.00102, -0.00004, - + -0.00001, 0.00056, 0.00138, - + 0.24572, 0.05389, 0.04786, 0.00103, 0.00004, - + -0.00005, 0.00051, 0.00107, - + 0.22130, 0.04782, 0.03721, 0.00089, -0.00001, - + -0.00007, 0.00044, 0.00102, - + 0.20116, 0.04293, 0.02978, 0.00082, 0.00007, - + -0.00002, 0.00044, 0.00090, - + 0.18426, 0.03892, 0.02442, 0.00084, 0.00006, - + -0.00002, 0.00039, 0.00080, - + 0.17016, 0.03556, 0.02040, 0.00075, 0.00007, - + -0.00002, 0.00037, 0.00065, - + 0.15773, 0.03269, 0.01729, 0.00072, 0.00006, - + -0.00001, 0.00033, 0.00062 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ - + 0.14710, 0.03021, 0.01486, 0.00065, 0.00006, - + 0.00001, 0.00031, 0.00054, - + 0.13760, 0.02802, 0.01291, 0.00064, 0.00008, - + 0.00001, 0.00028, 0.00046, - + 0.12914, 0.02611, 0.01134, 0.00060, 0.00009, - + 0.00001, 0.00026, 0.00043, - + 0.12168, 0.02444, 0.01006, 0.00052, 0.00010, - + 0.00003, 0.00025, 0.00043, - + 0.11503, 0.02295, 0.00898, 0.00047, 0.00009, - + 0.00003, 0.00024, 0.00043, - + 0.10897, 0.02160, 0.00808, 0.00038, 0.00009, - + 0.00004, 0.00023, 0.00041, - + 0.10350, 0.02038, 0.00732, 0.00031, 0.00009, - + 0.00004, 0.00022, 0.00038 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ - + 0.09853, 0.01928, 0.00666, 0.00027, 0.00010, - + 0.00003, 0.00022, 0.00034, - + 0.09385, 0.01828, 0.00610, 0.00028, 0.00009, - + 0.00003, 0.00021, 0.00032, - + 0.08957, 0.01738, 0.00561, 0.00030, 0.00008, - + 0.00004, 0.00020, 0.00031, - + 0.08566, 0.01653, 0.00518, 0.00027, 0.00008, - + 0.00003, 0.00018, 0.00029, - + 0.08207, 0.01576, 0.00481, 0.00024, 0.00008, - + 0.00002, 0.00017, 0.00028 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + 0.24039, 0.05039, 0.04845, 0.00069, -0.00006, - + -0.00009, 0.00030, 0.00082, - + 0.21212, 0.04368, 0.03586, 0.00064, -0.00004, - + -0.00005, 0.00030, 0.00072, - + 0.18958, 0.03860, 0.02751, 0.00074, 0.00002, - + -0.00005, 0.00027, 0.00048, - + 0.17136, 0.03440, 0.02185, 0.00061, 0.00005, - + -0.00004, 0.00024, 0.00053, - + 0.15652, 0.03101, 0.01775, 0.00049, 0.00004, - + -0.00006, 0.00024, 0.00043, - + 0.14378, 0.02821, 0.01472, 0.00037, 0.00004, - + -0.00006, 0.00021, 0.00044, - + 0.13279, 0.02581, 0.01241, 0.00040, 0.00006, - + -0.00004, 0.00021, 0.00040 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ - + 0.12324, 0.02377, 0.01061, 0.00039, 0.00007, - + 0.00001, 0.00020, 0.00034, - + 0.11500, 0.02198, 0.00917, 0.00031, 0.00009, - + 0.00003, 0.00019, 0.00030, - + 0.10758, 0.02042, 0.00802, 0.00027, 0.00008, - + 0.00003, 0.00018, 0.00030, - + 0.10090, 0.01905, 0.00708, 0.00028, 0.00006, - + 0.00002, 0.00017, 0.00029, - + 0.09513, 0.01781, 0.00630, 0.00026, 0.00008, - + 0.00003, 0.00017, 0.00025, - + 0.08982, 0.01672, 0.00566, 0.00023, 0.00008, - + 0.00004, 0.00017, 0.00023, - + 0.08503, 0.01574, 0.00511, 0.00020, 0.00008, - + 0.00004, 0.00016, 0.00023 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ - + 0.08069, 0.01485, 0.00464, 0.00016, 0.00006, - + 0.00003, 0.00013, 0.00025, - + 0.07674, 0.01405, 0.00424, 0.00014, 0.00005, - + 0.00003, 0.00013, 0.00023, - + 0.07312, 0.01332, 0.00389, 0.00013, 0.00005, - + 0.00003, 0.00013, 0.00021, - + 0.06974, 0.01264, 0.00359, 0.00015, 0.00006, - + 0.00003, 0.00012, 0.00017, - + 0.06665, 0.01202, 0.00332, 0.00015, 0.00006, - + 0.00003, 0.00012, 0.00015 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + 0.20605, 0.04044, 0.03616, 0.00038, 0.00000, - + -0.00001, 0.00021, 0.00057, - + 0.18017, 0.03485, 0.02638, 0.00050, 0.00000, - + -0.00007, 0.00017, 0.00041, - + 0.16046, 0.03051, 0.02003, 0.00027, 0.00000, - + -0.00004, 0.00017, 0.00037, - + 0.14426, 0.02711, 0.01573, 0.00027, 0.00004, - + -0.00005, 0.00016, 0.00029, - + 0.13100, 0.02431, 0.01268, 0.00018, 0.00005, - + -0.00002, 0.00017, 0.00029, - + 0.11959, 0.02202, 0.01044, 0.00023, 0.00005, - + 0.00000, 0.00018, 0.00030, - + 0.11008, 0.02006, 0.00875, 0.00018, 0.00007, - + 0.00000, 0.00016, 0.00026 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ - + 0.10181, 0.01839, 0.00744, 0.00015, 0.00006, - + 0.00001, 0.00013, 0.00023, - + 0.09456, 0.01695, 0.00641, 0.00012, 0.00007, - + 0.00001, 0.00012, 0.00022, - + 0.08820, 0.01569, 0.00558, 0.00010, 0.00007, - + 0.00002, 0.00012, 0.00020, - + 0.08254, 0.01458, 0.00490, 0.00011, 0.00006, - + 0.00003, 0.00012, 0.00017, - + 0.07741, 0.01360, 0.00436, 0.00014, 0.00007, - + 0.00003, 0.00010, 0.00016, - + 0.07295, 0.01271, 0.00390, 0.00008, 0.00006, - + 0.00002, 0.00010, 0.00013, - + 0.06890, 0.01193, 0.00351, 0.00005, 0.00005, - + 0.00002, 0.00011, 0.00011 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ - + 0.06518, 0.01124, 0.00318, 0.00007, 0.00005, - + 0.00002, 0.00010, 0.00009, - + 0.06177, 0.01060, 0.00290, 0.00007, 0.00006, - + 0.00003, 0.00009, 0.00009, - + 0.05868, 0.01003, 0.00266, 0.00007, 0.00006, - + 0.00003, 0.00008, 0.00009, - + 0.05590, 0.00950, 0.00244, 0.00003, 0.00005, - + 0.00002, 0.00007, 0.00009, - + 0.05333, 0.00902, 0.00226, 0.00002, 0.00005, - + 0.00002, 0.00006, 0.00009 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + 0.17410, 0.03211, 0.02669, 0.00040, -0.00007, - + -0.00011, 0.00007, 0.00030, - + 0.15158, 0.02746, 0.01920, 0.00026, -0.00004, - + -0.00008, 0.00009, 0.00025, - + 0.13383, 0.02392, 0.01443, 0.00025, -0.00002, - + -0.00005, 0.00006, 0.00023, - + 0.11977, 0.02111, 0.01124, 0.00018, 0.00002, - + -0.00005, 0.00007, 0.00021, - + 0.10815, 0.01885, 0.00900, 0.00015, 0.00003, - + -0.00004, 0.00008, 0.00017, - + 0.09841, 0.01700, 0.00737, 0.00017, 0.00003, - + -0.00003, 0.00008, 0.00014, - + 0.09013, 0.01541, 0.00615, 0.00016, 0.00002, - + -0.00003, 0.00007, 0.00010 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ - + 0.08294, 0.01410, 0.00520, 0.00013, 0.00004, - + -0.00001, 0.00007, 0.00011, - + 0.07677, 0.01294, 0.00446, 0.00013, 0.00003, - + 0.00000, 0.00007, 0.00011, - + 0.07139, 0.01193, 0.00387, 0.00010, 0.00002, - + 0.00000, 0.00007, 0.00010, - + 0.06663, 0.01106, 0.00340, 0.00005, 0.00002, - + 0.00000, 0.00007, 0.00010, - + 0.06238, 0.01029, 0.00301, 0.00003, 0.00004, - + 0.00001, 0.00008, 0.00010, - + 0.05855, 0.00960, 0.00268, 0.00004, 0.00003, - + 0.00001, 0.00006, 0.00010, - + 0.05511, 0.00898, 0.00241, 0.00005, 0.00003, - + 0.00001, 0.00005, 0.00009 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ - + 0.05200, 0.00844, 0.00218, 0.00004, 0.00002, - + 0.00001, 0.00005, 0.00008, - + 0.04917, 0.00794, 0.00198, 0.00004, 0.00002, - + 0.00000, 0.00005, 0.00008, - + 0.04660, 0.00749, 0.00181, 0.00005, 0.00003, - + 0.00000, 0.00005, 0.00007, - + 0.04422, 0.00708, 0.00167, 0.00008, 0.00003, - + 0.00001, 0.00005, 0.00006, - + 0.04206, 0.00671, 0.00154, 0.00009, 0.00003, - + 0.00002, 0.00005, 0.00005 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + 0.14469, 0.02489, 0.01921, 0.00016, -0.00001, - + -0.00003, 0.00007, 0.00020, - + 0.12499, 0.02117, 0.01370, 0.00019, -0.00002, - + -0.00004, 0.00005, 0.00015, - + 0.10991, 0.01833, 0.01022, 0.00010, 0.00000, - + -0.00005, 0.00002, 0.00010, - + 0.09765, 0.01612, 0.00790, 0.00015, 0.00000, - + -0.00002, 0.00004, 0.00010, - + 0.08775, 0.01434, 0.00627, 0.00015, 0.00000, - + -0.00002, 0.00004, 0.00005, - + 0.07952, 0.01287, 0.00510, 0.00014, 0.00000, - + -0.00001, 0.00003, 0.00007, - + 0.07260, 0.01163, 0.00423, 0.00010, 0.00002, - + -0.00002, 0.00003, 0.00005 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ - + 0.06659, 0.01059, 0.00357, 0.00009, 0.00002, - + 0.00000, 0.00004, 0.00007, - + 0.06144, 0.00969, 0.00305, 0.00005, 0.00002, - + 0.00000, 0.00004, 0.00008, - + 0.05690, 0.00892, 0.00264, 0.00004, 0.00001, - + -0.00001, 0.00003, 0.00007, - + 0.05286, 0.00825, 0.00231, 0.00006, 0.00000, - + -0.00001, 0.00002, 0.00006, - + 0.04934, 0.00765, 0.00204, 0.00005, 0.00000, - + -0.00001, 0.00001, 0.00005, - + 0.04620, 0.00712, 0.00181, 0.00004, 0.00000, - + 0.00000, 0.00001, 0.00006, - + 0.04337, 0.00665, 0.00162, 0.00004, 0.00001, - + 0.00000, 0.00002, 0.00007 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ - + 0.04081, 0.00623, 0.00147, 0.00006, 0.00001, - + 0.00001, 0.00002, 0.00005, - + 0.03851, 0.00584, 0.00133, 0.00004, 0.00000, - + 0.00000, 0.00001, 0.00005, - + 0.03643, 0.00550, 0.00122, 0.00003, 0.00000, - + -0.00001, 0.00000, 0.00005, - + 0.03453, 0.00519, 0.00111, 0.00002, 0.00000, - + -0.00001, 0.00001, 0.00004, - + 0.03280, 0.00491, 0.00103, 0.00002, 0.00000, - + -0.00001, 0.00001, 0.00004 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + 0.09485, 0.01410, 0.00935, 0.00006, -0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.08057, 0.01182, 0.00647, 0.00009, 0.00000, - + -0.00002, 0.00000, 0.00002, - + 0.06975, 0.01009, 0.00471, 0.00008, 0.00000, - + -0.00001, 0.00003, 0.00001, - + 0.06131, 0.00876, 0.00357, 0.00003, 0.00000, - + -0.00001, 0.00002, 0.00002, - + 0.05450, 0.00770, 0.00279, 0.00002, 0.00000, - + -0.00001, 0.00001, 0.00002, - + 0.04890, 0.00684, 0.00224, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00001, - + 0.04418, 0.00613, 0.00184, 0.00002, 0.00002, - + 0.00000, 0.00002, 0.00001 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ - + 0.04017, 0.00553, 0.00153, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00001, - + 0.03673, 0.00502, 0.00130, 0.00000, 0.00000, - + 0.00000, 0.00001, 0.00003, - + 0.03375, 0.00458, 0.00111, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00003, - + 0.03115, 0.00420, 0.00097, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02889, 0.00387, 0.00085, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00001, - + 0.02684, 0.00358, 0.00075, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00000, - + 0.02503, 0.00333, 0.00067, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00000 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ - + 0.02344, 0.00310, 0.00060, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00000, - + 0.02200, 0.00289, 0.00054, 0.00001, 0.00001, - + 0.00000, 0.00000, 0.00000, - + 0.02070, 0.00271, 0.00049, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01950, 0.00254, 0.00045, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00000, - + 0.01841, 0.00239, 0.00041, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + 0.05704, 0.00726, 0.00410, 0.00004, -0.00001, - + -0.00002, -0.00001, -0.00001, - + 0.04773, 0.00598, 0.00275, 0.00002, 0.00000, - + 0.00000, 0.00001, 0.00000, - + 0.04067, 0.00503, 0.00196, 0.00002, 0.00000, - + -0.00001, 0.00001, 0.00000, - + 0.03528, 0.00431, 0.00145, -0.00001, 0.00000, - + -0.00001, 0.00001, 0.00002, - + 0.03095, 0.00375, 0.00112, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.02748, 0.00329, 0.00088, -0.00001, 0.00000, - + -0.00001, 0.00000, 0.00000, - + 0.02457, 0.00292, 0.00072, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ - + 0.02212, 0.00261, 0.00059, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.02006, 0.00235, 0.00050, -0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01828, 0.00213, 0.00042, -0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01673, 0.00194, 0.00036, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01539, 0.00177, 0.00032, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01421, 0.00163, 0.00028, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01317, 0.00150, 0.00025, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ - + 0.01225, 0.00139, 0.00022, -0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01143, 0.00129, 0.00020, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01069, 0.00120, 0.00018, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01001, 0.00112, 0.00017, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00940, 0.00105, 0.00015, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + 0.03047, 0.00325, 0.00154, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.02501, 0.00263, 0.00100, 0.00000, 0.00000, - + -0.00001, -0.00001, 0.00000, - + 0.02101, 0.00218, 0.00070, -0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01793, 0.00184, 0.00051, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01552, 0.00158, 0.00038, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01360, 0.00137, 0.00030, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01203, 0.00120, 0.00024, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ - + 0.01073, 0.00106, 0.00020, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00963, 0.00095, 0.00016, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00869, 0.00085, 0.00014, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00789, 0.00077, 0.00012, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00719, 0.00070, 0.00010, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00660, 0.00064, 0.00009, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00608, 0.00058, 0.00008, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ - + 0.00561, 0.00054, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00520, 0.00049, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00483, 0.00046, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00449, 0.00042, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00420, 0.00039, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + 0.01382, 0.00120, 0.00046, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01108, 0.00095, 0.00029, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00911, 0.00077, 0.00020, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00765, 0.00064, 0.00014, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00652, 0.00054, 0.00010, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00563, 0.00046, 0.00008, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00491, 0.00040, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ - + 0.00432, 0.00035, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00383, 0.00031, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00342, 0.00027, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00308, 0.00024, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00278, 0.00022, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00252, 0.00020, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00230, 0.00018, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ - + 0.00211, 0.00016, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00194, 0.00015, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00179, 0.00014, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00165, 0.00013, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00153, 0.00012, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + 0.00105, 0.00005, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00079, 0.00004, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00062, 0.00003, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00049, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00040, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00033, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00028, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ - + 0.00024, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00021, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00018, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00016, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00014, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ - + 0.00010, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00006, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,5,10,0,0,10,10/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ - - - XSAVE=X - - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(83,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7) GO TO 31 - DO 30 K=1,19 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,8 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) - - X=XSAVE - - RETURN - END diff --git a/PDF/spdf/sfmsbdm.F b/PDF/spdf/sfmsbdm.F deleted file mode 100644 index be79874ff92..00000000000 --- a/PDF/spdf/sfmsbdm.F +++ /dev/null @@ -1,1981 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:20 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:43 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFMSBDM(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) - -C THIS IS THE NEW B--TYPE FIT "D-'" WITH UBAR < DBAR (230 MEV) - -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,20),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + 0.00678, 0.00419, 113.36284, 5.27780, 0.35692, - + 0.00000, 2.84427, 5.29945, - + 0.00730, 0.00436, 131.82452, 6.20395, 1.45539, - + 0.00002, 3.85845, 6.22611, - + 0.00777, 0.00453, 151.84360, 7.13090, 2.52854, - + 0.00000, 4.86021, 7.15350, - + 0.00821, 0.00469, 173.24471, 8.05506, 3.57931, - + 0.00002, 5.84926, 8.07807, - + 0.00861, 0.00484, 195.67310, 8.98680, 4.62236, - + 0.22312, 6.83812, 9.01019, - + 0.00900, 0.00499, 218.97154, 9.92759, 5.66247, - + 1.19609, 7.82991, 9.95134, - + 0.00936, 0.00514, 243.08543, 10.88139, 6.70616, - + 2.34336, 8.82993, 10.90546 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ - + 0.00971, 0.00527, 267.88794, 11.84809, 7.75492, - + 3.46835, 9.83886, 11.87251, - + 0.01004, 0.00541, 293.24634, 12.82652, 8.80872, - + 4.59493, 10.85609, 12.85123, - + 0.01036, 0.00554, 319.05518, 13.81594, 9.86774, - + 5.72057, 11.88139, 13.84097, - + 0.01067, 0.00567, 345.24023, 14.81560, 10.93198, - + 6.84680, 12.91434, 14.84097, - + 0.01096, 0.00580, 371.73511, 15.82350, 12.00007, - + 7.97259, 13.95329, 15.84915, - + 0.01125, 0.00592, 398.40186, 16.83650, 13.06944, - + 9.09607, 14.99539, 16.86246, - + 0.01153, 0.00604, 425.26733, 17.85757, 14.14339, - + 10.22076, 16.04376, 17.88382 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ - + 0.01180, 0.00615, 452.28052, 18.88461, 15.22017, - + 11.34535, 17.09650, 18.91115, - + 0.01206, 0.00627, 479.26636, 19.91306, 16.29565, - + 12.46604, 18.14926, 19.93991, - + 0.01232, 0.00638, 506.41284, 20.94939, 17.37643, - + 13.58954, 19.20856, 20.97653, - + 0.01257, 0.00649, 533.42773, 21.98399, 18.45329, - + 14.70706, 20.26501, 22.01143, - + 0.01281, 0.00660, 560.54785, 23.02464, 19.53406, - + 15.82642, 21.32640, 23.05238 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + 0.00939, 0.00549, 80.27980, 3.87419, 0.25437, - + 0.00000, 2.07839, 3.88658, - + 0.01008, 0.00576, 93.60220, 4.53371, 1.03551, - + 0.00000, 2.79968, 4.54639, - + 0.01071, 0.00600, 107.86388, 5.19118, 1.79613, - + 0.00000, 3.50961, 5.20409, - + 0.01129, 0.00623, 122.91042, 5.84359, 2.53785, - + 0.00001, 4.20749, 5.85673, - + 0.01183, 0.00645, 138.51331, 6.49805, 3.27081, - + 0.15652, 4.90196, 6.51140, - + 0.01234, 0.00667, 154.56241, 7.15547, 3.99826, - + 0.83751, 5.59509, 7.16902, - + 0.01282, 0.00687, 171.01875, 7.81849, 4.72466, - + 1.63737, 6.29047, 7.83222 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ - + 0.01328, 0.00707, 187.79852, 8.48701, 5.45104, - + 2.41790, 6.98854, 8.50095, - + 0.01373, 0.00726, 204.81503, 9.16018, 6.17734, - + 3.19589, 7.68887, 9.17431, - + 0.01415, 0.00744, 222.00342, 9.83761, 6.90384, - + 3.96968, 8.39140, 9.85194, - + 0.01456, 0.00762, 239.31995, 10.51890, 7.63064, - + 4.74047, 9.09596, 10.53339, - + 0.01495, 0.00779, 256.72217, 11.20261, 8.35678, - + 5.50756, 9.80139, 11.21728, - + 0.01533, 0.00796, 274.10986, 11.88644, 9.08034, - + 6.26951, 10.50556, 11.90128, - + 0.01570, 0.00813, 291.52759, 12.57295, 9.80411, - + 7.02928, 11.21116, 12.58797 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ - + 0.01605, 0.00829, 308.94043, 13.26074, 10.52696, - + 7.78604, 11.91692, 13.27591, - + 0.01640, 0.00845, 326.22144, 13.94627, 11.24564, - + 8.53678, 12.61945, 13.96163, - + 0.01674, 0.00860, 343.52930, 14.63490, 11.96560, - + 9.28704, 13.32413, 14.65041, - + 0.01707, 0.00876, 360.64111, 15.31921, 12.67969, - + 10.02994, 14.02371, 15.33488, - + 0.01739, 0.00890, 377.74976, 16.00546, 13.39423, - + 10.77185, 14.72448, 16.02132 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + 0.01300, 0.00721, 56.85426, 2.84456, 0.18115, - + 0.00000, 1.51946, 2.85167, - + 0.01392, 0.00760, 66.46410, 3.31391, 0.73626, - + 0.00000, 2.03211, 3.32119, - + 0.01476, 0.00795, 76.62157, 3.77994, 1.27502, - + 0.00001, 2.53489, 3.78738, - + 0.01553, 0.00829, 87.19536, 4.24018, 1.79820, - + 0.00001, 3.02696, 4.24776, - + 0.01625, 0.00860, 98.04134, 4.69950, 2.31283, - + 0.10972, 3.51426, 4.70722, - + 0.01693, 0.00890, 109.08383, 5.15846, 2.82113, - + 0.58597, 3.99820, 5.16630, - + 0.01757, 0.00919, 120.29666, 5.61885, 3.32615, - + 1.14314, 4.48120, 5.62680 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ - + 0.01818, 0.00947, 131.62527, 6.08059, 3.82862, - + 1.68411, 4.96357, 6.08866, - + 0.01876, 0.00974, 143.01680, 6.54310, 4.32855, - + 2.22076, 5.44505, 6.55128, - + 0.01932, 0.00999, 154.43156, 7.00618, 4.82617, - + 2.75198, 5.92565, 7.01447, - + 0.01986, 0.01024, 165.84703, 7.46966, 5.32169, - + 3.27876, 6.40538, 7.47806, - + 0.02038, 0.01049, 177.23659, 7.93260, 5.81449, - + 3.80066, 6.88347, 7.94109, - + 0.02088, 0.01072, 188.52869, 8.39322, 6.30307, - + 4.31651, 7.35828, 8.40183, - + 0.02137, 0.01095, 199.77345, 8.85376, 6.78984, - + 4.82886, 7.83214, 8.86251 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ - + 0.02184, 0.01118, 210.94688, 9.31324, 7.27400, - + 5.33710, 8.30415, 9.32209, - + 0.02229, 0.01139, 221.95897, 9.76902, 7.75311, - + 5.83896, 8.77178, 9.77798, - + 0.02274, 0.01160, 232.93710, 10.22538, 8.23151, - + 6.33889, 9.23934, 10.23443, - + 0.02317, 0.01181, 243.71588, 10.67667, 8.70375, - + 6.83158, 9.70126, 10.68579, - + 0.02359, 0.01201, 254.44711, 11.12789, 9.17487, - + 7.32211, 10.16260, 11.13712 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + 0.01571, 0.00846, 46.46518, 2.37480, 0.14849, - + 0.00000, 1.26558, 2.38015, - + 0.01680, 0.00894, 54.40184, 2.75933, 0.60292, - + 0.00000, 1.68528, 2.76483, - + 0.01780, 0.00938, 62.72838, 3.14024, 1.04310, - + 0.00000, 2.09603, 3.14587, - + 0.01871, 0.00980, 71.32774, 3.51535, 1.46949, - + 0.00000, 2.49698, 3.52112, - + 0.01956, 0.01019, 80.09055, 3.88856, 1.88777, - + 0.08910, 2.89289, 3.89444, - + 0.02036, 0.01055, 88.95720, 4.26029, 2.29968, - + 0.47528, 3.28488, 4.26627, - + 0.02111, 0.01090, 97.90706, 4.63199, 2.70773, - + 0.92601, 3.67491, 4.63807 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ - + 0.02183, 0.01124, 106.89931, 5.00356, 3.11248, - + 1.36230, 4.06321, 5.00974, - + 0.02252, 0.01157, 115.89412, 5.37458, 3.51397, - + 1.79388, 4.44960, 5.38086, - + 0.02318, 0.01188, 124.86359, 5.74492, 3.91244, - + 2.21988, 4.83414, 5.75130, - + 0.02382, 0.01219, 133.79311, 6.11453, 4.30813, - + 2.64118, 5.21692, 6.12100, - + 0.02443, 0.01248, 142.66318, 6.48263, 4.70054, - + 3.05743, 5.59728, 6.48918, - + 0.02502, 0.01276, 151.41556, 6.84775, 5.08843, - + 3.46764, 5.97390, 6.85438, - + 0.02559, 0.01304, 160.09944, 7.21192, 5.47394, - + 3.87411, 6.34885, 7.21864 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ - + 0.02614, 0.01331, 168.69635, 7.57432, 5.85644, - + 4.27633, 6.72140, 7.58113, - + 0.02668, 0.01357, 177.13249, 7.93274, 6.23385, - + 4.67237, 7.08941, 7.93963, - + 0.02720, 0.01383, 185.51929, 8.29092, 6.60999, - + 5.06613, 7.45666, 8.29790, - + 0.02770, 0.01408, 193.71812, 8.64407, 6.98018, - + 5.45308, 7.81842, 8.65114, - + 0.02820, 0.01432, 201.86037, 8.99654, 7.34885, - + 5.83766, 8.17907, 9.00368 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + 0.01797, 0.00949, 40.26817, 2.08970, 0.12893, - + 0.00000, 1.11193, 2.09428, - + 0.01920, 0.01004, 47.19662, 2.42345, 0.52315, - + 0.00000, 1.47604, 2.42817, - + 0.02032, 0.01056, 54.42696, 2.75351, 0.90449, - + 0.00000, 1.83186, 2.75836, - + 0.02135, 0.01103, 61.85147, 3.07787, 1.27320, - + 0.00000, 2.17850, 3.08285, - + 0.02231, 0.01148, 69.38116, 3.39987, 1.63417, - + 0.07684, 2.52009, 3.40497, - + 0.02320, 0.01191, 76.96577, 3.71986, 1.98891, - + 0.40958, 2.85755, 3.72506, - + 0.02405, 0.01231, 84.58859, 4.03907, 2.33956, - + 0.79724, 3.19256, 4.04436 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ - + 0.02486, 0.01270, 92.21600, 4.35743, 2.68660, - + 1.17169, 3.52534, 4.36282, - + 0.02564, 0.01308, 99.81659, 4.67458, 3.03009, - + 1.54130, 3.85574, 4.68007, - + 0.02638, 0.01344, 107.36899, 4.99047, 3.37029, - + 1.90541, 4.18385, 4.99604, - + 0.02709, 0.01378, 114.86278, 5.30504, 3.70742, - + 2.26477, 4.50977, 5.31070, - + 0.02778, 0.01412, 122.28268, 5.61768, 4.04108, - + 2.61913, 4.83299, 5.62343, - + 0.02844, 0.01445, 129.57832, 5.92712, 4.37018, - + 2.96762, 5.15232, 5.93294, - + 0.02908, 0.01476, 136.79765, 6.23517, 4.69669, - + 3.31231, 5.46965, 6.24106 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ - + 0.02970, 0.01507, 143.92532, 6.54117, 5.02006, - + 3.65280, 5.78439, 6.54714, - + 0.03030, 0.01537, 150.89703, 6.84317, 5.33847, - + 3.98739, 6.09465, 6.84922, - + 0.03088, 0.01566, 157.81467, 7.14453, 5.65535, - + 4.31957, 6.40382, 7.15065, - + 0.03145, 0.01594, 164.55515, 7.44102, 5.96657, - + 4.64533, 6.70772, 7.44721, - + 0.03200, 0.01622, 171.23663, 7.73653, 6.27610, - + 4.96866, 7.01029, 7.74279 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + 0.01994, 0.01037, 36.03723, 1.89259, 0.11555, - + 0.00000, 1.00594, 1.89680, - + 0.02129, 0.01099, 42.27234, 2.19158, 0.46859, - + 0.00000, 1.33204, 2.19595, - + 0.02252, 0.01157, 48.75197, 2.48688, 0.80972, - + 0.00000, 1.65031, 2.49138, - + 0.02365, 0.01210, 55.37572, 2.77661, 1.13908, - + 0.00001, 1.95992, 2.78124, - + 0.02470, 0.01261, 62.06821, 3.06372, 1.46102, - + 0.06850, 2.26450, 3.06847, - + 0.02568, 0.01308, 68.78519, 3.34853, 1.77687, - + 0.36487, 2.56488, 3.35338, - + 0.02661, 0.01353, 75.51291, 3.63210, 2.08854, - + 0.70970, 2.86255, 3.63705 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ - + 0.02750, 0.01397, 82.22302, 3.91441, 2.39647, - + 1.04220, 3.15771, 3.91946, - + 0.02835, 0.01438, 88.88927, 4.19513, 2.70073, - + 1.36987, 3.45025, 4.20028, - + 0.02916, 0.01478, 95.49414, 4.47425, 3.00157, - + 1.69214, 3.74026, 4.47948, - + 0.02994, 0.01517, 102.03079, 4.75174, 3.29922, - + 2.00972, 4.02787, 4.75706, - + 0.03069, 0.01554, 108.48605, 5.02709, 3.59334, - + 2.32239, 4.31264, 5.03249, - + 0.03141, 0.01591, 114.81557, 5.29909, 3.88292, - + 2.62935, 4.59346, 5.30457, - + 0.03211, 0.01626, 121.06581, 5.56951, 4.16982, - + 2.93256, 4.87215, 5.57507 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ - + 0.03278, 0.01660, 127.22301, 5.83775, 4.45358, - + 3.23166, 5.14818, 5.84338, - + 0.03344, 0.01693, 133.23058, 6.10203, 4.73251, - + 3.52509, 5.41981, 6.10773, - + 0.03407, 0.01725, 139.18147, 6.36545, 5.00980, - + 3.81609, 5.69019, 6.37123, - + 0.03469, 0.01756, 144.96507, 6.62418, 5.28169, - + 4.10101, 5.95552, 6.63002, - + 0.03529, 0.01787, 150.68996, 6.88177, 5.55181, - + 4.38349, 6.21940, 6.88768 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + 0.02751, 0.01370, 25.53156, 1.39294, 0.08218, - + 0.00000, 0.73834, 1.39713, - + 0.02932, 0.01459, 30.02258, 1.60524, 0.33270, - + 0.00000, 0.96975, 1.60963, - + 0.03096, 0.01542, 34.62773, 1.81402, 0.57387, - + 0.00000, 1.19472, 1.81858, - + 0.03247, 0.01618, 39.26733, 2.01777, 0.80562, - + 0.00000, 1.41246, 2.02249, - + 0.03387, 0.01688, 43.89818, 2.21853, 1.03099, - + 0.04789, 1.62551, 2.22340, - + 0.03517, 0.01755, 48.49229, 2.41650, 1.25091, - + 0.25451, 1.83445, 2.42150, - + 0.03641, 0.01819, 53.04248, 2.61245, 1.46671, - + 0.49388, 2.04031, 2.61758 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ - + 0.03759, 0.01879, 57.53278, 2.80635, 1.67872, - + 0.72340, 2.24326, 2.81160, - + 0.03871, 0.01937, 61.94952, 2.99804, 1.88704, - + 0.94839, 2.44325, 3.00341, - + 0.03978, 0.01993, 66.28516, 3.18755, 2.09190, - + 1.16851, 2.64043, 3.19303, - + 0.04080, 0.02046, 70.53885, 3.37495, 2.29355, - + 1.38435, 2.83494, 3.38053, - + 0.04179, 0.02098, 74.70436, 3.55992, 2.49178, - + 1.59580, 3.02653, 3.56559, - + 0.04274, 0.02147, 78.75093, 3.74158, 2.68586, - + 1.80225, 3.21438, 3.74734, - + 0.04366, 0.02196, 82.71915, 3.92134, 2.87728, - + 2.00528, 3.39996, 3.92720 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ - + 0.04454, 0.02242, 86.60075, 4.09883, 3.06573, - + 2.20466, 3.58292, 4.10477, - + 0.04540, 0.02287, 90.35558, 4.27273, 3.24999, - + 2.39925, 3.76199, 4.27876, - + 0.04623, 0.02331, 94.05588, 4.44544, 3.43252, - + 2.59153, 3.93960, 4.45155, - + 0.04704, 0.02374, 97.62140, 4.61413, 3.61051, - + 2.77879, 4.11292, 4.62031, - + 0.04782, 0.02416, 101.13344, 4.78153, 3.78675, - + 2.96385, 4.28473, 4.78777 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + 0.03790, 0.01824, 18.09737, 1.02881, 0.05844, - + 0.00000, 0.54464, 1.03437, - + 0.04032, 0.01952, 21.32814, 1.17929, 0.23607, - + 0.00000, 0.70871, 1.18513, - + 0.04252, 0.02068, 24.59242, 1.32652, 0.40634, - + 0.00000, 0.86748, 1.33260, - + 0.04453, 0.02175, 27.82928, 1.46937, 0.56910, - + 0.00000, 1.02028, 1.47567, - + 0.04639, 0.02275, 31.01701, 1.60922, 0.72645, - + 0.03339, 1.16889, 1.61572, - + 0.04812, 0.02368, 34.13919, 1.74625, 0.87909, - + 0.17704, 1.31372, 1.75293, - + 0.04976, 0.02456, 37.19345, 1.88098, 1.02796, - + 0.34266, 1.45552, 1.88784 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ - + 0.05131, 0.02540, 40.17247, 2.01344, 1.17332, - + 0.50050, 1.59443, 2.02046, - + 0.05279, 0.02621, 43.07063, 2.14356, 1.31528, - + 0.65434, 1.73047, 2.15073, - + 0.05420, 0.02697, 45.88628, 2.27141, 1.45406, - + 0.80400, 1.86378, 2.27872, - + 0.05555, 0.02771, 48.62247, 2.39709, 1.58990, - + 0.94996, 1.99454, 2.40454, - + 0.05684, 0.02842, 51.27676, 2.52042, 1.72270, - + 1.09217, 2.12260, 2.52800, - + 0.05809, 0.02910, 53.82848, 2.64079, 1.85191, - + 1.23020, 2.24739, 2.64848, - + 0.05929, 0.02975, 56.31184, 2.75931, 1.97875, - + 1.36531, 2.37006, 2.76712 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ - + 0.06044, 0.03039, 58.72153, 2.87573, 2.10300, - + 1.49735, 2.49039, 2.88365, - + 0.06156, 0.03100, 61.03021, 2.98911, 2.22377, - + 1.62549, 2.60746, 2.99713, - + 0.06264, 0.03160, 63.29239, 3.10128, 2.34295, - + 1.75162, 2.72314, 3.10940, - + 0.06369, 0.03217, 65.45084, 3.21017, 2.45848, - + 1.87376, 2.83534, 3.21838, - + 0.06471, 0.03274, 67.56570, 3.31783, 2.57247, - + 1.99403, 2.94616, 3.32614 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + 0.04567, 0.02171, 14.80340, 0.86449, 0.04787, - + 0.00000, 0.45771, 0.87137, - + 0.04855, 0.02327, 17.46556, 0.98736, 0.19307, - + 0.00000, 0.59180, 0.99457, - + 0.05115, 0.02470, 20.12881, 1.10716, 0.33181, - + 0.00000, 0.72112, 1.11466, - + 0.05352, 0.02600, 22.74222, 1.22292, 0.46396, - + 0.00000, 0.84511, 1.23068, - + 0.05571, 0.02721, 25.29341, 1.33578, 0.59124, - + 0.02698, 0.96521, 1.34378, - + 0.05776, 0.02834, 27.77130, 1.44588, 0.71421, - + 0.14286, 1.08178, 1.45410, - + 0.05968, 0.02941, 30.17592, 1.55369, 0.83366, - + 0.27603, 1.19544, 1.56211 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ - + 0.06151, 0.03042, 32.50339, 1.65923, 0.94984, - + 0.40245, 1.30632, 1.66784, - + 0.06324, 0.03139, 34.75139, 1.76247, 1.06286, - + 0.52521, 1.41447, 1.77126, - + 0.06489, 0.03231, 36.92084, 1.86351, 1.17293, - + 0.64421, 1.52004, 1.87246, - + 0.06647, 0.03320, 39.01585, 1.96247, 1.28027, - + 0.75985, 1.62321, 1.97158, - + 0.06798, 0.03404, 41.03569, 2.05921, 1.38483, - + 0.87214, 1.72388, 2.06847, - + 0.06943, 0.03486, 42.96425, 2.15324, 1.48618, - + 0.98073, 1.82158, 2.16264, - + 0.07083, 0.03564, 44.83162, 2.24554, 1.58535, - + 1.08669, 1.91733, 2.25507 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ - + 0.07218, 0.03640, 46.63419, 2.33591, 1.68220, - + 1.18992, 2.01095, 2.34556, - + 0.07348, 0.03713, 48.35025, 2.42357, 1.77598, - + 1.28974, 2.10168, 2.43335, - + 0.07473, 0.03784, 50.02550, 2.51009, 1.86830, - + 1.38777, 2.19112, 2.51999, - + 0.07595, 0.03852, 51.61328, 2.59374, 1.95745, - + 1.48235, 2.27752, 2.60374, - + 0.07713, 0.03918, 53.16382, 2.67626, 2.04522, - + 1.57527, 2.36268, 2.68638 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + 0.05211, 0.02468, 12.84036, 0.76596, 0.04154, - + 0.00000, 0.40574, 0.77396, - + 0.05535, 0.02648, 15.15948, 0.87227, 0.16733, - + 0.00000, 0.52187, 0.88064, - + 0.05828, 0.02812, 17.46109, 0.97562, 0.28723, - + 0.00000, 0.63357, 0.98432, - + 0.06095, 0.02962, 19.70105, 1.07516, 0.40108, - + 0.00000, 0.74034, 1.08415, - + 0.06341, 0.03100, 21.87273, 1.17189, 0.51041, - + 0.02317, 0.84342, 1.18114, - + 0.06570, 0.03230, 23.96823, 1.26594, 0.61572, - + 0.12249, 0.94315, 1.27543, - + 0.06786, 0.03352, 25.98907, 1.35772, 0.71769, - + 0.23637, 1.04007, 1.36743 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ - + 0.06990, 0.03467, 27.93349, 1.44728, 0.81655, - + 0.34414, 1.13433, 1.45720, - + 0.07184, 0.03577, 29.80106, 1.53461, 0.91244, - + 0.44850, 1.22598, 1.54472, - + 0.07368, 0.03682, 31.59392, 1.61981, 1.00556, - + 0.54937, 1.31517, 1.63011, - + 0.07544, 0.03782, 33.31693, 1.70302, 1.09612, - + 0.64714, 1.40209, 1.71349, - + 0.07713, 0.03878, 34.97005, 1.78414, 1.18409, - + 0.74183, 1.48667, 1.79476, - + 0.07874, 0.03970, 36.54018, 1.86273, 1.26910, - + 0.83313, 1.56850, 1.87350, - + 0.08030, 0.04059, 38.05452, 1.93968, 1.35208, - + 0.92201, 1.64850, 1.95060 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ - + 0.08180, 0.04144, 39.51041, 2.01483, 1.43293, - + 1.00841, 1.72652, 2.02590, - + 0.08324, 0.04227, 40.88936, 2.08753, 1.51099, - + 1.09173, 1.80193, 2.09872, - + 0.08463, 0.04306, 42.23164, 2.15914, 1.58770, - + 1.17340, 1.87611, 2.17046, - + 0.08598, 0.04383, 43.49719, 2.22816, 1.66156, - + 1.25197, 1.94757, 2.23960, - + 0.08729, 0.04458, 44.72981, 2.29613, 1.73414, - + 1.32903, 2.01787, 2.30769 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + 0.05764, 0.02747, 11.50222, 0.70077, 0.03720, - + 0.00000, 0.37103, 0.70946, - + 0.06120, 0.02949, 13.58566, 0.79569, 0.14963, - + 0.00001, 0.47479, 0.80478, - + 0.06441, 0.03131, 15.63766, 0.88772, 0.25653, - + 0.00001, 0.57433, 0.89715, - + 0.06732, 0.03298, 17.61949, 0.97609, 0.35777, - + 0.00002, 0.66920, 0.98584, - + 0.07002, 0.03452, 19.52823, 1.06169, 0.45472, - + 0.02056, 0.76053, 1.07172, - + 0.07252, 0.03595, 21.35942, 1.14465, 0.54781, - + 0.10845, 0.84861, 1.15493, - + 0.07487, 0.03730, 23.11586, 1.22538, 0.63772, - + 0.20903, 0.93398, 1.23590 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ - + 0.07709, 0.03858, 24.79561, 1.30392, 0.72464, - + 0.30394, 1.01675, 1.31465, - + 0.07920, 0.03979, 26.40141, 1.38028, 0.80872, - + 0.39562, 1.09701, 1.39122, - + 0.08120, 0.04094, 27.93648, 1.45460, 0.89018, - + 0.48403, 1.17494, 1.46573, - + 0.08312, 0.04204, 29.40570, 1.52699, 0.96920, - + 0.56952, 1.25068, 1.53830, - + 0.08494, 0.04310, 30.80994, 1.59738, 1.04578, - + 0.65212, 1.32419, 1.60886, - + 0.08669, 0.04411, 32.13626, 1.66541, 1.11960, - + 0.73159, 1.39515, 1.67704, - + 0.08838, 0.04508, 33.41130, 1.73188, 1.19152, - + 0.80880, 1.46437, 1.74366 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ - + 0.09000, 0.04601, 34.63304, 1.79663, 1.26142, - + 0.88368, 1.53172, 1.80856, - + 0.09156, 0.04691, 35.78522, 1.85909, 1.32873, - + 0.95570, 1.59663, 1.87115, - + 0.09307, 0.04778, 36.90384, 1.92050, 1.39475, - + 1.02618, 1.66038, 1.93270, - + 0.09452, 0.04861, 37.95329, 1.97958, 1.45819, - + 1.09385, 1.72165, 1.99189, - + 0.09593, 0.04943, 38.97290, 2.03766, 1.52045, - + 1.16012, 1.78185, 2.05009 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + 0.07889, 0.03880, 8.18436, 0.53559, 0.02634, - + 0.00000, 0.28389, 0.54729, - + 0.08362, 0.04163, 9.67033, 0.60193, 0.10544, - + 0.00000, 0.35674, 0.61410, - + 0.08786, 0.04416, 11.09429, 0.66557, 0.17996, - + 0.00001, 0.42592, 0.67815, - + 0.09170, 0.04645, 12.43272, 0.72602, 0.24984, - + 0.00001, 0.49118, 0.73896, - + 0.09522, 0.04856, 13.69332, 0.78394, 0.31609, - + 0.01404, 0.55335, 0.79720, - + 0.09848, 0.05050, 14.87773, 0.83947, 0.37908, - + 0.07376, 0.61268, 0.85302, - + 0.10153, 0.05233, 15.99150, 0.89295, 0.43932, - + 0.14159, 0.66961, 0.90677 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ - + 0.10441, 0.05403, 17.03688, 0.94443, 0.49701, - + 0.20499, 0.72425, 0.95850, - + 0.10712, 0.05565, 18.01881, 0.99401, 0.55230, - + 0.26570, 0.77674, 1.00830, - + 0.10969, 0.05717, 18.94221, 1.04181, 0.60539, - + 0.32377, 0.82723, 1.05631, - + 0.11214, 0.05862, 19.81262, 1.08795, 0.65646, - + 0.37946, 0.87589, 1.10265, - + 0.11447, 0.06000, 20.63210, 1.13243, 0.70554, - + 0.43285, 0.92272, 1.14731, - + 0.11669, 0.06132, 21.39287, 1.17501, 0.75245, - + 0.48379, 0.96750, 1.19006, - + 0.11883, 0.06257, 22.11525, 1.21631, 0.79781, - + 0.53293, 1.01087, 1.23152 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ - + 0.12087, 0.06378, 22.79848, 1.25624, 0.84159, - + 0.58027, 1.05276, 1.27161, - + 0.12283, 0.06493, 23.43222, 1.29441, 0.88339, - + 0.62544, 1.09278, 1.30992, - + 0.12473, 0.06605, 24.04205, 1.33172, 0.92417, - + 0.66940, 1.13186, 1.34737, - + 0.12654, 0.06711, 24.60417, 1.36729, 0.96301, - + 0.71127, 1.16909, 1.38306, - + 0.12830, 0.06815, 25.14577, 1.40208, 1.00094, - + 0.75207, 1.20548, 1.41798 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + 0.10815, 0.05629, 5.84701, 0.41831, 0.01855, - + 0.00001, 0.22226, 0.43374, - + 0.11439, 0.06014, 6.89168, 0.46387, 0.07371, - + 0.00001, 0.27276, 0.47981, - + 0.11993, 0.06356, 7.85723, 0.50693, 0.12500, - + 0.00002, 0.32006, 0.52332, - + 0.12492, 0.06660, 8.73285, 0.54723, 0.17247, - + 0.00002, 0.36403, 0.56399, - + 0.12947, 0.06937, 9.53477, 0.58530, 0.21688, - + 0.00943, 0.40536, 0.60239, - + 0.13365, 0.07191, 10.26739, 0.62130, 0.25858, - + 0.04923, 0.44429, 0.63868, - + 0.13754, 0.07426, 10.93883, 0.65549, 0.29797, - + 0.09400, 0.48115, 0.67313 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ - + 0.14119, 0.07645, 11.55508, 0.68796, 0.33522, - + 0.13534, 0.51607, 0.70586, - + 0.14461, 0.07849, 12.11970, 0.71889, 0.37055, - + 0.17456, 0.54926, 0.73700, - + 0.14784, 0.08042, 12.63923, 0.74834, 0.40411, - + 0.21166, 0.58081, 0.76665, - + 0.15089, 0.08223, 13.11969, 0.77643, 0.43603, - + 0.24689, 0.61086, 0.79493, - + 0.15378, 0.08396, 13.56279, 0.80324, 0.46643, - + 0.28037, 0.63951, 0.82190, - + 0.15653, 0.08557, 13.96378, 0.82858, 0.49513, - + 0.31196, 0.66657, 0.84740, - + 0.15916, 0.08712, 14.33820, 0.85292, 0.52266, - + 0.34219, 0.69255, 0.87189 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ - + 0.16167, 0.08858, 14.68612, 0.87625, 0.54901, - + 0.37108, 0.71742, 0.89535, - + 0.16405, 0.08998, 15.00078, 0.89828, 0.57390, - + 0.39837, 0.74090, 0.91751, - + 0.16634, 0.09132, 15.29998, 0.91967, 0.59800, - + 0.42475, 0.76368, 0.93901, - + 0.16854, 0.09259, 15.56985, 0.93983, 0.62076, - + 0.44966, 0.78517, 0.95929, - + 0.17067, 0.09382, 15.82652, 0.95942, 0.64283, - + 0.47379, 0.80602, 0.97899 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + 0.13041, 0.07061, 4.81657, 0.36507, 0.01504, - + 0.00001, 0.19455, 0.38309, - + 0.13770, 0.07512, 5.65548, 0.40111, 0.05944, - + 0.00001, 0.23492, 0.41965, - + 0.14414, 0.07908, 6.41075, 0.43480, 0.10031, - + 0.00001, 0.27232, 0.45375, - + 0.14990, 0.08259, 7.07913, 0.46599, 0.13778, - + 0.00003, 0.30674, 0.48531, - + 0.15511, 0.08575, 7.67787, 0.49512, 0.17249, - + 0.00738, 0.33874, 0.51474, - + 0.15990, 0.08862, 8.21503, 0.52238, 0.20479, - + 0.03837, 0.36859, 0.54229, - + 0.16433, 0.09126, 8.69875, 0.54805, 0.23504, - + 0.07303, 0.39661, 0.56820 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ - + 0.16843, 0.09372, 9.13327, 0.57222, 0.26344, - + 0.10479, 0.42296, 0.59257, - + 0.17229, 0.09600, 9.52586, 0.59499, 0.29012, - + 0.13467, 0.44773, 0.61553, - + 0.17591, 0.09812, 9.88058, 0.61648, 0.31526, - + 0.16273, 0.47109, 0.63720, - + 0.17933, 0.10011, 10.20232, 0.63683, 0.33903, - + 0.18921, 0.49319, 0.65772, - + 0.18256, 0.10199, 10.49513, 0.65610, 0.36150, - + 0.21422, 0.51411, 0.67713, - + 0.18560, 0.10374, 10.75471, 0.67415, 0.38256, - + 0.23766, 0.53369, 0.69530, - + 0.18849, 0.10541, 10.99390, 0.69139, 0.40265, - + 0.25996, 0.55238, 0.71266 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ - + 0.19125, 0.10699, 11.21303, 0.70781, 0.42176, - + 0.28117, 0.57018, 0.72919, - + 0.19387, 0.10848, 11.40742, 0.72316, 0.43968, - + 0.30106, 0.58684, 0.74465, - + 0.19640, 0.10991, 11.59032, 0.73799, 0.45696, - + 0.32021, 0.60292, 0.75958, - + 0.19878, 0.11126, 11.74983, 0.75183, 0.47313, - + 0.33815, 0.61794, 0.77349, - + 0.20108, 0.11257, 11.90003, 0.76521, 0.48875, - + 0.35545, 0.63246, 0.78695 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + 0.14923, 0.08319, 4.20492, 0.33269, 0.01292, - + 0.00001, 0.17779, 0.35271, - + 0.15732, 0.08815, 4.91633, 0.36289, 0.05083, - + 0.00001, 0.21198, 0.38341, - + 0.16444, 0.09248, 5.54333, 0.39085, 0.08544, - + 0.00001, 0.24338, 0.41175, - + 0.17077, 0.09628, 6.08681, 0.41650, 0.11691, - + 0.00002, 0.27202, 0.43773, - + 0.17647, 0.09969, 6.56528, 0.44024, 0.14583, - + 0.00616, 0.29842, 0.46174, - + 0.18168, 0.10276, 6.98754, 0.46227, 0.17255, - + 0.03192, 0.32286, 0.48402, - + 0.18649, 0.10557, 7.36174, 0.48284, 0.19740, - + 0.06059, 0.34563, 0.50480 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ - + 0.19092, 0.10816, 7.69255, 0.50207, 0.22057, - + 0.08669, 0.36687, 0.52419, - + 0.19506, 0.11056, 7.98688, 0.52004, 0.24220, - + 0.11110, 0.38671, 0.54231, - + 0.19895, 0.11278, 8.24886, 0.53687, 0.26246, - + 0.13390, 0.40529, 0.55930, - + 0.20260, 0.11485, 8.48311, 0.55270, 0.28149, - + 0.15530, 0.42276, 0.57527, - + 0.20604, 0.11679, 8.69319, 0.56760, 0.29940, - + 0.17540, 0.43920, 0.59027, - + 0.20926, 0.11860, 8.87573, 0.58144, 0.31607, - + 0.19414, 0.45448, 0.60421, - + 0.21232, 0.12031, 9.04169, 0.59459, 0.33190, - + 0.21190, 0.46899, 0.61744 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ - + 0.21523, 0.12193, 9.19145, 0.60704, 0.34688, - + 0.22870, 0.48272, 0.62997, - + 0.21798, 0.12344, 9.32139, 0.61859, 0.36085, - + 0.24439, 0.49550, 0.64160, - + 0.22063, 0.12489, 9.44241, 0.62969, 0.37427, - + 0.25943, 0.50778, 0.65278, - + 0.22311, 0.12626, 9.54491, 0.63997, 0.38675, - + 0.27345, 0.51918, 0.66311, - + 0.22551, 0.12757, 9.64039, 0.64988, 0.39877, - + 0.28692, 0.53015, 0.67306 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + 0.16590, 0.09454, 3.78909, 0.30995, 0.01148, - + 0.00004, 0.16610, 0.33160, - + 0.17465, 0.09982, 4.41062, 0.33606, 0.04492, - + 0.00003, 0.19600, 0.35817, - + 0.18230, 0.10439, 4.94869, 0.36005, 0.07523, - + 0.00004, 0.22325, 0.38250, - + 0.18905, 0.10839, 5.40636, 0.38184, 0.10257, - + 0.00003, 0.24789, 0.40455, - + 0.19513, 0.11193, 5.80367, 0.40187, 0.12756, - + 0.00536, 0.27047, 0.42482, - + 0.20065, 0.11512, 6.14841, 0.42034, 0.15051, - + 0.02759, 0.29122, 0.44350, - + 0.20572, 0.11801, 6.44982, 0.43741, 0.17170, - + 0.05218, 0.31040, 0.46075 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ - + 0.21041, 0.12067, 6.71309, 0.45326, 0.19134, - + 0.07446, 0.32819, 0.47674, - + 0.21475, 0.12311, 6.94215, 0.46799, 0.20959, - + 0.09521, 0.34472, 0.49159, - + 0.21881, 0.12537, 7.14344, 0.48171, 0.22659, - + 0.11449, 0.36011, 0.50542, - + 0.22260, 0.12747, 7.32200, 0.49453, 0.24249, - + 0.13250, 0.37448, 0.51833, - + 0.22615, 0.12943, 7.47954, 0.50651, 0.25735, - + 0.14934, 0.38793, 0.53037, - + 0.22951, 0.13124, 7.61383, 0.51756, 0.27114, - + 0.16497, 0.40037, 0.54151, - + 0.23269, 0.13294, 7.73413, 0.52799, 0.28417, - + 0.17973, 0.41212, 0.55201 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ - + 0.23568, 0.13454, 7.84075, 0.53781, 0.29644, - + 0.19364, 0.42318, 0.56189, - + 0.23848, 0.13604, 7.93079, 0.54687, 0.30783, - + 0.20656, 0.43341, 0.57098, - + 0.24116, 0.13748, 8.01371, 0.55554, 0.31873, - + 0.21892, 0.44321, 0.57968, - + 0.24371, 0.13882, 8.08165, 0.56351, 0.32882, - + 0.23038, 0.45224, 0.58768, - + 0.24616, 0.14009, 8.14413, 0.57115, 0.33851, - + 0.24138, 0.46091, 0.59536 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + 0.23277, 0.14039, 2.76158, 0.24847, 0.00774, - + 0.00001, 0.13481, 0.27530, - + 0.24337, 0.14613, 3.14364, 0.26388, 0.02990, - + 0.00002, 0.15363, 0.29085, - + 0.25243, 0.15096, 3.45111, 0.27752, 0.04937, - + 0.00002, 0.17021, 0.30456, - + 0.26030, 0.15503, 3.69408, 0.28944, 0.06644, - + 0.00001, 0.18472, 0.31654, - + 0.26727, 0.15852, 3.89128, 0.30005, 0.08167, - + 0.00331, 0.19766, 0.32717, - + 0.27345, 0.16161, 4.05216, 0.30951, 0.09530, - + 0.01681, 0.20921, 0.33664, - + 0.27902, 0.16433, 4.18312, 0.31799, 0.10762, - + 0.03151, 0.21961, 0.34509 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ - + 0.28409, 0.16675, 4.28890, 0.32561, 0.11878, - + 0.04454, 0.22899, 0.35269, - + 0.28872, 0.16893, 4.37443, 0.33248, 0.12894, - + 0.05646, 0.23749, 0.35951, - + 0.29297, 0.17091, 4.44350, 0.33868, 0.13822, - + 0.06736, 0.24523, 0.36566, - + 0.29689, 0.17269, 4.49922, 0.34430, 0.14673, - + 0.07738, 0.25229, 0.37122, - + 0.30052, 0.17428, 4.54317, 0.34938, 0.15454, - + 0.08657, 0.25871, 0.37624, - + 0.30386, 0.17575, 4.57534, 0.35394, 0.16165, - + 0.09499, 0.26454, 0.38071, - + 0.30697, 0.17710, 4.60048, 0.35813, 0.16826, - + 0.10282, 0.26992, 0.38482 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ - + 0.30988, 0.17834, 4.61870, 0.36194, 0.17438, - + 0.11009, 0.27486, 0.38856, - + 0.31257, 0.17946, 4.62927, 0.36531, 0.17994, - + 0.11673, 0.27930, 0.39186, - + 0.31513, 0.18052, 4.63718, 0.36847, 0.18519, - + 0.12300, 0.28349, 0.39495, - + 0.31748, 0.18146, 4.63799, 0.37124, 0.18996, - + 0.12873, 0.28722, 0.39765, - + 0.31973, 0.18235, 4.63702, 0.37385, 0.19447, - + 0.13417, 0.29076, 0.40018 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + 0.33122, 0.20310, 2.02602, 0.19318, 0.00489, - + -0.00013, 0.10663, 0.22373, - + 0.34217, 0.20732, 2.21553, 0.20019, 0.01867, - + -0.00010, 0.11693, 0.23034, - + 0.35118, 0.21056, 2.34974, 0.20595, 0.03026, - + -0.00010, 0.12552, 0.23573, - + 0.35864, 0.21308, 2.44077, 0.21061, 0.04006, - + -0.00009, 0.13263, 0.23999, - + 0.36495, 0.21507, 2.50405, 0.21441, 0.04846, - + 0.00174, 0.13866, 0.24348, - + 0.37041, 0.21664, 2.54612, 0.21756, 0.05574, - + 0.00923, 0.14380, 0.24626, - + 0.37510, 0.21789, 2.57231, 0.22015, 0.06213, - + 0.01724, 0.14821, 0.24854 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ - + 0.37923, 0.21888, 2.58620, 0.22224, 0.06771, - + 0.02415, 0.15196, 0.25036, - + 0.38278, 0.21969, 2.59060, 0.22398, 0.07265, - + 0.03029, 0.15522, 0.25173, - + 0.38591, 0.22032, 2.58795, 0.22538, 0.07703, - + 0.03579, 0.15803, 0.25281, - + 0.38873, 0.22079, 2.58009, 0.22650, 0.08094, - + 0.04073, 0.16046, 0.25365, - + 0.39125, 0.22114, 2.56781, 0.22734, 0.08441, - + 0.04515, 0.16256, 0.25420, - + 0.39341, 0.22138, 2.55110, 0.22793, 0.08749, - + 0.04907, 0.16433, 0.25455, - + 0.39537, 0.22152, 2.53267, 0.22837, 0.09029, - + 0.05268, 0.16589, 0.25477 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ - + 0.39717, 0.22157, 2.51257, 0.22869, 0.09282, - + 0.05603, 0.16725, 0.25485, - + 0.39868, 0.22155, 2.49006, 0.22882, 0.09504, - + 0.05899, 0.16837, 0.25473, - + 0.40008, 0.22151, 2.46764, 0.22889, 0.09709, - + 0.06173, 0.16939, 0.25456, - + 0.40127, 0.22138, 2.44285, 0.22879, 0.09886, - + 0.06415, 0.17016, 0.25420, - + 0.40238, 0.22123, 2.41859, 0.22865, 0.10052, - + 0.06642, 0.17085, 0.25383 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + 0.40727, 0.24374, 1.67848, 0.15957, 0.00365, - + 0.00002, 0.08936, 0.19050, - + 0.41626, 0.24529, 1.77422, 0.16268, 0.01357, - + 0.00000, 0.09563, 0.19279, - + 0.42335, 0.24608, 1.83018, 0.16482, 0.02166, - + -0.00001, 0.10063, 0.19432, - + 0.42876, 0.24633, 1.85716, 0.16633, 0.02821, - + -0.00002, 0.10451, 0.19516, - + 0.43302, 0.24631, 1.86716, 0.16731, 0.03375, - + 0.00123, 0.10759, 0.19551, - + 0.43646, 0.24598, 1.86508, 0.16789, 0.03840, - + 0.00619, 0.11006, 0.19553, - + 0.43920, 0.24547, 1.85443, 0.16817, 0.04234, - + 0.01140, 0.11204, 0.19526 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ - + 0.44145, 0.24474, 1.83759, 0.16816, 0.04571, - + 0.01584, 0.11363, 0.19479, - + 0.44315, 0.24395, 1.81657, 0.16800, 0.04860, - + 0.01967, 0.11487, 0.19410, - + 0.44446, 0.24310, 1.79276, 0.16764, 0.05113, - + 0.02302, 0.11583, 0.19330, - + 0.44551, 0.24217, 1.76724, 0.16712, 0.05335, - + 0.02601, 0.11658, 0.19242, - + 0.44626, 0.24119, 1.74053, 0.16655, 0.05525, - + 0.02866, 0.11716, 0.19143, - + 0.44673, 0.24014, 1.71261, 0.16587, 0.05688, - + 0.03102, 0.11751, 0.19035, - + 0.44708, 0.23907, 1.68484, 0.16513, 0.05833, - + 0.03311, 0.11776, 0.18925 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ - + 0.44731, 0.23798, 1.65711, 0.16431, 0.05961, - + 0.03494, 0.11794, 0.18810, - + 0.44728, 0.23686, 1.62902, 0.16342, 0.06068, - + 0.03656, 0.11796, 0.18690, - + 0.44719, 0.23577, 1.60202, 0.16254, 0.06164, - + 0.03806, 0.11793, 0.18572, - + 0.44693, 0.23464, 1.57470, 0.16162, 0.06245, - + 0.03941, 0.11778, 0.18448, - + 0.44663, 0.23355, 1.54849, 0.16070, 0.06319, - + 0.04063, 0.11761, 0.18327 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + 0.46855, 0.27008, 1.44890, 0.13408, 0.00293, - + 0.00006, 0.07593, 0.16380, - + 0.47443, 0.26863, 1.48757, 0.13487, 0.01042, - + 0.00007, 0.07986, 0.16363, - + 0.47842, 0.26686, 1.49868, 0.13513, 0.01638, - + 0.00005, 0.08277, 0.16292, - + 0.48086, 0.26495, 1.49133, 0.13501, 0.02112, - + 0.00005, 0.08482, 0.16181, - + 0.48248, 0.26279, 1.47410, 0.13452, 0.02499, - + 0.00094, 0.08631, 0.16056, - + 0.48341, 0.26053, 1.45070, 0.13376, 0.02817, - + 0.00452, 0.08737, 0.15927, - + 0.48367, 0.25835, 1.42331, 0.13293, 0.03079, - + 0.00814, 0.08809, 0.15775 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ - + 0.48357, 0.25607, 1.39353, 0.13195, 0.03303, - + 0.01115, 0.08857, 0.15613, - + 0.48306, 0.25385, 1.36263, 0.13090, 0.03488, - + 0.01379, 0.08883, 0.15446, - + 0.48232, 0.25162, 1.33144, 0.12977, 0.03644, - + 0.01606, 0.08893, 0.15282, - + 0.48141, 0.24938, 1.30051, 0.12861, 0.03778, - + 0.01802, 0.08889, 0.15122, - + 0.48023, 0.24724, 1.26997, 0.12751, 0.03888, - + 0.01976, 0.08875, 0.14957, - + 0.47894, 0.24506, 1.23963, 0.12620, 0.03980, - + 0.02121, 0.08850, 0.14799, - + 0.47754, 0.24298, 1.21047, 0.12496, 0.04061, - + 0.02250, 0.08820, 0.14636 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ - + 0.47599, 0.24101, 1.18233, 0.12381, 0.04132, - + 0.02364, 0.08785, 0.14465, - + 0.47437, 0.23898, 1.15475, 0.12258, 0.04186, - + 0.02464, 0.08740, 0.14308, - + 0.47278, 0.23702, 1.12862, 0.12138, 0.04233, - + 0.02556, 0.08694, 0.14158, - + 0.47108, 0.23504, 1.10297, 0.12014, 0.04272, - + 0.02632, 0.08645, 0.14004, - + 0.46939, 0.23314, 1.07864, 0.11894, 0.04306, - + 0.02702, 0.08597, 0.13856 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + 0.51782, 0.28603, 1.27311, 0.11335, 0.00229, - + 0.00008, 0.06475, 0.14101, - + 0.51973, 0.28171, 1.27403, 0.11278, 0.00821, - + 0.00009, 0.06714, 0.13919, - + 0.52014, 0.27748, 1.25719, 0.11192, 0.01270, - + 0.00007, 0.06867, 0.13730, - + 0.51924, 0.27341, 1.22963, 0.11081, 0.01623, - + 0.00008, 0.06961, 0.13513, - + 0.51780, 0.26939, 1.19756, 0.10954, 0.01901, - + 0.00068, 0.07017, 0.13301, - + 0.51585, 0.26555, 1.16335, 0.10821, 0.02126, - + 0.00333, 0.07043, 0.13086, - + 0.51360, 0.26177, 1.12824, 0.10675, 0.02310, - + 0.00596, 0.07046, 0.12878 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ - + 0.51107, 0.25809, 1.09321, 0.10533, 0.02460, - + 0.00814, 0.07033, 0.12670, - + 0.50836, 0.25458, 1.05890, 0.10383, 0.02584, - + 0.01001, 0.07008, 0.12463, - + 0.50545, 0.25123, 1.02570, 0.10236, 0.02684, - + 0.01159, 0.06973, 0.12264, - + 0.50244, 0.24800, 0.99387, 0.10097, 0.02764, - + 0.01294, 0.06930, 0.12074, - + 0.49945, 0.24483, 0.96340, 0.09955, 0.02832, - + 0.01414, 0.06879, 0.11891, - + 0.49631, 0.24181, 0.93397, 0.09815, 0.02891, - + 0.01512, 0.06826, 0.11698, - + 0.49321, 0.23890, 0.90616, 0.09680, 0.02938, - + 0.01598, 0.06771, 0.11516 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ - + 0.49013, 0.23605, 0.87977, 0.09550, 0.02972, - + 0.01672, 0.06712, 0.11346, - + 0.48699, 0.23331, 0.85445, 0.09419, 0.02999, - + 0.01734, 0.06651, 0.11175, - + 0.48394, 0.23070, 0.83069, 0.09292, 0.03021, - + 0.01791, 0.06592, 0.11011, - + 0.48085, 0.22812, 0.80782, 0.09164, 0.03040, - + 0.01836, 0.06529, 0.10857, - + 0.47785, 0.22566, 0.78629, 0.09042, 0.03056, - + 0.01878, 0.06468, 0.10706 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + 0.56490, 0.29470, 1.09500, 0.09193, 0.00179, - + 0.00011, 0.05307, 0.11654, - + 0.56112, 0.28724, 1.06534, 0.09045, 0.00622, - + 0.00007, 0.05418, 0.11366, - + 0.55647, 0.28034, 1.02751, 0.08885, 0.00957, - + 0.00010, 0.05475, 0.11078, - + 0.55144, 0.27375, 0.98597, 0.08702, 0.01204, - + 0.00007, 0.05484, 0.10816, - + 0.54606, 0.26776, 0.94460, 0.08532, 0.01392, - + 0.00055, 0.05473, 0.10556, - + 0.54065, 0.26208, 0.90446, 0.08356, 0.01546, - + 0.00240, 0.05444, 0.10307, - + 0.53504, 0.25682, 0.86598, 0.08189, 0.01666, - + 0.00428, 0.05400, 0.10069 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ - + 0.52949, 0.25185, 0.82946, 0.08024, 0.01761, - + 0.00575, 0.05351, 0.09832, - + 0.52399, 0.24709, 0.79505, 0.07868, 0.01837, - + 0.00695, 0.05293, 0.09606, - + 0.51857, 0.24257, 0.76276, 0.07712, 0.01895, - + 0.00800, 0.05229, 0.09400, - + 0.51325, 0.23831, 0.73257, 0.07559, 0.01939, - + 0.00890, 0.05164, 0.09205, - + 0.50796, 0.23431, 0.70432, 0.07421, 0.01974, - + 0.00962, 0.05099, 0.09010, - + 0.50279, 0.23042, 0.67772, 0.07280, 0.02004, - + 0.01026, 0.05033, 0.08820, - + 0.49779, 0.22671, 0.65298, 0.07142, 0.02028, - + 0.01080, 0.04967, 0.08645 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ - + 0.49295, 0.22315, 0.62985, 0.07006, 0.02046, - + 0.01125, 0.04901, 0.08484, - + 0.48805, 0.21978, 0.60792, 0.06885, 0.02056, - + 0.01164, 0.04835, 0.08319, - + 0.48334, 0.21658, 0.58752, 0.06770, 0.02063, - + 0.01199, 0.04772, 0.08161, - + 0.47876, 0.21346, 0.56824, 0.06648, 0.02064, - + 0.01224, 0.04708, 0.08018, - + 0.47433, 0.21049, 0.55024, 0.06534, 0.02064, - + 0.01247, 0.04646, 0.07879 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + 0.59747, 0.29399, 0.94589, 0.07433, 0.00146, - + 0.00016, 0.04332, 0.09587, - + 0.58780, 0.28389, 0.89751, 0.07248, 0.00480, - + 0.00017, 0.04370, 0.09238, - + 0.57829, 0.27467, 0.84810, 0.07043, 0.00725, - + 0.00018, 0.04363, 0.08934, - + 0.56881, 0.26635, 0.80009, 0.06856, 0.00901, - + 0.00012, 0.04332, 0.08634, - + 0.55959, 0.25886, 0.75528, 0.06672, 0.01039, - + 0.00045, 0.04284, 0.08354, - + 0.55072, 0.25188, 0.71393, 0.06493, 0.01140, - + 0.00180, 0.04224, 0.08105, - + 0.54218, 0.24539, 0.67574, 0.06321, 0.01221, - + 0.00312, 0.04159, 0.07866 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ - + 0.53392, 0.23934, 0.64056, 0.06150, 0.01282, - + 0.00411, 0.04095, 0.07642, - + 0.52589, 0.23374, 0.60823, 0.05993, 0.01326, - + 0.00497, 0.04025, 0.07428, - + 0.51815, 0.22847, 0.57857, 0.05847, 0.01359, - + 0.00568, 0.03958, 0.07225, - + 0.51073, 0.22351, 0.55131, 0.05706, 0.01384, - + 0.00626, 0.03893, 0.07033, - + 0.50357, 0.21886, 0.52613, 0.05569, 0.01408, - + 0.00680, 0.03823, 0.06853, - + 0.49661, 0.21441, 0.50286, 0.05442, 0.01418, - + 0.00719, 0.03755, 0.06685, - + 0.48991, 0.21021, 0.48150, 0.05321, 0.01425, - + 0.00755, 0.03688, 0.06528 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ - + 0.48343, 0.20624, 0.46179, 0.05203, 0.01430, - + 0.00789, 0.03621, 0.06382, - + 0.47717, 0.20242, 0.44326, 0.05092, 0.01435, - + 0.00808, 0.03557, 0.06235, - + 0.47121, 0.19881, 0.42615, 0.04986, 0.01437, - + 0.00824, 0.03497, 0.06096, - + 0.46537, 0.19535, 0.41013, 0.04877, 0.01435, - + 0.00841, 0.03435, 0.05972, - + 0.45979, 0.19206, 0.39528, 0.04776, 0.01431, - + 0.00855, 0.03377, 0.05852 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + 0.61684, 0.28669, 0.81692, 0.06006, 0.00106, - + 0.00003, 0.03516, 0.07820, - + 0.60177, 0.27418, 0.75773, 0.05788, 0.00362, - + 0.00004, 0.03503, 0.07479, - + 0.58746, 0.26333, 0.70292, 0.05585, 0.00547, - + 0.00001, 0.03464, 0.07162, - + 0.57397, 0.25358, 0.65280, 0.05377, 0.00679, - + 0.00000, 0.03411, 0.06877, - + 0.56124, 0.24488, 0.60795, 0.05201, 0.00779, - + 0.00028, 0.03346, 0.06608, - + 0.54939, 0.23695, 0.56790, 0.05025, 0.00852, - + 0.00125, 0.03284, 0.06361, - + 0.53823, 0.22958, 0.53185, 0.04861, 0.00902, - + 0.00220, 0.03215, 0.06139 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ - + 0.52747, 0.22291, 0.49937, 0.04709, 0.00940, - + 0.00306, 0.03152, 0.05925, - + 0.51727, 0.21670, 0.47006, 0.04563, 0.00972, - + 0.00366, 0.03080, 0.05734, - + 0.50754, 0.21095, 0.44355, 0.04430, 0.00993, - + 0.00413, 0.03007, 0.05557, - + 0.49831, 0.20559, 0.41957, 0.04306, 0.01006, - + 0.00455, 0.02938, 0.05388, - + 0.48967, 0.20039, 0.39788, 0.04180, 0.01018, - + 0.00489, 0.02873, 0.05236, - + 0.48125, 0.19561, 0.37794, 0.04062, 0.01027, - + 0.00517, 0.02812, 0.05085, - + 0.47323, 0.19113, 0.35974, 0.03953, 0.01030, - + 0.00539, 0.02754, 0.04945 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ - + 0.46557, 0.18690, 0.34305, 0.03853, 0.01028, - + 0.00556, 0.02699, 0.04814, - + 0.45807, 0.18299, 0.32767, 0.03761, 0.01030, - + 0.00568, 0.02640, 0.04681, - + 0.45095, 0.17932, 0.31357, 0.03675, 0.01030, - + 0.00578, 0.02584, 0.04555, - + 0.44412, 0.17570, 0.30049, 0.03588, 0.01022, - + 0.00589, 0.02531, 0.04449, - + 0.43762, 0.17228, 0.28842, 0.03506, 0.01015, - + 0.00598, 0.02481, 0.04346 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + 0.62493, 0.27424, 0.70391, 0.04815, 0.00086, - + 0.00007, 0.02831, 0.06336, - + 0.60442, 0.26023, 0.63960, 0.04609, 0.00276, - + 0.00001, 0.02792, 0.06000, - + 0.58584, 0.24813, 0.58320, 0.04416, 0.00418, - + 0.00005, 0.02740, 0.05686, - + 0.56881, 0.23734, 0.53394, 0.04218, 0.00514, - + 0.00006, 0.02673, 0.05435, - + 0.55311, 0.22790, 0.49127, 0.04052, 0.00580, - + 0.00033, 0.02607, 0.05187, - + 0.53859, 0.21934, 0.45407, 0.03898, 0.00630, - + 0.00095, 0.02541, 0.04963, - + 0.52511, 0.21153, 0.42092, 0.03748, 0.00669, - + 0.00165, 0.02467, 0.04767 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ - + 0.51241, 0.20439, 0.39167, 0.03610, 0.00689, - + 0.00218, 0.02400, 0.04590, - + 0.50034, 0.19793, 0.36585, 0.03485, 0.00708, - + 0.00261, 0.02333, 0.04420, - + 0.48901, 0.19196, 0.34281, 0.03370, 0.00725, - + 0.00296, 0.02272, 0.04254, - + 0.47838, 0.18640, 0.32214, 0.03262, 0.00734, - + 0.00324, 0.02216, 0.04100, - + 0.46828, 0.18124, 0.30354, 0.03156, 0.00735, - + 0.00344, 0.02156, 0.03975, - + 0.45868, 0.17641, 0.28666, 0.03059, 0.00736, - + 0.00362, 0.02101, 0.03843, - + 0.44965, 0.17184, 0.27142, 0.02968, 0.00736, - + 0.00376, 0.02049, 0.03724 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ - + 0.44110, 0.16748, 0.25758, 0.02882, 0.00733, - + 0.00387, 0.01999, 0.03619, - + 0.43284, 0.16344, 0.24484, 0.02805, 0.00729, - + 0.00395, 0.01948, 0.03513, - + 0.42502, 0.15967, 0.23322, 0.02734, 0.00726, - + 0.00401, 0.01900, 0.03412, - + 0.41748, 0.15610, 0.22260, 0.02662, 0.00719, - + 0.00402, 0.01857, 0.03318, - + 0.41034, 0.15273, 0.21285, 0.02594, 0.00713, - + 0.00405, 0.01815, 0.03230 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + 0.62282, 0.25822, 0.60417, 0.03842, 0.00065, - + 0.00010, 0.02265, 0.05087, - + 0.59772, 0.24309, 0.53850, 0.03643, 0.00208, - + 0.00004, 0.02216, 0.04781, - + 0.57554, 0.23003, 0.48351, 0.03453, 0.00312, - + 0.00002, 0.02153, 0.04517, - + 0.55511, 0.21906, 0.43649, 0.03291, 0.00381, - + 0.00009, 0.02082, 0.04276, - + 0.53694, 0.20907, 0.39690, 0.03138, 0.00432, - + 0.00023, 0.02017, 0.04063, - + 0.52028, 0.20022, 0.36291, 0.02997, 0.00471, - + 0.00071, 0.01950, 0.03866, - + 0.50482, 0.19230, 0.33354, 0.02867, 0.00495, - + 0.00125, 0.01890, 0.03694 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ - + 0.49040, 0.18515, 0.30784, 0.02758, 0.00508, - + 0.00162, 0.01830, 0.03529, - + 0.47704, 0.17853, 0.28540, 0.02653, 0.00519, - + 0.00183, 0.01776, 0.03377, - + 0.46461, 0.17241, 0.26566, 0.02552, 0.00526, - + 0.00208, 0.01721, 0.03245, - + 0.45293, 0.16683, 0.24811, 0.02460, 0.00529, - + 0.00237, 0.01665, 0.03125, - + 0.44180, 0.16179, 0.23236, 0.02385, 0.00534, - + 0.00256, 0.01616, 0.02996, - + 0.43150, 0.15688, 0.21825, 0.02294, 0.00533, - + 0.00263, 0.01563, 0.02903, - + 0.42178, 0.15235, 0.20559, 0.02214, 0.00530, - + 0.00265, 0.01515, 0.02812 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ - + 0.41254, 0.14818, 0.19418, 0.02148, 0.00527, - + 0.00264, 0.01472, 0.02717, - + 0.40374, 0.14422, 0.18386, 0.02083, 0.00518, - + 0.00277, 0.01432, 0.02635, - + 0.39543, 0.14052, 0.17451, 0.02022, 0.00509, - + 0.00289, 0.01395, 0.02558, - + 0.38737, 0.13710, 0.16599, 0.01970, 0.00506, - + 0.00287, 0.01359, 0.02475, - + 0.37979, 0.13387, 0.15816, 0.01919, 0.00502, - + 0.00285, 0.01326, 0.02398 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + 0.61202, 0.23977, 0.51600, 0.03039, 0.00047, - + 0.00012, 0.01805, 0.04048, - + 0.58296, 0.22404, 0.45166, 0.02857, 0.00161, - + 0.00001, 0.01743, 0.03778, - + 0.55760, 0.21064, 0.39929, 0.02685, 0.00234, - + 0.00010, 0.01688, 0.03543, - + 0.53501, 0.19902, 0.35603, 0.02538, 0.00300, - + 0.00013, 0.01623, 0.03325, - + 0.51462, 0.18910, 0.32010, 0.02403, 0.00336, - + 0.00011, 0.01558, 0.03144, - + 0.49600, 0.18049, 0.28972, 0.02299, 0.00359, - + 0.00056, 0.01493, 0.02972, - + 0.47914, 0.17257, 0.26391, 0.02187, 0.00375, - + 0.00095, 0.01437, 0.02833 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ - + 0.46353, 0.16552, 0.24174, 0.02087, 0.00378, - + 0.00115, 0.01389, 0.02703, - + 0.44924, 0.15894, 0.22254, 0.02000, 0.00383, - + 0.00140, 0.01340, 0.02578, - + 0.43594, 0.15295, 0.20564, 0.01916, 0.00386, - + 0.00158, 0.01293, 0.02468, - + 0.42346, 0.14757, 0.19076, 0.01839, 0.00385, - + 0.00168, 0.01250, 0.02369, - + 0.41183, 0.14255, 0.17781, 0.01777, 0.00386, - + 0.00175, 0.01207, 0.02270, - + 0.40088, 0.13795, 0.16626, 0.01715, 0.00386, - + 0.00184, 0.01170, 0.02171, - + 0.39070, 0.13364, 0.15594, 0.01653, 0.00381, - + 0.00190, 0.01132, 0.02092 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ - + 0.38118, 0.12955, 0.14666, 0.01588, 0.00371, - + 0.00192, 0.01093, 0.02036, - + 0.37222, 0.12575, 0.13833, 0.01529, 0.00370, - + 0.00197, 0.01060, 0.01961, - + 0.36378, 0.12222, 0.13080, 0.01475, 0.00370, - + 0.00201, 0.01031, 0.01889, - + 0.35546, 0.11895, 0.12395, 0.01435, 0.00366, - + 0.00199, 0.00999, 0.01831, - + 0.34767, 0.11586, 0.11770, 0.01395, 0.00360, - + 0.00197, 0.00970, 0.01776 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + 0.59403, 0.21962, 0.43807, 0.02368, 0.00033, - + 0.00005, 0.01427, 0.03207, - + 0.56162, 0.20377, 0.37693, 0.02216, 0.00137, - + 0.00001, 0.01369, 0.02943, - + 0.53335, 0.19069, 0.32854, 0.02082, 0.00185, - + 0.00014, 0.01313, 0.02740, - + 0.50883, 0.17922, 0.28928, 0.01950, 0.00222, - + 0.00019, 0.01246, 0.02579, - + 0.48682, 0.16954, 0.25737, 0.01849, 0.00247, - + 0.00016, 0.01189, 0.02416, - + 0.46723, 0.16089, 0.23068, 0.01747, 0.00264, - + 0.00044, 0.01138, 0.02281, - + 0.44929, 0.15329, 0.20830, 0.01661, 0.00275, - + 0.00078, 0.01093, 0.02154 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ - + 0.43307, 0.14632, 0.18953, 0.01579, 0.00283, - + 0.00095, 0.01048, 0.02044, - + 0.41814, 0.14002, 0.17326, 0.01505, 0.00283, - + 0.00105, 0.01001, 0.01950, - + 0.40435, 0.13429, 0.15918, 0.01437, 0.00285, - + 0.00114, 0.00965, 0.01853, - + 0.39157, 0.12907, 0.14698, 0.01374, 0.00288, - + 0.00123, 0.00936, 0.01761, - + 0.37961, 0.12442, 0.13626, 0.01315, 0.00284, - + 0.00128, 0.00898, 0.01691, - + 0.36847, 0.12003, 0.12671, 0.01262, 0.00284, - + 0.00129, 0.00867, 0.01618, - + 0.35810, 0.11594, 0.11830, 0.01219, 0.00280, - + 0.00132, 0.00835, 0.01551 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ - + 0.34840, 0.11211, 0.11086, 0.01185, 0.00274, - + 0.00137, 0.00802, 0.01490, - + 0.33920, 0.10862, 0.10413, 0.01135, 0.00268, - + 0.00141, 0.00775, 0.01444, - + 0.33061, 0.10537, 0.09807, 0.01086, 0.00262, - + 0.00144, 0.00750, 0.01402, - + 0.32257, 0.10224, 0.09259, 0.01040, 0.00258, - + 0.00143, 0.00729, 0.01355, - + 0.31495, 0.09932, 0.08763, 0.01001, 0.00254, - + 0.00143, 0.00709, 0.01311 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + 0.56961, 0.19894, 0.36960, 0.01832, 0.00034, - + 0.00010, 0.01105, 0.02513, - + 0.53457, 0.18336, 0.31264, 0.01703, 0.00099, - + 0.00010, 0.01058, 0.02295, - + 0.50460, 0.17043, 0.26862, 0.01584, 0.00140, - + 0.00006, 0.01007, 0.02130, - + 0.47846, 0.15956, 0.23397, 0.01492, 0.00170, - + 0.00007, 0.00952, 0.01970, - + 0.45566, 0.15004, 0.20585, 0.01388, 0.00187, - + 0.00003, 0.00906, 0.01851, - + 0.43533, 0.14173, 0.18290, 0.01305, 0.00197, - + 0.00034, 0.00861, 0.01744, - + 0.41698, 0.13437, 0.16403, 0.01234, 0.00203, - + 0.00056, 0.00827, 0.01638 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ - + 0.40023, 0.12788, 0.14795, 0.01168, 0.00209, - + 0.00071, 0.00787, 0.01547, - + 0.38493, 0.12200, 0.13442, 0.01111, 0.00210, - + 0.00076, 0.00755, 0.01465, - + 0.37089, 0.11666, 0.12279, 0.01062, 0.00209, - + 0.00081, 0.00723, 0.01388, - + 0.35799, 0.11180, 0.11264, 0.01017, 0.00208, - + 0.00088, 0.00692, 0.01317, - + 0.34616, 0.10730, 0.10386, 0.00965, 0.00208, - + 0.00088, 0.00666, 0.01255, - + 0.33501, 0.10319, 0.09622, 0.00912, 0.00202, - + 0.00095, 0.00637, 0.01218, - + 0.32466, 0.09942, 0.08949, 0.00873, 0.00197, - + 0.00099, 0.00612, 0.01175 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ - + 0.31502, 0.09594, 0.08351, 0.00848, 0.00195, - + 0.00099, 0.00591, 0.01122, - + 0.30608, 0.09268, 0.07817, 0.00806, 0.00193, - + 0.00102, 0.00569, 0.01079, - + 0.29773, 0.08966, 0.07339, 0.00767, 0.00192, - + 0.00104, 0.00549, 0.01039, - + 0.28963, 0.08683, 0.06908, 0.00750, 0.00188, - + 0.00102, 0.00533, 0.00996, - + 0.28205, 0.08418, 0.06517, 0.00730, 0.00184, - + 0.00100, 0.00516, 0.00958 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + 0.53978, 0.17880, 0.30992, 0.01437, 0.00017, - + -0.00010, 0.00845, 0.01935, - + 0.50316, 0.16353, 0.25795, 0.01317, 0.00065, - + -0.00015, 0.00798, 0.01774, - + 0.47192, 0.15125, 0.21878, 0.01232, 0.00102, - + -0.00009, 0.00759, 0.01608, - + 0.44536, 0.14057, 0.18824, 0.01131, 0.00119, - + -0.00005, 0.00717, 0.01500, - + 0.42202, 0.13161, 0.16411, 0.01052, 0.00128, - + -0.00007, 0.00676, 0.01404, - + 0.40125, 0.12388, 0.14463, 0.00995, 0.00143, - + 0.00009, 0.00638, 0.01303, - + 0.38284, 0.11695, 0.12866, 0.00923, 0.00144, - + 0.00030, 0.00609, 0.01233 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ - + 0.36623, 0.11087, 0.11540, 0.00861, 0.00143, - + 0.00040, 0.00580, 0.01161, - + 0.35103, 0.10542, 0.10413, 0.00820, 0.00144, - + 0.00047, 0.00550, 0.01091, - + 0.33702, 0.10051, 0.09454, 0.00780, 0.00146, - + 0.00052, 0.00524, 0.01037, - + 0.32418, 0.09604, 0.08634, 0.00738, 0.00145, - + 0.00057, 0.00501, 0.00991, - + 0.31257, 0.09188, 0.07921, 0.00698, 0.00143, - + 0.00062, 0.00484, 0.00941, - + 0.30175, 0.08813, 0.07308, 0.00672, 0.00145, - + 0.00064, 0.00464, 0.00888, - + 0.29173, 0.08468, 0.06770, 0.00645, 0.00144, - + 0.00067, 0.00446, 0.00844 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ - + 0.28242, 0.08147, 0.06294, 0.00617, 0.00139, - + 0.00070, 0.00428, 0.00811, - + 0.27364, 0.07851, 0.05868, 0.00595, 0.00135, - + 0.00072, 0.00412, 0.00779, - + 0.26545, 0.07578, 0.05488, 0.00574, 0.00132, - + 0.00072, 0.00396, 0.00749, - + 0.25769, 0.07322, 0.05148, 0.00551, 0.00126, - + 0.00069, 0.00380, 0.00719, - + 0.25043, 0.07085, 0.04844, 0.00531, 0.00123, - + 0.00067, 0.00365, 0.00692 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + 0.50633, 0.15814, 0.25712, 0.01068, 0.00027, - + 0.00016, 0.00663, 0.01481, - + 0.46856, 0.14380, 0.21080, 0.00977, 0.00061, - + 0.00012, 0.00618, 0.01345, - + 0.43679, 0.13228, 0.17632, 0.00909, 0.00079, - + 0.00010, 0.00581, 0.01221, - + 0.40990, 0.12231, 0.15023, 0.00827, 0.00097, - + 0.00011, 0.00540, 0.01136, - + 0.38641, 0.11407, 0.12987, 0.00774, 0.00109, - + 0.00013, 0.00512, 0.01040, - + 0.36609, 0.10686, 0.11352, 0.00714, 0.00110, - + 0.00019, 0.00484, 0.00967, - + 0.34786, 0.10050, 0.10022, 0.00654, 0.00113, - + 0.00028, 0.00459, 0.00923 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ - + 0.33134, 0.09485, 0.08923, 0.00621, 0.00108, - + 0.00037, 0.00434, 0.00873, - + 0.31632, 0.08987, 0.07999, 0.00589, 0.00107, - + 0.00044, 0.00410, 0.00821, - + 0.30284, 0.08541, 0.07224, 0.00556, 0.00106, - + 0.00048, 0.00389, 0.00768, - + 0.29059, 0.08137, 0.06567, 0.00531, 0.00104, - + 0.00046, 0.00371, 0.00716, - + 0.27903, 0.07776, 0.05998, 0.00517, 0.00104, - + 0.00041, 0.00348, 0.00677, - + 0.26866, 0.07441, 0.05506, 0.00490, 0.00103, - + 0.00045, 0.00334, 0.00637, - + 0.25904, 0.07132, 0.05080, 0.00466, 0.00102, - + 0.00049, 0.00321, 0.00606 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ - + 0.25004, 0.06845, 0.04710, 0.00448, 0.00099, - + 0.00051, 0.00309, 0.00584, - + 0.24166, 0.06585, 0.04375, 0.00435, 0.00097, - + 0.00051, 0.00298, 0.00552, - + 0.23389, 0.06344, 0.04076, 0.00421, 0.00095, - + 0.00049, 0.00286, 0.00524, - + 0.22660, 0.06110, 0.03814, 0.00393, 0.00089, - + 0.00048, 0.00271, 0.00514, - + 0.21978, 0.05895, 0.03579, 0.00372, 0.00086, - + 0.00047, 0.00258, 0.00502 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + 0.46977, 0.13906, 0.21210, 0.00829, 0.00014, - + -0.00005, 0.00492, 0.01109, - + 0.43185, 0.12555, 0.17131, 0.00744, 0.00035, - + 0.00002, 0.00454, 0.01018, - + 0.40040, 0.11462, 0.14174, 0.00675, 0.00054, - + -0.00001, 0.00428, 0.00920, - + 0.37355, 0.10566, 0.11944, 0.00623, 0.00063, - + -0.00004, 0.00395, 0.00849, - + 0.35048, 0.09799, 0.10216, 0.00590, 0.00073, - + 0.00001, 0.00370, 0.00773, - + 0.33060, 0.09144, 0.08863, 0.00532, 0.00073, - + 0.00011, 0.00349, 0.00727, - + 0.31298, 0.08564, 0.07769, 0.00488, 0.00074, - + 0.00019, 0.00332, 0.00679 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ - + 0.29684, 0.08058, 0.06870, 0.00470, 0.00072, - + 0.00024, 0.00308, 0.00636, - + 0.28240, 0.07612, 0.06124, 0.00450, 0.00071, - + 0.00024, 0.00291, 0.00590, - + 0.26947, 0.07210, 0.05501, 0.00424, 0.00073, - + 0.00027, 0.00276, 0.00549, - + 0.25780, 0.06847, 0.04974, 0.00397, 0.00074, - + 0.00032, 0.00259, 0.00519, - + 0.24723, 0.06518, 0.04523, 0.00369, 0.00071, - + 0.00031, 0.00241, 0.00493, - + 0.23707, 0.06218, 0.04137, 0.00361, 0.00068, - + 0.00032, 0.00231, 0.00471, - + 0.22790, 0.05945, 0.03801, 0.00346, 0.00065, - + 0.00029, 0.00222, 0.00444 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ - + 0.21965, 0.05695, 0.03508, 0.00323, 0.00063, - + 0.00023, 0.00213, 0.00410, - + 0.21190, 0.05463, 0.03249, 0.00304, 0.00064, - + 0.00028, 0.00204, 0.00391, - + 0.20468, 0.05249, 0.03021, 0.00287, 0.00064, - + 0.00034, 0.00196, 0.00376, - + 0.19775, 0.05048, 0.02819, 0.00280, 0.00061, - + 0.00032, 0.00189, 0.00364, - + 0.19131, 0.04862, 0.02639, 0.00272, 0.00058, - + 0.00031, 0.00182, 0.00352 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + 0.43135, 0.12053, 0.17320, 0.00604, 0.00016, - + 0.00007, 0.00369, 0.00836, - + 0.39409, 0.10813, 0.13788, 0.00516, 0.00032, - + 0.00005, 0.00340, 0.00765, - + 0.36263, 0.09841, 0.11273, 0.00505, 0.00045, - + 0.00005, 0.00323, 0.00675, - + 0.33681, 0.09007, 0.09393, 0.00441, 0.00053, - + 0.00004, 0.00300, 0.00624, - + 0.31459, 0.08317, 0.07961, 0.00408, 0.00056, - + 0.00004, 0.00274, 0.00571, - + 0.29519, 0.07732, 0.06846, 0.00383, 0.00055, - + 0.00007, 0.00250, 0.00531, - + 0.27827, 0.07218, 0.05963, 0.00359, 0.00053, - + 0.00014, 0.00240, 0.00486 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ - + 0.26308, 0.06763, 0.05237, 0.00345, 0.00053, - + 0.00016, 0.00228, 0.00450, - + 0.24946, 0.06368, 0.04646, 0.00325, 0.00050, - + 0.00018, 0.00210, 0.00421, - + 0.23736, 0.06011, 0.04151, 0.00301, 0.00049, - + 0.00018, 0.00196, 0.00395, - + 0.22645, 0.05686, 0.03732, 0.00280, 0.00049, - + 0.00019, 0.00188, 0.00371, - + 0.21635, 0.05399, 0.03382, 0.00269, 0.00051, - + 0.00025, 0.00183, 0.00344, - + 0.20697, 0.05136, 0.03081, 0.00257, 0.00051, - + 0.00026, 0.00171, 0.00331, - + 0.19841, 0.04900, 0.02820, 0.00246, 0.00050, - + 0.00025, 0.00161, 0.00315 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ - + 0.19057, 0.04686, 0.02594, 0.00236, 0.00049, - + 0.00022, 0.00155, 0.00296, - + 0.18341, 0.04485, 0.02397, 0.00219, 0.00043, - + 0.00020, 0.00143, 0.00279, - + 0.17680, 0.04300, 0.02223, 0.00204, 0.00038, - + 0.00018, 0.00133, 0.00264, - + 0.17049, 0.04126, 0.02069, 0.00199, 0.00038, - + 0.00020, 0.00130, 0.00255, - + 0.16463, 0.03967, 0.01932, 0.00195, 0.00038, - + 0.00022, 0.00126, 0.00245 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + 0.39208, 0.10357, 0.14022, 0.00431, 0.00014, - + 0.00002, 0.00274, 0.00615, - + 0.35560, 0.09237, 0.11010, 0.00390, 0.00022, - + 0.00000, 0.00246, 0.00557, - + 0.32564, 0.08340, 0.08892, 0.00363, 0.00030, - + 0.00000, 0.00224, 0.00499, - + 0.30068, 0.07609, 0.07332, 0.00333, 0.00031, - + 0.00002, 0.00208, 0.00454, - + 0.27968, 0.06999, 0.06161, 0.00296, 0.00033, - + 0.00005, 0.00197, 0.00416, - + 0.26140, 0.06479, 0.05263, 0.00283, 0.00033, - + 0.00007, 0.00182, 0.00376, - + 0.24527, 0.06029, 0.04548, 0.00267, 0.00030, - + 0.00010, 0.00165, 0.00346 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ - + 0.23103, 0.05631, 0.03971, 0.00253, 0.00032, - + 0.00012, 0.00152, 0.00323, - + 0.21848, 0.05278, 0.03505, 0.00231, 0.00035, - + 0.00013, 0.00142, 0.00303, - + 0.20717, 0.04969, 0.03115, 0.00216, 0.00034, - + 0.00013, 0.00135, 0.00280, - + 0.19693, 0.04694, 0.02789, 0.00205, 0.00032, - + 0.00011, 0.00128, 0.00256, - + 0.18779, 0.04439, 0.02518, 0.00183, 0.00028, - + 0.00008, 0.00117, 0.00239, - + 0.17928, 0.04210, 0.02282, 0.00179, 0.00033, - + 0.00011, 0.00115, 0.00227, - + 0.17145, 0.04003, 0.02081, 0.00173, 0.00033, - + 0.00013, 0.00110, 0.00216 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ - + 0.16422, 0.03817, 0.01909, 0.00163, 0.00027, - + 0.00013, 0.00100, 0.00206, - + 0.15752, 0.03650, 0.01758, 0.00161, 0.00026, - + 0.00013, 0.00096, 0.00194, - + 0.15137, 0.03495, 0.01626, 0.00159, 0.00026, - + 0.00013, 0.00093, 0.00183, - + 0.14576, 0.03346, 0.01510, 0.00152, 0.00024, - + 0.00012, 0.00088, 0.00172, - + 0.14057, 0.03210, 0.01406, 0.00144, 0.00023, - + 0.00010, 0.00084, 0.00164 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + 0.35228, 0.08785, 0.11228, 0.00317, 0.00010, - + 0.00005, 0.00198, 0.00462, - + 0.31729, 0.07783, 0.08682, 0.00273, 0.00014, - + 0.00003, 0.00183, 0.00410, - + 0.28892, 0.06989, 0.06915, 0.00245, 0.00024, - + 0.00000, 0.00162, 0.00366, - + 0.26535, 0.06333, 0.05647, 0.00230, 0.00024, - + 0.00001, 0.00150, 0.00326, - + 0.24544, 0.05796, 0.04697, 0.00215, 0.00024, - + -0.00001, 0.00142, 0.00289, - + 0.22861, 0.05340, 0.03978, 0.00189, 0.00026, - + 0.00005, 0.00130, 0.00261, - + 0.21374, 0.04947, 0.03413, 0.00171, 0.00029, - + 0.00007, 0.00119, 0.00246 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ - + 0.20053, 0.04608, 0.02961, 0.00167, 0.00026, - + 0.00008, 0.00109, 0.00222, - + 0.18865, 0.04304, 0.02596, 0.00166, 0.00024, - + 0.00009, 0.00101, 0.00206, - + 0.17821, 0.04035, 0.02296, 0.00155, 0.00025, - + 0.00008, 0.00094, 0.00192, - + 0.16899, 0.03798, 0.02047, 0.00141, 0.00025, - + 0.00006, 0.00087, 0.00175, - + 0.16055, 0.03585, 0.01837, 0.00138, 0.00021, - + 0.00007, 0.00085, 0.00158, - + 0.15286, 0.03394, 0.01661, 0.00126, 0.00023, - + 0.00011, 0.00081, 0.00153, - + 0.14585, 0.03221, 0.01510, 0.00119, 0.00022, - + 0.00012, 0.00076, 0.00146 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ - + 0.13941, 0.03062, 0.01380, 0.00116, 0.00019, - + 0.00009, 0.00072, 0.00136, - + 0.13367, 0.02918, 0.01266, 0.00100, 0.00020, - + 0.00010, 0.00069, 0.00129, - + 0.12839, 0.02786, 0.01167, 0.00085, 0.00020, - + 0.00011, 0.00067, 0.00124, - + 0.12328, 0.02664, 0.01082, 0.00082, 0.00021, - + 0.00010, 0.00063, 0.00118, - + 0.11853, 0.02551, 0.01006, 0.00080, 0.00021, - + 0.00010, 0.00060, 0.00112 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + 0.31328, 0.07380, 0.08902, 0.00222, 0.00001, - + -0.00004, 0.00136, 0.00333, - + 0.28009, 0.06493, 0.06780, 0.00199, 0.00006, - + -0.00007, 0.00121, 0.00296, - + 0.25343, 0.05798, 0.05334, 0.00181, 0.00010, - + -0.00004, 0.00114, 0.00256, - + 0.23165, 0.05233, 0.04318, 0.00168, 0.00015, - + -0.00006, 0.00101, 0.00226, - + 0.21335, 0.04769, 0.03564, 0.00157, 0.00017, - + -0.00002, 0.00091, 0.00205, - + 0.19763, 0.04374, 0.02992, 0.00151, 0.00018, - + 0.00001, 0.00089, 0.00178, - + 0.18401, 0.04036, 0.02548, 0.00136, 0.00019, - + 0.00000, 0.00083, 0.00165 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ - + 0.17205, 0.03744, 0.02201, 0.00128, 0.00018, - + -0.00001, 0.00073, 0.00148, - + 0.16153, 0.03485, 0.01918, 0.00124, 0.00019, - + 0.00001, 0.00071, 0.00134, - + 0.15214, 0.03258, 0.01688, 0.00114, 0.00018, - + 0.00003, 0.00068, 0.00128, - + 0.14374, 0.03057, 0.01498, 0.00101, 0.00016, - + 0.00003, 0.00061, 0.00124, - + 0.13629, 0.02878, 0.01338, 0.00091, 0.00016, - + 0.00002, 0.00057, 0.00111, - + 0.12938, 0.02719, 0.01206, 0.00084, 0.00014, - + 0.00004, 0.00052, 0.00105, - + 0.12311, 0.02573, 0.01093, 0.00078, 0.00013, - + 0.00006, 0.00049, 0.00102 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ - + 0.11742, 0.02438, 0.00996, 0.00072, 0.00012, - + 0.00006, 0.00048, 0.00101, - + 0.11220, 0.02318, 0.00912, 0.00070, 0.00012, - + 0.00006, 0.00046, 0.00093, - + 0.10742, 0.02209, 0.00839, 0.00067, 0.00012, - + 0.00006, 0.00043, 0.00085, - + 0.10297, 0.02108, 0.00775, 0.00059, 0.00012, - + 0.00006, 0.00042, 0.00083, - + 0.09888, 0.02015, 0.00718, 0.00052, 0.00012, - + 0.00007, 0.00041, 0.00080 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + 0.27525, 0.06108, 0.06946, 0.00146, -0.00003, - + -0.00006, 0.00097, 0.00235, - + 0.24439, 0.05344, 0.05230, 0.00138, 0.00000, - + 0.00000, 0.00084, 0.00209, - + 0.21967, 0.04743, 0.04072, 0.00141, 0.00008, - + -0.00003, 0.00080, 0.00179, - + 0.20002, 0.04256, 0.03254, 0.00112, 0.00008, - + -0.00001, 0.00071, 0.00164, - + 0.18305, 0.03861, 0.02665, 0.00118, 0.00008, - + -0.00002, 0.00063, 0.00139, - + 0.16888, 0.03527, 0.02221, 0.00110, 0.00009, - + 0.00000, 0.00060, 0.00123, - + 0.15659, 0.03244, 0.01880, 0.00102, 0.00007, - + -0.00002, 0.00052, 0.00110 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ - + 0.14610, 0.02996, 0.01611, 0.00086, 0.00010, - + -0.00001, 0.00048, 0.00103, - + 0.13670, 0.02781, 0.01396, 0.00076, 0.00012, - + 0.00001, 0.00046, 0.00099, - + 0.12837, 0.02593, 0.01223, 0.00069, 0.00011, - + 0.00002, 0.00043, 0.00090, - + 0.12096, 0.02427, 0.01081, 0.00065, 0.00009, - + 0.00001, 0.00040, 0.00079, - + 0.11416, 0.02279, 0.00963, 0.00065, 0.00008, - + 0.00000, 0.00037, 0.00074, - + 0.10823, 0.02144, 0.00864, 0.00054, 0.00010, - + 0.00002, 0.00036, 0.00068, - + 0.10280, 0.02023, 0.00780, 0.00046, 0.00011, - + 0.00004, 0.00034, 0.00066 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ - + 0.09774, 0.01915, 0.00708, 0.00043, 0.00010, - + 0.00004, 0.00032, 0.00067, - + 0.09314, 0.01816, 0.00647, 0.00041, 0.00011, - + 0.00006, 0.00032, 0.00063, - + 0.08893, 0.01726, 0.00594, 0.00040, 0.00011, - + 0.00007, 0.00032, 0.00059, - + 0.08499, 0.01643, 0.00547, 0.00037, 0.00009, - + 0.00004, 0.00028, 0.00058, - + 0.08139, 0.01567, 0.00506, 0.00035, 0.00007, - + 0.00002, 0.00025, 0.00056 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + 0.23862, 0.04997, 0.05362, 0.00121, -0.00002, - + -0.00004, 0.00065, 0.00166, - + 0.21057, 0.04335, 0.03974, 0.00104, 0.00001, - + -0.00008, 0.00056, 0.00137, - + 0.18820, 0.03826, 0.03052, 0.00105, 0.00003, - + -0.00004, 0.00048, 0.00112, - + 0.17020, 0.03419, 0.02414, 0.00083, 0.00004, - + -0.00003, 0.00045, 0.00107, - + 0.15520, 0.03084, 0.01958, 0.00077, 0.00005, - + -0.00005, 0.00040, 0.00092, - + 0.14269, 0.02801, 0.01618, 0.00066, 0.00005, - + -0.00006, 0.00038, 0.00078, - + 0.13175, 0.02565, 0.01360, 0.00060, 0.00008, - + -0.00002, 0.00037, 0.00073 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ - + 0.12234, 0.02361, 0.01159, 0.00049, 0.00007, - + -0.00001, 0.00035, 0.00072, - + 0.11407, 0.02184, 0.00999, 0.00046, 0.00008, - + 0.00000, 0.00032, 0.00063, - + 0.10667, 0.02029, 0.00871, 0.00048, 0.00009, - + 0.00002, 0.00030, 0.00056, - + 0.10010, 0.01892, 0.00766, 0.00045, 0.00008, - + 0.00002, 0.00029, 0.00053, - + 0.09439, 0.01769, 0.00679, 0.00034, 0.00007, - + 0.00001, 0.00027, 0.00052, - + 0.08915, 0.01662, 0.00607, 0.00029, 0.00008, - + 0.00002, 0.00025, 0.00049, - + 0.08438, 0.01565, 0.00547, 0.00028, 0.00008, - + 0.00003, 0.00024, 0.00046 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ - + 0.08001, 0.01478, 0.00496, 0.00029, 0.00007, - + 0.00003, 0.00024, 0.00042, - + 0.07609, 0.01396, 0.00451, 0.00023, 0.00006, - + 0.00003, 0.00021, 0.00040, - + 0.07252, 0.01323, 0.00413, 0.00018, 0.00006, - + 0.00002, 0.00019, 0.00038, - + 0.06916, 0.01257, 0.00380, 0.00020, 0.00006, - + 0.00003, 0.00019, 0.00035, - + 0.06607, 0.01196, 0.00351, 0.00021, 0.00007, - + 0.00004, 0.00019, 0.00032 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + 0.20442, 0.04018, 0.04066, 0.00071, 0.00000, - + -0.00001, 0.00043, 0.00115, - + 0.17896, 0.03463, 0.02967, 0.00066, -0.00002, - + -0.00006, 0.00033, 0.00091, - + 0.15894, 0.03037, 0.02249, 0.00064, 0.00001, - + -0.00005, 0.00037, 0.00081, - + 0.14287, 0.02695, 0.01761, 0.00058, 0.00003, - + -0.00004, 0.00033, 0.00068, - + 0.12979, 0.02418, 0.01413, 0.00043, 0.00005, - + -0.00003, 0.00028, 0.00061, - + 0.11863, 0.02188, 0.01159, 0.00040, 0.00007, - + -0.00001, 0.00027, 0.00052, - + 0.10906, 0.01994, 0.00968, 0.00042, 0.00006, - + 0.00000, 0.00024, 0.00047 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ - + 0.10082, 0.01829, 0.00820, 0.00034, 0.00008, - + 0.00001, 0.00025, 0.00044, - + 0.09367, 0.01685, 0.00703, 0.00029, 0.00007, - + 0.00002, 0.00025, 0.00041, - + 0.08742, 0.01559, 0.00610, 0.00022, 0.00006, - + 0.00003, 0.00022, 0.00040, - + 0.08188, 0.01449, 0.00534, 0.00014, 0.00006, - + 0.00003, 0.00020, 0.00037, - + 0.07686, 0.01354, 0.00473, 0.00015, 0.00008, - + 0.00002, 0.00019, 0.00030, - + 0.07233, 0.01266, 0.00421, 0.00014, 0.00007, - + 0.00002, 0.00018, 0.00029, - + 0.06823, 0.01187, 0.00377, 0.00015, 0.00007, - + 0.00002, 0.00017, 0.00028 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ - + 0.06448, 0.01118, 0.00340, 0.00018, 0.00005, - + 0.00002, 0.00016, 0.00024, - + 0.06114, 0.01054, 0.00309, 0.00016, 0.00006, - + 0.00003, 0.00016, 0.00025, - + 0.05811, 0.00997, 0.00282, 0.00014, 0.00007, - + 0.00004, 0.00015, 0.00025, - + 0.05532, 0.00945, 0.00259, 0.00013, 0.00007, - + 0.00003, 0.00014, 0.00022, - + 0.05276, 0.00898, 0.00239, 0.00012, 0.00006, - + 0.00003, 0.00013, 0.00020 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + 0.17266, 0.03194, 0.03046, 0.00066, -0.00006, - + -0.00009, 0.00023, 0.00070, - + 0.15014, 0.02735, 0.02189, 0.00049, -0.00003, - + -0.00008, 0.00021, 0.00064, - + 0.13279, 0.02382, 0.01640, 0.00037, 0.00001, - + -0.00008, 0.00022, 0.00054, - + 0.11866, 0.02103, 0.01272, 0.00035, 0.00001, - + -0.00007, 0.00018, 0.00043, - + 0.10704, 0.01876, 0.01014, 0.00033, 0.00002, - + -0.00005, 0.00016, 0.00040, - + 0.09736, 0.01692, 0.00825, 0.00031, 0.00001, - + -0.00004, 0.00015, 0.00035, - + 0.08928, 0.01536, 0.00684, 0.00024, 0.00002, - + -0.00003, 0.00015, 0.00031 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ - + 0.08223, 0.01402, 0.00576, 0.00022, 0.00003, - + -0.00001, 0.00014, 0.00028, - + 0.07603, 0.01288, 0.00491, 0.00019, 0.00003, - + -0.00001, 0.00013, 0.00028, - + 0.07063, 0.01188, 0.00424, 0.00018, 0.00003, - + 0.00000, 0.00012, 0.00027, - + 0.06591, 0.01101, 0.00370, 0.00016, 0.00003, - + 0.00000, 0.00012, 0.00024, - + 0.06173, 0.01024, 0.00326, 0.00011, 0.00003, - + 0.00001, 0.00010, 0.00020, - + 0.05793, 0.00955, 0.00290, 0.00011, 0.00002, - + 0.00001, 0.00009, 0.00021, - + 0.05453, 0.00894, 0.00259, 0.00010, 0.00002, - + 0.00001, 0.00009, 0.00020 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ - + 0.05149, 0.00840, 0.00233, 0.00009, 0.00003, - + 0.00001, 0.00010, 0.00017, - + 0.04870, 0.00790, 0.00212, 0.00009, 0.00004, - + 0.00001, 0.00009, 0.00015, - + 0.04617, 0.00746, 0.00193, 0.00009, 0.00004, - + 0.00002, 0.00009, 0.00014, - + 0.04380, 0.00706, 0.00177, 0.00010, 0.00003, - + 0.00002, 0.00008, 0.00013, - + 0.04165, 0.00669, 0.00162, 0.00011, 0.00003, - + 0.00002, 0.00007, 0.00013 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + 0.14342, 0.02477, 0.02224, 0.00027, -0.00005, - + -0.00003, 0.00016, 0.00052, - + 0.12384, 0.02109, 0.01581, 0.00033, 0.00000, - + -0.00001, 0.00015, 0.00041, - + 0.10858, 0.01828, 0.01173, 0.00037, 0.00000, - + -0.00003, 0.00013, 0.00030, - + 0.09667, 0.01606, 0.00903, 0.00025, -0.00001, - + -0.00002, 0.00010, 0.00030, - + 0.08690, 0.01428, 0.00713, 0.00023, 0.00000, - + -0.00001, 0.00010, 0.00024, - + 0.07868, 0.01283, 0.00576, 0.00023, 0.00000, - + -0.00002, 0.00009, 0.00019, - + 0.07174, 0.01159, 0.00475, 0.00021, 0.00001, - + -0.00001, 0.00007, 0.00020 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ - + 0.06589, 0.01056, 0.00398, 0.00015, 0.00001, - + 0.00000, 0.00008, 0.00020, - + 0.06077, 0.00967, 0.00338, 0.00012, 0.00000, - + 0.00000, 0.00007, 0.00018, - + 0.05628, 0.00889, 0.00291, 0.00011, 0.00000, - + 0.00000, 0.00005, 0.00016, - + 0.05233, 0.00821, 0.00253, 0.00010, 0.00000, - + -0.00001, 0.00005, 0.00014, - + 0.04883, 0.00761, 0.00222, 0.00009, 0.00001, - + -0.00002, 0.00005, 0.00011, - + 0.04569, 0.00709, 0.00196, 0.00009, 0.00001, - + -0.00001, 0.00004, 0.00012, - + 0.04288, 0.00663, 0.00175, 0.00009, 0.00001, - + 0.00000, 0.00004, 0.00012 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ - + 0.04036, 0.00621, 0.00157, 0.00007, 0.00000, - + 0.00000, 0.00004, 0.00011, - + 0.03806, 0.00583, 0.00142, 0.00008, 0.00000, - + -0.00001, 0.00003, 0.00011, - + 0.03598, 0.00549, 0.00129, 0.00009, 0.00001, - + -0.00001, 0.00003, 0.00010, - + 0.03412, 0.00517, 0.00118, 0.00007, 0.00001, - + 0.00000, 0.00003, 0.00010, - + 0.03242, 0.00489, 0.00108, 0.00006, 0.00001, - + 0.00000, 0.00003, 0.00009 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + 0.09368, 0.01408, 0.01114, 0.00016, 0.00000, - + 0.00000, 0.00007, 0.00017, - + 0.07970, 0.01178, 0.00766, 0.00011, 0.00000, - + -0.00002, 0.00005, 0.00016, - + 0.06904, 0.01007, 0.00553, 0.00010, 0.00001, - + -0.00001, 0.00007, 0.00009, - + 0.06060, 0.00874, 0.00416, 0.00009, 0.00001, - + -0.00001, 0.00004, 0.00009, - + 0.05385, 0.00769, 0.00322, 0.00007, 0.00000, - + 0.00000, 0.00005, 0.00010, - + 0.04831, 0.00683, 0.00257, 0.00006, 0.00001, - + 0.00000, 0.00004, 0.00008, - + 0.04364, 0.00613, 0.00208, 0.00005, 0.00001, - + 0.00000, 0.00004, 0.00007 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ - + 0.03971, 0.00553, 0.00172, 0.00003, 0.00001, - + 0.00000, 0.00004, 0.00005, - + 0.03631, 0.00502, 0.00145, 0.00002, 0.00001, - + 0.00000, 0.00004, 0.00006, - + 0.03336, 0.00458, 0.00123, 0.00002, 0.00001, - + 0.00000, 0.00003, 0.00006, - + 0.03081, 0.00420, 0.00106, 0.00002, 0.00001, - + 0.00001, 0.00003, 0.00005, - + 0.02855, 0.00387, 0.00093, 0.00002, 0.00001, - + 0.00000, 0.00003, 0.00003, - + 0.02655, 0.00358, 0.00081, 0.00002, 0.00001, - + 0.00000, 0.00002, 0.00003, - + 0.02477, 0.00332, 0.00072, 0.00001, 0.00000, - + 0.00000, 0.00002, 0.00003 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ - + 0.02317, 0.00309, 0.00064, 0.00001, 0.00000, - + 0.00000, 0.00002, 0.00004, - + 0.02172, 0.00289, 0.00058, 0.00001, 0.00000, - + 0.00000, 0.00002, 0.00004, - + 0.02043, 0.00270, 0.00052, 0.00001, 0.00000, - + 0.00000, 0.00002, 0.00003, - + 0.01926, 0.00254, 0.00048, 0.00001, 0.00000, - + 0.00000, 0.00002, 0.00003, - + 0.01821, 0.00239, 0.00044, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00003 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + 0.05629, 0.00727, 0.00502, 0.00011, -0.00001, - + -0.00001, 0.00002, 0.00004, - + 0.04705, 0.00598, 0.00333, 0.00006, -0.00001, - + -0.00002, 0.00000, 0.00004, - + 0.04015, 0.00504, 0.00234, 0.00004, -0.00001, - + -0.00002, 0.00001, 0.00004, - + 0.03483, 0.00432, 0.00172, 0.00002, 0.00000, - + 0.00000, 0.00002, 0.00004, - + 0.03055, 0.00375, 0.00131, 0.00003, 0.00000, - + 0.00000, 0.00001, 0.00002, - + 0.02710, 0.00330, 0.00102, 0.00002, 0.00000, - + 0.00000, 0.00001, 0.00002, - + 0.02423, 0.00292, 0.00082, 0.00001, 0.00000, - + -0.00001, 0.00001, 0.00002 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ - + 0.02182, 0.00261, 0.00067, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.01978, 0.00235, 0.00056, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.01802, 0.00213, 0.00047, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00002, - + 0.01650, 0.00194, 0.00040, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.01518, 0.00177, 0.00035, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.01403, 0.00163, 0.00030, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.01301, 0.00150, 0.00027, 0.00000, 0.00000, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ - + 0.01210, 0.00139, 0.00024, 0.00000, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.01127, 0.00129, 0.00021, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01054, 0.00120, 0.00019, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.00988, 0.00112, 0.00017, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.00928, 0.00105, 0.00016, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + 0.03004, 0.00326, 0.00193, 0.00002, -0.00001, - + -0.00001, 0.00000, 0.00001, - + 0.02465, 0.00264, 0.00124, 0.00002, 0.00000, - + -0.00001, 0.00000, 0.00001, - + 0.02070, 0.00218, 0.00085, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.01768, 0.00185, 0.00061, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01532, 0.00158, 0.00045, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01342, 0.00138, 0.00035, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01187, 0.00121, 0.00028, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ - + 0.01059, 0.00107, 0.00022, -0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.00949, 0.00095, 0.00018, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00857, 0.00085, 0.00015, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00779, 0.00077, 0.00013, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.00711, 0.00070, 0.00011, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00651, 0.00064, 0.00010, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00599, 0.00058, 0.00009, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ - + 0.00553, 0.00054, 0.00008, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00512, 0.00050, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00476, 0.00046, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00443, 0.00043, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00414, 0.00040, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + 0.01362, 0.00121, 0.00060, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01091, 0.00095, 0.00037, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.00897, 0.00077, 0.00024, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.00753, 0.00064, 0.00017, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00642, 0.00054, 0.00012, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00555, 0.00046, 0.00009, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00484, 0.00040, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ - + 0.00426, 0.00035, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00378, 0.00031, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00337, 0.00028, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00303, 0.00025, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00274, 0.00022, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00249, 0.00020, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00227, 0.00018, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ - + 0.00208, 0.00017, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00191, 0.00015, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00176, 0.00014, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00163, 0.00013, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00151, 0.00012, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + 0.00104, 0.00005, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00078, 0.00004, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00061, 0.00003, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00049, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00040, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00033, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00028, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ - + 0.00024, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00020, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00018, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00015, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00013, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ - + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00006, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,5,7,0,0,7,7/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ - - - XSAVE=X - - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(84,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7) GO TO 31 - DO 30 K=1,19 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,8 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) - - X=XSAVE - - RETURN - END diff --git a/PDF/spdf/sfmsbh.F b/PDF/spdf/sfmsbh.F deleted file mode 100644 index 668c65c601e..00000000000 --- a/PDF/spdf/sfmsbh.F +++ /dev/null @@ -1,1981 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:22 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:44 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFMSBH(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) - -C THIS IS THE NEW PRELIMINARY HERA FIT MRS(H) -C .... WITH UBAR < DBAR (230 MeV) - -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,20),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + 0.01399, 0.00189, 28.57361, 2.52574, 0.13922, - + 0.00000, 1.35002, 2.55150, - + 0.01450, 0.00205, 41.41998, 2.93569, 0.60391, - + 0.00001, 1.78792, 2.96110, - + 0.01497, 0.00221, 56.22984, 3.40128, 1.11643, - + 0.00001, 2.27752, 3.42636, - + 0.01541, 0.00235, 72.60197, 3.91488, 1.67105, - + 0.00001, 2.81215, 3.93963, - + 0.01581, 0.00249, 90.39349, 4.46961, 2.26217, - + 0.12740, 3.38556, 4.49408, - + 0.01618, 0.00263, 109.40785, 5.06167, 2.88696, - + 0.69649, 3.99446, 5.08588, - + 0.01654, 0.00276, 129.52321, 5.69024, 3.54540, - + 1.39599, 4.63840, 5.71420 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ - + 0.01688, 0.00289, 150.59039, 6.35208, 4.23468, - + 2.11291, 5.31439, 6.37581, - + 0.01721, 0.00301, 172.47517, 7.04358, 4.95158, - + 2.85689, 6.01900, 7.06710, - + 0.01752, 0.00313, 195.07593, 7.76197, 5.69356, - + 3.62358, 6.74958, 7.78529, - + 0.01782, 0.00325, 218.32326, 8.50504, 6.45865, - + 4.41183, 7.50404, 8.52820, - + 0.01811, 0.00336, 242.10217, 9.27003, 7.24428, - + 5.21909, 8.27972, 9.29304, - + 0.01840, 0.00348, 266.14624, 10.05212, 8.04581, - + 6.04096, 9.07188, 10.07497, - + 0.01867, 0.00359, 290.66772, 10.85345, 8.86548, - + 6.87977, 9.88272, 10.87617 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ - + 0.01893, 0.00370, 315.54395, 11.67175, 9.70111, - + 7.73350, 10.71001, 11.69433, - + 0.01919, 0.00380, 340.46313, 12.50028, 10.54612, - + 8.59568, 11.54710, 12.52274, - + 0.01944, 0.00391, 365.83740, 13.34612, 11.40759, - + 9.47343, 12.40105, 13.36847, - + 0.01968, 0.00401, 391.07251, 14.19815, 12.27457, - + 10.35593, 13.26086, 14.22042, - + 0.01992, 0.00411, 416.66797, 15.06506, 13.15572, - + 11.25187, 14.13518, 15.08723 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + 0.01772, 0.00272, 23.12250, 2.05768, 0.11044, - + 0.00000, 1.09384, 2.07248, - + 0.01840, 0.00297, 33.11473, 2.37891, 0.47574, - + 0.00000, 1.43741, 2.39348, - + 0.01903, 0.00319, 44.40932, 2.73870, 0.87330, - + 0.00001, 1.81637, 2.75305, - + 0.01960, 0.00341, 56.67400, 3.13056, 1.29815, - + 0.00000, 2.22501, 3.14471, - + 0.02012, 0.00361, 69.79974, 3.54923, 1.74606, - + 0.09624, 2.65856, 3.56320, - + 0.02062, 0.00381, 83.63524, 3.99164, 2.21476, - + 0.52392, 3.11437, 4.00544, - + 0.02109, 0.00400, 98.08752, 4.45698, 2.70407, - + 1.04547, 3.59193, 4.47063 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ - + 0.02154, 0.00418, 113.04889, 4.94272, 3.21183, - + 1.57516, 4.08891, 4.95622, - + 0.02196, 0.00436, 128.42447, 5.44617, 3.73564, - + 2.12040, 4.60277, 5.45955, - + 0.02237, 0.00453, 144.14647, 5.96530, 4.27367, - + 2.67801, 5.13156, 5.97855, - + 0.02276, 0.00470, 160.17076, 6.49851, 4.82451, - + 3.24717, 5.67379, 6.51165, - + 0.02314, 0.00487, 176.41954, 7.04381, 5.38634, - + 3.82612, 6.22756, 7.05686, - + 0.02351, 0.00503, 192.70801, 7.59759, 5.95567, - + 4.41154, 6.78931, 7.61054, - + 0.02386, 0.00518, 209.19713, 8.16174, 6.53449, - + 5.00551, 7.36098, 8.17461 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ - + 0.02420, 0.00534, 225.80484, 8.73462, 7.12124, - + 5.60657, 7.94098, 8.74743, - + 0.02453, 0.00549, 242.31677, 9.31133, 7.71111, - + 6.21002, 8.52444, 9.32406, - + 0.02486, 0.00563, 259.03003, 9.89730, 8.30958, - + 6.82136, 9.11683, 9.91000, - + 0.02517, 0.00578, 275.53491, 10.48433, 8.90855, - + 7.43260, 9.70999, 10.49697, - + 0.02548, 0.00592, 292.18457, 11.07906, 9.51465, - + 8.05038, 10.31057, 11.09164 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + 0.02241, 0.00393, 18.71066, 1.67536, 0.08754, - + 0.00000, 0.88625, 1.68330, - + 0.02331, 0.00428, 26.47142, 1.92669, 0.37440, - + 0.00000, 1.15548, 1.93450, - + 0.02412, 0.00462, 35.06683, 2.20416, 0.68230, - + 0.00000, 1.44829, 2.21187, - + 0.02487, 0.00493, 44.22931, 2.50242, 1.00712, - + 0.00000, 1.75995, 2.51003, - + 0.02556, 0.00523, 53.88190, 2.81753, 1.34576, - + 0.07253, 2.08694, 2.82505, - + 0.02621, 0.00552, 63.91248, 3.14711, 1.69647, - + 0.39322, 2.42720, 3.15454, - + 0.02682, 0.00579, 74.25426, 3.49047, 2.05910, - + 0.78114, 2.78030, 3.49783 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ - + 0.02740, 0.00606, 84.83257, 3.84571, 2.43203, - + 1.17147, 3.14449, 3.85301, - + 0.02796, 0.00631, 95.58434, 4.21089, 2.81355, - + 1.56995, 3.51794, 4.21813, - + 0.02849, 0.00656, 106.46631, 4.58455, 3.20237, - + 1.97427, 3.89928, 4.59172, - + 0.02900, 0.00680, 117.45285, 4.96560, 3.59757, - + 2.38397, 4.28750, 4.97272, - + 0.02949, 0.00704, 128.49417, 5.35265, 3.99787, - + 2.79781, 4.68126, 5.35973, - + 0.02996, 0.00727, 139.46341, 5.74303, 4.40071, - + 3.21339, 5.07796, 5.75007, - + 0.03042, 0.00749, 150.48344, 6.13838, 4.80782, - + 3.63247, 5.47927, 6.14539 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ - + 0.03086, 0.00771, 161.50014, 6.53758, 5.21812, - + 4.05410, 5.88411, 6.54456, - + 0.03129, 0.00792, 172.36797, 6.93704, 5.62812, - + 4.47482, 6.28891, 6.94399, - + 0.03170, 0.00813, 183.30180, 7.34098, 6.04206, - + 4.89894, 6.69793, 7.34790, - + 0.03211, 0.00833, 194.01912, 7.74337, 6.45399, - + 5.32057, 7.10517, 7.75027, - + 0.03250, 0.00853, 204.77129, 8.14922, 6.86895, - + 5.74476, 7.51565, 8.15611 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + 0.02568, 0.00487, 16.53067, 1.48499, 0.07637, - + 0.00000, 0.78360, 1.49042, - + 0.02673, 0.00532, 23.21927, 1.70253, 0.32526, - + 0.00000, 1.01687, 1.70789, - + 0.02769, 0.00574, 30.53673, 1.94063, 0.59019, - + 0.00000, 1.26845, 1.94593, - + 0.02856, 0.00613, 38.25038, 2.19453, 0.86751, - + 0.00000, 1.53412, 2.19979, - + 0.02937, 0.00650, 46.30000, 2.46097, 1.15468, - + 0.06140, 1.81099, 2.46619, - + 0.03012, 0.00686, 54.59346, 2.73794, 1.45028, - + 0.33205, 2.09733, 2.74312, - + 0.03084, 0.00720, 63.07721, 3.02485, 1.75415, - + 0.65786, 2.39277, 3.02999 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ - + 0.03152, 0.00753, 71.69281, 3.32010, 2.06498, - + 0.98389, 2.69587, 3.32522, - + 0.03216, 0.00784, 80.39113, 3.62211, 2.38137, - + 1.31506, 3.00512, 3.62720, - + 0.03278, 0.00815, 89.14072, 3.92971, 2.70232, - + 1.64953, 3.31945, 3.93478, - + 0.03337, 0.00845, 97.92462, 4.24206, 3.02712, - + 1.98698, 3.63808, 4.24712, - + 0.03394, 0.00874, 106.70447, 4.55803, 3.35474, - + 2.32641, 3.95992, 4.56306, - + 0.03449, 0.00902, 115.37933, 4.87541, 3.68309, - + 2.66585, 4.28283, 4.88043, - + 0.03502, 0.00929, 124.05481, 5.19573, 4.01373, - + 3.00694, 4.60835, 5.20074 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ - + 0.03553, 0.00955, 132.68863, 5.51803, 4.34580, - + 3.34887, 4.93558, 5.52303, - + 0.03603, 0.00981, 141.16512, 5.83940, 4.67643, - + 3.68886, 5.26162, 5.84439, - + 0.03651, 0.01007, 149.66237, 6.16345, 5.00927, - + 4.03056, 5.59011, 6.16844, - + 0.03698, 0.01031, 157.95305, 6.48515, 5.33936, - + 4.36910, 5.91604, 6.49013, - + 0.03743, 0.01055, 166.24387, 6.80877, 5.67098, - + 4.70876, 6.24370, 6.81376 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + 0.02828, 0.00567, 15.13950, 1.36292, 0.06931, - + 0.00000, 0.71806, 1.36711, - + 0.02945, 0.00620, 21.15556, 1.55918, 0.29426, - + 0.00000, 0.92870, 1.56335, - + 0.03052, 0.00669, 27.67900, 1.77264, 0.53228, - + 0.00000, 1.15448, 1.77679, - + 0.03149, 0.00715, 34.50014, 1.99898, 0.78004, - + 0.00000, 1.39155, 2.00311, - + 0.03239, 0.00759, 41.56969, 2.23533, 1.03536, - + 0.05451, 1.63742, 2.23946, - + 0.03323, 0.00800, 48.80835, 2.47993, 1.29699, - + 0.29431, 1.89057, 2.48405, - + 0.03403, 0.00840, 56.17104, 2.73226, 1.56483, - + 0.58199, 2.15068, 2.73637 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ - + 0.03478, 0.00878, 63.60899, 2.99093, 1.83774, - + 0.86870, 2.41650, 2.99504, - + 0.03550, 0.00915, 71.08234, 3.25458, 2.11453, - + 1.15891, 2.68675, 3.25868, - + 0.03619, 0.00950, 78.56602, 3.52221, 2.39437, - + 1.45101, 2.96051, 3.52631, - + 0.03685, 0.00985, 86.04810, 3.79315, 2.67668, - + 1.74479, 3.23716, 3.79725, - + 0.03748, 0.01018, 93.49756, 4.06641, 2.96060, - + 2.03942, 3.51578, 4.07052, - + 0.03809, 0.01051, 100.82874, 4.34007, 3.24427, - + 2.33317, 3.79447, 4.34419, - + 0.03868, 0.01082, 108.13600, 4.61557, 3.52920, - + 2.62757, 4.07471, 4.61969 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ - + 0.03925, 0.01113, 115.38472, 4.89210, 3.81465, - + 2.92197, 4.35572, 4.89622, - + 0.03980, 0.01143, 122.47620, 5.16710, 4.09811, - + 3.21392, 4.63498, 5.17123, - + 0.04033, 0.01172, 129.56682, 5.44385, 4.38289, - + 3.50673, 4.91576, 5.44800, - + 0.04085, 0.01200, 136.46161, 5.71789, 4.66459, - + 3.79609, 5.19365, 5.72204, - + 0.04136, 0.01228, 143.34029, 5.99307, 4.94706, - + 4.08586, 5.47249, 5.99723 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + 0.03046, 0.00638, 14.14132, 1.27502, 0.06427, - + 0.00000, 0.67103, 1.27853, - + 0.03174, 0.00698, 19.68086, 1.45616, 0.27221, - + 0.00000, 0.86559, 1.45968, - + 0.03290, 0.00754, 25.64561, 1.65221, 0.49119, - + 0.00000, 1.07312, 1.65574, - + 0.03396, 0.00806, 31.84277, 1.85914, 0.71812, - + 0.00000, 1.29006, 1.86268, - + 0.03494, 0.00856, 38.23102, 2.07441, 0.95110, - + 0.04969, 1.51420, 2.07796, - + 0.03585, 0.00902, 44.74008, 2.29640, 1.18899, - + 0.26791, 1.74416, 2.29996, - + 0.03672, 0.00947, 51.33093, 2.52466, 1.43172, - + 0.52899, 1.97967, 2.52823 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ - + 0.03754, 0.00990, 57.96184, 2.75795, 1.67830, - + 0.78837, 2.21962, 2.76154, - + 0.03832, 0.01031, 64.59860, 2.99506, 1.92768, - + 1.05019, 2.46288, 2.99866, - + 0.03907, 0.01071, 71.22144, 3.23513, 2.17913, - + 1.31302, 2.70865, 3.23875, - + 0.03978, 0.01110, 77.82121, 3.47757, 2.43218, - + 1.57670, 2.95641, 3.48120, - + 0.04047, 0.01147, 84.37195, 3.72152, 2.68607, - + 1.84053, 3.20534, 3.72517, - + 0.04113, 0.01183, 90.79819, 3.96526, 2.93915, - + 2.10294, 3.45376, 3.96893, - + 0.04177, 0.01218, 97.18675, 4.21015, 3.19283, - + 2.36541, 3.70306, 4.21383 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ - + 0.04238, 0.01253, 103.50786, 4.45548, 3.44648, - + 2.62735, 3.95256, 4.45918, - + 0.04298, 0.01286, 109.67487, 4.69895, 3.69784, - + 2.88658, 4.19999, 4.70267, - + 0.04356, 0.01318, 115.82816, 4.94358, 3.94995, - + 3.14614, 4.44836, 4.94731, - + 0.04412, 0.01350, 121.79561, 5.18534, 4.19884, - + 3.40214, 4.69370, 5.18908, - + 0.04466, 0.01381, 127.73788, 5.42774, 4.44805, - + 3.65810, 4.93951, 5.43150 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + 0.03836, 0.00925, 11.43973, 1.03567, 0.05078, - + 0.00000, 0.54373, 1.03836, - + 0.04001, 0.01013, 15.71670, 1.17658, 0.21340, - + 0.00000, 0.69549, 1.17936, - + 0.04151, 0.01096, 20.21892, 1.32668, 0.38207, - + 0.00000, 0.85488, 1.32954, - + 0.04288, 0.01172, 24.80116, 1.48282, 0.55440, - + 0.00000, 1.01910, 1.48575, - + 0.04415, 0.01243, 29.44316, 1.64326, 0.72917, - + 0.03716, 1.18670, 1.64626, - + 0.04533, 0.01311, 34.09891, 1.80686, 0.90564, - + 0.19950, 1.35673, 1.80993, - + 0.04644, 0.01375, 38.74529, 1.97333, 1.08382, - + 0.39205, 1.52904, 1.97646 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ - + 0.04750, 0.01437, 43.35803, 2.14183, 1.26306, - + 0.58144, 1.70291, 2.14501, - + 0.04850, 0.01496, 47.91843, 2.31155, 1.44269, - + 0.77090, 1.87757, 2.31479, - + 0.04946, 0.01553, 52.41753, 2.48195, 1.62230, - + 0.95950, 2.05258, 2.48525, - + 0.05038, 0.01608, 56.85410, 2.65270, 1.80163, - + 1.14723, 2.22761, 2.65605, - + 0.05126, 0.01660, 61.21371, 2.82325, 1.98020, - + 1.33365, 2.40216, 2.82664, - + 0.05211, 0.01712, 65.44678, 2.99236, 2.15687, - + 1.51769, 2.57504, 2.99581, - + 0.05293, 0.01761, 69.61964, 3.16121, 2.33282, - + 1.70058, 2.74743, 3.16469 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ - + 0.05372, 0.01809, 73.71400, 3.32931, 2.50763, - + 1.88195, 2.91888, 3.33283, - + 0.05448, 0.01856, 77.67226, 3.49504, 2.67973, - + 2.06026, 3.08778, 3.49861, - + 0.05522, 0.01901, 81.59584, 3.66070, 2.85144, - + 2.23785, 3.25646, 3.66431, - + 0.05594, 0.01945, 85.36723, 3.82339, 3.01989, - + 2.41191, 3.42202, 3.82704, - + 0.05664, 0.01989, 89.10036, 3.98575, 3.18774, - + 2.58510, 3.58712, 3.98944 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + 0.04826, 0.01348, 9.25090, 0.84012, 0.04000, - + 0.00000, 0.44066, 0.84345, - + 0.05039, 0.01479, 12.53508, 0.94920, 0.16672, - + 0.00000, 0.55857, 0.95268, - + 0.05231, 0.01599, 15.90942, 1.06346, 0.29606, - + 0.00000, 0.68038, 1.06705, - + 0.05408, 0.01710, 19.26860, 1.18047, 0.42623, - + 0.00000, 0.80397, 1.18418, - + 0.05570, 0.01813, 22.60866, 1.29914, 0.55655, - + 0.02762, 0.92847, 1.30295, - + 0.05722, 0.01910, 25.90247, 1.41871, 0.68657, - + 0.14764, 1.05327, 1.42263, - + 0.05865, 0.02003, 29.13887, 1.53904, 0.81641, - + 0.28871, 1.17835, 1.54304 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ - + 0.06001, 0.02090, 32.30612, 1.65958, 0.94568, - + 0.42601, 1.30325, 1.66366, - + 0.06130, 0.02174, 35.39610, 1.77983, 1.07400, - + 0.56207, 1.42754, 1.78400, - + 0.06253, 0.02255, 38.40730, 1.89951, 1.20115, - + 0.69633, 1.55095, 1.90375, - + 0.06371, 0.02332, 41.34314, 2.01844, 1.32706, - + 0.82886, 1.67337, 2.02275, - + 0.06483, 0.02407, 44.19688, 2.13630, 1.45144, - + 0.95943, 1.79448, 2.14068, - + 0.06592, 0.02479, 46.93665, 2.25223, 1.57350, - + 1.08731, 1.91347, 2.25667, - + 0.06696, 0.02548, 49.61301, 2.36720, 1.69425, - + 1.21354, 2.03133, 2.37170 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ - + 0.06797, 0.02615, 52.21521, 2.48092, 1.81343, - + 1.33788, 2.14777, 2.48548, - + 0.06894, 0.02680, 54.70546, 2.59223, 1.92992, - + 1.45927, 2.26167, 2.59685, - + 0.06988, 0.02743, 57.15674, 2.70292, 2.04552, - + 1.57950, 2.37481, 2.70758, - + 0.07080, 0.02804, 59.48952, 2.81086, 2.15814, - + 1.69655, 2.48508, 2.81557, - + 0.07168, 0.02863, 61.78384, 2.91807, 2.26982, - + 1.81243, 2.59452, 2.92283 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + 0.05520, 0.01689, 8.16771, 0.74291, 0.03471, - + 0.00000, 0.38972, 0.74703, - + 0.05768, 0.01852, 10.97002, 0.83649, 0.14393, - + 0.00000, 0.49116, 0.84078, - + 0.05991, 0.02002, 13.80556, 0.93348, 0.25430, - + 0.00000, 0.59486, 0.93790, - + 0.06195, 0.02139, 16.58923, 1.03184, 0.36434, - + 0.00000, 0.69908, 1.03639, - + 0.06383, 0.02267, 19.32477, 1.13080, 0.47362, - + 0.02313, 0.80322, 1.13545, - + 0.06559, 0.02387, 21.99377, 1.22976, 0.58186, - + 0.12326, 0.90683, 1.23452, - + 0.06725, 0.02500, 24.59062, 1.32865, 0.68919, - + 0.24031, 1.00996, 1.33351 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ - + 0.06881, 0.02608, 27.10899, 1.42708, 0.79538, - + 0.35349, 1.11228, 1.43203, - + 0.07030, 0.02711, 29.54529, 1.52470, 0.90015, - + 0.46499, 1.21348, 1.52973, - + 0.07172, 0.02809, 31.90111, 1.62131, 1.00340, - + 0.57442, 1.31341, 1.62642, - + 0.07308, 0.02903, 34.18138, 1.71683, 1.10511, - + 0.68189, 1.41204, 1.72201, - + 0.07438, 0.02994, 36.38255, 1.81102, 1.20510, - + 0.78726, 1.50913, 1.81626, - + 0.07563, 0.03081, 38.48053, 1.90320, 1.30273, - + 0.88994, 1.60404, 1.90851, - + 0.07684, 0.03164, 40.51802, 1.99423, 1.39890, - + 0.99087, 1.69765, 1.99961 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ - + 0.07800, 0.03245, 42.48756, 2.08391, 1.49343, - + 1.08989, 1.78975, 2.08934, - + 0.07912, 0.03323, 44.35997, 2.17129, 1.58541, - + 1.18613, 1.87944, 2.17679, - + 0.08020, 0.03399, 46.19490, 2.25790, 1.67639, - + 1.28114, 1.96824, 2.26345, - + 0.08125, 0.03472, 47.92944, 2.34199, 1.76465, - + 1.37323, 2.05441, 2.34759, - + 0.08226, 0.03544, 49.62872, 2.42527, 1.85189, - + 1.46414, 2.13967, 2.43091 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + 0.06076, 0.01989, 7.47539, 0.68073, 0.03133, - + 0.00000, 0.35722, 0.68552, - + 0.06351, 0.02180, 9.97223, 0.76448, 0.12944, - + 0.00000, 0.44819, 0.76942, - + 0.06599, 0.02355, 12.46965, 0.85058, 0.22784, - + 0.00000, 0.54049, 0.85567, - + 0.06826, 0.02514, 14.89576, 0.93728, 0.32526, - + 0.00000, 0.63257, 0.94249, - + 0.07035, 0.02662, 17.25882, 1.02396, 0.42144, - + 0.02033, 0.72403, 1.02929, - + 0.07230, 0.02801, 19.54593, 1.11017, 0.51617, - + 0.10814, 0.81452, 1.11560, - + 0.07414, 0.02932, 21.75473, 1.19587, 0.60964, - + 0.21035, 0.90413, 1.20139 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ - + 0.07588, 0.03056, 23.88213, 1.28076, 0.70166, - + 0.30870, 0.99260, 1.28637, - + 0.07753, 0.03174, 25.92714, 1.36457, 0.79206, - + 0.40519, 1.07972, 1.37026, - + 0.07910, 0.03286, 27.89279, 1.44717, 0.88077, - + 0.49949, 1.16539, 1.45294, - + 0.08061, 0.03394, 29.78505, 1.52853, 0.96782, - + 0.59175, 1.24961, 1.53437, - + 0.08204, 0.03497, 31.60204, 1.60846, 1.05309, - + 0.68189, 1.33222, 1.61436, - + 0.08343, 0.03596, 33.32407, 1.68638, 1.13603, - + 0.76940, 1.41267, 1.69235, - + 0.08476, 0.03692, 34.98917, 1.76310, 1.21748, - + 0.85516, 1.49177, 1.76913 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ - + 0.08604, 0.03784, 36.59158, 1.83844, 1.29729, - + 0.93903, 1.56935, 1.84453, - + 0.08728, 0.03873, 38.10712, 1.91161, 1.37470, - + 1.02028, 1.64464, 1.91775, - + 0.08847, 0.03959, 39.58728, 1.98395, 1.45107, - + 1.10029, 1.71901, 1.99014, - + 0.08963, 0.04041, 40.97926, 2.05395, 1.52491, - + 1.17760, 1.79094, 2.06019, - + 0.09075, 0.04122, 42.33871, 2.12312, 1.59774, - + 1.25374, 1.86195, 2.12941 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + 0.06552, 0.02273, 6.97721, 0.63640, 0.02887, - + 0.00000, 0.33384, 0.64150, - + 0.06853, 0.02489, 9.25154, 0.71299, 0.11890, - + 0.00000, 0.41719, 0.71826, - + 0.07124, 0.02685, 11.50403, 0.79122, 0.20863, - + 0.00000, 0.50121, 0.79665, - + 0.07371, 0.02863, 13.67303, 0.86953, 0.29696, - + 0.00002, 0.58456, 0.87509, - + 0.07599, 0.03029, 15.77015, 0.94740, 0.38372, - + 0.01834, 0.66690, 0.95309, - + 0.07811, 0.03183, 17.78607, 1.02450, 0.46879, - + 0.09732, 0.74801, 1.03030, - + 0.08011, 0.03329, 19.72060, 1.10081, 0.55236, - + 0.18896, 0.82796, 1.10670 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ - + 0.08200, 0.03466, 21.57309, 1.17610, 0.63432, - + 0.27677, 0.90661, 1.18209, - + 0.08380, 0.03597, 23.34392, 1.25015, 0.71453, - + 0.36262, 0.98375, 1.25623, - + 0.08550, 0.03721, 25.03760, 1.32287, 0.79298, - + 0.44622, 1.05935, 1.32903, - + 0.08713, 0.03840, 26.66037, 1.39427, 0.86971, - + 0.52777, 1.13343, 1.40051, - + 0.08869, 0.03954, 28.21049, 1.46420, 0.94464, - + 0.60720, 1.20587, 1.47050, - + 0.09019, 0.04063, 29.67432, 1.53217, 1.01730, - + 0.68409, 1.27620, 1.53854, - + 0.09163, 0.04168, 31.08479, 1.59892, 1.08848, - + 0.75924, 1.34517, 1.60535 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ - + 0.09302, 0.04269, 32.43724, 1.66431, 1.15805, - + 0.83256, 1.41266, 1.67080, - + 0.09436, 0.04366, 33.70975, 1.72762, 1.22534, - + 0.90340, 1.47796, 1.73417, - + 0.09565, 0.04460, 34.94885, 1.79010, 1.29159, - + 0.97302, 1.54234, 1.79670, - + 0.09690, 0.04551, 36.10852, 1.85038, 1.35546, - + 1.04010, 1.60442, 1.85703, - + 0.09811, 0.04639, 37.23849, 1.90983, 1.41834, - + 1.10603, 1.66559, 1.91652 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + 0.08306, 0.03468, 5.62636, 0.51597, 0.02225, - + 0.00000, 0.27072, 0.52239, - + 0.08703, 0.03776, 7.30762, 0.57341, 0.09065, - + 0.00000, 0.33370, 0.58003, - + 0.09059, 0.04052, 8.91820, 0.63079, 0.15743, - + 0.00000, 0.39583, 0.63757, - + 0.09384, 0.04302, 10.42288, 0.68708, 0.22191, - + 0.00001, 0.45625, 0.69400, - + 0.09682, 0.04531, 11.84112, 0.74211, 0.28420, - + 0.01314, 0.51495, 0.74915, - + 0.09958, 0.04743, 13.17321, 0.79574, 0.34436, - + 0.06936, 0.57187, 0.80289, - + 0.10218, 0.04942, 14.42432, 0.84804, 0.40262, - + 0.13384, 0.62718, 0.85529 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ - + 0.10463, 0.05128, 15.59858, 0.89896, 0.45901, - + 0.19482, 0.68086, 0.90630, - + 0.10695, 0.05304, 16.70023, 0.94841, 0.51352, - + 0.25373, 0.73286, 0.95584, - + 0.10916, 0.05470, 17.73563, 0.99642, 0.56622, - + 0.31046, 0.78323, 1.00392, - + 0.11125, 0.05629, 18.71164, 1.04304, 0.61723, - + 0.36522, 0.83206, 1.05061, - + 0.11325, 0.05780, 19.62926, 1.08822, 0.66653, - + 0.41804, 0.87932, 1.09586, - + 0.11517, 0.05923, 20.48106, 1.13167, 0.71384, - + 0.46864, 0.92471, 1.13936, - + 0.11701, 0.06060, 21.29117, 1.17396, 0.75978, - + 0.51769, 0.96885, 1.18172 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ - + 0.11877, 0.06192, 22.05750, 1.21503, 0.80430, - + 0.56513, 1.01165, 1.22284, - + 0.12047, 0.06317, 22.76675, 1.25441, 0.84696, - + 0.61056, 1.05268, 1.26227, - + 0.12211, 0.06439, 23.45059, 1.29300, 0.88867, - + 0.65489, 1.09284, 1.30090, - + 0.12369, 0.06555, 24.07961, 1.32988, 0.92851, - + 0.69723, 1.13121, 1.33782, - + 0.12521, 0.06668, 24.68698, 1.36602, 0.96749, - + 0.73859, 1.16878, 1.37400 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + 0.10659, 0.05365, 4.52734, 0.41874, 0.01687, - + 0.00002, 0.21978, 0.42669, - + 0.11190, 0.05787, 5.73271, 0.46075, 0.06788, - + 0.00001, 0.26634, 0.46889, - + 0.11665, 0.06161, 6.84270, 0.50165, 0.11652, - + 0.00002, 0.31116, 0.50994, - + 0.12094, 0.06495, 7.84306, 0.54081, 0.16243, - + 0.00002, 0.35373, 0.54924, - + 0.12486, 0.06799, 8.75681, 0.57835, 0.20596, - + 0.00920, 0.39430, 0.58687, - + 0.12847, 0.07078, 9.59102, 0.61424, 0.24725, - + 0.04814, 0.43292, 0.62286, - + 0.13186, 0.07335, 10.35507, 0.64866, 0.28662, - + 0.09226, 0.46984, 0.65737 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ - + 0.13503, 0.07575, 11.05375, 0.68165, 0.32415, - + 0.13337, 0.50511, 0.69044, - + 0.13802, 0.07799, 11.69351, 0.71321, 0.35990, - + 0.17253, 0.53878, 0.72205, - + 0.14084, 0.08010, 12.28241, 0.74340, 0.39402, - + 0.20976, 0.57095, 0.75230, - + 0.14352, 0.08209, 12.82666, 0.77236, 0.42664, - + 0.24529, 0.60176, 0.78131, - + 0.14606, 0.08397, 13.32714, 0.80010, 0.45781, - + 0.27918, 0.63123, 0.80909, - + 0.14848, 0.08575, 13.78036, 0.82638, 0.48732, - + 0.31125, 0.65913, 0.83542, - + 0.15080, 0.08744, 14.20426, 0.85170, 0.51569, - + 0.34202, 0.68599, 0.86078 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ - + 0.15302, 0.08905, 14.59854, 0.87603, 0.54292, - + 0.37151, 0.71178, 0.88515, - + 0.15514, 0.09057, 14.95536, 0.89911, 0.56875, - + 0.39948, 0.73624, 0.90825, - + 0.15718, 0.09203, 15.29492, 0.92154, 0.59380, - + 0.42656, 0.75999, 0.93072, - + 0.15913, 0.09343, 15.59800, 0.94268, 0.61744, - + 0.45213, 0.78238, 0.95189, - + 0.16102, 0.09478, 15.88724, 0.96326, 0.64040, - + 0.47693, 0.80416, 0.97249 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + 0.12441, 0.06939, 3.98165, 0.37079, 0.01422, - + 0.00002, 0.19472, 0.37969, - + 0.13072, 0.07435, 4.95415, 0.40520, 0.05672, - + 0.00003, 0.23323, 0.41426, - + 0.13632, 0.07871, 5.82556, 0.43811, 0.09659, - + 0.00003, 0.26967, 0.44729, - + 0.14137, 0.08255, 6.59158, 0.46912, 0.13371, - + 0.00003, 0.30376, 0.47841, - + 0.14597, 0.08601, 7.27642, 0.49842, 0.16845, - + 0.00735, 0.33581, 0.50780, - + 0.15019, 0.08916, 7.89017, 0.52610, 0.20103, - + 0.03830, 0.36597, 0.53556, - + 0.15410, 0.09206, 8.44100, 0.55235, 0.23176, - + 0.07307, 0.39448, 0.56186 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ - + 0.15777, 0.09475, 8.93561, 0.57718, 0.26072, - + 0.10512, 0.42139, 0.58676, - + 0.16120, 0.09724, 9.38150, 0.60070, 0.28808, - + 0.13539, 0.44683, 0.61033, - + 0.16444, 0.09956, 9.78434, 0.62302, 0.31396, - + 0.16395, 0.47095, 0.63268, - + 0.16751, 0.10174, 10.15014, 0.64422, 0.33851, - + 0.19100, 0.49384, 0.65392, - + 0.17040, 0.10379, 10.48254, 0.66433, 0.36176, - + 0.21658, 0.51553, 0.67406, - + 0.17314, 0.10571, 10.77755, 0.68325, 0.38363, - + 0.24065, 0.53593, 0.69301, - + 0.17575, 0.10753, 11.04940, 0.70133, 0.40451, - + 0.26358, 0.55541, 0.71111 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ - + 0.17823, 0.10927, 11.29810, 0.71857, 0.42439, - + 0.28540, 0.57398, 0.72835, - + 0.18061, 0.11090, 11.51828, 0.73473, 0.44308, - + 0.30592, 0.59141, 0.74454, - + 0.18289, 0.11247, 11.72573, 0.75036, 0.46112, - + 0.32569, 0.60825, 0.76019, - + 0.18507, 0.11393, 11.90742, 0.76496, 0.47802, - + 0.34424, 0.62401, 0.77481, - + 0.18718, 0.11535, 12.07889, 0.77911, 0.49436, - + 0.36216, 0.63925, 0.78896 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + 0.13963, 0.08328, 3.63159, 0.34026, 0.01251, - + 0.00002, 0.17877, 0.34987, - + 0.14675, 0.08874, 4.45618, 0.36979, 0.04961, - + 0.00002, 0.21213, 0.37954, - + 0.15305, 0.09349, 5.17942, 0.39765, 0.08399, - + 0.00003, 0.24329, 0.40749, - + 0.15870, 0.09764, 5.80246, 0.42356, 0.11563, - + 0.00003, 0.27208, 0.43349, - + 0.16381, 0.10136, 6.34982, 0.44777, 0.14495, - + 0.00621, 0.29888, 0.45777, - + 0.16850, 0.10473, 6.83238, 0.47042, 0.17222, - + 0.03227, 0.32386, 0.48048, - + 0.17281, 0.10781, 7.25862, 0.49169, 0.19770, - + 0.06136, 0.34725, 0.50177 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ - + 0.17684, 0.11065, 7.63543, 0.51164, 0.22155, - + 0.08796, 0.36915, 0.52176, - + 0.18060, 0.11326, 7.96998, 0.53036, 0.24389, - + 0.11291, 0.38969, 0.54051, - + 0.18414, 0.11569, 8.26775, 0.54799, 0.26490, - + 0.13631, 0.40901, 0.55816, - + 0.18747, 0.11795, 8.53430, 0.56461, 0.28469, - + 0.15834, 0.42723, 0.57480, - + 0.19061, 0.12007, 8.77298, 0.58026, 0.30331, - + 0.17905, 0.44437, 0.59047, - + 0.19357, 0.12204, 8.98090, 0.59487, 0.32071, - + 0.19841, 0.46038, 0.60508, - + 0.19637, 0.12391, 9.17000, 0.60875, 0.33725, - + 0.21678, 0.47558, 0.61896 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ - + 0.19904, 0.12568, 9.34047, 0.62189, 0.35290, - + 0.23416, 0.48998, 0.63210, - + 0.20158, 0.12734, 9.48812, 0.63411, 0.36753, - + 0.25042, 0.50341, 0.64433, - + 0.20402, 0.12892, 9.62581, 0.64588, 0.38159, - + 0.26602, 0.51632, 0.65610, - + 0.20634, 0.13040, 9.74323, 0.65678, 0.39467, - + 0.28058, 0.52832, 0.66700, - + 0.20857, 0.13182, 9.85289, 0.66729, 0.40728, - + 0.29459, 0.53988, 0.67751 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + 0.15327, 0.09584, 3.37937, 0.31835, 0.01131, - + 0.00002, 0.16734, 0.32849, - + 0.16108, 0.10164, 4.09838, 0.34437, 0.04455, - + 0.00004, 0.19701, 0.35462, - + 0.16799, 0.10663, 4.71769, 0.36860, 0.07504, - + 0.00004, 0.22442, 0.37896, - + 0.17410, 0.11100, 5.24194, 0.39092, 0.10283, - + 0.00003, 0.24948, 0.40129, - + 0.17962, 0.11488, 5.69572, 0.41158, 0.12839, - + 0.00545, 0.27260, 0.42199, - + 0.18466, 0.11836, 6.08940, 0.43072, 0.15197, - + 0.02810, 0.29397, 0.44117, - + 0.18930, 0.12152, 6.43224, 0.44857, 0.17388, - + 0.05329, 0.31386, 0.45904 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ - + 0.19361, 0.12442, 6.73166, 0.46515, 0.19422, - + 0.07616, 0.33233, 0.47565, - + 0.19762, 0.12708, 6.99285, 0.48062, 0.21317, - + 0.09751, 0.34955, 0.49112, - + 0.20136, 0.12954, 7.22282, 0.49508, 0.23088, - + 0.11741, 0.36563, 0.50557, - + 0.20488, 0.13183, 7.42642, 0.50861, 0.24747, - + 0.13604, 0.38068, 0.51910, - + 0.20821, 0.13395, 7.60415, 0.52126, 0.26300, - + 0.15348, 0.39478, 0.53177, - + 0.21131, 0.13594, 7.75704, 0.53297, 0.27742, - + 0.16968, 0.40784, 0.54346, - + 0.21425, 0.13780, 7.89445, 0.54405, 0.29106, - + 0.18501, 0.42021, 0.55452 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ - + 0.21706, 0.13954, 8.01655, 0.55450, 0.30395, - + 0.19948, 0.43188, 0.56497, - + 0.21971, 0.14116, 8.11928, 0.56413, 0.31590, - + 0.21292, 0.44266, 0.57459, - + 0.22226, 0.14271, 8.21397, 0.57335, 0.32734, - + 0.22578, 0.45299, 0.58380, - + 0.22466, 0.14416, 8.29227, 0.58183, 0.33794, - + 0.23772, 0.46253, 0.59226, - + 0.22696, 0.14554, 8.36434, 0.58997, 0.34812, - + 0.24917, 0.47169, 0.60038 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + 0.21004, 0.14651, 2.68652, 0.25825, 0.00799, - + 0.00001, 0.13599, 0.26981, - + 0.22012, 0.15270, 3.12191, 0.27451, 0.03088, - + 0.00002, 0.15558, 0.28606, - + 0.22881, 0.15789, 3.47119, 0.28899, 0.05113, - + 0.00000, 0.17293, 0.30048, - + 0.23634, 0.16230, 3.74667, 0.30175, 0.06897, - + 0.00002, 0.18823, 0.31316, - + 0.24302, 0.16610, 3.96980, 0.31313, 0.08491, - + 0.00345, 0.20186, 0.32446, - + 0.24902, 0.16942, 4.15146, 0.32331, 0.09921, - + 0.01754, 0.21410, 0.33457, - + 0.25445, 0.17234, 4.29869, 0.33243, 0.11214, - + 0.03288, 0.22511, 0.34364 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ - + 0.25940, 0.17494, 4.41846, 0.34064, 0.12387, - + 0.04651, 0.23506, 0.35179, - + 0.26393, 0.17728, 4.51544, 0.34807, 0.13457, - + 0.05900, 0.24411, 0.35914, - + 0.26810, 0.17939, 4.59424, 0.35478, 0.14434, - + 0.07041, 0.25234, 0.36577, - + 0.27196, 0.18131, 4.65814, 0.36087, 0.15331, - + 0.08088, 0.25985, 0.37179, - + 0.27555, 0.18305, 4.70790, 0.36640, 0.16155, - + 0.09055, 0.26672, 0.37727, - + 0.27887, 0.18461, 4.74467, 0.37133, 0.16904, - + 0.09936, 0.27290, 0.38211, - + 0.28198, 0.18603, 4.77407, 0.37585, 0.17599, - + 0.10755, 0.27863, 0.38658 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ - + 0.28491, 0.18734, 4.79632, 0.37997, 0.18244, - + 0.11516, 0.28391, 0.39067, - + 0.28761, 0.18853, 4.80952, 0.38366, 0.18832, - + 0.12214, 0.28868, 0.39427, - + 0.29017, 0.18966, 4.81959, 0.38712, 0.19387, - + 0.12874, 0.29317, 0.39766, - + 0.29255, 0.19067, 4.82134, 0.39014, 0.19888, - + 0.13475, 0.29717, 0.40063, - + 0.29483, 0.19162, 4.82118, 0.39298, 0.20364, - + 0.14045, 0.30095, 0.40342 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + 0.30013, 0.21489, 2.09615, 0.20512, 0.00519, - + -0.00012, 0.10809, 0.21700, - + 0.31140, 0.21926, 2.30651, 0.21297, 0.01984, - + -0.00014, 0.11928, 0.22464, - + 0.32072, 0.22263, 2.45504, 0.21947, 0.03220, - + -0.00009, 0.12866, 0.23086, - + 0.32846, 0.22525, 2.55577, 0.22471, 0.04260, - + -0.00010, 0.13640, 0.23586, - + 0.33509, 0.22729, 2.62536, 0.22904, 0.05153, - + 0.00184, 0.14297, 0.23996, - + 0.34081, 0.22892, 2.67192, 0.23257, 0.05927, - + 0.00979, 0.14856, 0.24331, - + 0.34585, 0.23018, 2.70094, 0.23551, 0.06605, - + 0.01828, 0.15339, 0.24606 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ - + 0.35029, 0.23117, 2.71617, 0.23789, 0.07198, - + 0.02557, 0.15751, 0.24826, - + 0.35420, 0.23194, 2.72121, 0.23981, 0.07722, - + 0.03208, 0.16107, 0.25005, - + 0.35766, 0.23253, 2.71849, 0.24139, 0.08186, - + 0.03789, 0.16414, 0.25147, - + 0.36075, 0.23298, 2.70995, 0.24268, 0.08600, - + 0.04311, 0.16681, 0.25259, - + 0.36354, 0.23329, 2.69663, 0.24370, 0.08972, - + 0.04784, 0.16913, 0.25347, - + 0.36598, 0.23347, 2.67878, 0.24441, 0.09297, - + 0.05202, 0.17107, 0.25402, - + 0.36820, 0.23358, 2.65897, 0.24492, 0.09591, - + 0.05581, 0.17278, 0.25442 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ - + 0.37022, 0.23363, 2.63718, 0.24526, 0.09856, - + 0.05923, 0.17425, 0.25470, - + 0.37200, 0.23356, 2.61265, 0.24543, 0.10088, - + 0.06236, 0.17546, 0.25478, - + 0.37367, 0.23346, 2.58826, 0.24555, 0.10303, - + 0.06528, 0.17656, 0.25480, - + 0.37511, 0.23330, 2.56176, 0.24547, 0.10490, - + 0.06783, 0.17744, 0.25457, - + 0.37645, 0.23311, 2.53572, 0.24535, 0.10664, - + 0.07022, 0.17823, 0.25431 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + 0.37435, 0.25824, 1.77708, 0.17306, 0.00395, - + 0.00000, 0.09130, 0.18433, - + 0.38426, 0.25969, 1.88087, 0.17665, 0.01458, - + -0.00001, 0.09834, 0.18753, - + 0.39209, 0.26040, 1.94096, 0.17928, 0.02324, - + 0.00005, 0.10392, 0.18977, - + 0.39827, 0.26051, 1.96970, 0.18099, 0.03031, - + 0.00003, 0.10822, 0.19124, - + 0.40327, 0.26026, 1.97969, 0.18217, 0.03619, - + 0.00132, 0.11167, 0.19206, - + 0.40739, 0.25974, 1.97654, 0.18287, 0.04114, - + 0.00664, 0.11444, 0.19248, - + 0.41076, 0.25907, 1.96431, 0.18316, 0.04541, - + 0.01216, 0.11669, 0.19263 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ - + 0.41354, 0.25821, 1.94539, 0.18320, 0.04903, - + 0.01685, 0.11844, 0.19245, - + 0.41575, 0.25730, 1.92203, 0.18305, 0.05210, - + 0.02097, 0.11985, 0.19206, - + 0.41757, 0.25630, 1.89570, 0.18271, 0.05476, - + 0.02456, 0.12095, 0.19149, - + 0.41912, 0.25520, 1.86760, 0.18219, 0.05709, - + 0.02772, 0.12181, 0.19079, - + 0.42040, 0.25403, 1.83844, 0.18150, 0.05913, - + 0.03057, 0.12249, 0.18997, - + 0.42129, 0.25288, 1.80774, 0.18075, 0.06086, - + 0.03303, 0.12291, 0.18904, - + 0.42201, 0.25171, 1.77732, 0.17993, 0.06240, - + 0.03524, 0.12322, 0.18807 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ - + 0.42260, 0.25049, 1.74710, 0.17905, 0.06377, - + 0.03722, 0.12341, 0.18706, - + 0.42298, 0.24922, 1.71651, 0.17808, 0.06489, - + 0.03895, 0.12347, 0.18597, - + 0.42328, 0.24799, 1.68711, 0.17712, 0.06590, - + 0.04053, 0.12348, 0.18490, - + 0.42338, 0.24674, 1.65738, 0.17610, 0.06673, - + 0.04189, 0.12335, 0.18372, - + 0.42342, 0.24553, 1.62891, 0.17508, 0.06750, - + 0.04314, 0.12320, 0.18258 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + 0.43672, 0.28564, 1.55169, 0.14808, 0.00311, - + 0.00008, 0.07818, 0.15829, - + 0.44382, 0.28390, 1.59176, 0.14907, 0.01129, - + 0.00006, 0.08264, 0.15881, - + 0.44892, 0.28182, 1.60210, 0.14940, 0.01774, - + 0.00005, 0.08594, 0.15868, - + 0.45254, 0.27937, 1.59256, 0.14913, 0.02284, - + 0.00009, 0.08827, 0.15816, - + 0.45506, 0.27697, 1.57257, 0.14859, 0.02697, - + 0.00103, 0.09001, 0.15730, - + 0.45677, 0.27446, 1.54594, 0.14781, 0.03037, - + 0.00483, 0.09126, 0.15625, - + 0.45785, 0.27196, 1.51525, 0.14685, 0.03319, - + 0.00876, 0.09212, 0.15502 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ - + 0.45843, 0.26944, 1.48214, 0.14579, 0.03556, - + 0.01200, 0.09270, 0.15363, - + 0.45864, 0.26691, 1.44787, 0.14457, 0.03754, - + 0.01480, 0.09304, 0.15222, - + 0.45855, 0.26441, 1.41340, 0.14326, 0.03920, - + 0.01719, 0.09317, 0.15077, - + 0.45820, 0.26198, 1.37933, 0.14192, 0.04062, - + 0.01926, 0.09315, 0.14928, - + 0.45763, 0.25960, 1.34583, 0.14053, 0.04185, - + 0.02106, 0.09305, 0.14774, - + 0.45678, 0.25725, 1.31263, 0.13917, 0.04282, - + 0.02266, 0.09281, 0.14618, - + 0.45583, 0.25498, 1.28073, 0.13783, 0.04365, - + 0.02406, 0.09251, 0.14464 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ - + 0.45480, 0.25276, 1.24994, 0.13650, 0.04436, - + 0.02527, 0.09215, 0.14310, - + 0.45364, 0.25053, 1.21982, 0.13508, 0.04494, - + 0.02634, 0.09170, 0.14164, - + 0.45246, 0.24839, 1.19131, 0.13371, 0.04545, - + 0.02732, 0.09125, 0.14024, - + 0.45108, 0.24633, 1.16340, 0.13238, 0.04583, - + 0.02811, 0.09073, 0.13868, - + 0.44972, 0.24433, 1.13695, 0.13109, 0.04617, - + 0.02883, 0.09021, 0.13720 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + 0.48847, 0.30165, 1.37264, 0.12695, 0.00253, - + 0.00008, 0.06700, 0.13583, - + 0.49191, 0.29675, 1.37121, 0.12624, 0.00888, - + 0.00007, 0.06973, 0.13474, - + 0.49363, 0.29197, 1.35088, 0.12521, 0.01381, - + 0.00007, 0.07156, 0.13324, - + 0.49399, 0.28740, 1.31920, 0.12382, 0.01760, - + 0.00011, 0.07267, 0.13153, - + 0.49353, 0.28301, 1.28289, 0.12237, 0.02064, - + 0.00078, 0.07336, 0.12966, - + 0.49259, 0.27868, 1.24451, 0.12077, 0.02308, - + 0.00362, 0.07369, 0.12781, - + 0.49116, 0.27455, 1.20543, 0.11907, 0.02504, - + 0.00644, 0.07377, 0.12595 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ - + 0.48944, 0.27055, 1.16658, 0.11735, 0.02666, - + 0.00878, 0.07369, 0.12405, - + 0.48741, 0.26671, 1.12864, 0.11568, 0.02797, - + 0.01076, 0.07344, 0.12213, - + 0.48517, 0.26305, 1.09201, 0.11402, 0.02902, - + 0.01242, 0.07310, 0.12027, - + 0.48279, 0.25956, 1.05697, 0.11238, 0.02987, - + 0.01384, 0.07270, 0.11845, - + 0.48024, 0.25626, 1.02352, 0.11080, 0.03059, - + 0.01513, 0.07222, 0.11657, - + 0.47763, 0.25296, 0.99127, 0.10920, 0.03118, - + 0.01618, 0.07165, 0.11477, - + 0.47505, 0.24978, 0.96083, 0.10761, 0.03167, - + 0.01708, 0.07106, 0.11309 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ - + 0.47250, 0.24668, 0.93196, 0.10602, 0.03206, - + 0.01784, 0.07044, 0.11154, - + 0.46978, 0.24376, 0.90429, 0.10453, 0.03235, - + 0.01852, 0.06979, 0.10986, - + 0.46711, 0.24099, 0.87835, 0.10313, 0.03259, - + 0.01915, 0.06916, 0.10823, - + 0.46439, 0.23822, 0.85343, 0.10169, 0.03276, - + 0.01967, 0.06850, 0.10671, - + 0.46175, 0.23558, 0.83000, 0.10032, 0.03290, - + 0.02013, 0.06785, 0.10524 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + 0.53953, 0.30942, 1.18740, 0.10410, 0.00193, - + 0.00004, 0.05492, 0.11164, - + 0.53742, 0.30119, 1.15255, 0.10223, 0.00679, - + 0.00006, 0.05631, 0.10926, - + 0.53429, 0.29360, 1.10937, 0.10028, 0.01038, - + 0.00008, 0.05698, 0.10680, - + 0.53041, 0.28651, 1.06249, 0.09814, 0.01312, - + 0.00010, 0.05722, 0.10436, - + 0.52610, 0.28000, 1.01611, 0.09603, 0.01517, - + 0.00061, 0.05716, 0.10209, - + 0.52157, 0.27391, 0.97144, 0.09401, 0.01682, - + 0.00259, 0.05692, 0.09977, - + 0.51681, 0.26826, 0.92871, 0.09206, 0.01812, - + 0.00457, 0.05649, 0.09746 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ - + 0.51212, 0.26280, 0.88821, 0.09009, 0.01910, - + 0.00617, 0.05597, 0.09534, - + 0.50735, 0.25767, 0.85014, 0.08816, 0.01993, - + 0.00751, 0.05538, 0.09328, - + 0.50252, 0.25288, 0.81454, 0.08634, 0.02059, - + 0.00865, 0.05474, 0.09127, - + 0.49772, 0.24836, 0.78133, 0.08462, 0.02109, - + 0.00960, 0.05407, 0.08933, - + 0.49297, 0.24408, 0.75025, 0.08296, 0.02148, - + 0.01036, 0.05342, 0.08747, - + 0.48833, 0.23990, 0.72100, 0.08134, 0.02177, - + 0.01102, 0.05271, 0.08567, - + 0.48378, 0.23595, 0.69387, 0.07980, 0.02198, - + 0.01161, 0.05200, 0.08398 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ - + 0.47926, 0.23221, 0.66857, 0.07833, 0.02212, - + 0.01212, 0.05129, 0.08240, - + 0.47483, 0.22860, 0.64465, 0.07686, 0.02222, - + 0.01250, 0.05062, 0.08082, - + 0.47057, 0.22518, 0.62242, 0.07546, 0.02231, - + 0.01282, 0.04997, 0.07931, - + 0.46632, 0.22186, 0.60137, 0.07411, 0.02235, - + 0.01311, 0.04926, 0.07788, - + 0.46222, 0.21870, 0.58173, 0.07283, 0.02237, - + 0.01336, 0.04859, 0.07650 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + 0.57633, 0.30733, 1.03032, 0.08465, 0.00158, - + 0.00012, 0.04476, 0.09074, - + 0.56850, 0.29621, 0.97512, 0.08219, 0.00528, - + 0.00016, 0.04521, 0.08790, - + 0.56023, 0.28646, 0.91944, 0.07979, 0.00791, - + 0.00014, 0.04524, 0.08519, - + 0.55194, 0.27751, 0.86550, 0.07745, 0.00985, - + 0.00013, 0.04497, 0.08247, - + 0.54388, 0.26931, 0.81547, 0.07519, 0.01136, - + 0.00051, 0.04452, 0.07992, - + 0.53587, 0.26193, 0.76943, 0.07311, 0.01248, - + 0.00195, 0.04393, 0.07753, - + 0.52802, 0.25510, 0.72705, 0.07105, 0.01329, - + 0.00335, 0.04330, 0.07532 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ - + 0.52045, 0.24865, 0.68803, 0.06913, 0.01395, - + 0.00447, 0.04263, 0.07316, - + 0.51307, 0.24271, 0.65228, 0.06728, 0.01446, - + 0.00539, 0.04186, 0.07118, - + 0.50591, 0.23714, 0.61950, 0.06551, 0.01483, - + 0.00616, 0.04116, 0.06927, - + 0.49900, 0.23186, 0.58943, 0.06385, 0.01509, - + 0.00680, 0.04055, 0.06742, - + 0.49233, 0.22685, 0.56185, 0.06230, 0.01529, - + 0.00732, 0.03984, 0.06573, - + 0.48575, 0.22220, 0.53623, 0.06080, 0.01544, - + 0.00773, 0.03909, 0.06412, - + 0.47945, 0.21780, 0.51271, 0.05940, 0.01555, - + 0.00809, 0.03836, 0.06259 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ - + 0.47341, 0.21360, 0.49099, 0.05809, 0.01563, - + 0.00841, 0.03764, 0.06110, - + 0.46753, 0.20956, 0.47080, 0.05677, 0.01565, - + 0.00869, 0.03698, 0.05972, - + 0.46190, 0.20575, 0.45219, 0.05551, 0.01564, - + 0.00893, 0.03635, 0.05842, - + 0.45634, 0.20213, 0.43474, 0.05435, 0.01558, - + 0.00906, 0.03572, 0.05715, - + 0.45103, 0.19867, 0.41857, 0.05323, 0.01552, - + 0.00918, 0.03512, 0.05596 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + 0.59996, 0.29826, 0.89347, 0.06814, 0.00117, - + 0.00004, 0.03597, 0.07309, - + 0.58637, 0.28495, 0.82658, 0.06549, 0.00403, - + -0.00001, 0.03595, 0.07010, - + 0.57337, 0.27331, 0.76486, 0.06305, 0.00608, - + 0.00002, 0.03564, 0.06722, - + 0.56089, 0.26301, 0.70869, 0.06075, 0.00751, - + 0.00001, 0.03514, 0.06452, - + 0.54925, 0.25365, 0.65873, 0.05848, 0.00858, - + 0.00035, 0.03449, 0.06219, - + 0.53815, 0.24527, 0.61410, 0.05646, 0.00931, - + 0.00139, 0.03388, 0.05991, - + 0.52753, 0.23767, 0.57406, 0.05450, 0.00991, - + 0.00243, 0.03321, 0.05781 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ - + 0.51747, 0.23057, 0.53806, 0.05266, 0.01035, - + 0.00324, 0.03245, 0.05595, - + 0.50785, 0.22400, 0.50557, 0.05102, 0.01067, - + 0.00397, 0.03169, 0.05412, - + 0.49862, 0.21793, 0.47630, 0.04946, 0.01090, - + 0.00453, 0.03099, 0.05241, - + 0.48984, 0.21226, 0.44993, 0.04795, 0.01104, - + 0.00493, 0.03033, 0.05085, - + 0.48156, 0.20686, 0.42605, 0.04657, 0.01109, - + 0.00528, 0.02966, 0.04941, - + 0.47345, 0.20197, 0.40396, 0.04529, 0.01119, - + 0.00558, 0.02899, 0.04791, - + 0.46577, 0.19730, 0.38391, 0.04405, 0.01124, - + 0.00582, 0.02836, 0.04656 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ - + 0.45847, 0.19279, 0.36563, 0.04282, 0.01122, - + 0.00598, 0.02776, 0.04540, - + 0.45139, 0.18858, 0.34877, 0.04171, 0.01120, - + 0.00611, 0.02718, 0.04420, - + 0.44463, 0.18464, 0.33331, 0.04067, 0.01116, - + 0.00623, 0.02663, 0.04305, - + 0.43794, 0.18095, 0.31892, 0.03970, 0.01109, - + 0.00631, 0.02609, 0.04196, - + 0.43162, 0.17744, 0.30570, 0.03879, 0.01102, - + 0.00639, 0.02557, 0.04092 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + 0.61180, 0.28403, 0.77290, 0.05428, 0.00091, - + 0.00000, 0.02857, 0.05826, - + 0.59269, 0.26924, 0.70031, 0.05176, 0.00312, - + 0.00002, 0.02829, 0.05523, - + 0.57527, 0.25644, 0.63701, 0.04948, 0.00456, - + 0.00006, 0.02779, 0.05255, - + 0.55906, 0.24517, 0.58177, 0.04728, 0.00569, - + 0.00004, 0.02721, 0.05008, - + 0.54419, 0.23517, 0.53394, 0.04516, 0.00643, - + 0.00029, 0.02654, 0.04800, - + 0.53038, 0.22615, 0.49229, 0.04336, 0.00698, - + 0.00105, 0.02587, 0.04596, - + 0.51721, 0.21817, 0.45567, 0.04177, 0.00734, - + 0.00181, 0.02519, 0.04405 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ - + 0.50499, 0.21076, 0.42329, 0.04019, 0.00764, - + 0.00240, 0.02456, 0.04228, - + 0.49362, 0.20380, 0.39454, 0.03862, 0.00781, - + 0.00283, 0.02388, 0.04084, - + 0.48275, 0.19751, 0.36890, 0.03726, 0.00795, - + 0.00317, 0.02319, 0.03942, - + 0.47243, 0.19176, 0.34601, 0.03604, 0.00806, - + 0.00347, 0.02253, 0.03801, - + 0.46286, 0.18624, 0.32555, 0.03477, 0.00806, - + 0.00373, 0.02193, 0.03685, - + 0.45349, 0.18125, 0.30698, 0.03370, 0.00809, - + 0.00390, 0.02141, 0.03556, - + 0.44468, 0.17651, 0.29019, 0.03269, 0.00808, - + 0.00407, 0.02090, 0.03441 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ - + 0.43638, 0.17197, 0.27493, 0.03172, 0.00804, - + 0.00424, 0.02039, 0.03342, - + 0.42838, 0.16779, 0.26109, 0.03080, 0.00800, - + 0.00434, 0.01988, 0.03244, - + 0.42080, 0.16388, 0.24849, 0.02993, 0.00796, - + 0.00442, 0.01940, 0.03152, - + 0.41343, 0.16018, 0.23672, 0.02914, 0.00787, - + 0.00442, 0.01892, 0.03067, - + 0.40644, 0.15669, 0.22597, 0.02840, 0.00779, - + 0.00443, 0.01846, 0.02987 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + 0.61300, 0.26638, 0.66597, 0.04286, 0.00064, - + 0.00008, 0.02243, 0.04577, - + 0.58913, 0.25049, 0.59189, 0.04046, 0.00237, - + 0.00008, 0.02216, 0.04297, - + 0.56777, 0.23695, 0.52989, 0.03826, 0.00346, - + 0.00008, 0.02154, 0.04078, - + 0.54829, 0.22528, 0.47756, 0.03639, 0.00427, - + 0.00009, 0.02089, 0.03856, - + 0.53078, 0.21480, 0.43304, 0.03459, 0.00480, - + 0.00021, 0.02024, 0.03676, - + 0.51459, 0.20567, 0.39519, 0.03298, 0.00517, - + 0.00076, 0.01964, 0.03504, - + 0.49960, 0.19740, 0.36238, 0.03151, 0.00548, - + 0.00133, 0.01896, 0.03347 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ - + 0.48565, 0.18994, 0.33366, 0.03022, 0.00567, - + 0.00171, 0.01838, 0.03193, - + 0.47260, 0.18312, 0.30864, 0.02906, 0.00576, - + 0.00198, 0.01783, 0.03052, - + 0.46044, 0.17683, 0.28664, 0.02797, 0.00583, - + 0.00223, 0.01727, 0.02928, - + 0.44908, 0.17100, 0.26714, 0.02694, 0.00589, - + 0.00247, 0.01671, 0.02818, - + 0.43838, 0.16554, 0.24979, 0.02594, 0.00593, - + 0.00270, 0.01620, 0.02720, - + 0.42825, 0.16055, 0.23419, 0.02502, 0.00590, - + 0.00284, 0.01574, 0.02619, - + 0.41871, 0.15591, 0.22028, 0.02416, 0.00585, - + 0.00292, 0.01531, 0.02529 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ - + 0.40969, 0.15156, 0.20783, 0.02333, 0.00577, - + 0.00296, 0.01490, 0.02450, - + 0.40101, 0.14755, 0.19640, 0.02262, 0.00570, - + 0.00301, 0.01446, 0.02372, - + 0.39283, 0.14380, 0.18606, 0.02197, 0.00564, - + 0.00305, 0.01405, 0.02299, - + 0.38512, 0.14008, 0.17672, 0.02129, 0.00559, - + 0.00309, 0.01369, 0.02228, - + 0.37778, 0.13663, 0.16816, 0.02065, 0.00553, - + 0.00312, 0.01334, 0.02163 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + 0.60505, 0.24641, 0.57098, 0.03341, 0.00055, - + 0.00001, 0.01754, 0.03535, - + 0.57715, 0.22979, 0.49826, 0.03116, 0.00182, - + 0.00005, 0.01707, 0.03323, - + 0.55242, 0.21595, 0.43921, 0.02926, 0.00283, - + 0.00002, 0.01659, 0.03104, - + 0.53033, 0.20407, 0.39068, 0.02764, 0.00335, - + 0.00009, 0.01595, 0.02929, - + 0.51047, 0.19377, 0.35043, 0.02612, 0.00374, - + 0.00023, 0.01529, 0.02777, - + 0.49247, 0.18462, 0.31648, 0.02487, 0.00398, - + 0.00064, 0.01477, 0.02625, - + 0.47596, 0.17644, 0.28761, 0.02362, 0.00419, - + 0.00095, 0.01424, 0.02497 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ - + 0.46064, 0.16916, 0.26274, 0.02253, 0.00424, - + 0.00125, 0.01375, 0.02382, - + 0.44659, 0.16240, 0.24127, 0.02153, 0.00430, - + 0.00150, 0.01328, 0.02271, - + 0.43346, 0.15628, 0.22253, 0.02068, 0.00429, - + 0.00167, 0.01282, 0.02171, - + 0.42119, 0.15072, 0.20607, 0.01991, 0.00425, - + 0.00178, 0.01235, 0.02083, - + 0.40990, 0.14547, 0.19155, 0.01906, 0.00430, - + 0.00189, 0.01188, 0.02003, - + 0.39918, 0.14066, 0.17887, 0.01833, 0.00426, - + 0.00201, 0.01147, 0.01927, - + 0.38916, 0.13620, 0.16751, 0.01763, 0.00421, - + 0.00209, 0.01110, 0.01859 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ - + 0.37974, 0.13203, 0.15724, 0.01695, 0.00416, - + 0.00210, 0.01077, 0.01798, - + 0.37084, 0.12813, 0.14796, 0.01634, 0.00412, - + 0.00213, 0.01044, 0.01732, - + 0.36247, 0.12451, 0.13959, 0.01578, 0.00408, - + 0.00215, 0.01014, 0.01670, - + 0.35437, 0.12114, 0.13203, 0.01528, 0.00400, - + 0.00218, 0.00984, 0.01615, - + 0.34671, 0.11797, 0.12517, 0.01481, 0.00393, - + 0.00219, 0.00957, 0.01563 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + 0.58954, 0.22478, 0.48679, 0.02554, 0.00046, - + 0.00010, 0.01354, 0.02713, - + 0.55783, 0.20837, 0.41754, 0.02375, 0.00155, - + 0.00004, 0.01304, 0.02512, - + 0.53047, 0.19458, 0.36280, 0.02216, 0.00217, - + 0.00009, 0.01257, 0.02346, - + 0.50623, 0.18291, 0.31868, 0.02078, 0.00257, - + 0.00012, 0.01199, 0.02208, - + 0.48459, 0.17289, 0.28261, 0.01964, 0.00276, - + 0.00015, 0.01153, 0.02074, - + 0.46534, 0.16399, 0.25296, 0.01852, 0.00288, - + 0.00047, 0.01102, 0.01971, - + 0.44781, 0.15608, 0.22776, 0.01751, 0.00304, - + 0.00077, 0.01059, 0.01860 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ - + 0.43160, 0.14906, 0.20665, 0.01674, 0.00313, - + 0.00090, 0.01014, 0.01755, - + 0.41675, 0.14264, 0.18838, 0.01601, 0.00313, - + 0.00109, 0.00971, 0.01672, - + 0.40311, 0.13677, 0.17264, 0.01526, 0.00312, - + 0.00126, 0.00934, 0.01597, - + 0.39060, 0.13141, 0.15908, 0.01450, 0.00312, - + 0.00135, 0.00901, 0.01526, - + 0.37913, 0.12652, 0.14720, 0.01371, 0.00311, - + 0.00136, 0.00867, 0.01461, - + 0.36790, 0.12200, 0.13660, 0.01324, 0.00310, - + 0.00144, 0.00836, 0.01398, - + 0.35764, 0.11778, 0.12722, 0.01273, 0.00306, - + 0.00149, 0.00806, 0.01344 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ - + 0.34831, 0.11381, 0.11888, 0.01213, 0.00298, - + 0.00149, 0.00776, 0.01297, - + 0.33905, 0.11027, 0.11151, 0.01168, 0.00295, - + 0.00155, 0.00754, 0.01253, - + 0.33035, 0.10698, 0.10490, 0.01127, 0.00292, - + 0.00159, 0.00735, 0.01212, - + 0.32231, 0.10376, 0.09886, 0.01087, 0.00284, - + 0.00156, 0.00710, 0.01171, - + 0.31471, 0.10076, 0.09342, 0.01051, 0.00279, - + 0.00153, 0.00687, 0.01131 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + 0.56688, 0.20310, 0.41234, 0.01932, 0.00037, - + 0.00010, 0.01025, 0.02057, - + 0.53263, 0.18681, 0.34778, 0.01782, 0.00114, - + 0.00000, 0.00983, 0.01899, - + 0.50313, 0.17350, 0.29790, 0.01659, 0.00163, - + 0.00010, 0.00946, 0.01757, - + 0.47731, 0.16225, 0.25853, 0.01552, 0.00192, - + 0.00007, 0.00903, 0.01634, - + 0.45481, 0.15248, 0.22705, 0.01446, 0.00214, - + 0.00016, 0.00866, 0.01526, - + 0.43472, 0.14398, 0.20114, 0.01356, 0.00225, - + 0.00036, 0.00822, 0.01442, - + 0.41654, 0.13646, 0.17977, 0.01277, 0.00233, - + 0.00055, 0.00784, 0.01362 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ - + 0.39984, 0.12979, 0.16184, 0.01210, 0.00234, - + 0.00073, 0.00747, 0.01294, - + 0.38473, 0.12375, 0.14652, 0.01151, 0.00232, - + 0.00084, 0.00716, 0.01224, - + 0.37088, 0.11829, 0.13346, 0.01094, 0.00234, - + 0.00090, 0.00685, 0.01159, - + 0.35807, 0.11336, 0.12224, 0.01040, 0.00233, - + 0.00094, 0.00654, 0.01103, - + 0.34617, 0.10884, 0.11247, 0.00994, 0.00222, - + 0.00101, 0.00634, 0.01056, - + 0.33523, 0.10466, 0.10394, 0.00940, 0.00222, - + 0.00105, 0.00607, 0.01014, - + 0.32500, 0.10079, 0.09643, 0.00897, 0.00223, - + 0.00109, 0.00582, 0.00973 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ - + 0.31536, 0.09720, 0.08980, 0.00866, 0.00222, - + 0.00115, 0.00561, 0.00934, - + 0.30640, 0.09388, 0.08383, 0.00825, 0.00216, - + 0.00112, 0.00541, 0.00897, - + 0.29806, 0.09080, 0.07851, 0.00786, 0.00209, - + 0.00109, 0.00522, 0.00863, - + 0.29018, 0.08785, 0.07380, 0.00757, 0.00206, - + 0.00111, 0.00504, 0.00829, - + 0.28273, 0.08512, 0.06954, 0.00732, 0.00203, - + 0.00113, 0.00487, 0.00798 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + 0.53888, 0.18160, 0.34717, 0.01472, 0.00020, - + -0.00007, 0.00753, 0.01533, - + 0.50255, 0.16608, 0.28792, 0.01347, 0.00077, - + -0.00004, 0.00723, 0.01407, - + 0.47171, 0.15342, 0.24361, 0.01246, 0.00112, - + -0.00012, 0.00691, 0.01296, - + 0.44538, 0.14248, 0.20883, 0.01144, 0.00141, - + -0.00006, 0.00651, 0.01211, - + 0.42220, 0.13331, 0.18143, 0.01066, 0.00150, - + -0.00005, 0.00622, 0.01131, - + 0.40163, 0.12535, 0.15956, 0.00999, 0.00158, - + 0.00014, 0.00593, 0.01058, - + 0.38321, 0.11843, 0.14159, 0.00930, 0.00167, - + 0.00033, 0.00564, 0.00997 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ - + 0.36668, 0.11216, 0.12646, 0.00877, 0.00168, - + 0.00042, 0.00530, 0.00939, - + 0.35141, 0.10663, 0.11384, 0.00842, 0.00169, - + 0.00054, 0.00508, 0.00877, - + 0.33765, 0.10162, 0.10312, 0.00791, 0.00168, - + 0.00062, 0.00490, 0.00832, - + 0.32516, 0.09702, 0.09393, 0.00738, 0.00166, - + 0.00065, 0.00470, 0.00799, - + 0.31329, 0.09287, 0.08602, 0.00716, 0.00163, - + 0.00068, 0.00450, 0.00758, - + 0.30256, 0.08908, 0.07912, 0.00683, 0.00157, - + 0.00072, 0.00429, 0.00713, - + 0.29258, 0.08558, 0.07306, 0.00647, 0.00153, - + 0.00072, 0.00410, 0.00678 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ - + 0.28323, 0.08234, 0.06772, 0.00611, 0.00150, - + 0.00068, 0.00393, 0.00654, - + 0.27434, 0.07935, 0.06308, 0.00586, 0.00147, - + 0.00071, 0.00380, 0.00632, - + 0.26608, 0.07659, 0.05895, 0.00565, 0.00145, - + 0.00074, 0.00368, 0.00611, - + 0.25850, 0.07395, 0.05519, 0.00543, 0.00142, - + 0.00077, 0.00352, 0.00583, - + 0.25135, 0.07150, 0.05182, 0.00524, 0.00139, - + 0.00078, 0.00339, 0.00558 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + 0.50649, 0.16023, 0.28913, 0.01065, 0.00028, - + 0.00012, 0.00570, 0.01125, - + 0.46912, 0.14548, 0.23659, 0.00964, 0.00070, - + 0.00008, 0.00541, 0.01033, - + 0.43759, 0.13365, 0.19727, 0.00892, 0.00101, - + 0.00003, 0.00514, 0.00936, - + 0.41091, 0.12356, 0.16745, 0.00810, 0.00108, - + 0.00010, 0.00485, 0.00878, - + 0.38758, 0.11508, 0.14411, 0.00752, 0.00119, - + 0.00014, 0.00456, 0.00818, - + 0.36703, 0.10781, 0.12554, 0.00712, 0.00124, - + 0.00024, 0.00430, 0.00758, - + 0.34878, 0.10139, 0.11047, 0.00657, 0.00124, - + 0.00033, 0.00407, 0.00716 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ - + 0.33220, 0.09579, 0.09801, 0.00629, 0.00125, - + 0.00040, 0.00390, 0.00662, - + 0.31754, 0.09068, 0.08765, 0.00582, 0.00122, - + 0.00043, 0.00371, 0.00632, - + 0.30415, 0.08610, 0.07896, 0.00536, 0.00122, - + 0.00048, 0.00352, 0.00604, - + 0.29173, 0.08204, 0.07158, 0.00510, 0.00124, - + 0.00053, 0.00335, 0.00568, - + 0.28030, 0.07837, 0.06527, 0.00496, 0.00119, - + 0.00050, 0.00320, 0.00533, - + 0.26988, 0.07494, 0.05978, 0.00468, 0.00117, - + 0.00050, 0.00305, 0.00505, - + 0.26026, 0.07179, 0.05497, 0.00443, 0.00114, - + 0.00051, 0.00291, 0.00483 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ - + 0.25131, 0.06888, 0.05074, 0.00423, 0.00110, - + 0.00055, 0.00276, 0.00468, - + 0.24278, 0.06623, 0.04703, 0.00415, 0.00108, - + 0.00056, 0.00266, 0.00438, - + 0.23485, 0.06379, 0.04375, 0.00409, 0.00106, - + 0.00056, 0.00258, 0.00409, - + 0.22745, 0.06148, 0.04090, 0.00395, 0.00098, - + 0.00055, 0.00247, 0.00399, - + 0.22064, 0.05933, 0.03833, 0.00379, 0.00093, - + 0.00055, 0.00237, 0.00388 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + 0.47097, 0.14042, 0.23951, 0.00786, 0.00020, - + -0.00001, 0.00404, 0.00812, - + 0.43309, 0.12675, 0.19286, 0.00709, 0.00041, - + 0.00002, 0.00386, 0.00749, - + 0.40159, 0.11571, 0.15879, 0.00649, 0.00062, - + -0.00002, 0.00363, 0.00685, - + 0.37506, 0.10651, 0.13337, 0.00594, 0.00072, - + -0.00003, 0.00340, 0.00630, - + 0.35218, 0.09870, 0.11373, 0.00546, 0.00082, - + 0.00006, 0.00323, 0.00581, - + 0.33191, 0.09203, 0.09825, 0.00508, 0.00087, - + 0.00013, 0.00306, 0.00550, - + 0.31426, 0.08624, 0.08583, 0.00463, 0.00089, - + 0.00019, 0.00289, 0.00513 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ - + 0.29831, 0.08117, 0.07577, 0.00444, 0.00086, - + 0.00020, 0.00268, 0.00472, - + 0.28389, 0.07665, 0.06732, 0.00426, 0.00084, - + 0.00023, 0.00250, 0.00437, - + 0.27094, 0.07256, 0.06023, 0.00395, 0.00086, - + 0.00026, 0.00239, 0.00415, - + 0.25923, 0.06885, 0.05431, 0.00365, 0.00087, - + 0.00029, 0.00230, 0.00398, - + 0.24850, 0.06547, 0.04930, 0.00349, 0.00080, - + 0.00033, 0.00218, 0.00371, - + 0.23850, 0.06249, 0.04492, 0.00336, 0.00075, - + 0.00033, 0.00206, 0.00354, - + 0.22935, 0.05975, 0.04116, 0.00318, 0.00073, - + 0.00033, 0.00195, 0.00340 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ - + 0.22097, 0.05720, 0.03791, 0.00296, 0.00071, - + 0.00035, 0.00186, 0.00326, - + 0.21303, 0.05487, 0.03502, 0.00292, 0.00069, - + 0.00034, 0.00178, 0.00302, - + 0.20567, 0.05272, 0.03247, 0.00290, 0.00068, - + 0.00032, 0.00171, 0.00279, - + 0.19876, 0.05069, 0.03025, 0.00280, 0.00065, - + 0.00033, 0.00164, 0.00269, - + 0.19238, 0.04883, 0.02826, 0.00270, 0.00064, - + 0.00034, 0.00158, 0.00258 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + 0.43318, 0.12133, 0.19629, 0.00548, 0.00015, - + 0.00002, 0.00293, 0.00593, - + 0.39569, 0.10878, 0.15587, 0.00491, 0.00041, - + 0.00002, 0.00278, 0.00534, - + 0.36483, 0.09879, 0.12669, 0.00450, 0.00049, - + 0.00007, 0.00265, 0.00484, - + 0.33855, 0.09050, 0.10534, 0.00408, 0.00060, - + 0.00004, 0.00243, 0.00455, - + 0.31639, 0.08359, 0.08908, 0.00378, 0.00063, - + 0.00006, 0.00227, 0.00414, - + 0.29715, 0.07760, 0.07629, 0.00348, 0.00064, - + 0.00011, 0.00214, 0.00385, - + 0.28011, 0.07244, 0.06611, 0.00331, 0.00061, - + 0.00012, 0.00198, 0.00348 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ - + 0.26472, 0.06791, 0.05790, 0.00317, 0.00055, - + 0.00015, 0.00189, 0.00328, - + 0.25119, 0.06381, 0.05116, 0.00296, 0.00055, - + 0.00018, 0.00177, 0.00306, - + 0.23907, 0.06021, 0.04558, 0.00269, 0.00055, - + 0.00021, 0.00166, 0.00287, - + 0.22799, 0.05704, 0.04090, 0.00247, 0.00055, - + 0.00021, 0.00159, 0.00273, - + 0.21775, 0.05416, 0.03692, 0.00242, 0.00053, - + 0.00022, 0.00150, 0.00253, - + 0.20849, 0.05150, 0.03349, 0.00231, 0.00050, - + 0.00025, 0.00143, 0.00236, - + 0.19999, 0.04908, 0.03055, 0.00222, 0.00050, - + 0.00026, 0.00137, 0.00221 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ - + 0.19212, 0.04688, 0.02803, 0.00214, 0.00052, - + 0.00025, 0.00132, 0.00207, - + 0.18484, 0.04488, 0.02583, 0.00207, 0.00051, - + 0.00028, 0.00126, 0.00197, - + 0.17813, 0.04305, 0.02390, 0.00198, 0.00049, - + 0.00029, 0.00120, 0.00188, - + 0.17185, 0.04129, 0.02220, 0.00184, 0.00047, - + 0.00023, 0.00112, 0.00182, - + 0.16602, 0.03968, 0.02069, 0.00172, 0.00044, - + 0.00019, 0.00105, 0.00176 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + 0.39419, 0.10390, 0.15953, 0.00373, 0.00014, - + 0.00008, 0.00208, 0.00419, - + 0.35773, 0.09262, 0.12489, 0.00340, 0.00028, - + 0.00007, 0.00195, 0.00377, - + 0.32770, 0.08368, 0.10038, 0.00308, 0.00034, - + 0.00000, 0.00180, 0.00350, - + 0.30285, 0.07628, 0.08252, 0.00276, 0.00037, - + 0.00002, 0.00164, 0.00320, - + 0.28160, 0.07004, 0.06909, 0.00261, 0.00038, - + 0.00006, 0.00151, 0.00291, - + 0.26312, 0.06490, 0.05877, 0.00248, 0.00039, - + 0.00007, 0.00144, 0.00259, - + 0.24706, 0.06033, 0.05059, 0.00236, 0.00041, - + 0.00012, 0.00133, 0.00239 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ - + 0.23299, 0.05629, 0.04403, 0.00212, 0.00038, - + 0.00013, 0.00123, 0.00226, - + 0.22019, 0.05279, 0.03870, 0.00203, 0.00037, - + 0.00012, 0.00117, 0.00212, - + 0.20870, 0.04969, 0.03428, 0.00196, 0.00038, - + 0.00011, 0.00109, 0.00194, - + 0.19844, 0.04691, 0.03058, 0.00186, 0.00039, - + 0.00011, 0.00101, 0.00179, - + 0.18911, 0.04438, 0.02748, 0.00176, 0.00040, - + 0.00015, 0.00105, 0.00170, - + 0.18057, 0.04211, 0.02488, 0.00167, 0.00036, - + 0.00011, 0.00095, 0.00151, - + 0.17269, 0.04006, 0.02264, 0.00163, 0.00032, - + 0.00010, 0.00088, 0.00141 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ - + 0.16538, 0.03820, 0.02070, 0.00162, 0.00029, - + 0.00014, 0.00084, 0.00140, - + 0.15882, 0.03648, 0.01901, 0.00151, 0.00030, - + 0.00014, 0.00081, 0.00128, - + 0.15280, 0.03490, 0.01752, 0.00140, 0.00031, - + 0.00013, 0.00078, 0.00117, - + 0.14700, 0.03344, 0.01623, 0.00138, 0.00029, - + 0.00010, 0.00072, 0.00113, - + 0.14169, 0.03209, 0.01508, 0.00133, 0.00028, - + 0.00009, 0.00067, 0.00110 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + 0.35487, 0.08795, 0.12828, 0.00254, 0.00002, - + 0.00001, 0.00147, 0.00297, - + 0.31956, 0.07794, 0.09880, 0.00231, 0.00013, - + -0.00003, 0.00134, 0.00259, - + 0.29089, 0.06987, 0.07835, 0.00217, 0.00025, - + -0.00006, 0.00121, 0.00237, - + 0.26731, 0.06336, 0.06381, 0.00194, 0.00029, - + -0.00001, 0.00118, 0.00211, - + 0.24752, 0.05796, 0.05285, 0.00173, 0.00029, - + -0.00002, 0.00110, 0.00192, - + 0.23036, 0.05334, 0.04453, 0.00170, 0.00030, - + 0.00004, 0.00100, 0.00174, - + 0.21543, 0.04939, 0.03809, 0.00160, 0.00030, - + 0.00007, 0.00092, 0.00151 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ - + 0.20219, 0.04598, 0.03290, 0.00146, 0.00031, - + 0.00008, 0.00088, 0.00145, - + 0.19039, 0.04296, 0.02871, 0.00139, 0.00030, - + 0.00007, 0.00081, 0.00137, - + 0.17990, 0.04029, 0.02531, 0.00135, 0.00029, - + 0.00008, 0.00075, 0.00121, - + 0.17053, 0.03792, 0.02248, 0.00128, 0.00028, - + 0.00009, 0.00072, 0.00107, - + 0.16199, 0.03580, 0.02011, 0.00118, 0.00026, - + 0.00009, 0.00067, 0.00102, - + 0.15424, 0.03387, 0.01811, 0.00114, 0.00026, - + 0.00011, 0.00068, 0.00101, - + 0.14720, 0.03212, 0.01641, 0.00107, 0.00026, - + 0.00011, 0.00065, 0.00099 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ - + 0.14078, 0.03053, 0.01494, 0.00095, 0.00026, - + 0.00010, 0.00060, 0.00095, - + 0.13481, 0.02907, 0.01368, 0.00091, 0.00025, - + 0.00012, 0.00057, 0.00090, - + 0.12932, 0.02774, 0.01257, 0.00088, 0.00025, - + 0.00013, 0.00055, 0.00085, - + 0.12430, 0.02651, 0.01162, 0.00079, 0.00025, - + 0.00014, 0.00053, 0.00081, - + 0.11963, 0.02538, 0.01077, 0.00072, 0.00025, - + 0.00014, 0.00051, 0.00077 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + 0.31595, 0.07371, 0.10210, 0.00168, 0.00003, - + -0.00002, 0.00089, 0.00213, - + 0.28252, 0.06482, 0.07750, 0.00166, 0.00011, - + -0.00002, 0.00085, 0.00185, - + 0.25592, 0.05781, 0.06078, 0.00142, 0.00013, - + -0.00006, 0.00078, 0.00163, - + 0.23394, 0.05218, 0.04893, 0.00125, 0.00020, - + 0.00001, 0.00075, 0.00153, - + 0.21534, 0.04753, 0.04021, 0.00121, 0.00018, - + -0.00001, 0.00069, 0.00139, - + 0.19961, 0.04360, 0.03361, 0.00115, 0.00019, - + 0.00001, 0.00065, 0.00115, - + 0.18589, 0.04019, 0.02853, 0.00107, 0.00020, - + 0.00003, 0.00060, 0.00106 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ - + 0.17372, 0.03729, 0.02447, 0.00105, 0.00016, - + 0.00000, 0.00054, 0.00100, - + 0.16312, 0.03472, 0.02126, 0.00101, 0.00017, - + 0.00002, 0.00050, 0.00090, - + 0.15373, 0.03246, 0.01864, 0.00093, 0.00017, - + 0.00003, 0.00047, 0.00078, - + 0.14531, 0.03047, 0.01648, 0.00085, 0.00016, - + 0.00003, 0.00044, 0.00070, - + 0.13780, 0.02865, 0.01469, 0.00076, 0.00017, - + 0.00005, 0.00043, 0.00065, - + 0.13088, 0.02704, 0.01318, 0.00067, 0.00018, - + 0.00006, 0.00042, 0.00066, - + 0.12449, 0.02559, 0.01191, 0.00065, 0.00017, - + 0.00006, 0.00039, 0.00065 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ - + 0.11855, 0.02427, 0.01081, 0.00069, 0.00015, - + 0.00005, 0.00036, 0.00061, - + 0.11339, 0.02307, 0.00986, 0.00061, 0.00016, - + 0.00005, 0.00035, 0.00054, - + 0.10868, 0.02197, 0.00904, 0.00051, 0.00016, - + 0.00005, 0.00035, 0.00047, - + 0.10418, 0.02095, 0.00833, 0.00045, 0.00014, - + 0.00005, 0.00032, 0.00048, - + 0.10003, 0.02002, 0.00770, 0.00040, 0.00012, - + 0.00006, 0.00030, 0.00049 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + 0.27754, 0.06092, 0.08010, 0.00124, -0.00001, - + 0.00000, 0.00060, 0.00138, - + 0.24661, 0.05323, 0.05995, 0.00114, 0.00008, - + 0.00001, 0.00058, 0.00126, - + 0.22199, 0.04722, 0.04647, 0.00105, 0.00006, - + -0.00001, 0.00052, 0.00102, - + 0.20191, 0.04238, 0.03700, 0.00095, 0.00007, - + -0.00005, 0.00052, 0.00088, - + 0.18485, 0.03844, 0.03013, 0.00101, 0.00009, - + -0.00005, 0.00044, 0.00074, - + 0.17067, 0.03511, 0.02500, 0.00088, 0.00011, - + -0.00002, 0.00041, 0.00069, - + 0.15839, 0.03224, 0.02106, 0.00081, 0.00011, - + -0.00001, 0.00037, 0.00063 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ - + 0.14767, 0.02980, 0.01798, 0.00075, 0.00013, - + 0.00003, 0.00035, 0.00056, - + 0.13818, 0.02767, 0.01552, 0.00064, 0.00011, - + 0.00003, 0.00032, 0.00057, - + 0.12970, 0.02578, 0.01354, 0.00061, 0.00011, - + 0.00001, 0.00030, 0.00050, - + 0.12218, 0.02412, 0.01192, 0.00061, 0.00013, - + 0.00002, 0.00030, 0.00043, - + 0.11560, 0.02262, 0.01058, 0.00044, 0.00011, - + 0.00004, 0.00029, 0.00051, - + 0.10949, 0.02130, 0.00945, 0.00039, 0.00011, - + 0.00004, 0.00027, 0.00045, - + 0.10393, 0.02010, 0.00849, 0.00036, 0.00011, - + 0.00004, 0.00025, 0.00039 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ - + 0.09887, 0.01901, 0.00769, 0.00035, 0.00010, - + 0.00003, 0.00023, 0.00037, - + 0.09421, 0.01803, 0.00700, 0.00034, 0.00010, - + 0.00004, 0.00022, 0.00036, - + 0.08995, 0.01714, 0.00640, 0.00034, 0.00011, - + 0.00005, 0.00022, 0.00036, - + 0.08603, 0.01632, 0.00588, 0.00032, 0.00010, - + 0.00005, 0.00020, 0.00032, - + 0.08241, 0.01556, 0.00543, 0.00030, 0.00010, - + 0.00005, 0.00019, 0.00030 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + 0.24135, 0.04971, 0.06204, 0.00073, -0.00002, - + -0.00005, 0.00039, 0.00086, - + 0.21273, 0.04315, 0.04573, 0.00081, 0.00003, - + -0.00003, 0.00034, 0.00077, - + 0.19057, 0.03799, 0.03499, 0.00059, 0.00003, - + -0.00001, 0.00031, 0.00068, - + 0.17220, 0.03393, 0.02754, 0.00059, 0.00003, - + -0.00006, 0.00029, 0.00058, - + 0.15713, 0.03060, 0.02221, 0.00051, 0.00004, - + -0.00006, 0.00025, 0.00049, - + 0.14434, 0.02781, 0.01828, 0.00049, 0.00008, - + -0.00002, 0.00026, 0.00045, - + 0.13327, 0.02546, 0.01528, 0.00046, 0.00007, - + -0.00002, 0.00025, 0.00045 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ - + 0.12377, 0.02343, 0.01295, 0.00040, 0.00010, - + -0.00001, 0.00022, 0.00037, - + 0.11541, 0.02167, 0.01112, 0.00036, 0.00010, - + 0.00001, 0.00021, 0.00034, - + 0.10797, 0.02013, 0.00964, 0.00033, 0.00009, - + 0.00003, 0.00021, 0.00036, - + 0.10139, 0.01876, 0.00844, 0.00029, 0.00010, - + 0.00003, 0.00021, 0.00036, - + 0.09562, 0.01756, 0.00746, 0.00022, 0.00009, - + 0.00002, 0.00021, 0.00033, - + 0.09020, 0.01647, 0.00665, 0.00026, 0.00009, - + 0.00002, 0.00019, 0.00026, - + 0.08536, 0.01550, 0.00596, 0.00026, 0.00009, - + 0.00003, 0.00017, 0.00023 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ - + 0.08106, 0.01462, 0.00538, 0.00019, 0.00009, - + 0.00004, 0.00017, 0.00026, - + 0.07706, 0.01383, 0.00488, 0.00019, 0.00009, - + 0.00004, 0.00017, 0.00024, - + 0.07340, 0.01312, 0.00445, 0.00018, 0.00009, - + 0.00005, 0.00016, 0.00022, - + 0.07003, 0.01245, 0.00408, 0.00017, 0.00009, - + 0.00005, 0.00015, 0.00021, - + 0.06694, 0.01184, 0.00376, 0.00016, 0.00008, - + 0.00005, 0.00014, 0.00019 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + 0.20680, 0.03990, 0.04722, 0.00049, -0.00001, - + -0.00005, 0.00023, 0.00055, - + 0.18100, 0.03435, 0.03429, 0.00049, 0.00001, - + -0.00006, 0.00021, 0.00046, - + 0.16088, 0.03009, 0.02586, 0.00050, 0.00002, - + -0.00004, 0.00020, 0.00039, - + 0.14469, 0.02671, 0.02013, 0.00037, 0.00008, - + -0.00001, 0.00020, 0.00041, - + 0.13141, 0.02396, 0.01609, 0.00030, 0.00007, - + -0.00003, 0.00020, 0.00032, - + 0.12022, 0.02167, 0.01313, 0.00023, 0.00006, - + -0.00002, 0.00017, 0.00028, - + 0.11054, 0.01975, 0.01090, 0.00023, 0.00007, - + -0.00001, 0.00017, 0.00026 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ - + 0.10218, 0.01812, 0.00917, 0.00023, 0.00008, - + 0.00001, 0.00017, 0.00024, - + 0.09484, 0.01669, 0.00783, 0.00023, 0.00006, - + -0.00001, 0.00013, 0.00018, - + 0.08844, 0.01545, 0.00676, 0.00020, 0.00006, - + 0.00000, 0.00012, 0.00017, - + 0.08282, 0.01436, 0.00589, 0.00015, 0.00007, - + 0.00002, 0.00014, 0.00018, - + 0.07778, 0.01338, 0.00519, 0.00013, 0.00008, - + 0.00004, 0.00014, 0.00015, - + 0.07324, 0.01253, 0.00461, 0.00010, 0.00007, - + 0.00003, 0.00012, 0.00015, - + 0.06912, 0.01176, 0.00412, 0.00009, 0.00007, - + 0.00003, 0.00011, 0.00014 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ - + 0.06534, 0.01106, 0.00370, 0.00011, 0.00007, - + 0.00002, 0.00011, 0.00013, - + 0.06198, 0.01044, 0.00335, 0.00010, 0.00006, - + 0.00003, 0.00011, 0.00013, - + 0.05893, 0.00987, 0.00304, 0.00008, 0.00006, - + 0.00003, 0.00011, 0.00013, - + 0.05609, 0.00935, 0.00279, 0.00006, 0.00005, - + 0.00003, 0.00009, 0.00013, - + 0.05349, 0.00887, 0.00256, 0.00005, 0.00005, - + 0.00002, 0.00008, 0.00012 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + 0.17485, 0.03164, 0.03552, 0.00040, -0.00006, - + -0.00010, 0.00008, 0.00037, - + 0.15202, 0.02704, 0.02538, 0.00041, -0.00002, - + -0.00006, 0.00011, 0.00030, - + 0.13424, 0.02357, 0.01893, 0.00037, 0.00001, - + -0.00007, 0.00012, 0.00025, - + 0.12024, 0.02082, 0.01458, 0.00022, -0.00001, - + -0.00007, 0.00010, 0.00018, - + 0.10850, 0.01858, 0.01155, 0.00022, 0.00002, - + -0.00004, 0.00010, 0.00022, - + 0.09880, 0.01673, 0.00936, 0.00019, 0.00003, - + -0.00005, 0.00008, 0.00016, - + 0.09043, 0.01519, 0.00771, 0.00021, 0.00004, - + -0.00002, 0.00010, 0.00014 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ - + 0.08328, 0.01387, 0.00646, 0.00018, 0.00004, - + -0.00002, 0.00009, 0.00014, - + 0.07712, 0.01274, 0.00549, 0.00013, 0.00004, - + 0.00000, 0.00008, 0.00013, - + 0.07171, 0.01175, 0.00472, 0.00010, 0.00004, - + 0.00000, 0.00008, 0.00012, - + 0.06689, 0.01088, 0.00410, 0.00009, 0.00004, - + 0.00000, 0.00007, 0.00011, - + 0.06254, 0.01012, 0.00359, 0.00012, 0.00004, - + 0.00001, 0.00006, 0.00012, - + 0.05870, 0.00945, 0.00317, 0.00011, 0.00003, - + 0.00001, 0.00006, 0.00011, - + 0.05528, 0.00884, 0.00283, 0.00010, 0.00003, - + 0.00000, 0.00006, 0.00010 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ - + 0.05219, 0.00830, 0.00254, 0.00007, 0.00002, - + 0.00001, 0.00006, 0.00009, - + 0.04939, 0.00781, 0.00229, 0.00006, 0.00002, - + 0.00001, 0.00005, 0.00007, - + 0.04685, 0.00737, 0.00208, 0.00004, 0.00002, - + 0.00000, 0.00005, 0.00006, - + 0.04451, 0.00697, 0.00190, 0.00002, 0.00003, - + 0.00001, 0.00005, 0.00008, - + 0.04236, 0.00660, 0.00174, 0.00002, 0.00003, - + 0.00002, 0.00005, 0.00009 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + 0.14537, 0.02451, 0.02606, 0.00020, -0.00003, - + -0.00004, 0.00006, 0.00020, - + 0.12554, 0.02085, 0.01841, 0.00024, -0.00001, - + -0.00003, 0.00006, 0.00017, - + 0.11019, 0.01807, 0.01358, 0.00020, -0.00003, - + -0.00004, 0.00006, 0.00017, - + 0.09805, 0.01588, 0.01038, 0.00018, 0.00000, - + -0.00002, 0.00005, 0.00012, - + 0.08810, 0.01412, 0.00815, 0.00017, 0.00000, - + -0.00001, 0.00005, 0.00009, - + 0.07983, 0.01267, 0.00655, 0.00013, -0.00001, - + -0.00002, 0.00003, 0.00011, - + 0.07291, 0.01145, 0.00537, 0.00008, 0.00000, - + -0.00002, 0.00002, 0.00009 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ - + 0.06691, 0.01043, 0.00447, 0.00007, 0.00001, - + -0.00001, 0.00003, 0.00008, - + 0.06168, 0.00954, 0.00378, 0.00007, 0.00001, - + 0.00000, 0.00004, 0.00009, - + 0.05712, 0.00878, 0.00323, 0.00008, 0.00001, - + 0.00000, 0.00003, 0.00008, - + 0.05311, 0.00812, 0.00279, 0.00010, 0.00001, - + -0.00001, 0.00003, 0.00006, - + 0.04954, 0.00753, 0.00244, 0.00010, 0.00001, - + 0.00001, 0.00003, 0.00005, - + 0.04638, 0.00701, 0.00215, 0.00008, 0.00001, - + 0.00000, 0.00003, 0.00006, - + 0.04354, 0.00654, 0.00191, 0.00007, 0.00001, - + 0.00000, 0.00003, 0.00006 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ - + 0.04095, 0.00613, 0.00171, 0.00008, 0.00000, - + 0.00000, 0.00002, 0.00006, - + 0.03868, 0.00575, 0.00154, 0.00005, 0.00001, - + 0.00000, 0.00002, 0.00006, - + 0.03663, 0.00541, 0.00139, 0.00002, 0.00001, - + 0.00000, 0.00002, 0.00006, - + 0.03470, 0.00511, 0.00127, 0.00003, 0.00000, - + 0.00000, 0.00002, 0.00005, - + 0.03295, 0.00483, 0.00116, 0.00003, 0.00000, - + 0.00000, 0.00002, 0.00004 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + 0.09524, 0.01389, 0.01314, 0.00006, -0.00002, - + -0.00001, 0.00002, 0.00007, - + 0.08096, 0.01162, 0.00898, 0.00009, 0.00000, - + 0.00000, 0.00003, 0.00004, - + 0.07009, 0.00994, 0.00644, 0.00006, -0.00001, - + -0.00002, 0.00002, 0.00004, - + 0.06161, 0.00862, 0.00480, 0.00003, 0.00001, - + 0.00000, 0.00002, 0.00005, - + 0.05476, 0.00758, 0.00370, -0.00001, 0.00001, - + 0.00000, 0.00002, 0.00006, - + 0.04915, 0.00674, 0.00292, 0.00000, 0.00001, - + 0.00000, 0.00002, 0.00005, - + 0.04439, 0.00604, 0.00236, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00004 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ - + 0.04040, 0.00545, 0.00194, 0.00001, 0.00002, - + 0.00000, 0.00002, 0.00001, - + 0.03694, 0.00494, 0.00162, 0.00000, 0.00002, - + 0.00000, 0.00002, 0.00002, - + 0.03392, 0.00451, 0.00137, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00003, - + 0.03130, 0.00414, 0.00118, 0.00002, 0.00001, - + 0.00000, 0.00002, 0.00002, - + 0.02902, 0.00381, 0.00102, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00003, - + 0.02698, 0.00353, 0.00089, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02517, 0.00327, 0.00079, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ - + 0.02355, 0.00305, 0.00070, 0.00002, 0.00001, - + 0.00001, 0.00002, 0.00001, - + 0.02210, 0.00285, 0.00063, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02079, 0.00267, 0.00056, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01961, 0.00250, 0.00051, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01853, 0.00236, 0.00047, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + 0.05737, 0.00716, 0.00596, 0.00004, -0.00001, - + -0.00001, 0.00000, 0.00001, - + 0.04794, 0.00589, 0.00393, 0.00005, -0.00001, - + -0.00001, -0.00001, 0.00001, - + 0.04088, 0.00496, 0.00274, 0.00002, 0.00000, - + -0.00001, 0.00000, 0.00003, - + 0.03548, 0.00425, 0.00200, 0.00000, 0.00000, - + 0.00000, 0.00001, 0.00002, - + 0.03116, 0.00369, 0.00151, -0.00001, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.02762, 0.00324, 0.00117, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02472, 0.00288, 0.00093, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ - + 0.02227, 0.00257, 0.00076, 0.00000, 0.00000, - + 0.00000, 0.00001, 0.00000, - + 0.02018, 0.00232, 0.00062, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00000, - + 0.01840, 0.00210, 0.00052, 0.00000, 0.00001, - + 0.00000, 0.00000, 0.00000, - + 0.01686, 0.00191, 0.00044, -0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01549, 0.00174, 0.00038, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01430, 0.00160, 0.00033, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01326, 0.00148, 0.00029, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ - + 0.01233, 0.00137, 0.00026, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01150, 0.00127, 0.00023, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01075, 0.00118, 0.00021, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01008, 0.00110, 0.00019, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.00947, 0.00103, 0.00017, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + 0.03069, 0.00320, 0.00231, 0.00001, 0.00000, - + -0.00001, -0.00001, 0.00000, - + 0.02518, 0.00259, 0.00147, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.02117, 0.00215, 0.00100, 0.00000, 0.00001, - + 0.00000, 0.00000, 0.00000, - + 0.01808, 0.00181, 0.00071, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01564, 0.00156, 0.00052, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01370, 0.00135, 0.00040, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01212, 0.00119, 0.00031, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ - + 0.01081, 0.00105, 0.00025, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00970, 0.00094, 0.00021, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00876, 0.00084, 0.00017, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00796, 0.00076, 0.00014, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00727, 0.00069, 0.00012, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00666, 0.00063, 0.00011, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00612, 0.00057, 0.00009, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ - + 0.00565, 0.00053, 0.00008, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00524, 0.00049, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00487, 0.00045, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00453, 0.00042, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00423, 0.00039, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + 0.01397, 0.00119, 0.00072, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01120, 0.00094, 0.00044, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00922, 0.00076, 0.00029, -0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.00773, 0.00063, 0.00020, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00659, 0.00053, 0.00014, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00569, 0.00046, 0.00011, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00497, 0.00040, 0.00008, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ - + 0.00437, 0.00035, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00388, 0.00030, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00347, 0.00027, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00312, 0.00024, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00282, 0.00022, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00256, 0.00020, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00233, 0.00018, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ - + 0.00214, 0.00016, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00196, 0.00015, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00181, 0.00014, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00167, 0.00013, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00155, 0.00012, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + 0.00108, 0.00005, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00081, 0.00004, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00063, 0.00003, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00051, 0.00002, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00041, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00034, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00029, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ - + 0.00025, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00021, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00018, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00016, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00014, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ - + 0.00010, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00006, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,5,9,0,0,9,9/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - XSAVE=X -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(92,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7) GO TO 31 - DO 30 K=1,19 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,8 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) -C - X=XSAVE -C - RETURN - END diff --git a/PDF/spdf/sfmsbs0.F b/PDF/spdf/sfmsbs0.F deleted file mode 100644 index c280f399242..00000000000 --- a/PDF/spdf/sfmsbs0.F +++ /dev/null @@ -1,1981 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:25 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:44 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFMSBS0(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) - -C THIS IS THE NEW FIT "S0'" WITH UBAR = DBAR (230 MEV) - -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,20),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + 0.01617, 0.00043, 4.29007, 0.44145, 0.04538, - + 0.00000, 0.24629, 0.44523, - + 0.01671, 0.00055, 10.96969, 0.61931, 0.22312, - + 0.00000, 0.42415, 0.62282, - + 0.01720, 0.00066, 19.87027, 0.85311, 0.45682, - + 0.00000, 0.65797, 0.85638, - + 0.01765, 0.00076, 30.53786, 1.13684, 0.74046, - + 0.00000, 0.94171, 1.13989, - + 0.01807, 0.00087, 42.94975, 1.46773, 1.07126, - + 0.07130, 1.27262, 1.47058, - + 0.01847, 0.00097, 56.89287, 1.84230, 1.44576, - + 0.40611, 1.64721, 1.84497, - + 0.01884, 0.00107, 72.20888, 2.25870, 1.86210, - + 0.83810, 2.06364, 2.26120 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ - + 0.01919, 0.00117, 88.74004, 2.71380, 2.31713, - + 1.30203, 2.51876, 2.71614, - + 0.01953, 0.00126, 106.35173, 3.20452, 2.80781, - + 1.80186, 3.00951, 3.20672, - + 0.01986, 0.00136, 124.94041, 3.72853, 3.33177, - + 2.33410, 3.53354, 3.73058, - + 0.02017, 0.00145, 144.43050, 4.28397, 3.88717, - + 2.89732, 4.08902, 4.28589, - + 0.02047, 0.00154, 164.67508, 4.86751, 4.47068, - + 3.48814, 4.67259, 4.86931, - + 0.02076, 0.00164, 185.36879, 5.47220, 5.07534, - + 4.09972, 5.27732, 5.47389, - + 0.02105, 0.00173, 206.77844, 6.10353, 5.70665, - + 4.73755, 5.90868, 6.10511 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ - + 0.02132, 0.00181, 228.74190, 6.75789, 6.36099, - + 5.39807, 6.56308, 6.75937, - + 0.02158, 0.00190, 250.89102, 7.42630, 7.02939, - + 6.07236, 7.23153, 7.42768, - + 0.02184, 0.00199, 273.72388, 8.12013, 7.72321, - + 6.77177, 7.92540, 8.12142, - + 0.02209, 0.00207, 296.51294, 8.82216, 8.42522, - + 7.47914, 8.62746, 8.82341, - + 0.02234, 0.00216, 319.87012, 9.54651, 9.14956, - + 8.20858, 9.35184, 9.54765 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + 0.02044, 0.00076, 4.15525, 0.43499, 0.04152, - + 0.00000, 0.24004, 0.43721, - + 0.02116, 0.00094, 9.97353, 0.59330, 0.20000, - + 0.00000, 0.39847, 0.59531, - + 0.02180, 0.00111, 17.40932, 0.79496, 0.40181, - + 0.00000, 0.60024, 0.79679, - + 0.02239, 0.00128, 26.05307, 1.03357, 0.64057, - + 0.00000, 0.83895, 1.03523, - + 0.02294, 0.00145, 35.86687, 1.30602, 0.91315, - + 0.05842, 1.11150, 1.30754, - + 0.02346, 0.00160, 46.66591, 1.60894, 1.21621, - + 0.32968, 1.41453, 1.61033, - + 0.02394, 0.00176, 58.31686, 1.94046, 1.54786, - + 0.67492, 1.74614, 1.94172 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ - + 0.02440, 0.00191, 70.69380, 2.29779, 1.90531, - + 1.04033, 2.10357, 2.29894, - + 0.02484, 0.00206, 83.69286, 2.67834, 2.28598, - + 1.42913, 2.48420, 2.67938, - + 0.02527, 0.00220, 97.23682, 3.08012, 2.68789, - + 1.83841, 2.88608, 3.08106, - + 0.02567, 0.00235, 111.27097, 3.50165, 3.10953, - + 2.26700, 3.30770, 3.50249, - + 0.02606, 0.00249, 125.68950, 3.94030, 3.54830, - + 2.71229, 3.74644, 3.94106, - + 0.02643, 0.00262, 140.27441, 4.39086, 3.99898, - + 3.16911, 4.19709, 4.39155, - + 0.02680, 0.00276, 155.22566, 4.85745, 4.46568, - + 3.64162, 4.66376, 4.85805 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ - + 0.02715, 0.00289, 170.42952, 5.33739, 4.94573, - + 4.12717, 5.14378, 5.33791, - + 0.02749, 0.00302, 185.62794, 5.82406, 5.43251, - + 4.61919, 5.63053, 5.82452, - + 0.02782, 0.00315, 201.18080, 6.32589, 5.93445, - + 5.12611, 6.13245, 6.32628, - + 0.02814, 0.00328, 216.57881, 6.83031, 6.43898, - + 5.63539, 6.63695, 6.83065, - + 0.02845, 0.00340, 232.25766, 7.34768, 6.95646, - + 6.15741, 7.15440, 7.34797 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + 0.02575, 0.00132, 4.02437, 0.42807, 0.03775, - + 0.00000, 0.23383, 0.42912, - + 0.02668, 0.00161, 9.06631, 0.56800, 0.17817, - + 0.00000, 0.37402, 0.56893, - + 0.02752, 0.00189, 15.24934, 0.74075, 0.35135, - + 0.00000, 0.54700, 0.74156, - + 0.02830, 0.00216, 22.21999, 0.94009, 0.55110, - + 0.00000, 0.74656, 0.94081, - + 0.02901, 0.00241, 29.94127, 1.16300, 0.77438, - + 0.04760, 0.96967, 1.16363, - + 0.02967, 0.00266, 38.26198, 1.40646, 1.01820, - + 0.26617, 1.21333, 1.40701, - + 0.03030, 0.00290, 47.07710, 1.66879, 1.28086, - + 0.54061, 1.47584, 1.66926 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ - + 0.03089, 0.00313, 56.29138, 1.94768, 1.56006, - + 0.82692, 1.75490, 1.94808, - + 0.03146, 0.00335, 65.82938, 2.24101, 1.85370, - + 1.12776, 2.04840, 2.24135, - + 0.03200, 0.00358, 75.63731, 2.54724, 2.16023, - + 1.44084, 2.35479, 2.54752, - + 0.03252, 0.00379, 85.67871, 2.86522, 2.47850, - + 1.76527, 2.67293, 2.86545, - + 0.03302, 0.00400, 95.88033, 3.19300, 2.80655, - + 2.09910, 3.00086, 3.19316, - + 0.03350, 0.00421, 106.08917, 3.52670, 3.14052, - + 2.43852, 3.33471, 3.52682, - + 0.03396, 0.00441, 116.45706, 3.86944, 3.48352, - + 2.78668, 3.67759, 3.86952 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ - + 0.03441, 0.00461, 126.90576, 4.21930, 3.83364, - + 3.14167, 4.02759, 4.21934, - + 0.03484, 0.00480, 137.25620, 4.57147, 4.18605, - + 3.49873, 4.37990, 4.57146, - + 0.03526, 0.00500, 147.76971, 4.93218, 4.54701, - + 3.86410, 4.74075, 4.93214, - + 0.03567, 0.00518, 158.09094, 5.29236, 4.90742, - + 4.22873, 5.10105, 5.29228, - + 0.03606, 0.00537, 168.53088, 5.65957, 5.27486, - + 4.60020, 5.46839, 5.65946 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + 0.02941, 0.00183, 3.94949, 0.42374, 0.03559, - + 0.00000, 0.23020, 0.42431, - + 0.03050, 0.00221, 8.57318, 0.55344, 0.16597, - + 0.00000, 0.36025, 0.55393, - + 0.03148, 0.00258, 14.10938, 0.71066, 0.32380, - + 0.00000, 0.51778, 0.71107, - + 0.03237, 0.00292, 20.23964, 0.88946, 0.50316, - + 0.00000, 0.69687, 0.88981, - + 0.03320, 0.00325, 26.93188, 1.08699, 0.70121, - + 0.04209, 0.89467, 1.08729, - + 0.03396, 0.00357, 34.05507, 1.30051, 0.91522, - + 0.23417, 1.10844, 1.30076, - + 0.03469, 0.00388, 41.52043, 1.52850, 1.14368, - + 0.47344, 1.33668, 1.52870 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ - + 0.03538, 0.00417, 49.24931, 1.76894, 1.38456, - + 0.72097, 1.57735, 1.76910, - + 0.03603, 0.00446, 57.18089, 2.02001, 1.63606, - + 0.97916, 1.82864, 2.02014, - + 0.03665, 0.00474, 65.27330, 2.28041, 1.89686, - + 1.24606, 2.08925, 2.28050, - + 0.03725, 0.00502, 73.49934, 2.54917, 2.16600, - + 1.52094, 2.35820, 2.54922, - + 0.03783, 0.00529, 81.80083, 2.82466, 2.44187, - + 1.80219, 2.63389, 2.82468, - + 0.03838, 0.00555, 90.05473, 3.10367, 2.72124, - + 2.08664, 2.91309, 3.10366, - + 0.03891, 0.00580, 98.39052, 3.38887, 3.00679, - + 2.37699, 3.19847, 3.38883 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ - + 0.03942, 0.00605, 106.74629, 3.67867, 3.29694, - + 2.67168, 3.48845, 3.67861, - + 0.03992, 0.00630, 114.97829, 3.96912, 3.58773, - + 2.96679, 3.77908, 3.96905, - + 0.04040, 0.00654, 123.30289, 4.26547, 3.88439, - + 3.26757, 4.07559, 4.26536, - + 0.04087, 0.00677, 131.43361, 4.56018, 4.17942, - + 3.56652, 4.37047, 4.56006, - + 0.04132, 0.00700, 139.62538, 4.85961, 4.47916, - + 3.87001, 4.67006, 4.85947 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + 0.03229, 0.00231, 3.89704, 0.42051, 0.03407, - + 0.00000, 0.22762, 0.42084, - + 0.03350, 0.00277, 8.23885, 0.54318, 0.15756, - + 0.00000, 0.35070, 0.54345, - + 0.03458, 0.00321, 13.35069, 0.68995, 0.30507, - + 0.00000, 0.49784, 0.69017, - + 0.03557, 0.00362, 18.93910, 0.85517, 0.47098, - + 0.00000, 0.66341, 0.85536, - + 0.03649, 0.00402, 24.97672, 1.03614, 0.65258, - + 0.03852, 0.84470, 1.03629, - + 0.03734, 0.00440, 31.34653, 1.23034, 0.84737, - + 0.21350, 1.03920, 1.23046, - + 0.03814, 0.00477, 37.97078, 1.43638, 1.05396, - + 0.43028, 1.24552, 1.43647 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ - + 0.03890, 0.00512, 44.78175, 1.65243, 1.27055, - + 0.65319, 1.46184, 1.65250, - + 0.03962, 0.00546, 51.72809, 1.87688, 1.49551, - + 0.88451, 1.68655, 1.87693, - + 0.04031, 0.00580, 58.77548, 2.10858, 1.72769, - + 1.12249, 1.91850, 2.10861, - + 0.04097, 0.00612, 65.90230, 2.34669, 1.96627, - + 1.36652, 2.15685, 2.34670, - + 0.04160, 0.00644, 73.05998, 2.58980, 2.20983, - + 1.61519, 2.40019, 2.58980, - + 0.04221, 0.00675, 80.14357, 2.83511, 2.45557, - + 1.86575, 2.64571, 2.83509, - + 0.04280, 0.00705, 87.26857, 3.08500, 2.70588, - + 2.12062, 2.89582, 3.08496 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ - + 0.04336, 0.00734, 94.38304, 3.33811, 2.95939, - + 2.37844, 3.14913, 3.33805, - + 0.04391, 0.00763, 101.36421, 3.59099, 3.21267, - + 2.63584, 3.40222, 3.59093, - + 0.04444, 0.00791, 108.40167, 3.84828, 3.47035, - + 2.89741, 3.65971, 3.84821, - + 0.04496, 0.00819, 115.24945, 4.10343, 3.72587, - + 3.15667, 3.91505, 4.10335, - + 0.04545, 0.00846, 122.12920, 4.36202, 3.98482, - + 3.41918, 4.17382, 4.36193 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + 0.03470, 0.00276, 3.85671, 0.41791, 0.03290, - + 0.00000, 0.22560, 0.41809, - + 0.03600, 0.00330, 7.98792, 0.53524, 0.15118, - + 0.00000, 0.34340, 0.53539, - + 0.03717, 0.00381, 12.78898, 0.67423, 0.29101, - + 0.00000, 0.48281, 0.67435, - + 0.03824, 0.00428, 17.98566, 0.82945, 0.44701, - + 0.00000, 0.63843, 0.82955, - + 0.03923, 0.00474, 23.55469, 0.99835, 0.61663, - + 0.03592, 0.80769, 0.99843, - + 0.04015, 0.00517, 29.38963, 1.17857, 0.79752, - + 0.19855, 0.98825, 1.17864, - + 0.04102, 0.00559, 35.42102, 1.36884, 0.98842, - + 0.39916, 1.17884, 1.36889 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ - + 0.04184, 0.00600, 41.58891, 1.56747, 1.18766, - + 0.60449, 1.37778, 1.56752, - + 0.04262, 0.00639, 47.84892, 1.77301, 1.39377, - + 0.81671, 1.58360, 1.77304, - + 0.04336, 0.00677, 54.17197, 1.98441, 1.60572, - + 1.03422, 1.79528, 1.98444, - + 0.04407, 0.00714, 60.54033, 2.20094, 1.82278, - + 1.25652, 2.01208, 2.20096, - + 0.04475, 0.00750, 66.91216, 2.42134, 2.04369, - + 1.48234, 2.23273, 2.42135, - + 0.04541, 0.00785, 73.19493, 2.64308, 2.26592, - + 1.70920, 2.45472, 2.64309, - + 0.04604, 0.00819, 79.49432, 2.86836, 2.49168, - + 1.93933, 2.68024, 2.86836 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ - + 0.04665, 0.00853, 85.76529, 3.09598, 2.71975, - + 2.17155, 2.90809, 3.09597, - + 0.04724, 0.00885, 91.89941, 3.32285, 2.94706, - + 2.40281, 3.13518, 3.32284, - + 0.04781, 0.00917, 98.06761, 3.55316, 3.17780, - + 2.63730, 3.36571, 3.55315, - + 0.04837, 0.00948, 104.05170, 3.78104, 3.40611, - + 2.86919, 3.59381, 3.78103, - + 0.04890, 0.00978, 110.05058, 4.01155, 3.63702, - + 3.10353, 3.82452, 4.01153 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + 0.04319, 0.00481, 3.73301, 0.40917, 0.02934, - + 0.00000, 0.21920, 0.40913, - + 0.04484, 0.00566, 7.25156, 0.51059, 0.13209, - + 0.00000, 0.32129, 0.51057, - + 0.04632, 0.00645, 11.17987, 0.62704, 0.24974, - + 0.00000, 0.43834, 0.62704, - + 0.04768, 0.00719, 15.30139, 0.75396, 0.37776, - + 0.00000, 0.56582, 0.75399, - + 0.04893, 0.00789, 19.60672, 0.88928, 0.51408, - + 0.02874, 0.70164, 0.88933, - + 0.05009, 0.00855, 24.02007, 1.03116, 0.65691, - + 0.15752, 0.84400, 1.03124, - + 0.05118, 0.00919, 28.49510, 1.17867, 0.80531, - + 0.31428, 0.99195, 1.17877 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ - + 0.05222, 0.00980, 32.99355, 1.33058, 0.95805, - + 0.47242, 1.14428, 1.33069, - + 0.05320, 0.01039, 37.48895, 1.48582, 1.11409, - + 0.63383, 1.29992, 1.48595, - + 0.05414, 0.01096, 41.96594, 1.64368, 1.27273, - + 0.79737, 1.45817, 1.64384, - + 0.05503, 0.01151, 46.41725, 1.80370, 1.43348, - + 0.96273, 1.61855, 1.80387, - + 0.05589, 0.01204, 50.81726, 1.96501, 1.59549, - + 1.12906, 1.78021, 1.96520, - + 0.05672, 0.01256, 55.10451, 2.12584, 1.75699, - + 1.29465, 1.94138, 2.12604, - + 0.05751, 0.01306, 59.35997, 2.28787, 1.91967, - + 1.46118, 2.10373, 2.28808 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ - + 0.05827, 0.01355, 63.55490, 2.45029, 2.08273, - + 1.62788, 2.26647, 2.45052, - + 0.05901, 0.01402, 67.61636, 2.61094, 2.24398, - + 1.79261, 2.42742, 2.61118, - + 0.05973, 0.01448, 71.66826, 2.77291, 2.40654, - + 1.95847, 2.58969, 2.77317, - + 0.06042, 0.01493, 75.56110, 2.93205, 2.56626, - + 2.12134, 2.74912, 2.93233, - + 0.06109, 0.01537, 79.43605, 3.09204, 2.72681, - + 2.28489, 2.90938, 3.09233 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + 0.05340, 0.00837, 3.61060, 0.39906, 0.02587, - + 0.00000, 0.21238, 0.39904, - + 0.05547, 0.00969, 6.57201, 0.48553, 0.11411, - + 0.00000, 0.29975, 0.48556, - + 0.05733, 0.01091, 9.74883, 0.58177, 0.21193, - + 0.00000, 0.39679, 0.58183, - + 0.05903, 0.01204, 12.97729, 0.68414, 0.31575, - + 0.00000, 0.49989, 0.68424, - + 0.06059, 0.01310, 16.26187, 0.79108, 0.42403, - + 0.02274, 0.60751, 0.79122, - + 0.06204, 0.01410, 19.55322, 0.90127, 0.53546, - + 0.12360, 0.71833, 0.90145, - + 0.06341, 0.01505, 22.82423, 1.01407, 0.64944, - + 0.24474, 0.83172, 1.01428 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ - + 0.06471, 0.01596, 26.05367, 1.12863, 0.76511, - + 0.36517, 0.94684, 1.12887, - + 0.06594, 0.01684, 29.22864, 1.24424, 0.88177, - + 0.48654, 1.06298, 1.24451, - + 0.06711, 0.01767, 32.34377, 1.36046, 0.99899, - + 0.60806, 1.17970, 1.36075, - + 0.06823, 0.01848, 35.39905, 1.47701, 1.11651, - + 0.72962, 1.29674, 1.47733, - + 0.06931, 0.01926, 38.38046, 1.59335, 1.23376, - + 0.85067, 1.41354, 1.59369, - + 0.07034, 0.02001, 41.24855, 1.70825, 1.34955, - + 0.97003, 1.52888, 1.70862, - + 0.07133, 0.02074, 44.06503, 1.82302, 1.46517, - + 1.08903, 1.64408, 1.82341 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ - + 0.07228, 0.02144, 46.81233, 1.93714, 1.58011, - + 1.20716, 1.75861, 1.93755, - + 0.07321, 0.02212, 49.44273, 2.04911, 1.69288, - + 1.32297, 1.87097, 2.04954, - + 0.07410, 0.02279, 52.04507, 2.16122, 1.80575, - + 1.43873, 1.98347, 2.16166, - + 0.07496, 0.02343, 54.51849, 2.27055, 1.91582, - + 1.55156, 2.09316, 2.27101, - + 0.07580, 0.02406, 56.96199, 2.37977, 2.02577, - + 1.66414, 2.20275, 2.38025 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + 0.06029, 0.01156, 3.53868, 0.39225, 0.02388, - + 0.00000, 0.20803, 0.39226, - + 0.06264, 0.01325, 6.19576, 0.47040, 0.10409, - + 0.00000, 0.28723, 0.47045, - + 0.06476, 0.01481, 8.97954, 0.55578, 0.19132, - + 0.00000, 0.37355, 0.55587, - + 0.06670, 0.01625, 11.75466, 0.64532, 0.28255, - + 0.00000, 0.46394, 0.64544, - + 0.06848, 0.01759, 14.53299, 0.73774, 0.37652, - + 0.01969, 0.55715, 0.73789, - + 0.07014, 0.01885, 17.27850, 0.83198, 0.47220, - + 0.10654, 0.65212, 0.83216, - + 0.07170, 0.02005, 19.97362, 0.92757, 0.56915, - + 0.21002, 0.74839, 0.92777 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ - + 0.07317, 0.02119, 22.60497, 1.02384, 0.66671, - + 0.31199, 0.84531, 1.02407, - + 0.07457, 0.02227, 25.16585, 1.12027, 0.76435, - + 0.41398, 0.94235, 1.12051, - + 0.07591, 0.02331, 27.65526, 1.21653, 0.86177, - + 0.51538, 1.03919, 1.21679, - + 0.07718, 0.02432, 30.07607, 1.31244, 0.95879, - + 0.61614, 1.13567, 1.31273, - + 0.07841, 0.02528, 32.41937, 1.40761, 1.05502, - + 0.71586, 1.23136, 1.40791, - + 0.07958, 0.02620, 34.65535, 1.50106, 1.14949, - + 0.81364, 1.32533, 1.50138, - + 0.08071, 0.02710, 36.83626, 1.59392, 1.24333, - + 0.91060, 1.41868, 1.59426 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ - + 0.08179, 0.02796, 38.94960, 1.68579, 1.33615, - + 1.00637, 1.51103, 1.68615, - + 0.08284, 0.02879, 40.95848, 1.77549, 1.42676, - + 1.09978, 1.60119, 1.77586, - + 0.08385, 0.02961, 42.93570, 1.86493, 1.51708, - + 1.19277, 1.69106, 1.86531, - + 0.08484, 0.03039, 44.80157, 1.95174, 1.60474, - + 1.28298, 1.77830, 1.95214, - + 0.08579, 0.03115, 46.63640, 2.03814, 1.69197, - + 1.37264, 1.86512, 2.03855 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + 0.06567, 0.01451, 3.48702, 0.38686, 0.02249, - + 0.00000, 0.20468, 0.38687, - + 0.06825, 0.01653, 5.93614, 0.45929, 0.09721, - + 0.00000, 0.27827, 0.45933, - + 0.07057, 0.01838, 8.45852, 0.53738, 0.17736, - + 0.00000, 0.35741, 0.53744, - + 0.07270, 0.02007, 10.93790, 0.61843, 0.26028, - + 0.00000, 0.43941, 0.61851, - + 0.07466, 0.02165, 13.39093, 0.70136, 0.34494, - + 0.01772, 0.52321, 0.70147, - + 0.07648, 0.02313, 15.79024, 0.78529, 0.43046, - + 0.09552, 0.60795, 0.78541, - + 0.07819, 0.02452, 18.12395, 0.86985, 0.51653, - + 0.18770, 0.69327, 0.86999 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ - + 0.07981, 0.02585, 20.38364, 0.95450, 0.60260, - + 0.27795, 0.77864, 0.95465, - + 0.08135, 0.02712, 22.56622, 1.03882, 0.68826, - + 0.36771, 0.86363, 1.03898, - + 0.08281, 0.02832, 24.67316, 1.12256, 0.77328, - + 0.45649, 0.94802, 1.12274, - + 0.08421, 0.02948, 26.70900, 1.20561, 0.85755, - + 0.54429, 1.03168, 1.20580, - + 0.08555, 0.03059, 28.66769, 1.28764, 0.94075, - + 0.63080, 1.11430, 1.28784, - + 0.08684, 0.03166, 30.52516, 1.36785, 1.02209, - + 0.71525, 1.19508, 1.36806, - + 0.08808, 0.03269, 32.32776, 1.44725, 1.10257, - + 0.79868, 1.27502, 1.44748 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ - + 0.08927, 0.03368, 34.06572, 1.52553, 1.18189, - + 0.88078, 1.35382, 1.52576, - + 0.09042, 0.03463, 35.70857, 1.60166, 1.25903, - + 0.96057, 1.43046, 1.60191, - + 0.09153, 0.03556, 37.31926, 1.67734, 1.33567, - + 1.03973, 1.50663, 1.67759, - + 0.09260, 0.03646, 38.83084, 1.75054, 1.40982, - + 1.11628, 1.58030, 1.75081, - + 0.09364, 0.03733, 40.31206, 1.82320, 1.48338, - + 1.19213, 1.65341, 1.82346 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + 0.07032, 0.01730, 3.44586, 0.38199, 0.02144, - + 0.00000, 0.20172, 0.38205, - + 0.07312, 0.01960, 5.73444, 0.45009, 0.09204, - + 0.00000, 0.27109, 0.45018, - + 0.07564, 0.02169, 8.05824, 0.52273, 0.16693, - + 0.00000, 0.34487, 0.52285, - + 0.07794, 0.02361, 10.31600, 0.59748, 0.24373, - + 0.00000, 0.42065, 0.59763, - + 0.08005, 0.02539, 12.52815, 0.67342, 0.32154, - + 0.01627, 0.49754, 0.67359, - + 0.08203, 0.02705, 14.67377, 0.74980, 0.39967, - + 0.08748, 0.57480, 0.75000, - + 0.08388, 0.02861, 16.74510, 0.82631, 0.47781, - + 0.17143, 0.65214, 0.82653 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ - + 0.08563, 0.03010, 18.73683, 0.90252, 0.55556, - + 0.25319, 0.72912, 0.90275, - + 0.08729, 0.03151, 20.64867, 0.97808, 0.63259, - + 0.33414, 0.80542, 0.97834, - + 0.08887, 0.03286, 22.48331, 1.05281, 0.70871, - + 0.41384, 0.88085, 1.05308, - + 0.09038, 0.03415, 24.24609, 1.12661, 0.78384, - + 0.49234, 0.95532, 1.12689, - + 0.09182, 0.03538, 25.93327, 1.19926, 0.85776, - + 0.56942, 1.02861, 1.19956, - + 0.09321, 0.03656, 27.52582, 1.27003, 0.92975, - + 0.64439, 1.09999, 1.27035, - + 0.09455, 0.03770, 29.06483, 1.33986, 1.00075, - + 0.71820, 1.17041, 1.34019 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ - + 0.09583, 0.03879, 30.54247, 1.40849, 1.07050, - + 0.79061, 1.23960, 1.40882, - + 0.09707, 0.03985, 31.93173, 1.47504, 1.13814, - + 0.86079, 1.30670, 1.47539, - + 0.09826, 0.04087, 33.28932, 1.54104, 1.20518, - + 0.93022, 1.37322, 1.54139, - + 0.09942, 0.04185, 34.55812, 1.60469, 1.26984, - + 0.99719, 1.43738, 1.60505, - + 0.10054, 0.04281, 35.79784, 1.66771, 1.33385, - + 1.06338, 1.50089, 1.66809 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + 0.08681, 0.02970, 3.31354, 0.36454, 0.01825, - + 0.00000, 0.19141, 0.36456, - + 0.09043, 0.03307, 5.13062, 0.41974, 0.07671, - + 0.00000, 0.24826, 0.41979, - + 0.09368, 0.03610, 6.89413, 0.47667, 0.13654, - + 0.00000, 0.30666, 0.47673, - + 0.09664, 0.03884, 8.54430, 0.53365, 0.19615, - + 0.00000, 0.36496, 0.53374, - + 0.09936, 0.04136, 10.11025, 0.59021, 0.25511, - + 0.01230, 0.42274, 0.59031, - + 0.10190, 0.04369, 11.58706, 0.64595, 0.31308, - + 0.06555, 0.47961, 0.64607, - + 0.10427, 0.04587, 12.97707, 0.70078, 0.37000, - + 0.12737, 0.53549, 0.70092 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ - + 0.10651, 0.04792, 14.28305, 0.75450, 0.42568, - + 0.18654, 0.59019, 0.75465, - + 0.10863, 0.04986, 15.51007, 0.80696, 0.48000, - + 0.24425, 0.64359, 0.80713, - + 0.11065, 0.05169, 16.66443, 0.85812, 0.53292, - + 0.30027, 0.69564, 0.85830, - + 0.11258, 0.05343, 17.75340, 0.90800, 0.58447, - + 0.35474, 0.74636, 0.90819, - + 0.11441, 0.05509, 18.77751, 0.95651, 0.63458, - + 0.40758, 0.79567, 0.95671, - + 0.11617, 0.05667, 19.72649, 1.00321, 0.68281, - + 0.45838, 0.84314, 1.00341, - + 0.11786, 0.05818, 20.63014, 1.04880, 0.72987, - + 0.50786, 0.88947, 1.04901 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ - + 0.11948, 0.05963, 21.48483, 1.09316, 0.77563, - + 0.55592, 0.93453, 1.09338, - + 0.12104, 0.06101, 22.27466, 1.13573, 0.81956, - + 0.60203, 0.97778, 1.13596, - + 0.12255, 0.06235, 23.03784, 1.17759, 0.86272, - + 0.64727, 1.02030, 1.17782, - + 0.12400, 0.06363, 23.73854, 1.21756, 0.90395, - + 0.69048, 1.06090, 1.21780, - + 0.12541, 0.06487, 24.41621, 1.25684, 0.94445, - + 0.73287, 1.10079, 1.25709 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + 0.10805, 0.05037, 3.16801, 0.34141, 0.01521, - + 0.00002, 0.17832, 0.34146, - + 0.11285, 0.05507, 4.54812, 0.38458, 0.06251, - + 0.00002, 0.22358, 0.38466, - + 0.11716, 0.05923, 5.82263, 0.42748, 0.10910, - + 0.00001, 0.26834, 0.42759, - + 0.12106, 0.06295, 6.96601, 0.46912, 0.15405, - + 0.00002, 0.31165, 0.46926, - + 0.12464, 0.06632, 8.01228, 0.50941, 0.19736, - + 0.00905, 0.35346, 0.50957, - + 0.12794, 0.06940, 8.96691, 0.54822, 0.23895, - + 0.04768, 0.39367, 0.54840, - + 0.13103, 0.07226, 9.83846, 0.58560, 0.27893, - + 0.09177, 0.43236, 0.58579 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ - + 0.13394, 0.07492, 10.63628, 0.62156, 0.31732, - + 0.13317, 0.46954, 0.62176, - + 0.13668, 0.07741, 11.36589, 0.65607, 0.35412, - + 0.17288, 0.50520, 0.65628, - + 0.13927, 0.07974, 12.03519, 0.68919, 0.38941, - + 0.21083, 0.53940, 0.68940, - + 0.14173, 0.08194, 12.65259, 0.72099, 0.42327, - + 0.24719, 0.57224, 0.72121, - + 0.14407, 0.08403, 13.22074, 0.75146, 0.45568, - + 0.28195, 0.60369, 0.75168, - + 0.14631, 0.08598, 13.73528, 0.78040, 0.48649, - + 0.31496, 0.63357, 0.78063, - + 0.14845, 0.08784, 14.21533, 0.80833, 0.51621, - + 0.34675, 0.66240, 0.80858 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ - + 0.15050, 0.08962, 14.65937, 0.83520, 0.54478, - + 0.37729, 0.69012, 0.83546, - + 0.15246, 0.09131, 15.06073, 0.86062, 0.57184, - + 0.40621, 0.71636, 0.86087, - + 0.15434, 0.09293, 15.44333, 0.88537, 0.59817, - + 0.43431, 0.74190, 0.88562, - + 0.15616, 0.09447, 15.78525, 0.90874, 0.62305, - + 0.46089, 0.76603, 0.90899, - + 0.15791, 0.09595, 16.11134, 0.93149, 0.64728, - + 0.48672, 0.78952, 0.93175 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + 0.12366, 0.06804, 3.07186, 0.32476, 0.01349, - + 0.00001, 0.16913, 0.32477, - + 0.12941, 0.07356, 4.21376, 0.36128, 0.05469, - + 0.00003, 0.20801, 0.36133, - + 0.13453, 0.07840, 5.23497, 0.39672, 0.09429, - + 0.00001, 0.24554, 0.39680, - + 0.13915, 0.08267, 6.12600, 0.43046, 0.13175, - + 0.00003, 0.28116, 0.43054, - + 0.14335, 0.08652, 6.92145, 0.46254, 0.16722, - + 0.00743, 0.31495, 0.46264, - + 0.14724, 0.09001, 7.63109, 0.49297, 0.20077, - + 0.03887, 0.34695, 0.49309, - + 0.15085, 0.09321, 8.26689, 0.52189, 0.23258, - + 0.07437, 0.37732, 0.52202 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ - + 0.15423, 0.09619, 8.83561, 0.54935, 0.26275, - + 0.10729, 0.40614, 0.54948, - + 0.15741, 0.09894, 9.34709, 0.57539, 0.29134, - + 0.13852, 0.43346, 0.57553, - + 0.16041, 0.10151, 9.80844, 0.60012, 0.31848, - + 0.16808, 0.45940, 0.60026, - + 0.16325, 0.10393, 10.22624, 0.62365, 0.34428, - + 0.19616, 0.48407, 0.62379, - + 0.16593, 0.10619, 10.60383, 0.64597, 0.36877, - + 0.22278, 0.50748, 0.64614, - + 0.16848, 0.10831, 10.93835, 0.66693, 0.39178, - + 0.24780, 0.52947, 0.66710, - + 0.17092, 0.11031, 11.24630, 0.68700, 0.41381, - + 0.27170, 0.55051, 0.68716 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ - + 0.17324, 0.11221, 11.52735, 0.70614, 0.43483, - + 0.29450, 0.57060, 0.70631, - + 0.17546, 0.11400, 11.77610, 0.72410, 0.45459, - + 0.31595, 0.58945, 0.72428, - + 0.17760, 0.11572, 12.01053, 0.74148, 0.47370, - + 0.33667, 0.60770, 0.74167, - + 0.17963, 0.11734, 12.21411, 0.75770, 0.49159, - + 0.35608, 0.62475, 0.75789, - + 0.18160, 0.11890, 12.40637, 0.77341, 0.50890, - + 0.37485, 0.64127, 0.77360 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + 0.13690, 0.08377, 2.99614, 0.31124, 0.01229, - + 0.00001, 0.16177, 0.31128, - + 0.14344, 0.08982, 3.97682, 0.34321, 0.04934, - + 0.00002, 0.19630, 0.34329, - + 0.14924, 0.09509, 4.83251, 0.37369, 0.08430, - + 0.00001, 0.22904, 0.37380, - + 0.15445, 0.09970, 5.56287, 0.40225, 0.11688, - + 0.00003, 0.25962, 0.40237, - + 0.15918, 0.10382, 6.20227, 0.42906, 0.14732, - + 0.00640, 0.28826, 0.42919, - + 0.16352, 0.10753, 6.76239, 0.45419, 0.17580, - + 0.03328, 0.31506, 0.45433, - + 0.16755, 0.11092, 7.25574, 0.47780, 0.20251, - + 0.06340, 0.34023, 0.47796 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ - + 0.17129, 0.11404, 7.68960, 0.50000, 0.22761, - + 0.09107, 0.36388, 0.50015, - + 0.17481, 0.11692, 8.07348, 0.52085, 0.25118, - + 0.11709, 0.38610, 0.52101, - + 0.17812, 0.11959, 8.41432, 0.54048, 0.27337, - + 0.14155, 0.40701, 0.54064, - + 0.18124, 0.12208, 8.71826, 0.55900, 0.29431, - + 0.16461, 0.42675, 0.55916, - + 0.18417, 0.12441, 8.98860, 0.57644, 0.31405, - + 0.18633, 0.44534, 0.57661, - + 0.18696, 0.12657, 9.22349, 0.59267, 0.33246, - + 0.20660, 0.46266, 0.59284, - + 0.18961, 0.12861, 9.43674, 0.60809, 0.34997, - + 0.22585, 0.47913, 0.60827 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ - + 0.19213, 0.13054, 9.62837, 0.62272, 0.36658, - + 0.24411, 0.49474, 0.62289, - + 0.19453, 0.13234, 9.79422, 0.63631, 0.38208, - + 0.26118, 0.50929, 0.63650, - + 0.19684, 0.13406, 9.94882, 0.64941, 0.39701, - + 0.27759, 0.52330, 0.64961, - + 0.19903, 0.13568, 10.07921, 0.66153, 0.41088, - + 0.29288, 0.53629, 0.66172, - + 0.20114, 0.13723, 10.20098, 0.67321, 0.42425, - + 0.30760, 0.54882, 0.67339 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + 0.14876, 0.09806, 2.93193, 0.29978, 0.01138, - + 0.00003, 0.15559, 0.29985, - + 0.15599, 0.10446, 3.79241, 0.32833, 0.04530, - + 0.00003, 0.18685, 0.32841, - + 0.16239, 0.10998, 4.52823, 0.35515, 0.07686, - + 0.00004, 0.21605, 0.35528, - + 0.16808, 0.11479, 5.14390, 0.37995, 0.10588, - + 0.00004, 0.24296, 0.38006, - + 0.17325, 0.11904, 5.67441, 0.40296, 0.13273, - + 0.00567, 0.26790, 0.40308, - + 0.17798, 0.12287, 6.13175, 0.42431, 0.15760, - + 0.02933, 0.29102, 0.42446, - + 0.18233, 0.12635, 6.52844, 0.44421, 0.18075, - + 0.05567, 0.31255, 0.44437 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ - + 0.18638, 0.12951, 6.87192, 0.46275, 0.20232, - + 0.07967, 0.33261, 0.46292, - + 0.19018, 0.13241, 7.17072, 0.48001, 0.22242, - + 0.10209, 0.35130, 0.48019, - + 0.19372, 0.13509, 7.43224, 0.49612, 0.24121, - + 0.12301, 0.36876, 0.49630, - + 0.19704, 0.13759, 7.66248, 0.51122, 0.25883, - + 0.14262, 0.38511, 0.51138, - + 0.20015, 0.13992, 7.86430, 0.52533, 0.27533, - + 0.16099, 0.40042, 0.52548, - + 0.20312, 0.14205, 8.03505, 0.53837, 0.29064, - + 0.17804, 0.41459, 0.53853, - + 0.20594, 0.14407, 8.18813, 0.55068, 0.30512, - + 0.19417, 0.42799, 0.55085 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ - + 0.20860, 0.14596, 8.32394, 0.56228, 0.31878, - + 0.20939, 0.44062, 0.56243, - + 0.21113, 0.14773, 8.43829, 0.57299, 0.33146, - + 0.22355, 0.45231, 0.57314, - + 0.21356, 0.14941, 8.54348, 0.58325, 0.34362, - + 0.23710, 0.46352, 0.58342, - + 0.21585, 0.15097, 8.62821, 0.59264, 0.35484, - + 0.24965, 0.47383, 0.59281, - + 0.21807, 0.15247, 8.70650, 0.60166, 0.36562, - + 0.26169, 0.48374, 0.60184 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + 0.19893, 0.15544, 2.68535, 0.25861, 0.00859, - + 0.00002, 0.13359, 0.25863, - + 0.20861, 0.16209, 3.20192, 0.27716, 0.03331, - + 0.00003, 0.15523, 0.27716, - + 0.21699, 0.16764, 3.61007, 0.29363, 0.05519, - + 0.00001, 0.17443, 0.29364, - + 0.22435, 0.17227, 3.92668, 0.30805, 0.07445, - + 0.00002, 0.19128, 0.30810, - + 0.23088, 0.17629, 4.17998, 0.32090, 0.09162, - + 0.00369, 0.20630, 0.32096, - + 0.23673, 0.17977, 4.38400, 0.33235, 0.10703, - + 0.01878, 0.21974, 0.33243, - + 0.24204, 0.18286, 4.54719, 0.34262, 0.12093, - + 0.03523, 0.23183, 0.34268 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ - + 0.24689, 0.18560, 4.67801, 0.35183, 0.13351, - + 0.04982, 0.24271, 0.35188, - + 0.25137, 0.18801, 4.78318, 0.36010, 0.14494, - + 0.06313, 0.25257, 0.36016, - + 0.25550, 0.19019, 4.86669, 0.36756, 0.15535, - + 0.07527, 0.26150, 0.36762, - + 0.25932, 0.19218, 4.93266, 0.37431, 0.16489, - + 0.08641, 0.26964, 0.37437, - + 0.26290, 0.19396, 4.98391, 0.38041, 0.17363, - + 0.09666, 0.27706, 0.38049, - + 0.26618, 0.19558, 5.02071, 0.38586, 0.18156, - + 0.10599, 0.28376, 0.38591, - + 0.26927, 0.19706, 5.04895, 0.39085, 0.18891, - + 0.11467, 0.28994, 0.39090 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ - + 0.27218, 0.19841, 5.06879, 0.39539, 0.19570, - + 0.12271, 0.29561, 0.39546, - + 0.27488, 0.19962, 5.07871, 0.39941, 0.20186, - + 0.13004, 0.30069, 0.39948, - + 0.27745, 0.20075, 5.08545, 0.40317, 0.20767, - + 0.13697, 0.30548, 0.40326, - + 0.27982, 0.20178, 5.08372, 0.40647, 0.21292, - + 0.14326, 0.30974, 0.40652, - + 0.28208, 0.20275, 5.08013, 0.40956, 0.21789, - + 0.14923, 0.31377, 0.40960 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + 0.28323, 0.23020, 2.32789, 0.20943, 0.00581, - + -0.00013, 0.10753, 0.20930, - + 0.29472, 0.23441, 2.55412, 0.21891, 0.02210, - + -0.00012, 0.12043, 0.21882, - + 0.30420, 0.23765, 2.70850, 0.22665, 0.03571, - + -0.00009, 0.13109, 0.22649, - + 0.31224, 0.24004, 2.80796, 0.23279, 0.04705, - + -0.00010, 0.13985, 0.23267, - + 0.31916, 0.24185, 2.87312, 0.23779, 0.05674, - + 0.00201, 0.14722, 0.23771, - + 0.32512, 0.24330, 2.91302, 0.24193, 0.06507, - + 0.01059, 0.15344, 0.24177, - + 0.33036, 0.24438, 2.93383, 0.24526, 0.07228, - + 0.01972, 0.15873, 0.24517 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ - + 0.33496, 0.24519, 2.94055, 0.24804, 0.07859, - + 0.02757, 0.16325, 0.24790, - + 0.33911, 0.24576, 2.93646, 0.25022, 0.08412, - + 0.03451, 0.16712, 0.25012, - + 0.34279, 0.24618, 2.92475, 0.25198, 0.08898, - + 0.04067, 0.17044, 0.25191, - + 0.34604, 0.24648, 2.90766, 0.25343, 0.09330, - + 0.04619, 0.17331, 0.25333, - + 0.34903, 0.24662, 2.88592, 0.25452, 0.09714, - + 0.05113, 0.17579, 0.25445, - + 0.35168, 0.24661, 2.85969, 0.25531, 0.10048, - + 0.05553, 0.17785, 0.25521, - + 0.35408, 0.24656, 2.83185, 0.25591, 0.10349, - + 0.05950, 0.17965, 0.25578 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ - + 0.35624, 0.24647, 2.80239, 0.25632, 0.10618, - + 0.06307, 0.18119, 0.25617, - + 0.35819, 0.24625, 2.77069, 0.25649, 0.10854, - + 0.06630, 0.18244, 0.25634, - + 0.36002, 0.24601, 2.73959, 0.25659, 0.11071, - + 0.06931, 0.18357, 0.25645, - + 0.36162, 0.24569, 2.70671, 0.25645, 0.11255, - + 0.07194, 0.18445, 0.25638, - + 0.36312, 0.24537, 2.67463, 0.25629, 0.11427, - + 0.07440, 0.18524, 0.25623 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + 0.35669, 0.27477, 2.04288, 0.17706, 0.00442, - + 0.00001, 0.09068, 0.17695, - + 0.36735, 0.27551, 2.13345, 0.18179, 0.01625, - + 0.00003, 0.09901, 0.18171, - + 0.37578, 0.27561, 2.17803, 0.18518, 0.02567, - + 0.00000, 0.10545, 0.18523, - + 0.38250, 0.27525, 2.19021, 0.18747, 0.03337, - + -0.00004, 0.11042, 0.18742, - + 0.38800, 0.27452, 2.18454, 0.18905, 0.03966, - + 0.00144, 0.11436, 0.18900, - + 0.39246, 0.27367, 2.16673, 0.19004, 0.04487, - + 0.00708, 0.11746, 0.19000, - + 0.39623, 0.27261, 2.14048, 0.19057, 0.04933, - + 0.01303, 0.11996, 0.19056 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ - + 0.39935, 0.27143, 2.10900, 0.19077, 0.05311, - + 0.01800, 0.12191, 0.19066, - + 0.40194, 0.27015, 2.07380, 0.19067, 0.05630, - + 0.02231, 0.12346, 0.19050, - + 0.40416, 0.26877, 2.03669, 0.19031, 0.05903, - + 0.02610, 0.12467, 0.19022, - + 0.40606, 0.26733, 1.99883, 0.18977, 0.06140, - + 0.02944, 0.12558, 0.18978, - + 0.40757, 0.26593, 1.96039, 0.18914, 0.06343, - + 0.03230, 0.12628, 0.18907, - + 0.40879, 0.26450, 1.92139, 0.18833, 0.06513, - + 0.03484, 0.12673, 0.18830, - + 0.40980, 0.26306, 1.88338, 0.18746, 0.06662, - + 0.03711, 0.12705, 0.18746 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ - + 0.41063, 0.26161, 1.84621, 0.18653, 0.06792, - + 0.03912, 0.12725, 0.18654, - + 0.41121, 0.26015, 1.80925, 0.18550, 0.06901, - + 0.04085, 0.12728, 0.18547, - + 0.41170, 0.25874, 1.77396, 0.18447, 0.07000, - + 0.04244, 0.12726, 0.18441, - + 0.41195, 0.25734, 1.73879, 0.18336, 0.07079, - + 0.04384, 0.12710, 0.18328, - + 0.41216, 0.25597, 1.70527, 0.18228, 0.07151, - + 0.04513, 0.12691, 0.18218 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + 0.42071, 0.30069, 1.79822, 0.15205, 0.00343, - + 0.00006, 0.07779, 0.15205, - + 0.42871, 0.29807, 1.81193, 0.15379, 0.01240, - + 0.00005, 0.08313, 0.15382, - + 0.43466, 0.29519, 1.79822, 0.15460, 0.01937, - + 0.00006, 0.08703, 0.15457, - + 0.43881, 0.29222, 1.76751, 0.15469, 0.02475, - + 0.00004, 0.08979, 0.15472, - + 0.44194, 0.28918, 1.72906, 0.15436, 0.02912, - + 0.00108, 0.09177, 0.15438, - + 0.44420, 0.28618, 1.68630, 0.15366, 0.03262, - + 0.00510, 0.09320, 0.15375, - + 0.44577, 0.28321, 1.64136, 0.15272, 0.03556, - + 0.00923, 0.09421, 0.15279 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ - + 0.44677, 0.28028, 1.59578, 0.15163, 0.03799, - + 0.01259, 0.09486, 0.15169, - + 0.44736, 0.27739, 1.55051, 0.15043, 0.03997, - + 0.01548, 0.09524, 0.15049, - + 0.44761, 0.27455, 1.50624, 0.14912, 0.04161, - + 0.01797, 0.09542, 0.14916, - + 0.44759, 0.27180, 1.46346, 0.14774, 0.04299, - + 0.02013, 0.09543, 0.14776, - + 0.44729, 0.26910, 1.42223, 0.14635, 0.04414, - + 0.02199, 0.09529, 0.14642, - + 0.44679, 0.26646, 1.38219, 0.14489, 0.04510, - + 0.02358, 0.09504, 0.14494, - + 0.44614, 0.26392, 1.34416, 0.14343, 0.04591, - + 0.02497, 0.09473, 0.14346 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ - + 0.44533, 0.26148, 1.30786, 0.14196, 0.04659, - + 0.02618, 0.09434, 0.14198, - + 0.44434, 0.25908, 1.27284, 0.14052, 0.04710, - + 0.02724, 0.09386, 0.14050, - + 0.44333, 0.25678, 1.23987, 0.13913, 0.04754, - + 0.02820, 0.09336, 0.13908, - + 0.44225, 0.25444, 1.20796, 0.13763, 0.04788, - + 0.02900, 0.09280, 0.13764, - + 0.44116, 0.25219, 1.17785, 0.13619, 0.04816, - + 0.02972, 0.09224, 0.13625 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + 0.47517, 0.31408, 1.58334, 0.13110, 0.00271, - + 0.00007, 0.06694, 0.13115, - + 0.47940, 0.30840, 1.55044, 0.13095, 0.00959, - + 0.00007, 0.07028, 0.13090, - + 0.48192, 0.30286, 1.50408, 0.13010, 0.01480, - + 0.00006, 0.07253, 0.13009, - + 0.48294, 0.29756, 1.45096, 0.12889, 0.01881, - + 0.00006, 0.07385, 0.12884, - + 0.48314, 0.29253, 1.39691, 0.12737, 0.02190, - + 0.00082, 0.07470, 0.12744, - + 0.48262, 0.28783, 1.34365, 0.12583, 0.02434, - + 0.00375, 0.07510, 0.12585, - + 0.48164, 0.28328, 1.29186, 0.12413, 0.02636, - + 0.00671, 0.07523, 0.12413 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ - + 0.48024, 0.27894, 1.24220, 0.12240, 0.02793, - + 0.00908, 0.07518, 0.12232, - + 0.47858, 0.27479, 1.19502, 0.12060, 0.02921, - + 0.01106, 0.07493, 0.12060, - + 0.47669, 0.27080, 1.15044, 0.11882, 0.03024, - + 0.01277, 0.07455, 0.11887, - + 0.47462, 0.26698, 1.10852, 0.11709, 0.03108, - + 0.01427, 0.07410, 0.11711, - + 0.47246, 0.26327, 1.06908, 0.11535, 0.03180, - + 0.01552, 0.07359, 0.11538, - + 0.47014, 0.25974, 1.03167, 0.11364, 0.03232, - + 0.01651, 0.07302, 0.11363, - + 0.46779, 0.25635, 0.99670, 0.11199, 0.03273, - + 0.01740, 0.07242, 0.11196 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ - + 0.46542, 0.25309, 0.96384, 0.11036, 0.03305, - + 0.01822, 0.07178, 0.11039, - + 0.46299, 0.24991, 0.93268, 0.10873, 0.03329, - + 0.01887, 0.07109, 0.10880, - + 0.46059, 0.24689, 0.90360, 0.10718, 0.03350, - + 0.01945, 0.07041, 0.10727, - + 0.45793, 0.24403, 0.87593, 0.10571, 0.03359, - + 0.01993, 0.06970, 0.10575, - + 0.45538, 0.24128, 0.85001, 0.10429, 0.03367, - + 0.02036, 0.06901, 0.10428 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + 0.52950, 0.31854, 1.34867, 0.10871, 0.00208, - + 0.00009, 0.05543, 0.10865, - + 0.52837, 0.30934, 1.28265, 0.10692, 0.00713, - + 0.00009, 0.05710, 0.10695, - + 0.52591, 0.30108, 1.21518, 0.10494, 0.01088, - + 0.00010, 0.05793, 0.10492, - + 0.52253, 0.29348, 1.14948, 0.10275, 0.01365, - + 0.00010, 0.05824, 0.10279, - + 0.51867, 0.28657, 1.08813, 0.10064, 0.01577, - + 0.00058, 0.05818, 0.10052, - + 0.51467, 0.27997, 1.03129, 0.09837, 0.01739, - + 0.00263, 0.05795, 0.09843, - + 0.51034, 0.27392, 0.97867, 0.09626, 0.01862, - + 0.00464, 0.05752, 0.09636 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ - + 0.50593, 0.26819, 0.93011, 0.09419, 0.01960, - + 0.00627, 0.05695, 0.09433, - + 0.50138, 0.26284, 0.88531, 0.09220, 0.02037, - + 0.00759, 0.05633, 0.09229, - + 0.49682, 0.25780, 0.84407, 0.09029, 0.02096, - + 0.00869, 0.05568, 0.09030, - + 0.49234, 0.25302, 0.80612, 0.08841, 0.02142, - + 0.00965, 0.05498, 0.08843, - + 0.48793, 0.24846, 0.77108, 0.08654, 0.02177, - + 0.01044, 0.05424, 0.08670, - + 0.48341, 0.24415, 0.73850, 0.08483, 0.02203, - + 0.01111, 0.05350, 0.08488, - + 0.47900, 0.24008, 0.70846, 0.08319, 0.02223, - + 0.01166, 0.05276, 0.08318 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ - + 0.47468, 0.23620, 0.68065, 0.08158, 0.02235, - + 0.01210, 0.05200, 0.08162, - + 0.47040, 0.23245, 0.65463, 0.08004, 0.02241, - + 0.01248, 0.05131, 0.08000, - + 0.46627, 0.22889, 0.63058, 0.07859, 0.02244, - + 0.01282, 0.05066, 0.07846, - + 0.46208, 0.22546, 0.60800, 0.07720, 0.02243, - + 0.01308, 0.04995, 0.07700, - + 0.45806, 0.22219, 0.58700, 0.07585, 0.02241, - + 0.01331, 0.04925, 0.07565 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + 0.56945, 0.31316, 1.14602, 0.08933, 0.00163, - + 0.00013, 0.04557, 0.08933, - + 0.56238, 0.30136, 1.06317, 0.08666, 0.00534, - + 0.00014, 0.04615, 0.08689, - + 0.55469, 0.29100, 0.98714, 0.08407, 0.00805, - + 0.00019, 0.04615, 0.08434, - + 0.54676, 0.28176, 0.91811, 0.08163, 0.00998, - + 0.00012, 0.04587, 0.08168, - + 0.53902, 0.27326, 0.85648, 0.07919, 0.01145, - + 0.00049, 0.04538, 0.07925, - + 0.53141, 0.26552, 0.80148, 0.07684, 0.01257, - + 0.00194, 0.04478, 0.07691, - + 0.52383, 0.25847, 0.75199, 0.07470, 0.01335, - + 0.00333, 0.04406, 0.07471 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ - + 0.51645, 0.25186, 0.70743, 0.07256, 0.01397, - + 0.00445, 0.04329, 0.07264, - + 0.50929, 0.24570, 0.66719, 0.07053, 0.01444, - + 0.00535, 0.04256, 0.07060, - + 0.50231, 0.23998, 0.63080, 0.06865, 0.01478, - + 0.00607, 0.04179, 0.06870, - + 0.49551, 0.23463, 0.59783, 0.06690, 0.01501, - + 0.00666, 0.04102, 0.06692, - + 0.48895, 0.22958, 0.56777, 0.06526, 0.01519, - + 0.00719, 0.04032, 0.06510, - + 0.48257, 0.22473, 0.54020, 0.06362, 0.01528, - + 0.00758, 0.03955, 0.06353, - + 0.47647, 0.22015, 0.51506, 0.06207, 0.01534, - + 0.00793, 0.03881, 0.06204 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ - + 0.47062, 0.21582, 0.49201, 0.06060, 0.01537, - + 0.00828, 0.03808, 0.06060, - + 0.46477, 0.21177, 0.47070, 0.05919, 0.01536, - + 0.00850, 0.03736, 0.05926, - + 0.45915, 0.20796, 0.45114, 0.05786, 0.01533, - + 0.00868, 0.03668, 0.05798, - + 0.45355, 0.20433, 0.43296, 0.05668, 0.01530, - + 0.00883, 0.03604, 0.05660, - + 0.44825, 0.20086, 0.41617, 0.05554, 0.01524, - + 0.00896, 0.03543, 0.05535 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + 0.59554, 0.30156, 0.97029, 0.07265, 0.00121, - + 0.00001, 0.03693, 0.07262, - + 0.58250, 0.28772, 0.88081, 0.06966, 0.00404, - + 0.00005, 0.03691, 0.06975, - + 0.56974, 0.27593, 0.80328, 0.06703, 0.00602, - + 0.00007, 0.03650, 0.06687, - + 0.55766, 0.26530, 0.73595, 0.06429, 0.00745, - + 0.00005, 0.03595, 0.06432, - + 0.54624, 0.25579, 0.67774, 0.06183, 0.00845, - + 0.00026, 0.03521, 0.06195, - + 0.53531, 0.24725, 0.62694, 0.05960, 0.00917, - + 0.00128, 0.03447, 0.05969, - + 0.52499, 0.23944, 0.58226, 0.05742, 0.00973, - + 0.00237, 0.03380, 0.05752 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ - + 0.51499, 0.23228, 0.54281, 0.05545, 0.01009, - + 0.00318, 0.03303, 0.05558, - + 0.50536, 0.22571, 0.50770, 0.05369, 0.01038, - + 0.00385, 0.03223, 0.05372, - + 0.49625, 0.21958, 0.47636, 0.05200, 0.01058, - + 0.00435, 0.03144, 0.05200, - + 0.48763, 0.21382, 0.44831, 0.05037, 0.01071, - + 0.00472, 0.03069, 0.05044, - + 0.47939, 0.20842, 0.42303, 0.04881, 0.01084, - + 0.00507, 0.03001, 0.04892, - + 0.47151, 0.20326, 0.40022, 0.04736, 0.01082, - + 0.00537, 0.02929, 0.04760, - + 0.46390, 0.19852, 0.37952, 0.04606, 0.01081, - + 0.00561, 0.02862, 0.04627 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ - + 0.45649, 0.19419, 0.36061, 0.04488, 0.01084, - + 0.00582, 0.02798, 0.04491, - + 0.44941, 0.18999, 0.34345, 0.04371, 0.01085, - + 0.00594, 0.02734, 0.04366, - + 0.44270, 0.18602, 0.32779, 0.04260, 0.01084, - + 0.00603, 0.02672, 0.04251, - + 0.43626, 0.18213, 0.31326, 0.04144, 0.01070, - + 0.00607, 0.02616, 0.04157, - + 0.43009, 0.17850, 0.29989, 0.04038, 0.01059, - + 0.00612, 0.02563, 0.04062 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + 0.60920, 0.28546, 0.81835, 0.05833, 0.00093, - + 0.00002, 0.02962, 0.05824, - + 0.59047, 0.27037, 0.72857, 0.05539, 0.00304, - + 0.00000, 0.02920, 0.05531, - + 0.57325, 0.25744, 0.65389, 0.05255, 0.00446, - + -0.00009, 0.02856, 0.05273, - + 0.55714, 0.24614, 0.59091, 0.05022, 0.00541, - + 0.00013, 0.02794, 0.05010, - + 0.54233, 0.23616, 0.53783, 0.04791, 0.00613, - + 0.00032, 0.02711, 0.04796, - + 0.52858, 0.22721, 0.49241, 0.04588, 0.00667, - + 0.00103, 0.02636, 0.04583, - + 0.51565, 0.21909, 0.45331, 0.04408, 0.00698, - + 0.00177, 0.02554, 0.04397 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ - + 0.50354, 0.21156, 0.41904, 0.04226, 0.00723, - + 0.00224, 0.02483, 0.04230, - + 0.49217, 0.20464, 0.38898, 0.04064, 0.00743, - + 0.00264, 0.02412, 0.04066, - + 0.48136, 0.19835, 0.36246, 0.03917, 0.00758, - + 0.00299, 0.02342, 0.03912, - + 0.47113, 0.19253, 0.33901, 0.03776, 0.00768, - + 0.00329, 0.02275, 0.03776, - + 0.46155, 0.18701, 0.31826, 0.03641, 0.00768, - + 0.00356, 0.02209, 0.03657, - + 0.45228, 0.18197, 0.29932, 0.03527, 0.00763, - + 0.00372, 0.02151, 0.03533, - + 0.44350, 0.17725, 0.28233, 0.03420, 0.00762, - + 0.00383, 0.02094, 0.03417 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ - + 0.43515, 0.17282, 0.26705, 0.03317, 0.00763, - + 0.00390, 0.02039, 0.03308, - + 0.42715, 0.16864, 0.25327, 0.03215, 0.00756, - + 0.00400, 0.01985, 0.03215, - + 0.41958, 0.16472, 0.24075, 0.03120, 0.00747, - + 0.00410, 0.01936, 0.03129, - + 0.41225, 0.16098, 0.22923, 0.03038, 0.00739, - + 0.00416, 0.01887, 0.03040, - + 0.40532, 0.15745, 0.21872, 0.02957, 0.00732, - + 0.00422, 0.01842, 0.02957 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + 0.61167, 0.26658, 0.68716, 0.04622, 0.00066, - + 0.00008, 0.02335, 0.04610, - + 0.58779, 0.25079, 0.60099, 0.04349, 0.00220, - + 0.00007, 0.02286, 0.04325, - + 0.56655, 0.23720, 0.53134, 0.04095, 0.00333, - + 0.00006, 0.02218, 0.04079, - + 0.54719, 0.22554, 0.47441, 0.03869, 0.00406, - + 0.00010, 0.02137, 0.03864, - + 0.52968, 0.21515, 0.42700, 0.03674, 0.00448, - + 0.00024, 0.02067, 0.03671, - + 0.51350, 0.20607, 0.38731, 0.03492, 0.00485, - + 0.00076, 0.01993, 0.03495, - + 0.49843, 0.19801, 0.35331, 0.03334, 0.00515, - + 0.00126, 0.01917, 0.03325 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ - + 0.48448, 0.19053, 0.32420, 0.03189, 0.00528, - + 0.00162, 0.01854, 0.03177, - + 0.47156, 0.18363, 0.29893, 0.03052, 0.00533, - + 0.00191, 0.01794, 0.03044, - + 0.45949, 0.17731, 0.27680, 0.02925, 0.00536, - + 0.00217, 0.01737, 0.02923, - + 0.44815, 0.17151, 0.25732, 0.02808, 0.00540, - + 0.00238, 0.01681, 0.02809, - + 0.43744, 0.16620, 0.24006, 0.02709, 0.00545, - + 0.00248, 0.01628, 0.02692, - + 0.42738, 0.16112, 0.22481, 0.02604, 0.00541, - + 0.00257, 0.01576, 0.02604, - + 0.41785, 0.15646, 0.21120, 0.02509, 0.00536, - + 0.00267, 0.01527, 0.02519 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ - + 0.40877, 0.15219, 0.19898, 0.02426, 0.00533, - + 0.00278, 0.01481, 0.02432, - + 0.40007, 0.14817, 0.18792, 0.02353, 0.00528, - + 0.00281, 0.01442, 0.02344, - + 0.39188, 0.14442, 0.17792, 0.02284, 0.00523, - + 0.00283, 0.01404, 0.02262, - + 0.38407, 0.14082, 0.16877, 0.02215, 0.00519, - + 0.00285, 0.01360, 0.02195, - + 0.37669, 0.13742, 0.16047, 0.02149, 0.00513, - + 0.00286, 0.01321, 0.02132 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + 0.60437, 0.24598, 0.57404, 0.03602, 0.00047, - + 0.00006, 0.01827, 0.03595, - + 0.57622, 0.22978, 0.49400, 0.03352, 0.00168, - + 0.00021, 0.01762, 0.03348, - + 0.55148, 0.21607, 0.43060, 0.03138, 0.00248, - + 0.00010, 0.01701, 0.03121, - + 0.52933, 0.20437, 0.37984, 0.02946, 0.00305, - + 0.00012, 0.01624, 0.02933, - + 0.50961, 0.19397, 0.33841, 0.02772, 0.00334, - + 0.00022, 0.01559, 0.02773, - + 0.49165, 0.18491, 0.30410, 0.02614, 0.00365, - + 0.00055, 0.01500, 0.02622, - + 0.47520, 0.17678, 0.27527, 0.02485, 0.00377, - + 0.00094, 0.01439, 0.02488 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ - + 0.45973, 0.16965, 0.25076, 0.02376, 0.00384, - + 0.00121, 0.01382, 0.02359, - + 0.44568, 0.16293, 0.22973, 0.02259, 0.00391, - + 0.00137, 0.01326, 0.02257, - + 0.43260, 0.15684, 0.21139, 0.02159, 0.00394, - + 0.00151, 0.01277, 0.02154, - + 0.42028, 0.15137, 0.19537, 0.02079, 0.00393, - + 0.00165, 0.01234, 0.02051, - + 0.40880, 0.14629, 0.18153, 0.02000, 0.00391, - + 0.00176, 0.01186, 0.01965, - + 0.39823, 0.14145, 0.16924, 0.01909, 0.00390, - + 0.00184, 0.01148, 0.01888, - + 0.38824, 0.13701, 0.15830, 0.01830, 0.00386, - + 0.00189, 0.01111, 0.01818 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ - + 0.37870, 0.13294, 0.14850, 0.01765, 0.00378, - + 0.00194, 0.01075, 0.01755, - + 0.36977, 0.12903, 0.13980, 0.01700, 0.00371, - + 0.00198, 0.01037, 0.01698, - + 0.36140, 0.12539, 0.13197, 0.01639, 0.00364, - + 0.00200, 0.01002, 0.01643, - + 0.35338, 0.12205, 0.12477, 0.01583, 0.00366, - + 0.00203, 0.00973, 0.01578, - + 0.34583, 0.11889, 0.11828, 0.01530, 0.00364, - + 0.00203, 0.00945, 0.01522 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + 0.58899, 0.22440, 0.47688, 0.02749, 0.00040, - + 0.00013, 0.01407, 0.02766, - + 0.55698, 0.20846, 0.40379, 0.02554, 0.00133, - + 0.00008, 0.01345, 0.02533, - + 0.52950, 0.19492, 0.34743, 0.02371, 0.00189, - + 0.00008, 0.01281, 0.02354, - + 0.50537, 0.18323, 0.30312, 0.02203, 0.00230, - + 0.00012, 0.01224, 0.02202, - + 0.48371, 0.17333, 0.26746, 0.02073, 0.00247, - + 0.00016, 0.01163, 0.02066, - + 0.46439, 0.16456, 0.23836, 0.01950, 0.00259, - + 0.00039, 0.01109, 0.01950, - + 0.44692, 0.15664, 0.21392, 0.01832, 0.00271, - + 0.00063, 0.01060, 0.01845 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ - + 0.43082, 0.14964, 0.19344, 0.01743, 0.00280, - + 0.00091, 0.01009, 0.01741, - + 0.41597, 0.14328, 0.17634, 0.01662, 0.00277, - + 0.00103, 0.00963, 0.01655, - + 0.40227, 0.13753, 0.16150, 0.01580, 0.00276, - + 0.00113, 0.00925, 0.01578, - + 0.38967, 0.13230, 0.14849, 0.01498, 0.00279, - + 0.00124, 0.00890, 0.01504, - + 0.37807, 0.12747, 0.13729, 0.01420, 0.00281, - + 0.00129, 0.00851, 0.01439, - + 0.36708, 0.12298, 0.12747, 0.01363, 0.00274, - + 0.00129, 0.00824, 0.01369, - + 0.35678, 0.11882, 0.11877, 0.01310, 0.00267, - + 0.00130, 0.00797, 0.01310 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ - + 0.34708, 0.11496, 0.11101, 0.01258, 0.00263, - + 0.00133, 0.00767, 0.01262, - + 0.33799, 0.11134, 0.10414, 0.01204, 0.00260, - + 0.00135, 0.00741, 0.01220, - + 0.32949, 0.10797, 0.09798, 0.01154, 0.00258, - + 0.00137, 0.00718, 0.01180, - + 0.32144, 0.10477, 0.09236, 0.01111, 0.00255, - + 0.00139, 0.00695, 0.01142, - + 0.31382, 0.10179, 0.08729, 0.01072, 0.00250, - + 0.00140, 0.00674, 0.01105 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + 0.56632, 0.20293, 0.39385, 0.02075, 0.00035, - + 0.00006, 0.01057, 0.02092, - + 0.53164, 0.18722, 0.32842, 0.01911, 0.00109, - + 0.00012, 0.01008, 0.01893, - + 0.50194, 0.17419, 0.27907, 0.01775, 0.00137, - + 0.00012, 0.00958, 0.01750, - + 0.47640, 0.16288, 0.24084, 0.01626, 0.00166, - + 0.00007, 0.00910, 0.01632, - + 0.45368, 0.15336, 0.21043, 0.01525, 0.00180, - + 0.00014, 0.00861, 0.01517, - + 0.43359, 0.14494, 0.18599, 0.01426, 0.00194, - + 0.00038, 0.00818, 0.01419, - + 0.41541, 0.13749, 0.16600, 0.01332, 0.00202, - + 0.00058, 0.00774, 0.01342 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ - + 0.39878, 0.13085, 0.14919, 0.01258, 0.00208, - + 0.00066, 0.00734, 0.01267, - + 0.38375, 0.12480, 0.13494, 0.01188, 0.00208, - + 0.00073, 0.00702, 0.01197, - + 0.36983, 0.11940, 0.12287, 0.01128, 0.00203, - + 0.00081, 0.00671, 0.01133, - + 0.35690, 0.11454, 0.11257, 0.01079, 0.00197, - + 0.00090, 0.00641, 0.01075, - + 0.34512, 0.11004, 0.10363, 0.01028, 0.00196, - + 0.00098, 0.00617, 0.01020, - + 0.33422, 0.10587, 0.09572, 0.00965, 0.00200, - + 0.00096, 0.00595, 0.00976, - + 0.32407, 0.10201, 0.08882, 0.00911, 0.00201, - + 0.00095, 0.00572, 0.00936 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ - + 0.31455, 0.09842, 0.08278, 0.00867, 0.00196, - + 0.00098, 0.00549, 0.00900, - + 0.30538, 0.09510, 0.07738, 0.00837, 0.00191, - + 0.00100, 0.00526, 0.00871, - + 0.29682, 0.09202, 0.07256, 0.00810, 0.00185, - + 0.00101, 0.00506, 0.00844, - + 0.28886, 0.08916, 0.06829, 0.00780, 0.00180, - + 0.00102, 0.00489, 0.00807, - + 0.28141, 0.08648, 0.06442, 0.00753, 0.00177, - + 0.00102, 0.00474, 0.00773 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + 0.53789, 0.18214, 0.32346, 0.01569, 0.00017, - + -0.00010, 0.00778, 0.01548, - + 0.50142, 0.16693, 0.26569, 0.01427, 0.00069, - + -0.00009, 0.00742, 0.01394, - + 0.47064, 0.15429, 0.22306, 0.01300, 0.00097, - + -0.00017, 0.00692, 0.01296, - + 0.44403, 0.14371, 0.19049, 0.01200, 0.00118, - + -0.00014, 0.00653, 0.01189, - + 0.42095, 0.13454, 0.16520, 0.01108, 0.00124, - + -0.00002, 0.00614, 0.01115, - + 0.40023, 0.12676, 0.14495, 0.01042, 0.00132, - + 0.00013, 0.00581, 0.01034, - + 0.38194, 0.11985, 0.12843, 0.00963, 0.00139, - + 0.00028, 0.00557, 0.00963 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ - + 0.36547, 0.11362, 0.11473, 0.00887, 0.00139, - + 0.00037, 0.00523, 0.00917, - + 0.35019, 0.10811, 0.10325, 0.00855, 0.00142, - + 0.00050, 0.00497, 0.00858, - + 0.33628, 0.10309, 0.09356, 0.00817, 0.00142, - + 0.00056, 0.00478, 0.00810, - + 0.32373, 0.09847, 0.08530, 0.00761, 0.00138, - + 0.00056, 0.00458, 0.00774, - + 0.31230, 0.09433, 0.07814, 0.00713, 0.00137, - + 0.00057, 0.00437, 0.00728, - + 0.30132, 0.09049, 0.07194, 0.00684, 0.00137, - + 0.00063, 0.00417, 0.00698, - + 0.29120, 0.08701, 0.06656, 0.00658, 0.00134, - + 0.00067, 0.00399, 0.00666 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ - + 0.28188, 0.08383, 0.06186, 0.00633, 0.00131, - + 0.00070, 0.00380, 0.00628, - + 0.27316, 0.08082, 0.05765, 0.00603, 0.00128, - + 0.00067, 0.00365, 0.00600, - + 0.26503, 0.07803, 0.05389, 0.00575, 0.00124, - + 0.00065, 0.00350, 0.00577, - + 0.25727, 0.07548, 0.05056, 0.00552, 0.00121, - + 0.00063, 0.00336, 0.00557, - + 0.25004, 0.07307, 0.04758, 0.00530, 0.00119, - + 0.00064, 0.00324, 0.00539 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + 0.50513, 0.16144, 0.26302, 0.01121, 0.00030, - + 0.00008, 0.00589, 0.01120, - + 0.46769, 0.14689, 0.21310, 0.01006, 0.00061, - + 0.00013, 0.00538, 0.01031, - + 0.43619, 0.13509, 0.17698, 0.00926, 0.00081, - + 0.00008, 0.00507, 0.00930, - + 0.40930, 0.12530, 0.14977, 0.00843, 0.00097, - + 0.00008, 0.00480, 0.00845, - + 0.38606, 0.11683, 0.12868, 0.00774, 0.00103, - + 0.00014, 0.00448, 0.00787, - + 0.36537, 0.10962, 0.11215, 0.00723, 0.00106, - + 0.00022, 0.00418, 0.00743, - + 0.34724, 0.10320, 0.09863, 0.00665, 0.00110, - + 0.00029, 0.00399, 0.00692 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ - + 0.33099, 0.09753, 0.08756, 0.00610, 0.00105, - + 0.00037, 0.00375, 0.00656, - + 0.31623, 0.09248, 0.07838, 0.00577, 0.00103, - + 0.00042, 0.00357, 0.00612, - + 0.30269, 0.08797, 0.07072, 0.00553, 0.00102, - + 0.00043, 0.00338, 0.00566, - + 0.29028, 0.08388, 0.06423, 0.00526, 0.00100, - + 0.00042, 0.00317, 0.00531, - + 0.27898, 0.08006, 0.05858, 0.00492, 0.00099, - + 0.00042, 0.00303, 0.00512, - + 0.26863, 0.07663, 0.05375, 0.00472, 0.00099, - + 0.00045, 0.00289, 0.00476, - + 0.25898, 0.07352, 0.04955, 0.00454, 0.00097, - + 0.00047, 0.00276, 0.00448 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ - + 0.24988, 0.07068, 0.04587, 0.00439, 0.00092, - + 0.00047, 0.00265, 0.00430, - + 0.24148, 0.06793, 0.04264, 0.00423, 0.00090, - + 0.00046, 0.00252, 0.00415, - + 0.23369, 0.06539, 0.03977, 0.00407, 0.00089, - + 0.00045, 0.00241, 0.00401, - + 0.22635, 0.06315, 0.03721, 0.00391, 0.00087, - + 0.00044, 0.00232, 0.00378, - + 0.21954, 0.06103, 0.03491, 0.00374, 0.00084, - + 0.00044, 0.00223, 0.00359 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + 0.46916, 0.14230, 0.21254, 0.00824, 0.00008, - + -0.00004, 0.00410, 0.00810, - + 0.43129, 0.12874, 0.17031, 0.00742, 0.00041, - + 0.00000, 0.00383, 0.00719, - + 0.40002, 0.11768, 0.13974, 0.00655, 0.00058, - + 0.00001, 0.00360, 0.00660, - + 0.37363, 0.10856, 0.11714, 0.00590, 0.00066, - + 0.00000, 0.00336, 0.00599, - + 0.35070, 0.10077, 0.09976, 0.00545, 0.00070, - + 0.00004, 0.00316, 0.00556, - + 0.33052, 0.09410, 0.08621, 0.00500, 0.00074, - + 0.00016, 0.00293, 0.00527, - + 0.31264, 0.08830, 0.07547, 0.00461, 0.00068, - + 0.00017, 0.00270, 0.00498 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ - + 0.29664, 0.08324, 0.06664, 0.00448, 0.00069, - + 0.00024, 0.00258, 0.00449, - + 0.28236, 0.07866, 0.05933, 0.00422, 0.00071, - + 0.00023, 0.00242, 0.00410, - + 0.26944, 0.07454, 0.05323, 0.00395, 0.00071, - + 0.00023, 0.00227, 0.00386, - + 0.25768, 0.07085, 0.04809, 0.00374, 0.00069, - + 0.00027, 0.00213, 0.00367, - + 0.24699, 0.06753, 0.04373, 0.00353, 0.00066, - + 0.00029, 0.00202, 0.00347, - + 0.23718, 0.06444, 0.04002, 0.00329, 0.00064, - + 0.00028, 0.00194, 0.00331, - + 0.22810, 0.06164, 0.03680, 0.00308, 0.00062, - + 0.00028, 0.00185, 0.00318 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ - + 0.21962, 0.05910, 0.03399, 0.00291, 0.00058, - + 0.00027, 0.00173, 0.00306, - + 0.21169, 0.05670, 0.03150, 0.00286, 0.00059, - + 0.00027, 0.00166, 0.00284, - + 0.20437, 0.05449, 0.02929, 0.00281, 0.00060, - + 0.00028, 0.00160, 0.00263, - + 0.19761, 0.05247, 0.02736, 0.00267, 0.00059, - + 0.00031, 0.00155, 0.00254, - + 0.19130, 0.05059, 0.02563, 0.00254, 0.00057, - + 0.00034, 0.00150, 0.00245 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + 0.43105, 0.12387, 0.17036, 0.00563, 0.00013, - + 0.00009, 0.00292, 0.00577, - + 0.39396, 0.11132, 0.13452, 0.00489, 0.00030, - + 0.00009, 0.00275, 0.00514, - + 0.36299, 0.10130, 0.10933, 0.00450, 0.00036, - + 0.00004, 0.00251, 0.00459, - + 0.33671, 0.09302, 0.09073, 0.00403, 0.00044, - + -0.00003, 0.00232, 0.00431, - + 0.31451, 0.08606, 0.07678, 0.00379, 0.00052, - + 0.00003, 0.00217, 0.00383, - + 0.29521, 0.08007, 0.06591, 0.00339, 0.00047, - + 0.00011, 0.00198, 0.00368, - + 0.27825, 0.07477, 0.05726, 0.00327, 0.00049, - + 0.00014, 0.00185, 0.00336 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ - + 0.26305, 0.07021, 0.05026, 0.00304, 0.00049, - + 0.00012, 0.00174, 0.00311, - + 0.24958, 0.06613, 0.04456, 0.00283, 0.00048, - + 0.00018, 0.00164, 0.00289, - + 0.23744, 0.06247, 0.03982, 0.00267, 0.00047, - + 0.00020, 0.00156, 0.00270, - + 0.22638, 0.05919, 0.03583, 0.00252, 0.00046, - + 0.00020, 0.00150, 0.00252, - + 0.21629, 0.05625, 0.03248, 0.00240, 0.00045, - + 0.00024, 0.00138, 0.00231, - + 0.20702, 0.05356, 0.02960, 0.00231, 0.00045, - + 0.00023, 0.00133, 0.00221, - + 0.19853, 0.05111, 0.02712, 0.00220, 0.00043, - + 0.00021, 0.00126, 0.00210 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ - + 0.19070, 0.04886, 0.02495, 0.00206, 0.00039, - + 0.00017, 0.00116, 0.00197, - + 0.18348, 0.04681, 0.02307, 0.00197, 0.00038, - + 0.00019, 0.00111, 0.00186, - + 0.17682, 0.04492, 0.02142, 0.00189, 0.00037, - + 0.00021, 0.00107, 0.00175, - + 0.17056, 0.04314, 0.01996, 0.00181, 0.00038, - + 0.00021, 0.00103, 0.00169, - + 0.16475, 0.04150, 0.01867, 0.00173, 0.00038, - + 0.00020, 0.00099, 0.00162 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + 0.39205, 0.10682, 0.13532, 0.00382, 0.00015, - + 0.00005, 0.00205, 0.00392, - + 0.35541, 0.09566, 0.10567, 0.00349, 0.00024, - + 0.00001, 0.00190, 0.00349, - + 0.32547, 0.08654, 0.08486, 0.00322, 0.00029, - + 0.00000, 0.00166, 0.00320, - + 0.30077, 0.07903, 0.06991, 0.00275, 0.00024, - + 0.00002, 0.00154, 0.00306, - + 0.27981, 0.07276, 0.05867, 0.00255, 0.00030, - + 0.00002, 0.00143, 0.00262, - + 0.26147, 0.06743, 0.05003, 0.00237, 0.00030, - + 0.00001, 0.00130, 0.00242, - + 0.24548, 0.06279, 0.04319, 0.00225, 0.00029, - + 0.00003, 0.00120, 0.00222 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ - + 0.23116, 0.05879, 0.03773, 0.00215, 0.00030, - + 0.00007, 0.00114, 0.00204, - + 0.21854, 0.05519, 0.03328, 0.00196, 0.00029, - + 0.00009, 0.00106, 0.00195, - + 0.20722, 0.05199, 0.02960, 0.00185, 0.00027, - + 0.00008, 0.00100, 0.00177, - + 0.19698, 0.04915, 0.02654, 0.00180, 0.00027, - + 0.00008, 0.00095, 0.00158, - + 0.18785, 0.04655, 0.02397, 0.00163, 0.00030, - + 0.00012, 0.00090, 0.00154, - + 0.17927, 0.04420, 0.02179, 0.00156, 0.00030, - + 0.00011, 0.00083, 0.00145, - + 0.17143, 0.04209, 0.01991, 0.00149, 0.00028, - + 0.00010, 0.00077, 0.00136 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ - + 0.16425, 0.04017, 0.01827, 0.00143, 0.00025, - + 0.00010, 0.00071, 0.00127, - + 0.15763, 0.03841, 0.01685, 0.00139, 0.00024, - + 0.00010, 0.00068, 0.00118, - + 0.15155, 0.03680, 0.01559, 0.00136, 0.00024, - + 0.00010, 0.00066, 0.00111, - + 0.14592, 0.03526, 0.01450, 0.00126, 0.00023, - + 0.00009, 0.00064, 0.00106, - + 0.14070, 0.03385, 0.01353, 0.00118, 0.00023, - + 0.00009, 0.00061, 0.00103 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + 0.35234, 0.09146, 0.10650, 0.00259, 0.00005, - + 0.00005, 0.00137, 0.00270, - + 0.31724, 0.08113, 0.08191, 0.00228, 0.00014, - + 0.00000, 0.00125, 0.00249, - + 0.28884, 0.07296, 0.06503, 0.00213, 0.00020, - + 0.00006, 0.00116, 0.00221, - + 0.26548, 0.06635, 0.05307, 0.00177, 0.00024, - + 0.00000, 0.00106, 0.00196, - + 0.24556, 0.06079, 0.04416, 0.00174, 0.00023, - + 0.00004, 0.00097, 0.00176, - + 0.22847, 0.05605, 0.03734, 0.00165, 0.00026, - + 0.00005, 0.00093, 0.00157, - + 0.21361, 0.05201, 0.03206, 0.00152, 0.00026, - + 0.00006, 0.00086, 0.00140 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ - + 0.20078, 0.04848, 0.02787, 0.00130, 0.00024, - + 0.00006, 0.00077, 0.00127, - + 0.18898, 0.04536, 0.02447, 0.00128, 0.00026, - + 0.00006, 0.00074, 0.00112, - + 0.17847, 0.04259, 0.02166, 0.00123, 0.00024, - + 0.00006, 0.00070, 0.00104, - + 0.16923, 0.04011, 0.01932, 0.00110, 0.00021, - + 0.00007, 0.00066, 0.00100, - + 0.16080, 0.03789, 0.01738, 0.00106, 0.00021, - + 0.00009, 0.00064, 0.00094, - + 0.15317, 0.03588, 0.01575, 0.00094, 0.00021, - + 0.00011, 0.00059, 0.00093, - + 0.14616, 0.03407, 0.01436, 0.00089, 0.00021, - + 0.00011, 0.00055, 0.00087 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ - + 0.13968, 0.03245, 0.01315, 0.00090, 0.00020, - + 0.00009, 0.00052, 0.00076, - + 0.13375, 0.03094, 0.01210, 0.00085, 0.00020, - + 0.00008, 0.00049, 0.00071, - + 0.12832, 0.02955, 0.01118, 0.00080, 0.00019, - + 0.00007, 0.00046, 0.00068, - + 0.12329, 0.02826, 0.01037, 0.00072, 0.00019, - + 0.00008, 0.00045, 0.00067, - + 0.11865, 0.02707, 0.00966, 0.00065, 0.00019, - + 0.00009, 0.00044, 0.00065 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + 0.31330, 0.07733, 0.08288, 0.00177, 0.00000, - + -0.00003, 0.00088, 0.00187, - + 0.28041, 0.06822, 0.06302, 0.00144, 0.00009, - + -0.00004, 0.00079, 0.00162, - + 0.25374, 0.06101, 0.04961, 0.00141, 0.00007, - + -0.00006, 0.00070, 0.00146, - + 0.23203, 0.05517, 0.04006, 0.00118, 0.00010, - + -0.00005, 0.00064, 0.00130, - + 0.21358, 0.05034, 0.03309, 0.00116, 0.00013, - + -0.00004, 0.00061, 0.00112, - + 0.19785, 0.04627, 0.02783, 0.00116, 0.00013, - + 0.00001, 0.00058, 0.00104, - + 0.18426, 0.04273, 0.02374, 0.00107, 0.00017, - + 0.00003, 0.00054, 0.00100 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ - + 0.17221, 0.03969, 0.02051, 0.00106, 0.00011, - + 0.00001, 0.00046, 0.00084, - + 0.16170, 0.03706, 0.01793, 0.00097, 0.00009, - + -0.00001, 0.00043, 0.00071, - + 0.15248, 0.03470, 0.01582, 0.00085, 0.00013, - + 0.00002, 0.00044, 0.00064, - + 0.14416, 0.03258, 0.01407, 0.00078, 0.00018, - + 0.00006, 0.00044, 0.00060, - + 0.13638, 0.03073, 0.01262, 0.00076, 0.00015, - + 0.00007, 0.00039, 0.00062, - + 0.12959, 0.02902, 0.01139, 0.00065, 0.00014, - + 0.00005, 0.00035, 0.00060, - + 0.12336, 0.02747, 0.01035, 0.00061, 0.00014, - + 0.00005, 0.00033, 0.00056 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ - + 0.11757, 0.02607, 0.00946, 0.00065, 0.00013, - + 0.00005, 0.00033, 0.00049, - + 0.11244, 0.02480, 0.00868, 0.00057, 0.00014, - + 0.00005, 0.00032, 0.00045, - + 0.10775, 0.02364, 0.00800, 0.00048, 0.00014, - + 0.00006, 0.00031, 0.00043, - + 0.10335, 0.02257, 0.00741, 0.00037, 0.00012, - + 0.00005, 0.00028, 0.00047, - + 0.09925, 0.02159, 0.00688, 0.00030, 0.00011, - + 0.00005, 0.00026, 0.00048 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + 0.27525, 0.06459, 0.06374, 0.00111, -0.00005, - + -0.00005, 0.00055, 0.00125, - + 0.24473, 0.05664, 0.04782, 0.00091, 0.00003, - + -0.00001, 0.00049, 0.00114, - + 0.22018, 0.05041, 0.03722, 0.00089, 0.00009, - + -0.00003, 0.00046, 0.00096, - + 0.20019, 0.04535, 0.02981, 0.00084, 0.00004, - + -0.00002, 0.00039, 0.00085, - + 0.18350, 0.04118, 0.02444, 0.00073, 0.00006, - + -0.00005, 0.00033, 0.00077, - + 0.16931, 0.03769, 0.02041, 0.00073, 0.00010, - + -0.00004, 0.00033, 0.00057, - + 0.15694, 0.03470, 0.01733, 0.00078, 0.00007, - + 0.00001, 0.00032, 0.00053 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ - + 0.14644, 0.03210, 0.01491, 0.00058, 0.00006, - + 0.00000, 0.00028, 0.00052, - + 0.13704, 0.02984, 0.01297, 0.00052, 0.00007, - + -0.00001, 0.00025, 0.00048, - + 0.12858, 0.02784, 0.01140, 0.00055, 0.00007, - + -0.00001, 0.00025, 0.00044, - + 0.12108, 0.02608, 0.01010, 0.00053, 0.00009, - + 0.00001, 0.00026, 0.00041, - + 0.11447, 0.02449, 0.00903, 0.00044, 0.00011, - + 0.00004, 0.00026, 0.00041, - + 0.10845, 0.02308, 0.00812, 0.00041, 0.00009, - + 0.00003, 0.00024, 0.00034, - + 0.10297, 0.02181, 0.00736, 0.00039, 0.00009, - + 0.00003, 0.00023, 0.00030 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ - + 0.09797, 0.02066, 0.00671, 0.00037, 0.00010, - + 0.00004, 0.00022, 0.00030, - + 0.09338, 0.01961, 0.00615, 0.00032, 0.00009, - + 0.00004, 0.00021, 0.00029, - + 0.08918, 0.01866, 0.00566, 0.00028, 0.00008, - + 0.00004, 0.00019, 0.00028, - + 0.08531, 0.01778, 0.00523, 0.00022, 0.00007, - + 0.00003, 0.00018, 0.00030, - + 0.08173, 0.01697, 0.00485, 0.00019, 0.00007, - + 0.00003, 0.00017, 0.00030 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + 0.23909, 0.05334, 0.04839, 0.00074, -0.00005, - + -0.00004, 0.00033, 0.00078, - + 0.21085, 0.04646, 0.03583, 0.00067, 0.00002, - + -0.00007, 0.00027, 0.00072, - + 0.18855, 0.04107, 0.02757, 0.00068, 0.00000, - + -0.00007, 0.00027, 0.00052, - + 0.17047, 0.03675, 0.02186, 0.00059, 0.00004, - + -0.00007, 0.00022, 0.00049, - + 0.15564, 0.03323, 0.01777, 0.00050, 0.00005, - + -0.00003, 0.00023, 0.00044, - + 0.14301, 0.03026, 0.01476, 0.00046, 0.00006, - + -0.00002, 0.00023, 0.00036, - + 0.13227, 0.02772, 0.01244, 0.00036, 0.00008, - + 0.00002, 0.00023, 0.00039 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ - + 0.12269, 0.02557, 0.01064, 0.00036, 0.00008, - + 0.00001, 0.00020, 0.00032, - + 0.11425, 0.02369, 0.00921, 0.00037, 0.00007, - + -0.00001, 0.00017, 0.00026, - + 0.10693, 0.02203, 0.00806, 0.00032, 0.00006, - + -0.00001, 0.00016, 0.00025, - + 0.10049, 0.02058, 0.00712, 0.00025, 0.00005, - + 0.00000, 0.00016, 0.00024, - + 0.09467, 0.01927, 0.00634, 0.00024, 0.00006, - + 0.00001, 0.00015, 0.00021, - + 0.08939, 0.01810, 0.00570, 0.00020, 0.00007, - + 0.00003, 0.00015, 0.00023, - + 0.08467, 0.01705, 0.00515, 0.00017, 0.00008, - + 0.00004, 0.00016, 0.00023 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ - + 0.08043, 0.01610, 0.00468, 0.00014, 0.00009, - + 0.00004, 0.00016, 0.00019, - + 0.07641, 0.01524, 0.00427, 0.00014, 0.00008, - + 0.00003, 0.00015, 0.00018, - + 0.07274, 0.01446, 0.00393, 0.00014, 0.00007, - + 0.00002, 0.00014, 0.00018, - + 0.06941, 0.01374, 0.00362, 0.00012, 0.00007, - + 0.00003, 0.00013, 0.00020, - + 0.06635, 0.01308, 0.00335, 0.00010, 0.00006, - + 0.00003, 0.00012, 0.00021 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + 0.20464, 0.04338, 0.03612, 0.00052, -0.00002, - + 0.00000, 0.00023, 0.00049, - + 0.17935, 0.03748, 0.02638, 0.00036, -0.00001, - + -0.00005, 0.00014, 0.00042, - + 0.15939, 0.03293, 0.02008, 0.00040, 0.00004, - + -0.00006, 0.00016, 0.00031, - + 0.14335, 0.02929, 0.01576, 0.00035, 0.00002, - + -0.00004, 0.00016, 0.00029, - + 0.13022, 0.02633, 0.01272, 0.00023, 0.00006, - + -0.00003, 0.00015, 0.00031, - + 0.11899, 0.02389, 0.01048, 0.00023, 0.00003, - + -0.00004, 0.00013, 0.00023, - + 0.10943, 0.02180, 0.00879, 0.00024, 0.00007, - + 0.00000, 0.00015, 0.00020 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ - + 0.10123, 0.02001, 0.00748, 0.00018, 0.00006, - + 0.00000, 0.00013, 0.00021, - + 0.09400, 0.01847, 0.00644, 0.00017, 0.00006, - + 0.00000, 0.00012, 0.00018, - + 0.08767, 0.01712, 0.00561, 0.00015, 0.00007, - + 0.00001, 0.00013, 0.00017, - + 0.08209, 0.01594, 0.00494, 0.00011, 0.00006, - + 0.00002, 0.00012, 0.00017, - + 0.07705, 0.01489, 0.00439, 0.00010, 0.00005, - + 0.00001, 0.00009, 0.00015, - + 0.07250, 0.01395, 0.00393, 0.00012, 0.00006, - + 0.00002, 0.00010, 0.00014, - + 0.06845, 0.01310, 0.00354, 0.00011, 0.00006, - + 0.00002, 0.00011, 0.00013 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ - + 0.06483, 0.01233, 0.00322, 0.00008, 0.00005, - + 0.00002, 0.00010, 0.00011, - + 0.06149, 0.01164, 0.00293, 0.00006, 0.00006, - + 0.00003, 0.00010, 0.00012, - + 0.05845, 0.01102, 0.00269, 0.00004, 0.00006, - + 0.00004, 0.00009, 0.00012, - + 0.05566, 0.01046, 0.00247, 0.00004, 0.00006, - + 0.00004, 0.00009, 0.00010, - + 0.05308, 0.00994, 0.00229, 0.00005, 0.00005, - + 0.00003, 0.00008, 0.00008 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + 0.17307, 0.03490, 0.02665, 0.00046, -0.00007, - + -0.00009, 0.00005, 0.00024, - + 0.15055, 0.02994, 0.01920, 0.00037, -0.00004, - + -0.00009, 0.00006, 0.00024, - + 0.13291, 0.02615, 0.01444, 0.00037, -0.00001, - + -0.00007, 0.00005, 0.00017, - + 0.11911, 0.02315, 0.01127, 0.00019, 0.00003, - + -0.00005, 0.00008, 0.00016, - + 0.10754, 0.02069, 0.00902, 0.00015, 0.00001, - + -0.00005, 0.00007, 0.00016, - + 0.09777, 0.01869, 0.00739, 0.00020, 0.00002, - + -0.00004, 0.00007, 0.00013, - + 0.08962, 0.01699, 0.00617, 0.00018, 0.00002, - + -0.00003, 0.00007, 0.00012 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ - + 0.08262, 0.01553, 0.00523, 0.00013, 0.00002, - + -0.00002, 0.00006, 0.00010, - + 0.07649, 0.01429, 0.00449, 0.00009, 0.00003, - + 0.00000, 0.00006, 0.00012, - + 0.07110, 0.01321, 0.00390, 0.00007, 0.00003, - + 0.00000, 0.00006, 0.00011, - + 0.06633, 0.01225, 0.00342, 0.00007, 0.00003, - + -0.00001, 0.00005, 0.00007, - + 0.06205, 0.01141, 0.00303, 0.00008, 0.00002, - + 0.00000, 0.00006, 0.00007, - + 0.05829, 0.01066, 0.00271, 0.00007, 0.00003, - + 0.00001, 0.00006, 0.00007, - + 0.05490, 0.00998, 0.00244, 0.00005, 0.00003, - + 0.00001, 0.00006, 0.00007 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ - + 0.05183, 0.00938, 0.00220, 0.00003, 0.00003, - + 0.00001, 0.00006, 0.00007, - + 0.04900, 0.00884, 0.00201, 0.00004, 0.00002, - + 0.00001, 0.00005, 0.00007, - + 0.04643, 0.00835, 0.00184, 0.00005, 0.00002, - + 0.00000, 0.00004, 0.00006, - + 0.04411, 0.00790, 0.00169, 0.00004, 0.00002, - + 0.00001, 0.00004, 0.00005, - + 0.04199, 0.00749, 0.00156, 0.00004, 0.00002, - + 0.00001, 0.00004, 0.00005 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + 0.14400, 0.02740, 0.01919, 0.00016, -0.00001, - + -0.00001, 0.00007, 0.00017, - + 0.12445, 0.02339, 0.01370, 0.00012, -0.00002, - + -0.00004, 0.00003, 0.00015, - + 0.10933, 0.02034, 0.01022, 0.00013, 0.00000, - + -0.00001, 0.00006, 0.00012, - + 0.09717, 0.01790, 0.00791, 0.00015, 0.00000, - + -0.00002, 0.00005, 0.00010, - + 0.08733, 0.01594, 0.00630, 0.00012, -0.00001, - + -0.00003, 0.00002, 0.00010, - + 0.07917, 0.01434, 0.00513, 0.00008, 0.00002, - + -0.00002, 0.00002, 0.00010, - + 0.07220, 0.01299, 0.00426, 0.00008, 0.00000, - + -0.00001, 0.00004, 0.00011 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ - + 0.06627, 0.01185, 0.00359, 0.00008, 0.00000, - + -0.00002, 0.00003, 0.00007, - + 0.06113, 0.01086, 0.00307, 0.00008, 0.00000, - + -0.00001, 0.00002, 0.00007, - + 0.05666, 0.01000, 0.00266, 0.00005, 0.00001, - + 0.00000, 0.00003, 0.00009, - + 0.05273, 0.00925, 0.00233, 0.00003, 0.00001, - + 0.00000, 0.00003, 0.00009, - + 0.04919, 0.00860, 0.00206, 0.00006, 0.00001, - + 0.00000, 0.00003, 0.00004, - + 0.04605, 0.00801, 0.00183, 0.00006, 0.00001, - + 0.00000, 0.00003, 0.00004, - + 0.04325, 0.00748, 0.00164, 0.00005, 0.00001, - + 0.00000, 0.00003, 0.00004 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ - + 0.04073, 0.00701, 0.00149, 0.00004, 0.00000, - + 0.00000, 0.00002, 0.00004, - + 0.03841, 0.00660, 0.00135, 0.00004, 0.00000, - + 0.00000, 0.00001, 0.00004, - + 0.03632, 0.00622, 0.00123, 0.00004, 0.00000, - + 0.00000, 0.00001, 0.00004, - + 0.03442, 0.00587, 0.00113, 0.00005, 0.00001, - + 0.00000, 0.00001, 0.00004, - + 0.03269, 0.00555, 0.00104, 0.00005, 0.00001, - + 0.00000, 0.00002, 0.00004 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + 0.09451, 0.01603, 0.00934, 0.00000, -0.00003, - + 0.00000, 0.00001, 0.00009, - + 0.08031, 0.01345, 0.00648, 0.00004, -0.00001, - + -0.00001, -0.00001, 0.00005, - + 0.06960, 0.01152, 0.00472, 0.00006, 0.00001, - + 0.00000, 0.00002, 0.00002, - + 0.06117, 0.01003, 0.00358, 0.00002, 0.00000, - + -0.00002, 0.00001, 0.00001, - + 0.05440, 0.00883, 0.00281, 0.00001, 0.00000, - + -0.00001, 0.00002, 0.00002, - + 0.04875, 0.00786, 0.00225, 0.00004, 0.00001, - + 0.00000, 0.00002, 0.00002, - + 0.04411, 0.00705, 0.00185, 0.00002, 0.00001, - + 0.00000, 0.00002, 0.00000 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ - + 0.04011, 0.00637, 0.00155, 0.00003, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.03668, 0.00579, 0.00131, 0.00001, 0.00001, - + 0.00001, 0.00001, 0.00003, - + 0.03372, 0.00529, 0.00113, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00003, - + 0.03114, 0.00487, 0.00098, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.02888, 0.00449, 0.00086, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.02686, 0.00415, 0.00076, -0.00001, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.02506, 0.00386, 0.00068, 0.00000, 0.00001, - + 0.00001, 0.00001, 0.00003 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ - + 0.02342, 0.00360, 0.00061, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.02199, 0.00336, 0.00055, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.02071, 0.00315, 0.00050, -0.00001, 0.00000, - + 0.00000, 0.00001, 0.00002, - + 0.01952, 0.00296, 0.00046, -0.00001, 0.00000, - + 0.00000, 0.00001, 0.00002, - + 0.01844, 0.00278, 0.00042, 0.00000, 0.00000, - + 0.00000, 0.00001, 0.00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + 0.05705, 0.00853, 0.00409, 0.00005, -0.00001, - + -0.00001, -0.00002, 0.00001, - + 0.04770, 0.00705, 0.00276, 0.00005, 0.00000, - + -0.00001, 0.00000, 0.00001, - + 0.04072, 0.00595, 0.00196, 0.00002, 0.00000, - + 0.00000, 0.00000, 0.00002, - + 0.03534, 0.00510, 0.00146, 0.00001, -0.00001, - + -0.00001, 0.00000, 0.00000, - + 0.03104, 0.00444, 0.00113, 0.00000, 0.00000, - + -0.00001, 0.00000, 0.00001, - + 0.02754, 0.00391, 0.00089, 0.00000, 0.00000, - + -0.00001, 0.00000, 0.00000, - + 0.02464, 0.00347, 0.00073, 0.00000, 0.00000, - + -0.00001, 0.00000, 0.00000 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ - + 0.02220, 0.00311, 0.00060, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.02013, 0.00280, 0.00050, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01835, 0.00254, 0.00043, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01681, 0.00231, 0.00037, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01548, 0.00212, 0.00033, -0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01428, 0.00195, 0.00029, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01324, 0.00180, 0.00025, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ - + 0.01232, 0.00166, 0.00023, -0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01149, 0.00155, 0.00021, -0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01075, 0.00144, 0.00019, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01008, 0.00135, 0.00017, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00947, 0.00126, 0.00016, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + 0.03071, 0.00396, 0.00154, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.02518, 0.00321, 0.00101, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.02119, 0.00266, 0.00070, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01810, 0.00226, 0.00051, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01567, 0.00194, 0.00039, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01373, 0.00169, 0.00030, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01216, 0.00148, 0.00024, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ - + 0.01085, 0.00131, 0.00020, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00974, 0.00117, 0.00017, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00880, 0.00105, 0.00014, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00799, 0.00095, 0.00012, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00731, 0.00086, 0.00011, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00669, 0.00079, 0.00009, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00616, 0.00072, 0.00008, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ - + 0.00569, 0.00066, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00527, 0.00061, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00490, 0.00057, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00456, 0.00053, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00426, 0.00049, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + 0.01405, 0.00152, 0.00047, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01130, 0.00121, 0.00029, -0.00001, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00930, 0.00098, 0.00020, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00780, 0.00082, 0.00014, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00666, 0.00069, 0.00011, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00576, 0.00059, 0.00008, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00502, 0.00051, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ - + 0.00443, 0.00045, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00393, 0.00040, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00351, 0.00035, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00316, 0.00032, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00285, 0.00028, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00259, 0.00026, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00236, 0.00023, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ - + 0.00217, 0.00021, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00199, 0.00019, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00183, 0.00018, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00170, 0.00016, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00157, 0.00015, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + 0.00112, 0.00007, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00084, 0.00005, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00066, 0.00004, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00053, 0.00003, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00043, 0.00003, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00036, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00030, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ - + 0.00026, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00022, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00019, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00017, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00015, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00013, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ - + 0.00010, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,5,10,0,0,10,10/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ - - - XSAVE=X - - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(82,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7) GO TO 31 - DO 30 K=1,19 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,8 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) - - X=XSAVE - - RETURN - END diff --git a/PDF/spdf/sfmsfa.F b/PDF/spdf/sfmsfa.F deleted file mode 100644 index 7fe57c0adc7..00000000000 --- a/PDF/spdf/sfmsfa.F +++ /dev/null @@ -1,87 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:27 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:45 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFMSFA(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) -cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc -c c -c This program returns the fitted parton distributions for MRS(A) c -c *** Reference: DTP/94/34 (1994) *** c -c c -cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc -#include "pdf/impdp.inc" - DIMENSION Z(18,8),F(8) - DATA ((Z(I,K),I=1,18),K=1,4)/ - +2.029386, -1.892760, 0.478114, 0.538000, 0.044742, 0.058742, - +3.956000, -0.136659, -0.513630, -0.389400, 1.267936, 0.134397, - +5.132000, -0.235874, 0.939374, -0.008433, 0.833784, 0.376702, - - +0.295255, -0.169615, 0.028711, 0.330000, 0.174503, -0.045713, - +4.706000, -0.536820, 0.114806, 5.029000, -0.322071, 0.949196, - +5.561000, -2.161758, -1.334992, -0.002353, 1.134808, -0.156988, - - +0.775400,-0.517656,0.159759,-0.300000,0.049683,-0.098598, - +5.300000,0.233708,0.282415,0.000000,-1.100596,0.052043, - +5.200000,-3.232076,0.712254,0.003932,1.625446,-0.699441, - - +0.160750, -0.104311, 0.017157, -0.300000, 0.052451, -0.065844, - +9.272000, -0.576575, 0.109982, -1.153000, 1.173228, 0.169775, - +15.600000, -6.054861, 0.267608, -0.002159, 0.919959, -0.153501/ - - DATA ((Z(I,K),I=1,18),K=5,8)/ - +0.099280, -0.042174, 0.008380, 0.400000, -0.070009, 0.067714, - +9.270000, 0.606514, -0.190625, 0.000000, 7.334181, -3.106807, - +25.000000,-20.291985, 4.165453, -0.005437, 0.080749, 0.256036, - - +0.040260, -0.021695, 0.004481, -0.300000, 0.024073, -0.042711, - +9.272000, -1.998587, 1.019307, -1.153000, 2.932868, -1.591815, - +15.600000,-14.772277, 5.885859, -0.003502, 1.155235, -0.269042, - - +0.001753, 0.017854, -0.004894, -0.195549, -0.180373, 0.047210, - +6.592858, 1.960693, -1.082506, 0.121744, -0.775791, 0.007846, - +8.249182, -7.279327, 1.702087, 0.928112, -0.034017, 0.084953, - - +-0.004324, 0.012668, -0.001675, -0.276236, 0.090440, -0.112318, - +2.647901, 3.239016, -0.534956, 1.390272, -2.629704, 0.646575, - +-3.178775, 4.968992, -1.683463, 1.055388, 0.781798, -0.491059/ -C - AL=0.23 - Q2=SCALE*SCALE - Q0=2. - ARG=( LOG(SCALE/AL)/ LOG(Q0/AL)) - S= LOG(ARG) -C - DO 10 J=1,8 - - A=Z(1,J)+Z(2,J)*S+Z(3,J)*S*S - B=Z(4,J)+Z(5,J)*S+Z(6,J)*S*S - C=Z(7,J)+Z(8,J)*S+Z(9,J)*S*S - D=Z(10,J)+Z(11,J)*S+Z(12,J)*S*S - E=Z(13,J)+Z(14,J)*S+Z(15,J)*S*S - H=Z(16,J)+Z(17,J)*S+Z(18,J)*S*S - 10 F(J)=A*X**B*(1.D0-X)**C*(1.D0+D*SQRT(X)+E*X)*( LOG(1.D0/X))**H - UPV=F(1) - DNV=F(2) - GLU=F(3) - DUSUM=F(4) - DUDIF=F(5) - STR=F(6) - CHM=F(7) - BOT=F(8) - DSEA=0.5D0*(DUSUM+DUDIF) - USEA=0.5D0*(DUSUM-DUDIF) - IF(Q2.LT.2.7D0) CHM=0.D0 - IF(Q2.LT.30.D0) BOT=0.D0 - IF(CHM.LT.0.D0) CHM=0.D0 - IF(BOT.LT.0.D0) BOT=0.D0 - RETURN - END - diff --git a/PDF/spdf/sfmsfg.F b/PDF/spdf/sfmsfg.F deleted file mode 100644 index f5231fd97be..00000000000 --- a/PDF/spdf/sfmsfg.F +++ /dev/null @@ -1,93 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:27 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:45 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFMSFG(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) -cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc -c c -c This program returns the fitted parton distributions for MRS(G) c -c ... it is an analytic approximation to the "grid version" and c -c gives much smoother distributions. It is, however, much slower. c -c Full details of the fit are contained in the preprint "Pinning c -c Down the Gluon in the Proton", by A.D. Martin, R.G. Roberts and c -c W.J. Stirling, Rutherford preprint RAL-95-021 (1995), to which c -c reference should be made if appropriate. c -c c -cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc -C -#include "pdf/impdp.inc" -C - DIMENSION Z(18,8),ZZ(18),F(8) - DATA ((Z(I,K),I=1,18),K=1,4) / - +1.665297, -0.590753, 0.086807, 0.676836, -0.027729, 0.006186, - +3.340307, 0.260426, 0.024214, -0.787023, 1.101313, -0.302934, - +6.098057, -2.645910, 0.175731, 0.557278, 0.363394, -0.001549, - - +0.171268, -0.086429, 0.012191, 0.388998, 0.139088, -0.014565, - +4.049580, -0.495801, 0.071001, 8.829433, 0.246082, -0.319317, - +5.310913, -6.033850, 1.335430, 0.391294, 0.974633, -0.026356, - - +1.121933, -0.980891, 0.250001, -0.279071, -0.118949, 0.001370, - +5.733053, 0.962694, -0.537345, -4.338513, 4.055084, -1.249222, - +11.591153, -9.385871, 2.080363, 0.233747, 0.649513, -0.033386, - - +0.811684, -0.732591, 0.188398, -0.146012, -0.450745, 0.162278, - +10.716037, 0.423859, -0.332372, -3.347546, 1.476767, -0.164336, - +10.221619, -2.432161, 0.693669, -0.372843, -0.451730, 0.548307 / - - DATA ((Z(I,K),I=1,18),K=5,8) / - +0.018819, -0.019057, 0.014581, 0.473385, -0.026701, -0.191575, - +8.942582, -0.562553, 2.098186, -1.302327, 29.018376,-11.868145, - +105.320622,-53.953297, 1.329035, 0.878000, 0.499894, -0.971650, - - +0.093684, -0.074091, 0.033660, -0.107765, -0.408746, 0.100063, - +9.275198, 0.692364, 0.110208, -2.787409, 0.041578, 0.488094, - +10.637883, 3.815478, -4.848576, 0.184162, 0.185983, -0.186796, - - +0.001026, 0.015587, -0.001414, -0.111311, -0.346509, 0.094542, - +5.764679, 4.958334, -2.102611, -1.341127, -2.951861, 1.855254, - +12.079860, -0.297841, -3.809543, 1.480855, -0.719267, 0.175987, - - +-0.001533, 0.004429, -0.000718, -0.097267, -0.221771, 0.056117, - +3.630148, 2.941006, -0.512863, -0.483095, 1.599856, -1.197675, - +8.366443, -4.004534, 1.022508, 2.526478, -0.713666, 0.277209/ - - AL=0.254 - Q2=SCALE*SCALE - Q0=2. - ARG=( LOG(SCALE/AL)/ LOG(Q0/AL)) - S= LOG(ARG) - - DO 10 J=1,8 - - A=Z(1,J)+Z(2,J)*S+Z(3,J)*S*S - B=Z(4,J)+Z(5,J)*S+Z(6,J)*S*S - C=Z(7,J)+Z(8,J)*S+Z(9,J)*S*S - D=Z(10,J)+Z(11,J)*S+Z(12,J)*S*S - E=Z(13,J)+Z(14,J)*S+Z(15,J)*S*S - H=Z(16,J)+Z(17,J)*S+Z(18,J)*S*S - 10 F(J)=A*X**B*(1.-X)**C*(1.+D*SQRT(X)+E*X)*( LOG(1./X))**H - UPV=F(1) - DNV=F(2) - GLU=F(3) - DUSUM=F(4) - DUDIF=F(5) - STR=F(6) - CHM=F(7) - BOT=F(8) - DSEA=0.5D0*(DUSUM+DUDIF) - USEA=0.5D0*(DUSUM-DUDIF) - IF(Q2.LT.2.7D0) CHM=0.D0 - IF(Q2.LT.30.D0) BOT=0.D0 - IF(CHM.LT.0.D0) CHM=0.D0 - IF(BOT.LT.0.D0) BOT=0.D0 - RETURN - END diff --git a/PDF/spdf/sfmsjp.F b/PDF/spdf/sfmsjp.F deleted file mode 100644 index 2c34d486b22..00000000000 --- a/PDF/spdf/sfmsjp.F +++ /dev/null @@ -1,1970 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE SFMSJP(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) -C -C THIS IS THE NEW "J'" FIT -- Mar 1996 -- standard Q^2 range -C -#include "pdf/impdp.inc" -C - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,20),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + .00150, .00264, 5.55683, 1.12144, .14329, - + .00000, .60931, 1.12368, - + .00193, .00291, 15.25887, 1.45831, .49682, - + .00000, .95582, 1.46133, - + .00232, .00315, 28.42037, 1.89182, .94390, - + .00000, 1.39726, 1.89554, - + .00268, .00338, 44.40294, 2.40648, 1.47002, - + .34408, 1.91867, 2.41082, - + .00302, .00359, 62.92809, 2.99540, 2.06897, - + .96842, 2.51353, 3.00033, - + .00335, .00380, 83.55903, 3.65033, 2.73283, - + 1.64944, 3.17378, 3.65581, - + .00366, .00399, 106.09640, 4.36370, 3.45426, - + 2.38555, 3.89197, 4.36970 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ - + .00396, .00418, 130.08051, 5.12666, 4.22457, - + 3.16914, 4.65935, 5.13316, - + .00425, .00435, 155.31213, 5.93330, 5.03795, - + 3.99461, 5.47006, 5.94026, - + .00453, .00453, 181.62833, 6.77890, 5.88980, - + 4.85753, 6.31944, 6.78632, - + .00480, .00469, 208.85376, 7.65906, 6.77576, - + 5.75372, 7.20311, 7.66690, - + .00507, .00485, 236.69560, 8.56717, 7.68931, - + 6.67676, 8.11454, 8.57543, - + .00532, .00501, 265.07147, 9.50030, 8.62755, - + 7.62385, 9.05077, 9.50896, - + .00557, .00516, 293.97046, 10.45729, 9.58936, - + 8.59394, 10.01070, 10.46634 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ - + .00581, .00531, 323.36273, 11.43695, 10.57356, - + 9.58593, 10.99314, 11.44637, - + .00605, .00546, 352.87207, 12.43076, 11.57170, - + 10.59140, 11.98959, 12.44054, - + .00628, .00560, 382.56424, 13.43910, 12.58416, - + 11.61081, 13.00046, 13.44923, - + .00651, .00573, 412.68381, 14.46705, 13.61602, - + 12.64926, 14.03080, 14.47751, - + .00673, .00587, 442.45764, 15.49675, 14.64948, - + 13.68899, 15.06281, 15.50755 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + .00248, .00363, 5.06543, 1.00588, .12539, - + .00000, .54436, 1.00910, - + .00312, .00402, 13.18279, 1.28719, .42229, - + .00000, .83443, 1.29096, - + .00369, .00437, 23.75493, 1.63966, .78741, - + .00000, 1.19405, 1.64391, - + .00422, .00470, 36.20625, 2.04904, 1.20746, - + .27448, 1.60949, 2.05371, - + .00472, .00500, 50.28674, 2.50888, 1.67663, - + .76529, 2.07466, 2.51396, - + .00519, .00529, 65.64280, 3.01209, 2.18812, - + 1.29162, 2.58261, 3.01753, - + .00564, .00556, 82.11895, 3.55247, 2.73596, - + 1.85221, 3.12728, 3.55826 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ - + .00607, .00582, 99.37228, 4.12310, 3.31338, - + 2.44116, 3.70183, 4.12922, - + .00649, .00607, 117.26476, 4.71953, 3.91604, - + 3.05430, 4.30186, 4.72596, - + .00689, .00631, 135.68713, 5.33829, 4.54056, - + 3.68842, 4.92395, 5.34502, - + .00727, .00654, 154.52290, 5.97622, 5.18383, - + 4.34056, 5.56498, 5.98323, - + .00765, .00676, 173.57372, 6.62860, 5.84121, - + 5.00616, 6.22026, 6.63588, - + .00801, .00698, 192.79395, 7.29346, 6.51076, - + 5.68338, 6.88785, 7.30100, - + .00836, .00718, 212.18825, 7.97014, 7.19186, - + 6.37166, 7.56711, 7.97794 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ - + .00870, .00739, 231.74513, 8.65797, 7.88386, - + 7.07040, 8.25737, 8.66601, - + .00904, .00759, 251.21294, 9.35098, 8.58083, - + 7.77373, 8.95269, 9.35926, - + .00936, .00778, 270.64905, 10.04966, 9.28327, - + 8.48219, 9.65357, 10.05816, - + .00968, .00797, 290.22989, 10.75778, 9.99497, - + 9.19958, 10.36378, 10.76650, - + .00999, .00815, 309.43671, 11.46284, 10.70346, - + 9.91349, 11.07084, 11.47177 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + .00405, .00499, 4.61713, .90174, .10963, - + .00000, .48618, .90578, - + .00498, .00556, 11.38689, 1.13568, .35816, - + .00000, .72811, 1.14008, - + .00582, .00606, 19.84977, 1.42082, .65515, - + .00000, 1.01976, 1.42554, - + .00659, .00653, 29.51260, 1.74472, .98902, - + .21804, 1.34915, 1.74973, - + .00731, .00695, 40.16928, 2.10181, 1.35481, - + .60223, 1.71105, 2.10708, - + .00800, .00736, 51.54611, 2.48627, 1.74699, - + 1.00722, 2.09979, 2.49178, - + .00865, .00774, 63.53112, 2.89329, 2.16094, - + 1.43222, 2.51065, 2.89903 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ - + .00926, .00811, 75.87641, 3.31762, 2.59158, - + 1.87282, 2.93849, 3.32357, - + .00986, .00845, 88.49267, 3.75605, 3.03579, - + 2.32609, 3.38013, 3.76219, - + .01043, .00879, 101.31216, 4.20614, 3.49121, - + 2.78983, 3.83319, 4.21247, - + .01097, .00911, 114.26204, 4.66573, 3.95575, - + 3.26203, 4.29554, 4.67224, - + .01150, .00941, 127.21197, 5.13153, 4.42618, - + 3.73956, 4.76392, 5.13821, - + .01201, .00971, 140.14171, 5.60232, 4.90130, - + 4.22131, 5.23712, 5.60916, - + .01251, .01000, 153.06473, 6.07781, 5.38087, - + 4.70708, 5.71489, 6.08481 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ - + .01299, .01028, 165.98192, 6.55768, 5.86459, - + 5.19662, 6.19691, 6.56483, - + .01346, .01055, 178.72711, 7.03782, 6.34837, - + 5.68590, 6.67909, 7.04511, - + .01392, .01081, 191.34935, 7.51876, 6.83278, - + 6.17550, 7.16197, 7.52619, - + .01436, .01107, 203.97646, 8.00334, 7.32066, - + 6.66830, 7.64840, 8.01091, - + .01479, .01131, 216.26178, 8.48286, 7.80333, - + 7.15565, 8.12968, 8.49056 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + .00534, .00602, 4.37324, .84556, .10128, - + .00000, .45495, .85001, - + .00652, .00672, 10.45027, 1.05507, .32488, - + .00000, .67208, 1.05983, - + .00757, .00735, 17.86598, 1.30627, .58749, - + .00000, .92947, 1.31128, - + .00853, .00791, 26.17896, 1.58787, .87871, - + .19014, 1.21629, 1.59311, - + .00943, .00844, 35.21148, 1.89493, 1.19413, - + .52229, 1.52790, 1.90037, - + .01027, .00893, 44.73264, 2.22237, 1.52899, - + .86889, 1.85938, 2.22799, - + .01108, .00940, 54.65389, 2.56611, 1.87941, - + 1.22944, 2.20676, 2.57192 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ - + .01184, .00984, 64.77325, 2.92179, 2.24115, - + 1.60032, 2.56574, 2.92776, - + .01257, .01027, 75.02436, 3.28679, 2.61170, - + 1.97919, 2.93377, 3.29291, - + .01327, .01067, 85.35876, 3.65919, 2.98922, - + 2.36433, 3.30897, 3.66545, - + .01394, .01106, 95.72305, 4.03729, 3.37208, - + 2.75421, 3.68967, 4.04369, - + .01459, .01143, 106.01685, 4.41848, 3.75770, - + 3.14635, 4.07328, 4.42501, - + .01521, .01179, 116.23021, 4.80186, 4.14523, - + 3.53996, 4.45893, 4.80851, - + .01582, .01213, 126.38021, 5.18732, 4.53459, - + 3.93501, 4.84652, 5.19409 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ - + .01640, .01247, 136.47208, 5.57468, 4.92564, - + 4.33139, 5.23589, 5.58156, - + .01697, .01279, 146.37639, 5.96065, 5.31510, - + 4.72589, 5.62378, 5.96764, - + .01753, .01311, 156.13741, 6.34579, 5.70356, - + 5.11910, 6.01073, 6.35288, - + .01807, .01341, 165.86134, 6.73251, 6.09343, - + 5.51348, 6.39918, 6.73970, - + .01859, .01371, 175.27473, 7.11377, 6.47770, - + 5.90204, 6.78208, 7.12106 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + .00649, .00688, 4.20787, .80761, .09572, - + .00000, .43394, .81236, - + .00787, .00769, 9.83170, 1.00113, .30298, - + .00000, .63484, 1.00614, - + .00910, .00842, 16.57719, 1.23039, .54338, - + .00000, .87009, 1.23562, - + .01023, .00908, 24.03992, 1.48499, .80734, - + .17233, 1.12973, 1.49041, - + .01128, .00968, 32.06238, 1.76042, 1.09093, - + .47154, 1.40955, 1.76602, - + .01226, .01025, 40.44193, 2.05213, 1.38987, - + .78151, 1.70516, 2.05789, - + .01319, .01079, 49.10527, 2.35655, 1.70079, - + 1.10195, 2.01308, 2.36246 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ - + .01408, .01130, 57.87912, 2.66983, 2.01998, - + 1.42974, 2.32956, 2.67588, - + .01492, .01178, 66.71113, 2.98977, 2.34532, - + 1.76290, 2.65241, 2.99595, - + .01573, .01225, 75.56420, 3.31476, 2.67530, - + 2.10004, 2.98009, 3.32106, - + .01651, .01269, 84.39670, 3.64340, 3.00855, - + 2.43989, 3.31122, 3.64980, - + .01725, .01312, 93.12576, 3.97345, 3.34292, - + 2.78039, 3.64360, 3.97997, - + .01797, .01352, 101.74745, 4.30424, 3.67775, - + 3.12093, 3.97657, 4.31086, - + .01867, .01392, 110.28020, 4.63574, 4.01304, - + 3.46156, 4.31011, 4.64245 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ - + .01934, .01430, 118.73171, 4.96786, 4.34875, - + 3.80228, 4.64417, 4.97467, - + .02000, .01467, 126.99378, 5.29782, 4.68210, - + 4.14036, 4.97596, 5.30472, - + .02063, .01503, 135.10756, 5.62616, 5.01366, - + 4.47639, 5.30604, 5.63314, - + .02125, .01537, 143.16595, 5.95502, 5.34559, - + 4.81255, 5.63656, 5.96209, - + .02185, .01571, 150.93834, 6.27838, 5.67187, - + 5.14286, 5.96149, 6.28552 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + .00754, .00763, 4.08378, .77921, .09159, - + .00000, .41826, .78418, - + .00910, .00854, 9.37638, .96101, .28689, - + .00000, .60728, .96622, - + .01050, .00936, 15.63990, 1.17439, .51121, - + .00000, .82651, 1.17981, - + .01177, .01009, 22.49837, 1.40961, .75562, - + .15956, 1.06665, 1.41520, - + .01295, .01078, 29.80974, 1.66251, 1.01653, - + .43528, 1.32383, 1.66826, - + .01405, .01141, 37.39203, 1.92894, 1.29006, - + .71931, 1.59406, 1.93484, - + .01510, .01201, 45.18294, 2.20568, 1.57317, - + 1.01150, 1.87422, 2.21171 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ - + .01609, .01258, 53.02928, 2.48929, 1.86257, - + 1.30909, 2.16093, 2.49545, - + .01704, .01312, 60.88840, 2.77783, 2.15641, - + 1.61038, 2.45230, 2.78410, - + .01794, .01363, 68.73103, 3.06992, 2.45338, - + 1.91417, 2.74700, 3.07629, - + .01881, .01412, 76.52332, 3.36434, 2.75233, - + 2.21942, 3.04385, 3.37081, - + .01964, .01459, 84.19431, 3.65916, 3.05138, - + 2.52430, 3.34094, 3.66573, - + .02045, .01505, 91.74381, 3.95383, 3.35001, - + 2.82836, 3.63772, 3.96049, - + .02122, .01548, 99.19100, 4.24837, 3.64827, - + 3.13171, 3.93426, 4.25512 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ - + .02197, .01591, 106.54523, 4.54278, 3.94619, - + 3.43440, 4.23054, 4.54961, - + .02270, .01631, 113.71231, 4.83459, 4.24132, - + 3.73404, 4.52413, 4.84149, - + .02341, .01671, 120.73104, 5.12433, 4.53422, - + 4.03120, 4.81557, 5.13132, - + .02409, .01709, 127.68514, 5.41398, 4.82687, - + 4.32788, 5.10682, 5.42104, - + .02476, .01746, 134.37268, 5.69818, 5.11393, - + 4.61877, 5.39255, 5.70530 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + .01194, .01054, 3.72011, .69611, .07974, - + .00000, .37265, .70181, - + .01424, .01186, 8.08604, .84508, .24153, - + .00000, .52842, .85100, - + .01628, .01303, 13.03921, 1.01477, .42161, - + .00000, .70361, 1.02089, - + .01812, .01407, 18.28871, 1.19752, .61309, - + .12503, .89098, 1.20379, - + .01983, .01504, 23.73799, 1.39024, .81341, - + .33788, 1.08772, 1.39666, - + .02142, .01593, 29.26161, 1.58990, 1.01981, - + .55327, 1.29095, 1.59645, - + .02291, .01677, 34.82680, 1.79427, 1.23023, - + .77149, 1.49851, 1.80094 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ - + .02432, .01756, 40.33232, 2.00097, 1.44242, - + .99071, 1.70811, 2.00774, - + .02567, .01831, 45.75961, 2.20877, 1.65524, - + 1.20992, 1.91856, 2.21564, - + .02694, .01902, 51.09809, 2.41685, 1.86795, - + 1.42849, 2.12908, 2.42381, - + .02816, .01970, 56.33268, 2.62451, 2.07990, - + 1.64584, 2.33901, 2.63156, - + .02933, .02035, 61.42131, 2.83051, 2.28991, - + 1.86086, 2.54712, 2.83765, - + .03046, .02097, 66.37169, 3.03462, 2.49776, - + 2.07337, 2.75320, 3.04183, - + .03154, .02156, 71.20381, 3.23700, 2.70367, - + 2.28364, 2.95744, 3.24429 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ - + .03258, .02214, 75.92933, 3.43778, 2.90778, - + 2.49184, 3.15997, 3.44514, - + .03359, .02269, 80.48836, 3.63532, 3.10847, - + 2.69639, 3.35917, 3.64275, - + .03456, .02323, 84.91246, 3.83013, 3.30626, - + 2.89783, 3.55555, 3.83762, - + .03551, .02375, 89.26225, 4.02368, 3.50265, - + 3.09767, 3.75060, 4.03123, - + .03642, .02425, 93.40482, 4.21231, 3.69398, - + 3.29229, 3.94064, 4.21991 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + .01876, .01467, 3.38626, .61953, .06915, - + .00000, .33103, .62613, - + .02214, .01657, 6.95931, .74030, .20221, - + .00000, .45832, .74718, - + .02511, .01823, 10.84023, .87366, .34553, - + .00000, .59697, .88077, - + .02778, .01971, 14.81582, 1.01384, .49410, - + .09709, .74159, 1.02115, - + .03022, .02106, 18.82937, 1.15878, .64633, - + .25987, .89039, 1.16626, - + .03249, .02231, 22.80110, 1.30637, .80039, - + .42161, 1.04140, 1.31402, - + .03462, .02348, 26.72067, 1.45518, .95502, - + .58291, 1.19330, 1.46298 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ - + .03661, .02458, 30.52538, 1.60366, 1.10877, - + .74267, 1.34456, 1.61159, - + .03850, .02561, 34.21290, 1.75110, 1.26104, - + .90041, 1.49455, 1.75916, - + .04029, .02659, 37.78486, 1.89710, 1.41149, - + 1.05586, 1.64290, 1.90528, - + .04200, .02752, 41.23816, 2.04131, 1.55982, - + 1.20881, 1.78929, 2.04960, - + .04362, .02840, 44.54984, 2.18297, 1.70534, - + 1.35859, 1.93298, 2.19136, - + .04518, .02925, 47.73145, 2.32206, 1.84803, - + 1.50527, 2.07397, 2.33055, - + .04667, .03006, 50.80191, 2.45883, 1.98818, - + 1.64915, 2.21252, 2.46741 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ - + .04811, .03084, 53.77330, 2.59346, 2.12601, - + 1.79047, 2.34884, 2.60213, - + .04949, .03159, 56.60839, 2.72490, 2.26047, - + 1.92822, 2.48187, 2.73365, - + .05082, .03231, 59.33210, 2.85358, 2.39201, - + 2.06287, 2.61206, 2.86241, - + .05212, .03301, 61.98803, 2.98062, 2.52179, - + 2.19559, 2.74054, 2.98953, - + .05336, .03368, 64.48965, 3.10353, 2.64730, - + 2.32391, 2.86482, 3.11251 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + .02439, .01789, 3.20303, .57703, .06343, - + .00000, .30810, .58427, - + .02861, .02023, 6.36386, .68311, .18156, - + .00000, .42061, .69069, - + .03230, .02227, 9.70723, .79804, .30628, - + .00000, .54077, .80591, - + .03559, .02408, 13.06140, .91712, .43358, - + .08326, .66423, .92524, - + .03860, .02572, 16.38996, 1.03875, .56238, - + .22159, .78968, 1.04709, - + .04138, .02724, 19.63512, 1.16133, .69131, - + .35751, .91564, 1.16988, - + .04397, .02866, 22.79675, 1.28382, .81951, - + .49177, 1.04117, 1.29255 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ - + .04640, .02998, 25.82955, 1.40501, .94588, - + .62362, 1.16512, 1.41391, - + .04869, .03122, 28.73784, 1.52446, 1.07008, - + .75279, 1.28709, 1.53352, - + .05086, .03240, 31.52792, 1.64193, 1.19193, - + .87920, 1.40690, 1.65114, - + .05292, .03351, 34.20137, 1.75724, 1.31128, - + 1.00275, 1.52435, 1.76658, - + .05488, .03457, 36.74312, 1.86983, 1.42766, - + 1.12301, 1.63896, 1.87930, - + .05675, .03557, 39.16563, 1.97976, 1.54113, - + 1.24011, 1.75077, 1.98935, - + .05854, .03654, 41.48662, 2.08730, 1.65200, - + 1.35436, 1.86008, 2.09701 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ - + .06026, .03746, 43.71775, 2.19265, 1.76049, - + 1.46603, 1.96710, 2.20247, - + .06191, .03835, 45.83118, 2.29501, 1.86582, - + 1.57435, 2.07103, 2.30493, - + .06350, .03920, 47.84850, 2.39477, 1.96840, - + 1.67976, 2.17229, 2.40479, - + .06504, .04002, 49.80534, 2.49288, 2.06920, - + 1.78324, 2.27183, 2.50300, - + .06652, .04081, 51.63486, 2.58737, 2.16624, - + 1.88282, 2.36767, 2.59758 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + .02936, .02067, 3.07771, .54759, .05954, - + .00000, .29229, .55536, - + .03429, .02339, 5.96559, .64393, .16780, - + .00000, .39502, .65210, - + .03858, .02574, 8.96116, .74690, .28043, - + .00000, .50317, .75540, - + .04239, .02782, 11.92032, .85244, .39411, - + .07441, .61308, .86124, - + .04587, .02971, 14.81969, .95931, .50806, - + .19721, .72375, .96837, - + .04907, .03145, 17.61523, 1.06619, .62123, - + .31690, .83400, 1.07548, - + .05205, .03306, 20.31278, 1.17228, .73296, - + .43431, .94311, 1.18179 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ - + .05483, .03457, 22.87748, 1.27661, .84242, - + .54889, 1.05019, 1.28631, - + .05745, .03598, 25.31726, 1.37887, .94938, - + .66049, 1.15496, 1.38876, - + .05992, .03731, 27.64091, 1.47893, 1.05377, - + .76914, 1.25734, 1.48899, - + .06226, .03857, 29.85246, 1.57668, 1.15554, - + .87483, 1.35725, 1.58691, - + .06449, .03976, 31.94128, 1.67172, 1.25431, - + .97723, 1.45428, 1.68209, - + .06661, .04090, 33.92002, 1.76412, 1.35021, - + 1.07652, 1.54856, 1.77464, - + .06863, .04198, 35.80536, 1.85417, 1.44355, - + 1.17302, 1.64037, 1.86482 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ - + .07058, .04302, 37.60849, 1.94207, 1.53457, - + 1.26700, 1.72994, 1.95286, - + .07245, .04402, 39.30700, 2.02716, 1.62260, - + 1.35782, 1.81660, 2.03807, - + .07424, .04497, 40.92014, 2.10982, 1.70805, - + 1.44591, 1.90075, 2.12084, - + .07597, .04589, 42.47869, 2.19088, 1.79177, - + 1.53213, 1.98324, 2.20202, - + .07764, .04678, 43.92727, 2.26867, 1.87209, - + 1.61482, 2.06238, 2.27991 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + .03395, .02328, 2.98197, .52456, .05653, - + .00000, .27986, .53272, - + .03949, .02632, 5.66390, .61360, .15736, - + .00000, .37523, .62218, - + .04429, .02894, 8.40123, .70774, .26107, - + .00000, .47450, .71669, - + .04854, .03126, 11.07101, .80341, .36480, - + .06796, .57449, .81267, - + .05241, .03336, 13.65941, .89960, .46799, - + .17950, .67443, .90914, - + .05596, .03528, 16.13212, .99520, .56981, - + .28749, .77336, 1.00499, - + .05926, .03706, 18.49924, 1.08956, .66976, - + .39282, .87072, 1.09958 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ - + .06234, .03872, 20.73313, 1.18190, .76716, - + .49508, .96576, 1.19213, - + .06522, .04027, 22.84407, 1.27199, .86189, - + .59422, 1.05834, 1.28241, - + .06794, .04173, 24.84203, 1.35977, .95395, - + .69031, 1.14842, 1.37038, - + .07052, .04311, 26.73308, 1.44520, 1.04334, - + .78341, 1.23596, 1.45597, - + .07296, .04441, 28.50911, 1.52793, 1.12977, - + .87329, 1.32068, 1.53887, - + .07528, .04565, 30.18274, 1.60811, 1.21340, - + .96012, 1.40270, 1.61919, - + .07750, .04684, 31.77016, 1.68599, 1.29454, - + 1.04425, 1.48232, 1.69722 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ - + .07963, .04797, 33.28199, 1.76179, 1.37341, - + 1.12593, 1.55977, 1.77316, - + .08166, .04905, 34.69911, 1.83494, 1.44946, - + 1.20463, 1.63447, 1.84643, - + .08361, .05008, 36.03899, 1.90580, 1.52308, - + 1.28074, 1.70681, 1.91742, - + .08550, .05108, 37.32903, 1.97514, 1.59504, - + 1.35507, 1.77755, 1.98688, - + .08731, .05204, 38.52234, 2.04147, 1.66386, - + 1.42614, 1.84521, 2.05331 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + .05320, .03399, 2.69878, .45512, .04773, - + .00000, .24281, .46493, - + .06107, .03829, 4.80100, .52363, .12774, - + .00000, .31753, .53402, - + .06780, .04194, 6.83577, .59357, .20701, - + .00000, .39253, .60445, - + .07369, .04513, 8.73805, .66270, .28397, - + .05062, .46589, .67400, - + .07900, .04799, 10.51855, .73058, .35868, - + .13225, .53747, .74226, - + .08383, .05059, 12.16752, .79668, .43081, - + .20959, .60683, .80868, - + .08829, .05297, 13.70408, .86075, .50031, - + .28363, .67384, .87306 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ - + .09241, .05517, 15.11777, .92239, .56688, - + .35428, .73814, .93498, - + .09625, .05721, 16.42322, .98164, .63062, - + .42174, .79982, .99448, - + .09984, .05912, 17.63301, 1.03856, .69169, - + .48621, .85898, 1.05164, - + .10323, .06091, 18.75573, 1.09324, .75021, - + .54785, .91574, 1.10653, - + .10642, .06260, 19.78961, 1.14554, .80609, - + .60663, .96997, 1.15904, - + .10944, .06419, 20.74619, 1.19564, .85953, - + .66276, 1.02187, 1.20932, - + .11231, .06570, 21.63853, 1.24378, .91082, - + .71656, 1.07171, 1.25765 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ - + .11505, .06714, 22.47538, 1.29018, .96018, - + .76829, 1.11971, 1.30422, - + .11766, .06850, 23.24610, 1.33448, 1.00729, - + .81761, 1.16553, 1.34868, - + .12015, .06980, 23.96337, 1.37700, 1.05247, - + .86489, 1.20948, 1.39135, - + .12255, .07106, 24.64565, 1.41826, 1.09627, - + .91067, 1.25212, 1.43277, - + .12484, .07225, 25.26440, 1.45733, 1.13774, - + .95403, 1.29248, 1.47197 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + .08323, .05082, 2.43302, .38709, .03955, - + .00000, .20683, .39918, - + .09408, .05671, 4.03040, .43795, .10154, - + .00000, .26376, .45081, - + .10321, .06164, 5.48625, .48793, .16054, - + .00000, .31866, .50143, - + .11110, .06586, 6.78252, .53580, .21597, - + .03669, .37065, .54984, - + .11811, .06961, 7.94701, .58159, .26833, - + .09474, .42002, .59610, - + .12443, .07296, 8.98652, .62512, .31766, - + .14842, .46671, .64004, - + .13021, .07601, 9.92438, .66645, .36421, - + .19876, .51089, .68175 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ - + .13549, .07879, 10.76076, .70544, .40791, - + .24588, .55244, .72108, - + .14037, .08134, 11.51142, .74225, .44903, - + .29010, .59159, .75819, - + .14491, .08371, 12.18882, .77705, .48779, - + .33169, .62855, .79327, - + .14914, .08591, 12.80164, .80995, .52436, - + .37087, .66345, .82643, - + .15311, .08797, 13.35182, .84096, .55878, - + .40770, .69631, .85768, - + .15683, .08989, 13.84840, .87024, .59125, - + .44241, .72732, .88718, - + .16035, .09170, 14.30131, .89802, .62203, - + .47527, .75673, .91517 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ - + .16369, .09341, 14.71721, .92448, .65131, - + .50651, .78472, .94182, - + .16685, .09502, 15.09044, .94942, .67891, - + .53596, .81110, .96694, - + .16985, .09655, 15.43008, .97306, .70508, - + .56387, .83612, .99076, - + .17273, .09801, 15.74786, .99580, .73023, - + .59066, .86017, 1.01367, - + .17545, .09939, 16.02695, 1.01703, .75373, - + .61573, .88263, 1.03504 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + .10795, .06480, 2.28464, .34802, .03505, - + -.00001, .18644, .36199, - + .12080, .07173, 3.61908, .38986, .08775, - + -.00001, .23424, .40473, - + .13149, .07746, 4.78807, .42995, .13663, - + .00000, .27915, .44556, - + .14063, .08231, 5.79553, .46756, .18159, - + .02991, .32079, .48378, - + .14869, .08656, 6.67563, .50291, .22332, - + .07669, .35963, .51965, - + .15590, .09034, 7.44140, .53597, .26201, - + .11927, .39578, .55317, - + .16242, .09374, 8.11673, .56692, .29802, - + .15868, .42950, .58454 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ - + .16836, .09682, 8.70564, .59573, .33139, - + .19511, .46080, .61371, - + .17382, .09962, 9.22298, .62259, .36242, - + .22891, .48993, .64090, - + .17885, .10220, 9.68076, .64769, .39135, - + .26037, .51712, .66630, - + .18354, .10459, 10.08673, .67117, .41838, - + .28972, .54254, .69005, - + .18789, .10680, 10.44393, .69307, .44356, - + .31706, .56623, .71219, - + .19195, .10885, 10.75991, .71353, .46709, - + .34259, .58836, .73288, - + .19578, .11077, 11.04269, .73276, .48921, - + .36657, .60916, .75232 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ - + .19939, .11258, 11.29776, .75091, .51008, - + .38919, .62879, .77067, - + .20279, .11428, 11.52140, .76786, .52960, - + .41035, .64714, .78781, - + .20601, .11588, 11.72088, .78379, .54795, - + .43025, .66438, .80390, - + .20908, .11740, 11.90488, .79900, .56547, - + .44924, .68085, .81928, - + .21198, .11882, 12.06104, .81304, .58171, - + .46686, .69608, .83346 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + .12967, .07719, 2.18195, .32067, .03199, - + -.00001, .17226, .33629, - + .14398, .08486, 3.34295, .35666, .07860, - + -.00001, .21410, .37327, - + .15577, .09112, 4.32916, .39048, .12099, - + .00000, .25264, .40788, - + .16578, .09637, 5.15742, .42169, .15937, - + .02566, .28779, .43974, - + .17454, .10093, 5.86492, .45060, .19449, - + .06541, .32012, .46921, - + .18231, .10495, 6.46774, .47730, .22668, - + .10117, .34983, .49639, - + .18932, .10854, 6.98942, .50202, .25630, - + .13394, .37723, .52152 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ - + .19565, .11177, 7.43566, .52476, .28348, - + .16393, .40241, .54464, - + .20144, .11469, 7.82052, .54576, .30852, - + .19152, .42561, .56596, - + .20676, .11736, 8.15509, .56518, .33167, - + .21700, .44707, .58569, - + .21168, .11981, 8.44660, .58320, .35312, - + .24058, .46696, .60397, - + .21622, .12207, 8.69817, .59984, .37295, - + .26239, .48534, .62085, - + .22046, .12416, 8.91642, .61525, .39134, - + .28262, .50237, .63649, - + .22442, .12611, 9.10819, .62963, .40851, - + .30150, .51827, .65107 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ - + .22816, .12793, 9.27813, .64310, .42461, - + .31920, .53317, .66473, - + .23165, .12963, 9.42347, .65557, .43956, - + .33566, .54699, .67737, - + .23494, .13122, 9.55017, .66719, .45353, - + .35105, .55988, .68915, - + .23808, .13273, 9.66522, .67822, .46680, - + .36566, .57213, .70034, - + .24102, .13413, 9.75896, .68831, .47900, - + .37913, .58336, .71055 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + .14933, .08848, 2.10355, .29976, .02970, - + .00000, .16152, .31692, - + .16476, .09667, 3.13725, .33152, .07186, - + -.00001, .19902, .34972, - + .17737, .10328, 3.99295, .36087, .10960, - + .00000, .23301, .37990, - + .18799, .10879, 4.69591, .38758, .14332, - + .02265, .26358, .40728, - + .19722, .11353, 5.28486, .41202, .17383, - + .05748, .29136, .43229, - + .20538, .11768, 5.77750, .43434, .20150, - + .08850, .31662, .45508, - + .21268, .12136, 6.19670, .45480, .22675, - + .11668, .33971, .47596 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ - + .21926, .12464, 6.54894, .47343, .24971, - + .14228, .36071, .49496, - + .22523, .12760, 6.84750, .49048, .27070, - + .16565, .37991, .51233, - + .23069, .13029, 7.10263, .50613, .28997, - + .18710, .39754, .52826, - + .23572, .13275, 7.32127, .52051, .30770, - + .20683, .41375, .54290, - + .24036, .13499, 7.50607, .53369, .32399, - + .22496, .42862, .55631, - + .24465, .13706, 7.66324, .54580, .33899, - + .24168, .44230, .56862, - + .24866, .13898, 7.79861, .55700, .35292, - + .25720, .45498, .58002 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ - + .25242, .14076, 7.91623, .56744, .36591, - + .27169, .46681, .59063, - + .25593, .14241, 8.01402, .57700, .37789, - + .28507, .47768, .60035, - + .25922, .14395, 8.09679, .58586, .38903, - + .29753, .48777, .60935, - + .26234, .14541, 8.17045, .59422, .39956, - + .30932, .49732, .61785, - + .26526, .14675, 8.22729, .60179, .40918, - + .32012, .50599, .62553 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + .22960, .13477, 1.86368, .23709, .02306, - + .00000, .12995, .26084, - + .24771, .14383, 2.53895, .25728, .05286, - + .00000, .15547, .28208, - + .26205, .15083, 3.04657, .27477, .07808, - + .00000, .17722, .30033, - + .27377, .15644, 3.42914, .28981, .09957, - + .01474, .19580, .31595, - + .28370, .16109, 3.72493, .30291, .11824, - + .03683, .21195, .32950, - + .29224, .16502, 3.95325, .31432, .13456, - + .05583, .22604, .34127, - + .29971, .16840, 4.13291, .32434, .14896, - + .07259, .23844, .35158 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ - + .30628, .17131, 4.27096, .33308, .16166, - + .08740, .24932, .36056, - + .31212, .17385, 4.37752, .34075, .17292, - + .10058, .25893, .36842, - + .31734, .17609, 4.45978, .34751, .18298, - + .11237, .26747, .37534, - + .32206, .17807, 4.52253, .35350, .19200, - + .12298, .27508, .38144, - + .32632, .17982, 4.56792, .35874, .20007, - + .13252, .28184, .38679, - + .33019, .18139, 4.59991, .36336, .20733, - + .14113, .28787, .39149, - + .33372, .18279, 4.62191, .36748, .21390, - + .14897, .29329, .39567 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ - + .33699, .18407, 4.63624, .37116, .21990, - + .15615, .29821, .39941, - + .33997, .18520, 4.64195, .37438, .22529, - + .16265, .30258, .40266, - + .34271, .18623, 4.64147, .37721, .23018, - + .16858, .30650, .40552, - + .34528, .18718, 4.63793, .37981, .23473, - + .17411, .31013, .40813, - + .34760, .18801, 4.62744, .38198, .23875, - + .17906, .31328, .41031 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + .34473, .19985, 1.61763, .17936, .01717, - + -.00001, .10174, .21247, - + .36209, .20688, 1.98594, .18990, .03658, - + -.00002, .11705, .22338, - + .37499, .21180, 2.22381, .19808, .05187, - + -.00001, .12901, .23169, - + .38494, .21532, 2.37671, .20440, .06411, - + .00873, .13846, .23803, - + .39290, .21793, 2.47612, .20937, .07418, - + .02143, .14611, .24294, - + .39936, .21988, 2.53743, .21327, .08255, - + .03188, .15233, .24670, - + .40471, .22136, 2.57382, .21635, .08961, - + .04077, .15748, .24962 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ - + .40914, .22242, 2.59043, .21870, .09556, - + .04834, .16168, .25180, - + .41282, .22320, 2.59341, .22050, .10060, - + .05484, .16514, .25339, - + .41595, .22374, 2.58688, .22186, .10492, - + .06049, .16801, .25454, - + .41858, .22410, 2.57343, .22284, .10864, - + .06543, .17038, .25531, - + .42079, .22429, 2.55420, .22350, .11182, - + .06971, .17231, .25574, - + .42264, .22435, 2.53106, .22389, .11456, - + .07347, .17388, .25590, - + .42422, .22431, 2.50557, .22407, .11693, - + .07680, .17517, .25587 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ - + .42557, .22419, 2.47869, .22411, .11901, - + .07977, .17623, .25569, - + .42667, .22400, 2.44988, .22397, .12079, - + .08239, .17705, .25531, - + .42758, .22374, 2.42023, .22369, .12233, - + .08470, .17767, .25481, - + .42837, .22345, 2.39098, .22336, .12370, - + .08680, .17819, .25426, - + .42895, .22308, 2.36023, .22286, .12482, - + .08861, .17849, .25354 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + .42826, .24381, 1.45878, .14748, .01401, - + .00000, .08629, .18610, - + .44159, .24708, 1.67133, .15305, .02817, - + .00000, .09625, .19108, - + .45065, .24869, 1.78570, .15677, .03872, - + .00000, .10342, .19416, - + .45696, .24928, 1.84207, .15918, .04679, - + .00602, .10866, .19590, - + .46148, .24925, 1.86478, .16069, .05314, - + .01455, .11257, .19676, - + .46469, .24878, 1.86551, .16151, .05820, - + .02134, .11548, .19697, - + .46699, .24802, 1.85339, .16186, .06231, - + .02698, .11768, .19674 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ - + .46851, .24704, 1.83184, .16182, .06561, - + .03164, .11926, .19612, - + .46945, .24592, 1.80461, .16149, .06833, - + .03555, .12040, .19524, - + .46997, .24470, 1.77422, .16096, .07054, - + .03886, .12119, .19416, - + .47014, .24341, 1.74204, .16026, .07237, - + .04168, .12170, .19297, - + .46998, .24207, 1.70847, .15943, .07385, - + .04407, .12198, .19164, - + .46959, .24069, 1.67453, .15849, .07506, - + .04611, .12206, .19023, - + .46904, .23929, 1.64097, .15749, .07606, - + .04788, .12200, .18878 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ - + .46836, .23789, 1.60817, .15644, .07689, - + .04942, .12184, .18731, - + .46751, .23648, 1.57564, .15535, .07753, - + .05074, .12156, .18580, - + .46655, .23508, 1.54390, .15422, .07804, - + .05187, .12120, .18428, - + .46555, .23371, 1.51353, .15310, .07846, - + .05288, .12081, .18279, - + .46441, .23231, 1.48337, .15193, .07874, - + .05371, .12031, .18124 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + .49187, .27376, 1.33138, .12474, .01180, - + .00000, .07496, .16583, - + .49978, .27277, 1.44593, .12714, .02259, - + .00000, .08143, .16674, - + .50407, .27084, 1.48876, .12820, .03028, - + -.00001, .08566, .16644, - + .50614, .26840, 1.49311, .12838, .03590, - + .00440, .08843, .16542, - + .50682, .26573, 1.47736, .12803, .04017, - + .01052, .09025, .16396, - + .50650, .26292, 1.44985, .12727, .04343, - + .01528, .09137, .16218, - + .50556, .26007, 1.41674, .12628, .04597, - + .01913, .09203, .16028 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ - + .50409, .25721, 1.38014, .12512, .04793, - + .02224, .09229, .15822, - + .50225, .25439, 1.34233, .12383, .04946, - + .02480, .09230, .15613, - + .50019, .25160, 1.30461, .12248, .05067, - + .02692, .09211, .15402, - + .49795, .24889, 1.26764, .12108, .05159, - + .02868, .09178, .15191, - + .49554, .24623, 1.23150, .11966, .05229, - + .03013, .09131, .14982, - + .49304, .24364, 1.19661, .11821, .05281, - + .03135, .09076, .14777, - + .49049, .24112, 1.16326, .11678, .05319, - + .03238, .09015, .14575 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ - + .48791, .23868, 1.13155, .11538, .05347, - + .03325, .08950, .14379, - + .48528, .23630, 1.10105, .11399, .05365, - + .03397, .08881, .14186, - + .48264, .23398, 1.07195, .11261, .05374, - + .03458, .08808, .13998, - + .48006, .23175, 1.04452, .11128, .05378, - + .03510, .08736, .13818, - + .47740, .22955, 1.01797, .10994, .05374, - + .03551, .08659, .13638 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + .54079, .29328, 1.21973, .10644, .01005, - + .00000, .06543, .14775, - + .54267, .28808, 1.26726, .10674, .01846, - + -.00001, .06946, .14576, - + .54186, .28274, 1.26477, .10613, .02420, - + -.00001, .07175, .14326, - + .53951, .27750, 1.23856, .10501, .02823, - + .00332, .07295, .14049, - + .53628, .27243, 1.20189, .10361, .03117, - + .00787, .07350, .13764, - + .53248, .26754, 1.16038, .10201, .03333, - + .01132, .07358, .13478, - + .52837, .26287, 1.11801, .10036, .03495, - + .01406, .07338, .13196 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ - + .52405, .25840, 1.07580, .09864, .03614, - + .01623, .07294, .12920, - + .51959, .25413, 1.03497, .09695, .03701, - + .01797, .07236, .12651, - + .51514, .25006, .99610, .09525, .03764, - + .01940, .07168, .12393, - + .51068, .24618, .95936, .09359, .03808, - + .02054, .07094, .12146, - + .50622, .24247, .92456, .09196, .03837, - + .02148, .07015, .11908, - + .50182, .23890, .89180, .09037, .03855, - + .02222, .06932, .11679, - + .49750, .23550, .86112, .08884, .03864, - + .02285, .06848, .11460 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ - + .49328, .23226, .83241, .08736, .03866, - + .02338, .06765, .11251, - + .48909, .22913, .80528, .08592, .03862, - + .02379, .06681, .11047, - + .48499, .22612, .77979, .08453, .03852, - + .02412, .06597, .10853, - + .48104, .22325, .75599, .08319, .03840, - + .02439, .06515, .10669, - + .47709, .22045, .73333, .08188, .03823, - + .02460, .06433, .10489 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + .58579, .30650, 1.09343, .08730, .00823, - + -.00001, .05491, .12655, - + .57987, .29641, 1.08387, .08593, .01449, - + -.00002, .05687, .12229, - + .57267, .28727, 1.04605, .08412, .01855, - + -.00001, .05761, .11815, - + .56492, .27897, .99821, .08212, .02127, - + .00239, .05763, .11419, - + .55703, .27135, .94839, .08007, .02317, - + .00563, .05727, .11046, - + .54911, .26430, .89948, .07802, .02447, - + .00801, .05664, .10694, - + .54137, .25779, .85343, .07604, .02540, - + .00986, .05588, .10364 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ - + .53379, .25169, .81027, .07410, .02602, - + .01129, .05502, .10056, - + .52640, .24602, .77034, .07224, .02642, - + .01242, .05410, .09768, - + .51928, .24071, .73358, .07048, .02667, - + .01330, .05318, .09494, - + .51242, .23572, .69979, .06877, .02681, - + .01401, .05224, .09242, - + .50574, .23103, .66859, .06717, .02685, - + .01456, .05131, .08999, - + .49930, .22658, .63982, .06563, .02680, - + .01500, .05040, .08772, - + .49310, .22238, .61333, .06416, .02672, - + .01535, .04950, .08559 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ - + .48716, .21841, .58891, .06277, .02660, - + .01563, .04863, .08358, - + .48136, .21462, .56620, .06144, .02645, - + .01583, .04777, .08165, - + .47576, .21102, .54513, .06017, .02627, - + .01598, .04695, .07983, - + .47040, .20761, .52563, .05896, .02608, - + .01609, .04617, .07811, - + .46514, .20431, .50731, .05780, .02586, - + .01617, .04538, .07646 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + .61639, .31015, .97735, .07105, .00671, - + -.00003, .04558, .10674, - + .60283, .29579, .93029, .06878, .01144, - + -.00002, .04624, .10124, - + .58951, .28347, .87186, .06639, .01436, - + -.00002, .04606, .09633, - + .57672, .27267, .81324, .06403, .01622, - + .00176, .04545, .09193, - + .56455, .26302, .75833, .06178, .01744, - + .00410, .04462, .08795, - + .55293, .25432, .70798, .05965, .01824, - + .00581, .04368, .08430, - + .54196, .24642, .66266, .05764, .01876, - + .00709, .04269, .08099 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ - + .53154, .23915, .62176, .05574, .01907, - + .00807, .04169, .07794, - + .52164, .23246, .58496, .05397, .01922, - + .00882, .04069, .07514, - + .51227, .22627, .55188, .05231, .01928, - + .00939, .03971, .07255, - + .50337, .22054, .52204, .05076, .01926, - + .00982, .03877, .07017, - + .49487, .21518, .49498, .04929, .01918, - + .01017, .03786, .06796, - + .48677, .21015, .47040, .04791, .01905, - + .01043, .03697, .06589, - + .47905, .20545, .44806, .04661, .01890, - + .01062, .03614, .06395 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ - + .47170, .20105, .42771, .04540, .01874, - + .01076, .03535, .06214, - + .46464, .19687, .40900, .04425, .01855, - + .01087, .03456, .06044, - + .45788, .19291, .39182, .04316, .01835, - + .01094, .03382, .05885, - + .45144, .18917, .37606, .04213, .01814, - + .01099, .03311, .05736, - + .44519, .18559, .36138, .04114, .01793, - + .01100, .03243, .05594 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + .63523, .30654, .86961, .05721, .00543, - + .00000, .03732, .08851, - + .61435, .28874, .79857, .05456, .00898, - + -.00002, .03716, .08257, - + .59535, .27391, .72901, .05204, .01108, - + -.00001, .03646, .07751, - + .57798, .26123, .66619, .04967, .01235, - + .00130, .03554, .07310, - + .56201, .25008, .61088, .04747, .01314, - + .00301, .03452, .06926, - + .54717, .24020, .56227, .04546, .01361, - + .00423, .03349, .06579, - + .53346, .23131, .51989, .04359, .01389, - + .00513, .03246, .06270 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ - + .52063, .22324, .48264, .04188, .01401, - + .00580, .03146, .05991, - + .50865, .21590, .44987, .04029, .01404, - + .00629, .03049, .05738, - + .49742, .20919, .42089, .03883, .01400, - + .00667, .02959, .05506, - + .48687, .20299, .39517, .03749, .01391, - + .00694, .02871, .05297, - + .47693, .19726, .37215, .03623, .01378, - + .00716, .02789, .05102, - + .46749, .19193, .35149, .03506, .01362, - + .00731, .02711, .04923, - + .45860, .18696, .33292, .03396, .01346, - + .00741, .02637, .04757 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ - + .45021, .18232, .31616, .03293, .01329, - + .00748, .02568, .04603, - + .44219, .17794, .30090, .03197, .01311, - + .00753, .02501, .04459, - + .43455, .17383, .28700, .03107, .01292, - + .00755, .02438, .04325, - + .42731, .16998, .27431, .03023, .01273, - + .00755, .02379, .04200, - + .42034, .16630, .26262, .02943, .01255, - + .00754, .02321, .04081 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + .64422, .29750, .76936, .04549, .00435, - + -.00002, .03010, .07212, - + .61664, .27696, .68396, .04279, .00703, - + -.00001, .02950, .06631, - + .59253, .26023, .60959, .04035, .00855, - + -.00002, .02858, .06146, - + .57114, .24618, .54670, .03813, .00943, - + .00096, .02756, .05738, - + .55190, .23402, .49364, .03613, .00994, - + .00224, .02651, .05387, - + .53432, .22333, .44850, .03433, .01021, - + .00310, .02551, .05076, - + .51831, .21385, .41007, .03271, .01034, - + .00376, .02455, .04802 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ - + .50346, .20538, .37703, .03123, .01037, - + .00422, .02363, .04558, - + .48978, .19767, .34840, .02988, .01032, - + .00456, .02277, .04341, - + .47711, .19066, .32346, .02863, .01023, - + .00479, .02197, .04145, - + .46530, .18425, .30164, .02751, .01013, - + .00499, .02122, .03963, - + .45424, .17836, .28232, .02646, .00999, - + .00512, .02051, .03800, - + .44382, .17291, .26518, .02550, .00984, - + .00520, .01986, .03649, - + .43406, .16785, .24992, .02460, .00968, - + .00525, .01924, .03513 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ - + .42489, .16316, .23624, .02376, .00953, - + .00528, .01865, .03387, - + .41617, .15879, .22388, .02299, .00936, - + .00531, .01810, .03268, - + .40793, .15466, .21268, .02227, .00920, - + .00531, .01759, .03158, - + .40016, .15080, .20252, .02158, .00904, - + .00530, .01711, .03057, - + .39266, .14716, .19326, .02096, .00887, - + .00528, .01665, .02960 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + .64496, .28436, .67635, .03567, .00344, - + -.00002, .02392, .05780, - + .61133, .26181, .58367, .03314, .00548, - + -.00001, .02313, .05239, - + .58276, .24379, .50885, .03090, .00659, - + -.00002, .02215, .04803, - + .55790, .22885, .44847, .02894, .00719, - + .00073, .02116, .04441, - + .53585, .21612, .39921, .02722, .00752, - + .00169, .02019, .04133, - + .51603, .20501, .35834, .02567, .00767, - + .00233, .01928, .03867, - + .49812, .19529, .32430, .02430, .00772, - + .00278, .01844, .03633 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ - + .48183, .18653, .29548, .02306, .00767, - + .00310, .01764, .03431, - + .46680, .17875, .27090, .02195, .00761, - + .00333, .01691, .03247, - + .45302, .17173, .24978, .02094, .00750, - + .00350, .01623, .03082, - + .44022, .16533, .23147, .02002, .00738, - + .00362, .01560, .02936, - + .42834, .15945, .21548, .01919, .00726, - + .00369, .01502, .02801, - + .41723, .15406, .20137, .01842, .00712, - + .00374, .01447, .02681, - + .40688, .14907, .18889, .01771, .00698, - + .00377, .01396, .02570 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ - + .39720, .14445, .17779, .01704, .00684, - + .00378, .01350, .02469, - + .38802, .14016, .16785, .01644, .00671, - + .00378, .01305, .02375, - + .37938, .13616, .15889, .01587, .00658, - + .00378, .01264, .02287, - + .37126, .13242, .15079, .01535, .00645, - + .00377, .01226, .02206, - + .36346, .12890, .14346, .01486, .00631, - + .00374, .01190, .02130 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + .63875, .26823, .59057, .02754, .00271, - + .00003, .01874, .04554, - + .59976, .24443, .49587, .02530, .00423, - + .00003, .01787, .04078, - + .56729, .22570, .42353, .02341, .00502, - + .00003, .01694, .03697, - + .53954, .21035, .36732, .02176, .00542, - + .00059, .01602, .03390, - + .51524, .19740, .32261, .02033, .00561, - + .00128, .01518, .03130, - + .49368, .18618, .28641, .01904, .00569, - + .00170, .01439, .02910, - + .47436, .17641, .25669, .01792, .00569, - + .00204, .01368, .02717 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ - + .45680, .16778, .23201, .01694, .00566, - + .00224, .01301, .02548, - + .44087, .16009, .21115, .01605, .00557, - + .00242, .01241, .02399, - + .42630, .15314, .19347, .01523, .00547, - + .00251, .01185, .02270, - + .41293, .14686, .17828, .01449, .00536, - + .00259, .01136, .02152, - + .40048, .14118, .16508, .01385, .00525, - + .00263, .01088, .02044, - + .38895, .13596, .15356, .01325, .00513, - + .00266, .01045, .01948, - + .37823, .13117, .14346, .01269, .00501, - + .00268, .01006, .01860 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ - + .36823, .12674, .13453, .01217, .00490, - + .00268, .00969, .01781, - + .35883, .12263, .12656, .01170, .00479, - + .00268, .00934, .01709, - + .35001, .11881, .11943, .01126, .00468, - + .00266, .00902, .01642, - + .34175, .11525, .11302, .01085, .00456, - + .00263, .00871, .01581, - + .33389, .11191, .10723, .01047, .00447, - + .00261, .00844, .01521 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + .62640, .25042, .51214, .02119, .00197, - + -.00016, .01431, .03526, - + .58288, .22591, .41908, .01926, .00314, - + -.00013, .01353, .03119, - + .54732, .20682, .35111, .01763, .00373, - + -.00012, .01270, .02804, - + .51728, .19140, .29990, .01624, .00402, - + .00031, .01195, .02548, - + .49129, .17848, .26016, .01505, .00414, - + .00083, .01123, .02340, - + .46836, .16744, .22856, .01402, .00418, - + .00118, .01061, .02156, - + .44799, .15787, .20305, .01314, .00417, - + .00142, .01001, .02004 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ - + .42969, .14946, .18212, .01233, .00409, - + .00160, .00948, .01872, - + .41311, .14200, .16466, .01165, .00402, - + .00171, .00901, .01753, - + .39807, .13534, .14995, .01102, .00394, - + .00179, .00857, .01649, - + .38430, .12932, .13747, .01044, .00386, - + .00183, .00817, .01557, - + .37162, .12390, .12672, .00992, .00377, - + .00185, .00780, .01474, - + .35989, .11893, .11740, .00944, .00367, - + .00188, .00747, .01401, - + .34902, .11439, .10926, .00903, .00358, - + .00188, .00716, .01333 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ - + .33891, .11023, .10210, .00866, .00348, - + .00188, .00688, .01270, - + .32944, .10638, .09575, .00830, .00339, - + .00188, .00661, .01216, - + .32059, .10280, .09010, .00797, .00331, - + .00186, .00637, .01165, - + .31231, .09948, .08504, .00766, .00322, - + .00185, .00616, .01117, - + .30445, .09638, .08048, .00739, .00314, - + .00184, .00594, .01074 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + .60932, .23092, .44037, .01580, .00157, - + -.00006, .01088, .02687, - + .56198, .20631, .35179, .01425, .00241, - + -.00002, .01017, .02352, - + .52382, .18742, .28943, .01295, .00282, - + -.00002, .00948, .02094, - + .49200, .17226, .24373, .01187, .00301, - + .00028, .00884, .01888, - + .46468, .15970, .20899, .01096, .00308, - + .00067, .00827, .01720, - + .44084, .14903, .18183, .01014, .00308, - + .00091, .00775, .01578, - + .41983, .13983, .16015, .00945, .00305, - + .00107, .00729, .01458 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ - + .40107, .13179, .14261, .00883, .00300, - + .00117, .00686, .01353, - + .38414, .12471, .12817, .00832, .00293, - + .00125, .00648, .01264, - + .36887, .11841, .11609, .00783, .00285, - + .00130, .00615, .01183, - + .35498, .11275, .10590, .00739, .00278, - + .00133, .00584, .01114, - + .34225, .10765, .09721, .00697, .00271, - + .00134, .00555, .01052, - + .33049, .10304, .08972, .00664, .00262, - + .00135, .00530, .00995, - + .31964, .09883, .08320, .00634, .00255, - + .00136, .00507, .00943 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ - + .30960, .09497, .07750, .00607, .00248, - + .00136, .00486, .00896, - + .30024, .09140, .07248, .00580, .00241, - + .00133, .00465, .00855, - + .29149, .08812, .06803, .00556, .00235, - + .00132, .00447, .00816, - + .28335, .08508, .06405, .00534, .00229, - + .00132, .00431, .00780, - + .27566, .08224, .06048, .00512, .00222, - + .00130, .00415, .00750 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + .58796, .21096, .37575, .01170, .00115, - + -.00005, .00810, .02014, - + .53760, .18669, .29335, .01046, .00179, - + -.00003, .00752, .01741, - + .49752, .16826, .23723, .00942, .00208, - + -.00004, .00695, .01540, - + .46443, .15365, .19708, .00859, .00222, - + .00021, .00645, .01377, - + .43634, .14161, .16714, .00788, .00226, - + .00048, .00599, .01245, - + .41198, .13144, .14407, .00726, .00224, - + .00065, .00559, .01137, - + .39062, .12274, .12596, .00675, .00223, - + .00078, .00522, .01043 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ - + .37165, .11520, .11138, .00627, .00217, - + .00085, .00490, .00968, - + .35471, .10858, .09954, .00586, .00210, - + .00091, .00461, .00901, - + .33944, .10272, .08970, .00551, .00206, - + .00093, .00435, .00840, - + .32561, .09749, .08148, .00519, .00199, - + .00095, .00411, .00787, - + .31302, .09278, .07447, .00490, .00192, - + .00097, .00391, .00739, - + .30143, .08852, .06850, .00465, .00187, - + .00096, .00372, .00696, - + .29079, .08466, .06334, .00441, .00181, - + .00096, .00354, .00658 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ - + .28097, .08113, .05883, .00420, .00175, - + .00095, .00338, .00624, - + .27180, .07790, .05487, .00402, .00170, - + .00094, .00324, .00593, - + .26328, .07491, .05138, .00385, .00165, - + .00093, .00310, .00566, - + .25538, .07216, .04827, .00368, .00159, - + .00091, .00297, .00540, - + .24792, .06960, .04549, .00353, .00155, - + .00091, .00286, .00517 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + .56318, .19080, .31781, .00847, .00088, - + -.00001, .00596, .01481, - + .51055, .16727, .24276, .00749, .00134, - + .00000, .00548, .01272, - + .46914, .14961, .19310, .00672, .00155, - + .00000, .00504, .01112, - + .43532, .13574, .15838, .00610, .00162, - + .00017, .00464, .00989, - + .40681, .12439, .13294, .00556, .00165, - + .00037, .00429, .00889, - + .38226, .11485, .11361, .00511, .00164, - + .00050, .00398, .00807, - + .36088, .10678, .09859, .00471, .00159, - + .00057, .00371, .00738 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ - + .34204, .09978, .08666, .00439, .00157, - + .00063, .00347, .00679, - + .32526, .09369, .07700, .00409, .00152, - + .00067, .00325, .00628, - + .31025, .08829, .06908, .00380, .00147, - + .00068, .00306, .00585, - + .29667, .08351, .06250, .00357, .00141, - + .00069, .00288, .00548, - + .28431, .07924, .05695, .00337, .00136, - + .00069, .00272, .00513, - + .27303, .07537, .05220, .00319, .00131, - + .00068, .00258, .00483, - + .26270, .07188, .04811, .00302, .00127, - + .00068, .00245, .00456 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ - + .25319, .06871, .04457, .00288, .00123, - + .00068, .00233, .00431, - + .24438, .06580, .04147, .00275, .00119, - + .00068, .00223, .00408, - + .23620, .06313, .03874, .00262, .00115, - + .00067, .00213, .00388, - + .22861, .06069, .03632, .00251, .00111, - + .00065, .00205, .00370, - + .22149, .05840, .03417, .00241, .00108, - + .00063, .00196, .00351 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + .53559, .17087, .26629, .00595, .00066, - + .00007, .00435, .01070, - + .48141, .14845, .19919, .00526, .00101, - + .00006, .00397, .00909, - + .43925, .13179, .15599, .00471, .00116, - + .00006, .00361, .00788, - + .40517, .11877, .12641, .00422, .00120, - + .00016, .00330, .00697, - + .37662, .10824, .10504, .00383, .00120, - + .00030, .00304, .00624, - + .35224, .09944, .08905, .00351, .00119, - + .00038, .00281, .00563, - + .33113, .09201, .07673, .00323, .00115, - + .00043, .00260, .00512 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ - + .31257, .08562, .06707, .00301, .00112, - + .00047, .00243, .00470, - + .29616, .08007, .05932, .00278, .00108, - + .00049, .00227, .00434, - + .28153, .07521, .05298, .00260, .00105, - + .00051, .00213, .00402, - + .26835, .07091, .04774, .00245, .00100, - + .00050, .00200, .00373, - + .25645, .06706, .04333, .00229, .00096, - + .00050, .00188, .00349, - + .24559, .06360, .03962, .00216, .00093, - + .00050, .00178, .00329, - + .23568, .06048, .03643, .00204, .00090, - + .00050, .00169, .00310 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ - + .22660, .05766, .03367, .00193, .00087, - + .00050, .00161, .00292, - + .21821, .05507, .03127, .00184, .00084, - + .00049, .00153, .00276, - + .21042, .05271, .02916, .00176, .00081, - + .00047, .00146, .00261, - + .20322, .05055, .02728, .00168, .00078, - + .00046, .00140, .00249, - + .19650, .04855, .02562, .00160, .00076, - + .00045, .00134, .00236 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + .50571, .15175, .22109, .00423, .00048, - + .00002, .00305, .00757, - + .45077, .13062, .16210, .00368, .00071, - + .00001, .00277, .00639, - + .40840, .11509, .12506, .00330, .00082, - + .00000, .00251, .00548, - + .37447, .10306, .10017, .00293, .00083, - + .00010, .00229, .00485, - + .34630, .09336, .08246, .00263, .00085, - + .00021, .00210, .00432, - + .32236, .08534, .06938, .00240, .00083, - + .00026, .00194, .00387, - + .30172, .07861, .05942, .00223, .00080, - + .00030, .00178, .00350 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ - + .28373, .07285, .05166, .00204, .00078, - + .00032, .00166, .00320, - + .26789, .06786, .04547, .00189, .00075, - + .00034, .00153, .00295, - + .25376, .06353, .04047, .00177, .00072, - + .00035, .00144, .00272, - + .24118, .05969, .03634, .00164, .00069, - + .00035, .00135, .00251, - + .22980, .05627, .03290, .00154, .00067, - + .00035, .00128, .00236, - + .21943, .05322, .02998, .00146, .00064, - + .00034, .00120, .00221, - + .21004, .05047, .02750, .00138, .00061, - + .00034, .00113, .00206 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ - + .20147, .04800, .02536, .00130, .00059, - + .00033, .00108, .00193, - + .19353, .04573, .02351, .00126, .00057, - + .00034, .00103, .00182, - + .18623, .04367, .02189, .00119, .00055, - + .00033, .00098, .00173, - + .17951, .04178, .02045, .00111, .00053, - + .00032, .00093, .00165, - + .17322, .04003, .01917, .00106, .00051, - + .00031, .00089, .00157 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + .47421, .13340, .18164, .00289, .00036, - + .00004, .00212, .00526, - + .41911, .11381, .13071, .00253, .00051, - + .00003, .00191, .00439, - + .37711, .09955, .09942, .00225, .00056, - + .00004, .00171, .00377, - + .34370, .08860, .07876, .00203, .00058, - + .00008, .00155, .00328, - + .31614, .07981, .06429, .00183, .00056, - + .00015, .00140, .00293, - + .29289, .07260, .05371, .00166, .00057, - + .00017, .00129, .00261, - + .27302, .06656, .04573, .00153, .00054, - + .00021, .00119, .00236 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ - + .25573, .06143, .03957, .00142, .00053, - + .00021, .00110, .00213, - + .24059, .05701, .03469, .00130, .00050, - + .00022, .00102, .00195, - + .22714, .05319, .03076, .00122, .00048, - + .00023, .00095, .00179, - + .21520, .04979, .02753, .00113, .00046, - + .00022, .00089, .00167, - + .20441, .04681, .02486, .00108, .00045, - + .00024, .00084, .00155, - + .19470, .04414, .02261, .00101, .00043, - + .00023, .00079, .00145, - + .18588, .04175, .02070, .00095, .00041, - + .00022, .00074, .00136 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ - + .17784, .03960, .01905, .00091, .00040, - + .00022, .00070, .00128, - + .17045, .03763, .01762, .00085, .00037, - + .00022, .00066, .00121, - + .16365, .03585, .01638, .00082, .00036, - + .00021, .00063, .00114, - + .15739, .03423, .01528, .00080, .00035, - + .00021, .00060, .00107, - + .15156, .03272, .01430, .00075, .00033, - + .00020, .00057, .00102 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + .44146, .11606, .14756, .00191, .00027, - + .00004, .00147, .00357, - + .38687, .09810, .10416, .00165, .00037, - + .00003, .00131, .00297, - + .34562, .08514, .07812, .00147, .00041, - + .00004, .00118, .00253, - + .31312, .07527, .06125, .00130, .00042, - + .00008, .00106, .00221, - + .28652, .06743, .04958, .00117, .00042, - + .00013, .00097, .00194, - + .26416, .06102, .04114, .00106, .00041, - + .00015, .00088, .00173, - + .24516, .05569, .03483, .00097, .00039, - + .00015, .00081, .00155 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ - + .22874, .05118, .03000, .00088, .00037, - + .00017, .00074, .00140, - + .21437, .04732, .02620, .00081, .00035, - + .00017, .00068, .00129, - + .20173, .04396, .02315, .00074, .00034, - + .00017, .00064, .00119, - + .19047, .04105, .02067, .00072, .00032, - + .00017, .00060, .00109, - + .18042, .03845, .01861, .00067, .00031, - + .00018, .00057, .00101, - + .17137, .03615, .01689, .00063, .00030, - + .00017, .00053, .00095, - + .16316, .03409, .01543, .00060, .00028, - + .00017, .00050, .00089 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ - + .15570, .03224, .01418, .00057, .00027, - + .00016, .00047, .00082, - + .14887, .03057, .01309, .00054, .00027, - + .00016, .00045, .00077, - + .14261, .02904, .01215, .00051, .00026, - + .00015, .00042, .00073, - + .13687, .02766, .01131, .00047, .00024, - + .00015, .00040, .00070, - + .13151, .02639, .01058, .00045, .00023, - + .00015, .00039, .00067 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + .40805, .09996, .11838, .00125, .00019, - + .00004, .00099, .00237, - + .35448, .08370, .08205, .00105, .00027, - + .00003, .00088, .00195, - + .31446, .07207, .06072, .00090, .00030, - + .00003, .00079, .00166, - + .28308, .06329, .04713, .00083, .00031, - + .00005, .00072, .00142, - + .25758, .05637, .03784, .00075, .00032, - + .00009, .00066, .00122, - + .23633, .05074, .03121, .00066, .00030, - + .00012, .00060, .00111, - + .21836, .04610, .02630, .00059, .00029, - + .00013, .00056, .00099 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ - + .20290, .04217, .02255, .00054, .00028, - + .00013, .00051, .00089, - + .18946, .03882, .01962, .00049, .00026, - + .00013, .00047, .00080, - + .17767, .03594, .01729, .00046, .00026, - + .00015, .00044, .00075, - + .16726, .03342, .01539, .00042, .00025, - + .00013, .00041, .00068, - + .15795, .03122, .01383, .00039, .00023, - + .00013, .00038, .00063, - + .14959, .02926, .01252, .00036, .00021, - + .00013, .00036, .00058, - + .14204, .02752, .01142, .00034, .00021, - + .00013, .00034, .00055 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ - + .13520, .02596, .01048, .00033, .00020, - + .00013, .00032, .00051, - + .12895, .02454, .00966, .00031, .00019, - + .00012, .00030, .00048, - + .12324, .02326, .00895, .00030, .00018, - + .00012, .00029, .00045, - + .11801, .02210, .00833, .00028, .00018, - + .00011, .00028, .00043, - + .11316, .02104, .00778, .00026, .00017, - + .00012, .00026, .00041 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + .37440, .08535, .09398, .00088, .00008, - + -.00002, .00061, .00155, - + .32246, .07078, .06405, .00074, .00014, - + -.00002, .00053, .00128, - + .28401, .06051, .04686, .00065, .00016, - + -.00001, .00048, .00107, - + .25415, .05280, .03603, .00058, .00017, - + .00002, .00043, .00091, - + .23001, .04677, .02875, .00052, .00017, - + .00003, .00040, .00079, - + .21002, .04190, .02358, .00047, .00016, - + .00005, .00036, .00071, - + .19325, .03787, .01978, .00042, .00016, - + .00005, .00032, .00064 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ - + .17884, .03451, .01691, .00038, .00015, - + .00006, .00029, .00059, - + .16638, .03165, .01467, .00035, .00014, - + .00006, .00028, .00051, - + .15548, .02921, .01290, .00034, .00014, - + .00006, .00025, .00047, - + .14590, .02708, .01146, .00032, .00013, - + .00007, .00024, .00042, - + .13735, .02521, .01028, .00030, .00012, - + .00007, .00022, .00040, - + .12970, .02356, .00930, .00029, .00012, - + .00007, .00020, .00038, - + .12285, .02209, .00847, .00026, .00012, - + .00007, .00019, .00036 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ - + .11667, .02078, .00775, .00024, .00011, - + .00006, .00018, .00034, - + .11100, .01960, .00714, .00023, .00010, - + .00006, .00017, .00031, - + .10584, .01854, .00661, .00022, .00010, - + .00006, .00016, .00029, - + .10114, .01758, .00614, .00021, .00010, - + .00006, .00015, .00027, - + .09678, .01670, .00573, .00020, .00009, - + .00005, .00014, .00026 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + .34063, .07174, .07332, .00046, .00009, - + .00004, .00042, .00098, - + .29073, .05898, .04917, .00041, .00012, - + .00004, .00037, .00080, - + .25417, .05002, .03554, .00036, .00013, - + .00003, .00032, .00067, - + .22597, .04337, .02712, .00035, .00013, - + .00004, .00029, .00055, - + .20341, .03818, .02149, .00029, .00013, - + .00004, .00026, .00049, - + .18479, .03402, .01755, .00029, .00012, - + .00006, .00023, .00043, - + .16927, .03061, .01465, .00024, .00011, - + .00006, .00021, .00039 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ - + .15597, .02779, .01248, .00023, .00011, - + .00006, .00020, .00036, - + .14455, .02538, .01080, .00021, .00010, - + .00006, .00018, .00032, - + .13460, .02333, .00948, .00020, .00010, - + .00005, .00016, .00028, - + .12590, .02156, .00840, .00018, .00009, - + .00005, .00015, .00027, - + .11816, .01999, .00753, .00017, .00009, - + .00005, .00014, .00025, - + .11128, .01863, .00679, .00015, .00008, - + .00005, .00013, .00023, - + .10509, .01742, .00618, .00014, .00008, - + .00005, .00012, .00022 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ - + .09951, .01635, .00565, .00014, .00008, - + .00004, .00012, .00020, - + .09444, .01539, .00519, .00014, .00007, - + .00005, .00011, .00019, - + .08984, .01451, .00480, .00013, .00006, - + .00004, .00010, .00018, - + .08566, .01372, .00446, .00012, .00006, - + .00004, .00010, .00018, - + .08178, .01301, .00415, .00012, .00006, - + .00004, .00009, .00016 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + .30727, .05962, .05637, .00025, .00008, - + .00005, .00028, .00059, - + .25985, .04854, .03719, .00023, .00010, - + .00006, .00024, .00046, - + .22545, .04084, .02659, .00020, .00011, - + .00004, .00022, .00038, - + .19917, .03516, .02012, .00018, .00009, - + .00003, .00019, .00032, - + .17827, .03076, .01585, .00015, .00009, - + .00005, .00017, .00029, - + .16111, .02726, .01287, .00014, .00009, - + .00005, .00016, .00027, - + .14682, .02442, .01072, .00015, .00008, - + .00005, .00014, .00023 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ - + .13477, .02205, .00911, .00011, .00007, - + .00005, .00012, .00022, - + .12440, .02006, .00786, .00010, .00007, - + .00005, .00012, .00019, - + .11540, .01837, .00688, .00011, .00007, - + .00004, .00010, .00017, - + .10756, .01690, .00609, .00009, .00006, - + .00004, .00010, .00016, - + .10064, .01564, .00545, .00008, .00006, - + .00004, .00010, .00015, - + .09446, .01452, .00491, .00009, .00006, - + .00004, .00009, .00014, - + .08895, .01354, .00446, .00009, .00005, - + .00004, .00008, .00013 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ - + .08401, .01266, .00407, .00008, .00005, - + .00004, .00008, .00012, - + .07955, .01189, .00374, .00007, .00005, - + .00004, .00007, .00011, - + .07548, .01119, .00345, .00007, .00005, - + .00003, .00007, .00010, - + .07179, .01056, .00320, .00007, .00005, - + .00003, .00007, .00008, - + .06838, .00998, .00298, .00007, .00005, - + .00003, .00006, .00008 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + .27482, .04901, .04270, .00019, .00004, - + .00001, .00015, .00034, - + .23029, .03951, .02777, .00016, .00003, - + .00001, .00013, .00029, - + .19829, .03296, .01966, .00013, .00004, - + .00000, .00012, .00024, - + .17401, .02819, .01477, .00013, .00004, - + .00001, .00010, .00020, - + .15481, .02452, .01158, .00011, .00004, - + .00001, .00008, .00018, - + .13921, .02162, .00938, .00010, .00004, - + .00001, .00008, .00016, - + .12628, .01926, .00778, .00009, .00004, - + .00001, .00007, .00014 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ - + .11537, .01732, .00660, .00011, .00004, - + .00002, .00007, .00012, - + .10607, .01569, .00569, .00009, .00004, - + .00002, .00006, .00010, - + .09807, .01431, .00497, .00007, .00003, - + .00002, .00005, .00010, - + .09107, .01312, .00439, .00007, .00003, - + .00002, .00005, .00010, - + .08493, .01209, .00392, .00007, .00003, - + .00002, .00005, .00009, - + .07948, .01120, .00353, .00008, .00003, - + .00002, .00004, .00007, - + .07463, .01041, .00320, .00008, .00003, - + .00002, .00004, .00007 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ - + .07029, .00971, .00292, .00007, .00003, - + .00002, .00004, .00006, - + .06639, .00909, .00268, .00006, .00002, - + .00002, .00003, .00005, - + .06284, .00853, .00247, .00006, .00002, - + .00001, .00003, .00005, - + .05962, .00803, .00229, .00006, .00002, - + .00001, .00003, .00005, - + .05668, .00757, .00213, .00005, .00002, - + .00001, .00003, .00005 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + .24312, .03954, .03163, .00006, .00005, - + .00005, .00011, .00019, - + .20172, .03154, .02027, .00005, .00004, - + .00004, .00010, .00016, - + .17229, .02611, .01422, .00005, .00004, - + .00003, .00009, .00012, - + .15014, .02217, .01062, .00006, .00004, - + .00003, .00007, .00011, - + .13277, .01915, .00829, .00005, .00004, - + .00003, .00006, .00009, - + .11873, .01679, .00669, .00003, .00003, - + .00003, .00005, .00009, - + .10715, .01488, .00554, .00005, .00004, - + .00002, .00005, .00007 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ - + .09746, .01331, .00468, .00005, .00003, - + .00003, .00005, .00007, - + .08923, .01201, .00403, .00003, .00003, - + .00002, .00004, .00007, - + .08216, .01091, .00352, .00003, .00003, - + .00002, .00004, .00005, - + .07603, .00996, .00310, .00003, .00003, - + .00002, .00004, .00005, - + .07065, .00915, .00277, .00002, .00003, - + .00002, .00003, .00005, - + .06590, .00845, .00249, .00004, .00002, - + .00002, .00003, .00004, - + .06170, .00783, .00225, .00003, .00002, - + .00002, .00003, .00004 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ - + .05795, .00728, .00205, .00002, .00002, - + .00002, .00003, .00004, - + .05456, .00679, .00188, .00003, .00002, - + .00002, .00003, .00004, - + .05151, .00636, .00173, .00003, .00002, - + .00002, .00003, .00004, - + .04876, .00597, .00160, .00002, .00002, - + .00001, .00003, .00003, - + .04625, .00561, .00149, .00001, .00002, - + .00001, .00002, .00003 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + .18417, .02457, .01633, .00002, .00000, - + .00000, .00002, .00008, - + .14970, .01918, .01021, .00001, .00001, - + .00000, .00002, .00005, - + .12567, .01559, .00706, .00001, .00001, - + .00000, .00002, .00004, - + .10792, .01303, .00523, .00002, .00001, - + .00000, .00002, .00003, - + .09421, .01111, .00405, .00001, .00001, - + .00001, .00002, .00003, - + .08327, .00962, .00326, .00001, .00001, - + .00001, .00002, .00002, - + .07437, .00843, .00269, .00001, .00001, - + .00001, .00002, .00001 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ - + .06700, .00747, .00227, .00001, .00001, - + .00001, .00002, .00001, - + .06078, .00667, .00195, .00001, .00001, - + .00001, .00001, .00002, - + .05551, .00601, .00169, .00001, .00001, - + .00001, .00001, .00002, - + .05097, .00545, .00149, .00001, .00001, - + .00001, .00001, .00002, - + .04703, .00497, .00133, .00001, .00001, - + .00001, .00001, .00001, - + .04358, .00455, .00119, .00001, .00001, - + .00001, .00001, .00001, - + .04053, .00419, .00107, .00001, .00001, - + .00001, .00001, .00001 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ - + .03783, .00387, .00098, .00001, .00001, - + .00001, .00001, .00001, - + .03541, .00359, .00089, .00001, .00001, - + .00001, .00001, .00001, - + .03325, .00334, .00082, .00001, .00001, - + .00001, .00001, .00001, - + .03131, .00312, .00076, .00001, .00001, - + .00001, .00001, .00001, - + .02955, .00292, .00070, .00000, .00001, - + .00001, .00001, .00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + .13190, .01400, .00755, .00002, -.00001, - + -.00001, .00000, .00002, - + .10480, .01068, .00465, .00001, .00000, - + -.00001, .00000, .00001, - + .08636, .00851, .00319, .00000, .00000, - + .00000, .00001, .00001, - + .07296, .00700, .00236, .00002, .00000, - + .00000, .00000, .00000, - + .06280, .00588, .00182, .00001, .00000, - + .00000, .00000, .00000, - + .05480, .00502, .00147, .00001, .00000, - + .00000, .00000, .00001, - + .04839, .00435, .00121, .00000, .00000, - + .00000, .00000, .00001 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ - + .04312, .00381, .00102, .00000, .00000, - + .00000, .00000, .00000, - + .03874, .00338, .00087, .00001, .00000, - + .00000, .00000, .00000, - + .03507, .00301, .00076, .00000, .00000, - + .00000, .00000, .00001, - + .03193, .00270, .00066, .00000, .00000, - + .00000, .00000, .00001, - + .02922, .00245, .00059, .00001, .00000, - + .00000, .00000, .00000, - + .02687, .00222, .00053, .00000, .00000, - + .00000, .00000, .00000, - + .02482, .00203, .00047, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ - + .02301, .00186, .00043, .00000, .00000, - + .00000, .00000, .00000, - + .02140, .00172, .00039, .00000, .00000, - + .00000, .00000, .00000, - + .01998, .00159, .00036, .00000, .00000, - + .00000, .00000, .00000, - + .01870, .00148, .00033, .00000, .00000, - + .00000, .00000, .00000, - + .01755, .00137, .00030, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + .08773, .00712, .00302, .00001, -.00001, - + -.00001, -.00001, .00001, - + .06793, .00529, .00186, .00001, .00000, - + -.00001, .00000, .00001, - + .05478, .00413, .00128, .00001, .00000, - + -.00001, .00000, .00000, - + .04545, .00333, .00095, .00001, -.00001, - + -.00001, .00000, .00000, - + .03849, .00275, .00074, .00001, .00000, - + .00000, .00000, .00000, - + .03311, .00232, .00059, .00000, .00000, - + .00000, .00000, .00000, - + .02884, .00198, .00049, .00001, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ - + .02541, .00171, .00041, .00000, .00000, - + .00000, .00000, .00000, - + .02258, .00150, .00035, .00000, .00000, - + .00000, .00000, .00000, - + .02022, .00132, .00030, .00000, .00000, - + .00000, .00000, .00000, - + .01823, .00118, .00027, .00000, .00000, - + .00000, .00000, .00000, - + .01654, .00105, .00023, .00000, .00000, - + .00000, .00000, .00000, - + .01508, .00095, .00021, .00000, .00000, - + .00000, .00000, .00000, - + .01382, .00086, .00019, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ - + .01271, .00078, .00017, .00000, .00000, - + .00000, .00000, .00000, - + .01174, .00072, .00015, .00000, .00000, - + .00000, .00000, .00000, - + .01088, .00066, .00014, .00000, .00000, - + .00000, .00000, .00000, - + .01012, .00061, .00013, .00000, .00000, - + .00000, .00000, .00000, - + .00944, .00056, .00012, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + .05234, .00306, .00097, .00000, .00000, - + .00001, .00000, -.00001, - + .03933, .00220, .00062, .00000, .00000, - + .00000, .00000, .00000, - + .03093, .00167, .00043, .00000, .00000, - + .00000, .00000, .00000, - + .02512, .00132, .00033, .00000, .00000, - + .00000, .00000, .00000, - + .02087, .00107, .00025, .00000, .00000, - + .00000, .00000, .00000, - + .01765, .00089, .00020, .00000, .00000, - + .00000, .00000, .00000, - + .01514, .00075, .00017, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ - + .01314, .00064, .00014, .00000, .00000, - + .00000, .00000, .00000, - + .01153, .00055, .00012, .00000, .00000, - + .00000, .00000, .00000, - + .01020, .00048, .00010, .00000, .00000, - + .00000, .00000, .00000, - + .00909, .00042, .00009, .00000, .00000, - + .00000, .00000, .00000, - + .00816, .00037, .00008, .00000, .00000, - + .00000, .00000, .00000, - + .00737, .00033, .00007, .00000, .00000, - + .00000, .00000, .00000, - + .00668, .00030, .00006, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ - + .00610, .00027, .00006, .00000, .00000, - + .00000, .00000, .00000, - + .00558, .00025, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00513, .00022, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00473, .00020, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00438, .00019, .00004, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + .00998, .00021, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00686, .00014, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00501, .00010, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00382, .00007, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00300, .00006, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00241, .00004, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00198, .00004, .00001, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ - + .00165, .00003, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00139, .00002, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00119, .00002, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00102, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00089, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00078, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00069, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ - + .00061, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00055, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00049, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00044, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00040, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,5,9,0,0,9,9/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - xsave=x -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(38,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7) GO TO 31 - DO 30 K=1,19 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,8 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) -C - x=xsave -C - RETURN - END diff --git a/PDF/spdf/sfmsqa.F b/PDF/spdf/sfmsqa.F deleted file mode 100644 index 4713e06ced1..00000000000 --- a/PDF/spdf/sfmsqa.F +++ /dev/null @@ -1,788 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.1 1996/10/30 08:32:13 cernlib -* Version 7.04 -* -* Revision 1.2 1996/10/28 15:09:53 pdflib -* PDFLIB new version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:16 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SFMSQA(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) -C -C THIS IS THE NEW "A" FIT -- May 1994 -- low Q^2 range -C -#include "pdf/impdp.inc" -C - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,8),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + 0.00232, 0.00543, 4.23812, 1.92427, 0.00000, - + 0.00000, 0.53025, 1.91803, - + 0.00262, 0.00566, 6.42705, 1.98441, 0.00000, - + 0.00000, 0.62266, 1.97884, - + 0.00289, 0.00586, 9.43898, 2.07363, 0.00000, - + 0.00000, 0.73934, 2.06869, - + 0.00315, 0.00605, 13.16286, 2.19098, 0.00000, - + 0.00000, 0.88050, 2.18663, - + 0.00339, 0.00622, 17.54780, 2.32948, 0.00000, - + 0.00000, 1.04003, 2.32568, - + 0.00362, 0.00638, 22.55753, 2.48780, 0.05952, - + 0.00000, 1.21723, 2.48453, - + 0.00383, 0.00653, 28.15842, 2.66466, 0.26782, - + 0.00000, 1.41125, 2.66188 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + 0.00364, 0.00691, 3.22632, 1.55076, 0.00000, - + 0.00000, 0.42116, 1.54806, - + 0.00407, 0.00722, 5.15995, 1.60401, 0.00000, - + 0.00000, 0.50030, 1.60175, - + 0.00446, 0.00749, 7.71045, 1.67947, 0.00000, - + 0.00000, 0.59775, 1.67760, - + 0.00483, 0.00774, 10.78281, 1.77603, 0.00000, - + 0.00000, 0.71335, 1.77454, - + 0.00516, 0.00797, 14.34431, 1.88827, 0.00000, - + 0.00000, 0.84238, 1.88712, - + 0.00548, 0.00819, 18.35565, 2.01500, 0.04882, - + 0.00000, 0.98416, 2.01418, - + 0.00579, 0.00839, 22.78315, 2.15515, 0.21426, - + 0.00000, 1.13797, 2.15464 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + 0.00558, 0.00879, 2.45661, 1.24947, 0.00000, - + 0.00000, 0.33447, 1.24914, - + 0.00619, 0.00921, 4.14420, 1.29621, 0.00000, - + 0.00000, 0.40201, 1.29616, - + 0.00675, 0.00958, 6.30016, 1.35987, 0.00000, - + 0.00000, 0.48332, 1.36007, - + 0.00727, 0.00991, 8.83462, 1.43927, 0.00000, - + 0.00000, 0.57796, 1.43970, - + 0.00774, 0.01022, 11.72666, 1.53017, 0.00000, - + 0.00000, 0.68229, 1.53081, - + 0.00820, 0.01052, 14.93678, 1.63155, 0.04004, - + 0.00000, 0.79569, 1.63239, - + 0.00862, 0.01079, 18.43334, 1.74251, 0.17137, - + 0.00000, 0.91755, 1.74354 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + 0.00710, 0.01013, 2.09495, 1.10097, 0.00000, - + 0.00000, 0.29229, 1.10164, - + 0.00785, 0.01062, 3.64657, 1.14412, 0.00000, - + 0.00000, 0.35376, 1.14500, - + 0.00854, 0.01106, 5.59929, 1.20168, 0.00000, - + 0.00000, 0.42685, 1.20276, - + 0.00917, 0.01146, 7.86366, 1.27246, 0.00000, - + 0.00000, 0.51103, 1.27372, - + 0.00976, 0.01183, 10.42364, 1.35279, 0.00000, - + 0.00000, 0.60316, 1.35421, - + 0.01031, 0.01218, 13.24045, 1.44172, 0.03565, - + 0.00000, 0.70264, 1.44329, - + 0.01083, 0.01250, 16.28428, 1.53846, 0.15036, - + 0.00000, 0.80894, 1.54017 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + 0.00840, 0.01120, 1.87136, 1.00635, 0.00000, - + 0.00000, 0.26564, 1.00760, - + 0.00927, 0.01175, 3.33089, 1.04705, 0.00000, - + 0.00000, 0.32310, 1.04848, - + 0.01006, 0.01225, 5.15064, 1.10062, 0.00000, - + 0.00000, 0.39086, 1.10222, - + 0.01079, 0.01271, 7.24090, 1.16583, 0.00000, - + 0.00000, 0.46831, 1.16759, - + 0.01147, 0.01312, 9.58839, 1.23939, 0.00000, - + 0.00000, 0.55265, 1.24128, - + 0.01210, 0.01351, 12.15519, 1.32041, 0.03284, - + 0.00000, 0.64329, 1.32243, - + 0.01271, 0.01388, 14.91292, 1.40814, 0.13702, - + 0.00000, 0.73975, 1.41028 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + 0.00955, 0.01211, 1.71468, 0.93853, 0.00000, - + 0.00000, 0.24666, 0.94017, - + 0.01052, 0.01272, 3.10549, 0.97740, 0.00000, - + 0.00000, 0.30117, 0.97921, - + 0.01141, 0.01327, 4.82815, 1.02804, 0.00000, - + 0.00000, 0.36505, 1.03000, - + 0.01223, 0.01377, 6.79254, 1.08923, 0.00000, - + 0.00000, 0.43767, 1.09133, - + 0.01298, 0.01423, 8.98726, 1.15792, 0.00000, - + 0.00000, 0.51641, 1.16015, - + 0.01369, 0.01466, 11.37514, 1.23328, 0.03081, - + 0.00000, 0.60073, 1.23562, - + 0.01437, 0.01506, 13.92903, 1.31459, 0.12748, - + 0.00000, 0.69017, 1.31704 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + 0.01411, 0.01545, 1.30792, 0.75531, 0.00000, - + 0.00000, 0.19600, 0.75794, - + 0.01550, 0.01627, 2.50161, 0.78885, 0.00000, - + 0.00000, 0.24221, 0.79165, - + 0.01677, 0.01701, 3.95367, 0.83129, 0.00000, - + 0.00000, 0.29537, 0.83423, - + 0.01792, 0.01768, 5.57292, 0.88143, 0.00000, - + 0.00000, 0.35475, 0.88450, - + 0.01899, 0.01830, 7.35237, 0.93689, 0.00000, - + 0.00000, 0.41833, 0.94007, - + 0.01999, 0.01887, 9.25794, 0.99695, 0.02529, - + 0.00000, 0.48564, 1.00024, - + 0.02093, 0.01941, 11.26643, 1.06105, 0.10183, - + 0.00000, 0.55629, 1.06444 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + 0.02070, 0.01979, 0.99986, 0.60732, 0.00000, - + 0.00000, 0.15592, 0.61082, - + 0.02268, 0.02090, 2.02268, 0.63609, 0.00000, - + 0.00000, 0.19503, 0.63980, - + 0.02447, 0.02190, 3.24642, 0.67153, 0.00000, - + 0.00000, 0.23921, 0.67542, - + 0.02610, 0.02280, 4.58011, 0.71248, 0.00000, - + 0.00000, 0.28769, 0.71654, - + 0.02760, 0.02362, 6.02017, 0.75711, 0.00000, - + 0.00000, 0.33893, 0.76132, - + 0.02900, 0.02439, 7.53631, 0.80481, 0.02079, - + 0.00000, 0.39253, 0.80915, - + 0.03032, 0.02511, 9.10952, 0.85512, 0.08122, - + 0.00000, 0.44819, 0.85959 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + 0.02584, 0.02295, 0.85607, 0.53431, 0.00000, - + 0.00000, 0.13654, 0.53837, - + 0.02827, 0.02427, 1.79177, 0.56056, 0.00000, - + 0.00000, 0.17198, 0.56487, - + 0.03046, 0.02546, 2.89947, 0.59238, 0.00000, - + 0.00000, 0.21160, 0.59693, - + 0.03245, 0.02653, 4.08932, 0.62869, 0.00000, - + 0.00000, 0.25460, 0.63343, - + 0.03428, 0.02751, 5.35969, 0.66790, 0.00000, - + 0.00000, 0.29971, 0.67282, - + 0.03599, 0.02842, 6.68285, 0.70946, 0.01856, - + 0.00000, 0.34653, 0.71456, - + 0.03759, 0.02928, 8.04229, 0.75299, 0.07107, - + 0.00000, 0.39483, 0.75825 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + 0.03025, 0.02555, 0.76776, 0.48778, 0.00000, - + 0.00000, 0.12435, 0.49229, - + 0.03306, 0.02705, 1.64767, 0.51235, 0.00000, - + 0.00000, 0.15741, 0.51717, - + 0.03558, 0.02839, 2.68028, 0.54182, 0.00000, - + 0.00000, 0.19406, 0.54690, - + 0.03787, 0.02960, 3.77709, 0.57510, 0.00000, - + 0.00000, 0.23353, 0.58042, - + 0.03997, 0.03071, 4.93803, 0.61081, 0.00000, - + 0.00000, 0.27468, 0.61634, - + 0.04193, 0.03174, 6.13732, 0.64844, 0.01714, - + 0.00000, 0.31716, 0.65417, - + 0.04376, 0.03271, 7.36026, 0.68763, 0.06460, - + 0.00000, 0.36076, 0.69355 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + 0.03425, 0.02784, 0.70475, 0.45443, 0.00000, - + 0.00000, 0.11569, 0.45936, - + 0.03738, 0.02950, 1.54754, 0.47783, 0.00000, - + 0.00000, 0.14703, 0.48308, - + 0.04019, 0.03099, 2.52696, 0.50558, 0.00000, - + 0.00000, 0.18150, 0.51113, - + 0.04274, 0.03233, 3.55628, 0.53668, 0.00000, - + 0.00000, 0.21838, 0.54247, - + 0.04507, 0.03355, 4.63730, 0.56984, 0.00000, - + 0.00000, 0.25663, 0.57587, - + 0.04724, 0.03469, 5.74604, 0.60460, 0.01613, - + 0.00000, 0.29594, 0.61084, - + 0.04928, 0.03574, 6.86937, 0.64065, 0.05990, - + 0.00000, 0.33610, 0.64709 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + 0.05034, 0.03672, 0.54955, 0.36447, 0.00000, - + 0.00000, 0.09298, 0.37107, - + 0.05473, 0.03900, 1.28832, 0.38445, 0.00000, - + 0.00000, 0.11948, 0.39149, - + 0.05865, 0.04103, 2.11904, 0.40739, 0.00000, - + 0.00000, 0.14795, 0.41483, - + 0.06217, 0.04285, 2.96136, 0.43239, 0.00000, - + 0.00000, 0.17770, 0.44019, - + 0.06539, 0.04450, 3.82264, 0.45855, 0.00000, - + 0.00000, 0.20805, 0.46667, - + 0.06837, 0.04602, 4.68465, 0.48551, 0.01341, - + 0.00000, 0.23875, 0.49393, - + 0.07115, 0.04744, 5.53899, 0.51305, 0.04724, - + 0.00000, 0.26968, 0.52174 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + 0.07424, 0.04960, 0.45006, 0.29268, 0.00000, - + 0.00000, 0.07588, 0.30160, - + 0.08032, 0.05272, 1.10456, 0.30967, 0.00000, - + 0.00000, 0.09822, 0.31921, - + 0.08571, 0.05548, 1.80790, 0.32847, 0.00000, - + 0.00000, 0.12157, 0.33855, - + 0.09051, 0.05792, 2.49068, 0.34832, 0.00000, - + 0.00000, 0.14534, 0.35889, - + 0.09488, 0.06014, 3.16635, 0.36864, 0.00000, - + 0.00000, 0.16911, 0.37964, - + 0.09889, 0.06216, 3.82305, 0.38917, 0.01126, - + 0.00000, 0.19272, 0.40057, - + 0.10262, 0.06404, 4.45704, 0.40977, 0.03700, - + 0.00000, 0.21612, 0.42153 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + 0.09337, 0.05991, 0.42083, 0.25795, 0.00000, - + 0.00000, 0.06825, 0.26877, - + 0.10067, 0.06365, 1.03073, 0.27332, 0.00000, - + 0.00000, 0.08842, 0.28489, - + 0.10710, 0.06692, 1.66542, 0.28992, 0.00000, - + 0.00000, 0.10912, 0.30215, - + 0.11281, 0.06980, 2.26414, 0.30711, 0.00000, - + 0.00000, 0.12983, 0.31991, - + 0.11797, 0.07239, 2.84358, 0.32444, 0.00000, - + 0.00000, 0.15026, 0.33776, - + 0.12269, 0.07475, 3.39582, 0.34172, 0.01025, - + 0.00000, 0.17033, 0.35551, - + 0.12706, 0.07692, 3.91963, 0.35886, 0.03197, - + -0.00001, 0.18999, 0.37308 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + 0.11001, 0.06899, 0.41558, 0.23634, 0.00000, - + 0.00000, 0.06388, 0.24884, - + 0.11827, 0.07320, 0.99416, 0.25060, 0.00000, - + 0.00000, 0.08260, 0.26394, - + 0.12553, 0.07686, 1.58125, 0.26572, 0.00000, - + 0.00000, 0.10153, 0.27981, - + 0.13194, 0.08007, 2.12318, 0.28114, 0.00000, - + 0.00000, 0.12023, 0.29587, - + 0.13771, 0.08294, 2.63867, 0.29650, 0.00000, - + 0.00000, 0.13849, 0.31181, - + 0.14297, 0.08555, 3.12247, 0.31167, 0.00963, - + 0.00000, 0.15625, 0.32750, - + 0.14782, 0.08793, 3.57509, 0.32656, 0.02878, - + -0.00001, 0.17350, 0.34287 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + 0.12504, 0.07729, 0.42079, 0.22117, 0.00000, - + 0.00000, 0.06107, 0.23523, - + 0.13412, 0.08187, 0.97466, 0.23457, 0.00000, - + 0.00000, 0.07870, 0.24957, - + 0.14205, 0.08584, 1.52498, 0.24857, 0.00000, - + 0.00000, 0.09633, 0.26439, - + 0.14903, 0.08930, 2.02410, 0.26267, 0.00000, - + 0.00000, 0.11355, 0.27919, - + 0.15529, 0.09239, 2.49209, 0.27658, 0.00000, - + 0.00000, 0.13022, 0.29372, - + 0.16099, 0.09517, 2.92573, 0.29019, 0.00921, - + 0.00000, 0.14631, 0.30789, - + 0.16621, 0.09771, 3.32673, 0.30346, 0.02650, - + 0.00000, 0.16182, 0.32167 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + 0.18747, 0.11240, 0.49179, 0.18182, 0.00000, - + 0.00000, 0.05541, 0.20302, - + 0.19924, 0.11804, 0.96223, 0.19246, 0.00000, - + 0.00000, 0.06983, 0.21485, - + 0.20936, 0.12282, 1.39560, 0.20301, 0.00000, - + 0.00000, 0.08362, 0.22640, - + 0.21810, 0.12689, 1.76565, 0.21315, 0.00000, - + 0.00000, 0.09656, 0.23738, - + 0.22585, 0.13046, 2.09508, 0.22280, 0.00000, - + 0.00000, 0.10870, 0.24776, - + 0.23280, 0.13361, 2.38648, 0.23194, 0.00815, - + 0.00000, 0.12008, 0.25755, - + 0.23909, 0.13644, 2.64474, 0.24060, 0.02040, - + 0.00000, 0.13077, 0.26678 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + 0.28533, 0.16728, 0.65201, 0.15062, 0.00000, - + 0.00000, 0.05345, 0.18428, - + 0.29917, 0.17291, 1.01515, 0.15795, 0.00000, - + 0.00000, 0.06450, 0.19272, - + 0.31073, 0.17747, 1.31959, 0.16473, 0.00000, - + 0.00000, 0.07446, 0.20037, - + 0.32045, 0.18119, 1.56052, 0.17084, 0.00000, - + 0.00000, 0.08333, 0.20718, - + 0.32885, 0.18432, 1.76050, 0.17637, 0.00000, - + 0.00000, 0.09129, 0.21328, - + 0.33619, 0.18698, 1.92619, 0.18137, 0.00727, - + 0.00000, 0.09847, 0.21874, - + 0.34271, 0.18927, 2.06404, 0.18589, 0.01537, - + -0.00001, 0.10497, 0.22364 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + 0.36729, 0.21019, 0.77868, 0.13188, 0.00000, - + 0.00000, 0.05237, 0.17581, - + 0.38087, 0.21442, 1.06122, 0.13689, 0.00000, - + 0.00000, 0.06115, 0.18142, - + 0.39186, 0.21764, 1.28184, 0.14126, 0.00000, - + 0.00000, 0.06872, 0.18618, - + 0.40081, 0.22007, 1.44554, 0.14496, 0.00000, - + 0.00000, 0.07516, 0.19012, - + 0.40832, 0.22197, 1.57317, 0.14815, 0.00000, - + 0.00000, 0.08074, 0.19344, - + 0.41470, 0.22344, 1.67235, 0.15087, 0.00664, - + 0.00000, 0.08561, 0.19624, - + 0.42019, 0.22459, 1.74940, 0.15320, 0.01264, - + 0.00000, 0.08988, 0.19859 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + 0.43943, 0.24421, 0.87132, 0.11596, 0.00000, - + 0.00000, 0.05027, 0.16762, - + 0.45119, 0.24638, 1.08735, 0.11925, 0.00000, - + 0.00000, 0.05727, 0.17074, - + 0.46038, 0.24769, 1.24495, 0.12190, 0.00000, - + 0.00000, 0.06305, 0.17318, - + 0.46749, 0.24839, 1.35369, 0.12398, 0.00000, - + 0.00000, 0.06779, 0.17492, - + 0.47318, 0.24870, 1.43230, 0.12564, 0.00068, - + 0.00000, 0.07176, 0.17621, - + 0.47780, 0.24870, 1.48820, 0.12692, 0.00602, - + 0.00000, 0.07509, 0.17712, - + 0.48154, 0.24849, 1.52710, 0.12792, 0.01066, - + -0.00001, 0.07792, 0.17772 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + 0.50349, 0.27060, 0.93597, 0.10110, 0.00000, - + 0.00000, 0.04723, 0.15793, - + 0.51234, 0.27032, 1.09539, 0.10314, 0.00000, - + 0.00000, 0.05277, 0.15902, - + 0.51876, 0.26952, 1.20287, 0.10461, 0.00000, - + 0.00000, 0.05718, 0.15957, - + 0.52327, 0.26834, 1.26983, 0.10560, 0.00000, - + 0.00000, 0.06063, 0.15964, - + 0.52654, 0.26694, 1.31262, 0.10625, 0.00107, - + 0.00000, 0.06341, 0.15943, - + 0.52884, 0.26542, 1.33802, 0.10663, 0.00537, - + 0.00000, 0.06566, 0.15898, - + 0.53041, 0.26380, 1.35090, 0.10680, 0.00904, - + 0.00000, 0.06749, 0.15835 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + 0.57288, 0.29429, 0.98361, 0.08377, 0.00000, - + 0.00000, 0.04242, 0.14370, - + 0.57693, 0.29082, 1.08372, 0.08476, 0.00000, - + 0.00000, 0.04654, 0.14280, - + 0.57901, 0.28728, 1.14164, 0.08529, 0.00000, - + 0.00000, 0.04963, 0.14161, - + 0.57959, 0.28371, 1.16898, 0.08543, 0.00000, - + 0.00000, 0.05191, 0.14021, - + 0.57926, 0.28021, 1.17918, 0.08531, 0.00123, - + 0.00000, 0.05364, 0.13871, - + 0.57826, 0.27680, 1.17779, 0.08501, 0.00457, - + 0.00000, 0.05495, 0.13713, - + 0.57673, 0.27349, 1.16857, 0.08458, 0.00737, - + -0.00001, 0.05594, 0.13551 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + 0.63048, 0.30915, 1.00111, 0.06818, 0.00000, - + 0.00000, 0.03692, 0.12784, - + 0.62891, 0.30248, 1.05264, 0.06852, 0.00000, - + 0.00000, 0.03999, 0.12557, - + 0.62606, 0.29626, 1.07218, 0.06847, 0.00000, - + 0.00000, 0.04216, 0.12327, - + 0.62227, 0.29042, 1.07015, 0.06812, 0.00000, - + 0.00000, 0.04363, 0.12094, - + 0.61801, 0.28497, 1.05720, 0.06761, 0.00119, - + 0.00000, 0.04466, 0.11866, - + 0.61343, 0.27986, 1.03756, 0.06698, 0.00380, - + 0.00000, 0.04536, 0.11642, - + 0.60864, 0.27503, 1.01392, 0.06628, 0.00596, - + -0.00003, 0.04583, 0.11422 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + 0.67676, 0.31587, 0.99514, 0.05418, 0.00000, - + 0.00000, 0.03156, 0.11143, - + 0.66899, 0.30635, 1.00701, 0.05425, 0.00000, - + 0.00000, 0.03376, 0.10833, - + 0.66082, 0.29778, 0.99689, 0.05396, 0.00000, - + 0.00000, 0.03522, 0.10534, - + 0.65240, 0.28999, 0.97320, 0.05343, 0.00000, - + 0.00000, 0.03611, 0.10251, - + 0.64407, 0.28287, 0.94399, 0.05278, 0.00109, - + 0.00000, 0.03666, 0.09982, - + 0.63589, 0.27630, 0.91213, 0.05205, 0.00312, - + 0.00000, 0.03697, 0.09728, - + 0.62786, 0.27019, 0.87934, 0.05126, 0.00479, - + -0.00001, 0.03709, 0.09488 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + 0.71132, 0.31625, 0.97091, 0.04237, 0.00000, - + 0.00000, 0.02619, 0.09523, - + 0.69723, 0.30412, 0.95082, 0.04228, 0.00000, - + 0.00000, 0.02783, 0.09170, - + 0.68374, 0.29348, 0.91809, 0.04190, 0.00000, - + 0.00000, 0.02882, 0.08844, - + 0.67077, 0.28400, 0.87878, 0.04130, 0.00000, - + 0.00000, 0.02936, 0.08542, - + 0.65848, 0.27548, 0.83847, 0.04063, 0.00090, - + 0.00000, 0.02962, 0.08261, - + 0.64682, 0.26772, 0.79881, 0.03991, 0.00251, - + 0.00000, 0.02968, 0.08002, - + 0.63571, 0.26057, 0.76061, 0.03916, 0.00380, - + -0.00002, 0.02961, 0.07759 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + 0.73462, 0.31108, 0.93107, 0.03255, 0.00000, - + 0.00000, 0.02129, 0.07983, - + 0.71430, 0.29676, 0.88680, 0.03241, 0.00000, - + 0.00000, 0.02250, 0.07623, - + 0.69565, 0.28441, 0.83766, 0.03201, 0.00000, - + 0.00000, 0.02319, 0.07296, - + 0.67837, 0.27354, 0.78764, 0.03144, 0.00000, - + 0.00000, 0.02348, 0.07003, - + 0.66238, 0.26391, 0.74029, 0.03083, 0.00072, - + 0.00000, 0.02358, 0.06730, - + 0.64749, 0.25524, 0.69616, 0.03017, 0.00199, - + 0.00000, 0.02352, 0.06481, - + 0.63353, 0.24733, 0.65531, 0.02949, 0.00299, - + -0.00002, 0.02335, 0.06253 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + 0.74766, 0.30066, 0.87914, 0.02401, 0.00000, - + 0.00000, 0.01723, 0.06581, - + 0.72123, 0.28478, 0.81691, 0.02404, 0.00000, - + 0.00000, 0.01807, 0.06235, - + 0.69764, 0.27126, 0.75668, 0.02381, 0.00000, - + 0.00000, 0.01849, 0.05925, - + 0.67627, 0.25949, 0.70017, 0.02341, 0.00000, - + 0.00000, 0.01860, 0.05648, - + 0.65688, 0.24911, 0.64913, 0.02292, 0.00062, - + 0.00000, 0.01855, 0.05399, - + 0.63909, 0.23985, 0.60318, 0.02241, 0.00160, - + 0.00000, 0.01840, 0.05173, - + 0.62259, 0.23148, 0.56179, 0.02188, 0.00236, - + 0.00002, 0.01819, 0.04966 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + 0.74936, 0.28783, 0.82378, 0.01828, 0.00000, - + 0.00000, 0.01309, 0.05326, - + 0.71761, 0.27055, 0.74720, 0.01821, 0.00000, - + 0.00000, 0.01381, 0.05010, - + 0.68980, 0.25599, 0.67896, 0.01795, 0.00000, - + 0.00000, 0.01415, 0.04731, - + 0.66498, 0.24349, 0.61850, 0.01757, 0.00000, - + 0.00000, 0.01424, 0.04482, - + 0.64273, 0.23257, 0.56585, 0.01714, 0.00028, - + 0.00000, 0.01418, 0.04263, - + 0.62253, 0.22290, 0.51975, 0.01669, 0.00107, - + 0.00000, 0.01404, 0.04065, - + 0.60398, 0.21422, 0.47915, 0.01623, 0.00169, - + -0.00014, 0.01382, 0.03885 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + 0.74266, 0.27081, 0.75762, 0.01278, 0.00000, - + 0.00000, 0.01026, 0.04237, - + 0.70594, 0.25285, 0.67378, 0.01289, 0.00000, - + 0.00000, 0.01077, 0.03958, - + 0.67427, 0.23786, 0.60220, 0.01279, 0.00000, - + 0.00000, 0.01097, 0.03715, - + 0.64640, 0.22509, 0.54096, 0.01257, 0.00000, - + 0.00000, 0.01097, 0.03501, - + 0.62168, 0.21401, 0.48891, 0.01227, 0.00029, - + 0.00000, 0.01087, 0.03314, - + 0.59943, 0.20426, 0.44429, 0.01198, 0.00089, - + 0.00000, 0.01072, 0.03143, - + 0.57919, 0.19555, 0.40568, 0.01166, 0.00134, - + -0.00002, 0.01052, 0.02990 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + 0.72685, 0.25224, 0.69187, 0.00899, 0.00000, - + 0.00000, 0.00768, 0.03313, - + 0.68604, 0.23389, 0.60286, 0.00915, 0.00000, - + 0.00000, 0.00808, 0.03076, - + 0.65127, 0.21871, 0.52998, 0.00910, 0.00000, - + 0.00000, 0.00824, 0.02870, - + 0.62098, 0.20591, 0.46960, 0.00897, 0.00000, - + 0.00000, 0.00824, 0.02690, - + 0.59438, 0.19486, 0.41941, 0.00877, 0.00019, - + 0.00000, 0.00814, 0.02534, - + 0.57066, 0.18518, 0.37721, 0.00852, 0.00065, - + 0.00000, 0.00800, 0.02398, - + 0.54919, 0.17662, 0.34122, 0.00829, 0.00100, - + -0.00004, 0.00784, 0.02270 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + 0.70337, 0.23219, 0.62540, 0.00613, 0.00000, - + 0.00000, 0.00563, 0.02548, - + 0.65924, 0.21385, 0.53420, 0.00632, 0.00000, - + 0.00000, 0.00597, 0.02348, - + 0.62207, 0.19880, 0.46215, 0.00631, 0.00000, - + 0.00000, 0.00609, 0.02181, - + 0.59005, 0.18618, 0.40404, 0.00623, 0.00000, - + 0.00000, 0.00610, 0.02033, - + 0.56211, 0.17538, 0.35676, 0.00609, 0.00015, - + 0.00000, 0.00602, 0.01909, - + 0.53737, 0.16598, 0.31763, 0.00593, 0.00050, - + 0.00000, 0.00592, 0.01796, - + 0.51514, 0.15768, 0.28475, 0.00577, 0.00076, - + 0.00000, 0.00578, 0.01695 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + 0.67325, 0.21095, 0.55633, 0.00375, 0.00000, - + 0.00000, 0.00420, 0.01922, - + 0.62664, 0.19307, 0.46726, 0.00403, 0.00000, - + 0.00000, 0.00444, 0.01763, - + 0.58778, 0.17849, 0.39852, 0.00414, 0.00000, - + 0.00000, 0.00451, 0.01629, - + 0.55458, 0.16637, 0.34417, 0.00414, 0.00000, - + 0.00000, 0.00449, 0.01513, - + 0.52586, 0.15603, 0.30062, 0.00408, 0.00014, - + 0.00000, 0.00443, 0.01412, - + 0.50060, 0.14709, 0.26506, 0.00399, 0.00039, - + 0.00000, 0.00433, 0.01324, - + 0.47803, 0.13922, 0.23556, 0.00390, 0.00060, - + 0.00004, 0.00422, 0.01243 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + 0.63725, 0.19005, 0.49256, 0.00254, 0.00000, - + 0.00000, 0.00286, 0.01421, - + 0.58912, 0.17279, 0.40616, 0.00275, 0.00000, - + 0.00000, 0.00308, 0.01299, - + 0.54935, 0.15884, 0.34118, 0.00283, 0.00000, - + 0.00000, 0.00317, 0.01190, - + 0.51567, 0.14726, 0.29090, 0.00283, 0.00000, - + 0.00000, 0.00317, 0.01104, - + 0.48672, 0.13748, 0.25128, 0.00280, 0.00007, - + 0.00000, 0.00313, 0.01025, - + 0.46139, 0.12906, 0.21942, 0.00275, 0.00026, - + 0.00000, 0.00307, 0.00957, - + 0.43891, 0.12168, 0.19331, 0.00267, 0.00040, - + 0.00001, 0.00298, 0.00902 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + 0.59662, 0.16877, 0.42790, 0.00132, 0.00000, - + 0.00000, 0.00206, 0.01033, - + 0.54786, 0.15249, 0.34752, 0.00159, 0.00000, - + 0.00000, 0.00222, 0.00936, - + 0.50791, 0.13943, 0.28809, 0.00172, 0.00000, - + 0.00000, 0.00228, 0.00856, - + 0.47435, 0.12867, 0.24287, 0.00177, 0.00000, - + 0.00000, 0.00226, 0.00790, - + 0.44564, 0.11963, 0.20769, 0.00179, 0.00006, - + 0.00000, 0.00221, 0.00731, - + 0.42073, 0.11187, 0.17973, 0.00177, 0.00019, - + 0.00000, 0.00216, 0.00682, - + 0.39872, 0.10510, 0.15704, 0.00175, 0.00030, - + 0.00003, 0.00210, 0.00636 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + 0.55241, 0.14825, 0.36867, 0.00060, 0.00000, - + 0.00000, 0.00141, 0.00731, - + 0.50389, 0.13309, 0.29445, 0.00085, 0.00000, - + 0.00000, 0.00154, 0.00662, - + 0.46440, 0.12102, 0.24076, 0.00100, 0.00000, - + 0.00000, 0.00158, 0.00601, - + 0.43149, 0.11114, 0.20061, 0.00108, 0.00000, - + 0.00000, 0.00156, 0.00553, - + 0.40355, 0.10285, 0.16982, 0.00109, 0.00005, - + 0.00000, 0.00153, 0.00513, - + 0.37940, 0.09579, 0.14560, 0.00109, 0.00015, - + 0.00000, 0.00150, 0.00476, - + 0.35819, 0.08968, 0.12614, 0.00109, 0.00022, - + 0.00004, 0.00145, 0.00442 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + 0.50593, 0.12897, 0.31457, 0.00039, 0.00000, - + 0.00000, 0.00086, 0.00508, - + 0.45836, 0.11502, 0.24747, 0.00057, 0.00000, - + 0.00000, 0.00097, 0.00457, - + 0.41999, 0.10394, 0.19955, 0.00063, 0.00000, - + 0.00000, 0.00101, 0.00418, - + 0.38820, 0.09495, 0.16422, 0.00069, 0.00000, - + 0.00000, 0.00103, 0.00380, - + 0.36140, 0.08747, 0.13748, 0.00069, 0.00003, - + 0.00000, 0.00103, 0.00351, - + 0.33834, 0.08112, 0.11669, 0.00067, 0.00011, - + 0.00000, 0.00101, 0.00325, - + 0.31817, 0.07563, 0.10021, 0.00068, 0.00016, - + 0.00003, 0.00099, 0.00300 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + 0.45796, 0.11074, 0.26561, 0.00026, 0.00000, - + 0.00000, 0.00049, 0.00348, - + 0.41212, 0.09810, 0.20521, 0.00035, 0.00000, - + 0.00000, 0.00057, 0.00314, - + 0.37540, 0.08816, 0.16317, 0.00045, 0.00000, - + 0.00000, 0.00063, 0.00283, - + 0.34528, 0.08014, 0.13264, 0.00046, 0.00000, - + 0.00000, 0.00065, 0.00255, - + 0.31994, 0.07349, 0.10991, 0.00047, 0.00000, - + 0.00000, 0.00065, 0.00236, - + 0.29823, 0.06789, 0.09246, 0.00049, 0.00004, - + 0.00000, 0.00063, 0.00217, - + 0.27940, 0.06308, 0.07877, 0.00049, 0.00008, - + -0.00002, 0.00062, 0.00199 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + 0.40933, 0.09346, 0.22084, -0.00006, 0.00000, - + 0.00000, 0.00036, 0.00231, - + 0.36580, 0.08224, 0.16749, 0.00007, 0.00000, - + 0.00000, 0.00043, 0.00205, - + 0.33123, 0.07348, 0.13118, 0.00012, 0.00000, - + 0.00000, 0.00046, 0.00186, - + 0.30297, 0.06647, 0.10540, 0.00020, 0.00000, - + 0.00000, 0.00046, 0.00166, - + 0.27945, 0.06068, 0.08641, 0.00020, 0.00002, - + 0.00000, 0.00045, 0.00154, - + 0.25938, 0.05583, 0.07204, 0.00024, 0.00006, - + 0.00000, 0.00044, 0.00140, - + 0.24204, 0.05168, 0.06086, 0.00025, 0.00009, - + 0.00002, 0.00043, 0.00128 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + 0.36094, 0.07776, 0.17814, -0.00018, 0.00000, - + 0.00000, 0.00027, 0.00147, - + 0.32041, 0.06800, 0.13388, -0.00008, 0.00000, - + 0.00000, 0.00030, 0.00129, - + 0.28840, 0.06043, 0.10374, 0.00001, 0.00000, - + 0.00000, 0.00031, 0.00114, - + 0.26245, 0.05438, 0.08246, 0.00004, 0.00001, - + 0.00000, 0.00031, 0.00106, - + 0.24089, 0.04944, 0.06697, 0.00008, 0.00004, - + 0.00000, 0.00030, 0.00095, - + 0.22264, 0.04529, 0.05530, 0.00010, 0.00005, - + 0.00000, 0.00029, 0.00088, - + 0.20691, 0.04176, 0.04632, 0.00013, 0.00006, - + 0.00004, 0.00028, 0.00080 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + 0.31447, 0.06406, 0.14592, -0.00003, 0.00000, - + 0.00000, 0.00008, 0.00093, - + 0.27711, 0.05560, 0.10695, 0.00001, 0.00000, - + 0.00000, 0.00012, 0.00081, - + 0.24784, 0.04911, 0.08140, 0.00005, 0.00000, - + 0.00000, 0.00014, 0.00072, - + 0.22428, 0.04394, 0.06381, 0.00007, 0.00000, - + 0.00000, 0.00016, 0.00065, - + 0.20488, 0.03975, 0.05122, 0.00008, 0.00000, - + 0.00000, 0.00016, 0.00059, - + 0.18855, 0.03625, 0.04190, 0.00009, 0.00001, - + 0.00000, 0.00016, 0.00054, - + 0.17455, 0.03329, 0.03478, 0.00009, 0.00002, - + 0.00000, 0.00015, 0.00050 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + 0.26913, 0.05145, 0.11355, -0.00016, 0.00000, - + 0.00000, 0.00013, 0.00052, - + 0.23552, 0.04437, 0.08237, -0.00011, 0.00000, - + 0.00000, 0.00013, 0.00046, - + 0.20936, 0.03897, 0.06203, -0.00006, 0.00000, - + 0.00000, 0.00012, 0.00042, - + 0.18845, 0.03470, 0.04812, -0.00003, 0.00001, - + 0.00000, 0.00013, 0.00038, - + 0.17129, 0.03123, 0.03825, 0.00000, 0.00002, - + 0.00000, 0.00012, 0.00034, - + 0.15693, 0.02837, 0.03100, 0.00000, 0.00003, - + 0.00000, 0.00012, 0.00032, - + 0.14466, 0.02595, 0.02551, 0.00002, 0.00004, - + 0.00003, 0.00011, 0.00029 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + 0.18815, 0.03174, 0.06747, 0.00003, 0.00000, - + 0.00000, 0.00001, 0.00017, - + 0.16218, 0.02694, 0.04718, 0.00000, 0.00000, - + 0.00000, 0.00002, 0.00017, - + 0.14226, 0.02335, 0.03442, 0.00000, 0.00000, - + 0.00000, 0.00002, 0.00014, - + 0.12656, 0.02054, 0.02599, 0.00000, 0.00000, - + 0.00000, 0.00003, 0.00013, - + 0.11382, 0.01830, 0.02017, 0.00002, 0.00000, - + 0.00000, 0.00003, 0.00011, - + 0.10327, 0.01646, 0.01600, 0.00002, 0.00000, - + 0.00000, 0.00003, 0.00010, - + 0.09437, 0.01492, 0.01292, 0.00001, 0.00001, - + 0.00000, 0.00003, 0.00009 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + 0.12097, 0.01770, 0.03606, 0.00003, 0.00000, - + 0.00000, -0.00001, 0.00005, - + 0.10255, 0.01479, 0.02425, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00005, - + 0.08869, 0.01263, 0.01712, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00004, - + 0.07790, 0.01098, 0.01257, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00003, - + 0.06927, 0.00967, 0.00952, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00003, - + 0.06220, 0.00861, 0.00739, 0.00002, 0.00000, - + 0.00000, 0.00000, 0.00002, - + 0.05631, 0.00773, 0.00585, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00002 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + 0.06972, 0.00867, 0.01668, 0.00001, 0.00000, - + 0.00000, -0.00001, 0.00002, - + 0.05802, 0.00712, 0.01080, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00002, - + 0.04939, 0.00599, 0.00737, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.04278, 0.00513, 0.00525, 0.00001, 0.00000, - + 0.00000, -0.00001, 0.00001, - + 0.03757, 0.00446, 0.00387, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.03336, 0.00393, 0.00294, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.02987, 0.00349, 0.00227, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00001 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + 0.03421, 0.00350, 0.00626, -0.00001, 0.00001, - + 0.00000, 0.00001, 0.00000, - + 0.02789, 0.00281, 0.00388, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.02332, 0.00233, 0.00255, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01987, 0.00196, 0.00176, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01721, 0.00169, 0.00126, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01508, 0.00146, 0.00093, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01334, 0.00129, 0.00070, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + 0.00335, 0.00020, 0.00037, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00257, 0.00015, 0.00017, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00203, 0.00012, 0.00010, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00165, 0.00009, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00137, 0.00008, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00116, 0.00006, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00099, 0.00005, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000 / - DATA XX/1.d-5,2.d-5,4.d-5,6.d-5,8.d-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,0.625D0,5.D0/ - DATA N0/2,5,5,9,0,0,9,9/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - xsave=x -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,nx-1 - DO 20 M=1,7 -C READ(34,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7 .or. I.EQ.5) GO TO 31 - DO 30 K=1,7 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,7 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD)*TWOD - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,8 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7 .OR. I.EQ.5) GOTO 65 - FAC=(1.D0-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) -C - x=xsave -C - RETURN - END diff --git a/PDF/spdf/sfmsr1.F b/PDF/spdf/sfmsr1.F deleted file mode 100644 index ebf4fa65818..00000000000 --- a/PDF/spdf/sfmsr1.F +++ /dev/null @@ -1,3880 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE SFMSR1(X,QSQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) -C -#include "pdf/impdp.inc" -C - PARAMETER(NX=49,NQ=37,NTENTH=23,NP=8) -C -#include "pdf/expdp.inc" - + F(NP,NX,NQ+1),QQ(NQ),XX(NX),G(NP),N0(NP) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/ - + .00150, .00820, 1.27651, .47232, .00361, - + .00000, .26825, .47591, - + .00164, .00829, 2.51076, .54184, .00842, - + .00000, .32962, .54574, - + .00186, .00842, 5.15239, .66876, .02078, - + .00000, .44176, .67312, - + .00202, .00852, 7.60560, .78049, .03596, - + .00000, .54082, .78518, - + .00218, .00863, 10.75238, .91570, .06054, - + .00000, .66140, .92073, - + .00233, .00872, 13.97310, 1.04723, .09196, - + .00000, .77960, 1.05255, - + .00248, .00880, 17.38378, 1.18507, .13419, - + .00000, .90471, 1.19066, - + .00263, .00889, 21.60102, 1.34504, .19659, - + .00000, 1.05170, 1.35091 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ - + .00277, .00897, 25.71856, 1.49464, .26966, - + .00000, 1.19120, 1.50075, - + .00290, .00905, 30.04072, 1.64629, .36031, - + .00000, 1.33493, 1.65265, - + .00301, .00912, 33.83256, 1.77280, .44901, - + .00000, 1.45665, 1.77933, - + .00323, .00925, 42.72836, 2.05508, .69411, - + .00000, 1.73491, 2.06200, - + .00344, .00937, 51.41478, 2.31292, .97263, - + .08206, 1.99679, 2.32016, - + .00366, .00950, 62.32519, 2.62014, 1.35857, - + .34230, 2.31645, 2.62773, - + .00390, .00964, 75.04426, 2.96732, 1.83495, - + .76585, 2.68330, 2.97528, - + .00412, .00976, 87.89626, 3.31593, 2.32213, - + 1.16297, 3.05277, 3.32420 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ - + .00435, .00989, 101.95473, 3.70341, 2.85158, - + 1.60616, 3.46160, 3.71199, - + .00454, .01000, 114.59903, 4.05840, 3.31499, - + 2.00384, 3.83294, 4.06724, - + .00477, .01013, 131.23253, 4.53483, 3.90384, - + 2.52600, 4.32645, 4.54397, - + .00498, .01025, 146.98965, 4.99712, 4.44615, - + 3.02310, 4.80107, 5.00653, - + .00518, .01036, 162.32021, 5.45550, 4.96222, - + 3.50873, 5.26849, 5.46514, - + .00543, .01050, 183.20419, 6.08918, 5.65019, - + 4.17132, 5.91093, 6.09911, - + .00567, .01063, 204.04591, 6.73289, 6.32948, - + 4.83757, 6.56064, 6.74309, - + .00589, .01075, 224.70506, 7.37940, 6.99909, - + 5.50208, 7.21129, 7.38984 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ - + .00612, .01088, 246.71046, 8.07342, 7.70902, - + 6.21185, 7.90842, 8.08411, - + .00635, .01101, 269.03000, 8.78754, 8.43387, - + 6.93984, 8.62487, 8.79846, - + .00656, .01112, 291.36292, 9.50638, 9.15980, - + 7.67077, 9.34546, 9.51751, - + .00677, .01124, 313.19193, 10.21589, 9.87416, - + 8.39103, 10.05634, 10.22721, - + .00698, .01135, 336.06308, 10.96444, 10.62638, - + 9.14992, 10.80610, 10.97596, - + .00718, .01147, 359.35037, 11.73321, 11.39798, - + 9.92851, 11.57593, 11.74491, - + .00738, .01158, 382.31967, 12.49669, 12.16367, - + 10.70110, 12.34034, 12.50857, - + .00757, .01168, 404.63406, 13.24494, 12.91373, - + 11.45779, 13.08942, 13.25698 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ - + .00777, .01178, 428.05157, 14.03363, 13.70408, - + 12.25486, 13.87892, 14.04584, - + .00796, .01189, 451.47595, 14.83160, 14.50354, - + 13.06099, 14.67765, 14.84395, - + .00814, .01199, 474.82428, 15.62897, 15.30227, - + 13.86604, 15.47575, 15.64148, - + .00832, .01209, 497.14151, 16.39982, 16.07436, - + 14.64411, 16.24726, 16.41246, - + .00850, .01219, 520.44489, 17.20842, 16.88418, - + 15.45994, 17.05652, 17.22120 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ - + .00302, .00997, 1.37009, .43396, .00331, - + .00000, .24514, .43707, - + .00322, .01010, 2.53859, .49645, .00764, - + .00000, .30021, .49977, - + .00353, .01028, 4.92867, .60861, .01861, - + .00000, .39919, .61223, - + .00375, .01042, 7.08166, .70567, .03192, - + .00000, .48520, .70951, - + .00399, .01056, 9.78428, .82162, .05326, - + .00000, .58857, .82569, - + .00420, .01068, 12.50101, .93309, .08030, - + .00000, .68877, .93736, - + .00440, .01080, 15.33646, 1.04857, .11635, - + .00000, .79364, 1.05301, - + .00461, .01093, 18.79419, 1.18129, .16922, - + .00000, .91572, 1.18592 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ - + .00480, .01104, 22.12853, 1.30418, .23068, - + .00000, 1.03051, 1.30898, - + .00499, .01115, 25.59074, 1.42761, .30643, - + .00000, 1.14776, 1.43257, - + .00514, .01123, 28.60125, 1.52981, .38013, - + .00000, 1.24638, 1.53489, - + .00545, .01142, 35.57806, 1.75536, .58206, - + .00000, 1.46959, 1.76069, - + .00573, .01157, 42.29364, 1.95870, .80917, - + .06534, 1.67720, 1.96425, - + .00605, .01175, 50.61731, 2.19817, 1.12053, - + .27098, 1.92789, 2.20395, - + .00638, .01194, 60.18987, 2.46583, 1.50028, - + .60330, 2.21254, 2.47186, - + .00668, .01211, 69.74239, 2.73221, 1.88398, - + .91134, 2.49654, 2.73846 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ - + .00700, .01228, 80.06973, 3.02602, 2.29604, - + 1.25201, 2.80809, 3.03248, - + .00726, .01243, 89.26488, 3.29352, 2.65279, - + 1.55515, 3.08903, 3.30015, - + .00758, .01261, 101.24441, 3.65035, 3.10128, - + 1.94998, 3.45978, 3.65719, - + .00787, .01276, 112.48016, 3.99434, 3.50989, - + 2.32280, 3.81372, 4.00135, - + .00813, .01291, 123.31759, 4.33339, 3.89521, - + 2.68440, 4.16002, 4.34056, - + .00847, .01310, 137.95073, 4.79913, 4.40415, - + 3.17410, 4.63273, 4.80650, - + .00880, .01327, 152.41275, 5.26880, 4.90196, - + 3.66254, 5.10716, 5.27635, - + .00910, .01344, 166.62314, 5.73732, 5.38865, - + 4.14613, 5.57895, 5.74504 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ - + .00941, .01361, 181.64133, 6.23711, 5.90091, - + 4.65920, 6.08119, 6.24500, - + .00972, .01377, 196.74548, 6.74796, 6.42014, - + 5.18180, 6.59388, 6.75600, - + .01001, .01393, 211.75232, 7.25916, 6.93690, - + 5.70332, 7.10647, 7.26735, - + .01029, .01408, 226.31653, 7.76082, 7.44237, - + 6.21418, 7.60922, 7.76914, - + .01057, .01423, 241.47786, 8.28725, 7.97170, - + 6.74948, 8.13662, 8.29571, - + .01085, .01438, 256.81439, 8.82499, 8.51169, - + 7.29567, 8.67520, 8.83358, - + .01112, .01452, 271.85089, 9.35636, 9.04484, - + 7.83489, 9.20732, 9.36507, - + .01138, .01466, 286.37207, 9.87457, 9.56453, - + 8.36039, 9.72621, 9.88339 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ - + .01164, .01480, 301.53430, 10.41844, 10.10974, - + 8.91149, 10.27074, 10.42738, - + .01190, .01493, 316.60855, 10.96602, 10.65855, - + 9.46611, 10.81893, 10.97506, - + .01215, .01507, 331.56818, 11.51106, 11.20471, - + 10.01779, 11.36456, 11.52021, - + .01239, .01519, 345.78561, 12.03560, 11.73028, - + 10.54856, 11.88965, 12.04484, - + .01263, .01532, 360.56714, 12.58379, 12.27948, - + 11.10299, 12.43838, 12.59313 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ - + .00528, .01213, 1.47075, .39836, .00303, - + .00000, .22399, .40115, - + .00557, .01230, 2.56714, .45448, .00693, - + .00000, .27336, .45740, - + .00600, .01256, 4.71504, .55344, .01666, - + .00000, .36060, .55656, - + .00632, .01274, 6.59385, .63756, .02831, - + .00000, .43510, .64081, - + .00665, .01294, 8.90274, .73672, .04681, - + .00000, .52348, .74012, - + .00695, .01310, 11.18264, .83090, .07003, - + .00000, .60815, .83441, - + .00723, .01327, 13.52799, .92729, .10074, - + .00000, .69575, .93091, - + .00753, .01344, 16.34862, 1.03697, .14544, - + .00000, .79677, 1.04072 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ - + .00780, .01359, 19.03495, 1.13751, .19703, - + .00000, .89084, 1.14135, - + .00806, .01373, 21.79394, 1.23751, .26017, - + .00000, .98608, 1.24146, - + .00826, .01385, 24.17163, 1.31969, .32126, - + .00000, 1.06564, 1.32371, - + .00871, .01410, 29.61423, 1.49898, .48724, - + .00000, 1.24385, 1.50316, - + .00909, .01431, 34.77762, 1.65845, .67196, - + .05182, 1.40762, 1.66277, - + .00953, .01455, 41.09204, 1.84400, .92249, - + .21369, 1.60321, 1.84847, - + .00999, .01480, 48.25468, 2.04909, 1.22436, - + .47340, 1.82290, 2.05371, - + .01041, .01503, 55.31235, 2.25139, 1.52566, - + .71138, 2.04002, 2.25614 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ - + .01084, .01526, 62.85176, 2.47281, 1.84530, - + .97214, 2.27615, 2.47770, - + .01120, .01546, 69.49609, 2.67318, 2.11896, - + 1.20224, 2.48753, 2.67818, - + .01164, .01569, 78.06766, 2.93889, 2.45921, - + 1.49950, 2.76454, 2.94402, - + .01204, .01591, 86.02574, 3.19338, 2.76578, - + 1.77786, 3.02705, 3.19863, - + .01240, .01610, 93.63403, 3.44274, 3.05216, - + 2.04589, 3.28220, 3.44809, - + .01287, .01635, 103.81516, 3.78310, 3.42685, - + 2.40614, 3.62811, 3.78858, - + .01331, .01658, 113.77729, 4.12384, 3.78979, - + 2.76252, 3.97260, 4.12944, - + .01373, .01680, 123.47881, 4.46143, 4.14164, - + 3.11276, 4.31277, 4.46713 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ - + .01415, .01702, 133.65033, 4.81928, 4.50925, - + 3.48181, 4.67254, 4.82509, - + .01457, .01724, 143.79108, 5.18256, 4.87908, - + 3.85507, 5.03726, 5.18847, - + .01497, .01745, 153.79414, 5.54394, 5.24481, - + 4.22526, 5.39974, 5.54995, - + .01534, .01765, 163.43129, 5.89651, 5.60036, - + 4.58571, 5.75317, 5.90261, - + .01573, .01784, 173.39726, 6.26447, 5.97062, - + 4.96129, 6.12189, 6.27065, - + .01611, .01804, 183.41074, 6.63827, 6.34622, - + 5.34238, 6.49638, 6.64455, - + .01647, .01823, 193.16772, 7.00577, 6.71514, - + 5.71664, 6.86447, 7.01212, - + .01681, .01841, 202.53276, 7.36239, 7.07296, - + 6.07955, 7.22164, 7.36882 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ - + .01716, .01859, 212.26091, 7.73504, 7.44670, - + 6.45844, 7.59481, 7.74154, - + .01751, .01877, 221.87061, 8.10832, 7.82100, - + 6.83781, 7.96860, 8.11490, - + .01785, .01894, 231.36542, 8.47846, 8.19205, - + 7.21367, 8.33920, 8.48510, - + .01817, .01910, 240.33441, 8.83298, 8.54743, - + 7.57359, 8.69417, 8.83969, - + .01849, .01927, 249.61873, 9.20211, 8.91739, - + 7.94811, 9.06373, 9.20888 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ - + .00706, .01361, 1.53322, .37869, .00288, - + .00000, .21247, .38141, - + .00742, .01382, 2.58435, .43136, .00654, - + .00000, .25875, .43416, - + .00795, .01412, 4.59470, .52325, .01562, - + .00000, .33971, .52620, - + .00834, .01434, 6.32426, .60052, .02638, - + .00000, .40812, .60356, - + .00875, .01457, 8.42389, .69087, .04338, - + .00000, .48865, .69402, - + .00911, .01477, 10.47581, .77604, .06460, - + .00000, .56524, .77929, - + .00945, .01497, 12.56889, .86259, .09253, - + .00000, .64394, .86592, - + .00982, .01517, 15.06571, .96050, .13300, - + .00000, .73418, .96391 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ - + .01015, .01535, 17.42632, 1.04968, .17951, - + .00000, .81773, 1.05317, - + .01046, .01552, 19.83518, 1.13789, .23621, - + .00000, .90187, 1.14145, - + .01071, .01566, 21.90024, 1.21004, .29088, - + .00000, .97187, 1.21366, - + .01125, .01595, 26.59290, 1.36636, .43866, - + .00000, 1.12769, 1.37010, - + .01172, .01621, 31.00678, 1.50427, .60213, - + .04515, 1.26985, 1.50811, - + .01225, .01649, 36.36189, 1.66357, .82242, - + .18557, 1.43853, 1.66752, - + .01281, .01679, 42.38701, 1.83848, 1.08596, - + .40993, 1.62678, 1.84255, - + .01332, .01706, 48.27945, 2.01011, 1.34707, - + .61411, 1.81179, 2.01428 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ - + .01384, .01734, 54.52941, 2.19714, 1.62208, - + .83662, 2.01197, 2.20141, - + .01427, .01757, 60.00384, 2.36578, 1.85595, - + 1.03199, 2.19041, 2.37014, - + .01481, .01785, 67.02507, 2.58867, 2.14481, - + 1.28317, 2.42329, 2.59313, - + .01528, .01810, 73.50425, 2.80136, 2.40335, - + 1.51723, 2.64302, 2.80590, - + .01572, .01832, 79.66604, 3.00904, 2.64348, - + 1.74163, 2.85578, 3.01365, - + .01628, .01862, 87.86759, 3.29146, 2.95588, - + 2.04189, 3.14304, 3.29618, - + .01681, .01889, 95.84486, 3.57298, 3.25671, - + 2.33749, 3.42783, 3.57779, - + .01731, .01915, 103.57189, 3.85078, 3.54688, - + 2.62671, 3.70787, 3.85567 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ - + .01782, .01941, 111.63496, 4.14416, 3.84871, - + 2.93024, 4.00292, 4.14914, - + .01832, .01967, 119.63110, 4.44078, 4.15099, - + 3.23595, 4.30079, 4.44583, - + .01879, .01991, 127.48499, 4.73483, 4.44881, - + 3.53803, 4.59579, 4.73996, - + .01924, .02014, 135.01810, 5.02069, 4.73727, - + 3.83111, 4.88242, 5.02590, - + .01970, .02037, 142.77744, 5.31808, 5.03667, - + 4.13548, 5.18047, 5.32336, - + .02015, .02060, 150.54222, 5.61922, 5.33937, - + 4.44329, 5.48220, 5.62455, - + .02058, .02082, 158.08008, 5.91437, 5.63578, - + 4.74464, 5.77788, 5.91977, - + .02099, .02103, 165.28799, 6.19994, 5.92241, - + 5.03599, 6.06392, 6.20540 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ - + .02141, .02124, 172.75272, 6.49756, 6.22101, - + 5.33934, 6.36201, 6.50308, - + .02182, .02145, 180.09729, 6.79480, 6.51915, - + 5.64217, 6.65969, 6.80038, - + .02222, .02165, 187.33549, 7.08885, 6.81402, - + 5.94148, 6.95415, 7.09448, - + .02260, .02184, 194.14720, 7.36971, 7.09564, - + 6.22729, 7.23540, 7.37539, - + .02299, .02204, 201.18002, 7.66148, 7.38817, - + 6.52402, 7.52756, 7.66722 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ - + .00859, .01478, 1.57929, .36523, .00278, - + .00000, .20465, .36793, - + .00899, .01501, 2.59688, .41555, .00628, - + .00000, .24885, .41833, - + .00961, .01535, 4.51139, .50268, .01491, - + .00000, .32559, .50558, - + .01006, .01560, 6.13971, .57538, .02509, - + .00000, .38994, .57836, - + .01053, .01586, 8.09954, .65988, .04108, - + .00000, .46527, .66295, - + .01095, .01609, 10.00087, .73913, .06099, - + .00000, .53654, .74227, - + .01134, .01631, 11.92878, .81923, .08708, - + .00000, .60940, .82244, - + .01177, .01654, 14.21527, .90945, .12477, - + .00000, .69261, .91273 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ - + .01215, .01674, 16.36580, .99128, .16795, - + .00000, .76934, .99461, - + .01251, .01694, 18.55020, 1.07185, .22044, - + .00000, .84630, 1.07525, - + .01280, .01709, 20.41583, 1.13755, .27094, - + .00000, .91014, 1.14099, - + .01342, .01742, 24.63322, 1.27918, .40694, - + .00000, 1.05162, 1.28272, - + .01396, .01771, 28.57582, 1.40338, .55671, - + .04090, 1.18003, 1.40700, - + .01457, .01803, 33.33201, 1.54610, .75763, - + .16770, 1.33166, 1.54982, - + .01520, .01837, 38.65208, 1.70205, .99676, - + .36972, 1.50011, 1.70586, - + .01579, .01867, 43.82704, 1.85452, 1.23245, - + .55266, 1.66501, 1.85841 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ - + .01638, .01898, 49.28793, 2.02013, 1.47938, - + .75125, 1.84277, 2.02411, - + .01688, .01924, 54.05032, 2.16910, 1.68837, - + .92499, 2.00075, 2.17315, - + .01749, .01956, 60.13276, 2.36553, 1.94525, - + 1.14761, 2.20634, 2.36966, - + .01803, .01983, 65.72110, 2.55247, 2.17406, - + 1.35431, 2.39971, 2.55668, - + .01853, .02009, 71.01545, 2.73457, 2.38570, - + 1.55188, 2.58643, 2.73884, - + .01917, .02042, 78.03543, 2.98157, 2.65991, - + 1.81539, 2.83782, 2.98592, - + .01977, .02073, 84.83403, 3.22701, 2.92284, - + 2.07391, 3.08623, 3.23144, - + .02034, .02102, 91.39390, 3.46852, 3.17552, - + 2.32604, 3.32976, 3.47302 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ - + .02092, .02131, 98.21572, 3.72290, 3.43753, - + 2.58990, 3.58565, 3.72747, - + .02148, .02160, 104.95483, 3.97933, 3.69908, - + 2.85484, 3.84322, 3.98397, - + .02202, .02187, 111.55376, 4.23291, 3.95606, - + 3.11595, 4.09767, 4.23762, - + .02253, .02213, 117.86292, 4.47882, 4.20432, - + 3.36863, 4.34426, 4.48358, - + .02305, .02239, 124.34293, 4.73404, 4.46136, - + 3.63042, 4.60009, 4.73887, - + .02356, .02265, 130.80826, 4.99188, 4.72063, - + 3.89453, 4.85847, 4.99676, - + .02405, .02289, 137.06776, 5.24404, 4.97395, - + 4.15254, 5.11111, 5.24898, - + .02452, .02312, 143.03712, 5.48749, 5.21838, - + 4.40143, 5.35500, 5.49249 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ - + .02499, .02336, 149.20547, 5.74076, 5.47254, - + 4.66009, 5.60869, 5.74580, - + .02545, .02359, 155.25697, 5.99314, 5.72576, - + 4.91774, 5.86147, 5.99823, - + .02590, .02382, 161.20993, 6.24240, 5.97579, - + 5.17196, 6.11112, 6.24755, - + .02633, .02403, 166.79651, 6.48000, 6.21408, - + 5.41422, 6.34907, 6.48519, - + .02677, .02424, 172.55348, 6.72643, 6.46122, - + 5.66532, 6.59587, 6.73167 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ - + .00994, .01575, 1.61608, .35505, .00271, - + .00000, .19878, .35778, - + .01039, .01601, 2.60683, .40360, .00609, - + .00000, .24142, .40641, - + .01108, .01638, 4.44797, .48719, .01438, - + .00000, .31502, .49009, - + .01158, .01666, 6.00030, .55649, .02412, - + .00000, .37637, .55946, - + .01212, .01695, 7.85635, .63669, .03938, - + .00000, .44785, .63973, - + .01258, .01719, 9.64682, .71158, .05831, - + .00000, .51522, .71468, - + .01302, .01743, 11.45394, .78696, .08305, - + .00000, .58380, .79012, - + .01350, .01769, 13.58751, .87157, .11871, - + .00000, .66189, .87480 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ - + .01392, .01791, 15.58610, .94805, .15945, - + .00000, .73365, .95133, - + .01432, .01812, 17.60889, 1.02310, .20888, - + .00000, .80542, 1.02643, - + .01464, .01829, 19.33144, 1.08414, .25633, - + .00000, .86481, 1.08752, - + .01534, .01866, 23.20960, 1.21520, .38379, - + .00000, .99597, 1.21866, - + .01594, .01897, 26.81769, 1.32960, .52366, - + .03785, 1.11452, 1.33313, - + .01661, .01933, 31.15104, 1.46051, .71064, - + .15493, 1.25401, 1.46412, - + .01732, .01969, 35.97602, 1.60302, .93228, - + .34103, 1.40839, 1.60672, - + .01797, .02003, 40.64968, 1.74194, 1.14984, - + .50891, 1.55905, 1.74571 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ - + .01863, .02037, 45.56176, 1.89248, 1.37684, - + .69058, 1.72101, 1.89632, - + .01918, .02065, 49.83081, 2.02764, 1.56823, - + .84909, 1.86461, 2.03154, - + .01985, .02100, 55.26529, 2.20553, 1.80259, - + 1.05164, 2.05105, 2.20951, - + .02045, .02130, 60.24118, 2.37449, 2.01055, - + 1.23919, 2.22600, 2.37853, - + .02101, .02158, 64.94121, 2.53876, 2.20227, - + 1.41802, 2.39457, 2.54286, - + .02171, .02194, 71.15443, 2.76112, 2.44987, - + 1.65595, 2.62101, 2.76529, - + .02238, .02228, 77.15127, 2.98155, 2.68649, - + 1.88873, 2.84419, 2.98580, - + .02301, .02260, 82.91988, 3.19797, 2.91325, - + 2.11521, 3.06249, 3.20228 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ - + .02365, .02292, 88.90279, 3.42545, 3.14777, - + 2.35168, 3.29137, 3.42983, - + .02427, .02323, 94.79520, 3.65425, 3.38129, - + 2.58855, 3.52121, 3.65868, - + .02487, .02353, 100.55107, 3.88005, 3.61025, - + 2.82153, 3.74782, 3.88455, - + .02543, .02381, 106.04026, 4.09860, 3.83097, - + 3.04653, 3.96701, 4.10315, - + .02600, .02409, 111.66531, 4.32501, 4.05908, - + 3.27920, 4.19399, 4.32962, - + .02656, .02437, 117.26454, 4.55332, 4.28873, - + 3.51350, 4.42280, 4.55798, - + .02710, .02464, 122.67403, 4.77623, 4.51272, - + 3.74199, 4.64616, 4.78094, - + .02761, .02489, 127.82166, 4.99108, 4.72848, - + 3.96203, 4.86142, 4.99584 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ - + .02813, .02515, 133.13170, 5.21426, 4.95251, - + 4.19037, 5.08500, 5.21907, - + .02865, .02540, 138.32895, 5.43627, 5.17531, - + 4.41741, 5.30739, 5.44113, - + .02914, .02564, 143.43436, 5.65527, 5.39503, - + 4.64115, 5.52675, 5.66017, - + .02961, .02588, 148.21486, 5.86368, 5.60411, - + 4.85401, 5.73549, 5.86862, - + .03009, .02611, 153.13387, 6.07958, 5.82066, - + 5.07436, 5.95173, 6.08457 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ - + .01530, .01924, 1.73691, .32481, .00248, - + .00000, .18161, .32787, - + .01595, .01958, 2.63966, .36819, .00552, - + .00000, .21968, .37130, - + .01693, .02009, 4.25790, .44145, .01285, - + .00000, .28417, .44464, - + .01765, .02046, 5.58722, .50100, .02134, - + .00000, .33688, .50424, - + .01840, .02084, 7.14470, .56890, .03448, - + .00000, .39743, .57220, - + .01905, .02118, 8.62104, .63146, .05064, - + .00000, .45377, .63482, - + .01968, .02149, 10.08978, .69359, .07156, - + .00000, .51038, .69700, - + .02035, .02183, 11.79946, .76260, .10148, - + .00000, .57419, .76605 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ - + .02094, .02213, 13.38077, .82426, .13540, - + .00000, .63222, .82776, - + .02150, .02242, 14.96322, .88413, .17627, - + .00000, .68969, .88767, - + .02196, .02264, 16.29847, .93243, .21527, - + .00000, .73690, .93600, - + .02292, .02313, 19.26629, 1.03479, .31912, - + .00000, .83998, 1.03843, - + .02376, .02355, 21.98588, 1.12279, .43186, - + .02962, .93195, 1.12649, - + .02470, .02402, 25.20653, 1.22216, .58088, - + .12057, 1.03888, 1.22594, - + .02568, .02450, 28.74099, 1.32904, .75529, - + .26410, 1.15589, 1.33289, - + .02658, .02495, 32.11915, 1.43230, .92427, - + .39201, 1.26896, 1.43622 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ - + .02749, .02540, 35.62443, 1.54336, 1.09829, - + .52911, 1.38943, 1.54734, - + .02825, .02577, 38.63769, 1.64251, 1.24324, - + .64768, 1.49545, 1.64654, - + .02918, .02623, 42.43379, 1.77229, 1.41860, - + .79791, 1.63216, 1.77639, - + .03000, .02663, 45.87154, 1.89479, 1.57231, - + .93582, 1.75946, 1.89895, - + .03076, .02700, 49.08774, 2.01320, 1.71253, - + 1.06631, 1.88131, 2.01741, - + .03172, .02747, 53.29885, 2.17248, 1.89176, - + 1.23857, 2.04383, 2.17677, - + .03263, .02792, 57.31908, 2.32921, 2.06120, - + 1.40565, 2.20274, 2.33356, - + .03349, .02833, 61.14857, 2.48199, 2.22207, - + 1.56694, 2.35701, 2.48640 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ - + .03435, .02875, 65.08667, 2.64155, 2.38714, - + 1.73414, 2.51769, 2.64602, - + .03520, .02916, 68.92693, 2.80086, 2.55016, - + 1.90038, 2.67785, 2.80539, - + .03600, .02955, 72.64932, 2.95714, 2.70893, - + 2.06282, 2.83478, 2.96172, - + .03677, .02992, 76.17011, 3.10744, 2.86097, - + 2.21870, 2.98561, 3.11208, - + .03753, .03029, 79.75186, 3.26227, 3.01716, - + 2.37895, 3.14090, 3.26696, - + .03829, .03065, 83.29028, 3.41748, 3.17347, - + 2.53936, 3.29653, 3.42222, - + .03901, .03100, 86.68545, 3.56820, 3.32509, - + 2.69492, 3.44763, 3.57299, - + .03970, .03133, 89.89347, 3.71269, 3.47035, - + 2.84392, 3.59247, 3.71754 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ - + .04040, .03166, 93.18462, 3.86210, 3.62048, - + 2.99782, 3.74223, 3.86700, - + .04108, .03199, 96.38093, 4.00991, 3.76896, - + 3.15000, 3.89035, 4.01485, - + .04174, .03230, 99.50684, 4.15513, 3.91480, - + 3.29935, 4.03588, 4.16012, - + .04237, .03260, 102.41191, 4.29260, 4.05285, - + 3.44069, 4.17364, 4.29764, - + .04301, .03291, 105.38697, 4.43446, 4.19527, - + 3.58643, 4.31578, 4.43954 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ - + .02302, .02363, 1.86960, .29661, .00228, - + .00000, .16596, .30040, - + .02395, .02409, 2.67734, .33515, .00500, - + .00000, .19978, .33900, - + .02534, .02476, 4.07922, .39896, .01146, - + .00000, .25599, .40291, - + .02635, .02525, 5.20287, .44976, .01882, - + .00000, .30100, .45380, - + .02741, .02577, 6.49320, .50681, .03010, - + .00000, .35193, .51092, - + .02833, .02621, 7.69493, .55863, .04381, - + .00000, .39867, .56281, - + .02921, .02664, 8.87322, .60937, .06140, - + .00000, .44501, .61362, - + .03015, .02709, 10.22504, .66509, .08636, - + .00000, .49668, .66941 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ - + .03097, .02748, 11.45919, .71429, .11443, - + .00000, .54316, .71867, - + .03176, .02786, 12.67994, .76152, .14799, - + .00000, .58872, .76596, - + .03240, .02816, 13.70029, .79928, .17984, - + .00000, .62586, .80377, - + .03374, .02881, 15.93831, .87823, .26387, - + .00000, .70599, .88281, - + .03490, .02936, 17.95713, .94499, .35407, - + .02297, .77649, .94966, - + .03621, .02998, 20.31323, 1.01932, .47194, - + .09295, .85747, 1.02408, - + .03756, .03063, 22.86015, 1.09826, .60809, - + .20259, .94501, 1.10312, - + .03880, .03122, 25.26075, 1.17383, .73823, - + .29909, 1.02876, 1.17878 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ - + .04005, .03181, 27.71827, 1.25449, .87043, - + .40148, 1.11717, 1.25954, - + .04109, .03230, 29.80670, 1.32612, .97914, - + .48924, 1.19440, 1.33124, - + .04236, .03290, 32.40913, 1.41940, 1.10899, - + .59947, 1.29328, 1.42462, - + .04348, .03343, 34.73860, 1.50690, 1.22133, - + .69975, 1.38465, 1.51220, - + .04452, .03392, 36.89589, 1.59099, 1.32268, - + .79388, 1.47149, 1.59637, - + .04583, .03454, 39.69215, 1.70340, 1.45078, - + .91714, 1.58650, 1.70887, - + .04707, .03512, 42.33062, 1.81316, 1.57051, - + 1.03563, 1.69802, 1.81872, - + .04823, .03566, 44.81767, 1.91938, 1.68308, - + 1.14908, 1.80546, 1.92503 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ - + .04939, .03621, 47.35239, 2.02958, 1.79761, - + 1.26583, 1.91658, 2.03532, - + .05053, .03674, 49.79746, 2.13878, 1.90974, - + 1.38099, 2.02649, 2.14460, - + .05162, .03725, 52.14822, 2.24521, 2.01818, - + 1.49278, 2.13349, 2.25111, - + .05264, .03772, 54.35182, 2.34691, 2.12130, - + 1.59932, 2.23565, 2.35289, - + .05367, .03820, 56.57603, 2.45105, 2.22657, - + 1.70818, 2.34020, 2.45710, - + .05468, .03867, 58.75528, 2.55480, 2.33126, - + 1.81648, 2.44433, 2.56093, - + .05564, .03912, 60.83076, 2.65498, 2.43223, - + 1.92090, 2.54486, 2.66119, - + .05656, .03955, 62.77665, 2.75049, 2.52840, - + 2.02035, 2.64068, 2.75675 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ - + .05749, .03998, 64.76130, 2.84878, 2.62734, - + 2.12257, 2.73928, 2.85512, - + .05840, .04040, 66.67182, 2.94542, 2.72458, - + 2.22305, 2.83623, 2.95183, - + .05927, .04081, 68.53179, 3.04001, 2.81973, - + 2.32124, 2.93110, 3.04648, - + .06010, .04119, 70.24541, 3.12903, 2.90927, - + 2.41366, 3.02038, 3.13556, - + .06094, .04158, 71.99149, 3.22052, 3.00127, - + 2.50855, 3.11214, 3.22711 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ - + .02906, .02676, 1.95431, .28108, .00216, - + .00000, .15746, .28549, - + .03019, .02730, 2.70336, .31688, .00472, - + .00000, .18890, .32138, - + .03189, .02810, 3.98084, .37546, .01071, - + .00000, .24055, .38010, - + .03312, .02868, 4.99065, .42153, .01746, - + .00000, .28140, .42627, - + .03442, .02929, 6.13660, .47276, .02773, - + .00000, .32720, .47761, - + .03554, .02982, 7.19272, .51891, .04013, - + .00000, .36888, .52386, - + .03661, .03032, 8.21934, .56370, .05597, - + .00000, .40986, .56873, - + .03775, .03086, 9.38683, .61254, .07830, - + .00000, .45526, .61767 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ - + .03875, .03132, 10.44436, .65535, .10332, - + .00000, .49582, .66057, - + .03971, .03177, 11.48307, .69616, .13309, - + .00000, .53533, .70145, - + .04047, .03213, 12.34628, .72861, .16124, - + .00000, .56738, .73397, - + .04210, .03289, 14.22442, .79585, .23511, - + .00000, .63603, .80135, - + .04350, .03354, 15.90241, .85215, .31387, - + .01967, .69592, .85775, - + .04507, .03427, 17.84333, .91426, .41607, - + .07933, .76418, .91999, - + .04671, .03503, 19.92211, .97970, .53320, - + .17239, .83743, .98557, - + .04819, .03573, 21.86477, 1.04201, .64423, - + .25368, .90709, 1.04801 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ - + .04970, .03642, 23.83692, 1.10823, .75608, - + .33941, .98020, 1.11435, - + .05094, .03700, 25.50099, 1.16685, .84734, - + .41248, 1.04379, 1.17307, - + .05246, .03770, 27.56070, 1.24298, .95548, - + .50378, 1.12486, 1.24932, - + .05380, .03832, 29.39102, 1.31413, 1.04828, - + .58637, 1.19942, 1.32058, - + .05503, .03889, 31.07531, 1.38227, 1.13142, - + .66354, 1.26999, 1.38882, - + .05660, .03961, 33.24486, 1.47303, 1.23578, - + .76409, 1.36306, 1.47971, - + .05807, .04029, 35.27691, 1.56123, 1.33262, - + .86021, 1.45283, 1.56804, - + .05944, .04093, 37.17973, 1.64622, 1.42312, - + .95179, 1.53892, 1.65314 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ - + .06083, .04156, 39.10820, 1.73404, 1.51472, - + 1.04562, 1.62759, 1.74108, - + .06218, .04218, 40.95552, 1.82065, 1.60391, - + 1.13772, 1.71486, 1.82779, - + .06346, .04277, 42.72254, 1.90475, 1.68978, - + 1.22676, 1.79949, 1.91200, - + .06466, .04332, 44.36941, 1.98478, 1.77110, - + 1.31127, 1.87996, 1.99213, - + .06588, .04388, 46.02343, 2.06643, 1.85379, - + 1.39730, 1.96201, 2.07388, - + .06707, .04443, 47.63536, 2.14747, 1.93570, - + 1.48255, 2.04343, 2.15501, - + .06821, .04495, 49.16331, 2.22545, 2.01442, - + 1.56446, 2.12175, 2.23309, - + .06928, .04544, 50.58853, 2.29952, 2.08913, - + 1.64220, 2.19614, 2.30725 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ - + .07037, .04593, 52.03683, 2.37554, 2.16577, - + 1.72187, 2.27247, 2.38336, - + .07144, .04642, 53.42278, 2.45000, 2.24082, - + 1.79989, 2.34723, 2.45791, - + .07247, .04689, 54.76839, 2.52270, 2.31406, - + 1.87595, 2.42021, 2.53069, - + .07344, .04733, 56.00077, 2.59087, 2.38274, - + 1.94728, 2.48865, 2.59894, - + .07442, .04778, 57.25243, 2.66076, 2.45313, - + 2.02033, 2.55881, 2.66891 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ - + .03423, .02932, 2.01850, .27053, .00209, - + .00000, .15170, .27547, - + .03554, .02993, 2.72460, .30440, .00452, - + .00000, .18148, .30946, - + .03749, .03083, 3.91431, .35936, .01019, - + .00000, .22997, .36460, - + .03891, .03149, 4.84550, .40219, .01653, - + .00000, .26799, .40756, - + .04040, .03218, 5.89324, .44950, .02611, - + .00000, .31032, .45500, - + .04169, .03277, 6.85154, .49184, .03764, - + .00000, .34862, .49746, - + .04291, .03334, 7.77726, .53268, .05229, - + .00000, .38604, .53840, - + .04422, .03394, 8.82325, .57698, .07288, - + .00000, .42730, .58282 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ - + .04536, .03447, 9.76531, .61560, .09585, - + .00000, .46398, .62155, - + .04646, .03497, 10.68584, .65222, .12312, - + .00000, .49954, .65826, - + .04733, .03538, 11.44762, .68122, .14882, - + .00000, .52829, .68734, - + .04919, .03623, 13.09528, .74093, .21601, - + .00000, .58953, .74722, - + .05079, .03697, 14.55699, .79053, .28730, - + .01755, .64262, .79696, - + .05257, .03779, 16.23665, .84489, .37934, - + .07062, .70278, .85148, - + .05443, .03864, 18.02335, .90183, .48422, - + .15314, .76700, .90858, - + .05612, .03942, 19.68249, .95583, .58303, - + .22481, .82779, .96273 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ - + .05783, .04020, 21.35637, 1.01303, .68197, - + .30006, .89134, 1.02009, - + .05924, .04084, 22.76132, 1.06357, .76222, - + .36394, .94643, 1.07075, - + .06096, .04163, 24.49160, 1.12906, .85677, - + .44345, 1.01644, 1.13639, - + .06247, .04232, 26.02084, 1.19011, .93741, - + .51509, 1.08062, 1.19758, - + .06386, .04296, 27.42137, 1.24844, 1.00928, - + .58179, 1.14118, 1.25603, - + .06563, .04376, 29.21698, 1.32593, 1.09904, - + .66838, 1.22079, 1.33368, - + .06728, .04452, 30.88946, 1.40098, 1.18188, - + .75082, 1.29730, 1.40887, - + .06884, .04522, 32.44775, 1.47306, 1.25893, - + .82909, 1.37041, 1.48109 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ - + .07039, .04593, 34.02047, 1.54733, 1.33664, - + .90901, 1.44548, 1.55550, - + .07191, .04662, 35.51890, 1.62031, 1.41198, - + .98718, 1.51910, 1.62862, - + .07334, .04727, 36.94674, 1.69099, 1.48430, - + 1.06252, 1.59029, 1.69941, - + .07470, .04789, 38.27161, 1.75803, 1.55255, - + 1.13382, 1.65777, 1.76658, - + .07606, .04850, 39.59719, 1.82625, 1.62176, - + 1.20619, 1.72640, 1.83492, - + .07739, .04911, 40.88373, 1.89377, 1.69012, - + 1.27771, 1.79429, 1.90256, - + .07866, .04969, 42.09881, 1.95857, 1.75564, - + 1.34625, 1.85944, 1.96747, - + .07986, .05023, 43.22771, 2.01997, 1.81766, - + 1.41113, 1.92115, 2.02897 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ - + .08108, .05078, 44.37173, 2.08284, 1.88115, - + 1.47747, 1.98434, 2.09195, - + .08227, .05132, 45.46129, 2.14425, 1.94313, - + 1.54227, 2.04606, 2.15346, - + .08342, .05183, 46.51706, 2.20410, 2.00352, - + 1.60531, 2.10620, 2.21342, - + .08450, .05232, 47.47936, 2.26007, 2.05999, - + 1.66428, 2.16244, 2.26948, - + .08559, .05282, 48.45438, 2.31734, 2.11777, - + 1.72456, 2.21998, 2.32685 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ - + .03898, .03160, 2.07605, .26289, .00202, - + .00000, .14734, .26815, - + .04044, .03227, 2.74914, .29521, .00436, - + .00000, .17576, .30060, - + .04261, .03328, 3.87013, .34732, .00977, - + .00000, .22175, .35290, - + .04418, .03400, 4.73995, .38763, .01578, - + .00000, .25756, .39336, - + .04584, .03476, 5.71166, .43193, .02484, - + .00000, .29722, .43780, - + .04726, .03542, 6.59486, .47137, .03569, - + .00000, .33293, .47738, - + .04862, .03604, 7.44373, .50923, .04942, - + .00000, .36766, .51535, - + .05007, .03671, 8.39780, .55013, .06868, - + .00000, .40580, .55638 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ - + .05132, .03729, 9.25309, .58563, .09010, - + .00000, .43958, .59200, - + .05253, .03784, 10.08528, .61914, .11546, - + .00000, .47219, .62561, - + .05350, .03829, 10.77156, .64559, .13931, - + .00000, .49849, .65215, - + .05555, .03923, 12.24890, .69977, .20147, - + .00000, .55426, .70652, - + .05731, .04003, 13.55190, .74448, .26717, - + .01600, .60235, .75138, - + .05928, .04094, 15.04109, .79321, .35165, - + .06424, .65660, .80029, - + .06132, .04187, 16.61634, .84401, .44745, - + .13905, .71425, .85127, - + .06318, .04272, 18.07147, .89202, .53729, - + .20374, .76862, .89945 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ - + .06505, .04357, 19.53202, .94276, .62679, - + .27140, .82527, .95035, - + .06660, .04428, 20.75257, .98750, .69904, - + .32866, .87425, .99523, - + .06848, .04514, 22.24956, 1.04539, .78375, - + .39970, .93634, 1.05329, - + .07013, .04589, 23.56657, 1.09925, .85565, - + .46349, .99309, 1.10730, - + .07165, .04658, 24.76788, 1.15060, .91945, - + .52271, 1.04652, 1.15879, - + .07358, .04746, 26.30209, 1.21867, .99879, - + .59937, 1.11656, 1.22703, - + .07539, .04828, 27.72445, 1.28442, 1.07170, - + .67212, 1.18367, 1.29294, - + .07708, .04905, 29.04414, 1.34740, 1.13925, - + .74097, 1.24762, 1.35607 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ - + .07877, .04982, 30.37143, 1.41213, 1.20715, - + .81109, 1.31311, 1.42095, - + .08042, .05057, 31.63042, 1.47556, 1.27277, - + .87947, 1.37715, 1.48452, - + .08199, .05127, 32.82621, 1.53684, 1.33559, - + .94521, 1.43893, 1.54594, - + .08345, .05194, 33.93155, 1.59483, 1.39473, - + 1.00728, 1.49735, 1.60406, - + .08493, .05261, 35.03389, 1.65370, 1.45454, - + 1.07013, 1.55662, 1.66307, - + .08638, .05326, 36.09999, 1.71183, 1.51348, - + 1.13209, 1.61512, 1.72132, - + .08775, .05388, 37.10369, 1.76751, 1.56985, - + 1.19135, 1.67114, 1.77712, - + .08905, .05447, 38.03294, 1.82014, 1.62310, - + 1.24733, 1.72408, 1.82987 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ - + .09037, .05506, 38.97249, 1.87395, 1.67750, - + 1.30447, 1.77821, 1.88379, - + .09166, .05564, 39.86370, 1.92636, 1.73049, - + 1.36013, 1.83093, 1.93632, - + .09289, .05620, 40.72589, 1.97738, 1.78204, - + 1.41421, 1.88223, 1.98745, - + .09406, .05672, 41.50849, 2.02498, 1.83013, - + 1.46470, 1.93010, 2.03515, - + .09524, .05725, 42.29984, 2.07362, 1.87927, - + 1.51623, 1.97902, 2.08390 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ - + .05805, .04036, 2.25666, .24019, .00184, - + .00000, .13466, .24715, - + .06007, .04129, 2.81989, .26777, .00391, - + .00000, .15896, .27491, - + .06307, .04266, 3.72669, .31126, .00856, - + .00000, .19745, .31870, - + .06523, .04365, 4.41225, .34417, .01363, - + .00000, .22677, .35181, - + .06750, .04468, 5.16130, .37970, .02113, - + .00000, .25869, .38755, - + .06944, .04557, 5.82881, .41083, .03001, - + .00000, .28698, .41888, - + .07129, .04641, 6.46028, .44022, .04113, - + .00000, .31407, .44844, - + .07325, .04731, 7.15800, .47154, .05656, - + .00000, .34346, .47995 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ - + .07496, .04809, 7.77416, .49834, .07357, - + .00000, .36914, .50691, - + .07659, .04884, 8.36562, .52328, .09354, - + .00000, .39364, .53200, - + .07789, .04943, 8.84792, .54275, .11219, - + .00000, .41321, .55160, - + .08064, .05068, 9.87000, .58192, .16030, - + .00000, .45411, .59103, - + .08300, .05176, 10.75453, .61355, .21052, - + .01181, .48877, .62288, - + .08563, .05295, 11.74767, .64736, .27425, - + .04711, .52728, .65694, - + .08834, .05419, 12.77886, .68204, .34545, - + .10140, .56760, .69188, - + .09080, .05530, 13.71510, .71448, .41118, - + .14767, .60518, .72455 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ - + .09325, .05642, 14.63869, .74848, .47560, - + .19548, .64391, .75878, - + .09529, .05734, 15.39926, .77831, .52681, - + .23551, .67710, .78880, - + .09775, .05846, 16.31923, .81673, .58591, - + .28467, .71886, .82746, - + .09991, .05944, 17.11621, .85225, .63524, - + .32835, .75668, .86318, - + .10188, .06033, 17.83330, .88590, .67840, - + .36851, .79199, .89701, - + .10438, .06146, 18.73711, .93021, .73131, - + .42000, .83790, .94156, - + .10672, .06251, 19.56153, .97262, .77920, - + .46834, .88145, .98419, - + .10889, .06350, 20.31532, 1.01290, .82302, - + .51365, .92255, 1.02466 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ - + .11106, .06447, 21.06450, 1.05398, .86661, - + .55939, .96431, 1.06594, - + .11317, .06542, 21.76344, 1.09383, .90824, - + .60356, 1.00473, 1.10599, - + .11516, .06632, 22.42003, 1.13205, .94776, - + .64569, 1.04342, 1.14439, - + .11702, .06715, 23.01871, 1.16791, .98462, - + .68514, 1.07971, 1.18043, - + .11889, .06799, 23.60897, 1.20405, 1.02161, - + .72479, 1.11624, 1.21674, - + .12071, .06881, 24.17256, 1.23945, 1.05777, - + .76358, 1.15202, 1.25231, - + .12244, .06959, 24.69725, 1.27312, 1.09211, - + .80042, 1.18603, 1.28614, - + .12407, .07032, 25.17681, 1.30471, 1.12430, - + .83497, 1.21795, 1.31788 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ - + .12572, .07105, 25.65777, 1.33683, 1.15701, - + .87003, 1.25039, 1.35014, - + .12733, .07177, 26.10659, 1.36784, 1.18859, - + .90393, 1.28172, 1.38131, - + .12887, .07246, 26.53859, 1.39790, 1.21919, - + .93670, 1.31208, 1.41150, - + .13031, .07310, 26.92405, 1.42571, 1.24750, - + .96707, 1.34017, 1.43945, - + .13177, .07375, 27.31096, 1.45400, 1.27629, - + .99791, 1.36874, 1.46786 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ - + .08616, .05308, 2.42055, .21997, .00169, - + .00000, .12320, .22934, - + .08889, .05435, 2.86595, .24266, .00350, - + .00000, .14329, .25231, - + .09294, .05622, 3.55845, .27765, .00744, - + .00000, .17439, .28771, - + .09585, .05757, 4.06772, .30350, .01161, - + .00000, .19755, .31386, - + .09888, .05897, 4.61119, .33089, .01767, - + .00000, .22231, .34156, - + .10148, .06017, 5.08543, .35449, .02473, - + .00000, .24389, .36542, - + .10392, .06130, 5.52653, .37637, .03345, - + .00000, .26422, .38755, - + .10652, .06250, 6.00497, .39935, .04542, - + .00000, .28597, .41078 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ - + .10877, .06353, 6.42067, .41869, .05848, - + .00000, .30471, .43035, - + .11092, .06452, 6.81379, .43640, .07366, - + .00000, .32235, .44827, - + .11263, .06530, 7.13043, .45005, .08774, - + .00000, .33629, .46210, - + .11622, .06695, 7.78994, .47696, .12366, - + .00000, .36495, .48936, - + .11928, .06836, 8.34864, .49813, .16065, - + .00842, .38879, .51084, - + .12268, .06991, 8.96346, .52026, .20695, - + .03332, .41482, .53330, - + .12617, .07151, 9.58844, .54252, .25786, - + .07129, .44163, .55591, - + .12932, .07295, 10.14474, .56310, .30406, - + .10314, .46628, .57680 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ - + .13245, .07437, 10.68234, .58448, .34856, - + .13561, .49137, .59848, - + .13503, .07555, 11.11736, .60316, .38333, - + .16250, .51269, .61742, - + .13814, .07696, 11.63498, .62713, .42277, - + .19515, .53928, .64169, - + .14086, .07819, 12.07496, .64915, .45509, - + .22382, .56312, .66396, - + .14333, .07931, 12.46430, .66987, .48290, - + .24991, .58518, .68492, - + .14644, .08072, 12.94726, .69697, .51645, - + .28302, .61361, .71232, - + .14934, .08202, 13.37833, .72264, .54630, - + .31373, .64026, .73827, - + .15202, .08323, 13.76532, .74679, .57322, - + .34220, .66516, .76268 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ - + .15469, .08443, 14.14441, .77122, .59967, - + .37069, .69023, .78736, - + .15726, .08558, 14.48963, .79463, .62460, - + .39788, .71419, .81101, - + .15969, .08667, 14.80943, .81689, .64802, - + .42359, .73694, .83350, - + .16195, .08768, 15.09556, .83758, .66964, - + .44745, .75806, .85440, - + .16420, .08868, 15.37317, .85825, .69115, - + .47123, .77916, .87528, - + .16640, .08966, 15.63328, .87832, .71198, - + .49431, .79963, .89555, - + .16848, .09059, 15.87167, .89724, .73160, - + .51605, .81893, .91466, - + .17043, .09145, 16.08542, .91482, .74982, - + .53626, .83686, .93242 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ - + .17239, .09232, 16.29747, .93258, .76821, - + .55665, .85498, .95036, - + .17429, .09316, 16.48992, .94956, .78580, - + .57618, .87230, .96751, - + .17612, .09396, 16.67414, .96593, .80275, - + .59498, .88901, .98405, - + .17782, .09471, 16.83356, .98092, .81828, - + .61223, .90430, .99919, - + .17954, .09547, 16.99186, .99607, .83399, - + .62967, .91977, 1.01450 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ - + .10831, .06328, 2.48306, .20897, .00161, - + .00000, .11704, .22047, - + .11154, .06480, 2.85603, .22871, .00328, - + -.00001, .13459, .24055, - + .11630, .06702, 3.42442, .25872, .00682, - + -.00001, .16141, .27106, - + .11972, .06862, 3.83560, .28059, .01050, - + .00000, .18110, .29328, - + .12327, .07027, 4.26822, .30348, .01576, - + .00000, .20192, .31655, - + .12630, .07168, 4.64087, .32299, .02182, - + -.00001, .21988, .33638, - + .12915, .07301, 4.98384, .34090, .02924, - + -.00001, .23664, .35458, - + .13217, .07441, 5.35164, .35951, .03935, - + -.00001, .25441, .37351 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ - + .13477, .07561, 5.66799, .37502, .05029, - + -.00001, .26959, .38929, - + .13726, .07676, 5.96429, .38908, .06295, - + -.00001, .28375, .40359, - + .13922, .07767, 6.20111, .39982, .07462, - + -.00001, .29487, .41454, - + .14335, .07957, 6.68877, .42070, .10420, - + -.00001, .31750, .43584, - + .14686, .08119, 7.09622, .43685, .13441, - + .00675, .33609, .45233, - + .15074, .08297, 7.53871, .45345, .17191, - + .02661, .35616, .46933, - + .15471, .08479, 7.98212, .46994, .21274, - + .05673, .37662, .48621, - + .15828, .08641, 8.37150, .48506, .24942, - + .08176, .39527, .50169 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ - + .16181, .08802, 8.74224, .50070, .28436, - + .10707, .41411, .51768, - + .16472, .08934, 9.03866, .51434, .31138, - + .12787, .43002, .53159, - + .16820, .09092, 9.38738, .53180, .34169, - + .15296, .44975, .54939, - + .17124, .09230, 9.67974, .54778, .36623, - + .17484, .46734, .56567, - + .17399, .09354, 9.93509, .56277, .38713, - + .19462, .48352, .58092, - + .17745, .09509, 10.24812, .58228, .41209, - + .21955, .50426, .60077, - + .18065, .09653, 10.52307, .60066, .43404, - + .24251, .52356, .61944, - + .18361, .09785, 10.76592, .61782, .45363, - + .26365, .54145, .63688 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ - + .18655, .09916, 11.00103, .63508, .47273, - + .28466, .55936, .65442, - + .18936, .10041, 11.21121, .65150, .49058, - + .30459, .57635, .67110, - + .19201, .10158, 11.40366, .66703, .50724, - + .32333, .59239, .68687, - + .19447, .10267, 11.57279, .68135, .52250, - + .34061, .60718, .70142, - + .19692, .10375, 11.73472, .69558, .53760, - + .35775, .62185, .71587, - + .19930, .10480, 11.88396, .70930, .55213, - + .37428, .63601, .72981, - + .20154, .10578, 12.01862, .72215, .56573, - + .38978, .64927, .74287, - + .20363, .10670, 12.13691, .73403, .57829, - + .40412, .66153, .75493 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ - + .20574, .10762, 12.25312, .74597, .59092, - + .41852, .67386, .76706, - + .20777, .10850, 12.35546, .75729, .60290, - + .43223, .68555, .77856, - + .20972, .10935, 12.45310, .76818, .61442, - + .44539, .69680, .78962, - + .21152, .11013, 12.53450, .77806, .62490, - + .45739, .70701, .79965, - + .21335, .11092, 12.61444, .78800, .63544, - + .46946, .71729, .80976 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ - + .12729, .07226, 2.49979, .20152, .00155, - + .00000, .11289, .21496, - + .13091, .07397, 2.82079, .21910, .00313, - + -.00001, .12861, .23292, - + .13621, .07647, 3.30313, .24555, .00640, - + -.00001, .15238, .25994, - + .14001, .07825, 3.64785, .26463, .00973, - + .00000, .16966, .27943, - + .14395, .08009, 4.00681, .28444, .01445, - + .00000, .18778, .29966, - + .14730, .08166, 4.31311, .30119, .01983, - + -.00001, .20330, .31676, - + .15045, .08312, 4.59275, .31644, .02636, - + -.00001, .21768, .33234, - + .15378, .08467, 4.89012, .33217, .03521, - + -.00001, .23283, .34842 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ - + .15664, .08600, 5.14393, .34519, .04474, - + -.00001, .24569, .36173, - + .15936, .08726, 5.37991, .35688, .05571, - + -.00001, .25761, .37371, - + .16152, .08825, 5.56744, .36577, .06579, - + -.00001, .26692, .38282, - + .16603, .09034, 5.95016, .38284, .09120, - + -.00001, .28573, .40035, - + .16986, .09210, 6.26648, .39585, .11700, - + .00570, .30104, .41375, - + .17406, .09402, 6.60644, .40906, .14882, - + .02241, .31743, .42738, - + .17837, .09599, 6.94323, .42204, .18322, - + .04763, .33399, .44078, - + .18222, .09774, 7.23577, .43388, .21390, - + .06845, .34900, .45300 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ - + .18602, .09946, 7.51088, .44607, .24290, - + .08937, .36407, .46557, - + .18913, .10087, 7.72857, .45669, .26515, - + .10648, .37674, .47649, - + .19286, .10255, 7.98223, .47028, .28990, - + .12702, .39240, .49044, - + .19611, .10401, 8.19227, .48269, .30977, - + .14482, .40628, .50315, - + .19903, .10532, 8.37365, .49429, .32656, - + .16084, .41900, .51503, - + .20271, .10695, 8.59371, .50936, .34645, - + .18094, .43523, .53045, - + .20609, .10845, 8.78404, .52347, .36379, - + .19935, .45025, .54487, - + .20921, .10983, 8.94971, .53658, .37915, - + .21621, .46409, .55827 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ - + .21230, .11119, 9.10843, .54971, .39403, - + .23289, .47788, .57169, - + .21525, .11249, 9.24739, .56212, .40784, - + .24863, .49089, .58436, - + .21801, .11370, 9.37324, .57381, .42066, - + .26338, .50311, .59630, - + .22058, .11482, 9.48181, .58452, .43235, - + .27691, .51431, .60724, - + .22313, .11592, 9.58424, .59511, .44385, - + .29027, .52538, .61805, - + .22559, .11699, 9.67684, .60526, .45486, - + .30311, .53599, .62842, - + .22791, .11799, 9.75898, .61473, .46512, - + .31510, .54590, .63810, - + .23007, .11892, 9.82941, .62343, .47456, - + .32615, .55500, .64698 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ - + .23223, .11985, 9.89785, .63215, .48401, - + .33721, .56413, .65588, - + .23432, .12074, 9.95571, .64035, .49292, - + .34769, .57273, .66425, - + .23631, .12159, 10.01079, .64821, .50148, - + .35773, .58098, .67229, - + .23816, .12237, 10.05429, .65529, .50920, - + .36683, .58842, .67952, - + .24002, .12316, 10.09638, .66240, .51696, - + .37598, .59589, .68678 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ - + .14421, .08045, 2.49098, .19582, .00152, - + .00000, .10979, .21112, - + .14814, .08231, 2.77185, .21169, .00302, - + .00000, .12406, .22741, - + .15389, .08502, 3.18938, .23538, .00608, - + .00000, .14547, .25172, - + .15799, .08695, 3.48493, .25233, .00916, - + .00000, .16092, .26911, - + .16223, .08894, 3.79017, .26981, .01346, - + .00000, .17702, .28705, - + .16584, .09062, 4.04872, .28450, .01832, - + .00000, .19073, .30212, - + .16922, .09220, 4.28323, .29779, .02420, - + .00000, .20336, .31576, - + .17278, .09385, 4.53092, .31142, .03211, - + .00000, .21659, .32977 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ - + .17584, .09527, 4.74096, .32262, .04059, - + .00000, .22777, .34128, - + .17875, .09661, 4.93509, .33262, .05032, - + .00000, .23808, .35158, - + .18104, .09767, 5.08866, .34018, .05923, - + .00000, .24611, .35937, - + .18584, .09988, 5.39972, .35456, .08161, - + .00000, .26222, .37424, - + .18990, .10174, 5.65434, .36539, .10422, - + .00497, .27522, .38547, - + .19436, .10376, 5.92554, .37625, .13196, - + .01945, .28905, .39678, - + .19890, .10582, 6.19161, .38681, .16180, - + .04124, .30293, .40780, - + .20294, .10765, 6.42054, .39641, .18825, - + .05914, .31544, .41779 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ - + .20694, .10945, 6.63341, .40626, .21309, - + .07704, .32794, .42803, - + .21019, .11091, 6.80027, .41484, .23204, - + .09161, .33842, .43691, - + .21409, .11264, 6.99294, .42582, .25299, - + .10904, .35132, .44826, - + .21746, .11414, 7.15045, .43583, .26969, - + .12408, .36273, .45858, - + .22050, .11548, 7.28504, .44517, .28370, - + .13756, .37313, .46820, - + .22431, .11716, 7.44677, .45726, .30020, - + .15442, .38635, .48064, - + .22780, .11869, 7.58445, .46854, .31447, - + .16978, .39853, .49223, - + .23101, .12009, 7.70261, .47897, .32705, - + .18379, .40970, .50295 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ - + .23418, .12147, 7.81467, .48939, .33917, - + .19761, .42079, .51365, - + .23720, .12277, 7.91035, .49917, .35034, - + .21060, .43119, .52369, - + .24002, .12399, 7.99595, .50834, .36067, - + .22271, .44092, .53310, - + .24264, .12510, 8.06816, .51671, .37005, - + .23380, .44980, .54169, - + .24522, .12621, 8.13510, .52494, .37924, - + .24470, .45853, .55014, - + .24772, .12727, 8.19418, .53279, .38799, - + .25514, .46687, .55820, - + .25007, .12826, 8.24539, .54008, .39613, - + .26486, .47462, .56569, - + .25224, .12917, 8.28780, .54674, .40357, - + .27379, .48171, .57252 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ - + .25443, .13009, 8.32844, .55339, .41101, - + .28271, .48880, .57936, - + .25652, .13096, 8.36080, .55961, .41799, - + .29113, .49544, .58574, - + .25852, .13179, 8.39155, .56556, .42467, - + .29917, .50179, .59185, - + .26036, .13255, 8.41363, .57087, .43067, - + .30644, .50748, .59730, - + .26221, .13332, 8.43442, .57619, .43668, - + .31372, .51319, .60276 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ - + .17400, .09527, 2.43208, .18717, .00146, - + .00000, .10525, .20600, - + .17840, .09735, 2.65404, .20042, .00286, - + .00000, .11731, .21972, - + .18482, .10037, 2.97875, .21995, .00562, - + .00001, .13520, .23995, - + .18937, .10250, 3.20529, .23376, .00831, - + .00001, .14796, .25424, - + .19406, .10468, 3.43635, .24787, .01201, - + .00001, .16113, .26884, - + .19804, .10653, 3.62982, .25959, .01613, - + .00001, .17225, .28098, - + .20176, .10824, 3.80338, .27010, .02106, - + .00001, .18241, .29188, - + .20566, .11003, 3.98476, .28078, .02763, - + .00001, .19297, .30295 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ - + .20900, .11156, 4.13700, .28946, .03463, - + .00001, .20182, .31197, - + .21216, .11301, 4.27622, .29713, .04261, - + .00001, .20992, .31995, - + .21465, .11414, 4.38554, .30286, .04988, - + .00001, .21618, .32593, - + .21984, .11649, 4.60407, .31361, .06802, - + .00001, .22863, .33718, - + .22420, .11845, 4.78026, .32152, .08620, - + .00398, .23855, .34551, - + .22897, .12059, 4.96501, .32929, .10835, - + .01547, .24898, .35374, - + .23380, .12274, 5.14301, .33671, .13197, - + .03268, .25934, .36161, - + .23809, .12463, 5.29362, .34339, .15273, - + .04669, .26861, .36870 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ - + .24229, .12647, 5.43041, .35023, .17204, - + .06061, .27778, .37592, - + .24571, .12796, 5.53572, .35619, .18664, - + .07187, .28542, .38218, - + .24977, .12973, 5.65525, .36381, .20261, - + .08525, .29480, .39016, - + .25328, .13124, 5.75067, .37075, .21521, - + .09672, .30302, .39740, - + .25642, .13259, 5.83026, .37720, .22568, - + .10694, .31048, .40412, - + .26033, .13426, 5.92388, .38552, .23786, - + .11964, .31991, .41277, - + .26390, .13577, 6.00072, .39322, .24829, - + .13114, .32851, .42077, - + .26717, .13714, 6.06420, .40029, .25738, - + .14156, .33634, .42810 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ - + .27038, .13848, 6.12284, .40731, .26607, - + .15178, .34407, .43538, - + .27342, .13974, 6.16974, .41382, .27401, - + .16130, .35123, .44212, - + .27625, .14090, 6.21038, .41989, .28129, - + .17016, .35790, .44841, - + .27886, .14196, 6.24250, .42536, .28785, - + .17821, .36393, .45408, - + .28143, .14301, 6.27060, .43071, .29424, - + .18609, .36982, .45962, - + .28389, .14400, 6.29328, .43576, .30028, - + .19359, .37540, .46485, - + .28620, .14493, 6.31123, .44041, .30585, - + .20054, .38054, .46966, - + .28833, .14577, 6.32383, .44460, .31091, - + .20688, .38520, .47400 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ - + .29046, .14661, 6.33503, .44876, .31594, - + .21319, .38984, .47832, - + .29249, .14741, 6.34054, .45259, .32062, - + .21911, .39412, .48228, - + .29442, .14816, 6.34575, .45625, .32509, - + .22474, .39822, .48607, - + .29619, .14885, 6.34566, .45946, .32905, - + .22980, .40183, .48939, - + .29796, .14953, 6.34453, .46265, .33301, - + .23485, .40544, .49270 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ - + .21230, .11496, 2.29683, .17754, .00140, - + .00000, .10049, .20130, - + .21718, .11722, 2.46082, .18799, .00269, - + .00000, .11020, .21225, - + .22425, .12049, 2.69688, .20319, .00513, - + .00000, .12444, .22818, - + .22923, .12277, 2.85899, .21381, .00743, - + .00000, .13448, .23930, - + .23435, .12510, 3.02207, .22453, .01053, - + .00000, .14474, .25052, - + .23868, .12705, 3.15685, .23334, .01391, - + .00000, .15332, .25975, - + .24268, .12884, 3.27611, .24115, .01791, - + .00000, .16109, .26795, - + .24687, .13072, 3.39927, .24899, .02318, - + .00000, .16910, .27619 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ - + .25045, .13231, 3.50142, .25529, .02873, - + .00000, .17575, .28282, - + .25381, .13379, 3.59355, .26078, .03502, - + .00000, .18179, .28861, - + .25646, .13495, 3.66526, .26483, .04071, - + .00000, .18642, .29290, - + .26193, .13734, 3.80626, .27225, .05482, - + .00000, .19552, .30081, - + .26650, .13932, 3.91743, .27754, .06885, - + .00305, .20267, .30650, - + .27147, .14145, 4.03145, .28257, .08580, - + .01182, .21009, .31195, - + .27647, .14357, 4.13851, .28725, .10371, - + .02489, .21736, .31705, - + .28087, .14542, 4.22678, .29142, .11931, - + .03545, .22378, .32158 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ - + .28514, .14720, 4.30417, .29567, .13369, - + .04584, .23008, .32616, - + .28860, .14863, 4.36189, .29937, .14444, - + .05420, .23530, .33013, - + .29269, .15030, 4.42550, .30414, .15609, - + .06406, .24166, .33521, - + .29619, .15171, 4.47400, .30847, .16516, - + .07246, .24720, .33979, - + .29930, .15296, 4.51250, .31248, .17262, - + .07989, .25218, .34402, - + .30315, .15450, 4.55581, .31764, .18119, - + .08907, .25843, .34945, - + .30663, .15586, 4.58837, .32237, .18844, - + .09730, .26406, .35440, - + .30979, .15708, 4.61279, .32665, .19467, - + .10471, .26914, .35889 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ - + .31288, .15827, 4.63376, .33087, .20058, - + .11194, .27411, .36331, - + .31577, .15936, 4.64677, .33471, .20590, - + .11861, .27864, .36731, - + .31845, .16037, 4.65647, .33825, .21075, - + .12478, .28283, .37101, - + .32090, .16127, 4.66129, .34140, .21507, - + .13035, .28657, .37430, - + .32329, .16215, 4.66329, .34442, .21924, - + .13577, .29018, .37745, - + .32557, .16297, 4.66190, .34724, .22315, - + .14089, .29356, .38038, - + .32768, .16373, 4.65818, .34978, .22672, - + .14561, .29664, .38303, - + .32962, .16441, 4.65172, .35204, .22994, - + .14989, .29940, .38538 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ - + .33154, .16509, 4.64427, .35426, .23312, - + .15413, .30212, .38769, - + .33336, .16571, 4.63315, .35622, .23603, - + .15807, .30457, .38973, - + .33509, .16630, 4.62265, .35810, .23880, - + .16180, .30692, .39169, - + .33665, .16681, 4.60939, .35968, .24122, - + .16513, .30893, .39333, - + .33821, .16733, 4.59540, .36124, .24362, - + .16843, .31093, .39495 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ - + .26630, .14341, 2.04049, .16514, .00132, - + -.00002, .09480, .19622, - + .27160, .14573, 2.14877, .17246, .00248, - + -.00002, .10192, .20403, - + .27922, .14904, 2.30176, .18299, .00457, - + -.00001, .11224, .21522, - + .28454, .15132, 2.40481, .19023, .00646, - + -.00002, .11943, .22291, - + .28996, .15362, 2.50674, .19744, .00893, - + -.00002, .12669, .23057, - + .29449, .15553, 2.58961, .20330, .01156, - + -.00002, .13270, .23677, - + .29865, .15727, 2.66154, .20840, .01460, - + -.00002, .13808, .24220, - + .30299, .15906, 2.73463, .21344, .01856, - + -.00002, .14358, .24756 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ - + .30666, .16055, 2.79416, .21741, .02267, - + -.00002, .14809, .25180, - + .31008, .16194, 2.84671, .22079, .02729, - + -.00002, .15214, .25542, - + .31276, .16302, 2.88713, .22324, .03144, - + -.00002, .15522, .25805, - + .31827, .16519, 2.96428, .22753, .04162, - + -.00002, .16117, .26272, - + .32280, .16697, 3.02285, .23041, .05163, - + .00216, .16575, .26588, - + .32767, .16884, 3.08060, .23296, .06362, - + .00839, .17040, .26873, - + .33252, .17067, 3.13216, .23519, .07617, - + .01763, .17488, .27125, - + .33673, .17224, 3.17232, .23715, .08698, - + .02501, .17878, .27342 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ - + .34078, .17370, 3.20454, .23911, .09684, - + .03222, .18254, .27559, - + .34400, .17485, 3.22668, .24085, .10413, - + .03796, .18563, .27748, - + .34778, .17618, 3.24906, .24314, .11193, - + .04469, .18936, .27993, - + .35096, .17727, 3.26352, .24522, .11792, - + .05036, .19256, .28215, - + .35375, .17821, 3.27270, .24714, .12277, - + .05534, .19541, .28416, - + .35717, .17934, 3.28064, .24960, .12828, - + .06144, .19894, .28673, - + .36021, .18032, 3.28268, .25180, .13285, - + .06686, .20207, .28902, - + .36292, .18116, 3.28057, .25375, .13672, - + .07170, .20484, .29104 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ - + .36555, .18196, 3.27631, .25564, .14034, - + .07638, .20751, .29299, - + .36795, .18266, 3.26739, .25727, .14355, - + .08066, .20988, .29466, - + .37016, .18329, 3.25741, .25875, .14643, - + .08458, .21203, .29616, - + .37213, .18383, 3.24534, .26000, .14896, - + .08809, .21391, .29742, - + .37403, .18433, 3.23151, .26115, .15137, - + .09147, .21568, .29859, - + .37582, .18479, 3.21587, .26217, .15360, - + .09465, .21729, .29961, - + .37745, .18518, 3.19965, .26304, .15561, - + .09754, .21873, .30047, - + .37891, .18552, 3.18263, .26376, .15738, - + .10014, .21997, .30117 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ - + .38034, .18585, 3.16503, .26445, .15913, - + .10270, .22118, .30183, - + .38165, .18613, 3.14534, .26498, .16069, - + .10506, .22221, .30232, - + .38290, .18639, 3.12683, .26548, .16217, - + .10728, .22320, .30280, - + .38399, .18659, 3.10731, .26582, .16343, - + .10923, .22399, .30310, - + .38506, .18677, 3.08739, .26613, .16467, - + .11116, .22475, .30337 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ - + .31294, .16794, 1.79680, .15450, .00125, - + -.00001, .09021, .19191, - + .31834, .17012, 1.87464, .15978, .00233, - + -.00001, .09564, .19756, - + .32605, .17318, 1.98327, .16729, .00419, - + -.00001, .10342, .20557, - + .33139, .17526, 2.05532, .17240, .00582, - + -.00001, .10879, .21101, - + .33678, .17733, 2.12557, .17742, .00788, - + -.00001, .11418, .21635, - + .34125, .17903, 2.18192, .18145, .01005, - + -.00001, .11861, .22061, - + .34531, .18054, 2.22980, .18491, .01251, - + -.00001, .12254, .22428, - + .34952, .18208, 2.27776, .18827, .01566, - + -.00002, .12652, .22784 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ - + .35306, .18335, 2.31612, .19085, .01891, - + -.00001, .12975, .23059, - + .35633, .18451, 2.34919, .19299, .02252, - + -.00002, .13262, .23286, - + .35888, .18541, 2.37433, .19450, .02574, - + -.00002, .13479, .23448, - + .36405, .18717, 2.42057, .19700, .03360, - + -.00002, .13891, .23716, - + .36826, .18857, 2.45409, .19850, .04126, - + .00166, .14202, .23881, - + .37273, .19002, 2.48539, .19967, .05037, - + .00644, .14511, .24010, - + .37710, .19138, 2.51119, .20057, .05984, - + .01348, .14803, .24109, - + .38085, .19252, 2.52940, .20131, .06793, - + .01907, .15052, .24189 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ - + .38439, .19354, 2.54139, .20205, .07525, - + .02448, .15289, .24267, - + .38717, .19431, 2.54779, .20274, .08061, - + .02877, .15482, .24338, - + .39038, .19517, 2.55217, .20370, .08630, - + .03376, .15712, .24433, - + .39303, .19584, 2.55201, .20458, .09062, - + .03794, .15907, .24519, - + .39533, .19638, 2.54885, .20540, .09409, - + .04159, .16078, .24597, - + .39809, .19701, 2.54219, .20645, .09797, - + .04603, .16287, .24696, - + .40049, .19750, 2.53206, .20734, .10115, - + .04994, .16468, .24779, - + .40258, .19789, 2.51966, .20809, .10381, - + .05341, .16625, .24845 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ - + .40457, .19823, 2.50581, .20879, .10627, - + .05675, .16773, .24907, - + .40632, .19848, 2.48892, .20931, .10840, - + .05976, .16898, .24947, - + .40790, .19868, 2.47199, .20975, .11030, - + .06250, .17010, .24980, - + .40927, .19882, 2.45422, .21006, .11194, - + .06494, .17104, .25000, - + .41056, .19891, 2.43529, .21029, .11348, - + .06728, .17189, .25012, - + .41173, .19896, 2.41534, .21044, .11489, - + .06945, .17262, .25014, - + .41277, .19898, 2.39554, .21051, .11614, - + .07142, .17325, .25008, - + .41366, .19895, 2.37570, .21049, .11723, - + .07318, .17376, .24994 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ - + .41452, .19892, 2.35554, .21045, .11829, - + .07490, .17423, .24977, - + .41526, .19882, 2.33417, .21030, .11921, - + .07647, .17458, .24949, - + .41596, .19873, 2.31413, .21016, .12008, - + .07794, .17491, .24923, - + .41651, .19859, 2.29378, .20993, .12079, - + .07922, .17512, .24886, - + .41704, .19845, 2.27320, .20967, .12148, - + .08047, .17530, .24847 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ - + .39278, .20819, 1.40209, .13526, .00116, - + .00000, .08196, .18224, - + .39778, .20973, 1.45208, .13808, .00211, - + .00000, .08531, .18511, - + .40480, .21179, 1.52034, .14199, .00369, - + .00000, .09004, .18908, - + .40953, .21312, 1.56425, .14460, .00500, - + .00000, .09326, .19168, - + .41421, .21438, 1.60584, .14710, .00660, - + .00000, .09644, .19414, - + .41804, .21536, 1.63817, .14904, .00821, - + .00001, .09902, .19601, - + .42142, .21618, 1.66433, .15062, .00999, - + .00000, .10127, .19753, - + .42486, .21697, 1.68971, .15209, .01222, - + -.00001, .10350, .19890 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ - + .42769, .21758, 1.70911, .15313, .01448, - + -.00001, .10528, .19984, - + .43025, .21809, 1.72471, .15390, .01695, - + -.00001, .10681, .20051, - + .43222, .21847, 1.73618, .15438, .01913, - + .00000, .10795, .20091, - + .43608, .21911, 1.75501, .15494, .02436, - + .00000, .11003, .20124, - + .43912, .21954, 1.76642, .15500, .02940, - + .00112, .11151, .20108, - + .44221, .21989, 1.77460, .15474, .03532, - + .00427, .11289, .20055, - + .44509, .22011, 1.77816, .15425, .04139, - + .00890, .11411, .19976, - + .44745, .22020, 1.77767, .15376, .04651, - + .01252, .11511, .19900 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ - + .44952, .22017, 1.77275, .15328, .05109, - + .01599, .11599, .19819, - + .45106, .22005, 1.76623, .15291, .05440, - + .01871, .11668, .19756, - + .45274, .21984, 1.75611, .15255, .05785, - + .02183, .11750, .19686, - + .45402, .21957, 1.74454, .15226, .06042, - + .02443, .11816, .19625, - + .45502, .21925, 1.73202, .15199, .06244, - + .02667, .11869, .19569, - + .45613, .21878, 1.71460, .15165, .06466, - + .02936, .11931, .19499, - + .45694, .21825, 1.69581, .15128, .06642, - + .03170, .11978, .19425, - + .45752, .21768, 1.67657, .15088, .06785, - + .03375, .12014, .19350 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ - + .45801, .21708, 1.65669, .15046, .06914, - + .03569, .12044, .19272, - + .45826, .21641, 1.63528, .14995, .07022, - + .03742, .12060, .19184, - + .45841, .21574, 1.61467, .14944, .07117, - + .03898, .12072, .19098, - + .45843, .21507, 1.59428, .14890, .07195, - + .04035, .12075, .19011, - + .45835, .21436, 1.57336, .14831, .07267, - + .04165, .12073, .18918, - + .45817, .21362, 1.55219, .14768, .07329, - + .04282, .12064, .18822, - + .45793, .21288, 1.53177, .14705, .07382, - + .04388, .12051, .18727, - + .45760, .21216, 1.51195, .14641, .07426, - + .04480, .12033, .18632 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ - + .45724, .21142, 1.49208, .14574, .07468, - + .04570, .12013, .18536, - + .45676, .21064, 1.47173, .14503, .07501, - + .04650, .11986, .18434, - + .45630, .20990, 1.45273, .14436, .07533, - + .04725, .11961, .18338, - + .45574, .20916, 1.43406, .14366, .07555, - + .04788, .11930, .18240, - + .45515, .20840, 1.41535, .14295, .07576, - + .04849, .11898, .18141 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ - + .46020, .23900, 1.12967, .11752, .00111, - + .00000, .07400, .17037, - + .46423, .23961, 1.16913, .11899, .00199, - + .00000, .07617, .17156, - + .46971, .24030, 1.22159, .12100, .00340, - + .00000, .07918, .17310, - + .47327, .24063, 1.25404, .12228, .00453, - + .00000, .08120, .17401, - + .47668, .24084, 1.28369, .12345, .00586, - + .00000, .08317, .17477, - + .47938, .24091, 1.30584, .12429, .00716, - + .00001, .08472, .17526, - + .48164, .24086, 1.32257, .12491, .00857, - + .00000, .08604, .17551, - + .48387, .24074, 1.33806, .12540, .01029, - + .00000, .08732, .17561 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ - + .48563, .24057, 1.34906, .12566, .01200, - + .00000, .08831, .17552, - + .48714, .24031, 1.35688, .12574, .01384, - + .00000, .08912, .17525, - + .48828, .24007, 1.36230, .12571, .01545, - + .00000, .08971, .17495, - + .49030, .23946, 1.36892, .12532, .01927, - + .00000, .09070, .17394, - + .49173, .23880, 1.37050, .12469, .02289, - + .00082, .09131, .17277, - + .49300, .23796, 1.36848, .12376, .02708, - + .00310, .09179, .17122, - + .49397, .23696, 1.36238, .12266, .03133, - + .00642, .09213, .16946, - + .49461, .23594, 1.35394, .12161, .03488, - + .00900, .09236, .16786 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ - + .49489, .23480, 1.34191, .12057, .03800, - + .01144, .09249, .16623, - + .49494, .23379, 1.33018, .11976, .04023, - + .01334, .09257, .16490, - + .49482, .23251, 1.31442, .11885, .04252, - + .01550, .09265, .16334, - + .49449, .23131, 1.29859, .11805, .04419, - + .01727, .09266, .16199, - + .49402, .23015, 1.28277, .11732, .04547, - + .01878, .09263, .16076, - + .49328, .22863, 1.26179, .11641, .04684, - + .02058, .09255, .15923, - + .49237, .22712, 1.24051, .11551, .04790, - + .02212, .09240, .15775, - + .49132, .22566, 1.21963, .11466, .04873, - + .02345, .09219, .15632 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ - + .49019, .22418, 1.19854, .11380, .04946, - + .02471, .09195, .15489, - + .48885, .22267, 1.17667, .11289, .05003, - + .02581, .09162, .15343, - + .48752, .22123, 1.15598, .11202, .05051, - + .02678, .09129, .15204, - + .48614, .21982, 1.13602, .11116, .05089, - + .02762, .09092, .15069, - + .48468, .21840, 1.11585, .11028, .05121, - + .02841, .09052, .14932, - + .48314, .21697, 1.09579, .10939, .05148, - + .02911, .09009, .14795, - + .48161, .21559, 1.07671, .10852, .05169, - + .02974, .08965, .14664, - + .48008, .21426, 1.05847, .10767, .05185, - + .03028, .08920, .14538 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ - + .47852, .21292, 1.04033, .10681, .05199, - + .03079, .08874, .14411, - + .47684, .21156, 1.02208, .10594, .05207, - + .03124, .08823, .14281, - + .47526, .21028, 1.00510, .10512, .05214, - + .03165, .08776, .14159, - + .47365, .20902, .98869, .10430, .05216, - + .03199, .08726, .14039, - + .47201, .20776, .97234, .10347, .05217, - + .03231, .08676, .13919 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ - + .51785, .26192, .95254, .10111, .00108, - + .00000, .06614, .15671, - + .52047, .26149, .98639, .10184, .00191, - + -.00001, .06758, .15681, - + .52384, .26065, 1.02991, .10277, .00321, - + -.00001, .06955, .15682, - + .52583, .25989, 1.05549, .10330, .00422, - + .00000, .07083, .15667, - + .52757, .25897, 1.07775, .10373, .00538, - + .00000, .07205, .15635, - + .52882, .25810, 1.09349, .10398, .00647, - + -.00001, .07297, .15596, - + .52969, .25714, 1.10414, .10406, .00763, - + -.00001, .07373, .15543, - + .53044, .25607, 1.11325, .10402, .00902, - + .00000, .07443, .15473 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ - + .53091, .25508, 1.11882, .10385, .01038, - + .00000, .07494, .15399, - + .53115, .25405, 1.12159, .10357, .01182, - + .00000, .07532, .15316, - + .53128, .25321, 1.12307, .10327, .01307, - + -.00001, .07557, .15244, - + .53118, .25132, 1.12178, .10241, .01598, - + -.00001, .07590, .15064, - + .53077, .24959, 1.11706, .10144, .01870, - + .00061, .07600, .14888, - + .53000, .24757, 1.10859, .10021, .02182, - + .00235, .07597, .14676, - + .52887, .24539, 1.09651, .09883, .02494, - + .00487, .07581, .14446, - + .52759, .24334, 1.08324, .09756, .02751, - + .00679, .07560, .14239 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ - + .52598, .24117, 1.06711, .09631, .02973, - + .00860, .07532, .14029, - + .52445, .23933, 1.05244, .09530, .03130, - + .00998, .07506, .13860, - + .52243, .23708, 1.03363, .09414, .03287, - + .01155, .07473, .13662, - + .52045, .23503, 1.01568, .09313, .03399, - + .01282, .07441, .13491, - + .51847, .23311, .99837, .09222, .03483, - + .01389, .07407, .13334, - + .51584, .23067, .97597, .09108, .03570, - + .01516, .07362, .13139, - + .51315, .22831, .95398, .09000, .03633, - + .01622, .07314, .12954, - + .51049, .22607, .93288, .08897, .03681, - + .01713, .07265, .12782 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ - + .50778, .22384, .91189, .08794, .03721, - + .01797, .07215, .12611, - + .50492, .22159, .89067, .08689, .03749, - + .01870, .07159, .12440, - + .50217, .21948, .87081, .08590, .03772, - + .01934, .07105, .12279, - + .49944, .21748, .85193, .08496, .03787, - + .01990, .07050, .12126, - + .49666, .21546, .83308, .08400, .03799, - + .02040, .06993, .11972, - + .49384, .21346, .81457, .08305, .03806, - + .02083, .06936, .11821, - + .49111, .21156, .79714, .08214, .03810, - + .02121, .06879, .11677, - + .48845, .20976, .78066, .08126, .03811, - + .02153, .06822, .11540 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ - + .48577, .20795, .76437, .08039, .03811, - + .02184, .06766, .11403, - + .48301, .20613, .74819, .07950, .03806, - + .02210, .06707, .11267, - + .48041, .20442, .73319, .07866, .03801, - + .02234, .06652, .11139, - + .47784, .20276, .71886, .07785, .03793, - + .02252, .06597, .11015, - + .47525, .20110, .70465, .07704, .03784, - + .02269, .06541, .10891 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ - + .57769, .28112, .82304, .08259, .00105, - + -.00001, .05660, .13823, - + .57815, .27935, .85048, .08285, .00185, - + .00000, .05750, .13750, - + .57831, .27660, .88381, .08308, .00304, - + -.00001, .05867, .13631, - + .57798, .27447, .90162, .08312, .00394, - + -.00001, .05938, .13534, - + .57732, .27215, .91564, .08306, .00493, - + -.00001, .06001, .13423, - + .57650, .27010, .92430, .08292, .00585, - + -.00001, .06047, .13318, - + .57539, .26804, .92837, .08265, .00679, - + -.00001, .06079, .13207, - + .57406, .26583, .93064, .08228, .00789, - + -.00001, .06104, .13081 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ - + .57272, .26389, .93047, .08187, .00894, - + .00000, .06119, .12962, - + .57124, .26195, .92800, .08136, .01003, - + -.00001, .06124, .12840, - + .57001, .26040, .92543, .08091, .01096, - + -.00001, .06124, .12739, - + .56704, .25705, .91620, .07979, .01311, - + .00000, .06110, .12506, - + .56420, .25409, .90534, .07868, .01508, - + .00045, .06084, .12293, - + .56076, .25076, .89076, .07732, .01730, - + .00173, .06044, .12046, - + .55689, .24727, .87321, .07587, .01948, - + .00358, .05994, .11787, - + .55319, .24406, .85570, .07454, .02123, - + .00497, .05944, .11558 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ - + .54915, .24079, .83616, .07325, .02272, - + .00625, .05888, .11326, - + .54567, .23806, .81919, .07220, .02375, - + .00723, .05841, .11139, - + .54133, .23476, .79817, .07098, .02475, - + .00832, .05782, .10920, - + .53733, .23183, .77887, .06991, .02544, - + .00918, .05729, .10730, - + .53355, .22911, .76078, .06894, .02593, - + .00990, .05677, .10560, - + .52867, .22569, .73787, .06775, .02640, - + .01075, .05611, .10350, - + .52391, .22249, .71599, .06663, .02673, - + .01144, .05545, .10151, - + .51935, .21948, .69548, .06557, .02694, - + .01203, .05481, .09968 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ - + .51478, .21650, .67536, .06454, .02710, - + .01257, .05417, .09788, - + .51013, .21356, .65545, .06350, .02718, - + .01302, .05349, .09611, - + .50573, .21082, .63705, .06254, .02722, - + .01341, .05286, .09446, - + .50151, .20823, .61985, .06162, .02722, - + .01373, .05224, .09291, - + .49726, .20565, .60287, .06069, .02720, - + .01402, .05161, .09138, - + .49303, .20310, .58641, .05978, .02715, - + .01427, .05098, .08988, - + .48898, .20071, .57105, .05893, .02707, - + .01449, .05037, .08847, - + .48508, .19846, .55671, .05812, .02698, - + .01465, .04980, .08713 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ - + .48117, .19622, .54262, .05731, .02689, - + .01481, .04922, .08581, - + .47725, .19397, .52880, .05650, .02677, - + .01494, .04863, .08449, - + .47357, .19187, .51605, .05574, .02665, - + .01506, .04807, .08327, - + .46999, .18987, .50402, .05500, .02652, - + .01514, .04753, .08210, - + .46640, .18786, .49215, .05427, .02638, - + .01520, .04699, .08094 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ - + .62478, .29144, .75608, .06649, .00102, - + -.00002, .04763, .11936, - + .62281, .28839, .77567, .06650, .00178, - + -.00002, .04821, .11818, - + .61945, .28377, .79719, .06638, .00289, - + -.00003, .04891, .11635, - + .61658, .28037, .80655, .06621, .00370, - + -.00003, .04929, .11494, - + .61329, .27678, .81194, .06593, .00456, - + -.00002, .04958, .11339, - + .61027, .27365, .81344, .06558, .00534, - + -.00003, .04975, .11202, - + .60708, .27060, .81112, .06516, .00610, - + -.00003, .04981, .11063, - + .60356, .26737, .80692, .06465, .00698, - + -.00003, .04981, .10910 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ - + .60037, .26456, .80147, .06413, .00781, - + -.00003, .04976, .10772, - + .59711, .26182, .79432, .06357, .00865, - + -.00003, .04963, .10632, - + .59450, .25967, .78820, .06308, .00936, - + -.00002, .04949, .10520, - + .58863, .25504, .77222, .06191, .01097, - + -.00003, .04910, .10267, - + .58337, .25105, .75635, .06081, .01241, - + .00032, .04866, .10043, - + .57729, .24662, .73700, .05951, .01401, - + .00130, .04809, .09791, - + .57076, .24205, .71541, .05812, .01554, - + .00269, .04742, .09531, - + .56474, .23790, .69497, .05687, .01676, - + .00373, .04680, .09299 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ - + .55840, .23373, .67328, .05564, .01777, - + .00467, .04613, .09071, - + .55307, .23029, .65501, .05464, .01844, - + .00538, .04557, .08888, - + .54658, .22616, .63292, .05347, .01907, - + .00615, .04489, .08672, - + .54070, .22255, .61319, .05249, .01949, - + .00676, .04427, .08483, - + .53525, .21924, .59512, .05159, .01976, - + .00727, .04370, .08315, - + .52833, .21512, .57260, .05047, .02000, - + .00785, .04298, .08108, - + .52172, .21126, .55155, .04943, .02014, - + .00830, .04227, .07917, - + .51550, .20767, .53216, .04845, .02019, - + .00868, .04160, .07742 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ - + .50933, .20415, .51337, .04749, .02021, - + .00903, .04094, .07571, - + .50314, .20071, .49514, .04655, .02018, - + .00932, .04027, .07404, - + .49734, .19752, .47847, .04568, .02013, - + .00957, .03964, .07249, - + .49183, .19454, .46306, .04487, .02005, - + .00976, .03903, .07105, - + .48632, .19159, .44801, .04405, .01996, - + .00993, .03842, .06963, - + .48088, .18871, .43357, .04324, .01984, - + .01007, .03782, .06825, - + .47573, .18599, .42022, .04249, .01973, - + .01018, .03725, .06696, - + .47084, .18343, .40786, .04179, .01960, - + .01027, .03671, .06575 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ - + .46595, .18090, .39581, .04109, .01947, - + .01035, .03617, .06455, - + .46106, .17842, .38414, .04041, .01932, - + .01041, .03562, .06336, - + .45648, .17611, .37341, .03977, .01918, - + .01047, .03512, .06225, - + .45208, .17388, .36337, .03915, .01903, - + .01049, .03463, .06123, - + .44769, .17167, .35353, .03853, .01887, - + .01051, .03414, .06022 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ - + .65978, .29429, .72150, .05274, .00098, - + -.00001, .03949, .10111, - + .65524, .29009, .73194, .05266, .00169, - + -.00001, .03983, .09971, - + .64817, .28388, .74033, .05243, .00270, - + -.00001, .04021, .09759, - + .64271, .27936, .74079, .05216, .00341, - + -.00001, .04038, .09599, - + .63676, .27464, .73745, .05178, .00414, - + -.00001, .04046, .09428, - + .63149, .27063, .73196, .05140, .00480, - + -.00001, .04045, .09277, - + .62620, .26675, .72363, .05095, .00542, - + -.00001, .04037, .09127, - + .62053, .26268, .71349, .05041, .00613, - + -.00001, .04022, .08966 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ - + .61552, .25915, .70332, .04989, .00678, - + -.00001, .04005, .08821, - + .61052, .25576, .69210, .04933, .00742, - + -.00001, .03982, .08679, - + .60655, .25312, .68298, .04887, .00796, - + -.00001, .03963, .08566, - + .59792, .24746, .66153, .04778, .00915, - + -.00001, .03910, .08319, - + .59035, .24265, .64181, .04676, .01020, - + .00026, .03859, .08105, - + .58179, .23737, .61900, .04557, .01134, - + .00101, .03795, .07864, - + .57280, .23197, .59468, .04434, .01242, - + .00205, .03725, .07617, - + .56463, .22712, .57250, .04323, .01325, - + .00281, .03660, .07400 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ - + .55626, .22227, .54976, .04212, .01393, - + .00351, .03590, .07187, - + .54927, .21832, .53105, .04125, .01435, - + .00402, .03533, .07015, - + .54083, .21361, .50883, .04023, .01474, - + .00457, .03466, .06814, - + .53331, .20951, .48943, .03934, .01497, - + .00500, .03404, .06642, - + .52643, .20579, .47195, .03855, .01511, - + .00534, .03348, .06487, - + .51778, .20115, .45050, .03757, .01520, - + .00573, .03277, .06297, - + .50959, .19687, .43081, .03665, .01522, - + .00606, .03211, .06123, - + .50194, .19292, .41296, .03581, .01520, - + .00631, .03147, .05964 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ - + .49438, .18907, .39584, .03499, .01515, - + .00653, .03084, .05811, - + .48695, .18533, .37948, .03418, .01505, - + .00671, .03022, .05661, - + .48001, .18186, .36464, .03343, .01495, - + .00685, .02964, .05524, - + .47347, .17864, .35108, .03274, .01484, - + .00696, .02909, .05396, - + .46696, .17545, .33796, .03206, .01472, - + .00706, .02854, .05271, - + .46059, .17236, .32549, .03138, .01459, - + .00715, .02800, .05151, - + .45458, .16947, .31406, .03074, .01445, - + .00721, .02749, .05039, - + .44892, .16676, .30357, .03015, .01431, - + .00725, .02701, .04935 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ - + .44328, .16409, .29340, .02956, .01417, - + .00728, .02653, .04833, - + .43768, .16147, .28361, .02900, .01402, - + .00730, .02607, .04731, - + .43244, .15903, .27465, .02848, .01388, - + .00731, .02563, .04636, - + .42744, .15672, .26636, .02797, .01374, - + .00731, .02521, .04548, - + .42245, .15442, .25826, .02747, .01359, - + .00731, .02480, .04461 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ - + .68326, .29101, .69980, .04126, .00092, - + -.00002, .03221, .08416, - + .67614, .28584, .70048, .04116, .00157, - + -.00002, .03243, .08269, - + .66540, .27827, .69553, .04089, .00248, - + -.00002, .03263, .08049, - + .65738, .27282, .68732, .04059, .00310, - + -.00003, .03266, .07887, - + .64885, .26719, .67578, .04021, .00373, - + -.00003, .03261, .07715, - + .64144, .26243, .66395, .03983, .00426, - + -.00003, .03252, .07565, - + .63418, .25788, .65035, .03939, .00477, - + -.00002, .03235, .07419, - + .62647, .25313, .63517, .03889, .00532, - + -.00002, .03214, .07262 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ - + .61972, .24905, .62115, .03840, .00583, - + -.00002, .03192, .07123, - + .61312, .24515, .60672, .03789, .00632, - + -.00002, .03165, .06989, - + .60792, .24211, .59527, .03746, .00672, - + -.00001, .03143, .06883, - + .59676, .23568, .56980, .03647, .00760, - + -.00001, .03088, .06654, - + .58710, .23026, .54743, .03560, .00837, - + .00020, .03035, .06453, - + .57634, .22434, .52245, .03458, .00918, - + .00077, .02972, .06234, - + .56518, .21834, .49673, .03351, .00993, - + .00156, .02903, .06014, - + .55512, .21302, .47386, .03258, .01049, - + .00214, .02841, .05816 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ - + .54493, .20771, .45103, .03165, .01093, - + .00265, .02776, .05626, - + .53654, .20340, .43261, .03089, .01119, - + .00302, .02723, .05473, - + .52647, .19832, .41109, .03001, .01141, - + .00341, .02660, .05296, - + .51761, .19390, .39260, .02925, .01152, - + .00373, .02603, .05145, - + .50951, .18993, .37619, .02858, .01157, - + .00397, .02552, .05009, - + .49937, .18503, .35630, .02776, .01158, - + .00423, .02487, .04842, - + .48995, .18049, .33833, .02698, .01154, - + .00446, .02426, .04691, - + .48117, .17634, .32224, .02628, .01148, - + .00462, .02370, .04551 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ - + .47254, .17231, .30697, .02560, .01140, - + .00476, .02315, .04416, - + .46415, .16840, .29256, .02493, .01127, - + .00488, .02260, .04290, - + .45634, .16480, .27961, .02431, .01115, - + .00497, .02209, .04173, - + .44901, .16148, .26788, .02374, .01103, - + .00503, .02161, .04065, - + .44175, .15821, .25661, .02318, .01090, - + .00508, .02114, .03959, - + .43468, .15505, .24600, .02263, .01077, - + .00511, .02068, .03857, - + .42804, .15210, .23634, .02212, .01063, - + .00514, .02025, .03762, - + .42180, .14935, .22757, .02165, .01051, - + .00516, .01985, .03674 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ - + .41562, .14663, .21909, .02118, .01037, - + .00517, .01945, .03588, - + .40953, .14397, .21099, .02072, .01023, - + .00518, .01906, .03505, - + .40385, .14150, .20360, .02029, .01010, - + .00518, .01869, .03429, - + .39843, .13919, .19682, .01989, .00997, - + .00517, .01835, .03356, - + .39304, .13690, .19022, .01949, .00984, - + .00515, .01800, .03284 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ - + .69585, .28274, .67909, .03184, .00085, - + -.00002, .02592, .06884, - + .68629, .27676, .67038, .03173, .00144, - + -.00002, .02605, .06743, - + .67207, .26809, .65305, .03147, .00223, - + -.00002, .02613, .06533, - + .66165, .26192, .63715, .03119, .00276, - + -.00002, .02609, .06379, - + .65072, .25559, .61858, .03083, .00329, - + -.00002, .02598, .06216, - + .64134, .25026, .60151, .03049, .00374, - + -.00002, .02583, .06076, - + .63225, .24521, .58370, .03009, .00414, - + -.00001, .02563, .05939, - + .62268, .23997, .56461, .02963, .00458, - + -.00001, .02539, .05795 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ - + .61438, .23550, .54772, .02921, .00496, - + -.00001, .02514, .05670, - + .60636, .23122, .53102, .02875, .00533, - + -.00001, .02487, .05548, - + .60007, .22789, .51799, .02839, .00563, - + -.00002, .02465, .05453, - + .58662, .22099, .49002, .02757, .00627, - + -.00002, .02411, .05246, - + .57515, .21516, .46626, .02682, .00681, - + .00015, .02361, .05071, - + .56251, .20881, .44040, .02596, .00738, - + .00058, .02303, .04880, - + .54952, .20243, .41443, .02507, .00789, - + .00118, .02242, .04685, - + .53787, .19683, .39182, .02429, .00826, - + .00162, .02186, .04516 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ - + .52620, .19126, .36972, .02352, .00853, - + .00200, .02128, .04352, - + .51665, .18678, .35219, .02290, .00868, - + .00227, .02080, .04220, - + .50527, .18151, .33198, .02218, .00880, - + .00257, .02024, .04066, - + .49531, .17695, .31485, .02157, .00884, - + .00278, .01975, .03936, - + .48629, .17285, .29984, .02101, .00884, - + .00296, .01930, .03820, - + .47507, .16781, .28185, .02032, .00880, - + .00315, .01873, .03680, - + .46468, .16318, .26583, .01968, .00872, - + .00329, .01821, .03554, - + .45507, .15897, .25163, .01910, .00863, - + .00340, .01772, .03438 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ - + .44568, .15490, .23827, .01855, .00854, - + .00350, .01724, .03325, - + .43655, .15100, .22583, .01801, .00842, - + .00357, .01678, .03217, - + .42810, .14740, .21473, .01752, .00831, - + .00361, .01636, .03119, - + .42023, .14407, .20478, .01707, .00819, - + .00364, .01595, .03031, - + .41247, .14081, .19528, .01662, .00806, - + .00366, .01556, .02944, - + .40496, .13768, .18637, .01618, .00793, - + .00368, .01519, .02860, - + .39792, .13476, .17833, .01578, .00781, - + .00369, .01484, .02783, - + .39132, .13205, .17108, .01541, .00770, - + .00369, .01451, .02711 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ - + .38480, .12939, .16410, .01504, .00759, - + .00370, .01418, .02641, - + .37839, .12681, .15748, .01469, .00746, - + .00369, .01386, .02574, - + .37242, .12441, .15146, .01436, .00734, - + .00368, .01356, .02512, - + .36678, .12215, .14598, .01405, .00723, - + .00367, .01328, .02453, - + .36119, .11992, .14068, .01374, .00712, - + .00365, .01301, .02395 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ - + .69835, .27051, .65309, .02421, .00078, - + .00006, .02057, .05542, - + .68649, .26395, .63611, .02412, .00129, - + .00005, .02063, .05413, - + .66908, .25449, .60829, .02390, .00197, - + .00005, .02062, .05220, - + .65649, .24780, .58614, .02366, .00241, - + .00004, .02054, .05081, - + .64338, .24099, .56209, .02336, .00284, - + .00003, .02039, .04933, - + .63221, .23531, .54109, .02308, .00320, - + .00004, .02023, .04804, - + .62155, .22991, .52029, .02273, .00351, - + .00003, .02003, .04684, - + .61037, .22435, .49860, .02235, .00384, - + .00003, .01978, .04557 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ - + .60071, .21965, .47992, .02201, .00413, - + .00004, .01953, .04446, - + .59146, .21515, .46194, .02162, .00440, - + .00004, .01927, .04340, - + .58425, .21166, .44809, .02131, .00462, - + .00005, .01906, .04257, - + .56893, .20442, .41904, .02063, .00508, - + .00002, .01858, .04078, - + .55593, .19840, .39499, .02004, .00546, - + .00014, .01813, .03928, - + .54171, .19189, .36939, .01936, .00584, - + .00047, .01762, .03764, - + .52724, .18533, .34418, .01864, .00617, - + .00091, .01709, .03599, - + .51440, .17959, .32258, .01800, .00640, - + .00123, .01659, .03458 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ - + .50159, .17395, .30187, .01737, .00656, - + .00151, .01610, .03320, - + .49116, .16942, .28565, .01687, .00665, - + .00170, .01570, .03210, - + .47880, .16410, .26715, .01629, .00669, - + .00190, .01521, .03082, - + .46806, .15951, .25170, .01578, .00669, - + .00206, .01479, .02975, - + .45837, .15542, .23832, .01533, .00667, - + .00218, .01441, .02880, - + .44638, .15042, .22243, .01478, .00661, - + .00230, .01393, .02764, - + .43530, .14587, .20843, .01429, .00652, - + .00239, .01350, .02658, - + .42513, .14172, .19616, .01384, .00643, - + .00246, .01310, .02562 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ - + .41523, .13770, .18469, .01340, .00634, - + .00253, .01271, .02471, - + .40566, .13389, .17413, .01298, .00623, - + .00257, .01232, .02384, - + .39684, .13039, .16476, .01259, .00613, - + .00259, .01197, .02305, - + .38868, .12715, .15643, .01222, .00601, - + .00260, .01165, .02235, - + .38064, .12399, .14853, .01187, .00590, - + .00262, .01133, .02166, - + .37286, .12095, .14120, .01155, .00579, - + .00263, .01103, .02098, - + .36561, .11814, .13460, .01124, .00569, - + .00263, .01075, .02036, - + .35885, .11555, .12866, .01095, .00559, - + .00262, .01049, .01979 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ - + .35218, .11300, .12298, .01066, .00549, - + .00261, .01023, .01923, - + .34567, .11052, .11765, .01038, .00538, - + .00259, .00998, .01871, - + .33962, .10822, .11282, .01011, .00528, - + .00258, .00974, .01823, - + .33390, .10608, .10844, .00987, .00519, - + .00257, .00952, .01777, - + .32823, .10396, .10421, .00964, .00511, - + .00255, .00931, .01732 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ - + .69133, .25557, .61945, .01837, .00058, - + -.00017, .01591, .04391, - + .67746, .24858, .59572, .01831, .00103, - + -.00016, .01595, .04274, - + .65730, .23856, .55970, .01809, .00161, - + -.00015, .01592, .04107, - + .64283, .23156, .53296, .01787, .00198, - + -.00016, .01583, .03983, - + .62789, .22445, .50512, .01761, .00234, - + -.00016, .01569, .03853, - + .61528, .21852, .48157, .01735, .00262, - + -.00014, .01552, .03745, - + .60326, .21297, .45905, .01708, .00286, - + -.00014, .01534, .03639, - + .59074, .20724, .43599, .01676, .00312, - + -.00014, .01512, .03528 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ - + .58003, .20237, .41652, .01646, .00334, - + -.00013, .01493, .03432, - + .56979, .19779, .39814, .01614, .00354, - + -.00013, .01470, .03343, - + .56181, .19425, .38411, .01589, .00369, - + -.00012, .01450, .03274, - + .54499, .18690, .35528, .01536, .00400, - + -.00012, .01408, .03125, - + .53087, .18079, .33191, .01487, .00426, - + -.00002, .01370, .03000, - + .51550, .17423, .30743, .01430, .00452, - + .00023, .01327, .02866, - + .49994, .16768, .28372, .01373, .00473, - + .00058, .01282, .02732, - + .48621, .16194, .26372, .01322, .00488, - + .00083, .01242, .02614 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ - + .47257, .15640, .24487, .01274, .00498, - + .00103, .01200, .02500, - + .46155, .15192, .23024, .01233, .00501, - + .00118, .01166, .02411, - + .44855, .14668, .21372, .01185, .00502, - + .00133, .01127, .02310, - + .43727, .14221, .20010, .01147, .00500, - + .00145, .01093, .02221, - + .42714, .13824, .18840, .01113, .00496, - + .00153, .01062, .02143, - + .41467, .13339, .17464, .01071, .00489, - + .00162, .01024, .02049, - + .40323, .12897, .16266, .01031, .00480, - + .00170, .00989, .01965, - + .39278, .12496, .15225, .00995, .00472, - + .00174, .00956, .01889 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ - + .38265, .12111, .14261, .00960, .00464, - + .00178, .00924, .01817, - + .37290, .11745, .13378, .00927, .00454, - + .00180, .00894, .01747, - + .36395, .11410, .12601, .00897, .00445, - + .00182, .00867, .01684, - + .35567, .11102, .11914, .00870, .00436, - + .00183, .00841, .01628, - + .34753, .10802, .11267, .00843, .00427, - + .00184, .00816, .01573, - + .33968, .10516, .10669, .00818, .00418, - + .00184, .00792, .01520, - + .33240, .10252, .10134, .00794, .00410, - + .00183, .00770, .01472, - + .32566, .10008, .09656, .00772, .00402, - + .00183, .00750, .01427 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ - + .31902, .09768, .09201, .00750, .00394, - + .00182, .00730, .01384, - + .31252, .09537, .08776, .00729, .00385, - + .00181, .00710, .01344, - + .30649, .09323, .08392, .00710, .00377, - + .00180, .00692, .01307, - + .30082, .09122, .08046, .00692, .00369, - + .00179, .00675, .01273, - + .29522, .08923, .07712, .00674, .00362, - + .00177, .00659, .01240 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ - + .67632, .23803, .57746, .01351, .00054, - + -.00002, .01231, .03426, - + .66074, .23081, .54879, .01345, .00092, - + -.00003, .01232, .03327, - + .63816, .22058, .50719, .01332, .00138, - + -.00002, .01224, .03181, - + .62212, .21344, .47759, .01315, .00168, - + -.00003, .01215, .03075, - + .60566, .20623, .44763, .01295, .00196, - + -.00004, .01201, .02965, - + .59179, .20027, .42285, .01277, .00218, - + -.00003, .01186, .02871, - + .57872, .19466, .39978, .01253, .00236, - + -.00004, .01168, .02785, - + .56517, .18890, .37649, .01226, .00254, - + -.00004, .01148, .02695 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ - + .55360, .18406, .35713, .01204, .00270, - + -.00003, .01130, .02615, - + .54259, .17950, .33912, .01180, .00283, - + -.00003, .01111, .02539, - + .53404, .17598, .32550, .01162, .00294, - + -.00003, .01096, .02480, - + .51618, .16869, .29794, .01118, .00316, - + -.00002, .01058, .02360, - + .50121, .16269, .27593, .01079, .00333, - + .00005, .01027, .02259, - + .48499, .15627, .25320, .01037, .00350, - + .00023, .00991, .02148, - + .46867, .14988, .23156, .00993, .00363, - + .00048, .00954, .02040, - + .45435, .14431, .21358, .00955, .00371, - + .00066, .00919, .01948 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ - + .44025, .13891, .19678, .00916, .00375, - + .00080, .00886, .01857, - + .42887, .13460, .18389, .00886, .00376, - + .00089, .00860, .01785, - + .41549, .12959, .16949, .00852, .00375, - + .00099, .00829, .01701, - + .40397, .12532, .15777, .00822, .00371, - + .00108, .00800, .01633, - + .39369, .12151, .14777, .00795, .00366, - + .00113, .00775, .01573, - + .38106, .11688, .13609, .00761, .00358, - + .00119, .00744, .01500, - + .36948, .11271, .12602, .00732, .00352, - + .00123, .00715, .01433, - + .35898, .10894, .11734, .00705, .00345, - + .00126, .00691, .01373 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ - + .34884, .10531, .10934, .00678, .00337, - + .00129, .00667, .01315, - + .33910, .10187, .10210, .00652, .00329, - + .00129, .00643, .01263, - + .33017, .09873, .09577, .00629, .00322, - + .00130, .00621, .01215, - + .32195, .09586, .09020, .00610, .00314, - + .00130, .00601, .01170, - + .31391, .09308, .08498, .00590, .00307, - + .00130, .00582, .01128, - + .30619, .09042, .08019, .00570, .00299, - + .00130, .00563, .01090, - + .29902, .08798, .07592, .00552, .00292, - + .00130, .00546, .01054, - + .29238, .08573, .07213, .00538, .00286, - + .00129, .00531, .01020 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ - + .28585, .08353, .06853, .00523, .00279, - + .00129, .00515, .00988, - + .27954, .08139, .06519, .00507, .00273, - + .00127, .00501, .00955, - + .27370, .07943, .06217, .00492, .00267, - + .00126, .00488, .00926, - + .26821, .07760, .05947, .00479, .00261, - + .00125, .00475, .00899, - + .26278, .07580, .05687, .00465, .00256, - + .00123, .00462, .00874 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ - + .65390, .21919, .52879, .00987, .00046, - + -.00004, .00932, .02627, - + .63687, .21195, .49702, .00984, .00075, - + -.00004, .00932, .02544, - + .61242, .20170, .45233, .00973, .00114, - + -.00003, .00926, .02421, - + .59517, .19457, .42150, .00959, .00136, - + -.00004, .00916, .02336, - + .57758, .18739, .39094, .00943, .00157, - + -.00005, .00903, .02247, - + .56283, .18147, .36613, .00929, .00175, - + -.00004, .00890, .02168, - + .54898, .17596, .34343, .00911, .00189, - + -.00004, .00874, .02097, - + .53468, .17032, .32081, .00891, .00202, - + -.00003, .00857, .02023 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ - + .52253, .16557, .30226, .00872, .00212, - + -.00002, .00843, .01960, - + .51101, .16112, .28522, .00853, .00221, - + -.00002, .00826, .01900, - + .50210, .15769, .27243, .00838, .00229, - + -.00001, .00812, .01854, - + .48353, .15062, .24686, .00806, .00244, - + -.00002, .00783, .01755, - + .46806, .14482, .22675, .00777, .00254, - + .00003, .00758, .01674, - + .45140, .13864, .20629, .00744, .00264, - + .00016, .00729, .01588, - + .43473, .13252, .18703, .00711, .00271, - + .00035, .00698, .01503, - + .42010, .12724, .17118, .00683, .00276, - + .00047, .00671, .01429 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ - + .40582, .12212, .15662, .00653, .00278, - + .00057, .00646, .01357, - + .39436, .11802, .14554, .00630, .00277, - + .00064, .00624, .01303, - + .38094, .11327, .13324, .00603, .00274, - + .00072, .00598, .01241, - + .36940, .10926, .12332, .00581, .00270, - + .00077, .00577, .01186, - + .35914, .10571, .11492, .00559, .00266, - + .00081, .00557, .01140, - + .34660, .10138, .10518, .00533, .00261, - + .00085, .00533, .01084, - + .33512, .09748, .09688, .00515, .00254, - + .00087, .00512, .01030, - + .32474, .09398, .08976, .00495, .00248, - + .00089, .00493, .00984 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ - + .31476, .09063, .08324, .00476, .00242, - + .00091, .00474, .00941, - + .30522, .08746, .07740, .00456, .00236, - + .00092, .00456, .00902, - + .29651, .08458, .07231, .00439, .00230, - + .00093, .00440, .00866, - + .28853, .08196, .06785, .00423, .00223, - + .00092, .00424, .00833, - + .28073, .07942, .06370, .00409, .00217, - + .00092, .00410, .00801, - + .27326, .07699, .05991, .00396, .00211, - + .00091, .00396, .00769, - + .26635, .07476, .05655, .00384, .00206, - + .00090, .00383, .00741, - + .25996, .07272, .05358, .00372, .00201, - + .00089, .00371, .00717 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ - + .25370, .07072, .05076, .00360, .00196, - + .00088, .00360, .00692, - + .24764, .06879, .04818, .00349, .00191, - + .00087, .00349, .00669, - + .24203, .06701, .04585, .00338, .00186, - + .00086, .00338, .00648, - + .23680, .06536, .04376, .00329, .00182, - + .00085, .00329, .00629, - + .23165, .06374, .04175, .00319, .00178, - + .00085, .00319, .00610 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ - + .62526, .19940, .47525, .00702, .00039, - + .00000, .00697, .01988, - + .60717, .19228, .44215, .00701, .00063, - + .00000, .00696, .01919, - + .58135, .18221, .39662, .00694, .00093, - + .00000, .00690, .01818, - + .56324, .17525, .36596, .00685, .00111, - + .00000, .00681, .01747, - + .54485, .16828, .33609, .00674, .00127, - + .00000, .00669, .01674, - + .52951, .16257, .31222, .00661, .00139, - + .00001, .00658, .01613, - + .51516, .15725, .29067, .00649, .00148, - + .00000, .00644, .01556, - + .50041, .15181, .26944, .00634, .00157, - + .00000, .00630, .01498 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ - + .48795, .14723, .25223, .00620, .00164, - + .00001, .00618, .01449, - + .47614, .14298, .23659, .00607, .00171, - + .00001, .00605, .01399, - + .46701, .13972, .22492, .00598, .00176, - + .00000, .00595, .01361, - + .44816, .13299, .20189, .00570, .00185, - + .00000, .00572, .01286, - + .43251, .12748, .18402, .00548, .00192, - + .00004, .00552, .01222, - + .41571, .12165, .16602, .00524, .00199, - + .00014, .00529, .01155, - + .39899, .11590, .14929, .00499, .00202, - + .00027, .00505, .01090, - + .38441, .11093, .13566, .00479, .00203, - + .00037, .00484, .01035 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ - + .37026, .10615, .12325, .00456, .00203, - + .00043, .00464, .00980, - + .35887, .10235, .11390, .00440, .00202, - + .00048, .00447, .00936, - + .34557, .09797, .10362, .00422, .00199, - + .00052, .00427, .00887, - + .33424, .09426, .09538, .00405, .00195, - + .00056, .00411, .00847, - + .32421, .09097, .08847, .00390, .00192, - + .00058, .00396, .00811, - + .31198, .08699, .08052, .00372, .00187, - + .00061, .00378, .00768, - + .30084, .08343, .07378, .00356, .00182, - + .00063, .00362, .00731, - + .29081, .08023, .06805, .00340, .00177, - + .00064, .00347, .00697 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ - + .28118, .07718, .06283, .00325, .00172, - + .00064, .00332, .00664, - + .27201, .07431, .05819, .00312, .00167, - + .00065, .00318, .00634, - + .26364, .07171, .05416, .00300, .00161, - + .00065, .00306, .00607, - + .25599, .06934, .05066, .00289, .00157, - + .00064, .00295, .00583, - + .24854, .06705, .04741, .00279, .00152, - + .00063, .00284, .00559, - + .24143, .06488, .04445, .00270, .00148, - + .00063, .00274, .00537, - + .23488, .06287, .04185, .00261, .00144, - + .00062, .00265, .00516, - + .22883, .06104, .03955, .00252, .00140, - + .00062, .00256, .00498 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ - + .22293, .05925, .03738, .00244, .00137, - + .00061, .00248, .00480, - + .21724, .05753, .03538, .00234, .00133, - + .00060, .00240, .00463, - + .21199, .05596, .03359, .00225, .00129, - + .00060, .00233, .00448, - + .20708, .05450, .03200, .00218, .00126, - + .00059, .00226, .00433, - + .20224, .05307, .03048, .00212, .00123, - + .00057, .00219, .00419 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ - + .59136, .17938, .41909, .00488, .00032, - + .00006, .00517, .01478, - + .57259, .17247, .38618, .00489, .00052, - + .00005, .00515, .01420, - + .54593, .16277, .34173, .00483, .00075, - + .00005, .00509, .01340, - + .52730, .15610, .31240, .00478, .00088, - + .00005, .00501, .01284, - + .50848, .14946, .28424, .00470, .00100, - + .00005, .00490, .01227, - + .49287, .14399, .26198, .00460, .00109, - + .00005, .00482, .01179, - + .47832, .13893, .24219, .00451, .00115, - + .00005, .00471, .01135, - + .46339, .13379, .22288, .00441, .00122, - + .00005, .00459, .01090 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ - + .45081, .12949, .20737, .00431, .00127, - + .00004, .00449, .01050, - + .43896, .12548, .19341, .00421, .00131, - + .00004, .00439, .01013, - + .42984, .12240, .18307, .00414, .00134, - + .00004, .00431, .00985, - + .41096, .11613, .16284, .00397, .00139, - + .00005, .00412, .00927, - + .39545, .11099, .14731, .00379, .00143, - + .00008, .00396, .00880, - + .37885, .10557, .13184, .00361, .00147, - + .00014, .00378, .00829, - + .36236, .10025, .11762, .00344, .00149, - + .00022, .00360, .00778, - + .34809, .09568, .10615, .00330, .00149, - + .00029, .00345, .00733 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ - + .33426, .09127, .09580, .00312, .00148, - + .00034, .00329, .00695, - + .32320, .08780, .08809, .00300, .00146, - + .00037, .00316, .00663, - + .31033, .08380, .07967, .00287, .00144, - + .00040, .00301, .00626, - + .29939, .08041, .07294, .00275, .00141, - + .00043, .00289, .00595, - + .28971, .07744, .06737, .00265, .00137, - + .00044, .00278, .00569, - + .27795, .07384, .06099, .00252, .00132, - + .00045, .00265, .00538, - + .26733, .07063, .05562, .00242, .00128, - + .00046, .00252, .00509, - + .25776, .06776, .05108, .00231, .00124, - + .00047, .00241, .00485 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ - + .24860, .06503, .04696, .00219, .00120, - + .00047, .00231, .00462, - + .23991, .06246, .04332, .00210, .00117, - + .00046, .00221, .00438, - + .23201, .06015, .04017, .00202, .00113, - + .00045, .00212, .00417, - + .22482, .05804, .03747, .00194, .00110, - + .00045, .00204, .00400, - + .21783, .05601, .03496, .00187, .00106, - + .00044, .00196, .00384, - + .21117, .05407, .03269, .00180, .00103, - + .00045, .00188, .00367, - + .20505, .05230, .03069, .00173, .00100, - + .00044, .00181, .00353, - + .19944, .05069, .02894, .00166, .00097, - + .00043, .00175, .00341 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ - + .19395, .04912, .02729, .00159, .00094, - + .00043, .00168, .00328, - + .18865, .04762, .02578, .00154, .00091, - + .00042, .00162, .00316, - + .18376, .04624, .02443, .00149, .00088, - + .00041, .00157, .00305, - + .17922, .04496, .02323, .00144, .00086, - + .00040, .00152, .00295, - + .17476, .04370, .02209, .00140, .00084, - + .00040, .00148, .00284 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ - + .55323, .15970, .36281, .00345, .00024, - + .00002, .00372, .01074, - + .53414, .15310, .33127, .00343, .00039, - + .00000, .00370, .01032, - + .50712, .14392, .28940, .00339, .00055, - + .00001, .00364, .00970, - + .48836, .13762, .26223, .00335, .00065, - + .00002, .00358, .00926, - + .46951, .13135, .23648, .00328, .00073, - + .00002, .00350, .00883, - + .45391, .12623, .21640, .00320, .00080, - + .00001, .00342, .00848, - + .43942, .12150, .19874, .00313, .00085, - + .00002, .00334, .00813, - + .42461, .11671, .18164, .00306, .00089, - + .00002, .00326, .00777 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ - + .41216, .11273, .16800, .00299, .00093, - + .00001, .00318, .00748, - + .40047, .10901, .15583, .00292, .00096, - + .00001, .00310, .00720, - + .39148, .10616, .14686, .00287, .00098, - + .00002, .00304, .00698, - + .37299, .10035, .12950, .00273, .00101, - + .00001, .00289, .00657, - + .35785, .09565, .11632, .00261, .00103, - + .00003, .00278, .00621, - + .34171, .09069, .10332, .00249, .00104, - + .00009, .00265, .00582, - + .32576, .08583, .09148, .00237, .00105, - + .00015, .00252, .00544, - + .31200, .08167, .08203, .00225, .00106, - + .00019, .00240, .00513 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ - + .29867, .07770, .07360, .00216, .00103, - + .00022, .00228, .00484, - + .28809, .07456, .06733, .00207, .00101, - + .00025, .00219, .00461, - + .27584, .07095, .06053, .00196, .00099, - + .00027, .00208, .00435, - + .26544, .06791, .05517, .00189, .00097, - + .00029, .00199, .00412, - + .25626, .06526, .05074, .00181, .00095, - + .00030, .00191, .00392, - + .24512, .06207, .04570, .00172, .00092, - + .00031, .00181, .00370, - + .23515, .05921, .04150, .00162, .00088, - + .00032, .00172, .00350, - + .22617, .05667, .03797, .00155, .00085, - + .00031, .00164, .00332 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ - + .21759, .05426, .03479, .00148, .00082, - + .00030, .00156, .00314, - + .20950, .05198, .03197, .00142, .00079, - + .00030, .00148, .00299, - + .20217, .04993, .02955, .00136, .00076, - + .00030, .00142, .00286, - + .19550, .04808, .02748, .00130, .00074, - + .00029, .00137, .00272, - + .18904, .04631, .02557, .00124, .00072, - + .00029, .00131, .00259, - + .18289, .04463, .02384, .00119, .00070, - + .00030, .00126, .00248, - + .17725, .04309, .02234, .00115, .00068, - + .00030, .00121, .00238, - + .17210, .04168, .02102, .00110, .00065, - + .00029, .00117, .00228 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ - + .16707, .04032, .01979, .00106, .00063, - + .00029, .00113, .00219, - + .16220, .03903, .01866, .00103, .00061, - + .00028, .00108, .00211, - + .15773, .03784, .01765, .00100, .00059, - + .00027, .00104, .00203, - + .15358, .03674, .01675, .00097, .00057, - + .00027, .00101, .00195, - + .14950, .03566, .01590, .00095, .00056, - + .00026, .00098, .00187 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ - + .51210, .14047, .30802, .00231, .00019, - + .00004, .00264, .00771, - + .49297, .13434, .27888, .00233, .00029, - + .00004, .00261, .00737, - + .46609, .12577, .24076, .00231, .00041, - + .00004, .00257, .00690, - + .44753, .11993, .21635, .00229, .00047, - + .00004, .00251, .00656, - + .42890, .11413, .19345, .00226, .00054, - + .00004, .00245, .00622, - + .41353, .10941, .17577, .00223, .00058, - + .00004, .00240, .00596, - + .39937, .10506, .16040, .00217, .00061, - + .00003, .00233, .00571, - + .38493, .10066, .14563, .00211, .00064, - + .00002, .00226, .00546 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ - + .37282, .09701, .13394, .00206, .00065, - + .00003, .00220, .00524, - + .36148, .09363, .12359, .00201, .00067, - + .00002, .00213, .00504, - + .35279, .09105, .11602, .00196, .00068, - + .00001, .00208, .00488, - + .33496, .08579, .10147, .00188, .00071, - + .00002, .00198, .00456, - + .32040, .08153, .09054, .00180, .00072, - + .00004, .00190, .00429, - + .30497, .07705, .07984, .00171, .00072, - + .00007, .00180, .00401, - + .28977, .07270, .07020, .00162, .00072, - + .00010, .00171, .00375, - + .27669, .06898, .06256, .00155, .00071, - + .00012, .00161, .00353 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ - + .26409, .06543, .05580, .00148, .00070, - + .00015, .00154, .00331, - + .25412, .06264, .05081, .00142, .00068, - + .00017, .00147, .00315, - + .24261, .05944, .04544, .00135, .00066, - + .00018, .00139, .00296, - + .23289, .05677, .04123, .00129, .00065, - + .00019, .00133, .00279, - + .22434, .05443, .03777, .00123, .00063, - + .00019, .00127, .00265, - + .21399, .05161, .03386, .00117, .00060, - + .00020, .00120, .00248, - + .20472, .04911, .03061, .00111, .00058, - + .00019, .00114, .00235, - + .19642, .04688, .02791, .00105, .00056, - + .00019, .00108, .00222 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ - + .18851, .04477, .02548, .00101, .00053, - + .00020, .00102, .00210, - + .18105, .04281, .02335, .00097, .00051, - + .00020, .00098, .00199, - + .17432, .04104, .02152, .00093, .00049, - + .00020, .00094, .00189, - + .16824, .03945, .01996, .00088, .00048, - + .00019, .00090, .00179, - + .16234, .03791, .01853, .00085, .00047, - + .00019, .00086, .00171, - + .15674, .03646, .01724, .00082, .00045, - + .00019, .00082, .00164, - + .15162, .03514, .01612, .00079, .00043, - + .00019, .00078, .00157, - + .14693, .03393, .01514, .00076, .00042, - + .00018, .00075, .00151 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ - + .14238, .03276, .01423, .00073, .00040, - + .00017, .00072, .00145, - + .13800, .03166, .01340, .00070, .00039, - + .00017, .00069, .00139, - + .13399, .03064, .01265, .00067, .00037, - + .00016, .00066, .00134, - + .13026, .02970, .01200, .00065, .00036, - + .00016, .00064, .00129, - + .12661, .02879, .01137, .00064, .00035, - + .00016, .00063, .00123 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ - + .46879, .12206, .25638, .00149, .00015, - + .00006, .00186, .00541, - + .44999, .11641, .23024, .00151, .00023, - + .00006, .00184, .00516, - + .42364, .10855, .19646, .00152, .00031, - + .00004, .00180, .00481, - + .40554, .10321, .17510, .00150, .00036, - + .00004, .00175, .00457, - + .38750, .09793, .15528, .00146, .00040, - + .00004, .00170, .00432, - + .37271, .09362, .14015, .00142, .00044, - + .00005, .00167, .00412, - + .35903, .08969, .12707, .00139, .00046, - + .00004, .00162, .00395, - + .34512, .08572, .11460, .00136, .00048, - + .00004, .00156, .00376 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ - + .33349, .08243, .10483, .00133, .00048, - + .00003, .00151, .00360, - + .32267, .07939, .09625, .00130, .00049, - + .00003, .00147, .00345, - + .31438, .07708, .09000, .00128, .00049, - + .00003, .00144, .00333, - + .29745, .07236, .07809, .00123, .00052, - + .00003, .00137, .00309, - + .28368, .06855, .06920, .00116, .00052, - + .00005, .00130, .00292, - + .26913, .06458, .06060, .00109, .00051, - + .00007, .00123, .00273, - + .25484, .06074, .05293, .00104, .00051, - + .00009, .00116, .00253, - + .24261, .05748, .04690, .00100, .00050, - + .00010, .00110, .00236 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ - + .23086, .05436, .04159, .00096, .00049, - + .00012, .00104, .00221, - + .22160, .05192, .03770, .00092, .00048, - + .00013, .00099, .00210, - + .21095, .04912, .03355, .00086, .00047, - + .00014, .00093, .00197, - + .20200, .04678, .03032, .00081, .00045, - + .00014, .00089, .00186, - + .19413, .04474, .02767, .00077, .00043, - + .00014, .00085, .00177, - + .18464, .04231, .02469, .00074, .00041, - + .00014, .00080, .00167, - + .17617, .04015, .02224, .00069, .00041, - + .00015, .00077, .00154, - + .16860, .03824, .02020, .00066, .00039, - + .00015, .00073, .00145 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ - + .16140, .03644, .01837, .00063, .00037, - + .00014, .00068, .00137, - + .15466, .03476, .01679, .00059, .00035, - + .00014, .00064, .00130, - + .14857, .03325, .01544, .00056, .00034, - + .00014, .00062, .00124, - + .14305, .03188, .01429, .00055, .00033, - + .00014, .00059, .00119, - + .13774, .03057, .01323, .00053, .00032, - + .00013, .00057, .00113, - + .13272, .02934, .01229, .00051, .00031, - + .00014, .00054, .00107, - + .12814, .02822, .01147, .00050, .00029, - + .00013, .00051, .00102, - + .12396, .02721, .01075, .00047, .00028, - + .00013, .00050, .00097 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ - + .11990, .02623, .01008, .00045, .00027, - + .00012, .00048, .00093, - + .11602, .02530, .00948, .00043, .00026, - + .00012, .00046, .00089, - + .11246, .02445, .00894, .00040, .00025, - + .00011, .00044, .00086, - + .10917, .02366, .00846, .00039, .00024, - + .00011, .00043, .00083, - + .10595, .02289, .00801, .00039, .00024, - + .00011, .00041, .00080 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ - + .42432, .10485, .20924, .00099, .00012, - + .00005, .00126, .00372, - + .40618, .09969, .18638, .00095, .00017, - + .00005, .00125, .00355, - + .38085, .09255, .15719, .00091, .00023, - + .00005, .00123, .00330, - + .36347, .08774, .13899, .00091, .00027, - + .00004, .00120, .00311, - + .34618, .08299, .12228, .00091, .00030, - + .00003, .00117, .00293, - + .33207, .07913, .10963, .00089, .00032, - + .00003, .00114, .00278, - + .31909, .07562, .09880, .00086, .00033, - + .00003, .00111, .00266, - + .30591, .07209, .08855, .00085, .00035, - + .00003, .00107, .00253 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ - + .29492, .06918, .08057, .00084, .00036, - + .00002, .00104, .00241, - + .28475, .06647, .07361, .00081, .00036, - + .00002, .00100, .00231, - + .27700, .06441, .06856, .00078, .00036, - + .00002, .00098, .00223, - + .26114, .06028, .05903, .00074, .00036, - + .00002, .00093, .00206, - + .24829, .05694, .05198, .00070, .00037, - + .00002, .00088, .00193, - + .23477, .05346, .04522, .00066, .00037, - + .00004, .00084, .00180, - + .22157, .05010, .03923, .00062, .00036, - + .00007, .00079, .00167, - + .21030, .04727, .03457, .00059, .00036, - + .00008, .00075, .00154 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ - + .19954, .04457, .03050, .00055, .00034, - + .00009, .00070, .00147, - + .19106, .04246, .02754, .00053, .00034, - + .00010, .00067, .00138, - + .18131, .04007, .02438, .00051, .00034, - + .00010, .00063, .00127, - + .17316, .03806, .02194, .00049, .00032, - + .00011, .00061, .00119, - + .16601, .03632, .01996, .00047, .00031, - + .00011, .00058, .00113, - + .15742, .03425, .01774, .00044, .00029, - + .00011, .00054, .00106, - + .14980, .03241, .01592, .00040, .00028, - + .00010, .00051, .00099, - + .14302, .03078, .01442, .00037, .00027, - + .00011, .00048, .00094 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ - + .13659, .02925, .01308, .00035, .00026, - + .00011, .00046, .00088, - + .13054, .02784, .01192, .00034, .00026, - + .00011, .00044, .00083, - + .12511, .02657, .01093, .00033, .00024, - + .00011, .00042, .00079, - + .12021, .02542, .01009, .00032, .00022, - + .00011, .00040, .00075, - + .11551, .02433, .00933, .00031, .00021, - + .00010, .00038, .00071, - + .11109, .02330, .00865, .00029, .00021, - + .00010, .00036, .00067, - + .10706, .02237, .00806, .00028, .00020, - + .00010, .00034, .00064, - + .10336, .02153, .00754, .00027, .00019, - + .00009, .00033, .00062 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ - + .09979, .02072, .00707, .00025, .00019, - + .00009, .00031, .00059, - + .09637, .01995, .00663, .00025, .00018, - + .00009, .00030, .00057, - + .09324, .01925, .00625, .00024, .00017, - + .00009, .00029, .00054, - + .09037, .01860, .00591, .00023, .00017, - + .00009, .00028, .00052, - + .08757, .01796, .00559, .00022, .00016, - + .00009, .00027, .00050 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ - + .37979, .08905, .16749, .00067, .00004, - + -.00002, .00080, .00251, - + .36244, .08444, .14804, .00070, .00008, - + -.00003, .00079, .00237, - + .33840, .07810, .12352, .00069, .00012, - + -.00003, .00077, .00218, - + .32205, .07381, .10843, .00065, .00015, - + -.00002, .00075, .00207, - + .30581, .06961, .09471, .00064, .00016, - + -.00001, .00073, .00195, - + .29250, .06624, .08441, .00068, .00018, - + -.00001, .00071, .00183, - + .28041, .06314, .07564, .00064, .00019, - + -.00001, .00069, .00175, - + .26818, .06003, .06741, .00061, .00020, - + -.00001, .00066, .00166 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ - + .25802, .05748, .06104, .00059, .00020, - + -.00001, .00064, .00159, - + .24857, .05513, .05552, .00057, .00020, - + -.00001, .00062, .00151, - + .24137, .05335, .05153, .00055, .00020, - + -.00001, .00060, .00146, - + .22676, .04974, .04405, .00054, .00020, - + -.00001, .00056, .00135, - + .21495, .04686, .03858, .00052, .00021, - + -.00001, .00054, .00125, - + .20258, .04387, .03335, .00049, .00020, - + .00000, .00050, .00117, - + .19057, .04098, .02877, .00045, .00020, - + .00002, .00047, .00109, - + .18035, .03854, .02522, .00043, .00020, - + .00004, .00045, .00100 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ - + .17060, .03624, .02214, .00041, .00019, - + .00004, .00042, .00095, - + .16296, .03445, .01992, .00039, .00018, - + .00004, .00039, .00090, - + .15423, .03241, .01757, .00036, .00018, - + .00004, .00037, .00083, - + .14690, .03071, .01576, .00036, .00018, - + .00004, .00035, .00077, - + .14054, .02924, .01429, .00033, .00017, - + .00004, .00034, .00073, - + .13291, .02749, .01266, .00029, .00016, - + .00005, .00032, .00068, - + .12608, .02596, .01132, .00030, .00016, - + .00005, .00030, .00064, - + .12006, .02460, .01023, .00029, .00015, - + .00005, .00028, .00060 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ - + .11439, .02333, .00926, .00027, .00014, - + .00005, .00026, .00056, - + .10908, .02215, .00842, .00026, .00013, - + .00005, .00024, .00053, - + .10432, .02109, .00770, .00025, .00013, - + .00005, .00023, .00050, - + .10003, .02014, .00710, .00024, .00012, - + .00005, .00022, .00047, - + .09592, .01924, .00655, .00023, .00012, - + .00005, .00021, .00045, - + .09206, .01839, .00606, .00021, .00011, - + .00005, .00020, .00044, - + .08855, .01762, .00564, .00020, .00010, - + .00005, .00019, .00042, - + .08535, .01693, .00528, .00020, .00010, - + .00004, .00018, .00039 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ - + .08225, .01626, .00494, .00019, .00010, - + .00004, .00018, .00036, - + .07930, .01563, .00463, .00018, .00009, - + .00004, .00017, .00035, - + .07661, .01505, .00436, .00018, .00009, - + .00004, .00016, .00034, - + .07412, .01452, .00412, .00018, .00009, - + .00004, .00016, .00032, - + .07170, .01401, .00389, .00017, .00008, - + .00004, .00015, .00031 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ - + .33552, .07437, .13080, .00036, .00007, - + .00003, .00057, .00163, - + .31930, .07031, .11481, .00035, .00009, - + .00003, .00055, .00156, - + .29684, .06477, .09481, .00037, .00011, - + .00004, .00053, .00143, - + .28158, .06105, .08262, .00037, .00012, - + .00004, .00051, .00134, - + .26654, .05741, .07162, .00036, .00013, - + .00004, .00049, .00126, - + .25436, .05446, .06342, .00035, .00013, - + .00003, .00048, .00119, - + .24316, .05181, .05653, .00035, .00014, - + .00003, .00046, .00111, - + .23191, .04914, .05010, .00036, .00015, - + .00003, .00045, .00104 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ - + .22263, .04693, .04515, .00034, .00014, - + .00003, .00043, .00099, - + .21401, .04492, .04088, .00034, .00015, - + .00003, .00041, .00094, - + .20746, .04339, .03781, .00034, .00015, - + .00003, .00040, .00091, - + .19422, .04032, .03210, .00031, .00015, - + .00003, .00037, .00084, - + .18354, .03788, .02795, .00029, .00015, - + .00002, .00034, .00080, - + .17239, .03534, .02402, .00027, .00014, - + .00002, .00032, .00075, - + .16163, .03289, .02060, .00025, .00014, - + .00003, .00030, .00068, - + .15249, .03085, .01797, .00023, .00013, - + .00004, .00029, .00064 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ - + .14382, .02892, .01571, .00022, .00014, - + .00004, .00027, .00058, - + .13702, .02742, .01408, .00022, .00013, - + .00004, .00026, .00055, - + .12927, .02572, .01237, .00021, .00012, - + .00004, .00023, .00052, - + .12282, .02432, .01105, .00019, .00011, - + .00004, .00022, .00048, - + .11720, .02310, .01000, .00019, .00011, - + .00004, .00021, .00045, - + .11048, .02166, .00883, .00018, .00010, - + .00004, .00020, .00042, - + .10457, .02039, .00787, .00016, .00009, - + .00004, .00018, .00040, - + .09932, .01928, .00709, .00015, .00009, - + .00004, .00017, .00037 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ - + .09436, .01823, .00640, .00016, .00009, - + .00004, .00016, .00034, - + .08977, .01727, .00581, .00015, .00008, - + .00004, .00015, .00032, - + .08565, .01641, .00531, .00015, .00008, - + .00004, .00014, .00030, - + .08195, .01564, .00489, .00014, .00007, - + .00004, .00014, .00029, - + .07841, .01491, .00450, .00014, .00007, - + .00004, .00013, .00027, - + .07509, .01422, .00416, .00013, .00007, - + .00003, .00013, .00026, - + .07208, .01360, .00387, .00013, .00007, - + .00003, .00012, .00024, - + .06935, .01304, .00362, .00013, .00006, - + .00003, .00011, .00023 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ - + .06671, .01250, .00338, .00012, .00006, - + .00003, .00011, .00022, - + .06420, .01199, .00316, .00011, .00006, - + .00003, .00010, .00021, - + .06192, .01153, .00297, .00010, .00006, - + .00003, .00010, .00020, - + .05982, .01111, .00281, .00010, .00005, - + .00002, .00009, .00019, - + .05777, .01070, .00265, .00010, .00005, - + .00002, .00009, .00019 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ - + .29261, .06125, .09991, .00017, .00006, - + .00005, .00037, .00105, - + .27760, .05775, .08705, .00020, .00007, - + .00005, .00036, .00098, - + .25696, .05297, .07115, .00020, .00008, - + .00004, .00035, .00089, - + .24303, .04978, .06155, .00019, .00009, - + .00004, .00034, .00083, - + .22931, .04666, .05297, .00018, .00010, - + .00004, .00032, .00078, - + .21819, .04415, .04663, .00019, .00010, - + .00005, .00031, .00073, - + .20809, .04189, .04133, .00018, .00010, - + .00004, .00029, .00070, - + .19794, .03963, .03642, .00017, .00010, - + .00003, .00028, .00066 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ - + .18956, .03777, .03266, .00017, .00011, - + .00003, .00027, .00062, - + .18181, .03607, .02945, .00017, .00011, - + .00003, .00026, .00059, - + .17594, .03478, .02715, .00017, .00011, - + .00002, .00026, .00057, - + .16410, .03221, .02289, .00015, .00010, - + .00002, .00024, .00052, - + .15460, .03015, .01982, .00015, .00010, - + .00003, .00022, .00049, - + .14470, .02803, .01694, .00015, .00010, - + .00003, .00021, .00045, - + .13515, .02601, .01444, .00015, .00009, - + .00003, .00019, .00041, - + .12709, .02432, .01254, .00015, .00009, - + .00003, .00018, .00038 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ - + .11949, .02272, .01091, .00012, .00009, - + .00003, .00017, .00037, - + .11357, .02149, .00975, .00012, .00008, - + .00004, .00016, .00034, - + .10682, .02011, .00853, .00011, .00008, - + .00004, .00015, .00030, - + .10122, .01895, .00760, .00010, .00007, - + .00003, .00014, .00029, - + .09636, .01796, .00686, .00010, .00007, - + .00003, .00013, .00027, - + .09056, .01678, .00604, .00009, .00007, - + .00003, .00012, .00025, - + .08546, .01576, .00537, .00009, .00007, - + .00003, .00012, .00023, - + .08096, .01485, .00483, .00009, .00006, - + .00003, .00011, .00022 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ - + .07673, .01401, .00435, .00008, .00006, - + .00003, .00010, .00021, - + .07280, .01324, .00394, .00008, .00005, - + .00003, .00010, .00019, - + .06930, .01255, .00360, .00008, .00005, - + .00003, .00009, .00018, - + .06617, .01194, .00331, .00008, .00005, - + .00003, .00009, .00017, - + .06317, .01135, .00304, .00007, .00005, - + .00003, .00008, .00016, - + .06036, .01081, .00281, .00007, .00005, - + .00002, .00008, .00015, - + .05782, .01032, .00261, .00006, .00004, - + .00002, .00007, .00015, - + .05553, .00987, .00243, .00006, .00004, - + .00002, .00007, .00014 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ - + .05332, .00945, .00227, .00006, .00004, - + .00002, .00007, .00013, - + .05121, .00905, .00213, .00006, .00004, - + .00002, .00006, .00012, - + .04929, .00868, .00200, .00006, .00004, - + .00002, .00006, .00012, - + .04755, .00835, .00188, .00005, .00003, - + .00002, .00006, .00011, - + .04585, .00803, .00178, .00004, .00003, - + .00002, .00006, .00011 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ - + .25177, .04981, .07458, .00015, .00002, - + .00001, .00020, .00063, - + .23817, .04682, .06451, .00015, .00003, - + .00000, .00020, .00059, - + .21950, .04275, .05221, .00014, .00003, - + .00000, .00019, .00056, - + .20695, .04004, .04487, .00013, .00004, - + .00000, .00018, .00053, - + .19464, .03742, .03835, .00013, .00004, - + .00000, .00017, .00048, - + .18471, .03533, .03357, .00014, .00006, - + .00001, .00017, .00043, - + .17570, .03342, .02960, .00013, .00005, - + .00001, .00016, .00042, - + .16667, .03152, .02594, .00013, .00005, - + .00001, .00016, .00040 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ - + .15922, .02999, .02316, .00014, .00005, - + .00000, .00015, .00036, - + .15239, .02857, .02080, .00012, .00005, - + .00000, .00014, .00035, - + .14722, .02751, .01912, .00011, .00005, - + .00000, .00013, .00034, - + .13680, .02537, .01602, .00010, .00005, - + .00000, .00013, .00032, - + .12847, .02368, .01380, .00010, .00004, - + .00000, .00012, .00031, - + .11984, .02195, .01173, .00009, .00004, - + .00000, .00011, .00028, - + .11157, .02029, .00996, .00008, .00004, - + .00001, .00010, .00025, - + .10460, .01891, .00861, .00008, .00005, - + .00000, .00010, .00023 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ - + .09801, .01762, .00747, .00008, .00005, - + .00001, .00009, .00021, - + .09290, .01663, .00665, .00008, .00004, - + .00001, .00009, .00020, - + .08711, .01550, .00580, .00008, .00004, - + .00002, .00008, .00018, - + .08233, .01457, .00516, .00007, .00004, - + .00001, .00008, .00018, - + .07818, .01378, .00465, .00007, .00003, - + .00001, .00007, .00016, - + .07325, .01284, .00408, .00007, .00003, - + .00001, .00006, .00015, - + .06892, .01202, .00362, .00006, .00003, - + .00001, .00006, .00014, - + .06511, .01131, .00325, .00006, .00003, - + .00001, .00006, .00013 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ - + .06155, .01064, .00292, .00006, .00003, - + .00001, .00005, .00012, - + .05825, .01002, .00265, .00006, .00003, - + .00001, .00005, .00011, - + .05532, .00948, .00241, .00006, .00002, - + .00001, .00005, .00010, - + .05270, .00900, .00221, .00005, .00002, - + .00001, .00005, .00010, - + .05021, .00854, .00203, .00005, .00002, - + .00001, .00004, .00009, - + .04789, .00811, .00188, .00005, .00002, - + .00001, .00004, .00009, - + .04578, .00773, .00174, .00004, .00002, - + .00001, .00004, .00008, - + .04388, .00738, .00162, .00004, .00002, - + .00001, .00003, .00008 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ - + .04205, .00705, .00151, .00004, .00002, - + .00001, .00003, .00008, - + .04032, .00674, .00142, .00004, .00002, - + .00001, .00003, .00007, - + .03874, .00646, .00133, .00004, .00002, - + .00001, .00003, .00007, - + .03730, .00620, .00125, .00004, .00002, - + .00001, .00003, .00006, - + .03590, .00595, .00118, .00004, .00002, - + .00001, .00003, .00006 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ - + .21313, .03962, .05401, .00005, .00003, - + .00004, .00014, .00038, - + .20100, .03714, .04641, .00003, .00003, - + .00003, .00014, .00036, - + .18440, .03377, .03719, .00004, .00004, - + .00003, .00014, .00032, - + .17328, .03154, .03174, .00005, .00004, - + .00003, .00013, .00029, - + .16241, .02938, .02694, .00006, .00005, - + .00003, .00012, .00027, - + .15368, .02765, .02345, .00007, .00005, - + .00002, .00011, .00025, - + .14580, .02609, .02057, .00006, .00004, - + .00003, .00011, .00023, - + .13792, .02455, .01793, .00005, .00004, - + .00003, .00011, .00022 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ - + .13145, .02329, .01594, .00005, .00004, - + .00002, .00011, .00021, - + .12551, .02214, .01426, .00004, .00004, - + .00002, .00010, .00020, - + .12103, .02127, .01306, .00004, .00004, - + .00003, .00009, .00020, - + .11201, .01956, .01088, .00005, .00004, - + .00002, .00008, .00018, - + .10485, .01820, .00933, .00005, .00004, - + .00002, .00008, .00016, - + .09747, .01680, .00789, .00004, .00004, - + .00002, .00007, .00015, - + .09040, .01548, .00666, .00002, .00004, - + .00002, .00007, .00014, - + .08445, .01438, .00574, .00003, .00003, - + .00002, .00006, .00014 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ - + .07889, .01335, .00496, .00004, .00003, - + .00002, .00006, .00011, - + .07457, .01256, .00441, .00004, .00003, - + .00002, .00006, .00010, - + .06969, .01167, .00383, .00005, .00003, - + .00002, .00005, .00010, - + .06566, .01095, .00340, .00004, .00002, - + .00002, .00005, .00009, - + .06220, .01033, .00306, .00004, .00002, - + .00002, .00004, .00009, - + .05810, .00959, .00268, .00003, .00002, - + .00001, .00004, .00008, - + .05450, .00895, .00237, .00003, .00002, - + .00002, .00004, .00007, - + .05135, .00840, .00213, .00003, .00002, - + .00001, .00004, .00007 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ - + .04840, .00788, .00191, .00003, .00002, - + .00001, .00004, .00006, - + .04571, .00740, .00173, .00002, .00002, - + .00001, .00003, .00006, - + .04330, .00698, .00157, .00002, .00002, - + .00001, .00003, .00006, - + .04116, .00661, .00144, .00001, .00002, - + .00001, .00003, .00006, - + .03912, .00626, .00132, .00001, .00001, - + .00001, .00002, .00005, - + .03721, .00593, .00122, .00002, .00002, - + .00001, .00002, .00005, - + .03550, .00564, .00113, .00001, .00001, - + .00001, .00002, .00005, - + .03396, .00538, .00105, .00001, .00001, - + .00001, .00002, .00004 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ - + .03248, .00513, .00098, .00001, .00001, - + .00001, .00002, .00004, - + .03108, .00489, .00092, .00001, .00001, - + .00001, .00002, .00004, - + .02980, .00468, .00086, .00001, .00001, - + .00001, .00002, .00004, - + .02864, .00448, .00081, .00001, .00001, - + .00001, .00002, .00003, - + .02752, .00430, .00076, .00001, .00001, - + .00001, .00002, .00003 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ - + .14527, .02379, .02601, .00002, .00000, - + .00000, .00003, .00013, - + .13610, .02215, .02204, .00002, .00000, - + .00000, .00004, .00012, - + .12368, .01995, .01731, .00002, .00000, - + .00000, .00004, .00009, - + .11544, .01850, .01458, .00002, .00001, - + .00000, .00004, .00009, - + .10745, .01711, .01221, .00001, .00001, - + .00000, .00003, .00008, - + .10105, .01601, .01051, .00002, .00001, - + .00000, .00004, .00008, - + .09532, .01502, .00913, .00002, .00001, - + .00000, .00003, .00008, - + .08964, .01405, .00789, .00001, .00001, - + .00000, .00003, .00007 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ - + .08501, .01327, .00696, .00000, .00001, - + .00000, .00003, .00007, - + .08078, .01255, .00618, .00000, .00001, - + .00000, .00003, .00007, - + .07759, .01201, .00563, .00000, .00001, - + .00000, .00003, .00007, - + .07123, .01095, .00464, .00000, .00001, - + .00000, .00002, .00006, - + .06622, .01012, .00394, .00001, .00001, - + .00000, .00002, .00006, - + .06108, .00928, .00331, .00001, .00001, - + .00000, .00002, .00005, - + .05621, .00848, .00277, .00000, .00001, - + .00000, .00002, .00004, - + .05217, .00782, .00238, .00000, .00001, - + .00000, .00002, .00004 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ - + .04839, .00722, .00204, .00001, .00001, - + .00000, .00002, .00003, - + .04549, .00675, .00181, .00001, .00001, - + .00000, .00002, .00003, - + .04222, .00623, .00157, .00000, .00001, - + .00000, .00001, .00003, - + .03955, .00581, .00138, .00001, .00001, - + .00000, .00001, .00003, - + .03726, .00545, .00124, .00001, .00001, - + .00000, .00001, .00003, - + .03457, .00503, .00108, .00000, .00001, - + .00000, .00001, .00002, - + .03223, .00467, .00096, .00001, .00001, - + .00000, .00001, .00002, - + .03019, .00435, .00086, .00001, .00001, - + .00000, .00001, .00002 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ - + .02830, .00406, .00077, .00001, .00001, - + .00000, .00001, .00002, - + .02657, .00379, .00069, .00000, .00000, - + .00000, .00001, .00002, - + .02504, .00356, .00063, .00000, .00000, - + .00000, .00001, .00002, - + .02369, .00335, .00058, .00000, .00000, - + .00000, .00001, .00002, - + .02241, .00316, .00053, .00000, .00000, - + .00000, .00001, .00001, - + .02121, .00298, .00049, .00000, .00000, - + .00000, .00001, .00001, - + .02014, .00282, .00045, .00000, .00000, - + .00000, .00001, .00001, - + .01918, .00268, .00042, .00000, .00000, - + .00000, .00001, .00001 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/ - + .01827, .00254, .00039, .00000, .00000, - + .00000, .00001, .00001, - + .01741, .00242, .00037, .00000, .00000, - + .00000, .00001, .00001, - + .01663, .00230, .00034, .00000, .00000, - + .00000, .00001, .00001, - + .01593, .00220, .00032, .00000, .00000, - + .00000, .00001, .00001, - + .01525, .00210, .00030, .00000, .00000, - + .00000, .00001, .00001 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/ - + .09097, .01293, .01080, .00001, .00000, - + -.00001, .00001, .00004, - + .08464, .01196, .00902, .00001, .00000, - + -.00001, .00000, .00003, - + .07613, .01066, .00696, .00000, .00000, - + .00000, .00001, .00003, - + .07053, .00982, .00579, .00001, .00000, - + .00000, .00000, .00002, - + .06515, .00901, .00479, .00001, .00000, - + .00000, .00000, .00002, - + .06088, .00838, .00409, .00000, .00000, - + .00000, .00000, .00002, - + .05708, .00781, .00352, .00001, .00000, - + .00000, .00000, .00002, - + .05333, .00726, .00302, .00001, .00000, - + .00000, .00001, .00002 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ - + .05029, .00682, .00264, .00001, .00000, - + .00000, .00001, .00002, - + .04753, .00642, .00233, .00001, .00000, - + .00000, .00001, .00002, - + .04547, .00612, .00212, .00000, .00000, - + .00000, .00000, .00002, - + .04139, .00553, .00173, .00000, .00000, - + .00000, .00000, .00001, - + .03819, .00508, .00146, .00000, .00000, - + .00000, .00000, .00001, - + .03494, .00461, .00122, .00000, .00000, - + .00000, .00000, .00001, - + .03189, .00418, .00102, .00000, .00000, - + .00000, .00000, .00001, - + .02938, .00383, .00087, .00000, .00000, - + .00000, .00000, .00001 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/ - + .02704, .00351, .00074, .00001, .00000, - + .00000, .00000, .00001, - + .02526, .00326, .00066, .00000, .00000, - + .00000, .00000, .00001, - + .02329, .00299, .00057, .00000, .00000, - + .00000, .00000, .00001, - + .02168, .00277, .00050, .00000, .00000, - + .00000, .00000, .00001, - + .02030, .00258, .00045, .00000, .00000, - + .00000, .00000, .00000, - + .01869, .00237, .00039, .00001, .00000, - + .00000, .00000, .00000, - + .01731, .00218, .00035, .00000, .00000, - + .00000, .00000, .00000, - + .01611, .00202, .00031, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/ - + .01501, .00187, .00028, .00000, .00000, - + .00000, .00000, .00000, - + .01400, .00174, .00025, .00000, .00000, - + .00000, .00000, .00000, - + .01313, .00162, .00023, .00000, .00000, - + .00000, .00000, .00000, - + .01235, .00152, .00021, .00000, .00000, - + .00000, .00000, .00000, - + .01162, .00143, .00019, .00000, .00000, - + .00000, .00000, .00000, - + .01095, .00134, .00018, .00000, .00000, - + .00000, .00000, .00000, - + .01035, .00126, .00016, .00000, .00000, - + .00000, .00000, .00000, - + .00981, .00119, .00015, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/ - + .00930, .00113, .00014, .00000, .00000, - + .00000, .00000, .00000, - + .00882, .00107, .00013, .00000, .00000, - + .00000, .00000, .00000, - + .00839, .00101, .00012, .00000, .00000, - + .00000, .00000, .00000, - + .00800, .00096, .00012, .00000, .00000, - + .00000, .00000, .00000, - + .00763, .00091, .00011, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/ - + .05096, .00617, .00369, .00001, -.00001, - + -.00001, .00000, .00000, - + .04704, .00566, .00305, .00001, -.00001, - + -.00001, .00000, .00000, - + .04183, .00499, .00231, .00001, .00000, - + .00000, .00000, .00001, - + .03844, .00456, .00190, .00000, .00000, - + .00000, .00000, .00001, - + .03521, .00415, .00156, .00000, .00000, - + .00000, .00000, .00001, - + .03267, .00383, .00132, .00001, .00000, - + .00000, .00000, .00000, - + .03042, .00355, .00113, .00000, .00000, - + .00000, .00000, .00001, - + .02822, .00328, .00096, .00000, .00000, - + .00000, .00000, .00001 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/ - + .02645, .00305, .00084, .00000, .00000, - + .00000, .00000, .00001, - + .02485, .00286, .00074, .00000, .00000, - + .00000, .00000, .00000, - + .02366, .00271, .00067, .00000, .00000, - + .00000, .00000, .00000, - + .02133, .00243, .00054, .00000, .00000, - + .00000, .00000, .00000, - + .01952, .00221, .00046, .00000, .00000, - + .00000, .00000, .00000, - + .01769, .00199, .00038, .00000, .00000, - + .00000, .00000, .00000, - + .01600, .00179, .00032, .00000, .00000, - + .00000, .00000, .00000, - + .01461, .00162, .00027, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/ - + .01334, .00148, .00023, .00000, .00000, - + .00000, .00000, .00000, - + .01238, .00136, .00021, .00000, .00000, - + .00000, .00000, .00000, - + .01131, .00124, .00018, .00000, .00000, - + .00000, .00000, .00000, - + .01045, .00114, .00016, .00000, .00000, - + .00000, .00000, .00000, - + .00973, .00106, .00014, .00000, .00000, - + .00000, .00000, .00000, - + .00888, .00096, .00012, .00000, .00000, - + .00000, .00000, .00000, - + .00816, .00088, .00011, .00000, .00000, - + .00000, .00000, .00000, - + .00755, .00081, .00010, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/ - + .00698, .00074, .00009, .00000, .00000, - + .00000, .00000, .00000, - + .00647, .00069, .00008, .00000, .00000, - + .00000, .00000, .00000, - + .00603, .00064, .00007, .00000, .00000, - + .00000, .00000, .00000, - + .00563, .00059, .00007, .00000, .00000, - + .00000, .00000, .00000, - + .00527, .00055, .00006, .00000, .00000, - + .00000, .00000, .00000, - + .00494, .00052, .00006, .00000, .00000, - + .00000, .00000, .00000, - + .00464, .00048, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00438, .00045, .00005, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/ - + .00413, .00043, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00390, .00040, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00369, .00038, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00350, .00036, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00333, .00034, .00003, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/ - + .02429, .00242, .00095, -.00001, .00000, - + .00000, .00000, .00000, - + .02222, .00220, .00078, .00000, .00000, - + .00000, .00000, .00000, - + .01950, .00192, .00058, .00000, .00000, - + .00000, .00000, .00000, - + .01775, .00174, .00048, .00000, .00000, - + .00000, .00000, .00000, - + .01610, .00157, .00039, .00000, .00000, - + .00000, .00000, .00000, - + .01481, .00143, .00033, .00000, .00000, - + .00000, .00000, .00000, - + .01368, .00132, .00028, .00000, .00000, - + .00000, .00000, .00000, - + .01259, .00121, .00024, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/ - + .01171, .00112, .00021, .00000, .00000, - + .00000, .00000, .00000, - + .01093, .00104, .00018, .00000, .00000, - + .00000, .00000, .00000, - + .01035, .00098, .00017, .00000, .00000, - + .00000, .00000, .00000, - + .00922, .00087, .00013, .00000, .00000, - + .00000, .00000, .00000, - + .00836, .00078, .00011, .00000, .00000, - + .00000, .00000, .00000, - + .00750, .00070, .00009, .00000, .00000, - + .00000, .00000, .00000, - + .00671, .00062, .00008, .00000, .00000, - + .00000, .00000, .00000, - + .00607, .00056, .00007, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/ - + .00549, .00050, .00006, .00000, .00000, - + .00000, .00000, .00000, - + .00505, .00046, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00457, .00041, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00419, .00038, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00387, .00035, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00350, .00031, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00319, .00028, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00292, .00026, .00003, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/ - + .00268, .00024, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00247, .00022, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00228, .00020, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00212, .00018, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00197, .00017, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00183, .00016, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00171, .00015, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00160, .00014, .00001, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/ - + .00150, .00013, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00141, .00012, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00133, .00011, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00125, .00011, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00118, .00010, .00001, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/ - + .00217, .00012, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00194, .00011, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00164, .00009, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00145, .00008, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00128, .00007, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00115, .00006, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00104, .00006, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00093, .00005, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/ - + .00085, .00005, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00078, .00004, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00072, .00004, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00062, .00003, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00055, .00003, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00048, .00003, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00041, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00036, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/ - + .00032, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00029, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00025, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00023, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00021, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00018, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00016, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00014, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ - + .00013, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00012, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00010, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00009, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00009, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00008, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00007, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00006, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ - + .00006, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00005, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00005, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00005, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00004, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA XX/1D-5,2D-5,4D-5,6D-5,8D-5, - . 1D-4,2D-4,4D-4,6D-4,8D-4, - . 1D-3,2D-3,4D-3,6D-3,8D-3, - . 1D-2,1.4D-2,2D-2,3D-2,4D-2,6D-2,8D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1D0/ - DATA QQ/1.25D0,1.5D0,2D0,2.5D0,3.2D0,4D0,5D0,6.4D0,8D0,1D1, - . 1.2D1,1.8D1,2.6D1,4D1,6.4D1,1D2, - . 1.6D2,2.4D2,4D2,6.4D2,1D3,1.8D3,3.2D3,5.6D3,1D4, - . 1.8D4,3.2D4,5.6D4,1D5,1.8D5,3.2D5,5.6D5,1D6, - . 1.8D6,3.2D6,5.6D6,1D7/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1D-5,1D0,1.25D0,1D7/ - DATA N0/3,4,5,9,9,9,9,9/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ - SAVE - XSAVE=X - Q2SAVE=QSQ - IF(INIT.NE.0) GOTO 10 -C OPEN(UNIT=1,FILE='MRSR1.DAT',STATUS='OLD') - DO 20 N=1,NX-1 - DO 20 M=1,NQ -C READ(1,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M), -C . F(5,N,M),F(7,N,M),F(6,N,M),F(8,N,M) -C NOTATION: 1=UVAL 2=VAL 3=GLUE 4=USEA 5=CHM 6=STR 7=BTM 8=DSEA - DO 25 I=1,NP - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J)/XX(NTENTH))+XX(NTENTH) - DO 31 I=1,8 - IF(I.EQ.5.OR.I.EQ.7) GOTO 31 - DO 30 K=1,NQ - 30 F(I,J,K)= LOG10(F(I,J,K)/F(I,NTENTH,K))+F(I,NTENTH,K) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,NP - DO 40 M=1,NQ - 40 F(I,NX,M)=ZEROD - INIT=1 - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.XX(NTENTH)) XXX= LOG10(X/XX(NTENTH))+XX(NTENTH) - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - M=0 - 80 M=M+1 - IF(QSQ.GT.QQ(M+1)) GOTO 80 - B=(QSQ-QQ(M))/(QQ(M+1)-QQ(M)) - DO 60 I=1,NP - G(I)= (ONED-A)*(ONED-B)*F(I,N,M) + (ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.5.OR.I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC*10D0**(G(I)-FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) - X=XSAVE - QSQ=Q2SAVE - RETURN - END diff --git a/PDF/spdf/sfmsr2.F b/PDF/spdf/sfmsr2.F deleted file mode 100644 index ed2fa7dc32b..00000000000 --- a/PDF/spdf/sfmsr2.F +++ /dev/null @@ -1,3879 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE SFMSR2(X,QSQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) -C -#include "pdf/impdp.inc" -C - PARAMETER(NX=49,NQ=37,NTENTH=23,NP=8) -#include "pdf/expdp.inc" - + F(NP,NX,NQ+1),QQ(NQ),XX(NX),G(NP),N0(NP) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/ - + .00125, .00705, .95079, .46974, .00369, - + .00000, .26718, .47247, - + .00142, .00716, 2.14763, .54233, .00875, - + .00000, .33163, .54546, - + .00169, .00731, 4.57296, .68101, .02220, - + .00000, .45455, .68470, - + .00188, .00743, 6.93782, .80501, .03889, - + .00000, .56470, .80910, - + .00208, .00755, 9.99880, .95637, .06613, - + .00000, .69982, .96086, - + .00226, .00765, 13.16388, 1.10405, .10105, - + .00000, .83263, 1.10888, - + .00243, .00775, 16.70415, 1.26066, .14838, - + .00000, .97479, 1.26581, - + .00261, .00785, 20.94773, 1.44183, .21831, - + .00000, 1.14126, 1.44730 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ - + .00276, .00794, 25.12284, 1.61086, .30020, - + .00000, 1.29885, 1.61661, - + .00292, .00803, 29.65736, 1.78415, .40243, - + .00000, 1.46295, 1.79016, - + .00304, .00810, 33.51854, 1.92665, .50192, - + .00000, 1.60005, 1.93287, - + .00330, .00825, 42.81261, 2.24710, .77801, - + .00000, 1.91570, 2.25375, - + .00353, .00838, 51.92537, 2.53905, 1.09174, - + .08999, 2.21204, 2.54605, - + .00378, .00853, 63.38321, 2.88537, 1.52589, - + .41407, 2.57229, 2.89276, - + .00405, .00868, 76.77367, 3.27568, 2.06127, - + .88212, 2.98472, 3.28347, - + .00430, .00882, 90.27887, 3.66532, 2.60704, - + 1.33212, 3.39790, 3.67345 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ - + .00455, .00896, 105.25424, 4.10058, 3.20168, - + 1.83209, 3.85713, 4.10905, - + .00476, .00908, 118.72684, 4.49842, 3.72133, - + 2.27950, 4.27335, 4.50716, - + .00502, .00923, 136.23756, 5.02671, 4.37627, - + 2.86165, 4.82088, 5.03578, - + .00525, .00936, 152.93202, 5.54004, 4.97949, - + 3.41592, 5.34804, 5.54939, - + .00546, .00948, 169.34200, 6.05143, 5.55554, - + 3.95946, 5.86956, 6.06102, - + .00574, .00963, 191.32417, 6.74912, 6.31416, - + 4.69155, 6.57705, 6.75903, - + .00600, .00978, 213.35898, 7.45827, 7.06313, - + 5.42769, 7.29290, 7.46846, - + .00624, .00992, 235.33051, 8.17194, 7.80258, - + 6.16303, 8.01117, 8.18239 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ - + .00649, .01006, 258.47083, 8.93081, 8.57918, - + 6.94097, 8.77348, 8.94151, - + .00673, .01020, 282.09943, 9.71395, 9.37422, - + 7.74098, 9.55917, 9.72488, - + .00697, .01033, 305.71927, 10.50036, 10.16848, - + 8.54213, 10.34751, 10.51152, - + .00719, .01045, 328.66223, 11.27234, 10.94581, - + 9.32724, 11.12098, 11.28370, - + .00741, .01058, 352.77954, 12.08749, 11.76498, - + 10.15499, 11.93743, 12.09905, - + .00764, .01070, 377.25537, 12.92173, 12.60230, - + 11.00122, 12.77281, 12.93348, - + .00785, .01082, 401.38583, 13.74898, 13.43195, - + 11.83957, 13.60106, 13.76092, - + .00805, .01094, 424.83652, 14.55918, 14.24410, - + 12.66004, 14.41214, 14.57128 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ - + .00826, .01105, 449.32571, 15.40913, 15.09581, - + 13.52016, 15.26294, 15.42139, - + .00847, .01117, 473.94208, 16.27154, 15.95983, - + 14.39247, 16.12617, 16.28396, - + .00867, .01128, 498.39615, 17.13007, 16.81981, - + 15.26030, 16.98546, 17.14265, - + .00885, .01138, 521.68097, 17.95758, 17.64863, - + 16.09654, 17.81366, 17.97029, - + .00905, .01149, 546.13434, 18.82824, 18.52058, - + 16.97592, 18.68502, 18.84108 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ - + .00256, .00863, .95452, .42831, .00336, - + .00000, .24242, .43084, - + .00281, .00878, 2.05475, .49309, .00788, - + .00000, .29981, .49588, - + .00318, .00901, 4.20982, .61417, .01968, - + .00000, .40699, .61734, - + .00345, .00917, 6.25730, .72060, .03414, - + .00000, .50147, .72403, - + .00373, .00933, 8.85593, .84873, .05749, - + .00000, .61583, .85243, - + .00398, .00948, 11.49813, .97224, .08716, - + .00000, .72693, .97617, - + .00421, .00961, 14.41224, 1.10184, .12706, - + .00000, .84464, 1.10598, - + .00446, .00976, 17.85801, 1.25013, .18553, - + .00000, .98106, 1.25449 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ - + .00468, .00989, 21.20776, 1.38713, .25351, - + .00000, 1.10900, 1.39167, - + .00490, .01001, 24.80883, 1.52637, .33781, - + .00000, 1.24116, 1.53109, - + .00507, .01011, 27.84710, 1.63994, .41938, - + .00000, 1.35075, 1.64480, - + .00543, .01031, 35.07557, 1.89268, .64387, - + .00000, 1.60068, 1.89783, - + .00575, .01049, 42.06365, 2.11998, .89634, - + .07078, 1.83260, 2.12536, - + .00610, .01070, 50.73584, 2.38651, 1.24207, - + .32396, 2.11155, 2.39216, - + .00647, .01090, 60.73619, 2.68368, 1.66341, - + .68658, 2.42757, 2.68958, - + .00681, .01110, 70.69849, 2.97774, 2.08788, - + 1.03150, 2.74124, 2.98388 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ - + .00716, .01129, 81.62113, 3.30387, 2.54501, - + 1.41133, 3.08705, 3.31024, - + .00745, .01145, 91.34998, 3.60015, 2.94026, - + 1.74846, 3.39824, 3.60670, - + .00780, .01165, 103.86962, 3.99115, 3.43317, - + 2.18360, 3.80472, 3.99793, - + .00812, .01183, 115.69137, 4.36874, 3.88244, - + 2.59465, 4.19334, 4.37570, - + .00841, .01199, 127.21683, 4.74281, 4.30772, - + 2.99497, 4.57544, 4.74995, - + .00878, .01219, 142.51237, 5.24984, 4.86265, - + 3.53012, 5.09019, 5.25719, - + .00914, .01239, 157.70033, 5.76163, 5.40554, - + 4.06405, 5.60723, 5.76917, - + .00947, .01257, 172.71829, 6.27337, 5.93732, - + 4.59366, 6.12256, 6.28108 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ - + .00981, .01276, 188.40701, 6.81408, 6.49177, - + 5.15019, 6.66596, 6.82197, - + .01014, .01294, 204.29691, 7.36855, 7.05545, - + 5.71871, 7.22244, 7.37660, - + .01046, .01311, 220.07115, 7.92219, 7.61517, - + 6.28469, 7.77758, 7.93039, - + .01076, .01328, 235.28136, 8.46253, 8.15967, - + 6.83606, 8.31911, 8.47088, - + .01106, .01344, 251.17184, 9.03018, 8.73047, - + 7.41432, 8.88779, 9.03867, - + .01137, .01361, 267.19235, 9.60806, 9.31079, - + 8.00232, 9.46659, 9.61668, - + .01165, .01377, 282.89365, 10.17831, 9.88295, - + 8.58193, 10.03763, 10.18705, - + .01193, .01392, 298.06366, 10.73418, 10.44039, - + 9.14647, 10.59421, 10.74304 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ - + .01221, .01407, 313.82397, 11.31481, 11.02245, - + 9.73571, 11.17553, 11.32378, - + .01249, .01422, 329.57388, 11.90121, 11.61016, - + 10.33048, 11.76259, 11.91030, - + .01275, .01436, 345.15158, 12.48276, 12.19290, - + 10.91989, 12.34476, 12.49195, - + .01301, .01450, 359.89584, 13.04074, 12.75196, - + 11.48525, 12.90330, 13.05002, - + .01327, .01464, 375.32080, 13.62583, 13.33812, - + 12.07771, 13.48897, 13.63522 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ - + .00452, .01057, .95880, .39023, .00306, - + .00000, .21994, .39265, - + .00487, .01079, 1.96652, .44798, .00709, - + .00000, .27098, .45056, - + .00540, .01110, 3.87597, .55351, .01743, - + .00000, .36429, .55633, - + .00578, .01132, 5.64359, .64463, .02994, - + .00000, .44513, .64762, - + .00619, .01155, 7.84315, .75278, .04993, - + .00000, .54164, .75594, - + .00653, .01175, 10.04190, .85573, .07509, - + .00000, .63427, .85903, - + .00686, .01194, 12.43269, .96260, .10865, - + .00000, .73140, .96603, - + .00722, .01214, 15.22083, 1.08350, .15743, - + .00000, .84276, 1.08707 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ - + .00752, .01232, 17.89850, 1.19408, .21374, - + .00000, .94622, 1.19776, - + .00782, .01249, 20.74739, 1.30547, .28311, - + .00000, 1.05221, 1.30926, - + .00806, .01262, 23.12864, 1.39557, .34983, - + .00000, 1.13944, 1.39945, - + .00857, .01290, 28.72740, 1.59392, .53192, - + .00000, 1.33644, 1.59799, - + .00901, .01315, 34.06276, 1.76994, .73461, - + .05547, 1.51708, 1.77416, - + .00950, .01342, 40.59650, 1.97390, 1.00924, - + .25253, 1.73201, 1.97828, - + .01001, .01371, 48.02902, 2.19882, 1.33995, - + .53245, 1.97292, 2.20337, - + .01048, .01396, 55.34068, 2.41945, 1.66913, - + .79584, 2.20983, 2.42415 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ - + .01096, .01423, 63.26545, 2.66241, 2.01948, - + 1.08327, 2.46889, 2.66725, - + .01136, .01444, 70.25235, 2.88180, 2.31910, - + 1.33630, 2.70036, 2.88676, - + .01185, .01471, 79.15251, 3.16960, 2.68871, - + 1.66025, 3.00057, 3.17470, - + .01228, .01495, 87.47433, 3.44584, 3.02199, - + 1.96381, 3.28558, 3.45106, - + .01268, .01516, 95.52023, 3.71801, 3.33462, - + 2.25742, 3.56409, 3.72334, - + .01319, .01544, 106.09579, 4.08449, 3.73870, - + 2.64692, 3.93664, 4.08996, - + .01368, .01570, 116.49593, 4.45185, 4.13032, - + 3.03246, 4.30810, 4.45745, - + .01413, .01594, 126.69185, 4.81681, 4.51082, - + 3.41217, 4.67586, 4.82252 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ - + .01459, .01619, 137.25456, 5.19997, 4.90462, - + 3.80848, 5.06112, 5.20580, - + .01504, .01643, 147.86296, 5.59035, 5.30211, - + 4.21058, 5.45305, 5.59628, - + .01547, .01666, 158.32004, 5.97791, 5.69439, - + 4.60849, 5.84180, 5.98395, - + .01588, .01688, 168.32674, 6.35395, 6.07366, - + 4.99379, 6.21877, 6.36008, - + .01629, .01709, 178.71536, 6.74696, 6.46913, - + 5.39575, 6.61259, 6.75318, - + .01670, .01731, 189.11736, 7.14488, 6.86898, - + 5.80221, 7.01124, 7.15120, - + .01709, .01752, 199.25040, 7.53563, 7.26125, - + 6.20086, 7.40262, 7.54202, - + .01746, .01771, 208.98117, 7.91466, 7.64155, - + 6.58724, 7.78222, 7.92114 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ - + .01784, .01791, 219.03743, 8.30887, 8.03692, - + 6.98872, 8.17698, 8.31542, - + .01821, .01811, 229.02512, 8.70510, 8.43421, - + 7.39202, 8.57374, 8.71172, - + .01857, .01830, 238.86061, 9.09655, 8.82664, - + 7.79013, 8.96569, 9.10325, - + .01891, .01848, 248.11046, 9.47035, 9.20133, - + 8.17017, 9.33994, 9.47712, - + .01926, .01866, 257.75046, 9.86099, 9.59285, - + 8.56705, 9.73104, 9.86783 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ - + .00607, .01191, .96177, .36937, .00289, - + .00000, .20776, .37179, - + .00651, .01217, 1.91719, .42332, .00667, - + .00000, .25540, .42587, - + .00716, .01254, 3.69346, .52060, .01624, - + .00000, .34135, .52332, - + .00763, .01281, 5.31296, .60370, .02772, - + .00000, .41505, .60654, - + .00812, .01309, 7.30488, .70148, .04595, - + .00000, .50231, .70445, - + .00855, .01333, 9.27617, .79386, .06878, - + .00000, .58545, .79694, - + .00895, .01356, 11.40167, .88914, .09907, - + .00000, .67208, .89231, - + .00939, .01380, 13.86018, .99620, .14290, - + .00000, .77077, .99948 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ - + .00976, .01401, 16.20429, 1.09353, .19326, - + .00000, .86195, 1.09690, - + .01012, .01421, 18.68305, 1.19105, .25508, - + .00000, .95490, 1.19451, - + .01041, .01437, 20.74340, 1.26954, .31432, - + .00000, 1.03105, 1.27306, - + .01103, .01471, 25.55387, 1.44122, .47523, - + .00000, 1.20203, 1.44487, - + .01156, .01501, 30.09902, 1.59234, .65324, - + .04800, 1.35770, 1.59611, - + .01216, .01533, 35.62123, 1.76621, .89292, - + .21786, 1.54173, 1.77010, - + .01278, .01567, 41.85240, 1.95669, 1.17953, - + .45797, 1.74671, 1.96071, - + .01335, .01598, 47.93647, 2.14258, 1.46278, - + .68245, 1.94718, 2.14672 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ - + .01393, .01629, 54.48560, 2.34645, 1.76212, - + .92613, 2.16535, 2.35069, - + .01441, .01655, 60.22464, 2.52991, 2.01645, - + 1.13959, 2.35947, 2.53425, - + .01500, .01687, 67.49087, 2.76975, 2.32814, - + 1.41159, 2.61020, 2.77419, - + .01552, .01715, 74.24516, 2.99913, 2.60738, - + 1.66525, 2.84725, 3.00367, - + .01601, .01740, 80.74314, 3.22443, 2.86789, - + 1.90959, 3.07807, 3.22905, - + .01662, .01773, 89.23483, 3.52663, 3.20269, - + 2.23227, 3.38553, 3.53136, - + .01720, .01804, 97.53741, 3.82832, 3.52533, - + 2.55018, 3.69076, 3.83314, - + .01775, .01832, 105.63536, 4.12689, 3.83731, - + 2.86196, 3.99176, 4.13181 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ - + .01830, .01861, 113.98271, 4.43918, 4.15874, - + 3.18604, 4.30585, 4.44418, - + .01884, .01890, 122.32356, 4.75612, 4.48180, - + 3.51354, 4.62415, 4.76121, - + .01935, .01917, 130.51100, 5.06972, 4.79946, - + 3.83648, 4.93877, 5.07489, - + .01984, .01942, 138.30943, 5.37293, 5.10546, - + 4.14807, 5.24278, 5.37817, - + .02033, .01968, 146.37512, 5.68885, 5.42352, - + 4.47209, 5.55941, 5.69417, - + .02082, .01993, 154.41780, 6.00769, 5.74404, - + 4.79866, 5.87889, 6.01308, - + .02128, .02017, 162.22395, 6.31985, 6.05755, - + 5.11800, 6.19161, 6.32531, - + .02172, .02040, 169.69249, 6.62180, 6.36061, - + 5.42661, 6.49406, 6.62732 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ - + .02217, .02063, 177.38649, 6.93502, 6.67486, - + 5.74643, 6.80777, 6.94061, - + .02261, .02086, 184.99924, 7.24893, 6.98973, - + 6.06677, 7.12214, 7.25458, - + .02304, .02108, 192.47658, 7.55838, 7.30004, - + 6.38225, 7.43203, 7.56409, - + .02344, .02129, 199.48074, 7.85301, 7.59546, - + 6.68255, 7.72706, 7.85878, - + .02386, .02151, 206.76364, 8.16031, 7.90355, - + 6.99550, 8.03476, 8.16613 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ - + .00741, .01297, .96419, .35516, .00278, - + .00000, .19953, .35762, - + .00792, .01326, 1.88330, .40655, .00638, - + .00000, .24488, .40912, - + .00867, .01369, 3.56944, .49831, .01544, - + .00000, .32593, .50102, - + .00921, .01400, 5.09022, .57609, .02624, - + .00000, .39490, .57890, - + .00978, .01432, 6.94525, .66705, .04331, - + .00000, .47607, .66996, - + .01027, .01459, 8.76792, .75252, .06460, - + .00000, .55300, .75552, - + .01074, .01485, 10.72138, .84025, .09275, - + .00000, .63281, .84333, - + .01124, .01512, 12.96762, .93836, .13335, - + .00000, .72330, .94152 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ - + .01167, .01536, 15.09830, 1.02715, .17986, - + .00000, .80657, 1.03039, - + .01209, .01559, 17.34150, 1.11579, .23678, - + .00000, .89115, 1.11910, - + .01242, .01577, 19.19858, 1.18686, .29120, - + .00000, .96022, 1.19022, - + .01313, .01616, 23.51276, 1.34160, .43848, - + .00000, 1.11466, 1.34507, - + .01374, .01649, 27.56405, 1.47701, .60072, - + .04328, 1.25455, 1.48058, - + .01443, .01686, 32.45835, 1.63201, .81818, - + .19599, 1.41916, 1.63568, - + .01514, .01724, 37.94894, 1.80102, 1.07690, - + .41111, 1.60168, 1.80480, - + .01580, .01759, 43.28111, 1.96536, 1.33129, - + .61132, 1.77950, 1.96924 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ - + .01646, .01794, 48.99258, 2.14507, 1.59877, - + .82782, 1.97234, 2.14904, - + .01701, .01824, 53.97569, 2.30641, 1.82496, - + 1.01681, 2.14343, 2.31045, - + .01768, .01859, 60.25713, 2.51680, 2.10085, - + 1.25680, 2.36375, 2.52093, - + .01828, .01890, 66.07139, 2.71753, 2.34687, - + 1.47985, 2.57145, 2.72175, - + .01883, .01919, 71.64510, 2.91424, 2.57548, - + 1.69408, 2.77316, 2.91853, - + .01952, .01956, 78.89846, 3.17739, 2.86807, - + 1.97608, 3.04106, 3.18177, - + .02018, .01991, 85.96050, 3.43931, 3.14887, - + 2.25297, 3.30619, 3.44377, - + .02081, .02023, 92.82318, 3.69783, 3.41945, - + 2.52370, 3.56690, 3.70237 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ - + .02143, .02055, 99.87158, 3.96750, 3.69734, - + 2.80430, 3.83819, 3.97212, - + .02204, .02087, 106.88850, 4.24043, 3.97577, - + 3.08705, 4.11234, 4.24513, - + .02263, .02118, 113.75548, 4.50984, 4.24883, - + 3.36514, 4.38268, 4.51460, - + .02318, .02146, 120.27418, 4.76965, 4.51117, - + 3.63276, 4.64322, 4.77448, - + .02374, .02175, 126.99796, 5.03977, 4.78322, - + 3.91043, 4.91398, 5.04466, - + .02429, .02203, 133.68233, 5.31175, 5.05673, - + 4.18963, 5.18654, 5.31671, - + .02481, .02230, 140.15280, 5.57747, 5.32368, - + 4.46205, 5.45277, 5.58249, - + .02531, .02256, 146.32683, 5.83397, 5.58120, - + 4.72476, 5.70973, 5.83904 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ - + .02582, .02282, 152.67271, 6.09954, 5.84772, - + 4.99650, 5.97574, 6.10467, - + .02632, .02307, 158.93408, 6.36515, 6.11421, - + 5.26811, 6.24178, 6.37034, - + .02680, .02332, 165.07289, 6.62656, 6.37642, - + 5.53516, 6.50360, 6.63180, - + .02726, .02355, 170.80612, 6.87494, 6.62554, - + 5.78883, 6.75234, 6.88022, - + .02772, .02379, 176.75813, 7.13363, 6.88495, - + 6.05280, 7.01140, 7.13896 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ - + .00859, .01385, .96633, .34445, .00270, - + .00000, .19337, .34697, - + .00917, .01418, 1.85770, .39393, .00617, - + .00000, .23702, .39654, - + .01001, .01465, 3.47630, .48159, .01484, - + .00000, .31443, .48433, - + .01062, .01499, 4.92393, .55544, .02514, - + .00000, .37991, .55827, - + .01126, .01534, 6.67833, .64139, .04136, - + .00000, .45661, .64431, - + .01181, .01565, 8.39248, .72181, .06152, - + .00000, .52901, .72480, - + .01233, .01593, 10.22099, .80405, .08811, - + .00000, .60385, .80711, - + .01289, .01624, 12.31391, .89566, .12635, - + .00000, .68840, .89880 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ - + .01337, .01650, 14.29113, .97830, .17005, - + .00000, .76595, .98150, - + .01384, .01675, 16.36561, 1.06054, .22342, - + .00000, .84451, 1.06380, - + .01421, .01695, 18.07762, 1.12629, .27435, - + .00000, .90850, 1.12960, - + .01500, .01738, 22.03923, 1.26892, .41181, - + .00000, 1.05110, 1.27232, - + .01568, .01774, 25.74158, 1.39316, .56270, - + .03991, 1.17975, 1.39665, - + .01644, .01815, 30.19447, 1.53479, .76426, - + .18044, 1.33059, 1.53838, - + .01724, .01857, 35.16710, 1.68867, 1.00312, - + .37785, 1.49725, 1.69234, - + .01796, .01895, 39.97584, 1.83786, 1.23703, - + .56093, 1.65911, 1.84162 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ - + .01870, .01934, 45.10676, 2.00064, 1.48201, - + .75831, 1.83420, 2.00449, - + .01931, .01966, 49.56796, 2.14652, 1.68840, - + .93015, 1.98917, 2.15043, - + .02005, .02005, 55.17208, 2.33639, 1.93921, - + 1.14776, 2.18828, 2.34039, - + .02071, .02040, 60.34218, 2.51721, 2.16204, - + 1.34949, 2.37556, 2.52127, - + .02132, .02071, 65.28451, 2.69409, 2.36845, - + 1.54280, 2.55708, 2.69822, - + .02209, .02111, 71.69499, 2.93021, 2.63178, - + 1.79659, 2.79759, 2.93442, - + .02282, .02149, 77.91586, 3.16469, 2.88368, - + 2.04515, 3.03504, 3.16899, - + .02351, .02185, 83.94353, 3.39565, 3.12574, - + 2.28760, 3.26801, 3.40001 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ - + .02420, .02220, 90.11655, 3.63605, 3.37371, - + 2.53832, 3.50992, 3.64049, - + .02488, .02255, 96.24416, 3.87885, 3.62157, - + 2.79038, 3.75384, 3.88335, - + .02552, .02288, 102.22656, 4.11804, 3.86414, - + 3.03780, 3.99390, 4.12261, - + .02613, .02319, 107.89021, 4.34827, 4.09669, - + 3.27542, 4.22480, 4.35290, - + .02674, .02351, 113.71963, 4.58721, 4.33744, - + 3.52152, 4.46435, 4.59191, - + .02735, .02382, 119.50094, 4.82737, 4.57902, - + 3.76853, 4.70505, 4.83212, - + .02793, .02411, 125.08563, 5.06162, 4.81441, - + 4.00912, 4.93977, 5.06642, - + .02848, .02439, 130.40289, 5.28735, 5.04111, - + 4.24076, 5.16593, 5.29221 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ - + .02903, .02467, 135.85851, 5.52074, 5.27539, - + 4.47999, 5.39974, 5.52565, - + .02958, .02495, 141.22934, 5.75379, 5.50926, - + 4.71873, 5.63318, 5.75875, - + .03011, .02522, 146.48755, 5.98286, 5.73909, - + 4.95315, 5.86263, 5.98787, - + .03061, .02547, 151.38669, 6.20014, 5.95706, - + 5.17545, 6.08026, 6.20519, - + .03112, .02573, 156.46631, 6.42619, 6.18381, - + 5.40652, 6.30666, 6.43130 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ - + .01334, .01705, .97504, .31289, .00246, - + .00000, .17545, .31577, - + .01417, .01749, 1.78256, .35677, .00555, - + .00000, .21412, .35972, - + .01537, .01814, 3.20362, .43263, .01313, - + .00000, .28109, .43569, - + .01624, .01860, 4.44148, .49530, .02200, - + .00000, .33667, .49843, - + .01715, .01908, 5.91135, .56710, .03579, - + .00000, .40079, .57031, - + .01792, .01949, 7.32228, .63338, .05278, - + .00000, .46052, .63665, - + .01867, .01988, 8.80512, .70037, .07499, - + .00000, .52156, .70370, - + .01945, .02029, 10.47779, .77408, .10666, - + .00000, .58974, .77747 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ - + .02013, .02064, 12.03785, .83984, .14258, - + .00000, .65163, .84329, - + .02079, .02098, 13.65697, .90466, .18615, - + .00000, .71379, .90816, - + .02130, .02125, 14.97987, .95601, .22747, - + .00000, .76399, .95955, - + .02241, .02183, 18.00327, 1.06608, .33806, - + .00000, .87474, 1.06971, - + .02336, .02232, 20.78594, 1.16055, .45817, - + .03090, .97337, 1.16425, - + .02442, .02286, 24.08571, 1.26685, .61685, - + .13896, 1.08768, 1.27063, - + .02553, .02343, 27.71745, 1.38099, .80257, - + .28949, 1.21258, 1.38485, - + .02653, .02394, 31.18248, 1.49067, .98215, - + .42753, 1.33273, 1.49462 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ - + .02754, .02446, 34.83428, 1.60954, 1.16786, - + .57495, 1.46161, 1.61356, - + .02839, .02489, 37.97470, 1.71548, 1.32247, - + .70221, 1.57488, 1.71956, - + .02941, .02540, 41.87618, 1.85257, 1.50814, - + .86200, 1.71935, 1.85673, - + .03031, .02586, 45.43747, 1.98236, 1.67116, - + 1.00889, 1.85427, 1.98659, - + .03115, .02628, 48.81157, 2.10866, 1.82066, - + 1.14863, 1.98424, 2.11295, - + .03220, .02681, 53.14157, 2.27614, 2.00938, - + 1.33063, 2.15518, 2.28051, - + .03320, .02731, 57.29905, 2.44128, 2.18806, - + 1.50740, 2.32264, 2.44573, - + .03413, .02778, 61.29009, 2.60287, 2.35824, - + 1.67854, 2.48582, 2.60738 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ - + .03507, .02825, 65.33988, 2.76994, 2.53118, - + 1.85424, 2.65408, 2.77452, - + .03598, .02871, 69.32187, 2.93752, 2.70270, - + 2.02961, 2.82256, 2.94217, - + .03686, .02914, 73.18002, 3.10164, 2.86946, - + 2.20068, 2.98738, 3.10635, - + .03768, .02955, 76.80062, 3.25860, 3.02827, - + 2.36391, 3.14490, 3.26338, - + .03850, .02996, 80.50179, 3.42063, 3.19174, - + 2.53201, 3.30742, 3.42547, - + .03932, .03036, 84.14366, 3.58254, 3.35480, - + 2.69974, 3.46978, 3.58743, - + .04010, .03075, 87.63791, 3.73963, 3.51284, - + 2.86223, 3.62726, 3.74458, - + .04083, .03111, 90.94166, 3.89022, 3.66424, - + 3.01785, 3.77822, 3.89522 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ - + .04158, .03148, 94.31164, 4.04521, 3.81998, - + 3.17782, 3.93356, 4.05027, - + .04231, .03184, 97.60506, 4.19915, 3.97462, - + 3.33661, 4.08784, 4.20426, - + .04302, .03218, 100.81474, 4.34987, 4.12600, - + 3.49189, 4.23889, 4.35504, - + .04368, .03251, 103.78115, 4.49207, 4.26879, - + 3.63837, 4.38138, 4.49728, - + .04436, .03285, 106.84489, 4.63950, 4.41681, - + 3.79007, 4.52911, 4.64476 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ - + .02023, .02111, .98940, .28377, .00224, - + .00000, .15923, .28734, - + .02142, .02171, 1.71603, .32247, .00499, - + .00000, .19336, .32614, - + .02314, .02259, 2.95579, .38772, .01160, - + .00000, .25101, .39153, - + .02437, .02321, 4.00682, .44054, .01921, - + .00000, .29790, .44445, - + .02566, .02386, 5.22888, .50008, .03089, - + .00000, .35114, .50409, - + .02675, .02441, 6.38059, .55425, .04513, - + .00000, .40005, .55835, - + .02780, .02494, 7.57247, .60833, .06359, - + .00000, .44946, .61251, - + .02890, .02549, 8.89668, .66708, .08968, - + .00000, .50396, .67135 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ - + .02986, .02597, 10.11535, .71889, .11903, - + .00000, .55292, .72323, - + .03078, .02643, 11.36596, .76945, .15439, - + .00000, .60164, .77386, - + .03150, .02679, 12.37711, .80910, .18771, - + .00000, .64065, .81357, - + .03305, .02756, 14.65833, .89305, .27612, - + .00000, .72577, .89763, - + .03437, .02822, 16.72455, .96396, .37109, - + .02371, .80057, .96865, - + .03584, .02895, 19.13870, 1.04264, .49516, - + .10611, .88621, 1.04744, - + .03737, .02970, 21.75547, 1.12609, .63852, - + .21989, .97871, 1.13101, - + .03875, .03038, 24.21696, 1.20557, .77532, - + .32302, 1.06681, 1.21060 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ - + .04015, .03107, 26.77758, 1.29113, .91493, - + .43211, 1.16051, 1.29626, - + .04130, .03164, 28.95419, 1.36697, 1.02973, - + .52543, 1.24226, 1.37219, - + .04270, .03232, 31.62656, 1.46457, 1.16587, - + .64159, 1.34577, 1.46990, - + .04394, .03293, 34.03856, 1.55645, 1.28389, - + .74746, 1.44174, 1.56188, - + .04507, .03348, 36.30234, 1.64540, 1.39100, - + .84743, 1.53359, 1.65091, - + .04651, .03418, 39.17430, 1.76254, 1.52468, - + .97654, 1.65349, 1.76816, - + .04786, .03484, 41.90063, 1.87721, 1.64986, - + 1.10085, 1.77002, 1.88293, - + .04912, .03545, 44.49200, 1.98865, 1.76798, - + 1.22029, 1.88275, 1.99447 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ - + .05038, .03606, 47.09552, 2.10308, 1.88698, - + 1.34198, 1.99816, 2.10900, - + .05162, .03666, 49.62906, 2.21704, 2.00403, - + 1.46254, 2.11287, 2.22305, - + .05279, .03723, 52.06407, 2.32797, 2.11706, - + 1.57937, 2.22440, 2.33407, - + .05389, .03776, 54.32705, 2.43334, 2.22393, - + 1.69008, 2.33025, 2.43952, - + .05499, .03829, 56.62348, 2.54151, 2.33330, - + 1.80344, 2.43886, 2.54778, - + .05608, .03882, 58.86366, 2.64893, 2.44170, - + 1.91584, 2.54668, 2.65528, - + .05712, .03931, 60.99723, 2.75258, 2.54617, - + 2.02412, 2.65070, 2.75901, - + .05810, .03978, 62.99882, 2.85140, 2.64570, - + 2.12725, 2.74985, 2.85790 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ - + .05909, .04026, 65.02779, 2.95261, 2.74758, - + 2.23274, 2.85139, 2.95919, - + .06006, .04072, 66.99420, 3.05257, 2.84817, - + 2.33686, 2.95166, 3.05923, - + .06099, .04117, 68.90170, 3.15006, 2.94624, - + 2.43826, 3.04945, 3.15679, - + .06187, .04159, 70.64791, 3.24148, 3.03820, - + 2.53335, 3.14114, 3.24827, - + .06277, .04202, 72.44429, 3.33593, 3.13320, - + 2.63148, 3.23588, 3.34280 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ - + .02565, .02404, 1.00257, .26786, .00212, - + .00000, .15049, .27201, - + .02711, .02476, 1.68280, .30368, .00469, - + .00000, .18210, .30796, - + .02922, .02581, 2.82254, .36317, .01078, - + .00000, .23472, .36763, - + .03074, .02655, 3.77298, .41072, .01771, - + .00000, .27699, .41532, - + .03231, .02733, 4.86403, .46380, .02829, - + .00000, .32452, .46854, - + .03365, .02799, 5.88084, .51168, .04108, - + .00000, .36783, .51654, - + .03493, .02861, 6.92325, .55912, .05759, - + .00000, .41125, .56409, - + .03627, .02927, 8.07072, .61025, .08078, - + .00000, .45880, .61533 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ - + .03743, .02984, 9.11812, .65502, .10676, - + .00000, .50124, .66020, - + .03855, .03038, 10.18559, .69844, .13792, - + .00000, .54323, .70372, - + .03943, .03081, 11.04310, .73228, .16718, - + .00000, .57668, .73763, - + .04130, .03172, 12.96245, .80337, .24439, - + .00000, .64917, .80888, - + .04290, .03250, 14.68385, .86282, .32679, - + .02020, .71234, .86847, - + .04467, .03336, 16.67682, .92821, .43370, - + .09011, .78414, .93401, - + .04651, .03425, 18.81679, .99704, .55628, - + .18615, .86113, 1.00300, - + .04817, .03506, 20.81216, 1.06224, .67232, - + .27258, .93402, 1.06833 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ - + .04985, .03587, 22.87119, 1.13215, .78980, - + .36346, 1.01115, 1.13839, - + .05123, .03654, 24.60882, 1.19394, .88566, - + .44081, 1.07815, 1.20030, - + .05291, .03734, 26.72650, 1.27320, .99845, - + .53656, 1.16260, 1.27970, - + .05438, .03805, 28.62445, 1.34757, 1.09548, - + .62336, 1.24056, 1.35419, - + .05574, .03870, 30.39537, 1.41935, 1.18294, - + .70497, 1.31489, 1.42609, - + .05745, .03952, 32.62574, 1.51349, 1.29135, - + .80981, 1.41147, 1.52037, - + .05905, .04029, 34.72786, 1.60525, 1.39216, - + .91023, 1.50487, 1.61226, - + .06055, .04100, 36.71349, 1.69405, 1.48673, - + 1.00625, 1.59484, 1.70119 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ - + .06205, .04172, 38.69590, 1.78486, 1.58151, - + 1.10365, 1.68654, 1.79212, - + .06351, .04242, 40.61222, 1.87488, 1.67424, - + 1.19968, 1.77727, 1.88227, - + .06489, .04307, 42.44470, 1.96219, 1.76342, - + 1.29237, 1.86514, 1.96970, - + .06619, .04369, 44.13695, 2.04478, 1.84735, - + 1.37985, 1.94819, 2.05240, - + .06749, .04431, 45.84626, 2.12927, 1.93294, - + 1.46909, 2.03311, 2.13699, - + .06877, .04492, 47.50433, 2.21285, 2.01744, - + 1.55724, 2.11709, 2.22068, - + .06999, .04549, 49.07606, 2.29323, 2.09859, - + 1.64187, 2.19783, 2.30116, - + .07114, .04604, 50.54305, 2.36960, 2.17563, - + 1.72218, 2.27452, 2.37762 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ - + .07230, .04659, 52.02417, 2.44758, 2.25426, - + 1.80409, 2.35283, 2.45571, - + .07344, .04713, 53.45157, 2.52433, 2.33161, - + 1.88466, 2.42989, 2.53255, - + .07453, .04764, 54.83226, 2.59899, 2.40685, - + 1.96292, 2.50486, 2.60731, - + .07556, .04813, 56.08799, 2.66875, 2.47712, - + 2.03604, 2.57488, 2.67714, - + .07661, .04862, 57.37670, 2.74066, 2.54957, - + 2.11133, 2.64708, 2.74915 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ - + .03033, .02646, 1.01535, .25710, .00204, - + .00000, .14459, .26175, - + .03201, .02728, 1.66276, .29092, .00449, - + .00000, .17447, .29572, - + .03445, .02846, 2.73352, .34646, .01022, - + .00000, .22365, .35150, - + .03620, .02931, 3.61567, .39047, .01670, - + .00000, .26282, .39567, - + .03801, .03019, 4.61887, .43924, .02653, - + .00000, .30655, .44461, - + .03955, .03093, 5.54616, .48295, .03837, - + .00000, .34614, .48847, - + .04101, .03164, 6.49024, .52603, .05357, - + .00000, .38564, .53168, - + .04255, .03239, 7.52240, .57218, .07486, - + .00000, .42866, .57798 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ - + .04388, .03303, 8.45889, .61239, .09862, - + .00000, .46686, .61830, - + .04516, .03365, 9.40846, .65119, .12703, - + .00000, .50452, .65723, - + .04617, .03413, 10.16764, .68131, .15363, - + .00000, .53438, .68743, - + .04831, .03516, 11.85697, .74419, .22356, - + .00000, .59881, .75051, - + .05013, .03604, 13.36106, .79638, .29783, - + .01797, .65460, .80287, - + .05216, .03701, 15.09067, .85342, .39373, - + .07996, .71767, .86009, - + .05425, .03801, 16.93489, .91311, .50306, - + .16481, .78494, .91997, - + .05614, .03891, 18.64328, .96943, .60595, - + .24076, .84834, .97646 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ - + .05804, .03982, 20.39558, 1.02966, .70950, - + .32030, .91519, 1.03687, - + .05961, .04057, 21.86639, 1.08278, .79352, - + .38772, .97307, 1.09013, - + .06150, .04147, 23.64895, 1.15076, .89181, - + .47085, 1.04579, 1.15828, - + .06317, .04226, 25.23816, 1.21440, .97587, - + .54593, 1.11270, 1.22207, - + .06470, .04299, 26.71450, 1.27568, 1.05128, - + .61627, 1.17633, 1.28349, - + .06663, .04390, 28.56362, 1.35583, 1.14424, - + .70631, 1.25870, 1.36381, - + .06844, .04476, 30.29696, 1.43369, 1.23024, - + .79221, 1.33810, 1.44183, - + .07012, .04556, 31.92654, 1.50882, 1.31058, - + .87406, 1.41431, 1.51712 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ - + .07181, .04635, 33.54572, 1.58541, 1.39076, - + .95680, 1.49175, 1.59386, - + .07344, .04713, 35.10294, 1.66110, 1.46892, - + 1.03811, 1.56811, 1.66969, - + .07500, .04786, 36.58636, 1.73429, 1.54384, - + 1.11636, 1.64185, 1.74302, - + .07645, .04854, 37.94950, 1.80331, 1.61412, - + 1.18997, 1.71133, 1.81217, - + .07791, .04923, 39.32158, 1.87374, 1.68560, - + 1.26488, 1.78219, 1.88273, - + .07934, .04990, 40.64670, 1.94322, 1.75595, - + 1.33865, 1.85206, 1.95233, - + .08070, .05054, 41.89826, 2.00986, 1.82334, - + 1.40929, 1.91906, 2.01909, - + .08198, .05114, 43.06174, 2.07301, 1.88716, - + 1.47617, 1.98255, 2.08236 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ - + .08327, .05175, 44.23286, 2.13736, 1.95214, - + 1.54422, 2.04723, 2.14683, - + .08455, .05234, 45.35651, 2.20052, 2.01590, - + 1.61097, 2.11071, 2.21009, - + .08576, .05291, 46.44109, 2.26185, 2.07780, - + 1.67570, 2.17235, 2.27154, - + .08691, .05344, 47.42225, 2.31899, 2.13545, - + 1.73601, 2.22976, 2.32877, - + .08807, .05399, 48.42741, 2.37780, 2.19479, - + 1.79800, 2.28886, 2.38769 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ - + .03463, .02864, 1.03201, .24930, .00198, - + .00000, .14014, .25426, - + .03651, .02955, 1.65330, .28152, .00432, - + .00000, .16862, .28666, - + .03923, .03087, 2.67025, .33401, .00978, - + .00000, .21511, .33940, - + .04118, .03181, 3.49964, .37531, .01591, - + .00000, .25189, .38087, - + .04319, .03278, 4.43564, .42081, .02517, - + .00000, .29273, .42657, - + .04490, .03360, 5.29501, .46140, .03628, - + .00000, .32953, .46731, - + .04652, .03439, 6.16500, .50121, .05049, - + .00000, .36608, .50728, - + .04823, .03521, 7.11089, .54368, .07034, - + .00000, .40572, .54990 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ - + .04970, .03592, 7.96486, .58052, .09242, - + .00000, .44079, .58687, - + .05112, .03660, 8.82712, .61593, .11876, - + .00000, .47524, .62242, - + .05223, .03713, 9.51381, .64332, .14338, - + .00000, .50247, .64990, - + .05459, .03826, 11.03452, .70022, .20789, - + .00000, .56099, .70703, - + .05660, .03923, 12.38035, .74717, .27614, - + .01634, .61141, .75415, - + .05883, .04029, 13.91933, .79818, .36391, - + .07258, .66815, .80537, - + .06114, .04139, 15.55080, .85133, .46352, - + .14930, .72841, .85872, - + .06321, .04238, 17.05397, .90130, .55683, - + .21771, .78500, .90889 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ - + .06530, .04337, 18.58807, .95463, .65028, - + .28908, .84448, .96241, - + .06702, .04419, 19.86990, 1.00158, .72576, - + .34938, .89585, 1.00951, - + .06909, .04518, 21.41628, 1.06155, .81364, - + .42350, .96021, 1.06967, - + .07092, .04604, 22.78886, 1.11759, .88844, - + .49023, 1.01928, 1.12588, - + .07259, .04683, 24.05931, 1.17147, .95526, - + .55258, 1.07532, 1.17990, - + .07470, .04783, 25.64304, 1.24174, 1.03728, - + .63213, 1.14767, 1.25036, - + .07667, .04876, 27.12077, 1.30983, 1.11283, - + .70779, 1.21719, 1.31863, - + .07850, .04962, 28.50467, 1.37538, 1.18316, - + .77968, 1.28376, 1.38434 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ - + .08034, .05048, 29.87441, 1.44202, 1.25312, - + .85214, 1.35121, 1.45115, - + .08212, .05132, 31.18591, 1.50770, 1.32109, - + .92315, 1.41753, 1.51698, - + .08380, .05211, 32.43123, 1.57107, 1.38608, - + .99132, 1.48143, 1.58051, - + .08538, .05285, 33.57062, 1.63068, 1.44688, - + 1.05529, 1.54149, 1.64026, - + .08696, .05359, 34.71413, 1.69138, 1.50857, - + 1.12025, 1.60261, 1.70110, - + .08851, .05432, 35.81441, 1.75110, 1.56914, - + 1.18406, 1.66272, 1.76096, - + .08998, .05501, 36.85028, 1.80827, 1.62704, - + 1.24504, 1.72025, 1.81826, - + .09137, .05565, 37.80986, 1.86233, 1.68174, - + 1.30265, 1.77464, 1.87244 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ - + .09277, .05630, 38.77322, 1.91732, 1.73735, - + 1.36115, 1.82995, 1.92755, - + .09414, .05694, 39.69402, 1.97115, 1.79177, - + 1.41842, 1.88411, 1.98151, - + .09545, .05755, 40.58128, 2.02337, 1.84455, - + 1.47387, 1.93663, 2.03384, - + .09668, .05813, 41.38033, 2.07189, 1.89358, - + 1.52541, 1.98542, 2.08247, - + .09794, .05871, 42.19775, 2.12177, 1.94398, - + 1.57833, 2.03560, 2.13247 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ - + .05207, .03713, 1.09139, .22634, .00180, - + .00000, .12731, .23289, - + .05470, .03839, 1.63023, .25374, .00387, - + .00000, .15161, .26056, - + .05849, .04021, 2.48470, .29721, .00853, - + .00000, .19025, .30440, - + .06118, .04150, 3.15944, .33066, .01367, - + .00000, .22015, .33811, - + .06395, .04283, 3.90233, .36685, .02129, - + .00000, .25275, .37457, - + .06630, .04396, 4.56966, .39860, .03032, - + .00000, .28168, .40655, - + .06853, .04502, 5.23291, .42932, .04175, - + .00000, .31003, .43748, - + .07086, .04613, 5.94109, .46158, .05754, - + .00000, .34033, .46997 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ - + .07286, .04709, 6.57012, .48917, .07495, - + .00000, .36681, .49776, - + .07478, .04800, 7.19660, .51538, .09555, - + .00000, .39254, .52415, - + .07628, .04872, 7.68913, .53538, .11467, - + .00000, .41267, .54430, - + .07946, .05023, 8.76268, .57630, .16427, - + .00000, .45535, .58551, - + .08216, .05151, 9.69400, .60934, .21610, - + .01200, .49151, .61882, - + .08514, .05293, 10.73937, .64459, .28191, - + .05298, .53160, .65435, - + .08821, .05437, 11.82629, .68072, .35552, - + .10834, .57357, .69077, - + .09096, .05567, 12.80969, .71435, .42341, - + .15702, .61252, .72466 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ - + .09370, .05697, 13.79657, .74999, .49034, - + .20723, .65305, .76056, - + .09597, .05803, 14.60869, .78120, .54359, - + .24921, .68776, .79198, - + .09868, .05931, 15.57296, .82084, .60462, - + .30027, .73087, .83188, - + .10106, .06043, 16.41608, .85768, .65575, - + .34576, .77010, .86893, - + .10323, .06144, 17.18685, .89290, .70081, - + .38790, .80706, .90436, - + .10595, .06272, 18.13212, .93847, .75530, - + .44111, .85431, .95018, - + .10849, .06390, 19.00018, .98225, .80478, - + .49119, .89928, .99420, - + .11085, .06500, 19.80209, 1.02406, .85028, - + .53833, .94196, 1.03623 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ - + .11319, .06609, 20.58456, 1.06621, .89504, - + .58541, .98483, 1.07859, - + .11546, .06715, 21.32210, 1.10736, .93805, - + .63112, 1.02657, 1.11995, - + .11760, .06814, 22.01469, 1.14679, .97883, - + .67466, 1.06650, 1.15957, - + .11960, .06906, 22.63852, 1.18353, 1.01662, - + .71516, 1.10369, 1.19650, - + .12159, .06999, 23.25811, 1.22069, 1.05468, - + .75600, 1.14126, 1.23384, - + .12354, .07089, 23.84602, 1.25696, 1.09173, - + .79580, 1.17792, 1.27029, - + .12539, .07174, 24.39330, 1.29143, 1.12690, - + .83357, 1.21276, 1.30493, - + .12712, .07253, 24.89374, 1.32379, 1.15989, - + .86899, 1.24545, 1.33744 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ - + .12886, .07334, 25.39145, 1.35650, 1.19321, - + .90476, 1.27850, 1.37031, - + .13056, .07412, 25.86003, 1.38828, 1.22558, - + .93951, 1.31061, 1.40224, - + .13219, .07486, 26.30894, 1.41896, 1.25681, - + .97299, 1.34160, 1.43306, - + .13372, .07556, 26.70547, 1.44720, 1.28558, - + 1.00386, 1.37014, 1.46145, - + .13526, .07627, 27.10928, 1.47614, 1.31503, - + 1.03543, 1.39936, 1.49052 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ - + .07814, .04972, 1.16475, .20611, .00165, - + .00000, .11594, .21498, - + .08175, .05147, 1.61860, .22875, .00348, - + .00000, .13612, .23798, - + .08692, .05397, 2.31366, .26369, .00744, - + .00000, .16736, .27346, - + .09057, .05573, 2.84371, .28995, .01167, - + .00000, .19098, .30009, - + .09431, .05753, 3.41184, .31782, .01784, - + .00000, .21626, .32834, - + .09747, .05905, 3.91015, .34185, .02502, - + .00000, .23831, .35268, - + .10045, .06047, 4.39548, .36472, .03399, - + .00000, .25961, .37586, - + .10355, .06196, 4.90332, .38835, .04625, - + .00000, .28202, .39980 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ - + .10620, .06322, 5.34637, .40825, .05962, - + .00000, .30134, .41996, - + .10874, .06443, 5.78090, .42688, .07529, - + .00000, .31989, .43884, - + .11072, .06538, 6.11752, .44090, .08973, - + .00000, .33422, .45306, - + .11489, .06736, 6.83820, .46903, .12677, - + .00000, .36418, .48159, - + .11842, .06902, 7.44925, .49118, .16497, - + .00855, .38908, .50410, - + .12228, .07085, 8.12058, .51428, .21281, - + .03750, .41622, .52758, - + .12623, .07271, 8.80299, .53752, .26547, - + .07618, .44417, .55120, - + .12975, .07437, 9.40733, .55889, .31323, - + .10968, .46977, .57290 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ - + .13326, .07601, 10.00186, .58138, .35953, - + .14382, .49611, .59573, - + .13613, .07735, 10.48218, .60099, .39574, - + .17202, .51846, .61562, - + .13955, .07894, 11.04139, .62575, .43652, - + .20593, .54595, .64070, - + .14254, .08033, 11.52136, .64862, .47006, - + .23579, .57073, .66385, - + .14526, .08159, 11.95358, .67038, .49916, - + .26319, .59389, .68587, - + .14864, .08316, 12.47250, .69828, .53377, - + .29739, .62318, .71409, - + .15178, .08460, 12.93958, .72483, .56465, - + .32920, .65075, .74092, - + .15469, .08594, 13.36360, .74995, .59266, - + .35884, .67666, .76631 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ - + .15756, .08726, 13.76953, .77503, .61985, - + .38813, .70241, .79166, - + .16032, .08852, 14.14385, .79925, .64564, - + .41627, .72721, .81613, - + .16292, .08971, 14.49039, .82225, .66986, - + .44284, .75073, .83937, - + .16533, .09080, 14.79566, .84347, .69204, - + .46731, .77239, .86080, - + .16773, .09189, 15.09462, .86474, .71419, - + .49178, .79411, .88229, - + .17007, .09295, 15.37249, .88531, .73554, - + .51542, .81508, .90306, - + .17227, .09394, 15.62707, .90469, .75564, - + .53768, .83485, .92264, - + .17432, .09487, 15.85539, .92271, .77432, - + .55839, .85325, .94085 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ - + .17639, .09580, 16.07935, .94081, .79307, - + .57915, .87170, .95913, - + .17840, .09670, 16.28484, .95820, .81109, - + .59915, .88945, .97670, - + .18031, .09756, 16.48035, .97491, .82840, - + .61831, .90650, .99358, - + .18209, .09835, 16.64713, .99011, .84415, - + .63580, .92201, 1.00893, - + .18389, .09916, 16.81613, 1.00561, .86021, - + .65360, .93783, 1.02458 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ - + .09896, .05996, 1.20622, .19526, .00159, - + .00000, .10995, .20616, - + .10326, .06205, 1.60829, .21510, .00329, - + .00000, .12773, .22645, - + .10940, .06503, 2.21115, .24525, .00688, - + -.00001, .15485, .25724, - + .11372, .06712, 2.66110, .26757, .01064, - + .00000, .17506, .28001, - + .11813, .06924, 3.13541, .29098, .01603, - + .00000, .19644, .30388, - + .12183, .07102, 3.54523, .31094, .02223, - + -.00001, .21489, .32422, - + .12532, .07269, 3.93923, .32976, .02992, - + -.00001, .23255, .34340, - + .12893, .07442, 4.34631, .34899, .04032, - + -.00001, .25095, .36299 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ - + .13201, .07589, 4.69720, .36502, .05160, - + -.00001, .26668, .37933, - + .13495, .07729, 5.03793, .37989, .06474, - + -.00001, .28166, .39450, - + .13724, .07837, 5.29938, .39097, .07678, - + -.00001, .29315, .40580, - + .14205, .08065, 5.85265, .41291, .10746, - + -.00001, .31692, .42822, - + .14609, .08255, 6.31465, .42989, .13884, - + .00688, .33645, .44560, - + .15051, .08463, 6.81491, .44732, .17779, - + .03008, .35749, .46346, - + .15500, .08673, 7.31567, .46461, .22025, - + .06087, .37893, .48119, - + .15900, .08859, 7.75255, .48039, .25836, - + .08729, .39838, .49735 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ - + .16295, .09043, 8.17626, .49693, .29489, - + .11398, .41826, .51427, - + .16618, .09192, 8.51429, .51131, .32317, - + .13588, .43503, .52896, - + .17002, .09369, 8.90211, .52943, .35465, - + .16201, .45552, .54743, - + .17335, .09522, 9.23049, .54610, .38024, - + .18486, .47388, .56442, - + .17638, .09661, 9.52301, .56192, .40221, - + .20569, .49095, .58052, - + .18013, .09832, 9.86876, .58208, .42804, - + .23151, .51239, .60102, - + .18359, .09989, 10.17477, .60115, .45083, - + .25534, .53242, .62041, - + .18679, .10134, 10.44881, .61908, .47130, - + .27739, .55112, .63863 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ - + .18993, .10275, 10.70727, .63686, .49100, - + .29905, .56957, .65670, - + .19295, .10411, 10.94134, .65390, .50951, - + .31969, .58720, .67400, - + .19577, .10537, 11.15562, .67000, .52678, - + .33908, .60382, .69035, - + .19838, .10654, 11.34059, .68471, .54247, - + .35682, .61901, .70529, - + .20098, .10769, 11.51961, .69939, .55805, - + .37447, .63416, .72020, - + .20349, .10880, 11.68279, .71349, .57297, - + .39142, .64869, .73451, - + .20586, .10984, 11.83003, .72668, .58692, - + .40729, .66231, .74791, - + .20806, .11081, 11.95942, .73887, .59981, - + .42197, .67488, .76029 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ - + .21026, .11178, 12.08480, .75104, .61268, - + .43662, .68744, .77265, - + .21239, .11271, 12.19697, .76266, .62496, - + .45065, .69943, .78444, - + .21443, .11360, 12.30315, .77377, .63672, - + .46405, .71092, .79573, - + .21631, .11441, 12.39013, .78379, .64734, - + .47620, .72127, .80590, - + .21821, .11524, 12.47801, .79399, .65814, - + .48854, .73180, .81625 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ - + .11699, .06904, 1.23110, .18799, .00156, - + .00000, .10598, .20073, - + .12183, .07141, 1.59557, .20582, .00318, - + .00000, .12207, .21909, - + .12871, .07474, 2.13356, .23263, .00652, - + -.00001, .14633, .24662, - + .13354, .07708, 2.52876, .25226, .00996, - + .00000, .16421, .26676, - + .13846, .07944, 2.94021, .27267, .01483, - + .00000, .18298, .28768, - + .14257, .08141, 3.29172, .28993, .02039, - + -.00001, .19905, .30536, - + .14643, .08326, 3.62640, .30608, .02722, - + -.00001, .21432, .32191, - + .15042, .08515, 3.96878, .32244, .03640, - + -.00001, .23013, .33868 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ - + .15382, .08677, 4.26125, .33598, .04630, - + -.00001, .24354, .35256, - + .15706, .08830, 4.54310, .34844, .05779, - + -.00001, .25625, .36535, - + .15957, .08948, 4.75774, .35766, .06826, - + -.00001, .26593, .37481, - + .16483, .09195, 5.20779, .37572, .09483, - + -.00001, .28583, .39339, - + .16924, .09402, 5.57909, .38950, .12182, - + .00585, .30202, .40761, - + .17405, .09625, 5.97653, .40344, .15511, - + .02546, .31930, .42202, - + .17891, .09851, 6.36943, .41713, .19114, - + .05138, .33676, .43618, - + .18322, .10049, 6.70806, .42954, .22323, - + .07345, .35250, .44900 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ - + .18748, .10245, 7.03268, .44252, .25374, - + .09562, .36850, .46237, - + .19094, .10403, 7.28884, .45379, .27716, - + .11371, .38192, .47397, - + .19504, .10589, 7.57909, .46795, .30301, - + .13518, .39825, .48850, - + .19859, .10750, 7.82201, .48096, .32384, - + .15384, .41282, .50184, - + .20180, .10894, 8.03639, .49328, .34158, - + .17078, .42630, .51445, - + .20578, .11072, 8.28603, .50890, .36224, - + .19165, .44314, .53043, - + .20943, .11235, 8.50375, .52360, .38031, - + .21080, .45878, .54545, - + .21279, .11384, 8.69632, .53737, .39642, - + .22844, .47331, .55951 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ - + .21609, .11530, 8.87534, .55094, .41181, - + .24567, .48756, .57337, - + .21923, .11668, 9.03452, .56386, .42617, - + .26200, .50109, .58656, - + .22218, .11797, 9.17869, .57601, .43950, - + .27728, .51379, .59896, - + .22488, .11915, 9.30047, .58704, .45152, - + .29118, .52532, .61022, - + .22757, .12032, 9.41693, .59800, .46341, - + .30496, .53676, .62140, - + .23017, .12144, 9.52086, .60845, .47472, - + .31813, .54767, .63207, - + .23260, .12248, 9.61310, .61819, .48526, - + .33041, .55785, .64200, - + .23486, .12345, 9.69231, .62712, .49494, - + .34172, .56720, .65112 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ - + .23711, .12441, 9.76796, .63601, .50457, - + .35297, .57650, .66019, - + .23929, .12533, 9.83336, .64443, .51370, - + .36369, .58531, .66878, - + .24136, .12621, 9.89497, .65247, .52242, - + .37390, .59373, .67699, - + .24327, .12701, 9.94258, .65964, .53024, - + .38311, .60127, .68431, - + .24520, .12782, 9.99057, .66693, .53818, - + .39244, .60891, .69175 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ - + .13320, .07737, 1.24547, .18247, .00154, - + .00000, .10305, .19699, - + .13849, .07995, 1.58036, .19874, .00310, - + .00000, .11783, .21383, - + .14598, .08357, 2.06858, .22298, .00627, - + .00000, .13991, .23887, - + .15122, .08609, 2.42271, .24059, .00948, - + .00000, .15605, .25702, - + .15653, .08863, 2.78769, .25876, .01396, - + .00000, .17288, .27575, - + .16097, .09075, 3.09666, .27402, .01904, - + .00000, .18720, .29147, - + .16513, .09272, 3.38851, .28822, .02524, - + .00000, .20073, .30610, - + .16941, .09475, 3.68465, .30251, .03353, - + .00000, .21466, .32082 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ - + .17305, .09646, 3.93573, .31425, .04242, - + .00000, .22641, .33292, - + .17652, .09809, 4.17619, .32499, .05270, - + .00000, .23749, .34400, - + .17920, .09934, 4.35815, .33288, .06204, - + .00000, .24589, .35216, - + .18480, .10195, 4.73666, .34820, .08564, - + .00000, .26306, .36803, - + .18948, .10411, 5.04569, .35974, .10948, - + .00512, .27690, .38002, - + .19456, .10645, 5.37324, .37128, .13874, - + .02223, .29158, .39205, - + .19969, .10880, 5.69350, .38250, .17022, - + .04474, .30630, .40375, - + .20423, .11086, 5.96656, .39261, .19808, - + .06381, .31949, .41428 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ - + .20869, .11288, 6.22565, .40317, .22440, - + .08287, .33284, .42524, - + .21231, .11450, 6.42808, .41233, .24448, - + .09836, .34400, .43474, - + .21658, .11641, 6.65479, .42382, .26648, - + .11664, .35752, .44661, - + .22027, .11805, 6.84250, .43436, .28406, - + .13247, .36953, .45747, - + .22360, .11952, 7.00674, .44431, .29894, - + .14678, .38061, .46773, - + .22770, .12133, 7.19517, .45691, .31614, - + .16432, .39437, .48067, - + .23146, .12297, 7.35720, .46870, .33107, - + .18036, .40709, .49278, - + .23491, .12447, 7.49872, .47970, .34430, - + .19505, .41886, .50407 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ - + .23828, .12592, 7.62822, .49049, .35685, - + .20934, .43034, .51515, - + .24149, .12730, 7.74113, .50070, .36849, - + .22284, .44118, .52562, - + .24449, .12858, 7.84223, .51027, .37925, - + .23542, .45131, .53543, - + .24724, .12974, 7.92549, .51890, .38890, - + .24681, .46046, .54428, - + .24996, .13089, 8.00404, .52744, .39840, - + .25807, .46951, .55304, - + .25258, .13199, 8.07236, .53553, .40740, - + .26879, .47808, .56133, - + .25502, .13301, 8.13183, .54304, .41575, - + .27875, .48604, .56902, - + .25729, .13395, 8.18147, .54989, .42338, - + .28788, .49332, .57605 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ - + .25955, .13488, 8.22793, .55667, .43094, - + .29695, .50053, .58300, - + .26172, .13577, 8.26601, .56305, .43808, - + .30554, .50733, .58954, - + .26379, .13662, 8.30167, .56912, .44487, - + .31371, .51380, .59577, - + .26568, .13738, 8.32657, .57450, .45092, - + .32105, .51955, .60128, - + .26759, .13816, 8.35163, .57995, .45706, - + .32846, .52537, .60687 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ - + .16204, .09251, 1.25522, .17418, .00152, - + .00000, .09883, .19209, - + .16803, .09539, 1.54521, .18808, .00301, - + .00001, .11162, .20663, - + .17645, .09942, 1.95983, .20851, .00593, - + .00001, .13049, .22794, - + .18231, .10220, 2.25467, .22315, .00880, - + .00001, .14411, .24319, - + .18822, .10498, 2.55375, .23810, .01275, - + .00001, .15815, .25874, - + .19314, .10729, 2.80320, .25052, .01714, - + .00001, .16999, .27166, - + .19773, .10943, 3.03582, .26196, .02245, - + .00001, .18108, .28355, - + .20244, .11161, 3.26867, .27335, .02948, - + .00001, .19239, .29540 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ - + .20642, .11344, 3.46369, .28259, .03695, - + .00001, .20184, .30503, - + .21020, .11518, 3.64855, .29096, .04553, - + .00001, .21068, .31377, - + .21311, .11651, 3.78683, .29704, .05330, - + .00001, .21734, .32012, - + .21917, .11926, 4.07084, .30866, .07276, - + .00001, .23080, .33230, - + .22421, .12153, 4.29869, .31720, .09227, - + .00415, .24151, .34131, - + .22965, .12395, 4.53600, .32555, .11601, - + .01790, .25272, .35015, - + .23511, .12637, 4.76354, .33351, .14131, - + .03587, .26382, .35861, - + .23990, .12848, 4.95376, .34063, .16348, - + .05095, .27368, .36614 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ - + .24459, .13053, 5.13077, .34804, .18422, - + .06592, .28358, .37395, - + .24837, .13216, 5.26662, .35446, .19986, - + .07798, .29180, .38069, - + .25281, .13407, 5.41520, .36251, .21682, - + .09213, .30169, .38910, - + .25663, .13569, 5.53562, .36988, .23021, - + .10429, .31041, .39678, - + .26005, .13714, 5.63918, .37683, .24141, - + .11521, .31842, .40401, - + .26425, .13890, 5.75422, .38555, .25420, - + .12851, .32828, .41306, - + .26808, .14049, 5.85007, .39366, .26516, - + .14056, .33731, .42146, - + .27157, .14193, 5.93153, .40117, .27476, - + .15153, .34560, .42924 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ - + .27496, .14331, 6.00351, .40848, .28378, - + .16214, .35362, .43679, - + .27816, .14461, 6.06311, .41531, .29206, - + .17207, .36111, .44386, - + .28115, .14581, 6.11492, .42167, .29964, - + .18128, .36806, .45043, - + .28386, .14689, 6.15455, .42733, .30637, - + .18955, .37426, .45627, - + .28654, .14794, 6.19049, .43288, .31296, - + .19769, .38036, .46201, - + .28909, .14894, 6.21918, .43808, .31914, - + .20538, .38608, .46739, - + .29148, .14987, 6.24238, .44286, .32483, - + .21249, .39134, .47232, - + .29367, .15071, 6.25943, .44717, .32998, - + .21897, .39611, .47677 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ - + .29584, .15154, 6.27401, .45141, .33507, - + .22536, .40080, .48115, - + .29792, .15233, 6.28276, .45533, .33982, - + .23139, .40516, .48520, - + .29989, .15307, 6.29069, .45906, .34433, - + .23710, .40931, .48905, - + .30168, .15373, 6.29180, .46228, .34828, - + .24218, .41292, .49237, - + .30349, .15440, 6.29292, .46553, .35228, - + .24729, .41657, .49573 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ - + .19966, .11272, 1.24405, .16508, .00152, - + .00000, .09448, .18774, - + .20637, .11587, 1.48687, .17645, .00294, - + .00000, .10518, .19980, - + .21574, .12022, 1.82656, .19292, .00562, - + .00000, .12074, .21720, - + .22221, .12319, 2.06275, .20456, .00816, - + .00000, .13182, .22947, - + .22869, .12614, 2.29791, .21629, .01157, - + .00000, .14310, .24181, - + .23406, .12857, 2.49072, .22591, .01530, - + .00000, .15251, .25193, - + .23904, .13079, 2.66782, .23466, .01973, - + .00000, .16124, .26115, - + .24411, .13305, 2.84206, .24326, .02553, - + -.00001, .17003, .27021 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ - + .24839, .13493, 2.98580, .25014, .03164, - + .00000, .17731, .27747, - + .25242, .13670, 3.12036, .25628, .03859, - + .00000, .18406, .28397, - + .25551, .13805, 3.21957, .26068, .04484, - + .00000, .18909, .28862, - + .26191, .14081, 3.42003, .26888, .06038, - + .00000, .19913, .29736, - + .26719, .14306, 3.57707, .27470, .07580, - + .00323, .20699, .30362, - + .27284, .14544, 3.73677, .28021, .09440, - + .01392, .21509, .30958, - + .27847, .14779, 3.88579, .28530, .11400, - + .02779, .22298, .31511, - + .28337, .14980, 4.00693, .28979, .13100, - + .03931, .22990, .31997 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ - + .28812, .15174, 4.11643, .29446, .14670, - + .05063, .23677, .32498, - + .29193, .15327, 4.19789, .29851, .15840, - + .05969, .24244, .32931, - + .29636, .15503, 4.28384, .30359, .17092, - + .07022, .24919, .33469, - + .30014, .15651, 4.35096, .30824, .18066, - + .07920, .25510, .33960, - + .30352, .15783, 4.40694, .31262, .18871, - + .08720, .26049, .34420, - + .30760, .15938, 4.46527, .31807, .19775, - + .09686, .26704, .34991, - + .31129, .16078, 4.51077, .32308, .20538, - + .10554, .27297, .35514, - + .31463, .16202, 4.54703, .32767, .21197, - + .11338, .27836, .35993 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ - + .31786, .16320, 4.57610, .33208, .21808, - + .12089, .28350, .36453, - + .32087, .16428, 4.59672, .33613, .22360, - + .12787, .28824, .36873, - + .32365, .16528, 4.61297, .33985, .22862, - + .13429, .29259, .37260, - + .32616, .16615, 4.62176, .34310, .23301, - + .14001, .29641, .37596, - + .32861, .16700, 4.62790, .34624, .23726, - + .14559, .30011, .37922, - + .33093, .16778, 4.62930, .34911, .24119, - + .15083, .30353, .38221, - + .33308, .16850, 4.62778, .35172, .24478, - + .15563, .30665, .38490, - + .33503, .16915, 4.62291, .35401, .24800, - + .15998, .30942, .38727 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ - + .33696, .16977, 4.61634, .35623, .25114, - + .16425, .31212, .38957, - + .33878, .17035, 4.60616, .35823, .25403, - + .16823, .31457, .39163, - + .34051, .17089, 4.59630, .36011, .25676, - + .17199, .31690, .39358, - + .34205, .17136, 4.58259, .36166, .25911, - + .17529, .31886, .39518, - + .34360, .17183, 4.56888, .36323, .26148, - + .17861, .32083, .39679 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ - + .25366, .14207, 1.19695, .15352, .00153, - + -.00001, .08938, .18331, - + .26105, .14531, 1.38856, .16205, .00289, - + -.00001, .09775, .19251, - + .27125, .14972, 1.64926, .17420, .00532, - + -.00002, .10972, .20552, - + .27822, .15268, 1.82541, .18262, .00753, - + -.00002, .11809, .21452, - + .28513, .15558, 1.99657, .19097, .01038, - + -.00002, .12649, .22342, - + .29080, .15793, 2.13368, .19770, .01341, - + -.00002, .13340, .23058, - + .29600, .16006, 2.25701, .20373, .01695, - + -.00002, .13972, .23700, - + .30125, .16219, 2.37547, .20952, .02150, - + -.00002, .14601, .24317 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ - + .30565, .16393, 2.47099, .21405, .02622, - + -.00002, .15114, .24801, - + .30977, .16556, 2.55883, .21801, .03154, - + -.00002, .15583, .25225, - + .31290, .16678, 2.62215, .22076, .03628, - + -.00002, .15927, .25520, - + .31931, .16924, 2.74685, .22570, .04793, - + -.00002, .16604, .26054, - + .32453, .17121, 2.84086, .22897, .05934, - + .00235, .17119, .26412, - + .33005, .17324, 2.93273, .23184, .07294, - + .01013, .17636, .26731, - + .33547, .17520, 3.01433, .23431, .08708, - + .02015, .18129, .27008, - + .34012, .17684, 3.07712, .23643, .09917, - + .02836, .18553, .27243 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ - + .34457, .17838, 3.13055, .23865, .11018, - + .03634, .18968, .27485, - + .34809, .17956, 3.16775, .24060, .11826, - + .04266, .19305, .27695, - + .35211, .18088, 3.20331, .24306, .12676, - + .04993, .19702, .27956, - + .35549, .18196, 3.22825, .24532, .13324, - + .05605, .20044, .28194, - + .35848, .18289, 3.24713, .24747, .13850, - + .06146, .20353, .28418, - + .36203, .18396, 3.26214, .25007, .14429, - + .06792, .20721, .28688, - + .36518, .18488, 3.26992, .25242, .14905, - + .07365, .21046, .28930, - + .36798, .18567, 3.27299, .25453, .15309, - + .07878, .21336, .29146 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ - + .37064, .18639, 3.27137, .25649, .15675, - + .08364, .21608, .29346, - + .37307, .18700, 3.26469, .25822, .16000, - + .08809, .21850, .29521, - + .37529, .18755, 3.25641, .25976, .16289, - + .09216, .22069, .29677, - + .37724, .18800, 3.24445, .26101, .16537, - + .09573, .22253, .29802, - + .37912, .18842, 3.23087, .26219, .16773, - + .09919, .22428, .29919, - + .38086, .18879, 3.21468, .26320, .16988, - + .10240, .22585, .30017, - + .38243, .18909, 3.19773, .26405, .17180, - + .10531, .22723, .30101, - + .38384, .18934, 3.17976, .26475, .17348, - + .10792, .22841, .30166 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ - + .38521, .18957, 3.16079, .26538, .17510, - + .11046, .22952, .30226, - + .38646, .18976, 3.13988, .26587, .17655, - + .11279, .23048, .30270, - + .38764, .18993, 3.12009, .26633, .17791, - + .11498, .23138, .30312, - + .38863, .19003, 3.09873, .26659, .17903, - + .11687, .23205, .30333, - + .38964, .19014, 3.07744, .26686, .18014, - + .11876, .23272, .30354 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ - + .30108, .16749, 1.13980, .14372, .00154, - + -.00001, .08532, .17978, - + .30873, .17055, 1.29792, .15033, .00287, - + -.00001, .09210, .18692, - + .31914, .17464, 1.50817, .15960, .00514, - + -.00001, .10166, .19687, - + .32617, .17733, 1.64686, .16592, .00713, - + -.00001, .10826, .20363, - + .33308, .17993, 1.77877, .17209, .00963, - + -.00001, .11480, .21021, - + .33870, .18199, 1.88227, .17699, .01222, - + -.00002, .12012, .21541, - + .34381, .18385, 1.97367, .18130, .01519, - + -.00002, .12493, .21999, - + .34892, .18564, 2.05937, .18536, .01895, - + -.00001, .12965, .22429 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ - + .35314, .18710, 2.12701, .18846, .02281, - + -.00001, .13345, .22757, - + .35707, .18844, 2.18813, .19110, .02711, - + -.00002, .13688, .23037, - + .36003, .18942, 2.23108, .19287, .03091, - + -.00002, .13937, .23225, - + .36604, .19137, 2.31351, .19587, .04017, - + -.00002, .14416, .23547, - + .37086, .19287, 2.37294, .19766, .04914, - + .00185, .14772, .23741, - + .37588, .19438, 2.42817, .19902, .05974, - + .00792, .15119, .23890, - + .38071, .19578, 2.47404, .20003, .07064, - + .01568, .15442, .24001, - + .38479, .19690, 2.50652, .20085, .07985, - + .02197, .15713, .24087 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ - + .38864, .19790, 2.53140, .20172, .08813, - + .02803, .15974, .24176, - + .39163, .19863, 2.54644, .20252, .09414, - + .03280, .16183, .24257, - + .39497, .19939, 2.55732, .20355, .10036, - + .03822, .16425, .24359, - + .39773, .19998, 2.56198, .20453, .10503, - + .04276, .16631, .24454, - + .40012, .20046, 2.56330, .20547, .10876, - + .04673, .16814, .24543, - + .40289, .20095, 2.55847, .20657, .11278, - + .05143, .17027, .24646, - + .40528, .20131, 2.54937, .20752, .11602, - + .05556, .17210, .24731, - + .40737, .20158, 2.53794, .20834, .11871, - + .05922, .17369, .24802 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ - + .40929, .20178, 2.52332, .20904, .12111, - + .06265, .17513, .24862, - + .41098, .20189, 2.50548, .20958, .12317, - + .06577, .17634, .24903, - + .41248, .20197, 2.48744, .21002, .12499, - + .06860, .17742, .24935, - + .41375, .20196, 2.46763, .21029, .12651, - + .07105, .17826, .24949, - + .41494, .20193, 2.44687, .21049, .12793, - + .07341, .17903, .24957, - + .41598, .20184, 2.42465, .21058, .12919, - + .07558, .17967, .24951, - + .41689, .20173, 2.40264, .21059, .13029, - + .07753, .18019, .24939, - + .41767, .20158, 2.38064, .21052, .13123, - + .07925, .18058, .24917 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ - + .41840, .20141, 2.35806, .21040, .13212, - + .08091, .18093, .24891, - + .41900, .20120, 2.33445, .21019, .13288, - + .08243, .18116, .24854, - + .41956, .20100, 2.31224, .20998, .13359, - + .08384, .18138, .24819, - + .41997, .20075, 2.28951, .20966, .13413, - + .08504, .18145, .24772, - + .42037, .20050, 2.26693, .20934, .13467, - + .08624, .18152, .24725 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ - + .38374, .20950, 1.03340, .12619, .00158, - + .00000, .07807, .17202, - + .39100, .21172, 1.14972, .13031, .00286, - + .00000, .08276, .17631, - + .40064, .21449, 1.29803, .13594, .00493, - + .00001, .08922, .18209, - + .40698, .21622, 1.39160, .13966, .00663, - + .00000, .09357, .18586, - + .41306, .21779, 1.47698, .14317, .00868, - + .00000, .09779, .18938, - + .41787, .21896, 1.54124, .14586, .01072, - + .00000, .10113, .19203, - + .42217, .21994, 1.59578, .14813, .01299, - + .00000, .10408, .19425, - + .42633, .22080, 1.64414, .15014, .01577, - + .00000, .10691, .19617 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ - + .42969, .22144, 1.68040, .15157, .01857, - + .00000, .10911, .19749, - + .43277, .22199, 1.71183, .15268, .02163, - + -.00001, .11105, .19850, - + .43502, .22235, 1.73245, .15333, .02430, - + .00000, .11241, .19906, - + .43946, .22296, 1.76909, .15418, .03071, - + .00000, .11492, .19967, - + .44284, .22331, 1.79179, .15435, .03680, - + .00127, .11664, .19961, - + .44621, .22354, 1.80896, .15411, .04386, - + .00537, .11820, .19909, - + .44928, .22359, 1.81861, .15360, .05100, - + .01055, .11952, .19826, - + .45171, .22350, 1.82103, .15306, .05692, - + .01468, .12056, .19742 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ - + .45386, .22328, 1.81821, .15255, .06213, - + .01860, .12150, .19658, - + .45540, .22302, 1.81231, .15219, .06583, - + .02163, .12222, .19593, - + .45695, .22258, 1.80045, .15180, .06955, - + .02503, .12299, .19517, - + .45811, .22211, 1.78707, .15150, .07226, - + .02784, .12361, .19454, - + .45904, .22164, 1.77322, .15125, .07437, - + .03028, .12414, .19399, - + .45992, .22091, 1.75184, .15088, .07654, - + .03310, .12468, .19320, - + .46051, .22015, 1.72931, .15047, .07821, - + .03554, .12506, .19241, - + .46091, .21937, 1.70684, .15005, .07953, - + .03766, .12533, .19163 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ - + .46113, .21855, 1.68283, .14958, .08066, - + .03963, .12551, .19077, - + .46114, .21767, 1.65766, .14901, .08158, - + .04138, .12555, .18982, - + .46106, .21682, 1.63359, .14845, .08235, - + .04294, .12555, .18890, - + .46082, .21595, 1.60956, .14783, .08293, - + .04426, .12544, .18794, - + .46050, .21506, 1.58530, .14718, .08346, - + .04552, .12528, .18694, - + .46006, .21414, 1.56074, .14647, .08389, - + .04666, .12505, .18589, - + .45957, .21323, 1.53722, .14577, .08423, - + .04766, .12479, .18485, - + .45902, .21234, 1.51458, .14505, .08449, - + .04853, .12448, .18383 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ - + .45842, .21143, 1.49182, .14431, .08471, - + .04935, .12414, .18277, - + .45770, .21051, 1.46887, .14352, .08486, - + .05008, .12374, .18167, - + .45701, .20964, 1.44744, .14278, .08500, - + .05076, .12336, .18063, - + .45622, .20875, 1.42641, .14200, .08503, - + .05131, .12292, .17957, - + .45544, .20786, 1.40561, .14123, .08507, - + .05186, .12249, .17851 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ - + .45488, .24201, .95217, .11011, .00160, - + .00001, .07106, .16239, - + .46092, .24300, 1.04238, .11276, .00285, - + .00000, .07444, .16477, - + .46864, .24400, 1.15252, .11625, .00479, - + .00000, .07898, .16777, - + .47351, .24445, 1.21876, .11845, .00631, - + .00000, .08195, .16959, - + .47800, .24471, 1.27638, .12044, .00806, - + .00000, .08475, .17115, - + .48143, .24476, 1.31757, .12187, .00975, - + .00000, .08691, .17220, - + .48437, .24467, 1.35077, .12300, .01158, - + .00000, .08877, .17295, - + .48705, .24444, 1.37787, .12387, .01376, - + -.00001, .09047, .17342 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ - + .48911, .24415, 1.39654, .12440, .01592, - + .00000, .09175, .17355, - + .49090, .24380, 1.41155, .12471, .01824, - + .00000, .09284, .17347, - + .49213, .24345, 1.41997, .12478, .02024, - + .00000, .09356, .17324, - + .49438, .24257, 1.43208, .12453, .02495, - + .00000, .09479, .17233, - + .49589, .24167, 1.43571, .12391, .02936, - + .00093, .09551, .17114, - + .49713, .24053, 1.43365, .12291, .03440, - + .00392, .09603, .16951, - + .49798, .23920, 1.42553, .12169, .03940, - + .00765, .09636, .16762, - + .49839, .23788, 1.41375, .12056, .04348, - + .01059, .09652, .16585 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ - + .49849, .23646, 1.39834, .11945, .04700, - + .01334, .09661, .16412, - + .49834, .23521, 1.38324, .11859, .04943, - + .01544, .09664, .16272, - + .49786, .23360, 1.36201, .11757, .05183, - + .01778, .09660, .16105, - + .49723, .23212, 1.34155, .11672, .05351, - + .01967, .09652, .15963, - + .49652, .23074, 1.32201, .11596, .05477, - + .02129, .09642, .15836, - + .49532, .22889, 1.29503, .11499, .05602, - + .02314, .09620, .15671, - + .49399, .22710, 1.26848, .11404, .05691, - + .02471, .09591, .15513, - + .49260, .22539, 1.24315, .11313, .05758, - + .02607, .09559, .15364 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ - + .49105, .22365, 1.21723, .11219, .05811, - + .02730, .09520, .15213, - + .48935, .22188, 1.19112, .11121, .05848, - + .02837, .09474, .15060, - + .48768, .22021, 1.16663, .11028, .05877, - + .02932, .09427, .14914, - + .48592, .21860, 1.14301, .10936, .05895, - + .03011, .09377, .14771, - + .48411, .21698, 1.11954, .10842, .05909, - + .03085, .09324, .14628, - + .48222, .21534, 1.09630, .10744, .05915, - + .03150, .09267, .14485, - + .48037, .21378, 1.07439, .10651, .05918, - + .03207, .09211, .14347, - + .47853, .21229, 1.05365, .10561, .05916, - + .03255, .09153, .14213 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ - + .47665, .21078, 1.03304, .10470, .05911, - + .03299, .09094, .14078, - + .47468, .20927, 1.01262, .10377, .05902, - + .03336, .09032, .13942, - + .47282, .20784, .99365, .10289, .05892, - + .03371, .08973, .13815, - + .47093, .20645, .97539, .10201, .05878, - + .03398, .08913, .13689, - + .46903, .20506, .95741, .10113, .05864, - + .03425, .08853, .13565 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ - + .51664, .26658, .89542, .09527, .00161, - + -.00001, .06411, .15108, - + .52085, .26619, .96634, .09699, .00284, - + .00000, .06659, .15209, - + .52586, .26522, 1.04866, .09914, .00466, - + .00000, .06982, .15316, - + .52875, .26429, 1.09533, .10041, .00603, - + -.00001, .07186, .15365, - + .53117, .26314, 1.13337, .10146, .00756, - + -.00001, .07372, .15389, - + .53281, .26201, 1.15856, .10214, .00899, - + -.00001, .07511, .15387, - + .53404, .26085, 1.17717, .10259, .01051, - + -.00001, .07626, .15363, - + .53490, .25949, 1.18995, .10281, .01227, - + -.00001, .07724, .15314 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ - + .53539, .25823, 1.19696, .10281, .01397, - + .00000, .07793, .15252, - + .53569, .25697, 1.20125, .10266, .01579, - + .00000, .07848, .15176, - + .53572, .25593, 1.20185, .10242, .01733, - + .00000, .07880, .15102, - + .53546, .25359, 1.19854, .10158, .02091, - + .00000, .07923, .14920, - + .53481, .25149, 1.19047, .10057, .02420, - + .00071, .07936, .14733, - + .53369, .24905, 1.17696, .09923, .02792, - + .00298, .07928, .14504, - + .53212, .24641, 1.15871, .09770, .03154, - + .00577, .07902, .14257, - + .53037, .24394, 1.13918, .09632, .03443, - + .00794, .07870, .14032 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ - + .52832, .24141, 1.11726, .09497, .03689, - + .00996, .07833, .13810, - + .52641, .23928, 1.09766, .09389, .03855, - + .01149, .07798, .13631, - + .52382, .23663, 1.07215, .09264, .04012, - + .01315, .07751, .13419, - + .52136, .23426, 1.04876, .09156, .04119, - + .01449, .07706, .13237, - + .51901, .23207, 1.02711, .09060, .04196, - + .01561, .07664, .13076, - + .51575, .22925, .99851, .08937, .04266, - + .01688, .07603, .12870, - + .51252, .22658, .97127, .08822, .04312, - + .01795, .07541, .12676, - + .50939, .22408, .94585, .08714, .04342, - + .01886, .07480, .12496 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ - + .50613, .22157, .92043, .08606, .04362, - + .01967, .07415, .12316, - + .50280, .21907, .89539, .08494, .04372, - + .02036, .07347, .12139, - + .49962, .21673, .87220, .08389, .04376, - + .02096, .07280, .11973, - + .49646, .21451, .85027, .08289, .04373, - + .02145, .07214, .11814, - + .49326, .21230, .82870, .08188, .04368, - + .02190, .07146, .11655, - + .49003, .21011, .80766, .08088, .04357, - + .02229, .07076, .11497, - + .48691, .20804, .78801, .07993, .04345, - + .02262, .07008, .11348, - + .48391, .20608, .76964, .07901, .04331, - + .02289, .06943, .11205 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ - + .48088, .20411, .75151, .07809, .04314, - + .02314, .06876, .11064, - + .47780, .20214, .73376, .07716, .04294, - + .02334, .06808, .10924, - + .47490, .20030, .71734, .07629, .04275, - + .02352, .06743, .10794, - + .47202, .19852, .70175, .07544, .04254, - + .02365, .06680, .10665, - + .46916, .19676, .68645, .07461, .04232, - + .02377, .06617, .10538 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ - + .58186, .28778, .84991, .07852, .00161, - + -.00002, .05561, .13541, - + .58323, .28559, .90099, .07953, .00279, - + -.00001, .05733, .13524, - + .58409, .28212, .95540, .08066, .00447, - + -.00001, .05944, .13470, - + .58403, .27947, .98290, .08123, .00568, - + -.00001, .06070, .13408, - + .58341, .27660, 1.00220, .08160, .00699, - + -.00001, .06178, .13322, - + .58248, .27406, 1.01239, .08172, .00817, - + -.00001, .06252, .13232, - + .58130, .27158, 1.01757, .08169, .00938, - + -.00001, .06309, .13133, - + .57965, .26886, 1.01746, .08146, .01076, - + .00000, .06349, .13011 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ - + .57797, .26648, 1.01419, .08111, .01205, - + -.00001, .06372, .12891, - + .57622, .26418, 1.00920, .08066, .01341, - + -.00001, .06385, .12765, - + .57465, .26233, 1.00314, .08022, .01454, - + -.00001, .06386, .12657, - + .57105, .25833, .98707, .07905, .01713, - + -.00001, .06371, .12410, - + .56760, .25486, .96969, .07784, .01947, - + .00052, .06339, .12181, - + .56342, .25098, .94748, .07637, .02205, - + .00217, .06289, .11913, - + .55875, .24693, .92192, .07477, .02452, - + .00419, .06225, .11632, - + .55428, .24324, .89716, .07333, .02644, - + .00574, .06162, .11381 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ - + .54956, .23952, .87118, .07192, .02803, - + .00715, .06094, .11135, - + .54549, .23645, .84908, .07080, .02907, - + .00821, .06035, .10938, - + .54036, .23271, .82160, .06946, .03000, - + .00933, .05962, .10706, - + .53571, .22942, .79725, .06833, .03060, - + .01022, .05896, .10506, - + .53140, .22643, .77520, .06733, .03100, - + .01097, .05835, .10328, - + .52575, .22263, .74699, .06605, .03130, - + .01181, .05755, .10107, - + .52031, .21909, .72079, .06487, .03145, - + .01249, .05676, .09901, - + .51518, .21582, .69681, .06378, .03151, - + .01305, .05601, .09711 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ - + .50999, .21256, .67327, .06268, .03150, - + .01356, .05524, .09523, - + .50479, .20939, .65055, .06161, .03141, - + .01397, .05446, .09340, - + .49990, .20643, .62975, .06061, .03130, - + .01431, .05372, .09171, - + .49520, .20364, .61041, .05964, .03115, - + .01459, .05301, .09012, - + .49050, .20087, .59158, .05869, .03098, - + .01484, .05229, .08855, - + .48582, .19817, .57345, .05775, .03078, - + .01505, .05157, .08701, - + .48136, .19562, .55669, .05686, .03058, - + .01521, .05089, .08556, - + .47712, .19322, .54119, .05603, .03037, - + .01534, .05023, .08420 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ - + .47286, .19084, .52601, .05519, .03015, - + .01546, .04957, .08285, - + .46860, .18849, .51131, .05435, .02991, - + .01555, .04892, .08152, - + .46461, .18630, .49779, .05357, .02969, - + .01563, .04831, .08028, - + .46072, .18420, .48509, .05283, .02945, - + .01567, .04770, .07910, - + .45685, .18212, .47267, .05209, .02921, - + .01570, .04711, .07792 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ - + .63438, .29995, .82145, .06384, .00157, - + -.00003, .04754, .11903, - + .63249, .29603, .85498, .06444, .00269, - + -.00003, .04874, .11812, - + .62872, .29019, .88554, .06498, .00424, - + -.00003, .05010, .11654, - + .62542, .28593, .89722, .06515, .00532, - + -.00002, .05085, .11524, - + .62154, .28145, .90148, .06512, .00643, - + -.00001, .05142, .11375, - + .61788, .27760, .89995, .06495, .00741, - + -.00002, .05175, .11236, - + .61416, .27395, .89493, .06466, .00838, - + -.00003, .05196, .11094, - + .60986, .27007, .88528, .06421, .00946, - + -.00002, .05203, .10932 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ - + .60597, .26669, .87460, .06371, .01045, - + -.00003, .05198, .10782, - + .60214, .26346, .86309, .06315, .01147, - + -.00003, .05186, .10633, - + .59895, .26090, .85248, .06264, .01231, - + -.00003, .05170, .10509, - + .59199, .25550, .82798, .06138, .01420, - + -.00002, .05123, .10236, - + .58577, .25090, .80481, .06016, .01587, - + .00037, .05070, .09991, - + .57862, .24583, .77748, .05873, .01768, - + .00161, .05000, .09715, - + .57099, .24061, .74804, .05721, .01938, - + .00312, .04918, .09431, - + .56394, .23594, .72086, .05584, .02067, - + .00425, .04841, .09180 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ - + .55672, .23129, .69336, .05450, .02169, - + .00527, .04761, .08935, - + .55067, .22748, .67064, .05344, .02234, - + .00602, .04695, .08739, - + .54320, .22291, .64319, .05220, .02288, - + .00681, .04613, .08509, - + .53657, .21893, .61939, .05113, .02319, - + .00742, .04540, .08313, - + .53051, .21534, .59819, .05018, .02337, - + .00793, .04474, .08139, - + .52269, .21085, .57166, .04901, .02345, - + .00849, .04389, .07920, - + .51533, .20668, .54746, .04792, .02343, - + .00893, .04307, .07721, - + .50847, .20285, .52561, .04691, .02336, - + .00930, .04231, .07540 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ - + .50162, .19908, .50448, .04591, .02323, - + .00961, .04154, .07363, - + .49485, .19544, .48441, .04494, .02307, - + .00986, .04077, .07191, - + .48852, .19207, .46621, .04405, .02289, - + .01006, .04006, .07032, - + .48254, .18890, .44948, .04321, .02270, - + .01022, .03938, .06884, - + .47658, .18579, .43334, .04237, .02249, - + .01036, .03870, .06740, - + .47072, .18275, .41797, .04155, .02226, - + .01046, .03803, .06600, - + .46518, .17992, .40388, .04078, .02204, - + .01054, .03740, .06469, - + .45995, .17727, .39097, .04006, .02183, - + .01060, .03680, .06345 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ - + .45472, .17465, .37840, .03935, .02160, - + .01066, .03621, .06223, - + .44954, .17206, .36632, .03864, .02136, - + .01068, .03562, .06105, - + .44470, .16965, .35525, .03799, .02113, - + .01071, .03507, .05996, - + .44003, .16736, .34498, .03737, .02090, - + .01071, .03454, .05892, - + .43540, .16509, .33497, .03675, .02067, - + .01071, .03401, .05790 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ - + .67464, .30454, .80047, .05124, .00150, - + -.00001, .04008, .10279, - + .66929, .29906, .81793, .05159, .00254, - + -.00001, .04089, .10144, - + .66064, .29112, .82748, .05181, .00395, - + -.00001, .04173, .09926, - + .65400, .28545, .82574, .05178, .00488, - + -.00001, .04213, .09758, - + .64676, .27961, .81764, .05157, .00582, - + -.00002, .04237, .09574, - + .64035, .27467, .80678, .05126, .00662, - + -.00001, .04244, .09411, - + .63408, .27003, .79382, .05086, .00739, - + -.00002, .04241, .09251, - + .62722, .26514, .77703, .05032, .00823, - + -.00001, .04227, .09071 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ - + .62116, .26095, .76098, .04978, .00899, - + -.00001, .04206, .08911, - + .61529, .25699, .74486, .04921, .00975, - + -.00002, .04180, .08755, - + .61055, .25387, .73116, .04869, .01037, - + -.00002, .04155, .08628, - + .60041, .24734, .70119, .04749, .01173, - + -.00001, .04093, .08353, - + .59159, .24184, .67455, .04637, .01292, - + .00029, .04029, .08114, - + .58169, .23584, .64454, .04506, .01418, - + .00122, .03951, .07848, - + .57136, .22975, .61343, .04370, .01533, - + .00234, .03866, .07578, - + .56197, .22435, .58560, .04248, .01618, - + .00317, .03786, .07341 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ - + .55252, .21903, .55815, .04131, .01682, - + .00390, .03704, .07112, - + .54472, .21468, .53594, .04036, .01720, - + .00444, .03638, .06930, - + .53520, .20955, .50965, .03926, .01749, - + .00499, .03558, .06713, - + .52685, .20510, .48725, .03831, .01763, - + .00541, .03487, .06530, - + .51929, .20111, .46753, .03748, .01769, - + .00577, .03423, .06370, - + .50968, .19613, .44331, .03644, .01765, - + .00613, .03340, .06171, - + .50071, .19156, .42154, .03549, .01755, - + .00643, .03263, .05990, - + .49243, .18738, .40212, .03461, .01741, - + .00667, .03192, .05826 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ - + .48426, .18329, .38356, .03374, .01723, - + .00685, .03122, .05667, - + .47625, .17936, .36611, .03291, .01703, - + .00700, .03052, .05514, - + .46881, .17575, .35042, .03215, .01683, - + .00712, .02987, .05374, - + .46179, .17239, .33619, .03144, .01664, - + .00721, .02927, .05242, - + .45485, .16908, .32254, .03074, .01643, - + .00728, .02867, .05114, - + .44809, .16588, .30965, .03005, .01621, - + .00733, .02808, .04991, - + .44174, .16290, .29792, .02940, .01600, - + .00736, .02753, .04878, - + .43578, .16012, .28724, .02880, .01579, - + .00738, .02702, .04772 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ - + .42984, .15737, .27691, .02821, .01557, - + .00740, .02650, .04668, - + .42398, .15469, .26708, .02764, .01536, - + .00739, .02600, .04566, - + .41850, .15220, .25810, .02711, .01516, - + .00739, .02554, .04471, - + .41326, .14985, .24983, .02661, .01496, - + .00737, .02509, .04383, - + .40807, .14753, .24180, .02612, .01476, - + .00736, .02464, .04297 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ - + .70312, .30280, .78015, .04060, .00141, - + -.00002, .03332, .08730, - + .69426, .29598, .78299, .04082, .00237, - + -.00001, .03387, .08572, - + .68079, .28623, .77408, .04085, .00360, - + -.00002, .03436, .08328, - + .67087, .27937, .76102, .04069, .00441, - + -.00002, .03453, .08145, - + .66038, .27241, .74285, .04040, .00520, - + -.00001, .03455, .07949, - + .65132, .26659, .72463, .04005, .00585, - + -.00001, .03447, .07777, - + .64265, .26115, .70565, .03964, .00647, - + -.00002, .03432, .07611, - + .63335, .25546, .68362, .03910, .00711, - + -.00002, .03406, .07432 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ - + .62526, .25063, .66381, .03857, .00768, - + -.00002, .03377, .07274, - + .61752, .24609, .64462, .03801, .00825, - + -.00002, .03346, .07122, - + .61136, .24254, .62897, .03753, .00870, - + -.00002, .03317, .07000, - + .59832, .23516, .59577, .03645, .00969, - + -.00001, .03249, .06741, - + .58717, .22901, .56739, .03545, .01052, - + .00023, .03184, .06519, - + .57481, .22236, .53639, .03432, .01138, - + .00092, .03107, .06275, - + .56212, .21564, .50517, .03314, .01215, - + .00175, .03024, .06029, - + .55074, .20972, .47788, .03209, .01269, - + .00238, .02949, .05815 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ - + .53938, .20396, .45147, .03108, .01309, - + .00291, .02873, .05608, - + .53007, .19931, .43048, .03028, .01330, - + .00329, .02811, .05443, - + .51888, .19379, .40606, .02934, .01343, - + .00369, .02736, .05252, - + .50912, .18905, .38552, .02854, .01347, - + .00399, .02671, .05089, - + .50033, .18483, .36763, .02784, .01345, - + .00424, .02613, .04945, - + .48931, .17958, .34596, .02696, .01335, - + .00448, .02538, .04770, - + .47911, .17479, .32673, .02613, .01321, - + .00468, .02469, .04612, - + .46973, .17044, .30975, .02538, .01305, - + .00483, .02405, .04470 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ - + .46048, .16621, .29368, .02467, .01286, - + .00497, .02343, .04332, - + .45151, .16217, .27877, .02399, .01266, - + .00505, .02283, .04199, - + .44321, .15846, .26546, .02337, .01247, - + .00511, .02228, .04077, - + .43546, .15503, .25348, .02279, .01228, - + .00515, .02177, .03965, - + .42783, .15167, .24208, .02222, .01209, - + .00519, .02125, .03856, - + .42041, .14842, .23139, .02167, .01189, - + .00522, .02076, .03752, - + .41348, .14541, .22173, .02116, .01170, - + .00523, .02029, .03656, - + .40699, .14261, .21298, .02067, .01151, - + .00523, .01985, .03568 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ - + .40056, .13986, .20456, .02019, .01133, - + .00522, .01942, .03482, - + .39425, .13718, .19660, .01974, .01114, - + .00520, .01901, .03398, - + .38838, .13468, .18936, .01932, .01096, - + .00519, .01862, .03320, - + .38280, .13234, .18274, .01891, .01079, - + .00517, .01825, .03247, - + .37728, .13004, .17633, .01851, .01062, - + .00514, .01789, .03175 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ - + .72039, .29584, .75622, .03176, .00130, - + -.00002, .02734, .07301, - + .70813, .28792, .74607, .03190, .00216, - + -.00001, .02770, .07135, - + .69001, .27673, .72143, .03184, .00325, - + -.00002, .02796, .06884, - + .67699, .26895, .69912, .03164, .00393, - + -.00003, .02799, .06701, - + .66348, .26109, .67305, .03133, .00458, - + -.00001, .02789, .06507, - + .65199, .25458, .64930, .03097, .00510, - + .00000, .02772, .06341, - + .64114, .24851, .62600, .03055, .00558, - + .00000, .02750, .06183, - + .62964, .24224, .60046, .03004, .00608, - + -.00002, .02718, .06015 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ - + .61974, .23696, .57823, .02956, .00650, - + -.00002, .02687, .05866, - + .61034, .23201, .55718, .02908, .00691, - + .00000, .02655, .05723, - + .60291, .22815, .54045, .02865, .00724, - + -.00001, .02625, .05613, - + .58733, .22021, .50583, .02772, .00793, - + -.00002, .02558, .05377, - + .57416, .21363, .47707, .02686, .00851, - + .00015, .02497, .05178, - + .55976, .20654, .44639, .02589, .00909, - + .00070, .02425, .04962, - + .54506, .19948, .41616, .02492, .00960, - + .00134, .02349, .04744, - + .53199, .19331, .39023, .02405, .00993, - + .00179, .02281, .04556 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ - + .51911, .18728, .36554, .02320, .01015, - + .00219, .02213, .04378, - + .50861, .18244, .34618, .02255, .01026, - + .00248, .02156, .04235, - + .49610, .17675, .32397, .02175, .01031, - + .00275, .02090, .04069, - + .48526, .17189, .30553, .02108, .01029, - + .00297, .02033, .03929, - + .47555, .16758, .28963, .02050, .01022, - + .00315, .01982, .03806, - + .46342, .16227, .27061, .01978, .01009, - + .00330, .01917, .03656, - + .45226, .15743, .25389, .01913, .00992, - + .00343, .01858, .03521, - + .44207, .15305, .23928, .01854, .00976, - + .00353, .01804, .03400 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ - + .43208, .14881, .22560, .01797, .00958, - + .00361, .01751, .03284, - + .42249, .14477, .21301, .01741, .00941, - + .00366, .01701, .03173, - + .41366, .14107, .20185, .01689, .00924, - + .00370, .01654, .03071, - + .40542, .13768, .19190, .01642, .00906, - + .00372, .01611, .02978, - + .39733, .13437, .18247, .01597, .00889, - + .00373, .01568, .02888, - + .38952, .13119, .17369, .01553, .00872, - + .00373, .01527, .02803, - + .38222, .12824, .16580, .01512, .00856, - + .00373, .01489, .02723, - + .37541, .12553, .15870, .01475, .00839, - + .00372, .01454, .02650 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ - + .36869, .12285, .15191, .01439, .00824, - + .00371, .01419, .02578, - + .36214, .12024, .14553, .01403, .00808, - + .00369, .01385, .02510, - + .35606, .11782, .13974, .01370, .00794, - + .00367, .01354, .02448, - + .35029, .11556, .13446, .01339, .00780, - + .00364, .01324, .02389, - + .34460, .11333, .12937, .01308, .00766, - + .00362, .01295, .02332 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ - + .72711, .28470, .72641, .02450, .00118, - + .00005, .02216, .06014, - + .71164, .27595, .70519, .02462, .00194, - + .00005, .02239, .05850, - + .68928, .26365, .66774, .02453, .00285, - + .00004, .02247, .05610, - + .67345, .25518, .63827, .02433, .00342, - + .00003, .02240, .05438, - + .65721, .24672, .60637, .02402, .00394, - + .00004, .02223, .05257, - + .64355, .23973, .57879, .02370, .00435, - + .00004, .02202, .05102, - + .63073, .23330, .55267, .02335, .00472, - + .00003, .02176, .04956, - + .61730, .22667, .52502, .02289, .00510, - + .00004, .02143, .04802 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ - + .60584, .22110, .50156, .02247, .00541, - + .00003, .02112, .04670, - + .59502, .21590, .47971, .02205, .00571, - + .00003, .02079, .04544, - + .58651, .21189, .46269, .02171, .00594, - + .00002, .02052, .04443, - + .56882, .20363, .42811, .02094, .00640, - + .00003, .01990, .04235, - + .55401, .19682, .40000, .02023, .00679, - + .00017, .01934, .04063, - + .53794, .18952, .37058, .01944, .00717, - + .00056, .01870, .03877, - + .52170, .18229, .34211, .01863, .00749, - + .00102, .01804, .03691, - + .50734, .17603, .31809, .01793, .00770, - + .00136, .01744, .03531 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ - + .49325, .16996, .29556, .01726, .00781, - + .00164, .01685, .03379, - + .48190, .16508, .27809, .01670, .00785, - + .00182, .01639, .03256, - + .46839, .15940, .25827, .01609, .00782, - + .00203, .01581, .03117, - + .45679, .15455, .24201, .01555, .00775, - + .00218, .01533, .03000, - + .44647, .15027, .22812, .01505, .00768, - + .00230, .01490, .02898, - + .43362, .14499, .21169, .01447, .00755, - + .00241, .01435, .02773, - + .42185, .14024, .19740, .01395, .00739, - + .00248, .01385, .02663, - + .41114, .13595, .18500, .01347, .00724, - + .00254, .01340, .02563 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ - + .40072, .13182, .17348, .01302, .00708, - + .00259, .01297, .02465, - + .39074, .12789, .16298, .01258, .00694, - + .00262, .01256, .02374, - + .38158, .12432, .15372, .01218, .00679, - + .00264, .01219, .02291, - + .37308, .12104, .14552, .01181, .00665, - + .00265, .01183, .02216, - + .36477, .11785, .13780, .01146, .00650, - + .00265, .01149, .02144, - + .35677, .11480, .13066, .01112, .00635, - + .00264, .01115, .02074, - + .34934, .11198, .12427, .01080, .00621, - + .00263, .01085, .02011, - + .34246, .10937, .11857, .01050, .00609, - + .00262, .01056, .01953 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ - + .33567, .10681, .11313, .01021, .00596, - + .00261, .01029, .01897, - + .32906, .10435, .10804, .00993, .00583, - + .00259, .01002, .01842, - + .32292, .10207, .10343, .00968, .00571, - + .00257, .00976, .01791, - + .31713, .09993, .09928, .00944, .00559, - + .00254, .00953, .01744, - + .31142, .09783, .09528, .00922, .00548, - + .00252, .00930, .01698 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ - + .72377, .27060, .69005, .01889, .00094, - + -.00018, .01754, .04879, - + .70551, .26120, .65985, .01896, .00159, - + -.00017, .01768, .04728, - + .67941, .24814, .61250, .01883, .00238, - + -.00014, .01769, .04507, - + .66113, .23922, .57785, .01863, .00285, - + -.00013, .01758, .04349, - + .64256, .23037, .54207, .01835, .00328, - + -.00014, .01740, .04186, - + .62708, .22311, .51218, .01805, .00360, - + -.00015, .01718, .04049, - + .61268, .21641, .48454, .01772, .00388, - + -.00016, .01694, .03921, - + .59767, .20959, .45606, .01735, .00415, - + -.00015, .01665, .03783 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ - + .58493, .20388, .43238, .01700, .00439, - + -.00014, .01636, .03667, - + .57296, .19857, .41061, .01664, .00461, - + -.00013, .01606, .03557, - + .56363, .19448, .39388, .01635, .00476, - + -.00013, .01581, .03471, - + .54429, .18610, .36038, .01572, .00507, - + -.00013, .01527, .03294, - + .52825, .17923, .33370, .01514, .00533, - + -.00002, .01479, .03148, - + .51090, .17195, .30620, .01450, .00558, - + .00029, .01425, .02991, - + .49349, .16476, .28002, .01386, .00577, - + .00066, .01369, .02835, - + .47824, .15855, .25825, .01330, .00588, - + .00092, .01319, .02702 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ - + .46338, .15254, .23808, .01274, .00592, - + .00114, .01270, .02576, - + .45143, .14774, .22261, .01230, .00591, - + .00128, .01230, .02478, - + .43733, .14217, .20525, .01180, .00587, - + .00143, .01184, .02361, - + .42523, .13745, .19117, .01138, .00580, - + .00154, .01143, .02265, - + .41449, .13331, .17923, .01101, .00572, - + .00162, .01106, .02183, - + .40124, .12823, .16518, .01055, .00560, - + .00170, .01062, .02081, - + .38920, .12364, .15312, .01013, .00547, - + .00176, .01022, .01990, - + .37829, .11953, .14275, .00975, .00534, - + .00180, .00986, .01909 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ - + .36766, .11558, .13318, .00940, .00520, - + .00182, .00951, .01831, - + .35757, .11185, .12451, .00905, .00507, - + .00184, .00918, .01758, - + .34834, .10845, .11692, .00873, .00495, - + .00186, .00888, .01692, - + .33980, .10535, .11025, .00845, .00483, - + .00186, .00860, .01632, - + .33147, .10234, .10400, .00818, .00471, - + .00186, .00832, .01574, - + .32348, .09947, .09824, .00792, .00459, - + .00184, .00806, .01518, - + .31608, .09682, .09313, .00768, .00448, - + .00184, .00782, .01468, - + .30923, .09438, .08859, .00746, .00437, - + .00183, .00760, .01423 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ - + .30249, .09200, .08427, .00723, .00427, - + .00182, .00738, .01380, - + .29594, .08970, .08026, .00702, .00417, - + .00180, .00717, .01338, - + .28988, .08759, .07663, .00683, .00408, - + .00178, .00698, .01300, - + .28420, .08560, .07337, .00665, .00399, - + .00177, .00680, .01263, - + .27862, .08366, .07024, .00648, .00390, - + .00175, .00663, .01227 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ - + .71200, .25361, .64700, .01413, .00085, - + -.00006, .01389, .03904, - + .69123, .24386, .60996, .01419, .00140, - + -.00005, .01396, .03767, - + .66186, .23042, .55567, .01408, .00205, - + -.00002, .01389, .03571, - + .64151, .22130, .51776, .01391, .00241, - + -.00002, .01375, .03433, - + .62098, .21230, .47987, .01370, .00274, - + -.00004, .01356, .03288, - + .60398, .20496, .44901, .01347, .00299, - + -.00005, .01334, .03168, - + .58824, .19825, .42101, .01321, .00320, - + -.00003, .01312, .03056, - + .57199, .19140, .39272, .01290, .00338, - + -.00003, .01284, .02941 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ - + .55828, .18568, .36956, .01260, .00355, - + -.00002, .01257, .02843, - + .54545, .18039, .34855, .01232, .00371, - + -.00002, .01231, .02751, - + .53546, .17633, .33263, .01210, .00380, - + -.00002, .01209, .02679, - + .51494, .16805, .30109, .01160, .00401, - + -.00002, .01163, .02530, - + .49799, .16128, .27635, .01113, .00418, - + .00005, .01123, .02409, - + .47980, .15415, .25124, .01063, .00432, - + .00028, .01077, .02279, - + .46165, .14715, .22768, .01014, .00442, - + .00054, .01031, .02151, - + .44586, .14111, .20833, .00969, .00447, - + .00072, .00989, .02043 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ - + .43054, .13532, .19059, .00927, .00448, - + .00087, .00948, .01940, - + .41826, .13073, .17714, .00894, .00445, - + .00097, .00916, .01860, - + .40385, .12540, .16219, .00853, .00440, - + .00107, .00878, .01767, - + .39157, .12089, .15015, .00820, .00432, - + .00114, .00845, .01691, - + .38070, .11694, .14003, .00792, .00424, - + .00119, .00816, .01625, - + .36736, .11211, .12827, .00756, .00413, - + .00124, .00781, .01544, - + .35526, .10780, .11824, .00725, .00402, - + .00128, .00749, .01469, - + .34434, .10395, .10966, .00698, .00391, - + .00130, .00721, .01403 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ - + .33378, .10024, .10181, .00672, .00379, - + .00131, .00692, .01343, - + .32376, .09675, .09476, .00644, .00368, - + .00132, .00666, .01286, - + .31462, .09360, .08861, .00620, .00358, - + .00133, .00642, .01235, - + .30622, .09072, .08323, .00598, .00348, - + .00132, .00620, .01188, - + .29805, .08793, .07823, .00577, .00338, - + .00131, .00599, .01143, - + .29023, .08528, .07365, .00557, .00330, - + .00131, .00578, .01103, - + .28301, .08284, .06960, .00538, .00321, - + .00130, .00559, .01065, - + .27634, .08060, .06600, .00522, .00312, - + .00129, .00543, .01030 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ - + .26979, .07842, .06260, .00506, .00304, - + .00128, .00527, .00995, - + .26347, .07632, .05945, .00491, .00296, - + .00126, .00511, .00961, - + .25762, .07440, .05663, .00476, .00290, - + .00125, .00496, .00931, - + .25214, .07260, .05409, .00463, .00283, - + .00123, .00482, .00903, - + .24676, .07084, .05166, .00450, .00276, - + .00121, .00468, .00876 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ - + .69215, .23508, .59860, .01050, .00072, - + -.00003, .01079, .03075, - + .66932, .22521, .55685, .01056, .00117, - + -.00005, .01082, .02954, - + .63736, .21165, .49831, .01046, .00168, - + -.00005, .01072, .02787, - + .61537, .20254, .45884, .01034, .00198, - + -.00004, .01059, .02665, - + .59337, .19358, .42038, .01015, .00223, - + -.00003, .01040, .02543, - + .57528, .18627, .38968, .00994, .00241, - + -.00004, .01020, .02445, - + .55859, .17961, .36228, .00973, .00257, - + -.00004, .00998, .02352, - + .54143, .17290, .33508, .00951, .00272, - + -.00002, .00974, .02253 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ - + .52705, .16731, .31308, .00927, .00282, - + -.00002, .00952, .02172, - + .51364, .16214, .29329, .00903, .00291, - + -.00003, .00931, .02097, - + .50326, .15819, .27846, .00885, .00298, - + -.00003, .00912, .02037, - + .48197, .15015, .24948, .00845, .00312, - + -.00003, .00874, .01916, - + .46449, .14363, .22707, .00810, .00321, - + .00003, .00840, .01818, - + .44585, .13677, .20459, .00772, .00329, - + .00020, .00803, .01714, - + .42735, .13008, .18378, .00735, .00334, - + .00039, .00765, .01611, - + .41133, .12434, .16688, .00702, .00334, - + .00052, .00732, .01525 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ - + .39589, .11885, .15156, .00668, .00332, - + .00062, .00699, .01445, - + .38356, .11451, .14005, .00642, .00329, - + .00070, .00673, .01380, - + .36916, .10949, .12738, .00612, .00324, - + .00077, .00643, .01307, - + .35693, .10527, .11727, .00588, .00318, - + .00082, .00617, .01245, - + .34615, .10158, .10883, .00566, .00311, - + .00086, .00595, .01192, - + .33298, .09709, .09905, .00537, .00300, - + .00089, .00567, .01130, - + .32106, .09309, .09081, .00513, .00291, - + .00091, .00541, .01074, - + .31034, .08952, .08382, .00492, .00282, - + .00093, .00518, .01023 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ - + .30004, .08611, .07746, .00472, .00273, - + .00094, .00497, .00976, - + .29030, .08290, .07177, .00451, .00264, - + .00094, .00477, .00933, - + .28144, .08000, .06684, .00433, .00256, - + .00094, .00459, .00894, - + .27331, .07737, .06257, .00418, .00248, - + .00093, .00442, .00858, - + .26542, .07483, .05860, .00404, .00241, - + .00093, .00426, .00823, - + .25788, .07243, .05498, .00390, .00234, - + .00092, .00410, .00789, - + .25095, .07022, .05179, .00377, .00227, - + .00091, .00396, .00759, - + .24457, .06819, .04899, .00364, .00221, - + .00090, .00383, .00733 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ - + .23833, .06622, .04634, .00352, .00215, - + .00089, .00371, .00708, - + .23231, .06433, .04391, .00341, .00208, - + .00087, .00358, .00682, - + .22676, .06260, .04172, .00330, .00203, - + .00086, .00347, .00659, - + .22158, .06097, .03977, .00320, .00198, - + .00085, .00337, .00639, - + .21650, .05939, .03791, .00310, .00193, - + .00084, .00327, .00620 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ - + .66550, .21539, .54597, .00763, .00060, - + .00000, .00829, .02389, - + .64109, .20557, .50158, .00767, .00098, - + .00002, .00829, .02287, - + .60712, .19223, .44134, .00762, .00138, - + .00000, .00818, .02141, - + .58396, .18327, .40182, .00752, .00160, - + .00001, .00804, .02043, - + .56093, .17451, .36407, .00737, .00180, - + .00001, .00787, .01941, - + .54207, .16742, .33445, .00723, .00194, - + .00000, .00770, .01856, - + .52479, .16096, .30838, .00706, .00203, - + -.00001, .00750, .01784, - + .50708, .15449, .28289, .00689, .00214, - + -.00001, .00731, .01701 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ - + .49232, .14911, .26249, .00671, .00221, - + -.00001, .00713, .01636, - + .47859, .14416, .24433, .00652, .00227, - + -.00001, .00695, .01576, - + .46798, .14038, .23085, .00639, .00231, - + -.00001, .00680, .01528, - + .44636, .13274, .20476, .00610, .00238, - + .00000, .00648, .01431, - + .42875, .12655, .18484, .00581, .00243, - + .00005, .00622, .01354, - + .41000, .12008, .16510, .00553, .00248, - + .00017, .00592, .01271, - + .39151, .11378, .14702, .00525, .00249, - + .00031, .00561, .01191, - + .37562, .10840, .13253, .00499, .00248, - + .00040, .00534, .01124 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ - + .36034, .10328, .11953, .00474, .00246, - + .00047, .00509, .01059, - + .34818, .09926, .10983, .00453, .00242, - + .00052, .00489, .01008, - + .33404, .09461, .09924, .00432, .00236, - + .00057, .00465, .00952, - + .32207, .09072, .09086, .00414, .00231, - + .00060, .00445, .00905, - + .31155, .08734, .08392, .00399, .00225, - + .00062, .00428, .00863, - + .29875, .08323, .07595, .00378, .00216, - + .00065, .00407, .00814, - + .28724, .07956, .06926, .00359, .00209, - + .00066, .00387, .00772, - + .27693, .07631, .06362, .00343, .00201, - + .00066, .00370, .00735 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ - + .26702, .07323, .05853, .00328, .00195, - + .00067, .00354, .00699, - + .25769, .07032, .05401, .00314, .00188, - + .00067, .00338, .00666, - + .24924, .06770, .05011, .00302, .00181, - + .00066, .00324, .00636, - + .24150, .06533, .04676, .00291, .00176, - + .00065, .00311, .00608, - + .23402, .06306, .04366, .00280, .00170, - + .00065, .00299, .00581, - + .22690, .06090, .04083, .00269, .00165, - + .00064, .00288, .00558, - + .22036, .05893, .03836, .00259, .00160, - + .00063, .00277, .00535, - + .21436, .05713, .03619, .00251, .00155, - + .00062, .00268, .00514 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ - + .20850, .05538, .03415, .00243, .00150, - + .00061, .00259, .00495, - + .20286, .05369, .03227, .00234, .00146, - + .00061, .00249, .00478, - + .19766, .05214, .03059, .00227, .00142, - + .00060, .00241, .00462, - + .19286, .05071, .02911, .00218, .00137, - + .00059, .00234, .00447, - + .18815, .04932, .02769, .00210, .00133, - + .00058, .00227, .00432 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ - + .63299, .19516, .49077, .00541, .00052, - + .00007, .00630, .01826, - + .60742, .18563, .44551, .00545, .00080, - + .00007, .00628, .01742, - + .57219, .17266, .38571, .00542, .00113, - + .00006, .00618, .01619, - + .54832, .16402, .34739, .00534, .00130, - + .00006, .00605, .01539, - + .52469, .15563, .31141, .00526, .00143, - + .00006, .00589, .01456, - + .50542, .14886, .28360, .00517, .00153, - + .00006, .00574, .01388, - + .48786, .14273, .25944, .00503, .00161, - + .00007, .00559, .01329, - + .46994, .13658, .23605, .00490, .00167, - + .00005, .00543, .01264 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ - + .45507, .13148, .21757, .00477, .00171, - + .00005, .00527, .01212, - + .44131, .12680, .20126, .00463, .00174, - + .00004, .00512, .01165, - + .43072, .12324, .18925, .00452, .00177, - + .00005, .00500, .01128, - + .40918, .11608, .16625, .00430, .00181, - + .00006, .00476, .01052, - + .39169, .11031, .14888, .00410, .00183, - + .00007, .00454, .00992, - + .37323, .10429, .13186, .00387, .00184, - + .00015, .00430, .00928, - + .35510, .09846, .11646, .00367, .00184, - + .00025, .00406, .00866, - + .33953, .09351, .10424, .00350, .00182, - + .00031, .00386, .00814 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ - + .32463, .08882, .09337, .00332, .00178, - + .00035, .00367, .00764, - + .31286, .08514, .08531, .00315, .00175, - + .00039, .00351, .00728, - + .29919, .08091, .07660, .00300, .00171, - + .00043, .00333, .00683, - + .28769, .07736, .06976, .00286, .00166, - + .00045, .00318, .00647, - + .27764, .07428, .06412, .00273, .00161, - + .00046, .00304, .00618, - + .26539, .07057, .05771, .00259, .00155, - + .00048, .00288, .00580, - + .25444, .06729, .05238, .00247, .00149, - + .00048, .00274, .00547, - + .24466, .06437, .04791, .00236, .00143, - + .00048, .00261, .00518 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ - + .23531, .06160, .04388, .00225, .00138, - + .00047, .00248, .00492, - + .22650, .05903, .04033, .00215, .00132, - + .00047, .00236, .00467, - + .21853, .05671, .03728, .00207, .00127, - + .00046, .00226, .00444, - + .21128, .05461, .03468, .00199, .00123, - + .00045, .00217, .00425, - + .20430, .05258, .03227, .00191, .00119, - + .00045, .00208, .00407, - + .19770, .05067, .03010, .00182, .00115, - + .00045, .00200, .00390, - + .19163, .04893, .02820, .00175, .00111, - + .00045, .00192, .00374, - + .18606, .04735, .02654, .00168, .00107, - + .00044, .00185, .00358 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ - + .18063, .04582, .02499, .00162, .00104, - + .00043, .00179, .00343, - + .17542, .04435, .02356, .00157, .00100, - + .00042, .00172, .00331, - + .17063, .04301, .02228, .00151, .00097, - + .00042, .00166, .00320, - + .16620, .04176, .02116, .00146, .00094, - + .00041, .00160, .00310, - + .16187, .04054, .02009, .00141, .00091, - + .00040, .00155, .00300 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ - + .59562, .17504, .43481, .00387, .00038, - + .00002, .00466, .01371, - + .56947, .16588, .39023, .00390, .00061, - + .00001, .00462, .01303, - + .53359, .15352, .33267, .00389, .00086, - + .00001, .00452, .01205, - + .50944, .14531, .29650, .00381, .00098, - + .00001, .00442, .01142, - + .48569, .13736, .26306, .00372, .00108, - + .00002, .00429, .01078, - + .46640, .13099, .23758, .00364, .00115, - + .00002, .00418, .01025, - + .44887, .12524, .21567, .00356, .00119, - + .00002, .00405, .00977, - + .43112, .11947, .19475, .00344, .00124, - + .00001, .00392, .00929 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ - + .41636, .11475, .17836, .00335, .00128, - + .00001, .00380, .00888, - + .40274, .11042, .16399, .00327, .00131, - + .00001, .00369, .00849, - + .39235, .10712, .15348, .00319, .00131, - + .00001, .00360, .00820, - + .37129, .10051, .13352, .00300, .00133, - + .00001, .00340, .00763, - + .35424, .09521, .11866, .00286, .00134, - + .00003, .00324, .00715, - + .33630, .08969, .10426, .00271, .00134, - + .00010, .00306, .00667, - + .31880, .08437, .09135, .00256, .00132, - + .00016, .00288, .00620, - + .30385, .07987, .08118, .00242, .00130, - + .00021, .00272, .00580 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ - + .28959, .07562, .07223, .00229, .00127, - + .00024, .00258, .00543, - + .27837, .07229, .06567, .00217, .00124, - + .00027, .00247, .00516, - + .26534, .06851, .05862, .00208, .00120, - + .00031, .00234, .00482, - + .25444, .06534, .05312, .00198, .00116, - + .00032, .00222, .00455, - + .24495, .06259, .04861, .00189, .00112, - + .00032, .00212, .00433, - + .23339, .05929, .04351, .00180, .00108, - + .00033, .00200, .00405, - + .22314, .05636, .03930, .00169, .00103, - + .00032, .00188, .00382, - + .21402, .05379, .03579, .00160, .00099, - + .00032, .00178, .00362 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ - + .20529, .05137, .03265, .00154, .00094, - + .00033, .00170, .00342, - + .19712, .04909, .02990, .00147, .00091, - + .00032, .00162, .00324, - + .18975, .04704, .02755, .00141, .00088, - + .00032, .00155, .00308, - + .18309, .04520, .02554, .00134, .00084, - + .00032, .00149, .00293, - + .17668, .04344, .02369, .00128, .00081, - + .00031, .00143, .00279, - + .17060, .04177, .02204, .00122, .00078, - + .00031, .00136, .00267, - + .16503, .04026, .02060, .00117, .00075, - + .00030, .00130, .00255, - + .15992, .03889, .01934, .00114, .00072, - + .00029, .00125, .00245 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ - + .15497, .03756, .01817, .00110, .00070, - + .00028, .00119, .00235, - + .15024, .03629, .01710, .00106, .00067, - + .00028, .00115, .00226, - + .14591, .03513, .01615, .00101, .00065, - + .00028, .00111, .00218, - + .14187, .03406, .01531, .00098, .00063, - + .00027, .00107, .00209, - + .13793, .03301, .01451, .00095, .00061, - + .00027, .00103, .00202 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ - + .55457, .15523, .37936, .00268, .00031, - + .00003, .00340, .01011, - + .52824, .14658, .33682, .00271, .00048, - + .00004, .00337, .00957, - + .49238, .13498, .28289, .00270, .00063, - + .00003, .00327, .00884, - + .46835, .12734, .24961, .00268, .00072, - + .00003, .00318, .00831, - + .44483, .11996, .21928, .00264, .00079, - + .00003, .00308, .00780, - + .42587, .11405, .19644, .00257, .00084, - + .00003, .00299, .00739, - + .40870, .10873, .17702, .00250, .00088, - + .00002, .00289, .00703, - + .39132, .10346, .15863, .00243, .00089, - + .00002, .00278, .00666 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ - + .37699, .09912, .14436, .00236, .00091, - + .00002, .00269, .00636, - + .36380, .09514, .13195, .00229, .00092, - + .00002, .00260, .00608, - + .35371, .09213, .12296, .00224, .00093, - + .00003, .00253, .00586, - + .33337, .08611, .10599, .00213, .00093, - + .00003, .00238, .00542, - + .31701, .08132, .09350, .00201, .00093, - + .00004, .00226, .00507, - + .29987, .07635, .08150, .00190, .00092, - + .00007, .00212, .00473, - + .28324, .07157, .07085, .00178, .00091, - + .00012, .00198, .00438, - + .26908, .06754, .06255, .00168, .00089, - + .00014, .00187, .00407 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ - + .25562, .06375, .05530, .00161, .00087, - + .00016, .00178, .00379, - + .24508, .06079, .05003, .00152, .00084, - + .00019, .00168, .00360, - + .23290, .05743, .04439, .00144, .00081, - + .00019, .00158, .00335, - + .22275, .05463, .04003, .00137, .00078, - + .00020, .00150, .00315, - + .21393, .05221, .03648, .00130, .00076, - + .00021, .00143, .00298, - + .20320, .04931, .03248, .00124, .00072, - + .00020, .00135, .00280, - + .19374, .04674, .02920, .00116, .00069, - + .00020, .00127, .00263, - + .18535, .04449, .02648, .00109, .00066, - + .00020, .00120, .00248 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ - + .17733, .04238, .02407, .00104, .00063, - + .00020, .00113, .00234, - + .16987, .04040, .02196, .00099, .00060, - + .00021, .00108, .00221, - + .16316, .03862, .02017, .00094, .00057, - + .00020, .00104, .00210, - + .15705, .03704, .01865, .00091, .00055, - + .00020, .00099, .00200, - + .15120, .03552, .01726, .00088, .00053, - + .00019, .00094, .00190, - + .14570, .03409, .01601, .00084, .00051, - + .00019, .00090, .00181, - + .14066, .03280, .01493, .00080, .00049, - + .00019, .00086, .00173, - + .13606, .03162, .01399, .00078, .00047, - + .00019, .00082, .00166 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ - + .13161, .03049, .01311, .00075, .00046, - + .00018, .00078, .00158, - + .12737, .02941, .01232, .00072, .00044, - + .00017, .00075, .00150, - + .12349, .02842, .01161, .00069, .00042, - + .00016, .00073, .00143, - + .11988, .02751, .01099, .00066, .00041, - + .00016, .00070, .00138, - + .11636, .02663, .01040, .00064, .00039, - + .00016, .00067, .00134 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ - + .51084, .13603, .32569, .00178, .00026, - + .00006, .00247, .00732, - + .48479, .12799, .28610, .00180, .00037, - + .00006, .00244, .00691, - + .44948, .11726, .23681, .00180, .00049, - + .00005, .00235, .00635, - + .42596, .11023, .20687, .00180, .00055, - + .00005, .00227, .00596, - + .40308, .10346, .17998, .00176, .00060, - + .00005, .00220, .00556, - + .38471, .09807, .15995, .00170, .00063, - + .00003, .00212, .00525, - + .36812, .09323, .14305, .00164, .00065, - + .00003, .00204, .00499, - + .35140, .08843, .12723, .00161, .00066, - + .00003, .00197, .00469 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ - + .33766, .08451, .11507, .00154, .00067, - + .00003, .00191, .00447, - + .32506, .08093, .10458, .00148, .00068, - + .00004, .00184, .00426, - + .31546, .07822, .09703, .00145, .00068, - + .00004, .00178, .00412, - + .29610, .07282, .08288, .00141, .00067, - + .00003, .00167, .00377, - + .28061, .06854, .07255, .00133, .00067, - + .00004, .00158, .00352, - + .26450, .06412, .06274, .00124, .00067, - + .00007, .00149, .00326, - + .24890, .05989, .05413, .00117, .00065, - + .00010, .00139, .00301, - + .23566, .05633, .04747, .00110, .00064, - + .00011, .00131, .00279 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ - + .22315, .05301, .04170, .00104, .00062, - + .00012, .00122, .00259, - + .21333, .05042, .03753, .00101, .00059, - + .00014, .00117, .00244, - + .20211, .04748, .03312, .00094, .00057, - + .00014, .00109, .00228, - + .19278, .04504, .02972, .00088, .00054, - + .00015, .00103, .00216, - + .18469, .04293, .02696, .00082, .00052, - + .00015, .00098, .00205, - + .17496, .04042, .02389, .00075, .00049, - + .00016, .00092, .00191, - + .16628, .03822, .02139, .00073, .00047, - + .00015, .00086, .00178, - + .15861, .03629, .01933, .00071, .00045, - + .00015, .00081, .00167 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ - + .15138, .03446, .01750, .00067, .00044, - + .00015, .00077, .00157, - + .14465, .03278, .01591, .00063, .00042, - + .00015, .00073, .00147, - + .13860, .03127, .01457, .00060, .00040, - + .00015, .00070, .00139, - + .13316, .02991, .01343, .00057, .00037, - + .00015, .00066, .00133, - + .12793, .02862, .01240, .00054, .00036, - + .00014, .00063, .00126, - + .12300, .02741, .01147, .00052, .00035, - + .00014, .00060, .00120, - + .11851, .02632, .01068, .00049, .00033, - + .00013, .00057, .00114, - + .11443, .02533, .00998, .00047, .00032, - + .00013, .00055, .00108 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ - + .11048, .02437, .00934, .00045, .00031, - + .00013, .00052, .00103, - + .10671, .02346, .00876, .00044, .00030, - + .00012, .00050, .00099, - + .10326, .02264, .00824, .00043, .00029, - + .00012, .00048, .00096, - + .10009, .02189, .00779, .00041, .00027, - + .00012, .00046, .00092, - + .09700, .02115, .00736, .00039, .00026, - + .00012, .00044, .00088 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ - + .46537, .11786, .27509, .00117, .00018, - + .00005, .00174, .00524, - + .43999, .11050, .23911, .00119, .00027, - + .00005, .00171, .00488, - + .40580, .10069, .19510, .00116, .00036, - + .00003, .00165, .00446, - + .38318, .09430, .16878, .00113, .00041, - + .00003, .00160, .00418, - + .36125, .08817, .14541, .00110, .00045, - + .00003, .00154, .00388, - + .34365, .08332, .12822, .00109, .00048, - + .00003, .00149, .00364, - + .32785, .07898, .11385, .00105, .00049, - + .00004, .00144, .00345, - + .31205, .07469, .10050, .00102, .00050, - + .00003, .00138, .00323 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ - + .29907, .07119, .09034, .00098, .00050, - + .00003, .00133, .00306, - + .28717, .06802, .08162, .00095, .00050, - + .00003, .00128, .00292, - + .27812, .06561, .07538, .00093, .00050, - + .00003, .00124, .00281, - + .26005, .06084, .06383, .00087, .00050, - + .00003, .00116, .00259, - + .24562, .05707, .05549, .00082, .00049, - + .00003, .00110, .00240, - + .23066, .05320, .04762, .00077, .00048, - + .00006, .00103, .00220, - + .21624, .04952, .04076, .00072, .00046, - + .00007, .00096, .00201, - + .20407, .04643, .03552, .00067, .00045, - + .00009, .00090, .00187 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ - + .19261, .04353, .03102, .00062, .00043, - + .00010, .00084, .00175, - + .18367, .04129, .02778, .00058, .00042, - + .00010, .00080, .00165, - + .17344, .03875, .02438, .00056, .00040, - + .00011, .00074, .00154, - + .16495, .03666, .02177, .00053, .00038, - + .00011, .00070, .00143, - + .15762, .03487, .01967, .00051, .00037, - + .00012, .00067, .00134, - + .14883, .03273, .01735, .00047, .00035, - + .00012, .00063, .00124, - + .14106, .03085, .01546, .00043, .00033, - + .00012, .00059, .00117, - + .13422, .02921, .01392, .00041, .00031, - + .00012, .00055, .00111 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ - + .12774, .02767, .01256, .00039, .00029, - + .00012, .00052, .00104, - + .12175, .02626, .01138, .00037, .00028, - + .00012, .00049, .00097, - + .11639, .02500, .01039, .00035, .00027, - + .00011, .00047, .00091, - + .11156, .02386, .00956, .00033, .00026, - + .00011, .00044, .00086, - + .10694, .02278, .00880, .00032, .00025, - + .00011, .00042, .00081, - + .10259, .02177, .00813, .00031, .00024, - + .00011, .00040, .00077, - + .09865, .02086, .00754, .00030, .00023, - + .00011, .00038, .00073, - + .09508, .02003, .00704, .00029, .00022, - + .00011, .00037, .00070 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ - + .09162, .01924, .00657, .00027, .00021, - + .00010, .00035, .00067, - + .08833, .01850, .00615, .00026, .00020, - + .00010, .00034, .00064, - + .08533, .01782, .00578, .00025, .00020, - + .00010, .00033, .00061, - + .08258, .01719, .00546, .00023, .00019, - + .00009, .00031, .00058, - + .07990, .01658, .00515, .00022, .00018, - + .00009, .00030, .00056 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ - + .41926, .10103, .22870, .00085, .00008, - + -.00003, .00114, .00363, - + .39493, .09439, .19681, .00085, .00015, - + -.00003, .00112, .00339, - + .36233, .08558, .15843, .00083, .00021, - + -.00003, .00108, .00308, - + .34084, .07986, .13581, .00083, .00024, - + -.00001, .00104, .00288, - + .32015, .07441, .11593, .00081, .00027, - + -.00001, .00100, .00267, - + .30364, .07012, .10144, .00078, .00028, - + -.00002, .00096, .00250, - + .28883, .06631, .08947, .00076, .00028, - + -.00002, .00092, .00235, - + .27408, .06250, .07843, .00074, .00030, - + -.00001, .00088, .00219 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ - + .26199, .05942, .07011, .00073, .00030, - + -.00001, .00084, .00207, - + .25097, .05664, .06302, .00070, .00030, - + -.00001, .00081, .00197, - + .24265, .05454, .05796, .00067, .00030, - + -.00001, .00079, .00189, - + .22598, .05039, .04865, .00062, .00030, - + -.00001, .00073, .00172, - + .21274, .04711, .04200, .00059, .00029, - + .00000, .00068, .00160, - + .19905, .04376, .03578, .00055, .00028, - + .00000, .00063, .00147, - + .18592, .04058, .03042, .00052, .00027, - + .00002, .00059, .00135, - + .17488, .03793, .02635, .00048, .00026, - + .00004, .00055, .00126 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ - + .16451, .03546, .02288, .00046, .00025, - + .00004, .00052, .00117, - + .15646, .03356, .02039, .00044, .00024, - + .00004, .00048, .00109, - + .14731, .03141, .01781, .00041, .00023, - + .00005, .00045, .00101, - + .13973, .02964, .01584, .00039, .00022, - + .00005, .00043, .00094, - + .13320, .02811, .01425, .00036, .00021, - + .00005, .00040, .00089, - + .12537, .02631, .01252, .00035, .00020, - + .00006, .00037, .00082, - + .11849, .02474, .01112, .00032, .00019, - + .00005, .00035, .00076, - + .11246, .02337, .00997, .00030, .00017, - + .00005, .00032, .00071 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ - + .10677, .02208, .00897, .00029, .00016, - + .00005, .00031, .00066, - + .10150, .02090, .00811, .00028, .00016, - + .00005, .00029, .00062, - + .09679, .01985, .00738, .00027, .00015, - + .00005, .00028, .00058, - + .09257, .01891, .00677, .00025, .00014, - + .00005, .00026, .00055, - + .08855, .01802, .00622, .00024, .00013, - + .00005, .00025, .00052, - + .08479, .01718, .00573, .00023, .00013, - + .00005, .00023, .00049, - + .08137, .01643, .00531, .00022, .00012, - + .00005, .00022, .00046, - + .07827, .01576, .00495, .00021, .00012, - + .00005, .00021, .00044 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ - + .07528, .01511, .00462, .00020, .00012, - + .00005, .00020, .00042, - + .07245, .01450, .00432, .00019, .00011, - + .00004, .00019, .00040, - + .06987, .01394, .00405, .00019, .00010, - + .00004, .00018, .00038, - + .06749, .01343, .00382, .00018, .00010, - + .00004, .00017, .00037, - + .06519, .01294, .00360, .00018, .00009, - + .00004, .00016, .00036 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ - + .37306, .08521, .18631, .00046, .00009, - + .00004, .00081, .00246, - + .35005, .07932, .15879, .00048, .00014, - + .00003, .00079, .00228, - + .31947, .07156, .12606, .00046, .00017, - + .00004, .00075, .00206, - + .29941, .06654, .10707, .00047, .00018, - + .00004, .00072, .00191, - + .28013, .06177, .09057, .00047, .00019, - + .00003, .00069, .00176, - + .26483, .05802, .07864, .00045, .00020, - + .00003, .00065, .00165, - + .25114, .05469, .06888, .00044, .00020, - + .00004, .00063, .00156, - + .23755, .05143, .05997, .00045, .00021, - + .00004, .00059, .00144 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ - + .22650, .04878, .05327, .00043, .00021, - + .00003, .00056, .00136, - + .21644, .04638, .04761, .00040, .00021, - + .00002, .00054, .00128, - + .20884, .04458, .04361, .00040, .00021, - + .00002, .00051, .00123, - + .19371, .04102, .03630, .00036, .00020, - + .00002, .00049, .00113, - + .18170, .03823, .03112, .00036, .00020, - + .00002, .00045, .00104, - + .16937, .03538, .02632, .00034, .00019, - + .00003, .00042, .00096, - + .15762, .03269, .02222, .00031, .00018, - + .00004, .00038, .00088, - + .14777, .03046, .01913, .00029, .00017, - + .00004, .00036, .00081 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ - + .13854, .02838, .01651, .00027, .00016, - + .00004, .00033, .00074, - + .13141, .02679, .01465, .00026, .00016, - + .00005, .00032, .00069, - + .12332, .02498, .01273, .00025, .00015, - + .00005, .00029, .00064, - + .11664, .02351, .01127, .00023, .00014, - + .00005, .00027, .00060, - + .11089, .02225, .01011, .00022, .00014, - + .00005, .00025, .00057, - + .10407, .02076, .00884, .00020, .00013, - + .00004, .00024, .00051, - + .09806, .01946, .00782, .00020, .00012, - + .00004, .00022, .00047, - + .09279, .01833, .00699, .00019, .00011, - + .00004, .00021, .00044 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ - + .08786, .01728, .00627, .00018, .00010, - + .00004, .00019, .00041, - + .08331, .01631, .00565, .00017, .00010, - + .00004, .00018, .00039, - + .07926, .01545, .00513, .00016, .00010, - + .00004, .00017, .00037, - + .07564, .01469, .00470, .00015, .00009, - + .00004, .00016, .00034, - + .07219, .01396, .00431, .00014, .00009, - + .00003, .00016, .00032, - + .06896, .01329, .00396, .00014, .00008, - + .00003, .00015, .00030, - + .06605, .01269, .00367, .00013, .00007, - + .00003, .00014, .00029, - + .06343, .01214, .00341, .00011, .00007, - + .00003, .00013, .00028 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ - + .06090, .01162, .00318, .00011, .00006, - + .00003, .00012, .00026, - + .05848, .01113, .00296, .00011, .00006, - + .00003, .00011, .00025, - + .05629, .01068, .00278, .00012, .00006, - + .00003, .00011, .00024, - + .05429, .01027, .00261, .00011, .00006, - + .00003, .00010, .00023, - + .05236, .00988, .00246, .00011, .00006, - + .00003, .00010, .00021 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ - + .32775, .07094, .14890, .00023, .00009, - + .00006, .00055, .00164, - + .30638, .06579, .12568, .00024, .00011, - + .00006, .00053, .00151, - + .27806, .05904, .09841, .00025, .00012, - + .00005, .00050, .00134, - + .25959, .05470, .08280, .00026, .00013, - + .00005, .00048, .00123, - + .24193, .05058, .06939, .00025, .00014, - + .00004, .00045, .00114, - + .22797, .04735, .05981, .00024, .00014, - + .00004, .00043, .00107, - + .21552, .04451, .05202, .00025, .00014, - + .00002, .00041, .00101, - + .20328, .04171, .04498, .00023, .00015, - + .00004, .00039, .00093 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ - + .19328, .03946, .03972, .00023, .00015, - + .00004, .00038, .00086, - + .18420, .03742, .03529, .00023, .00014, - + .00003, .00036, .00081, - + .17739, .03589, .03219, .00022, .00014, - + .00003, .00034, .00078, - + .16384, .03289, .02657, .00020, .00014, - + .00003, .00031, .00073, - + .15316, .03055, .02262, .00019, .00014, - + .00003, .00029, .00066, - + .14222, .02817, .01899, .00019, .00013, - + .00004, .00027, .00059, - + .13182, .02593, .01592, .00017, .00012, - + .00003, .00025, .00055, - + .12316, .02407, .01362, .00016, .00011, - + .00003, .00023, .00050 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ - + .11509, .02236, .01169, .00015, .00011, - + .00003, .00021, .00045, - + .10884, .02104, .01033, .00015, .00011, - + .00004, .00020, .00042, - + .10181, .01957, .00893, .00013, .00010, - + .00004, .00019, .00039, - + .09601, .01836, .00788, .00012, .00009, - + .00003, .00018, .00037, - + .09103, .01733, .00704, .00012, .00008, - + .00003, .00017, .00034, - + .08513, .01612, .00613, .00013, .00008, - + .00004, .00016, .00030, - + .07998, .01507, .00540, .00012, .00008, - + .00003, .00014, .00028, - + .07549, .01415, .00481, .00011, .00007, - + .00003, .00013, .00026 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ - + .07127, .01330, .00430, .00010, .00007, - + .00003, .00012, .00024, - + .06741, .01252, .00387, .00009, .00006, - + .00003, .00011, .00023, - + .06398, .01183, .00351, .00008, .00006, - + .00003, .00011, .00023, - + .06092, .01122, .00320, .00007, .00006, - + .00003, .00010, .00021, - + .05801, .01065, .00293, .00007, .00005, - + .00003, .00009, .00020, - + .05529, .01011, .00269, .00007, .00005, - + .00003, .00009, .00019, - + .05284, .00963, .00249, .00007, .00005, - + .00003, .00008, .00018, - + .05063, .00920, .00231, .00007, .00005, - + .00003, .00008, .00016 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ - + .04851, .00878, .00215, .00007, .00004, - + .00002, .00007, .00015, - + .04652, .00840, .00200, .00006, .00004, - + .00002, .00007, .00014, - + .04471, .00804, .00187, .00005, .00004, - + .00002, .00007, .00014, - + .04303, .00772, .00176, .00006, .00004, - + .00002, .00007, .00013, - + .04141, .00741, .00165, .00006, .00004, - + .00002, .00006, .00013 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ - + .28421, .05829, .11677, .00019, .00003, - + .00001, .00033, .00105, - + .26466, .05386, .09760, .00018, .00004, - + .00000, .00031, .00097, - + .23888, .04807, .07541, .00017, .00005, - + .00000, .00030, .00087, - + .22214, .04437, .06288, .00019, .00006, - + .00001, .00028, .00079, - + .20620, .04088, .05222, .00020, .00007, - + .00002, .00026, .00071, - + .19369, .03815, .04467, .00019, .00008, - + .00001, .00025, .00066, - + .18260, .03575, .03858, .00015, .00007, - + .00000, .00023, .00064, - + .17160, .03340, .03313, .00018, .00007, - + .00000, .00021, .00058 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ - + .16274, .03151, .02910, .00017, .00007, - + .00001, .00021, .00055, - + .15473, .02981, .02573, .00015, .00007, - + .00001, .00020, .00051, - + .14870, .02854, .02337, .00014, .00007, - + .00000, .00019, .00049, - + .13676, .02605, .01912, .00014, .00007, - + .00000, .00017, .00044, - + .12742, .02412, .01618, .00012, .00007, - + .00000, .00016, .00041, - + .11787, .02215, .01349, .00012, .00006, - + .00001, .00015, .00037, - + .10881, .02031, .01123, .00012, .00006, - + .00001, .00014, .00033, - + .10130, .01880, .00956, .00012, .00006, - + .00001, .00013, .00031 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ - + .09434, .01740, .00816, .00011, .00005, - + .00002, .00012, .00028, - + .08899, .01633, .00718, .00010, .00005, - + .00002, .00011, .00027, - + .08296, .01513, .00618, .00010, .00005, - + .00002, .00010, .00023, - + .07801, .01416, .00543, .00009, .00004, - + .00002, .00009, .00021, - + .07378, .01333, .00484, .00009, .00004, - + .00002, .00008, .00020, - + .06877, .01236, .00420, .00008, .00004, - + .00001, .00008, .00019, - + .06440, .01152, .00369, .00007, .00004, - + .00001, .00007, .00018, - + .06062, .01079, .00328, .00007, .00003, - + .00001, .00007, .00016 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ - + .05711, .01011, .00292, .00006, .00003, - + .00001, .00006, .00015, - + .05385, .00950, .00262, .00006, .00003, - + .00001, .00006, .00014, - + .05097, .00895, .00237, .00006, .00003, - + .00001, .00006, .00013, - + .04841, .00847, .00216, .00006, .00003, - + .00001, .00005, .00012, - + .04599, .00802, .00197, .00006, .00003, - + .00001, .00005, .00012, - + .04375, .00760, .00181, .00005, .00002, - + .00001, .00005, .00011, - + .04173, .00722, .00167, .00005, .00002, - + .00001, .00004, .00010, - + .03991, .00688, .00155, .00004, .00002, - + .00001, .00004, .00010 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ - + .03816, .00656, .00144, .00004, .00002, - + .00001, .00004, .00010, - + .03651, .00626, .00134, .00004, .00002, - + .00001, .00004, .00009, - + .03501, .00599, .00125, .00004, .00002, - + .00001, .00004, .00008, - + .03366, .00574, .00117, .00004, .00002, - + .00001, .00003, .00008, - + .03235, .00550, .00110, .00003, .00002, - + .00001, .00003, .00008 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ - + .24262, .04695, .08929, .00004, .00005, - + .00005, .00024, .00065, - + .22497, .04320, .07387, .00006, .00005, - + .00003, .00021, .00060, - + .20187, .03836, .05633, .00008, .00005, - + .00004, .00019, .00052, - + .18704, .03526, .04653, .00007, .00005, - + .00004, .00018, .00048, - + .17296, .03235, .03829, .00006, .00005, - + .00003, .00017, .00043, - + .16189, .03010, .03250, .00006, .00005, - + .00003, .00016, .00040, - + .15210, .02812, .02788, .00007, .00006, - + .00003, .00015, .00038, - + .14249, .02619, .02377, .00007, .00005, - + .00002, .00013, .00034 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ - + .13475, .02464, .02074, .00006, .00005, - + .00002, .00013, .00032, - + .12776, .02325, .01823, .00005, .00006, - + .00003, .00013, .00030, - + .12251, .02221, .01649, .00006, .00005, - + .00003, .00013, .00028, - + .11219, .02018, .01339, .00006, .00005, - + .00002, .00012, .00025, - + .10412, .01861, .01125, .00006, .00005, - + .00002, .00011, .00024, - + .09592, .01703, .00932, .00005, .00004, - + .00002, .00010, .00022, - + .08821, .01555, .00771, .00005, .00004, - + .00002, .00009, .00019, - + .08183, .01434, .00652, .00005, .00003, - + .00002, .00008, .00017 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ - + .07593, .01323, .00554, .00004, .00003, - + .00002, .00007, .00016, - + .07141, .01238, .00485, .00004, .00003, - + .00002, .00007, .00015, - + .06633, .01143, .00416, .00004, .00003, - + .00002, .00006, .00013, - + .06218, .01067, .00364, .00004, .00003, - + .00002, .00006, .00012, - + .05865, .01001, .00323, .00003, .00003, - + .00001, .00005, .00011, - + .05449, .00925, .00279, .00003, .00002, - + .00002, .00005, .00011, - + .05086, .00859, .00245, .00004, .00002, - + .00001, .00004, .00010, - + .04772, .00803, .00217, .00004, .00002, - + .00001, .00004, .00009 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ - + .04482, .00750, .00193, .00003, .00002, - + .00001, .00004, .00009, - + .04216, .00703, .00172, .00003, .00002, - + .00001, .00004, .00008, - + .03981, .00661, .00156, .00003, .00002, - + .00001, .00004, .00007, - + .03772, .00624, .00142, .00002, .00002, - + .00001, .00003, .00007, - + .03574, .00589, .00129, .00002, .00002, - + .00001, .00003, .00007, - + .03391, .00557, .00118, .00002, .00002, - + .00001, .00003, .00006, - + .03227, .00528, .00109, .00002, .00001, - + .00001, .00003, .00006, - + .03079, .00502, .00101, .00002, .00001, - + .00001, .00003, .00005 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ - + .02938, .00478, .00094, .00002, .00001, - + .00001, .00003, .00005, - + .02806, .00455, .00087, .00002, .00001, - + .00001, .00002, .00005, - + .02686, .00434, .00081, .00002, .00001, - + .00001, .00002, .00005, - + .02577, .00415, .00076, .00002, .00001, - + .00001, .00002, .00004, - + .02472, .00397, .00072, .00002, .00001, - + .00001, .00002, .00004 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ - + .16838, .02892, .04846, .00002, .00000, - + .00000, .00006, .00024, - + .15481, .02640, .03932, .00004, .00001, - + .00000, .00006, .00020, - + .13729, .02315, .02915, .00002, .00001, - + .00000, .00006, .00017, - + .12611, .02111, .02363, .00002, .00001, - + .00000, .00005, .00016, - + .11562, .01921, .01908, .00002, .00001, - + .00000, .00004, .00015, - + .10745, .01774, .01595, .00001, .00001, - + .00000, .00004, .00014, - + .10029, .01646, .01349, .00002, .00001, - + .00000, .00004, .00013, - + .09330, .01523, .01135, .00002, .00001, - + .00000, .00004, .00010 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ - + .08770, .01424, .00979, .00002, .00001, - + .00000, .00004, .00009, - + .08267, .01337, .00852, .00002, .00001, - + .00000, .00004, .00009, - + .07894, .01271, .00765, .00002, .00001, - + .00000, .00004, .00010, - + .07164, .01145, .00610, .00001, .00001, - + .00000, .00003, .00009, - + .06598, .01048, .00506, .00002, .00001, - + .00000, .00003, .00007, - + .06028, .00951, .00413, .00002, .00001, - + .00000, .00003, .00006, - + .05495, .00861, .00338, .00002, .00001, - + .00000, .00003, .00006, - + .05059, .00788, .00283, .00001, .00001, - + .00000, .00003, .00005 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ - + .04659, .00722, .00238, .00001, .00001, - + .00000, .00002, .00005, - + .04355, .00671, .00207, .00001, .00001, - + .00000, .00002, .00004, - + .04017, .00615, .00176, .00001, .00001, - + .00000, .00002, .00004, - + .03741, .00570, .00153, .00001, .00001, - + .00000, .00002, .00004, - + .03508, .00533, .00135, .00001, .00001, - + .00000, .00002, .00004, - + .03236, .00488, .00116, .00000, .00001, - + .00001, .00001, .00004, - + .03002, .00451, .00101, .00000, .00001, - + .00001, .00001, .00003, - + .02800, .00418, .00089, .00000, .00001, - + .00001, .00001, .00003 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ - + .02613, .00389, .00079, .00001, .00001, - + .00000, .00001, .00002, - + .02443, .00362, .00070, .00000, .00001, - + .00000, .00001, .00002, - + .02294, .00339, .00063, .00000, .00000, - + .00000, .00001, .00002, - + .02162, .00318, .00057, .00001, .00000, - + .00000, .00001, .00002, - + .02039, .00299, .00052, .00001, .00000, - + .00000, .00001, .00002, - + .01925, .00281, .00048, .00000, .00000, - + .00000, .00001, .00002, - + .01823, .00265, .00044, .00000, .00000, - + .00000, .00001, .00001, - + .01732, .00251, .00040, .00000, .00000, - + .00000, .00001, .00001 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/ - + .01646, .00238, .00037, .00000, .00000, - + .00000, .00001, .00001, - + .01565, .00226, .00035, .00000, .00000, - + .00000, .00001, .00001, - + .01492, .00214, .00032, .00000, .00000, - + .00000, .00001, .00001, - + .01426, .00204, .00030, .00000, .00000, - + .00000, .00001, .00001, - + .01363, .00195, .00028, .00000, .00000, - + .00000, .00001, .00001 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/ - + .10767, .01621, .02318, .00001, -.00001, - + -.00001, .00001, .00007, - + .09810, .01466, .01842, .00002, -.00001, - + -.00001, .00001, .00006, - + .08588, .01270, .01328, .00000, .00000, - + .00000, .00001, .00005, - + .07817, .01147, .01056, .00000, .00000, - + .00000, .00001, .00005, - + .07101, .01035, .00836, .00000, .00000, - + .00000, .00001, .00004, - + .06549, .00949, .00689, .00000, .00000, - + -.00001, .00000, .00003, - + .06069, .00874, .00575, .00000, .00000, - + .00000, .00001, .00003, - + .05603, .00803, .00476, .00001, .00000, - + .00000, .00001, .00003 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ - + .05233, .00746, .00407, .00001, .00000, - + .00000, .00001, .00003, - + .04903, .00695, .00350, .00000, .00000, - + .00000, .00001, .00003, - + .04660, .00658, .00312, .00000, .00000, - + .00000, .00001, .00002, - + .04187, .00587, .00245, .00000, .00000, - + .00000, .00001, .00002, - + .03824, .00533, .00200, .00000, .00000, - + .00000, .00001, .00002, - + .03462, .00479, .00162, .00000, .00000, - + .00000, .00001, .00002, - + .03128, .00430, .00131, .00000, .00000, - + .00000, .00000, .00002, - + .02856, .00390, .00108, .00000, .00000, - + .00000, .00000, .00001 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/ - + .02608, .00355, .00090, .00000, .00000, - + .00000, .00000, .00001, - + .02422, .00328, .00078, .00000, .00000, - + .00000, .00000, .00001, - + .02215, .00298, .00066, .00000, .00000, - + .00000, .00000, .00001, - + .02049, .00274, .00057, .00000, .00000, - + .00000, .00000, .00001, - + .01910, .00255, .00050, .00000, .00000, - + .00000, .00000, .00001, - + .01748, .00232, .00043, .00000, .00000, - + .00000, .00000, .00001, - + .01610, .00212, .00037, .00000, .00000, - + .00000, .00000, .00001, - + .01491, .00196, .00033, .00000, .00000, - + .00000, .00000, .00001 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/ - + .01383, .00181, .00029, .00000, .00000, - + .00000, .00000, .00000, - + .01285, .00167, .00026, .00000, .00000, - + .00000, .00000, .00000, - + .01199, .00156, .00023, .00000, .00000, - + .00000, .00000, .00000, - + .01124, .00145, .00021, .00000, .00000, - + .00000, .00000, .00000, - + .01054, .00136, .00019, .00000, .00000, - + .00000, .00000, .00000, - + .00990, .00127, .00017, .00000, .00000, - + .00000, .00000, .00000, - + .00933, .00119, .00016, .00000, .00000, - + .00000, .00000, .00000, - + .00882, .00113, .00015, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/ - + .00834, .00106, .00013, .00000, .00000, - + .00000, .00000, .00000, - + .00790, .00100, .00013, .00000, .00000, - + .00000, .00000, .00000, - + .00750, .00095, .00012, .00000, .00000, - + .00000, .00000, .00000, - + .00713, .00090, .00011, .00000, .00000, - + .00000, .00000, .00000, - + .00679, .00085, .00010, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/ - + .06184, .00801, .00938, .00001, -.00001, - + -.00001, .00000, .00001, - + .05579, .00718, .00729, .00000, -.00001, - + -.00001, .00000, .00001, - + .04812, .00613, .00511, .00001, -.00001, - + -.00001, .00000, .00001, - + .04336, .00548, .00398, .00000, -.00001, - + -.00001, .00000, .00001, - + .03898, .00490, .00309, .00000, .00000, - + .00000, .00000, .00001, - + .03564, .00445, .00250, .00000, -.00001, - + .00000, .00000, .00001, - + .03276, .00407, .00206, .00000, -.00001, - + .00000, .00000, .00001, - + .02999, .00370, .00168, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/ - + .02781, .00342, .00142, .00000, .00000, - + .00000, .00000, .00000, - + .02588, .00317, .00121, .00000, .00000, - + .00000, .00000, .00001, - + .02447, .00298, .00107, .00000, .00000, - + .00000, .00000, .00001, - + .02174, .00263, .00083, .00000, .00000, - + .00000, .00000, .00000, - + .01967, .00237, .00067, .00000, .00000, - + .00000, .00000, .00000, - + .01763, .00211, .00053, .00000, .00000, - + .00000, .00000, .00000, - + .01576, .00187, .00043, .00000, .00000, - + .00000, .00000, .00000, - + .01426, .00168, .00035, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/ - + .01290, .00151, .00029, .00000, .00000, - + .00000, .00000, .00000, - + .01190, .00139, .00025, .00000, .00000, - + .00000, .00000, .00000, - + .01078, .00125, .00021, .00000, .00000, - + .00000, .00000, .00000, - + .00990, .00114, .00018, .00000, .00000, - + .00000, .00000, .00000, - + .00916, .00105, .00016, .00000, .00000, - + .00000, .00000, .00000, - + .00831, .00095, .00014, .00000, .00000, - + .00000, .00000, .00000, - + .00759, .00087, .00012, .00000, .00000, - + .00000, .00000, .00000, - + .00698, .00079, .00010, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/ - + .00642, .00073, .00009, .00000, .00000, - + .00000, .00000, .00000, - + .00593, .00067, .00008, .00000, .00000, - + .00000, .00000, .00000, - + .00550, .00062, .00007, .00000, .00000, - + .00000, .00000, .00000, - + .00512, .00057, .00007, .00000, .00000, - + .00000, .00000, .00000, - + .00477, .00053, .00006, .00000, .00000, - + .00000, .00000, .00000, - + .00445, .00049, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00417, .00046, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00393, .00043, .00005, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/ - + .00369, .00041, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00348, .00038, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00328, .00036, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00311, .00034, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00295, .00032, .00003, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/ - + .03040, .00330, .00298, -.00001, .00000, - + .00000, .00000, .00000, - + .02710, .00292, .00226, .00000, .00000, - + .00000, .00000, .00000, - + .02299, .00245, .00154, .00000, .00000, - + .00000, .00000, .00000, - + .02047, .00217, .00117, .00000, .00000, - + .00000, .00000, .00000, - + .01818, .00191, .00089, .00000, .00000, - + .00000, .00000, .00000, - + .01646, .00172, .00071, .00000, .00000, - + .00000, .00000, .00000, - + .01499, .00156, .00058, .00000, .00000, - + .00000, .00000, .00000, - + .01359, .00141, .00046, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/ - + .01250, .00129, .00039, .00000, .00000, - + .00000, .00000, .00000, - + .01154, .00118, .00033, .00000, .00000, - + .00000, .00000, .00000, - + .01084, .00111, .00029, .00000, .00000, - + .00000, .00000, .00000, - + .00951, .00097, .00022, .00000, .00000, - + .00000, .00000, .00000, - + .00851, .00086, .00018, .00000, .00000, - + .00000, .00000, .00000, - + .00754, .00076, .00014, .00000, .00000, - + .00000, .00000, .00000, - + .00666, .00066, .00011, .00000, .00000, - + .00000, .00000, .00000, - + .00596, .00059, .00009, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/ - + .00533, .00053, .00007, .00000, .00000, - + .00000, .00000, .00000, - + .00487, .00048, .00006, .00000, .00000, - + .00000, .00000, .00000, - + .00437, .00043, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00398, .00039, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00365, .00035, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00328, .00032, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00297, .00028, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00270, .00026, .00003, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/ - + .00247, .00023, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00226, .00021, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00208, .00020, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00192, .00018, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00178, .00017, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00165, .00015, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00153, .00014, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00143, .00013, .00001, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/ - + .00134, .00012, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00125, .00012, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00118, .00011, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00111, .00010, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00104, .00010, .00001, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/ - + .00299, .00019, .00007, .00000, .00000, - + .00000, .00000, .00000, - + .00258, .00017, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00208, .00013, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00179, .00011, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00154, .00010, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00135, .00008, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00120, .00007, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00106, .00007, .00001, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/ - + .00095, .00006, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00086, .00005, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00079, .00005, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00067, .00004, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00058, .00004, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00050, .00003, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00042, .00003, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00037, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/ - + .00032, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00028, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00025, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00022, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00020, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00017, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00015, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00013, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ - + .00012, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00011, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00009, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00009, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00008, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00007, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00006, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00006, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ - + .00005, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00005, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00004, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00004, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00004, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA XX/1D-5,2D-5,4D-5,6D-5,8D-5, - . 1D-4,2D-4,4D-4,6D-4,8D-4, - . 1D-3,2D-3,4D-3,6D-3,8D-3, - . 1D-2,1.4D-2,2D-2,3D-2,4D-2,6D-2,8D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1D0/ - DATA QQ/1.25D0,1.5D0,2D0,2.5D0,3.2D0,4D0,5D0,6.4D0,8D0,1D1, - . 1.2D1,1.8D1,2.6D1,4D1,6.4D1,1D2, - . 1.6D2,2.4D2,4D2,6.4D2,1D3,1.8D3,3.2D3,5.6D3,1D4, - . 1.8D4,3.2D4,5.6D4,1D5,1.8D5,3.2D5,5.6D5,1D6, - . 1.8D6,3.2D6,5.6D6,1D7/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1D-5,1D0,1.25D0,1D7/ - DATA N0/3,4,5,9,9,9,9,9/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ - SAVE - XSAVE=X - Q2SAVE=QSQ - IF(INIT.NE.0) GOTO 10 -C OPEN(UNIT=1,FILE='MRSR2.DAT',STATUS='OLD') - DO 20 N=1,NX-1 - DO 20 M=1,NQ -C READ(1,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M), -C . F(5,N,M),F(7,N,M),F(6,N,M),F(8,N,M) -C NOTATION: 1=UVAL 2=VAL 3=GLUE 4=USEA 5=CHM 6=STR 7=BTM 8=DSEA - DO 25 I=1,NP - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J)/XX(NTENTH))+XX(NTENTH) - DO 31 I=1,8 - IF(I.EQ.5.OR.I.EQ.7) GOTO 31 - DO 30 K=1,NQ - 30 F(I,J,K)= LOG10(F(I,J,K)/F(I,NTENTH,K))+F(I,NTENTH,K) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,NP - DO 40 M=1,NQ - 40 F(I,NX,M)=ZEROD - INIT=1 - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.XX(NTENTH)) XXX= LOG10(X/XX(NTENTH))+XX(NTENTH) - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - M=0 - 80 M=M+1 - IF(QSQ.GT.QQ(M+1)) GOTO 80 - B=(QSQ-QQ(M))/(QQ(M+1)-QQ(M)) - DO 60 I=1,NP - G(I)= (ONED-A)*(ONED-B)*F(I,N,M) + (ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.5.OR.I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC*10D0**(G(I)-FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) - X=XSAVE - QSQ=Q2SAVE - RETURN - END diff --git a/PDF/spdf/sfmsr3.F b/PDF/spdf/sfmsr3.F deleted file mode 100644 index adc4f5a09c8..00000000000 --- a/PDF/spdf/sfmsr3.F +++ /dev/null @@ -1,3879 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE SFMSR3(X,QSQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) -C -#include "pdf/impdp.inc" -C - PARAMETER(NX=49,NQ=37,NTENTH=23,NP=8) -#include "pdf/expdp.inc" - + F(NP,NX,NQ+1),QQ(NQ),XX(NX),G(NP),N0(NP) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/ - + .00181, .00812, 5.27909, .39654, .00527, - + .00000, .24132, .40023, - + .00195, .00822, 7.12456, .49402, .01190, - + .00000, .32619, .49790, - + .00217, .00836, 10.57419, .66665, .02856, - + .00000, .47709, .67082, - + .00233, .00846, 13.61452, .81163, .04836, - + .00000, .60458, .81600, - + .00250, .00857, 17.36051, .98262, .07986, - + .00000, .75604, .98720, - + .00265, .00867, 21.08157, 1.14528, .11947, - + .00000, .90147, 1.15004, - + .00279, .00876, 24.99563, 1.31014, .17161, - + .00000, 1.05055, 1.31506, - + .00295, .00885, 29.70444, 1.49966, .24790, - + .00000, 1.22424, 1.50477 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ - + .00309, .00894, 34.23644, 1.67394, .33612, - + .00000, 1.38652, 1.67920, - + .00322, .00902, 38.95601, 1.84752, .44424, - + .00000, 1.55103, 1.85292, - + .00333, .00909, 43.03690, 1.99133, .54927, - + .00000, 1.68952, 1.99685, - + .00356, .00923, 52.53155, 2.30654, .83554, - + .00000, 2.00107, 2.31231, - + .00376, .00935, 61.68782, 2.58972, 1.15606, - + .09099, 2.28998, 2.59569, - + .00399, .00949, 73.05939, 2.92276, 1.59395, - + .37809, 2.63844, 2.92897, - + .00423, .00963, 86.18669, 3.29491, 2.12634, - + .84202, 3.03393, 3.30135, - + .00445, .00976, 99.33523, 3.66565, 2.66311, - + 1.27190, 3.42879, 3.67230 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ - + .00468, .00989, 113.65236, 4.07492, 3.23860, - + 1.74723, 3.86220, 4.08178, - + .00487, .01001, 126.45562, 4.44831, 3.73674, - + 2.17069, 4.25375, 4.45534, - + .00510, .01014, 143.20030, 4.94743, 4.36328, - + 2.72302, 4.77146, 4.95467, - + .00531, .01027, 159.00716, 5.42958, 4.93471, - + 3.24542, 5.26670, 5.43699, - + .00551, .01038, 174.33850, 5.90585, 5.47449, - + 3.75311, 5.75236, 5.91343, - + .00576, .01052, 195.13324, 6.56158, 6.18897, - + 4.44215, 6.41687, 6.56936, - + .00600, .01066, 215.83704, 7.22488, 6.88996, - + 5.13149, 7.08592, 7.23285, - + .00622, .01079, 236.30779, 7.88854, 7.57745, - + 5.81602, 7.75332, 7.89669 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ - + .00645, .01092, 258.03711, 8.59829, 8.30306, - + 6.54410, 8.46566, 8.60661, - + .00668, .01105, 280.07166, 9.32647, 9.04143, - + 7.28852, 9.19561, 9.33495, - + .00689, .01117, 302.05710, 10.05711, 9.77840, - + 8.03338, 9.92746, 10.06575, - + .00710, .01129, 323.52747, 10.77651, 10.50179, - + 8.76546, 10.64771, 10.78530, - + .00731, .01140, 345.98718, 11.53366, 11.26167, - + 9.53483, 11.40552, 11.54259, - + .00752, .01152, 368.83710, 12.30959, 12.03945, - + 10.32240, 12.18198, 12.31866, - + .00772, .01163, 391.34692, 13.07860, 12.80974, - + 11.10222, 12.95143, 13.08781, - + .00791, .01174, 413.20798, 13.83107, 13.56313, - + 11.86472, 13.70427, 13.84041 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ - + .00810, .01185, 436.11215, 14.62262, 14.35542, - + 12.66621, 14.49615, 14.63207, - + .00829, .01196, 459.03943, 15.42278, 15.15621, - + 13.47608, 15.29664, 15.43236, - + .00848, .01206, 481.84677, 16.22064, 15.95459, - + 14.28307, 16.09479, 16.23034, - + .00866, .01216, 503.66721, 16.99164, 16.72605, - + 15.06266, 16.86606, 17.00144, - + .00884, .01226, 526.42731, 17.79917, 17.53402, - + 15.87879, 17.67386, 17.80908 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ - + .00338, .00992, 4.91741, .37634, .00469, - + .00000, .22583, .37954, - + .00358, .01005, 6.51432, .46146, .01049, - + .00000, .29993, .46480, - + .00389, .01024, 9.43951, .60959, .02488, - + .00000, .42941, .61313, - + .00411, .01038, 11.97122, .73207, .04179, - + .00000, .53714, .73576, - + .00435, .01053, 15.04561, .87472, .06843, - + .00000, .66355, .87855, - + .00456, .01066, 18.06043, 1.00888, .10166, - + .00000, .78359, 1.01285, - + .00476, .01078, 21.19655, 1.14356, .14509, - + .00000, .90550, 1.14764, - + .00498, .01092, 24.92996, 1.29687, .20819, - + .00000, 1.04622, 1.30109 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ - + .00517, .01103, 28.48827, 1.43656, .28068, - + .00000, 1.17655, 1.44089, - + .00536, .01114, 32.16159, 1.57454, .36899, - + .00000, 1.30768, 1.57897, - + .00551, .01123, 35.31519, 1.68803, .45432, - + .00000, 1.41733, 1.69255, - + .00583, .01142, 42.57883, 1.93432, .68518, - + .00000, 1.66180, 1.93901, - + .00611, .01158, 49.50037, 2.15291, .94124, - + .07107, 1.88608, 2.15775, - + .00642, .01177, 58.00080, 2.40727, 1.28768, - + .29367, 2.15396, 2.41227, - + .00675, .01196, 67.70041, 2.68870, 1.70430, - + .65107, 2.45508, 2.69388, - + .00706, .01214, 77.31176, 2.96691, 2.11970, - + .97885, 2.75323, 2.97224 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ - + .00737, .01231, 87.67051, 3.27205, 2.56025, - + 1.33835, 3.07804, 3.27753, - + .00764, .01246, 96.85213, 3.54895, 2.93775, - + 1.65623, 3.36959, 3.55455, - + .00796, .01265, 108.75803, 3.91717, 3.40782, - + 2.06782, 3.75269, 3.92292, - + .00825, .01281, 119.89780, 4.27086, 3.83231, - + 2.45424, 4.11678, 4.27674, - + .00851, .01296, 130.61877, 4.61841, 4.22988, - + 2.82735, 4.47174, 4.62441, - + .00886, .01315, 145.04549, 5.09421, 4.75166, - + 3.33029, 4.95443, 5.10036, - + .00918, .01333, 159.28316, 5.57238, 5.25914, - + 3.82977, 5.43708, 5.57866, - + .00949, .01350, 173.24875, 6.04788, 5.75310, - + 4.32245, 5.91550, 6.05429 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ - + .00980, .01367, 187.96776, 6.55350, 6.27095, - + 4.84325, 6.42315, 6.56003, - + .01011, .01384, 202.77763, 7.06910, 6.79439, - + 5.37238, 6.94013, 7.07575, - + .01040, .01400, 217.45914, 7.58367, 7.31385, - + 5.89884, 7.45565, 7.59044, - + .01068, .01416, 231.70259, 8.08765, 7.82092, - + 6.41347, 7.96030, 8.09453, - + .01096, .01431, 246.51384, 8.61545, 8.35085, - + 6.95155, 8.48864, 8.62243, - + .01124, .01446, 261.49130, 9.15367, 8.89054, - + 7.49959, 9.02730, 9.16075, - + .01151, .01461, 276.16351, 9.68461, 9.42251, - + 8.03964, 9.55860, 9.69179, - + .01177, .01475, 290.33359, 10.20180, 9.94046, - + 8.56530, 10.07609, 10.20907 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ - + .01203, .01489, 305.11035, 10.74365, 10.48295, - + 9.11556, 10.61824, 10.75102, - + .01229, .01503, 319.81696, 11.28892, 11.02875, - + 9.66903, 11.16378, 11.29637, - + .01254, .01516, 334.38739, 11.83066, 11.57096, - + 10.21849, 11.70578, 11.83820, - + .01278, .01529, 348.25162, 12.35195, 12.09266, - + 10.74703, 12.22729, 12.35956, - + .01302, .01542, 362.65506, 12.89605, 12.63716, - + 11.29839, 12.77163, 12.90375 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ - + .00569, .01212, 4.57920, .35682, .00415, - + .00000, .21116, .35970, - + .00598, .01229, 5.95461, .43071, .00920, - + .00000, .27549, .43369, - + .00641, .01256, 8.42400, .55713, .02157, - + .00000, .38600, .56024, - + .00673, .01275, 10.52289, .66007, .03593, - + .00000, .47657, .66328, - + .00707, .01295, 13.03500, .77847, .05836, - + .00000, .58155, .78179, - + .00736, .01312, 15.46686, .88859, .08611, - + .00000, .68015, .89199, - + .00765, .01329, 17.96841, .99809, .12214, - + .00000, .77938, 1.00157, - + .00795, .01346, 20.91508, 1.12151, .17412, - + .00000, .89284, 1.12509 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ - + .00822, .01362, 23.69610, 1.23293, .23345, - + .00000, .99704, 1.23659, - + .00848, .01377, 26.54173, 1.34208, .30533, - + .00000, 1.10105, 1.34580, - + .00869, .01388, 28.96725, 1.43119, .37440, - + .00000, 1.18746, 1.43497, - + .00913, .01414, 34.49726, 1.62262, .55992, - + .00000, 1.37838, 1.62653, - + .00952, .01436, 39.70349, 1.79044, .76379, - + .05528, 1.55163, 1.79445, - + .00996, .01460, 46.02521, 1.98358, 1.03697, - + .22722, 1.75652, 1.98771, - + .01042, .01486, 53.15448, 2.19518, 1.36193, - + .50151, 1.98463, 2.19942, - + .01084, .01509, 60.14214, 2.40274, 1.68236, - + .75047, 2.20860, 2.40709 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ - + .01127, .01533, 67.59483, 2.62894, 2.01845, - + 1.02132, 2.45078, 2.63339, - + .01164, .01553, 74.14125, 2.83315, 2.30351, - + 1.25900, 2.66676, 2.83769, - + .01208, .01577, 82.55676, 3.10332, 2.65487, - + 1.56448, 2.94881, 3.10796, - + .01247, .01599, 90.35958, 3.36139, 2.96893, - + 1.84916, 3.21513, 3.36613, - + .01284, .01619, 97.80978, 3.61368, 3.26052, - + 2.12222, 3.47325, 3.61850, - + .01331, .01644, 107.75464, 3.95711, 3.63987, - + 2.48780, 3.82209, 3.96204, - + .01375, .01668, 117.48080, 4.30000, 4.00553, - + 2.84815, 4.16849, 4.30502, - + .01417, .01690, 126.94347, 4.63890, 4.35870, - + 3.20121, 4.50966, 4.64401 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ - + .01459, .01713, 136.84468, 4.99718, 4.72643, - + 3.57210, 4.86953, 5.00239, - + .01501, .01735, 146.72690, 5.36029, 5.09559, - + 3.94649, 5.23372, 5.36558, - + .01541, .01756, 156.45908, 5.72072, 5.45980, - + 4.31688, 5.59491, 5.72609, - + .01578, .01776, 165.83707, 6.07182, 5.81332, - + 4.67694, 5.94655, 6.07727, - + .01617, .01796, 175.52916, 6.43768, 6.18086, - + 5.05147, 6.31285, 6.44321, - + .01655, .01816, 185.26892, 6.80889, 6.55326, - + 5.43096, 6.68442, 6.81449, - + .01691, .01835, 194.75537, 7.17336, 6.91858, - + 5.80313, 7.04920, 7.17903, - + .01725, .01853, 203.86455, 7.52675, 7.27262, - + 6.16369, 7.40285, 7.53248 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ - + .01760, .01872, 213.31870, 7.89551, 7.64192, - + 6.53955, 7.77185, 7.90130, - + .01795, .01890, 222.67049, 8.26483, 8.01172, - + 6.91580, 8.14141, 8.27069, - + .01829, .01907, 231.89812, 8.63046, 8.37778, - + 7.28796, 8.50727, 8.63639, - + .01861, .01924, 240.62798, 8.98073, 8.72843, - + 7.64437, 8.85774, 8.98672, - + .01893, .01941, 249.66026, 9.34507, 9.09313, - + 8.01485, 9.22228, 9.35111 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ - + .00750, .01363, 4.39120, .34565, .00385, - + .00000, .20294, .34844, - + .00785, .01384, 5.64839, .41346, .00850, - + .00000, .26198, .41633, - + .00839, .01415, 7.87936, .52834, .01979, - + .00000, .36242, .53131, - + .00878, .01438, 9.75570, .62107, .03281, - + .00000, .44402, .62413, - + .00919, .01461, 11.98249, .72696, .05304, - + .00000, .53795, .73010, - + .00955, .01482, 14.12187, .82480, .07796, - + .00000, .62560, .82802, - + .00990, .01501, 16.30813, .92156, .11019, - + .00000, .71335, .92484, - + .01027, .01522, 18.86746, 1.03000, .15649, - + .00000, .81314, 1.03335 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ - + .01060, .01541, 21.26897, 1.12736, .20915, - + .00000, .90431, 1.13078, - + .01091, .01558, 23.71345, 1.22226, .27273, - + .00000, .99492, 1.22574, - + .01117, .01572, 25.78827, 1.29941, .33365, - + .00000, 1.06990, 1.30293, - + .01171, .01602, 30.49025, 1.46414, .49658, - + .00000, 1.23467, 1.46776, - + .01218, .01628, 34.88533, 1.60749, .67466, - + .04763, 1.38324, 1.61119, - + .01271, .01658, 40.18642, 1.77140, .91195, - + .19515, 1.55792, 1.77519, - + .01327, .01688, 46.12313, 1.94991, 1.19243, - + .42960, 1.75129, 1.95380, - + .01378, .01716, 51.90438, 2.12423, 1.46720, - + .64113, 1.94022, 2.12821 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ - + .01430, .01744, 58.03203, 2.31349, 1.75354, - + .87014, 2.14362, 2.31756, - + .01474, .01767, 63.38569, 2.48386, 1.99492, - + 1.07021, 2.32434, 2.48799, - + .01527, .01795, 70.23249, 2.70860, 2.29065, - + 1.32625, 2.55948, 2.71282, - + .01574, .01821, 76.54660, 2.92259, 2.55337, - + 1.56380, 2.78065, 2.92689, - + .01618, .01844, 82.54676, 3.13115, 2.79603, - + 1.79078, 2.99429, 3.13552, - + .01674, .01874, 90.51768, 3.41413, 3.11007, - + 2.09342, 3.28196, 3.41859, - + .01728, .01902, 98.27114, 3.69559, 3.41115, - + 2.39044, 3.56646, 3.70013, - + .01778, .01928, 105.77780, 3.97275, 3.70060, - + 2.68027, 3.84559, 3.97737 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ - + .01829, .01954, 113.59856, 4.26480, 4.00076, - + 2.98362, 4.13901, 4.26948, - + .01878, .01981, 121.36631, 4.55967, 4.30085, - + 3.28866, 4.43484, 4.56443, - + .01926, .02005, 128.98602, 4.85144, 4.59589, - + 3.58942, 4.72728, 4.85627, - + .01971, .02029, 136.29825, 5.13476, 4.88130, - + 3.88084, 5.01108, 5.13965, - + .02017, .02052, 143.82784, 5.42911, 5.17713, - + 4.18303, 5.30582, 5.43406, - + .02062, .02075, 151.36583, 5.72686, 5.47594, - + 4.48830, 5.60390, 5.73188, - + .02105, .02098, 158.68253, 6.01839, 5.76825, - + 4.78681, 5.89571, 6.02347, - + .02146, .02119, 165.68356, 6.30027, 6.05073, - + 5.07520, 6.17784, 6.30541 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ - + .02188, .02140, 172.92900, 6.59372, 6.34469, - + 5.37509, 6.47152, 6.59891, - + .02229, .02161, 180.06946, 6.88678, 6.63821, - + 5.67444, 6.76480, 6.89202, - + .02269, .02182, 187.09830, 7.17631, 6.92814, - + 5.96989, 7.05453, 7.18161, - + .02307, .02201, 193.72414, 7.45293, 7.20513, - + 6.25209, 7.33135, 7.45828, - + .02345, .02221, 200.56261, 7.74007, 7.49263, - + 6.54480, 7.61868, 7.74547 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ - + .00904, .01482, 4.26181, .33781, .00364, - + .00000, .19727, .34059, - + .00946, .01505, 5.43980, .40151, .00802, - + .00000, .25273, .40436, - + .01007, .01541, 7.51308, .50868, .01859, - + .00000, .34645, .51163, - + .01052, .01566, 9.24382, .59466, .03072, - + .00000, .42213, .59768, - + .01100, .01593, 11.28548, .69236, .04950, - + .00000, .50881, .69545, - + .01142, .01616, 13.23647, .78221, .07256, - + .00000, .58934, .78536, - + .01182, .01638, 15.22087, .87072, .10230, - + .00000, .66965, .87393, - + .01224, .01662, 17.53363, .96950, .14491, - + .00000, .76063, .97278 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ - + .01262, .01682, 19.69483, 1.05786, .19324, - + .00000, .84345, 1.06119, - + .01298, .01702, 21.88651, 1.14368, .25146, - + .00000, .92551, 1.14706, - + .01327, .01718, 23.74113, 1.21323, .30713, - + .00000, .99321, 1.21665, - + .01390, .01752, 27.92602, 1.36108, .45556, - + .00000, 1.14144, 1.36460, - + .01444, .01781, 31.81774, 1.48907, .61718, - + .04280, 1.27448, 1.49266, - + .01505, .01814, 36.48919, 1.63473, .83170, - + .17499, 1.43025, 1.63840, - + .01568, .01848, 41.69471, 1.79270, 1.08412, - + .38452, 1.60199, 1.79645, - + .01627, .01879, 46.74041, 1.94646, 1.33025, - + .57274, 1.76920, 1.95029 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ - + .01686, .01911, 52.06445, 2.11297, 1.58556, - + .77583, 1.94864, 2.11688, - + .01736, .01937, 56.69813, 2.26254, 1.79985, - + .95269, 2.10766, 2.26651, - + .01797, .01969, 62.60219, 2.45945, 2.06124, - + 1.17832, 2.31403, 2.46350, - + .01851, .01997, 68.02569, 2.64652, 2.29245, - + 1.38700, 2.50762, 2.65064, - + .01901, .02023, 73.16195, 2.82846, 2.50519, - + 1.58585, 2.69415, 2.83264, - + .01965, .02056, 79.96172, 3.07475, 2.77947, - + 1.85021, 2.94468, 3.07900, - + .02026, .02088, 86.55009, 3.31904, 3.04142, - + 2.10884, 3.19172, 3.32337, - + .02083, .02117, 92.90620, 3.55898, 3.29240, - + 2.36049, 3.43345, 3.56338 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ - + .02140, .02147, 99.50779, 3.81119, 3.55192, - + 2.62319, 3.68691, 3.81566, - + .02197, .02176, 106.04128, 4.06518, 3.81060, - + 2.88661, 3.94177, 4.06971, - + .02251, .02204, 112.43223, 4.31592, 4.06430, - + 3.14573, 4.19313, 4.32052, - + .02302, .02230, 118.54695, 4.55884, 4.30912, - + 3.39619, 4.43649, 4.56349, - + .02353, .02256, 124.82674, 4.81068, 4.56232, - + 3.65535, 4.68870, 4.81538, - + .02404, .02282, 131.09631, 5.06488, 4.81751, - + 3.91656, 4.94321, 5.06965, - + .02453, .02307, 137.16656, 5.31327, 5.06663, - + 4.17147, 5.19187, 5.31809, - + .02500, .02330, 142.96014, 5.55297, 5.30690, - + 4.41724, 5.43180, 5.55784 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ - + .02547, .02354, 148.94388, 5.80207, 5.55649, - + 4.67236, 5.68113, 5.80699, - + .02594, .02378, 154.82434, 6.05033, 5.80520, - + 4.92651, 5.92960, 6.05531, - + .02638, .02400, 160.60333, 6.29523, 6.05051, - + 5.17694, 6.17471, 6.30026, - + .02681, .02422, 166.03630, 6.52877, 6.28440, - + 5.41568, 6.40843, 6.53384, - + .02725, .02444, 171.63383, 6.77083, 6.52681, - + 5.66294, 6.65067, 6.77594 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ - + .01041, .01582, 4.16354, .33177, .00349, - + .00000, .19295, .33459, - + .01087, .01607, 5.28262, .39239, .00766, - + .00000, .24574, .39527, - + .01156, .01646, 7.23973, .49385, .01769, - + .00000, .33448, .49682, - + .01207, .01674, 8.86406, .57486, .02917, - + .00000, .40580, .57790, - + .01260, .01703, 10.77124, .66656, .04689, - + .00000, .48718, .66966, - + .01307, .01729, 12.58612, .75059, .06857, - + .00000, .56251, .75375, - + .01351, .01753, 14.42533, .83311, .09650, - + .00000, .63744, .83633, - + .01399, .01779, 16.56151, .92493, .13642, - + .00000, .72205, .92820 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ - + .01441, .01801, 18.55127, 1.00681, .18161, - + .00000, .79887, 1.01013, - + .01481, .01823, 20.56321, 1.08612, .23595, - + .00000, .87478, 1.08949, - + .01514, .01841, 22.26174, 1.15023, .28782, - + .00000, .93728, 1.15364, - + .01583, .01878, 26.08150, 1.28608, .42581, - + .00000, 1.07372, 1.28957, - + .01643, .01910, 29.61947, 1.40318, .57563, - + .03937, 1.19574, 1.40673, - + .01711, .01946, 33.85035, 1.53595, .77386, - + .16069, 1.33813, 1.53959, - + .01782, .01983, 38.54650, 1.67948, 1.00632, - + .35260, 1.49463, 1.68319, - + .01847, .02017, 43.08199, 1.81883, 1.23216, - + .52441, 1.64658, 1.82261 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ - + .01913, .02051, 47.85077, 1.96943, 1.46558, - + .70929, 1.80926, 1.97329, - + .01968, .02080, 51.98867, 2.10450, 1.66084, - + .86990, 1.95312, 2.10841, - + .02035, .02115, 57.24577, 2.28205, 1.89819, - + 1.07431, 2.13945, 2.28603, - + .02095, .02146, 62.06013, 2.45042, 2.10742, - + 1.26290, 2.31387, 2.45448, - + .02150, .02175, 66.60728, 2.61391, 2.29936, - + 1.44221, 2.48162, 2.61802, - + .02221, .02211, 72.61092, 2.83483, 2.54610, - + 1.68006, 2.70646, 2.83901, - + .02288, .02245, 78.40988, 3.05348, 2.78103, - + 1.91218, 2.92766, 3.05773, - + .02351, .02277, 83.98889, 3.26782, 3.00553, - + 2.13753, 3.14365, 3.27213 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ - + .02414, .02309, 89.76920, 3.49269, 3.23713, - + 2.37229, 3.36969, 3.49707, - + .02477, .02341, 95.47388, 3.71868, 3.46745, - + 2.60719, 3.59649, 3.72312, - + .02536, .02371, 101.04151, 3.94137, 3.69288, - + 2.83782, 3.81976, 3.94588, - + .02593, .02400, 106.35620, 4.15674, 3.91003, - + 3.06033, 4.03555, 4.16129, - + .02649, .02428, 111.80276, 4.37964, 4.13420, - + 3.29016, 4.25881, 4.38425, - + .02706, .02457, 117.22871, 4.60425, 4.35975, - + 3.52143, 4.48372, 4.60892, - + .02759, .02483, 122.47175, 4.82338, 4.57958, - + 3.74674, 4.70311, 4.82810, - + .02810, .02509, 127.46572, 5.03452, 4.79127, - + 3.96364, 4.91447, 5.03929 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ - + .02862, .02535, 132.61513, 5.25364, 5.01088, - + 4.18847, 5.13382, 5.25846, - + .02914, .02561, 137.66461, 5.47167, 5.22936, - + 4.41209, 5.35206, 5.47654, - + .02963, .02585, 142.62032, 5.68651, 5.44459, - + 4.63217, 5.56709, 5.69142, - + .03010, .02608, 147.26958, 5.89105, 5.64949, - + 4.84165, 5.77182, 5.89601, - + .03057, .02632, 152.05298, 6.10281, 5.86161, - + 5.05835, 5.98377, 6.10782 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ - + .01584, .01939, 3.86832, .31315, .00304, - + .00000, .17998, .31631, - + .01649, .01974, 4.81742, .36479, .00662, - + .00000, .22498, .36800, - + .01747, .02025, 6.44493, .44984, .01511, - + .00000, .29943, .45314, - + .01819, .02062, 7.77159, .51679, .02472, - + .00000, .35843, .52015, - + .01894, .02102, 9.30673, .59167, .03942, - + .00000, .42496, .59509, - + .01960, .02135, 10.74860, .65953, .05728, - + .00000, .48589, .66302, - + .02022, .02168, 12.19309, .72557, .08013, - + .00000, .54596, .72911, - + .02089, .02202, 13.85277, .79832, .11258, - + .00000, .61315, .80191 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ - + .02148, .02232, 15.38312, .86258, .14908, - + .00000, .67363, .86622, - + .02204, .02261, 16.91632, .92429, .19274, - + .00000, .73293, .92798, - + .02250, .02284, 18.20117, .97380, .23420, - + .00000, .78142, .97752, - + .02346, .02333, 21.05998, 1.07758, .34373, - + .00000, .88630, 1.08137, - + .02430, .02375, 23.67451, 1.16585, .46158, - + .03023, .97904, 1.16972, - + .02524, .02423, 26.76413, 1.26477, .61604, - + .12274, 1.08616, 1.26871, - + .02622, .02472, 30.15126, 1.37058, .79522, - + .26815, 1.20272, 1.37460, - + .02711, .02517, 33.38498, 1.47252, .96735, - + .39696, 1.31493, 1.47661 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ - + .02802, .02562, 36.74699, 1.58201, 1.14326, - + .53442, 1.43414, 1.58617, - + .02878, .02600, 39.63624, 1.67973, 1.28883, - + .65291, 1.53890, 1.68395, - + .02970, .02646, 43.27329, 1.80758, 1.46389, - + .80258, 1.67373, 1.81188, - + .03053, .02687, 46.57145, 1.92819, 1.61652, - + .93959, 1.79912, 1.93255, - + .03128, .02724, 49.65981, 2.04469, 1.75522, - + 1.06898, 1.91899, 2.04912, - + .03224, .02772, 53.70241, 2.20125, 1.93184, - + 1.23940, 2.07864, 2.20575, - + .03315, .02816, 57.56856, 2.35517, 2.09837, - + 1.40442, 2.23459, 2.35974, - + .03401, .02858, 61.25486, 2.50510, 2.25618, - + 1.56350, 2.38585, 2.50973 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ - + .03487, .02901, 65.04469, 2.66148, 2.41779, - + 1.72814, 2.54318, 2.66618, - + .03571, .02942, 68.75066, 2.81760, 2.57732, - + 1.89176, 2.69998, 2.82237, - + .03652, .02981, 72.34215, 2.97059, 2.73249, - + 2.05144, 2.85347, 2.97542, - + .03728, .03018, 75.74418, 3.11769, 2.88105, - + 2.20460, 3.00096, 3.12258, - + .03804, .03055, 79.20722, 3.26914, 3.03359, - + 2.36195, 3.15274, 3.27409, - + .03880, .03092, 82.63289, 3.42094, 3.18621, - + 2.51940, 3.30482, 3.42595, - + .03952, .03127, 85.92190, 3.56829, 3.33420, - + 2.67202, 3.45243, 3.57336, - + .04020, .03160, 89.03397, 3.70956, 3.47600, - + 2.81820, 3.59393, 3.71468 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ - + .04090, .03193, 92.22651, 3.85556, 3.62248, - + 2.96907, 3.74015, 3.86073, - + .04158, .03226, 95.33412, 4.00008, 3.76744, - + 3.11834, 3.88488, 4.00530, - + .04224, .03258, 98.37142, 4.14196, 3.90972, - + 3.26469, 4.02696, 4.14723, - + .04286, .03288, 101.20058, 4.27637, 4.04451, - + 3.40332, 4.16156, 4.28169, - + .04350, .03319, 104.09845, 4.41503, 4.18354, - + 3.54618, 4.30041, 4.42040 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ - + .02362, .02389, 3.58376, .29459, .00262, - + .00000, .16759, .29850, - + .02455, .02435, 4.38030, .33806, .00567, - + .00000, .20553, .34204, - + .02593, .02503, 5.71967, .40854, .01279, - + .00000, .26733, .41263, - + .02694, .02553, 6.79183, .46325, .02077, - + .00000, .31563, .46743, - + .02800, .02605, 8.01429, .52373, .03286, - + .00000, .36947, .52799, - + .02892, .02650, 9.14729, .57794, .04744, - + .00000, .41825, .58229, - + .02979, .02693, 10.26902, .63022, .06597, - + .00000, .46592, .63463, - + .03073, .02738, 11.54369, .68722, .09211, - + .00000, .51874, .69171 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ - + .03155, .02778, 12.70686, .73710, .12134, - + .00000, .56587, .74166, - + .03234, .02816, 13.86111, .78457, .15610, - + .00000, .61172, .78920, - + .03297, .02847, 14.82112, .82236, .18895, - + .00000, .64895, .82703, - + .03431, .02911, 16.93360, .90068, .27512, - + .00000, .72870, .90546, - + .03546, .02967, 18.84026, .96638, .36701, - + .02300, .79841, .97126, - + .03676, .03030, 21.06571, 1.03910, .48632, - + .09290, .87807, 1.04408, - + .03811, .03095, 23.47408, 1.11603, .62321, - + .20209, .96387, 1.12112, - + .03935, .03154, 25.74581, 1.18956, .75323, - + .29777, 1.04575, 1.19476 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ - + .04059, .03214, 28.07975, 1.26806, .88457, - + .39900, 1.13206, 1.27335, - + .04163, .03263, 30.06522, 1.33779, .99207, - + .48557, 1.20741, 1.34317, - + .04289, .03323, 32.54058, 1.42862, 1.11990, - + .59407, 1.30378, 1.43409, - + .04401, .03377, 34.76194, 1.51384, 1.23008, - + .69262, 1.39280, 1.51940, - + .04504, .03425, 36.82299, 1.59575, 1.32922, - + .78503, 1.47738, 1.60139, - + .04635, .03488, 39.49647, 1.70519, 1.45421, - + .90585, 1.58932, 1.71094, - + .04758, .03546, 42.02610, 1.81207, 1.57085, - + 1.02191, 1.69784, 1.81792, - + .04873, .03601, 44.41497, 1.91549, 1.68041, - + 1.13296, 1.80237, 1.92143 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ - + .04989, .03655, 46.85093, 2.02272, 1.79175, - + 1.24714, 1.91041, 2.02875, - + .05103, .03709, 49.20906, 2.12903, 1.90079, - + 1.35979, 2.01734, 2.13515, - + .05211, .03760, 51.47721, 2.23261, 2.00618, - + 1.46906, 2.12139, 2.23882, - + .05312, .03807, 53.60783, 2.33161, 2.10642, - + 1.57323, 2.22076, 2.33790, - + .05415, .03856, 55.76087, 2.43297, 2.20876, - + 1.67963, 2.32246, 2.43935, - + .05515, .03903, 57.87432, 2.53400, 2.31055, - + 1.78550, 2.42379, 2.54045, - + .05612, .03948, 59.88939, 2.63156, 2.40874, - + 1.88757, 2.52162, 2.63809, - + .05703, .03990, 61.78205, 2.72460, 2.50232, - + 1.98481, 2.61491, 2.73120 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ - + .05795, .04033, 63.71314, 2.82033, 2.59856, - + 2.08473, 2.71090, 2.82701, - + .05886, .04076, 65.57704, 2.91457, 2.69327, - + 2.18304, 2.80536, 2.92131, - + .05973, .04117, 67.39124, 3.00674, 2.78588, - + 2.27905, 2.89776, 3.01355, - + .06055, .04155, 69.06702, 3.09359, 2.87314, - + 2.36952, 2.98483, 3.10047, - + .06139, .04194, 70.77540, 3.18284, 2.96280, - + 2.46239, 3.07430, 3.18979 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ - + .02968, .02710, 3.41897, .28368, .00240, - + .00000, .16055, .28823, - + .03081, .02764, 4.13315, .32269, .00516, - + .00000, .19466, .32734, - + .03250, .02845, 5.32021, .38539, .01156, - + .00000, .24972, .39019, - + .03373, .02903, 6.26025, .43368, .01868, - + .00000, .29242, .43859, - + .03502, .02965, 7.32265, .48668, .02941, - + .00000, .33968, .49171, - + .03614, .03018, 8.29947, .53390, .04228, - + .00000, .38224, .53902, - + .03720, .03068, 9.25967, .57918, .05859, - + .00000, .42362, .58439, - + .03834, .03122, 10.34355, .62825, .08149, - + .00000, .46921, .63357 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ - + .03933, .03169, 11.32641, .67095, .10701, - + .00000, .50967, .67635, - + .04028, .03214, 12.29605, .71137, .13726, - + .00000, .54885, .71686, - + .04104, .03250, 13.09884, .74339, .16576, - + .00000, .58053, .74894, - + .04266, .03326, 14.85344, .80930, .24022, - + .00000, .64801, .81500, - + .04406, .03392, 16.42436, .86412, .31920, - + .01949, .70657, .86993, - + .04562, .03466, 18.24409, .92432, .42117, - + .07847, .77306, .93027, - + .04724, .03542, 20.19777, .98758, .53743, - + .17025, .84423, .99368, - + .04872, .03611, 22.02699, 1.04777, .64709, - + .25016, .91179, 1.05400 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ - + .05022, .03681, 23.89243, 1.11179, .75711, - + .33426, .98268, 1.11814, - + .05146, .03739, 25.46939, 1.16851, .84655, - + .40584, 1.04431, 1.17496, - + .05296, .03810, 27.42372, 1.24219, .95219, - + .49514, 1.12286, 1.24878, - + .05430, .03872, 29.16609, 1.31111, 1.04260, - + .57585, 1.19511, 1.31782, - + .05552, .03929, 30.77341, 1.37715, 1.12346, - + .65121, 1.26351, 1.38396, - + .05708, .04001, 32.84661, 1.46511, 1.22478, - + .74931, 1.35367, 1.47205, - + .05854, .04069, 34.79502, 1.55065, 1.31874, - + .84309, 1.44069, 1.55772, - + .05991, .04133, 36.62386, 1.63309, 1.40650, - + .93242, 1.52415, 1.64028 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ - + .06129, .04196, 38.47926, 1.71826, 1.49527, - + 1.02389, 1.61010, 1.72557, - + .06263, .04259, 40.26366, 1.80235, 1.58178, - + 1.11373, 1.69477, 1.80977, - + .06391, .04317, 41.97194, 1.88398, 1.66506, - + 1.20056, 1.77688, 1.89151, - + .06511, .04373, 43.56797, 1.96172, 1.74396, - + 1.28302, 1.85501, 1.96935, - + .06631, .04429, 45.17334, 2.04105, 1.82422, - + 1.36696, 1.93469, 2.04878, - + .06750, .04483, 46.74132, 2.11983, 1.90378, - + 1.45018, 2.01380, 2.12767, - + .06863, .04535, 48.22965, 2.19567, 1.98026, - + 1.53015, 2.08993, 2.20360, - + .06970, .04585, 49.62084, 2.26776, 2.05291, - + 1.60610, 2.16229, 2.27578 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ - + .07078, .04634, 51.03543, 2.34174, 2.12742, - + 1.68391, 2.23655, 2.34986, - + .07185, .04683, 52.39309, 2.41430, 2.20049, - + 1.76021, 2.30937, 2.42251, - + .07287, .04730, 53.71123, 2.48511, 2.27178, - + 1.83456, 2.38044, 2.49341, - + .07383, .04774, 54.92188, 2.55161, 2.33872, - + 1.90437, 2.44717, 2.55999, - + .07481, .04819, 56.15235, 2.61980, 2.40734, - + 1.97587, 2.51559, 2.62826 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ - + .03487, .02971, 3.30117, .27589, .00225, - + .00000, .15561, .28098, - + .03617, .03033, 3.95952, .31187, .00482, - + .00000, .18712, .31709, - + .03811, .03124, 5.04475, .36935, .01074, - + .00000, .23766, .37475, - + .03952, .03190, 5.89745, .41336, .01728, - + .00000, .27664, .41889, - + .04100, .03259, 6.85498, .46143, .02711, - + .00000, .31957, .46710, - + .04228, .03319, 7.73029, .50406, .03886, - + .00000, .35806, .50985, - + .04350, .03376, 8.58619, .54478, .05370, - + .00000, .39534, .55068, - + .04480, .03436, 9.54766, .58872, .07448, - + .00000, .43625, .59474 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ - + .04593, .03489, 10.41549, .62679, .09758, - + .00000, .47242, .63292, - + .04702, .03540, 11.26799, .66269, .12490, - + .00000, .50732, .66892, - + .04789, .03580, 11.97144, .69103, .15058, - + .00000, .53546, .69734, - + .04973, .03666, 13.50123, .74907, .21747, - + .00000, .59513, .75555, - + .05132, .03739, 14.86274, .79703, .28815, - + .01726, .64666, .80365, - + .05310, .03822, 16.43109, .84940, .37905, - + .06935, .70489, .85619, - + .05495, .03907, 18.10498, .90416, .48219, - + .15019, .76692, .91112, - + .05663, .03985, 19.66365, .95608, .57901, - + .22023, .82559, .96320 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ - + .05832, .04063, 21.24435, 1.01116, .67565, - + .29368, .88692, 1.01843, - + .05972, .04128, 22.57435, 1.05986, .75383, - + .35597, .94011, 1.06726, - + .06143, .04207, 24.21530, 1.12302, .84571, - + .43342, 1.00770, 1.13058, - + .06294, .04276, 25.67109, 1.18198, .92394, - + .50317, 1.06968, 1.18967, - + .06432, .04339, 27.00823, 1.23834, .99359, - + .56810, 1.12820, 1.24616, - + .06607, .04420, 28.72566, 1.31323, 1.08047, - + .65235, 1.20513, 1.32121, - + .06772, .04496, 30.33145, 1.38584, 1.16066, - + .73259, 1.27913, 1.39397, - + .06926, .04566, 31.83175, 1.45562, 1.23524, - + .80877, 1.34988, 1.46389 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ - + .07081, .04637, 33.34804, 1.52752, 1.31044, - + .88655, 1.42253, 1.53593, - + .07231, .04706, 34.79895, 1.59827, 1.38344, - + .96270, 1.49388, 1.60682, - + .07374, .04772, 36.18305, 1.66680, 1.45351, - + 1.03609, 1.56288, 1.67547, - + .07509, .04833, 37.47084, 1.73186, 1.51970, - + 1.10559, 1.62835, 1.74065, - + .07644, .04895, 38.76157, 1.79810, 1.58686, - + 1.17616, 1.69495, 1.80701, - + .07777, .04955, 40.01739, 1.86371, 1.65324, - + 1.24595, 1.76091, 1.87274, - + .07903, .05013, 41.20533, 1.92671, 1.71691, - + 1.31285, 1.82423, 1.93586, - + .08022, .05067, 42.31158, 1.98645, 1.77723, - + 1.37622, 1.88427, 1.99571 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ - + .08143, .05122, 43.43352, 2.04765, 1.83898, - + 1.44103, 1.94576, 2.05701, - + .08262, .05176, 44.50545, 2.10750, 1.89937, - + 1.50441, 2.00589, 2.11697, - + .08376, .05227, 45.54426, 2.16582, 1.95820, - + 1.56605, 2.06449, 2.17539, - + .08483, .05276, 46.49398, 2.22045, 2.01329, - + 1.62380, 2.11937, 2.23011, - + .08592, .05326, 47.45703, 2.27636, 2.06967, - + 1.68284, 2.17554, 2.28612 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ - + .03960, .03203, 3.20542, .26983, .00214, - + .00000, .15169, .27528, - + .04105, .03271, 3.82094, .30352, .00457, - + .00000, .18122, .30910, - + .04320, .03371, 4.82874, .35704, .01012, - + .00000, .22835, .36283, - + .04477, .03444, 5.61557, .39784, .01624, - + .00000, .26452, .40377, - + .04641, .03521, 6.49455, .44223, .02539, - + .00000, .30421, .44831, - + .04783, .03586, 7.29426, .48144, .03629, - + .00000, .33967, .48766, - + .04918, .03649, 8.07288, .51878, .05004, - + .00000, .37390, .52512, - + .05061, .03716, 8.94411, .55893, .06924, - + .00000, .41134, .56540 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ - + .05186, .03774, 9.72754, .59360, .09054, - + .00000, .44435, .60019, - + .05307, .03829, 10.49437, .62619, .11568, - + .00000, .47611, .63289, - + .05403, .03874, 11.12543, .65184, .13927, - + .00000, .50165, .65862, - + .05606, .03968, 12.49215, .70415, .20058, - + .00000, .55563, .71112, - + .05781, .04049, 13.70261, .74715, .26516, - + .01565, .60204, .75428, - + .05977, .04139, 15.09055, .79388, .34794, - + .06273, .65429, .80119, - + .06180, .04233, 16.56467, .84254, .44152, - + .13564, .70975, .85004, - + .06364, .04318, 17.93107, .88855, .52901, - + .19859, .76203, .89623 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ - + .06550, .04403, 19.31050, .93726, .61598, - + .26438, .81654, .94510, - + .06704, .04474, 20.46654, .98026, .68606, - + .32002, .86369, .98824, - + .06891, .04559, 21.88762, 1.03595, .76808, - + .38900, .92348, 1.04411, - + .07056, .04635, 23.14321, 1.08784, .83763, - + .45096, .97819, 1.09614, - + .07206, .04704, 24.29217, 1.13736, .89931, - + .50848, 1.02972, 1.14581, - + .07398, .04792, 25.76268, 1.20304, .97598, - + .58293, 1.09730, 1.21166, - + .07578, .04874, 27.13184, 1.26656, 1.04645, - + .65362, 1.16213, 1.27534, - + .07746, .04951, 28.40598, 1.32746, 1.11178, - + .72056, 1.22396, 1.33639 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ - + .07914, .05028, 29.68954, 1.39007, 1.17746, - + .78873, 1.28731, 1.39916, - + .08078, .05102, 30.91269, 1.45152, 1.24103, - + .85530, 1.34934, 1.46076, - + .08233, .05173, 32.07600, 1.51091, 1.30190, - + .91931, 1.40921, 1.52029, - + .08379, .05239, 33.15438, 1.56718, 1.35926, - + .97979, 1.46588, 1.57668, - + .08526, .05306, 34.23197, 1.62434, 1.41732, - + 1.04107, 1.52343, 1.63398, - + .08670, .05371, 35.27694, 1.68083, 1.47460, - + 1.10154, 1.58028, 1.69060, - + .08807, .05434, 36.26265, 1.73498, 1.52942, - + 1.15940, 1.63476, 1.74487, - + .08936, .05492, 37.17768, 1.78623, 1.58126, - + 1.21410, 1.68631, 1.79623 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ - + .09066, .05551, 38.10364, 1.83863, 1.63424, - + 1.26994, 1.73901, 1.84875, - + .09195, .05609, 38.98455, 1.88976, 1.68592, - + 1.32444, 1.79045, 1.90000, - + .09317, .05665, 39.83699, 1.93952, 1.73621, - + 1.37736, 1.84049, 1.94988, - + .09433, .05717, 40.61322, 1.98603, 1.78320, - + 1.42684, 1.88726, 1.99648, - + .09551, .05770, 41.39886, 2.03356, 1.83122, - + 1.47736, 1.93506, 2.04412 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ - + .05855, .04090, 2.90500, .25055, .00182, - + .00000, .13973, .25771, - + .06056, .04182, 3.39686, .27753, .00385, - + .00000, .16351, .28489, - + .06353, .04319, 4.18520, .31972, .00838, - + .00000, .20086, .32737, - + .06568, .04418, 4.78822, .35143, .01328, - + .00000, .22912, .35930, - + .06792, .04521, 5.45065, .38550, .02054, - + .00000, .25976, .39359, - + .06985, .04610, 6.04421, .41525, .02909, - + .00000, .28681, .42352, - + .07169, .04694, 6.61398, .44329, .03980, - + .00000, .31269, .45174, - + .07364, .04784, 7.24342, .47310, .05463, - + .00000, .34070, .48174 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ - + .07533, .04862, 7.80248, .49856, .07096, - + .00000, .36515, .50737, - + .07695, .04936, 8.34333, .52224, .09013, - + .00000, .38846, .53121, - + .07824, .04995, 8.78451, .54070, .10801, - + .00000, .40706, .54979, - + .08097, .05120, 9.72700, .57784, .15413, - + .00000, .44594, .58720, - + .08332, .05228, 10.54825, .60783, .20223, - + .01137, .47891, .61741, - + .08592, .05347, 11.47559, .63990, .26325, - + .04530, .51555, .64974, - + .08862, .05470, 12.44461, .67285, .33142, - + .09747, .55398, .68294, - + .09106, .05581, 13.32924, .70372, .39435, - + .14197, .58983, .71405 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ - + .09350, .05693, 14.20831, .73618, .45608, - + .18801, .62687, .74674, - + .09552, .05785, 14.93534, .76471, .50519, - + .22659, .65867, .77547, - + .09796, .05896, 15.81797, .80151, .56191, - + .27400, .69871, .81250, - + .10011, .05994, 16.58684, .83560, .60933, - + .31618, .73506, .84679, - + .10207, .06083, 17.28159, .86796, .65088, - + .35503, .76905, .87934, - + .10456, .06195, 18.16017, .91062, .70189, - + .40487, .81330, .92223, - + .10688, .06300, 18.96586, .95153, .74817, - + .45174, .85536, .96337, - + .10904, .06398, 19.70544, .99046, .79060, - + .49574, .89513, 1.00250 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ - + .11120, .06496, 20.44238, 1.03021, .83285, - + .54019, .93559, 1.04245, - + .11329, .06590, 21.13367, 1.06887, .87332, - + .58322, .97484, 1.08130, - + .11526, .06679, 21.78443, 1.10598, .91176, - + .62429, 1.01245, 1.11860, - + .11712, .06763, 22.37990, 1.14086, .94769, - + .66280, 1.04779, 1.15366, - + .11897, .06846, 22.96857, 1.17606, .98381, - + .70155, 1.08341, 1.18903, - + .12079, .06928, 23.53255, 1.21060, 1.01916, - + .73952, 1.11836, 1.22374, - + .12251, .07005, 24.05895, 1.24349, 1.05277, - + .77562, 1.15162, 1.25678, - + .12413, .07078, 24.54169, 1.27439, 1.08434, - + .80951, 1.18288, 1.28783 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ - + .12577, .07151, 25.02650, 1.30583, 1.11643, - + .84393, 1.21467, 1.31942, - + .12737, .07223, 25.48055, 1.33626, 1.14749, - + .87727, 1.24545, 1.35000, - + .12890, .07291, 25.91783, 1.36576, 1.17758, - + .90952, 1.27528, 1.37964, - + .13034, .07355, 26.30958, 1.39311, 1.20548, - + .93944, 1.30294, 1.40712, - + .13179, .07420, 26.70331, 1.42093, 1.23387, - + .96985, 1.33108, 1.43508 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ - + .08637, .05366, 2.58782, .23059, .00157, - + .00000, .12781, .24025, - + .08908, .05493, 2.96868, .25147, .00325, - + .00000, .14637, .26141, - + .09310, .05679, 3.56535, .28361, .00690, - + .00000, .17508, .29396, - + .09598, .05813, 4.01163, .30741, .01078, - + .00000, .19648, .31806, - + .09900, .05953, 4.49294, .33265, .01641, - + .00000, .21939, .34361, - + .10158, .06072, 4.91700, .35441, .02297, - + .00000, .23938, .36563, - + .10401, .06184, 5.31749, .37470, .03110, - + .00000, .25830, .38617, - + .10659, .06304, 5.75375, .39600, .04225, - + .00000, .27855, .40774 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ - + .10883, .06407, 6.13587, .41397, .05443, - + .00000, .29604, .42594, - + .11096, .06505, 6.50057, .43050, .06863, - + .00000, .31256, .44268, - + .11265, .06583, 6.79520, .44324, .08179, - + .00000, .32562, .45560, - + .11623, .06747, 7.41457, .46847, .11545, - + .00000, .35260, .48118, - + .11927, .06887, 7.94422, .48842, .15019, - + .00801, .37512, .50144, - + .12265, .07042, 8.53170, .50935, .19377, - + .03171, .39980, .52271, - + .12612, .07201, 9.13389, .53051, .24184, - + .06788, .42533, .54421, - + .12925, .07343, 9.67389, .55013, .28562, - + .09833, .44888, .56415 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ - + .13237, .07485, 10.20026, .57062, .32795, - + .12948, .47296, .58493, - + .13493, .07602, 10.62868, .58855, .36115, - + .15533, .49346, .60312, - + .13802, .07743, 11.14102, .61159, .39895, - + .18678, .51908, .62646, - + .14073, .07865, 11.57926, .63282, .43007, - + .21448, .54213, .64795, - + .14318, .07976, 11.96911, .65285, .45696, - + .23975, .56351, .66822, - + .14628, .08116, 12.45494, .67908, .48951, - + .27188, .59112, .69475, - + .14916, .08246, 12.89163, .70401, .51860, - + .30177, .61708, .71996, - + .15183, .08366, 13.28538, .72752, .54492, - + .32955, .64140, .74372 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ - + .15449, .08486, 13.67239, .75134, .57085, - + .35738, .66592, .76779, - + .15705, .08600, 14.02733, .77427, .59540, - + .38405, .68947, .79095, - + .15947, .08708, 14.35719, .79610, .61850, - + .40929, .71185, .81301, - + .16172, .08809, 14.65374, .81642, .63987, - + .43275, .73267, .83355, - + .16397, .08909, 14.94254, .83677, .66118, - + .45618, .75350, .85410, - + .16616, .09006, 15.21435, .85657, .68186, - + .47896, .77377, .87410, - + .16822, .09098, 15.46424, .87527, .70137, - + .50045, .79290, .89299, - + .17016, .09184, 15.68920, .89269, .71953, - + .52047, .81073, .91059 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ - + .17212, .09270, 15.91281, .91030, .73789, - + .54068, .82875, .92838, - + .17401, .09354, 16.11683, .92718, .75548, - + .56009, .84603, .94543, - + .17583, .09434, 16.31231, .94347, .77245, - + .57877, .86270, .96189, - + .17752, .09509, 16.48267, .95842, .78804, - + .59596, .87800, .97699, - + .17924, .09584, 16.65221, .97355, .80382, - + .61334, .89349, .99227 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ - + .10826, .06384, 2.39439, .21842, .00145, - + .00000, .12088, .23025, - + .11148, .06535, 2.71659, .23602, .00296, - + .00000, .13667, .24819, - + .11621, .06756, 3.21423, .26286, .00618, - + .00000, .16083, .27554, - + .11960, .06915, 3.58112, .28255, .00953, - + .00000, .17869, .29559, - + .12313, .07079, 3.97215, .30327, .01434, - + .00000, .19766, .31668, - + .12614, .07219, 4.31295, .32099, .01989, - + .00000, .21409, .33472, - + .12898, .07351, 4.63129, .33741, .02671, - + -.00001, .22955, .35143, - + .13198, .07490, 4.97495, .35450, .03601, - + -.00001, .24597, .36884 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ - + .13457, .07610, 5.27320, .36881, .04612, - + -.00001, .26006, .38342, - + .13704, .07724, 5.55525, .38187, .05783, - + -.00001, .27328, .39673, - + .13900, .07815, 5.78169, .39186, .06865, - + -.00001, .28368, .40692, - + .14311, .08004, 6.25251, .41143, .09617, - + -.00001, .30499, .42691, - + .14660, .08165, 6.65002, .42668, .12438, - + .00641, .32260, .44251, - + .15046, .08341, 7.08559, .44247, .15953, - + .02529, .34172, .45869, - + .15442, .08522, 7.52616, .45825, .19799, - + .05397, .36132, .47487, - + .15797, .08684, 7.91635, .47279, .23271, - + .07792, .37927, .48976 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ - + .16149, .08844, 8.29125, .48789, .26600, - + .10224, .39749, .50521, - + .16438, .08975, 8.59288, .50109, .29187, - + .12230, .41293, .51869, - + .16785, .09132, 8.94977, .51802, .32106, - + .14656, .43212, .53596, - + .17088, .09269, 9.25115, .53356, .34485, - + .16778, .44929, .55179, - + .17362, .09392, 9.51594, .54816, .36521, - + .18703, .46512, .56666, - + .17707, .09547, 9.84229, .56722, .38964, - + .21135, .48546, .58604, - + .18026, .09689, 10.13116, .58522, .41126, - + .23383, .50446, .60435, - + .18321, .09821, 10.38797, .60209, .43065, - + .25458, .52214, .62149 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ - + .18614, .09951, 10.63775, .61909, .44961, - + .27525, .53986, .63876, - + .18894, .10076, 10.86246, .63533, .46740, - + .29492, .55675, .65526, - + .19158, .10192, 11.06915, .65071, .48405, - + .31346, .57272, .67089, - + .19403, .10301, 11.25211, .66495, .49937, - + .33059, .58748, .68535, - + .19647, .10408, 11.42800, .67912, .51454, - + .34761, .60217, .69974, - + .19885, .10512, 11.59090, .69282, .52917, - + .36406, .61636, .71365, - + .20108, .10610, 11.73867, .70568, .54290, - + .37951, .62970, .72671, - + .20317, .10701, 11.86938, .71759, .55562, - + .39383, .64205, .73880 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ - + .20527, .10792, 11.99821, .72958, .56841, - + .40823, .65449, .75099, - + .20730, .10880, 12.11276, .74099, .58059, - + .42198, .66632, .76257, - + .20924, .10964, 12.22217, .75196, .59231, - + .43517, .67771, .77371, - + .21104, .11042, 12.31439, .76195, .60299, - + .44723, .68808, .78385, - + .21286, .11121, 12.40527, .77201, .61376, - + .45938, .69853, .79407 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ - + .12703, .07278, 2.25314, .20954, .00138, - + .00000, .11600, .22335, - + .13063, .07448, 2.53657, .22495, .00279, - + .00000, .12992, .23915, - + .13591, .07696, 2.96967, .24827, .00573, - + .00000, .15110, .26305, - + .13969, .07873, 3.28544, .26528, .00874, - + .00000, .16665, .28046, - + .14361, .08056, 3.61897, .28306, .01302, - + .00000, .18306, .29866, - + .14694, .08211, 3.90723, .29818, .01792, - + .00000, .19720, .31414, - + .15008, .08357, 4.17417, .31211, .02390, - + .00000, .21044, .32840, - + .15339, .08511, 4.46034, .32653, .03202, - + -.00001, .22443, .34316 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ - + .15625, .08643, 4.70691, .33853, .04079, - + -.00001, .23638, .35546, - + .15896, .08768, 4.93837, .34940, .05093, - + -.00001, .24754, .36661, - + .16110, .08867, 5.12329, .35768, .06026, - + -.00001, .25628, .37511, - + .16560, .09074, 5.50443, .37375, .08388, - + -.00001, .27407, .39164, - + .16941, .09249, 5.82289, .38612, .10797, - + .00542, .28866, .40439, - + .17361, .09440, 6.16843, .39879, .13784, - + .02133, .30439, .41748, - + .17790, .09636, 6.51415, .41132, .17032, - + .04542, .32040, .43044, - + .18173, .09810, 6.81717, .42282, .19947, - + .06541, .33498, .44232 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ - + .18553, .09981, 7.10486, .43472, .22721, - + .08560, .34970, .45459, - + .18864, .10121, 7.33407, .44510, .24864, - + .10218, .36211, .46527, - + .19236, .10288, 7.60284, .45840, .27265, - + .12213, .37749, .47893, - + .19559, .10433, 7.82715, .47058, .29206, - + .13950, .39118, .49141, - + .19851, .10563, 8.02214, .48200, .30856, - + .15518, .40376, .50310, - + .20218, .10725, 8.26016, .49685, .32821, - + .17490, .41985, .51829, - + .20555, .10875, 8.46784, .51082, .34547, - + .19304, .43479, .53257, - + .20866, .11012, 8.65005, .52383, .36084, - + .20969, .44862, .54587 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ - + .21175, .11147, 8.82558, .53690, .37579, - + .22622, .46242, .55922, - + .21469, .11276, 8.98053, .54930, .38972, - + .24186, .47550, .57188, - + .21745, .11396, 9.12168, .56100, .40270, - + .25654, .48780, .58383, - + .22001, .11508, 9.24462, .57177, .41457, - + .27005, .49912, .59482, - + .22255, .11618, 9.36129, .58243, .42628, - + .28342, .51033, .60570, - + .22501, .11724, 9.46753, .59269, .43752, - + .29628, .52111, .61617, - + .22733, .11823, 9.56252, .60227, .44801, - + .30832, .53119, .62595, - + .22948, .11915, 9.64487, .61110, .45769, - + .31943, .54048, .63496 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ - + .23165, .12008, 9.72529, .61995, .46739, - + .33058, .54980, .64400, - + .23373, .12096, 9.79446, .62831, .47657, - + .34116, .55861, .65253, - + .23572, .12181, 9.86038, .63634, .48539, - + .35129, .56708, .66073, - + .23757, .12259, 9.91366, .64359, .49338, - + .36052, .57473, .66812, - + .23943, .12337, 9.96554, .65088, .50141, - + .36978, .58243, .67556 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ - + .14377, .08092, 2.14181, .20246, .00133, - + .00000, .11225, .21817, - + .14768, .08276, 2.39687, .21625, .00268, - + .00000, .12480, .23238, - + .15341, .08546, 2.78317, .23700, .00542, - + .00000, .14378, .25375, - + .15750, .08737, 3.06228, .25204, .00819, - + .00000, .15765, .26924, - + .16173, .08934, 3.35486, .26769, .01209, - + .00000, .17221, .28534, - + .16533, .09102, 3.60591, .28094, .01652, - + .00000, .18471, .29897, - + .16869, .09258, 3.83675, .29309, .02190, - + .00000, .19637, .31148, - + .17225, .09423, 4.08278, .30560, .02917, - + .00000, .20863, .32436 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ - + .17530, .09564, 4.29346, .31596, .03699, - + .00000, .21906, .33503, - + .17820, .09697, 4.48996, .32530, .04599, - + .00000, .22876, .34467, - + .18049, .09802, 4.64632, .33237, .05426, - + .00000, .23633, .35198, - + .18528, .10022, 4.96613, .34599, .07512, - + .00000, .25167, .36608, - + .18933, .10206, 5.23092, .35636, .09630, - + .00474, .26417, .37686, - + .19377, .10408, 5.51586, .36688, .12244, - + .01859, .27755, .38781, - + .19829, .10613, 5.79828, .37720, .15074, - + .03949, .29110, .39857, - + .20234, .10794, 6.04335, .38662, .17600, - + .05675, .30337, .40838 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ - + .20632, .10973, 6.27352, .39635, .19992, - + .07412, .31570, .41849, - + .20957, .11118, 6.45536, .40482, .21830, - + .08831, .32607, .42727, - + .21346, .11291, 6.66685, .41568, .23876, - + .10533, .33887, .43849, - + .21683, .11439, 6.84134, .42560, .25520, - + .12009, .35023, .44872, - + .21986, .11573, 6.99153, .43488, .26910, - + .13337, .36062, .45827, - + .22366, .11740, 7.17320, .44691, .28555, - + .15000, .37386, .47065, - + .22715, .11892, 7.32936, .45818, .29991, - + .16523, .38610, .48223, - + .23036, .12031, 7.46462, .46865, .31261, - + .17916, .39738, .49298 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ - + .23353, .12168, 7.59373, .47912, .32492, - + .19294, .40860, .50372, - + .23655, .12297, 7.70532, .48899, .33631, - + .20592, .41916, .51385, - + .23937, .12418, 7.80595, .49827, .34689, - + .21806, .42907, .52337, - + .24198, .12529, 7.89207, .50676, .35651, - + .22918, .43813, .53208, - + .24457, .12639, 7.97259, .51514, .36597, - + .24016, .44708, .54067, - + .24707, .12745, 8.04447, .52316, .37500, - + .25069, .45564, .54889, - + .24941, .12843, 8.10767, .53062, .38342, - + .26051, .46361, .55654, - + .25159, .12934, 8.16112, .53745, .39114, - + .26955, .47093, .56355 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ - + .25377, .13025, 8.21272, .54429, .39886, - + .27858, .47825, .57056, - + .25586, .13112, 8.25504, .55070, .40613, - + .28713, .48512, .57712, - + .25786, .13195, 8.29530, .55684, .41309, - + .29529, .49171, .58342, - + .25970, .13271, 8.32588, .56234, .41936, - + .30270, .49764, .58906, - + .26155, .13347, 8.35514, .56786, .42566, - + .31012, .50358, .59471 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ - + .17330, .09562, 1.97188, .19141, .00128, - + .00000, .10665, .21072, - + .17769, .09768, 2.18690, .20286, .00253, - + .00001, .11724, .22265, - + .18410, .10068, 2.50801, .21996, .00501, - + .00001, .13313, .24043, - + .18865, .10280, 2.73649, .23224, .00745, - + .00001, .14464, .25320, - + .19334, .10497, 2.97307, .24493, .01083, - + .00001, .15664, .26637, - + .19731, .10680, 3.17379, .25558, .01461, - + .00001, .16686, .27744, - + .20102, .10851, 3.35596, .26527, .01916, - + .00001, .17634, .28750, - + .20491, .11029, 3.54827, .27517, .02526, - + .00001, .18624, .29779 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ - + .20825, .11181, 3.71124, .28329, .03177, - + .00001, .19460, .30625, - + .21141, .11324, 3.86155, .29054, .03922, - + .00001, .20232, .31381, - + .21390, .11437, 3.98034, .29599, .04604, - + .00001, .20832, .31951, - + .21909, .11671, 4.22022, .30633, .06312, - + .00001, .22036, .33035, - + .22345, .11866, 4.41563, .31405, .08035, - + .00383, .23006, .33848, - + .22821, .12078, 4.62265, .32172, .10147, - + .01493, .24034, .34660, - + .23304, .12292, 4.82433, .32914, .12415, - + .03161, .25065, .35446, - + .23733, .12480, 4.99655, .33586, .14423, - + .04528, .25990, .36157 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ - + .24153, .12664, 5.15492, .34275, .16308, - + .05892, .26913, .36884, - + .24495, .12812, 5.27785, .34876, .17743, - + .07001, .27684, .37515, - + .24901, .12987, 5.41861, .35646, .19327, - + .08323, .28632, .38320, - + .25252, .13138, 5.53244, .36348, .20586, - + .09461, .29466, .39051, - + .25566, .13272, 5.62823, .37002, .21641, - + .10478, .30226, .39730, - + .25958, .13437, 5.74189, .37847, .22877, - + .11746, .31188, .40608, - + .26315, .13588, 5.83669, .38632, .23943, - + .12898, .32069, .41422, - + .26642, .13724, 5.91634, .39355, .24878, - + .13945, .32874, .42170 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ - + .26964, .13857, 5.99080, .40074, .25775, - + .14974, .33670, .42914, - + .27267, .13983, 6.05207, .40744, .26599, - + .15937, .34411, .43607, - + .27551, .14099, 6.10597, .41370, .27358, - + .16833, .35103, .44254, - + .27812, .14204, 6.14989, .41937, .28043, - + .17650, .35730, .44841, - + .28070, .14308, 6.18932, .42492, .28711, - + .18450, .36344, .45414, - + .28316, .14407, 6.22248, .43019, .29346, - + .19214, .36928, .45957, - + .28547, .14499, 6.25002, .43504, .29933, - + .19922, .37467, .46458, - + .28760, .14584, 6.27124, .43944, .30467, - + .20571, .37957, .46912 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ - + .28973, .14667, 6.29093, .44381, .30998, - + .21216, .38445, .47364, - + .29176, .14747, 6.30404, .44784, .31494, - + .21822, .38897, .47780, - + .29370, .14822, 6.31648, .45170, .31967, - + .22399, .39330, .48178, - + .29547, .14890, 6.32275, .45510, .32389, - + .22918, .39713, .48528, - + .29724, .14958, 6.32791, .45848, .32811, - + .23437, .40096, .48877 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ - + .21138, .11514, 1.79079, .17901, .00125, - + .00000, .10074, .20332, - + .21626, .11739, 1.96698, .18816, .00242, - + .00000, .10940, .21298, - + .22334, .12063, 2.22574, .20169, .00465, - + .00000, .12228, .22721, - + .22833, .12290, 2.40649, .21131, .00678, - + .00000, .13151, .23732, - + .23346, .12522, 2.59081, .22114, .00967, - + .00000, .14106, .24765, - + .23778, .12716, 2.74496, .22932, .01284, - + -.00001, .14913, .25625, - + .24178, .12895, 2.88262, .23669, .01661, - + .00000, .15654, .26399, - + .24598, .13081, 3.02624, .24414, .02160, - + .00000, .16422, .27182 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ - + .24956, .13239, 3.14636, .25017, .02688, - + .00000, .17066, .27818, - + .25293, .13387, 3.25551, .25549, .03288, - + .00000, .17656, .28380, - + .25558, .13503, 3.34105, .25944, .03834, - + .00000, .18110, .28799, - + .26106, .13741, 3.51065, .26678, .05191, - + .00000, .19013, .29581, - + .26564, .13937, 3.64592, .27211, .06548, - + .00298, .19730, .30151, - + .27061, .14149, 3.78625, .27725, .08198, - + .01160, .20480, .30707, - + .27562, .14360, 3.91961, .28210, .09954, - + .02449, .21222, .31232, - + .28003, .14545, 4.03076, .28645, .11494, - + .03495, .21881, .31702 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ - + .28432, .14722, 4.12976, .29088, .12925, - + .04531, .22532, .32177, - + .28778, .14864, 4.20458, .29475, .14004, - + .05366, .23072, .32589, - + .29188, .15031, 4.28810, .29972, .15181, - + .06355, .23730, .33115, - + .29537, .15172, 4.35314, .30424, .16106, - + .07200, .24305, .33591, - + .29849, .15296, 4.40591, .30842, .16871, - + .07950, .24824, .34030, - + .30236, .15448, 4.46645, .31381, .17757, - + .08879, .25476, .34595, - + .30585, .15585, 4.51374, .31877, .18512, - + .09715, .26067, .35112, - + .30901, .15707, 4.55100, .32328, .19165, - + .10469, .26601, .35582 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ - + .31212, .15825, 4.58425, .32772, .19785, - + .11205, .27124, .36045, - + .31501, .15934, 4.60809, .33179, .20348, - + .11887, .27604, .36468, - + .31770, .16035, 4.62757, .33555, .20861, - + .12519, .28048, .36859, - + .32016, .16124, 4.64084, .33890, .21319, - + .13089, .28445, .37207, - + .32256, .16211, 4.65078, .34214, .21763, - + .13645, .28830, .37543, - + .32484, .16294, 4.65653, .34516, .22180, - + .14172, .29191, .37855, - + .32696, .16369, 4.65919, .34791, .22562, - + .14657, .29521, .38139, - + .32891, .16437, 4.65828, .35035, .22906, - + .15098, .29817, .38390 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ - + .33084, .16504, 4.65622, .35275, .23247, - + .15535, .30109, .38639, - + .33265, .16567, 4.64977, .35490, .23560, - + .15941, .30374, .38860, - + .33438, .16626, 4.64368, .35695, .23858, - + .16327, .30627, .39072, - + .33594, .16677, 4.63411, .35870, .24119, - + .16670, .30847, .39251, - + .33751, .16729, 4.62373, .36042, .24379, - + .17012, .31064, .39428 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ - + .26529, .14336, 1.58809, .16364, .00123, - + -.00002, .09390, .19535, - + .27059, .14567, 1.72443, .17039, .00233, - + -.00002, .10057, .20255, - + .27824, .14897, 1.92020, .18023, .00433, - + -.00002, .11034, .21303, - + .28358, .15124, 2.05347, .18712, .00616, - + -.00002, .11725, .22036, - + .28902, .15354, 2.18654, .19408, .00855, - + -.00002, .12432, .22774, - + .29356, .15544, 2.29560, .19978, .01113, - + -.00002, .13022, .23379, - + .29774, .15717, 2.39066, .20484, .01412, - + -.00002, .13558, .23914, - + .30209, .15895, 2.48815, .20986, .01801, - + -.00002, .14108, .24448 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ - + .30577, .16045, 2.56807, .21387, .02208, - + -.00002, .14563, .24873, - + .30921, .16183, 2.63906, .21731, .02665, - + -.00002, .14974, .25240, - + .31190, .16291, 2.69400, .21981, .03077, - + -.00002, .15289, .25509, - + .31742, .16508, 2.79974, .22430, .04093, - + -.00002, .15902, .25992, - + .32198, .16685, 2.88107, .22738, .05096, - + .00218, .16380, .26326, - + .32687, .16872, 2.96246, .23017, .06303, - + .00846, .16869, .26633, - + .33173, .17054, 3.03648, .23266, .07572, - + .01779, .17342, .26907, - + .33596, .17211, 3.09532, .23485, .08672, - + .02528, .17756, .27147 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ - + .34002, .17357, 3.14427, .23706, .09681, - + .03262, .18158, .27386, - + .34326, .17472, 3.17918, .23901, .10431, - + .03848, .18488, .27594, - + .34705, .17604, 3.21591, .24154, .11238, - + .04536, .18886, .27862, - + .35024, .17714, 3.24160, .24383, .11861, - + .05117, .19229, .28102, - + .35304, .17808, 3.26007, .24595, .12369, - + .05628, .19534, .28322, - + .35648, .17921, 3.27886, .24866, .12947, - + .06255, .19913, .28602, - + .35954, .18018, 3.28979, .25109, .13430, - + .06813, .20250, .28852, - + .36226, .18102, 3.29510, .25325, .13840, - + .07311, .20548, .29073 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ - + .36490, .18183, 3.29770, .25536, .14225, - + .07794, .20836, .29287, - + .36731, .18253, 3.29429, .25719, .14566, - + .08236, .21093, .29473, - + .36952, .18316, 3.28913, .25885, .14874, - + .08641, .21327, .29640, - + .37150, .18370, 3.28100, .26028, .15145, - + .09003, .21532, .29782, - + .37341, .18421, 3.27074, .26160, .15403, - + .09354, .21726, .29913, - + .37520, .18466, 3.25815, .26277, .15641, - + .09681, .21902, .30029, - + .37684, .18506, 3.24450, .26379, .15856, - + .09981, .22060, .30129, - + .37830, .18541, 3.22948, .26464, .16047, - + .10250, .22197, .30211 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ - + .37974, .18574, 3.21378, .26546, .16235, - + .10516, .22330, .30289, - + .38107, .18601, 3.19560, .26611, .16402, - + .10759, .22446, .30350, - + .38232, .18627, 3.17849, .26673, .16561, - + .10989, .22555, .30408, - + .38342, .18647, 3.15993, .26717, .16697, - + .11192, .22643, .30447, - + .38450, .18666, 3.14088, .26758, .16830, - + .11391, .22729, .30483 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ - + .31202, .16772, 1.45009, .15141, .00123, - + -.00001, .08874, .18943, - + .31744, .16990, 1.56062, .15660, .00229, - + -.00001, .09409, .19496, - + .32518, .17297, 1.71628, .16407, .00415, - + -.00001, .10185, .20289, - + .33054, .17504, 1.81983, .16924, .00579, - + -.00001, .10728, .20835, - + .33595, .17711, 1.92125, .17438, .00788, - + -.00001, .11278, .21378, - + .34045, .17881, 2.00284, .17853, .01007, - + -.00002, .11732, .21816, - + .34454, .18032, 2.07221, .18215, .01258, - + -.00002, .12139, .22196, - + .34877, .18186, 2.14223, .18569, .01579, - + -.00001, .12553, .22568 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ - + .35232, .18313, 2.19851, .18845, .01912, - + -.00002, .12892, .22857, - + .35561, .18429, 2.24725, .19075, .02281, - + -.00001, .13195, .23100, - + .35817, .18518, 2.28450, .19240, .02612, - + -.00001, .13424, .23274, - + .36336, .18695, 2.35385, .19519, .03419, - + -.00002, .13863, .23569, - + .36758, .18835, 2.40499, .19695, .04209, - + .00171, .14197, .23755, - + .37206, .18981, 2.45387, .19839, .05151, - + .00663, .14532, .23907, - + .37646, .19118, 2.49565, .19953, .06131, - + .01388, .14848, .24029, - + .38024, .19231, 2.52664, .20049, .06972, - + .01964, .15121, .24129 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ - + .38380, .19333, 2.54947, .20145, .07734, - + .02524, .15380, .24226, - + .38659, .19410, 2.56379, .20233, .08294, - + .02968, .15590, .24313, - + .38981, .19497, 2.57673, .20352, .08890, - + .03484, .15842, .24428, - + .39248, .19564, 2.58297, .20459, .09344, - + .03917, .16055, .24532, - + .39478, .19619, 2.58483, .20558, .09709, - + .04295, .16242, .24624, - + .39755, .19683, 2.58375, .20684, .10118, - + .04756, .16471, .24742, - + .39997, .19733, 2.57777, .20792, .10454, - + .05162, .16669, .24841, - + .40206, .19772, 2.56858, .20884, .10735, - + .05520, .16840, .24923 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ - + .40406, .19807, 2.55754, .20971, .10994, - + .05865, .17003, .24999, - + .40582, .19832, 2.54257, .21038, .11219, - + .06178, .17142, .25054, - + .40742, .19852, 2.52717, .21096, .11420, - + .06462, .17265, .25099, - + .40879, .19866, 2.51038, .21139, .11593, - + .06715, .17369, .25129, - + .41009, .19876, 2.49220, .21174, .11756, - + .06956, .17464, .25151, - + .41127, .19881, 2.47271, .21199, .11905, - + .07181, .17546, .25161, - + .41231, .19883, 2.45316, .21215, .12037, - + .07384, .17617, .25164, - + .41321, .19881, 2.43335, .21222, .12151, - + .07565, .17674, .25157 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ - + .41408, .19878, 2.41316, .21227, .12262, - + .07742, .17727, .25147, - + .41481, .19869, 2.39147, .21219, .12358, - + .07904, .17768, .25125, - + .41551, .19861, 2.37113, .21213, .12449, - + .08056, .17807, .25104, - + .41607, .19848, 2.35033, .21195, .12524, - + .08187, .17832, .25072, - + .41661, .19833, 2.32924, .21175, .12596, - + .08315, .17855, .25037 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ - + .39226, .20782, 1.26949, .13118, .00123, - + .00000, .08019, .17861, - + .39729, .20936, 1.34639, .13440, .00225, - + .00000, .08385, .18183, - + .40433, .21144, 1.45074, .13891, .00392, - + .00001, .08904, .18633, - + .40908, .21278, 1.51703, .14193, .00532, - + .00000, .09259, .18930, - + .41379, .21405, 1.57943, .14485, .00703, - + .00000, .09611, .19214, - + .41762, .21505, 1.62766, .14713, .00875, - + .00001, .09896, .19433, - + .42102, .21586, 1.66640, .14903, .01065, - + .00000, .10145, .19611, - + .42448, .21666, 1.70402, .15080, .01303, - + .00000, .10393, .19776 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ - + .42733, .21728, 1.73274, .15209, .01544, - + .00000, .10591, .19893, - + .42990, .21780, 1.75596, .15307, .01807, - + .00000, .10762, .19978, - + .43188, .21818, 1.77311, .15372, .02039, - + .00000, .10890, .20031, - + .43576, .21884, 1.80180, .15458, .02597, - + .00000, .11124, .20090, - + .43880, .21928, 1.81989, .15486, .03133, - + .00118, .11291, .20093, - + .44190, .21965, 1.83392, .15481, .03762, - + .00450, .11448, .20057, - + .44479, .21988, 1.84197, .15451, .04405, - + .00936, .11587, .19994, - + .44716, .21999, 1.84443, .15419, .04948, - + .01317, .11700, .19931 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ - + .44925, .21995, 1.84115, .15384, .05430, - + .01681, .11801, .19862, - + .45080, .21984, 1.83545, .15360, .05779, - + .01965, .11881, .19809, - + .45249, .21965, 1.82581, .15339, .06142, - + .02292, .11973, .19752, - + .45376, .21938, 1.81407, .15322, .06411, - + .02563, .12047, .19700, - + .45476, .21907, 1.80099, .15305, .06621, - + .02797, .12108, .19652, - + .45587, .21862, 1.78254, .15285, .06851, - + .03076, .12179, .19592, - + .45668, .21811, 1.76238, .15261, .07033, - + .03320, .12233, .19526, - + .45727, .21755, 1.74161, .15230, .07179, - + .03531, .12274, .19458 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ - + .45775, .21696, 1.72010, .15196, .07310, - + .03731, .12309, .19387, - + .45801, .21629, 1.69682, .15152, .07419, - + .03910, .12329, .19305, - + .45817, .21564, 1.67443, .15107, .07513, - + .04070, .12343, .19225, - + .45819, .21496, 1.65230, .15058, .07591, - + .04210, .12347, .19141, - + .45812, .21426, 1.62959, .15004, .07662, - + .04343, .12346, .19052, - + .45794, .21352, 1.60661, .14946, .07723, - + .04464, .12339, .18958, - + .45769, .21280, 1.58446, .14887, .07775, - + .04572, .12327, .18865, - + .45736, .21208, 1.56300, .14825, .07817, - + .04666, .12309, .18772 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ - + .45699, .21135, 1.54150, .14762, .07857, - + .04756, .12290, .18677, - + .45650, .21057, 1.51953, .14692, .07888, - + .04837, .12262, .18576, - + .45604, .20985, 1.49902, .14627, .07917, - + .04913, .12236, .18481, - + .45548, .20911, 1.47892, .14559, .07937, - + .04976, .12205, .18383, - + .45489, .20836, 1.45878, .14490, .07956, - + .05037, .12172, .18284 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ - + .46012, .23862, 1.15314, .11386, .00123, - + .00000, .07242, .16681, - + .46416, .23923, 1.20745, .11586, .00220, - + .00000, .07499, .16848, - + .46965, .23995, 1.27825, .11859, .00375, - + .00000, .07856, .17067, - + .47322, .24030, 1.32078, .12033, .00498, - + .00000, .08094, .17201, - + .47663, .24053, 1.35881, .12195, .00644, - + .00000, .08324, .17317, - + .47932, .24063, 1.38663, .12316, .00785, - + .00000, .08506, .17397, - + .48159, .24059, 1.40699, .12407, .00937, - + -.00001, .08660, .17448, - + .48383, .24048, 1.42555, .12484, .01124, - + -.00001, .08809, .17483 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ - + .48560, .24032, 1.43836, .12532, .01308, - + .00000, .08925, .17492, - + .48710, .24007, 1.44711, .12558, .01507, - + .00000, .09021, .17481, - + .48823, .23985, 1.45302, .12569, .01680, - + .00000, .09090, .17462, - + .49027, .23925, 1.45944, .12553, .02089, - + .00000, .09206, .17382, - + .49168, .23861, 1.45993, .12505, .02477, - + .00086, .09280, .17278, - + .49295, .23779, 1.45595, .12427, .02925, - + .00328, .09340, .17133, - + .49392, .23680, 1.44717, .12329, .03376, - + .00680, .09383, .16967, - + .49456, .23579, 1.43589, .12236, .03752, - + .00952, .09413, .16814 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ - + .49484, .23466, 1.42058, .12142, .04080, - + .01207, .09432, .16656, - + .49488, .23367, 1.40599, .12068, .04312, - + .01405, .09444, .16529, - + .49476, .23241, 1.38668, .11984, .04549, - + .01630, .09455, .16380, - + .49442, .23122, 1.36764, .11911, .04720, - + .01814, .09460, .16250, - + .49395, .23007, 1.34887, .11844, .04850, - + .01971, .09459, .16131, - + .49319, .22856, 1.32419, .11760, .04988, - + .02157, .09453, .15981, - + .49225, .22707, 1.29944, .11677, .05093, - + .02315, .09439, .15835, - + .49120, .22562, 1.27540, .11595, .05173, - + .02452, .09418, .15696 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ - + .49007, .22415, 1.25126, .11513, .05243, - + .02580, .09394, .15556, - + .48873, .22265, 1.22648, .11425, .05297, - + .02691, .09361, .15412, - + .48739, .22121, 1.20313, .11340, .05341, - + .02790, .09327, .15274, - + .48601, .21982, 1.18075, .11257, .05376, - + .02876, .09290, .15141, - + .48453, .21840, 1.15826, .11171, .05405, - + .02956, .09248, .15005, - + .48299, .21697, 1.13600, .11083, .05427, - + .03027, .09203, .14869, - + .48145, .21561, 1.11490, .10997, .05444, - + .03090, .09157, .14738, - + .47991, .21429, 1.09485, .10913, .05456, - + .03143, .09111, .14610 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ - + .47833, .21296, 1.07494, .10829, .05467, - + .03195, .09063, .14482, - + .47665, .21161, 1.05502, .10741, .05470, - + .03239, .09010, .14352, - + .47506, .21033, 1.03651, .10658, .05474, - + .03279, .08961, .14230, - + .47344, .20908, 1.01871, .10577, .05472, - + .03312, .08909, .14110, - + .47180, .20781, 1.00100, .10494, .05469, - + .03344, .08856, .13989 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ - + .51808, .26164, 1.06865, .09836, .00121, - + -.00001, .06489, .15366, - + .52071, .26121, 1.10590, .09957, .00214, - + -.00001, .06670, .15421, - + .52406, .26041, 1.15189, .10115, .00357, - + .00000, .06915, .15479, - + .52603, .25967, 1.17730, .10210, .00467, - + .00000, .07073, .15499, - + .52776, .25878, 1.19816, .10289, .00593, - + .00000, .07222, .15500, - + .52901, .25791, 1.21186, .10342, .00712, - + .00000, .07336, .15486, - + .52988, .25696, 1.21975, .10373, .00837, - + .00000, .07428, .15453, - + .53061, .25591, 1.22557, .10391, .00987, - + -.00001, .07514, .15402 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ - + .53105, .25494, 1.22796, .10393, .01132, - + .00000, .07577, .15343, - + .53128, .25392, 1.22739, .10377, .01286, - + .00000, .07624, .15271, - + .53141, .25310, 1.22616, .10357, .01419, - + .00000, .07656, .15206, - + .53128, .25123, 1.21879, .10286, .01729, - + -.00001, .07699, .15040, - + .53086, .24952, 1.20871, .10200, .02018, - + .00065, .07717, .14872, - + .53008, .24751, 1.19426, .10085, .02347, - + .00248, .07719, .14667, - + .52893, .24534, 1.17606, .09955, .02674, - + .00512, .07706, .14442, - + .52762, .24332, 1.15739, .09837, .02942, - + .00714, .07689, .14236 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ - + .52597, .24117, 1.13599, .09716, .03173, - + .00901, .07662, .14033, - + .52443, .23935, 1.11712, .09619, .03333, - + .01044, .07637, .13866, - + .52239, .23711, 1.09345, .09508, .03493, - + .01206, .07605, .13670, - + .52039, .23507, 1.07142, .09411, .03605, - + .01337, .07572, .13500, - + .51840, .23316, 1.05056, .09322, .03688, - + .01447, .07538, .13346, - + .51576, .23071, 1.02391, .09211, .03772, - + .01577, .07493, .13154, - + .51306, .22838, .99820, .09105, .03833, - + .01685, .07444, .12971, - + .51039, .22615, .97384, .09003, .03878, - + .01777, .07394, .12799 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ - + .50767, .22392, .94978, .08902, .03913, - + .01864, .07342, .12629, - + .50479, .22169, .92577, .08799, .03938, - + .01937, .07285, .12457, - + .50201, .21959, .90344, .08702, .03956, - + .02001, .07229, .12296, - + .49928, .21759, .88240, .08608, .03967, - + .02055, .07173, .12144, - + .49649, .21558, .86151, .08513, .03975, - + .02105, .07114, .11991, - + .49367, .21357, .84110, .08416, .03979, - + .02149, .07054, .11839, - + .49093, .21167, .82198, .08324, .03980, - + .02188, .06995, .11696, - + .48825, .20987, .80403, .08237, .03977, - + .02220, .06937, .11558 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ - + .48555, .20806, .78632, .08149, .03973, - + .02250, .06879, .11421, - + .48277, .20625, .76884, .08061, .03965, - + .02274, .06818, .11283, - + .48015, .20456, .75265, .07978, .03956, - + .02296, .06761, .11153, - + .47758, .20291, .73727, .07896, .03945, - + .02314, .06704, .11029, - + .47498, .20126, .72203, .07813, .03933, - + .02330, .06647, .10905 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ - + .57813, .28101, .98605, .08110, .00116, - + -.00002, .05579, .13587, - + .57856, .27926, 1.00659, .08169, .00203, - + -.00002, .05695, .13547, - + .57867, .27653, 1.02892, .08238, .00333, - + -.00001, .05844, .13470, - + .57833, .27442, 1.03843, .08270, .00429, - + .00000, .05934, .13398, - + .57764, .27211, 1.04367, .08288, .00534, - + -.00001, .06015, .13308, - + .57679, .27009, 1.04481, .08291, .00632, - + -.00001, .06073, .13220, - + .57565, .26805, 1.04185, .08278, .00731, - + -.00001, .06115, .13122, - + .57428, .26586, 1.03683, .08254, .00847, - + -.00001, .06149, .13006 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ - + .57292, .26393, 1.03051, .08224, .00957, - + -.00001, .06170, .12895, - + .57140, .26200, 1.02233, .08181, .01071, - + -.00001, .06180, .12779, - + .57016, .26047, 1.01536, .08142, .01169, - + -.00001, .06184, .12683, - + .56717, .25712, .99726, .08039, .01393, - + -.00001, .06175, .12457, - + .56429, .25418, .97929, .07933, .01597, - + .00047, .06152, .12248, - + .56081, .25087, .95734, .07803, .01827, - + .00180, .06113, .12005, - + .55691, .24739, .93277, .07662, .02051, - + .00371, .06064, .11749, - + .55317, .24420, .90944, .07533, .02231, - + .00513, .06014, .11520 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ - + .54910, .24094, .88457, .07404, .02383, - + .00646, .05959, .11291, - + .54559, .23822, .86355, .07300, .02485, - + .00746, .05910, .11106, - + .54123, .23492, .83799, .07179, .02585, - + .00857, .05851, .10889, - + .53722, .23199, .81505, .07074, .02653, - + .00946, .05797, .10700, - + .53340, .22930, .79392, .06979, .02700, - + .01019, .05745, .10530, - + .52848, .22591, .76748, .06861, .02745, - + .01104, .05677, .10319, - + .52370, .22269, .74263, .06749, .02773, - + .01174, .05610, .10123, - + .51912, .21968, .71960, .06644, .02791, - + .01233, .05544, .09941 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ - + .51452, .21671, .69716, .06541, .02804, - + .01287, .05479, .09762, - + .50985, .21379, .67527, .06438, .02809, - + .01332, .05410, .09584, - + .50544, .21105, .65514, .06341, .02811, - + .01371, .05345, .09419, - + .50123, .20845, .63644, .06248, .02808, - + .01403, .05282, .09267, - + .49695, .20586, .61809, .06155, .02803, - + .01432, .05218, .09114, - + .49269, .20333, .60038, .06064, .02795, - + .01457, .05153, .08962, - + .48863, .20095, .58394, .05978, .02786, - + .01477, .05092, .08821, - + .48473, .19869, .56868, .05895, .02775, - + .01494, .05033, .08687 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ - + .48083, .19644, .55372, .05814, .02763, - + .01509, .04974, .08555, - + .47688, .19421, .53912, .05733, .02749, - + .01522, .04913, .08424, - + .47318, .19212, .52565, .05657, .02735, - + .01532, .04856, .08302, - + .46958, .19012, .51301, .05584, .02720, - + .01541, .04801, .08185, - + .46596, .18813, .50056, .05511, .02704, - + .01548, .04745, .08069 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ - + .62524, .29150, .91617, .06605, .00110, - + -.00003, .04719, .11760, - + .62322, .28847, .92353, .06627, .00190, - + -.00003, .04790, .11663, - + .61976, .28391, .92772, .06642, .00306, - + -.00003, .04877, .11504, - + .61687, .28051, .92538, .06638, .00390, - + -.00002, .04925, .11378, - + .61354, .27691, .91929, .06622, .00479, - + -.00002, .04963, .11237, - + .61046, .27383, .91155, .06600, .00559, - + -.00002, .04987, .11107, - + .60724, .27078, .90113, .06564, .00639, - + -.00002, .04998, .10974, - + .60369, .26756, .88882, .06519, .00730, - + -.00003, .05003, .10828 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ - + .60045, .26477, .87681, .06473, .00814, - + -.00003, .05000, .10694, - + .59716, .26203, .86381, .06419, .00900, - + -.00003, .04989, .10557, - + .59454, .25987, .85328, .06372, .00973, - + -.00003, .04978, .10447, - + .58861, .25527, .82880, .06260, .01137, - + -.00003, .04939, .10200, - + .58329, .25130, .80642, .06152, .01284, - + .00033, .04896, .09979, - + .57717, .24688, .78060, .06024, .01446, - + .00133, .04839, .09729, - + .57061, .24230, .75311, .05886, .01601, - + .00274, .04773, .09470, - + .56451, .23819, .72796, .05763, .01724, - + .00380, .04710, .09239 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ - + .55817, .23401, .70213, .05640, .01825, - + .00475, .04642, .09012, - + .55281, .23058, .68082, .05541, .01891, - + .00546, .04586, .08828, - + .54627, .22648, .65541, .05425, .01954, - + .00625, .04517, .08613, - + .54039, .22284, .63312, .05324, .01993, - + .00687, .04456, .08428, - + .53491, .21954, .61297, .05234, .02018, - + .00738, .04398, .08262, - + .52796, .21542, .58810, .05123, .02041, - + .00796, .04325, .08056, - + .52133, .21157, .56517, .05019, .02053, - + .00843, .04254, .07864, - + .51508, .20798, .54423, .04921, .02057, - + .00881, .04186, .07690 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ - + .50887, .20446, .52405, .04824, .02058, - + .00915, .04118, .07522, - + .50268, .20102, .50465, .04730, .02053, - + .00944, .04050, .07356, - + .49686, .19783, .48697, .04642, .02046, - + .00968, .03986, .07202, - + .49133, .19486, .47074, .04561, .02037, - + .00987, .03926, .07057, - + .48579, .19191, .45495, .04480, .02027, - + .01004, .03865, .06915, - + .48034, .18903, .43987, .04399, .02015, - + .01018, .03803, .06778, - + .47518, .18631, .42598, .04323, .02002, - + .01030, .03746, .06650, - + .47030, .18375, .41318, .04251, .01988, - + .01040, .03691, .06531 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ - + .46542, .18121, .40070, .04180, .01973, - + .01048, .03636, .06413, - + .46051, .17872, .38864, .04110, .01957, - + .01053, .03582, .06296, - + .45592, .17639, .37756, .04046, .01942, - + .01058, .03531, .06187, - + .45152, .17418, .36725, .03984, .01926, - + .01060, .03482, .06084, - + .44711, .17197, .35715, .03921, .01911, - + .01061, .03433, .05981 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ - + .66002, .29458, .85220, .05311, .00102, - + .00000, .03927, .09978, - + .65544, .29038, .84907, .05312, .00175, - + -.00001, .03969, .09848, - + .64829, .28418, .83922, .05297, .00277, - + -.00001, .04015, .09649, - + .64276, .27968, .82801, .05276, .00349, - + -.00001, .04035, .09497, - + .63675, .27498, .81366, .05244, .00424, - + -.00001, .04046, .09331, - + .63145, .27096, .79962, .05209, .00489, - + -.00002, .04049, .09183, - + .62613, .26708, .78409, .05166, .00553, - + -.00001, .04041, .09037, - + .62042, .26301, .76693, .05114, .00624, - + -.00001, .04028, .08879 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ - + .61535, .25950, .75127, .05064, .00688, - + -.00001, .04012, .08737, - + .61033, .25611, .73530, .05008, .00753, - + -.00001, .03990, .08598, - + .60635, .25345, .72265, .04961, .00808, - + -.00001, .03970, .08487, - + .59766, .24782, .69464, .04852, .00927, - + -.00001, .03919, .08242, - + .59004, .24302, .67008, .04752, .01033, - + .00026, .03867, .08027, - + .58145, .23773, .64263, .04634, .01147, - + .00101, .03804, .07788, - + .57243, .23232, .61429, .04510, .01255, - + .00206, .03733, .07543, - + .56419, .22749, .58899, .04400, .01338, - + .00284, .03668, .07327 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ - + .55578, .22264, .56364, .04288, .01403, - + .00352, .03597, .07119, - + .54878, .21868, .54307, .04199, .01446, - + .00404, .03541, .06949, - + .54033, .21397, .51891, .04096, .01484, - + .00460, .03473, .06749, - + .53280, .20986, .49808, .04006, .01507, - + .00503, .03412, .06578, - + .52587, .20615, .47948, .03927, .01520, - + .00538, .03355, .06426, - + .51714, .20155, .45680, .03829, .01528, - + .00577, .03284, .06238, - + .50897, .19725, .43618, .03736, .01530, - + .00609, .03218, .06064, - + .50131, .19329, .41759, .03651, .01527, - + .00634, .03154, .05907 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ - + .49375, .18943, .39983, .03569, .01522, - + .00655, .03091, .05755, - + .48631, .18567, .38297, .03486, .01512, - + .00673, .03029, .05608, - + .47936, .18220, .36772, .03410, .01502, - + .00689, .02971, .05472, - + .47281, .17898, .35385, .03340, .01491, - + .00702, .02916, .05346, - + .46628, .17580, .34045, .03271, .01479, - + .00712, .02862, .05221, - + .45989, .17271, .32774, .03204, .01465, - + .00719, .02808, .05102, - + .45386, .16981, .31612, .03141, .01451, - + .00725, .02757, .04991, - + .44819, .16711, .30548, .03081, .01437, - + .00729, .02709, .04888 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ - + .44255, .16443, .29516, .03022, .01423, - + .00732, .02661, .04786, - + .43696, .16181, .28527, .02964, .01407, - + .00734, .02615, .04687, - + .43173, .15936, .27622, .02909, .01393, - + .00736, .02571, .04595, - + .42671, .15705, .26785, .02859, .01379, - + .00737, .02530, .04507, - + .42170, .15475, .25969, .02809, .01365, - + .00737, .02489, .04420 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ - + .68321, .29144, .79074, .04214, .00092, - + -.00003, .03217, .08309, - + .67606, .28626, .77931, .04203, .00158, - + -.00003, .03240, .08166, - + .66523, .27869, .75870, .04176, .00248, - + -.00002, .03260, .07952, - + .65714, .27326, .74092, .04147, .00309, - + -.00002, .03264, .07793, - + .64855, .26764, .72067, .04109, .00372, - + -.00002, .03260, .07622, - + .64110, .26287, .70228, .04070, .00426, - + -.00003, .03251, .07473, - + .63380, .25832, .68336, .04025, .00476, - + -.00002, .03234, .07330, - + .62604, .25357, .66314, .03973, .00532, - + -.00002, .03212, .07175 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ - + .61925, .24951, .64530, .03923, .00581, - + -.00002, .03189, .07039, - + .61263, .24561, .62767, .03872, .00630, - + -.00002, .03163, .06905, - + .60741, .24257, .61389, .03829, .00670, - + -.00002, .03140, .06799, - + .59619, .23614, .58426, .03731, .00757, - + -.00002, .03086, .06571, - + .58650, .23072, .55902, .03641, .00833, - + .00019, .03033, .06374, - + .57570, .22480, .53142, .03537, .00914, - + .00075, .02970, .06158, - + .56452, .21877, .50351, .03428, .00988, - + .00154, .02902, .05940, - + .55443, .21345, .47906, .03332, .01045, - + .00212, .02840, .05747 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ - + .54421, .20816, .45504, .03240, .01088, - + .00264, .02776, .05556, - + .53579, .20385, .43581, .03163, .01115, - + .00301, .02723, .05406, - + .52571, .19874, .41348, .03073, .01137, - + .00341, .02659, .05232, - + .51682, .19432, .39445, .02997, .01148, - + .00372, .02603, .05083, - + .50871, .19034, .37767, .02929, .01153, - + .00397, .02552, .04948, - + .49857, .18542, .35742, .02845, .01155, - + .00425, .02489, .04783, - + .48913, .18089, .33921, .02766, .01151, - + .00447, .02428, .04634, - + .48035, .17673, .32295, .02695, .01144, - + .00463, .02371, .04498 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ - + .47173, .17270, .30755, .02625, .01135, - + .00477, .02316, .04366, - + .46329, .16879, .29310, .02558, .01125, - + .00489, .02262, .04240, - + .45546, .16519, .28011, .02496, .01115, - + .00498, .02212, .04124, - + .44815, .16186, .26837, .02437, .01102, - + .00505, .02165, .04018, - + .44088, .15858, .25710, .02380, .01090, - + .00510, .02118, .03914, - + .43379, .15543, .24650, .02325, .01077, - + .00515, .02072, .03812, - + .42714, .15248, .23685, .02274, .01064, - + .00518, .02030, .03719, - + .42091, .14972, .22808, .02226, .01051, - + .00520, .01990, .03633 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ - + .41474, .14700, .21961, .02178, .01038, - + .00521, .01950, .03548, - + .40864, .14434, .21156, .02132, .01024, - + .00522, .01911, .03467, - + .40296, .14186, .20420, .02088, .01011, - + .00522, .01874, .03391, - + .39755, .13954, .19745, .02048, .00998, - + .00521, .01840, .03320, - + .39215, .13724, .19089, .02008, .00985, - + .00519, .01806, .03249 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ - + .69543, .28331, .73028, .03299, .00083, - + -.00003, .02596, .06795, - + .68581, .27732, .71247, .03284, .00141, - + -.00002, .02608, .06655, - + .67152, .26865, .68384, .03251, .00219, - + -.00002, .02613, .06446, - + .66104, .26248, .66137, .03221, .00272, - + -.00002, .02609, .06291, - + .65005, .25615, .63709, .03182, .00324, - + -.00002, .02596, .06129, - + .64065, .25081, .61591, .03143, .00367, - + -.00003, .02580, .05991, - + .63152, .24575, .59496, .03101, .00408, - + -.00001, .02560, .05856, - + .62192, .24050, .57301, .03053, .00451, - + -.00001, .02535, .05713 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ - + .61362, .23600, .55404, .03008, .00488, - + -.00001, .02511, .05589, - + .60556, .23174, .53572, .02962, .00524, - + -.00002, .02484, .05469, - + .59924, .22843, .52156, .02924, .00554, - + -.00003, .02461, .05374, - + .58575, .22150, .49174, .02841, .00618, - + -.00002, .02408, .05168, - + .57427, .21566, .46683, .02764, .00672, - + .00015, .02358, .04995, - + .56159, .20931, .44005, .02676, .00729, - + .00059, .02301, .04807, - + .54858, .20291, .41343, .02585, .00780, - + .00119, .02239, .04617, - + .53694, .19727, .39046, .02505, .00818, - + .00162, .02183, .04451 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ - + .52524, .19172, .36824, .02427, .00846, - + .00199, .02126, .04288, - + .51567, .18723, .35065, .02363, .00861, - + .00227, .02079, .04159, - + .50428, .18195, .33042, .02289, .00873, - + .00256, .02023, .04010, - + .49431, .17738, .31340, .02225, .00879, - + .00279, .01975, .03881, - + .48529, .17328, .29851, .02169, .00879, - + .00296, .01930, .03767, - + .47408, .16823, .28069, .02100, .00876, - + .00315, .01875, .03628, - + .46363, .16363, .26484, .02036, .00869, - + .00330, .01823, .03502, - + .45403, .15940, .25083, .01977, .00862, - + .00342, .01775, .03389 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ - + .44466, .15529, .23764, .01920, .00853, - + .00353, .01728, .03279, - + .43553, .15138, .22538, .01865, .00841, - + .00359, .01683, .03175, - + .42709, .14778, .21442, .01814, .00829, - + .00364, .01641, .03079, - + .41923, .14446, .20460, .01768, .00817, - + .00368, .01601, .02992, - + .41147, .14119, .19523, .01723, .00806, - + .00371, .01563, .02906, - + .40394, .13805, .18645, .01678, .00794, - + .00373, .01526, .02823, - + .39689, .13514, .17851, .01637, .00783, - + .00374, .01491, .02747, - + .39029, .13243, .17133, .01599, .00771, - + .00375, .01458, .02679 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ - + .38377, .12976, .16443, .01562, .00760, - + .00376, .01425, .02611, - + .37739, .12715, .15790, .01526, .00749, - + .00374, .01393, .02543, - + .37145, .12474, .15196, .01492, .00739, - + .00372, .01364, .02480, - + .36582, .12247, .14654, .01460, .00728, - + .00371, .01336, .02424, - + .36021, .12023, .14128, .01428, .00716, - + .00370, .01309, .02368 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ - + .69754, .27114, .67037, .02543, .00075, - + .00006, .02067, .05465, - + .68564, .26456, .64783, .02530, .00125, - + .00004, .02070, .05334, - + .66814, .25512, .61355, .02500, .00192, - + .00005, .02066, .05141, - + .65551, .24843, .58802, .02472, .00235, - + .00005, .02055, .05001, - + .64238, .24160, .56127, .02438, .00277, - + .00004, .02039, .04854, - + .63118, .23589, .53848, .02406, .00312, - + .00003, .02022, .04728, - + .62045, .23053, .51656, .02369, .00342, - + .00003, .02000, .04609, - + .60924, .22497, .49396, .02328, .00376, - + .00004, .01974, .04482 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ - + .59961, .22022, .47474, .02290, .00405, - + .00004, .01951, .04371, - + .59033, .21572, .45648, .02250, .00433, - + .00004, .01926, .04266, - + .58310, .21224, .44247, .02218, .00455, - + .00004, .01905, .04184, - + .56777, .20499, .41336, .02148, .00498, - + .00004, .01858, .04009, - + .55480, .19892, .38946, .02084, .00536, - + .00016, .01813, .03864, - + .54058, .19237, .36417, .02012, .00575, - + .00048, .01762, .03704, - + .52607, .18583, .33942, .01939, .00610, - + .00093, .01709, .03542, - + .51318, .18009, .31831, .01875, .00634, - + .00124, .01661, .03401 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ - + .50042, .17442, .29810, .01809, .00651, - + .00151, .01611, .03268, - + .49000, .16986, .28229, .01756, .00660, - + .00171, .01571, .03161, - + .47763, .16453, .26428, .01697, .00666, - + .00191, .01524, .03037, - + .46688, .15996, .24927, .01646, .00667, - + .00206, .01482, .02930, - + .45718, .15587, .23625, .01601, .00666, - + .00218, .01445, .02835, - + .44518, .15086, .22078, .01546, .00662, - + .00232, .01399, .02720, - + .43411, .14629, .20720, .01494, .00654, - + .00243, .01356, .02618, - + .42396, .14213, .19524, .01447, .00645, - + .00250, .01317, .02526 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ - + .41409, .13811, .18406, .01401, .00635, - + .00256, .01278, .02437, - + .40454, .13426, .17375, .01357, .00624, - + .00260, .01241, .02354, - + .39573, .13073, .16460, .01317, .00614, - + .00264, .01207, .02278, - + .38759, .12750, .15645, .01280, .00605, - + .00265, .01175, .02206, - + .37955, .12434, .14871, .01244, .00595, - + .00266, .01143, .02137, - + .37176, .12131, .14152, .01210, .00585, - + .00267, .01113, .02072, - + .36450, .11849, .13504, .01179, .00575, - + .00267, .01085, .02012, - + .35774, .11589, .12920, .01150, .00565, - + .00266, .01059, .01957 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ - + .35108, .11333, .12361, .01121, .00555, - + .00266, .01033, .01903, - + .34459, .11084, .11835, .01091, .00545, - + .00265, .01008, .01851, - + .33856, .10854, .11358, .01064, .00536, - + .00264, .00985, .01802, - + .33285, .10638, .10925, .01039, .00527, - + .00263, .00964, .01757, - + .32720, .10425, .10506, .01014, .00518, - + .00262, .00943, .01713 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ - + .69011, .25626, .61133, .01960, .00056, - + -.00014, .01601, .04319, - + .67622, .24925, .58547, .01945, .00099, - + -.00014, .01604, .04203, - + .65599, .23925, .54749, .01918, .00156, - + -.00013, .01597, .04033, - + .64150, .23222, .52016, .01892, .00193, - + -.00013, .01586, .03911, - + .62655, .22508, .49217, .01861, .00228, - + -.00013, .01571, .03783, - + .61392, .21913, .46876, .01832, .00257, - + -.00013, .01555, .03673, - + .60191, .21355, .44669, .01800, .00282, - + -.00013, .01535, .03572, - + .58940, .20780, .42421, .01764, .00306, - + -.00014, .01513, .03465 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ - + .57868, .20294, .40533, .01732, .00327, - + -.00015, .01493, .03371, - + .56842, .19834, .38760, .01699, .00347, - + -.00014, .01472, .03283, - + .56044, .19478, .37409, .01672, .00364, - + -.00012, .01454, .03214, - + .54368, .18741, .34647, .01612, .00397, - + -.00012, .01412, .03069, - + .52954, .18129, .32408, .01561, .00423, - + -.00003, .01374, .02948, - + .51416, .17472, .30069, .01504, .00449, - + .00023, .01331, .02816, - + .49859, .16816, .27807, .01445, .00471, - + .00058, .01287, .02683, - + .48483, .16246, .25895, .01393, .00487, - + .00083, .01248, .02568 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ - + .47123, .15686, .24093, .01341, .00497, - + .00104, .01207, .02460, - + .46020, .15237, .22695, .01301, .00501, - + .00120, .01175, .02372, - + .44718, .14713, .21116, .01255, .00503, - + .00136, .01136, .02270, - + .43594, .14265, .19811, .01212, .00504, - + .00149, .01102, .02185, - + .42585, .13866, .18686, .01175, .00500, - + .00157, .01071, .02110, - + .41342, .13377, .17360, .01131, .00494, - + .00166, .01034, .02019, - + .40200, .12934, .16203, .01090, .00486, - + .00173, .00999, .01937, - + .39156, .12533, .15195, .01053, .00478, - + .00178, .00967, .01862 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ - + .38144, .12148, .14258, .01017, .00471, - + .00182, .00937, .01790, - + .37170, .11779, .13399, .00982, .00462, - + .00186, .00907, .01725, - + .36275, .11442, .12641, .00952, .00453, - + .00188, .00880, .01665, - + .35446, .11135, .11971, .00925, .00445, - + .00189, .00855, .01608, - + .34634, .10834, .11337, .00898, .00436, - + .00189, .00830, .01553, - + .33855, .10547, .10750, .00870, .00428, - + .00190, .00806, .01503, - + .33128, .10281, .10224, .00845, .00420, - + .00190, .00784, .01456, - + .32451, .10036, .09753, .00823, .00412, - + .00190, .00763, .01413 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ - + .31787, .09797, .09303, .00801, .00404, - + .00189, .00744, .01371, - + .31142, .09564, .08882, .00778, .00396, - + .00188, .00724, .01331, - + .30545, .09348, .08501, .00757, .00388, - + .00186, .00706, .01294, - + .29979, .09148, .08156, .00738, .00381, - + .00185, .00689, .01259, - + .29418, .08951, .07825, .00721, .00374, - + .00184, .00672, .01225 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ - + .67472, .23875, .55290, .01466, .00053, - + -.00002, .01240, .03359, - + .65913, .23150, .52502, .01453, .00089, - + -.00004, .01241, .03260, - + .63653, .22126, .48509, .01433, .00135, - + -.00002, .01232, .03115, - + .62048, .21410, .45702, .01413, .00164, - + -.00002, .01221, .03012, - + .60404, .20686, .42880, .01387, .00193, - + -.00004, .01206, .02905, - + .59021, .20085, .40560, .01364, .00215, - + -.00003, .01190, .02814, - + .57714, .19522, .38404, .01338, .00234, - + -.00004, .01173, .02729, - + .56359, .18946, .36229, .01310, .00252, - + -.00004, .01155, .02639 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ - + .55203, .18461, .34420, .01285, .00268, - + -.00004, .01137, .02561, - + .54103, .18003, .32742, .01259, .00282, - + -.00003, .01117, .02490, - + .53249, .17649, .31473, .01239, .00293, - + -.00002, .01101, .02435, - + .51463, .16919, .28900, .01192, .00316, - + -.00002, .01066, .02316, - + .49967, .16317, .26843, .01152, .00335, - + .00005, .01035, .02217, - + .48348, .15673, .24718, .01107, .00352, - + .00023, .01001, .02110, - + .46720, .15032, .22687, .01061, .00366, - + .00049, .00965, .02005, - + .45291, .14473, .20988, .01019, .00376, - + .00067, .00931, .01915 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ - + .43878, .13935, .19402, .00982, .00381, - + .00082, .00898, .01825, - + .42743, .13502, .18181, .00950, .00382, - + .00093, .00871, .01756, - + .41410, .12998, .16811, .00911, .00382, - + .00104, .00840, .01677, - + .40261, .12569, .15687, .00880, .00379, - + .00111, .00812, .01609, - + .39232, .12188, .14729, .00852, .00376, - + .00117, .00788, .01549, - + .37970, .11724, .13607, .00819, .00370, - + .00124, .00759, .01476, - + .36821, .11303, .12634, .00785, .00363, - + .00128, .00732, .01414, - + .35772, .10924, .11791, .00757, .00356, - + .00131, .00706, .01356 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ - + .34757, .10561, .11012, .00732, .00349, - + .00134, .00682, .01300, - + .33784, .10217, .10306, .00705, .00340, - + .00136, .00658, .01249, - + .32894, .09903, .09685, .00680, .00333, - + .00137, .00637, .01203, - + .32077, .09616, .09136, .00657, .00327, - + .00137, .00617, .01161, - + .31276, .09337, .08622, .00636, .00320, - + .00137, .00598, .01119, - + .30506, .09070, .08148, .00616, .00312, - + .00136, .00579, .01078, - + .29791, .08824, .07725, .00598, .00306, - + .00136, .00563, .01042, - + .29128, .08598, .07347, .00582, .00299, - + .00136, .00547, .01010 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ - + .28478, .08377, .06988, .00566, .00293, - + .00135, .00531, .00978, - + .27848, .08163, .06654, .00549, .00287, - + .00134, .00516, .00946, - + .27264, .07966, .06352, .00534, .00281, - + .00133, .00502, .00917, - + .26717, .07783, .06081, .00520, .00275, - + .00132, .00490, .00891, - + .26177, .07602, .05821, .00506, .00269, - + .00130, .00477, .00867 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ - + .65201, .21986, .49603, .01086, .00045, - + -.00005, .00941, .02568, - + .63501, .21259, .46717, .01079, .00074, - + -.00003, .00940, .02485, - + .61059, .20230, .42670, .01061, .00112, - + -.00004, .00932, .02369, - + .59334, .19517, .39880, .01046, .00136, - + -.00004, .00922, .02284, - + .57575, .18799, .37114, .01027, .00158, - + -.00003, .00910, .02195, - + .56105, .18203, .34869, .01008, .00175, - + -.00002, .00897, .02122, - + .54721, .17650, .32810, .00988, .00190, - + -.00003, .00883, .02051, - + .53292, .17085, .30752, .00967, .00204, - + -.00003, .00867, .01979 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ - + .52078, .16609, .29059, .00946, .00216, - + -.00003, .00850, .01919, - + .50929, .16162, .27502, .00925, .00226, - + -.00003, .00835, .01862, - + .50039, .15817, .26330, .00908, .00233, - + -.00004, .00823, .01818, - + .48188, .15109, .23981, .00871, .00249, - + -.00004, .00795, .01724, - + .46645, .14527, .22123, .00841, .00261, - + .00003, .00769, .01645, - + .44980, .13907, .20221, .00807, .00272, - + .00017, .00741, .01560, - + .43312, .13293, .18422, .00773, .00281, - + .00036, .00713, .01476, - + .41856, .12762, .16931, .00741, .00287, - + .00050, .00687, .01406 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ - + .40437, .12247, .15554, .00709, .00290, - + .00061, .00661, .01336, - + .39292, .11837, .14502, .00686, .00289, - + .00068, .00640, .01282, - + .37948, .11363, .13329, .00660, .00287, - + .00076, .00615, .01220, - + .36796, .10960, .12375, .00637, .00285, - + .00082, .00593, .01167, - + .35773, .10603, .11566, .00614, .00281, - + .00086, .00574, .01122, - + .34522, .10169, .10625, .00586, .00275, - + .00091, .00551, .01068, - + .33382, .09778, .09815, .00563, .00269, - + .00094, .00529, .01018, - + .32348, .09427, .09119, .00542, .00263, - + .00096, .00509, .00974 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ - + .31351, .09091, .08480, .00522, .00257, - + .00097, .00491, .00932, - + .30402, .08773, .07902, .00501, .00250, - + .00097, .00472, .00893, - + .29534, .08483, .07397, .00483, .00244, - + .00098, .00456, .00858, - + .28739, .08219, .06954, .00466, .00238, - + .00099, .00441, .00825, - + .27961, .07963, .06540, .00450, .00232, - + .00099, .00427, .00794, - + .27215, .07721, .06160, .00436, .00226, - + .00098, .00412, .00764, - + .26527, .07497, .05822, .00422, .00221, - + .00097, .00399, .00737, - + .25891, .07292, .05522, .00408, .00216, - + .00096, .00387, .00713 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ - + .25268, .07092, .05238, .00395, .00211, - + .00095, .00375, .00690, - + .24664, .06899, .04975, .00383, .00206, - + .00094, .00364, .00667, - + .24105, .06721, .04738, .00372, .00202, - + .00094, .00355, .00646, - + .23583, .06556, .04525, .00362, .00198, - + .00093, .00345, .00626, - + .23068, .06393, .04321, .00353, .00193, - + .00092, .00336, .00606 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ - + .62310, .20010, .44108, .00789, .00038, - + .00001, .00705, .01931, - + .60507, .19292, .41222, .00784, .00063, - + .00000, .00705, .01865, - + .57931, .18281, .37231, .00770, .00095, - + .00000, .00699, .01769, - + .56122, .17584, .34528, .00758, .00114, - + .00000, .00691, .01702, - + .54288, .16884, .31881, .00744, .00130, - + -.00001, .00679, .01633, - + .52763, .16307, .29756, .00729, .00143, - + .00000, .00669, .01575, - + .51329, .15773, .27831, .00715, .00153, - + .00000, .00656, .01522, - + .49855, .15227, .25922, .00699, .00163, - + .00000, .00643, .01466 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ - + .48610, .14770, .24363, .00683, .00172, - + .00000, .00632, .01417, - + .47432, .14343, .22941, .00670, .00179, - + .00001, .00619, .01369, - + .46523, .14016, .21879, .00659, .00184, - + .00001, .00609, .01333, - + .44638, .13342, .19770, .00633, .00195, - + .00000, .00587, .01260, - + .43080, .12789, .18116, .00608, .00202, - + .00004, .00566, .01202, - + .41407, .12203, .16438, .00581, .00210, - + .00014, .00544, .01137, - + .39738, .11626, .14867, .00555, .00215, - + .00029, .00521, .01072, - + .38288, .11128, .13578, .00530, .00217, - + .00039, .00500, .01018 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ - + .36871, .10648, .12397, .00509, .00217, - + .00047, .00480, .00966, - + .35738, .10267, .11500, .00490, .00217, - + .00052, .00465, .00925, - + .34418, .09826, .10507, .00468, .00216, - + .00057, .00446, .00878, - + .33287, .09453, .09708, .00451, .00212, - + .00061, .00428, .00839, - + .32284, .09124, .09033, .00437, .00208, - + .00063, .00413, .00804, - + .31062, .08727, .08253, .00418, .00203, - + .00066, .00395, .00760, - + .29957, .08370, .07586, .00398, .00197, - + .00068, .00378, .00724, - + .28957, .08049, .07016, .00381, .00192, - + .00069, .00364, .00691 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ - + .27996, .07742, .06494, .00367, .00188, - + .00070, .00349, .00659, - + .27085, .07453, .06027, .00351, .00183, - + .00071, .00336, .00630, - + .26253, .07191, .05621, .00338, .00178, - + .00071, .00323, .00604, - + .25491, .06952, .05267, .00327, .00173, - + .00070, .00312, .00579, - + .24750, .06722, .04937, .00315, .00168, - + .00070, .00301, .00556, - + .24043, .06504, .04635, .00303, .00164, - + .00069, .00290, .00535, - + .23390, .06303, .04369, .00293, .00159, - + .00069, .00280, .00516, - + .22786, .06120, .04133, .00283, .00155, - + .00068, .00272, .00498 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ - + .22197, .05941, .03910, .00274, .00151, - + .00068, .00264, .00480, - + .21627, .05770, .03703, .00267, .00147, - + .00067, .00255, .00462, - + .21101, .05613, .03518, .00260, .00143, - + .00067, .00247, .00446, - + .20612, .05466, .03353, .00252, .00140, - + .00066, .00240, .00433, - + .20131, .05321, .03195, .00243, .00136, - + .00064, .00233, .00420 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ - + .58908, .17998, .38855, .00559, .00036, - + .00007, .00525, .01424, - + .57034, .17306, .36037, .00557, .00054, - + .00007, .00523, .01373, - + .54373, .16332, .32200, .00549, .00078, - + .00007, .00517, .01301, - + .52517, .15662, .29637, .00541, .00093, - + .00006, .00511, .01250, - + .50642, .14993, .27154, .00530, .00106, - + .00005, .00502, .01196, - + .49085, .14445, .25182, .00521, .00116, - + .00006, .00494, .01149, - + .47633, .13939, .23415, .00511, .00123, - + .00005, .00484, .01107, - + .46146, .13424, .21676, .00499, .00130, - + .00005, .00473, .01064 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ - + .44893, .12992, .20266, .00489, .00136, - + .00006, .00463, .01026, - + .43713, .12589, .18991, .00477, .00141, - + .00005, .00453, .00992, - + .42804, .12280, .18041, .00467, .00145, - + .00004, .00446, .00965, - + .40925, .11649, .16171, .00447, .00151, - + .00004, .00429, .00909, - + .39376, .11134, .14722, .00430, .00156, - + .00007, .00413, .00864, - + .37720, .10589, .13265, .00411, .00160, - + .00014, .00396, .00815, - + .36079, .10055, .11911, .00391, .00163, - + .00024, .00378, .00768, - + .34661, .09595, .10811, .00373, .00164, - + .00031, .00363, .00728 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ - + .33276, .09156, .09809, .00359, .00164, - + .00037, .00348, .00686, - + .32175, .08807, .09055, .00345, .00163, - + .00041, .00335, .00655, - + .30897, .08404, .08227, .00328, .00160, - + .00044, .00319, .00621, - + .29807, .08064, .07562, .00315, .00157, - + .00046, .00306, .00593, - + .28846, .07765, .07006, .00302, .00154, - + .00048, .00294, .00567, - + .27677, .07405, .06366, .00287, .00149, - + .00050, .00281, .00535, - + .26616, .07083, .05823, .00276, .00145, - + .00050, .00269, .00506, - + .25661, .06796, .05363, .00264, .00141, - + .00051, .00258, .00482 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ - + .24746, .06522, .04946, .00253, .00138, - + .00052, .00248, .00460, - + .23882, .06263, .04571, .00244, .00133, - + .00052, .00237, .00439, - + .23096, .06030, .04246, .00235, .00129, - + .00052, .00228, .00420, - + .22380, .05819, .03964, .00225, .00125, - + .00051, .00219, .00403, - + .21685, .05615, .03703, .00216, .00122, - + .00051, .00211, .00386, - + .21023, .05422, .03465, .00207, .00119, - + .00050, .00204, .00369, - + .20414, .05245, .03256, .00200, .00115, - + .00049, .00197, .00354, - + .19852, .05083, .03073, .00193, .00112, - + .00048, .00190, .00341 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ - + .19305, .04925, .02900, .00186, .00108, - + .00048, .00183, .00329, - + .18776, .04774, .02740, .00181, .00106, - + .00047, .00177, .00316, - + .18290, .04635, .02597, .00176, .00103, - + .00046, .00171, .00305, - + .17838, .04507, .02470, .00170, .00100, - + .00045, .00166, .00295, - + .17394, .04381, .02349, .00165, .00098, - + .00044, .00161, .00286 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ - + .55091, .16022, .33918, .00397, .00025, - + -.00001, .00376, .01035, - + .53187, .15359, .31225, .00397, .00041, - + .00001, .00375, .00996, - + .50491, .14438, .27602, .00393, .00061, - + .00001, .00372, .00938, - + .48624, .13805, .25219, .00386, .00072, - + .00001, .00367, .00900, - + .46745, .13175, .22938, .00378, .00082, - + .00001, .00361, .00860, - + .45187, .12663, .21142, .00374, .00090, - + .00002, .00355, .00824, - + .43745, .12188, .19543, .00364, .00096, - + .00002, .00347, .00793, - + .42270, .11706, .17982, .00355, .00101, - + .00001, .00340, .00761 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ - + .41030, .11306, .16727, .00347, .00105, - + .00001, .00332, .00733, - + .39865, .10932, .15598, .00339, .00108, - + .00001, .00325, .00707, - + .38970, .10647, .14762, .00333, .00110, - + .00000, .00319, .00687, - + .37130, .10066, .13127, .00317, .00115, - + .00002, .00306, .00647, - + .35620, .09593, .11874, .00305, .00117, - + .00004, .00295, .00612, - + .34013, .09095, .10624, .00292, .00120, - + .00010, .00281, .00574, - + .32425, .08608, .09473, .00277, .00121, - + .00016, .00268, .00538, - + .31051, .08192, .08545, .00265, .00122, - + .00021, .00257, .00508 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ - + .29729, .07792, .07707, .00251, .00120, - + .00026, .00245, .00480, - + .28677, .07477, .07081, .00241, .00118, - + .00028, .00235, .00459, - + .27456, .07114, .06397, .00230, .00116, - + .00030, .00224, .00434, - + .26420, .06810, .05851, .00221, .00113, - + .00032, .00215, .00412, - + .25507, .06544, .05398, .00213, .00111, - + .00033, .00207, .00393, - + .24401, .06223, .04880, .00202, .00108, - + .00034, .00197, .00370, - + .23405, .05937, .04442, .00192, .00104, - + .00035, .00187, .00350, - + .22510, .05682, .04072, .00184, .00100, - + .00035, .00179, .00332 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ - + .21654, .05440, .03738, .00177, .00097, - + .00035, .00171, .00315, - + .20848, .05212, .03443, .00170, .00094, - + .00035, .00164, .00300, - + .20119, .05007, .03188, .00162, .00091, - + .00035, .00157, .00287, - + .19460, .04821, .02966, .00153, .00087, - + .00035, .00150, .00275, - + .18819, .04642, .02762, .00146, .00085, - + .00034, .00144, .00263, - + .18205, .04473, .02577, .00141, .00083, - + .00034, .00139, .00251, - + .17642, .04319, .02415, .00137, .00081, - + .00034, .00134, .00241, - + .17125, .04179, .02273, .00134, .00078, - + .00034, .00130, .00231 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ - + .16621, .04043, .02139, .00130, .00075, - + .00034, .00125, .00222, - + .16139, .03912, .02017, .00125, .00073, - + .00033, .00121, .00214, - + .15696, .03793, .01908, .00120, .00072, - + .00032, .00117, .00206, - + .15283, .03682, .01810, .00117, .00069, - + .00032, .00113, .00199, - + .14877, .03574, .01717, .00113, .00067, - + .00031, .00109, .00193 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ - + .50976, .14091, .29297, .00274, .00022, - + .00004, .00269, .00733, - + .49071, .13474, .26780, .00276, .00033, - + .00003, .00268, .00707, - + .46391, .12617, .23434, .00274, .00048, - + .00002, .00264, .00664, - + .44542, .12030, .21258, .00270, .00057, - + .00003, .00260, .00635, - + .42690, .11447, .19193, .00266, .00064, - + .00003, .00256, .00605, - + .41164, .10972, .17582, .00262, .00068, - + .00003, .00251, .00580, - + .39754, .10536, .16160, .00255, .00072, - + .00002, .00245, .00559, - + .38315, .10096, .14781, .00248, .00075, - + .00002, .00239, .00535 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ - + .37106, .09730, .13681, .00243, .00077, - + .00003, .00234, .00515, - + .35977, .09390, .12697, .00238, .00080, - + .00003, .00228, .00496, - + .35112, .09131, .11972, .00234, .00081, - + .00003, .00223, .00481, - + .33337, .08603, .10567, .00226, .00084, - + .00003, .00213, .00449, - + .31886, .08175, .09497, .00217, .00085, - + .00004, .00205, .00425, - + .30350, .07725, .08438, .00206, .00086, - + .00008, .00196, .00399, - + .28838, .07287, .07472, .00196, .00087, - + .00012, .00186, .00374, - + .27537, .06914, .06699, .00187, .00086, - + .00015, .00177, .00352 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ - + .26283, .06560, .06007, .00179, .00085, - + .00019, .00169, .00331, - + .25291, .06281, .05493, .00171, .00084, - + .00021, .00161, .00316, - + .24146, .05960, .04934, .00161, .00082, - + .00022, .00153, .00298, - + .23179, .05691, .04492, .00154, .00079, - + .00022, .00146, .00283, - + .22325, .05455, .04127, .00149, .00077, - + .00023, .00141, .00268, - + .21294, .05173, .03711, .00142, .00075, - + .00025, .00135, .00251, - + .20371, .04922, .03363, .00137, .00073, - + .00025, .00128, .00237, - + .19544, .04699, .03070, .00130, .00070, - + .00024, .00121, .00225 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ - + .18757, .04489, .02806, .00124, .00067, - + .00023, .00115, .00214, - + .18018, .04292, .02573, .00118, .00065, - + .00023, .00111, .00203, - + .17348, .04114, .02374, .00113, .00062, - + .00023, .00106, .00193, - + .16740, .03954, .02203, .00109, .00060, - + .00023, .00101, .00184, - + .16154, .03800, .02045, .00105, .00058, - + .00023, .00097, .00176, - + .15600, .03655, .01903, .00099, .00057, - + .00023, .00094, .00167, - + .15092, .03522, .01778, .00095, .00055, - + .00023, .00090, .00160, - + .14625, .03401, .01669, .00091, .00053, - + .00022, .00087, .00154 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ - + .14171, .03284, .01567, .00088, .00051, - + .00022, .00083, .00149, - + .13734, .03173, .01474, .00086, .00050, - + .00021, .00080, .00142, - + .13333, .03072, .01390, .00084, .00048, - + .00021, .00078, .00136, - + .12963, .02977, .01317, .00081, .00047, - + .00020, .00075, .00131, - + .12601, .02885, .01247, .00078, .00045, - + .00020, .00072, .00127 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ - + .46648, .12245, .25024, .00184, .00019, - + .00005, .00189, .00511, - + .44778, .11676, .22711, .00186, .00028, - + .00005, .00189, .00489, - + .42159, .10885, .19670, .00184, .00038, - + .00006, .00187, .00462, - + .40356, .10350, .17717, .00182, .00044, - + .00006, .00185, .00441, - + .38559, .09820, .15880, .00180, .00049, - + .00005, .00182, .00419, - + .37089, .09387, .14455, .00176, .00054, - + .00005, .00178, .00401, - + .35725, .08993, .13209, .00173, .00056, - + .00005, .00174, .00385, - + .34340, .08595, .12010, .00169, .00058, - + .00005, .00169, .00368 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ - + .33187, .08265, .11058, .00165, .00060, - + .00005, .00165, .00354, - + .32109, .07960, .10214, .00161, .00062, - + .00004, .00161, .00341, - + .31284, .07727, .09595, .00158, .00063, - + .00004, .00158, .00330, - + .29601, .07254, .08402, .00150, .00063, - + .00004, .00151, .00309, - + .28228, .06873, .07502, .00144, .00064, - + .00004, .00144, .00292, - + .26778, .06474, .06619, .00137, .00065, - + .00006, .00137, .00274, - + .25360, .06088, .05821, .00129, .00064, - + .00011, .00129, .00256, - + .24145, .05759, .05187, .00122, .00064, - + .00013, .00124, .00240 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ - + .22973, .05447, .04624, .00119, .00063, - + .00014, .00118, .00224, - + .22052, .05202, .04208, .00114, .00062, - + .00015, .00112, .00212, - + .20992, .04922, .03758, .00108, .00060, - + .00016, .00107, .00199, - + .20099, .04688, .03404, .00104, .00058, - + .00017, .00103, .00189, - + .19317, .04484, .03114, .00098, .00056, - + .00017, .00099, .00180, - + .18376, .04240, .02785, .00091, .00054, - + .00018, .00092, .00169, - + .17532, .04023, .02513, .00085, .00051, - + .00017, .00087, .00161, - + .16778, .03832, .02284, .00081, .00050, - + .00018, .00083, .00152 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ - + .16062, .03651, .02079, .00078, .00049, - + .00018, .00080, .00142, - + .15390, .03482, .01900, .00076, .00046, - + .00018, .00076, .00135, - + .14784, .03330, .01746, .00073, .00044, - + .00018, .00072, .00128, - + .14237, .03195, .01615, .00069, .00043, - + .00017, .00069, .00121, - + .13710, .03064, .01494, .00066, .00041, - + .00016, .00066, .00115, - + .13212, .02940, .01386, .00063, .00040, - + .00017, .00064, .00110, - + .12755, .02828, .01292, .00062, .00039, - + .00017, .00061, .00105, - + .12337, .02727, .01209, .00060, .00037, - + .00016, .00059, .00101 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ - + .11931, .02628, .01132, .00058, .00036, - + .00016, .00056, .00097, - + .11545, .02535, .01062, .00055, .00035, - + .00015, .00054, .00093, - + .11191, .02449, .01000, .00053, .00033, - + .00015, .00053, .00089, - + .10863, .02370, .00946, .00052, .00033, - + .00015, .00051, .00086, - + .10542, .02293, .00894, .00050, .00032, - + .00015, .00049, .00083 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ - + .42221, .10514, .21133, .00120, .00015, - + .00004, .00130, .00349, - + .40410, .09996, .19042, .00122, .00022, - + .00004, .00131, .00334, - + .37886, .09282, .16322, .00122, .00030, - + .00003, .00129, .00312, - + .36160, .08798, .14594, .00119, .00035, - + .00003, .00128, .00298, - + .34443, .08321, .12985, .00115, .00039, - + .00003, .00126, .00285, - + .33037, .07934, .11747, .00114, .00042, - + .00004, .00124, .00273, - + .31746, .07582, .10673, .00113, .00044, - + .00003, .00121, .00259, - + .30437, .07227, .09646, .00110, .00046, - + .00003, .00119, .00248 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ - + .29347, .06933, .08838, .00105, .00047, - + .00003, .00115, .00240, - + .28334, .06663, .08123, .00102, .00048, - + .00003, .00112, .00230, - + .27560, .06457, .07601, .00100, .00048, - + .00003, .00110, .00222, - + .25985, .06041, .06605, .00095, .00049, - + .00003, .00105, .00207, - + .24705, .05707, .05859, .00092, .00049, - + .00004, .00101, .00194, - + .23359, .05359, .05133, .00088, .00048, - + .00005, .00096, .00180, - + .22046, .05021, .04482, .00083, .00049, - + .00008, .00090, .00168, - + .20925, .04736, .03970, .00079, .00048, - + .00010, .00086, .00158 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ - + .19850, .04466, .03517, .00076, .00047, - + .00011, .00082, .00146, - + .19009, .04254, .03185, .00072, .00046, - + .00011, .00079, .00140, - + .18043, .04013, .02829, .00066, .00044, - + .00012, .00074, .00132, - + .17228, .03813, .02550, .00063, .00042, - + .00013, .00071, .00124, - + .16518, .03639, .02323, .00061, .00041, - + .00013, .00068, .00117, - + .15667, .03431, .02067, .00059, .00040, - + .00014, .00064, .00109, - + .14906, .03246, .01855, .00055, .00038, - + .00014, .00061, .00104, - + .14228, .03084, .01679, .00053, .00037, - + .00014, .00058, .00097 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ - + .13586, .02931, .01523, .00052, .00036, - + .00014, .00055, .00090, - + .12989, .02788, .01386, .00048, .00034, - + .00014, .00052, .00086, - + .12451, .02661, .01269, .00045, .00032, - + .00014, .00050, .00083, - + .11963, .02547, .01170, .00043, .00031, - + .00013, .00047, .00079, - + .11495, .02438, .01080, .00041, .00030, - + .00013, .00045, .00074, - + .11054, .02335, .00998, .00040, .00028, - + .00013, .00043, .00070, - + .10652, .02242, .00928, .00038, .00027, - + .00013, .00042, .00067, - + .10286, .02157, .00867, .00036, .00026, - + .00012, .00040, .00065 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ - + .09932, .02075, .00810, .00034, .00025, - + .00012, .00038, .00063, - + .09591, .01997, .00758, .00033, .00025, - + .00012, .00036, .00059, - + .09280, .01927, .00712, .00032, .00024, - + .00011, .00035, .00057, - + .08994, .01862, .00672, .00031, .00023, - + .00011, .00034, .00055, - + .08715, .01798, .00634, .00029, .00022, - + .00011, .00033, .00053 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ - + .37778, .08928, .17655, .00085, .00007, - + -.00001, .00082, .00234, - + .36055, .08466, .15797, .00087, .00012, - + -.00002, .00082, .00224, - + .33664, .07828, .13409, .00088, .00017, - + -.00003, .00082, .00208, - + .32036, .07398, .11907, .00087, .00021, - + -.00002, .00082, .00198, - + .30422, .06977, .10518, .00085, .00024, - + -.00001, .00081, .00188, - + .29106, .06637, .09459, .00081, .00027, - + -.00001, .00079, .00180, - + .27899, .06327, .08547, .00081, .00028, - + -.00001, .00078, .00172, - + .26680, .06017, .07680, .00079, .00029, - + -.00002, .00076, .00163 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ - + .25670, .05760, .07000, .00078, .00030, - + -.00003, .00074, .00156, - + .24731, .05524, .06406, .00076, .00030, - + -.00002, .00072, .00150, - + .24015, .05345, .05974, .00074, .00030, - + -.00001, .00070, .00146, - + .22561, .04985, .05152, .00072, .00031, - + -.00001, .00067, .00135, - + .21386, .04695, .04543, .00069, .00031, - + -.00001, .00063, .00128, - + .20158, .04394, .03954, .00064, .00031, - + .00001, .00060, .00120, - + .18964, .04104, .03429, .00059, .00030, - + .00002, .00057, .00110, - + .17945, .03861, .03018, .00057, .00029, - + .00004, .00055, .00103 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ - + .16977, .03629, .02658, .00053, .00029, - + .00005, .00051, .00098, - + .16215, .03449, .02397, .00052, .00029, - + .00006, .00049, .00092, - + .15343, .03245, .02118, .00050, .00028, - + .00006, .00047, .00085, - + .14615, .03076, .01901, .00049, .00027, - + .00007, .00044, .00080, - + .13981, .02929, .01724, .00046, .00026, - + .00007, .00041, .00076, - + .13222, .02754, .01526, .00042, .00024, - + .00007, .00038, .00071, - + .12545, .02600, .01363, .00042, .00023, - + .00007, .00037, .00067, - + .11946, .02463, .01229, .00040, .00022, - + .00007, .00036, .00063 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ - + .11381, .02335, .01110, .00038, .00021, - + .00008, .00034, .00060, - + .10854, .02217, .01007, .00035, .00020, - + .00008, .00032, .00057, - + .10381, .02111, .00919, .00033, .00019, - + .00007, .00030, .00054, - + .09955, .02016, .00845, .00031, .00019, - + .00007, .00028, .00051, - + .09547, .01926, .00777, .00029, .00018, - + .00006, .00027, .00048, - + .09165, .01841, .00717, .00028, .00017, - + .00007, .00026, .00046, - + .08816, .01764, .00664, .00026, .00016, - + .00007, .00024, .00044, - + .08497, .01695, .00619, .00026, .00015, - + .00006, .00023, .00041 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ - + .08188, .01628, .00577, .00025, .00015, - + .00006, .00022, .00039, - + .07892, .01564, .00539, .00025, .00014, - + .00006, .00021, .00038, - + .07622, .01507, .00506, .00025, .00014, - + .00006, .00021, .00037, - + .07376, .01454, .00476, .00024, .00013, - + .00006, .00020, .00035, - + .07137, .01402, .00448, .00023, .00013, - + .00006, .00020, .00033 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ - + .33372, .07453, .14511, .00048, .00009, - + .00003, .00058, .00151, - + .31760, .07047, .12898, .00050, .00012, - + .00004, .00058, .00144, - + .29528, .06489, .10838, .00050, .00015, - + .00004, .00057, .00137, - + .28015, .06115, .09555, .00049, .00018, - + .00004, .00056, .00130, - + .26519, .05750, .08380, .00049, .00021, - + .00003, .00055, .00122, - + .25299, .05457, .07492, .00051, .00022, - + .00003, .00055, .00115, - + .24191, .05189, .06730, .00050, .00022, - + .00003, .00053, .00110, - + .23074, .04921, .06012, .00049, .00022, - + .00003, .00052, .00105 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ - + .22148, .04702, .05455, .00048, .00022, - + .00003, .00050, .00101, - + .21293, .04500, .04967, .00046, .00022, - + .00003, .00049, .00097, - + .20644, .04347, .04614, .00044, .00023, - + .00003, .00048, .00094, - + .19323, .04039, .03949, .00044, .00023, - + .00003, .00045, .00087, - + .18261, .03793, .03459, .00042, .00023, - + .00003, .00043, .00081, - + .17153, .03539, .02990, .00040, .00022, - + .00003, .00041, .00076, - + .16080, .03294, .02574, .00037, .00022, - + .00005, .00039, .00072, - + .15170, .03089, .02252, .00036, .00021, - + .00005, .00036, .00067 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ - + .14308, .02895, .01972, .00033, .00020, - + .00005, .00033, .00062, - + .13633, .02745, .01769, .00032, .00020, - + .00005, .00032, .00058, - + .12862, .02575, .01554, .00031, .00019, - + .00006, .00030, .00054, - + .12221, .02434, .01388, .00029, .00018, - + .00006, .00029, .00051, - + .11662, .02312, .01254, .00027, .00017, - + .00006, .00027, .00049, - + .10995, .02168, .01105, .00026, .00016, - + .00006, .00026, .00045, - + .10405, .02041, .00982, .00025, .00015, - + .00005, .00024, .00042, - + .09883, .01929, .00882, .00024, .00015, - + .00005, .00023, .00039 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ - + .09391, .01825, .00793, .00023, .00014, - + .00005, .00022, .00037, - + .08934, .01728, .00716, .00021, .00014, - + .00005, .00021, .00035, - + .08526, .01642, .00652, .00020, .00013, - + .00005, .00020, .00033, - + .08158, .01565, .00597, .00019, .00012, - + .00005, .00018, .00031, - + .07806, .01491, .00548, .00019, .00012, - + .00005, .00017, .00029, - + .07475, .01422, .00504, .00019, .00011, - + .00005, .00017, .00028, - + .07175, .01360, .00466, .00018, .00011, - + .00005, .00016, .00026, - + .06905, .01305, .00433, .00017, .00010, - + .00005, .00015, .00025 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ - + .06643, .01251, .00403, .00016, .00010, - + .00004, .00014, .00024, - + .06392, .01200, .00375, .00015, .00009, - + .00004, .00014, .00023, - + .06163, .01154, .00351, .00014, .00009, - + .00004, .00013, .00022, - + .05953, .01112, .00330, .00014, .00008, - + .00004, .00013, .00021, - + .05749, .01071, .00310, .00014, .00008, - + .00004, .00012, .00020 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ - + .29107, .06136, .11765, .00027, .00008, - + .00005, .00039, .00093, - + .27617, .05785, .10382, .00028, .00011, - + .00005, .00039, .00089, - + .25563, .05306, .08636, .00028, .00013, - + .00005, .00039, .00084, - + .24176, .04985, .07559, .00029, .00014, - + .00004, .00038, .00080, - + .22812, .04671, .06580, .00030, .00016, - + .00003, .00037, .00077, - + .21708, .04419, .05846, .00030, .00016, - + .00003, .00037, .00073, - + .20701, .04194, .05222, .00030, .00016, - + .00003, .00036, .00068, - + .19690, .03968, .04637, .00030, .00017, - + .00003, .00035, .00065 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ - + .18858, .03780, .04184, .00029, .00017, - + .00003, .00034, .00063, - + .18089, .03610, .03791, .00028, .00017, - + .00003, .00032, .00061, - + .17505, .03482, .03509, .00028, .00017, - + .00003, .00031, .00059, - + .16328, .03223, .02979, .00025, .00017, - + .00003, .00029, .00055, - + .15381, .03018, .02592, .00025, .00016, - + .00003, .00028, .00052, - + .14397, .02805, .02223, .00024, .00016, - + .00003, .00027, .00047, - + .13452, .02602, .01901, .00022, .00015, - + .00003, .00025, .00043, - + .12653, .02432, .01653, .00020, .00015, - + .00004, .00024, .00040 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ - + .11892, .02274, .01439, .00021, .00014, - + .00004, .00022, .00038, - + .11302, .02150, .01284, .00020, .00014, - + .00004, .00021, .00036, - + .10631, .02011, .01122, .00018, .00013, - + .00005, .00020, .00033, - + .10073, .01896, .00997, .00017, .00013, - + .00004, .00020, .00031, - + .09591, .01797, .00897, .00015, .00012, - + .00004, .00018, .00030, - + .09016, .01679, .00785, .00013, .00011, - + .00004, .00017, .00028, - + .08506, .01576, .00696, .00015, .00011, - + .00004, .00016, .00026, - + .08057, .01486, .00622, .00015, .00010, - + .00004, .00015, .00024 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ - + .07637, .01402, .00557, .00014, .00010, - + .00004, .00014, .00023, - + .07246, .01324, .00501, .00013, .00009, - + .00004, .00013, .00022, - + .06899, .01255, .00454, .00012, .00009, - + .00003, .00012, .00020, - + .06588, .01193, .00415, .00011, .00009, - + .00004, .00012, .00019, - + .06290, .01135, .00380, .00010, .00008, - + .00004, .00011, .00018, - + .06011, .01080, .00348, .00009, .00007, - + .00003, .00010, .00018, - + .05758, .01031, .00321, .00009, .00007, - + .00003, .00010, .00018, - + .05528, .00987, .00298, .00010, .00007, - + .00003, .00010, .00016 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ - + .05306, .00945, .00276, .00010, .00007, - + .00003, .00009, .00015, - + .05098, .00905, .00257, .00009, .00006, - + .00003, .00009, .00014, - + .04908, .00868, .00240, .00008, .00006, - + .00003, .00009, .00014, - + .04734, .00835, .00225, .00008, .00006, - + .00003, .00008, .00013, - + .04565, .00803, .00211, .00008, .00006, - + .00003, .00008, .00012 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ - + .25045, .04984, .09407, .00021, .00003, - + .00000, .00022, .00058, - + .23694, .04687, .08242, .00021, .00005, - + .00001, .00022, .00054, - + .21836, .04280, .06785, .00022, .00007, - + .00000, .00023, .00051, - + .20587, .04009, .05898, .00023, .00008, - + .00000, .00022, .00050, - + .19365, .03745, .05097, .00021, .00008, - + .00000, .00021, .00048, - + .18380, .03534, .04499, .00020, .00008, - + .00000, .00020, .00045, - + .17485, .03343, .03996, .00018, .00009, - + .00000, .00020, .00043, - + .16586, .03154, .03527, .00018, .00009, - + .00000, .00020, .00042 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ - + .15844, .03000, .03167, .00020, .00010, - + .00000, .00019, .00040, - + .15164, .02858, .02856, .00019, .00010, - + .00000, .00018, .00039, - + .14650, .02751, .02633, .00018, .00009, - + .00000, .00018, .00037, - + .13615, .02538, .02218, .00016, .00010, - + -.00001, .00017, .00035, - + .12785, .02369, .01917, .00017, .00010, - + .00000, .00016, .00031, - + .11926, .02196, .01633, .00017, .00010, - + .00001, .00016, .00028, - + .11103, .02030, .01387, .00016, .00009, - + .00001, .00015, .00027, - + .10408, .01892, .01199, .00016, .00008, - + .00001, .00014, .00025 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ - + .09756, .01763, .01037, .00014, .00008, - + .00002, .00013, .00023, - + .09249, .01663, .00921, .00013, .00008, - + .00002, .00012, .00022, - + .08672, .01550, .00800, .00013, .00007, - + .00002, .00011, .00020, - + .08195, .01457, .00707, .00012, .00007, - + .00002, .00010, .00019, - + .07783, .01378, .00633, .00011, .00007, - + .00002, .00010, .00018, - + .07294, .01284, .00552, .00010, .00007, - + .00002, .00010, .00017, - + .06861, .01202, .00486, .00010, .00006, - + .00002, .00009, .00016, - + .06483, .01130, .00433, .00010, .00006, - + .00002, .00008, .00015 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ - + .06129, .01063, .00387, .00009, .00005, - + .00002, .00008, .00014, - + .05801, .01002, .00347, .00009, .00005, - + .00002, .00007, .00013, - + .05509, .00948, .00313, .00008, .00005, - + .00002, .00007, .00012, - + .05249, .00899, .00285, .00008, .00005, - + .00002, .00007, .00011, - + .05001, .00853, .00260, .00007, .00005, - + .00002, .00006, .00011, - + .04769, .00811, .00238, .00007, .00004, - + .00002, .00006, .00010, - + .04559, .00772, .00219, .00007, .00004, - + .00001, .00005, .00009, - + .04369, .00738, .00202, .00007, .00004, - + .00001, .00005, .00009 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ - + .04187, .00705, .00187, .00007, .00004, - + .00001, .00005, .00008, - + .04015, .00673, .00174, .00006, .00003, - + .00001, .00005, .00008, - + .03859, .00645, .00162, .00005, .00003, - + .00001, .00005, .00008, - + .03716, .00619, .00152, .00005, .00003, - + .00001, .00005, .00008, - + .03577, .00594, .00142, .00005, .00003, - + .00001, .00004, .00008 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ - + .21211, .03964, .07368, .00004, .00004, - + .00004, .00016, .00034, - + .20001, .03715, .06409, .00007, .00005, - + .00004, .00016, .00033, - + .18351, .03378, .05223, .00009, .00007, - + .00004, .00016, .00031, - + .17244, .03155, .04506, .00010, .00007, - + .00003, .00016, .00029, - + .16164, .02938, .03863, .00010, .00008, - + .00003, .00016, .00027, - + .15298, .02764, .03389, .00010, .00007, - + .00004, .00015, .00026, - + .14511, .02609, .02991, .00010, .00008, - + .00003, .00014, .00024, - + .13727, .02454, .02624, .00010, .00008, - + .00003, .00014, .00022 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ - + .13086, .02328, .02344, .00009, .00008, - + .00003, .00014, .00021, - + .12495, .02213, .02102, .00009, .00008, - + .00003, .00013, .00021, - + .12047, .02127, .01930, .00008, .00008, - + .00002, .00013, .00020, - + .11151, .01955, .01612, .00009, .00007, - + .00002, .00012, .00019, - + .10439, .01819, .01384, .00008, .00007, - + .00002, .00011, .00018, - + .09704, .01679, .01171, .00007, .00007, - + .00002, .00010, .00017, - + .09000, .01547, .00987, .00008, .00007, - + .00002, .00010, .00016, - + .08408, .01437, .00847, .00008, .00006, - + .00002, .00010, .00014 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ - + .07855, .01334, .00728, .00007, .00006, - + .00002, .00008, .00013, - + .07427, .01255, .00643, .00006, .00006, - + .00002, .00008, .00012, - + .06942, .01166, .00555, .00006, .00005, - + .00002, .00007, .00012, - + .06542, .01094, .00489, .00005, .00005, - + .00002, .00007, .00011, - + .06196, .01031, .00436, .00005, .00005, - + .00002, .00007, .00010, - + .05787, .00958, .00378, .00006, .00004, - + .00002, .00006, .00009, - + .05430, .00894, .00331, .00005, .00004, - + .00002, .00006, .00009, - + .05117, .00838, .00294, .00004, .00004, - + .00002, .00006, .00008 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ - + .04823, .00787, .00261, .00004, .00004, - + .00002, .00005, .00008, - + .04552, .00739, .00233, .00004, .00004, - + .00002, .00005, .00007, - + .04313, .00697, .00210, .00004, .00003, - + .00001, .00005, .00007, - + .04099, .00660, .00191, .00004, .00003, - + .00001, .00004, .00006, - + .03896, .00625, .00173, .00004, .00003, - + .00001, .00004, .00006, - + .03706, .00592, .00158, .00003, .00003, - + .00001, .00004, .00005, - + .03535, .00563, .00145, .00003, .00003, - + .00001, .00004, .00005, - + .03381, .00537, .00134, .00004, .00003, - + .00001, .00004, .00005 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ - + .03234, .00512, .00124, .00004, .00003, - + .00001, .00003, .00005, - + .03095, .00488, .00114, .00003, .00002, - + .00001, .00003, .00004, - + .02969, .00467, .00106, .00003, .00002, - + .00001, .00003, .00004, - + .02854, .00447, .00100, .00003, .00002, - + .00001, .00003, .00004, - + .02742, .00429, .00093, .00003, .00002, - + .00001, .00003, .00004 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ - + .14464, .02376, .04271, .00003, .00001, - + .00000, .00005, .00011, - + .13551, .02212, .03659, .00004, .00001, - + .00000, .00005, .00010, - + .12316, .01992, .02916, .00004, .00002, - + .00000, .00005, .00010, - + .11497, .01848, .02477, .00003, .00002, - + .00000, .00005, .00008, - + .10702, .01709, .02091, .00003, .00003, - + .00000, .00005, .00008, - + .10066, .01598, .01810, .00003, .00003, - + .00000, .00005, .00008, - + .09495, .01500, .01578, .00003, .00002, - + .00000, .00005, .00008, - + .08929, .01403, .01366, .00003, .00002, - + .00000, .00004, .00007 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ - + .08468, .01324, .01207, .00002, .00003, - + .00000, .00004, .00007, - + .08047, .01252, .01071, .00002, .00003, - + .00000, .00004, .00008, - + .07729, .01199, .00976, .00001, .00003, - + .00000, .00004, .00008, - + .07096, .01093, .00802, .00003, .00003, - + .00000, .00004, .00006, - + .06598, .01010, .00678, .00003, .00002, - + .00000, .00004, .00005, - + .06087, .00926, .00565, .00003, .00002, - + .00001, .00003, .00005, - + .05602, .00846, .00469, .00003, .00002, - + .00001, .00003, .00005, - + .05199, .00781, .00397, .00002, .00002, - + .00000, .00003, .00004 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ - + .04823, .00720, .00337, .00002, .00002, - + .00000, .00003, .00004, - + .04535, .00673, .00295, .00002, .00002, - + .00000, .00002, .00004, - + .04211, .00622, .00252, .00002, .00002, - + .00001, .00002, .00003, - + .03945, .00580, .00219, .00001, .00002, - + .00001, .00002, .00003, - + .03716, .00544, .00194, .00001, .00002, - + .00001, .00002, .00003, - + .03446, .00502, .00166, .00001, .00001, - + .00000, .00002, .00003, - + .03213, .00465, .00144, .00001, .00001, - + .00001, .00002, .00003, - + .03010, .00434, .00127, .00002, .00001, - + .00001, .00002, .00002 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ - + .02822, .00405, .00112, .00002, .00001, - + .00001, .00002, .00002, - + .02649, .00378, .00099, .00001, .00001, - + .00001, .00002, .00002, - + .02497, .00355, .00089, .00001, .00001, - + .00001, .00001, .00002, - + .02361, .00334, .00080, .00001, .00001, - + .00000, .00001, .00002, - + .02233, .00315, .00072, .00001, .00001, - + .00000, .00001, .00002, - + .02115, .00297, .00066, .00001, .00001, - + .00000, .00001, .00001, - + .02009, .00281, .00060, .00001, .00001, - + .00001, .00001, .00001, - + .01913, .00267, .00055, .00001, .00001, - + .00001, .00001, .00001 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/ - + .01822, .00254, .00051, .00001, .00001, - + .00001, .00001, .00001, - + .01737, .00241, .00047, .00001, .00001, - + .00000, .00001, .00001, - + .01660, .00229, .00043, .00000, .00001, - + .00000, .00001, .00001, - + .01589, .00219, .00040, .00000, .00001, - + .00000, .00001, .00001, - + .01522, .00209, .00038, .00000, .00001, - + .00000, .00001, .00001 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/ - + .09067, .01289, .02237, .00002, .00000, - + -.00001, .00000, .00003, - + .08437, .01192, .01886, .00001, .00000, - + -.00001, .00001, .00002, - + .07589, .01063, .01469, .00002, .00000, - + .00000, .00001, .00002, - + .07031, .00978, .01227, .00002, .00000, - + .00000, .00001, .00002, - + .06496, .00898, .01019, .00001, .00000, - + .00000, .00001, .00003, - + .06073, .00835, .00869, .00000, .00001, - + .00000, .00001, .00002, - + .05694, .00779, .00748, .00000, .00001, - + .00000, .00001, .00002, - + .05319, .00724, .00638, .00001, .00001, - + .00000, .00001, .00002 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ - + .05015, .00679, .00557, .00002, .00001, - + .00000, .00001, .00002, - + .04740, .00639, .00489, .00002, .00000, - + .00000, .00001, .00002, - + .04534, .00610, .00442, .00001, .00000, - + .00000, .00001, .00002, - + .04128, .00551, .00356, .00001, .00001, - + .00000, .00001, .00002, - + .03810, .00505, .00297, .00001, .00001, - + .00000, .00001, .00002, - + .03487, .00459, .00243, .00000, .00001, - + .00000, .00001, .00002, - + .03183, .00416, .00199, .00000, .00001, - + .00000, .00001, .00001, - + .02932, .00381, .00166, .00000, .00000, - + .00000, .00001, .00001 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/ - + .02699, .00349, .00139, .00000, .00000, - + .00000, .00000, .00001, - + .02522, .00325, .00120, .00001, .00000, - + .00000, .00001, .00001, - + .02324, .00297, .00101, .00001, .00000, - + .00000, .00001, .00001, - + .02162, .00276, .00087, .00001, .00000, - + .00000, .00001, .00001, - + .02026, .00257, .00077, .00001, .00000, - + .00000, .00001, .00001, - + .01867, .00235, .00065, .00000, .00000, - + .00000, .00000, .00001, - + .01728, .00217, .00056, .00000, .00000, - + .00000, .00000, .00001, - + .01609, .00201, .00049, .00000, .00000, - + .00000, .00000, .00001 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/ - + .01499, .00186, .00043, .00000, .00000, - + .00000, .00000, .00000, - + .01398, .00173, .00037, .00000, .00000, - + .00000, .00000, .00000, - + .01310, .00162, .00033, .00000, .00000, - + .00000, .00000, .00000, - + .01233, .00151, .00030, .00000, .00000, - + .00000, .00000, .00000, - + .01160, .00142, .00027, .00000, .00000, - + .00000, .00000, .00000, - + .01093, .00133, .00024, .00000, .00000, - + .00000, .00000, .00000, - + .01033, .00126, .00022, .00000, .00000, - + .00000, .00000, .00000, - + .00980, .00119, .00020, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/ - + .00929, .00112, .00018, .00000, .00000, - + .00000, .00000, .00000, - + .00881, .00106, .00017, .00000, .00000, - + .00000, .00000, .00000, - + .00839, .00101, .00016, .00000, .00000, - + .00000, .00000, .00000, - + .00800, .00096, .00015, .00000, .00000, - + .00000, .00000, .00000, - + .00762, .00091, .00014, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/ - + .05089, .00613, .01023, .00001, .00000, - + -.00001, .00000, .00001, - + .04697, .00563, .00848, .00001, .00000, - + .00000, .00000, .00000, - + .04178, .00496, .00644, .00000, .00000, - + -.00001, .00000, .00000, - + .03840, .00453, .00528, .00000, .00000, - + .00000, .00000, .00001, - + .03517, .00412, .00430, .00000, .00000, - + .00000, .00000, .00001, - + .03264, .00381, .00361, .00000, .00000, - + .00000, .00000, .00001, - + .03039, .00353, .00306, .00000, .00000, - + .00000, .00000, .00001, - + .02819, .00325, .00258, .00000, .00000, - + .00000, .00000, .00001 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/ - + .02642, .00304, .00222, .00000, .00000, - + .00000, .00000, .00000, - + .02483, .00284, .00192, .00000, .00000, - + .00000, .00000, .00000, - + .02364, .00270, .00172, .00000, .00000, - + .00000, .00000, .00000, - + .02131, .00241, .00136, .00000, .00000, - + .00000, .00000, .00000, - + .01950, .00220, .00112, .00000, .00000, - + .00000, .00000, .00000, - + .01769, .00198, .00090, .00000, .00000, - + .00000, .00000, .00000, - + .01599, .00178, .00072, .00000, .00000, - + .00000, .00000, .00000, - + .01461, .00161, .00059, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/ - + .01334, .00147, .00049, .00000, .00000, - + .00000, .00000, .00000, - + .01238, .00135, .00042, .00000, .00000, - + .00000, .00000, .00000, - + .01131, .00123, .00035, .00000, .00000, - + .00000, .00000, .00000, - + .01045, .00113, .00030, .00000, .00000, - + .00000, .00000, .00000, - + .00973, .00105, .00026, .00000, .00000, - + .00000, .00000, .00000, - + .00889, .00095, .00022, .00000, .00000, - + .00000, .00000, .00000, - + .00817, .00087, .00018, .00000, .00000, - + .00000, .00000, .00000, - + .00755, .00080, .00016, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/ - + .00698, .00074, .00014, .00000, .00000, - + .00000, .00000, .00000, - + .00648, .00068, .00012, .00000, .00000, - + .00000, .00000, .00000, - + .00603, .00063, .00011, .00000, .00000, - + .00000, .00000, .00000, - + .00564, .00059, .00009, .00000, .00000, - + .00000, .00000, .00000, - + .00527, .00055, .00008, .00000, .00000, - + .00000, .00000, .00000, - + .00494, .00051, .00008, .00000, .00000, - + .00000, .00000, .00000, - + .00464, .00048, .00007, .00000, .00000, - + .00000, .00000, .00000, - + .00438, .00045, .00006, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/ - + .00413, .00042, .00006, .00000, .00000, - + .00000, .00000, .00000, - + .00390, .00040, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00369, .00038, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00351, .00036, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00333, .00034, .00004, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/ - + .02431, .00240, .00384, .00000, .00000, - + .00000, .00000, .00000, - + .02224, .00218, .00311, .00000, .00000, - + .00000, .00000, .00000, - + .01952, .00190, .00230, .00000, .00000, - + .00000, .00000, .00000, - + .01777, .00172, .00185, .00000, .00000, - + .00000, .00000, .00000, - + .01612, .00155, .00147, .00000, .00000, - + .00000, .00000, .00000, - + .01484, .00142, .00121, .00000, .00000, - + .00000, .00000, .00000, - + .01371, .00131, .00101, .00000, .00000, - + .00000, .00000, .00000, - + .01261, .00119, .00084, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/ - + .01174, .00111, .00071, .00000, .00000, - + .00000, .00000, .00000, - + .01095, .00103, .00061, .00000, .00000, - + .00000, .00000, .00000, - + .01037, .00097, .00054, .00000, .00000, - + .00000, .00000, .00000, - + .00924, .00086, .00041, .00000, .00000, - + .00000, .00000, .00000, - + .00838, .00077, .00033, .00000, .00000, - + .00000, .00000, .00000, - + .00752, .00069, .00026, .00000, .00000, - + .00000, .00000, .00000, - + .00673, .00061, .00021, .00000, .00000, - + .00000, .00000, .00000, - + .00608, .00055, .00017, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/ - + .00550, .00050, .00014, .00000, .00000, - + .00000, .00000, .00000, - + .00506, .00045, .00012, .00000, .00000, - + .00000, .00000, .00000, - + .00458, .00041, .00009, .00000, .00000, - + .00000, .00000, .00000, - + .00420, .00037, .00008, .00000, .00000, - + .00000, .00000, .00000, - + .00388, .00034, .00007, .00000, .00000, - + .00000, .00000, .00000, - + .00351, .00031, .00006, .00000, .00000, - + .00000, .00000, .00000, - + .00320, .00028, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00293, .00026, .00004, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/ - + .00269, .00023, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00247, .00021, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00229, .00020, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00212, .00018, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00197, .00017, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00184, .00016, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00171, .00015, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00161, .00014, .00002, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/ - + .00151, .00013, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00141, .00012, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00133, .00011, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00126, .00011, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00119, .00010, .00001, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/ - + .00220, .00012, .00017, .00000, .00000, - + .00000, .00000, .00000, - + .00196, .00011, .00013, .00000, .00000, - + .00000, .00000, .00000, - + .00165, .00009, .00009, .00000, .00000, - + .00000, .00000, .00000, - + .00147, .00008, .00007, .00000, .00000, - + .00000, .00000, .00000, - + .00129, .00007, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00116, .00006, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00105, .00006, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00094, .00005, .00002, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/ - + .00086, .00005, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00079, .00004, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00073, .00004, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00063, .00003, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00056, .00003, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00048, .00003, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00042, .00002, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00037, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/ - + .00032, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00029, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00026, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00023, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00021, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00018, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00016, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00015, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ - + .00013, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00012, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00011, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00010, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00009, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00008, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00007, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00007, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ - + .00006, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00005, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00005, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00005, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00004, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA XX/1D-5,2D-5,4D-5,6D-5,8D-5, - . 1D-4,2D-4,4D-4,6D-4,8D-4, - . 1D-3,2D-3,4D-3,6D-3,8D-3, - . 1D-2,1.4D-2,2D-2,3D-2,4D-2,6D-2,8D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1D0/ - DATA QQ/1.25D0,1.5D0,2D0,2.5D0,3.2D0,4D0,5D0,6.4D0,8D0,1D1, - . 1.2D1,1.8D1,2.6D1,4D1,6.4D1,1D2, - . 1.6D2,2.4D2,4D2,6.4D2,1D3,1.8D3,3.2D3,5.6D3,1D4, - . 1.8D4,3.2D4,5.6D4,1D5,1.8D5,3.2D5,5.6D5,1D6, - . 1.8D6,3.2D6,5.6D6,1D7/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1D-5,1D0,1.25D0,1D7/ - DATA N0/3,4,5,9,9,9,9,9/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ - SAVE - XSAVE=X - Q2SAVE=QSQ - IF(INIT.NE.0) GOTO 10 -C OPEN(UNIT=1,FILE='MRSR3.DAT',STATUS='OLD') - DO 20 N=1,NX-1 - DO 20 M=1,NQ -C READ(1,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M), -C . F(5,N,M),F(7,N,M),F(6,N,M),F(8,N,M) -C NOTATION: 1=UVAL 2=VAL 3=GLUE 4=USEA 5=CHM 6=STR 7=BTM 8=DSEA - DO 25 I=1,NP - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J)/XX(NTENTH))+XX(NTENTH) - DO 31 I=1,8 - IF(I.EQ.5.OR.I.EQ.7) GOTO 31 - DO 30 K=1,NQ - 30 F(I,J,K)= LOG10(F(I,J,K)/F(I,NTENTH,K))+F(I,NTENTH,K) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,NP - DO 40 M=1,NQ - 40 F(I,NX,M)=ZEROD - INIT=1 - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.XX(NTENTH)) XXX= LOG10(X/XX(NTENTH))+XX(NTENTH) - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - M=0 - 80 M=M+1 - IF(QSQ.GT.QQ(M+1)) GOTO 80 - B=(QSQ-QQ(M))/(QQ(M+1)-QQ(M)) - DO 60 I=1,NP - G(I)= (ONED-A)*(ONED-B)*F(I,N,M) + (ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.5.OR.I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC*10D0**(G(I)-FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) - X=XSAVE - QSQ=Q2SAVE - RETURN - END diff --git a/PDF/spdf/sfmsr4.F b/PDF/spdf/sfmsr4.F deleted file mode 100644 index 12a5ba905f1..00000000000 --- a/PDF/spdf/sfmsr4.F +++ /dev/null @@ -1,3880 +0,0 @@ -#include "pdf/pilot.h" - SUBROUTINE SFMSR4(X,QSQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) -C -#include "pdf/impdp.inc" -C - PARAMETER(NX=49,NQ=37,NTENTH=23,NP=8) -C -#include "pdf/expdp.inc" - + F(NP,NX,NQ+1),QQ(NQ),XX(NX),G(NP),N0(NP) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/ - + .00085, .00577, 2.56858, .38075, .00454, - + .00000, .22725, .38319, - + .00101, .00587, 4.01857, .46959, .01054, - + .00000, .30477, .47228, - + .00125, .00603, 6.81849, .63039, .02592, - + .00000, .44554, .63344, - + .00143, .00614, 9.43938, .77039, .04470, - + .00000, .56873, .77369, - + .00161, .00625, 12.75915, .93797, .07493, - + .00000, .71723, .94153, - + .00177, .00636, 16.13222, 1.09925, .11332, - + .00000, .86140, 1.10304, - + .00193, .00645, 19.85547, 1.26857, .16497, - + .00000, 1.01433, 1.27256, - + .00209, .00656, 24.29172, 1.46164, .24055, - + .00000, 1.19106, 1.46586 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ - + .00224, .00665, 28.61800, 1.64040, .32852, - + .00000, 1.35722, 1.64480, - + .00238, .00674, 33.27514, 1.82287, .43786, - + .00000, 1.52960, 1.82745, - + .00249, .00681, 37.23265, 1.97163, .54366, - + .00000, 1.67250, 1.97635, - + .00273, .00696, 46.68842, 2.30432, .83561, - + .00000, 1.99997, 2.30934, - + .00294, .00709, 55.90504, 2.60501, 1.16498, - + .09285, 2.30524, 2.61028, - + .00318, .00724, 67.43512, 2.95954, 1.61773, - + .42666, 2.67434, 2.96508, - + .00343, .00739, 80.85163, 3.35709, 2.17214, - + .90696, 3.09485, 3.36291, - + .00366, .00753, 94.33593, 3.75256, 2.73373, - + 1.36649, 3.51455, 3.75864 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ - + .00390, .00768, 109.24551, 4.19324, 3.34208, - + 1.87519, 3.97967, 4.19957, - + .00409, .00780, 122.62965, 4.59523, 3.87113, - + 2.32900, 4.40021, 4.60177, - + .00433, .00795, 140.00378, 5.12802, 4.53496, - + 2.91779, 4.95219, 5.13481, - + .00455, .00808, 156.53906, 5.64486, 5.14401, - + 3.47700, 5.48261, 5.65186, - + .00475, .00820, 172.76350, 6.15896, 5.72387, - + 4.02424, 6.00648, 6.16616, - + .00501, .00835, 194.48903, 6.85921, 6.48538, - + 4.75983, 6.71594, 6.86664, - + .00525, .00850, 216.24652, 7.56982, 7.23542, - + 5.49809, 7.43261, 7.57748, - + .00549, .00864, 237.91757, 8.28391, 7.97451, - + 6.23434, 8.15068, 8.29178 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ - + .00572, .00878, 260.72931, 9.04224, 8.74955, - + 7.01215, 8.91178, 9.05032, - + .00595, .00892, 284.01913, 9.82395, 9.54204, - + 7.81108, 9.69541, 9.83223, - + .00617, .00906, 307.27795, 10.60802, 10.33283, - + 8.61019, 10.48079, 10.61649, - + .00638, .00918, 329.87732, 11.37711, 11.10617, - + 9.39267, 11.25081, 11.38574, - + .00660, .00931, 353.61807, 12.18847, 11.92046, - + 10.21689, 12.06291, 12.19728, - + .00681, .00944, 377.71402, 13.01834, 12.75233, - + 11.05900, 12.89338, 13.02731, - + .00701, .00956, 401.46371, 13.84067, 13.57605, - + 11.89264, 13.71621, 13.84980, - + .00721, .00967, 424.54773, 14.64564, 14.38203, - + 12.70811, 14.52160, 14.65491 / - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ - + .00741, .00979, 448.64511, 15.48957, 15.22679, - + 13.56243, 15.36592, 15.49900, - + .00760, .00991, 472.87659, 16.34567, 16.08359, - + 14.42863, 16.22239, 16.35524, - + .00779, .01002, 496.93295, 17.19730, 16.93581, - + 15.28976, 17.07436, 17.20701, - + .00798, .01013, 519.86127, 18.01829, 17.75731, - + 16.11967, 17.89566, 18.02812, - + .00816, .01024, 543.92712, 18.88156, 18.62108, - + 16.99184, 18.75923, 18.89152 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ - + .00192, .00721, 2.37730, .36163, .00407, - + .00000, .21337, .36402, - + .00215, .00736, 3.65051, .43973, .00937, - + .00000, .28151, .44229, - + .00249, .00758, 6.05576, .57854, .02273, - + .00000, .40303, .58137, - + .00275, .00774, 8.26371, .69738, .03884, - + .00000, .50764, .70039, - + .00301, .00791, 11.01689, .83774, .06452, - + .00000, .63206, .84094, - + .00324, .00805, 13.77586, .97120, .09684, - + .00000, .75145, .97456, - + .00346, .00819, 16.78551, 1.10984, .13997, - + .00000, .87680, 1.11335, - + .00369, .00833, 20.32963, 1.26633, .20263, - + .00000, 1.02025, 1.27000 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ - + .00390, .00846, 23.75004, 1.40981, .27503, - + .00000, 1.15390, 1.41362, - + .00410, .00858, 27.39928, 1.55500, .36443, - + .00000, 1.29142, 1.55893, - + .00426, .00868, 30.47500, 1.67248, .45047, - + .00000, 1.40464, 1.67651, - + .00460, .00889, 37.74792, 1.93251, .68597, - + .00000, 1.66166, 1.93676, - + .00490, .00907, 44.74713, 2.16461, .94902, - + .07250, 1.89860, 2.16904, - + .00523, .00927, 53.39957, 2.43525, 1.30695, - + .33138, 2.18216, 2.43988, - + .00558, .00948, 63.34490, 2.73565, 1.74029, - + .70091, 2.50202, 2.74048, - + .00591, .00968, 73.22697, 3.03205, 2.17423, - + 1.05088, 2.81847, 3.03706 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ - + .00624, .00987, 84.03941, 3.36013, 2.63907, - + 1.43501, 3.16650, 3.36532, - + .00651, .01004, 93.65524, 3.65772, 3.03915, - + 1.77503, 3.47906, 3.66306, - + .00685, .01024, 106.02145, 4.04990, 3.53605, - + 2.21284, 3.88660, 4.05542, - + .00715, .01041, 117.68421, 4.42815, 3.98735, - + 2.62551, 4.27562, 4.43382, - + .00743, .01058, 129.03972, 4.80241, 4.41336, - + 3.02670, 4.65760, 4.80823, - + .00779, .01079, 144.11060, 5.30907, 4.96791, - + 3.56212, 5.17148, 5.31505, - + .00813, .01099, 159.06821, 5.81983, 5.50929, - + 4.09547, 5.68698, 5.82598, - + .00845, .01117, 173.84781, 6.32995, 6.03873, - + 4.62379, 6.20019, 6.33625 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ - + .00877, .01136, 189.28453, 6.86840, 6.59007, - + 5.17834, 6.74081, 6.87485, - + .00909, .01155, 204.92181, 7.42008, 7.15004, - + 5.74432, 7.29399, 7.42667, - + .00940, .01172, 220.43465, 7.97040, 7.70554, - + 6.30719, 7.84534, 7.97713, - + .00969, .01189, 235.40076, 8.50724, 8.24568, - + 6.85524, 8.38293, 8.51409, - + .00998, .01206, 251.02997, 9.07080, 8.81153, - + 7.42960, 8.94708, 9.07777, - + .01027, .01223, 266.79172, 9.64426, 9.38659, - + 8.01335, 9.52104, 9.65136, - + .01055, .01239, 282.23801, 10.20985, 9.95331, - + 8.58847, 10.08704, 10.21707, - + .01082, .01254, 297.16647, 10.76098, 10.50528, - + 9.14844, 10.63853, 10.76830 / - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ - + .01109, .01269, 312.67249, 11.33640, 11.08141, - + 9.73261, 11.21427, 11.34383, - + .01136, .01285, 328.17569, 11.91746, 11.66307, - + 10.32218, 11.79564, 11.92499, - + .01161, .01300, 343.50232, 12.49337, 12.23951, - + 10.90610, 12.37185, 12.50101, - + .01186, .01314, 358.02451, 13.04610, 12.79271, - + 11.46635, 12.92485, 13.05383, - + .01211, .01328, 373.21063, 13.62540, 13.37245, - + 12.05314, 13.50441, 13.63322 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ - + .00358, .00903, 2.19981, .34318, .00363, - + .00000, .20022, .34559, - + .00392, .00924, 3.31547, .41147, .00828, - + .00000, .25980, .41400, - + .00441, .00955, 5.37717, .53068, .01985, - + .00000, .36418, .53339, - + .00477, .00977, 7.23278, .63106, .03361, - + .00000, .45256, .63390, - + .00515, .01000, 9.51015, .74803, .05533, - + .00000, .55632, .75101, - + .00548, .01020, 11.76054, .85793, .08243, - + .00000, .65471, .86102, - + .00580, .01039, 14.18619, .97089, .11831, - + .00000, .75696, .97408, - + .00613, .01059, 17.00868, 1.09710, .17005, - + .00000, .87285, 1.10041 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ - + .00643, .01077, 19.70396, 1.21171, .22942, - + .00000, .97984, 1.21511, - + .00671, .01094, 22.55363, 1.32665, .30227, - + .00000, 1.08903, 1.33014, - + .00694, .01107, 24.93547, 1.41895, .37199, - + .00000, 1.17830, 1.42251, - + .00742, .01136, 30.50853, 1.62112, .56133, - + .00000, 1.37905, 1.62483, - + .00784, .01161, 35.80270, 1.79928, .77074, - + .05639, 1.56203, 1.80312, - + .00831, .01188, 42.26857, 2.00470, 1.05283, - + .25640, 1.77878, 2.00867, - + .00881, .01217, 49.60823, 2.23036, 1.39049, - + .53965, 2.02083, 2.23447, - + .00926, .01244, 56.81680, 2.45120, 1.72473, - + .80516, 2.25823, 2.45544 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ - + .00972, .01270, 64.61993, 2.69406, 2.07874, - + 1.09410, 2.51730, 2.69843, - + .01011, .01292, 71.49364, 2.91313, 2.38024, - + 1.34787, 2.74844, 2.91760, - + .01058, .01319, 80.24876, 3.20025, 2.75081, - + 1.67213, 3.04781, 3.20485, - + .01100, .01343, 88.42969, 3.47559, 3.08389, - + 1.97543, 3.33169, 3.48030, - + .01139, .01365, 96.33264, 3.74663, 3.39558, - + 2.26835, 3.60880, 3.75144, - + .01188, .01393, 106.72553, 4.11129, 3.79761, - + 2.65644, 3.97913, 4.11622, - + .01235, .01420, 116.94547, 4.47649, 4.18657, - + 3.04013, 4.34802, 4.48153, - + .01280, .01445, 126.96151, 4.83897, 4.56400, - + 3.41760, 4.71293, 4.84412 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ - + .01325, .01470, 137.33948, 5.21927, 4.95423, - + 3.81122, 5.09492, 5.22452, - + .01369, .01495, 147.76689, 5.60650, 5.34787, - + 4.21036, 5.48334, 5.61186, - + .01411, .01518, 158.04164, 5.99067, 5.73605, - + 4.60502, 5.86833, 5.99612, - + .01450, .01540, 167.88145, 6.36330, 6.11127, - + 4.98706, 6.24156, 6.36884, - + .01491, .01563, 178.09494, 6.75254, 6.50233, - + 5.38538, 6.63130, 6.75817, - + .01531, .01585, 188.32661, 7.14657, 6.89765, - + 5.78807, 7.02573, 7.15228, - + .01569, .01606, 198.29472, 7.53333, 7.28535, - + 6.18286, 7.41284, 7.53913, - + .01605, .01626, 207.87163, 7.90845, 7.66119, - + 6.56543, 7.78826, 7.91432 / - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ - + .01642, .01646, 217.76846, 8.29845, 8.05181, - + 6.96282, 8.17855, 8.30440, - + .01679, .01666, 227.60396, 8.69046, 8.44436, - + 7.36201, 8.57082, 8.69648, - + .01714, .01686, 237.28651, 9.07756, 8.83195, - + 7.75587, 8.95818, 9.08366, - + .01747, .01704, 246.40302, 9.44736, 9.20218, - + 8.13202, 9.32822, 9.45353, - + .01782, .01723, 255.90115, 9.83367, 9.58891, - + 8.52466, 9.71477, 9.83991 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ - + .00493, .01030, 2.10183, .33263, .00339, - + .00000, .19284, .33511, - + .00535, .01055, 3.13339, .39558, .00769, - + .00000, .24777, .39816, - + .00597, .01093, 5.01512, .50433, .01829, - + .00000, .34301, .50706, - + .00642, .01120, 6.68910, .59502, .03082, - + .00000, .42289, .59785, - + .00689, .01148, 8.72434, .69989, .05047, - + .00000, .51594, .70283, - + .00729, .01172, 10.71884, .79771, .07486, - + .00000, .60358, .80075, - + .00768, .01195, 12.85347, .89766, .10701, - + .00000, .69412, .90077, - + .00809, .01220, 15.31973, 1.00866, .15317, - + .00000, .79615, 1.01187 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ - + .00846, .01241, 17.66008, 1.10888, .20593, - + .00000, .88984, 1.11217, - + .00881, .01261, 20.12126, 1.20887, .27043, - + .00000, .98500, 1.21223, - + .00908, .01277, 22.16815, 1.28880, .33197, - + .00000, 1.06249, 1.29222, - + .00968, .01312, 26.92763, 1.46279, .49831, - + .00000, 1.23577, 1.46633, - + .01019, .01342, 31.41416, 1.61496, .68125, - + .04858, 1.39266, 1.61860, - + .01077, .01375, 36.85427, 1.78922, .92623, - + .22022, 1.57738, 1.79298, - + .01138, .01409, 42.98371, 1.97950, 1.21752, - + .46217, 1.78245, 1.98336, - + .01193, .01441, 48.96198, 2.16483, 1.50393, - + .68760, 1.98254, 2.16880 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ - + .01249, .01472, 55.39217, 2.36786, 1.80524, - + .93170, 2.19993, 2.37194, - + .01296, .01499, 61.02420, 2.55044, 2.06026, - + 1.14510, 2.39312, 2.55461, - + .01354, .01531, 68.15676, 2.78897, 2.37176, - + 1.41654, 2.64238, 2.79324, - + .01405, .01559, 74.78467, 3.01697, 2.65002, - + 1.66930, 2.87782, 3.02132, - + .01452, .01586, 81.15728, 3.24073, 2.90903, - + 1.91244, 3.10686, 3.24516, - + .01512, .01619, 89.49157, 3.54070, 3.24131, - + 2.23321, 3.41175, 3.54523, - + .01569, .01650, 97.64192, 3.83995, 3.56104, - + 2.54892, 3.71421, 3.84457, - + .01622, .01680, 105.59069, 4.13590, 3.86985, - + 2.85826, 4.01226, 4.14062 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ - + .01676, .01709, 113.78700, 4.44528, 4.18777, - + 3.17959, 4.32311, 4.45008, - + .01729, .01739, 121.98212, 4.75915, 4.50716, - + 3.50417, 4.63802, 4.76404, - + .01780, .01766, 130.02464, 5.06952, 4.82101, - + 3.82400, 4.94912, 5.07449, - + .01828, .01792, 137.69200, 5.36956, 5.12330, - + 4.13254, 5.24970, 5.37460, - + .01876, .01819, 145.62180, 5.68205, 5.43740, - + 4.45325, 5.56264, 5.68717, - + .01924, .01845, 153.53380, 5.99741, 5.75392, - + 4.77645, 5.87836, 6.00259, - + .01970, .01870, 161.21461, 6.30607, 6.06344, - + 5.09239, 6.18735, 6.31132, - + .02013, .01893, 168.56754, 6.60461, 6.36265, - + 5.39768, 6.48616, 6.60993 / - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ - + .02058, .01917, 176.14275, 6.91421, 6.67284, - + 5.71398, 6.79604, 6.91960, - + .02101, .01940, 183.64317, 7.22454, 6.98369, - + 6.03083, 7.10662, 7.22999, - + .02144, .01963, 191.00850, 7.53033, 7.28994, - + 6.34274, 7.41265, 7.53584, - + .02183, .01985, 197.91620, 7.82164, 7.58167, - + 6.63979, 7.70418, 7.82720, - + .02224, .02006, 205.09738, 8.12536, 7.88581, - + 6.94926, 8.00812, 8.13099 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ - + .00611, .01131, 2.03473, .32523, .00322, - + .00000, .18774, .32779, - + .00660, .01160, 3.00995, .38456, .00729, - + .00000, .23952, .38721, - + .00732, .01203, 4.77252, .48630, .01725, - + .00000, .32864, .48909, - + .00784, .01234, 6.32747, .57057, .02895, - + .00000, .40288, .57345, - + .00839, .01266, 8.20531, .66748, .04723, - + .00000, .48891, .67045, - + .00886, .01294, 10.03464, .75744, .06983, - + .00000, .56953, .76049, - + .00931, .01320, 11.98258, .84894, .09955, - + .00000, .65248, .85207, - + .00979, .01348, 14.22167, .95014, .14208, - + .00000, .74558, .95334 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ - + .01021, .01372, 16.33688, 1.04114, .19055, - + .00000, .83074, 1.04441, - + .01062, .01396, 18.55279, 1.13159, .24965, - + .00000, .91694, 1.13492, - + .01094, .01414, 20.38906, 1.20366, .30592, - + .00000, .98693, 1.20705, - + .01163, .01453, 24.63976, 1.35984, .45752, - + .00000, 1.14283, 1.36333, - + .01222, .01487, 28.62448, 1.49569, .62357, - + .04366, 1.28330, 1.49927, - + .01289, .01525, 33.43116, 1.65051, .84501, - + .19748, 1.44798, 1.65419, - + .01359, .01564, 38.81794, 1.81881, 1.10709, - + .41361, 1.63002, 1.82260, - + .01423, .01599, 44.04568, 1.98220, 1.36352, - + .61412, 1.80701, 1.98608 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ - + .01487, .01635, 49.64278, 2.16071, 1.63201, - + .83046, 1.99868, 2.16469, - + .01541, .01665, 54.52503, 2.32090, 1.85824, - + 1.01896, 2.16855, 2.32495, - + .01607, .01702, 60.68240, 2.52970, 2.13334, - + 1.25796, 2.38711, 2.53383, - + .01666, .01734, 66.38128, 2.72882, 2.37798, - + 1.47980, 2.59299, 2.73303, - + .01720, .01763, 71.84218, 2.92383, 2.60484, - + 1.69261, 2.79279, 2.92812, - + .01788, .01801, 78.95563, 3.18459, 2.89473, - + 1.97249, 3.05800, 3.18897, - + .01853, .01836, 85.88413, 3.44400, 3.17258, - + 2.24707, 3.32032, 3.44847, - + .01915, .01870, 92.61746, 3.69990, 3.44003, - + 2.51534, 3.57812, 3.70445 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ - + .01976, .01903, 99.53631, 3.96672, 3.71454, - + 2.79323, 3.84628, 3.97135, - + .02037, .01936, 106.42950, 4.23670, 3.98949, - + 3.07315, 4.11721, 4.24140, - + .02095, .01967, 113.17472, 4.50305, 4.25899, - + 3.34830, 4.38424, 4.50783, - + .02149, .01996, 119.58417, 4.75992, 4.51791, - + 3.61308, 4.64160, 4.76476, - + .02204, .02026, 126.19558, 5.02688, 4.78635, - + 3.88770, 4.90898, 5.03179, - + .02259, .02055, 132.77275, 5.29568, 5.05624, - + 4.16382, 5.17814, 5.30065, - + .02311, .02083, 139.14139, 5.55825, 5.31962, - + 4.43317, 5.44101, 5.56328, - + .02360, .02109, 145.22203, 5.81169, 5.57370, - + 4.69292, 5.69472, 5.81678 / - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ - + .02411, .02136, 151.47275, 6.07406, 5.83664, - + 4.96154, 5.95735, 6.07921, - + .02460, .02162, 157.64485, 6.33651, 6.09960, - + 5.23007, 6.22005, 6.34172, - + .02508, .02187, 163.69498, 6.59472, 6.35827, - + 5.49400, 6.47850, 6.59999, - + .02553, .02211, 169.35281, 6.84021, 6.60417, - + 5.74485, 6.72419, 6.84552, - + .02600, .02236, 175.22527, 7.09581, 6.86018, - + 6.00581, 6.98001, 7.10117 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ - + .00717, .01216, 1.98398, .31952, .00310, - + .00000, .18385, .32217, - + .00772, .01249, 2.91728, .37614, .00699, - + .00000, .23327, .37888, - + .00853, .01297, 4.59199, .47267, .01647, - + .00000, .31785, .47553, - + .00912, .01331, 6.05984, .55221, .02756, - + .00000, .38794, .55515, - + .00974, .01367, 7.82318, .64328, .04483, - + .00000, .46881, .64631, - + .01027, .01398, 9.53299, .72750, .06613, - + .00000, .54433, .73060, - + .01078, .01427, 11.34644, .81287, .09406, - + .00000, .62176, .81605, - + .01132, .01458, 13.42261, .90699, .13395, - + .00000, .70840, .91024 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ - + .01179, .01484, 15.37700, .99135, .17931, - + .00000, .78742, .99466, - + .01224, .01510, 17.41828, 1.07495, .23450, - + .00000, .86719, 1.07832, - + .01260, .01530, 19.10509, 1.14141, .28696, - + .00000, .93182, 1.14482, - + .01337, .01574, 22.99612, 1.28490, .42794, - + .00000, 1.07532, 1.28842, - + .01404, .01611, 26.62782, 1.40919, .58188, - + .04016, 1.20414, 1.41279, - + .01479, .01653, 30.99090, 1.55029, .78652, - + .18136, 1.35465, 1.55398, - + .01557, .01696, 35.86000, 1.70315, 1.02781, - + .37923, 1.52049, 1.70694, - + .01628, .01735, 40.56685, 1.85116, 1.26304, - + .56221, 1.68125, 1.85503 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ - + .01700, .01775, 45.58806, 2.01255, 1.50839, - + .75907, 1.85493, 2.01651, - + .01760, .01807, 49.95387, 2.15712, 1.71441, - + .93016, 2.00853, 2.16115, - + .01833, .01847, 55.44192, 2.34525, 1.96405, - + 1.14654, 2.20573, 2.34936, - + .01898, .01883, 60.50534, 2.52434, 2.18528, - + 1.34687, 2.39109, 2.52853, - + .01958, .01915, 65.34453, 2.69944, 2.38982, - + 1.53864, 2.57063, 2.70370, - + .02035, .01957, 71.62815, 2.93313, 2.65038, - + 1.79023, 2.80843, 2.93747, - + .02107, .01995, 77.72909, 3.16511, 2.89934, - + 2.03645, 3.04310, 3.16953, - + .02175, .02032, 83.64171, 3.39348, 3.13836, - + 2.27646, 3.27324, 3.39798 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ - + .02243, .02068, 89.70061, 3.63112, 3.38308, - + 2.52454, 3.51214, 3.63569, - + .02310, .02104, 95.71994, 3.87108, 3.62764, - + 2.77389, 3.75298, 3.87573, - + .02374, .02138, 101.59648, 4.10739, 3.86687, - + 3.01852, 3.98993, 4.11211, - + .02434, .02170, 107.16599, 4.33485, 4.09625, - + 3.25347, 4.21787, 4.33963, - + .02495, .02203, 112.89919, 4.57086, 4.33365, - + 3.49674, 4.45428, 4.57570, - + .02555, .02234, 118.58936, 4.80808, 4.57190, - + 3.74089, 4.69184, 4.81298, - + .02613, .02265, 124.08789, 5.03943, 4.80403, - + 3.97868, 4.92349, 5.04439, - + .02668, .02294, 129.32684, 5.26238, 5.02762, - + 4.20761, 5.14671, 5.26740 / - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ - + .02723, .02323, 134.70294, 5.49287, 5.25866, - + 4.44403, 5.37745, 5.49794, - + .02778, .02351, 139.99979, 5.72306, 5.48936, - + 4.67999, 5.60788, 5.72819, - + .02830, .02379, 145.18486, 5.94927, 5.71602, - + 4.91161, 5.83432, 5.95445, - + .02880, .02405, 150.02211, 6.16397, 5.93114, - + 5.13141, 6.04923, 6.16920, - + .02931, .02432, 155.03711, 6.38728, 6.15486, - + 5.35980, 6.27275, 6.39256 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ - + .01149, .01529, 1.83282, .30192, .00273, - + .00000, .17211, .30501, - + .01230, .01575, 2.64519, .35058, .00611, - + .00000, .21465, .35375, - + .01348, .01641, 4.07025, .43210, .01420, - + .00000, .28616, .43539, - + .01433, .01688, 5.29387, .49818, .02355, - + .00000, .34447, .50155, - + .01522, .01737, 6.73957, .57286, .03797, - + .00000, .41088, .57631, - + .01599, .01779, 8.12089, .64110, .05561, - + .00000, .47218, .64463, - + .01672, .01819, 9.56762, .70955, .07855, - + .00000, .53439, .71315, - + .01749, .01861, 11.20301, .78425, .11109, - + .00000, .60334, .78791 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ - + .01816, .01898, 12.72532, .85054, .14785, - + .00000, .66565, .85427, - + .01881, .01933, 14.30028, .91564, .19229, - + .00000, .72802, .91943, - + .01932, .01960, 15.59008, .96698, .23431, - + .00000, .77820, .97081, - + .02042, .02019, 18.53244, 1.07661, .34638, - + .00000, .88853, 1.08053, - + .02136, .02070, 21.24089, 1.17027, .46757, - + .03085, .98643, 1.17427, - + .02241, .02126, 24.45296, 1.27532, .62707, - + .13858, 1.09959, 1.27942, - + .02351, .02184, 27.98982, 1.38791, .81301, - + .28838, 1.22299, 1.39210, - + .02450, .02237, 31.36629, 1.49603, .99216, - + .42545, 1.34155, 1.50030 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ - + .02551, .02291, 34.92696, 1.61319, 1.17685, - + .57163, 1.46866, 1.61755, - + .02635, .02335, 37.99105, 1.71761, 1.33022, - + .69766, 1.58032, 1.72205, - + .02737, .02388, 41.80252, 1.85279, 1.51401, - + .85580, 1.72272, 1.85730, - + .02828, .02436, 45.28389, 1.98077, 1.67506, - + 1.00105, 1.85568, 1.98536, - + .02911, .02479, 48.58305, 2.10528, 1.82256, - + 1.13913, 1.98370, 2.10994, - + .03016, .02534, 52.82338, 2.27042, 2.00859, - + 1.31893, 2.15211, 2.27516, - + .03116, .02586, 56.89876, 2.43325, 2.18460, - + 1.49350, 2.31709, 2.43808, - + .03209, .02634, 60.81327, 2.59254, 2.35217, - + 1.66246, 2.47781, 2.59745 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ - + .03303, .02682, 64.78919, 2.75726, 2.52241, - + 1.83589, 2.64355, 2.76224, - + .03395, .02730, 68.70295, 2.92249, 2.69128, - + 2.00901, 2.80954, 2.92755, - + .03482, .02775, 72.49606, 3.08429, 2.85543, - + 2.17784, 2.97189, 3.08941, - + .03564, .02817, 76.06029, 3.23908, 3.01180, - + 2.33898, 3.12712, 3.24427, - + .03647, .02859, 79.70510, 3.39886, 3.17278, - + 2.50491, 3.28727, 3.40411, - + .03729, .02901, 83.29496, 3.55856, 3.33339, - + 2.67050, 3.44730, 3.56388, - + .03807, .02941, 86.74123, 3.71351, 3.48908, - + 2.83094, 3.60255, 3.71890, - + .03881, .02979, 90.00233, 3.86211, 3.63827, - + 2.98462, 3.75140, 3.86755 / - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ - + .03956, .03017, 93.32998, 4.01503, 3.79175, - + 3.14260, 3.90459, 4.02053, - + .04030, .03054, 96.58501, 4.16698, 3.94422, - + 3.29947, 4.05678, 4.17254, - + .04101, .03090, 99.75745, 4.31574, 4.09344, - + 3.45285, 4.20577, 4.32135, - + .04168, .03124, 102.69358, 4.45619, 4.23432, - + 3.59764, 4.34644, 4.46186, - + .04236, .03159, 105.72601, 4.60179, 4.38035, - + 3.74757, 4.49226, 4.60750 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ - + .01795, .01936, 1.68967, .28426, .00240, - + .00000, .16080, .28811, - + .01912, .01998, 2.39354, .32563, .00531, - + .00000, .19704, .32958, - + .02084, .02088, 3.59984, .39372, .01217, - + .00000, .25692, .39783, - + .02207, .02153, 4.61383, .44804, .02000, - + .00000, .30497, .45225, - + .02335, .02220, 5.79136, .50863, .03195, - + .00000, .35898, .51295, - + .02444, .02278, 6.89936, .56334, .04643, - + .00000, .40826, .56776, - + .02549, .02332, 8.04475, .61764, .06513, - + .00000, .45778, .62215, - + .02659, .02389, 9.32237, .67629, .09146, - + .00000, .51211, .68090 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ - + .02755, .02439, 10.49782, .72781, .12101, - + .00000, .56075, .73250, - + .02847, .02487, 11.70198, .77794, .15652, - + .00000, .60904, .78271, - + .02920, .02524, 12.67879, .81714, .18991, - + .00000, .64760, .82197, - + .03074, .02604, 14.88149, .89989, .27829, - + .00000, .73156, .90485, - + .03207, .02672, 16.87975, .96958, .37294, - + .02349, .80515, .97465, - + .03355, .02748, 19.21758, 1.04675, .49627, - + .10499, .88928, 1.05195, - + .03509, .02827, 21.75570, 1.12853, .63841, - + .21742, .98006, 1.13386, - + .03648, .02897, 24.14689, 1.20642, .77373, - + .31919, 1.06649, 1.21186 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ - + .03788, .02969, 26.63796, 1.29031, .91156, - + .42676, 1.15841, 1.29587, - + .03905, .03028, 28.75829, 1.36471, 1.02471, - + .51874, 1.23862, 1.37036, - + .04046, .03099, 31.36637, 1.46052, 1.15874, - + .63320, 1.34022, 1.46629, - + .04171, .03162, 33.72319, 1.55076, 1.27482, - + .73749, 1.43443, 1.55663, - + .04285, .03220, 35.93679, 1.63812, 1.38007, - + .83594, 1.52460, 1.64408, - + .04430, .03292, 38.75061, 1.75325, 1.51143, - + .96311, 1.64237, 1.75933, - + .04566, .03361, 41.42558, 1.86599, 1.63442, - + 1.08558, 1.75687, 1.87218, - + .04694, .03425, 43.97060, 1.97558, 1.75047, - + 1.20323, 1.86766, 1.98187 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ - + .04822, .03489, 46.53087, 2.08815, 1.86743, - + 1.32314, 1.98113, 2.09455, - + .04947, .03551, 49.02591, 2.20031, 1.98251, - + 1.44198, 2.09397, 2.20681, - + .05065, .03610, 51.42525, 2.30950, 2.09366, - + 1.55714, 2.20368, 2.31609, - + .05176, .03665, 53.65855, 2.41328, 2.19881, - + 1.66634, 2.30789, 2.41996, - + .05288, .03720, 55.92618, 2.51983, 2.30645, - + 1.77816, 2.41483, 2.52660, - + .05399, .03775, 58.14085, 2.62570, 2.41319, - + 1.88908, 2.52105, 2.63256, - + .05503, .03827, 60.25170, 2.72789, 2.51609, - + 1.99596, 2.62355, 2.73483, - + .05603, .03876, 62.23399, 2.82535, 2.61418, - + 2.09780, 2.72130, 2.83237 / - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ - + .05703, .03925, 64.24445, 2.92519, 2.71460, - + 2.20197, 2.82143, 2.93229, - + .05802, .03974, 66.19498, 3.02386, 2.81382, - + 2.30486, 2.92037, 3.03103, - + .05896, .04020, 68.08741, 3.12007, 2.91055, - + 2.40505, 3.01685, 3.12733, - + .05986, .04064, 69.82254, 3.21040, 3.00134, - + 2.49910, 3.10741, 3.21772, - + .06076, .04109, 71.60773, 3.30371, 3.09513, - + 2.59614, 3.20098, 3.31111 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ - + .02314, .02233, 1.60840, .27377, .00222, - + .00000, .15427, .27822, - + .02460, .02308, 2.25374, .31114, .00488, - + .00000, .18710, .31573, - + .02672, .02417, 3.34417, .37203, .01109, - + .00000, .24076, .37682, - + .02824, .02495, 4.24897, .42014, .01811, - + .00000, .28341, .42507, - + .02982, .02576, 5.28867, .47341, .02877, - + .00000, .33101, .47848, - + .03117, .02644, 6.25788, .52116, .04161, - + .00000, .37413, .52636, - + .03246, .02710, 7.25180, .56827, .05813, - + .00000, .41719, .57359, - + .03381, .02778, 8.35139, .61884, .08128, - + .00000, .46418, .62428 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ - + .03498, .02837, 9.35580, .66299, .10716, - + .00000, .50600, .66854, - + .03611, .02894, 10.37855, .70570, .13814, - + .00000, .54731, .71135, - + .03699, .02939, 11.20332, .73893, .16719, - + .00000, .58016, .74466, - + .03888, .03034, 13.04999, .80859, .24371, - + .00000, .65124, .81449, - + .04050, .03115, 14.71023, .86674, .32520, - + .01992, .71310, .87278, - + .04230, .03205, 16.63633, .93061, .43075, - + .08877, .78333, .93681, - + .04416, .03298, 18.70919, .99783, .55157, - + .18328, .85863, 1.00420, - + .04584, .03382, 20.64608, 1.06153, .66576, - + .26828, .92992, 1.06805 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ - + .04754, .03467, 22.64858, 1.12991, .78124, - + .35764, 1.00538, 1.13657, - + .04894, .03537, 24.34144, 1.19037, .87538, - + .43367, 1.07096, 1.19716, - + .05064, .03621, 26.40907, 1.26801, .98610, - + .52782, 1.15369, 1.27495, - + .05214, .03695, 28.26501, 1.34090, 1.08130, - + .61317, 1.23008, 1.34797, - + .05351, .03763, 29.99847, 1.41127, 1.16709, - + .69340, 1.30294, 1.41846, - + .05525, .03848, 32.18651, 1.50365, 1.27347, - + .79654, 1.39768, 1.51099, - + .05688, .03928, 34.25222, 1.59375, 1.37241, - + .89536, 1.48937, 1.60122, - + .05840, .04003, 36.20583, 1.68098, 1.46527, - + .98988, 1.57771, 1.68858 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ - + .05992, .04078, 38.15918, 1.77023, 1.55837, - + 1.08578, 1.66781, 1.77796, - + .06141, .04151, 40.05043, 1.85877, 1.64954, - + 1.18041, 1.75703, 1.86664, - + .06281, .04219, 41.86030, 1.94466, 1.73722, - + 1.27176, 1.84345, 1.95265, - + .06413, .04284, 43.53445, 2.02598, 1.81983, - + 1.35803, 1.92521, 2.03407, - + .06546, .04348, 45.22674, 2.10919, 1.90409, - + 1.44606, 2.00882, 2.11739, - + .06676, .04412, 46.87040, 2.19156, 1.98733, - + 1.53307, 2.09157, 2.19988, - + .06800, .04472, 48.42981, 2.27080, 2.06732, - + 1.61663, 2.17116, 2.27922, - + .06917, .04529, 49.88694, 2.34614, 2.14329, - + 1.69597, 2.24681, 2.35465 / - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ - + .07035, .04586, 51.35899, 2.42309, 2.22086, - + 1.77690, 2.32407, 2.43170, - + .07151, .04642, 52.77934, 2.49886, 2.29722, - + 1.85656, 2.40015, 2.50758, - + .07263, .04696, 54.15359, 2.57259, 2.37150, - + 1.93394, 2.47417, 2.58140, - + .07367, .04747, 55.40548, 2.64155, 2.44096, - + 2.00632, 2.54339, 2.65044, - + .07474, .04798, 56.69048, 2.71264, 2.51257, - + 2.08083, 2.61476, 2.72163 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ - + .02767, .02481, 1.55126, .26619, .00210, - + .00000, .14964, .27115, - + .02937, .02567, 2.15695, .30083, .00459, - + .00000, .18013, .30595, - + .03183, .02691, 3.16980, .35687, .01036, - + .00000, .22963, .36223, - + .03360, .02780, 4.00224, .40085, .01685, - + .00000, .26870, .40639, - + .03543, .02872, 4.95140, .44928, .02665, - + .00000, .31205, .45499, - + .03699, .02950, 5.83011, .49248, .03842, - + .00000, .35114, .49835, - + .03847, .03024, 6.72593, .53491, .05350, - + .00000, .39002, .54092, - + .04003, .03102, 7.71094, .58024, .07458, - + .00000, .43225, .58640 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ - + .04138, .03169, 8.60593, .61965, .09806, - + .00000, .46969, .62593, - + .04268, .03233, 9.51320, .65761, .12610, - + .00000, .50654, .66402, - + .04370, .03284, 10.24164, .68704, .15233, - + .00000, .53574, .69354, - + .04587, .03392, 11.86404, .74840, .22121, - + .00000, .59866, .75511, - + .04772, .03483, 13.31290, .79928, .29426, - + .01766, .65311, .80616, - + .04978, .03585, 14.98328, .85484, .38847, - + .07853, .71464, .86191, - + .05190, .03690, 16.76921, .91301, .49577, - + .16181, .78028, .92028, - + .05383, .03784, 18.42776, .96794, .59667, - + .23635, .84217, .97539 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ - + .05576, .03879, 20.13278, 1.02674, .69815, - + .31440, .90748, 1.03437, - + .05736, .03958, 21.56677, 1.07865, .78046, - + .38056, .96405, 1.08642, - + .05928, .04052, 23.30890, 1.14515, .87676, - + .46219, 1.03520, 1.15309, - + .06098, .04135, 24.86480, 1.20745, .95913, - + .53594, 1.10071, 1.21555, - + .06254, .04211, 26.31197, 1.26747, 1.03301, - + .60503, 1.16303, 1.27571, - + .06451, .04307, 28.12886, 1.34605, 1.12417, - + .69354, 1.24379, 1.35447, - + .06635, .04396, 29.83519, 1.42245, 1.20855, - + .77804, 1.32169, 1.43103, - + .06807, .04480, 31.44160, 1.49621, 1.28742, - + .85858, 1.39651, 1.50495 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ - + .06978, .04563, 33.04035, 1.57145, 1.36620, - + .94005, 1.47259, 1.58034, - + .07145, .04644, 34.58054, 1.64587, 1.44305, - + 1.02017, 1.54768, 1.65491, - + .07304, .04720, 36.04903, 1.71786, 1.51675, - + 1.09729, 1.62022, 1.72705, - + .07452, .04792, 37.40087, 1.78582, 1.58596, - + 1.16990, 1.68863, 1.79513, - + .07601, .04864, 38.76268, 1.85519, 1.65637, - + 1.24382, 1.75843, 1.86464, - + .07747, .04934, 40.07969, 1.92367, 1.72573, - + 1.31666, 1.82731, 1.93325, - + .07885, .05001, 41.32477, 1.98939, 1.79221, - + 1.38645, 1.89340, 1.99909, - + .08016, .05064, 42.48364, 2.05171, 1.85520, - + 1.45255, 1.95606, 2.06153 / - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ - + .08148, .05127, 43.65089, 2.11524, 1.91937, - + 1.51983, 2.01992, 2.12517, - + .08278, .05189, 44.77221, 2.17763, 1.98238, - + 1.58588, 2.08264, 2.18767, - + .08402, .05249, 45.85492, 2.23823, 2.04356, - + 1.64993, 2.14355, 2.24839, - + .08519, .05304, 46.83604, 2.29475, 2.10061, - + 1.70967, 2.20036, 2.30500, - + .08637, .05361, 47.84144, 2.35293, 2.15934, - + 1.77109, 2.25883, 2.36329 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ - + .03188, .02707, 1.50536, .26013, .00201, - + .00000, .14588, .26544, - + .03379, .02802, 2.08069, .29269, .00437, - + .00000, .17459, .29818, - + .03654, .02941, 3.03457, .34507, .00982, - + .00000, .22093, .35083, - + .03852, .03039, 3.81245, .38597, .01591, - + .00000, .25731, .39191, - + .04056, .03141, 4.69378, .43080, .02507, - + .00000, .29751, .43694, - + .04230, .03227, 5.50506, .47063, .03603, - + .00000, .33361, .47693, - + .04395, .03309, 6.32813, .50960, .05004, - + .00000, .36938, .51606, - + .04568, .03395, 7.22861, .55109, .06957, - + .00000, .40811, .55771 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ - + .04718, .03470, 8.04321, .58703, .09128, - + .00000, .44233, .59379, - + .04862, .03541, 8.86598, .62153, .11715, - + .00000, .47591, .62843, - + .04975, .03597, 9.52413, .64819, .14131, - + .00000, .50246, .65520, - + .05216, .03715, 10.98367, .70354, .20457, - + .00000, .55944, .71077, - + .05421, .03816, 12.27984, .74919, .27144, - + .01602, .60853, .75660, - + .05648, .03928, 13.76643, .79879, .35737, - + .07113, .66378, .80641, - + .05883, .04043, 15.34731, .85049, .45486, - + .14630, .72250, .85833, - + .06095, .04147, 16.80792, .89916, .54613, - + .21332, .77768, .90720 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ - + .06307, .04251, 18.30226, .95117, .63754, - + .28327, .83573, .95940, - + .06483, .04336, 19.55371, .99700, .71137, - + .34240, .88590, 1.00539, - + .06695, .04439, 21.06742, 1.05562, .79737, - + .41512, .94883, 1.06420, - + .06881, .04530, 22.41353, 1.11044, .87061, - + .48062, 1.00664, 1.11919, - + .07052, .04613, 23.66113, 1.16316, .93605, - + .54184, 1.06151, 1.17207, - + .07266, .04717, 25.22055, 1.23204, 1.01648, - + .62003, 1.13243, 1.24113, - + .07468, .04814, 26.67834, 1.29883, 1.09063, - + .69445, 1.20065, 1.30811, - + .07655, .04905, 28.04554, 1.36317, 1.15969, - + .76519, 1.26601, 1.37261 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ - + .07843, .04995, 29.40101, 1.42863, 1.22845, - + .83655, 1.33229, 1.43824, - + .08024, .05083, 30.70124, 1.49322, 1.29534, - + .90654, 1.39754, 1.50299, - + .08197, .05165, 31.93709, 1.55557, 1.35932, - + .97376, 1.46043, 1.56549, - + .08358, .05243, 33.06989, 1.61426, 1.41923, - + 1.03688, 1.51959, 1.62433, - + .08520, .05320, 34.20782, 1.67406, 1.48006, - + 1.10100, 1.57983, 1.68427, - + .08678, .05396, 35.30437, 1.73296, 1.53984, - + 1.16406, 1.63913, 1.74330, - + .08828, .05468, 36.33779, 1.78936, 1.59701, - + 1.22434, 1.69592, 1.79984, - + .08970, .05536, 37.29630, 1.84274, 1.65107, - + 1.28132, 1.74965, 1.85334 / - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ - + .09113, .05604, 38.25936, 1.89705, 1.70605, - + 1.33922, 1.80431, 1.90778, - + .09253, .05671, 39.18117, 1.95028, 1.75991, - + 1.39593, 1.85787, 1.96113, - + .09387, .05734, 40.06975, 2.00191, 1.81214, - + 1.45085, 1.90983, 2.01288, - + .09513, .05794, 40.87091, 2.04994, 1.86072, - + 1.50195, 1.95816, 2.06102, - + .09641, .05855, 41.69076, 2.09933, 1.91066, - + 1.55442, 2.00785, 2.11052 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ - + .04927, .03596, 1.36633, .24058, .00175, - + .00000, .13424, .24757, - + .05197, .03729, 1.85383, .26705, .00376, - + .00000, .15776, .27430, - + .05585, .03921, 2.63963, .30891, .00829, - + .00000, .19505, .31654, - + .05861, .04056, 3.26414, .34104, .01325, - + .00000, .22384, .34894, - + .06145, .04196, 3.95693, .37578, .02062, - + .00000, .25521, .38397, - + .06386, .04314, 4.58279, .40626, .02934, - + .00000, .28304, .41468, - + .06615, .04426, 5.20763, .43573, .04038, - + .00000, .31031, .44437, - + .06853, .04543, 5.87980, .46674, .05564, - + .00000, .33950, .47561 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ - + .07058, .04643, 6.47907, .49328, .07248, - + .00000, .36503, .50234, - + .07255, .04739, 7.07706, .51847, .09239, - + .00000, .38983, .52773, - + .07410, .04814, 7.54954, .53775, .11089, - + .00000, .40927, .54715, - + .07736, .04973, 8.58230, .57718, .15888, - + .00000, .45051, .58689, - + .08013, .05108, 9.48250, .60908, .20908, - + .01170, .48552, .61906, - + .08319, .05256, 10.49706, .64318, .27288, - + .05163, .52440, .65345, - + .08633, .05408, 11.55633, .67822, .34431, - + .10561, .56518, .68878, - + .08915, .05544, 12.51819, .71088, .41028, - + .15314, .60309, .72170 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ - + .09197, .05680, 13.48654, .74555, .47543, - + .20222, .64260, .75664, - + .09430, .05791, 14.28568, .77596, .52734, - + .24330, .67648, .78727, - + .09708, .05925, 15.23749, .81466, .58695, - + .29334, .71863, .82622, - + .09952, .06042, 16.07168, .85066, .63698, - + .33797, .75704, .86244, - + .10175, .06149, 16.83567, .88510, .68112, - + .37934, .79325, .89709, - + .10454, .06282, 17.77546, .92975, .73463, - + .43167, .83963, .94199, - + .10714, .06406, 18.64043, .97270, .78330, - + .48098, .88383, .98518, - + .10957, .06521, 19.44093, 1.01376, .82812, - + .52743, .92583, 1.02646 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ - + .11197, .06635, 20.22356, 1.05520, .87227, - + .57388, .96805, 1.06812, - + .11430, .06745, 20.96282, 1.09572, .91478, - + .61903, 1.00924, 1.10885, - + .11649, .06849, 21.65794, 1.13457, .95510, - + .66206, 1.04866, 1.14789, - + .11854, .06945, 22.28532, 1.17082, .99252, - + .70214, 1.08541, 1.18433, - + .12059, .07042, 22.90916, 1.20751, 1.03023, - + .74257, 1.12258, 1.22120, - + .12258, .07136, 23.50215, 1.24337, 1.06700, - + .78202, 1.15889, 1.25723, - + .12448, .07225, 24.05485, 1.27747, 1.10192, - + .81948, 1.19342, 1.29150, - + .12625, .07308, 24.56099, 1.30951, 1.13470, - + .85465, 1.22585, 1.32370 / - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ - + .12804, .07392, 25.06487, 1.34192, 1.16784, - + .89017, 1.25866, 1.35626, - + .12979, .07473, 25.54005, 1.37344, 1.20006, - + .92472, 1.29056, 1.38794, - + .13146, .07551, 25.99553, 1.40388, 1.23116, - + .95801, 1.32137, 1.41852, - + .13302, .07624, 26.39841, 1.43195, 1.25984, - + .98875, 1.34977, 1.44672, - + .13460, .07698, 26.80886, 1.46069, 1.28922, - + 1.02017, 1.37887, 1.47561 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ - + .07586, .04931, 1.23002, .21969, .00155, - + .00000, .12223, .22912, - + .07959, .05115, 1.63809, .24061, .00327, - + .00000, .14104, .25042, - + .08492, .05377, 2.27504, .27311, .00701, - + .00000, .17031, .28345, - + .08869, .05563, 2.76656, .29762, .01101, - + .00000, .19252, .30835, - + .09255, .05752, 3.29883, .32375, .01686, - + .00000, .21638, .33486, - + .09580, .05911, 3.76946, .34636, .02368, - + .00000, .23725, .35779, - + .09887, .06060, 4.23075, .36794, .03221, - + .00000, .25747, .37968, - + .10206, .06216, 4.71726, .39034, .04389, - + .00000, .27884, .40239 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ - + .10480, .06348, 5.14378, .40926, .05665, - + .00000, .29732, .42158, - + .10741, .06475, 5.56356, .42700, .07163, - + .00000, .31507, .43957, - + .10945, .06574, 5.89042, .44040, .08545, - + .00000, .32885, .45317, - + .11375, .06781, 6.59297, .46736, .12097, - + .00000, .35771, .48055, - + .11737, .06956, 7.19210, .48869, .15768, - + .00831, .38180, .50222, - + .12134, .07147, 7.85353, .51102, .20377, - + .03645, .40813, .52493, - + .12541, .07341, 8.52903, .53356, .25466, - + .07412, .43535, .54785, - + .12903, .07514, 9.12980, .55434, .30097, - + .10682, .46033, .56898 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ - + .13264, .07686, 9.72303, .57627, .34599, - + .14021, .48611, .59124, - + .13559, .07826, 10.20388, .59541, .38131, - + .16785, .50802, .61065, - + .13910, .07992, 10.76553, .61964, .42123, - + .20115, .53502, .63521, - + .14218, .08137, 11.24905, .64205, .45418, - + .23053, .55940, .65790, - + .14497, .08269, 11.68550, .66338, .48283, - + .25750, .58221, .67949, - + .14845, .08432, 12.21105, .69080, .51701, - + .29125, .61112, .70722, - + .15167, .08583, 12.68515, .71693, .54761, - + .32269, .63837, .73364, - + .15465, .08722, 13.11652, .74169, .57541, - + .35202, .66402, .75867 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ - + .15760, .08859, 13.53062, .76646, .60246, - + .38106, .68956, .78370, - + .16043, .08991, 13.91350, .79041, .62818, - + .40898, .71420, .80790, - + .16310, .09114, 14.26853, .81319, .65234, - + .43538, .73758, .83092, - + .16557, .09228, 14.58187, .83423, .67452, - + .45972, .75915, .85216, - + .16803, .09341, 14.88923, .85535, .69668, - + .48409, .78080, .87350, - + .17043, .09451, 15.17560, .87579, .71809, - + .50766, .80174, .89415, - + .17268, .09555, 15.43833, .89508, .73825, - + .52987, .82150, .91363, - + .17479, .09651, 15.67432, .91304, .75701, - + .55055, .83989, .93176 / - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ - + .17690, .09747, 15.90614, .93107, .77584, - + .57129, .85836, .94998, - + .17896, .09841, 16.11941, .94843, .79397, - + .59129, .87614, .96751, - + .18092, .09930, 16.32247, .96511, .81138, - + .61046, .89323, .98436, - + .18274, .10013, 16.49630, .98032, .82727, - + .62799, .90882, .99972, - + .18459, .10096, 16.67254, .99583, .84347, - + .64584, .92471, 1.01539 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ - + .09741, .06021, 1.15401, .20673, .00147, - + .00000, .11511, .21829, - + .10186, .06241, 1.51927, .22466, .00304, - + .00000, .13139, .23668, - + .10819, .06552, 2.07739, .25221, .00640, - + -.00001, .15645, .26488, - + .11265, .06771, 2.49982, .27278, .00992, - + -.00001, .17526, .28591, - + .11719, .06993, 2.95001, .29450, .01499, - + -.00001, .19529, .30809, - + .12101, .07180, 3.34243, .31313, .02084, - + -.00001, .21266, .32710, - + .12461, .07354, 3.72236, .33077, .02812, - + -.00001, .22936, .34510, - + .12833, .07534, 4.11786, .34892, .03799, - + -.00001, .24687, .36361 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ - + .13150, .07688, 4.46064, .36411, .04871, - + -.00001, .26190, .37912, - + .13454, .07834, 4.79487, .37823, .06123, - + -.00001, .27624, .39354, - + .13689, .07947, 5.05255, .38881, .07272, - + -.00001, .28729, .40435, - + .14184, .08185, 5.60029, .40985, .10209, - + -.00001, .31024, .42586, - + .14599, .08383, 6.06033, .42622, .13221, - + .00670, .32919, .44263, - + .15053, .08600, 6.56101, .44311, .16974, - + .02927, .34969, .45995, - + .15515, .08819, 7.06458, .45995, .21079, - + .05930, .37066, .47722, - + .15926, .09012, 7.50590, .47536, .24780, - + .08514, .38975, .49301 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ - + .16332, .09204, 7.93574, .49155, .28341, - + .11131, .40931, .50958, - + .16664, .09359, 8.27963, .50566, .31110, - + .13284, .42584, .52400, - + .17057, .09543, 8.67572, .52346, .34204, - + .15859, .44608, .54214, - + .17399, .09702, 9.01213, .53986, .36730, - + .18114, .46426, .55886, - + .17709, .09846, 9.31252, .55544, .38906, - + .20173, .48117, .57471, - + .18094, .10023, 9.66848, .57534, .41474, - + .22730, .50246, .59496, - + .18449, .10186, 9.98467, .59419, .43747, - + .25095, .52238, .61412, - + .18776, .10337, 10.26865, .61195, .45794, - + .27286, .54101, .63217 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ - + .19099, .10484, 10.53730, .62961, .47770, - + .29442, .55944, .65009, - + .19407, .10624, 10.78104, .64654, .49630, - + .31500, .57707, .66729, - + .19697, .10755, 11.00455, .66255, .51367, - + .33435, .59370, .68355, - + .19964, .10876, 11.19810, .67723, .52949, - + .35208, .60894, .69845, - + .20229, .10995, 11.38579, .69189, .54521, - + .36973, .62414, .71333, - + .20486, .11110, 11.55744, .70597, .56029, - + .38670, .63875, .72762, - + .20727, .11218, 11.71269, .71918, .57441, - + .40261, .65245, .74102, - + .20953, .11318, 11.84955, .73139, .58746, - + .41734, .66512, .75342 / - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ - + .21178, .11418, 11.98237, .74360, .60051, - + .43205, .67778, .76581, - + .21396, .11515, 12.10151, .75526, .61298, - + .44615, .68989, .77764, - + .21603, .11606, 12.21439, .76643, .62492, - + .45963, .70149, .78898, - + .21795, .11691, 12.30742, .77651, .63572, - + .47186, .71196, .79921, - + .21989, .11776, 12.40146, .78678, .64671, - + .48428, .72263, .80963 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ - + .11618, .06988, 1.10275, .19721, .00142, - + .00000, .11003, .21071, - + .12119, .07235, 1.43901, .21314, .00292, - + .00000, .12462, .22716, - + .12829, .07583, 1.94446, .23742, .00603, - + -.00001, .14690, .25218, - + .13327, .07827, 2.32131, .25541, .00924, - + -.00001, .16349, .27067, - + .13832, .08073, 2.71796, .27426, .01382, - + .00000, .18104, .29005, - + .14256, .08279, 3.05988, .29033, .01905, - + -.00001, .19616, .30654, - + .14654, .08471, 3.38777, .30544, .02551, - + -.00001, .21060, .32205, - + .15064, .08669, 3.72554, .32089, .03423, - + -.00001, .22566, .33790 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ - + .15414, .08836, 4.01568, .33372, .04364, - + -.00001, .23851, .35107, - + .15747, .08996, 4.29656, .34557, .05459, - + -.00001, .25070, .36325, - + .16005, .09119, 4.51136, .35439, .06460, - + -.00001, .26005, .37232, - + .16546, .09376, 4.96388, .37176, .09005, - + -.00001, .27933, .39020, - + .16998, .09590, 5.33935, .38510, .11601, - + .00570, .29511, .40396, - + .17491, .09823, 5.74331, .39868, .14815, - + .02483, .31204, .41800, - + .17990, .10057, 6.14455, .41208, .18309, - + .05017, .32922, .43187, - + .18432, .10263, 6.49195, .42427, .21434, - + .07183, .34476, .44446 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ - + .18869, .10465, 6.82642, .43704, .24420, - + .09364, .36059, .45763, - + .19223, .10629, 7.09111, .44816, .26723, - + .11148, .37391, .46906, - + .19643, .10822, 7.39225, .46214, .29276, - + .13270, .39014, .48341, - + .20006, .10988, 7.64509, .47501, .31342, - + .15119, .40464, .49660, - + .20335, .11138, 7.86879, .48720, .33108, - + .16799, .41809, .50907, - + .20741, .11322, 8.13000, .50270, .35175, - + .18874, .43491, .52493, - + .21114, .11490, 8.35876, .51731, .36989, - + .20782, .45056, .53985, - + .21458, .11644, 8.56176, .53102, .38611, - + .22541, .46512, .55384 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ - + .21795, .11795, 8.75113, .54456, .40165, - + .24263, .47944, .56766, - + .22116, .11938, 8.91993, .55748, .41618, - + .25898, .49306, .58083, - + .22417, .12071, 9.07313, .56963, .42968, - + .27428, .50584, .59323, - + .22693, .12192, 9.20309, .58069, .44189, - + .28823, .51748, .60452, - + .22967, .12312, 9.32770, .59169, .45398, - + .30206, .52904, .61573, - + .23231, .12428, 9.43941, .60220, .46549, - + .31530, .54008, .62643, - + .23479, .12536, 9.53891, .61200, .47623, - + .32765, .55039, .63642, - + .23709, .12635, 9.62477, .62100, .48611, - + .33905, .55987, .64561 / - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ - + .23939, .12734, 9.70699, .62997, .49594, - + .35038, .56930, .65475, - + .24161, .12829, 9.77845, .63847, .50528, - + .36120, .57827, .66342, - + .24372, .12919, 9.84584, .64660, .51421, - + .37150, .58683, .67170, - + .24566, .13002, 9.89855, .65387, .52222, - + .38081, .59450, .67911, - + .24762, .13085, 9.95171, .66125, .53035, - + .39023, .60229, .68663 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ - + .13312, .07872, 1.06537, .18963, .00140, - + .00000, .10611, .20499, - + .13858, .08141, 1.37982, .20407, .00284, - + .00000, .11946, .22000, - + .14629, .08518, 1.84611, .22595, .00578, - + .00000, .13970, .24268, - + .15168, .08780, 2.18942, .24205, .00878, - + .00000, .15467, .25933, - + .15714, .09045, 2.54705, .25884, .01300, - + .00000, .17042, .27666, - + .16171, .09265, 2.85246, .27305, .01779, - + .00000, .18391, .29133, - + .16598, .09470, 3.14302, .28635, .02366, - + .00000, .19675, .30506, - + .17038, .09680, 3.43965, .29987, .03154, - + .00000, .21006, .31900 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ - + .17412, .09858, 3.69255, .31103, .04002, - + .00000, .22135, .33053, - + .17767, .10026, 3.93589, .32128, .04984, - + .00000, .23203, .34111, - + .18042, .10156, 4.12071, .32886, .05879, - + .00000, .24018, .34895, - + .18617, .10427, 4.50709, .34365, .08146, - + .00000, .25689, .36429, - + .19096, .10651, 4.82431, .35488, .10446, - + .00501, .27046, .37596, - + .19617, .10893, 5.16216, .36619, .13280, - + .02175, .28492, .38774, - + .20141, .11136, 5.49416, .37723, .16343, - + .04382, .29948, .39926, - + .20605, .11349, 5.77850, .38723, .19067, - + .06259, .31259, .40967 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ - + .21061, .11557, 6.04933, .39768, .21654, - + .08140, .32588, .42052, - + .21431, .11725, 6.26168, .40676, .23635, - + .09672, .33702, .42992, - + .21867, .11922, 6.50045, .41818, .25818, - + .11486, .35053, .44171, - + .22244, .12091, 6.69873, .42866, .27572, - + .13059, .36256, .45251, - + .22584, .12243, 6.87262, .43858, .29062, - + .14484, .37367, .46271, - + .23002, .12428, 7.07297, .45114, .30791, - + .16234, .38750, .47561, - + .23385, .12597, 7.24606, .46293, .32299, - + .17836, .40031, .48770, - + .23737, .12751, 7.39776, .47393, .33638, - + .19307, .41217, .49899 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ - + .24080, .12901, 7.53705, .48476, .34913, - + .20740, .42377, .51009, - + .24407, .13043, 7.65901, .49503, .36098, - + .22095, .43474, .52060, - + .24712, .13174, 7.76855, .50465, .37195, - + .23359, .44501, .53046, - + .24992, .13294, 7.85941, .51336, .38180, - + .24506, .45429, .53937, - + .25269, .13412, 7.94543, .52197, .39152, - + .25640, .46348, .54819, - + .25534, .13524, 8.02070, .53016, .40074, - + .26720, .47221, .55656, - + .25782, .13629, 8.08650, .53776, .40930, - + .27725, .48032, .56434, - + .26013, .13725, 8.14172, .54470, .41713, - + .28648, .48775, .57145 / - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ - + .26242, .13821, 8.19374, .55159, .42490, - + .29564, .49511, .57849, - + .26463, .13912, 8.23716, .55807, .43225, - + .30434, .50206, .58513, - + .26673, .13999, 8.27786, .56425, .43925, - + .31262, .50869, .59146, - + .26865, .14077, 8.30697, .56973, .44549, - + .32005, .51457, .59706, - + .27058, .14156, 8.33627, .57528, .45181, - + .32756, .52054, .60273 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ - + .16330, .09475, 1.01436, .17785, .00139, - + .00000, .10027, .19675, - + .16944, .09774, 1.29675, .19017, .00276, - + .00000, .11184, .20970, - + .17808, .10191, 1.70637, .20865, .00549, - + .00001, .12920, .22905, - + .18409, .10479, 2.00180, .22209, .00819, - + .00001, .14189, .24309, - + .19014, .10767, 2.30433, .23597, .01192, - + .00001, .15512, .25756, - + .19518, .11005, 2.55872, .24761, .01609, - + .00001, .16636, .26969, - + .19987, .11226, 2.79753, .25841, .02116, - + .00000, .17697, .28094, - + .20468, .11451, 3.03770, .26927, .02788, - + .00001, .18787, .29224 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ - + .20875, .11640, 3.23988, .27814, .03506, - + .00001, .19704, .30149, - + .21261, .11819, 3.43243, .28621, .04333, - + .00001, .20565, .30991, - + .21558, .11956, 3.57688, .29210, .05082, - + .00001, .21217, .31608, - + .22177, .12239, 3.87494, .30345, .06967, - + .00000, .22541, .32797, - + .22690, .12472, 4.11530, .31186, .08863, - + .00408, .23602, .33683, - + .23245, .12722, 4.36682, .32015, .11181, - + .01762, .24719, .34560, - + .23800, .12971, 4.60916, .32811, .13663, - + .03536, .25832, .35402, - + .24288, .13187, 4.81267, .33524, .15849, - + .05030, .26823, .36156 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ - + .24765, .13396, 5.00286, .34268, .17903, - + .06516, .27820, .36938, - + .25150, .13565, 5.14927, .34914, .19461, - + .07717, .28650, .37614, - + .25601, .13760, 5.31023, .35724, .21158, - + .09129, .29649, .38458, - + .25988, .13926, 5.44114, .36466, .22504, - + .10345, .30532, .39230, - + .26336, .14075, 5.55407, .37166, .23637, - + .11439, .31344, .39956, - + .26761, .14254, 5.68033, .38047, .24934, - + .12774, .32346, .40867, - + .27149, .14416, 5.78609, .38867, .26051, - + .13985, .33265, .41715, - + .27503, .14563, 5.87642, .39628, .27033, - + .15090, .34109, .42500 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ - + .27846, .14705, 5.95675, .40369, .27957, - + .16159, .34927, .43265, - + .28170, .14837, 6.02391, .41064, .28807, - + .17161, .35693, .43981, - + .28472, .14959, 6.08269, .41711, .29588, - + .18091, .36405, .44648, - + .28746, .15069, 6.12851, .42289, .30283, - + .18929, .37042, .45242, - + .29017, .15177, 6.17039, .42857, .30963, - + .19752, .37667, .45827, - + .29275, .15279, 6.20439, .43389, .31601, - + .20530, .38255, .46374, - + .29515, .15373, 6.23234, .43879, .32190, - + .21251, .38797, .46878, - + .29736, .15458, 6.25351, .44322, .32725, - + .21909, .39289, .47334 / - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ - + .29956, .15543, 6.27213, .44757, .33252, - + .22558, .39773, .47782, - + .30165, .15623, 6.28463, .45162, .33745, - + .23170, .40224, .48197, - + .30364, .15698, 6.29608, .45545, .34213, - + .23751, .40652, .48591, - + .30544, .15766, 6.30012, .45878, .34625, - + .24267, .41027, .48933, - + .30726, .15833, 6.30416, .46215, .35041, - + .24788, .41405, .49278 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ - + .20259, .11602, .96974, .16488, .00140, - + .00000, .09418, .18868, - + .20944, .11926, 1.21875, .17510, .00273, - + .00000, .10399, .19957, - + .21898, .12373, 1.57066, .19022, .00527, - + .00000, .11852, .21560, - + .22557, .12678, 1.81827, .20108, .00769, - + .00000, .12900, .22706, - + .23217, .12981, 2.06664, .21215, .01096, - + .00000, .13980, .23873, - + .23762, .13229, 2.27162, .22133, .01456, - + .00000, .14888, .24839, - + .24267, .13458, 2.46090, .22975, .01885, - + .00000, .15736, .25725, - + .24782, .13689, 2.64776, .23809, .02448, - + .00000, .16598, .26603 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ - + .25215, .13881, 2.80256, .24482, .03042, - + .00000, .17316, .27312, - + .25624, .14062, 2.94809, .25086, .03721, - + .00000, .17984, .27949, - + .25938, .14199, 3.05557, .25520, .04333, - + .00000, .18485, .28408, - + .26586, .14481, 3.27370, .26338, .05857, - + .00000, .19489, .29277, - + .27120, .14711, 3.44538, .26925, .07376, - + .00321, .20281, .29904, - + .27692, .14954, 3.62073, .27485, .09215, - + .01383, .21101, .30507, - + .28260, .15192, 3.78513, .28007, .11162, - + .02765, .21904, .31070, - + .28755, .15397, 3.91943, .28469, .12857, - + .03916, .22611, .31566 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ - + .29235, .15594, 4.04145, .28950, .14430, - + .05051, .23315, .32078, - + .29619, .15750, 4.13266, .29367, .15609, - + .05961, .23896, .32521, - + .30066, .15928, 4.22955, .29889, .16875, - + .07020, .24588, .33070, - + .30446, .16078, 4.30559, .30367, .17865, - + .07924, .25195, .33571, - + .30785, .16211, 4.36932, .30818, .18687, - + .08732, .25749, .34042, - + .31196, .16369, 4.43670, .31379, .19614, - + .09708, .26424, .34625, - + .31567, .16509, 4.48990, .31895, .20398, - + .10586, .27035, .35161, - + .31903, .16634, 4.53292, .32370, .21078, - + .11379, .27591, .35652 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ - + .32226, .16754, 4.56828, .32827, .21710, - + .12141, .28123, .36124, - + .32528, .16863, 4.59429, .33247, .22282, - + .12849, .28614, .36557, - + .32807, .16962, 4.61533, .33634, .22802, - + .13500, .29065, .36956, - + .33057, .17051, 4.62812, .33972, .23259, - + .14082, .29462, .37304, - + .33302, .17136, 4.63802, .34300, .23701, - + .14650, .29848, .37642, - + .33535, .17214, 4.64269, .34602, .24112, - + .15183, .30205, .37952, - + .33750, .17286, 4.64411, .34875, .24487, - + .15672, .30530, .38232, - + .33945, .17351, 4.64182, .35116, .24823, - + .16114, .30820, .38479 / - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ - + .34137, .17413, 4.63767, .35351, .25151, - + .16549, .31102, .38719, - + .34319, .17470, 4.62949, .35562, .25453, - + .16954, .31360, .38935, - + .34491, .17524, 4.62150, .35761, .25739, - + .17337, .31604, .39139, - + .34644, .17571, 4.60932, .35926, .25985, - + .17674, .31810, .39306, - + .34798, .17618, 4.59713, .36092, .26233, - + .18012, .32018, .39476 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ - + .25859, .14663, .93501, .14938, .00145, - + -.00001, .08738, .18048, - + .26606, .14993, 1.14572, .15738, .00277, - + -.00001, .09533, .18909, - + .27634, .15440, 1.43362, .16900, .00513, - + -.00002, .10688, .20151, - + .28336, .15741, 1.62962, .17717, .00729, - + -.00002, .11507, .21022, - + .29031, .16034, 1.82084, .18536, .01010, - + -.00002, .12336, .21892, - + .29601, .16272, 1.97461, .19204, .01311, - + -.00002, .13023, .22598, - + .30125, .16488, 2.11340, .19805, .01662, - + -.00001, .13656, .23235, - + .30652, .16702, 2.24679, .20389, .02114, - + -.00002, .14289, .23852 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ - + .31092, .16878, 2.35476, .20849, .02584, - + -.00002, .14808, .24339, - + .31505, .17042, 2.45438, .21253, .03115, - + -.00002, .15284, .24768, - + .31818, .17165, 2.52619, .21537, .03589, - + -.00002, .15637, .25069, - + .32461, .17413, 2.66822, .22050, .04756, - + -.00002, .16330, .25617, - + .32983, .17611, 2.77573, .22396, .05903, - + .00237, .16862, .25990, - + .33535, .17815, 2.88130, .22704, .07272, - + .01022, .17400, .26324, - + .34075, .18011, 2.97564, .22975, .08701, - + .02032, .17914, .26619, - + .34539, .18175, 3.04877, .23207, .09927, - + .02862, .18356, .26870 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ - + .34982, .18327, 3.11160, .23450, .11046, - + .03671, .18790, .27128, - + .35331, .18445, 3.15581, .23663, .11871, - + .04312, .19144, .27351, - + .35732, .18577, 3.19883, .23928, .12741, - + .05050, .19559, .27628, - + .36068, .18684, 3.22964, .24172, .13407, - + .05672, .19918, .27880, - + .36365, .18776, 3.25347, .24403, .13949, - + .06223, .20242, .28117, - + .36716, .18881, 3.27393, .24684, .14546, - + .06880, .20628, .28403, - + .37027, .18971, 3.28599, .24938, .15040, - + .07464, .20970, .28660, - + .37305, .19048, 3.29261, .25166, .15459, - + .07986, .21276, .28890 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ - + .37567, .19118, 3.29412, .25380, .15840, - + .08481, .21562, .29103, - + .37807, .19178, 3.28998, .25568, .16177, - + .08935, .21817, .29289, - + .38025, .19231, 3.28387, .25737, .16479, - + .09349, .22048, .29457, - + .38217, .19274, 3.27349, .25876, .16737, - + .09713, .22244, .29592, - + .38401, .19314, 3.26138, .26007, .16984, - + .10066, .22431, .29719, - + .38571, .19348, 3.24641, .26120, .17208, - + .10393, .22597, .29827, - + .38726, .19378, 3.23042, .26218, .17408, - + .10690, .22745, .29919, - + .38863, .19401, 3.21310, .26297, .17584, - + .10956, .22871, .29993 / - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ - + .38997, .19422, 3.19471, .26371, .17753, - + .11214, .22990, .30061, - + .39119, .19438, 3.17423, .26429, .17905, - + .11453, .23094, .30113, - + .39234, .19453, 3.15483, .26484, .18047, - + .11676, .23190, .30161, - + .39330, .19462, 3.13364, .26519, .18163, - + .11869, .23264, .30188, - + .39428, .19470, 3.11253, .26554, .18281, - + .12062, .23338, .30216 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ - + .30729, .17288, .92297, .13761, .00151, - + -.00001, .08250, .17496, - + .31494, .17596, 1.10543, .14413, .00283, - + -.00001, .08920, .18196, - + .32534, .18006, 1.34791, .15344, .00510, - + -.00001, .09876, .19185, - + .33235, .18276, 1.50844, .15987, .00710, - + -.00001, .10543, .19864, - + .33924, .18535, 1.66129, .16619, .00962, - + -.00002, .11209, .20531, - + .34483, .18741, 1.78141, .17125, .01224, - + -.00002, .11752, .21063, - + .34991, .18926, 1.88761, .17575, .01525, - + -.00001, .12246, .21534, - + .35500, .19105, 1.98713, .18001, .01906, - + -.00002, .12734, .21978 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ - + .35919, .19249, 2.06588, .18329, .02298, - + -.00002, .13128, .22320, - + .36309, .19381, 2.13723, .18609, .02735, - + -.00002, .13485, .22614, - + .36603, .19479, 2.18737, .18801, .03122, - + -.00002, .13745, .22812, - + .37197, .19671, 2.28389, .19131, .04065, - + -.00002, .14247, .23157, - + .37672, .19820, 2.35388, .19335, .04980, - + .00188, .14623, .23368, - + .38168, .19968, 2.41939, .19497, .06062, - + .00806, .14991, .23536, - + .38646, .20104, 2.47435, .19624, .07178, - + .01597, .15334, .23666, - + .39048, .20212, 2.51386, .19727, .08122, - + .02239, .15623, .23769 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ - + .39425, .20308, 2.54479, .19836, .08973, - + .02858, .15902, .23875, - + .39718, .20379, 2.56408, .19934, .09590, - + .03344, .16125, .23968, - + .40045, .20452, 2.57926, .20059, .10230, - + .03898, .16383, .24085, - + .40314, .20507, 2.58714, .20174, .10711, - + .04362, .16603, .24192, - + .40549, .20552, 2.59103, .20285, .11098, - + .04768, .16799, .24295, - + .40819, .20597, 2.58875, .20415, .11513, - + .05248, .17026, .24411, - + .41050, .20629, 2.58147, .20528, .11848, - + .05670, .17222, .24510, - + .41252, .20652, 2.57141, .20626, .12126, - + .06043, .17393, .24594 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ - + .41437, .20668, 2.55780, .20713, .12374, - + .06394, .17548, .24665, - + .41599, .20675, 2.54059, .20781, .12588, - + .06712, .17679, .24716, - + .41743, .20679, 2.52300, .20839, .12776, - + .07000, .17795, .24757, - + .41864, .20675, 2.50338, .20877, .12933, - + .07250, .17887, .24779, - + .41977, .20668, 2.48270, .20909, .13080, - + .07490, .17971, .24794, - + .42076, .20656, 2.46039, .20928, .13210, - + .07711, .18041, .24797, - + .42162, .20641, 2.43820, .20939, .13323, - + .07910, .18099, .24791, - + .42234, .20623, 2.41592, .20941, .13420, - + .08085, .18144, .24776 / - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ - + .42302, .20603, 2.39303, .20938, .13511, - + .08254, .18184, .24756, - + .42357, .20578, 2.36901, .20924, .13590, - + .08408, .18211, .24725, - + .42409, .20554, 2.34642, .20910, .13662, - + .08552, .18236, .24694, - + .42445, .20526, 2.32320, .20884, .13717, - + .08673, .18246, .24652, - + .42481, .20498, 2.30015, .20858, .13772, - + .08793, .18256, .24609 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ - + .39104, .21575, .92414, .11914, .00163, - + .00000, .07491, .16598, - + .39819, .21790, 1.06383, .12369, .00296, - + .00000, .07989, .17059, - + .40764, .22061, 1.24062, .12995, .00511, - + .00000, .08677, .17684, - + .41385, .22228, 1.35180, .13412, .00688, - + .00000, .09141, .18095, - + .41979, .22377, 1.45288, .13807, .00901, - + .00000, .09592, .18481, - + .42449, .22489, 1.52876, .14112, .01113, - + -.00001, .09951, .18774, - + .42870, .22580, 1.59302, .14370, .01349, - + -.00001, .10268, .19022, - + .43273, .22662, 1.64984, .14605, .01638, - + .00000, .10572, .19237 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ - + .43600, .22721, 1.69245, .14773, .01929, - + .00000, .10810, .19390, - + .43898, .22771, 1.72942, .14907, .02247, - + .00000, .11019, .19509, - + .44115, .22802, 1.75366, .14990, .02525, - + .00000, .11167, .19575, - + .44543, .22855, 1.79689, .15107, .03190, - + .00000, .11440, .19661, - + .44870, .22882, 1.82395, .15149, .03822, - + .00132, .11629, .19673, - + .45194, .22896, 1.84478, .15150, .04555, - + .00554, .11801, .19637, - + .45485, .22894, 1.85710, .15122, .05295, - + .01087, .11949, .19568, - + .45715, .22877, 1.86115, .15088, .05907, - + .01512, .12064, .19497 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ - + .45916, .22848, 1.85932, .15056, .06446, - + .01915, .12170, .19426, - + .46060, .22815, 1.85378, .15035, .06828, - + .02227, .12250, .19371, - + .46204, .22763, 1.84195, .15012, .07210, - + .02576, .12337, .19307, - + .46310, .22709, 1.82826, .14996, .07488, - + .02863, .12407, .19252, - + .46392, .22655, 1.81396, .14985, .07704, - + .03112, .12468, .19205, - + .46467, .22575, 1.79174, .14963, .07925, - + .03401, .12528, .19137, - + .46515, .22492, 1.76818, .14937, .08095, - + .03649, .12572, .19066, - + .46544, .22409, 1.74466, .14908, .08229, - + .03867, .12605, .18995 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ - + .46556, .22319, 1.71955, .14871, .08342, - + .04067, .12627, .18916, - + .46548, .22224, 1.69316, .14825, .08433, - + .04244, .12636, .18828, - + .46532, .22132, 1.66791, .14778, .08509, - + .04402, .12639, .18742, - + .46499, .22039, 1.64271, .14724, .08567, - + .04537, .12630, .18650, - + .46460, .21944, 1.61728, .14666, .08618, - + .04664, .12617, .18555, - + .46409, .21846, 1.59158, .14602, .08660, - + .04779, .12596, .18454, - + .46352, .21751, 1.56697, .14538, .08693, - + .04880, .12571, .18354, - + .46289, .21658, 1.54329, .14472, .08716, - + .04967, .12541, .18254 / - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ - + .46221, .21563, 1.51951, .14403, .08736, - + .05049, .12508, .18151, - + .46143, .21465, 1.49557, .14328, .08749, - + .05122, .12469, .18043, - + .46069, .21373, 1.47322, .14258, .08759, - + .05190, .12431, .17942, - + .45984, .21280, 1.45129, .14185, .08762, - + .05246, .12388, .17838, - + .45899, .21187, 1.42961, .14111, .08763, - + .05301, .12344, .17733 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ - + .46207, .24846, .93381, .10396, .00170, - + .00000, .06827, .15662, - + .46791, .24934, 1.04023, .10721, .00304, - + .00000, .07205, .15946, - + .47536, .25020, 1.16847, .11148, .00508, - + .00000, .07711, .16311, - + .48004, .25054, 1.24483, .11420, .00668, - + .00000, .08041, .16533, - + .48433, .25067, 1.31063, .11668, .00853, - + .00000, .08352, .16727, - + .48758, .25063, 1.35727, .11849, .01031, - + .00000, .08593, .16860, - + .49037, .25047, 1.39455, .11994, .01222, - + -.00001, .08800, .16960, - + .49289, .25014, 1.42465, .12114, .01452, - + .00000, .08989, .17027 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ - + .49482, .24976, 1.44519, .12190, .01677, - + .00000, .09132, .17058, - + .49650, .24933, 1.46160, .12241, .01920, - + .00000, .09253, .17067, - + .49763, .24892, 1.47066, .12263, .02129, - + .00000, .09334, .17053, - + .49968, .24791, 1.48342, .12266, .02622, - + .00000, .09473, .16982, - + .50101, .24691, 1.48680, .12224, .03081, - + .00097, .09557, .16875, - + .50208, .24566, 1.48385, .12145, .03605, - + .00406, .09620, .16722, - + .50275, .24422, 1.47433, .12041, .04124, - + .00791, .09661, .16543, - + .50299, .24280, 1.46094, .11942, .04545, - + .01093, .09684, .16376 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ - + .50293, .24128, 1.44370, .11847, .04908, - + .01376, .09700, .16210, - + .50267, .23995, 1.42695, .11771, .05158, - + .01593, .09707, .16077, - + .50206, .23823, 1.40357, .11682, .05402, - + .01831, .09708, .15918, - + .50130, .23667, 1.38119, .11606, .05572, - + .02024, .09704, .15781, - + .50048, .23521, 1.35990, .11541, .05700, - + .02190, .09697, .15660, - + .49916, .23326, 1.33066, .11453, .05823, - + .02378, .09677, .15502, - + .49770, .23138, 1.30204, .11367, .05910, - + .02538, .09651, .15350, - + .49620, .22959, 1.27483, .11284, .05975, - + .02676, .09620, .15206 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ - + .49454, .22776, 1.24708, .11198, .06025, - + .02801, .09583, .15058, - + .49273, .22593, 1.21923, .11107, .06059, - + .02909, .09538, .14908, - + .49096, .22419, 1.19315, .11020, .06084, - + .03004, .09492, .14766, - + .48913, .22251, 1.16808, .10931, .06099, - + .03084, .09441, .14626, - + .48724, .22082, 1.14321, .10842, .06110, - + .03158, .09389, .14485, - + .48528, .21912, 1.11867, .10749, .06113, - + .03223, .09332, .14343, - + .48335, .21751, 1.09557, .10660, .06113, - + .03279, .09276, .14206, - + .48144, .21596, 1.07375, .10572, .06107, - + .03326, .09218, .14075 / - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ - + .47948, .21440, 1.05209, .10484, .06100, - + .03370, .09158, .13942, - + .47745, .21284, 1.03068, .10394, .06087, - + .03408, .09095, .13807, - + .47552, .21138, 1.01080, .10309, .06074, - + .03442, .09036, .13681, - + .47356, .20994, .99172, .10223, .06057, - + .03468, .08975, .13557, - + .47161, .20850, .97295, .10138, .06039, - + .03493, .08914, .13433 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ - + .52311, .27286, .94066, .09061, .00173, - + -.00001, .06187, .14599, - + .52710, .27232, 1.01949, .09291, .00304, - + .00000, .06475, .14749, - + .53176, .27116, 1.10907, .09582, .00498, - + .00000, .06846, .14913, - + .53442, .27010, 1.15874, .09756, .00643, - + .00000, .07079, .14998, - + .53662, .26879, 1.19831, .09903, .00805, - + -.00001, .07291, .15053, - + .53807, .26755, 1.22380, .10002, .00955, - + -.00001, .07449, .15075, - + .53912, .26629, 1.24202, .10074, .01113, - + -.00001, .07580, .15074, - + .53984, .26479, 1.25368, .10122, .01298, - + -.00001, .07692, .15043 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ - + .54017, .26344, 1.25936, .10142, .01476, - + -.00001, .07772, .14993, - + .54031, .26211, 1.26217, .10144, .01665, - + -.00001, .07836, .14928, - + .54025, .26099, 1.26139, .10131, .01826, - + -.00001, .07875, .14862, - + .53978, .25850, 1.25492, .10068, .02198, - + -.00001, .07929, .14693, - + .53897, .25627, 1.24392, .09981, .02540, - + .00073, .07948, .14516, - + .53767, .25369, 1.22703, .09861, .02924, - + .00307, .07947, .14295, - + .53592, .25092, 1.20524, .09722, .03298, - + .00596, .07927, .14054, - + .53400, .24835, 1.18254, .09594, .03595, - + .00819, .07898, .13833 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ - + .53179, .24572, 1.15750, .09468, .03846, - + .01025, .07862, .13617, - + .52976, .24349, 1.13541, .09369, .04015, - + .01181, .07830, .13442, - + .52705, .24072, 1.10699, .09249, .04173, - + .01351, .07785, .13236, - + .52446, .23826, 1.08116, .09149, .04279, - + .01487, .07742, .13058, - + .52199, .23601, 1.05737, .09061, .04355, - + .01602, .07700, .12899, - + .51863, .23308, 1.02624, .08944, .04422, - + .01730, .07641, .12696, - + .51526, .23032, .99675, .08834, .04465, - + .01838, .07579, .12507, - + .51201, .22774, .96937, .08731, .04492, - + .01929, .07518, .12331 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ - + .50866, .22514, .94210, .08626, .04508, - + .02010, .07454, .12154, - + .50524, .22256, .91539, .08518, .04514, - + .02079, .07384, .11979, - + .50197, .22015, .89073, .08417, .04515, - + .02139, .07318, .11815, - + .49874, .21786, .86750, .08320, .04509, - + .02188, .07250, .11657, - + .49547, .21558, .84470, .08222, .04500, - + .02233, .07180, .11500, - + .49218, .21333, .82252, .08123, .04486, - + .02271, .07110, .11345, - + .48901, .21119, .80187, .08029, .04471, - + .02304, .07042, .11198, - + .48594, .20917, .78260, .07938, .04453, - + .02330, .06976, .11058 / - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ - + .48284, .20714, .76361, .07847, .04433, - + .02354, .06908, .10917, - + .47970, .20513, .74507, .07756, .04411, - + .02374, .06839, .10778, - + .47673, .20325, .72793, .07671, .04390, - + .02391, .06775, .10647, - + .47381, .20143, .71172, .07587, .04365, - + .02403, .06710, .10521, - + .47090, .19962, .69582, .07503, .04341, - + .02416, .06645, .10397 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ - + .58703, .29356, .93950, .07576, .00172, - + -.00001, .05402, .13118, - + .58815, .29121, .98960, .07724, .00298, - + -.00002, .05604, .13138, - + .58870, .28749, 1.04039, .07893, .00475, - + -.00001, .05851, .13129, - + .58841, .28468, 1.06430, .07984, .00603, - + -.00001, .05998, .13093, - + .58756, .28164, 1.07929, .08052, .00739, - + -.00002, .06124, .13030, - + .58644, .27898, 1.08551, .08088, .00862, - + -.00002, .06212, .12957, - + .58507, .27640, 1.08680, .08104, .00988, - + -.00001, .06278, .12872, - + .58326, .27356, 1.08251, .08097, .01130, - + -.00001, .06328, .12760 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ - + .58146, .27106, 1.07565, .08074, .01264, - + -.00001, .06358, .12649, - + .57959, .26865, 1.06726, .08040, .01404, - + -.00001, .06377, .12531, - + .57794, .26671, 1.05856, .08002, .01521, - + -.00001, .06382, .12428, - + .57412, .26258, 1.03709, .07900, .01788, - + -.00001, .06372, .12190, - + .57051, .25898, 1.01535, .07788, .02027, - + .00053, .06343, .11966, - + .56618, .25495, .98858, .07648, .02291, - + .00222, .06295, .11705, - + .56135, .25076, .95867, .07495, .02543, - + .00430, .06233, .11429, - + .55673, .24696, .93029, .07356, .02739, - + .00588, .06170, .11181 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ - + .55188, .24313, .90096, .07220, .02899, - + .00731, .06103, .10939, - + .54772, .23996, .87630, .07110, .03002, - + .00838, .06046, .10746, - + .54246, .23613, .84599, .06982, .03096, - + .00952, .05973, .10515, - + .53770, .23275, .81935, .06873, .03154, - + .01042, .05907, .10318, - + .53332, .22968, .79536, .06775, .03191, - + .01118, .05846, .10143, - + .52754, .22579, .76494, .06651, .03219, - + .01201, .05764, .09924, - + .52202, .22215, .73687, .06534, .03231, - + .01270, .05686, .09722, - + .51680, .21878, .71128, .06426, .03232, - + .01327, .05611, .09535 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ - + .51152, .21546, .68629, .06319, .03227, - + .01377, .05533, .09352, - + .50624, .21221, .66231, .06213, .03216, - + .01418, .05454, .09171, - + .50129, .20919, .64042, .06114, .03202, - + .01452, .05380, .09003, - + .49654, .20633, .62012, .06017, .03185, - + .01480, .05308, .08846, - + .49178, .20351, .60041, .05921, .03166, - + .01505, .05236, .08690, - + .48705, .20074, .58150, .05828, .03144, - + .01525, .05163, .08538, - + .48254, .19814, .56406, .05741, .03121, - + .01541, .05093, .08396, - + .47825, .19571, .54796, .05658, .03098, - + .01553, .05027, .08261 / - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ - + .47394, .19328, .53223, .05574, .03074, - + .01564, .04961, .08128, - + .46965, .19088, .51702, .05491, .03048, - + .01571, .04894, .07997, - + .46562, .18863, .50303, .05412, .03024, - + .01578, .04833, .07874, - + .46169, .18649, .48994, .05338, .02999, - + .01582, .04772, .07756, - + .45779, .18437, .47716, .05264, .02974, - + .01587, .04713, .07640 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ - + .63816, .30509, .92573, .06267, .00166, - + -.00002, .04645, .11539, - + .63607, .30098, .95221, .06357, .00284, - + -.00004, .04784, .11476, - + .63198, .29489, .97230, .06449, .00445, - + -.00003, .04945, .11346, - + .62849, .29046, .97659, .06487, .00557, - + -.00003, .05033, .11234, - + .62438, .28583, .97348, .06504, .00672, - + -.00003, .05100, .11101, - + .62056, .28187, .96595, .06500, .00772, - + -.00003, .05143, .10973, - + .61672, .27808, .95549, .06482, .00871, - + -.00003, .05169, .10841, - + .61229, .27406, .94048, .06445, .00981, - + -.00004, .05180, .10687 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ - + .60828, .27058, .92546, .06401, .01082, - + -.00004, .05179, .10543, - + .60434, .26726, .90999, .06351, .01186, - + -.00003, .05170, .10398, - + .60107, .26463, .89645, .06303, .01272, - + -.00003, .05155, .10278, - + .59396, .25907, .86621, .06184, .01464, - + -.00003, .05111, .10012, - + .58760, .25435, .83862, .06067, .01634, - + .00037, .05059, .09772, - + .58033, .24914, .80694, .05926, .01817, - + .00164, .04989, .09500, - + .57257, .24380, .77350, .05776, .01987, - + .00317, .04908, .09221, - + .56539, .23903, .74312, .05642, .02116, - + .00431, .04831, .08973 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ - + .55807, .23428, .71278, .05511, .02218, - + .00534, .04752, .08732, - + .55195, .23038, .68796, .05406, .02282, - + .00611, .04685, .08538, - + .54439, .22570, .65827, .05282, .02334, - + .00689, .04603, .08312, - + .53767, .22164, .63271, .05177, .02364, - + .00751, .04531, .08119, - + .53154, .21799, .61006, .05083, .02380, - + .00802, .04465, .07947, - + .52368, .21338, .58191, .04964, .02387, - + .00858, .04379, .07734, - + .51625, .20913, .55640, .04855, .02382, - + .00903, .04296, .07539, - + .50932, .20524, .53346, .04755, .02373, - + .00939, .04220, .07360 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ - + .50240, .20141, .51135, .04656, .02358, - + .00970, .04143, .07184, - + .49560, .19768, .49045, .04559, .02340, - + .00994, .04066, .07016, - + .48924, .19424, .47155, .04469, .02320, - + .01015, .03994, .06861, - + .48321, .19102, .45425, .04384, .02299, - + .01030, .03927, .06716, - + .47720, .18786, .43758, .04300, .02277, - + .01043, .03859, .06573, - + .47129, .18479, .42173, .04218, .02253, - + .01053, .03791, .06434, - + .46572, .18191, .40725, .04141, .02230, - + .01061, .03728, .06305, - + .46046, .17921, .39399, .04069, .02206, - + .01067, .03669, .06184 / - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ - + .45520, .17654, .38111, .03997, .02182, - + .01072, .03609, .06065, - + .44998, .17392, .36877, .03926, .02158, - + .01075, .03550, .05949, - + .44510, .17149, .35746, .03859, .02135, - + .01077, .03494, .05842, - + .44043, .16915, .34698, .03795, .02111, - + .01076, .03442, .05740, - + .43579, .16684, .33678, .03732, .02088, - + .01076, .03389, .05639 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ - + .67715, .30896, .89993, .05123, .00157, - + -.00001, .03932, .09950, - + .67159, .30333, .90714, .05177, .00265, - + -.00001, .04025, .09831, - + .66269, .29516, .90306, .05219, .00407, - + .00000, .04122, .09635, - + .65589, .28933, .89250, .05224, .00502, - + .00000, .04169, .09480, - + .64850, .28332, .87612, .05211, .00598, - + -.00001, .04198, .09307, - + .64197, .27826, .85886, .05186, .00679, - + -.00001, .04210, .09151, - + .63560, .27349, .84036, .05152, .00757, - + -.00001, .04211, .08997, - + .62862, .26849, .81829, .05102, .00842, - + -.00002, .04198, .08823 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ - + .62248, .26421, .79810, .05049, .00918, - + -.00002, .04179, .08669, - + .61654, .26015, .77833, .04993, .00995, - + -.00002, .04155, .08517, - + .61173, .25696, .76201, .04943, .01056, - + -.00001, .04131, .08392, - + .60146, .25030, .72703, .04826, .01194, - + -.00001, .04069, .08123, - + .59254, .24469, .69669, .04714, .01313, - + .00029, .04006, .07888, - + .58254, .23858, .66317, .04584, .01439, - + .00123, .03928, .07629, - + .57212, .23237, .62894, .04447, .01553, - + .00236, .03843, .07364, - + .56267, .22687, .59870, .04325, .01637, - + .00318, .03763, .07132 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ - + .55315, .22144, .56919, .04206, .01701, - + .00391, .03682, .06907, - + .54527, .21703, .54550, .04112, .01739, - + .00445, .03616, .06726, - + .53572, .21180, .51770, .04000, .01766, - + .00501, .03536, .06516, - + .52732, .20727, .49415, .03905, .01779, - + .00544, .03465, .06337, - + .51970, .20322, .47349, .03822, .01783, - + .00580, .03400, .06179, - + .51005, .19817, .44823, .03716, .01779, - + .00616, .03319, .05984, - + .50103, .19354, .42568, .03621, .01767, - + .00644, .03242, .05806, - + .49272, .18929, .40562, .03533, .01752, - + .00667, .03171, .05646 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ - + .48451, .18513, .38646, .03444, .01733, - + .00687, .03100, .05492, - + .47649, .18114, .36858, .03359, .01713, - + .00702, .03031, .05341, - + .46902, .17747, .35254, .03281, .01693, - + .00714, .02968, .05203, - + .46197, .17406, .33802, .03209, .01672, - + .00722, .02906, .05076, - + .45502, .17072, .32410, .03138, .01650, - + .00729, .02846, .04952, - + .44824, .16746, .31098, .03068, .01627, - + .00734, .02788, .04833, - + .44187, .16444, .29905, .03003, .01605, - + .00738, .02733, .04721, - + .43587, .16162, .28822, .02943, .01584, - + .00740, .02682, .04618 / - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ - + .42990, .15885, .27776, .02884, .01563, - + .00741, .02631, .04516, - + .42402, .15614, .26781, .02825, .01541, - + .00741, .02580, .04417, - + .41853, .15362, .25874, .02771, .01521, - + .00741, .02533, .04326, - + .41329, .15124, .25039, .02720, .01500, - + .00738, .02489, .04239, - + .40810, .14889, .24228, .02669, .01479, - + .00736, .02445, .04153 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ - + .70452, .30656, .86364, .04136, .00144, - + -.00002, .03276, .08423, - + .69551, .29959, .85536, .04165, .00240, - + -.00002, .03337, .08275, - + .68187, .28961, .83255, .04175, .00366, - + -.00003, .03392, .08043, - + .67183, .28261, .81094, .04161, .00447, - + -.00003, .03412, .07869, - + .66123, .27550, .78507, .04133, .00526, - + -.00003, .03418, .07681, - + .65209, .26955, .76113, .04099, .00591, - + -.00003, .03411, .07516, - + .64334, .26400, .73732, .04058, .00652, - + -.00002, .03396, .07357, - + .63397, .25822, .71088, .04004, .00717, - + -.00002, .03371, .07183 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ - + .62582, .25331, .68768, .03950, .00774, - + -.00001, .03343, .07030, - + .61802, .24869, .66556, .03894, .00830, - + -.00001, .03312, .06883, - + .61181, .24508, .64786, .03846, .00875, - + -.00002, .03283, .06764, - + .59869, .23758, .61089, .03735, .00973, - + -.00001, .03217, .06511, - + .58747, .23133, .57983, .03635, .01056, - + .00021, .03153, .06293, - + .57509, .22455, .54637, .03519, .01142, - + .00092, .03076, .06055, - + .56234, .21774, .51303, .03398, .01218, - + .00176, .02994, .05816, - + .55089, .21176, .48418, .03293, .01271, - + .00236, .02919, .05607 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ - + .53949, .20590, .45650, .03190, .01310, - + .00289, .02844, .05405, - + .53016, .20117, .43460, .03107, .01331, - + .00329, .02782, .05245, - + .51892, .19559, .40930, .03013, .01344, - + .00369, .02707, .05058, - + .50914, .19079, .38812, .02930, .01347, - + .00399, .02642, .04901, - + .50035, .18650, .36973, .02857, .01345, - + .00423, .02584, .04762, - + .48929, .18119, .34754, .02767, .01333, - + .00448, .02511, .04592, - + .47904, .17635, .32795, .02685, .01319, - + .00468, .02443, .04438, - + .46962, .17196, .31069, .02610, .01302, - + .00483, .02380, .04299 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ - + .46037, .16767, .29438, .02536, .01284, - + .00495, .02319, .04165, - + .45140, .16357, .27929, .02466, .01264, - + .00503, .02259, .04036, - + .44309, .15982, .26583, .02403, .01246, - + .00510, .02204, .03918, - + .43535, .15634, .25374, .02342, .01226, - + .00514, .02152, .03810, - + .42772, .15294, .24224, .02283, .01207, - + .00518, .02101, .03705, - + .42030, .14965, .23149, .02227, .01186, - + .00520, .02051, .03605, - + .41336, .14661, .22177, .02174, .01167, - + .00521, .02005, .03513, - + .40685, .14378, .21300, .02124, .01149, - + .00521, .01962, .03427 / - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ - + .40040, .14100, .20456, .02075, .01131, - + .00520, .01920, .03343, - + .39408, .13830, .19657, .02030, .01112, - + .00519, .01879, .03261, - + .38818, .13579, .18931, .01988, .01094, - + .00519, .01841, .03185, - + .38259, .13342, .18268, .01947, .01077, - + .00517, .01804, .03116, - + .37706, .13109, .17627, .01907, .01059, - + .00514, .01767, .03048 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ - + .72093, .29898, .81877, .03295, .00130, - + -.00002, .02690, .07004, - + .70858, .29090, .79835, .03307, .00216, - + -.00003, .02728, .06846, - + .69036, .27950, .76143, .03299, .00324, - + -.00003, .02755, .06606, - + .67726, .27159, .73191, .03277, .00392, - + -.00002, .02758, .06431, - + .66370, .26360, .69958, .03241, .00456, - + .00000, .02749, .06247, - + .65215, .25699, .67135, .03203, .00509, - + .00000, .02733, .06086, - + .64122, .25087, .64437, .03161, .00556, - + -.00001, .02712, .05930, - + .62966, .24452, .61556, .03109, .00606, - + .00001, .02680, .05766 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ - + .61973, .23916, .59095, .03058, .00648, - + .00000, .02649, .05625, - + .61029, .23414, .56788, .03006, .00688, - + -.00001, .02616, .05489, - + .60285, .23023, .54978, .02962, .00720, - + -.00002, .02588, .05380, - + .58724, .22217, .51269, .02866, .00789, - + -.00002, .02523, .05151, - + .57403, .21550, .48227, .02779, .00846, - + .00017, .02461, .04958, - + .55957, .20835, .45012, .02680, .00904, - + .00071, .02390, .04749, - + .54485, .20119, .41870, .02578, .00954, - + .00133, .02316, .04538, - + .53178, .19493, .39196, .02489, .00987, - + .00179, .02248, .04357 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ - + .51887, .18885, .36667, .02402, .01010, - + .00218, .02180, .04183, - + .50839, .18394, .34691, .02331, .01020, - + .00246, .02126, .04048, - + .49582, .17821, .32432, .02250, .01025, - + .00274, .02061, .03886, - + .48497, .17329, .30563, .02182, .01022, - + .00296, .02004, .03751, - + .47527, .16892, .28956, .02122, .01015, - + .00313, .01954, .03634, - + .46314, .16353, .27035, .02048, .01002, - + .00330, .01892, .03490, - + .45198, .15865, .25358, .01979, .00987, - + .00343, .01832, .03361, - + .44178, .15424, .23892, .01917, .00971, - + .00352, .01778, .03245 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ - + .43177, .14997, .22516, .01860, .00954, - + .00359, .01727, .03131, - + .42217, .14590, .21257, .01802, .00936, - + .00365, .01676, .03024, - + .41334, .14217, .20142, .01748, .00920, - + .00369, .01630, .02927, - + .40512, .13873, .19146, .01699, .00903, - + .00371, .01588, .02838, - + .39704, .13538, .18205, .01653, .00885, - + .00372, .01546, .02752, - + .38921, .13218, .17331, .01609, .00868, - + .00372, .01506, .02668, - + .38192, .12920, .16545, .01567, .00851, - + .00372, .01468, .02593, - + .37513, .12644, .15836, .01528, .00835, - + .00371, .01433, .02525 / - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ - + .36842, .12372, .15159, .01489, .00819, - + .00370, .01398, .02458, - + .36186, .12111, .14522, .01452, .00804, - + .00367, .01365, .02392, - + .35575, .11869, .13945, .01418, .00790, - + .00365, .01333, .02332, - + .35000, .11640, .13422, .01386, .00776, - + .00363, .01305, .02275, - + .34433, .11415, .12916, .01355, .00762, - + .00361, .01276, .02220 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ - + .72700, .28729, .76735, .02589, .00116, - + .00005, .02177, .05727, - + .71151, .27838, .73775, .02594, .00191, - + .00004, .02199, .05571, - + .68904, .26596, .69074, .02579, .00282, - + .00004, .02207, .05340, - + .67315, .25740, .65591, .02554, .00338, - + .00004, .02200, .05173, - + .65690, .24881, .61958, .02518, .00390, - + .00004, .02183, .04999, - + .64322, .24172, .58894, .02481, .00430, - + .00004, .02163, .04852, - + .63040, .23520, .56041, .02441, .00466, - + .00005, .02137, .04713, - + .61693, .22852, .53072, .02394, .00502, - + .00004, .02106, .04563 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ - + .60544, .22290, .50584, .02349, .00533, - + .00003, .02074, .04437, - + .59460, .21765, .48284, .02304, .00563, - + .00003, .02042, .04316, - + .58611, .21357, .46508, .02267, .00586, - + .00002, .02015, .04221, - + .56839, .20523, .42922, .02185, .00633, - + .00003, .01955, .04022, - + .55357, .19833, .40033, .02111, .00671, - + .00016, .01900, .03856, - + .53751, .19096, .37028, .02028, .00709, - + .00056, .01838, .03678, - + .52128, .18365, .34139, .01943, .00740, - + .00101, .01771, .03502, - + .50694, .17732, .31713, .01869, .00760, - + .00134, .01712, .03350 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ - + .49288, .17118, .29445, .01798, .00772, - + .00164, .01656, .03202, - + .48149, .16628, .27693, .01742, .00776, - + .00183, .01610, .03085, - + .46796, .16055, .25712, .01677, .00775, - + .00203, .01554, .02952, - + .45636, .15566, .24088, .01620, .00769, - + .00217, .01506, .02841, - + .44605, .15134, .22700, .01570, .00761, - + .00228, .01463, .02743, - + .43319, .14602, .21059, .01511, .00749, - + .00239, .01411, .02623, - + .42144, .14121, .19640, .01455, .00734, - + .00248, .01363, .02518, - + .41076, .13688, .18410, .01404, .00719, - + .00254, .01319, .02424 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ - + .40033, .13273, .17268, .01357, .00704, - + .00258, .01276, .02331, - + .39034, .12878, .16226, .01313, .00689, - + .00261, .01234, .02244, - + .38118, .12517, .15307, .01273, .00675, - + .00264, .01197, .02165, - + .37269, .12187, .14493, .01235, .00660, - + .00264, .01163, .02094, - + .36440, .11864, .13728, .01197, .00645, - + .00264, .01129, .02026, - + .35646, .11554, .13020, .01159, .00631, - + .00265, .01096, .01962, - + .34905, .11269, .12388, .01125, .00618, - + .00264, .01066, .01902, - + .34214, .11008, .11823, .01096, .00605, - + .00263, .01038, .01845 / - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ - + .33532, .10752, .11283, .01068, .00593, - + .00261, .01011, .01790, - + .32869, .10504, .10777, .01040, .00580, - + .00258, .00985, .01737, - + .32253, .10274, .10319, .01014, .00568, - + .00256, .00961, .01689, - + .31677, .10058, .09908, .00989, .00557, - + .00254, .00938, .01646, - + .31110, .09846, .09511, .00964, .00546, - + .00253, .00916, .01604 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ - + .72321, .27273, .71144, .02031, .00092, - + -.00016, .01719, .04602, - + .70494, .26321, .67523, .02028, .00156, - + -.00016, .01732, .04458, - + .67881, .25003, .62145, .02007, .00234, - + -.00015, .01733, .04246, - + .66051, .24103, .58345, .01982, .00280, - + -.00014, .01722, .04095, - + .64195, .23208, .54508, .01947, .00322, - + -.00015, .01704, .03940, - + .62647, .22473, .51352, .01912, .00354, - + -.00015, .01682, .03810, - + .61203, .21800, .48463, .01877, .00382, - + -.00013, .01657, .03688, - + .59706, .21109, .45524, .01832, .00409, - + -.00015, .01627, .03562 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ - + .58433, .20533, .43093, .01794, .00431, - + -.00014, .01599, .03451, - + .57235, .19999, .40870, .01757, .00452, - + -.00012, .01571, .03346, - + .56301, .19585, .39177, .01726, .00467, - + -.00012, .01547, .03266, - + .54370, .18739, .35800, .01655, .00499, - + -.00011, .01494, .03101, - + .52764, .18048, .33120, .01594, .00525, - + .00000, .01447, .02961, - + .51034, .17312, .30368, .01526, .00550, - + .00029, .01395, .02811, - + .49295, .16586, .27760, .01459, .00569, - + .00064, .01340, .02663, - + .47771, .15958, .25599, .01399, .00580, - + .00091, .01290, .02539 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ - + .46288, .15352, .23599, .01341, .00585, - + .00113, .01242, .02421, - + .45092, .14872, .22068, .01294, .00585, - + .00127, .01205, .02326, - + .43684, .14311, .20355, .01241, .00582, - + .00142, .01159, .02216, - + .42477, .13835, .18963, .01197, .00575, - + .00153, .01119, .02125, - + .41405, .13415, .17782, .01158, .00567, - + .00161, .01084, .02047, - + .40082, .12903, .16402, .01108, .00555, - + .00169, .01041, .01952, - + .38877, .12442, .15212, .01064, .00542, - + .00175, .01003, .01867, - + .37785, .12028, .14187, .01025, .00530, - + .00180, .00968, .01790 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ - + .36725, .11632, .13242, .00988, .00516, - + .00182, .00934, .01716, - + .35715, .11255, .12387, .00953, .00504, - + .00184, .00900, .01648, - + .34790, .10912, .11639, .00921, .00492, - + .00186, .00870, .01586, - + .33938, .10599, .10980, .00892, .00479, - + .00186, .00843, .01531, - + .33106, .10297, .10363, .00864, .00467, - + .00186, .00817, .01477, - + .32305, .10009, .09795, .00837, .00456, - + .00186, .00792, .01424, - + .31566, .09742, .09289, .00811, .00446, - + .00185, .00769, .01376, - + .30884, .09496, .08838, .00786, .00436, - + .00183, .00747, .01334 / - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ - + .30213, .09256, .08410, .00763, .00426, - + .00182, .00726, .01293, - + .29560, .09025, .08012, .00741, .00416, - + .00180, .00705, .01253, - + .28955, .08812, .07653, .00722, .00406, - + .00179, .00686, .01217, - + .28388, .08613, .07330, .00702, .00398, - + .00177, .00669, .01182, - + .27830, .08419, .07020, .00683, .00390, - + .00176, .00652, .01147 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ - + .71114, .25538, .65241, .01550, .00083, - + -.00005, .01356, .03637, - + .69038, .24555, .61183, .01544, .00136, - + -.00005, .01361, .03513, - + .66104, .23197, .55414, .01524, .00199, - + -.00003, .01354, .03328, - + .64069, .22279, .51471, .01502, .00237, - + -.00003, .01341, .03196, - + .62020, .21371, .47584, .01473, .00270, - + -.00002, .01320, .03061, - + .60322, .20630, .44448, .01445, .00294, - + -.00002, .01299, .02950, - + .58748, .19954, .41624, .01415, .00314, - + -.00002, .01276, .02847, - + .57126, .19262, .38791, .01378, .00333, - + -.00003, .01250, .02740 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ - + .55756, .18687, .36483, .01346, .00349, - + -.00003, .01225, .02648, - + .54474, .18154, .34394, .01315, .00364, - + -.00003, .01200, .02561, - + .53478, .17744, .32814, .01289, .00374, - + -.00002, .01180, .02494, - + .51431, .16908, .29696, .01232, .00395, - + -.00002, .01135, .02356, - + .49734, .16228, .27259, .01184, .00411, - + .00006, .01095, .02243, - + .47917, .15511, .24789, .01131, .00425, - + .00028, .01051, .02122, - + .46107, .14804, .22474, .01077, .00437, - + .00053, .01006, .02003, - + .44530, .14196, .20575, .01030, .00442, - + .00071, .00965, .01902 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ - + .43000, .13614, .18838, .00985, .00443, - + .00087, .00926, .01805, - + .41774, .13151, .17520, .00948, .00441, - + .00097, .00896, .01731, - + .40336, .12615, .16057, .00906, .00436, - + .00108, .00858, .01645, - + .39109, .12161, .14878, .00872, .00429, - + .00115, .00826, .01572, - + .38024, .11763, .13885, .00843, .00422, - + .00121, .00798, .01508, - + .36689, .11279, .12732, .00804, .00411, - + .00125, .00765, .01433, - + .35482, .10844, .11746, .00769, .00399, - + .00129, .00734, .01366, - + .34392, .10455, .10903, .00739, .00389, - + .00131, .00706, .01307 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ - + .33336, .10083, .10130, .00711, .00378, - + .00132, .00678, .01251, - + .32335, .09733, .09435, .00684, .00367, - + .00134, .00653, .01197, - + .31423, .09415, .08829, .00659, .00358, - + .00134, .00630, .01147, - + .30583, .09125, .08300, .00636, .00348, - + .00134, .00608, .01104, - + .29767, .08844, .07806, .00614, .00339, - + .00133, .00588, .01063, - + .28985, .08577, .07354, .00593, .00330, - + .00132, .00568, .01024, - + .28264, .08332, .06953, .00573, .00321, - + .00131, .00550, .00988, - + .27600, .08106, .06598, .00555, .00313, - + .00130, .00534, .00955 / - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ - + .26947, .07887, .06262, .00538, .00305, - + .00128, .00518, .00922, - + .26315, .07676, .05950, .00522, .00298, - + .00127, .00502, .00892, - + .25730, .07482, .05669, .00507, .00290, - + .00126, .00487, .00865, - + .25184, .07301, .05418, .00493, .00283, - + .00125, .00474, .00840, - + .24647, .07123, .05177, .00480, .00277, - + .00123, .00461, .00815 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ - + .69119, .23652, .59214, .01170, .00069, - + -.00004, .01046, .02832, - + .66842, .22654, .54912, .01165, .00114, - + -.00006, .01049, .02722, - + .63645, .21295, .48986, .01149, .00164, - + -.00004, .01040, .02564, - + .61449, .20376, .45040, .01130, .00193, - + -.00003, .01027, .02454, - + .59254, .19471, .41224, .01105, .00218, - + -.00003, .01008, .02343, - + .57446, .18737, .38194, .01080, .00237, - + -.00004, .00989, .02252, - + .55781, .18068, .35502, .01055, .00253, - + -.00003, .00970, .02166, - + .54070, .17391, .32839, .01027, .00267, - + -.00004, .00948, .02073 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ - + .52632, .16828, .30688, .01002, .00278, - + -.00003, .00926, .01999, - + .51291, .16308, .28758, .00977, .00289, - + -.00002, .00904, .01930, - + .50257, .15908, .27314, .00956, .00295, - + -.00002, .00887, .01877, - + .48129, .15102, .24494, .00912, .00307, - + -.00003, .00850, .01765, - + .46384, .14447, .22316, .00874, .00318, - + .00002, .00818, .01674, - + .44524, .13757, .20130, .00831, .00326, - + .00019, .00782, .01578, - + .42681, .13082, .18103, .00789, .00332, - + .00039, .00746, .01484, - + .41083, .12504, .16459, .00752, .00334, - + .00052, .00714, .01403 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ - + .39539, .11950, .14969, .00717, .00332, - + .00063, .00683, .01330, - + .38305, .11515, .13850, .00691, .00329, - + .00071, .00657, .01272, - + .36866, .11010, .12615, .00659, .00322, - + .00078, .00629, .01203, - + .35646, .10586, .11627, .00631, .00316, - + .00083, .00604, .01147, - + .34571, .10215, .10801, .00607, .00310, - + .00087, .00581, .01100, - + .33252, .09764, .09845, .00577, .00301, - + .00089, .00554, .01042, - + .32067, .09361, .09037, .00550, .00292, - + .00092, .00530, .00989, - + .31000, .09001, .08351, .00528, .00284, - + .00094, .00508, .00942 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ - + .29966, .08659, .07727, .00509, .00275, - + .00095, .00488, .00897, - + .28991, .08337, .07167, .00488, .00266, - + .00094, .00468, .00857, - + .28106, .08046, .06681, .00468, .00258, - + .00094, .00449, .00821, - + .27298, .07781, .06259, .00450, .00251, - + .00094, .00433, .00788, - + .26513, .07526, .05867, .00433, .00243, - + .00093, .00418, .00756, - + .25760, .07283, .05509, .00417, .00236, - + .00092, .00403, .00728, - + .25067, .07060, .05194, .00403, .00229, - + .00091, .00389, .00701, - + .24429, .06857, .04915, .00392, .00223, - + .00091, .00377, .00674 / - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ - + .23805, .06659, .04652, .00380, .00217, - + .00090, .00364, .00650, - + .23204, .06469, .04410, .00367, .00211, - + .00089, .00353, .00628, - + .22650, .06294, .04193, .00355, .00206, - + .00088, .00342, .00609, - + .22133, .06132, .03998, .00344, .00201, - + .00087, .00332, .00590, - + .21625, .05973, .03812, .00334, .00195, - + .00086, .00323, .00571 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ - + .66447, .21662, .53184, .00869, .00060, - + -.00001, .00799, .02163, - + .64010, .20675, .48800, .00865, .00094, - + -.00001, .00800, .02074, - + .60625, .19327, .42910, .00847, .00135, - + -.00001, .00789, .01948, - + .58313, .18427, .39071, .00832, .00158, - + .00000, .00776, .01859, - + .56015, .17544, .35417, .00813, .00177, - + .00000, .00761, .01765, - + .54134, .16832, .32557, .00793, .00191, - + .00001, .00746, .01688, - + .52409, .16185, .30045, .00772, .00202, - + .00001, .00728, .01622, - + .50642, .15530, .27585, .00751, .00213, - + .00000, .00708, .01549 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ - + .49162, .14992, .25625, .00733, .00220, - + -.00001, .00690, .01489, - + .47789, .14496, .23879, .00715, .00226, - + .00000, .00673, .01434, - + .46734, .14116, .22578, .00699, .00229, - + .00000, .00659, .01391, - + .44581, .13345, .20063, .00664, .00239, - + .00000, .00630, .01303, - + .42817, .12723, .18145, .00636, .00244, - + .00004, .00604, .01232, - + .40949, .12072, .16240, .00602, .00247, - + .00017, .00575, .01159, - + .39108, .11438, .14494, .00568, .00250, - + .00031, .00546, .01087, - + .37517, .10899, .13090, .00541, .00249, - + .00040, .00522, .01023 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ - + .35987, .10385, .11829, .00516, .00247, - + .00048, .00498, .00964, - + .34775, .09979, .10884, .00496, .00244, - + .00054, .00479, .00918, - + .33363, .09512, .09855, .00470, .00238, - + .00058, .00455, .00869, - + .32170, .09121, .09037, .00450, .00232, - + .00062, .00435, .00827, - + .31123, .08779, .08355, .00431, .00227, - + .00064, .00419, .00790, - + .29843, .08368, .07575, .00408, .00219, - + .00066, .00398, .00745, - + .28692, .08000, .06918, .00390, .00212, - + .00067, .00380, .00705, - + .27661, .07673, .06364, .00374, .00205, - + .00068, .00363, .00671 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ - + .26670, .07362, .05860, .00358, .00198, - + .00068, .00346, .00639, - + .25740, .07070, .05415, .00342, .00191, - + .00068, .00331, .00609, - + .24896, .06807, .05031, .00328, .00185, - + .00067, .00318, .00581, - + .24126, .06570, .04698, .00315, .00179, - + .00067, .00306, .00555, - + .23379, .06341, .04389, .00303, .00173, - + .00066, .00294, .00532, - + .22668, .06123, .04109, .00292, .00168, - + .00066, .00283, .00510, - + .22014, .05924, .03863, .00283, .00163, - + .00065, .00273, .00490, - + .21415, .05743, .03646, .00273, .00158, - + .00063, .00263, .00471 / - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ - + .20830, .05566, .03442, .00263, .00154, - + .00062, .00254, .00454, - + .20269, .05398, .03255, .00252, .00149, - + .00061, .00246, .00438, - + .19753, .05244, .03088, .00243, .00144, - + .00061, .00238, .00423, - + .19266, .05100, .02939, .00237, .00140, - + .00060, .00231, .00409, - + .18791, .04961, .02796, .00231, .00137, - + .00060, .00224, .00395 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ - + .63204, .19617, .47273, .00627, .00052, - + .00006, .00603, .01630, - + .60655, .18656, .42936, .00627, .00080, - + .00006, .00602, .01554, - + .57137, .17355, .37232, .00616, .00112, - + .00007, .00593, .01450, - + .54752, .16487, .33584, .00605, .00129, - + .00006, .00582, .01378, - + .52397, .15640, .30161, .00589, .00143, - + .00006, .00568, .01307, - + .50479, .14959, .27513, .00573, .00154, - + .00006, .00554, .01248, - + .48722, .14346, .25212, .00558, .00160, - + .00005, .00539, .01196, - + .46935, .13726, .22988, .00542, .00167, - + .00005, .00524, .01138 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ - + .45449, .13216, .21227, .00528, .00172, - + .00004, .00510, .01090, - + .44073, .12747, .19669, .00513, .00176, - + .00004, .00496, .01046, - + .43015, .12389, .18520, .00501, .00179, - + .00005, .00485, .01014, - + .40870, .11667, .16311, .00473, .00183, - + .00005, .00462, .00947, - + .39122, .11089, .14644, .00451, .00186, - + .00007, .00441, .00894, - + .37276, .10485, .13005, .00430, .00187, - + .00016, .00419, .00836, - + .35464, .09899, .11517, .00407, .00188, - + .00026, .00398, .00779, - + .33912, .09400, .10334, .00385, .00186, - + .00033, .00378, .00734 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ - + .32428, .08929, .09278, .00363, .00183, - + .00037, .00359, .00691, - + .31248, .08558, .08495, .00349, .00179, - + .00041, .00344, .00656, - + .29887, .08133, .07646, .00329, .00175, - + .00045, .00327, .00617, - + .28738, .07778, .06976, .00315, .00170, - + .00046, .00312, .00585, - + .27730, .07469, .06422, .00304, .00165, - + .00047, .00298, .00558, - + .26509, .07096, .05789, .00286, .00160, - + .00049, .00282, .00526, - + .25416, .06765, .05262, .00272, .00153, - + .00049, .00268, .00497, - + .24439, .06473, .04820, .00260, .00147, - + .00049, .00256, .00470 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ - + .23504, .06195, .04421, .00248, .00142, - + .00050, .00245, .00445, - + .22626, .05936, .04069, .00237, .00137, - + .00049, .00234, .00422, - + .21832, .05703, .03765, .00227, .00132, - + .00048, .00224, .00402, - + .21111, .05491, .03505, .00216, .00128, - + .00048, .00214, .00387, - + .20414, .05288, .03264, .00207, .00123, - + .00048, .00205, .00370, - + .19749, .05097, .03047, .00201, .00119, - + .00047, .00198, .00351, - + .19142, .04923, .02857, .00194, .00115, - + .00046, .00190, .00336, - + .18587, .04763, .02689, .00186, .00111, - + .00045, .00183, .00325 / - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ - + .18046, .04608, .02533, .00179, .00107, - + .00044, .00176, .00313, - + .17526, .04461, .02390, .00173, .00104, - + .00043, .00170, .00300, - + .17047, .04326, .02262, .00168, .00101, - + .00043, .00165, .00288, - + .16603, .04201, .02149, .00162, .00098, - + .00042, .00159, .00279, - + .16168, .04078, .02040, .00157, .00095, - + .00041, .00154, .00270 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ - + .59482, .17589, .41588, .00456, .00040, - + .00002, .00441, .01203, - + .56870, .16668, .37405, .00454, .00063, - + .00001, .00440, .01145, - + .53287, .15429, .32002, .00447, .00087, - + .00003, .00432, .01063, - + .50876, .14606, .28603, .00437, .00099, - + .00002, .00423, .01008, - + .48504, .13805, .25457, .00425, .00109, - + .00002, .00412, .00953, - + .46582, .13164, .23052, .00414, .00116, - + .00002, .00402, .00908, - + .44831, .12589, .20982, .00403, .00123, - + .00002, .00391, .00864, - + .43058, .12009, .18996, .00389, .00127, - + .00002, .00378, .00824 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ - + .41587, .11534, .17438, .00379, .00130, - + .00002, .00368, .00788, - + .40229, .11098, .16069, .00369, .00132, - + .00002, .00358, .00754, - + .39190, .10768, .15065, .00358, .00134, - + .00001, .00350, .00729, - + .37085, .10103, .13156, .00340, .00136, - + .00002, .00331, .00677, - + .35380, .09571, .11729, .00325, .00137, - + .00004, .00315, .00635, - + .33588, .09018, .10338, .00306, .00137, - + .00010, .00298, .00593, - + .31842, .08483, .09088, .00286, .00136, - + .00017, .00282, .00555, - + .30349, .08031, .08100, .00271, .00134, - + .00021, .00267, .00519 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ - + .28925, .07604, .07226, .00258, .00132, - + .00025, .00253, .00485, - + .27805, .07269, .06584, .00245, .00129, - + .00028, .00242, .00461, - + .26509, .06886, .05891, .00232, .00125, - + .00030, .00229, .00433, - + .25421, .06569, .05348, .00220, .00121, - + .00031, .00218, .00409, - + .24471, .06294, .04902, .00210, .00117, - + .00033, .00208, .00388, - + .23317, .05962, .04397, .00200, .00112, - + .00033, .00197, .00365, - + .22292, .05668, .03978, .00190, .00108, - + .00034, .00187, .00344, - + .21381, .05408, .03628, .00180, .00104, - + .00034, .00178, .00326 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ - + .20512, .05163, .03314, .00170, .00100, - + .00033, .00169, .00308, - + .19697, .04935, .03039, .00163, .00096, - + .00034, .00161, .00290, - + .18961, .04731, .02803, .00156, .00092, - + .00034, .00154, .00274, - + .18293, .04547, .02600, .00150, .00089, - + .00033, .00147, .00263, - + .17650, .04369, .02414, .00144, .00086, - + .00033, .00141, .00252, - + .17043, .04202, .02247, .00138, .00082, - + .00032, .00134, .00241, - + .16487, .04050, .02101, .00132, .00079, - + .00032, .00129, .00230, - + .15977, .03912, .01974, .00128, .00077, - + .00031, .00124, .00221 / - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ - + .15481, .03778, .01855, .00124, .00074, - + .00030, .00120, .00211, - + .15009, .03651, .01746, .00119, .00071, - + .00030, .00115, .00202, - + .14575, .03535, .01648, .00115, .00069, - + .00029, .00111, .00194, - + .14172, .03427, .01563, .00111, .00067, - + .00028, .00107, .00187, - + .13780, .03322, .01482, .00107, .00065, - + .00028, .00103, .00181 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ - + .55391, .15596, .36194, .00320, .00029, - + .00003, .00319, .00874, - + .52759, .14730, .32248, .00322, .00048, - + .00003, .00318, .00828, - + .49177, .13566, .27234, .00318, .00066, - + .00002, .00311, .00764, - + .46780, .12797, .24126, .00312, .00075, - + .00003, .00303, .00722, - + .44435, .12055, .21283, .00303, .00083, - + .00004, .00295, .00681, - + .42541, .11462, .19132, .00295, .00087, - + .00003, .00287, .00647, - + .40823, .10929, .17298, .00288, .00091, - + .00002, .00278, .00616, - + .39092, .10397, .15553, .00276, .00093, - + .00001, .00267, .00587 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ - + .37661, .09961, .14195, .00267, .00095, - + .00002, .00259, .00560, - + .36344, .09562, .13012, .00259, .00096, - + .00003, .00252, .00534, - + .35336, .09261, .12150, .00254, .00097, - + .00002, .00245, .00515, - + .33305, .08655, .10520, .00242, .00098, - + .00002, .00232, .00478, - + .31672, .08173, .09313, .00229, .00098, - + .00003, .00220, .00447, - + .29960, .07675, .08149, .00217, .00098, - + .00008, .00208, .00415, - + .28297, .07195, .07110, .00204, .00097, - + .00013, .00196, .00386, - + .26883, .06791, .06296, .00193, .00094, - + .00015, .00185, .00360 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ - + .25538, .06411, .05583, .00183, .00092, - + .00017, .00174, .00336, - + .24485, .06114, .05062, .00173, .00090, - + .00019, .00166, .00319, - + .23269, .05776, .04504, .00165, .00087, - + .00021, .00156, .00297, - + .22254, .05494, .04070, .00156, .00083, - + .00022, .00149, .00280, - + .21373, .05250, .03714, .00148, .00080, - + .00022, .00143, .00266, - + .20305, .04959, .03315, .00140, .00077, - + .00022, .00133, .00249, - + .19355, .04702, .02985, .00133, .00073, - + .00022, .00126, .00234, - + .18514, .04475, .02711, .00127, .00070, - + .00022, .00119, .00221 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ - + .17718, .04261, .02466, .00119, .00067, - + .00022, .00114, .00210, - + .16972, .04063, .02253, .00114, .00064, - + .00021, .00108, .00198, - + .16300, .03886, .02071, .00109, .00061, - + .00021, .00102, .00188, - + .15693, .03727, .01915, .00104, .00059, - + .00021, .00097, .00178, - + .15110, .03574, .01773, .00099, .00057, - + .00021, .00093, .00169, - + .14559, .03431, .01646, .00096, .00055, - + .00021, .00089, .00160, - + .14056, .03301, .01535, .00092, .00053, - + .00020, .00086, .00153, - + .13598, .03182, .01439, .00088, .00051, - + .00019, .00082, .00147 / - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ - + .13153, .03068, .01349, .00084, .00050, - + .00019, .00079, .00141, - + .12728, .02960, .01267, .00081, .00048, - + .00019, .00076, .00135, - + .12338, .02861, .01194, .00079, .00046, - + .00018, .00073, .00129, - + .11977, .02769, .01130, .00076, .00044, - + .00018, .00070, .00125, - + .11626, .02680, .01070, .00074, .00042, - + .00017, .00067, .00121 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ - + .51027, .13668, .31134, .00220, .00026, - + .00007, .00230, .00620, - + .48425, .12861, .27480, .00221, .00039, - + .00004, .00228, .00586, - + .44903, .11785, .22912, .00216, .00051, - + .00005, .00222, .00541, - + .42558, .11079, .20116, .00212, .00058, - + .00005, .00216, .00509, - + .40271, .10399, .17588, .00207, .00064, - + .00005, .00210, .00477, - + .38432, .09857, .15696, .00202, .00068, - + .00004, .00204, .00452, - + .36774, .09373, .14095, .00194, .00070, - + .00004, .00198, .00429, - + .35104, .08891, .12586, .00191, .00072, - + .00004, .00192, .00403 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ - + .33733, .08496, .11422, .00184, .00073, - + .00004, .00185, .00385, - + .32474, .08136, .10412, .00177, .00073, - + .00004, .00178, .00369, - + .31513, .07866, .09682, .00172, .00072, - + .00004, .00173, .00356, - + .29583, .07324, .08312, .00165, .00073, - + .00003, .00163, .00328, - + .28041, .06893, .07307, .00154, .00074, - + .00004, .00155, .00307, - + .26432, .06448, .06344, .00143, .00072, - + .00007, .00146, .00285, - + .24871, .06024, .05495, .00135, .00070, - + .00011, .00137, .00263, - + .23548, .05668, .04836, .00127, .00069, - + .00012, .00129, .00245 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ - + .22298, .05331, .04261, .00120, .00066, - + .00013, .00121, .00230, - + .21318, .05072, .03843, .00115, .00065, - + .00014, .00115, .00216, - + .20200, .04775, .03400, .00107, .00062, - + .00015, .00108, .00202, - + .19268, .04530, .03057, .00101, .00059, - + .00016, .00103, .00189, - + .18458, .04319, .02778, .00096, .00058, - + .00017, .00099, .00177, - + .17482, .04068, .02467, .00090, .00056, - + .00016, .00093, .00166, - + .16616, .03846, .02210, .00085, .00053, - + .00017, .00087, .00158, - + .15851, .03651, .01999, .00081, .00050, - + .00017, .00082, .00150 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ - + .15130, .03468, .01813, .00077, .00048, - + .00016, .00078, .00140, - + .14455, .03298, .01649, .00073, .00046, - + .00017, .00074, .00131, - + .13849, .03147, .01510, .00070, .00044, - + .00017, .00070, .00124, - + .13306, .03011, .01393, .00066, .00042, - + .00016, .00066, .00117, - + .12784, .02881, .01286, .00063, .00040, - + .00015, .00063, .00112, - + .12289, .02760, .01191, .00061, .00038, - + .00015, .00060, .00106, - + .11841, .02650, .01108, .00059, .00036, - + .00015, .00058, .00102, - + .11435, .02550, .01036, .00055, .00035, - + .00015, .00056, .00098 / - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ - + .11041, .02454, .00968, .00053, .00034, - + .00014, .00053, .00093, - + .10664, .02363, .00908, .00051, .00033, - + .00014, .00051, .00089, - + .10319, .02280, .00854, .00050, .00032, - + .00014, .00049, .00084, - + .10002, .02204, .00807, .00048, .00031, - + .00014, .00047, .00081, - + .09693, .02130, .00762, .00046, .00030, - + .00013, .00045, .00078 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ - + .46496, .11848, .26469, .00148, .00021, - + .00005, .00160, .00430, - + .43964, .11105, .23150, .00146, .00029, - + .00005, .00160, .00407, - + .40547, .10122, .19047, .00143, .00039, - + .00003, .00156, .00374, - + .38286, .09481, .16576, .00139, .00045, - + .00004, .00152, .00352, - + .36091, .08866, .14365, .00136, .00049, - + .00004, .00148, .00328, - + .34337, .08379, .12727, .00131, .00051, - + .00003, .00143, .00310, - + .32764, .07942, .11351, .00125, .00053, - + .00003, .00139, .00295, - + .31183, .07510, .10068, .00122, .00054, - + .00003, .00134, .00278 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ - + .29885, .07159, .09084, .00117, .00055, - + .00003, .00129, .00264, - + .28698, .06841, .08238, .00113, .00056, - + .00003, .00125, .00251, - + .27796, .06600, .07628, .00109, .00056, - + .00003, .00122, .00242, - + .25989, .06121, .06491, .00104, .00055, - + .00004, .00114, .00222, - + .24546, .05742, .05665, .00099, .00054, - + .00004, .00109, .00205, - + .23049, .05353, .04883, .00094, .00053, - + .00005, .00102, .00190, - + .21610, .04981, .04198, .00086, .00052, - + .00008, .00096, .00176, - + .20395, .04669, .03671, .00079, .00050, - + .00010, .00090, .00164 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ - + .19247, .04380, .03215, .00076, .00049, - + .00010, .00083, .00152, - + .18353, .04155, .02885, .00072, .00047, - + .00012, .00079, .00144, - + .17333, .03901, .02537, .00068, .00045, - + .00012, .00075, .00133, - + .16486, .03690, .02270, .00064, .00043, - + .00012, .00071, .00125, - + .15753, .03509, .02054, .00060, .00041, - + .00013, .00067, .00119, - + .14876, .03295, .01814, .00055, .00039, - + .00013, .00063, .00109, - + .14098, .03106, .01618, .00053, .00037, - + .00012, .00059, .00102, - + .13413, .02941, .01458, .00050, .00035, - + .00012, .00056, .00096 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ - + .12767, .02787, .01316, .00047, .00034, - + .00012, .00053, .00090, - + .12168, .02644, .01193, .00045, .00032, - + .00012, .00050, .00085, - + .11632, .02516, .01089, .00042, .00031, - + .00012, .00047, .00080, - + .11149, .02402, .01002, .00040, .00029, - + .00012, .00045, .00076, - + .10688, .02294, .00922, .00038, .00028, - + .00011, .00043, .00072, - + .10254, .02193, .00851, .00037, .00027, - + .00011, .00041, .00068, - + .09860, .02101, .00790, .00035, .00026, - + .00011, .00039, .00065, - + .09501, .02018, .00737, .00035, .00025, - + .00011, .00037, .00063 / - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ - + .09155, .01938, .00688, .00033, .00024, - + .00011, .00036, .00060, - + .08828, .01863, .00643, .00031, .00023, - + .00011, .00034, .00057, - + .08529, .01794, .00604, .00029, .00022, - + .00010, .00033, .00055, - + .08252, .01732, .00570, .00028, .00021, - + .00010, .00032, .00052, - + .07984, .01671, .00537, .00028, .00021, - + .00010, .00030, .00050 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ - + .41895, .10160, .22254, .00108, .00010, - + -.00002, .00104, .00292, - + .39464, .09490, .19289, .00108, .00018, - + -.00002, .00103, .00276, - + .36210, .08608, .15677, .00103, .00025, - + -.00002, .00101, .00253, - + .34068, .08034, .13528, .00100, .00028, - + -.00001, .00099, .00236, - + .31998, .07486, .11625, .00097, .00031, - + -.00002, .00095, .00220, - + .30345, .07054, .10227, .00096, .00033, - + -.00002, .00092, .00208, - + .28866, .06669, .09062, .00093, .00034, - + .00000, .00090, .00195, - + .27390, .06287, .07986, .00090, .00034, - + -.00001, .00086, .00186 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ - + .26183, .05980, .07167, .00086, .00034, - + -.00001, .00082, .00176, - + .25082, .05701, .06466, .00083, .00034, - + -.00001, .00079, .00167, - + .24248, .05490, .05963, .00082, .00035, - + -.00002, .00077, .00160, - + .22580, .05072, .05033, .00078, .00034, - + -.00001, .00073, .00146, - + .21258, .04744, .04363, .00073, .00034, - + -.00001, .00068, .00137, - + .19891, .04407, .03733, .00067, .00033, - + .00001, .00064, .00126, - + .18582, .04087, .03187, .00062, .00031, - + .00002, .00059, .00116, - + .17480, .03820, .02769, .00058, .00030, - + .00003, .00055, .00108 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ - + .16444, .03571, .02411, .00054, .00029, - + .00005, .00052, .00100, - + .15642, .03380, .02154, .00051, .00028, - + .00005, .00050, .00093, - + .14724, .03163, .01884, .00049, .00027, - + .00005, .00046, .00086, - + .13966, .02985, .01678, .00047, .00026, - + .00005, .00044, .00081, - + .13313, .02833, .01512, .00044, .00024, - + .00006, .00041, .00076, - + .12530, .02652, .01329, .00043, .00023, - + .00006, .00039, .00070, - + .11843, .02493, .01181, .00039, .00022, - + .00006, .00036, .00066, - + .11240, .02354, .01060, .00036, .00021, - + .00006, .00033, .00062 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ - + .10671, .02225, .00953, .00034, .00019, - + .00006, .00031, .00059, - + .10144, .02105, .00861, .00033, .00018, - + .00006, .00030, .00055, - + .09674, .01999, .00784, .00032, .00018, - + .00006, .00029, .00051, - + .09252, .01906, .00718, .00031, .00017, - + .00006, .00027, .00048, - + .08850, .01816, .00659, .00029, .00016, - + .00006, .00025, .00045, - + .08474, .01733, .00607, .00027, .00015, - + .00006, .00024, .00043, - + .08133, .01657, .00563, .00026, .00015, - + .00006, .00023, .00041, - + .07824, .01589, .00524, .00025, .00014, - + .00006, .00022, .00039 / - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ - + .07525, .01523, .00488, .00024, .00013, - + .00005, .00021, .00037, - + .07242, .01461, .00455, .00023, .00013, - + .00005, .00020, .00036, - + .06984, .01405, .00426, .00023, .00013, - + .00005, .00019, .00034, - + .06747, .01354, .00402, .00021, .00012, - + .00005, .00018, .00033, - + .06517, .01304, .00378, .00020, .00012, - + .00005, .00017, .00032 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ - + .37284, .08573, .18425, .00063, .00011, - + .00004, .00072, .00195, - + .34987, .07982, .15827, .00064, .00015, - + .00004, .00071, .00181, - + .31927, .07202, .12703, .00062, .00020, - + .00004, .00070, .00165, - + .29922, .06699, .10867, .00062, .00022, - + .00004, .00069, .00153, - + .27997, .06220, .09256, .00060, .00024, - + .00004, .00067, .00143, - + .26469, .05843, .08085, .00058, .00024, - + .00005, .00064, .00135, - + .25105, .05506, .07118, .00054, .00025, - + .00003, .00060, .00131, - + .23745, .05178, .06230, .00055, .00024, - + .00002, .00058, .00120 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ - + .22637, .04911, .05558, .00054, .00024, - + .00002, .00056, .00114, - + .21632, .04669, .04987, .00052, .00025, - + .00003, .00054, .00109, - + .20876, .04488, .04580, .00049, .00025, - + .00003, .00053, .00104, - + .19362, .04130, .03833, .00048, .00024, - + .00003, .00049, .00095, - + .18164, .03850, .03301, .00045, .00023, - + .00003, .00045, .00089, - + .16933, .03564, .02803, .00041, .00023, - + .00003, .00042, .00081, - + .15756, .03293, .02374, .00039, .00022, - + .00004, .00039, .00073, - + .14771, .03068, .02050, .00036, .00021, - + .00005, .00037, .00068 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ - + .13850, .02860, .01774, .00034, .00020, - + .00005, .00035, .00064, - + .13136, .02699, .01577, .00034, .00019, - + .00005, .00032, .00059, - + .12327, .02518, .01372, .00030, .00018, - + .00005, .00030, .00055, - + .11660, .02370, .01216, .00028, .00017, - + .00005, .00028, .00051, - + .11085, .02243, .01091, .00027, .00016, - + .00006, .00027, .00048, - + .10400, .02093, .00954, .00025, .00015, - + .00005, .00024, .00045, - + .09801, .01962, .00844, .00024, .00014, - + .00005, .00023, .00042, - + .09276, .01848, .00754, .00022, .00014, - + .00005, .00022, .00039 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ - + .08784, .01742, .00675, .00020, .00013, - + .00005, .00020, .00037, - + .08327, .01645, .00608, .00020, .00012, - + .00005, .00019, .00034, - + .07921, .01559, .00552, .00021, .00012, - + .00005, .00017, .00031, - + .07559, .01482, .00505, .00019, .00011, - + .00004, .00016, .00030, - + .07215, .01409, .00462, .00018, .00010, - + .00004, .00016, .00029, - + .06893, .01341, .00424, .00017, .00010, - + .00004, .00015, .00027, - + .06602, .01280, .00392, .00016, .00010, - + .00004, .00014, .00026, - + .06338, .01225, .00364, .00016, .00009, - + .00004, .00014, .00025 / - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ - + .06085, .01172, .00338, .00015, .00009, - + .00004, .00013, .00023, - + .05846, .01123, .00315, .00014, .00008, - + .00004, .00012, .00022, - + .05628, .01077, .00295, .00013, .00008, - + .00003, .00012, .00020, - + .05428, .01036, .00277, .00013, .00008, - + .00003, .00011, .00019, - + .05234, .00997, .00260, .00013, .00007, - + .00003, .00011, .00018 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ - + .32763, .07142, .15045, .00034, .00009, - + .00005, .00049, .00124, - + .30626, .06622, .12804, .00035, .00012, - + .00005, .00048, .00118, - + .27793, .05944, .10145, .00036, .00016, - + .00005, .00047, .00106, - + .25949, .05508, .08602, .00035, .00016, - + .00004, .00045, .00098, - + .24183, .05096, .07263, .00035, .00017, - + .00004, .00043, .00091, - + .22787, .04772, .06297, .00035, .00018, - + .00004, .00042, .00085, - + .21547, .04485, .05505, .00033, .00018, - + .00004, .00041, .00081, - + .20316, .04203, .04786, .00033, .00017, - + .00002, .00038, .00077 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ - + .19317, .03976, .04245, .00033, .00017, - + .00002, .00037, .00071, - + .18411, .03771, .03787, .00032, .00017, - + .00002, .00035, .00067, - + .17729, .03618, .03463, .00030, .00018, - + .00002, .00034, .00064, - + .16378, .03317, .02873, .00028, .00017, - + .00003, .00032, .00059, - + .15310, .03081, .02456, .00026, .00016, - + .00003, .00030, .00055, - + .14216, .02841, .02070, .00025, .00016, - + .00003, .00028, .00050, - + .13177, .02614, .01741, .00023, .00015, - + .00003, .00026, .00046, - + .12312, .02427, .01493, .00021, .00014, - + .00004, .00024, .00042 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ - + .11506, .02255, .01284, .00019, .00014, - + .00004, .00022, .00039, - + .10882, .02123, .01136, .00019, .00013, - + .00004, .00021, .00035, - + .10177, .01974, .00982, .00017, .00012, - + .00004, .00019, .00034, - + .09598, .01852, .00866, .00016, .00012, - + .00004, .00018, .00032, - + .09102, .01748, .00774, .00014, .00011, - + .00004, .00017, .00031, - + .08512, .01626, .00673, .00014, .00010, - + .00004, .00016, .00028, - + .07995, .01520, .00593, .00014, .00010, - + .00004, .00014, .00025, - + .07545, .01428, .00528, .00014, .00009, - + .00004, .00014, .00023 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ - + .07126, .01342, .00471, .00012, .00009, - + .00004, .00013, .00022, - + .06738, .01264, .00423, .00012, .00008, - + .00003, .00012, .00020, - + .06394, .01194, .00382, .00012, .00008, - + .00003, .00011, .00019, - + .06088, .01133, .00349, .00010, .00007, - + .00003, .00011, .00018, - + .05798, .01075, .00318, .00010, .00007, - + .00003, .00010, .00017, - + .05525, .01021, .00291, .00010, .00006, - + .00002, .00009, .00016, - + .05280, .00972, .00269, .00009, .00006, - + .00002, .00009, .00015, - + .05060, .00929, .00249, .00009, .00006, - + .00002, .00008, .00014 / - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ - + .04848, .00887, .00231, .00009, .00006, - + .00002, .00008, .00013, - + .04649, .00848, .00215, .00008, .00005, - + .00002, .00008, .00013, - + .04467, .00812, .00200, .00007, .00005, - + .00002, .00007, .00013, - + .04301, .00780, .00188, .00007, .00005, - + .00002, .00007, .00012, - + .04141, .00749, .00177, .00007, .00005, - + .00003, .00007, .00011 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ - + .28416, .05872, .12111, .00025, .00004, - + .00001, .00029, .00079, - + .26458, .05425, .10216, .00025, .00006, - + .00001, .00029, .00073, - + .23877, .04845, .07990, .00028, .00008, - + .00000, .00028, .00063, - + .22208, .04473, .06717, .00027, .00009, - + .00000, .00027, .00059, - + .20617, .04121, .05623, .00025, .00009, - + .00000, .00025, .00057, - + .19364, .03847, .04840, .00024, .00009, - + .00000, .00023, .00054, - + .18254, .03606, .04205, .00024, .00010, - + .00000, .00023, .00049, - + .17160, .03368, .03629, .00021, .00010, - + .00000, .00021, .00047 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ - + .16271, .03178, .03200, .00021, .00009, - + .00000, .00021, .00045, - + .15467, .03008, .02839, .00021, .00009, - + .00001, .00020, .00043, - + .14864, .02879, .02586, .00020, .00009, - + .00001, .00020, .00041, - + .13672, .02628, .02127, .00019, .00009, - + .00001, .00019, .00036, - + .12736, .02433, .01806, .00018, .00010, - + .00001, .00017, .00033, - + .11781, .02235, .01510, .00017, .00009, - + .00001, .00016, .00031, - + .10878, .02050, .01261, .00015, .00008, - + .00001, .00015, .00027, - + .10127, .01897, .01074, .00015, .00008, - + .00002, .00013, .00025 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ - + .09431, .01756, .00918, .00014, .00008, - + .00001, .00012, .00024, - + .08895, .01648, .00808, .00013, .00007, - + .00001, .00011, .00022, - + .08293, .01527, .00695, .00011, .00007, - + .00002, .00010, .00021, - + .07797, .01430, .00610, .00011, .00006, - + .00002, .00010, .00019, - + .07374, .01347, .00543, .00012, .00006, - + .00002, .00010, .00017, - + .06874, .01249, .00470, .00010, .00006, - + .00002, .00009, .00016, - + .06439, .01164, .00412, .00009, .00005, - + .00002, .00008, .00015, - + .06060, .01090, .00365, .00009, .00005, - + .00002, .00008, .00014 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ - + .05706, .01022, .00325, .00008, .00004, - + .00001, .00007, .00013, - + .05382, .00960, .00291, .00008, .00004, - + .00002, .00006, .00012, - + .05095, .00905, .00262, .00008, .00004, - + .00002, .00006, .00011, - + .04839, .00856, .00238, .00007, .00004, - + .00001, .00006, .00011, - + .04597, .00810, .00217, .00007, .00004, - + .00001, .00005, .00010, - + .04372, .00768, .00198, .00007, .00003, - + .00001, .00005, .00009, - + .04170, .00730, .00182, .00007, .00003, - + .00001, .00005, .00009, - + .03987, .00696, .00169, .00006, .00003, - + .00001, .00005, .00009 / - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ - + .03813, .00663, .00156, .00005, .00003, - + .00001, .00004, .00008, - + .03649, .00633, .00145, .00005, .00003, - + .00001, .00004, .00008, - + .03500, .00606, .00135, .00005, .00003, - + .00001, .00004, .00007, - + .03364, .00580, .00126, .00005, .00002, - + .00001, .00004, .00007, - + .03233, .00556, .00118, .00004, .00002, - + .00001, .00003, .00006 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ - + .24256, .04735, .09559, .00010, .00006, - + .00004, .00021, .00046, - + .22496, .04357, .07990, .00009, .00006, - + .00003, .00020, .00043, - + .20189, .03869, .06168, .00010, .00007, - + .00004, .00019, .00037, - + .18703, .03558, .05138, .00010, .00007, - + .00003, .00018, .00035, - + .17292, .03266, .04261, .00009, .00007, - + .00003, .00017, .00034, - + .16183, .03038, .03639, .00011, .00007, - + .00003, .00015, .00032, - + .15205, .02838, .03139, .00011, .00007, - + .00003, .00015, .00030, - + .14245, .02643, .02690, .00010, .00007, - + .00003, .00015, .00028 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ - + .13469, .02488, .02358, .00010, .00007, - + .00002, .00014, .00026, - + .12769, .02348, .02080, .00011, .00007, - + .00002, .00014, .00024, - + .12246, .02244, .01886, .00010, .00007, - + .00002, .00013, .00022, - + .11216, .02038, .01537, .00009, .00007, - + .00002, .00012, .00021, - + .10410, .01880, .01295, .00008, .00006, - + .00002, .00011, .00020, - + .09591, .01721, .01075, .00008, .00006, - + .00002, .00010, .00018, - + .08819, .01572, .00890, .00007, .00006, - + .00002, .00009, .00016, - + .08180, .01449, .00753, .00006, .00005, - + .00002, .00009, .00015 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ - + .07589, .01337, .00640, .00006, .00005, - + .00002, .00008, .00014, - + .07136, .01251, .00560, .00006, .00005, - + .00002, .00008, .00013, - + .06628, .01156, .00479, .00007, .00005, - + .00002, .00007, .00011, - + .06214, .01078, .00419, .00006, .00004, - + .00002, .00006, .00011, - + .05863, .01013, .00371, .00004, .00004, - + .00002, .00006, .00010, - + .05445, .00936, .00319, .00005, .00004, - + .00002, .00006, .00009, - + .05084, .00869, .00279, .00004, .00004, - + .00002, .00005, .00009, - + .04772, .00812, .00246, .00004, .00003, - + .00001, .00005, .00008 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ - + .04481, .00759, .00218, .00003, .00003, - + .00001, .00004, .00007, - + .04214, .00711, .00194, .00003, .00003, - + .00001, .00004, .00006, - + .03979, .00669, .00174, .00003, .00003, - + .00001, .00004, .00007, - + .03770, .00631, .00158, .00003, .00003, - + .00001, .00004, .00006, - + .03572, .00596, .00144, .00003, .00002, - + .00001, .00004, .00006, - + .03389, .00563, .00131, .00003, .00002, - + .00001, .00003, .00005, - + .03225, .00534, .00120, .00003, .00002, - + .00001, .00003, .00005, - + .03076, .00508, .00111, .00003, .00002, - + .00001, .00003, .00005 / - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ - + .02935, .00484, .00102, .00003, .00002, - + .00001, .00003, .00005, - + .02803, .00460, .00095, .00003, .00002, - + .00001, .00003, .00004, - + .02683, .00440, .00088, .00003, .00002, - + .00001, .00002, .00004, - + .02575, .00421, .00083, .00002, .00002, - + .00001, .00002, .00004, - + .02471, .00402, .00077, .00002, .00001, - + .00001, .00002, .00003 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ - + .16835, .02925, .05632, .00003, .00001, - + .00000, .00005, .00014, - + .15479, .02668, .04616, .00004, .00002, - + .00000, .00005, .00014, - + .13726, .02341, .03467, .00003, .00002, - + .00000, .00005, .00013, - + .12607, .02136, .02834, .00004, .00002, - + .00000, .00005, .00011, - + .11556, .01944, .02306, .00004, .00002, - + .00000, .00005, .00010, - + .10741, .01795, .01939, .00004, .00002, - + .00000, .00005, .00009, - + .10025, .01666, .01649, .00004, .00002, - + .00000, .00005, .00009, - + .09327, .01541, .01392, .00003, .00002, - + .00000, .00005, .00008 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ - + .08767, .01441, .01205, .00002, .00002, - + .00000, .00004, .00008, - + .08264, .01353, .01051, .00002, .00002, - + .00000, .00004, .00008, - + .07891, .01287, .00944, .00002, .00002, - + .00000, .00004, .00008, - + .07159, .01159, .00755, .00003, .00002, - + .00000, .00004, .00006, - + .06593, .01061, .00627, .00003, .00002, - + .00000, .00003, .00005, - + .06024, .00963, .00512, .00003, .00002, - + .00000, .00003, .00005, - + .05493, .00873, .00417, .00002, .00002, - + .00000, .00003, .00005, - + .05056, .00799, .00348, .00002, .00002, - + .00000, .00003, .00005 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ - + .04655, .00731, .00292, .00002, .00002, - + .00000, .00002, .00004, - + .04352, .00680, .00253, .00001, .00001, - + .00000, .00002, .00004, - + .04013, .00624, .00214, .00001, .00001, - + .00000, .00002, .00003, - + .03739, .00578, .00185, .00001, .00001, - + .00001, .00002, .00003, - + .03506, .00540, .00162, .00001, .00001, - + .00001, .00002, .00003, - + .03233, .00495, .00138, .00001, .00001, - + .00001, .00002, .00003, - + .02998, .00457, .00120, .00001, .00001, - + .00001, .00002, .00003, - + .02796, .00424, .00105, .00001, .00001, - + .00001, .00001, .00002 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ - + .02610, .00394, .00092, .00000, .00001, - + .00001, .00001, .00002, - + .02441, .00367, .00082, .00001, .00001, - + .00001, .00001, .00002, - + .02292, .00343, .00073, .00001, .00001, - + .00000, .00001, .00002, - + .02160, .00323, .00066, .00001, .00001, - + .00000, .00001, .00002, - + .02037, .00303, .00059, .00001, .00001, - + .00000, .00001, .00002, - + .01923, .00285, .00054, .00001, .00001, - + .00000, .00001, .00002, - + .01821, .00269, .00049, .00001, .00001, - + .00000, .00001, .00001, - + .01730, .00255, .00045, .00001, .00001, - + .00000, .00001, .00001 / - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/ - + .01644, .00242, .00042, .00001, .00000, - + .00000, .00001, .00001, - + .01563, .00229, .00038, .00001, .00000, - + .00000, .00001, .00001, - + .01491, .00218, .00036, .00000, .00000, - + .00000, .00001, .00001, - + .01425, .00208, .00033, .00000, .00000, - + .00000, .00001, .00001, - + .01361, .00198, .00031, .00000, .00000, - + .00000, .00001, .00001 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/ - + .10761, .01644, .03007, .00001, .00000, - + -.00001, .00001, .00004, - + .09804, .01487, .02414, .00002, .00000, - + -.00001, .00001, .00003, - + .08581, .01289, .01762, .00002, .00000, - + .00000, .00001, .00002, - + .07812, .01164, .01412, .00001, .00000, - + .00000, .00001, .00002, - + .07095, .01050, .01125, .00001, .00000, - + .00000, .00001, .00002, - + .06543, .00963, .00931, .00001, .00000, - + .00000, .00001, .00003, - + .06061, .00887, .00779, .00001, .00000, - + -.00001, .00000, .00003, - + .05597, .00815, .00647, .00000, .00000, - + -.00001, .00000, .00002 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ - + .05228, .00758, .00553, .00001, .00000, - + .00000, .00000, .00002, - + .04899, .00707, .00476, .00001, .00000, - + .00000, .00001, .00002, - + .04655, .00669, .00424, .00002, .00000, - + .00000, .00001, .00001, - + .04182, .00597, .00332, .00001, .00001, - + .00000, .00001, .00002, - + .03819, .00542, .00271, .00001, .00000, - + .00000, .00001, .00001, - + .03457, .00487, .00218, .00001, .00000, - + .00000, .00001, .00001, - + .03124, .00437, .00175, .00000, .00000, - + .00000, .00000, .00001, - + .02852, .00397, .00144, .00000, .00000, - + .00000, .00000, .00001 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/ - + .02604, .00361, .00119, .00001, .00000, - + .00000, .00000, .00001, - + .02418, .00333, .00102, .00001, .00000, - + .00000, .00000, .00001, - + .02212, .00303, .00085, .00000, .00000, - + .00000, .00000, .00001, - + .02047, .00279, .00073, .00000, .00000, - + .00000, .00000, .00001, - + .01907, .00259, .00063, .00000, .00000, - + .00000, .00000, .00001, - + .01745, .00236, .00053, .00000, .00000, - + .00000, .00000, .00001, - + .01607, .00216, .00046, .00000, .00000, - + .00000, .00000, .00001, - + .01489, .00199, .00040, .00000, .00000, - + .00000, .00000, .00001 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/ - + .01381, .00184, .00035, .00000, .00000, - + .00000, .00000, .00000, - + .01283, .00170, .00031, .00000, .00000, - + .00000, .00000, .00000, - + .01197, .00158, .00027, .00000, .00000, - + .00000, .00000, .00000, - + .01122, .00148, .00024, .00000, .00000, - + .00000, .00000, .00000, - + .01052, .00138, .00022, .00000, .00000, - + .00000, .00000, .00000, - + .00988, .00129, .00020, .00000, .00000, - + .00000, .00000, .00000, - + .00931, .00122, .00018, .00000, .00000, - + .00000, .00000, .00000, - + .00881, .00115, .00017, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/ - + .00833, .00108, .00015, .00000, .00000, - + .00000, .00000, .00000, - + .00788, .00102, .00014, .00000, .00000, - + .00000, .00000, .00000, - + .00748, .00097, .00013, .00000, .00000, - + .00000, .00000, .00000, - + .00712, .00092, .00012, .00000, .00000, - + .00000, .00000, .00000, - + .00677, .00087, .00011, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/ - + .06175, .00817, .01409, .00002, -.00001, - + -.00001, .00000, .00000, - + .05569, .00731, .01105, .00001, -.00001, - + .00000, .00000, .00001, - + .04804, .00625, .00781, .00001, -.00001, - + -.00001, -.00001, .00001, - + .04329, .00559, .00612, .00000, -.00001, - + -.00001, -.00001, .00000, - + .03892, .00499, .00477, .00000, -.00001, - + -.00001, .00000, .00000, - + .03558, .00454, .00387, .00000, .00000, - + .00000, .00000, .00000, - + .03270, .00415, .00319, .00000, .00000, - + .00000, .00000, .00000, - + .02993, .00378, .00260, .00001, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/ - + .02776, .00349, .00219, .00000, .00000, - + .00000, .00000, .00000, - + .02584, .00323, .00186, .00000, .00000, - + .00000, .00000, .00000, - + .02442, .00304, .00164, .00000, .00000, - + .00000, .00000, .00000, - + .02170, .00269, .00126, .00000, .00000, - + .00000, .00000, .00000, - + .01963, .00242, .00101, .00000, .00000, - + .00000, .00000, .00000, - + .01759, .00215, .00079, .00000, .00000, - + .00000, .00000, .00000, - + .01573, .00191, .00063, .00000, .00000, - + .00000, .00000, .00000, - + .01423, .00172, .00051, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/ - + .01287, .00155, .00041, .00000, .00000, - + .00000, .00000, .00000, - + .01186, .00142, .00035, .00000, .00000, - + .00000, .00000, .00000, - + .01075, .00128, .00029, .00000, .00000, - + .00000, .00000, .00000, - + .00987, .00117, .00024, .00000, .00000, - + .00000, .00000, .00000, - + .00914, .00108, .00021, .00000, .00000, - + .00000, .00000, .00000, - + .00829, .00097, .00018, .00000, .00000, - + .00000, .00000, .00000, - + .00757, .00088, .00015, .00000, .00000, - + .00000, .00000, .00000, - + .00696, .00081, .00013, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/ - + .00641, .00074, .00011, .00000, .00000, - + .00000, .00000, .00000, - + .00591, .00068, .00010, .00000, .00000, - + .00000, .00000, .00000, - + .00548, .00063, .00009, .00000, .00000, - + .00000, .00000, .00000, - + .00511, .00059, .00008, .00000, .00000, - + .00000, .00000, .00000, - + .00476, .00054, .00007, .00000, .00000, - + .00000, .00000, .00000, - + .00444, .00051, .00006, .00000, .00000, - + .00000, .00000, .00000, - + .00416, .00047, .00006, .00000, .00000, - + .00000, .00000, .00000, - + .00391, .00044, .00005, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/ - + .00368, .00042, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00346, .00039, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00327, .00037, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00310, .00035, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00294, .00033, .00003, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/ - + .03030, .00338, .00544, .00000, .00000, - + .00000, .00000, .00000, - + .02701, .00299, .00416, .00000, .00000, - + .00000, .00000, .00000, - + .02291, .00251, .00283, .00000, .00000, - + .00000, .00000, .00000, - + .02041, .00222, .00216, .00000, .00000, - + .00000, .00000, .00000, - + .01813, .00196, .00164, .00000, .00000, - + .00000, .00000, .00000, - + .01641, .00177, .00131, .00000, .00000, - + .00000, .00000, .00000, - + .01494, .00160, .00105, .00000, .00000, - + .00000, .00000, .00000, - + .01354, .00144, .00084, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/ - + .01245, .00132, .00070, .00000, .00000, - + .00000, .00000, .00000, - + .01150, .00121, .00058, .00000, .00000, - + .00000, .00000, .00000, - + .01080, .00114, .00051, .00000, .00000, - + .00000, .00000, .00000, - + .00947, .00099, .00038, .00000, .00000, - + .00000, .00000, .00000, - + .00848, .00088, .00030, .00000, .00000, - + .00000, .00000, .00000, - + .00751, .00078, .00023, .00000, .00000, - + .00000, .00000, .00000, - + .00663, .00068, .00018, .00000, .00000, - + .00000, .00000, .00000, - + .00593, .00061, .00014, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/ - + .00531, .00054, .00011, .00000, .00000, - + .00000, .00000, .00000, - + .00485, .00049, .00010, .00000, .00000, - + .00000, .00000, .00000, - + .00435, .00044, .00008, .00000, .00000, - + .00000, .00000, .00000, - + .00396, .00040, .00007, .00000, .00000, - + .00000, .00000, .00000, - + .00363, .00036, .00006, .00000, .00000, - + .00000, .00000, .00000, - + .00326, .00032, .00005, .00000, .00000, - + .00000, .00000, .00000, - + .00295, .00029, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00269, .00027, .00003, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/ - + .00246, .00024, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00225, .00022, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00207, .00020, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00191, .00019, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00177, .00017, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00164, .00016, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00153, .00015, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00143, .00014, .00001, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/ - + .00133, .00013, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00125, .00012, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00117, .00011, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00110, .00011, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00104, .00010, .00001, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/ - + .00296, .00020, .00026, .00000, .00000, - + .00000, .00000, .00000, - + .00255, .00017, .00019, .00000, .00000, - + .00000, .00000, .00000, - + .00206, .00014, .00012, .00000, .00000, - + .00000, .00000, .00000, - + .00178, .00012, .00008, .00000, .00000, - + .00000, .00000, .00000, - + .00152, .00010, .00006, .00000, .00000, - + .00000, .00000, .00000, - + .00134, .00009, .00004, .00000, .00000, - + .00000, .00000, .00000, - + .00119, .00008, .00003, .00000, .00000, - + .00000, .00000, .00000, - + .00105, .00007, .00003, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/ - + .00094, .00006, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00085, .00006, .00002, .00000, .00000, - + .00000, .00000, .00000, - + .00078, .00005, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00066, .00004, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00057, .00004, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00049, .00003, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00042, .00003, .00001, .00000, .00000, - + .00000, .00000, .00000, - + .00036, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/ - + .00031, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00028, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00024, .00002, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00022, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00019, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00017, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00015, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00013, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ - + .00012, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00010, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00009, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00008, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00008, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00007, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00006, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00006, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ - + .00005, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00005, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00004, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00004, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000, - + .00004, .00001, .00000, .00000, .00000, - + .00000, .00000, .00000 / - DATA XX/1D-5,2D-5,4D-5,6D-5,8D-5, - . 1D-4,2D-4,4D-4,6D-4,8D-4, - . 1D-3,2D-3,4D-3,6D-3,8D-3, - . 1D-2,1.4D-2,2D-2,3D-2,4D-2,6D-2,8D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1D0/ - DATA QQ/1.25D0,1.5D0,2D0,2.5D0,3.2D0,4D0,5D0,6.4D0,8D0,1D1, - . 1.2D1,1.8D1,2.6D1,4D1,6.4D1,1D2, - . 1.6D2,2.4D2,4D2,6.4D2,1D3,1.8D3,3.2D3,5.6D3,1D4, - . 1.8D4,3.2D4,5.6D4,1D5,1.8D5,3.2D5,5.6D5,1D6, - . 1.8D6,3.2D6,5.6D6,1D7/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1D-5,1D0,1.25D0,1D7/ - DATA N0/3,4,5,9,9,9,9,9/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ - SAVE - XSAVE=X - Q2SAVE=QSQ - IF(INIT.NE.0) GOTO 10 -C OPEN(UNIT=1,FILE='MRSR4.DAT',STATUS='OLD') - DO 20 N=1,NX-1 - DO 20 M=1,NQ -C READ(1,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M), -C . F(5,N,M),F(7,N,M),F(6,N,M),F(8,N,M) -C NOTATION: 1=UVAL 2=VAL 3=GLUE 4=USEA 5=CHM 6=STR 7=BTM 8=DSEA - DO 25 I=1,NP - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J)/XX(NTENTH))+XX(NTENTH) - DO 31 I=1,8 - IF(I.EQ.5.OR.I.EQ.7) GOTO 31 - DO 30 K=1,NQ - 30 F(I,J,K)= LOG10(F(I,J,K)/F(I,NTENTH,K))+F(I,NTENTH,K) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,NP - DO 40 M=1,NQ - 40 F(I,NX,M)=ZEROD - INIT=1 - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.XX(NTENTH)) XXX= LOG10(X/XX(NTENTH))+XX(NTENTH) - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - M=0 - 80 M=M+1 - IF(QSQ.GT.QQ(M+1)) GOTO 80 - B=(QSQ-QQ(M))/(QQ(M+1)-QQ(M)) - DO 60 I=1,NP - G(I)= (ONED-A)*(ONED-B)*F(I,N,M) + (ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.5.OR.I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC*10D0**(G(I)-FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) - X=XSAVE - QSQ=Q2SAVE - RETURN - END diff --git a/PDF/spdf/sfmt10.F b/PDF/spdf/sfmt10.F deleted file mode 100644 index 9f065ab86a9..00000000000 --- a/PDF/spdf/sfmt10.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:29 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:45 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C - SUBROUTINE SFMT10(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to M-T set of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.237 GeV -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=10) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = PDZXMT(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = PDZXMT(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = PDZXMT(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = PDZXMT(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = PDZXMT(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = PDZXMT(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = PDZXMT(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = PDZXMT(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = PDZXMT(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfmt11.F b/PDF/spdf/sfmt11.F deleted file mode 100644 index 1bbce7f169d..00000000000 --- a/PDF/spdf/sfmt11.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:31 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:45 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C - SUBROUTINE SFMT11(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to M-T set of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.144 GeV -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=11) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = PDZXMT(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = PDZXMT(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = PDZXMT(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = PDZXMT(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = PDZXMT(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = PDZXMT(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = PDZXMT(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = PDZXMT(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = PDZXMT(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfmtu1.F b/PDF/spdf/sfmtu1.F deleted file mode 100644 index ba26ccac855..00000000000 --- a/PDF/spdf/sfmtu1.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:34 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:45 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE SFMTU1(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to M-T set of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.212 GeV -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=1) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = PDZXMT(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = PDZXMT(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = PDZXMT(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = PDZXMT(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = PDZXMT(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = PDZXMT(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = PDZXMT(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = PDZXMT(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = PDZXMT(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfmtu2.F b/PDF/spdf/sfmtu2.F deleted file mode 100644 index da494f77ceb..00000000000 --- a/PDF/spdf/sfmtu2.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:35 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:45 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C - SUBROUTINE SFMTU2(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to M-T set of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.194 GeV -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=2) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = PDZXMT(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = PDZXMT(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = PDZXMT(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = PDZXMT(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = PDZXMT(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = PDZXMT(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = PDZXMT(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = PDZXMT(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = PDZXMT(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfmtu3.F b/PDF/spdf/sfmtu3.F deleted file mode 100644 index 01257d855a7..00000000000 --- a/PDF/spdf/sfmtu3.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:36 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:45 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C - SUBROUTINE SFMTU3(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to M-T set of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.192 GeV -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=3) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = PDZXMT(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = PDZXMT(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = PDZXMT(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = PDZXMT(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = PDZXMT(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = PDZXMT(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = PDZXMT(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = PDZXMT(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = PDZXMT(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfmtu4.F b/PDF/spdf/sfmtu4.F deleted file mode 100644 index d49b315ee9d..00000000000 --- a/PDF/spdf/sfmtu4.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:37 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:45 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C - SUBROUTINE SFMTU4(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to M-T set of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.155 GeV -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=4) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = PDZXMT(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = PDZXMT(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = PDZXMT(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = PDZXMT(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = PDZXMT(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = PDZXMT(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = PDZXMT(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = PDZXMT(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = PDZXMT(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfmtu5.F b/PDF/spdf/sfmtu5.F deleted file mode 100644 index 2d73186efa2..00000000000 --- a/PDF/spdf/sfmtu5.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:38 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:45 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C - SUBROUTINE SFMTU5(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to M-T set of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.237 GeV -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=5) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = PDZXMT(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = PDZXMT(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = PDZXMT(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = PDZXMT(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = PDZXMT(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = PDZXMT(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = PDZXMT(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = PDZXMT(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = PDZXMT(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfmtu6.F b/PDF/spdf/sfmtu6.F deleted file mode 100644 index 6cc1a5f3550..00000000000 --- a/PDF/spdf/sfmtu6.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:39 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:45 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C - SUBROUTINE SFMTU6(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to M-T set of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.212 GeV -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=6) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = PDZXMT(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = PDZXMT(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = PDZXMT(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = PDZXMT(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = PDZXMT(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = PDZXMT(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = PDZXMT(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = PDZXMT(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = PDZXMT(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfmtu7.F b/PDF/spdf/sfmtu7.F deleted file mode 100644 index b6544200079..00000000000 --- a/PDF/spdf/sfmtu7.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:40 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:45 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C - SUBROUTINE SFMTU7(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to M-T set of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.194 GeV -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=7) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = PDZXMT(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = PDZXMT(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = PDZXMT(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = PDZXMT(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = PDZXMT(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = PDZXMT(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = PDZXMT(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = PDZXMT(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = PDZXMT(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfmtu8.F b/PDF/spdf/sfmtu8.F deleted file mode 100644 index 786ca609cf5..00000000000 --- a/PDF/spdf/sfmtu8.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:41 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:45 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C - SUBROUTINE SFMTU8(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to M-T set of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.192 GeV -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=8) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = PDZXMT(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = PDZXMT(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = PDZXMT(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = PDZXMT(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = PDZXMT(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = PDZXMT(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = PDZXMT(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = PDZXMT(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = PDZXMT(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfmtu9.F b/PDF/spdf/sfmtu9.F deleted file mode 100644 index a0d53f8ae53..00000000000 --- a/PDF/spdf/sfmtu9.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:41 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:46 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C - SUBROUTINE SFMTU9(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to M-T set of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.155 GeV -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=9) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = PDZXMT(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = PDZXMT(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = PDZXMT(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = PDZXMT(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = PDZXMT(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = PDZXMT(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = PDZXMT(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = PDZXMT(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = PDZXMT(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfsas11.F b/PDF/spdf/sfsas11.F deleted file mode 100644 index 8259a1d089f..00000000000 --- a/PDF/spdf/sfsas11.F +++ /dev/null @@ -1,54 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" - SUBROUTINE SFSAS11(DX,DQ2,DP2, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to SASset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from the SAS group version 2 -C :::::::::::: Lambda = 0.200 GeV, Q**2 = 0.36 GeV**2 (DIS) -C -#include "pdf/expdp.inc" - + DX,DQ2,DP2, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - DIMENSION XPDFGM(-6:6) - REAL X, Q, Q2, P2, F2GAM, XPDFGM - PARAMETER (ISET=1) -#include "pdf/w50511.inc" -C - X = DX - Q = SQRT(DQ2) - Q2 = DQ2 - P2 = DP2 -C -C generate the individual structure fcn calls -C - CALL SASGAM1(ISET,X,Q2,P2,F2GAM,XPDFGM) - UPV = XPDFGM(2) - DUPV = UPV - DNV = XPDFGM(1) - DDNV = DNV - SEAU = XPDFGM(-2) - DSEA = SEAU - SEAD = XPDFGM(-1) - DSEAD = SEAD - STR = XPDFGM(-3) - DSTR = STR - CHM = XPDFGM(-4) - DCHM = CHM - BOT = XPDFGM(-5) - DBOT = BOT - TOP = 0. -C IF (DSCAL.GT.TMAS) TOP = XPDFGM(6) - DTOP = TOP - GL = XPDFGM(0) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfsas12.F b/PDF/spdf/sfsas12.F deleted file mode 100644 index 57486381ccb..00000000000 --- a/PDF/spdf/sfsas12.F +++ /dev/null @@ -1,54 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" - SUBROUTINE SFSAS12(DX,DQ2,DP2, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to SASset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from the SAS group version 2 -C :::::::::::: Lambda = 0.200 GeV, Q**2 = 0.36 GeV**2 (MS_bar) -C -#include "pdf/expdp.inc" - + DX,DQ2,DP2, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - DIMENSION XPDFGM(-6:6) - REAL X, Q, Q2, P2, F2GAM, XPDFGM - PARAMETER (ISET=2) -#include "pdf/w50511.inc" -C - X = DX - Q = SQRT(DQ2) - Q2 = DQ2 - P2 = DP2 -C -C generate the individual structure fcn calls -C - CALL SASGAM1(ISET,X,Q2,P2,F2GAM,XPDFGM) - UPV = XPDFGM(2) - DUPV = UPV - DNV = XPDFGM(1) - DDNV = DNV - SEAU = XPDFGM(-2) - DSEA = SEAU - SEAD = XPDFGM(-1) - DSEAD = SEAD - STR = XPDFGM(-3) - DSTR = STR - CHM = XPDFGM(-4) - DCHM = CHM - BOT = XPDFGM(-5) - DBOT = BOT - TOP = 0. -C IF (DSCAL.GT.TMAS) TOP = XPDFGM(6) - DTOP = TOP - GL = XPDFGM(0) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfsas13.F b/PDF/spdf/sfsas13.F deleted file mode 100644 index 5d429fefa46..00000000000 --- a/PDF/spdf/sfsas13.F +++ /dev/null @@ -1,54 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" - SUBROUTINE SFSAS13(DX,DQ2,DP2, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to SASset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from the SAS group version 2 -C :::::::::::: Lambda = 0.200 GeV, Q**2 = 4 GeV**2 (DIS) -C -#include "pdf/expdp.inc" - + DX,DQ2,DP2, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - DIMENSION XPDFGM(-6:6) - REAL X, Q, Q2, P2, F2GAM, XPDFGM - PARAMETER (ISET=3) -#include "pdf/w50511.inc" -C - X = DX - Q = SQRT(DQ2) - Q2 = DQ2 - P2 = DP2 -C -C generate the individual structure fcn calls -C - CALL SASGAM1(ISET,X,Q2,P2,F2GAM,XPDFGM) - UPV = XPDFGM(2) - DUPV = UPV - DNV = XPDFGM(1) - DDNV = DNV - SEAU = XPDFGM(-2) - DSEA = SEAU - SEAD = XPDFGM(-1) - DSEAD = SEAD - STR = XPDFGM(-3) - DSTR = STR - CHM = XPDFGM(-4) - DCHM = CHM - BOT = XPDFGM(-5) - DBOT = BOT - TOP = 0. -C IF (DSCAL.GT.TMAS) TOP = XPDFGM(6) - DTOP = TOP - GL = XPDFGM(0) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfsas14.F b/PDF/spdf/sfsas14.F deleted file mode 100644 index 08c50e06626..00000000000 --- a/PDF/spdf/sfsas14.F +++ /dev/null @@ -1,54 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" - SUBROUTINE SFSAS14(DX,DQ2,DP2, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to SASset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from the SAS group version 2 -C :::::::::::: Lambda = 0.200 GeV, Q**2 = 4 GeV**2 (MS_bar) -C -#include "pdf/expdp.inc" - + DX,DQ2,DP2, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - DIMENSION XPDFGM(-6:6) - REAL X, Q, Q2, P2, F2GAM, XPDFGM - PARAMETER (ISET=4) -#include "pdf/w50511.inc" -C - X = DX - Q = SQRT(DQ2) - Q2 = DQ2 - P2 = DP2 -C -C generate the individual structure fcn calls -C - CALL SASGAM1(ISET,X,Q2,P2,F2GAM,XPDFGM) - UPV = XPDFGM(2) - DUPV = UPV - DNV = XPDFGM(1) - DDNV = DNV - SEAU = XPDFGM(-2) - DSEA = SEAU - SEAD = XPDFGM(-1) - DSEAD = SEAD - STR = XPDFGM(-3) - DSTR = STR - CHM = XPDFGM(-4) - DCHM = CHM - BOT = XPDFGM(-5) - DBOT = BOT - TOP = 0. -C IF (DSCAL.GT.TMAS) TOP = XPDFGM(6) - DTOP = TOP - GL = XPDFGM(0) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfsas21.F b/PDF/spdf/sfsas21.F deleted file mode 100644 index 9e1709bbd5e..00000000000 --- a/PDF/spdf/sfsas21.F +++ /dev/null @@ -1,56 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" - SUBROUTINE SFSAS21(DX,DQ2,DP2,IP2, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to SASset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from the SAS group version 2 -C :::::::::::: Lambda = 0.200 GeV, Q**2 = 0.36 GeV**2 (DIS) -C -#include "pdf/expdp.inc" - + DX,DQ2,DP2, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - DIMENSION XPDFGM(-6:6) - REAL X, Q, Q2, P2, F2GAM, XPDFGM - PARAMETER (ISET=1) -#include "pdf/w50511.inc" -C - X = DX - Q = SQRT(DQ2) - Q2 = DQ2 - P2 = DP2 - IP = IP2 - IF(IP.LT.0 .OR. IP.GT.7) IP=0 -C -C generate the individual structure fcn calls -C - CALL SASGAM2(ISET,X,Q2,P2,IP,F2GAM,XPDFGM) - UPV = XPDFGM(2) - DUPV = UPV - DNV = XPDFGM(1) - DDNV = DNV - SEAU = XPDFGM(-2) - DSEA = SEAU - SEAD = XPDFGM(-1) - DSEAD = SEAD - STR = XPDFGM(-3) - DSTR = STR - CHM = XPDFGM(-4) - DCHM = CHM - BOT = XPDFGM(-5) - DBOT = BOT - TOP = 0. -C IF (DSCAL.GT.TMAS) TOP = XPDFGM(6) - DTOP = TOP - GL = XPDFGM(0) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfsas22.F b/PDF/spdf/sfsas22.F deleted file mode 100644 index ca46086d48f..00000000000 --- a/PDF/spdf/sfsas22.F +++ /dev/null @@ -1,56 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" - SUBROUTINE SFSAS22(DX,DQ2,DP2,IP2, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to SASset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from the SAS group version 2 -C :::::::::::: Lambda = 0.200 GeV, Q**2 = 0.36 GeV**2 (MS_bar) -C -#include "pdf/expdp.inc" - + DX,DQ2,DP2, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - DIMENSION XPDFGM(-6:6) - REAL X, Q, Q2, P2, F2GAM, XPDFGM - PARAMETER (ISET=2) -#include "pdf/w50511.inc" -C - X = DX - Q = SQRT(DQ2) - Q2 = DQ2 - P2 = DP2 - IP = IP2 - IF(IP.LT.0 .OR. IP.GT.7) IP=0 -C -C generate the individual structure fcn calls -C - CALL SASGAM2(ISET,X,Q2,P2,IP,F2GAM,XPDFGM) - UPV = XPDFGM(2) - DUPV = UPV - DNV = XPDFGM(1) - DDNV = DNV - SEAU = XPDFGM(-2) - DSEA = SEAU - SEAD = XPDFGM(-1) - DSEAD = SEAD - STR = XPDFGM(-3) - DSTR = STR - CHM = XPDFGM(-4) - DCHM = CHM - BOT = XPDFGM(-5) - DBOT = BOT - TOP = 0. -C IF (DSCAL.GT.TMAS) TOP = XPDFGM(6) - DTOP = TOP - GL = XPDFGM(0) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfsas23.F b/PDF/spdf/sfsas23.F deleted file mode 100644 index 9e4db6feaae..00000000000 --- a/PDF/spdf/sfsas23.F +++ /dev/null @@ -1,56 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" - SUBROUTINE SFSAS23(DX,DQ2,DP2,IP2, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to SASset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from the SAS group version 2 -C :::::::::::: Lambda = 0.200 GeV, Q**2 = 4 GeV**2 (DIS) -C -#include "pdf/expdp.inc" - + DX,DQ2,DP2, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - DIMENSION XPDFGM(-6:6) - REAL X, Q, Q2, P2, F2GAM, XPDFGM - PARAMETER (ISET=3) -#include "pdf/w50511.inc" -C - X = DX - Q = SQRT(DQ2) - Q2 = DQ2 - P2 = DP2 - IP = IP2 - IF(IP.LT.0 .OR. IP.GT.7) IP=0 -C -C generate the individual structure fcn calls -C - CALL SASGAM2(ISET,X,Q2,P2,IP,F2GAM,XPDFGM) - UPV = XPDFGM(2) - DUPV = UPV - DNV = XPDFGM(1) - DDNV = DNV - SEAU = XPDFGM(-2) - DSEA = SEAU - SEAD = XPDFGM(-1) - DSEAD = SEAD - STR = XPDFGM(-3) - DSTR = STR - CHM = XPDFGM(-4) - DCHM = CHM - BOT = XPDFGM(-5) - DBOT = BOT - TOP = 0. -C IF (DSCAL.GT.TMAS) TOP = XPDFGM(6) - DTOP = TOP - GL = XPDFGM(0) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfsas24.F b/PDF/spdf/sfsas24.F deleted file mode 100644 index cf937a8597f..00000000000 --- a/PDF/spdf/sfsas24.F +++ /dev/null @@ -1,56 +0,0 @@ -C----------------------------------------------------------------------- -#include "pdf/pilot.h" - SUBROUTINE SFSAS24(DX,DQ2,DP2,IP2, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to SASset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from the SAS group version 2 -C :::::::::::: Lambda = 0.200 GeV, Q**2 = 4 GeV**2 (MS_bar) -C -#include "pdf/expdp.inc" - + DX,DQ2,DP2, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - DIMENSION XPDFGM(-6:6) - REAL X, Q, Q2, P2, F2GAM, XPDFGM - PARAMETER (ISET=4) -#include "pdf/w50511.inc" -C - X = DX - Q = SQRT(DQ2) - Q2 = DQ2 - P2 = DP2 - IP = IP2 - IF(IP.LT.0 .OR. IP.GT.7) IP=0 -C -C generate the individual structure fcn calls -C - CALL SASGAM2(ISET,X,Q2,P2,IP,F2GAM,XPDFGM) - UPV = XPDFGM(2) - DUPV = UPV - DNV = XPDFGM(1) - DDNV = DNV - SEAU = XPDFGM(-2) - DSEA = SEAU - SEAD = XPDFGM(-1) - DSEAD = SEAD - STR = XPDFGM(-3) - DSTR = STR - CHM = XPDFGM(-4) - DCHM = CHM - BOT = XPDFGM(-5) - DBOT = BOT - TOP = 0. -C IF (DSCAL.GT.TMAS) TOP = XPDFGM(6) - DTOP = TOP - GL = XPDFGM(0) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/sfwhi1.F b/PDF/spdf/sfwhi1.F deleted file mode 100644 index 17824f0617a..00000000000 --- a/PDF/spdf/sfwhi1.F +++ /dev/null @@ -1,214 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:42 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:46 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -c------------------------------------------------------- - subroutine SFWHI1(ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZGL) -c------------------------------------------------------- -c WHIT1 parton distribution in the photon -c -c INPUT: integer ic : if ic=0 then qc=0 -c else qc is calculated -c DOUBLE PRECISION Q2 : energy scale Q^2 (GeV^2) -c DOUBLE PRECISION x : energy fraction -c -c OUTPUT: DOUBLE PRECISION qu : up-quark dist. -c DOUBLE PRECISION qd : down- or strange-quark dist. -c DOUBLE PRECISION qc : charm-quark dist. -c DOUBLE PRECISION g : gluon dist. -c------------------------------------------------------- -c Modified by M.Tanaka on July 22, 1994. -c The bug pointed out by M.Drees is fixed. -c------------------------------------------------------- -c Modified by I.Watanabe on July 22, 1994. -c------------------------------------------------------- - implicit none - external WHIT1G -#include "pdf/expdp.inc" - + ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZGL -c arg - integer ic - DOUBLE PRECISION Q2,x - DOUBLE PRECISION qu,qd,qc,g -c const - DOUBLE PRECISION q42it,q52it,lam42,lam52 - DOUBLE PRECISION alinv,mc,PI -c local - DOUBLE PRECISION qv,qsea,cv,cs,dcv,dcs - DOUBLE PRECISION A0val,A1val,A2val,Bval,Cval, - $ A0sea,B0sea,BB0sea,C0sea - DOUBLE PRECISION A0dcv,A1dcv,A2dcv,A3dcv,Bdcv,Cdcv - DOUBLE PRECISION Adcs, B0dcs, B1dcs, Cdcs - DOUBLE PRECISION x1,x2,mc2q2 - DOUBLE PRECISION s,s2,s3,s4,prsccf,alstpi - DOUBLE PRECISION WHIT1G -c parameters - parameter(lam42=0.16d0, lam52=0.091411319d0) - parameter(Q42IT=4.0d0, Q52IT=100.0d0) - parameter(alinv=137.036d0, mc=1.5d0) - parameter(pi=3.14159265358979323846d0) - common /scale/ s,s2,s3,s4,prsccf -c -c begin - x=ZX - Q2=ZQ*ZQ - ic=1 -c - x1=1.0d0-x - x2=x**2 - mc2q2=mc**2/Q2 -c - if(Q2.lt.100.0d0) then -c under 100 GeV^2 -c -c set scale s - if(Q2.lt.4.0d0) then -cccc for under 4GeV^2 prescription - s= 0.0d0 - prsccf = log(Q2/LAM42)/ log(Q42IT/LAM42) - alstpi = 6.0d0/25.0d0/ log(Q42IT/LAM42) - else - s= log( log(Q2/LAM42)/ log(Q42IT/LAM42)) - prsccf = 1.0d0 - alstpi = 6.0d0/25.0d0/ log(Q2/LAM42) - endif - s2=s**2 - s3=s2*s - s4=s2**2 -c -cccccc WHIT1 quark (U100) -c - A0val= 1.882000d+00+s*( 1.213000d+00)+s2*( 6.970000d-01) - A1val= s*(-2.361000d+00)+s2*(-1.136000d+00) - A2val= s*( 5.280000d-01)+s2*( 2.406000d+00) - Bval = 5.000000d-01+s*( 2.107000d-02)+s2*( 4.130000d-03) - Cval = 2.500000d-01+s*(-2.376000d-01)+s2*( 2.018000d-01) - $ +s3*(-5.040000d-02) - A0sea= 6.510000d-01+s*( 1.291000d+00)+s2*(-4.470000d+00) - $ +s3*( 5.140000d+00)+s4*(-2.091000d+00) - B0sea=-3.820000d-02+s*( 9.010000d-02)+s2*(-1.356000d+00) - $ +s3*( 1.582000d+00)+s4*(-6.440000d-01) - BB0sea=2.084000d+00+s*( 7.740000d+00)+s2*(-2.970000d+01) - $ +s3*( 3.860000d+01)+s4*(-1.705000d+01) - C0sea= 7.000000d+00+s*(-1.608000d+01)+s2*( 4.670000d+01) - $ +s3*(-5.710000d+01)+s4*( 2.386000d+01) -c - qv = prsccf/alinv/x* - $ (A0val+A1val*x+A2val*x2) * x**Bval * x1**Cval - qsea= prsccf/alinv/x* - $ A0sea * x**(B0sea+BB0sea*x) * x1**C0sea -c - qu = qv/3.0d0 + qsea/6.0d0 - qu = qu*x - ZUV=qu - ZUB=qu - qd = qv/12.0d0 + qsea/6.0d0 - qd = qd*x - ZDV=qd - ZDB=qd - ZSB=qd -c - if((ic.ne.0) .and. (x*(1.0d0+4.0d0*mc2q2).lt.1.0d0)) then - call WHIT1Q(x,mc2q2,cv,cs) - qc = cv/alinv/2.0d0/PI + cs*alstpi - qc = qc*x - ZCB=qc - else - qc = 0.0d0 - ZCB=qc - endif -c - g = WHIT1G(x,Q2) - g = g*x - ZGL=g -c - else -c over 100 GeV^2 -c -c set scale s - s= log( log(Q2/LAM52)/ log(Q52IT/LAM52)) - prsccf = 1.0d0 - alstpi = 6.0d0/23.0d0/ log(Q2/LAM52) - s2=s**2 - s3=s2*s - s4=s2**2 -c -cccccc WHIT1 quark (O100) -c - A0val= 3.058000d+00+s*( 2.474000d+00)+s2*( 1.002000d+00) - A1val=-2.182000d+00+s*(-4.480000d+00)+s2*(-2.251000d-01) - A2val= 1.522000d+00+s*( 4.310000d+00)+s2*( 1.314000d+00) - Bval = 5.170000d-01+s*( 4.040000d-02)+s2*(-2.100000d-02) - Cval = 1.655000d-01+s*(-2.062000d-02)+s2*( 5.360000d-02) - A0sea= 6.250000d-01+s*(-5.890000d-01)+s2*( 4.180000d+00) - $ +s3*(-1.206000d+01)+s4*( 1.257000d+01) - B0sea=-2.492000d-01+s*(-4.110000d-01)+s2*( 9.660000d-01) - $ +s3*(-2.584000d+00)+s4*( 2.670000d+00) - BB0sea=2.100000d+00+s*(-5.750000d+00)+s2*( 4.780000d+01) - $ +s3*(-1.407000d+02)+s4*( 1.476000d+02) - C0sea= 4.780000d+00+s*( 4.860000d+00)+s2*(-4.890000d+01) - $ +s3*( 1.477000d+02)+s4*(-1.602000d+02) -c - qv = 1.0d0/alinv/x* - $ (A0val+A1val*x+A2val*x2) * x**Bval * x1**Cval - qsea= 1.0d0/alinv/x* - $ A0sea * x**(B0sea+BB0sea*x) * x1**C0sea -c - qu = qv/3.0d0 + qsea/6.0d0 - qu = qu*x - ZUV=qu - ZUB=qu - qd = qv/12.0d0 + qsea/6.0d0 - qd = qd*x - ZDV=qd - ZDB=qd - ZSB=qd - g = WHIT1G(x,Q2) - g = g*x - ZGL=g -c - if((ic.ne.0) .and. (x*(1.0d0+4.0d0*mc2q2).lt.1.0d0)) then - A0dcv= s*( 1.219000d-01)+s2*( 6.200000d+00) - $ +s3*(-2.504000d+01)+s4*( 3.098000d+01) - A1dcv= s*( 1.913000d+00)+s2*(-7.690000d+01) - $ +s3*( 3.180000d+02)+s4*(-3.920000d+02) - A2dcv= s*(-7.160000d+00)+s2*( 2.503000d+02) - $ +s3*(-1.062000d+03)+s4*( 1.308000d+03) - A3dcv= s*( 3.190000d+00)+s2*(-2.301000d+02) - $ +s3*( 1.012000d+03)+s4*(-1.250000d+03) - Bdcv = 4.990000d-01+s*( 3.470000d+00)+s2*(-1.526000d+01) - $ +s3*( 1.967000d+01) - Cdcv = 3.290000d-01+s*( 8.240000d+00)+s2*(-3.800000d+01) - $ +s3*( 4.630000d+01) - Adcs = s*(-1.815000d-02)+s2*( 2.043000d-03) - $ +s3*(-4.130000d-03) - B0dcs=-3.086000d-01+s*(-2.565000d-01)+s2*( 9.840000d-02) - B1dcs= 1.376000d+00+s*(-4.630000d-01)+s2*( 1.232000d+00) - Cdcs = 3.650000d+00+s*( 7.290000d-01)+s2*(-7.570000d+00) - $ +s3*( 7.790000d+00) -c - dcv = 1.0d0/alinv/x* - $ (A0dcv+x*A1dcv+x2*A2dcv+x2*x*A3dcv) * x**Bdcv * x1**Cdcv - dcs = 1.0d0/alinv/x* - $ Adcs * x**(B0dcs+B1dcs*x) * x1**Cdcs -c - call WHIT1Q(x,mc*mc/Q2,cv,cs) - qc = cv/alinv/2.0d0/PI + cs*alstpi + dcs + dcv - qc = qc*x - ZCB=qc - else - qc = 0.0d0 - ZCB=qc - endif - endif -c - return - end diff --git a/PDF/spdf/sfwhi2.F b/PDF/spdf/sfwhi2.F deleted file mode 100644 index 3388d4d75d1..00000000000 --- a/PDF/spdf/sfwhi2.F +++ /dev/null @@ -1,214 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:43 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:46 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -c------------------------------------------------------- - subroutine SFWHI2(ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZGL) -c------------------------------------------------------- -c WHIT2 parton distribution in the photon -c -c INPUT: integer ic : if ic=0 then qc=0 -c else qc is calculated -c DOUBLE PRECISION Q2 : energy scale Q^2 (GeV^2) -c DOUBLE PRECISION x : energy fraction -c -c OUTPUT: DOUBLE PRECISION qu : up-quark dist. -c DOUBLE PRECISION qd : down- or strange-quark dist. -c DOUBLE PRECISION qc : charm-quark dist. -c DOUBLE PRECISION g : gluon dist. -c------------------------------------------------------- -c Modified by M.Tanaka on July 22, 1994. -c The bug pointed out by M.Drees is fixed. -c------------------------------------------------------- -c Modified by I.Watanabe on July 22, 1994. -c------------------------------------------------------- - implicit none - external WHIT2G -#include "pdf/expdp.inc" - + ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZGL -c arg - integer ic - DOUBLE PRECISION Q2,x - DOUBLE PRECISION qu,qd,qc,g -c const - DOUBLE PRECISION q42it,q52it,lam42,lam52 - DOUBLE PRECISION alinv,mc,PI -c local - DOUBLE PRECISION qv,qsea,cv,cs,dcv,dcs - DOUBLE PRECISION A0val,A1val,A2val,Bval,Cval, - $ A0sea,B0sea,BB0sea,C0sea - DOUBLE PRECISION A0dcv,A1dcv,A2dcv,A3dcv,Bdcv,Cdcv - DOUBLE PRECISION Adcs, B0dcs, B1dcs, Cdcs - DOUBLE PRECISION x1,x2,mc2q2 - DOUBLE PRECISION s,s2,s3,s4,prsccf,alstpi - DOUBLE PRECISION WHIT2G -c parameters - parameter(lam42=0.16d0, lam52=0.091411319d0) - parameter(Q42IT=4.0d0, Q52IT=100.0d0) - parameter(alinv=137.036d0, mc=1.5d0) - parameter(pi=3.14159265358979323846d0) - common /scale/ s,s2,s3,s4,prsccf -c -c begin - x=ZX - Q2=ZQ*ZQ - ic=1 -c - x1=1.0d0-x - x2=x**2 - mc2q2=mc**2/Q2 -c - if(Q2.lt.100.0d0) then -c under 100 GeV^2 -c -c set scale s - if(Q2.lt.4.0d0) then -cccc for under 4GeV^2 prescription - s= 0.0d0 - prsccf = log(Q2/LAM42)/ log(Q42IT/LAM42) - alstpi = 6.0d0/25.0d0/ log(Q42IT/LAM42) - else - s= log( log(Q2/LAM42)/ log(Q42IT/LAM42)) - prsccf = 1.0d0 - alstpi = 6.0d0/25.0d0/ log(Q2/LAM42) - endif - s2=s**2 - s3=s2*s - s4=s2**2 -c -cccccc WHIT2 quark (U100) -c - A0val= 1.882000d+00+s*( 1.213000d+00)+s2*( 6.970000d-01) - A1val= s*(-2.361000d+00)+s2*(-1.136000d+00) - A2val= s*( 5.280000d-01)+s2*( 2.406000d+00) - Bval= 5.000000d-01+s*( 2.107000d-02)+s2*( 4.130000d-03) - Cval= 2.500000d-01+s*(-2.376000d-01)+s2*( 2.018000d-01) - $ +s3*(-5.040000d-02) - A0sea= 1.237000d+00+s*( 3.390000d+00)+s2*(-1.075000d+01) - $ +s3*( 1.246000d+01)+s4*(-5.580000d+00) - B0sea=-7.270000d-02+s*( 1.748000d-01)+s2*(-1.392000d+00) - $ +s3*( 1.711000d+00)+s4*(-7.960000d-01) - BB0sea=4.290000d+00+s*( 1.787000d+01)+s2*(-5.810000d+01) - $ +s3*( 8.190000d+01)+s4*(-4.140000d+01) - C0sea= 1.434000d+01+s*(-4.490000d+01)+s2*( 1.197000d+02) - $ +s3*(-1.585000d+02)+s4*( 7.530000d+01) -c - qv = prsccf/alinv/x* - $ (A0val+A1val*x+A2val*x2) * x**Bval * x1**Cval - qsea= prsccf/alinv/x* - $ A0sea * x**(B0sea+BB0sea*x) * x1**C0sea -c - qu = qv/3.0d0 + qsea/6.0d0 - qu = qu*x - ZUV=qu - ZUB=qu - qd = qv/12.0d0 + qsea/6.0d0 - qd = qd*x - ZDV=qd - ZDB=qd - ZSB=qd -c - if((ic.ne.0) .and. (x*(1.0d0+4.0d0*mc2q2).lt.1.0d0)) then - call WHIT2Q(x,mc2q2,cv,cs) - qc = cv/alinv/2.0d0/PI + cs*alstpi - qc = qc*x - ZCB=qc - else - qc = 0.0d0 - ZCB=qc - endif -c - g = WHIT2G(x,Q2) - g = g*x - ZGL=g -c - else -c over 100 GeV^2 -c -c set scale s - s= log( log(Q2/LAM52)/ log(Q52IT/LAM52)) - prsccf = 1.0d0 - alstpi = 6.0d0/23.0d0/ log(Q2/LAM52) - s2=s**2 - s3=s2*s - s4=s2**2 -c -cccccc WHIT2 quark (O100) -c - A0val= 3.058000d+00+s*( 2.474000d+00)+s2*( 1.002000d+00) - A1val=-2.182000d+00+s*(-4.480000d+00)+s2*(-2.259000d-01) - A2val= 1.522000d+00+s*( 4.300000d+00)+s2*( 1.315000d+00) - Bval = 5.170000d-01+s*( 4.030000d-02)+s2*(-2.098000d-02) - Cval = 1.655000d-01+s*(-2.063000d-02)+s2*( 5.370000d-02) - A0sea= 1.287000d+00+s*(-2.069000d+00)+s2*( 1.157000d+01) - $ +s3*(-3.570000d+01)+s4*( 3.740000d+01) - B0sea=-2.340000d-01+s*(-4.430000d-01)+s2*( 1.235000d+00) - $ +s3*(-3.720000d+00)+s4*( 3.840000d+00) - BB0sea=6.460000d+00+s*(-1.048000d+01)+s2*( 8.980000d+01) - $ +s3*(-2.847000d+02)+s4*( 2.998000d+02) - C0sea= 5.350000d+00+s*( 1.011000d+01)+s2*(-1.337000d+02) - $ +s3*( 4.270000d+02)+s4*(-4.570000d+02) -c - qv = 1.0d0/alinv/x* - $ (A0val+A1val*x+A2val*x2) * x**Bval * x1**Cval - qsea= 1.0d0/alinv/x* - $ A0sea * x**(B0sea+BB0sea*x) * x1**C0sea -c - qu = qv/3.0d0 + qsea/6.0d0 - qu = qu*x - ZUV=qu - ZUB=qu - qd = qv/12.0d0 + qsea/6.0d0 - qd = qd*x - ZDV=qd - ZDB=qd - ZSB=qd - g = WHIT2G(x,Q2) - g = g*x - ZGL=g -c - if((ic.ne.0) .and. (x*(1.0d0+4.0d0*mc2q2).lt.1.0d0)) then - A0dcv= s*( 1.219000d-01)+s2*( 6.200000d+00) - $ +s3*(-2.504000d+01)+s4*( 3.098000d+01) - A1dcv= s*( 1.913000d+00)+s2*(-7.690000d+01) - $ +s3*( 3.180000d+02)+s4*(-3.920000d+02) - A2dcv= s*(-7.160000d+00)+s2*( 2.503000d+02) - $ +s3*(-1.062000d+03)+s4*( 1.308000d+03) - A3dcv= s*( 3.190000d+00)+s2*(-2.301000d+02) - $ +s3*( 1.012000d+03)+s4*(-1.250000d+03) - Bdcv = 4.990000d-01+s*( 3.470000d+00)+s2*(-1.526000d+01) - $ +s3*( 1.967000d+01) - Cdcv = 3.290000d-01+s*( 8.240000d+00)+s2*(-3.800000d+01) - $ +s3*( 4.630000d+01) - Adcs = s*(-2.786000d-02)+s2*( 3.490000d-02) - $ +s3*(-2.223000d-02) - B0dcs=-3.141000d-01+s*(-4.250000d-01)+s2*( 1.564000d-01) - B1dcs= 4.720000d+00+s*(-5.480000d+00)+s2*( 2.686000d+00) - Cdcs = 2.961000d+00+s*( 7.760000d-01)+s2*(-8.280000d+00) - $ +s3*( 9.780000d+00) -c - dcv = 1.0d0/alinv/x* - $ (A0dcv+x*A1dcv+x2*A2dcv+x2*x*A3dcv) * x**Bdcv * x1**Cdcv - dcs = 1.0d0/alinv/x* - $ Adcs * x**(B0dcs+B1dcs*x) * x1**Cdcs -c - call WHIT2Q(x,mc*mc/Q2,cv,cs) - qc = cv/alinv/2.0d0/PI + cs*alstpi + dcs + dcv - qc = qc*x - ZCB=qc - else - qc = 0.0d0 - ZCB=qc - endif - endif -c - return - end diff --git a/PDF/spdf/sfwhi3.F b/PDF/spdf/sfwhi3.F deleted file mode 100644 index b5ed589a4cc..00000000000 --- a/PDF/spdf/sfwhi3.F +++ /dev/null @@ -1,214 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:44 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:46 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -c------------------------------------------------------- - subroutine SFWHI3(ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZGL) -c------------------------------------------------------- -c WHIT3 parton distribution in the photon -c -c INPUT: integer ic : if ic=0 then qc=0 -c else qc is calculated -c DOUBLE PRECISION Q2 : energy scale Q^2 (GeV^2) -c DOUBLE PRECISION x : energy fraction -c -c OUTPUT: DOUBLE PRECISION qu : up-quark dist. -c DOUBLE PRECISION qd : down- or strange-quark dist. -c DOUBLE PRECISION qc : charm-quark dist. -c DOUBLE PRECISION g : gluon dist. -c------------------------------------------------------- -c Modified by M.Tanaka on July 22, 1994. -c The bug pointed out by M.Drees is fixed. -c------------------------------------------------------- -c Modified by I.Watanabe on July 22, 1994. -c------------------------------------------------------- - implicit none - external whit3g -#include "pdf/expdp.inc" - + ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZGL -c arg - integer ic - DOUBLE PRECISION Q2,x - DOUBLE PRECISION qu,qd,qc,g -c const - DOUBLE PRECISION q42it,q52it,lam42,lam52 - DOUBLE PRECISION alinv,mc,PI -c local - DOUBLE PRECISION qv,qsea,cv,cs,dcv,dcs - DOUBLE PRECISION A0val,A1val,A2val,Bval,Cval, - $ A0sea,B0sea,BB0sea,C0sea - DOUBLE PRECISION A0dcv,A1dcv,A2dcv,A3dcv,Bdcv,Cdcv - DOUBLE PRECISION Adcs, B0dcs, B1dcs, Cdcs - DOUBLE PRECISION x1,x2,mc2q2 - DOUBLE PRECISION s,s2,s3,s4,prsccf,alstpi - DOUBLE PRECISION WHIT3g -c parameters - parameter(lam42=0.16d0, lam52=0.091411319d0) - parameter(Q42IT=4.0d0, Q52IT=100.0d0) - parameter(alinv=137.036d0, mc=1.5d0) - parameter(pi=3.14159265358979323846d0) - common /scale/ s,s2,s3,s4,prsccf -c -c begin - x=ZX - Q2=ZQ*ZQ - ic=1 -c - x1=1.0d0-x - x2=x**2 - mc2q2=mc**2/Q2 -c - if(Q2.lt.100.0d0) then -c under 100 GeV^2 -c -c set scale s - if(Q2.lt.4.0d0) then -cccc for under 4GeV^2 prescription - s= 0.0d0 - prsccf = log(Q2/LAM42)/ log(Q42IT/LAM42) - alstpi = 6.0d0/25.0d0/ log(Q42IT/LAM42) - else - s= log( log(Q2/LAM42)/ log(Q42IT/LAM42)) - prsccf = 1.0d0 - alstpi = 6.0d0/25.0d0/ log(Q2/LAM42) - endif - s2=s**2 - s3=s2*s - s4=s2**2 -c -cccccc WHIT3 quark (U100) -c - A0val= 1.882000d+00+s*( 1.213000d+00)+s2*( 6.970000d-01) - A1val= s*(-2.361000d+00)+s2*(-1.136000d+00) - A2val= s*( 5.280000d-01)+s2*( 2.406000d+00) - Bval = 5.000000d-01+s*( 2.107000d-02)+s2*( 4.130000d-03) - Cval = 2.500000d-01+s*(-2.376000d-01)+s2*( 2.018000d-01) - $ +s3*(-5.040000d-02) - A0sea= 1.587000d+00+s*( 5.050000d+00)+s2*(-1.126000d+01) - $ +s3*( 7.560000d+00)+s4*(-1.471000d+00) - B0sea=-1.006000d-01+s*( 2.259000d-01)+s2*(-1.195000d+00) - $ +s3*( 1.175000d+00)+s4*(-4.460000d-01) - BB0sea=5.730000d+00+s*( 2.564000d+01)+s2*(-5.870000d+01) - $ +s3*( 6.320000d+01)+s4*(-2.577000d+01) - C0sea= 2.136000d+01+s*(-7.290000d+01)+s2*( 1.532000d+02) - $ +s3*(-1.679000d+02)+s4*( 6.740000d+01) -c - qv = prsccf/alinv/x* - $ (A0val+A1val*x+A2val*x2) * x**Bval * x1**Cval - qsea= prsccf/alinv/x* - $ A0sea * x**(B0sea+BB0sea*x) * x1**C0sea -c - qu = qv/3.0d0 + qsea/6.0d0 - qu = qu*x - ZUV=qu - ZUB=qu - qd = qv/12.0d0 + qsea/6.0d0 - qd = qd*x - ZDV=qd - ZDB=qd - ZSB=qd -c - if((ic.ne.0) .and. (x*(1.0d0+4.0d0*mc2q2).lt.1.0d0)) then - call WHIT3Q(x,mc2q2,cv,cs) - qc = cv/alinv/2.0d0/PI + cs*alstpi - qc = qc*x - ZCB=qc - else - qc = 0.0d0 - ZCB=qc - endif -c - g = WHIT3G(x,Q2) - g = g*x - ZGL=g -c - else -c over 100 GeV^2 -c -c set scale s - s= log( log(Q2/LAM52)/ log(Q52IT/LAM52)) - prsccf = 1.0d0 - alstpi = 6.0d0/23.0d0/ log(Q2/LAM52) - s2=s**2 - s3=s2*s - s4=s2**2 -c -cccccc WHIT3 quark (O100) -c - A0val= 3.058000d+00+s*( 2.474000d+00)+s2*( 1.002000d+00) - A1val=-2.182000d+00+s*(-4.480000d+00)+s2*(-2.264000d-01) - A2val= 1.522000d+00+s*( 4.300000d+00)+s2*( 1.315000d+00) - Bval = 5.170000d-01+s*( 4.030000d-02)+s2*(-2.097000d-02) - Cval = 1.655000d-01+s*(-2.064000d-02)+s2*( 5.370000d-02) - A0sea= 1.850000d+00+s*(-3.670000d+00)+s2*( 2.714000d+01) - $ +s3*(-1.066000d+02)+s4*( 1.309000d+02) - B0sea=-2.299000d-01+s*(-4.970000d-01)+s2*( 2.464000d+00) - $ +s3*(-9.950000d+00)+s4*( 1.232000d+01) - BB0sea=1.042000d+01+s*(-1.074000d+01)+s2*( 1.327000d+02) - $ +s3*(-5.390000d+02)+s4*( 6.560000d+02) - C0sea= 4.070000d+00+s*( 4.110000d+00)+s2*(-1.719000d+02) - $ +s3*( 7.070000d+02)+s4*(-8.590000d+02) -c - qv = 1.0d0/alinv/x* - $ (A0val+A1val*x+A2val*x2) * x**Bval * x1**Cval - qsea= 1.0d0/alinv/x* - $ A0sea * x**(B0sea+BB0sea*x) * x1**C0sea -c - qu = qv/3.0d0 + qsea/6.0d0 - qu = qu*x - ZUV=qu - ZUB=qu - qd = qv/12.0d0 + qsea/6.0d0 - qd = qd*x - ZDV=qd - ZDB=qd - ZSB=qd - g = WHIT3G(x,Q2) - g = g*x - ZGL=g -c - if((ic.ne.0) .and. (x*(1.0d0+4.0d0*mc2q2).lt.1.0d0)) then - A0dcv= s*( 1.219000d-01)+s2*( 6.200000d+00) - $ +s3*(-2.504000d+01)+s4*( 3.098000d+01) - A1dcv= s*( 1.913000d+00)+s2*(-7.690000d+01) - $ +s3*( 3.180000d+02)+s4*(-3.920000d+02) - A2dcv= s*(-7.160000d+00)+s2*( 2.503000d+02) - $ +s3*(-1.062000d+03)+s4*( 1.308000d+03) - A3dcv= s*( 3.190000d+00)+s2*(-2.301000d+02) - $ +s3*( 1.012000d+03)+s4*(-1.250000d+03) - Bdcv = 4.990000d-01+s*( 3.470000d+00)+s2*(-1.526000d+01) - $ +s3*( 1.967000d+01) - Cdcv = 3.290000d-01+s*( 8.240000d+00)+s2*(-3.800000d+01) - $ +s3*( 4.630000d+01) - Adcs = s*(-1.948000d-02)+s2*( 2.861000d-02) - $ +s3*(-2.036000d-02) - B0dcs=-4.130000d-01+s*(-4.390000d-01)+s2*( 1.810000d-01) - B1dcs= 5.190000d+00+s*(-7.400000d+00)+s2*( 3.400000d+00) - Cdcs = 2.359000d+00+s*( 9.770000d-01)+s2*(-7.730000d+00) - $ +s3*( 9.480000d+00) -c - dcv = 1.0d0/alinv/x* - $ (A0dcv+x*A1dcv+x2*A2dcv+x2*x*A3dcv) * x**Bdcv * x1**Cdcv - dcs = 1.0d0/alinv/x* - $ Adcs * x**(B0dcs+B1dcs*x) * x1**Cdcs -c - call WHIT3Q(x,mc*mc/Q2,cv,cs) - qc = cv/alinv/2.0d0/PI + cs*alstpi + dcs + dcv - qc = qc*x - ZCB=qc - else - qc = 0.0d0 - ZCB=qc - endif - endif -c - return - end diff --git a/PDF/spdf/sfwhi4.F b/PDF/spdf/sfwhi4.F deleted file mode 100644 index dbcf134f98b..00000000000 --- a/PDF/spdf/sfwhi4.F +++ /dev/null @@ -1,215 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:45 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:46 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -c------------------------------------------------------- - subroutine SFWHI4(ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZGL) -c------------------------------------------------------- -c WHIT4 parton distribution in the photon -c -c INPUT: integer ic : if ic=0 then qc=0 -c else qc is calculated -c DOUBLE PRECISION Q2 : energy scale Q^2 (GeV^2) -c DOUBLE PRECISION x : energy fraction -c -c OUTPUT: DOUBLE PRECISION qu : up-quark dist. -c DOUBLE PRECISION qd : down- or strange-quark dist. -c DOUBLE PRECISION qc : charm-quark dist. -c DOUBLE PRECISION g : gluon dist. -c------------------------------------------------------- -c Modified by M.Tanaka on July 22, 1994. -c The bug pointed out by M.Drees is fixed. -c------------------------------------------------------- -c Modified by I.Watanabe on July 22, 1994. -c------------------------------------------------------- - implicit none - external WHIT4G -#include "pdf/expdp.inc" - + ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZGL -c arg - integer ic - DOUBLE PRECISION Q2,x - DOUBLE PRECISION qu,qd,qc,g -c const - DOUBLE PRECISION q42it,q52it,lam42,lam52 - DOUBLE PRECISION alinv,mc,PI -c local - DOUBLE PRECISION qv,qsea,cv,cs,dcv,dcs - DOUBLE PRECISION A0val,A1val,A2val,Bval,Cval, - $ A0sea,B0sea,BB0sea,C0sea - DOUBLE PRECISION A0dcv,A1dcv,A2dcv,A3dcv,Bdcv,Cdcv - DOUBLE PRECISION Adcs, B0dcs, B1dcs, Cdcs - DOUBLE PRECISION x1,x2,mc2q2 - DOUBLE PRECISION s,s2,s3,s4,prsccf,alstpi - DOUBLE PRECISION WHIT4G -c parameters - parameter(lam42=0.16d0, lam52=0.091411319d0) - parameter(Q42IT=4.0d0, Q52IT=100.0d0) - parameter(alinv=137.036d0, mc=1.5d0) - parameter(pi=3.14159265358979323846d0) - common /scale/ s,s2,s3,s4,prsccf -c -c begin - x=ZX - Q2=ZQ*ZQ - ic=1 -c - x1=1.0d0-x - x2=x**2 - mc2q2=mc**2/Q2 -c - if(Q2.lt.100.0d0) then -c under 100 GeV^2 -c -c set scale s - if(Q2.lt.4.0d0) then -cccc for under 4GeV^2 prescription - s= 0.0d0 - prsccf = log(Q2/LAM42)/ log(Q42IT/LAM42) - alstpi = 6.0d0/25.0d0/ log(Q42IT/LAM42) - else - s= log( log(Q2/LAM42)/ log(Q42IT/LAM42)) - prsccf = 1.0d0 - alstpi = 6.0d0/25.0d0/ log(Q2/LAM42) - endif - s2=s**2 - s3=s2*s - s4=s2**2 -c -cccccc WHIT4 quark (U100) -c - A0val= 2.540000d+00+s*( 2.000000d+00)+s2*( 7.180000d-01) - A1val= 6.230000d-02+s*(-7.010000d+00)+s2*( 1.251000d-01) - A2val=-1.642000d-01+s*(-4.360000d-01)+s2*( 1.048000d+01) - $ +s3*(-5.200000d+00) - Bval = 6.990000d-01+s*(-2.796000d-02)+s2*(-3.650000d-03) - Cval = 4.420000d-01+s*(-1.255000d+00)+s2*( 1.941000d+00) - $ +s3*(-9.950000d-01) - A0sea= 1.308000d+00+s*( 2.315000d+00)+s2*(-7.880000d+00) - $ +s3*( 8.260000d+00)+s4*(-3.004000d+00) - B0sea=-3.730000d-02+s*( 5.630000d-02)+s2*(-1.133000d+00) - $ +s3*( 1.185000d+00)+s4*(-4.180000d-01) - BB0sea=2.103000d+00+s*( 4.850000d+00)+s2*(-1.781000d+01) - $ +s3*( 2.062000d+01)+s4*(-7.940000d+00) - C0sea= 7.000000d+00+s*(-1.017000d+01)+s2*( 2.600000d+01) - $ +s3*(-2.960000d+01)+s4*( 1.227000d+01) -c - qv = prsccf/alinv/x* - $ (A0val+A1val*x+A2val*x2) * x**Bval * x1**Cval - qsea= prsccf/alinv/x* - $ A0sea * x**(B0sea+BB0sea*x) * x1**C0sea -c - qu = qv/3.0d0 + qsea/6.0d0 - qu = qu*x - ZUV=qu - ZUB=qu - qd = qv/12.0d0 + qsea/6.0d0 - qd = qd*x - ZDV=qd - ZDB=qd - ZSB=qd -c - if((ic.ne.0) .and. (x*(1.0d0+4.0d0*mc2q2).lt.1.0d0)) then - call WHIT4Q(x,mc2q2,cv,cs) - qc = cv/alinv/2.0d0/PI + cs*alstpi - qc = qc*x - ZCB=qc - else - qc = 0.0d0 - ZCB=qc - endif -c - g = WHIT4G(x,Q2) - g = g*x - ZGL=g -c - else -c over 100 GeV^2 -c -c set scale s - s= log( log(Q2/LAM52)/ log(Q52IT/LAM52)) - prsccf = 1.0d0 - alstpi = 6.0d0/23.0d0/ log(Q2/LAM52) - s2=s**2 - s3=s2*s - s4=s2**2 -c -cccccc WHIT4 quark (O100) -c - A0val= 4.270000d+00+s*( 3.096000d+00)+s2*( 1.619000d+00) - A1val=-4.740000d+00+s*(-6.900000d+00)+s2*(-2.430000d+00) - A2val= 2.837000d+00+s*( 6.470000d+00)+s2*( 4.090000d+00) - Bval = 6.780000d-01+s*(-3.940000d-02)+s2*( 1.756000d-02) - Cval = 1.728000d-01+s*(-2.479000d-02)+s2*( 1.446000d-01) - A0sea= 1.188000d+00+s*(-1.396000d+00)+s2*( 8.710000d+00) - $ +s3*(-2.542000d+01)+s4*( 2.492000d+01) - B0sea=-2.448000d-01+s*(-4.190000d-01)+s2*( 1.007000d+00) - $ +s3*(-2.689000d+00)+s4*( 2.517000d+00) - BB0sea=1.942000d+00+s*(-6.040000d+00)+s2*( 5.030000d+01) - $ +s3*(-1.478000d+02)+s4*( 1.481000d+02) - C0sea= 5.420000d+00+s*( 6.110000d+00)+s2*(-5.380000d+01) - $ +s3*( 1.632000d+02)+s4*(-1.716000d+02) -c - qv = 1.0d0/alinv/x* - $ (A0val+A1val*x+A2val*x2) * x**Bval * x1**Cval - qsea= 1.0d0/alinv/x* - $ A0sea * x**(B0sea+BB0sea*x) * x1**C0sea -c - qu = qv/3.0d0 + qsea/6.0d0 - qu = qu*x - ZUV=qu - ZUB=qu - qd = qv/12.0d0 + qsea/6.0d0 - qd = qd*x - ZDV=qd - ZDB=qd - ZSB=qd - g = WHIT4G(x,Q2) - g = g*x - ZGL=g -c - if((ic.ne.0) .and. (x*(1.0d0+4.0d0*mc2q2).lt.1.0d0)) then - A0dcv= s*( 1.219000d-01)+s2*( 6.200000d+00) - $ +s3*(-2.504000d+01)+s4*( 3.098000d+01) - A1dcv= s*( 1.913000d+00)+s2*(-7.690000d+01) - $ +s3*( 3.180000d+02)+s4*(-3.920000d+02) - A2dcv= s*(-7.160000d+00)+s2*( 2.503000d+02) - $ +s3*(-1.062000d+03)+s4*( 1.308000d+03) - A3dcv= s*( 3.190000d+00)+s2*(-2.301000d+02) - $ +s3*( 1.012000d+03)+s4*(-1.250000d+03) - Bdcv = 4.990000d-01+s*( 3.470000d+00)+s2*(-1.526000d+01) - $ +s3*( 1.967000d+01) - Cdcv = 3.290000d-01+s*( 8.240000d+00)+s2*(-3.800000d+01) - $ +s3*( 4.630000d+01) - Adcs = s*(-2.821000d-02)+s2*(-2.649000d-04) - $ +s3*( 7.040000d-03) - B0dcs=-3.270000d-01+s*(-2.298000d-01)+s2*( 3.500000d-02) - B1dcs= 1.254000d+00+s*( 8.780000d-01)+s2*( 2.086000d-01) - Cdcs = 4.170000d+00+s*( 6.400000d-01)+s2*(-7.630000d+00) - $ +s3*( 7.170000d+00) -c - dcv = 1.0d0/alinv/x* - $ (A0dcv+x*A1dcv+x2*A2dcv+x2*x*A3dcv) * x**Bdcv * x1**Cdcv - dcs = 1.0d0/alinv/x* - $ Adcs * x**(B0dcs+B1dcs*x) * x1**Cdcs -c - call WHIT4Q(x,mc*mc/Q2,cv,cs) - qc = cv/alinv/2.0d0/PI + cs*alstpi + dcs + dcv - qc = qc*x - ZCB=qc - else - qc = 0.0d0 - ZCB=qc - endif - endif -c - return - end diff --git a/PDF/spdf/sfwhi5.F b/PDF/spdf/sfwhi5.F deleted file mode 100644 index 1ecd7b0a038..00000000000 --- a/PDF/spdf/sfwhi5.F +++ /dev/null @@ -1,215 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:46 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:46 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -c------------------------------------------------------- - subroutine SFWHI5(ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZGL) -c------------------------------------------------------- -c WHIT5 parton distribution in the photon -c -c INPUT: integer ic : if ic=0 then qc=0 -c else qc is calculated -c DOUBLE PRECISION Q2 : energy scale Q^2 (GeV^2) -c DOUBLE PRECISION x : energy fraction -c -c OUTPUT: DOUBLE PRECISION qu : up-quark dist. -c DOUBLE PRECISION qd : down- or strange-quark dist. -c DOUBLE PRECISION qc : charm-quark dist. -c DOUBLE PRECISION g : gluon dist. -c------------------------------------------------------- -c Modified by M.Tanaka on July 22, 1994. -c The bug pointed out by M.Drees is fixed. -c------------------------------------------------------- -c Modified by I.Watanabe on July 22, 1994. -c------------------------------------------------------- - implicit none - external WHIT5G -#include "pdf/expdp.inc" - + ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZGL -c arg - integer ic - DOUBLE PRECISION Q2,x - DOUBLE PRECISION qu,qd,qc,g -c const - DOUBLE PRECISION q42it,q52it,lam42,lam52 - DOUBLE PRECISION alinv,mc,PI -c local - DOUBLE PRECISION qv,qsea,cv,cs,dcv,dcs - DOUBLE PRECISION A0val,A1val,A2val,Bval,Cval, - $ A0sea,B0sea,BB0sea,C0sea - DOUBLE PRECISION A0dcv,A1dcv,A2dcv,A3dcv,Bdcv,Cdcv - DOUBLE PRECISION Adcs, B0dcs, B1dcs, Cdcs - DOUBLE PRECISION x1,x2,mc2q2 - DOUBLE PRECISION s,s2,s3,s4,prsccf,alstpi - DOUBLE PRECISION WHIT5G -c parameters - parameter(lam42=0.16d0, lam52=0.091411319d0) - parameter(Q42IT=4.0d0, Q52IT=100.0d0) - parameter(alinv=137.036d0, mc=1.5d0) - parameter(pi=3.14159265358979323846d0) - common /scale/ s,s2,s3,s4,prsccf -c -c begin - x=ZX - Q2=ZQ*ZQ - ic=1 -c - x1=1.0d0-x - x2=x**2 - mc2q2=mc**2/Q2 -c - if(Q2.lt.100.0d0) then -c under 100 GeV^2 -c -c set scale s - if(Q2.lt.4.0d0) then -cccc for under 4GeV^2 prescription - s= 0.0d0 - prsccf = log(Q2/LAM42)/ log(Q42IT/LAM42) - alstpi = 6.0d0/25.0d0/ log(Q42IT/LAM42) - else - s= log( log(Q2/LAM42)/ log(Q42IT/LAM42)) - prsccf = 1.0d0 - alstpi = 6.0d0/25.0d0/ log(Q2/LAM42) - endif - s2=s**2 - s3=s2*s - s4=s2**2 -c -cccccc WHIT5 quark (U100) -c - A0val= 2.540000d+00+s*( 2.000000d+00)+s2*( 7.180000d-01) - A1val= 6.230000d-02+s*(-7.010000d+00)+s2*( 1.251000d-01) - A2val=-1.642000d-01+s*(-4.360000d-01)+s2*( 1.048000d+01) - $ +s3*(-5.200000d+00) - Bval = 6.990000d-01+s*(-2.796000d-02)+s2*(-3.650000d-03) - Cval = 4.420000d-01+s*(-1.255000d+00)+s2*( 1.941000d+00) - $ +s3*(-9.950000d-01) - A0sea= 2.227000d+00+s*( 5.720000d+00)+s2*(-1.295000d+01) - $ +s3*( 7.220000d+00)+s4*(-2.514000d-01) - B0sea=-8.810000d-02+s*( 1.465000d-01)+s2*(-9.750000d-01) - $ +s3*( 7.820000d-01)+s4*(-2.074000d-01) - BB0sea=3.370000d+00+s*( 1.416000d+01)+s2*(-3.150000d+01) - $ +s3*( 2.789000d+01)+s4*(-8.710000d+00) - C0sea= 1.581000d+01+s*(-3.630000d+01)+s2*( 7.710000d+01) - $ +s3*(-7.810000d+01)+s4*( 2.948000d+01) -c - qv = prsccf/alinv/x* - $ (A0val+A1val*x+A2val*x2) * x**Bval * x1**Cval - qsea= prsccf/alinv/x* - $ A0sea * x**(B0sea+BB0sea*x) * x1**C0sea -c - qu = qv/3.0d0 + qsea/6.0d0 - qu = qu*x - ZUV=qu - ZUB=qu - qd = qv/12.0d0 + qsea/6.0d0 - qd = qd*x - ZDV=qd - ZDB=qd - ZSB=qd -c - if((ic.ne.0) .and. (x*(1.0d0+4.0d0*mc2q2).lt.1.0d0)) then - call WHIT5Q(x,mc2q2,cv,cs) - qc = cv/alinv/2.0d0/PI + cs*alstpi - qc = qc*x - ZCB=qc - else - qc = 0.0d0 - ZCB=qc - endif -c - g = WHIT5G(x,Q2) - g = g*x - ZGL=g -c - else -c over 100 GeV^2 -c -c set scale s - s= log( log(Q2/LAM52)/ log(Q52IT/LAM52)) - prsccf = 1.0d0 - alstpi = 6.0d0/23.0d0/ log(Q2/LAM52) - s2=s**2 - s3=s2*s - s4=s2**2 -c -cccccc WHIT5 quark (O100) -c - A0val= 4.270000d+00+s*( 3.096000d+00)+s2*( 1.617000d+00) - A1val=-4.740000d+00+s*(-6.900000d+00)+s2*(-2.417000d+00) - A2val= 2.837000d+00+s*( 6.470000d+00)+s2*( 4.070000d+00) - Bval = 6.780000d-01+s*(-3.940000d-02)+s2*( 1.750000d-02) - Cval = 1.728000d-01+s*(-2.457000d-02)+s2*( 1.440000d-01) - A0sea= 2.318000d+00+s*(-3.760000d+00)+s2*( 2.026000d+01) - $ +s3*(-5.950000d+01)+s4*( 5.900000d+01) - B0sea=-2.425000d-01+s*(-4.360000d-01)+s2*( 1.241000d+00) - $ +s3*(-3.510000d+00)+s4*( 3.360000d+00) - BB0sea=5.330000d+00+s*(-8.680000d+00)+s2*( 7.420000d+01) - $ +s3*(-2.070000d+02)+s4*( 1.967000d+02) - C0sea= 8.480000d+00+s*( 9.310000d+00)+s2*(-1.041000d+02) - $ +s3*( 2.801000d+02)+s4*(-2.663000d+02) -c - qv = 1.0d0/alinv/x* - $ (A0val+A1val*x+A2val*x2) * x**Bval * x1**Cval - qsea= 1.0d0/alinv/x* - $ A0sea * x**(B0sea+BB0sea*x) * x1**C0sea -c - qu = qv/3.0d0 + qsea/6.0d0 - qu = qu*x - ZUV=qu - ZUB=qu - qd = qv/12.0d0 + qsea/6.0d0 - qd = qd*x - ZDV=qd - ZDB=qd - ZSB=qd - g = WHIT5G(x,Q2) - g = g*x - ZGL=g -c - if((ic.ne.0) .and. (x*(1.0d0+4.0d0*mc2q2).lt.1.0d0)) then - A0dcv= s*( 1.219000d-01)+s2*( 6.200000d+00) - $ +s3*(-2.504000d+01)+s4*( 3.098000d+01) - A1dcv= s*( 1.913000d+00)+s2*(-7.690000d+01) - $ +s3*( 3.180000d+02)+s4*(-3.920000d+02) - A2dcv= s*(-7.160000d+00)+s2*( 2.503000d+02) - $ +s3*(-1.062000d+03)+s4*( 1.308000d+03) - A3dcv= s*( 3.190000d+00)+s2*(-2.301000d+02) - $ +s3*( 1.012000d+03)+s4*(-1.250000d+03) - Bdcv = 4.990000d-01+s*( 3.470000d+00)+s2*(-1.526000d+01) - $ +s3*( 1.967000d+01) - Cdcv = 3.290000d-01+s*( 8.240000d+00)+s2*(-3.800000d+01) - $ +s3*( 4.630000d+01) - Adcs = s*(-6.580000d-02)+s2*( 1.059000d-01) - $ +s3*(-6.630000d-02) - B0dcs=-2.750000d-01+s*(-4.760000d-01)+s2*( 1.191000d-01) - B1dcs= 6.370000d+00+s*(-5.320000d+00)+s2*( 1.986000d+00) - Cdcs = 3.400000d+00+s*( 3.750000d-01)+s2*(-8.790000d+00) - $ +s3*( 1.001000d+01) -c - dcv = 1.0d0/alinv/x* - $ (A0dcv+x*A1dcv+x2*A2dcv+x2*x*A3dcv) * x**Bdcv * x1**Cdcv - dcs = 1.0d0/alinv/x* - $ Adcs * x**(B0dcs+B1dcs*x) * x1**Cdcs -c - call WHIT5Q(x,mc*mc/Q2,cv,cs) - qc = cv/alinv/2.0d0/PI + cs*alstpi + dcs + dcv - qc = qc*x - ZCB=qc - else - qc = 0.0d0 - ZCB=qc - endif - endif -c - return - end diff --git a/PDF/spdf/sfwhi6.F b/PDF/spdf/sfwhi6.F deleted file mode 100644 index 2b905768a41..00000000000 --- a/PDF/spdf/sfwhi6.F +++ /dev/null @@ -1,215 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:46 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:46 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -c------------------------------------------------------- - subroutine SFWHI6(ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZGL) -c------------------------------------------------------- -c WHIT6 parton distribution in the photon -c -c INPUT: integer ic : if ic=0 then qc=0 -c else qc is calculated -c DOUBLE PRECISION Q2 : energy scale Q^2 (GeV^2) -c DOUBLE PRECISION x : energy fraction -c -c OUTPUT: DOUBLE PRECISION qu : up-quark dist. -c DOUBLE PRECISION qd : down- or strange-quark dist. -c DOUBLE PRECISION qc : charm-quark dist. -c DOUBLE PRECISION g : gluon dist. -c------------------------------------------------------- -c Modified by M.Tanaka on July 22, 1994. -c The bug pointed out by M.Drees is fixed. -c------------------------------------------------------- -c Modified by I.Watanabe on July 22, 1994. -c------------------------------------------------------- - implicit none - external WHIT6G -#include "pdf/expdp.inc" - + ZX,ZQ,ZUV,ZDV,ZUB,ZDB,ZSB,ZCB,ZGL -c arg - integer ic - DOUBLE PRECISION Q2,x - DOUBLE PRECISION qu,qd,qc,g -c const - DOUBLE PRECISION q42it,q52it,lam42,lam52 - DOUBLE PRECISION alinv,mc,PI -c local - DOUBLE PRECISION qv,qsea,cv,cs,dcv,dcs - DOUBLE PRECISION A0val,A1val,A2val,Bval,Cval, - $ A0sea,B0sea,BB0sea,C0sea - DOUBLE PRECISION A0dcv,A1dcv,A2dcv,A3dcv,Bdcv,Cdcv - DOUBLE PRECISION Adcs, B0dcs, B1dcs, Cdcs - DOUBLE PRECISION x1,x2,mc2q2 - DOUBLE PRECISION s,s2,s3,s4,prsccf,alstpi - DOUBLE PRECISION WHIT6G -c parameters - parameter(lam42=0.16d0, lam52=0.091411319d0) - parameter(Q42IT=4.0d0, Q52IT=100.0d0) - parameter(alinv=137.036d0, mc=1.5d0) - parameter(pi=3.14159265358979323846d0) - common /scale/ s,s2,s3,s4,prsccf -c -c begin - x=ZX - Q2=ZQ*ZQ - ic=1 -c - x1=1.0d0-x - x2=x**2 - mc2q2=mc**2/Q2 -c - if(Q2.lt.100.0d0) then -c under 100 GeV^2 -c -c set scale s - if(Q2.lt.4.0d0) then -cccc for under 4GeV^2 prescription - s= 0.0d0 - prsccf = log(Q2/LAM42)/ log(Q42IT/LAM42) - alstpi = 6.0d0/25.0d0/ log(Q42IT/LAM42) - else - s= log( log(Q2/LAM42)/ log(Q42IT/LAM42)) - prsccf = 1.0d0 - alstpi = 6.0d0/25.0d0/ log(Q2/LAM42) - endif - s2=s**2 - s3=s2*s - s4=s2**2 -c -cccccc WHIT6 quark (U100) -c - A0val= 2.540000d+00+s*( 2.000000d+00)+s2*( 7.180000d-01) - A1val= 6.230000d-02+s*(-7.010000d+00)+s2*( 1.251000d-01) - A2val=-1.642000d-01+s*(-4.360000d-01)+s2*( 1.048000d+01) - $ +s3*(-5.200000d+00) - Bval = 6.990000d-01+s*(-2.796000d-02)+s2*(-3.650000d-03) - Cval = 4.420000d-01+s*(-1.255000d+00)+s2*( 1.941000d+00) - $ +s3*(-9.950000d-01) - A0sea= 3.180000d+00+s*( 8.690000d+00)+s2*(-2.287000d+01) - $ +s3*( 1.896000d+01)+s4*(-5.140000d+00) - B0sea=-1.003000d-01+s*( 1.603000d-01)+s2*(-1.037000d+00) - $ +s3*( 9.440000d-01)+s4*(-2.915000d-01) - BB0sea=5.690000d+00+s*( 1.867000d+01)+s2*(-4.670000d+01) - $ +s3*( 5.050000d+01)+s4*(-1.835000d+01) - C0sea= 2.149000d+01+s*(-5.650000d+01)+s2*( 1.293000d+02) - $ +s3*(-1.459000d+02)+s4*( 5.750000d+01) -c - qv = prsccf/alinv/x* - $ (A0val+A1val*x+A2val*x2) * x**Bval * x1**Cval - qsea= prsccf/alinv/x* - $ A0sea * x**(B0sea+BB0sea*x) * x1**C0sea -c - qu = qv/3.0d0 + qsea/6.0d0 - qu = qu*x - ZUV=qu - ZUB=qu - qd = qv/12.0d0 + qsea/6.0d0 - qd = qd*x - ZDV=qd - ZDB=qd - ZSB=qd -c - if((ic.ne.0) .and. (x*(1.0d0+4.0d0*mc2q2).lt.1.0d0)) then - call WHIT6Q(x,mc2q2,cv,cs) - qc = cv/alinv/2.0d0/PI + cs*alstpi - qc = qc*x - ZCB=qc - else - qc = 0.0d0 - ZCB=qc - endif -c - g = WHIT6G(x,Q2) - g = g*x - ZGL=g -c - else -c over 100 GeV^2 -c -c set scale s - s= log( log(Q2/LAM52)/ log(Q52IT/LAM52)) - prsccf = 1.0d0 - alstpi = 6.0d0/23.0d0/ log(Q2/LAM52) - s2=s**2 - s3=s2*s - s4=s2**2 -c -cccccc WHIT6 quark (O100) -c - A0val= 4.270000d+00+s*( 3.096000d+00)+s2*( 1.621000d+00) - A1val=-4.740000d+00+s*(-6.900000d+00)+s2*(-2.439000d+00) - A2val= 2.837000d+00+s*( 6.460000d+00)+s2*( 4.100000d+00) - Bval = 6.780000d-01+s*(-3.940000d-02)+s2*( 1.758000d-02) - Cval = 1.728000d-01+s*(-2.493000d-02)+s2*( 1.451000d-01) - A0sea= 3.340000d+00+s*(-5.610000d+00)+s2*( 5.000000d+01) - $ +s3*(-2.207000d+02)+s4*( 3.028000d+02) - B0sea=-2.402000d-01+s*(-4.090000d-01)+s2*( 2.263000d+00) - $ +s3*(-1.050000d+01)+s4*( 1.487000d+01) - BB0sea=8.790000d+00+s*(-8.860000d+00)+s2*( 1.640000d+02) - $ +s3*(-7.120000d+02)+s4*( 9.730000d+02) - C0sea= 9.160000d+00+s*( 9.290000d+00)+s2*(-2.784000d+02) - $ +s3*( 1.175000d+03)+s4*(-1.592000d+03) -c - qv = 1.0d0/alinv/x* - $ (A0val+A1val*x+A2val*x2) * x**Bval * x1**Cval - qsea= 1.0d0/alinv/x* - $ A0sea * x**(B0sea+BB0sea*x) * x1**C0sea -c - qu = qv/3.0d0 + qsea/6.0d0 - qu = qu*x - ZUV=qu - ZUB=qu - qd = qv/12.0d0 + qsea/6.0d0 - qd = qd*x - ZDV=qd - ZDB=qd - ZSB=qd - g = WHIT6G(x,Q2) - g = g*x - ZGL=g -c - if((ic.ne.0) .and. (x*(1.0d0+4.0d0*mc2q2).lt.1.0d0)) then - A0dcv= s*( 1.219000d-01)+s2*( 6.200000d+00) - $ +s3*(-2.504000d+01)+s4*( 3.098000d+01) - A1dcv= s*( 1.913000d+00)+s2*(-7.690000d+01) - $ +s3*( 3.180000d+02)+s4*(-3.920000d+02) - A2dcv= s*(-7.160000d+00)+s2*( 2.503000d+02) - $ +s3*(-1.062000d+03)+s4*( 1.308000d+03) - A3dcv= s*( 3.190000d+00)+s2*(-2.301000d+02) - $ +s3*( 1.012000d+03)+s4*(-1.250000d+03) - Bdcv = 4.990000d-01+s*( 3.470000d+00)+s2*(-1.526000d+01) - $ +s3*( 1.967000d+01) - Cdcv = 3.290000d-01+s*( 8.240000d+00)+s2*(-3.800000d+01) - $ +s3*( 4.630000d+01) - Adcs = s*(-4.990000d-02)+s2*( 1.026000d-01) - $ +s3*(-7.870000d-02) - B0dcs=-3.610000d-01+s*(-5.760000d-01)+s2*( 2.257000d-01) - B1dcs= 7.680000d+00+s*(-8.830000d+00)+s2*( 3.880000d+00) - Cdcs = 2.548000d+00+s*( 6.910000d-01)+s2*(-8.700000d+00) - $ +s3*( 1.065000d+01) -c - dcv = 1.0d0/alinv/x* - $ (A0dcv+x*A1dcv+x2*A2dcv+x2*x*A3dcv) * x**Bdcv * x1**Cdcv - dcs = 1.0d0/alinv/x* - $ Adcs * x**(B0dcs+B1dcs*x) * x1**Cdcs -c - call WHIT6Q(x,mc*mc/Q2,cv,cs) - qc = cv/alinv/2.0d0/PI + cs*alstpi + dcs + dcv - qc = qc*x - ZCB=qc - else - qc = 0.0d0 - ZCB=qc - endif - endif -c - return - end diff --git a/PDF/spdf/smrsp31.F b/PDF/spdf/smrsp31.F deleted file mode 100644 index f8b5f399d5a..00000000000 --- a/PDF/spdf/smrsp31.F +++ /dev/null @@ -1,1091 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:48 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:46 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C - SUBROUTINE SMRSP31(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GLU) -C -C :::::::::::: PION STRUCTURE FUNCTION :: 10% SEA ::::::::::::::::: -C -#include "pdf/impdp.inc" - PARAMETER(NX=50) - PARAMETER(NQ=19) - PARAMETER(NTENTH=21) - DIMENSION F(7,NX,NQ),G(7),XX(NX),N0(7) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),K=1,19)/ - +0.00072, 0.00072, 2.24386, 0.11213, 0.01988, 0.000, 0.11213, - +0.00082, 0.00082, 6.01077, 0.19644, 0.10444, 0.000, 0.19644, - +0.00092, 0.00092, 11.34966, 0.31421, 0.22241, 0.000, 0.31421, - +0.00102, 0.00102, 18.30687, 0.46698, 0.37533, 0.000, 0.46698, - +0.00112, 0.00112, 26.61812, 0.65151, 0.56000, 0.000, 0.65151, - +0.00121, 0.00121, 36.29799, 0.86811, 0.77671, 0.000, 0.86811, - +0.00130, 0.00130, 47.25444, 1.11544, 1.02412, 0.000, 1.11544, - +0.00139, 0.00139, 59.39513, 1.39206, 1.30081, 0.000, 1.39206, - +0.00147, 0.00147, 72.64326, 1.69672, 1.60554, 0.000, 1.69672, - +0.00156, 0.00156, 86.72952, 2.02439, 1.93325, 0.000, 2.02439, - +0.00164, 0.00164,101.74886, 2.37690, 2.28579, 0.000, 2.37690, - +0.00172, 0.00172,117.67394, 2.75387, 2.66280, 0.000, 2.75387, - +0.00180, 0.00180,134.40170, 3.15338, 3.06232, 0.000, 3.15338, - +0.00188, 0.00188,151.60666, 3.56875, 3.47771, 0.000, 3.56875, - +0.00195, 0.00195,169.63820, 4.00718, 3.91615, 0.000, 4.00718, - +0.00203, 0.00203,188.13266, 4.46117, 4.37014, 0.000, 4.46117, - +0.00210, 0.00210,207.15977, 4.93213, 4.84110, 0.000, 4.93213, - +0.00217, 0.00217,226.74255, 5.42058, 5.32954, 0.000, 5.42058, - +0.00225, 0.00225,246.61613, 5.92074, 5.82970, 0.000, 5.92074/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),K=1,19)/ - +0.00111, 0.00111, 2.17742, 0.11231, 0.01866, 0.000, 0.11231, - +0.00127, 0.00127, 5.45977, 0.18890, 0.09544, 0.000, 0.18890, - +0.00142, 0.00142, 9.89892, 0.29189, 0.19860, 0.000, 0.29189, - +0.00156, 0.00156, 15.48984, 0.42156, 0.32840, 0.000, 0.42156, - +0.00170, 0.00170, 21.98996, 0.57446, 0.48139, 0.000, 0.57446, - +0.00183, 0.00183, 29.39132, 0.75029, 0.65731, 0.000, 0.75029, - +0.00196, 0.00196, 37.60687, 0.94755, 0.85465, 0.000, 0.94755, - +0.00209, 0.00209, 46.55520, 1.16480, 1.07194, 0.000, 1.16480, - +0.00221, 0.00221, 56.17102, 1.40079, 1.30799, 0.000, 1.40079, - +0.00233, 0.00233, 66.25191, 1.65147, 1.55870, 0.000, 1.65147, - +0.00245, 0.00245, 76.86617, 1.91814, 1.82539, 0.000, 1.91814, - +0.00256, 0.00256, 87.99162, 2.20039, 2.10766, 0.000, 2.20039, - +0.00267, 0.00267, 99.55288, 2.49666, 2.40395, 0.000, 2.49666, - +0.00278, 0.00278,111.32133, 2.80196, 2.70926, 0.000, 2.80196, - +0.00289, 0.00289,123.54407, 3.12159, 3.02890, 0.000, 3.12159, - +0.00299, 0.00299,135.96835, 3.44999, 3.35730, 0.000, 3.44999, - +0.00309, 0.00309,148.64532, 3.78820, 3.69550, 0.000, 3.78820, - +0.00320, 0.00320,161.59227, 4.13658, 4.04388, 0.000, 4.13658, - +0.00330, 0.00330,174.63095, 4.49097, 4.39826, 0.000, 4.49097/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),K=1,19)/ - +0.00173, 0.00173, 2.11290, 0.11242, 0.01741, 0.000, 0.11242, - +0.00196, 0.00196, 4.95911, 0.18160, 0.08675, 0.000, 0.18160, - +0.00218, 0.00218, 8.63323, 0.27121, 0.17648, 0.000, 0.27121, - +0.00239, 0.00239, 13.10558, 0.38071, 0.28609, 0.000, 0.38071, - +0.00259, 0.00259, 18.16538, 0.50676, 0.41222, 0.000, 0.50676, - +0.00278, 0.00278, 23.79719, 0.64879, 0.55432, 0.000, 0.64879, - +0.00296, 0.00296, 29.92670, 0.80537, 0.71095, 0.000, 0.80537, - +0.00314, 0.00314, 36.48803, 0.97516, 0.88078, 0.000, 0.97516, - +0.00332, 0.00332, 43.43021, 1.15707, 1.06274, 0.000, 1.15707, - +0.00349, 0.00349, 50.60471, 1.34791, 1.25361, 0.000, 1.34791, - +0.00365, 0.00365, 58.06309, 1.54866, 1.45437, 0.000, 1.54866, - +0.00381, 0.00381, 65.78996, 1.75894, 1.66467, 0.000, 1.75894, - +0.00397, 0.00397, 73.73257, 1.97757, 1.88331, 0.000, 1.97757, - +0.00412, 0.00412, 81.73221, 2.20083, 2.10658, 0.000, 2.20083, - +0.00427, 0.00427, 89.96503, 2.43266, 2.33842, 0.000, 2.43266, - +0.00442, 0.00442, 98.25718, 2.66900, 2.57476, 0.000, 2.66900, - +0.00456, 0.00456,106.64689, 2.91061, 2.81637, 0.000, 2.91061, - +0.00470, 0.00470,115.14849, 3.15779, 3.06355, 0.000, 3.15779, - +0.00484, 0.00484,123.64326, 3.40756, 3.31331, 0.000, 3.40756/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),K=1,19)/ - +0.00224, 0.00224, 2.07600, 0.11243, 0.01667, 0.000, 0.11243, - +0.00253, 0.00253, 4.68768, 0.17743, 0.08180, 0.000, 0.17743, - +0.00280, 0.00280, 7.96896, 0.25979, 0.16427, 0.000, 0.25979, - +0.00306, 0.00306, 11.88430, 0.35872, 0.26330, 0.000, 0.35872, - +0.00331, 0.00331, 16.24358, 0.47101, 0.37565, 0.000, 0.47101, - +0.00354, 0.00354, 21.03116, 0.59605, 0.50075, 0.000, 0.59605, - +0.00377, 0.00377, 26.18172, 0.73248, 0.63724, 0.000, 0.73248, - +0.00399, 0.00399, 31.63893, 0.87909, 0.78389, 0.000, 0.87909, - +0.00421, 0.00421, 37.36015, 1.03492, 0.93975, 0.000, 1.03492, - +0.00441, 0.00441, 43.22284, 1.19720, 1.10206, 0.000, 1.19720, - +0.00461, 0.00461, 49.27166, 1.36677, 1.27165, 0.000, 1.36677, - +0.00481, 0.00481, 55.49503, 1.54333, 1.44823, 0.000, 1.54333, - +0.00500, 0.00500, 61.85102, 1.72587, 1.63078, 0.000, 1.72587, - +0.00519, 0.00519, 68.21223, 1.91128, 1.81620, 0.000, 1.91128, - +0.00537, 0.00537, 74.72360, 2.10290, 2.00783, 0.000, 2.10290, - +0.00554, 0.00554, 81.24595, 2.29732, 2.20226, 0.000, 2.29732, - +0.00572, 0.00572, 87.81210, 2.49524, 2.40018, 0.000, 2.49524, - +0.00589, 0.00589, 94.43494, 2.69690, 2.60184, 0.000, 2.69690, - +0.00605, 0.00605,101.02118, 2.89987, 2.80481, 0.000, 2.89987/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),K=1,19)/ - +0.00269, 0.00269, 2.05018, 0.11241, 0.01613, 0.000, 0.11241, - +0.00303, 0.00303, 4.50406, 0.17450, 0.07835, 0.000, 0.17450, - +0.00334, 0.00334, 7.52869, 0.25197, 0.15592, 0.000, 0.25197, - +0.00365, 0.00365, 11.08710, 0.34390, 0.24793, 0.000, 0.34390, - +0.00394, 0.00394, 15.00411, 0.44721, 0.35131, 0.000, 0.44721, - +0.00421, 0.00421, 19.26512, 0.56130, 0.46545, 0.000, 0.56130, - +0.00448, 0.00448, 23.81140, 0.68487, 0.58907, 0.000, 0.68487, - +0.00473, 0.00473, 28.59319, 0.81682, 0.72106, 0.000, 0.81682, - +0.00498, 0.00498, 33.57354, 0.95625, 0.86053, 0.000, 0.95625, - +0.00522, 0.00522, 38.64605, 1.10071, 1.00502, 0.000, 1.10071, - +0.00545, 0.00545, 43.85141, 1.25096, 1.15528, 0.000, 1.25096, - +0.00567, 0.00567, 49.18054, 1.40671, 1.31106, 0.000, 1.40671, - +0.00589, 0.00589, 54.59806, 1.56711, 1.47147, 0.000, 1.56711, - +0.00611, 0.00611, 59.99537, 1.72941, 1.63378, 0.000, 1.72941, - +0.00631, 0.00631, 65.49879, 1.89657, 1.80096, 0.000, 1.89657, - +0.00652, 0.00652, 70.98975, 2.06562, 1.97001, 0.000, 2.06562, - +0.00671, 0.00671, 76.49767, 2.23717, 2.14158, 0.000, 2.23717, - +0.00691, 0.00691, 82.03457, 2.41147, 2.31588, 0.000, 2.41147, - +0.00710, 0.00710, 87.52223, 2.58641, 2.49082, 0.000, 2.58641/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),K=1,19)/ - +0.00310, 0.00310, 2.03035, 0.11238, 0.01571, 0.000, 0.11238, - +0.00348, 0.00348, 4.36654, 0.17225, 0.07570, 0.000, 0.17225, - +0.00384, 0.00384, 7.20387, 0.24607, 0.14961, 0.000, 0.24607, - +0.00418, 0.00418, 10.50550, 0.33283, 0.23646, 0.000, 0.33283, - +0.00450, 0.00450, 14.10781, 0.42960, 0.33329, 0.000, 0.42960, - +0.00481, 0.00481, 17.99749, 0.53576, 0.43951, 0.000, 0.53576, - +0.00511, 0.00511, 22.12087, 0.65011, 0.55391, 0.000, 0.65011, - +0.00540, 0.00540, 26.43316, 0.77161, 0.67544, 0.000, 0.77161, - +0.00567, 0.00567, 30.90157, 0.89942, 0.80329, 0.000, 0.89942, - +0.00594, 0.00594, 35.43105, 1.03132, 0.93521, 0.000, 1.03132, - +0.00620, 0.00620, 40.05954, 1.16799, 1.07191, 0.000, 1.16799, - +0.00645, 0.00645, 44.77979, 1.30920, 1.21315, 0.000, 1.30920, - +0.00669, 0.00669, 49.56099, 1.45416, 1.35813, 0.000, 1.45416, - +0.00693, 0.00693, 54.30733, 1.60042, 1.50440, 0.000, 1.60042, - +0.00716, 0.00716, 59.13235, 1.75065, 1.65465, 0.000, 1.75065, - +0.00739, 0.00739, 63.93156, 1.90220, 1.80621, 0.000, 1.90220, - +0.00761, 0.00761, 68.73198, 2.05561, 1.95963, 0.000, 2.05561, - +0.00782, 0.00782, 73.54510, 2.21114, 2.11517, 0.000, 2.21114, - +0.00803, 0.00803, 78.30254, 2.36689, 2.27093, 0.000, 2.36689/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),K=1,19)/ - +0.00482, 0.00482, 1.96979, 0.11216, 0.01440, 0.000, 0.11216, - +0.00537, 0.00537, 3.96505, 0.16531, 0.06766, 0.000, 0.16531, - +0.00590, 0.00590, 6.28051, 0.22850, 0.13093, 0.000, 0.22850, - +0.00639, 0.00639, 8.88457, 0.30064, 0.20315, 0.000, 0.30064, - +0.00685, 0.00685, 11.64829, 0.37920, 0.28178, 0.000, 0.37920, - +0.00729, 0.00729, 14.56387, 0.46369, 0.36632, 0.000, 0.46369, - +0.00772, 0.00772, 17.59265, 0.55311, 0.45580, 0.000, 0.55311, - +0.00812, 0.00812, 20.70380, 0.64665, 0.54940, 0.000, 0.64665, - +0.00851, 0.00851, 23.87603, 0.74372, 0.64651, 0.000, 0.74372, - +0.00889, 0.00889, 27.04353, 0.84264, 0.74546, 0.000, 0.84264, - +0.00925, 0.00925, 30.23740, 0.94397, 0.84684, 0.000, 0.94397, - +0.00960, 0.00960, 33.45503, 1.04759, 0.95049, 0.000, 1.04759, - +0.00994, 0.00994, 36.67707, 1.15292, 1.05586, 0.000, 1.15292, - +0.01027, 0.01027, 39.83932, 1.25822, 1.16119, 0.000, 1.25822, - +0.01059, 0.01059, 43.02351, 1.36549, 1.26848, 0.000, 1.36549, - +0.01090, 0.01090, 46.15948, 1.47282, 1.37584, 0.000, 1.47282, - +0.01120, 0.01120, 49.26823, 1.58067, 1.48371, 0.000, 1.58067, - +0.01149, 0.01149, 52.35935, 1.68923, 1.59230, 0.000, 1.68923, - +0.01178, 0.01178, 55.38855, 1.79720, 1.70030, 0.000, 1.79720/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),K=1,19)/ - +0.00748, 0.00748, 1.91056, 0.11169, 0.01306, 0.000, 0.11169, - +0.00830, 0.00830, 3.59926, 0.15840, 0.05989, 0.000, 0.15840, - +0.00905, 0.00905, 5.47304, 0.21197, 0.11356, 0.000, 0.21197, - +0.00976, 0.00976, 7.50964, 0.27139, 0.17307, 0.000, 0.27139, - +0.01042, 0.01042, 9.61153, 0.33461, 0.23638, 0.000, 0.33461, - +0.01105, 0.01105, 11.77712, 0.40125, 0.30310, 0.000, 0.40125, - +0.01165, 0.01165, 13.98078, 0.47056, 0.37249, 0.000, 0.47056, - +0.01222, 0.01222, 16.20313, 0.54196, 0.44396, 0.000, 0.54196, - +0.01277, 0.01277, 18.43193, 0.61502, 0.51709, 0.000, 0.61502, - +0.01329, 0.01329, 20.62298, 0.68854, 0.59068, 0.000, 0.68854, - +0.01379, 0.01379, 22.80208, 0.76301, 0.66520, 0.000, 0.76301, - +0.01428, 0.01428, 24.96990, 0.83834, 0.74060, 0.000, 0.83834, - +0.01475, 0.01475, 27.11509, 0.91418, 0.81649, 0.000, 0.91418, - +0.01520, 0.01520, 29.19535, 0.98928, 0.89165, 0.000, 0.98928, - +0.01564, 0.01564, 31.26960, 1.06515, 0.96757, 0.000, 1.06515, - +0.01607, 0.01607, 33.29131, 1.14043, 1.04291, 0.000, 1.14043, - +0.01648, 0.01648, 35.27670, 1.21551, 1.11804, 0.000, 1.21551, - +0.01688, 0.01688, 37.23380, 1.29054, 1.19313, 0.000, 1.29054, - +0.01728, 0.01728, 39.13424, 1.36464, 1.26727, 0.000, 1.36464/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),K=1,19)/ - +0.00969, 0.00969, 1.87635, 0.11126, 0.01226, 0.000, 0.11126, - +0.01070, 0.01070, 3.40017, 0.15432, 0.05546, 0.000, 0.15432, - +0.01163, 0.01163, 5.04784, 0.20269, 0.10396, 0.000, 0.20269, - +0.01250, 0.01250, 6.80315, 0.25547, 0.15685, 0.000, 0.25547, - +0.01331, 0.01331, 8.58499, 0.31087, 0.21236, 0.000, 0.31087, - +0.01408, 0.01408, 10.39520, 0.36857, 0.27017, 0.000, 0.36857, - +0.01482, 0.01482, 12.21461, 0.42799, 0.32969, 0.000, 0.42799, - +0.01551, 0.01551, 14.02934, 0.48865, 0.39044, 0.000, 0.48865, - +0.01617, 0.01617, 15.83132, 0.55021, 0.45210, 0.000, 0.55021, - +0.01681, 0.01681, 17.58610, 0.61171, 0.51367, 0.000, 0.61171, - +0.01742, 0.01742, 19.31686, 0.67356, 0.57562, 0.000, 0.67356, - +0.01800, 0.01800, 21.02560, 0.73575, 0.63789, 0.000, 0.73575, - +0.01857, 0.01857, 22.70437, 0.79800, 0.70022, 0.000, 0.79800, - +0.01912, 0.01912, 24.32034, 0.85930, 0.76159, 0.000, 0.85930, - +0.01964, 0.01964, 25.92213, 0.92091, 0.82328, 0.000, 0.92091, - +0.02016, 0.02016, 27.47338, 0.98175, 0.88420, 0.000, 0.98175, - +0.02065, 0.02065, 28.98800, 1.04215, 0.94467, 0.000, 1.04215, - +0.02113, 0.02113, 30.47314, 1.10226, 1.00485, 0.000, 1.10226, - +0.02160, 0.02160, 31.90709, 1.16136, 1.06402, 0.000, 1.16136/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),K=1,19)/ - +0.01163, 0.01163, 1.85218, 0.11086, 0.01169, 0.000, 0.11086, - +0.01281, 0.01281, 3.26499, 0.15139, 0.05238, 0.000, 0.15139, - +0.01389, 0.01389, 4.76509, 0.19626, 0.09740, 0.000, 0.19626, - +0.01490, 0.01490, 6.34056, 0.24464, 0.14592, 0.000, 0.24464, - +0.01584, 0.01584, 7.92097, 0.29494, 0.19635, 0.000, 0.29494, - +0.01673, 0.01673, 9.51035, 0.34691, 0.24845, 0.000, 0.34691, - +0.01757, 0.01757, 11.09364, 0.40004, 0.30170, 0.000, 0.40004, - +0.01837, 0.01837, 12.66030, 0.45392, 0.35569, 0.000, 0.45392, - +0.01913, 0.01913, 14.20477, 0.50830, 0.41018, 0.000, 0.50830, - +0.01985, 0.01985, 15.69844, 0.56232, 0.46431, 0.000, 0.56232, - +0.02055, 0.02055, 17.16277, 0.61640, 0.51850, 0.000, 0.61640, - +0.02122, 0.02122, 18.60047, 0.67053, 0.57273, 0.000, 0.67053, - +0.02187, 0.02187, 20.00553, 0.72448, 0.62678, 0.000, 0.72448, - +0.02248, 0.02248, 21.35067, 0.77739, 0.67979, 0.000, 0.77739, - +0.02309, 0.02309, 22.67827, 0.83039, 0.73288, 0.000, 0.83039, - +0.02367, 0.02367, 23.95791, 0.88254, 0.78513, 0.000, 0.88254, - +0.02423, 0.02423, 25.20201, 0.93414, 0.83681, 0.000, 0.93414, - +0.02477, 0.02477, 26.41717, 0.98533, 0.88810, 0.000, 0.98533, - +0.02530, 0.02530, 27.58545, 1.03552, 0.93837, 0.000, 1.03552/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),K=1,19)/ - +0.01340, 0.01340, 1.83344, 0.11049, 0.01125, 0.000, 0.11049, - +0.01472, 0.01472, 3.16336, 0.14908, 0.05002, 0.000, 0.14908, - +0.01594, 0.01594, 4.55581, 0.19133, 0.09244, 0.000, 0.19133, - +0.01707, 0.01707, 6.00205, 0.23648, 0.13775, 0.000, 0.23648, - +0.01812, 0.01812, 7.43940, 0.28307, 0.18450, 0.000, 0.28307, - +0.01911, 0.01911, 8.87345, 0.33091, 0.23248, 0.000, 0.33091, - +0.02005, 0.02005, 10.29200, 0.37953, 0.28124, 0.000, 0.37953, - +0.02094, 0.02094, 11.68684, 0.42860, 0.33045, 0.000, 0.42860, - +0.02178, 0.02178, 13.05409, 0.47789, 0.37988, 0.000, 0.47789, - +0.02259, 0.02259, 14.36914, 0.52666, 0.42877, 0.000, 0.52666, - +0.02336, 0.02336, 15.65218, 0.57530, 0.47753, 0.000, 0.57530, - +0.02410, 0.02410, 16.90633, 0.62381, 0.52616, 0.000, 0.62381, - +0.02481, 0.02481, 18.12689, 0.67201, 0.57448, 0.000, 0.67201, - +0.02550, 0.02550, 19.29029, 0.71912, 0.62170, 0.000, 0.71912, - +0.02616, 0.02616, 20.43460, 0.76618, 0.66888, 0.000, 0.76618, - +0.02680, 0.02680, 21.53337, 0.81236, 0.71517, 0.000, 0.81236, - +0.02742, 0.02742, 22.59799, 0.85794, 0.76084, 0.000, 0.85794, - +0.02802, 0.02802, 23.63461, 0.90304, 0.80606, 0.000, 0.90304, - +0.02860, 0.02860, 24.62780, 0.94715, 0.85027, 0.000, 0.94715/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),K=1,19)/ - +0.02081, 0.02081, 1.77474, 0.10892, 0.00987, 0.000, 0.10892, - +0.02270, 0.02270, 2.86371, 0.14165, 0.04288, 0.000, 0.14165, - +0.02443, 0.02443, 3.95580, 0.17628, 0.07779, 0.000, 0.17628, - +0.02602, 0.02602, 5.05108, 0.21227, 0.11405, 0.000, 0.21227, - +0.02750, 0.02750, 6.10785, 0.24858, 0.15061, 0.000, 0.24858, - +0.02888, 0.02888, 7.13565, 0.28512, 0.18738, 0.000, 0.28512, - +0.03018, 0.03018, 8.12957, 0.32162, 0.22411, 0.000, 0.32162, - +0.03140, 0.03140, 9.08714, 0.35787, 0.26058, 0.000, 0.35787, - +0.03257, 0.03257, 10.00852, 0.39377, 0.29669, 0.000, 0.39377, - +0.03367, 0.03367, 10.87888, 0.42883, 0.33195, 0.000, 0.42883, - +0.03472, 0.03472, 11.71477, 0.46337, 0.36669, 0.000, 0.46337, - +0.03572, 0.03572, 12.52012, 0.49744, 0.40096, 0.000, 0.49744, - +0.03669, 0.03669, 13.29315, 0.53094, 0.43464, 0.000, 0.53094, - +0.03761, 0.03761, 14.01917, 0.56336, 0.46724, 0.000, 0.56336, - +0.03850, 0.03850, 14.72531, 0.59545, 0.49951, 0.000, 0.59545, - +0.03935, 0.03935, 15.39467, 0.62666, 0.53090, 0.000, 0.62666, - +0.04017, 0.04017, 16.03585, 0.65721, 0.56161, 0.000, 0.65721, - +0.04097, 0.04097, 16.65368, 0.68721, 0.59178, 0.000, 0.68721, - +0.04174, 0.04174, 17.23866, 0.71632, 0.62104, 0.000, 0.71632/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),K=1,19)/ - +0.03227, 0.03227, 1.71360, 0.10650, 0.00848, 0.000, 0.10650, - +0.03494, 0.03494, 2.58361, 0.13359, 0.03605, 0.000, 0.13359, - +0.03736, 0.03736, 3.41933, 0.16132, 0.06423, 0.000, 0.16132, - +0.03957, 0.03957, 4.22756, 0.18936, 0.09270, 0.000, 0.18936, - +0.04161, 0.04161, 4.98319, 0.21700, 0.12073, 0.000, 0.21700, - +0.04350, 0.04350, 5.69822, 0.24425, 0.14837, 0.000, 0.24425, - +0.04527, 0.04527, 6.37289, 0.27098, 0.17546, 0.000, 0.27098, - +0.04693, 0.04693, 7.00849, 0.29710, 0.20193, 0.000, 0.29710, - +0.04850, 0.04850, 7.60767, 0.32259, 0.22775, 0.000, 0.32259, - +0.04997, 0.04997, 8.16222, 0.34713, 0.25261, 0.000, 0.34713, - +0.05137, 0.05137, 8.68546, 0.37101, 0.27679, 0.000, 0.37101, - +0.05271, 0.05271, 9.18143, 0.39429, 0.30037, 0.000, 0.39429, - +0.05398, 0.05398, 9.65006, 0.41693, 0.32329, 0.000, 0.41693, - +0.05520, 0.05520, 10.08255, 0.43859, 0.34523, 0.000, 0.43859, - +0.05636, 0.05636, 10.49788, 0.45984, 0.36675, 0.000, 0.45984, - +0.05748, 0.05748, 10.88558, 0.48030, 0.38747, 0.000, 0.48030, - +0.05855, 0.05855, 11.25194, 0.50014, 0.40757, 0.000, 0.50014, - +0.05959, 0.05959, 11.60063, 0.51948, 0.42716, 0.000, 0.51948, - +0.06058, 0.06058, 11.92597, 0.53807, 0.44599, 0.000, 0.53807/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),K=1,19)/ - +0.04167, 0.04167, 1.67531, 0.10455, 0.00767, 0.000, 0.10455, - +0.04490, 0.04490, 2.42574, 0.12845, 0.03221, 0.000, 0.12845, - +0.04781, 0.04781, 3.12812, 0.15245, 0.05680, 0.000, 0.15245, - +0.05047, 0.05047, 3.79222, 0.17631, 0.08122, 0.000, 0.17631, - +0.05289, 0.05289, 4.40081, 0.19950, 0.10494, 0.000, 0.19950, - +0.05514, 0.05514, 4.96666, 0.22209, 0.12802, 0.000, 0.22209, - +0.05723, 0.05723, 5.49211, 0.24400, 0.15039, 0.000, 0.24400, - +0.05919, 0.05919, 5.97994, 0.26519, 0.17203, 0.000, 0.26519, - +0.06102, 0.06102, 6.43362, 0.28568, 0.19295, 0.000, 0.28568, - +0.06275, 0.06275, 6.84774, 0.30523, 0.21291, 0.000, 0.30523, - +0.06438, 0.06438, 7.23383, 0.32410, 0.23217, 0.000, 0.32410, - +0.06593, 0.06593, 7.59578, 0.34237, 0.25081, 0.000, 0.34237, - +0.06741, 0.06741, 7.93409, 0.36001, 0.26881, 0.000, 0.36001, - +0.06881, 0.06881, 8.24242, 0.37676, 0.28592, 0.000, 0.37676, - +0.07015, 0.07015, 8.53597, 0.39310, 0.30260, 0.000, 0.39310, - +0.07143, 0.07143, 8.80694, 0.40873, 0.31856, 0.000, 0.40873, - +0.07266, 0.07266, 9.06050, 0.42381, 0.33395, 0.000, 0.42381, - +0.07385, 0.07385, 9.29972, 0.43842, 0.34887, 0.000, 0.43842, - +0.07498, 0.07498, 9.52044, 0.45239, 0.36314, 0.000, 0.45239/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),K=1,19)/ - +0.04991, 0.04991, 1.64618, 0.10295, 0.00712, 0.000, 0.10295, - +0.05359, 0.05359, 2.31435, 0.12466, 0.02960, 0.000, 0.12466, - +0.05688, 0.05688, 2.92734, 0.14612, 0.05179, 0.000, 0.14612, - +0.05987, 0.05987, 3.49690, 0.16721, 0.07354, 0.000, 0.16721, - +0.06259, 0.06259, 4.01077, 0.18748, 0.09444, 0.000, 0.18748, - +0.06509, 0.06509, 4.48200, 0.20703, 0.11458, 0.000, 0.20703, - +0.06742, 0.06742, 4.91412, 0.22583, 0.13394, 0.000, 0.22583, - +0.06959, 0.06959, 5.31061, 0.24387, 0.15251, 0.000, 0.24387, - +0.07162, 0.07162, 5.67536, 0.26119, 0.17034, 0.000, 0.26119, - +0.07352, 0.07352, 6.00453, 0.27761, 0.18723, 0.000, 0.27761, - +0.07532, 0.07532, 6.30843, 0.29335, 0.20344, 0.000, 0.29335, - +0.07702, 0.07702, 6.59075, 0.30850, 0.21903, 0.000, 0.30850, - +0.07864, 0.07864, 6.85226, 0.32305, 0.23400, 0.000, 0.32305, - +0.08016, 0.08016, 7.08802, 0.33679, 0.24815, 0.000, 0.33679, - +0.08163, 0.08163, 7.31088, 0.35013, 0.26189, 0.000, 0.35013, - +0.08302, 0.08302, 7.51459, 0.36283, 0.27497, 0.000, 0.36283, - +0.08435, 0.08435, 7.70359, 0.37502, 0.28753, 0.000, 0.37502, - +0.08564, 0.08564, 7.88052, 0.38678, 0.29965, 0.000, 0.38678, - +0.08686, 0.08686, 8.04214, 0.39797, 0.31119, 0.000, 0.39797/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),K=1,19)/ - +0.05739, 0.05739, 1.62205, 0.10155, 0.00670, 0.000, 0.10155, - +0.06142, 0.06142, 2.22766, 0.12160, 0.02764, 0.000, 0.12160, - +0.06501, 0.06501, 2.77389, 0.14117, 0.04805, 0.000, 0.14117, - +0.06826, 0.06826, 3.27406, 0.16019, 0.06784, 0.000, 0.16019, - +0.07121, 0.07121, 3.71939, 0.17831, 0.08667, 0.000, 0.17831, - +0.07392, 0.07392, 4.12300, 0.19564, 0.10468, 0.000, 0.19564, - +0.07642, 0.07642, 4.48911, 0.21219, 0.12186, 0.000, 0.21219, - +0.07875, 0.07875, 4.82166, 0.22797, 0.13824, 0.000, 0.22797, - +0.08093, 0.08093, 5.12468, 0.24302, 0.15387, 0.000, 0.24302, - +0.08296, 0.08296, 5.39539, 0.25720, 0.16859, 0.000, 0.25720, - +0.08487, 0.08487, 5.64314, 0.27072, 0.18264, 0.000, 0.27072, - +0.08668, 0.08668, 5.87144, 0.28368, 0.19609, 0.000, 0.28368, - +0.08839, 0.08839, 6.08119, 0.29606, 0.20895, 0.000, 0.29606, - +0.09001, 0.09001, 6.26838, 0.30770, 0.22105, 0.000, 0.30770, - +0.09156, 0.09156, 6.44418, 0.31895, 0.23275, 0.000, 0.31895, - +0.09303, 0.09303, 6.60338, 0.32961, 0.24384, 0.000, 0.32961, - +0.09443, 0.09443, 6.74990, 0.33981, 0.25445, 0.000, 0.33981, - +0.09577, 0.09577, 6.88607, 0.34962, 0.26466, 0.000, 0.34962, - +0.09705, 0.09705, 7.00920, 0.35891, 0.27434, 0.000, 0.35891/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),K=1,19)/ - +0.08811, 0.08811, 1.53472, 0.09533, 0.00539, 0.000, 0.09533, - +0.09327, 0.09327, 1.95698, 0.11027, 0.02171, 0.000, 0.11027, - +0.09779, 0.09779, 2.31642, 0.12426, 0.03695, 0.000, 0.12426, - +0.10183, 0.10183, 2.62911, 0.13738, 0.05122, 0.000, 0.13738, - +0.10544, 0.10544, 2.89436, 0.14949, 0.06439, 0.000, 0.14949, - +0.10872, 0.10872, 3.12450, 0.16076, 0.07664, 0.000, 0.16076, - +0.11171, 0.11171, 3.32480, 0.17124, 0.08804, 0.000, 0.17124, - +0.11447, 0.11447, 3.49967, 0.18101, 0.09867, 0.000, 0.18101, - +0.11701, 0.11701, 3.65305, 0.19013, 0.10861, 0.000, 0.19013, - +0.11936, 0.11936, 3.78430, 0.19854, 0.11778, 0.000, 0.19854, - +0.12155, 0.12155, 3.90004, 0.20641, 0.12638, 0.000, 0.20641, - +0.12361, 0.12361, 4.00299, 0.21381, 0.13448, 0.000, 0.21381, - +0.12554, 0.12554, 4.09417, 0.22077, 0.14210, 0.000, 0.22077, - +0.12734, 0.12734, 4.17159, 0.22718, 0.14915, 0.000, 0.22718, - +0.12905, 0.12905, 4.24215, 0.23330, 0.15587, 0.000, 0.23330, - +0.13066, 0.13066, 4.30302, 0.23900, 0.16215, 0.000, 0.23900, - +0.13218, 0.13218, 4.35667, 0.24436, 0.16808, 0.000, 0.24436, - +0.13363, 0.13363, 4.40460, 0.24945, 0.17371, 0.000, 0.24945, - +0.13500, 0.13500, 4.44538, 0.25420, 0.17897, 0.000, 0.25420/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),K=1,19)/ - +0.13363, 0.13363, 1.41572, 0.08496, 0.00410, 0.000, 0.08496, - +0.13958, 0.13958, 1.67114, 0.09496, 0.01608, 0.000, 0.09496, - +0.14466, 0.14466, 1.87224, 0.10385, 0.02673, 0.000, 0.10385, - +0.14909, 0.14909, 2.03503, 0.11183, 0.03630, 0.000, 0.11183, - +0.15297, 0.15297, 2.16313, 0.11889, 0.04480, 0.000, 0.11889, - +0.15642, 0.15642, 2.26660, 0.12522, 0.05246, 0.000, 0.12522, - +0.15951, 0.15951, 2.35033, 0.13091, 0.05938, 0.000, 0.13091, - +0.16229, 0.16229, 2.41809, 0.13605, 0.06565, 0.000, 0.13605, - +0.16483, 0.16483, 2.47300, 0.14069, 0.07136, 0.000, 0.14069, - +0.16711, 0.16711, 2.51528, 0.14483, 0.07650, 0.000, 0.14483, - +0.16921, 0.16921, 2.54913, 0.14860, 0.08120, 0.000, 0.14860, - +0.17115, 0.17115, 2.57633, 0.15206, 0.08554, 0.000, 0.15206, - +0.17294, 0.17294, 2.59764, 0.15522, 0.08954, 0.000, 0.15522, - +0.17458, 0.17458, 2.61213, 0.15803, 0.09316, 0.000, 0.15803, - +0.17611, 0.17611, 2.62364, 0.16066, 0.09655, 0.000, 0.16066, - +0.17753, 0.17753, 2.63074, 0.16304, 0.09964, 0.000, 0.16304, - +0.17886, 0.17886, 2.63478, 0.16522, 0.10251, 0.000, 0.16522, - +0.18010, 0.18010, 2.63655, 0.16724, 0.10519, 0.000, 0.16724, - +0.18125, 0.18125, 2.63537, 0.16906, 0.10765, 0.000, 0.16906/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),K=1,19)/ - +0.16877, 0.16877, 1.32156, 0.07593, 0.00335, 0.000, 0.07593, - +0.17464, 0.17464, 1.48920, 0.08318, 0.01291, 0.000, 0.08318, - +0.17954, 0.17954, 1.61213, 0.08937, 0.02114, 0.000, 0.08937, - +0.18372, 0.18372, 1.70482, 0.09474, 0.02832, 0.000, 0.09474, - +0.18729, 0.18729, 1.77170, 0.09933, 0.03454, 0.000, 0.09933, - +0.19039, 0.19039, 1.82098, 0.10331, 0.04001, 0.000, 0.10331, - +0.19312, 0.19312, 1.85672, 0.10678, 0.04485, 0.000, 0.10678, - +0.19553, 0.19553, 1.88196, 0.10982, 0.04915, 0.000, 0.10982, - +0.19767, 0.19767, 1.89908, 0.11249, 0.05300, 0.000, 0.11249, - +0.19956, 0.19956, 1.90843, 0.11479, 0.05638, 0.000, 0.11479, - +0.20125, 0.20125, 1.91291, 0.11682, 0.05943, 0.000, 0.11682, - +0.20278, 0.20278, 1.91377, 0.11863, 0.06220, 0.000, 0.11863, - +0.20418, 0.20418, 1.91152, 0.12023, 0.06471, 0.000, 0.12023, - +0.20541, 0.20541, 1.90558, 0.12160, 0.06693, 0.000, 0.12160, - +0.20655, 0.20655, 1.89843, 0.12285, 0.06899, 0.000, 0.12285, - +0.20757, 0.20757, 1.88913, 0.12393, 0.07083, 0.000, 0.12393, - +0.20850, 0.20850, 1.87852, 0.12489, 0.07252, 0.000, 0.12489, - +0.20936, 0.20936, 1.86710, 0.12574, 0.07407, 0.000, 0.12574, - +0.21012, 0.21012, 1.85441, 0.12647, 0.07546, 0.000, 0.12647/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),K=1,19)/ - +0.19770, 0.19770, 1.23883, 0.06785, 0.00282, 0.000, 0.06785, - +0.20306, 0.20306, 1.34982, 0.07327, 0.01073, 0.000, 0.07327, - +0.20740, 0.20740, 1.42451, 0.07773, 0.01736, 0.000, 0.07773, - +0.21101, 0.21101, 1.47562, 0.08147, 0.02302, 0.000, 0.08147, - +0.21400, 0.21400, 1.50745, 0.08455, 0.02782, 0.000, 0.08455, - +0.21652, 0.21652, 1.52670, 0.08713, 0.03197, 0.000, 0.08713, - +0.21868, 0.21868, 1.53669, 0.08931, 0.03556, 0.000, 0.08931, - +0.22052, 0.22052, 1.53979, 0.09115, 0.03871, 0.000, 0.09115, - +0.22211, 0.22211, 1.53783, 0.09271, 0.04147, 0.000, 0.09271, - +0.22345, 0.22345, 1.53108, 0.09399, 0.04386, 0.000, 0.09399, - +0.22462, 0.22462, 1.52164, 0.09508, 0.04598, 0.000, 0.09508, - +0.22564, 0.22564, 1.51039, 0.09601, 0.04788, 0.000, 0.09601, - +0.22652, 0.22652, 1.49765, 0.09679, 0.04958, 0.000, 0.09679, - +0.22726, 0.22726, 1.48298, 0.09741, 0.05105, 0.000, 0.09741, - +0.22792, 0.22792, 1.46809, 0.09795, 0.05239, 0.000, 0.09795, - +0.22848, 0.22848, 1.45228, 0.09837, 0.05358, 0.000, 0.09837, - +0.22895, 0.22895, 1.43612, 0.09871, 0.05464, 0.000, 0.09871, - +0.22937, 0.22937, 1.41991, 0.09898, 0.05561, 0.000, 0.09898, - +0.22970, 0.22970, 1.40330, 0.09918, 0.05646, 0.000, 0.09918/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),K=1,19)/ - +0.22220, 0.22220, 1.16328, 0.06055, 0.00242, 0.000, 0.06055, - +0.22677, 0.22677, 1.23427, 0.06466, 0.00909, 0.000, 0.06466, - +0.23033, 0.23033, 1.27612, 0.06792, 0.01456, 0.000, 0.06792, - +0.23318, 0.23318, 1.29987, 0.07055, 0.01915, 0.000, 0.07055, - +0.23543, 0.23543, 1.30937, 0.07263, 0.02296, 0.000, 0.07263, - +0.23724, 0.23724, 1.31007, 0.07430, 0.02620, 0.000, 0.07430, - +0.23871, 0.23871, 1.30461, 0.07565, 0.02897, 0.000, 0.07565, - +0.23989, 0.23989, 1.29485, 0.07674, 0.03134, 0.000, 0.07674, - +0.24085, 0.24085, 1.28214, 0.07761, 0.03340, 0.000, 0.07761, - +0.24158, 0.24158, 1.26664, 0.07827, 0.03516, 0.000, 0.07827, - +0.24216, 0.24216, 1.24992, 0.07879, 0.03669, 0.000, 0.07879, - +0.24261, 0.24261, 1.23255, 0.07919, 0.03804, 0.000, 0.07919, - +0.24295, 0.24295, 1.21473, 0.07950, 0.03923, 0.000, 0.07950, - +0.24316, 0.24316, 1.19609, 0.07968, 0.04024, 0.000, 0.07968, - +0.24331, 0.24331, 1.17783, 0.07981, 0.04116, 0.000, 0.07981, - +0.24338, 0.24338, 1.15941, 0.07987, 0.04195, 0.000, 0.07987, - +0.24338, 0.24338, 1.14120, 0.07987, 0.04265, 0.000, 0.07987, - +0.24333, 0.24333, 1.12337, 0.07983, 0.04327, 0.000, 0.07983, - +0.24322, 0.24322, 1.10564, 0.07974, 0.04380, 0.000, 0.07974/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),K=1,19)/ - +0.24801, 0.24801, 1.07612, 0.05239, 0.00202, 0.000, 0.05239, - +0.25134, 0.25134, 1.11121, 0.05532, 0.00751, 0.000, 0.05532, - +0.25372, 0.25372, 1.12467, 0.05752, 0.01190, 0.000, 0.05752, - +0.25547, 0.25547, 1.12558, 0.05921, 0.01551, 0.000, 0.05921, - +0.25667, 0.25667, 1.11707, 0.06045, 0.01844, 0.000, 0.06045, - +0.25749, 0.25749, 1.10332, 0.06138, 0.02088, 0.000, 0.06138, - +0.25801, 0.25801, 1.08628, 0.06207, 0.02293, 0.000, 0.06207, - +0.25830, 0.25830, 1.06723, 0.06256, 0.02466, 0.000, 0.06256, - +0.25841, 0.25841, 1.04707, 0.06290, 0.02614, 0.000, 0.06290, - +0.25833, 0.25833, 1.02585, 0.06309, 0.02736, 0.000, 0.06309, - +0.25814, 0.25814, 1.00460, 0.06318, 0.02842, 0.000, 0.06318, - +0.25786, 0.25786, 0.98368, 0.06320, 0.02933, 0.000, 0.06320, - +0.25750, 0.25750, 0.96313, 0.06316, 0.03012, 0.000, 0.06316, - +0.25704, 0.25704, 0.94263, 0.06304, 0.03077, 0.000, 0.06304, - +0.25655, 0.25655, 0.92298, 0.06289, 0.03135, 0.000, 0.06289, - +0.25600, 0.25600, 0.90373, 0.06269, 0.03183, 0.000, 0.06269, - +0.25541, 0.25541, 0.88510, 0.06247, 0.03225, 0.000, 0.06247, - +0.25480, 0.25480, 0.86716, 0.06222, 0.03261, 0.000, 0.06222, - +0.25414, 0.25414, 0.84969, 0.06195, 0.03291, 0.000, 0.06195/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),K=1,19)/ - +0.26952, 0.26952, 0.99526, 0.04518, 0.00170, 0.000, 0.04518, - +0.27142, 0.27142, 1.00460, 0.04727, 0.00627, 0.000, 0.04727, - +0.27249, 0.27249, 0.99850, 0.04874, 0.00985, 0.000, 0.04874, - +0.27302, 0.27302, 0.98430, 0.04978, 0.01272, 0.000, 0.04978, - +0.27308, 0.27308, 0.96438, 0.05048, 0.01502, 0.000, 0.05048, - +0.27285, 0.27285, 0.94190, 0.05093, 0.01690, 0.000, 0.05093, - +0.27239, 0.27239, 0.91819, 0.05120, 0.01845, 0.000, 0.05120, - +0.27176, 0.27176, 0.89410, 0.05133, 0.01974, 0.000, 0.05133, - +0.27100, 0.27100, 0.87019, 0.05135, 0.02081, 0.000, 0.05135, - +0.27010, 0.27010, 0.84636, 0.05127, 0.02169, 0.000, 0.05127, - +0.26914, 0.26914, 0.82330, 0.05112, 0.02242, 0.000, 0.05112, - +0.26812, 0.26812, 0.80118, 0.05092, 0.02305, 0.000, 0.05092, - +0.26707, 0.26707, 0.77995, 0.05069, 0.02358, 0.000, 0.05069, - +0.26595, 0.26595, 0.75930, 0.05041, 0.02400, 0.000, 0.05041, - +0.26484, 0.26484, 0.73977, 0.05012, 0.02437, 0.000, 0.05012, - +0.26369, 0.26369, 0.72097, 0.04980, 0.02467, 0.000, 0.04980, - +0.26253, 0.26253, 0.70302, 0.04947, 0.02492, 0.000, 0.04947, - +0.26137, 0.26137, 0.68593, 0.04913, 0.02512, 0.000, 0.04913, - +0.26019, 0.26019, 0.66949, 0.04877, 0.02528, 0.000, 0.04877/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),K=1,19)/ - +0.28744, 0.28744, 0.91965, 0.03881, 0.00144, 0.000, 0.03881, - +0.28780, 0.28780, 0.91010, 0.04029, 0.00527, 0.000, 0.04029, - +0.28748, 0.28748, 0.89026, 0.04124, 0.00820, 0.000, 0.04124, - +0.28673, 0.28673, 0.86590, 0.04185, 0.01053, 0.000, 0.04185, - +0.28563, 0.28563, 0.83872, 0.04218, 0.01235, 0.000, 0.04218, - +0.28432, 0.28432, 0.81099, 0.04232, 0.01381, 0.000, 0.04232, - +0.28285, 0.28285, 0.78357, 0.04233, 0.01499, 0.000, 0.04233, - +0.28130, 0.28130, 0.75694, 0.04224, 0.01596, 0.000, 0.04224, - +0.27968, 0.27968, 0.73139, 0.04207, 0.01675, 0.000, 0.04207, - +0.27798, 0.27798, 0.70670, 0.04183, 0.01738, 0.000, 0.04183, - +0.27625, 0.27625, 0.68332, 0.04154, 0.01790, 0.000, 0.04154, - +0.27453, 0.27453, 0.66125, 0.04124, 0.01833, 0.000, 0.04124, - +0.27281, 0.27281, 0.64040, 0.04091, 0.01869, 0.000, 0.04091, - +0.27106, 0.27106, 0.62048, 0.04055, 0.01896, 0.000, 0.04055, - +0.26935, 0.26935, 0.60180, 0.04019, 0.01919, 0.000, 0.04019, - +0.26763, 0.26763, 0.58405, 0.03982, 0.01937, 0.000, 0.03982, - +0.26593, 0.26593, 0.56726, 0.03944, 0.01951, 0.000, 0.03944, - +0.26427, 0.26427, 0.55140, 0.03907, 0.01962, 0.000, 0.03907, - +0.26260, 0.26260, 0.53630, 0.03868, 0.01970, 0.000, 0.03868/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),K=1,19)/ - +0.30228, 0.30228, 0.84862, 0.03320, 0.00123, 0.000, 0.03320, - +0.30102, 0.30102, 0.82509, 0.03423, 0.00444, 0.000, 0.03423, - +0.29925, 0.29925, 0.79558, 0.03482, 0.00687, 0.000, 0.03482, - +0.29720, 0.29720, 0.76445, 0.03513, 0.00875, 0.000, 0.03513, - +0.29492, 0.29492, 0.73277, 0.03522, 0.01020, 0.000, 0.03522, - +0.29253, 0.29253, 0.70208, 0.03516, 0.01135, 0.000, 0.03516, - +0.29008, 0.29008, 0.67283, 0.03501, 0.01226, 0.000, 0.03501, - +0.28762, 0.28762, 0.64521, 0.03478, 0.01299, 0.000, 0.03478, - +0.28516, 0.28516, 0.61930, 0.03450, 0.01358, 0.000, 0.03450, - +0.28267, 0.28267, 0.59479, 0.03418, 0.01403, 0.000, 0.03418, - +0.28022, 0.28022, 0.57193, 0.03383, 0.01440, 0.000, 0.03383, - +0.27782, 0.27782, 0.55063, 0.03347, 0.01470, 0.000, 0.03347, - +0.27547, 0.27547, 0.53073, 0.03310, 0.01493, 0.000, 0.03310, - +0.27312, 0.27312, 0.51195, 0.03271, 0.01511, 0.000, 0.03271, - +0.27084, 0.27084, 0.49449, 0.03233, 0.01525, 0.000, 0.03233, - +0.26860, 0.26860, 0.47805, 0.03195, 0.01535, 0.000, 0.03195, - +0.26640, 0.26640, 0.46263, 0.03157, 0.01542, 0.000, 0.03157, - +0.26426, 0.26426, 0.44815, 0.03119, 0.01547, 0.000, 0.03119, - +0.26215, 0.26215, 0.43448, 0.03081, 0.01549, 0.000, 0.03081/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),K=1,19)/ - +0.31439, 0.31439, 0.78172, 0.02828, 0.00104, 0.000, 0.02828, - +0.31148, 0.31148, 0.74792, 0.02898, 0.00376, 0.000, 0.02898, - +0.30824, 0.30824, 0.71170, 0.02931, 0.00576, 0.000, 0.02931, - +0.30488, 0.30488, 0.67621, 0.02942, 0.00730, 0.000, 0.02942, - +0.30143, 0.30143, 0.64194, 0.02935, 0.00846, 0.000, 0.02935, - +0.29798, 0.29798, 0.60983, 0.02918, 0.00936, 0.000, 0.02918, - +0.29457, 0.29457, 0.58001, 0.02893, 0.01007, 0.000, 0.02893, - +0.29123, 0.29123, 0.55241, 0.02863, 0.01062, 0.000, 0.02863, - +0.28796, 0.28796, 0.52694, 0.02830, 0.01106, 0.000, 0.02830, - +0.28473, 0.28473, 0.50325, 0.02793, 0.01139, 0.000, 0.02793, - +0.28159, 0.28159, 0.48140, 0.02756, 0.01164, 0.000, 0.02756, - +0.27854, 0.27854, 0.46125, 0.02719, 0.01185, 0.000, 0.02719, - +0.27560, 0.27560, 0.44261, 0.02681, 0.01200, 0.000, 0.02681, - +0.27269, 0.27269, 0.42520, 0.02642, 0.01211, 0.000, 0.02642, - +0.26990, 0.26990, 0.40911, 0.02605, 0.01219, 0.000, 0.02605, - +0.26716, 0.26716, 0.39408, 0.02567, 0.01223, 0.000, 0.02567, - +0.26451, 0.26451, 0.38008, 0.02531, 0.01226, 0.000, 0.02531, - +0.26194, 0.26194, 0.36701, 0.02495, 0.01227, 0.000, 0.02495, - +0.25942, 0.25942, 0.35475, 0.02460, 0.01226, 0.000, 0.02460/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),K=1,19)/ - +0.32405, 0.32405, 0.71862, 0.02396, 0.00089, 0.000, 0.02396, - +0.31946, 0.31946, 0.67737, 0.02443, 0.00318, 0.000, 0.02443, - +0.31476, 0.31476, 0.63667, 0.02458, 0.00484, 0.000, 0.02458, - +0.31012, 0.31012, 0.59860, 0.02456, 0.00609, 0.000, 0.02456, - +0.30552, 0.30552, 0.56311, 0.02439, 0.00703, 0.000, 0.02439, - +0.30104, 0.30104, 0.53068, 0.02414, 0.00774, 0.000, 0.02414, - +0.29671, 0.29671, 0.50112, 0.02384, 0.00828, 0.000, 0.02384, - +0.29252, 0.29252, 0.47420, 0.02351, 0.00870, 0.000, 0.02351, - +0.28848, 0.28848, 0.44969, 0.02316, 0.00902, 0.000, 0.02316, - +0.28455, 0.28455, 0.42719, 0.02279, 0.00926, 0.000, 0.02279, - +0.28076, 0.28076, 0.40665, 0.02242, 0.00944, 0.000, 0.02242, - +0.27712, 0.27712, 0.38788, 0.02205, 0.00957, 0.000, 0.02205, - +0.27362, 0.27362, 0.37064, 0.02168, 0.00967, 0.000, 0.02168, - +0.27020, 0.27020, 0.35468, 0.02132, 0.00973, 0.000, 0.02132, - +0.26693, 0.26693, 0.34001, 0.02096, 0.00977, 0.000, 0.02096, - +0.26376, 0.26376, 0.32641, 0.02062, 0.00978, 0.000, 0.02062, - +0.26069, 0.26069, 0.31381, 0.02028, 0.00978, 0.000, 0.02028, - +0.25773, 0.25773, 0.30211, 0.01995, 0.00977, 0.000, 0.01995, - +0.25485, 0.25485, 0.29120, 0.01963, 0.00974, 0.000, 0.01963/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),K=1,19)/ - +0.33149, 0.33149, 0.65909, 0.02019, 0.00076, 0.000, 0.02019, - +0.32523, 0.32523, 0.61263, 0.02049, 0.00269, 0.000, 0.02049, - +0.31909, 0.31909, 0.56916, 0.02053, 0.00407, 0.000, 0.02053, - +0.31318, 0.31318, 0.52981, 0.02042, 0.00509, 0.000, 0.02042, - +0.30747, 0.30747, 0.49411, 0.02019, 0.00584, 0.000, 0.02019, - +0.30200, 0.30200, 0.46210, 0.01991, 0.00640, 0.000, 0.01991, - +0.29678, 0.29678, 0.43340, 0.01960, 0.00682, 0.000, 0.01960, - +0.29179, 0.29179, 0.40760, 0.01926, 0.00713, 0.000, 0.01926, - +0.28703, 0.28703, 0.38438, 0.01891, 0.00737, 0.000, 0.01891, - +0.28244, 0.28244, 0.36330, 0.01855, 0.00754, 0.000, 0.01855, - +0.27806, 0.27806, 0.34422, 0.01820, 0.00766, 0.000, 0.01820, - +0.27387, 0.27387, 0.32691, 0.01785, 0.00775, 0.000, 0.01785, - +0.26987, 0.26987, 0.31113, 0.01751, 0.00780, 0.000, 0.01751, - +0.26598, 0.26598, 0.29663, 0.01718, 0.00783, 0.000, 0.01718, - +0.26228, 0.26228, 0.28338, 0.01685, 0.00784, 0.000, 0.01685, - +0.25871, 0.25871, 0.27117, 0.01654, 0.00784, 0.000, 0.01654, - +0.25527, 0.25527, 0.25991, 0.01623, 0.00782, 0.000, 0.01623, - +0.25196, 0.25196, 0.24951, 0.01594, 0.00779, 0.000, 0.01594, - +0.24876, 0.24876, 0.23985, 0.01565, 0.00775, 0.000, 0.01565/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),K=1,19)/ - +0.33689, 0.33689, 0.60295, 0.01692, 0.00064, 0.000, 0.01692, - +0.32898, 0.32898, 0.55305, 0.01710, 0.00226, 0.000, 0.01710, - +0.32142, 0.32142, 0.50814, 0.01706, 0.00341, 0.000, 0.01706, - +0.31430, 0.31430, 0.46852, 0.01690, 0.00424, 0.000, 0.01690, - +0.30752, 0.30752, 0.43334, 0.01665, 0.00484, 0.000, 0.01665, - +0.30111, 0.30111, 0.40231, 0.01636, 0.00528, 0.000, 0.01636, - +0.29505, 0.29505, 0.37485, 0.01604, 0.00561, 0.000, 0.01604, - +0.28932, 0.28932, 0.35047, 0.01571, 0.00584, 0.000, 0.01571, - +0.28389, 0.28389, 0.32873, 0.01539, 0.00602, 0.000, 0.01539, - +0.27869, 0.27869, 0.30919, 0.01505, 0.00613, 0.000, 0.01505, - +0.27376, 0.27376, 0.29164, 0.01472, 0.00621, 0.000, 0.01472, - +0.26908, 0.26908, 0.27583, 0.01441, 0.00627, 0.000, 0.01441, - +0.26461, 0.26461, 0.26150, 0.01410, 0.00629, 0.000, 0.01410, - +0.26031, 0.26031, 0.24844, 0.01380, 0.00630, 0.000, 0.01380, - +0.25623, 0.25623, 0.23655, 0.01351, 0.00629, 0.000, 0.01351, - +0.25230, 0.25230, 0.22566, 0.01322, 0.00628, 0.000, 0.01322, - +0.24854, 0.24854, 0.21566, 0.01295, 0.00625, 0.000, 0.01295, - +0.24493, 0.24493, 0.20646, 0.01269, 0.00621, 0.000, 0.01269, - +0.24144, 0.24144, 0.19796, 0.01244, 0.00617, 0.000, 0.01244/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),K=1,19)/ - +0.34038, 0.34038, 0.55000, 0.01409, 0.00054, 0.000, 0.01409, - +0.33086, 0.33086, 0.49811, 0.01419, 0.00191, 0.000, 0.01419, - +0.32194, 0.32194, 0.45280, 0.01409, 0.00285, 0.000, 0.01409, - +0.31364, 0.31364, 0.41367, 0.01391, 0.00353, 0.000, 0.01391, - +0.30585, 0.30585, 0.37955, 0.01365, 0.00401, 0.000, 0.01365, - +0.29855, 0.29855, 0.34988, 0.01337, 0.00435, 0.000, 0.01337, - +0.29171, 0.29171, 0.32394, 0.01307, 0.00460, 0.000, 0.01307, - +0.28529, 0.28529, 0.30114, 0.01276, 0.00478, 0.000, 0.01276, - +0.27924, 0.27924, 0.28100, 0.01246, 0.00490, 0.000, 0.01246, - +0.27350, 0.27350, 0.26305, 0.01216, 0.00498, 0.000, 0.01216, - +0.26807, 0.26807, 0.24704, 0.01186, 0.00503, 0.000, 0.01186, - +0.26293, 0.26293, 0.23271, 0.01158, 0.00506, 0.000, 0.01158, - +0.25806, 0.25806, 0.21981, 0.01130, 0.00507, 0.000, 0.01130, - +0.25339, 0.25339, 0.20811, 0.01104, 0.00506, 0.000, 0.01104, - +0.24897, 0.24897, 0.19752, 0.01078, 0.00504, 0.000, 0.01078, - +0.24474, 0.24474, 0.18786, 0.01053, 0.00502, 0.000, 0.01053, - +0.24069, 0.24069, 0.17904, 0.01030, 0.00499, 0.000, 0.01030, - +0.23682, 0.23682, 0.17095, 0.01007, 0.00495, 0.000, 0.01007, - +0.23310, 0.23310, 0.16351, 0.00986, 0.00491, 0.000, 0.00986/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),K=1,19)/ - +0.34210, 0.34210, 0.50014, 0.01166, 0.00046, 0.000, 0.01166, - +0.33100, 0.33100, 0.44741, 0.01170, 0.00160, 0.000, 0.01170, - +0.32077, 0.32077, 0.40251, 0.01159, 0.00238, 0.000, 0.01159, - +0.31136, 0.31136, 0.36445, 0.01139, 0.00293, 0.000, 0.01139, - +0.30261, 0.30261, 0.33180, 0.01115, 0.00331, 0.000, 0.01115, - +0.29449, 0.29449, 0.30375, 0.01088, 0.00358, 0.000, 0.01088, - +0.28693, 0.28693, 0.27950, 0.01060, 0.00377, 0.000, 0.01060, - +0.27988, 0.27988, 0.25838, 0.01032, 0.00390, 0.000, 0.01032, - +0.27327, 0.27327, 0.23988, 0.01005, 0.00399, 0.000, 0.01005, - +0.26703, 0.26703, 0.22352, 0.00978, 0.00404, 0.000, 0.00978, - +0.26115, 0.26115, 0.20903, 0.00952, 0.00407, 0.000, 0.00952, - +0.25562, 0.25562, 0.19614, 0.00927, 0.00408, 0.000, 0.00927, - +0.25040, 0.25040, 0.18460, 0.00903, 0.00408, 0.000, 0.00903, - +0.24541, 0.24541, 0.17420, 0.00880, 0.00406, 0.000, 0.00880, - +0.24070, 0.24070, 0.16482, 0.00857, 0.00404, 0.000, 0.00857, - +0.23620, 0.23620, 0.15631, 0.00836, 0.00401, 0.000, 0.00836, - +0.23191, 0.23191, 0.14856, 0.00816, 0.00397, 0.000, 0.00816, - +0.22783, 0.22783, 0.14148, 0.00797, 0.00394, 0.000, 0.00797, - +0.22391, 0.22391, 0.13500, 0.00778, 0.00389, 0.000, 0.00778/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),K=1,19)/ - +0.34217, 0.34217, 0.45324, 0.00957, 0.00039, 0.000, 0.00957, - +0.32955, 0.32955, 0.40063, 0.00958, 0.00134, 0.000, 0.00958, - +0.31807, 0.31807, 0.35679, 0.00945, 0.00198, 0.000, 0.00945, - +0.30762, 0.30762, 0.32024, 0.00926, 0.00242, 0.000, 0.00926, - +0.29797, 0.29797, 0.28933, 0.00903, 0.00272, 0.000, 0.00903, - +0.28909, 0.28909, 0.26308, 0.00879, 0.00293, 0.000, 0.00879, - +0.28088, 0.28088, 0.24062, 0.00854, 0.00307, 0.000, 0.00854, - +0.27325, 0.27325, 0.22122, 0.00829, 0.00317, 0.000, 0.00829, - +0.26615, 0.26615, 0.20436, 0.00805, 0.00323, 0.000, 0.00805, - +0.25946, 0.25946, 0.18957, 0.00781, 0.00326, 0.000, 0.00781, - +0.25320, 0.25320, 0.17656, 0.00758, 0.00327, 0.000, 0.00758, - +0.24733, 0.24733, 0.16504, 0.00737, 0.00327, 0.000, 0.00737, - +0.24180, 0.24180, 0.15478, 0.00716, 0.00326, 0.000, 0.00716, - +0.23653, 0.23653, 0.14559, 0.00696, 0.00324, 0.000, 0.00696, - +0.23158, 0.23158, 0.13733, 0.00677, 0.00322, 0.000, 0.00677, - +0.22687, 0.22687, 0.12987, 0.00659, 0.00319, 0.000, 0.00659, - +0.22239, 0.22239, 0.12311, 0.00642, 0.00315, 0.000, 0.00642, - +0.21813, 0.21813, 0.11696, 0.00626, 0.00312, 0.000, 0.00626, - +0.21406, 0.21406, 0.11134, 0.00610, 0.00308, 0.000, 0.00610/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),K=1,19)/ - +0.34066, 0.34066, 0.40920, 0.00781, 0.00032, 0.000, 0.00781, - +0.32661, 0.32661, 0.35748, 0.00779, 0.00111, 0.000, 0.00779, - +0.31394, 0.31394, 0.31522, 0.00766, 0.00164, 0.000, 0.00766, - +0.30251, 0.30251, 0.28050, 0.00749, 0.00199, 0.000, 0.00749, - +0.29205, 0.29205, 0.25152, 0.00728, 0.00223, 0.000, 0.00728, - +0.28248, 0.28248, 0.22718, 0.00706, 0.00239, 0.000, 0.00706, - +0.27368, 0.27368, 0.20654, 0.00684, 0.00250, 0.000, 0.00684, - +0.26554, 0.26554, 0.18887, 0.00662, 0.00256, 0.000, 0.00662, - +0.25800, 0.25800, 0.17363, 0.00641, 0.00261, 0.000, 0.00641, - +0.25093, 0.25093, 0.16035, 0.00621, 0.00262, 0.000, 0.00621, - +0.24434, 0.24434, 0.14874, 0.00601, 0.00262, 0.000, 0.00601, - +0.23817, 0.23817, 0.13852, 0.00583, 0.00262, 0.000, 0.00583, - +0.23239, 0.23239, 0.12946, 0.00565, 0.00260, 0.000, 0.00565, - +0.22691, 0.22691, 0.12138, 0.00549, 0.00258, 0.000, 0.00549, - +0.22176, 0.22176, 0.11416, 0.00533, 0.00255, 0.000, 0.00533, - +0.21687, 0.21687, 0.10766, 0.00518, 0.00252, 0.000, 0.00518, - +0.21224, 0.21224, 0.10179, 0.00503, 0.00249, 0.000, 0.00503, - +0.20784, 0.20784, 0.09647, 0.00490, 0.00246, 0.000, 0.00490, - +0.20365, 0.20365, 0.09163, 0.00477, 0.00243, 0.000, 0.00477/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),K=1,19)/ - +0.33768, 0.33768, 0.36793, 0.00630, 0.00027, 0.000, 0.00630, - +0.32226, 0.32226, 0.31772, 0.00627, 0.00092, 0.000, 0.00627, - +0.30849, 0.30849, 0.27742, 0.00615, 0.00134, 0.000, 0.00615, - +0.29616, 0.29616, 0.24476, 0.00600, 0.00163, 0.000, 0.00600, - +0.28496, 0.28496, 0.21785, 0.00581, 0.00181, 0.000, 0.00581, - +0.27477, 0.27477, 0.19547, 0.00562, 0.00194, 0.000, 0.00562, - +0.26544, 0.26544, 0.17666, 0.00543, 0.00201, 0.000, 0.00543, - +0.25687, 0.25687, 0.16070, 0.00524, 0.00206, 0.000, 0.00524, - +0.24895, 0.24895, 0.14702, 0.00506, 0.00209, 0.000, 0.00506, - +0.24156, 0.24156, 0.13518, 0.00489, 0.00209, 0.000, 0.00489, - +0.23469, 0.23469, 0.12489, 0.00473, 0.00209, 0.000, 0.00473, - +0.22829, 0.22829, 0.11588, 0.00457, 0.00208, 0.000, 0.00457, - +0.22230, 0.22230, 0.10794, 0.00442, 0.00206, 0.000, 0.00442, - +0.21665, 0.21665, 0.10089, 0.00428, 0.00204, 0.000, 0.00428, - +0.21135, 0.21135, 0.09461, 0.00415, 0.00202, 0.000, 0.00415, - +0.20633, 0.20633, 0.08898, 0.00403, 0.00199, 0.000, 0.00403, - +0.20159, 0.20159, 0.08392, 0.00391, 0.00196, 0.000, 0.00391, - +0.19710, 0.19710, 0.07935, 0.00379, 0.00193, 0.000, 0.00379, - +0.19283, 0.19283, 0.07520, 0.00369, 0.00190, 0.000, 0.00369/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),K=1,19)/ - +0.33330, 0.33330, 0.32933, 0.00505, 0.00022, 0.000, 0.00505, - +0.31660, 0.31660, 0.28113, 0.00502, 0.00076, 0.000, 0.00502, - +0.30182, 0.30182, 0.24308, 0.00491, 0.00110, 0.000, 0.00491, - +0.28866, 0.28866, 0.21266, 0.00477, 0.00132, 0.000, 0.00477, - +0.27680, 0.27680, 0.18787, 0.00461, 0.00147, 0.000, 0.00461, - +0.26606, 0.26606, 0.16747, 0.00444, 0.00156, 0.000, 0.00444, - +0.25628, 0.25628, 0.15047, 0.00428, 0.00162, 0.000, 0.00428, - +0.24733, 0.24733, 0.13615, 0.00413, 0.00165, 0.000, 0.00413, - +0.23910, 0.23910, 0.12396, 0.00397, 0.00167, 0.000, 0.00397, - +0.23145, 0.23145, 0.11349, 0.00383, 0.00167, 0.000, 0.00383, - +0.22437, 0.22437, 0.10444, 0.00369, 0.00166, 0.000, 0.00369, - +0.21779, 0.21779, 0.09655, 0.00356, 0.00165, 0.000, 0.00356, - +0.21165, 0.21165, 0.08963, 0.00344, 0.00163, 0.000, 0.00344, - +0.20586, 0.20586, 0.08352, 0.00333, 0.00161, 0.000, 0.00333, - +0.20046, 0.20046, 0.07809, 0.00322, 0.00158, 0.000, 0.00322, - +0.19536, 0.19536, 0.07325, 0.00311, 0.00156, 0.000, 0.00311, - +0.19055, 0.19055, 0.06892, 0.00302, 0.00153, 0.000, 0.00302, - +0.18601, 0.18601, 0.06501, 0.00293, 0.00151, 0.000, 0.00293, - +0.18169, 0.18169, 0.06148, 0.00284, 0.00148, 0.000, 0.00284/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),K=1,19)/ - +0.32758, 0.32758, 0.29333, 0.00400, 0.00018, 0.000, 0.00400, - +0.30969, 0.30969, 0.24754, 0.00396, 0.00062, 0.000, 0.00396, - +0.29399, 0.29399, 0.21195, 0.00387, 0.00089, 0.000, 0.00387, - +0.28011, 0.28011, 0.18386, 0.00375, 0.00107, 0.000, 0.00375, - +0.26767, 0.26767, 0.16123, 0.00361, 0.00118, 0.000, 0.00361, - +0.25646, 0.25646, 0.14278, 0.00347, 0.00125, 0.000, 0.00347, - +0.24630, 0.24630, 0.12754, 0.00334, 0.00129, 0.000, 0.00334, - +0.23704, 0.23704, 0.11479, 0.00321, 0.00131, 0.000, 0.00321, - +0.22857, 0.22857, 0.10402, 0.00308, 0.00132, 0.000, 0.00308, - +0.22072, 0.22072, 0.09483, 0.00296, 0.00131, 0.000, 0.00296, - +0.21348, 0.21348, 0.08692, 0.00285, 0.00130, 0.000, 0.00285, - +0.20677, 0.20677, 0.08007, 0.00274, 0.00129, 0.000, 0.00274, - +0.20053, 0.20053, 0.07408, 0.00264, 0.00127, 0.000, 0.00264, - +0.19467, 0.19467, 0.06882, 0.00255, 0.00125, 0.000, 0.00255, - +0.18920, 0.18920, 0.06417, 0.00246, 0.00123, 0.000, 0.00246, - +0.18406, 0.18406, 0.06003, 0.00238, 0.00121, 0.000, 0.00238, - +0.17922, 0.17922, 0.05634, 0.00230, 0.00119, 0.000, 0.00230, - +0.17466, 0.17466, 0.05303, 0.00223, 0.00116, 0.000, 0.00223, - +0.17034, 0.17034, 0.05004, 0.00216, 0.00114, 0.000, 0.00216/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),K=1,19)/ - +0.32061, 0.32061, 0.25985, 0.00314, 0.00015, 0.000, 0.00314, - +0.30163, 0.30163, 0.21678, 0.00310, 0.00050, 0.000, 0.00310, - +0.28510, 0.28510, 0.18380, 0.00302, 0.00071, 0.000, 0.00302, - +0.27059, 0.27059, 0.15808, 0.00292, 0.00085, 0.000, 0.00292, - +0.25765, 0.25765, 0.13760, 0.00281, 0.00094, 0.000, 0.00281, - +0.24606, 0.24606, 0.12106, 0.00269, 0.00099, 0.000, 0.00269, - +0.23561, 0.23561, 0.10751, 0.00258, 0.00102, 0.000, 0.00258, - +0.22612, 0.22612, 0.09625, 0.00247, 0.00103, 0.000, 0.00247, - +0.21746, 0.21746, 0.08680, 0.00237, 0.00103, 0.000, 0.00237, - +0.20948, 0.20948, 0.07879, 0.00227, 0.00102, 0.000, 0.00227, - +0.20213, 0.20213, 0.07194, 0.00218, 0.00101, 0.000, 0.00218, - +0.19534, 0.19534, 0.06603, 0.00210, 0.00100, 0.000, 0.00210, - +0.18904, 0.18904, 0.06089, 0.00202, 0.00098, 0.000, 0.00202, - +0.18315, 0.18315, 0.05640, 0.00194, 0.00097, 0.000, 0.00194, - +0.17767, 0.17767, 0.05244, 0.00187, 0.00095, 0.000, 0.00187, - +0.17253, 0.17253, 0.04893, 0.00181, 0.00093, 0.000, 0.00181, - +0.16769, 0.16769, 0.04581, 0.00174, 0.00091, 0.000, 0.00174, - +0.16315, 0.16315, 0.04302, 0.00169, 0.00089, 0.000, 0.00169, - +0.15886, 0.15886, 0.04051, 0.00163, 0.00087, 0.000, 0.00163/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),K=1,19)/ - +0.31240, 0.31240, 0.22879, 0.00242, 0.00012, 0.000, 0.00242, - +0.29246, 0.29246, 0.18866, 0.00240, 0.00040, 0.000, 0.00240, - +0.27522, 0.27522, 0.15839, 0.00233, 0.00057, 0.000, 0.00233, - +0.26017, 0.26017, 0.13507, 0.00225, 0.00067, 0.000, 0.00225, - +0.24683, 0.24683, 0.11669, 0.00215, 0.00074, 0.000, 0.00215, - +0.23494, 0.23494, 0.10198, 0.00206, 0.00077, 0.000, 0.00206, - +0.22426, 0.22426, 0.09003, 0.00197, 0.00079, 0.000, 0.00197, - +0.21460, 0.21460, 0.08018, 0.00188, 0.00080, 0.000, 0.00188, - +0.20582, 0.20582, 0.07197, 0.00180, 0.00080, 0.000, 0.00180, - +0.19776, 0.19776, 0.06504, 0.00172, 0.00079, 0.000, 0.00172, - +0.19037, 0.19037, 0.05916, 0.00165, 0.00078, 0.000, 0.00165, - +0.18356, 0.18356, 0.05410, 0.00158, 0.00077, 0.000, 0.00158, - +0.17727, 0.17727, 0.04972, 0.00152, 0.00076, 0.000, 0.00152, - +0.17139, 0.17139, 0.04592, 0.00146, 0.00074, 0.000, 0.00146, - +0.16593, 0.16593, 0.04257, 0.00140, 0.00073, 0.000, 0.00140, - +0.16083, 0.16083, 0.03963, 0.00135, 0.00071, 0.000, 0.00135, - +0.15604, 0.15604, 0.03701, 0.00130, 0.00069, 0.000, 0.00130, - +0.15156, 0.15156, 0.03468, 0.00126, 0.00068, 0.000, 0.00126, - +0.14732, 0.14732, 0.03259, 0.00121, 0.00066, 0.000, 0.00121/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),K=1,19)/ - +0.30305, 0.30305, 0.20010, 0.00185, 0.00009, 0.000, 0.00185, - +0.28225, 0.28225, 0.16307, 0.00183, 0.00032, 0.000, 0.00183, - +0.26441, 0.26441, 0.13554, 0.00178, 0.00045, 0.000, 0.00178, - +0.24892, 0.24892, 0.11458, 0.00171, 0.00053, 0.000, 0.00171, - +0.23527, 0.23527, 0.09824, 0.00163, 0.00058, 0.000, 0.00163, - +0.22317, 0.22317, 0.08529, 0.00156, 0.00060, 0.000, 0.00156, - +0.21235, 0.21235, 0.07484, 0.00149, 0.00061, 0.000, 0.00149, - +0.20260, 0.20260, 0.06630, 0.00142, 0.00062, 0.000, 0.00142, - +0.19377, 0.19377, 0.05923, 0.00135, 0.00062, 0.000, 0.00135, - +0.18570, 0.18570, 0.05330, 0.00129, 0.00061, 0.000, 0.00129, - +0.17831, 0.17831, 0.04828, 0.00123, 0.00060, 0.000, 0.00123, - +0.17154, 0.17154, 0.04400, 0.00118, 0.00059, 0.000, 0.00118, - +0.16528, 0.16528, 0.04031, 0.00113, 0.00058, 0.000, 0.00113, - +0.15947, 0.15947, 0.03711, 0.00108, 0.00056, 0.000, 0.00108, - +0.15408, 0.15408, 0.03431, 0.00104, 0.00055, 0.000, 0.00104, - +0.14905, 0.14905, 0.03185, 0.00100, 0.00054, 0.000, 0.00100, - +0.14435, 0.14435, 0.02968, 0.00096, 0.00052, 0.000, 0.00096, - +0.13995, 0.13995, 0.02775, 0.00093, 0.00051, 0.000, 0.00093, - +0.13581, 0.13581, 0.02602, 0.00089, 0.00050, 0.000, 0.00089/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),K=1,19)/ - +0.29258, 0.29258, 0.17369, 0.00139, 0.00007, 0.000, 0.00139, - +0.27107, 0.27107, 0.13987, 0.00138, 0.00025, 0.000, 0.00138, - +0.25274, 0.25274, 0.11507, 0.00133, 0.00035, 0.000, 0.00133, - +0.23693, 0.23693, 0.09641, 0.00128, 0.00041, 0.000, 0.00128, - +0.22307, 0.22307, 0.08204, 0.00122, 0.00044, 0.000, 0.00122, - +0.21084, 0.21084, 0.07074, 0.00116, 0.00046, 0.000, 0.00116, - +0.19995, 0.19995, 0.06170, 0.00110, 0.00047, 0.000, 0.00110, - +0.19018, 0.19018, 0.05436, 0.00105, 0.00047, 0.000, 0.00105, - +0.18137, 0.18137, 0.04833, 0.00100, 0.00047, 0.000, 0.00100, - +0.17335, 0.17335, 0.04330, 0.00095, 0.00046, 0.000, 0.00095, - +0.16603, 0.16603, 0.03908, 0.00091, 0.00045, 0.000, 0.00091, - +0.15934, 0.15934, 0.03548, 0.00086, 0.00044, 0.000, 0.00086, - +0.15317, 0.15317, 0.03240, 0.00083, 0.00043, 0.000, 0.00083, - +0.14746, 0.14746, 0.02974, 0.00079, 0.00042, 0.000, 0.00079, - +0.14218, 0.14218, 0.02742, 0.00076, 0.00041, 0.000, 0.00076, - +0.13726, 0.13726, 0.02539, 0.00073, 0.00040, 0.000, 0.00073, - +0.13268, 0.13268, 0.02360, 0.00070, 0.00039, 0.000, 0.00070, - +0.12840, 0.12840, 0.02202, 0.00067, 0.00038, 0.000, 0.00067, - +0.12438, 0.12438, 0.02061, 0.00065, 0.00037, 0.000, 0.00065/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),K=1,19)/ - +0.28107, 0.28107, 0.14951, 0.00103, 0.00006, 0.000, 0.00103, - +0.25897, 0.25897, 0.11892, 0.00102, 0.00019, 0.000, 0.00102, - +0.24028, 0.24028, 0.09682, 0.00099, 0.00027, 0.000, 0.00099, - +0.22425, 0.22425, 0.08040, 0.00094, 0.00031, 0.000, 0.00094, - +0.21029, 0.21029, 0.06787, 0.00090, 0.00033, 0.000, 0.00090, - +0.19802, 0.19802, 0.05812, 0.00085, 0.00035, 0.000, 0.00085, - +0.18715, 0.18715, 0.05038, 0.00081, 0.00035, 0.000, 0.00081, - +0.17744, 0.17744, 0.04415, 0.00077, 0.00035, 0.000, 0.00077, - +0.16872, 0.16872, 0.03906, 0.00073, 0.00035, 0.000, 0.00073, - +0.16079, 0.16079, 0.03484, 0.00069, 0.00034, 0.000, 0.00069, - +0.15360, 0.15360, 0.03132, 0.00066, 0.00033, 0.000, 0.00066, - +0.14704, 0.14704, 0.02833, 0.00063, 0.00033, 0.000, 0.00063, - +0.14101, 0.14101, 0.02578, 0.00060, 0.00032, 0.000, 0.00060, - +0.13544, 0.13544, 0.02360, 0.00057, 0.00031, 0.000, 0.00057, - +0.13031, 0.13031, 0.02170, 0.00055, 0.00030, 0.000, 0.00055, - +0.12554, 0.12554, 0.02004, 0.00052, 0.00029, 0.000, 0.00052, - +0.12111, 0.12111, 0.01858, 0.00050, 0.00028, 0.000, 0.00050, - +0.11698, 0.11698, 0.01730, 0.00048, 0.00028, 0.000, 0.00048, - +0.11311, 0.11311, 0.01616, 0.00046, 0.00027, 0.000, 0.00046/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),K=1,19)/ - +0.25505, 0.25505, 0.10751, 0.00053, 0.00003, 0.000, 0.00053, - +0.23226, 0.23226, 0.08335, 0.00053, 0.00011, 0.000, 0.00053, - +0.21325, 0.21325, 0.06639, 0.00051, 0.00015, 0.000, 0.00051, - +0.19715, 0.19715, 0.05410, 0.00048, 0.00017, 0.000, 0.00048, - +0.18329, 0.18329, 0.04493, 0.00046, 0.00018, 0.000, 0.00046, - +0.17123, 0.17123, 0.03793, 0.00043, 0.00019, 0.000, 0.00043, - +0.16065, 0.16065, 0.03247, 0.00041, 0.00019, 0.000, 0.00041, - +0.15127, 0.15127, 0.02813, 0.00038, 0.00019, 0.000, 0.00038, - +0.14291, 0.14291, 0.02464, 0.00036, 0.00018, 0.000, 0.00036, - +0.13539, 0.13539, 0.02178, 0.00034, 0.00018, 0.000, 0.00034, - +0.12859, 0.12859, 0.01942, 0.00033, 0.00017, 0.000, 0.00033, - +0.12243, 0.12243, 0.01744, 0.00031, 0.00017, 0.000, 0.00031, - +0.11682, 0.11682, 0.01577, 0.00029, 0.00016, 0.000, 0.00029, - +0.11166, 0.11166, 0.01434, 0.00028, 0.00016, 0.000, 0.00028, - +0.10693, 0.10693, 0.01311, 0.00027, 0.00015, 0.000, 0.00027, - +0.10256, 0.10256, 0.01205, 0.00025, 0.00015, 0.000, 0.00025, - +0.09852, 0.09852, 0.01112, 0.00024, 0.00014, 0.000, 0.00024, - +0.09477, 0.09477, 0.01031, 0.00023, 0.00014, 0.000, 0.00023, - +0.09128, 0.09128, 0.00959, 0.00022, 0.00013, 0.000, 0.00022/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),K=1,19)/ - +0.22537, 0.22537, 0.07351, 0.00025, 0.00002, 0.000, 0.00025, - +0.20255, 0.20255, 0.05542, 0.00025, 0.00006, 0.000, 0.00025, - +0.18381, 0.18381, 0.04312, 0.00024, 0.00008, 0.000, 0.00024, - +0.16815, 0.16815, 0.03443, 0.00022, 0.00009, 0.000, 0.00022, - +0.15482, 0.15482, 0.02810, 0.00021, 0.00009, 0.000, 0.00021, - +0.14335, 0.14335, 0.02336, 0.00020, 0.00009, 0.000, 0.00020, - +0.13339, 0.13339, 0.01973, 0.00019, 0.00009, 0.000, 0.00019, - +0.12465, 0.12465, 0.01689, 0.00018, 0.00009, 0.000, 0.00018, - +0.11692, 0.11692, 0.01464, 0.00017, 0.00009, 0.000, 0.00017, - +0.11002, 0.11002, 0.01282, 0.00016, 0.00009, 0.000, 0.00016, - +0.10384, 0.10384, 0.01134, 0.00015, 0.00008, 0.000, 0.00015, - +0.09827, 0.09827, 0.01011, 0.00014, 0.00008, 0.000, 0.00014, - +0.09323, 0.09323, 0.00907, 0.00013, 0.00008, 0.000, 0.00013, - +0.08863, 0.08863, 0.00820, 0.00012, 0.00008, 0.000, 0.00012, - +0.08444, 0.08444, 0.00746, 0.00012, 0.00007, 0.000, 0.00012, - +0.08059, 0.08059, 0.00682, 0.00011, 0.00007, 0.000, 0.00011, - +0.07704, 0.07704, 0.00626, 0.00011, 0.00007, 0.000, 0.00011, - +0.07377, 0.07377, 0.00578, 0.00010, 0.00006, 0.000, 0.00010, - +0.07074, 0.07074, 0.00535, 0.00010, 0.00006, 0.000, 0.00010/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),K=1,19)/ - +0.19244, 0.19244, 0.04693, 0.00010, 0.00001, 0.000, 0.00010, - +0.17036, 0.17036, 0.03430, 0.00010, 0.00002, 0.000, 0.00010, - +0.15253, 0.15253, 0.02600, 0.00010, 0.00003, 0.000, 0.00010, - +0.13785, 0.13785, 0.02030, 0.00009, 0.00004, 0.000, 0.00009, - +0.12553, 0.12553, 0.01626, 0.00008, 0.00004, 0.000, 0.00008, - +0.11505, 0.11505, 0.01329, 0.00008, 0.00004, 0.000, 0.00008, - +0.10605, 0.10605, 0.01107, 0.00007, 0.00004, 0.000, 0.00007, - +0.09824, 0.09824, 0.00936, 0.00007, 0.00004, 0.000, 0.00007, - +0.09140, 0.09140, 0.00802, 0.00006, 0.00004, 0.000, 0.00006, - +0.08534, 0.08534, 0.00696, 0.00006, 0.00004, 0.000, 0.00006, - +0.07996, 0.07996, 0.00610, 0.00006, 0.00003, 0.000, 0.00006, - +0.07515, 0.07515, 0.00539, 0.00005, 0.00003, 0.000, 0.00005, - +0.07083, 0.07083, 0.00481, 0.00005, 0.00003, 0.000, 0.00005, - +0.06692, 0.06692, 0.00432, 0.00005, 0.00003, 0.000, 0.00005, - +0.06338, 0.06338, 0.00390, 0.00004, 0.00003, 0.000, 0.00004, - +0.06014, 0.06014, 0.00355, 0.00004, 0.00003, 0.000, 0.00004, - +0.05718, 0.05718, 0.00324, 0.00004, 0.00003, 0.000, 0.00004, - +0.05447, 0.05447, 0.00298, 0.00004, 0.00003, 0.000, 0.00004, - +0.05197, 0.05197, 0.00275, 0.00004, 0.00002, 0.000, 0.00004/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),K=1,19)/ - +0.15661, 0.15661, 0.02711, 0.00003, 0.00000, 0.000, 0.00003, - +0.13617, 0.13617, 0.01912, 0.00003, 0.00001, 0.000, 0.00003, - +0.11997, 0.11997, 0.01407, 0.00003, 0.00001, 0.000, 0.00003, - +0.10687, 0.10687, 0.01071, 0.00003, 0.00001, 0.000, 0.00003, - +0.09604, 0.09604, 0.00840, 0.00003, 0.00001, 0.000, 0.00003, - +0.08697, 0.08697, 0.00674, 0.00003, 0.00001, 0.000, 0.00003, - +0.07927, 0.07927, 0.00552, 0.00002, 0.00001, 0.000, 0.00002, - +0.07266, 0.07266, 0.00461, 0.00002, 0.00001, 0.000, 0.00002, - +0.06695, 0.06695, 0.00390, 0.00002, 0.00001, 0.000, 0.00002, - +0.06194, 0.06194, 0.00335, 0.00002, 0.00001, 0.000, 0.00002, - +0.05753, 0.05753, 0.00291, 0.00002, 0.00001, 0.000, 0.00002, - +0.05363, 0.05363, 0.00255, 0.00002, 0.00001, 0.000, 0.00002, - +0.05016, 0.05016, 0.00226, 0.00002, 0.00001, 0.000, 0.00002, - +0.04704, 0.04704, 0.00201, 0.00001, 0.00001, 0.000, 0.00001, - +0.04423, 0.04423, 0.00181, 0.00001, 0.00001, 0.000, 0.00001, - +0.04169, 0.04169, 0.00164, 0.00001, 0.00001, 0.000, 0.00001, - +0.03938, 0.03938, 0.00149, 0.00001, 0.00001, 0.000, 0.00001, - +0.03728, 0.03728, 0.00136, 0.00001, 0.00001, 0.000, 0.00001, - +0.03536, 0.03536, 0.00125, 0.00001, 0.00001, 0.000, 0.00001/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),K=1,19)/ - +0.11838, 0.11838, 0.01338, 0.00001, 0.00000, 0.000, 0.00001, - +0.10061, 0.10061, 0.00903, 0.00001, 0.00000, 0.000, 0.00001, - +0.08687, 0.08687, 0.00642, 0.00001, 0.00000, 0.000, 0.00001, - +0.07599, 0.07599, 0.00474, 0.00001, 0.00000, 0.000, 0.00001, - +0.06716, 0.06716, 0.00363, 0.00001, 0.00000, 0.000, 0.00001, - +0.05989, 0.05989, 0.00285, 0.00001, 0.00000, 0.000, 0.00001, - +0.05383, 0.05383, 0.00230, 0.00001, 0.00000, 0.000, 0.00001, - +0.04870, 0.04870, 0.00189, 0.00001, 0.00000, 0.000, 0.00001, - +0.04432, 0.04432, 0.00158, 0.00000, 0.00000, 0.000, 0.000, - +0.04053, 0.04053, 0.00134, 0.00000, 0.00000, 0.000, 0.000, - +0.03724, 0.03724, 0.00115, 0.00000, 0.00000, 0.000, 0.000, - +0.03436, 0.03436, 0.00100, 0.00000, 0.00000, 0.000, 0.000, - +0.03182, 0.03182, 0.00088, 0.00000, 0.00000, 0.000, 0.000, - +0.02956, 0.02956, 0.00078, 0.00000, 0.00000, 0.000, 0.000, - +0.02756, 0.02756, 0.00069, 0.00000, 0.00000, 0.000, 0.000, - +0.02575, 0.02575, 0.00062, 0.00000, 0.00000, 0.000, 0.000, - +0.02413, 0.02413, 0.00056, 0.00000, 0.00000, 0.000, 0.000, - +0.02267, 0.02267, 0.00051, 0.00000, 0.00000, 0.000, 0.000, - +0.02134, 0.02134, 0.00047, 0.00000, 0.00000, 0.000, 0.000/ - DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),K=1,19)/ - +0.07837, 0.07837, 0.00495, 0.000, 0.000, 0.000, 0.000, - +0.06455, 0.06455, 0.00316, 0.000, 0.000, 0.000, 0.000, - +0.05420, 0.05420, 0.00215, 0.000, 0.000, 0.000, 0.000, - +0.04623, 0.04623, 0.00153, 0.000, 0.000, 0.000, 0.000, - +0.03993, 0.03993, 0.00114, 0.000, 0.000, 0.000, 0.000, - +0.03487, 0.03487, 0.00087, 0.000, 0.000, 0.000, 0.000, - +0.03074, 0.03074, 0.00069, 0.000, 0.000, 0.000, 0.000, - +0.02731, 0.02731, 0.00056, 0.000, 0.000, 0.000, 0.000, - +0.02443, 0.02443, 0.00046, 0.000, 0.000, 0.000, 0.000, - +0.02199, 0.02199, 0.00038, 0.000, 0.000, 0.000, 0.000, - +0.01991, 0.01991, 0.00033, 0.000, 0.000, 0.000, 0.000, - +0.01811, 0.01811, 0.00028, 0.000, 0.000, 0.000, 0.000, - +0.01655, 0.01655, 0.00024, 0.000, 0.000, 0.000, 0.000, - +0.01518, 0.01518, 0.00021, 0.000, 0.000, 0.000, 0.000, - +0.01397, 0.01397, 0.00019, 0.000, 0.000, 0.000, 0.000, - +0.01291, 0.01291, 0.00017, 0.000, 0.000, 0.000, 0.000, - +0.01196, 0.01196, 0.00015, 0.000, 0.000, 0.000, 0.000, - +0.01111, 0.01111, 0.00014, 0.000, 0.000, 0.000, 0.000, - +0.01035, 0.01035, 0.00012, 0.000, 0.000, 0.000, 0.000/ - DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),K=1,19)/ - +0.03767, 0.03767, 0.00091, 0.000, 0.000, 0.000, 0.000, - +0.02943, 0.02943, 0.00053, 0.000, 0.000, 0.000, 0.000, - +0.02358, 0.02358, 0.00034, 0.000, 0.000, 0.000, 0.000, - +0.01928, 0.01928, 0.00023, 0.000, 0.000, 0.000, 0.000, - +0.01602, 0.01602, 0.00017, 0.000, 0.000, 0.000, 0.000, - +0.01351, 0.01351, 0.00012, 0.000, 0.000, 0.000, 0.000, - +0.01152, 0.01152, 0.00009, 0.000, 0.000, 0.000, 0.000, - +0.00993, 0.00993, 0.00007, 0.000, 0.000, 0.000, 0.000, - +0.00864, 0.00864, 0.00006, 0.000, 0.000, 0.000, 0.000, - +0.00757, 0.00757, 0.00005, 0.000, 0.000, 0.000, 0.000, - +0.00668, 0.00668, 0.00004, 0.000, 0.000, 0.000, 0.000, - +0.00594, 0.00594, 0.00004, 0.000, 0.000, 0.000, 0.000, - +0.00530, 0.00530, 0.00003, 0.000, 0.000, 0.000, 0.000, - +0.00476, 0.00476, 0.00003, 0.000, 0.000, 0.000, 0.000, - +0.00430, 0.00430, 0.00002, 0.000, 0.000, 0.000, 0.000, - +0.00389, 0.00389, 0.00002, 0.000, 0.000, 0.000, 0.000, - +0.00354, 0.00354, 0.00002, 0.000, 0.000, 0.000, 0.000, - +0.00323, 0.00323, 0.00002, 0.000, 0.000, 0.000, 0.000, - +0.00296, 0.00296, 0.00001, 0.000, 0.000, 0.000, 0.000/ - DATA ((F(I,49,K),I=1,5),F(7,49,K),F(6,49,K),K=1,19)/ - +0.01779, 0.01779, 0.00017, 0.000, 0.000, 0.000, 0.000, - +0.01319, 0.01319, 0.00009, 0.000, 0.000, 0.000, 0.000, - +0.01008, 0.01008, 0.00006, 0.000, 0.000, 0.000, 0.000, - +0.00791, 0.00791, 0.00004, 0.000, 0.000, 0.000, 0.000, - +0.00633, 0.00633, 0.00003, 0.000, 0.000, 0.000, 0.000, - +0.00515, 0.00515, 0.00002, 0.000, 0.000, 0.000, 0.000, - +0.00426, 0.00426, 0.00001, 0.000, 0.000, 0.000, 0.000, - +0.00356, 0.00356, 0.00001, 0.000, 0.000, 0.000, 0.000, - +0.00301, 0.00301, 0.00001, 0.000, 0.000, 0.000, 0.000, - +0.00257, 0.00257, 0.00001, 0.000, 0.000, 0.000, 0.000, - +0.00221, 0.00221, 0.00001, 0.000, 0.000, 0.000, 0.000, - +0.00192, 0.00192, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.00168, 0.00168, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.00148, 0.00148, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.00130, 0.00130, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.00116, 0.00116, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.00104, 0.00104, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.00093, 0.00093, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.00084, 0.00084, 0.000, 0.000, 0.000, 0.000, 0.000/ - DATA ((F(I,50,K),I=1,5),F(7,50,K),F(6,50,K),K=1,19)/ - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000/ - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.85D0,.9D0,.95D0,.975D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/0,0,3,5,0,5,0/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ - XSAVE=X - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,NQ -C READ(101,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M) -C 1=UV 2=DV 3=GLUE 4=(UBAR+DBAR)/2 5=CBAR 7=BBAR 6=SBAR - DO 25 I=1,7 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=2,6 - DO 30 K=1,NQ - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 50 FORMAT(7F10.5) - DO 40 I=1,7 - DO 40 M=1,NQ - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,7 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7.OR.I.EQ.1) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE -C UPBAR DISTRIBUTION = D DISTRIBUTION - UPV=G(2) - DNV=G(2) -C THIS SEA IS (UBAR+DBAR)/2 - SEA=G(4) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) - X=XSAVE - RETURN - END diff --git a/PDF/spdf/smrsp32.F b/PDF/spdf/smrsp32.F deleted file mode 100644 index 448e26fccb9..00000000000 --- a/PDF/spdf/smrsp32.F +++ /dev/null @@ -1,1091 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:50 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:47 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C - SUBROUTINE SMRSP32(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GLU) -C -C :::::::::::: PION STRUCTURE FUNCTION :: 15% SEA ::::::::::::::::: -C -#include "pdf/impdp.inc" - PARAMETER(NX=50) - PARAMETER(NQ=19) - PARAMETER(NTENTH=21) - DIMENSION F(7,NX,NQ),G(7),XX(NX),N0(7) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),K=1,19)/ - +0.00072, 0.00072, 1.90133, 0.16119, 0.01854, 0.000, 0.16119, - +0.00082, 0.00082, 5.49700, 0.23529, 0.09262, 0.000, 0.23529, - +0.00092, 0.00092, 10.58083, 0.33721, 0.19449, 0.000, 0.33721, - +0.00102, 0.00102, 17.19743, 0.46830, 0.32550, 0.000, 0.46830, - +0.00112, 0.00112, 25.08417, 0.62790, 0.48501, 0.000, 0.62790, - +0.00121, 0.00121, 34.26217, 0.81606, 0.67305, 0.000, 0.81606, - +0.00130, 0.00130, 44.64538, 1.03204, 0.88892, 0.000, 1.03204, - +0.00139, 0.00139, 56.14780, 1.27490, 1.13165, 0.000, 1.27490, - +0.00147, 0.00147, 68.69843, 1.54374, 1.40036, 0.000, 1.54374, - +0.00156, 0.00156, 82.04224, 1.83474, 1.69123, 0.000, 1.83474, - +0.00164, 0.00164, 96.27203, 2.14898, 2.00532, 0.000, 2.14898, - +0.00172, 0.00172,111.36264, 2.48612, 2.34232, 0.000, 2.48612, - +0.00180, 0.00180,127.21689, 2.84463, 2.70070, 0.000, 2.84463, - +0.00188, 0.00188,143.52740, 3.21895, 3.07486, 0.000, 3.21895, - +0.00195, 0.00195,160.62515, 3.61482, 3.47059, 0.000, 3.61482, - +0.00203, 0.00203,178.16696, 4.02601, 3.88164, 0.000, 4.02601, - +0.00210, 0.00210,196.21922, 4.45353, 4.30901, 0.000, 4.45353, - +0.00217, 0.00217,214.80383, 4.89784, 4.75318, 0.000, 4.89784, - +0.00225, 0.00225,233.67000, 5.35382, 5.20902, 0.000, 5.35382/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),K=1,19)/ - +0.00111, 0.00111, 1.83974, 0.16132, 0.01732, 0.000, 0.16132, - +0.00127, 0.00127, 4.96424, 0.22891, 0.08490, 0.000, 0.22891, - +0.00142, 0.00142, 9.18069, 0.31900, 0.17494, 0.000, 0.31900, - +0.00156, 0.00156, 14.48870, 0.43174, 0.28761, 0.000, 0.43174, - +0.00170, 0.00170, 20.65032, 0.56582, 0.42161, 0.000, 0.56582, - +0.00183, 0.00183, 27.66458, 0.72070, 0.57639, 0.000, 0.72070, - +0.00196, 0.00196, 35.45028, 0.89532, 0.75091, 0.000, 0.89532, - +0.00209, 0.00209, 43.93159, 1.08856, 0.94405, 0.000, 1.08856, - +0.00221, 0.00221, 53.04794, 1.29945, 1.15483, 0.000, 1.29945, - +0.00233, 0.00233, 62.60730, 1.52481, 1.38007, 0.000, 1.52481, - +0.00245, 0.00245, 72.67659, 1.76533, 1.62048, 0.000, 1.76533, - +0.00256, 0.00256, 83.23517, 2.02062, 1.87565, 0.000, 2.02062, - +0.00267, 0.00267, 94.21194, 2.28942, 2.14433, 0.000, 2.28942, - +0.00278, 0.00278,105.38994, 2.56748, 2.42228, 0.000, 2.56748, - +0.00289, 0.00289,117.00420, 2.85906, 2.71374, 0.000, 2.85906, - +0.00299, 0.00299,128.81514, 3.15950, 3.01406, 0.000, 3.15950, - +0.00309, 0.00309,140.87152, 3.46952, 3.32396, 0.000, 3.46952, - +0.00320, 0.00320,153.18988, 3.78946, 3.64378, 0.000, 3.78946, - +0.00330, 0.00330,165.60063, 4.11558, 3.96979, 0.000, 4.11558/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),K=1,19)/ - +0.00173, 0.00173, 1.78011, 0.16137, 0.01609, 0.000, 0.16137, - +0.00196, 0.00196, 4.48295, 0.22266, 0.07736, 0.000, 0.22266, - +0.00218, 0.00218, 7.96547, 0.30179, 0.15647, 0.000, 0.30179, - +0.00239, 0.00239, 12.20593, 0.39817, 0.25279, 0.000, 0.39817, - +0.00259, 0.00259, 16.99909, 0.51013, 0.36469, 0.000, 0.51013, - +0.00278, 0.00278, 22.33584, 0.63686, 0.49135, 0.000, 0.63686, - +0.00296, 0.00296, 28.14680, 0.77722, 0.63163, 0.000, 0.77722, - +0.00314, 0.00314, 34.37044, 0.93010, 0.78443, 0.000, 0.93010, - +0.00332, 0.00332, 40.95925, 1.09458, 0.94883, 0.000, 1.09458, - +0.00349, 0.00349, 47.77190, 1.26811, 1.12227, 0.000, 1.26811, - +0.00365, 0.00365, 54.85896, 1.45116, 1.30523, 0.000, 1.45116, - +0.00381, 0.00381, 62.20586, 1.64337, 1.49736, 0.000, 1.64337, - +0.00397, 0.00397, 69.76257, 1.84375, 1.69765, 0.000, 1.84375, - +0.00412, 0.00412, 77.37803, 2.04913, 1.90294, 0.000, 2.04913, - +0.00427, 0.00427, 85.22021, 2.26267, 2.11639, 0.000, 2.26267, - +0.00442, 0.00442, 93.12336, 2.48092, 2.33455, 0.000, 2.48092, - +0.00456, 0.00456,101.12432, 2.70444, 2.55799, 0.000, 2.70444, - +0.00470, 0.00470,109.23640, 2.93348, 2.78694, 0.000, 2.93348, - +0.00484, 0.00484,117.34637, 3.16537, 3.01873, 0.000, 3.16537/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),K=1,19)/ - +0.00224, 0.00224, 1.74610, 0.16135, 0.01536, 0.000, 0.16135, - +0.00253, 0.00253, 4.22323, 0.21904, 0.07304, 0.000, 0.21904, - +0.00280, 0.00280, 7.33033, 0.29215, 0.14613, 0.000, 0.29215, - +0.00306, 0.00306, 11.04066, 0.37979, 0.23373, 0.000, 0.37979, - +0.00331, 0.00331, 15.16954, 0.48023, 0.33413, 0.000, 0.48023, - +0.00354, 0.00354, 19.70700, 0.59258, 0.44642, 0.000, 0.59258, - +0.00377, 0.00377, 24.59195, 0.71572, 0.56950, 0.000, 0.71572, - +0.00399, 0.00399, 29.77164, 0.84861, 0.70233, 0.000, 0.84861, - +0.00421, 0.00421, 35.20619, 0.99039, 0.84405, 0.000, 0.99039, - +0.00441, 0.00441, 40.77876, 1.13887, 0.99245, 0.000, 1.13887, - +0.00461, 0.00461, 46.53304, 1.29442, 1.14794, 0.000, 1.29442, - +0.00481, 0.00481, 52.45802, 1.45673, 1.31018, 0.000, 1.45673, - +0.00500, 0.00500, 58.51368, 1.62496, 1.47835, 0.000, 1.62496, - +0.00519, 0.00519, 64.57853, 1.79646, 1.64978, 0.000, 1.79646, - +0.00537, 0.00537, 70.79092, 1.97388, 1.82713, 0.000, 1.97388, - +0.00554, 0.00554, 77.01806, 2.15436, 2.00754, 0.000, 2.15436, - +0.00572, 0.00572, 83.29115, 2.33838, 2.19149, 0.000, 2.33838, - +0.00589, 0.00589, 89.62246, 2.52616, 2.37921, 0.000, 2.52616, - +0.00605, 0.00605, 95.92271, 2.71552, 2.56849, 0.000, 2.71552/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),K=1,19)/ - +0.00269, 0.00269, 1.72233, 0.16131, 0.01484, 0.000, 0.16131, - +0.00303, 0.00303, 4.04806, 0.21648, 0.07001, 0.000, 0.21648, - +0.00334, 0.00334, 6.91046, 0.28549, 0.13900, 0.000, 0.28549, - +0.00365, 0.00365, 10.28166, 0.36728, 0.22077, 0.000, 0.36728, - +0.00394, 0.00394, 13.99164, 0.46012, 0.31358, 0.000, 0.46012, - +0.00421, 0.00421, 18.03093, 0.56310, 0.41651, 0.000, 0.56310, - +0.00448, 0.00448, 22.34450, 0.67514, 0.52851, 0.000, 0.67514, - +0.00473, 0.00473, 26.88568, 0.79526, 0.64859, 0.000, 0.79526, - +0.00498, 0.00498, 31.61979, 0.92268, 0.77596, 0.000, 0.92268, - +0.00522, 0.00522, 36.44521, 1.05540, 0.90862, 0.000, 1.05540, - +0.00545, 0.00545, 41.40162, 1.19377, 1.04694, 0.000, 1.19377, - +0.00567, 0.00567, 46.48037, 1.33751, 1.19063, 0.000, 1.33751, - +0.00589, 0.00589, 51.64760, 1.48589, 1.33896, 0.000, 1.48589, - +0.00611, 0.00611, 56.79952, 1.63656, 1.48958, 0.000, 1.63656, - +0.00631, 0.00631, 62.05679, 1.79188, 1.64484, 0.000, 1.79188, - +0.00652, 0.00652, 67.30607, 1.94935, 1.80226, 0.000, 1.94935, - +0.00671, 0.00671, 72.57543, 2.10941, 1.96227, 0.000, 2.10941, - +0.00691, 0.00691, 77.87622, 2.27225, 2.12506, 0.000, 2.27225, - +0.00710, 0.00710, 83.13338, 2.43599, 2.28874, 0.000, 2.43599/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),K=1,19)/ - +0.00310, 0.00310, 1.70411, 0.16127, 0.01443, 0.000, 0.16127, - +0.00348, 0.00348, 3.91714, 0.21450, 0.06767, 0.000, 0.21450, - +0.00384, 0.00384, 6.60129, 0.28041, 0.13359, 0.000, 0.28041, - +0.00418, 0.00418, 9.72881, 0.35786, 0.21102, 0.000, 0.35786, - +0.00450, 0.00450, 13.14096, 0.44511, 0.29825, 0.000, 0.44511, - +0.00481, 0.00481, 16.82913, 0.54127, 0.39438, 0.000, 0.54127, - +0.00511, 0.00511, 20.74295, 0.64530, 0.49838, 0.000, 0.64530, - +0.00540, 0.00540, 24.84031, 0.75626, 0.60931, 0.000, 0.75626, - +0.00567, 0.00567, 29.09038, 0.87343, 0.72644, 0.000, 0.87343, - +0.00594, 0.00594, 33.40217, 0.99497, 0.84795, 0.000, 0.99497, - +0.00620, 0.00620, 37.81274, 1.12122, 0.97415, 0.000, 1.12122, - +0.00645, 0.00645, 42.31504, 1.25191, 1.10481, 0.000, 1.25191, - +0.00669, 0.00669, 46.87954, 1.38638, 1.23924, 0.000, 1.38638, - +0.00693, 0.00693, 51.41450, 1.52253, 1.37534, 0.000, 1.52253, - +0.00716, 0.00716, 56.02851, 1.66249, 1.51526, 0.000, 1.66249, - +0.00739, 0.00739, 60.62144, 1.80402, 1.65675, 0.000, 1.80402, - +0.00761, 0.00761, 65.21923, 1.94751, 1.80021, 0.000, 1.94751, - +0.00782, 0.00782, 69.83253, 2.09318, 1.94583, 0.000, 2.09318, - +0.00803, 0.00803, 74.39577, 2.23931, 2.09193, 0.000, 2.23931/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),K=1,19)/ - +0.00482, 0.00482, 1.64858, 0.16099, 0.01315, 0.000, 0.16099, - +0.00537, 0.00537, 3.53642, 0.20833, 0.06054, 0.000, 0.20833, - +0.00590, 0.00590, 5.72538, 0.26512, 0.11738, 0.000, 0.26512, - +0.00639, 0.00639, 8.19229, 0.33007, 0.18236, 0.000, 0.33007, - +0.00685, 0.00685, 10.81189, 0.40158, 0.25389, 0.000, 0.40158, - +0.00729, 0.00729, 13.57971, 0.47882, 0.33116, 0.000, 0.47882, - +0.00772, 0.00772, 16.45923, 0.56092, 0.41327, 0.000, 0.56092, - +0.00812, 0.00812, 19.42121, 0.64714, 0.49951, 0.000, 0.64714, - +0.00851, 0.00851, 22.44542, 0.73689, 0.58927, 0.000, 0.73689, - +0.00889, 0.00889, 25.46846, 0.82882, 0.68121, 0.000, 0.82882, - +0.00925, 0.00925, 28.52056, 0.92320, 0.77560, 0.000, 0.92320, - +0.00960, 0.00960, 31.59905, 1.01986, 0.87227, 0.000, 1.01986, - +0.00994, 0.00994, 34.68516, 1.11833, 0.97075, 0.000, 1.11833, - +0.01027, 0.01027, 37.71702, 1.21710, 1.06952, 0.000, 1.21710, - +0.01059, 0.01059, 40.77310, 1.31777, 1.17020, 0.000, 1.31777, - +0.01090, 0.01090, 43.78577, 1.41874, 1.27118, 0.000, 1.41874, - +0.01120, 0.01120, 46.77509, 1.52033, 1.37278, 0.000, 1.52033, - +0.01149, 0.01149, 49.75010, 1.62272, 1.47518, 0.000, 1.62272, - +0.01178, 0.01178, 52.66806, 1.72474, 1.57720, 0.000, 1.72474/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),K=1,19)/ - +0.00748, 0.00748, 1.59450, 0.16046, 0.01186, 0.000, 0.16046, - +0.00830, 0.00830, 3.19164, 0.20206, 0.05359, 0.000, 0.20206, - +0.00905, 0.00905, 4.96342, 0.25042, 0.10205, 0.000, 0.25042, - +0.00976, 0.00976, 6.89456, 0.30426, 0.15600, 0.000, 0.30426, - +0.01042, 0.01042, 8.88986, 0.36221, 0.21404, 0.000, 0.36221, - +0.01105, 0.01105, 10.94983, 0.42357, 0.27549, 0.000, 0.42357, - +0.01165, 0.01165, 13.04999, 0.48766, 0.33966, 0.000, 0.48766, - +0.01222, 0.01222, 15.17170, 0.55392, 0.40600, 0.000, 0.55392, - +0.01277, 0.01277, 17.30312, 0.62194, 0.47410, 0.000, 0.62194, - +0.01329, 0.01329, 19.40129, 0.69073, 0.54296, 0.000, 0.69073, - +0.01379, 0.01379, 21.49123, 0.76052, 0.61283, 0.000, 0.76052, - +0.01428, 0.01428, 23.57336, 0.83124, 0.68362, 0.000, 0.83124, - +0.01475, 0.01475, 25.63647, 0.90257, 0.75501, 0.000, 0.90257, - +0.01520, 0.01520, 27.63954, 0.97345, 0.82596, 0.000, 0.97345, - +0.01564, 0.01564, 29.63929, 1.04507, 0.89765, 0.000, 1.04507, - +0.01607, 0.01607, 31.59059, 1.11632, 0.96896, 0.000, 1.11632, - +0.01648, 0.01648, 33.50899, 1.18745, 1.04016, 0.000, 1.18745, - +0.01688, 0.01688, 35.40202, 1.25863, 1.11139, 0.000, 1.25863, - +0.01728, 0.01728, 37.24215, 1.32904, 1.18187, 0.000, 1.32904/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),K=1,19)/ - +0.00969, 0.00969, 1.56339, 0.15997, 0.01110, 0.000, 0.15997, - +0.01070, 0.01070, 3.00492, 0.19829, 0.04960, 0.000, 0.19829, - +0.01163, 0.01163, 4.56387, 0.24202, 0.09349, 0.000, 0.24202, - +0.01250, 0.01250, 6.23004, 0.28995, 0.14157, 0.000, 0.28995, - +0.01331, 0.01331, 7.92384, 0.34087, 0.19263, 0.000, 0.34087, - +0.01408, 0.01408, 9.64861, 0.39416, 0.24607, 0.000, 0.39416, - +0.01482, 0.01482, 11.38586, 0.44926, 0.30130, 0.000, 0.44926, - +0.01551, 0.01551, 13.12206, 0.50571, 0.35788, 0.000, 0.50571, - +0.01617, 0.01617, 14.84926, 0.56319, 0.41548, 0.000, 0.56319, - +0.01681, 0.01681, 16.53380, 0.62088, 0.47329, 0.000, 0.62088, - +0.01742, 0.01742, 18.19809, 0.67902, 0.53155, 0.000, 0.67902, - +0.01800, 0.01800, 19.84382, 0.73756, 0.59021, 0.000, 0.73756, - +0.01857, 0.01857, 21.46305, 0.79626, 0.64902, 0.000, 0.79626, - +0.01912, 0.01912, 23.02378, 0.85427, 0.70714, 0.000, 0.85427, - +0.01964, 0.01964, 24.57290, 0.91259, 0.76556, 0.000, 0.91259, - +0.02016, 0.02016, 26.07503, 0.97032, 0.82340, 0.000, 0.97032, - +0.02065, 0.02065, 27.54349, 1.02770, 0.88088, 0.000, 1.02770, - +0.02113, 0.02113, 28.98504, 1.08487, 0.93815, 0.000, 1.08487, - +0.02160, 0.02160, 30.37849, 1.14118, 0.99456, 0.000, 1.14118/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),K=1,19)/ - +0.01163, 0.01163, 1.54149, 0.15953, 0.01056, 0.000, 0.15953, - +0.01281, 0.01281, 2.87853, 0.19555, 0.04681, 0.000, 0.19555, - +0.01389, 0.01389, 4.29890, 0.23612, 0.08758, 0.000, 0.23612, - +0.01490, 0.01490, 5.79587, 0.28011, 0.13177, 0.000, 0.28011, - +0.01584, 0.01584, 7.30005, 0.32639, 0.17825, 0.000, 0.32639, - +0.01673, 0.01673, 8.81660, 0.37445, 0.22649, 0.000, 0.37445, - +0.01757, 0.01757, 10.33081, 0.42378, 0.27600, 0.000, 0.42378, - +0.01837, 0.01837, 11.83231, 0.47400, 0.32638, 0.000, 0.47400, - +0.01913, 0.01913, 13.31549, 0.52483, 0.37738, 0.000, 0.52483, - +0.01985, 0.01985, 14.75226, 0.57559, 0.42829, 0.000, 0.57559, - +0.02055, 0.02055, 16.16336, 0.62649, 0.47935, 0.000, 0.62649, - +0.02122, 0.02122, 17.55115, 0.67751, 0.53052, 0.000, 0.67751, - +0.02187, 0.02187, 18.90955, 0.72846, 0.58162, 0.000, 0.72846, - +0.02248, 0.02248, 20.21190, 0.77861, 0.63191, 0.000, 0.77861, - +0.02309, 0.02309, 21.49911, 0.82885, 0.68228, 0.000, 0.82885, - +0.02367, 0.02367, 22.74149, 0.87840, 0.73198, 0.000, 0.87840, - +0.02423, 0.02423, 23.95098, 0.92749, 0.78120, 0.000, 0.92749, - +0.02477, 0.02477, 25.13377, 0.97625, 0.83009, 0.000, 0.97625, - +0.02530, 0.02530, 26.27237, 1.02414, 0.87811, 0.000, 1.02414/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),K=1,19)/ - +0.01340, 0.01340, 1.52457, 0.15911, 0.01014, 0.000, 0.15911, - +0.01472, 0.01472, 2.78376, 0.19337, 0.04466, 0.000, 0.19337, - +0.01594, 0.01594, 4.10317, 0.23156, 0.08310, 0.000, 0.23156, - +0.01707, 0.01707, 5.47867, 0.27262, 0.12440, 0.000, 0.27262, - +0.01812, 0.01812, 6.84823, 0.31551, 0.16753, 0.000, 0.31551, - +0.01911, 0.01911, 8.21832, 0.35977, 0.21201, 0.000, 0.35977, - +0.02005, 0.02005, 9.57692, 0.40495, 0.25739, 0.000, 0.40495, - +0.02094, 0.02094, 10.91580, 0.45071, 0.30336, 0.000, 0.45071, - +0.02178, 0.02178, 12.23096, 0.49682, 0.34967, 0.000, 0.49682, - +0.02259, 0.02259, 13.49811, 0.54267, 0.39572, 0.000, 0.54267, - +0.02336, 0.02336, 14.73679, 0.58849, 0.44172, 0.000, 0.58849, - +0.02410, 0.02410, 15.94975, 0.63425, 0.48766, 0.000, 0.63425, - +0.02481, 0.02481, 17.13216, 0.67980, 0.53338, 0.000, 0.67980, - +0.02550, 0.02550, 18.26092, 0.72449, 0.57825, 0.000, 0.72449, - +0.02616, 0.02616, 19.37285, 0.76913, 0.62306, 0.000, 0.76913, - +0.02680, 0.02680, 20.44203, 0.81305, 0.66714, 0.000, 0.81305, - +0.02742, 0.02742, 21.47945, 0.85645, 0.71070, 0.000, 0.85645, - +0.02802, 0.02802, 22.49089, 0.89945, 0.75386, 0.000, 0.89945, - +0.02860, 0.02860, 23.46126, 0.94158, 0.79614, 0.000, 0.94158/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),K=1,19)/ - +0.02081, 0.02081, 1.47190, 0.15732, 0.00883, 0.000, 0.15732, - +0.02270, 0.02270, 2.50561, 0.18618, 0.03814, 0.000, 0.18618, - +0.02443, 0.02443, 3.54401, 0.21736, 0.06975, 0.000, 0.21736, - +0.02602, 0.02602, 4.59005, 0.25001, 0.10280, 0.000, 0.25001, - +0.02750, 0.02750, 5.60171, 0.28338, 0.13655, 0.000, 0.28338, - +0.02888, 0.02888, 6.58875, 0.31714, 0.17068, 0.000, 0.31714, - +0.03018, 0.03018, 7.54602, 0.35101, 0.20491, 0.000, 0.35101, - +0.03140, 0.03140, 8.47072, 0.38479, 0.23903, 0.000, 0.38479, - +0.03257, 0.03257, 9.36267, 0.41836, 0.27293, 0.000, 0.41836, - +0.03367, 0.03367, 10.20700, 0.45131, 0.30620, 0.000, 0.45131, - +0.03472, 0.03472, 11.01972, 0.48385, 0.33904, 0.000, 0.48385, - +0.03572, 0.03572, 11.80441, 0.51599, 0.37148, 0.000, 0.51599, - +0.03669, 0.03669, 12.55908, 0.54766, 0.40343, 0.000, 0.54766, - +0.03761, 0.03761, 13.26919, 0.57843, 0.43448, 0.000, 0.57843, - +0.03850, 0.03850, 13.96109, 0.60889, 0.46521, 0.000, 0.60889, - +0.03935, 0.03935, 14.61810, 0.63859, 0.49519, 0.000, 0.63859, - +0.04017, 0.04017, 15.24852, 0.66770, 0.52456, 0.000, 0.66770, - +0.04097, 0.04097, 15.85693, 0.69633, 0.55344, 0.000, 0.69633, - +0.04174, 0.04174, 16.43398, 0.72417, 0.58152, 0.000, 0.72417/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),K=1,19)/ - +0.03227, 0.03227, 1.41785, 0.15445, 0.00752, 0.000, 0.15445, - +0.03494, 0.03494, 2.24767, 0.17807, 0.03187, 0.000, 0.17807, - +0.03736, 0.03736, 3.04695, 0.20278, 0.05727, 0.000, 0.20278, - +0.03957, 0.03957, 3.82388, 0.22798, 0.08312, 0.000, 0.22798, - +0.04161, 0.04161, 4.55241, 0.25317, 0.10892, 0.000, 0.25317, - +0.04350, 0.04350, 5.24438, 0.27816, 0.13449, 0.000, 0.27816, - +0.04527, 0.04527, 5.89952, 0.30280, 0.15969, 0.000, 0.30280, - +0.04693, 0.04693, 6.51868, 0.32700, 0.18441, 0.000, 0.32700, - +0.04850, 0.04850, 7.10408, 0.35070, 0.20862, 0.000, 0.35070, - +0.04997, 0.04997, 7.64731, 0.37365, 0.23206, 0.000, 0.37365, - +0.05137, 0.05137, 8.16127, 0.39604, 0.25492, 0.000, 0.39604, - +0.05271, 0.05271, 8.64970, 0.41790, 0.27724, 0.000, 0.41790, - +0.05398, 0.05398, 9.11232, 0.43922, 0.29899, 0.000, 0.43922, - +0.05520, 0.05520, 9.54032, 0.45970, 0.31990, 0.000, 0.45970, - +0.05636, 0.05636, 9.95225, 0.47980, 0.34041, 0.000, 0.47980, - +0.05748, 0.05748, 10.33764, 0.49922, 0.36022, 0.000, 0.49922, - +0.05855, 0.05855, 10.70264, 0.51808, 0.37947, 0.000, 0.51808, - +0.05959, 0.05959, 11.05073, 0.53648, 0.39825, 0.000, 0.53648, - +0.06058, 0.06058, 11.37627, 0.55422, 0.41636, 0.000, 0.55422/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),K=1,19)/ - +0.04167, 0.04167, 1.38454, 0.15205, 0.00677, 0.000, 0.15205, - +0.04490, 0.04490, 2.10336, 0.17267, 0.02836, 0.000, 0.17267, - +0.04781, 0.04781, 2.77846, 0.19383, 0.05041, 0.000, 0.19383, - +0.05047, 0.05047, 3.42030, 0.21508, 0.07250, 0.000, 0.21508, - +0.05289, 0.05289, 4.01050, 0.23604, 0.09424, 0.000, 0.23604, - +0.05514, 0.05514, 4.56155, 0.25659, 0.11554, 0.000, 0.25659, - +0.05723, 0.05723, 5.07523, 0.27664, 0.13630, 0.000, 0.27664, - +0.05919, 0.05919, 5.55384, 0.29613, 0.15646, 0.000, 0.29613, - +0.06102, 0.06102, 6.00045, 0.31506, 0.17603, 0.000, 0.31506, - +0.06275, 0.06275, 6.40939, 0.33324, 0.19483, 0.000, 0.33324, - +0.06438, 0.06438, 6.79187, 0.35083, 0.21302, 0.000, 0.35083, - +0.06593, 0.06593, 7.15150, 0.36790, 0.23065, 0.000, 0.36790, - +0.06741, 0.06741, 7.48862, 0.38441, 0.24772, 0.000, 0.38441, - +0.06881, 0.06881, 7.79679, 0.40019, 0.26402, 0.000, 0.40019, - +0.07015, 0.07015, 8.09095, 0.41557, 0.27992, 0.000, 0.41557, - +0.07143, 0.07143, 8.36326, 0.43034, 0.29518, 0.000, 0.43034, - +0.07266, 0.07266, 8.61878, 0.44461, 0.30993, 0.000, 0.44461, - +0.07385, 0.07385, 8.86042, 0.45846, 0.32425, 0.000, 0.45846, - +0.07498, 0.07498, 9.08408, 0.47174, 0.33798, 0.000, 0.47174/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),K=1,19)/ - +0.04991, 0.04991, 1.35954, 0.14998, 0.00626, 0.000, 0.14998, - +0.05359, 0.05359, 2.00201, 0.16854, 0.02598, 0.000, 0.16854, - +0.05688, 0.05688, 2.59378, 0.18730, 0.04583, 0.000, 0.18730, - +0.05987, 0.05987, 3.14692, 0.20593, 0.06547, 0.000, 0.20593, - +0.06259, 0.06259, 3.64790, 0.22411, 0.08458, 0.000, 0.22411, - +0.06509, 0.06509, 4.10943, 0.24177, 0.10314, 0.000, 0.24177, - +0.06742, 0.06742, 4.53446, 0.25887, 0.12107, 0.000, 0.25887, - +0.06959, 0.06959, 4.92604, 0.27536, 0.13837, 0.000, 0.27536, - +0.07162, 0.07162, 5.28762, 0.29127, 0.15503, 0.000, 0.29127, - +0.07352, 0.07352, 5.61514, 0.30644, 0.17093, 0.000, 0.30644, - +0.07532, 0.07532, 5.91862, 0.32105, 0.18623, 0.000, 0.32105, - +0.07702, 0.07702, 6.20152, 0.33513, 0.20098, 0.000, 0.33513, - +0.07864, 0.07864, 6.46444, 0.34869, 0.21518, 0.000, 0.34869, - +0.08016, 0.08016, 6.70236, 0.36156, 0.22868, 0.000, 0.36156, - +0.08163, 0.08163, 6.92793, 0.37406, 0.24177, 0.000, 0.37406, - +0.08302, 0.08302, 7.13485, 0.38601, 0.25430, 0.000, 0.38601, - +0.08435, 0.08435, 7.32747, 0.39750, 0.26634, 0.000, 0.39750, - +0.08564, 0.08564, 7.50834, 0.40860, 0.27799, 0.000, 0.40860, - +0.08686, 0.08686, 7.67420, 0.41920, 0.28911, 0.000, 0.41920/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),K=1,19)/ - +0.05739, 0.05739, 1.33904, 0.14811, 0.00587, 0.000, 0.14811, - +0.06142, 0.06142, 1.92344, 0.16510, 0.02423, 0.000, 0.16510, - +0.06501, 0.06501, 2.45293, 0.18208, 0.04246, 0.000, 0.18208, - +0.06826, 0.06826, 2.94089, 0.19877, 0.06030, 0.000, 0.19877, - +0.07121, 0.07121, 3.37723, 0.21491, 0.07752, 0.000, 0.21491, - +0.07392, 0.07392, 3.77469, 0.23048, 0.09410, 0.000, 0.23048, - +0.07642, 0.07642, 4.13695, 0.24544, 0.11002, 0.000, 0.24544, - +0.07875, 0.07875, 4.46748, 0.25978, 0.12527, 0.000, 0.25978, - +0.08093, 0.08093, 4.76994, 0.27352, 0.13988, 0.000, 0.27352, - +0.08296, 0.08296, 5.04131, 0.28657, 0.15374, 0.000, 0.28657, - +0.08487, 0.08487, 5.29071, 0.29905, 0.16701, 0.000, 0.29905, - +0.08668, 0.08668, 5.52143, 0.31103, 0.17974, 0.000, 0.31103, - +0.08839, 0.08839, 5.73423, 0.32251, 0.19195, 0.000, 0.32251, - +0.09001, 0.09001, 5.92501, 0.33337, 0.20350, 0.000, 0.33337, - +0.09156, 0.09156, 6.10479, 0.34386, 0.21466, 0.000, 0.34386, - +0.09303, 0.09303, 6.26831, 0.35385, 0.22530, 0.000, 0.35385, - +0.09443, 0.09443, 6.41941, 0.36342, 0.23549, 0.000, 0.36342, - +0.09577, 0.09577, 6.56036, 0.37263, 0.24531, 0.000, 0.37263, - +0.09705, 0.09705, 6.68846, 0.38139, 0.25465, 0.000, 0.38139/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),K=1,19)/ - +0.08811, 0.08811, 1.26666, 0.13958, 0.00470, 0.000, 0.13958, - +0.09327, 0.09327, 1.68107, 0.15175, 0.01894, 0.000, 0.15175, - +0.09779, 0.09779, 2.03635, 0.16343, 0.03250, 0.000, 0.16343, - +0.10183, 0.10183, 2.34807, 0.17453, 0.04532, 0.000, 0.17453, - +0.10544, 0.10544, 2.61435, 0.18494, 0.05732, 0.000, 0.18494, - +0.10872, 0.10872, 2.84713, 0.19471, 0.06857, 0.000, 0.19471, - +0.11171, 0.11171, 3.05124, 0.20388, 0.07911, 0.000, 0.20388, - +0.11447, 0.11447, 3.23076, 0.21247, 0.08900, 0.000, 0.21247, - +0.11701, 0.11701, 3.38936, 0.22053, 0.09828, 0.000, 0.22053, - +0.11936, 0.11936, 3.52621, 0.22802, 0.10693, 0.000, 0.22802, - +0.12155, 0.12155, 3.64784, 0.23505, 0.11506, 0.000, 0.23505, - +0.12361, 0.12361, 3.75684, 0.24169, 0.12273, 0.000, 0.24169, - +0.12554, 0.12554, 3.85416, 0.24794, 0.12998, 0.000, 0.24794, - +0.12734, 0.12734, 3.93772, 0.25373, 0.13673, 0.000, 0.25373, - +0.12905, 0.12905, 4.01442, 0.25926, 0.14317, 0.000, 0.25926, - +0.13066, 0.13066, 4.08137, 0.26444, 0.14922, 0.000, 0.26444, - +0.13218, 0.13218, 4.14103, 0.26931, 0.15494, 0.000, 0.26931, - +0.13363, 0.13363, 4.19486, 0.27395, 0.16039, 0.000, 0.27395, - +0.13500, 0.13500, 4.24144, 0.27828, 0.16550, 0.000, 0.27828/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),K=1,19)/ - +0.13363, 0.13363, 1.17172, 0.12483, 0.00357, 0.000, 0.12483, - +0.13958, 0.13958, 1.43128, 0.13232, 0.01402, 0.000, 0.13232, - +0.14466, 0.14466, 1.63846, 0.13915, 0.02349, 0.000, 0.13915, - +0.14909, 0.14909, 1.80870, 0.14537, 0.03209, 0.000, 0.14537, - +0.15297, 0.15297, 1.94476, 0.15095, 0.03984, 0.000, 0.15095, - +0.15642, 0.15642, 2.05651, 0.15600, 0.04688, 0.000, 0.15600, - +0.15951, 0.15951, 2.14859, 0.16057, 0.05329, 0.000, 0.16057, - +0.16229, 0.16229, 2.22460, 0.16471, 0.05914, 0.000, 0.16471, - +0.16483, 0.16483, 2.28755, 0.16847, 0.06450, 0.000, 0.16847, - +0.16711, 0.16711, 2.33762, 0.17184, 0.06937, 0.000, 0.17184, - +0.16921, 0.16921, 2.37898, 0.17491, 0.07384, 0.000, 0.17491, - +0.17115, 0.17115, 2.41340, 0.17772, 0.07799, 0.000, 0.17772, - +0.17294, 0.17294, 2.44162, 0.18029, 0.08182, 0.000, 0.18029, - +0.17458, 0.17458, 2.46271, 0.18259, 0.08531, 0.000, 0.18259, - +0.17611, 0.17611, 2.48054, 0.18473, 0.08859, 0.000, 0.18473, - +0.17753, 0.17753, 2.49364, 0.18666, 0.09161, 0.000, 0.18666, - +0.17886, 0.17886, 2.50342, 0.18843, 0.09441, 0.000, 0.18843, - +0.18010, 0.18010, 2.51067, 0.19006, 0.09704, 0.000, 0.19006, - +0.18125, 0.18125, 2.51471, 0.19153, 0.09945, 0.000, 0.19153/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),K=1,19)/ - +0.16877, 0.16877, 1.09855, 0.11177, 0.00292, 0.000, 0.11177, - +0.17464, 0.17464, 1.27636, 0.11668, 0.01130, 0.000, 0.11668, - +0.17954, 0.17954, 1.41001, 0.12097, 0.01864, 0.000, 0.12097, - +0.18372, 0.18372, 1.51359, 0.12472, 0.02511, 0.000, 0.12472, - +0.18729, 0.18729, 1.59099, 0.12796, 0.03081, 0.000, 0.12796, - +0.19039, 0.19039, 1.65037, 0.13077, 0.03586, 0.000, 0.13077, - +0.19312, 0.19312, 1.69570, 0.13323, 0.04037, 0.000, 0.13323, - +0.19553, 0.19553, 1.72999, 0.13537, 0.04440, 0.000, 0.13537, - +0.19767, 0.19767, 1.75561, 0.13724, 0.04802, 0.000, 0.13724, - +0.19956, 0.19956, 1.77290, 0.13883, 0.05125, 0.000, 0.13883, - +0.20125, 0.20125, 1.78482, 0.14022, 0.05418, 0.000, 0.14022, - +0.20278, 0.20278, 1.79266, 0.14145, 0.05684, 0.000, 0.14145, - +0.20418, 0.20418, 1.79695, 0.14252, 0.05927, 0.000, 0.14252, - +0.20541, 0.20541, 1.79710, 0.14341, 0.06144, 0.000, 0.14341, - +0.20655, 0.20655, 1.79569, 0.14422, 0.06345, 0.000, 0.14422, - +0.20757, 0.20757, 1.79174, 0.14489, 0.06527, 0.000, 0.14489, - +0.20850, 0.20850, 1.78617, 0.14546, 0.06694, 0.000, 0.14546, - +0.20936, 0.20936, 1.77949, 0.14596, 0.06848, 0.000, 0.14596, - +0.21012, 0.21012, 1.77124, 0.14635, 0.06987, 0.000, 0.14635/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),K=1,19)/ - +0.19770, 0.19770, 1.03505, 0.10000, 0.00247, 0.000, 0.10000, - +0.20306, 0.20306, 1.15977, 0.10323, 0.00944, 0.000, 0.10323, - +0.20740, 0.20740, 1.24765, 0.10592, 0.01538, 0.000, 0.10592, - +0.21101, 0.21101, 1.31128, 0.10817, 0.02052, 0.000, 0.10817, - +0.21400, 0.21400, 1.35467, 0.11000, 0.02493, 0.000, 0.11000, - +0.21652, 0.21652, 1.38460, 0.11151, 0.02878, 0.000, 0.11151, - +0.21868, 0.21868, 1.40441, 0.11275, 0.03215, 0.000, 0.11275, - +0.22052, 0.22052, 1.41655, 0.11376, 0.03511, 0.000, 0.11376, - +0.22211, 0.22211, 1.42287, 0.11458, 0.03774, 0.000, 0.11458, - +0.22345, 0.22345, 1.42370, 0.11521, 0.04004, 0.000, 0.11521, - +0.22462, 0.22462, 1.42125, 0.11571, 0.04209, 0.000, 0.11571, - +0.22564, 0.22564, 1.41644, 0.11610, 0.04393, 0.000, 0.11610, - +0.22652, 0.22652, 1.40964, 0.11639, 0.04559, 0.000, 0.11639, - +0.22726, 0.22726, 1.40043, 0.11656, 0.04705, 0.000, 0.11656, - +0.22792, 0.22792, 1.39061, 0.11669, 0.04838, 0.000, 0.11669, - +0.22848, 0.22848, 1.37950, 0.11673, 0.04957, 0.000, 0.11673, - +0.22895, 0.22895, 1.36769, 0.11671, 0.05064, 0.000, 0.11671, - +0.22937, 0.22937, 1.35553, 0.11666, 0.05162, 0.000, 0.11666, - +0.22970, 0.22970, 1.34267, 0.11654, 0.05248, 0.000, 0.11654/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),K=1,19)/ - +0.22220, 0.22220, 0.97738, 0.08933, 0.00213, 0.000, 0.08933, - +0.22677, 0.22677, 1.06426, 0.09140, 0.00805, 0.000, 0.09140, - +0.23033, 0.23033, 1.12065, 0.09300, 0.01298, 0.000, 0.09300, - +0.23318, 0.23318, 1.15763, 0.09425, 0.01716, 0.000, 0.09425, - +0.23543, 0.23543, 1.17898, 0.09518, 0.02069, 0.000, 0.09518, - +0.23724, 0.23724, 1.19036, 0.09586, 0.02372, 0.000, 0.09586, - +0.23871, 0.23871, 1.19452, 0.09634, 0.02633, 0.000, 0.09634, - +0.23989, 0.23989, 1.19342, 0.09667, 0.02859, 0.000, 0.09667, - +0.24085, 0.24085, 1.18853, 0.09686, 0.03056, 0.000, 0.09686, - +0.24158, 0.24158, 1.18008, 0.09692, 0.03226, 0.000, 0.09692, - +0.24216, 0.24216, 1.16976, 0.09689, 0.03376, 0.000, 0.09689, - +0.24261, 0.24261, 1.15822, 0.09680, 0.03509, 0.000, 0.09680, - +0.24295, 0.24295, 1.14572, 0.09664, 0.03627, 0.000, 0.09664, - +0.24316, 0.24316, 1.13190, 0.09642, 0.03728, 0.000, 0.09642, - +0.24331, 0.24331, 1.11809, 0.09616, 0.03820, 0.000, 0.09616, - +0.24338, 0.24338, 1.10373, 0.09586, 0.03901, 0.000, 0.09586, - +0.24338, 0.24338, 1.08925, 0.09553, 0.03972, 0.000, 0.09553, - +0.24333, 0.24333, 1.07488, 0.09519, 0.04036, 0.000, 0.09519, - +0.24322, 0.24322, 1.06032, 0.09481, 0.04092, 0.000, 0.09481/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),K=1,19)/ - +0.24801, 0.24801, 0.91095, 0.07734, 0.00180, 0.000, 0.07734, - +0.25134, 0.25134, 0.96344, 0.07841, 0.00670, 0.000, 0.07841, - +0.25372, 0.25372, 0.99213, 0.07911, 0.01070, 0.000, 0.07911, - +0.25547, 0.25547, 1.00642, 0.07955, 0.01401, 0.000, 0.07955, - +0.25667, 0.25667, 1.00959, 0.07975, 0.01675, 0.000, 0.07975, - +0.25749, 0.25749, 1.00610, 0.07978, 0.01905, 0.000, 0.07978, - +0.25801, 0.25801, 0.99809, 0.07969, 0.02101, 0.000, 0.07969, - +0.25830, 0.25830, 0.98703, 0.07949, 0.02267, 0.000, 0.07949, - +0.25841, 0.25841, 0.97397, 0.07922, 0.02409, 0.000, 0.07922, - +0.25833, 0.25833, 0.95904, 0.07887, 0.02530, 0.000, 0.07887, - +0.25814, 0.25814, 0.94343, 0.07847, 0.02634, 0.000, 0.07847, - +0.25786, 0.25786, 0.92756, 0.07804, 0.02725, 0.000, 0.07804, - +0.25750, 0.25750, 0.91157, 0.07759, 0.02804, 0.000, 0.07759, - +0.25704, 0.25704, 0.89516, 0.07710, 0.02871, 0.000, 0.07710, - +0.25655, 0.25655, 0.87924, 0.07660, 0.02930, 0.000, 0.07660, - +0.25600, 0.25600, 0.86336, 0.07608, 0.02981, 0.000, 0.07608, - +0.25541, 0.25541, 0.84780, 0.07556, 0.03025, 0.000, 0.07556, - +0.25480, 0.25480, 0.83267, 0.07503, 0.03064, 0.000, 0.07503, - +0.25414, 0.25414, 0.81776, 0.07450, 0.03096, 0.000, 0.07450/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),K=1,19)/ - +0.26952, 0.26952, 0.84924, 0.06673, 0.00153, 0.000, 0.06673, - +0.27142, 0.27142, 0.87658, 0.06713, 0.00565, 0.000, 0.06713, - +0.27249, 0.27249, 0.88575, 0.06725, 0.00893, 0.000, 0.06725, - +0.27302, 0.27302, 0.88458, 0.06718, 0.01160, 0.000, 0.06718, - +0.27308, 0.27308, 0.87579, 0.06693, 0.01377, 0.000, 0.06693, - +0.27285, 0.27285, 0.86288, 0.06658, 0.01556, 0.000, 0.06658, - +0.27239, 0.27239, 0.84747, 0.06615, 0.01705, 0.000, 0.06615, - +0.27176, 0.27176, 0.83059, 0.06567, 0.01829, 0.000, 0.06567, - +0.27100, 0.27100, 0.81299, 0.06514, 0.01935, 0.000, 0.06514, - +0.27010, 0.27010, 0.79469, 0.06457, 0.02022, 0.000, 0.06457, - +0.26914, 0.26914, 0.77651, 0.06398, 0.02096, 0.000, 0.06398, - +0.26812, 0.26812, 0.75872, 0.06339, 0.02159, 0.000, 0.06339, - +0.26707, 0.26707, 0.74136, 0.06279, 0.02213, 0.000, 0.06279, - +0.26595, 0.26595, 0.72414, 0.06217, 0.02258, 0.000, 0.06217, - +0.26484, 0.26484, 0.70770, 0.06157, 0.02296, 0.000, 0.06157, - +0.26369, 0.26369, 0.69167, 0.06097, 0.02329, 0.000, 0.06097, - +0.26253, 0.26253, 0.67622, 0.06036, 0.02356, 0.000, 0.06036, - +0.26137, 0.26137, 0.66139, 0.05977, 0.02379, 0.000, 0.05977, - +0.26019, 0.26019, 0.64701, 0.05918, 0.02397, 0.000, 0.05918/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),K=1,19)/ - +0.28744, 0.28744, 0.79132, 0.05735, 0.00131, 0.000, 0.05735, - +0.28780, 0.28780, 0.79975, 0.05732, 0.00479, 0.000, 0.05732, - +0.28748, 0.28748, 0.79477, 0.05706, 0.00752, 0.000, 0.05706, - +0.28673, 0.28673, 0.78280, 0.05667, 0.00969, 0.000, 0.05667, - +0.28563, 0.28563, 0.76599, 0.05616, 0.01142, 0.000, 0.05616, - +0.28432, 0.28432, 0.74703, 0.05559, 0.01283, 0.000, 0.05559, - +0.28285, 0.28285, 0.72709, 0.05498, 0.01398, 0.000, 0.05498, - +0.28130, 0.28130, 0.70687, 0.05433, 0.01493, 0.000, 0.05433, - +0.27968, 0.27968, 0.68685, 0.05368, 0.01571, 0.000, 0.05368, - +0.27798, 0.27798, 0.66694, 0.05301, 0.01635, 0.000, 0.05301, - +0.27625, 0.27625, 0.64773, 0.05233, 0.01688, 0.000, 0.05233, - +0.27453, 0.27453, 0.62934, 0.05167, 0.01732, 0.000, 0.05167, - +0.27281, 0.27281, 0.61172, 0.05102, 0.01770, 0.000, 0.05102, - +0.27106, 0.27106, 0.59463, 0.05036, 0.01799, 0.000, 0.05036, - +0.26935, 0.26935, 0.57849, 0.04973, 0.01824, 0.000, 0.04973, - +0.26763, 0.26763, 0.56299, 0.04910, 0.01844, 0.000, 0.04910, - +0.26593, 0.26593, 0.54822, 0.04849, 0.01861, 0.000, 0.04849, - +0.26427, 0.26427, 0.53418, 0.04789, 0.01874, 0.000, 0.04789, - +0.26260, 0.26260, 0.52070, 0.04730, 0.01883, 0.000, 0.04730/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),K=1,19)/ - +0.30228, 0.30228, 0.73661, 0.04908, 0.00112, 0.000, 0.04908, - +0.30102, 0.30102, 0.73063, 0.04876, 0.00409, 0.000, 0.04876, - +0.29925, 0.29925, 0.71526, 0.04828, 0.00636, 0.000, 0.04828, - +0.29720, 0.29720, 0.69570, 0.04770, 0.00814, 0.000, 0.04770, - +0.29492, 0.29492, 0.67350, 0.04705, 0.00954, 0.000, 0.04705, - +0.29253, 0.29253, 0.65071, 0.04636, 0.01065, 0.000, 0.04636, - +0.29008, 0.29008, 0.62810, 0.04566, 0.01154, 0.000, 0.04566, - +0.28762, 0.28762, 0.60609, 0.04495, 0.01227, 0.000, 0.04495, - +0.28516, 0.28516, 0.58496, 0.04424, 0.01286, 0.000, 0.04424, - +0.28267, 0.28267, 0.56454, 0.04354, 0.01333, 0.000, 0.04354, - +0.28022, 0.28022, 0.54519, 0.04284, 0.01371, 0.000, 0.04284, - +0.27782, 0.27782, 0.52696, 0.04217, 0.01402, 0.000, 0.04217, - +0.27547, 0.27547, 0.50973, 0.04151, 0.01427, 0.000, 0.04151, - +0.27312, 0.27312, 0.49328, 0.04087, 0.01447, 0.000, 0.04087, - +0.27084, 0.27084, 0.47787, 0.04024, 0.01463, 0.000, 0.04024, - +0.26860, 0.26860, 0.46324, 0.03964, 0.01475, 0.000, 0.03964, - +0.26640, 0.26640, 0.44941, 0.03905, 0.01484, 0.000, 0.03905, - +0.26426, 0.26426, 0.43637, 0.03847, 0.01491, 0.000, 0.03847, - +0.26215, 0.26215, 0.42396, 0.03792, 0.01495, 0.000, 0.03792/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),K=1,19)/ - +0.31439, 0.31439, 0.68477, 0.04180, 0.00097, 0.000, 0.04180, - +0.31148, 0.31148, 0.66775, 0.04132, 0.00349, 0.000, 0.04132, - +0.30824, 0.30824, 0.64476, 0.04071, 0.00539, 0.000, 0.04071, - +0.30488, 0.30488, 0.61988, 0.04003, 0.00686, 0.000, 0.04003, - +0.30143, 0.30143, 0.59416, 0.03931, 0.00799, 0.000, 0.03931, - +0.29798, 0.29798, 0.56907, 0.03858, 0.00887, 0.000, 0.03858, - +0.29457, 0.29457, 0.54504, 0.03785, 0.00957, 0.000, 0.03785, - +0.29123, 0.29123, 0.52229, 0.03713, 0.01013, 0.000, 0.03713, - +0.28796, 0.28796, 0.50089, 0.03643, 0.01058, 0.000, 0.03643, - +0.28473, 0.28473, 0.48063, 0.03573, 0.01092, 0.000, 0.03573, - +0.28159, 0.28159, 0.46171, 0.03506, 0.01119, 0.000, 0.03506, - +0.27854, 0.27854, 0.44409, 0.03441, 0.01141, 0.000, 0.03441, - +0.27560, 0.27560, 0.42762, 0.03378, 0.01158, 0.000, 0.03378, - +0.27269, 0.27269, 0.41207, 0.03317, 0.01170, 0.000, 0.03317, - +0.26990, 0.26990, 0.39763, 0.03258, 0.01180, 0.000, 0.03258, - +0.26716, 0.26716, 0.38403, 0.03201, 0.01187, 0.000, 0.03201, - +0.26451, 0.26451, 0.37128, 0.03147, 0.01191, 0.000, 0.03147, - +0.26194, 0.26194, 0.35932, 0.03094, 0.01194, 0.000, 0.03094, - +0.25942, 0.25942, 0.34802, 0.03043, 0.01194, 0.000, 0.03043/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),K=1,19)/ - +0.32405, 0.32405, 0.63550, 0.03543, 0.00083, 0.000, 0.03543, - +0.31946, 0.31946, 0.61003, 0.03486, 0.00299, 0.000, 0.03486, - +0.31476, 0.31476, 0.58152, 0.03418, 0.00458, 0.000, 0.03418, - +0.31012, 0.31012, 0.55302, 0.03348, 0.00579, 0.000, 0.03348, - +0.30552, 0.30552, 0.52514, 0.03274, 0.00671, 0.000, 0.03274, - +0.30104, 0.30104, 0.49884, 0.03201, 0.00741, 0.000, 0.03201, - +0.29671, 0.29671, 0.47428, 0.03129, 0.00796, 0.000, 0.03129, - +0.29252, 0.29252, 0.45148, 0.03060, 0.00839, 0.000, 0.03060, - +0.28848, 0.28848, 0.43039, 0.02992, 0.00872, 0.000, 0.02992, - +0.28455, 0.28455, 0.41074, 0.02926, 0.00897, 0.000, 0.02926, - +0.28076, 0.28076, 0.39260, 0.02863, 0.00917, 0.000, 0.02863, - +0.27712, 0.27712, 0.37585, 0.02802, 0.00931, 0.000, 0.02802, - +0.27362, 0.27362, 0.36035, 0.02744, 0.00943, 0.000, 0.02744, - +0.27020, 0.27020, 0.34587, 0.02688, 0.00950, 0.000, 0.02688, - +0.26693, 0.26693, 0.33249, 0.02635, 0.00955, 0.000, 0.02635, - +0.26376, 0.26376, 0.31999, 0.02583, 0.00958, 0.000, 0.02583, - +0.26069, 0.26069, 0.30834, 0.02533, 0.00959, 0.000, 0.02533, - +0.25773, 0.25773, 0.29748, 0.02486, 0.00959, 0.000, 0.02486, - +0.25485, 0.25485, 0.28728, 0.02440, 0.00958, 0.000, 0.02440/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),K=1,19)/ - +0.33149, 0.33149, 0.58864, 0.02987, 0.00072, 0.000, 0.02987, - +0.32523, 0.32523, 0.55680, 0.02926, 0.00256, 0.000, 0.02926, - +0.31909, 0.31909, 0.52439, 0.02858, 0.00389, 0.000, 0.02858, - +0.31318, 0.31318, 0.49357, 0.02788, 0.00489, 0.000, 0.02788, - +0.30747, 0.30747, 0.46452, 0.02716, 0.00564, 0.000, 0.02716, - +0.30200, 0.30200, 0.43780, 0.02647, 0.00620, 0.000, 0.02647, - +0.29678, 0.29678, 0.41333, 0.02579, 0.00663, 0.000, 0.02579, - +0.29179, 0.29179, 0.39098, 0.02513, 0.00696, 0.000, 0.02513, - +0.28703, 0.28703, 0.37057, 0.02451, 0.00720, 0.000, 0.02451, - +0.28244, 0.28244, 0.35180, 0.02390, 0.00739, 0.000, 0.02390, - +0.27806, 0.27806, 0.33465, 0.02332, 0.00752, 0.000, 0.02332, - +0.27387, 0.27387, 0.31895, 0.02277, 0.00762, 0.000, 0.02277, - +0.26987, 0.26987, 0.30453, 0.02225, 0.00769, 0.000, 0.02225, - +0.26598, 0.26598, 0.29117, 0.02174, 0.00773, 0.000, 0.02174, - +0.26228, 0.26228, 0.27889, 0.02126, 0.00775, 0.000, 0.02126, - +0.25871, 0.25871, 0.26751, 0.02080, 0.00775, 0.000, 0.02080, - +0.25527, 0.25527, 0.25695, 0.02036, 0.00775, 0.000, 0.02036, - +0.25196, 0.25196, 0.24716, 0.01994, 0.00773, 0.000, 0.01994, - +0.24876, 0.24876, 0.23802, 0.01953, 0.00770, 0.000, 0.01953/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),K=1,19)/ - +0.33689, 0.33689, 0.54405, 0.02503, 0.00061, 0.000, 0.02503, - +0.32898, 0.32898, 0.50751, 0.02443, 0.00218, 0.000, 0.02443, - +0.32142, 0.32142, 0.47248, 0.02377, 0.00330, 0.000, 0.02377, - +0.31430, 0.31430, 0.44034, 0.02311, 0.00413, 0.000, 0.02311, - +0.30752, 0.30752, 0.41089, 0.02243, 0.00473, 0.000, 0.02243, - +0.30111, 0.30111, 0.38433, 0.02179, 0.00518, 0.000, 0.02179, - +0.29505, 0.29505, 0.36040, 0.02116, 0.00551, 0.000, 0.02116, - +0.28932, 0.28932, 0.33883, 0.02056, 0.00576, 0.000, 0.02056, - +0.28389, 0.28389, 0.31937, 0.01999, 0.00595, 0.000, 0.01999, - +0.27869, 0.27869, 0.30166, 0.01945, 0.00607, 0.000, 0.01945, - +0.27376, 0.27376, 0.28561, 0.01893, 0.00617, 0.000, 0.01893, - +0.26908, 0.26908, 0.27104, 0.01844, 0.00623, 0.000, 0.01844, - +0.26461, 0.26461, 0.25775, 0.01797, 0.00627, 0.000, 0.01797, - +0.26031, 0.26031, 0.24553, 0.01752, 0.00628, 0.000, 0.01752, - +0.25623, 0.25623, 0.23436, 0.01710, 0.00629, 0.000, 0.01710, - +0.25230, 0.25230, 0.22407, 0.01670, 0.00627, 0.000, 0.01670, - +0.24854, 0.24854, 0.21457, 0.01631, 0.00625, 0.000, 0.01631, - +0.24493, 0.24493, 0.20579, 0.01595, 0.00623, 0.000, 0.01595, - +0.24144, 0.24144, 0.19764, 0.01559, 0.00619, 0.000, 0.01559/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),K=1,19)/ - +0.34038, 0.34038, 0.50160, 0.02085, 0.00053, 0.000, 0.02085, - +0.33086, 0.33086, 0.46172, 0.02028, 0.00186, 0.000, 0.02028, - +0.32194, 0.32194, 0.42511, 0.01966, 0.00280, 0.000, 0.01966, - +0.31364, 0.31364, 0.39243, 0.01904, 0.00348, 0.000, 0.01904, - +0.30585, 0.30585, 0.36315, 0.01843, 0.00396, 0.000, 0.01843, - +0.29855, 0.29855, 0.33718, 0.01784, 0.00432, 0.000, 0.01784, - +0.29171, 0.29171, 0.31411, 0.01728, 0.00458, 0.000, 0.01728, - +0.28529, 0.28529, 0.29357, 0.01674, 0.00477, 0.000, 0.01674, - +0.27924, 0.27924, 0.27521, 0.01624, 0.00490, 0.000, 0.01624, - +0.27350, 0.27350, 0.25867, 0.01575, 0.00499, 0.000, 0.01575, - +0.26807, 0.26807, 0.24380, 0.01529, 0.00505, 0.000, 0.01529, - +0.26293, 0.26293, 0.23039, 0.01486, 0.00509, 0.000, 0.01486, - +0.25806, 0.25806, 0.21824, 0.01445, 0.00510, 0.000, 0.01445, - +0.25339, 0.25339, 0.20714, 0.01406, 0.00510, 0.000, 0.01406, - +0.24897, 0.24897, 0.19705, 0.01370, 0.00509, 0.000, 0.01370, - +0.24474, 0.24474, 0.18780, 0.01335, 0.00507, 0.000, 0.01335, - +0.24069, 0.24069, 0.17931, 0.01302, 0.00505, 0.000, 0.01302, - +0.23682, 0.23682, 0.17149, 0.01270, 0.00501, 0.000, 0.01270, - +0.23310, 0.23310, 0.16427, 0.01240, 0.00497, 0.000, 0.01240/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),K=1,19)/ - +0.34210, 0.34210, 0.46122, 0.01725, 0.00046, 0.000, 0.01725, - +0.33100, 0.33100, 0.41912, 0.01673, 0.00158, 0.000, 0.01673, - +0.32077, 0.32077, 0.38174, 0.01617, 0.00237, 0.000, 0.01617, - +0.31136, 0.31136, 0.34914, 0.01561, 0.00292, 0.000, 0.01561, - +0.30261, 0.30261, 0.32049, 0.01507, 0.00331, 0.000, 0.01507, - +0.29449, 0.29449, 0.29544, 0.01454, 0.00360, 0.000, 0.01454, - +0.28693, 0.28693, 0.27345, 0.01404, 0.00380, 0.000, 0.01404, - +0.27988, 0.27988, 0.25408, 0.01357, 0.00394, 0.000, 0.01357, - +0.27327, 0.27327, 0.23693, 0.01312, 0.00404, 0.000, 0.01312, - +0.26703, 0.26703, 0.22162, 0.01270, 0.00410, 0.000, 0.01270, - +0.26115, 0.26115, 0.20795, 0.01230, 0.00413, 0.000, 0.01230, - +0.25562, 0.25562, 0.19571, 0.01193, 0.00415, 0.000, 0.01193, - +0.25040, 0.25040, 0.18468, 0.01158, 0.00415, 0.000, 0.01158, - +0.24541, 0.24541, 0.17467, 0.01124, 0.00414, 0.000, 0.01124, - +0.24070, 0.24070, 0.16561, 0.01093, 0.00412, 0.000, 0.01093, - +0.23620, 0.23620, 0.15734, 0.01063, 0.00410, 0.000, 0.01063, - +0.23191, 0.23191, 0.14979, 0.01034, 0.00407, 0.000, 0.01034, - +0.22783, 0.22783, 0.14287, 0.01008, 0.00403, 0.000, 0.01008, - +0.22391, 0.22391, 0.13650, 0.00982, 0.00399, 0.000, 0.00982/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),K=1,19)/ - +0.34217, 0.34217, 0.42283, 0.01416, 0.00039, 0.000, 0.01416, - +0.32955, 0.32955, 0.37946, 0.01370, 0.00134, 0.000, 0.01370, - +0.31807, 0.31807, 0.34200, 0.01320, 0.00199, 0.000, 0.01320, - +0.30762, 0.30762, 0.30995, 0.01271, 0.00245, 0.000, 0.01271, - +0.29797, 0.29797, 0.28226, 0.01222, 0.00276, 0.000, 0.01222, - +0.28909, 0.28909, 0.25836, 0.01176, 0.00298, 0.000, 0.01176, - +0.28088, 0.28088, 0.23763, 0.01133, 0.00313, 0.000, 0.01133, - +0.27325, 0.27325, 0.21953, 0.01092, 0.00324, 0.000, 0.01092, - +0.26615, 0.26615, 0.20364, 0.01054, 0.00331, 0.000, 0.01054, - +0.25946, 0.25946, 0.18958, 0.01017, 0.00335, 0.000, 0.01017, - +0.25320, 0.25320, 0.17711, 0.00983, 0.00337, 0.000, 0.00983, - +0.24733, 0.24733, 0.16601, 0.00951, 0.00337, 0.000, 0.00951, - +0.24180, 0.24180, 0.15607, 0.00921, 0.00337, 0.000, 0.00921, - +0.23653, 0.23653, 0.14709, 0.00893, 0.00335, 0.000, 0.00893, - +0.23158, 0.23158, 0.13901, 0.00866, 0.00333, 0.000, 0.00866, - +0.22687, 0.22687, 0.13167, 0.00841, 0.00330, 0.000, 0.00841, - +0.22239, 0.22239, 0.12499, 0.00817, 0.00326, 0.000, 0.00817, - +0.21813, 0.21813, 0.11890, 0.00794, 0.00323, 0.000, 0.00794, - +0.21406, 0.21406, 0.11331, 0.00773, 0.00319, 0.000, 0.00773/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),K=1,19)/ - +0.34066, 0.34066, 0.38638, 0.01155, 0.00033, 0.000, 0.01155, - +0.32661, 0.32661, 0.34253, 0.01114, 0.00113, 0.000, 0.01114, - +0.31394, 0.31394, 0.30552, 0.01071, 0.00167, 0.000, 0.01071, - +0.30251, 0.30251, 0.27442, 0.01028, 0.00204, 0.000, 0.01028, - +0.29205, 0.29205, 0.24794, 0.00986, 0.00229, 0.000, 0.00986, - +0.28248, 0.28248, 0.22537, 0.00946, 0.00246, 0.000, 0.00946, - +0.27368, 0.27368, 0.20598, 0.00909, 0.00258, 0.000, 0.00909, - +0.26554, 0.26554, 0.18921, 0.00874, 0.00266, 0.000, 0.00874, - +0.25800, 0.25800, 0.17462, 0.00841, 0.00270, 0.000, 0.00841, - +0.25093, 0.25093, 0.16179, 0.00810, 0.00273, 0.000, 0.00810, - +0.24434, 0.24434, 0.15050, 0.00781, 0.00273, 0.000, 0.00781, - +0.23817, 0.23817, 0.14050, 0.00755, 0.00273, 0.000, 0.00755, - +0.23239, 0.23239, 0.13159, 0.00729, 0.00272, 0.000, 0.00729, - +0.22691, 0.22691, 0.12360, 0.00705, 0.00270, 0.000, 0.00705, - +0.22176, 0.22176, 0.11643, 0.00683, 0.00267, 0.000, 0.00683, - +0.21687, 0.21687, 0.10995, 0.00662, 0.00264, 0.000, 0.00662, - +0.21224, 0.21224, 0.10409, 0.00642, 0.00261, 0.000, 0.00642, - +0.20784, 0.20784, 0.09875, 0.00623, 0.00258, 0.000, 0.00623, - +0.20365, 0.20365, 0.09388, 0.00606, 0.00255, 0.000, 0.00606/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),K=1,19)/ - +0.33768, 0.33768, 0.35181, 0.00932, 0.00028, 0.000, 0.00932, - +0.32226, 0.32226, 0.30813, 0.00898, 0.00095, 0.000, 0.00898, - +0.30849, 0.30849, 0.27203, 0.00861, 0.00139, 0.000, 0.00861, - +0.29616, 0.29616, 0.24216, 0.00824, 0.00169, 0.000, 0.00824, - +0.28496, 0.28496, 0.21709, 0.00788, 0.00189, 0.000, 0.00788, - +0.27477, 0.27477, 0.19596, 0.00755, 0.00203, 0.000, 0.00755, - +0.26544, 0.26544, 0.17799, 0.00723, 0.00211, 0.000, 0.00723, - +0.25687, 0.25687, 0.16258, 0.00693, 0.00217, 0.000, 0.00693, - +0.24895, 0.24895, 0.14927, 0.00666, 0.00220, 0.000, 0.00666, - +0.24156, 0.24156, 0.13766, 0.00640, 0.00221, 0.000, 0.00640, - +0.23469, 0.23469, 0.12749, 0.00616, 0.00221, 0.000, 0.00616, - +0.22829, 0.22829, 0.11855, 0.00593, 0.00220, 0.000, 0.00593, - +0.22230, 0.22230, 0.11062, 0.00572, 0.00218, 0.000, 0.00572, - +0.21665, 0.21665, 0.10356, 0.00552, 0.00216, 0.000, 0.00552, - +0.21135, 0.21135, 0.09724, 0.00534, 0.00214, 0.000, 0.00534, - +0.20633, 0.20633, 0.09156, 0.00516, 0.00211, 0.000, 0.00516, - +0.20159, 0.20159, 0.08643, 0.00500, 0.00208, 0.000, 0.00500, - +0.19710, 0.19710, 0.08178, 0.00485, 0.00205, 0.000, 0.00485, - +0.19283, 0.19283, 0.07756, 0.00470, 0.00202, 0.000, 0.00470/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),K=1,19)/ - +0.33330, 0.33330, 0.31907, 0.00747, 0.00023, 0.000, 0.00747, - +0.31660, 0.31660, 0.27612, 0.00718, 0.00080, 0.000, 0.00718, - +0.30182, 0.30182, 0.24129, 0.00687, 0.00116, 0.000, 0.00687, - +0.28866, 0.28866, 0.21289, 0.00656, 0.00140, 0.000, 0.00656, - +0.27680, 0.27680, 0.18937, 0.00626, 0.00155, 0.000, 0.00626, - +0.26606, 0.26606, 0.16975, 0.00598, 0.00166, 0.000, 0.00598, - +0.25628, 0.25628, 0.15322, 0.00571, 0.00172, 0.000, 0.00571, - +0.24733, 0.24733, 0.13917, 0.00547, 0.00176, 0.000, 0.00547, - +0.23910, 0.23910, 0.12711, 0.00524, 0.00178, 0.000, 0.00524, - +0.23145, 0.23145, 0.11668, 0.00502, 0.00178, 0.000, 0.00502, - +0.22437, 0.22437, 0.10760, 0.00482, 0.00177, 0.000, 0.00482, - +0.21779, 0.21779, 0.09965, 0.00464, 0.00176, 0.000, 0.00464, - +0.21165, 0.21165, 0.09265, 0.00446, 0.00174, 0.000, 0.00446, - +0.20586, 0.20586, 0.08643, 0.00430, 0.00172, 0.000, 0.00430, - +0.20046, 0.20046, 0.08090, 0.00415, 0.00170, 0.000, 0.00415, - +0.19536, 0.19536, 0.07595, 0.00401, 0.00167, 0.000, 0.00401, - +0.19055, 0.19055, 0.07150, 0.00387, 0.00165, 0.000, 0.00387, - +0.18601, 0.18601, 0.06748, 0.00375, 0.00162, 0.000, 0.00375, - +0.18169, 0.18169, 0.06384, 0.00363, 0.00159, 0.000, 0.00363/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),K=1,19)/ - +0.32758, 0.32758, 0.28813, 0.00591, 0.00019, 0.000, 0.00591, - +0.30969, 0.30969, 0.24637, 0.00568, 0.00066, 0.000, 0.00568, - +0.29399, 0.29399, 0.21310, 0.00542, 0.00095, 0.000, 0.00542, - +0.28011, 0.28011, 0.18634, 0.00516, 0.00115, 0.000, 0.00516, - +0.26767, 0.26767, 0.16446, 0.00491, 0.00127, 0.000, 0.00491, - +0.25646, 0.25646, 0.14639, 0.00468, 0.00134, 0.000, 0.00468, - +0.24630, 0.24630, 0.13131, 0.00446, 0.00139, 0.000, 0.00446, - +0.23704, 0.23704, 0.11859, 0.00426, 0.00142, 0.000, 0.00426, - +0.22857, 0.22857, 0.10776, 0.00407, 0.00143, 0.000, 0.00407, - +0.22072, 0.22072, 0.09845, 0.00389, 0.00142, 0.000, 0.00389, - +0.21348, 0.21348, 0.09040, 0.00373, 0.00141, 0.000, 0.00373, - +0.20677, 0.20677, 0.08339, 0.00358, 0.00140, 0.000, 0.00358, - +0.20053, 0.20053, 0.07725, 0.00344, 0.00138, 0.000, 0.00344, - +0.19467, 0.19467, 0.07182, 0.00331, 0.00136, 0.000, 0.00331, - +0.18920, 0.18920, 0.06701, 0.00319, 0.00134, 0.000, 0.00319, - +0.18406, 0.18406, 0.06272, 0.00307, 0.00132, 0.000, 0.00307, - +0.17922, 0.17922, 0.05888, 0.00296, 0.00129, 0.000, 0.00296, - +0.17466, 0.17466, 0.05543, 0.00286, 0.00127, 0.000, 0.00286, - +0.17034, 0.17034, 0.05231, 0.00277, 0.00124, 0.000, 0.00277/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),K=1,19)/ - +0.32061, 0.32061, 0.25896, 0.00464, 0.00016, 0.000, 0.00464, - +0.30163, 0.30163, 0.21877, 0.00445, 0.00054, 0.000, 0.00445, - +0.28510, 0.28510, 0.18729, 0.00424, 0.00078, 0.000, 0.00424, - +0.27059, 0.27059, 0.16231, 0.00403, 0.00093, 0.000, 0.00403, - +0.25765, 0.25765, 0.14212, 0.00383, 0.00102, 0.000, 0.00383, - +0.24606, 0.24606, 0.12562, 0.00364, 0.00108, 0.000, 0.00364, - +0.23561, 0.23561, 0.11197, 0.00346, 0.00111, 0.000, 0.00346, - +0.22612, 0.22612, 0.10054, 0.00330, 0.00113, 0.000, 0.00330, - +0.21746, 0.21746, 0.09089, 0.00314, 0.00113, 0.000, 0.00314, - +0.20948, 0.20948, 0.08264, 0.00300, 0.00113, 0.000, 0.00300, - +0.20213, 0.20213, 0.07556, 0.00287, 0.00112, 0.000, 0.00287, - +0.19534, 0.19534, 0.06942, 0.00275, 0.00110, 0.000, 0.00275, - +0.18904, 0.18904, 0.06407, 0.00263, 0.00109, 0.000, 0.00263, - +0.18315, 0.18315, 0.05936, 0.00253, 0.00107, 0.000, 0.00253, - +0.17767, 0.17767, 0.05521, 0.00243, 0.00105, 0.000, 0.00243, - +0.17253, 0.17253, 0.05153, 0.00234, 0.00103, 0.000, 0.00234, - +0.16769, 0.16769, 0.04824, 0.00225, 0.00101, 0.000, 0.00225, - +0.16315, 0.16315, 0.04529, 0.00217, 0.00099, 0.000, 0.00217, - +0.15886, 0.15886, 0.04264, 0.00210, 0.00096, 0.000, 0.00210/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),K=1,19)/ - +0.31240, 0.31240, 0.23150, 0.00359, 0.00013, 0.000, 0.00359, - +0.29246, 0.29246, 0.19321, 0.00344, 0.00044, 0.000, 0.00344, - +0.27522, 0.27522, 0.16368, 0.00327, 0.00063, 0.000, 0.00327, - +0.26017, 0.26017, 0.14057, 0.00310, 0.00075, 0.000, 0.00310, - +0.24683, 0.24683, 0.12210, 0.00294, 0.00082, 0.000, 0.00294, - +0.23494, 0.23494, 0.10716, 0.00279, 0.00086, 0.000, 0.00279, - +0.22426, 0.22426, 0.09490, 0.00265, 0.00088, 0.000, 0.00265, - +0.21460, 0.21460, 0.08472, 0.00251, 0.00089, 0.000, 0.00251, - +0.20582, 0.20582, 0.07618, 0.00239, 0.00089, 0.000, 0.00239, - +0.19776, 0.19776, 0.06894, 0.00228, 0.00089, 0.000, 0.00228, - +0.19037, 0.19037, 0.06276, 0.00217, 0.00088, 0.000, 0.00217, - +0.18356, 0.18356, 0.05743, 0.00208, 0.00086, 0.000, 0.00208, - +0.17727, 0.17727, 0.05280, 0.00199, 0.00085, 0.000, 0.00199, - +0.17139, 0.17139, 0.04876, 0.00190, 0.00083, 0.000, 0.00190, - +0.16593, 0.16593, 0.04520, 0.00183, 0.00081, 0.000, 0.00183, - +0.16083, 0.16083, 0.04206, 0.00175, 0.00079, 0.000, 0.00175, - +0.15604, 0.15604, 0.03927, 0.00169, 0.00078, 0.000, 0.00169, - +0.15156, 0.15156, 0.03677, 0.00163, 0.00076, 0.000, 0.00163, - +0.14732, 0.14732, 0.03453, 0.00157, 0.00074, 0.000, 0.00157/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),K=1,19)/ - +0.30305, 0.30305, 0.20574, 0.00274, 0.00010, 0.000, 0.00274, - +0.28225, 0.28225, 0.16960, 0.00263, 0.00035, 0.000, 0.00263, - +0.26441, 0.26441, 0.14217, 0.00250, 0.00050, 0.000, 0.00250, - +0.24892, 0.24892, 0.12096, 0.00237, 0.00060, 0.000, 0.00237, - +0.23527, 0.23527, 0.10421, 0.00224, 0.00065, 0.000, 0.00224, - +0.22317, 0.22317, 0.09080, 0.00212, 0.00068, 0.000, 0.00212, - +0.21235, 0.21235, 0.07989, 0.00201, 0.00070, 0.000, 0.00201, - +0.20260, 0.20260, 0.07090, 0.00190, 0.00070, 0.000, 0.00190, - +0.19377, 0.19377, 0.06341, 0.00180, 0.00070, 0.000, 0.00180, - +0.18570, 0.18570, 0.05711, 0.00171, 0.00069, 0.000, 0.00171, - +0.17831, 0.17831, 0.05175, 0.00163, 0.00068, 0.000, 0.00163, - +0.17154, 0.17154, 0.04716, 0.00156, 0.00067, 0.000, 0.00156, - +0.16528, 0.16528, 0.04320, 0.00149, 0.00065, 0.000, 0.00149, - +0.15947, 0.15947, 0.03975, 0.00142, 0.00064, 0.000, 0.00142, - +0.15408, 0.15408, 0.03674, 0.00136, 0.00062, 0.000, 0.00136, - +0.14905, 0.14905, 0.03408, 0.00131, 0.00061, 0.000, 0.00131, - +0.14435, 0.14435, 0.03173, 0.00125, 0.00059, 0.000, 0.00125, - +0.13995, 0.13995, 0.02963, 0.00121, 0.00058, 0.000, 0.00121, - +0.13581, 0.13581, 0.02776, 0.00116, 0.00056, 0.000, 0.00116/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),K=1,19)/ - +0.29258, 0.29258, 0.18164, 0.00206, 0.00009, 0.000, 0.00206, - +0.27107, 0.27107, 0.14786, 0.00198, 0.00028, 0.000, 0.00198, - +0.25274, 0.25274, 0.12260, 0.00188, 0.00040, 0.000, 0.00188, - +0.23693, 0.23693, 0.10333, 0.00177, 0.00047, 0.000, 0.00177, - +0.22307, 0.22307, 0.08828, 0.00168, 0.00051, 0.000, 0.00168, - +0.21084, 0.21084, 0.07634, 0.00158, 0.00053, 0.000, 0.00158, - +0.19995, 0.19995, 0.06672, 0.00149, 0.00054, 0.000, 0.00149, - +0.19018, 0.19018, 0.05886, 0.00141, 0.00054, 0.000, 0.00141, - +0.18137, 0.18137, 0.05236, 0.00134, 0.00054, 0.000, 0.00134, - +0.17335, 0.17335, 0.04692, 0.00127, 0.00053, 0.000, 0.00127, - +0.16603, 0.16603, 0.04233, 0.00120, 0.00052, 0.000, 0.00120, - +0.15934, 0.15934, 0.03841, 0.00115, 0.00051, 0.000, 0.00115, - +0.15317, 0.15317, 0.03505, 0.00109, 0.00050, 0.000, 0.00109, - +0.14746, 0.14746, 0.03214, 0.00104, 0.00048, 0.000, 0.00104, - +0.14218, 0.14218, 0.02961, 0.00100, 0.00047, 0.000, 0.00100, - +0.13726, 0.13726, 0.02738, 0.00095, 0.00046, 0.000, 0.00095, - +0.13268, 0.13268, 0.02542, 0.00091, 0.00045, 0.000, 0.00091, - +0.12840, 0.12840, 0.02368, 0.00088, 0.00043, 0.000, 0.00088, - +0.12438, 0.12438, 0.02213, 0.00084, 0.00042, 0.000, 0.00084/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),K=1,19)/ - +0.28107, 0.28107, 0.15919, 0.00153, 0.00007, 0.000, 0.00153, - +0.25897, 0.25897, 0.12791, 0.00147, 0.00022, 0.000, 0.00147, - +0.24028, 0.24028, 0.10488, 0.00139, 0.00031, 0.000, 0.00139, - +0.22425, 0.22425, 0.08753, 0.00131, 0.00037, 0.000, 0.00131, - +0.21029, 0.21029, 0.07415, 0.00124, 0.00039, 0.000, 0.00124, - +0.19802, 0.19802, 0.06363, 0.00116, 0.00041, 0.000, 0.00116, - +0.18715, 0.18715, 0.05524, 0.00110, 0.00041, 0.000, 0.00110, - +0.17744, 0.17744, 0.04843, 0.00104, 0.00041, 0.000, 0.00104, - +0.16872, 0.16872, 0.04284, 0.00098, 0.00041, 0.000, 0.00098, - +0.16079, 0.16079, 0.03819, 0.00093, 0.00040, 0.000, 0.00093, - +0.15360, 0.15360, 0.03430, 0.00088, 0.00039, 0.000, 0.00088, - +0.14704, 0.14704, 0.03099, 0.00083, 0.00038, 0.000, 0.00083, - +0.14101, 0.14101, 0.02817, 0.00079, 0.00037, 0.000, 0.00079, - +0.13544, 0.13544, 0.02574, 0.00076, 0.00036, 0.000, 0.00076, - +0.13031, 0.13031, 0.02363, 0.00072, 0.00035, 0.000, 0.00072, - +0.12554, 0.12554, 0.02179, 0.00069, 0.00034, 0.000, 0.00069, - +0.12111, 0.12111, 0.02017, 0.00066, 0.00033, 0.000, 0.00066, - +0.11698, 0.11698, 0.01873, 0.00063, 0.00032, 0.000, 0.00063, - +0.11311, 0.11311, 0.01747, 0.00061, 0.00031, 0.000, 0.00061/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),K=1,19)/ - +0.25505, 0.25505, 0.11909, 0.00079, 0.00004, 0.000, 0.00079, - +0.23226, 0.23226, 0.09311, 0.00076, 0.00013, 0.000, 0.00076, - +0.21325, 0.21325, 0.07458, 0.00072, 0.00018, 0.000, 0.00072, - +0.19715, 0.19715, 0.06097, 0.00068, 0.00021, 0.000, 0.00068, - +0.18329, 0.18329, 0.05072, 0.00064, 0.00022, 0.000, 0.00064, - +0.17123, 0.17123, 0.04283, 0.00060, 0.00023, 0.000, 0.00060, - +0.16065, 0.16065, 0.03665, 0.00056, 0.00023, 0.000, 0.00056, - +0.15127, 0.15127, 0.03172, 0.00052, 0.00023, 0.000, 0.00052, - +0.14291, 0.14291, 0.02773, 0.00049, 0.00022, 0.000, 0.00049, - +0.13539, 0.13539, 0.02446, 0.00046, 0.00022, 0.000, 0.00046, - +0.12859, 0.12859, 0.02176, 0.00044, 0.00021, 0.000, 0.00044, - +0.12243, 0.12243, 0.01949, 0.00042, 0.00020, 0.000, 0.00042, - +0.11682, 0.11682, 0.01757, 0.00039, 0.00020, 0.000, 0.00039, - +0.11166, 0.11166, 0.01594, 0.00037, 0.00019, 0.000, 0.00037, - +0.10693, 0.10693, 0.01453, 0.00035, 0.00018, 0.000, 0.00035, - +0.10256, 0.10256, 0.01331, 0.00034, 0.00018, 0.000, 0.00034, - +0.09852, 0.09852, 0.01225, 0.00032, 0.00017, 0.000, 0.00032, - +0.09477, 0.09477, 0.01132, 0.00031, 0.00017, 0.000, 0.00031, - +0.09128, 0.09128, 0.01050, 0.00029, 0.00016, 0.000, 0.00029/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),K=1,19)/ - +0.22537, 0.22537, 0.08523, 0.00037, 0.00002, 0.000, 0.00037, - +0.20255, 0.20255, 0.06467, 0.00036, 0.00007, 0.000, 0.00036, - +0.18381, 0.18381, 0.05047, 0.00034, 0.00010, 0.000, 0.00034, - +0.16815, 0.16815, 0.04035, 0.00032, 0.00011, 0.000, 0.00032, - +0.15482, 0.15482, 0.03290, 0.00030, 0.00012, 0.000, 0.00030, - +0.14335, 0.14335, 0.02730, 0.00028, 0.00012, 0.000, 0.00028, - +0.13339, 0.13339, 0.02300, 0.00026, 0.00012, 0.000, 0.00026, - +0.12465, 0.12465, 0.01963, 0.00024, 0.00012, 0.000, 0.00024, - +0.11692, 0.11692, 0.01694, 0.00023, 0.00011, 0.000, 0.00023, - +0.11002, 0.11002, 0.01478, 0.00021, 0.00011, 0.000, 0.00021, - +0.10384, 0.10384, 0.01301, 0.00020, 0.00011, 0.000, 0.00020, - +0.09827, 0.09827, 0.01154, 0.00019, 0.00010, 0.000, 0.00019, - +0.09323, 0.09323, 0.01032, 0.00018, 0.00010, 0.000, 0.00018, - +0.08863, 0.08863, 0.00928, 0.00017, 0.00009, 0.000, 0.00017, - +0.08444, 0.08444, 0.00840, 0.00016, 0.00009, 0.000, 0.00016, - +0.08059, 0.08059, 0.00765, 0.00015, 0.00009, 0.000, 0.00015, - +0.07704, 0.07704, 0.00699, 0.00014, 0.00008, 0.000, 0.00014, - +0.07377, 0.07377, 0.00642, 0.00014, 0.00008, 0.000, 0.00014, - +0.07074, 0.07074, 0.00593, 0.00013, 0.00008, 0.000, 0.00013/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),K=1,19)/ - +0.19244, 0.19244, 0.05742, 0.00015, 0.00001, 0.000, 0.00015, - +0.17036, 0.17036, 0.04212, 0.00015, 0.00003, 0.000, 0.00015, - +0.15253, 0.15253, 0.03193, 0.00014, 0.00005, 0.000, 0.00014, - +0.13785, 0.13785, 0.02489, 0.00013, 0.00005, 0.000, 0.00013, - +0.12553, 0.12553, 0.01985, 0.00012, 0.00005, 0.000, 0.00012, - +0.11505, 0.11505, 0.01615, 0.00011, 0.00005, 0.000, 0.00011, - +0.10605, 0.10605, 0.01337, 0.00010, 0.00005, 0.000, 0.00010, - +0.09824, 0.09824, 0.01123, 0.00010, 0.00005, 0.000, 0.00010, - +0.09140, 0.09140, 0.00956, 0.00009, 0.00005, 0.000, 0.00009, - +0.08534, 0.08534, 0.00824, 0.00008, 0.00005, 0.000, 0.00008, - +0.07996, 0.07996, 0.00717, 0.00008, 0.00004, 0.000, 0.00008, - +0.07515, 0.07515, 0.00630, 0.00007, 0.00004, 0.000, 0.00007, - +0.07083, 0.07083, 0.00558, 0.00007, 0.00004, 0.000, 0.00007, - +0.06692, 0.06692, 0.00497, 0.00007, 0.00004, 0.000, 0.00007, - +0.06338, 0.06338, 0.00447, 0.00006, 0.00004, 0.000, 0.00006, - +0.06014, 0.06014, 0.00404, 0.00006, 0.00004, 0.000, 0.00006, - +0.05718, 0.05718, 0.00367, 0.00005, 0.00003, 0.000, 0.00005, - +0.05447, 0.05447, 0.00335, 0.00005, 0.00003, 0.000, 0.00005, - +0.05197, 0.05197, 0.00307, 0.00005, 0.00003, 0.000, 0.00005/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),K=1,19)/ - +0.15661, 0.15661, 0.03543, 0.00005, 0.000, 0.000, 0.00005, - +0.13617, 0.13617, 0.02497, 0.00005, 0.00001, 0.000, 0.00005, - +0.11997, 0.11997, 0.01830, 0.00005, 0.00002, 0.000, 0.00005, - +0.10687, 0.10687, 0.01385, 0.00004, 0.00002, 0.000, 0.00004, - +0.09604, 0.09604, 0.01076, 0.00004, 0.00002, 0.000, 0.00004, - +0.08697, 0.08697, 0.00856, 0.00004, 0.00002, 0.000, 0.00004, - +0.07927, 0.07927, 0.00695, 0.00004, 0.00002, 0.000, 0.00004, - +0.07266, 0.07266, 0.00573, 0.00003, 0.00002, 0.000, 0.00003, - +0.06695, 0.06695, 0.00480, 0.00003, 0.00002, 0.000, 0.00003, - +0.06194, 0.06194, 0.00408, 0.00003, 0.00002, 0.000, 0.00003, - +0.05753, 0.05753, 0.00351, 0.00003, 0.00002, 0.000, 0.00003, - +0.05363, 0.05363, 0.00304, 0.00002, 0.00002, 0.000, 0.00002, - +0.05016, 0.05016, 0.00267, 0.00002, 0.00001, 0.000, 0.00002, - +0.04704, 0.04704, 0.00236, 0.00002, 0.00001, 0.000, 0.00002, - +0.04423, 0.04423, 0.00210, 0.00002, 0.00001, 0.000, 0.00002, - +0.04169, 0.04169, 0.00188, 0.00002, 0.00001, 0.000, 0.00002, - +0.03938, 0.03938, 0.00170, 0.00002, 0.00001, 0.000, 0.00002, - +0.03728, 0.03728, 0.00154, 0.00002, 0.00001, 0.000, 0.00002, - +0.03536, 0.03536, 0.00140, 0.00002, 0.00001, 0.000, 0.00002/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),K=1,19)/ - +0.11838, 0.11838, 0.01902, 0.00001, 0.000, 0.000, 0.00001, - +0.10061, 0.10061, 0.01276, 0.00001, 0.000, 0.000, 0.00001, - +0.08687, 0.08687, 0.00897, 0.00001, 0.000, 0.000, 0.00001, - +0.07599, 0.07599, 0.00654, 0.00001, 0.00001, 0.000, 0.00001, - +0.06716, 0.06716, 0.00493, 0.00001, 0.00001, 0.000, 0.00001, - +0.05989, 0.05989, 0.00382, 0.00001, 0.00001, 0.000, 0.00001, - +0.05383, 0.05383, 0.00302, 0.00001, 0.00001, 0.000, 0.00001, - +0.04870, 0.04870, 0.00244, 0.00001, 0.000, 0.000, 0.00001, - +0.04432, 0.04432, 0.00201, 0.00001, 0.000, 0.000, 0.00001, - +0.04053, 0.04053, 0.00168, 0.00001, 0.000, 0.000, 0.00001, - +0.03724, 0.03724, 0.00142, 0.00001, 0.000, 0.000, 0.00001, - +0.03436, 0.03436, 0.00122, 0.00001, 0.000, 0.000, 0.00001, - +0.03182, 0.03182, 0.00105, 0.00001, 0.000, 0.000, 0.00001, - +0.02956, 0.02956, 0.00092, 0.000, 0.000, 0.000, 0.000, - +0.02756, 0.02756, 0.00081, 0.000, 0.000, 0.000, 0.000, - +0.02575, 0.02575, 0.00072, 0.000, 0.000, 0.000, 0.000, - +0.02413, 0.02413, 0.00065, 0.000, 0.000, 0.000, 0.000, - +0.02267, 0.02267, 0.00058, 0.000, 0.000, 0.000, 0.000, - +0.02134, 0.02134, 0.00053, 0.000, 0.000, 0.000, 0.000/ - DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),K=1,19)/ - +0.07837, 0.07837, 0.00792, 0.000, 0.000, 0.000, 0.000, - +0.06455, 0.06455, 0.00497, 0.000, 0.000, 0.000, 0.000, - +0.05420, 0.05420, 0.00330, 0.000, 0.000, 0.000, 0.000, - +0.04623, 0.04623, 0.00230, 0.000, 0.000, 0.000, 0.000, - +0.03993, 0.03993, 0.00166, 0.000, 0.000, 0.000, 0.000, - +0.03487, 0.03487, 0.00124, 0.000, 0.000, 0.000, 0.000, - +0.03074, 0.03074, 0.00095, 0.000, 0.000, 0.000, 0.000, - +0.02731, 0.02731, 0.00075, 0.000, 0.000, 0.000, 0.000, - +0.02443, 0.02443, 0.00060, 0.000, 0.000, 0.000, 0.000, - +0.02199, 0.02199, 0.00049, 0.000, 0.000, 0.000, 0.000, - +0.01991, 0.01991, 0.00041, 0.000, 0.000, 0.000, 0.000, - +0.01811, 0.01811, 0.00034, 0.000, 0.000, 0.000, 0.000, - +0.01655, 0.01655, 0.00029, 0.000, 0.000, 0.000, 0.000, - +0.01518, 0.01518, 0.00025, 0.000, 0.000, 0.000, 0.000, - +0.01397, 0.01397, 0.00022, 0.000, 0.000, 0.000, 0.000, - +0.01291, 0.01291, 0.00019, 0.000, 0.000, 0.000, 0.000, - +0.01196, 0.01196, 0.00017, 0.000, 0.000, 0.000, 0.000, - +0.01111, 0.01111, 0.00015, 0.000, 0.000, 0.000, 0.000, - +0.01035, 0.01035, 0.00014, 0.000, 0.000, 0.000, 0.000/ - DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),K=1,19)/ - +0.03767, 0.03767, 0.00177, 0.000, 0.000, 0.000, 0.000, - +0.02943, 0.02943, 0.00100, 0.000, 0.000, 0.000, 0.000, - +0.02358, 0.02358, 0.00061, 0.000, 0.000, 0.000, 0.000, - +0.01928, 0.01928, 0.00039, 0.000, 0.000, 0.000, 0.000, - +0.01602, 0.01602, 0.00026, 0.000, 0.000, 0.000, 0.000, - +0.01351, 0.01351, 0.00019, 0.000, 0.000, 0.000, 0.000, - +0.01152, 0.01152, 0.00014, 0.000, 0.000, 0.000, 0.000, - +0.00993, 0.00993, 0.00010, 0.000, 0.000, 0.000, 0.000, - +0.00864, 0.00864, 0.00008, 0.000, 0.000, 0.000, 0.000, - +0.00757, 0.00757, 0.00006, 0.000, 0.000, 0.000, 0.000, - +0.00668, 0.00668, 0.00005, 0.000, 0.000, 0.000, 0.000, - +0.00594, 0.00594, 0.00004, 0.000, 0.000, 0.000, 0.000, - +0.00530, 0.00530, 0.00004, 0.000, 0.000, 0.000, 0.000, - +0.00476, 0.00476, 0.00003, 0.000, 0.000, 0.000, 0.000, - +0.00430, 0.00430, 0.00003, 0.000, 0.000, 0.000, 0.000, - +0.00389, 0.00389, 0.00002, 0.000, 0.000, 0.000, 0.000, - +0.00354, 0.00354, 0.00002, 0.000, 0.000, 0.000, 0.000, - +0.00323, 0.00323, 0.00002, 0.000, 0.000, 0.000, 0.000, - +0.00296, 0.00296, 0.00002, 0.000, 0.000, 0.000, 0.000/ - DATA ((F(I,49,K),I=1,5),F(7,49,K),F(6,49,K),K=1,19)/ - +0.01779, 0.01779, 0.00040, 0.000, 0.000, 0.000, 0.000, - +0.01319, 0.01319, 0.00020, 0.000, 0.000, 0.000, 0.000, - +0.01008, 0.01008, 0.00011, 0.000, 0.000, 0.000, 0.000, - +0.00791, 0.00791, 0.00007, 0.000, 0.000, 0.000, 0.000, - +0.00633, 0.00633, 0.00004, 0.000, 0.000, 0.000, 0.000, - +0.00515, 0.00515, 0.00003, 0.000, 0.000, 0.000, 0.000, - +0.00426, 0.00426, 0.00002, 0.000, 0.000, 0.000, 0.000, - +0.00356, 0.00356, 0.00002, 0.000, 0.000, 0.000, 0.000, - +0.00301, 0.00301, 0.00001, 0.000, 0.000, 0.000, 0.000, - +0.00257, 0.00257, 0.00001, 0.000, 0.000, 0.000, 0.000, - +0.00221, 0.00221, 0.00001, 0.000, 0.000, 0.000, 0.000, - +0.00192, 0.00192, 0.00001, 0.000, 0.000, 0.000, 0.000, - +0.00168, 0.00168, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.00148, 0.00148, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.00130, 0.00130, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.00116, 0.00116, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.00104, 0.00104, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.00093, 0.00093, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.00084, 0.00084, 0.000, 0.000, 0.000, 0.000, 0.000/ - DATA ((F(I,50,K),I=1,5),F(7,50,K),F(6,50,K),K=1,19)/ - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000/ - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.85D0,.9D0,.95D0,.975D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/0,0,3,5,0,5,0/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ - XSAVE=X - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,NQ -C READ(102,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M) -C 1=UV 2=DV 3=GLUE 4=(UBAR+DBAR)/2 5=CBAR 7=BBAR 6=SBAR - DO 25 I=1,7 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=2,6 - DO 30 K=1,NQ - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 50 FORMAT(7F10.5) - DO 40 I=1,7 - DO 40 M=1,NQ - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,7 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7.OR.I.EQ.1) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE -C UPBAR DISTRIBUTION = D DISTRIBUTION - UPV=G(2) - DNV=G(2) -C THIS SEA IS (UBAR+DBAR)/2 - SEA=G(4) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) - X=XSAVE - RETURN - END diff --git a/PDF/spdf/smrsp33.F b/PDF/spdf/smrsp33.F deleted file mode 100644 index 587e53b52a8..00000000000 --- a/PDF/spdf/smrsp33.F +++ /dev/null @@ -1,1092 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:52 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:47 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C -C - SUBROUTINE SMRSP33(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GLU) -C -C :::::::::::: PION STRUCTURE FUNCTION :: 20% SEA ::::::::::::::::: -C -#include "pdf/impdp.inc" - PARAMETER(NX=50) - PARAMETER(NQ=19) - PARAMETER(NTENTH=21) - DIMENSION F(7,NX,NQ),G(7),XX(NX),N0(7) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),K=1,19)/ - +0.00073, 0.00073, 1.66123, 0.23785, 0.01467, 0.000, 0.23785, - +0.00089, 0.00089, 6.40189, 0.30465, 0.07117, 0.000, 0.30465, - +0.00105, 0.00105, 14.97676, 0.38939, 0.14670, 0.000, 0.38939, - +0.00121, 0.00121, 27.90529, 0.49312, 0.24206, 0.000, 0.49312, - +0.00137, 0.00137, 44.87845, 0.61728, 0.35858, 0.000, 0.61728, - +0.00153, 0.00153, 66.11195, 0.76244, 0.49668, 0.000, 0.76244, - +0.00169, 0.00169, 91.55411, 0.92921, 0.65689, 0.000, 0.92921, - +0.00186, 0.00186,121.11298, 1.11797, 0.83951, 0.000, 1.11797, - +0.00202, 0.00202,154.70744, 1.32898, 1.04476, 0.000, 1.32898, - +0.00218, 0.00218,191.69145, 1.56152, 1.27187, 0.000, 1.56152, - +0.00235, 0.00235,232.42030, 1.81590, 1.52109, 0.000, 1.81590, - +0.00251, 0.00251,276.89560, 2.09225, 1.79254, 0.000, 2.09225, - +0.00268, 0.00268,324.88199, 2.39028, 2.08588, 0.000, 2.39028, - +0.00284, 0.00284,375.47061, 2.70749, 2.39863, 0.000, 2.70749, - +0.00301, 0.00301,429.74271, 3.04645, 2.73329, 0.000, 3.04645, - +0.00317, 0.00317,486.63776, 3.40429, 3.08701, 0.000, 3.40429, - +0.00334, 0.00334,546.39929, 3.78121, 3.45997, 0.000, 3.78121, - +0.00350, 0.00350,609.11194, 4.17769, 3.85260, 0.000, 4.17769, - +0.00367, 0.00367,673.96960, 4.59037, 4.26159, 0.000, 4.59037/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),K=1,19)/ - +0.00113, 0.00113, 1.59510, 0.23632, 0.01372, 0.000, 0.23632, - +0.00136, 0.00136, 5.60677, 0.29736, 0.06555, 0.000, 0.29736, - +0.00159, 0.00159, 12.38822, 0.37313, 0.13313, 0.000, 0.37313, - +0.00181, 0.00181, 22.13688, 0.46396, 0.21656, 0.000, 0.46396, - +0.00204, 0.00204, 34.47487, 0.57057, 0.31644, 0.000, 0.57057, - +0.00226, 0.00226, 49.45894, 0.69296, 0.43265, 0.000, 0.69296, - +0.00249, 0.00249, 66.96782, 0.83122, 0.56519, 0.000, 0.83122, - +0.00271, 0.00271, 86.87107, 0.98529, 0.71393, 0.000, 0.98529, - +0.00293, 0.00293,109.06017, 1.15505, 0.87869, 0.000, 1.15505, - +0.00316, 0.00316,133.06537, 1.33960, 1.05855, 0.000, 1.33960, - +0.00338, 0.00338,159.09331, 1.53896, 1.25348, 0.000, 1.53896, - +0.00360, 0.00360,187.11481, 1.75302, 1.46333, 0.000, 1.75302, - +0.00382, 0.00382,216.95308, 1.98134, 1.68765, 0.000, 1.98134, - +0.00403, 0.00403,248.01726, 2.22184, 1.92434, 0.000, 2.22184, - +0.00425, 0.00425,280.97537, 2.47635, 2.17520, 0.000, 2.47635, - +0.00447, 0.00447,315.15277, 2.74257, 2.43792, 0.000, 2.74257, - +0.00468, 0.00468,350.69443, 3.02056, 2.71255, 0.000, 3.02056, - +0.00490, 0.00490,387.64322, 3.31057, 2.99932, 0.000, 3.31057, - +0.00511, 0.00511,425.50595, 3.61007, 3.29570, 0.000, 3.61007/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),K=1,19)/ - +0.00176, 0.00176, 1.53159, 0.23460, 0.01276, 0.000, 0.23460, - +0.00208, 0.00208, 4.91031, 0.29002, 0.06007, 0.000, 0.29002, - +0.00240, 0.00240, 10.24688, 0.35732, 0.12021, 0.000, 0.35732, - +0.00272, 0.00272, 17.56050, 0.43634, 0.19279, 0.000, 0.43634, - +0.00304, 0.00304, 26.48240, 0.52728, 0.27791, 0.000, 0.52728, - +0.00335, 0.00335, 36.99974, 0.62980, 0.37511, 0.000, 0.62980, - +0.00366, 0.00366, 48.98272, 0.74368, 0.48408, 0.000, 0.74368, - +0.00396, 0.00396, 62.30855, 0.86860, 0.60446, 0.000, 0.86860, - +0.00426, 0.00426, 76.87907, 1.00426, 0.73587, 0.000, 1.00426, - +0.00456, 0.00456, 92.36638, 1.14975, 0.87739, 0.000, 1.14975, - +0.00486, 0.00486,108.89706, 1.30495, 1.02885, 0.000, 1.30495, - +0.00515, 0.00515,126.44055, 1.46964, 1.19001, 0.000, 1.46964, - +0.00544, 0.00544,144.87434, 1.64338, 1.36039, 0.000, 1.64338, - +0.00573, 0.00573,163.82210, 1.82447, 1.53830, 0.000, 1.82447, - +0.00601, 0.00601,183.70142, 2.01427, 1.72506, 0.000, 2.01427, - +0.00630, 0.00630,204.08971, 2.21096, 1.91884, 0.000, 2.21096, - +0.00658, 0.00658,225.07739, 2.41456, 2.11966, 0.000, 2.41456, - +0.00686, 0.00686,246.68988, 2.62523, 2.32765, 0.000, 2.62523, - +0.00713, 0.00713,268.62991, 2.84106, 2.54091, 0.000, 2.84106/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),K=1,19)/ - +0.00227, 0.00227, 1.49559, 0.23348, 0.01220, 0.000, 0.23348, - +0.00267, 0.00267, 4.54366, 0.28567, 0.05693, 0.000, 0.28567, - +0.00307, 0.00307, 9.17008, 0.34825, 0.11294, 0.000, 0.34825, - +0.00345, 0.00345, 15.33534, 0.42083, 0.17965, 0.000, 0.42083, - +0.00384, 0.00384, 22.69571, 0.50340, 0.25693, 0.000, 0.50340, - +0.00421, 0.00421, 31.22177, 0.59550, 0.34420, 0.000, 0.59550, - +0.00458, 0.00458, 40.79263, 0.69680, 0.44106, 0.000, 0.69680, - +0.00494, 0.00494, 51.29930, 0.80690, 0.54707, 0.000, 0.80690, - +0.00530, 0.00530, 62.65648, 0.92546, 0.66181, 0.000, 0.92546, - +0.00566, 0.00566, 74.60306, 1.05159, 0.78438, 0.000, 1.05159, - +0.00600, 0.00600, 87.23674, 1.18516, 0.91460, 0.000, 1.18516, - +0.00635, 0.00635,100.53127, 1.32592, 1.05221, 0.000, 1.32592, - +0.00669, 0.00669,114.39108, 1.47346, 1.19676, 0.000, 1.47346, - +0.00703, 0.00703,128.52966, 1.62629, 1.34676, 0.000, 1.62629, - +0.00736, 0.00736,143.26573, 1.78556, 1.50333, 0.000, 1.78556, - +0.00769, 0.00769,158.28004, 1.94972, 1.66492, 0.000, 1.94972, - +0.00802, 0.00802,173.64276, 2.11878, 1.83152, 0.000, 2.11878, - +0.00834, 0.00834,189.37436, 2.29286, 2.00324, 0.000, 2.29286, - +0.00867, 0.00867,205.25529, 2.47038, 2.17849, 0.000, 2.47038/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),K=1,19)/ - +0.00273, 0.00273, 1.47054, 0.23263, 0.01180, 0.000, 0.23263, - +0.00319, 0.00319, 4.30020, 0.28256, 0.05473, 0.000, 0.28256, - +0.00365, 0.00365, 8.47533, 0.34188, 0.10792, 0.000, 0.34188, - +0.00409, 0.00409, 13.92958, 0.41009, 0.17065, 0.000, 0.41009, - +0.00453, 0.00453, 20.34189, 0.48705, 0.24269, 0.000, 0.48705, - +0.00495, 0.00495, 27.67776, 0.57226, 0.32342, 0.000, 0.57226, - +0.00537, 0.00537, 35.82585, 0.66531, 0.41237, 0.000, 0.66531, - +0.00579, 0.00579, 44.68855, 0.76580, 0.50907, 0.000, 0.76580, - +0.00619, 0.00619, 54.19072, 0.87334, 0.61310, 0.000, 0.87334, - +0.00659, 0.00659, 64.11164, 0.98712, 0.72361, 0.000, 0.98712, - +0.00698, 0.00698, 74.53390, 1.10697, 0.84038, 0.000, 1.10697, - +0.00737, 0.00737, 85.43520, 1.23266, 0.96318, 0.000, 1.23266, - +0.00775, 0.00775, 96.73615, 1.36379, 1.09157, 0.000, 1.36379, - +0.00813, 0.00813,108.20181, 1.49903, 1.22423, 0.000, 1.49903, - +0.00850, 0.00850,120.09572, 1.63941, 1.36215, 0.000, 1.63941, - +0.00887, 0.00887,132.15727, 1.78353, 1.50393, 0.000, 1.78353, - +0.00923, 0.00923,144.44543, 1.93141, 1.64957, 0.000, 1.93141, - +0.00959, 0.00959,156.97807, 2.08316, 1.79918, 0.000, 2.08316, - +0.00995, 0.00995,169.57884, 2.23739, 1.95135, 0.000, 2.23739/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),K=1,19)/ - +0.00314, 0.00314, 1.45140, 0.23193, 0.01150, 0.000, 0.23193, - +0.00366, 0.00366, 4.12035, 0.28012, 0.05305, 0.000, 0.28012, - +0.00417, 0.00417, 7.97282, 0.33697, 0.10409, 0.000, 0.33697, - +0.00466, 0.00466, 12.92842, 0.40190, 0.16384, 0.000, 0.40190, - +0.00515, 0.00515, 18.68538, 0.47470, 0.23201, 0.000, 0.47470, - +0.00562, 0.00562, 25.20800, 0.55482, 0.30793, 0.000, 0.55482, - +0.00608, 0.00608, 32.39333, 0.64184, 0.39110, 0.000, 0.64184, - +0.00654, 0.00654, 40.15287, 0.73534, 0.48106, 0.000, 0.73534, - +0.00698, 0.00698, 48.41951, 0.83495, 0.57738, 0.000, 0.83495, - +0.00742, 0.00742, 57.00030, 0.93986, 0.67924, 0.000, 0.93986, - +0.00785, 0.00785, 65.96819, 1.04991, 0.78643, 0.000, 1.04991, - +0.00827, 0.00827, 75.30411, 1.16490, 0.89872, 0.000, 1.16490, - +0.00869, 0.00869, 84.93983, 1.28443, 1.01572, 0.000, 1.28443, - +0.00910, 0.00910, 94.67431, 1.40729, 1.13618, 0.000, 1.40729, - +0.00950, 0.00950,104.73546, 1.53442, 1.26103, 0.000, 1.53442, - +0.00990, 0.00990,114.90069, 1.66454, 1.38898, 0.000, 1.66454, - +0.01030, 0.01030,125.22188, 1.79768, 1.52005, 0.000, 1.79768, - +0.01069, 0.01069,135.71541, 1.93394, 1.65433, 0.000, 1.93394, - +0.01107, 0.01107,146.23267, 2.07206, 1.79056, 0.000, 2.07206/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),K=1,19)/ - +0.00487, 0.00487, 1.39340, 0.22952, 0.01054, 0.000, 0.22952, - +0.00561, 0.00561, 3.60798, 0.27238, 0.04789, 0.000, 0.27238, - +0.00632, 0.00632, 6.59361, 0.32184, 0.09258, 0.000, 0.32184, - +0.00701, 0.00701, 10.25390, 0.37715, 0.14368, 0.000, 0.37715, - +0.00767, 0.00767, 14.35074, 0.43796, 0.20075, 0.000, 0.43796, - +0.00831, 0.00831, 18.85406, 0.50367, 0.26309, 0.000, 0.50367, - +0.00894, 0.00894, 23.68863, 0.57384, 0.33019, 0.000, 0.57384, - +0.00955, 0.00955, 28.79337, 0.64806, 0.40161, 0.000, 0.64806, - +0.01014, 0.01014, 34.12415, 0.72597, 0.47694, 0.000, 0.72597, - +0.01072, 0.01072, 39.55686, 0.80691, 0.55549, 0.000, 0.80691, - +0.01128, 0.01128, 45.14307, 0.89075, 0.63711, 0.000, 0.89075, - +0.01184, 0.01184, 50.87281, 0.97732, 0.72159, 0.000, 0.97732, - +0.01238, 0.01238, 56.70524, 1.06631, 0.80863, 0.000, 1.06631, - +0.01291, 0.01291, 62.51816, 1.15680, 0.89729, 0.000, 1.15680, - +0.01344, 0.01344, 68.45716, 1.24953, 0.98829, 0.000, 1.24953, - +0.01395, 0.01395, 74.38765, 1.34355, 1.08066, 0.000, 1.34355, - +0.01446, 0.01446, 80.34506, 1.43890, 1.17445, 0.000, 1.43890, - +0.01495, 0.01495, 86.34202, 1.53567, 1.26974, 0.000, 1.53567, - +0.01544, 0.01544, 92.29215, 1.63297, 1.36562, 0.000, 1.63297/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),K=1,19)/ - +0.00755, 0.00755, 1.33748, 0.22665, 0.00958, 0.000, 0.22665, - +0.00859, 0.00859, 3.15874, 0.26428, 0.04287, 0.000, 0.26428, - +0.00958, 0.00958, 5.45189, 0.30676, 0.08163, 0.000, 0.30676, - +0.01053, 0.01053, 8.13087, 0.35328, 0.12490, 0.000, 0.35328, - +0.01143, 0.01143, 11.01904, 0.40342, 0.17219, 0.000, 0.40342, - +0.01230, 0.01230, 14.09815, 0.45662, 0.22283, 0.000, 0.45662, - +0.01313, 0.01313, 17.31847, 0.51246, 0.27639, 0.000, 0.51246, - +0.01394, 0.01394, 20.64180, 0.57060, 0.33245, 0.000, 0.57060, - +0.01473, 0.01473, 24.04236, 0.63074, 0.39069, 0.000, 0.63074, - +0.01549, 0.01549, 27.44328, 0.69236, 0.45058, 0.000, 0.69236, - +0.01622, 0.01622, 30.88253, 0.75537, 0.51199, 0.000, 0.75537, - +0.01694, 0.01694, 34.35690, 0.81966, 0.57479, 0.000, 0.81966, - +0.01764, 0.01764, 37.84361, 0.88502, 0.63876, 0.000, 0.88502, - +0.01833, 0.01833, 41.26999, 0.95076, 0.70321, 0.000, 0.95076, - +0.01900, 0.01900, 44.72956, 1.01747, 0.76870, 0.000, 1.01747, - +0.01965, 0.01965, 48.14228, 1.08446, 0.83456, 0.000, 1.08446, - +0.02029, 0.02029, 51.53264, 1.15179, 0.90081, 0.000, 1.15179, - +0.02091, 0.02091, 54.91068, 1.21956, 0.96756, 0.000, 1.21956, - +0.02153, 0.02153, 58.22705, 1.28713, 1.03417, 0.000, 1.28713/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),K=1,19)/ - +0.00977, 0.00977, 1.30563, 0.22468, 0.00902, 0.000, 0.22468, - +0.01103, 0.01103, 2.92190, 0.25931, 0.03999, 0.000, 0.25931, - +0.01222, 0.01222, 4.87718, 0.29788, 0.07546, 0.000, 0.29788, - +0.01335, 0.01335, 7.09775, 0.33961, 0.11452, 0.000, 0.33961, - +0.01443, 0.01443, 9.43942, 0.38407, 0.15664, 0.000, 0.38407, - +0.01546, 0.01546, 11.89116, 0.43072, 0.20123, 0.000, 0.43072, - +0.01645, 0.01645, 14.41587, 0.47921, 0.24788, 0.000, 0.47921, - +0.01740, 0.01740, 16.98611, 0.52923, 0.29624, 0.000, 0.52923, - +0.01832, 0.01832, 19.58434, 0.58052, 0.34603, 0.000, 0.58052, - +0.01920, 0.01920, 22.15357, 0.63264, 0.39679, 0.000, 0.63264, - +0.02006, 0.02006, 24.72598, 0.68555, 0.44845, 0.000, 0.68555, - +0.02089, 0.02089, 27.30105, 0.73915, 0.50090, 0.000, 0.73915, - +0.02170, 0.02170, 29.86323, 0.79327, 0.55396, 0.000, 0.79327, - +0.02249, 0.02249, 32.35952, 0.84737, 0.60707, 0.000, 0.84737, - +0.02325, 0.02325, 34.86224, 0.90195, 0.66073, 0.000, 0.90195, - +0.02400, 0.02400, 37.31274, 0.95645, 0.71437, 0.000, 0.95645, - +0.02473, 0.02473, 39.73085, 1.01094, 0.76805, 0.000, 1.01094, - +0.02545, 0.02545, 42.12524, 1.06550, 0.82186, 0.000, 1.06550, - +0.02614, 0.02614, 44.46061, 1.11964, 0.87529, 0.000, 1.11964/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),K=1,19)/ - +0.01172, 0.01172, 1.28335, 0.22313, 0.00862, 0.000, 0.22313, - +0.01317, 0.01317, 2.76440, 0.25563, 0.03797, 0.000, 0.25563, - +0.01452, 0.01452, 4.50602, 0.29152, 0.07120, 0.000, 0.29152, - +0.01581, 0.01581, 6.44455, 0.32999, 0.10740, 0.000, 0.32999, - +0.01702, 0.01702, 8.45683, 0.37064, 0.14609, 0.000, 0.37064, - +0.01818, 0.01818, 10.53661, 0.41298, 0.18671, 0.000, 0.41298, - +0.01929, 0.01929, 12.65459, 0.45667, 0.22887, 0.000, 0.45667, - +0.02036, 0.02036, 14.78975, 0.50143, 0.27228, 0.000, 0.50143, - +0.02138, 0.02138, 16.92937, 0.54706, 0.31668, 0.000, 0.54706, - +0.02236, 0.02236, 19.02782, 0.59315, 0.36167, 0.000, 0.59315, - +0.02331, 0.02331, 21.11372, 0.63969, 0.40721, 0.000, 0.63969, - +0.02424, 0.02424, 23.18807, 0.68660, 0.45320, 0.000, 0.68660, - +0.02513, 0.02513, 25.23925, 0.73374, 0.49950, 0.000, 0.73374, - +0.02600, 0.02600, 27.22513, 0.78065, 0.54564, 0.000, 0.78065, - +0.02684, 0.02684, 29.20597, 0.82777, 0.59205, 0.000, 0.82777, - +0.02766, 0.02766, 31.13490, 0.87464, 0.63826, 0.000, 0.87464, - +0.02846, 0.02846, 33.02897, 0.92132, 0.68432, 0.000, 0.92132, - +0.02924, 0.02924, 34.89596, 0.96790, 0.73032, 0.000, 0.96790, - +0.03000, 0.03000, 36.70819, 1.01395, 0.77585, 0.000, 1.01395/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),K=1,19)/ - +0.01349, 0.01349, 1.26623, 0.22181, 0.00831, 0.000, 0.22181, - +0.01510, 0.01510, 2.64788, 0.25269, 0.03642, 0.000, 0.25269, - +0.01660, 0.01660, 4.23730, 0.28652, 0.06795, 0.000, 0.28652, - +0.01802, 0.01802, 5.97899, 0.32256, 0.10203, 0.000, 0.32256, - +0.01935, 0.01935, 7.76485, 0.36038, 0.13818, 0.000, 0.36038, - +0.02062, 0.02062, 9.59205, 0.39954, 0.17588, 0.000, 0.39954, - +0.02183, 0.02183, 11.43667, 0.43973, 0.21479, 0.000, 0.43973, - +0.02299, 0.02299, 13.28202, 0.48069, 0.25462, 0.000, 0.48069, - +0.02410, 0.02410, 15.11854, 0.52224, 0.29517, 0.000, 0.52224, - +0.02517, 0.02517, 16.90808, 0.56403, 0.33606, 0.000, 0.56403, - +0.02620, 0.02620, 18.67683, 0.60604, 0.37725, 0.000, 0.60604, - +0.02719, 0.02719, 20.42662, 0.64822, 0.41870, 0.000, 0.64822, - +0.02816, 0.02816, 22.14841, 0.69046, 0.46027, 0.000, 0.69046, - +0.02909, 0.02909, 23.80702, 0.73232, 0.50153, 0.000, 0.73232, - +0.03000, 0.03000, 25.45474, 0.77426, 0.54291, 0.000, 0.77426, - +0.03088, 0.03088, 27.05230, 0.81583, 0.58396, 0.000, 0.81583, - +0.03173, 0.03173, 28.61486, 0.85711, 0.62477, 0.000, 0.85711, - +0.03257, 0.03257, 30.14953, 0.89819, 0.66541, 0.000, 0.89819, - +0.03338, 0.03338, 31.63343, 0.93869, 0.70551, 0.000, 0.93869/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),K=1,19)/ - +0.02091, 0.02091, 1.21367, 0.21697, 0.00735, 0.000, 0.21697, - +0.02311, 0.02311, 2.31471, 0.24282, 0.03168, 0.000, 0.24282, - +0.02514, 0.02514, 3.49787, 0.27052, 0.05818, 0.000, 0.27052, - +0.02704, 0.02704, 4.73269, 0.29940, 0.08609, 0.000, 0.29940, - +0.02880, 0.02880, 5.95085, 0.32910, 0.11502, 0.000, 0.32910, - +0.03046, 0.03046, 7.15802, 0.35928, 0.14457, 0.000, 0.35928, - +0.03204, 0.03204, 8.34344, 0.38972, 0.17449, 0.000, 0.38972, - +0.03353, 0.03353, 9.50062, 0.42024, 0.20459, 0.000, 0.42024, - +0.03495, 0.03495, 10.62717, 0.45074, 0.23474, 0.000, 0.45074, - +0.03631, 0.03631, 11.70209, 0.48097, 0.26469, 0.000, 0.48097, - +0.03761, 0.03761, 12.74515, 0.51096, 0.29446, 0.000, 0.51096, - +0.03886, 0.03886, 13.75982, 0.54071, 0.32402, 0.000, 0.54071, - +0.04006, 0.04006, 14.74244, 0.57016, 0.35331, 0.000, 0.57016, - +0.04122, 0.04122, 15.67339, 0.59901, 0.38205, 0.000, 0.59901, - +0.04233, 0.04233, 16.58623, 0.62761, 0.41057, 0.000, 0.62761, - +0.04341, 0.04341, 17.45856, 0.65568, 0.43858, 0.000, 0.65568, - +0.04446, 0.04446, 18.30080, 0.68329, 0.46615, 0.000, 0.68329, - +0.04547, 0.04547, 19.11826, 0.71053, 0.49336, 0.000, 0.71053, - +0.04646, 0.04646, 19.89841, 0.73715, 0.51997, 0.000, 0.73715/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),K=1,19)/ - +0.03237, 0.03237, 1.16120, 0.21054, 0.00638, 0.000, 0.21054, - +0.03533, 0.03533, 2.01965, 0.23144, 0.02704, 0.000, 0.23144, - +0.03803, 0.03803, 2.88157, 0.25332, 0.04886, 0.000, 0.25332, - +0.04051, 0.04051, 3.73789, 0.27564, 0.07123, 0.000, 0.27564, - +0.04280, 0.04280, 4.54980, 0.29813, 0.09386, 0.000, 0.29813, - +0.04494, 0.04494, 5.32816, 0.32054, 0.11647, 0.000, 0.32054, - +0.04694, 0.04694, 6.07063, 0.34275, 0.13892, 0.000, 0.34275, - +0.04882, 0.04882, 6.77683, 0.36465, 0.16110, 0.000, 0.36465, - +0.05061, 0.05061, 7.44837, 0.38619, 0.18294, 0.000, 0.38619, - +0.05229, 0.05229, 8.07461, 0.40723, 0.20430, 0.000, 0.40723, - +0.05389, 0.05389, 8.67028, 0.42782, 0.22523, 0.000, 0.42782, - +0.05542, 0.05542, 9.23921, 0.44798, 0.24574, 0.000, 0.44798, - +0.05688, 0.05688, 9.78057, 0.46769, 0.26581, 0.000, 0.46769, - +0.05828, 0.05828, 10.28380, 0.48678, 0.28525, 0.000, 0.48678, - +0.05963, 0.05963, 10.77027, 0.50550, 0.30434, 0.000, 0.50550, - +0.06092, 0.06092, 11.22747, 0.52368, 0.32288, 0.000, 0.52368, - +0.06216, 0.06216, 11.66241, 0.54139, 0.34095, 0.000, 0.54139, - +0.06336, 0.06336, 12.07892, 0.55869, 0.35862, 0.000, 0.55869, - +0.06452, 0.06452, 12.47029, 0.57543, 0.37573, 0.000, 0.57543/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),K=1,19)/ - +0.04175, 0.04175, 1.12987, 0.20573, 0.00581, 0.000, 0.20573, - +0.04525, 0.04525, 1.86188, 0.22375, 0.02438, 0.000, 0.22375, - +0.04839, 0.04839, 2.56833, 0.24237, 0.04361, 0.000, 0.24237, - +0.05127, 0.05127, 3.24996, 0.26111, 0.06300, 0.000, 0.26111, - +0.05390, 0.05390, 3.88091, 0.27976, 0.08233, 0.000, 0.27976, - +0.05634, 0.05634, 4.47364, 0.29814, 0.10139, 0.000, 0.29814, - +0.05861, 0.05861, 5.02897, 0.31614, 0.12008, 0.000, 0.31614, - +0.06074, 0.06074, 5.54866, 0.33373, 0.13835, 0.000, 0.33373, - +0.06274, 0.06274, 6.03555, 0.35086, 0.15616, 0.000, 0.35086, - +0.06462, 0.06462, 6.48290, 0.36744, 0.17340, 0.000, 0.36744, - +0.06641, 0.06641, 6.90295, 0.38352, 0.19015, 0.000, 0.38352, - +0.06810, 0.06810, 7.29942, 0.39915, 0.20643, 0.000, 0.39915, - +0.06972, 0.06972, 7.67236, 0.41432, 0.22223, 0.000, 0.41432, - +0.07126, 0.07126, 8.01454, 0.42889, 0.23743, 0.000, 0.42889, - +0.07273, 0.07273, 8.34228, 0.44310, 0.25226, 0.000, 0.44310, - +0.07414, 0.07414, 8.64677, 0.45680, 0.26656, 0.000, 0.45680, - +0.07549, 0.07549, 8.93352, 0.47006, 0.28041, 0.000, 0.47006, - +0.07679, 0.07679, 9.20561, 0.48295, 0.29387, 0.000, 0.48295, - +0.07804, 0.07804, 9.45843, 0.49534, 0.30683, 0.000, 0.49534/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),K=1,19)/ - +0.04999, 0.04999, 1.10698, 0.20169, 0.00541, 0.000, 0.20169, - +0.05388, 0.05388, 1.75554, 0.21768, 0.02251, 0.000, 0.21768, - +0.05737, 0.05737, 2.36412, 0.23404, 0.03997, 0.000, 0.23404, - +0.06054, 0.06054, 2.93908, 0.25036, 0.05737, 0.000, 0.25036, - +0.06342, 0.06342, 3.46204, 0.26645, 0.07451, 0.000, 0.26645, - +0.06608, 0.06608, 3.94599, 0.28216, 0.09125, 0.000, 0.28216, - +0.06855, 0.06855, 4.39336, 0.29745, 0.10753, 0.000, 0.29745, - +0.07085, 0.07085, 4.80691, 0.31226, 0.12331, 0.000, 0.31226, - +0.07301, 0.07301, 5.19000, 0.32659, 0.13858, 0.000, 0.32659, - +0.07503, 0.07503, 5.53794, 0.34036, 0.15326, 0.000, 0.34036, - +0.07693, 0.07693, 5.86141, 0.35364, 0.16742, 0.000, 0.35364, - +0.07874, 0.07874, 6.16391, 0.36646, 0.18110, 0.000, 0.36646, - +0.08046, 0.08046, 6.44589, 0.37885, 0.19432, 0.000, 0.37885, - +0.08208, 0.08208, 6.70189, 0.39067, 0.20695, 0.000, 0.39067, - +0.08364, 0.08364, 6.94532, 0.40214, 0.21921, 0.000, 0.40214, - +0.08512, 0.08512, 7.16934, 0.41315, 0.23098, 0.000, 0.41315, - +0.08654, 0.08654, 7.37857, 0.42375, 0.24232, 0.000, 0.42375, - +0.08790, 0.08790, 7.57561, 0.43400, 0.25330, 0.000, 0.43400, - +0.08921, 0.08921, 7.75697, 0.44382, 0.26382, 0.000, 0.44382/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),K=1,19)/ - +0.05745, 0.05745, 1.08866, 0.19812, 0.00510, 0.000, 0.19812, - +0.06167, 0.06167, 1.67582, 0.21255, 0.02107, 0.000, 0.21255, - +0.06542, 0.06542, 2.21492, 0.22719, 0.03719, 0.000, 0.22719, - +0.06882, 0.06882, 2.71585, 0.24169, 0.05311, 0.000, 0.24169, - +0.07190, 0.07190, 3.16511, 0.25588, 0.06865, 0.000, 0.25588, - +0.07473, 0.07473, 3.57586, 0.26965, 0.08371, 0.000, 0.26965, - +0.07735, 0.07735, 3.95142, 0.28295, 0.09824, 0.000, 0.28295, - +0.07978, 0.07978, 4.29511, 0.29577, 0.11224, 0.000, 0.29577, - +0.08205, 0.08205, 4.61052, 0.30810, 0.12571, 0.000, 0.30810, - +0.08417, 0.08417, 4.89421, 0.31988, 0.13858, 0.000, 0.31988, - +0.08616, 0.08616, 5.15574, 0.33118, 0.15094, 0.000, 0.33118, - +0.08805, 0.08805, 5.39840, 0.34205, 0.16282, 0.000, 0.34205, - +0.08984, 0.08984, 5.62287, 0.35250, 0.17424, 0.000, 0.35250, - +0.09152, 0.09152, 5.82475, 0.36242, 0.18511, 0.000, 0.36242, - +0.09313, 0.09313, 6.01554, 0.37201, 0.19561, 0.000, 0.37201, - +0.09466, 0.09466, 6.18964, 0.38117, 0.20566, 0.000, 0.38117, - +0.09613, 0.09613, 6.35104, 0.38996, 0.21530, 0.000, 0.38996, - +0.09753, 0.09753, 6.50204, 0.39843, 0.22461, 0.000, 0.39843, - +0.09886, 0.09886, 6.63979, 0.40650, 0.23349, 0.000, 0.40650/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),K=1,19)/ - +0.08813, 0.08813, 1.02649, 0.18386, 0.00411, 0.000, 0.18386, - +0.09335, 0.09335, 1.44003, 0.19349, 0.01667, 0.000, 0.19349, - +0.09791, 0.09791, 1.79464, 0.20302, 0.02885, 0.000, 0.20302, - +0.10196, 0.10196, 2.10680, 0.21223, 0.04048, 0.000, 0.21223, - +0.10559, 0.10559, 2.37372, 0.22101, 0.05152, 0.000, 0.22101, - +0.10887, 0.10887, 2.60773, 0.22935, 0.06193, 0.000, 0.22935, - +0.11186, 0.11186, 2.81355, 0.23722, 0.07175, 0.000, 0.23722, - +0.11460, 0.11460, 2.99513, 0.24465, 0.08100, 0.000, 0.24465, - +0.11714, 0.11714, 3.15608, 0.25166, 0.08973, 0.000, 0.25166, - +0.11947, 0.11947, 3.29546, 0.25822, 0.09791, 0.000, 0.25822, - +0.12164, 0.12164, 3.41981, 0.26439, 0.10562, 0.000, 0.26439, - +0.12367, 0.12367, 3.53169, 0.27023, 0.11293, 0.000, 0.27023, - +0.12558, 0.12558, 3.63197, 0.27575, 0.11984, 0.000, 0.27575, - +0.12736, 0.12736, 3.71854, 0.28088, 0.12631, 0.000, 0.28088, - +0.12905, 0.12905, 3.79831, 0.28579, 0.13248, 0.000, 0.28579, - +0.13063, 0.13063, 3.86833, 0.29039, 0.13830, 0.000, 0.29039, - +0.13213, 0.13213, 3.93107, 0.29473, 0.14382, 0.000, 0.29473, - +0.13356, 0.13356, 3.98797, 0.29886, 0.14908, 0.000, 0.29886, - +0.13490, 0.13490, 4.03761, 0.30273, 0.15403, 0.000, 0.30273/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),K=1,19)/ - +0.13362, 0.13362, 0.94987, 0.16274, 0.00313, 0.000, 0.16274, - +0.13951, 0.13951, 1.21337, 0.16778, 0.01238, 0.000, 0.16778, - +0.14452, 0.14452, 1.42343, 0.17263, 0.02095, 0.000, 0.17263, - +0.14889, 0.14889, 1.59704, 0.17717, 0.02883, 0.000, 0.17717, - +0.15269, 0.15269, 1.73665, 0.18135, 0.03604, 0.000, 0.18135, - +0.15606, 0.15606, 1.85229, 0.18519, 0.04264, 0.000, 0.18519, - +0.15907, 0.15907, 1.94848, 0.18870, 0.04870, 0.000, 0.18870, - +0.16178, 0.16178, 2.02872, 0.19191, 0.05426, 0.000, 0.19191, - +0.16424, 0.16424, 2.09596, 0.19484, 0.05939, 0.000, 0.19484, - +0.16645, 0.16645, 2.15029, 0.19749, 0.06408, 0.000, 0.19749, - +0.16847, 0.16847, 2.19588, 0.19990, 0.06841, 0.000, 0.19990, - +0.17034, 0.17034, 2.23447, 0.20211, 0.07244, 0.000, 0.20211, - +0.17206, 0.17206, 2.26677, 0.20414, 0.07617, 0.000, 0.20414, - +0.17362, 0.17362, 2.29184, 0.20595, 0.07960, 0.000, 0.20595, - +0.17509, 0.17509, 2.31353, 0.20764, 0.08282, 0.000, 0.20764, - +0.17644, 0.17644, 2.33039, 0.20915, 0.08580, 0.000, 0.20915, - +0.17770, 0.17770, 2.34379, 0.21054, 0.08858, 0.000, 0.21054, - +0.17888, 0.17888, 2.35456, 0.21182, 0.09119, 0.000, 0.21182, - +0.17997, 0.17997, 2.36198, 0.21296, 0.09361, 0.000, 0.21296/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),K=1,19)/ - +0.16875, 0.16875, 0.89321, 0.14580, 0.00256, 0.000, 0.14580, - +0.17455, 0.17455, 1.07935, 0.14839, 0.00996, 0.000, 0.14839, - +0.17938, 0.17938, 1.22043, 0.15081, 0.01660, 0.000, 0.15081, - +0.18348, 0.18348, 1.33146, 0.15300, 0.02254, 0.000, 0.15300, - +0.18698, 0.18698, 1.41606, 0.15494, 0.02783, 0.000, 0.15494, - +0.19001, 0.19001, 1.48247, 0.15664, 0.03259, 0.000, 0.15664, - +0.19266, 0.19266, 1.53461, 0.15814, 0.03686, 0.000, 0.15814, - +0.19499, 0.19499, 1.57542, 0.15943, 0.04071, 0.000, 0.15943, - +0.19707, 0.19707, 1.60727, 0.16056, 0.04420, 0.000, 0.16056, - +0.19888, 0.19888, 1.63045, 0.16150, 0.04734, 0.000, 0.16150, - +0.20051, 0.20051, 1.64797, 0.16231, 0.05020, 0.000, 0.16231, - +0.20198, 0.20198, 1.66112, 0.16300, 0.05281, 0.000, 0.16300, - +0.20331, 0.20331, 1.67044, 0.16359, 0.05520, 0.000, 0.16359, - +0.20448, 0.20448, 1.67533, 0.16405, 0.05736, 0.000, 0.16405, - +0.20556, 0.20556, 1.67841, 0.16445, 0.05937, 0.000, 0.16445, - +0.20652, 0.20652, 1.67871, 0.16476, 0.06120, 0.000, 0.16476, - +0.20740, 0.20740, 1.67716, 0.16499, 0.06288, 0.000, 0.16499, - +0.20820, 0.20820, 1.67429, 0.16518, 0.06444, 0.000, 0.16518, - +0.20892, 0.20892, 1.66964, 0.16529, 0.06587, 0.000, 0.16529/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),K=1,19)/ - +0.19769, 0.19769, 0.84506, 0.13114, 0.00216, 0.000, 0.13114, - +0.20301, 0.20301, 0.98118, 0.13217, 0.00831, 0.000, 0.13217, - +0.20730, 0.20730, 1.07967, 0.13308, 0.01367, 0.000, 0.13308, - +0.21087, 0.21087, 1.15344, 0.13386, 0.01836, 0.000, 0.13386, - +0.21381, 0.21381, 1.20628, 0.13446, 0.02246, 0.000, 0.13446, - +0.21629, 0.21629, 1.24504, 0.13493, 0.02607, 0.000, 0.13493, - +0.21840, 0.21840, 1.27308, 0.13526, 0.02926, 0.000, 0.13526, - +0.22020, 0.22020, 1.29284, 0.13548, 0.03210, 0.000, 0.13548, - +0.22175, 0.22175, 1.30624, 0.13560, 0.03463, 0.000, 0.13560, - +0.22305, 0.22305, 1.31360, 0.13562, 0.03687, 0.000, 0.13562, - +0.22417, 0.22417, 1.31720, 0.13556, 0.03888, 0.000, 0.13556, - +0.22515, 0.22515, 1.31802, 0.13545, 0.04070, 0.000, 0.13545, - +0.22600, 0.22600, 1.31645, 0.13528, 0.04234, 0.000, 0.13528, - +0.22670, 0.22670, 1.31207, 0.13505, 0.04380, 0.000, 0.13505, - +0.22732, 0.22732, 1.30677, 0.13479, 0.04515, 0.000, 0.13479, - +0.22785, 0.22785, 1.29985, 0.13448, 0.04635, 0.000, 0.13448, - +0.22829, 0.22829, 1.29196, 0.13415, 0.04745, 0.000, 0.13415, - +0.22867, 0.22867, 1.28347, 0.13379, 0.04845, 0.000, 0.13379, - +0.22897, 0.22897, 1.27402, 0.13340, 0.04936, 0.000, 0.13340/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),K=1,19)/ - +0.22220, 0.22220, 0.80186, 0.11802, 0.00186, 0.000, 0.11802, - +0.22677, 0.22677, 0.90221, 0.11800, 0.00708, 0.000, 0.11800, - +0.23033, 0.23033, 0.97123, 0.11792, 0.01151, 0.000, 0.11792, - +0.23317, 0.23317, 1.01994, 0.11777, 0.01532, 0.000, 0.11777, - +0.23542, 0.23542, 1.05194, 0.11753, 0.01859, 0.000, 0.11753, - +0.23722, 0.23722, 1.07300, 0.11722, 0.02142, 0.000, 0.11722, - +0.23868, 0.23868, 1.08596, 0.11684, 0.02388, 0.000, 0.11684, - +0.23985, 0.23985, 1.09285, 0.11640, 0.02604, 0.000, 0.11640, - +0.24079, 0.24079, 1.09522, 0.11593, 0.02794, 0.000, 0.11593, - +0.24151, 0.24151, 1.09336, 0.11539, 0.02960, 0.000, 0.11539, - +0.24207, 0.24207, 1.08904, 0.11483, 0.03107, 0.000, 0.11483, - +0.24251, 0.24251, 1.08301, 0.11426, 0.03238, 0.000, 0.11426, - +0.24284, 0.24284, 1.07554, 0.11367, 0.03355, 0.000, 0.11367, - +0.24304, 0.24304, 1.06632, 0.11304, 0.03457, 0.000, 0.11304, - +0.24318, 0.24318, 1.05676, 0.11242, 0.03551, 0.000, 0.11242, - +0.24323, 0.24323, 1.04631, 0.11179, 0.03633, 0.000, 0.11179, - +0.24322, 0.24322, 1.03543, 0.11114, 0.03707, 0.000, 0.11114, - +0.24317, 0.24317, 1.02439, 0.11050, 0.03774, 0.000, 0.11050, - +0.24304, 0.24304, 1.01291, 0.10985, 0.03833, 0.000, 0.10985/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),K=1,19)/ - +0.24801, 0.24801, 0.75284, 0.10129, 0.00158, 0.000, 0.10129, - +0.25131, 0.25131, 0.82075, 0.10057, 0.00592, 0.000, 0.10057, - +0.25367, 0.25367, 0.86303, 0.09985, 0.00954, 0.000, 0.09985, - +0.25538, 0.25538, 0.88939, 0.09912, 0.01258, 0.000, 0.09912, - +0.25656, 0.25656, 0.90315, 0.09835, 0.01515, 0.000, 0.09835, - +0.25735, 0.25735, 0.90907, 0.09757, 0.01733, 0.000, 0.09757, - +0.25785, 0.25785, 0.90941, 0.09677, 0.01920, 0.000, 0.09677, - +0.25812, 0.25812, 0.90579, 0.09596, 0.02081, 0.000, 0.09596, - +0.25820, 0.25820, 0.89937, 0.09515, 0.02221, 0.000, 0.09515, - +0.25810, 0.25810, 0.89037, 0.09433, 0.02342, 0.000, 0.09433, - +0.25788, 0.25788, 0.88010, 0.09350, 0.02447, 0.000, 0.09350, - +0.25758, 0.25758, 0.86905, 0.09269, 0.02539, 0.000, 0.09269, - +0.25720, 0.25720, 0.85743, 0.09189, 0.02620, 0.000, 0.09189, - +0.25672, 0.25672, 0.84495, 0.09108, 0.02690, 0.000, 0.09108, - +0.25621, 0.25621, 0.83262, 0.09029, 0.02753, 0.000, 0.09029, - +0.25563, 0.25563, 0.82001, 0.08951, 0.02808, 0.000, 0.08951, - +0.25502, 0.25502, 0.80743, 0.08874, 0.02856, 0.000, 0.08874, - +0.25439, 0.25439, 0.79505, 0.08798, 0.02898, 0.000, 0.08798, - +0.25372, 0.25372, 0.78263, 0.08723, 0.02935, 0.000, 0.08723/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),K=1,19)/ - +0.26951, 0.26951, 0.70727, 0.08710, 0.00135, 0.000, 0.08710, - +0.27138, 0.27138, 0.75098, 0.08595, 0.00503, 0.000, 0.08595, - +0.27242, 0.27242, 0.77407, 0.08484, 0.00803, 0.000, 0.08484, - +0.27291, 0.27291, 0.78491, 0.08377, 0.01051, 0.000, 0.08377, - +0.27295, 0.27295, 0.78643, 0.08270, 0.01255, 0.000, 0.08270, - +0.27268, 0.27268, 0.78248, 0.08166, 0.01427, 0.000, 0.08166, - +0.27220, 0.27220, 0.77489, 0.08063, 0.01572, 0.000, 0.08063, - +0.27154, 0.27154, 0.76487, 0.07963, 0.01695, 0.000, 0.07963, - +0.27075, 0.27075, 0.75331, 0.07865, 0.01800, 0.000, 0.07865, - +0.26983, 0.26983, 0.74032, 0.07768, 0.01889, 0.000, 0.07768, - +0.26884, 0.26884, 0.72687, 0.07673, 0.01965, 0.000, 0.07673, - +0.26780, 0.26780, 0.71331, 0.07581, 0.02031, 0.000, 0.07581, - +0.26673, 0.26673, 0.69972, 0.07492, 0.02089, 0.000, 0.07492, - +0.26558, 0.26558, 0.68587, 0.07404, 0.02137, 0.000, 0.07404, - +0.26445, 0.26445, 0.67249, 0.07319, 0.02180, 0.000, 0.07319, - +0.26328, 0.26328, 0.65921, 0.07236, 0.02216, 0.000, 0.07236, - +0.26210, 0.26210, 0.64624, 0.07155, 0.02247, 0.000, 0.07155, - +0.26092, 0.26092, 0.63368, 0.07077, 0.02275, 0.000, 0.07077, - +0.25972, 0.25972, 0.62134, 0.07000, 0.02298, 0.000, 0.07000/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),K=1,19)/ - +0.28743, 0.28743, 0.66438, 0.07495, 0.00117, 0.000, 0.07495, - +0.28777, 0.28777, 0.68946, 0.07354, 0.00432, 0.000, 0.07354, - +0.28741, 0.28741, 0.69830, 0.07221, 0.00683, 0.000, 0.07221, - +0.28664, 0.28664, 0.69802, 0.07094, 0.00887, 0.000, 0.07094, - +0.28551, 0.28551, 0.69105, 0.06971, 0.01052, 0.000, 0.06971, - +0.28417, 0.28417, 0.68051, 0.06853, 0.01188, 0.000, 0.06853, - +0.28269, 0.28269, 0.66780, 0.06739, 0.01302, 0.000, 0.06739, - +0.28111, 0.28111, 0.65383, 0.06629, 0.01396, 0.000, 0.06629, - +0.27947, 0.27947, 0.63925, 0.06524, 0.01476, 0.000, 0.06524, - +0.27774, 0.27774, 0.62408, 0.06421, 0.01542, 0.000, 0.06421, - +0.27600, 0.27600, 0.60902, 0.06322, 0.01598, 0.000, 0.06322, - +0.27426, 0.27426, 0.59431, 0.06228, 0.01645, 0.000, 0.06228, - +0.27252, 0.27252, 0.57995, 0.06136, 0.01686, 0.000, 0.06136, - +0.27075, 0.27075, 0.56574, 0.06047, 0.01719, 0.000, 0.06047, - +0.26902, 0.26902, 0.55218, 0.05962, 0.01748, 0.000, 0.05962, - +0.26729, 0.26729, 0.53899, 0.05879, 0.01772, 0.000, 0.05879, - +0.26558, 0.26558, 0.52628, 0.05799, 0.01792, 0.000, 0.05799, - +0.26389, 0.26389, 0.51410, 0.05722, 0.01809, 0.000, 0.05722, - +0.26221, 0.26221, 0.50230, 0.05647, 0.01822, 0.000, 0.05647/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),K=1,19)/ - +0.30227, 0.30227, 0.62370, 0.06441, 0.00102, 0.000, 0.06441, - +0.30100, 0.30100, 0.63418, 0.06286, 0.00373, 0.000, 0.06286, - +0.29922, 0.29922, 0.63226, 0.06141, 0.00584, 0.000, 0.06141, - +0.29715, 0.29715, 0.62384, 0.06005, 0.00753, 0.000, 0.06005, - +0.29485, 0.29485, 0.61090, 0.05875, 0.00888, 0.000, 0.05875, - +0.29245, 0.29245, 0.59590, 0.05752, 0.00997, 0.000, 0.05752, - +0.28999, 0.28999, 0.57989, 0.05634, 0.01086, 0.000, 0.05634, - +0.28751, 0.28751, 0.56353, 0.05522, 0.01159, 0.000, 0.05522, - +0.28503, 0.28503, 0.54724, 0.05416, 0.01220, 0.000, 0.05416, - +0.28254, 0.28254, 0.53099, 0.05313, 0.01269, 0.000, 0.05313, - +0.28007, 0.28007, 0.51527, 0.05215, 0.01309, 0.000, 0.05215, - +0.27766, 0.27766, 0.50020, 0.05122, 0.01343, 0.000, 0.05122, - +0.27529, 0.27529, 0.48577, 0.05033, 0.01372, 0.000, 0.05033, - +0.27293, 0.27293, 0.47174, 0.04946, 0.01394, 0.000, 0.04946, - +0.27065, 0.27065, 0.45851, 0.04864, 0.01413, 0.000, 0.04864, - +0.26839, 0.26839, 0.44579, 0.04785, 0.01428, 0.000, 0.04785, - +0.26618, 0.26618, 0.43367, 0.04709, 0.01440, 0.000, 0.04709, - +0.26403, 0.26403, 0.42215, 0.04636, 0.01450, 0.000, 0.04636, - +0.26191, 0.26191, 0.41110, 0.04565, 0.01457, 0.000, 0.04565/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),K=1,19)/ - +0.31438, 0.31438, 0.58494, 0.05519, 0.00089, 0.000, 0.05519, - +0.31147, 0.31147, 0.58388, 0.05360, 0.00323, 0.000, 0.05360, - +0.30824, 0.30824, 0.57373, 0.05212, 0.00502, 0.000, 0.05212, - +0.30488, 0.30488, 0.55933, 0.05073, 0.00643, 0.000, 0.05073, - +0.30143, 0.30143, 0.54219, 0.04943, 0.00752, 0.000, 0.04943, - +0.29797, 0.29797, 0.52421, 0.04820, 0.00840, 0.000, 0.04820, - +0.29456, 0.29456, 0.50614, 0.04704, 0.00910, 0.000, 0.04704, - +0.29121, 0.29121, 0.48841, 0.04594, 0.00967, 0.000, 0.04594, - +0.28793, 0.28793, 0.47128, 0.04491, 0.01013, 0.000, 0.04491, - +0.28470, 0.28470, 0.45465, 0.04392, 0.01049, 0.000, 0.04392, - +0.28155, 0.28155, 0.43885, 0.04298, 0.01078, 0.000, 0.04298, - +0.27851, 0.27851, 0.42393, 0.04209, 0.01103, 0.000, 0.04209, - +0.27555, 0.27555, 0.40982, 0.04124, 0.01122, 0.000, 0.04124, - +0.27264, 0.27264, 0.39631, 0.04043, 0.01137, 0.000, 0.04043, - +0.26984, 0.26984, 0.38366, 0.03966, 0.01149, 0.000, 0.03966, - +0.26711, 0.26711, 0.37164, 0.03892, 0.01157, 0.000, 0.03892, - +0.26445, 0.26445, 0.36027, 0.03822, 0.01164, 0.000, 0.03822, - +0.26187, 0.26187, 0.34955, 0.03754, 0.01169, 0.000, 0.03754, - +0.25935, 0.25935, 0.33934, 0.03689, 0.01172, 0.000, 0.03689/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),K=1,19)/ - +0.32405, 0.32405, 0.54796, 0.04709, 0.00078, 0.000, 0.04709, - +0.31947, 0.31947, 0.53787, 0.04556, 0.00280, 0.000, 0.04556, - +0.31477, 0.31477, 0.52148, 0.04413, 0.00432, 0.000, 0.04413, - +0.31013, 0.31013, 0.50268, 0.04281, 0.00550, 0.000, 0.04281, - +0.30553, 0.30553, 0.48261, 0.04156, 0.00640, 0.000, 0.04156, - +0.30105, 0.30105, 0.46269, 0.04039, 0.00711, 0.000, 0.04039, - +0.29671, 0.29671, 0.44340, 0.03930, 0.00767, 0.000, 0.03930, - +0.29252, 0.29252, 0.42498, 0.03827, 0.00811, 0.000, 0.03827, - +0.28847, 0.28847, 0.40757, 0.03731, 0.00847, 0.000, 0.03731, - +0.28454, 0.28454, 0.39100, 0.03639, 0.00874, 0.000, 0.03639, - +0.28075, 0.28075, 0.37549, 0.03552, 0.00895, 0.000, 0.03552, - +0.27710, 0.27710, 0.36100, 0.03470, 0.00913, 0.000, 0.03470, - +0.27360, 0.27360, 0.34744, 0.03393, 0.00926, 0.000, 0.03393, - +0.27018, 0.27018, 0.33461, 0.03319, 0.00935, 0.000, 0.03319, - +0.26690, 0.26690, 0.32268, 0.03249, 0.00943, 0.000, 0.03249, - +0.26372, 0.26372, 0.31144, 0.03182, 0.00948, 0.000, 0.03182, - +0.26065, 0.26065, 0.30089, 0.03118, 0.00951, 0.000, 0.03118, - +0.25769, 0.25769, 0.29099, 0.03057, 0.00953, 0.000, 0.03057, - +0.25480, 0.25480, 0.28164, 0.02999, 0.00953, 0.000, 0.02999/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),K=1,19)/ - +0.33149, 0.33149, 0.51257, 0.03996, 0.00068, 0.000, 0.03996, - +0.32523, 0.32523, 0.49539, 0.03854, 0.00242, 0.000, 0.03854, - +0.31909, 0.31909, 0.47426, 0.03722, 0.00372, 0.000, 0.03722, - +0.31318, 0.31318, 0.45230, 0.03600, 0.00471, 0.000, 0.03600, - +0.30746, 0.30746, 0.43026, 0.03485, 0.00545, 0.000, 0.03485, - +0.30199, 0.30199, 0.40916, 0.03379, 0.00603, 0.000, 0.03379, - +0.29676, 0.29676, 0.38927, 0.03279, 0.00648, 0.000, 0.03279, - +0.29177, 0.29177, 0.37068, 0.03185, 0.00683, 0.000, 0.03185, - +0.28700, 0.28700, 0.35339, 0.03098, 0.00710, 0.000, 0.03098, - +0.28241, 0.28241, 0.33720, 0.03015, 0.00731, 0.000, 0.03015, - +0.27801, 0.27801, 0.32220, 0.02937, 0.00747, 0.000, 0.02937, - +0.27382, 0.27382, 0.30834, 0.02863, 0.00759, 0.000, 0.02863, - +0.26981, 0.26981, 0.29548, 0.02794, 0.00768, 0.000, 0.02794, - +0.26592, 0.26592, 0.28344, 0.02728, 0.00774, 0.000, 0.02728, - +0.26221, 0.26221, 0.27231, 0.02666, 0.00779, 0.000, 0.02666, - +0.25863, 0.25863, 0.26189, 0.02606, 0.00781, 0.000, 0.02606, - +0.25518, 0.25518, 0.25218, 0.02550, 0.00782, 0.000, 0.02550, - +0.25187, 0.25187, 0.24312, 0.02496, 0.00782, 0.000, 0.02496, - +0.24866, 0.24866, 0.23461, 0.02445, 0.00781, 0.000, 0.02445/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),K=1,19)/ - +0.33688, 0.33688, 0.47859, 0.03367, 0.00059, 0.000, 0.03367, - +0.32897, 0.32897, 0.45578, 0.03238, 0.00210, 0.000, 0.03238, - +0.32141, 0.32141, 0.43109, 0.03118, 0.00320, 0.000, 0.03118, - +0.31429, 0.31429, 0.40693, 0.03007, 0.00403, 0.000, 0.03007, - +0.30750, 0.30750, 0.38368, 0.02904, 0.00464, 0.000, 0.02904, - +0.30109, 0.30109, 0.36202, 0.02807, 0.00511, 0.000, 0.02807, - +0.29502, 0.29502, 0.34202, 0.02717, 0.00547, 0.000, 0.02717, - +0.28928, 0.28928, 0.32364, 0.02634, 0.00574, 0.000, 0.02634, - +0.28384, 0.28384, 0.30678, 0.02555, 0.00595, 0.000, 0.02555, - +0.27864, 0.27864, 0.29119, 0.02481, 0.00611, 0.000, 0.02481, - +0.27370, 0.27370, 0.27690, 0.02412, 0.00622, 0.000, 0.02412, - +0.26901, 0.26901, 0.26380, 0.02347, 0.00630, 0.000, 0.02347, - +0.26454, 0.26454, 0.25175, 0.02286, 0.00636, 0.000, 0.02286, - +0.26023, 0.26023, 0.24055, 0.02228, 0.00640, 0.000, 0.02228, - +0.25614, 0.25614, 0.23027, 0.02173, 0.00642, 0.000, 0.02173, - +0.25221, 0.25221, 0.22071, 0.02121, 0.00642, 0.000, 0.02121, - +0.24843, 0.24843, 0.21184, 0.02072, 0.00642, 0.000, 0.02072, - +0.24482, 0.24482, 0.20361, 0.02025, 0.00641, 0.000, 0.02025, - +0.24133, 0.24133, 0.19592, 0.01980, 0.00638, 0.000, 0.01980/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),K=1,19)/ - +0.34037, 0.34037, 0.44594, 0.02813, 0.00051, 0.000, 0.02813, - +0.33085, 0.33085, 0.41872, 0.02698, 0.00181, 0.000, 0.02698, - +0.32193, 0.32193, 0.39145, 0.02591, 0.00275, 0.000, 0.02591, - +0.31363, 0.31363, 0.36585, 0.02492, 0.00344, 0.000, 0.02492, - +0.30583, 0.30583, 0.34199, 0.02400, 0.00394, 0.000, 0.02400, - +0.29853, 0.29853, 0.32024, 0.02314, 0.00432, 0.000, 0.02314, - +0.29169, 0.29169, 0.30049, 0.02235, 0.00461, 0.000, 0.02235, - +0.28526, 0.28526, 0.28259, 0.02160, 0.00482, 0.000, 0.02160, - +0.27921, 0.27921, 0.26637, 0.02091, 0.00498, 0.000, 0.02091, - +0.27345, 0.27345, 0.25155, 0.02027, 0.00509, 0.000, 0.02027, - +0.26802, 0.26802, 0.23808, 0.01966, 0.00517, 0.000, 0.01966, - +0.26288, 0.26288, 0.22583, 0.01909, 0.00522, 0.000, 0.01909, - +0.25800, 0.25800, 0.21463, 0.01856, 0.00526, 0.000, 0.01856, - +0.25332, 0.25332, 0.20432, 0.01805, 0.00527, 0.000, 0.01805, - +0.24890, 0.24890, 0.19489, 0.01758, 0.00528, 0.000, 0.01758, - +0.24466, 0.24466, 0.18618, 0.01713, 0.00527, 0.000, 0.01713, - +0.24060, 0.24060, 0.17814, 0.01670, 0.00525, 0.000, 0.01670, - +0.23673, 0.23673, 0.17072, 0.01630, 0.00523, 0.000, 0.01630, - +0.23301, 0.23301, 0.16381, 0.01591, 0.00520, 0.000, 0.01591/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),K=1,19)/ - +0.34210, 0.34210, 0.41457, 0.02327, 0.00045, 0.000, 0.02327, - +0.33100, 0.33100, 0.38398, 0.02227, 0.00156, 0.000, 0.02227, - +0.32077, 0.32077, 0.35494, 0.02133, 0.00235, 0.000, 0.02133, - +0.31136, 0.31136, 0.32852, 0.02046, 0.00293, 0.000, 0.02046, - +0.30261, 0.30261, 0.30451, 0.01965, 0.00334, 0.000, 0.01965, - +0.29449, 0.29449, 0.28303, 0.01890, 0.00364, 0.000, 0.01890, - +0.28693, 0.28693, 0.26380, 0.01821, 0.00387, 0.000, 0.01821, - +0.27987, 0.27987, 0.24659, 0.01756, 0.00403, 0.000, 0.01756, - +0.27326, 0.27326, 0.23116, 0.01696, 0.00415, 0.000, 0.01696, - +0.26701, 0.26701, 0.21720, 0.01640, 0.00422, 0.000, 0.01640, - +0.26113, 0.26113, 0.20462, 0.01587, 0.00427, 0.000, 0.01587, - +0.25560, 0.25560, 0.19326, 0.01538, 0.00431, 0.000, 0.01538, - +0.25037, 0.25037, 0.18294, 0.01492, 0.00432, 0.000, 0.01492, - +0.24537, 0.24537, 0.17351, 0.01449, 0.00432, 0.000, 0.01449, - +0.24066, 0.24066, 0.16492, 0.01408, 0.00432, 0.000, 0.01408, - +0.23616, 0.23616, 0.15704, 0.01370, 0.00430, 0.000, 0.01370, - +0.23187, 0.23187, 0.14980, 0.01334, 0.00428, 0.000, 0.01334, - +0.22778, 0.22778, 0.14314, 0.01299, 0.00425, 0.000, 0.01299, - +0.22386, 0.22386, 0.13698, 0.01267, 0.00422, 0.000, 0.01267/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),K=1,19)/ - +0.34216, 0.34216, 0.38444, 0.01904, 0.00039, 0.000, 0.01904, - +0.32956, 0.32956, 0.35137, 0.01818, 0.00135, 0.000, 0.01818, - +0.31808, 0.31808, 0.32121, 0.01737, 0.00201, 0.000, 0.01737, - +0.30763, 0.30763, 0.29448, 0.01662, 0.00249, 0.000, 0.01662, - +0.29799, 0.29799, 0.27071, 0.01592, 0.00282, 0.000, 0.01592, - +0.28911, 0.28911, 0.24976, 0.01528, 0.00306, 0.000, 0.01528, - +0.28089, 0.28089, 0.23126, 0.01468, 0.00323, 0.000, 0.01468, - +0.27326, 0.27326, 0.21489, 0.01412, 0.00335, 0.000, 0.01412, - +0.26615, 0.26615, 0.20034, 0.01361, 0.00344, 0.000, 0.01361, - +0.25947, 0.25947, 0.18731, 0.01313, 0.00349, 0.000, 0.01313, - +0.25320, 0.25320, 0.17565, 0.01268, 0.00352, 0.000, 0.01268, - +0.24733, 0.24733, 0.16519, 0.01227, 0.00354, 0.000, 0.01227, - +0.24180, 0.24180, 0.15576, 0.01188, 0.00354, 0.000, 0.01188, - +0.23653, 0.23653, 0.14719, 0.01151, 0.00353, 0.000, 0.01151, - +0.23158, 0.23158, 0.13942, 0.01117, 0.00351, 0.000, 0.01117, - +0.22686, 0.22686, 0.13233, 0.01084, 0.00349, 0.000, 0.01084, - +0.22237, 0.22237, 0.12585, 0.01054, 0.00347, 0.000, 0.01054, - +0.21812, 0.21812, 0.11991, 0.01025, 0.00344, 0.000, 0.01025, - +0.21404, 0.21404, 0.11444, 0.00998, 0.00340, 0.000, 0.00998/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),K=1,19)/ - +0.34067, 0.34067, 0.35551, 0.01538, 0.00033, 0.000, 0.01538, - +0.32662, 0.32662, 0.32073, 0.01466, 0.00115, 0.000, 0.01466, - +0.31396, 0.31396, 0.29002, 0.01397, 0.00171, 0.000, 0.01397, - +0.30253, 0.30253, 0.26339, 0.01334, 0.00210, 0.000, 0.01334, - +0.29208, 0.29208, 0.24015, 0.01275, 0.00237, 0.000, 0.01275, - +0.28251, 0.28251, 0.21995, 0.01220, 0.00256, 0.000, 0.01220, - +0.27370, 0.27370, 0.20233, 0.01169, 0.00269, 0.000, 0.01169, - +0.26557, 0.26557, 0.18688, 0.01123, 0.00278, 0.000, 0.01123, - +0.25802, 0.25802, 0.17329, 0.01079, 0.00284, 0.000, 0.01079, - +0.25096, 0.25096, 0.16122, 0.01039, 0.00287, 0.000, 0.01039, - +0.24437, 0.24437, 0.15050, 0.01001, 0.00288, 0.000, 0.01001, - +0.23820, 0.23820, 0.14094, 0.00966, 0.00289, 0.000, 0.00966, - +0.23242, 0.23242, 0.13237, 0.00934, 0.00288, 0.000, 0.00934, - +0.22693, 0.22693, 0.12462, 0.00903, 0.00286, 0.000, 0.00903, - +0.22178, 0.22178, 0.11765, 0.00875, 0.00284, 0.000, 0.00875, - +0.21689, 0.21689, 0.11131, 0.00848, 0.00282, 0.000, 0.00848, - +0.21226, 0.21226, 0.10554, 0.00823, 0.00279, 0.000, 0.00823, - +0.20787, 0.20787, 0.10027, 0.00799, 0.00276, 0.000, 0.00799, - +0.20367, 0.20367, 0.09544, 0.00776, 0.00273, 0.000, 0.00776/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),K=1,19)/ - +0.33769, 0.33769, 0.32780, 0.01266, 0.00029, 0.000, 0.01266, - +0.32227, 0.32227, 0.29201, 0.01205, 0.00099, 0.000, 0.01205, - +0.30851, 0.30851, 0.26124, 0.01146, 0.00146, 0.000, 0.01146, - +0.29619, 0.29619, 0.23506, 0.01092, 0.00178, 0.000, 0.01092, - +0.28499, 0.28499, 0.21257, 0.01041, 0.00200, 0.000, 0.01041, - +0.27480, 0.27480, 0.19327, 0.00993, 0.00215, 0.000, 0.00993, - +0.26547, 0.26547, 0.17663, 0.00950, 0.00225, 0.000, 0.00950, - +0.25689, 0.25689, 0.16218, 0.00910, 0.00232, 0.000, 0.00910, - +0.24897, 0.24897, 0.14956, 0.00873, 0.00236, 0.000, 0.00873, - +0.24159, 0.24159, 0.13845, 0.00839, 0.00238, 0.000, 0.00839, - +0.23472, 0.23472, 0.12864, 0.00807, 0.00238, 0.000, 0.00807, - +0.22832, 0.22832, 0.11996, 0.00777, 0.00238, 0.000, 0.00777, - +0.22233, 0.22233, 0.11221, 0.00750, 0.00237, 0.000, 0.00750, - +0.21667, 0.21667, 0.10526, 0.00724, 0.00235, 0.000, 0.00724, - +0.21137, 0.21137, 0.09902, 0.00700, 0.00233, 0.000, 0.00700, - +0.20635, 0.20635, 0.09338, 0.00677, 0.00230, 0.000, 0.00677, - +0.20161, 0.20161, 0.08826, 0.00656, 0.00227, 0.000, 0.00656, - +0.19712, 0.19712, 0.08362, 0.00636, 0.00224, 0.000, 0.00636, - +0.19285, 0.19285, 0.07937, 0.00617, 0.00221, 0.000, 0.00617/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),K=1,19)/ - +0.33330, 0.33330, 0.30123, 0.01046, 0.00025, 0.000, 0.01046, - +0.31661, 0.31661, 0.26502, 0.00993, 0.00085, 0.000, 0.00993, - +0.30183, 0.30183, 0.23458, 0.00943, 0.00124, 0.000, 0.00943, - +0.28869, 0.28869, 0.20913, 0.00896, 0.00151, 0.000, 0.00896, - +0.27683, 0.27683, 0.18757, 0.00852, 0.00169, 0.000, 0.00852, - +0.26609, 0.26609, 0.16930, 0.00811, 0.00180, 0.000, 0.00811, - +0.25631, 0.25631, 0.15370, 0.00774, 0.00188, 0.000, 0.00774, - +0.24736, 0.24736, 0.14028, 0.00740, 0.00193, 0.000, 0.00740, - +0.23913, 0.23913, 0.12866, 0.00708, 0.00196, 0.000, 0.00708, - +0.23148, 0.23148, 0.11850, 0.00679, 0.00197, 0.000, 0.00679, - +0.22440, 0.22440, 0.10960, 0.00652, 0.00197, 0.000, 0.00652, - +0.21781, 0.21781, 0.10176, 0.00627, 0.00196, 0.000, 0.00627, - +0.21167, 0.21167, 0.09480, 0.00604, 0.00194, 0.000, 0.00604, - +0.20588, 0.20588, 0.08860, 0.00582, 0.00192, 0.000, 0.00582, - +0.20048, 0.20048, 0.08305, 0.00562, 0.00190, 0.000, 0.00562, - +0.19538, 0.19538, 0.07806, 0.00543, 0.00188, 0.000, 0.00543, - +0.19056, 0.19056, 0.07356, 0.00525, 0.00185, 0.000, 0.00525, - +0.18602, 0.18602, 0.06949, 0.00508, 0.00182, 0.000, 0.00508, - +0.18170, 0.18170, 0.06578, 0.00492, 0.00180, 0.000, 0.00492/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),K=1,19)/ - +0.32759, 0.32759, 0.27579, 0.00849, 0.00021, 0.000, 0.00849, - +0.30970, 0.30970, 0.23961, 0.00805, 0.00072, 0.000, 0.00805, - +0.29401, 0.29401, 0.20983, 0.00763, 0.00104, 0.000, 0.00763, - +0.28014, 0.28014, 0.18533, 0.00723, 0.00126, 0.000, 0.00723, - +0.26769, 0.26769, 0.16487, 0.00686, 0.00141, 0.000, 0.00686, - +0.25649, 0.25649, 0.14771, 0.00652, 0.00150, 0.000, 0.00652, - +0.24633, 0.24633, 0.13321, 0.00621, 0.00156, 0.000, 0.00621, - +0.23708, 0.23708, 0.12085, 0.00593, 0.00159, 0.000, 0.00593, - +0.22860, 0.22860, 0.11022, 0.00566, 0.00161, 0.000, 0.00566, - +0.22075, 0.22075, 0.10100, 0.00542, 0.00161, 0.000, 0.00542, - +0.21350, 0.21350, 0.09298, 0.00519, 0.00161, 0.000, 0.00519, - +0.20679, 0.20679, 0.08596, 0.00498, 0.00160, 0.000, 0.00498, - +0.20055, 0.20055, 0.07976, 0.00479, 0.00158, 0.000, 0.00479, - +0.19468, 0.19468, 0.07426, 0.00461, 0.00156, 0.000, 0.00461, - +0.18922, 0.18922, 0.06937, 0.00444, 0.00154, 0.000, 0.00444, - +0.18407, 0.18407, 0.06498, 0.00428, 0.00152, 0.000, 0.00428, - +0.17923, 0.17923, 0.06105, 0.00414, 0.00149, 0.000, 0.00414, - +0.17467, 0.17467, 0.05750, 0.00400, 0.00147, 0.000, 0.00400, - +0.17035, 0.17035, 0.05428, 0.00387, 0.00144, 0.000, 0.00387/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),K=1,19)/ - +0.32060, 0.32060, 0.25146, 0.00676, 0.00018, 0.000, 0.00676, - +0.30163, 0.30163, 0.21574, 0.00640, 0.00060, 0.000, 0.00640, - +0.28512, 0.28512, 0.18689, 0.00606, 0.00087, 0.000, 0.00606, - +0.27061, 0.27061, 0.16352, 0.00573, 0.00105, 0.000, 0.00573, - +0.25767, 0.25767, 0.14425, 0.00543, 0.00116, 0.000, 0.00543, - +0.24608, 0.24608, 0.12828, 0.00515, 0.00123, 0.000, 0.00515, - +0.23563, 0.23563, 0.11491, 0.00489, 0.00127, 0.000, 0.00489, - +0.22613, 0.22613, 0.10361, 0.00466, 0.00130, 0.000, 0.00466, - +0.21747, 0.21747, 0.09397, 0.00444, 0.00131, 0.000, 0.00444, - +0.20949, 0.20949, 0.08567, 0.00424, 0.00131, 0.000, 0.00424, - +0.20214, 0.20214, 0.07849, 0.00406, 0.00130, 0.000, 0.00406, - +0.19535, 0.19535, 0.07224, 0.00389, 0.00129, 0.000, 0.00389, - +0.18906, 0.18906, 0.06676, 0.00373, 0.00127, 0.000, 0.00373, - +0.18316, 0.18316, 0.06192, 0.00358, 0.00125, 0.000, 0.00358, - +0.17768, 0.17768, 0.05764, 0.00345, 0.00123, 0.000, 0.00345, - +0.17253, 0.17253, 0.05382, 0.00332, 0.00121, 0.000, 0.00332, - +0.16770, 0.16770, 0.05041, 0.00320, 0.00119, 0.000, 0.00320, - +0.16316, 0.16316, 0.04734, 0.00309, 0.00116, 0.000, 0.00309, - +0.15886, 0.15886, 0.04457, 0.00298, 0.00114, 0.000, 0.00298/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),K=1,19)/ - +0.31240, 0.31240, 0.22824, 0.00525, 0.00015, 0.000, 0.00525, - +0.29246, 0.29246, 0.19333, 0.00498, 0.00050, 0.000, 0.00498, - +0.27523, 0.27523, 0.16565, 0.00470, 0.00072, 0.000, 0.00470, - +0.26018, 0.26018, 0.14355, 0.00445, 0.00086, 0.000, 0.00445, - +0.24684, 0.24684, 0.12556, 0.00420, 0.00095, 0.000, 0.00420, - +0.23496, 0.23496, 0.11081, 0.00398, 0.00100, 0.000, 0.00398, - +0.22428, 0.22428, 0.09859, 0.00377, 0.00103, 0.000, 0.00377, - +0.21462, 0.21462, 0.08834, 0.00359, 0.00104, 0.000, 0.00359, - +0.20584, 0.20584, 0.07966, 0.00341, 0.00105, 0.000, 0.00341, - +0.19779, 0.19779, 0.07225, 0.00325, 0.00104, 0.000, 0.00325, - +0.19039, 0.19039, 0.06588, 0.00310, 0.00103, 0.000, 0.00310, - +0.18358, 0.18358, 0.06037, 0.00297, 0.00102, 0.000, 0.00297, - +0.17728, 0.17728, 0.05556, 0.00284, 0.00101, 0.000, 0.00284, - +0.17140, 0.17140, 0.05133, 0.00273, 0.00099, 0.000, 0.00273, - +0.16595, 0.16595, 0.04761, 0.00262, 0.00097, 0.000, 0.00262, - +0.16084, 0.16084, 0.04431, 0.00252, 0.00095, 0.000, 0.00252, - +0.15605, 0.15605, 0.04137, 0.00242, 0.00093, 0.000, 0.00242, - +0.15157, 0.15157, 0.03873, 0.00234, 0.00091, 0.000, 0.00234, - +0.14733, 0.14733, 0.03637, 0.00225, 0.00089, 0.000, 0.00225/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),K=1,19)/ - +0.30304, 0.30304, 0.20611, 0.00395, 0.00012, 0.000, 0.00395, - +0.28226, 0.28226, 0.17233, 0.00376, 0.00041, 0.000, 0.00376, - +0.26441, 0.26441, 0.14602, 0.00355, 0.00059, 0.000, 0.00355, - +0.24894, 0.24894, 0.12530, 0.00335, 0.00070, 0.000, 0.00335, - +0.23529, 0.23529, 0.10865, 0.00317, 0.00076, 0.000, 0.00317, - +0.22319, 0.22319, 0.09514, 0.00299, 0.00080, 0.000, 0.00299, - +0.21236, 0.21236, 0.08405, 0.00283, 0.00082, 0.000, 0.00283, - +0.20262, 0.20262, 0.07484, 0.00269, 0.00083, 0.000, 0.00269, - +0.19379, 0.19379, 0.06710, 0.00255, 0.00083, 0.000, 0.00255, - +0.18572, 0.18572, 0.06053, 0.00243, 0.00082, 0.000, 0.00243, - +0.17833, 0.17833, 0.05492, 0.00231, 0.00081, 0.000, 0.00231, - +0.17155, 0.17155, 0.05010, 0.00221, 0.00080, 0.000, 0.00221, - +0.16530, 0.16530, 0.04591, 0.00211, 0.00078, 0.000, 0.00211, - +0.15948, 0.15948, 0.04226, 0.00202, 0.00077, 0.000, 0.00202, - +0.15410, 0.15410, 0.03905, 0.00194, 0.00075, 0.000, 0.00194, - +0.14906, 0.14906, 0.03622, 0.00186, 0.00073, 0.000, 0.00186, - +0.14436, 0.14436, 0.03371, 0.00179, 0.00072, 0.000, 0.00179, - +0.13996, 0.13996, 0.03147, 0.00172, 0.00070, 0.000, 0.00172, - +0.13582, 0.13582, 0.02947, 0.00166, 0.00068, 0.000, 0.00166/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),K=1,19)/ - +0.29258, 0.29258, 0.18508, 0.00286, 0.00010, 0.000, 0.00286, - +0.27107, 0.27107, 0.15270, 0.00273, 0.00033, 0.000, 0.00273, - +0.25274, 0.25274, 0.12791, 0.00259, 0.00047, 0.000, 0.00259, - +0.23694, 0.23694, 0.10866, 0.00245, 0.00055, 0.000, 0.00245, - +0.22309, 0.22309, 0.09339, 0.00231, 0.00060, 0.000, 0.00231, - +0.21086, 0.21086, 0.08113, 0.00218, 0.00063, 0.000, 0.00218, - +0.19997, 0.19997, 0.07116, 0.00206, 0.00064, 0.000, 0.00206, - +0.19021, 0.19021, 0.06294, 0.00195, 0.00065, 0.000, 0.00195, - +0.18140, 0.18140, 0.05609, 0.00185, 0.00064, 0.000, 0.00185, - +0.17337, 0.17337, 0.05033, 0.00176, 0.00064, 0.000, 0.00176, - +0.16605, 0.16605, 0.04544, 0.00167, 0.00062, 0.000, 0.00167, - +0.15936, 0.15936, 0.04125, 0.00159, 0.00061, 0.000, 0.00159, - +0.15319, 0.15319, 0.03764, 0.00152, 0.00060, 0.000, 0.00152, - +0.14748, 0.14748, 0.03451, 0.00145, 0.00059, 0.000, 0.00145, - +0.14220, 0.14220, 0.03177, 0.00139, 0.00057, 0.000, 0.00139, - +0.13728, 0.13728, 0.02937, 0.00133, 0.00056, 0.000, 0.00133, - +0.13270, 0.13270, 0.02724, 0.00128, 0.00054, 0.000, 0.00128, - +0.12842, 0.12842, 0.02536, 0.00123, 0.00053, 0.000, 0.00123, - +0.12440, 0.12440, 0.02367, 0.00118, 0.00052, 0.000, 0.00118/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),K=1,19)/ - +0.28106, 0.28106, 0.16514, 0.00209, 0.00008, 0.000, 0.00209, - +0.25898, 0.25898, 0.13441, 0.00200, 0.00027, 0.000, 0.00200, - +0.24029, 0.24029, 0.11128, 0.00190, 0.00038, 0.000, 0.00190, - +0.22427, 0.22427, 0.09355, 0.00179, 0.00044, 0.000, 0.00179, - +0.21030, 0.21030, 0.07966, 0.00169, 0.00048, 0.000, 0.00169, - +0.19804, 0.19804, 0.06864, 0.00159, 0.00050, 0.000, 0.00159, - +0.18717, 0.18717, 0.05975, 0.00150, 0.00050, 0.000, 0.00150, - +0.17747, 0.17747, 0.05249, 0.00142, 0.00050, 0.000, 0.00142, - +0.16874, 0.16874, 0.04649, 0.00135, 0.00050, 0.000, 0.00135, - +0.16082, 0.16082, 0.04148, 0.00128, 0.00049, 0.000, 0.00128, - +0.15362, 0.15362, 0.03725, 0.00121, 0.00048, 0.000, 0.00121, - +0.14706, 0.14706, 0.03366, 0.00115, 0.00047, 0.000, 0.00115, - +0.14103, 0.14103, 0.03058, 0.00110, 0.00046, 0.000, 0.00110, - +0.13546, 0.13546, 0.02791, 0.00105, 0.00045, 0.000, 0.00105, - +0.13033, 0.13033, 0.02560, 0.00100, 0.00043, 0.000, 0.00100, - +0.12556, 0.12556, 0.02358, 0.00096, 0.00042, 0.000, 0.00096, - +0.12113, 0.12113, 0.02180, 0.00092, 0.00041, 0.000, 0.00092, - +0.11700, 0.11700, 0.02022, 0.00088, 0.00040, 0.000, 0.00088, - +0.11313, 0.11313, 0.01883, 0.00085, 0.00039, 0.000, 0.00085/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),K=1,19)/ - +0.25505, 0.25505, 0.12855, 0.00125, 0.00005, 0.000, 0.00125, - +0.23227, 0.23227, 0.10169, 0.00120, 0.00017, 0.000, 0.00120, - +0.21326, 0.21326, 0.08213, 0.00113, 0.00024, 0.000, 0.00113, - +0.19717, 0.19717, 0.06753, 0.00106, 0.00028, 0.000, 0.00106, - +0.18330, 0.18330, 0.05640, 0.00100, 0.00030, 0.000, 0.00100, - +0.17125, 0.17125, 0.04775, 0.00093, 0.00031, 0.000, 0.00093, - +0.16066, 0.16066, 0.04091, 0.00088, 0.00031, 0.000, 0.00088, - +0.15129, 0.15129, 0.03542, 0.00082, 0.00031, 0.000, 0.00082, - +0.14293, 0.14293, 0.03096, 0.00078, 0.00030, 0.000, 0.00078, - +0.13540, 0.13540, 0.02729, 0.00073, 0.00029, 0.000, 0.00073, - +0.12861, 0.12861, 0.02423, 0.00069, 0.00029, 0.000, 0.00069, - +0.12245, 0.12245, 0.02167, 0.00065, 0.00028, 0.000, 0.00065, - +0.11684, 0.11684, 0.01950, 0.00062, 0.00027, 0.000, 0.00062, - +0.11167, 0.11167, 0.01764, 0.00059, 0.00026, 0.000, 0.00059, - +0.10694, 0.10694, 0.01605, 0.00056, 0.00025, 0.000, 0.00056, - +0.10257, 0.10257, 0.01466, 0.00053, 0.00024, 0.000, 0.00053, - +0.09853, 0.09853, 0.01346, 0.00051, 0.00024, 0.000, 0.00051, - +0.09478, 0.09478, 0.01240, 0.00049, 0.00023, 0.000, 0.00049, - +0.09128, 0.09128, 0.01147, 0.00047, 0.00022, 0.000, 0.00047/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),K=1,19)/ - +0.22539, 0.22539, 0.09632, 0.00064, 0.00003, 0.000, 0.00064, - +0.20257, 0.20257, 0.07383, 0.00061, 0.00010, 0.000, 0.00061, - +0.18383, 0.18383, 0.05802, 0.00058, 0.00014, 0.000, 0.00058, - +0.16817, 0.16817, 0.04656, 0.00054, 0.00016, 0.000, 0.00054, - +0.15484, 0.15484, 0.03806, 0.00050, 0.00017, 0.000, 0.00050, - +0.14338, 0.14338, 0.03161, 0.00047, 0.00017, 0.000, 0.00047, - +0.13342, 0.13342, 0.02661, 0.00044, 0.00017, 0.000, 0.00044, - +0.12468, 0.12468, 0.02267, 0.00041, 0.00017, 0.000, 0.00041, - +0.11695, 0.11695, 0.01954, 0.00039, 0.00016, 0.000, 0.00039, - +0.11005, 0.11005, 0.01699, 0.00036, 0.00016, 0.000, 0.00036, - +0.10386, 0.10386, 0.01491, 0.00034, 0.00015, 0.000, 0.00034, - +0.09830, 0.09830, 0.01319, 0.00032, 0.00015, 0.000, 0.00032, - +0.09326, 0.09326, 0.01174, 0.00030, 0.00014, 0.000, 0.00030, - +0.08865, 0.08865, 0.01053, 0.00029, 0.00014, 0.000, 0.00029, - +0.08446, 0.08446, 0.00949, 0.00027, 0.00013, 0.000, 0.00027, - +0.08061, 0.08061, 0.00860, 0.00026, 0.00013, 0.000, 0.00026, - +0.07706, 0.07706, 0.00784, 0.00024, 0.00012, 0.000, 0.00024, - +0.07379, 0.07379, 0.00717, 0.00023, 0.00012, 0.000, 0.00023, - +0.07076, 0.07076, 0.00659, 0.00022, 0.00011, 0.000, 0.00022/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),K=1,19)/ - +0.19244, 0.19244, 0.06849, 0.00023, 0.00002, 0.000, 0.00023, - +0.17036, 0.17036, 0.05066, 0.00023, 0.00005, 0.000, 0.00023, - +0.15253, 0.15253, 0.03859, 0.00022, 0.00007, 0.000, 0.00022, - +0.13786, 0.13786, 0.03013, 0.00020, 0.00008, 0.000, 0.00020, - +0.12553, 0.12553, 0.02404, 0.00019, 0.00008, 0.000, 0.00019, - +0.11506, 0.11506, 0.01953, 0.00018, 0.00008, 0.000, 0.00018, - +0.10606, 0.10606, 0.01612, 0.00017, 0.00008, 0.000, 0.00017, - +0.09825, 0.09825, 0.01349, 0.00016, 0.00008, 0.000, 0.00016, - +0.09141, 0.09141, 0.01144, 0.00014, 0.00007, 0.000, 0.00014, - +0.08535, 0.08535, 0.00981, 0.00014, 0.00007, 0.000, 0.00014, - +0.07997, 0.07997, 0.00849, 0.00013, 0.00007, 0.000, 0.00013, - +0.07516, 0.07516, 0.00741, 0.00012, 0.00006, 0.000, 0.00012, - +0.07084, 0.07084, 0.00653, 0.00011, 0.00006, 0.000, 0.00011, - +0.06693, 0.06693, 0.00579, 0.00010, 0.00006, 0.000, 0.00010, - +0.06338, 0.06338, 0.00517, 0.00010, 0.00006, 0.000, 0.00010, - +0.06015, 0.06015, 0.00465, 0.00009, 0.00005, 0.000, 0.00009, - +0.05719, 0.05719, 0.00420, 0.00009, 0.00005, 0.000, 0.00009, - +0.05448, 0.05448, 0.00381, 0.00008, 0.00005, 0.000, 0.00008, - +0.05198, 0.05198, 0.00348, 0.00008, 0.00005, 0.000, 0.00008/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),K=1,19)/ - +0.15661, 0.15661, 0.04516, 0.00009, 0.00001, 0.000, 0.00009, - +0.13618, 0.13618, 0.03203, 0.00009, 0.00002, 0.000, 0.00009, - +0.11998, 0.11998, 0.02351, 0.00009, 0.00003, 0.000, 0.00009, - +0.10688, 0.10688, 0.01778, 0.00008, 0.00003, 0.000, 0.00008, - +0.09605, 0.09605, 0.01377, 0.00008, 0.00004, 0.000, 0.00008, - +0.08698, 0.08698, 0.01089, 0.00007, 0.00003, 0.000, 0.00007, - +0.07928, 0.07928, 0.00879, 0.00006, 0.00003, 0.000, 0.00006, - +0.07267, 0.07267, 0.00720, 0.00006, 0.00003, 0.000, 0.00006, - +0.06695, 0.06695, 0.00599, 0.00006, 0.00003, 0.000, 0.00006, - +0.06195, 0.06195, 0.00504, 0.00005, 0.00003, 0.000, 0.00005, - +0.05754, 0.05754, 0.00430, 0.00005, 0.00003, 0.000, 0.00005, - +0.05364, 0.05364, 0.00370, 0.00004, 0.00003, 0.000, 0.00004, - +0.05016, 0.05016, 0.00321, 0.00004, 0.00002, 0.000, 0.00004, - +0.04704, 0.04704, 0.00281, 0.00004, 0.00002, 0.000, 0.00004, - +0.04424, 0.04424, 0.00248, 0.00004, 0.00002, 0.000, 0.00004, - +0.04170, 0.04170, 0.00221, 0.00003, 0.00002, 0.000, 0.00003, - +0.03939, 0.03939, 0.00198, 0.00003, 0.00002, 0.000, 0.00003, - +0.03729, 0.03729, 0.00178, 0.00003, 0.00002, 0.000, 0.00003, - +0.03536, 0.03536, 0.00161, 0.00003, 0.00002, 0.000, 0.00003/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),K=1,19)/ - +0.11838, 0.11838, 0.02641, 0.00003, 0.000, 0.000, 0.00003, - +0.10062, 0.10062, 0.01777, 0.00003, 0.00001, 0.000, 0.00003, - +0.08688, 0.08688, 0.01245, 0.00003, 0.00001, 0.000, 0.00003, - +0.07599, 0.07599, 0.00905, 0.00003, 0.00001, 0.000, 0.00003, - +0.06717, 0.06717, 0.00676, 0.00002, 0.00001, 0.000, 0.00002, - +0.05990, 0.05990, 0.00518, 0.00002, 0.00001, 0.000, 0.00002, - +0.05383, 0.05383, 0.00406, 0.00002, 0.00001, 0.000, 0.00002, - +0.04870, 0.04870, 0.00324, 0.00002, 0.00001, 0.000, 0.00002, - +0.04432, 0.04432, 0.00263, 0.00002, 0.00001, 0.000, 0.00002, - +0.04053, 0.04053, 0.00217, 0.00001, 0.00001, 0.000, 0.00001, - +0.03724, 0.03724, 0.00181, 0.00001, 0.00001, 0.000, 0.00001, - +0.03436, 0.03436, 0.00154, 0.00001, 0.00001, 0.000, 0.00001, - +0.03182, 0.03182, 0.00131, 0.00001, 0.00001, 0.000, 0.00001, - +0.02957, 0.02957, 0.00113, 0.00001, 0.00001, 0.000, 0.00001, - +0.02756, 0.02756, 0.00099, 0.00001, 0.00001, 0.000, 0.00001, - +0.02575, 0.02575, 0.00087, 0.00001, 0.00001, 0.000, 0.00001, - +0.02413, 0.02413, 0.00077, 0.00001, 0.00001, 0.000, 0.00001, - +0.02267, 0.02267, 0.00068, 0.00001, 0.00001, 0.000, 0.00001, - +0.02134, 0.02134, 0.00061, 0.00001, 0.000, 0.000, 0.00001/ - DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),K=1,19)/ - +0.07838, 0.07838, 0.01240, 0.000, 0.000, 0.000, 0.000, - +0.06456, 0.06456, 0.00776, 0.000, 0.000, 0.000, 0.000, - +0.05420, 0.05420, 0.00512, 0.000, 0.000, 0.000, 0.000, - +0.04623, 0.04623, 0.00352, 0.000, 0.000, 0.000, 0.000, - +0.03993, 0.03993, 0.00250, 0.000, 0.000, 0.000, 0.000, - +0.03487, 0.03487, 0.00184, 0.000, 0.000, 0.000, 0.000, - +0.03073, 0.03073, 0.00139, 0.000, 0.000, 0.000, 0.000, - +0.02731, 0.02731, 0.00107, 0.000, 0.000, 0.000, 0.000, - +0.02443, 0.02443, 0.00084, 0.000, 0.000, 0.000, 0.000, - +0.02199, 0.02199, 0.00068, 0.000, 0.000, 0.000, 0.000, - +0.01991, 0.01991, 0.00055, 0.000, 0.000, 0.000, 0.000, - +0.01811, 0.01811, 0.00046, 0.000, 0.000, 0.000, 0.000, - +0.01655, 0.01655, 0.00038, 0.000, 0.000, 0.000, 0.000, - +0.01518, 0.01518, 0.00032, 0.000, 0.000, 0.000, 0.000, - +0.01397, 0.01397, 0.00028, 0.000, 0.000, 0.000, 0.000, - +0.01291, 0.01291, 0.00024, 0.000, 0.000, 0.000, 0.000, - +0.01196, 0.01196, 0.00021, 0.000, 0.000, 0.000, 0.000, - +0.01111, 0.01111, 0.00019, 0.000, 0.000, 0.000, 0.000, - +0.01035, 0.01035, 0.00016, 0.000, 0.000, 0.000, 0.000/ - DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),K=1,19)/ - +0.03767, 0.03767, 0.00340, 0.000, 0.000, 0.000, 0.000, - +0.02943, 0.02943, 0.00189, 0.000, 0.000, 0.000, 0.000, - +0.02358, 0.02358, 0.00113, 0.000, 0.000, 0.000, 0.000, - +0.01928, 0.01928, 0.00071, 0.000, 0.000, 0.000, 0.000, - +0.01602, 0.01602, 0.00047, 0.000, 0.000, 0.000, 0.000, - +0.01351, 0.01351, 0.00032, 0.000, 0.000, 0.000, 0.000, - +0.01152, 0.01152, 0.00023, 0.000, 0.000, 0.000, 0.000, - +0.00993, 0.00993, 0.00016, 0.000, 0.000, 0.000, 0.000, - +0.00864, 0.00864, 0.00012, 0.000, 0.000, 0.000, 0.000, - +0.00757, 0.00757, 0.00010, 0.000, 0.000, 0.000, 0.000, - +0.00668, 0.00668, 0.00007, 0.000, 0.000, 0.000, 0.000, - +0.00594, 0.00594, 0.00006, 0.000, 0.000, 0.000, 0.000, - +0.00530, 0.00530, 0.00005, 0.000, 0.000, 0.000, 0.000, - +0.00476, 0.00476, 0.00004, 0.000, 0.000, 0.000, 0.000, - +0.00430, 0.00430, 0.00003, 0.000, 0.000, 0.000, 0.000, - +0.00389, 0.00389, 0.00003, 0.000, 0.000, 0.000, 0.000, - +0.00354, 0.00354, 0.00002, 0.000, 0.000, 0.000, 0.000, - +0.00323, 0.00323, 0.00002, 0.000, 0.000, 0.000, 0.000, - +0.00296, 0.00296, 0.00002, 0.000, 0.000, 0.000, 0.000/ - DATA ((F(I,49,K),I=1,5),F(7,49,K),F(6,49,K),K=1,19)/ - +0.01778, 0.01778, 0.00094, 0.000, 0.000, 0.000, 0.000, - +0.01319, 0.01319, 0.00046, 0.000, 0.000, 0.000, 0.000, - +0.01008, 0.01008, 0.00025, 0.000, 0.000, 0.000, 0.000, - +0.00791, 0.00791, 0.00014, 0.000, 0.000, 0.000, 0.000, - +0.00633, 0.00633, 0.00009, 0.000, 0.000, 0.000, 0.000, - +0.00515, 0.00515, 0.00006, 0.000, 0.000, 0.000, 0.000, - +0.00426, 0.00426, 0.00004, 0.000, 0.000, 0.000, 0.000, - +0.00356, 0.00356, 0.00003, 0.000, 0.000, 0.000, 0.000, - +0.00301, 0.00301, 0.00002, 0.000, 0.000, 0.000, 0.000, - +0.00257, 0.00257, 0.00001, 0.000, 0.000, 0.000, 0.000, - +0.00221, 0.00221, 0.00001, 0.000, 0.000, 0.000, 0.000, - +0.00192, 0.00192, 0.00001, 0.000, 0.000, 0.000, 0.000, - +0.00168, 0.00168, 0.00001, 0.000, 0.000, 0.000, 0.000, - +0.00148, 0.00148, 0.00001, 0.000, 0.000, 0.000, 0.000, - +0.00130, 0.00130, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.00116, 0.00116, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.00104, 0.00104, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.00093, 0.00093, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.00084, 0.00084, 0.000, 0.000, 0.000, 0.000, 0.000/ - DATA ((F(I,50,K),I=1,5),F(7,50,K),F(6,50,K),K=1,19)/ - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, - +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000/ - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.85D0,.9D0,.95D0,.975D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/0,0,3,5,0,5,0/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ - XSAVE=X - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,NQ -C READ(103,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M) -C 1=UV 2=DV 3=GLUE 4=(UBAR+DBAR)/2 5=CBAR 7=BBAR 6=SBAR - DO 25 I=1,7 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=2,6 - DO 30 K=1,NQ - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 50 FORMAT(7F10.5) - DO 40 I=1,7 - DO 40 M=1,NQ - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,7 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7.OR.I.EQ.1) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE -C UPBAR DISTRIBUTION = D DISTRIBUTION - UPV=G(2) - DNV=G(2) -C THIS SEA IS (UBAR+DBAR)/2 - SEA=G(4) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) - X=XSAVE - RETURN - END diff --git a/PDF/spdf/smrspi.F b/PDF/spdf/smrspi.F deleted file mode 100644 index 6f3a21d225d..00000000000 --- a/PDF/spdf/smrspi.F +++ /dev/null @@ -1,58 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:53 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:48 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE SMRSPI(X,SCALE,MODE,UPV,DNV,SEA,STR,CHM,BOT,GLU) -C***************************************************************C -C C -C PION DISTRIBUTION FUNCTIONS EXTRACTED FROM DRELL-YAN AND C -C PROMPT PHOTON PION BEAM DATA, USING (NUCLEAR TARGET C -C CORRECTED) HMRS(B) DISTRIBUTIONS FOR THE NUCLEON. C -C MAIN UNCERTAINTY IS IN SEA, HENCE FOLLOWING THREE SETS... C -C MODE=2 IS THE "BEST FIT" SET. C -C C -C MODE 1 CORRESPONDS TO A 10% MOMENTUM SEA (0.11213) C -C MODE 2 CORRESPONDS TO A 15% MOMENTUM SEA (0.16119) C -C MODE 3 CORRESPONDS TO A 20% MOMENTUM SEA (0.23785) C -C C -C (NUMBER IN BRACKETS IS LAST ENTRY IN FIRST ROW OF GRID) C -C C -C -*- C -C C -C REFERENCE: A.D. MARTIN. R.G. ROBERTS. W.J. STIRLING C -C AND P.J. SUTTON, PREPRINT RAL-91-058 (1991). C -C -*- C -C C -C FOR THESE SETS.... C -C * LAMBDA(MSBAR,NF=4) = 190 MEV C -C * UV=DV, STR=USEA=DSEA, BTM=0 C -C C -C NOTE THAT X TIMES THE PARTON DISTRIBUTION FUNCTION C -C IS RETURNED I.E. G(X) = GLU/X ETC, AND THAT "SEA" C -C IS THE QUARK SEA / 6 I.E. UBAR(X)=DBAR(X) C -C = SEA/X FOR A PION. IF IN DOUBT, CHECK THE C -C MOMENTUM SUM RULE! NOTE ALSO THAT SCALE=Q IN GEV C -C C -C -*- C -C C -C THE RANGE OF APPLICABILITY IS CURRENTLY: C -C 10**-5 < X < 1 AND 5 < Q**2 < 1.31 * 10**6 C -C HIGHER Q**2 VALUES CAN BE SUPPLIED ON REQUEST C -C - PROBLEMS, COMMENTS ETC TO WJS@UK.AC.DUR.HEP C -C C -C C -C***************************************************************C -#include "pdf/impdp.inc" - IF(MODE.EQ.1) CALL SMRSP31(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GLU) - IF(MODE.EQ.2) CALL SMRSP32(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GLU) - IF(MODE.EQ.3) CALL SMRSP33(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GLU) - RETURN - END diff --git a/PDF/spdf/srctq21.F b/PDF/spdf/srctq21.F deleted file mode 100644 index f4d894315d6..00000000000 --- a/PDF/spdf/srctq21.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:54 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:48 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE SRCTQ21(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.190 GeV (LO) (CTEQ2L) -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=5) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq2pPd(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = Ctq2pPd(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = Ctq2pPd(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = Ctq2pPd(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = Ctq2pPd(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = Ctq2pPd(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = Ctq2pPd(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = Ctq2pPd(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = Ctq2pPd(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/srctq22.F b/PDF/spdf/srctq22.F deleted file mode 100644 index 3ba6b4c8f0d..00000000000 --- a/PDF/spdf/srctq22.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:54 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:48 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE SRCTQ22(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.213 GeV (MSb) (CTEQ2M) -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=1) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq2pPd(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = Ctq2pPd(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = Ctq2pPd(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = Ctq2pPd(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = Ctq2pPd(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = Ctq2pPd(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = Ctq2pPd(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = Ctq2pPd(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = Ctq2pPd(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/srctq23.F b/PDF/spdf/srctq23.F deleted file mode 100644 index 83680fc314b..00000000000 --- a/PDF/spdf/srctq23.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:55 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:48 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE SRCTQ23(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.208 GeV (MSb - singular gluon) (CTEQ2MS) -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=2) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq2pPd(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = Ctq2pPd(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = Ctq2pPd(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = Ctq2pPd(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = Ctq2pPd(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = Ctq2pPd(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = Ctq2pPd(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = Ctq2pPd(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = Ctq2pPd(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/srctq24.F b/PDF/spdf/srctq24.F deleted file mode 100644 index e53fd983086..00000000000 --- a/PDF/spdf/srctq24.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:56 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:48 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE SRCTQ24(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.208 GeV (MSb) (flat small-x) (CTEQ2MF) -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=3) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq2pPd(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = Ctq2pPd(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = Ctq2pPd(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = Ctq2pPd(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = Ctq2pPd(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = Ctq2pPd(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = Ctq2pPd(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = Ctq2pPd(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = Ctq2pPd(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/srctq25.F b/PDF/spdf/srctq25.F deleted file mode 100644 index 6b67a015043..00000000000 --- a/PDF/spdf/srctq25.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:56 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:48 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE SRCTQ25(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.322 GeV (MSb - LEP Lambda value) (CTEQ2ML) -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=4) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq2pPd(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = Ctq2pPd(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = Ctq2pPd(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = Ctq2pPd(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = Ctq2pPd(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = Ctq2pPd(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = Ctq2pPd(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = Ctq2pPd(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = Ctq2pPd(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/srctq26.F b/PDF/spdf/srctq26.F deleted file mode 100644 index 83587095659..00000000000 --- a/PDF/spdf/srctq26.F +++ /dev/null @@ -1,60 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:57 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:48 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE SRCTQ26(DX,DSCAL, - + DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL) -C -C ******************************************************************** -C * * -C * Interface to CTEQset of structure functions * -C * * -C * Author: H. Plothow-Besch (CERN-PPE) * -C * * -C ******************************************************************** -C -C :::::::::::: Structure functions from Morfin and Wu-Ki Tung -C :::::::::::: Lambda = 0.235 GeV (DIS) -C -#include "pdf/expdp.inc" - + DX,DSCAL,DUPV,DDNV,DSEA,DSEAD,DSTR,DCHM,DBOT,DTOP,DGL - REAL X, Q - PARAMETER (ISET=6) -#include "pdf/w50511.inc" -C - X = DX - Q = DSCAL -C -C generate the individual structure fcn calls -C - UPV = Ctq2pPd(ISET, 1,X,Q,IFL) - DUPV = UPV - DNV = Ctq2pPd(ISET, 2,X,Q,IFL) - DDNV = DNV - SEAU = Ctq2pPd(ISET,-1,X,Q,IFL) - DSEA = SEAU - SEAD = Ctq2pPd(ISET,-2,X,Q,IFL) - DSEAD = SEAD - STR = Ctq2pPd(ISET,-3,X,Q,IFL) - DSTR = STR - CHM = Ctq2pPd(ISET,-4,X,Q,IFL) - DCHM = CHM - BOT = Ctq2pPd(ISET,-5,X,Q,IFL) - DBOT = BOT - TOP = 0. - IF (DSCAL.GT.TMAS) TOP = Ctq2pPd(ISET,-6,X,Q,IFL) - DTOP = TOP - GL = Ctq2pPd(ISET, 0,X,Q,IFL) - DGL = GL -C - RETURN - END diff --git a/PDF/spdf/strbebc.F b/PDF/spdf/strbebc.F deleted file mode 100644 index 772e2bd52ad..00000000000 --- a/PDF/spdf/strbebc.F +++ /dev/null @@ -1,142 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:32:16 cernlib -* Version 7.04 -* -* Revision 1.2 1996/10/28 15:13:56 pdflib -* PDFLIB new version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:48 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE STRBEBC(DX,DQ,DUPV,DDNV,DSEA,DSTR,DGL) -C SUBROUTINE STRBEBC(DX,DQ,DUDV,DUDS,DSEA,DSTR,DGL) -********************************************************************* -* * -* P.Gorbunov /ITEP * -* A.Maslennikov/ITEP May 1990 * -* coded after Z. Phys. C 36 (1987) 1, BEBC WA59 * -* * -* Original publication: * -* A.J. Buras and K.J.F. Gaemers, Nucl. Phys. B132 (1978) 249 * -* * -* * -* adapted and corrected by H.Plothow-Besch/PPE April 1991 * -* * -********************************************************************* -C. -#include "pdf/expdp.inc" - + DX,DQ,DUPV,DDNV,DSEA,DSTR,DGL - REAL X, Q, UPV, DNV, SEA, STR, GL, UDVAL, UDSEA - PARAMETER (BVQ02=0.77, BSQ02=5.3, BGQ02=4., Q02=0.5) - PARAMETER (EPS=0.5) -C - EXTERNAL VALDIS,V3 -C - COMMON/W5051I1/ - + GPSI(2:3),GAA(2:3),GPSIA(2:3),GAPSI(2:3),GMINUS(2:3), - 1 AL(2:3),BET(2:3),GPLUS(2:3), - 2 VNQ02(2:3),SNQ02(2:3),GNQ02(2:3) -C - PARAMETER (IX=112,IQ=40,NARG=2,KFUN=2) - REAL ARG(NARG),ENT(IX+IQ),XQDUM(IX,IQ,KFUN),Q2P(IQ),XCO(IX) - INTEGER NENT(NARG) -C - COMMON/W5051I2/ Q2L - DATA ZERO/0./,HALF/0.5/,ONE/1./,TWO/2./,THRE/3./ - DATA INIT/0/ -C - DATA XCO / - +0.5000E-04,0.5545E-04,0.6150E-04,0.6820E-04,0.7564E-04,0.8389E-04, - +0.9303E-04,0.1032E-03,0.1144E-03,0.1269E-03,0.1407E-03,0.1561E-03, - +0.1731E-03,0.1920E-03,0.2129E-03,0.2361E-03,0.2619E-03,0.2904E-03, - +0.3221E-03,0.3572E-03,0.3961E-03,0.4393E-03,0.4872E-03,0.5404E-03, - +0.5993E-03,0.6646E-03,0.7371E-03,0.8174E-03,0.9066E-03,0.1005E-02, - +0.1115E-02,0.1237E-02,0.1371E-02,0.1521E-02,0.1687E-02,0.1871E-02, - +0.2075E-02,0.2301E-02,0.2552E-02,0.2830E-02,0.3139E-02,0.3481E-02, - +0.3860E-02,0.4281E-02,0.4748E-02,0.5266E-02,0.5840E-02,0.6476E-02, - +0.7182E-02,0.7966E-02,0.8834E-02,0.9797E-02,0.1087E-01,0.1205E-01, - +0.1336E-01,0.1482E-01,0.1644E-01,0.1823E-01,0.2022E-01,0.2242E-01, - +0.2487E-01,0.2758E-01,0.3058E-01,0.3392E-01,0.3762E-01,0.4172E-01, - +0.4627E-01,0.5131E-01,0.5690E-01,0.6311E-01,0.6999E-01,0.7762E-01, - +0.8608E-01,0.9547E-01,0.1059E+00,0.1174E+00,0.1302E+00,0.1444E+00, - +0.1602E+00,0.1776E+00,0.1970E+00,0.2185E+00,0.2423E+00,0.2687E+00, - +0.2980E+00,0.3305E+00,0.3666E+00,0.4065E+00,0.4508E+00,0.5000E+00, - +0.5321E+00,0.5643E+00,0.5964E+00,0.6286E+00,0.6607E+00,0.6929E+00, - +0.7250E+00,0.7571E+00,0.7893E+00,0.8214E+00,0.8536E+00,0.8857E+00, - +0.9,0.91,0.92,0.93,0.94,0.95,0.96,0.97,0.98,0.99/ -C - SAVE NENT, ENT, XQDUM -C - IF(INIT.EQ.0) THEN -C--------- initialize Buras-Gaemers parametrization -C BSMALL=(33.-8.)/3. -C... in Buras-Gaemers paper (Nucl.Phys.132 (1978) 249) this is like: - BSMALL=(33.-8.)/4. - S=0. - DO N=2,3 - S=S+1./N - GPSI (N)=8./6./BSMALL* (1.-2./N/(N+1)+4.*S) - GAA (N)=3./BSMALL* (1./3.-4./N/(N-1)-4./(N+1)/(N+2) + - 1 4.*S) + 8./3./BSMALL - GPSIA (N)=2./BSMALL* (8./(N+2)+16./N/(N+1)/(N+2)) - GAPSI (N)=4./3./BSMALL* (1./(N+1)+2./N/(N-1)) - GMINUS(N)=0.5*(GPSI(N)+GAA(N) - - 1 SQRT((GPSI(N)-GAA(N))**2+4.*GPSIA(N)*GAPSI(N))) - GPLUS (N)=0.5*(GPSI(N)+GAA(N) + - 1 SQRT((GPSI(N)-GAA(N))**2+4.*GPSIA(N)*GAPSI(N))) - AL (N)=GPSIA(N)*GAPSI(N)/ - 1 (GPSIA(N)*GAPSI(N)+(GMINUS(N)-GPSI(N))**2) - BET (N)=0.5*AL(N)*(GPSI(N)-GMINUS(N))/GAPSI(N) - ENDDO - - Q2L =Q02 -C - VNQ02(2)= GAUSS(VALDIS,ZERO,ONE,EPS) - VNQ02(3)= GAUSS(V3 ,ZERO,ONE,EPS) - SNQ02(2)=VNQ02(2)*(ONE-BVQ02)/BVQ02 - SNQ02(3)=SNQ02(2)/(BSQ02+TWO) - GNQ02(2)=ONE-SNQ02(2)-VNQ02(2) - GNQ02(3)=GNQ02(2)/(BGQ02+TWO) - -*--------- initialize interpolation tables - DO I=1,IQ - Q2L=I-HALF - ENT(IX+I)=LOG10(Q2L) - DO J=1,IX - ENT(J)=LOG10(XCO(J)) - XX = XCO(J) - XQDUM(J,I,1)=VALDIS(XX) - XQDUM(J,I,2)=SEADIS(XX) - ENDDO - ENDDO - NENT(1)=IX - NENT(2)=IQ - - INIT = 1 - ENDIF - X = DX - Q = DQ - Q2IN = Q*Q - ARG(1)= LOG10(X) - ARG(2)= LOG10( MAX( Q02,Q2IN)) - UDVAL = MAX(ZERO,FINT(NARG,ARG,NENT,ENT,XQDUM(1,1,1))) - UPV = UDVAL*TWO/THRE - DNV = UPV/TWO - UDSEA = MAX(ZERO,FINT(NARG,ARG,NENT,ENT,XQDUM(1,1,2))) / - + (TWO+HALF) - SEA = UDSEA*HALF - STR = SEA*HALF - GL = 0. -C - DUPV = UPV - DDNV = DNV - DSEA = SEA - DSTR = STR - DGL = GL - RETURN - END diff --git a/PDF/spdf/strbep.F b/PDF/spdf/strbep.F deleted file mode 100644 index 370f27d28bc..00000000000 --- a/PDF/spdf/strbep.F +++ /dev/null @@ -1,36 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:58 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:49 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C - SUBROUTINE STRBEP(DX,DQ,DUPV,DDNV,DSEA,DSTR,DGL) -C....................................................................... -C. -C. HIGH ENERGY STRUCTURE FUNCTIONS -C. -C :::::::::::: Baier et al. :::::::::::::::::::::::::::: -C. Z. Phy. C 2 (1979) 265. -C. -C. ( LAMBDA = 470 MEV) -C....................................................................... -#include "pdf/impdp.inc" -C - QQ = DQ*DQ - CALL BXF3 (DX,QQ,XF3) - CALL BXQBAR (DX,QQ,XQBAR) - CALL BXGLUE (DX,QQ,XGL) - DUPV=2.D0/3.D0*XF3 - DDNV=DUPV/2.D0 - DSEA=XQBAR/6.D0 - DSTR=DSEA - DGL =XGL - RETURN - END diff --git a/PDF/spdf/strcbp.F b/PDF/spdf/strcbp.F deleted file mode 100644 index 4730f99abdd..00000000000 --- a/PDF/spdf/strcbp.F +++ /dev/null @@ -1,904 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:30:59 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:49 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE STRCBP(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C :::::::::::: MARTIN ROBERTS STIRLING :::::SOFT GLUE::::228 MEV::: -#include "pdf/impdp.inc" - PARAMETER(NX=42) - PARAMETER(NTENTH=21) - DIMENSION F(6,NX,19),G(6),XX(NX),N0(6) - DATA ((F(I,1,K),I=1,6),K=1,19)/ - + 0.01444 ,0.00899 ,4.02455 ,0.23556 ,0.02527 ,0.00000 - +,0.01569 ,0.00972 ,11.08499 ,0.33533 ,0.12492 ,0.00000 - +,0.01685 ,0.01040 ,19.11145 ,0.46687 ,0.25633 ,0.00000 - +,0.01794 ,0.01104 ,27.77417 ,0.62595 ,0.41527 ,0.00000 - +,0.01896 ,0.01164 ,36.61528 ,0.80214 ,0.59625 ,0.01477 - +,0.01994 ,0.01221 ,45.69736 ,0.96571 ,0.79693 ,0.12657 - +,0.02087 ,0.01276 ,54.92906 ,1.12005 ,1.01480 ,0.31759 - +,0.02177 ,0.01328 ,64.24933 ,1.28915 ,1.24751 ,0.50884 - +,0.02264 ,0.01378 ,73.60976 ,1.46702 ,1.49282 ,0.71159 - +,0.02348 ,0.01427 ,82.95361 ,1.65274 ,1.74845 ,0.92177 - +,0.02429 ,0.01474 ,92.14075 ,1.84305 ,2.01020 ,1.13651 - +,0.02508 ,0.01520,101.30438 ,2.03925 ,2.27982 ,1.35721 - +,0.02584 ,0.01564,110.45287 ,2.24108 ,2.55700 ,1.58363 - +,0.02658 ,0.01607,119.38998 ,2.44444 ,2.83612 ,1.81134 - +,0.02731 ,0.01649,128.22977 ,2.65080 ,3.11923 ,2.04199 - +,0.02801 ,0.01690,137.03922 ,2.86123 ,3.40779 ,2.27678 - +,0.02870 ,0.01729,145.55078 ,3.06975 ,3.69366 ,2.50920 - +,0.02937 ,0.01768,154.11171 ,3.28332 ,3.98634 ,2.74690 - +,0.03003 ,0.01806,162.33972 ,3.49339 ,4.27417 ,2.98054/ - DATA ((F(I,2,K),I=1,6),K=1,19)/ - + 0.02102 ,0.01294 ,3.79297 ,0.23651 ,0.02301 ,0.00000 - +,0.02274 ,0.01394 ,9.38434 ,0.32422 ,0.11070 ,0.00000 - +,0.02433 ,0.01486 ,15.39411 ,0.43486 ,0.22131 ,0.00000 - +,0.02581 ,0.01572 ,21.65680 ,0.56393 ,0.35034 ,0.00000 - +,0.02720 ,0.01652 ,27.88220 ,0.70278 ,0.49300 ,0.01154 - +,0.02852 ,0.01728 ,34.13873 ,0.82852 ,0.64730 ,0.09732 - +,0.02978 ,0.01800 ,40.37834 ,0.94438 ,0.81129 ,0.24185 - +,0.03098 ,0.01869 ,46.57191 ,1.06909 ,0.98324 ,0.38366 - +,0.03214 ,0.01936 ,52.69756 ,1.19811 ,1.16155 ,0.53165 - +,0.03325 ,0.02000 ,58.72679 ,1.33087 ,1.34467 ,0.68284 - +,0.03432 ,0.02061 ,64.57495 ,1.46515 ,1.52974 ,0.83530 - +,0.03536 ,0.02120 ,70.33940 ,1.60193 ,1.71810 ,0.99012 - +,0.03637 ,0.02177 ,76.03160 ,1.74111 ,1.90961 ,1.14721 - +,0.03734 ,0.02233 ,81.52925 ,1.87993 ,2.10052 ,1.30359 - +,0.03829 ,0.02287 ,86.91275 ,2.01947 ,2.29234 ,1.46050 - +,0.03921 ,0.02339 ,92.23016 ,2.16053 ,2.48615 ,1.61882 - +,0.04010 ,0.02390 ,97.31372 ,2.29914 ,2.67654 ,1.77423 - +,0.04098 ,0.02439,102.39018 ,2.44004 ,2.86999 ,1.93195 - +,0.04182 ,0.02487,107.21939 ,2.57758 ,3.05879 ,2.08580/ - DATA ((F(I,3,K),I=1,6),K=1,19)/ - + 0.03058 ,0.01863 ,3.57378 ,0.23671 ,0.02069 ,0.00000 - +,0.03295 ,0.01999 ,7.94337 ,0.31271 ,0.09680 ,0.00000 - +,0.03512 ,0.02123 ,12.39642 ,0.40441 ,0.18861 ,0.00000 - +,0.03713 ,0.02238 ,16.87996 ,0.50762 ,0.29194 ,0.00000 - +,0.03901 ,0.02345 ,21.22090 ,0.61549 ,0.40288 ,0.00890 - +,0.04078 ,0.02445 ,25.48773 ,0.71081 ,0.51997 ,0.07391 - +,0.04246 ,0.02540 ,29.66095 ,0.79655 ,0.64184 ,0.18196 - +,0.04406 ,0.02631 ,33.73145 ,0.88726 ,0.76729 ,0.28589 - +,0.04560 ,0.02717 ,37.69373 ,0.97956 ,0.89529 ,0.39267 - +,0.04707 ,0.02800 ,41.53676 ,1.07319 ,1.02485 ,0.50018 - +,0.04848 ,0.02880 ,45.21126 ,1.16665 ,1.15410 ,0.60722 - +,0.04984 ,0.02956 ,48.78828 ,1.26074 ,1.28408 ,0.71461 - +,0.05115 ,0.03030 ,52.28018 ,1.35542 ,1.41478 ,0.82237 - +,0.05242 ,0.03101 ,55.61154 ,1.44889 ,1.54375 ,0.92857 - +,0.05365 ,0.03170 ,58.83902 ,1.54197 ,1.67211 ,1.03411 - +,0.05484 ,0.03236 ,61.99710 ,1.63524 ,1.80066 ,1.13966 - +,0.05599 ,0.03300 ,64.98114 ,1.72610 ,1.92587 ,1.24240 - +,0.05712 ,0.03363 ,67.93896 ,1.81777 ,2.05212 ,1.34585 - +,0.05821 ,0.03424 ,70.72050 ,1.90655 ,2.17438 ,1.44600/ - DATA ((F(I,4,K),I=1,6),K=1,19)/ - + 0.03808 ,0.02306 ,3.45071 ,0.23635 ,0.01930 ,0.00000 - +,0.04092 ,0.02467 ,7.20441 ,0.30566 ,0.08884 ,0.00000 - +,0.04352 ,0.02615 ,10.91881 ,0.38711 ,0.17052 ,0.00000 - +,0.04593 ,0.02751 ,14.58538 ,0.47692 ,0.26054 ,0.00000 - +,0.04816 ,0.02876 ,18.08087 ,0.56922 ,0.35559 ,0.00759 - +,0.05025 ,0.02994 ,21.47160 ,0.64962 ,0.45450 ,0.06249 - +,0.05224 ,0.03106 ,24.74931 ,0.72093 ,0.55619 ,0.15303 - +,0.05413 ,0.03211 ,27.91264 ,0.79561 ,0.65978 ,0.23912 - +,0.05593 ,0.03312 ,30.96225 ,0.87089 ,0.76447 ,0.32677 - +,0.05765 ,0.03408 ,33.89355 ,0.94661 ,0.86956 ,0.41428 - +,0.05930 ,0.03500 ,36.67148 ,1.02162 ,0.97360 ,0.50076 - +,0.06089 ,0.03589 ,39.35490 ,1.09661 ,1.07749 ,0.58691 - +,0.06242 ,0.03674 ,41.95605 ,1.17158 ,1.18128 ,0.67281 - +,0.06390 ,0.03755 ,44.41843 ,1.24516 ,1.28309 ,0.75696 - +,0.06532 ,0.03834 ,46.78818 ,1.31801 ,1.38385 ,0.84012 - +,0.06670 ,0.03911 ,49.09354 ,1.39063 ,1.48424 ,0.92285 - +,0.06803 ,0.03984 ,51.25531 ,1.46102 ,1.58152 ,1.00297 - +,0.06933 ,0.04056 ,53.38844 ,1.53173 ,1.67917 ,1.08329 - +,0.07058 ,0.04125 ,55.37946 ,1.59987 ,1.77329 ,1.16068/ - DATA ((F(I,5,K),I=1,6),K=1,19)/ - + 0.04449 ,0.02682 ,3.36545 ,0.23582 ,0.01830 ,0.00000 - +,0.04772 ,0.02865 ,6.72159 ,0.30045 ,0.08326 ,0.00000 - +,0.05067 ,0.03031 ,9.97691 ,0.37500 ,0.15813 ,0.00000 - +,0.05339 ,0.03183 ,13.14601 ,0.45599 ,0.23944 ,0.00000 - +,0.05591 ,0.03325 ,16.13414 ,0.53827 ,0.32427 ,0.00676 - +,0.05827 ,0.03456 ,19.00514 ,0.60921 ,0.41168 ,0.05528 - +,0.06050 ,0.03581 ,21.75699 ,0.67149 ,0.50078 ,0.13487 - +,0.06262 ,0.03698 ,24.39233 ,0.73627 ,0.59087 ,0.20993 - +,0.06463 ,0.03810 ,26.91505 ,0.80112 ,0.68131 ,0.28587 - +,0.06656 ,0.03917 ,29.32381 ,0.86597 ,0.77155 ,0.36124 - +,0.06840 ,0.04019 ,31.59154 ,0.92986 ,0.86041 ,0.43532 - +,0.07017 ,0.04117 ,33.76962 ,0.99341 ,0.94871 ,0.50876 - +,0.07187 ,0.04210 ,35.86992 ,1.05667 ,1.03652 ,0.58165 - +,0.07350 ,0.04300 ,37.84656 ,1.11847 ,1.12228 ,0.65275 - +,0.07508 ,0.04387 ,39.73930 ,1.17942 ,1.20682 ,0.72273 - +,0.07661 ,0.04471 ,41.57269 ,1.23996 ,1.29073 ,0.79209 - +,0.07808 ,0.04551 ,43.28194 ,1.29842 ,1.37174 ,0.85904 - +,0.07951 ,0.04630 ,44.96307 ,1.35695 ,1.45281 ,0.92591 - +,0.08089 ,0.04705 ,46.52278 ,1.41317 ,1.53067 ,0.99014/ - DATA ((F(I,6,K),I=1,6),K=1,19)/ - + 0.05019 ,0.03015 ,3.30038 ,0.23523 ,0.01752 ,0.00000 - +,0.05376 ,0.03216 ,6.36904 ,0.29626 ,0.07898 ,0.00000 - +,0.05701 ,0.03398 ,9.30149 ,0.36565 ,0.14878 ,0.00000 - +,0.06000 ,0.03565 ,12.12589 ,0.44020 ,0.22371 ,0.00000 - +,0.06276 ,0.03719 ,14.76616 ,0.51524 ,0.30119 ,0.00616 - +,0.06535 ,0.03863 ,17.28401 ,0.57942 ,0.38041 ,0.05015 - +,0.06778 ,0.03998 ,19.68117 ,0.63533 ,0.46064 ,0.12200 - +,0.07009 ,0.04126 ,21.96275 ,0.69317 ,0.54128 ,0.18935 - +,0.07229 ,0.04247 ,24.13446 ,0.75077 ,0.62183 ,0.25714 - +,0.07439 ,0.04363 ,26.19702 ,0.80810 ,0.70182 ,0.32412 - +,0.07639 ,0.04473 ,28.12852 ,0.86436 ,0.78027 ,0.38969 - +,0.07831 ,0.04578 ,29.97527 ,0.92009 ,0.85792 ,0.45444 - +,0.08015 ,0.04679 ,31.74844 ,0.97537 ,0.93485 ,0.51847 - +,0.08192 ,0.04776 ,33.40935 ,1.02919 ,1.00975 ,0.58072 - +,0.08363 ,0.04869 ,34.99327 ,1.08211 ,1.08334 ,0.64181 - +,0.08528 ,0.04959 ,36.52209 ,1.13452 ,1.15617 ,0.70218 - +,0.08686 ,0.05045 ,37.94052 ,1.18497 ,1.22629 ,0.76027 - +,0.08841 ,0.05129 ,39.33195 ,1.23537 ,1.29628 ,0.81817 - +,0.08989 ,0.05209 ,40.61653 ,1.28364 ,1.36332 ,0.87362/ - DATA ((F(I,7,K),I=1,6),K=1,19)/ - + 0.07294 ,0.04336 ,3.10304 ,0.23209 ,0.01507 ,0.00000 - +,0.07778 ,0.04603 ,5.38441 ,0.28221 ,0.06598 ,0.00000 - +,0.08214 ,0.04844 ,7.47361 ,0.33664 ,0.12116 ,0.00000 - +,0.08612 ,0.05062 ,9.42047 ,0.39312 ,0.17835 ,0.00000 - +,0.08977 ,0.05262 ,11.19133 ,0.44841 ,0.23585 ,0.00455 - +,0.09316 ,0.05448 ,12.83961 ,0.49452 ,0.29328 ,0.03652 - +,0.09635 ,0.05621 ,14.37465 ,0.53369 ,0.35027 ,0.08809 - +,0.09935 ,0.05784 ,15.80634 ,0.57354 ,0.40655 ,0.13549 - +,0.10219 ,0.05937 ,17.14357 ,0.61260 ,0.46187 ,0.18249 - +,0.10489 ,0.06083 ,18.39125 ,0.65091 ,0.51602 ,0.22826 - +,0.10745 ,0.06221 ,19.53844 ,0.68801 ,0.56844 ,0.27251 - +,0.10989 ,0.06352 ,20.61833 ,0.72432 ,0.61970 ,0.31567 - +,0.11223 ,0.06477 ,21.64040 ,0.75993 ,0.66991 ,0.35788 - +,0.11447 ,0.06597 ,22.58189 ,0.79423 ,0.71827 ,0.39849 - +,0.11661 ,0.06711 ,23.46706 ,0.82761 ,0.76532 ,0.43795 - +,0.11868 ,0.06822 ,24.31122 ,0.86036 ,0.81146 ,0.47659 - +,0.12066 ,0.06927 ,25.08073 ,0.89160 ,0.85546 ,0.51344 - +,0.12258 ,0.07029 ,25.82898 ,0.92255 ,0.89904 ,0.54987 - +,0.12442 ,0.07126 ,26.50706 ,0.95192 ,0.94041 ,0.58446/ - DATA ((F(I,8,K),I=1,6),K=1,19)/ - + 0.10589 ,0.06227 ,2.90973 ,0.22638 ,0.01261 ,0.00000 - +,0.11232 ,0.06576 ,4.54494 ,0.26598 ,0.05355 ,0.00000 - +,0.11806 ,0.06886 ,5.98824 ,0.30702 ,0.09583 ,0.00000 - +,0.12326 ,0.07166 ,7.28878 ,0.34816 ,0.13815 ,0.00000 - +,0.12799 ,0.07419 ,8.43743 ,0.38735 ,0.17954 ,0.00327 - +,0.13235 ,0.07652 ,9.47828 ,0.41914 ,0.21993 ,0.02588 - +,0.13642 ,0.07868 ,10.42376 ,0.44540 ,0.25921 ,0.06192 - +,0.14023 ,0.08069 ,11.28520 ,0.47169 ,0.29730 ,0.09441 - +,0.14381 ,0.08258 ,12.07229 ,0.49703 ,0.33415 ,0.12612 - +,0.14718 ,0.08436 ,12.79120 ,0.52153 ,0.36970 ,0.15658 - +,0.15037 ,0.08603 ,13.43755 ,0.54491 ,0.40364 ,0.18562 - +,0.15339 ,0.08761 ,14.03450 ,0.56750 ,0.43640 ,0.21361 - +,0.15628 ,0.08911 ,14.58967 ,0.58939 ,0.46813 ,0.24066 - +,0.15902 ,0.09053 ,15.09001 ,0.61023 ,0.49833 ,0.26641 - +,0.16163 ,0.09189 ,15.55197 ,0.63028 ,0.52741 ,0.29116 - +,0.16415 ,0.09319 ,15.98585 ,0.64977 ,0.55565 ,0.31517 - +,0.16654 ,0.09442 ,16.37167 ,0.66814 ,0.58230 ,0.33784 - +,0.16885 ,0.09561 ,16.74289 ,0.68620 ,0.60847 ,0.36006 - +,0.17105 ,0.09674 ,17.07021 ,0.70314 ,0.63308 ,0.38097/ - DATA ((F(I,9,K),I=1,6),K=1,19)/ - + 0.13156 ,0.07687 ,2.79607 ,0.22142 ,0.01119 ,0.00000 - +,0.13905 ,0.08088 ,4.11064 ,0.25511 ,0.04665 ,0.00000 - +,0.14569 ,0.08442 ,5.24809 ,0.28905 ,0.08222 ,0.00000 - +,0.15167 ,0.08758 ,6.25171 ,0.32239 ,0.11709 ,0.00000 - +,0.15708 ,0.09043 ,7.12113 ,0.35363 ,0.15065 ,0.00266 - +,0.16205 ,0.09303 ,7.89487 ,0.37850 ,0.18293 ,0.02083 - +,0.16665 ,0.09543 ,8.58581 ,0.39864 ,0.21395 ,0.04960 - +,0.17094 ,0.09766 ,9.20511 ,0.41863 ,0.24371 ,0.07523 - +,0.17495 ,0.09973 ,9.76218 ,0.43769 ,0.27221 ,0.10002 - +,0.17872 ,0.10167 ,10.26320 ,0.45594 ,0.29945 ,0.12361 - +,0.18227 ,0.10349 ,10.70609 ,0.47320 ,0.32524 ,0.14593 - +,0.18562 ,0.10520 ,11.10936 ,0.48973 ,0.34994 ,0.16727 - +,0.18880 ,0.10682 ,11.47946 ,0.50563 ,0.37368 ,0.18774 - +,0.19181 ,0.10835 ,11.80725 ,0.52064 ,0.39611 ,0.20709 - +,0.19468 ,0.10980 ,12.10545 ,0.53498 ,0.41756 ,0.22558 - +,0.19742 ,0.11118 ,12.38223 ,0.54882 ,0.43826 ,0.24340 - +,0.20002 ,0.11249 ,12.62300 ,0.56176 ,0.45766 ,0.26012 - +,0.20253 ,0.11374 ,12.85285 ,0.57442 ,0.47661 ,0.27642 - +,0.20491 ,0.11493 ,13.05039 ,0.58619 ,0.49430 ,0.29166/ - DATA ((F(I,10,K),I=1,6),K=1,19)/ - + 0.15335 ,0.08921 ,2.71533 ,0.21718 ,0.01023 ,0.00000 - +,0.16160 ,0.09357 ,3.82752 ,0.24691 ,0.04211 ,0.00000 - +,0.16888 ,0.09739 ,4.77342 ,0.27626 ,0.07342 ,0.00000 - +,0.17539 ,0.10078 ,5.59377 ,0.30465 ,0.10364 ,0.00000 - +,0.18126 ,0.10382 ,6.29307 ,0.33089 ,0.13235 ,0.00228 - +,0.18661 ,0.10658 ,6.90616 ,0.35146 ,0.15968 ,0.01774 - +,0.19156 ,0.10912 ,7.44576 ,0.36784 ,0.18569 ,0.04208 - +,0.19615 ,0.11146 ,7.92272 ,0.38396 ,0.21042 ,0.06357 - +,0.20043 ,0.11363 ,8.34599 ,0.39920 ,0.23392 ,0.08420 - +,0.20443 ,0.11565 ,8.72145 ,0.41368 ,0.25622 ,0.10369 - +,0.20818 ,0.11753 ,9.04832 ,0.42726 ,0.27717 ,0.12201 - +,0.21171 ,0.11930 ,9.34207 ,0.44019 ,0.29712 ,0.13942 - +,0.21505 ,0.12096 ,9.60836 ,0.45253 ,0.31617 ,0.15603 - +,0.21820 ,0.12252 ,9.84023 ,0.46410 ,0.33408 ,0.17165 - +,0.22119 ,0.12400 ,10.04822 ,0.47508 ,0.35109 ,0.18648 - +,0.22404 ,0.12541 ,10.23903 ,0.48563 ,0.36744 ,0.20071 - +,0.22674 ,0.12673 ,10.40109 ,0.49541 ,0.38266 ,0.21399 - +,0.22933 ,0.12799 ,10.55464 ,0.50493 ,0.39747 ,0.22689 - +,0.23178 ,0.12918 ,10.68291 ,0.51372 ,0.41122 ,0.23889/ - DATA ((F(I,11,K),I=1,6),K=1,19)/ - + 0.17262 ,0.10008 ,2.65192 ,0.21341 ,0.00952 ,0.00000 - +,0.18143 ,0.10468 ,3.62053 ,0.24023 ,0.03881 ,0.00000 - +,0.18916 ,0.10868 ,4.43046 ,0.26627 ,0.06712 ,0.00000 - +,0.19604 ,0.11222 ,5.12214 ,0.29114 ,0.09409 ,0.00000 - +,0.20221 ,0.11536 ,5.70328 ,0.31386 ,0.11943 ,0.00201 - +,0.20782 ,0.11821 ,6.20594 ,0.33140 ,0.14332 ,0.01559 - +,0.21298 ,0.12081 ,6.64253 ,0.34513 ,0.16587 ,0.03687 - +,0.21775 ,0.12319 ,7.02347 ,0.35857 ,0.18715 ,0.05551 - +,0.22218 ,0.12540 ,7.35721 ,0.37117 ,0.20723 ,0.07329 - +,0.22632 ,0.12745 ,7.64940 ,0.38305 ,0.22616 ,0.08998 - +,0.23017 ,0.12934 ,7.89990 ,0.39411 ,0.24384 ,0.10558 - +,0.23378 ,0.13111 ,8.12212 ,0.40456 ,0.26057 ,0.12033 - +,0.23720 ,0.13278 ,8.32110 ,0.41449 ,0.27647 ,0.13433 - +,0.24040 ,0.13433 ,8.49126 ,0.42372 ,0.29133 ,0.14743 - +,0.24344 ,0.13579 ,8.64157 ,0.43244 ,0.30538 ,0.15982 - +,0.24633 ,0.13718 ,8.77773 ,0.44077 ,0.31882 ,0.17165 - +,0.24905 ,0.13848 ,8.89028 ,0.44842 ,0.33127 ,0.18264 - +,0.25166 ,0.13972 ,8.99608 ,0.45586 ,0.34334 ,0.19328 - +,0.25411 ,0.14088 ,9.08132 ,0.46266 ,0.35448 ,0.20313/ - DATA ((F(I,12,K),I=1,6),K=1,19)/ - + 0.24815 ,0.14220 ,2.42838 ,0.19623 ,0.00732 ,0.00000 - +,0.25831 ,0.14718 ,3.00860 ,0.21418 ,0.02898 ,0.00000 - +,0.26703 ,0.15139 ,3.46539 ,0.23067 ,0.04879 ,0.00000 - +,0.27464 ,0.15501 ,3.83310 ,0.24571 ,0.06685 ,0.00000 - +,0.28133 ,0.15815 ,4.12414 ,0.25887 ,0.08321 ,0.00131 - +,0.28729 ,0.16093 ,4.36170 ,0.26835 ,0.09815 ,0.00999 - +,0.29268 ,0.16340 ,4.55618 ,0.27519 ,0.11185 ,0.02337 - +,0.29759 ,0.16563 ,4.71562 ,0.28173 ,0.12444 ,0.03479 - +,0.30207 ,0.16764 ,4.84657 ,0.28766 ,0.13603 ,0.04543 - +,0.30618 ,0.16946 ,4.95332 ,0.29307 ,0.14670 ,0.05523 - +,0.30994 ,0.17110 ,5.03682 ,0.29793 ,0.15646 ,0.06420 - +,0.31343 ,0.17261 ,5.10508 ,0.30239 ,0.16551 ,0.07253 - +,0.31668 ,0.17400 ,5.16131 ,0.30651 ,0.17394 ,0.08030 - +,0.31966 ,0.17527 ,5.20279 ,0.31020 ,0.18166 ,0.08745 - +,0.32246 ,0.17643 ,5.23461 ,0.31358 ,0.18883 ,0.09410 - +,0.32509 ,0.17752 ,5.26001 ,0.31674 ,0.19558 ,0.10036 - +,0.32751 ,0.17850 ,5.27418 ,0.31950 ,0.20170 ,0.10607 - +,0.32983 ,0.17943 ,5.28605 ,0.32215 ,0.20756 ,0.11154 - +,0.33195 ,0.18027 ,5.28837 ,0.32444 ,0.21286 ,0.11651/ - DATA ((F(I,13,K),I=1,6),K=1,19)/ - + 0.35195 ,0.19835 ,2.13358 ,0.16733 ,0.00521 ,0.00000 - +,0.36159 ,0.20227 ,2.40907 ,0.17709 ,0.01997 ,0.00000 - +,0.36950 ,0.20536 ,2.60316 ,0.18538 ,0.03267 ,0.00000 - +,0.37611 ,0.20785 ,2.74201 ,0.19246 ,0.04367 ,0.00000 - +,0.38168 ,0.20983 ,2.83714 ,0.19817 ,0.05319 ,0.00078 - +,0.38644 ,0.21146 ,2.90338 ,0.20160 ,0.06155 ,0.00583 - +,0.39057 ,0.21280 ,2.94758 ,0.20345 ,0.06893 ,0.01346 - +,0.39417 ,0.21390 ,2.97496 ,0.20513 ,0.07548 ,0.01976 - +,0.39733 ,0.21480 ,2.98949 ,0.20647 ,0.08132 ,0.02548 - +,0.40010 ,0.21555 ,2.99378 ,0.20756 ,0.08653 ,0.03061 - +,0.40250 ,0.21612 ,2.98855 ,0.20837 ,0.09114 ,0.03518 - +,0.40463 ,0.21659 ,2.97790 ,0.20899 ,0.09529 ,0.03933 - +,0.40653 ,0.21696 ,2.96343 ,0.20948 ,0.09905 ,0.04312 - +,0.40818 ,0.21723 ,2.94387 ,0.20977 ,0.10239 ,0.04652 - +,0.40964 ,0.21743 ,2.92166 ,0.20993 ,0.10541 ,0.04962 - +,0.41096 ,0.21757 ,2.89827 ,0.21002 ,0.10819 ,0.05248 - +,0.41207 ,0.21763 ,2.87136 ,0.20994 ,0.11061 ,0.05503 - +,0.41311 ,0.21767 ,2.84504 ,0.20985 ,0.11289 ,0.05743 - +,0.41396 ,0.21762 ,2.81591 ,0.20960 ,0.11486 ,0.05956/ - DATA ((F(I,14,K),I=1,6),K=1,19)/ - + 0.42610 ,0.23607 ,1.90412 ,0.14283 ,0.00401 ,0.00000 - +,0.43339 ,0.23799 ,2.03907 ,0.14835 ,0.01505 ,0.00000 - +,0.43900 ,0.23918 ,2.11914 ,0.15268 ,0.02418 ,0.00000 - +,0.44336 ,0.23992 ,2.16425 ,0.15607 ,0.03182 ,0.00000 - +,0.44673 ,0.24024 ,2.18333 ,0.15850 ,0.03822 ,0.00053 - +,0.44938 ,0.24031 ,2.18641 ,0.15939 ,0.04366 ,0.00395 - +,0.45146 ,0.24017 ,2.17803 ,0.15925 ,0.04834 ,0.00904 - +,0.45307 ,0.23987 ,2.16153 ,0.15904 ,0.05240 ,0.01316 - +,0.45430 ,0.23944 ,2.13938 ,0.15867 ,0.05591 ,0.01683 - +,0.45520 ,0.23892 ,2.11315 ,0.15818 ,0.05898 ,0.02005 - +,0.45578 ,0.23829 ,2.08317 ,0.15755 ,0.06160 ,0.02287 - +,0.45616 ,0.23760 ,2.05187 ,0.15686 ,0.06391 ,0.02539 - +,0.45638 ,0.23687 ,2.02005 ,0.15612 ,0.06596 ,0.02764 - +,0.45638 ,0.23609 ,1.98678 ,0.15531 ,0.06772 ,0.02964 - +,0.45626 ,0.23527 ,1.95347 ,0.15445 ,0.06927 ,0.03142 - +,0.45605 ,0.23445 ,1.92084 ,0.15359 ,0.07067 ,0.03304 - +,0.45567 ,0.23357 ,1.88745 ,0.15266 ,0.07183 ,0.03446 - +,0.45527 ,0.23271 ,1.85559 ,0.15176 ,0.07291 ,0.03578 - +,0.45471 ,0.23181 ,1.82319 ,0.15079 ,0.07380 ,0.03692/ - DATA ((F(I,15,K),I=1,6),K=1,19)/ - + 0.48256 ,0.26222 ,1.70710 ,0.12174 ,0.00318 ,0.00000 - +,0.48666 ,0.26175 ,1.76097 ,0.12471 ,0.01178 ,0.00000 - +,0.48927 ,0.26081 ,1.77857 ,0.12674 ,0.01867 ,0.00000 - +,0.49084 ,0.25959 ,1.77480 ,0.12810 ,0.02426 ,-0.00001 - +,0.49158 ,0.25815 ,1.75620 ,0.12877 ,0.02882 ,0.00038 - +,0.49176 ,0.25659 ,1.72958 ,0.12838 ,0.03262 ,0.00285 - +,0.49151 ,0.25494 ,1.69783 ,0.12729 ,0.03580 ,0.00649 - +,0.49090 ,0.25324 ,1.66296 ,0.12621 ,0.03848 ,0.00937 - +,0.49003 ,0.25150 ,1.62651 ,0.12508 ,0.04076 ,0.01190 - +,0.48895 ,0.24973 ,1.58929 ,0.12391 ,0.04270 ,0.01409 - +,0.48763 ,0.24795 ,1.55135 ,0.12269 ,0.04431 ,0.01597 - +,0.48620 ,0.24618 ,1.51414 ,0.12147 ,0.04569 ,0.01762 - +,0.48470 ,0.24443 ,1.47803 ,0.12025 ,0.04689 ,0.01909 - +,0.48305 ,0.24268 ,1.44230 ,0.11902 ,0.04789 ,0.02036 - +,0.48134 ,0.24095 ,1.40769 ,0.11781 ,0.04874 ,0.02149 - +,0.47962 ,0.23927 ,1.37458 ,0.11662 ,0.04948 ,0.02250 - +,0.47778 ,0.23756 ,1.34194 ,0.11541 ,0.05007 ,0.02337 - +,0.47599 ,0.23593 ,1.31113 ,0.11425 ,0.05061 ,0.02416 - +,0.47409 ,0.23428 ,1.28078 ,0.11307 ,0.05102 ,0.02483/ - DATA ((F(I,16,K),I=1,6),K=1,19)/ - + 0.52609 ,0.27968 ,1.53244 ,0.10351 ,0.00257 ,0.00000 - +,0.52652 ,0.27673 ,1.53529 ,0.10485 ,0.00941 ,0.00000 - +,0.52579 ,0.27362 ,1.51554 ,0.10548 ,0.01473 ,0.00000 - +,0.52433 ,0.27046 ,1.48407 ,0.10565 ,0.01896 ,-0.00001 - +,0.52227 ,0.26730 ,1.44536 ,0.10533 ,0.02232 ,0.00029 - +,0.51988 ,0.26418 ,1.40390 ,0.10427 ,0.02505 ,0.00213 - +,0.51723 ,0.26111 ,1.36135 ,0.10274 ,0.02729 ,0.00482 - +,0.51438 ,0.25810 ,1.31881 ,0.10127 ,0.02914 ,0.00692 - +,0.51142 ,0.25517 ,1.27710 ,0.09980 ,0.03067 ,0.00874 - +,0.50837 ,0.25230 ,1.23658 ,0.09836 ,0.03195 ,0.01029 - +,0.50519 ,0.24949 ,1.19705 ,0.09692 ,0.03297 ,0.01160 - +,0.50201 ,0.24676 ,1.15936 ,0.09551 ,0.03383 ,0.01274 - +,0.49886 ,0.24412 ,1.12361 ,0.09414 ,0.03455 ,0.01374 - +,0.49565 ,0.24154 ,1.08915 ,0.09279 ,0.03513 ,0.01459 - +,0.49245 ,0.23903 ,1.05640 ,0.09148 ,0.03560 ,0.01534 - +,0.48933 ,0.23662 ,1.02549 ,0.09022 ,0.03600 ,0.01600 - +,0.48615 ,0.23423 ,0.99565 ,0.08896 ,0.03629 ,0.01655 - +,0.48309 ,0.23194 ,0.96770 ,0.08777 ,0.03655 ,0.01705 - +,0.47997 ,0.22968 ,0.94068 ,0.08658 ,0.03671 ,0.01747/ - DATA ((F(I,17,K),I=1,6),K=1,19)/ - + 0.56617 ,0.29189 ,1.33863 ,0.08415 ,0.00201 ,0.00001 - +,0.56168 ,0.28593 ,1.30193 ,0.08424 ,0.00723 ,0.00001 - +,0.55660 ,0.28022 ,1.25503 ,0.08387 ,0.01117 ,0.00001 - +,0.55125 ,0.27483 ,1.20487 ,0.08320 ,0.01422 ,0.00001 - +,0.54568 ,0.26971 ,1.15381 ,0.08225 ,0.01658 ,0.00022 - +,0.54010 ,0.26484 ,1.10429 ,0.08081 ,0.01845 ,0.00154 - +,0.53453 ,0.26020 ,1.05682 ,0.07910 ,0.01994 ,0.00344 - +,0.52899 ,0.25579 ,1.01175 ,0.07748 ,0.02114 ,0.00490 - +,0.52352 ,0.25157 ,0.96926 ,0.07591 ,0.02210 ,0.00615 - +,0.51815 ,0.24754 ,0.92931 ,0.07440 ,0.02288 ,0.00719 - +,0.51283 ,0.24366 ,0.89151 ,0.07293 ,0.02347 ,0.00806 - +,0.50765 ,0.23995 ,0.85625 ,0.07152 ,0.02395 ,0.00881 - +,0.50261 ,0.23641 ,0.82339 ,0.07017 ,0.02434 ,0.00945 - +,0.49764 ,0.23299 ,0.79237 ,0.06886 ,0.02463 ,0.00999 - +,0.49278 ,0.22972 ,0.76335 ,0.06760 ,0.02484 ,0.01045 - +,0.48810 ,0.22659 ,0.73629 ,0.06640 ,0.02501 ,0.01086 - +,0.48344 ,0.22354 ,0.71060 ,0.06522 ,0.02511 ,0.01118 - +,0.47899 ,0.22064 ,0.68672 ,0.06411 ,0.02519 ,0.01148 - +,0.47455 ,0.21780 ,0.66399 ,0.06302 ,0.02520 ,0.01172/ - DATA ((F(I,18,K),I=1,6),K=1,19)/ - + 0.59291 ,0.29541 ,1.16734 ,0.06806 ,0.00158 ,0.00001 - +,0.58343 ,0.28672 ,1.10746 ,0.06746 ,0.00561 ,0.00001 - +,0.57403 ,0.27874 ,1.04619 ,0.06656 ,0.00857 ,0.00001 - +,0.56486 ,0.27142 ,0.98740 ,0.06550 ,0.01081 ,0.00001 - +,0.55595 ,0.26462 ,0.93181 ,0.06428 ,0.01249 ,0.00016 - +,0.54736 ,0.25831 ,0.88041 ,0.06275 ,0.01379 ,0.00112 - +,0.53906 ,0.25242 ,0.83292 ,0.06106 ,0.01481 ,0.00250 - +,0.53104 ,0.24688 ,0.78913 ,0.05948 ,0.01559 ,0.00354 - +,0.52333 ,0.24166 ,0.74886 ,0.05798 ,0.01621 ,0.00441 - +,0.51590 ,0.23672 ,0.71178 ,0.05655 ,0.01669 ,0.00513 - +,0.50866 ,0.23203 ,0.67742 ,0.05519 ,0.01703 ,0.00572 - +,0.50170 ,0.22760 ,0.64582 ,0.05389 ,0.01729 ,0.00622 - +,0.49504 ,0.22341 ,0.61676 ,0.05266 ,0.01749 ,0.00665 - +,0.48857 ,0.21938 ,0.58971 ,0.05147 ,0.01762 ,0.00700 - +,0.48232 ,0.21555 ,0.56470 ,0.05035 ,0.01770 ,0.00730 - +,0.47634 ,0.21192 ,0.54161 ,0.04928 ,0.01775 ,0.00755 - +,0.47045 ,0.20842 ,0.51994 ,0.04824 ,0.01776 ,0.00775 - +,0.46484 ,0.20510 ,0.49994 ,0.04727 ,0.01776 ,0.00793 - +,0.45933 ,0.20188 ,0.48111 ,0.04632 ,0.01771 ,0.00807/ - DATA ((F(I,19,K),I=1,6),K=1,19)/ - + 0.60821 ,0.29194 ,1.01533 ,0.05472 ,0.00125 ,0.00000 - +,0.59387 ,0.28093 ,0.94258 ,0.05377 ,0.00437 ,0.00000 - +,0.58036 ,0.27105 ,0.87468 ,0.05264 ,0.00661 ,0.00000 - +,0.56765 ,0.26218 ,0.81311 ,0.05142 ,0.00827 ,0.00000 - +,0.55566 ,0.25406 ,0.75731 ,0.05014 ,0.00948 ,0.00012 - +,0.54436 ,0.24663 ,0.70729 ,0.04866 ,0.01040 ,0.00083 - +,0.53363 ,0.23977 ,0.66223 ,0.04710 ,0.01109 ,0.00183 - +,0.52344 ,0.23339 ,0.62154 ,0.04566 ,0.01162 ,0.00259 - +,0.51377 ,0.22744 ,0.58478 ,0.04430 ,0.01201 ,0.00321 - +,0.50455 ,0.22187 ,0.55144 ,0.04303 ,0.01229 ,0.00371 - +,0.49570 ,0.21662 ,0.52101 ,0.04181 ,0.01250 ,0.00412 - +,0.48727 ,0.21170 ,0.49337 ,0.04067 ,0.01263 ,0.00447 - +,0.47926 ,0.20707 ,0.46823 ,0.03959 ,0.01273 ,0.00475 - +,0.47156 ,0.20266 ,0.44512 ,0.03857 ,0.01277 ,0.00498 - +,0.46417 ,0.19849 ,0.42391 ,0.03760 ,0.01278 ,0.00517 - +,0.45712 ,0.19455 ,0.40446 ,0.03668 ,0.01278 ,0.00533 - +,0.45028 ,0.19078 ,0.38641 ,0.03580 ,0.01274 ,0.00546 - +,0.44378 ,0.18721 ,0.36985 ,0.03498 ,0.01270 ,0.00556 - +,0.43745 ,0.18378 ,0.35440 ,0.03418 ,0.01262 ,0.00564/ - DATA ((F(I,20,K),I=1,6),K=1,19)/ - + 0.61360 ,0.28295 ,0.88033 ,0.04371 ,0.00099 ,0.00000 - +,0.59473 ,0.27007 ,0.80150 ,0.04262 ,0.00341 ,0.00000 - +,0.57744 ,0.25872 ,0.73182 ,0.04142 ,0.00512 ,0.00000 - +,0.56153 ,0.24866 ,0.67096 ,0.04021 ,0.00636 ,0.00000 - +,0.54680 ,0.23959 ,0.61745 ,0.03897 ,0.00723 ,0.00009 - +,0.53313 ,0.23137 ,0.57056 ,0.03762 ,0.00788 ,0.00062 - +,0.52031 ,0.22385 ,0.52912 ,0.03624 ,0.00836 ,0.00136 - +,0.50829 ,0.21691 ,0.49231 ,0.03497 ,0.00871 ,0.00191 - +,0.49698 ,0.21050 ,0.45952 ,0.03379 ,0.00896 ,0.00235 - +,0.48629 ,0.20453 ,0.43017 ,0.03269 ,0.00912 ,0.00271 - +,0.47613 ,0.19896 ,0.40372 ,0.03164 ,0.00923 ,0.00300 - +,0.46653 ,0.19375 ,0.37992 ,0.03067 ,0.00930 ,0.00323 - +,0.45745 ,0.18889 ,0.35846 ,0.02976 ,0.00933 ,0.00343 - +,0.44879 ,0.18428 ,0.33893 ,0.02889 ,0.00933 ,0.00358 - +,0.44053 ,0.17994 ,0.32115 ,0.02808 ,0.00930 ,0.00370 - +,0.43269 ,0.17587 ,0.30495 ,0.02732 ,0.00927 ,0.00381 - +,0.42512 ,0.17198 ,0.29004 ,0.02659 ,0.00922 ,0.00388 - +,0.41797 ,0.16832 ,0.27643 ,0.02590 ,0.00916 ,0.00395 - +,0.41104 ,0.16481 ,0.26383 ,0.02525 ,0.00908 ,0.00399/ - DATA ((F(I,21,K),I=1,6),K=1,19)/ - + 0.61036 ,0.26974 ,0.76051 ,0.03470 ,0.00076 ,0.00000 - +,0.58740 ,0.25546 ,0.68016 ,0.03359 ,0.00266 ,0.00000 - +,0.56676 ,0.24307 ,0.61182 ,0.03244 ,0.00397 ,0.00000 - +,0.54809 ,0.23219 ,0.55375 ,0.03130 ,0.00488 ,0.00000 - +,0.53100 ,0.22250 ,0.50393 ,0.03017 ,0.00553 ,0.00006 - +,0.51532 ,0.21379 ,0.46104 ,0.02898 ,0.00599 ,0.00046 - +,0.50080 ,0.20589 ,0.42374 ,0.02780 ,0.00632 ,0.00101 - +,0.48729 ,0.19865 ,0.39104 ,0.02671 ,0.00654 ,0.00141 - +,0.47465 ,0.19201 ,0.36229 ,0.02571 ,0.00670 ,0.00173 - +,0.46283 ,0.18587 ,0.33684 ,0.02477 ,0.00680 ,0.00199 - +,0.45169 ,0.18016 ,0.31414 ,0.02390 ,0.00685 ,0.00219 - +,0.44119 ,0.17485 ,0.29391 ,0.02309 ,0.00687 ,0.00235 - +,0.43133 ,0.16992 ,0.27579 ,0.02233 ,0.00687 ,0.00248 - +,0.42196 ,0.16527 ,0.25942 ,0.02162 ,0.00685 ,0.00259 - +,0.41307 ,0.16092 ,0.24464 ,0.02095 ,0.00681 ,0.00267 - +,0.40466 ,0.15685 ,0.23127 ,0.02033 ,0.00676 ,0.00273 - +,0.39662 ,0.15297 ,0.21905 ,0.01973 ,0.00670 ,0.00278 - +,0.38903 ,0.14934 ,0.20793 ,0.01918 ,0.00663 ,0.00282 - +,0.38172 ,0.14587 ,0.19771 ,0.01865 ,0.00656 ,0.00284/ - DATA ((F(I,22,K),I=1,6),K=1,19)/ - + 0.59951 ,0.25324 ,0.65427 ,0.02733 ,0.00061 ,0.00000 - +,0.57299 ,0.23805 ,0.57545 ,0.02628 ,0.00208 ,0.00001 - +,0.54947 ,0.22503 ,0.51043 ,0.02522 ,0.00307 ,0.00000 - +,0.52849 ,0.21371 ,0.45643 ,0.02420 ,0.00376 ,0.00001 - +,0.50950 ,0.20372 ,0.41099 ,0.02321 ,0.00422 ,0.00005 - +,0.49224 ,0.19480 ,0.37249 ,0.02220 ,0.00455 ,0.00035 - +,0.47639 ,0.18677 ,0.33945 ,0.02119 ,0.00477 ,0.00075 - +,0.46175 ,0.17947 ,0.31085 ,0.02029 ,0.00492 ,0.00105 - +,0.44817 ,0.17279 ,0.28596 ,0.01945 ,0.00501 ,0.00128 - +,0.43548 ,0.16667 ,0.26413 ,0.01868 ,0.00507 ,0.00147 - +,0.42363 ,0.16099 ,0.24485 ,0.01796 ,0.00509 ,0.00160 - +,0.41255 ,0.15574 ,0.22781 ,0.01730 ,0.00508 ,0.00171 - +,0.40218 ,0.15088 ,0.21266 ,0.01668 ,0.00506 ,0.00180 - +,0.39236 ,0.14634 ,0.19908 ,0.01610 ,0.00502 ,0.00187 - +,0.38310 ,0.14209 ,0.18689 ,0.01556 ,0.00498 ,0.00192 - +,0.37438 ,0.13811 ,0.17591 ,0.01506 ,0.00494 ,0.00197 - +,0.36606 ,0.13436 ,0.16595 ,0.01458 ,0.00488 ,0.00199 - +,0.35822 ,0.13085 ,0.15693 ,0.01414 ,0.00482 ,0.00202 - +,0.35071 ,0.12752 ,0.14869 ,0.01371 ,0.00475 ,0.00203/ - DATA ((F(I,23,K),I=1,6),K=1,19)/ - + 0.58216 ,0.23452 ,0.56032 ,0.02136 ,0.00048 ,0.00000 - +,0.55264 ,0.21887 ,0.48514 ,0.02042 ,0.00162 ,0.00001 - +,0.52681 ,0.20559 ,0.42463 ,0.01949 ,0.00237 ,0.00000 - +,0.50401 ,0.19415 ,0.37534 ,0.01860 ,0.00288 ,0.00001 - +,0.48356 ,0.18413 ,0.33456 ,0.01776 ,0.00322 ,0.00004 - +,0.46513 ,0.17526 ,0.30050 ,0.01690 ,0.00345 ,0.00026 - +,0.44833 ,0.16731 ,0.27162 ,0.01608 ,0.00360 ,0.00056 - +,0.43291 ,0.16012 ,0.24689 ,0.01533 ,0.00370 ,0.00078 - +,0.41870 ,0.15359 ,0.22558 ,0.01464 ,0.00375 ,0.00095 - +,0.40550 ,0.14763 ,0.20706 ,0.01402 ,0.00378 ,0.00108 - +,0.39323 ,0.14212 ,0.19084 ,0.01344 ,0.00378 ,0.00117 - +,0.38180 ,0.13706 ,0.17660 ,0.01290 ,0.00376 ,0.00125 - +,0.37116 ,0.13239 ,0.16403 ,0.01240 ,0.00373 ,0.00131 - +,0.36113 ,0.12804 ,0.15284 ,0.01194 ,0.00369 ,0.00136 - +,0.35170 ,0.12399 ,0.14286 ,0.01151 ,0.00365 ,0.00139 - +,0.34287 ,0.12021 ,0.13392 ,0.01111 ,0.00361 ,0.00142 - +,0.33446 ,0.11665 ,0.12585 ,0.01073 ,0.00355 ,0.00143 - +,0.32657 ,0.11334 ,0.11858 ,0.01039 ,0.00350 ,0.00145 - +,0.31903 ,0.11020 ,0.11198 ,0.01005 ,0.00345 ,0.00145/ - DATA ((F(I,24,K),I=1,6),K=1,19)/ - + 0.55924 ,0.21434 ,0.47743 ,0.01656 ,0.00038 ,0.00001 - +,0.52733 ,0.19865 ,0.40722 ,0.01573 ,0.00126 ,0.00001 - +,0.49974 ,0.18545 ,0.35192 ,0.01494 ,0.00183 ,0.00001 - +,0.47562 ,0.17417 ,0.30762 ,0.01419 ,0.00221 ,0.00001 - +,0.45417 ,0.16435 ,0.27154 ,0.01348 ,0.00245 ,0.00003 - +,0.43497 ,0.15572 ,0.24175 ,0.01278 ,0.00261 ,0.00020 - +,0.41758 ,0.14804 ,0.21678 ,0.01211 ,0.00271 ,0.00042 - +,0.40171 ,0.14112 ,0.19563 ,0.01150 ,0.00277 ,0.00058 - +,0.38717 ,0.13487 ,0.17756 ,0.01096 ,0.00280 ,0.00070 - +,0.37378 ,0.12919 ,0.16201 ,0.01045 ,0.00281 ,0.00079 - +,0.36133 ,0.12398 ,0.14848 ,0.00999 ,0.00279 ,0.00086 - +,0.34981 ,0.11919 ,0.13669 ,0.00956 ,0.00278 ,0.00092 - +,0.33913 ,0.11479 ,0.12635 ,0.00916 ,0.00275 ,0.00096 - +,0.32908 ,0.11072 ,0.11720 ,0.00880 ,0.00271 ,0.00098 - +,0.31968 ,0.10693 ,0.10908 ,0.00846 ,0.00267 ,0.00101 - +,0.31091 ,0.10342 ,0.10185 ,0.00814 ,0.00263 ,0.00102 - +,0.30260 ,0.10012 ,0.09536 ,0.00785 ,0.00258 ,0.00103 - +,0.29482 ,0.09705 ,0.08953 ,0.00757 ,0.00254 ,0.00104 - +,0.28741 ,0.09415 ,0.08427 ,0.00731 ,0.00249 ,0.00104/ - DATA ((F(I,25,K),I=1,6),K=1,19)/ - + 0.53163 ,0.19347 ,0.40464 ,0.01271 ,0.00029 ,0.00001 - +,0.49801 ,0.17808 ,0.34016 ,0.01201 ,0.00097 ,0.00000 - +,0.46924 ,0.16524 ,0.29033 ,0.01135 ,0.00140 ,0.00001 - +,0.44429 ,0.15435 ,0.25106 ,0.01073 ,0.00168 ,0.00001 - +,0.42228 ,0.14495 ,0.21951 ,0.01015 ,0.00185 ,0.00003 - +,0.40271 ,0.13673 ,0.19377 ,0.00958 ,0.00197 ,0.00015 - +,0.38509 ,0.12944 ,0.17243 ,0.00904 ,0.00203 ,0.00031 - +,0.36909 ,0.12293 ,0.15451 ,0.00856 ,0.00207 ,0.00043 - +,0.35451 ,0.11706 ,0.13934 ,0.00813 ,0.00208 ,0.00052 - +,0.34114 ,0.11175 ,0.12638 ,0.00773 ,0.00208 ,0.00058 - +,0.32878 ,0.10690 ,0.11520 ,0.00736 ,0.00206 ,0.00063 - +,0.31739 ,0.10247 ,0.10551 ,0.00703 ,0.00204 ,0.00067 - +,0.30685 ,0.09841 ,0.09707 ,0.00672 ,0.00202 ,0.00069 - +,0.29699 ,0.09466 ,0.08964 ,0.00643 ,0.00198 ,0.00071 - +,0.28779 ,0.09119 ,0.08309 ,0.00617 ,0.00195 ,0.00073 - +,0.27923 ,0.08797 ,0.07728 ,0.00593 ,0.00191 ,0.00074 - +,0.27115 ,0.08497 ,0.07210 ,0.00570 ,0.00187 ,0.00074 - +,0.26361 ,0.08217 ,0.06746 ,0.00549 ,0.00184 ,0.00074 - +,0.25644 ,0.07954 ,0.06329 ,0.00529 ,0.00180 ,0.00074/ - DATA ((F(I,26,K),I=1,6),K=1,19)/ - + 0.50029 ,0.17253 ,0.34099 ,0.00968 ,0.00022 ,0.00000 - +,0.46562 ,0.15773 ,0.28262 ,0.00910 ,0.00074 ,0.00000 - +,0.43621 ,0.14550 ,0.23830 ,0.00856 ,0.00106 ,0.00000 - +,0.41092 ,0.13519 ,0.20391 ,0.00805 ,0.00126 ,0.00000 - +,0.38875 ,0.12635 ,0.17663 ,0.00758 ,0.00139 ,0.00001 - +,0.36919 ,0.11866 ,0.15462 ,0.00713 ,0.00146 ,0.00010 - +,0.35167 ,0.11188 ,0.13655 ,0.00670 ,0.00150 ,0.00022 - +,0.33583 ,0.10585 ,0.12153 ,0.00633 ,0.00153 ,0.00031 - +,0.32147 ,0.10045 ,0.10890 ,0.00598 ,0.00153 ,0.00037 - +,0.30835 ,0.09558 ,0.09820 ,0.00567 ,0.00153 ,0.00042 - +,0.29631 ,0.09114 ,0.08903 ,0.00539 ,0.00151 ,0.00045 - +,0.28522 ,0.08711 ,0.08114 ,0.00513 ,0.00149 ,0.00048 - +,0.27499 ,0.08342 ,0.07430 ,0.00489 ,0.00146 ,0.00050 - +,0.26548 ,0.08002 ,0.06832 ,0.00467 ,0.00144 ,0.00051 - +,0.25664 ,0.07689 ,0.06307 ,0.00447 ,0.00141 ,0.00052 - +,0.24842 ,0.07400 ,0.05844 ,0.00428 ,0.00138 ,0.00052 - +,0.24068 ,0.07131 ,0.05433 ,0.00411 ,0.00135 ,0.00053 - +,0.23347 ,0.06881 ,0.05066 ,0.00395 ,0.00132 ,0.00053 - +,0.22665 ,0.06647 ,0.04738 ,0.00380 ,0.00129 ,0.00052/ - DATA ((F(I,27,K),I=1,6),K=1,19)/ - + 0.46607 ,0.15195 ,0.28547 ,0.00728 ,0.00017 ,0.00000 - +,0.43097 ,0.13799 ,0.23335 ,0.00681 ,0.00056 ,0.00000 - +,0.40146 ,0.12654 ,0.19442 ,0.00637 ,0.00080 ,0.00000 - +,0.37627 ,0.11696 ,0.16464 ,0.00597 ,0.00095 ,0.00000 - +,0.35433 ,0.10880 ,0.14131 ,0.00560 ,0.00104 ,0.00001 - +,0.33508 ,0.10173 ,0.12268 ,0.00524 ,0.00109 ,0.00007 - +,0.31794 ,0.09554 ,0.10754 ,0.00491 ,0.00111 ,0.00016 - +,0.30253 ,0.09005 ,0.09506 ,0.00462 ,0.00112 ,0.00022 - +,0.28861 ,0.08516 ,0.08465 ,0.00436 ,0.00112 ,0.00027 - +,0.27595 ,0.08076 ,0.07589 ,0.00412 ,0.00111 ,0.00030 - +,0.26438 ,0.07678 ,0.06844 ,0.00390 ,0.00110 ,0.00032 - +,0.25376 ,0.07316 ,0.06207 ,0.00370 ,0.00108 ,0.00034 - +,0.24401 ,0.06988 ,0.05658 ,0.00352 ,0.00106 ,0.00035 - +,0.23496 ,0.06685 ,0.05180 ,0.00336 ,0.00104 ,0.00036 - +,0.22658 ,0.06407 ,0.04763 ,0.00320 ,0.00101 ,0.00037 - +,0.21882 ,0.06152 ,0.04397 ,0.00306 ,0.00099 ,0.00037 - +,0.21152 ,0.05914 ,0.04073 ,0.00293 ,0.00097 ,0.00037 - +,0.20475 ,0.05695 ,0.03786 ,0.00281 ,0.00094 ,0.00037 - +,0.19836 ,0.05489 ,0.03530 ,0.00270 ,0.00092 ,0.00037/ - DATA ((F(I,28,K),I=1,6),K=1,19)/ - + 0.42981 ,0.13220 ,0.23735 ,0.00543 ,0.00012 ,-0.00001 - +,0.39492 ,0.11926 ,0.19136 ,0.00505 ,0.00042 ,-0.00001 - +,0.36579 ,0.10873 ,0.15758 ,0.00470 ,0.00059 ,-0.00001 - +,0.34110 ,0.09998 ,0.13207 ,0.00439 ,0.00070 ,-0.00001 - +,0.31976 ,0.09256 ,0.11232 ,0.00410 ,0.00077 ,0.00000 - +,0.30111 ,0.08618 ,0.09673 ,0.00383 ,0.00080 ,0.00005 - +,0.28458 ,0.08061 ,0.08416 ,0.00357 ,0.00082 ,0.00012 - +,0.26981 ,0.07570 ,0.07389 ,0.00335 ,0.00082 ,0.00016 - +,0.25654 ,0.07134 ,0.06539 ,0.00315 ,0.00082 ,0.00019 - +,0.24452 ,0.06744 ,0.05829 ,0.00296 ,0.00081 ,0.00022 - +,0.23354 ,0.06391 ,0.05229 ,0.00280 ,0.00079 ,0.00023 - +,0.22353 ,0.06073 ,0.04719 ,0.00265 ,0.00078 ,0.00024 - +,0.21436 ,0.05784 ,0.04282 ,0.00251 ,0.00076 ,0.00025 - +,0.20589 ,0.05519 ,0.03904 ,0.00239 ,0.00074 ,0.00026 - +,0.19806 ,0.05277 ,0.03575 ,0.00228 ,0.00072 ,0.00026 - +,0.19083 ,0.05054 ,0.03288 ,0.00217 ,0.00071 ,0.00026 - +,0.18406 ,0.04848 ,0.03036 ,0.00207 ,0.00069 ,0.00026 - +,0.17779 ,0.04658 ,0.02813 ,0.00199 ,0.00067 ,0.00026 - +,0.17189 ,0.04480 ,0.02615 ,0.00190 ,0.00065 ,0.00026/ - DATA ((F(I,29,K),I=1,6),K=1,19)/ - + 0.39228 ,0.11354 ,0.19583 ,0.00398 ,0.00009 ,-0.00001 - +,0.35811 ,0.10175 ,0.15576 ,0.00369 ,0.00031 ,-0.00001 - +,0.32981 ,0.09224 ,0.12676 ,0.00342 ,0.00044 ,-0.00001 - +,0.30599 ,0.08437 ,0.10516 ,0.00318 ,0.00052 ,-0.00001 - +,0.28553 ,0.07775 ,0.08862 ,0.00296 ,0.00056 ,0.00000 - +,0.26775 ,0.07208 ,0.07569 ,0.00275 ,0.00058 ,0.00004 - +,0.25208 ,0.06716 ,0.06538 ,0.00256 ,0.00059 ,0.00008 - +,0.23813 ,0.06284 ,0.05701 ,0.00239 ,0.00059 ,0.00011 - +,0.22565 ,0.05901 ,0.05014 ,0.00224 ,0.00059 ,0.00014 - +,0.21439 ,0.05560 ,0.04444 ,0.00210 ,0.00058 ,0.00015 - +,0.20415 ,0.05253 ,0.03965 ,0.00198 ,0.00057 ,0.00016 - +,0.19484 ,0.04977 ,0.03561 ,0.00187 ,0.00055 ,0.00017 - +,0.18635 ,0.04728 ,0.03217 ,0.00177 ,0.00054 ,0.00018 - +,0.17853 ,0.04499 ,0.02920 ,0.00168 ,0.00052 ,0.00018 - +,0.17132 ,0.04291 ,0.02664 ,0.00160 ,0.00051 ,0.00018 - +,0.16468 ,0.04100 ,0.02441 ,0.00152 ,0.00050 ,0.00018 - +,0.15849 ,0.03924 ,0.02246 ,0.00145 ,0.00048 ,0.00018 - +,0.15276 ,0.03761 ,0.02074 ,0.00138 ,0.00047 ,0.00018 - +,0.14738 ,0.03610 ,0.01923 ,0.00132 ,0.00045 ,0.00018/ - DATA ((F(I,30,K),I=1,6),K=1,19)/ - + 0.35427 ,0.09625 ,0.16023 ,0.00289 ,0.00007 ,0.00000 - +,0.32132 ,0.08569 ,0.12574 ,0.00267 ,0.00023 ,0.00000 - +,0.29427 ,0.07723 ,0.10114 ,0.00246 ,0.00032 ,0.00000 - +,0.27157 ,0.07028 ,0.08304 ,0.00228 ,0.00038 ,0.00000 - +,0.25225 ,0.06446 ,0.06935 ,0.00211 ,0.00041 ,0.00000 - +,0.23555 ,0.05951 ,0.05875 ,0.00196 ,0.00042 ,0.00003 - +,0.22089 ,0.05523 ,0.05036 ,0.00182 ,0.00043 ,0.00006 - +,0.20791 ,0.05148 ,0.04362 ,0.00169 ,0.00042 ,0.00008 - +,0.19635 ,0.04818 ,0.03812 ,0.00158 ,0.00042 ,0.00010 - +,0.18596 ,0.04525 ,0.03359 ,0.00148 ,0.00041 ,0.00011 - +,0.17656 ,0.04262 ,0.02983 ,0.00139 ,0.00040 ,0.00011 - +,0.16803 ,0.04026 ,0.02666 ,0.00131 ,0.00039 ,0.00012 - +,0.16026 ,0.03814 ,0.02397 ,0.00123 ,0.00038 ,0.00012 - +,0.15314 ,0.03620 ,0.02167 ,0.00117 ,0.00037 ,0.00012 - +,0.14659 ,0.03444 ,0.01969 ,0.00111 ,0.00036 ,0.00012 - +,0.14058 ,0.03283 ,0.01797 ,0.00105 ,0.00035 ,0.00013 - +,0.13498 ,0.03135 ,0.01648 ,0.00100 ,0.00033 ,0.00013 - +,0.12981 ,0.02999 ,0.01517 ,0.00095 ,0.00032 ,0.00012 - +,0.12499 ,0.02872 ,0.01402 ,0.00091 ,0.00031 ,0.00012/ - DATA ((F(I,31,K),I=1,6),K=1,19)/ - + 0.31635 ,0.08047 ,0.12992 ,0.00206 ,0.00005 ,0.00000 - +,0.28505 ,0.07117 ,0.10057 ,0.00189 ,0.00017 ,0.00000 - +,0.25956 ,0.06377 ,0.07995 ,0.00174 ,0.00023 ,0.00000 - +,0.23831 ,0.05773 ,0.06496 ,0.00161 ,0.00027 ,0.00000 - +,0.22033 ,0.05271 ,0.05375 ,0.00148 ,0.00029 ,0.00000 - +,0.20487 ,0.04845 ,0.04516 ,0.00137 ,0.00030 ,0.00002 - +,0.19136 ,0.04478 ,0.03842 ,0.00127 ,0.00030 ,0.00004 - +,0.17946 ,0.04159 ,0.03305 ,0.00117 ,0.00030 ,0.00006 - +,0.16890 ,0.03879 ,0.02871 ,0.00109 ,0.00029 ,0.00007 - +,0.15945 ,0.03631 ,0.02515 ,0.00102 ,0.00029 ,0.00007 - +,0.15092 ,0.03409 ,0.02221 ,0.00096 ,0.00028 ,0.00008 - +,0.14322 ,0.03211 ,0.01975 ,0.00090 ,0.00027 ,0.00008 - +,0.13623 ,0.03033 ,0.01768 ,0.00084 ,0.00026 ,0.00008 - +,0.12983 ,0.02872 ,0.01592 ,0.00080 ,0.00025 ,0.00008 - +,0.12398 ,0.02725 ,0.01441 ,0.00075 ,0.00025 ,0.00009 - +,0.11861 ,0.02591 ,0.01310 ,0.00071 ,0.00024 ,0.00009 - +,0.11363 ,0.02469 ,0.01197 ,0.00068 ,0.00023 ,0.00009 - +,0.10904 ,0.02357 ,0.01098 ,0.00064 ,0.00022 ,0.00009 - +,0.10477 ,0.02252 ,0.01012 ,0.00061 ,0.00021 ,0.00008/ - DATA ((F(I,32,K),I=1,6),K=1,19)/ - + 0.27922 ,0.06629 ,0.10427 ,0.00145 ,0.00004 ,0.00000 - +,0.24991 ,0.05825 ,0.07961 ,0.00133 ,0.00012 ,0.00000 - +,0.22623 ,0.05189 ,0.06253 ,0.00121 ,0.00017 ,0.00000 - +,0.20664 ,0.04673 ,0.05028 ,0.00112 ,0.00020 ,0.00000 - +,0.19015 ,0.04245 ,0.04121 ,0.00103 ,0.00021 ,0.00000 - +,0.17605 ,0.03885 ,0.03434 ,0.00094 ,0.00021 ,0.00002 - +,0.16378 ,0.03577 ,0.02900 ,0.00087 ,0.00021 ,0.00003 - +,0.15303 ,0.03309 ,0.02477 ,0.00080 ,0.00021 ,0.00004 - +,0.14351 ,0.03076 ,0.02138 ,0.00074 ,0.00021 ,0.00005 - +,0.13503 ,0.02870 ,0.01862 ,0.00069 ,0.00020 ,0.00005 - +,0.12742 ,0.02686 ,0.01636 ,0.00065 ,0.00020 ,0.00006 - +,0.12057 ,0.02523 ,0.01447 ,0.00061 ,0.00019 ,0.00006 - +,0.11437 ,0.02377 ,0.01289 ,0.00057 ,0.00018 ,0.00006 - +,0.10871 ,0.02244 ,0.01156 ,0.00054 ,0.00018 ,0.00006 - +,0.10354 ,0.02124 ,0.01042 ,0.00051 ,0.00017 ,0.00006 - +,0.09881 ,0.02016 ,0.00944 ,0.00048 ,0.00017 ,0.00006 - +,0.09445 ,0.01915 ,0.00859 ,0.00045 ,0.00016 ,0.00006 - +,0.09045 ,0.01823 ,0.00786 ,0.00043 ,0.00015 ,0.00005 - +,0.08672 ,0.01739 ,0.00722 ,0.00041 ,0.00015 ,0.00005/ - DATA ((F(I,33,K),I=1,6),K=1,19)/ - + 0.24336 ,0.05379 ,0.08279 ,0.00100 ,0.00002 ,0.00000 - +,0.21638 ,0.04695 ,0.06233 ,0.00091 ,0.00008 ,0.00000 - +,0.19471 ,0.04157 ,0.04837 ,0.00083 ,0.00012 ,0.00000 - +,0.17693 ,0.03724 ,0.03849 ,0.00076 ,0.00014 ,0.00000 - +,0.16203 ,0.03367 ,0.03124 ,0.00070 ,0.00014 ,0.00000 - +,0.14934 ,0.03069 ,0.02581 ,0.00064 ,0.00015 ,0.00001 - +,0.13839 ,0.02813 ,0.02163 ,0.00059 ,0.00015 ,0.00001 - +,0.12881 ,0.02593 ,0.01834 ,0.00054 ,0.00014 ,0.00002 - +,0.12038 ,0.02401 ,0.01573 ,0.00050 ,0.00014 ,0.00003 - +,0.11290 ,0.02233 ,0.01362 ,0.00047 ,0.00013 ,0.00003 - +,0.10620 ,0.02084 ,0.01190 ,0.00043 ,0.00013 ,0.00004 - +,0.10019 ,0.01951 ,0.01047 ,0.00040 ,0.00013 ,0.00004 - +,0.09478 ,0.01832 ,0.00928 ,0.00038 ,0.00012 ,0.00004 - +,0.08984 ,0.01726 ,0.00829 ,0.00035 ,0.00012 ,0.00004 - +,0.08536 ,0.01629 ,0.00744 ,0.00033 ,0.00011 ,0.00004 - +,0.08127 ,0.01542 ,0.00672 ,0.00032 ,0.00011 ,0.00003 - +,0.07750 ,0.01462 ,0.00610 ,0.00030 ,0.00010 ,0.00004 - +,0.07404 ,0.01389 ,0.00556 ,0.00028 ,0.00010 ,0.00004 - +,0.07084 ,0.01322 ,0.00509 ,0.00027 ,0.00010 ,0.00004/ - DATA ((F(I,34,K),I=1,6),K=1,19)/ - + 0.20929 ,0.04291 ,0.06492 ,0.00068 ,0.00002 ,0.00000 - +,0.18482 ,0.03720 ,0.04818 ,0.00062 ,0.00006 ,0.00000 - +,0.16532 ,0.03274 ,0.03693 ,0.00056 ,0.00008 ,0.00000 - +,0.14941 ,0.02917 ,0.02907 ,0.00051 ,0.00009 ,0.00000 - +,0.13616 ,0.02625 ,0.02337 ,0.00047 ,0.00010 ,0.00000 - +,0.12494 ,0.02382 ,0.01914 ,0.00043 ,0.00010 ,0.00000 - +,0.11530 ,0.02175 ,0.01591 ,0.00039 ,0.00010 ,0.00001 - +,0.10691 ,0.01997 ,0.01340 ,0.00036 ,0.00010 ,0.00001 - +,0.09956 ,0.01842 ,0.01141 ,0.00033 ,0.00009 ,0.00002 - +,0.09305 ,0.01707 ,0.00982 ,0.00031 ,0.00009 ,0.00002 - +,0.08725 ,0.01589 ,0.00853 ,0.00028 ,0.00009 ,0.00002 - +,0.08206 ,0.01483 ,0.00747 ,0.00026 ,0.00008 ,0.00002 - +,0.07741 ,0.01388 ,0.00659 ,0.00025 ,0.00008 ,0.00003 - +,0.07318 ,0.01304 ,0.00586 ,0.00023 ,0.00008 ,0.00002 - +,0.06935 ,0.01228 ,0.00524 ,0.00022 ,0.00007 ,0.00002 - +,0.06586 ,0.01159 ,0.00471 ,0.00020 ,0.00007 ,0.00002 - +,0.06265 ,0.01096 ,0.00426 ,0.00019 ,0.00007 ,0.00002 - +,0.05972 ,0.01039 ,0.00387 ,0.00018 ,0.00007 ,0.00002 - +,0.05701 ,0.00987 ,0.00353 ,0.00017 ,0.00006 ,0.00002/ - DATA ((F(I,35,K),I=1,6),K=1,19)/ - + 0.17738 ,0.03362 ,0.05021 ,0.00045 ,0.00001 ,0.00000 - +,0.15555 ,0.02894 ,0.03674 ,0.00041 ,0.00004 ,0.00000 - +,0.13828 ,0.02531 ,0.02779 ,0.00037 ,0.00006 ,0.00000 - +,0.12430 ,0.02243 ,0.02163 ,0.00033 ,0.00006 ,0.00000 - +,0.11271 ,0.02008 ,0.01722 ,0.00030 ,0.00006 ,0.00000 - +,0.10296 ,0.01813 ,0.01398 ,0.00028 ,0.00006 ,0.00000 - +,0.09462 ,0.01649 ,0.01153 ,0.00025 ,0.00006 ,0.00001 - +,0.08738 ,0.01508 ,0.00964 ,0.00023 ,0.00006 ,0.00001 - +,0.08107 ,0.01386 ,0.00815 ,0.00021 ,0.00006 ,0.00001 - +,0.07551 ,0.01281 ,0.00697 ,0.00020 ,0.00006 ,0.00001 - +,0.07057 ,0.01187 ,0.00602 ,0.00018 ,0.00006 ,0.00001 - +,0.06617 ,0.01105 ,0.00525 ,0.00017 ,0.00006 ,0.00002 - +,0.06223 ,0.01032 ,0.00461 ,0.00015 ,0.00005 ,0.00002 - +,0.05867 ,0.00966 ,0.00407 ,0.00014 ,0.00005 ,0.00002 - +,0.05545 ,0.00907 ,0.00363 ,0.00014 ,0.00005 ,0.00002 - +,0.05253 ,0.00854 ,0.00325 ,0.00013 ,0.00004 ,0.00002 - +,0.04985 ,0.00806 ,0.00293 ,0.00012 ,0.00004 ,0.00002 - +,0.04740 ,0.00763 ,0.00265 ,0.00011 ,0.00004 ,0.00002 - +,0.04515 ,0.00722 ,0.00241 ,0.00011 ,0.00004 ,0.00002/ - DATA ((F(I,36,K),I=1,6),K=1,19)/ - + 0.14797 ,0.02582 ,0.03824 ,0.00029 ,0.00001 ,0.00000 - +,0.12883 ,0.02206 ,0.02757 ,0.00026 ,0.00003 ,0.00000 - +,0.11381 ,0.01918 ,0.02059 ,0.00024 ,0.00004 ,0.00000 - +,0.10173 ,0.01690 ,0.01584 ,0.00021 ,0.00004 ,0.00000 - +,0.09177 ,0.01505 ,0.01248 ,0.00019 ,0.00004 ,0.00000 - +,0.08344 ,0.01353 ,0.01004 ,0.00018 ,0.00004 ,0.00000 - +,0.07634 ,0.01225 ,0.00821 ,0.00016 ,0.00004 ,0.00001 - +,0.07023 ,0.01116 ,0.00681 ,0.00015 ,0.00004 ,0.00001 - +,0.06490 ,0.01022 ,0.00572 ,0.00013 ,0.00004 ,0.00001 - +,0.06024 ,0.00940 ,0.00486 ,0.00012 ,0.00004 ,0.00001 - +,0.05611 ,0.00869 ,0.00417 ,0.00011 ,0.00004 ,0.00001 - +,0.05245 ,0.00806 ,0.00362 ,0.00010 ,0.00004 ,0.00001 - +,0.04918 ,0.00751 ,0.00316 ,0.00010 ,0.00003 ,0.00001 - +,0.04623 ,0.00701 ,0.00278 ,0.00009 ,0.00003 ,0.00001 - +,0.04357 ,0.00656 ,0.00247 ,0.00008 ,0.00003 ,0.00001 - +,0.04117 ,0.00616 ,0.00220 ,0.00008 ,0.00003 ,0.00001 - +,0.03897 ,0.00580 ,0.00197 ,0.00007 ,0.00003 ,0.00001 - +,0.03697 ,0.00547 ,0.00178 ,0.00007 ,0.00003 ,0.00001 - +,0.03513 ,0.00517 ,0.00161 ,0.00007 ,0.00002 ,0.00001/ - DATA ((F(I,37,K),I=1,6),K=1,19)/ - + 0.09745 ,0.01419 ,0.02101 ,0.00011 ,0.00001 ,0.00000 - +,0.08358 ,0.01195 ,0.01466 ,0.00010 ,0.00001 ,0.00000 - +,0.07286 ,0.01025 ,0.01065 ,0.00009 ,0.00001 ,0.00000 - +,0.06435 ,0.00893 ,0.00800 ,0.00008 ,0.00002 ,0.00000 - +,0.05744 ,0.00787 ,0.00617 ,0.00007 ,0.00002 ,0.00000 - +,0.05171 ,0.00700 ,0.00486 ,0.00006 ,0.00002 ,0.00000 - +,0.04688 ,0.00628 ,0.00391 ,0.00006 ,0.00002 ,0.00000 - +,0.04276 ,0.00567 ,0.00319 ,0.00005 ,0.00002 ,0.00000 - +,0.03921 ,0.00515 ,0.00264 ,0.00005 ,0.00002 ,0.00000 - +,0.03612 ,0.00471 ,0.00221 ,0.00004 ,0.00002 ,0.00000 - +,0.03341 ,0.00432 ,0.00187 ,0.00004 ,0.00001 ,0.00000 - +,0.03101 ,0.00398 ,0.00161 ,0.00004 ,0.00001 ,0.00000 - +,0.02889 ,0.00368 ,0.00139 ,0.00003 ,0.00001 ,0.00000 - +,0.02700 ,0.00342 ,0.00121 ,0.00003 ,0.00001 ,0.00000 - +,0.02530 ,0.00318 ,0.00106 ,0.00003 ,0.00001 ,0.00000 - +,0.02377 ,0.00297 ,0.00094 ,0.00003 ,0.00001 ,0.00000 - +,0.02239 ,0.00278 ,0.00084 ,0.00003 ,0.00001 ,0.00000 - +,0.02113 ,0.00261 ,0.00075 ,0.00002 ,0.00001 ,0.00000 - +,0.01998 ,0.00246 ,0.00068 ,0.00002 ,0.00001 ,0.00000/ - DATA ((F(I,38,K),I=1,6),K=1,19)/ - + 0.05868 ,0.00697 ,0.01052 ,0.00004 ,0.00000 ,0.00000 - +,0.04951 ,0.00577 ,0.00709 ,0.00003 ,0.00000 ,0.00000 - +,0.04254 ,0.00488 ,0.00500 ,0.00003 ,0.00000 ,0.00000 - +,0.03709 ,0.00419 ,0.00365 ,0.00003 ,0.00001 ,0.00000 - +,0.03272 ,0.00365 ,0.00275 ,0.00002 ,0.00000 ,0.00000 - +,0.02914 ,0.00322 ,0.00212 ,0.00002 ,0.00000 ,0.00000 - +,0.02616 ,0.00286 ,0.00167 ,0.00002 ,0.00000 ,0.00000 - +,0.02364 ,0.00256 ,0.00134 ,0.00002 ,0.00000 ,0.00000 - +,0.02149 ,0.00230 ,0.00109 ,0.00001 ,0.00000 ,0.00000 - +,0.01964 ,0.00209 ,0.00090 ,0.00001 ,0.00000 ,0.00000 - +,0.01802 ,0.00190 ,0.00075 ,0.00001 ,0.00000 ,0.00000 - +,0.01661 ,0.00174 ,0.00064 ,0.00001 ,0.00000 ,0.00000 - +,0.01537 ,0.00160 ,0.00054 ,0.00001 ,0.00000 ,0.00000 - +,0.01426 ,0.00147 ,0.00047 ,0.00001 ,0.00000 ,0.00000 - +,0.01328 ,0.00136 ,0.00041 ,0.00001 ,0.00000 ,0.00000 - +,0.01241 ,0.00126 ,0.00036 ,0.00001 ,0.00000 ,0.00000 - +,0.01162 ,0.00118 ,0.00032 ,0.00001 ,0.00000 ,0.00000 - +,0.01091 ,0.00110 ,0.00028 ,0.00001 ,0.00000 ,0.00000 - +,0.01026 ,0.00103 ,0.00025 ,0.00001 ,0.00000 ,0.00000/ - DATA ((F(I,39,K),I=1,6),K=1,19)/ - + 0.03135 ,0.00294 ,0.00465 ,0.00001 ,0.00000 ,0.00000 - +,0.02598 ,0.00239 ,0.00301 ,0.00001 ,0.00000 ,0.00000 - +,0.02196 ,0.00199 ,0.00205 ,0.00001 ,0.00000 ,0.00000 - +,0.01887 ,0.00168 ,0.00146 ,0.00001 ,0.00000 ,0.00000 - +,0.01643 ,0.00145 ,0.00107 ,0.00001 ,0.00000 ,0.00000 - +,0.01446 ,0.00126 ,0.00080 ,0.00001 ,0.00000 ,0.00000 - +,0.01284 ,0.00111 ,0.00062 ,0.00000 ,0.00000 ,0.00000 - +,0.01148 ,0.00098 ,0.00049 ,0.00000 ,0.00000 ,0.00000 - +,0.01034 ,0.00087 ,0.00039 ,0.00000 ,0.00000 ,0.00000 - +,0.00936 ,0.00078 ,0.00032 ,0.00000 ,0.00000 ,0.00000 - +,0.00852 ,0.00071 ,0.00026 ,0.00000 ,0.00000 ,0.00000 - +,0.00779 ,0.00064 ,0.00022 ,0.00000 ,0.00000 ,0.00000 - +,0.00715 ,0.00059 ,0.00018 ,0.00000 ,0.00000 ,0.00000 - +,0.00659 ,0.00054 ,0.00016 ,0.00000 ,0.00000 ,0.00000 - +,0.00609 ,0.00049 ,0.00013 ,0.00000 ,0.00000 ,0.00000 - +,0.00565 ,0.00045 ,0.00012 ,0.00000 ,0.00000 ,0.00000 - +,0.00525 ,0.00042 ,0.00010 ,0.00000 ,0.00000 ,0.00000 - +,0.00490 ,0.00039 ,0.00009 ,0.00000 ,0.00000 ,0.00000 - +,0.00458 ,0.00036 ,0.00008 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,40,K),I=1,6),K=1,19)/ - + 0.01414 ,0.00099 ,0.00171 ,0.00000 ,0.00000 ,0.00000 - +,0.01147 ,0.00079 ,0.00106 ,0.00000 ,0.00000 ,0.00000 - +,0.00952 ,0.00065 ,0.00069 ,0.00000 ,0.00000 ,0.00000 - +,0.00804 ,0.00054 ,0.00047 ,0.00000 ,0.00000 ,0.00000 - +,0.00690 ,0.00046 ,0.00034 ,0.00000 ,0.00000 ,0.00000 - +,0.00599 ,0.00039 ,0.00025 ,0.00000 ,0.00000 ,0.00000 - +,0.00525 ,0.00034 ,0.00018 ,0.00000 ,0.00000 ,0.00000 - +,0.00464 ,0.00030 ,0.00014 ,0.00000 ,0.00000 ,0.00000 - +,0.00413 ,0.00026 ,0.00011 ,0.00000 ,0.00000 ,0.00000 - +,0.00370 ,0.00023 ,0.00009 ,0.00000 ,0.00000 ,0.00000 - +,0.00333 ,0.00021 ,0.00007 ,0.00000 ,0.00000 ,0.00000 - +,0.00302 ,0.00019 ,0.00006 ,0.00000 ,0.00000 ,0.00000 - +,0.00274 ,0.00017 ,0.00005 ,0.00000 ,0.00000 ,0.00000 - +,0.00251 ,0.00015 ,0.00004 ,0.00000 ,0.00000 ,0.00000 - +,0.00230 ,0.00014 ,0.00003 ,0.00000 ,0.00000 ,0.00000 - +,0.00212 ,0.00013 ,0.00003 ,0.00000 ,0.00000 ,0.00000 - +,0.00195 ,0.00012 ,0.00003 ,0.00000 ,0.00000 ,0.00000 - +,0.00181 ,0.00011 ,0.00002 ,0.00000 ,0.00000 ,0.00000 - +,0.00168 ,0.00010 ,0.00002 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,41,K),I=1,6),K=1,19)/ - + 0.00105 ,0.00003 ,0.00008 ,0.00000 ,0.00000 ,0.00000 - +,0.00080 ,0.00002 ,0.00004 ,0.00000 ,0.00000 ,0.00000 - +,0.00063 ,0.00002 ,0.00002 ,0.00000 ,0.00000 ,0.00000 - +,0.00051 ,0.00001 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00042 ,0.00001 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00035 ,0.00001 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00029 ,0.00001 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00025 ,0.00001 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00021 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00018 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00016 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00014 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00012 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00011 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00010 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00009 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00008 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00007 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00006 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA XX/1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-4,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,4,5,0,0/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,41 - DO 20 M=1,19 -C READ(67,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(6,N,M) - DO 25 I=1,6 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,15 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=1,5 - DO 30 K=1,19 - 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K)) - 50 FORMAT(6F10.5) - DO 40 I=1,6 - DO 40 M=1,19 - 40 F(I,42,M)=ZEROD - 10 CONTINUE - XSAVE = X - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,6 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.16) GOTO 65 - IF(I.EQ.6) GOTO 65 - FAC=(ONED-B)*F(I,16,M)+B*F(I,16,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - SEA=G(4) - STR=G(4) - CHM=G(5) - GL =G(3) - BOT=G(6) - X = XSAVE - RETURN - END diff --git a/PDF/spdf/strcep.F b/PDF/spdf/strcep.F deleted file mode 100644 index e3ff6a740df..00000000000 --- a/PDF/spdf/strcep.F +++ /dev/null @@ -1,904 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:00 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:49 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE STRCEP(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C :::::::::::: MARTIN ROBERTS STIRLING :::::SOFT GLUE:::: 91 MEV::: -#include "pdf/impdp.inc" - PARAMETER(NX=42) - PARAMETER(NTENTH=21) - DIMENSION F(6,NX,19),G(6),XX(NX),N0(6) - DATA ((F(I,1,K),I=1,6),K=1,19)/ - + 0.03421 ,0.00832 ,3.92869 ,0.19423 ,0.01848 ,0.00000 - +,0.03541 ,0.00893 ,9.10252 ,0.26453 ,0.08861 ,0.00000 - +,0.03652 ,0.00951 ,15.11084 ,0.35506 ,0.17900 ,0.00000 - +,0.03757 ,0.01006 ,21.48190 ,0.46360 ,0.28738 ,0.00000 - +,0.03856 ,0.01058 ,28.18842 ,0.58730 ,0.41196 ,0.00308 - +,0.03949 ,0.01109 ,35.15343 ,0.70982 ,0.55125 ,0.05386 - +,0.04039 ,0.01157 ,42.22572 ,0.81597 ,0.70296 ,0.19096 - +,0.04125 ,0.01204 ,49.44702 ,0.93457 ,0.86640 ,0.32589 - +,0.04207 ,0.01250 ,56.79703 ,1.06148 ,1.04064 ,0.46833 - +,0.04286 ,0.01294 ,64.26422 ,1.19565 ,1.22507 ,0.61949 - +,0.04363 ,0.01337 ,71.69411 ,1.33503 ,1.41638 ,0.77570 - +,0.04438 ,0.01379 ,79.10132 ,1.47901 ,1.61390 ,0.93673 - +,0.04509 ,0.01420 ,86.61620 ,1.62933 ,1.82001 ,1.10447 - +,0.04579 ,0.01460 ,93.95358 ,1.78111 ,2.02804 ,1.27360 - +,0.04647 ,0.01499,101.34894 ,1.93783 ,2.24275 ,1.44793 - +,0.04713 ,0.01537,108.65349 ,2.09672 ,2.46037 ,1.62447 - +,0.04777 ,0.01574,115.91290 ,2.25825 ,2.68154 ,1.80374 - +,0.04840 ,0.01610,123.10268 ,2.42180 ,2.90541 ,1.98506 - +,0.04901 ,0.01646,130.23256 ,2.58726 ,3.13186 ,2.16835/ - DATA ((F(I,2,K),I=1,6),K=1,19)/ - + 0.04449 ,0.01235 ,3.76708 ,0.19572 ,0.01702 ,0.00000 - +,0.04599 ,0.01319 ,7.96307 ,0.25861 ,0.07983 ,0.00000 - +,0.04738 ,0.01399 ,12.58512 ,0.33658 ,0.15773 ,0.00000 - +,0.04868 ,0.01474 ,17.32654 ,0.42711 ,0.24818 ,0.00000 - +,0.04990 ,0.01545 ,22.19176 ,0.52754 ,0.34937 ,0.00248 - +,0.05106 ,0.01613 ,27.13849 ,0.62478 ,0.45991 ,0.04256 - +,0.05216 ,0.01678 ,32.06958 ,0.70711 ,0.57790 ,0.14970 - +,0.05322 ,0.01741 ,37.02281 ,0.79757 ,0.70277 ,0.25313 - +,0.05423 ,0.01802 ,41.99036 ,0.89283 ,0.83379 ,0.36056 - +,0.05520 ,0.01861 ,46.96983 ,0.99211 ,0.97049 ,0.47299 - +,0.05614 ,0.01918 ,51.86092 ,1.09391 ,1.11045 ,0.58765 - +,0.05704 ,0.01973 ,56.67929 ,1.19783 ,1.25326 ,0.70447 - +,0.05792 ,0.02027 ,61.51733 ,1.30514 ,1.40064 ,0.82481 - +,0.05876 ,0.02079 ,66.18787 ,1.41241 ,1.54791 ,0.94493 - +,0.05958 ,0.02130 ,70.85208 ,1.52213 ,1.69846 ,1.06756 - +,0.06038 ,0.02179 ,75.41489 ,1.63240 ,1.84972 ,1.19066 - +,0.06115 ,0.02228 ,79.90950 ,1.74357 ,2.00217 ,1.31462 - +,0.06191 ,0.02275 ,84.32312 ,1.85525 ,2.15528 ,1.43901 - +,0.06264 ,0.02321 ,88.66475 ,1.96741 ,2.30901 ,1.56382/ - DATA ((F(I,3,K),I=1,6),K=1,19)/ - + 0.05765 ,0.01832 ,3.61093 ,0.19648 ,0.01549 ,0.00000 - +,0.05952 ,0.01948 ,6.96492 ,0.25200 ,0.07105 ,0.00000 - +,0.06125 ,0.02056 ,10.47888 ,0.31823 ,0.13732 ,0.00000 - +,0.06286 ,0.02158 ,13.97004 ,0.39272 ,0.21184 ,0.00000 - +,0.06436 ,0.02254 ,17.46292 ,0.47317 ,0.29299 ,0.00197 - +,0.06579 ,0.02345 ,20.93961 ,0.54934 ,0.37962 ,0.03322 - +,0.06714 ,0.02432 ,24.34108 ,0.61235 ,0.47026 ,0.11599 - +,0.06843 ,0.02516 ,27.70108 ,0.68043 ,0.56452 ,0.19438 - +,0.06967 ,0.02596 ,31.02010 ,0.75102 ,0.66186 ,0.27451 - +,0.07086 ,0.02673 ,34.30139 ,0.82353 ,0.76198 ,0.35719 - +,0.07199 ,0.02748 ,37.48145 ,0.89694 ,0.86318 ,0.44045 - +,0.07309 ,0.02820 ,40.57529 ,0.97099 ,0.96523 ,0.52426 - +,0.07415 ,0.02890 ,43.64857 ,1.04663 ,1.06938 ,0.60966 - +,0.07517 ,0.02958 ,46.57977 ,1.12148 ,1.17241 ,0.69405 - +,0.07616 ,0.03024 ,49.47914 ,1.19731 ,1.27674 ,0.77939 - +,0.07712 ,0.03088 ,52.28651 ,1.27285 ,1.38063 ,0.86429 - +,0.07805 ,0.03150 ,55.02600 ,1.34838 ,1.48447 ,0.94906 - +,0.07896 ,0.03210 ,57.69179 ,1.42366 ,1.58793 ,1.03347 - +,0.07983 ,0.03269 ,60.29137 ,1.49869 ,1.69104 ,1.11752/ - DATA ((F(I,4,K),I=1,6),K=1,19)/ - + 0.06695 ,0.02306 ,3.52164 ,0.19647 ,0.01456 ,0.00000 - +,0.06907 ,0.02445 ,6.43906 ,0.24770 ,0.06591 ,0.00000 - +,0.07103 ,0.02575 ,9.41224 ,0.30744 ,0.12577 ,0.00000 - +,0.07286 ,0.02695 ,12.31308 ,0.37338 ,0.19183 ,0.00000 - +,0.07456 ,0.02809 ,15.17309 ,0.44351 ,0.26264 ,0.00171 - +,0.07617 ,0.02917 ,17.98447 ,0.50904 ,0.33723 ,0.02854 - +,0.07769 ,0.03020 ,20.70445 ,0.56250 ,0.41438 ,0.09926 - +,0.07914 ,0.03118 ,23.36453 ,0.61972 ,0.49380 ,0.16550 - +,0.08053 ,0.03212 ,25.96823 ,0.67851 ,0.57507 ,0.23257 - +,0.08186 ,0.03303 ,28.52094 ,0.73839 ,0.65795 ,0.30123 - +,0.08313 ,0.03390 ,30.97453 ,0.79857 ,0.74112 ,0.36984 - +,0.08436 ,0.03474 ,33.34349 ,0.85886 ,0.82439 ,0.43845 - +,0.08555 ,0.03555 ,35.68141 ,0.92004 ,0.90884 ,0.50789 - +,0.08668 ,0.03634 ,37.89435 ,0.98023 ,0.99188 ,0.57612 - +,0.08779 ,0.03710 ,40.07047 ,1.04087 ,1.07550 ,0.64472 - +,0.08885 ,0.03783 ,42.16408 ,1.10096 ,1.15834 ,0.71262 - +,0.08989 ,0.03855 ,44.19507 ,1.16074 ,1.24072 ,0.78008 - +,0.09089 ,0.03924 ,46.16020 ,1.22005 ,1.32243 ,0.84693 - +,0.09186 ,0.03992 ,48.06613 ,1.27891 ,1.40349 ,0.91321/ - DATA ((F(I,5,K),I=1,6),K=1,19)/ - + 0.07438 ,0.02715 ,3.45897 ,0.19622 ,0.01389 ,0.00000 - +,0.07670 ,0.02873 ,6.08954 ,0.24442 ,0.06228 ,0.00000 - +,0.07884 ,0.03019 ,8.72065 ,0.29971 ,0.11775 ,0.00000 - +,0.08083 ,0.03155 ,11.25574 ,0.35994 ,0.17816 ,0.00000 - +,0.08269 ,0.03284 ,13.72934 ,0.42329 ,0.24221 ,0.00154 - +,0.08444 ,0.03405 ,16.13921 ,0.48194 ,0.30904 ,0.02554 - +,0.08609 ,0.03520 ,18.45212 ,0.52932 ,0.37761 ,0.08858 - +,0.08767 ,0.03629 ,20.69765 ,0.57970 ,0.44769 ,0.14716 - +,0.08917 ,0.03735 ,22.88103 ,0.63112 ,0.51893 ,0.20609 - +,0.09061 ,0.03836 ,25.00864 ,0.68319 ,0.59117 ,0.26607 - +,0.09200 ,0.03932 ,27.04132 ,0.73524 ,0.66326 ,0.32569 - +,0.09332 ,0.04025 ,28.99277 ,0.78713 ,0.73510 ,0.38501 - +,0.09460 ,0.04116 ,30.90950 ,0.83956 ,0.80761 ,0.44479 - +,0.09583 ,0.04202 ,32.71355 ,0.89090 ,0.87862 ,0.50327 - +,0.09702 ,0.04286 ,34.47984 ,0.94244 ,0.94984 ,0.56184 - +,0.09817 ,0.04367 ,36.17101 ,0.99331 ,1.02013 ,0.61959 - +,0.09928 ,0.04446 ,37.80450 ,1.04375 ,1.08978 ,0.67677 - +,0.10036 ,0.04522 ,39.37819 ,1.09362 ,1.15864 ,0.73325 - +,0.10140 ,0.04596 ,40.89833 ,1.14294 ,1.22672 ,0.78905/ - DATA ((F(I,6,K),I=1,6),K=1,19)/ - + 0.08066 ,0.03081 ,3.41062 ,0.19586 ,0.01336 ,0.00000 - +,0.08315 ,0.03254 ,5.83105 ,0.24172 ,0.05946 ,0.00000 - +,0.08544 ,0.03415 ,8.21847 ,0.29365 ,0.11163 ,0.00000 - +,0.08757 ,0.03565 ,10.49688 ,0.34964 ,0.16786 ,0.00000 - +,0.08955 ,0.03705 ,12.70222 ,0.40803 ,0.22697 ,0.00142 - +,0.09142 ,0.03837 ,14.83576 ,0.46171 ,0.28820 ,0.02338 - +,0.09318 ,0.03963 ,16.87053 ,0.50474 ,0.35064 ,0.08092 - +,0.09486 ,0.04082 ,18.83466 ,0.55024 ,0.41408 ,0.13407 - +,0.09647 ,0.04196 ,20.73439 ,0.59647 ,0.47827 ,0.18725 - +,0.09800 ,0.04306 ,22.57664 ,0.64307 ,0.54305 ,0.24115 - +,0.09946 ,0.04411 ,24.32822 ,0.68945 ,0.60743 ,0.29450 - +,0.10087 ,0.04511 ,26.00214 ,0.73552 ,0.67134 ,0.34740 - +,0.10223 ,0.04609 ,27.64005 ,0.78190 ,0.73563 ,0.40050 - +,0.10353 ,0.04702 ,29.17450 ,0.82717 ,0.79838 ,0.45228 - +,0.10479 ,0.04792 ,30.67171 ,0.87247 ,0.86111 ,0.50399 - +,0.10601 ,0.04880 ,32.09966 ,0.91705 ,0.92285 ,0.55482 - +,0.10718 ,0.04964 ,33.47400 ,0.96113 ,0.98385 ,0.60501 - +,0.10832 ,0.05046 ,34.79338 ,1.00460 ,1.04400 ,0.65445 - +,0.10943 ,0.05125 ,36.06361 ,1.04749 ,1.10333 ,0.70318/ - DATA ((F(I,7,K),I=1,6),K=1,19)/ - + 0.10343 ,0.04555 ,3.26064 ,0.19367 ,0.01168 ,0.00000 - +,0.10651 ,0.04787 ,5.09229 ,0.23227 ,0.05076 ,0.00000 - +,0.10934 ,0.05000 ,6.82897 ,0.27425 ,0.09322 ,0.00000 - +,0.11195 ,0.05196 ,8.43940 ,0.31809 ,0.13752 ,0.00000 - +,0.11438 ,0.05379 ,9.95944 ,0.36265 ,0.18289 ,0.00108 - +,0.11666 ,0.05551 ,11.39761 ,0.40269 ,0.22884 ,0.01752 - +,0.11880 ,0.05712 ,12.74135 ,0.43399 ,0.27480 ,0.06025 - +,0.12084 ,0.05865 ,14.01429 ,0.46657 ,0.32071 ,0.09900 - +,0.12278 ,0.06010 ,15.22431 ,0.49917 ,0.36643 ,0.13717 - +,0.12462 ,0.06149 ,16.37914 ,0.53156 ,0.41193 ,0.17531 - +,0.12639 ,0.06281 ,17.45940 ,0.56339 ,0.45657 ,0.21260 - +,0.12808 ,0.06407 ,18.47600 ,0.59463 ,0.50036 ,0.24913 - +,0.12970 ,0.06528 ,19.45827 ,0.62573 ,0.54392 ,0.28540 - +,0.13125 ,0.06644 ,20.36383 ,0.65577 ,0.58599 ,0.32040 - +,0.13275 ,0.06756 ,21.23718 ,0.68553 ,0.62764 ,0.35501 - +,0.13420 ,0.06864 ,22.05888 ,0.71456 ,0.66825 ,0.38873 - +,0.13559 ,0.06967 ,22.84009 ,0.74299 ,0.70803 ,0.42173 - +,0.13694 ,0.07067 ,23.58093 ,0.77081 ,0.74693 ,0.45397 - +,0.13824 ,0.07164 ,24.28587 ,0.79803 ,0.78498 ,0.48550/ - DATA ((F(I,8,K),I=1,6),K=1,19)/ - + 0.13207 ,0.06708 ,3.10696 ,0.18935 ,0.00995 ,0.00000 - +,0.13586 ,0.07009 ,4.43855 ,0.22078 ,0.04222 ,0.00000 - +,0.13932 ,0.07283 ,5.65981 ,0.25357 ,0.07581 ,0.00000 - +,0.14251 ,0.07533 ,6.76108 ,0.28674 ,0.10974 ,0.00000 - +,0.14546 ,0.07764 ,7.77362 ,0.31958 ,0.14358 ,0.00080 - +,0.14822 ,0.07978 ,8.70889 ,0.34840 ,0.17709 ,0.01278 - +,0.15081 ,0.08178 ,9.56302 ,0.37030 ,0.20998 ,0.04373 - +,0.15326 ,0.08367 ,10.35518 ,0.39275 ,0.24227 ,0.07127 - +,0.15557 ,0.08545 ,11.09346 ,0.41486 ,0.27392 ,0.09797 - +,0.15778 ,0.08714 ,11.78522 ,0.43652 ,0.30496 ,0.12427 - +,0.15988 ,0.08873 ,12.41987 ,0.45752 ,0.33502 ,0.14966 - +,0.16188 ,0.09025 ,13.00617 ,0.47786 ,0.36414 ,0.17423 - +,0.16379 ,0.09170 ,13.56440 ,0.49789 ,0.39278 ,0.19834 - +,0.16562 ,0.09308 ,14.06854 ,0.51701 ,0.42013 ,0.22137 - +,0.16738 ,0.09440 ,14.54808 ,0.53576 ,0.44693 ,0.24391 - +,0.16907 ,0.09566 ,14.99144 ,0.55386 ,0.47281 ,0.26566 - +,0.17069 ,0.09687 ,15.40639 ,0.57143 ,0.49791 ,0.28674 - +,0.17226 ,0.09803 ,15.79368 ,0.58845 ,0.52224 ,0.30716 - +,0.17377 ,0.09915 ,16.15662 ,0.60496 ,0.54585 ,0.32696/ - DATA ((F(I,9,K),I=1,6),K=1,19)/ - + 0.15217 ,0.08385 ,3.01215 ,0.18551 ,0.00893 ,0.00000 - +,0.15644 ,0.08727 ,4.08918 ,0.21284 ,0.03736 ,0.00000 - +,0.16032 ,0.09036 ,5.06017 ,0.24063 ,0.06620 ,0.00000 - +,0.16388 ,0.09317 ,5.92106 ,0.26820 ,0.09477 ,0.00000 - +,0.16718 ,0.09574 ,6.69940 ,0.29508 ,0.12281 ,0.00067 - +,0.17024 ,0.09812 ,7.40709 ,0.31832 ,0.15022 ,0.01047 - +,0.17311 ,0.10033 ,8.04346 ,0.33562 ,0.17681 ,0.03572 - +,0.17581 ,0.10240 ,8.62514 ,0.35320 ,0.20264 ,0.05794 - +,0.17836 ,0.10434 ,9.15986 ,0.37036 ,0.22771 ,0.07926 - +,0.18078 ,0.10617 ,9.65448 ,0.38700 ,0.25208 ,0.10009 - +,0.18308 ,0.10789 ,10.10191 ,0.40301 ,0.27549 ,0.12004 - +,0.18527 ,0.10952 ,10.50963 ,0.41839 ,0.29800 ,0.13920 - +,0.18736 ,0.11108 ,10.89375 ,0.43342 ,0.31996 ,0.15787 - +,0.18934 ,0.11254 ,11.23513 ,0.44766 ,0.34080 ,0.17558 - +,0.19125 ,0.11394 ,11.55652 ,0.46153 ,0.36108 ,0.19280 - +,0.19308 ,0.11527 ,11.84959 ,0.47483 ,0.38054 ,0.20932 - +,0.19483 ,0.11655 ,12.12048 ,0.48765 ,0.39931 ,0.22524 - +,0.19652 ,0.11776 ,12.37006 ,0.50000 ,0.41739 ,0.24057 - +,0.19814 ,0.11893 ,12.60103 ,0.51191 ,0.43483 ,0.25536/ - DATA ((F(I,10,K),I=1,6),K=1,19)/ - + 0.16831 ,0.09800 ,2.94194 ,0.18219 ,0.00824 ,0.00000 - +,0.17294 ,0.10168 ,3.85646 ,0.20671 ,0.03410 ,0.00000 - +,0.17714 ,0.10498 ,4.66889 ,0.23120 ,0.05986 ,0.00000 - +,0.18098 ,0.10795 ,5.37904 ,0.25515 ,0.08500 ,0.00000 - +,0.18452 ,0.11067 ,6.01227 ,0.27822 ,0.10940 ,0.00058 - +,0.18780 ,0.11316 ,6.58062 ,0.29792 ,0.13300 ,0.00904 - +,0.19087 ,0.11547 ,7.08504 ,0.31233 ,0.15568 ,0.03074 - +,0.19374 ,0.11761 ,7.54046 ,0.32687 ,0.17753 ,0.04968 - +,0.19646 ,0.11962 ,7.95427 ,0.34096 ,0.19858 ,0.06771 - +,0.19903 ,0.12151 ,8.33285 ,0.35453 ,0.21890 ,0.08522 - +,0.20146 ,0.12327 ,8.67099 ,0.36747 ,0.23829 ,0.10187 - +,0.20376 ,0.12494 ,8.97538 ,0.37984 ,0.25681 ,0.11777 - +,0.20596 ,0.12652 ,9.25952 ,0.39185 ,0.27480 ,0.13319 - +,0.20805 ,0.12800 ,9.50822 ,0.40315 ,0.29175 ,0.14773 - +,0.21004 ,0.12941 ,9.74013 ,0.41410 ,0.30817 ,0.16179 - +,0.21195 ,0.13075 ,9.94885 ,0.42454 ,0.32384 ,0.17521 - +,0.21378 ,0.13202 ,10.13945 ,0.43454 ,0.33888 ,0.18809 - +,0.21553 ,0.13323 ,10.31285 ,0.44413 ,0.35330 ,0.20044 - +,0.21721 ,0.13439 ,10.47122 ,0.45333 ,0.36715 ,0.21230/ - DATA ((F(I,11,K),I=1,6),K=1,19)/ - + 0.18210 ,0.11041 ,2.88482 ,0.17921 ,0.00771 ,0.00000 - +,0.18703 ,0.11423 ,3.68337 ,0.20163 ,0.03170 ,0.00000 - +,0.19148 ,0.11763 ,4.38239 ,0.22370 ,0.05524 ,0.00000 - +,0.19554 ,0.12069 ,4.98548 ,0.24504 ,0.07795 ,0.00000 - +,0.19927 ,0.12346 ,5.51662 ,0.26538 ,0.09977 ,0.00052 - +,0.20271 ,0.12600 ,5.98780 ,0.28256 ,0.12069 ,0.00803 - +,0.20592 ,0.12833 ,6.40103 ,0.29492 ,0.14063 ,0.02725 - +,0.20893 ,0.13049 ,6.76993 ,0.30732 ,0.15971 ,0.04390 - +,0.21176 ,0.13251 ,7.10151 ,0.31925 ,0.17797 ,0.05965 - +,0.21443 ,0.13439 ,7.40176 ,0.33066 ,0.19549 ,0.07485 - +,0.21695 ,0.13614 ,7.66668 ,0.34148 ,0.21211 ,0.08923 - +,0.21933 ,0.13779 ,7.90232 ,0.35175 ,0.22790 ,0.10289 - +,0.22159 ,0.13935 ,8.12035 ,0.36168 ,0.24316 ,0.11607 - +,0.22374 ,0.14080 ,8.30816 ,0.37095 ,0.25746 ,0.12844 - +,0.22579 ,0.14218 ,8.48169 ,0.37990 ,0.27126 ,0.14036 - +,0.22775 ,0.14348 ,8.63568 ,0.38838 ,0.28436 ,0.15169 - +,0.22961 ,0.14472 ,8.77451 ,0.39648 ,0.29689 ,0.16251 - +,0.23140 ,0.14589 ,8.89905 ,0.40419 ,0.30885 ,0.17285 - +,0.23311 ,0.14700 ,9.01118 ,0.41156 ,0.32029 ,0.18274/ - DATA ((F(I,12,K),I=1,6),K=1,19)/ - + 0.23375 ,0.15749 ,2.67263 ,0.16556 ,0.00606 ,0.00000 - +,0.23958 ,0.16130 ,3.15203 ,0.18145 ,0.02432 ,0.00000 - +,0.24477 ,0.16461 ,3.55071 ,0.19638 ,0.04142 ,0.00000 - +,0.24942 ,0.16750 ,3.87788 ,0.21021 ,0.05728 ,0.00000 - +,0.25364 ,0.17005 ,4.15206 ,0.22294 ,0.07201 ,0.00035 - +,0.25749 ,0.17234 ,4.38372 ,0.23322 ,0.08572 ,0.00533 - +,0.26103 ,0.17438 ,4.57640 ,0.24006 ,0.09845 ,0.01795 - +,0.26430 ,0.17623 ,4.73975 ,0.24679 ,0.11033 ,0.02862 - +,0.26734 ,0.17792 ,4.87917 ,0.25311 ,0.12144 ,0.03849 - +,0.27018 ,0.17946 ,4.99913 ,0.25899 ,0.13188 ,0.04784 - +,0.27282 ,0.18087 ,5.09816 ,0.26443 ,0.14159 ,0.05651 - +,0.27529 ,0.18214 ,5.18031 ,0.26945 ,0.15063 ,0.06461 - +,0.27762 ,0.18334 ,5.25258 ,0.27420 ,0.15921 ,0.07230 - +,0.27979 ,0.18442 ,5.30836 ,0.27852 ,0.16711 ,0.07939 - +,0.28185 ,0.18542 ,5.35671 ,0.28260 ,0.17461 ,0.08612 - +,0.28378 ,0.18635 ,5.39497 ,0.28637 ,0.18161 ,0.09243 - +,0.28561 ,0.18720 ,5.42570 ,0.28989 ,0.18820 ,0.09836 - +,0.28734 ,0.18799 ,5.44953 ,0.29317 ,0.19440 ,0.10396 - +,0.28899 ,0.18873 ,5.46756 ,0.29623 ,0.20023 ,0.10924/ - DATA ((F(I,13,K),I=1,6),K=1,19)/ - + 0.30545 ,0.21561 ,2.37185 ,0.14227 ,0.00440 ,0.00000 - +,0.31162 ,0.21793 ,2.59578 ,0.15185 ,0.01723 ,0.00000 - +,0.31696 ,0.21980 ,2.76521 ,0.16032 ,0.02865 ,0.00000 - +,0.32161 ,0.22125 ,2.89026 ,0.16774 ,0.03876 ,0.00000 - +,0.32568 ,0.22243 ,2.98389 ,0.17422 ,0.04779 ,0.00022 - +,0.32929 ,0.22339 ,3.05347 ,0.17903 ,0.05590 ,0.00324 - +,0.33251 ,0.22412 ,3.10213 ,0.18163 ,0.06318 ,0.01080 - +,0.33539 ,0.22469 ,3.13584 ,0.18413 ,0.06976 ,0.01700 - +,0.33799 ,0.22514 ,3.15808 ,0.18635 ,0.07574 ,0.02259 - +,0.34036 ,0.22549 ,3.17153 ,0.18830 ,0.08122 ,0.02776 - +,0.34250 ,0.22572 ,3.17572 ,0.18998 ,0.08616 ,0.03244 - +,0.34442 ,0.22586 ,3.17290 ,0.19141 ,0.09064 ,0.03672 - +,0.34619 ,0.22596 ,3.16674 ,0.19271 ,0.09480 ,0.04069 - +,0.34777 ,0.22596 ,3.15395 ,0.19376 ,0.09852 ,0.04428 - +,0.34923 ,0.22592 ,3.13912 ,0.19469 ,0.10197 ,0.04762 - +,0.35056 ,0.22583 ,3.12094 ,0.19548 ,0.10512 ,0.05069 - +,0.35177 ,0.22570 ,3.10061 ,0.19613 ,0.10801 ,0.05353 - +,0.35287 ,0.22553 ,3.07842 ,0.19668 ,0.11067 ,0.05615 - +,0.35388 ,0.22533 ,3.05488 ,0.19712 ,0.11311 ,0.05858/ - DATA ((F(I,14,K),I=1,6),K=1,19)/ - + 0.36092 ,0.24998 ,2.12809 ,0.12233 ,0.00343 ,0.00000 - +,0.36632 ,0.25027 ,2.23269 ,0.12848 ,0.01322 ,0.00000 - +,0.37080 ,0.25024 ,2.30055 ,0.13364 ,0.02164 ,0.00000 - +,0.37450 ,0.24995 ,2.34007 ,0.13792 ,0.02887 ,0.00000 - +,0.37761 ,0.24949 ,2.36061 ,0.14146 ,0.03516 ,0.00015 - +,0.38025 ,0.24889 ,2.36756 ,0.14380 ,0.04067 ,0.00225 - +,0.38246 ,0.24817 ,2.36294 ,0.14458 ,0.04549 ,0.00746 - +,0.38434 ,0.24737 ,2.35073 ,0.14529 ,0.04975 ,0.01166 - +,0.38594 ,0.24651 ,2.33317 ,0.14583 ,0.05354 ,0.01537 - +,0.38731 ,0.24561 ,2.31195 ,0.14622 ,0.05693 ,0.01875 - +,0.38844 ,0.24467 ,2.28678 ,0.14643 ,0.05993 ,0.02175 - +,0.38937 ,0.24368 ,2.25893 ,0.14651 ,0.06258 ,0.02445 - +,0.39018 ,0.24269 ,2.23060 ,0.14653 ,0.06500 ,0.02692 - +,0.39079 ,0.24166 ,2.19977 ,0.14639 ,0.06711 ,0.02911 - +,0.39131 ,0.24064 ,2.16908 ,0.14622 ,0.06904 ,0.03113 - +,0.39170 ,0.23961 ,2.13765 ,0.14596 ,0.07075 ,0.03295 - +,0.39200 ,0.23857 ,2.10616 ,0.14564 ,0.07229 ,0.03461 - +,0.39220 ,0.23753 ,2.07470 ,0.14527 ,0.07367 ,0.03613 - +,0.39232 ,0.23649 ,2.04349 ,0.14486 ,0.07491 ,0.03751/ - DATA ((F(I,15,K),I=1,6),K=1,19)/ - + 0.40698 ,0.27030 ,1.91483 ,0.10503 ,0.00275 ,0.00000 - +,0.41084 ,0.26849 ,1.95020 ,0.10900 ,0.01048 ,0.00000 - +,0.41379 ,0.26657 ,1.96157 ,0.11215 ,0.01696 ,0.00000 - +,0.41599 ,0.26455 ,1.95547 ,0.11458 ,0.02239 ,0.00000 - +,0.41766 ,0.26250 ,1.93871 ,0.11645 ,0.02700 ,0.00011 - +,0.41887 ,0.26045 ,1.91488 ,0.11742 ,0.03097 ,0.00166 - +,0.41970 ,0.25837 ,1.88527 ,0.11725 ,0.03436 ,0.00547 - +,0.42022 ,0.25630 ,1.85255 ,0.11706 ,0.03730 ,0.00850 - +,0.42051 ,0.25426 ,1.81807 ,0.11677 ,0.03986 ,0.01113 - +,0.42061 ,0.25225 ,1.78288 ,0.11639 ,0.04212 ,0.01349 - +,0.42051 ,0.25026 ,1.74664 ,0.11592 ,0.04407 ,0.01556 - +,0.42024 ,0.24829 ,1.71009 ,0.11537 ,0.04577 ,0.01740 - +,0.41989 ,0.24638 ,1.67460 ,0.11481 ,0.04729 ,0.01906 - +,0.41937 ,0.24447 ,1.63864 ,0.11416 ,0.04857 ,0.02052 - +,0.41879 ,0.24262 ,1.60392 ,0.11350 ,0.04973 ,0.02184 - +,0.41811 ,0.24080 ,1.56977 ,0.11280 ,0.05072 ,0.02301 - +,0.41737 ,0.23901 ,1.53654 ,0.11209 ,0.05160 ,0.02407 - +,0.41657 ,0.23726 ,1.50420 ,0.11136 ,0.05237 ,0.02502 - +,0.41572 ,0.23555 ,1.47284 ,0.11062 ,0.05304 ,0.02588/ - DATA ((F(I,16,K),I=1,6),K=1,19)/ - + 0.44552 ,0.28091 ,1.72366 ,0.08995 ,0.00224 ,0.00000 - +,0.44730 ,0.27713 ,1.71541 ,0.09246 ,0.00845 ,0.00000 - +,0.44828 ,0.27344 ,1.69266 ,0.09430 ,0.01355 ,0.00000 - +,0.44861 ,0.26986 ,1.66020 ,0.09557 ,0.01774 ,0.00000 - +,0.44851 ,0.26638 ,1.62283 ,0.09641 ,0.02123 ,0.00008 - +,0.44803 ,0.26304 ,1.58287 ,0.09658 ,0.02417 ,0.00126 - +,0.44724 ,0.25978 ,1.54093 ,0.09590 ,0.02663 ,0.00414 - +,0.44622 ,0.25663 ,1.49874 ,0.09523 ,0.02874 ,0.00640 - +,0.44504 ,0.25357 ,1.45708 ,0.09452 ,0.03054 ,0.00834 - +,0.44373 ,0.25063 ,1.41649 ,0.09376 ,0.03210 ,0.01005 - +,0.44228 ,0.24777 ,1.37658 ,0.09295 ,0.03341 ,0.01154 - +,0.44072 ,0.24500 ,1.33774 ,0.09212 ,0.03453 ,0.01284 - +,0.43913 ,0.24233 ,1.30079 ,0.09129 ,0.03552 ,0.01401 - +,0.43741 ,0.23972 ,1.26453 ,0.09041 ,0.03633 ,0.01501 - +,0.43569 ,0.23720 ,1.23008 ,0.08955 ,0.03704 ,0.01592 - +,0.43392 ,0.23476 ,1.19686 ,0.08869 ,0.03764 ,0.01671 - +,0.43212 ,0.23238 ,1.16505 ,0.08782 ,0.03815 ,0.01742 - +,0.43030 ,0.23008 ,1.13455 ,0.08696 ,0.03858 ,0.01805 - +,0.42847 ,0.22784 ,1.10535 ,0.08611 ,0.03895 ,0.01860/ - DATA ((F(I,17,K),I=1,6),K=1,19)/ - + 0.48435 ,0.28436 ,1.50979 ,0.07379 ,0.00177 ,0.00001 - +,0.48302 ,0.27839 ,1.46778 ,0.07511 ,0.00656 ,0.00001 - +,0.48114 ,0.27280 ,1.41998 ,0.07590 ,0.01042 ,0.00001 - +,0.47881 ,0.26753 ,1.36938 ,0.07629 ,0.01350 ,0.00001 - +,0.47623 ,0.26257 ,1.31874 ,0.07637 ,0.01603 ,0.00007 - +,0.47346 ,0.25788 ,1.26927 ,0.07598 ,0.01811 ,0.00093 - +,0.47051 ,0.25341 ,1.22091 ,0.07500 ,0.01981 ,0.00301 - +,0.46744 ,0.24916 ,1.17451 ,0.07405 ,0.02124 ,0.00463 - +,0.46432 ,0.24512 ,1.13039 ,0.07310 ,0.02243 ,0.00599 - +,0.46119 ,0.24126 ,1.08866 ,0.07215 ,0.02344 ,0.00718 - +,0.45802 ,0.23757 ,1.04884 ,0.07119 ,0.02426 ,0.00819 - +,0.45482 ,0.23401 ,1.01102 ,0.07022 ,0.02495 ,0.00907 - +,0.45170 ,0.23063 ,0.97564 ,0.06928 ,0.02554 ,0.00986 - +,0.44851 ,0.22737 ,0.94172 ,0.06834 ,0.02600 ,0.01051 - +,0.44539 ,0.22424 ,0.90992 ,0.06742 ,0.02640 ,0.01109 - +,0.44229 ,0.22123 ,0.87976 ,0.06651 ,0.02672 ,0.01160 - +,0.43921 ,0.21833 ,0.85124 ,0.06562 ,0.02697 ,0.01204 - +,0.43618 ,0.21553 ,0.82423 ,0.06475 ,0.02717 ,0.01243 - +,0.43318 ,0.21283 ,0.79867 ,0.06390 ,0.02733 ,0.01277/ - DATA ((F(I,18,K),I=1,6),K=1,19)/ - + 0.51323 ,0.27987 ,1.31956 ,0.06023 ,0.00140 ,0.00000 - +,0.50850 ,0.27209 ,1.25793 ,0.06079 ,0.00515 ,0.00001 - +,0.50353 ,0.26496 ,1.19678 ,0.06097 ,0.00808 ,0.00000 - +,0.49841 ,0.25836 ,1.13748 ,0.06084 ,0.01040 ,0.00000 - +,0.49324 ,0.25225 ,1.08142 ,0.06051 ,0.01225 ,0.00006 - +,0.48810 ,0.24657 ,1.02890 ,0.05985 ,0.01374 ,0.00069 - +,0.48296 ,0.24120 ,0.97940 ,0.05878 ,0.01494 ,0.00223 - +,0.47787 ,0.23614 ,0.93319 ,0.05775 ,0.01592 ,0.00340 - +,0.47287 ,0.23137 ,0.89021 ,0.05674 ,0.01672 ,0.00438 - +,0.46799 ,0.22687 ,0.85034 ,0.05575 ,0.01739 ,0.00522 - +,0.46315 ,0.22259 ,0.81300 ,0.05478 ,0.01792 ,0.00594 - +,0.45841 ,0.21852 ,0.77813 ,0.05382 ,0.01834 ,0.00654 - +,0.45383 ,0.21466 ,0.74587 ,0.05290 ,0.01869 ,0.00707 - +,0.44928 ,0.21094 ,0.71543 ,0.05199 ,0.01895 ,0.00751 - +,0.44489 ,0.20741 ,0.68717 ,0.05111 ,0.01917 ,0.00790 - +,0.44057 ,0.20404 ,0.66067 ,0.05026 ,0.01933 ,0.00823 - +,0.43635 ,0.20080 ,0.63585 ,0.04943 ,0.01945 ,0.00852 - +,0.43222 ,0.19770 ,0.61256 ,0.04862 ,0.01953 ,0.00876 - +,0.42819 ,0.19473 ,0.59070 ,0.04784 ,0.01958 ,0.00897/ - DATA ((F(I,19,K),I=1,6),K=1,19)/ - + 0.53266 ,0.26968 ,1.14995 ,0.04889 ,0.00110 ,0.00000 - +,0.52442 ,0.26051 ,1.07765 ,0.04899 ,0.00404 ,0.00001 - +,0.51635 ,0.25221 ,1.01027 ,0.04879 ,0.00630 ,0.00001 - +,0.50843 ,0.24463 ,0.94792 ,0.04839 ,0.00805 ,0.00000 - +,0.50076 ,0.23768 ,0.89096 ,0.04785 ,0.00942 ,0.00004 - +,0.49337 ,0.23127 ,0.83898 ,0.04708 ,0.01051 ,0.00052 - +,0.48615 ,0.22529 ,0.79115 ,0.04602 ,0.01136 ,0.00167 - +,0.47915 ,0.21968 ,0.74733 ,0.04501 ,0.01205 ,0.00253 - +,0.47241 ,0.21444 ,0.70721 ,0.04404 ,0.01259 ,0.00324 - +,0.46591 ,0.20953 ,0.67052 ,0.04311 ,0.01302 ,0.00385 - +,0.45958 ,0.20488 ,0.63667 ,0.04219 ,0.01337 ,0.00435 - +,0.45345 ,0.20049 ,0.60543 ,0.04131 ,0.01363 ,0.00478 - +,0.44758 ,0.19635 ,0.57680 ,0.04046 ,0.01384 ,0.00515 - +,0.44183 ,0.19239 ,0.55013 ,0.03963 ,0.01398 ,0.00545 - +,0.43630 ,0.18865 ,0.52556 ,0.03884 ,0.01409 ,0.00571 - +,0.43092 ,0.18509 ,0.50271 ,0.03808 ,0.01416 ,0.00593 - +,0.42572 ,0.18169 ,0.48148 ,0.03734 ,0.01420 ,0.00611 - +,0.42067 ,0.17844 ,0.46172 ,0.03663 ,0.01421 ,0.00627 - +,0.41577 ,0.17533 ,0.44330 ,0.03595 ,0.01421 ,0.00640/ - DATA ((F(I,20,K),I=1,6),K=1,19)/ - + 0.54331 ,0.25545 ,0.99875 ,0.03944 ,0.00088 ,0.00000 - +,0.53165 ,0.24527 ,0.92171 ,0.03926 ,0.00318 ,0.00001 - +,0.52059 ,0.23615 ,0.85264 ,0.03887 ,0.00493 ,0.00001 - +,0.51003 ,0.22792 ,0.79070 ,0.03833 ,0.00625 ,0.00000 - +,0.50003 ,0.22043 ,0.73545 ,0.03771 ,0.00727 ,0.00003 - +,0.49055 ,0.21357 ,0.68602 ,0.03692 ,0.00807 ,0.00040 - +,0.48144 ,0.20722 ,0.64135 ,0.03593 ,0.00868 ,0.00125 - +,0.47274 ,0.20131 ,0.60103 ,0.03501 ,0.00916 ,0.00189 - +,0.46444 ,0.19581 ,0.56459 ,0.03412 ,0.00953 ,0.00241 - +,0.45653 ,0.19069 ,0.53164 ,0.03327 ,0.00981 ,0.00286 - +,0.44890 ,0.18587 ,0.50158 ,0.03246 ,0.01003 ,0.00322 - +,0.44158 ,0.18134 ,0.47413 ,0.03167 ,0.01019 ,0.00352 - +,0.43461 ,0.17709 ,0.44916 ,0.03092 ,0.01031 ,0.00378 - +,0.42784 ,0.17304 ,0.42614 ,0.03020 ,0.01037 ,0.00398 - +,0.42138 ,0.16923 ,0.40507 ,0.02951 ,0.01042 ,0.00416 - +,0.41514 ,0.16561 ,0.38563 ,0.02885 ,0.01044 ,0.00431 - +,0.40913 ,0.16217 ,0.36769 ,0.02822 ,0.01044 ,0.00443 - +,0.40334 ,0.15890 ,0.35110 ,0.02761 ,0.01042 ,0.00453 - +,0.39775 ,0.15579 ,0.33573 ,0.02703 ,0.01039 ,0.00461/ - DATA ((F(I,21,K),I=1,6),K=1,19)/ - + 0.54592 ,0.23847 ,0.86412 ,0.03162 ,0.00069 ,0.00000 - +,0.53104 ,0.22765 ,0.78633 ,0.03129 ,0.00250 ,0.00000 - +,0.51719 ,0.21805 ,0.71854 ,0.03081 ,0.00386 ,0.00000 - +,0.50425 ,0.20944 ,0.65912 ,0.03023 ,0.00486 ,0.00000 - +,0.49217 ,0.20167 ,0.60715 ,0.02959 ,0.00562 ,0.00002 - +,0.48083 ,0.19461 ,0.56135 ,0.02885 ,0.00621 ,0.00029 - +,0.47011 ,0.18810 ,0.52057 ,0.02797 ,0.00664 ,0.00094 - +,0.45994 ,0.18209 ,0.48422 ,0.02714 ,0.00698 ,0.00142 - +,0.45031 ,0.17652 ,0.45175 ,0.02636 ,0.00723 ,0.00180 - +,0.44120 ,0.17136 ,0.42266 ,0.02562 ,0.00741 ,0.00212 - +,0.43250 ,0.16653 ,0.39638 ,0.02491 ,0.00755 ,0.00238 - +,0.42421 ,0.16200 ,0.37258 ,0.02423 ,0.00764 ,0.00260 - +,0.41636 ,0.15776 ,0.35109 ,0.02359 ,0.00770 ,0.00278 - +,0.40877 ,0.15375 ,0.33144 ,0.02298 ,0.00773 ,0.00293 - +,0.40157 ,0.14999 ,0.31357 ,0.02240 ,0.00774 ,0.00305 - +,0.39465 ,0.14643 ,0.29719 ,0.02184 ,0.00773 ,0.00314 - +,0.38803 ,0.14306 ,0.28218 ,0.02131 ,0.00771 ,0.00322 - +,0.38168 ,0.13986 ,0.26839 ,0.02080 ,0.00767 ,0.00329 - +,0.37557 ,0.13683 ,0.25567 ,0.02031 ,0.00763 ,0.00334/ - DATA ((F(I,22,K),I=1,6),K=1,19)/ - + 0.54104 ,0.21971 ,0.74449 ,0.02516 ,0.00055 ,0.00000 - +,0.52327 ,0.20857 ,0.66860 ,0.02476 ,0.00198 ,0.00000 - +,0.50696 ,0.19878 ,0.60396 ,0.02426 ,0.00302 ,0.00000 - +,0.49195 ,0.19006 ,0.54843 ,0.02369 ,0.00378 ,0.00000 - +,0.47807 ,0.18225 ,0.50054 ,0.02309 ,0.00435 ,0.00002 - +,0.46519 ,0.17518 ,0.45894 ,0.02241 ,0.00477 ,0.00023 - +,0.45310 ,0.16870 ,0.42236 ,0.02165 ,0.00508 ,0.00072 - +,0.44175 ,0.16275 ,0.39012 ,0.02093 ,0.00531 ,0.00107 - +,0.43106 ,0.15726 ,0.36159 ,0.02026 ,0.00548 ,0.00135 - +,0.42101 ,0.15220 ,0.33624 ,0.01963 ,0.00560 ,0.00158 - +,0.41153 ,0.14747 ,0.31353 ,0.01902 ,0.00568 ,0.00178 - +,0.40249 ,0.14306 ,0.29314 ,0.01845 ,0.00573 ,0.00193 - +,0.39396 ,0.13896 ,0.27485 ,0.01792 ,0.00575 ,0.00205 - +,0.38580 ,0.13508 ,0.25823 ,0.01740 ,0.00576 ,0.00215 - +,0.37807 ,0.13146 ,0.24321 ,0.01692 ,0.00575 ,0.00224 - +,0.37069 ,0.12804 ,0.22954 ,0.01646 ,0.00573 ,0.00230 - +,0.36365 ,0.12481 ,0.21707 ,0.01602 ,0.00570 ,0.00235 - +,0.35692 ,0.12176 ,0.20567 ,0.01560 ,0.00566 ,0.00239 - +,0.35047 ,0.11887 ,0.19521 ,0.01520 ,0.00561 ,0.00242/ - DATA ((F(I,23,K),I=1,6),K=1,19)/ - + 0.52960 ,0.20003 ,0.63844 ,0.01988 ,0.00044 ,0.00000 - +,0.50933 ,0.18887 ,0.56630 ,0.01946 ,0.00155 ,0.00000 - +,0.49096 ,0.17912 ,0.50599 ,0.01898 ,0.00235 ,0.00000 - +,0.47423 ,0.17051 ,0.45502 ,0.01845 ,0.00293 ,0.00000 - +,0.45891 ,0.16283 ,0.41167 ,0.01791 ,0.00335 ,0.00001 - +,0.44480 ,0.15593 ,0.37445 ,0.01732 ,0.00366 ,0.00017 - +,0.43165 ,0.14962 ,0.34209 ,0.01667 ,0.00388 ,0.00054 - +,0.41939 ,0.14387 ,0.31385 ,0.01606 ,0.00404 ,0.00081 - +,0.40792 ,0.13858 ,0.28907 ,0.01550 ,0.00415 ,0.00101 - +,0.39720 ,0.13372 ,0.26724 ,0.01497 ,0.00423 ,0.00118 - +,0.38713 ,0.12920 ,0.24782 ,0.01446 ,0.00427 ,0.00132 - +,0.37758 ,0.12500 ,0.23052 ,0.01399 ,0.00429 ,0.00143 - +,0.36861 ,0.12110 ,0.21510 ,0.01355 ,0.00430 ,0.00152 - +,0.36007 ,0.11744 ,0.20118 ,0.01313 ,0.00429 ,0.00158 - +,0.35201 ,0.11401 ,0.18866 ,0.01273 ,0.00428 ,0.00164 - +,0.34434 ,0.11080 ,0.17733 ,0.01235 ,0.00425 ,0.00169 - +,0.33705 ,0.10777 ,0.16706 ,0.01200 ,0.00422 ,0.00172 - +,0.33011 ,0.10492 ,0.15770 ,0.01166 ,0.00417 ,0.00174 - +,0.32348 ,0.10222 ,0.14916 ,0.01134 ,0.00413 ,0.00176/ - DATA ((F(I,24,K),I=1,6),K=1,19)/ - + 0.51234 ,0.18003 ,0.54470 ,0.01557 ,0.00035 ,0.00001 - +,0.48999 ,0.16910 ,0.47746 ,0.01518 ,0.00121 ,0.00001 - +,0.47004 ,0.15961 ,0.42214 ,0.01473 ,0.00183 ,0.00001 - +,0.45196 ,0.15128 ,0.37611 ,0.01426 ,0.00227 ,0.00001 - +,0.43554 ,0.14389 ,0.33741 ,0.01379 ,0.00258 ,0.00001 - +,0.42052 ,0.13727 ,0.30457 ,0.01329 ,0.00280 ,0.00013 - +,0.40665 ,0.13127 ,0.27628 ,0.01274 ,0.00296 ,0.00041 - +,0.39375 ,0.12581 ,0.25181 ,0.01224 ,0.00307 ,0.00060 - +,0.38178 ,0.12081 ,0.23052 ,0.01177 ,0.00314 ,0.00076 - +,0.37064 ,0.11623 ,0.21189 ,0.01134 ,0.00319 ,0.00088 - +,0.36019 ,0.11200 ,0.19547 ,0.01092 ,0.00321 ,0.00098 - +,0.35037 ,0.10807 ,0.18091 ,0.01054 ,0.00322 ,0.00106 - +,0.34118 ,0.10444 ,0.16801 ,0.01018 ,0.00321 ,0.00112 - +,0.33246 ,0.10104 ,0.15646 ,0.00984 ,0.00320 ,0.00117 - +,0.32425 ,0.09787 ,0.14612 ,0.00952 ,0.00317 ,0.00120 - +,0.31645 ,0.09489 ,0.13681 ,0.00922 ,0.00314 ,0.00123 - +,0.30908 ,0.09211 ,0.12840 ,0.00893 ,0.00311 ,0.00125 - +,0.30210 ,0.08949 ,0.12078 ,0.00866 ,0.00308 ,0.00127 - +,0.29545 ,0.08701 ,0.11386 ,0.00840 ,0.00304 ,0.00128/ - DATA ((F(I,25,K),I=1,6),K=1,19)/ - + 0.49013 ,0.16027 ,0.46222 ,0.01209 ,0.00027 ,0.00001 - +,0.46623 ,0.14976 ,0.40054 ,0.01174 ,0.00094 ,0.00001 - +,0.44507 ,0.14070 ,0.35056 ,0.01134 ,0.00142 ,0.00001 - +,0.42605 ,0.13278 ,0.30951 ,0.01093 ,0.00174 ,0.00001 - +,0.40891 ,0.12580 ,0.27539 ,0.01053 ,0.00197 ,0.00001 - +,0.39332 ,0.11958 ,0.24673 ,0.01011 ,0.00214 ,0.00010 - +,0.37901 ,0.11396 ,0.22228 ,0.00966 ,0.00224 ,0.00031 - +,0.36578 ,0.10887 ,0.20130 ,0.00925 ,0.00232 ,0.00045 - +,0.35355 ,0.10423 ,0.18319 ,0.00887 ,0.00236 ,0.00056 - +,0.34222 ,0.09999 ,0.16746 ,0.00852 ,0.00239 ,0.00065 - +,0.33165 ,0.09609 ,0.15368 ,0.00819 ,0.00240 ,0.00073 - +,0.32175 ,0.09248 ,0.14155 ,0.00788 ,0.00240 ,0.00078 - +,0.31252 ,0.08915 ,0.13085 ,0.00759 ,0.00239 ,0.00082 - +,0.30379 ,0.08604 ,0.12133 ,0.00732 ,0.00237 ,0.00086 - +,0.29560 ,0.08316 ,0.11286 ,0.00706 ,0.00234 ,0.00088 - +,0.28785 ,0.08046 ,0.10526 ,0.00683 ,0.00232 ,0.00090 - +,0.28055 ,0.07793 ,0.09843 ,0.00660 ,0.00229 ,0.00091 - +,0.27365 ,0.07556 ,0.09227 ,0.00639 ,0.00226 ,0.00092 - +,0.26709 ,0.07333 ,0.08670 ,0.00618 ,0.00222 ,0.00093/ - DATA ((F(I,26,K),I=1,6),K=1,19)/ - + 0.46386 ,0.14115 ,0.38994 ,0.00932 ,0.00021 ,0.00000 - +,0.43892 ,0.13122 ,0.33415 ,0.00900 ,0.00073 ,0.00000 - +,0.41695 ,0.12272 ,0.28960 ,0.00867 ,0.00108 ,0.00000 - +,0.39740 ,0.11532 ,0.25342 ,0.00833 ,0.00133 ,0.00000 - +,0.37991 ,0.10884 ,0.22368 ,0.00798 ,0.00150 ,0.00000 - +,0.36409 ,0.10309 ,0.19892 ,0.00764 ,0.00161 ,0.00007 - +,0.34959 ,0.09792 ,0.17802 ,0.00728 ,0.00169 ,0.00023 - +,0.33630 ,0.09325 ,0.16021 ,0.00695 ,0.00174 ,0.00033 - +,0.32407 ,0.08901 ,0.14495 ,0.00664 ,0.00177 ,0.00041 - +,0.31278 ,0.08515 ,0.13178 ,0.00636 ,0.00178 ,0.00048 - +,0.30228 ,0.08160 ,0.12033 ,0.00610 ,0.00178 ,0.00053 - +,0.29249 ,0.07834 ,0.11031 ,0.00585 ,0.00177 ,0.00057 - +,0.28338 ,0.07533 ,0.10152 ,0.00563 ,0.00176 ,0.00060 - +,0.27480 ,0.07254 ,0.09373 ,0.00541 ,0.00174 ,0.00062 - +,0.26678 ,0.06995 ,0.08684 ,0.00521 ,0.00172 ,0.00064 - +,0.25924 ,0.06754 ,0.08069 ,0.00502 ,0.00170 ,0.00065 - +,0.25212 ,0.06528 ,0.07519 ,0.00485 ,0.00167 ,0.00066 - +,0.24540 ,0.06317 ,0.07024 ,0.00468 ,0.00164 ,0.00066 - +,0.23905 ,0.06119 ,0.06579 ,0.00453 ,0.00162 ,0.00067/ - DATA ((F(I,27,K),I=1,6),K=1,19)/ - + 0.43434 ,0.12293 ,0.32683 ,0.00709 ,0.00016 ,0.00000 - +,0.40883 ,0.11371 ,0.27702 ,0.00683 ,0.00056 ,0.00000 - +,0.38652 ,0.10586 ,0.23776 ,0.00655 ,0.00082 ,0.00000 - +,0.36681 ,0.09906 ,0.20625 ,0.00626 ,0.00101 ,0.00000 - +,0.34927 ,0.09314 ,0.18061 ,0.00599 ,0.00113 ,0.00000 - +,0.33349 ,0.08790 ,0.15946 ,0.00571 ,0.00121 ,0.00005 - +,0.31910 ,0.08322 ,0.14175 ,0.00542 ,0.00126 ,0.00017 - +,0.30599 ,0.07900 ,0.12679 ,0.00516 ,0.00130 ,0.00024 - +,0.29396 ,0.07519 ,0.11405 ,0.00492 ,0.00131 ,0.00030 - +,0.28290 ,0.07173 ,0.10314 ,0.00470 ,0.00132 ,0.00035 - +,0.27266 ,0.06855 ,0.09370 ,0.00449 ,0.00131 ,0.00038 - +,0.26314 ,0.06564 ,0.08550 ,0.00430 ,0.00130 ,0.00041 - +,0.25432 ,0.06298 ,0.07834 ,0.00412 ,0.00129 ,0.00044 - +,0.24603 ,0.06050 ,0.07203 ,0.00396 ,0.00128 ,0.00045 - +,0.23831 ,0.05821 ,0.06647 ,0.00380 ,0.00126 ,0.00046 - +,0.23107 ,0.05608 ,0.06153 ,0.00366 ,0.00124 ,0.00047 - +,0.22426 ,0.05410 ,0.05713 ,0.00352 ,0.00121 ,0.00047 - +,0.21784 ,0.05224 ,0.05320 ,0.00340 ,0.00119 ,0.00048 - +,0.21179 ,0.05051 ,0.04967 ,0.00328 ,0.00117 ,0.00048/ - DATA ((F(I,28,K),I=1,6),K=1,19)/ - + 0.40246 ,0.10589 ,0.27204 ,0.00535 ,0.00012 ,-0.00001 - +,0.37683 ,0.09746 ,0.22809 ,0.00513 ,0.00042 ,-0.00001 - +,0.35463 ,0.09032 ,0.19390 ,0.00489 ,0.00062 ,-0.00001 - +,0.33509 ,0.08417 ,0.16675 ,0.00467 ,0.00075 ,0.00000 - +,0.31778 ,0.07883 ,0.14489 ,0.00445 ,0.00084 ,0.00000 - +,0.30232 ,0.07414 ,0.12701 ,0.00423 ,0.00090 ,0.00003 - +,0.28830 ,0.06995 ,0.11216 ,0.00400 ,0.00094 ,0.00012 - +,0.27554 ,0.06620 ,0.09971 ,0.00380 ,0.00096 ,0.00018 - +,0.26391 ,0.06282 ,0.08919 ,0.00361 ,0.00097 ,0.00022 - +,0.25326 ,0.05976 ,0.08022 ,0.00344 ,0.00097 ,0.00026 - +,0.24342 ,0.05697 ,0.07252 ,0.00328 ,0.00097 ,0.00028 - +,0.23431 ,0.05442 ,0.06586 ,0.00313 ,0.00095 ,0.00030 - +,0.22590 ,0.05208 ,0.06008 ,0.00300 ,0.00094 ,0.00031 - +,0.21802 ,0.04991 ,0.05501 ,0.00287 ,0.00093 ,0.00032 - +,0.21070 ,0.04792 ,0.05057 ,0.00275 ,0.00091 ,0.00033 - +,0.20386 ,0.04607 ,0.04664 ,0.00264 ,0.00089 ,0.00033 - +,0.19744 ,0.04435 ,0.04316 ,0.00254 ,0.00087 ,0.00034 - +,0.19142 ,0.04275 ,0.04005 ,0.00244 ,0.00086 ,0.00034 - +,0.18574 ,0.04125 ,0.03728 ,0.00235 ,0.00084 ,0.00034/ - DATA ((F(I,29,K),I=1,6),K=1,19)/ - + 0.36892 ,0.09015 ,0.22471 ,0.00398 ,0.00009 ,-0.00001 - +,0.34362 ,0.08256 ,0.18639 ,0.00380 ,0.00031 ,0.00000 - +,0.32186 ,0.07616 ,0.15694 ,0.00361 ,0.00046 ,-0.00001 - +,0.30282 ,0.07068 ,0.13381 ,0.00343 ,0.00056 ,0.00000 - +,0.28605 ,0.06595 ,0.11536 ,0.00326 ,0.00062 ,0.00000 - +,0.27114 ,0.06180 ,0.10041 ,0.00309 ,0.00066 ,0.00002 - +,0.25768 ,0.05812 ,0.08808 ,0.00292 ,0.00069 ,0.00009 - +,0.24549 ,0.05483 ,0.07783 ,0.00276 ,0.00070 ,0.00013 - +,0.23441 ,0.05188 ,0.06922 ,0.00262 ,0.00070 ,0.00016 - +,0.22431 ,0.04922 ,0.06193 ,0.00249 ,0.00070 ,0.00018 - +,0.21501 ,0.04679 ,0.05571 ,0.00237 ,0.00070 ,0.00020 - +,0.20643 ,0.04458 ,0.05036 ,0.00225 ,0.00069 ,0.00021 - +,0.19853 ,0.04257 ,0.04573 ,0.00215 ,0.00068 ,0.00022 - +,0.19115 ,0.04070 ,0.04171 ,0.00205 ,0.00066 ,0.00023 - +,0.18432 ,0.03899 ,0.03819 ,0.00197 ,0.00065 ,0.00023 - +,0.17795 ,0.03741 ,0.03509 ,0.00188 ,0.00064 ,0.00024 - +,0.17199 ,0.03594 ,0.03236 ,0.00181 ,0.00062 ,0.00024 - +,0.16641 ,0.03457 ,0.02993 ,0.00173 ,0.00061 ,0.00024 - +,0.16116 ,0.03330 ,0.02777 ,0.00167 ,0.00059 ,0.00024/ - DATA ((F(I,30,K),I=1,6),K=1,19)/ - + 0.33453 ,0.07584 ,0.18408 ,0.00293 ,0.00007 ,0.00000 - +,0.30998 ,0.06910 ,0.15107 ,0.00279 ,0.00024 ,0.00000 - +,0.28897 ,0.06345 ,0.12599 ,0.00264 ,0.00035 ,0.00000 - +,0.27070 ,0.05865 ,0.10649 ,0.00250 ,0.00041 ,-0.00001 - +,0.25470 ,0.05452 ,0.09110 ,0.00237 ,0.00046 ,0.00000 - +,0.24054 ,0.05091 ,0.07873 ,0.00224 ,0.00049 ,0.00002 - +,0.22782 ,0.04772 ,0.06861 ,0.00211 ,0.00050 ,0.00006 - +,0.21635 ,0.04488 ,0.06025 ,0.00199 ,0.00051 ,0.00009 - +,0.20597 ,0.04233 ,0.05328 ,0.00188 ,0.00051 ,0.00011 - +,0.19652 ,0.04005 ,0.04742 ,0.00178 ,0.00050 ,0.00013 - +,0.18786 ,0.03797 ,0.04244 ,0.00169 ,0.00050 ,0.00014 - +,0.17989 ,0.03609 ,0.03818 ,0.00160 ,0.00049 ,0.00015 - +,0.17258 ,0.03437 ,0.03452 ,0.00153 ,0.00048 ,0.00016 - +,0.16578 ,0.03279 ,0.03136 ,0.00146 ,0.00047 ,0.00016 - +,0.15950 ,0.03135 ,0.02860 ,0.00139 ,0.00046 ,0.00016 - +,0.15363 ,0.03002 ,0.02619 ,0.00133 ,0.00045 ,0.00017 - +,0.14818 ,0.02878 ,0.02407 ,0.00127 ,0.00044 ,0.00017 - +,0.14309 ,0.02762 ,0.02219 ,0.00122 ,0.00043 ,0.00017 - +,0.13832 ,0.02655 ,0.02053 ,0.00117 ,0.00042 ,0.00016/ - DATA ((F(I,31,K),I=1,6),K=1,19)/ - + 0.29991 ,0.06298 ,0.14942 ,0.00212 ,0.00005 ,0.00000 - +,0.27645 ,0.05710 ,0.12131 ,0.00201 ,0.00017 ,0.00000 - +,0.25649 ,0.05219 ,0.10020 ,0.00190 ,0.00025 ,0.00000 - +,0.23924 ,0.04804 ,0.08397 ,0.00179 ,0.00030 ,0.00000 - +,0.22421 ,0.04448 ,0.07127 ,0.00169 ,0.00033 ,0.00000 - +,0.21096 ,0.04139 ,0.06115 ,0.00159 ,0.00035 ,0.00001 - +,0.19912 ,0.03867 ,0.05293 ,0.00149 ,0.00036 ,0.00004 - +,0.18849 ,0.03625 ,0.04620 ,0.00140 ,0.00036 ,0.00006 - +,0.17889 ,0.03409 ,0.04062 ,0.00132 ,0.00036 ,0.00008 - +,0.17020 ,0.03216 ,0.03595 ,0.00125 ,0.00036 ,0.00009 - +,0.16225 ,0.03041 ,0.03202 ,0.00118 ,0.00035 ,0.00010 - +,0.15496 ,0.02883 ,0.02867 ,0.00112 ,0.00035 ,0.00010 - +,0.14829 ,0.02739 ,0.02581 ,0.00107 ,0.00034 ,0.00011 - +,0.14212 ,0.02607 ,0.02334 ,0.00102 ,0.00033 ,0.00011 - +,0.13641 ,0.02487 ,0.02121 ,0.00097 ,0.00032 ,0.00011 - +,0.13111 ,0.02376 ,0.01935 ,0.00092 ,0.00032 ,0.00012 - +,0.12619 ,0.02274 ,0.01772 ,0.00088 ,0.00031 ,0.00011 - +,0.12161 ,0.02178 ,0.01629 ,0.00084 ,0.00030 ,0.00011 - +,0.11733 ,0.02090 ,0.01502 ,0.00081 ,0.00029 ,0.00011/ - DATA ((F(I,32,K),I=1,6),K=1,19)/ - + 0.26573 ,0.05160 ,0.12006 ,0.00151 ,0.00004 ,0.00000 - +,0.24365 ,0.04653 ,0.09642 ,0.00143 ,0.00013 ,0.00000 - +,0.22497 ,0.04234 ,0.07887 ,0.00135 ,0.00018 ,0.00000 - +,0.20892 ,0.03881 ,0.06552 ,0.00127 ,0.00022 ,0.00000 - +,0.19501 ,0.03579 ,0.05516 ,0.00119 ,0.00024 ,0.00000 - +,0.18281 ,0.03318 ,0.04698 ,0.00112 ,0.00025 ,0.00001 - +,0.17195 ,0.03089 ,0.04040 ,0.00105 ,0.00026 ,0.00003 - +,0.16222 ,0.02888 ,0.03503 ,0.00098 ,0.00026 ,0.00005 - +,0.15349 ,0.02708 ,0.03063 ,0.00092 ,0.00026 ,0.00006 - +,0.14561 ,0.02547 ,0.02697 ,0.00087 ,0.00025 ,0.00007 - +,0.13841 ,0.02402 ,0.02389 ,0.00082 ,0.00025 ,0.00007 - +,0.13185 ,0.02271 ,0.02130 ,0.00077 ,0.00024 ,0.00008 - +,0.12587 ,0.02153 ,0.01909 ,0.00073 ,0.00024 ,0.00008 - +,0.12034 ,0.02044 ,0.01719 ,0.00070 ,0.00023 ,0.00008 - +,0.11524 ,0.01945 ,0.01555 ,0.00066 ,0.00023 ,0.00008 - +,0.11052 ,0.01854 ,0.01413 ,0.00063 ,0.00022 ,0.00008 - +,0.10615 ,0.01770 ,0.01290 ,0.00060 ,0.00022 ,0.00008 - +,0.10208 ,0.01693 ,0.01181 ,0.00057 ,0.00021 ,0.00008 - +,0.09828 ,0.01621 ,0.01086 ,0.00055 ,0.00020 ,0.00008/ - DATA ((F(I,33,K),I=1,6),K=1,19)/ - + 0.23252 ,0.04167 ,0.09543 ,0.00106 ,0.00003 ,0.00000 - +,0.21206 ,0.03739 ,0.07580 ,0.00100 ,0.00009 ,0.00000 - +,0.19486 ,0.03386 ,0.06140 ,0.00094 ,0.00013 ,0.00000 - +,0.18016 ,0.03091 ,0.05055 ,0.00088 ,0.00015 ,0.00000 - +,0.16748 ,0.02839 ,0.04222 ,0.00083 ,0.00017 ,0.00000 - +,0.15641 ,0.02623 ,0.03570 ,0.00077 ,0.00018 ,0.00001 - +,0.14661 ,0.02433 ,0.03048 ,0.00072 ,0.00018 ,0.00001 - +,0.13787 ,0.02266 ,0.02627 ,0.00068 ,0.00018 ,0.00002 - +,0.13004 ,0.02119 ,0.02283 ,0.00063 ,0.00018 ,0.00004 - +,0.12300 ,0.01987 ,0.01999 ,0.00059 ,0.00018 ,0.00004 - +,0.11660 ,0.01869 ,0.01762 ,0.00056 ,0.00017 ,0.00004 - +,0.11077 ,0.01762 ,0.01562 ,0.00053 ,0.00016 ,0.00005 - +,0.10547 ,0.01666 ,0.01394 ,0.00050 ,0.00016 ,0.00005 - +,0.10059 ,0.01578 ,0.01250 ,0.00047 ,0.00015 ,0.00005 - +,0.09610 ,0.01499 ,0.01127 ,0.00045 ,0.00015 ,0.00005 - +,0.09196 ,0.01426 ,0.01020 ,0.00043 ,0.00015 ,0.00005 - +,0.08813 ,0.01358 ,0.00928 ,0.00040 ,0.00014 ,0.00005 - +,0.08458 ,0.01296 ,0.00847 ,0.00039 ,0.00014 ,0.00005 - +,0.08127 ,0.01239 ,0.00776 ,0.00037 ,0.00013 ,0.00005/ - DATA ((F(I,34,K),I=1,6),K=1,19)/ - + 0.20078 ,0.03312 ,0.07492 ,0.00073 ,0.00002 ,0.00000 - +,0.18212 ,0.02956 ,0.05885 ,0.00069 ,0.00006 ,0.00000 - +,0.16652 ,0.02664 ,0.04719 ,0.00064 ,0.00009 ,0.00000 - +,0.15327 ,0.02422 ,0.03850 ,0.00060 ,0.00011 ,0.00000 - +,0.14190 ,0.02215 ,0.03189 ,0.00056 ,0.00012 ,0.00000 - +,0.13201 ,0.02039 ,0.02676 ,0.00052 ,0.00012 ,0.00000 - +,0.12330 ,0.01885 ,0.02269 ,0.00049 ,0.00012 ,0.00001 - +,0.11555 ,0.01750 ,0.01943 ,0.00046 ,0.00012 ,0.00001 - +,0.10865 ,0.01631 ,0.01678 ,0.00043 ,0.00012 ,0.00002 - +,0.10245 ,0.01525 ,0.01461 ,0.00040 ,0.00012 ,0.00003 - +,0.09685 ,0.01430 ,0.01281 ,0.00037 ,0.00012 ,0.00003 - +,0.09176 ,0.01345 ,0.01130 ,0.00035 ,0.00011 ,0.00003 - +,0.08714 ,0.01268 ,0.01004 ,0.00033 ,0.00011 ,0.00003 - +,0.08290 ,0.01199 ,0.00896 ,0.00031 ,0.00010 ,0.00003 - +,0.07902 ,0.01135 ,0.00805 ,0.00030 ,0.00010 ,0.00003 - +,0.07544 ,0.01078 ,0.00726 ,0.00028 ,0.00010 ,0.00003 - +,0.07214 ,0.01025 ,0.00658 ,0.00027 ,0.00010 ,0.00003 - +,0.06908 ,0.00976 ,0.00598 ,0.00025 ,0.00009 ,0.00003 - +,0.06625 ,0.00931 ,0.00546 ,0.00024 ,0.00009 ,0.00003/ - DATA ((F(I,35,K),I=1,6),K=1,19)/ - + 0.17088 ,0.02587 ,0.05802 ,0.00049 ,0.00001 ,0.00000 - +,0.15414 ,0.02296 ,0.04505 ,0.00046 ,0.00004 ,0.00000 - +,0.14023 ,0.02060 ,0.03576 ,0.00043 ,0.00006 ,-0.00001 - +,0.12849 ,0.01863 ,0.02891 ,0.00040 ,0.00007 ,-0.00001 - +,0.11845 ,0.01698 ,0.02373 ,0.00038 ,0.00007 ,0.00000 - +,0.10977 ,0.01557 ,0.01976 ,0.00035 ,0.00008 ,0.00001 - +,0.10215 ,0.01434 ,0.01664 ,0.00032 ,0.00008 ,0.00001 - +,0.09540 ,0.01327 ,0.01415 ,0.00030 ,0.00008 ,0.00001 - +,0.08941 ,0.01233 ,0.01215 ,0.00028 ,0.00008 ,0.00002 - +,0.08405 ,0.01149 ,0.01052 ,0.00026 ,0.00008 ,0.00002 - +,0.07922 ,0.01075 ,0.00917 ,0.00024 ,0.00008 ,0.00002 - +,0.07485 ,0.01008 ,0.00805 ,0.00023 ,0.00008 ,0.00002 - +,0.07089 ,0.00948 ,0.00712 ,0.00022 ,0.00007 ,0.00002 - +,0.06727 ,0.00894 ,0.00633 ,0.00020 ,0.00007 ,0.00002 - +,0.06397 ,0.00845 ,0.00566 ,0.00019 ,0.00007 ,0.00002 - +,0.06093 ,0.00800 ,0.00508 ,0.00018 ,0.00007 ,0.00002 - +,0.05813 ,0.00759 ,0.00459 ,0.00017 ,0.00006 ,0.00002 - +,0.05555 ,0.00721 ,0.00416 ,0.00016 ,0.00006 ,0.00002 - +,0.05316 ,0.00686 ,0.00379 ,0.00015 ,0.00006 ,0.00002/ - DATA ((F(I,36,K),I=1,6),K=1,19)/ - + 0.14318 ,0.01983 ,0.04424 ,0.00032 ,0.00001 ,0.00000 - +,0.12842 ,0.01750 ,0.03395 ,0.00030 ,0.00003 ,0.00000 - +,0.11623 ,0.01562 ,0.02667 ,0.00028 ,0.00004 ,-0.00001 - +,0.10601 ,0.01407 ,0.02135 ,0.00026 ,0.00005 ,-0.00001 - +,0.09730 ,0.01277 ,0.01738 ,0.00025 ,0.00005 ,0.00000 - +,0.08981 ,0.01166 ,0.01435 ,0.00022 ,0.00005 ,0.00000 - +,0.08326 ,0.01070 ,0.01200 ,0.00021 ,0.00006 ,0.00000 - +,0.07749 ,0.00987 ,0.01013 ,0.00019 ,0.00005 ,0.00001 - +,0.07238 ,0.00913 ,0.00864 ,0.00018 ,0.00005 ,0.00001 - +,0.06783 ,0.00849 ,0.00744 ,0.00017 ,0.00005 ,0.00001 - +,0.06374 ,0.00792 ,0.00645 ,0.00015 ,0.00005 ,0.00002 - +,0.06005 ,0.00741 ,0.00563 ,0.00015 ,0.00005 ,0.00001 - +,0.05672 ,0.00695 ,0.00495 ,0.00014 ,0.00005 ,0.00001 - +,0.05368 ,0.00653 ,0.00438 ,0.00013 ,0.00005 ,0.00001 - +,0.05092 ,0.00616 ,0.00390 ,0.00012 ,0.00005 ,0.00001 - +,0.04838 ,0.00581 ,0.00349 ,0.00011 ,0.00004 ,0.00002 - +,0.04606 ,0.00550 ,0.00314 ,0.00011 ,0.00004 ,0.00002 - +,0.04392 ,0.00522 ,0.00284 ,0.00010 ,0.00004 ,0.00001 - +,0.04194 ,0.00496 ,0.00257 ,0.00010 ,0.00004 ,0.00001/ - DATA ((F(I,37,K),I=1,6),K=1,19)/ - + 0.09525 ,0.01089 ,0.02436 ,0.00013 ,0.00001 ,0.00000 - +,0.08442 ,0.00951 ,0.01823 ,0.00012 ,0.00001 ,0.00000 - +,0.07559 ,0.00840 ,0.01400 ,0.00011 ,0.00001 ,0.00000 - +,0.06826 ,0.00749 ,0.01098 ,0.00010 ,0.00002 ,0.00000 - +,0.06209 ,0.00673 ,0.00878 ,0.00009 ,0.00002 ,0.00000 - +,0.05683 ,0.00610 ,0.00713 ,0.00009 ,0.00002 ,0.00000 - +,0.05227 ,0.00555 ,0.00586 ,0.00008 ,0.00002 ,0.00000 - +,0.04829 ,0.00508 ,0.00488 ,0.00007 ,0.00002 ,0.00000 - +,0.04479 ,0.00467 ,0.00411 ,0.00007 ,0.00002 ,0.00000 - +,0.04169 ,0.00432 ,0.00349 ,0.00006 ,0.00002 ,0.00000 - +,0.03893 ,0.00400 ,0.00299 ,0.00006 ,0.00002 ,0.00001 - +,0.03646 ,0.00372 ,0.00258 ,0.00005 ,0.00002 ,0.00001 - +,0.03424 ,0.00347 ,0.00225 ,0.00005 ,0.00002 ,0.00001 - +,0.03223 ,0.00324 ,0.00197 ,0.00005 ,0.00002 ,0.00001 - +,0.03041 ,0.00304 ,0.00174 ,0.00004 ,0.00002 ,0.00001 - +,0.02875 ,0.00286 ,0.00154 ,0.00004 ,0.00002 ,0.00000 - +,0.02723 ,0.00269 ,0.00138 ,0.00004 ,0.00001 ,0.00000 - +,0.02584 ,0.00254 ,0.00123 ,0.00004 ,0.00001 ,0.00000 - +,0.02457 ,0.00240 ,0.00111 ,0.00004 ,0.00001 ,0.00000/ - DATA ((F(I,38,K),I=1,6),K=1,19)/ - + 0.05807 ,0.00537 ,0.01224 ,0.00004 ,0.00000 ,0.00000 - +,0.05080 ,0.00462 ,0.00891 ,0.00004 ,0.00000 ,0.00000 - +,0.04496 ,0.00404 ,0.00668 ,0.00004 ,0.00001 ,0.00000 - +,0.04017 ,0.00356 ,0.00512 ,0.00003 ,0.00001 ,0.00000 - +,0.03618 ,0.00317 ,0.00401 ,0.00003 ,0.00001 ,0.00000 - +,0.03281 ,0.00285 ,0.00320 ,0.00003 ,0.00001 ,0.00000 - +,0.02992 ,0.00257 ,0.00259 ,0.00003 ,0.00001 ,0.00000 - +,0.02741 ,0.00233 ,0.00212 ,0.00002 ,0.00001 ,0.00000 - +,0.02523 ,0.00213 ,0.00176 ,0.00002 ,0.00001 ,0.00000 - +,0.02332 ,0.00195 ,0.00147 ,0.00002 ,0.00001 ,0.00000 - +,0.02163 ,0.00180 ,0.00124 ,0.00002 ,0.00001 ,0.00000 - +,0.02013 ,0.00166 ,0.00106 ,0.00002 ,0.00001 ,0.00000 - +,0.01879 ,0.00154 ,0.00091 ,0.00002 ,0.00001 ,0.00000 - +,0.01758 ,0.00143 ,0.00079 ,0.00001 ,0.00001 ,0.00000 - +,0.01649 ,0.00133 ,0.00069 ,0.00001 ,0.00001 ,0.00000 - +,0.01550 ,0.00125 ,0.00061 ,0.00001 ,0.00001 ,0.00000 - +,0.01461 ,0.00117 ,0.00054 ,0.00001 ,0.00001 ,0.00000 - +,0.01379 ,0.00110 ,0.00048 ,0.00001 ,0.00001 ,0.00000 - +,0.01305 ,0.00103 ,0.00043 ,0.00001 ,0.00000 ,0.00000/ - DATA ((F(I,39,K),I=1,6),K=1,19)/ - + 0.03152 ,0.00228 ,0.00543 ,0.00001 ,0.00000 ,0.00000 - +,0.02718 ,0.00194 ,0.00383 ,0.00001 ,0.00000 ,0.00000 - +,0.02374 ,0.00167 ,0.00279 ,0.00001 ,0.00000 ,0.00000 - +,0.02096 ,0.00146 ,0.00209 ,0.00001 ,0.00000 ,0.00000 - +,0.01867 ,0.00128 ,0.00160 ,0.00001 ,0.00000 ,0.00000 - +,0.01676 ,0.00114 ,0.00125 ,0.00001 ,0.00000 ,0.00000 - +,0.01514 ,0.00102 ,0.00099 ,0.00001 ,0.00000 ,0.00000 - +,0.01375 ,0.00092 ,0.00080 ,0.00001 ,0.00000 ,0.00000 - +,0.01255 ,0.00083 ,0.00065 ,0.00001 ,0.00000 ,0.00000 - +,0.01150 ,0.00075 ,0.00054 ,0.00000 ,0.00000 ,0.00000 - +,0.01058 ,0.00069 ,0.00045 ,0.00001 ,0.00000 ,0.00000 - +,0.00978 ,0.00063 ,0.00038 ,0.00000 ,0.00000 ,0.00000 - +,0.00906 ,0.00058 ,0.00032 ,0.00000 ,0.00000 ,0.00000 - +,0.00842 ,0.00054 ,0.00027 ,0.00000 ,0.00000 ,0.00000 - +,0.00785 ,0.00050 ,0.00024 ,0.00000 ,0.00000 ,0.00000 - +,0.00734 ,0.00046 ,0.00021 ,0.00000 ,0.00000 ,0.00000 - +,0.00687 ,0.00043 ,0.00018 ,0.00000 ,0.00000 ,0.00000 - +,0.00645 ,0.00040 ,0.00016 ,0.00000 ,0.00000 ,0.00000 - +,0.00607 ,0.00038 ,0.00014 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,40,K),I=1,6),K=1,19)/ - + 0.01451 ,0.00078 ,0.00201 ,0.00000 ,0.00000 ,0.00000 - +,0.01231 ,0.00066 ,0.00137 ,0.00000 ,0.00000 ,0.00000 - +,0.01059 ,0.00056 ,0.00096 ,0.00000 ,0.00000 ,0.00000 - +,0.00922 ,0.00048 ,0.00070 ,0.00000 ,0.00000 ,0.00000 - +,0.00811 ,0.00042 ,0.00052 ,0.00000 ,0.00000 ,0.00000 - +,0.00719 ,0.00037 ,0.00040 ,0.00000 ,0.00000 ,0.00000 - +,0.00642 ,0.00032 ,0.00031 ,0.00000 ,0.00000 ,0.00000 - +,0.00577 ,0.00029 ,0.00024 ,0.00000 ,0.00000 ,0.00000 - +,0.00522 ,0.00026 ,0.00019 ,0.00000 ,0.00000 ,0.00000 - +,0.00474 ,0.00023 ,0.00016 ,0.00000 ,0.00000 ,0.00000 - +,0.00432 ,0.00021 ,0.00013 ,0.00000 ,0.00000 ,0.00000 - +,0.00396 ,0.00019 ,0.00011 ,0.00000 ,0.00000 ,0.00000 - +,0.00364 ,0.00017 ,0.00009 ,0.00000 ,0.00000 ,0.00000 - +,0.00335 ,0.00016 ,0.00007 ,0.00000 ,0.00000 ,0.00000 - +,0.00310 ,0.00015 ,0.00006 ,0.00000 ,0.00000 ,0.00000 - +,0.00288 ,0.00014 ,0.00005 ,0.00000 ,0.00000 ,0.00000 - +,0.00268 ,0.00013 ,0.00005 ,0.00000 ,0.00000 ,0.00000 - +,0.00250 ,0.00012 ,0.00004 ,0.00000 ,0.00000 ,0.00000 - +,0.00234 ,0.00011 ,0.00004 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,41,K),I=1,6),K=1,19)/ - + 0.00116 ,0.00003 ,0.00009 ,0.00000 ,0.00000 ,0.00000 - +,0.00094 ,0.00002 ,0.00006 ,0.00000 ,0.00000 ,0.00000 - +,0.00077 ,0.00002 ,0.00004 ,0.00000 ,0.00000 ,0.00000 - +,0.00065 ,0.00001 ,0.00002 ,0.00000 ,0.00000 ,0.00000 - +,0.00055 ,0.00001 ,0.00002 ,0.00000 ,0.00000 ,0.00000 - +,0.00047 ,0.00001 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00040 ,0.00001 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00035 ,0.00001 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00031 ,0.00001 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00027 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00024 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00022 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00019 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00017 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00016 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00014 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00013 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00012 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00011 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA XX/1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-4,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,4,5,0,0/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,41 - DO 20 M=1,19 -C READ(66,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(6,N,M) - DO 25 I=1,6 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,15 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=1,5 - DO 30 K=1,19 - 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K)) - 50 FORMAT(6F10.5) - DO 40 I=1,6 - DO 40 M=1,19 - 40 F(I,42,M)=ZEROD - 10 CONTINUE - XSAVE = X - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,6 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.16) GOTO 65 - IF(I.EQ.6) GOTO 65 - FAC=(ONED-B)*F(I,16,M)+B*F(I,16,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - SEA=G(4) - STR=G(4) - CHM=G(5) - GL =G(3) - BOT=G(6) - X = XSAVE - RETURN - END diff --git a/PDF/spdf/strdo1.F b/PDF/spdf/strdo1.F deleted file mode 100644 index aac23f438e9..00000000000 --- a/PDF/spdf/strdo1.F +++ /dev/null @@ -1,53 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:01 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:49 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C - SUBROUTINE STRDO1(X,SCALE,UPV,DNV,SEA,STR,CHM,GL) -C :::::::::::: DUKE OWENS SET 1 :::::::::::::::::::::::::::: -#include "pdf/impdp.inc" -#include "pdf/expdp.inc" - + F(5),A(6,5),B1(3,6,5) - DATA Q0,QL1/2.D0,.2D0/ - DATA B1/3.D0,0.D0,0.D0,.419D0,.004383D0,-.007412D0, - &3.46D0,.72432D0,-.065998D0,4.4D0,-4.8644D0,1.3274D0, - &6*0.D0,1.D0, - &0.D0,0.D0,.763D0,-.23696D0,.025836D0,4.D0,.62664D0,-.019163D0, - &0.D0,-.42068D0,.032809D0,6*0.D0,1.265D0,-1.1323D0,.29268D0, - &0.D0,-.37162D0,-.028977D0,8.05D0,1.5877D0,-.15291D0, - &0.D0,6.3059D0,-.27342D0,0.D0,-10.543D0,-3.1674D0, - &0.D0,14.698D0,9.798D0,0.D0,.13479D0,-.074693D0, - &-.0355D0,-.22237D0,-.057685D0,6.3494D0,3.2649D0,-.90945D0, - &0.D0,-3.0331D0,1.5042D0,0.D0,17.431D0,-11.255D0, - &0.D0,-17.861D0,15.571D0,1.564D0,-1.7112D0,.63751D0, - &0.D0,-.94892D0,.32505D0,6.D0,1.4345D0,-1.0485D0, - &9.D0,-7.1858D0,.25494D0,0.D0,-16.457D0,10.947D0, - &0.D0,15.261D0,-10.085D0/ - WN=1.D0 - S= LOG( LOG( MAX(Q0,SCALE)/QL1)/ LOG(Q0/QL1)) - DO 10 I=1,5 - DO 10 J=1,6 - 10 A(J,I)=B1(1,J,I)+S*(B1(2,J,I)+S*B1(3,J,I)) - DO 40 I=1,5 - 40 F(I)=A(1,I)*X**A(2,I)*(WN-X)**A(3,I)*(WN+X* - & (A(4,I)+X*(A(5,I)+X*A(6,I)))) - DO 50 I=1,2 - AA=WN+A(2,I)+A(3,I) - 50 F(I)=F(I)*GAMFUN(AA)/((WN+A(2,I)*A(4,I)/AA)*GAMFUN(A(2,I)) - &*GAMFUN(WN+A(3,I))) - UPV=F(1)-F(2) - DNV=F(2) - SEA=F(3)/6.D0 - STR=SEA - CHM=F(4) - GL =F(5) - RETURN - END diff --git a/PDF/spdf/strdo2.F b/PDF/spdf/strdo2.F deleted file mode 100644 index e4cb2b22dbd..00000000000 --- a/PDF/spdf/strdo2.F +++ /dev/null @@ -1,54 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:02 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:49 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE STRDO2(X,SCALE,UPV,DNV,SEA,STR,CHM,GL) -C :::::::::::: DUKE OWENS SET 2 :::::::::::::::::::::::::::: -C -#include "pdf/impdp.inc" -#include "pdf/expdp.inc" - + F(5),A(6,5),B2(3,6,5) - DATA Q0,QL2/2.D0,.4D0/ - DATA B2/3.D0,0.D0,0.D0,.3743D0,.013946D0,-.00031695D0, - &3.329D0,.75343D0,-.076125D0,6.032D0,-6.2153D0,1.5561D0, - &6*0.D0,1.D0,0.D0, - &0.D0,.7608D0,-.2317D0,.023232D0,3.83D0,.62746D0,-.019155D0, - &0.D0,-.41843D0,.035972D0,6*0.D0,1.6714D0,-1.9168D0,.58175D0, - &0.D0,-.27307D0,-.16392D0,9.145D0,.53045D0,-.76271D0, - &0.D0,15.665D0,-2.8341D0,0.D0,-100.63D0,44.658D0, - &0.D0,223.24D0,-116.76D0,0.D0,.067368D0,-.030574D0, - &-.11989D0,-.23293D0,-.023273D0,3.5087D0,3.6554D0,-.45313D0, - &0.D0,-.47369D0,.35793D0,0.D0,9.5041D0,-5.4303D0, - &0.D0,-16.563D0,15.524D0,.8789D0,-.97093D0,.43388D0, - &0.D0,-1.1612D0,.4759D0,4.D0,1.2271D0,-.25369D0, - &9.D0,-5.6354D0,-.81747D0,0.D0,-7.5438D0,5.5034D0, - &0.D0,-.59649D0,.12611D0/ - WN=1.D0 - S= LOG( LOG( MAX(Q0,SCALE)/QL2)/ LOG(Q0/QL2)) - DO 10 I=1,5 - DO 10 J=1,6 - 10 A(J,I)=B2(1,J,I)+S*(B2(2,J,I)+S*B2(3,J,I)) - DO 20 I=1,5 - 20 F(I)=A(1,I)*X**A(2,I)*(WN-X)**A(3,I)*(WN+X* (A(4,I)+X*(A(5,I)+X*A - +(6,I)))) - DO 30 I=1,2 - AA=WN+A(2,I)+A(3,I) - 30 F(I)=F(I)*GAMFUN(AA)/((WN+A(2,I)*A(4,I)/AA)*GAMFUN(A(2,I)) - +*GAMFUN(WN+A(3,I))) - UPV=F(1)-F(2) - DNV=F(2) - SEA=F(3)/6.D0 - STR=SEA - CHM=F(4) - GL =F(5) - RETURN - END diff --git a/PDF/spdf/strghr.F b/PDF/spdf/strghr.F deleted file mode 100644 index 07dbb4a0295..00000000000 --- a/PDF/spdf/strghr.F +++ /dev/null @@ -1,36 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:02 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:50 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE STRGHR(DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DGL) -C :::::::::::: GHR :::::::::::::::::::::::::::: -C -#include "pdf/expdp.inc" - + DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DGL - DATA ALAM2/0.160/, Q02/4.0/ - Q = DSCALE - X = DX - QQ=Q*Q - SQ= LOG( LOG( MAX(Q02,QQ)/ALAM2)/ LOG(Q02/ALAM2)) - UPV=GHRUV(X,SQ) - DNV=GHRDV(X,SQ) - SEA=GHRXI(X,SQ) - STR=GHRXS(X,SQ) - GL =GHRGL(X,SQ) - DUPV=UPV - DDNV=DNV - DSEA=SEA - DSTR=STR - DCHM=0.0D0 - DGL =GL - RETURN - END diff --git a/PDF/spdf/strh1b.F b/PDF/spdf/strh1b.F deleted file mode 100644 index 1a5785c9a3c..00000000000 --- a/PDF/spdf/strh1b.F +++ /dev/null @@ -1,910 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:03 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:50 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE STRH1B(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C :::::::::::: HMRS(B) ::::::::::::::::: 190 MEV:::::::::::: -#include "pdf/impdp.inc" - DIMENSION F(6,42,19),G(6),XX(42),N0(6) - DATA ((F(I,1,K),I=1,6),K=1,19)/ - + 0.04574, 0.01401, 3.78332, 0.03705, 0.01529, 0.00000, - + 0.04583, 0.01480, 7.44979, 0.11624, 0.09317, 0.00000, - + 0.04597, 0.01553, 11.82667, 0.22302, 0.19877, 0.00000, - + 0.04613, 0.01621, 16.83759, 0.35351, 0.32816, 0.00000, - + 0.04632, 0.01684, 22.23625, 0.49656, 0.47247, 0.00678, - + 0.04652, 0.01743, 28.00661, 0.63049, 0.63148, 0.08486, - + 0.04673, 0.01800, 34.08723, 0.75239, 0.80352, 0.23791, - + 0.04696, 0.01855, 40.42050, 0.88657, 0.98694, 0.38816, - + 0.04719, 0.01907, 46.95706, 1.02743, 1.18029, 0.54801, - + 0.04743, 0.01957, 53.56265, 1.17269, 1.37934, 0.71167, - + 0.04767, 0.02005, 60.28923, 1.32344, 1.58580, 0.88098, - + 0.04792, 0.02052, 67.12621, 1.47943, 1.79932, 1.05568, - + 0.04817, 0.02097, 74.03026, 1.63958, 2.01846, 1.23462, - + 0.04842, 0.02140, 80.86339, 1.80069, 2.23883, 1.41431, - + 0.04867, 0.02183, 87.78844, 1.96642, 2.46544, 1.59882, - + 0.04893, 0.02224, 94.65599, 2.13324, 2.69348, 1.78428, - + 0.04918, 0.02264,101.50505, 2.30199, 2.92411, 1.97165, - + 0.04943, 0.02303,108.35330, 2.47295, 3.15771, 2.16125, - + 0.04968, 0.02341,115.10117, 2.64375, 3.39106, 2.35052/ - DATA ((F(I,2,K),I=1,6),K=1,19)/ - + 0.05265, 0.01883, 3.67866, 0.04527, 0.01634, 0.00000, - + 0.05306, 0.01986, 6.79273, 0.12172, 0.09128, 0.00000, - + 0.05348, 0.02080, 10.33414, 0.21683, 0.18503, 0.00000, - + 0.05389, 0.02167, 14.24124, 0.32750, 0.29446, 0.00000, - + 0.05431, 0.02248, 18.32507, 0.44485, 0.41249, 0.00548, - + 0.05473, 0.02324, 22.58011, 0.55196, 0.53918, 0.06741, - + 0.05514, 0.02396, 26.96515, 0.64713, 0.67330, 0.18724, - + 0.05556, 0.02465, 31.44249, 0.75000, 0.81364, 0.30249, - + 0.05596, 0.02531, 35.98160, 0.85618, 0.95918, 0.42322, - + 0.05638, 0.02594, 40.49191, 0.96407, 1.10683, 0.54504, - + 0.05678, 0.02655, 45.01662, 1.07455, 1.25797, 0.66943, - + 0.05718, 0.02713, 49.55295, 1.18747, 1.41239, 0.79623, - + 0.05758, 0.02769, 54.07498, 1.30212, 1.56912, 0.92467, - + 0.05797, 0.02823, 58.49271, 1.41623, 1.72507, 1.05230, - + 0.05836, 0.02876, 62.92191, 1.53249, 1.88392, 1.18211, - + 0.05874, 0.02927, 67.26494, 1.64844, 2.04232, 1.31140, - + 0.05912, 0.02976, 71.55196, 1.76473, 2.20114, 1.44089, - + 0.05950, 0.03024, 75.79805, 1.88160, 2.36074, 1.57090, - + 0.05987, 0.03071, 79.94044, 1.99744, 2.51891, 1.69964/ - DATA ((F(I,3,K),I=1,6),K=1,19)/ - + 0.06032, 0.02531, 3.57497, 0.05532, 0.01703, 0.00000, - + 0.06115, 0.02665, 6.18963, 0.12773, 0.08771, 0.00000, - + 0.06195, 0.02786, 9.02308, 0.21119, 0.16962, 0.00000, - + 0.06272, 0.02898, 12.03482, 0.30385, 0.26088, 0.00000, - + 0.06346, 0.03001, 15.08739, 0.39900, 0.35621, 0.00439, - + 0.06417, 0.03098, 18.18623, 0.48373, 0.45595, 0.05297, - + 0.06487, 0.03189, 21.30760, 0.55723, 0.55930, 0.14581, - + 0.06554, 0.03276, 24.43015, 0.63527, 0.66547, 0.23330, - + 0.06620, 0.03359, 27.53772, 0.71448, 0.77379, 0.32356, - + 0.06685, 0.03438, 30.57178, 0.79378, 0.88208, 0.41331, - + 0.06748, 0.03513, 33.56853, 0.87389, 0.99147, 0.50376, - + 0.06809, 0.03586, 36.53035, 0.95476, 1.10188, 0.59485, - + 0.06869, 0.03655, 39.44325, 1.03595, 1.21269, 0.68609, - + 0.06928, 0.03722, 42.24977, 1.11587, 1.32177, 0.77580, - + 0.06985, 0.03787, 45.03233, 1.19652, 1.43182, 0.86616, - + 0.07042, 0.03850, 47.72797, 1.27620, 1.54052, 0.95532, - + 0.07097, 0.03910, 50.35994, 1.35540, 1.64857, 1.04385, - + 0.07151, 0.03969, 52.94081, 1.43435, 1.75628, 1.13201, - + 0.07204, 0.04026, 55.43167, 1.51197, 1.86215, 1.21861/ - DATA ((F(I,4,K),I=1,6),K=1,19)/ - + 0.06517, 0.03010, 3.51411, 0.06221, 0.01718, 0.00000, - + 0.06632, 0.03165, 5.85884, 0.13155, 0.08467, 0.00000, - + 0.06741, 0.03305, 8.32942, 0.20821, 0.15968, 0.00000, - + 0.06843, 0.03434, 10.89840, 0.29112, 0.24109, 0.00000, - + 0.06941, 0.03553, 13.45492, 0.37474, 0.32463, 0.00383, - + 0.07035, 0.03665, 16.01010, 0.44815, 0.41077, 0.04572, - + 0.07125, 0.03769, 18.54872, 0.51097, 0.49893, 0.12522, - + 0.07213, 0.03868, 21.05713, 0.57697, 0.58853, 0.19927, - + 0.07297, 0.03963, 23.52573, 0.64329, 0.67907, 0.27496, - + 0.07379, 0.04052, 25.91005, 0.70912, 0.76882, 0.34960, - + 0.07459, 0.04138, 28.24280, 0.77509, 0.85877, 0.42423, - + 0.07536, 0.04220, 30.52843, 0.84121, 0.94892, 0.49887, - + 0.07611, 0.04299, 32.75760, 0.90713, 1.03878, 0.57313, - + 0.07685, 0.04374, 34.88687, 0.97161, 1.12667, 0.64568, - + 0.07756, 0.04447, 36.98360, 1.03631, 1.21485, 0.71835, - + 0.07826, 0.04518, 38.99945, 1.09985, 1.30146, 0.78965, - + 0.07894, 0.04586, 40.95441, 1.16269, 1.38710, 0.86008, - + 0.07960, 0.04651, 42.85948, 1.22502, 1.47205, 0.92987, - + 0.08025, 0.04715, 44.68547, 1.28599, 1.55515, 0.99810/ - DATA ((F(I,5,K),I=1,6),K=1,19)/ - + 0.06880, 0.03403, 3.47049, 0.06760, 0.01715, 0.00000, - + 0.07021, 0.03576, 5.63280, 0.13443, 0.08204, 0.00000, - + 0.07153, 0.03732, 7.86636, 0.20627, 0.15216, 0.00000, - + 0.07278, 0.03874, 10.15266, 0.28260, 0.22693, 0.00000, - + 0.07395, 0.04006, 12.39806, 0.35863, 0.30271, 0.00346, - + 0.07507, 0.04128, 14.61715, 0.42472, 0.38006, 0.04106, - + 0.07615, 0.04243, 16.79994, 0.48073, 0.45854, 0.11206, - + 0.07718, 0.04352, 18.93750, 0.53914, 0.53770, 0.17764, - + 0.07818, 0.04455, 21.02394, 0.59742, 0.61715, 0.24425, - + 0.07915, 0.04553, 23.02324, 0.65492, 0.69544, 0.30954, - + 0.08008, 0.04647, 24.96574, 0.71221, 0.77346, 0.37446, - + 0.08098, 0.04736, 26.85672, 0.76933, 0.85124, 0.43905, - + 0.08186, 0.04822, 28.68982, 0.82600, 0.92842, 0.50302, - + 0.08271, 0.04904, 30.42937, 0.88117, 1.00355, 0.56523, - + 0.08354, 0.04983, 32.13374, 0.93629, 1.07862, 0.62728, - + 0.08435, 0.05059, 33.76312, 0.99022, 1.15205, 0.68793, - + 0.08513, 0.05133, 35.33519, 1.04333, 1.22438, 0.74760, - + 0.08590, 0.05204, 36.86005, 1.09584, 1.29589, 0.80653, - + 0.08665, 0.05273, 38.31403, 1.14702, 1.36558, 0.86394/ - DATA ((F(I,6,K),I=1,6),K=1,19)/ - + 0.07174, 0.03744, 3.43619, 0.07210, 0.01703, 0.00000, - + 0.07337, 0.03931, 5.46192, 0.13677, 0.07969, 0.00000, - + 0.07490, 0.04099, 7.52240, 0.20489, 0.14604, 0.00000, - + 0.07633, 0.04253, 9.60580, 0.27629, 0.21585, 0.00000, - + 0.07768, 0.04395, 11.63082, 0.34675, 0.28595, 0.00320, - + 0.07896, 0.04527, 13.61438, 0.40755, 0.35694, 0.03770, - + 0.08018, 0.04651, 15.55015, 0.45867, 0.42849, 0.10261, - + 0.08135, 0.04768, 17.43233, 0.51169, 0.50024, 0.16218, - + 0.08248, 0.04878, 19.25757, 0.56430, 0.57187, 0.22239, - + 0.08357, 0.04983, 20.99544, 0.61595, 0.64212, 0.28112, - + 0.08463, 0.05083, 22.67453, 0.66719, 0.71182, 0.33928, - + 0.08564, 0.05179, 24.30077, 0.71807, 0.78104, 0.39691, - + 0.08663, 0.05270, 25.86943, 0.76835, 0.84946, 0.45377, - + 0.08759, 0.05358, 27.35023, 0.81712, 0.91582, 0.50887, - + 0.08851, 0.05442, 28.79524, 0.86569, 0.98191, 0.56365, - + 0.08942, 0.05523, 30.17026, 0.91305, 1.04636, 0.61702, - + 0.09029, 0.05601, 31.49141, 0.95956, 1.10965, 0.66939, - + 0.09115, 0.05676, 32.76807, 1.00540, 1.17205, 0.72095, - + 0.09198, 0.05749, 33.98010, 1.04996, 1.23269, 0.77104/ - DATA ((F(I,7,K),I=1,6),K=1,19)/ - + 0.08175, 0.05035, 3.32503, 0.08794, 0.01603, 0.00000, - + 0.08424, 0.05275, 4.95133, 0.14474, 0.07066, 0.00000, - + 0.08654, 0.05489, 6.52810, 0.20135, 0.12539, 0.00000, - + 0.08868, 0.05684, 8.06148, 0.25845, 0.18082, 0.00000, - + 0.09067, 0.05861, 9.50291, 0.31328, 0.23499, 0.00247, - + 0.09256, 0.06026, 10.87475, 0.35948, 0.28855, 0.02855, - + 0.09435, 0.06179, 12.17946, 0.39743, 0.34145, 0.07707, - + 0.09605, 0.06324, 13.41866, 0.43609, 0.39353, 0.12071, - + 0.09768, 0.06459, 14.59475, 0.47380, 0.44468, 0.16413, - + 0.09925, 0.06588, 15.69085, 0.51026, 0.49410, 0.20587, - + 0.10075, 0.06709, 16.73024, 0.54591, 0.54245, 0.24664, - + 0.10219, 0.06825, 17.71971, 0.58086, 0.58985, 0.28653, - + 0.10359, 0.06936, 18.65834, 0.61497, 0.63615, 0.32543, - + 0.10493, 0.07041, 19.52817, 0.64766, 0.68053, 0.36269, - + 0.10623, 0.07142, 20.36560, 0.67988, 0.72429, 0.39936, - + 0.10748, 0.07238, 21.14958, 0.71096, 0.76650, 0.43472, - + 0.10870, 0.07331, 21.89204, 0.74118, 0.80757, 0.46909, - + 0.10988, 0.07420, 22.60011, 0.77071, 0.84769, 0.50264, - + 0.11103, 0.07506, 23.26193, 0.79912, 0.88632, 0.53492/ - DATA ((F(I,8,K),I=1,6),K=1,19)/ - + 0.09411, 0.06777, 3.20020, 0.10684, 0.01397, 0.00000, - + 0.09778, 0.07078, 4.45951, 0.15403, 0.05899, 0.00000, - + 0.10113, 0.07346, 5.62203, 0.19933, 0.10245, 0.00000, - + 0.10423, 0.07588, 6.70688, 0.24352, 0.14505, 0.00000, - + 0.10711, 0.07806, 7.69021, 0.28490, 0.18566, 0.00185, - + 0.10980, 0.08007, 8.59676, 0.31896, 0.22491, 0.02109, - + 0.11235, 0.08193, 9.43437, 0.34623, 0.26287, 0.05648, - + 0.11476, 0.08367, 10.20893, 0.37352, 0.29956, 0.08766, - + 0.11706, 0.08530, 10.92601, 0.39967, 0.33498, 0.11819, - + 0.11925, 0.08683, 11.57743, 0.42453, 0.36867, 0.14709, - + 0.12134, 0.08827, 12.18159, 0.44847, 0.40114, 0.17491, - + 0.12335, 0.08963, 12.74499, 0.47161, 0.43255, 0.20178, - + 0.12527, 0.09092, 13.26873, 0.49391, 0.46284, 0.22764, - + 0.12711, 0.09215, 13.74260, 0.51498, 0.49149, 0.25212, - + 0.12889, 0.09332, 14.19141, 0.53552, 0.51943, 0.27594, - + 0.13060, 0.09443, 14.60262, 0.55510, 0.54609, 0.29866, - + 0.13225, 0.09550, 14.98475, 0.57392, 0.57174, 0.32052, - + 0.13385, 0.09652, 15.34300, 0.59213, 0.59656, 0.34164, - + 0.13539, 0.09749, 15.67058, 0.60946, 0.62020, 0.36178/ - DATA ((F(I,9,K),I=1,6),K=1,19)/ - + 0.10357, 0.08067, 3.11537, 0.11927, 0.01233, 0.00000, - + 0.10815, 0.08408, 4.17223, 0.16022, 0.05126, 0.00000, - + 0.11231, 0.08709, 5.11878, 0.19904, 0.08842, 0.00000, - + 0.11613, 0.08978, 5.97918, 0.23627, 0.12424, 0.00000, - + 0.11967, 0.09221, 6.74062, 0.27064, 0.15792, 0.00155, - + 0.12297, 0.09442, 7.42789, 0.29851, 0.19003, 0.01740, - + 0.12607, 0.09647, 8.05054, 0.32044, 0.22070, 0.04635, - + 0.12900, 0.09837, 8.61579, 0.34215, 0.25001, 0.07156, - + 0.13178, 0.10014, 9.13005, 0.36272, 0.27800, 0.09598, - + 0.13442, 0.10179, 9.58852, 0.38207, 0.30435, 0.11888, - + 0.13693, 0.10334, 10.00690, 0.40052, 0.32952, 0.14073, - + 0.13933, 0.10480, 10.39119, 0.41819, 0.35365, 0.16165, - + 0.14162, 0.10619, 10.74296, 0.43506, 0.37673, 0.18163, - + 0.14381, 0.10749, 11.05516, 0.45086, 0.39838, 0.20039, - + 0.14592, 0.10873, 11.34723, 0.46615, 0.41934, 0.21852, - + 0.14794, 0.10991, 11.61008, 0.48060, 0.43918, 0.23569, - + 0.14989, 0.11103, 11.85054, 0.49440, 0.45815, 0.25209, - + 0.15176, 0.11210, 12.07276, 0.50765, 0.47638, 0.26785, - + 0.15357, 0.11311, 12.27197, 0.52016, 0.49362, 0.28277/ - DATA ((F(I,10,K),I=1,6),K=1,19)/ - + 0.11261, 0.09135, 3.04669, 0.12871, 0.01124, 0.00000, - + 0.11802, 0.09503, 3.96303, 0.16545, 0.04625, 0.00000, - + 0.12291, 0.09825, 4.76451, 0.19989, 0.07929, 0.00000, - + 0.12739, 0.10112, 5.47809, 0.23245, 0.11070, 0.00000, - + 0.13150, 0.10370, 6.09756, 0.26217, 0.13991, 0.00135, - + 0.13532, 0.10604, 6.64704, 0.28595, 0.16744, 0.01503, - + 0.13889, 0.10818, 7.13679, 0.30439, 0.19349, 0.03988, - + 0.14226, 0.11017, 7.57452, 0.32249, 0.21815, 0.06131, - + 0.14544, 0.11202, 7.96680, 0.33947, 0.24150, 0.08191, - + 0.14844, 0.11373, 8.31082, 0.35531, 0.26331, 0.10108, - + 0.15129, 0.11533, 8.62016, 0.37030, 0.28398, 0.11924, - + 0.15400, 0.11684, 8.90041, 0.38454, 0.30367, 0.13651, - + 0.15659, 0.11825, 9.15334, 0.39804, 0.32237, 0.15291, - + 0.15905, 0.11958, 9.37363, 0.41059, 0.33980, 0.16821, - + 0.16141, 0.12084, 9.57736, 0.42265, 0.35658, 0.18292, - + 0.16367, 0.12203, 9.75742, 0.43398, 0.37236, 0.19676, - + 0.16583, 0.12316, 9.91951, 0.44472, 0.38736, 0.20992, - + 0.16792, 0.12424, 10.06711, 0.45498, 0.40171, 0.22251, - + 0.16992, 0.12526, 10.19651, 0.46460, 0.41520, 0.23436/ - DATA ((F(I,11,K),I=1,6),K=1,19)/ - + 0.12165, 0.10064, 2.98697, 0.13629, 0.01055, 0.00000, - + 0.12786, 0.10451, 3.79585, 0.17003, 0.04290, 0.00000, - + 0.13343, 0.10788, 4.48910, 0.20117, 0.07296, 0.00000, - + 0.13850, 0.11087, 5.09542, 0.23023, 0.10117, 0.00000, - + 0.14314, 0.11353, 5.61288, 0.25645, 0.12712, 0.00120, - + 0.14742, 0.11594, 6.06484, 0.27718, 0.15136, 0.01331, - + 0.15141, 0.11814, 6.46177, 0.29304, 0.17408, 0.03520, - + 0.15516, 0.12016, 6.81148, 0.30848, 0.19543, 0.05392, - + 0.15868, 0.12204, 7.12050, 0.32286, 0.21549, 0.07180, - + 0.16199, 0.12377, 7.38714, 0.33615, 0.23411, 0.08833, - + 0.16512, 0.12538, 7.62354, 0.34865, 0.25164, 0.10390, - + 0.16810, 0.12689, 7.83479, 0.36044, 0.26824, 0.11863, - + 0.17092, 0.12831, 8.02271, 0.37155, 0.28391, 0.13253, - + 0.17360, 0.12963, 8.18309, 0.38180, 0.29843, 0.14544, - + 0.17617, 0.13088, 8.32963, 0.39160, 0.31234, 0.15779, - + 0.17861, 0.13206, 8.45653, 0.40074, 0.32536, 0.16936, - + 0.18095, 0.13317, 8.56867, 0.40936, 0.33767, 0.18031, - + 0.18319, 0.13423, 8.66905, 0.41755, 0.34940, 0.19075, - + 0.18533, 0.13522, 8.75464, 0.42518, 0.36037, 0.20052/ - DATA ((F(I,12,K),I=1,6),K=1,19)/ - + 0.16333, 0.13604, 2.75312, 0.15771, 0.00806, 0.00000, - + 0.17239, 0.14024, 3.24960, 0.18109, 0.03178, 0.00000, - + 0.18033, 0.14381, 3.64411, 0.20172, 0.05290, 0.00000, - + 0.18742, 0.14689, 3.96605, 0.22018, 0.07194, 0.00000, - + 0.19376, 0.14957, 4.22189, 0.23621, 0.08888, 0.00080, - + 0.19951, 0.15195, 4.43079, 0.24824, 0.10421, 0.00865, - + 0.20479, 0.15407, 4.60210, 0.25683, 0.11818, 0.02264, - + 0.20967, 0.15598, 4.74273, 0.26498, 0.13094, 0.03429, - + 0.21419, 0.15772, 4.85826, 0.27233, 0.14265, 0.04515, - + 0.21836, 0.15928, 4.94870, 0.27889, 0.15325, 0.05500, - + 0.22226, 0.16070, 5.02213, 0.28487, 0.16301, 0.06408, - + 0.22591, 0.16201, 5.08195, 0.29036, 0.17205, 0.07251, - + 0.22935, 0.16322, 5.12957, 0.29539, 0.18042, 0.08033, - + 0.23254, 0.16431, 5.16313, 0.29985, 0.18800, 0.08745, - + 0.23558, 0.16534, 5.19037, 0.30403, 0.19513, 0.09416, - + 0.23844, 0.16627, 5.20833, 0.30779, 0.20168, 0.10034, - + 0.24113, 0.16714, 5.21970, 0.31123, 0.20775, 0.10610, - + 0.24369, 0.16795, 5.22619, 0.31442, 0.21343, 0.11150, - + 0.24611, 0.16869, 5.22626, 0.31727, 0.21865, 0.11648/ - DATA ((F(I,13,K),I=1,6),K=1,19)/ - + 0.24459, 0.18331, 2.40477, 0.16610, 0.00563, 0.00000, - + 0.25604, 0.18678, 2.62843, 0.17873, 0.02150, 0.00000, - + 0.26571, 0.18953, 2.78248, 0.18911, 0.03487, 0.00000, - + 0.27406, 0.19178, 2.89083, 0.19782, 0.04635, 0.00000, - + 0.28126, 0.19359, 2.96146, 0.20486, 0.05614, 0.00048, - + 0.28761, 0.19508, 3.00721, 0.20942, 0.06464, 0.00503, - + 0.29326, 0.19632, 3.03438, 0.21193, 0.07211, 0.01299, - + 0.29832, 0.19736, 3.04747, 0.21420, 0.07870, 0.01941, - + 0.30289, 0.19823, 3.04985, 0.21604, 0.08454, 0.02523, - + 0.30697, 0.19893, 3.04202, 0.21746, 0.08965, 0.03037, - + 0.31067, 0.19951, 3.02819, 0.21860, 0.09421, 0.03499, - + 0.31406, 0.19999, 3.01011, 0.21952, 0.09831, 0.03918, - + 0.31717, 0.20039, 2.98846, 0.22022, 0.10200, 0.04298, - + 0.31996, 0.20067, 2.96234, 0.22067, 0.10522, 0.04635, - + 0.32256, 0.20091, 2.93540, 0.22102, 0.10818, 0.04947, - + 0.32491, 0.20108, 2.90614, 0.22119, 0.11080, 0.05227, - + 0.32709, 0.20119, 2.87577, 0.22124, 0.11316, 0.05482, - + 0.32911, 0.20126, 2.84499, 0.22120, 0.11531, 0.05718, - + 0.33094, 0.20128, 2.81304, 0.22104, 0.11721, 0.05930/ - DATA ((F(I,14,K),I=1,6),K=1,19)/ - + 0.31979, 0.21594, 2.12178, 0.15723, 0.00424, 0.00000, - + 0.33083, 0.21786, 2.21401, 0.16380, 0.01586, 0.00000, - + 0.33979, 0.21913, 2.26097, 0.16873, 0.02530, 0.00000, - + 0.34723, 0.21997, 2.28060, 0.17252, 0.03314, 0.00000, - + 0.35338, 0.22047, 2.27918, 0.17520, 0.03961, 0.00032, - + 0.35859, 0.22070, 2.26523, 0.17628, 0.04507, 0.00336, - + 0.36305, 0.22074, 2.24277, 0.17607, 0.04973, 0.00862, - + 0.36687, 0.22064, 2.21449, 0.17580, 0.05374, 0.01276, - + 0.37018, 0.22041, 2.18245, 0.17532, 0.05720, 0.01645, - + 0.37299, 0.22006, 2.14672, 0.17465, 0.06015, 0.01965, - + 0.37542, 0.21963, 2.10978, 0.17387, 0.06270, 0.02246, - + 0.37754, 0.21915, 2.07249, 0.17303, 0.06493, 0.02497, - + 0.37938, 0.21862, 2.03507, 0.17211, 0.06690, 0.02721, - + 0.38092, 0.21802, 1.99681, 0.17110, 0.06855, 0.02916, - + 0.38228, 0.21741, 1.95975, 0.17008, 0.07004, 0.03094, - + 0.38342, 0.21676, 1.92289, 0.16901, 0.07131, 0.03250, - + 0.38440, 0.21608, 1.88679, 0.16791, 0.07242, 0.03391, - + 0.38524, 0.21539, 1.85174, 0.16680, 0.07340, 0.03519, - + 0.38591, 0.21468, 1.81722, 0.16567, 0.07423, 0.03631/ - DATA ((F(I,15,K),I=1,6),K=1,19)/ - + 0.38671, 0.23943, 1.87713, 0.14198, 0.00330, 0.00000, - + 0.39556, 0.23941, 1.89377, 0.14480, 0.01215, 0.00000, - + 0.40229, 0.23894, 1.88287, 0.14651, 0.01913, 0.00000, - + 0.40755, 0.23819, 1.85738, 0.14749, 0.02478, 0.00000, - + 0.41158, 0.23720, 1.82160, 0.14777, 0.02932, 0.00023, - + 0.41473, 0.23606, 1.78098, 0.14702, 0.03305, 0.00239, - + 0.41716, 0.23484, 1.73778, 0.14546, 0.03616, 0.00609, - + 0.41906, 0.23353, 1.69352, 0.14395, 0.03877, 0.00895, - + 0.42048, 0.23219, 1.64928, 0.14238, 0.04097, 0.01146, - + 0.42146, 0.23078, 1.60484, 0.14076, 0.04279, 0.01359, - + 0.42212, 0.22936, 1.56160, 0.13915, 0.04433, 0.01545, - + 0.42254, 0.22795, 1.51993, 0.13755, 0.04564, 0.01708, - + 0.42274, 0.22654, 1.47977, 0.13597, 0.04676, 0.01852, - + 0.42269, 0.22509, 1.44050, 0.13437, 0.04767, 0.01975, - + 0.42253, 0.22368, 1.40326, 0.13282, 0.04847, 0.02085, - + 0.42220, 0.22226, 1.36729, 0.13129, 0.04912, 0.02181, - + 0.42174, 0.22086, 1.33284, 0.12978, 0.04966, 0.02266, - + 0.42121, 0.21948, 1.29998, 0.12831, 0.05012, 0.02341, - + 0.42054, 0.21811, 1.26830, 0.12686, 0.05048, 0.02407/ - DATA ((F(I,16,K),I=1,6),K=1,19)/ - + 0.44430, 0.25593, 1.66119, 0.12464, 0.00261, 0.00000, - + 0.44982, 0.25383, 1.63158, 0.12511, 0.00950, 0.00000, - + 0.45343, 0.25152, 1.58750, 0.12489, 0.01480, 0.00000, - + 0.45577, 0.24912, 1.53785, 0.12425, 0.01899, 0.00000, - + 0.45706, 0.24665, 1.48505, 0.12321, 0.02227, 0.00017, - + 0.45764, 0.24416, 1.43238, 0.12151, 0.02491, 0.00176, - + 0.45766, 0.24170, 1.38085, 0.11931, 0.02706, 0.00445, - + 0.45726, 0.23925, 1.33111, 0.11723, 0.02883, 0.00651, - + 0.45652, 0.23685, 1.28356, 0.11519, 0.03029, 0.00828, - + 0.45545, 0.23446, 1.23778, 0.11320, 0.03145, 0.00977, - + 0.45416, 0.23213, 1.19448, 0.11126, 0.03241, 0.01105, - + 0.45273, 0.22986, 1.15370, 0.10939, 0.03321, 0.01216, - + 0.45118, 0.22765, 1.11521, 0.10759, 0.03387, 0.01312, - + 0.44944, 0.22546, 1.07845, 0.10582, 0.03438, 0.01394, - + 0.44769, 0.22335, 1.04405, 0.10413, 0.03481, 0.01466, - + 0.44583, 0.22126, 1.01138, 0.10248, 0.03513, 0.01528, - + 0.44392, 0.21924, 0.98051, 0.10089, 0.03539, 0.01581, - + 0.44199, 0.21727, 0.95138, 0.09936, 0.03559, 0.01628, - + 0.43998, 0.21533, 0.92368, 0.09787, 0.03572, 0.01668/ - DATA ((F(I,17,K),I=1,6),K=1,19)/ - + 0.50285, 0.26861, 1.42406, 0.10292, 0.00199, 0.00001, - + 0.50324, 0.26391, 1.36066, 0.10174, 0.00712, 0.00001, - + 0.50222, 0.25934, 1.29441, 0.10023, 0.01096, 0.00000, - + 0.50039, 0.25496, 1.23023, 0.09856, 0.01391, 0.00001, - + 0.49787, 0.25074, 1.16867, 0.09674, 0.01616, 0.00013, - + 0.49496, 0.24669, 1.11108, 0.09455, 0.01793, 0.00124, - + 0.49175, 0.24281, 1.05741, 0.09212, 0.01933, 0.00311, - + 0.48834, 0.23909, 1.00753, 0.08986, 0.02045, 0.00452, - + 0.48481, 0.23553, 0.96131, 0.08771, 0.02134, 0.00571, - + 0.48113, 0.23206, 0.91813, 0.08564, 0.02202, 0.00670, - + 0.47741, 0.22874, 0.87816, 0.08368, 0.02257, 0.00753, - + 0.47370, 0.22556, 0.84121, 0.08182, 0.02300, 0.00825, - + 0.47000, 0.22250, 0.80693, 0.08004, 0.02334, 0.00886, - + 0.46624, 0.21953, 0.77481, 0.07834, 0.02358, 0.00936, - + 0.46258, 0.21669, 0.74511, 0.07672, 0.02377, 0.00980, - + 0.45891, 0.21394, 0.71730, 0.07517, 0.02389, 0.01017, - + 0.45529, 0.21128, 0.69133, 0.07369, 0.02397, 0.01049, - + 0.45172, 0.20873, 0.66707, 0.07228, 0.02401, 0.01076, - + 0.44818, 0.20625, 0.64427, 0.07091, 0.02402, 0.01098/ - DATA ((F(I,18,K),I=1,6),K=1,19)/ - + 0.54644, 0.27388, 1.21772, 0.08307, 0.00152, 0.00001, - + 0.54122, 0.26674, 1.13669, 0.08111, 0.00539, 0.00001, - + 0.53532, 0.26010, 1.06075, 0.07905, 0.00820, 0.00001, - + 0.52915, 0.25395, 0.99175, 0.07700, 0.01032, 0.00001, - + 0.52275, 0.24820, 0.92887, 0.07494, 0.01189, 0.00009, - + 0.51636, 0.24281, 0.87215, 0.07271, 0.01309, 0.00089, - + 0.51000, 0.23774, 0.82076, 0.07037, 0.01402, 0.00221, - + 0.50371, 0.23294, 0.77418, 0.06822, 0.01474, 0.00320, - + 0.49753, 0.22842, 0.73189, 0.06621, 0.01529, 0.00401, - + 0.49139, 0.22410, 0.69313, 0.06430, 0.01570, 0.00468, - + 0.48542, 0.21999, 0.65783, 0.06251, 0.01601, 0.00524, - + 0.47962, 0.21609, 0.62563, 0.06083, 0.01624, 0.00571, - + 0.47399, 0.21240, 0.59613, 0.05925, 0.01641, 0.00611, - + 0.46843, 0.20883, 0.56887, 0.05774, 0.01651, 0.00643, - + 0.46308, 0.20544, 0.54387, 0.05632, 0.01657, 0.00671, - + 0.45784, 0.20219, 0.52072, 0.05497, 0.01659, 0.00693, - + 0.45273, 0.19907, 0.49929, 0.05369, 0.01659, 0.00712, - + 0.44777, 0.19610, 0.47944, 0.05247, 0.01657, 0.00729, - + 0.44293, 0.19323, 0.46094, 0.05131, 0.01652, 0.00742/ - DATA ((F(I,19,K),I=1,6),K=1,19)/ - + 0.57591, 0.27299, 1.03779, 0.06582, 0.00117, 0.00000, - + 0.56507, 0.26368, 0.94919, 0.06361, 0.00409, 0.00000, - + 0.55434, 0.25527, 0.87084, 0.06144, 0.00617, 0.00000, - + 0.54400, 0.24762, 0.80245, 0.05936, 0.00770, 0.00000, - + 0.53397, 0.24060, 0.74213, 0.05735, 0.00881, 0.00006, - + 0.52433, 0.23411, 0.68903, 0.05529, 0.00964, 0.00064, - + 0.51505, 0.22809, 0.64200, 0.05320, 0.01026, 0.00159, - + 0.50616, 0.22248, 0.60007, 0.05129, 0.01073, 0.00229, - + 0.49763, 0.21720, 0.56261, 0.04953, 0.01108, 0.00286, - + 0.48936, 0.21223, 0.52880, 0.04787, 0.01131, 0.00332, - + 0.48142, 0.20755, 0.49838, 0.04633, 0.01149, 0.00370, - + 0.47382, 0.20314, 0.47094, 0.04490, 0.01160, 0.00402, - + 0.46656, 0.19897, 0.44606, 0.04355, 0.01167, 0.00428, - + 0.45947, 0.19500, 0.42330, 0.04229, 0.01170, 0.00449, - + 0.45271, 0.19125, 0.40259, 0.04110, 0.01171, 0.00466, - + 0.44618, 0.18767, 0.38359, 0.03997, 0.01168, 0.00481, - + 0.43989, 0.18425, 0.36613, 0.03891, 0.01164, 0.00492, - + 0.43384, 0.18100, 0.35005, 0.03791, 0.01159, 0.00502, - + 0.42795, 0.17788, 0.33518, 0.03696, 0.01152, 0.00509/ - DATA ((F(I,20,K),I=1,6),K=1,19)/ - + 0.59252, 0.26706, 0.88101, 0.05127, 0.00090, 0.00000, - + 0.57632, 0.25594, 0.79114, 0.04912, 0.00312, 0.00000, - + 0.56111, 0.24607, 0.71477, 0.04706, 0.00466, 0.00000, - + 0.54695, 0.23723, 0.64999, 0.04516, 0.00577, 0.00000, - + 0.53364, 0.22923, 0.59426, 0.04335, 0.00656, 0.00005, - + 0.52114, 0.22192, 0.54614, 0.04155, 0.00713, 0.00047, - + 0.50934, 0.21520, 0.50422, 0.03978, 0.00755, 0.00115, - + 0.49821, 0.20899, 0.46739, 0.03817, 0.00785, 0.00165, - + 0.48768, 0.20320, 0.43490, 0.03668, 0.00807, 0.00205, - + 0.47762, 0.19779, 0.40595, 0.03531, 0.00820, 0.00237, - + 0.46807, 0.19273, 0.38017, 0.03403, 0.00829, 0.00264, - + 0.45902, 0.18799, 0.35712, 0.03286, 0.00835, 0.00285, - + 0.45044, 0.18354, 0.33639, 0.03176, 0.00836, 0.00302, - + 0.44215, 0.17932, 0.31761, 0.03073, 0.00835, 0.00316, - + 0.43430, 0.17535, 0.30064, 0.02977, 0.00833, 0.00327, - + 0.42678, 0.17158, 0.28518, 0.02886, 0.00829, 0.00336, - + 0.41958, 0.16800, 0.27106, 0.02801, 0.00824, 0.00343, - + 0.41268, 0.16461, 0.25814, 0.02721, 0.00818, 0.00349, - + 0.40603, 0.16137, 0.24626, 0.02646, 0.00811, 0.00354/ - DATA ((F(I,21,K),I=1,6),K=1,19)/ - + 0.59760, 0.25710, 0.74463, 0.03934, 0.00069, 0.00000, - + 0.57654, 0.24456, 0.65754, 0.03740, 0.00237, 0.00000, - + 0.55733, 0.23359, 0.58570, 0.03559, 0.00352, 0.00000, - + 0.53985, 0.22388, 0.52613, 0.03394, 0.00433, 0.00000, - + 0.52373, 0.21517, 0.47593, 0.03240, 0.00489, 0.00004, - + 0.50882, 0.20730, 0.43327, 0.03090, 0.00528, 0.00034, - + 0.49495, 0.20013, 0.39664, 0.02944, 0.00556, 0.00084, - + 0.48200, 0.19353, 0.36483, 0.02812, 0.00576, 0.00119, - + 0.46986, 0.18744, 0.33707, 0.02692, 0.00589, 0.00148, - + 0.45840, 0.18177, 0.31263, 0.02581, 0.00597, 0.00171, - + 0.44763, 0.17651, 0.29105, 0.02479, 0.00601, 0.00189, - + 0.43748, 0.17161, 0.27191, 0.02385, 0.00602, 0.00203, - + 0.42787, 0.16702, 0.25483, 0.02298, 0.00602, 0.00215, - + 0.41872, 0.16270, 0.23948, 0.02216, 0.00599, 0.00223, - + 0.41009, 0.15866, 0.22569, 0.02141, 0.00595, 0.00231, - + 0.40183, 0.15483, 0.21319, 0.02070, 0.00591, 0.00237, - + 0.39399, 0.15121, 0.20186, 0.02004, 0.00585, 0.00241, - + 0.38653, 0.14779, 0.19155, 0.01942, 0.00579, 0.00245, - + 0.37937, 0.14453, 0.18212, 0.01883, 0.00573, 0.00247/ - DATA ((F(I,22,K),I=1,6),K=1,19)/ - + 0.59248, 0.24390, 0.62629, 0.02973, 0.00053, 0.00000, - + 0.56722, 0.23035, 0.54441, 0.02807, 0.00180, 0.00000, - + 0.54463, 0.21861, 0.47857, 0.02656, 0.00265, 0.00000, - + 0.52438, 0.20835, 0.42499, 0.02518, 0.00324, 0.00000, - + 0.50597, 0.19922, 0.38061, 0.02392, 0.00364, 0.00003, - + 0.48918, 0.19104, 0.34347, 0.02270, 0.00391, 0.00025, - + 0.47369, 0.18363, 0.31190, 0.02153, 0.00410, 0.00061, - + 0.45936, 0.17686, 0.28482, 0.02048, 0.00422, 0.00087, - + 0.44604, 0.17065, 0.26141, 0.01953, 0.00430, 0.00107, - + 0.43355, 0.16491, 0.24100, 0.01866, 0.00434, 0.00123, - + 0.42188, 0.15960, 0.22312, 0.01786, 0.00435, 0.00135, - + 0.41097, 0.15468, 0.20737, 0.01713, 0.00435, 0.00145, - + 0.40074, 0.15009, 0.19341, 0.01645, 0.00434, 0.00153, - + 0.39101, 0.14579, 0.18096, 0.01582, 0.00430, 0.00159, - + 0.38188, 0.14177, 0.16983, 0.01524, 0.00426, 0.00163, - + 0.37321, 0.13799, 0.15982, 0.01470, 0.00421, 0.00167, - + 0.36499, 0.13443, 0.15078, 0.01419, 0.00417, 0.00170, - + 0.35720, 0.13108, 0.14259, 0.01371, 0.00412, 0.00172, - + 0.34975, 0.12790, 0.13514, 0.01327, 0.00406, 0.00173/ - DATA ((F(I,23,K),I=1,6),K=1,19)/ - + 0.57866, 0.22836, 0.52395, 0.02215, 0.00040, 0.00000, - + 0.54992, 0.21417, 0.44877, 0.02079, 0.00136, 0.00000, - + 0.52462, 0.20201, 0.38958, 0.01956, 0.00199, 0.00000, - + 0.50223, 0.19147, 0.34222, 0.01846, 0.00242, 0.00000, - + 0.48209, 0.18218, 0.30359, 0.01745, 0.00270, 0.00002, - + 0.46390, 0.17390, 0.27165, 0.01649, 0.00289, 0.00018, - + 0.44726, 0.16645, 0.24481, 0.01558, 0.00302, 0.00045, - + 0.43198, 0.15969, 0.22202, 0.01477, 0.00309, 0.00063, - + 0.41788, 0.15352, 0.20250, 0.01403, 0.00314, 0.00078, - + 0.40474, 0.14785, 0.18562, 0.01336, 0.00315, 0.00088, - + 0.39254, 0.14262, 0.17094, 0.01275, 0.00315, 0.00097, - + 0.38118, 0.13780, 0.15810, 0.01219, 0.00314, 0.00103, - + 0.37059, 0.13333, 0.14680, 0.01167, 0.00312, 0.00109, - + 0.36057, 0.12914, 0.13678, 0.01119, 0.00308, 0.00113, - + 0.35120, 0.12526, 0.12786, 0.01076, 0.00305, 0.00116, - + 0.34234, 0.12161, 0.11989, 0.01035, 0.00301, 0.00118, - + 0.33398, 0.11819, 0.11272, 0.00997, 0.00296, 0.00120, - + 0.32608, 0.11497, 0.10626, 0.00961, 0.00292, 0.00121, - + 0.31856, 0.11193, 0.10041, 0.00928, 0.00288, 0.00121/ - DATA ((F(I,24,K),I=1,6),K=1,19)/ - + 0.55751, 0.21111, 0.43576, 0.01626, 0.00032, 0.00001, - + 0.52605, 0.19665, 0.36800, 0.01519, 0.00103, 0.00001, - + 0.49875, 0.18438, 0.31565, 0.01422, 0.00150, 0.00001, - + 0.47481, 0.17382, 0.27441, 0.01336, 0.00181, 0.00001, - + 0.45353, 0.16458, 0.24122, 0.01257, 0.00200, 0.00002, - + 0.43438, 0.15641, 0.21409, 0.01184, 0.00213, 0.00014, - + 0.41704, 0.14910, 0.19154, 0.01114, 0.00221, 0.00033, - + 0.40122, 0.14250, 0.17256, 0.01052, 0.00226, 0.00046, - + 0.38670, 0.13650, 0.15644, 0.00997, 0.00228, 0.00056, - + 0.37328, 0.13102, 0.14261, 0.00946, 0.00229, 0.00063, - + 0.36088, 0.12599, 0.13068, 0.00900, 0.00228, 0.00069, - + 0.34938, 0.12136, 0.12030, 0.00857, 0.00227, 0.00074, - + 0.33866, 0.11709, 0.11122, 0.00819, 0.00224, 0.00078, - + 0.32860, 0.11311, 0.10321, 0.00784, 0.00221, 0.00080, - + 0.31922, 0.10943, 0.09612, 0.00751, 0.00217, 0.00082, - + 0.31039, 0.10598, 0.08982, 0.00721, 0.00214, 0.00083, - + 0.30208, 0.10275, 0.08418, 0.00693, 0.00211, 0.00084, - + 0.29427, 0.09973, 0.07911, 0.00666, 0.00207, 0.00085, - + 0.28686, 0.09688, 0.07454, 0.00642, 0.00203, 0.00085/ - DATA ((F(I,25,K),I=1,6),K=1,19)/ - + 0.53038, 0.19284, 0.36016, 0.01175, 0.00024, 0.00001, - + 0.49702, 0.17844, 0.30004, 0.01093, 0.00078, 0.00001, - + 0.46839, 0.16633, 0.25439, 0.01019, 0.00112, 0.00001, - + 0.44351, 0.15598, 0.21894, 0.00953, 0.00134, 0.00001, - + 0.42157, 0.14698, 0.19077, 0.00893, 0.00147, 0.00002, - + 0.40198, 0.13908, 0.16799, 0.00838, 0.00156, 0.00010, - + 0.38436, 0.13205, 0.14924, 0.00786, 0.00161, 0.00024, - + 0.36837, 0.12573, 0.13360, 0.00740, 0.00164, 0.00033, - + 0.35378, 0.12002, 0.12041, 0.00699, 0.00165, 0.00040, - + 0.34036, 0.11482, 0.10919, 0.00661, 0.00165, 0.00045, - + 0.32801, 0.11006, 0.09957, 0.00627, 0.00164, 0.00050, - + 0.31661, 0.10571, 0.09125, 0.00596, 0.00162, 0.00053, - + 0.30604, 0.10171, 0.08401, 0.00568, 0.00160, 0.00055, - + 0.29615, 0.09799, 0.07767, 0.00542, 0.00157, 0.00057, - + 0.28696, 0.09456, 0.07208, 0.00518, 0.00155, 0.00058, - + 0.27834, 0.09136, 0.06712, 0.00496, 0.00152, 0.00059, - + 0.27026, 0.08837, 0.06272, 0.00476, 0.00149, 0.00059, - + 0.26268, 0.08558, 0.05877, 0.00457, 0.00146, 0.00060, - + 0.25551, 0.08296, 0.05523, 0.00439, 0.00143, 0.00060/ - DATA ((F(I,26,K),I=1,6),K=1,19)/ - + 0.49857, 0.17413, 0.29568, 0.00839, 0.00017, 0.00000, - + 0.46410, 0.16007, 0.24309, 0.00777, 0.00057, 0.00000, - + 0.43478, 0.14834, 0.20380, 0.00721, 0.00082, 0.00000, - + 0.40952, 0.13841, 0.17369, 0.00672, 0.00098, 0.00000, - + 0.38737, 0.12982, 0.15005, 0.00628, 0.00108, 0.00001, - + 0.36780, 0.12231, 0.13113, 0.00587, 0.00114, 0.00007, - + 0.35028, 0.11566, 0.11570, 0.00549, 0.00117, 0.00017, - + 0.33447, 0.10972, 0.10294, 0.00515, 0.00118, 0.00023, - + 0.32011, 0.10438, 0.09225, 0.00484, 0.00118, 0.00028, - + 0.30695, 0.09953, 0.08323, 0.00457, 0.00118, 0.00032, - + 0.29490, 0.09512, 0.07554, 0.00432, 0.00117, 0.00035, - + 0.28381, 0.09109, 0.06893, 0.00410, 0.00115, 0.00037, - + 0.27357, 0.08740, 0.06321, 0.00390, 0.00113, 0.00038, - + 0.26404, 0.08399, 0.05822, 0.00371, 0.00111, 0.00040, - + 0.25521, 0.08084, 0.05384, 0.00354, 0.00109, 0.00041, - + 0.24696, 0.07792, 0.04998, 0.00338, 0.00107, 0.00041, - + 0.23923, 0.07520, 0.04656, 0.00324, 0.00105, 0.00041, - + 0.23201, 0.07266, 0.04351, 0.00310, 0.00102, 0.00041, - + 0.22519, 0.07029, 0.04078, 0.00298, 0.00100, 0.00041/ - DATA ((F(I,27,K),I=1,6),K=1,19)/ - + 0.46329, 0.15537, 0.24091, 0.00586, 0.00013, 0.00000, - + 0.42842, 0.14190, 0.19552, 0.00541, 0.00042, 0.00000, - + 0.39903, 0.13075, 0.16212, 0.00501, 0.00060, 0.00000, - + 0.37391, 0.12138, 0.13685, 0.00465, 0.00071, 0.00000, - + 0.35203, 0.11332, 0.11724, 0.00434, 0.00078, 0.00000, - + 0.33282, 0.10632, 0.10170, 0.00404, 0.00082, 0.00005, - + 0.31570, 0.10014, 0.08913, 0.00376, 0.00084, 0.00012, - + 0.30035, 0.09465, 0.07882, 0.00352, 0.00085, 0.00017, - + 0.28647, 0.08974, 0.07025, 0.00330, 0.00084, 0.00020, - + 0.27380, 0.08529, 0.06306, 0.00311, 0.00084, 0.00023, - + 0.26225, 0.08127, 0.05697, 0.00293, 0.00083, 0.00025, - + 0.25166, 0.07760, 0.05177, 0.00277, 0.00081, 0.00026, - + 0.24192, 0.07426, 0.04728, 0.00263, 0.00080, 0.00027, - + 0.23288, 0.07117, 0.04340, 0.00250, 0.00078, 0.00028, - + 0.22453, 0.06834, 0.04000, 0.00238, 0.00077, 0.00028, - + 0.21676, 0.06571, 0.03702, 0.00227, 0.00075, 0.00028, - + 0.20951, 0.06327, 0.03438, 0.00217, 0.00073, 0.00029, - + 0.20274, 0.06101, 0.03204, 0.00207, 0.00071, 0.00028, - + 0.19637, 0.05889, 0.02996, 0.00198, 0.00069, 0.00028/ - DATA ((F(I,28,K),I=1,6),K=1,19)/ - + 0.42566, 0.13702, 0.19472, 0.00405, 0.00009, 0.00000, - + 0.39105, 0.12435, 0.15604, 0.00373, 0.00030, -0.00001, - + 0.36215, 0.11393, 0.12799, 0.00344, 0.00043, -0.00001, - + 0.33762, 0.10522, 0.10702, 0.00319, 0.00051, -0.00001, - + 0.31642, 0.09779, 0.09093, 0.00296, 0.00056, 0.00000, - + 0.29787, 0.09136, 0.07830, 0.00275, 0.00058, 0.00003, - + 0.28145, 0.08572, 0.06817, 0.00256, 0.00059, 0.00008, - + 0.26677, 0.08073, 0.05993, 0.00238, 0.00060, 0.00011, - + 0.25357, 0.07628, 0.05312, 0.00223, 0.00060, 0.00014, - + 0.24158, 0.07227, 0.04745, 0.00210, 0.00059, 0.00016, - + 0.23068, 0.06865, 0.04268, 0.00197, 0.00058, 0.00017, - + 0.22074, 0.06537, 0.03862, 0.00186, 0.00057, 0.00018, - + 0.21163, 0.06238, 0.03514, 0.00176, 0.00056, 0.00019, - + 0.20319, 0.05964, 0.03215, 0.00167, 0.00054, 0.00019, - + 0.19542, 0.05712, 0.02954, 0.00159, 0.00053, 0.00019, - + 0.18822, 0.05480, 0.02725, 0.00151, 0.00052, 0.00019, - + 0.18152, 0.05265, 0.02524, 0.00144, 0.00050, 0.00019, - + 0.17527, 0.05065, 0.02346, 0.00137, 0.00049, 0.00019, - + 0.16942, 0.04879, 0.02188, 0.00131, 0.00048, 0.00019/ - DATA ((F(I,29,K),I=1,6),K=1,19)/ - + 0.38667, 0.11938, 0.15599, 0.00273, 0.00006, 0.00000, - + 0.35294, 0.10765, 0.12344, 0.00251, 0.00021, -0.00001, - + 0.32500, 0.09808, 0.10017, 0.00231, 0.00031, 0.00000, - + 0.30145, 0.09012, 0.08298, 0.00214, 0.00036, -0.00001, - + 0.28122, 0.08337, 0.06993, 0.00198, 0.00040, 0.00000, - + 0.26362, 0.07756, 0.05978, 0.00183, 0.00041, 0.00002, - + 0.24812, 0.07250, 0.05171, 0.00170, 0.00042, 0.00006, - + 0.23432, 0.06803, 0.04519, 0.00158, 0.00042, 0.00008, - + 0.22198, 0.06406, 0.03984, 0.00148, 0.00042, 0.00010, - + 0.21080, 0.06050, 0.03542, 0.00138, 0.00041, 0.00011, - + 0.20069, 0.05730, 0.03171, 0.00130, 0.00040, 0.00012, - + 0.19150, 0.05441, 0.02858, 0.00122, 0.00039, 0.00012, - + 0.18310, 0.05178, 0.02591, 0.00115, 0.00038, 0.00013, - + 0.17534, 0.04938, 0.02362, 0.00109, 0.00037, 0.00013, - + 0.16822, 0.04718, 0.02164, 0.00104, 0.00036, 0.00013, - + 0.16165, 0.04515, 0.01990, 0.00098, 0.00035, 0.00013, - + 0.15554, 0.04328, 0.01839, 0.00093, 0.00034, 0.00013, - + 0.14987, 0.04155, 0.01705, 0.00089, 0.00033, 0.00013, - + 0.14456, 0.03995, 0.01586, 0.00085, 0.00033, 0.00013/ - DATA ((F(I,30,K),I=1,6),K=1,19)/ - + 0.34727, 0.10273, 0.12377, 0.00182, 0.00004, 0.00000, - + 0.31495, 0.09205, 0.09673, 0.00167, 0.00016, 0.00000, - + 0.28837, 0.08340, 0.07766, 0.00154, 0.00022, 0.00000, - + 0.26611, 0.07625, 0.06374, 0.00142, 0.00026, 0.00000, - + 0.24711, 0.07021, 0.05328, 0.00131, 0.00028, 0.00000, - + 0.23068, 0.06505, 0.04521, 0.00121, 0.00029, 0.00002, - + 0.21626, 0.06056, 0.03886, 0.00112, 0.00029, 0.00004, - + 0.20349, 0.05663, 0.03376, 0.00104, 0.00029, 0.00005, - + 0.19211, 0.05314, 0.02962, 0.00097, 0.00028, 0.00006, - + 0.18187, 0.05003, 0.02620, 0.00090, 0.00028, 0.00007, - + 0.17262, 0.04724, 0.02336, 0.00085, 0.00028, 0.00008, - + 0.16424, 0.04473, 0.02097, 0.00080, 0.00027, 0.00008, - + 0.15662, 0.04245, 0.01894, 0.00075, 0.00026, 0.00009, - + 0.14961, 0.04037, 0.01721, 0.00071, 0.00026, 0.00009, - + 0.14319, 0.03848, 0.01571, 0.00067, 0.00025, 0.00009, - + 0.13726, 0.03674, 0.01441, 0.00063, 0.00024, 0.00009, - + 0.13177, 0.03514, 0.01328, 0.00060, 0.00023, 0.00009, - + 0.12669, 0.03367, 0.01228, 0.00057, 0.00023, 0.00009, - + 0.12195, 0.03230, 0.01140, 0.00055, 0.00022, 0.00009/ - DATA ((F(I,31,K),I=1,6),K=1,19)/ - + 0.30821, 0.08726, 0.09717, 0.00118, 0.00003, 0.00000, - + 0.27772, 0.07768, 0.07499, 0.00108, 0.00011, 0.00000, - + 0.25284, 0.06999, 0.05957, 0.00099, 0.00015, 0.00000, - + 0.23213, 0.06366, 0.04844, 0.00091, 0.00018, 0.00000, - + 0.21457, 0.05835, 0.04016, 0.00084, 0.00019, 0.00000, - + 0.19946, 0.05384, 0.03384, 0.00078, 0.00020, 0.00001, - + 0.18626, 0.04993, 0.02889, 0.00072, 0.00020, 0.00003, - + 0.17463, 0.04651, 0.02495, 0.00066, 0.00020, 0.00004, - + 0.16430, 0.04350, 0.02178, 0.00062, 0.00019, 0.00004, - + 0.15504, 0.04082, 0.01918, 0.00057, 0.00019, 0.00005, - + 0.14671, 0.03843, 0.01703, 0.00054, 0.00019, 0.00005, - + 0.13919, 0.03628, 0.01522, 0.00050, 0.00018, 0.00006, - + 0.13237, 0.03434, 0.01370, 0.00047, 0.00018, 0.00006, - + 0.12612, 0.03258, 0.01240, 0.00045, 0.00017, 0.00006, - + 0.12041, 0.03097, 0.01129, 0.00042, 0.00017, 0.00006, - + 0.11515, 0.02950, 0.01033, 0.00040, 0.00016, 0.00006, - + 0.11030, 0.02815, 0.00949, 0.00038, 0.00015, 0.00006, - + 0.10582, 0.02691, 0.00875, 0.00036, 0.00015, 0.00006, - + 0.10164, 0.02577, 0.00811, 0.00034, 0.00015, 0.00006/ - DATA ((F(I,32,K),I=1,6),K=1,19)/ - + 0.27019, 0.07311, 0.07539, 0.00075, 0.00003, 0.00000, - + 0.24189, 0.06466, 0.05745, 0.00069, 0.00008, 0.00000, - + 0.21894, 0.05792, 0.04515, 0.00064, 0.00011, 0.00000, - + 0.19998, 0.05242, 0.03636, 0.00058, 0.00013, 0.00000, - + 0.18399, 0.04782, 0.02990, 0.00054, 0.00013, 0.00000, - + 0.17031, 0.04393, 0.02502, 0.00049, 0.00014, 0.00001, - + 0.15842, 0.04058, 0.02123, 0.00045, 0.00014, 0.00002, - + 0.14798, 0.03767, 0.01823, 0.00042, 0.00014, 0.00003, - + 0.13875, 0.03511, 0.01582, 0.00039, 0.00013, 0.00003, - + 0.13051, 0.03284, 0.01387, 0.00036, 0.00013, 0.00004, - + 0.12312, 0.03082, 0.01226, 0.00034, 0.00013, 0.00004, - + 0.11647, 0.02901, 0.01092, 0.00032, 0.00012, 0.00004, - + 0.11045, 0.02739, 0.00979, 0.00030, 0.00012, 0.00004, - + 0.10495, 0.02591, 0.00883, 0.00028, 0.00012, 0.00004, - + 0.09995, 0.02458, 0.00801, 0.00026, 0.00011, 0.00004, - + 0.09536, 0.02335, 0.00731, 0.00025, 0.00011, 0.00004, - + 0.09114, 0.02223, 0.00670, 0.00023, 0.00010, 0.00004, - + 0.08725, 0.02121, 0.00617, 0.00022, 0.00010, 0.00004, - + 0.08363, 0.02026, 0.00570, 0.00021, 0.00010, 0.00004/ - DATA ((F(I,33,K),I=1,6),K=1,19)/ - + 0.23385, 0.06037, 0.05777, 0.00046, 0.00001, 0.00000, - + 0.20798, 0.05305, 0.04347, 0.00043, 0.00005, 0.00000, - + 0.18716, 0.04725, 0.03379, 0.00039, 0.00007, 0.00000, - + 0.17007, 0.04253, 0.02696, 0.00036, 0.00008, 0.00000, - + 0.15573, 0.03863, 0.02199, 0.00033, 0.00009, 0.00000, - + 0.14353, 0.03534, 0.01826, 0.00030, 0.00009, 0.00000, - + 0.13297, 0.03251, 0.01539, 0.00028, 0.00009, 0.00001, - + 0.12375, 0.03007, 0.01314, 0.00026, 0.00009, 0.00001, - + 0.11564, 0.02792, 0.01135, 0.00024, 0.00008, 0.00001, - + 0.10840, 0.02603, 0.00990, 0.00022, 0.00008, 0.00002, - + 0.10195, 0.02436, 0.00871, 0.00021, 0.00008, 0.00002, - + 0.09616, 0.02286, 0.00773, 0.00020, 0.00008, 0.00002, - + 0.09094, 0.02152, 0.00691, 0.00018, 0.00007, 0.00002, - + 0.08619, 0.02031, 0.00621, 0.00017, 0.00007, 0.00002, - + 0.08188, 0.01921, 0.00562, 0.00016, 0.00007, 0.00002, - + 0.07793, 0.01821, 0.00511, 0.00015, 0.00007, 0.00002, - + 0.07430, 0.01730, 0.00467, 0.00014, 0.00007, 0.00003, - + 0.07097, 0.01646, 0.00429, 0.00013, 0.00007, 0.00003, - + 0.06789, 0.01569, 0.00396, 0.00013, 0.00006, 0.00003/ - DATA ((F(I,34,K),I=1,6),K=1,19)/ - + 0.19961, 0.04908, 0.04364, 0.00028, 0.00001, 0.00000, - + 0.17635, 0.04284, 0.03241, 0.00026, 0.00003, 0.00000, - + 0.15777, 0.03793, 0.02492, 0.00024, 0.00005, 0.00000, - + 0.14260, 0.03396, 0.01969, 0.00022, 0.00005, 0.00000, - + 0.12996, 0.03070, 0.01593, 0.00020, 0.00006, 0.00000, - + 0.11925, 0.02796, 0.01313, 0.00019, 0.00006, 0.00000, - + 0.11003, 0.02562, 0.01100, 0.00017, 0.00006, 0.00000, - + 0.10202, 0.02360, 0.00933, 0.00016, 0.00006, 0.00000, - + 0.09499, 0.02184, 0.00802, 0.00015, 0.00006, 0.00001, - + 0.08875, 0.02030, 0.00696, 0.00014, 0.00005, 0.00001, - + 0.08320, 0.01893, 0.00610, 0.00013, 0.00005, 0.00001, - + 0.07824, 0.01772, 0.00539, 0.00012, 0.00005, 0.00001, - + 0.07379, 0.01663, 0.00480, 0.00011, 0.00005, 0.00001, - + 0.06975, 0.01565, 0.00430, 0.00010, 0.00004, 0.00001, - + 0.06609, 0.01477, 0.00388, 0.00010, 0.00004, 0.00001, - + 0.06274, 0.01397, 0.00352, 0.00009, 0.00004, 0.00001, - + 0.05968, 0.01323, 0.00321, 0.00009, 0.00004, 0.00002, - + 0.05688, 0.01257, 0.00294, 0.00008, 0.00004, 0.00002, - + 0.05429, 0.01195, 0.00271, 0.00008, 0.00004, 0.00002/ - DATA ((F(I,35,K),I=1,6),K=1,19)/ - + 0.16787, 0.03921, 0.03245, 0.00016, 0.00001, 0.00000, - + 0.14729, 0.03401, 0.02378, 0.00015, 0.00002, 0.00000, - + 0.13099, 0.02993, 0.01807, 0.00014, 0.00003, 0.00000, - + 0.11776, 0.02666, 0.01415, 0.00013, 0.00004, 0.00000, - + 0.10681, 0.02397, 0.01135, 0.00012, 0.00003, -0.00001, - + 0.09756, 0.02173, 0.00928, 0.00011, 0.00003, 0.00000, - + 0.08965, 0.01984, 0.00772, 0.00010, 0.00003, 0.00000, - + 0.08279, 0.01821, 0.00652, 0.00009, 0.00003, 0.00001, - + 0.07682, 0.01678, 0.00557, 0.00008, 0.00004, 0.00001, - + 0.07153, 0.01554, 0.00481, 0.00008, 0.00003, 0.00001, - + 0.06684, 0.01445, 0.00420, 0.00007, 0.00003, 0.00001, - + 0.06267, 0.01348, 0.00369, 0.00007, 0.00003, 0.00001, - + 0.05893, 0.01262, 0.00328, 0.00006, 0.00003, 0.00001, - + 0.05554, 0.01184, 0.00293, 0.00006, 0.00003, 0.00001, - + 0.05249, 0.01114, 0.00263, 0.00006, 0.00003, 0.00001, - + 0.04971, 0.01051, 0.00238, 0.00005, 0.00003, 0.00001, - + 0.04717, 0.00994, 0.00217, 0.00005, 0.00003, 0.00001, - + 0.04485, 0.00942, 0.00198, 0.00005, 0.00002, 0.00001, - + 0.04271, 0.00894, 0.00182, 0.00004, 0.00002, 0.00001/ - DATA ((F(I,36,K),I=1,6),K=1,19)/ - + 0.13892, 0.03076, 0.02370, 0.00009, 0.00000, 0.00000, - + 0.12104, 0.02649, 0.01713, 0.00009, 0.00001, 0.00000, - + 0.10698, 0.02317, 0.01287, 0.00008, 0.00002, 0.00000, - + 0.09565, 0.02052, 0.00998, 0.00008, 0.00002, 0.00000, - + 0.08632, 0.01836, 0.00793, 0.00007, 0.00002, 0.00000, - + 0.07849, 0.01657, 0.00644, 0.00006, 0.00002, 0.00000, - + 0.07181, 0.01506, 0.00532, 0.00006, 0.00002, 0.00000, - + 0.06606, 0.01377, 0.00446, 0.00005, 0.00002, 0.00000, - + 0.06106, 0.01264, 0.00379, 0.00005, 0.00002, 0.00000, - + 0.05666, 0.01167, 0.00326, 0.00004, 0.00002, 0.00001, - + 0.05278, 0.01081, 0.00283, 0.00004, 0.00002, 0.00001, - + 0.04933, 0.01006, 0.00248, 0.00004, 0.00002, 0.00001, - + 0.04624, 0.00939, 0.00219, 0.00004, 0.00002, 0.00001, - + 0.04347, 0.00878, 0.00196, 0.00003, 0.00002, 0.00001, - + 0.04097, 0.00824, 0.00175, 0.00003, 0.00002, 0.00001, - + 0.03869, 0.00776, 0.00158, 0.00003, 0.00002, 0.00001, - + 0.03663, 0.00731, 0.00143, 0.00003, 0.00002, 0.00001, - + 0.03474, 0.00691, 0.00131, 0.00003, 0.00001, 0.00001, - + 0.03301, 0.00655, 0.00120, 0.00002, 0.00001, 0.00001/ - DATA ((F(I,37,K),I=1,6),K=1,19)/ - + 0.08998, 0.01773, 0.01186, 0.00003, 0.00000, 0.00000, - + 0.07727, 0.01504, 0.00833, 0.00003, 0.00001, 0.00000, - + 0.06741, 0.01299, 0.00611, 0.00002, 0.00001, 0.00000, - + 0.05958, 0.01137, 0.00464, 0.00002, 0.00001, 0.00000, - + 0.05319, 0.01007, 0.00362, 0.00002, 0.00001, 0.00000, - + 0.04791, 0.00900, 0.00289, 0.00002, 0.00001, 0.00000, - + 0.04344, 0.00811, 0.00236, 0.00002, 0.00001, 0.00000, - + 0.03963, 0.00735, 0.00195, 0.00002, 0.00001, 0.00000, - + 0.03634, 0.00670, 0.00164, 0.00001, 0.00001, 0.00000, - + 0.03348, 0.00614, 0.00140, 0.00001, 0.00001, 0.00000, - + 0.03097, 0.00565, 0.00120, 0.00001, 0.00001, 0.00000, - + 0.02875, 0.00522, 0.00105, 0.00001, 0.00001, 0.00000, - + 0.02678, 0.00484, 0.00092, 0.00001, 0.00001, 0.00000, - + 0.02502, 0.00450, 0.00081, 0.00001, 0.00001, 0.00000, - + 0.02345, 0.00420, 0.00072, 0.00001, 0.00001, 0.00000, - + 0.02203, 0.00393, 0.00065, 0.00001, 0.00001, 0.00000, - + 0.02075, 0.00369, 0.00059, 0.00001, 0.00001, 0.00000, - + 0.01958, 0.00347, 0.00053, 0.00001, 0.00000, 0.00000, - + 0.01852, 0.00327, 0.00049, 0.00001, 0.00000, 0.00000/ - DATA ((F(I,38,K),I=1,6),K=1,19)/ - + 0.05324, 0.00920, 0.00534, 0.00001, 0.00000, 0.00000, - + 0.04500, 0.00768, 0.00364, 0.00001, 0.00000, 0.00000, - + 0.03871, 0.00654, 0.00260, 0.00001, 0.00000, 0.00000, - + 0.03378, 0.00565, 0.00193, 0.00001, 0.00000, 0.00000, - + 0.02982, 0.00495, 0.00148, 0.00001, 0.00000, 0.00000, - + 0.02658, 0.00438, 0.00116, 0.00000, 0.00000, 0.00000, - + 0.02387, 0.00391, 0.00093, 0.00000, 0.00000, 0.00000, - + 0.02157, 0.00351, 0.00076, 0.00000, 0.00000, 0.00000, - + 0.01962, 0.00317, 0.00063, 0.00000, 0.00000, 0.00000, - + 0.01793, 0.00288, 0.00053, 0.00000, 0.00000, 0.00000, - + 0.01646, 0.00263, 0.00045, 0.00000, 0.00000, 0.00000, - + 0.01517, 0.00241, 0.00039, 0.00000, 0.00000, 0.00000, - + 0.01404, 0.00222, 0.00034, 0.00000, 0.00000, 0.00000, - + 0.01304, 0.00205, 0.00030, 0.00000, 0.00000, 0.00000, - + 0.01214, 0.00190, 0.00027, 0.00000, 0.00000, 0.00000, - + 0.01134, 0.00177, 0.00024, 0.00000, 0.00000, 0.00000, - + 0.01061, 0.00165, 0.00021, 0.00000, 0.00000, 0.00000, - + 0.00996, 0.00155, 0.00019, 0.00000, 0.00000, 0.00000, - + 0.00937, 0.00145, 0.00017, 0.00000, 0.00000, 0.00000/ - DATA ((F(I,39,K),I=1,6),K=1,19)/ - + 0.02793, 0.00414, 0.00208, 0.00000, 0.00000, 0.00000, - + 0.02319, 0.00339, 0.00137, 0.00000, 0.00000, 0.00000, - + 0.01964, 0.00284, 0.00095, 0.00000, 0.00000, 0.00000, - + 0.01690, 0.00243, 0.00069, 0.00000, 0.00000, 0.00000, - + 0.01473, 0.00210, 0.00051, 0.00000, 0.00000, 0.00000, - + 0.01297, 0.00183, 0.00040, 0.00000, 0.00000, 0.00000, - + 0.01152, 0.00162, 0.00031, 0.00000, 0.00000, 0.00000, - + 0.01031, 0.00144, 0.00025, 0.00000, 0.00000, 0.00000, - + 0.00929, 0.00129, 0.00021, 0.00000, 0.00000, 0.00000, - + 0.00841, 0.00116, 0.00017, 0.00000, 0.00000, 0.00000, - + 0.00766, 0.00105, 0.00015, 0.00000, 0.00000, 0.00000, - + 0.00700, 0.00096, 0.00012, 0.00000, 0.00000, 0.00000, - + 0.00643, 0.00087, 0.00011, 0.00000, 0.00000, 0.00000, - + 0.00592, 0.00080, 0.00009, 0.00000, 0.00000, 0.00000, - + 0.00548, 0.00074, 0.00008, 0.00000, 0.00000, 0.00000, - + 0.00508, 0.00068, 0.00007, 0.00000, 0.00000, 0.00000, - + 0.00473, 0.00063, 0.00007, 0.00000, 0.00000, 0.00000, - + 0.00441, 0.00059, 0.00006, 0.00000, 0.00000, 0.00000, - + 0.00412, 0.00055, 0.00005, 0.00000, 0.00000, 0.00000/ - DATA ((F(I,40,K),I=1,6),K=1,19)/ - + 0.01235, 0.00152, 0.00066, 0.00000, 0.00000, 0.00000, - + 0.01004, 0.00122, 0.00041, 0.00000, 0.00000, 0.00000, - + 0.00835, 0.00101, 0.00028, 0.00000, 0.00000, 0.00000, - + 0.00707, 0.00084, 0.00020, 0.00000, 0.00000, 0.00000, - + 0.00607, 0.00072, 0.00014, 0.00000, 0.00000, 0.00000, - + 0.00527, 0.00062, 0.00011, 0.00000, 0.00000, 0.00000, - + 0.00463, 0.00054, 0.00008, 0.00000, 0.00000, 0.00000, - + 0.00409, 0.00047, 0.00007, 0.00000, 0.00000, 0.00000, - + 0.00364, 0.00042, 0.00005, 0.00000, 0.00000, 0.00000, - + 0.00326, 0.00037, 0.00004, 0.00000, 0.00000, 0.00000, - + 0.00294, 0.00034, 0.00004, 0.00000, 0.00000, 0.00000, - + 0.00267, 0.00030, 0.00003, 0.00000, 0.00000, 0.00000, - + 0.00243, 0.00027, 0.00003, 0.00000, 0.00000, 0.00000, - + 0.00222, 0.00025, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00203, 0.00023, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00187, 0.00021, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00173, 0.00019, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00160, 0.00018, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00149, 0.00016, 0.00001, 0.00000, 0.00000, 0.00000/ - DATA ((F(I,41,K),I=1,6),K=1,19)/ - + 0.00087, 0.00006, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00067, 0.00005, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00053, 0.00004, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00043, 0.00003, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00035, 0.00002, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00029, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00025, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00021, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00018, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00016, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00014, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00006, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00005, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000/ - DATA XX/1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-4,1.D0,5.D0,1310720.D0/ - DATA N0/3,3,4,8,0,0/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,41 - DO 20 M=1,19 -C READ(69,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(6,N,M) - DO 25 I=1,6 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,15 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=1,5 - DO 30 K=1,19 - 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K)) - 50 FORMAT(6F10.5) - DO 40 I=1,6 - DO 40 M=1,19 - 40 F(I,42,M)=ZEROD - 10 CONTINUE - UPV=ZEROD - DNV=ZEROD - SEA=ZEROD - STR=ZEROD - CHM=ZEROD - GL =ZEROD - BOT=ZEROD -C IF(X.LT.XMIN) X=XMIN -C IF(X.GT.XMAX) X=XMAX - IF(X.LT.XMIN) GOTO 777 - IF(X.GT.XMAX) GOTO 777 - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,6 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.16) GOTO 65 - IF(I.EQ.6) GOTO 65 - FAC=(ONED-B)*F(I,16,M)+B*F(I,16,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - SEA=G(4) - STR=G(4) - CHM=G(5) - GL =G(3) - BOT=G(6) - 777 CONTINUE - RETURN - END diff --git a/PDF/spdf/strh1e.F b/PDF/spdf/strh1e.F deleted file mode 100644 index 3c3810d0de6..00000000000 --- a/PDF/spdf/strh1e.F +++ /dev/null @@ -1,910 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:04 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:50 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE STRH1E(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C :::::::::::: HMRS(E) ::::::::::::::::: 100 MEV:::::::::::: -#include "pdf/impdp.inc" - DIMENSION F(6,42,19),G(6),XX(42),N0(6) - DATA ((F(I,1,K),I=1,6),K=1,19)/ - + 0.04096, 0.00664, 3.32967, 0.03823, 0.01024, 0.00000, - + 0.04188, 0.00720, 6.12704, 0.08701, 0.05797, 0.00000, - + 0.04274, 0.00772, 9.45610, 0.15356, 0.12355, 0.00000, - + 0.04354, 0.00823, 13.16263, 0.23387, 0.20295, 0.00000, - + 0.04430, 0.00870, 17.21933, 0.32622, 0.29517, 0.00219, - + 0.04502, 0.00917, 21.57890, 0.41823, 0.39894, 0.03991, - + 0.04570, 0.00961, 26.15117, 0.49797, 0.51187, 0.14176, - + 0.04636, 0.01004, 30.94051, 0.58737, 0.63407, 0.24236, - + 0.04699, 0.01046, 35.92586, 0.68340, 0.76497, 0.34910, - + 0.04760, 0.01087, 41.09314, 0.78535, 0.90419, 0.46294, - + 0.04819, 0.01127, 46.34061, 0.89131, 1.04876, 0.58071, - + 0.04876, 0.01166, 51.66371, 1.00110, 1.19854, 0.70254, - + 0.04931, 0.01204, 57.13947, 1.11633, 1.35571, 0.83018, - + 0.04985, 0.01241, 62.57440, 1.23280, 1.51455, 0.95903, - + 0.05037, 0.01277, 68.11569, 1.35365, 1.67934, 1.09255, - + 0.05088, 0.01312, 73.65871, 1.47652, 1.84688, 1.22818, - + 0.05137, 0.01347, 79.22708, 1.60192, 2.01784, 1.36647, - + 0.05185, 0.01381, 84.80046, 1.72929, 2.19149, 1.50684, - + 0.05232, 0.01414, 90.37953, 1.85863, 2.36781, 1.64928/ - DATA ((F(I,2,K),I=1,6),K=1,19)/ - + 0.05088, 0.01010, 3.25209, 0.04679, 0.01104, 0.00000, - + 0.05205, 0.01088, 5.65026, 0.09559, 0.05863, 0.00000, - + 0.05312, 0.01162, 8.38432, 0.15751, 0.11943, 0.00000, - + 0.05412, 0.01232, 11.32975, 0.22876, 0.18965, 0.00000, - + 0.05507, 0.01298, 14.46710, 0.30786, 0.26840, 0.00185, - + 0.05596, 0.01362, 17.76108, 0.38459, 0.35459, 0.03294, - + 0.05681, 0.01423, 21.14510, 0.44945, 0.44628, 0.11599, - + 0.05762, 0.01482, 24.62537, 0.52081, 0.54359, 0.19631, - + 0.05840, 0.01539, 28.18849, 0.59613, 0.64605, 0.28006, - + 0.05915, 0.01595, 31.82632, 0.67485, 0.75336, 0.36806, - + 0.05988, 0.01648, 35.46771, 0.75555, 0.86329, 0.45787, - + 0.06058, 0.01700, 39.11272, 0.83813, 0.97577, 0.54962, - + 0.06125, 0.01751, 42.81876, 0.92379, 1.09244, 0.64465, - + 0.06191, 0.01800, 46.45189, 1.00945, 1.20912, 0.73957, - + 0.06254, 0.01849, 50.11823, 1.09745, 1.32897, 0.83696, - + 0.06316, 0.01895, 53.74707, 1.18609, 1.44970, 0.93498, - + 0.06376, 0.01941, 57.35736, 1.27577, 1.57183, 1.03404, - + 0.06435, 0.01986, 60.93729, 1.36612, 1.69487, 1.13378, - + 0.06492, 0.02030, 64.48935, 1.45714, 1.81884, 1.23420/ - DATA ((F(I,3,K),I=1,6),K=1,19)/ - + 0.06282, 0.01534, 3.17485, 0.05724, 0.01161, 0.00000, - + 0.06428, 0.01644, 5.20773, 0.10504, 0.05804, 0.00000, - + 0.06562, 0.01747, 7.42919, 0.16163, 0.11338, 0.00000, - + 0.06687, 0.01844, 9.74484, 0.22388, 0.17448, 0.00000, - + 0.06804, 0.01935, 12.14470, 0.29069, 0.24073, 0.00154, - + 0.06915, 0.02022, 14.60555, 0.35385, 0.31132, 0.02684, - + 0.07020, 0.02105, 17.08078, 0.40597, 0.38480, 0.09372, - + 0.07121, 0.02186, 19.57907, 0.46223, 0.46130, 0.15709, - + 0.07218, 0.02263, 22.09364, 0.52063, 0.54051, 0.22204, - + 0.07310, 0.02337, 24.62143, 0.58071, 0.62221, 0.28930, - + 0.07399, 0.02409, 27.11404, 0.64148, 0.70479, 0.35702, - + 0.07485, 0.02478, 29.57483, 0.70288, 0.78825, 0.42536, - + 0.07568, 0.02546, 32.04695, 0.76583, 0.87382, 0.49532, - + 0.07648, 0.02611, 34.43900, 0.82812, 0.95850, 0.56448, - + 0.07726, 0.02674, 36.82719, 0.89147, 1.04462, 0.63473, - + 0.07801, 0.02736, 39.16483, 0.95469, 1.13058, 0.70478, - + 0.07875, 0.02796, 41.46690, 1.01808, 1.21677, 0.77497, - + 0.07946, 0.02854, 43.72720, 1.08141, 1.30289, 0.84504, - + 0.08015, 0.02911, 45.94916, 1.14472, 1.38898, 0.91504/ - DATA ((F(I,4,K),I=1,6),K=1,19)/ - + 0.07083, 0.01959, 3.12932, 0.06436, 0.01177, 0.00000, - + 0.07248, 0.02092, 4.96284, 0.11100, 0.05696, 0.00000, - + 0.07401, 0.02217, 6.91799, 0.16414, 0.10877, 0.00000, - + 0.07544, 0.02333, 8.91708, 0.22115, 0.16457, 0.00000, - + 0.07677, 0.02443, 10.95555, 0.28120, 0.22396, 0.00137, - + 0.07802, 0.02547, 13.01664, 0.33714, 0.28628, 0.02363, - + 0.07922, 0.02646, 15.06373, 0.38268, 0.35035, 0.08216, - + 0.08036, 0.02741, 17.10666, 0.43131, 0.41633, 0.13696, - + 0.08145, 0.02833, 19.14198, 0.48129, 0.48398, 0.19257, - + 0.08250, 0.02921, 21.16891, 0.53225, 0.55315, 0.24968, - + 0.08351, 0.03005, 23.14951, 0.58339, 0.62253, 0.30672, - + 0.08448, 0.03087, 25.08839, 0.63468, 0.69213, 0.36388, - + 0.08541, 0.03166, 27.02209, 0.68691, 0.76303, 0.42201, - + 0.08632, 0.03243, 28.87794, 0.73826, 0.83274, 0.47912, - + 0.08719, 0.03317, 30.71896, 0.79018, 0.90324, 0.53679, - + 0.08804, 0.03389, 32.50862, 0.84171, 0.97321, 0.59398, - + 0.08887, 0.03459, 34.25996, 0.89311, 1.04301, 0.65098, - + 0.08967, 0.03526, 35.96909, 0.94421, 1.11241, 0.70762, - + 0.09044, 0.03592, 37.63948, 0.99504, 1.18147, 0.76393/ - DATA ((F(I,5,K),I=1,6),K=1,19)/ - + 0.07699, 0.02329, 3.09657, 0.06992, 0.01180, 0.00000, - + 0.07881, 0.02482, 4.79457, 0.11543, 0.05579, 0.00000, - + 0.08048, 0.02624, 6.57428, 0.16597, 0.10496, 0.00000, - + 0.08204, 0.02757, 8.36915, 0.21929, 0.15703, 0.00000, - + 0.08350, 0.02881, 10.17824, 0.27472, 0.21174, 0.00126, - + 0.08488, 0.02999, 11.98900, 0.32584, 0.26855, 0.02151, - + 0.08619, 0.03111, 13.77102, 0.36706, 0.32645, 0.07456, - + 0.08744, 0.03218, 15.53498, 0.41075, 0.38563, 0.12382, - + 0.08863, 0.03321, 17.27930, 0.45534, 0.44589, 0.17347, - + 0.08977, 0.03420, 19.00464, 0.50052, 0.50713, 0.22414, - + 0.09087, 0.03515, 20.67931, 0.54561, 0.56822, 0.27448, - + 0.09193, 0.03606, 22.30855, 0.59059, 0.62918, 0.32467, - + 0.09295, 0.03695, 23.92488, 0.63618, 0.69099, 0.37547, - + 0.09394, 0.03780, 25.46680, 0.68080, 0.75150, 0.42515, - + 0.09489, 0.03862, 26.98915, 0.72572, 0.81243, 0.47512, - + 0.09582, 0.03942, 28.46149, 0.77013, 0.87267, 0.52448, - + 0.09671, 0.04020, 29.89561, 0.81425, 0.93254, 0.57349, - + 0.09758, 0.04095, 31.28883, 0.85797, 0.99187, 0.62202, - + 0.09843, 0.04168, 32.64464, 0.90131, 1.05069, 0.67011/ - DATA ((F(I,6,K),I=1,6),K=1,19)/ - + 0.08206, 0.02664, 3.07078, 0.07454, 0.01175, 0.00000, - + 0.08401, 0.02833, 4.66685, 0.11899, 0.05465, 0.00000, - + 0.08581, 0.02990, 6.31762, 0.16742, 0.10168, 0.00000, - + 0.08749, 0.03136, 7.96477, 0.21788, 0.15087, 0.00000, - + 0.08906, 0.03274, 9.60994, 0.26984, 0.20205, 0.00118, - + 0.09053, 0.03403, 11.24354, 0.31739, 0.25479, 0.01995, - + 0.09194, 0.03526, 12.83967, 0.35545, 0.30819, 0.06899, - + 0.09328, 0.03644, 14.40938, 0.39556, 0.36245, 0.11424, - + 0.09456, 0.03756, 15.95251, 0.43628, 0.41741, 0.15961, - + 0.09578, 0.03864, 17.47061, 0.47733, 0.47299, 0.20569, - + 0.09696, 0.03967, 18.93633, 0.51813, 0.52820, 0.25129, - + 0.09809, 0.04067, 20.35518, 0.55866, 0.58308, 0.29657, - + 0.09918, 0.04163, 21.75691, 0.59958, 0.63852, 0.34222, - + 0.10024, 0.04255, 23.08755, 0.63950, 0.69260, 0.38673, - + 0.10126, 0.04345, 24.39639, 0.67955, 0.74688, 0.43134, - + 0.10224, 0.04431, 25.65698, 0.71902, 0.80039, 0.47527, - + 0.10320, 0.04515, 26.88029, 0.75813, 0.85341, 0.51877, - + 0.10413, 0.04596, 28.06430, 0.79676, 0.90580, 0.56172, - + 0.10503, 0.04675, 29.21252, 0.83496, 0.95762, 0.60418/ - DATA ((F(I,7,K),I=1,6),K=1,19)/ - + 0.09951, 0.04035, 2.98677, 0.09068, 0.01118, 0.00000, - + 0.10196, 0.04266, 4.28244, 0.13070, 0.04959, 0.00000, - + 0.10422, 0.04478, 5.56876, 0.17211, 0.08956, 0.00000, - + 0.10631, 0.04674, 6.80979, 0.21380, 0.12995, 0.00000, - + 0.10828, 0.04857, 8.01392, 0.25551, 0.17081, 0.00094, - + 0.11012, 0.05029, 9.17943, 0.29284, 0.21194, 0.01554, - + 0.11188, 0.05190, 10.29177, 0.32205, 0.25279, 0.05340, - + 0.11355, 0.05344, 11.36288, 0.35230, 0.29355, 0.08767, - + 0.11514, 0.05490, 12.39573, 0.38250, 0.33418, 0.12147, - + 0.11666, 0.05629, 13.39404, 0.41250, 0.37467, 0.15531, - + 0.11813, 0.05762, 14.34086, 0.44191, 0.41436, 0.18836, - + 0.11953, 0.05889, 15.24236, 0.47076, 0.45333, 0.22078, - + 0.12088, 0.06012, 16.12077, 0.49955, 0.49223, 0.25309, - + 0.12219, 0.06129, 16.94078, 0.52731, 0.52977, 0.28424, - + 0.12344, 0.06242, 17.73729, 0.55488, 0.56706, 0.31516, - + 0.12466, 0.06351, 18.49368, 0.58178, 0.60347, 0.34531, - + 0.12584, 0.06456, 19.21832, 0.60818, 0.63921, 0.37489, - + 0.12698, 0.06557, 19.91093, 0.63402, 0.67422, 0.40385, - + 0.12809, 0.06655, 20.57460, 0.65936, 0.70855, 0.43223/ - DATA ((F(I,8,K),I=1,6),K=1,19)/ - + 0.11992, 0.06089, 2.89161, 0.10952, 0.00987, 0.00000, - + 0.12303, 0.06395, 3.90807, 0.14337, 0.04220, 0.00000, - + 0.12589, 0.06674, 4.87665, 0.17714, 0.07464, 0.00000, - + 0.12855, 0.06929, 5.77887, 0.21023, 0.10657, 0.00000, - + 0.13104, 0.07165, 6.62765, 0.24253, 0.13808, 0.00073, - + 0.13337, 0.07384, 7.42676, 0.27082, 0.16912, 0.01176, - + 0.13558, 0.07590, 8.16982, 0.29245, 0.19939, 0.04019, - + 0.13768, 0.07783, 8.86874, 0.31447, 0.22908, 0.06544, - + 0.13968, 0.07966, 9.52822, 0.33610, 0.25819, 0.08993, - + 0.14160, 0.08140, 10.15303, 0.35726, 0.28678, 0.11411, - + 0.14343, 0.08304, 10.73344, 0.37772, 0.31442, 0.13741, - + 0.14518, 0.08461, 11.27537, 0.39752, 0.34122, 0.15998, - + 0.14687, 0.08611, 11.79519, 0.41704, 0.36765, 0.18220, - + 0.14849, 0.08753, 12.27041, 0.43563, 0.39286, 0.20340, - + 0.15005, 0.08890, 12.72536, 0.45390, 0.41764, 0.22420, - + 0.15156, 0.09020, 13.14986, 0.47153, 0.44158, 0.24428, - + 0.15301, 0.09146, 13.55015, 0.48865, 0.46485, 0.26380, - + 0.15442, 0.09267, 13.92672, 0.50525, 0.48742, 0.28272, - + 0.15578, 0.09383, 14.28213, 0.52138, 0.50936, 0.30110/ - DATA ((F(I,9,K),I=1,6),K=1,19)/ - + 0.13374, 0.07721, 2.82642, 0.12154, 0.00880, 0.00000, - + 0.13736, 0.08074, 3.68746, 0.15111, 0.03704, 0.00000, - + 0.14069, 0.08394, 4.48785, 0.18022, 0.06502, 0.00000, - + 0.14377, 0.08684, 5.21715, 0.20841, 0.09224, 0.00000, - + 0.14665, 0.08951, 5.88979, 0.23557, 0.11877, 0.00062, - + 0.14934, 0.09198, 6.51178, 0.25906, 0.14460, 0.00981, - + 0.15189, 0.09428, 7.08019, 0.27674, 0.16952, 0.03346, - + 0.15431, 0.09643, 7.60644, 0.29457, 0.19371, 0.05423, - + 0.15661, 0.09846, 8.09574, 0.31192, 0.21720, 0.07417, - + 0.15880, 0.10037, 8.55301, 0.32872, 0.24005, 0.09369, - + 0.16090, 0.10218, 8.97158, 0.34482, 0.26198, 0.11235, - + 0.16290, 0.10388, 9.35695, 0.36028, 0.28306, 0.13027, - + 0.16483, 0.10552, 9.72256, 0.37539, 0.30369, 0.14779, - + 0.16667, 0.10706, 10.05156, 0.38968, 0.32323, 0.16439, - + 0.16845, 0.10853, 10.36322, 0.40362, 0.34230, 0.18057, - + 0.17016, 0.10994, 10.65013, 0.41697, 0.36060, 0.19609, - + 0.17180, 0.11128, 10.91742, 0.42986, 0.37828, 0.21107, - + 0.17339, 0.11257, 11.16580, 0.44227, 0.39533, 0.22552, - + 0.17493, 0.11380, 11.39737, 0.45425, 0.41180, 0.23947/ - DATA ((F(I,10,K),I=1,6),K=1,19)/ - + 0.14500, 0.09118, 2.77331, 0.13032, 0.00808, 0.00000, - + 0.14908, 0.09501, 3.52587, 0.15697, 0.03367, 0.00000, - + 0.15283, 0.09846, 4.21204, 0.18293, 0.05877, 0.00000, - + 0.15630, 0.10157, 4.82669, 0.20782, 0.08293, 0.00000, - + 0.15952, 0.10442, 5.38470, 0.23154, 0.10624, 0.00055, - + 0.16253, 0.10705, 5.89329, 0.25184, 0.12871, 0.00857, - + 0.16538, 0.10948, 6.35166, 0.26690, 0.15021, 0.02914, - + 0.16807, 0.11174, 6.77052, 0.28198, 0.17090, 0.04706, - + 0.17062, 0.11387, 7.15523, 0.29653, 0.19085, 0.06413, - + 0.17305, 0.11587, 7.51064, 0.31052, 0.21011, 0.08072, - + 0.17536, 0.11774, 7.83187, 0.32383, 0.22847, 0.09648, - + 0.17757, 0.11951, 8.12401, 0.33652, 0.24601, 0.11153, - + 0.17969, 0.12119, 8.39861, 0.34885, 0.26307, 0.12615, - + 0.18172, 0.12277, 8.64208, 0.36043, 0.27913, 0.13992, - + 0.18366, 0.12428, 8.87064, 0.37166, 0.29473, 0.15327, - + 0.18553, 0.12571, 9.07849, 0.38236, 0.30962, 0.16602, - + 0.18733, 0.12708, 9.26993, 0.39262, 0.32393, 0.17827, - + 0.18906, 0.12838, 9.44570, 0.40246, 0.33766, 0.19002, - + 0.19073, 0.12963, 9.60769, 0.41190, 0.35086, 0.20132/ - DATA ((F(I,11,K),I=1,6),K=1,19)/ - + 0.15493, 0.10355, 2.72690, 0.13710, 0.00763, 0.00000, - + 0.15946, 0.10757, 3.39611, 0.16170, 0.03148, 0.00000, - + 0.16361, 0.11117, 3.99639, 0.18534, 0.05455, 0.00000, - + 0.16743, 0.11440, 4.52622, 0.20776, 0.07651, 0.00000, - + 0.17097, 0.11735, 5.00081, 0.22892, 0.09749, 0.00049, - + 0.17428, 0.12005, 5.42798, 0.24683, 0.11754, 0.00767, - + 0.17739, 0.12253, 5.80819, 0.25994, 0.13658, 0.02602, - + 0.18032, 0.12484, 6.15162, 0.27297, 0.15478, 0.04189, - + 0.18309, 0.12700, 6.46357, 0.28547, 0.17219, 0.05691, - + 0.18573, 0.12902, 6.74881, 0.29740, 0.18891, 0.07141, - + 0.18823, 0.13091, 7.00353, 0.30868, 0.20475, 0.08512, - + 0.19062, 0.13268, 7.23250, 0.31936, 0.21979, 0.09814, - + 0.19290, 0.13436, 7.44589, 0.32969, 0.23436, 0.11072, - + 0.19508, 0.13594, 7.63229, 0.33933, 0.24800, 0.12252, - + 0.19716, 0.13743, 7.80575, 0.34863, 0.26118, 0.13392, - + 0.19916, 0.13885, 7.96148, 0.35744, 0.27371, 0.14474, - + 0.20108, 0.14020, 8.10325, 0.36586, 0.28570, 0.15510, - + 0.20293, 0.14147, 8.23181, 0.37388, 0.29715, 0.16501, - + 0.20470, 0.14269, 8.34882, 0.38155, 0.30812, 0.17449/ - DATA ((F(I,12,K),I=1,6),K=1,19)/ - + 0.19507, 0.15149, 2.54346, 0.15467, 0.00598, 0.00000, - + 0.20131, 0.15569, 2.96819, 0.17200, 0.02401, 0.00000, - + 0.20694, 0.15935, 3.32764, 0.18802, 0.04078, 0.00000, - + 0.21205, 0.16257, 3.62763, 0.20269, 0.05622, 0.00000, - + 0.21673, 0.16543, 3.88265, 0.21608, 0.07053, 0.00034, - + 0.22104, 0.16799, 4.10092, 0.22697, 0.08382, 0.00516, - + 0.22504, 0.17030, 4.28491, 0.23439, 0.09613, 0.01738, - + 0.22877, 0.17240, 4.44280, 0.24162, 0.10761, 0.02770, - + 0.23226, 0.17432, 4.57919, 0.24838, 0.11836, 0.03726, - + 0.23554, 0.17609, 4.69793, 0.25467, 0.12846, 0.04630, - + 0.23862, 0.17771, 4.79753, 0.26046, 0.13784, 0.05470, - + 0.24152, 0.17919, 4.88154, 0.26581, 0.14658, 0.06253, - + 0.24427, 0.18058, 4.95632, 0.27088, 0.15489, 0.06998, - + 0.24686, 0.18185, 5.01563, 0.27547, 0.16254, 0.07685, - + 0.24933, 0.18303, 5.06787, 0.27982, 0.16980, 0.08338, - + 0.25166, 0.18413, 5.11053, 0.28383, 0.17659, 0.08950, - + 0.25388, 0.18515, 5.14600, 0.28757, 0.18298, 0.09526, - + 0.25600, 0.18610, 5.17482, 0.29107, 0.18900, 0.10070, - + 0.25802, 0.18698, 5.19803, 0.29433, 0.19467, 0.10583/ - DATA ((F(I,13,K),I=1,6),K=1,19)/ - + 0.26393, 0.21301, 2.26515, 0.15700, 0.00432, 0.00000, - + 0.27194, 0.21591, 2.47235, 0.16668, 0.01691, 0.00000, - + 0.27896, 0.21829, 2.63149, 0.17514, 0.02807, 0.00000, - + 0.28514, 0.22024, 2.75087, 0.18247, 0.03793, 0.00000, - + 0.29065, 0.22184, 2.84173, 0.18884, 0.04672, 0.00021, - + 0.29561, 0.22318, 2.91059, 0.19353, 0.05461, 0.00316, - + 0.30008, 0.22428, 2.96015, 0.19603, 0.06168, 0.01051, - + 0.30416, 0.22518, 2.99567, 0.19841, 0.06808, 0.01655, - + 0.30789, 0.22594, 3.02037, 0.20051, 0.07390, 0.02199, - + 0.31132, 0.22658, 3.03673, 0.20234, 0.07922, 0.02702, - + 0.31446, 0.22708, 3.04427, 0.20389, 0.08403, 0.03159, - + 0.31734, 0.22748, 3.04506, 0.20519, 0.08839, 0.03575, - + 0.32003, 0.22782, 3.04251, 0.20636, 0.09245, 0.03964, - + 0.32247, 0.22804, 3.03359, 0.20728, 0.09608, 0.04314, - + 0.32477, 0.22822, 3.02254, 0.20810, 0.09945, 0.04640, - + 0.32689, 0.22833, 3.00814, 0.20875, 0.10253, 0.04940, - + 0.32886, 0.22839, 2.99155, 0.20929, 0.10535, 0.05218, - + 0.33070, 0.22840, 2.97306, 0.20971, 0.10795, 0.05475, - + 0.33241, 0.22838, 2.95314, 0.21004, 0.11034, 0.05713/ - DATA ((F(I,14,K),I=1,6),K=1,19)/ - + 0.32748, 0.25117, 2.03445, 0.14434, 0.00335, 0.00000, - + 0.33553, 0.25211, 2.13380, 0.14972, 0.01289, 0.00000, - + 0.34236, 0.25266, 2.19959, 0.15415, 0.02109, 0.00001, - + 0.34819, 0.25287, 2.23928, 0.15775, 0.02813, 0.00001, - + 0.35322, 0.25285, 2.26129, 0.16066, 0.03425, 0.00015, - + 0.35760, 0.25267, 2.27045, 0.16241, 0.03960, 0.00220, - + 0.36144, 0.25231, 2.26868, 0.16268, 0.04428, 0.00727, - + 0.36481, 0.25184, 2.25964, 0.16291, 0.04843, 0.01135, - + 0.36779, 0.25128, 2.24539, 0.16300, 0.05211, 0.01497, - + 0.37045, 0.25066, 2.22753, 0.16296, 0.05542, 0.01825, - + 0.37279, 0.24998, 2.20577, 0.16277, 0.05834, 0.02118, - + 0.37484, 0.24924, 2.18135, 0.16247, 0.06093, 0.02381, - + 0.37671, 0.24848, 2.15634, 0.16212, 0.06329, 0.02623, - + 0.37831, 0.24766, 2.12875, 0.16165, 0.06535, 0.02837, - + 0.37977, 0.24683, 2.10118, 0.16114, 0.06724, 0.03035, - + 0.38105, 0.24598, 2.07277, 0.16057, 0.06892, 0.03213, - + 0.38218, 0.24511, 2.04421, 0.15996, 0.07043, 0.03376, - + 0.38317, 0.24423, 2.01557, 0.15931, 0.07179, 0.03524, - + 0.38405, 0.24334, 1.98706, 0.15863, 0.07301, 0.03660/ - DATA ((F(I,15,K),I=1,6),K=1,19)/ - + 0.38577, 0.27514, 1.83134, 0.12703, 0.00268, 0.00000, - + 0.39258, 0.27396, 1.86637, 0.12979, 0.01018, -0.00001, - + 0.39814, 0.27257, 1.87912, 0.13185, 0.01646, 0.00000, - + 0.40260, 0.27103, 1.87548, 0.13332, 0.02174, 0.00000, - + 0.40628, 0.26939, 1.86163, 0.13432, 0.02622, 0.00011, - + 0.40931, 0.26770, 1.84105, 0.13451, 0.03006, 0.00162, - + 0.41176, 0.26596, 1.81489, 0.13365, 0.03336, 0.00532, - + 0.41378, 0.26417, 1.78555, 0.13283, 0.03622, 0.00826, - + 0.41544, 0.26239, 1.75442, 0.13196, 0.03872, 0.01082, - + 0.41679, 0.26062, 1.72249, 0.13105, 0.04091, 0.01311, - + 0.41784, 0.25884, 1.68940, 0.13007, 0.04281, 0.01513, - + 0.41864, 0.25707, 1.65589, 0.12905, 0.04446, 0.01693, - + 0.41929, 0.25534, 1.62326, 0.12805, 0.04595, 0.01856, - + 0.41967, 0.25360, 1.59008, 0.12699, 0.04721, 0.01997, - + 0.41994, 0.25191, 1.55799, 0.12595, 0.04834, 0.02127, - + 0.42007, 0.25022, 1.52634, 0.12489, 0.04933, 0.02242, - + 0.42007, 0.24855, 1.49547, 0.12384, 0.05019, 0.02346, - + 0.41997, 0.24691, 1.46537, 0.12278, 0.05095, 0.02439, - + 0.41978, 0.24530, 1.43613, 0.12174, 0.05161, 0.02524/ - DATA ((F(I,16,K),I=1,6),K=1,19)/ - + 0.43776, 0.28909, 1.64882, 0.10888, 0.00217, 0.00000, - + 0.44242, 0.28586, 1.64270, 0.11004, 0.00819, -0.00001, - + 0.44588, 0.28264, 1.62295, 0.11069, 0.01312, 0.00000, - + 0.44831, 0.27945, 1.59396, 0.11093, 0.01718, 0.00000, - + 0.45005, 0.27632, 1.56010, 0.11085, 0.02056, 0.00008, - + 0.45121, 0.27326, 1.52371, 0.11021, 0.02341, 0.00123, - + 0.45186, 0.27026, 1.48531, 0.10883, 0.02581, 0.00402, - + 0.45214, 0.26732, 1.44645, 0.10751, 0.02786, 0.00621, - + 0.45213, 0.26446, 1.40796, 0.10621, 0.02961, 0.00810, - + 0.45188, 0.26169, 1.37039, 0.10492, 0.03112, 0.00976, - + 0.45138, 0.25898, 1.33333, 0.10362, 0.03240, 0.01121, - + 0.45069, 0.25633, 1.29717, 0.10232, 0.03350, 0.01248, - + 0.44991, 0.25379, 1.26272, 0.10107, 0.03447, 0.01363, - + 0.44891, 0.25129, 1.22885, 0.09981, 0.03526, 0.01461, - + 0.44785, 0.24887, 1.19662, 0.09858, 0.03597, 0.01549, - + 0.44669, 0.24650, 1.16549, 0.09738, 0.03656, 0.01627, - + 0.44546, 0.24420, 1.13563, 0.09619, 0.03706, 0.01697, - + 0.44417, 0.24195, 1.10696, 0.09503, 0.03749, 0.01758, - + 0.44282, 0.23976, 1.07949, 0.09390, 0.03785, 0.01813/ - DATA ((F(I,17,K),I=1,6),K=1,19)/ - + 0.49294, 0.29618, 1.44435, 0.08738, 0.00171, 0.00001, - + 0.49398, 0.29063, 1.40607, 0.08741, 0.00635, 0.00001, - + 0.49408, 0.28536, 1.36223, 0.08712, 0.01007, 0.00001, - + 0.49338, 0.28036, 1.31553, 0.08657, 0.01305, 0.00001, - + 0.49220, 0.27560, 1.26866, 0.08584, 0.01550, 0.00007, - + 0.49061, 0.27111, 1.22275, 0.08475, 0.01751, 0.00090, - + 0.48868, 0.26677, 1.17775, 0.08316, 0.01917, 0.00292, - + 0.48652, 0.26264, 1.13448, 0.08166, 0.02055, 0.00449, - + 0.48419, 0.25868, 1.09324, 0.08022, 0.02171, 0.00581, - + 0.48176, 0.25490, 1.05420, 0.07882, 0.02269, 0.00697, - + 0.47917, 0.25126, 1.01686, 0.07745, 0.02350, 0.00796, - + 0.47650, 0.24775, 0.98134, 0.07612, 0.02417, 0.00882, - + 0.47385, 0.24440, 0.94806, 0.07484, 0.02475, 0.00958, - + 0.47107, 0.24115, 0.91612, 0.07358, 0.02521, 0.01022, - + 0.46831, 0.23804, 0.88614, 0.07238, 0.02560, 0.01079, - + 0.46553, 0.23503, 0.85766, 0.07121, 0.02591, 0.01129, - + 0.46275, 0.23212, 0.83070, 0.07007, 0.02616, 0.01173, - + 0.45997, 0.22932, 0.80515, 0.06897, 0.02637, 0.01211, - + 0.45721, 0.22661, 0.78094, 0.06791, 0.02653, 0.01244/ - DATA ((F(I,18,K),I=1,6),K=1,19)/ - + 0.53606, 0.29472, 1.26244, 0.06860, 0.00135, 0.00001, - + 0.53294, 0.28717, 1.20527, 0.06812, 0.00496, 0.00000, - + 0.52924, 0.28021, 1.14839, 0.06741, 0.00780, 0.00000, - + 0.52513, 0.27371, 1.09311, 0.06655, 0.01004, 0.00000, - + 0.52077, 0.26768, 1.04076, 0.06559, 0.01182, 0.00005, - + 0.51629, 0.26203, 0.99161, 0.06439, 0.01327, 0.00067, - + 0.51168, 0.25666, 0.94522, 0.06286, 0.01444, 0.00215, - + 0.50700, 0.25161, 0.90185, 0.06142, 0.01539, 0.00329, - + 0.50233, 0.24683, 0.86145, 0.06005, 0.01617, 0.00424, - + 0.49771, 0.24230, 0.82391, 0.05875, 0.01682, 0.00506, - + 0.49309, 0.23797, 0.78871, 0.05749, 0.01733, 0.00576, - + 0.48850, 0.23384, 0.75579, 0.05627, 0.01775, 0.00635, - + 0.48404, 0.22993, 0.72530, 0.05511, 0.01809, 0.00687, - + 0.47957, 0.22616, 0.69651, 0.05399, 0.01835, 0.00731, - + 0.47521, 0.22257, 0.66975, 0.05292, 0.01857, 0.00769, - + 0.47090, 0.21913, 0.64460, 0.05189, 0.01873, 0.00801, - + 0.46668, 0.21582, 0.62104, 0.05090, 0.01885, 0.00829, - + 0.46255, 0.21265, 0.59892, 0.04995, 0.01893, 0.00853, - + 0.45848, 0.20960, 0.57815, 0.04903, 0.01898, 0.00874/ - DATA ((F(I,19,K),I=1,6),K=1,19)/ - + 0.56694, 0.28694, 1.10021, 0.05291, 0.00106, 0.00000, - + 0.55946, 0.27779, 1.03264, 0.05223, 0.00389, 0.00001, - + 0.55189, 0.26947, 0.96958, 0.05141, 0.00607, 0.00000, - + 0.54428, 0.26185, 0.91115, 0.05049, 0.00776, 0.00000, - + 0.53682, 0.25481, 0.85768, 0.04952, 0.00909, 0.00004, - + 0.52950, 0.24831, 0.80881, 0.04839, 0.01014, 0.00050, - + 0.52229, 0.24221, 0.76377, 0.04702, 0.01097, 0.00161, - + 0.51523, 0.23650, 0.72247, 0.04576, 0.01163, 0.00245, - + 0.50836, 0.23114, 0.68464, 0.04457, 0.01216, 0.00314, - + 0.50172, 0.22610, 0.64998, 0.04343, 0.01258, 0.00373, - + 0.49523, 0.22130, 0.61793, 0.04234, 0.01292, 0.00422, - + 0.48890, 0.21677, 0.58836, 0.04130, 0.01317, 0.00464, - + 0.48281, 0.21250, 0.56123, 0.04032, 0.01338, 0.00500, - + 0.47681, 0.20841, 0.53590, 0.03937, 0.01352, 0.00529, - + 0.47104, 0.20453, 0.51254, 0.03847, 0.01363, 0.00555, - + 0.46542, 0.20083, 0.49080, 0.03761, 0.01371, 0.00577, - + 0.45995, 0.19729, 0.47060, 0.03679, 0.01375, 0.00595, - + 0.45463, 0.19391, 0.45177, 0.03601, 0.01377, 0.00610, - + 0.44947, 0.19068, 0.43421, 0.03525, 0.01377, 0.00623/ - DATA ((F(I,20,K),I=1,6),K=1,19)/ - + 0.58616, 0.27450, 0.95557, 0.04012, 0.00085, 0.00000, - + 0.57437, 0.26414, 0.88327, 0.03944, 0.00307, 0.00001, - + 0.56303, 0.25483, 0.81839, 0.03866, 0.00475, 0.00000, - + 0.55212, 0.24639, 0.76014, 0.03781, 0.00603, 0.00000, - + 0.54172, 0.23867, 0.70811, 0.03694, 0.00701, 0.00003, - + 0.53177, 0.23159, 0.66150, 0.03595, 0.00778, 0.00038, - + 0.52219, 0.22501, 0.61931, 0.03481, 0.00837, 0.00121, - + 0.51298, 0.21888, 0.58120, 0.03375, 0.00883, 0.00183, - + 0.50416, 0.21317, 0.54674, 0.03276, 0.00919, 0.00234, - + 0.49573, 0.20783, 0.51553, 0.03182, 0.00947, 0.00276, - + 0.48761, 0.20278, 0.48701, 0.03092, 0.00969, 0.00312, - + 0.47978, 0.19803, 0.46095, 0.03007, 0.00984, 0.00341, - + 0.47231, 0.19357, 0.43724, 0.02927, 0.00996, 0.00367, - + 0.46504, 0.18933, 0.41532, 0.02850, 0.01003, 0.00387, - + 0.45808, 0.18532, 0.39525, 0.02778, 0.01008, 0.00404, - + 0.45137, 0.18150, 0.37671, 0.02708, 0.01010, 0.00419, - + 0.44489, 0.17788, 0.35960, 0.02643, 0.01011, 0.00431, - + 0.43862, 0.17442, 0.34376, 0.02580, 0.01009, 0.00441, - + 0.43258, 0.17113, 0.32907, 0.02521, 0.01006, 0.00449/ - DATA ((F(I,21,K),I=1,6),K=1,19)/ - + 0.59448, 0.25877, 0.82678, 0.02998, 0.00066, 0.00000, - + 0.57863, 0.24757, 0.75359, 0.02939, 0.00241, -0.00001, - + 0.56384, 0.23761, 0.68973, 0.02872, 0.00371, 0.00000, - + 0.54994, 0.22863, 0.63373, 0.02801, 0.00467, 0.00000, - + 0.53691, 0.22051, 0.58465, 0.02727, 0.00541, 0.00002, - + 0.52465, 0.21310, 0.54138, 0.02646, 0.00598, 0.00028, - + 0.51300, 0.20626, 0.50281, 0.02554, 0.00640, 0.00091, - + 0.50196, 0.19993, 0.46836, 0.02468, 0.00672, 0.00137, - + 0.49149, 0.19406, 0.43757, 0.02389, 0.00697, 0.00175, - + 0.48157, 0.18860, 0.40997, 0.02313, 0.00716, 0.00206, - + 0.47210, 0.18347, 0.38500, 0.02242, 0.00729, 0.00231, - + 0.46304, 0.17866, 0.36236, 0.02174, 0.00738, 0.00252, - + 0.45446, 0.17417, 0.34190, 0.02111, 0.00744, 0.00270, - + 0.44619, 0.16989, 0.32316, 0.02051, 0.00747, 0.00284, - + 0.43831, 0.16588, 0.30612, 0.01994, 0.00748, 0.00296, - + 0.43073, 0.16208, 0.29049, 0.01940, 0.00747, 0.00305, - + 0.42346, 0.15847, 0.27614, 0.01889, 0.00746, 0.00313, - + 0.41649, 0.15505, 0.26293, 0.01840, 0.00743, 0.00320, - + 0.40980, 0.15179, 0.25075, 0.01794, 0.00739, 0.00325/ - DATA ((F(I,22,K),I=1,6),K=1,19)/ - + 0.59269, 0.24072, 0.71230, 0.02204, 0.00053, 0.00000, - + 0.57325, 0.22903, 0.64079, 0.02158, 0.00190, 0.00000, - + 0.55540, 0.21872, 0.57977, 0.02105, 0.00290, 0.00000, - + 0.53890, 0.20950, 0.52731, 0.02048, 0.00364, 0.00001, - + 0.52366, 0.20121, 0.48206, 0.01989, 0.00418, 0.00002, - + 0.50947, 0.19370, 0.44267, 0.01925, 0.00459, 0.00022, - + 0.49615, 0.18680, 0.40803, 0.01853, 0.00489, 0.00069, - + 0.48362, 0.18045, 0.37744, 0.01786, 0.00511, 0.00103, - + 0.47185, 0.17458, 0.35033, 0.01724, 0.00528, 0.00131, - + 0.46077, 0.16914, 0.32623, 0.01665, 0.00540, 0.00154, - + 0.45025, 0.16407, 0.30462, 0.01610, 0.00548, 0.00172, - + 0.44028, 0.15933, 0.28518, 0.01558, 0.00553, 0.00187, - + 0.43089, 0.15491, 0.26773, 0.01509, 0.00556, 0.00199, - + 0.42188, 0.15073, 0.25188, 0.01462, 0.00557, 0.00209, - + 0.41334, 0.14682, 0.23754, 0.01419, 0.00556, 0.00217, - + 0.40518, 0.14312, 0.22446, 0.01377, 0.00554, 0.00223, - + 0.39739, 0.13962, 0.21252, 0.01338, 0.00551, 0.00228, - + 0.38996, 0.13631, 0.20159, 0.01301, 0.00548, 0.00233, - + 0.38284, 0.13317, 0.19155, 0.01266, 0.00543, 0.00236/ - DATA ((F(I,23,K),I=1,6),K=1,19)/ - + 0.58209, 0.22129, 0.61084, 0.01599, 0.00042, 0.00000, - + 0.55958, 0.20941, 0.54275, 0.01565, 0.00149, 0.00000, - + 0.53918, 0.19902, 0.48575, 0.01526, 0.00226, 0.00000, - + 0.52057, 0.18978, 0.43753, 0.01482, 0.00282, 0.00001, - + 0.50356, 0.18153, 0.39650, 0.01437, 0.00322, 0.00001, - + 0.48786, 0.17410, 0.36121, 0.01388, 0.00352, 0.00016, - + 0.47325, 0.16730, 0.33052, 0.01333, 0.00373, 0.00052, - + 0.45961, 0.16108, 0.30369, 0.01282, 0.00389, 0.00078, - + 0.44688, 0.15535, 0.28012, 0.01234, 0.00400, 0.00098, - + 0.43497, 0.15007, 0.25933, 0.01190, 0.00407, 0.00115, - + 0.42373, 0.14516, 0.24083, 0.01148, 0.00412, 0.00128, - + 0.41314, 0.14058, 0.22432, 0.01108, 0.00415, 0.00138, - + 0.40320, 0.13633, 0.20958, 0.01071, 0.00416, 0.00147, - + 0.39372, 0.13233, 0.19628, 0.01036, 0.00415, 0.00154, - + 0.38477, 0.12860, 0.18431, 0.01003, 0.00413, 0.00159, - + 0.37626, 0.12508, 0.17346, 0.00972, 0.00410, 0.00163, - + 0.36817, 0.12176, 0.16361, 0.00942, 0.00407, 0.00167, - + 0.36047, 0.11862, 0.15463, 0.00915, 0.00404, 0.00169, - + 0.35313, 0.11566, 0.14642, 0.00888, 0.00399, 0.00171/ - DATA ((F(I,24,K),I=1,6),K=1,19)/ - + 0.56377, 0.20114, 0.52115, 0.01143, 0.00033, 0.00001, - + 0.53879, 0.18934, 0.45761, 0.01120, 0.00117, 0.00001, - + 0.51640, 0.17908, 0.40527, 0.01092, 0.00176, 0.00001, - + 0.49621, 0.17003, 0.36168, 0.01060, 0.00218, 0.00000, - + 0.47786, 0.16200, 0.32500, 0.01027, 0.00248, 0.00002, - + 0.46111, 0.15479, 0.29381, 0.00990, 0.00269, 0.00013, - + 0.44557, 0.14823, 0.26694, 0.00949, 0.00285, 0.00040, - + 0.43119, 0.14225, 0.24366, 0.00911, 0.00295, 0.00058, - + 0.41785, 0.13678, 0.22339, 0.00875, 0.00303, 0.00073, - + 0.40544, 0.13175, 0.20564, 0.00842, 0.00307, 0.00085, - + 0.39380, 0.12708, 0.18996, 0.00810, 0.00310, 0.00095, - + 0.38287, 0.12275, 0.17606, 0.00781, 0.00310, 0.00102, - + 0.37265, 0.11874, 0.16373, 0.00753, 0.00310, 0.00108, - + 0.36293, 0.11499, 0.15267, 0.00727, 0.00309, 0.00113, - + 0.35382, 0.11148, 0.14276, 0.00703, 0.00306, 0.00117, - + 0.34519, 0.10819, 0.13383, 0.00680, 0.00304, 0.00120, - + 0.33700, 0.10510, 0.12576, 0.00658, 0.00301, 0.00122, - + 0.32922, 0.10219, 0.11844, 0.00638, 0.00297, 0.00124, - + 0.32182, 0.09944, 0.11178, 0.00619, 0.00294, 0.00125/ - DATA ((F(I,25,K),I=1,6),K=1,19)/ - + 0.53899, 0.18084, 0.44224, 0.00803, 0.00026, 0.00001, - + 0.51217, 0.16935, 0.38389, 0.00789, 0.00091, 0.00001, - + 0.48837, 0.15944, 0.33655, 0.00771, 0.00136, 0.00001, - + 0.46709, 0.15074, 0.29763, 0.00748, 0.00168, 0.00000, - + 0.44789, 0.14305, 0.26526, 0.00725, 0.00190, 0.00001, - + 0.43049, 0.13619, 0.23801, 0.00698, 0.00205, 0.00010, - + 0.41444, 0.12998, 0.21475, 0.00668, 0.00216, 0.00030, - + 0.39969, 0.12434, 0.19478, 0.00640, 0.00223, 0.00044, - + 0.38606, 0.11919, 0.17752, 0.00614, 0.00228, 0.00055, - + 0.37344, 0.11448, 0.16251, 0.00589, 0.00230, 0.00063, - + 0.36167, 0.11013, 0.14934, 0.00566, 0.00231, 0.00070, - + 0.35065, 0.10611, 0.13775, 0.00545, 0.00231, 0.00075, - + 0.34039, 0.10239, 0.12752, 0.00525, 0.00230, 0.00080, - + 0.33068, 0.09892, 0.11839, 0.00506, 0.00229, 0.00083, - + 0.32160, 0.09569, 0.11026, 0.00488, 0.00226, 0.00085, - + 0.31303, 0.09266, 0.10297, 0.00471, 0.00224, 0.00087, - + 0.30493, 0.08982, 0.09641, 0.00455, 0.00221, 0.00089, - + 0.29725, 0.08716, 0.09048, 0.00441, 0.00218, 0.00090, - + 0.28998, 0.08466, 0.08512, 0.00427, 0.00215, 0.00090/ - DATA ((F(I,26,K),I=1,6),K=1,19)/ - + 0.50900, 0.16088, 0.37309, 0.00558, 0.00020, 0.00000, - + 0.48098, 0.14990, 0.32025, 0.00551, 0.00069, -0.00001, - + 0.45635, 0.14048, 0.27801, 0.00539, 0.00104, -0.00001, - + 0.43445, 0.13227, 0.24366, 0.00524, 0.00128, 0.00000, - + 0.41488, 0.12504, 0.21543, 0.00507, 0.00143, 0.00000, - + 0.39720, 0.11861, 0.19189, 0.00488, 0.00154, 0.00007, - + 0.38103, 0.11283, 0.17198, 0.00467, 0.00162, 0.00022, - + 0.36623, 0.10759, 0.15501, 0.00446, 0.00167, 0.00032, - + 0.35261, 0.10283, 0.14045, 0.00428, 0.00170, 0.00040, - + 0.34006, 0.09849, 0.12787, 0.00410, 0.00172, 0.00046, - + 0.32841, 0.09449, 0.11692, 0.00393, 0.00172, 0.00051, - + 0.31753, 0.09081, 0.10733, 0.00378, 0.00171, 0.00055, - + 0.30743, 0.08742, 0.09891, 0.00363, 0.00170, 0.00058, - + 0.29793, 0.08426, 0.09145, 0.00350, 0.00168, 0.00060, - + 0.28906, 0.08132, 0.08483, 0.00337, 0.00166, 0.00062, - + 0.28071, 0.07858, 0.07892, 0.00325, 0.00164, 0.00063, - + 0.27285, 0.07602, 0.07363, 0.00314, 0.00161, 0.00064, - + 0.26544, 0.07362, 0.06887, 0.00303, 0.00159, 0.00064, - + 0.25843, 0.07137, 0.06458, 0.00293, 0.00156, 0.00065/ - DATA ((F(I,27,K),I=1,6),K=1,19)/ - + 0.47497, 0.14157, 0.31271, 0.00379, 0.00015, 0.00000, - + 0.44637, 0.13125, 0.26548, 0.00377, 0.00053, 0.00000, - + 0.42143, 0.12245, 0.22823, 0.00370, 0.00079, 0.00000, - + 0.39940, 0.11481, 0.19828, 0.00361, 0.00097, 0.00000, - + 0.37984, 0.10812, 0.17392, 0.00350, 0.00108, 0.00000, - + 0.36227, 0.10220, 0.15380, 0.00336, 0.00116, 0.00005, - + 0.34629, 0.09689, 0.13692, 0.00321, 0.00121, 0.00016, - + 0.33173, 0.09210, 0.12265, 0.00307, 0.00124, 0.00023, - + 0.31839, 0.08777, 0.11049, 0.00294, 0.00126, 0.00029, - + 0.30614, 0.08383, 0.10005, 0.00281, 0.00127, 0.00034, - + 0.29482, 0.08022, 0.09102, 0.00269, 0.00127, 0.00037, - + 0.28430, 0.07690, 0.08316, 0.00258, 0.00126, 0.00040, - + 0.27455, 0.07385, 0.07630, 0.00248, 0.00124, 0.00042, - + 0.26542, 0.07102, 0.07025, 0.00239, 0.00123, 0.00044, - + 0.25691, 0.06839, 0.06491, 0.00230, 0.00121, 0.00045, - + 0.24894, 0.06595, 0.06016, 0.00221, 0.00119, 0.00045, - + 0.24145, 0.06367, 0.05593, 0.00213, 0.00117, 0.00046, - + 0.23440, 0.06154, 0.05214, 0.00206, 0.00115, 0.00046, - + 0.22776, 0.05955, 0.04874, 0.00198, 0.00113, 0.00046/ - DATA ((F(I,28,K),I=1,6),K=1,19)/ - + 0.43807, 0.12325, 0.26028, 0.00255, 0.00011, -0.00001, - + 0.40947, 0.11370, 0.21859, 0.00256, 0.00040, -0.00001, - + 0.38473, 0.10559, 0.18611, 0.00253, 0.00059, -0.00001, - + 0.36299, 0.09860, 0.16030, 0.00247, 0.00072, -0.00001, - + 0.34382, 0.09249, 0.13949, 0.00240, 0.00081, 0.00000, - + 0.32665, 0.08713, 0.12247, 0.00232, 0.00087, 0.00004, - + 0.31119, 0.08233, 0.10830, 0.00220, 0.00091, 0.00012, - + 0.29711, 0.07802, 0.09642, 0.00210, 0.00092, 0.00017, - + 0.28427, 0.07413, 0.08637, 0.00201, 0.00093, 0.00021, - + 0.27253, 0.07061, 0.07779, 0.00192, 0.00093, 0.00024, - + 0.26170, 0.06739, 0.07042, 0.00184, 0.00092, 0.00027, - + 0.25169, 0.06444, 0.06404, 0.00176, 0.00092, 0.00029, - + 0.24247, 0.06173, 0.05849, 0.00169, 0.00091, 0.00030, - + 0.23384, 0.05923, 0.05363, 0.00162, 0.00089, 0.00031, - + 0.22582, 0.05692, 0.04935, 0.00156, 0.00088, 0.00032, - + 0.21833, 0.05477, 0.04557, 0.00150, 0.00086, 0.00032, - + 0.21131, 0.05277, 0.04222, 0.00144, 0.00084, 0.00033, - + 0.20472, 0.05090, 0.03923, 0.00139, 0.00083, 0.00033, - + 0.19853, 0.04916, 0.03655, 0.00134, 0.00081, 0.00033/ - DATA ((F(I,29,K),I=1,6),K=1,19)/ - + 0.39932, 0.10609, 0.21499, 0.00167, 0.00008, -0.00001, - + 0.37125, 0.09738, 0.17861, 0.00170, 0.00030, -0.00001, - + 0.34714, 0.09003, 0.15062, 0.00169, 0.00044, -0.00001, - + 0.32609, 0.08372, 0.12861, 0.00166, 0.00054, -0.00001, - + 0.30762, 0.07824, 0.11104, 0.00161, 0.00060, 0.00000, - + 0.29117, 0.07344, 0.09679, 0.00156, 0.00064, 0.00003, - + 0.27641, 0.06917, 0.08503, 0.00148, 0.00067, 0.00008, - + 0.26304, 0.06534, 0.07523, 0.00141, 0.00067, 0.00012, - + 0.25090, 0.06191, 0.06700, 0.00135, 0.00068, 0.00015, - + 0.23984, 0.05880, 0.06003, 0.00129, 0.00068, 0.00018, - + 0.22966, 0.05597, 0.05406, 0.00123, 0.00067, 0.00019, - + 0.22030, 0.05339, 0.04893, 0.00118, 0.00066, 0.00020, - + 0.21169, 0.05102, 0.04450, 0.00113, 0.00065, 0.00021, - + 0.20367, 0.04884, 0.04063, 0.00109, 0.00064, 0.00022, - + 0.19624, 0.04683, 0.03724, 0.00104, 0.00063, 0.00023, - + 0.18931, 0.04497, 0.03426, 0.00100, 0.00061, 0.00023, - + 0.18283, 0.04324, 0.03163, 0.00096, 0.00060, 0.00023, - + 0.17677, 0.04163, 0.02929, 0.00093, 0.00059, 0.00023, - + 0.17109, 0.04013, 0.02721, 0.00089, 0.00057, 0.00023/ - DATA ((F(I,30,K),I=1,6),K=1,19)/ - + 0.35977, 0.09027, 0.17611, 0.00108, 0.00006, 0.00000, - + 0.33269, 0.08244, 0.14474, 0.00112, 0.00022, -0.00001, - + 0.30956, 0.07587, 0.12088, 0.00113, 0.00033, 0.00000, - + 0.28955, 0.07026, 0.10233, 0.00111, 0.00040, 0.00000, - + 0.27202, 0.06542, 0.08765, 0.00108, 0.00044, 0.00000, - + 0.25654, 0.06119, 0.07585, 0.00104, 0.00046, 0.00002, - + 0.24267, 0.05744, 0.06620, 0.00100, 0.00048, 0.00006, - + 0.23017, 0.05410, 0.05821, 0.00095, 0.00049, 0.00009, - + 0.21888, 0.05110, 0.05154, 0.00091, 0.00049, 0.00011, - + 0.20862, 0.04840, 0.04592, 0.00086, 0.00049, 0.00013, - + 0.19922, 0.04595, 0.04115, 0.00083, 0.00048, 0.00014, - + 0.19059, 0.04372, 0.03707, 0.00079, 0.00047, 0.00014, - + 0.18268, 0.04168, 0.03356, 0.00076, 0.00047, 0.00015, - + 0.17533, 0.03981, 0.03052, 0.00072, 0.00046, 0.00016, - + 0.16855, 0.03808, 0.02787, 0.00069, 0.00045, 0.00016, - + 0.16225, 0.03649, 0.02554, 0.00067, 0.00043, 0.00016, - + 0.15637, 0.03502, 0.02349, 0.00064, 0.00042, 0.00016, - + 0.15087, 0.03365, 0.02169, 0.00062, 0.00041, 0.00016, - + 0.14572, 0.03238, 0.02008, 0.00059, 0.00040, 0.00016/ - DATA ((F(I,31,K),I=1,6),K=1,19)/ - + 0.32018, 0.07586, 0.14295, 0.00068, 0.00004, 0.00000, - + 0.29450, 0.06894, 0.11621, 0.00072, 0.00016, 0.00000, - + 0.27271, 0.06315, 0.09613, 0.00073, 0.00024, 0.00000, - + 0.25396, 0.05824, 0.08066, 0.00072, 0.00029, 0.00000, - + 0.23762, 0.05402, 0.06854, 0.00071, 0.00032, 0.00000, - + 0.22327, 0.05035, 0.05888, 0.00069, 0.00033, 0.00001, - + 0.21046, 0.04710, 0.05104, 0.00066, 0.00035, 0.00004, - + 0.19896, 0.04422, 0.04460, 0.00062, 0.00035, 0.00006, - + 0.18861, 0.04165, 0.03926, 0.00060, 0.00035, 0.00008, - + 0.17925, 0.03934, 0.03479, 0.00057, 0.00035, 0.00009, - + 0.17070, 0.03725, 0.03102, 0.00054, 0.00034, 0.00009, - + 0.16287, 0.03535, 0.02781, 0.00052, 0.00033, 0.00010, - + 0.15572, 0.03362, 0.02506, 0.00050, 0.00033, 0.00011, - + 0.14910, 0.03203, 0.02270, 0.00047, 0.00032, 0.00011, - + 0.14300, 0.03058, 0.02064, 0.00045, 0.00031, 0.00011, - + 0.13735, 0.02924, 0.01885, 0.00043, 0.00030, 0.00011, - + 0.13209, 0.02800, 0.01728, 0.00042, 0.00030, 0.00011, - + 0.12718, 0.02685, 0.01589, 0.00040, 0.00029, 0.00011, - + 0.12260, 0.02579, 0.01467, 0.00039, 0.00028, 0.00011/ - DATA ((F(I,32,K),I=1,6),K=1,19)/ - + 0.28136, 0.06292, 0.11486, 0.00042, 0.00004, 0.00000, - + 0.25741, 0.05689, 0.09236, 0.00046, 0.00012, 0.00000, - + 0.23722, 0.05187, 0.07564, 0.00047, 0.00018, 0.00000, - + 0.21993, 0.04764, 0.06291, 0.00047, 0.00021, 0.00000, - + 0.20495, 0.04401, 0.05303, 0.00047, 0.00023, 0.00000, - + 0.19184, 0.04087, 0.04522, 0.00045, 0.00024, 0.00001, - + 0.18020, 0.03811, 0.03893, 0.00043, 0.00025, 0.00003, - + 0.16981, 0.03566, 0.03380, 0.00041, 0.00025, 0.00005, - + 0.16047, 0.03349, 0.02958, 0.00039, 0.00025, 0.00005, - + 0.15204, 0.03154, 0.02607, 0.00037, 0.00024, 0.00006, - + 0.14438, 0.02979, 0.02312, 0.00035, 0.00024, 0.00007, - + 0.13739, 0.02820, 0.02063, 0.00034, 0.00024, 0.00007, - + 0.13102, 0.02675, 0.01851, 0.00032, 0.00023, 0.00007, - + 0.12515, 0.02543, 0.01668, 0.00031, 0.00022, 0.00007, - + 0.11975, 0.02421, 0.01511, 0.00030, 0.00022, 0.00007, - + 0.11475, 0.02310, 0.01375, 0.00028, 0.00021, 0.00007, - + 0.11012, 0.02208, 0.01256, 0.00027, 0.00021, 0.00007, - + 0.10581, 0.02114, 0.01151, 0.00026, 0.00020, 0.00007, - + 0.10180, 0.02026, 0.01059, 0.00025, 0.00019, 0.00007/ - DATA ((F(I,33,K),I=1,6),K=1,19)/ - + 0.24401, 0.05147, 0.09129, 0.00026, 0.00002, 0.00000, - + 0.22204, 0.04630, 0.07259, 0.00029, 0.00008, 0.00000, - + 0.20363, 0.04202, 0.05887, 0.00030, 0.00012, 0.00000, - + 0.18793, 0.03842, 0.04852, 0.00030, 0.00015, 0.00000, - + 0.17440, 0.03538, 0.04058, 0.00030, 0.00016, 0.00000, - + 0.16264, 0.03272, 0.03433, 0.00029, 0.00017, 0.00001, - + 0.15222, 0.03041, 0.02936, 0.00028, 0.00017, 0.00002, - + 0.14297, 0.02836, 0.02532, 0.00027, 0.00017, 0.00003, - + 0.13469, 0.02655, 0.02202, 0.00025, 0.00017, 0.00003, - + 0.12724, 0.02494, 0.01929, 0.00024, 0.00017, 0.00004, - + 0.12049, 0.02348, 0.01702, 0.00023, 0.00016, 0.00004, - + 0.11435, 0.02217, 0.01512, 0.00022, 0.00016, 0.00004, - + 0.10876, 0.02098, 0.01350, 0.00021, 0.00015, 0.00004, - + 0.10363, 0.01990, 0.01212, 0.00020, 0.00015, 0.00005, - + 0.09893, 0.01891, 0.01093, 0.00019, 0.00014, 0.00005, - + 0.09459, 0.01800, 0.00991, 0.00018, 0.00014, 0.00005, - + 0.09057, 0.01716, 0.00901, 0.00017, 0.00014, 0.00005, - + 0.08685, 0.01639, 0.00823, 0.00017, 0.00013, 0.00005, - + 0.08340, 0.01568, 0.00755, 0.00016, 0.00013, 0.00005/ - DATA ((F(I,34,K),I=1,6),K=1,19)/ - + 0.20866, 0.04147, 0.07167, 0.00015, 0.00002, 0.00000, - + 0.18883, 0.03710, 0.05635, 0.00018, 0.00006, 0.00000, - + 0.17232, 0.03352, 0.04523, 0.00019, 0.00009, 0.00000, - + 0.15832, 0.03051, 0.03694, 0.00019, 0.00010, 0.00000, - + 0.14631, 0.02798, 0.03063, 0.00019, 0.00011, 0.00000, - + 0.13591, 0.02579, 0.02572, 0.00019, 0.00012, 0.00000, - + 0.12675, 0.02388, 0.02183, 0.00018, 0.00012, 0.00001, - + 0.11864, 0.02220, 0.01871, 0.00017, 0.00012, 0.00002, - + 0.11141, 0.02072, 0.01617, 0.00016, 0.00012, 0.00002, - + 0.10493, 0.01940, 0.01409, 0.00015, 0.00011, 0.00003, - + 0.09907, 0.01822, 0.01236, 0.00015, 0.00011, 0.00003, - + 0.09377, 0.01715, 0.01092, 0.00014, 0.00011, 0.00003, - + 0.08896, 0.01620, 0.00970, 0.00013, 0.00010, 0.00003, - + 0.08455, 0.01532, 0.00867, 0.00013, 0.00010, 0.00003, - + 0.08052, 0.01453, 0.00779, 0.00012, 0.00010, 0.00003, - + 0.07681, 0.01380, 0.00703, 0.00012, 0.00009, 0.00003, - + 0.07339, 0.01313, 0.00638, 0.00011, 0.00009, 0.00003, - + 0.07022, 0.01251, 0.00580, 0.00011, 0.00009, 0.00003, - + 0.06729, 0.01194, 0.00530, 0.00010, 0.00008, 0.00003/ - DATA ((F(I,35,K),I=1,6),K=1,19)/ - + 0.17573, 0.03287, 0.05549, 0.00009, 0.00001, 0.00000, - + 0.15815, 0.02925, 0.04312, 0.00011, 0.00004, 0.00000, - + 0.14359, 0.02629, 0.03426, 0.00012, 0.00006, 0.00000, - + 0.13133, 0.02382, 0.02772, 0.00012, 0.00007, 0.00000, - + 0.12086, 0.02174, 0.02278, 0.00012, 0.00008, -0.00001, - + 0.11182, 0.01998, 0.01898, 0.00012, 0.00007, 0.00000, - + 0.10390, 0.01843, 0.01599, 0.00011, 0.00008, 0.00001, - + 0.09691, 0.01708, 0.01361, 0.00011, 0.00008, 0.00001, - + 0.09070, 0.01589, 0.01169, 0.00010, 0.00008, 0.00002, - + 0.08516, 0.01483, 0.01013, 0.00010, 0.00008, 0.00002, - + 0.08018, 0.01389, 0.00884, 0.00009, 0.00007, 0.00002, - + 0.07568, 0.01304, 0.00776, 0.00009, 0.00007, 0.00002, - + 0.07160, 0.01228, 0.00686, 0.00008, 0.00007, 0.00002, - + 0.06788, 0.01159, 0.00611, 0.00008, 0.00007, 0.00002, - + 0.06448, 0.01096, 0.00546, 0.00008, 0.00006, 0.00002, - + 0.06137, 0.01039, 0.00491, 0.00007, 0.00006, 0.00002, - + 0.05850, 0.00986, 0.00444, 0.00007, 0.00006, 0.00002, - + 0.05586, 0.00938, 0.00402, 0.00006, 0.00006, 0.00002, - + 0.05341, 0.00894, 0.00366, 0.00006, 0.00006, 0.00002/ - DATA ((F(I,36,K),I=1,6),K=1,19)/ - + 0.14559, 0.02558, 0.04232, 0.00005, 0.00001, 0.00000, - + 0.13028, 0.02263, 0.03249, 0.00006, 0.00003, 0.00000, - + 0.11768, 0.02024, 0.02554, 0.00007, 0.00004, 0.00000, - + 0.10712, 0.01826, 0.02046, 0.00007, 0.00005, 0.00000, - + 0.09816, 0.01660, 0.01667, 0.00008, 0.00005, 0.00000, - + 0.09044, 0.01519, 0.01377, 0.00008, 0.00005, 0.00000, - + 0.08373, 0.01396, 0.01152, 0.00007, 0.00005, 0.00000, - + 0.07782, 0.01289, 0.00973, 0.00007, 0.00005, 0.00001, - + 0.07259, 0.01195, 0.00830, 0.00006, 0.00005, 0.00001, - + 0.06793, 0.01113, 0.00715, 0.00006, 0.00005, 0.00001, - + 0.06377, 0.01039, 0.00620, 0.00006, 0.00005, 0.00001, - + 0.06002, 0.00973, 0.00542, 0.00005, 0.00005, 0.00001, - + 0.05663, 0.00913, 0.00477, 0.00005, 0.00004, 0.00001, - + 0.05354, 0.00860, 0.00422, 0.00005, 0.00004, 0.00001, - + 0.05074, 0.00811, 0.00376, 0.00005, 0.00004, 0.00001, - + 0.04817, 0.00767, 0.00337, 0.00004, 0.00004, 0.00001, - + 0.04581, 0.00727, 0.00303, 0.00004, 0.00004, 0.00001, - + 0.04365, 0.00690, 0.00274, 0.00004, 0.00004, 0.00001, - + 0.04165, 0.00656, 0.00248, 0.00004, 0.00004, 0.00001/ - DATA ((F(I,37,K),I=1,6),K=1,19)/ - + 0.09445, 0.01453, 0.02330, 0.00001, 0.00001, 0.00000, - + 0.08350, 0.01270, 0.01744, 0.00002, 0.00001, 0.00000, - + 0.07461, 0.01124, 0.01339, 0.00002, 0.00002, 0.00000, - + 0.06725, 0.01004, 0.01051, 0.00003, 0.00002, 0.00000, - + 0.06106, 0.00905, 0.00840, 0.00003, 0.00002, 0.00000, - + 0.05579, 0.00821, 0.00682, 0.00003, 0.00002, 0.00000, - + 0.05124, 0.00749, 0.00562, 0.00002, 0.00002, 0.00000, - + 0.04727, 0.00687, 0.00467, 0.00002, 0.00002, 0.00000, - + 0.04379, 0.00632, 0.00393, 0.00002, 0.00002, 0.00000, - + 0.04071, 0.00585, 0.00334, 0.00002, 0.00002, 0.00001, - + 0.03797, 0.00542, 0.00286, 0.00002, 0.00002, 0.00001, - + 0.03552, 0.00505, 0.00247, 0.00002, 0.00002, 0.00001, - + 0.03332, 0.00472, 0.00215, 0.00002, 0.00002, 0.00000, - + 0.03133, 0.00442, 0.00189, 0.00002, 0.00002, 0.00000, - + 0.02954, 0.00414, 0.00166, 0.00002, 0.00002, 0.00000, - + 0.02790, 0.00390, 0.00148, 0.00002, 0.00001, 0.00000, - + 0.02641, 0.00368, 0.00132, 0.00001, 0.00001, 0.00000, - + 0.02504, 0.00347, 0.00118, 0.00001, 0.00001, 0.00000, - + 0.02378, 0.00329, 0.00106, 0.00001, 0.00001, 0.00000/ - DATA ((F(I,38,K),I=1,6),K=1,19)/ - + 0.05591, 0.00743, 0.01171, 0.00000, 0.00000, 0.00000, - + 0.04880, 0.00642, 0.00852, 0.00001, 0.00000, 0.00000, - + 0.04309, 0.00562, 0.00638, 0.00001, 0.00001, 0.00000, - + 0.03843, 0.00496, 0.00490, 0.00001, 0.00001, 0.00000, - + 0.03455, 0.00443, 0.00383, 0.00001, 0.00001, 0.00000, - + 0.03128, 0.00398, 0.00305, 0.00001, 0.00001, 0.00000, - + 0.02847, 0.00360, 0.00247, 0.00001, 0.00001, 0.00000, - + 0.02606, 0.00328, 0.00202, 0.00001, 0.00001, 0.00000, - + 0.02395, 0.00299, 0.00167, 0.00001, 0.00001, 0.00000, - + 0.02211, 0.00275, 0.00140, 0.00001, 0.00001, 0.00000, - + 0.02048, 0.00253, 0.00119, 0.00001, 0.00001, 0.00000, - + 0.01904, 0.00234, 0.00101, 0.00001, 0.00001, 0.00000, - + 0.01775, 0.00218, 0.00087, 0.00001, 0.00001, 0.00000, - + 0.01659, 0.00202, 0.00075, 0.00001, 0.00001, 0.00000, - + 0.01555, 0.00189, 0.00066, 0.00000, 0.00001, 0.00000, - + 0.01461, 0.00177, 0.00058, 0.00000, 0.00001, 0.00000, - + 0.01375, 0.00166, 0.00051, 0.00000, 0.00000, 0.00000, - + 0.01297, 0.00156, 0.00045, 0.00000, 0.00000, 0.00000, - + 0.01226, 0.00147, 0.00041, 0.00000, 0.00000, 0.00000/ - DATA ((F(I,39,K),I=1,6),K=1,19)/ - + 0.02931, 0.00330, 0.00519, 0.00000, 0.00000, 0.00000, - + 0.02521, 0.00281, 0.00366, 0.00000, 0.00000, 0.00000, - + 0.02197, 0.00243, 0.00266, 0.00000, 0.00000, 0.00000, - + 0.01936, 0.00212, 0.00199, 0.00000, 0.00000, 0.00000, - + 0.01722, 0.00187, 0.00152, 0.00000, 0.00000, 0.00000, - + 0.01543, 0.00167, 0.00119, 0.00000, 0.00000, 0.00000, - + 0.01391, 0.00149, 0.00094, 0.00000, 0.00000, 0.00000, - + 0.01262, 0.00135, 0.00076, 0.00000, 0.00000, 0.00000, - + 0.01150, 0.00122, 0.00062, 0.00000, 0.00000, 0.00000, - + 0.01053, 0.00111, 0.00051, 0.00000, 0.00000, 0.00000, - + 0.00968, 0.00102, 0.00042, 0.00000, 0.00000, 0.00000, - + 0.00893, 0.00093, 0.00035, 0.00000, 0.00000, 0.00000, - + 0.00827, 0.00086, 0.00030, 0.00000, 0.00000, 0.00000, - + 0.00768, 0.00080, 0.00026, 0.00000, 0.00000, 0.00000, - + 0.00715, 0.00074, 0.00022, 0.00000, 0.00000, 0.00000, - + 0.00667, 0.00069, 0.00019, 0.00000, 0.00000, 0.00000, - + 0.00624, 0.00064, 0.00017, 0.00000, 0.00000, 0.00000, - + 0.00586, 0.00060, 0.00015, 0.00000, 0.00000, 0.00000, - + 0.00551, 0.00056, 0.00013, 0.00000, 0.00000, 0.00000/ - DATA ((F(I,40,K),I=1,6),K=1,19)/ - + 0.01294, 0.00120, 0.00192, 0.00000, 0.00000, 0.00000, - + 0.01094, 0.00100, 0.00130, 0.00000, 0.00000, 0.00000, - + 0.00940, 0.00085, 0.00092, 0.00000, 0.00000, 0.00000, - + 0.00816, 0.00074, 0.00067, 0.00000, 0.00000, 0.00000, - + 0.00716, 0.00064, 0.00050, 0.00000, 0.00000, 0.00000, - + 0.00634, 0.00057, 0.00038, 0.00000, 0.00000, 0.00000, - + 0.00566, 0.00050, 0.00029, 0.00000, 0.00000, 0.00000, - + 0.00508, 0.00045, 0.00023, 0.00000, 0.00000, 0.00000, - + 0.00458, 0.00040, 0.00018, 0.00000, 0.00000, 0.00000, - + 0.00416, 0.00036, 0.00015, 0.00000, 0.00000, 0.00000, - + 0.00379, 0.00033, 0.00012, 0.00000, 0.00000, 0.00000, - + 0.00346, 0.00030, 0.00010, 0.00000, 0.00000, 0.00000, - + 0.00318, 0.00027, 0.00008, 0.00000, 0.00000, 0.00000, - + 0.00293, 0.00025, 0.00007, 0.00000, 0.00000, 0.00000, - + 0.00271, 0.00023, 0.00006, 0.00000, 0.00000, 0.00000, - + 0.00251, 0.00021, 0.00005, 0.00000, 0.00000, 0.00000, - + 0.00233, 0.00020, 0.00004, 0.00000, 0.00000, 0.00000, - + 0.00217, 0.00018, 0.00004, 0.00000, 0.00000, 0.00000, - + 0.00203, 0.00017, 0.00003, 0.00000, 0.00000, 0.00000/ - DATA ((F(I,41,K),I=1,6),K=1,19)/ - + 0.00090, 0.00005, 0.00009, 0.00000, 0.00000, 0.00000, - + 0.00073, 0.00004, 0.00005, 0.00000, 0.00000, 0.00000, - + 0.00060, 0.00003, 0.00003, 0.00000, 0.00000, 0.00000, - + 0.00050, 0.00002, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00042, 0.00002, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00036, 0.00002, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00031, 0.00002, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00027, 0.00001, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00024, 0.00001, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00021, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00019, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00016, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00015, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00013, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00010, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000/ - DATA XX/1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-4,1.D0,5.D0,1310720.D0/ - DATA N0/3,3,4,8,0,0/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,41 - DO 20 M=1,19 -C READ(68,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(6,N,M) - DO 25 I=1,6 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,15 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=1,5 - DO 30 K=1,19 - 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K)) - 50 FORMAT(6F10.5) - DO 40 I=1,6 - DO 40 M=1,19 - 40 F(I,42,M)=ZEROD - 10 CONTINUE - UPV=ZEROD - DNV=ZEROD - SEA=ZEROD - STR=ZEROD - CHM=ZEROD - GL =ZEROD - BOT=ZEROD -C IF(X.LT.XMIN) X=XMIN -C IF(X.GT.XMAX) X=XMAX - IF(X.LT.XMIN) GOTO 777 - IF(X.GT.XMAX) GOTO 777 - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,6 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.16) GOTO 65 - IF(I.EQ.6) GOTO 65 - FAC=(ONED-B)*F(I,16,M)+B*F(I,16,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - SEA=G(4) - STR=G(4) - CHM=G(5) - GL =G(3) - BOT=G(6) - 777 CONTINUE - RETURN - END diff --git a/PDF/spdf/strh2b.F b/PDF/spdf/strh2b.F deleted file mode 100644 index 5f1a9b6a825..00000000000 --- a/PDF/spdf/strh2b.F +++ /dev/null @@ -1,903 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:05 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:50 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE STRH2B(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C :::::::::::: HARRIMAN MARTIN ROBERTS STIRLING (B) sea=ubar=dbar=2sbar -#include "pdf/impdp.inc" - DIMENSION F(7,42,19),G(7),XX(42),N0(7) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),K=1,19)/ - + 0.04574, 0.01401, 3.78332, 0.04134, 0.01529, 0.00000, 0.02847, - + 0.04583, 0.01480, 7.44979, 0.12080, 0.09317, 0.00000, 0.10710, - + 0.04597, 0.01553, 11.82667, 0.22784, 0.19877, 0.00000, 0.21339, - + 0.04613, 0.01621, 16.83759, 0.35855, 0.32816, 0.00000, 0.34343, - + 0.04632, 0.01684, 22.23625, 0.50068, 0.47247, 0.00678, 0.48832, - + 0.04652, 0.01743, 28.00661, 0.62179, 0.63148, 0.08486, 0.64789, - + 0.04673, 0.01800, 34.08723, 0.71836, 0.80352, 0.23791, 0.82045, - + 0.04696, 0.01855, 40.42050, 0.82768, 0.98694, 0.38816, 1.00437, - + 0.04719, 0.01907, 46.95706, 0.94205, 1.18029, 0.54801, 1.19819, - + 0.04743, 0.01957, 53.56265, 1.06019, 1.37934, 0.71167, 1.39769, - + 0.04767, 0.02005, 60.28923, 1.18287, 1.58580, 0.88098, 1.60458, - + 0.04792, 0.02052, 67.12621, 1.30988, 1.79932, 1.05568, 1.81852, - + 0.04817, 0.02097, 74.03026, 1.44035, 2.01846, 1.23462, 2.03805, - + 0.04842, 0.02140, 80.86339, 1.57164, 2.23883, 1.41431, 2.25880, - + 0.04867, 0.02183, 87.78844, 1.70675, 2.46544, 1.59882, 2.48578, - + 0.04893, 0.02224, 94.65599, 1.84277, 2.69348, 1.78428, 2.71418, - + 0.04918, 0.02264,101.50505, 1.98041, 2.92411, 1.97165, 2.94515, - + 0.04943, 0.02303,108.35330, 2.11988, 3.15771, 2.16125, 3.17909, - + 0.04968, 0.02341,115.10117, 2.25924, 3.39106, 2.35052, 3.41276/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),K=1,19)/ - + 0.05265, 0.01883, 3.67866, 0.05101, 0.01634, 0.00000, 0.03378, - + 0.05306, 0.01986, 6.79273, 0.12777, 0.09128, 0.00000, 0.10961, - + 0.05348, 0.02080, 10.33414, 0.22316, 0.18503, 0.00000, 0.20417, - + 0.05389, 0.02167, 14.24124, 0.33409, 0.29446, 0.00000, 0.31433, - + 0.05431, 0.02248, 18.32507, 0.45076, 0.41249, 0.00548, 0.43304, - + 0.05473, 0.02324, 22.58011, 0.54776, 0.53918, 0.06741, 0.56036, - + 0.05514, 0.02396, 26.96515, 0.62316, 0.67330, 0.18724, 0.69507, - + 0.05556, 0.02465, 31.44249, 0.70701, 0.81364, 0.30249, 0.83597, - + 0.05596, 0.02531, 35.98160, 0.79325, 0.95918, 0.42322, 0.98204, - + 0.05638, 0.02594, 40.49191, 0.88101, 1.10683, 0.54504, 1.13019, - + 0.05678, 0.02655, 45.01662, 0.97092, 1.25797, 0.66943, 1.28181, - + 0.05718, 0.02713, 49.55295, 1.06286, 1.41239, 0.79623, 1.43669, - + 0.05758, 0.02769, 54.07498, 1.15625, 1.56912, 0.92467, 1.59386, - + 0.05797, 0.02823, 58.49271, 1.24923, 1.72507, 1.05230, 1.75023, - + 0.05836, 0.02876, 62.92191, 1.34400, 1.88392, 1.18211, 1.90949, - + 0.05874, 0.02927, 67.26494, 1.43853, 2.04232, 1.31140, 2.06828, - + 0.05912, 0.02976, 71.55196, 1.53335, 2.20114, 1.44089, 2.22747, - + 0.05950, 0.03024, 75.79805, 1.62868, 2.36074, 1.57090, 2.38744, - + 0.05987, 0.03071, 79.94044, 1.72318, 2.51891, 1.69964, 2.54596/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),K=1,19)/ - + 0.06032, 0.02531, 3.57497, 0.06296, 0.01703, 0.00000, 0.04005, - + 0.06115, 0.02665, 6.18963, 0.13571, 0.08771, 0.00000, 0.11176, - + 0.06195, 0.02786, 9.02308, 0.21948, 0.16962, 0.00000, 0.19460, - + 0.06272, 0.02898, 12.03482, 0.31243, 0.26088, 0.00000, 0.28669, - + 0.06346, 0.03001, 15.08739, 0.40710, 0.35621, 0.00439, 0.38279, - + 0.06417, 0.03098, 18.18623, 0.48397, 0.45595, 0.05297, 0.48324, - + 0.06487, 0.03189, 21.30760, 0.54223, 0.55930, 0.14581, 0.58725, - + 0.06554, 0.03276, 24.43015, 0.60589, 0.66547, 0.23330, 0.69404, - + 0.06620, 0.03359, 27.53772, 0.67025, 0.77379, 0.32356, 0.80294, - + 0.06685, 0.03438, 30.57178, 0.73477, 0.88208, 0.41331, 0.91179, - + 0.06748, 0.03513, 33.56853, 0.79998, 0.99147, 0.50376, 1.02170, - + 0.06809, 0.03586, 36.53035, 0.86584, 1.10188, 0.59485, 1.13261, - + 0.06869, 0.03655, 39.44325, 0.93198, 1.21269, 0.68609, 1.24389, - + 0.06928, 0.03722, 42.24977, 0.99710, 1.32177, 0.77580, 1.35342, - + 0.06985, 0.03787, 45.03233, 1.06283, 1.43182, 0.86616, 1.46390, - + 0.07042, 0.03850, 47.72797, 1.12779, 1.54052, 0.95532, 1.57302, - + 0.07097, 0.03910, 50.35994, 1.19236, 1.64857, 1.04385, 1.68147, - + 0.07151, 0.03969, 52.94081, 1.25675, 1.75628, 1.13201, 1.78955, - + 0.07204, 0.04026, 55.43167, 1.32006, 1.86215, 1.21861, 1.89579/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),K=1,19)/ - + 0.06517, 0.03010, 3.51411, 0.07120, 0.01718, 0.00000, 0.04423, - + 0.06632, 0.03165, 5.85884, 0.14092, 0.08467, 0.00000, 0.11283, - + 0.06741, 0.03305, 8.32942, 0.21790, 0.15968, 0.00000, 0.18883, - + 0.06843, 0.03434, 10.89840, 0.30111, 0.24109, 0.00000, 0.27114, - + 0.06941, 0.03553, 13.45492, 0.38436, 0.32463, 0.00383, 0.35549, - + 0.07035, 0.03665, 16.01010, 0.45104, 0.41077, 0.04572, 0.44237, - + 0.07125, 0.03769, 18.54872, 0.50083, 0.49893, 0.12522, 0.53123, - + 0.07213, 0.03868, 21.05713, 0.55471, 0.58853, 0.19927, 0.62148, - + 0.07297, 0.03963, 23.52573, 0.60862, 0.67907, 0.27496, 0.71263, - + 0.07379, 0.04052, 25.91005, 0.66220, 0.76882, 0.34960, 0.80295, - + 0.07459, 0.04138, 28.24280, 0.71591, 0.85877, 0.42423, 0.89345, - + 0.07536, 0.04220, 30.52843, 0.76976, 0.94892, 0.49887, 0.98411, - + 0.07611, 0.04299, 32.75760, 0.82347, 1.03878, 0.57313, 1.07446, - + 0.07685, 0.04374, 34.88687, 0.87601, 1.12667, 0.64568, 1.16282, - + 0.07756, 0.04447, 36.98360, 0.92874, 1.21485, 0.71835, 1.25144, - + 0.07826, 0.04518, 38.99945, 0.98054, 1.30146, 0.78965, 1.33847, - + 0.07894, 0.04586, 40.95441, 1.03177, 1.38710, 0.86008, 1.42451, - + 0.07960, 0.04651, 42.85948, 1.08260, 1.47205, 0.92987, 1.50986, - + 0.08025, 0.04715, 44.68547, 1.13233, 1.55515, 0.99810, 1.59332/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),K=1,19)/ - + 0.06880, 0.03403, 3.47049, 0.07768, 0.01715, 0.00000, 0.04744, - + 0.07021, 0.03576, 5.63280, 0.14490, 0.08204, 0.00000, 0.11350, - + 0.07153, 0.03732, 7.86636, 0.21708, 0.15216, 0.00000, 0.18465, - + 0.07278, 0.03874, 10.15266, 0.29371, 0.22693, 0.00000, 0.26036, - + 0.07395, 0.04006, 12.39806, 0.36945, 0.30271, 0.00346, 0.33699, - + 0.07507, 0.04128, 14.61715, 0.42953, 0.38006, 0.04106, 0.41511, - + 0.07615, 0.04243, 16.79994, 0.47394, 0.45854, 0.11206, 0.49430, - + 0.07718, 0.04352, 18.93750, 0.52164, 0.53770, 0.17764, 0.57413, - + 0.07818, 0.04455, 21.02394, 0.56903, 0.61715, 0.24425, 0.65421, - + 0.07915, 0.04553, 23.02324, 0.61584, 0.69544, 0.30954, 0.73308, - + 0.08008, 0.04647, 24.96574, 0.66249, 0.77346, 0.37446, 0.81165, - + 0.08098, 0.04736, 26.85672, 0.70901, 0.85124, 0.43905, 0.88995, - + 0.08186, 0.04822, 28.68982, 0.75519, 0.92842, 0.50302, 0.96762, - + 0.08271, 0.04904, 30.42937, 0.80014, 1.00355, 0.56523, 1.04322, - + 0.08354, 0.04983, 32.13374, 0.84507, 1.07862, 0.62728, 1.11874, - + 0.08435, 0.05059, 33.76312, 0.88903, 1.15205, 0.68793, 1.19259, - + 0.08513, 0.05133, 35.33519, 0.93233, 1.22438, 0.74760, 1.26533, - + 0.08590, 0.05204, 36.86005, 0.97515, 1.29589, 0.80653, 1.33723, - + 0.08665, 0.05273, 38.31403, 1.01688, 1.36558, 0.86394, 1.40729/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),K=1,19)/ - + 0.07174, 0.03744, 3.43619, 0.08310, 0.01703, 0.00000, 0.05008, - + 0.07337, 0.03931, 5.46192, 0.14818, 0.07969, 0.00000, 0.11396, - + 0.07490, 0.04099, 7.52240, 0.21664, 0.14604, 0.00000, 0.18137, - + 0.07633, 0.04253, 9.60580, 0.28836, 0.21585, 0.00000, 0.25214, - + 0.07768, 0.04395, 11.63082, 0.35858, 0.28595, 0.00320, 0.32311, - + 0.07896, 0.04527, 13.61438, 0.41388, 0.35694, 0.03770, 0.39488, - + 0.08018, 0.04651, 15.55015, 0.45442, 0.42849, 0.10261, 0.46716, - + 0.08135, 0.04768, 17.43233, 0.49773, 0.50024, 0.16218, 0.53959, - + 0.08248, 0.04878, 19.25757, 0.54053, 0.57187, 0.22239, 0.61186, - + 0.08357, 0.04983, 20.99544, 0.58258, 0.64212, 0.28112, 0.68270, - + 0.08463, 0.05083, 22.67453, 0.62431, 0.71182, 0.33928, 0.75296, - + 0.08564, 0.05179, 24.30077, 0.66575, 0.78104, 0.39691, 0.82270, - + 0.08663, 0.05270, 25.86943, 0.70672, 0.84946, 0.45377, 0.89161, - + 0.08759, 0.05358, 27.35023, 0.74646, 0.91582, 0.50887, 0.95844, - + 0.08851, 0.05442, 28.79524, 0.78605, 0.98191, 0.56365, 1.02498, - + 0.08942, 0.05523, 30.17026, 0.82465, 1.04636, 0.61702, 1.08984, - + 0.09029, 0.05601, 31.49141, 0.86256, 1.10965, 0.66939, 1.15354, - + 0.09115, 0.05676, 32.76807, 0.89994, 1.17205, 0.72095, 1.21633, - + 0.09198, 0.05749, 33.98010, 0.93627, 1.23269, 0.77104, 1.27733/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),K=1,19)/ - + 0.08175, 0.05035, 3.32503, 0.10233, 0.01603, 0.00000, 0.05918, - + 0.08424, 0.05275, 4.95133, 0.15955, 0.07066, 0.00000, 0.11512, - + 0.08654, 0.05489, 6.52810, 0.21653, 0.12539, 0.00000, 0.17100, - + 0.08868, 0.05684, 8.06148, 0.27396, 0.18082, 0.00000, 0.22744, - + 0.09067, 0.05861, 9.50291, 0.32866, 0.23499, 0.00247, 0.28250, - + 0.09256, 0.06026, 10.87475, 0.37079, 0.28855, 0.02855, 0.33688, - + 0.09435, 0.06179, 12.17946, 0.40089, 0.34145, 0.07707, 0.39051, - + 0.09605, 0.06324, 13.41866, 0.43249, 0.39353, 0.12071, 0.44327, - + 0.09768, 0.06459, 14.59475, 0.46318, 0.44468, 0.16413, 0.49505, - + 0.09925, 0.06588, 15.69085, 0.49287, 0.49410, 0.20587, 0.54505, - + 0.10075, 0.06709, 16.73024, 0.52190, 0.54245, 0.24664, 0.59394, - + 0.10219, 0.06825, 17.71971, 0.55036, 0.58985, 0.28653, 0.64185, - + 0.10359, 0.06936, 18.65834, 0.57815, 0.63615, 0.32543, 0.68862, - + 0.10493, 0.07041, 19.52817, 0.60477, 0.68053, 0.36269, 0.73344, - + 0.10623, 0.07142, 20.36560, 0.63101, 0.72429, 0.39936, 0.77761, - + 0.10748, 0.07238, 21.14958, 0.65633, 0.76650, 0.43472, 0.82022, - + 0.10870, 0.07331, 21.89204, 0.68094, 0.80757, 0.46909, 0.86166, - + 0.10988, 0.07420, 22.60011, 0.70499, 0.84769, 0.50264, 0.90213, - + 0.11103, 0.07506, 23.26193, 0.72814, 0.88632, 0.53492, 0.94110/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),K=1,19)/ - + 0.09411, 0.06777, 3.20020, 0.12542, 0.01397, 0.00000, 0.06970, - + 0.09778, 0.07078, 4.45951, 0.17303, 0.05899, 0.00000, 0.11604, - + 0.10113, 0.07346, 5.62203, 0.21869, 0.10245, 0.00000, 0.16061, - + 0.10423, 0.07588, 6.70688, 0.26319, 0.14505, 0.00000, 0.20418, - + 0.10711, 0.07806, 7.69021, 0.30454, 0.18566, 0.00185, 0.24564, - + 0.10980, 0.08007, 8.59676, 0.33563, 0.22491, 0.02109, 0.28563, - + 0.11235, 0.08193, 9.43437, 0.35722, 0.26287, 0.05648, 0.32426, - + 0.11476, 0.08367, 10.20893, 0.37950, 0.29956, 0.08766, 0.36155, - + 0.11706, 0.08530, 10.92601, 0.40074, 0.33498, 0.11819, 0.39752, - + 0.11925, 0.08683, 11.57743, 0.42095, 0.36867, 0.14709, 0.43169, - + 0.12134, 0.08827, 12.18159, 0.44040, 0.40114, 0.17491, 0.46462, - + 0.12335, 0.08963, 12.74499, 0.45920, 0.43255, 0.20178, 0.49644, - + 0.12527, 0.09092, 13.26873, 0.47731, 0.46284, 0.22764, 0.52711, - + 0.12711, 0.09215, 13.74260, 0.49442, 0.49149, 0.25212, 0.55612, - + 0.12889, 0.09332, 14.19141, 0.51109, 0.51943, 0.27594, 0.58438, - + 0.13060, 0.09443, 14.60262, 0.52698, 0.54609, 0.29866, 0.61134, - + 0.13225, 0.09550, 14.98475, 0.54225, 0.57174, 0.32052, 0.63727, - + 0.13385, 0.09652, 15.34300, 0.55702, 0.59656, 0.34164, 0.66235, - + 0.13539, 0.09749, 15.67058, 0.57108, 0.62020, 0.36178, 0.68623/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),K=1,19)/ - + 0.10357, 0.08067, 3.11537, 0.14066, 0.01233, 0.00000, 0.07650, - + 0.10815, 0.08408, 4.17223, 0.18200, 0.05126, 0.00000, 0.11666, - + 0.11231, 0.08709, 5.11878, 0.22115, 0.08842, 0.00000, 0.15483, - + 0.11613, 0.08978, 5.97918, 0.25865, 0.12424, 0.00000, 0.19150, - + 0.11967, 0.09221, 6.74062, 0.29300, 0.15792, 0.00155, 0.22592, - + 0.12297, 0.09442, 7.42789, 0.31843, 0.19003, 0.01740, 0.25866, - + 0.12607, 0.09647, 8.05054, 0.33572, 0.22070, 0.04635, 0.28988, - + 0.12900, 0.09837, 8.61579, 0.35339, 0.25001, 0.07156, 0.31968, - + 0.13178, 0.10014, 9.13005, 0.37003, 0.27800, 0.09598, 0.34810, - + 0.13442, 0.10179, 9.58852, 0.38568, 0.30435, 0.11888, 0.37484, - + 0.13693, 0.10334, 10.00690, 0.40060, 0.32952, 0.14073, 0.40035, - + 0.13933, 0.10480, 10.39119, 0.41488, 0.35365, 0.16165, 0.42479, - + 0.14162, 0.10619, 10.74296, 0.42852, 0.37673, 0.18163, 0.44814, - + 0.14381, 0.10749, 11.05516, 0.44128, 0.39838, 0.20039, 0.47004, - + 0.14592, 0.10873, 11.34723, 0.45362, 0.41934, 0.21852, 0.49122, - + 0.14794, 0.10991, 11.61008, 0.46527, 0.43918, 0.23569, 0.51127, - + 0.14989, 0.11103, 11.85054, 0.47639, 0.45815, 0.25209, 0.53041, - + 0.15176, 0.11210, 12.07276, 0.48706, 0.47638, 0.26785, 0.54881, - + 0.15357, 0.11311, 12.27197, 0.49714, 0.49362, 0.28277, 0.56620/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),K=1,19)/ - + 0.11261, 0.09135, 3.04669, 0.15220, 0.01124, 0.00000, 0.08174, - + 0.11802, 0.09503, 3.96303, 0.18928, 0.04625, 0.00000, 0.11780, - + 0.12291, 0.09825, 4.76451, 0.22399, 0.07929, 0.00000, 0.15169, - + 0.12739, 0.10112, 5.47809, 0.25678, 0.11070, 0.00000, 0.18380, - + 0.13150, 0.10370, 6.09756, 0.28646, 0.13991, 0.00135, 0.21359, - + 0.13532, 0.10604, 6.64704, 0.30811, 0.16744, 0.01503, 0.24161, - + 0.13889, 0.10818, 7.13679, 0.32255, 0.19349, 0.03988, 0.26807, - + 0.14226, 0.11017, 7.57452, 0.33719, 0.21815, 0.06131, 0.29308, - + 0.14544, 0.11202, 7.96680, 0.35084, 0.24150, 0.08191, 0.31674, - + 0.14844, 0.11373, 8.31082, 0.36357, 0.26331, 0.10108, 0.33880, - + 0.15129, 0.11533, 8.62016, 0.37560, 0.28398, 0.11924, 0.35970, - + 0.15400, 0.11684, 8.90041, 0.38702, 0.30367, 0.13651, 0.37957, - + 0.15659, 0.11825, 9.15334, 0.39784, 0.32237, 0.15291, 0.39844, - + 0.15905, 0.11958, 9.37363, 0.40788, 0.33980, 0.16821, 0.41600, - + 0.16141, 0.12084, 9.57736, 0.41753, 0.35658, 0.18292, 0.43289, - + 0.16367, 0.12203, 9.75742, 0.42658, 0.37236, 0.19676, 0.44877, - + 0.16583, 0.12316, 9.91951, 0.43515, 0.38736, 0.20992, 0.46385, - + 0.16792, 0.12424, 10.06711, 0.44334, 0.40171, 0.22251, 0.47826, - + 0.16992, 0.12526, 10.19651, 0.45100, 0.41520, 0.23436, 0.49180/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),K=1,19)/ - + 0.12165, 0.10064, 2.98697, 0.16142, 0.01055, 0.00000, 0.08602, - + 0.12786, 0.10451, 3.79585, 0.19543, 0.04290, 0.00000, 0.11922, - + 0.13343, 0.10788, 4.48910, 0.22678, 0.07296, 0.00000, 0.14994, - + 0.13850, 0.11087, 5.09542, 0.25601, 0.10117, 0.00000, 0.17866, - + 0.14314, 0.11353, 5.61288, 0.28216, 0.12712, 0.00120, 0.20503, - + 0.14742, 0.11594, 6.06484, 0.30098, 0.15136, 0.01331, 0.22959, - + 0.15141, 0.11814, 6.46177, 0.31327, 0.17408, 0.03520, 0.25257, - + 0.15516, 0.12016, 6.81148, 0.32566, 0.19543, 0.05392, 0.27412, - + 0.15868, 0.12204, 7.12050, 0.33711, 0.21549, 0.07180, 0.29435, - + 0.16199, 0.12377, 7.38714, 0.34769, 0.23411, 0.08833, 0.31308, - + 0.16512, 0.12538, 7.62354, 0.35761, 0.25164, 0.10390, 0.33071, - + 0.16810, 0.12689, 7.83479, 0.36697, 0.26824, 0.11863, 0.34737, - + 0.17092, 0.12831, 8.02271, 0.37578, 0.28391, 0.13253, 0.36309, - + 0.17360, 0.12963, 8.18309, 0.38388, 0.29843, 0.14544, 0.37763, - + 0.17617, 0.13088, 8.32963, 0.39163, 0.31234, 0.15779, 0.39154, - + 0.17861, 0.13206, 8.45653, 0.39883, 0.32536, 0.16936, 0.40455, - + 0.18095, 0.13317, 8.56867, 0.40562, 0.33767, 0.18031, 0.41684, - + 0.18319, 0.13423, 8.66905, 0.41206, 0.34940, 0.19075, 0.42853, - + 0.18533, 0.13522, 8.75464, 0.41805, 0.36037, 0.20052, 0.43945/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),K=1,19)/ - + 0.16333, 0.13604, 2.75312, 0.18763, 0.00806, 0.00000, 0.09787, - + 0.17239, 0.14024, 3.24960, 0.21094, 0.03178, 0.00000, 0.12140, - + 0.18033, 0.14381, 3.64411, 0.23147, 0.05290, 0.00000, 0.14223, - + 0.18742, 0.14689, 3.96605, 0.24981, 0.07194, 0.00000, 0.16093, - + 0.19376, 0.14957, 4.22189, 0.26558, 0.08888, 0.00080, 0.17748, - + 0.19951, 0.15195, 4.43079, 0.27616, 0.10421, 0.00865, 0.19240, - + 0.20479, 0.15407, 4.60210, 0.28227, 0.11818, 0.02264, 0.20594, - + 0.20967, 0.15598, 4.74273, 0.28834, 0.13094, 0.03429, 0.21827, - + 0.21419, 0.15772, 4.85826, 0.29373, 0.14265, 0.04515, 0.22954, - + 0.21836, 0.15928, 4.94870, 0.29850, 0.15325, 0.05500, 0.23968, - + 0.22226, 0.16070, 5.02213, 0.30281, 0.16301, 0.06408, 0.24899, - + 0.22591, 0.16201, 5.08195, 0.30674, 0.17205, 0.07251, 0.25758, - + 0.22935, 0.16322, 5.12957, 0.31032, 0.18042, 0.08033, 0.26551, - + 0.23254, 0.16431, 5.16313, 0.31345, 0.18800, 0.08745, 0.27265, - + 0.23558, 0.16534, 5.19037, 0.31637, 0.19513, 0.09416, 0.27935, - + 0.23844, 0.16627, 5.20833, 0.31895, 0.20168, 0.10034, 0.28546, - + 0.24113, 0.16714, 5.21970, 0.32129, 0.20775, 0.10610, 0.29110, - + 0.24369, 0.16795, 5.22619, 0.32344, 0.21343, 0.11150, 0.29637, - + 0.24611, 0.16869, 5.22626, 0.32533, 0.21865, 0.11648, 0.30116/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),K=1,19)/ - + 0.24459, 0.18331, 2.40477, 0.19819, 0.00563, 0.00000, 0.10193, - + 0.25604, 0.18678, 2.62843, 0.21017, 0.02150, 0.00000, 0.11586, - + 0.26571, 0.18953, 2.78248, 0.21995, 0.03487, 0.00000, 0.12743, - + 0.27406, 0.19178, 2.89083, 0.22810, 0.04635, 0.00000, 0.13725, - + 0.28126, 0.19359, 2.96146, 0.23454, 0.05614, 0.00048, 0.14548, - + 0.28761, 0.19508, 3.00721, 0.23786, 0.06464, 0.00503, 0.15253, - + 0.29326, 0.19632, 3.03438, 0.23859, 0.07211, 0.01299, 0.15862, - + 0.29832, 0.19736, 3.04747, 0.23936, 0.07870, 0.01941, 0.16390, - + 0.30289, 0.19823, 3.04985, 0.23981, 0.08454, 0.02523, 0.16850, - + 0.30697, 0.19893, 3.04202, 0.23998, 0.08965, 0.03037, 0.17243, - + 0.31067, 0.19951, 3.02819, 0.23998, 0.09421, 0.03499, 0.17586, - + 0.31406, 0.19999, 3.01011, 0.23983, 0.09831, 0.03918, 0.17888, - + 0.31717, 0.20039, 2.98846, 0.23957, 0.10200, 0.04298, 0.18154, - + 0.31996, 0.20067, 2.96234, 0.23913, 0.10522, 0.04635, 0.18377, - + 0.32256, 0.20091, 2.93540, 0.23864, 0.10818, 0.04947, 0.18578, - + 0.32491, 0.20108, 2.90614, 0.23804, 0.11080, 0.05227, 0.18749, - + 0.32709, 0.20119, 2.87577, 0.23737, 0.11316, 0.05482, 0.18898, - + 0.32911, 0.20126, 2.84499, 0.23666, 0.11531, 0.05718, 0.19029, - + 0.33094, 0.20128, 2.81304, 0.23588, 0.11721, 0.05930, 0.19137/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),K=1,19)/ - + 0.31979, 0.21594, 2.12178, 0.18783, 0.00424, 0.00000, 0.09603, - + 0.33083, 0.21786, 2.21401, 0.19338, 0.01586, 0.00000, 0.10462, - + 0.33979, 0.21913, 2.26097, 0.19742, 0.02530, 0.00000, 0.11136, - + 0.34723, 0.21997, 2.28060, 0.20039, 0.03314, 0.00000, 0.11676, - + 0.35338, 0.22047, 2.27918, 0.20229, 0.03961, 0.00032, 0.12103, - + 0.35859, 0.22070, 2.26523, 0.20219, 0.04507, 0.00336, 0.12446, - + 0.36305, 0.22074, 2.24277, 0.20048, 0.04973, 0.00862, 0.12726, - + 0.36687, 0.22064, 2.21449, 0.19894, 0.05374, 0.01276, 0.12952, - + 0.37018, 0.22041, 2.18245, 0.19730, 0.05720, 0.01645, 0.13136, - + 0.37299, 0.22006, 2.14672, 0.19559, 0.06015, 0.01965, 0.13277, - + 0.37542, 0.21963, 2.10978, 0.19387, 0.06270, 0.02246, 0.13389, - + 0.37754, 0.21915, 2.07249, 0.19215, 0.06493, 0.02497, 0.13477, - + 0.37938, 0.21862, 2.03507, 0.19044, 0.06690, 0.02721, 0.13546, - + 0.38092, 0.21802, 1.99681, 0.18870, 0.06855, 0.02916, 0.13590, - + 0.38228, 0.21741, 1.95975, 0.18700, 0.07004, 0.03094, 0.13624, - + 0.38342, 0.21676, 1.92289, 0.18530, 0.07131, 0.03250, 0.13642, - + 0.38440, 0.21608, 1.88679, 0.18362, 0.07242, 0.03391, 0.13648, - + 0.38524, 0.21539, 1.85174, 0.18197, 0.07340, 0.03519, 0.13647, - + 0.38591, 0.21468, 1.81722, 0.18033, 0.07423, 0.03631, 0.13634/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),K=1,19)/ - + 0.38671, 0.23943, 1.87713, 0.16973, 0.00330, 0.00000, 0.08650, - + 0.39556, 0.23941, 1.89377, 0.17134, 0.01215, 0.00000, 0.09173, - + 0.40229, 0.23894, 1.88287, 0.17199, 0.01913, 0.00000, 0.09555, - + 0.40755, 0.23819, 1.85738, 0.17203, 0.02478, 0.00000, 0.09839, - + 0.41158, 0.23720, 1.82160, 0.17145, 0.02932, 0.00023, 0.10043, - + 0.41473, 0.23606, 1.78098, 0.16959, 0.03305, 0.00239, 0.10190, - + 0.41716, 0.23484, 1.73778, 0.16672, 0.03616, 0.00609, 0.10294, - + 0.41906, 0.23353, 1.69352, 0.16409, 0.03877, 0.00895, 0.10365, - + 0.42048, 0.23219, 1.64928, 0.16152, 0.04097, 0.01146, 0.10409, - + 0.42146, 0.23078, 1.60484, 0.15901, 0.04279, 0.01359, 0.10428, - + 0.42212, 0.22936, 1.56160, 0.15658, 0.04433, 0.01545, 0.10429, - + 0.42254, 0.22795, 1.51993, 0.15423, 0.04564, 0.01708, 0.10419, - + 0.42274, 0.22654, 1.47977, 0.15196, 0.04676, 0.01852, 0.10397, - + 0.42269, 0.22509, 1.44050, 0.14974, 0.04767, 0.01975, 0.10362, - + 0.42253, 0.22368, 1.40326, 0.14762, 0.04847, 0.02085, 0.10323, - + 0.42220, 0.22226, 1.36729, 0.14555, 0.04912, 0.02181, 0.10277, - + 0.42174, 0.22086, 1.33284, 0.14355, 0.04966, 0.02266, 0.10225, - + 0.42121, 0.21948, 1.29998, 0.14162, 0.05012, 0.02341, 0.10170, - + 0.42054, 0.21811, 1.26830, 0.13973, 0.05048, 0.02407, 0.10110/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),K=1,19)/ - + 0.44430, 0.25593, 1.66119, 0.14904, 0.00261, 0.00000, 0.07582, - + 0.44982, 0.25383, 1.63158, 0.14824, 0.00950, 0.00000, 0.07886, - + 0.45343, 0.25152, 1.58750, 0.14691, 0.01480, 0.00000, 0.08085, - + 0.45577, 0.24912, 1.53785, 0.14530, 0.01899, 0.00000, 0.08213, - + 0.45706, 0.24665, 1.48505, 0.14338, 0.02227, 0.00017, 0.08286, - + 0.45764, 0.24416, 1.43238, 0.14065, 0.02491, 0.00176, 0.08321, - + 0.45766, 0.24170, 1.38085, 0.13731, 0.02706, 0.00445, 0.08329, - + 0.45726, 0.23925, 1.33111, 0.13426, 0.02883, 0.00651, 0.08316, - + 0.45652, 0.23685, 1.28356, 0.13135, 0.03029, 0.00828, 0.08287, - + 0.45545, 0.23446, 1.23778, 0.12857, 0.03145, 0.00977, 0.08244, - + 0.45416, 0.23213, 1.19448, 0.12593, 0.03241, 0.01105, 0.08192, - + 0.45273, 0.22986, 1.15370, 0.12342, 0.03321, 0.01216, 0.08134, - + 0.45118, 0.22765, 1.11521, 0.12102, 0.03387, 0.01312, 0.08071, - + 0.44944, 0.22546, 1.07845, 0.11872, 0.03438, 0.01394, 0.08001, - + 0.44769, 0.22335, 1.04405, 0.11653, 0.03481, 0.01466, 0.07931, - + 0.44583, 0.22126, 1.01138, 0.11443, 0.03513, 0.01528, 0.07859, - + 0.44392, 0.21924, 0.98051, 0.11242, 0.03539, 0.01581, 0.07784, - + 0.44199, 0.21727, 0.95138, 0.11049, 0.03559, 0.01628, 0.07710, - + 0.43998, 0.21533, 0.92368, 0.10864, 0.03572, 0.01668, 0.07633/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),K=1,19)/ - + 0.50285, 0.26861, 1.42406, 0.12311, 0.00199, 0.00001, 0.06254, - + 0.50324, 0.26391, 1.36066, 0.12067, 0.00712, 0.00001, 0.06389, - + 0.50222, 0.25934, 1.29441, 0.11809, 0.01096, 0.00000, 0.06451, - + 0.50039, 0.25496, 1.23023, 0.11549, 0.01391, 0.00001, 0.06469, - + 0.49787, 0.25074, 1.16867, 0.11284, 0.01616, 0.00013, 0.06452, - + 0.49496, 0.24669, 1.11108, 0.10976, 0.01793, 0.00124, 0.06414, - + 0.49175, 0.24281, 1.05741, 0.10637, 0.01933, 0.00311, 0.06362, - + 0.48834, 0.23909, 1.00753, 0.10330, 0.02045, 0.00452, 0.06298, - + 0.48481, 0.23553, 0.96131, 0.10042, 0.02134, 0.00571, 0.06229, - + 0.48113, 0.23206, 0.91813, 0.09770, 0.02202, 0.00670, 0.06152, - + 0.47741, 0.22874, 0.87816, 0.09515, 0.02257, 0.00753, 0.06073, - + 0.47370, 0.22556, 0.84121, 0.09276, 0.02300, 0.00825, 0.05993, - + 0.47000, 0.22250, 0.80693, 0.09050, 0.02334, 0.00886, 0.05912, - + 0.46624, 0.21953, 0.77481, 0.08836, 0.02358, 0.00936, 0.05829, - + 0.46258, 0.21669, 0.74511, 0.08634, 0.02377, 0.00980, 0.05749, - + 0.45891, 0.21394, 0.71730, 0.08442, 0.02389, 0.01017, 0.05668, - + 0.45529, 0.21128, 0.69133, 0.08259, 0.02397, 0.01049, 0.05588, - + 0.45172, 0.20873, 0.66707, 0.08086, 0.02401, 0.01076, 0.05511, - + 0.44818, 0.20625, 0.64427, 0.07920, 0.02402, 0.01098, 0.05434/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),K=1,19)/ - + 0.54644, 0.27388, 1.21772, 0.09938, 0.00152, 0.00001, 0.05044, - + 0.54122, 0.26674, 1.13669, 0.09627, 0.00539, 0.00001, 0.05081, - + 0.53532, 0.26010, 1.06075, 0.09323, 0.00820, 0.00001, 0.05070, - + 0.52915, 0.25395, 0.99175, 0.09035, 0.01032, 0.00001, 0.05031, - + 0.52275, 0.24820, 0.92887, 0.08755, 0.01189, 0.00009, 0.04973, - + 0.51636, 0.24281, 0.87215, 0.08455, 0.01309, 0.00089, 0.04903, - + 0.51000, 0.23774, 0.82076, 0.08143, 0.01402, 0.00221, 0.04826, - + 0.50371, 0.23294, 0.77418, 0.07860, 0.01474, 0.00320, 0.04745, - + 0.49753, 0.22842, 0.73189, 0.07600, 0.01529, 0.00401, 0.04663, - + 0.49139, 0.22410, 0.69313, 0.07356, 0.01570, 0.00468, 0.04579, - + 0.48542, 0.21999, 0.65783, 0.07129, 0.01601, 0.00524, 0.04495, - + 0.47962, 0.21609, 0.62563, 0.06918, 0.01624, 0.00571, 0.04412, - + 0.47399, 0.21240, 0.59613, 0.06721, 0.01641, 0.00611, 0.04332, - + 0.46843, 0.20883, 0.56887, 0.06535, 0.01651, 0.00643, 0.04252, - + 0.46308, 0.20544, 0.54387, 0.06360, 0.01657, 0.00671, 0.04175, - + 0.45784, 0.20219, 0.52072, 0.06196, 0.01659, 0.00693, 0.04099, - + 0.45273, 0.19907, 0.49929, 0.06040, 0.01659, 0.00712, 0.04026, - + 0.44777, 0.19610, 0.47944, 0.05893, 0.01657, 0.00729, 0.03956, - + 0.44293, 0.19323, 0.46094, 0.05754, 0.01652, 0.00742, 0.03886/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),K=1,19)/ - + 0.57591, 0.27299, 1.03779, 0.07875, 0.00117, 0.00000, 0.03995, - + 0.56507, 0.26368, 0.94919, 0.07552, 0.00409, 0.00000, 0.03980, - + 0.55434, 0.25527, 0.87084, 0.07249, 0.00617, 0.00000, 0.03932, - + 0.54400, 0.24762, 0.80245, 0.06970, 0.00770, 0.00000, 0.03869, - + 0.53397, 0.24060, 0.74213, 0.06706, 0.00881, 0.00006, 0.03794, - + 0.52433, 0.23411, 0.68903, 0.06436, 0.00964, 0.00064, 0.03715, - + 0.51505, 0.22809, 0.64200, 0.06163, 0.01026, 0.00159, 0.03633, - + 0.50616, 0.22248, 0.60007, 0.05918, 0.01073, 0.00229, 0.03552, - + 0.49763, 0.21720, 0.56261, 0.05693, 0.01108, 0.00286, 0.03472, - + 0.48936, 0.21223, 0.52880, 0.05486, 0.01131, 0.00332, 0.03391, - + 0.48142, 0.20755, 0.49838, 0.05294, 0.01149, 0.00370, 0.03313, - + 0.47382, 0.20314, 0.47094, 0.05116, 0.01160, 0.00402, 0.03238, - + 0.46656, 0.19897, 0.44606, 0.04951, 0.01167, 0.00428, 0.03165, - + 0.45947, 0.19500, 0.42330, 0.04796, 0.01170, 0.00449, 0.03094, - + 0.45271, 0.19125, 0.40259, 0.04651, 0.01171, 0.00466, 0.03027, - + 0.44618, 0.18767, 0.38359, 0.04515, 0.01168, 0.00481, 0.02961, - + 0.43989, 0.18425, 0.36613, 0.04388, 0.01164, 0.00492, 0.02898, - + 0.43384, 0.18100, 0.35005, 0.04268, 0.01159, 0.00502, 0.02838, - + 0.42795, 0.17788, 0.33518, 0.04154, 0.01152, 0.00509, 0.02780/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),K=1,19)/ - + 0.59252, 0.26706, 0.88101, 0.06134, 0.00090, 0.00000, 0.03112, - + 0.57632, 0.25594, 0.79114, 0.05832, 0.00312, 0.00000, 0.03071, - + 0.56111, 0.24607, 0.71477, 0.05555, 0.00466, 0.00000, 0.03010, - + 0.54695, 0.23723, 0.64999, 0.05304, 0.00577, 0.00000, 0.02940, - + 0.53364, 0.22923, 0.59426, 0.05071, 0.00656, 0.00005, 0.02864, - + 0.52114, 0.22192, 0.54614, 0.04839, 0.00713, 0.00047, 0.02787, - + 0.50934, 0.21520, 0.50422, 0.04611, 0.00755, 0.00115, 0.02711, - + 0.49821, 0.20899, 0.46739, 0.04406, 0.00785, 0.00165, 0.02637, - + 0.48768, 0.20320, 0.43490, 0.04220, 0.00807, 0.00205, 0.02565, - + 0.47762, 0.19779, 0.40595, 0.04049, 0.00820, 0.00237, 0.02494, - + 0.46807, 0.19273, 0.38017, 0.03892, 0.00829, 0.00264, 0.02426, - + 0.45902, 0.18799, 0.35712, 0.03747, 0.00835, 0.00285, 0.02362, - + 0.45044, 0.18354, 0.33639, 0.03614, 0.00836, 0.00302, 0.02300, - + 0.44215, 0.17932, 0.31761, 0.03489, 0.00835, 0.00316, 0.02241, - + 0.43430, 0.17535, 0.30064, 0.03373, 0.00833, 0.00327, 0.02184, - + 0.42678, 0.17158, 0.28518, 0.03264, 0.00829, 0.00336, 0.02130, - + 0.41958, 0.16800, 0.27106, 0.03162, 0.00824, 0.00343, 0.02079, - + 0.41268, 0.16461, 0.25814, 0.03067, 0.00818, 0.00349, 0.02030, - + 0.40603, 0.16137, 0.24626, 0.02978, 0.00811, 0.00354, 0.01982/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),K=1,19)/ - + 0.59760, 0.25710, 0.74463, 0.04707, 0.00069, 0.00000, 0.02387, - + 0.57654, 0.24456, 0.65754, 0.04441, 0.00237, 0.00000, 0.02338, - + 0.55733, 0.23359, 0.58570, 0.04201, 0.00352, 0.00000, 0.02275, - + 0.53985, 0.22388, 0.52613, 0.03986, 0.00433, 0.00000, 0.02209, - + 0.52373, 0.21517, 0.47593, 0.03790, 0.00489, 0.00004, 0.02139, - + 0.50882, 0.20730, 0.43327, 0.03599, 0.00528, 0.00034, 0.02071, - + 0.49495, 0.20013, 0.39664, 0.03413, 0.00556, 0.00084, 0.02005, - + 0.48200, 0.19353, 0.36483, 0.03248, 0.00576, 0.00119, 0.01941, - + 0.46986, 0.18744, 0.33707, 0.03098, 0.00589, 0.00148, 0.01880, - + 0.45840, 0.18177, 0.31263, 0.02961, 0.00597, 0.00171, 0.01821, - + 0.44763, 0.17651, 0.29105, 0.02836, 0.00601, 0.00189, 0.01765, - + 0.43748, 0.17161, 0.27191, 0.02721, 0.00602, 0.00203, 0.01712, - + 0.42787, 0.16702, 0.25483, 0.02616, 0.00602, 0.00215, 0.01661, - + 0.41872, 0.16270, 0.23948, 0.02518, 0.00599, 0.00223, 0.01614, - + 0.41009, 0.15866, 0.22569, 0.02427, 0.00595, 0.00231, 0.01569, - + 0.40183, 0.15483, 0.21319, 0.02343, 0.00591, 0.00237, 0.01525, - + 0.39399, 0.15121, 0.20186, 0.02264, 0.00585, 0.00241, 0.01484, - + 0.38653, 0.14779, 0.19155, 0.02190, 0.00579, 0.00245, 0.01445, - + 0.37937, 0.14453, 0.18212, 0.02120, 0.00573, 0.00247, 0.01408/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),K=1,19)/ - + 0.59248, 0.24390, 0.62629, 0.03557, 0.00053, 0.00000, 0.01805, - + 0.56722, 0.23035, 0.54441, 0.03332, 0.00180, 0.00000, 0.01756, - + 0.54463, 0.21861, 0.47857, 0.03134, 0.00265, 0.00000, 0.01699, - + 0.52438, 0.20835, 0.42499, 0.02957, 0.00324, 0.00000, 0.01640, - + 0.50597, 0.19922, 0.38061, 0.02797, 0.00364, 0.00003, 0.01581, - + 0.48918, 0.19104, 0.34347, 0.02643, 0.00391, 0.00025, 0.01523, - + 0.47369, 0.18363, 0.31190, 0.02496, 0.00410, 0.00061, 0.01468, - + 0.45936, 0.17686, 0.28482, 0.02365, 0.00422, 0.00087, 0.01415, - + 0.44604, 0.17065, 0.26141, 0.02248, 0.00430, 0.00107, 0.01365, - + 0.43355, 0.16491, 0.24100, 0.02141, 0.00434, 0.00123, 0.01318, - + 0.42188, 0.15960, 0.22312, 0.02043, 0.00435, 0.00135, 0.01273, - + 0.41097, 0.15468, 0.20737, 0.01954, 0.00435, 0.00145, 0.01230, - + 0.40074, 0.15009, 0.19341, 0.01872, 0.00434, 0.00153, 0.01191, - + 0.39101, 0.14579, 0.18096, 0.01797, 0.00430, 0.00159, 0.01153, - + 0.38188, 0.14177, 0.16983, 0.01727, 0.00426, 0.00163, 0.01117, - + 0.37321, 0.13799, 0.15982, 0.01663, 0.00421, 0.00167, 0.01083, - + 0.36499, 0.13443, 0.15078, 0.01603, 0.00417, 0.00170, 0.01052, - + 0.35720, 0.13108, 0.14259, 0.01546, 0.00412, 0.00172, 0.01021, - + 0.34975, 0.12790, 0.13514, 0.01494, 0.00406, 0.00173, 0.00993/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),K=1,19)/ - + 0.57866, 0.22836, 0.52395, 0.02650, 0.00040, 0.00000, 0.01345, - + 0.54992, 0.21417, 0.44877, 0.02468, 0.00136, 0.00000, 0.01302, - + 0.52462, 0.20201, 0.38958, 0.02308, 0.00199, 0.00000, 0.01253, - + 0.50223, 0.19147, 0.34222, 0.02167, 0.00242, 0.00000, 0.01204, - + 0.48209, 0.18218, 0.30359, 0.02040, 0.00270, 0.00002, 0.01155, - + 0.46390, 0.17390, 0.27165, 0.01919, 0.00289, 0.00018, 0.01109, - + 0.44726, 0.16645, 0.24481, 0.01805, 0.00302, 0.00045, 0.01064, - + 0.43198, 0.15969, 0.22202, 0.01704, 0.00309, 0.00063, 0.01022, - + 0.41788, 0.15352, 0.20250, 0.01614, 0.00314, 0.00078, 0.00982, - + 0.40474, 0.14785, 0.18562, 0.01532, 0.00315, 0.00088, 0.00945, - + 0.39254, 0.14262, 0.17094, 0.01457, 0.00315, 0.00097, 0.00910, - + 0.38118, 0.13780, 0.15810, 0.01390, 0.00314, 0.00103, 0.00877, - + 0.37059, 0.13333, 0.14680, 0.01327, 0.00312, 0.00109, 0.00847, - + 0.36057, 0.12914, 0.13678, 0.01271, 0.00308, 0.00113, 0.00817, - + 0.35120, 0.12526, 0.12786, 0.01218, 0.00305, 0.00116, 0.00790, - + 0.34234, 0.12161, 0.11989, 0.01170, 0.00301, 0.00118, 0.00764, - + 0.33398, 0.11819, 0.11272, 0.01125, 0.00296, 0.00120, 0.00740, - + 0.32608, 0.11497, 0.10626, 0.01083, 0.00292, 0.00121, 0.00717, - + 0.31856, 0.11193, 0.10041, 0.01044, 0.00288, 0.00121, 0.00696/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),K=1,19)/ - + 0.55751, 0.21111, 0.43576, 0.01945, 0.00032, 0.00001, 0.00989, - + 0.52605, 0.19665, 0.36800, 0.01802, 0.00103, 0.00001, 0.00953, - + 0.49875, 0.18438, 0.31565, 0.01676, 0.00150, 0.00001, 0.00914, - + 0.47481, 0.17382, 0.27441, 0.01567, 0.00181, 0.00001, 0.00874, - + 0.45353, 0.16458, 0.24122, 0.01468, 0.00200, 0.00002, 0.00835, - + 0.43438, 0.15641, 0.21409, 0.01377, 0.00213, 0.00014, 0.00798, - + 0.41704, 0.14910, 0.19154, 0.01290, 0.00221, 0.00033, 0.00764, - + 0.40122, 0.14250, 0.17256, 0.01213, 0.00226, 0.00046, 0.00731, - + 0.38670, 0.13650, 0.15644, 0.01145, 0.00228, 0.00056, 0.00700, - + 0.37328, 0.13102, 0.14261, 0.01083, 0.00229, 0.00063, 0.00672, - + 0.36088, 0.12599, 0.13068, 0.01027, 0.00228, 0.00069, 0.00645, - + 0.34938, 0.12136, 0.12030, 0.00976, 0.00227, 0.00074, 0.00620, - + 0.33866, 0.11709, 0.11122, 0.00930, 0.00224, 0.00078, 0.00597, - + 0.32860, 0.11311, 0.10321, 0.00888, 0.00221, 0.00080, 0.00575, - + 0.31922, 0.10943, 0.09612, 0.00849, 0.00217, 0.00082, 0.00554, - + 0.31039, 0.10598, 0.08982, 0.00814, 0.00214, 0.00083, 0.00535, - + 0.30208, 0.10275, 0.08418, 0.00780, 0.00211, 0.00084, 0.00517, - + 0.29427, 0.09973, 0.07911, 0.00750, 0.00207, 0.00085, 0.00500, - + 0.28686, 0.09688, 0.07454, 0.00721, 0.00203, 0.00085, 0.00484/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),K=1,19)/ - + 0.53038, 0.19284, 0.36016, 0.01405, 0.00024, 0.00001, 0.00715, - + 0.49702, 0.17844, 0.30004, 0.01295, 0.00078, 0.00001, 0.00687, - + 0.46839, 0.16633, 0.25439, 0.01200, 0.00112, 0.00001, 0.00657, - + 0.44351, 0.15598, 0.21894, 0.01116, 0.00134, 0.00001, 0.00626, - + 0.42157, 0.14698, 0.19077, 0.01042, 0.00147, 0.00002, 0.00596, - + 0.40198, 0.13908, 0.16799, 0.00974, 0.00156, 0.00010, 0.00568, - + 0.38436, 0.13205, 0.14924, 0.00908, 0.00161, 0.00024, 0.00541, - + 0.36837, 0.12573, 0.13360, 0.00851, 0.00164, 0.00033, 0.00516, - + 0.35378, 0.12002, 0.12041, 0.00801, 0.00165, 0.00040, 0.00493, - + 0.34036, 0.11482, 0.10919, 0.00755, 0.00165, 0.00045, 0.00472, - + 0.32801, 0.11006, 0.09957, 0.00714, 0.00164, 0.00050, 0.00452, - + 0.31661, 0.10571, 0.09125, 0.00677, 0.00162, 0.00053, 0.00433, - + 0.30604, 0.10171, 0.08401, 0.00643, 0.00160, 0.00055, 0.00416, - + 0.29615, 0.09799, 0.07767, 0.00613, 0.00157, 0.00057, 0.00400, - + 0.28696, 0.09456, 0.07208, 0.00585, 0.00155, 0.00058, 0.00385, - + 0.27834, 0.09136, 0.06712, 0.00559, 0.00152, 0.00059, 0.00370, - + 0.27026, 0.08837, 0.06272, 0.00535, 0.00149, 0.00059, 0.00357, - + 0.26268, 0.08558, 0.05877, 0.00513, 0.00146, 0.00060, 0.00345, - + 0.25551, 0.08296, 0.05523, 0.00492, 0.00143, 0.00060, 0.00333/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),K=1,19)/ - + 0.49857, 0.17413, 0.29568, 0.01003, 0.00017, 0.00000, 0.00510, - + 0.46410, 0.16007, 0.24309, 0.00921, 0.00057, 0.00000, 0.00488, - + 0.43478, 0.14834, 0.20380, 0.00849, 0.00082, 0.00000, 0.00465, - + 0.40952, 0.13841, 0.17369, 0.00787, 0.00098, 0.00000, 0.00442, - + 0.38737, 0.12982, 0.15005, 0.00733, 0.00108, 0.00001, 0.00419, - + 0.36780, 0.12231, 0.13113, 0.00681, 0.00114, 0.00007, 0.00399, - + 0.35028, 0.11566, 0.11570, 0.00634, 0.00117, 0.00017, 0.00379, - + 0.33447, 0.10972, 0.10294, 0.00592, 0.00118, 0.00023, 0.00361, - + 0.32011, 0.10438, 0.09225, 0.00555, 0.00118, 0.00028, 0.00344, - + 0.30695, 0.09953, 0.08323, 0.00522, 0.00118, 0.00032, 0.00328, - + 0.29490, 0.09512, 0.07554, 0.00492, 0.00117, 0.00035, 0.00313, - + 0.28381, 0.09109, 0.06893, 0.00465, 0.00115, 0.00037, 0.00300, - + 0.27357, 0.08740, 0.06321, 0.00441, 0.00113, 0.00038, 0.00287, - + 0.26404, 0.08399, 0.05822, 0.00419, 0.00111, 0.00040, 0.00275, - + 0.25521, 0.08084, 0.05384, 0.00399, 0.00109, 0.00041, 0.00264, - + 0.24696, 0.07792, 0.04998, 0.00380, 0.00107, 0.00041, 0.00254, - + 0.23923, 0.07520, 0.04656, 0.00363, 0.00105, 0.00041, 0.00244, - + 0.23201, 0.07266, 0.04351, 0.00348, 0.00102, 0.00041, 0.00235, - + 0.22519, 0.07029, 0.04078, 0.00333, 0.00100, 0.00041, 0.00227/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),K=1,19)/ - + 0.46329, 0.15537, 0.24091, 0.00701, 0.00013, 0.00000, 0.00357, - + 0.42842, 0.14190, 0.19552, 0.00641, 0.00042, 0.00000, 0.00341, - + 0.39903, 0.13075, 0.16212, 0.00589, 0.00060, 0.00000, 0.00324, - + 0.37391, 0.12138, 0.13685, 0.00544, 0.00071, 0.00000, 0.00307, - + 0.35203, 0.11332, 0.11724, 0.00505, 0.00078, 0.00000, 0.00291, - + 0.33282, 0.10632, 0.10170, 0.00468, 0.00082, 0.00005, 0.00276, - + 0.31570, 0.10014, 0.08913, 0.00434, 0.00084, 0.00012, 0.00262, - + 0.30035, 0.09465, 0.07882, 0.00404, 0.00085, 0.00017, 0.00248, - + 0.28647, 0.08974, 0.07025, 0.00377, 0.00084, 0.00020, 0.00236, - + 0.27380, 0.08529, 0.06306, 0.00354, 0.00084, 0.00023, 0.00225, - + 0.26225, 0.08127, 0.05697, 0.00333, 0.00083, 0.00025, 0.00214, - + 0.25166, 0.07760, 0.05177, 0.00314, 0.00081, 0.00026, 0.00204, - + 0.24192, 0.07426, 0.04728, 0.00297, 0.00080, 0.00027, 0.00195, - + 0.23288, 0.07117, 0.04340, 0.00282, 0.00078, 0.00028, 0.00187, - + 0.22453, 0.06834, 0.04000, 0.00267, 0.00077, 0.00028, 0.00179, - + 0.21676, 0.06571, 0.03702, 0.00254, 0.00075, 0.00028, 0.00172, - + 0.20951, 0.06327, 0.03438, 0.00242, 0.00073, 0.00029, 0.00165, - + 0.20274, 0.06101, 0.03204, 0.00231, 0.00071, 0.00028, 0.00158, - + 0.19637, 0.05889, 0.02996, 0.00221, 0.00069, 0.00028, 0.00152/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),K=1,19)/ - + 0.42566, 0.13702, 0.19472, 0.00485, 0.00009, 0.00000, 0.00246, - + 0.39105, 0.12435, 0.15604, 0.00442, 0.00030, -0.00001, 0.00235, - + 0.36215, 0.11393, 0.12799, 0.00405, 0.00043, -0.00001, 0.00223, - + 0.33762, 0.10522, 0.10702, 0.00373, 0.00051, -0.00001, 0.00212, - + 0.31642, 0.09779, 0.09093, 0.00344, 0.00056, 0.00000, 0.00200, - + 0.29787, 0.09136, 0.07830, 0.00318, 0.00058, 0.00003, 0.00189, - + 0.28145, 0.08572, 0.06817, 0.00294, 0.00059, 0.00008, 0.00179, - + 0.26677, 0.08073, 0.05993, 0.00273, 0.00060, 0.00011, 0.00169, - + 0.25357, 0.07628, 0.05312, 0.00255, 0.00060, 0.00014, 0.00161, - + 0.24158, 0.07227, 0.04745, 0.00238, 0.00059, 0.00016, 0.00152, - + 0.23068, 0.06865, 0.04268, 0.00223, 0.00058, 0.00017, 0.00145, - + 0.22074, 0.06537, 0.03862, 0.00210, 0.00057, 0.00018, 0.00138, - + 0.21163, 0.06238, 0.03514, 0.00198, 0.00056, 0.00019, 0.00132, - + 0.20319, 0.05964, 0.03215, 0.00188, 0.00054, 0.00019, 0.00126, - + 0.19542, 0.05712, 0.02954, 0.00178, 0.00053, 0.00019, 0.00120, - + 0.18822, 0.05480, 0.02725, 0.00169, 0.00052, 0.00019, 0.00115, - + 0.18152, 0.05265, 0.02524, 0.00160, 0.00050, 0.00019, 0.00110, - + 0.17527, 0.05065, 0.02346, 0.00153, 0.00049, 0.00019, 0.00106, - + 0.16942, 0.04879, 0.02188, 0.00146, 0.00048, 0.00019, 0.00102/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),K=1,19)/ - + 0.38667, 0.11938, 0.15599, 0.00327, 0.00006, 0.00000, 0.00166, - + 0.35294, 0.10765, 0.12344, 0.00297, 0.00021, -0.00001, 0.00159, - + 0.32500, 0.09808, 0.10017, 0.00272, 0.00031, 0.00000, 0.00151, - + 0.30145, 0.09012, 0.08298, 0.00249, 0.00036, -0.00001, 0.00142, - + 0.28122, 0.08337, 0.06993, 0.00230, 0.00040, 0.00000, 0.00135, - + 0.26362, 0.07756, 0.05978, 0.00212, 0.00041, 0.00002, 0.00127, - + 0.24812, 0.07250, 0.05171, 0.00195, 0.00042, 0.00006, 0.00119, - + 0.23432, 0.06803, 0.04519, 0.00181, 0.00042, 0.00008, 0.00113, - + 0.22198, 0.06406, 0.03984, 0.00168, 0.00042, 0.00010, 0.00107, - + 0.21080, 0.06050, 0.03542, 0.00157, 0.00041, 0.00011, 0.00101, - + 0.20069, 0.05730, 0.03171, 0.00146, 0.00040, 0.00012, 0.00096, - + 0.19150, 0.05441, 0.02858, 0.00137, 0.00039, 0.00012, 0.00091, - + 0.18310, 0.05178, 0.02591, 0.00129, 0.00038, 0.00013, 0.00087, - + 0.17534, 0.04938, 0.02362, 0.00122, 0.00037, 0.00013, 0.00083, - + 0.16822, 0.04718, 0.02164, 0.00116, 0.00036, 0.00013, 0.00079, - + 0.16165, 0.04515, 0.01990, 0.00110, 0.00035, 0.00013, 0.00076, - + 0.15554, 0.04328, 0.01839, 0.00104, 0.00034, 0.00013, 0.00072, - + 0.14987, 0.04155, 0.01705, 0.00099, 0.00033, 0.00013, 0.00069, - + 0.14456, 0.03995, 0.01586, 0.00094, 0.00033, 0.00013, 0.00067/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),K=1,19)/ - + 0.34727, 0.10273, 0.12377, 0.00218, 0.00004, 0.00000, 0.00110, - + 0.31495, 0.09205, 0.09673, 0.00198, 0.00016, 0.00000, 0.00106, - + 0.28837, 0.08340, 0.07766, 0.00180, 0.00022, 0.00000, 0.00101, - + 0.26611, 0.07625, 0.06374, 0.00165, 0.00026, 0.00000, 0.00095, - + 0.24711, 0.07021, 0.05328, 0.00152, 0.00028, 0.00000, 0.00090, - + 0.23068, 0.06505, 0.04521, 0.00139, 0.00029, 0.00002, 0.00084, - + 0.21626, 0.06056, 0.03886, 0.00128, 0.00029, 0.00004, 0.00079, - + 0.20349, 0.05663, 0.03376, 0.00119, 0.00029, 0.00005, 0.00075, - + 0.19211, 0.05314, 0.02962, 0.00110, 0.00028, 0.00006, 0.00070, - + 0.18187, 0.05003, 0.02620, 0.00102, 0.00028, 0.00007, 0.00067, - + 0.17262, 0.04724, 0.02336, 0.00095, 0.00028, 0.00008, 0.00063, - + 0.16424, 0.04473, 0.02097, 0.00089, 0.00027, 0.00008, 0.00060, - + 0.15662, 0.04245, 0.01894, 0.00084, 0.00026, 0.00009, 0.00057, - + 0.14961, 0.04037, 0.01721, 0.00079, 0.00026, 0.00009, 0.00054, - + 0.14319, 0.03848, 0.01571, 0.00074, 0.00025, 0.00009, 0.00052, - + 0.13726, 0.03674, 0.01441, 0.00070, 0.00024, 0.00009, 0.00049, - + 0.13177, 0.03514, 0.01328, 0.00067, 0.00023, 0.00009, 0.00047, - + 0.12669, 0.03367, 0.01228, 0.00063, 0.00023, 0.00009, 0.00045, - + 0.12195, 0.03230, 0.01140, 0.00060, 0.00022, 0.00009, 0.00043/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),K=1,19)/ - + 0.30821, 0.08726, 0.09717, 0.00141, 0.00003, 0.00000, 0.00071, - + 0.27772, 0.07768, 0.07499, 0.00128, 0.00011, 0.00000, 0.00069, - + 0.25284, 0.06999, 0.05957, 0.00116, 0.00015, 0.00000, 0.00065, - + 0.23213, 0.06366, 0.04844, 0.00106, 0.00018, 0.00000, 0.00062, - + 0.21457, 0.05835, 0.04016, 0.00097, 0.00019, 0.00000, 0.00058, - + 0.19946, 0.05384, 0.03384, 0.00089, 0.00020, 0.00001, 0.00055, - + 0.18626, 0.04993, 0.02889, 0.00082, 0.00020, 0.00003, 0.00051, - + 0.17463, 0.04651, 0.02495, 0.00076, 0.00020, 0.00004, 0.00048, - + 0.16430, 0.04350, 0.02178, 0.00070, 0.00019, 0.00004, 0.00045, - + 0.15504, 0.04082, 0.01918, 0.00065, 0.00019, 0.00005, 0.00043, - + 0.14671, 0.03843, 0.01703, 0.00060, 0.00019, 0.00005, 0.00041, - + 0.13919, 0.03628, 0.01522, 0.00056, 0.00018, 0.00006, 0.00038, - + 0.13237, 0.03434, 0.01370, 0.00053, 0.00018, 0.00006, 0.00037, - + 0.12612, 0.03258, 0.01240, 0.00050, 0.00017, 0.00006, 0.00035, - + 0.12041, 0.03097, 0.01129, 0.00047, 0.00017, 0.00006, 0.00033, - + 0.11515, 0.02950, 0.01033, 0.00044, 0.00016, 0.00006, 0.00031, - + 0.11030, 0.02815, 0.00949, 0.00042, 0.00015, 0.00006, 0.00030, - + 0.10582, 0.02691, 0.00875, 0.00039, 0.00015, 0.00006, 0.00029, - + 0.10164, 0.02577, 0.00811, 0.00037, 0.00015, 0.00006, 0.00028/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),K=1,19)/ - + 0.27019, 0.07311, 0.07539, 0.00090, 0.00003, 0.00000, 0.00046, - + 0.24189, 0.06466, 0.05745, 0.00081, 0.00008, 0.00000, 0.00045, - + 0.21894, 0.05792, 0.04515, 0.00074, 0.00011, 0.00000, 0.00043, - + 0.19998, 0.05242, 0.03636, 0.00068, 0.00013, 0.00000, 0.00040, - + 0.18399, 0.04782, 0.02990, 0.00062, 0.00013, 0.00000, 0.00038, - + 0.17031, 0.04393, 0.02502, 0.00056, 0.00014, 0.00001, 0.00035, - + 0.15842, 0.04058, 0.02123, 0.00051, 0.00014, 0.00002, 0.00033, - + 0.14798, 0.03767, 0.01823, 0.00047, 0.00014, 0.00003, 0.00031, - + 0.13875, 0.03511, 0.01582, 0.00044, 0.00013, 0.00003, 0.00029, - + 0.13051, 0.03284, 0.01387, 0.00040, 0.00013, 0.00004, 0.00028, - + 0.12312, 0.03082, 0.01226, 0.00037, 0.00013, 0.00004, 0.00026, - + 0.11647, 0.02901, 0.01092, 0.00035, 0.00012, 0.00004, 0.00025, - + 0.11045, 0.02739, 0.00979, 0.00033, 0.00012, 0.00004, 0.00023, - + 0.10495, 0.02591, 0.00883, 0.00031, 0.00012, 0.00004, 0.00022, - + 0.09995, 0.02458, 0.00801, 0.00029, 0.00011, 0.00004, 0.00021, - + 0.09536, 0.02335, 0.00731, 0.00027, 0.00011, 0.00004, 0.00020, - + 0.09114, 0.02223, 0.00670, 0.00026, 0.00010, 0.00004, 0.00019, - + 0.08725, 0.02121, 0.00617, 0.00025, 0.00010, 0.00004, 0.00018, - + 0.08363, 0.02026, 0.00570, 0.00023, 0.00010, 0.00004, 0.00017/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),K=1,19)/ - + 0.23385, 0.06037, 0.05777, 0.00055, 0.00001, 0.00000, 0.00028, - + 0.20798, 0.05305, 0.04347, 0.00050, 0.00005, 0.00000, 0.00027, - + 0.18716, 0.04725, 0.03379, 0.00046, 0.00007, 0.00000, 0.00026, - + 0.17007, 0.04253, 0.02696, 0.00042, 0.00008, 0.00000, 0.00025, - + 0.15573, 0.03863, 0.02199, 0.00038, 0.00009, 0.00000, 0.00023, - + 0.14353, 0.03534, 0.01826, 0.00035, 0.00009, 0.00000, 0.00022, - + 0.13297, 0.03251, 0.01539, 0.00032, 0.00009, 0.00001, 0.00021, - + 0.12375, 0.03007, 0.01314, 0.00029, 0.00009, 0.00001, 0.00019, - + 0.11564, 0.02792, 0.01135, 0.00027, 0.00008, 0.00001, 0.00017, - + 0.10840, 0.02603, 0.00990, 0.00025, 0.00008, 0.00002, 0.00017, - + 0.10195, 0.02436, 0.00871, 0.00023, 0.00008, 0.00002, 0.00016, - + 0.09616, 0.02286, 0.00773, 0.00022, 0.00008, 0.00002, 0.00015, - + 0.09094, 0.02152, 0.00691, 0.00020, 0.00007, 0.00002, 0.00014, - + 0.08619, 0.02031, 0.00621, 0.00019, 0.00007, 0.00002, 0.00014, - + 0.08188, 0.01921, 0.00562, 0.00018, 0.00007, 0.00002, 0.00013, - + 0.07793, 0.01821, 0.00511, 0.00016, 0.00007, 0.00002, 0.00012, - + 0.07430, 0.01730, 0.00467, 0.00015, 0.00007, 0.00003, 0.00012, - + 0.07097, 0.01646, 0.00429, 0.00015, 0.00007, 0.00003, 0.00011, - + 0.06789, 0.01569, 0.00396, 0.00014, 0.00006, 0.00003, 0.00010/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),K=1,19)/ - + 0.19961, 0.04908, 0.04364, 0.00034, 0.00001, 0.00000, 0.00017, - + 0.17635, 0.04284, 0.03241, 0.00031, 0.00003, 0.00000, 0.00017, - + 0.15777, 0.03793, 0.02492, 0.00028, 0.00005, 0.00000, 0.00016, - + 0.14260, 0.03396, 0.01969, 0.00026, 0.00005, 0.00000, 0.00015, - + 0.12996, 0.03070, 0.01593, 0.00023, 0.00006, 0.00000, 0.00014, - + 0.11925, 0.02796, 0.01313, 0.00021, 0.00006, 0.00000, 0.00014, - + 0.11003, 0.02562, 0.01100, 0.00019, 0.00006, 0.00000, 0.00013, - + 0.10202, 0.02360, 0.00933, 0.00018, 0.00006, 0.00000, 0.00012, - + 0.09499, 0.02184, 0.00802, 0.00017, 0.00006, 0.00001, 0.00010, - + 0.08875, 0.02030, 0.00696, 0.00015, 0.00005, 0.00001, 0.00010, - + 0.08320, 0.01893, 0.00610, 0.00014, 0.00005, 0.00001, 0.00010, - + 0.07824, 0.01772, 0.00539, 0.00013, 0.00005, 0.00001, 0.00009, - + 0.07379, 0.01663, 0.00480, 0.00012, 0.00005, 0.00001, 0.00009, - + 0.06975, 0.01565, 0.00430, 0.00011, 0.00004, 0.00001, 0.00008, - + 0.06609, 0.01477, 0.00388, 0.00011, 0.00004, 0.00001, 0.00008, - + 0.06274, 0.01397, 0.00352, 0.00010, 0.00004, 0.00001, 0.00007, - + 0.05968, 0.01323, 0.00321, 0.00009, 0.00004, 0.00002, 0.00007, - + 0.05688, 0.01257, 0.00294, 0.00009, 0.00004, 0.00002, 0.00007, - + 0.05429, 0.01195, 0.00271, 0.00008, 0.00004, 0.00002, 0.00006/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),K=1,19)/ - + 0.16787, 0.03921, 0.03245, 0.00019, 0.00001, 0.00000, 0.00010, - + 0.14729, 0.03401, 0.02378, 0.00018, 0.00002, 0.00000, 0.00010, - + 0.13099, 0.02993, 0.01807, 0.00016, 0.00003, 0.00000, 0.00010, - + 0.11776, 0.02666, 0.01415, 0.00015, 0.00004, 0.00000, 0.00009, - + 0.10681, 0.02397, 0.01135, 0.00014, 0.00003, -0.00001, 0.00009, - + 0.09756, 0.02173, 0.00928, 0.00013, 0.00003, 0.00000, 0.00008, - + 0.08965, 0.01984, 0.00772, 0.00011, 0.00003, 0.00000, 0.00008, - + 0.08279, 0.01821, 0.00652, 0.00010, 0.00003, 0.00001, 0.00007, - + 0.07682, 0.01678, 0.00557, 0.00009, 0.00004, 0.00001, 0.00007, - + 0.07153, 0.01554, 0.00481, 0.00009, 0.00003, 0.00001, 0.00006, - + 0.06684, 0.01445, 0.00420, 0.00008, 0.00003, 0.00001, 0.00006, - + 0.06267, 0.01348, 0.00369, 0.00007, 0.00003, 0.00001, 0.00006, - + 0.05893, 0.01262, 0.00328, 0.00007, 0.00003, 0.00001, 0.00005, - + 0.05554, 0.01184, 0.00293, 0.00006, 0.00003, 0.00001, 0.00005, - + 0.05249, 0.01114, 0.00263, 0.00006, 0.00003, 0.00001, 0.00005, - + 0.04971, 0.01051, 0.00238, 0.00006, 0.00003, 0.00001, 0.00004, - + 0.04717, 0.00994, 0.00217, 0.00005, 0.00003, 0.00001, 0.00004, - + 0.04485, 0.00942, 0.00198, 0.00005, 0.00002, 0.00001, 0.00004, - + 0.04271, 0.00894, 0.00182, 0.00005, 0.00002, 0.00001, 0.00004/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),K=1,19)/ - + 0.13892, 0.03076, 0.02370, 0.00011, 0.00000, 0.00000, 0.00006, - + 0.12104, 0.02649, 0.01713, 0.00010, 0.00001, 0.00000, 0.00006, - + 0.10698, 0.02317, 0.01287, 0.00009, 0.00002, 0.00000, 0.00006, - + 0.09565, 0.02052, 0.00998, 0.00009, 0.00002, 0.00000, 0.00005, - + 0.08632, 0.01836, 0.00793, 0.00008, 0.00002, 0.00000, 0.00005, - + 0.07849, 0.01657, 0.00644, 0.00007, 0.00002, 0.00000, 0.00005, - + 0.07181, 0.01506, 0.00532, 0.00007, 0.00002, 0.00000, 0.00004, - + 0.06606, 0.01377, 0.00446, 0.00006, 0.00002, 0.00000, 0.00004, - + 0.06106, 0.01264, 0.00379, 0.00005, 0.00002, 0.00000, 0.00004, - + 0.05666, 0.01167, 0.00326, 0.00005, 0.00002, 0.00001, 0.00004, - + 0.05278, 0.01081, 0.00283, 0.00005, 0.00002, 0.00001, 0.00003, - + 0.04933, 0.01006, 0.00248, 0.00004, 0.00002, 0.00001, 0.00003, - + 0.04624, 0.00939, 0.00219, 0.00004, 0.00002, 0.00001, 0.00003, - + 0.04347, 0.00878, 0.00196, 0.00004, 0.00002, 0.00001, 0.00003, - + 0.04097, 0.00824, 0.00175, 0.00003, 0.00002, 0.00001, 0.00003, - + 0.03869, 0.00776, 0.00158, 0.00003, 0.00002, 0.00001, 0.00002, - + 0.03663, 0.00731, 0.00143, 0.00003, 0.00002, 0.00001, 0.00002, - + 0.03474, 0.00691, 0.00131, 0.00003, 0.00001, 0.00001, 0.00002, - + 0.03301, 0.00655, 0.00120, 0.00003, 0.00001, 0.00001, 0.00002/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),K=1,19)/ - + 0.08998, 0.01773, 0.01186, 0.00003, 0.00000, 0.00000, 0.00002, - + 0.07727, 0.01504, 0.00833, 0.00003, 0.00001, 0.00000, 0.00002, - + 0.06741, 0.01299, 0.00611, 0.00003, 0.00001, 0.00000, 0.00002, - + 0.05958, 0.01137, 0.00464, 0.00002, 0.00001, 0.00000, 0.00002, - + 0.05319, 0.01007, 0.00362, 0.00002, 0.00001, 0.00000, 0.00001, - + 0.04791, 0.00900, 0.00289, 0.00002, 0.00001, 0.00000, 0.00001, - + 0.04344, 0.00811, 0.00236, 0.00002, 0.00001, 0.00000, 0.00001, - + 0.03963, 0.00735, 0.00195, 0.00002, 0.00001, 0.00000, 0.00001, - + 0.03634, 0.00670, 0.00164, 0.00001, 0.00001, 0.00000, 0.00001, - + 0.03348, 0.00614, 0.00140, 0.00001, 0.00001, 0.00000, 0.00001, - + 0.03097, 0.00565, 0.00120, 0.00001, 0.00001, 0.00000, 0.00001, - + 0.02875, 0.00522, 0.00105, 0.00001, 0.00001, 0.00000, 0.00001, - + 0.02678, 0.00484, 0.00092, 0.00001, 0.00001, 0.00000, 0.00001, - + 0.02502, 0.00450, 0.00081, 0.00001, 0.00001, 0.00000, 0.00001, - + 0.02345, 0.00420, 0.00072, 0.00001, 0.00001, 0.00000, 0.00001, - + 0.02203, 0.00393, 0.00065, 0.00001, 0.00001, 0.00000, 0.00001, - + 0.02075, 0.00369, 0.00059, 0.00001, 0.00001, 0.00000, 0.00001, - + 0.01958, 0.00347, 0.00053, 0.00001, 0.00000, 0.00000, 0.00001, - + 0.01852, 0.00327, 0.00049, 0.00001, 0.00000, 0.00000, 0.00001/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),K=1,19)/ - + 0.05324, 0.00920, 0.00534, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.04500, 0.00768, 0.00364, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.03871, 0.00654, 0.00260, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.03378, 0.00565, 0.00193, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.02982, 0.00495, 0.00148, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.02658, 0.00438, 0.00116, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.02387, 0.00391, 0.00093, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.02157, 0.00351, 0.00076, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.01962, 0.00317, 0.00063, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.01793, 0.00288, 0.00053, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.01646, 0.00263, 0.00045, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.01517, 0.00241, 0.00039, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.01404, 0.00222, 0.00034, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.01304, 0.00205, 0.00030, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.01214, 0.00190, 0.00027, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.01134, 0.00177, 0.00024, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.01061, 0.00165, 0.00021, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00996, 0.00155, 0.00019, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00937, 0.00145, 0.00017, 0.00000, 0.00000, 0.00000, 0.00000/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),K=1,19)/ - + 0.02793, 0.00414, 0.00208, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.02319, 0.00339, 0.00137, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.01964, 0.00284, 0.00095, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.01690, 0.00243, 0.00069, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.01473, 0.00210, 0.00051, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.01297, 0.00183, 0.00040, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.01152, 0.00162, 0.00031, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.01031, 0.00144, 0.00025, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00929, 0.00129, 0.00021, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00841, 0.00116, 0.00017, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00766, 0.00105, 0.00015, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00700, 0.00096, 0.00012, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00643, 0.00087, 0.00011, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00592, 0.00080, 0.00009, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00548, 0.00074, 0.00008, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00508, 0.00068, 0.00007, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00473, 0.00063, 0.00007, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00441, 0.00059, 0.00006, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00412, 0.00055, 0.00005, 0.00000, 0.00000, 0.00000, 0.00000/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),K=1,19)/ - + 0.01235, 0.00152, 0.00066, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.01004, 0.00122, 0.00041, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00835, 0.00101, 0.00028, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00707, 0.00084, 0.00020, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00607, 0.00072, 0.00014, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00527, 0.00062, 0.00011, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00463, 0.00054, 0.00008, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00409, 0.00047, 0.00007, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00364, 0.00042, 0.00005, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00326, 0.00037, 0.00004, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00294, 0.00034, 0.00004, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00267, 0.00030, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00243, 0.00027, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00222, 0.00025, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00203, 0.00023, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00187, 0.00021, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00173, 0.00019, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00160, 0.00018, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00149, 0.00016, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),K=1,19)/ - + 0.00087, 0.00006, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00067, 0.00005, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00053, 0.00004, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00043, 0.00003, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00035, 0.00002, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00029, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00025, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00021, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00018, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00016, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00014, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00006, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00005, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000/ - DATA XX/1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-4,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,4,5,0,0,5/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,41 - DO 20 M=1,19 -C READ(28,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M) -C 1=UV 2=DV 3=GLUE 4=(UBAR+DBAR)/2 5=CBAR 7=BBAR 6=SBAR - DO 25 I=1,7 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,15 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=1,6 - DO 30 K=1,19 - 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K)) - 50 FORMAT(7F10.5) - DO 40 I=1,7 - DO 40 M=1,19 - 40 F(I,42,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - IF(M.GT.18) M=18 - DO 60 I=1,7 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.16) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,16,M)+B*F(I,16,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - SEA=G(4) - STR=G(6) - CHM=G(5) - GL =G(3) - BOT=G(7) - RETURN - END diff --git a/PDF/spdf/strh2e.F b/PDF/spdf/strh2e.F deleted file mode 100644 index d1479029229..00000000000 --- a/PDF/spdf/strh2e.F +++ /dev/null @@ -1,903 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:06 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:51 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE STRH2E(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C :::::: HARRIMAN MARTIN ROBERTS STIRLING (E) sea=ubar=dbar=2sbar at Q0* -#include "pdf/impdp.inc" - DIMENSION F(7,42,19),G(7),XX(42),N0(7) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),K=1,19)/ - + 0.04096, 0.00664, 3.32967, 0.04384, 0.01024, 0.00000, 0.02701, - + 0.04188, 0.00720, 6.12704, 0.09283, 0.05797, 0.00000, 0.07537, - + 0.04274, 0.00772, 9.45610, 0.15957, 0.12355, 0.00000, 0.14153, - + 0.04354, 0.00823, 13.16263, 0.24006, 0.20295, 0.00000, 0.22148, - + 0.04430, 0.00870, 17.21933, 0.33222, 0.29517, 0.00219, 0.31422, - + 0.04502, 0.00917, 21.57890, 0.41810, 0.39894, 0.03991, 0.41848, - + 0.04570, 0.00961, 26.15117, 0.48102, 0.51187, 0.14176, 0.53187, - + 0.04636, 0.01004, 30.94051, 0.55380, 0.63407, 0.24236, 0.65451, - + 0.04699, 0.01046, 35.92586, 0.63218, 0.76497, 0.34910, 0.78584, - + 0.04760, 0.01087, 41.09314, 0.71529, 0.90419, 0.46294, 0.92547, - + 0.04819, 0.01127, 46.34061, 0.80175, 1.04876, 0.58071, 1.07044, - + 0.04876, 0.01166, 51.66371, 0.89136, 1.19854, 0.70254, 1.22059, - + 0.04931, 0.01204, 57.13947, 0.98544, 1.35571, 0.83018, 1.37813, - + 0.04985, 0.01241, 62.57440, 1.08054, 1.51455, 0.95903, 1.53732, - + 0.05037, 0.01277, 68.11569, 1.17925, 1.67934, 1.09255, 1.70245, - + 0.05088, 0.01312, 73.65871, 1.27962, 1.84688, 1.22818, 1.87032, - + 0.05137, 0.01347, 79.22708, 1.38207, 2.01784, 1.36647, 2.04160, - + 0.05185, 0.01381, 84.80046, 1.48615, 2.19149, 1.50684, 2.21556, - + 0.05232, 0.01414, 90.37953, 1.59186, 2.36781, 1.64928, 2.39219/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),K=1,19)/ - + 0.05088, 0.01010, 3.25209, 0.05395, 0.01104, 0.00000, 0.03247, - + 0.05205, 0.01088, 5.65026, 0.10300, 0.05863, 0.00000, 0.08079, - + 0.05312, 0.01162, 8.38432, 0.16513, 0.11943, 0.00000, 0.14226, - + 0.05412, 0.01232, 11.32975, 0.23659, 0.18965, 0.00000, 0.21310, - + 0.05507, 0.01298, 14.46710, 0.31557, 0.26840, 0.00185, 0.29244, - + 0.05596, 0.01362, 17.76108, 0.38730, 0.35459, 0.03294, 0.37917, - + 0.05681, 0.01423, 21.14510, 0.43849, 0.44628, 0.11599, 0.47138, - + 0.05762, 0.01482, 24.62537, 0.49662, 0.54359, 0.19631, 0.56918, - + 0.05840, 0.01539, 28.18849, 0.55814, 0.64605, 0.28006, 0.67211, - + 0.05915, 0.01595, 31.82632, 0.62234, 0.75336, 0.36806, 0.77987, - + 0.05988, 0.01648, 35.46771, 0.68822, 0.86329, 0.45787, 0.89023, - + 0.06058, 0.01700, 39.11272, 0.75563, 0.97577, 0.54962, 1.00312, - + 0.06125, 0.01751, 42.81876, 0.82558, 1.09244, 0.64465, 1.12019, - + 0.06191, 0.01800, 46.45189, 0.89555, 1.20912, 0.73957, 1.23725, - + 0.06254, 0.01849, 50.11823, 0.96744, 1.32897, 0.83696, 1.35747, - + 0.06316, 0.01895, 53.74707, 1.03986, 1.44970, 0.93498, 1.47856, - + 0.06376, 0.01941, 57.35736, 1.11314, 1.57183, 1.03404, 1.60103, - + 0.06435, 0.01986, 60.93729, 1.18697, 1.69487, 1.13378, 1.72440, - + 0.06492, 0.02030, 64.48935, 1.26137, 1.81884, 1.23420, 1.84869/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),K=1,19)/ - + 0.06282, 0.01534, 3.17485, 0.06637, 0.01161, 0.00000, 0.03897, - + 0.06428, 0.01644, 5.20773, 0.11445, 0.05804, 0.00000, 0.08623, - + 0.06562, 0.01747, 7.42919, 0.17128, 0.11338, 0.00000, 0.14232, - + 0.06687, 0.01844, 9.74484, 0.23376, 0.17448, 0.00000, 0.20412, - + 0.06804, 0.01935, 12.14470, 0.30053, 0.24073, 0.00154, 0.27102, - + 0.06915, 0.02022, 14.60555, 0.35966, 0.31132, 0.02684, 0.34221, - + 0.07020, 0.02105, 17.08078, 0.40082, 0.38480, 0.09372, 0.41626, - + 0.07121, 0.02186, 19.57907, 0.44670, 0.46130, 0.15709, 0.49329, - + 0.07218, 0.02263, 22.09364, 0.49444, 0.54051, 0.22204, 0.57300, - + 0.07310, 0.02337, 24.62143, 0.54347, 0.62221, 0.28930, 0.65519, - + 0.07399, 0.02409, 27.11404, 0.59310, 0.70479, 0.35702, 0.73823, - + 0.07485, 0.02478, 29.57483, 0.64326, 0.78825, 0.42536, 0.82212, - + 0.07568, 0.02546, 32.04695, 0.69469, 0.87382, 0.49532, 0.90812, - + 0.07648, 0.02611, 34.43900, 0.74558, 0.95850, 0.56448, 0.99320, - + 0.07726, 0.02674, 36.82719, 0.79735, 1.04462, 0.63473, 1.07971, - + 0.07801, 0.02736, 39.16483, 0.84901, 1.13058, 0.70478, 1.16604, - + 0.07875, 0.02796, 41.46690, 0.90082, 1.21677, 0.77497, 1.25258, - + 0.07946, 0.02854, 43.72720, 0.95259, 1.30289, 0.84504, 1.33905, - + 0.08015, 0.02911, 45.94916, 1.00434, 1.38898, 0.91504, 1.42547/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),K=1,19)/ - + 0.07083, 0.01959, 3.12932, 0.07489, 0.01177, 0.00000, 0.04332, - + 0.07248, 0.02092, 4.96284, 0.12181, 0.05696, 0.00000, 0.08938, - + 0.07401, 0.02217, 6.91799, 0.17521, 0.10877, 0.00000, 0.14199, - + 0.07544, 0.02333, 8.91708, 0.23247, 0.16457, 0.00000, 0.19853, - + 0.07677, 0.02443, 10.95555, 0.29250, 0.22396, 0.00137, 0.25859, - + 0.07802, 0.02547, 13.01664, 0.34494, 0.28628, 0.02363, 0.32154, - + 0.07922, 0.02646, 15.06373, 0.38092, 0.35035, 0.08216, 0.38620, - + 0.08036, 0.02741, 17.10666, 0.42060, 0.41633, 0.13696, 0.45273, - + 0.08145, 0.02833, 19.14198, 0.46148, 0.48398, 0.19257, 0.52090, - + 0.08250, 0.02921, 21.16891, 0.50309, 0.55315, 0.24968, 0.59058, - + 0.08351, 0.03005, 23.14951, 0.54487, 0.62253, 0.30672, 0.66042, - + 0.08448, 0.03087, 25.08839, 0.58678, 0.69213, 0.36388, 0.73047, - + 0.08541, 0.03166, 27.02209, 0.62947, 0.76303, 0.42201, 0.80180, - + 0.08632, 0.03243, 28.87794, 0.67144, 0.83274, 0.47912, 0.87192, - + 0.08719, 0.03317, 30.71896, 0.71387, 0.90324, 0.53679, 0.94280, - + 0.08804, 0.03389, 32.50862, 0.75599, 0.97321, 0.59398, 1.01315, - + 0.08887, 0.03459, 34.25996, 0.79801, 1.04301, 0.65098, 1.08331, - + 0.08967, 0.03526, 35.96909, 0.83978, 1.11241, 0.70762, 1.15306, - + 0.09044, 0.03592, 37.63948, 0.88134, 1.18147, 0.76393, 1.22245/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),K=1,19)/ - + 0.07699, 0.02329, 3.09657, 0.08155, 0.01180, 0.00000, 0.04667, - + 0.07881, 0.02482, 4.79457, 0.12736, 0.05579, 0.00000, 0.09158, - + 0.08048, 0.02624, 6.57428, 0.17816, 0.10496, 0.00000, 0.14157, - + 0.08204, 0.02757, 8.36915, 0.23173, 0.15703, 0.00000, 0.19440, - + 0.08350, 0.02881, 10.17824, 0.28718, 0.21174, 0.00126, 0.24980, - + 0.08488, 0.02999, 11.98900, 0.33514, 0.26855, 0.02151, 0.30725, - + 0.08619, 0.03111, 13.77102, 0.36771, 0.32645, 0.07456, 0.36576, - + 0.08744, 0.03218, 15.53498, 0.40338, 0.38563, 0.12382, 0.42550, - + 0.08863, 0.03321, 17.27930, 0.43987, 0.44589, 0.17347, 0.48629, - + 0.08977, 0.03420, 19.00464, 0.47677, 0.50713, 0.22414, 0.54803, - + 0.09087, 0.03515, 20.67931, 0.51362, 0.56822, 0.27448, 0.60959, - + 0.09193, 0.03606, 22.30855, 0.55039, 0.62918, 0.32467, 0.67101, - + 0.09295, 0.03695, 23.92488, 0.58765, 0.69099, 0.37547, 0.73324, - + 0.09394, 0.03780, 25.46680, 0.62412, 0.75150, 0.42515, 0.79416, - + 0.09489, 0.03862, 26.98915, 0.66084, 0.81243, 0.47512, 0.85548, - + 0.09582, 0.03942, 28.46149, 0.69714, 0.87267, 0.52448, 0.91609, - + 0.09671, 0.04020, 29.89561, 0.73322, 0.93254, 0.57349, 0.97632, - + 0.09758, 0.04095, 31.28883, 0.76896, 0.99187, 0.62202, 1.03599, - + 0.09843, 0.04168, 32.64464, 0.80439, 1.05069, 0.67011, 1.09514/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),K=1,19)/ - + 0.08206, 0.02664, 3.07078, 0.08710, 0.01175, 0.00000, 0.04942, - + 0.08401, 0.02833, 4.66685, 0.13185, 0.05465, 0.00000, 0.09326, - + 0.08581, 0.02990, 6.31762, 0.18056, 0.10168, 0.00000, 0.14113, - + 0.08749, 0.03136, 7.96477, 0.23128, 0.15087, 0.00000, 0.19110, - + 0.08906, 0.03274, 9.60994, 0.28326, 0.20205, 0.00118, 0.24298, - + 0.09053, 0.03403, 11.24354, 0.32790, 0.25479, 0.01995, 0.29637, - + 0.09194, 0.03526, 12.83967, 0.35799, 0.30819, 0.06899, 0.35038, - + 0.09328, 0.03644, 14.40938, 0.39074, 0.36245, 0.11424, 0.40520, - + 0.09456, 0.03756, 15.95251, 0.42407, 0.41741, 0.15961, 0.46069, - + 0.09578, 0.03864, 17.47061, 0.45761, 0.47299, 0.20569, 0.51678, - + 0.09696, 0.03967, 18.93633, 0.49096, 0.52820, 0.25129, 0.57246, - + 0.09809, 0.04067, 20.35518, 0.52410, 0.58308, 0.29657, 0.62780, - + 0.09918, 0.04163, 21.75691, 0.55755, 0.63852, 0.34222, 0.68365, - + 0.10024, 0.04255, 23.08755, 0.59018, 0.69260, 0.38673, 0.73814, - + 0.10126, 0.04345, 24.39639, 0.62292, 0.74688, 0.43134, 0.79281, - + 0.10224, 0.04431, 25.65698, 0.65519, 0.80039, 0.47527, 0.84668, - + 0.10320, 0.04515, 26.88029, 0.68716, 0.85341, 0.51877, 0.90005, - + 0.10413, 0.04596, 28.06430, 0.71875, 0.90580, 0.56172, 0.95278, - + 0.10503, 0.04675, 29.21252, 0.74998, 0.95762, 0.60418, 1.00492/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),K=1,19)/ - + 0.09951, 0.04035, 2.98677, 0.10658, 0.01118, 0.00000, 0.05889, - + 0.10196, 0.04266, 4.28244, 0.14692, 0.04959, 0.00000, 0.09828, - + 0.10422, 0.04478, 5.56876, 0.18861, 0.08956, 0.00000, 0.13912, - + 0.10631, 0.04674, 6.80979, 0.23055, 0.12995, 0.00000, 0.18029, - + 0.10828, 0.04857, 8.01392, 0.27234, 0.17081, 0.00094, 0.22186, - + 0.11012, 0.05029, 9.17943, 0.30744, 0.21194, 0.01554, 0.26364, - + 0.11188, 0.05190, 10.29177, 0.33053, 0.25279, 0.05340, 0.30508, - + 0.11355, 0.05344, 11.36288, 0.35525, 0.29355, 0.08767, 0.34639, - + 0.11514, 0.05490, 12.39573, 0.37999, 0.33418, 0.12147, 0.38753, - + 0.11666, 0.05629, 13.39404, 0.40451, 0.37467, 0.15531, 0.42850, - + 0.11813, 0.05762, 14.34086, 0.42855, 0.41436, 0.18836, 0.46863, - + 0.11953, 0.05889, 15.24236, 0.45214, 0.45333, 0.22078, 0.50802, - + 0.12088, 0.06012, 16.12077, 0.47567, 0.49223, 0.25309, 0.54731, - + 0.12219, 0.06129, 16.94078, 0.49836, 0.52977, 0.28424, 0.58522, - + 0.12344, 0.06242, 17.73729, 0.52089, 0.56706, 0.31516, 0.62286, - + 0.12466, 0.06351, 18.49368, 0.54287, 0.60347, 0.34531, 0.65960, - + 0.12584, 0.06456, 19.21832, 0.56444, 0.63921, 0.37489, 0.69565, - + 0.12698, 0.06557, 19.91093, 0.58556, 0.67422, 0.40385, 0.73096, - + 0.12809, 0.06655, 20.57460, 0.60626, 0.70855, 0.43223, 0.76557/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),K=1,19)/ - + 0.11992, 0.06089, 2.89161, 0.12944, 0.00987, 0.00000, 0.06968, - + 0.12303, 0.06395, 3.90807, 0.16359, 0.04220, 0.00000, 0.10293, - + 0.12589, 0.06674, 4.87665, 0.19762, 0.07464, 0.00000, 0.13618, - + 0.12855, 0.06929, 5.77887, 0.23094, 0.10657, 0.00000, 0.16880, - + 0.13104, 0.07165, 6.62765, 0.26332, 0.13808, 0.00073, 0.20094, - + 0.13337, 0.07384, 7.42676, 0.28995, 0.16912, 0.01176, 0.23254, - + 0.13558, 0.07590, 8.16982, 0.30701, 0.19939, 0.04019, 0.26332, - + 0.13768, 0.07783, 8.86874, 0.32497, 0.22908, 0.06544, 0.29346, - + 0.13968, 0.07966, 9.52822, 0.34266, 0.25819, 0.08993, 0.32299, - + 0.14160, 0.08140, 10.15303, 0.35991, 0.28678, 0.11411, 0.35196, - + 0.14343, 0.08304, 10.73344, 0.37660, 0.31442, 0.13741, 0.37996, - + 0.14518, 0.08461, 11.27537, 0.39275, 0.34122, 0.15998, 0.40708, - + 0.14687, 0.08611, 11.79519, 0.40865, 0.36765, 0.18220, 0.43380, - + 0.14849, 0.08753, 12.27041, 0.42381, 0.39286, 0.20340, 0.45928, - + 0.15005, 0.08890, 12.72536, 0.43869, 0.41764, 0.22420, 0.48432, - + 0.15156, 0.09020, 13.14986, 0.45305, 0.44158, 0.24428, 0.50849, - + 0.15301, 0.09146, 13.55015, 0.46699, 0.46485, 0.26380, 0.53197, - + 0.15442, 0.09267, 13.92672, 0.48051, 0.48742, 0.28272, 0.55475, - + 0.15578, 0.09383, 14.28213, 0.49363, 0.50936, 0.30110, 0.57688/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),K=1,19)/ - + 0.13374, 0.07721, 2.82642, 0.14409, 0.00880, 0.00000, 0.07645, - + 0.13736, 0.08074, 3.68746, 0.17391, 0.03704, 0.00000, 0.10550, - + 0.14069, 0.08394, 4.48785, 0.20325, 0.06502, 0.00000, 0.13417, - + 0.14377, 0.08684, 5.21715, 0.23162, 0.09224, 0.00000, 0.16197, - + 0.14665, 0.08951, 5.88979, 0.25884, 0.11877, 0.00062, 0.18901, - + 0.14934, 0.09198, 6.51178, 0.28095, 0.14460, 0.00981, 0.21528, - + 0.15189, 0.09428, 7.08019, 0.29481, 0.16952, 0.03346, 0.24059, - + 0.15431, 0.09643, 7.60644, 0.30929, 0.19371, 0.05423, 0.26512, - + 0.15661, 0.09846, 8.09574, 0.32341, 0.21720, 0.07417, 0.28892, - + 0.15880, 0.10037, 8.55301, 0.33705, 0.24005, 0.09369, 0.31205, - + 0.16090, 0.10218, 8.97158, 0.35012, 0.26198, 0.11235, 0.33422, - + 0.16290, 0.10388, 9.35695, 0.36266, 0.28306, 0.13027, 0.35551, - + 0.16483, 0.10552, 9.72256, 0.37492, 0.30369, 0.14779, 0.37634, - + 0.16667, 0.10706, 10.05156, 0.38650, 0.32323, 0.16439, 0.39605, - + 0.16845, 0.10853, 10.36322, 0.39779, 0.34230, 0.18057, 0.41528, - + 0.17016, 0.10994, 10.65013, 0.40860, 0.36060, 0.19609, 0.43372, - + 0.17180, 0.11128, 10.91742, 0.41903, 0.37828, 0.21107, 0.45152, - + 0.17339, 0.11257, 11.16580, 0.42907, 0.39533, 0.22552, 0.46868, - + 0.17493, 0.11380, 11.39737, 0.43876, 0.41180, 0.23947, 0.48524/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),K=1,19)/ - + 0.14500, 0.09118, 2.77331, 0.15476, 0.00808, 0.00000, 0.08144, - + 0.14908, 0.09501, 3.52587, 0.18162, 0.03367, 0.00000, 0.10767, - + 0.15283, 0.09846, 4.21204, 0.20775, 0.05877, 0.00000, 0.13330, - + 0.15630, 0.10157, 4.82669, 0.23277, 0.08293, 0.00000, 0.15790, - + 0.15952, 0.10442, 5.38470, 0.25653, 0.10624, 0.00055, 0.18157, - + 0.16253, 0.10705, 5.89329, 0.27559, 0.12871, 0.00857, 0.20435, - + 0.16538, 0.10948, 6.35166, 0.28730, 0.15021, 0.02914, 0.22610, - + 0.16807, 0.11174, 6.77052, 0.29946, 0.17090, 0.04706, 0.24701, - + 0.17062, 0.11387, 7.15523, 0.31123, 0.19085, 0.06413, 0.26714, - + 0.17305, 0.11587, 7.51064, 0.32250, 0.21011, 0.08072, 0.28656, - + 0.17536, 0.11774, 7.83187, 0.33323, 0.22847, 0.09648, 0.30504, - + 0.17757, 0.11951, 8.12401, 0.34344, 0.24601, 0.11153, 0.32268, - + 0.17969, 0.12119, 8.39861, 0.35336, 0.26307, 0.12615, 0.33983, - + 0.18172, 0.12277, 8.64208, 0.36266, 0.27913, 0.13992, 0.35596, - + 0.18366, 0.12428, 8.87064, 0.37168, 0.29473, 0.15327, 0.37161, - + 0.18553, 0.12571, 9.07849, 0.38027, 0.30962, 0.16602, 0.38653, - + 0.18733, 0.12708, 9.26993, 0.38850, 0.32393, 0.17827, 0.40086, - + 0.18906, 0.12838, 9.44570, 0.39638, 0.33766, 0.19002, 0.41461, - + 0.19073, 0.12963, 9.60769, 0.40394, 0.35086, 0.20132, 0.42782/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),K=1,19)/ - + 0.15493, 0.10355, 2.72690, 0.16298, 0.00763, 0.00000, 0.08533, - + 0.15946, 0.10757, 3.39611, 0.18773, 0.03148, 0.00000, 0.10964, - + 0.16361, 0.11117, 3.99639, 0.21148, 0.05455, 0.00000, 0.13306, - + 0.16743, 0.11440, 4.52622, 0.23398, 0.07651, 0.00000, 0.15530, - + 0.17097, 0.11735, 5.00081, 0.25513, 0.09749, 0.00049, 0.17649, - + 0.17428, 0.12005, 5.42798, 0.27190, 0.11754, 0.00767, 0.19670, - + 0.17739, 0.12253, 5.80819, 0.28198, 0.13658, 0.02602, 0.21586, - + 0.18032, 0.12484, 6.15162, 0.29240, 0.15478, 0.04189, 0.23413, - + 0.18309, 0.12700, 6.46357, 0.30240, 0.17219, 0.05691, 0.25160, - + 0.18573, 0.12902, 6.74881, 0.31193, 0.18891, 0.07141, 0.26835, - + 0.18823, 0.13091, 7.00353, 0.32092, 0.20475, 0.08512, 0.28419, - + 0.19062, 0.13268, 7.23250, 0.32943, 0.21979, 0.09814, 0.29923, - + 0.19290, 0.13436, 7.44589, 0.33765, 0.23436, 0.11072, 0.31377, - + 0.19508, 0.13594, 7.63229, 0.34531, 0.24800, 0.12252, 0.32737, - + 0.19716, 0.13743, 7.80575, 0.35269, 0.26118, 0.13392, 0.34050, - + 0.19916, 0.13885, 7.96148, 0.35968, 0.27371, 0.14474, 0.35297, - + 0.20108, 0.14020, 8.10325, 0.36635, 0.28570, 0.15510, 0.36488, - + 0.20293, 0.14147, 8.23181, 0.37270, 0.29715, 0.16501, 0.37626, - + 0.20470, 0.14269, 8.34882, 0.37875, 0.30812, 0.17449, 0.38714/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),K=1,19)/ - + 0.19507, 0.15149, 2.54346, 0.18440, 0.00598, 0.00000, 0.09521, - + 0.20131, 0.15569, 2.96819, 0.20159, 0.02401, 0.00000, 0.11283, - + 0.20694, 0.15935, 3.32764, 0.21746, 0.04078, 0.00000, 0.12916, - + 0.21205, 0.16257, 3.62763, 0.23196, 0.05622, 0.00000, 0.14413, - + 0.21673, 0.16543, 3.88265, 0.24514, 0.07053, 0.00034, 0.15796, - + 0.22104, 0.16799, 4.10092, 0.25506, 0.08382, 0.00516, 0.17078, - + 0.22504, 0.17030, 4.28491, 0.26029, 0.09613, 0.01738, 0.18260, - + 0.22877, 0.17240, 4.44280, 0.26563, 0.10761, 0.02770, 0.19359, - + 0.23226, 0.17432, 4.57919, 0.27064, 0.11836, 0.03726, 0.20386, - + 0.23554, 0.17609, 4.69793, 0.27527, 0.12846, 0.04630, 0.21349, - + 0.23862, 0.17771, 4.79753, 0.27950, 0.13784, 0.05470, 0.22239, - + 0.24152, 0.17919, 4.88154, 0.28339, 0.14658, 0.06253, 0.23066, - + 0.24427, 0.18058, 4.95632, 0.28706, 0.15489, 0.06998, 0.23852, - + 0.24686, 0.18185, 5.01563, 0.29035, 0.16254, 0.07685, 0.24570, - + 0.24933, 0.18303, 5.06787, 0.29346, 0.16980, 0.08338, 0.25253, - + 0.25166, 0.18413, 5.11053, 0.29631, 0.17659, 0.08950, 0.25887, - + 0.25388, 0.18515, 5.14600, 0.29895, 0.18298, 0.09526, 0.26483, - + 0.25600, 0.18610, 5.17482, 0.30139, 0.18900, 0.10070, 0.27042, - + 0.25802, 0.18698, 5.19803, 0.30366, 0.19467, 0.10583, 0.27567/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),K=1,19)/ - + 0.26393, 0.21301, 2.26515, 0.18753, 0.00432, 0.00000, 0.09594, - + 0.27194, 0.21591, 2.47235, 0.19663, 0.01691, 0.00000, 0.10679, - + 0.27896, 0.21829, 2.63149, 0.20455, 0.02807, 0.00000, 0.11633, - + 0.28514, 0.22024, 2.75087, 0.21138, 0.03793, 0.00000, 0.12467, - + 0.29065, 0.22184, 2.84173, 0.21723, 0.04672, 0.00021, 0.13205, - + 0.29561, 0.22318, 2.91059, 0.22098, 0.05461, 0.00316, 0.13861, - + 0.30008, 0.22428, 2.96015, 0.22184, 0.06168, 0.01051, 0.14441, - + 0.30416, 0.22518, 2.99567, 0.22282, 0.06808, 0.01655, 0.14960, - + 0.30789, 0.22594, 3.02037, 0.22363, 0.07390, 0.02199, 0.15428, - + 0.31132, 0.22658, 3.03673, 0.22425, 0.07922, 0.02702, 0.15851, - + 0.31446, 0.22708, 3.04427, 0.22469, 0.08403, 0.03159, 0.16227, - + 0.31734, 0.22748, 3.04506, 0.22497, 0.08839, 0.03575, 0.16563, - + 0.32003, 0.22782, 3.04251, 0.22518, 0.09245, 0.03964, 0.16874, - + 0.32247, 0.22804, 3.03359, 0.22521, 0.09608, 0.04314, 0.17144, - + 0.32477, 0.22822, 3.02254, 0.22518, 0.09945, 0.04640, 0.17393, - + 0.32689, 0.22833, 3.00814, 0.22505, 0.10253, 0.04940, 0.17615, - + 0.32886, 0.22839, 2.99155, 0.22485, 0.10535, 0.05218, 0.17816, - + 0.33070, 0.22840, 2.97306, 0.22458, 0.10795, 0.05475, 0.17996, - + 0.33241, 0.22838, 2.95314, 0.22426, 0.11034, 0.05713, 0.18159/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),K=1,19)/ - + 0.32748, 0.25117, 2.03445, 0.17254, 0.00335, 0.00000, 0.08794, - + 0.33553, 0.25211, 2.13380, 0.17708, 0.01289, 0.00000, 0.09499, - + 0.34236, 0.25266, 2.19959, 0.18076, 0.02109, 0.00001, 0.10093, - + 0.34819, 0.25287, 2.23928, 0.18367, 0.02813, 0.00001, 0.10590, - + 0.35322, 0.25285, 2.26129, 0.18592, 0.03425, 0.00015, 0.11012, - + 0.35760, 0.25267, 2.27045, 0.18676, 0.03960, 0.00220, 0.11372, - + 0.36144, 0.25231, 2.26868, 0.18563, 0.04428, 0.00727, 0.11677, - + 0.36481, 0.25184, 2.25964, 0.18468, 0.04843, 0.01135, 0.11938, - + 0.36779, 0.25128, 2.24539, 0.18368, 0.05211, 0.01497, 0.12163, - + 0.37045, 0.25066, 2.22753, 0.18264, 0.05542, 0.01825, 0.12358, - + 0.37279, 0.24998, 2.20577, 0.18154, 0.05834, 0.02118, 0.12523, - + 0.37484, 0.24924, 2.18135, 0.18040, 0.06093, 0.02381, 0.12661, - + 0.37671, 0.24848, 2.15634, 0.17927, 0.06329, 0.02623, 0.12782, - + 0.37831, 0.24766, 2.12875, 0.17807, 0.06535, 0.02837, 0.12879, - + 0.37977, 0.24683, 2.10118, 0.17689, 0.06724, 0.03035, 0.12964, - + 0.38105, 0.24598, 2.07277, 0.17569, 0.06892, 0.03213, 0.13033, - + 0.38218, 0.24511, 2.04421, 0.17449, 0.07043, 0.03376, 0.13089, - + 0.38317, 0.24423, 2.01557, 0.17330, 0.07179, 0.03524, 0.13133, - + 0.38405, 0.24334, 1.98706, 0.17210, 0.07301, 0.03660, 0.13169/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),K=1,19)/ - + 0.38577, 0.27514, 1.83134, 0.15191, 0.00268, 0.00000, 0.07728, - + 0.39258, 0.27396, 1.86637, 0.15372, 0.01018, -0.00001, 0.08194, - + 0.39814, 0.27257, 1.87912, 0.15493, 0.01646, 0.00000, 0.08569, - + 0.40260, 0.27103, 1.87548, 0.15564, 0.02174, 0.00000, 0.08868, - + 0.40628, 0.26939, 1.86163, 0.15593, 0.02622, 0.00011, 0.09109, - + 0.40931, 0.26770, 1.84105, 0.15524, 0.03006, 0.00162, 0.09305, - + 0.41176, 0.26596, 1.81489, 0.15319, 0.03336, 0.00532, 0.09459, - + 0.41378, 0.26417, 1.78555, 0.15134, 0.03622, 0.00826, 0.09583, - + 0.41544, 0.26239, 1.75442, 0.14954, 0.03872, 0.01082, 0.09682, - + 0.41679, 0.26062, 1.72249, 0.14777, 0.04091, 0.01311, 0.09761, - + 0.41784, 0.25884, 1.68940, 0.14602, 0.04281, 0.01513, 0.09818, - + 0.41864, 0.25707, 1.65589, 0.14429, 0.04446, 0.01693, 0.09859, - + 0.41929, 0.25534, 1.62326, 0.14262, 0.04595, 0.01856, 0.09890, - + 0.41967, 0.25360, 1.59008, 0.14096, 0.04721, 0.01997, 0.09906, - + 0.41994, 0.25191, 1.55799, 0.13935, 0.04834, 0.02127, 0.09914, - + 0.42007, 0.25022, 1.52634, 0.13777, 0.04933, 0.02242, 0.09913, - + 0.42007, 0.24855, 1.49547, 0.13623, 0.05019, 0.02346, 0.09905, - + 0.41997, 0.24691, 1.46537, 0.13472, 0.05095, 0.02439, 0.09891, - + 0.41978, 0.24530, 1.43613, 0.13325, 0.05161, 0.02524, 0.09872/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),K=1,19)/ - + 0.43776, 0.28909, 1.64882, 0.13023, 0.00217, 0.00000, 0.06619, - + 0.44242, 0.28586, 1.64270, 0.13041, 0.00819, -0.00001, 0.06929, - + 0.44588, 0.28264, 1.62295, 0.13020, 0.01312, 0.00000, 0.07166, - + 0.44831, 0.27945, 1.59396, 0.12968, 0.01718, 0.00000, 0.07342, - + 0.45005, 0.27632, 1.56010, 0.12891, 0.02056, 0.00008, 0.07474, - + 0.45121, 0.27326, 1.52371, 0.12745, 0.02341, 0.00123, 0.07574, - + 0.45186, 0.27026, 1.48531, 0.12503, 0.02581, 0.00402, 0.07642, - + 0.45214, 0.26732, 1.44645, 0.12283, 0.02786, 0.00621, 0.07688, - + 0.45213, 0.26446, 1.40796, 0.12073, 0.02961, 0.00810, 0.07718, - + 0.45188, 0.26169, 1.37039, 0.11871, 0.03112, 0.00976, 0.07735, - + 0.45138, 0.25898, 1.33333, 0.11675, 0.03240, 0.01121, 0.07737, - + 0.45069, 0.25633, 1.29717, 0.11485, 0.03350, 0.01248, 0.07728, - + 0.44991, 0.25379, 1.26272, 0.11303, 0.03447, 0.01363, 0.07714, - + 0.44891, 0.25129, 1.22885, 0.11126, 0.03526, 0.01461, 0.07690, - + 0.44785, 0.24887, 1.19662, 0.10956, 0.03597, 0.01549, 0.07662, - + 0.44669, 0.24650, 1.16549, 0.10792, 0.03656, 0.01627, 0.07629, - + 0.44546, 0.24420, 1.13563, 0.10633, 0.03706, 0.01697, 0.07592, - + 0.44417, 0.24195, 1.10696, 0.10479, 0.03749, 0.01758, 0.07552, - + 0.44282, 0.23976, 1.07949, 0.10331, 0.03785, 0.01813, 0.07509/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),K=1,19)/ - + 0.49294, 0.29618, 1.44435, 0.10451, 0.00171, 0.00001, 0.05311, - + 0.49398, 0.29063, 1.40607, 0.10363, 0.00635, 0.00001, 0.05498, - + 0.49408, 0.28536, 1.36223, 0.10254, 0.01007, 0.00001, 0.05629, - + 0.49338, 0.28036, 1.31553, 0.10128, 0.01305, 0.00001, 0.05715, - + 0.49220, 0.27560, 1.26866, 0.09991, 0.01550, 0.00007, 0.05771, - + 0.49061, 0.27111, 1.22275, 0.09811, 0.01751, 0.00090, 0.05803, - + 0.48868, 0.26677, 1.17775, 0.09567, 0.01917, 0.00292, 0.05814, - + 0.48652, 0.26264, 1.13448, 0.09344, 0.02055, 0.00449, 0.05811, - + 0.48419, 0.25868, 1.09324, 0.09134, 0.02171, 0.00581, 0.05797, - + 0.48176, 0.25490, 1.05420, 0.08936, 0.02269, 0.00697, 0.05775, - + 0.47917, 0.25126, 1.01686, 0.08745, 0.02350, 0.00796, 0.05745, - + 0.47650, 0.24775, 0.98134, 0.08563, 0.02417, 0.00882, 0.05709, - + 0.47385, 0.24440, 0.94806, 0.08391, 0.02475, 0.00958, 0.05671, - + 0.47107, 0.24115, 0.91612, 0.08224, 0.02521, 0.01022, 0.05626, - + 0.46831, 0.23804, 0.88614, 0.08066, 0.02560, 0.01079, 0.05581, - + 0.46553, 0.23503, 0.85766, 0.07914, 0.02591, 0.01129, 0.05534, - + 0.46275, 0.23212, 0.83070, 0.07768, 0.02616, 0.01173, 0.05484, - + 0.45997, 0.22932, 0.80515, 0.07629, 0.02637, 0.01211, 0.05434, - + 0.45721, 0.22661, 0.78094, 0.07495, 0.02653, 0.01244, 0.05383/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),K=1,19)/ - + 0.53606, 0.29472, 1.26244, 0.08206, 0.00135, 0.00001, 0.04169, - + 0.53294, 0.28717, 1.20527, 0.08075, 0.00496, 0.00000, 0.04285, - + 0.52924, 0.28021, 1.14839, 0.07934, 0.00780, 0.00000, 0.04356, - + 0.52513, 0.27371, 1.09311, 0.07786, 0.01004, 0.00000, 0.04393, - + 0.52077, 0.26768, 1.04076, 0.07635, 0.01182, 0.00005, 0.04408, - + 0.51629, 0.26203, 0.99161, 0.07455, 0.01327, 0.00067, 0.04407, - + 0.51168, 0.25666, 0.94522, 0.07233, 0.01444, 0.00215, 0.04390, - + 0.50700, 0.25161, 0.90185, 0.07031, 0.01539, 0.00329, 0.04365, - + 0.50233, 0.24683, 0.86145, 0.06841, 0.01617, 0.00424, 0.04334, - + 0.49771, 0.24230, 0.82391, 0.06663, 0.01682, 0.00506, 0.04298, - + 0.49309, 0.23797, 0.78871, 0.06494, 0.01733, 0.00576, 0.04257, - + 0.48850, 0.23384, 0.75579, 0.06334, 0.01775, 0.00635, 0.04212, - + 0.48404, 0.22993, 0.72530, 0.06184, 0.01809, 0.00687, 0.04167, - + 0.47957, 0.22616, 0.69651, 0.06039, 0.01835, 0.00731, 0.04119, - + 0.47521, 0.22257, 0.66975, 0.05903, 0.01857, 0.00769, 0.04071, - + 0.47090, 0.21913, 0.64460, 0.05772, 0.01873, 0.00801, 0.04022, - + 0.46668, 0.21582, 0.62104, 0.05648, 0.01885, 0.00829, 0.03973, - + 0.46255, 0.21265, 0.59892, 0.05530, 0.01893, 0.00853, 0.03923, - + 0.45848, 0.20960, 0.57815, 0.05417, 0.01898, 0.00874, 0.03875/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),K=1,19)/ - + 0.56694, 0.28694, 1.10021, 0.06328, 0.00106, 0.00000, 0.03217, - + 0.55946, 0.27779, 1.03264, 0.06190, 0.00389, 0.00001, 0.03289, - + 0.55189, 0.26947, 0.96958, 0.06048, 0.00607, 0.00000, 0.03327, - + 0.54428, 0.26185, 0.91115, 0.05905, 0.00776, 0.00000, 0.03339, - + 0.53682, 0.25481, 0.85768, 0.05761, 0.00909, 0.00004, 0.03335, - + 0.52950, 0.24831, 0.80881, 0.05599, 0.01014, 0.00050, 0.03318, - + 0.52229, 0.24221, 0.76377, 0.05408, 0.01097, 0.00161, 0.03292, - + 0.51523, 0.23650, 0.72247, 0.05234, 0.01163, 0.00245, 0.03259, - + 0.50836, 0.23114, 0.68464, 0.05073, 0.01216, 0.00314, 0.03223, - + 0.50172, 0.22610, 0.64998, 0.04923, 0.01258, 0.00373, 0.03184, - + 0.49523, 0.22130, 0.61793, 0.04780, 0.01292, 0.00422, 0.03141, - + 0.48890, 0.21677, 0.58836, 0.04646, 0.01317, 0.00464, 0.03097, - + 0.48281, 0.21250, 0.56123, 0.04521, 0.01338, 0.00500, 0.03054, - + 0.47681, 0.20841, 0.53590, 0.04401, 0.01352, 0.00529, 0.03009, - + 0.47104, 0.20453, 0.51254, 0.04289, 0.01363, 0.00555, 0.02964, - + 0.46542, 0.20083, 0.49080, 0.04182, 0.01371, 0.00577, 0.02920, - + 0.45995, 0.19729, 0.47060, 0.04080, 0.01375, 0.00595, 0.02876, - + 0.45463, 0.19391, 0.45177, 0.03985, 0.01377, 0.00610, 0.02833, - + 0.44947, 0.19068, 0.43421, 0.03893, 0.01377, 0.00623, 0.02790/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),K=1,19)/ - + 0.58616, 0.27450, 0.95557, 0.04797, 0.00085, 0.00000, 0.02441, - + 0.57437, 0.26414, 0.88327, 0.04672, 0.00307, 0.00001, 0.02489, - + 0.56303, 0.25483, 0.81839, 0.04544, 0.00475, 0.00000, 0.02510, - + 0.55212, 0.24639, 0.76014, 0.04417, 0.00603, 0.00000, 0.02509, - + 0.54172, 0.23867, 0.70811, 0.04292, 0.00701, 0.00003, 0.02497, - + 0.53177, 0.23159, 0.66150, 0.04155, 0.00778, 0.00038, 0.02476, - + 0.52219, 0.22501, 0.61931, 0.03997, 0.00837, 0.00121, 0.02447, - + 0.51298, 0.21888, 0.58120, 0.03855, 0.00883, 0.00183, 0.02415, - + 0.50416, 0.21317, 0.54674, 0.03724, 0.00919, 0.00234, 0.02380, - + 0.49573, 0.20783, 0.51553, 0.03601, 0.00947, 0.00276, 0.02344, - + 0.48761, 0.20278, 0.48701, 0.03486, 0.00969, 0.00312, 0.02305, - + 0.47978, 0.19803, 0.46095, 0.03377, 0.00984, 0.00341, 0.02266, - + 0.47231, 0.19357, 0.43724, 0.03277, 0.00996, 0.00367, 0.02228, - + 0.46504, 0.18933, 0.41532, 0.03181, 0.01003, 0.00387, 0.02189, - + 0.45808, 0.18532, 0.39525, 0.03091, 0.01008, 0.00404, 0.02151, - + 0.45137, 0.18150, 0.37671, 0.03006, 0.01010, 0.00419, 0.02113, - + 0.44489, 0.17788, 0.35960, 0.02926, 0.01011, 0.00431, 0.02076, - + 0.43862, 0.17442, 0.34376, 0.02851, 0.01009, 0.00441, 0.02040, - + 0.43258, 0.17113, 0.32907, 0.02779, 0.01006, 0.00449, 0.02004/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),K=1,19)/ - + 0.59448, 0.25877, 0.82678, 0.03584, 0.00066, 0.00000, 0.01825, - + 0.57863, 0.24757, 0.75359, 0.03480, 0.00241, -0.00001, 0.01859, - + 0.56384, 0.23761, 0.68973, 0.03373, 0.00371, 0.00000, 0.01871, - + 0.54994, 0.22863, 0.63373, 0.03268, 0.00467, 0.00000, 0.01866, - + 0.53691, 0.22051, 0.58465, 0.03165, 0.00541, 0.00002, 0.01852, - + 0.52465, 0.21310, 0.54138, 0.03053, 0.00598, 0.00028, 0.01832, - + 0.51300, 0.20626, 0.50281, 0.02928, 0.00640, 0.00091, 0.01806, - + 0.50196, 0.19993, 0.46836, 0.02814, 0.00672, 0.00137, 0.01776, - + 0.49149, 0.19406, 0.43757, 0.02710, 0.00697, 0.00175, 0.01746, - + 0.48157, 0.18860, 0.40997, 0.02613, 0.00716, 0.00206, 0.01715, - + 0.47210, 0.18347, 0.38500, 0.02522, 0.00729, 0.00231, 0.01682, - + 0.46304, 0.17866, 0.36236, 0.02437, 0.00738, 0.00252, 0.01650, - + 0.45446, 0.17417, 0.34190, 0.02358, 0.00744, 0.00270, 0.01618, - + 0.44619, 0.16989, 0.32316, 0.02283, 0.00747, 0.00284, 0.01585, - + 0.43831, 0.16588, 0.30612, 0.02214, 0.00748, 0.00296, 0.01554, - + 0.43073, 0.16208, 0.29049, 0.02149, 0.00747, 0.00305, 0.01523, - + 0.42346, 0.15847, 0.27614, 0.02087, 0.00746, 0.00313, 0.01494, - + 0.41649, 0.15505, 0.26293, 0.02028, 0.00743, 0.00320, 0.01464, - + 0.40980, 0.15179, 0.25075, 0.01973, 0.00739, 0.00325, 0.01436/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),K=1,19)/ - + 0.59269, 0.24072, 0.71230, 0.02635, 0.00053, 0.00000, 0.01344, - + 0.57325, 0.22903, 0.64079, 0.02552, 0.00190, 0.00000, 0.01371, - + 0.55540, 0.21872, 0.57977, 0.02468, 0.00290, 0.00000, 0.01379, - + 0.53890, 0.20950, 0.52731, 0.02385, 0.00364, 0.00001, 0.01374, - + 0.52366, 0.20121, 0.48206, 0.02304, 0.00418, 0.00002, 0.01361, - + 0.50947, 0.19370, 0.44267, 0.02217, 0.00459, 0.00022, 0.01343, - + 0.49615, 0.18680, 0.40803, 0.02118, 0.00489, 0.00069, 0.01321, - + 0.48362, 0.18045, 0.37744, 0.02031, 0.00511, 0.00103, 0.01297, - + 0.47185, 0.17458, 0.35033, 0.01950, 0.00528, 0.00131, 0.01271, - + 0.46077, 0.16914, 0.32623, 0.01875, 0.00540, 0.00154, 0.01246, - + 0.45025, 0.16407, 0.30462, 0.01806, 0.00548, 0.00172, 0.01220, - + 0.44028, 0.15933, 0.28518, 0.01740, 0.00553, 0.00187, 0.01193, - + 0.43089, 0.15491, 0.26773, 0.01680, 0.00556, 0.00199, 0.01167, - + 0.42188, 0.15073, 0.25188, 0.01623, 0.00557, 0.00209, 0.01142, - + 0.41334, 0.14682, 0.23754, 0.01569, 0.00556, 0.00217, 0.01117, - + 0.40518, 0.14312, 0.22446, 0.01520, 0.00554, 0.00223, 0.01092, - + 0.39739, 0.13962, 0.21252, 0.01473, 0.00551, 0.00228, 0.01069, - + 0.38996, 0.13631, 0.20159, 0.01429, 0.00548, 0.00233, 0.01046, - + 0.38284, 0.13317, 0.19155, 0.01387, 0.00543, 0.00236, 0.01024/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),K=1,19)/ - + 0.58209, 0.22129, 0.61084, 0.01911, 0.00042, 0.00000, 0.00976, - + 0.55958, 0.20941, 0.54275, 0.01849, 0.00149, 0.00000, 0.00999, - + 0.53918, 0.19902, 0.48575, 0.01786, 0.00226, 0.00000, 0.01006, - + 0.52057, 0.18978, 0.43753, 0.01723, 0.00282, 0.00001, 0.01002, - + 0.50356, 0.18153, 0.39650, 0.01660, 0.00322, 0.00001, 0.00991, - + 0.48786, 0.17410, 0.36121, 0.01594, 0.00352, 0.00016, 0.00977, - + 0.47325, 0.16730, 0.33052, 0.01519, 0.00373, 0.00052, 0.00959, - + 0.45961, 0.16108, 0.30369, 0.01453, 0.00389, 0.00078, 0.00940, - + 0.44688, 0.15535, 0.28012, 0.01391, 0.00400, 0.00098, 0.00920, - + 0.43497, 0.15007, 0.25933, 0.01334, 0.00407, 0.00115, 0.00900, - + 0.42373, 0.14516, 0.24083, 0.01282, 0.00412, 0.00128, 0.00879, - + 0.41314, 0.14058, 0.22432, 0.01233, 0.00415, 0.00138, 0.00858, - + 0.40320, 0.13633, 0.20958, 0.01187, 0.00416, 0.00147, 0.00838, - + 0.39372, 0.13233, 0.19628, 0.01145, 0.00415, 0.00154, 0.00818, - + 0.38477, 0.12860, 0.18431, 0.01105, 0.00413, 0.00159, 0.00799, - + 0.37626, 0.12508, 0.17346, 0.01068, 0.00410, 0.00163, 0.00780, - + 0.36817, 0.12176, 0.16361, 0.01033, 0.00407, 0.00167, 0.00761, - + 0.36047, 0.11862, 0.15463, 0.01000, 0.00404, 0.00169, 0.00744, - + 0.35313, 0.11566, 0.14642, 0.00969, 0.00399, 0.00171, 0.00727/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),K=1,19)/ - + 0.56377, 0.20114, 0.52115, 0.01364, 0.00033, 0.00001, 0.00699, - + 0.53879, 0.18934, 0.45761, 0.01320, 0.00117, 0.00001, 0.00720, - + 0.51640, 0.17908, 0.40527, 0.01275, 0.00176, 0.00001, 0.00726, - + 0.49621, 0.17003, 0.36168, 0.01228, 0.00218, 0.00000, 0.00723, - + 0.47786, 0.16200, 0.32500, 0.01182, 0.00248, 0.00002, 0.00716, - + 0.46111, 0.15479, 0.29381, 0.01132, 0.00269, 0.00013, 0.00705, - + 0.44557, 0.14823, 0.26694, 0.01077, 0.00285, 0.00040, 0.00691, - + 0.43119, 0.14225, 0.24366, 0.01028, 0.00295, 0.00058, 0.00676, - + 0.41785, 0.13678, 0.22339, 0.00982, 0.00303, 0.00073, 0.00660, - + 0.40544, 0.13175, 0.20564, 0.00940, 0.00307, 0.00085, 0.00645, - + 0.39380, 0.12708, 0.18996, 0.00901, 0.00310, 0.00095, 0.00629, - + 0.38287, 0.12275, 0.17606, 0.00864, 0.00310, 0.00102, 0.00613, - + 0.37265, 0.11874, 0.16373, 0.00831, 0.00310, 0.00108, 0.00598, - + 0.36293, 0.11499, 0.15267, 0.00799, 0.00309, 0.00113, 0.00583, - + 0.35382, 0.11148, 0.14276, 0.00770, 0.00306, 0.00117, 0.00568, - + 0.34519, 0.10819, 0.13383, 0.00743, 0.00304, 0.00120, 0.00553, - + 0.33700, 0.10510, 0.12576, 0.00717, 0.00301, 0.00122, 0.00540, - + 0.32922, 0.10219, 0.11844, 0.00694, 0.00297, 0.00124, 0.00526, - + 0.32182, 0.09944, 0.11178, 0.00671, 0.00294, 0.00125, 0.00514/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),K=1,19)/ - + 0.53899, 0.18084, 0.44224, 0.00958, 0.00026, 0.00001, 0.00493, - + 0.51217, 0.16935, 0.38389, 0.00929, 0.00091, 0.00001, 0.00511, - + 0.48837, 0.15944, 0.33655, 0.00897, 0.00136, 0.00001, 0.00517, - + 0.46709, 0.15074, 0.29763, 0.00864, 0.00168, 0.00000, 0.00516, - + 0.44789, 0.14305, 0.26526, 0.00831, 0.00190, 0.00001, 0.00511, - + 0.43049, 0.13619, 0.23801, 0.00795, 0.00205, 0.00010, 0.00503, - + 0.41444, 0.12998, 0.21475, 0.00755, 0.00216, 0.00030, 0.00493, - + 0.39969, 0.12434, 0.19478, 0.00719, 0.00223, 0.00044, 0.00482, - + 0.38606, 0.11919, 0.17752, 0.00685, 0.00228, 0.00055, 0.00470, - + 0.37344, 0.11448, 0.16251, 0.00655, 0.00230, 0.00063, 0.00458, - + 0.36167, 0.11013, 0.14934, 0.00626, 0.00231, 0.00070, 0.00446, - + 0.35065, 0.10611, 0.13775, 0.00600, 0.00231, 0.00075, 0.00435, - + 0.34039, 0.10239, 0.12752, 0.00575, 0.00230, 0.00080, 0.00423, - + 0.33068, 0.09892, 0.11839, 0.00553, 0.00229, 0.00083, 0.00412, - + 0.32160, 0.09569, 0.11026, 0.00532, 0.00226, 0.00085, 0.00401, - + 0.31303, 0.09266, 0.10297, 0.00512, 0.00224, 0.00087, 0.00390, - + 0.30493, 0.08982, 0.09641, 0.00493, 0.00221, 0.00089, 0.00380, - + 0.29725, 0.08716, 0.09048, 0.00476, 0.00218, 0.00090, 0.00370, - + 0.28998, 0.08466, 0.08512, 0.00460, 0.00215, 0.00090, 0.00360/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),K=1,19)/ - + 0.50900, 0.16088, 0.37309, 0.00666, 0.00020, 0.00000, 0.00342, - + 0.48098, 0.14990, 0.32025, 0.00648, 0.00069, -0.00001, 0.00358, - + 0.45635, 0.14048, 0.27801, 0.00626, 0.00104, -0.00001, 0.00365, - + 0.43445, 0.13227, 0.24366, 0.00604, 0.00128, 0.00000, 0.00365, - + 0.41488, 0.12504, 0.21543, 0.00580, 0.00143, 0.00000, 0.00362, - + 0.39720, 0.11861, 0.19189, 0.00555, 0.00154, 0.00007, 0.00356, - + 0.38103, 0.11283, 0.17198, 0.00525, 0.00162, 0.00022, 0.00349, - + 0.36623, 0.10759, 0.15501, 0.00499, 0.00167, 0.00032, 0.00341, - + 0.35261, 0.10283, 0.14045, 0.00475, 0.00170, 0.00040, 0.00332, - + 0.34006, 0.09849, 0.12787, 0.00453, 0.00172, 0.00046, 0.00324, - + 0.32841, 0.09449, 0.11692, 0.00432, 0.00172, 0.00051, 0.00315, - + 0.31753, 0.09081, 0.10733, 0.00413, 0.00171, 0.00055, 0.00306, - + 0.30743, 0.08742, 0.09891, 0.00396, 0.00170, 0.00058, 0.00298, - + 0.29793, 0.08426, 0.09145, 0.00380, 0.00168, 0.00060, 0.00289, - + 0.28906, 0.08132, 0.08483, 0.00365, 0.00166, 0.00062, 0.00281, - + 0.28071, 0.07858, 0.07892, 0.00351, 0.00164, 0.00063, 0.00273, - + 0.27285, 0.07602, 0.07363, 0.00338, 0.00161, 0.00064, 0.00266, - + 0.26544, 0.07362, 0.06887, 0.00325, 0.00159, 0.00064, 0.00258, - + 0.25843, 0.07137, 0.06458, 0.00314, 0.00156, 0.00065, 0.00251/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),K=1,19)/ - + 0.47497, 0.14157, 0.31271, 0.00452, 0.00015, 0.00000, 0.00233, - + 0.44637, 0.13125, 0.26548, 0.00442, 0.00053, 0.00000, 0.00247, - + 0.42143, 0.12245, 0.22823, 0.00428, 0.00079, 0.00000, 0.00254, - + 0.39940, 0.11481, 0.19828, 0.00414, 0.00097, 0.00000, 0.00255, - + 0.37984, 0.10812, 0.17392, 0.00398, 0.00108, 0.00000, 0.00253, - + 0.36227, 0.10220, 0.15380, 0.00380, 0.00116, 0.00005, 0.00249, - + 0.34629, 0.09689, 0.13692, 0.00360, 0.00121, 0.00016, 0.00245, - + 0.33173, 0.09210, 0.12265, 0.00341, 0.00124, 0.00023, 0.00239, - + 0.31839, 0.08777, 0.11049, 0.00324, 0.00126, 0.00029, 0.00232, - + 0.30614, 0.08383, 0.10005, 0.00309, 0.00127, 0.00034, 0.00226, - + 0.29482, 0.08022, 0.09102, 0.00294, 0.00127, 0.00037, 0.00220, - + 0.28430, 0.07690, 0.08316, 0.00281, 0.00126, 0.00040, 0.00213, - + 0.27455, 0.07385, 0.07630, 0.00268, 0.00124, 0.00042, 0.00207, - + 0.26542, 0.07102, 0.07025, 0.00257, 0.00123, 0.00044, 0.00201, - + 0.25691, 0.06839, 0.06491, 0.00247, 0.00121, 0.00045, 0.00195, - + 0.24894, 0.06595, 0.06016, 0.00237, 0.00119, 0.00045, 0.00190, - + 0.24145, 0.06367, 0.05593, 0.00228, 0.00117, 0.00046, 0.00184, - + 0.23440, 0.06154, 0.05214, 0.00219, 0.00115, 0.00046, 0.00179, - + 0.22776, 0.05955, 0.04874, 0.00211, 0.00113, 0.00046, 0.00174/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),K=1,19)/ - + 0.43807, 0.12325, 0.26028, 0.00305, 0.00011, -0.00001, 0.00157, - + 0.40947, 0.11370, 0.21859, 0.00300, 0.00040, -0.00001, 0.00169, - + 0.38473, 0.10559, 0.18611, 0.00291, 0.00059, -0.00001, 0.00175, - + 0.36299, 0.09860, 0.16030, 0.00283, 0.00072, -0.00001, 0.00177, - + 0.34382, 0.09249, 0.13949, 0.00271, 0.00081, 0.00000, 0.00176, - + 0.32665, 0.08713, 0.12247, 0.00260, 0.00087, 0.00004, 0.00174, - + 0.31119, 0.08233, 0.10830, 0.00245, 0.00091, 0.00012, 0.00171, - + 0.29711, 0.07802, 0.09642, 0.00232, 0.00092, 0.00017, 0.00166, - + 0.28427, 0.07413, 0.08637, 0.00220, 0.00093, 0.00021, 0.00162, - + 0.27253, 0.07061, 0.07779, 0.00210, 0.00093, 0.00024, 0.00157, - + 0.26170, 0.06739, 0.07042, 0.00200, 0.00092, 0.00027, 0.00153, - + 0.25169, 0.06444, 0.06404, 0.00190, 0.00092, 0.00029, 0.00148, - + 0.24247, 0.06173, 0.05849, 0.00182, 0.00091, 0.00030, 0.00144, - + 0.23384, 0.05923, 0.05363, 0.00174, 0.00089, 0.00031, 0.00139, - + 0.22582, 0.05692, 0.04935, 0.00166, 0.00088, 0.00032, 0.00135, - + 0.21833, 0.05477, 0.04557, 0.00159, 0.00086, 0.00032, 0.00131, - + 0.21131, 0.05277, 0.04222, 0.00153, 0.00084, 0.00033, 0.00127, - + 0.20472, 0.05090, 0.03923, 0.00147, 0.00083, 0.00033, 0.00123, - + 0.19853, 0.04916, 0.03655, 0.00142, 0.00081, 0.00033, 0.00119/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),K=1,19)/ - + 0.39932, 0.10609, 0.21499, 0.00199, 0.00008, -0.00001, 0.00103, - + 0.37125, 0.09738, 0.17861, 0.00198, 0.00030, -0.00001, 0.00113, - + 0.34714, 0.09003, 0.15062, 0.00194, 0.00044, -0.00001, 0.00118, - + 0.32609, 0.08372, 0.12861, 0.00189, 0.00054, -0.00001, 0.00120, - + 0.30762, 0.07824, 0.11104, 0.00181, 0.00060, 0.00000, 0.00120, - + 0.29117, 0.07344, 0.09679, 0.00174, 0.00064, 0.00003, 0.00119, - + 0.27641, 0.06917, 0.08503, 0.00164, 0.00067, 0.00008, 0.00117, - + 0.26304, 0.06534, 0.07523, 0.00155, 0.00067, 0.00012, 0.00114, - + 0.25090, 0.06191, 0.06700, 0.00147, 0.00068, 0.00015, 0.00111, - + 0.23984, 0.05880, 0.06003, 0.00140, 0.00068, 0.00018, 0.00108, - + 0.22966, 0.05597, 0.05406, 0.00133, 0.00067, 0.00019, 0.00105, - + 0.22030, 0.05339, 0.04893, 0.00127, 0.00066, 0.00020, 0.00101, - + 0.21169, 0.05102, 0.04450, 0.00121, 0.00065, 0.00021, 0.00098, - + 0.20367, 0.04884, 0.04063, 0.00115, 0.00064, 0.00022, 0.00095, - + 0.19624, 0.04683, 0.03724, 0.00110, 0.00063, 0.00023, 0.00092, - + 0.18931, 0.04497, 0.03426, 0.00105, 0.00061, 0.00023, 0.00089, - + 0.18283, 0.04324, 0.03163, 0.00101, 0.00060, 0.00023, 0.00086, - + 0.17677, 0.04163, 0.02929, 0.00097, 0.00059, 0.00023, 0.00084, - + 0.17109, 0.04013, 0.02721, 0.00093, 0.00057, 0.00023, 0.00081/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),K=1,19)/ - + 0.35977, 0.09027, 0.17611, 0.00129, 0.00006, 0.00000, 0.00067, - + 0.33269, 0.08244, 0.14474, 0.00130, 0.00022, -0.00001, 0.00076, - + 0.30956, 0.07587, 0.12088, 0.00129, 0.00033, 0.00000, 0.00081, - + 0.28955, 0.07026, 0.10233, 0.00125, 0.00040, 0.00000, 0.00082, - + 0.27202, 0.06542, 0.08765, 0.00121, 0.00044, 0.00000, 0.00082, - + 0.25654, 0.06119, 0.07585, 0.00116, 0.00046, 0.00002, 0.00081, - + 0.24267, 0.05744, 0.06620, 0.00109, 0.00048, 0.00006, 0.00080, - + 0.23017, 0.05410, 0.05821, 0.00104, 0.00049, 0.00009, 0.00078, - + 0.21888, 0.05110, 0.05154, 0.00098, 0.00049, 0.00011, 0.00076, - + 0.20862, 0.04840, 0.04592, 0.00093, 0.00049, 0.00013, 0.00074, - + 0.19922, 0.04595, 0.04115, 0.00088, 0.00048, 0.00014, 0.00071, - + 0.19059, 0.04372, 0.03707, 0.00084, 0.00047, 0.00014, 0.00069, - + 0.18268, 0.04168, 0.03356, 0.00080, 0.00047, 0.00015, 0.00067, - + 0.17533, 0.03981, 0.03052, 0.00076, 0.00046, 0.00016, 0.00065, - + 0.16855, 0.03808, 0.02787, 0.00073, 0.00045, 0.00016, 0.00063, - + 0.16225, 0.03649, 0.02554, 0.00070, 0.00043, 0.00016, 0.00061, - + 0.15637, 0.03502, 0.02349, 0.00067, 0.00042, 0.00016, 0.00058, - + 0.15087, 0.03365, 0.02169, 0.00064, 0.00041, 0.00016, 0.00057, - + 0.14572, 0.03238, 0.02008, 0.00062, 0.00040, 0.00016, 0.00055/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),K=1,19)/ - + 0.32018, 0.07586, 0.14295, 0.00080, 0.00004, 0.00000, 0.00042, - + 0.29450, 0.06894, 0.11621, 0.00083, 0.00016, 0.00000, 0.00049, - + 0.27271, 0.06315, 0.09613, 0.00083, 0.00024, 0.00000, 0.00053, - + 0.25396, 0.05824, 0.08066, 0.00081, 0.00029, 0.00000, 0.00055, - + 0.23762, 0.05402, 0.06854, 0.00079, 0.00032, 0.00000, 0.00055, - + 0.22327, 0.05035, 0.05888, 0.00076, 0.00033, 0.00001, 0.00055, - + 0.21046, 0.04710, 0.05104, 0.00071, 0.00035, 0.00004, 0.00054, - + 0.19896, 0.04422, 0.04460, 0.00068, 0.00035, 0.00006, 0.00052, - + 0.18861, 0.04165, 0.03926, 0.00064, 0.00035, 0.00008, 0.00051, - + 0.17925, 0.03934, 0.03479, 0.00060, 0.00035, 0.00009, 0.00050, - + 0.17070, 0.03725, 0.03102, 0.00057, 0.00034, 0.00009, 0.00048, - + 0.16287, 0.03535, 0.02781, 0.00055, 0.00033, 0.00010, 0.00046, - + 0.15572, 0.03362, 0.02506, 0.00052, 0.00033, 0.00011, 0.00045, - + 0.14910, 0.03203, 0.02270, 0.00050, 0.00032, 0.00011, 0.00043, - + 0.14300, 0.03058, 0.02064, 0.00047, 0.00031, 0.00011, 0.00042, - + 0.13735, 0.02924, 0.01885, 0.00045, 0.00030, 0.00011, 0.00040, - + 0.13209, 0.02800, 0.01728, 0.00043, 0.00030, 0.00011, 0.00039, - + 0.12718, 0.02685, 0.01589, 0.00041, 0.00029, 0.00011, 0.00038, - + 0.12260, 0.02579, 0.01467, 0.00040, 0.00028, 0.00011, 0.00036/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),K=1,19)/ - + 0.28136, 0.06292, 0.11486, 0.00050, 0.00004, 0.00000, 0.00027, - + 0.25741, 0.05689, 0.09236, 0.00052, 0.00012, 0.00000, 0.00033, - + 0.23722, 0.05187, 0.07564, 0.00053, 0.00018, 0.00000, 0.00035, - + 0.21993, 0.04764, 0.06291, 0.00052, 0.00021, 0.00000, 0.00037, - + 0.20495, 0.04401, 0.05303, 0.00051, 0.00023, 0.00000, 0.00037, - + 0.19184, 0.04087, 0.04522, 0.00049, 0.00024, 0.00001, 0.00037, - + 0.18020, 0.03811, 0.03893, 0.00046, 0.00025, 0.00003, 0.00036, - + 0.16981, 0.03566, 0.03380, 0.00043, 0.00025, 0.00005, 0.00035, - + 0.16047, 0.03349, 0.02958, 0.00041, 0.00025, 0.00005, 0.00034, - + 0.15204, 0.03154, 0.02607, 0.00039, 0.00024, 0.00006, 0.00033, - + 0.14438, 0.02979, 0.02312, 0.00037, 0.00024, 0.00007, 0.00032, - + 0.13739, 0.02820, 0.02063, 0.00035, 0.00024, 0.00007, 0.00031, - + 0.13102, 0.02675, 0.01851, 0.00033, 0.00023, 0.00007, 0.00030, - + 0.12515, 0.02543, 0.01668, 0.00032, 0.00022, 0.00007, 0.00029, - + 0.11975, 0.02421, 0.01511, 0.00030, 0.00022, 0.00007, 0.00028, - + 0.11475, 0.02310, 0.01375, 0.00029, 0.00021, 0.00007, 0.00027, - + 0.11012, 0.02208, 0.01256, 0.00028, 0.00021, 0.00007, 0.00026, - + 0.10581, 0.02114, 0.01151, 0.00026, 0.00020, 0.00007, 0.00025, - + 0.10180, 0.02026, 0.01059, 0.00025, 0.00019, 0.00007, 0.00024/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),K=1,19)/ - + 0.24401, 0.05147, 0.09129, 0.00030, 0.00002, 0.00000, 0.00016, - + 0.22204, 0.04630, 0.07259, 0.00033, 0.00008, 0.00000, 0.00020, - + 0.20363, 0.04202, 0.05887, 0.00033, 0.00012, 0.00000, 0.00023, - + 0.18793, 0.03842, 0.04852, 0.00033, 0.00015, 0.00000, 0.00024, - + 0.17440, 0.03538, 0.04058, 0.00033, 0.00016, 0.00000, 0.00024, - + 0.16264, 0.03272, 0.03433, 0.00031, 0.00017, 0.00001, 0.00024, - + 0.15222, 0.03041, 0.02936, 0.00030, 0.00017, 0.00002, 0.00024, - + 0.14297, 0.02836, 0.02532, 0.00028, 0.00017, 0.00003, 0.00023, - + 0.13469, 0.02655, 0.02202, 0.00027, 0.00017, 0.00003, 0.00023, - + 0.12724, 0.02494, 0.01929, 0.00025, 0.00017, 0.00004, 0.00022, - + 0.12049, 0.02348, 0.01702, 0.00024, 0.00016, 0.00004, 0.00021, - + 0.11435, 0.02217, 0.01512, 0.00023, 0.00016, 0.00004, 0.00020, - + 0.10876, 0.02098, 0.01350, 0.00022, 0.00015, 0.00004, 0.00019, - + 0.10363, 0.01990, 0.01212, 0.00021, 0.00015, 0.00005, 0.00019, - + 0.09893, 0.01891, 0.01093, 0.00020, 0.00014, 0.00005, 0.00018, - + 0.09459, 0.01800, 0.00991, 0.00018, 0.00014, 0.00005, 0.00018, - + 0.09057, 0.01716, 0.00901, 0.00017, 0.00014, 0.00005, 0.00017, - + 0.08685, 0.01639, 0.00823, 0.00017, 0.00013, 0.00005, 0.00016, - + 0.08340, 0.01568, 0.00755, 0.00016, 0.00013, 0.00005, 0.00016/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),K=1,19)/ - + 0.20866, 0.04147, 0.07167, 0.00018, 0.00002, 0.00000, 0.00010, - + 0.18883, 0.03710, 0.05635, 0.00020, 0.00006, 0.00000, 0.00013, - + 0.17232, 0.03352, 0.04523, 0.00021, 0.00009, 0.00000, 0.00015, - + 0.15832, 0.03051, 0.03694, 0.00021, 0.00010, 0.00000, 0.00016, - + 0.14631, 0.02798, 0.03063, 0.00021, 0.00011, 0.00000, 0.00016, - + 0.13591, 0.02579, 0.02572, 0.00020, 0.00012, 0.00000, 0.00016, - + 0.12675, 0.02388, 0.02183, 0.00019, 0.00012, 0.00001, 0.00016, - + 0.11864, 0.02220, 0.01871, 0.00018, 0.00012, 0.00002, 0.00015, - + 0.11141, 0.02072, 0.01617, 0.00017, 0.00012, 0.00002, 0.00015, - + 0.10493, 0.01940, 0.01409, 0.00016, 0.00011, 0.00003, 0.00014, - + 0.09907, 0.01822, 0.01236, 0.00015, 0.00011, 0.00003, 0.00013, - + 0.09377, 0.01715, 0.01092, 0.00015, 0.00011, 0.00003, 0.00013, - + 0.08896, 0.01620, 0.00970, 0.00014, 0.00010, 0.00003, 0.00012, - + 0.08455, 0.01532, 0.00867, 0.00013, 0.00010, 0.00003, 0.00012, - + 0.08052, 0.01453, 0.00779, 0.00012, 0.00010, 0.00003, 0.00012, - + 0.07681, 0.01380, 0.00703, 0.00012, 0.00009, 0.00003, 0.00011, - + 0.07339, 0.01313, 0.00638, 0.00011, 0.00009, 0.00003, 0.00011, - + 0.07022, 0.01251, 0.00580, 0.00011, 0.00009, 0.00003, 0.00010, - + 0.06729, 0.01194, 0.00530, 0.00010, 0.00008, 0.00003, 0.00010/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),K=1,19)/ - + 0.17573, 0.03287, 0.05549, 0.00010, 0.00001, 0.00000, 0.00006, - + 0.15815, 0.02925, 0.04312, 0.00012, 0.00004, 0.00000, 0.00008, - + 0.14359, 0.02629, 0.03426, 0.00013, 0.00006, 0.00000, 0.00009, - + 0.13133, 0.02382, 0.02772, 0.00013, 0.00007, 0.00000, 0.00010, - + 0.12086, 0.02174, 0.02278, 0.00013, 0.00008, -0.00001, 0.00010, - + 0.11182, 0.01998, 0.01898, 0.00013, 0.00007, 0.00000, 0.00010, - + 0.10390, 0.01843, 0.01599, 0.00012, 0.00008, 0.00001, 0.00010, - + 0.09691, 0.01708, 0.01361, 0.00011, 0.00008, 0.00001, 0.00009, - + 0.09070, 0.01589, 0.01169, 0.00011, 0.00008, 0.00002, 0.00009, - + 0.08516, 0.01483, 0.01013, 0.00010, 0.00008, 0.00002, 0.00009, - + 0.08018, 0.01389, 0.00884, 0.00009, 0.00007, 0.00002, 0.00009, - + 0.07568, 0.01304, 0.00776, 0.00009, 0.00007, 0.00002, 0.00009, - + 0.07160, 0.01228, 0.00686, 0.00008, 0.00007, 0.00002, 0.00008, - + 0.06788, 0.01159, 0.00611, 0.00008, 0.00007, 0.00002, 0.00008, - + 0.06448, 0.01096, 0.00546, 0.00008, 0.00006, 0.00002, 0.00007, - + 0.06137, 0.01039, 0.00491, 0.00007, 0.00006, 0.00002, 0.00007, - + 0.05850, 0.00986, 0.00444, 0.00007, 0.00006, 0.00002, 0.00007, - + 0.05586, 0.00938, 0.00402, 0.00006, 0.00006, 0.00002, 0.00007, - + 0.05341, 0.00894, 0.00366, 0.00006, 0.00006, 0.00002, 0.00006/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),K=1,19)/ - + 0.14559, 0.02558, 0.04232, 0.00006, 0.00001, 0.00000, 0.00003, - + 0.13028, 0.02263, 0.03249, 0.00007, 0.00003, 0.00000, 0.00005, - + 0.11768, 0.02024, 0.02554, 0.00008, 0.00004, 0.00000, 0.00006, - + 0.10712, 0.01826, 0.02046, 0.00008, 0.00005, 0.00000, 0.00006, - + 0.09816, 0.01660, 0.01667, 0.00008, 0.00005, 0.00000, 0.00006, - + 0.09044, 0.01519, 0.01377, 0.00008, 0.00005, 0.00000, 0.00006, - + 0.08373, 0.01396, 0.01152, 0.00008, 0.00005, 0.00000, 0.00006, - + 0.07782, 0.01289, 0.00973, 0.00007, 0.00005, 0.00001, 0.00006, - + 0.07259, 0.01195, 0.00830, 0.00007, 0.00005, 0.00001, 0.00006, - + 0.06793, 0.01113, 0.00715, 0.00006, 0.00005, 0.00001, 0.00006, - + 0.06377, 0.01039, 0.00620, 0.00006, 0.00005, 0.00001, 0.00005, - + 0.06002, 0.00973, 0.00542, 0.00005, 0.00005, 0.00001, 0.00005, - + 0.05663, 0.00913, 0.00477, 0.00005, 0.00004, 0.00001, 0.00005, - + 0.05354, 0.00860, 0.00422, 0.00005, 0.00004, 0.00001, 0.00005, - + 0.05074, 0.00811, 0.00376, 0.00005, 0.00004, 0.00001, 0.00005, - + 0.04817, 0.00767, 0.00337, 0.00004, 0.00004, 0.00001, 0.00004, - + 0.04581, 0.00727, 0.00303, 0.00004, 0.00004, 0.00001, 0.00004, - + 0.04365, 0.00690, 0.00274, 0.00004, 0.00004, 0.00001, 0.00004, - + 0.04165, 0.00656, 0.00248, 0.00004, 0.00004, 0.00001, 0.00004/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),K=1,19)/ - + 0.09445, 0.01453, 0.02330, 0.00001, 0.00001, 0.00000, 0.00001, - + 0.08350, 0.01270, 0.01744, 0.00002, 0.00001, 0.00000, 0.00002, - + 0.07461, 0.01124, 0.01339, 0.00002, 0.00002, 0.00000, 0.00002, - + 0.06725, 0.01004, 0.01051, 0.00003, 0.00002, 0.00000, 0.00002, - + 0.06106, 0.00905, 0.00840, 0.00003, 0.00002, 0.00000, 0.00002, - + 0.05579, 0.00821, 0.00682, 0.00003, 0.00002, 0.00000, 0.00002, - + 0.05124, 0.00749, 0.00562, 0.00002, 0.00002, 0.00000, 0.00002, - + 0.04727, 0.00687, 0.00467, 0.00002, 0.00002, 0.00000, 0.00002, - + 0.04379, 0.00632, 0.00393, 0.00002, 0.00002, 0.00000, 0.00002, - + 0.04071, 0.00585, 0.00334, 0.00002, 0.00002, 0.00001, 0.00002, - + 0.03797, 0.00542, 0.00286, 0.00002, 0.00002, 0.00001, 0.00002, - + 0.03552, 0.00505, 0.00247, 0.00002, 0.00002, 0.00001, 0.00002, - + 0.03332, 0.00472, 0.00215, 0.00002, 0.00002, 0.00000, 0.00002, - + 0.03133, 0.00442, 0.00189, 0.00002, 0.00002, 0.00000, 0.00002, - + 0.02954, 0.00414, 0.00166, 0.00002, 0.00002, 0.00000, 0.00002, - + 0.02790, 0.00390, 0.00148, 0.00001, 0.00001, 0.00000, 0.00002, - + 0.02641, 0.00368, 0.00132, 0.00001, 0.00001, 0.00000, 0.00002, - + 0.02504, 0.00347, 0.00118, 0.00001, 0.00001, 0.00000, 0.00001, - + 0.02378, 0.00329, 0.00106, 0.00001, 0.00001, 0.00000, 0.00001/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),K=1,19)/ - + 0.05591, 0.00743, 0.01171, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.04880, 0.00642, 0.00852, 0.00001, 0.00000, 0.00000, 0.00001, - + 0.04309, 0.00562, 0.00638, 0.00001, 0.00001, 0.00000, 0.00001, - + 0.03843, 0.00496, 0.00490, 0.00001, 0.00001, 0.00000, 0.00001, - + 0.03455, 0.00443, 0.00383, 0.00001, 0.00001, 0.00000, 0.00001, - + 0.03128, 0.00398, 0.00305, 0.00001, 0.00001, 0.00000, 0.00001, - + 0.02847, 0.00360, 0.00247, 0.00001, 0.00001, 0.00000, 0.00001, - + 0.02606, 0.00328, 0.00202, 0.00001, 0.00001, 0.00000, 0.00001, - + 0.02395, 0.00299, 0.00167, 0.00001, 0.00001, 0.00000, 0.00001, - + 0.02211, 0.00275, 0.00140, 0.00001, 0.00001, 0.00000, 0.00001, - + 0.02048, 0.00253, 0.00119, 0.00001, 0.00001, 0.00000, 0.00001, - + 0.01904, 0.00234, 0.00101, 0.00001, 0.00001, 0.00000, 0.00001, - + 0.01775, 0.00218, 0.00087, 0.00000, 0.00001, 0.00000, 0.00001, - + 0.01659, 0.00202, 0.00075, 0.00000, 0.00001, 0.00000, 0.00001, - + 0.01555, 0.00189, 0.00066, 0.00000, 0.00001, 0.00000, 0.00001, - + 0.01461, 0.00177, 0.00058, 0.00000, 0.00001, 0.00000, 0.00001, - + 0.01375, 0.00166, 0.00051, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.01297, 0.00156, 0.00045, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.01226, 0.00147, 0.00041, 0.00000, 0.00000, 0.00000, 0.00000/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),K=1,19)/ - + 0.02931, 0.00330, 0.00519, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.02521, 0.00281, 0.00366, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.02197, 0.00243, 0.00266, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.01936, 0.00212, 0.00199, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.01722, 0.00187, 0.00152, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.01543, 0.00167, 0.00119, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.01391, 0.00149, 0.00094, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.01262, 0.00135, 0.00076, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.01150, 0.00122, 0.00062, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.01053, 0.00111, 0.00051, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00968, 0.00102, 0.00042, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00893, 0.00093, 0.00035, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00827, 0.00086, 0.00030, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00768, 0.00080, 0.00026, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00715, 0.00074, 0.00022, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00667, 0.00069, 0.00019, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00624, 0.00064, 0.00017, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00586, 0.00060, 0.00015, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00551, 0.00056, 0.00013, 0.00000, 0.00000, 0.00000, 0.00000/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),K=1,19)/ - + 0.01294, 0.00120, 0.00192, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.01094, 0.00100, 0.00130, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00940, 0.00085, 0.00092, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00816, 0.00074, 0.00067, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00716, 0.00064, 0.00050, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00634, 0.00057, 0.00038, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00566, 0.00050, 0.00029, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00508, 0.00045, 0.00023, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00458, 0.00040, 0.00018, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00416, 0.00036, 0.00015, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00379, 0.00033, 0.00012, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00346, 0.00030, 0.00010, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00318, 0.00027, 0.00008, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00293, 0.00025, 0.00007, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00271, 0.00023, 0.00006, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00251, 0.00021, 0.00005, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00233, 0.00020, 0.00004, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00217, 0.00018, 0.00004, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00203, 0.00017, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),K=1,19)/ - + 0.00090, 0.00005, 0.00009, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00073, 0.00004, 0.00005, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00060, 0.00003, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00050, 0.00002, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00042, 0.00002, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00036, 0.00002, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00031, 0.00002, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00027, 0.00001, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00024, 0.00001, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00021, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00019, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00016, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00015, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00013, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00010, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000/ - DATA XX/1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-4,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,4,5,0,0,5/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,41 - DO 20 M=1,19 -C READ(27,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M) -C 1=UV 2=DV 3=GLUE 4=(UBAR+DBAR)/2 5=CBAR 7=BBAR 6=SBAR - DO 25 I=1,7 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,15 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=1,6 - DO 30 K=1,19 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,16,K)/ LOG(F(I,16,K)) - 50 FORMAT(7F10.5) - DO 40 I=1,7 - DO 40 M=1,19 - 40 F(I,42,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - IF(M.GT.18) M=18 - DO 60 I=1,7 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.16) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,16,M)+B*F(I,16,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - SEA=G(4) - STR=G(6) - CHM=G(5) - GL =G(3) - BOT=G(7) - RETURN - END diff --git a/PDF/spdf/strh3b.F b/PDF/spdf/strh3b.F deleted file mode 100644 index 31f7df3e6a2..00000000000 --- a/PDF/spdf/strh3b.F +++ /dev/null @@ -1,1015 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:22 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:51 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE STRH3B(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C -C :::::::::::: HARRIMAN MARTIN ROBERTS STIRLING (B) SEA=UBAR=DBAR=2SBAR -C -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(7,NX,19),G(7),XX(NX),N0(7) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),K=1,19)/ - + 0.03058 ,0.00527 ,4.08922 ,0.02979 ,0.01975 ,0.00000 ,0.02488 - +,0.03107 ,0.00557 ,9.48665 ,0.17397 ,0.16338 ,0.00000 ,0.16879 - +,0.03150 ,0.00585 ,16.62898 ,0.36677 ,0.35568 ,0.00000 ,0.36134 - +,0.03188 ,0.00610 ,25.51256 ,0.60807 ,0.59651 ,0.00000 ,0.60241 - +,0.03223 ,0.00634 ,35.76358 ,0.88471 ,0.87272 ,0.01645 ,0.87883 - +,0.03255 ,0.00657 ,47.37782 ,1.19935 ,1.18695 ,0.20922 ,1.19327 - +,0.03285 ,0.00678 ,60.25429 ,1.55066 ,1.53787 ,0.59326 ,1.54438 - +,0.03313 ,0.00699 ,74.28833 ,1.93674 ,1.92356 ,0.98402 ,1.93027 - +,0.03339 ,0.00719 ,89.37677 ,2.35546 ,2.34192 ,1.41194 ,2.34881 - +,0.03364 ,0.00738,105.22414 ,2.79911 ,2.78523 ,1.86325 ,2.79229 - +,0.03388 ,0.00756,121.91693 ,3.27114 ,3.25692 ,2.34258 ,3.26415 - +,0.03410 ,0.00774,139.42232 ,3.77087 ,3.75634 ,2.84921 ,3.76372 - +,0.03431 ,0.00791,157.62695 ,4.29545 ,4.28060 ,3.38028 ,4.28814 - +,0.03452 ,0.00808,176.17290 ,4.83573 ,4.82058 ,3.92673 ,4.82827 - +,0.03472 ,0.00824,195.43625 ,5.40186 ,5.38642 ,4.49870 ,5.39425 - +,0.03491 ,0.00840,215.02991 ,5.98345 ,5.96773 ,5.08587 ,5.97570 - +,0.03509 ,0.00855,235.02951 ,6.58267 ,6.56666 ,5.69039 ,6.57478 - +,0.03527 ,0.00870,255.46199 ,7.20017 ,7.18390 ,6.31296 ,7.19214 - +,0.03544 ,0.00885,276.03955 ,7.82835 ,7.81182 ,6.94601 ,7.82020/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),K=1,19)/ - + 0.03521 ,0.00708 ,3.98786 ,0.03432 ,0.02076 ,0.00000 ,0.02763 - +,0.03580 ,0.00747 ,8.74942 ,0.16685 ,0.15261 ,0.00000 ,0.15982 - +,0.03632 ,0.00784 ,14.80289 ,0.33457 ,0.31970 ,0.00000 ,0.32723 - +,0.03679 ,0.00818 ,22.10773 ,0.53845 ,0.52300 ,0.00000 ,0.53082 - +,0.03722 ,0.00849 ,30.33257 ,0.76736 ,0.75136 ,0.01349 ,0.75946 - +,0.03761 ,0.00879 ,39.46127 ,1.02323 ,1.00672 ,0.16967 ,1.01507 - +,0.03798 ,0.00907 ,49.40271 ,1.30467 ,1.28767 ,0.47810 ,1.29626 - +,0.03832 ,0.00934 ,60.06714 ,1.60987 ,1.59241 ,0.78732 ,1.60123 - +,0.03865 ,0.00960 ,71.37088 ,1.93699 ,1.91908 ,1.12210 ,1.92813 - +,0.03896 ,0.00985 ,83.08710 ,2.27981 ,2.26148 ,1.47133 ,2.27074 - +,0.03925 ,0.01009 ,95.28409 ,2.64097 ,2.62224 ,1.83859 ,2.63170 - +,0.03953 ,0.01032,107.93694 ,3.01990 ,3.00077 ,2.22327 ,3.01043 - +,0.03980 ,0.01054,120.96298 ,3.41430 ,3.39479 ,2.62308 ,3.40464 - +,0.04006 ,0.01076,134.10249 ,3.81719 ,3.79732 ,3.03111 ,3.80735 - +,0.04031 ,0.01097,147.63477 ,4.23633 ,4.21611 ,3.45512 ,4.22632 - +,0.04055 ,0.01117,161.28113 ,4.66386 ,4.64329 ,3.88727 ,4.65368 - +,0.04078 ,0.01137,175.10072 ,5.10144 ,5.08054 ,4.32927 ,5.09109 - +,0.04100 ,0.01156,189.11591 ,5.54961 ,5.52838 ,4.78165 ,5.53910 - +,0.04122 ,0.01175,203.12679 ,6.00272 ,5.98118 ,5.23879 ,5.99205/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),K=1,19)/ - + 0.04040 ,0.00951 ,3.88872 ,0.03965 ,0.02149 ,0.00000 ,0.03063 - +,0.04110 ,0.01003 ,8.06820 ,0.16045 ,0.14142 ,0.00000 ,0.15100 - +,0.04172 ,0.01051 ,13.17443 ,0.30573 ,0.28591 ,0.00000 ,0.29589 - +,0.04229 ,0.01095 ,19.15204 ,0.47739 ,0.45684 ,0.00000 ,0.46719 - +,0.04281 ,0.01137 ,25.71803 ,0.66620 ,0.64497 ,0.01103 ,0.65565 - +,0.04329 ,0.01176 ,32.85580 ,0.87359 ,0.85173 ,0.13715 ,0.86273 - +,0.04374 ,0.01213 ,40.48959 ,1.09830 ,1.07584 ,0.38405 ,1.08714 - +,0.04417 ,0.01248 ,48.54814 ,1.33876 ,1.31573 ,0.62794 ,1.32732 - +,0.04457 ,0.01281 ,56.96704 ,1.59341 ,1.56983 ,0.88897 ,1.58170 - +,0.04495 ,0.01314 ,65.57672 ,1.85735 ,1.83325 ,1.15824 ,1.84538 - +,0.04531 ,0.01345 ,74.43279 ,2.13265 ,2.10805 ,1.43861 ,2.12043 - +,0.04566 ,0.01375 ,83.51952 ,2.41885 ,2.39378 ,1.72960 ,2.40639 - +,0.04600 ,0.01404 ,92.77809 ,2.71420 ,2.68867 ,2.02945 ,2.70152 - +,0.04632 ,0.01432,102.02321 ,3.01339 ,2.98742 ,2.33290 ,3.00048 - +,0.04663 ,0.01459,111.46268 ,3.32240 ,3.29599 ,2.64594 ,3.30928 - +,0.04693 ,0.01485,120.89806 ,3.63529 ,3.60848 ,2.96268 ,3.62197 - +,0.04722 ,0.01511,130.37598 ,3.95341 ,3.92620 ,3.28445 ,3.93989 - +,0.04750 ,0.01536,139.91663 ,4.27719 ,4.24959 ,3.61172 ,4.26348 - +,0.04777 ,0.01560,149.38116 ,4.60249 ,4.57451 ,3.94036 ,4.58859/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),K=1,19)/ - + 0.04369 ,0.01130 ,3.83163 ,0.04322 ,0.02174 ,0.00000 ,0.03252 - +,0.04446 ,0.01191 ,7.69361 ,0.15711 ,0.13462 ,0.00000 ,0.14591 - +,0.04516 ,0.01248 ,12.30392 ,0.29039 ,0.26700 ,0.00000 ,0.27874 - +,0.04579 ,0.01300 ,17.60576 ,0.44534 ,0.42112 ,0.00000 ,0.43328 - +,0.04637 ,0.01348 ,23.34528 ,0.61373 ,0.58874 ,0.00978 ,0.60129 - +,0.04691 ,0.01394 ,29.50838 ,0.79684 ,0.77113 ,0.12088 ,0.78405 - +,0.04742 ,0.01437 ,36.02960 ,0.99348 ,0.96710 ,0.33728 ,0.98035 - +,0.04789 ,0.01478 ,42.84837 ,1.20226 ,1.17523 ,0.54918 ,1.18880 - +,0.04835 ,0.01518 ,49.91127 ,1.42179 ,1.39415 ,0.77443 ,1.40803 - +,0.04878 ,0.01555 ,57.07645 ,1.64784 ,1.61961 ,1.00527 ,1.63379 - +,0.04919 ,0.01591 ,64.39452 ,1.88223 ,1.85345 ,1.24421 ,1.86791 - +,0.04959 ,0.01626 ,71.85414 ,2.12459 ,2.09527 ,1.49085 ,2.11000 - +,0.04997 ,0.01660 ,79.40825 ,2.37343 ,2.34360 ,1.74372 ,2.35858 - +,0.05033 ,0.01693 ,86.90562 ,2.62425 ,2.59391 ,1.99835 ,2.60915 - +,0.05069 ,0.01724 ,94.52112 ,2.88218 ,2.85137 ,2.25989 ,2.86685 - +,0.05103 ,0.01754,102.09319 ,3.14224 ,3.11096 ,2.52338 ,3.12667 - +,0.05136 ,0.01784,109.66273 ,3.40557 ,3.37386 ,2.78999 ,3.38979 - +,0.05168 ,0.01813,117.24805 ,3.67260 ,3.64046 ,3.06013 ,3.65660 - +,0.05199 ,0.01841,124.73839 ,3.93988 ,3.90731 ,3.33039 ,3.92367/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),K=1,19)/ - + 0.04614 ,0.01277 ,3.79148 ,0.04599 ,0.02181 ,0.00000 ,0.03392 - +,0.04697 ,0.01346 ,7.43775 ,0.15495 ,0.12967 ,0.00000 ,0.14234 - +,0.04772 ,0.01409 ,11.71989 ,0.28019 ,0.25391 ,0.00000 ,0.26709 - +,0.04840 ,0.01468 ,16.58229 ,0.42415 ,0.39696 ,0.00000 ,0.41060 - +,0.04903 ,0.01522 ,21.79163 ,0.57929 ,0.55126 ,0.00898 ,0.56532 - +,0.04961 ,0.01573 ,27.33653 ,0.74676 ,0.71795 ,0.11042 ,0.73240 - +,0.05016 ,0.01621 ,33.15884 ,0.92548 ,0.89593 ,0.30732 ,0.91076 - +,0.05068 ,0.01667 ,39.20529 ,1.11416 ,1.08391 ,0.49893 ,1.09909 - +,0.05118 ,0.01711 ,45.42992 ,1.31156 ,1.28064 ,0.70161 ,1.29616 - +,0.05165 ,0.01753 ,51.70831 ,1.51387 ,1.48232 ,0.90835 ,1.49815 - +,0.05210 ,0.01793 ,58.08784 ,1.72276 ,1.69060 ,1.12144 ,1.70674 - +,0.05253 ,0.01832 ,64.56018 ,1.93791 ,1.90517 ,1.34055 ,1.92160 - +,0.05294 ,0.01869 ,71.08572 ,2.15801 ,2.12471 ,1.56437 ,2.14143 - +,0.05335 ,0.01906 ,77.53363 ,2.37907 ,2.34523 ,1.78895 ,2.36221 - +,0.05373 ,0.01941 ,84.05920 ,2.60569 ,2.57135 ,2.01891 ,2.58859 - +,0.05410 ,0.01974 ,90.52246 ,2.83347 ,2.79862 ,2.24985 ,2.81611 - +,0.05447 ,0.02007 ,96.96104 ,3.06346 ,3.02814 ,2.48286 ,3.04587 - +,0.05482 ,0.02039,103.39223 ,3.29607 ,3.26028 ,2.71835 ,3.27824 - +,0.05516 ,0.02070,109.72153 ,3.52824 ,3.49201 ,2.95327 ,3.51020/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),K=1,19)/ - + 0.04811 ,0.01404 ,3.76048 ,0.04828 ,0.02179 ,0.00000 ,0.03505 - +,0.04899 ,0.01480 ,7.24466 ,0.15341 ,0.12574 ,0.00000 ,0.13960 - +,0.04978 ,0.01549 ,11.28492 ,0.27267 ,0.24393 ,0.00000 ,0.25833 - +,0.05050 ,0.01612 ,15.82767 ,0.40857 ,0.37886 ,0.00000 ,0.39375 - +,0.05117 ,0.01672 ,20.65517 ,0.55408 ,0.52346 ,0.00840 ,0.53880 - +,0.05179 ,0.01727 ,25.75856 ,0.71027 ,0.67881 ,0.10288 ,0.69458 - +,0.05238 ,0.01780 ,31.08519 ,0.87612 ,0.84387 ,0.28577 ,0.86004 - +,0.05293 ,0.01830 ,36.58746 ,1.05045 ,1.01745 ,0.46288 ,1.03400 - +,0.05346 ,0.01877 ,42.22459 ,1.23213 ,1.19841 ,0.64951 ,1.21532 - +,0.05396 ,0.01923 ,47.88467 ,1.41763 ,1.38325 ,0.83919 ,1.40049 - +,0.05444 ,0.01967 ,53.61290 ,1.60853 ,1.57350 ,1.03404 ,1.59107 - +,0.05491 ,0.02009 ,59.40306 ,1.80456 ,1.76891 ,1.23379 ,1.78679 - +,0.05535 ,0.02050 ,65.22054 ,2.00453 ,1.96829 ,1.43726 ,1.98647 - +,0.05578 ,0.02089 ,70.94905 ,2.20480 ,2.16799 ,1.64083 ,2.18645 - +,0.05619 ,0.02127 ,76.72957 ,2.40962 ,2.37227 ,1.84879 ,2.39101 - +,0.05659 ,0.02164 ,82.43753 ,2.61498 ,2.57710 ,2.05713 ,2.59611 - +,0.05698 ,0.02199 ,88.10817 ,2.82188 ,2.78349 ,2.26685 ,2.80275 - +,0.05736 ,0.02234 ,93.75775 ,3.03068 ,2.99181 ,2.47836 ,3.01131 - +,0.05772 ,0.02268 ,99.30321 ,3.23867 ,3.19931 ,2.68892 ,3.21906/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),K=1,19)/ - + 0.05459 ,0.01886 ,3.66479 ,0.05636 ,0.02132 ,0.00000 ,0.03884 - +,0.05564 ,0.01986 ,6.67233 ,0.14956 ,0.11303 ,0.00000 ,0.13130 - +,0.05658 ,0.02076 ,10.02563 ,0.25162 ,0.21376 ,0.00000 ,0.23270 - +,0.05745 ,0.02160 ,13.68131 ,0.36487 ,0.32580 ,0.00000 ,0.34535 - +,0.05826 ,0.02237 ,17.46809 ,0.48370 ,0.44351 ,0.00679 ,0.46363 - +,0.05901 ,0.02310 ,21.38564 ,0.60902 ,0.56779 ,0.08228 ,0.58843 - +,0.05973 ,0.02378 ,25.39764 ,0.74004 ,0.69785 ,0.22717 ,0.71898 - +,0.06041 ,0.02443 ,29.47232 ,0.87586 ,0.83276 ,0.36532 ,0.85435 - +,0.06105 ,0.02505 ,33.58351 ,1.01564 ,0.97168 ,0.50918 ,0.99370 - +,0.06167 ,0.02565 ,37.65213 ,1.15672 ,1.11194 ,0.65369 ,1.13438 - +,0.06227 ,0.02621 ,41.71727 ,1.30040 ,1.25484 ,0.80061 ,1.27766 - +,0.06284 ,0.02676 ,45.77841 ,1.44651 ,1.40021 ,0.94978 ,1.42341 - +,0.06339 ,0.02728 ,49.81369 ,1.59422 ,1.54720 ,1.10036 ,1.57076 - +,0.06392 ,0.02778 ,53.74281 ,1.74083 ,1.69314 ,1.24969 ,1.71704 - +,0.06444 ,0.02827 ,57.67126 ,1.88963 ,1.84129 ,1.40106 ,1.86552 - +,0.06494 ,0.02874 ,61.51282 ,2.03768 ,1.98871 ,1.55154 ,2.01325 - +,0.06542 ,0.02920 ,65.29541 ,2.18576 ,2.13619 ,1.70195 ,2.16103 - +,0.06589 ,0.02964 ,69.03334 ,2.33422 ,2.28407 ,1.85262 ,2.30921 - +,0.06635 ,0.03007 ,72.67062 ,2.48110 ,2.43039 ,2.00161 ,2.45581/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),K=1,19)/ - + 0.06165 ,0.02533 ,3.56884 ,0.06627 ,0.02011 ,0.00000 ,0.04318 - +,0.06290 ,0.02664 ,6.13570 ,0.14761 ,0.09961 ,0.00000 ,0.12361 - +,0.06404 ,0.02783 ,8.88707 ,0.23436 ,0.18472 ,0.00000 ,0.20955 - +,0.06510 ,0.02893 ,11.79339 ,0.32814 ,0.27701 ,0.00000 ,0.30260 - +,0.06609 ,0.02993 ,14.72557 ,0.42456 ,0.37206 ,0.00546 ,0.39834 - +,0.06701 ,0.03088 ,17.69170 ,0.52440 ,0.47066 ,0.06533 ,0.49756 - +,0.06789 ,0.03176 ,20.66995 ,0.62714 ,0.57222 ,0.17925 ,0.59971 - +,0.06873 ,0.03261 ,23.64166 ,0.73211 ,0.67610 ,0.28617 ,0.70415 - +,0.06953 ,0.03341 ,26.59232 ,0.83876 ,0.78171 ,0.39613 ,0.81028 - +,0.07031 ,0.03417 ,29.46802 ,0.94510 ,0.88708 ,0.50527 ,0.91614 - +,0.07105 ,0.03490 ,32.30273 ,1.05222 ,0.99327 ,0.61503 ,1.02280 - +,0.07176 ,0.03559 ,35.09972 ,1.16007 ,1.10025 ,0.72537 ,1.13022 - +,0.07245 ,0.03627 ,37.84637 ,1.26807 ,1.20741 ,0.83572 ,1.23780 - +,0.07312 ,0.03691 ,40.48859 ,1.37427 ,1.31281 ,0.94413 ,1.34361 - +,0.07376 ,0.03753 ,43.10493 ,1.48121 ,1.41899 ,1.05316 ,1.45017 - +,0.07439 ,0.03813 ,45.63638 ,1.58673 ,1.52378 ,1.16066 ,1.55532 - +,0.07500 ,0.03871 ,48.10538 ,1.69149 ,1.62784 ,1.26731 ,1.65973 - +,0.07559 ,0.03927 ,50.52383 ,1.79579 ,1.73147 ,1.37342 ,1.76370 - +,0.07616 ,0.03981 ,52.85509 ,1.89824 ,1.83327 ,1.47758 ,1.86583/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),K=1,19)/ - + 0.06607 ,0.03011 ,3.51170 ,0.07319 ,0.01905 ,0.00000 ,0.04612 - +,0.06748 ,0.03164 ,5.83451 ,0.14773 ,0.09153 ,0.00000 ,0.11964 - +,0.06878 ,0.03303 ,8.26671 ,0.22631 ,0.16827 ,0.00000 ,0.19731 - +,0.06998 ,0.03431 ,10.78742 ,0.30996 ,0.25025 ,0.00000 ,0.28013 - +,0.07110 ,0.03548 ,13.29012 ,0.39491 ,0.33369 ,0.00478 ,0.36433 - +,0.07216 ,0.03658 ,15.78728 ,0.48191 ,0.41931 ,0.05680 ,0.45065 - +,0.07316 ,0.03761 ,18.26443 ,0.57056 ,0.50667 ,0.15527 ,0.53866 - +,0.07412 ,0.03858 ,20.70937 ,0.66036 ,0.59526 ,0.24680 ,0.62786 - +,0.07504 ,0.03951 ,23.11299 ,0.75087 ,0.68463 ,0.34022 ,0.71781 - +,0.07593 ,0.04039 ,25.43332 ,0.84045 ,0.77314 ,0.43227 ,0.80686 - +,0.07678 ,0.04122 ,27.70137 ,0.93008 ,0.86177 ,0.52424 ,0.89599 - +,0.07760 ,0.04203 ,29.92200 ,1.01977 ,0.95050 ,0.61613 ,0.98520 - +,0.07839 ,0.04280 ,32.08669 ,1.10907 ,1.03889 ,0.70750 ,1.07405 - +,0.07916 ,0.04354 ,34.15303 ,1.19637 ,1.12533 ,0.79675 ,1.16092 - +,0.07990 ,0.04425 ,36.18681 ,1.28385 ,1.21199 ,0.88608 ,1.24800 - +,0.08062 ,0.04494 ,38.14140 ,1.36974 ,1.29708 ,0.97372 ,1.33349 - +,0.08133 ,0.04560 ,40.03619 ,1.45461 ,1.38120 ,1.06027 ,1.41799 - +,0.08201 ,0.04624 ,41.88197 ,1.53876 ,1.46462 ,1.14600 ,1.50177 - +,0.08267 ,0.04686 ,43.65033 ,1.62104 ,1.54621 ,1.22981 ,1.58371/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),K=1,19)/ - + 0.06937 ,0.03403 ,3.47019 ,0.07875 ,0.01819 ,0.00000 ,0.04847 - +,0.07092 ,0.03575 ,5.62475 ,0.14860 ,0.08580 ,0.00000 ,0.11721 - +,0.07235 ,0.03730 ,7.84285 ,0.22169 ,0.15691 ,0.00000 ,0.18932 - +,0.07368 ,0.03872 ,10.10991 ,0.29861 ,0.23205 ,0.00000 ,0.26536 - +,0.07492 ,0.04002 ,12.33434 ,0.37604 ,0.30786 ,0.00434 ,0.34199 - +,0.07610 ,0.04124 ,14.53153 ,0.45471 ,0.38505 ,0.05127 ,0.41993 - +,0.07721 ,0.04238 ,16.69162 ,0.53429 ,0.46326 ,0.13977 ,0.49883 - +,0.07828 ,0.04346 ,18.80637 ,0.61439 ,0.54207 ,0.22145 ,0.57829 - +,0.07930 ,0.04448 ,20.87015 ,0.69464 ,0.62112 ,0.30436 ,0.65795 - +,0.08028 ,0.04545 ,22.84810 ,0.77364 ,0.69900 ,0.38562 ,0.73639 - +,0.08123 ,0.04637 ,24.76938 ,0.85230 ,0.77660 ,0.46642 ,0.81452 - +,0.08214 ,0.04726 ,26.63959 ,0.93065 ,0.85394 ,0.54678 ,0.89237 - +,0.08302 ,0.04811 ,28.45264 ,1.00833 ,0.93067 ,0.62634 ,0.96958 - +,0.08388 ,0.04892 ,30.17313 ,1.08394 ,1.00538 ,0.70374 ,1.04474 - +,0.08470 ,0.04970 ,31.85884 ,1.15944 ,1.08001 ,0.78093 ,1.11981 - +,0.08551 ,0.05046 ,33.47061 ,1.23328 ,1.15303 ,0.85638 ,1.19324 - +,0.08629 ,0.05118 ,35.02592 ,1.30600 ,1.22497 ,0.93064 ,1.26557 - +,0.08704 ,0.05188 ,36.53461 ,1.37787 ,1.29608 ,1.00397 ,1.33707 - +,0.08778 ,0.05256 ,37.97313 ,1.44791 ,1.36540 ,1.07541 ,1.40675/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),K=1,19)/ - + 0.07206 ,0.03743 ,3.43673 ,0.08374 ,0.01766 ,0.00000 ,0.05070 - +,0.07376 ,0.03930 ,5.46072 ,0.15029 ,0.08186 ,0.00000 ,0.11609 - +,0.07534 ,0.04098 ,7.51555 ,0.21920 ,0.14869 ,0.00000 ,0.18397 - +,0.07680 ,0.04251 ,9.59158 ,0.29103 ,0.21866 ,0.00000 ,0.25488 - +,0.07817 ,0.04392 ,11.60947 ,0.36281 ,0.28876 ,0.00401 ,0.32583 - +,0.07946 ,0.04524 ,13.58551 ,0.43527 ,0.35967 ,0.04715 ,0.39752 - +,0.08069 ,0.04647 ,15.51396 ,0.50813 ,0.43111 ,0.12826 ,0.46968 - +,0.08186 ,0.04763 ,17.38969 ,0.58108 ,0.50274 ,0.20267 ,0.54197 - +,0.08299 ,0.04873 ,19.20937 ,0.65383 ,0.57425 ,0.27788 ,0.61410 - +,0.08407 ,0.04978 ,20.94220 ,0.72512 ,0.64438 ,0.35125 ,0.68482 - +,0.08511 ,0.05077 ,22.61665 ,0.79581 ,0.71398 ,0.42393 ,0.75497 - +,0.08612 ,0.05172 ,24.23828 ,0.86596 ,0.78311 ,0.49594 ,0.82461 - +,0.08709 ,0.05263 ,25.80212 ,0.93527 ,0.85144 ,0.56700 ,0.89343 - +,0.08803 ,0.05350 ,27.27946 ,1.00250 ,0.91775 ,0.63589 ,0.96021 - +,0.08894 ,0.05434 ,28.72205 ,1.06942 ,0.98379 ,0.70439 ,1.02669 - +,0.08982 ,0.05514 ,30.09645 ,1.13466 ,1.04820 ,0.77113 ,1.09152 - +,0.09068 ,0.05592 ,31.41641 ,1.19873 ,1.11147 ,0.83663 ,1.15519 - +,0.09151 ,0.05667 ,32.69127 ,1.26188 ,1.17386 ,0.90114 ,1.21796 - +,0.09232 ,0.05739 ,33.90266 ,1.32328 ,1.23453 ,0.96384 ,1.27900/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),K=1,19)/ - + 0.08136 ,0.05032 ,3.32706 ,0.10185 ,0.01561 ,0.00000 ,0.05874 - +,0.08371 ,0.05272 ,4.96203 ,0.15814 ,0.06924 ,0.00000 ,0.11371 - +,0.08588 ,0.05486 ,6.54963 ,0.21481 ,0.12361 ,0.00000 ,0.16924 - +,0.08789 ,0.05682 ,8.09529 ,0.27217 ,0.17891 ,0.00000 ,0.22558 - +,0.08978 ,0.05860 ,9.55042 ,0.32818 ,0.23310 ,0.00310 ,0.28069 - +,0.09156 ,0.06025 ,10.93655 ,0.38353 ,0.28679 ,0.03588 ,0.33522 - +,0.09325 ,0.06179 ,12.25621 ,0.43814 ,0.33988 ,0.09689 ,0.38907 - +,0.09487 ,0.06324 ,13.51123 ,0.49188 ,0.39222 ,0.15184 ,0.44212 - +,0.09641 ,0.06461 ,14.70377 ,0.54463 ,0.44369 ,0.20655 ,0.49424 - +,0.09790 ,0.06590 ,15.81629 ,0.59558 ,0.49345 ,0.25918 ,0.54459 - +,0.09933 ,0.06712 ,16.87210 ,0.64544 ,0.54219 ,0.31063 ,0.59389 - +,0.10070 ,0.06829 ,17.87775 ,0.69431 ,0.59001 ,0.36101 ,0.64224 - +,0.10202 ,0.06940 ,18.83202 ,0.74202 ,0.63674 ,0.41016 ,0.68947 - +,0.10331 ,0.07046 ,19.71770 ,0.78778 ,0.68158 ,0.45728 ,0.73477 - +,0.10455 ,0.07147 ,20.57143 ,0.83288 ,0.72581 ,0.50367 ,0.77944 - +,0.10575 ,0.07245 ,21.37230 ,0.87640 ,0.76851 ,0.54843 ,0.82255 - +,0.10691 ,0.07338 ,22.13072 ,0.91873 ,0.81007 ,0.59195 ,0.86449 - +,0.10804 ,0.07428 ,22.85400 ,0.96009 ,0.85069 ,0.63445 ,0.90549 - +,0.10913 ,0.07515 ,23.53099 ,0.99994 ,0.88984 ,0.67539 ,0.94499/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),K=1,19)/ - + 0.09351 ,0.06771 ,3.20171 ,0.12487 ,0.01347 ,0.00000 ,0.06917 - +,0.09698 ,0.07073 ,4.46716 ,0.17149 ,0.05741 ,0.00001 ,0.11447 - +,0.10016 ,0.07342 ,5.63738 ,0.21686 ,0.10050 ,0.00001 ,0.15871 - +,0.10311 ,0.07583 ,6.73078 ,0.26131 ,0.14296 ,0.00001 ,0.20217 - +,0.10585 ,0.07803 ,7.72335 ,0.30365 ,0.18357 ,0.00234 ,0.24365 - +,0.10842 ,0.08004 ,8.63923 ,0.34450 ,0.22288 ,0.02651 ,0.28375 - +,0.11086 ,0.08191 ,9.48631 ,0.38397 ,0.26096 ,0.07099 ,0.32253 - +,0.11317 ,0.08366 ,10.27026 ,0.42207 ,0.29780 ,0.11021 ,0.36000 - +,0.11537 ,0.08530 ,10.99608 ,0.45882 ,0.33343 ,0.14866 ,0.39620 - +,0.11747 ,0.08684 ,11.65758 ,0.49375 ,0.36732 ,0.18508 ,0.43060 - +,0.11948 ,0.08828 ,12.27108 ,0.52739 ,0.40001 ,0.22014 ,0.46377 - +,0.12142 ,0.08965 ,12.84349 ,0.55990 ,0.43164 ,0.25401 ,0.49585 - +,0.12328 ,0.09095 ,13.37608 ,0.59123 ,0.46217 ,0.28665 ,0.52678 - +,0.12506 ,0.09219 ,13.85854 ,0.62088 ,0.49107 ,0.31756 ,0.55607 - +,0.12677 ,0.09337 ,14.31589 ,0.64978 ,0.51928 ,0.34765 ,0.58462 - +,0.12842 ,0.09449 ,14.73570 ,0.67733 ,0.54619 ,0.37636 ,0.61185 - +,0.13002 ,0.09557 ,15.12574 ,0.70386 ,0.57212 ,0.40399 ,0.63808 - +,0.13157 ,0.09659 ,15.49132 ,0.72952 ,0.59723 ,0.43073 ,0.66346 - +,0.13307 ,0.09758 ,15.82613 ,0.75395 ,0.62114 ,0.45620 ,0.68763/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),K=1,19)/ - + 0.10326 ,0.08061 ,3.11612 ,0.14043 ,0.01213 ,0.00000 ,0.07628 - +,0.10769 ,0.08403 ,4.17517 ,0.18140 ,0.05065 ,0.00000 ,0.11604 - +,0.11174 ,0.08703 ,5.12491 ,0.22044 ,0.08765 ,0.00001 ,0.15407 - +,0.11546 ,0.08972 ,5.98819 ,0.25792 ,0.12339 ,0.00000 ,0.19069 - +,0.11891 ,0.09215 ,6.75237 ,0.29305 ,0.15705 ,0.00195 ,0.22509 - +,0.12212 ,0.09437 ,7.44348 ,0.32645 ,0.18915 ,0.02182 ,0.25785 - +,0.12513 ,0.09642 ,8.07010 ,0.35827 ,0.21984 ,0.05809 ,0.28911 - +,0.12799 ,0.09832 ,8.63920 ,0.38861 ,0.24917 ,0.08968 ,0.31894 - +,0.13072 ,0.10009 ,9.15746 ,0.41754 ,0.27721 ,0.12031 ,0.34744 - +,0.13328 ,0.10175 ,9.61910 ,0.44472 ,0.30360 ,0.14902 ,0.37423 - +,0.13576 ,0.10329 ,10.04073 ,0.47067 ,0.32884 ,0.17645 ,0.39982 - +,0.13811 ,0.10475 ,10.42849 ,0.49551 ,0.35303 ,0.20271 ,0.42434 - +,0.14035 ,0.10614 ,10.78409 ,0.51923 ,0.37617 ,0.22778 ,0.44777 - +,0.14249 ,0.10745 ,11.09968 ,0.54147 ,0.39790 ,0.25134 ,0.46976 - +,0.14456 ,0.10870 ,11.39471 ,0.56299 ,0.41894 ,0.27412 ,0.49104 - +,0.14654 ,0.10988 ,11.65968 ,0.58335 ,0.43888 ,0.29570 ,0.51119 - +,0.14845 ,0.11100 ,11.90307 ,0.60279 ,0.45793 ,0.31632 ,0.53044 - +,0.15029 ,0.11208 ,12.12888 ,0.62144 ,0.47623 ,0.33612 ,0.54892 - +,0.15207 ,0.11310 ,12.33107 ,0.63909 ,0.49356 ,0.35488 ,0.56641/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),K=1,19)/ - + 0.11226 ,0.09128 ,3.04712 ,0.15215 ,0.01118 ,0.00000 ,0.08166 - +,0.11756 ,0.09496 ,3.96439 ,0.18909 ,0.04601 ,0.00000 ,0.11756 - +,0.12236 ,0.09818 ,4.76750 ,0.22371 ,0.07891 ,0.00001 ,0.15134 - +,0.12676 ,0.10104 ,5.48237 ,0.25644 ,0.11023 ,0.00000 ,0.18337 - +,0.13081 ,0.10362 ,6.10293 ,0.28675 ,0.13936 ,0.00170 ,0.21310 - +,0.13456 ,0.10596 ,6.65449 ,0.31523 ,0.16685 ,0.01880 ,0.24109 - +,0.13807 ,0.10811 ,7.14640 ,0.34208 ,0.19285 ,0.04986 ,0.26751 - +,0.14138 ,0.11010 ,7.58617 ,0.36743 ,0.21747 ,0.07665 ,0.29250 - +,0.14452 ,0.11193 ,7.98072 ,0.39139 ,0.24081 ,0.10240 ,0.31616 - +,0.14747 ,0.11365 ,8.32616 ,0.41371 ,0.26260 ,0.12638 ,0.33822 - +,0.15030 ,0.11524 ,8.63717 ,0.43485 ,0.28328 ,0.14911 ,0.35913 - +,0.15299 ,0.11674 ,8.91931 ,0.45493 ,0.30296 ,0.17073 ,0.37902 - +,0.15553 ,0.11816 ,9.17439 ,0.47398 ,0.32166 ,0.19124 ,0.39789 - +,0.15796 ,0.11949 ,9.39650 ,0.49171 ,0.33911 ,0.21040 ,0.41547 - +,0.16029 ,0.12076 ,9.60171 ,0.50876 ,0.35591 ,0.22882 ,0.43240 - +,0.16251 ,0.12196 ,9.78256 ,0.52478 ,0.37172 ,0.24617 ,0.44832 - +,0.16466 ,0.12309 ,9.94610 ,0.53997 ,0.38674 ,0.26266 ,0.46343 - +,0.16673 ,0.12417 ,10.09570 ,0.55448 ,0.40110 ,0.27842 ,0.47787 - +,0.16871 ,0.12519 ,10.22665 ,0.56812 ,0.41462 ,0.29327 ,0.49145/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),K=1,19)/ - + 0.12090 ,0.10055 ,2.98762 ,0.16139 ,0.01042 ,0.00001 ,0.08591 - +,0.12699 ,0.10441 ,3.79791 ,0.19514 ,0.04245 ,0.00001 ,0.11881 - +,0.13248 ,0.10776 ,4.49330 ,0.22634 ,0.07231 ,0.00001 ,0.14935 - +,0.13745 ,0.11076 ,5.10179 ,0.25548 ,0.10038 ,0.00002 ,0.17796 - +,0.14202 ,0.11341 ,5.62094 ,0.28219 ,0.12625 ,0.00154 ,0.20426 - +,0.14623 ,0.11582 ,6.07552 ,0.30703 ,0.15041 ,0.01665 ,0.22877 - +,0.15016 ,0.11803 ,6.47398 ,0.33027 ,0.17309 ,0.04400 ,0.25173 - +,0.15386 ,0.12005 ,6.82576 ,0.35202 ,0.19440 ,0.06740 ,0.27327 - +,0.15732 ,0.12194 ,7.13773 ,0.37242 ,0.21444 ,0.08972 ,0.29348 - +,0.16061 ,0.12366 ,7.40581 ,0.39131 ,0.23305 ,0.11041 ,0.31224 - +,0.16371 ,0.12527 ,7.64383 ,0.40904 ,0.25058 ,0.12989 ,0.32988 - +,0.16665 ,0.12678 ,7.85698 ,0.42580 ,0.26718 ,0.14832 ,0.34656 - +,0.16944 ,0.12820 ,8.04713 ,0.44160 ,0.28288 ,0.16574 ,0.36231 - +,0.17211 ,0.12952 ,8.20920 ,0.45621 ,0.29742 ,0.18189 ,0.37688 - +,0.17465 ,0.13077 ,8.35750 ,0.47018 ,0.31135 ,0.19736 ,0.39083 - +,0.17705 ,0.13197 ,8.48647 ,0.48323 ,0.32440 ,0.21187 ,0.40389 - +,0.17937 ,0.13309 ,8.60006 ,0.49554 ,0.33674 ,0.22560 ,0.41621 - +,0.18161 ,0.13414 ,8.70144 ,0.50725 ,0.34849 ,0.23866 ,0.42794 - +,0.18375 ,0.13513 ,8.78857 ,0.51816 ,0.35948 ,0.25091 ,0.43889/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),K=1,19)/ - + 0.16272 ,0.13592 ,2.75365 ,0.18772 ,0.00802 ,0.00000 ,0.09786 - +,0.17169 ,0.14011 ,3.25087 ,0.21098 ,0.03165 ,0.00001 ,0.12132 - +,0.17957 ,0.14368 ,3.64634 ,0.23147 ,0.05270 ,0.00002 ,0.14210 - +,0.18660 ,0.14677 ,3.96819 ,0.24979 ,0.07169 ,0.00002 ,0.16076 - +,0.19290 ,0.14944 ,4.22544 ,0.26595 ,0.08859 ,0.00102 ,0.17729 - +,0.19861 ,0.15181 ,4.43481 ,0.28045 ,0.10388 ,0.01082 ,0.19219 - +,0.20387 ,0.15392 ,4.60711 ,0.29356 ,0.11782 ,0.02828 ,0.20571 - +,0.20869 ,0.15584 ,4.74841 ,0.30545 ,0.13055 ,0.04282 ,0.21803 - +,0.21322 ,0.15756 ,4.86409 ,0.31626 ,0.14224 ,0.05639 ,0.22927 - +,0.21738 ,0.15911 ,4.95573 ,0.32596 ,0.15281 ,0.06868 ,0.23942 - +,0.22124 ,0.16054 ,5.02992 ,0.33484 ,0.16256 ,0.08004 ,0.24873 - +,0.22487 ,0.16186 ,5.09020 ,0.34300 ,0.17160 ,0.09058 ,0.25733 - +,0.22830 ,0.16308 ,5.13809 ,0.35048 ,0.17994 ,0.10033 ,0.26525 - +,0.23149 ,0.16416 ,5.17207 ,0.35718 ,0.18752 ,0.10923 ,0.27239 - +,0.23452 ,0.16518 ,5.19977 ,0.36346 ,0.19466 ,0.11762 ,0.27911 - +,0.23736 ,0.16613 ,5.21821 ,0.36916 ,0.20122 ,0.12536 ,0.28524 - +,0.24005 ,0.16701 ,5.23022 ,0.37440 ,0.20729 ,0.13255 ,0.29089 - +,0.24260 ,0.16782 ,5.23743 ,0.37925 ,0.21296 ,0.13929 ,0.29615 - +,0.24501 ,0.16856 ,5.23768 ,0.38364 ,0.21817 ,0.14552 ,0.30095/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),K=1,19)/ - + 0.24385 ,0.18324 ,2.40488 ,0.19841 ,0.00554 ,-0.00007 ,0.10195 - +,0.25524 ,0.18672 ,2.62889 ,0.21038 ,0.02135 ,-0.00010 ,0.11584 - +,0.26489 ,0.18946 ,2.78332 ,0.22016 ,0.03468 ,-0.00009 ,0.12739 - +,0.27318 ,0.19171 ,2.89196 ,0.22832 ,0.04613 ,-0.00011 ,0.13719 - +,0.28039 ,0.19353 ,2.96283 ,0.23499 ,0.05587 ,0.00048 ,0.14541 - +,0.28675 ,0.19498 ,3.00880 ,0.24057 ,0.06436 ,0.00615 ,0.15245 - +,0.29238 ,0.19625 ,3.03626 ,0.24528 ,0.07181 ,0.01609 ,0.15853 - +,0.29750 ,0.19726 ,3.04954 ,0.24926 ,0.07839 ,0.02412 ,0.16380 - +,0.30198 ,0.19817 ,3.05237 ,0.25262 ,0.08421 ,0.03136 ,0.16841 - +,0.30611 ,0.19883 ,3.04464 ,0.25537 ,0.08931 ,0.03778 ,0.17231 - +,0.30984 ,0.19941 ,3.03094 ,0.25768 ,0.09384 ,0.04355 ,0.17575 - +,0.31321 ,0.19991 ,3.01300 ,0.25964 ,0.09792 ,0.04878 ,0.17878 - +,0.31625 ,0.20034 ,2.99145 ,0.26127 ,0.10163 ,0.05353 ,0.18143 - +,0.31907 ,0.20063 ,2.96561 ,0.26251 ,0.10482 ,0.05770 ,0.18366 - +,0.32170 ,0.20086 ,2.93888 ,0.26358 ,0.10777 ,0.06157 ,0.18567 - +,0.32407 ,0.20104 ,2.90967 ,0.26440 ,0.11042 ,0.06511 ,0.18740 - +,0.32623 ,0.20116 ,2.87941 ,0.26502 ,0.11278 ,0.06830 ,0.18889 - +,0.32824 ,0.20125 ,2.84877 ,0.26550 ,0.11492 ,0.07121 ,0.19021 - +,0.33007 ,0.20128 ,2.81695 ,0.26577 ,0.11681 ,0.07384 ,0.19128/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),K=1,19)/ - + 0.31918 ,0.21571 ,2.12278 ,0.18810 ,0.00425 ,0.00000 ,0.09618 - +,0.33020 ,0.21764 ,2.21533 ,0.19370 ,0.01583 ,0.00000 ,0.10476 - +,0.33916 ,0.21889 ,2.26265 ,0.19772 ,0.02526 ,-0.00002 ,0.11149 - +,0.34646 ,0.21982 ,2.28235 ,0.20070 ,0.03306 ,0.00001 ,0.11689 - +,0.35271 ,0.22023 ,2.28125 ,0.20274 ,0.03958 ,0.00039 ,0.12117 - +,0.35793 ,0.22047 ,2.26756 ,0.20417 ,0.04505 ,0.00420 ,0.12463 - +,0.36234 ,0.22053 ,2.24534 ,0.20509 ,0.04970 ,0.01076 ,0.12741 - +,0.36611 ,0.22046 ,2.21718 ,0.20560 ,0.05369 ,0.01593 ,0.12966 - +,0.36954 ,0.22020 ,2.18516 ,0.20583 ,0.05714 ,0.02059 ,0.13152 - +,0.37237 ,0.21983 ,2.14954 ,0.20571 ,0.06007 ,0.02453 ,0.13293 - +,0.37481 ,0.21939 ,2.11250 ,0.20541 ,0.06261 ,0.02807 ,0.13404 - +,0.37692 ,0.21893 ,2.07518 ,0.20495 ,0.06486 ,0.03123 ,0.13493 - +,0.37872 ,0.21845 ,2.03793 ,0.20433 ,0.06685 ,0.03402 ,0.13563 - +,0.38028 ,0.21787 ,1.99970 ,0.20356 ,0.06849 ,0.03642 ,0.13605 - +,0.38167 ,0.21726 ,1.96268 ,0.20274 ,0.06996 ,0.03862 ,0.13638 - +,0.38283 ,0.21658 ,1.92592 ,0.20184 ,0.07126 ,0.04059 ,0.13657 - +,0.38382 ,0.21590 ,1.88989 ,0.20088 ,0.07237 ,0.04237 ,0.13664 - +,0.38468 ,0.21522 ,1.85487 ,0.19988 ,0.07333 ,0.04398 ,0.13661 - +,0.38536 ,0.21449 ,1.82032 ,0.19879 ,0.07413 ,0.04538 ,0.13649/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),K=1,19)/ - + 0.38617 ,0.23920 ,1.87850 ,0.16998 ,0.00336 ,0.00005 ,0.08671 - +,0.39508 ,0.23914 ,1.89558 ,0.17158 ,0.01226 ,0.00010 ,0.09193 - +,0.40179 ,0.23864 ,1.88476 ,0.17225 ,0.01921 ,0.00005 ,0.09576 - +,0.40701 ,0.23796 ,1.85946 ,0.17230 ,0.02488 ,0.00007 ,0.09862 - +,0.41102 ,0.23697 ,1.82378 ,0.17184 ,0.02937 ,0.00036 ,0.10063 - +,0.41415 ,0.23582 ,1.78318 ,0.17107 ,0.03314 ,0.00307 ,0.10213 - +,0.41667 ,0.23455 ,1.74005 ,0.17004 ,0.03624 ,0.00766 ,0.10319 - +,0.41855 ,0.23326 ,1.69588 ,0.16887 ,0.03884 ,0.01129 ,0.10389 - +,0.41995 ,0.23196 ,1.65157 ,0.16754 ,0.04101 ,0.01443 ,0.10433 - +,0.42097 ,0.23051 ,1.60718 ,0.16609 ,0.04283 ,0.01709 ,0.10451 - +,0.42166 ,0.22908 ,1.56390 ,0.16458 ,0.04439 ,0.01940 ,0.10452 - +,0.42212 ,0.22767 ,1.52219 ,0.16305 ,0.04571 ,0.02145 ,0.10441 - +,0.42237 ,0.22626 ,1.48206 ,0.16151 ,0.04681 ,0.02330 ,0.10421 - +,0.42227 ,0.22485 ,1.44281 ,0.15988 ,0.04774 ,0.02482 ,0.10386 - +,0.42209 ,0.22345 ,1.40558 ,0.15829 ,0.04854 ,0.02619 ,0.10348 - +,0.42181 ,0.22204 ,1.36957 ,0.15669 ,0.04919 ,0.02738 ,0.10300 - +,0.42138 ,0.22064 ,1.33506 ,0.15511 ,0.04974 ,0.02843 ,0.10249 - +,0.42085 ,0.21924 ,1.30214 ,0.15357 ,0.05020 ,0.02937 ,0.10194 - +,0.42019 ,0.21787 ,1.27042 ,0.15201 ,0.05056 ,0.03018 ,0.10135/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),K=1,19)/ - + 0.44386 ,0.25577 ,1.66263 ,0.14925 ,0.00263 ,0.00009 ,0.07599 - +,0.44940 ,0.25367 ,1.63313 ,0.14844 ,0.00957 ,0.00009 ,0.07901 - +,0.45300 ,0.25141 ,1.58907 ,0.14712 ,0.01484 ,0.00006 ,0.08102 - +,0.45541 ,0.24896 ,1.53953 ,0.14551 ,0.01899 ,0.00005 ,0.08229 - +,0.45662 ,0.24653 ,1.48670 ,0.14366 ,0.02234 ,0.00026 ,0.08305 - +,0.45725 ,0.24404 ,1.43396 ,0.14173 ,0.02496 ,0.00227 ,0.08338 - +,0.45733 ,0.24154 ,1.38248 ,0.13976 ,0.02712 ,0.00565 ,0.08346 - +,0.45685 ,0.23917 ,1.33270 ,0.13772 ,0.02890 ,0.00818 ,0.08332 - +,0.45616 ,0.23670 ,1.28515 ,0.13570 ,0.03037 ,0.01047 ,0.08303 - +,0.45514 ,0.23429 ,1.23938 ,0.13367 ,0.03153 ,0.01229 ,0.08260 - +,0.45393 ,0.23194 ,1.19606 ,0.13163 ,0.03249 ,0.01388 ,0.08208 - +,0.45253 ,0.22968 ,1.15524 ,0.12965 ,0.03327 ,0.01527 ,0.08151 - +,0.45090 ,0.22753 ,1.11674 ,0.12775 ,0.03389 ,0.01646 ,0.08089 - +,0.44913 ,0.22536 ,1.07996 ,0.12588 ,0.03439 ,0.01746 ,0.08018 - +,0.44736 ,0.22326 ,1.04554 ,0.12407 ,0.03482 ,0.01837 ,0.07947 - +,0.44553 ,0.22117 ,1.01285 ,0.12227 ,0.03515 ,0.01919 ,0.07875 - +,0.44366 ,0.21912 ,0.98195 ,0.12051 ,0.03541 ,0.01985 ,0.07802 - +,0.44178 ,0.21711 ,0.95280 ,0.11880 ,0.03561 ,0.02041 ,0.07728 - +,0.43980 ,0.21517 ,0.92508 ,0.11714 ,0.03574 ,0.02091 ,0.07651/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),K=1,19)/ - + 0.50239 ,0.26849 ,1.42545 ,0.12335 ,0.00203 ,0.00010 ,0.06272 - +,0.50287 ,0.26370 ,1.36207 ,0.12089 ,0.00720 ,0.00009 ,0.06408 - +,0.50187 ,0.25913 ,1.29594 ,0.11830 ,0.01103 ,0.00008 ,0.06470 - +,0.50011 ,0.25475 ,1.23169 ,0.11567 ,0.01400 ,0.00008 ,0.06486 - +,0.49757 ,0.25052 ,1.17010 ,0.11312 ,0.01623 ,0.00023 ,0.06472 - +,0.49469 ,0.24651 ,1.11249 ,0.11055 ,0.01800 ,0.00160 ,0.06433 - +,0.49146 ,0.24267 ,1.05878 ,0.10809 ,0.01940 ,0.00397 ,0.06382 - +,0.48815 ,0.23889 ,1.00887 ,0.10573 ,0.02052 ,0.00578 ,0.06316 - +,0.48462 ,0.23534 ,0.96264 ,0.10344 ,0.02137 ,0.00726 ,0.06247 - +,0.48091 ,0.23189 ,0.91942 ,0.10120 ,0.02207 ,0.00849 ,0.06173 - +,0.47725 ,0.22855 ,0.87942 ,0.09905 ,0.02265 ,0.00950 ,0.06093 - +,0.47357 ,0.22536 ,0.84242 ,0.09701 ,0.02309 ,0.01038 ,0.06011 - +,0.46986 ,0.22232 ,0.80807 ,0.09509 ,0.02340 ,0.01118 ,0.05928 - +,0.46606 ,0.21936 ,0.77593 ,0.09317 ,0.02366 ,0.01181 ,0.05847 - +,0.46236 ,0.21654 ,0.74620 ,0.09136 ,0.02385 ,0.01236 ,0.05767 - +,0.45870 ,0.21382 ,0.71836 ,0.08963 ,0.02393 ,0.01282 ,0.05686 - +,0.45507 ,0.21119 ,0.69241 ,0.08795 ,0.02401 ,0.01320 ,0.05607 - +,0.45150 ,0.20866 ,0.66821 ,0.08633 ,0.02406 ,0.01351 ,0.05531 - +,0.44797 ,0.20617 ,0.64538 ,0.08478 ,0.02407 ,0.01380 ,0.05454/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),K=1,19)/ - + 0.54606 ,0.27369 ,1.21914 ,0.09956 ,0.00165 ,0.00016 ,0.05068 - +,0.54085 ,0.26659 ,1.13805 ,0.09646 ,0.00547 ,0.00011 ,0.05103 - +,0.53502 ,0.25993 ,1.06207 ,0.09340 ,0.00831 ,0.00017 ,0.05090 - +,0.52881 ,0.25381 ,0.99302 ,0.09055 ,0.01037 ,0.00019 ,0.05048 - +,0.52247 ,0.24810 ,0.93017 ,0.08773 ,0.01197 ,0.00025 ,0.04994 - +,0.51610 ,0.24271 ,0.87338 ,0.08515 ,0.01313 ,0.00122 ,0.04922 - +,0.50984 ,0.23761 ,0.82194 ,0.08266 ,0.01409 ,0.00289 ,0.04842 - +,0.50355 ,0.23282 ,0.77534 ,0.08032 ,0.01481 ,0.00415 ,0.04762 - +,0.49739 ,0.22827 ,0.73298 ,0.07808 ,0.01535 ,0.00516 ,0.04683 - +,0.49128 ,0.22399 ,0.69419 ,0.07596 ,0.01576 ,0.00594 ,0.04598 - +,0.48530 ,0.21989 ,0.65887 ,0.07398 ,0.01608 ,0.00661 ,0.04512 - +,0.47950 ,0.21599 ,0.62666 ,0.07212 ,0.01631 ,0.00722 ,0.04427 - +,0.47387 ,0.21230 ,0.59715 ,0.07035 ,0.01647 ,0.00779 ,0.04342 - +,0.46835 ,0.20871 ,0.56986 ,0.06863 ,0.01655 ,0.00810 ,0.04267 - +,0.46301 ,0.20534 ,0.54484 ,0.06700 ,0.01661 ,0.00840 ,0.04193 - +,0.45769 ,0.20217 ,0.52167 ,0.06545 ,0.01667 ,0.00877 ,0.04116 - +,0.45261 ,0.19904 ,0.50019 ,0.06400 ,0.01666 ,0.00903 ,0.04041 - +,0.44775 ,0.19597 ,0.48027 ,0.06262 ,0.01661 ,0.00922 ,0.03970 - +,0.44294 ,0.19306 ,0.46181 ,0.06128 ,0.01659 ,0.00941 ,0.03899/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),K=1,19)/ - + 0.57559 ,0.27298 ,1.03895 ,0.07893 ,0.00118 ,0.00006 ,0.04009 - +,0.56481 ,0.26367 ,0.95032 ,0.07566 ,0.00418 ,0.00005 ,0.03992 - +,0.55418 ,0.25518 ,0.87197 ,0.07263 ,0.00619 ,0.00007 ,0.03946 - +,0.54393 ,0.24747 ,0.80345 ,0.06980 ,0.00778 ,0.00002 ,0.03883 - +,0.53385 ,0.24047 ,0.74305 ,0.06712 ,0.00893 ,0.00012 ,0.03816 - +,0.52424 ,0.23402 ,0.68996 ,0.06469 ,0.00971 ,0.00086 ,0.03740 - +,0.51505 ,0.22795 ,0.64286 ,0.06243 ,0.01033 ,0.00202 ,0.03659 - +,0.50625 ,0.22226 ,0.60090 ,0.06031 ,0.01086 ,0.00288 ,0.03572 - +,0.49762 ,0.21714 ,0.56335 ,0.05834 ,0.01115 ,0.00374 ,0.03495 - +,0.48935 ,0.21215 ,0.52948 ,0.05652 ,0.01141 ,0.00435 ,0.03407 - +,0.48161 ,0.20729 ,0.49902 ,0.05478 ,0.01160 ,0.00480 ,0.03327 - +,0.47415 ,0.20277 ,0.47153 ,0.05315 ,0.01172 ,0.00517 ,0.03253 - +,0.46681 ,0.19868 ,0.44657 ,0.05164 ,0.01174 ,0.00550 ,0.03182 - +,0.45977 ,0.19464 ,0.42381 ,0.05020 ,0.01177 ,0.00579 ,0.03111 - +,0.45302 ,0.19087 ,0.40312 ,0.04882 ,0.01181 ,0.00602 ,0.03044 - +,0.44638 ,0.18739 ,0.38415 ,0.04747 ,0.01189 ,0.00615 ,0.02981 - +,0.44006 ,0.18399 ,0.36669 ,0.04624 ,0.01186 ,0.00629 ,0.02919 - +,0.43403 ,0.18070 ,0.35059 ,0.04511 ,0.01176 ,0.00643 ,0.02857 - +,0.42817 ,0.17758 ,0.33568 ,0.04402 ,0.01169 ,0.00652 ,0.02795/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),K=1,19)/ - + 0.59230 ,0.26710 ,0.88214 ,0.06149 ,0.00095 ,0.00005 ,0.03123 - +,0.57617 ,0.25599 ,0.79223 ,0.05846 ,0.00314 ,0.00006 ,0.03076 - +,0.56107 ,0.24606 ,0.71585 ,0.05566 ,0.00466 ,0.00001 ,0.03019 - +,0.54698 ,0.23725 ,0.65105 ,0.05309 ,0.00576 ,0.00002 ,0.02955 - +,0.53365 ,0.22923 ,0.59520 ,0.05077 ,0.00657 ,0.00020 ,0.02880 - +,0.52115 ,0.22193 ,0.54709 ,0.04869 ,0.00714 ,0.00071 ,0.02798 - +,0.50957 ,0.21506 ,0.50519 ,0.04676 ,0.00755 ,0.00150 ,0.02718 - +,0.49834 ,0.20892 ,0.46840 ,0.04496 ,0.00782 ,0.00214 ,0.02647 - +,0.48777 ,0.20323 ,0.43569 ,0.04324 ,0.00809 ,0.00264 ,0.02577 - +,0.47783 ,0.19771 ,0.40681 ,0.04169 ,0.00827 ,0.00306 ,0.02502 - +,0.46826 ,0.19269 ,0.38098 ,0.04022 ,0.00838 ,0.00342 ,0.02434 - +,0.45917 ,0.18800 ,0.35789 ,0.03887 ,0.00843 ,0.00368 ,0.02370 - +,0.45056 ,0.18356 ,0.33720 ,0.03763 ,0.00841 ,0.00382 ,0.02310 - +,0.44232 ,0.17928 ,0.31830 ,0.03646 ,0.00839 ,0.00400 ,0.02251 - +,0.43450 ,0.17528 ,0.30124 ,0.03537 ,0.00835 ,0.00415 ,0.02194 - +,0.42694 ,0.17156 ,0.28574 ,0.03435 ,0.00830 ,0.00426 ,0.02137 - +,0.41971 ,0.16803 ,0.27158 ,0.03336 ,0.00825 ,0.00435 ,0.02085 - +,0.41280 ,0.16467 ,0.25859 ,0.03241 ,0.00822 ,0.00442 ,0.02038 - +,0.40616 ,0.16143 ,0.24678 ,0.03154 ,0.00815 ,0.00450 ,0.01990/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),K=1,19)/ - + 0.59752 ,0.25712 ,0.74572 ,0.04722 ,0.00064 ,0.00006 ,0.02392 - +,0.57646 ,0.24466 ,0.65865 ,0.04445 ,0.00237 ,0.00002 ,0.02355 - +,0.55729 ,0.23375 ,0.58676 ,0.04207 ,0.00349 ,0.00004 ,0.02287 - +,0.53987 ,0.22404 ,0.52711 ,0.03994 ,0.00427 ,0.00009 ,0.02214 - +,0.52381 ,0.21525 ,0.47719 ,0.03799 ,0.00485 ,0.00016 ,0.02146 - +,0.50890 ,0.20742 ,0.43449 ,0.03623 ,0.00524 ,0.00051 ,0.02075 - +,0.49500 ,0.20026 ,0.39767 ,0.03458 ,0.00560 ,0.00109 ,0.02007 - +,0.48211 ,0.19366 ,0.36567 ,0.03312 ,0.00573 ,0.00153 ,0.01941 - +,0.47010 ,0.18752 ,0.33790 ,0.03175 ,0.00587 ,0.00187 ,0.01881 - +,0.45867 ,0.18177 ,0.31340 ,0.03047 ,0.00599 ,0.00225 ,0.01826 - +,0.44787 ,0.17654 ,0.29180 ,0.02929 ,0.00602 ,0.00243 ,0.01772 - +,0.43769 ,0.17167 ,0.27263 ,0.02822 ,0.00603 ,0.00255 ,0.01719 - +,0.42809 ,0.16706 ,0.25551 ,0.02723 ,0.00604 ,0.00269 ,0.01670 - +,0.41900 ,0.16267 ,0.24014 ,0.02631 ,0.00602 ,0.00282 ,0.01618 - +,0.41042 ,0.15859 ,0.22632 ,0.02544 ,0.00599 ,0.00291 ,0.01569 - +,0.40218 ,0.15480 ,0.21379 ,0.02462 ,0.00595 ,0.00294 ,0.01524 - +,0.39431 ,0.15124 ,0.20244 ,0.02386 ,0.00588 ,0.00300 ,0.01480 - +,0.38680 ,0.14788 ,0.19212 ,0.02317 ,0.00579 ,0.00308 ,0.01439 - +,0.37960 ,0.14467 ,0.18271 ,0.02247 ,0.00574 ,0.00311 ,0.01404/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),K=1,19)/ - + 0.59248 ,0.24405 ,0.62737 ,0.03565 ,0.00049 ,0.00000 ,0.01815 - +,0.56726 ,0.23053 ,0.54538 ,0.03335 ,0.00179 ,0.00007 ,0.01773 - +,0.54487 ,0.21867 ,0.47960 ,0.03130 ,0.00274 ,0.00011 ,0.01714 - +,0.52453 ,0.20850 ,0.42595 ,0.02955 ,0.00330 ,0.00004 ,0.01650 - +,0.50617 ,0.19932 ,0.38135 ,0.02798 ,0.00366 ,0.00019 ,0.01593 - +,0.48957 ,0.19098 ,0.34422 ,0.02654 ,0.00394 ,0.00038 ,0.01531 - +,0.47397 ,0.18371 ,0.31262 ,0.02523 ,0.00414 ,0.00081 ,0.01476 - +,0.45962 ,0.17699 ,0.28552 ,0.02408 ,0.00425 ,0.00117 ,0.01424 - +,0.44645 ,0.17062 ,0.26195 ,0.02301 ,0.00430 ,0.00146 ,0.01376 - +,0.43379 ,0.16509 ,0.24154 ,0.02199 ,0.00437 ,0.00166 ,0.01324 - +,0.42214 ,0.15976 ,0.22369 ,0.02109 ,0.00437 ,0.00175 ,0.01278 - +,0.41125 ,0.15479 ,0.20790 ,0.02027 ,0.00436 ,0.00184 ,0.01234 - +,0.40096 ,0.15024 ,0.19381 ,0.01951 ,0.00435 ,0.00197 ,0.01192 - +,0.39123 ,0.14597 ,0.18133 ,0.01877 ,0.00435 ,0.00207 ,0.01152 - +,0.38211 ,0.14197 ,0.17020 ,0.01808 ,0.00433 ,0.00213 ,0.01116 - +,0.37346 ,0.13819 ,0.16021 ,0.01745 ,0.00427 ,0.00216 ,0.01085 - +,0.36529 ,0.13458 ,0.15119 ,0.01686 ,0.00420 ,0.00217 ,0.01054 - +,0.35756 ,0.13114 ,0.14300 ,0.01630 ,0.00412 ,0.00218 ,0.01025 - +,0.35018 ,0.12798 ,0.13552 ,0.01577 ,0.00405 ,0.00217 ,0.00995/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),K=1,19)/ - + 0.57906 ,0.22822 ,0.52500 ,0.02649 ,0.00045 ,0.00008 ,0.01358 - +,0.55024 ,0.21418 ,0.44956 ,0.02462 ,0.00152 ,0.00011 ,0.01309 - +,0.52505 ,0.20198 ,0.39049 ,0.02301 ,0.00214 ,0.00006 ,0.01258 - +,0.50254 ,0.19153 ,0.34299 ,0.02160 ,0.00258 ,0.00003 ,0.01210 - +,0.48248 ,0.18217 ,0.30431 ,0.02032 ,0.00279 ,0.00011 ,0.01172 - +,0.46424 ,0.17397 ,0.27230 ,0.01927 ,0.00291 ,0.00032 ,0.01116 - +,0.44763 ,0.16650 ,0.24541 ,0.01831 ,0.00297 ,0.00066 ,0.01064 - +,0.43226 ,0.15985 ,0.22241 ,0.01736 ,0.00309 ,0.00091 ,0.01025 - +,0.41819 ,0.15368 ,0.20277 ,0.01648 ,0.00315 ,0.00101 ,0.00989 - +,0.40497 ,0.14804 ,0.18603 ,0.01575 ,0.00314 ,0.00119 ,0.00950 - +,0.39280 ,0.14277 ,0.17132 ,0.01506 ,0.00312 ,0.00122 ,0.00915 - +,0.38152 ,0.13792 ,0.15844 ,0.01441 ,0.00310 ,0.00127 ,0.00882 - +,0.37100 ,0.13346 ,0.14717 ,0.01379 ,0.00310 ,0.00139 ,0.00847 - +,0.36099 ,0.12929 ,0.13713 ,0.01324 ,0.00308 ,0.00142 ,0.00818 - +,0.35161 ,0.12540 ,0.12819 ,0.01272 ,0.00306 ,0.00144 ,0.00792 - +,0.34274 ,0.12172 ,0.12017 ,0.01224 ,0.00303 ,0.00146 ,0.00767 - +,0.33438 ,0.11830 ,0.11297 ,0.01181 ,0.00296 ,0.00148 ,0.00740 - +,0.32649 ,0.11511 ,0.10648 ,0.01143 ,0.00288 ,0.00151 ,0.00713 - +,0.31905 ,0.11203 ,0.10065 ,0.01104 ,0.00285 ,0.00153 ,0.00693/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),K=1,19)/ - + 0.55791 ,0.21106 ,0.43664 ,0.01940 ,0.00038 ,0.00009 ,0.01003 - +,0.52628 ,0.19682 ,0.36873 ,0.01801 ,0.00112 ,0.00010 ,0.00953 - +,0.49904 ,0.18454 ,0.31621 ,0.01672 ,0.00157 ,0.00014 ,0.00917 - +,0.47548 ,0.17360 ,0.27482 ,0.01566 ,0.00186 ,0.00011 ,0.00873 - +,0.45388 ,0.16462 ,0.24149 ,0.01466 ,0.00202 ,0.00005 ,0.00842 - +,0.43473 ,0.15646 ,0.21431 ,0.01380 ,0.00219 ,0.00022 ,0.00802 - +,0.41745 ,0.14912 ,0.19183 ,0.01299 ,0.00230 ,0.00048 ,0.00770 - +,0.40159 ,0.14253 ,0.17280 ,0.01231 ,0.00231 ,0.00060 ,0.00735 - +,0.38700 ,0.13658 ,0.15660 ,0.01164 ,0.00239 ,0.00073 ,0.00707 - +,0.37350 ,0.13115 ,0.14282 ,0.01107 ,0.00239 ,0.00083 ,0.00678 - +,0.36126 ,0.12610 ,0.13080 ,0.01052 ,0.00234 ,0.00092 ,0.00651 - +,0.34991 ,0.12144 ,0.12039 ,0.01001 ,0.00230 ,0.00099 ,0.00625 - +,0.33921 ,0.11715 ,0.11137 ,0.00956 ,0.00230 ,0.00101 ,0.00600 - +,0.32908 ,0.11321 ,0.10339 ,0.00917 ,0.00225 ,0.00101 ,0.00580 - +,0.31967 ,0.10953 ,0.09630 ,0.00881 ,0.00221 ,0.00103 ,0.00561 - +,0.31090 ,0.10603 ,0.08996 ,0.00848 ,0.00220 ,0.00111 ,0.00540 - +,0.30254 ,0.10280 ,0.08430 ,0.00816 ,0.00217 ,0.00113 ,0.00521 - +,0.29460 ,0.09980 ,0.07923 ,0.00786 ,0.00212 ,0.00111 ,0.00506 - +,0.28720 ,0.09697 ,0.07468 ,0.00756 ,0.00208 ,0.00110 ,0.00489/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),K=1,19)/ - + 0.53060 ,0.19336 ,0.36137 ,0.01417 ,0.00014 ,-0.00011 ,0.00712 - +,0.49735 ,0.17892 ,0.30107 ,0.01298 ,0.00079 ,-0.00010 ,0.00682 - +,0.46895 ,0.16651 ,0.25536 ,0.01208 ,0.00104 ,-0.00012 ,0.00649 - +,0.44409 ,0.15618 ,0.21949 ,0.01123 ,0.00128 ,-0.00010 ,0.00620 - +,0.42192 ,0.14732 ,0.19122 ,0.01047 ,0.00150 ,-0.00009 ,0.00590 - +,0.40241 ,0.13938 ,0.16852 ,0.00980 ,0.00151 ,0.00003 ,0.00573 - +,0.38484 ,0.13229 ,0.14965 ,0.00924 ,0.00156 ,0.00032 ,0.00540 - +,0.36884 ,0.12602 ,0.13403 ,0.00868 ,0.00166 ,0.00041 ,0.00512 - +,0.35449 ,0.12018 ,0.12071 ,0.00816 ,0.00160 ,0.00044 ,0.00496 - +,0.34094 ,0.11499 ,0.10955 ,0.00779 ,0.00159 ,0.00053 ,0.00470 - +,0.32844 ,0.11029 ,0.09995 ,0.00740 ,0.00162 ,0.00060 ,0.00451 - +,0.31699 ,0.10598 ,0.09162 ,0.00703 ,0.00163 ,0.00064 ,0.00434 - +,0.30649 ,0.10197 ,0.08434 ,0.00670 ,0.00160 ,0.00065 ,0.00419 - +,0.29671 ,0.09822 ,0.07796 ,0.00638 ,0.00158 ,0.00068 ,0.00398 - +,0.28756 ,0.09476 ,0.07235 ,0.00609 ,0.00155 ,0.00070 ,0.00381 - +,0.27885 ,0.09152 ,0.06741 ,0.00586 ,0.00152 ,0.00069 ,0.00370 - +,0.27070 ,0.08852 ,0.06300 ,0.00567 ,0.00148 ,0.00070 ,0.00358 - +,0.26305 ,0.08572 ,0.05905 ,0.00550 ,0.00142 ,0.00073 ,0.00345 - +,0.25587 ,0.08311 ,0.05547 ,0.00529 ,0.00140 ,0.00073 ,0.00333/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),K=1,19)/ - + 0.49908 ,0.17408 ,0.29605 ,0.00990 ,0.00033 ,0.00008 ,0.00522 - +,0.46459 ,0.16002 ,0.24350 ,0.00917 ,0.00063 ,0.00011 ,0.00492 - +,0.43516 ,0.14840 ,0.20401 ,0.00842 ,0.00095 ,0.00014 ,0.00468 - +,0.40998 ,0.13838 ,0.17383 ,0.00784 ,0.00099 ,0.00012 ,0.00447 - +,0.38805 ,0.12984 ,0.15027 ,0.00719 ,0.00108 ,0.00010 ,0.00432 - +,0.36837 ,0.12231 ,0.13143 ,0.00675 ,0.00119 ,0.00021 ,0.00401 - +,0.35060 ,0.11573 ,0.11599 ,0.00638 ,0.00116 ,0.00025 ,0.00382 - +,0.33482 ,0.10974 ,0.10316 ,0.00599 ,0.00123 ,0.00036 ,0.00362 - +,0.32064 ,0.10434 ,0.09247 ,0.00564 ,0.00121 ,0.00044 ,0.00340 - +,0.30723 ,0.09953 ,0.08347 ,0.00534 ,0.00123 ,0.00043 ,0.00334 - +,0.29510 ,0.09520 ,0.07575 ,0.00506 ,0.00121 ,0.00045 ,0.00320 - +,0.28400 ,0.09123 ,0.06913 ,0.00481 ,0.00119 ,0.00048 ,0.00304 - +,0.27376 ,0.08751 ,0.06344 ,0.00457 ,0.00119 ,0.00049 ,0.00289 - +,0.26437 ,0.08406 ,0.05842 ,0.00434 ,0.00116 ,0.00051 ,0.00276 - +,0.25558 ,0.08090 ,0.05402 ,0.00414 ,0.00113 ,0.00052 ,0.00264 - +,0.24712 ,0.07800 ,0.05016 ,0.00400 ,0.00109 ,0.00052 ,0.00256 - +,0.23931 ,0.07529 ,0.04673 ,0.00385 ,0.00105 ,0.00052 ,0.00244 - +,0.23205 ,0.07277 ,0.04368 ,0.00370 ,0.00100 ,0.00051 ,0.00231 - +,0.22529 ,0.07038 ,0.04091 ,0.00355 ,0.00098 ,0.00052 ,0.00224/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),K=1,19)/ - + 0.46373 ,0.15569 ,0.24168 ,0.00703 ,0.00011 ,-0.00004 ,0.00358 - +,0.42883 ,0.14223 ,0.19619 ,0.00645 ,0.00040 ,-0.00005 ,0.00339 - +,0.39945 ,0.13108 ,0.16243 ,0.00591 ,0.00055 ,-0.00002 ,0.00326 - +,0.37439 ,0.12158 ,0.13734 ,0.00545 ,0.00074 ,0.00001 ,0.00306 - +,0.35256 ,0.11362 ,0.11768 ,0.00504 ,0.00080 ,0.00006 ,0.00298 - +,0.33333 ,0.10649 ,0.10211 ,0.00473 ,0.00084 ,0.00009 ,0.00278 - +,0.31618 ,0.10034 ,0.08945 ,0.00442 ,0.00084 ,0.00017 ,0.00258 - +,0.30062 ,0.09488 ,0.07910 ,0.00415 ,0.00082 ,0.00020 ,0.00250 - +,0.28678 ,0.08995 ,0.07053 ,0.00391 ,0.00083 ,0.00025 ,0.00241 - +,0.27431 ,0.08545 ,0.06334 ,0.00368 ,0.00084 ,0.00028 ,0.00220 - +,0.26270 ,0.08145 ,0.05722 ,0.00347 ,0.00083 ,0.00031 ,0.00209 - +,0.25202 ,0.07781 ,0.05198 ,0.00329 ,0.00081 ,0.00032 ,0.00201 - +,0.24224 ,0.07445 ,0.04748 ,0.00315 ,0.00079 ,0.00033 ,0.00192 - +,0.23325 ,0.07133 ,0.04357 ,0.00301 ,0.00075 ,0.00034 ,0.00183 - +,0.22490 ,0.06849 ,0.04017 ,0.00287 ,0.00072 ,0.00034 ,0.00175 - +,0.21699 ,0.06592 ,0.03718 ,0.00272 ,0.00071 ,0.00033 ,0.00165 - +,0.20972 ,0.06347 ,0.03453 ,0.00259 ,0.00070 ,0.00033 ,0.00158 - +,0.20301 ,0.06114 ,0.03216 ,0.00247 ,0.00068 ,0.00033 ,0.00154 - +,0.19662 ,0.05903 ,0.03008 ,0.00237 ,0.00066 ,0.00033 ,0.00149/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),K=1,19)/ - + 0.42620 ,0.13706 ,0.19493 ,0.00480 ,0.00013 ,0.00004 ,0.00250 - +,0.39171 ,0.12435 ,0.15650 ,0.00431 ,0.00036 ,0.00008 ,0.00244 - +,0.36261 ,0.11398 ,0.12830 ,0.00407 ,0.00046 ,0.00008 ,0.00226 - +,0.33811 ,0.10527 ,0.10735 ,0.00364 ,0.00054 ,-0.00002 ,0.00216 - +,0.31654 ,0.09805 ,0.09125 ,0.00347 ,0.00063 ,0.00000 ,0.00199 - +,0.29823 ,0.09148 ,0.07860 ,0.00319 ,0.00058 ,0.00001 ,0.00182 - +,0.28164 ,0.08586 ,0.06843 ,0.00301 ,0.00061 ,0.00008 ,0.00175 - +,0.26713 ,0.08090 ,0.06016 ,0.00279 ,0.00059 ,0.00016 ,0.00169 - +,0.25390 ,0.07646 ,0.05335 ,0.00258 ,0.00060 ,0.00017 ,0.00158 - +,0.24180 ,0.07252 ,0.04768 ,0.00247 ,0.00056 ,0.00017 ,0.00146 - +,0.23079 ,0.06889 ,0.04289 ,0.00236 ,0.00055 ,0.00019 ,0.00140 - +,0.22087 ,0.06556 ,0.03880 ,0.00221 ,0.00055 ,0.00021 ,0.00136 - +,0.21196 ,0.06251 ,0.03528 ,0.00200 ,0.00052 ,0.00020 ,0.00132 - +,0.20350 ,0.05979 ,0.03228 ,0.00193 ,0.00051 ,0.00023 ,0.00122 - +,0.19562 ,0.05730 ,0.02966 ,0.00189 ,0.00050 ,0.00024 ,0.00113 - +,0.18816 ,0.05496 ,0.02736 ,0.00186 ,0.00048 ,0.00022 ,0.00111 - +,0.18145 ,0.05279 ,0.02534 ,0.00177 ,0.00045 ,0.00021 ,0.00106 - +,0.17537 ,0.05078 ,0.02357 ,0.00164 ,0.00042 ,0.00020 ,0.00101 - +,0.16953 ,0.04891 ,0.02199 ,0.00157 ,0.00042 ,0.00021 ,0.00097/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),K=1,19)/ - + 0.38732 ,0.11954 ,0.15628 ,0.00319 ,0.00014 ,0.00003 ,0.00169 - +,0.35349 ,0.10781 ,0.12384 ,0.00299 ,0.00024 ,0.00007 ,0.00163 - +,0.32553 ,0.09833 ,0.10064 ,0.00269 ,0.00037 ,0.00005 ,0.00156 - +,0.30185 ,0.09039 ,0.08341 ,0.00251 ,0.00033 ,-0.00002 ,0.00139 - +,0.28162 ,0.08356 ,0.07036 ,0.00236 ,0.00035 ,0.00002 ,0.00128 - +,0.26397 ,0.07783 ,0.06008 ,0.00221 ,0.00037 ,0.00005 ,0.00120 - +,0.24850 ,0.07272 ,0.05200 ,0.00209 ,0.00039 ,0.00009 ,0.00114 - +,0.23474 ,0.06822 ,0.04547 ,0.00192 ,0.00038 ,0.00011 ,0.00108 - +,0.22240 ,0.06428 ,0.04011 ,0.00179 ,0.00035 ,0.00009 ,0.00105 - +,0.21128 ,0.06075 ,0.03567 ,0.00168 ,0.00038 ,0.00013 ,0.00096 - +,0.20123 ,0.05754 ,0.03195 ,0.00153 ,0.00036 ,0.00010 ,0.00091 - +,0.19206 ,0.05464 ,0.02881 ,0.00143 ,0.00035 ,0.00009 ,0.00086 - +,0.18360 ,0.05201 ,0.02611 ,0.00139 ,0.00036 ,0.00014 ,0.00081 - +,0.17576 ,0.04961 ,0.02381 ,0.00132 ,0.00030 ,0.00012 ,0.00075 - +,0.16855 ,0.04741 ,0.02180 ,0.00127 ,0.00026 ,0.00010 ,0.00070 - +,0.16186 ,0.04538 ,0.02005 ,0.00123 ,0.00027 ,0.00011 ,0.00067 - +,0.15577 ,0.04351 ,0.01853 ,0.00117 ,0.00027 ,0.00010 ,0.00065 - +,0.15019 ,0.04179 ,0.01719 ,0.00108 ,0.00028 ,0.00010 ,0.00065 - +,0.14492 ,0.04018 ,0.01600 ,0.00104 ,0.00028 ,0.00012 ,0.00063/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),K=1,19)/ - + 0.34795 ,0.10291 ,0.12412 ,0.00212 ,0.00008 ,-0.00003 ,0.00108 - +,0.31533 ,0.09223 ,0.09698 ,0.00198 ,0.00011 ,0.00003 ,0.00109 - +,0.28844 ,0.08352 ,0.07782 ,0.00187 ,0.00028 ,0.00002 ,0.00097 - +,0.26642 ,0.07636 ,0.06385 ,0.00166 ,0.00022 ,0.00000 ,0.00095 - +,0.24746 ,0.07031 ,0.05337 ,0.00149 ,0.00026 ,-0.00001 ,0.00089 - +,0.23093 ,0.06512 ,0.04528 ,0.00139 ,0.00027 ,0.00002 ,0.00086 - +,0.21638 ,0.06065 ,0.03897 ,0.00136 ,0.00029 ,0.00008 ,0.00079 - +,0.20357 ,0.05676 ,0.03384 ,0.00126 ,0.00026 ,0.00007 ,0.00075 - +,0.19247 ,0.05318 ,0.02968 ,0.00110 ,0.00028 ,0.00009 ,0.00073 - +,0.18207 ,0.05010 ,0.02626 ,0.00103 ,0.00028 ,0.00010 ,0.00066 - +,0.17272 ,0.04732 ,0.02340 ,0.00101 ,0.00027 ,0.00010 ,0.00063 - +,0.16430 ,0.04480 ,0.02100 ,0.00097 ,0.00026 ,0.00010 ,0.00060 - +,0.15671 ,0.04251 ,0.01897 ,0.00087 ,0.00025 ,0.00010 ,0.00057 - +,0.14968 ,0.04044 ,0.01723 ,0.00083 ,0.00024 ,0.00010 ,0.00054 - +,0.14326 ,0.03855 ,0.01573 ,0.00079 ,0.00023 ,0.00011 ,0.00051 - +,0.13737 ,0.03681 ,0.01443 ,0.00072 ,0.00024 ,0.00010 ,0.00048 - +,0.13186 ,0.03520 ,0.01329 ,0.00069 ,0.00024 ,0.00010 ,0.00046 - +,0.12673 ,0.03371 ,0.01229 ,0.00069 ,0.00024 ,0.00012 ,0.00046 - +,0.12204 ,0.03233 ,0.01141 ,0.00067 ,0.00024 ,0.00014 ,0.00045/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),K=1,19)/ - + 0.30892 ,0.08752 ,0.09759 ,0.00137 ,0.00003 ,-0.00009 ,0.00067 - +,0.27826 ,0.07794 ,0.07533 ,0.00131 ,0.00004 ,-0.00008 ,0.00065 - +,0.25331 ,0.07024 ,0.05980 ,0.00118 ,0.00010 ,-0.00004 ,0.00063 - +,0.23249 ,0.06389 ,0.04868 ,0.00111 ,0.00018 ,0.00000 ,0.00060 - +,0.21490 ,0.05861 ,0.04031 ,0.00098 ,0.00019 ,-0.00007 ,0.00051 - +,0.19984 ,0.05399 ,0.03401 ,0.00092 ,0.00021 ,-0.00003 ,0.00051 - +,0.18658 ,0.05010 ,0.02904 ,0.00084 ,0.00020 ,0.00001 ,0.00052 - +,0.17483 ,0.04668 ,0.02510 ,0.00081 ,0.00017 ,0.00000 ,0.00047 - +,0.16452 ,0.04371 ,0.02189 ,0.00076 ,0.00015 ,0.00000 ,0.00040 - +,0.15535 ,0.04100 ,0.01927 ,0.00069 ,0.00016 ,0.00003 ,0.00038 - +,0.14706 ,0.03857 ,0.01710 ,0.00063 ,0.00014 ,0.00004 ,0.00037 - +,0.13955 ,0.03640 ,0.01529 ,0.00060 ,0.00014 ,0.00004 ,0.00036 - +,0.13269 ,0.03447 ,0.01377 ,0.00057 ,0.00016 ,0.00005 ,0.00035 - +,0.12645 ,0.03271 ,0.01247 ,0.00053 ,0.00015 ,0.00006 ,0.00033 - +,0.12075 ,0.03110 ,0.01135 ,0.00050 ,0.00015 ,0.00006 ,0.00031 - +,0.11548 ,0.02961 ,0.01039 ,0.00047 ,0.00015 ,0.00005 ,0.00032 - +,0.11064 ,0.02826 ,0.00955 ,0.00044 ,0.00015 ,0.00004 ,0.00030 - +,0.10617 ,0.02703 ,0.00881 ,0.00041 ,0.00015 ,0.00004 ,0.00028 - +,0.10199 ,0.02587 ,0.00815 ,0.00039 ,0.00014 ,0.00004 ,0.00026/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),K=1,19)/ - + 0.27066 ,0.07337 ,0.07572 ,0.00094 ,0.00001 ,-0.00001 ,0.00045 - +,0.24242 ,0.06492 ,0.05777 ,0.00083 ,0.00002 ,-0.00006 ,0.00044 - +,0.21934 ,0.05817 ,0.04538 ,0.00076 ,0.00008 ,-0.00007 ,0.00036 - +,0.20047 ,0.05262 ,0.03659 ,0.00071 ,0.00015 ,-0.00001 ,0.00040 - +,0.18422 ,0.04805 ,0.03006 ,0.00071 ,0.00011 ,0.00001 ,0.00035 - +,0.17066 ,0.04415 ,0.02517 ,0.00057 ,0.00009 ,-0.00003 ,0.00031 - +,0.15879 ,0.04081 ,0.02135 ,0.00052 ,0.00010 ,-0.00003 ,0.00030 - +,0.14842 ,0.03785 ,0.01833 ,0.00050 ,0.00010 ,-0.00001 ,0.00028 - +,0.13925 ,0.03531 ,0.01592 ,0.00044 ,0.00012 ,0.00002 ,0.00027 - +,0.13087 ,0.03300 ,0.01396 ,0.00046 ,0.00010 ,0.00004 ,0.00025 - +,0.12347 ,0.03098 ,0.01233 ,0.00042 ,0.00010 ,0.00003 ,0.00024 - +,0.11688 ,0.02917 ,0.01098 ,0.00038 ,0.00011 ,0.00003 ,0.00022 - +,0.11098 ,0.02753 ,0.00984 ,0.00034 ,0.00012 ,0.00003 ,0.00022 - +,0.10549 ,0.02604 ,0.00888 ,0.00032 ,0.00012 ,0.00004 ,0.00022 - +,0.10047 ,0.02470 ,0.00806 ,0.00030 ,0.00012 ,0.00004 ,0.00021 - +,0.09583 ,0.02347 ,0.00735 ,0.00029 ,0.00011 ,0.00004 ,0.00019 - +,0.09160 ,0.02235 ,0.00674 ,0.00027 ,0.00010 ,0.00004 ,0.00018 - +,0.08771 ,0.02131 ,0.00621 ,0.00025 ,0.00010 ,0.00004 ,0.00017 - +,0.08407 ,0.02036 ,0.00574 ,0.00024 ,0.00009 ,0.00004 ,0.00017/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),K=1,19)/ - + 0.23439 ,0.06066 ,0.05814 ,0.00061 ,-0.00005 ,-0.00004 ,0.00023 - +,0.20844 ,0.05330 ,0.04371 ,0.00057 ,0.00001 ,-0.00005 ,0.00023 - +,0.18736 ,0.04749 ,0.03394 ,0.00052 ,0.00003 ,-0.00006 ,0.00021 - +,0.17043 ,0.04271 ,0.02705 ,0.00043 ,0.00006 ,-0.00007 ,0.00022 - +,0.15603 ,0.03880 ,0.02208 ,0.00040 ,0.00008 ,-0.00006 ,0.00021 - +,0.14388 ,0.03549 ,0.01832 ,0.00036 ,0.00007 ,-0.00003 ,0.00020 - +,0.13339 ,0.03262 ,0.01545 ,0.00033 ,0.00008 ,-0.00003 ,0.00019 - +,0.12407 ,0.03015 ,0.01317 ,0.00032 ,0.00010 ,0.00000 ,0.00019 - +,0.11596 ,0.02800 ,0.01138 ,0.00028 ,0.00010 ,0.00000 ,0.00018 - +,0.10871 ,0.02612 ,0.00993 ,0.00027 ,0.00008 ,0.00002 ,0.00018 - +,0.10225 ,0.02443 ,0.00874 ,0.00026 ,0.00008 ,0.00002 ,0.00018 - +,0.09646 ,0.02293 ,0.00775 ,0.00024 ,0.00008 ,0.00002 ,0.00017 - +,0.09124 ,0.02160 ,0.00692 ,0.00020 ,0.00010 ,0.00003 ,0.00016 - +,0.08647 ,0.02037 ,0.00622 ,0.00019 ,0.00008 ,0.00003 ,0.00014 - +,0.08216 ,0.01926 ,0.00563 ,0.00017 ,0.00006 ,0.00002 ,0.00013 - +,0.07827 ,0.01826 ,0.00512 ,0.00015 ,0.00007 ,0.00003 ,0.00013 - +,0.07463 ,0.01734 ,0.00468 ,0.00013 ,0.00007 ,0.00003 ,0.00012 - +,0.07126 ,0.01649 ,0.00430 ,0.00013 ,0.00006 ,0.00002 ,0.00011 - +,0.06814 ,0.01573 ,0.00396 ,0.00013 ,0.00006 ,0.00002 ,0.00010/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),K=1,19)/ - + 0.20032 ,0.04927 ,0.04383 ,0.00029 ,-0.00002 ,-0.00005 ,0.00015 - +,0.17661 ,0.04304 ,0.03254 ,0.00030 ,0.00000 ,-0.00006 ,0.00012 - +,0.15799 ,0.03806 ,0.02497 ,0.00029 ,0.00002 ,-0.00005 ,0.00014 - +,0.14274 ,0.03405 ,0.01970 ,0.00027 ,0.00001 ,-0.00005 ,0.00013 - +,0.13017 ,0.03075 ,0.01593 ,0.00022 ,0.00003 ,-0.00004 ,0.00012 - +,0.11930 ,0.02800 ,0.01314 ,0.00025 ,0.00006 ,-0.00001 ,0.00015 - +,0.11016 ,0.02567 ,0.01099 ,0.00020 ,0.00007 ,-0.00001 ,0.00013 - +,0.10216 ,0.02364 ,0.00931 ,0.00016 ,0.00006 ,-0.00001 ,0.00012 - +,0.09517 ,0.02186 ,0.00801 ,0.00014 ,0.00006 ,0.00000 ,0.00013 - +,0.08893 ,0.02031 ,0.00694 ,0.00012 ,0.00006 ,0.00001 ,0.00012 - +,0.08334 ,0.01894 ,0.00608 ,0.00013 ,0.00007 ,0.00003 ,0.00011 - +,0.07834 ,0.01772 ,0.00537 ,0.00014 ,0.00007 ,0.00004 ,0.00011 - +,0.07387 ,0.01663 ,0.00478 ,0.00012 ,0.00005 ,0.00002 ,0.00010 - +,0.06985 ,0.01564 ,0.00429 ,0.00010 ,0.00006 ,0.00002 ,0.00010 - +,0.06620 ,0.01475 ,0.00387 ,0.00009 ,0.00006 ,0.00002 ,0.00009 - +,0.06282 ,0.01394 ,0.00351 ,0.00008 ,0.00006 ,0.00002 ,0.00008 - +,0.05976 ,0.01321 ,0.00320 ,0.00008 ,0.00006 ,0.00003 ,0.00008 - +,0.05697 ,0.01254 ,0.00293 ,0.00007 ,0.00006 ,0.00003 ,0.00008 - +,0.05438 ,0.01193 ,0.00270 ,0.00007 ,0.00006 ,0.00003 ,0.00008/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),K=1,19)/ - + 0.16842 ,0.03952 ,0.03271 ,0.00026 ,-0.00005 ,-0.00008 ,0.00006 - +,0.14762 ,0.03422 ,0.02394 ,0.00026 ,-0.00003 ,-0.00010 ,0.00004 - +,0.13148 ,0.03011 ,0.01817 ,0.00020 ,-0.00001 ,-0.00005 ,0.00006 - +,0.11817 ,0.02683 ,0.01422 ,0.00017 ,0.00004 ,-0.00004 ,0.00007 - +,0.10712 ,0.02412 ,0.01141 ,0.00017 ,0.00001 ,-0.00003 ,0.00008 - +,0.09783 ,0.02185 ,0.00933 ,0.00015 ,0.00002 ,-0.00003 ,0.00007 - +,0.08997 ,0.01995 ,0.00776 ,0.00012 ,0.00004 ,-0.00003 ,0.00007 - +,0.08309 ,0.01829 ,0.00655 ,0.00011 ,0.00005 ,-0.00003 ,0.00007 - +,0.07708 ,0.01687 ,0.00559 ,0.00010 ,0.00005 ,0.00000 ,0.00008 - +,0.07178 ,0.01561 ,0.00484 ,0.00011 ,0.00004 ,0.00001 ,0.00007 - +,0.06707 ,0.01451 ,0.00422 ,0.00010 ,0.00003 ,0.00000 ,0.00005 - +,0.06287 ,0.01353 ,0.00371 ,0.00009 ,0.00003 ,0.00000 ,0.00005 - +,0.05911 ,0.01268 ,0.00329 ,0.00009 ,0.00004 ,0.00001 ,0.00005 - +,0.05577 ,0.01189 ,0.00294 ,0.00007 ,0.00004 ,0.00001 ,0.00005 - +,0.05274 ,0.01118 ,0.00265 ,0.00006 ,0.00004 ,0.00002 ,0.00005 - +,0.04992 ,0.01056 ,0.00240 ,0.00006 ,0.00003 ,0.00002 ,0.00005 - +,0.04738 ,0.00998 ,0.00218 ,0.00005 ,0.00003 ,0.00002 ,0.00005 - +,0.04507 ,0.00944 ,0.00199 ,0.00005 ,0.00004 ,0.00001 ,0.00004 - +,0.04293 ,0.00896 ,0.00183 ,0.00004 ,0.00003 ,0.00001 ,0.00004/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),K=1,19)/ - + 0.13926 ,0.03092 ,0.02385 ,0.00013 ,-0.00003 ,-0.00002 ,0.00002 - +,0.12138 ,0.02666 ,0.01727 ,0.00012 ,-0.00001 ,-0.00002 ,0.00003 - +,0.10736 ,0.02331 ,0.01299 ,0.00010 ,-0.00003 ,-0.00002 ,0.00003 - +,0.09611 ,0.02066 ,0.01009 ,0.00008 ,-0.00001 ,-0.00001 ,0.00003 - +,0.08660 ,0.01850 ,0.00802 ,0.00011 ,0.00000 ,-0.00001 ,0.00003 - +,0.07881 ,0.01670 ,0.00652 ,0.00009 ,0.00000 ,-0.00002 ,0.00002 - +,0.07218 ,0.01518 ,0.00539 ,0.00008 ,0.00000 ,-0.00001 ,0.00003 - +,0.06646 ,0.01388 ,0.00452 ,0.00007 ,0.00001 ,-0.00002 ,0.00003 - +,0.06152 ,0.01276 ,0.00384 ,0.00004 ,0.00000 ,-0.00002 ,0.00001 - +,0.05706 ,0.01179 ,0.00331 ,0.00005 ,0.00001 ,0.00000 ,0.00003 - +,0.05316 ,0.01093 ,0.00287 ,0.00005 ,0.00001 ,0.00000 ,0.00003 - +,0.04970 ,0.01016 ,0.00252 ,0.00004 ,0.00001 ,0.00000 ,0.00002 - +,0.04660 ,0.00948 ,0.00223 ,0.00004 ,0.00000 ,-0.00001 ,0.00001 - +,0.04381 ,0.00887 ,0.00199 ,0.00004 ,0.00000 ,-0.00001 ,0.00001 - +,0.04129 ,0.00833 ,0.00178 ,0.00004 ,0.00001 ,-0.00001 ,0.00002 - +,0.03898 ,0.00784 ,0.00161 ,0.00004 ,0.00000 ,-0.00001 ,0.00001 - +,0.03689 ,0.00739 ,0.00146 ,0.00004 ,0.00001 ,0.00000 ,0.00001 - +,0.03500 ,0.00699 ,0.00133 ,0.00004 ,0.00001 ,0.00000 ,0.00001 - +,0.03327 ,0.00662 ,0.00122 ,0.00004 ,0.00001 ,0.00000 ,0.00001/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),K=1,19)/ - + 0.09026 ,0.01780 ,0.01192 ,0.00001 ,-0.00002 ,-0.00001 ,-0.00001 - +,0.07738 ,0.01511 ,0.00837 ,0.00005 ,-0.00001 ,-0.00001 ,0.00000 - +,0.06751 ,0.01303 ,0.00614 ,0.00003 ,0.00000 ,-0.00003 ,-0.00001 - +,0.05979 ,0.01142 ,0.00466 ,0.00001 ,0.00000 ,-0.00001 ,0.00001 - +,0.05335 ,0.01011 ,0.00364 ,0.00001 ,0.00001 ,-0.00001 ,0.00001 - +,0.04812 ,0.00904 ,0.00291 ,0.00001 ,0.00001 ,0.00001 ,0.00001 - +,0.04360 ,0.00814 ,0.00237 ,0.00002 ,0.00001 ,0.00001 ,0.00001 - +,0.03977 ,0.00738 ,0.00196 ,0.00002 ,0.00001 ,0.00000 ,0.00001 - +,0.03645 ,0.00672 ,0.00165 ,0.00002 ,0.00000 ,0.00000 ,0.00001 - +,0.03360 ,0.00616 ,0.00140 ,0.00001 ,0.00000 ,0.00000 ,0.00001 - +,0.03108 ,0.00567 ,0.00121 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02885 ,0.00523 ,0.00105 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02686 ,0.00485 ,0.00092 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02514 ,0.00452 ,0.00082 ,0.00000 ,0.00001 ,0.00000 ,0.00001 - +,0.02359 ,0.00422 ,0.00073 ,0.00000 ,0.00001 ,0.00000 ,0.00001 - +,0.02214 ,0.00395 ,0.00065 ,0.00000 ,0.00001 ,0.00000 ,0.00001 - +,0.02084 ,0.00370 ,0.00059 ,0.00000 ,0.00001 ,0.00000 ,0.00001 - +,0.01966 ,0.00348 ,0.00053 ,0.00000 ,0.00001 ,0.00000 ,0.00001 - +,0.01859 ,0.00328 ,0.00049 ,0.00000 ,0.00001 ,0.00000 ,0.00001/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),K=1,19)/ - + 0.05347 ,0.00926 ,0.00538 ,0.00002 ,-0.00001 ,-0.00001 ,-0.00001 - +,0.04515 ,0.00773 ,0.00366 ,0.00002 ,-0.00001 ,-0.00001 ,-0.00001 - +,0.03891 ,0.00658 ,0.00262 ,0.00000 ,0.00000 ,-0.00001 ,0.00000 - +,0.03392 ,0.00569 ,0.00194 ,0.00002 ,0.00000 ,0.00000 ,0.00001 - +,0.03000 ,0.00497 ,0.00148 ,0.00000 ,0.00000 ,-0.00001 ,0.00000 - +,0.02673 ,0.00440 ,0.00117 ,0.00000 ,0.00000 ,-0.00001 ,0.00000 - +,0.02398 ,0.00393 ,0.00094 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.02167 ,0.00353 ,0.00076 ,0.00001 ,0.00000 ,0.00000 ,0.00001 - +,0.01971 ,0.00318 ,0.00064 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01802 ,0.00289 ,0.00054 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01654 ,0.00264 ,0.00046 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01523 ,0.00242 ,0.00039 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01407 ,0.00223 ,0.00034 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01307 ,0.00206 ,0.00030 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01218 ,0.00191 ,0.00027 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01138 ,0.00178 ,0.00024 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01066 ,0.00166 ,0.00021 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01001 ,0.00155 ,0.00019 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00941 ,0.00146 ,0.00018 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),K=1,19)/ - + 0.02803 ,0.00416 ,0.00209 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.02331 ,0.00341 ,0.00138 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01975 ,0.00287 ,0.00096 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01700 ,0.00244 ,0.00069 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01480 ,0.00211 ,0.00052 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01304 ,0.00185 ,0.00040 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01159 ,0.00163 ,0.00032 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01036 ,0.00145 ,0.00026 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00935 ,0.00130 ,0.00021 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00845 ,0.00117 ,0.00017 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00769 ,0.00106 ,0.00015 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00703 ,0.00096 ,0.00013 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00646 ,0.00088 ,0.00011 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00596 ,0.00081 ,0.00010 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00552 ,0.00074 ,0.00008 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00512 ,0.00069 ,0.00007 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00476 ,0.00064 ,0.00007 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00444 ,0.00059 ,0.00006 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00415 ,0.00055 ,0.00005 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),K=1,19)/ - + 0.01242 ,0.00153 ,0.00066 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01009 ,0.00123 ,0.00042 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00839 ,0.00101 ,0.00028 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00711 ,0.00085 ,0.00020 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00609 ,0.00072 ,0.00014 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00530 ,0.00062 ,0.00011 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00464 ,0.00054 ,0.00008 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00411 ,0.00048 ,0.00007 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00366 ,0.00042 ,0.00005 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00328 ,0.00038 ,0.00004 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00295 ,0.00034 ,0.00004 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00267 ,0.00030 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00243 ,0.00027 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00222 ,0.00025 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00204 ,0.00023 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00188 ,0.00021 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00173 ,0.00019 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00160 ,0.00018 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00149 ,0.00016 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),K=1,19)/ - + 0.00087 ,0.00006 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00067 ,0.00005 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00053 ,0.00004 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00043 ,0.00003 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00035 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00029 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00025 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00021 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00018 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00016 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00014 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00012 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00011 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00010 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00009 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00008 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00007 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00006 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00006 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - + 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - + 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - + 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - + .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - + .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - + .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - + .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,4,5,0,0,5/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C -C Don't let x be altered if it's out of range!! - XSAVE=X -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(71,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C + F(6,N,M) -C 1=UV 2=DV 3=GLUE 4=(Ubar+Dbar)/2 5=Cbar 7=Bbar 6=Sbar - DO 25 I=1,7 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=1,6 - DO 30 K=1,19 - 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) - 50 FORMAT(7F10.5) - DO 40 I=1,7 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,7 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - + + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) -C this SEA is (Ubar+Dbar)/2 - SEA=G(4) - STR=G(6) - CHM=G(5) - GL =G(3) - BOT=G(7) -C -C restore x - X=XSAVE -C - RETURN - END diff --git a/PDF/spdf/strh3b1.F b/PDF/spdf/strh3b1.F deleted file mode 100644 index df48753c41a..00000000000 --- a/PDF/spdf/strh3b1.F +++ /dev/null @@ -1,1015 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:24 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:52 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE STRH3B1(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C -C :::::::::::: HARRIMAN MARTIN ROBERTS STIRLING (B) SEA=UBAR=DBAR=2SBAR -C -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(7,NX,19),G(7),XX(NX),N0(7) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),K=1,19)/ - + 0.03284 ,0.00696 ,4.40392 ,0.02535 ,0.01430 ,0.00000 ,0.01997 - +,0.03318 ,0.00721 ,9.12438 ,0.13000 ,0.11849 ,0.00000 ,0.12439 - +,0.03348 ,0.00745 ,15.20652 ,0.27574 ,0.26380 ,0.00000 ,0.26992 - +,0.03376 ,0.00767 ,22.43690 ,0.45034 ,0.43799 ,0.00000 ,0.44431 - +,0.03402 ,0.00788 ,30.80121 ,0.65522 ,0.64248 ,0.00609 ,0.64900 - +,0.03425 ,0.00808 ,40.23033 ,0.88932 ,0.87621 ,0.11324 ,0.88291 - +,0.03447 ,0.00826 ,50.55551 ,1.14857 ,1.13511 ,0.40239 ,1.14198 - +,0.03468 ,0.00845 ,61.78839 ,1.43465 ,1.42085 ,0.69468 ,1.42789 - +,0.03487 ,0.00862 ,73.88997 ,1.74704 ,1.73292 ,1.01126 ,1.74012 - +,0.03506 ,0.00879 ,86.83414 ,2.08544 ,2.07100 ,1.35528 ,2.07837 - +,0.03523 ,0.00896,100.38220 ,2.44368 ,2.42893 ,1.71826 ,2.43645 - +,0.03540 ,0.00911,114.50568 ,2.82176 ,2.80673 ,2.10093 ,2.81439 - +,0.03556 ,0.00927,129.39062 ,3.22489 ,3.20957 ,2.50842 ,3.21737 - +,0.03571 ,0.00942,144.54845 ,3.64010 ,3.62449 ,2.92778 ,3.63244 - +,0.03586 ,0.00956,160.33934 ,4.07730 ,4.06143 ,3.36894 ,4.06951 - +,0.03600 ,0.00970,176.48483 ,4.52911 ,4.51297 ,3.82453 ,4.52118 - +,0.03614 ,0.00984,193.03302 ,4.99709 ,4.98069 ,4.29613 ,4.98903 - +,0.03627 ,0.00998,209.91779 ,5.47943 ,5.46279 ,4.78194 ,5.47125 - +,0.03640 ,0.01011,227.13158 ,5.97606 ,5.95917 ,5.28190 ,5.96775/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),K=1,19)/ - + 0.03720 ,0.00903 ,4.31214 ,0.03008 ,0.01522 ,0.00000 ,0.02276 - +,0.03762 ,0.00936 ,8.49182 ,0.12834 ,0.11291 ,0.00000 ,0.12073 - +,0.03799 ,0.00967 ,13.68568 ,0.25717 ,0.24120 ,0.00000 ,0.24930 - +,0.03833 ,0.00995 ,19.69257 ,0.40721 ,0.39073 ,0.00000 ,0.39908 - +,0.03865 ,0.01022 ,26.48642 ,0.57962 ,0.56266 ,0.00508 ,0.57125 - +,0.03894 ,0.01048 ,33.99916 ,0.77326 ,0.75585 ,0.09315 ,0.76467 - +,0.03922 ,0.01072 ,42.08759 ,0.98461 ,0.96676 ,0.32936 ,0.97580 - +,0.03948 ,0.01095 ,50.75618 ,1.21482 ,1.19656 ,0.56479 ,1.20581 - +,0.03973 ,0.01118 ,59.96977 ,1.46330 ,1.44464 ,0.81677 ,1.45409 - +,0.03996 ,0.01140 ,69.70428 ,1.72964 ,1.71060 ,1.08779 ,1.72023 - +,0.04019 ,0.01161 ,79.77594 ,2.00885 ,1.98943 ,1.37094 ,1.99925 - +,0.04040 ,0.01181 ,90.16414 ,2.30086 ,2.28108 ,1.66677 ,2.29108 - +,0.04061 ,0.01200,101.00890 ,2.60968 ,2.58955 ,1.97923 ,2.59973 - +,0.04081 ,0.01220,111.94632 ,2.92518 ,2.90472 ,2.29818 ,2.91506 - +,0.04100 ,0.01238,123.24588 ,3.25503 ,3.23424 ,2.63132 ,3.24475 - +,0.04118 ,0.01256,134.70416 ,3.59352 ,3.57241 ,2.97295 ,3.58307 - +,0.04136 ,0.01274,146.35796 ,3.94182 ,3.92040 ,3.32425 ,3.93122 - +,0.04154 ,0.01291,158.16197 ,4.29860 ,4.27688 ,3.68392 ,4.28785 - +,0.04170 ,0.01307,170.11288 ,4.66378 ,4.64176 ,4.05185 ,4.65287/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),K=1,19)/ - + 0.04200 ,0.01173 ,4.22195 ,0.03575 ,0.01596 ,0.00000 ,0.02592 - +,0.04250 ,0.01215 ,7.90201 ,0.12711 ,0.10659 ,0.00000 ,0.11692 - +,0.04296 ,0.01255 ,12.31450 ,0.24038 ,0.21919 ,0.00000 ,0.22986 - +,0.04337 ,0.01292 ,17.27960 ,0.36882 ,0.34699 ,0.00000 ,0.35798 - +,0.04376 ,0.01326 ,22.76945 ,0.51339 ,0.49097 ,0.00422 ,0.50225 - +,0.04412 ,0.01359 ,28.72366 ,0.67303 ,0.65005 ,0.07636 ,0.66162 - +,0.04447 ,0.01390 ,35.02542 ,0.84475 ,0.82123 ,0.26867 ,0.83307 - +,0.04479 ,0.01420 ,41.67758 ,1.02937 ,1.00534 ,0.45764 ,1.01744 - +,0.04510 ,0.01449 ,48.65182 ,1.22632 ,1.20180 ,0.65751 ,1.21414 - +,0.04540 ,0.01477 ,55.92921 ,1.43520 ,1.41021 ,0.87027 ,1.42279 - +,0.04569 ,0.01504 ,63.37061 ,1.65201 ,1.62656 ,1.09035 ,1.63937 - +,0.04596 ,0.01530 ,70.96326 ,1.87670 ,1.85082 ,1.31820 ,1.86384 - +,0.04622 ,0.01555 ,78.81360 ,2.11236 ,2.08606 ,1.55688 ,2.09929 - +,0.04648 ,0.01579 ,86.65297 ,2.35116 ,2.32444 ,1.79853 ,2.33788 - +,0.04672 ,0.01603 ,94.68379 ,2.59901 ,2.57190 ,2.04909 ,2.58553 - +,0.04696 ,0.01626,102.75859 ,2.85153 ,2.82404 ,2.30422 ,2.83787 - +,0.04719 ,0.01648,110.90706 ,3.10968 ,3.08181 ,2.56484 ,3.09582 - +,0.04741 ,0.01670,119.09875 ,3.37243 ,3.34420 ,2.82996 ,3.35839 - +,0.04763 ,0.01691,127.33371 ,3.63975 ,3.61117 ,3.09957 ,3.62554/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),K=1,19)/ - + 0.04501 ,0.01367 ,4.16980 ,0.03959 ,0.01625 ,0.00000 ,0.02797 - +,0.04557 ,0.01416 ,7.57531 ,0.12666 ,0.10250 ,0.00000 ,0.11463 - +,0.04607 ,0.01462 ,11.57510 ,0.23143 ,0.20649 ,0.00000 ,0.21901 - +,0.04654 ,0.01504 ,16.00430 ,0.34846 ,0.32281 ,0.00000 ,0.33569 - +,0.04698 ,0.01545 ,20.83687 ,0.47864 ,0.45232 ,0.00378 ,0.46553 - +,0.04739 ,0.01583 ,26.01871 ,0.62098 ,0.59402 ,0.06784 ,0.60756 - +,0.04778 ,0.01619 ,31.44792 ,0.77279 ,0.74522 ,0.23806 ,0.75906 - +,0.04815 ,0.01654 ,37.12772 ,0.93476 ,0.90661 ,0.40393 ,0.92075 - +,0.04850 ,0.01687 ,43.03453 ,1.10636 ,1.07766 ,0.57814 ,1.09207 - +,0.04884 ,0.01719 ,49.15274 ,1.28721 ,1.25798 ,0.76246 ,1.27266 - +,0.04917 ,0.01750 ,55.36516 ,1.47383 ,1.44409 ,0.95201 ,1.45903 - +,0.04948 ,0.01780 ,61.66324 ,1.66619 ,1.63597 ,1.14719 ,1.65114 - +,0.04978 ,0.01809 ,68.13779 ,1.86697 ,1.83627 ,1.35066 ,1.85168 - +,0.05007 ,0.01837 ,74.56529 ,2.06942 ,2.03826 ,1.55565 ,2.05390 - +,0.05035 ,0.01864 ,81.11665 ,2.27864 ,2.24704 ,1.76730 ,2.26291 - +,0.05063 ,0.01890 ,87.67047 ,2.49092 ,2.45889 ,1.98189 ,2.47497 - +,0.05089 ,0.01916 ,94.25323 ,2.70706 ,2.67461 ,2.20023 ,2.69090 - +,0.05115 ,0.01941,100.84114 ,2.92624 ,2.89339 ,2.42153 ,2.90988 - +,0.05140 ,0.01965,107.43588 ,3.14844 ,3.11520 ,2.64576 ,3.13189/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),K=1,19)/ - + 0.04724 ,0.01523 ,4.13300 ,0.04259 ,0.01639 ,0.00000 ,0.02952 - +,0.04784 ,0.01578 ,7.35114 ,0.12650 ,0.09939 ,0.00000 ,0.11298 - +,0.04839 ,0.01629 ,11.07627 ,0.22549 ,0.19754 ,0.00000 ,0.21155 - +,0.04889 ,0.01676 ,15.15478 ,0.33494 ,0.30620 ,0.00000 ,0.32061 - +,0.04937 ,0.01721 ,19.56265 ,0.45569 ,0.42621 ,0.00349 ,0.44099 - +,0.04981 ,0.01763 ,24.25081 ,0.58678 ,0.55662 ,0.06232 ,0.57174 - +,0.05024 ,0.01803 ,29.12737 ,0.72575 ,0.69493 ,0.21828 ,0.71038 - +,0.05064 ,0.01842 ,34.19632 ,0.87322 ,0.84177 ,0.36936 ,0.85754 - +,0.05103 ,0.01879 ,39.43730 ,1.02869 ,0.99664 ,0.52723 ,1.01271 - +,0.05140 ,0.01914 ,44.83731 ,1.19181 ,1.15918 ,0.69354 ,1.17554 - +,0.05176 ,0.01949 ,50.29285 ,1.35943 ,1.32625 ,0.86387 ,1.34289 - +,0.05210 ,0.01982 ,55.79800 ,1.53153 ,1.49782 ,1.03857 ,1.51473 - +,0.05243 ,0.02014 ,61.43449 ,1.71054 ,1.67631 ,1.22005 ,1.69348 - +,0.05276 ,0.02045 ,67.00589 ,1.89040 ,1.85568 ,1.40226 ,1.87309 - +,0.05307 ,0.02075 ,72.66426 ,2.07572 ,2.04052 ,1.58980 ,2.05817 - +,0.05337 ,0.02104 ,78.30399 ,2.26317 ,2.22751 ,1.77938 ,2.24539 - +,0.05366 ,0.02132 ,83.94954 ,2.45349 ,2.41738 ,1.97174 ,2.43549 - +,0.05395 ,0.02160 ,89.58122 ,2.64597 ,2.60943 ,2.16616 ,2.62776 - +,0.05423 ,0.02187 ,95.20143 ,2.84060 ,2.80364 ,2.36266 ,2.82218/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),K=1,19)/ - + 0.04902 ,0.01657 ,4.10455 ,0.04508 ,0.01645 ,0.00000 ,0.03078 - +,0.04965 ,0.01716 ,7.18139 ,0.12648 ,0.09686 ,0.00000 ,0.11169 - +,0.05023 ,0.01772 ,10.70328 ,0.22113 ,0.19061 ,0.00000 ,0.20589 - +,0.05077 ,0.01823 ,14.52538 ,0.32498 ,0.29362 ,0.00000 ,0.30933 - +,0.05128 ,0.01872 ,18.62582 ,0.43882 ,0.40667 ,0.00328 ,0.42277 - +,0.05176 ,0.01917 ,22.95932 ,0.56174 ,0.52885 ,0.05832 ,0.54533 - +,0.05221 ,0.01961 ,27.44156 ,0.69143 ,0.65784 ,0.20396 ,0.67467 - +,0.05264 ,0.02003 ,32.07738 ,0.82848 ,0.79421 ,0.34439 ,0.81138 - +,0.05306 ,0.02043 ,36.84875 ,0.97240 ,0.93749 ,0.49057 ,0.95498 - +,0.05346 ,0.02081 ,41.74457 ,1.12287 ,1.08735 ,0.64404 ,1.10515 - +,0.05384 ,0.02118 ,46.67130 ,1.27699 ,1.24089 ,0.80070 ,1.25898 - +,0.05421 ,0.02154 ,51.62476 ,1.43476 ,1.39809 ,0.96090 ,1.41647 - +,0.05457 ,0.02188 ,56.68010 ,1.59841 ,1.56119 ,1.12687 ,1.57984 - +,0.05492 ,0.02222 ,61.66023 ,1.76238 ,1.72464 ,1.29304 ,1.74356 - +,0.05525 ,0.02254 ,66.70381 ,1.93093 ,1.89268 ,1.46368 ,1.91185 - +,0.05558 ,0.02286 ,71.71632 ,2.10101 ,2.06227 ,1.63575 ,2.08169 - +,0.05590 ,0.02316 ,76.72064 ,2.27331 ,2.23410 ,1.80996 ,2.25376 - +,0.05621 ,0.02346 ,81.69994 ,2.44720 ,2.40753 ,1.98567 ,2.42742 - +,0.05651 ,0.02375 ,86.65701 ,2.62269 ,2.58257 ,2.16290 ,2.60268/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),K=1,19)/ - + 0.05484 ,0.02152 ,4.01623 ,0.05391 ,0.01630 ,0.00000 ,0.03510 - +,0.05560 ,0.02229 ,6.67521 ,0.12715 ,0.08831 ,0.00000 ,0.10773 - +,0.05630 ,0.02300 ,9.61557 ,0.20911 ,0.16914 ,0.00000 ,0.18913 - +,0.05696 ,0.02367 ,12.72015 ,0.29701 ,0.25601 ,0.00000 ,0.27652 - +,0.05758 ,0.02429 ,15.97461 ,0.39148 ,0.34950 ,0.00270 ,0.37050 - +,0.05816 ,0.02488 ,19.34596 ,0.49177 ,0.44888 ,0.04726 ,0.47034 - +,0.05873 ,0.02543 ,22.77132 ,0.59604 ,0.55229 ,0.16459 ,0.57418 - +,0.05926 ,0.02597 ,26.25813 ,0.70475 ,0.66019 ,0.27607 ,0.68249 - +,0.05978 ,0.02648 ,29.79565 ,0.81754 ,0.77220 ,0.39071 ,0.79490 - +,0.06028 ,0.02697 ,33.37811 ,0.93418 ,0.88809 ,0.50978 ,0.91116 - +,0.06076 ,0.02744 ,36.93810 ,1.05241 ,1.00562 ,0.63007 ,1.02904 - +,0.06122 ,0.02790 ,40.47609 ,1.17229 ,1.12481 ,0.75192 ,1.14858 - +,0.06167 ,0.02834 ,44.05037 ,1.29556 ,1.24743 ,0.87708 ,1.27153 - +,0.06211 ,0.02876 ,47.53323 ,1.41800 ,1.36925 ,1.00130 ,1.39366 - +,0.06254 ,0.02918 ,51.02899 ,1.54291 ,1.49355 ,1.12790 ,1.51827 - +,0.06295 ,0.02958 ,54.47119 ,1.66800 ,1.61806 ,1.25461 ,1.64307 - +,0.06335 ,0.02996 ,57.87854 ,1.79385 ,1.74334 ,1.38200 ,1.76864 - +,0.06374 ,0.03034 ,61.24104 ,1.92000 ,1.86895 ,1.50963 ,1.89452 - +,0.06413 ,0.03071 ,64.56276 ,2.04651 ,1.99493 ,1.63754 ,2.02076/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),K=1,19)/ - + 0.06113 ,0.02797 ,3.92681 ,0.06477 ,0.01559 ,0.00000 ,0.04017 - +,0.06206 ,0.02896 ,6.19612 ,0.12943 ,0.07873 ,0.00000 ,0.10408 - +,0.06292 ,0.02988 ,8.62123 ,0.19983 ,0.14775 ,0.00000 ,0.17379 - +,0.06373 ,0.03073 ,11.11149 ,0.27376 ,0.22040 ,0.00000 ,0.24709 - +,0.06450 ,0.03153 ,13.66082 ,0.35164 ,0.29710 ,0.00220 ,0.32438 - +,0.06523 ,0.03228 ,16.24783 ,0.43292 ,0.37728 ,0.03802 ,0.40512 - +,0.06593 ,0.03299 ,18.82796 ,0.51615 ,0.45947 ,0.13185 ,0.48783 - +,0.06661 ,0.03367 ,21.41130 ,0.60174 ,0.54408 ,0.21968 ,0.57293 - +,0.06726 ,0.03433 ,23.99312 ,0.68944 ,0.63084 ,0.30884 ,0.66016 - +,0.06789 ,0.03495 ,26.57210 ,0.77908 ,0.71960 ,0.40045 ,0.74937 - +,0.06849 ,0.03555 ,29.10110 ,0.86900 ,0.80867 ,0.49201 ,0.83886 - +,0.06908 ,0.03613 ,31.58377 ,0.95925 ,0.89811 ,0.58384 ,0.92871 - +,0.06965 ,0.03669 ,34.06543 ,1.05122 ,0.98932 ,0.67733 ,1.02031 - +,0.07021 ,0.03723 ,36.45543 ,1.14176 ,1.07911 ,0.76929 ,1.11047 - +,0.07075 ,0.03775 ,38.83182 ,1.23339 ,1.17003 ,0.86228 ,1.20175 - +,0.07128 ,0.03825 ,41.14844 ,1.32443 ,1.26039 ,0.95461 ,1.29245 - +,0.07179 ,0.03874 ,43.42090 ,1.41535 ,1.35065 ,1.04677 ,1.38305 - +,0.07229 ,0.03921 ,45.64388 ,1.50585 ,1.44052 ,1.13846 ,1.47323 - +,0.07278 ,0.03968 ,47.82164 ,1.59601 ,1.53006 ,1.22974 ,1.56308/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),K=1,19)/ - + 0.06509 ,0.03261 ,3.87296 ,0.07232 ,0.01490 ,0.00000 ,0.04361 - +,0.06614 ,0.03376 ,5.92517 ,0.13189 ,0.07277 ,0.00000 ,0.10233 - +,0.06713 ,0.03482 ,8.07458 ,0.19602 ,0.13535 ,0.00000 ,0.16570 - +,0.06806 ,0.03581 ,10.24527 ,0.26257 ,0.20048 ,0.00000 ,0.23154 - +,0.06895 ,0.03673 ,12.43581 ,0.33185 ,0.26845 ,0.00195 ,0.30017 - +,0.06979 ,0.03760 ,14.63097 ,0.40340 ,0.33877 ,0.03331 ,0.37111 - +,0.07060 ,0.03842 ,16.79559 ,0.47601 ,0.41023 ,0.11525 ,0.44315 - +,0.07138 ,0.03920 ,18.94098 ,0.55004 ,0.48319 ,0.19124 ,0.51664 - +,0.07214 ,0.03995 ,21.06538 ,0.62532 ,0.55744 ,0.26780 ,0.59141 - +,0.07286 ,0.04067 ,23.16956 ,0.70174 ,0.63288 ,0.34592 ,0.66735 - +,0.07357 ,0.04136 ,25.21596 ,0.77788 ,0.70810 ,0.42350 ,0.74303 - +,0.07425 ,0.04202 ,27.20955 ,0.85384 ,0.78319 ,0.50085 ,0.81856 - +,0.07491 ,0.04266 ,29.18921 ,0.93083 ,0.85934 ,0.57916 ,0.89513 - +,0.07556 ,0.04328 ,31.08171 ,1.00619 ,0.93389 ,0.65576 ,0.97009 - +,0.07619 ,0.04387 ,32.95230 ,1.08209 ,1.00903 ,0.73285 ,1.04561 - +,0.07680 ,0.04445 ,34.76456 ,1.15715 ,1.08334 ,0.80903 ,1.12030 - +,0.07740 ,0.04501 ,36.53200 ,1.23176 ,1.15724 ,0.88472 ,1.19455 - +,0.07798 ,0.04555 ,38.25133 ,1.30571 ,1.23051 ,0.95971 ,1.26816 - +,0.07855 ,0.04607 ,39.92677 ,1.37907 ,1.30321 ,1.03407 ,1.34120/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),K=1,19)/ - + 0.06806 ,0.03638 ,3.83350 ,0.07836 ,0.01431 ,0.00000 ,0.04634 - +,0.06923 ,0.03765 ,5.73552 ,0.13436 ,0.06848 ,0.00000 ,0.10143 - +,0.07034 ,0.03882 ,7.69896 ,0.19424 ,0.12670 ,0.00000 ,0.16049 - +,0.07137 ,0.03991 ,9.65793 ,0.25585 ,0.18679 ,0.00000 ,0.22134 - +,0.07236 ,0.04093 ,11.61411 ,0.31944 ,0.24898 ,0.00178 ,0.28424 - +,0.07330 ,0.04189 ,13.55643 ,0.38462 ,0.31285 ,0.03024 ,0.34877 - +,0.07421 ,0.04280 ,15.45572 ,0.45031 ,0.37732 ,0.10442 ,0.41386 - +,0.07508 ,0.04367 ,17.32396 ,0.51689 ,0.44275 ,0.17278 ,0.47986 - +,0.07593 ,0.04449 ,19.16130 ,0.58420 ,0.50897 ,0.24124 ,0.54663 - +,0.07674 ,0.04529 ,20.96974 ,0.65218 ,0.57593 ,0.31076 ,0.61410 - +,0.07753 ,0.04604 ,22.71764 ,0.71959 ,0.64236 ,0.37947 ,0.68103 - +,0.07830 ,0.04677 ,24.41061 ,0.78653 ,0.70838 ,0.44767 ,0.74751 - +,0.07904 ,0.04748 ,26.08362 ,0.85412 ,0.77507 ,0.51644 ,0.81465 - +,0.07976 ,0.04815 ,27.67387 ,0.91999 ,0.84010 ,0.58345 ,0.88011 - +,0.08047 ,0.04880 ,29.23889 ,0.98610 ,0.90540 ,0.65063 ,0.94581 - +,0.08115 ,0.04944 ,30.74783 ,1.05123 ,0.96976 ,0.71679 ,1.01056 - +,0.08182 ,0.05005 ,32.21312 ,1.11577 ,1.03356 ,0.78231 ,1.07473 - +,0.08248 ,0.05064 ,33.63249 ,1.17953 ,1.09661 ,0.84702 ,1.13813 - +,0.08311 ,0.05121 ,35.00999 ,1.24259 ,1.15898 ,0.91098 ,1.20085/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),K=1,19)/ - + 0.07050 ,0.03960 ,3.80150 ,0.08368 ,0.01396 ,0.00000 ,0.04881 - +,0.07180 ,0.04098 ,5.58683 ,0.13726 ,0.06561 ,0.00000 ,0.10144 - +,0.07303 ,0.04225 ,7.40790 ,0.19394 ,0.12055 ,0.00000 ,0.15726 - +,0.07418 ,0.04343 ,9.20683 ,0.25180 ,0.17682 ,0.00000 ,0.21433 - +,0.07528 ,0.04453 ,10.98732 ,0.31109 ,0.23466 ,0.00166 ,0.27290 - +,0.07632 ,0.04556 ,12.74263 ,0.37149 ,0.29369 ,0.02794 ,0.33262 - +,0.07733 ,0.04654 ,14.44660 ,0.43203 ,0.35297 ,0.09634 ,0.39254 - +,0.07830 ,0.04748 ,16.11258 ,0.49307 ,0.41282 ,0.15901 ,0.45299 - +,0.07924 ,0.04836 ,17.74155 ,0.55450 ,0.47313 ,0.22150 ,0.51387 - +,0.08014 ,0.04922 ,19.33635 ,0.61629 ,0.53386 ,0.28469 ,0.57512 - +,0.08102 ,0.05003 ,20.86977 ,0.67732 ,0.59388 ,0.34692 ,0.63565 - +,0.08187 ,0.05081 ,22.34760 ,0.73769 ,0.65331 ,0.40845 ,0.69555 - +,0.08269 ,0.05157 ,23.80211 ,0.79843 ,0.71313 ,0.47028 ,0.75584 - +,0.08350 ,0.05229 ,25.17897 ,0.85744 ,0.77129 ,0.53034 ,0.81443 - +,0.08428 ,0.05299 ,26.52875 ,0.91650 ,0.82952 ,0.59039 ,0.87307 - +,0.08504 ,0.05367 ,27.82426 ,0.97450 ,0.88673 ,0.64934 ,0.93068 - +,0.08578 ,0.05432 ,29.07791 ,1.03181 ,0.94329 ,0.70756 ,0.98762 - +,0.08651 ,0.05495 ,30.28810 ,1.08829 ,0.99904 ,0.76491 ,1.04373 - +,0.08721 ,0.05557 ,31.45871 ,1.14399 ,1.05405 ,0.82146 ,1.09909/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),K=1,19)/ - + 0.07916 ,0.05161 ,3.69447 ,0.10284 ,0.01251 ,0.00000 ,0.05768 - +,0.08099 ,0.05337 ,5.13075 ,0.14869 ,0.05619 ,0.00000 ,0.10245 - +,0.08272 ,0.05499 ,6.54118 ,0.19583 ,0.10140 ,0.00000 ,0.14864 - +,0.08435 ,0.05648 ,7.89038 ,0.24286 ,0.14668 ,0.00000 ,0.19480 - +,0.08589 ,0.05787 ,9.18862 ,0.28998 ,0.19220 ,0.00130 ,0.24112 - +,0.08737 ,0.05918 ,10.43695 ,0.33701 ,0.23777 ,0.02158 ,0.28743 - +,0.08878 ,0.06040 ,11.62106 ,0.38334 ,0.28274 ,0.07402 ,0.33308 - +,0.09015 ,0.06157 ,12.75493 ,0.42928 ,0.32742 ,0.12125 ,0.37840 - +,0.09146 ,0.06268 ,13.84262 ,0.47482 ,0.37179 ,0.16762 ,0.42336 - +,0.09273 ,0.06374 ,14.88901 ,0.51999 ,0.41585 ,0.21390 ,0.46798 - +,0.09395 ,0.06475 ,15.87746 ,0.56404 ,0.45886 ,0.25890 ,0.51151 - +,0.09514 ,0.06571 ,16.81433 ,0.60709 ,0.50093 ,0.30287 ,0.55407 - +,0.09629 ,0.06664 ,17.72382 ,0.64992 ,0.54284 ,0.34659 ,0.59644 - +,0.09741 ,0.06753 ,18.57047 ,0.69108 ,0.58313 ,0.38860 ,0.63717 - +,0.09850 ,0.06838 ,19.39008 ,0.73186 ,0.62308 ,0.43019 ,0.67754 - +,0.09955 ,0.06921 ,20.16560 ,0.77153 ,0.66196 ,0.47064 ,0.71682 - +,0.10058 ,0.07001 ,20.90646 ,0.81037 ,0.70005 ,0.51023 ,0.75528 - +,0.10158 ,0.07078 ,21.61259 ,0.84831 ,0.73727 ,0.54889 ,0.79287 - +,0.10256 ,0.07152 ,22.28738 ,0.88542 ,0.77370 ,0.58670 ,0.82963/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),K=1,19)/ - + 0.09099 ,0.06750 ,3.56731 ,0.12679 ,0.01093 ,0.00000 ,0.06887 - +,0.09374 ,0.06973 ,4.67047 ,0.16522 ,0.04719 ,0.00001 ,0.10622 - +,0.09633 ,0.07177 ,5.71016 ,0.20344 ,0.08349 ,0.00001 ,0.14349 - +,0.09876 ,0.07363 ,6.66976 ,0.24059 ,0.11894 ,0.00001 ,0.17979 - +,0.10106 ,0.07536 ,7.56404 ,0.27689 ,0.15372 ,0.00101 ,0.21534 - +,0.10323 ,0.07697 ,8.39903 ,0.31233 ,0.18778 ,0.01619 ,0.25009 - +,0.10531 ,0.07848 ,9.17059 ,0.34657 ,0.22078 ,0.05521 ,0.28372 - +,0.10730 ,0.07991 ,9.89186 ,0.37991 ,0.25297 ,0.08968 ,0.31649 - +,0.10920 ,0.08126 ,10.56811 ,0.41240 ,0.28440 ,0.12296 ,0.34845 - +,0.11104 ,0.08254 ,11.20509 ,0.44412 ,0.31513 ,0.15567 ,0.37968 - +,0.11280 ,0.08375 ,11.79387 ,0.47461 ,0.34473 ,0.18705 ,0.40972 - +,0.11450 ,0.08492 ,12.34078 ,0.50400 ,0.37328 ,0.21730 ,0.43870 - +,0.11614 ,0.08603 ,12.86297 ,0.53288 ,0.40137 ,0.24701 ,0.46718 - +,0.11774 ,0.08708 ,13.33744 ,0.56028 ,0.42804 ,0.27523 ,0.49423 - +,0.11928 ,0.08810 ,13.79000 ,0.58713 ,0.45421 ,0.30286 ,0.52074 - +,0.12076 ,0.08908 ,14.21062 ,0.61297 ,0.47941 ,0.32946 ,0.54625 - +,0.12220 ,0.09002 ,14.60502 ,0.63799 ,0.50383 ,0.35523 ,0.57098 - +,0.12360 ,0.09092 ,14.97382 ,0.66219 ,0.52747 ,0.38015 ,0.59489 - +,0.12496 ,0.09178 ,15.32125 ,0.68563 ,0.55038 ,0.40429 ,0.61807/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),K=1,19)/ - + 0.10080 ,0.07919 ,3.47693 ,0.14281 ,0.00991 ,0.00000 ,0.07636 - +,0.10436 ,0.08173 ,4.39385 ,0.17681 ,0.04193 ,0.00001 ,0.10938 - +,0.10768 ,0.08403 ,5.23547 ,0.20994 ,0.07335 ,0.00001 ,0.14166 - +,0.11075 ,0.08614 ,5.99398 ,0.24162 ,0.10353 ,0.00001 ,0.17260 - +,0.11365 ,0.08808 ,6.68690 ,0.27210 ,0.13271 ,0.00086 ,0.20243 - +,0.11640 ,0.08986 ,7.32139 ,0.30143 ,0.16087 ,0.01344 ,0.23118 - +,0.11901 ,0.09154 ,7.89700 ,0.32943 ,0.18783 ,0.04567 ,0.25867 - +,0.12149 ,0.09312 ,8.42536 ,0.35636 ,0.21381 ,0.07379 ,0.28513 - +,0.12386 ,0.09461 ,8.91278 ,0.38232 ,0.23893 ,0.10065 ,0.31067 - +,0.12613 ,0.09601 ,9.36516 ,0.40742 ,0.26326 ,0.12681 ,0.33539 - +,0.12831 ,0.09734 ,9.77673 ,0.43130 ,0.28644 ,0.15166 ,0.35892 - +,0.13041 ,0.09861 ,10.15297 ,0.45412 ,0.30863 ,0.17544 ,0.38143 - +,0.13243 ,0.09981 ,10.50791 ,0.47638 ,0.33030 ,0.19862 ,0.40339 - +,0.13436 ,0.10096 ,10.82475 ,0.49730 ,0.35069 ,0.22045 ,0.42405 - +,0.13623 ,0.10206 ,11.12329 ,0.51766 ,0.37055 ,0.24168 ,0.44416 - +,0.13803 ,0.10310 ,11.39634 ,0.53709 ,0.38953 ,0.26197 ,0.46337 - +,0.13977 ,0.10411 ,11.64914 ,0.55577 ,0.40780 ,0.28149 ,0.48185 - +,0.14146 ,0.10507 ,11.88257 ,0.57371 ,0.42537 ,0.30025 ,0.49960 - +,0.14310 ,0.10599 ,12.09897 ,0.59098 ,0.44229 ,0.31832 ,0.51670/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),K=1,19)/ - + 0.10999 ,0.08885 ,3.40214 ,0.15479 ,0.00917 ,0.00000 ,0.08198 - +,0.11426 ,0.09161 ,4.19099 ,0.18558 ,0.03827 ,0.00001 ,0.11193 - +,0.11821 ,0.09410 ,4.90058 ,0.21512 ,0.06637 ,0.00001 ,0.14076 - +,0.12186 ,0.09637 ,5.52840 ,0.24301 ,0.09303 ,0.00001 ,0.16805 - +,0.12528 ,0.09846 ,6.09245 ,0.26953 ,0.11851 ,0.00076 ,0.19404 - +,0.12851 ,0.10037 ,6.60098 ,0.29478 ,0.14284 ,0.01166 ,0.21883 - +,0.13156 ,0.10216 ,7.05532 ,0.31865 ,0.16591 ,0.03950 ,0.24232 - +,0.13445 ,0.10383 ,7.46649 ,0.34139 ,0.18796 ,0.06357 ,0.26472 - +,0.13721 ,0.10540 ,7.84063 ,0.36314 ,0.20909 ,0.08637 ,0.28616 - +,0.13984 ,0.10688 ,8.18347 ,0.38401 ,0.22941 ,0.10842 ,0.30675 - +,0.14235 ,0.10828 ,8.49099 ,0.40370 ,0.24862 ,0.12923 ,0.32620 - +,0.14476 ,0.10960 ,8.76817 ,0.42239 ,0.26690 ,0.14901 ,0.34469 - +,0.14707 ,0.11086 ,9.02690 ,0.44050 ,0.28464 ,0.16818 ,0.36262 - +,0.14928 ,0.11205 ,9.25386 ,0.45741 ,0.30122 ,0.18612 ,0.37936 - +,0.15141 ,0.11319 ,9.46547 ,0.47376 ,0.31728 ,0.20348 ,0.39557 - +,0.15345 ,0.11427 ,9.65613 ,0.48927 ,0.33254 ,0.21997 ,0.41096 - +,0.15542 ,0.11531 ,9.83026 ,0.50411 ,0.34715 ,0.23577 ,0.42569 - +,0.15732 ,0.11630 ,9.98874 ,0.51827 ,0.36112 ,0.25087 ,0.43976 - +,0.15917 ,0.11724 ,10.13360 ,0.53182 ,0.37452 ,0.26535 ,0.45323/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),K=1,19)/ - + 0.11889 ,0.09726 ,3.33624 ,0.16417 ,0.00858 ,0.00001 ,0.08638 - +,0.12379 ,0.10018 ,4.02847 ,0.19240 ,0.03543 ,0.00001 ,0.11392 - +,0.12830 ,0.10282 ,4.64095 ,0.21914 ,0.06103 ,0.00002 ,0.14010 - +,0.13246 ,0.10520 ,5.17450 ,0.24412 ,0.08508 ,0.00001 ,0.16463 - +,0.13634 ,0.10737 ,5.64600 ,0.26766 ,0.10784 ,0.00069 ,0.18777 - +,0.13997 ,0.10937 ,6.06669 ,0.28985 ,0.12939 ,0.01038 ,0.20965 - +,0.14337 ,0.11125 ,6.43669 ,0.31068 ,0.14968 ,0.03506 ,0.23022 - +,0.14661 ,0.11298 ,6.76759 ,0.33038 ,0.16893 ,0.05625 ,0.24969 - +,0.14968 ,0.11460 ,7.06476 ,0.34908 ,0.18725 ,0.07618 ,0.26820 - +,0.15262 ,0.11613 ,7.33362 ,0.36689 ,0.20475 ,0.09533 ,0.28586 - +,0.15540 ,0.11756 ,7.57162 ,0.38360 ,0.22120 ,0.11330 ,0.30244 - +,0.15806 ,0.11891 ,7.78374 ,0.39936 ,0.23677 ,0.13032 ,0.31811 - +,0.16060 ,0.12019 ,7.97993 ,0.41456 ,0.25180 ,0.14672 ,0.33323 - +,0.16302 ,0.12141 ,8.14846 ,0.42864 ,0.26577 ,0.16198 ,0.34726 - +,0.16535 ,0.12256 ,8.30395 ,0.44219 ,0.27922 ,0.17667 ,0.36076 - +,0.16760 ,0.12364 ,8.44181 ,0.45499 ,0.29195 ,0.19058 ,0.37352 - +,0.16976 ,0.12468 ,8.56596 ,0.46717 ,0.30409 ,0.20385 ,0.38568 - +,0.17184 ,0.12567 ,8.67723 ,0.47874 ,0.31565 ,0.21648 ,0.39725 - +,0.17383 ,0.12663 ,8.77712 ,0.48976 ,0.32668 ,0.22855 ,0.40828/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),K=1,19)/ - + 0.16188 ,0.12981 ,3.06779 ,0.19062 ,0.00664 ,0.00001 ,0.09863 - +,0.16906 ,0.13314 ,3.47837 ,0.21025 ,0.02660 ,0.00001 ,0.11843 - +,0.17557 ,0.13606 ,3.81867 ,0.22808 ,0.04486 ,0.00002 ,0.13647 - +,0.18148 ,0.13866 ,4.09654 ,0.24409 ,0.06143 ,0.00002 ,0.15278 - +,0.18686 ,0.14100 ,4.32808 ,0.25867 ,0.07660 ,0.00047 ,0.16766 - +,0.19183 ,0.14310 ,4.52303 ,0.27199 ,0.09054 ,0.00685 ,0.18129 - +,0.19644 ,0.14501 ,4.68283 ,0.28408 ,0.10331 ,0.02292 ,0.19371 - +,0.20076 ,0.14675 ,4.81654 ,0.29520 ,0.11514 ,0.03637 ,0.20518 - +,0.20480 ,0.14836 ,4.92982 ,0.30545 ,0.12612 ,0.04874 ,0.21581 - +,0.20858 ,0.14986 ,5.02628 ,0.31498 ,0.13637 ,0.06039 ,0.22571 - +,0.21214 ,0.15125 ,5.10357 ,0.32371 ,0.14583 ,0.07115 ,0.23480 - +,0.21547 ,0.15254 ,5.16730 ,0.33172 ,0.15459 ,0.08112 ,0.24318 - +,0.21864 ,0.15375 ,5.22270 ,0.33928 ,0.16288 ,0.09056 ,0.25111 - +,0.22162 ,0.15485 ,5.26245 ,0.34608 ,0.17044 ,0.09920 ,0.25828 - +,0.22446 ,0.15590 ,5.29634 ,0.35249 ,0.17759 ,0.10739 ,0.26507 - +,0.22716 ,0.15688 ,5.32227 ,0.35840 ,0.18424 ,0.11503 ,0.27135 - +,0.22972 ,0.15780 ,5.34161 ,0.36390 ,0.19047 ,0.12220 ,0.27722 - +,0.23217 ,0.15865 ,5.35493 ,0.36902 ,0.19631 ,0.12893 ,0.28269 - +,0.23451 ,0.15945 ,5.36329 ,0.37378 ,0.20178 ,0.13526 ,0.28781/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),K=1,19)/ - + 0.24404 ,0.17507 ,2.65117 ,0.20079 ,0.00455 ,-0.00010 ,0.10263 - +,0.25313 ,0.17805 ,2.81940 ,0.21098 ,0.01790 ,-0.00014 ,0.11440 - +,0.26106 ,0.18055 ,2.94160 ,0.21966 ,0.02952 ,-0.00010 ,0.12457 - +,0.26802 ,0.18267 ,3.02668 ,0.22699 ,0.03964 ,-0.00009 ,0.13329 - +,0.27424 ,0.18450 ,3.08609 ,0.23325 ,0.04857 ,0.00017 ,0.14086 - +,0.27984 ,0.18605 ,3.12601 ,0.23864 ,0.05644 ,0.00389 ,0.14751 - +,0.28482 ,0.18744 ,3.14845 ,0.24321 ,0.06343 ,0.01317 ,0.15329 - +,0.28941 ,0.18862 ,3.16006 ,0.24718 ,0.06972 ,0.02074 ,0.15844 - +,0.29361 ,0.18963 ,3.16264 ,0.25064 ,0.07538 ,0.02751 ,0.16299 - +,0.29746 ,0.19051 ,3.15855 ,0.25367 ,0.08050 ,0.03371 ,0.16705 - +,0.30097 ,0.19130 ,3.14789 ,0.25625 ,0.08510 ,0.03931 ,0.17065 - +,0.30420 ,0.19198 ,3.13216 ,0.25841 ,0.08921 ,0.04436 ,0.17379 - +,0.30722 ,0.19260 ,3.11433 ,0.26035 ,0.09302 ,0.04904 ,0.17665 - +,0.30994 ,0.19312 ,3.09151 ,0.26193 ,0.09637 ,0.05326 ,0.17912 - +,0.31250 ,0.19359 ,3.06753 ,0.26332 ,0.09949 ,0.05717 ,0.18138 - +,0.31487 ,0.19399 ,3.04123 ,0.26443 ,0.10233 ,0.06072 ,0.18336 - +,0.31709 ,0.19432 ,3.01387 ,0.26537 ,0.10492 ,0.06400 ,0.18512 - +,0.31915 ,0.19459 ,2.98561 ,0.26616 ,0.10727 ,0.06703 ,0.18668 - +,0.32107 ,0.19482 ,2.95661 ,0.26679 ,0.10941 ,0.06982 ,0.18807/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),K=1,19)/ - + 0.31892 ,0.20760 ,2.30935 ,0.18989 ,0.00345 ,0.00001 ,0.09665 - +,0.32759 ,0.20951 ,2.36425 ,0.19468 ,0.01314 ,0.00001 ,0.10392 - +,0.33493 ,0.21095 ,2.39122 ,0.19836 ,0.02137 ,-0.00004 ,0.10986 - +,0.34121 ,0.21201 ,2.39697 ,0.20113 ,0.02834 ,0.00001 ,0.11476 - +,0.34655 ,0.21283 ,2.38937 ,0.20327 ,0.03425 ,0.00016 ,0.11879 - +,0.35118 ,0.21348 ,2.37261 ,0.20481 ,0.03942 ,0.00265 ,0.12212 - +,0.35531 ,0.21380 ,2.34862 ,0.20594 ,0.04380 ,0.00885 ,0.12491 - +,0.35888 ,0.21407 ,2.31956 ,0.20670 ,0.04768 ,0.01381 ,0.12720 - +,0.36204 ,0.21420 ,2.28776 ,0.20716 ,0.05112 ,0.01812 ,0.12914 - +,0.36485 ,0.21425 ,2.25446 ,0.20740 ,0.05417 ,0.02198 ,0.13079 - +,0.36725 ,0.21425 ,2.21906 ,0.20741 ,0.05678 ,0.02545 ,0.13212 - +,0.36942 ,0.21411 ,2.18262 ,0.20721 ,0.05909 ,0.02852 ,0.13320 - +,0.37141 ,0.21393 ,2.14680 ,0.20693 ,0.06120 ,0.03132 ,0.13412 - +,0.37305 ,0.21370 ,2.10982 ,0.20647 ,0.06302 ,0.03381 ,0.13478 - +,0.37457 ,0.21342 ,2.07382 ,0.20595 ,0.06467 ,0.03608 ,0.13533 - +,0.37594 ,0.21307 ,2.03803 ,0.20531 ,0.06611 ,0.03808 ,0.13572 - +,0.37713 ,0.21271 ,2.00285 ,0.20460 ,0.06740 ,0.03992 ,0.13602 - +,0.37816 ,0.21233 ,1.96832 ,0.20383 ,0.06855 ,0.04162 ,0.13624 - +,0.37907 ,0.21192 ,1.93459 ,0.20302 ,0.06959 ,0.04315 ,0.13635/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),K=1,19)/ - + 0.38465 ,0.23189 ,2.01372 ,0.17125 ,0.00271 ,0.00005 ,0.08700 - +,0.39151 ,0.23232 ,2.00578 ,0.17268 ,0.01004 ,0.00005 ,0.09138 - +,0.39698 ,0.23247 ,1.98278 ,0.17343 ,0.01607 ,0.00007 ,0.09478 - +,0.40152 ,0.23220 ,1.94922 ,0.17357 ,0.02105 ,0.00009 ,0.09734 - +,0.40502 ,0.23186 ,1.91065 ,0.17339 ,0.02525 ,0.00018 ,0.09935 - +,0.40797 ,0.23131 ,1.86891 ,0.17289 ,0.02883 ,0.00195 ,0.10090 - +,0.41038 ,0.23060 ,1.82515 ,0.17215 ,0.03179 ,0.00634 ,0.10203 - +,0.41226 ,0.22984 ,1.78069 ,0.17126 ,0.03432 ,0.00975 ,0.10285 - +,0.41380 ,0.22902 ,1.73669 ,0.17023 ,0.03652 ,0.01268 ,0.10344 - +,0.41506 ,0.22816 ,1.69375 ,0.16912 ,0.03845 ,0.01529 ,0.10387 - +,0.41600 ,0.22720 ,1.65134 ,0.16794 ,0.04010 ,0.01759 ,0.10408 - +,0.41669 ,0.22621 ,1.61000 ,0.16666 ,0.04154 ,0.01960 ,0.10415 - +,0.41723 ,0.22523 ,1.57056 ,0.16537 ,0.04283 ,0.02143 ,0.10414 - +,0.41746 ,0.22424 ,1.53166 ,0.16400 ,0.04388 ,0.02302 ,0.10398 - +,0.41762 ,0.22323 ,1.49462 ,0.16264 ,0.04481 ,0.02445 ,0.10378 - +,0.41767 ,0.22215 ,1.45886 ,0.16126 ,0.04559 ,0.02571 ,0.10349 - +,0.41756 ,0.22112 ,1.42448 ,0.15989 ,0.04628 ,0.02684 ,0.10315 - +,0.41732 ,0.22012 ,1.39139 ,0.15852 ,0.04687 ,0.02786 ,0.10275 - +,0.41699 ,0.21910 ,1.35963 ,0.15716 ,0.04738 ,0.02877 ,0.10231/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),K=1,19)/ - + 0.44057 ,0.24967 ,1.75449 ,0.15013 ,0.00208 ,0.00010 ,0.07614 - +,0.44475 ,0.24847 ,1.70997 ,0.14947 ,0.00772 ,0.00009 ,0.07865 - +,0.44771 ,0.24705 ,1.65954 ,0.14844 ,0.01227 ,0.00009 ,0.08044 - +,0.44969 ,0.24554 ,1.60612 ,0.14711 ,0.01605 ,0.00009 ,0.08160 - +,0.45101 ,0.24386 ,1.55250 ,0.14562 ,0.01906 ,0.00019 ,0.08236 - +,0.45177 ,0.24217 ,1.50005 ,0.14406 ,0.02155 ,0.00148 ,0.08280 - +,0.45208 ,0.24032 ,1.44878 ,0.14238 ,0.02364 ,0.00460 ,0.08302 - +,0.45198 ,0.23855 ,1.39943 ,0.14063 ,0.02538 ,0.00707 ,0.08301 - +,0.45164 ,0.23676 ,1.35232 ,0.13889 ,0.02687 ,0.00914 ,0.08289 - +,0.45110 ,0.23496 ,1.30765 ,0.13716 ,0.02813 ,0.01094 ,0.08267 - +,0.45032 ,0.23317 ,1.26497 ,0.13542 ,0.02914 ,0.01256 ,0.08231 - +,0.44935 ,0.23139 ,1.22431 ,0.13367 ,0.03003 ,0.01392 ,0.08188 - +,0.44831 ,0.22967 ,1.18612 ,0.13196 ,0.03083 ,0.01513 ,0.08143 - +,0.44711 ,0.22790 ,1.14950 ,0.13024 ,0.03145 ,0.01615 ,0.08087 - +,0.44582 ,0.22619 ,1.11503 ,0.12858 ,0.03199 ,0.01710 ,0.08030 - +,0.44437 ,0.22452 ,1.08219 ,0.12695 ,0.03244 ,0.01798 ,0.07973 - +,0.44290 ,0.22287 ,1.05108 ,0.12536 ,0.03280 ,0.01872 ,0.07912 - +,0.44139 ,0.22125 ,1.02155 ,0.12382 ,0.03309 ,0.01936 ,0.07850 - +,0.43984 ,0.21966 ,0.99350 ,0.12230 ,0.03334 ,0.01992 ,0.07786/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),K=1,19)/ - + 0.49648 ,0.26394 ,1.47335 ,0.12386 ,0.00161 ,0.00013 ,0.06278 - +,0.49658 ,0.26060 ,1.40444 ,0.12179 ,0.00575 ,0.00011 ,0.06381 - +,0.49586 ,0.25729 ,1.33737 ,0.11962 ,0.00899 ,0.00009 ,0.06433 - +,0.49430 ,0.25407 ,1.27331 ,0.11739 ,0.01159 ,0.00004 ,0.06451 - +,0.49251 ,0.25077 ,1.21316 ,0.11518 ,0.01359 ,0.00016 ,0.06446 - +,0.49018 ,0.24778 ,1.15722 ,0.11297 ,0.01530 ,0.00106 ,0.06423 - +,0.48774 ,0.24464 ,1.10473 ,0.11079 ,0.01669 ,0.00322 ,0.06378 - +,0.48508 ,0.24163 ,1.05580 ,0.10869 ,0.01780 ,0.00488 ,0.06327 - +,0.48228 ,0.23874 ,1.01040 ,0.10662 ,0.01875 ,0.00626 ,0.06272 - +,0.47938 ,0.23595 ,0.96830 ,0.10461 ,0.01954 ,0.00746 ,0.06213 - +,0.47635 ,0.23320 ,0.92890 ,0.10270 ,0.02013 ,0.00851 ,0.06149 - +,0.47334 ,0.23051 ,0.89214 ,0.10081 ,0.02064 ,0.00942 ,0.06080 - +,0.47037 ,0.22792 ,0.85809 ,0.09900 ,0.02109 ,0.01022 ,0.06010 - +,0.46721 ,0.22544 ,0.82595 ,0.09726 ,0.02139 ,0.01088 ,0.05937 - +,0.46413 ,0.22302 ,0.79609 ,0.09559 ,0.02165 ,0.01145 ,0.05867 - +,0.46106 ,0.22064 ,0.76810 ,0.09394 ,0.02186 ,0.01192 ,0.05797 - +,0.45801 ,0.21832 ,0.74184 ,0.09235 ,0.02204 ,0.01233 ,0.05728 - +,0.45497 ,0.21606 ,0.71714 ,0.09079 ,0.02220 ,0.01271 ,0.05660 - +,0.45196 ,0.21387 ,0.69397 ,0.08931 ,0.02230 ,0.01304 ,0.05592/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),K=1,19)/ - + 0.53749 ,0.27065 ,1.23304 ,0.09986 ,0.00130 ,0.00013 ,0.05062 - +,0.53310 ,0.26536 ,1.15349 ,0.09721 ,0.00430 ,0.00016 ,0.05083 - +,0.52828 ,0.26033 ,1.08097 ,0.09464 ,0.00664 ,0.00021 ,0.05068 - +,0.52332 ,0.25543 ,1.01488 ,0.09207 ,0.00847 ,0.00018 ,0.05038 - +,0.51824 ,0.25076 ,0.95511 ,0.08968 ,0.00988 ,0.00018 ,0.04983 - +,0.51296 ,0.24651 ,0.90101 ,0.08733 ,0.01107 ,0.00082 ,0.04925 - +,0.50774 ,0.24223 ,0.85158 ,0.08513 ,0.01197 ,0.00236 ,0.04858 - +,0.50251 ,0.23818 ,0.80652 ,0.08301 ,0.01266 ,0.00346 ,0.04790 - +,0.49736 ,0.23432 ,0.76533 ,0.08096 ,0.01325 ,0.00441 ,0.04720 - +,0.49231 ,0.23064 ,0.72772 ,0.07900 ,0.01375 ,0.00527 ,0.04650 - +,0.48720 ,0.22711 ,0.69322 ,0.07718 ,0.01410 ,0.00595 ,0.04576 - +,0.48221 ,0.22373 ,0.66141 ,0.07540 ,0.01442 ,0.00650 ,0.04502 - +,0.47740 ,0.22051 ,0.63223 ,0.07371 ,0.01468 ,0.00697 ,0.04431 - +,0.47258 ,0.21738 ,0.60506 ,0.07211 ,0.01481 ,0.00739 ,0.04357 - +,0.46791 ,0.21438 ,0.58002 ,0.07058 ,0.01493 ,0.00777 ,0.04287 - +,0.46332 ,0.21147 ,0.55676 ,0.06910 ,0.01504 ,0.00812 ,0.04220 - +,0.45889 ,0.20861 ,0.53517 ,0.06769 ,0.01512 ,0.00842 ,0.04153 - +,0.45459 ,0.20580 ,0.51509 ,0.06634 ,0.01518 ,0.00866 ,0.04087 - +,0.45034 ,0.20316 ,0.49633 ,0.06505 ,0.01519 ,0.00886 ,0.04022/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),K=1,19)/ - + 0.56442 ,0.27134 ,1.02727 ,0.07906 ,0.00089 ,0.00005 ,0.04000 - +,0.55566 ,0.26413 ,0.94552 ,0.07625 ,0.00317 ,0.00006 ,0.03978 - +,0.54711 ,0.25737 ,0.87360 ,0.07361 ,0.00492 ,0.00005 ,0.03935 - +,0.53861 ,0.25111 ,0.81022 ,0.07114 ,0.00627 ,0.00007 ,0.03875 - +,0.53044 ,0.24529 ,0.75421 ,0.06877 ,0.00724 ,0.00009 ,0.03812 - +,0.52242 ,0.23990 ,0.70461 ,0.06657 ,0.00801 ,0.00055 ,0.03751 - +,0.51455 ,0.23472 ,0.66001 ,0.06455 ,0.00863 ,0.00167 ,0.03674 - +,0.50701 ,0.22981 ,0.62001 ,0.06262 ,0.00912 ,0.00240 ,0.03599 - +,0.49975 ,0.22517 ,0.58404 ,0.06078 ,0.00952 ,0.00307 ,0.03527 - +,0.49274 ,0.22080 ,0.55158 ,0.05904 ,0.00983 ,0.00370 ,0.03458 - +,0.48578 ,0.21671 ,0.52203 ,0.05740 ,0.01008 ,0.00422 ,0.03389 - +,0.47914 ,0.21271 ,0.49510 ,0.05586 ,0.01026 ,0.00460 ,0.03318 - +,0.47281 ,0.20890 ,0.47062 ,0.05442 ,0.01039 ,0.00491 ,0.03250 - +,0.46654 ,0.20528 ,0.44823 ,0.05304 ,0.01044 ,0.00518 ,0.03186 - +,0.46054 ,0.20182 ,0.42763 ,0.05173 ,0.01048 ,0.00541 ,0.03124 - +,0.45476 ,0.19846 ,0.40851 ,0.05049 ,0.01050 ,0.00562 ,0.03063 - +,0.44907 ,0.19531 ,0.39097 ,0.04931 ,0.01051 ,0.00581 ,0.03004 - +,0.44348 ,0.19234 ,0.37482 ,0.04819 ,0.01051 ,0.00600 ,0.02948 - +,0.43814 ,0.18943 ,0.35981 ,0.04711 ,0.01051 ,0.00615 ,0.02891/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),K=1,19)/ - + 0.57902 ,0.26643 ,0.85186 ,0.06154 ,0.00067 ,0.00003 ,0.03111 - +,0.56594 ,0.25778 ,0.77264 ,0.05892 ,0.00233 ,0.00003 ,0.03063 - +,0.55369 ,0.24982 ,0.70510 ,0.05641 ,0.00362 ,0.00009 ,0.03016 - +,0.54205 ,0.24246 ,0.64675 ,0.05422 ,0.00451 ,0.00009 ,0.02944 - +,0.53096 ,0.23572 ,0.59618 ,0.05214 ,0.00524 ,0.00005 ,0.02879 - +,0.52045 ,0.22950 ,0.55208 ,0.05022 ,0.00576 ,0.00044 ,0.02813 - +,0.51050 ,0.22350 ,0.51308 ,0.04844 ,0.00620 ,0.00124 ,0.02740 - +,0.50093 ,0.21799 ,0.47856 ,0.04672 ,0.00660 ,0.00177 ,0.02673 - +,0.49176 ,0.21283 ,0.44778 ,0.04518 ,0.00682 ,0.00225 ,0.02607 - +,0.48304 ,0.20797 ,0.42026 ,0.04376 ,0.00695 ,0.00267 ,0.02542 - +,0.47478 ,0.20328 ,0.39555 ,0.04237 ,0.00711 ,0.00297 ,0.02480 - +,0.46666 ,0.19898 ,0.37320 ,0.04107 ,0.00724 ,0.00324 ,0.02421 - +,0.45890 ,0.19495 ,0.35302 ,0.03985 ,0.00733 ,0.00348 ,0.02364 - +,0.45154 ,0.19094 ,0.33466 ,0.03871 ,0.00738 ,0.00363 ,0.02306 - +,0.44448 ,0.18719 ,0.31793 ,0.03764 ,0.00741 ,0.00378 ,0.02251 - +,0.43761 ,0.18368 ,0.30258 ,0.03661 ,0.00744 ,0.00393 ,0.02200 - +,0.43102 ,0.18030 ,0.28849 ,0.03563 ,0.00744 ,0.00404 ,0.02152 - +,0.42471 ,0.17703 ,0.27552 ,0.03471 ,0.00742 ,0.00413 ,0.02107 - +,0.41861 ,0.17392 ,0.26359 ,0.03384 ,0.00738 ,0.00421 ,0.02064/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),K=1,19)/ - + 0.58219 ,0.25740 ,0.70276 ,0.04720 ,0.00044 ,0.00007 ,0.02381 - +,0.56548 ,0.24737 ,0.62909 ,0.04484 ,0.00171 ,0.00014 ,0.02334 - +,0.55004 ,0.23837 ,0.56749 ,0.04273 ,0.00265 ,0.00006 ,0.02269 - +,0.53567 ,0.23014 ,0.51532 ,0.04076 ,0.00328 ,0.00006 ,0.02217 - +,0.52206 ,0.22277 ,0.47086 ,0.03909 ,0.00372 ,0.00010 ,0.02146 - +,0.50949 ,0.21587 ,0.43249 ,0.03745 ,0.00411 ,0.00039 ,0.02089 - +,0.49754 ,0.20955 ,0.39899 ,0.03593 ,0.00451 ,0.00085 ,0.02021 - +,0.48636 ,0.20356 ,0.36959 ,0.03452 ,0.00475 ,0.00122 ,0.01960 - +,0.47571 ,0.19805 ,0.34373 ,0.03322 ,0.00489 ,0.00158 ,0.01908 - +,0.46561 ,0.19294 ,0.32084 ,0.03202 ,0.00499 ,0.00191 ,0.01861 - +,0.45611 ,0.18801 ,0.30038 ,0.03091 ,0.00509 ,0.00213 ,0.01809 - +,0.44688 ,0.18350 ,0.28213 ,0.02987 ,0.00515 ,0.00230 ,0.01757 - +,0.43812 ,0.17930 ,0.26574 ,0.02892 ,0.00517 ,0.00244 ,0.01707 - +,0.42984 ,0.17517 ,0.25074 ,0.02806 ,0.00516 ,0.00257 ,0.01656 - +,0.42199 ,0.17126 ,0.23723 ,0.02723 ,0.00515 ,0.00266 ,0.01610 - +,0.41447 ,0.16753 ,0.22504 ,0.02641 ,0.00516 ,0.00270 ,0.01570 - +,0.40727 ,0.16401 ,0.21386 ,0.02562 ,0.00516 ,0.00273 ,0.01533 - +,0.40037 ,0.16068 ,0.20359 ,0.02486 ,0.00515 ,0.00277 ,0.01498 - +,0.39377 ,0.15749 ,0.19418 ,0.02417 ,0.00512 ,0.00281 ,0.01463/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),K=1,19)/ - + 0.57572 ,0.24490 ,0.57630 ,0.03559 ,0.00034 ,0.00003 ,0.01806 - +,0.55580 ,0.23390 ,0.50956 ,0.03366 ,0.00127 ,0.00007 ,0.01747 - +,0.53785 ,0.22393 ,0.45488 ,0.03190 ,0.00190 ,0.00021 ,0.01693 - +,0.52085 ,0.21541 ,0.40907 ,0.03020 ,0.00245 ,0.00018 ,0.01649 - +,0.50553 ,0.20735 ,0.37072 ,0.02882 ,0.00280 ,0.00007 ,0.01584 - +,0.49132 ,0.20005 ,0.33800 ,0.02742 ,0.00313 ,0.00025 ,0.01540 - +,0.47798 ,0.19332 ,0.30957 ,0.02629 ,0.00325 ,0.00070 ,0.01482 - +,0.46530 ,0.18729 ,0.28505 ,0.02517 ,0.00343 ,0.00100 ,0.01431 - +,0.45342 ,0.18169 ,0.26368 ,0.02413 ,0.00357 ,0.00119 ,0.01386 - +,0.44232 ,0.17642 ,0.24487 ,0.02318 ,0.00364 ,0.00132 ,0.01344 - +,0.43191 ,0.17139 ,0.22806 ,0.02234 ,0.00364 ,0.00144 ,0.01301 - +,0.42188 ,0.16678 ,0.21320 ,0.02152 ,0.00369 ,0.00157 ,0.01262 - +,0.41242 ,0.16249 ,0.19996 ,0.02075 ,0.00374 ,0.00170 ,0.01225 - +,0.40363 ,0.15829 ,0.18793 ,0.02002 ,0.00375 ,0.00177 ,0.01187 - +,0.39529 ,0.15435 ,0.17715 ,0.01936 ,0.00373 ,0.00185 ,0.01151 - +,0.38729 ,0.15065 ,0.16744 ,0.01876 ,0.00368 ,0.00194 ,0.01117 - +,0.37963 ,0.14716 ,0.15865 ,0.01818 ,0.00363 ,0.00198 ,0.01087 - +,0.37228 ,0.14389 ,0.15066 ,0.01763 ,0.00358 ,0.00198 ,0.01060 - +,0.36535 ,0.14076 ,0.14334 ,0.01709 ,0.00352 ,0.00199 ,0.01033/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),K=1,19)/ - + 0.56133 ,0.22941 ,0.46984 ,0.02640 ,0.00031 ,0.00018 ,0.01350 - +,0.53852 ,0.21796 ,0.41053 ,0.02480 ,0.00099 ,0.00015 ,0.01306 - +,0.51806 ,0.20778 ,0.36277 ,0.02337 ,0.00156 ,0.00009 ,0.01254 - +,0.49935 ,0.19888 ,0.32350 ,0.02214 ,0.00186 ,0.00011 ,0.01201 - +,0.48252 ,0.19061 ,0.29062 ,0.02099 ,0.00206 ,0.00009 ,0.01160 - +,0.46703 ,0.18313 ,0.26320 ,0.01998 ,0.00224 ,0.00022 ,0.01111 - +,0.45244 ,0.17654 ,0.23990 ,0.01900 ,0.00235 ,0.00042 ,0.01077 - +,0.43894 ,0.17035 ,0.21930 ,0.01813 ,0.00248 ,0.00068 ,0.01033 - +,0.42632 ,0.16467 ,0.20165 ,0.01732 ,0.00256 ,0.00088 ,0.00998 - +,0.41452 ,0.15942 ,0.18642 ,0.01658 ,0.00260 ,0.00101 ,0.00967 - +,0.40354 ,0.15442 ,0.17297 ,0.01593 ,0.00260 ,0.00110 ,0.00930 - +,0.39321 ,0.14974 ,0.16106 ,0.01531 ,0.00263 ,0.00119 ,0.00895 - +,0.38352 ,0.14539 ,0.15045 ,0.01473 ,0.00266 ,0.00126 ,0.00863 - +,0.37432 ,0.14136 ,0.14088 ,0.01417 ,0.00261 ,0.00122 ,0.00838 - +,0.36561 ,0.13756 ,0.13236 ,0.01366 ,0.00256 ,0.00123 ,0.00813 - +,0.35728 ,0.13395 ,0.12477 ,0.01322 ,0.00251 ,0.00130 ,0.00787 - +,0.34936 ,0.13058 ,0.11789 ,0.01279 ,0.00248 ,0.00134 ,0.00762 - +,0.34180 ,0.12742 ,0.11162 ,0.01238 ,0.00248 ,0.00138 ,0.00737 - +,0.33470 ,0.12436 ,0.10591 ,0.01199 ,0.00246 ,0.00140 ,0.00716/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),K=1,19)/ - + 0.53954 ,0.21243 ,0.38027 ,0.01935 ,0.00028 ,0.00009 ,0.00985 - +,0.51481 ,0.20056 ,0.32868 ,0.01807 ,0.00080 ,0.00006 ,0.00949 - +,0.49262 ,0.19032 ,0.28759 ,0.01700 ,0.00107 ,0.00007 ,0.00911 - +,0.47266 ,0.18123 ,0.25430 ,0.01595 ,0.00135 ,0.00006 ,0.00880 - +,0.45469 ,0.17308 ,0.22670 ,0.01508 ,0.00156 ,0.00004 ,0.00833 - +,0.43827 ,0.16574 ,0.20390 ,0.01424 ,0.00171 ,0.00016 ,0.00802 - +,0.42311 ,0.15903 ,0.18457 ,0.01348 ,0.00182 ,0.00035 ,0.00777 - +,0.40911 ,0.15287 ,0.16804 ,0.01286 ,0.00184 ,0.00048 ,0.00740 - +,0.39613 ,0.14718 ,0.15374 ,0.01228 ,0.00183 ,0.00059 ,0.00711 - +,0.38404 ,0.14197 ,0.14133 ,0.01174 ,0.00180 ,0.00069 ,0.00688 - +,0.37262 ,0.13730 ,0.13056 ,0.01126 ,0.00181 ,0.00076 ,0.00657 - +,0.36207 ,0.13276 ,0.12116 ,0.01077 ,0.00182 ,0.00083 ,0.00635 - +,0.35229 ,0.12851 ,0.11283 ,0.01029 ,0.00183 ,0.00088 ,0.00617 - +,0.34304 ,0.12463 ,0.10528 ,0.00982 ,0.00186 ,0.00089 ,0.00596 - +,0.33427 ,0.12100 ,0.09859 ,0.00942 ,0.00188 ,0.00092 ,0.00575 - +,0.32584 ,0.11757 ,0.09265 ,0.00912 ,0.00188 ,0.00097 ,0.00552 - +,0.31787 ,0.11435 ,0.08730 ,0.00881 ,0.00186 ,0.00100 ,0.00536 - +,0.31031 ,0.11132 ,0.08246 ,0.00848 ,0.00182 ,0.00101 ,0.00525 - +,0.30315 ,0.10844 ,0.07807 ,0.00821 ,0.00179 ,0.00101 ,0.00510/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),K=1,19)/ - + 0.51217 ,0.19455 ,0.30583 ,0.01406 ,0.00007 ,-0.00014 ,0.00710 - +,0.48592 ,0.18275 ,0.26144 ,0.01303 ,0.00055 ,-0.00012 ,0.00680 - +,0.46275 ,0.17251 ,0.22670 ,0.01226 ,0.00068 ,-0.00011 ,0.00641 - +,0.44205 ,0.16352 ,0.19878 ,0.01144 ,0.00095 ,-0.00014 ,0.00611 - +,0.42346 ,0.15548 ,0.17614 ,0.01075 ,0.00103 ,-0.00013 ,0.00592 - +,0.40665 ,0.14824 ,0.15759 ,0.01015 ,0.00116 ,0.00003 ,0.00561 - +,0.39112 ,0.14178 ,0.14171 ,0.00960 ,0.00121 ,0.00011 ,0.00537 - +,0.37698 ,0.13591 ,0.12832 ,0.00907 ,0.00123 ,0.00029 ,0.00514 - +,0.36389 ,0.13044 ,0.11689 ,0.00862 ,0.00124 ,0.00040 ,0.00492 - +,0.35170 ,0.12541 ,0.10707 ,0.00822 ,0.00124 ,0.00043 ,0.00471 - +,0.34020 ,0.12096 ,0.09859 ,0.00786 ,0.00125 ,0.00045 ,0.00452 - +,0.32969 ,0.11667 ,0.09112 ,0.00750 ,0.00127 ,0.00051 ,0.00435 - +,0.31995 ,0.11266 ,0.08453 ,0.00716 ,0.00128 ,0.00057 ,0.00419 - +,0.31055 ,0.10901 ,0.07873 ,0.00685 ,0.00127 ,0.00058 ,0.00407 - +,0.30179 ,0.10559 ,0.07354 ,0.00659 ,0.00125 ,0.00058 ,0.00395 - +,0.29358 ,0.10236 ,0.06885 ,0.00636 ,0.00125 ,0.00059 ,0.00380 - +,0.28585 ,0.09932 ,0.06470 ,0.00613 ,0.00123 ,0.00061 ,0.00366 - +,0.27857 ,0.09645 ,0.06101 ,0.00591 ,0.00122 ,0.00065 ,0.00353 - +,0.27168 ,0.09374 ,0.05767 ,0.00570 ,0.00119 ,0.00068 ,0.00342/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),K=1,19)/ - + 0.48062 ,0.17531 ,0.24323 ,0.00989 ,0.00022 ,0.00019 ,0.00514 - +,0.45350 ,0.16379 ,0.20596 ,0.00917 ,0.00042 ,0.00014 ,0.00492 - +,0.42983 ,0.15381 ,0.17714 ,0.00851 ,0.00066 ,0.00012 ,0.00463 - +,0.40859 ,0.14532 ,0.15418 ,0.00794 ,0.00074 ,0.00010 ,0.00444 - +,0.38973 ,0.13766 ,0.13571 ,0.00749 ,0.00075 ,0.00010 ,0.00420 - +,0.37299 ,0.13089 ,0.12059 ,0.00694 ,0.00091 ,0.00019 ,0.00398 - +,0.35731 ,0.12462 ,0.10796 ,0.00661 ,0.00098 ,0.00026 ,0.00378 - +,0.34314 ,0.11905 ,0.09736 ,0.00627 ,0.00096 ,0.00029 ,0.00364 - +,0.33023 ,0.11395 ,0.08829 ,0.00593 ,0.00093 ,0.00034 ,0.00350 - +,0.31834 ,0.10926 ,0.08052 ,0.00562 ,0.00092 ,0.00040 ,0.00336 - +,0.30715 ,0.10496 ,0.07388 ,0.00536 ,0.00093 ,0.00041 ,0.00318 - +,0.29671 ,0.10102 ,0.06806 ,0.00512 ,0.00095 ,0.00042 ,0.00307 - +,0.28703 ,0.09739 ,0.06292 ,0.00490 ,0.00096 ,0.00042 ,0.00297 - +,0.27810 ,0.09392 ,0.05838 ,0.00470 ,0.00092 ,0.00042 ,0.00279 - +,0.26969 ,0.09073 ,0.05438 ,0.00450 ,0.00089 ,0.00044 ,0.00266 - +,0.26167 ,0.08779 ,0.05085 ,0.00429 ,0.00090 ,0.00046 ,0.00258 - +,0.25423 ,0.08501 ,0.04768 ,0.00411 ,0.00089 ,0.00045 ,0.00250 - +,0.24729 ,0.08239 ,0.04482 ,0.00395 ,0.00086 ,0.00041 ,0.00240 - +,0.24070 ,0.07995 ,0.04225 ,0.00381 ,0.00084 ,0.00042 ,0.00231/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),K=1,19)/ - + 0.44577 ,0.15675 ,0.19254 ,0.00704 ,0.00001 ,-0.00005 ,0.00350 - +,0.41831 ,0.14574 ,0.16146 ,0.00641 ,0.00029 ,-0.00003 ,0.00339 - +,0.39444 ,0.13630 ,0.13760 ,0.00594 ,0.00044 ,0.00002 ,0.00319 - +,0.37390 ,0.12793 ,0.11906 ,0.00549 ,0.00044 ,-0.00003 ,0.00300 - +,0.35491 ,0.12068 ,0.10396 ,0.00523 ,0.00049 ,0.00001 ,0.00285 - +,0.33834 ,0.11431 ,0.09187 ,0.00488 ,0.00057 ,0.00005 ,0.00276 - +,0.32309 ,0.10851 ,0.08182 ,0.00458 ,0.00061 ,0.00009 ,0.00255 - +,0.30931 ,0.10338 ,0.07338 ,0.00429 ,0.00062 ,0.00014 ,0.00241 - +,0.29664 ,0.09864 ,0.06629 ,0.00408 ,0.00062 ,0.00019 ,0.00232 - +,0.28500 ,0.09428 ,0.06026 ,0.00390 ,0.00062 ,0.00022 ,0.00223 - +,0.27441 ,0.09039 ,0.05506 ,0.00367 ,0.00059 ,0.00021 ,0.00208 - +,0.26450 ,0.08665 ,0.05055 ,0.00348 ,0.00061 ,0.00019 ,0.00201 - +,0.25531 ,0.08319 ,0.04662 ,0.00330 ,0.00064 ,0.00018 ,0.00196 - +,0.24676 ,0.08016 ,0.04318 ,0.00314 ,0.00058 ,0.00022 ,0.00186 - +,0.23875 ,0.07731 ,0.04015 ,0.00300 ,0.00055 ,0.00025 ,0.00178 - +,0.23118 ,0.07459 ,0.03745 ,0.00288 ,0.00056 ,0.00026 ,0.00173 - +,0.22408 ,0.07209 ,0.03502 ,0.00278 ,0.00056 ,0.00027 ,0.00167 - +,0.21740 ,0.06978 ,0.03284 ,0.00269 ,0.00055 ,0.00027 ,0.00161 - +,0.21109 ,0.06758 ,0.03090 ,0.00261 ,0.00055 ,0.00028 ,0.00154/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),K=1,19)/ - + 0.40871 ,0.13810 ,0.15059 ,0.00479 ,0.00008 ,0.00002 ,0.00247 - +,0.38162 ,0.12767 ,0.12504 ,0.00436 ,0.00024 ,0.00008 ,0.00234 - +,0.35842 ,0.11882 ,0.10573 ,0.00397 ,0.00027 ,0.00006 ,0.00221 - +,0.33757 ,0.11130 ,0.09086 ,0.00378 ,0.00033 ,0.00002 ,0.00209 - +,0.31940 ,0.10443 ,0.07904 ,0.00350 ,0.00045 ,-0.00001 ,0.00199 - +,0.30331 ,0.09863 ,0.06940 ,0.00322 ,0.00044 ,-0.00001 ,0.00181 - +,0.28879 ,0.09340 ,0.06154 ,0.00305 ,0.00044 ,0.00008 ,0.00175 - +,0.27551 ,0.08861 ,0.05492 ,0.00288 ,0.00043 ,0.00016 ,0.00166 - +,0.26331 ,0.08426 ,0.04940 ,0.00276 ,0.00041 ,0.00016 ,0.00155 - +,0.25218 ,0.08033 ,0.04475 ,0.00263 ,0.00039 ,0.00013 ,0.00146 - +,0.24224 ,0.07676 ,0.04078 ,0.00241 ,0.00040 ,0.00013 ,0.00142 - +,0.23291 ,0.07346 ,0.03732 ,0.00228 ,0.00039 ,0.00015 ,0.00136 - +,0.22426 ,0.07042 ,0.03430 ,0.00219 ,0.00038 ,0.00018 ,0.00129 - +,0.21617 ,0.06765 ,0.03166 ,0.00209 ,0.00041 ,0.00019 ,0.00124 - +,0.20869 ,0.06506 ,0.02935 ,0.00200 ,0.00041 ,0.00020 ,0.00120 - +,0.20174 ,0.06262 ,0.02734 ,0.00191 ,0.00039 ,0.00020 ,0.00116 - +,0.19516 ,0.06037 ,0.02553 ,0.00183 ,0.00038 ,0.00020 ,0.00110 - +,0.18892 ,0.05830 ,0.02389 ,0.00176 ,0.00037 ,0.00020 ,0.00104 - +,0.18303 ,0.05634 ,0.02244 ,0.00171 ,0.00035 ,0.00018 ,0.00099/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),K=1,19)/ - + 0.37068 ,0.12029 ,0.11665 ,0.00323 ,0.00008 ,0.00003 ,0.00172 - +,0.34431 ,0.11075 ,0.09619 ,0.00291 ,0.00017 ,-0.00002 ,0.00160 - +,0.32171 ,0.10254 ,0.08073 ,0.00266 ,0.00021 ,0.00001 ,0.00151 - +,0.30184 ,0.09557 ,0.06891 ,0.00262 ,0.00018 ,0.00002 ,0.00132 - +,0.28472 ,0.08954 ,0.05954 ,0.00237 ,0.00019 ,0.00000 ,0.00124 - +,0.26933 ,0.08414 ,0.05199 ,0.00214 ,0.00027 ,-0.00001 ,0.00119 - +,0.25542 ,0.07928 ,0.04589 ,0.00210 ,0.00025 ,0.00006 ,0.00113 - +,0.24273 ,0.07509 ,0.04084 ,0.00198 ,0.00027 ,0.00006 ,0.00105 - +,0.23139 ,0.07125 ,0.03662 ,0.00187 ,0.00029 ,0.00008 ,0.00097 - +,0.22120 ,0.06772 ,0.03305 ,0.00176 ,0.00029 ,0.00010 ,0.00091 - +,0.21186 ,0.06452 ,0.03000 ,0.00161 ,0.00027 ,0.00007 ,0.00090 - +,0.20318 ,0.06160 ,0.02737 ,0.00154 ,0.00025 ,0.00009 ,0.00088 - +,0.19517 ,0.05892 ,0.02510 ,0.00149 ,0.00024 ,0.00011 ,0.00086 - +,0.18773 ,0.05645 ,0.02312 ,0.00140 ,0.00024 ,0.00010 ,0.00079 - +,0.18077 ,0.05418 ,0.02138 ,0.00134 ,0.00024 ,0.00010 ,0.00075 - +,0.17416 ,0.05210 ,0.01986 ,0.00133 ,0.00024 ,0.00013 ,0.00074 - +,0.16816 ,0.05013 ,0.01852 ,0.00128 ,0.00023 ,0.00014 ,0.00071 - +,0.16270 ,0.04825 ,0.01732 ,0.00118 ,0.00022 ,0.00012 ,0.00068 - +,0.15746 ,0.04653 ,0.01624 ,0.00112 ,0.00020 ,0.00011 ,0.00064/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),K=1,19)/ - + 0.33228 ,0.10356 ,0.08941 ,0.00218 ,0.00006 ,0.00002 ,0.00107 - +,0.30712 ,0.09473 ,0.07297 ,0.00193 ,0.00012 ,0.00006 ,0.00104 - +,0.28532 ,0.08743 ,0.06076 ,0.00176 ,0.00018 ,-0.00001 ,0.00095 - +,0.26661 ,0.08104 ,0.05142 ,0.00163 ,0.00016 ,0.00004 ,0.00088 - +,0.25042 ,0.07547 ,0.04413 ,0.00154 ,0.00012 ,-0.00002 ,0.00086 - +,0.23588 ,0.07066 ,0.03838 ,0.00146 ,0.00015 ,0.00005 ,0.00083 - +,0.22301 ,0.06648 ,0.03371 ,0.00131 ,0.00016 ,0.00000 ,0.00071 - +,0.21152 ,0.06265 ,0.02986 ,0.00122 ,0.00023 ,0.00005 ,0.00070 - +,0.20102 ,0.05919 ,0.02664 ,0.00116 ,0.00023 ,0.00007 ,0.00067 - +,0.19141 ,0.05610 ,0.02393 ,0.00111 ,0.00018 ,0.00006 ,0.00061 - +,0.18266 ,0.05338 ,0.02166 ,0.00102 ,0.00016 ,0.00004 ,0.00057 - +,0.17469 ,0.05082 ,0.01971 ,0.00096 ,0.00019 ,0.00005 ,0.00056 - +,0.16740 ,0.04846 ,0.01802 ,0.00091 ,0.00023 ,0.00007 ,0.00056 - +,0.16056 ,0.04626 ,0.01658 ,0.00089 ,0.00020 ,0.00007 ,0.00055 - +,0.15428 ,0.04428 ,0.01531 ,0.00086 ,0.00018 ,0.00007 ,0.00052 - +,0.14849 ,0.04249 ,0.01419 ,0.00080 ,0.00017 ,0.00006 ,0.00046 - +,0.14309 ,0.04080 ,0.01320 ,0.00076 ,0.00016 ,0.00007 ,0.00043 - +,0.13804 ,0.03921 ,0.01232 ,0.00073 ,0.00016 ,0.00009 ,0.00044 - +,0.13336 ,0.03772 ,0.01153 ,0.00069 ,0.00016 ,0.00009 ,0.00042/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),K=1,19)/ - + 0.29440 ,0.08803 ,0.06782 ,0.00145 ,-0.00003 ,-0.00006 ,0.00067 - +,0.27039 ,0.08019 ,0.05486 ,0.00130 ,0.00001 ,-0.00010 ,0.00062 - +,0.25037 ,0.07345 ,0.04532 ,0.00120 ,0.00000 ,-0.00001 ,0.00060 - +,0.23287 ,0.06789 ,0.03813 ,0.00114 ,0.00011 ,-0.00002 ,0.00058 - +,0.21797 ,0.06302 ,0.03256 ,0.00099 ,0.00010 ,-0.00006 ,0.00050 - +,0.20459 ,0.05881 ,0.02815 ,0.00097 ,0.00015 ,0.00001 ,0.00049 - +,0.19283 ,0.05509 ,0.02464 ,0.00089 ,0.00011 ,0.00005 ,0.00048 - +,0.18229 ,0.05179 ,0.02173 ,0.00079 ,0.00011 ,0.00002 ,0.00043 - +,0.17260 ,0.04883 ,0.01932 ,0.00075 ,0.00010 ,0.00001 ,0.00041 - +,0.16382 ,0.04615 ,0.01732 ,0.00074 ,0.00010 ,0.00002 ,0.00039 - +,0.15615 ,0.04366 ,0.01562 ,0.00066 ,0.00010 ,0.00003 ,0.00034 - +,0.14892 ,0.04147 ,0.01419 ,0.00062 ,0.00010 ,0.00003 ,0.00034 - +,0.14226 ,0.03950 ,0.01295 ,0.00060 ,0.00010 ,0.00003 ,0.00035 - +,0.13619 ,0.03767 ,0.01188 ,0.00058 ,0.00010 ,0.00005 ,0.00033 - +,0.13063 ,0.03597 ,0.01095 ,0.00055 ,0.00010 ,0.00005 ,0.00030 - +,0.12552 ,0.03439 ,0.01013 ,0.00050 ,0.00009 ,0.00004 ,0.00027 - +,0.12069 ,0.03294 ,0.00941 ,0.00048 ,0.00009 ,0.00004 ,0.00026 - +,0.11611 ,0.03161 ,0.00877 ,0.00048 ,0.00010 ,0.00005 ,0.00026 - +,0.11191 ,0.03038 ,0.00820 ,0.00046 ,0.00011 ,0.00006 ,0.00027/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),K=1,19)/ - + 0.25776 ,0.07363 ,0.05063 ,0.00089 ,-0.00005 ,-0.00004 ,0.00038 - +,0.23557 ,0.06677 ,0.04064 ,0.00083 ,0.00002 ,0.00002 ,0.00040 - +,0.21707 ,0.06088 ,0.03340 ,0.00075 ,0.00003 ,-0.00001 ,0.00037 - +,0.20102 ,0.05606 ,0.02787 ,0.00072 ,0.00001 ,-0.00002 ,0.00037 - +,0.18738 ,0.05179 ,0.02366 ,0.00063 ,0.00007 ,-0.00001 ,0.00030 - +,0.17505 ,0.04816 ,0.02039 ,0.00064 ,0.00004 ,-0.00003 ,0.00029 - +,0.16443 ,0.04497 ,0.01774 ,0.00056 ,0.00006 ,-0.00005 ,0.00027 - +,0.15500 ,0.04212 ,0.01559 ,0.00050 ,0.00006 ,0.00000 ,0.00025 - +,0.14641 ,0.03958 ,0.01381 ,0.00048 ,0.00006 ,0.00002 ,0.00024 - +,0.13863 ,0.03730 ,0.01234 ,0.00048 ,0.00006 ,0.00002 ,0.00024 - +,0.13166 ,0.03526 ,0.01113 ,0.00042 ,0.00009 ,0.00001 ,0.00024 - +,0.12523 ,0.03341 ,0.01008 ,0.00041 ,0.00008 ,0.00002 ,0.00022 - +,0.11936 ,0.03173 ,0.00917 ,0.00041 ,0.00007 ,0.00003 ,0.00021 - +,0.11405 ,0.03016 ,0.00839 ,0.00037 ,0.00008 ,0.00004 ,0.00021 - +,0.10918 ,0.02874 ,0.00772 ,0.00033 ,0.00008 ,0.00005 ,0.00021 - +,0.10469 ,0.02743 ,0.00713 ,0.00029 ,0.00009 ,0.00005 ,0.00020 - +,0.10045 ,0.02623 ,0.00661 ,0.00028 ,0.00009 ,0.00005 ,0.00019 - +,0.09644 ,0.02513 ,0.00615 ,0.00029 ,0.00008 ,0.00005 ,0.00019 - +,0.09274 ,0.02410 ,0.00574 ,0.00029 ,0.00008 ,0.00005 ,0.00017/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),K=1,19)/ - + 0.22265 ,0.06086 ,0.03732 ,0.00059 ,-0.00007 ,-0.00005 ,0.00022 - +,0.20252 ,0.05478 ,0.02965 ,0.00051 ,-0.00003 ,-0.00004 ,0.00024 - +,0.18537 ,0.04982 ,0.02414 ,0.00053 ,-0.00006 ,-0.00008 ,0.00018 - +,0.17104 ,0.04554 ,0.02005 ,0.00048 ,0.00002 ,-0.00007 ,0.00016 - +,0.15862 ,0.04197 ,0.01693 ,0.00045 ,0.00004 ,-0.00006 ,0.00019 - +,0.14799 ,0.03882 ,0.01451 ,0.00036 ,0.00002 ,-0.00004 ,0.00015 - +,0.13855 ,0.03615 ,0.01256 ,0.00031 ,0.00003 ,-0.00003 ,0.00018 - +,0.13003 ,0.03374 ,0.01100 ,0.00032 ,0.00004 ,-0.00003 ,0.00017 - +,0.12246 ,0.03158 ,0.00973 ,0.00030 ,0.00005 ,-0.00002 ,0.00016 - +,0.11570 ,0.02966 ,0.00866 ,0.00027 ,0.00006 ,0.00000 ,0.00016 - +,0.10954 ,0.02796 ,0.00776 ,0.00024 ,0.00006 ,-0.00001 ,0.00013 - +,0.10392 ,0.02642 ,0.00701 ,0.00022 ,0.00005 ,0.00000 ,0.00013 - +,0.09882 ,0.02503 ,0.00637 ,0.00021 ,0.00004 ,0.00000 ,0.00013 - +,0.09422 ,0.02372 ,0.00582 ,0.00018 ,0.00006 ,0.00003 ,0.00014 - +,0.08995 ,0.02254 ,0.00534 ,0.00017 ,0.00007 ,0.00003 ,0.00013 - +,0.08594 ,0.02146 ,0.00493 ,0.00016 ,0.00005 ,0.00001 ,0.00011 - +,0.08227 ,0.02047 ,0.00456 ,0.00016 ,0.00005 ,0.00001 ,0.00011 - +,0.07889 ,0.01956 ,0.00424 ,0.00016 ,0.00006 ,0.00003 ,0.00012 - +,0.07573 ,0.01872 ,0.00395 ,0.00015 ,0.00006 ,0.00004 ,0.00012/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),K=1,19)/ - + 0.18967 ,0.04940 ,0.02698 ,0.00037 ,-0.00003 ,-0.00005 ,0.00015 - +,0.17134 ,0.04420 ,0.02123 ,0.00033 ,0.00000 ,-0.00005 ,0.00013 - +,0.15623 ,0.04000 ,0.01718 ,0.00032 ,0.00003 ,-0.00004 ,0.00016 - +,0.14353 ,0.03640 ,0.01415 ,0.00026 ,0.00003 ,-0.00007 ,0.00010 - +,0.13266 ,0.03337 ,0.01189 ,0.00025 ,0.00002 ,-0.00003 ,0.00012 - +,0.12340 ,0.03077 ,0.01013 ,0.00015 ,0.00003 ,-0.00004 ,0.00015 - +,0.11498 ,0.02851 ,0.00874 ,0.00015 ,0.00006 ,-0.00002 ,0.00013 - +,0.10747 ,0.02650 ,0.00762 ,0.00017 ,0.00005 ,0.00000 ,0.00013 - +,0.10086 ,0.02476 ,0.00671 ,0.00016 ,0.00004 ,0.00001 ,0.00012 - +,0.09498 ,0.02322 ,0.00596 ,0.00013 ,0.00003 ,0.00000 ,0.00010 - +,0.08957 ,0.02178 ,0.00534 ,0.00014 ,0.00003 ,-0.00001 ,0.00009 - +,0.08476 ,0.02051 ,0.00481 ,0.00013 ,0.00004 ,0.00000 ,0.00009 - +,0.08043 ,0.01936 ,0.00437 ,0.00012 ,0.00005 ,0.00002 ,0.00009 - +,0.07640 ,0.01832 ,0.00398 ,0.00011 ,0.00005 ,0.00002 ,0.00010 - +,0.07274 ,0.01737 ,0.00365 ,0.00010 ,0.00006 ,0.00003 ,0.00010 - +,0.06941 ,0.01649 ,0.00336 ,0.00010 ,0.00007 ,0.00003 ,0.00009 - +,0.06632 ,0.01569 ,0.00310 ,0.00009 ,0.00006 ,0.00003 ,0.00008 - +,0.06347 ,0.01498 ,0.00288 ,0.00006 ,0.00005 ,0.00002 ,0.00008 - +,0.06079 ,0.01430 ,0.00268 ,0.00006 ,0.00005 ,0.00002 ,0.00008/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),K=1,19)/ - + 0.15939 ,0.03956 ,0.01929 ,0.00026 ,-0.00007 ,-0.00010 ,0.00001 - +,0.14334 ,0.03517 ,0.01504 ,0.00026 ,-0.00003 ,-0.00005 ,0.00003 - +,0.13007 ,0.03166 ,0.01204 ,0.00021 ,-0.00002 ,-0.00005 ,0.00006 - +,0.11899 ,0.02867 ,0.00989 ,0.00015 ,-0.00001 ,-0.00006 ,0.00005 - +,0.10951 ,0.02620 ,0.00827 ,0.00012 ,0.00000 ,-0.00006 ,0.00005 - +,0.10119 ,0.02408 ,0.00702 ,0.00012 ,-0.00002 ,-0.00007 ,0.00004 - +,0.09397 ,0.02222 ,0.00604 ,0.00012 ,-0.00002 ,-0.00005 ,0.00004 - +,0.08762 ,0.02059 ,0.00525 ,0.00011 ,0.00000 ,-0.00004 ,0.00005 - +,0.08200 ,0.01916 ,0.00461 ,0.00011 ,0.00002 ,-0.00002 ,0.00005 - +,0.07701 ,0.01790 ,0.00409 ,0.00010 ,0.00002 ,-0.00001 ,0.00005 - +,0.07256 ,0.01676 ,0.00365 ,0.00008 ,0.00002 ,0.00001 ,0.00005 - +,0.06843 ,0.01574 ,0.00329 ,0.00007 ,0.00002 ,0.00000 ,0.00005 - +,0.06468 ,0.01482 ,0.00298 ,0.00007 ,0.00002 ,-0.00001 ,0.00005 - +,0.06137 ,0.01399 ,0.00271 ,0.00006 ,0.00003 ,0.00000 ,0.00005 - +,0.05831 ,0.01323 ,0.00248 ,0.00006 ,0.00003 ,0.00001 ,0.00005 - +,0.05545 ,0.01254 ,0.00228 ,0.00006 ,0.00003 ,0.00000 ,0.00004 - +,0.05284 ,0.01192 ,0.00210 ,0.00005 ,0.00002 ,0.00000 ,0.00004 - +,0.05044 ,0.01134 ,0.00195 ,0.00005 ,0.00002 ,0.00000 ,0.00004 - +,0.04823 ,0.01081 ,0.00181 ,0.00004 ,0.00002 ,0.00000 ,0.00004/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),K=1,19)/ - + 0.13144 ,0.03089 ,0.01338 ,0.00013 ,-0.00002 ,-0.00003 ,0.00004 - +,0.11771 ,0.02737 ,0.01040 ,0.00011 ,-0.00002 ,-0.00002 ,0.00005 - +,0.10635 ,0.02450 ,0.00829 ,0.00009 ,-0.00003 ,-0.00004 ,0.00001 - +,0.09678 ,0.02211 ,0.00678 ,0.00010 ,-0.00002 ,-0.00003 ,0.00002 - +,0.08864 ,0.02013 ,0.00564 ,0.00009 ,0.00000 ,-0.00001 ,0.00003 - +,0.08180 ,0.01843 ,0.00477 ,0.00006 ,-0.00001 ,-0.00001 ,0.00000 - +,0.07568 ,0.01696 ,0.00409 ,0.00007 ,-0.00001 ,-0.00002 ,0.00002 - +,0.07024 ,0.01569 ,0.00355 ,0.00008 ,-0.00001 ,-0.00001 ,0.00003 - +,0.06552 ,0.01456 ,0.00311 ,0.00008 ,0.00000 ,0.00000 ,0.00003 - +,0.06137 ,0.01355 ,0.00275 ,0.00007 ,0.00001 ,0.00000 ,0.00002 - +,0.05760 ,0.01267 ,0.00245 ,0.00005 ,0.00000 ,-0.00001 ,0.00002 - +,0.05420 ,0.01186 ,0.00220 ,0.00006 ,0.00000 ,0.00000 ,0.00002 - +,0.05114 ,0.01114 ,0.00199 ,0.00006 ,0.00000 ,0.00000 ,0.00002 - +,0.04834 ,0.01050 ,0.00181 ,0.00006 ,0.00000 ,0.00000 ,0.00002 - +,0.04581 ,0.00992 ,0.00166 ,0.00006 ,0.00000 ,-0.00001 ,0.00002 - +,0.04351 ,0.00937 ,0.00152 ,0.00005 ,0.00000 ,-0.00001 ,0.00002 - +,0.04140 ,0.00888 ,0.00140 ,0.00004 ,0.00000 ,-0.00001 ,0.00001 - +,0.03944 ,0.00843 ,0.00130 ,0.00003 ,-0.00001 ,-0.00001 ,0.00001 - +,0.03764 ,0.00802 ,0.00121 ,0.00003 ,-0.00001 ,-0.00001 ,0.00001/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),K=1,19)/ - + 0.08476 ,0.01770 ,0.00602 ,0.00004 ,-0.00001 ,-0.00001 ,0.00000 - +,0.07493 ,0.01550 ,0.00459 ,0.00003 ,-0.00001 ,0.00000 ,0.00002 - +,0.06696 ,0.01371 ,0.00361 ,0.00001 ,-0.00001 ,-0.00003 ,-0.00001 - +,0.06036 ,0.01227 ,0.00292 ,0.00002 ,0.00000 ,-0.00001 ,0.00001 - +,0.05485 ,0.01105 ,0.00240 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.05004 ,0.01004 ,0.00201 ,0.00002 ,0.00001 ,0.00000 ,0.00002 - +,0.04595 ,0.00916 ,0.00172 ,0.00002 ,0.00000 ,0.00000 ,0.00000 - +,0.04244 ,0.00839 ,0.00148 ,0.00000 ,0.00001 ,0.00000 ,0.00001 - +,0.03930 ,0.00773 ,0.00129 ,0.00000 ,0.00000 ,-0.00001 ,0.00000 - +,0.03649 ,0.00715 ,0.00113 ,0.00001 ,-0.00001 ,-0.00001 ,0.00000 - +,0.03404 ,0.00663 ,0.00101 ,0.00001 ,0.00000 ,0.00000 ,0.00001 - +,0.03184 ,0.00618 ,0.00090 ,0.00001 ,0.00000 ,0.00000 ,0.00001 - +,0.02986 ,0.00577 ,0.00081 ,0.00001 ,0.00000 ,0.00000 ,0.00001 - +,0.02805 ,0.00541 ,0.00074 ,0.00001 ,0.00000 ,0.00000 ,0.00001 - +,0.02644 ,0.00508 ,0.00067 ,0.00001 ,0.00000 ,0.00000 ,0.00001 - +,0.02500 ,0.00477 ,0.00061 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02366 ,0.00450 ,0.00056 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02242 ,0.00426 ,0.00052 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02129 ,0.00403 ,0.00048 ,0.00001 ,0.00001 ,0.00000 ,0.00001/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),K=1,19)/ - + 0.04999 ,0.00916 ,0.00242 ,0.00003 ,-0.00001 ,-0.00001 ,-0.00001 - +,0.04360 ,0.00792 ,0.00181 ,0.00002 ,-0.00001 ,-0.00001 ,0.00000 - +,0.03852 ,0.00693 ,0.00140 ,0.00000 ,-0.00001 ,-0.00002 ,-0.00001 - +,0.03439 ,0.00613 ,0.00112 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.03091 ,0.00547 ,0.00092 ,0.00000 ,0.00000 ,-0.00001 ,0.00000 - +,0.02795 ,0.00492 ,0.00076 ,0.00001 ,0.00000 ,-0.00001 ,0.00000 - +,0.02543 ,0.00445 ,0.00065 ,0.00001 ,0.00000 ,-0.00001 ,0.00000 - +,0.02328 ,0.00404 ,0.00055 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.02140 ,0.00370 ,0.00048 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01975 ,0.00340 ,0.00042 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01827 ,0.00313 ,0.00037 ,0.00001 ,0.00000 ,0.00000 ,0.00001 - +,0.01698 ,0.00289 ,0.00033 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01585 ,0.00268 ,0.00030 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01482 ,0.00250 ,0.00027 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01388 ,0.00233 ,0.00024 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01302 ,0.00218 ,0.00022 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01225 ,0.00205 ,0.00021 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01156 ,0.00192 ,0.00019 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01093 ,0.00181 ,0.00017 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),K=1,19)/ - + 0.02606 ,0.00410 ,0.00082 ,0.00001 ,-0.00001 ,0.00000 ,-0.00001 - +,0.02243 ,0.00349 ,0.00060 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01956 ,0.00302 ,0.00046 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01725 ,0.00263 ,0.00037 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01532 ,0.00232 ,0.00030 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01374 ,0.00207 ,0.00025 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01238 ,0.00186 ,0.00021 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01123 ,0.00167 ,0.00018 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01024 ,0.00152 ,0.00015 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00938 ,0.00138 ,0.00013 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00862 ,0.00126 ,0.00012 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00795 ,0.00116 ,0.00011 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00736 ,0.00107 ,0.00009 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00683 ,0.00099 ,0.00009 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00636 ,0.00092 ,0.00008 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00594 ,0.00085 ,0.00007 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00556 ,0.00080 ,0.00006 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00521 ,0.00074 ,0.00006 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00490 ,0.00070 ,0.00005 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),K=1,19)/ - + 0.01148 ,0.00150 ,0.00022 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00970 ,0.00125 ,0.00016 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00832 ,0.00107 ,0.00012 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00723 ,0.00092 ,0.00009 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00635 ,0.00080 ,0.00008 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00561 ,0.00070 ,0.00006 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00500 ,0.00062 ,0.00005 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00449 ,0.00056 ,0.00005 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00405 ,0.00050 ,0.00004 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00367 ,0.00045 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00334 ,0.00041 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00306 ,0.00037 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00281 ,0.00034 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00259 ,0.00031 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00239 ,0.00029 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00222 ,0.00026 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00206 ,0.00025 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00192 ,0.00023 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00179 ,0.00021 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),K=1,19)/ - + 0.00079 ,0.00006 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00064 ,0.00005 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00052 ,0.00004 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00044 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00037 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00032 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00027 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00024 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00021 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00018 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00016 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00015 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00013 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00012 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00011 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00010 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00009 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00008 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00007 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - + 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - + 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - + 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - + .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - + .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - + .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - + .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,4,5,0,0,5/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C -C Don't let x be altered if it's out of range!! - XSAVE=X -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(72,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C + F(6,N,M) -C 1=UV 2=DV 3=GLUE 4=(Ubar+Dbar)/2 5=Cbar 7=Bbar 6=Sbar - DO 25 I=1,7 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=1,6 - DO 30 K=1,19 - 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) - 50 FORMAT(7F10.5) - DO 40 I=1,7 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,7 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - + + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) -C this SEA is (Ubar+Dbar)/2 - SEA=G(4) - STR=G(6) - CHM=G(5) - GL =G(3) - BOT=G(7) -C -C restore x - X=XSAVE -C - RETURN - END diff --git a/PDF/spdf/strh3b3.F b/PDF/spdf/strh3b3.F deleted file mode 100644 index 267753ae7ca..00000000000 --- a/PDF/spdf/strh3b3.F +++ /dev/null @@ -1,1015 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:26 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:52 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE STRH3B3(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C -C :::::::::::: HARRIMAN MARTIN ROBERTS STIRLING (B) SEA=UBAR=DBAR=2SBAR -C -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(7,NX,19),G(7),XX(NX),N0(7) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),K=1,19)/ - + 0.03010 ,0.00535 ,3.04030 ,0.03458 ,0.02367 ,0.00000 ,0.02924 - +,0.03061 ,0.00571 ,8.13975 ,0.18674 ,0.17513 ,0.00000 ,0.18105 - +,0.03106 ,0.00604 ,15.31423 ,0.40074 ,0.38851 ,0.00000 ,0.39475 - +,0.03144 ,0.00634 ,24.44882 ,0.66859 ,0.65578 ,0.00000 ,0.66230 - +,0.03179 ,0.00662 ,35.19894 ,0.97928 ,0.96594 ,0.02918 ,0.97273 - +,0.03210 ,0.00688 ,47.49472 ,1.33318 ,1.31934 ,0.29344 ,1.32638 - +,0.03239 ,0.00712 ,61.21500 ,1.72857 ,1.71426 ,0.71294 ,1.72154 - +,0.03266 ,0.00735 ,76.19914 ,2.16208 ,2.14733 ,1.15562 ,2.15482 - +,0.03291 ,0.00758 ,92.30090 ,2.63041 ,2.61524 ,1.63420 ,2.62294 - +,0.03314 ,0.00779,109.40378 ,3.13107 ,3.11550 ,2.14406 ,3.12340 - +,0.03337 ,0.00800,127.41644 ,3.66213 ,3.64616 ,2.68375 ,3.65426 - +,0.03358 ,0.00819,146.27200 ,4.22222 ,4.20588 ,3.25191 ,4.21417 - +,0.03378 ,0.00838,165.58926 ,4.80143 ,4.78473 ,3.83872 ,4.79319 - +,0.03398 ,0.00857,185.57768 ,5.40561 ,5.38857 ,4.45007 ,5.39720 - +,0.03416 ,0.00875,206.24709 ,6.03504 ,6.01766 ,5.08626 ,6.02645 - +,0.03434 ,0.00892,227.12204 ,6.67701 ,6.65931 ,5.73466 ,6.66827 - +,0.03451 ,0.00909,248.52014 ,7.34016 ,7.32214 ,6.40392 ,7.33126 - +,0.03468 ,0.00925,270.28271 ,8.02029 ,8.00197 ,7.08987 ,8.01124 - +,0.03484 ,0.00941,292.20361 ,8.71189 ,8.69325 ,7.78701 ,8.70267/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),K=1,19)/ - + 0.03442 ,0.00714 ,2.95321 ,0.03907 ,0.02449 ,0.00000 ,0.03187 - +,0.03505 ,0.00762 ,7.45618 ,0.17816 ,0.16272 ,0.00000 ,0.17053 - +,0.03560 ,0.00805 ,13.52259 ,0.36307 ,0.34685 ,0.00000 ,0.35505 - +,0.03608 ,0.00844 ,21.00224 ,0.58765 ,0.57072 ,0.00000 ,0.57928 - +,0.03652 ,0.00880 ,29.58041 ,0.84253 ,0.82495 ,0.02374 ,0.83383 - +,0.03691 ,0.00914 ,39.18391 ,1.12768 ,1.10950 ,0.23625 ,1.11869 - +,0.03728 ,0.00946 ,49.70346 ,1.44140 ,1.42264 ,0.56984 ,1.43212 - +,0.03762 ,0.00977 ,61.00578 ,1.78075 ,1.76145 ,0.91688 ,1.77120 - +,0.03794 ,0.01006 ,72.97453 ,2.14294 ,2.12313 ,1.28760 ,2.13313 - +,0.03825 ,0.01033 ,85.52034 ,2.52592 ,2.50562 ,1.67823 ,2.51587 - +,0.03854 ,0.01060 ,98.57555 ,2.92812 ,2.90735 ,2.08761 ,2.91784 - +,0.03881 ,0.01085,112.09140 ,3.34845 ,3.32723 ,2.51464 ,3.33794 - +,0.03908 ,0.01110,125.79108 ,3.77932 ,3.75768 ,2.95182 ,3.76860 - +,0.03933 ,0.01134,139.83392 ,4.22525 ,4.20319 ,3.40369 ,4.21432 - +,0.03957 ,0.01157,154.22963 ,4.68644 ,4.66398 ,3.87048 ,4.67531 - +,0.03980 ,0.01179,168.63942 ,5.15341 ,5.13056 ,4.34277 ,5.14208 - +,0.04003 ,0.01201,183.29691 ,5.63269 ,5.60947 ,4.82711 ,5.62118 - +,0.04025 ,0.01222,198.09370 ,6.12118 ,6.09760 ,5.32041 ,6.10948 - +,0.04046 ,0.01242,212.88824 ,6.61488 ,6.59095 ,5.81870 ,6.60302/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),K=1,19)/ - + 0.03920 ,0.00953 ,2.86842 ,0.04429 ,0.02495 ,0.00000 ,0.03468 - +,0.03997 ,0.01016 ,6.82889 ,0.17045 ,0.15003 ,0.00000 ,0.16030 - +,0.04064 ,0.01073 ,11.93773 ,0.32951 ,0.30813 ,0.00000 ,0.31889 - +,0.04124 ,0.01124 ,18.03630 ,0.51716 ,0.49489 ,0.00000 ,0.50610 - +,0.04178 ,0.01172 ,24.85046 ,0.72555 ,0.70249 ,0.01924 ,0.71409 - +,0.04228 ,0.01216 ,32.31552 ,0.95455 ,0.93075 ,0.18957 ,0.94273 - +,0.04274 ,0.01258 ,40.34067 ,1.20263 ,1.17813 ,0.45400 ,1.19046 - +,0.04318 ,0.01297 ,48.82106 ,1.46734 ,1.44218 ,0.72513 ,1.45484 - +,0.04359 ,0.01335 ,57.66890 ,1.74644 ,1.72066 ,1.01131 ,1.73363 - +,0.04397 ,0.01371 ,66.81937 ,2.03831 ,2.01195 ,1.30954 ,2.02521 - +,0.04434 ,0.01405 ,76.22516 ,2.34175 ,2.31483 ,1.61893 ,2.32837 - +,0.04470 ,0.01438 ,85.85416 ,2.65594 ,2.62847 ,1.93866 ,2.64229 - +,0.04503 ,0.01470 ,95.50752 ,2.97515 ,2.94717 ,2.26309 ,2.96124 - +,0.04536 ,0.01500,105.30835 ,3.30289 ,3.27442 ,2.59575 ,3.28874 - +,0.04567 ,0.01530,115.26682 ,3.63937 ,3.61042 ,2.93685 ,3.62498 - +,0.04597 ,0.01558,125.14362 ,3.97753 ,3.94812 ,3.27941 ,3.96291 - +,0.04626 ,0.01586,135.11200 ,4.32234 ,4.29249 ,3.62839 ,4.30750 - +,0.04654 ,0.01613,145.09842 ,4.67155 ,4.64128 ,3.98157 ,4.65650 - +,0.04682 ,0.01639,155.00717 ,5.02231 ,4.99162 ,4.33611 ,5.00706/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),K=1,19)/ - + 0.04222 ,0.01129 ,2.81980 ,0.04775 ,0.02499 ,0.00000 ,0.03641 - +,0.04308 ,0.01203 ,6.48582 ,0.16639 ,0.14240 ,0.00000 ,0.15444 - +,0.04383 ,0.01269 ,11.09605 ,0.31173 ,0.28664 ,0.00000 ,0.29924 - +,0.04451 ,0.01330 ,16.49556 ,0.48034 ,0.45427 ,0.00000 ,0.46736 - +,0.04512 ,0.01385 ,22.43633 ,0.66526 ,0.63828 ,0.01699 ,0.65183 - +,0.04569 ,0.01437 ,28.86156 ,0.86634 ,0.83853 ,0.16638 ,0.85250 - +,0.04621 ,0.01485 ,35.69254 ,1.08220 ,1.05360 ,0.39679 ,1.06796 - +,0.04671 ,0.01531 ,42.84024 ,1.31067 ,1.28135 ,0.63105 ,1.29608 - +,0.04718 ,0.01575 ,50.23198 ,1.54984 ,1.51982 ,0.87656 ,1.53491 - +,0.04762 ,0.01617 ,57.81554 ,1.79833 ,1.76766 ,1.13073 ,1.78307 - +,0.04805 ,0.01656 ,65.55385 ,2.05513 ,2.02382 ,1.39285 ,2.03955 - +,0.04845 ,0.01695 ,73.42305 ,2.31956 ,2.28766 ,1.66225 ,2.30368 - +,0.04884 ,0.01731 ,81.26059 ,2.58680 ,2.55433 ,1.93414 ,2.57064 - +,0.04922 ,0.01767 ,89.17218 ,2.85988 ,2.82687 ,2.21162 ,2.84346 - +,0.04958 ,0.01801 ,97.16896 ,3.13903 ,3.10549 ,2.49490 ,3.12234 - +,0.04993 ,0.01834,105.05618 ,3.41832 ,3.38428 ,2.77812 ,3.40138 - +,0.05027 ,0.01866,112.97937 ,3.70201 ,3.66748 ,3.06552 ,3.68482 - +,0.05059 ,0.01897,120.88029 ,3.98825 ,3.95325 ,3.35530 ,3.97083 - +,0.05091 ,0.01927,128.68414 ,4.27468 ,4.23922 ,3.64510 ,4.25703/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),K=1,19)/ - + 0.04445 ,0.01273 ,2.78569 ,0.05042 ,0.02490 ,0.00000 ,0.03768 - +,0.04538 ,0.01356 ,6.25229 ,0.16376 ,0.13689 ,0.00000 ,0.15036 - +,0.04620 ,0.01430 ,10.53365 ,0.29993 ,0.27186 ,0.00000 ,0.28594 - +,0.04693 ,0.01497 ,15.48025 ,0.45608 ,0.42693 ,0.00000 ,0.44155 - +,0.04761 ,0.01559 ,20.86304 ,0.62581 ,0.59569 ,0.01553 ,0.61080 - +,0.04822 ,0.01617 ,26.63153 ,0.80901 ,0.77798 ,0.15153 ,0.79355 - +,0.04880 ,0.01671 ,32.71552 ,1.00440 ,0.97252 ,0.36031 ,0.98852 - +,0.04935 ,0.01722 ,39.03680 ,1.21002 ,1.17735 ,0.57129 ,1.19375 - +,0.04986 ,0.01771 ,45.53253 ,1.42416 ,1.39074 ,0.79129 ,1.40751 - +,0.05035 ,0.01817 ,52.15852 ,1.64561 ,1.61147 ,1.01798 ,1.62861 - +,0.05082 ,0.01862 ,58.88443 ,1.87347 ,1.83866 ,1.25076 ,1.85614 - +,0.05127 ,0.01904 ,65.69115 ,2.10719 ,2.07175 ,1.48907 ,2.08954 - +,0.05170 ,0.01945 ,72.43822 ,2.34250 ,2.30644 ,1.72868 ,2.32455 - +,0.05212 ,0.01984 ,79.22104 ,2.58214 ,2.54550 ,1.97236 ,2.56390 - +,0.05251 ,0.02022 ,86.05089 ,2.82633 ,2.78912 ,2.22037 ,2.80781 - +,0.05290 ,0.02059 ,92.76013 ,3.06988 ,3.03213 ,2.46753 ,3.05109 - +,0.05327 ,0.02094 ,99.47733 ,3.31657 ,3.27830 ,2.71764 ,3.29751 - +,0.05364 ,0.02129,106.15353 ,3.56480 ,3.52603 ,2.96913 ,3.54550 - +,0.05399 ,0.02162,112.72549 ,3.81253 ,3.77327 ,3.21997 ,3.79298/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),K=1,19)/ - + 0.04624 ,0.01397 ,2.75944 ,0.05262 ,0.02475 ,0.00000 ,0.03870 - +,0.04723 ,0.01488 ,6.07651 ,0.16186 ,0.13254 ,0.00000 ,0.14723 - +,0.04810 ,0.01569 ,10.11606 ,0.29124 ,0.26063 ,0.00000 ,0.27597 - +,0.04888 ,0.01642 ,14.73409 ,0.43828 ,0.40652 ,0.00000 ,0.42244 - +,0.04960 ,0.01710 ,19.71619 ,0.59702 ,0.56421 ,0.01449 ,0.58066 - +,0.05026 ,0.01772 ,25.01701 ,0.76735 ,0.73358 ,0.14085 ,0.75052 - +,0.05088 ,0.01831 ,30.57309 ,0.94810 ,0.91343 ,0.33415 ,0.93082 - +,0.05147 ,0.01887 ,36.31396 ,1.13747 ,1.10195 ,0.52856 ,1.11977 - +,0.05203 ,0.01940 ,42.18394 ,1.33389 ,1.29758 ,0.73049 ,1.31580 - +,0.05256 ,0.01990 ,48.14467 ,1.53626 ,1.49920 ,0.93779 ,1.51780 - +,0.05306 ,0.02038 ,54.17032 ,1.74382 ,1.70604 ,1.14997 ,1.72499 - +,0.05354 ,0.02084 ,60.24532 ,1.95604 ,1.91759 ,1.36650 ,1.93688 - +,0.05401 ,0.02128 ,66.24471 ,2.16908 ,2.12997 ,1.58356 ,2.14960 - +,0.05446 ,0.02171 ,72.25627 ,2.38546 ,2.34574 ,1.80374 ,2.36567 - +,0.05489 ,0.02212 ,78.29144 ,2.60540 ,2.56509 ,2.02727 ,2.58532 - +,0.05531 ,0.02252 ,84.20129 ,2.82422 ,2.78334 ,2.24948 ,2.80386 - +,0.05571 ,0.02290 ,90.10233 ,3.04538 ,3.00395 ,2.47385 ,3.02474 - +,0.05610 ,0.02327 ,95.95222 ,3.26745 ,3.22549 ,2.69898 ,3.24655 - +,0.05648 ,0.02363,101.69536 ,3.48861 ,3.44614 ,2.92305 ,3.46745/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),K=1,19)/ - + 0.05209 ,0.01866 ,2.67877 ,0.06035 ,0.02379 ,0.00000 ,0.04207 - +,0.05328 ,0.01985 ,5.55790 ,0.15697 ,0.11861 ,0.00000 ,0.13780 - +,0.05434 ,0.02091 ,8.91361 ,0.26691 ,0.22697 ,0.00000 ,0.24696 - +,0.05530 ,0.02187 ,12.62407 ,0.38848 ,0.34713 ,0.00000 ,0.36783 - +,0.05619 ,0.02275 ,16.51964 ,0.51696 ,0.47433 ,0.01162 ,0.49568 - +,0.05701 ,0.02356 ,20.57137 ,0.65232 ,0.60852 ,0.11183 ,0.63047 - +,0.05779 ,0.02433 ,24.73503 ,0.79370 ,0.74881 ,0.26342 ,0.77130 - +,0.05852 ,0.02505 ,28.96217 ,0.93974 ,0.89384 ,0.41363 ,0.91684 - +,0.05922 ,0.02573 ,33.21648 ,1.08929 ,1.04244 ,0.56770 ,1.06593 - +,0.05989 ,0.02638 ,37.47484 ,1.24161 ,1.19387 ,0.72408 ,1.21780 - +,0.06053 ,0.02700 ,41.72339 ,1.39618 ,1.34759 ,0.88243 ,1.37195 - +,0.06114 ,0.02759 ,45.95534 ,1.55270 ,1.50330 ,1.04248 ,1.52807 - +,0.06173 ,0.02815 ,50.08446 ,1.70832 ,1.65817 ,1.20141 ,1.68332 - +,0.06230 ,0.02870 ,54.17931 ,1.86508 ,1.81419 ,1.36127 ,1.83971 - +,0.06285 ,0.02922 ,58.25143 ,2.02318 ,1.97160 ,1.52231 ,1.99747 - +,0.06338 ,0.02973 ,62.19780 ,2.17922 ,2.12697 ,1.68112 ,2.15317 - +,0.06390 ,0.03022 ,66.10518 ,2.33583 ,2.28295 ,1.84037 ,2.30947 - +,0.06440 ,0.03069 ,69.94600 ,2.49205 ,2.43855 ,1.99908 ,2.46538 - +,0.06489 ,0.03114 ,73.68449 ,2.64657 ,2.59249 ,2.15598 ,2.61962/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),K=1,19)/ - + 0.05839 ,0.02492 ,2.59872 ,0.06977 ,0.02202 ,0.00000 ,0.04589 - +,0.05985 ,0.02648 ,5.07511 ,0.15405 ,0.10409 ,0.00000 ,0.12908 - +,0.06116 ,0.02787 ,7.83555 ,0.24683 ,0.19494 ,0.00000 ,0.22091 - +,0.06235 ,0.02912 ,10.78502 ,0.34671 ,0.29311 ,0.00000 ,0.31994 - +,0.06346 ,0.03026 ,13.79556 ,0.45000 ,0.39486 ,0.00925 ,0.42247 - +,0.06450 ,0.03131 ,16.85365 ,0.55681 ,0.50027 ,0.08814 ,0.52859 - +,0.06548 ,0.03230 ,19.93219 ,0.66655 ,0.60871 ,0.20613 ,0.63768 - +,0.06640 ,0.03323 ,23.00061 ,0.77825 ,0.71922 ,0.32125 ,0.74880 - +,0.06729 ,0.03410 ,26.03784 ,0.89115 ,0.83100 ,0.43783 ,0.86114 - +,0.06814 ,0.03494 ,29.03220 ,1.00476 ,0.94356 ,0.55474 ,0.97423 - +,0.06895 ,0.03573 ,31.97850 ,1.11879 ,1.05660 ,0.67185 ,1.08776 - +,0.06973 ,0.03648 ,34.87604 ,1.23308 ,1.16996 ,0.78902 ,1.20160 - +,0.07049 ,0.03720 ,37.66675 ,1.34560 ,1.28160 ,0.90424 ,1.31368 - +,0.07122 ,0.03790 ,40.40408 ,1.45795 ,1.39311 ,1.01912 ,1.42562 - +,0.07192 ,0.03856 ,43.09885 ,1.57036 ,1.50471 ,1.13391 ,1.53762 - +,0.07261 ,0.03920 ,45.68129 ,1.68036 ,1.61395 ,1.24617 ,1.64725 - +,0.07327 ,0.03982 ,48.21510 ,1.78998 ,1.72284 ,1.35793 ,1.75650 - +,0.07391 ,0.04041 ,50.68329 ,1.89854 ,1.83071 ,1.46852 ,1.86472 - +,0.07454 ,0.04099 ,53.06317 ,2.00517 ,1.93668 ,1.57710 ,1.97102/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),K=1,19)/ - + 0.06233 ,0.02952 ,2.55157 ,0.07636 ,0.02062 ,0.00000 ,0.04849 - +,0.06399 ,0.03135 ,4.80576 ,0.15363 ,0.09543 ,0.00000 ,0.12455 - +,0.06550 ,0.03296 ,7.25219 ,0.23731 ,0.17696 ,0.00000 ,0.20716 - +,0.06687 ,0.03442 ,9.81247 ,0.32597 ,0.26373 ,0.00000 ,0.29489 - +,0.06815 ,0.03575 ,12.38120 ,0.41648 ,0.35255 ,0.00806 ,0.38456 - +,0.06935 ,0.03697 ,14.95306 ,0.50902 ,0.44355 ,0.07631 ,0.47634 - +,0.07048 ,0.03811 ,17.50949 ,0.60315 ,0.53626 ,0.17768 ,0.56977 - +,0.07156 ,0.03918 ,20.02881 ,0.69812 ,0.62993 ,0.27567 ,0.66409 - +,0.07259 ,0.04019 ,22.49686 ,0.79333 ,0.72392 ,0.37413 ,0.75870 - +,0.07357 ,0.04115 ,24.90733 ,0.88844 ,0.81790 ,0.47216 ,0.85325 - +,0.07452 ,0.04206 ,27.25868 ,0.98325 ,0.91164 ,0.56970 ,0.94753 - +,0.07543 ,0.04293 ,29.55284 ,1.07770 ,1.00509 ,0.66669 ,1.04148 - +,0.07631 ,0.04376 ,31.74426 ,1.17012 ,1.09656 ,0.76149 ,1.13344 - +,0.07716 ,0.04455 ,33.87901 ,1.26190 ,1.18744 ,0.85551 ,1.22477 - +,0.07797 ,0.04531 ,35.96741 ,1.35327 ,1.27796 ,0.94900 ,1.31572 - +,0.07877 ,0.04604 ,37.95432 ,1.44222 ,1.36611 ,1.03995 ,1.40427 - +,0.07954 ,0.04674 ,39.89278 ,1.53047 ,1.45358 ,1.13009 ,1.49213 - +,0.08029 ,0.04742 ,41.77013 ,1.61749 ,1.53986 ,1.21892 ,1.57878 - +,0.08102 ,0.04808 ,43.56935 ,1.70259 ,1.62426 ,1.30573 ,1.66354/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),K=1,19)/ - + 0.06528 ,0.03330 ,2.51765 ,0.08167 ,0.01952 ,0.00000 ,0.05060 - +,0.06713 ,0.03533 ,4.61890 ,0.15411 ,0.08931 ,0.00000 ,0.12173 - +,0.06880 ,0.03713 ,6.85541 ,0.23169 ,0.16459 ,0.00000 ,0.19818 - +,0.07034 ,0.03875 ,9.16069 ,0.31295 ,0.24384 ,0.00000 ,0.27844 - +,0.07177 ,0.04023 ,11.44444 ,0.39513 ,0.32422 ,0.00729 ,0.35973 - +,0.07310 ,0.04158 ,13.70671 ,0.47845 ,0.40592 ,0.06867 ,0.44225 - +,0.07437 ,0.04284 ,15.93439 ,0.56259 ,0.48856 ,0.15939 ,0.52565 - +,0.07558 ,0.04403 ,18.11127 ,0.64692 ,0.57152 ,0.24649 ,0.60930 - +,0.07673 ,0.04514 ,20.22755 ,0.73097 ,0.65430 ,0.33351 ,0.69272 - +,0.07784 ,0.04620 ,22.27995 ,0.81447 ,0.73661 ,0.41968 ,0.77563 - +,0.07889 ,0.04720 ,24.26909 ,0.89730 ,0.81833 ,0.50500 ,0.85791 - +,0.07991 ,0.04816 ,26.19830 ,0.97944 ,0.89942 ,0.58946 ,0.93953 - +,0.08090 ,0.04906 ,28.02969 ,1.05945 ,0.97845 ,0.67165 ,1.01905 - +,0.08185 ,0.04993 ,29.80446 ,1.13859 ,1.05665 ,0.75284 ,1.09773 - +,0.08277 ,0.05077 ,31.53252 ,1.21708 ,1.13427 ,0.83328 ,1.17578 - +,0.08366 ,0.05157 ,33.16745 ,1.29321 ,1.20955 ,0.91124 ,1.25149 - +,0.08452 ,0.05234 ,34.75571 ,1.36848 ,1.28403 ,0.98826 ,1.32637 - +,0.08536 ,0.05308 ,36.28712 ,1.44247 ,1.35726 ,1.06390 ,1.39998 - +,0.08618 ,0.05379 ,37.74786 ,1.51458 ,1.42866 ,1.13760 ,1.47174/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),K=1,19)/ - + 0.06770 ,0.03656 ,2.49049 ,0.08649 ,0.01887 ,0.00000 ,0.05268 - +,0.06974 ,0.03877 ,4.47297 ,0.15547 ,0.08506 ,0.00000 ,0.12029 - +,0.07160 ,0.04073 ,6.54988 ,0.22842 ,0.15563 ,0.00000 ,0.19206 - +,0.07330 ,0.04248 ,8.66404 ,0.30410 ,0.22921 ,0.00000 ,0.26671 - +,0.07489 ,0.04407 ,10.73668 ,0.38005 ,0.30330 ,0.00672 ,0.34174 - +,0.07638 ,0.04554 ,12.77213 ,0.45654 ,0.37811 ,0.06300 ,0.41740 - +,0.07778 ,0.04690 ,14.76091 ,0.53331 ,0.45335 ,0.14587 ,0.49341 - +,0.07912 ,0.04817 ,16.69051 ,0.60986 ,0.52849 ,0.22497 ,0.56926 - +,0.08040 ,0.04937 ,18.55450 ,0.68578 ,0.60311 ,0.30364 ,0.64453 - +,0.08163 ,0.05051 ,20.35176 ,0.76088 ,0.67699 ,0.38121 ,0.71903 - +,0.08280 ,0.05158 ,22.08429 ,0.83506 ,0.75004 ,0.45770 ,0.79264 - +,0.08393 ,0.05260 ,23.75648 ,0.90835 ,0.82227 ,0.53316 ,0.86541 - +,0.08502 ,0.05358 ,25.33496 ,0.97946 ,0.89239 ,0.60630 ,0.93603 - +,0.08607 ,0.05451 ,26.85815 ,1.04958 ,0.96156 ,0.67833 ,1.00568 - +,0.08709 ,0.05540 ,28.33542 ,1.11892 ,1.03001 ,0.74948 ,1.07458 - +,0.08807 ,0.05625 ,29.72572 ,1.18595 ,1.09621 ,0.81822 ,1.14120 - +,0.08903 ,0.05707 ,31.07158 ,1.25206 ,1.16151 ,0.88595 ,1.20690 - +,0.08996 ,0.05786 ,32.36469 ,1.31685 ,1.22555 ,0.95230 ,1.27132 - +,0.09086 ,0.05862 ,33.59363 ,1.37984 ,1.28781 ,1.01676 ,1.33395/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),K=1,19)/ - + 0.07616 ,0.04891 ,2.40345 ,0.10395 ,0.01644 ,0.00000 ,0.06020 - +,0.07905 ,0.05176 ,4.03282 ,0.16221 ,0.07161 ,0.00000 ,0.11694 - +,0.08167 ,0.05426 ,5.65476 ,0.22174 ,0.12852 ,0.00000 ,0.17517 - +,0.08407 ,0.05649 ,7.24027 ,0.28166 ,0.18619 ,0.00000 ,0.23398 - +,0.08631 ,0.05850 ,8.74220 ,0.34036 ,0.24291 ,0.00515 ,0.29170 - +,0.08840 ,0.06033 ,10.17487 ,0.39819 ,0.29898 ,0.04761 ,0.34866 - +,0.09037 ,0.06204 ,11.53897 ,0.45512 ,0.35433 ,0.10931 ,0.40481 - +,0.09225 ,0.06362 ,12.83179 ,0.51090 ,0.40867 ,0.16716 ,0.45987 - +,0.09403 ,0.06511 ,14.05407 ,0.56536 ,0.46181 ,0.22382 ,0.51368 - +,0.09574 ,0.06651 ,15.20937 ,0.61845 ,0.51368 ,0.27892 ,0.56616 - +,0.09737 ,0.06782 ,16.30273 ,0.67019 ,0.56430 ,0.33254 ,0.61735 - +,0.09893 ,0.06907 ,17.34018 ,0.72068 ,0.61375 ,0.38480 ,0.66732 - +,0.10044 ,0.07026 ,18.30151 ,0.76908 ,0.66118 ,0.43487 ,0.71524 - +,0.10189 ,0.07139 ,19.21530 ,0.81628 ,0.70748 ,0.48365 ,0.76199 - +,0.10329 ,0.07246 ,20.08951 ,0.86250 ,0.75285 ,0.53137 ,0.80779 - +,0.10464 ,0.07349 ,20.89827 ,0.90670 ,0.79626 ,0.57700 ,0.85160 - +,0.10595 ,0.07447 ,21.67140 ,0.94990 ,0.83872 ,0.62157 ,0.89443 - +,0.10721 ,0.07542 ,22.40445 ,0.99188 ,0.87999 ,0.66484 ,0.93606 - +,0.10844 ,0.07632 ,23.09097 ,1.03231 ,0.91975 ,0.70652 ,0.97616/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),K=1,19)/ - + 0.08765 ,0.06558 ,2.30853 ,0.12610 ,0.01403 ,0.00000 ,0.07007 - +,0.09200 ,0.06918 ,3.60232 ,0.17422 ,0.05910 ,0.00001 ,0.11669 - +,0.09592 ,0.07231 ,4.82022 ,0.22150 ,0.10386 ,0.00001 ,0.16272 - +,0.09949 ,0.07508 ,5.95850 ,0.26755 ,0.14780 ,0.00002 ,0.20773 - +,0.10277 ,0.07755 ,6.99558 ,0.31147 ,0.18992 ,0.00385 ,0.25076 - +,0.10582 ,0.07980 ,7.95230 ,0.35373 ,0.23061 ,0.03496 ,0.29225 - +,0.10868 ,0.08186 ,8.83576 ,0.39444 ,0.26993 ,0.07951 ,0.33227 - +,0.11139 ,0.08377 ,9.65009 ,0.43355 ,0.30782 ,0.12045 ,0.37077 - +,0.11395 ,0.08555 ,10.40122 ,0.47106 ,0.34423 ,0.15990 ,0.40774 - +,0.11637 ,0.08721 ,11.09418 ,0.50703 ,0.37921 ,0.19766 ,0.44322 - +,0.11867 ,0.08878 ,11.73479 ,0.54157 ,0.41285 ,0.23388 ,0.47731 - +,0.12088 ,0.09025 ,12.32984 ,0.57481 ,0.44527 ,0.26872 ,0.51015 - +,0.12299 ,0.09162 ,12.86913 ,0.60621 ,0.47594 ,0.30165 ,0.54118 - +,0.12502 ,0.09293 ,13.37148 ,0.63646 ,0.50552 ,0.33336 ,0.57109 - +,0.12696 ,0.09417 ,13.84347 ,0.66575 ,0.53419 ,0.36404 ,0.60008 - +,0.12881 ,0.09536 ,14.27020 ,0.69343 ,0.56130 ,0.39306 ,0.62748 - +,0.13060 ,0.09648 ,14.67151 ,0.72020 ,0.58754 ,0.42111 ,0.65399 - +,0.13234 ,0.09755 ,15.04519 ,0.74594 ,0.61279 ,0.44808 ,0.67948 - +,0.13401 ,0.09858 ,15.38781 ,0.77045 ,0.63687 ,0.47379 ,0.70377/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),K=1,19)/ - + 0.09722 ,0.07797 ,2.24705 ,0.14100 ,0.01258 ,0.00000 ,0.07679 - +,0.10282 ,0.08206 ,3.35285 ,0.18320 ,0.05206 ,0.00001 ,0.11766 - +,0.10782 ,0.08557 ,4.35764 ,0.22368 ,0.09037 ,0.00001 ,0.15706 - +,0.11234 ,0.08867 ,5.26985 ,0.26232 ,0.12721 ,0.00001 ,0.19482 - +,0.11647 ,0.09141 ,6.07963 ,0.29857 ,0.16198 ,0.00320 ,0.23034 - +,0.12028 ,0.09389 ,6.80979 ,0.33290 ,0.19506 ,0.02868 ,0.26405 - +,0.12384 ,0.09614 ,7.47053 ,0.36551 ,0.22660 ,0.06485 ,0.29613 - +,0.12718 ,0.09823 ,8.06853 ,0.39646 ,0.25663 ,0.09769 ,0.32663 - +,0.13031 ,0.10016 ,8.60932 ,0.42580 ,0.28516 ,0.12898 ,0.35557 - +,0.13328 ,0.10195 ,9.09945 ,0.45364 ,0.31229 ,0.15863 ,0.38305 - +,0.13610 ,0.10362 ,9.54581 ,0.48009 ,0.33813 ,0.18683 ,0.40920 - +,0.13877 ,0.10518 ,9.95480 ,0.50533 ,0.36282 ,0.21372 ,0.43417 - +,0.14131 ,0.10665 ,10.31707 ,0.52893 ,0.38596 ,0.23891 ,0.45755 - +,0.14373 ,0.10803 ,10.65038 ,0.55149 ,0.40810 ,0.26299 ,0.47989 - +,0.14606 ,0.10934 ,10.95992 ,0.57315 ,0.42940 ,0.28611 ,0.50137 - +,0.14827 ,0.11058 ,11.23367 ,0.59345 ,0.44937 ,0.30780 ,0.52150 - +,0.15040 ,0.11175 ,11.48721 ,0.61293 ,0.46857 ,0.32864 ,0.54085 - +,0.15245 ,0.11286 ,11.71921 ,0.63153 ,0.48692 ,0.34855 ,0.55932 - +,0.15442 ,0.11393 ,11.92922 ,0.64912 ,0.50429 ,0.36740 ,0.57681/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),K=1,19)/ - + 0.10623 ,0.08825 ,2.19952 ,0.15216 ,0.01158 ,0.00000 ,0.08187 - +,0.11294 ,0.09268 ,3.17558 ,0.19015 ,0.04728 ,0.00001 ,0.11874 - +,0.11889 ,0.09646 ,4.03898 ,0.22592 ,0.08129 ,0.00001 ,0.15365 - +,0.12423 ,0.09977 ,4.80540 ,0.25955 ,0.11351 ,0.00001 ,0.18658 - +,0.12908 ,0.10268 ,5.47207 ,0.29069 ,0.14355 ,0.00277 ,0.21718 - +,0.13352 ,0.10530 ,6.06248 ,0.31984 ,0.17180 ,0.02469 ,0.24589 - +,0.13766 ,0.10767 ,6.58799 ,0.34723 ,0.19847 ,0.05558 ,0.27293 - +,0.14151 ,0.10985 ,7.05616 ,0.37298 ,0.22362 ,0.08336 ,0.29838 - +,0.14511 ,0.11186 ,7.47304 ,0.39717 ,0.24731 ,0.10962 ,0.32232 - +,0.14850 ,0.11371 ,7.84533 ,0.41992 ,0.26965 ,0.13431 ,0.34487 - +,0.15171 ,0.11543 ,8.17963 ,0.44138 ,0.29078 ,0.15762 ,0.36616 - +,0.15475 ,0.11703 ,8.48180 ,0.46169 ,0.31082 ,0.17971 ,0.38634 - +,0.15761 ,0.11854 ,8.74481 ,0.48055 ,0.32947 ,0.20028 ,0.40510 - +,0.16034 ,0.11994 ,8.98366 ,0.49844 ,0.34721 ,0.21981 ,0.42292 - +,0.16295 ,0.12127 ,9.20281 ,0.51552 ,0.36417 ,0.23846 ,0.43994 - +,0.16541 ,0.12251 ,9.39281 ,0.53141 ,0.37997 ,0.25586 ,0.45578 - +,0.16779 ,0.12369 ,9.56652 ,0.54658 ,0.39509 ,0.27249 ,0.47092 - +,0.17007 ,0.12480 ,9.72303 ,0.56096 ,0.40945 ,0.28830 ,0.48530 - +,0.17224 ,0.12586 ,9.86208 ,0.57449 ,0.42297 ,0.30320 ,0.49882/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),K=1,19)/ - + 0.11501 ,0.09721 ,2.15987 ,0.16091 ,0.01080 ,0.00000 ,0.08586 - +,0.12273 ,0.10188 ,3.03761 ,0.19556 ,0.04365 ,0.00001 ,0.11963 - +,0.12950 ,0.10585 ,3.79716 ,0.22773 ,0.07449 ,0.00002 ,0.15115 - +,0.13556 ,0.10930 ,4.45879 ,0.25758 ,0.10338 ,0.00003 ,0.18054 - +,0.14101 ,0.11232 ,5.02456 ,0.28493 ,0.13000 ,0.00248 ,0.20753 - +,0.14597 ,0.11503 ,5.51760 ,0.31029 ,0.15482 ,0.02185 ,0.23262 - +,0.15058 ,0.11746 ,5.95025 ,0.33392 ,0.17805 ,0.04902 ,0.25605 - +,0.15486 ,0.11968 ,6.33097 ,0.35594 ,0.19978 ,0.07325 ,0.27793 - +,0.15884 ,0.12172 ,6.66501 ,0.37646 ,0.22011 ,0.09600 ,0.29836 - +,0.16258 ,0.12360 ,6.95899 ,0.39562 ,0.23917 ,0.11727 ,0.31748 - +,0.16610 ,0.12533 ,7.21938 ,0.41358 ,0.25708 ,0.13723 ,0.33541 - +,0.16941 ,0.12696 ,7.45111 ,0.43045 ,0.27393 ,0.15602 ,0.35227 - +,0.17251 ,0.12845 ,7.65075 ,0.44603 ,0.28957 ,0.17345 ,0.36788 - +,0.17548 ,0.12985 ,7.82895 ,0.46072 ,0.30435 ,0.18991 ,0.38262 - +,0.17831 ,0.13116 ,7.99008 ,0.47468 ,0.31840 ,0.20557 ,0.39663 - +,0.18095 ,0.13240 ,8.12754 ,0.48755 ,0.33140 ,0.22008 ,0.40957 - +,0.18350 ,0.13357 ,8.25163 ,0.49978 ,0.34380 ,0.23390 ,0.42188 - +,0.18595 ,0.13465 ,8.36165 ,0.51135 ,0.35554 ,0.24699 ,0.43353 - +,0.18827 ,0.13568 ,8.45671 ,0.52214 ,0.36654 ,0.25927 ,0.44443/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),K=1,19)/ - + 0.15812 ,0.13185 ,2.01386 ,0.18544 ,0.00840 ,-0.00001 ,0.09691 - +,0.16945 ,0.13704 ,2.60007 ,0.20920 ,0.03287 ,0.00001 ,0.12105 - +,0.17915 ,0.14130 ,3.06864 ,0.23016 ,0.05475 ,0.00001 ,0.14248 - +,0.18757 ,0.14491 ,3.44896 ,0.24878 ,0.07438 ,0.00003 ,0.16161 - +,0.19504 ,0.14798 ,3.75305 ,0.26515 ,0.09182 ,0.00164 ,0.17853 - +,0.20167 ,0.15066 ,4.00122 ,0.27981 ,0.10758 ,0.01428 ,0.19374 - +,0.20769 ,0.15302 ,4.20639 ,0.29298 ,0.12188 ,0.03163 ,0.20748 - +,0.21320 ,0.15512 ,4.37570 ,0.30488 ,0.13491 ,0.04673 ,0.21994 - +,0.21820 ,0.15701 ,4.51456 ,0.31566 ,0.14680 ,0.06058 ,0.23126 - +,0.22282 ,0.15871 ,4.62863 ,0.32541 ,0.15765 ,0.07324 ,0.24157 - +,0.22713 ,0.16024 ,4.72265 ,0.33428 ,0.16763 ,0.08489 ,0.25099 - +,0.23113 ,0.16162 ,4.80057 ,0.34240 ,0.17683 ,0.09564 ,0.25966 - +,0.23482 ,0.16287 ,4.86007 ,0.34965 ,0.18515 ,0.10542 ,0.26745 - +,0.23828 ,0.16402 ,4.90833 ,0.35632 ,0.19287 ,0.11450 ,0.27465 - +,0.24153 ,0.16509 ,4.94803 ,0.36251 ,0.20009 ,0.12299 ,0.28136 - +,0.24455 ,0.16606 ,4.97547 ,0.36806 ,0.20664 ,0.13076 ,0.28740 - +,0.24740 ,0.16695 ,4.99704 ,0.37320 ,0.21276 ,0.13803 ,0.29303 - +,0.25010 ,0.16776 ,5.01244 ,0.37793 ,0.21846 ,0.14480 ,0.29824 - +,0.25264 ,0.16851 ,5.02091 ,0.38219 ,0.22367 ,0.15104 ,0.30298/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),K=1,19)/ - + 0.24244 ,0.17951 ,1.81348 ,0.19425 ,0.00603 ,-0.00008 ,0.10010 - +,0.25674 ,0.18394 ,2.13553 ,0.20642 ,0.02293 ,-0.00011 ,0.11464 - +,0.26841 ,0.18736 ,2.36408 ,0.21635 ,0.03717 ,-0.00010 ,0.12673 - +,0.27814 ,0.19010 ,2.52920 ,0.22455 ,0.04928 ,-0.00010 ,0.13689 - +,0.28646 ,0.19219 ,2.64417 ,0.23127 ,0.05960 ,0.00089 ,0.14540 - +,0.29356 ,0.19394 ,2.72604 ,0.23687 ,0.06852 ,0.00837 ,0.15267 - +,0.29980 ,0.19534 ,2.78304 ,0.24157 ,0.07629 ,0.01842 ,0.15893 - +,0.30531 ,0.19648 ,2.82067 ,0.24551 ,0.08315 ,0.02689 ,0.16433 - +,0.31018 ,0.19742 ,2.84333 ,0.24880 ,0.08919 ,0.03443 ,0.16900 - +,0.31452 ,0.19814 ,2.85467 ,0.25156 ,0.09452 ,0.04114 ,0.17304 - +,0.31843 ,0.19874 ,2.85738 ,0.25387 ,0.09926 ,0.04717 ,0.17657 - +,0.32193 ,0.19928 ,2.85339 ,0.25582 ,0.10350 ,0.05262 ,0.17966 - +,0.32507 ,0.19964 ,2.84210 ,0.25730 ,0.10723 ,0.05739 ,0.18226 - +,0.32791 ,0.19992 ,2.82716 ,0.25853 ,0.11058 ,0.06173 ,0.18454 - +,0.33051 ,0.20014 ,2.80989 ,0.25955 ,0.11362 ,0.06573 ,0.18657 - +,0.33287 ,0.20023 ,2.78833 ,0.26029 ,0.11625 ,0.06932 ,0.18824 - +,0.33502 ,0.20031 ,2.76564 ,0.26087 ,0.11866 ,0.07259 ,0.18974 - +,0.33695 ,0.20036 ,2.74161 ,0.26128 ,0.12084 ,0.07556 ,0.19105 - +,0.33871 ,0.20033 ,2.71583 ,0.26152 ,0.12277 ,0.07825 ,0.19213/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),K=1,19)/ - + 0.32067 ,0.21328 ,1.65743 ,0.18321 ,0.00480 ,0.00002 ,0.09401 - +,0.33434 ,0.21597 ,1.84382 ,0.18887 ,0.01769 ,0.00004 ,0.10330 - +,0.34503 ,0.21771 ,1.95898 ,0.19297 ,0.02814 ,0.00000 ,0.11057 - +,0.35361 ,0.21875 ,2.02955 ,0.19600 ,0.03670 ,0.00003 ,0.11635 - +,0.36044 ,0.21941 ,2.06683 ,0.19810 ,0.04370 ,0.00070 ,0.12091 - +,0.36606 ,0.21971 ,2.08361 ,0.19955 ,0.04961 ,0.00584 ,0.12459 - +,0.37078 ,0.21975 ,2.08610 ,0.20049 ,0.05463 ,0.01265 ,0.12758 - +,0.37477 ,0.21960 ,2.07793 ,0.20102 ,0.05890 ,0.01829 ,0.13000 - +,0.37805 ,0.21932 ,2.06230 ,0.20121 ,0.06258 ,0.02320 ,0.13192 - +,0.38079 ,0.21895 ,2.04142 ,0.20115 ,0.06574 ,0.02748 ,0.13346 - +,0.38314 ,0.21849 ,2.01690 ,0.20087 ,0.06846 ,0.03125 ,0.13468 - +,0.38515 ,0.21792 ,1.99013 ,0.20042 ,0.07083 ,0.03457 ,0.13565 - +,0.38674 ,0.21729 ,1.96064 ,0.19979 ,0.07281 ,0.03750 ,0.13633 - +,0.38811 ,0.21661 ,1.93044 ,0.19906 ,0.07459 ,0.04008 ,0.13686 - +,0.38928 ,0.21590 ,1.90026 ,0.19825 ,0.07617 ,0.04240 ,0.13726 - +,0.39018 ,0.21514 ,1.86894 ,0.19733 ,0.07746 ,0.04445 ,0.13743 - +,0.39092 ,0.21438 ,1.83808 ,0.19637 ,0.07861 ,0.04630 ,0.13752 - +,0.39149 ,0.21362 ,1.80745 ,0.19536 ,0.07961 ,0.04796 ,0.13752 - +,0.39192 ,0.21280 ,1.77691 ,0.19428 ,0.08047 ,0.04941 ,0.13741/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),K=1,19)/ - + 0.39018 ,0.23835 ,1.52245 ,0.16495 ,0.00399 ,0.00009 ,0.08449 - +,0.40112 ,0.23871 ,1.62414 ,0.16667 ,0.01425 ,0.00004 ,0.09047 - +,0.40900 ,0.23840 ,1.67294 ,0.16744 ,0.02225 ,0.00009 ,0.09488 - +,0.41490 ,0.23760 ,1.69074 ,0.16755 ,0.02861 ,0.00002 ,0.09815 - +,0.41904 ,0.23660 ,1.68707 ,0.16720 ,0.03374 ,0.00057 ,0.10051 - +,0.42226 ,0.23532 ,1.67145 ,0.16645 ,0.03795 ,0.00439 ,0.10224 - +,0.42459 ,0.23395 ,1.64789 ,0.16550 ,0.04136 ,0.00936 ,0.10349 - +,0.42623 ,0.23249 ,1.61919 ,0.16435 ,0.04423 ,0.01332 ,0.10434 - +,0.42729 ,0.23101 ,1.58737 ,0.16307 ,0.04664 ,0.01676 ,0.10490 - +,0.42794 ,0.22947 ,1.55385 ,0.16170 ,0.04865 ,0.01975 ,0.10523 - +,0.42829 ,0.22789 ,1.51963 ,0.16027 ,0.05031 ,0.02231 ,0.10535 - +,0.42835 ,0.22632 ,1.48536 ,0.15880 ,0.05172 ,0.02450 ,0.10532 - +,0.42810 ,0.22474 ,1.45049 ,0.15725 ,0.05287 ,0.02641 ,0.10512 - +,0.42769 ,0.22313 ,1.41649 ,0.15570 ,0.05387 ,0.02807 ,0.10484 - +,0.42717 ,0.22154 ,1.38369 ,0.15417 ,0.05475 ,0.02953 ,0.10451 - +,0.42639 ,0.22001 ,1.35118 ,0.15260 ,0.05541 ,0.03080 ,0.10406 - +,0.42554 ,0.21850 ,1.31995 ,0.15107 ,0.05597 ,0.03195 ,0.10358 - +,0.42459 ,0.21700 ,1.28976 ,0.14956 ,0.05643 ,0.03298 ,0.10307 - +,0.42358 ,0.21547 ,1.26034 ,0.14805 ,0.05678 ,0.03385 ,0.10248/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),K=1,19)/ - + 0.45007 ,0.25665 ,1.40113 ,0.14444 ,0.00327 ,0.00010 ,0.07391 - +,0.45673 ,0.25454 ,1.44529 ,0.14379 ,0.01166 ,0.00011 ,0.07775 - +,0.46079 ,0.25204 ,1.45149 ,0.14264 ,0.01796 ,0.00008 ,0.08031 - +,0.46316 ,0.24931 ,1.43702 ,0.14116 ,0.02287 ,0.00006 ,0.08202 - +,0.46420 ,0.24653 ,1.40982 ,0.13942 ,0.02672 ,0.00048 ,0.08309 - +,0.46436 ,0.24378 ,1.37643 ,0.13758 ,0.02977 ,0.00336 ,0.08374 - +,0.46387 ,0.24103 ,1.33964 ,0.13569 ,0.03226 ,0.00711 ,0.08398 - +,0.46288 ,0.23829 ,1.30120 ,0.13377 ,0.03424 ,0.01006 ,0.08402 - +,0.46148 ,0.23562 ,1.26240 ,0.13183 ,0.03581 ,0.01251 ,0.08384 - +,0.45986 ,0.23298 ,1.22403 ,0.12988 ,0.03713 ,0.01464 ,0.08353 - +,0.45808 ,0.23039 ,1.18663 ,0.12794 ,0.03824 ,0.01648 ,0.08313 - +,0.45610 ,0.22794 ,1.15060 ,0.12608 ,0.03911 ,0.01800 ,0.08261 - +,0.45393 ,0.22542 ,1.11528 ,0.12421 ,0.03980 ,0.01935 ,0.08203 - +,0.45167 ,0.22306 ,1.08162 ,0.12239 ,0.04035 ,0.02049 ,0.08139 - +,0.44938 ,0.22082 ,1.04973 ,0.12063 ,0.04079 ,0.02148 ,0.08072 - +,0.44703 ,0.21852 ,1.01882 ,0.11887 ,0.04114 ,0.02231 ,0.08003 - +,0.44464 ,0.21631 ,0.98954 ,0.11718 ,0.04141 ,0.02304 ,0.07933 - +,0.44220 ,0.21418 ,0.96165 ,0.11556 ,0.04160 ,0.02368 ,0.07862 - +,0.43975 ,0.21209 ,0.93489 ,0.11394 ,0.04172 ,0.02420 ,0.07788/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),K=1,19)/ - + 0.51071 ,0.27145 ,1.26429 ,0.11912 ,0.00265 ,0.00007 ,0.06089 - +,0.51113 ,0.26611 ,1.25966 ,0.11685 ,0.00929 ,0.00008 ,0.06312 - +,0.50960 ,0.26086 ,1.23161 ,0.11446 ,0.01414 ,0.00011 ,0.06435 - +,0.50704 ,0.25576 ,1.19315 ,0.11211 ,0.01772 ,0.00003 ,0.06493 - +,0.50364 ,0.25105 ,1.14937 ,0.10962 ,0.02049 ,0.00034 ,0.06514 - +,0.49974 ,0.24654 ,1.10448 ,0.10725 ,0.02263 ,0.00249 ,0.06498 - +,0.49567 ,0.24216 ,1.06002 ,0.10493 ,0.02428 ,0.00524 ,0.06465 - +,0.49135 ,0.23796 ,1.01677 ,0.10266 ,0.02560 ,0.00732 ,0.06421 - +,0.48689 ,0.23399 ,0.97528 ,0.10047 ,0.02662 ,0.00907 ,0.06363 - +,0.48242 ,0.23021 ,0.93587 ,0.09833 ,0.02742 ,0.01052 ,0.06297 - +,0.47796 ,0.22661 ,0.89865 ,0.09629 ,0.02806 ,0.01173 ,0.06226 - +,0.47352 ,0.22320 ,0.86365 ,0.09436 ,0.02853 ,0.01279 ,0.06150 - +,0.46907 ,0.21977 ,0.83036 ,0.09247 ,0.02884 ,0.01365 ,0.06078 - +,0.46466 ,0.21655 ,0.79914 ,0.09065 ,0.02911 ,0.01439 ,0.06000 - +,0.46035 ,0.21351 ,0.76997 ,0.08891 ,0.02934 ,0.01503 ,0.05921 - +,0.45606 ,0.21054 ,0.74229 ,0.08723 ,0.02942 ,0.01553 ,0.05841 - +,0.45192 ,0.20770 ,0.71641 ,0.08562 ,0.02946 ,0.01595 ,0.05764 - +,0.44789 ,0.20496 ,0.69210 ,0.08406 ,0.02947 ,0.01631 ,0.05688 - +,0.44387 ,0.20230 ,0.66903 ,0.08257 ,0.02945 ,0.01661 ,0.05611/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),K=1,19)/ - + 0.55612 ,0.27861 ,1.14035 ,0.09598 ,0.00224 ,0.00012 ,0.04918 - +,0.54968 ,0.27014 ,1.10324 ,0.09315 ,0.00752 ,0.00012 ,0.05037 - +,0.54232 ,0.26239 ,1.05414 ,0.09037 ,0.01123 ,0.00013 ,0.05089 - +,0.53450 ,0.25543 ,1.00207 ,0.08774 ,0.01395 ,0.00016 ,0.05094 - +,0.52676 ,0.24877 ,0.94992 ,0.08519 ,0.01594 ,0.00039 ,0.05059 - +,0.51903 ,0.24269 ,0.90017 ,0.08274 ,0.01745 ,0.00198 ,0.05015 - +,0.51140 ,0.23706 ,0.85326 ,0.08038 ,0.01863 ,0.00399 ,0.04956 - +,0.50389 ,0.23176 ,0.80931 ,0.07814 ,0.01952 ,0.00549 ,0.04892 - +,0.49662 ,0.22672 ,0.76846 ,0.07604 ,0.02013 ,0.00672 ,0.04822 - +,0.48955 ,0.22198 ,0.73057 ,0.07404 ,0.02060 ,0.00776 ,0.04746 - +,0.48271 ,0.21750 ,0.69554 ,0.07213 ,0.02096 ,0.00865 ,0.04669 - +,0.47612 ,0.21323 ,0.66325 ,0.07035 ,0.02121 ,0.00938 ,0.04593 - +,0.46951 ,0.20930 ,0.63295 ,0.06863 ,0.02141 ,0.00986 ,0.04511 - +,0.46330 ,0.20542 ,0.60500 ,0.06701 ,0.02150 ,0.01035 ,0.04432 - +,0.45740 ,0.20169 ,0.57921 ,0.06548 ,0.02153 ,0.01083 ,0.04357 - +,0.45155 ,0.19821 ,0.55500 ,0.06399 ,0.02150 ,0.01118 ,0.04284 - +,0.44590 ,0.19490 ,0.53257 ,0.06258 ,0.02147 ,0.01143 ,0.04211 - +,0.44042 ,0.19174 ,0.51167 ,0.06124 ,0.02142 ,0.01159 ,0.04139 - +,0.43500 ,0.18877 ,0.49208 ,0.05996 ,0.02132 ,0.01177 ,0.04070/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),K=1,19)/ - + 0.58710 ,0.27942 ,1.02719 ,0.07598 ,0.00178 ,0.00004 ,0.03889 - +,0.57366 ,0.26832 ,0.96847 ,0.07309 ,0.00606 ,0.00002 ,0.03964 - +,0.56063 ,0.25831 ,0.90654 ,0.07036 ,0.00901 ,0.00006 ,0.03974 - +,0.54816 ,0.24941 ,0.84718 ,0.06781 ,0.01109 ,0.00003 ,0.03950 - +,0.53621 ,0.24133 ,0.79147 ,0.06534 ,0.01261 ,0.00017 ,0.03911 - +,0.52489 ,0.23405 ,0.74055 ,0.06306 ,0.01366 ,0.00139 ,0.03858 - +,0.51415 ,0.22722 ,0.69403 ,0.06095 ,0.01449 ,0.00295 ,0.03790 - +,0.50381 ,0.22102 ,0.65152 ,0.05898 ,0.01507 ,0.00407 ,0.03719 - +,0.49401 ,0.21519 ,0.61290 ,0.05713 ,0.01550 ,0.00504 ,0.03642 - +,0.48471 ,0.20971 ,0.57777 ,0.05538 ,0.01580 ,0.00582 ,0.03568 - +,0.47582 ,0.20463 ,0.54573 ,0.05372 ,0.01598 ,0.00644 ,0.03499 - +,0.46736 ,0.19991 ,0.51649 ,0.05212 ,0.01614 ,0.00702 ,0.03431 - +,0.45919 ,0.19534 ,0.48946 ,0.05068 ,0.01619 ,0.00737 ,0.03357 - +,0.45143 ,0.19108 ,0.46496 ,0.04927 ,0.01622 ,0.00767 ,0.03289 - +,0.44403 ,0.18709 ,0.44264 ,0.04793 ,0.01624 ,0.00793 ,0.03225 - +,0.43677 ,0.18330 ,0.42168 ,0.04674 ,0.01616 ,0.00812 ,0.03154 - +,0.42990 ,0.17972 ,0.40247 ,0.04561 ,0.01604 ,0.00828 ,0.03087 - +,0.42335 ,0.17632 ,0.38477 ,0.04451 ,0.01588 ,0.00840 ,0.03025 - +,0.41699 ,0.17307 ,0.36829 ,0.04344 ,0.01576 ,0.00851 ,0.02967/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),K=1,19)/ - + 0.60494 ,0.27482 ,0.92368 ,0.05916 ,0.00149 ,-0.00001 ,0.03030 - +,0.58492 ,0.26140 ,0.85078 ,0.05659 ,0.00486 ,0.00005 ,0.03071 - +,0.56655 ,0.24966 ,0.78172 ,0.05409 ,0.00721 ,-0.00003 ,0.03071 - +,0.54967 ,0.23942 ,0.71926 ,0.05183 ,0.00875 ,0.00006 ,0.03040 - +,0.53414 ,0.23022 ,0.66307 ,0.04971 ,0.00989 ,0.00026 ,0.02986 - +,0.51972 ,0.22187 ,0.61307 ,0.04777 ,0.01066 ,0.00119 ,0.02929 - +,0.50634 ,0.21421 ,0.56854 ,0.04599 ,0.01115 ,0.00227 ,0.02866 - +,0.49356 ,0.20745 ,0.52871 ,0.04426 ,0.01160 ,0.00313 ,0.02802 - +,0.48169 ,0.20108 ,0.49304 ,0.04263 ,0.01197 ,0.00382 ,0.02738 - +,0.47059 ,0.19511 ,0.46112 ,0.04114 ,0.01215 ,0.00436 ,0.02674 - +,0.46003 ,0.18969 ,0.43239 ,0.03979 ,0.01218 ,0.00477 ,0.02610 - +,0.45003 ,0.18465 ,0.40631 ,0.03853 ,0.01221 ,0.00508 ,0.02542 - +,0.44063 ,0.17977 ,0.38275 ,0.03729 ,0.01224 ,0.00536 ,0.02485 - +,0.43163 ,0.17531 ,0.36142 ,0.03617 ,0.01217 ,0.00559 ,0.02427 - +,0.42307 ,0.17118 ,0.34206 ,0.03514 ,0.01206 ,0.00579 ,0.02370 - +,0.41501 ,0.16717 ,0.32410 ,0.03411 ,0.01199 ,0.00590 ,0.02314 - +,0.40728 ,0.16343 ,0.30782 ,0.03316 ,0.01189 ,0.00601 ,0.02261 - +,0.39984 ,0.15994 ,0.29298 ,0.03228 ,0.01177 ,0.00614 ,0.02211 - +,0.39280 ,0.15655 ,0.27914 ,0.03142 ,0.01165 ,0.00621 ,0.02164/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),K=1,19)/ - + 0.61081 ,0.26599 ,0.82864 ,0.04537 ,0.00117 ,0.00010 ,0.02330 - +,0.58495 ,0.25065 ,0.74727 ,0.04316 ,0.00391 ,0.00009 ,0.02365 - +,0.56192 ,0.23748 ,0.67483 ,0.04113 ,0.00574 ,0.00012 ,0.02348 - +,0.54114 ,0.22636 ,0.61186 ,0.03919 ,0.00702 ,0.00012 ,0.02314 - +,0.52260 ,0.21618 ,0.55698 ,0.03747 ,0.00784 ,0.00018 ,0.02263 - +,0.50550 ,0.20727 ,0.50929 ,0.03580 ,0.00846 ,0.00088 ,0.02216 - +,0.48980 ,0.19930 ,0.46770 ,0.03430 ,0.00885 ,0.00172 ,0.02157 - +,0.47534 ,0.19196 ,0.43115 ,0.03291 ,0.00907 ,0.00237 ,0.02102 - +,0.46182 ,0.18529 ,0.39870 ,0.03161 ,0.00923 ,0.00286 ,0.02048 - +,0.44919 ,0.17920 ,0.36993 ,0.03043 ,0.00932 ,0.00329 ,0.01990 - +,0.43748 ,0.17347 ,0.34442 ,0.02934 ,0.00936 ,0.00365 ,0.01933 - +,0.42661 ,0.16804 ,0.32171 ,0.02829 ,0.00942 ,0.00383 ,0.01879 - +,0.41613 ,0.16330 ,0.30116 ,0.02730 ,0.00934 ,0.00401 ,0.01831 - +,0.40628 ,0.15879 ,0.28270 ,0.02643 ,0.00922 ,0.00417 ,0.01782 - +,0.39704 ,0.15452 ,0.26607 ,0.02565 ,0.00908 ,0.00430 ,0.01733 - +,0.38829 ,0.15045 ,0.25085 ,0.02482 ,0.00904 ,0.00438 ,0.01688 - +,0.38001 ,0.14667 ,0.23711 ,0.02406 ,0.00895 ,0.00443 ,0.01647 - +,0.37214 ,0.14315 ,0.22465 ,0.02335 ,0.00881 ,0.00444 ,0.01608 - +,0.36465 ,0.13981 ,0.21314 ,0.02268 ,0.00869 ,0.00449 ,0.01567/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),K=1,19)/ - + 0.60649 ,0.25345 ,0.74143 ,0.03433 ,0.00090 ,-0.00001 ,0.01769 - +,0.57547 ,0.23674 ,0.65540 ,0.03258 ,0.00320 ,0.00014 ,0.01786 - +,0.54862 ,0.22256 ,0.58223 ,0.03080 ,0.00473 ,0.00003 ,0.01787 - +,0.52475 ,0.21070 ,0.52065 ,0.02925 ,0.00574 ,0.00022 ,0.01752 - +,0.50364 ,0.20010 ,0.46841 ,0.02786 ,0.00627 ,0.00019 ,0.01714 - +,0.48466 ,0.19070 ,0.42369 ,0.02656 ,0.00672 ,0.00072 ,0.01670 - +,0.46712 ,0.18258 ,0.38516 ,0.02538 ,0.00695 ,0.00140 ,0.01623 - +,0.45113 ,0.17519 ,0.35190 ,0.02426 ,0.00717 ,0.00186 ,0.01574 - +,0.43647 ,0.16839 ,0.32289 ,0.02324 ,0.00726 ,0.00218 ,0.01524 - +,0.42290 ,0.16210 ,0.29750 ,0.02233 ,0.00724 ,0.00246 ,0.01479 - +,0.41026 ,0.15640 ,0.27509 ,0.02149 ,0.00719 ,0.00269 ,0.01435 - +,0.39840 ,0.15138 ,0.25507 ,0.02065 ,0.00719 ,0.00290 ,0.01391 - +,0.38749 ,0.14642 ,0.23741 ,0.01987 ,0.00713 ,0.00297 ,0.01352 - +,0.37722 ,0.14188 ,0.22160 ,0.01918 ,0.00705 ,0.00307 ,0.01310 - +,0.36758 ,0.13769 ,0.20744 ,0.01855 ,0.00696 ,0.00318 ,0.01268 - +,0.35853 ,0.13372 ,0.19474 ,0.01791 ,0.00682 ,0.00323 ,0.01234 - +,0.34997 ,0.13003 ,0.18323 ,0.01730 ,0.00672 ,0.00326 ,0.01201 - +,0.34182 ,0.12661 ,0.17276 ,0.01673 ,0.00665 ,0.00328 ,0.01169 - +,0.33419 ,0.12327 ,0.16323 ,0.01622 ,0.00654 ,0.00328 ,0.01139/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),K=1,19)/ - + 0.59306 ,0.23846 ,0.66131 ,0.02555 ,0.00077 ,0.00015 ,0.01326 - +,0.55804 ,0.22058 ,0.57359 ,0.02416 ,0.00276 ,0.00006 ,0.01341 - +,0.52789 ,0.20596 ,0.50193 ,0.02286 ,0.00383 ,0.00005 ,0.01341 - +,0.50177 ,0.19357 ,0.44264 ,0.02171 ,0.00456 ,0.00011 ,0.01310 - +,0.47865 ,0.18297 ,0.39361 ,0.02058 ,0.00499 ,0.00017 ,0.01284 - +,0.45804 ,0.17364 ,0.35236 ,0.01959 ,0.00528 ,0.00060 ,0.01247 - +,0.43939 ,0.16545 ,0.31743 ,0.01864 ,0.00548 ,0.00112 ,0.01210 - +,0.42261 ,0.15794 ,0.28755 ,0.01777 ,0.00557 ,0.00144 ,0.01171 - +,0.40721 ,0.15116 ,0.26181 ,0.01701 ,0.00559 ,0.00173 ,0.01128 - +,0.39303 ,0.14507 ,0.23938 ,0.01627 ,0.00559 ,0.00196 ,0.01091 - +,0.38003 ,0.13950 ,0.21982 ,0.01556 ,0.00556 ,0.00210 ,0.01057 - +,0.36802 ,0.13437 ,0.20285 ,0.01494 ,0.00552 ,0.00220 ,0.01022 - +,0.35665 ,0.12964 ,0.18749 ,0.01434 ,0.00543 ,0.00224 ,0.00991 - +,0.34606 ,0.12527 ,0.17411 ,0.01381 ,0.00534 ,0.00232 ,0.00961 - +,0.33622 ,0.12122 ,0.16232 ,0.01333 ,0.00526 ,0.00240 ,0.00932 - +,0.32708 ,0.11739 ,0.15156 ,0.01283 ,0.00519 ,0.00241 ,0.00909 - +,0.31844 ,0.11386 ,0.14199 ,0.01240 ,0.00511 ,0.00244 ,0.00882 - +,0.31023 ,0.11058 ,0.13343 ,0.01203 ,0.00503 ,0.00247 ,0.00852 - +,0.30248 ,0.10747 ,0.12560 ,0.01164 ,0.00492 ,0.00246 ,0.00825/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),K=1,19)/ - + 0.57235 ,0.22120 ,0.58780 ,0.01872 ,0.00070 ,0.00015 ,0.00983 - +,0.53390 ,0.20303 ,0.50079 ,0.01774 ,0.00217 ,0.00010 ,0.01008 - +,0.50132 ,0.18829 ,0.43145 ,0.01678 ,0.00311 ,0.00001 ,0.01000 - +,0.47342 ,0.17590 ,0.37571 ,0.01592 ,0.00362 ,0.00005 ,0.00985 - +,0.44928 ,0.16516 ,0.33007 ,0.01505 ,0.00401 ,0.00014 ,0.00953 - +,0.42774 ,0.15597 ,0.29259 ,0.01428 ,0.00419 ,0.00045 ,0.00929 - +,0.40850 ,0.14788 ,0.26118 ,0.01358 ,0.00430 ,0.00084 ,0.00894 - +,0.39112 ,0.14061 ,0.23481 ,0.01291 ,0.00436 ,0.00115 ,0.00868 - +,0.37528 ,0.13416 ,0.21207 ,0.01230 ,0.00436 ,0.00132 ,0.00840 - +,0.36098 ,0.12826 ,0.19245 ,0.01172 ,0.00434 ,0.00145 ,0.00809 - +,0.34797 ,0.12282 ,0.17569 ,0.01116 ,0.00432 ,0.00159 ,0.00779 - +,0.33588 ,0.11791 ,0.16121 ,0.01065 ,0.00427 ,0.00168 ,0.00753 - +,0.32445 ,0.11345 ,0.14823 ,0.01024 ,0.00420 ,0.00169 ,0.00727 - +,0.31388 ,0.10927 ,0.13690 ,0.00986 ,0.00413 ,0.00175 ,0.00706 - +,0.30409 ,0.10539 ,0.12694 ,0.00951 ,0.00408 ,0.00184 ,0.00686 - +,0.29482 ,0.10187 ,0.11806 ,0.00915 ,0.00403 ,0.00184 ,0.00664 - +,0.28631 ,0.09855 ,0.11007 ,0.00880 ,0.00394 ,0.00184 ,0.00641 - +,0.27848 ,0.09540 ,0.10285 ,0.00848 ,0.00381 ,0.00185 ,0.00619 - +,0.27093 ,0.09248 ,0.09637 ,0.00819 ,0.00374 ,0.00186 ,0.00601/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),K=1,19)/ - + 0.54533 ,0.20307 ,0.52074 ,0.01369 ,0.00040 ,-0.00003 ,0.00706 - +,0.50452 ,0.18488 ,0.43605 ,0.01298 ,0.00169 ,-0.00011 ,0.00730 - +,0.47046 ,0.17026 ,0.37007 ,0.01228 ,0.00244 ,-0.00008 ,0.00731 - +,0.44162 ,0.15813 ,0.31847 ,0.01159 ,0.00283 ,-0.00004 ,0.00721 - +,0.41658 ,0.14788 ,0.27684 ,0.01100 ,0.00306 ,-0.00003 ,0.00697 - +,0.39482 ,0.13884 ,0.24304 ,0.01037 ,0.00325 ,0.00020 ,0.00682 - +,0.37544 ,0.13101 ,0.21496 ,0.00981 ,0.00332 ,0.00056 ,0.00662 - +,0.35796 ,0.12406 ,0.19141 ,0.00933 ,0.00337 ,0.00080 ,0.00638 - +,0.34225 ,0.11786 ,0.17174 ,0.00886 ,0.00335 ,0.00096 ,0.00611 - +,0.32788 ,0.11231 ,0.15497 ,0.00845 ,0.00331 ,0.00107 ,0.00587 - +,0.31473 ,0.10728 ,0.14051 ,0.00810 ,0.00329 ,0.00116 ,0.00567 - +,0.30291 ,0.10266 ,0.12807 ,0.00773 ,0.00323 ,0.00126 ,0.00552 - +,0.29192 ,0.09840 ,0.11724 ,0.00737 ,0.00318 ,0.00126 ,0.00525 - +,0.28168 ,0.09452 ,0.10775 ,0.00705 ,0.00311 ,0.00129 ,0.00505 - +,0.27216 ,0.09098 ,0.09939 ,0.00677 ,0.00303 ,0.00133 ,0.00490 - +,0.26314 ,0.08771 ,0.09195 ,0.00657 ,0.00296 ,0.00134 ,0.00473 - +,0.25493 ,0.08463 ,0.08532 ,0.00632 ,0.00289 ,0.00134 ,0.00457 - +,0.24742 ,0.08171 ,0.07938 ,0.00603 ,0.00282 ,0.00133 ,0.00442 - +,0.24014 ,0.07904 ,0.07412 ,0.00582 ,0.00276 ,0.00131 ,0.00428/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),K=1,19)/ - + 0.51367 ,0.18351 ,0.45904 ,0.00962 ,0.00055 ,0.00015 ,0.00520 - +,0.47132 ,0.16588 ,0.37768 ,0.00923 ,0.00142 ,0.00011 ,0.00545 - +,0.43638 ,0.15180 ,0.31609 ,0.00873 ,0.00204 ,0.00011 ,0.00542 - +,0.40699 ,0.14021 ,0.26850 ,0.00829 ,0.00230 ,0.00012 ,0.00537 - +,0.38217 ,0.13024 ,0.23088 ,0.00781 ,0.00248 ,0.00017 ,0.00524 - +,0.36026 ,0.12188 ,0.20084 ,0.00742 ,0.00260 ,0.00036 ,0.00505 - +,0.34111 ,0.11447 ,0.17608 ,0.00699 ,0.00267 ,0.00055 ,0.00487 - +,0.32379 ,0.10794 ,0.15564 ,0.00668 ,0.00266 ,0.00068 ,0.00467 - +,0.30834 ,0.10211 ,0.13860 ,0.00635 ,0.00259 ,0.00076 ,0.00450 - +,0.29443 ,0.09696 ,0.12420 ,0.00600 ,0.00256 ,0.00080 ,0.00432 - +,0.28174 ,0.09235 ,0.11192 ,0.00571 ,0.00255 ,0.00086 ,0.00414 - +,0.27023 ,0.08806 ,0.10142 ,0.00547 ,0.00249 ,0.00092 ,0.00398 - +,0.25961 ,0.08422 ,0.09224 ,0.00521 ,0.00241 ,0.00094 ,0.00382 - +,0.24977 ,0.08072 ,0.08429 ,0.00497 ,0.00236 ,0.00098 ,0.00367 - +,0.24069 ,0.07750 ,0.07737 ,0.00476 ,0.00232 ,0.00102 ,0.00352 - +,0.23231 ,0.07447 ,0.07129 ,0.00458 ,0.00221 ,0.00101 ,0.00340 - +,0.22452 ,0.07167 ,0.06590 ,0.00441 ,0.00215 ,0.00099 ,0.00327 - +,0.21723 ,0.06905 ,0.06110 ,0.00425 ,0.00211 ,0.00095 ,0.00313 - +,0.21033 ,0.06664 ,0.05681 ,0.00411 ,0.00204 ,0.00095 ,0.00305/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),K=1,19)/ - + 0.47814 ,0.16455 ,0.40328 ,0.00688 ,0.00033 ,-0.00006 ,0.00357 - +,0.43534 ,0.14753 ,0.32628 ,0.00661 ,0.00108 ,-0.00006 ,0.00382 - +,0.40029 ,0.13418 ,0.26923 ,0.00627 ,0.00151 ,-0.00001 ,0.00392 - +,0.37162 ,0.12312 ,0.22583 ,0.00586 ,0.00181 ,0.00002 ,0.00384 - +,0.34661 ,0.11391 ,0.19232 ,0.00564 ,0.00190 ,-0.00001 ,0.00377 - +,0.32525 ,0.10604 ,0.16565 ,0.00532 ,0.00200 ,0.00018 ,0.00365 - +,0.30647 ,0.09912 ,0.14416 ,0.00505 ,0.00201 ,0.00033 ,0.00349 - +,0.29002 ,0.09307 ,0.12641 ,0.00476 ,0.00199 ,0.00044 ,0.00336 - +,0.27518 ,0.08784 ,0.11172 ,0.00449 ,0.00197 ,0.00051 ,0.00328 - +,0.26182 ,0.08310 ,0.09938 ,0.00425 ,0.00193 ,0.00056 ,0.00313 - +,0.24976 ,0.07879 ,0.08893 ,0.00406 ,0.00189 ,0.00059 ,0.00295 - +,0.23856 ,0.07505 ,0.08009 ,0.00388 ,0.00186 ,0.00061 ,0.00281 - +,0.22845 ,0.07149 ,0.07252 ,0.00375 ,0.00177 ,0.00068 ,0.00268 - +,0.21913 ,0.06829 ,0.06592 ,0.00361 ,0.00173 ,0.00072 ,0.00259 - +,0.21056 ,0.06538 ,0.06018 ,0.00347 ,0.00170 ,0.00075 ,0.00252 - +,0.20277 ,0.06265 ,0.05518 ,0.00330 ,0.00164 ,0.00069 ,0.00243 - +,0.19555 ,0.06016 ,0.05077 ,0.00315 ,0.00159 ,0.00067 ,0.00234 - +,0.18883 ,0.05787 ,0.04687 ,0.00300 ,0.00155 ,0.00069 ,0.00226 - +,0.18243 ,0.05573 ,0.04341 ,0.00290 ,0.00150 ,0.00070 ,0.00219/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),K=1,19)/ - + 0.44013 ,0.14545 ,0.35200 ,0.00469 ,0.00035 ,0.00006 ,0.00253 - +,0.39751 ,0.12956 ,0.28034 ,0.00452 ,0.00097 ,0.00004 ,0.00280 - +,0.36342 ,0.11685 ,0.22786 ,0.00437 ,0.00124 ,0.00007 ,0.00285 - +,0.33487 ,0.10671 ,0.18945 ,0.00414 ,0.00144 ,0.00002 ,0.00284 - +,0.31098 ,0.09821 ,0.15940 ,0.00395 ,0.00148 ,0.00004 ,0.00275 - +,0.29024 ,0.09102 ,0.13598 ,0.00374 ,0.00156 ,0.00016 ,0.00265 - +,0.27245 ,0.08467 ,0.11722 ,0.00355 ,0.00157 ,0.00030 ,0.00257 - +,0.25659 ,0.07922 ,0.10205 ,0.00341 ,0.00152 ,0.00036 ,0.00244 - +,0.24250 ,0.07446 ,0.08949 ,0.00322 ,0.00150 ,0.00043 ,0.00234 - +,0.22996 ,0.07018 ,0.07905 ,0.00305 ,0.00146 ,0.00048 ,0.00222 - +,0.21865 ,0.06637 ,0.07034 ,0.00290 ,0.00140 ,0.00051 ,0.00210 - +,0.20851 ,0.06298 ,0.06297 ,0.00267 ,0.00135 ,0.00046 ,0.00202 - +,0.19902 ,0.05984 ,0.05662 ,0.00264 ,0.00135 ,0.00052 ,0.00197 - +,0.19037 ,0.05702 ,0.05122 ,0.00253 ,0.00133 ,0.00053 ,0.00189 - +,0.18245 ,0.05445 ,0.04657 ,0.00239 ,0.00130 ,0.00053 ,0.00180 - +,0.17510 ,0.05202 ,0.04247 ,0.00232 ,0.00124 ,0.00051 ,0.00171 - +,0.16839 ,0.04984 ,0.03889 ,0.00223 ,0.00118 ,0.00051 ,0.00165 - +,0.16227 ,0.04787 ,0.03574 ,0.00213 ,0.00113 ,0.00052 ,0.00162 - +,0.15657 ,0.04600 ,0.03297 ,0.00202 ,0.00109 ,0.00051 ,0.00156/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),K=1,19)/ - + 0.40065 ,0.12714 ,0.30570 ,0.00318 ,0.00027 ,0.00005 ,0.00178 - +,0.35929 ,0.11238 ,0.23963 ,0.00316 ,0.00074 ,0.00006 ,0.00197 - +,0.32597 ,0.10091 ,0.19254 ,0.00308 ,0.00093 ,0.00006 ,0.00200 - +,0.29887 ,0.09148 ,0.15787 ,0.00298 ,0.00104 ,0.00004 ,0.00193 - +,0.27614 ,0.08379 ,0.13157 ,0.00282 ,0.00105 ,0.00000 ,0.00190 - +,0.25666 ,0.07725 ,0.11110 ,0.00268 ,0.00111 ,0.00011 ,0.00186 - +,0.23967 ,0.07165 ,0.09509 ,0.00257 ,0.00110 ,0.00021 ,0.00178 - +,0.22497 ,0.06680 ,0.08211 ,0.00240 ,0.00109 ,0.00024 ,0.00169 - +,0.21201 ,0.06251 ,0.07143 ,0.00225 ,0.00109 ,0.00028 ,0.00159 - +,0.20020 ,0.05875 ,0.06266 ,0.00215 ,0.00108 ,0.00033 ,0.00151 - +,0.18966 ,0.05541 ,0.05538 ,0.00204 ,0.00106 ,0.00035 ,0.00147 - +,0.18056 ,0.05236 ,0.04924 ,0.00187 ,0.00107 ,0.00036 ,0.00144 - +,0.17162 ,0.04959 ,0.04408 ,0.00187 ,0.00097 ,0.00035 ,0.00137 - +,0.16375 ,0.04712 ,0.03966 ,0.00180 ,0.00091 ,0.00033 ,0.00130 - +,0.15671 ,0.04489 ,0.03584 ,0.00168 ,0.00089 ,0.00032 ,0.00124 - +,0.15016 ,0.04285 ,0.03256 ,0.00158 ,0.00086 ,0.00032 ,0.00118 - +,0.14404 ,0.04096 ,0.02971 ,0.00152 ,0.00084 ,0.00032 ,0.00114 - +,0.13828 ,0.03922 ,0.02720 ,0.00150 ,0.00082 ,0.00034 ,0.00110 - +,0.13313 ,0.03761 ,0.02500 ,0.00142 ,0.00080 ,0.00034 ,0.00105/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),K=1,19)/ - + 0.36065 ,0.10977 ,0.26391 ,0.00214 ,0.00017 ,0.00003 ,0.00121 - +,0.32049 ,0.09633 ,0.20334 ,0.00221 ,0.00055 ,0.00003 ,0.00133 - +,0.28902 ,0.08579 ,0.16116 ,0.00216 ,0.00074 ,-0.00001 ,0.00143 - +,0.26325 ,0.07734 ,0.13047 ,0.00206 ,0.00084 ,-0.00001 ,0.00143 - +,0.24196 ,0.07042 ,0.10750 ,0.00189 ,0.00089 ,0.00000 ,0.00145 - +,0.22382 ,0.06462 ,0.08995 ,0.00184 ,0.00090 ,0.00010 ,0.00139 - +,0.20818 ,0.05964 ,0.07618 ,0.00177 ,0.00090 ,0.00016 ,0.00132 - +,0.19461 ,0.05538 ,0.06516 ,0.00163 ,0.00086 ,0.00018 ,0.00127 - +,0.18258 ,0.05161 ,0.05630 ,0.00156 ,0.00083 ,0.00021 ,0.00118 - +,0.17191 ,0.04829 ,0.04906 ,0.00147 ,0.00080 ,0.00023 ,0.00112 - +,0.16241 ,0.04541 ,0.04308 ,0.00135 ,0.00079 ,0.00024 ,0.00108 - +,0.15390 ,0.04281 ,0.03811 ,0.00131 ,0.00079 ,0.00026 ,0.00103 - +,0.14614 ,0.04041 ,0.03386 ,0.00124 ,0.00077 ,0.00028 ,0.00102 - +,0.13907 ,0.03829 ,0.03029 ,0.00118 ,0.00073 ,0.00027 ,0.00097 - +,0.13262 ,0.03639 ,0.02725 ,0.00113 ,0.00069 ,0.00025 ,0.00092 - +,0.12679 ,0.03461 ,0.02460 ,0.00104 ,0.00066 ,0.00024 ,0.00087 - +,0.12143 ,0.03300 ,0.02233 ,0.00098 ,0.00065 ,0.00025 ,0.00084 - +,0.11647 ,0.03153 ,0.02036 ,0.00094 ,0.00064 ,0.00028 ,0.00081 - +,0.11182 ,0.03017 ,0.01863 ,0.00091 ,0.00063 ,0.00029 ,0.00079/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),K=1,19)/ - + 0.32081 ,0.09381 ,0.22664 ,0.00146 ,0.00009 ,-0.00003 ,0.00071 - +,0.28318 ,0.08153 ,0.17194 ,0.00145 ,0.00037 ,-0.00003 ,0.00093 - +,0.25351 ,0.07219 ,0.13422 ,0.00149 ,0.00053 ,-0.00003 ,0.00097 - +,0.22958 ,0.06470 ,0.10741 ,0.00148 ,0.00061 ,-0.00001 ,0.00098 - +,0.21005 ,0.05858 ,0.08760 ,0.00134 ,0.00065 ,-0.00006 ,0.00096 - +,0.19335 ,0.05354 ,0.07258 ,0.00131 ,0.00066 ,0.00003 ,0.00092 - +,0.17887 ,0.04922 ,0.06091 ,0.00128 ,0.00068 ,0.00008 ,0.00092 - +,0.16671 ,0.04546 ,0.05172 ,0.00117 ,0.00065 ,0.00011 ,0.00089 - +,0.15594 ,0.04226 ,0.04435 ,0.00107 ,0.00062 ,0.00012 ,0.00083 - +,0.14620 ,0.03946 ,0.03835 ,0.00101 ,0.00059 ,0.00012 ,0.00078 - +,0.13765 ,0.03693 ,0.03344 ,0.00096 ,0.00055 ,0.00014 ,0.00074 - +,0.13009 ,0.03470 ,0.02939 ,0.00093 ,0.00055 ,0.00019 ,0.00073 - +,0.12327 ,0.03267 ,0.02596 ,0.00085 ,0.00053 ,0.00019 ,0.00068 - +,0.11702 ,0.03087 ,0.02311 ,0.00079 ,0.00051 ,0.00019 ,0.00065 - +,0.11130 ,0.02926 ,0.02070 ,0.00075 ,0.00048 ,0.00018 ,0.00063 - +,0.10599 ,0.02777 ,0.01859 ,0.00075 ,0.00047 ,0.00018 ,0.00060 - +,0.10125 ,0.02641 ,0.01679 ,0.00071 ,0.00046 ,0.00017 ,0.00057 - +,0.09701 ,0.02515 ,0.01524 ,0.00064 ,0.00045 ,0.00016 ,0.00054 - +,0.09295 ,0.02401 ,0.01389 ,0.00061 ,0.00044 ,0.00018 ,0.00053/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),K=1,19)/ - + 0.28182 ,0.07882 ,0.19286 ,0.00093 ,0.00008 ,-0.00003 ,0.00048 - +,0.24670 ,0.06808 ,0.14418 ,0.00105 ,0.00030 ,0.00000 ,0.00063 - +,0.21977 ,0.05979 ,0.11111 ,0.00097 ,0.00039 ,-0.00004 ,0.00066 - +,0.19788 ,0.05333 ,0.08775 ,0.00094 ,0.00044 ,-0.00006 ,0.00070 - +,0.17964 ,0.04806 ,0.07077 ,0.00100 ,0.00048 ,-0.00001 ,0.00066 - +,0.16485 ,0.04368 ,0.05801 ,0.00091 ,0.00048 ,-0.00001 ,0.00063 - +,0.15227 ,0.04000 ,0.04823 ,0.00080 ,0.00046 ,0.00002 ,0.00060 - +,0.14119 ,0.03683 ,0.04060 ,0.00072 ,0.00046 ,0.00006 ,0.00059 - +,0.13153 ,0.03410 ,0.03456 ,0.00068 ,0.00044 ,0.00009 ,0.00056 - +,0.12297 ,0.03171 ,0.02968 ,0.00066 ,0.00042 ,0.00010 ,0.00054 - +,0.11536 ,0.02959 ,0.02571 ,0.00065 ,0.00042 ,0.00012 ,0.00053 - +,0.10864 ,0.02772 ,0.02248 ,0.00061 ,0.00040 ,0.00013 ,0.00050 - +,0.10264 ,0.02601 ,0.01974 ,0.00056 ,0.00038 ,0.00014 ,0.00048 - +,0.09718 ,0.02452 ,0.01745 ,0.00052 ,0.00037 ,0.00013 ,0.00045 - +,0.09223 ,0.02319 ,0.01554 ,0.00049 ,0.00036 ,0.00012 ,0.00043 - +,0.08768 ,0.02194 ,0.01390 ,0.00047 ,0.00036 ,0.00014 ,0.00042 - +,0.08351 ,0.02081 ,0.01250 ,0.00046 ,0.00035 ,0.00015 ,0.00042 - +,0.07969 ,0.01979 ,0.01129 ,0.00045 ,0.00034 ,0.00015 ,0.00041 - +,0.07615 ,0.01886 ,0.01024 ,0.00043 ,0.00032 ,0.00014 ,0.00038/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),K=1,19)/ - + 0.24479 ,0.06539 ,0.16326 ,0.00058 ,0.00004 ,-0.00005 ,0.00026 - +,0.21246 ,0.05597 ,0.11994 ,0.00069 ,0.00023 ,-0.00005 ,0.00042 - +,0.18754 ,0.04889 ,0.09094 ,0.00072 ,0.00026 ,-0.00008 ,0.00040 - +,0.16812 ,0.04328 ,0.07089 ,0.00065 ,0.00034 ,-0.00007 ,0.00047 - +,0.15204 ,0.03874 ,0.05650 ,0.00067 ,0.00032 ,-0.00005 ,0.00045 - +,0.13879 ,0.03507 ,0.04585 ,0.00057 ,0.00035 ,-0.00002 ,0.00046 - +,0.12749 ,0.03196 ,0.03780 ,0.00052 ,0.00035 ,0.00001 ,0.00045 - +,0.11780 ,0.02930 ,0.03153 ,0.00048 ,0.00035 ,0.00005 ,0.00043 - +,0.10927 ,0.02700 ,0.02660 ,0.00046 ,0.00033 ,0.00006 ,0.00041 - +,0.10180 ,0.02501 ,0.02267 ,0.00044 ,0.00033 ,0.00007 ,0.00040 - +,0.09521 ,0.02327 ,0.01949 ,0.00042 ,0.00033 ,0.00009 ,0.00039 - +,0.08924 ,0.02172 ,0.01690 ,0.00043 ,0.00031 ,0.00011 ,0.00037 - +,0.08411 ,0.02034 ,0.01476 ,0.00037 ,0.00028 ,0.00008 ,0.00034 - +,0.07944 ,0.01910 ,0.01299 ,0.00034 ,0.00027 ,0.00009 ,0.00033 - +,0.07518 ,0.01799 ,0.01150 ,0.00033 ,0.00028 ,0.00010 ,0.00032 - +,0.07124 ,0.01700 ,0.01023 ,0.00032 ,0.00027 ,0.00011 ,0.00031 - +,0.06766 ,0.01609 ,0.00915 ,0.00032 ,0.00026 ,0.00011 ,0.00030 - +,0.06440 ,0.01527 ,0.00822 ,0.00030 ,0.00025 ,0.00011 ,0.00028 - +,0.06143 ,0.01451 ,0.00742 ,0.00028 ,0.00023 ,0.00010 ,0.00026/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),K=1,19)/ - + 0.20942 ,0.05326 ,0.13667 ,0.00039 ,0.00003 ,-0.00002 ,0.00017 - +,0.18011 ,0.04521 ,0.09855 ,0.00048 ,0.00018 ,-0.00005 ,0.00029 - +,0.15827 ,0.03922 ,0.07364 ,0.00043 ,0.00025 ,-0.00004 ,0.00035 - +,0.14075 ,0.03448 ,0.05666 ,0.00043 ,0.00024 ,-0.00007 ,0.00033 - +,0.12664 ,0.03073 ,0.04460 ,0.00044 ,0.00029 ,-0.00001 ,0.00036 - +,0.11501 ,0.02768 ,0.03583 ,0.00040 ,0.00028 ,0.00001 ,0.00033 - +,0.10513 ,0.02508 ,0.02924 ,0.00038 ,0.00027 ,0.00004 ,0.00033 - +,0.09658 ,0.02290 ,0.02418 ,0.00037 ,0.00026 ,0.00005 ,0.00032 - +,0.08921 ,0.02103 ,0.02022 ,0.00034 ,0.00026 ,0.00006 ,0.00031 - +,0.08290 ,0.01940 ,0.01710 ,0.00030 ,0.00026 ,0.00007 ,0.00030 - +,0.07736 ,0.01798 ,0.01460 ,0.00027 ,0.00025 ,0.00008 ,0.00028 - +,0.07238 ,0.01672 ,0.01258 ,0.00022 ,0.00023 ,0.00006 ,0.00027 - +,0.06785 ,0.01560 ,0.01091 ,0.00024 ,0.00023 ,0.00007 ,0.00027 - +,0.06380 ,0.01460 ,0.00954 ,0.00025 ,0.00021 ,0.00008 ,0.00025 - +,0.06017 ,0.01371 ,0.00839 ,0.00024 ,0.00020 ,0.00008 ,0.00022 - +,0.05695 ,0.01292 ,0.00743 ,0.00021 ,0.00020 ,0.00008 ,0.00022 - +,0.05401 ,0.01220 ,0.00661 ,0.00019 ,0.00020 ,0.00008 ,0.00022 - +,0.05131 ,0.01155 ,0.00591 ,0.00018 ,0.00019 ,0.00008 ,0.00021 - +,0.04881 ,0.01095 ,0.00531 ,0.00017 ,0.00017 ,0.00007 ,0.00019/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),K=1,19)/ - + 0.17675 ,0.04290 ,0.11358 ,0.00027 ,-0.00003 ,-0.00005 ,0.00005 - +,0.15107 ,0.03611 ,0.08051 ,0.00031 ,0.00008 ,-0.00009 ,0.00014 - +,0.13165 ,0.03105 ,0.05928 ,0.00032 ,0.00014 ,-0.00006 ,0.00021 - +,0.11644 ,0.02716 ,0.04505 ,0.00028 ,0.00016 ,-0.00008 ,0.00021 - +,0.10404 ,0.02408 ,0.03509 ,0.00031 ,0.00017 ,-0.00006 ,0.00021 - +,0.09396 ,0.02155 ,0.02790 ,0.00029 ,0.00019 ,-0.00002 ,0.00023 - +,0.08553 ,0.01946 ,0.02255 ,0.00027 ,0.00019 ,0.00000 ,0.00022 - +,0.07835 ,0.01770 ,0.01850 ,0.00025 ,0.00017 ,0.00003 ,0.00022 - +,0.07212 ,0.01619 ,0.01535 ,0.00025 ,0.00017 ,0.00003 ,0.00019 - +,0.06672 ,0.01488 ,0.01287 ,0.00022 ,0.00017 ,0.00004 ,0.00019 - +,0.06201 ,0.01374 ,0.01092 ,0.00019 ,0.00017 ,0.00004 ,0.00020 - +,0.05776 ,0.01275 ,0.00935 ,0.00020 ,0.00015 ,0.00003 ,0.00017 - +,0.05410 ,0.01186 ,0.00806 ,0.00017 ,0.00015 ,0.00004 ,0.00015 - +,0.05081 ,0.01108 ,0.00700 ,0.00015 ,0.00014 ,0.00004 ,0.00015 - +,0.04784 ,0.01038 ,0.00613 ,0.00013 ,0.00014 ,0.00005 ,0.00015 - +,0.04513 ,0.00975 ,0.00539 ,0.00013 ,0.00013 ,0.00005 ,0.00014 - +,0.04266 ,0.00918 ,0.00477 ,0.00013 ,0.00012 ,0.00004 ,0.00013 - +,0.04041 ,0.00866 ,0.00425 ,0.00012 ,0.00011 ,0.00003 ,0.00012 - +,0.03835 ,0.00819 ,0.00380 ,0.00012 ,0.00010 ,0.00003 ,0.00012/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),K=1,19)/ - + 0.14655 ,0.03366 ,0.09293 ,0.00013 ,-0.00002 ,-0.00003 ,0.00002 - +,0.12426 ,0.02815 ,0.06492 ,0.00022 ,0.00008 ,-0.00001 ,0.00012 - +,0.10761 ,0.02408 ,0.04717 ,0.00019 ,0.00010 ,-0.00002 ,0.00013 - +,0.09452 ,0.02098 ,0.03543 ,0.00022 ,0.00012 ,-0.00002 ,0.00016 - +,0.08423 ,0.01848 ,0.02726 ,0.00019 ,0.00010 ,-0.00002 ,0.00014 - +,0.07577 ,0.01646 ,0.02143 ,0.00016 ,0.00011 ,-0.00001 ,0.00013 - +,0.06865 ,0.01481 ,0.01717 ,0.00016 ,0.00011 ,0.00000 ,0.00013 - +,0.06255 ,0.01341 ,0.01395 ,0.00017 ,0.00011 ,0.00001 ,0.00012 - +,0.05734 ,0.01222 ,0.01149 ,0.00016 ,0.00010 ,0.00002 ,0.00012 - +,0.05287 ,0.01120 ,0.00958 ,0.00015 ,0.00010 ,0.00002 ,0.00011 - +,0.04894 ,0.01032 ,0.00806 ,0.00014 ,0.00009 ,0.00002 ,0.00011 - +,0.04542 ,0.00954 ,0.00684 ,0.00015 ,0.00009 ,0.00002 ,0.00010 - +,0.04243 ,0.00884 ,0.00586 ,0.00012 ,0.00008 ,0.00002 ,0.00009 - +,0.03971 ,0.00824 ,0.00506 ,0.00011 ,0.00008 ,0.00002 ,0.00008 - +,0.03726 ,0.00770 ,0.00441 ,0.00010 ,0.00008 ,0.00002 ,0.00008 - +,0.03505 ,0.00722 ,0.00386 ,0.00010 ,0.00007 ,0.00002 ,0.00008 - +,0.03305 ,0.00678 ,0.00340 ,0.00010 ,0.00006 ,0.00002 ,0.00007 - +,0.03124 ,0.00639 ,0.00301 ,0.00010 ,0.00006 ,0.00002 ,0.00007 - +,0.02961 ,0.00603 ,0.00268 ,0.00009 ,0.00006 ,0.00002 ,0.00007/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),K=1,19)/ - + 0.09545 ,0.01951 ,0.06005 ,0.00007 ,0.00001 ,0.00000 ,0.00004 - +,0.07952 ,0.01603 ,0.04031 ,0.00009 ,0.00004 ,0.00000 ,0.00005 - +,0.06783 ,0.01350 ,0.02833 ,0.00007 ,0.00005 ,-0.00001 ,0.00006 - +,0.05881 ,0.01158 ,0.02065 ,0.00007 ,0.00005 ,-0.00001 ,0.00007 - +,0.05172 ,0.01009 ,0.01548 ,0.00008 ,0.00006 ,-0.00001 ,0.00007 - +,0.04602 ,0.00889 ,0.01191 ,0.00007 ,0.00007 ,0.00001 ,0.00008 - +,0.04122 ,0.00791 ,0.00932 ,0.00007 ,0.00006 ,0.00001 ,0.00007 - +,0.03725 ,0.00710 ,0.00742 ,0.00006 ,0.00005 ,0.00001 ,0.00006 - +,0.03389 ,0.00641 ,0.00600 ,0.00005 ,0.00005 ,0.00001 ,0.00005 - +,0.03099 ,0.00582 ,0.00491 ,0.00005 ,0.00005 ,0.00001 ,0.00005 - +,0.02847 ,0.00532 ,0.00406 ,0.00004 ,0.00005 ,0.00001 ,0.00005 - +,0.02624 ,0.00489 ,0.00339 ,0.00005 ,0.00005 ,0.00002 ,0.00005 - +,0.02432 ,0.00450 ,0.00286 ,0.00004 ,0.00005 ,0.00002 ,0.00004 - +,0.02261 ,0.00416 ,0.00244 ,0.00004 ,0.00004 ,0.00002 ,0.00004 - +,0.02109 ,0.00387 ,0.00209 ,0.00003 ,0.00004 ,0.00001 ,0.00004 - +,0.01971 ,0.00361 ,0.00181 ,0.00003 ,0.00003 ,0.00001 ,0.00003 - +,0.01848 ,0.00337 ,0.00157 ,0.00004 ,0.00003 ,0.00001 ,0.00003 - +,0.01737 ,0.00315 ,0.00138 ,0.00004 ,0.00003 ,0.00001 ,0.00003 - +,0.01636 ,0.00296 ,0.00121 ,0.00004 ,0.00003 ,0.00001 ,0.00003/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),K=1,19)/ - + 0.05707 ,0.01024 ,0.03640 ,0.00002 ,-0.00001 ,-0.00002 ,-0.00001 - +,0.04658 ,0.00826 ,0.02345 ,0.00005 ,0.00002 ,0.00000 ,0.00002 - +,0.03908 ,0.00683 ,0.01591 ,0.00003 ,0.00001 ,-0.00001 ,0.00002 - +,0.03345 ,0.00578 ,0.01122 ,0.00003 ,0.00003 ,0.00000 ,0.00003 - +,0.02899 ,0.00496 ,0.00818 ,0.00003 ,0.00002 ,-0.00001 ,0.00003 - +,0.02549 ,0.00432 ,0.00614 ,0.00002 ,0.00002 ,-0.00001 ,0.00003 - +,0.02261 ,0.00381 ,0.00469 ,0.00002 ,0.00002 ,0.00000 ,0.00002 - +,0.02021 ,0.00338 ,0.00365 ,0.00003 ,0.00002 ,0.00001 ,0.00002 - +,0.01818 ,0.00302 ,0.00289 ,0.00003 ,0.00002 ,0.00000 ,0.00002 - +,0.01648 ,0.00272 ,0.00232 ,0.00002 ,0.00002 ,0.00000 ,0.00002 - +,0.01502 ,0.00246 ,0.00188 ,0.00002 ,0.00002 ,0.00001 ,0.00002 - +,0.01376 ,0.00224 ,0.00155 ,0.00002 ,0.00002 ,0.00001 ,0.00002 - +,0.01266 ,0.00205 ,0.00129 ,0.00001 ,0.00002 ,0.00001 ,0.00002 - +,0.01167 ,0.00189 ,0.00108 ,0.00002 ,0.00002 ,0.00000 ,0.00001 - +,0.01080 ,0.00174 ,0.00091 ,0.00002 ,0.00001 ,0.00000 ,0.00001 - +,0.01006 ,0.00161 ,0.00078 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.00938 ,0.00150 ,0.00067 ,0.00001 ,0.00001 ,0.00001 ,0.00001 - +,0.00877 ,0.00139 ,0.00058 ,0.00001 ,0.00001 ,0.00001 ,0.00001 - +,0.00821 ,0.00130 ,0.00050 ,0.00001 ,0.00001 ,0.00000 ,0.00001/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),K=1,19)/ - + 0.03016 ,0.00465 ,0.02010 ,0.00001 ,-0.00001 ,0.00000 ,0.00000 - +,0.02416 ,0.00367 ,0.01237 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.01990 ,0.00298 ,0.00808 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.01673 ,0.00248 ,0.00551 ,0.00002 ,0.00001 ,0.00000 ,0.00001 - +,0.01434 ,0.00210 ,0.00390 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.01242 ,0.00181 ,0.00284 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.01089 ,0.00157 ,0.00211 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.00963 ,0.00138 ,0.00160 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.00858 ,0.00122 ,0.00124 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.00770 ,0.00109 ,0.00097 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.00696 ,0.00098 ,0.00078 ,0.00001 ,0.00000 ,0.00000 ,0.00001 - +,0.00631 ,0.00089 ,0.00063 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.00576 ,0.00080 ,0.00051 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00528 ,0.00073 ,0.00042 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00485 ,0.00067 ,0.00035 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00448 ,0.00062 ,0.00029 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00415 ,0.00057 ,0.00025 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00385 ,0.00053 ,0.00021 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00359 ,0.00049 ,0.00018 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),K=1,19)/ - + 0.01352 ,0.00173 ,0.00972 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01055 ,0.00133 ,0.00568 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00849 ,0.00106 ,0.00353 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00701 ,0.00086 ,0.00231 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00589 ,0.00072 ,0.00157 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00503 ,0.00061 ,0.00111 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00434 ,0.00052 ,0.00080 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00379 ,0.00045 ,0.00059 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00334 ,0.00040 ,0.00044 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00296 ,0.00035 ,0.00034 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00264 ,0.00031 ,0.00026 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00237 ,0.00028 ,0.00021 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00214 ,0.00025 ,0.00017 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00195 ,0.00022 ,0.00013 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00178 ,0.00020 ,0.00011 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00163 ,0.00019 ,0.00009 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00149 ,0.00017 ,0.00008 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00138 ,0.00016 ,0.00006 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00127 ,0.00014 ,0.00005 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),K=1,19)/ - + 0.00098 ,0.00007 ,0.00102 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00072 ,0.00005 ,0.00051 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00054 ,0.00004 ,0.00028 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00042 ,0.00003 ,0.00016 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00034 ,0.00002 ,0.00010 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00028 ,0.00002 ,0.00006 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00023 ,0.00002 ,0.00004 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00019 ,0.00001 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00017 ,0.00001 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00014 ,0.00001 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00012 ,0.00001 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00011 ,0.00001 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00009 ,0.00001 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00008 ,0.00001 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00007 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00007 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00006 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00005 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00005 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - + 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - + 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - + 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - + .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - + .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - + .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - + .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,4,5,0,0,5/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C -C Don't let x be altered if it's out of range!! - XSAVE=X -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(73,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C + F(6,N,M) -C 1=UV 2=DV 3=GLUE 4=(Ubar+Dbar)/2 5=Cbar 7=Bbar 6=Sbar - DO 25 I=1,7 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=1,6 - DO 30 K=1,19 - 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) - 50 FORMAT(7F10.5) - DO 40 I=1,7 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,7 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - + + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) -C this SEA is (Ubar+Dbar)/2 - SEA=G(4) - STR=G(6) - CHM=G(5) - GL =G(3) - BOT=G(7) -C -C restore x - X=XSAVE -C - RETURN - END diff --git a/PDF/spdf/strh3e.F b/PDF/spdf/strh3e.F deleted file mode 100644 index f2d179e76d8..00000000000 --- a/PDF/spdf/strh3e.F +++ /dev/null @@ -1,1015 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:27 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:52 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE STRH3E(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C -C :::::::::::: HARRIMAN MARTIN ROBERTS STIRLING (E) SEA=UBAR=DBAR=2SBAR -C -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(7,NX,19),G(7),XX(NX),N0(7) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),K=1,19)/ - + 0.01969 ,0.00164 ,3.55118 ,0.02677 ,0.01216 ,0.00000 ,0.01946 - +,0.02025 ,0.00179 ,7.57793 ,0.11090 ,0.09579 ,0.00000 ,0.10335 - +,0.02075 ,0.00193 ,12.82172 ,0.23244 ,0.21686 ,0.00000 ,0.22466 - +,0.02122 ,0.00206 ,19.10611 ,0.38098 ,0.36497 ,0.00000 ,0.37299 - +,0.02166 ,0.00219 ,26.42712 ,0.55723 ,0.54081 ,0.00527 ,0.54903 - +,0.02208 ,0.00231 ,34.72989 ,0.76021 ,0.74340 ,0.09839 ,0.75182 - +,0.02247 ,0.00243 ,43.86465 ,0.98640 ,0.96922 ,0.35036 ,0.97782 - +,0.02285 ,0.00255 ,53.84789 ,1.23724 ,1.21970 ,0.60648 ,1.22849 - +,0.02321 ,0.00266 ,64.64539 ,1.51234 ,1.49447 ,0.88512 ,1.50342 - +,0.02356 ,0.00277 ,76.23505 ,1.81150 ,1.79329 ,1.18905 ,1.80241 - +,0.02389 ,0.00288 ,88.40460 ,2.12923 ,2.11070 ,1.51079 ,2.11999 - +,0.02421 ,0.00299,101.12978 ,2.46556 ,2.44673 ,1.85100 ,2.45617 - +,0.02452 ,0.00309,114.57822 ,2.82517 ,2.80604 ,2.21431 ,2.81563 - +,0.02482 ,0.00320,128.30768 ,3.19645 ,3.17703 ,2.58910 ,3.18677 - +,0.02510 ,0.00330,142.64317 ,3.58834 ,3.56864 ,2.98433 ,3.57852 - +,0.02538 ,0.00340,157.33185 ,3.99421 ,3.97423 ,3.39339 ,3.98425 - +,0.02566 ,0.00349,172.41893 ,4.41547 ,4.39523 ,3.81770 ,4.40538 - +,0.02592 ,0.00359,187.84366 ,4.85052 ,4.83002 ,4.25568 ,4.84030 - +,0.02618 ,0.00368,203.59419 ,5.29922 ,5.27846 ,4.70718 ,5.28887/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),K=1,19)/ - + 0.02474 ,0.00250 ,3.47767 ,0.03182 ,0.01309 ,0.00000 ,0.02246 - +,0.02542 ,0.00271 ,7.05854 ,0.11211 ,0.09276 ,0.00000 ,0.10244 - +,0.02605 ,0.00291 ,11.55804 ,0.22072 ,0.20080 ,0.00000 ,0.21076 - +,0.02663 ,0.00310 ,16.80583 ,0.34939 ,0.32894 ,0.00000 ,0.33918 - +,0.02717 ,0.00329 ,22.78441 ,0.49870 ,0.47774 ,0.00442 ,0.48824 - +,0.02768 ,0.00347 ,29.43698 ,0.66762 ,0.64619 ,0.08140 ,0.65692 - +,0.02817 ,0.00364 ,36.63467 ,0.85308 ,0.83119 ,0.28833 ,0.84215 - +,0.02863 ,0.00381 ,44.38515 ,1.05605 ,1.03373 ,0.49570 ,1.04491 - +,0.02907 ,0.00397 ,52.65651 ,1.27606 ,1.25332 ,0.71861 ,1.26471 - +,0.02950 ,0.00413 ,61.42758 ,1.51276 ,1.48962 ,0.95925 ,1.50121 - +,0.02990 ,0.00429 ,70.53279 ,1.76171 ,1.73819 ,1.21152 ,1.74997 - +,0.03030 ,0.00444 ,79.95409 ,2.02287 ,1.99898 ,1.47588 ,2.01095 - +,0.03068 ,0.00459 ,89.81767 ,2.29982 ,2.27556 ,1.75587 ,2.28772 - +,0.03104 ,0.00473 ,99.79204 ,2.58347 ,2.55887 ,2.04242 ,2.57120 - +,0.03139 ,0.00487,110.12135 ,2.88072 ,2.85578 ,2.34242 ,2.86828 - +,0.03174 ,0.00501,120.61844 ,3.18643 ,3.16117 ,2.65076 ,3.17383 - +,0.03207 ,0.00515,131.31885 ,3.50168 ,3.47609 ,2.96851 ,3.48892 - +,0.03239 ,0.00529,142.17978 ,3.82523 ,3.79933 ,3.29447 ,3.81231 - +,0.03271 ,0.00542,253.19455 ,4.15697 ,4.13077 ,3.62852 ,4.14391/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),K=1,19)/ - + 0.03097 ,0.00380 ,3.40545 ,0.03786 ,0.01385 ,0.00000 ,0.02586 - +,0.03181 ,0.00411 ,6.57386 ,0.11364 ,0.08887 ,0.00000 ,0.10126 - +,0.03258 ,0.00441 ,10.41684 ,0.21005 ,0.18457 ,0.00000 ,0.19732 - +,0.03329 ,0.00468 ,14.77885 ,0.32099 ,0.29486 ,0.00000 ,0.30794 - +,0.03395 ,0.00495 ,19.63823 ,0.44696 ,0.42022 ,0.00370 ,0.43361 - +,0.03458 ,0.00521 ,24.94275 ,0.58701 ,0.55968 ,0.06707 ,0.57336 - +,0.03518 ,0.00545 ,30.58560 ,0.73851 ,0.71063 ,0.23640 ,0.72460 - +,0.03574 ,0.00569 ,36.57152 ,0.90217 ,0.87376 ,0.40367 ,0.88799 - +,0.03628 ,0.00593 ,42.87396 ,1.07747 ,1.04856 ,0.58136 ,1.06304 - +,0.03680 ,0.00616 ,49.47533 ,1.26407 ,1.23467 ,0.77119 ,1.24940 - +,0.03730 ,0.00638 ,56.24904 ,1.45841 ,1.42855 ,0.96825 ,1.44351 - +,0.03778 ,0.00659 ,63.18329 ,1.66044 ,1.63013 ,1.17289 ,1.64531 - +,0.03824 ,0.00680 ,70.37444 ,1.87289 ,1.84215 ,1.38785 ,1.85756 - +,0.03868 ,0.00701 ,77.57558 ,2.08875 ,2.05759 ,1.60607 ,2.07321 - +,0.03911 ,0.00721 ,84.97078 ,2.31331 ,2.28175 ,1.83288 ,2.29757 - +,0.03953 ,0.00740 ,92.42378 ,2.54265 ,2.51070 ,2.06436 ,2.52671 - +,0.03994 ,0.00760 ,99.96243 ,2.77757 ,2.74524 ,2.30133 ,2.76145 - +,0.04033 ,0.00779,107.55736 ,3.01718 ,2.98448 ,2.54290 ,3.00087 - +,0.04071 ,0.00797,115.20648 ,3.26140 ,3.22834 ,2.78901 ,3.24491/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),K=1,19)/ - + 0.03526 ,0.00486 ,3.36372 ,0.04194 ,0.01418 ,0.00000 ,0.02806 - +,0.03620 ,0.00525 ,6.30520 ,0.11473 ,0.08611 ,0.00000 ,0.10042 - +,0.03706 ,0.00561 ,9.80067 ,0.20434 ,0.17493 ,0.00000 ,0.18965 - +,0.03786 ,0.00596 ,13.70569 ,0.30582 ,0.27567 ,0.00000 ,0.29076 - +,0.03861 ,0.00629 ,17.99901 ,0.41964 ,0.38879 ,0.00332 ,0.40423 - +,0.03931 ,0.00660 ,22.63300 ,0.54489 ,0.51339 ,0.05976 ,0.52916 - +,0.03998 ,0.00691 ,27.51343 ,0.67924 ,0.64712 ,0.21006 ,0.66321 - +,0.04061 ,0.00721 ,32.64497 ,0.82325 ,0.79054 ,0.35729 ,0.80692 - +,0.04122 ,0.00749 ,38.00473 ,0.97644 ,0.94317 ,0.51259 ,0.95984 - +,0.04180 ,0.00777 ,43.57787 ,1.13849 ,1.10468 ,0.67751 ,1.12162 - +,0.04236 ,0.00804 ,49.25711 ,1.30629 ,1.27196 ,0.84772 ,1.28916 - +,0.04289 ,0.00831 ,55.03409 ,1.47978 ,1.44496 ,1.02353 ,1.46241 - +,0.04341 ,0.00856 ,60.99135 ,1.66135 ,1.62605 ,1.20731 ,1.64374 - +,0.04391 ,0.00881 ,66.92216 ,1.84494 ,1.80917 ,1.39300 ,1.82710 - +,0.04439 ,0.00906 ,72.98276 ,2.03511 ,1.99890 ,1.58516 ,2.01705 - +,0.04486 ,0.00930 ,79.06006 ,2.22852 ,2.19188 ,1.78047 ,2.21024 - +,0.04531 ,0.00953 ,85.17880 ,2.42586 ,2.38880 ,1.97963 ,2.40738 - +,0.04575 ,0.00976 ,91.31627 ,2.62640 ,2.58893 ,2.18190 ,2.60771 - +,0.04618 ,0.00999 ,97.47144 ,2.83007 ,2.79221 ,2.38724 ,2.81119/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),K=1,19)/ - + 0.03862 ,0.00579 ,3.33430 ,0.04511 ,0.01434 ,0.00000 ,0.02973 - +,0.03964 ,0.00624 ,6.12080 ,0.11562 ,0.08391 ,0.00000 ,0.09977 - +,0.04057 ,0.00666 ,9.38464 ,0.20056 ,0.16799 ,0.00000 ,0.18429 - +,0.04144 ,0.00707 ,12.99000 ,0.29571 ,0.26233 ,0.00000 ,0.27904 - +,0.04225 ,0.00745 ,16.91681 ,0.40150 ,0.36738 ,0.00308 ,0.38446 - +,0.04301 ,0.00782 ,21.12117 ,0.51711 ,0.48228 ,0.05500 ,0.49971 - +,0.04373 ,0.00817 ,25.51753 ,0.64036 ,0.60486 ,0.19298 ,0.62264 - +,0.04442 ,0.00851 ,30.11081 ,0.77175 ,0.73562 ,0.32733 ,0.75371 - +,0.04508 ,0.00885 ,34.88095 ,0.91084 ,0.87409 ,0.46835 ,0.89250 - +,0.04571 ,0.00917 ,39.81517 ,1.05730 ,1.01998 ,0.61745 ,1.03867 - +,0.04631 ,0.00948 ,44.81833 ,1.20834 ,1.17046 ,0.77070 ,1.18944 - +,0.04689 ,0.00978 ,49.88438 ,1.36391 ,1.32549 ,0.92840 ,1.34474 - +,0.04745 ,0.01008 ,55.08754 ,1.52615 ,1.48722 ,1.09266 ,1.50673 - +,0.04799 ,0.01037 ,60.24567 ,1.68963 ,1.65020 ,1.25806 ,1.66996 - +,0.04851 ,0.01065 ,65.49797 ,1.85846 ,1.81855 ,1.42871 ,1.83855 - +,0.04902 ,0.01093 ,70.74580 ,2.02965 ,1.98927 ,1.60163 ,2.00951 - +,0.04951 ,0.01120 ,76.01181 ,2.20383 ,2.16301 ,1.77748 ,2.18347 - +,0.04998 ,0.01146 ,81.27710 ,2.38035 ,2.33910 ,1.95559 ,2.35977 - +,0.05044 ,0.01172 ,86.54155 ,2.55919 ,2.51751 ,2.13595 ,2.53840/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),K=1,19)/ - + 0.04142 ,0.00662 ,3.31156 ,0.04774 ,0.01442 ,0.00000 ,0.03108 - +,0.04250 ,0.00713 ,5.98113 ,0.11639 ,0.08206 ,0.00000 ,0.09923 - +,0.04350 ,0.00761 ,9.07337 ,0.19779 ,0.16255 ,0.00000 ,0.18018 - +,0.04442 ,0.00806 ,12.45933 ,0.28824 ,0.25213 ,0.00000 ,0.27020 - +,0.04528 ,0.00850 ,16.12036 ,0.38814 ,0.35124 ,0.00290 ,0.36971 - +,0.04609 ,0.00891 ,20.01555 ,0.49671 ,0.45906 ,0.05154 ,0.47791 - +,0.04686 ,0.00931 ,24.06589 ,0.61192 ,0.57356 ,0.18058 ,0.59277 - +,0.04759 ,0.00969 ,28.27670 ,0.73422 ,0.69518 ,0.30565 ,0.71473 - +,0.04829 ,0.01006 ,32.63007 ,0.86318 ,0.82350 ,0.43642 ,0.84337 - +,0.04896 ,0.01042 ,37.11482 ,0.99852 ,0.95822 ,0.57421 ,0.97840 - +,0.04960 ,0.01077 ,41.64456 ,1.13763 ,1.09674 ,0.71539 ,1.11722 - +,0.05022 ,0.01111 ,46.21478 ,1.28049 ,1.23903 ,0.86023 ,1.25980 - +,0.05081 ,0.01144 ,50.89389 ,1.42906 ,1.38706 ,1.01069 ,1.40810 - +,0.05138 ,0.01176 ,55.51700 ,1.57837 ,1.53584 ,1.16179 ,1.55715 - +,0.05194 ,0.01208 ,60.21161 ,1.73220 ,1.68916 ,1.31732 ,1.71072 - +,0.05247 ,0.01238 ,64.88875 ,1.88780 ,1.84428 ,1.47454 ,1.86609 - +,0.05299 ,0.01268 ,69.56979 ,2.04578 ,2.00179 ,1.63408 ,2.02384 - +,0.05350 ,0.01297 ,74.23846 ,2.20556 ,2.16111 ,1.79534 ,2.18339 - +,0.05399 ,0.01326 ,78.89542 ,2.36711 ,2.32221 ,1.95830 ,2.34471/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),K=1,19)/ - + 0.05129 ,0.01008 ,3.24108 ,0.05701 ,0.01435 ,0.00000 ,0.03568 - +,0.05260 ,0.01081 ,5.56440 ,0.11936 ,0.07547 ,0.00000 ,0.09742 - +,0.05380 ,0.01150 ,8.16462 ,0.19026 ,0.14524 ,0.00000 ,0.16776 - +,0.05491 ,0.01216 ,10.93508 ,0.26719 ,0.22114 ,0.00000 ,0.24419 - +,0.05595 ,0.01277 ,13.86261 ,0.35049 ,0.30347 ,0.00239 ,0.32701 - +,0.05692 ,0.01336 ,16.91634 ,0.43949 ,0.39156 ,0.04195 ,0.41555 - +,0.05785 ,0.01393 ,20.03601 ,0.53256 ,0.48378 ,0.14635 ,0.50821 - +,0.05873 ,0.01447 ,23.22879 ,0.63006 ,0.58047 ,0.24610 ,0.60530 - +,0.05957 ,0.01500 ,26.48306 ,0.73164 ,0.68128 ,0.34911 ,0.70650 - +,0.06037 ,0.01550 ,29.79247 ,0.83707 ,0.78598 ,0.45652 ,0.81156 - +,0.06114 ,0.01600 ,33.09380 ,0.94435 ,0.89256 ,0.56546 ,0.91850 - +,0.06189 ,0.01647 ,36.38672 ,1.05348 ,1.00103 ,0.67618 ,1.02730 - +,0.06260 ,0.01693 ,39.72456 ,1.16601 ,1.11291 ,0.79023 ,1.13951 - +,0.06329 ,0.01738 ,42.98737 ,1.27814 ,1.22443 ,0.90379 ,1.25134 - +,0.06396 ,0.01782 ,46.27136 ,1.39279 ,1.33849 ,1.01980 ,1.36570 - +,0.06460 ,0.01824 ,49.51346 ,1.50791 ,1.45303 ,1.13622 ,1.48053 - +,0.06523 ,0.01866 ,52.73123 ,1.62398 ,1.56855 ,1.25352 ,1.59632 - +,0.06583 ,0.01906 ,55.91472 ,1.74060 ,1.68463 ,1.37133 ,1.71267 - +,0.06642 ,0.01946 ,59.06604 ,1.85776 ,1.80128 ,1.48963 ,1.82959/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),K=1,19)/ - + 0.06312 ,0.01532 ,3.17002 ,0.06828 ,0.01370 ,0.00000 ,0.04099 - +,0.06468 ,0.01638 ,5.16969 ,0.12364 ,0.06759 ,0.00000 ,0.09563 - +,0.06612 ,0.01737 ,7.33247 ,0.18477 ,0.12736 ,0.00000 ,0.15609 - +,0.06745 ,0.01830 ,9.57375 ,0.24974 ,0.19108 ,0.00000 ,0.22044 - +,0.06869 ,0.01918 ,11.88702 ,0.31870 ,0.25890 ,0.00197 ,0.28883 - +,0.06986 ,0.02002 ,14.25123 ,0.39114 ,0.33026 ,0.03389 ,0.36074 - +,0.07096 ,0.02081 ,16.62263 ,0.46579 ,0.40391 ,0.11774 ,0.43489 - +,0.07202 ,0.02158 ,19.01031 ,0.54292 ,0.48009 ,0.19668 ,0.51155 - +,0.07302 ,0.02231 ,21.40820 ,0.62230 ,0.55856 ,0.27718 ,0.59048 - +,0.07399 ,0.02302 ,23.81401 ,0.70376 ,0.63917 ,0.36021 ,0.67151 - +,0.07491 ,0.02371 ,26.18272 ,0.78579 ,0.72038 ,0.44356 ,0.75314 - +,0.07580 ,0.02437 ,28.51712 ,0.86842 ,0.80224 ,0.52745 ,0.83538 - +,0.07665 ,0.02501 ,30.85878 ,0.95286 ,0.88594 ,0.61310 ,0.91946 - +,0.07748 ,0.02563 ,33.12164 ,1.03627 ,0.96864 ,0.69764 ,1.00251 - +,0.07828 ,0.02623 ,35.37822 ,1.12088 ,1.05257 ,0.78334 ,1.08679 - +,0.07905 ,0.02681 ,37.58440 ,1.20518 ,1.13621 ,0.86867 ,1.17076 - +,0.07980 ,0.02738 ,39.75458 ,1.28957 ,1.21997 ,0.95405 ,1.25484 - +,0.08052 ,0.02794 ,41.88326 ,1.37377 ,1.30357 ,1.03919 ,1.33874 - +,0.08123 ,0.02848 ,43.97327 ,1.45782 ,1.38703 ,1.12414 ,1.42250/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),K=1,19)/ - + 0.07103 ,0.01957 ,3.12746 ,0.07602 ,0.01306 ,0.00000 ,0.04454 - +,0.07276 ,0.02087 ,4.94634 ,0.12710 ,0.06250 ,0.00000 ,0.09481 - +,0.07435 ,0.02209 ,6.87434 ,0.18287 ,0.11677 ,0.00000 ,0.14984 - +,0.07583 ,0.02323 ,8.83935 ,0.24146 ,0.17400 ,0.00000 ,0.20776 - +,0.07720 ,0.02431 ,10.83883 ,0.30296 ,0.23423 ,0.00174 ,0.26863 - +,0.07850 ,0.02532 ,12.85715 ,0.36688 ,0.29699 ,0.02977 ,0.33197 - +,0.07973 ,0.02629 ,14.85900 ,0.43218 ,0.36120 ,0.10318 ,0.39673 - +,0.08090 ,0.02722 ,16.85452 ,0.49910 ,0.42709 ,0.17167 ,0.46314 - +,0.08202 ,0.02811 ,18.84047 ,0.56745 ,0.49445 ,0.24100 ,0.53100 - +,0.08309 ,0.02897 ,20.81647 ,0.63710 ,0.56319 ,0.31202 ,0.60020 - +,0.08411 ,0.02979 ,22.74634 ,0.70681 ,0.63202 ,0.38287 ,0.66947 - +,0.08510 ,0.03059 ,24.63399 ,0.77660 ,0.70098 ,0.45376 ,0.73885 - +,0.08605 ,0.03136 ,26.51529 ,0.84754 ,0.77112 ,0.52575 ,0.80939 - +,0.08696 ,0.03210 ,28.32024 ,0.91723 ,0.84005 ,0.59643 ,0.87870 - +,0.08785 ,0.03282 ,30.10986 ,0.98758 ,0.90968 ,0.66773 ,0.94870 - +,0.08871 ,0.03352 ,31.84877 ,1.05735 ,0.97875 ,0.73840 ,1.01812 - +,0.08954 ,0.03420 ,33.54977 ,1.12688 ,1.04761 ,0.80880 ,1.08732 - +,0.09034 ,0.03486 ,35.20918 ,1.19596 ,1.11605 ,0.87871 ,1.15608 - +,0.09112 ,0.03550 ,36.83008 ,1.26464 ,1.18411 ,0.94818 ,1.22445/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),K=1,19)/ - + 0.07712 ,0.02327 ,3.09642 ,0.08215 ,0.01250 ,0.00000 ,0.04733 - +,0.07898 ,0.02478 ,4.78999 ,0.13018 ,0.05879 ,0.00000 ,0.09450 - +,0.08069 ,0.02619 ,6.55923 ,0.18230 ,0.10932 ,0.00000 ,0.14583 - +,0.08228 ,0.02750 ,8.34077 ,0.23662 ,0.16220 ,0.00000 ,0.19944 - +,0.08376 ,0.02873 ,10.13480 ,0.29316 ,0.21740 ,0.00160 ,0.25531 - +,0.08516 ,0.02990 ,11.92930 ,0.35150 ,0.27450 ,0.02708 ,0.31304 - +,0.08648 ,0.03100 ,13.69447 ,0.41071 ,0.33256 ,0.09368 ,0.37168 - +,0.08774 ,0.03206 ,15.44109 ,0.47102 ,0.39179 ,0.15541 ,0.43145 - +,0.08895 ,0.03308 ,17.16765 ,0.53227 ,0.45202 ,0.21755 ,0.49220 - +,0.09010 ,0.03405 ,18.87506 ,0.59438 ,0.51317 ,0.28090 ,0.55383 - +,0.09121 ,0.03499 ,20.53249 ,0.65624 ,0.57412 ,0.34380 ,0.61524 - +,0.09227 ,0.03589 ,22.14458 ,0.71792 ,0.63493 ,0.40647 ,0.67649 - +,0.09329 ,0.03677 ,23.74359 ,0.78034 ,0.69653 ,0.46985 ,0.73850 - +,0.09428 ,0.03761 ,25.26930 ,0.84143 ,0.75684 ,0.53185 ,0.79920 - +,0.09523 ,0.03842 ,26.77559 ,0.90289 ,0.81754 ,0.59417 ,0.86028 - +,0.09616 ,0.03921 ,28.23242 ,0.96362 ,0.87755 ,0.65572 ,0.92066 - +,0.09705 ,0.03997 ,29.65150 ,1.02394 ,0.93718 ,0.71683 ,0.98064 - +,0.09792 ,0.04072 ,31.03018 ,1.08369 ,0.99627 ,0.77734 ,1.04006 - +,0.09876 ,0.04144 ,32.37166 ,1.14291 ,1.05486 ,0.83728 ,1.09896/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),K=1,19)/ - + 0.08212 ,0.02662 ,3.07130 ,0.08745 ,0.01218 ,0.00000 ,0.04982 - +,0.08410 ,0.02830 ,4.66720 ,0.13350 ,0.05641 ,0.00000 ,0.09497 - +,0.08592 ,0.02986 ,6.31461 ,0.18291 ,0.10417 ,0.00000 ,0.14357 - +,0.08761 ,0.03132 ,7.95718 ,0.23401 ,0.15378 ,0.00000 ,0.19393 - +,0.08918 ,0.03268 ,9.59719 ,0.28682 ,0.20521 ,0.00149 ,0.24605 - +,0.09067 ,0.03397 ,11.22517 ,0.34097 ,0.25809 ,0.02506 ,0.29957 - +,0.09208 ,0.03519 ,12.81593 ,0.39563 ,0.31157 ,0.08658 ,0.35365 - +,0.09342 ,0.03636 ,14.38059 ,0.45104 ,0.36587 ,0.14329 ,0.40850 - +,0.09470 ,0.03748 ,15.91868 ,0.50705 ,0.42084 ,0.20011 ,0.46400 - +,0.09593 ,0.03855 ,17.43187 ,0.56361 ,0.47642 ,0.25781 ,0.52007 - +,0.09710 ,0.03958 ,18.89348 ,0.61975 ,0.53162 ,0.31490 ,0.57575 - +,0.09823 ,0.04057 ,20.30833 ,0.67549 ,0.58649 ,0.37157 ,0.63105 - +,0.09932 ,0.04152 ,21.70607 ,0.73173 ,0.64189 ,0.42869 ,0.68687 - +,0.10037 ,0.04244 ,23.03284 ,0.78659 ,0.69596 ,0.48439 ,0.74134 - +,0.10138 ,0.04333 ,24.33833 ,0.84162 ,0.75023 ,0.54022 ,0.79600 - +,0.10236 ,0.04419 ,25.59657 ,0.89584 ,0.80372 ,0.59520 ,0.84985 - +,0.10331 ,0.04503 ,26.81776 ,0.94955 ,0.85674 ,0.64965 ,0.90322 - +,0.10424 ,0.04584 ,28.00002 ,1.00261 ,0.90914 ,0.70342 ,0.95595 - +,0.10513 ,0.04662 ,29.14679 ,1.05508 ,0.96097 ,0.75656 ,1.00810/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),K=1,19)/ - + 0.09937 ,0.04033 ,2.98848 ,0.10631 ,0.01090 ,0.00000 ,0.05860 - +,0.10178 ,0.04265 ,4.29124 ,0.14585 ,0.04846 ,0.00000 ,0.09717 - +,0.10399 ,0.04478 ,5.58628 ,0.18709 ,0.08793 ,0.00000 ,0.13753 - +,0.10606 ,0.04676 ,6.83706 ,0.22879 ,0.12805 ,0.00000 ,0.17845 - +,0.10798 ,0.04860 ,8.05178 ,0.27093 ,0.16875 ,0.00118 ,0.21988 - +,0.10979 ,0.05033 ,9.22842 ,0.31331 ,0.20981 ,0.01946 ,0.26160 - +,0.11152 ,0.05196 ,10.35250 ,0.35538 ,0.25067 ,0.06691 ,0.30307 - +,0.11315 ,0.05351 ,11.43593 ,0.39734 ,0.29149 ,0.10992 ,0.34447 - +,0.11472 ,0.05499 ,12.48134 ,0.43913 ,0.33223 ,0.15237 ,0.38574 - +,0.11622 ,0.05639 ,13.49250 ,0.48076 ,0.37288 ,0.19492 ,0.42688 - +,0.11765 ,0.05774 ,14.45263 ,0.52157 ,0.41276 ,0.23651 ,0.46723 - +,0.11903 ,0.05903 ,15.36731 ,0.56162 ,0.45195 ,0.27732 ,0.50685 - +,0.12036 ,0.06027 ,16.25894 ,0.60158 ,0.49109 ,0.31802 ,0.54640 - +,0.12164 ,0.06145 ,17.09169 ,0.64016 ,0.52891 ,0.35730 ,0.58460 - +,0.12287 ,0.06260 ,17.90132 ,0.67847 ,0.56650 ,0.39630 ,0.62256 - +,0.12407 ,0.06370 ,18.67107 ,0.71588 ,0.60321 ,0.43435 ,0.65962 - +,0.12522 ,0.06476 ,19.40906 ,0.75260 ,0.63928 ,0.47171 ,0.69601 - +,0.12634 ,0.06579 ,20.11494 ,0.78857 ,0.67463 ,0.50830 ,0.73168 - +,0.12743 ,0.06678 ,20.79169 ,0.82385 ,0.70932 ,0.54417 ,0.76666/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),K=1,19)/ - + 0.11969 ,0.06086 ,2.89290 ,0.12914 ,0.00953 ,0.00000 ,0.06933 - +,0.12274 ,0.06394 ,3.91428 ,0.16242 ,0.04093 ,0.00000 ,0.10168 - +,0.12554 ,0.06674 ,4.88892 ,0.19599 ,0.07285 ,0.00001 ,0.13444 - +,0.12815 ,0.06931 ,5.79801 ,0.22908 ,0.10449 ,0.00001 ,0.16681 - +,0.13057 ,0.07169 ,6.65413 ,0.26172 ,0.13584 ,0.00093 ,0.19881 - +,0.13287 ,0.07390 ,7.46052 ,0.29384 ,0.16680 ,0.01472 ,0.23036 - +,0.13503 ,0.07598 ,8.21128 ,0.32513 ,0.19705 ,0.05030 ,0.26114 - +,0.13709 ,0.07793 ,8.91817 ,0.35580 ,0.22676 ,0.08197 ,0.29133 - +,0.13904 ,0.07978 ,9.58538 ,0.38584 ,0.25593 ,0.11270 ,0.32094 - +,0.14092 ,0.08154 ,10.21769 ,0.41531 ,0.28460 ,0.14305 ,0.35001 - +,0.14272 ,0.08320 ,10.80566 ,0.44380 ,0.31234 ,0.17233 ,0.37813 - +,0.14444 ,0.08478 ,11.35505 ,0.47140 ,0.33927 ,0.20072 ,0.40540 - +,0.14609 ,0.08630 ,11.88237 ,0.49861 ,0.36584 ,0.22868 ,0.43229 - +,0.14769 ,0.08774 ,12.36515 ,0.52454 ,0.39119 ,0.25535 ,0.45793 - +,0.14922 ,0.08912 ,12.82737 ,0.55001 ,0.41612 ,0.28154 ,0.48314 - +,0.15070 ,0.09045 ,13.25862 ,0.57462 ,0.44022 ,0.30684 ,0.50749 - +,0.15213 ,0.09172 ,13.66616 ,0.59852 ,0.46366 ,0.33143 ,0.53116 - +,0.15352 ,0.09295 ,14.05048 ,0.62171 ,0.48641 ,0.35528 ,0.55414 - +,0.15486 ,0.09412 ,14.41298 ,0.64425 ,0.50855 ,0.37847 ,0.57648/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),K=1,19)/ - + 0.13360 ,0.07717 ,2.82706 ,0.14395 ,0.00867 ,0.00000 ,0.07631 - +,0.13717 ,0.08070 ,3.68985 ,0.17345 ,0.03655 ,0.00000 ,0.10501 - +,0.14045 ,0.08390 ,4.49248 ,0.20263 ,0.06433 ,0.00001 ,0.13350 - +,0.14348 ,0.08683 ,5.22417 ,0.23091 ,0.09144 ,0.00001 ,0.16120 - +,0.14632 ,0.08949 ,5.89990 ,0.25841 ,0.11789 ,0.00078 ,0.18818 - +,0.14899 ,0.09198 ,6.52496 ,0.28510 ,0.14367 ,0.01229 ,0.21442 - +,0.15149 ,0.09428 ,7.09521 ,0.31079 ,0.16857 ,0.04185 ,0.23972 - +,0.15387 ,0.09645 ,7.62431 ,0.33567 ,0.19275 ,0.06785 ,0.26425 - +,0.15615 ,0.09848 ,8.11713 ,0.35980 ,0.21624 ,0.09282 ,0.28806 - +,0.15832 ,0.10041 ,8.57796 ,0.38323 ,0.23910 ,0.11726 ,0.31122 - +,0.16039 ,0.10222 ,8.99882 ,0.40570 ,0.26106 ,0.14065 ,0.33343 - +,0.16237 ,0.10394 ,9.38735 ,0.42725 ,0.28216 ,0.16312 ,0.35476 - +,0.16427 ,0.10558 ,9.75643 ,0.44832 ,0.30282 ,0.18507 ,0.37563 - +,0.16608 ,0.10714 ,10.08837 ,0.46827 ,0.32241 ,0.20589 ,0.39540 - +,0.16783 ,0.10862 ,10.40291 ,0.48773 ,0.34153 ,0.22619 ,0.41469 - +,0.16952 ,0.11004 ,10.69259 ,0.50637 ,0.35988 ,0.24565 ,0.43319 - +,0.17114 ,0.11139 ,10.96229 ,0.52436 ,0.37761 ,0.26445 ,0.45105 - +,0.17271 ,0.11269 ,11.21275 ,0.54170 ,0.39471 ,0.28256 ,0.46826 - +,0.17422 ,0.11393 ,11.44658 ,0.55845 ,0.41124 ,0.30008 ,0.48490/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),K=1,19)/ - + 0.14481 ,0.09112 ,2.77370 ,0.15474 ,0.00804 ,0.00000 ,0.08139 - +,0.14886 ,0.09496 ,3.52698 ,0.18151 ,0.03351 ,0.00000 ,0.10752 - +,0.15256 ,0.09841 ,4.21420 ,0.20757 ,0.05850 ,0.00001 ,0.13305 - +,0.15597 ,0.10154 ,4.82989 ,0.23253 ,0.08258 ,0.00001 ,0.15758 - +,0.15917 ,0.10438 ,5.38962 ,0.25651 ,0.10581 ,0.00069 ,0.18120 - +,0.16216 ,0.10702 ,5.89994 ,0.27955 ,0.12823 ,0.01071 ,0.20392 - +,0.16496 ,0.10945 ,6.35884 ,0.30153 ,0.14968 ,0.03639 ,0.22564 - +,0.16762 ,0.11173 ,6.77912 ,0.32263 ,0.17034 ,0.05878 ,0.24652 - +,0.17015 ,0.11385 ,7.16582 ,0.34292 ,0.19024 ,0.08011 ,0.26663 - +,0.17257 ,0.11586 ,7.52329 ,0.36249 ,0.20948 ,0.10084 ,0.28603 - +,0.17486 ,0.11774 ,7.84551 ,0.38110 ,0.22783 ,0.12054 ,0.30451 - +,0.17705 ,0.11951 ,8.13939 ,0.39884 ,0.24535 ,0.13936 ,0.32215 - +,0.17914 ,0.12120 ,8.41598 ,0.41608 ,0.26240 ,0.15763 ,0.33929 - +,0.18114 ,0.12280 ,8.66103 ,0.43230 ,0.27846 ,0.17487 ,0.35543 - +,0.18306 ,0.12432 ,8.89113 ,0.44802 ,0.29406 ,0.19158 ,0.37109 - +,0.18491 ,0.12576 ,9.10038 ,0.46299 ,0.30895 ,0.20752 ,0.38603 - +,0.18669 ,0.12713 ,9.29298 ,0.47737 ,0.32326 ,0.22284 ,0.40037 - +,0.18839 ,0.12844 ,9.46966 ,0.49115 ,0.33699 ,0.23754 ,0.41413 - +,0.19004 ,0.12969 ,9.63272 ,0.50440 ,0.35020 ,0.25168 ,0.42735/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),K=1,19)/ - + 0.15457 ,0.10347 ,2.72746 ,0.16300 ,0.00755 ,0.00001 ,0.08527 - +,0.15905 ,0.10751 ,3.39780 ,0.18756 ,0.03117 ,0.00001 ,0.10937 - +,0.16313 ,0.11112 ,3.99956 ,0.21118 ,0.05405 ,0.00001 ,0.13264 - +,0.16691 ,0.11437 ,4.53104 ,0.23358 ,0.07588 ,0.00001 ,0.15476 - +,0.17041 ,0.11730 ,5.00759 ,0.25492 ,0.09678 ,0.00065 ,0.17588 - +,0.17368 ,0.12003 ,5.43584 ,0.27524 ,0.11674 ,0.00960 ,0.19602 - +,0.17674 ,0.12253 ,5.81882 ,0.29446 ,0.13571 ,0.03248 ,0.21512 - +,0.17963 ,0.12485 ,6.16417 ,0.31279 ,0.15385 ,0.05228 ,0.23336 - +,0.18238 ,0.12701 ,6.47761 ,0.33030 ,0.17123 ,0.07102 ,0.25081 - +,0.18499 ,0.12904 ,6.76425 ,0.34707 ,0.18791 ,0.08912 ,0.26754 - +,0.18748 ,0.13094 ,7.02082 ,0.36293 ,0.20373 ,0.10625 ,0.28338 - +,0.18983 ,0.13272 ,7.25169 ,0.37796 ,0.21876 ,0.12251 ,0.29841 - +,0.19209 ,0.13441 ,7.46695 ,0.39249 ,0.23331 ,0.13824 ,0.31295 - +,0.19425 ,0.13599 ,7.65514 ,0.40607 ,0.24695 ,0.15300 ,0.32657 - +,0.19632 ,0.13750 ,7.83013 ,0.41918 ,0.26014 ,0.16725 ,0.33971 - +,0.19832 ,0.13891 ,7.98700 ,0.43162 ,0.27267 ,0.18080 ,0.35219 - +,0.20022 ,0.14027 ,8.12990 ,0.44349 ,0.28466 ,0.19376 ,0.36413 - +,0.20204 ,0.14156 ,8.25954 ,0.45481 ,0.29613 ,0.20614 ,0.37553 - +,0.20379 ,0.14279 ,8.37782 ,0.46564 ,0.30711 ,0.21801 ,0.38643/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),K=1,19)/ - + 0.19468 ,0.15140 ,2.54395 ,0.18450 ,0.00596 ,0.00001 ,0.09523 - +,0.20087 ,0.15560 ,2.96924 ,0.20167 ,0.02394 ,0.00002 ,0.11281 - +,0.20648 ,0.15927 ,3.32924 ,0.21752 ,0.04065 ,0.00001 ,0.12909 - +,0.21152 ,0.16249 ,3.62992 ,0.23202 ,0.05606 ,0.00001 ,0.14406 - +,0.21612 ,0.16538 ,3.88575 ,0.24538 ,0.07033 ,0.00044 ,0.15787 - +,0.22044 ,0.16792 ,4.10422 ,0.25770 ,0.08358 ,0.00647 ,0.17066 - +,0.22443 ,0.17023 ,4.28866 ,0.26902 ,0.09587 ,0.02171 ,0.18247 - +,0.22812 ,0.17234 ,4.44733 ,0.27953 ,0.10732 ,0.03458 ,0.19345 - +,0.23159 ,0.17427 ,4.58414 ,0.28931 ,0.11804 ,0.04650 ,0.20370 - +,0.23485 ,0.17605 ,4.70313 ,0.29847 ,0.12812 ,0.05780 ,0.21331 - +,0.23789 ,0.17767 ,4.80363 ,0.30691 ,0.13750 ,0.06829 ,0.22223 - +,0.24078 ,0.17916 ,4.88816 ,0.31472 ,0.14622 ,0.07807 ,0.23050 - +,0.24353 ,0.18054 ,4.96333 ,0.32213 ,0.15452 ,0.08738 ,0.23835 - +,0.24607 ,0.18184 ,5.02325 ,0.32886 ,0.16215 ,0.09595 ,0.24553 - +,0.24851 ,0.18303 ,5.07608 ,0.33525 ,0.16941 ,0.10411 ,0.25236 - +,0.25085 ,0.18412 ,5.11933 ,0.34117 ,0.17622 ,0.11176 ,0.25872 - +,0.25307 ,0.18514 ,5.15524 ,0.34670 ,0.18261 ,0.11897 ,0.26469 - +,0.25518 ,0.18610 ,5.18441 ,0.35187 ,0.18860 ,0.12576 ,0.27027 - +,0.25720 ,0.18699 ,5.20795 ,0.35670 ,0.19426 ,0.13217 ,0.27552/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),K=1,19)/ - + 0.26333 ,0.21303 ,2.26512 ,0.18780 ,0.00425 ,-0.00008 ,0.09599 - +,0.27129 ,0.21594 ,2.47270 ,0.19691 ,0.01680 ,-0.00009 ,0.10681 - +,0.27832 ,0.21827 ,2.63207 ,0.20483 ,0.02794 ,-0.00012 ,0.11635 - +,0.28445 ,0.22025 ,2.75191 ,0.21166 ,0.03776 ,-0.00013 ,0.12469 - +,0.28986 ,0.22191 ,2.84295 ,0.21762 ,0.04651 ,0.00015 ,0.13205 - +,0.29482 ,0.22325 ,2.91221 ,0.22286 ,0.05442 ,0.00383 ,0.13863 - +,0.29933 ,0.22430 ,2.96180 ,0.22740 ,0.06147 ,0.01301 ,0.14441 - +,0.30337 ,0.22524 ,2.99737 ,0.23138 ,0.06783 ,0.02052 ,0.14957 - +,0.30705 ,0.22603 ,3.02230 ,0.23493 ,0.07362 ,0.02733 ,0.15425 - +,0.31046 ,0.22668 ,3.03900 ,0.23811 ,0.07893 ,0.03364 ,0.15851 - +,0.31362 ,0.22716 ,3.04682 ,0.24081 ,0.08375 ,0.03931 ,0.16226 - +,0.31649 ,0.22756 ,3.04768 ,0.24317 ,0.08812 ,0.04451 ,0.16561 - +,0.31918 ,0.22792 ,3.04518 ,0.24531 ,0.09217 ,0.04937 ,0.16871 - +,0.32161 ,0.22816 ,3.03649 ,0.24711 ,0.09578 ,0.05373 ,0.17141 - +,0.32390 ,0.22835 ,3.02562 ,0.24872 ,0.09914 ,0.05780 ,0.17391 - +,0.32601 ,0.22848 ,3.01132 ,0.25009 ,0.10224 ,0.06156 ,0.17614 - +,0.32800 ,0.22853 ,2.99488 ,0.25128 ,0.10506 ,0.06502 ,0.17814 - +,0.32987 ,0.22851 ,2.97660 ,0.25229 ,0.10763 ,0.06822 ,0.17993 - +,0.33159 ,0.22848 ,2.95678 ,0.25316 ,0.11002 ,0.07118 ,0.18155/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),K=1,19)/ - + 0.32682 ,0.25108 ,2.03536 ,0.17287 ,0.00336 ,0.00004 ,0.08811 - +,0.33479 ,0.25204 ,2.13496 ,0.17744 ,0.01289 ,0.00001 ,0.09519 - +,0.34170 ,0.25253 ,2.20107 ,0.18110 ,0.02108 ,0.00002 ,0.10110 - +,0.34753 ,0.25271 ,2.24110 ,0.18404 ,0.02813 ,0.00001 ,0.10609 - +,0.35257 ,0.25272 ,2.26318 ,0.18635 ,0.03426 ,0.00025 ,0.11034 - +,0.35694 ,0.25252 ,2.27259 ,0.18823 ,0.03958 ,0.00270 ,0.11392 - +,0.36072 ,0.25225 ,2.27087 ,0.18963 ,0.04424 ,0.00910 ,0.11696 - +,0.36405 ,0.25181 ,2.26190 ,0.19071 ,0.04840 ,0.01422 ,0.11957 - +,0.36705 ,0.25123 ,2.24784 ,0.19154 ,0.05209 ,0.01871 ,0.12183 - +,0.36974 ,0.25056 ,2.23016 ,0.19215 ,0.05540 ,0.02278 ,0.12378 - +,0.37204 ,0.24990 ,2.20830 ,0.19250 ,0.05835 ,0.02649 ,0.12542 - +,0.37413 ,0.24916 ,2.18394 ,0.19268 ,0.06093 ,0.02978 ,0.12682 - +,0.37603 ,0.24840 ,2.15904 ,0.19275 ,0.06329 ,0.03280 ,0.12806 - +,0.37758 ,0.24759 ,2.13144 ,0.19264 ,0.06534 ,0.03548 ,0.12903 - +,0.37903 ,0.24677 ,2.10388 ,0.19245 ,0.06722 ,0.03796 ,0.12987 - +,0.38037 ,0.24589 ,2.07554 ,0.19216 ,0.06889 ,0.04019 ,0.13054 - +,0.38152 ,0.24501 ,2.04703 ,0.19179 ,0.07039 ,0.04222 ,0.13110 - +,0.38251 ,0.24413 ,2.01843 ,0.19133 ,0.07173 ,0.04405 ,0.13155 - +,0.38337 ,0.24326 ,1.98997 ,0.19081 ,0.07296 ,0.04575 ,0.13191/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),K=1,19)/ - + 0.38521 ,0.27498 ,1.83264 ,0.15219 ,0.00272 ,0.00007 ,0.07749 - +,0.39209 ,0.27378 ,1.86805 ,0.15400 ,0.01024 ,0.00006 ,0.08217 - +,0.39750 ,0.27247 ,1.88082 ,0.15523 ,0.01657 ,0.00011 ,0.08593 - +,0.40205 ,0.27084 ,1.87733 ,0.15597 ,0.02180 ,0.00009 ,0.08890 - +,0.40570 ,0.26925 ,1.86365 ,0.15630 ,0.02633 ,0.00025 ,0.09132 - +,0.40874 ,0.26748 ,1.84317 ,0.15638 ,0.03012 ,0.00210 ,0.09327 - +,0.41126 ,0.26573 ,1.81704 ,0.15614 ,0.03345 ,0.00673 ,0.09486 - +,0.41327 ,0.26396 ,1.78772 ,0.15576 ,0.03634 ,0.01042 ,0.09609 - +,0.41488 ,0.26222 ,1.75663 ,0.15525 ,0.03884 ,0.01364 ,0.09708 - +,0.41619 ,0.26051 ,1.72472 ,0.15464 ,0.04102 ,0.01653 ,0.09788 - +,0.41725 ,0.25873 ,1.69157 ,0.15391 ,0.04290 ,0.01906 ,0.09848 - +,0.41805 ,0.25695 ,1.65810 ,0.15307 ,0.04456 ,0.02132 ,0.09888 - +,0.41871 ,0.25521 ,1.62554 ,0.15222 ,0.04606 ,0.02336 ,0.09918 - +,0.41912 ,0.25348 ,1.59233 ,0.15126 ,0.04732 ,0.02509 ,0.09933 - +,0.41941 ,0.25177 ,1.56022 ,0.15029 ,0.04846 ,0.02670 ,0.09942 - +,0.41956 ,0.25005 ,1.52857 ,0.14928 ,0.04945 ,0.02816 ,0.09942 - +,0.41956 ,0.24840 ,1.49770 ,0.14824 ,0.05031 ,0.02947 ,0.09935 - +,0.41943 ,0.24682 ,1.46760 ,0.14719 ,0.05106 ,0.03063 ,0.09920 - +,0.41924 ,0.24521 ,1.43836 ,0.14614 ,0.05171 ,0.03168 ,0.09899/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),K=1,19)/ - + 0.43737 ,0.28894 ,1.65006 ,0.13043 ,0.00222 ,0.00007 ,0.06635 - +,0.44204 ,0.28570 ,1.64403 ,0.13062 ,0.00821 ,0.00011 ,0.06946 - +,0.44547 ,0.28246 ,1.62440 ,0.13043 ,0.01315 ,0.00006 ,0.07184 - +,0.44795 ,0.27929 ,1.59558 ,0.12988 ,0.01726 ,0.00007 ,0.07358 - +,0.44957 ,0.27626 ,1.56173 ,0.12917 ,0.02066 ,0.00019 ,0.07492 - +,0.45082 ,0.27316 ,1.52532 ,0.12827 ,0.02344 ,0.00158 ,0.07592 - +,0.45142 ,0.27020 ,1.48680 ,0.12725 ,0.02586 ,0.00507 ,0.07661 - +,0.45172 ,0.26723 ,1.44793 ,0.12616 ,0.02790 ,0.00782 ,0.07707 - +,0.45175 ,0.26436 ,1.40952 ,0.12498 ,0.02967 ,0.01020 ,0.07736 - +,0.45154 ,0.26160 ,1.37203 ,0.12376 ,0.03120 ,0.01229 ,0.07753 - +,0.45102 ,0.25891 ,1.33487 ,0.12253 ,0.03249 ,0.01406 ,0.07755 - +,0.45028 ,0.25630 ,1.29867 ,0.12128 ,0.03358 ,0.01566 ,0.07744 - +,0.44945 ,0.25378 ,1.26420 ,0.12005 ,0.03454 ,0.01713 ,0.07728 - +,0.44851 ,0.25123 ,1.23033 ,0.11878 ,0.03532 ,0.01838 ,0.07705 - +,0.44750 ,0.24877 ,1.19809 ,0.11753 ,0.03601 ,0.01949 ,0.07679 - +,0.44640 ,0.24640 ,1.16696 ,0.11626 ,0.03661 ,0.02047 ,0.07649 - +,0.44517 ,0.24411 ,1.13708 ,0.11500 ,0.03713 ,0.02132 ,0.07612 - +,0.44385 ,0.24192 ,1.10839 ,0.11376 ,0.03757 ,0.02208 ,0.07569 - +,0.44249 ,0.23974 ,1.08090 ,0.11254 ,0.03793 ,0.02275 ,0.07526/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),K=1,19)/ - + 0.49251 ,0.29604 ,1.44560 ,0.10476 ,0.00172 ,0.00007 ,0.05328 - +,0.49360 ,0.29045 ,1.40739 ,0.10387 ,0.00641 ,0.00006 ,0.05515 - +,0.49354 ,0.28535 ,1.36358 ,0.10274 ,0.01016 ,0.00012 ,0.05648 - +,0.49301 ,0.28021 ,1.31688 ,0.10148 ,0.01314 ,0.00007 ,0.05734 - +,0.49179 ,0.27552 ,1.27009 ,0.10015 ,0.01555 ,0.00014 ,0.05789 - +,0.49033 ,0.27095 ,1.22409 ,0.09873 ,0.01760 ,0.00121 ,0.05823 - +,0.48830 ,0.26669 ,1.17906 ,0.09732 ,0.01921 ,0.00372 ,0.05833 - +,0.48614 ,0.26255 ,1.13581 ,0.09588 ,0.02059 ,0.00569 ,0.05830 - +,0.48385 ,0.25857 ,1.09457 ,0.09443 ,0.02177 ,0.00734 ,0.05815 - +,0.48145 ,0.25478 ,1.05551 ,0.09300 ,0.02278 ,0.00877 ,0.05792 - +,0.47886 ,0.25117 ,1.01815 ,0.09158 ,0.02360 ,0.01005 ,0.05763 - +,0.47624 ,0.24767 ,0.98261 ,0.09018 ,0.02425 ,0.01111 ,0.05727 - +,0.47364 ,0.24432 ,0.94930 ,0.08882 ,0.02480 ,0.01204 ,0.05689 - +,0.47088 ,0.24103 ,0.91735 ,0.08747 ,0.02525 ,0.01283 ,0.05646 - +,0.46810 ,0.23793 ,0.88734 ,0.08617 ,0.02564 ,0.01355 ,0.05602 - +,0.46523 ,0.23499 ,0.85881 ,0.08489 ,0.02595 ,0.01420 ,0.05556 - +,0.46241 ,0.23212 ,0.83184 ,0.08365 ,0.02621 ,0.01475 ,0.05508 - +,0.45964 ,0.22930 ,0.80629 ,0.08243 ,0.02641 ,0.01522 ,0.05459 - +,0.45690 ,0.22656 ,0.78205 ,0.08125 ,0.02659 ,0.01563 ,0.05407/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),K=1,19)/ - + 0.53565 ,0.29457 ,1.26377 ,0.08224 ,0.00146 ,0.00014 ,0.04192 - +,0.53256 ,0.28702 ,1.20656 ,0.08094 ,0.00504 ,0.00013 ,0.04305 - +,0.52889 ,0.28011 ,1.14964 ,0.07949 ,0.00790 ,0.00016 ,0.04378 - +,0.52481 ,0.27360 ,1.09435 ,0.07802 ,0.01011 ,0.00015 ,0.04409 - +,0.52045 ,0.26755 ,1.04200 ,0.07653 ,0.01189 ,0.00018 ,0.04427 - +,0.51596 ,0.26194 ,0.99280 ,0.07498 ,0.01338 ,0.00100 ,0.04427 - +,0.51124 ,0.25668 ,0.94644 ,0.07356 ,0.01450 ,0.00286 ,0.04406 - +,0.50666 ,0.25160 ,0.90300 ,0.07208 ,0.01545 ,0.00427 ,0.04380 - +,0.50208 ,0.24676 ,0.86257 ,0.07063 ,0.01623 ,0.00545 ,0.04350 - +,0.49751 ,0.24222 ,0.82502 ,0.06924 ,0.01688 ,0.00647 ,0.04315 - +,0.49287 ,0.23797 ,0.78976 ,0.06789 ,0.01741 ,0.00732 ,0.04270 - +,0.48832 ,0.23380 ,0.75682 ,0.06656 ,0.01783 ,0.00803 ,0.04228 - +,0.48392 ,0.22983 ,0.72631 ,0.06528 ,0.01819 ,0.00865 ,0.04187 - +,0.47940 ,0.22611 ,0.69750 ,0.06404 ,0.01845 ,0.00921 ,0.04141 - +,0.47503 ,0.22254 ,0.67072 ,0.06286 ,0.01866 ,0.00971 ,0.04093 - +,0.47074 ,0.21907 ,0.64558 ,0.06174 ,0.01881 ,0.01012 ,0.04041 - +,0.46652 ,0.21577 ,0.62201 ,0.06064 ,0.01893 ,0.01048 ,0.03990 - +,0.46236 ,0.21264 ,0.59987 ,0.05957 ,0.01901 ,0.01082 ,0.03940 - +,0.45829 ,0.20962 ,0.57907 ,0.05854 ,0.01906 ,0.01109 ,0.03891/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),K=1,19)/ - + 0.56667 ,0.28691 ,1.10129 ,0.06342 ,0.00109 ,0.00000 ,0.03228 - +,0.55919 ,0.27778 ,1.03373 ,0.06203 ,0.00394 ,0.00001 ,0.03300 - +,0.55158 ,0.26949 ,0.97072 ,0.06055 ,0.00615 ,0.00001 ,0.03344 - +,0.54405 ,0.26182 ,0.91219 ,0.05913 ,0.00783 ,0.00002 ,0.03349 - +,0.53662 ,0.25472 ,0.85869 ,0.05767 ,0.00921 ,0.00008 ,0.03349 - +,0.52935 ,0.24822 ,0.80977 ,0.05627 ,0.01022 ,0.00064 ,0.03334 - +,0.52215 ,0.24217 ,0.76468 ,0.05489 ,0.01105 ,0.00206 ,0.03311 - +,0.51517 ,0.23642 ,0.72341 ,0.05356 ,0.01173 ,0.00314 ,0.03276 - +,0.50831 ,0.23105 ,0.68555 ,0.05228 ,0.01228 ,0.00403 ,0.03239 - +,0.50163 ,0.22600 ,0.65084 ,0.05107 ,0.01273 ,0.00478 ,0.03200 - +,0.49515 ,0.22120 ,0.61877 ,0.04990 ,0.01304 ,0.00536 ,0.03159 - +,0.48880 ,0.21671 ,0.58913 ,0.04875 ,0.01328 ,0.00590 ,0.03117 - +,0.48271 ,0.21248 ,0.56193 ,0.04765 ,0.01348 ,0.00639 ,0.03075 - +,0.47677 ,0.20831 ,0.53656 ,0.04661 ,0.01367 ,0.00674 ,0.03025 - +,0.47108 ,0.20436 ,0.51317 ,0.04561 ,0.01379 ,0.00706 ,0.02979 - +,0.46557 ,0.20058 ,0.49141 ,0.04463 ,0.01384 ,0.00735 ,0.02936 - +,0.46017 ,0.19701 ,0.47122 ,0.04370 ,0.01390 ,0.00758 ,0.02893 - +,0.45488 ,0.19362 ,0.45243 ,0.04280 ,0.01395 ,0.00776 ,0.02848 - +,0.44971 ,0.19040 ,0.43489 ,0.04194 ,0.01397 ,0.00792 ,0.02805/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),K=1,19)/ - + 0.58603 ,0.27450 ,0.95662 ,0.04810 ,0.00082 ,-0.00001 ,0.02451 - +,0.57422 ,0.26421 ,0.88436 ,0.04681 ,0.00311 ,-0.00002 ,0.02496 - +,0.56283 ,0.25493 ,0.81940 ,0.04551 ,0.00479 ,0.00014 ,0.02522 - +,0.55199 ,0.24647 ,0.76118 ,0.04426 ,0.00603 ,0.00015 ,0.02516 - +,0.54166 ,0.23880 ,0.70914 ,0.04296 ,0.00701 ,0.00010 ,0.02511 - +,0.53174 ,0.23162 ,0.66250 ,0.04180 ,0.00776 ,0.00051 ,0.02488 - +,0.52210 ,0.22513 ,0.62027 ,0.04063 ,0.00836 ,0.00156 ,0.02458 - +,0.51288 ,0.21904 ,0.58211 ,0.03951 ,0.00883 ,0.00233 ,0.02422 - +,0.50416 ,0.21328 ,0.54763 ,0.03844 ,0.00921 ,0.00300 ,0.02386 - +,0.49583 ,0.20788 ,0.51641 ,0.03741 ,0.00951 ,0.00357 ,0.02350 - +,0.48761 ,0.20289 ,0.48785 ,0.03641 ,0.00975 ,0.00394 ,0.02312 - +,0.47981 ,0.19809 ,0.46169 ,0.03547 ,0.00991 ,0.00428 ,0.02274 - +,0.47240 ,0.19356 ,0.43788 ,0.03458 ,0.01002 ,0.00458 ,0.02236 - +,0.46511 ,0.18935 ,0.41600 ,0.03373 ,0.01008 ,0.00486 ,0.02195 - +,0.45817 ,0.18536 ,0.39595 ,0.03292 ,0.01013 ,0.00507 ,0.02155 - +,0.45149 ,0.18152 ,0.37743 ,0.03214 ,0.01018 ,0.00521 ,0.02116 - +,0.44501 ,0.17789 ,0.36030 ,0.03140 ,0.01018 ,0.00537 ,0.02078 - +,0.43873 ,0.17445 ,0.34444 ,0.03071 ,0.01015 ,0.00555 ,0.02041 - +,0.43269 ,0.17115 ,0.32971 ,0.03004 ,0.01012 ,0.00569 ,0.02005/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),K=1,19)/ - + 0.59421 ,0.25900 ,0.82780 ,0.03593 ,0.00062 ,0.00013 ,0.01830 - +,0.57849 ,0.24775 ,0.75468 ,0.03485 ,0.00237 ,0.00004 ,0.01867 - +,0.56376 ,0.23772 ,0.69088 ,0.03373 ,0.00374 ,0.00006 ,0.01881 - +,0.54985 ,0.22883 ,0.63483 ,0.03271 ,0.00467 ,0.00011 ,0.01872 - +,0.53688 ,0.22069 ,0.58568 ,0.03161 ,0.00544 ,0.00009 ,0.01865 - +,0.52484 ,0.21308 ,0.54234 ,0.03068 ,0.00604 ,0.00032 ,0.01831 - +,0.51319 ,0.20631 ,0.50376 ,0.02971 ,0.00645 ,0.00113 ,0.01807 - +,0.50213 ,0.19998 ,0.46939 ,0.02882 ,0.00674 ,0.00176 ,0.01779 - +,0.49171 ,0.19408 ,0.43855 ,0.02794 ,0.00700 ,0.00225 ,0.01750 - +,0.48183 ,0.18860 ,0.41086 ,0.02709 ,0.00722 ,0.00265 ,0.01720 - +,0.47228 ,0.18354 ,0.38586 ,0.02636 ,0.00729 ,0.00296 ,0.01685 - +,0.46325 ,0.17872 ,0.36326 ,0.02564 ,0.00734 ,0.00319 ,0.01651 - +,0.45471 ,0.17419 ,0.34282 ,0.02495 ,0.00737 ,0.00337 ,0.01619 - +,0.44634 ,0.17002 ,0.32399 ,0.02427 ,0.00742 ,0.00353 ,0.01590 - +,0.43840 ,0.16608 ,0.30688 ,0.02362 ,0.00746 ,0.00367 ,0.01559 - +,0.43079 ,0.16232 ,0.29123 ,0.02299 ,0.00749 ,0.00380 ,0.01527 - +,0.42355 ,0.15871 ,0.27680 ,0.02241 ,0.00747 ,0.00392 ,0.01495 - +,0.41662 ,0.15524 ,0.26345 ,0.02188 ,0.00741 ,0.00402 ,0.01464 - +,0.40999 ,0.15194 ,0.25125 ,0.02135 ,0.00738 ,0.00408 ,0.01434/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),K=1,19)/ - + 0.59256 ,0.24099 ,0.71335 ,0.02643 ,0.00050 ,0.00014 ,0.01348 - +,0.57335 ,0.22916 ,0.64179 ,0.02560 ,0.00181 ,0.00010 ,0.01377 - +,0.55562 ,0.21877 ,0.58066 ,0.02467 ,0.00292 ,0.00008 ,0.01392 - +,0.53907 ,0.20970 ,0.52834 ,0.02385 ,0.00361 ,0.00003 ,0.01377 - +,0.52385 ,0.20133 ,0.48311 ,0.02298 ,0.00425 ,0.00015 ,0.01370 - +,0.50990 ,0.19359 ,0.44364 ,0.02219 ,0.00469 ,0.00042 ,0.01355 - +,0.49644 ,0.18681 ,0.40904 ,0.02152 ,0.00495 ,0.00097 ,0.01324 - +,0.48402 ,0.18042 ,0.37839 ,0.02077 ,0.00522 ,0.00143 ,0.01301 - +,0.47225 ,0.17456 ,0.35122 ,0.02009 ,0.00538 ,0.00175 ,0.01276 - +,0.46108 ,0.16922 ,0.32705 ,0.01948 ,0.00547 ,0.00197 ,0.01250 - +,0.45042 ,0.16431 ,0.30530 ,0.01886 ,0.00557 ,0.00217 ,0.01221 - +,0.44044 ,0.15958 ,0.28579 ,0.01830 ,0.00558 ,0.00235 ,0.01195 - +,0.43107 ,0.15512 ,0.26830 ,0.01778 ,0.00557 ,0.00251 ,0.01170 - +,0.42209 ,0.15090 ,0.25242 ,0.01723 ,0.00564 ,0.00265 ,0.01145 - +,0.41358 ,0.14696 ,0.23806 ,0.01673 ,0.00565 ,0.00275 ,0.01121 - +,0.40545 ,0.14325 ,0.22501 ,0.01628 ,0.00559 ,0.00279 ,0.01098 - +,0.39767 ,0.13974 ,0.21302 ,0.01585 ,0.00553 ,0.00287 ,0.01073 - +,0.39020 ,0.13641 ,0.20199 ,0.01546 ,0.00548 ,0.00298 ,0.01047 - +,0.38308 ,0.13327 ,0.19189 ,0.01506 ,0.00542 ,0.00302 ,0.01025/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),K=1,19)/ - + 0.58228 ,0.22134 ,0.61172 ,0.01905 ,0.00050 ,0.00003 ,0.00987 - +,0.55966 ,0.20958 ,0.54354 ,0.01847 ,0.00153 ,0.00013 ,0.01006 - +,0.53960 ,0.19895 ,0.48682 ,0.01780 ,0.00232 ,0.00013 ,0.01011 - +,0.52090 ,0.18984 ,0.43853 ,0.01715 ,0.00286 ,0.00016 ,0.01013 - +,0.50379 ,0.18163 ,0.39732 ,0.01653 ,0.00332 ,0.00009 ,0.01003 - +,0.48833 ,0.17405 ,0.36197 ,0.01600 ,0.00357 ,0.00030 ,0.00977 - +,0.47363 ,0.16732 ,0.33132 ,0.01538 ,0.00385 ,0.00074 ,0.00965 - +,0.45986 ,0.16125 ,0.30430 ,0.01487 ,0.00396 ,0.00107 ,0.00941 - +,0.44710 ,0.15554 ,0.28063 ,0.01436 ,0.00405 ,0.00129 ,0.00920 - +,0.43525 ,0.15019 ,0.25981 ,0.01387 ,0.00413 ,0.00144 ,0.00901 - +,0.42407 ,0.14521 ,0.24128 ,0.01346 ,0.00411 ,0.00160 ,0.00878 - +,0.41342 ,0.14068 ,0.22460 ,0.01303 ,0.00412 ,0.00176 ,0.00858 - +,0.40342 ,0.13649 ,0.20971 ,0.01260 ,0.00413 ,0.00190 ,0.00841 - +,0.39402 ,0.13243 ,0.19657 ,0.01218 ,0.00414 ,0.00194 ,0.00825 - +,0.38513 ,0.12867 ,0.18467 ,0.01178 ,0.00415 ,0.00198 ,0.00806 - +,0.37664 ,0.12515 ,0.17379 ,0.01142 ,0.00414 ,0.00204 ,0.00783 - +,0.36860 ,0.12183 ,0.16391 ,0.01109 ,0.00411 ,0.00209 ,0.00762 - +,0.36097 ,0.11868 ,0.15489 ,0.01077 ,0.00407 ,0.00212 ,0.00743 - +,0.35358 ,0.11576 ,0.14670 ,0.01049 ,0.00402 ,0.00216 ,0.00727/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),K=1,19)/ - + 0.56425 ,0.20104 ,0.52191 ,0.01359 ,0.00040 ,0.00009 ,0.00704 - +,0.53912 ,0.18936 ,0.45843 ,0.01318 ,0.00125 ,0.00010 ,0.00720 - +,0.51680 ,0.17910 ,0.40617 ,0.01264 ,0.00186 ,0.00008 ,0.00736 - +,0.49656 ,0.17007 ,0.36222 ,0.01223 ,0.00219 ,0.00006 ,0.00730 - +,0.47821 ,0.16205 ,0.32553 ,0.01180 ,0.00249 ,0.00012 ,0.00721 - +,0.46145 ,0.15484 ,0.29422 ,0.01130 ,0.00279 ,0.00015 ,0.00712 - +,0.44595 ,0.14828 ,0.26713 ,0.01086 ,0.00298 ,0.00054 ,0.00699 - +,0.43155 ,0.14232 ,0.24374 ,0.01047 ,0.00305 ,0.00083 ,0.00685 - +,0.41825 ,0.13681 ,0.22344 ,0.01008 ,0.00310 ,0.00101 ,0.00671 - +,0.40590 ,0.13173 ,0.20568 ,0.00972 ,0.00314 ,0.00113 ,0.00655 - +,0.39419 ,0.12706 ,0.18994 ,0.00944 ,0.00313 ,0.00125 ,0.00632 - +,0.38315 ,0.12279 ,0.17610 ,0.00912 ,0.00314 ,0.00134 ,0.00617 - +,0.37286 ,0.11885 ,0.16384 ,0.00880 ,0.00314 ,0.00140 ,0.00604 - +,0.36336 ,0.11506 ,0.15275 ,0.00846 ,0.00310 ,0.00146 ,0.00588 - +,0.35435 ,0.11154 ,0.14286 ,0.00817 ,0.00308 ,0.00150 ,0.00571 - +,0.34570 ,0.10825 ,0.13399 ,0.00791 ,0.00308 ,0.00154 ,0.00552 - +,0.33749 ,0.10514 ,0.12597 ,0.00768 ,0.00305 ,0.00157 ,0.00537 - +,0.32970 ,0.10220 ,0.11868 ,0.00747 ,0.00299 ,0.00160 ,0.00525 - +,0.32231 ,0.09944 ,0.11202 ,0.00725 ,0.00294 ,0.00161 ,0.00515/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),K=1,19)/ - + 0.53925 ,0.18129 ,0.44354 ,0.00970 ,0.00013 ,-0.00004 ,0.00487 - +,0.51252 ,0.16974 ,0.38498 ,0.00934 ,0.00080 ,-0.00008 ,0.00512 - +,0.48869 ,0.15984 ,0.33755 ,0.00908 ,0.00130 ,-0.00003 ,0.00508 - +,0.46755 ,0.15101 ,0.29848 ,0.00870 ,0.00154 ,-0.00007 ,0.00518 - +,0.44830 ,0.14335 ,0.26582 ,0.00832 ,0.00187 ,-0.00005 ,0.00514 - +,0.43082 ,0.13653 ,0.23872 ,0.00803 ,0.00203 ,0.00008 ,0.00499 - +,0.41488 ,0.13030 ,0.21518 ,0.00766 ,0.00222 ,0.00034 ,0.00491 - +,0.40020 ,0.12457 ,0.19520 ,0.00739 ,0.00222 ,0.00052 ,0.00483 - +,0.38656 ,0.11943 ,0.17793 ,0.00713 ,0.00224 ,0.00064 ,0.00471 - +,0.37387 ,0.11476 ,0.16290 ,0.00687 ,0.00229 ,0.00072 ,0.00456 - +,0.36198 ,0.11043 ,0.14981 ,0.00663 ,0.00229 ,0.00082 ,0.00443 - +,0.35113 ,0.10637 ,0.13824 ,0.00634 ,0.00234 ,0.00094 ,0.00436 - +,0.34108 ,0.10261 ,0.12800 ,0.00606 ,0.00238 ,0.00104 ,0.00430 - +,0.33130 ,0.09918 ,0.11875 ,0.00586 ,0.00231 ,0.00106 ,0.00413 - +,0.32218 ,0.09596 ,0.11054 ,0.00567 ,0.00227 ,0.00107 ,0.00399 - +,0.31362 ,0.09291 ,0.10325 ,0.00550 ,0.00225 ,0.00108 ,0.00390 - +,0.30549 ,0.09005 ,0.09667 ,0.00533 ,0.00222 ,0.00110 ,0.00380 - +,0.29775 ,0.08738 ,0.09073 ,0.00517 ,0.00217 ,0.00111 ,0.00371 - +,0.29044 ,0.08487 ,0.08537 ,0.00501 ,0.00213 ,0.00112 ,0.00361/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),K=1,19)/ - + 0.50956 ,0.16073 ,0.37369 ,0.00655 ,0.00034 ,0.00012 ,0.00350 - +,0.48147 ,0.14981 ,0.32087 ,0.00639 ,0.00080 ,0.00006 ,0.00366 - +,0.45674 ,0.14051 ,0.27820 ,0.00618 ,0.00110 ,0.00012 ,0.00372 - +,0.43481 ,0.13235 ,0.24418 ,0.00593 ,0.00139 ,0.00008 ,0.00372 - +,0.41530 ,0.12507 ,0.21587 ,0.00572 ,0.00147 ,0.00004 ,0.00370 - +,0.39793 ,0.11861 ,0.19205 ,0.00544 ,0.00162 ,0.00020 ,0.00359 - +,0.38144 ,0.11288 ,0.17237 ,0.00526 ,0.00171 ,0.00035 ,0.00353 - +,0.36673 ,0.10763 ,0.15529 ,0.00505 ,0.00174 ,0.00046 ,0.00342 - +,0.35307 ,0.10289 ,0.14070 ,0.00488 ,0.00174 ,0.00058 ,0.00335 - +,0.34038 ,0.09857 ,0.12815 ,0.00472 ,0.00173 ,0.00069 ,0.00330 - +,0.32883 ,0.09458 ,0.11710 ,0.00452 ,0.00172 ,0.00071 ,0.00320 - +,0.31783 ,0.09093 ,0.10752 ,0.00435 ,0.00174 ,0.00070 ,0.00311 - +,0.30758 ,0.08756 ,0.09912 ,0.00420 ,0.00176 ,0.00070 ,0.00302 - +,0.29820 ,0.08432 ,0.09162 ,0.00404 ,0.00172 ,0.00074 ,0.00293 - +,0.28933 ,0.08137 ,0.08496 ,0.00391 ,0.00168 ,0.00077 ,0.00283 - +,0.28082 ,0.07870 ,0.07902 ,0.00382 ,0.00165 ,0.00080 ,0.00271 - +,0.27290 ,0.07616 ,0.07375 ,0.00370 ,0.00162 ,0.00080 ,0.00262 - +,0.26550 ,0.07374 ,0.06906 ,0.00358 ,0.00159 ,0.00080 ,0.00256 - +,0.25853 ,0.07148 ,0.06479 ,0.00346 ,0.00156 ,0.00080 ,0.00250/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),K=1,19)/ - + 0.47552 ,0.14182 ,0.31350 ,0.00452 ,0.00013 ,-0.00003 ,0.00238 - +,0.44681 ,0.13155 ,0.26604 ,0.00442 ,0.00052 ,-0.00002 ,0.00251 - +,0.42189 ,0.12271 ,0.22889 ,0.00435 ,0.00070 ,-0.00003 ,0.00249 - +,0.39992 ,0.11500 ,0.19851 ,0.00414 ,0.00096 ,-0.00002 ,0.00254 - +,0.38054 ,0.10831 ,0.17441 ,0.00391 ,0.00111 ,0.00002 ,0.00253 - +,0.36285 ,0.10241 ,0.15416 ,0.00381 ,0.00117 ,0.00006 ,0.00249 - +,0.34679 ,0.09711 ,0.13742 ,0.00372 ,0.00119 ,0.00020 ,0.00242 - +,0.33221 ,0.09234 ,0.12311 ,0.00351 ,0.00128 ,0.00032 ,0.00238 - +,0.31878 ,0.08800 ,0.11097 ,0.00337 ,0.00129 ,0.00039 ,0.00232 - +,0.30640 ,0.08405 ,0.10055 ,0.00328 ,0.00126 ,0.00043 ,0.00225 - +,0.29506 ,0.08044 ,0.09138 ,0.00315 ,0.00125 ,0.00042 ,0.00221 - +,0.28462 ,0.07711 ,0.08343 ,0.00302 ,0.00124 ,0.00045 ,0.00213 - +,0.27499 ,0.07404 ,0.07651 ,0.00291 ,0.00123 ,0.00049 ,0.00204 - +,0.26590 ,0.07120 ,0.07045 ,0.00279 ,0.00120 ,0.00053 ,0.00197 - +,0.25738 ,0.06857 ,0.06513 ,0.00269 ,0.00118 ,0.00055 ,0.00191 - +,0.24931 ,0.06615 ,0.06043 ,0.00262 ,0.00116 ,0.00055 ,0.00188 - +,0.24174 ,0.06387 ,0.05620 ,0.00256 ,0.00113 ,0.00057 ,0.00183 - +,0.23462 ,0.06173 ,0.05236 ,0.00250 ,0.00109 ,0.00060 ,0.00178 - +,0.22798 ,0.05971 ,0.04894 ,0.00242 ,0.00106 ,0.00061 ,0.00171/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),K=1,19)/ - + 0.43863 ,0.12327 ,0.26068 ,0.00297 ,0.00016 ,0.00005 ,0.00165 - +,0.41024 ,0.11375 ,0.21881 ,0.00286 ,0.00043 ,0.00013 ,0.00176 - +,0.38542 ,0.10568 ,0.18638 ,0.00286 ,0.00065 ,-0.00003 ,0.00182 - +,0.36340 ,0.09875 ,0.16062 ,0.00276 ,0.00079 ,0.00006 ,0.00179 - +,0.34409 ,0.09257 ,0.13979 ,0.00275 ,0.00091 ,0.00001 ,0.00175 - +,0.32710 ,0.08725 ,0.12268 ,0.00254 ,0.00092 ,0.00009 ,0.00177 - +,0.31150 ,0.08249 ,0.10865 ,0.00246 ,0.00088 ,0.00012 ,0.00174 - +,0.29748 ,0.07809 ,0.09674 ,0.00240 ,0.00089 ,0.00021 ,0.00167 - +,0.28460 ,0.07421 ,0.08666 ,0.00234 ,0.00092 ,0.00028 ,0.00161 - +,0.27274 ,0.07075 ,0.07808 ,0.00226 ,0.00094 ,0.00032 ,0.00156 - +,0.26190 ,0.06754 ,0.07068 ,0.00219 ,0.00090 ,0.00037 ,0.00151 - +,0.25188 ,0.06456 ,0.06427 ,0.00211 ,0.00089 ,0.00039 ,0.00148 - +,0.24261 ,0.06183 ,0.05870 ,0.00204 ,0.00089 ,0.00040 ,0.00144 - +,0.23382 ,0.05940 ,0.05385 ,0.00197 ,0.00087 ,0.00039 ,0.00135 - +,0.22578 ,0.05711 ,0.04956 ,0.00188 ,0.00084 ,0.00038 ,0.00128 - +,0.21842 ,0.05491 ,0.04576 ,0.00177 ,0.00080 ,0.00036 ,0.00124 - +,0.21149 ,0.05288 ,0.04240 ,0.00169 ,0.00079 ,0.00036 ,0.00120 - +,0.20496 ,0.05100 ,0.03941 ,0.00164 ,0.00079 ,0.00038 ,0.00117 - +,0.19877 ,0.04925 ,0.03672 ,0.00158 ,0.00079 ,0.00038 ,0.00113/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),K=1,19)/ - + 0.40002 ,0.10618 ,0.21545 ,0.00190 ,0.00014 ,0.00006 ,0.00114 - +,0.37203 ,0.09758 ,0.17905 ,0.00188 ,0.00034 ,0.00003 ,0.00120 - +,0.34785 ,0.09026 ,0.15114 ,0.00189 ,0.00045 ,0.00008 ,0.00125 - +,0.32671 ,0.08393 ,0.12922 ,0.00189 ,0.00053 ,-0.00001 ,0.00118 - +,0.30823 ,0.07848 ,0.11166 ,0.00182 ,0.00059 ,-0.00004 ,0.00116 - +,0.29166 ,0.07371 ,0.09741 ,0.00179 ,0.00058 ,0.00002 ,0.00114 - +,0.27687 ,0.06943 ,0.08567 ,0.00175 ,0.00061 ,0.00011 ,0.00110 - +,0.26356 ,0.06557 ,0.07567 ,0.00164 ,0.00066 ,0.00015 ,0.00111 - +,0.25152 ,0.06210 ,0.06738 ,0.00153 ,0.00064 ,0.00016 ,0.00108 - +,0.24051 ,0.05898 ,0.06042 ,0.00146 ,0.00058 ,0.00015 ,0.00103 - +,0.23025 ,0.05617 ,0.05440 ,0.00144 ,0.00060 ,0.00023 ,0.00098 - +,0.22088 ,0.05359 ,0.04923 ,0.00139 ,0.00061 ,0.00024 ,0.00096 - +,0.21227 ,0.05123 ,0.04476 ,0.00134 ,0.00062 ,0.00025 ,0.00095 - +,0.20406 ,0.04907 ,0.04091 ,0.00132 ,0.00062 ,0.00028 ,0.00092 - +,0.19661 ,0.04706 ,0.03752 ,0.00127 ,0.00061 ,0.00029 ,0.00089 - +,0.18986 ,0.04516 ,0.03452 ,0.00120 ,0.00059 ,0.00027 ,0.00086 - +,0.18336 ,0.04343 ,0.03187 ,0.00116 ,0.00056 ,0.00026 ,0.00082 - +,0.17710 ,0.04185 ,0.02952 ,0.00115 ,0.00053 ,0.00026 ,0.00076 - +,0.17136 ,0.04036 ,0.02741 ,0.00111 ,0.00051 ,0.00025 ,0.00073/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),K=1,19)/ - + 0.36031 ,0.09044 ,0.17629 ,0.00128 ,0.00013 ,0.00003 ,0.00069 - +,0.33313 ,0.08255 ,0.14492 ,0.00131 ,0.00020 ,0.00005 ,0.00074 - +,0.30994 ,0.07604 ,0.12105 ,0.00123 ,0.00031 ,0.00002 ,0.00083 - +,0.28974 ,0.07039 ,0.10263 ,0.00127 ,0.00041 ,-0.00003 ,0.00078 - +,0.27255 ,0.06547 ,0.08782 ,0.00115 ,0.00040 ,-0.00005 ,0.00081 - +,0.25689 ,0.06128 ,0.07601 ,0.00115 ,0.00048 ,0.00001 ,0.00084 - +,0.24290 ,0.05751 ,0.06634 ,0.00113 ,0.00048 ,0.00004 ,0.00080 - +,0.23047 ,0.05421 ,0.05835 ,0.00105 ,0.00049 ,0.00011 ,0.00080 - +,0.21914 ,0.05120 ,0.05164 ,0.00103 ,0.00050 ,0.00014 ,0.00076 - +,0.20876 ,0.04844 ,0.04598 ,0.00103 ,0.00050 ,0.00014 ,0.00072 - +,0.19921 ,0.04598 ,0.04118 ,0.00101 ,0.00050 ,0.00017 ,0.00075 - +,0.19060 ,0.04376 ,0.03714 ,0.00095 ,0.00047 ,0.00018 ,0.00070 - +,0.18275 ,0.04173 ,0.03367 ,0.00088 ,0.00044 ,0.00017 ,0.00063 - +,0.17548 ,0.03982 ,0.03057 ,0.00084 ,0.00046 ,0.00020 ,0.00063 - +,0.16870 ,0.03809 ,0.02790 ,0.00081 ,0.00047 ,0.00020 ,0.00062 - +,0.16230 ,0.03652 ,0.02557 ,0.00078 ,0.00046 ,0.00017 ,0.00058 - +,0.15638 ,0.03506 ,0.02352 ,0.00076 ,0.00044 ,0.00017 ,0.00055 - +,0.15088 ,0.03371 ,0.02170 ,0.00074 ,0.00043 ,0.00019 ,0.00054 - +,0.14577 ,0.03243 ,0.02009 ,0.00071 ,0.00041 ,0.00020 ,0.00053/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),K=1,19)/ - + 0.32078 ,0.07613 ,0.14329 ,0.00084 ,0.00005 ,-0.00002 ,0.00041 - +,0.29500 ,0.06916 ,0.11669 ,0.00089 ,0.00013 ,-0.00004 ,0.00045 - +,0.27308 ,0.06336 ,0.09641 ,0.00090 ,0.00021 ,-0.00008 ,0.00046 - +,0.25438 ,0.05849 ,0.08103 ,0.00085 ,0.00025 ,0.00000 ,0.00051 - +,0.23803 ,0.05425 ,0.06882 ,0.00083 ,0.00025 ,-0.00004 ,0.00050 - +,0.22388 ,0.05054 ,0.05917 ,0.00074 ,0.00026 ,-0.00003 ,0.00053 - +,0.21075 ,0.04730 ,0.05123 ,0.00076 ,0.00030 ,-0.00004 ,0.00053 - +,0.19927 ,0.04442 ,0.04478 ,0.00075 ,0.00031 ,0.00003 ,0.00048 - +,0.18901 ,0.04181 ,0.03942 ,0.00072 ,0.00031 ,0.00007 ,0.00048 - +,0.17970 ,0.03946 ,0.03494 ,0.00067 ,0.00031 ,0.00008 ,0.00049 - +,0.17111 ,0.03739 ,0.03118 ,0.00063 ,0.00031 ,0.00009 ,0.00049 - +,0.16320 ,0.03549 ,0.02795 ,0.00063 ,0.00031 ,0.00011 ,0.00047 - +,0.15597 ,0.03374 ,0.02519 ,0.00065 ,0.00030 ,0.00012 ,0.00044 - +,0.14943 ,0.03214 ,0.02282 ,0.00060 ,0.00028 ,0.00013 ,0.00042 - +,0.14340 ,0.03069 ,0.02076 ,0.00054 ,0.00027 ,0.00013 ,0.00040 - +,0.13781 ,0.02936 ,0.01895 ,0.00047 ,0.00027 ,0.00011 ,0.00038 - +,0.13253 ,0.02813 ,0.01737 ,0.00044 ,0.00028 ,0.00010 ,0.00037 - +,0.12753 ,0.02698 ,0.01597 ,0.00045 ,0.00029 ,0.00011 ,0.00036 - +,0.12292 ,0.02590 ,0.01474 ,0.00045 ,0.00028 ,0.00012 ,0.00035/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),K=1,19)/ - + 0.28175 ,0.06315 ,0.11536 ,0.00055 ,0.00004 ,-0.00003 ,0.00026 - +,0.25773 ,0.05714 ,0.09264 ,0.00058 ,0.00011 ,0.00000 ,0.00030 - +,0.23779 ,0.05208 ,0.07598 ,0.00054 ,0.00013 ,0.00000 ,0.00030 - +,0.22023 ,0.04781 ,0.06321 ,0.00060 ,0.00018 ,-0.00002 ,0.00032 - +,0.20554 ,0.04424 ,0.05326 ,0.00051 ,0.00017 ,-0.00004 ,0.00033 - +,0.19201 ,0.04104 ,0.04548 ,0.00059 ,0.00022 ,-0.00006 ,0.00031 - +,0.18043 ,0.03829 ,0.03914 ,0.00054 ,0.00020 ,-0.00002 ,0.00031 - +,0.17023 ,0.03587 ,0.03399 ,0.00048 ,0.00018 ,0.00001 ,0.00031 - +,0.16089 ,0.03368 ,0.02974 ,0.00046 ,0.00020 ,0.00003 ,0.00032 - +,0.15237 ,0.03171 ,0.02621 ,0.00045 ,0.00022 ,0.00003 ,0.00032 - +,0.14475 ,0.02996 ,0.02326 ,0.00043 ,0.00020 ,0.00005 ,0.00030 - +,0.13772 ,0.02836 ,0.02076 ,0.00042 ,0.00020 ,0.00006 ,0.00027 - +,0.13129 ,0.02689 ,0.01862 ,0.00042 ,0.00020 ,0.00006 ,0.00026 - +,0.12546 ,0.02556 ,0.01677 ,0.00039 ,0.00019 ,0.00005 ,0.00027 - +,0.12011 ,0.02434 ,0.01519 ,0.00036 ,0.00019 ,0.00006 ,0.00027 - +,0.11516 ,0.02320 ,0.01383 ,0.00035 ,0.00021 ,0.00009 ,0.00027 - +,0.11056 ,0.02218 ,0.01263 ,0.00034 ,0.00021 ,0.00011 ,0.00027 - +,0.10626 ,0.02126 ,0.01158 ,0.00032 ,0.00020 ,0.00010 ,0.00026 - +,0.10224 ,0.02039 ,0.01065 ,0.00030 ,0.00019 ,0.00009 ,0.00025/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),K=1,19)/ - + 0.24454 ,0.05173 ,0.09173 ,0.00034 ,-0.00005 ,-0.00007 ,0.00008 - +,0.22257 ,0.04648 ,0.07296 ,0.00037 ,0.00007 ,-0.00003 ,0.00014 - +,0.20381 ,0.04224 ,0.05909 ,0.00041 ,0.00009 ,-0.00006 ,0.00021 - +,0.18848 ,0.03857 ,0.04875 ,0.00033 ,0.00010 ,-0.00007 ,0.00016 - +,0.17453 ,0.03555 ,0.04070 ,0.00037 ,0.00011 ,-0.00007 ,0.00020 - +,0.16321 ,0.03286 ,0.03443 ,0.00025 ,0.00016 ,-0.00005 ,0.00022 - +,0.15259 ,0.03052 ,0.02946 ,0.00034 ,0.00015 ,-0.00001 ,0.00021 - +,0.14337 ,0.02848 ,0.02540 ,0.00033 ,0.00017 ,0.00002 ,0.00023 - +,0.13509 ,0.02665 ,0.02208 ,0.00030 ,0.00017 ,0.00002 ,0.00023 - +,0.12761 ,0.02503 ,0.01934 ,0.00027 ,0.00015 ,0.00001 ,0.00020 - +,0.12086 ,0.02358 ,0.01707 ,0.00025 ,0.00015 ,0.00003 ,0.00019 - +,0.11471 ,0.02225 ,0.01516 ,0.00023 ,0.00014 ,0.00003 ,0.00019 - +,0.10913 ,0.02105 ,0.01354 ,0.00021 ,0.00014 ,0.00003 ,0.00020 - +,0.10398 ,0.01996 ,0.01216 ,0.00021 ,0.00016 ,0.00006 ,0.00019 - +,0.09924 ,0.01896 ,0.01096 ,0.00021 ,0.00017 ,0.00007 ,0.00018 - +,0.09484 ,0.01805 ,0.00993 ,0.00022 ,0.00017 ,0.00007 ,0.00019 - +,0.09083 ,0.01721 ,0.00903 ,0.00021 ,0.00016 ,0.00006 ,0.00019 - +,0.08716 ,0.01644 ,0.00825 ,0.00019 ,0.00015 ,0.00005 ,0.00018 - +,0.08370 ,0.01572 ,0.00756 ,0.00018 ,0.00014 ,0.00005 ,0.00018/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),K=1,19)/ - + 0.20903 ,0.04168 ,0.07197 ,0.00025 ,0.00000 ,-0.00002 ,0.00007 - +,0.18910 ,0.03726 ,0.05652 ,0.00022 ,0.00004 ,-0.00005 ,0.00011 - +,0.17233 ,0.03364 ,0.04539 ,0.00029 ,0.00004 ,-0.00009 ,0.00011 - +,0.15841 ,0.03062 ,0.03699 ,0.00024 ,0.00005 ,-0.00007 ,0.00013 - +,0.14648 ,0.02807 ,0.03068 ,0.00024 ,0.00009 ,-0.00004 ,0.00018 - +,0.13626 ,0.02583 ,0.02573 ,0.00020 ,0.00011 ,-0.00003 ,0.00016 - +,0.12688 ,0.02392 ,0.02182 ,0.00025 ,0.00011 ,-0.00001 ,0.00018 - +,0.11869 ,0.02222 ,0.01869 ,0.00023 ,0.00013 ,0.00001 ,0.00018 - +,0.11156 ,0.02074 ,0.01615 ,0.00018 ,0.00013 ,0.00002 ,0.00017 - +,0.10522 ,0.01942 ,0.01406 ,0.00013 ,0.00012 ,0.00002 ,0.00014 - +,0.09931 ,0.01822 ,0.01235 ,0.00015 ,0.00012 ,0.00003 ,0.00013 - +,0.09391 ,0.01716 ,0.01090 ,0.00015 ,0.00012 ,0.00004 ,0.00013 - +,0.08904 ,0.01621 ,0.00967 ,0.00015 ,0.00012 ,0.00004 ,0.00013 - +,0.08471 ,0.01533 ,0.00865 ,0.00013 ,0.00013 ,0.00005 ,0.00014 - +,0.08071 ,0.01452 ,0.00777 ,0.00012 ,0.00013 ,0.00006 ,0.00014 - +,0.07699 ,0.01379 ,0.00701 ,0.00010 ,0.00012 ,0.00005 ,0.00013 - +,0.07356 ,0.01312 ,0.00636 ,0.00010 ,0.00011 ,0.00005 ,0.00013 - +,0.07039 ,0.01250 ,0.00579 ,0.00009 ,0.00012 ,0.00006 ,0.00014 - +,0.06745 ,0.01193 ,0.00529 ,0.00009 ,0.00012 ,0.00006 ,0.00014/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),K=1,19)/ - + 0.17631 ,0.03314 ,0.05588 ,0.00016 ,-0.00008 ,-0.00011 ,-0.00003 - +,0.15869 ,0.02945 ,0.04334 ,0.00019 ,-0.00001 ,-0.00008 ,0.00003 - +,0.14415 ,0.02645 ,0.03445 ,0.00015 ,0.00002 ,-0.00008 ,0.00005 - +,0.13179 ,0.02399 ,0.02790 ,0.00015 ,0.00001 ,-0.00007 ,0.00006 - +,0.12124 ,0.02187 ,0.02288 ,0.00017 ,0.00006 ,-0.00005 ,0.00009 - +,0.11218 ,0.02011 ,0.01907 ,0.00014 ,0.00003 ,-0.00005 ,0.00005 - +,0.10434 ,0.01851 ,0.01607 ,0.00012 ,0.00007 ,-0.00002 ,0.00009 - +,0.09724 ,0.01715 ,0.01367 ,0.00013 ,0.00006 ,-0.00002 ,0.00008 - +,0.09095 ,0.01596 ,0.01174 ,0.00014 ,0.00007 ,0.00000 ,0.00008 - +,0.08540 ,0.01491 ,0.01017 ,0.00014 ,0.00009 ,0.00002 ,0.00010 - +,0.08050 ,0.01395 ,0.00888 ,0.00010 ,0.00007 ,0.00001 ,0.00009 - +,0.07596 ,0.01310 ,0.00781 ,0.00010 ,0.00007 ,0.00001 ,0.00009 - +,0.07184 ,0.01234 ,0.00691 ,0.00010 ,0.00007 ,0.00002 ,0.00009 - +,0.06814 ,0.01164 ,0.00614 ,0.00010 ,0.00007 ,0.00002 ,0.00008 - +,0.06475 ,0.01101 ,0.00549 ,0.00009 ,0.00007 ,0.00002 ,0.00008 - +,0.06162 ,0.01042 ,0.00494 ,0.00008 ,0.00007 ,0.00003 ,0.00008 - +,0.05873 ,0.00989 ,0.00446 ,0.00008 ,0.00007 ,0.00003 ,0.00008 - +,0.05604 ,0.00941 ,0.00405 ,0.00009 ,0.00006 ,0.00002 ,0.00007 - +,0.05358 ,0.00897 ,0.00369 ,0.00008 ,0.00005 ,0.00002 ,0.00006/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),K=1,19)/ - + 0.14600 ,0.02568 ,0.04254 ,0.00008 ,-0.00001 ,-0.00003 ,0.00002 - +,0.13062 ,0.02277 ,0.03272 ,0.00012 ,0.00000 ,-0.00002 ,0.00002 - +,0.11797 ,0.02038 ,0.02573 ,0.00011 ,0.00003 ,-0.00003 ,0.00003 - +,0.10747 ,0.01839 ,0.02061 ,0.00010 ,0.00001 ,-0.00003 ,0.00002 - +,0.09860 ,0.01671 ,0.01682 ,0.00008 ,0.00003 ,-0.00001 ,0.00006 - +,0.09073 ,0.01530 ,0.01390 ,0.00013 ,0.00004 ,-0.00001 ,0.00005 - +,0.08405 ,0.01409 ,0.01164 ,0.00010 ,0.00003 ,0.00000 ,0.00005 - +,0.07820 ,0.01300 ,0.00984 ,0.00008 ,0.00003 ,0.00000 ,0.00005 - +,0.07299 ,0.01206 ,0.00840 ,0.00008 ,0.00002 ,-0.00001 ,0.00004 - +,0.06834 ,0.01122 ,0.00724 ,0.00007 ,0.00002 ,-0.00001 ,0.00002 - +,0.06419 ,0.01048 ,0.00628 ,0.00006 ,0.00003 ,0.00000 ,0.00004 - +,0.06039 ,0.00982 ,0.00549 ,0.00007 ,0.00003 ,0.00000 ,0.00003 - +,0.05696 ,0.00923 ,0.00484 ,0.00007 ,0.00003 ,0.00000 ,0.00003 - +,0.05389 ,0.00869 ,0.00429 ,0.00007 ,0.00003 ,0.00000 ,0.00004 - +,0.05108 ,0.00820 ,0.00382 ,0.00007 ,0.00003 ,0.00001 ,0.00004 - +,0.04849 ,0.00775 ,0.00342 ,0.00007 ,0.00003 ,0.00000 ,0.00003 - +,0.04614 ,0.00734 ,0.00308 ,0.00006 ,0.00003 ,0.00000 ,0.00003 - +,0.04399 ,0.00697 ,0.00278 ,0.00005 ,0.00003 ,0.00000 ,0.00003 - +,0.04199 ,0.00663 ,0.00252 ,0.00004 ,0.00002 ,0.00000 ,0.00002/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),K=1,19)/ - + 0.09475 ,0.01458 ,0.02338 ,0.00001 ,0.00001 ,0.00001 ,0.00000 - +,0.08369 ,0.01275 ,0.01749 ,0.00002 ,0.00001 ,-0.00001 ,0.00001 - +,0.07467 ,0.01127 ,0.01344 ,0.00007 ,0.00002 ,0.00000 ,0.00002 - +,0.06742 ,0.01007 ,0.01055 ,0.00002 ,0.00002 ,-0.00001 ,0.00002 - +,0.06110 ,0.00909 ,0.00844 ,0.00006 ,0.00001 ,0.00000 ,0.00002 - +,0.05598 ,0.00824 ,0.00685 ,0.00002 ,0.00002 ,0.00000 ,0.00002 - +,0.05144 ,0.00752 ,0.00563 ,0.00002 ,0.00003 ,-0.00001 ,0.00003 - +,0.04743 ,0.00689 ,0.00469 ,0.00002 ,0.00002 ,0.00000 ,0.00003 - +,0.04395 ,0.00635 ,0.00395 ,0.00002 ,0.00002 ,0.00001 ,0.00003 - +,0.04088 ,0.00587 ,0.00336 ,0.00002 ,0.00002 ,0.00001 ,0.00002 - +,0.03810 ,0.00545 ,0.00288 ,0.00002 ,0.00003 ,0.00001 ,0.00003 - +,0.03564 ,0.00507 ,0.00248 ,0.00002 ,0.00002 ,0.00001 ,0.00002 - +,0.03343 ,0.00473 ,0.00216 ,0.00002 ,0.00002 ,0.00001 ,0.00002 - +,0.03142 ,0.00443 ,0.00190 ,0.00002 ,0.00002 ,0.00000 ,0.00001 - +,0.02961 ,0.00416 ,0.00167 ,0.00002 ,0.00002 ,0.00001 ,0.00001 - +,0.02797 ,0.00391 ,0.00148 ,0.00003 ,0.00002 ,0.00001 ,0.00002 - +,0.02647 ,0.00369 ,0.00132 ,0.00003 ,0.00002 ,0.00001 ,0.00002 - +,0.02511 ,0.00349 ,0.00119 ,0.00002 ,0.00002 ,0.00001 ,0.00002 - +,0.02386 ,0.00330 ,0.00107 ,0.00002 ,0.00002 ,0.00001 ,0.00002/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),K=1,19)/ - + 0.05613 ,0.00748 ,0.01178 ,0.00002 ,0.00000 ,-0.00001 ,-0.00001 - +,0.04898 ,0.00646 ,0.00857 ,0.00002 ,0.00000 ,-0.00001 ,0.00000 - +,0.04331 ,0.00565 ,0.00642 ,0.00000 ,-0.00001 ,-0.00001 ,0.00000 - +,0.03867 ,0.00499 ,0.00492 ,0.00000 ,-0.00001 ,-0.00001 ,0.00000 - +,0.03478 ,0.00446 ,0.00385 ,-0.00001 ,0.00001 ,-0.00001 ,0.00000 - +,0.03139 ,0.00401 ,0.00307 ,0.00001 ,0.00000 ,0.00000 ,0.00001 - +,0.02859 ,0.00362 ,0.00248 ,0.00002 ,0.00001 ,-0.00001 ,0.00001 - +,0.02617 ,0.00330 ,0.00203 ,0.00001 ,0.00001 ,-0.00001 ,0.00001 - +,0.02407 ,0.00301 ,0.00168 ,0.00001 ,0.00000 ,0.00000 ,0.00001 - +,0.02222 ,0.00277 ,0.00141 ,0.00000 ,0.00001 ,0.00000 ,0.00001 - +,0.02057 ,0.00255 ,0.00119 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.01912 ,0.00236 ,0.00102 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.01783 ,0.00218 ,0.00087 ,0.00000 ,0.00001 ,0.00000 ,0.00001 - +,0.01665 ,0.00203 ,0.00076 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.01560 ,0.00190 ,0.00066 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.01467 ,0.00178 ,0.00058 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.01381 ,0.00167 ,0.00051 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.01302 ,0.00157 ,0.00046 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.01230 ,0.00148 ,0.00041 ,0.00001 ,0.00001 ,0.00000 ,0.00001/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),K=1,19)/ - + 0.02942 ,0.00332 ,0.00522 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.02533 ,0.00283 ,0.00368 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.02208 ,0.00244 ,0.00268 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01946 ,0.00213 ,0.00201 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01730 ,0.00188 ,0.00154 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01549 ,0.00168 ,0.00120 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01398 ,0.00150 ,0.00095 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01268 ,0.00136 ,0.00076 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01156 ,0.00123 ,0.00062 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01059 ,0.00112 ,0.00051 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00973 ,0.00102 ,0.00043 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00898 ,0.00094 ,0.00036 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00832 ,0.00087 ,0.00030 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00772 ,0.00080 ,0.00026 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00719 ,0.00074 ,0.00022 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00672 ,0.00069 ,0.00020 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00629 ,0.00064 ,0.00017 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00589 ,0.00060 ,0.00015 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00554 ,0.00056 ,0.00013 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),K=1,19)/ - + 0.01301 ,0.00121 ,0.00193 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01101 ,0.00101 ,0.00131 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00944 ,0.00086 ,0.00092 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00820 ,0.00074 ,0.00067 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00719 ,0.00064 ,0.00050 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00637 ,0.00057 ,0.00038 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00568 ,0.00050 ,0.00029 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00510 ,0.00045 ,0.00023 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00460 ,0.00040 ,0.00018 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00417 ,0.00036 ,0.00015 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00381 ,0.00033 ,0.00012 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00348 ,0.00030 ,0.00010 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00319 ,0.00027 ,0.00008 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00294 ,0.00025 ,0.00007 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00272 ,0.00023 ,0.00006 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00252 ,0.00021 ,0.00005 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00234 ,0.00020 ,0.00005 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00218 ,0.00018 ,0.00004 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00203 ,0.00017 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),K=1,19)/ - + 0.00090 ,0.00005 ,0.00009 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00073 ,0.00004 ,0.00005 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00060 ,0.00003 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00050 ,0.00003 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00043 ,0.00002 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00036 ,0.00002 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00031 ,0.00002 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00027 ,0.00001 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00024 ,0.00001 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00021 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00019 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00017 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00015 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00014 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00012 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00011 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00010 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00009 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00008 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - + 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - + 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - + 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - + .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - + .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - + .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - + .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,4,5,0,0,5/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C -C Don't let x be altered if it's out of range!! - XSAVE=X -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(70,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C + F(6,N,M) -C 1=UV 2=DV 3=GLUE 4=(UBAR+DBAR)/2 5=CBAR 7=BBAR 6=SBAR - DO 25 I=1,7 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=1,6 - DO 30 K=1,19 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 50 FORMAT(7F10.5) - DO 40 I=1,7 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,7 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - + + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) -C this SEA is (Ubar+Dbar)/2 - SEA=G(4) - STR=G(6) - CHM=G(5) - GL =G(3) - BOT=G(7) -C -C restore x - X=XSAVE -C - RETURN - END diff --git a/PDF/spdf/strh3em.F b/PDF/spdf/strh3em.F deleted file mode 100644 index cc5991ab92f..00000000000 --- a/PDF/spdf/strh3em.F +++ /dev/null @@ -1,1017 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:29 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:53 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE STRH3EM(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C -C :::::::::::: HARRIMAN MARTIN ROBERTS STIRLING (E) sea=ubar=dbar=2sbar -C -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(7,NX,19),G(7),XX(NX),N0(7) - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,4,5,0,0,5/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ - DATA ((F(I,1,M),I=1,5),F(7,1,M),F(6,1,M),M=1,19) / - . 0.01969, 0.00164,116.16710, 0.06202, 0.04741, 0.00000, 0.05472, - . 0.02025, 0.00179,127.89989, 0.81070, 0.79559, 0.00000, 0.80315, - . 0.02075, 0.00193,140.71202, 1.58952, 1.57395, 0.00000, 1.58174, - . 0.02122, 0.00206,154.54207, 2.32148, 2.30547, 0.00001, 2.31349, - . 0.02166, 0.00219,169.19019, 3.04645, 3.03004, 0.02041, 3.03826, - . 0.02208, 0.00231,184.57181, 3.77047, 3.75367, 0.35216, 3.76208, - . 0.02247, 0.00243,200.68066, 4.48675, 4.46957, 1.20799, 4.47818, - . 0.02285, 0.00255,217.38646, 5.20872, 5.19119, 1.98794, 5.19998, - . 0.02321, 0.00266,234.60693, 5.93866, 5.92079, 2.76578, 5.92974, - . 0.02356, 0.00277,252.27565, 6.67804, 6.65984, 3.55490, 6.66896, - . 0.02389, 0.00288,270.37134, 7.41594, 7.39742, 4.33805, 7.40670, - . 0.02421, 0.00299,288.82153, 8.15665, 8.13781, 5.12156, 8.14725, - . 0.02452, 0.00309,307.57056, 8.91105, 8.89190, 5.91634, 8.90149, - . 0.02482, 0.00320,326.58789, 9.65866, 9.63924, 6.70224, 9.64897, - . 0.02510, 0.00330,345.83203,10.41779,10.39806, 7.49761,10.40794, - . 0.02538, 0.00340,365.27856,11.17783,11.15786, 8.29215,11.16787, - . 0.02566, 0.00349,384.87744,11.94252,11.92227, 9.08967,11.93242, - . 0.02592, 0.00359,404.61719,12.71006,12.68955, 9.88854,12.69983, - . 0.02618, 0.00368,424.46558,13.48144,13.46067,10.68985,13.47108 / - DATA ((F(I,2,M),I=1,5),F(7,2,M),F(6,2,M),M=1,19) / - . 0.02474, 0.00250, 82.26169, 0.06499, 0.04626, 0.00000, 0.05563, - . 0.02542, 0.00271, 90.87798, 0.62406, 0.60471, 0.00000, 0.61439, - . 0.02605, 0.00291,100.17773, 1.17959, 1.15968, 0.00000, 1.16964, - . 0.02663, 0.00310,110.09918, 1.70075, 1.68029, 0.00000, 1.69053, - . 0.02717, 0.00329,120.50507, 2.21571, 2.19475, 0.01447, 2.20525, - . 0.02768, 0.00347,131.33676, 2.72866, 2.70723, 0.24879, 2.71796, - . 0.02817, 0.00364,142.57803, 3.23468, 3.21279, 0.85271, 3.22375, - . 0.02863, 0.00381,154.14714, 3.74301, 3.72069, 1.40129, 3.73187, - . 0.02907, 0.00397,165.99039, 4.25518, 4.23245, 1.94659, 4.24384, - . 0.02950, 0.00413,178.06674, 4.77224, 4.74911, 2.49811, 4.76070, - . 0.02990, 0.00429,190.34813, 5.28635, 5.26283, 3.04354, 5.27461, - . 0.03030, 0.00444,202.78943, 5.80049, 5.77660, 3.58730, 5.78857, - . 0.03068, 0.00459,215.37265, 6.32250, 6.29825, 4.13725, 6.31040, - . 0.03104, 0.00473,228.04665, 6.83767, 6.81307, 4.67888, 6.82540, - . 0.03139, 0.00487,240.81381, 7.35916, 7.33422, 5.22543, 7.34672, - . 0.03174, 0.00501,253.64397, 7.87938, 7.85411, 5.76948, 7.86678, - . 0.03207, 0.00515,266.51099, 8.40105, 8.37546, 6.31383, 8.38828, - . 0.03239, 0.00529,279.40820, 8.92293, 8.89703, 6.85734, 8.91000, - . 0.03271, 0.00542,292.31665, 9.44573, 9.41954, 7.40083, 9.43267 / - DATA ((F(I,3,M),I=1,5),F(7,3,M),F(6,3,M),M=1,19) / - . 0.03097, 0.00380, 58.25577, 0.06833, 0.04432, 0.00000, 0.05633, - . 0.03181, 0.00411, 64.57631, 0.48206, 0.45729, 0.00000, 0.46968, - . 0.03258, 0.00441, 71.32291, 0.87751, 0.85204, 0.00000, 0.86479, - . 0.03329, 0.00468, 78.43808, 1.24834, 1.22221, 0.00000, 1.23529, - . 0.03395, 0.00495, 85.82788, 1.61399, 1.58724, 0.01025, 1.60063, - . 0.03458, 0.00521, 93.45129, 1.97728, 1.94995, 0.17567, 1.96363, - . 0.03518, 0.00545,101.28951, 2.33463, 2.30675, 0.60162, 2.32071, - . 0.03574, 0.00569,109.29231, 2.69238, 2.66398, 0.98723, 2.67820, - . 0.03628, 0.00593,117.42609, 3.05158, 3.02267, 1.36928, 3.03716, - . 0.03680, 0.00616,125.66614, 3.41297, 3.38357, 1.75447, 3.39830, - . 0.03730, 0.00638,133.98412, 3.77091, 3.74106, 2.13403, 3.75602, - . 0.03778, 0.00659,142.35316, 4.12751, 4.09721, 2.51106, 4.11239, - . 0.03824, 0.00680,150.77592, 4.48842, 4.45768, 2.89123, 4.47308, - . 0.03868, 0.00701,159.19644, 4.84306, 4.81191, 3.26411, 4.82752, - . 0.03911, 0.00721,167.63899, 5.20091, 5.16935, 3.63922, 5.18517, - . 0.03953, 0.00740,176.07346, 5.55657, 5.52462, 4.01129, 5.54063, - . 0.03994, 0.00760,184.48874, 5.91199, 5.87967, 4.38233, 5.89587, - . 0.04033, 0.00779,192.88028, 6.26635, 6.23366, 4.75158, 6.25005, - . 0.04071, 0.00797,201.23856, 6.62018, 6.58713, 5.11963, 6.60370 / - DATA ((F(I,4,M),I=1,5),F(7,4,M),F(6,4,M),M=1,19) / - . 0.03526, 0.00486, 47.61009, 0.07051, 0.04275, 0.00000, 0.05663, - . 0.03620, 0.00525, 52.88040, 0.41559, 0.38697, 0.00000, 0.40129, - . 0.03706, 0.00561, 58.47057, 0.73948, 0.71006, 0.00000, 0.72478, - . 0.03786, 0.00596, 64.32683, 1.04332, 1.01316, 0.00000, 1.02826, - . 0.03861, 0.00629, 70.37396, 1.34256, 1.31171, 0.00838, 1.32715, - . 0.03931, 0.00660, 76.57898, 1.63942, 1.60792, 0.14328, 1.62369, - . 0.03998, 0.00691, 82.92308, 1.93093, 1.89881, 0.49047, 1.91489, - . 0.04061, 0.00721, 89.36919, 2.22216, 2.18946, 0.80414, 2.20584, - . 0.04122, 0.00749, 95.89230, 2.51396, 2.48070, 1.11429, 2.49736, - . 0.04180, 0.00777,102.47449, 2.80693, 2.77312, 1.42640, 2.79006, - . 0.04236, 0.00804,109.08884, 3.09645, 3.06213, 1.73329, 3.07933, - . 0.04289, 0.00831,115.71597, 3.38422, 3.34940, 2.03747, 3.36685, - . 0.04341, 0.00856,122.36574, 3.67490, 3.63960, 2.34362, 3.65728, - . 0.04391, 0.00881,128.98306, 3.95980, 3.92404, 2.64316, 3.94196, - . 0.04439, 0.00906,135.59865, 4.24673, 4.21052, 2.94395, 4.22867, - . 0.04486, 0.00930,142.18425, 4.53125, 4.49461, 3.24164, 4.51297, - . 0.04531, 0.00953,148.73381, 4.81501, 4.77795, 3.53792, 4.79652, - . 0.04575, 0.00976,155.24446, 5.09734, 5.05987, 3.83219, 5.07865, - . 0.04618, 0.00999,161.71021, 5.37868, 5.34082, 4.12494, 5.35980 / - DATA ((F(I,5,M),I=1,5),F(7,5,M),F(6,5,M),M=1,19) / - . 0.03862, 0.00579, 41.26035, 0.07218, 0.04141, 0.00000, 0.05680, - . 0.03964, 0.00624, 45.89227, 0.37473, 0.34302, 0.00000, 0.35888, - . 0.04057, 0.00666, 50.78358, 0.65576, 0.62319, 0.00000, 0.63949, - . 0.04144, 0.00707, 55.88326, 0.91954, 0.88617, 0.00000, 0.90287, - . 0.04225, 0.00745, 61.12738, 1.17911, 1.14499, 0.00727, 1.16207, - . 0.04301, 0.00782, 66.48781, 1.43633, 1.40150, 0.12397, 1.41894, - . 0.04373, 0.00817, 71.94595, 1.68861, 1.65311, 0.42425, 1.67089, - . 0.04442, 0.00851, 77.47250, 1.94027, 1.90414, 0.69513, 1.92223, - . 0.04508, 0.00885, 83.04726, 2.19203, 2.15529, 0.96259, 2.17370, - . 0.04571, 0.00917, 88.65604, 2.44442, 2.40709, 1.23137, 2.42579, - . 0.04631, 0.00948, 94.27356, 2.69343, 2.65555, 1.49523, 2.67453, - . 0.04689, 0.00978, 99.88506, 2.94051, 2.90209, 1.75635, 2.92134, - . 0.04745, 0.01008,105.50307, 3.18975, 3.15081, 2.01882, 3.17032, - . 0.04799, 0.01037,111.07504, 3.43357, 3.39414, 2.27516, 3.41390, - . 0.04851, 0.01065,116.63367, 3.67880, 3.63890, 2.53223, 3.65889, - . 0.04902, 0.01093,122.15237, 3.92157, 3.88120, 2.78625, 3.90143, - . 0.04951, 0.01120,127.62817, 4.16333, 4.12251, 3.03871, 4.14297, - . 0.04998, 0.01146,133.05890, 4.40350, 4.36225, 3.28909, 4.38293, - . 0.05044, 0.01172,138.44028, 4.64250, 4.60082, 3.53783, 4.62171 / - DATA ((F(I,6,M),I=1,5),F(7,6,M),F(6,6,M),M=1,19) / - . 0.04142, 0.00662, 36.92542, 0.07356, 0.04024, 0.00000, 0.05690, - . 0.04250, 0.00713, 41.11545, 0.34627, 0.31195, 0.00000, 0.32912, - . 0.04350, 0.00761, 45.52489, 0.59798, 0.56274, 0.00000, 0.58037, - . 0.04442, 0.00806, 50.10533, 0.83437, 0.79827, 0.00000, 0.81634, - . 0.04528, 0.00850, 54.80003, 1.06683, 1.02993, 0.00650, 1.04840, - . 0.04609, 0.00891, 59.58429, 1.29699, 1.25933, 0.11080, 1.27818, - . 0.04686, 0.00931, 64.44011, 1.52249, 1.48412, 0.37908, 1.50333, - . 0.04759, 0.00969, 69.34320, 1.74718, 1.70814, 0.62081, 1.72769, - . 0.04829, 0.01006, 74.27635, 1.97169, 1.93201, 0.85921, 1.95188, - . 0.04896, 0.01042, 79.22853, 2.19648, 2.15618, 1.09853, 2.17637, - . 0.04960, 0.01077, 84.17529, 2.41799, 2.37709, 1.33319, 2.39758, - . 0.05022, 0.01111, 89.10451, 2.63748, 2.59602, 1.56510, 2.61679, - . 0.05081, 0.01144, 94.03094, 2.85864, 2.81664, 1.79799, 2.83769, - . 0.05138, 0.01176, 98.90370, 3.07469, 3.03216, 2.02511, 3.05347, - . 0.05194, 0.01208,103.75691, 3.29174, 3.24870, 2.25263, 3.27027, - . 0.05247, 0.01238,108.56493, 3.50633, 3.46281, 2.47718, 3.48462, - . 0.05299, 0.01268,113.32674, 3.71977, 3.67578, 2.70010, 3.69783, - . 0.05350, 0.01297,118.04047, 3.93158, 3.88713, 2.92093, 3.90941, - . 0.05399, 0.01326,122.70358, 4.14210, 4.09721, 3.14007, 4.11971 / - DATA ((F(I,7,M),I=1,5),F(7,7,M),F(6,7,M),M=1,19) / - . 0.05129, 0.01008, 26.16243, 0.07846, 0.03580, 0.00000, 0.05713, - . 0.05260, 0.01081, 29.22992, 0.27377, 0.22988, 0.00000, 0.25184, - . 0.05380, 0.01150, 32.42279, 0.45252, 0.40750, 0.00000, 0.43002, - . 0.05491, 0.01216, 35.70041, 0.62074, 0.57469, 0.00000, 0.59774, - . 0.05595, 0.01277, 39.02498, 0.78580, 0.73878, 0.00461, 0.76231, - . 0.05692, 0.01336, 42.37987, 0.94873, 0.90080, 0.07814, 0.92479, - . 0.05785, 0.01393, 45.74956, 1.10784, 1.05905, 0.26709, 1.08348, - . 0.05873, 0.01447, 49.12158, 1.26575, 1.21616, 0.43670, 1.24100, - . 0.05957, 0.01500, 52.48636, 1.42291, 1.37256, 0.60333, 1.39778, - . 0.06037, 0.01550, 55.83878, 1.57966, 1.52857, 0.77001, 1.55416, - . 0.06114, 0.01600, 59.15862, 1.73346, 1.68167, 0.93280, 1.70761, - . 0.06189, 0.01647, 62.44046, 1.88521, 1.83275, 1.09303, 1.85903, - . 0.06260, 0.01693, 65.70174, 2.03757, 1.98447, 1.25338, 2.01107, - . 0.06329, 0.01738, 68.89891, 2.18570, 2.13198, 1.40906, 2.15889, - . 0.06396, 0.01782, 72.06584, 2.33398, 2.27968, 1.56449, 2.30688, - . 0.06460, 0.01824, 75.18158, 2.47998, 2.42510, 1.71727, 2.45260, - . 0.06523, 0.01866, 78.24844, 2.62465, 2.56921, 1.86838, 2.59699, - . 0.06583, 0.01906, 81.26595, 2.76766, 2.71170, 2.01754, 2.73974, - . 0.06642, 0.01946, 84.23390, 2.90927, 2.85280, 2.16501, 2.88110 / - DATA ((F(I,8,M),I=1,5),F(7,8,M),F(6,8,M),M=1,19) / - . 0.06312, 0.01532, 18.54797, 0.08471, 0.03014, 0.00000, 0.05743, - . 0.06468, 0.01638, 20.79260, 0.22199, 0.16593, 0.00000, 0.19397, - . 0.06612, 0.01737, 23.10101, 0.34909, 0.29168, 0.00000, 0.32041, - . 0.06745, 0.01830, 25.44026, 0.46898, 0.41033, 0.00000, 0.43968, - . 0.06869, 0.01918, 27.78612, 0.58624, 0.52644, 0.00327, 0.55637, - . 0.06986, 0.02002, 30.12813, 0.70155, 0.64068, 0.05506, 0.67115, - . 0.07096, 0.02081, 32.45386, 0.81373, 0.75185, 0.18799, 0.78283, - . 0.07202, 0.02158, 34.75819, 0.92457, 0.86173, 0.30679, 0.89319, - . 0.07302, 0.02231, 37.03682, 1.03437, 0.97064, 0.42299, 1.00255, - . 0.07399, 0.02302, 39.28835, 1.14341, 1.07882, 0.53878, 1.11116, - . 0.07491, 0.02371, 41.49661, 1.24990, 1.18449, 0.65136, 1.21725, - . 0.07580, 0.02437, 43.66045, 1.35448, 1.28830, 0.76168, 1.32144, - . 0.07665, 0.02501, 45.79718, 1.45905, 1.39213, 0.87168, 1.42565, - . 0.07748, 0.02563, 47.87125, 1.56021, 1.49258, 0.97794, 1.52645, - . 0.07828, 0.02623, 49.91336, 1.66107, 1.59276, 1.08364, 1.62698, - . 0.07905, 0.02681, 51.90663, 1.75993, 1.69097, 1.18710, 1.72552, - . 0.07980, 0.02738, 53.85559, 1.85748, 1.78789, 1.28901, 1.82276, - . 0.08052, 0.02794, 55.76007, 1.95352, 1.88332, 1.38920, 1.91849, - . 0.08123, 0.02848, 57.62129, 2.04824, 1.97746, 1.48789, 2.01292 / - DATA ((F(I,9,M),I=1,5),F(7,9,M),F(6,9,M),M=1,19) / - . 0.07103, 0.01957, 15.17519, 0.08935, 0.02639, 0.00000, 0.05787, - . 0.07276, 0.02087, 17.04501, 0.20014, 0.13553, 0.00000, 0.16785, - . 0.07435, 0.02209, 18.95226, 0.30442, 0.23832, 0.00000, 0.27139, - . 0.07583, 0.02323, 20.86848, 0.40285, 0.33539, 0.00000, 0.36915, - . 0.07720, 0.02431, 22.77579, 0.49888, 0.43016, 0.00267, 0.46455, - . 0.07850, 0.02532, 24.66664, 0.59305, 0.52315, 0.04482, 0.55814, - . 0.07973, 0.02629, 26.53041, 0.68440, 0.61342, 0.15292, 0.64895, - . 0.08090, 0.02722, 28.36516, 0.77439, 0.70237, 0.24923, 0.73843, - . 0.08202, 0.02811, 30.16876, 0.86327, 0.79027, 0.34317, 0.82682, - . 0.08309, 0.02897, 31.94124, 0.95125, 0.87734, 0.43652, 0.91435, - . 0.08411, 0.02979, 33.66881, 1.03693, 0.96214, 0.52703, 0.99960, - . 0.08510, 0.03059, 35.35197, 1.12082, 1.04519, 0.61547, 1.08306, - . 0.08605, 0.03136, 37.00720, 1.20447, 1.12805, 0.70342, 1.16633, - . 0.08696, 0.03210, 38.60333, 1.28513, 1.20795, 0.78813, 1.24660, - . 0.08785, 0.03282, 40.16879, 1.36535, 1.28744, 0.87218, 1.32646, - . 0.08871, 0.03352, 41.68903, 1.44375, 1.36515, 0.95422, 1.40452, - . 0.08954, 0.03420, 43.16875, 1.52090, 1.44163, 1.03483, 1.48133, - . 0.09034, 0.03486, 44.60831, 1.59665, 1.51674, 1.11388, 1.55677, - . 0.09112, 0.03550, 46.00919, 1.67117, 1.59064, 1.19154, 1.63098 / - DATA ((F(I,10,M),I=1,5),F(7,10,M),F(6,10,M),M=1,19) / - . 0.07712, 0.02327, 13.16574, 0.09330, 0.02365, 0.00000, 0.05848, - . 0.07898, 0.02478, 14.80844, 0.18825, 0.11686, 0.00000, 0.15257, - . 0.08069, 0.02619, 16.47285, 0.27894, 0.20596, 0.00000, 0.24248, - . 0.08228, 0.02750, 18.13367, 0.36455, 0.29013, 0.00000, 0.32737, - . 0.08376, 0.02873, 19.77696, 0.44788, 0.37212, 0.00232, 0.41004, - . 0.08516, 0.02990, 21.39713, 0.52940, 0.45240, 0.03870, 0.49094, - . 0.08648, 0.03100, 22.98485, 0.60831, 0.53016, 0.13196, 0.56928, - . 0.08774, 0.03206, 24.54005, 0.68584, 0.60661, 0.21486, 0.64628, - . 0.08895, 0.03308, 26.06174, 0.76223, 0.68198, 0.29551, 0.72216, - . 0.09010, 0.03405, 27.55090, 0.83767, 0.75646, 0.37549, 0.79712, - . 0.09121, 0.03499, 28.99532, 0.91097, 0.82885, 0.45287, 0.86997, - . 0.09227, 0.03589, 30.39627, 0.98255, 0.89957, 0.52831, 0.94112, - . 0.09329, 0.03677, 31.76959, 1.05379, 0.96998, 0.60319, 1.01195, - . 0.09428, 0.03761, 33.08720, 1.12231, 1.03771, 0.67513, 1.08008, - . 0.09523, 0.03842, 34.37549, 1.19032, 1.10497, 0.74639, 1.14772, - . 0.09616, 0.03921, 35.62160, 1.25664, 1.17057, 0.81579, 1.21368, - . 0.09705, 0.03997, 36.83032, 1.32177, 1.23501, 0.88385, 1.27846, - . 0.09792, 0.04072, 38.00208, 1.38558, 1.29817, 0.95045, 1.34195, - . 0.09876, 0.04144, 39.13869, 1.44824, 1.36019, 1.01577, 1.40429 / - DATA ((F(I,11,M),I=1,5),F(7,11,M),F(6,11,M),M=1,19) / - . 0.08212, 0.02662, 11.79638, 0.09731, 0.02205, 0.00000, 0.05968, - . 0.08410, 0.02830, 13.28476, 0.18266, 0.10557, 0.00000, 0.14413, - . 0.08592, 0.02986, 14.78149, 0.26398, 0.18525, 0.00000, 0.22464, - . 0.08761, 0.03132, 16.26578, 0.34071, 0.26048, 0.00000, 0.30062, - . 0.08918, 0.03268, 17.72635, 0.41523, 0.33363, 0.00207, 0.37447, - . 0.09067, 0.03397, 19.15871, 0.48798, 0.40510, 0.03445, 0.44658, - . 0.09208, 0.03519, 20.55453, 0.55828, 0.47422, 0.11742, 0.51629, - . 0.09342, 0.03636, 21.91643, 0.62719, 0.54203, 0.19101, 0.58466, - . 0.09470, 0.03748, 23.24315, 0.69494, 0.60873, 0.26247, 0.65189, - . 0.09593, 0.03855, 24.53601, 0.76170, 0.67450, 0.33318, 0.71816, - . 0.09710, 0.03958, 25.78419, 0.82643, 0.73831, 0.40147, 0.78243, - . 0.09823, 0.04057, 26.99084, 0.88952, 0.80052, 0.46791, 0.84508, - . 0.09932, 0.04152, 28.17056, 0.95219, 0.86235, 0.53375, 0.90733, - . 0.10037, 0.04244, 29.29681, 1.01233, 0.92169, 0.59688, 0.96708, - . 0.10138, 0.04333, 30.39546, 1.07190, 0.98051, 0.65928, 1.02628, - . 0.10236, 0.04419, 31.45509, 1.12988, 1.03776, 0.71994, 1.08389, - . 0.10331, 0.04503, 32.47900, 1.18672, 1.09390, 0.77934, 1.14039, - . 0.10424, 0.04584, 33.46780, 1.24233, 1.14885, 0.83739, 1.19567, - . 0.10513, 0.04662, 34.42484, 1.29684, 1.20272, 0.89422, 1.24986 / - DATA ((F(I,12,M),I=1,5),F(7,12,M),F(6,12,M),M=1,19) / - . 0.09937, 0.04033, 8.40338, 0.11220, 0.01679, 0.00000, 0.06450, - . 0.10178, 0.04265, 9.49333, 0.17239, 0.07500, 0.00000, 0.12371, - . 0.10399, 0.04478, 10.56401, 0.23013, 0.13097, 0.00000, 0.18057, - . 0.10606, 0.04676, 11.60128, 0.28460, 0.18386, 0.00000, 0.23426, - . 0.10798, 0.04860, 12.60207, 0.33713, 0.23494, 0.00146, 0.28607, - . 0.10979, 0.05033, 13.56600, 0.38800, 0.28450, 0.02391, 0.33629, - . 0.11152, 0.05196, 14.48812, 0.43682, 0.33210, 0.08132, 0.38451, - . 0.11315, 0.05351, 15.37353, 0.48430, 0.37845, 0.13186, 0.43143, - . 0.11472, 0.05499, 16.22350, 0.53060, 0.42370, 0.18056, 0.47720, - . 0.11622, 0.05639, 17.04082, 0.57588, 0.46800, 0.22843, 0.52200, - . 0.11765, 0.05774, 17.81773, 0.61948, 0.51067, 0.27435, 0.56514, - . 0.11903, 0.05903, 18.55838, 0.66166, 0.55199, 0.31874, 0.60689, - . 0.12036, 0.06027, 19.27530, 0.70327, 0.59279, 0.36244, 0.64810, - . 0.12164, 0.06145, 19.94875, 0.74292, 0.63167, 0.40406, 0.68737, - . 0.12287, 0.06260, 20.59947, 0.78195, 0.66997, 0.44496, 0.72603, - . 0.12407, 0.06370, 21.21921, 0.81968, 0.70701, 0.48447, 0.76342, - . 0.12522, 0.06476, 21.81142, 0.85643, 0.74311, 0.52293, 0.79985, - . 0.12634, 0.06579, 22.37688, 0.89218, 0.77824, 0.56030, 0.83529, - . 0.12743, 0.06678, 22.91855, 0.92700, 0.81247, 0.59668, 0.86982 / - DATA ((F(I,13,M),I=1,5),F(7,13,M),F(6,13,M),M=1,19) / - . 0.11969, 0.06086, 6.01678, 0.13217, 0.01256, 0.00000, 0.07236, - . 0.12274, 0.06394, 6.80673, 0.17495, 0.05346, 0.00001, 0.11421, - . 0.12554, 0.06674, 7.55903, 0.21566, 0.09253, 0.00001, 0.15412, - . 0.12815, 0.06931, 8.26577, 0.25389, 0.12930, 0.00001, 0.19162, - . 0.13057, 0.07169, 8.93096, 0.29035, 0.16447, 0.00103, 0.22745, - . 0.13287, 0.07390, 9.55610, 0.32530, 0.19826, 0.01635, 0.26182, - . 0.13503, 0.07598, 10.14125, 0.35852, 0.23044, 0.05543, 0.29453, - . 0.13709, 0.07793, 10.69099, 0.39049, 0.26145, 0.08947, 0.32602, - . 0.13904, 0.07978, 11.20920, 0.42135, 0.29144, 0.12198, 0.35644, - . 0.14092, 0.08154, 11.69917, 0.45125, 0.32053, 0.15366, 0.38594, - . 0.14272, 0.08320, 12.15483, 0.47977, 0.34832, 0.18381, 0.41411, - . 0.14444, 0.08478, 12.58193, 0.50712, 0.37498, 0.21270, 0.44111, - . 0.14609, 0.08630, 12.99009, 0.53385, 0.40108, 0.24090, 0.46753, - . 0.14769, 0.08774, 13.36432, 0.55911, 0.42576, 0.26757, 0.49250, - . 0.14922, 0.08912, 13.72178, 0.58377, 0.44988, 0.29358, 0.51690, - . 0.15070, 0.09045, 14.05703, 0.60743, 0.47303, 0.31853, 0.54030, - . 0.15213, 0.09172, 14.37202, 0.63029, 0.49543, 0.34263, 0.56293, - . 0.15352, 0.09295, 14.66762, 0.65235, 0.51705, 0.36588, 0.58477, - . 0.15486, 0.09412, 14.94680, 0.67368, 0.53797, 0.38836, 0.60590 / - DATA ((F(I,14,M),I=1,5),F(7,14,M),F(6,14,M),M=1,19) / - . 0.13360, 0.07717, 4.96637, 0.14572, 0.01044, 0.00000, 0.07808, - . 0.13717, 0.08070, 5.61285, 0.18045, 0.04354, 0.00000, 0.11201, - . 0.14045, 0.08390, 6.21550, 0.21329, 0.07499, 0.00001, 0.14415, - . 0.14348, 0.08683, 6.76943, 0.24395, 0.10448, 0.00001, 0.17424, - . 0.14632, 0.08949, 7.28060, 0.27299, 0.13247, 0.00083, 0.20276, - . 0.14899, 0.09198, 7.75583, 0.30059, 0.15917, 0.01294, 0.22991, - . 0.15149, 0.09428, 8.19121, 0.32666, 0.18444, 0.04382, 0.25559, - . 0.15387, 0.09645, 8.59418, 0.35156, 0.20863, 0.07052, 0.28014, - . 0.15615, 0.09848, 8.96859, 0.37542, 0.23185, 0.09585, 0.30368, - . 0.15832, 0.10041, 9.31812, 0.39836, 0.25423, 0.12037, 0.32635, - . 0.16039, 0.10222, 9.63930, 0.42012, 0.27548, 0.14358, 0.34785, - . 0.16237, 0.10394, 9.93465, 0.44084, 0.29575, 0.16569, 0.36835, - . 0.16427, 0.10558, 10.21377, 0.46097, 0.31547, 0.18716, 0.38828, - . 0.16608, 0.10714, 10.46704, 0.47990, 0.33404, 0.20739, 0.40703, - . 0.16783, 0.10862, 10.70598, 0.49827, 0.35207, 0.22700, 0.42523, - . 0.16952, 0.11004, 10.92593, 0.51577, 0.36928, 0.24569, 0.44259, - . 0.17114, 0.11139, 11.13066, 0.53259, 0.38584, 0.26366, 0.45928, - . 0.17271, 0.11269, 11.32094, 0.54875, 0.40175, 0.28093, 0.47531, - . 0.17422, 0.11393, 11.49819, 0.56428, 0.41707, 0.29754, 0.49074 / - DATA ((F(I,15,M),I=1,5),F(7,15,M),F(6,15,M),M=1,19) / - . 0.14481, 0.09112, 4.34421, 0.15583, 0.00913, 0.00000, 0.08248, - . 0.14886, 0.09496, 4.90003, 0.18562, 0.03763, 0.00000, 0.11164, - . 0.15256, 0.09841, 5.40908, 0.21359, 0.06452, 0.00001, 0.13906, - . 0.15597, 0.10154, 5.86901, 0.23955, 0.08961, 0.00001, 0.16460, - . 0.15917, 0.10438, 6.28708, 0.26398, 0.11328, 0.00071, 0.18866, - . 0.16216, 0.10702, 6.67062, 0.28704, 0.13572, 0.01090, 0.21141, - . 0.16496, 0.10945, 7.01696, 0.30870, 0.15685, 0.03685, 0.23281, - . 0.16762, 0.11173, 7.33347, 0.32926, 0.17696, 0.05916, 0.25315, - . 0.17015, 0.11385, 7.62410, 0.34883, 0.19615, 0.08021, 0.27254, - . 0.17257, 0.11586, 7.89245, 0.36755, 0.21455, 0.10048, 0.29110, - . 0.17486, 0.11774, 8.13579, 0.38522, 0.23194, 0.11959, 0.30862, - . 0.17705, 0.11951, 8.35669, 0.40194, 0.24844, 0.13771, 0.32524, - . 0.17914, 0.12120, 8.56359, 0.41810, 0.26442, 0.15523, 0.34132, - . 0.18114, 0.12280, 8.74839, 0.43323, 0.27940, 0.17166, 0.35637, - . 0.18306, 0.12432, 8.92116, 0.44784, 0.29389, 0.18753, 0.37092, - . 0.18491, 0.12576, 9.07801, 0.46169, 0.30765, 0.20259, 0.38473, - . 0.18669, 0.12713, 9.22233, 0.47495, 0.32084, 0.21702, 0.39795, - . 0.18839, 0.12844, 9.35481, 0.48762, 0.33345, 0.23083, 0.41059, - . 0.19004, 0.12969, 9.47666, 0.49974, 0.34555, 0.24406, 0.42270 / - DATA ((F(I,16,M),I=1,5),F(7,16,M),F(6,16,M),M=1,19) / - . 0.15457, 0.10347, 3.92223, 0.16365, 0.00821, 0.00001, 0.08593, - . 0.15905, 0.10751, 4.41288, 0.18990, 0.03351, 0.00001, 0.11172, - . 0.16313, 0.11112, 4.85546, 0.21438, 0.05725, 0.00001, 0.13583, - . 0.16691, 0.11437, 5.25018, 0.23700, 0.07930, 0.00001, 0.15818, - . 0.17041, 0.11730, 5.60396, 0.25816, 0.10002, 0.00065, 0.17912, - . 0.17368, 0.12003, 5.92422, 0.27802, 0.11952, 0.00952, 0.19880, - . 0.17674, 0.12253, 6.20984, 0.29657, 0.13782, 0.03209, 0.21723, - . 0.17963, 0.12485, 6.46805, 0.31408, 0.15515, 0.05141, 0.23465, - . 0.18238, 0.12701, 6.70247, 0.33067, 0.17160, 0.06954, 0.25118, - . 0.18499, 0.12904, 6.91662, 0.34646, 0.18730, 0.08694, 0.26693, - . 0.18748, 0.13094, 7.10843, 0.36128, 0.20208, 0.10327, 0.28173, - . 0.18983, 0.13272, 7.28127, 0.37525, 0.21606, 0.11872, 0.29571, - . 0.19209, 0.13441, 7.44193, 0.38871, 0.22954, 0.13359, 0.30918, - . 0.19425, 0.13599, 7.58188, 0.40121, 0.24210, 0.14745, 0.32171, - . 0.19632, 0.13750, 7.71188, 0.41325, 0.25420, 0.16081, 0.33378, - . 0.19832, 0.13891, 7.82884, 0.42463, 0.26568, 0.17348, 0.34521, - . 0.20022, 0.14027, 7.93523, 0.43547, 0.27664, 0.18556, 0.35611, - . 0.20204, 0.14156, 8.03169, 0.44577, 0.28708, 0.19707, 0.36648, - . 0.20379, 0.14279, 8.11898, 0.45560, 0.29706, 0.20807, 0.37639 / - DATA ((F(I,17,M),I=1,5),F(7,17,M),F(6,17,M),M=1,19) / - . 0.19468, 0.15140, 2.88332, 0.18428, 0.00575, 0.00000, 0.09502, - . 0.20087, 0.15560, 3.19521, 0.20065, 0.02292, 0.00002, 0.11179, - . 0.20648, 0.15927, 3.46067, 0.21553, 0.03865, 0.00001, 0.12710, - . 0.21152, 0.16249, 3.68406, 0.22897, 0.05300, 0.00001, 0.14101, - . 0.21612, 0.16538, 3.87466, 0.24124, 0.06619, 0.00041, 0.15373, - . 0.22044, 0.16792, 4.03739, 0.25247, 0.07836, 0.00600, 0.16544, - . 0.22443, 0.17023, 4.17579, 0.26274, 0.08958, 0.02013, 0.17618, - . 0.22812, 0.17234, 4.29385, 0.27222, 0.10001, 0.03201, 0.18614, - . 0.23159, 0.17427, 4.39546, 0.28101, 0.10973, 0.04296, 0.19539, - . 0.23485, 0.17605, 4.48373, 0.28920, 0.11885, 0.05332, 0.20404, - . 0.23789, 0.17767, 4.55793, 0.29673, 0.12732, 0.06291, 0.21205, - . 0.24078, 0.17916, 4.62051, 0.30368, 0.13518, 0.07185, 0.21945, - . 0.24353, 0.18054, 4.67605, 0.31024, 0.14264, 0.08034, 0.22647, - . 0.24607, 0.18184, 4.71944, 0.31622, 0.14950, 0.08816, 0.23289, - . 0.24851, 0.18303, 4.75732, 0.32186, 0.15603, 0.09558, 0.23898, - . 0.25085, 0.18412, 4.78784, 0.32707, 0.16212, 0.10251, 0.24463, - . 0.25307, 0.18514, 4.81288, 0.33195, 0.16785, 0.10906, 0.24993, - . 0.25518, 0.18610, 4.83287, 0.33650, 0.17323, 0.11524, 0.25491, - . 0.25720, 0.18699, 4.84841, 0.34075, 0.17831, 0.12106, 0.25957 / - DATA ((F(I,18,M),I=1,5),F(7,18,M),F(6,18,M),M=1,19) / - . 0.26333, 0.21303, 2.14724, 0.18731, 0.00376,-0.00008, 0.09550, - . 0.27129, 0.21594, 2.30769, 0.19498, 0.01487,-0.00011, 0.10488, - . 0.27832, 0.21827, 2.43192, 0.20159, 0.02470,-0.00008, 0.11312, - . 0.28445, 0.22025, 2.52540, 0.20727, 0.03337,-0.00017, 0.12031, - . 0.28986, 0.22191, 2.59691, 0.21223, 0.04112, 0.00014, 0.12665, - . 0.29482, 0.22325, 2.65129, 0.21651, 0.04807, 0.00340, 0.13228, - . 0.29933, 0.22430, 2.69066, 0.22024, 0.05431, 0.01153, 0.13726, - . 0.30337, 0.22524, 2.71857, 0.22351, 0.05996, 0.01824, 0.14170, - . 0.30705, 0.22603, 2.73789, 0.22639, 0.06507, 0.02428, 0.14571, - . 0.31046, 0.22668, 2.75062, 0.22894, 0.06976, 0.02985, 0.14933, - . 0.31362, 0.22716, 2.75623, 0.23113, 0.07407, 0.03492, 0.15257, - . 0.31649, 0.22756, 2.75634, 0.23300, 0.07795, 0.03954, 0.15544, - . 0.31918, 0.22792, 2.75377, 0.23469, 0.08155, 0.04386, 0.15809, - . 0.32161, 0.22816, 2.74597, 0.23610, 0.08476, 0.04780, 0.16040, - . 0.32390, 0.22835, 2.73643, 0.23734, 0.08777, 0.05146, 0.16253, - . 0.32601, 0.22848, 2.72413, 0.23838, 0.09052, 0.05480, 0.16443, - . 0.32800, 0.22853, 2.71000, 0.23928, 0.09306, 0.05791, 0.16614, - . 0.32987, 0.22851, 2.69426, 0.24005, 0.09539, 0.06080, 0.16768, - . 0.33159, 0.22848, 2.67729, 0.24068, 0.09754, 0.06347, 0.16907 / - DATA ((F(I,19,M),I=1,5),F(7,19,M),F(6,19,M),M=1,19) / - . 0.32682, 0.25108, 1.80252, 0.17241, 0.00290, 0.00002, 0.08765, - . 0.33479, 0.25204, 1.88626, 0.17566, 0.01112,-0.00001, 0.09342, - . 0.34170, 0.25253, 1.94279, 0.17825, 0.01823, 0.00005, 0.09825, - . 0.34753, 0.25271, 1.97818, 0.18024, 0.02433, 0.00002, 0.10229, - . 0.35257, 0.25272, 1.99859, 0.18177, 0.02968, 0.00017, 0.10575, - . 0.35694, 0.25252, 2.00846, 0.18296, 0.03432, 0.00241, 0.10866, - . 0.36072, 0.25225, 2.00898, 0.18380, 0.03841, 0.00799, 0.11113, - . 0.36405, 0.25181, 2.00334, 0.18439, 0.04207, 0.01245, 0.11324, - . 0.36705, 0.25123, 1.99317, 0.18477, 0.04533, 0.01644, 0.11506, - . 0.36974, 0.25056, 1.97979, 0.18500, 0.04825, 0.02010, 0.11664, - . 0.37204, 0.24990, 1.96293, 0.18502, 0.05087, 0.02331, 0.11794, - . 0.37413, 0.24916, 1.94367, 0.18491, 0.05316, 0.02621, 0.11905, - . 0.37603, 0.24840, 1.92379, 0.18472, 0.05526, 0.02889, 0.12002, - . 0.37758, 0.24759, 1.90154, 0.18440, 0.05711, 0.03128, 0.12079, - . 0.37903, 0.24677, 1.87920, 0.18402, 0.05879, 0.03347, 0.12144, - . 0.38037, 0.24589, 1.85607, 0.18355, 0.06028, 0.03544, 0.12193, - . 0.38152, 0.24501, 1.83263, 0.18302, 0.06162, 0.03725, 0.12234, - . 0.38251, 0.24413, 1.80896, 0.18244, 0.06285, 0.03893, 0.12266, - . 0.38337, 0.24326, 1.78537, 0.18182, 0.06397, 0.04046, 0.12291 / - DATA ((F(I,20,M),I=1,5),F(7,20,M),F(6,20,M),M=1,19) / - . 0.38521, 0.27498, 1.57483, 0.15180, 0.00233, 0.00003, 0.07710, - . 0.39209, 0.27378, 1.61067, 0.15253, 0.00877, 0.00006, 0.08070, - . 0.39750, 0.27247, 1.62698, 0.15286, 0.01420, 0.00006, 0.08356, - . 0.40205, 0.27084, 1.62888, 0.15289, 0.01872, 0.00008, 0.08582, - . 0.40570, 0.26925, 1.62174, 0.15262, 0.02265, 0.00016, 0.08764, - . 0.40874, 0.26748, 1.60823, 0.15222, 0.02596, 0.00187, 0.08911, - . 0.41126, 0.26573, 1.58941, 0.15157, 0.02888, 0.00586, 0.09029, - . 0.41327, 0.26396, 1.56756, 0.15084, 0.03142, 0.00907, 0.09117, - . 0.41488, 0.26222, 1.54384, 0.15002, 0.03361, 0.01190, 0.09185, - . 0.41619, 0.26051, 1.51909, 0.14914, 0.03552, 0.01446, 0.09238, - . 0.41725, 0.25873, 1.49296, 0.14821, 0.03720, 0.01670, 0.09278, - . 0.41805, 0.25695, 1.46626, 0.14720, 0.03869, 0.01869, 0.09300, - . 0.41871, 0.25521, 1.44012, 0.14619, 0.04003, 0.02050, 0.09315, - . 0.41912, 0.25348, 1.41325, 0.14512, 0.04118, 0.02208, 0.09319, - . 0.41941, 0.25177, 1.38712, 0.14404, 0.04221, 0.02351, 0.09317, - . 0.41956, 0.25005, 1.36114, 0.14292, 0.04310, 0.02480, 0.09307, - . 0.41956, 0.24840, 1.33572, 0.14182, 0.04389, 0.02595, 0.09292, - . 0.41943, 0.24682, 1.31086, 0.14072, 0.04459, 0.02699, 0.09273, - . 0.41924, 0.24521, 1.28659, 0.13963, 0.04520, 0.02793, 0.09248 / - DATA ((F(I,21,M),I=1,5),F(7,21,M),F(6,21,M),M=1,19) / - . 0.43737, 0.28894, 1.39940, 0.13011, 0.00190, 0.00005, 0.06604, - . 0.44204, 0.28570, 1.40269, 0.12941, 0.00700, 0.00004, 0.06825, - . 0.44547, 0.28246, 1.39303, 0.12852, 0.01124, 0.00006, 0.06992, - . 0.44795, 0.27929, 1.37438, 0.12742, 0.01480, 0.00009, 0.07111, - . 0.44957, 0.27626, 1.35067, 0.12624, 0.01773, 0.00018, 0.07199, - . 0.45082, 0.27316, 1.32393, 0.12498, 0.02015, 0.00137, 0.07262, - . 0.45142, 0.27020, 1.29473, 0.12366, 0.02227, 0.00442, 0.07302, - . 0.45172, 0.26723, 1.26473, 0.12233, 0.02407, 0.00684, 0.07324, - . 0.45175, 0.26436, 1.23462, 0.12095, 0.02563, 0.00893, 0.07333, - . 0.45154, 0.26160, 1.20490, 0.11957, 0.02700, 0.01077, 0.07333, - . 0.45102, 0.25891, 1.17522, 0.11819, 0.02815, 0.01235, 0.07321, - . 0.45028, 0.25630, 1.14602, 0.11683, 0.02913, 0.01373, 0.07299, - . 0.44945, 0.25378, 1.11806, 0.11551, 0.03000, 0.01498, 0.07274, - . 0.44851, 0.25123, 1.09030, 0.11417, 0.03070, 0.01609, 0.07243, - . 0.44750, 0.24877, 1.06380, 0.11285, 0.03133, 0.01709, 0.07211, - . 0.44640, 0.24640, 1.03812, 0.11152, 0.03187, 0.01796, 0.07176, - . 0.44517, 0.24411, 1.01336, 0.11023, 0.03235, 0.01873, 0.07135, - . 0.44385, 0.24192, 0.98948, 0.10896, 0.03277, 0.01942, 0.07089, - . 0.44249, 0.23974, 0.96651, 0.10773, 0.03312, 0.02005, 0.07044 / - DATA ((F(I,22,M),I=1,5),F(7,22,M),F(6,22,M),M=1,19) / - . 0.49251, 0.29604, 1.21998, 0.10451, 0.00147, 0.00008, 0.05303, - . 0.49360, 0.29045, 1.19620, 0.10293, 0.00548, 0.00005, 0.05421, - . 0.49354, 0.28535, 1.16590, 0.10129, 0.00871, 0.00005, 0.05502, - . 0.49301, 0.28021, 1.13179, 0.09962, 0.01128, 0.00013, 0.05548, - . 0.49179, 0.27552, 1.09646, 0.09797, 0.01336, 0.00017, 0.05570, - . 0.49033, 0.27095, 1.06102, 0.09627, 0.01514, 0.00106, 0.05577, - . 0.48830, 0.26669, 1.02571, 0.09467, 0.01656, 0.00329, 0.05569, - . 0.48614, 0.26255, 0.99136, 0.09307, 0.01778, 0.00496, 0.05548, - . 0.48385, 0.25857, 0.95828, 0.09149, 0.01882, 0.00640, 0.05520, - . 0.48145, 0.25478, 0.92670, 0.08994, 0.01973, 0.00769, 0.05486, - . 0.47886, 0.25117, 0.89627, 0.08844, 0.02045, 0.00882, 0.05448, - . 0.47624, 0.24767, 0.86710, 0.08697, 0.02104, 0.00976, 0.05407, - . 0.47364, 0.24432, 0.83965, 0.08557, 0.02155, 0.01058, 0.05364, - . 0.47088, 0.24103, 0.81318, 0.08418, 0.02195, 0.01134, 0.05317, - . 0.46810, 0.23793, 0.78823, 0.08284, 0.02231, 0.01199, 0.05270, - . 0.46523, 0.23499, 0.76441, 0.08155, 0.02261, 0.01251, 0.05221, - . 0.46241, 0.23212, 0.74179, 0.08029, 0.02285, 0.01298, 0.05172, - . 0.45964, 0.22930, 0.72027, 0.07906, 0.02305, 0.01340, 0.05122, - . 0.45690, 0.22656, 0.69982, 0.07788, 0.02321, 0.01378, 0.05070 / - DATA ((F(I,23,M),I=1,5),F(7,23,M),F(6,23,M),M=1,19) / - . 0.53565, 0.29457, 1.06752, 0.08205, 0.00127, 0.00014, 0.04173, - . 0.53256, 0.28702, 1.02661, 0.08022, 0.00432, 0.00014, 0.04233, - . 0.52889, 0.28011, 0.98412, 0.07836, 0.00677, 0.00009, 0.04266, - . 0.52481, 0.27360, 0.94166, 0.07661, 0.00871, 0.00014, 0.04268, - . 0.52045, 0.26755, 0.90066, 0.07487, 0.01023, 0.00017, 0.04262, - . 0.51596, 0.26194, 0.86167, 0.07315, 0.01155, 0.00083, 0.04244, - . 0.51124, 0.25668, 0.82432, 0.07157, 0.01251, 0.00251, 0.04207, - . 0.50666, 0.25160, 0.78911, 0.06998, 0.01335, 0.00371, 0.04170, - . 0.50208, 0.24676, 0.75608, 0.06845, 0.01405, 0.00477, 0.04132, - . 0.49751, 0.24222, 0.72520, 0.06699, 0.01463, 0.00569, 0.04090, - . 0.49287, 0.23797, 0.69608, 0.06559, 0.01511, 0.00638, 0.04040, - . 0.48832, 0.23380, 0.66870, 0.06422, 0.01549, 0.00706, 0.03994, - . 0.48392, 0.22983, 0.64325, 0.06291, 0.01582, 0.00768, 0.03950, - . 0.47940, 0.22611, 0.61913, 0.06165, 0.01606, 0.00813, 0.03902, - . 0.47503, 0.22254, 0.59660, 0.06046, 0.01625, 0.00854, 0.03852, - . 0.47074, 0.21907, 0.57532, 0.05933, 0.01640, 0.00890, 0.03800, - . 0.46652, 0.21577, 0.55535, 0.05823, 0.01651, 0.00923, 0.03749, - . 0.46236, 0.21264, 0.53656, 0.05716, 0.01660, 0.00953, 0.03699, - . 0.45829, 0.20962, 0.51886, 0.05614, 0.01665, 0.00979, 0.03650 / - DATA ((F(I,24,M),I=1,5),F(7,24,M),F(6,24,M),M=1,19) / - . 0.56667, 0.28691, 0.93372, 0.06327, 0.00094, 0.00002, 0.03212, - . 0.55919, 0.27778, 0.88238, 0.06147, 0.00339, 0.00001, 0.03244, - . 0.55158, 0.26949, 0.83316, 0.05969, 0.00528, 0.00001, 0.03258, - . 0.54405, 0.26182, 0.78684, 0.05805, 0.00675, 0.00001, 0.03240, - . 0.53662, 0.25472, 0.74383, 0.05641, 0.00795, 0.00006, 0.03223, - . 0.52935, 0.24822, 0.70417, 0.05488, 0.00883, 0.00063, 0.03195, - . 0.52215, 0.24217, 0.66729, 0.05339, 0.00955, 0.00181, 0.03161, - . 0.51517, 0.23642, 0.63320, 0.05198, 0.01015, 0.00279, 0.03119, - . 0.50831, 0.23105, 0.60180, 0.05065, 0.01065, 0.00359, 0.03075, - . 0.50163, 0.22600, 0.57289, 0.04939, 0.01105, 0.00425, 0.03031, - . 0.49515, 0.22120, 0.54601, 0.04818, 0.01132, 0.00480, 0.02987, - . 0.48880, 0.21671, 0.52111, 0.04701, 0.01154, 0.00526, 0.02943, - . 0.48271, 0.21248, 0.49822, 0.04590, 0.01173, 0.00565, 0.02900, - . 0.47677, 0.20831, 0.47692, 0.04485, 0.01191, 0.00595, 0.02849, - . 0.47108, 0.20436, 0.45715, 0.04384, 0.01203, 0.00623, 0.02802, - . 0.46557, 0.20058, 0.43858, 0.04287, 0.01208, 0.00649, 0.02760, - . 0.46017, 0.19701, 0.42125, 0.04193, 0.01213, 0.00669, 0.02717, - . 0.45488, 0.19362, 0.40505, 0.04104, 0.01219, 0.00684, 0.02672, - . 0.44971, 0.19040, 0.38995, 0.04018, 0.01221, 0.00698, 0.02630 / - DATA ((F(I,25,M),I=1,5),F(7,25,M),F(6,25,M),M=1,19) / - . 0.58603, 0.27450, 0.81460, 0.04797, 0.00070,-0.00003, 0.02439, - . 0.57422, 0.26421, 0.75768, 0.04637, 0.00267, 0.00000, 0.02452, - . 0.56283, 0.25493, 0.70575, 0.04484, 0.00412, 0.00013, 0.02455, - . 0.55199, 0.24647, 0.65847, 0.04342, 0.00519, 0.00012, 0.02432, - . 0.54166, 0.23880, 0.61574, 0.04199, 0.00604, 0.00007, 0.02414, - . 0.53174, 0.23162, 0.57734, 0.04073, 0.00669, 0.00046, 0.02381, - . 0.52210, 0.22513, 0.54221, 0.03949, 0.00722, 0.00141, 0.02344, - . 0.51288, 0.21904, 0.51031, 0.03832, 0.00764, 0.00207, 0.02303, - . 0.50416, 0.21328, 0.48142, 0.03720, 0.00797, 0.00264, 0.02262, - . 0.49583, 0.20788, 0.45520, 0.03613, 0.00823, 0.00313, 0.02222, - . 0.48761, 0.20289, 0.43115, 0.03512, 0.00846, 0.00346, 0.02183, - . 0.47981, 0.19809, 0.40900, 0.03417, 0.00861, 0.00379, 0.02144, - . 0.47240, 0.19356, 0.38876, 0.03328, 0.00871, 0.00408, 0.02105, - . 0.46511, 0.18935, 0.37002, 0.03242, 0.00877, 0.00430, 0.02063, - . 0.45817, 0.18536, 0.35284, 0.03161, 0.00882, 0.00449, 0.02024, - . 0.45149, 0.18152, 0.33697, 0.03083, 0.00888, 0.00464, 0.01986, - . 0.44501, 0.17789, 0.32226, 0.03010, 0.00888, 0.00478, 0.01948, - . 0.43873, 0.17445, 0.30861, 0.02941, 0.00885, 0.00491, 0.01911, - . 0.43269, 0.17115, 0.29590, 0.02875, 0.00883, 0.00502, 0.01876 / - DATA ((F(I,26,M),I=1,5),F(7,26,M),F(6,26,M),M=1,19) / - . 0.59421, 0.25900, 0.70797, 0.03584, 0.00053, 0.00007, 0.01821, - . 0.57849, 0.24775, 0.64885, 0.03451, 0.00203, 0.00005, 0.01832, - . 0.56376, 0.23772, 0.59664, 0.03321, 0.00321, 0.00010, 0.01829, - . 0.54985, 0.22883, 0.55044, 0.03205, 0.00402, 0.00004, 0.01807, - . 0.53688, 0.22069, 0.50954, 0.03086, 0.00469, 0.00008, 0.01790, - . 0.52484, 0.21308, 0.47332, 0.02985, 0.00522, 0.00039, 0.01748, - . 0.51319, 0.20631, 0.44097, 0.02883, 0.00557, 0.00115, 0.01719, - . 0.50213, 0.19998, 0.41203, 0.02790, 0.00581, 0.00159, 0.01687, - . 0.49171, 0.19408, 0.38591, 0.02699, 0.00605, 0.00199, 0.01655, - . 0.48183, 0.18860, 0.36237, 0.02612, 0.00625, 0.00237, 0.01623, - . 0.47228, 0.18354, 0.34115, 0.02538, 0.00631, 0.00263, 0.01587, - . 0.46325, 0.17872, 0.32177, 0.02466, 0.00635, 0.00287, 0.01553, - . 0.45471, 0.17419, 0.30419, 0.02397, 0.00639, 0.00307, 0.01521, - . 0.44634, 0.17002, 0.28811, 0.02328, 0.00643, 0.00316, 0.01491, - . 0.43840, 0.16608, 0.27344, 0.02263, 0.00647, 0.00326, 0.01460, - . 0.43079, 0.16232, 0.25995, 0.02200, 0.00651, 0.00338, 0.01428, - . 0.42355, 0.15871, 0.24755, 0.02143, 0.00650, 0.00348, 0.01397, - . 0.41662, 0.15524, 0.23611, 0.02092, 0.00644, 0.00354, 0.01367, - . 0.40999, 0.15194, 0.22556, 0.02039, 0.00642, 0.00360, 0.01338 / - DATA ((F(I,27,M),I=1,5),F(7,27,M),F(6,27,M),M=1,19) / - . 0.59256, 0.24099, 0.61218, 0.02636, 0.00042, 0.00010, 0.01341, - . 0.57335, 0.22916, 0.55331, 0.02533, 0.00154, 0.00013, 0.01350, - . 0.55562, 0.21877, 0.50277, 0.02426, 0.00251, 0.00012, 0.01351, - . 0.53907, 0.20970, 0.45875, 0.02335, 0.00310, 0.00016, 0.01327, - . 0.52385, 0.20133, 0.42063, 0.02240, 0.00367, 0.00005, 0.01312, - . 0.50990, 0.19359, 0.38733, 0.02154, 0.00404, 0.00036, 0.01290, - . 0.49644, 0.18681, 0.35818, 0.02084, 0.00427, 0.00085, 0.01256, - . 0.48402, 0.18042, 0.33210, 0.02006, 0.00451, 0.00121, 0.01230, - . 0.47225, 0.17456, 0.30890, 0.01936, 0.00465, 0.00148, 0.01203, - . 0.46108, 0.16922, 0.28825, 0.01874, 0.00472, 0.00170, 0.01175, - . 0.45042, 0.16431, 0.26967, 0.01811, 0.00482, 0.00195, 0.01147, - . 0.44044, 0.15958, 0.25295, 0.01755, 0.00483, 0.00211, 0.01119, - . 0.43107, 0.15512, 0.23791, 0.01702, 0.00481, 0.00222, 0.01094, - . 0.42209, 0.15090, 0.22429, 0.01648, 0.00488, 0.00230, 0.01069, - . 0.41358, 0.14696, 0.21191, 0.01598, 0.00490, 0.00238, 0.01046, - . 0.40545, 0.14325, 0.20055, 0.01552, 0.00484, 0.00246, 0.01023, - . 0.39767, 0.13974, 0.19020, 0.01511, 0.00478, 0.00251, 0.00998, - . 0.39020, 0.13641, 0.18073, 0.01473, 0.00474, 0.00254, 0.00973, - . 0.38308, 0.13327, 0.17205, 0.01433, 0.00469, 0.00259, 0.00952 / - DATA ((F(I,28,M),I=1,5),F(7,28,M),F(6,28,M),M=1,19) / - . 0.58228, 0.22134, 0.52642, 0.01899, 0.00045, 0.00005, 0.00981, - . 0.55966, 0.20958, 0.46962, 0.01825, 0.00131, 0.00010, 0.00984, - . 0.53960, 0.19895, 0.42165, 0.01748, 0.00200, 0.00002, 0.00980, - . 0.52090, 0.18984, 0.38100, 0.01675, 0.00246, 0.00008, 0.00973, - . 0.50379, 0.18163, 0.34605, 0.01606, 0.00285, 0.00010, 0.00956, - . 0.48833, 0.17405, 0.31610, 0.01549, 0.00306, 0.00029, 0.00926, - . 0.47363, 0.16732, 0.28976, 0.01484, 0.00330, 0.00062, 0.00911, - . 0.45986, 0.16125, 0.26694, 0.01432, 0.00340, 0.00092, 0.00886, - . 0.44710, 0.15554, 0.24673, 0.01380, 0.00349, 0.00114, 0.00864, - . 0.43525, 0.15019, 0.22876, 0.01330, 0.00355, 0.00129, 0.00844, - . 0.42407, 0.14521, 0.21278, 0.01289, 0.00354, 0.00137, 0.00820, - . 0.41342, 0.14068, 0.19858, 0.01245, 0.00354, 0.00147, 0.00801, - . 0.40342, 0.13649, 0.18593, 0.01202, 0.00355, 0.00157, 0.00783, - . 0.39402, 0.13243, 0.17450, 0.01160, 0.00356, 0.00166, 0.00767, - . 0.38513, 0.12867, 0.16416, 0.01121, 0.00357, 0.00173, 0.00749, - . 0.37664, 0.12515, 0.15473, 0.01086, 0.00358, 0.00180, 0.00727, - . 0.36860, 0.12183, 0.14620, 0.01053, 0.00355, 0.00185, 0.00706, - . 0.36097, 0.11868, 0.13846, 0.01022, 0.00351, 0.00189, 0.00688, - . 0.35358, 0.11576, 0.13137, 0.00994, 0.00347, 0.00193, 0.00672 / - DATA ((F(I,29,M),I=1,5),F(7,29,M),F(6,29,M),M=1,19) / - . 0.56425, 0.20104, 0.44970, 0.01354, 0.00035, 0.00014, 0.00699, - . 0.53912, 0.18936, 0.39588, 0.01300, 0.00107, 0.00008, 0.00702, - . 0.51680, 0.17910, 0.35179, 0.01239, 0.00161, 0.00013, 0.00712, - . 0.49656, 0.17007, 0.31450, 0.01192, 0.00188, 0.00012, 0.00699, - . 0.47821, 0.16205, 0.28332, 0.01143, 0.00213, 0.00009, 0.00684, - . 0.46145, 0.15484, 0.25651, 0.01090, 0.00239, 0.00027, 0.00672, - . 0.44595, 0.14828, 0.23354, 0.01044, 0.00255, 0.00051, 0.00657, - . 0.43155, 0.14232, 0.21342, 0.01004, 0.00262, 0.00076, 0.00641, - . 0.41825, 0.13681, 0.19597, 0.00964, 0.00266, 0.00090, 0.00627, - . 0.40590, 0.13173, 0.18078, 0.00927, 0.00269, 0.00098, 0.00611, - . 0.39419, 0.12706, 0.16741, 0.00899, 0.00269, 0.00109, 0.00587, - . 0.38315, 0.12279, 0.15547, 0.00867, 0.00269, 0.00118, 0.00572, - . 0.37286, 0.11885, 0.14482, 0.00835, 0.00269, 0.00124, 0.00559, - . 0.36336, 0.11506, 0.13522, 0.00802, 0.00266, 0.00130, 0.00544, - . 0.35435, 0.11154, 0.12664, 0.00773, 0.00264, 0.00133, 0.00527, - . 0.34570, 0.10825, 0.11895, 0.00748, 0.00265, 0.00135, 0.00509, - . 0.33749, 0.10514, 0.11197, 0.00725, 0.00263, 0.00137, 0.00494, - . 0.32970, 0.10220, 0.10562, 0.00705, 0.00257, 0.00138, 0.00483, - . 0.32231, 0.09944, 0.09987, 0.00684, 0.00253, 0.00140, 0.00474 / - DATA ((F(I,30,M),I=1,5),F(7,30,M),F(6,30,M),M=1,19) / - . 0.53925, 0.18129, 0.38209, 0.00967, 0.00009,-0.00003, 0.00484, - . 0.51252, 0.16974, 0.33223, 0.00921, 0.00067,-0.00012, 0.00498, - . 0.48869, 0.15984, 0.29205, 0.00886, 0.00109,-0.00010, 0.00486, - . 0.46755, 0.15101, 0.25845, 0.00845, 0.00129,-0.00011, 0.00493, - . 0.44830, 0.14335, 0.23081, 0.00803, 0.00158,-0.00008, 0.00485, - . 0.43082, 0.13653, 0.20758, 0.00772, 0.00172, 0.00004, 0.00468, - . 0.41488, 0.13030, 0.18769, 0.00733, 0.00189, 0.00022, 0.00458, - . 0.40020, 0.12457, 0.17050, 0.00705, 0.00188, 0.00041, 0.00449, - . 0.38656, 0.11943, 0.15559, 0.00678, 0.00190, 0.00057, 0.00436, - . 0.37387, 0.11476, 0.14264, 0.00653, 0.00195, 0.00070, 0.00422, - . 0.36198, 0.11043, 0.13139, 0.00631, 0.00197, 0.00078, 0.00411, - . 0.35113, 0.10637, 0.12140, 0.00600, 0.00199, 0.00082, 0.00402, - . 0.34108, 0.10261, 0.11255, 0.00569, 0.00201, 0.00084, 0.00393, - . 0.33130, 0.09918, 0.10475, 0.00553, 0.00198, 0.00087, 0.00380, - . 0.32218, 0.09596, 0.09778, 0.00536, 0.00195, 0.00090, 0.00368, - . 0.31362, 0.09291, 0.09152, 0.00517, 0.00192, 0.00095, 0.00357, - . 0.30549, 0.09005, 0.08581, 0.00500, 0.00189, 0.00097, 0.00347, - . 0.29775, 0.08738, 0.08059, 0.00485, 0.00184, 0.00096, 0.00338, - . 0.29044, 0.08487, 0.07592, 0.00469, 0.00181, 0.00096, 0.00329 / - DATA ((F(I,31,M),I=1,5),F(7,31,M),F(6,31,M),M=1,19) / - . 0.50956, 0.16073, 0.32139, 0.00651, 0.00030, 0.00012, 0.00347, - . 0.48147, 0.14981, 0.27630, 0.00628, 0.00069, 0.00014, 0.00355, - . 0.45674, 0.14051, 0.24001, 0.00601, 0.00093, 0.00014, 0.00355, - . 0.43481, 0.13235, 0.21078, 0.00573, 0.00118, 0.00007, 0.00352, - . 0.41530, 0.12507, 0.18653, 0.00549, 0.00124, 0.00008, 0.00347, - . 0.39793, 0.11861, 0.16646, 0.00520, 0.00137, 0.00016, 0.00334, - . 0.38144, 0.11288, 0.14959, 0.00503, 0.00148, 0.00033, 0.00330, - . 0.36673, 0.10763, 0.13506, 0.00480, 0.00148, 0.00041, 0.00317, - . 0.35307, 0.10289, 0.12255, 0.00460, 0.00146, 0.00046, 0.00307, - . 0.34038, 0.09857, 0.11176, 0.00442, 0.00143, 0.00053, 0.00301, - . 0.32883, 0.09458, 0.10237, 0.00422, 0.00143, 0.00061, 0.00291, - . 0.31783, 0.09093, 0.09410, 0.00408, 0.00147, 0.00068, 0.00284, - . 0.30758, 0.08756, 0.08683, 0.00395, 0.00151, 0.00073, 0.00277, - . 0.29820, 0.08432, 0.08044, 0.00380, 0.00148, 0.00070, 0.00269, - . 0.28933, 0.08137, 0.07477, 0.00367, 0.00144, 0.00069, 0.00260, - . 0.28082, 0.07870, 0.06971, 0.00357, 0.00140, 0.00070, 0.00246, - . 0.27290, 0.07616, 0.06514, 0.00346, 0.00137, 0.00068, 0.00237, - . 0.26550, 0.07374, 0.06100, 0.00334, 0.00134, 0.00064, 0.00232, - . 0.25853, 0.07148, 0.05729, 0.00322, 0.00132, 0.00066, 0.00226 / - DATA ((F(I,32,M),I=1,5),F(7,32,M),F(6,32,M),M=1,19) / - . 0.47552, 0.14182, 0.26875, 0.00449, 0.00010,-0.00001, 0.00235, - . 0.44681, 0.13155, 0.22819, 0.00432, 0.00043,-0.00004, 0.00242, - . 0.42189, 0.12271, 0.19638, 0.00422, 0.00058,-0.00001, 0.00236, - . 0.39992, 0.11500, 0.17102, 0.00398, 0.00081,-0.00006, 0.00238, - . 0.38054, 0.10831, 0.15007, 0.00372, 0.00093,-0.00004, 0.00234, - . 0.36285, 0.10241, 0.13295, 0.00362, 0.00097, 0.00003, 0.00229, - . 0.34679, 0.09711, 0.11855, 0.00352, 0.00099, 0.00020, 0.00222, - . 0.33221, 0.09234, 0.10642, 0.00331, 0.00107, 0.00028, 0.00218, - . 0.31878, 0.08800, 0.09599, 0.00316, 0.00108, 0.00031, 0.00210, - . 0.30640, 0.08405, 0.08702, 0.00306, 0.00104, 0.00032, 0.00203, - . 0.29506, 0.08044, 0.07934, 0.00295, 0.00105, 0.00035, 0.00201, - . 0.28462, 0.07711, 0.07265, 0.00283, 0.00104, 0.00037, 0.00193, - . 0.27499, 0.07404, 0.06678, 0.00271, 0.00103, 0.00039, 0.00185, - . 0.26590, 0.07120, 0.06161, 0.00260, 0.00101, 0.00044, 0.00178, - . 0.25738, 0.06857, 0.05702, 0.00250, 0.00099, 0.00047, 0.00172, - . 0.24931, 0.06615, 0.05292, 0.00242, 0.00096, 0.00045, 0.00167, - . 0.24174, 0.06387, 0.04928, 0.00235, 0.00092, 0.00046, 0.00162, - . 0.23462, 0.06173, 0.04603, 0.00230, 0.00089, 0.00048, 0.00158, - . 0.22798, 0.05971, 0.04311, 0.00224, 0.00087, 0.00049, 0.00153 / - DATA ((F(I,33,M),I=1,5),F(7,33,M),F(6,33,M),M=1,19) / - . 0.43863, 0.12327, 0.22232, 0.00294, 0.00013, 0.00004, 0.00163, - . 0.41024, 0.11375, 0.18686, 0.00279, 0.00035, 0.00008, 0.00168, - . 0.38542, 0.10568, 0.15923, 0.00275, 0.00055, 0.00009, 0.00172, - . 0.36340, 0.09875, 0.13722, 0.00265, 0.00068, 0.00004, 0.00168, - . 0.34409, 0.09257, 0.11959, 0.00258, 0.00074,-0.00001, 0.00158, - . 0.32710, 0.08725, 0.10512, 0.00240, 0.00078, 0.00003, 0.00164, - . 0.31150, 0.08249, 0.09316, 0.00232, 0.00074, 0.00014, 0.00159, - . 0.29748, 0.07809, 0.08303, 0.00225, 0.00074, 0.00019, 0.00152, - . 0.28460, 0.07421, 0.07451, 0.00218, 0.00076, 0.00023, 0.00145, - . 0.27274, 0.07075, 0.06727, 0.00209, 0.00076, 0.00027, 0.00139, - . 0.26190, 0.06754, 0.06100, 0.00201, 0.00072, 0.00027, 0.00133, - . 0.25188, 0.06456, 0.05558, 0.00192, 0.00070, 0.00031, 0.00128, - . 0.24261, 0.06183, 0.05087, 0.00184, 0.00069, 0.00033, 0.00124, - . 0.23382, 0.05940, 0.04669, 0.00180, 0.00069, 0.00031, 0.00117, - . 0.22578, 0.05711, 0.04305, 0.00174, 0.00069, 0.00030, 0.00113, - . 0.21842, 0.05491, 0.03987, 0.00165, 0.00068, 0.00032, 0.00112, - . 0.21149, 0.05288, 0.03702, 0.00157, 0.00068, 0.00034, 0.00109, - . 0.20496, 0.05100, 0.03445, 0.00152, 0.00068, 0.00037, 0.00105, - . 0.19877, 0.04925, 0.03215, 0.00147, 0.00068, 0.00038, 0.00102 / - DATA ((F(I,34,M),I=1,5),F(7,34,M),F(6,34,M),M=1,19) / - . 0.40002, 0.10618, 0.18253, 0.00189, 0.00013, 0.00003, 0.00112, - . 0.37203, 0.09758, 0.15187, 0.00184, 0.00030, 0.00003, 0.00116, - . 0.34785, 0.09026, 0.12830, 0.00180, 0.00036, 0.00006, 0.00117, - . 0.32671, 0.08393, 0.10967, 0.00177, 0.00041, 0.00005, 0.00107, - . 0.30823, 0.07848, 0.09477, 0.00171, 0.00048, 0.00005, 0.00105, - . 0.29166, 0.07371, 0.08260, 0.00168, 0.00047, 0.00004, 0.00104, - . 0.27687, 0.06943, 0.07270, 0.00162, 0.00048, 0.00010, 0.00098, - . 0.26356, 0.06557, 0.06446, 0.00149, 0.00052, 0.00009, 0.00096, - . 0.25152, 0.06210, 0.05751, 0.00141, 0.00051, 0.00011, 0.00095, - . 0.24051, 0.05898, 0.05160, 0.00136, 0.00048, 0.00016, 0.00093, - . 0.23025, 0.05617, 0.04655, 0.00132, 0.00048, 0.00019, 0.00086, - . 0.22088, 0.05359, 0.04223, 0.00127, 0.00049, 0.00021, 0.00084, - . 0.21227, 0.05123, 0.03849, 0.00122, 0.00050, 0.00022, 0.00083, - . 0.20406, 0.04907, 0.03523, 0.00119, 0.00049, 0.00018, 0.00079, - . 0.19661, 0.04706, 0.03236, 0.00114, 0.00048, 0.00017, 0.00075, - . 0.18986, 0.04516, 0.02983, 0.00106, 0.00045, 0.00019, 0.00072, - . 0.18336, 0.04343, 0.02760, 0.00102, 0.00043, 0.00019, 0.00068, - . 0.17710, 0.04185, 0.02562, 0.00101, 0.00040, 0.00017, 0.00063, - . 0.17136, 0.04036, 0.02386, 0.00099, 0.00040, 0.00018, 0.00061 / - DATA ((F(I,35,M),I=1,5),F(7,35,M),F(6,35,M),M=1,19) / - . 0.36031, 0.09044, 0.14833, 0.00126, 0.00012, 0.00003, 0.00067, - . 0.33313, 0.08255, 0.12189, 0.00128, 0.00017, 0.00003, 0.00070, - . 0.30994, 0.07604, 0.10181, 0.00119, 0.00027,-0.00003, 0.00080, - . 0.28974, 0.07039, 0.08623, 0.00119, 0.00033,-0.00003, 0.00070, - . 0.27255, 0.06547, 0.07381, 0.00107, 0.00032,-0.00003, 0.00073, - . 0.25689, 0.06128, 0.06396, 0.00105, 0.00037, 0.00003, 0.00073, - . 0.24290, 0.05751, 0.05592, 0.00104, 0.00039, 0.00009, 0.00071, - . 0.23047, 0.05421, 0.04925, 0.00097, 0.00041, 0.00014, 0.00072, - . 0.21914, 0.05120, 0.04365, 0.00095, 0.00042, 0.00015, 0.00068, - . 0.20876, 0.04844, 0.03893, 0.00095, 0.00041, 0.00014, 0.00063, - . 0.19921, 0.04598, 0.03496, 0.00092, 0.00041, 0.00014, 0.00066, - . 0.19060, 0.04376, 0.03155, 0.00086, 0.00039, 0.00013, 0.00061, - . 0.18275, 0.04173, 0.02861, 0.00081, 0.00036, 0.00013, 0.00055, - . 0.17548, 0.03982, 0.02606, 0.00075, 0.00037, 0.00014, 0.00055, - . 0.16870, 0.03809, 0.02384, 0.00071, 0.00038, 0.00015, 0.00053, - . 0.16230, 0.03652, 0.02191, 0.00069, 0.00037, 0.00016, 0.00049, - . 0.15638, 0.03506, 0.02020, 0.00068, 0.00036, 0.00016, 0.00047, - . 0.15088, 0.03371, 0.01869, 0.00067, 0.00035, 0.00016, 0.00047, - . 0.14577, 0.03243, 0.01735, 0.00064, 0.00035, 0.00017, 0.00047 / - DATA ((F(I,36,M),I=1,5),F(7,36,M),F(6,36,M),M=1,19) / - . 0.32078, 0.07613, 0.11944, 0.00082, 0.00002,-0.00002, 0.00039, - . 0.29500, 0.06916, 0.09707, 0.00085, 0.00009,-0.00004, 0.00041, - . 0.27308, 0.06336, 0.08019, 0.00088, 0.00018,-0.00005, 0.00043, - . 0.25438, 0.05849, 0.06738, 0.00077, 0.00018,-0.00007, 0.00043, - . 0.23803, 0.05425, 0.05723, 0.00077, 0.00020,-0.00005, 0.00045, - . 0.22388, 0.05054, 0.04922, 0.00066, 0.00018,-0.00003, 0.00045, - . 0.21075, 0.04730, 0.04271, 0.00069, 0.00023,-0.00001, 0.00046, - . 0.19927, 0.04442, 0.03739, 0.00067, 0.00023, 0.00005, 0.00040, - . 0.18901, 0.04181, 0.03299, 0.00062, 0.00021, 0.00005, 0.00037, - . 0.17970, 0.03946, 0.02930, 0.00056, 0.00019, 0.00003, 0.00038, - . 0.17111, 0.03739, 0.02617, 0.00053, 0.00021, 0.00008, 0.00039, - . 0.16320, 0.03549, 0.02352, 0.00054, 0.00021, 0.00007, 0.00037, - . 0.15597, 0.03374, 0.02124, 0.00055, 0.00020, 0.00006, 0.00034, - . 0.14943, 0.03214, 0.01926, 0.00052, 0.00020, 0.00009, 0.00034, - . 0.14340, 0.03069, 0.01755, 0.00047, 0.00021, 0.00010, 0.00033, - . 0.13781, 0.02936, 0.01607, 0.00042, 0.00022, 0.00010, 0.00033, - . 0.13253, 0.02813, 0.01477, 0.00039, 0.00023, 0.00010, 0.00032, - . 0.12753, 0.02698, 0.01363, 0.00039, 0.00023, 0.00009, 0.00030, - . 0.12292, 0.02590, 0.01262, 0.00039, 0.00022, 0.00008, 0.00029 / - DATA ((F(I,37,M),I=1,5),F(7,37,M),F(6,37,M),M=1,19) / - . 0.28175, 0.06315, 0.09488, 0.00054, 0.00003,-0.00003, 0.00025, - . 0.25773, 0.05714, 0.07618, 0.00055, 0.00008,-0.00002, 0.00027, - . 0.23779, 0.05208, 0.06242, 0.00052, 0.00011,-0.00003, 0.00028, - . 0.22023, 0.04781, 0.05195, 0.00054, 0.00012,-0.00008, 0.00026, - . 0.20554, 0.04424, 0.04383, 0.00044, 0.00011,-0.00002, 0.00026, - . 0.19201, 0.04104, 0.03738, 0.00054, 0.00017,-0.00004, 0.00026, - . 0.18043, 0.03829, 0.03222, 0.00051, 0.00017,-0.00001, 0.00028, - . 0.17023, 0.03587, 0.02801, 0.00042, 0.00013, 0.00001, 0.00026, - . 0.16089, 0.03368, 0.02454, 0.00039, 0.00013, 0.00002, 0.00025, - . 0.15237, 0.03171, 0.02167, 0.00039, 0.00016, 0.00003, 0.00026, - . 0.14475, 0.02996, 0.01929, 0.00038, 0.00016, 0.00004, 0.00025, - . 0.13772, 0.02836, 0.01726, 0.00037, 0.00014, 0.00003, 0.00022, - . 0.13129, 0.02689, 0.01552, 0.00035, 0.00013, 0.00002, 0.00019, - . 0.12546, 0.02556, 0.01403, 0.00034, 0.00014, 0.00006, 0.00022, - . 0.12011, 0.02434, 0.01275, 0.00032, 0.00015, 0.00007, 0.00023, - . 0.11516, 0.02320, 0.01163, 0.00030, 0.00016, 0.00006, 0.00022, - . 0.11056, 0.02218, 0.01065, 0.00027, 0.00015, 0.00006, 0.00021, - . 0.10626, 0.02126, 0.00979, 0.00026, 0.00014, 0.00006, 0.00020, - . 0.10224, 0.02039, 0.00903, 0.00025, 0.00014, 0.00007, 0.00019 / - DATA ((F(I,38,M),I=1,5),F(7,38,M),F(6,38,M),M=1,19) / - . 0.24454, 0.05173, 0.07442, 0.00033,-0.00006,-0.00009, 0.00007, - . 0.22257, 0.04648, 0.05909, 0.00035, 0.00006,-0.00008, 0.00012, - . 0.20381, 0.04224, 0.04785, 0.00040, 0.00008,-0.00004, 0.00020, - . 0.18848, 0.03857, 0.03941, 0.00031, 0.00008,-0.00008, 0.00013, - . 0.17453, 0.03555, 0.03295, 0.00038, 0.00012,-0.00005, 0.00021, - . 0.16321, 0.03286, 0.02791, 0.00024, 0.00016,-0.00002, 0.00021, - . 0.15259, 0.03052, 0.02388, 0.00028, 0.00009,-0.00004, 0.00015, - . 0.14337, 0.02848, 0.02064, 0.00025, 0.00009,-0.00003, 0.00015, - . 0.13509, 0.02665, 0.01799, 0.00023, 0.00011,-0.00001, 0.00016, - . 0.12761, 0.02503, 0.01580, 0.00024, 0.00012, 0.00001, 0.00017, - . 0.12086, 0.02358, 0.01397, 0.00022, 0.00011, 0.00002, 0.00016, - . 0.11471, 0.02225, 0.01244, 0.00020, 0.00012, 0.00003, 0.00017, - . 0.10913, 0.02105, 0.01113, 0.00019, 0.00012, 0.00004, 0.00018, - . 0.10398, 0.01996, 0.01002, 0.00018, 0.00014, 0.00005, 0.00016, - . 0.09924, 0.01896, 0.00907, 0.00018, 0.00014, 0.00005, 0.00015, - . 0.09484, 0.01805, 0.00825, 0.00019, 0.00013, 0.00005, 0.00015, - . 0.09083, 0.01721, 0.00753, 0.00017, 0.00012, 0.00004, 0.00015, - . 0.08716, 0.01644, 0.00690, 0.00014, 0.00010, 0.00003, 0.00014, - . 0.08370, 0.01572, 0.00634, 0.00014, 0.00010, 0.00004, 0.00014 / - DATA ((F(I,39,M),I=1,5),F(7,39,M),F(6,39,M),M=1,19) / - . 0.20903, 0.04168, 0.05745, 0.00023,-0.00001,-0.00002, 0.00006, - . 0.18910, 0.03726, 0.04501, 0.00019, 0.00001,-0.00009, 0.00008, - . 0.17233, 0.03364, 0.03606, 0.00028, 0.00003,-0.00005, 0.00010, - . 0.15841, 0.03062, 0.02945, 0.00021, 0.00002,-0.00007, 0.00010, - . 0.14648, 0.02807, 0.02442, 0.00019, 0.00004,-0.00006, 0.00013, - . 0.13626, 0.02583, 0.02051, 0.00015, 0.00006,-0.00007, 0.00011, - . 0.12688, 0.02392, 0.01743, 0.00019, 0.00005, 0.00000, 0.00012, - . 0.11869, 0.02222, 0.01495, 0.00019, 0.00009, 0.00001, 0.00014, - . 0.11156, 0.02074, 0.01296, 0.00015, 0.00010, 0.00002, 0.00014, - . 0.10522, 0.01942, 0.01132, 0.00010, 0.00009, 0.00002, 0.00012, - . 0.09931, 0.01822, 0.00996, 0.00012, 0.00009, 0.00003, 0.00011, - . 0.09391, 0.01716, 0.00882, 0.00013, 0.00010, 0.00004, 0.00011, - . 0.08904, 0.01621, 0.00786, 0.00014, 0.00010, 0.00005, 0.00012, - . 0.08471, 0.01533, 0.00704, 0.00011, 0.00010, 0.00005, 0.00012, - . 0.08071, 0.01452, 0.00635, 0.00009, 0.00010, 0.00006, 0.00012, - . 0.07699, 0.01379, 0.00574, 0.00009, 0.00011, 0.00006, 0.00012, - . 0.07356, 0.01312, 0.00523, 0.00008, 0.00010, 0.00006, 0.00012, - . 0.07039, 0.01250, 0.00478, 0.00006, 0.00009, 0.00005, 0.00012, - . 0.06745, 0.01193, 0.00438, 0.00005, 0.00009, 0.00004, 0.00011 / - DATA ((F(I,40,M),I=1,5),F(7,40,M),F(6,40,M),M=1,19) / - . 0.17631, 0.03314, 0.04389, 0.00016,-0.00008,-0.00010,-0.00003, - . 0.15869, 0.02945, 0.03396, 0.00017,-0.00003,-0.00009, 0.00001, - . 0.14415, 0.02645, 0.02688, 0.00013, 0.00000,-0.00007, 0.00003, - . 0.13179, 0.02399, 0.02174, 0.00014, 0.00000,-0.00007, 0.00005, - . 0.12124, 0.02187, 0.01789, 0.00015, 0.00004,-0.00003, 0.00007, - . 0.11218, 0.02011, 0.01494, 0.00014, 0.00002,-0.00005, 0.00005, - . 0.10434, 0.01851, 0.01260, 0.00009, 0.00004,-0.00004, 0.00007, - . 0.09724, 0.01715, 0.01075, 0.00011, 0.00004,-0.00002, 0.00006, - . 0.09095, 0.01596, 0.00926, 0.00011, 0.00004,-0.00001, 0.00005, - . 0.08540, 0.01491, 0.00804, 0.00011, 0.00006,-0.00001, 0.00006, - . 0.08050, 0.01395, 0.00704, 0.00008, 0.00005, 0.00000, 0.00007, - . 0.07596, 0.01310, 0.00620, 0.00008, 0.00004, 0.00001, 0.00007, - . 0.07184, 0.01234, 0.00550, 0.00007, 0.00005, 0.00000, 0.00006, - . 0.06814, 0.01164, 0.00492, 0.00008, 0.00005, 0.00001, 0.00006, - . 0.06475, 0.01101, 0.00442, 0.00007, 0.00005, 0.00001, 0.00006, - . 0.06162, 0.01042, 0.00399, 0.00006, 0.00005, 0.00001, 0.00006, - . 0.05873, 0.00989, 0.00362, 0.00006, 0.00005, 0.00001, 0.00006, - . 0.05604, 0.00941, 0.00330, 0.00007, 0.00004, 0.00002, 0.00005, - . 0.05358, 0.00897, 0.00302, 0.00007, 0.00004, 0.00002, 0.00005 / - DATA ((F(I,41,M),I=1,5),F(7,41,M),F(6,41,M),M=1,19) / - . 0.14600, 0.02568, 0.03269, 0.00008,-0.00001,-0.00002, 0.00002, - . 0.13062, 0.02277, 0.02506, 0.00011,-0.00001,-0.00002, 0.00000, - . 0.11797, 0.02038, 0.01970, 0.00008, 0.00001,-0.00005, 0.00000, - . 0.10747, 0.01839, 0.01580, 0.00010, 0.00002, 0.00000, 0.00003, - . 0.09860, 0.01671, 0.01289, 0.00007, 0.00001,-0.00002, 0.00005, - . 0.09073, 0.01530, 0.01067, 0.00011, 0.00002,-0.00001, 0.00004, - . 0.08405, 0.01409, 0.00895, 0.00010, 0.00003, 0.00001, 0.00005, - . 0.07820, 0.01300, 0.00759, 0.00008, 0.00003, 0.00000, 0.00005, - . 0.07299, 0.01206, 0.00650, 0.00008, 0.00003, 0.00000, 0.00004, - . 0.06834, 0.01122, 0.00561, 0.00008, 0.00003, 0.00001, 0.00003, - . 0.06419, 0.01048, 0.00489, 0.00006, 0.00003, 0.00000, 0.00004, - . 0.06039, 0.00982, 0.00430, 0.00006, 0.00003, 0.00000, 0.00003, - . 0.05696, 0.00923, 0.00379, 0.00006, 0.00002,-0.00001, 0.00002, - . 0.05389, 0.00869, 0.00338, 0.00005, 0.00001,-0.00001, 0.00001, - . 0.05108, 0.00820, 0.00302, 0.00005, 0.00000,-0.00001, 0.00001, - . 0.04849, 0.00775, 0.00272, 0.00005, 0.00001, 0.00000, 0.00001, - . 0.04614, 0.00734, 0.00246, 0.00005, 0.00001, 0.00000, 0.00001, - . 0.04399, 0.00697, 0.00223, 0.00004, 0.00002, 0.00000, 0.00002, - . 0.04199, 0.00663, 0.00204, 0.00004, 0.00002, 0.00000, 0.00002 / - DATA ((F(I,42,M),I=1,5),F(7,42,M),F(6,42,M),M=1,19) / - . 0.09475, 0.01458, 0.01709, 0.00001, 0.00001, 0.00000, 0.00000, - . 0.08369, 0.01275, 0.01275, 0.00002, 0.00001,-0.00002, 0.00001, - . 0.07467, 0.01127, 0.00978, 0.00005, 0.00001,-0.00002, 0.00001, - . 0.06742, 0.01007, 0.00768, 0.00002, 0.00002, 0.00000, 0.00002, - . 0.06110, 0.00909, 0.00615, 0.00006, 0.00001, 0.00000, 0.00002, - . 0.05598, 0.00824, 0.00500, 0.00002, 0.00002, 0.00001, 0.00002, - . 0.05144, 0.00752, 0.00413, 0.00001, 0.00002, 0.00001, 0.00002, - . 0.04743, 0.00689, 0.00345, 0.00002, 0.00002, 0.00001, 0.00002, - . 0.04395, 0.00635, 0.00292, 0.00002, 0.00002, 0.00000, 0.00002, - . 0.04088, 0.00587, 0.00249, 0.00001, 0.00002, 0.00000, 0.00002, - . 0.03810, 0.00545, 0.00215, 0.00001, 0.00002, 0.00000, 0.00002, - . 0.03564, 0.00507, 0.00186, 0.00001, 0.00002, 0.00001, 0.00002, - . 0.03343, 0.00473, 0.00163, 0.00001, 0.00002, 0.00001, 0.00001, - . 0.03142, 0.00443, 0.00144, 0.00002, 0.00002, 0.00001, 0.00001, - . 0.02961, 0.00416, 0.00128, 0.00002, 0.00001, 0.00001, 0.00001, - . 0.02797, 0.00391, 0.00114, 0.00002, 0.00001, 0.00001, 0.00001, - . 0.02647, 0.00369, 0.00102, 0.00002, 0.00001, 0.00001, 0.00001, - . 0.02511, 0.00349, 0.00092, 0.00001, 0.00001, 0.00001, 0.00002, - . 0.02386, 0.00330, 0.00084, 0.00001, 0.00001, 0.00001, 0.00001 / - DATA ((F(I,43,M),I=1,5),F(7,43,M),F(6,43,M),M=1,19) / - . 0.05613, 0.00748, 0.00807, 0.00003, 0.00000,-0.00001, 0.00000, - . 0.04898, 0.00646, 0.00585, 0.00001, 0.00000,-0.00002,-0.00001, - . 0.04331, 0.00565, 0.00439, 0.00000,-0.00001,-0.00002,-0.00001, - . 0.03867, 0.00499, 0.00337, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.03478, 0.00446, 0.00264,-0.00001, 0.00000,-0.00001, 0.00000, - . 0.03139, 0.00401, 0.00211, 0.00001, 0.00001, 0.00000, 0.00001, - . 0.02859, 0.00362, 0.00171, 0.00001, 0.00001, 0.00000, 0.00000, - . 0.02617, 0.00330, 0.00141, 0.00001, 0.00000, 0.00000, 0.00000, - . 0.02407, 0.00301, 0.00118, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.02222, 0.00277, 0.00099, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.02057, 0.00255, 0.00084, 0.00001, 0.00000, 0.00000, 0.00001, - . 0.01912, 0.00236, 0.00072, 0.00000, 0.00001, 0.00000, 0.00001, - . 0.01783, 0.00218, 0.00063, 0.00000, 0.00001, 0.00000, 0.00001, - . 0.01665, 0.00203, 0.00055, 0.00001, 0.00001, 0.00000, 0.00000, - . 0.01560, 0.00190, 0.00048, 0.00001, 0.00000, 0.00000, 0.00000, - . 0.01467, 0.00178, 0.00043, 0.00001, 0.00001, 0.00000, 0.00001, - . 0.01381, 0.00167, 0.00038, 0.00000, 0.00001, 0.00000, 0.00001, - . 0.01302, 0.00157, 0.00034, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.01230, 0.00148, 0.00031, 0.00000, 0.00000, 0.00000, 0.00000 / - DATA ((F(I,44,M),I=1,5),F(7,44,M),F(6,44,M),M=1,19) / - . 0.02942, 0.00332, 0.00329, 0.00000, 0.00000,-0.00001, 0.00000, - . 0.02533, 0.00283, 0.00232, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.02208, 0.00244, 0.00169, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.01946, 0.00213, 0.00127, 0.00001, 0.00000, 0.00000, 0.00000, - . 0.01730, 0.00188, 0.00097, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.01549, 0.00168, 0.00076, 0.00001, 0.00000, 0.00000, 0.00000, - . 0.01398, 0.00150, 0.00061, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.01268, 0.00136, 0.00049, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.01156, 0.00123, 0.00040, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.01059, 0.00112, 0.00034, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00973, 0.00102, 0.00028, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00898, 0.00094, 0.00024, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00832, 0.00087, 0.00021, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00772, 0.00080, 0.00018, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00719, 0.00074, 0.00016, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00672, 0.00069, 0.00014, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00629, 0.00064, 0.00012, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00589, 0.00060, 0.00011, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00554, 0.00056, 0.00010, 0.00000, 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,M),I=1,5),F(7,45,M),F(6,45,M),M=1,19) / - . 0.01301, 0.00121, 0.00109, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.01101, 0.00101, 0.00074, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00944, 0.00086, 0.00052, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00820, 0.00074, 0.00038, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00719, 0.00064, 0.00028, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00637, 0.00057, 0.00022, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00568, 0.00050, 0.00017, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00510, 0.00045, 0.00014, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00460, 0.00040, 0.00011, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00417, 0.00036, 0.00009, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00381, 0.00033, 0.00007, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00348, 0.00030, 0.00006, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00319, 0.00027, 0.00005, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00294, 0.00025, 0.00005, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00272, 0.00023, 0.00004, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00252, 0.00021, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00234, 0.00020, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00218, 0.00018, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00203, 0.00017, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,M),I=1,5),F(7,46,M),F(6,46,M),M=1,19) / - . 0.00090, 0.00005, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00073, 0.00004, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00060, 0.00003, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00050, 0.00003, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00043, 0.00002, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00036, 0.00002, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00031, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00027, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00024, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00021, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00019, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00017, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00015, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00014, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00010, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000 / - -C -C don't let x be altered if it's out of range!! -C - XSAVE=X -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C 1=UV 2=DV 3=GLUE 4=(UBAR+DBAR)/2 5=CBAR 7=BBAR 6=SBAR - DO 25 I=1,7 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=1,6 - DO 30 K=1,19 - 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) - DO 40 I=1,7 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,7 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) -C -C this sea is (ubar+dbar)/2 -C - SEA=G(4) - STR=G(6) - CHM=G(5) - GL =G(3) - BOT=G(7) -C -C restore x -C - X=XSAVE -C - RETURN - END diff --git a/PDF/spdf/strh3ep.F b/PDF/spdf/strh3ep.F deleted file mode 100644 index db67b5215e3..00000000000 --- a/PDF/spdf/strh3ep.F +++ /dev/null @@ -1,1018 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:31 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:55 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C -C----------------------------------------------------------------------- - SUBROUTINE STRH3EP(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C -C :::::::::::: HARRIMAN MARTIN ROBERTS STIRLING (E) sea=ubar=dbar=2sbar -C -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(7,NX,19),G(7),XX(NX),N0(7) - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,4,5,0,0,5/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ - DATA ((F(I,1,M),I=1,5),F(7,1,M),F(6,1,M),M=1,19) / - . 0.01969, 0.00164, 0.09195, 0.01912, 0.00451, 0.00000, 0.01181, - . 0.02025, 0.00179, 1.80084, 0.04394, 0.02883, 0.00000, 0.03639, - . 0.02075, 0.00193, 4.19046, 0.08673, 0.07115, 0.00000, 0.07895, - . 0.02122, 0.00206, 7.28293, 0.14772, 0.13172, 0.00000, 0.13973, - . 0.02166, 0.00219, 11.13947, 0.22748, 0.21106, 0.00249, 0.21928, - . 0.02208, 0.00231, 15.74975, 0.32609, 0.30929, 0.04857, 0.31770, - . 0.02247, 0.00243, 21.02483, 0.44215, 0.42497, 0.17603, 0.43357, - . 0.02285, 0.00255, 26.99445, 0.57644, 0.55891, 0.31205, 0.56769, - . 0.02321, 0.00266, 33.64830, 0.72906, 0.71118, 0.46562, 0.72014, - . 0.02356, 0.00277, 40.98059, 0.90018, 0.88197, 0.63832, 0.89109, - . 0.02389, 0.00288, 48.83829, 1.08661, 1.06809, 0.82601, 1.07737, - . 0.02421, 0.00299, 57.21460, 1.28838, 1.26954, 1.02898, 1.27898, - . 0.02452, 0.00309, 66.23915, 1.50867, 1.48954, 1.25043, 1.49913, - . 0.02482, 0.00320, 75.57774, 1.73989, 1.72047, 1.48274, 1.73021, - . 0.02510, 0.00330, 85.48186, 1.98809, 1.96839, 1.73197, 1.97826, - . 0.02538, 0.00340, 95.75615, 2.24880, 2.22882, 1.99366, 2.23884, - . 0.02566, 0.00349,106.43900, 2.52304, 2.50280, 2.26883, 2.51295, - . 0.02592, 0.00359,117.48085, 2.80970, 2.78920, 2.55638, 2.79948, - . 0.02618, 0.00368,128.87819, 3.10878, 3.08803, 2.85631, 3.09843 / - DATA ((F(I,2,M),I=1,5),F(7,2,M),F(6,2,M),M=1,19) / - . 0.02474, 0.00250, 0.11060, 0.02372, 0.00499, 0.00000, 0.01435, - . 0.02542, 0.00271, 1.73254, 0.04940, 0.03005, 0.00000, 0.03973, - . 0.02605, 0.00291, 3.89445, 0.09070, 0.07078, 0.00000, 0.08075, - . 0.02663, 0.00310, 6.60474, 0.14701, 0.12656, 0.00000, 0.13679, - . 0.02717, 0.00329, 9.90134, 0.21834, 0.19738, 0.00220, 0.20787, - . 0.02768, 0.00347, 13.76108, 0.30443, 0.28300, 0.04204, 0.29373, - . 0.02817, 0.00364, 18.09773, 0.40388, 0.38199, 0.15130, 0.39295, - . 0.02863, 0.00381, 22.92850, 0.51712, 0.49480, 0.26591, 0.50598, - . 0.02907, 0.00397, 28.23746, 0.64402, 0.62128, 0.39349, 0.63267, - . 0.02950, 0.00413, 34.01329, 0.78454, 0.76140, 0.53526, 0.77299, - . 0.02990, 0.00429, 40.12871, 0.93601, 0.91248, 0.68770, 0.92427, - . 0.03030, 0.00444, 46.57640, 1.09831, 1.07441, 0.85093, 1.08639, - . 0.03068, 0.00459, 53.45575, 1.27387, 1.24961, 1.02739, 1.26177, - . 0.03104, 0.00473, 60.50339, 1.45662, 1.43202, 1.21098, 1.44435, - . 0.03139, 0.00487, 67.91449, 1.65123, 1.62629, 1.40639, 1.63879, - . 0.03174, 0.00501, 75.53748, 1.85416, 1.82889, 1.61007, 1.84156, - . 0.03207, 0.00515, 83.40164, 2.06614, 2.04055, 1.82277, 2.05338, - . 0.03239, 0.00529, 91.46950, 2.28628, 2.26039, 2.04360, 2.27337, - . 0.03271, 0.00542, 99.73819, 2.51453, 2.48833, 2.27250, 2.50147 / - DATA ((F(I,3,M),I=1,5),F(7,3,M),F(6,3,M),M=1,19) / - . 0.03097, 0.00380, 0.13304, 0.02943, 0.00542, 0.00000, 0.01743, - . 0.03181, 0.00411, 1.66697, 0.05564, 0.03087, 0.00000, 0.04326, - . 0.03258, 0.00441, 3.61905, 0.09508, 0.06960, 0.00000, 0.08235, - . 0.03329, 0.00468, 5.98881, 0.14664, 0.12051, 0.00000, 0.13359, - . 0.03395, 0.00495, 8.79911, 0.21001, 0.18327, 0.00194, 0.19666, - . 0.03458, 0.00521, 12.02071, 0.28474, 0.25742, 0.03617, 0.27110, - . 0.03518, 0.00545, 15.57407, 0.36954, 0.34166, 0.12932, 0.35562, - . 0.03574, 0.00569, 19.46941, 0.46458, 0.43618, 0.22540, 0.45041, - . 0.03628, 0.00593, 23.68933, 0.56964, 0.54072, 0.33090, 0.55521, - . 0.03680, 0.00616, 28.22121, 0.68455, 0.65515, 0.44676, 0.66988, - . 0.03730, 0.00638, 32.96075, 0.80711, 0.77725, 0.57003, 0.79221, - . 0.03778, 0.00659, 37.90230, 0.93715, 0.90684, 0.70076, 0.92202, - . 0.03824, 0.00680, 43.12274, 1.07650, 1.04576, 0.84077, 1.06116, - . 0.03868, 0.00701, 48.41628, 1.22038, 1.18923, 0.98526, 1.20484, - . 0.03911, 0.00721, 53.93500, 1.37238, 1.34082, 1.13784, 1.35664, - . 0.03953, 0.00740, 59.56230, 1.52971, 1.49776, 1.29573, 1.51378, - . 0.03994, 0.00760, 65.32150, 1.69292, 1.66059, 1.45946, 1.67680, - . 0.04033, 0.00779, 71.18483, 1.86131, 1.82861, 1.62834, 1.84500, - . 0.04071, 0.00797, 77.15089, 2.03481, 2.00175, 1.80231, 2.01832 / - DATA ((F(I,4,M),I=1,5),F(7,4,M),F(6,4,M),M=1,19) / - . 0.03526, 0.00486, 0.14825, 0.03340, 0.00564, 0.00000, 0.01952, - . 0.03620, 0.00525, 1.62987, 0.05971, 0.03109, 0.00000, 0.04541, - . 0.03706, 0.00561, 3.46685, 0.09788, 0.06847, 0.00000, 0.08319, - . 0.03786, 0.00596, 5.65480, 0.14665, 0.11650, 0.00000, 0.13159, - . 0.03861, 0.00629, 8.21079, 0.20558, 0.17473, 0.00179, 0.19017, - . 0.03931, 0.00660, 11.10445, 0.27417, 0.24267, 0.03301, 0.25844, - . 0.03998, 0.00691, 14.26122, 0.35121, 0.31910, 0.11763, 0.33518, - . 0.04061, 0.00721, 17.68906, 0.43680, 0.40410, 0.20408, 0.42047, - . 0.04122, 0.00749, 21.37103, 0.53065, 0.49738, 0.29825, 0.51404, - . 0.04180, 0.00777, 25.29486, 0.63258, 0.59877, 0.40096, 0.61571, - . 0.04236, 0.00804, 29.36853, 0.74063, 0.70631, 0.50958, 0.72350, - . 0.04289, 0.00831, 33.58759, 0.85462, 0.81980, 0.62412, 0.83724, - . 0.04341, 0.00856, 38.01880, 0.97611, 0.94081, 0.74614, 0.95849, - . 0.04391, 0.00881, 42.48444, 1.10095, 1.06519, 0.87148, 1.08311, - . 0.04439, 0.00906, 47.11644, 1.23222, 1.19601, 1.00320, 1.21415, - . 0.04486, 0.00930, 51.81485, 1.36751, 1.33087, 1.13894, 1.34923, - . 0.04531, 0.00953, 56.60069, 1.50727, 1.47021, 1.27912, 1.48879, - . 0.04575, 0.00976, 61.45084, 1.65092, 1.61345, 1.42316, 1.63223, - . 0.04618, 0.00999, 66.36472, 1.79838, 1.76052, 1.57100, 1.77950 / - DATA ((F(I,5,M),I=1,5),F(7,5,M),F(6,5,M),M=1,19) / - . 0.03862, 0.00579, 0.16010, 0.03653, 0.00577, 0.00000, 0.02115, - . 0.03964, 0.00624, 1.60413, 0.06281, 0.03111, 0.00000, 0.04697, - . 0.04057, 0.00666, 3.36261, 0.10000, 0.06744, 0.00000, 0.08373, - . 0.04144, 0.00707, 5.42869, 0.14678, 0.11341, 0.00000, 0.13011, - . 0.04225, 0.00745, 7.81650, 0.20265, 0.16853, 0.00169, 0.18561, - . 0.04301, 0.00782, 10.49561, 0.26710, 0.23227, 0.03090, 0.24971, - . 0.04373, 0.00817, 13.39536, 0.33899, 0.30349, 0.10983, 0.32127, - . 0.04442, 0.00851, 16.52269, 0.41835, 0.38222, 0.18993, 0.40032, - . 0.04508, 0.00885, 19.86148, 0.50489, 0.46815, 0.27670, 0.48655, - . 0.04571, 0.00917, 23.39996, 0.59841, 0.56108, 0.37089, 0.57978, - . 0.04631, 0.00948, 27.05432, 0.69712, 0.65924, 0.47007, 0.67821, - . 0.04689, 0.00978, 30.82094, 0.80083, 0.76241, 0.57425, 0.78166, - . 0.04745, 0.01008, 34.76041, 0.91094, 0.87200, 0.68480, 0.89151, - . 0.04799, 0.01037, 38.71289, 1.02371, 0.98428, 0.79798, 1.00403, - . 0.04851, 0.01065, 42.79761, 1.14187, 1.10196, 0.91653, 1.12196, - . 0.04902, 0.01093, 46.92542, 1.26330, 1.22292, 1.03832, 1.24315, - . 0.04951, 0.01120, 51.11560, 1.38837, 1.34754, 1.16373, 1.36800, - . 0.04998, 0.01146, 55.34810, 1.51656, 1.47530, 1.29225, 1.49598, - . 0.05044, 0.01172, 59.62294, 1.64781, 1.60613, 1.42381, 1.62702 / - DATA ((F(I,6,M),I=1,5),F(7,6,M),F(6,6,M),M=1,19) / - . 0.04142, 0.00662, 0.16995, 0.03917, 0.00585, 0.00000, 0.02251, - . 0.04250, 0.00713, 1.58450, 0.06536, 0.03104, 0.00000, 0.04821, - . 0.04350, 0.00761, 3.28379, 0.10174, 0.06649, 0.00000, 0.08413, - . 0.04442, 0.00806, 5.25920, 0.14696, 0.11086, 0.00000, 0.12893, - . 0.04528, 0.00850, 7.52310, 0.20052, 0.16362, 0.00161, 0.18209, - . 0.04609, 0.00891, 10.04541, 0.26188, 0.22423, 0.02932, 0.24308, - . 0.04686, 0.00931, 12.75864, 0.32996, 0.29160, 0.10405, 0.31081, - . 0.04759, 0.00969, 15.66924, 0.40476, 0.36572, 0.17949, 0.38527, - . 0.04829, 0.01006, 18.76186, 0.48596, 0.44628, 0.26087, 0.46615, - . 0.04896, 0.01042, 22.02528, 0.57338, 0.53308, 0.34887, 0.55326, - . 0.04960, 0.01077, 25.38167, 0.66535, 0.62445, 0.44124, 0.64494, - . 0.05022, 0.01111, 28.82811, 0.76167, 0.72021, 0.53796, 0.74098, - . 0.05081, 0.01144, 32.42097, 0.86362, 0.82162, 0.64028, 0.84266, - . 0.05138, 0.01176, 36.01315, 0.96776, 0.92523, 0.74477, 0.94654, - . 0.05194, 0.01208, 39.71483, 1.07660, 1.03357, 0.85395, 1.05513, - . 0.05247, 0.01238, 43.44460, 1.18818, 1.14466, 0.96584, 1.16647, - . 0.05299, 0.01268, 47.22049, 1.30285, 1.25886, 1.08080, 1.28090, - . 0.05350, 0.01297, 51.02466, 1.42013, 1.37568, 1.19836, 1.39796, - . 0.05399, 0.01326, 54.85760, 1.53996, 1.49506, 1.31845, 1.51756 / - DATA ((F(I,7,M),I=1,5),F(7,7,M),F(6,7,M),M=1,19) / - . 0.05129, 0.01008, 0.20471, 0.04864, 0.00598, 0.00000, 0.02731, - . 0.05260, 0.01081, 1.52550, 0.07414, 0.03025, 0.00000, 0.05220, - . 0.05380, 0.01150, 3.04965, 0.10774, 0.06272, 0.00000, 0.08525, - . 0.05491, 0.01216, 4.76304, 0.14817, 0.10211, 0.00000, 0.12516, - . 0.05595, 0.01277, 6.67512, 0.19485, 0.14783, 0.00139, 0.17137, - . 0.05692, 0.01336, 8.75870, 0.24726, 0.19934, 0.02478, 0.22333, - . 0.05785, 0.01393, 10.95660, 0.30449, 0.25571, 0.08752, 0.28014, - . 0.05873, 0.01447, 13.27482, 0.36644, 0.31686, 0.14985, 0.34169, - . 0.05957, 0.01500, 15.70096, 0.43282, 0.38246, 0.21622, 0.40768, - . 0.06037, 0.01550, 18.22633, 0.50342, 0.45233, 0.28717, 0.47792, - . 0.06114, 0.01600, 20.78960, 0.57694, 0.52516, 0.36089, 0.55110, - . 0.06189, 0.01647, 23.39034, 0.65319, 0.60074, 0.43734, 0.62701, - . 0.06260, 0.01693, 26.07355, 0.73314, 0.68004, 0.51748, 0.70664, - . 0.06329, 0.01738, 28.72635, 0.81414, 0.76043, 0.59865, 0.78734, - . 0.06396, 0.01782, 31.43526, 0.89811, 0.84380, 0.68278, 0.87101, - . 0.06460, 0.01824, 34.13910, 0.98355, 0.92866, 0.76837, 0.95616, - . 0.06523, 0.01866, 36.85295, 1.07072, 1.01529, 0.85569, 1.04306, - . 0.06583, 0.01906, 39.56459, 1.15928, 1.10331, 0.94438, 1.13136, - . 0.06642, 0.01946, 42.27548, 1.24918, 1.19270, 1.03441, 1.22100 / - DATA ((F(I,8,M),I=1,5),F(7,8,M),F(6,8,M),M=1,19) / - . 0.06312, 0.01532, 0.24698, 0.06044, 0.00587, 0.00000, 0.03316, - . 0.06468, 0.01638, 1.46986, 0.08459, 0.02853, 0.00000, 0.05657, - . 0.06612, 0.01737, 2.82997, 0.11507, 0.05766, 0.00000, 0.08638, - . 0.06745, 0.01830, 4.30722, 0.15077, 0.09212, 0.00000, 0.12147, - . 0.06869, 0.01918, 5.91111, 0.19107, 0.13127, 0.00119, 0.16120, - . 0.06986, 0.02002, 7.61915, 0.23547, 0.17459, 0.02075, 0.20507, - . 0.07096, 0.02081, 9.38452, 0.28321, 0.22133, 0.07298, 0.25231, - . 0.07202, 0.02158, 11.21407, 0.33416, 0.27132, 0.12408, 0.30278, - . 0.07302, 0.02231, 13.09881, 0.38802, 0.32429, 0.17777, 0.35620, - . 0.07399, 0.02302, 15.03276, 0.44462, 0.38003, 0.23452, 0.41238, - . 0.07491, 0.02371, 16.96877, 0.50296, 0.43756, 0.29288, 0.47031, - . 0.07580, 0.02437, 18.90854, 0.56287, 0.49669, 0.35282, 0.52983, - . 0.07665, 0.02501, 20.88826, 0.62507, 0.55815, 0.41506, 0.59167, - . 0.07748, 0.02563, 22.82228, 0.68757, 0.61994, 0.47759, 0.65382, - . 0.07828, 0.02623, 24.77852, 0.75182, 0.68350, 0.54185, 0.71772, - . 0.07905, 0.02681, 26.71161, 0.81669, 0.74772, 0.60675, 0.78227, - . 0.07980, 0.02738, 28.63434, 0.88239, 0.81279, 0.67246, 0.84766, - . 0.08052, 0.02794, 30.53871, 0.94867, 0.87847, 0.73876, 0.91364, - . 0.08123, 0.02848, 32.42691, 1.01550, 0.94471, 0.80561, 0.98018 / - DATA ((F(I,9,M),I=1,5),F(7,9,M),F(6,9,M),M=1,19) / - . 0.07103, 0.01957, 0.27603, 0.06866, 0.00570, 0.00000, 0.03718, - . 0.07276, 0.02087, 1.43921, 0.09173, 0.02713, 0.00000, 0.05944, - . 0.07435, 0.02209, 2.70710, 0.12029, 0.05419, 0.00000, 0.08726, - . 0.07583, 0.02323, 4.05602, 0.15330, 0.08584, 0.00000, 0.11960, - . 0.07720, 0.02431, 5.49645, 0.19011, 0.12139, 0.00108, 0.15578, - . 0.07850, 0.02532, 7.00905, 0.23023, 0.16033, 0.01861, 0.19532, - . 0.07973, 0.02629, 8.55311, 0.27300, 0.20201, 0.06532, 0.23755, - . 0.08090, 0.02722, 10.13611, 0.31824, 0.24622, 0.11061, 0.28228, - . 0.08202, 0.02811, 11.75115, 0.36570, 0.29271, 0.15782, 0.32926, - . 0.08309, 0.02897, 13.39391, 0.41522, 0.34130, 0.20738, 0.37832, - . 0.08411, 0.02979, 15.02436, 0.46594, 0.39115, 0.25804, 0.42860, - . 0.08510, 0.03059, 16.64526, 0.51771, 0.44209, 0.30976, 0.47996, - . 0.08605, 0.03136, 18.28867, 0.57115, 0.49473, 0.36316, 0.53300, - . 0.08696, 0.03210, 19.88211, 0.62458, 0.54740, 0.41655, 0.58606, - . 0.08785, 0.03282, 21.48447, 0.67922, 0.60131, 0.47114, 0.64033, - . 0.08871, 0.03352, 23.05798, 0.73413, 0.65553, 0.52601, 0.69490, - . 0.08954, 0.03420, 24.61417, 0.78949, 0.71022, 0.58133, 0.74992, - . 0.09034, 0.03486, 26.14708, 0.84510, 0.76519, 0.63691, 0.80522, - . 0.09112, 0.03550, 27.65913, 0.90095, 0.82042, 0.69271, 0.86076 / - DATA ((F(I,10,M),I=1,5),F(7,10,M),F(6,10,M),M=1,19) / - . 0.07712, 0.02327, 0.29897, 0.07518, 0.00553, 0.00000, 0.04036, - . 0.07898, 0.02478, 1.41851, 0.09741, 0.02602, 0.00000, 0.06173, - . 0.08069, 0.02619, 2.62196, 0.12459, 0.05161, 0.00000, 0.08812, - . 0.08228, 0.02750, 3.88335, 0.15575, 0.08132, 0.00000, 0.11856, - . 0.08376, 0.02873, 5.21403, 0.19019, 0.11443, 0.00101, 0.15234, - . 0.08516, 0.02990, 6.59717, 0.22744, 0.15045, 0.01719, 0.18899, - . 0.08648, 0.03100, 7.99611, 0.26691, 0.18877, 0.06024, 0.22788, - . 0.08774, 0.03206, 9.41899, 0.30840, 0.22918, 0.10170, 0.26884, - . 0.08895, 0.03308, 10.86035, 0.35168, 0.27144, 0.14468, 0.31161, - . 0.09010, 0.03405, 12.31692, 0.39660, 0.31539, 0.18957, 0.35605, - . 0.09121, 0.03499, 13.75340, 0.44240, 0.36027, 0.23526, 0.40139, - . 0.09227, 0.03589, 15.17321, 0.48893, 0.40595, 0.28170, 0.44750, - . 0.09329, 0.03677, 16.60567, 0.53677, 0.45295, 0.32945, 0.49492, - . 0.09428, 0.03761, 17.98672, 0.58441, 0.49982, 0.37701, 0.54218, - . 0.09523, 0.03842, 19.36955, 0.63295, 0.54760, 0.42547, 0.59035, - . 0.09616, 0.03921, 20.72107, 0.68157, 0.59550, 0.47400, 0.63860, - . 0.09705, 0.03997, 22.05208, 0.73041, 0.64366, 0.52278, 0.68711, - . 0.09792, 0.04072, 23.35773, 0.77934, 0.69192, 0.57163, 0.73570, - . 0.09876, 0.04144, 24.64058, 0.82831, 0.74026, 0.62054, 0.78436 / - DATA ((F(I,11,M),I=1,5),F(7,11,M),F(6,11,M),M=1,19) / - . 0.08212, 0.02662, 0.31835, 0.08073, 0.00546, 0.00000, 0.04310, - . 0.08410, 0.02830, 1.40268, 0.10251, 0.02542, 0.00000, 0.06398, - . 0.08592, 0.02986, 2.55492, 0.12878, 0.05004, 0.00000, 0.08943, - . 0.08761, 0.03132, 3.74847, 0.15860, 0.07837, 0.00000, 0.11852, - . 0.08918, 0.03268, 4.99557, 0.19131, 0.10970, 0.00096, 0.15054, - . 0.09067, 0.03397, 6.28086, 0.22645, 0.14357, 0.01614, 0.18505, - . 0.09208, 0.03519, 7.57115, 0.26346, 0.17940, 0.05646, 0.22148, - . 0.09342, 0.03636, 8.87490, 0.30217, 0.21701, 0.09509, 0.25964, - . 0.09470, 0.03748, 10.18790, 0.34235, 0.25614, 0.13493, 0.29930, - . 0.09593, 0.03855, 11.50772, 0.38386, 0.29667, 0.17637, 0.34033, - . 0.09710, 0.03958, 12.80232, 0.42603, 0.33791, 0.21838, 0.38203, - . 0.09823, 0.04057, 14.07607, 0.46873, 0.37972, 0.26095, 0.42429, - . 0.09932, 0.04152, 15.35603, 0.51245, 0.42261, 0.30455, 0.46759, - . 0.10037, 0.04244, 16.58408, 0.55587, 0.46523, 0.34786, 0.51062, - . 0.10138, 0.04333, 17.80927, 0.59996, 0.50856, 0.39184, 0.55433, - . 0.10236, 0.04419, 19.00201, 0.64399, 0.55188, 0.43578, 0.59801, - . 0.10331, 0.04503, 20.17259, 0.68812, 0.59531, 0.47981, 0.64179, - . 0.10424, 0.04584, 21.31697, 0.73221, 0.63873, 0.52381, 0.68555, - . 0.10513, 0.04662, 22.43721, 0.77623, 0.68212, 0.56774, 0.72925 / - DATA ((F(I,12,M),I=1,5),F(7,12,M),F(6,12,M),M=1,19) / - . 0.09937, 0.04033, 0.38915, 0.10054, 0.00513, 0.00000, 0.05284, - . 0.10178, 0.04265, 1.36061, 0.12058, 0.02320, 0.00000, 0.07190, - . 0.10399, 0.04478, 2.35765, 0.14385, 0.04469, 0.00000, 0.09429, - . 0.10606, 0.04676, 3.35229, 0.16954, 0.06880, 0.00001, 0.11920, - . 0.10798, 0.04860, 4.35914, 0.19705, 0.09487, 0.00080, 0.14600, - . 0.10979, 0.05033, 5.36898, 0.22599, 0.12249, 0.01311, 0.17428, - . 0.11152, 0.05196, 6.35800, 0.25596, 0.15125, 0.04566, 0.20365, - . 0.11315, 0.05351, 7.33600, 0.28679, 0.18094, 0.07630, 0.23392, - . 0.11472, 0.05499, 8.30194, 0.31829, 0.21140, 0.10742, 0.26490, - . 0.11622, 0.05639, 9.25586, 0.35038, 0.24250, 0.13935, 0.29650, - . 0.11765, 0.05774, 10.17506, 0.38258, 0.27378, 0.17134, 0.32824, - . 0.11903, 0.05903, 11.06490, 0.41480, 0.30513, 0.20339, 0.36003, - . 0.12036, 0.06027, 11.94716, 0.44740, 0.33692, 0.23584, 0.39223, - . 0.12164, 0.06145, 12.77997, 0.47947, 0.36822, 0.26777, 0.42392, - . 0.12287, 0.06260, 13.60090, 0.51169, 0.39972, 0.29986, 0.45578, - . 0.12407, 0.06370, 14.38942, 0.54358, 0.43092, 0.33164, 0.48732, - . 0.12522, 0.06476, 15.15396, 0.57525, 0.46193, 0.36320, 0.51866, - . 0.12634, 0.06579, 15.89250, 0.60661, 0.49267, 0.39448, 0.54972, - . 0.12743, 0.06678, 16.60741, 0.63767, 0.52314, 0.42545, 0.58049 / - DATA ((F(I,13,M),I=1,5),F(7,13,M),F(6,13,M),M=1,19) / - . 0.11969, 0.06086, 0.48283, 0.12442, 0.00481, 0.00000, 0.06462, - . 0.12274, 0.06394, 1.33566, 0.14268, 0.02119, 0.00000, 0.08195, - . 0.12554, 0.06674, 2.17842, 0.16303, 0.03989, 0.00000, 0.10148, - . 0.12815, 0.06931, 2.98664, 0.18481, 0.06022, 0.00001, 0.12254, - . 0.13057, 0.07169, 3.77663, 0.20752, 0.08163, 0.00067, 0.14461, - . 0.13287, 0.07390, 4.54550, 0.23085, 0.10381, 0.01049, 0.16737, - . 0.13503, 0.07598, 5.27791, 0.25455, 0.12646, 0.03632, 0.19055, - . 0.13709, 0.07793, 5.98464, 0.27848, 0.14944, 0.06014, 0.21401, - . 0.13904, 0.07978, 6.66721, 0.30252, 0.17261, 0.08394, 0.23761, - . 0.14092, 0.08154, 7.32768, 0.32661, 0.19590, 0.10798, 0.26131, - . 0.14272, 0.08320, 7.95116, 0.35046, 0.21901, 0.13175, 0.28479, - . 0.14444, 0.08478, 8.54288, 0.37401, 0.24188, 0.15526, 0.30801, - . 0.14609, 0.08630, 9.12026, 0.39753, 0.26476, 0.17875, 0.33121, - . 0.14769, 0.08774, 9.65437, 0.42040, 0.28705, 0.20162, 0.35379, - . 0.14922, 0.08912, 10.17378, 0.44311, 0.30921, 0.22434, 0.37623, - . 0.15070, 0.09045, 10.66496, 0.46534, 0.33095, 0.24660, 0.39821, - . 0.15213, 0.09172, 11.13406, 0.48719, 0.35233, 0.26848, 0.41983, - . 0.15352, 0.09295, 11.58041, 0.50862, 0.37332, 0.28997, 0.44105, - . 0.15486, 0.09412, 12.00657, 0.52965, 0.39394, 0.31106, 0.46187 / - DATA ((F(I,14,M),I=1,5),F(7,14,M),F(6,14,M),M=1,19) / - . 0.13360, 0.07717, 0.55302, 0.13991, 0.00463, 0.00000, 0.07227, - . 0.13717, 0.08070, 1.33318, 0.15698, 0.02007, 0.00000, 0.08854, - . 0.14045, 0.08390, 2.08618, 0.17553, 0.03723, 0.00000, 0.10640, - . 0.14348, 0.08683, 2.79032, 0.19500, 0.05553, 0.00000, 0.12529, - . 0.14632, 0.08949, 3.46378, 0.21497, 0.07445, 0.00057, 0.14474, - . 0.14899, 0.09198, 4.10651, 0.23519, 0.09377, 0.00911, 0.16451, - . 0.15149, 0.09428, 4.70780, 0.25548, 0.11326, 0.03145, 0.18441, - . 0.15387, 0.09645, 5.27863, 0.27572, 0.13279, 0.05179, 0.20429, - . 0.15615, 0.09848, 5.82186, 0.29582, 0.15226, 0.07187, 0.22408, - . 0.15832, 0.10041, 6.34034, 0.31576, 0.17163, 0.09197, 0.24375, - . 0.16039, 0.10222, 6.82258, 0.33533, 0.19069, 0.11166, 0.26306, - . 0.16237, 0.10394, 7.27396, 0.35448, 0.20939, 0.13097, 0.28199, - . 0.16427, 0.10558, 7.70980, 0.37345, 0.22795, 0.15011, 0.30076, - . 0.16608, 0.10714, 8.10845, 0.39175, 0.24589, 0.16860, 0.31888, - . 0.16783, 0.10862, 8.49192, 0.40979, 0.26359, 0.18684, 0.33675, - . 0.16952, 0.11004, 8.84949, 0.42732, 0.28083, 0.20458, 0.35413, - . 0.17114, 0.11139, 9.18768, 0.44443, 0.29768, 0.22191, 0.37111, - . 0.17271, 0.11269, 9.50637, 0.46111, 0.31412, 0.23882, 0.38767, - . 0.17422, 0.11393, 9.80735, 0.47738, 0.33016, 0.25532, 0.40383 / - DATA ((F(I,15,M),I=1,5),F(7,15,M),F(6,15,M),M=1,19) / - . 0.14481, 0.09112, 0.61315, 0.15120, 0.00451, 0.00000, 0.07786, - . 0.14886, 0.09496, 1.33990, 0.16734, 0.01935, 0.00001, 0.09335, - . 0.15256, 0.09841, 2.02827, 0.18456, 0.03549, 0.00000, 0.11004, - . 0.15597, 0.10154, 2.66052, 0.20237, 0.05242, 0.00000, 0.12742, - . 0.15917, 0.10438, 3.25520, 0.22039, 0.06970, 0.00052, 0.14508, - . 0.16216, 0.10702, 3.81434, 0.23845, 0.08713, 0.00821, 0.16282, - . 0.16496, 0.10945, 4.33011, 0.25640, 0.10455, 0.02827, 0.18051, - . 0.16762, 0.11173, 4.81355, 0.27413, 0.12184, 0.04635, 0.19802, - . 0.17015, 0.11385, 5.26825, 0.29161, 0.13892, 0.06404, 0.21531, - . 0.17257, 0.11586, 5.69755, 0.30880, 0.15579, 0.08161, 0.23235, - . 0.17486, 0.11774, 6.09223, 0.32555, 0.17228, 0.09871, 0.24896, - . 0.17705, 0.11951, 6.45767, 0.34184, 0.18834, 0.11537, 0.26514, - . 0.17914, 0.12120, 6.80753, 0.35786, 0.20418, 0.13177, 0.28107, - . 0.18114, 0.12280, 7.12372, 0.37323, 0.21939, 0.14753, 0.29636, - . 0.18306, 0.12432, 7.42542, 0.38828, 0.23432, 0.16299, 0.31135, - . 0.18491, 0.12576, 7.70387, 0.40282, 0.24878, 0.17794, 0.32586, - . 0.18669, 0.12713, 7.96485, 0.41695, 0.26284, 0.19247, 0.33995, - . 0.18839, 0.12844, 8.20850, 0.43065, 0.27649, 0.20658, 0.35362, - . 0.19004, 0.12969, 8.43655, 0.44393, 0.28974, 0.22028, 0.36689 / - DATA ((F(I,16,M),I=1,5),F(7,16,M),F(6,16,M),M=1,19) / - . 0.15457, 0.10347, 0.66686, 0.15987, 0.00442, 0.00001, 0.08215, - . 0.15905, 0.10751, 1.35085, 0.17520, 0.01881, 0.00001, 0.09701, - . 0.16313, 0.11112, 1.98874, 0.19132, 0.03419, 0.00001, 0.11277, - . 0.16691, 0.11437, 2.56643, 0.20779, 0.05009, 0.00002, 0.12897, - . 0.17041, 0.11730, 3.10206, 0.22430, 0.06616, 0.00050, 0.14525, - . 0.17368, 0.12003, 3.59976, 0.24069, 0.08220, 0.00756, 0.16147, - . 0.17674, 0.12253, 4.05323, 0.25684, 0.09809, 0.02594, 0.17749, - . 0.17963, 0.12485, 4.47380, 0.27268, 0.11375, 0.04238, 0.19325, - . 0.18238, 0.12701, 4.86539, 0.28819, 0.12912, 0.05836, 0.20870, - . 0.18499, 0.12904, 5.23162, 0.30335, 0.14419, 0.07411, 0.22382, - . 0.18748, 0.13094, 5.56475, 0.31802, 0.15882, 0.08937, 0.23847, - . 0.18983, 0.13272, 5.87111, 0.33220, 0.17300, 0.10414, 0.25265, - . 0.19209, 0.13441, 6.16245, 0.34608, 0.18691, 0.11860, 0.26655, - . 0.19425, 0.13599, 6.42168, 0.35931, 0.20019, 0.13243, 0.27980, - . 0.19632, 0.13750, 6.66752, 0.37222, 0.21317, 0.14593, 0.29275, - . 0.19832, 0.13891, 6.89266, 0.38465, 0.22570, 0.15895, 0.30523, - . 0.20022, 0.14027, 7.10191, 0.39665, 0.23782, 0.17154, 0.31729, - . 0.20204, 0.14156, 7.29554, 0.40822, 0.24953, 0.18370, 0.32893, - . 0.20379, 0.14279, 7.47514, 0.41940, 0.26086, 0.19547, 0.34019 / - DATA ((F(I,17,M),I=1,5),F(7,17,M),F(6,17,M),M=1,19) / - . 0.19468, 0.15140, 0.88653, 0.18271, 0.00417, 0.00000, 0.09344, - . 0.20087, 0.15560, 1.42751, 0.19492, 0.01719, 0.00001, 0.10606, - . 0.20648, 0.15927, 1.90512, 0.20715, 0.03027, 0.00000, 0.11872, - . 0.21152, 0.16249, 2.31617, 0.21912, 0.04316, 0.00001, 0.13117, - . 0.21612, 0.16538, 2.67905, 0.23071, 0.05566, 0.00039, 0.14320, - . 0.22044, 0.16792, 3.00095, 0.24185, 0.06773, 0.00570, 0.15481, - . 0.22443, 0.17023, 3.28159, 0.25246, 0.07931, 0.01937, 0.16591, - . 0.22812, 0.17234, 3.53115, 0.26262, 0.09040, 0.03126, 0.17654, - . 0.23159, 0.17427, 3.75441, 0.27230, 0.10102, 0.04251, 0.18669, - . 0.23485, 0.17605, 3.95557, 0.28155, 0.11120, 0.05337, 0.19639, - . 0.23789, 0.17767, 4.13130, 0.29027, 0.12085, 0.06365, 0.20559, - . 0.24078, 0.17916, 4.28594, 0.29851, 0.13001, 0.07340, 0.21429, - . 0.24353, 0.18054, 4.42826, 0.30643, 0.13882, 0.08278, 0.22265, - . 0.24607, 0.18184, 4.54817, 0.31378, 0.14707, 0.09158, 0.23045, - . 0.24851, 0.18303, 4.65840, 0.32082, 0.15499, 0.10002, 0.23794, - . 0.25085, 0.18412, 4.75493, 0.32745, 0.16249, 0.10803, 0.24500, - . 0.25307, 0.18514, 4.84069, 0.33374, 0.16964, 0.11566, 0.25172, - . 0.25518, 0.18610, 4.91624, 0.33971, 0.17644, 0.12294, 0.25811, - . 0.25720, 0.18699, 4.98319, 0.34536, 0.18292, 0.12986, 0.26418 / - DATA ((F(I,18,M),I=1,5),F(7,18,M),F(6,18,M),M=1,19) / - . 0.26333, 0.21303, 1.21309, 0.18732, 0.00377,-0.00009, 0.09551, - . 0.27129, 0.21594, 1.58557, 0.19533, 0.01523,-0.00012, 0.10524, - . 0.27832, 0.21827, 1.88997, 0.20282, 0.02593,-0.00012, 0.11435, - . 0.28445, 0.22025, 2.13352, 0.20973, 0.03583,-0.00013, 0.12277, - . 0.28986, 0.22191, 2.33312, 0.21606, 0.04495, 0.00017, 0.13048, - . 0.29482, 0.22325, 2.49780, 0.22182, 0.05338, 0.00395, 0.13759, - . 0.29933, 0.22430, 2.63027, 0.22707, 0.06114, 0.01352, 0.14409, - . 0.30337, 0.22524, 2.73914, 0.23185, 0.06829, 0.02151, 0.15004, - . 0.30705, 0.22603, 2.82909, 0.23621, 0.07490, 0.02885, 0.15553, - . 0.31046, 0.22668, 2.90387, 0.24021, 0.08103, 0.03573, 0.16061, - . 0.31362, 0.22716, 2.96244, 0.24377, 0.08671, 0.04205, 0.16521, - . 0.31649, 0.22756, 3.00803, 0.24697, 0.09191, 0.04788, 0.16941, - . 0.31918, 0.22792, 3.04635, 0.24994, 0.09680, 0.05335, 0.17333, - . 0.32161, 0.22816, 3.07238, 0.25254, 0.10120, 0.05837, 0.17684, - . 0.32390, 0.22835, 3.09319, 0.25493, 0.10535, 0.06308, 0.18012, - . 0.32601, 0.22848, 3.10673, 0.25706, 0.10920, 0.06745, 0.18310, - . 0.32800, 0.22853, 3.11513, 0.25898, 0.11276, 0.07150, 0.18584, - . 0.32987, 0.22851, 3.11883, 0.26072, 0.11606, 0.07527, 0.18835, - . 0.33159, 0.22848, 3.11884, 0.26227, 0.11913, 0.07880, 0.19066 / - DATA ((F(I,19,M),I=1,5),F(7,19,M),F(6,19,M),M=1,19) / - . 0.32682, 0.25108, 1.44543, 0.17303, 0.00352, 0.00003, 0.08827, - . 0.33479, 0.25204, 1.69964, 0.17822, 0.01368, 0.00002, 0.09597, - . 0.34170, 0.25253, 1.89218, 0.18276, 0.02275,-0.00003, 0.10277, - . 0.34753, 0.25271, 2.03417, 0.18669, 0.03078, 0.00000, 0.10875, - . 0.35257, 0.25272, 2.14073, 0.19000, 0.03791, 0.00024, 0.11398, - . 0.35694, 0.25252, 2.22018, 0.19290, 0.04426, 0.00311, 0.11860, - . 0.36072, 0.25225, 2.27596, 0.19533, 0.04994, 0.01049, 0.12265, - . 0.36405, 0.25181, 2.31529, 0.19736, 0.05504, 0.01642, 0.12622, - . 0.36705, 0.25123, 2.34189, 0.19907, 0.05963, 0.02175, 0.12936, - . 0.36974, 0.25056, 2.35877, 0.20052, 0.06378, 0.02667, 0.13216, - . 0.37204, 0.24990, 2.36560, 0.20168, 0.06753, 0.03110, 0.13460, - . 0.37413, 0.24916, 2.36475, 0.20259, 0.07085, 0.03509, 0.13673, - . 0.37603, 0.24840, 2.36023, 0.20335, 0.07388, 0.03878, 0.13865, - . 0.37758, 0.24759, 2.34883, 0.20386, 0.07657, 0.04206, 0.14025, - . 0.37903, 0.24677, 2.33528, 0.20427, 0.07904, 0.04509, 0.14169, - . 0.38037, 0.24589, 2.31825, 0.20454, 0.08127, 0.04783, 0.14292, - . 0.38152, 0.24501, 2.29901, 0.20467, 0.08327, 0.05035, 0.14398, - . 0.38251, 0.24413, 2.27786, 0.20467, 0.08507, 0.05266, 0.14489, - . 0.38337, 0.24326, 2.25545, 0.20458, 0.08673, 0.05479, 0.14568 / - DATA ((F(I,20,M),I=1,5),F(7,20,M),F(6,20,M),M=1,19) / - . 0.38521, 0.27498, 1.59924, 0.15266, 0.00319, 0.00003, 0.07796, - . 0.39209, 0.27378, 1.75906, 0.15592, 0.01216, 0.00009, 0.08409, - . 0.39750, 0.27247, 1.86759, 0.15854, 0.01988, 0.00006, 0.08924, - . 0.40205, 0.27084, 1.93652, 0.16060, 0.02643, 0.00011, 0.09353, - . 0.40570, 0.26925, 1.97929, 0.16209, 0.03212, 0.00024, 0.09711, - . 0.40874, 0.26748, 2.00264, 0.16328, 0.03702, 0.00260, 0.10018, - . 0.41126, 0.26573, 2.00986, 0.16398, 0.04129, 0.00837, 0.10270, - . 0.41327, 0.26396, 2.00658, 0.16447, 0.04505, 0.01299, 0.10480, - . 0.41488, 0.26222, 1.99574, 0.16474, 0.04833, 0.01702, 0.10657, - . 0.41619, 0.26051, 1.97962, 0.16483, 0.05121, 0.02064, 0.10807, - . 0.41725, 0.25873, 1.95801, 0.16471, 0.05370, 0.02384, 0.10928, - . 0.41805, 0.25695, 1.93269, 0.16443, 0.05592, 0.02667, 0.11024, - . 0.41871, 0.25521, 1.90632, 0.16409, 0.05793, 0.02926, 0.11105, - . 0.41912, 0.25348, 1.87636, 0.16356, 0.05962, 0.03156, 0.11163, - . 0.41941, 0.25177, 1.84638, 0.16299, 0.06116, 0.03363, 0.11212, - . 0.41956, 0.25005, 1.81542, 0.16234, 0.06251, 0.03546, 0.11248, - . 0.41956, 0.24840, 1.78421, 0.16162, 0.06369, 0.03714, 0.11273, - . 0.41943, 0.24682, 1.75288, 0.16085, 0.06472, 0.03868, 0.11286, - . 0.41924, 0.24521, 1.72167, 0.16004, 0.06562, 0.04005, 0.11290 / - DATA ((F(I,21,M),I=1,5),F(7,21,M),F(6,21,M),M=1,19) / - . 0.43737, 0.28894, 1.68507, 0.13105, 0.00284, 0.00007, 0.06697, - . 0.44204, 0.28570, 1.76715, 0.13301, 0.01060, 0.00007, 0.07185, - . 0.44547, 0.28246, 1.81031, 0.13438, 0.01710, 0.00009, 0.07578, - . 0.44795, 0.27929, 1.82471, 0.13515, 0.02254, 0.00013, 0.07885, - . 0.44957, 0.27626, 1.82127, 0.13556, 0.02705, 0.00019, 0.08131, - . 0.45082, 0.27316, 1.80589, 0.13566, 0.03083, 0.00213, 0.08331, - . 0.45142, 0.27020, 1.78095, 0.13547, 0.03407, 0.00668, 0.08482, - . 0.45172, 0.26723, 1.75032, 0.13509, 0.03683, 0.01027, 0.08600, - . 0.45175, 0.26436, 1.71637, 0.13454, 0.03922, 0.01336, 0.08691, - . 0.45154, 0.26160, 1.68065, 0.13386, 0.04130, 0.01610, 0.08762, - . 0.45102, 0.25891, 1.64276, 0.13306, 0.04303, 0.01849, 0.08808, - . 0.45028, 0.25630, 1.60390, 0.13220, 0.04450, 0.02059, 0.08836, - . 0.44945, 0.25378, 1.56595, 0.13132, 0.04581, 0.02248, 0.08855, - . 0.44851, 0.25123, 1.52714, 0.13032, 0.04685, 0.02410, 0.08858, - . 0.44750, 0.24877, 1.48962, 0.12930, 0.04778, 0.02555, 0.08856, - . 0.44640, 0.24640, 1.45256, 0.12822, 0.04857, 0.02678, 0.08845, - . 0.44517, 0.24411, 1.41649, 0.12712, 0.04925, 0.02791, 0.08825, - . 0.44385, 0.24192, 1.38141, 0.12602, 0.04983, 0.02892, 0.08795, - . 0.44249, 0.23974, 1.34738, 0.12492, 0.05030, 0.02981, 0.08763 / - DATA ((F(I,22,M),I=1,5),F(7,22,M),F(6,22,M),M=1,19) / - . 0.49251, 0.29604, 1.71219, 0.10541, 0.00238, 0.00006, 0.05393, - . 0.49360, 0.29045, 1.71773, 0.10632, 0.00887, 0.00005, 0.05760, - . 0.49354, 0.28535, 1.69901, 0.10667, 0.01409, 0.00004, 0.06040, - . 0.49301, 0.28021, 1.66433, 0.10659, 0.01825, 0.00008, 0.06245, - . 0.49179, 0.27552, 1.62179, 0.10623, 0.02162, 0.00019, 0.06396, - . 0.49033, 0.27095, 1.57452, 0.10559, 0.02445, 0.00159, 0.06508, - . 0.48830, 0.26669, 1.52436, 0.10482, 0.02671, 0.00507, 0.06583, - . 0.48614, 0.26255, 1.47346, 0.10390, 0.02860, 0.00779, 0.06631, - . 0.48385, 0.25857, 1.42317, 0.10287, 0.03021, 0.01002, 0.06658, - . 0.48145, 0.25478, 1.37431, 0.10179, 0.03158, 0.01193, 0.06671, - . 0.47886, 0.25117, 1.32637, 0.10064, 0.03266, 0.01364, 0.06669, - . 0.47624, 0.24767, 1.27997, 0.09946, 0.03353, 0.01508, 0.06655, - . 0.47364, 0.24432, 1.23610, 0.09830, 0.03427, 0.01636, 0.06637, - . 0.47088, 0.24103, 1.19326, 0.09708, 0.03485, 0.01742, 0.06607, - . 0.46810, 0.23793, 1.15285, 0.09588, 0.03534, 0.01836, 0.06573, - . 0.46523, 0.23499, 1.11416, 0.09467, 0.03573, 0.01917, 0.06533, - . 0.46241, 0.23212, 1.07734, 0.09347, 0.03603, 0.01985, 0.06490, - . 0.45964, 0.22930, 1.04226, 0.09229, 0.03627, 0.02043, 0.06445, - . 0.45690, 0.22656, 1.00892, 0.09112, 0.03645, 0.02096, 0.06394 / - DATA ((F(I,23,M),I=1,5),F(7,23,M),F(6,23,M),M=1,19) / - . 0.53565, 0.29457, 1.66888, 0.08285, 0.00207, 0.00016, 0.04253, - . 0.53256, 0.28702, 1.61738, 0.08319, 0.00729, 0.00016, 0.04529, - . 0.52889, 0.28011, 1.55551, 0.08300, 0.01141, 0.00016, 0.04729, - . 0.52481, 0.27360, 1.48852, 0.08250, 0.01459, 0.00014, 0.04856, - . 0.52045, 0.26755, 1.42129, 0.08175, 0.01712, 0.00026, 0.04950, - . 0.51596, 0.26194, 1.35566, 0.08081, 0.01921, 0.00134, 0.05010, - . 0.51124, 0.25668, 1.29186, 0.07983, 0.02076, 0.00392, 0.05032, - . 0.50666, 0.25160, 1.23104, 0.07870, 0.02207, 0.00588, 0.05042, - . 0.50208, 0.24676, 1.17368, 0.07753, 0.02313, 0.00752, 0.05040, - . 0.49751, 0.24222, 1.11993, 0.07635, 0.02399, 0.00891, 0.05026, - . 0.49287, 0.23797, 1.06906, 0.07514, 0.02466, 0.01004, 0.04996, - . 0.48832, 0.23380, 1.02118, 0.07392, 0.02519, 0.01105, 0.04964, - . 0.48392, 0.22983, 0.97677, 0.07272, 0.02563, 0.01195, 0.04931, - . 0.47940, 0.22611, 0.93464, 0.07151, 0.02592, 0.01263, 0.04888, - . 0.47503, 0.22254, 0.89550, 0.07036, 0.02615, 0.01323, 0.04842, - . 0.47074, 0.21907, 0.85869, 0.06923, 0.02631, 0.01376, 0.04791, - . 0.46652, 0.21577, 0.82419, 0.06812, 0.02641, 0.01420, 0.04738, - . 0.46236, 0.21264, 0.79180, 0.06703, 0.02646, 0.01458, 0.04685, - . 0.45829, 0.20962, 0.76140, 0.06596, 0.02647, 0.01488, 0.04632 / - DATA ((F(I,24,M),I=1,5),F(7,24,M),F(6,24,M),M=1,19) / - . 0.56667, 0.28691, 1.57290, 0.06394, 0.00161,-0.00001, 0.03280, - . 0.55919, 0.27778, 1.48228, 0.06393, 0.00584, 0.00006, 0.03489, - . 0.55158, 0.26949, 1.39273, 0.06348, 0.00907, 0.00010, 0.03637, - . 0.54405, 0.26182, 1.30649, 0.06281, 0.01151, 0.00003, 0.03716, - . 0.53662, 0.25472, 1.22592, 0.06190, 0.01344, 0.00009, 0.03771, - . 0.52935, 0.24822, 1.15139, 0.06092, 0.01487, 0.00092, 0.03799, - . 0.52215, 0.24217, 1.08217, 0.05983, 0.01600, 0.00287, 0.03805, - . 0.51517, 0.23642, 1.01833, 0.05872, 0.01689, 0.00434, 0.03793, - . 0.50831, 0.23105, 0.95976, 0.05761, 0.01761, 0.00556, 0.03771, - . 0.50163, 0.22600, 0.90612, 0.05651, 0.01817, 0.00660, 0.03743, - . 0.49515, 0.22120, 0.85651, 0.05540, 0.01854, 0.00745, 0.03709, - . 0.48880, 0.21671, 0.81077, 0.05429, 0.01882, 0.00811, 0.03671, - . 0.48271, 0.21248, 0.76895, 0.05321, 0.01904, 0.00868, 0.03631, - . 0.47677, 0.20831, 0.72997, 0.05215, 0.01921, 0.00922, 0.03580, - . 0.47108, 0.20436, 0.69419, 0.05113, 0.01932, 0.00966, 0.03531, - . 0.46557, 0.20058, 0.66101, 0.05012, 0.01933, 0.00999, 0.03485, - . 0.46017, 0.19701, 0.63028, 0.04914, 0.01934, 0.01026, 0.03437, - . 0.45488, 0.19362, 0.60174, 0.04819, 0.01934, 0.01048, 0.03387, - . 0.44971, 0.19040, 0.57523, 0.04727, 0.01930, 0.01066, 0.03338 / - DATA ((F(I,25,M),I=1,5),F(7,25,M),F(6,25,M),M=1,19) / - . 0.58603, 0.27450, 1.44248, 0.04852, 0.00124,-0.00002, 0.02493, - . 0.57422, 0.26421, 1.32713, 0.04833, 0.00463,-0.00004, 0.02648, - . 0.56283, 0.25493, 1.22166, 0.04781, 0.00709, 0.00013, 0.02753, - . 0.55199, 0.24647, 1.12617, 0.04712, 0.00888, 0.00001, 0.02802, - . 0.54166, 0.23880, 1.04068, 0.04621, 0.01026, 0.00015, 0.02836, - . 0.53174, 0.23162, 0.96415, 0.04533, 0.01129, 0.00074, 0.02841, - . 0.52210, 0.22513, 0.89506, 0.04435, 0.01208, 0.00215, 0.02830, - . 0.51288, 0.21904, 0.83293, 0.04336, 0.01268, 0.00318, 0.02807, - . 0.50416, 0.21328, 0.77700, 0.04237, 0.01314, 0.00405, 0.02779, - . 0.49583, 0.20788, 0.72664, 0.04139, 0.01349, 0.00481, 0.02748, - . 0.48761, 0.20289, 0.68096, 0.04041, 0.01375, 0.00542, 0.02712, - . 0.47981, 0.19809, 0.63935, 0.03947, 0.01391, 0.00590, 0.02674, - . 0.47240, 0.19356, 0.60171, 0.03857, 0.01400, 0.00630, 0.02635, - . 0.46511, 0.18935, 0.56720, 0.03769, 0.01403, 0.00659, 0.02590, - . 0.45817, 0.18536, 0.53580, 0.03683, 0.01404, 0.00682, 0.02546, - . 0.45149, 0.18152, 0.50698, 0.03599, 0.01404, 0.00700, 0.02502, - . 0.44501, 0.17789, 0.48064, 0.03520, 0.01398, 0.00717, 0.02458, - . 0.43873, 0.17445, 0.45649, 0.03445, 0.01389, 0.00733, 0.02415, - . 0.43269, 0.17115, 0.43408, 0.03372, 0.01380, 0.00747, 0.02373 / - DATA ((F(I,26,M),I=1,5),F(7,26,M),F(6,26,M),M=1,19) / - . 0.59421, 0.25900, 1.29171, 0.03626, 0.00095, 0.00008, 0.01863, - . 0.57849, 0.24775, 1.16344, 0.03601, 0.00353, 0.00008, 0.01983, - . 0.56376, 0.23772, 1.05199, 0.03547, 0.00547,-0.00002, 0.02055, - . 0.54985, 0.22883, 0.95477, 0.03483, 0.00679, 0.00010, 0.02084, - . 0.53688, 0.22069, 0.87019, 0.03401, 0.00784, 0.00004, 0.02105, - . 0.52484, 0.21308, 0.79635, 0.03325, 0.00861, 0.00059, 0.02088, - . 0.51319, 0.20631, 0.73113, 0.03239, 0.00913, 0.00164, 0.02075, - . 0.50213, 0.19998, 0.67353, 0.03158, 0.00949, 0.00242, 0.02054, - . 0.49171, 0.19408, 0.62245, 0.03073, 0.00979, 0.00302, 0.02029, - . 0.48183, 0.18860, 0.57706, 0.02990, 0.01002, 0.00352, 0.02001, - . 0.47228, 0.18354, 0.53647, 0.02915, 0.01008, 0.00397, 0.01964, - . 0.46325, 0.17872, 0.50005, 0.02840, 0.01009, 0.00426, 0.01927, - . 0.45471, 0.17419, 0.46743, 0.02767, 0.01010, 0.00448, 0.01892, - . 0.44634, 0.17002, 0.43775, 0.02695, 0.01010, 0.00469, 0.01858, - . 0.43840, 0.16608, 0.41100, 0.02625, 0.01009, 0.00485, 0.01823, - . 0.43079, 0.16232, 0.38671, 0.02558, 0.01008, 0.00496, 0.01786, - . 0.42355, 0.15871, 0.36459, 0.02495, 0.01001, 0.00505, 0.01749, - . 0.41662, 0.15524, 0.34439, 0.02436, 0.00989, 0.00514, 0.01712, - . 0.40999, 0.15194, 0.32597, 0.02378, 0.00980, 0.00521, 0.01677 / - DATA ((F(I,27,M),I=1,5),F(7,27,M),F(6,27,M),M=1,19) / - . 0.59256, 0.24099, 1.13199, 0.02668, 0.00074, 0.00017, 0.01373, - . 0.57335, 0.22916, 1.00047, 0.02645, 0.00266, 0.00010, 0.01462, - . 0.55562, 0.21877, 0.88997, 0.02591, 0.00417, 0.00008, 0.01516, - . 0.53907, 0.20970, 0.79632, 0.02537, 0.00513, 0.00018, 0.01529, - . 0.52385, 0.20133, 0.71673, 0.02466, 0.00593, 0.00007, 0.01538, - . 0.50990, 0.19359, 0.64853, 0.02398, 0.00648, 0.00050, 0.01534, - . 0.49644, 0.18681, 0.58926, 0.02336, 0.00679, 0.00125, 0.01508, - . 0.48402, 0.18042, 0.53796, 0.02264, 0.00709, 0.00178, 0.01488, - . 0.47225, 0.17456, 0.49300, 0.02197, 0.00726, 0.00220, 0.01464, - . 0.46108, 0.16922, 0.45339, 0.02135, 0.00733, 0.00256, 0.01436, - . 0.45042, 0.16431, 0.41825, 0.02071, 0.00742, 0.00286, 0.01407, - . 0.44044, 0.15958, 0.38715, 0.02012, 0.00740, 0.00305, 0.01377, - . 0.43107, 0.15512, 0.35957, 0.01957, 0.00735, 0.00320, 0.01348, - . 0.42209, 0.15090, 0.33484, 0.01897, 0.00738, 0.00336, 0.01318, - . 0.41358, 0.14696, 0.31262, 0.01842, 0.00734, 0.00348, 0.01290, - . 0.40545, 0.14325, 0.29249, 0.01792, 0.00724, 0.00354, 0.01263, - . 0.39767, 0.13974, 0.27442, 0.01746, 0.00713, 0.00359, 0.01234, - . 0.39020, 0.13641, 0.25813, 0.01703, 0.00704, 0.00364, 0.01203, - . 0.38308, 0.13327, 0.24329, 0.01659, 0.00695, 0.00367, 0.01177 / - DATA ((F(I,28,M),I=1,5),F(7,28,M),F(6,28,M),M=1,19) / - . 0.58228, 0.22134, 0.97242, 0.01922, 0.00068, 0.00002, 0.01004, - . 0.55966, 0.20958, 0.84477, 0.01905, 0.00211, 0.00010, 0.01064, - . 0.53960, 0.19895, 0.74032, 0.01866, 0.00318, 0.00013, 0.01098, - . 0.52090, 0.18984, 0.65383, 0.01817, 0.00387, 0.00016, 0.01114, - . 0.50379, 0.18163, 0.58164, 0.01765, 0.00443, 0.00010, 0.01115, - . 0.48833, 0.17405, 0.52119, 0.01718, 0.00474, 0.00039, 0.01094, - . 0.47363, 0.16732, 0.46881, 0.01658, 0.00504, 0.00094, 0.01084, - . 0.45986, 0.16125, 0.42409, 0.01607, 0.00516, 0.00128, 0.01061, - . 0.44710, 0.15554, 0.38551, 0.01556, 0.00525, 0.00158, 0.01040, - . 0.43525, 0.15019, 0.35201, 0.01505, 0.00530, 0.00184, 0.01019, - . 0.42407, 0.14521, 0.32265, 0.01462, 0.00526, 0.00201, 0.00993, - . 0.41342, 0.14068, 0.29673, 0.01415, 0.00524, 0.00213, 0.00970, - . 0.40342, 0.13649, 0.27387, 0.01369, 0.00522, 0.00223, 0.00950, - . 0.39402, 0.13243, 0.25355, 0.01323, 0.00520, 0.00231, 0.00931, - . 0.38513, 0.12867, 0.23550, 0.01281, 0.00517, 0.00240, 0.00909, - . 0.37664, 0.12515, 0.21937, 0.01242, 0.00513, 0.00250, 0.00882, - . 0.36860, 0.12183, 0.20491, 0.01204, 0.00507, 0.00255, 0.00858, - . 0.36097, 0.11868, 0.19190, 0.01169, 0.00499, 0.00255, 0.00835, - . 0.35358, 0.11576, 0.18013, 0.01137, 0.00490, 0.00255, 0.00814 / - DATA ((F(I,29,M),I=1,5),F(7,29,M),F(6,29,M),M=1,19) / - . 0.56425, 0.20104, 0.81976, 0.01370, 0.00051, 0.00009, 0.00715, - . 0.53912, 0.18936, 0.70084, 0.01356, 0.00163, 0.00002, 0.00758, - . 0.51680, 0.17910, 0.60566, 0.01320, 0.00242, 0.00000, 0.00793, - . 0.49656, 0.17007, 0.52827, 0.01288, 0.00284, 0.00002, 0.00796, - . 0.47821, 0.16205, 0.46481, 0.01249, 0.00319, 0.00004, 0.00790, - . 0.46145, 0.15484, 0.41238, 0.01202, 0.00351, 0.00024, 0.00784, - . 0.44595, 0.14828, 0.36802, 0.01157, 0.00369, 0.00064, 0.00771, - . 0.43155, 0.14232, 0.33008, 0.01118, 0.00376, 0.00095, 0.00756, - . 0.41825, 0.13681, 0.29773, 0.01078, 0.00380, 0.00117, 0.00740, - . 0.40590, 0.13173, 0.26998, 0.01040, 0.00381, 0.00132, 0.00723, - . 0.39419, 0.12706, 0.24597, 0.01010, 0.00379, 0.00145, 0.00697, - . 0.38315, 0.12279, 0.22494, 0.00975, 0.00377, 0.00155, 0.00679, - . 0.37286, 0.11885, 0.20650, 0.00940, 0.00374, 0.00162, 0.00665, - . 0.36336, 0.11506, 0.19004, 0.00904, 0.00368, 0.00165, 0.00646, - . 0.35435, 0.11154, 0.17563, 0.00872, 0.00364, 0.00166, 0.00627, - . 0.34570, 0.10825, 0.16297, 0.00843, 0.00361, 0.00168, 0.00605, - . 0.33749, 0.10514, 0.15161, 0.00818, 0.00355, 0.00171, 0.00587, - . 0.32970, 0.10220, 0.14138, 0.00795, 0.00347, 0.00176, 0.00573, - . 0.32231, 0.09944, 0.13222, 0.00772, 0.00340, 0.00180, 0.00561 / - DATA ((F(I,30,M),I=1,5),F(7,30,M),F(6,30,M),M=1,19) / - . 0.53925, 0.18129, 0.67900, 0.00978, 0.00020,-0.00003, 0.00495, - . 0.51252, 0.16974, 0.57188, 0.00957, 0.00103,-0.00006, 0.00535, - . 0.48869, 0.15984, 0.48773, 0.00940, 0.00162,-0.00006, 0.00539, - . 0.46755, 0.15101, 0.42069, 0.00907, 0.00191,-0.00004, 0.00555, - . 0.44830, 0.14335, 0.36664, 0.00872, 0.00226,-0.00011, 0.00553, - . 0.43082, 0.13653, 0.32200, 0.00843, 0.00242, 0.00008, 0.00539, - . 0.41488, 0.13030, 0.28516, 0.00805, 0.00261, 0.00038, 0.00530, - . 0.40020, 0.12457, 0.25382, 0.00777, 0.00260, 0.00055, 0.00521, - . 0.38656, 0.11943, 0.22729, 0.00749, 0.00260, 0.00071, 0.00507, - . 0.37387, 0.11476, 0.20474, 0.00721, 0.00263, 0.00085, 0.00490, - . 0.36198, 0.11043, 0.18541, 0.00697, 0.00263, 0.00094, 0.00476, - . 0.35113, 0.10637, 0.16877, 0.00664, 0.00264, 0.00103, 0.00466, - . 0.34108, 0.10261, 0.15430, 0.00633, 0.00264, 0.00109, 0.00457, - . 0.33130, 0.09918, 0.14140, 0.00614, 0.00259, 0.00111, 0.00441, - . 0.32218, 0.09596, 0.13013, 0.00594, 0.00254, 0.00114, 0.00426, - . 0.31362, 0.09291, 0.12026, 0.00573, 0.00248, 0.00117, 0.00413, - . 0.30549, 0.09005, 0.11149, 0.00554, 0.00242, 0.00117, 0.00401, - . 0.29775, 0.08738, 0.10364, 0.00537, 0.00237, 0.00115, 0.00391, - . 0.29044, 0.08487, 0.09663, 0.00521, 0.00233, 0.00115, 0.00381 / - DATA ((F(I,31,M),I=1,5),F(7,31,M),F(6,31,M),M=1,19) / - . 0.50956, 0.16073, 0.55183, 0.00658, 0.00037, 0.00016, 0.00354, - . 0.48147, 0.14981, 0.45804, 0.00651, 0.00092, 0.00011, 0.00378, - . 0.45674, 0.14051, 0.38600, 0.00635, 0.00127, 0.00013, 0.00389, - . 0.43481, 0.13235, 0.32948, 0.00610, 0.00156, 0.00004, 0.00389, - . 0.41530, 0.12507, 0.28430, 0.00590, 0.00165, 0.00014, 0.00388, - . 0.39793, 0.11861, 0.24704, 0.00561, 0.00179, 0.00012, 0.00375, - . 0.38144, 0.11288, 0.21720, 0.00544, 0.00189, 0.00041, 0.00372, - . 0.36673, 0.10763, 0.19211, 0.00521, 0.00189, 0.00055, 0.00358, - . 0.35307, 0.10289, 0.17102, 0.00500, 0.00186, 0.00059, 0.00347, - . 0.34038, 0.09857, 0.15320, 0.00481, 0.00182, 0.00061, 0.00340, - . 0.32883, 0.09458, 0.13806, 0.00461, 0.00182, 0.00069, 0.00330, - . 0.31783, 0.09093, 0.12500, 0.00445, 0.00184, 0.00078, 0.00321, - . 0.30758, 0.08756, 0.11369, 0.00429, 0.00185, 0.00083, 0.00311, - . 0.29820, 0.08432, 0.10381, 0.00410, 0.00178, 0.00076, 0.00300, - . 0.28933, 0.08137, 0.09518, 0.00396, 0.00173, 0.00075, 0.00288, - . 0.28082, 0.07870, 0.08758, 0.00387, 0.00171, 0.00081, 0.00277, - . 0.27290, 0.07616, 0.08091, 0.00376, 0.00167, 0.00082, 0.00268, - . 0.26550, 0.07374, 0.07501, 0.00362, 0.00163, 0.00080, 0.00260, - . 0.25853, 0.07148, 0.06974, 0.00348, 0.00158, 0.00079, 0.00252 / - DATA ((F(I,32,M),I=1,5),F(7,32,M),F(6,32,M),M=1,19) / - . 0.47552, 0.14182, 0.44104, 0.00453, 0.00014,-0.00001, 0.00240, - . 0.44681, 0.13155, 0.36120, 0.00446, 0.00056,-0.00002, 0.00256, - . 0.42189, 0.12271, 0.30064, 0.00440, 0.00075,-0.00003, 0.00254, - . 0.39992, 0.11500, 0.25422, 0.00419, 0.00102,-0.00004, 0.00259, - . 0.38054, 0.10831, 0.21735, 0.00395, 0.00115, 0.00000, 0.00257, - . 0.36285, 0.10241, 0.18788, 0.00383, 0.00119, 0.00003, 0.00251, - . 0.34679, 0.09711, 0.16371, 0.00374, 0.00122, 0.00023, 0.00245, - . 0.33221, 0.09234, 0.14388, 0.00350, 0.00127, 0.00025, 0.00237, - . 0.31878, 0.08800, 0.12732, 0.00337, 0.00129, 0.00031, 0.00231, - . 0.30640, 0.08405, 0.11336, 0.00329, 0.00127, 0.00038, 0.00226, - . 0.29506, 0.08044, 0.10158, 0.00312, 0.00122, 0.00039, 0.00218, - . 0.28462, 0.07711, 0.09149, 0.00298, 0.00119, 0.00044, 0.00208, - . 0.27499, 0.07404, 0.08283, 0.00285, 0.00116, 0.00049, 0.00198, - . 0.26590, 0.07120, 0.07543, 0.00273, 0.00114, 0.00051, 0.00191, - . 0.25738, 0.06857, 0.06896, 0.00263, 0.00111, 0.00052, 0.00185, - . 0.24931, 0.06615, 0.06326, 0.00254, 0.00108, 0.00053, 0.00180, - . 0.24174, 0.06387, 0.05825, 0.00248, 0.00105, 0.00053, 0.00175, - . 0.23462, 0.06173, 0.05382, 0.00243, 0.00102, 0.00053, 0.00170, - . 0.22798, 0.05971, 0.04990, 0.00235, 0.00099, 0.00052, 0.00164 / - DATA ((F(I,33,M),I=1,5),F(7,33,M),F(6,33,M),M=1,19) / - . 0.43863, 0.12327, 0.34578, 0.00296, 0.00015, 0.00006, 0.00165, - . 0.41024, 0.11375, 0.27943, 0.00286, 0.00042, 0.00006, 0.00175, - . 0.38542, 0.10568, 0.23018, 0.00282, 0.00061, 0.00000, 0.00178, - . 0.36340, 0.09875, 0.19275, 0.00276, 0.00079, 0.00004, 0.00179, - . 0.34409, 0.09257, 0.16335, 0.00271, 0.00087, 0.00001, 0.00171, - . 0.32710, 0.08725, 0.14017, 0.00249, 0.00086, 0.00002, 0.00172, - . 0.31150, 0.08249, 0.12133, 0.00240, 0.00082, 0.00010, 0.00168, - . 0.29748, 0.07809, 0.10595, 0.00234, 0.00083, 0.00024, 0.00161, - . 0.28460, 0.07421, 0.09324, 0.00226, 0.00084, 0.00031, 0.00153, - . 0.27274, 0.07075, 0.08263, 0.00217, 0.00084, 0.00033, 0.00147, - . 0.26190, 0.06754, 0.07371, 0.00209, 0.00080, 0.00034, 0.00141, - . 0.25188, 0.06456, 0.06614, 0.00199, 0.00077, 0.00034, 0.00135, - . 0.24261, 0.06183, 0.05966, 0.00190, 0.00075, 0.00034, 0.00130, - . 0.23382, 0.05940, 0.05409, 0.00186, 0.00075, 0.00034, 0.00123, - . 0.22578, 0.05711, 0.04926, 0.00180, 0.00075, 0.00034, 0.00119, - . 0.21842, 0.05491, 0.04506, 0.00171, 0.00074, 0.00033, 0.00118, - . 0.21149, 0.05288, 0.04139, 0.00162, 0.00072, 0.00033, 0.00113, - . 0.20496, 0.05100, 0.03817, 0.00153, 0.00069, 0.00034, 0.00106, - . 0.19877, 0.04925, 0.03531, 0.00146, 0.00067, 0.00034, 0.00101 / - DATA ((F(I,34,M),I=1,5),F(7,34,M),F(6,34,M),M=1,19) / - . 0.40002, 0.10618, 0.26626, 0.00189, 0.00013, 0.00006, 0.00113, - . 0.37203, 0.09758, 0.21272, 0.00187, 0.00032, 0.00007, 0.00119, - . 0.34785, 0.09026, 0.17344, 0.00183, 0.00039, 0.00010, 0.00119, - . 0.32671, 0.08393, 0.14405, 0.00182, 0.00046, 0.00001, 0.00112, - . 0.30823, 0.07848, 0.12115, 0.00175, 0.00052, 0.00004, 0.00109, - . 0.29166, 0.07371, 0.10299, 0.00170, 0.00049, 0.00002, 0.00105, - . 0.27687, 0.06943, 0.08863, 0.00164, 0.00050, 0.00006, 0.00099, - . 0.26356, 0.06557, 0.07697, 0.00151, 0.00054, 0.00010, 0.00098, - . 0.25152, 0.06210, 0.06739, 0.00141, 0.00052, 0.00012, 0.00096, - . 0.24051, 0.05898, 0.05943, 0.00135, 0.00047, 0.00014, 0.00093, - . 0.23025, 0.05617, 0.05282, 0.00132, 0.00048, 0.00017, 0.00086, - . 0.22088, 0.05359, 0.04721, 0.00126, 0.00048, 0.00020, 0.00084, - . 0.21227, 0.05123, 0.04243, 0.00121, 0.00049, 0.00023, 0.00082, - . 0.20406, 0.04907, 0.03836, 0.00117, 0.00048, 0.00019, 0.00077, - . 0.19661, 0.04706, 0.03485, 0.00112, 0.00046, 0.00018, 0.00074, - . 0.18986, 0.04516, 0.03181, 0.00106, 0.00045, 0.00020, 0.00072, - . 0.18336, 0.04343, 0.02915, 0.00103, 0.00043, 0.00021, 0.00069, - . 0.17710, 0.04185, 0.02683, 0.00103, 0.00041, 0.00020, 0.00064, - . 0.17136, 0.04036, 0.02478, 0.00099, 0.00039, 0.00018, 0.00061 / - DATA ((F(I,35,M),I=1,5),F(7,35,M),F(6,35,M),M=1,19) / - . 0.36031, 0.09044, 0.20058, 0.00126, 0.00011, 0.00004, 0.00067, - . 0.33313, 0.08255, 0.15862, 0.00128, 0.00017, 0.00003, 0.00070, - . 0.30994, 0.07604, 0.12803, 0.00118, 0.00026, 0.00001, 0.00079, - . 0.28974, 0.07039, 0.10519, 0.00117, 0.00031,-0.00005, 0.00068, - . 0.27255, 0.06547, 0.08769, 0.00106, 0.00031,-0.00001, 0.00071, - . 0.25689, 0.06128, 0.07410, 0.00103, 0.00035, 0.00001, 0.00072, - . 0.24290, 0.05751, 0.06330, 0.00102, 0.00037, 0.00007, 0.00070, - . 0.23047, 0.05421, 0.05465, 0.00093, 0.00037, 0.00011, 0.00068, - . 0.21914, 0.05120, 0.04761, 0.00089, 0.00036, 0.00010, 0.00063, - . 0.20876, 0.04844, 0.04182, 0.00089, 0.00035, 0.00008, 0.00057, - . 0.19921, 0.04598, 0.03702, 0.00084, 0.00034, 0.00010, 0.00058, - . 0.19060, 0.04376, 0.03296, 0.00081, 0.00034, 0.00011, 0.00056, - . 0.18275, 0.04173, 0.02952, 0.00078, 0.00034, 0.00013, 0.00053, - . 0.17548, 0.03982, 0.02664, 0.00070, 0.00032, 0.00011, 0.00050, - . 0.16870, 0.03809, 0.02415, 0.00066, 0.00032, 0.00011, 0.00047, - . 0.16230, 0.03652, 0.02198, 0.00065, 0.00032, 0.00011, 0.00044, - . 0.15638, 0.03506, 0.02011, 0.00064, 0.00032, 0.00012, 0.00043, - . 0.15088, 0.03371, 0.01848, 0.00063, 0.00031, 0.00013, 0.00043, - . 0.14577, 0.03243, 0.01704, 0.00060, 0.00031, 0.00014, 0.00043 / - DATA ((F(I,36,M),I=1,5),F(7,36,M),F(6,36,M),M=1,19) / - . 0.32078, 0.07613, 0.14877, 0.00082, 0.00002,-0.00001, 0.00039, - . 0.29500, 0.06916, 0.11617, 0.00082, 0.00006,-0.00007, 0.00038, - . 0.27308, 0.06336, 0.09288, 0.00084, 0.00014, 0.00001, 0.00039, - . 0.25438, 0.05849, 0.07567, 0.00077, 0.00018,-0.00005, 0.00043, - . 0.23803, 0.05425, 0.06265, 0.00075, 0.00018,-0.00004, 0.00043, - . 0.22388, 0.05054, 0.05268, 0.00064, 0.00016,-0.00007, 0.00042, - . 0.21075, 0.04730, 0.04480, 0.00067, 0.00021,-0.00001, 0.00044, - . 0.19927, 0.04442, 0.03845, 0.00065, 0.00021, 0.00001, 0.00038, - . 0.18901, 0.04181, 0.03336, 0.00059, 0.00019, 0.00002, 0.00035, - . 0.17970, 0.03946, 0.02922, 0.00052, 0.00016, 0.00002, 0.00035, - . 0.17111, 0.03739, 0.02575, 0.00051, 0.00019, 0.00004, 0.00037, - . 0.16320, 0.03549, 0.02288, 0.00052, 0.00019, 0.00007, 0.00035, - . 0.15597, 0.03374, 0.02045, 0.00052, 0.00018, 0.00009, 0.00032, - . 0.14943, 0.03214, 0.01839, 0.00048, 0.00017, 0.00009, 0.00030, - . 0.14340, 0.03069, 0.01663, 0.00044, 0.00017, 0.00009, 0.00030, - . 0.13781, 0.02936, 0.01512, 0.00039, 0.00019, 0.00007, 0.00030, - . 0.13253, 0.02813, 0.01381, 0.00036, 0.00020, 0.00007, 0.00029, - . 0.12753, 0.02698, 0.01267, 0.00035, 0.00020, 0.00008, 0.00027, - . 0.12292, 0.02590, 0.01167, 0.00035, 0.00018, 0.00008, 0.00025 / - DATA ((F(I,37,M),I=1,5),F(7,37,M),F(6,37,M),M=1,19) / - . 0.28175, 0.06315, 0.10775, 0.00053, 0.00002,-0.00002, 0.00024, - . 0.25773, 0.05714, 0.08327, 0.00053, 0.00005,-0.00005, 0.00024, - . 0.23779, 0.05208, 0.06595, 0.00050, 0.00010, 0.00003, 0.00027, - . 0.22023, 0.04781, 0.05332, 0.00052, 0.00011, 0.00000, 0.00024, - . 0.20554, 0.04424, 0.04384, 0.00041, 0.00007,-0.00005, 0.00023, - . 0.19201, 0.04104, 0.03660, 0.00049, 0.00012,-0.00003, 0.00021, - . 0.18043, 0.03829, 0.03097, 0.00044, 0.00010,-0.00003, 0.00021, - . 0.17023, 0.03587, 0.02648, 0.00039, 0.00009, 0.00001, 0.00023, - . 0.16089, 0.03368, 0.02289, 0.00037, 0.00011, 0.00003, 0.00023, - . 0.15237, 0.03171, 0.01997, 0.00035, 0.00012, 0.00003, 0.00022, - . 0.14475, 0.02996, 0.01756, 0.00032, 0.00009, 0.00000, 0.00019, - . 0.13772, 0.02836, 0.01555, 0.00033, 0.00010, 0.00001, 0.00018, - . 0.13129, 0.02689, 0.01387, 0.00034, 0.00011, 0.00003, 0.00017, - . 0.12546, 0.02556, 0.01247, 0.00029, 0.00010, 0.00001, 0.00017, - . 0.12011, 0.02434, 0.01126, 0.00026, 0.00009, 0.00001, 0.00017, - . 0.11516, 0.02320, 0.01023, 0.00025, 0.00011, 0.00004, 0.00017, - . 0.11056, 0.02218, 0.00933, 0.00023, 0.00011, 0.00005, 0.00016, - . 0.10626, 0.02126, 0.00855, 0.00022, 0.00010, 0.00006, 0.00016, - . 0.10224, 0.02039, 0.00787, 0.00021, 0.00010, 0.00006, 0.00015 / - DATA ((F(I,38,M),I=1,5),F(7,38,M),F(6,38,M),M=1,19) / - . 0.24454, 0.05173, 0.07630, 0.00033,-0.00006,-0.00009, 0.00007, - . 0.22257, 0.04648, 0.05834, 0.00036, 0.00006,-0.00005, 0.00012, - . 0.20381, 0.04224, 0.04570, 0.00035, 0.00003,-0.00004, 0.00015, - . 0.18848, 0.03857, 0.03670, 0.00028, 0.00005,-0.00003, 0.00010, - . 0.17453, 0.03555, 0.02995, 0.00030, 0.00004,-0.00008, 0.00013, - . 0.16321, 0.03286, 0.02488, 0.00016, 0.00007,-0.00009, 0.00013, - . 0.15259, 0.03052, 0.02093, 0.00025, 0.00006,-0.00006, 0.00012, - . 0.14337, 0.02848, 0.01783, 0.00022, 0.00007,-0.00003, 0.00013, - . 0.13509, 0.02665, 0.01536, 0.00020, 0.00007,-0.00001, 0.00013, - . 0.12761, 0.02503, 0.01337, 0.00019, 0.00007, 0.00000, 0.00012, - . 0.12086, 0.02358, 0.01173, 0.00017, 0.00006, 0.00001, 0.00011, - . 0.11471, 0.02225, 0.01037, 0.00015, 0.00006, 0.00002, 0.00011, - . 0.10913, 0.02105, 0.00923, 0.00014, 0.00007, 0.00002, 0.00012, - . 0.10398, 0.01996, 0.00828, 0.00013, 0.00008, 0.00002, 0.00011, - . 0.09924, 0.01896, 0.00747, 0.00013, 0.00009, 0.00003, 0.00010, - . 0.09484, 0.01805, 0.00678, 0.00015, 0.00010, 0.00004, 0.00012, - . 0.09083, 0.01721, 0.00618, 0.00014, 0.00009, 0.00004, 0.00012, - . 0.08716, 0.01644, 0.00566, 0.00011, 0.00007, 0.00004, 0.00011, - . 0.08370, 0.01572, 0.00521, 0.00010, 0.00007, 0.00003, 0.00011 / - DATA ((F(I,39,M),I=1,5),F(7,39,M),F(6,39,M),M=1,19) / - . 0.20903, 0.04168, 0.05261, 0.00022,-0.00002,-0.00002, 0.00005, - . 0.18910, 0.03726, 0.03975, 0.00018, 0.00000,-0.00004, 0.00007, - . 0.17233, 0.03364, 0.03091, 0.00024,-0.00001,-0.00008, 0.00006, - . 0.15841, 0.03062, 0.02462, 0.00021, 0.00002,-0.00003, 0.00011, - . 0.14648, 0.02807, 0.01996, 0.00017, 0.00002,-0.00005, 0.00011, - . 0.13626, 0.02583, 0.01651, 0.00013, 0.00004,-0.00002, 0.00009, - . 0.12688, 0.02392, 0.01383, 0.00016, 0.00002,-0.00002, 0.00009, - . 0.11869, 0.02222, 0.01175, 0.00014, 0.00004,-0.00003, 0.00009, - . 0.11156, 0.02074, 0.01008, 0.00010, 0.00005,-0.00001, 0.00009, - . 0.10522, 0.01942, 0.00875, 0.00007, 0.00006, 0.00002, 0.00008, - . 0.09931, 0.01822, 0.00767, 0.00008, 0.00004, 0.00000, 0.00006, - . 0.09391, 0.01716, 0.00677, 0.00009, 0.00005, 0.00001, 0.00006, - . 0.08904, 0.01621, 0.00602, 0.00009, 0.00006, 0.00001, 0.00007, - . 0.08471, 0.01533, 0.00540, 0.00006, 0.00006, 0.00002, 0.00007, - . 0.08071, 0.01452, 0.00487, 0.00005, 0.00006, 0.00003, 0.00007, - . 0.07699, 0.01379, 0.00442, 0.00005, 0.00006, 0.00003, 0.00007, - . 0.07356, 0.01312, 0.00403, 0.00004, 0.00006, 0.00004, 0.00008, - . 0.07039, 0.01250, 0.00369, 0.00003, 0.00006, 0.00003, 0.00008, - . 0.06745, 0.01193, 0.00340, 0.00003, 0.00006, 0.00003, 0.00008 / - DATA ((F(I,40,M),I=1,5),F(7,40,M),F(6,40,M),M=1,19) / - . 0.17631, 0.03314, 0.03550, 0.00015,-0.00010,-0.00012,-0.00005, - . 0.15869, 0.02945, 0.02657, 0.00017,-0.00003,-0.00006, 0.00001, - . 0.14415, 0.02645, 0.02048, 0.00011,-0.00002,-0.00008, 0.00001, - . 0.13179, 0.02399, 0.01621, 0.00012,-0.00002,-0.00006, 0.00003, - . 0.12124, 0.02187, 0.01309, 0.00013, 0.00003,-0.00003, 0.00005, - . 0.11218, 0.02011, 0.01078, 0.00011, 0.00000,-0.00006, 0.00002, - . 0.10434, 0.01851, 0.00902, 0.00006, 0.00001,-0.00005, 0.00003, - . 0.09724, 0.01715, 0.00765, 0.00008, 0.00001,-0.00004, 0.00003, - . 0.09095, 0.01596, 0.00656, 0.00009, 0.00002,-0.00003, 0.00003, - . 0.08540, 0.01491, 0.00568, 0.00007, 0.00002,-0.00003, 0.00002, - . 0.08050, 0.01395, 0.00497, 0.00005, 0.00001,-0.00001, 0.00004, - . 0.07596, 0.01310, 0.00440, 0.00005, 0.00002, 0.00000, 0.00005, - . 0.07184, 0.01234, 0.00391, 0.00006, 0.00004, 0.00000, 0.00005, - . 0.06814, 0.01164, 0.00351, 0.00006, 0.00003, 0.00001, 0.00004, - . 0.06475, 0.01101, 0.00316, 0.00005, 0.00003, 0.00001, 0.00004, - . 0.06162, 0.01042, 0.00287, 0.00004, 0.00003, 0.00001, 0.00004, - . 0.05873, 0.00989, 0.00262, 0.00004, 0.00003, 0.00001, 0.00004, - . 0.05604, 0.00941, 0.00240, 0.00005, 0.00002, 0.00001, 0.00003, - . 0.05358, 0.00897, 0.00221, 0.00005, 0.00002, 0.00001, 0.00003 / - DATA ((F(I,41,M),I=1,5),F(7,41,M),F(6,41,M),M=1,19) / - . 0.14600, 0.02568, 0.02305, 0.00007,-0.00002,-0.00003, 0.00001, - . 0.13062, 0.02277, 0.01716, 0.00009,-0.00002,-0.00003,-0.00001, - . 0.11797, 0.02038, 0.01318, 0.00008, 0.00001,-0.00002, 0.00000, - . 0.10747, 0.01839, 0.01039, 0.00006,-0.00002,-0.00003,-0.00001, - . 0.09860, 0.01671, 0.00838, 0.00005, 0.00000, 0.00000, 0.00003, - . 0.09073, 0.01530, 0.00689, 0.00009,-0.00001,-0.00002, 0.00001, - . 0.08405, 0.01409, 0.00576, 0.00006, 0.00000,-0.00001, 0.00001, - . 0.07820, 0.01300, 0.00487, 0.00005, 0.00000,-0.00001, 0.00001, - . 0.07299, 0.01206, 0.00418, 0.00005, 0.00000,-0.00001, 0.00001, - . 0.06834, 0.01122, 0.00362, 0.00005, 0.00000,-0.00001, 0.00000, - . 0.06419, 0.01048, 0.00317, 0.00004, 0.00001,-0.00001, 0.00001, - . 0.06039, 0.00982, 0.00280, 0.00004, 0.00001, 0.00000, 0.00001, - . 0.05696, 0.00923, 0.00250, 0.00005, 0.00001, 0.00000, 0.00000, - . 0.05389, 0.00869, 0.00224, 0.00004, 0.00000, 0.00000, 0.00001, - . 0.05108, 0.00820, 0.00202, 0.00004, 0.00000, 0.00000, 0.00001, - . 0.04849, 0.00775, 0.00184, 0.00004, 0.00000,-0.00001, 0.00000, - . 0.04614, 0.00734, 0.00168, 0.00004, 0.00000,-0.00001, 0.00000, - . 0.04399, 0.00697, 0.00154, 0.00003, 0.00000, 0.00000, 0.00000, - . 0.04199, 0.00663, 0.00142, 0.00002, 0.00000, 0.00000, 0.00000 / - DATA ((F(I,42,M),I=1,5),F(7,42,M),F(6,42,M),M=1,19) / - . 0.09475, 0.01458, 0.00880, 0.00000, 0.00000,-0.00001,-0.00001, - . 0.08369, 0.01275, 0.00645, 0.00001, 0.00000,-0.00002, 0.00000, - . 0.07467, 0.01127, 0.00490, 0.00005, 0.00001, 0.00000, 0.00001, - . 0.06742, 0.01007, 0.00383, 0.00001, 0.00001,-0.00001, 0.00000, - . 0.06110, 0.00909, 0.00308, 0.00004, 0.00000, 0.00000, 0.00000, - . 0.05598, 0.00824, 0.00252,-0.00001, 0.00000,-0.00002, 0.00000, - . 0.05144, 0.00752, 0.00210, 0.00000, 0.00001, 0.00001, 0.00001, - . 0.04743, 0.00689, 0.00178, 0.00001, 0.00001, 0.00002, 0.00002, - . 0.04395, 0.00635, 0.00153, 0.00001, 0.00001, 0.00001, 0.00002, - . 0.04088, 0.00587, 0.00133, 0.00000, 0.00000, 0.00000, 0.00001, - . 0.03810, 0.00545, 0.00116, 0.00000, 0.00000, 0.00000, 0.00001, - . 0.03564, 0.00507, 0.00103, 0.00000, 0.00001, 0.00000, 0.00001, - . 0.03343, 0.00473, 0.00092, 0.00001, 0.00001, 0.00000, 0.00001, - . 0.03142, 0.00443, 0.00083, 0.00001, 0.00001, 0.00000, 0.00001, - . 0.02961, 0.00416, 0.00075, 0.00001, 0.00001, 0.00000, 0.00000, - . 0.02797, 0.00391, 0.00068, 0.00001, 0.00001, 0.00000, 0.00001, - . 0.02647, 0.00369, 0.00063, 0.00001, 0.00001, 0.00000, 0.00001, - . 0.02511, 0.00349, 0.00058, 0.00001, 0.00000, 0.00000, 0.00001, - . 0.02386, 0.00330, 0.00053, 0.00000, 0.00000, 0.00000, 0.00001 / - DATA ((F(I,43,M),I=1,5),F(7,43,M),F(6,43,M),M=1,19) / - . 0.05613, 0.00748, 0.00285, 0.00002, 0.00000,-0.00001, 0.00000, - . 0.04898, 0.00646, 0.00207, 0.00002, 0.00000,-0.00002,-0.00001, - . 0.04331, 0.00565, 0.00157, 0.00000,-0.00001, 0.00000, 0.00000, - . 0.03867, 0.00499, 0.00123, 0.00000,-0.00001, 0.00000, 0.00000, - . 0.03478, 0.00446, 0.00099,-0.00002, 0.00000,-0.00001, 0.00000, - . 0.03139, 0.00401, 0.00082, 0.00001, 0.00000,-0.00001, 0.00000, - . 0.02859, 0.00362, 0.00068, 0.00001, 0.00000, 0.00000, 0.00000, - . 0.02617, 0.00330, 0.00058, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.02407, 0.00301, 0.00050, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.02222, 0.00277, 0.00044, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.02057, 0.00255, 0.00039, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.01912, 0.00236, 0.00035, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.01783, 0.00218, 0.00031, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.01665, 0.00203, 0.00028, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.01560, 0.00190, 0.00026, 0.00001, 0.00000, 0.00000, 0.00000, - . 0.01467, 0.00178, 0.00023, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.01381, 0.00167, 0.00022, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.01302, 0.00157, 0.00020, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.01230, 0.00148, 0.00018, 0.00000, 0.00000, 0.00000, 0.00000 / - DATA ((F(I,44,M),I=1,5),F(7,44,M),F(6,44,M),M=1,19) / - . 0.02942, 0.00332, 0.00073, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.02533, 0.00283, 0.00054, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.02208, 0.00244, 0.00041, 0.00000,-0.00001, 0.00000, 0.00000, - . 0.01946, 0.00213, 0.00033, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.01730, 0.00188, 0.00027, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.01549, 0.00168, 0.00023, 0.00001, 0.00000, 0.00000, 0.00000, - . 0.01398, 0.00150, 0.00019, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.01268, 0.00136, 0.00017, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.01156, 0.00123, 0.00015, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.01059, 0.00112, 0.00013, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00973, 0.00102, 0.00011, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00898, 0.00094, 0.00010, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00832, 0.00087, 0.00009, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00772, 0.00080, 0.00008, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00719, 0.00074, 0.00008, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00672, 0.00069, 0.00007, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00629, 0.00064, 0.00007, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00589, 0.00060, 0.00006, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00554, 0.00056, 0.00006, 0.00000, 0.00000, 0.00000, 0.00000 / - DATA ((F(I,45,M),I=1,5),F(7,45,M),F(6,45,M),M=1,19) / - . 0.01301, 0.00121, 0.00014, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.01101, 0.00101, 0.00011, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00944, 0.00086, 0.00008, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00820, 0.00074, 0.00007, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00719, 0.00064, 0.00006, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00637, 0.00057, 0.00005, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00568, 0.00050, 0.00004, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00510, 0.00045, 0.00004, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00460, 0.00040, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00417, 0.00036, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00381, 0.00033, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00348, 0.00030, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00319, 0.00027, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00294, 0.00025, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00272, 0.00023, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00252, 0.00021, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00234, 0.00020, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00218, 0.00018, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00203, 0.00017, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000 / - DATA ((F(I,46,M),I=1,5),F(7,46,M),F(6,46,M),M=1,19) / - . 0.00090, 0.00005, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00073, 0.00004, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00060, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00050, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00043, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00036, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00031, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00027, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00024, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00021, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00019, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00017, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00015, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00014, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00010, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, - . 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000 / - -C -C don't let x be altered if it's out of range!! -C - XSAVE=X -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C 1=UV 2=DV 3=GLUE 4=(UBAR+DBAR)/2 5=CBAR 7=BBAR 6=SBAR - DO 25 I=1,7 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=1,6 - DO 30 K=1,19 - 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) - DO 40 I=1,7 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,7 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) -C -C this sea is (ubar+dbar)/2 -C - SEA=G(4) - STR=G(6) - CHM=G(5) - GL =G(3) - BOT=G(7) -C -C restore x -C - X=XSAVE -C - RETURN - END diff --git a/PDF/spdf/strkb0.F b/PDF/spdf/strkb0.F deleted file mode 100644 index 6820d5a4c41..00000000000 --- a/PDF/spdf/strkb0.F +++ /dev/null @@ -1,3038 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:34 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:29:58 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE STRKB0(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) - -C THIS IS THE NORMAL KMRS(B0) FIT (190 MeV) USEA=DSEA=2*STR - -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(8,NX,31),G(8),XX(NX),N0(8) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ - + 0.01727, 0.00137, 4.14718, 0.13665, 0.03357, - + 0.00000, 0.08600, 0.13665, - + 0.01763, 0.00154, 9.74113, 0.28680, 0.18390, - + 0.00000, 0.23628, 0.28680, - + 0.01797, 0.00169, 17.09975, 0.48357, 0.38081, - + 0.00000, 0.43315, 0.48357, - + 0.01828, 0.00183, 26.22037, 0.72720, 0.62457, - + 0.00000, 0.67687, 0.72720, - + 0.01858, 0.00197, 36.71242, 1.00782, 0.90529, - + 0.01690, 0.95757, 1.00782, - + 0.01886, 0.00211, 48.57324, 1.32668, 1.22422, - + 0.21238, 1.27648, 1.32668, - + 0.01912, 0.00224, 61.70306, 1.68246, 1.58007, - + 0.60144, 1.63232, 1.68246/ - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ - + 0.01938, 0.00236, 75.99297, 2.07332, 1.97098, - + 0.99713, 2.02322, 2.07332, - + 0.01962, 0.00248, 91.33727, 2.49708, 2.39479, - + 1.43030, 2.44703, 2.49708, - + 0.01986, 0.00260, 107.43649, 2.94648, 2.84421, - + 1.88753, 2.89645, 2.94648, - + 0.02009, 0.00272, 124.38155, 3.42428, 3.32204, - + 2.37281, 3.37428, 3.42428, - + 0.02031, 0.00283, 142.13774, 3.92982, 3.82760, - + 2.88542, 3.87985, 3.92982, - + 0.02053, 0.00295, 160.58954, 4.46035, 4.35815, - + 3.42263, 4.41040, 4.46035, - + 0.02074, 0.00306, 179.37915, 5.00696, 4.90476, - + 3.97556, 4.95702, 5.00696/ - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,21)/ - + 0.02095, 0.00316, 198.88515, 5.57920, 5.47701, - + 4.55381, 5.52928, 5.57920, - + 0.02115, 0.00327, 218.71463, 6.16713, 6.06494, - + 5.14746, 6.11722, 6.16713, - + 0.02134, 0.00337, 238.94661, 6.77271, 6.67052, - + 5.75851, 6.72282, 6.77271, - + 0.02153, 0.00347, 259.60815, 7.39661, 7.29440, - + 6.38763, 7.34672, 7.39661, - + 0.02172, 0.00357, 280.40967, 8.03133, 7.92911, - + 7.02736, 7.98144, 8.03133, - + 0.02190, 0.00367, 301.63110, 8.68404, 8.58179, - + 7.68486, 8.63414, 8.68404, - + 0.02208, 0.00377, 322.91235, 9.34515, 9.24290, - + 8.35059, 9.29527, 9.34515/ - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=22,30)/ - + 0.02226, 0.00386, 344.47388, 10.02039, 9.91812, - + 9.03026, 9.97050, 10.02039, - + 0.02243, 0.00396, 366.20508, 10.70673, 10.60444, - + 9.72087, 10.65684, 10.70673, - + 0.02260, 0.00405, 387.93677, 11.39950, 11.29717, - + 10.41777, 11.34959, 11.39950, - + 0.02276, 0.00414, 410.12598, 12.11082, 12.00848, - + 11.13307, 12.06092, 12.11082, - + 0.02293, 0.00423, 431.86841, 12.81634, 12.71398, - + 11.84244, 12.76643, 12.81634, - + 0.02308, 0.00432, 454.04346, 13.53953, 13.43713, - + 12.56934, 13.48961, 13.53953, - + 0.02324, 0.00440, 476.18799, 14.26770, 14.16528, - + 13.30113, 14.21778, 14.26770, - + 0.02340, 0.00449, 498.19897, 14.99781, 14.89537, - + 14.03476, 14.94789, 14.99781, - + 0.02355, 0.00458, 520.56665, 15.74333, 15.64085, - + 14.78366, 15.69339, 15.74333/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ - + 0.02115, 0.00210, 4.03986, 0.13824, 0.03153, - + 0.00000, 0.08549, 0.13824, - + 0.02166, 0.00234, 8.96050, 0.27329, 0.16660, - + 0.00000, 0.22057, 0.27329, - + 0.02212, 0.00257, 15.17996, 0.44380, 0.33711, - + 0.00000, 0.39110, 0.44380, - + 0.02255, 0.00278, 22.66025, 0.64940, 0.54270, - + 0.00000, 0.59671, 0.64940, - + 0.02295, 0.00298, 31.05817, 0.88140, 0.77468, - + 0.01386, 0.82873, 0.88140, - + 0.02333, 0.00318, 40.35976, 1.14050, 1.03376, - + 0.17228, 1.08783, 1.14050, - + 0.02369, 0.00336, 50.47510, 1.42533, 1.31855, - + 0.48476, 1.37266, 1.42533/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ - + 0.02404, 0.00355, 61.31216, 1.73411, 1.62730, - + 0.79789, 1.68144, 1.73411, - + 0.02437, 0.00372, 72.78514, 2.06493, 1.95807, - + 1.13674, 2.01225, 2.06493, - + 0.02469, 0.00389, 84.66566, 2.41194, 2.30504, - + 1.49049, 2.35925, 2.41194, - + 0.02500, 0.00406, 97.02478, 2.77726, 2.67032, - + 1.86223, 2.72456, 2.77726, - + 0.02529, 0.00422, 109.83669, 3.16030, 3.05330, - + 2.25132, 3.10758, 3.16030, - + 0.02558, 0.00438, 123.01701, 3.55888, 3.45183, - + 2.65562, 3.50615, 3.55888, - + 0.02586, 0.00454, 136.30722, 3.96619, 3.85910, - + 3.06835, 3.91345, 3.96619/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,21)/ - + 0.02613, 0.00469, 149.98785, 4.38954, 4.28239, - + 3.49683, 4.33678, 4.38954, - + 0.02640, 0.00484, 163.77657, 4.82138, 4.71418, - + 3.93358, 4.76860, 4.82138, - + 0.02666, 0.00499, 177.73506, 5.26327, 5.15601, - + 4.38014, 5.21047, 5.26327, - + 0.02691, 0.00513, 191.88643, 5.71572, 5.60841, - + 4.83705, 5.66290, 5.71572, - + 0.02715, 0.00527, 206.02808, 6.17319, 6.06581, - + 5.29879, 6.12035, 6.17319, - + 0.02739, 0.00541, 220.36298, 6.64104, 6.53361, - + 5.77074, 6.58818, 6.64104, - + 0.02763, 0.00554, 234.64095, 7.11228, 7.00479, - + 6.24592, 7.05939, 7.11228/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=22,30)/ - + 0.02786, 0.00567, 249.02074, 7.59113, 7.48358, - + 6.72855, 7.53822, 7.59113, - + 0.02808, 0.00581, 263.42871, 8.07545, 7.96784, - + 7.21651, 8.02250, 8.07545, - + 0.02830, 0.00593, 277.75098, 8.56191, 8.45424, - + 7.70649, 8.50894, 8.56191, - + 0.02852, 0.00606, 292.30566, 9.05935, 8.95162, - + 8.20732, 9.00636, 9.05935, - + 0.02873, 0.00619, 306.47656, 9.55019, 9.44240, - + 8.70145, 9.49717, 9.55019, - + 0.02894, 0.00631, 320.86890, 10.05143, 9.94358, - + 9.20586, 9.99838, 10.05143, - + 0.02915, 0.00643, 335.16748, 10.55401, 10.44609, - + 9.71151, 10.50094, 10.55401, - + 0.02935, 0.00655, 349.30664, 11.05582, 10.94785, - + 10.21630, 11.00273, 11.05582, - + 0.02954, 0.00667, 363.62109, 11.56649, 11.45847, - + 10.72987, 11.51338, 11.56649/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ - + 0.02581, 0.00322, 3.93502, 0.13973, 0.02939, - + 0.00000, 0.08490, 0.13973, - + 0.02649, 0.00357, 8.24120, 0.26052, 0.15004, - + 0.00000, 0.20564, 0.26052, - + 0.02712, 0.00390, 13.47276, 0.40765, 0.29702, - + 0.00000, 0.35270, 0.40765, - + 0.02769, 0.00421, 19.57806, 0.58047, 0.46971, - + 0.00000, 0.52547, 0.58047, - + 0.02823, 0.00451, 26.26634, 0.77156, 0.66065, - + 0.01132, 0.71650, 0.77156, - + 0.02874, 0.00479, 33.52313, 0.98132, 0.87028, - + 0.13924, 0.92620, 0.98132, - + 0.02923, 0.00506, 41.27425, 1.20846, 1.09729, - + 0.38933, 1.15329, 1.20846/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ - + 0.02969, 0.00532, 49.44673, 1.45145, 1.34015, - + 0.63622, 1.39623, 1.45145, - + 0.03013, 0.00558, 57.97556, 1.70868, 1.59726, - + 0.90031, 1.65340, 1.70868, - + 0.03056, 0.00582, 66.68988, 1.97554, 1.86399, - + 1.17296, 1.92020, 1.97554, - + 0.03096, 0.00606, 75.64777, 2.25369, 2.14202, - + 1.45661, 2.19830, 2.25369, - + 0.03136, 0.00629, 84.83273, 2.54266, 2.43087, - + 1.75078, 2.48722, 2.54266, - + 0.03174, 0.00652, 94.18532, 2.84079, 2.72889, - + 2.05381, 2.78530, 2.84079, - + 0.03211, 0.00674, 103.52109, 3.14293, 3.03092, - + 2.36059, 3.08739, 3.14293/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,21)/ - + 0.03247, 0.00695, 113.04878, 3.45468, 3.34256, - + 2.67674, 3.39909, 3.45468, - + 0.03282, 0.00716, 122.56744, 3.77040, 3.65817, - + 2.99664, 3.71476, 3.77040, - + 0.03316, 0.00737, 132.12633, 4.09128, 3.97895, - + 3.32153, 4.03560, 4.09128, - + 0.03349, 0.00757, 141.74492, 4.41779, 4.30535, - + 3.65185, 4.36206, 4.41779, - + 0.03381, 0.00777, 151.28378, 4.74585, 4.63331, - + 3.98356, 4.69007, 4.74585, - + 0.03412, 0.00796, 160.88939, 5.07950, 4.96686, - + 4.32071, 5.02367, 5.07950, - + 0.03443, 0.00815, 170.39052, 5.41365, 5.30090, - + 4.65822, 5.35778, 5.41365/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=22,30)/ - + 0.03473, 0.00834, 179.90065, 5.75144, 5.63860, - + 4.99925, 5.69553, 5.75144, - + 0.03502, 0.00852, 189.37146, 6.09137, 5.97843, - + 5.34229, 6.03541, 6.09137, - + 0.03531, 0.00870, 198.72797, 6.43109, 6.31806, - + 5.68501, 6.37508, 6.43109, - + 0.03559, 0.00887, 208.19124, 6.77702, 6.66390, - + 6.03384, 6.72097, 6.77702, - + 0.03587, 0.00905, 217.34251, 7.11656, 7.00334, - + 6.37617, 7.06046, 7.11656, - + 0.03614, 0.00922, 226.59697, 7.46200, 7.34869, - + 6.72432, 7.40587, 7.46200, - + 0.03641, 0.00938, 235.74290, 7.80686, 7.69347, - + 7.07180, 7.75069, 7.80686, - + 0.03667, 0.00955, 244.73792, 8.14973, 8.03622, - + 7.41720, 8.09349, 8.14973, - + 0.03692, 0.00971, 253.80948, 8.49747, 8.38387, - + 7.76740, 8.44118, 8.49747/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ - + 0.02893, 0.00413, 3.87473, 0.14055, 0.02810, - + 0.00000, 0.08453, 0.14055, - + 0.02974, 0.00457, 7.84653, 0.25338, 0.14069, - + 0.00000, 0.19726, 0.25338, - + 0.03048, 0.00499, 12.56228, 0.38804, 0.27512, - + 0.00000, 0.33181, 0.38804, - + 0.03116, 0.00537, 17.96925, 0.54385, 0.43071, - + 0.00000, 0.48753, 0.54385, - + 0.03180, 0.00574, 23.80748, 0.71409, 0.60075, - + 0.01004, 0.65767, 0.71409, - + 0.03240, 0.00609, 30.06538, 0.89909, 0.78555, - + 0.12269, 0.84258, 0.89909, - + 0.03297, 0.00643, 36.67871, 1.09766, 0.98393, - + 0.34182, 1.04106, 1.09766/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ - + 0.03352, 0.00675, 43.58598, 1.30842, 1.19452, - + 0.55625, 1.25174, 1.30842, - + 0.03404, 0.00706, 50.73314, 1.52996, 1.41588, - + 0.78405, 1.47320, 1.52996, - + 0.03454, 0.00737, 57.97787, 1.75831, 1.64406, - + 1.01769, 1.70146, 1.75831, - + 0.03502, 0.00766, 65.37230, 1.99491, 1.88050, - + 1.25932, 1.93799, 1.99491, - + 0.03548, 0.00794, 72.90512, 2.23939, 2.12482, - + 1.50855, 2.18239, 2.23939, - + 0.03593, 0.00822, 80.52847, 2.49034, 2.37562, - + 1.76398, 2.43327, 2.49034, - + 0.03637, 0.00849, 88.09204, 2.74342, 2.62854, - + 2.02129, 2.68628, 2.74342/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,21)/ - + 0.03679, 0.00876, 95.77158, 3.00342, 2.88840, - + 2.28531, 2.94621, 3.00342, - + 0.03720, 0.00901, 103.40367, 3.26559, 3.15044, - + 2.55131, 3.20832, 3.26559, - + 0.03759, 0.00926, 111.03078, 3.53100, 3.41570, - + 2.82036, 3.47366, 3.53100, - + 0.03798, 0.00951, 118.67154, 3.80005, 3.68462, - + 3.09289, 3.74265, 3.80005, - + 0.03836, 0.00975, 126.21417, 4.06936, 3.95381, - + 3.36555, 4.01190, 4.06936, - + 0.03872, 0.00998, 133.77983, 4.34238, 4.22670, - + 3.64175, 4.28486, 4.34238, - + 0.03908, 0.01021, 141.23096, 4.61486, 4.49906, - + 3.91730, 4.55728, 4.61486/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=22,30)/ - + 0.03943, 0.01044, 148.66248, 4.88948, 4.77356, - + 4.19487, 4.83184, 4.88948, - + 0.03978, 0.01066, 156.03589, 5.16500, 5.04896, - + 4.47323, 5.10731, 5.16500, - + 0.04011, 0.01087, 163.29279, 5.43953, 5.32337, - + 4.75050, 5.38177, 5.43953, - + 0.04044, 0.01109, 170.61198, 5.71839, 5.60213, - + 5.03200, 5.66059, 5.71839, - + 0.04076, 0.01130, 177.66032, 5.99121, 5.87484, - + 5.30737, 5.93335, 5.99121, - + 0.04108, 0.01150, 184.77011, 6.26816, 6.15168, - + 5.58679, 6.21025, 6.26816, - + 0.04138, 0.01170, 191.77373, 6.54395, 6.42735, - + 5.86496, 6.48598, 6.54395, - + 0.04169, 0.01190, 198.63910, 6.81740, 6.70071, - + 6.14074, 6.75939, 6.81740, - + 0.04199, 0.01210, 205.54785, 7.09421, 6.97742, - + 6.41979, 7.03615, 7.09421/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ - + 0.03134, 0.00493, 3.83235, 0.14111, 0.02716, - + 0.00000, 0.08427, 0.14111, - + 0.03225, 0.00545, 7.57737, 0.24846, 0.13420, - + 0.00000, 0.19148, 0.24846, - + 0.03308, 0.00593, 11.95233, 0.37478, 0.26023, - + 0.00000, 0.31766, 0.37478, - + 0.03385, 0.00639, 16.90590, 0.51940, 0.40458, - + 0.00000, 0.46214, 0.51940, - + 0.03457, 0.00681, 22.19968, 0.67608, 0.56101, - + 0.00921, 0.61870, 0.67608, - + 0.03524, 0.00722, 27.82472, 0.84513, 0.72981, - + 0.11204, 0.78764, 0.84513, - + 0.03588, 0.00761, 33.72424, 1.02544, 0.90990, - + 0.31136, 0.96785, 1.02544/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ - + 0.03649, 0.00799, 39.84422, 1.21576, 1.10000, - + 0.50519, 1.15806, 1.21576, - + 0.03708, 0.00835, 46.13820, 1.41480, 1.29883, - + 0.71009, 1.35700, 1.41480, - + 0.03764, 0.00870, 52.48160, 1.61900, 1.50283, - + 0.91927, 1.56110, 1.61900, - + 0.03818, 0.00904, 58.92308, 1.82969, 1.71334, - + 1.13468, 1.77170, 1.82969, - + 0.03870, 0.00937, 65.45433, 2.04655, 1.93001, - + 1.35600, 1.98847, 2.04655, - + 0.03920, 0.00969, 72.03506, 2.26835, 2.15163, - + 1.58200, 2.21019, 2.26835, - + 0.03969, 0.01000, 78.53560, 2.49124, 2.37434, - + 1.80886, 2.43298, 2.49124/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,21)/ - + 0.04016, 0.01031, 85.11166, 2.71952, 2.60246, - + 2.04091, 2.66118, 2.71952, - + 0.04061, 0.01060, 91.62201, 2.94899, 2.83177, - + 2.27397, 2.89058, 2.94899, - + 0.04106, 0.01089, 98.10550, 3.18062, 3.06325, - + 2.50902, 3.12214, 3.18062, - + 0.04149, 0.01117, 104.57967, 3.41482, 3.29729, - + 2.74648, 3.35626, 3.41482, - + 0.04191, 0.01145, 110.94926, 3.64862, 3.53094, - + 2.98341, 3.58998, 3.64862, - + 0.04232, 0.01172, 117.32042, 3.88506, 3.76724, - + 3.22284, 3.82636, 3.88506, - + 0.04272, 0.01198, 123.57565, 4.12046, 4.00250, - + 3.46112, 4.06169, 4.12046/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=22,30)/ - + 0.04311, 0.01224, 129.79749, 4.35719, 4.23910, - + 3.70062, 4.29836, 4.35719, - + 0.04349, 0.01249, 135.95435, 4.59419, 4.47597, - + 3.94028, 4.53529, 4.59419, - + 0.04387, 0.01274, 141.99765, 4.82981, 4.71146, - + 4.17846, 4.77085, 4.82981, - + 0.04423, 0.01298, 148.08049, 5.06873, 4.95026, - + 4.41986, 5.00971, 5.06873, - + 0.04459, 0.01322, 153.91960, 5.30194, 5.18333, - + 4.65546, 5.24285, 5.30194, - + 0.04494, 0.01346, 159.79941, 5.53830, 5.41958, - + 4.89414, 5.47916, 5.53830, - + 0.04528, 0.01369, 165.57805, 5.77323, 5.65439, - + 5.13130, 5.71402, 5.77323, - + 0.04562, 0.01391, 171.22862, 6.00575, 5.88679, - + 5.36599, 5.94648, 6.00575, - + 0.04595, 0.01414, 176.90543, 6.24077, 6.12171, - + 5.60312, 6.18145, 6.24077/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ - + 0.03332, 0.00566, 3.79968, 0.14154, 0.02642, - + 0.00000, 0.08406, 0.14154, - + 0.03432, 0.00625, 7.37448, 0.24473, 0.12925, - + 0.00000, 0.18708, 0.24473, - + 0.03523, 0.00679, 11.49857, 0.36486, 0.24904, - + 0.00000, 0.30705, 0.36486, - + 0.03607, 0.00730, 16.12267, 0.50126, 0.38513, - + 0.00000, 0.44329, 0.50126, - + 0.03686, 0.00778, 21.02475, 0.64808, 0.53166, - + 0.00861, 0.58997, 0.64808, - + 0.03759, 0.00824, 26.19827, 0.80560, 0.68892, - + 0.10436, 0.74737, 0.80560, - + 0.03829, 0.00868, 31.59203, 0.97281, 0.85587, - + 0.28944, 0.91445, 0.97281/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ - + 0.03896, 0.00910, 37.15771, 1.14852, 1.03133, - + 0.46854, 1.09004, 1.14852, - + 0.03960, 0.00951, 42.85422, 1.33156, 1.21414, - + 0.65716, 1.27297, 1.33156, - + 0.04021, 0.00990, 48.56958, 1.51867, 1.40102, - + 0.84901, 1.45996, 1.51867, - + 0.04080, 0.01028, 54.35023, 1.71109, 1.59322, - + 1.04592, 1.65227, 1.71109, - + 0.04137, 0.01065, 60.18990, 1.90854, 1.79047, - + 1.24762, 1.84963, 1.90854, - + 0.04191, 0.01101, 66.05362, 2.10991, 1.99165, - + 1.45299, 2.05090, 2.10991, - + 0.04244, 0.01136, 71.82570, 2.31171, 2.19326, - + 1.65857, 2.25261, 2.31171/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,21)/ - + 0.04296, 0.01170, 77.64796, 2.51790, 2.39926, - + 1.86835, 2.45870, 2.51790, - + 0.04345, 0.01203, 83.39464, 2.72465, 2.60584, - + 2.07852, 2.66537, 2.72465, - + 0.04394, 0.01235, 89.10205, 2.93290, 2.81392, - + 2.29002, 2.87354, 2.93290, - + 0.04441, 0.01266, 94.78679, 3.14301, 3.02386, - + 2.50323, 3.08356, 3.14301, - + 0.04487, 0.01297, 100.36469, 3.35231, 3.23300, - + 2.71551, 3.29278, 3.35231, - + 0.04531, 0.01327, 105.93166, 3.56359, 3.44413, - + 2.92964, 3.50399, 3.56359, - + 0.04575, 0.01356, 111.38394, 3.77354, 3.65391, - + 3.14232, 3.71386, 3.77354/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=22,30)/ - + 0.04617, 0.01385, 116.79562, 3.98431, 3.86454, - + 3.35572, 3.92456, 3.98431, - + 0.04659, 0.01413, 122.13980, 4.19495, 4.07505, - + 3.56890, 4.13514, 4.19495, - + 0.04699, 0.01440, 127.37379, 4.40402, 4.28397, - + 3.78041, 4.34413, 4.40402, - + 0.04739, 0.01467, 132.63359, 4.61573, 4.49555, - + 3.99448, 4.55578, 4.61573, - + 0.04778, 0.01494, 137.67046, 4.82199, 4.70168, - + 4.20301, 4.76197, 4.82199, - + 0.04816, 0.01520, 142.73517, 5.03079, 4.91035, - + 4.41401, 4.97070, 5.03079, - + 0.04854, 0.01545, 147.70306, 5.23801, 5.11745, - + 4.62336, 5.17787, 5.23801, - + 0.04890, 0.01570, 152.55162, 5.44280, 5.32211, - + 4.83022, 5.38259, 5.44280, - + 0.04926, 0.01595, 157.41664, 5.64958, 5.52877, - + 5.03900, 5.58931, 5.64958/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ - + 0.04020, 0.00867, 3.69894, 0.14290, 0.02408, - + 0.00000, 0.08346, 0.14290, - + 0.04151, 0.00953, 6.77438, 0.23366, 0.11433, - + 0.00000, 0.17397, 0.23366, - + 0.04270, 0.01032, 10.18754, 0.33598, 0.21618, - + 0.00000, 0.27606, 0.33598, - + 0.04381, 0.01107, 13.89920, 0.44924, 0.32902, - + 0.00000, 0.38911, 0.44924, - + 0.04483, 0.01176, 17.73564, 0.56872, 0.44810, - + 0.00695, 0.50839, 0.56872, - + 0.04580, 0.01242, 21.69847, 0.69469, 0.57370, - + 0.08336, 0.63418, 0.69469, - + 0.04672, 0.01305, 25.75279, 0.82636, 0.70503, - + 0.22979, 0.76568, 0.82636/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ - + 0.04759, 0.01366, 29.86649, 0.96284, 0.84118, - + 0.36932, 0.90200, 0.96284, - + 0.04842, 0.01424, 34.01329, 1.10326, 0.98130, - + 0.51451, 1.04227, 1.10326, - + 0.04922, 0.01479, 38.11441, 1.24516, 1.12290, - + 0.66049, 1.18401, 1.24516, - + 0.04999, 0.01533, 42.20973, 1.38957, 1.26704, - + 0.80878, 1.32829, 1.38957, - + 0.05073, 0.01585, 46.29869, 1.53635, 1.41356, - + 0.95921, 1.47494, 1.53635, - + 0.05145, 0.01635, 50.35931, 1.68471, 1.56166, - + 1.11100, 1.62317, 1.68471, - + 0.05214, 0.01684, 54.31206, 1.83207, 1.70878, - + 1.26162, 1.77041, 1.83207/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,21)/ - + 0.05281, 0.01732, 58.26271, 1.98149, 1.85798, - + 1.41412, 1.91972, 1.98149, - + 0.05346, 0.01778, 62.12411, 2.13018, 2.00644, - + 1.56575, 2.06830, 2.13018, - + 0.05409, 0.01822, 65.92543, 2.27888, 2.15493, - + 1.71724, 2.21688, 2.27888, - + 0.05470, 0.01866, 69.68102, 2.42792, 2.30376, - + 1.86895, 2.36582, 2.42792, - + 0.05530, 0.01908, 73.33424, 2.57538, 2.45103, - + 2.01897, 2.51318, 2.57538, - + 0.05587, 0.01950, 76.95448, 2.72337, 2.59883, - + 2.16941, 2.66108, 2.72337, - + 0.05644, 0.01990, 80.47174, 2.86952, 2.74480, - + 2.31791, 2.80714, 2.86952/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=22,30)/ - + 0.05699, 0.02030, 83.93945, 3.01545, 2.89055, - + 2.46610, 2.95298, 3.01545, - + 0.05753, 0.02068, 87.34042, 3.16051, 3.03543, - + 2.61333, 3.09795, 3.16051, - + 0.05806, 0.02106, 90.64748, 3.30369, 3.17845, - + 2.75861, 3.24104, 3.30369, - + 0.05857, 0.02143, 93.95448, 3.44806, 3.32266, - + 2.90500, 3.38533, 3.44806, - + 0.05907, 0.02179, 97.09467, 3.58786, 3.46231, - + 3.04676, 3.52506, 3.58786, - + 0.05957, 0.02215, 100.23842, 3.72885, 3.60315, - + 3.18964, 3.66597, 3.72885, - + 0.06005, 0.02250, 103.30302, 3.86812, 3.74227, - + 3.33074, 3.80517, 3.86812, - + 0.06052, 0.02284, 106.27489, 4.00510, 3.87911, - + 3.46950, 3.94208, 4.00510, - + 0.06099, 0.02317, 109.24521, 4.14294, 4.01681, - + 3.60906, 4.07984, 4.14294/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ - + 0.04833, 0.01328, 3.59829, 0.14447, 0.02168, - + 0.00000, 0.08303, 0.14447, - + 0.05003, 0.01454, 6.21379, 0.22356, 0.10011, - + 0.00000, 0.16179, 0.22356, - + 0.05158, 0.01569, 9.00627, 0.31002, 0.18599, - + 0.00000, 0.24797, 0.31002, - + 0.05302, 0.01676, 11.94959, 0.40334, 0.27878, - + 0.00000, 0.34102, 0.40334, - + 0.05436, 0.01776, 14.91340, 0.49978, 0.37474, - + 0.00557, 0.43723, 0.49978, - + 0.05562, 0.01870, 17.90746, 0.59967, 0.47417, - + 0.06605, 0.53689, 0.59967, - + 0.05682, 0.01960, 20.91110, 0.70244, 0.57653, - + 0.18097, 0.63945, 0.70244/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ - + 0.05796, 0.02045, 23.90559, 0.80747, 0.68117, - + 0.28875, 0.74429, 0.80747, - + 0.05904, 0.02127, 26.87637, 0.91416, 0.78749, - + 0.39953, 0.85079, 0.91416, - + 0.06009, 0.02206, 29.76994, 1.02068, 0.89368, - + 0.50959, 0.95715, 1.02068, - + 0.06109, 0.02281, 32.62083, 1.12794, 1.00060, - + 0.62019, 1.06424, 1.12794, - + 0.06205, 0.02354, 35.43228, 1.23587, 1.10823, - + 0.73127, 1.17202, 1.23587, - + 0.06298, 0.02424, 38.19170, 1.34395, 1.21602, - + 0.84232, 1.27996, 1.34395, - + 0.06388, 0.02492, 40.84555, 1.45032, 1.32211, - + 0.95150, 1.38618, 1.45032/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,21)/ - + 0.06475, 0.02558, 43.47240, 1.55732, 1.42885, - + 1.06117, 1.49306, 1.55732, - + 0.06560, 0.02621, 46.01302, 1.66295, 1.53423, - + 1.16933, 1.59856, 1.66295, - + 0.06642, 0.02683, 48.49049, 1.76779, 1.63883, - + 1.27660, 1.70328, 1.76779, - + 0.06721, 0.02743, 50.91679, 1.87215, 1.74296, - + 1.38327, 1.80752, 1.87215, - + 0.06799, 0.02801, 53.25471, 1.97468, 1.84527, - + 1.48801, 1.90995, 1.97468, - + 0.06874, 0.02858, 55.55397, 2.07696, 1.94734, - + 1.59240, 2.01212, 2.07696, - + 0.06947, 0.02913, 57.76797, 2.17729, 2.04747, - + 1.69478, 2.11235, 2.17729/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=22,30)/ - + 0.07018, 0.02967, 59.93506, 2.27691, 2.14690, - + 1.79635, 2.21187, 2.27691, - + 0.07088, 0.03019, 62.04460, 2.37537, 2.24517, - + 1.89670, 2.31024, 2.37537, - + 0.07156, 0.03071, 64.07951, 2.47199, 2.34161, - + 1.99513, 2.40677, 2.47199, - + 0.07223, 0.03121, 66.10397, 2.56899, 2.43844, - + 2.09389, 2.50368, 2.56899, - + 0.07288, 0.03170, 68.00743, 2.66231, 2.53159, - + 2.18890, 2.59691, 2.66231, - + 0.07351, 0.03218, 69.90486, 2.75605, 2.62517, - + 2.28428, 2.69058, 2.75605, - + 0.07414, 0.03264, 71.74150, 2.84819, 2.71715, - + 2.37800, 2.78263, 2.84819, - + 0.07475, 0.03310, 73.50923, 2.93835, 2.80716, - + 2.46970, 2.87271, 2.93835, - + 0.07535, 0.03355, 75.26924, 3.02875, 2.89742, - + 2.56160, 2.96305, 3.02875/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ - + 0.05382, 0.01706, 3.53856, 0.14570, 0.02026, - + 0.00000, 0.08296, 0.14570, - + 0.05580, 0.01861, 5.90028, 0.21828, 0.09212, - + 0.00000, 0.15519, 0.21828, - + 0.05762, 0.02004, 8.36460, 0.29627, 0.16946, - + 0.00000, 0.23286, 0.29627, - + 0.05931, 0.02136, 10.91359, 0.37917, 0.25179, - + 0.00000, 0.31548, 0.37917, - + 0.06087, 0.02259, 13.43987, 0.46381, 0.33590, - + 0.00487, 0.39986, 0.46381, - + 0.06235, 0.02374, 15.95744, 0.55053, 0.42214, - + 0.05734, 0.48634, 0.55053, - + 0.06375, 0.02484, 18.45279, 0.63891, 0.51007, - + 0.15654, 0.57450, 0.63891/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ - + 0.06508, 0.02588, 20.91368, 0.72846, 0.59921, - + 0.24869, 0.66384, 0.72846, - + 0.06635, 0.02688, 23.33113, 0.81871, 0.68907, - + 0.34269, 0.75391, 0.81871, - + 0.06757, 0.02783, 25.66345, 0.90818, 0.77817, - + 0.43540, 0.84319, 0.90818, - + 0.06874, 0.02874, 27.94212, 0.99766, 0.86732, - + 0.52796, 0.93251, 0.99766, - + 0.06987, 0.02962, 30.17204, 1.08716, 0.95650, - + 0.62037, 1.02185, 1.08716, - + 0.07096, 0.03047, 32.34473, 1.17628, 1.04531, - + 0.71221, 1.11081, 1.17628, - + 0.07201, 0.03129, 34.41817, 1.26348, 1.13223, - + 0.80201, 1.19787, 1.26348/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,21)/ - + 0.07302, 0.03208, 36.45828, 1.35079, 1.21926, - + 0.89177, 1.28504, 1.35079, - + 0.07401, 0.03284, 38.41805, 1.43653, 1.30475, - + 0.97986, 1.37066, 1.43653, - + 0.07496, 0.03358, 40.31763, 1.52126, 1.38923, - + 1.06682, 1.45527, 1.52126, - + 0.07589, 0.03429, 42.16774, 1.60524, 1.47297, - + 1.15292, 1.53913, 1.60524, - + 0.07679, 0.03499, 43.93956, 1.68738, 1.55489, - + 1.23711, 1.62116, 1.68738, - + 0.07767, 0.03567, 45.67371, 1.76901, 1.63631, - + 1.32070, 1.70269, 1.76901, - + 0.07852, 0.03632, 47.33397, 1.84877, 1.71587, - + 1.40234, 1.78235, 1.84877/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=22,30)/ - + 0.07935, 0.03696, 48.95140, 1.92769, 1.79459, - + 1.48306, 1.86116, 1.92769, - + 0.08016, 0.03758, 50.51820, 2.00541, 1.87212, - + 1.56252, 1.93879, 2.00541, - + 0.08095, 0.03819, 52.02176, 2.08139, 1.94793, - + 1.64019, 2.01469, 2.08139, - + 0.08173, 0.03879, 53.51288, 2.15748, 2.02384, - + 1.71789, 2.09068, 2.15748, - + 0.08248, 0.03936, 54.90527, 2.23037, 2.09657, - + 1.79236, 2.16349, 2.23037, - + 0.08322, 0.03993, 56.28961, 2.30343, 2.16946, - + 1.86693, 2.23647, 2.30343, - + 0.08394, 0.04048, 57.62332, 2.37500, 2.24088, - + 1.93997, 2.30796, 2.37500, - + 0.08465, 0.04102, 58.90060, 2.44481, 2.31055, - + 2.01121, 2.37770, 2.44481, - + 0.08535, 0.04155, 60.16930, 2.51467, 2.38026, - + 2.08245, 2.44749, 2.51467/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ - + 0.05816, 0.02037, 3.49532, 0.14682, 0.01926, - + 0.00000, 0.08304, 0.14682, - + 0.06039, 0.02218, 5.68253, 0.21494, 0.08660, - + 0.00000, 0.15078, 0.21494, - + 0.06243, 0.02383, 7.92716, 0.28721, 0.15819, - + 0.00000, 0.22273, 0.28721, - + 0.06431, 0.02536, 10.21717, 0.36321, 0.23359, - + 0.00000, 0.29843, 0.36321, - + 0.06607, 0.02678, 12.46043, 0.44012, 0.30994, - + 0.00441, 0.37507, 0.44012, - + 0.06772, 0.02811, 14.67355, 0.51829, 0.38762, - + 0.05170, 0.45300, 0.51829, - + 0.06929, 0.02937, 16.84769, 0.59741, 0.46627, - + 0.14077, 0.53189, 0.59741/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ - + 0.07078, 0.03056, 18.97456, 0.67706, 0.54549, - + 0.22292, 0.61133, 0.67706, - + 0.07221, 0.03171, 21.04855, 0.75688, 0.62492, - + 0.30626, 0.69096, 0.75688, - + 0.07358, 0.03279, 23.03528, 0.83558, 0.70325, - + 0.38804, 0.76948, 0.83558, - + 0.07489, 0.03383, 24.96417, 0.91392, 0.78124, - + 0.46927, 0.84764, 0.91392, - + 0.07615, 0.03483, 26.84091, 0.99192, 0.85892, - + 0.55001, 0.92549, 0.99192, - + 0.07736, 0.03580, 28.65936, 1.06925, 0.93595, - + 0.62993, 1.00267, 1.06925, - + 0.07854, 0.03672, 30.38464, 1.14461, 1.01102, - + 0.70774, 1.07789, 1.14461/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,21)/ - + 0.07967, 0.03762, 32.07445, 1.21980, 1.08593, - + 0.78524, 1.15294, 1.21980, - + 0.08077, 0.03848, 33.68941, 1.29336, 1.15924, - + 0.86102, 1.22637, 1.29336, - + 0.08184, 0.03932, 35.24754, 1.36580, 1.23144, - + 0.93557, 1.29870, 1.36580, - + 0.08287, 0.04013, 36.75883, 1.43738, 1.30278, - + 1.00917, 1.37016, 1.43738, - + 0.08388, 0.04091, 38.19920, 1.50716, 1.37235, - + 1.08088, 1.43983, 1.50716, - + 0.08485, 0.04167, 39.60382, 1.57632, 1.44130, - + 1.15190, 1.50889, 1.57632, - + 0.08580, 0.04241, 40.94254, 1.64369, 1.50846, - + 1.22105, 1.57616, 1.64369/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=22,30)/ - + 0.08673, 0.04313, 42.24203, 1.71016, 1.57475, - + 1.28923, 1.64254, 1.71016, - + 0.08763, 0.04383, 43.49625, 1.77546, 1.63986, - + 1.35618, 1.70774, 1.77546, - + 0.08851, 0.04451, 44.69476, 1.83913, 1.70336, - + 1.42145, 1.77133, 1.83913, - + 0.08937, 0.04518, 45.88063, 1.90276, 1.76683, - + 1.48662, 1.83488, 1.90276, - + 0.09021, 0.04582, 46.98187, 1.96352, 1.82743, - + 1.54887, 1.89556, 1.96352, - + 0.09103, 0.04645, 48.07465, 2.02432, 1.88807, - + 1.61111, 1.95628, 2.02432, - + 0.09184, 0.04707, 49.12350, 2.08374, 1.94735, - + 1.67193, 2.01563, 2.08374, - + 0.09262, 0.04767, 50.12401, 2.14156, 2.00503, - + 1.73111, 2.07338, 2.14156, - + 0.09339, 0.04826, 51.11598, 2.19933, 2.06266, - + 1.79019, 2.13108, 2.19933/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ - + 0.06205, 0.02339, 3.46064, 0.14821, 0.01849, - + 0.00000, 0.08335, 0.14821, - + 0.06451, 0.02542, 5.51269, 0.21294, 0.08240, - + 0.00000, 0.14767, 0.21294, - + 0.06677, 0.02727, 7.59007, 0.28088, 0.14963, - + 0.00000, 0.21527, 0.28088, - + 0.06885, 0.02897, 9.68558, 0.35168, 0.21980, - + 0.00000, 0.28577, 0.35168, - + 0.07078, 0.03055, 11.71840, 0.42281, 0.29036, - + 0.00408, 0.35662, 0.42281, - + 0.07261, 0.03202, 13.70769, 0.49464, 0.36168, - + 0.04752, 0.42820, 0.49464, - + 0.07433, 0.03342, 15.64750, 0.56692, 0.43349, - + 0.12909, 0.50025, 0.56692/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ - + 0.07597, 0.03474, 17.53214, 0.63932, 0.50545, - + 0.20391, 0.57243, 0.63932, - + 0.07754, 0.03600, 19.35939, 0.71153, 0.57726, - + 0.27946, 0.64444, 0.71153, - + 0.07904, 0.03720, 21.09874, 0.78243, 0.64778, - + 0.35328, 0.71515, 0.78243, - + 0.08048, 0.03835, 22.77890, 0.85269, 0.71769, - + 0.42631, 0.78525, 0.85269, - + 0.08186, 0.03945, 24.40553, 0.92239, 0.78707, - + 0.49863, 0.85479, 0.92239, - + 0.08320, 0.04050, 25.97391, 0.99126, 0.85564, - + 0.56996, 0.92351, 0.99126, - + 0.08448, 0.04152, 27.45506, 1.05815, 0.92224, - + 0.63919, 0.99025, 1.05815/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,21)/ - + 0.08573, 0.04250, 28.90048, 1.12468, 0.98850, - + 0.70793, 1.05665, 1.12468, - + 0.08693, 0.04344, 30.27596, 1.18956, 1.05313, - + 0.77493, 1.12141, 1.18956, - + 0.08809, 0.04435, 31.59718, 1.25328, 1.11662, - + 0.84067, 1.18501, 1.25328, - + 0.08922, 0.04524, 32.87344, 1.31609, 1.17920, - + 0.90541, 1.24771, 1.31609, - + 0.09032, 0.04609, 34.08525, 1.37716, 1.24006, - + 0.96833, 1.30868, 1.37716, - + 0.09138, 0.04692, 35.26349, 1.43756, 1.30025, - + 1.03050, 1.36898, 1.43756, - + 0.09242, 0.04772, 36.38284, 1.49623, 1.35873, - + 1.09087, 1.42755, 1.49623/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=22,30)/ - + 0.09343, 0.04851, 37.46669, 1.55398, 1.41630, - + 1.15027, 1.48521, 1.55398, - + 0.09441, 0.04927, 38.50861, 1.61059, 1.47274, - + 1.20847, 1.54174, 1.61059, - + 0.09537, 0.05000, 39.49983, 1.66567, 1.52766, - + 1.26507, 1.59674, 1.66567, - + 0.09631, 0.05073, 40.47887, 1.72062, 1.58245, - + 1.32150, 1.65161, 1.72062, - + 0.09722, 0.05142, 41.38484, 1.77298, 1.63466, - + 1.37529, 1.70390, 1.77298, - + 0.09812, 0.05211, 42.28242, 1.82529, 1.68682, - + 1.42898, 1.75613, 1.82529, - + 0.09899, 0.05278, 43.14043, 1.87631, 1.73771, - + 1.48134, 1.80708, 1.87631, - + 0.09984, 0.05343, 43.95506, 1.92585, 1.78712, - + 1.53218, 1.85655, 1.92585, - + 0.10068, 0.05406, 44.76173, 1.97527, 1.83642, - + 1.58288, 1.90592, 1.97527/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ - + 0.07640, 0.03594, 3.34746, 0.15342, 0.01608, - + 0.00000, 0.08475, 0.15342, - + 0.07979, 0.03879, 4.99865, 0.20792, 0.06970, - + 0.00000, 0.13883, 0.20792, - + 0.08288, 0.04136, 6.59860, 0.26329, 0.12432, - + 0.00000, 0.19384, 0.26329, - + 0.08572, 0.04371, 8.15442, 0.31936, 0.17973, - + 0.00000, 0.24959, 0.31936, - + 0.08836, 0.04587, 9.61668, 0.37438, 0.23418, - + 0.00314, 0.30433, 0.37438, - + 0.09083, 0.04788, 11.00886, 0.42879, 0.28808, - + 0.03609, 0.35849, 0.42879, - + 0.09317, 0.04976, 12.33345, 0.48252, 0.34135, - + 0.09734, 0.41200, 0.48252/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ - + 0.09538, 0.05154, 13.59177, 0.53544, 0.39386, - + 0.15248, 0.46472, 0.53544, - + 0.09749, 0.05323, 14.78690, 0.58741, 0.44546, - + 0.20735, 0.51651, 0.58741, - + 0.09950, 0.05481, 15.90138, 0.63770, 0.49541, - + 0.26021, 0.56663, 0.63770, - + 0.10142, 0.05633, 16.95880, 0.68689, 0.54430, - + 0.31183, 0.61567, 0.68689, - + 0.10327, 0.05778, 17.96573, 0.73509, 0.59222, - + 0.36234, 0.66374, 0.73509, - + 0.10504, 0.05916, 18.92113, 0.78217, 0.63905, - + 0.41160, 0.71070, 0.78217, - + 0.10675, 0.06047, 19.80765, 0.82737, 0.68402, - + 0.45887, 0.75578, 0.82737/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,21)/ - + 0.10839, 0.06174, 20.66154, 0.87190, 0.72833, - + 0.50537, 0.80021, 0.87190, - + 0.10998, 0.06296, 21.46149, 0.91488, 0.77111, - + 0.55023, 0.84309, 0.91488, - + 0.11151, 0.06413, 22.21918, 0.95670, 0.81275, - + 0.59385, 0.88482, 0.95670, - + 0.11299, 0.06527, 22.94193, 0.99757, 0.85345, - + 0.63644, 0.92560, 0.99757, - + 0.11443, 0.06635, 23.61795, 1.03694, 0.89267, - + 0.67747, 0.96490, 1.03694, - + 0.11582, 0.06741, 24.26820, 1.07559, 0.93117, - + 0.71770, 1.00348, 1.07559, - + 0.11717, 0.06842, 24.87701, 1.11280, 0.96825, - + 0.75645, 1.04062, 1.11280/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=22,30)/ - + 0.11849, 0.06941, 25.46002, 1.14917, 1.00450, - + 0.79430, 1.07694, 1.14917, - + 0.11976, 0.07036, 26.01382, 1.18456, 1.03978, - + 0.83112, 1.11227, 1.18456, - + 0.12101, 0.07129, 26.53334, 1.21873, 1.07385, - + 0.86667, 1.14639, 1.21873, - + 0.12222, 0.07219, 27.04318, 1.25265, 1.10766, - + 0.90191, 1.18026, 1.25265, - + 0.12339, 0.07306, 27.50575, 1.28466, 1.13959, - + 0.93522, 1.21222, 1.28466, - + 0.12454, 0.07391, 27.96161, 1.31649, 1.17134, - + 0.96831, 1.24402, 1.31649, - + 0.12566, 0.07473, 28.39182, 1.34733, 1.20211, - + 1.00037, 1.27482, 1.34733, - + 0.12675, 0.07553, 28.79431, 1.37707, 1.23177, - + 1.03129, 1.30452, 1.37707, - + 0.12782, 0.07631, 29.19099, 1.40662, 1.26126, - + 1.06199, 1.33404, 1.40662/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ - + 0.09672, 0.05523, 3.21931, 0.16103, 0.01368, - + 0.00001, 0.08735, 0.16103, - + 0.10147, 0.05910, 4.49238, 0.20579, 0.05767, - + 0.00001, 0.13175, 0.20579, - + 0.10577, 0.06255, 5.66821, 0.24966, 0.10091, - + 0.00001, 0.17531, 0.24966, - + 0.10970, 0.06568, 6.76590, 0.29271, 0.14343, - + 0.00001, 0.21811, 0.29271, - + 0.11334, 0.06851, 7.76049, 0.33388, 0.18418, - + 0.00237, 0.25907, 0.33388, - + 0.11671, 0.07113, 8.67746, 0.37365, 0.22359, - + 0.02661, 0.29867, 0.37365, - + 0.11988, 0.07356, 9.52601, 0.41211, 0.26176, - + 0.07120, 0.33700, 0.41211/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ - + 0.12288, 0.07584, 10.31033, 0.44929, 0.29868, - + 0.11054, 0.37405, 0.44929, - + 0.12572, 0.07798, 11.03771, 0.48517, 0.33435, - + 0.14904, 0.40983, 0.48517, - + 0.12841, 0.07998, 11.69819, 0.51929, 0.36831, - + 0.18554, 0.44388, 0.51929, - + 0.13096, 0.08188, 12.31124, 0.55219, 0.40106, - + 0.22068, 0.47670, 0.55219, - + 0.13341, 0.08367, 12.88351, 0.58399, 0.43274, - + 0.25462, 0.50844, 0.58399, - + 0.13576, 0.08538, 13.41623, 0.61465, 0.46331, - + 0.28729, 0.53906, 0.61465, - + 0.13799, 0.08700, 13.89722, 0.64368, 0.49227, - + 0.31826, 0.56806, 0.64368/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,21)/ - + 0.14014, 0.08855, 14.35325, 0.67197, 0.52049, - + 0.34839, 0.59631, 0.67197, - + 0.14220, 0.09003, 14.77248, 0.69893, 0.54741, - + 0.37712, 0.62326, 0.69893, - + 0.14418, 0.09144, 15.16176, 0.72489, 0.57335, - + 0.40478, 0.64920, 0.72489, - + 0.14610, 0.09280, 15.52645, 0.75001, 0.59845, - + 0.43152, 0.67432, 0.75001, - + 0.14794, 0.09410, 15.86043, 0.77393, 0.62238, - + 0.45701, 0.69824, 0.77393, - + 0.14972, 0.09536, 16.17719, 0.79721, 0.64566, - + 0.48180, 0.72152, 0.79721, - + 0.15144, 0.09656, 16.46674, 0.81941, 0.66787, - + 0.50545, 0.74373, 0.81941/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=22,30)/ - + 0.15311, 0.09771, 16.73936, 0.84093, 0.68942, - + 0.52839, 0.76527, 0.84093, - + 0.15472, 0.09883, 16.99393, 0.86168, 0.71021, - + 0.55050, 0.78604, 0.86168, - + 0.15629, 0.09990, 17.22774, 0.88152, 0.73008, - + 0.57166, 0.80589, 0.88152, - + 0.15782, 0.10095, 17.45543, 0.90109, 0.74970, - + 0.59252, 0.82549, 0.90109, - + 0.15929, 0.10195, 17.65450, 0.91934, 0.76799, - + 0.61201, 0.84375, 0.91934, - + 0.16072, 0.10293, 17.84962, 0.93739, 0.78610, - + 0.63127, 0.86184, 0.93739, - + 0.16212, 0.10388, 18.02959, 0.95474, 0.80351, - + 0.64979, 0.87921, 0.95474, - + 0.16347, 0.10479, 18.19345, 0.97131, 0.82015, - + 0.66751, 0.89582, 0.97131, - + 0.16480, 0.10568, 18.35416, 0.98771, 0.83662, - + 0.68503, 0.91225, 0.98771/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ - + 0.11288, 0.07096, 3.13232, 0.16637, 0.01227, - + 0.00000, 0.08932, 0.16637, - + 0.11868, 0.07548, 4.19566, 0.20554, 0.05088, - + 0.00000, 0.12822, 0.20554, - + 0.12390, 0.07946, 5.14773, 0.24306, 0.08800, - + 0.00001, 0.16556, 0.24306, - + 0.12866, 0.08305, 6.01318, 0.27917, 0.12380, - + 0.00002, 0.20153, 0.27917, - + 0.13301, 0.08628, 6.77825, 0.31313, 0.15755, - + 0.00197, 0.23539, 0.31313, - + 0.13705, 0.08924, 7.46987, 0.34545, 0.18971, - + 0.02187, 0.26764, 0.34545, - + 0.14080, 0.09198, 8.09556, 0.37630, 0.22047, - + 0.05824, 0.29844, 0.37630/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ - + 0.14435, 0.09451, 8.66505, 0.40574, 0.24985, - + 0.08990, 0.32785, 0.40574, - + 0.14769, 0.09689, 9.18227, 0.43379, 0.27789, - + 0.12053, 0.35591, 0.43379, - + 0.15084, 0.09910, 9.64342, 0.46025, 0.30435, - + 0.14934, 0.38236, 0.46025, - + 0.15382, 0.10119, 10.06437, 0.48547, 0.32962, - + 0.17681, 0.40762, 0.48547, - + 0.15667, 0.10316, 10.45148, 0.50962, 0.35383, - + 0.20308, 0.43180, 0.50962, - + 0.15939, 0.10502, 10.80655, 0.53268, 0.37697, - + 0.22816, 0.45491, 0.53268, - + 0.16195, 0.10677, 11.12072, 0.55435, 0.39874, - + 0.25176, 0.47662, 0.55435/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,21)/ - + 0.16442, 0.10844, 11.41458, 0.57530, 0.41980, - + 0.27457, 0.49763, 0.57530, - + 0.16679, 0.11002, 11.67926, 0.59511, 0.43973, - + 0.29615, 0.51750, 0.59511, - + 0.16905, 0.11153, 11.92194, 0.61403, 0.45878, - + 0.31677, 0.53648, 0.61403, - + 0.17124, 0.11298, 12.14672, 0.63220, 0.47709, - + 0.33658, 0.55472, 0.63220, - + 0.17333, 0.11436, 12.34799, 0.64937, 0.49441, - + 0.35534, 0.57197, 0.64937, - + 0.17535, 0.11568, 12.53619, 0.66598, 0.51117, - + 0.37348, 0.58865, 0.66598, - + 0.17729, 0.11694, 12.70446, 0.68171, 0.52706, - + 0.39069, 0.60446, 0.68171/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=22,30)/ - + 0.17918, 0.11815, 12.86049, 0.69688, 0.54240, - + 0.40729, 0.61971, 0.69688, - + 0.18100, 0.11931, 13.00368, 0.71140, 0.55710, - + 0.42320, 0.63433, 0.71140, - + 0.18274, 0.12043, 13.13224, 0.72518, 0.57105, - + 0.43832, 0.64820, 0.72518, - + 0.18444, 0.12152, 13.25666, 0.73873, 0.58477, - + 0.45317, 0.66184, 0.73873, - + 0.18608, 0.12254, 13.36055, 0.75125, 0.59747, - + 0.46696, 0.67444, 0.75125, - + 0.18768, 0.12354, 13.46202, 0.76360, 0.61001, - + 0.48054, 0.68688, 0.76360, - + 0.18923, 0.12450, 13.55333, 0.77538, 0.62197, - + 0.49352, 0.69875, 0.77538, - + 0.19072, 0.12543, 13.63394, 0.78654, 0.63333, - + 0.50586, 0.71001, 0.78654, - + 0.19219, 0.12634, 13.71274, 0.79756, 0.64453, - + 0.51802, 0.72113, 0.79756/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ - + 0.12721, 0.08466, 3.06254, 0.17044, 0.01127, - + 0.00001, 0.09086, 0.17044, - + 0.13387, 0.08963, 3.98219, 0.20564, 0.04619, - + 0.00000, 0.12593, 0.20564, - + 0.13984, 0.09397, 4.78631, 0.23880, 0.07919, - + 0.00001, 0.15902, 0.23880, - + 0.14525, 0.09786, 5.50219, 0.27024, 0.11056, - + 0.00002, 0.19043, 0.27024, - + 0.15017, 0.10133, 6.12281, 0.29942, 0.13977, - + 0.00171, 0.21964, 0.29942, - + 0.15472, 0.10450, 6.67424, 0.32688, 0.16729, - + 0.01884, 0.24714, 0.32688, - + 0.15892, 0.10741, 7.16491, 0.35282, 0.19335, - + 0.04997, 0.27313, 0.35282/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ - + 0.16289, 0.11009, 7.60462, 0.37732, 0.21801, - + 0.07681, 0.29772, 0.37732, - + 0.16661, 0.11259, 7.99792, 0.40048, 0.24135, - + 0.10257, 0.32097, 0.40048, - + 0.17009, 0.11491, 8.34277, 0.42212, 0.26319, - + 0.12662, 0.34271, 0.42212, - + 0.17339, 0.11708, 8.65298, 0.44259, 0.28389, - + 0.14937, 0.36330, 0.44259, - + 0.17652, 0.11912, 8.93436, 0.46205, 0.30359, - + 0.17100, 0.38288, 0.46205, - + 0.17950, 0.12104, 9.18883, 0.48050, 0.32229, - + 0.19152, 0.40146, 0.48050, - + 0.18231, 0.12284, 9.40956, 0.49770, 0.33975, - + 0.21070, 0.41880, 0.49770/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,21)/ - + 0.18500, 0.12455, 9.61360, 0.51423, 0.35656, - + 0.22914, 0.43547, 0.51423, - + 0.18757, 0.12617, 9.79406, 0.52976, 0.37237, - + 0.24649, 0.45114, 0.52976, - + 0.19002, 0.12771, 9.95690, 0.54450, 0.38739, - + 0.26298, 0.46602, 0.54450, - + 0.19238, 0.12917, 10.10555, 0.55858, 0.40175, - + 0.27874, 0.48024, 0.55858, - + 0.19463, 0.13056, 10.23571, 0.57180, 0.41526, - + 0.29359, 0.49360, 0.57180, - + 0.19680, 0.13188, 10.35580, 0.58451, 0.42827, - + 0.30789, 0.50646, 0.58451, - + 0.19888, 0.13314, 10.46038, 0.59648, 0.44054, - + 0.32138, 0.51857, 0.59648/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=22,30)/ - + 0.20090, 0.13435, 10.55568, 0.60796, 0.45232, - + 0.33434, 0.53021, 0.60796, - + 0.20284, 0.13551, 10.64126, 0.61890, 0.46356, - + 0.34671, 0.54130, 0.61890, - + 0.20469, 0.13661, 10.71581, 0.62922, 0.47417, - + 0.35841, 0.55177, 0.62922, - + 0.20650, 0.13769, 10.78753, 0.63933, 0.48458, - + 0.36986, 0.56203, 0.63933, - + 0.20823, 0.13869, 10.84359, 0.64859, 0.49414, - + 0.38043, 0.57143, 0.64859, - + 0.20992, 0.13967, 10.89824, 0.65770, 0.50355, - + 0.39082, 0.58069, 0.65770, - + 0.21155, 0.14061, 10.94541, 0.66635, 0.51249, - + 0.40071, 0.58948, 0.66635, - + 0.21312, 0.14151, 10.98474, 0.67449, 0.52093, - + 0.41006, 0.59778, 0.67449, - + 0.21466, 0.14240, 11.02308, 0.68251, 0.52924, - + 0.41925, 0.60594, 0.68251/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ - + 0.14038, 0.09698, 3.00260, 0.17358, 0.01050, - + 0.00002, 0.09204, 0.17358, - + 0.14780, 0.10224, 3.81398, 0.20568, 0.04261, - + 0.00001, 0.12416, 0.20568, - + 0.15436, 0.10684, 4.50970, 0.23552, 0.07255, - + 0.00002, 0.15405, 0.23552, - + 0.16031, 0.11091, 5.11817, 0.26345, 0.10068, - + 0.00003, 0.18209, 0.26345, - + 0.16567, 0.11454, 5.63711, 0.28912, 0.12660, - + 0.00154, 0.20790, 0.28912, - + 0.17062, 0.11783, 6.09092, 0.31302, 0.15081, - + 0.01668, 0.23196, 0.31302, - + 0.17521, 0.12082, 6.48981, 0.33541, 0.17352, - + 0.04408, 0.25452, 0.33541/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ - + 0.17949, 0.12357, 6.84049, 0.35641, 0.19486, - + 0.06753, 0.27568, 0.35641, - + 0.18348, 0.12614, 7.15050, 0.37609, 0.21492, - + 0.08989, 0.29555, 0.37609, - + 0.18723, 0.12848, 7.41871, 0.39433, 0.23356, - + 0.11060, 0.31399, 0.39433, - + 0.19076, 0.13069, 7.65586, 0.41147, 0.25111, - + 0.13010, 0.33134, 0.41147, - + 0.19410, 0.13275, 7.86800, 0.42766, 0.26771, - + 0.14854, 0.34774, 0.42766, - + 0.19728, 0.13468, 8.05751, 0.44294, 0.28342, - + 0.16596, 0.36324, 0.44294, - + 0.20026, 0.13647, 8.21889, 0.45706, 0.29795, - + 0.18213, 0.37757, 0.45706/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,21)/ - + 0.20312, 0.13817, 8.36630, 0.47057, 0.31188, - + 0.19760, 0.39128, 0.47057, - + 0.20583, 0.13977, 8.49387, 0.48320, 0.32494, - + 0.21211, 0.40412, 0.48320, - + 0.20841, 0.14129, 8.60662, 0.49511, 0.33727, - + 0.22583, 0.41625, 0.49511, - + 0.21088, 0.14273, 8.70760, 0.50642, 0.34901, - + 0.23889, 0.42779, 0.50642, - + 0.21324, 0.14409, 8.79360, 0.51698, 0.36000, - + 0.25115, 0.43856, 0.51698, - + 0.21550, 0.14539, 8.87162, 0.52711, 0.37054, - + 0.26290, 0.44889, 0.52711, - + 0.21766, 0.14662, 8.93777, 0.53658, 0.38043, - + 0.27395, 0.45857, 0.53658/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=22,30)/ - + 0.21974, 0.14779, 8.99693, 0.54562, 0.38989, - + 0.28452, 0.46782, 0.54562, - + 0.22175, 0.14891, 9.04798, 0.55419, 0.39888, - + 0.29457, 0.47660, 0.55419, - + 0.22368, 0.14996, 9.08975, 0.56222, 0.40732, - + 0.30403, 0.48484, 0.56222, - + 0.22556, 0.15099, 9.12971, 0.57008, 0.41558, - + 0.31328, 0.49290, 0.57008, - + 0.22733, 0.15195, 9.15857, 0.57721, 0.42312, - + 0.32177, 0.50022, 0.57721, - + 0.22906, 0.15289, 9.18664, 0.58421, 0.43052, - + 0.33009, 0.50742, 0.58421, - + 0.23072, 0.15379, 9.20867, 0.59083, 0.43753, - + 0.33799, 0.51423, 0.59083, - + 0.23232, 0.15465, 9.22431, 0.59703, 0.44413, - + 0.34545, 0.52064, 0.59703, - + 0.23389, 0.15549, 9.23954, 0.60313, 0.45062, - + 0.35276, 0.52694, 0.60313/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ - + 0.19755, 0.14628, 2.76721, 0.18116, 0.00807, - + 0.00000, 0.09461, 0.18116, - + 0.20734, 0.15198, 3.26343, 0.20340, 0.03178, - + 0.00000, 0.11759, 0.20340, - + 0.21590, 0.15677, 3.65800, 0.22306, 0.05290, - + 0.00002, 0.13799, 0.22306, - + 0.22341, 0.16094, 3.97958, 0.24068, 0.07193, - + 0.00003, 0.15634, 0.24068, - + 0.23013, 0.16455, 4.23566, 0.25625, 0.08887, - + 0.00101, 0.17258, 0.25625, - + 0.23618, 0.16774, 4.44390, 0.27023, 0.10419, - + 0.01083, 0.18723, 0.27023, - + 0.24169, 0.17058, 4.61561, 0.28288, 0.11813, - + 0.02833, 0.20054, 0.28288/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ - + 0.24676, 0.17313, 4.75545, 0.29438, 0.13090, - + 0.04289, 0.21267, 0.29438, - + 0.25148, 0.17542, 4.87193, 0.30486, 0.14261, - + 0.05649, 0.22377, 0.30486, - + 0.25572, 0.17753, 4.96143, 0.31427, 0.15320, - + 0.06881, 0.23376, 0.31427, - + 0.25972, 0.17941, 5.03492, 0.32286, 0.16295, - + 0.08017, 0.24294, 0.32286, - + 0.26347, 0.18114, 5.09485, 0.33077, 0.17198, - + 0.09071, 0.25141, 0.33077, - + 0.26695, 0.18275, 5.14215, 0.33802, 0.18033, - + 0.10047, 0.25921, 0.33802, - + 0.27021, 0.18418, 5.17558, 0.34452, 0.18791, - + 0.10938, 0.26626, 0.34452/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,21)/ - + 0.27330, 0.18552, 5.20275, 0.35062, 0.19505, - + 0.11777, 0.27288, 0.35062, - + 0.27617, 0.18675, 5.22071, 0.35616, 0.20161, - + 0.12551, 0.27893, 0.35616, - + 0.27885, 0.18790, 5.23209, 0.36125, 0.20769, - + 0.13271, 0.28451, 0.36125, - + 0.28138, 0.18897, 5.23857, 0.36597, 0.21337, - + 0.13946, 0.28972, 0.36597, - + 0.28379, 0.18995, 5.23830, 0.37023, 0.21857, - + 0.14568, 0.29445, 0.37023, - + 0.28610, 0.19085, 5.23513, 0.37423, 0.22348, - + 0.15157, 0.29890, 0.37423, - + 0.28827, 0.19168, 5.22737, 0.37786, 0.22801, - + 0.15702, 0.30298, 0.37786/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=22,30)/ - + 0.29033, 0.19246, 5.21744, 0.38127, 0.23228, - + 0.16219, 0.30681, 0.38127, - + 0.29227, 0.19320, 5.20480, 0.38440, 0.23626, - + 0.16702, 0.31037, 0.38440, - + 0.29410, 0.19389, 5.18888, 0.38723, 0.23991, - + 0.17150, 0.31361, 0.38723, - + 0.29587, 0.19456, 5.17317, 0.38996, 0.24345, - + 0.17584, 0.31675, 0.38996, - + 0.29753, 0.19514, 5.15246, 0.39229, 0.24659, - + 0.17972, 0.31948, 0.39229, - + 0.29915, 0.19570, 5.13247, 0.39456, 0.24964, - + 0.18350, 0.32214, 0.39456, - + 0.30069, 0.19622, 5.11078, 0.39663, 0.25247, - + 0.18704, 0.32459, 0.39663, - + 0.30216, 0.19668, 5.08724, 0.39848, 0.25507, - + 0.19032, 0.32683, 0.39848, - + 0.30360, 0.19714, 5.06446, 0.40029, 0.25761, - + 0.19352, 0.32901, 0.40029/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ - + 0.29190, 0.21286, 2.41679, 0.17758, 0.00558, - + -0.00012, 0.09153, 0.17758, - + 0.30296, 0.21710, 2.63960, 0.18955, 0.02145, - + -0.00010, 0.10548, 0.18955, - + 0.31219, 0.22043, 2.79302, 0.19939, 0.03483, - + -0.00011, 0.11707, 0.19939, - + 0.32011, 0.22308, 2.90087, 0.20761, 0.04629, - + -0.00010, 0.12694, 0.20761, - + 0.32694, 0.22515, 2.97062, 0.21441, 0.05609, - + 0.00049, 0.13520, 0.21441, - + 0.33287, 0.22685, 3.01607, 0.22011, 0.06460, - + 0.00619, 0.14232, 0.22011, - + 0.33810, 0.22824, 3.04291, 0.22495, 0.07204, - + 0.01613, 0.14848, 0.22495/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ - + 0.34272, 0.22940, 3.05549, 0.22907, 0.07860, - + 0.02414, 0.15384, 0.22907, - + 0.34687, 0.23036, 3.05751, 0.23259, 0.08444, - + 0.03143, 0.15849, 0.23259, - + 0.35053, 0.23111, 3.04944, 0.23551, 0.08957, - + 0.03787, 0.16252, 0.23551, - + 0.35386, 0.23166, 3.03514, 0.23796, 0.09411, - + 0.04364, 0.16603, 0.23796, - + 0.35689, 0.23209, 3.01668, 0.24005, 0.09820, - + 0.04885, 0.16912, 0.24005, - + 0.35964, 0.23245, 2.99490, 0.24181, 0.10190, - + 0.05357, 0.17184, 0.24181, - + 0.36202, 0.23270, 2.96853, 0.24321, 0.10510, - + 0.05779, 0.17413, 0.24321/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,21)/ - + 0.36422, 0.23289, 2.94133, 0.24444, 0.10805, - + 0.06169, 0.17620, 0.24444, - + 0.36624, 0.23299, 2.91178, 0.24539, 0.11067, - + 0.06520, 0.17800, 0.24539, - + 0.36807, 0.23302, 2.88120, 0.24617, 0.11303, - + 0.06840, 0.17957, 0.24617, - + 0.36974, 0.23299, 2.85024, 0.24681, 0.11518, - + 0.07136, 0.18096, 0.24681, - + 0.37127, 0.23290, 2.81809, 0.24721, 0.11708, - + 0.07401, 0.18211, 0.24721, - + 0.37270, 0.23277, 2.78631, 0.24751, 0.11884, - + 0.07646, 0.18313, 0.24751, - + 0.37398, 0.23260, 2.75384, 0.24767, 0.12037, - + 0.07868, 0.18398, 0.24767/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=22,30)/ - + 0.37516, 0.23239, 2.72176, 0.24775, 0.12176, - + 0.08073, 0.18473, 0.24775, - + 0.37621, 0.23219, 2.68987, 0.24774, 0.12302, - + 0.08261, 0.18536, 0.24774, - + 0.37713, 0.23197, 2.65785, 0.24760, 0.12414, - + 0.08432, 0.18586, 0.24760, - + 0.37802, 0.23175, 2.62710, 0.24746, 0.12522, - + 0.08596, 0.18633, 0.24746, - + 0.37879, 0.23142, 2.59547, 0.24717, 0.12609, - + 0.08738, 0.18661, 0.24717, - + 0.37954, 0.23110, 2.56518, 0.24689, 0.12693, - + 0.08874, 0.18688, 0.24689, - + 0.38021, 0.23077, 2.53512, 0.24654, 0.12768, - + 0.08999, 0.18708, 0.24654, - + 0.38079, 0.23043, 2.50519, 0.24612, 0.12832, - + 0.09111, 0.18719, 0.24612, - + 0.38137, 0.23009, 2.47644, 0.24570, 0.12894, - + 0.09219, 0.18730, 0.24570/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ - + 0.37025, 0.25586, 2.13329, 0.16380, 0.00425, - + 0.00001, 0.08404, 0.16380, - + 0.38007, 0.25749, 2.22498, 0.17000, 0.01592, - + 0.00004, 0.09297, 0.17000, - + 0.38785, 0.25847, 2.27134, 0.17462, 0.02538, - + 0.00000, 0.10001, 0.17462, - + 0.39423, 0.25892, 2.29030, 0.17820, 0.03320, - + 0.00006, 0.10573, 0.17820, - + 0.39942, 0.25899, 2.28806, 0.18073, 0.03969, - + 0.00041, 0.11024, 0.18073, - + 0.40370, 0.25880, 2.27386, 0.18262, 0.04520, - + 0.00426, 0.11394, 0.18262, - + 0.40730, 0.25842, 2.25092, 0.18398, 0.04986, - + 0.01079, 0.11693, 0.18398/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ - + 0.41034, 0.25787, 2.22219, 0.18493, 0.05389, - + 0.01602, 0.11941, 0.18493, - + 0.41293, 0.25716, 2.18971, 0.18554, 0.05728, - + 0.02060, 0.12144, 0.18554, - + 0.41501, 0.25639, 2.15360, 0.18579, 0.06024, - + 0.02461, 0.12302, 0.18579, - + 0.41671, 0.25557, 2.11617, 0.18582, 0.06281, - + 0.02813, 0.12434, 0.18582, - + 0.41818, 0.25469, 2.07845, 0.18567, 0.06506, - + 0.03126, 0.12541, 0.18567, - + 0.41947, 0.25372, 2.04072, 0.18539, 0.06701, - + 0.03403, 0.12624, 0.18539, - + 0.42038, 0.25274, 2.00225, 0.18494, 0.06868, - + 0.03650, 0.12684, 0.18494/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,21)/ - + 0.42117, 0.25174, 1.96497, 0.18442, 0.07017, - + 0.03874, 0.12732, 0.18442, - + 0.42180, 0.25068, 1.92783, 0.18378, 0.07146, - + 0.04071, 0.12763, 0.18378, - + 0.42224, 0.24964, 1.89143, 0.18306, 0.07255, - + 0.04245, 0.12782, 0.18306, - + 0.42256, 0.24863, 1.85607, 0.18230, 0.07349, - + 0.04400, 0.12792, 0.18230, - + 0.42275, 0.24755, 1.82130, 0.18146, 0.07432, - + 0.04543, 0.12792, 0.18146, - + 0.42287, 0.24648, 1.78785, 0.18062, 0.07509, - + 0.04676, 0.12789, 0.18062, - + 0.42289, 0.24539, 1.75503, 0.17972, 0.07570, - + 0.04790, 0.12773, 0.17972/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=22,30)/ - + 0.42285, 0.24430, 1.72335, 0.17882, 0.07621, - + 0.04893, 0.12752, 0.17882, - + 0.42271, 0.24325, 1.69263, 0.17788, 0.07666, - + 0.04986, 0.12727, 0.17788, - + 0.42246, 0.24222, 1.66265, 0.17689, 0.07704, - + 0.05069, 0.12698, 0.17689, - + 0.42221, 0.24121, 1.63408, 0.17593, 0.07740, - + 0.05147, 0.12668, 0.17593, - + 0.42183, 0.24015, 1.60571, 0.17492, 0.07765, - + 0.05213, 0.12629, 0.17492, - + 0.42146, 0.23913, 1.57868, 0.17394, 0.07788, - + 0.05276, 0.12592, 0.17394, - + 0.42106, 0.23809, 1.55239, 0.17294, 0.07806, - + 0.05332, 0.12551, 0.17294, - + 0.42064, 0.23703, 1.52677, 0.17192, 0.07816, - + 0.05381, 0.12506, 0.17192, - + 0.42022, 0.23601, 1.50227, 0.17093, 0.07826, - + 0.05427, 0.12463, 0.17093/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ - + 0.43578, 0.28378, 1.88804, 0.14623, 0.00340, - + 0.00005, 0.07484, 0.14623, - + 0.44281, 0.28259, 1.90397, 0.14887, 0.01222, - + 0.00005, 0.08057, 0.14887, - + 0.44791, 0.28102, 1.89252, 0.15039, 0.01928, - + 0.00008, 0.08485, 0.15039, - + 0.45179, 0.27917, 1.86632, 0.15122, 0.02493, - + 0.00006, 0.08811, 0.15122, - + 0.45447, 0.27724, 1.82986, 0.15145, 0.02949, - + 0.00037, 0.09050, 0.15145, - + 0.45647, 0.27511, 1.78863, 0.15128, 0.03323, - + 0.00302, 0.09232, 0.15128, - + 0.45782, 0.27300, 1.74493, 0.15085, 0.03636, - + 0.00767, 0.09366, 0.15085/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ - + 0.45866, 0.27088, 1.70028, 0.15018, 0.03897, - + 0.01128, 0.09464, 0.15018, - + 0.45918, 0.26875, 1.65555, 0.14935, 0.04119, - + 0.01441, 0.09532, 0.14935, - + 0.45935, 0.26652, 1.61059, 0.14836, 0.04304, - + 0.01715, 0.09577, 0.14836, - + 0.45913, 0.26440, 1.56698, 0.14729, 0.04457, - + 0.01949, 0.09600, 0.14729, - + 0.45873, 0.26233, 1.52497, 0.14617, 0.04588, - + 0.02154, 0.09608, 0.14617, - + 0.45825, 0.26025, 1.48447, 0.14499, 0.04699, - + 0.02334, 0.09603, 0.14499, - + 0.45748, 0.25819, 1.44486, 0.14374, 0.04789, - + 0.02484, 0.09587, 0.14374/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,21)/ - + 0.45664, 0.25619, 1.40732, 0.14249, 0.04867, - + 0.02619, 0.09565, 0.14249, - + 0.45568, 0.25422, 1.37106, 0.14121, 0.04932, - + 0.02739, 0.09533, 0.14121, - + 0.45467, 0.25224, 1.33636, 0.13993, 0.04985, - + 0.02845, 0.09495, 0.13993, - + 0.45361, 0.25029, 1.30328, 0.13868, 0.05028, - + 0.02939, 0.09453, 0.13868, - + 0.45240, 0.24840, 1.27136, 0.13739, 0.05065, - + 0.03024, 0.09407, 0.13739, - + 0.45115, 0.24658, 1.24100, 0.13612, 0.05098, - + 0.03101, 0.09361, 0.13612, - + 0.44984, 0.24479, 1.21178, 0.13485, 0.05122, - + 0.03166, 0.09308, 0.13485/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=22,30)/ - + 0.44852, 0.24304, 1.18390, 0.13360, 0.05140, - + 0.03222, 0.09253, 0.13360, - + 0.44716, 0.24131, 1.15721, 0.13237, 0.05153, - + 0.03272, 0.09197, 0.13237, - + 0.44574, 0.23961, 1.13151, 0.13115, 0.05158, - + 0.03313, 0.09139, 0.13115, - + 0.44436, 0.23796, 1.10715, 0.12997, 0.05162, - + 0.03353, 0.09084, 0.12997, - + 0.44291, 0.23633, 1.08340, 0.12876, 0.05165, - + 0.03385, 0.09024, 0.12876, - + 0.44150, 0.23476, 1.06086, 0.12759, 0.05167, - + 0.03415, 0.08966, 0.12759, - + 0.44006, 0.23320, 1.03917, 0.12644, 0.05164, - + 0.03442, 0.08907, 0.12644, - + 0.43859, 0.23164, 1.01823, 0.12531, 0.05156, - + 0.03465, 0.08847, 0.12531, - + 0.43717, 0.23013, 0.99828, 0.12422, 0.05149, - + 0.03487, 0.08789, 0.12422/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ - + 0.48966, 0.30083, 1.67097, 0.12773, 0.00269, - + 0.00004, 0.06524, 0.12773, - + 0.49307, 0.29682, 1.64066, 0.12809, 0.00961, - + 0.00008, 0.06887, 0.12809, - + 0.49487, 0.29281, 1.59580, 0.12772, 0.01494, - + 0.00006, 0.07134, 0.12772, - + 0.49551, 0.28890, 1.54534, 0.12700, 0.01913, - + 0.00004, 0.07306, 0.12700, - + 0.49544, 0.28497, 1.49179, 0.12594, 0.02237, - + 0.00027, 0.07423, 0.12594, - + 0.49466, 0.28124, 1.43847, 0.12468, 0.02504, - + 0.00231, 0.07491, 0.12468, - + 0.49349, 0.27757, 1.38653, 0.12329, 0.02720, - + 0.00571, 0.07530, 0.12329/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ - + 0.49199, 0.27400, 1.33632, 0.12181, 0.02901, - + 0.00826, 0.07542, 0.12181, - + 0.49024, 0.27059, 1.28828, 0.12030, 0.03046, - + 0.01041, 0.07540, 0.12030, - + 0.48829, 0.26723, 1.24211, 0.11872, 0.03162, - + 0.01227, 0.07517, 0.11872, - + 0.48610, 0.26402, 1.19847, 0.11717, 0.03255, - + 0.01389, 0.07486, 0.11717, - + 0.48383, 0.26093, 1.15737, 0.11562, 0.03334, - + 0.01528, 0.07450, 0.11562, - + 0.48152, 0.25791, 1.11860, 0.11409, 0.03402, - + 0.01647, 0.07408, 0.11409, - + 0.47916, 0.25491, 1.08153, 0.11253, 0.03453, - + 0.01752, 0.07355, 0.11253/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,21)/ - + 0.47677, 0.25205, 1.04685, 0.11103, 0.03496, - + 0.01844, 0.07300, 0.11103, - + 0.47421, 0.24933, 1.01394, 0.10955, 0.03530, - + 0.01918, 0.07242, 0.10955, - + 0.47169, 0.24667, 0.98286, 0.10809, 0.03556, - + 0.01985, 0.07182, 0.10809, - + 0.46923, 0.24408, 0.95356, 0.10667, 0.03574, - + 0.02045, 0.07121, 0.10667, - + 0.46669, 0.24158, 0.92566, 0.10526, 0.03587, - + 0.02096, 0.07058, 0.10526, - + 0.46418, 0.23919, 0.89934, 0.10390, 0.03598, - + 0.02140, 0.06995, 0.10390, - + 0.46165, 0.23683, 0.87430, 0.10257, 0.03601, - + 0.02177, 0.06931, 0.10257/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=22,30)/ - + 0.45915, 0.23454, 0.85060, 0.10128, 0.03601, - + 0.02208, 0.06868, 0.10128, - + 0.45666, 0.23231, 0.82809, 0.10002, 0.03599, - + 0.02237, 0.06806, 0.10002, - + 0.45416, 0.23015, 0.80661, 0.09878, 0.03596, - + 0.02263, 0.06743, 0.09878, - + 0.45174, 0.22807, 0.78633, 0.09759, 0.03592, - + 0.02287, 0.06683, 0.09759, - + 0.44927, 0.22597, 0.76683, 0.09643, 0.03581, - + 0.02301, 0.06617, 0.09643, - + 0.44688, 0.22394, 0.74838, 0.09531, 0.03571, - + 0.02314, 0.06554, 0.09531, - + 0.44452, 0.22197, 0.73074, 0.09419, 0.03560, - + 0.02326, 0.06494, 0.09419, - + 0.44220, 0.22003, 0.71382, 0.09308, 0.03548, - + 0.02338, 0.06435, 0.09308, - + 0.43994, 0.21816, 0.69774, 0.09200, 0.03537, - + 0.02348, 0.06379, 0.09200/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ - + 0.54223, 0.31033, 1.43274, 0.10537, 0.00202, - + 0.00008, 0.05374, 0.10537, - + 0.54026, 0.30321, 1.36843, 0.10410, 0.00718, - + 0.00005, 0.05569, 0.10410, - + 0.53738, 0.29641, 1.30134, 0.10248, 0.01106, - + 0.00009, 0.05683, 0.10248, - + 0.53384, 0.29017, 1.23647, 0.10072, 0.01402, - + 0.00004, 0.05741, 0.10072, - + 0.52986, 0.28426, 1.17418, 0.09884, 0.01633, - + 0.00021, 0.05762, 0.09884, - + 0.52567, 0.27870, 1.11605, 0.09696, 0.01808, - + 0.00162, 0.05758, 0.09696, - + 0.52134, 0.27338, 1.06188, 0.09508, 0.01947, - + 0.00396, 0.05733, 0.09508/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ - + 0.51683, 0.26840, 1.01153, 0.09325, 0.02056, - + 0.00574, 0.05698, 0.09325, - + 0.51229, 0.26375, 0.96494, 0.09141, 0.02151, - + 0.00725, 0.05647, 0.09141, - + 0.50768, 0.25922, 0.92139, 0.08965, 0.02214, - + 0.00846, 0.05592, 0.08965, - + 0.50312, 0.25494, 0.88111, 0.08790, 0.02268, - + 0.00949, 0.05534, 0.08790, - + 0.49867, 0.25084, 0.84386, 0.08621, 0.02312, - + 0.01040, 0.05473, 0.08621, - + 0.49432, 0.24685, 0.80928, 0.08459, 0.02345, - + 0.01121, 0.05413, 0.08459, - + 0.48987, 0.24315, 0.77692, 0.08300, 0.02369, - + 0.01183, 0.05344, 0.08300/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,21)/ - + 0.48555, 0.23961, 0.74701, 0.08148, 0.02389, - + 0.01236, 0.05276, 0.08148, - + 0.48128, 0.23613, 0.71902, 0.08003, 0.02401, - + 0.01282, 0.05207, 0.08003, - + 0.47710, 0.23281, 0.69289, 0.07860, 0.02409, - + 0.01320, 0.05142, 0.07860, - + 0.47303, 0.22967, 0.66848, 0.07720, 0.02415, - + 0.01354, 0.05081, 0.07720, - + 0.46901, 0.22658, 0.64552, 0.07587, 0.02416, - + 0.01383, 0.05017, 0.07587, - + 0.46511, 0.22362, 0.62403, 0.07460, 0.02414, - + 0.01408, 0.04954, 0.07460, - + 0.46123, 0.22075, 0.60378, 0.07338, 0.02408, - + 0.01429, 0.04889, 0.07338/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=22,30)/ - + 0.45743, 0.21799, 0.58477, 0.07221, 0.02401, - + 0.01448, 0.04825, 0.07221, - + 0.45372, 0.21533, 0.56685, 0.07108, 0.02391, - + 0.01462, 0.04763, 0.07108, - + 0.45009, 0.21276, 0.54992, 0.06999, 0.02379, - + 0.01470, 0.04701, 0.06999, - + 0.44660, 0.21029, 0.53400, 0.06894, 0.02368, - + 0.01478, 0.04642, 0.06894, - + 0.44306, 0.20788, 0.51883, 0.06788, 0.02357, - + 0.01488, 0.04583, 0.06788, - + 0.43967, 0.20556, 0.50453, 0.06687, 0.02348, - + 0.01498, 0.04526, 0.06687, - + 0.43632, 0.20331, 0.49099, 0.06590, 0.02335, - + 0.01503, 0.04471, 0.06590, - + 0.43301, 0.20111, 0.47814, 0.06495, 0.02321, - + 0.01505, 0.04416, 0.06495, - + 0.42982, 0.19900, 0.46596, 0.06405, 0.02306, - + 0.01507, 0.04364, 0.06405/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ - + 0.57955, 0.30997, 1.22539, 0.08511, 0.00166, - + 0.00015, 0.04345, 0.08511, - + 0.57208, 0.30013, 1.14330, 0.08308, 0.00551, - + 0.00018, 0.04433, 0.08308, - + 0.56428, 0.29120, 1.06655, 0.08093, 0.00833, - + 0.00018, 0.04469, 0.08093, - + 0.55653, 0.28303, 0.99682, 0.07878, 0.01047, - + 0.00017, 0.04467, 0.07878, - + 0.54878, 0.27551, 0.93335, 0.07669, 0.01198, - + 0.00024, 0.04439, 0.07669, - + 0.54117, 0.26855, 0.87603, 0.07466, 0.01318, - + 0.00127, 0.04398, 0.07466, - + 0.53361, 0.26221, 0.82423, 0.07269, 0.01411, - + 0.00292, 0.04345, 0.07269/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ - + 0.52635, 0.25618, 0.77728, 0.07078, 0.01484, - + 0.00413, 0.04288, 0.07078, - + 0.51937, 0.25040, 0.73454, 0.06897, 0.01539, - + 0.00511, 0.04228, 0.06897, - + 0.51238, 0.24507, 0.69551, 0.06724, 0.01581, - + 0.00600, 0.04160, 0.06724, - + 0.50563, 0.24007, 0.65999, 0.06558, 0.01613, - + 0.00669, 0.04092, 0.06558, - + 0.49915, 0.23532, 0.62757, 0.06400, 0.01635, - + 0.00727, 0.04026, 0.06400, - + 0.49295, 0.23077, 0.59784, 0.06250, 0.01648, - + 0.00776, 0.03963, 0.06250, - + 0.48684, 0.22642, 0.57034, 0.06104, 0.01659, - + 0.00813, 0.03897, 0.06104/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,21)/ - + 0.48092, 0.22235, 0.54514, 0.05968, 0.01667, - + 0.00847, 0.03831, 0.05968, - + 0.47504, 0.21854, 0.52181, 0.05839, 0.01669, - + 0.00882, 0.03764, 0.05839, - + 0.46945, 0.21482, 0.50028, 0.05715, 0.01667, - + 0.00908, 0.03699, 0.05715, - + 0.46413, 0.21122, 0.48036, 0.05597, 0.01663, - + 0.00929, 0.03638, 0.05597, - + 0.45886, 0.20781, 0.46183, 0.05483, 0.01657, - + 0.00943, 0.03577, 0.05483, - + 0.45374, 0.20458, 0.44461, 0.05374, 0.01650, - + 0.00953, 0.03518, 0.05374, - + 0.44873, 0.20146, 0.42842, 0.05269, 0.01641, - + 0.00961, 0.03462, 0.05269/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=22,30)/ - + 0.44389, 0.19847, 0.41326, 0.05168, 0.01632, - + 0.00968, 0.03408, 0.05168, - + 0.43925, 0.19557, 0.39911, 0.05070, 0.01623, - + 0.00975, 0.03355, 0.05070, - + 0.43478, 0.19272, 0.38588, 0.04975, 0.01616, - + 0.00983, 0.03302, 0.04975, - + 0.43049, 0.19000, 0.37348, 0.04884, 0.01609, - + 0.00990, 0.03251, 0.04884, - + 0.42613, 0.18740, 0.36170, 0.04799, 0.01594, - + 0.00993, 0.03200, 0.04799, - + 0.42195, 0.18492, 0.35063, 0.04717, 0.01580, - + 0.00996, 0.03152, 0.04717, - + 0.41787, 0.18250, 0.34016, 0.04637, 0.01567, - + 0.00996, 0.03105, 0.04637, - + 0.41387, 0.18014, 0.33023, 0.04559, 0.01555, - + 0.00995, 0.03061, 0.04559, - + 0.41002, 0.17787, 0.32085, 0.04484, 0.01543, - + 0.00993, 0.03018, 0.04484/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ - + 0.60289, 0.30265, 1.04424, 0.06760, 0.00122, - + 0.00002, 0.03439, 0.06760, - + 0.59001, 0.29057, 0.95472, 0.06526, 0.00414, - + 0.00002, 0.03477, 0.06526, - + 0.57767, 0.27976, 0.87555, 0.06298, 0.00628, - + 0.00002, 0.03468, 0.06298, - + 0.56584, 0.27024, 0.80645, 0.06080, 0.00783, - + 0.00006, 0.03439, 0.06080, - + 0.55466, 0.26145, 0.74555, 0.05872, 0.00896, - + 0.00010, 0.03392, 0.05872, - + 0.54386, 0.25357, 0.69209, 0.05679, 0.00976, - + 0.00086, 0.03337, 0.05679, - + 0.53370, 0.24629, 0.64459, 0.05489, 0.01040, - + 0.00209, 0.03284, 0.05489/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ - + 0.52398, 0.23947, 0.60224, 0.05318, 0.01089, - + 0.00298, 0.03216, 0.05318, - + 0.51460, 0.23321, 0.56446, 0.05153, 0.01124, - + 0.00378, 0.03157, 0.05153, - + 0.50568, 0.22723, 0.53036, 0.05001, 0.01144, - + 0.00435, 0.03088, 0.05001, - + 0.49708, 0.22169, 0.49968, 0.04858, 0.01162, - + 0.00476, 0.03020, 0.04858, - + 0.48892, 0.21648, 0.47204, 0.04720, 0.01176, - + 0.00514, 0.02956, 0.04720, - + 0.48122, 0.21155, 0.44704, 0.04585, 0.01188, - + 0.00556, 0.02899, 0.04585, - + 0.47356, 0.20700, 0.42403, 0.04462, 0.01190, - + 0.00578, 0.02838, 0.04462/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,21)/ - + 0.46631, 0.20267, 0.40315, 0.04348, 0.01189, - + 0.00597, 0.02779, 0.04348, - + 0.45945, 0.19842, 0.38413, 0.04239, 0.01185, - + 0.00614, 0.02721, 0.04239, - + 0.45275, 0.19448, 0.36660, 0.04134, 0.01180, - + 0.00632, 0.02667, 0.04134, - + 0.44625, 0.19081, 0.35043, 0.04034, 0.01174, - + 0.00648, 0.02615, 0.04034, - + 0.44001, 0.18723, 0.33541, 0.03938, 0.01168, - + 0.00656, 0.02564, 0.03938, - + 0.43405, 0.18381, 0.32151, 0.03845, 0.01162, - + 0.00661, 0.02516, 0.03845, - + 0.42825, 0.18054, 0.30864, 0.03759, 0.01154, - + 0.00665, 0.02469, 0.03759/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=22,30)/ - + 0.42266, 0.17744, 0.29670, 0.03678, 0.01145, - + 0.00669, 0.02423, 0.03678, - + 0.41725, 0.17448, 0.28562, 0.03600, 0.01134, - + 0.00672, 0.02378, 0.03600, - + 0.41199, 0.17165, 0.27531, 0.03526, 0.01122, - + 0.00672, 0.02333, 0.03526, - + 0.40696, 0.16894, 0.26568, 0.03455, 0.01111, - + 0.00673, 0.02290, 0.03455, - + 0.40201, 0.16627, 0.25649, 0.03386, 0.01100, - + 0.00672, 0.02250, 0.03386, - + 0.39728, 0.16373, 0.24788, 0.03319, 0.01090, - + 0.00672, 0.02213, 0.03319, - + 0.39268, 0.16127, 0.23985, 0.03255, 0.01079, - + 0.00670, 0.02177, 0.03255, - + 0.38820, 0.15890, 0.23234, 0.03193, 0.01068, - + 0.00666, 0.02142, 0.03193, - + 0.38390, 0.15662, 0.22527, 0.03134, 0.01057, - + 0.00663, 0.02109, 0.03134/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ - + 0.61410, 0.28979, 0.88667, 0.05279, 0.00092, - + 0.00004, 0.02687, 0.05279, - + 0.59604, 0.27621, 0.79580, 0.05049, 0.00316, - + -0.00001, 0.02690, 0.05049, - + 0.57944, 0.26417, 0.71873, 0.04839, 0.00468, - + 0.00004, 0.02655, 0.04839, - + 0.56405, 0.25361, 0.65336, 0.04632, 0.00579, - + 0.00003, 0.02625, 0.04632, - + 0.54975, 0.24410, 0.59711, 0.04450, 0.00659, - + 0.00017, 0.02561, 0.04450, - + 0.53630, 0.23556, 0.54858, 0.04275, 0.00717, - + 0.00074, 0.02507, 0.04275, - + 0.52367, 0.22775, 0.50632, 0.04117, 0.00758, - + 0.00148, 0.02444, 0.04117/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ - + 0.51187, 0.22050, 0.46921, 0.03970, 0.00788, - + 0.00222, 0.02382, 0.03970, - + 0.50079, 0.21372, 0.43637, 0.03831, 0.00812, - + 0.00275, 0.02322, 0.03831, - + 0.49012, 0.20756, 0.40718, 0.03696, 0.00828, - + 0.00307, 0.02267, 0.03696, - + 0.48003, 0.20183, 0.38122, 0.03572, 0.00839, - + 0.00337, 0.02210, 0.03572, - + 0.47048, 0.19649, 0.35804, 0.03457, 0.00845, - + 0.00362, 0.02155, 0.03457, - + 0.46141, 0.19150, 0.33722, 0.03348, 0.00848, - + 0.00382, 0.02104, 0.03348, - + 0.45269, 0.18678, 0.31828, 0.03250, 0.00842, - + 0.00401, 0.02050, 0.03250/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,21)/ - + 0.44446, 0.18233, 0.30117, 0.03157, 0.00837, - + 0.00418, 0.02000, 0.03157, - + 0.43664, 0.17805, 0.28558, 0.03066, 0.00835, - + 0.00434, 0.01954, 0.03066, - + 0.42911, 0.17405, 0.27139, 0.02981, 0.00829, - + 0.00442, 0.01909, 0.02981, - + 0.42187, 0.17031, 0.25841, 0.02902, 0.00821, - + 0.00445, 0.01865, 0.02902, - + 0.41501, 0.16668, 0.24646, 0.02825, 0.00815, - + 0.00449, 0.01823, 0.02825, - + 0.40851, 0.16321, 0.23547, 0.02751, 0.00810, - + 0.00453, 0.01784, 0.02751, - + 0.40212, 0.15998, 0.22531, 0.02684, 0.00801, - + 0.00455, 0.01744, 0.02684/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=22,30)/ - + 0.39595, 0.15696, 0.21589, 0.02621, 0.00791, - + 0.00456, 0.01704, 0.02621, - + 0.39003, 0.15404, 0.20721, 0.02559, 0.00781, - + 0.00457, 0.01669, 0.02559, - + 0.38432, 0.15119, 0.19917, 0.02499, 0.00772, - + 0.00457, 0.01638, 0.02499, - + 0.37887, 0.14848, 0.19169, 0.02442, 0.00763, - + 0.00457, 0.01609, 0.02442, - + 0.37357, 0.14585, 0.18463, 0.02386, 0.00757, - + 0.00457, 0.01575, 0.02386, - + 0.36850, 0.14335, 0.17804, 0.02334, 0.00752, - + 0.00456, 0.01543, 0.02334, - + 0.36356, 0.14096, 0.17189, 0.02284, 0.00745, - + 0.00454, 0.01514, 0.02284, - + 0.35872, 0.13868, 0.16613, 0.02235, 0.00735, - + 0.00450, 0.01487, 0.02235, - + 0.35408, 0.13650, 0.16072, 0.02189, 0.00726, - + 0.00446, 0.01461, 0.02189/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ - + 0.61433, 0.27330, 0.74950, 0.04060, 0.00064, - + 0.00002, 0.02066, 0.04060, - + 0.59178, 0.25855, 0.66159, 0.03854, 0.00235, - + 0.00009, 0.02053, 0.03854, - + 0.57142, 0.24576, 0.58906, 0.03662, 0.00352, - + 0.00010, 0.02018, 0.03662, - + 0.55273, 0.23478, 0.52903, 0.03494, 0.00429, - + 0.00005, 0.01965, 0.03494, - + 0.53602, 0.22461, 0.47855, 0.03333, 0.00487, - + 0.00011, 0.01917, 0.03333, - + 0.52055, 0.21555, 0.43557, 0.03187, 0.00526, - + 0.00051, 0.01862, 0.03187, - + 0.50593, 0.20758, 0.39844, 0.03051, 0.00558, - + 0.00115, 0.01807, 0.03051/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ - + 0.49243, 0.20017, 0.36642, 0.02924, 0.00585, - + 0.00166, 0.01753, 0.02924, - + 0.47991, 0.19326, 0.33847, 0.02810, 0.00596, - + 0.00194, 0.01700, 0.02810, - + 0.46779, 0.18721, 0.31374, 0.02702, 0.00599, - + 0.00222, 0.01656, 0.02702, - + 0.45658, 0.18141, 0.29198, 0.02603, 0.00603, - + 0.00243, 0.01610, 0.02603, - + 0.44611, 0.17597, 0.27271, 0.02511, 0.00607, - + 0.00260, 0.01563, 0.02511, - + 0.43622, 0.17090, 0.25553, 0.02426, 0.00612, - + 0.00276, 0.01515, 0.02426, - + 0.42664, 0.16623, 0.24001, 0.02348, 0.00605, - + 0.00286, 0.01473, 0.02348/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,21)/ - + 0.41767, 0.16185, 0.22608, 0.02274, 0.00597, - + 0.00293, 0.01435, 0.02274, - + 0.40929, 0.15764, 0.21352, 0.02202, 0.00588, - + 0.00297, 0.01400, 0.02202, - + 0.40126, 0.15371, 0.20210, 0.02134, 0.00582, - + 0.00300, 0.01364, 0.02134, - + 0.39359, 0.15002, 0.19169, 0.02068, 0.00579, - + 0.00303, 0.01329, 0.02068, - + 0.38620, 0.14655, 0.18220, 0.02010, 0.00573, - + 0.00303, 0.01294, 0.02010, - + 0.37916, 0.14328, 0.17351, 0.01956, 0.00565, - + 0.00303, 0.01261, 0.01956, - + 0.37242, 0.14012, 0.16560, 0.01903, 0.00558, - + 0.00306, 0.01228, 0.01903/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=22,30)/ - + 0.36599, 0.13710, 0.15834, 0.01854, 0.00550, - + 0.00312, 0.01198, 0.01854, - + 0.35984, 0.13427, 0.15157, 0.01804, 0.00544, - + 0.00315, 0.01169, 0.01804, - + 0.35396, 0.13162, 0.14522, 0.01754, 0.00538, - + 0.00314, 0.01141, 0.01754, - + 0.34834, 0.12910, 0.13934, 0.01708, 0.00532, - + 0.00314, 0.01116, 0.01708, - + 0.34282, 0.12658, 0.13397, 0.01666, 0.00525, - + 0.00311, 0.01094, 0.01666, - + 0.33754, 0.12418, 0.12896, 0.01627, 0.00518, - + 0.00307, 0.01073, 0.01627, - + 0.33242, 0.12187, 0.12427, 0.01591, 0.00510, - + 0.00305, 0.01052, 0.01591, - + 0.32744, 0.11966, 0.11986, 0.01558, 0.00501, - + 0.00304, 0.01030, 0.01558, - + 0.32267, 0.11755, 0.11573, 0.01526, 0.00493, - + 0.00304, 0.01010, 0.01526/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ - + 0.60532, 0.25406, 0.63051, 0.03078, 0.00047, - + 0.00016, 0.01566, 0.03078, - + 0.57898, 0.23857, 0.54779, 0.02902, 0.00179, - + 0.00009, 0.01541, 0.02902, - + 0.55534, 0.22556, 0.48134, 0.02737, 0.00270, - + 0.00009, 0.01508, 0.02737, - + 0.53451, 0.21388, 0.42751, 0.02596, 0.00326, - + 0.00001, 0.01459, 0.02596, - + 0.51533, 0.20398, 0.38247, 0.02458, 0.00371, - + 0.00014, 0.01418, 0.02458, - + 0.49796, 0.19494, 0.34504, 0.02336, 0.00403, - + 0.00037, 0.01378, 0.02336, - + 0.48205, 0.18679, 0.31325, 0.02231, 0.00415, - + 0.00087, 0.01331, 0.02231/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ - + 0.46721, 0.17950, 0.28590, 0.02135, 0.00429, - + 0.00115, 0.01282, 0.02135, - + 0.45345, 0.17287, 0.26220, 0.02041, 0.00438, - + 0.00141, 0.01239, 0.02041, - + 0.44063, 0.16667, 0.24169, 0.01955, 0.00446, - + 0.00159, 0.01198, 0.01955, - + 0.42868, 0.16095, 0.22359, 0.01874, 0.00447, - + 0.00170, 0.01165, 0.01874, - + 0.41748, 0.15568, 0.20767, 0.01802, 0.00442, - + 0.00179, 0.01130, 0.01802, - + 0.40690, 0.15083, 0.19362, 0.01741, 0.00434, - + 0.00191, 0.01090, 0.01741, - + 0.39690, 0.14628, 0.18113, 0.01681, 0.00428, - + 0.00201, 0.01054, 0.01681/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,21)/ - + 0.38754, 0.14205, 0.16999, 0.01623, 0.00424, - + 0.00209, 0.01023, 0.01623, - + 0.37872, 0.13804, 0.16000, 0.01565, 0.00423, - + 0.00213, 0.00994, 0.01565, - + 0.37042, 0.13429, 0.15095, 0.01510, 0.00419, - + 0.00216, 0.00967, 0.01510, - + 0.36259, 0.13077, 0.14272, 0.01458, 0.00411, - + 0.00219, 0.00941, 0.01458, - + 0.35501, 0.12747, 0.13524, 0.01411, 0.00405, - + 0.00221, 0.00917, 0.01411, - + 0.34778, 0.12438, 0.12841, 0.01367, 0.00401, - + 0.00223, 0.00893, 0.01367, - + 0.34079, 0.12139, 0.12220, 0.01330, 0.00396, - + 0.00219, 0.00867, 0.01330/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=22,30)/ - + 0.33410, 0.11853, 0.11651, 0.01296, 0.00391, - + 0.00212, 0.00841, 0.01296, - + 0.32781, 0.11584, 0.11123, 0.01261, 0.00386, - + 0.00211, 0.00819, 0.01261, - + 0.32189, 0.11329, 0.10632, 0.01223, 0.00381, - + 0.00214, 0.00801, 0.01223, - + 0.31624, 0.11087, 0.10178, 0.01189, 0.00376, - + 0.00217, 0.00784, 0.01189, - + 0.31056, 0.10853, 0.09758, 0.01160, 0.00370, - + 0.00214, 0.00767, 0.01160, - + 0.30516, 0.10631, 0.09368, 0.01133, 0.00363, - + 0.00211, 0.00751, 0.01133, - + 0.29996, 0.10419, 0.09007, 0.01107, 0.00357, - + 0.00208, 0.00734, 0.01107, - + 0.29496, 0.10216, 0.08672, 0.01082, 0.00349, - + 0.00206, 0.00717, 0.01082, - + 0.29017, 0.10023, 0.08359, 0.01059, 0.00342, - + 0.00204, 0.00700, 0.01059/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ - + 0.58858, 0.23307, 0.52773, 0.02286, 0.00046, - + 0.00014, 0.01179, 0.02286, - + 0.55905, 0.21737, 0.45171, 0.02143, 0.00142, - + 0.00011, 0.01150, 0.02143, - + 0.53267, 0.20451, 0.39204, 0.02014, 0.00206, - + 0.00009, 0.01118, 0.02014, - + 0.50988, 0.19294, 0.34386, 0.01901, 0.00244, - + 0.00010, 0.01077, 0.01901, - + 0.48921, 0.18294, 0.30497, 0.01799, 0.00272, - + 0.00003, 0.01039, 0.01799, - + 0.47047, 0.17422, 0.27271, 0.01699, 0.00297, - + 0.00032, 0.01004, 0.01699, - + 0.45342, 0.16638, 0.24571, 0.01612, 0.00307, - + 0.00064, 0.00971, 0.01612/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ - + 0.43775, 0.15926, 0.22258, 0.01539, 0.00315, - + 0.00084, 0.00928, 0.01539, - + 0.42344, 0.15270, 0.20269, 0.01468, 0.00315, - + 0.00099, 0.00896, 0.01468, - + 0.41007, 0.14672, 0.18599, 0.01403, 0.00319, - + 0.00114, 0.00860, 0.01403, - + 0.39753, 0.14135, 0.17136, 0.01343, 0.00318, - + 0.00125, 0.00831, 0.01343, - + 0.38600, 0.13639, 0.15849, 0.01285, 0.00316, - + 0.00132, 0.00802, 0.01285, - + 0.37550, 0.13171, 0.14711, 0.01227, 0.00314, - + 0.00135, 0.00770, 0.01227, - + 0.36515, 0.12740, 0.13694, 0.01183, 0.00311, - + 0.00141, 0.00745, 0.01183/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,21)/ - + 0.35551, 0.12337, 0.12789, 0.01142, 0.00308, - + 0.00146, 0.00722, 0.01142, - + 0.34657, 0.11952, 0.11980, 0.01100, 0.00303, - + 0.00148, 0.00700, 0.01100, - + 0.33811, 0.11600, 0.11263, 0.01061, 0.00299, - + 0.00151, 0.00681, 0.01061, - + 0.33010, 0.11275, 0.10623, 0.01024, 0.00296, - + 0.00154, 0.00665, 0.01024, - + 0.32242, 0.10966, 0.10040, 0.00991, 0.00290, - + 0.00153, 0.00645, 0.00991, - + 0.31512, 0.10674, 0.09510, 0.00961, 0.00283, - + 0.00151, 0.00623, 0.00961, - + 0.30826, 0.10397, 0.09025, 0.00930, 0.00278, - + 0.00151, 0.00604, 0.00930/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=22,30)/ - + 0.30178, 0.10134, 0.08581, 0.00902, 0.00275, - + 0.00153, 0.00587, 0.00902, - + 0.29556, 0.09887, 0.08171, 0.00874, 0.00271, - + 0.00153, 0.00572, 0.00874, - + 0.28955, 0.09653, 0.07793, 0.00848, 0.00267, - + 0.00150, 0.00559, 0.00848, - + 0.28384, 0.09432, 0.07444, 0.00823, 0.00262, - + 0.00147, 0.00547, 0.00823, - + 0.27836, 0.09218, 0.07125, 0.00801, 0.00255, - + 0.00146, 0.00530, 0.00801, - + 0.27315, 0.09015, 0.06829, 0.00779, 0.00249, - + 0.00145, 0.00513, 0.00779, - + 0.26809, 0.08822, 0.06553, 0.00760, 0.00244, - + 0.00146, 0.00500, 0.00760, - + 0.26316, 0.08638, 0.06295, 0.00742, 0.00241, - + 0.00147, 0.00492, 0.00742, - + 0.25846, 0.08463, 0.06055, 0.00725, 0.00237, - + 0.00148, 0.00484, 0.00725/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ - + 0.56509, 0.21132, 0.43887, 0.01680, 0.00043, - + 0.00004, 0.00859, 0.01680, - + 0.53288, 0.19599, 0.37038, 0.01564, 0.00112, - + 0.00003, 0.00844, 0.01564, - + 0.50493, 0.18314, 0.31747, 0.01464, 0.00156, - + 0.00002, 0.00816, 0.01464, - + 0.48041, 0.17217, 0.27563, 0.01374, 0.00188, - + 0.00011, 0.00783, 0.01374, - + 0.45883, 0.16239, 0.24224, 0.01293, 0.00207, - + 0.00006, 0.00753, 0.01293, - + 0.43948, 0.15386, 0.21487, 0.01221, 0.00216, - + 0.00019, 0.00722, 0.01221, - + 0.42178, 0.14637, 0.19192, 0.01152, 0.00225, - + 0.00043, 0.00699, 0.01152/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ - + 0.40565, 0.13960, 0.17299, 0.01093, 0.00231, - + 0.00065, 0.00670, 0.01093, - + 0.39091, 0.13345, 0.15662, 0.01042, 0.00232, - + 0.00079, 0.00637, 0.01042, - + 0.37725, 0.12781, 0.14279, 0.00995, 0.00230, - + 0.00085, 0.00613, 0.00995, - + 0.36473, 0.12267, 0.13078, 0.00946, 0.00229, - + 0.00091, 0.00590, 0.00946, - + 0.35314, 0.11798, 0.12031, 0.00900, 0.00229, - + 0.00098, 0.00567, 0.00900, - + 0.34230, 0.11368, 0.11112, 0.00860, 0.00228, - + 0.00106, 0.00546, 0.00860, - + 0.33212, 0.10970, 0.10320, 0.00825, 0.00227, - + 0.00107, 0.00530, 0.00825/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,21)/ - + 0.32258, 0.10602, 0.09614, 0.00793, 0.00225, - + 0.00107, 0.00514, 0.00793, - + 0.31350, 0.10258, 0.08973, 0.00762, 0.00221, - + 0.00109, 0.00496, 0.00762, - + 0.30503, 0.09931, 0.08404, 0.00734, 0.00217, - + 0.00110, 0.00481, 0.00734, - + 0.29710, 0.09621, 0.07896, 0.00708, 0.00212, - + 0.00110, 0.00469, 0.00708, - + 0.28971, 0.09333, 0.07438, 0.00680, 0.00210, - + 0.00112, 0.00453, 0.00680, - + 0.28278, 0.09064, 0.07023, 0.00653, 0.00208, - + 0.00113, 0.00436, 0.00653, - + 0.27605, 0.08812, 0.06648, 0.00632, 0.00203, - + 0.00112, 0.00422, 0.00632/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=22,30)/ - + 0.26960, 0.08576, 0.06307, 0.00614, 0.00195, - + 0.00110, 0.00411, 0.00614, - + 0.26349, 0.08351, 0.05994, 0.00596, 0.00191, - + 0.00109, 0.00400, 0.00596, - + 0.25767, 0.08136, 0.05705, 0.00577, 0.00190, - + 0.00108, 0.00389, 0.00577, - + 0.25217, 0.07932, 0.05439, 0.00559, 0.00190, - + 0.00107, 0.00378, 0.00559, - + 0.24693, 0.07740, 0.05192, 0.00542, 0.00185, - + 0.00105, 0.00368, 0.00542, - + 0.24195, 0.07558, 0.04964, 0.00526, 0.00181, - + 0.00104, 0.00358, 0.00526, - + 0.23712, 0.07384, 0.04756, 0.00512, 0.00176, - + 0.00103, 0.00349, 0.00512, - + 0.23243, 0.07217, 0.04567, 0.00500, 0.00172, - + 0.00104, 0.00340, 0.00500, - + 0.22795, 0.07059, 0.04390, 0.00488, 0.00168, - + 0.00104, 0.00333, 0.00488/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ - + 0.53599, 0.19001, 0.36308, 0.01227, 0.00019, - + -0.00010, 0.00614, 0.01227, - + 0.50198, 0.17522, 0.30214, 0.01140, 0.00069, - + -0.00003, 0.00598, 0.01140, - + 0.47297, 0.16271, 0.25599, 0.01059, 0.00107, - + -0.00005, 0.00577, 0.01059, - + 0.44780, 0.15212, 0.22012, 0.00988, 0.00133, - + -0.00008, 0.00553, 0.00988, - + 0.42563, 0.14289, 0.19174, 0.00921, 0.00144, - + -0.00004, 0.00541, 0.00921, - + 0.40582, 0.13488, 0.16870, 0.00867, 0.00158, - + 0.00004, 0.00513, 0.00867, - + 0.38779, 0.12785, 0.14980, 0.00823, 0.00159, - + 0.00023, 0.00491, 0.00823/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ - + 0.37181, 0.12139, 0.13409, 0.00777, 0.00163, - + 0.00039, 0.00465, 0.00777, - + 0.35708, 0.11575, 0.12072, 0.00734, 0.00162, - + 0.00043, 0.00443, 0.00734, - + 0.34344, 0.11055, 0.10955, 0.00697, 0.00162, - + 0.00055, 0.00430, 0.00697, - + 0.33094, 0.10576, 0.09990, 0.00664, 0.00165, - + 0.00058, 0.00414, 0.00664, - + 0.31945, 0.10138, 0.09151, 0.00633, 0.00165, - + 0.00059, 0.00397, 0.00633, - + 0.30887, 0.09737, 0.08419, 0.00603, 0.00157, - + 0.00062, 0.00379, 0.00603, - + 0.29894, 0.09369, 0.07783, 0.00573, 0.00158, - + 0.00064, 0.00368, 0.00573/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,21)/ - + 0.28969, 0.09029, 0.07222, 0.00548, 0.00157, - + 0.00068, 0.00357, 0.00548, - + 0.28097, 0.08712, 0.06723, 0.00530, 0.00149, - + 0.00074, 0.00342, 0.00530, - + 0.27284, 0.08419, 0.06279, 0.00508, 0.00147, - + 0.00076, 0.00331, 0.00508, - + 0.26525, 0.08148, 0.05882, 0.00483, 0.00147, - + 0.00074, 0.00321, 0.00483, - + 0.25793, 0.07891, 0.05527, 0.00467, 0.00143, - + 0.00073, 0.00308, 0.00467, - + 0.25099, 0.07649, 0.05207, 0.00456, 0.00138, - + 0.00071, 0.00293, 0.00456, - + 0.24453, 0.07424, 0.04918, 0.00440, 0.00136, - + 0.00071, 0.00284, 0.00440/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=22,30)/ - + 0.23848, 0.07214, 0.04655, 0.00423, 0.00136, - + 0.00072, 0.00276, 0.00423, - + 0.23271, 0.07014, 0.04414, 0.00408, 0.00133, - + 0.00072, 0.00270, 0.00408, - + 0.22718, 0.06823, 0.04191, 0.00394, 0.00128, - + 0.00071, 0.00264, 0.00394, - + 0.22195, 0.06644, 0.03987, 0.00382, 0.00123, - + 0.00070, 0.00258, 0.00382, - + 0.21687, 0.06471, 0.03801, 0.00372, 0.00123, - + 0.00071, 0.00249, 0.00372, - + 0.21206, 0.06308, 0.03629, 0.00364, 0.00122, - + 0.00071, 0.00240, 0.00364, - + 0.20746, 0.06153, 0.03471, 0.00355, 0.00121, - + 0.00070, 0.00232, 0.00355, - + 0.20305, 0.06004, 0.03325, 0.00346, 0.00120, - + 0.00068, 0.00225, 0.00346, - + 0.19885, 0.05863, 0.03189, 0.00338, 0.00119, - + 0.00067, 0.00218, 0.00338/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ - + 0.50281, 0.16839, 0.29770, 0.00861, 0.00027, - + 0.00012, 0.00453, 0.00861, - + 0.46791, 0.15426, 0.24448, 0.00799, 0.00061, - + 0.00019, 0.00436, 0.00799, - + 0.43830, 0.14249, 0.20482, 0.00737, 0.00091, - + 0.00013, 0.00422, 0.00737, - + 0.41277, 0.13261, 0.17444, 0.00685, 0.00100, - + 0.00012, 0.00410, 0.00685, - + 0.39083, 0.12400, 0.15050, 0.00636, 0.00112, - + 0.00013, 0.00381, 0.00636, - + 0.37090, 0.11660, 0.13154, 0.00601, 0.00121, - + 0.00019, 0.00361, 0.00601, - + 0.35311, 0.11008, 0.11607, 0.00565, 0.00119, - + 0.00034, 0.00350, 0.00565/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ - + 0.33704, 0.10428, 0.10328, 0.00533, 0.00127, - + 0.00034, 0.00329, 0.00533, - + 0.32271, 0.09904, 0.09247, 0.00504, 0.00125, - + 0.00042, 0.00315, 0.00504, - + 0.30922, 0.09434, 0.08337, 0.00478, 0.00121, - + 0.00042, 0.00302, 0.00478, - + 0.29711, 0.09002, 0.07573, 0.00453, 0.00120, - + 0.00041, 0.00287, 0.00453, - + 0.28599, 0.08606, 0.06914, 0.00430, 0.00119, - + 0.00044, 0.00274, 0.00430, - + 0.27561, 0.08243, 0.06334, 0.00410, 0.00115, - + 0.00051, 0.00264, 0.00410, - + 0.26603, 0.07914, 0.05830, 0.00392, 0.00115, - + 0.00051, 0.00256, 0.00392/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,21)/ - + 0.25716, 0.07610, 0.05388, 0.00376, 0.00112, - + 0.00050, 0.00246, 0.00376, - + 0.24884, 0.07327, 0.04998, 0.00361, 0.00105, - + 0.00049, 0.00233, 0.00361, - + 0.24098, 0.07062, 0.04655, 0.00349, 0.00102, - + 0.00050, 0.00222, 0.00349, - + 0.23356, 0.06815, 0.04351, 0.00339, 0.00101, - + 0.00052, 0.00214, 0.00339, - + 0.22674, 0.06588, 0.04075, 0.00324, 0.00098, - + 0.00052, 0.00207, 0.00324, - + 0.22041, 0.06379, 0.03826, 0.00308, 0.00095, - + 0.00050, 0.00201, 0.00308, - + 0.21431, 0.06179, 0.03605, 0.00297, 0.00094, - + 0.00050, 0.00194, 0.00297/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=22,30)/ - + 0.20850, 0.05990, 0.03405, 0.00288, 0.00095, - + 0.00051, 0.00188, 0.00288, - + 0.20303, 0.05812, 0.03223, 0.00280, 0.00094, - + 0.00051, 0.00182, 0.00280, - + 0.19786, 0.05645, 0.03055, 0.00272, 0.00089, - + 0.00050, 0.00177, 0.00272, - + 0.19299, 0.05487, 0.02902, 0.00265, 0.00086, - + 0.00050, 0.00173, 0.00265, - + 0.18831, 0.05333, 0.02764, 0.00256, 0.00086, - + 0.00049, 0.00168, 0.00256, - + 0.18387, 0.05187, 0.02637, 0.00247, 0.00086, - + 0.00048, 0.00164, 0.00247, - + 0.17969, 0.05052, 0.02518, 0.00237, 0.00085, - + 0.00047, 0.00159, 0.00237, - + 0.17575, 0.04925, 0.02408, 0.00226, 0.00082, - + 0.00045, 0.00152, 0.00226, - + 0.17200, 0.04804, 0.02305, 0.00216, 0.00079, - + 0.00043, 0.00146, 0.00216/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ - + 0.46651, 0.14828, 0.24279, 0.00611, 0.00011, - + -0.00002, 0.00309, 0.00611, - + 0.43139, 0.13494, 0.19692, 0.00565, 0.00042, - + -0.00006, 0.00294, 0.00565, - + 0.40181, 0.12397, 0.16310, 0.00520, 0.00060, - + -0.00004, 0.00287, 0.00520, - + 0.37674, 0.11465, 0.13762, 0.00476, 0.00072, - + -0.00002, 0.00280, 0.00476, - + 0.35456, 0.10688, 0.11783, 0.00449, 0.00075, - + -0.00001, 0.00266, 0.00449, - + 0.33514, 0.10011, 0.10217, 0.00420, 0.00085, - + 0.00009, 0.00255, 0.00420, - + 0.31798, 0.09409, 0.08951, 0.00397, 0.00081, - + 0.00015, 0.00234, 0.00397/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ - + 0.30251, 0.08874, 0.07912, 0.00373, 0.00087, - + 0.00020, 0.00228, 0.00373, - + 0.28874, 0.08398, 0.07050, 0.00345, 0.00083, - + 0.00025, 0.00212, 0.00345, - + 0.27592, 0.07975, 0.06325, 0.00328, 0.00081, - + 0.00031, 0.00202, 0.00328, - + 0.26437, 0.07591, 0.05717, 0.00308, 0.00081, - + 0.00029, 0.00194, 0.00308, - + 0.25375, 0.07243, 0.05196, 0.00292, 0.00080, - + 0.00028, 0.00186, 0.00292, - + 0.24385, 0.06926, 0.04741, 0.00282, 0.00075, - + 0.00031, 0.00174, 0.00282, - + 0.23477, 0.06629, 0.04352, 0.00267, 0.00075, - + 0.00033, 0.00168, 0.00267/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,21)/ - + 0.22633, 0.06355, 0.04011, 0.00254, 0.00074, - + 0.00033, 0.00162, 0.00254, - + 0.21832, 0.06103, 0.03709, 0.00246, 0.00069, - + 0.00032, 0.00154, 0.00246, - + 0.21107, 0.05872, 0.03443, 0.00236, 0.00067, - + 0.00032, 0.00147, 0.00236, - + 0.20445, 0.05660, 0.03206, 0.00225, 0.00068, - + 0.00034, 0.00140, 0.00225, - + 0.19804, 0.05458, 0.02997, 0.00215, 0.00066, - + 0.00033, 0.00135, 0.00215, - + 0.19195, 0.05269, 0.02810, 0.00206, 0.00064, - + 0.00032, 0.00132, 0.00206, - + 0.18616, 0.05095, 0.02642, 0.00201, 0.00064, - + 0.00032, 0.00127, 0.00201/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=22,30)/ - + 0.18070, 0.04933, 0.02491, 0.00198, 0.00064, - + 0.00033, 0.00122, 0.00198, - + 0.17561, 0.04779, 0.02353, 0.00193, 0.00062, - + 0.00033, 0.00118, 0.00193, - + 0.17086, 0.04632, 0.02226, 0.00185, 0.00059, - + 0.00032, 0.00114, 0.00185, - + 0.16639, 0.04494, 0.02110, 0.00177, 0.00056, - + 0.00031, 0.00111, 0.00177, - + 0.16217, 0.04365, 0.02006, 0.00170, 0.00054, - + 0.00030, 0.00107, 0.00170, - + 0.15818, 0.04243, 0.01910, 0.00164, 0.00051, - + 0.00030, 0.00104, 0.00164, - + 0.15438, 0.04126, 0.01822, 0.00158, 0.00050, - + 0.00030, 0.00101, 0.00158, - + 0.15075, 0.04013, 0.01741, 0.00152, 0.00051, - + 0.00031, 0.00100, 0.00152, - + 0.14730, 0.03906, 0.01665, 0.00147, 0.00051, - + 0.00031, 0.00098, 0.00147/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ - + 0.42830, 0.12862, 0.19602, 0.00412, 0.00016, - + 0.00002, 0.00222, 0.00412, - + 0.39354, 0.11649, 0.15706, 0.00378, 0.00034, - + 0.00007, 0.00215, 0.00378, - + 0.36446, 0.10640, 0.12870, 0.00351, 0.00049, - + 0.00006, 0.00208, 0.00351, - + 0.33977, 0.09806, 0.10763, 0.00329, 0.00056, - + 0.00006, 0.00191, 0.00329, - + 0.31854, 0.09092, 0.09144, 0.00298, 0.00063, - + -0.00001, 0.00183, 0.00298, - + 0.30002, 0.08475, 0.07868, 0.00280, 0.00056, - + 0.00002, 0.00170, 0.00280, - + 0.28333, 0.07951, 0.06850, 0.00267, 0.00059, - + 0.00007, 0.00159, 0.00267/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ - + 0.26852, 0.07471, 0.06019, 0.00253, 0.00060, - + 0.00018, 0.00151, 0.00253, - + 0.25520, 0.07053, 0.05334, 0.00236, 0.00058, - + 0.00020, 0.00145, 0.00236, - + 0.24315, 0.06674, 0.04762, 0.00223, 0.00061, - + 0.00020, 0.00133, 0.00223, - + 0.23237, 0.06330, 0.04282, 0.00208, 0.00058, - + 0.00020, 0.00126, 0.00208, - + 0.22250, 0.06018, 0.03873, 0.00195, 0.00054, - + 0.00022, 0.00122, 0.00195, - + 0.21332, 0.05736, 0.03523, 0.00187, 0.00049, - + 0.00025, 0.00120, 0.00187, - + 0.20479, 0.05482, 0.03222, 0.00178, 0.00052, - + 0.00024, 0.00116, 0.00178/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,21)/ - + 0.19694, 0.05247, 0.02960, 0.00171, 0.00053, - + 0.00024, 0.00112, 0.00171, - + 0.18966, 0.05025, 0.02732, 0.00167, 0.00051, - + 0.00025, 0.00107, 0.00167, - + 0.18281, 0.04826, 0.02529, 0.00161, 0.00048, - + 0.00024, 0.00101, 0.00161, - + 0.17638, 0.04645, 0.02349, 0.00155, 0.00046, - + 0.00021, 0.00096, 0.00155, - + 0.17064, 0.04470, 0.02190, 0.00144, 0.00047, - + 0.00023, 0.00093, 0.00144, - + 0.16541, 0.04304, 0.02049, 0.00133, 0.00048, - + 0.00025, 0.00092, 0.00133, - + 0.16023, 0.04154, 0.01923, 0.00128, 0.00047, - + 0.00025, 0.00087, 0.00128/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=22,30)/ - + 0.15526, 0.04015, 0.01809, 0.00125, 0.00044, - + 0.00022, 0.00082, 0.00125, - + 0.15067, 0.03882, 0.01706, 0.00121, 0.00043, - + 0.00022, 0.00078, 0.00121, - + 0.14645, 0.03755, 0.01612, 0.00115, 0.00042, - + 0.00023, 0.00077, 0.00115, - + 0.14247, 0.03636, 0.01526, 0.00110, 0.00041, - + 0.00024, 0.00075, 0.00110, - + 0.13847, 0.03527, 0.01448, 0.00107, 0.00040, - + 0.00024, 0.00073, 0.00107, - + 0.13471, 0.03425, 0.01376, 0.00104, 0.00039, - + 0.00024, 0.00071, 0.00104, - + 0.13121, 0.03327, 0.01310, 0.00101, 0.00039, - + 0.00023, 0.00069, 0.00101, - + 0.12795, 0.03232, 0.01250, 0.00097, 0.00038, - + 0.00022, 0.00067, 0.00097, - + 0.12486, 0.03141, 0.01193, 0.00094, 0.00037, - + 0.00021, 0.00064, 0.00094/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ - + 0.38899, 0.11068, 0.15710, 0.00278, 0.00012, - + 0.00003, 0.00148, 0.00278, - + 0.35524, 0.09959, 0.12436, 0.00257, 0.00026, - + 0.00003, 0.00142, 0.00257, - + 0.32728, 0.09049, 0.10097, 0.00238, 0.00032, - + 0.00003, 0.00132, 0.00238, - + 0.30349, 0.08296, 0.08359, 0.00226, 0.00038, - + 0.00004, 0.00121, 0.00226, - + 0.28309, 0.07672, 0.07050, 0.00210, 0.00034, - + 0.00003, 0.00117, 0.00210, - + 0.26550, 0.07121, 0.06023, 0.00197, 0.00037, - + 0.00004, 0.00110, 0.00197, - + 0.24996, 0.06648, 0.05206, 0.00184, 0.00038, - + 0.00006, 0.00102, 0.00184/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ - + 0.23604, 0.06231, 0.04551, 0.00173, 0.00040, - + 0.00007, 0.00098, 0.00173, - + 0.22383, 0.05860, 0.04012, 0.00156, 0.00040, - + 0.00012, 0.00098, 0.00156, - + 0.21241, 0.05531, 0.03563, 0.00157, 0.00038, - + 0.00014, 0.00090, 0.00157, - + 0.20248, 0.05232, 0.03190, 0.00143, 0.00037, - + 0.00014, 0.00086, 0.00143, - + 0.19339, 0.04962, 0.02876, 0.00131, 0.00036, - + 0.00012, 0.00082, 0.00131, - + 0.18483, 0.04721, 0.02608, 0.00126, 0.00036, - + 0.00012, 0.00078, 0.00126, - + 0.17695, 0.04497, 0.02376, 0.00120, 0.00033, - + 0.00010, 0.00074, 0.00120/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,21)/ - + 0.16979, 0.04293, 0.02175, 0.00113, 0.00031, - + 0.00009, 0.00069, 0.00113, - + 0.16330, 0.04108, 0.02002, 0.00103, 0.00033, - + 0.00009, 0.00064, 0.00103, - + 0.15711, 0.03935, 0.01849, 0.00100, 0.00031, - + 0.00010, 0.00060, 0.00100, - + 0.15124, 0.03775, 0.01715, 0.00102, 0.00028, - + 0.00010, 0.00057, 0.00102, - + 0.14596, 0.03625, 0.01595, 0.00097, 0.00026, - + 0.00010, 0.00055, 0.00097, - + 0.14113, 0.03486, 0.01487, 0.00089, 0.00026, - + 0.00011, 0.00055, 0.00089, - + 0.13652, 0.03359, 0.01392, 0.00084, 0.00025, - + 0.00011, 0.00053, 0.00084/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=22,30)/ - + 0.13216, 0.03243, 0.01308, 0.00080, 0.00025, - + 0.00012, 0.00050, 0.00080, - + 0.12805, 0.03132, 0.01231, 0.00077, 0.00025, - + 0.00012, 0.00049, 0.00077, - + 0.12417, 0.03023, 0.01161, 0.00074, 0.00026, - + 0.00012, 0.00048, 0.00074, - + 0.12052, 0.02922, 0.01097, 0.00072, 0.00027, - + 0.00012, 0.00047, 0.00072, - + 0.11701, 0.02829, 0.01040, 0.00071, 0.00026, - + 0.00012, 0.00046, 0.00071, - + 0.11370, 0.02742, 0.00988, 0.00070, 0.00026, - + 0.00012, 0.00045, 0.00070, - + 0.11060, 0.02660, 0.00940, 0.00067, 0.00024, - + 0.00013, 0.00044, 0.00067, - + 0.10770, 0.02581, 0.00895, 0.00064, 0.00022, - + 0.00013, 0.00042, 0.00064, - + 0.10494, 0.02507, 0.00853, 0.00060, 0.00020, - + 0.00013, 0.00040, 0.00060/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ - + 0.34945, 0.09404, 0.12470, 0.00185, 0.00011, - + 0.00004, 0.00102, 0.00185, - + 0.31690, 0.08400, 0.09733, 0.00174, 0.00013, - + 0.00001, 0.00093, 0.00174, - + 0.29020, 0.07595, 0.07813, 0.00159, 0.00019, - + 0.00000, 0.00087, 0.00159, - + 0.26765, 0.06933, 0.06402, 0.00146, 0.00031, - + -0.00001, 0.00083, 0.00146, - + 0.24891, 0.06370, 0.05355, 0.00133, 0.00026, - + -0.00002, 0.00077, 0.00133, - + 0.23250, 0.05895, 0.04542, 0.00121, 0.00030, - + 0.00002, 0.00075, 0.00121, - + 0.21805, 0.05480, 0.03899, 0.00111, 0.00031, - + 0.00005, 0.00070, 0.00111/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ - + 0.20509, 0.05113, 0.03386, 0.00109, 0.00030, - + 0.00010, 0.00067, 0.00109, - + 0.19370, 0.04798, 0.02969, 0.00098, 0.00030, - + 0.00008, 0.00062, 0.00098, - + 0.18322, 0.04513, 0.02623, 0.00095, 0.00028, - + 0.00008, 0.00057, 0.00095, - + 0.17403, 0.04255, 0.02338, 0.00089, 0.00028, - + 0.00011, 0.00057, 0.00089, - + 0.16569, 0.04024, 0.02100, 0.00083, 0.00027, - + 0.00012, 0.00055, 0.00083, - + 0.15797, 0.03817, 0.01896, 0.00078, 0.00024, - + 0.00007, 0.00052, 0.00078, - + 0.15093, 0.03626, 0.01721, 0.00073, 0.00023, - + 0.00007, 0.00048, 0.00073/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,21)/ - + 0.14451, 0.03453, 0.01570, 0.00068, 0.00023, - + 0.00008, 0.00045, 0.00068, - + 0.13864, 0.03294, 0.01441, 0.00063, 0.00023, - + 0.00010, 0.00047, 0.00063, - + 0.13320, 0.03149, 0.01328, 0.00058, 0.00024, - + 0.00011, 0.00046, 0.00058, - + 0.12817, 0.03015, 0.01229, 0.00052, 0.00024, - + 0.00010, 0.00043, 0.00052, - + 0.12335, 0.02891, 0.01141, 0.00052, 0.00024, - + 0.00011, 0.00042, 0.00052, - + 0.11880, 0.02776, 0.01062, 0.00054, 0.00024, - + 0.00011, 0.00040, 0.00054, - + 0.11460, 0.02669, 0.00992, 0.00054, 0.00023, - + 0.00011, 0.00039, 0.00054/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=22,30)/ - + 0.11069, 0.02570, 0.00929, 0.00052, 0.00021, - + 0.00010, 0.00038, 0.00052, - + 0.10706, 0.02476, 0.00872, 0.00049, 0.00020, - + 0.00010, 0.00036, 0.00049, - + 0.10370, 0.02387, 0.00821, 0.00044, 0.00020, - + 0.00009, 0.00034, 0.00044, - + 0.10054, 0.02305, 0.00775, 0.00040, 0.00020, - + 0.00008, 0.00033, 0.00040, - + 0.09753, 0.02227, 0.00734, 0.00039, 0.00020, - + 0.00010, 0.00032, 0.00039, - + 0.09471, 0.02154, 0.00696, 0.00038, 0.00019, - + 0.00012, 0.00031, 0.00038, - + 0.09200, 0.02085, 0.00661, 0.00036, 0.00019, - + 0.00013, 0.00031, 0.00036, - + 0.08940, 0.02021, 0.00629, 0.00035, 0.00019, - + 0.00013, 0.00030, 0.00035, - + 0.08694, 0.01961, 0.00599, 0.00033, 0.00019, - + 0.00013, 0.00029, 0.00033/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ - + 0.31051, 0.07903, 0.09809, 0.00123, 0.00002, - + -0.00003, 0.00063, 0.00123, - + 0.27990, 0.07018, 0.07567, 0.00117, 0.00005, - + -0.00001, 0.00061, 0.00117, - + 0.25483, 0.06316, 0.06005, 0.00106, 0.00013, - + -0.00007, 0.00058, 0.00106, - + 0.23433, 0.05729, 0.04880, 0.00093, 0.00013, - + 0.00001, 0.00053, 0.00093, - + 0.21651, 0.05247, 0.04045, 0.00091, 0.00020, - + 0.00003, 0.00056, 0.00091, - + 0.20124, 0.04836, 0.03408, 0.00085, 0.00020, - + -0.00001, 0.00048, 0.00085, - + 0.18806, 0.04482, 0.02909, 0.00076, 0.00014, - + 0.00001, 0.00043, 0.00076/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ - + 0.17605, 0.04169, 0.02511, 0.00077, 0.00015, - + 0.00000, 0.00039, 0.00077, - + 0.16597, 0.03893, 0.02192, 0.00065, 0.00012, - + 0.00001, 0.00036, 0.00065, - + 0.15666, 0.03649, 0.01930, 0.00064, 0.00017, - + 0.00005, 0.00039, 0.00064, - + 0.14839, 0.03433, 0.01713, 0.00058, 0.00016, - + 0.00005, 0.00036, 0.00058, - + 0.14084, 0.03240, 0.01531, 0.00054, 0.00016, - + 0.00005, 0.00033, 0.00054, - + 0.13385, 0.03064, 0.01377, 0.00053, 0.00019, - + 0.00007, 0.00034, 0.00053, - + 0.12757, 0.02905, 0.01247, 0.00050, 0.00018, - + 0.00006, 0.00031, 0.00050/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,21)/ - + 0.12183, 0.02760, 0.01136, 0.00047, 0.00016, - + 0.00006, 0.00029, 0.00047, - + 0.11651, 0.02627, 0.01038, 0.00047, 0.00015, - + 0.00009, 0.00030, 0.00047, - + 0.11166, 0.02504, 0.00953, 0.00044, 0.00015, - + 0.00008, 0.00030, 0.00044, - + 0.10721, 0.02392, 0.00879, 0.00038, 0.00015, - + 0.00006, 0.00028, 0.00038, - + 0.10303, 0.02289, 0.00815, 0.00035, 0.00015, - + 0.00006, 0.00027, 0.00035, - + 0.09914, 0.02194, 0.00758, 0.00035, 0.00015, - + 0.00006, 0.00026, 0.00035, - + 0.09551, 0.02106, 0.00706, 0.00033, 0.00015, - + 0.00007, 0.00025, 0.00033/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=22,30)/ - + 0.09214, 0.02024, 0.00660, 0.00032, 0.00015, - + 0.00008, 0.00023, 0.00032, - + 0.08898, 0.01947, 0.00619, 0.00030, 0.00015, - + 0.00008, 0.00023, 0.00030, - + 0.08599, 0.01874, 0.00582, 0.00028, 0.00014, - + 0.00009, 0.00023, 0.00028, - + 0.08320, 0.01807, 0.00549, 0.00027, 0.00014, - + 0.00009, 0.00023, 0.00027, - + 0.08055, 0.01744, 0.00519, 0.00026, 0.00013, - + 0.00008, 0.00022, 0.00026, - + 0.07806, 0.01685, 0.00491, 0.00024, 0.00013, - + 0.00008, 0.00020, 0.00024, - + 0.07568, 0.01629, 0.00466, 0.00023, 0.00012, - + 0.00007, 0.00019, 0.00023, - + 0.07340, 0.01576, 0.00442, 0.00023, 0.00011, - + 0.00007, 0.00019, 0.00023, - + 0.07124, 0.01526, 0.00421, 0.00023, 0.00011, - + 0.00006, 0.00019, 0.00023/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ - + 0.27231, 0.06550, 0.07610, 0.00082, -0.00002, - + -0.00005, 0.00037, 0.00082, - + 0.24403, 0.05780, 0.05797, 0.00075, 0.00006, - + -0.00001, 0.00035, 0.00075, - + 0.22099, 0.05174, 0.04557, 0.00067, 0.00005, - + -0.00005, 0.00035, 0.00067, - + 0.20209, 0.04678, 0.03668, 0.00061, 0.00007, - + -0.00003, 0.00031, 0.00061, - + 0.18593, 0.04265, 0.03021, 0.00057, 0.00008, - + -0.00003, 0.00030, 0.00057, - + 0.17204, 0.03914, 0.02522, 0.00056, 0.00010, - + -0.00002, 0.00025, 0.00056, - + 0.16013, 0.03610, 0.02139, 0.00052, 0.00012, - + 0.00000, 0.00026, 0.00052/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ - + 0.14992, 0.03346, 0.01837, 0.00043, 0.00011, - + 0.00000, 0.00025, 0.00043, - + 0.14055, 0.03116, 0.01596, 0.00042, 0.00010, - + -0.00001, 0.00025, 0.00042, - + 0.13230, 0.02911, 0.01397, 0.00037, 0.00009, - + -0.00001, 0.00022, 0.00037, - + 0.12484, 0.02732, 0.01235, 0.00035, 0.00009, - + 0.00001, 0.00021, 0.00035, - + 0.11815, 0.02571, 0.01100, 0.00033, 0.00010, - + 0.00002, 0.00020, 0.00033, - + 0.11215, 0.02426, 0.00986, 0.00030, 0.00008, - + 0.00001, 0.00020, 0.00030, - + 0.10665, 0.02293, 0.00890, 0.00027, 0.00010, - + 0.00001, 0.00020, 0.00027/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,21)/ - + 0.10160, 0.02172, 0.00808, 0.00025, 0.00011, - + 0.00002, 0.00020, 0.00025, - + 0.09687, 0.02065, 0.00736, 0.00026, 0.00011, - + 0.00004, 0.00019, 0.00026, - + 0.09260, 0.01965, 0.00675, 0.00025, 0.00011, - + 0.00004, 0.00018, 0.00025, - + 0.08872, 0.01872, 0.00621, 0.00023, 0.00010, - + 0.00002, 0.00016, 0.00023, - + 0.08507, 0.01787, 0.00574, 0.00022, 0.00009, - + 0.00003, 0.00015, 0.00022, - + 0.08168, 0.01710, 0.00533, 0.00022, 0.00008, - + 0.00004, 0.00015, 0.00022, - + 0.07850, 0.01639, 0.00496, 0.00022, 0.00009, - + 0.00005, 0.00015, 0.00022/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=22,30)/ - + 0.07553, 0.01572, 0.00463, 0.00022, 0.00010, - + 0.00005, 0.00016, 0.00022, - + 0.07278, 0.01509, 0.00433, 0.00021, 0.00010, - + 0.00005, 0.00015, 0.00021, - + 0.07025, 0.01451, 0.00407, 0.00018, 0.00010, - + 0.00005, 0.00014, 0.00018, - + 0.06787, 0.01397, 0.00383, 0.00016, 0.00009, - + 0.00004, 0.00013, 0.00016, - + 0.06559, 0.01345, 0.00361, 0.00015, 0.00008, - + 0.00004, 0.00013, 0.00015, - + 0.06346, 0.01297, 0.00342, 0.00014, 0.00007, - + 0.00004, 0.00012, 0.00014, - + 0.06142, 0.01252, 0.00324, 0.00014, 0.00007, - + 0.00004, 0.00012, 0.00014, - + 0.05948, 0.01209, 0.00307, 0.00015, 0.00008, - + 0.00004, 0.00012, 0.00015, - + 0.05765, 0.01170, 0.00292, 0.00016, 0.00009, - + 0.00005, 0.00011, 0.00016/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ - + 0.23626, 0.05359, 0.05834, 0.00053, -0.00008, - + -0.00006, 0.00015, 0.00053, - + 0.21017, 0.04700, 0.04390, 0.00049, -0.00003, - + -0.00004, 0.00017, 0.00049, - + 0.18916, 0.04183, 0.03410, 0.00043, -0.00001, - + -0.00009, 0.00019, 0.00043, - + 0.17202, 0.03760, 0.02719, 0.00039, 0.00004, - + -0.00007, 0.00018, 0.00039, - + 0.15759, 0.03409, 0.02214, 0.00042, 0.00011, - + 0.00000, 0.00022, 0.00042, - + 0.14558, 0.03116, 0.01838, 0.00029, 0.00010, - + -0.00004, 0.00020, 0.00029, - + 0.13491, 0.02864, 0.01549, 0.00028, 0.00009, - + -0.00001, 0.00019, 0.00028/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ - + 0.12544, 0.02647, 0.01321, 0.00031, 0.00012, - + 0.00002, 0.00018, 0.00031, - + 0.11727, 0.02456, 0.01141, 0.00027, 0.00011, - + 0.00001, 0.00021, 0.00027, - + 0.11003, 0.02286, 0.00994, 0.00023, 0.00008, - + -0.00001, 0.00018, 0.00023, - + 0.10356, 0.02138, 0.00875, 0.00020, 0.00008, - + 0.00000, 0.00016, 0.00020, - + 0.09778, 0.02005, 0.00776, 0.00018, 0.00008, - + 0.00001, 0.00015, 0.00018, - + 0.09260, 0.01886, 0.00693, 0.00016, 0.00008, - + 0.00002, 0.00014, 0.00016, - + 0.08774, 0.01778, 0.00624, 0.00015, 0.00007, - + 0.00002, 0.00013, 0.00015/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,21)/ - + 0.08333, 0.01682, 0.00565, 0.00015, 0.00008, - + 0.00003, 0.00012, 0.00015, - + 0.07934, 0.01594, 0.00513, 0.00014, 0.00009, - + 0.00003, 0.00012, 0.00014, - + 0.07566, 0.01513, 0.00469, 0.00014, 0.00009, - + 0.00003, 0.00012, 0.00014, - + 0.07228, 0.01439, 0.00431, 0.00014, 0.00008, - + 0.00003, 0.00011, 0.00014, - + 0.06914, 0.01370, 0.00398, 0.00013, 0.00008, - + 0.00004, 0.00011, 0.00013, - + 0.06623, 0.01308, 0.00368, 0.00012, 0.00009, - + 0.00004, 0.00012, 0.00012, - + 0.06355, 0.01250, 0.00342, 0.00012, 0.00008, - + 0.00004, 0.00011, 0.00012/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=22,30)/ - + 0.06106, 0.01196, 0.00318, 0.00011, 0.00007, - + 0.00003, 0.00010, 0.00011, - + 0.05873, 0.01146, 0.00298, 0.00011, 0.00006, - + 0.00003, 0.00009, 0.00011, - + 0.05652, 0.01100, 0.00279, 0.00010, 0.00006, - + 0.00002, 0.00010, 0.00010, - + 0.05448, 0.01057, 0.00262, 0.00010, 0.00006, - + 0.00002, 0.00010, 0.00010, - + 0.05261, 0.01017, 0.00247, 0.00008, 0.00006, - + 0.00003, 0.00009, 0.00008, - + 0.05087, 0.00979, 0.00233, 0.00007, 0.00006, - + 0.00003, 0.00009, 0.00007, - + 0.04917, 0.00943, 0.00221, 0.00007, 0.00006, - + 0.00003, 0.00009, 0.00007, - + 0.04752, 0.00910, 0.00209, 0.00008, 0.00006, - + 0.00003, 0.00008, 0.00008, - + 0.04596, 0.00879, 0.00199, 0.00008, 0.00006, - + 0.00003, 0.00007, 0.00008/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ - + 0.20211, 0.04314, 0.04410, 0.00031, -0.00004, - + -0.00005, 0.00009, 0.00031, - + 0.17834, 0.03761, 0.03269, 0.00035, -0.00001, - + -0.00005, 0.00010, 0.00035, - + 0.15974, 0.03321, 0.02509, 0.00029, 0.00003, - + -0.00006, 0.00011, 0.00029, - + 0.14445, 0.02968, 0.01980, 0.00025, 0.00002, - + -0.00008, 0.00011, 0.00025, - + 0.13183, 0.02684, 0.01598, 0.00020, 0.00006, - + -0.00001, 0.00013, 0.00020, - + 0.12104, 0.02440, 0.01316, 0.00020, 0.00008, - + -0.00001, 0.00012, 0.00020, - + 0.11167, 0.02232, 0.01102, 0.00021, 0.00010, - + 0.00002, 0.00014, 0.00021/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ - + 0.10361, 0.02054, 0.00934, 0.00017, 0.00007, - + 0.00003, 0.00012, 0.00017, - + 0.09655, 0.01898, 0.00801, 0.00012, 0.00006, - + 0.00000, 0.00010, 0.00012, - + 0.09022, 0.01763, 0.00697, 0.00013, 0.00007, - + 0.00001, 0.00011, 0.00013, - + 0.08465, 0.01643, 0.00611, 0.00012, 0.00009, - + 0.00003, 0.00012, 0.00012, - + 0.07963, 0.01537, 0.00540, 0.00011, 0.00009, - + 0.00004, 0.00012, 0.00011, - + 0.07506, 0.01441, 0.00480, 0.00011, 0.00007, - + 0.00002, 0.00011, 0.00011, - + 0.07104, 0.01355, 0.00431, 0.00009, 0.00006, - + 0.00003, 0.00010, 0.00009/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,21)/ - + 0.06738, 0.01277, 0.00388, 0.00007, 0.00006, - + 0.00004, 0.00009, 0.00007, - + 0.06394, 0.01208, 0.00352, 0.00007, 0.00007, - + 0.00004, 0.00009, 0.00007, - + 0.06082, 0.01144, 0.00321, 0.00006, 0.00006, - + 0.00004, 0.00009, 0.00006, - + 0.05797, 0.01085, 0.00295, 0.00006, 0.00006, - + 0.00003, 0.00008, 0.00006, - + 0.05532, 0.01032, 0.00271, 0.00006, 0.00006, - + 0.00002, 0.00007, 0.00006, - + 0.05287, 0.00983, 0.00250, 0.00005, 0.00005, - + 0.00001, 0.00007, 0.00005, - + 0.05061, 0.00937, 0.00232, 0.00005, 0.00005, - + 0.00002, 0.00007, 0.00005/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=22,30)/ - + 0.04853, 0.00895, 0.00216, 0.00006, 0.00005, - + 0.00002, 0.00007, 0.00006, - + 0.04659, 0.00856, 0.00201, 0.00005, 0.00005, - + 0.00003, 0.00007, 0.00005, - + 0.04479, 0.00820, 0.00188, 0.00005, 0.00004, - + 0.00003, 0.00006, 0.00005, - + 0.04312, 0.00787, 0.00177, 0.00004, 0.00004, - + 0.00003, 0.00006, 0.00004, - + 0.04153, 0.00755, 0.00166, 0.00004, 0.00004, - + 0.00003, 0.00006, 0.00004, - + 0.04005, 0.00726, 0.00157, 0.00004, 0.00004, - + 0.00003, 0.00006, 0.00004, - + 0.03865, 0.00698, 0.00148, 0.00003, 0.00004, - + 0.00002, 0.00005, 0.00003, - + 0.03732, 0.00672, 0.00140, 0.00003, 0.00004, - + 0.00002, 0.00005, 0.00003, - + 0.03608, 0.00648, 0.00133, 0.00003, 0.00004, - + 0.00002, 0.00005, 0.00003/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ - + 0.17057, 0.03434, 0.03287, 0.00023, -0.00006, - + -0.00012, 0.00000, 0.00023, - + 0.14978, 0.02973, 0.02408, 0.00020, -0.00001, - + -0.00007, 0.00004, 0.00020, - + 0.13336, 0.02610, 0.01826, 0.00019, 0.00000, - + -0.00005, 0.00006, 0.00019, - + 0.11991, 0.02323, 0.01429, 0.00016, -0.00001, - + -0.00006, 0.00005, 0.00016, - + 0.10893, 0.02086, 0.01146, 0.00011, 0.00003, - + -0.00004, 0.00006, 0.00011, - + 0.09949, 0.01889, 0.00937, 0.00011, 0.00001, - + -0.00005, 0.00006, 0.00011, - + 0.09148, 0.01723, 0.00779, 0.00010, 0.00001, - + -0.00004, 0.00005, 0.00010/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ - + 0.08452, 0.01579, 0.00658, 0.00011, 0.00003, - + -0.00002, 0.00005, 0.00011, - + 0.07842, 0.01457, 0.00563, 0.00011, 0.00003, - + -0.00002, 0.00004, 0.00011, - + 0.07314, 0.01348, 0.00486, 0.00008, 0.00005, - + 0.00000, 0.00007, 0.00008, - + 0.06838, 0.01252, 0.00424, 0.00007, 0.00004, - + 0.00001, 0.00006, 0.00007, - + 0.06412, 0.01167, 0.00373, 0.00006, 0.00004, - + 0.00001, 0.00005, 0.00006, - + 0.06028, 0.01093, 0.00331, 0.00007, 0.00004, - + 0.00001, 0.00005, 0.00007, - + 0.05686, 0.01024, 0.00296, 0.00007, 0.00003, - + 0.00001, 0.00005, 0.00007/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,21)/ - + 0.05377, 0.00963, 0.00267, 0.00006, 0.00003, - + 0.00001, 0.00006, 0.00006, - + 0.05096, 0.00908, 0.00241, 0.00006, 0.00004, - + 0.00002, 0.00005, 0.00006, - + 0.04837, 0.00858, 0.00220, 0.00005, 0.00004, - + 0.00001, 0.00004, 0.00005, - + 0.04599, 0.00813, 0.00201, 0.00004, 0.00003, - + 0.00000, 0.00003, 0.00004, - + 0.04380, 0.00771, 0.00184, 0.00004, 0.00002, - + 0.00000, 0.00003, 0.00004, - + 0.04178, 0.00732, 0.00170, 0.00005, 0.00002, - + 0.00001, 0.00003, 0.00005, - + 0.03991, 0.00697, 0.00157, 0.00005, 0.00002, - + 0.00001, 0.00003, 0.00005/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=22,30)/ - + 0.03817, 0.00666, 0.00146, 0.00005, 0.00002, - + 0.00001, 0.00003, 0.00005, - + 0.03658, 0.00636, 0.00136, 0.00005, 0.00002, - + 0.00001, 0.00003, 0.00005, - + 0.03512, 0.00608, 0.00127, 0.00004, 0.00003, - + 0.00001, 0.00003, 0.00004, - + 0.03376, 0.00582, 0.00119, 0.00003, 0.00003, - + 0.00001, 0.00003, 0.00003, - + 0.03245, 0.00558, 0.00112, 0.00003, 0.00002, - + 0.00001, 0.00003, 0.00003, - + 0.03124, 0.00535, 0.00106, 0.00003, 0.00002, - + 0.00001, 0.00003, 0.00003, - + 0.03010, 0.00515, 0.00100, 0.00003, 0.00002, - + 0.00001, 0.00002, 0.00003, - + 0.02903, 0.00495, 0.00094, 0.00002, 0.00002, - + 0.00001, 0.00002, 0.00002, - + 0.02803, 0.00477, 0.00089, 0.00002, 0.00002, - + 0.00001, 0.00002, 0.00002/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ - + 0.14149, 0.02665, 0.02396, 0.00011, 0.00000, - + -0.00002, 0.00003, 0.00011, - + 0.12338, 0.02294, 0.01735, 0.00013, 0.00001, - + -0.00001, 0.00003, 0.00013, - + 0.10925, 0.02007, 0.01306, 0.00011, 0.00000, - + -0.00002, 0.00003, 0.00011, - + 0.09790, 0.01778, 0.01014, 0.00005, -0.00002, - + -0.00003, 0.00001, 0.00005, - + 0.08828, 0.01589, 0.00806, 0.00011, 0.00000, - + -0.00001, 0.00004, 0.00011, - + 0.08034, 0.01434, 0.00655, 0.00010, 0.00000, - + -0.00002, 0.00002, 0.00010, - + 0.07354, 0.01305, 0.00542, 0.00010, 0.00000, - + -0.00001, 0.00001, 0.00010/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ - + 0.06771, 0.01191, 0.00455, 0.00010, 0.00001, - + -0.00001, 0.00002, 0.00010, - + 0.06275, 0.01095, 0.00387, 0.00007, 0.00001, - + 0.00001, 0.00003, 0.00007, - + 0.05825, 0.01011, 0.00333, 0.00007, 0.00001, - + 0.00001, 0.00002, 0.00007, - + 0.05429, 0.00937, 0.00290, 0.00006, 0.00001, - + 0.00001, 0.00003, 0.00006, - + 0.05078, 0.00871, 0.00254, 0.00005, 0.00001, - + 0.00000, 0.00003, 0.00005, - + 0.04766, 0.00813, 0.00225, 0.00004, 0.00000, - + 0.00000, 0.00001, 0.00004, - + 0.04480, 0.00761, 0.00200, 0.00004, 0.00001, - + 0.00000, 0.00001, 0.00004/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,21)/ - + 0.04223, 0.00714, 0.00180, 0.00005, 0.00001, - + 0.00000, 0.00002, 0.00005, - + 0.03991, 0.00671, 0.00162, 0.00004, 0.00001, - + 0.00000, 0.00002, 0.00004, - + 0.03780, 0.00633, 0.00147, 0.00005, 0.00001, - + 0.00000, 0.00002, 0.00005, - + 0.03586, 0.00599, 0.00134, 0.00005, 0.00001, - + 0.00000, 0.00002, 0.00005, - + 0.03409, 0.00567, 0.00123, 0.00004, 0.00001, - + 0.00000, 0.00002, 0.00004, - + 0.03247, 0.00537, 0.00113, 0.00004, 0.00001, - + 0.00001, 0.00002, 0.00004, - + 0.03098, 0.00511, 0.00105, 0.00003, 0.00001, - + 0.00000, 0.00001, 0.00003/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=22,30)/ - + 0.02960, 0.00486, 0.00097, 0.00003, 0.00001, - + 0.00000, 0.00001, 0.00003, - + 0.02831, 0.00464, 0.00090, 0.00003, 0.00001, - + 0.00000, 0.00001, 0.00003, - + 0.02710, 0.00443, 0.00084, 0.00003, 0.00001, - + 0.00000, 0.00001, 0.00003, - + 0.02598, 0.00423, 0.00079, 0.00003, 0.00000, - + 0.00000, 0.00001, 0.00003, - + 0.02493, 0.00405, 0.00074, 0.00003, 0.00001, - + 0.00000, 0.00001, 0.00003, - + 0.02395, 0.00388, 0.00070, 0.00003, 0.00001, - + 0.00000, 0.00001, 0.00003, - + 0.02304, 0.00373, 0.00066, 0.00003, 0.00001, - + 0.00000, 0.00001, 0.00003, - + 0.02219, 0.00358, 0.00062, 0.00003, 0.00001, - + 0.00000, 0.00001, 0.00003, - + 0.02139, 0.00344, 0.00059, 0.00003, 0.00001, - + 0.00000, 0.00001, 0.00003/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ - + 0.09234, 0.01518, 0.01197, 0.00001, -0.00002, - + -0.00002, 0.00000, 0.00001, - + 0.07935, 0.01288, 0.00842, 0.00003, 0.00000, - + -0.00002, 0.00000, 0.00003, - + 0.06932, 0.01110, 0.00618, 0.00004, 0.00000, - + -0.00001, 0.00002, 0.00004, - + 0.06130, 0.00973, 0.00469, 0.00003, -0.00001, - + -0.00001, 0.00000, 0.00003, - + 0.05485, 0.00860, 0.00367, 0.00002, 0.00001, - + 0.00000, 0.00002, 0.00002, - + 0.04951, 0.00768, 0.00293, 0.00000, 0.00002, - + -0.00001, 0.00001, 0.00000, - + 0.04492, 0.00692, 0.00239, 0.00000, 0.00000, - + -0.00001, 0.00001, 0.00000/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ - + 0.04094, 0.00628, 0.00198, 0.00001, 0.00001, - + -0.00001, 0.00001, 0.00001, - + 0.03754, 0.00572, 0.00167, 0.00002, 0.00001, - + 0.00000, 0.00002, 0.00002, - + 0.03464, 0.00524, 0.00142, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00001, - + 0.03205, 0.00482, 0.00122, 0.00001, 0.00001, - + 0.00000, 0.00002, 0.00001, - + 0.02975, 0.00446, 0.00107, 0.00002, 0.00001, - + 0.00000, 0.00002, 0.00002, - + 0.02774, 0.00413, 0.00094, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.02593, 0.00384, 0.00083, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00001/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,21)/ - + 0.02432, 0.00358, 0.00074, 0.00000, 0.00000, - + 0.00000, 0.00001, 0.00000, - + 0.02286, 0.00335, 0.00066, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00001, - + 0.02154, 0.00314, 0.00060, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.02034, 0.00296, 0.00054, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01924, 0.00279, 0.00050, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01823, 0.00263, 0.00046, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01732, 0.00249, 0.00042, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=22,30)/ - + 0.01648, 0.00236, 0.00039, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00000, - + 0.01570, 0.00224, 0.00036, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00000, - + 0.01497, 0.00213, 0.00034, 0.00000, 0.00001, - + 0.00000, 0.00000, 0.00000, - + 0.01429, 0.00203, 0.00031, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01365, 0.00193, 0.00029, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01307, 0.00184, 0.00027, 0.00000, 0.00001, - + 0.00000, 0.00001, 0.00000, - + 0.01252, 0.00176, 0.00026, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01201, 0.00169, 0.00024, 0.00001, 0.00001, - + 0.00000, 0.00001, 0.00001, - + 0.01153, 0.00162, 0.00023, 0.00001, 0.00000, - + 0.00000, 0.00001, 0.00001/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ - + 0.05534, 0.00785, 0.00541, 0.00003, -0.00001, - + 0.00000, 0.00000, 0.00003, - + 0.04682, 0.00655, 0.00369, 0.00001, -0.00001, - + -0.00002, -0.00001, 0.00001, - + 0.04035, 0.00557, 0.00264, 0.00001, 0.00000, - + -0.00001, 0.00000, 0.00001, - + 0.03525, 0.00482, 0.00196, 0.00002, 0.00001, - + 0.00000, 0.00001, 0.00002, - + 0.03115, 0.00421, 0.00150, 0.00001, 0.00001, - + 0.00000, 0.00000, 0.00001, - + 0.02778, 0.00373, 0.00118, 0.00000, 0.00000, - + -0.00001, 0.00000, 0.00000, - + 0.02496, 0.00332, 0.00095, 0.00001, 0.00001, - + 0.00000, 0.00000, 0.00001/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ - + 0.02260, 0.00298, 0.00078, 0.00000, 0.00001, - + 0.00000, 0.00000, 0.00000, - + 0.02054, 0.00270, 0.00065, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.01880, 0.00245, 0.00054, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01726, 0.00224, 0.00047, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01591, 0.00205, 0.00040, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01474, 0.00189, 0.00035, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01369, 0.00175, 0.00031, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,21)/ - + 0.01276, 0.00162, 0.00027, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01191, 0.00151, 0.00024, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01116, 0.00141, 0.00022, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01048, 0.00132, 0.00020, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00986, 0.00123, 0.00018, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00929, 0.00116, 0.00017, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00878, 0.00109, 0.00015, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=22,30)/ - + 0.00831, 0.00103, 0.00014, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00789, 0.00097, 0.00013, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00749, 0.00092, 0.00012, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00712, 0.00087, 0.00011, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00678, 0.00083, 0.00010, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00646, 0.00079, 0.00010, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00617, 0.00075, 0.00009, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00589, 0.00071, 0.00009, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00564, 0.00068, 0.00008, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ - + 0.02946, 0.00352, 0.00211, 0.00000, -0.00001, - + -0.00001, -0.00001, 0.00000, - + 0.02451, 0.00289, 0.00139, 0.00001, 0.00000, - + 0.00000, 0.00000, 0.00001, - + 0.02080, 0.00242, 0.00097, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01793, 0.00207, 0.00070, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01565, 0.00179, 0.00053, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01378, 0.00156, 0.00041, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01226, 0.00138, 0.00032, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ - + 0.01099, 0.00123, 0.00026, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00989, 0.00110, 0.00021, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00897, 0.00099, 0.00018, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00817, 0.00090, 0.00015, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00747, 0.00082, 0.00013, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00686, 0.00075, 0.00011, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00633, 0.00068, 0.00010, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,21)/ - + 0.00586, 0.00063, 0.00009, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00544, 0.00058, 0.00008, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00507, 0.00054, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00473, 0.00050, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00442, 0.00047, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00414, 0.00044, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00390, 0.00041, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=22,30)/ - + 0.00367, 0.00038, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00347, 0.00036, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00327, 0.00034, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00309, 0.00032, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00293, 0.00030, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00279, 0.00029, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00265, 0.00027, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00252, 0.00026, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00240, 0.00025, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ - + 0.01332, 0.00130, 0.00067, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.01085, 0.00105, 0.00042, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00904, 0.00086, 0.00028, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00764, 0.00072, 0.00020, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00658, 0.00062, 0.00015, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00572, 0.00053, 0.00011, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00502, 0.00046, 0.00009, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ - + 0.00444, 0.00041, 0.00007, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00395, 0.00036, 0.00006, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00355, 0.00032, 0.00005, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00320, 0.00029, 0.00004, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00290, 0.00026, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00264, 0.00024, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00242, 0.00021, 0.00003, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,21)/ - + 0.00222, 0.00020, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00204, 0.00018, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00188, 0.00017, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00175, 0.00015, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00162, 0.00014, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00151, 0.00013, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00141, 0.00012, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=22,30)/ - + 0.00132, 0.00011, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00124, 0.00011, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00116, 0.00010, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00109, 0.00009, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00103, 0.00009, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00098, 0.00008, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00092, 0.00008, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00087, 0.00007, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00083, 0.00007, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ - + 0.00101, 0.00005, 0.00002, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00077, 0.00004, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00061, 0.00003, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00050, 0.00003, 0.00001, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00041, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00034, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00029, 0.00002, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ - + 0.00025, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00021, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00019, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00016, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00014, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00013, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,21)/ - + 0.00010, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00006, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00006, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=22,30)/ - + 0.00005, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00005, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00004, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00004, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00004, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00003, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00003, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00003, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000, - + 0.00003, 0.00001, 0.00000, 0.00000, 0.00000, - + 0.00000, 0.00000, 0.00000/ - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,2.6844D9/ - DATA N0/2,5,4,5,0,0,5,5/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - XSAVE=X -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,30 -C READ(88,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M),F(8,N,M) -C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR - DO 25 I=1,8 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 31 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 31 I=1,8 - IF(I.EQ.7) GO TO 31 - DO 30 K=1,30 - 30 F(I,J,K)= LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) - 31 CONTINUE - 50 FORMAT(8F10.5) - DO 40 I=1,8 - DO 40 M=1,30 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,8 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - USEA=G(4) - DSEA=G(8) - STR=G(6) - CHM=G(5) - GLU=G(3) - BOT=G(7) -C - X=XSAVE -C - RETURN - END diff --git a/PDF/spdf/strkb02.F b/PDF/spdf/strkb02.F deleted file mode 100644 index d8787785023..00000000000 --- a/PDF/spdf/strkb02.F +++ /dev/null @@ -1,1015 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:36 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:02 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C -C----------------------------------------------------------------------- - SUBROUTINE STRKB02(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C -C :::::::::::: MRS (B135) sea=ubar=dbar=2sbar at Q0**2 -C -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(7,NX,19),G(7),XX(NX),N0(7) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),K=1,19)/ - + 0.01683 ,0.00129 ,3.76508 ,0.26309 ,0.02938 ,0.00000 ,0.14714 - +,0.01693 ,0.00143 ,8.72050 ,0.37912 ,0.14558 ,0.00000 ,0.26334 - +,0.01703 ,0.00156 ,14.98337 ,0.53012 ,0.29674 ,0.00000 ,0.41451 - +,0.01714 ,0.00168 ,22.61334 ,0.71562 ,0.48238 ,0.00000 ,0.60016 - +,0.01725 ,0.00180 ,31.48186 ,0.93378 ,0.70067 ,0.04856 ,0.81847 - +,0.01736 ,0.00192 ,41.47054 ,1.18291 ,0.94992 ,0.25321 ,1.06773 - +,0.01748 ,0.00203 ,52.50592 ,1.46224 ,1.22937 ,0.54861 ,1.34719 - +,0.01759 ,0.00214 ,64.52675 ,1.77090 ,1.53814 ,0.86049 ,1.65598 - +,0.01771 ,0.00225 ,77.46977 ,2.10764 ,1.87498 ,1.20298 ,1.99283 - +,0.01783 ,0.00235 ,91.11975 ,2.46821 ,2.23564 ,1.56831 ,2.35351 - +,0.01794 ,0.00246,105.44614 ,2.85170 ,2.61924 ,1.95640 ,2.73711 - +,0.01806 ,0.00256,120.53839 ,3.26007 ,3.02769 ,2.36912 ,3.14558 - +,0.01817 ,0.00266,136.20949 ,3.68942 ,3.45713 ,2.80259 ,3.57503 - +,0.01829 ,0.00275,152.27588 ,4.13544 ,3.90323 ,3.25253 ,4.02115 - +,0.01840 ,0.00285,169.06244 ,4.60540 ,4.37327 ,3.72622 ,4.49120 - +,0.01852 ,0.00294,185.97295 ,5.08574 ,4.85368 ,4.21013 ,4.97162 - +,0.01863 ,0.00303,203.51498 ,5.58797 ,5.35597 ,4.71576 ,5.47393 - +,0.01875 ,0.00312,221.19064 ,6.10039 ,5.86845 ,5.23145 ,5.98643 - +,0.01886 ,0.00321,239.37312 ,6.63172 ,6.39985 ,5.76592 ,6.51784/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),K=1,19)/ - + 0.02007 ,0.00199 ,3.67145 ,0.26135 ,0.02720 ,0.00000 ,0.14484 - +,0.02028 ,0.00220 ,8.03456 ,0.36613 ,0.13213 ,0.00000 ,0.24975 - +,0.02050 ,0.00239 ,13.34807 ,0.49847 ,0.26459 ,0.00000 ,0.38221 - +,0.02070 ,0.00257 ,19.64279 ,0.65715 ,0.42340 ,0.00000 ,0.54101 - +,0.02090 ,0.00275 ,26.79401 ,0.84006 ,0.60641 ,0.04046 ,0.72402 - +,0.02110 ,0.00292 ,34.69351 ,1.04538 ,0.81184 ,0.20903 ,0.92945 - +,0.02130 ,0.00308 ,43.27419 ,1.27218 ,1.03874 ,0.44959 ,1.15635 - +,0.02149 ,0.00324 ,52.48125 ,1.51948 ,1.28613 ,0.69990 ,1.40374 - +,0.02168 ,0.00340 ,62.26118 ,1.78607 ,1.55280 ,0.97157 ,1.67041 - +,0.02186 ,0.00355 ,72.44643 ,2.06843 ,1.83525 ,1.25819 ,1.95286 - +,0.02205 ,0.00370 ,83.01494 ,2.36578 ,2.13268 ,1.55963 ,2.25029 - +,0.02223 ,0.00384 ,94.03381 ,2.67953 ,2.44650 ,1.87725 ,2.56411 - +,0.02240 ,0.00398,105.36340 ,3.00658 ,2.77363 ,2.20797 ,2.89124 - +,0.02258 ,0.00412,116.87006 ,3.34362 ,3.11073 ,2.54850 ,3.22835 - +,0.02275 ,0.00426,128.79451 ,3.69614 ,3.46333 ,2.90435 ,3.58094 - +,0.02292 ,0.00439,140.70343 ,4.05388 ,3.82113 ,3.26526 ,3.93874 - +,0.02309 ,0.00452,152.96886 ,4.42548 ,4.19279 ,3.63990 ,4.31041 - +,0.02325 ,0.00465,165.23276 ,4.80221 ,4.56958 ,4.01953 ,4.68719 - +,0.02342 ,0.00478,177.76694 ,5.19056 ,4.95799 ,4.41068 ,5.07561/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),K=1,19)/ - + 0.02381 ,0.00307 ,3.57992 ,0.25945 ,0.02503 ,0.00000 ,0.14253 - +,0.02418 ,0.00337 ,7.40153 ,0.35351 ,0.11923 ,0.00000 ,0.23670 - +,0.02454 ,0.00365 ,11.88880 ,0.46883 ,0.23467 ,0.00000 ,0.35211 - +,0.02488 ,0.00392 ,17.05801 ,0.60384 ,0.36979 ,0.00000 ,0.48721 - +,0.02520 ,0.00418 ,22.79726 ,0.75639 ,0.52244 ,0.03355 ,0.63984 - +,0.02552 ,0.00443 ,29.01407 ,0.92475 ,0.69090 ,0.17173 ,0.80827 - +,0.02582 ,0.00467 ,35.65216 ,1.10797 ,0.87421 ,0.36673 ,0.99157 - +,0.02611 ,0.00490 ,42.66716 ,1.30512 ,1.07145 ,0.56670 ,1.18879 - +,0.02640 ,0.00512 ,50.01691 ,1.51512 ,1.28153 ,0.78121 ,1.39885 - +,0.02668 ,0.00534 ,57.57399 ,1.73515 ,1.50164 ,1.00505 ,1.61895 - +,0.02695 ,0.00556 ,65.32449 ,1.96457 ,1.73113 ,1.23812 ,1.84843 - +,0.02722 ,0.00576 ,73.32117 ,2.20440 ,1.97104 ,1.48143 ,2.08832 - +,0.02748 ,0.00597 ,81.46140 ,2.45229 ,2.21900 ,1.73259 ,2.33626 - +,0.02774 ,0.00616 ,89.64943 ,2.70568 ,2.47246 ,1.98910 ,2.58971 - +,0.02798 ,0.00636 ,98.06508 ,2.96876 ,2.73561 ,2.25515 ,2.85285 - +,0.02823 ,0.00655,106.39455 ,3.23380 ,3.00071 ,2.52303 ,3.11793 - +,0.02847 ,0.00673,114.91153 ,3.50733 ,3.27430 ,2.79927 ,3.39151 - +,0.02871 ,0.00692,123.35994 ,3.78283 ,3.54986 ,3.07737 ,3.66706 - +,0.02894 ,0.00709,131.93759 ,4.06518 ,3.83226 ,3.36221 ,3.94945/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),K=1,19)/ - + 0.02625 ,0.00395 ,3.52725 ,0.25824 ,0.02377 ,0.00000 ,0.14118 - +,0.02673 ,0.00433 ,7.05383 ,0.34627 ,0.11194 ,0.00000 ,0.22930 - +,0.02719 ,0.00469 ,11.10841 ,0.45235 ,0.21814 ,0.00000 ,0.33546 - +,0.02763 ,0.00502 ,15.70333 ,0.57482 ,0.34073 ,0.00000 ,0.45801 - +,0.02804 ,0.00534 ,20.73647 ,0.71162 ,0.47763 ,0.02999 ,0.59488 - +,0.02844 ,0.00565 ,26.12575 ,0.86111 ,0.62722 ,0.15269 ,0.74444 - +,0.02882 ,0.00595 ,31.82225 ,1.02240 ,0.78860 ,0.32473 ,0.90579 - +,0.02919 ,0.00624 ,37.78810 ,1.19461 ,0.96090 ,0.49966 ,1.07806 - +,0.02955 ,0.00652 ,43.98785 ,1.37676 ,1.14313 ,0.68602 ,1.26027 - +,0.02990 ,0.00679 ,50.31419 ,1.56641 ,1.33286 ,0.87925 ,1.44997 - +,0.03024 ,0.00705 ,56.75766 ,1.76299 ,1.52953 ,1.07926 ,1.64661 - +,0.03057 ,0.00731 ,63.36450 ,1.96740 ,1.73401 ,1.28692 ,1.85107 - +,0.03089 ,0.00756 ,70.04980 ,2.17760 ,1.94428 ,1.50019 ,2.06132 - +,0.03120 ,0.00780 ,76.73579 ,2.39145 ,2.15821 ,1.71697 ,2.27522 - +,0.03151 ,0.00804 ,83.57401 ,2.61252 ,2.37935 ,1.94083 ,2.49634 - +,0.03181 ,0.00827 ,90.30569 ,2.83428 ,2.60118 ,2.16526 ,2.71814 - +,0.03210 ,0.00850 ,97.15941 ,3.06226 ,2.82923 ,2.39578 ,2.94617 - +,0.03239 ,0.00872,103.92535 ,3.29101 ,3.05804 ,2.62698 ,3.17496 - +,0.03267 ,0.00894,110.76807 ,3.52463 ,3.29172 ,2.86294 ,3.40862/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),K=1,19)/ - + 0.02809 ,0.00473 ,3.49022 ,0.25734 ,0.02288 ,0.00000 ,0.14021 - +,0.02866 ,0.00517 ,6.81651 ,0.34119 ,0.10687 ,0.00000 ,0.22415 - +,0.02921 ,0.00559 ,10.58469 ,0.44102 ,0.20682 ,0.00000 ,0.32405 - +,0.02972 ,0.00599 ,14.80563 ,0.55514 ,0.32107 ,0.00000 ,0.43825 - +,0.03021 ,0.00636 ,19.38481 ,0.68158 ,0.44762 ,0.02766 ,0.56476 - +,0.03067 ,0.00672 ,24.24771 ,0.81879 ,0.58493 ,0.14030 ,0.70203 - +,0.03112 ,0.00707 ,29.35072 ,0.96592 ,0.73216 ,0.29751 ,0.84922 - +,0.03155 ,0.00740 ,34.66045 ,1.12215 ,0.88849 ,0.45639 ,1.00551 - +,0.03197 ,0.00773 ,40.14619 ,1.28658 ,1.05301 ,0.62485 ,1.17000 - +,0.03237 ,0.00804 ,45.71353 ,1.45702 ,1.22353 ,0.79871 ,1.34049 - +,0.03277 ,0.00835 ,51.35570 ,1.63295 ,1.39955 ,0.97792 ,1.51647 - +,0.03315 ,0.00865 ,57.11505 ,1.81518 ,1.58186 ,1.16326 ,1.69875 - +,0.03352 ,0.00894 ,62.91777 ,2.00190 ,1.76867 ,1.35293 ,1.88552 - +,0.03388 ,0.00922 ,68.69688 ,2.19123 ,1.95807 ,1.54506 ,2.07489 - +,0.03424 ,0.00949 ,74.58698 ,2.38634 ,2.15326 ,1.74283 ,2.27005 - +,0.03458 ,0.00976 ,80.36261 ,2.58145 ,2.34845 ,1.94050 ,2.46521 - +,0.03492 ,0.01003 ,86.22472 ,2.78150 ,2.54857 ,2.14299 ,2.66530 - +,0.03525 ,0.01028 ,91.99184 ,2.98166 ,2.74879 ,2.34548 ,2.86549 - +,0.03558 ,0.01053 ,97.80795 ,3.18558 ,2.95279 ,2.55165 ,3.06946/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),K=1,19)/ - + 0.02959 ,0.00544 ,3.46166 ,0.25662 ,0.02219 ,0.00000 ,0.13946 - +,0.03024 ,0.00594 ,6.63754 ,0.33729 ,0.10301 ,0.00000 ,0.22022 - +,0.03085 ,0.00641 ,10.19459 ,0.43242 ,0.19828 ,0.00000 ,0.31543 - +,0.03143 ,0.00686 ,14.14320 ,0.54036 ,0.30635 ,0.00000 ,0.42345 - +,0.03198 ,0.00728 ,18.39491 ,0.65920 ,0.42530 ,0.02595 ,0.54235 - +,0.03250 ,0.00769 ,22.88098 ,0.78747 ,0.55368 ,0.13128 ,0.67068 - +,0.03300 ,0.00808 ,27.56200 ,0.92436 ,0.69068 ,0.27776 ,0.80763 - +,0.03349 ,0.00846 ,32.40805 ,1.06910 ,0.83552 ,0.42510 ,0.95243 - +,0.03395 ,0.00882 ,37.39191 ,1.22086 ,0.98738 ,0.58074 ,1.10424 - +,0.03441 ,0.00917 ,42.42824 ,1.37760 ,1.14421 ,0.74079 ,1.26104 - +,0.03485 ,0.00952 ,47.51225 ,1.53887 ,1.30558 ,0.90524 ,1.42236 - +,0.03528 ,0.00985 ,52.68379 ,1.70542 ,1.47222 ,1.07480 ,1.58896 - +,0.03569 ,0.01018 ,57.87672 ,1.87560 ,1.64248 ,1.24783 ,1.75919 - +,0.03610 ,0.01049 ,63.03157 ,2.04769 ,1.81466 ,1.42263 ,1.93133 - +,0.03649 ,0.01080 ,68.27106 ,2.22462 ,1.99167 ,1.60214 ,2.10829 - +,0.03688 ,0.01110 ,73.39259 ,2.40112 ,2.16826 ,1.78112 ,2.28485 - +,0.03725 ,0.01139 ,78.57846 ,2.58171 ,2.34891 ,1.96406 ,2.46547 - +,0.03762 ,0.01168 ,83.66612 ,2.76200 ,2.52928 ,2.14662 ,2.64580 - +,0.03798 ,0.01196 ,88.78557 ,2.94532 ,2.71269 ,2.33212 ,2.82917/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),K=1,19)/ - + 0.03464 ,0.00837 ,3.37359 ,0.25421 ,0.02005 ,0.00000 ,0.13711 - +,0.03557 ,0.00912 ,6.10782 ,0.32530 ,0.09134 ,0.00000 ,0.20830 - +,0.03644 ,0.00981 ,9.06505 ,0.40674 ,0.17296 ,0.00000 ,0.28983 - +,0.03727 ,0.01046 ,12.25643 ,0.49701 ,0.26340 ,0.00000 ,0.38019 - +,0.03804 ,0.01108 ,15.61278 ,0.59448 ,0.36103 ,0.02119 ,0.47774 - +,0.03878 ,0.01167 ,19.08290 ,0.69794 ,0.46464 ,0.10625 ,0.58127 - +,0.03949 ,0.01223 ,22.63951 ,0.80673 ,0.57357 ,0.22327 ,0.69013 - +,0.04017 ,0.01277 ,26.26294 ,0.92025 ,0.68722 ,0.33926 ,0.80372 - +,0.04083 ,0.01330 ,29.93581 ,1.03784 ,0.80495 ,0.46034 ,0.92137 - +,0.04146 ,0.01380 ,33.59691 ,1.15797 ,0.92522 ,0.58350 ,1.04157 - +,0.04208 ,0.01429 ,37.24690 ,1.28033 ,1.04771 ,0.70874 ,1.16400 - +,0.04267 ,0.01476 ,40.91866 ,1.40552 ,1.17301 ,0.83666 ,1.28924 - +,0.04325 ,0.01522 ,44.56596 ,1.53231 ,1.29992 ,0.96604 ,1.41609 - +,0.04381 ,0.01567 ,48.14853 ,1.65946 ,1.42720 ,1.09566 ,1.54330 - +,0.04436 ,0.01611 ,51.75839 ,1.78920 ,1.55705 ,1.22775 ,1.67309 - +,0.04489 ,0.01653 ,55.25159 ,1.91766 ,1.68562 ,1.35845 ,1.80160 - +,0.04541 ,0.01694 ,58.76169 ,2.04819 ,1.81627 ,1.49114 ,1.93219 - +,0.04592 ,0.01734 ,62.17473 ,2.17764 ,1.94582 ,1.62265 ,2.06169 - +,0.04641 ,0.01774 ,65.58511 ,2.30847 ,2.07676 ,1.75546 ,2.19257/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),K=1,19)/ - + 0.04043 ,0.01290 ,3.28562 ,0.25153 ,0.01794 ,0.00000 ,0.13471 - +,0.04173 ,0.01399 ,5.61259 ,0.31350 ,0.08018 ,0.00000 ,0.19682 - +,0.04295 ,0.01500 ,8.04399 ,0.38247 ,0.14941 ,0.00000 ,0.26592 - +,0.04409 ,0.01595 ,10.59365 ,0.45717 ,0.22436 ,0.00000 ,0.34074 - +,0.04516 ,0.01684 ,13.21099 ,0.53626 ,0.30368 ,0.01713 ,0.41995 - +,0.04619 ,0.01769 ,15.86079 ,0.61881 ,0.38646 ,0.08519 ,0.50261 - +,0.04716 ,0.01849 ,18.52661 ,0.70434 ,0.47219 ,0.17780 ,0.58824 - +,0.04811 ,0.01927 ,21.19753 ,0.79238 ,0.56045 ,0.26823 ,0.67639 - +,0.04901 ,0.02001 ,23.86414 ,0.88249 ,0.65075 ,0.36151 ,0.76659 - +,0.04989 ,0.02073 ,26.48428 ,0.97351 ,0.74197 ,0.45532 ,0.85771 - +,0.05073 ,0.02142 ,29.06230 ,1.06527 ,0.83391 ,0.54974 ,0.94955 - +,0.05155 ,0.02209 ,31.62558 ,1.15824 ,0.92707 ,0.64523 ,1.04261 - +,0.05235 ,0.02274 ,34.14281 ,1.25156 ,1.02057 ,0.74094 ,1.13602 - +,0.05312 ,0.02336 ,36.58765 ,1.34435 ,1.11353 ,0.83600 ,1.22889 - +,0.05387 ,0.02397 ,39.02876 ,1.43828 ,1.20764 ,0.93211 ,1.32291 - +,0.05460 ,0.02456 ,41.36519 ,1.53056 ,1.30009 ,1.02646 ,1.41527 - +,0.05531 ,0.02514 ,43.69418 ,1.62369 ,1.39338 ,1.12158 ,1.50848 - +,0.05600 ,0.02569 ,45.93681 ,1.71539 ,1.48524 ,1.21519 ,1.60025 - +,0.05668 ,0.02624 ,48.16115 ,1.80748 ,1.57750 ,1.30912 ,1.69243/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),K=1,19)/ - + 0.04437 ,0.01662 ,3.23346 ,0.24982 ,0.01672 ,0.00000 ,0.13326 - +,0.04593 ,0.01797 ,5.33558 ,0.30665 ,0.07390 ,0.00000 ,0.19027 - +,0.04740 ,0.01923 ,7.48799 ,0.36885 ,0.13642 ,0.00000 ,0.25263 - +,0.04877 ,0.02040 ,9.70652 ,0.43529 ,0.20317 ,0.00000 ,0.31923 - +,0.05007 ,0.02150 ,11.95077 ,0.50483 ,0.27301 ,0.01504 ,0.38893 - +,0.05131 ,0.02254 ,14.19400 ,0.57670 ,0.34516 ,0.07443 ,0.46093 - +,0.05249 ,0.02354 ,16.42522 ,0.65048 ,0.41921 ,0.15473 ,0.53486 - +,0.05362 ,0.02449 ,18.63791 ,0.72584 ,0.49483 ,0.23244 ,0.61034 - +,0.05471 ,0.02540 ,20.82646 ,0.80238 ,0.57164 ,0.31202 ,0.68702 - +,0.05577 ,0.02627 ,22.95779 ,0.87919 ,0.64869 ,0.39151 ,0.76395 - +,0.05679 ,0.02711 ,25.03780 ,0.95613 ,0.72588 ,0.47101 ,0.84101 - +,0.05777 ,0.02792 ,27.09091 ,1.03364 ,0.80362 ,0.55094 ,0.91864 - +,0.05872 ,0.02871 ,29.09290 ,1.11102 ,0.88123 ,0.63061 ,0.99612 - +,0.05965 ,0.02946 ,31.02338 ,1.18754 ,0.95798 ,0.70933 ,1.07276 - +,0.06055 ,0.03020 ,32.94017 ,1.26466 ,1.03531 ,0.78854 ,1.14999 - +,0.06142 ,0.03091 ,34.76190 ,1.34004 ,1.11091 ,0.86592 ,1.22547 - +,0.06228 ,0.03160 ,36.56883 ,1.41580 ,1.18688 ,0.94360 ,1.30134 - +,0.06311 ,0.03227 ,38.29787 ,1.49006 ,1.26136 ,1.01971 ,1.37571 - +,0.06392 ,0.03293 ,40.00494 ,1.56438 ,1.33587 ,1.09580 ,1.45012/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),K=1,19)/ - + 0.04756 ,0.01989 ,3.19575 ,0.24853 ,0.01585 ,0.00000 ,0.13219 - +,0.04936 ,0.02147 ,5.14323 ,0.30181 ,0.06955 ,0.00000 ,0.18569 - +,0.05104 ,0.02293 ,7.10841 ,0.35940 ,0.12753 ,0.00000 ,0.24349 - +,0.05261 ,0.02429 ,9.10866 ,0.42033 ,0.18883 ,0.00000 ,0.30461 - +,0.05410 ,0.02556 ,11.11048 ,0.48357 ,0.25242 ,0.01368 ,0.36803 - +,0.05551 ,0.02676 ,13.09261 ,0.54845 ,0.31763 ,0.06742 ,0.43308 - +,0.05686 ,0.02791 ,15.04762 ,0.61463 ,0.38414 ,0.13974 ,0.49942 - +,0.05815 ,0.02900 ,16.97173 ,0.68182 ,0.45164 ,0.20927 ,0.56677 - +,0.05940 ,0.03005 ,18.86176 ,0.74970 ,0.51983 ,0.28010 ,0.63481 - +,0.06060 ,0.03105 ,20.69008 ,0.81748 ,0.58791 ,0.35050 ,0.70274 - +,0.06177 ,0.03201 ,22.46352 ,0.88507 ,0.65578 ,0.42058 ,0.77047 - +,0.06289 ,0.03294 ,24.20454 ,0.95286 ,0.72385 ,0.49074 ,0.83840 - +,0.06398 ,0.03383 ,25.89319 ,1.02026 ,0.79153 ,0.56039 ,0.90594 - +,0.06503 ,0.03470 ,27.51276 ,1.08666 ,0.85821 ,0.62895 ,0.97248 - +,0.06605 ,0.03553 ,29.11412 ,1.15335 ,0.92516 ,0.69768 ,1.03930 - +,0.06705 ,0.03634 ,30.62778 ,1.21830 ,0.99036 ,0.76459 ,1.10438 - +,0.06802 ,0.03713 ,32.12367 ,1.28338 ,1.05569 ,0.83155 ,1.16959 - +,0.06896 ,0.03788 ,33.54817 ,1.34697 ,1.11953 ,0.89695 ,1.23330 - +,0.06988 ,0.03863 ,34.94975 ,1.41041 ,1.18322 ,0.96214 ,1.29687/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),K=1,19)/ - + 0.05074 ,0.02287 ,3.16553 ,0.24747 ,0.01520 ,0.00000 ,0.13132 - +,0.05276 ,0.02465 ,4.99322 ,0.29805 ,0.06625 ,0.00000 ,0.18215 - +,0.05465 ,0.02628 ,6.81543 ,0.35218 ,0.12082 ,0.00000 ,0.23651 - +,0.05642 ,0.02780 ,8.65089 ,0.40898 ,0.17805 ,0.00000 ,0.29353 - +,0.05809 ,0.02922 ,10.47178 ,0.46754 ,0.23700 ,0.01266 ,0.35228 - +,0.05967 ,0.03056 ,12.26102 ,0.52724 ,0.29709 ,0.06223 ,0.41218 - +,0.06118 ,0.03183 ,14.01370 ,0.58782 ,0.35804 ,0.12868 ,0.47295 - +,0.06263 ,0.03304 ,15.72800 ,0.64903 ,0.41960 ,0.19222 ,0.53433 - +,0.06403 ,0.03420 ,17.40222 ,0.71059 ,0.48151 ,0.25667 ,0.59607 - +,0.06537 ,0.03531 ,19.01311 ,0.77181 ,0.54307 ,0.32047 ,0.65746 - +,0.06667 ,0.03637 ,20.56723 ,0.83262 ,0.60421 ,0.38373 ,0.71843 - +,0.06792 ,0.03740 ,22.08592 ,0.89339 ,0.66530 ,0.44683 ,0.77937 - +,0.06913 ,0.03838 ,23.55197 ,0.95361 ,0.72583 ,0.50927 ,0.83975 - +,0.07030 ,0.03933 ,24.95193 ,1.01275 ,0.78528 ,0.57052 ,0.89904 - +,0.07144 ,0.04025 ,26.33141 ,1.07197 ,0.84480 ,0.63176 ,0.95841 - +,0.07255 ,0.04113 ,27.62933 ,1.12947 ,0.90259 ,0.69119 ,1.01605 - +,0.07362 ,0.04199 ,28.90817 ,1.18694 ,0.96035 ,0.75052 ,1.07367 - +,0.07467 ,0.04283 ,30.12148 ,1.24294 ,1.01663 ,0.80830 ,1.12981 - +,0.07568 ,0.04363 ,31.31140 ,1.29869 ,1.07266 ,0.86577 ,1.18569/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),K=1,19)/ - + 0.06297 ,0.03532 ,3.06721 ,0.24363 ,0.01317 ,0.00000 ,0.12840 - +,0.06591 ,0.03783 ,4.53988 ,0.28604 ,0.05631 ,0.00000 ,0.17119 - +,0.06864 ,0.04011 ,5.95296 ,0.33002 ,0.10098 ,0.00000 ,0.21553 - +,0.07118 ,0.04222 ,7.32976 ,0.37499 ,0.14660 ,0.00000 ,0.26083 - +,0.07357 ,0.04419 ,8.65693 ,0.42034 ,0.19255 ,0.00984 ,0.30648 - +,0.07583 ,0.04602 ,9.92824 ,0.46568 ,0.23848 ,0.04789 ,0.35213 - +,0.07797 ,0.04775 ,11.14532 ,0.51089 ,0.28426 ,0.09827 ,0.39762 - +,0.08002 ,0.04939 ,12.31112 ,0.55585 ,0.32977 ,0.14560 ,0.44286 - +,0.08199 ,0.05096 ,13.42803 ,0.60041 ,0.37487 ,0.19295 ,0.48770 - +,0.08387 ,0.05244 ,14.48270 ,0.64414 ,0.41911 ,0.23918 ,0.53168 - +,0.08568 ,0.05386 ,15.48268 ,0.68703 ,0.46250 ,0.28446 ,0.57482 - +,0.08743 ,0.05522 ,16.44507 ,0.72940 ,0.50536 ,0.32911 ,0.61744 - +,0.08911 ,0.05652 ,17.35983 ,0.77093 ,0.54736 ,0.37280 ,0.65921 - +,0.09073 ,0.05776 ,18.21970 ,0.81128 ,0.58818 ,0.41522 ,0.69980 - +,0.09230 ,0.05897 ,19.05711 ,0.85132 ,0.62867 ,0.45724 ,0.74006 - +,0.09382 ,0.06012 ,19.83203 ,0.88980 ,0.66759 ,0.49761 ,0.77876 - +,0.09529 ,0.06124 ,20.58768 ,0.92794 ,0.70616 ,0.53757 ,0.81712 - +,0.09672 ,0.06232 ,21.29404 ,0.96477 ,0.74341 ,0.57616 ,0.85416 - +,0.09811 ,0.06336 ,21.97998 ,1.00116 ,0.78021 ,0.61424 ,0.89075/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),K=1,19)/ - + 0.08210 ,0.05453 ,2.95671 ,0.23850 ,0.01119 ,0.00001 ,0.12484 - +,0.08642 ,0.05796 ,4.09555 ,0.27307 ,0.04690 ,0.00001 ,0.15999 - +,0.09037 ,0.06104 ,5.14342 ,0.30772 ,0.08261 ,0.00001 ,0.19518 - +,0.09403 ,0.06387 ,6.12766 ,0.34216 ,0.11805 ,0.00002 ,0.23013 - +,0.09743 ,0.06647 ,7.04622 ,0.37605 ,0.15289 ,0.00746 ,0.26450 - +,0.10063 ,0.06888 ,7.90088 ,0.40921 ,0.18695 ,0.03587 ,0.29811 - +,0.10366 ,0.07113 ,8.69764 ,0.44164 ,0.22024 ,0.07297 ,0.33097 - +,0.10653 ,0.07326 ,9.44204 ,0.47332 ,0.25276 ,0.10718 ,0.36307 - +,0.10926 ,0.07526 ,10.13923 ,0.50422 ,0.28447 ,0.14087 ,0.39439 - +,0.11187 ,0.07716 ,10.78262 ,0.53406 ,0.31509 ,0.17324 ,0.42462 - +,0.11436 ,0.07895 ,11.38063 ,0.56290 ,0.34469 ,0.20451 ,0.45384 - +,0.11675 ,0.08066 ,11.94551 ,0.59105 ,0.37356 ,0.23496 ,0.48235 - +,0.11903 ,0.08229 ,12.47141 ,0.61830 ,0.40152 ,0.26442 ,0.50996 - +,0.12123 ,0.08384 ,12.95668 ,0.64443 ,0.42835 ,0.29266 ,0.53644 - +,0.12336 ,0.08533 ,13.42274 ,0.67010 ,0.45468 ,0.32034 ,0.56245 - +,0.12539 ,0.08675 ,13.84265 ,0.69447 ,0.47971 ,0.34665 ,0.58714 - +,0.12736 ,0.08813 ,14.24728 ,0.71840 ,0.50428 ,0.37245 ,0.61139 - +,0.12926 ,0.08944 ,14.61877 ,0.74126 ,0.52777 ,0.39711 ,0.63457 - +,0.13111 ,0.09070 ,14.97499 ,0.76365 ,0.55077 ,0.42123 ,0.65727/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),K=1,19)/ - + 0.09827 ,0.07022 ,2.88214 ,0.23446 ,0.01005 ,0.00000 ,0.12225 - +,0.10361 ,0.07424 ,3.83633 ,0.26454 ,0.04160 ,0.00001 ,0.15308 - +,0.10848 ,0.07782 ,4.69110 ,0.29404 ,0.07247 ,0.00001 ,0.18327 - +,0.11298 ,0.08107 ,5.47511 ,0.32285 ,0.10257 ,0.00002 ,0.21273 - +,0.11713 ,0.08405 ,6.19135 ,0.35075 ,0.13168 ,0.00625 ,0.24124 - +,0.12101 ,0.08680 ,6.84461 ,0.37767 ,0.15976 ,0.02980 ,0.26875 - +,0.12466 ,0.08935 ,7.44286 ,0.40367 ,0.18686 ,0.06030 ,0.29530 - +,0.12810 ,0.09174 ,7.99256 ,0.42876 ,0.21303 ,0.08806 ,0.32094 - +,0.13136 ,0.09399 ,8.49889 ,0.45299 ,0.23827 ,0.11511 ,0.34567 - +,0.13448 ,0.09610 ,8.95951 ,0.47614 ,0.26242 ,0.14090 ,0.36933 - +,0.13743 ,0.09808 ,9.38041 ,0.49832 ,0.28556 ,0.16559 ,0.39199 - +,0.14025 ,0.09997 ,9.77257 ,0.51977 ,0.30793 ,0.18943 ,0.41391 - +,0.14295 ,0.10176 ,10.13246 ,0.54036 ,0.32941 ,0.21228 ,0.43494 - +,0.14551 ,0.10346 ,10.45938 ,0.55994 ,0.34986 ,0.23404 ,0.45495 - +,0.14798 ,0.10509 ,10.77022 ,0.57904 ,0.36979 ,0.25523 ,0.47447 - +,0.15035 ,0.10662 ,11.04557 ,0.59701 ,0.38859 ,0.27520 ,0.49285 - +,0.15265 ,0.10810 ,11.30829 ,0.61456 ,0.40693 ,0.29468 ,0.51080 - +,0.15484 ,0.10950 ,11.54489 ,0.63119 ,0.42433 ,0.31317 ,0.52781 - +,0.15697 ,0.11086 ,11.76954 ,0.64738 ,0.44129 ,0.33116 ,0.54439/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),K=1,19)/ - + 0.11303 ,0.08392 ,2.82253 ,0.23091 ,0.00924 ,0.00000 ,0.12007 - +,0.11923 ,0.08835 ,3.65057 ,0.25783 ,0.03792 ,0.00001 ,0.14788 - +,0.12484 ,0.09226 ,4.37721 ,0.28379 ,0.06553 ,0.00001 ,0.17467 - +,0.12999 ,0.09579 ,5.03151 ,0.30880 ,0.09208 ,0.00002 ,0.20046 - +,0.13473 ,0.09901 ,5.61935 ,0.33274 ,0.11747 ,0.00545 ,0.22513 - +,0.13913 ,0.10196 ,6.14719 ,0.35559 ,0.14170 ,0.02587 ,0.24867 - +,0.14325 ,0.10469 ,6.62354 ,0.37744 ,0.16486 ,0.05215 ,0.27118 - +,0.14713 ,0.10724 ,7.05517 ,0.39834 ,0.18702 ,0.07585 ,0.29272 - +,0.15079 ,0.10963 ,7.44751 ,0.41835 ,0.20824 ,0.09877 ,0.31333 - +,0.15427 ,0.11184 ,7.79961 ,0.43732 ,0.22837 ,0.12046 ,0.33289 - +,0.15755 ,0.11392 ,8.11699 ,0.45535 ,0.24753 ,0.14108 ,0.35148 - +,0.16068 ,0.11590 ,8.40931 ,0.47268 ,0.26594 ,0.16087 ,0.36935 - +,0.16367 ,0.11776 ,8.67410 ,0.48919 ,0.28349 ,0.17972 ,0.38638 - +,0.16649 ,0.11952 ,8.91114 ,0.50478 ,0.30009 ,0.19756 ,0.40248 - +,0.16921 ,0.12121 ,9.13455 ,0.51992 ,0.31620 ,0.21485 ,0.41810 - +,0.17181 ,0.12279 ,9.32880 ,0.53405 ,0.33129 ,0.23105 ,0.43271 - +,0.17431 ,0.12431 ,9.51262 ,0.54778 ,0.34595 ,0.24678 ,0.44691 - +,0.17671 ,0.12574 ,9.67520 ,0.56071 ,0.35978 ,0.26162 ,0.46028 - +,0.17903 ,0.12711 ,9.82814 ,0.57324 ,0.37319 ,0.27601 ,0.47326/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),K=1,19)/ - + 0.12685 ,0.09625 ,2.77138 ,0.22764 ,0.00863 ,0.00001 ,0.11813 - +,0.13374 ,0.10096 ,3.50469 ,0.25209 ,0.03512 ,0.00001 ,0.14361 - +,0.13997 ,0.10509 ,4.13719 ,0.27539 ,0.06030 ,0.00003 ,0.16785 - +,0.14564 ,0.10882 ,4.69796 ,0.29756 ,0.08423 ,0.00003 ,0.19091 - +,0.15084 ,0.11219 ,5.19426 ,0.31858 ,0.10692 ,0.00488 ,0.21277 - +,0.15566 ,0.11526 ,5.63426 ,0.33846 ,0.12838 ,0.02306 ,0.23345 - +,0.16016 ,0.11809 ,6.02659 ,0.35733 ,0.14873 ,0.04632 ,0.25306 - +,0.16438 ,0.12072 ,6.37756 ,0.37523 ,0.16806 ,0.06714 ,0.27168 - +,0.16836 ,0.12316 ,6.69287 ,0.39223 ,0.18643 ,0.08714 ,0.28937 - +,0.17208 ,0.12544 ,6.97169 ,0.40827 ,0.20378 ,0.10598 ,0.30606 - +,0.17563 ,0.12756 ,7.21999 ,0.42339 ,0.22017 ,0.12376 ,0.32182 - +,0.17901 ,0.12955 ,7.44652 ,0.43784 ,0.23584 ,0.14074 ,0.33688 - +,0.18219 ,0.13144 ,7.64966 ,0.45152 ,0.25070 ,0.15685 ,0.35115 - +,0.18521 ,0.13321 ,7.82807 ,0.46437 ,0.26468 ,0.17201 ,0.36457 - +,0.18811 ,0.13490 ,7.99463 ,0.47678 ,0.27819 ,0.18664 ,0.37753 - +,0.19085 ,0.13648 ,8.13752 ,0.48829 ,0.29077 ,0.20028 ,0.38957 - +,0.19349 ,0.13800 ,8.27137 ,0.49944 ,0.30295 ,0.21348 ,0.40124 - +,0.19602 ,0.13942 ,8.38672 ,0.50989 ,0.31441 ,0.22590 ,0.41220 - +,0.19845 ,0.14079 ,8.49439 ,0.51998 ,0.32547 ,0.23788 ,0.42277/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),K=1,19)/ - + 0.18789 ,0.14565 ,2.57112 ,0.21310 ,0.00668 ,0.00001 ,0.10988 - +,0.19707 ,0.15077 ,3.02861 ,0.22991 ,0.02662 ,0.00002 ,0.12827 - +,0.20513 ,0.15519 ,3.39857 ,0.24516 ,0.04471 ,0.00001 ,0.14494 - +,0.21236 ,0.15905 ,3.70753 ,0.25910 ,0.06131 ,0.00003 ,0.16022 - +,0.21886 ,0.16248 ,3.96549 ,0.27183 ,0.07649 ,0.00330 ,0.17418 - +,0.22482 ,0.16550 ,4.18166 ,0.28348 ,0.09044 ,0.01536 ,0.18698 - +,0.23029 ,0.16824 ,4.36364 ,0.29418 ,0.10332 ,0.03054 ,0.19877 - +,0.23533 ,0.17074 ,4.51732 ,0.30405 ,0.11525 ,0.04377 ,0.20967 - +,0.24003 ,0.17299 ,4.64847 ,0.31318 ,0.12634 ,0.05625 ,0.21978 - +,0.24437 ,0.17506 ,4.75611 ,0.32152 ,0.13656 ,0.06771 ,0.22906 - +,0.24842 ,0.17695 ,4.84570 ,0.32918 ,0.14599 ,0.07833 ,0.23760 - +,0.25223 ,0.17870 ,4.92252 ,0.33632 ,0.15484 ,0.08829 ,0.24559 - +,0.25578 ,0.18031 ,4.98589 ,0.34291 ,0.16307 ,0.09756 ,0.25302 - +,0.25912 ,0.18180 ,5.03615 ,0.34892 ,0.17066 ,0.10613 ,0.25982 - +,0.26231 ,0.18321 ,5.08051 ,0.35463 ,0.17788 ,0.11428 ,0.26629 - +,0.26526 ,0.18448 ,5.11237 ,0.35976 ,0.18448 ,0.12176 ,0.27215 - +,0.26808 ,0.18568 ,5.14023 ,0.36464 ,0.19078 ,0.12890 ,0.27774 - +,0.27074 ,0.18677 ,5.15921 ,0.36907 ,0.19655 ,0.13549 ,0.28283 - +,0.27328 ,0.18781 ,5.17503 ,0.37327 ,0.20206 ,0.14178 ,0.28770/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),K=1,19)/ - + 0.28861 ,0.21259 ,2.27221 ,0.18756 ,0.00468 ,-0.00010 ,0.09607 - +,0.29881 ,0.21651 ,2.48965 ,0.19672 ,0.01837 ,-0.00008 ,0.10751 - +,0.30750 ,0.21959 ,2.64636 ,0.20446 ,0.03017 ,-0.00013 ,0.11726 - +,0.31505 ,0.22214 ,2.76263 ,0.21109 ,0.04051 ,-0.00009 ,0.12576 - +,0.32159 ,0.22427 ,2.84801 ,0.21680 ,0.04964 ,0.00190 ,0.13318 - +,0.32743 ,0.22599 ,2.90936 ,0.22172 ,0.05768 ,0.00912 ,0.13966 - +,0.33261 ,0.22746 ,2.95225 ,0.22597 ,0.06486 ,0.01803 ,0.14537 - +,0.33723 ,0.22873 ,2.98091 ,0.22966 ,0.07132 ,0.02556 ,0.15045 - +,0.34145 ,0.22976 ,2.99876 ,0.23286 ,0.07712 ,0.03245 ,0.15497 - +,0.34522 ,0.23061 ,3.00591 ,0.23560 ,0.08230 ,0.03860 ,0.15891 - +,0.34862 ,0.23130 ,3.00536 ,0.23796 ,0.08692 ,0.04417 ,0.16241 - +,0.35174 ,0.23189 ,3.00014 ,0.24003 ,0.09115 ,0.04928 ,0.16557 - +,0.35456 ,0.23239 ,2.99005 ,0.24179 ,0.09503 ,0.05397 ,0.16838 - +,0.35713 ,0.23275 ,2.97496 ,0.24326 ,0.09850 ,0.05822 ,0.17085 - +,0.35953 ,0.23305 ,2.95864 ,0.24459 ,0.10172 ,0.06219 ,0.17314 - +,0.36166 ,0.23326 ,2.93812 ,0.24559 ,0.10455 ,0.06568 ,0.17505 - +,0.36367 ,0.23343 ,2.91725 ,0.24650 ,0.10719 ,0.06896 ,0.17683 - +,0.36548 ,0.23351 ,2.89369 ,0.24719 ,0.10954 ,0.07194 ,0.17834 - +,0.36717 ,0.23358 ,2.86998 ,0.24780 ,0.11174 ,0.07474 ,0.17973/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),K=1,19)/ - + 0.37081 ,0.25593 ,2.02822 ,0.16418 ,0.00363 ,0.00001 ,0.08390 - +,0.37962 ,0.25761 ,2.12890 ,0.16915 ,0.01391 ,0.00000 ,0.09151 - +,0.38688 ,0.25860 ,2.18822 ,0.17293 ,0.02250 ,0.00000 ,0.09770 - +,0.39291 ,0.25913 ,2.22175 ,0.17596 ,0.02973 ,0.00001 ,0.10284 - +,0.39788 ,0.25943 ,2.23682 ,0.17836 ,0.03593 ,0.00140 ,0.10714 - +,0.40209 ,0.25949 ,2.23850 ,0.18017 ,0.04130 ,0.00635 ,0.11074 - +,0.40573 ,0.25928 ,2.23044 ,0.18155 ,0.04594 ,0.01240 ,0.11377 - +,0.40880 ,0.25894 ,2.21546 ,0.18260 ,0.05001 ,0.01737 ,0.11634 - +,0.41141 ,0.25853 ,2.19547 ,0.18335 ,0.05361 ,0.02183 ,0.11851 - +,0.41364 ,0.25792 ,2.17095 ,0.18382 ,0.05676 ,0.02577 ,0.12029 - +,0.41548 ,0.25732 ,2.14356 ,0.18406 ,0.05948 ,0.02931 ,0.12177 - +,0.41707 ,0.25667 ,2.11504 ,0.18416 ,0.06193 ,0.03249 ,0.12305 - +,0.41842 ,0.25592 ,2.08512 ,0.18410 ,0.06413 ,0.03534 ,0.12412 - +,0.41952 ,0.25512 ,2.05386 ,0.18388 ,0.06603 ,0.03784 ,0.12498 - +,0.42050 ,0.25432 ,2.02332 ,0.18361 ,0.06776 ,0.04015 ,0.12573 - +,0.42127 ,0.25342 ,1.99146 ,0.18320 ,0.06921 ,0.04216 ,0.12623 - +,0.42193 ,0.25254 ,1.96062 ,0.18275 ,0.07055 ,0.04404 ,0.12667 - +,0.42241 ,0.25164 ,1.92935 ,0.18218 ,0.07174 ,0.04572 ,0.12697 - +,0.42280 ,0.25075 ,1.89906 ,0.18160 ,0.07282 ,0.04727 ,0.12722/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),K=1,19)/ - + 0.43812 ,0.28422 ,1.81459 ,0.14252 ,0.00295 ,0.00009 ,0.07275 - +,0.44437 ,0.28335 ,1.84672 ,0.14480 ,0.01095 ,0.00008 ,0.07791 - +,0.44900 ,0.28211 ,1.85154 ,0.14632 ,0.01737 ,0.00008 ,0.08189 - +,0.45254 ,0.28061 ,1.84102 ,0.14724 ,0.02273 ,0.00006 ,0.08504 - +,0.45525 ,0.27895 ,1.82048 ,0.14774 ,0.02722 ,0.00112 ,0.08751 - +,0.45726 ,0.27720 ,1.79331 ,0.14789 ,0.03101 ,0.00473 ,0.08949 - +,0.45861 ,0.27545 ,1.76178 ,0.14775 ,0.03424 ,0.00905 ,0.09104 - +,0.45957 ,0.27362 ,1.72777 ,0.14741 ,0.03701 ,0.01258 ,0.09225 - +,0.46026 ,0.27173 ,1.69264 ,0.14695 ,0.03938 ,0.01571 ,0.09319 - +,0.46044 ,0.26993 ,1.65599 ,0.14633 ,0.04140 ,0.01843 ,0.09388 - +,0.46049 ,0.26801 ,1.61924 ,0.14556 ,0.04311 ,0.02076 ,0.09438 - +,0.46035 ,0.26613 ,1.58325 ,0.14474 ,0.04462 ,0.02285 ,0.09475 - +,0.45994 ,0.26433 ,1.54765 ,0.14388 ,0.04595 ,0.02473 ,0.09497 - +,0.45938 ,0.26250 ,1.51249 ,0.14292 ,0.04707 ,0.02634 ,0.09506 - +,0.45877 ,0.26073 ,1.47895 ,0.14196 ,0.04808 ,0.02781 ,0.09510 - +,0.45801 ,0.25891 ,1.44551 ,0.14095 ,0.04887 ,0.02911 ,0.09497 - +,0.45720 ,0.25714 ,1.41370 ,0.13994 ,0.04960 ,0.03029 ,0.09482 - +,0.45625 ,0.25535 ,1.38246 ,0.13889 ,0.05021 ,0.03128 ,0.09459 - +,0.45527 ,0.25362 ,1.35267 ,0.13786 ,0.05076 ,0.03219 ,0.09433/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),K=1,19)/ - + 0.49261 ,0.30150 ,1.62357 ,0.12262 ,0.00233 ,0.00007 ,0.06249 - +,0.49548 ,0.29808 ,1.61213 ,0.12325 ,0.00870 ,0.00008 ,0.06599 - +,0.49678 ,0.29477 ,1.58428 ,0.12325 ,0.01373 ,0.00013 ,0.06854 - +,0.49741 ,0.29129 ,1.54874 ,0.12294 ,0.01777 ,0.00013 ,0.07040 - +,0.49733 ,0.28792 ,1.50903 ,0.12234 ,0.02112 ,0.00087 ,0.07173 - +,0.49673 ,0.28460 ,1.46724 ,0.12157 ,0.02383 ,0.00355 ,0.07271 - +,0.49573 ,0.28136 ,1.42474 ,0.12064 ,0.02612 ,0.00676 ,0.07338 - +,0.49439 ,0.27823 ,1.38245 ,0.11959 ,0.02805 ,0.00933 ,0.07382 - +,0.49284 ,0.27518 ,1.34118 ,0.11849 ,0.02967 ,0.01160 ,0.07410 - +,0.49115 ,0.27208 ,1.30062 ,0.11732 ,0.03102 ,0.01352 ,0.07418 - +,0.48923 ,0.26914 ,1.26131 ,0.11608 ,0.03215 ,0.01516 ,0.07416 - +,0.48720 ,0.26632 ,1.22388 ,0.11485 ,0.03314 ,0.01662 ,0.07405 - +,0.48505 ,0.26358 ,1.18798 ,0.11361 ,0.03399 ,0.01795 ,0.07383 - +,0.48288 ,0.26082 ,1.15329 ,0.11236 ,0.03467 ,0.01903 ,0.07352 - +,0.48075 ,0.25817 ,1.12061 ,0.11113 ,0.03525 ,0.01999 ,0.07319 - +,0.47838 ,0.25564 ,1.08886 ,0.10990 ,0.03567 ,0.02082 ,0.07280 - +,0.47608 ,0.25320 ,1.05896 ,0.10869 ,0.03605 ,0.02158 ,0.07240 - +,0.47377 ,0.25075 ,1.03013 ,0.10744 ,0.03638 ,0.02223 ,0.07197 - +,0.47150 ,0.24839 ,1.00288 ,0.10624 ,0.03666 ,0.02283 ,0.07152/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),K=1,19)/ - + 0.54430 ,0.31145 ,1.41126 ,0.10030 ,0.00187 ,0.00005 ,0.05114 - +,0.54225 ,0.30526 ,1.36647 ,0.09969 ,0.00668 ,0.00013 ,0.05319 - +,0.53944 ,0.29928 ,1.31501 ,0.09868 ,0.01039 ,0.00003 ,0.05459 - +,0.53605 ,0.29370 ,1.26282 ,0.09750 ,0.01337 ,0.00006 ,0.05546 - +,0.53240 ,0.28840 ,1.21130 ,0.09620 ,0.01570 ,0.00064 ,0.05601 - +,0.52844 ,0.28345 ,1.16157 ,0.09485 ,0.01758 ,0.00262 ,0.05627 - +,0.52434 ,0.27872 ,1.11397 ,0.09346 ,0.01913 ,0.00493 ,0.05634 - +,0.52024 ,0.27411 ,1.06874 ,0.09203 ,0.02040 ,0.00671 ,0.05627 - +,0.51607 ,0.26975 ,1.02607 ,0.09060 ,0.02144 ,0.00821 ,0.05607 - +,0.51176 ,0.26563 ,0.98560 ,0.08916 ,0.02228 ,0.00951 ,0.05580 - +,0.50752 ,0.26161 ,0.94744 ,0.08774 ,0.02296 ,0.01065 ,0.05542 - +,0.50337 ,0.25777 ,0.91177 ,0.08636 ,0.02353 ,0.01162 ,0.05500 - +,0.49923 ,0.25410 ,0.87820 ,0.08499 ,0.02400 ,0.01242 ,0.05455 - +,0.49506 ,0.25056 ,0.84646 ,0.08364 ,0.02439 ,0.01314 ,0.05405 - +,0.49102 ,0.24719 ,0.81692 ,0.08235 ,0.02473 ,0.01379 ,0.05355 - +,0.48706 ,0.24384 ,0.78874 ,0.08105 ,0.02494 ,0.01429 ,0.05304 - +,0.48322 ,0.24066 ,0.76246 ,0.07981 ,0.02511 ,0.01474 ,0.05253 - +,0.47935 ,0.23762 ,0.73749 ,0.07859 ,0.02522 ,0.01511 ,0.05201 - +,0.47558 ,0.23470 ,0.71410 ,0.07742 ,0.02530 ,0.01545 ,0.05149/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),K=1,19)/ - + 0.57988 ,0.31151 ,1.22393 ,0.08094 ,0.00152 ,0.00012 ,0.04131 - +,0.57286 ,0.30293 ,1.15994 ,0.07969 ,0.00518 ,0.00016 ,0.04249 - +,0.56568 ,0.29485 ,1.09666 ,0.07823 ,0.00795 ,0.00011 ,0.04315 - +,0.55837 ,0.28754 ,1.03695 ,0.07665 ,0.01016 ,0.00012 ,0.04346 - +,0.55117 ,0.28073 ,0.98134 ,0.07511 ,0.01185 ,0.00054 ,0.04352 - +,0.54407 ,0.27443 ,0.92978 ,0.07353 ,0.01317 ,0.00196 ,0.04340 - +,0.53706 ,0.26854 ,0.88202 ,0.07198 ,0.01420 ,0.00362 ,0.04318 - +,0.53027 ,0.26290 ,0.83784 ,0.07048 ,0.01506 ,0.00488 ,0.04284 - +,0.52368 ,0.25754 ,0.79706 ,0.06902 ,0.01577 ,0.00596 ,0.04243 - +,0.51715 ,0.25259 ,0.75925 ,0.06757 ,0.01627 ,0.00685 ,0.04200 - +,0.51091 ,0.24778 ,0.72419 ,0.06614 ,0.01670 ,0.00759 ,0.04153 - +,0.50485 ,0.24322 ,0.69189 ,0.06479 ,0.01704 ,0.00821 ,0.04103 - +,0.49886 ,0.23890 ,0.66193 ,0.06351 ,0.01730 ,0.00873 ,0.04050 - +,0.49306 ,0.23477 ,0.63399 ,0.06225 ,0.01750 ,0.00921 ,0.03995 - +,0.48750 ,0.23086 ,0.60821 ,0.06105 ,0.01766 ,0.00965 ,0.03941 - +,0.48194 ,0.22713 ,0.58396 ,0.05990 ,0.01771 ,0.01003 ,0.03885 - +,0.47663 ,0.22357 ,0.56150 ,0.05880 ,0.01775 ,0.01035 ,0.03832 - +,0.47147 ,0.22009 ,0.54041 ,0.05769 ,0.01779 ,0.01056 ,0.03781 - +,0.46647 ,0.21678 ,0.52078 ,0.05664 ,0.01781 ,0.01075 ,0.03730/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),K=1,19)/ - + 0.60110 ,0.30448 ,1.05795 ,0.06446 ,0.00116 ,0.00005 ,0.03283 - +,0.58936 ,0.29384 ,0.98420 ,0.06292 ,0.00399 ,0.00001 ,0.03350 - +,0.57802 ,0.28412 ,0.91593 ,0.06127 ,0.00617 ,0.00004 ,0.03373 - +,0.56702 ,0.27547 ,0.85424 ,0.05966 ,0.00777 ,0.00004 ,0.03375 - +,0.55660 ,0.26751 ,0.79870 ,0.05805 ,0.00901 ,0.00032 ,0.03358 - +,0.54666 ,0.26017 ,0.74856 ,0.05652 ,0.00995 ,0.00142 ,0.03327 - +,0.53722 ,0.25328 ,0.70314 ,0.05503 ,0.01067 ,0.00267 ,0.03293 - +,0.52813 ,0.24687 ,0.66197 ,0.05354 ,0.01127 ,0.00362 ,0.03259 - +,0.51941 ,0.24096 ,0.62457 ,0.05214 ,0.01175 ,0.00444 ,0.03214 - +,0.51097 ,0.23536 ,0.59046 ,0.05087 ,0.01203 ,0.00506 ,0.03162 - +,0.50281 ,0.23012 ,0.55926 ,0.04960 ,0.01230 ,0.00561 ,0.03111 - +,0.49505 ,0.22518 ,0.53080 ,0.04840 ,0.01249 ,0.00606 ,0.03060 - +,0.48765 ,0.22045 ,0.50464 ,0.04727 ,0.01258 ,0.00639 ,0.03008 - +,0.48049 ,0.21591 ,0.48059 ,0.04614 ,0.01274 ,0.00672 ,0.02955 - +,0.47366 ,0.21163 ,0.45858 ,0.04506 ,0.01289 ,0.00701 ,0.02904 - +,0.46690 ,0.20759 ,0.43801 ,0.04405 ,0.01291 ,0.00722 ,0.02856 - +,0.46047 ,0.20377 ,0.41911 ,0.04309 ,0.01290 ,0.00739 ,0.02810 - +,0.45425 ,0.20010 ,0.40154 ,0.04216 ,0.01286 ,0.00752 ,0.02765 - +,0.44829 ,0.19661 ,0.38527 ,0.04128 ,0.01283 ,0.00762 ,0.02720/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),K=1,19)/ - + 0.61012 ,0.29186 ,0.91144 ,0.05066 ,0.00089 ,0.00005 ,0.02575 - +,0.59385 ,0.27975 ,0.83376 ,0.04911 ,0.00308 ,0.00001 ,0.02608 - +,0.57857 ,0.26905 ,0.76499 ,0.04748 ,0.00470 ,-0.00008 ,0.02613 - +,0.56442 ,0.25939 ,0.70466 ,0.04596 ,0.00587 ,0.00004 ,0.02596 - +,0.55118 ,0.25064 ,0.65156 ,0.04443 ,0.00681 ,0.00031 ,0.02574 - +,0.53884 ,0.24262 ,0.60465 ,0.04299 ,0.00749 ,0.00113 ,0.02544 - +,0.52714 ,0.23525 ,0.56294 ,0.04168 ,0.00798 ,0.00201 ,0.02499 - +,0.51602 ,0.22842 ,0.52563 ,0.04044 ,0.00837 ,0.00263 ,0.02450 - +,0.50546 ,0.22213 ,0.49224 ,0.03923 ,0.00872 ,0.00317 ,0.02403 - +,0.49536 ,0.21628 ,0.46217 ,0.03810 ,0.00894 ,0.00360 ,0.02352 - +,0.48593 ,0.21064 ,0.43491 ,0.03700 ,0.00908 ,0.00398 ,0.02307 - +,0.47698 ,0.20535 ,0.41024 ,0.03595 ,0.00919 ,0.00431 ,0.02264 - +,0.46835 ,0.20045 ,0.38778 ,0.03496 ,0.00927 ,0.00457 ,0.02219 - +,0.46012 ,0.19576 ,0.36732 ,0.03402 ,0.00932 ,0.00479 ,0.02174 - +,0.45233 ,0.19135 ,0.34874 ,0.03314 ,0.00935 ,0.00498 ,0.02130 - +,0.44469 ,0.18720 ,0.33158 ,0.03234 ,0.00929 ,0.00512 ,0.02085 - +,0.43740 ,0.18332 ,0.31590 ,0.03157 ,0.00924 ,0.00522 ,0.02043 - +,0.43030 ,0.17966 ,0.30145 ,0.03082 ,0.00921 ,0.00528 ,0.02000 - +,0.42356 ,0.17618 ,0.28813 ,0.03010 ,0.00917 ,0.00534 ,0.01961/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),K=1,19)/ - + 0.60824 ,0.27549 ,0.78196 ,0.03925 ,0.00068 ,0.00001 ,0.01997 - +,0.58808 ,0.26243 ,0.70456 ,0.03782 ,0.00237 ,0.00009 ,0.02007 - +,0.56956 ,0.25091 ,0.63788 ,0.03636 ,0.00360 ,0.00005 ,0.02001 - +,0.55263 ,0.24062 ,0.58086 ,0.03498 ,0.00449 ,0.00005 ,0.01981 - +,0.53706 ,0.23142 ,0.53163 ,0.03373 ,0.00513 ,0.00024 ,0.01942 - +,0.52262 ,0.22306 ,0.48893 ,0.03252 ,0.00565 ,0.00079 ,0.01899 - +,0.50924 ,0.21530 ,0.45145 ,0.03134 ,0.00605 ,0.00146 ,0.01861 - +,0.49665 ,0.20820 ,0.41832 ,0.03025 ,0.00630 ,0.00194 ,0.01827 - +,0.48473 ,0.20171 ,0.38901 ,0.02921 ,0.00644 ,0.00236 ,0.01795 - +,0.47333 ,0.19578 ,0.36264 ,0.02828 ,0.00660 ,0.00268 ,0.01750 - +,0.46267 ,0.19017 ,0.33927 ,0.02736 ,0.00670 ,0.00293 ,0.01710 - +,0.45268 ,0.18493 ,0.31829 ,0.02650 ,0.00676 ,0.00316 ,0.01672 - +,0.44322 ,0.18002 ,0.29921 ,0.02571 ,0.00675 ,0.00337 ,0.01633 - +,0.43417 ,0.17530 ,0.28202 ,0.02498 ,0.00673 ,0.00351 ,0.01594 - +,0.42562 ,0.17089 ,0.26648 ,0.02430 ,0.00672 ,0.00361 ,0.01556 - +,0.41724 ,0.16691 ,0.25220 ,0.02358 ,0.00677 ,0.00370 ,0.01519 - +,0.40937 ,0.16311 ,0.23924 ,0.02292 ,0.00678 ,0.00377 ,0.01484 - +,0.40200 ,0.15935 ,0.22744 ,0.02232 ,0.00669 ,0.00383 ,0.01451 - +,0.39494 ,0.15581 ,0.21661 ,0.02175 ,0.00661 ,0.00386 ,0.01419/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),K=1,19)/ - + 0.59723 ,0.25658 ,0.66803 ,0.03001 ,0.00048 ,0.00008 ,0.01528 - +,0.57383 ,0.24285 ,0.59317 ,0.02872 ,0.00183 ,0.00012 ,0.01530 - +,0.55258 ,0.23091 ,0.53045 ,0.02747 ,0.00274 ,0.00010 ,0.01521 - +,0.53359 ,0.22015 ,0.47782 ,0.02628 ,0.00344 ,0.00015 ,0.01498 - +,0.51603 ,0.21082 ,0.43312 ,0.02521 ,0.00390 ,0.00027 ,0.01466 - +,0.49993 ,0.20240 ,0.39479 ,0.02418 ,0.00429 ,0.00064 ,0.01434 - +,0.48508 ,0.19467 ,0.36156 ,0.02320 ,0.00461 ,0.00112 ,0.01401 - +,0.47122 ,0.18763 ,0.33254 ,0.02233 ,0.00481 ,0.00149 ,0.01363 - +,0.45830 ,0.18118 ,0.30721 ,0.02154 ,0.00489 ,0.00173 ,0.01323 - +,0.44623 ,0.17517 ,0.28458 ,0.02076 ,0.00496 ,0.00193 ,0.01289 - +,0.43486 ,0.16953 ,0.26474 ,0.02007 ,0.00496 ,0.00218 ,0.01253 - +,0.42416 ,0.16436 ,0.24711 ,0.01940 ,0.00497 ,0.00235 ,0.01220 - +,0.41398 ,0.15968 ,0.23123 ,0.01872 ,0.00501 ,0.00240 ,0.01191 - +,0.40436 ,0.15518 ,0.21681 ,0.01813 ,0.00501 ,0.00247 ,0.01158 - +,0.39532 ,0.15096 ,0.20383 ,0.01759 ,0.00499 ,0.00255 ,0.01126 - +,0.38674 ,0.14699 ,0.19222 ,0.01706 ,0.00494 ,0.00258 ,0.01097 - +,0.37864 ,0.14325 ,0.18170 ,0.01657 ,0.00488 ,0.00261 ,0.01069 - +,0.37093 ,0.13962 ,0.17205 ,0.01611 ,0.00482 ,0.00263 ,0.01040 - +,0.36360 ,0.13622 ,0.16322 ,0.01566 ,0.00477 ,0.00265 ,0.01013/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),K=1,19)/ - + 0.57892 ,0.23563 ,0.56776 ,0.02257 ,0.00041 ,0.00007 ,0.01156 - +,0.55258 ,0.22186 ,0.49747 ,0.02144 ,0.00150 ,0.00003 ,0.01159 - +,0.52953 ,0.20960 ,0.43977 ,0.02043 ,0.00218 ,0.00011 ,0.01142 - +,0.50840 ,0.19922 ,0.39185 ,0.01951 ,0.00263 ,0.00009 ,0.01120 - +,0.48957 ,0.18979 ,0.35190 ,0.01864 ,0.00304 ,0.00021 ,0.01090 - +,0.47236 ,0.18143 ,0.31800 ,0.01783 ,0.00333 ,0.00051 ,0.01056 - +,0.45645 ,0.17399 ,0.28911 ,0.01708 ,0.00348 ,0.00081 ,0.01025 - +,0.44181 ,0.16713 ,0.26409 ,0.01639 ,0.00356 ,0.00111 ,0.00997 - +,0.42826 ,0.16078 ,0.24206 ,0.01571 ,0.00367 ,0.00131 ,0.00971 - +,0.41548 ,0.15501 ,0.22294 ,0.01513 ,0.00366 ,0.00148 ,0.00943 - +,0.40368 ,0.14966 ,0.20625 ,0.01454 ,0.00373 ,0.00157 ,0.00915 - +,0.39265 ,0.14473 ,0.19149 ,0.01400 ,0.00377 ,0.00166 ,0.00887 - +,0.38217 ,0.14019 ,0.17827 ,0.01353 ,0.00373 ,0.00179 ,0.00858 - +,0.37250 ,0.13588 ,0.16652 ,0.01304 ,0.00368 ,0.00184 ,0.00832 - +,0.36347 ,0.13184 ,0.15603 ,0.01258 ,0.00363 ,0.00187 ,0.00809 - +,0.35472 ,0.12805 ,0.14660 ,0.01216 ,0.00357 ,0.00191 ,0.00786 - +,0.34647 ,0.12450 ,0.13804 ,0.01177 ,0.00354 ,0.00193 ,0.00766 - +,0.33852 ,0.12115 ,0.13012 ,0.01141 ,0.00354 ,0.00191 ,0.00748 - +,0.33107 ,0.11799 ,0.12297 ,0.01107 ,0.00353 ,0.00190 ,0.00731/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),K=1,19)/ - + 0.55422 ,0.21403 ,0.48013 ,0.01666 ,0.00041 ,0.00007 ,0.00864 - +,0.52595 ,0.20024 ,0.41524 ,0.01585 ,0.00108 ,0.00004 ,0.00864 - +,0.50094 ,0.18846 ,0.36279 ,0.01501 ,0.00177 ,0.00012 ,0.00846 - +,0.47872 ,0.17827 ,0.32002 ,0.01427 ,0.00211 ,0.00000 ,0.00825 - +,0.45881 ,0.16924 ,0.28477 ,0.01360 ,0.00233 ,0.00009 ,0.00803 - +,0.44088 ,0.16117 ,0.25535 ,0.01297 ,0.00247 ,0.00038 ,0.00780 - +,0.42457 ,0.15383 ,0.23029 ,0.01238 ,0.00257 ,0.00069 ,0.00755 - +,0.40957 ,0.14716 ,0.20885 ,0.01184 ,0.00267 ,0.00088 ,0.00728 - +,0.39563 ,0.14121 ,0.19045 ,0.01135 ,0.00271 ,0.00097 ,0.00705 - +,0.38271 ,0.13566 ,0.17443 ,0.01087 ,0.00273 ,0.00111 ,0.00686 - +,0.37084 ,0.13062 ,0.16057 ,0.01039 ,0.00273 ,0.00118 ,0.00665 - +,0.35979 ,0.12596 ,0.14834 ,0.00995 ,0.00272 ,0.00123 ,0.00643 - +,0.34935 ,0.12160 ,0.13737 ,0.00958 ,0.00270 ,0.00128 ,0.00618 - +,0.33952 ,0.11751 ,0.12776 ,0.00920 ,0.00273 ,0.00133 ,0.00601 - +,0.33034 ,0.11372 ,0.11924 ,0.00884 ,0.00276 ,0.00138 ,0.00587 - +,0.32161 ,0.11020 ,0.11155 ,0.00857 ,0.00269 ,0.00137 ,0.00567 - +,0.31342 ,0.10693 ,0.10464 ,0.00831 ,0.00263 ,0.00138 ,0.00549 - +,0.30562 ,0.10386 ,0.09835 ,0.00805 ,0.00259 ,0.00143 ,0.00534 - +,0.29831 ,0.10096 ,0.09267 ,0.00779 ,0.00255 ,0.00146 ,0.00520/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),K=1,19)/ - + 0.52425 ,0.19280 ,0.40404 ,0.01233 ,0.00018 ,-0.00014 ,0.00616 - +,0.49459 ,0.17940 ,0.34471 ,0.01161 ,0.00088 ,-0.00002 ,0.00618 - +,0.46872 ,0.16793 ,0.29801 ,0.01097 ,0.00120 ,-0.00005 ,0.00614 - +,0.44591 ,0.15801 ,0.26040 ,0.01037 ,0.00154 ,-0.00008 ,0.00595 - +,0.42563 ,0.14933 ,0.22975 ,0.00986 ,0.00172 ,0.00000 ,0.00575 - +,0.40732 ,0.14171 ,0.20442 ,0.00937 ,0.00182 ,0.00021 ,0.00558 - +,0.39069 ,0.13483 ,0.18300 ,0.00895 ,0.00188 ,0.00042 ,0.00540 - +,0.37559 ,0.12859 ,0.16485 ,0.00855 ,0.00191 ,0.00055 ,0.00521 - +,0.36192 ,0.12288 ,0.14956 ,0.00813 ,0.00195 ,0.00065 ,0.00500 - +,0.34904 ,0.11784 ,0.13623 ,0.00775 ,0.00199 ,0.00075 ,0.00486 - +,0.33698 ,0.11316 ,0.12472 ,0.00744 ,0.00200 ,0.00083 ,0.00469 - +,0.32592 ,0.10880 ,0.11466 ,0.00714 ,0.00200 ,0.00090 ,0.00454 - +,0.31585 ,0.10471 ,0.10577 ,0.00683 ,0.00199 ,0.00094 ,0.00442 - +,0.30610 ,0.10101 ,0.09796 ,0.00656 ,0.00198 ,0.00095 ,0.00429 - +,0.29698 ,0.09761 ,0.09105 ,0.00632 ,0.00196 ,0.00096 ,0.00416 - +,0.28868 ,0.09435 ,0.08489 ,0.00605 ,0.00189 ,0.00099 ,0.00402 - +,0.28082 ,0.09133 ,0.07937 ,0.00581 ,0.00184 ,0.00102 ,0.00389 - +,0.27315 ,0.08855 ,0.07437 ,0.00565 ,0.00182 ,0.00101 ,0.00375 - +,0.26597 ,0.08593 ,0.06986 ,0.00549 ,0.00180 ,0.00099 ,0.00362/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),K=1,19)/ - + 0.49084 ,0.17095 ,0.33698 ,0.00870 ,0.00030 ,0.00009 ,0.00462 - +,0.46030 ,0.15828 ,0.28402 ,0.00830 ,0.00067 ,0.00015 ,0.00453 - +,0.43397 ,0.14745 ,0.24289 ,0.00776 ,0.00104 ,0.00010 ,0.00449 - +,0.41093 ,0.13814 ,0.21036 ,0.00731 ,0.00125 ,0.00008 ,0.00439 - +,0.39056 ,0.13006 ,0.18409 ,0.00694 ,0.00133 ,0.00013 ,0.00424 - +,0.37231 ,0.12293 ,0.16250 ,0.00658 ,0.00145 ,0.00028 ,0.00411 - +,0.35586 ,0.11656 ,0.14451 ,0.00627 ,0.00152 ,0.00041 ,0.00396 - +,0.34101 ,0.11081 ,0.12945 ,0.00598 ,0.00150 ,0.00048 ,0.00378 - +,0.32749 ,0.10560 ,0.11664 ,0.00564 ,0.00148 ,0.00057 ,0.00368 - +,0.31467 ,0.10090 ,0.10575 ,0.00542 ,0.00147 ,0.00062 ,0.00349 - +,0.30307 ,0.09661 ,0.09635 ,0.00517 ,0.00148 ,0.00065 ,0.00335 - +,0.29243 ,0.09267 ,0.08814 ,0.00494 ,0.00147 ,0.00066 ,0.00324 - +,0.28256 ,0.08903 ,0.08090 ,0.00471 ,0.00142 ,0.00063 ,0.00314 - +,0.27321 ,0.08565 ,0.07461 ,0.00455 ,0.00141 ,0.00066 ,0.00302 - +,0.26449 ,0.08253 ,0.06907 ,0.00440 ,0.00140 ,0.00069 ,0.00291 - +,0.25632 ,0.07970 ,0.06413 ,0.00421 ,0.00140 ,0.00073 ,0.00280 - +,0.24872 ,0.07704 ,0.05974 ,0.00403 ,0.00138 ,0.00074 ,0.00270 - +,0.24162 ,0.07448 ,0.05581 ,0.00386 ,0.00132 ,0.00072 ,0.00258 - +,0.23489 ,0.07209 ,0.05227 ,0.00373 ,0.00128 ,0.00071 ,0.00248/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),K=1,19)/ - + 0.45439 ,0.15080 ,0.27984 ,0.00625 ,0.00015 ,-0.00007 ,0.00316 - +,0.42394 ,0.13868 ,0.23331 ,0.00589 ,0.00049 ,0.00000 ,0.00317 - +,0.39763 ,0.12857 ,0.19725 ,0.00557 ,0.00069 ,-0.00004 ,0.00309 - +,0.37483 ,0.11994 ,0.16926 ,0.00519 ,0.00084 ,-0.00003 ,0.00308 - +,0.35478 ,0.11245 ,0.14690 ,0.00492 ,0.00091 ,-0.00002 ,0.00296 - +,0.33704 ,0.10586 ,0.12874 ,0.00465 ,0.00102 ,0.00013 ,0.00286 - +,0.32095 ,0.10006 ,0.11375 ,0.00441 ,0.00107 ,0.00025 ,0.00275 - +,0.30627 ,0.09486 ,0.10126 ,0.00420 ,0.00104 ,0.00030 ,0.00263 - +,0.29324 ,0.09009 ,0.09072 ,0.00395 ,0.00105 ,0.00030 ,0.00250 - +,0.28104 ,0.08585 ,0.08172 ,0.00376 ,0.00108 ,0.00039 ,0.00240 - +,0.26991 ,0.08198 ,0.07403 ,0.00361 ,0.00106 ,0.00039 ,0.00228 - +,0.25971 ,0.07844 ,0.06740 ,0.00345 ,0.00102 ,0.00039 ,0.00219 - +,0.25032 ,0.07517 ,0.06165 ,0.00328 ,0.00096 ,0.00043 ,0.00213 - +,0.24142 ,0.07219 ,0.05663 ,0.00317 ,0.00096 ,0.00047 ,0.00205 - +,0.23315 ,0.06944 ,0.05223 ,0.00307 ,0.00097 ,0.00051 ,0.00197 - +,0.22545 ,0.06679 ,0.04835 ,0.00294 ,0.00096 ,0.00049 ,0.00189 - +,0.21832 ,0.06436 ,0.04490 ,0.00282 ,0.00095 ,0.00047 ,0.00182 - +,0.21169 ,0.06211 ,0.04181 ,0.00271 ,0.00091 ,0.00047 ,0.00175 - +,0.20545 ,0.06002 ,0.03904 ,0.00261 ,0.00088 ,0.00047 ,0.00169/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),K=1,19)/ - + 0.41645 ,0.13102 ,0.23012 ,0.00426 ,0.00019 ,0.00010 ,0.00229 - +,0.38627 ,0.11993 ,0.18949 ,0.00408 ,0.00038 ,0.00005 ,0.00221 - +,0.36051 ,0.11066 ,0.15899 ,0.00381 ,0.00060 ,0.00005 ,0.00220 - +,0.33819 ,0.10278 ,0.13510 ,0.00362 ,0.00068 ,0.00003 ,0.00219 - +,0.31882 ,0.09602 ,0.11628 ,0.00339 ,0.00080 ,0.00004 ,0.00208 - +,0.30168 ,0.09007 ,0.10121 ,0.00319 ,0.00081 ,0.00010 ,0.00197 - +,0.28635 ,0.08482 ,0.08881 ,0.00301 ,0.00077 ,0.00017 ,0.00189 - +,0.27245 ,0.08015 ,0.07857 ,0.00288 ,0.00074 ,0.00022 ,0.00179 - +,0.25992 ,0.07588 ,0.07002 ,0.00273 ,0.00073 ,0.00026 ,0.00173 - +,0.24815 ,0.07221 ,0.06271 ,0.00260 ,0.00074 ,0.00027 ,0.00165 - +,0.23766 ,0.06873 ,0.05654 ,0.00250 ,0.00074 ,0.00030 ,0.00158 - +,0.22813 ,0.06554 ,0.05126 ,0.00239 ,0.00074 ,0.00032 ,0.00151 - +,0.21935 ,0.06266 ,0.04668 ,0.00224 ,0.00072 ,0.00033 ,0.00145 - +,0.21107 ,0.05999 ,0.04270 ,0.00215 ,0.00070 ,0.00033 ,0.00140 - +,0.20342 ,0.05753 ,0.03921 ,0.00206 ,0.00068 ,0.00033 ,0.00136 - +,0.19647 ,0.05525 ,0.03617 ,0.00196 ,0.00066 ,0.00034 ,0.00134 - +,0.18990 ,0.05317 ,0.03347 ,0.00187 ,0.00065 ,0.00034 ,0.00130 - +,0.18349 ,0.05125 ,0.03106 ,0.00184 ,0.00063 ,0.00033 ,0.00122 - +,0.17757 ,0.04945 ,0.02892 ,0.00179 ,0.00060 ,0.00033 ,0.00115/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),K=1,19)/ - + 0.37773 ,0.11279 ,0.18811 ,0.00287 ,0.00016 ,0.00001 ,0.00161 - +,0.34853 ,0.10288 ,0.15338 ,0.00275 ,0.00029 ,0.00008 ,0.00155 - +,0.32369 ,0.09437 ,0.12716 ,0.00257 ,0.00035 ,0.00001 ,0.00151 - +,0.30207 ,0.08739 ,0.10714 ,0.00248 ,0.00045 ,0.00001 ,0.00141 - +,0.28359 ,0.08129 ,0.09151 ,0.00231 ,0.00049 ,0.00004 ,0.00139 - +,0.26735 ,0.07594 ,0.07901 ,0.00220 ,0.00052 ,0.00007 ,0.00133 - +,0.25282 ,0.07130 ,0.06887 ,0.00210 ,0.00052 ,0.00010 ,0.00125 - +,0.23978 ,0.06721 ,0.06057 ,0.00196 ,0.00051 ,0.00015 ,0.00121 - +,0.22808 ,0.06346 ,0.05366 ,0.00185 ,0.00053 ,0.00018 ,0.00120 - +,0.21757 ,0.06007 ,0.04785 ,0.00175 ,0.00045 ,0.00014 ,0.00108 - +,0.20773 ,0.05707 ,0.04294 ,0.00169 ,0.00047 ,0.00018 ,0.00105 - +,0.19869 ,0.05434 ,0.03876 ,0.00164 ,0.00048 ,0.00021 ,0.00102 - +,0.19043 ,0.05183 ,0.03515 ,0.00156 ,0.00045 ,0.00020 ,0.00093 - +,0.18282 ,0.04951 ,0.03202 ,0.00150 ,0.00047 ,0.00021 ,0.00092 - +,0.17582 ,0.04739 ,0.02930 ,0.00144 ,0.00049 ,0.00021 ,0.00092 - +,0.16937 ,0.04543 ,0.02691 ,0.00136 ,0.00044 ,0.00019 ,0.00086 - +,0.16339 ,0.04362 ,0.02481 ,0.00128 ,0.00040 ,0.00017 ,0.00081 - +,0.15776 ,0.04192 ,0.02298 ,0.00121 ,0.00039 ,0.00016 ,0.00076 - +,0.15249 ,0.04034 ,0.02134 ,0.00116 ,0.00038 ,0.00017 ,0.00073/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),K=1,19)/ - + 0.33869 ,0.09607 ,0.15239 ,0.00200 ,0.00006 ,-0.00001 ,0.00105 - +,0.31063 ,0.08699 ,0.12258 ,0.00190 ,0.00016 ,0.00001 ,0.00109 - +,0.28725 ,0.07949 ,0.10062 ,0.00171 ,0.00027 ,0.00001 ,0.00103 - +,0.26716 ,0.07312 ,0.08405 ,0.00158 ,0.00030 ,-0.00002 ,0.00097 - +,0.24962 ,0.06771 ,0.07110 ,0.00153 ,0.00033 ,0.00000 ,0.00096 - +,0.23416 ,0.06311 ,0.06088 ,0.00148 ,0.00036 ,0.00005 ,0.00092 - +,0.22062 ,0.05903 ,0.05269 ,0.00138 ,0.00040 ,0.00006 ,0.00088 - +,0.20862 ,0.05538 ,0.04601 ,0.00128 ,0.00042 ,0.00006 ,0.00084 - +,0.19801 ,0.05213 ,0.04052 ,0.00118 ,0.00039 ,0.00011 ,0.00078 - +,0.18802 ,0.04924 ,0.03593 ,0.00114 ,0.00038 ,0.00017 ,0.00076 - +,0.17905 ,0.04661 ,0.03210 ,0.00108 ,0.00037 ,0.00016 ,0.00073 - +,0.17087 ,0.04424 ,0.02883 ,0.00104 ,0.00037 ,0.00017 ,0.00070 - +,0.16331 ,0.04209 ,0.02601 ,0.00104 ,0.00038 ,0.00021 ,0.00068 - +,0.15648 ,0.04012 ,0.02360 ,0.00096 ,0.00036 ,0.00019 ,0.00064 - +,0.15022 ,0.03831 ,0.02150 ,0.00087 ,0.00034 ,0.00015 ,0.00059 - +,0.14432 ,0.03662 ,0.01970 ,0.00085 ,0.00035 ,0.00018 ,0.00057 - +,0.13886 ,0.03508 ,0.01812 ,0.00083 ,0.00035 ,0.00019 ,0.00056 - +,0.13374 ,0.03366 ,0.01671 ,0.00080 ,0.00034 ,0.00019 ,0.00056 - +,0.12901 ,0.03234 ,0.01546 ,0.00076 ,0.00033 ,0.00018 ,0.00055/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),K=1,19)/ - + 0.30079 ,0.08087 ,0.12241 ,0.00133 ,0.00000 ,-0.00003 ,0.00064 - +,0.27430 ,0.07277 ,0.09727 ,0.00125 ,0.00010 ,-0.00003 ,0.00063 - +,0.25200 ,0.06631 ,0.07905 ,0.00120 ,0.00017 ,-0.00002 ,0.00067 - +,0.23338 ,0.06076 ,0.06544 ,0.00114 ,0.00020 ,-0.00001 ,0.00062 - +,0.21734 ,0.05604 ,0.05490 ,0.00105 ,0.00021 ,-0.00001 ,0.00060 - +,0.20328 ,0.05200 ,0.04668 ,0.00095 ,0.00022 ,0.00000 ,0.00057 - +,0.19086 ,0.04845 ,0.04015 ,0.00092 ,0.00025 ,0.00005 ,0.00056 - +,0.17980 ,0.04532 ,0.03485 ,0.00088 ,0.00027 ,0.00007 ,0.00056 - +,0.16989 ,0.04259 ,0.03053 ,0.00078 ,0.00023 ,0.00004 ,0.00050 - +,0.16095 ,0.04006 ,0.02691 ,0.00076 ,0.00020 ,0.00004 ,0.00045 - +,0.15277 ,0.03782 ,0.02390 ,0.00076 ,0.00023 ,0.00004 ,0.00044 - +,0.14539 ,0.03581 ,0.02137 ,0.00074 ,0.00025 ,0.00005 ,0.00043 - +,0.13878 ,0.03401 ,0.01923 ,0.00066 ,0.00024 ,0.00006 ,0.00042 - +,0.13273 ,0.03233 ,0.01738 ,0.00063 ,0.00023 ,0.00008 ,0.00040 - +,0.12717 ,0.03078 ,0.01579 ,0.00060 ,0.00022 ,0.00010 ,0.00038 - +,0.12193 ,0.02938 ,0.01441 ,0.00054 ,0.00023 ,0.00008 ,0.00037 - +,0.11710 ,0.02809 ,0.01321 ,0.00050 ,0.00022 ,0.00007 ,0.00036 - +,0.11258 ,0.02690 ,0.01214 ,0.00047 ,0.00020 ,0.00007 ,0.00034 - +,0.10836 ,0.02580 ,0.01121 ,0.00046 ,0.00019 ,0.00008 ,0.00033/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),K=1,19)/ - + 0.26372 ,0.06722 ,0.09714 ,0.00084 ,0.00001 ,-0.00002 ,0.00039 - +,0.23916 ,0.06022 ,0.07646 ,0.00083 ,0.00006 ,-0.00007 ,0.00040 - +,0.21873 ,0.05445 ,0.06145 ,0.00082 ,0.00013 ,-0.00003 ,0.00043 - +,0.20169 ,0.04969 ,0.05031 ,0.00073 ,0.00017 ,-0.00002 ,0.00042 - +,0.18700 ,0.04567 ,0.04193 ,0.00069 ,0.00016 ,-0.00002 ,0.00041 - +,0.17412 ,0.04222 ,0.03538 ,0.00067 ,0.00015 ,-0.00002 ,0.00037 - +,0.16288 ,0.03923 ,0.03021 ,0.00064 ,0.00016 ,0.00000 ,0.00034 - +,0.15299 ,0.03658 ,0.02607 ,0.00060 ,0.00016 ,0.00002 ,0.00032 - +,0.14424 ,0.03420 ,0.02267 ,0.00055 ,0.00016 ,0.00005 ,0.00031 - +,0.13625 ,0.03212 ,0.01991 ,0.00051 ,0.00016 ,0.00005 ,0.00032 - +,0.12906 ,0.03025 ,0.01759 ,0.00048 ,0.00015 ,0.00005 ,0.00030 - +,0.12261 ,0.02857 ,0.01564 ,0.00044 ,0.00014 ,0.00005 ,0.00028 - +,0.11683 ,0.02703 ,0.01401 ,0.00037 ,0.00014 ,0.00003 ,0.00026 - +,0.11133 ,0.02564 ,0.01262 ,0.00037 ,0.00015 ,0.00004 ,0.00025 - +,0.10626 ,0.02439 ,0.01142 ,0.00038 ,0.00015 ,0.00006 ,0.00025 - +,0.10170 ,0.02323 ,0.01038 ,0.00033 ,0.00015 ,0.00005 ,0.00023 - +,0.09746 ,0.02217 ,0.00948 ,0.00030 ,0.00015 ,0.00005 ,0.00022 - +,0.09342 ,0.02118 ,0.00870 ,0.00032 ,0.00013 ,0.00006 ,0.00022 - +,0.08972 ,0.02027 ,0.00801 ,0.00033 ,0.00013 ,0.00007 ,0.00021/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),K=1,19)/ - + 0.22856 ,0.05510 ,0.07628 ,0.00056 ,0.00002 ,-0.00007 ,0.00024 - +,0.20629 ,0.04907 ,0.05921 ,0.00050 ,0.00004 ,-0.00004 ,0.00025 - +,0.18749 ,0.04422 ,0.04711 ,0.00050 ,0.00004 ,-0.00004 ,0.00026 - +,0.17194 ,0.04013 ,0.03822 ,0.00048 ,0.00007 ,-0.00003 ,0.00025 - +,0.15858 ,0.03672 ,0.03152 ,0.00049 ,0.00009 ,-0.00005 ,0.00024 - +,0.14733 ,0.03378 ,0.02640 ,0.00041 ,0.00011 ,-0.00005 ,0.00023 - +,0.13748 ,0.03125 ,0.02239 ,0.00037 ,0.00012 ,0.00001 ,0.00024 - +,0.12865 ,0.02905 ,0.01918 ,0.00035 ,0.00013 ,0.00001 ,0.00023 - +,0.12068 ,0.02711 ,0.01658 ,0.00036 ,0.00010 ,-0.00001 ,0.00020 - +,0.11378 ,0.02535 ,0.01446 ,0.00032 ,0.00012 ,0.00003 ,0.00020 - +,0.10749 ,0.02379 ,0.01273 ,0.00030 ,0.00012 ,0.00004 ,0.00019 - +,0.10181 ,0.02241 ,0.01127 ,0.00027 ,0.00012 ,0.00004 ,0.00019 - +,0.09665 ,0.02118 ,0.01004 ,0.00024 ,0.00013 ,0.00005 ,0.00021 - +,0.09192 ,0.02003 ,0.00901 ,0.00022 ,0.00012 ,0.00004 ,0.00019 - +,0.08759 ,0.01898 ,0.00812 ,0.00019 ,0.00010 ,0.00003 ,0.00016 - +,0.08354 ,0.01804 ,0.00736 ,0.00021 ,0.00010 ,0.00004 ,0.00015 - +,0.07985 ,0.01718 ,0.00669 ,0.00021 ,0.00010 ,0.00004 ,0.00015 - +,0.07647 ,0.01637 ,0.00612 ,0.00018 ,0.00011 ,0.00006 ,0.00016 - +,0.07334 ,0.01563 ,0.00561 ,0.00016 ,0.00011 ,0.00006 ,0.00016/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),K=1,19)/ - + 0.19539 ,0.04445 ,0.05908 ,0.00033 ,-0.00003 ,-0.00005 ,0.00012 - +,0.17506 ,0.03936 ,0.04520 ,0.00037 ,0.00004 ,-0.00002 ,0.00014 - +,0.15842 ,0.03523 ,0.03556 ,0.00031 ,0.00005 ,-0.00004 ,0.00017 - +,0.14483 ,0.03184 ,0.02856 ,0.00027 ,0.00008 ,-0.00002 ,0.00020 - +,0.13304 ,0.02901 ,0.02335 ,0.00026 ,0.00009 ,-0.00003 ,0.00018 - +,0.12296 ,0.02659 ,0.01939 ,0.00024 ,0.00009 ,-0.00002 ,0.00015 - +,0.11424 ,0.02449 ,0.01631 ,0.00021 ,0.00009 ,-0.00002 ,0.00015 - +,0.10653 ,0.02267 ,0.01387 ,0.00020 ,0.00009 ,0.00000 ,0.00016 - +,0.09980 ,0.02110 ,0.01193 ,0.00016 ,0.00009 ,0.00002 ,0.00016 - +,0.09375 ,0.01966 ,0.01036 ,0.00014 ,0.00010 ,0.00003 ,0.00014 - +,0.08820 ,0.01840 ,0.00906 ,0.00015 ,0.00010 ,0.00005 ,0.00013 - +,0.08323 ,0.01728 ,0.00798 ,0.00016 ,0.00010 ,0.00006 ,0.00014 - +,0.07882 ,0.01627 ,0.00708 ,0.00014 ,0.00010 ,0.00005 ,0.00014 - +,0.07470 ,0.01536 ,0.00632 ,0.00013 ,0.00009 ,0.00004 ,0.00013 - +,0.07094 ,0.01454 ,0.00568 ,0.00013 ,0.00008 ,0.00003 ,0.00012 - +,0.06755 ,0.01377 ,0.00513 ,0.00013 ,0.00008 ,0.00004 ,0.00012 - +,0.06445 ,0.01308 ,0.00465 ,0.00012 ,0.00008 ,0.00004 ,0.00012 - +,0.06160 ,0.01243 ,0.00424 ,0.00010 ,0.00008 ,0.00004 ,0.00012 - +,0.05896 ,0.01185 ,0.00388 ,0.00010 ,0.00008 ,0.00004 ,0.00012/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),K=1,19)/ - + 0.16502 ,0.03545 ,0.04523 ,0.00023 ,-0.00005 ,-0.00008 ,0.00004 - +,0.14705 ,0.03119 ,0.03417 ,0.00021 ,-0.00001 ,-0.00009 ,0.00006 - +,0.13233 ,0.02778 ,0.02658 ,0.00022 ,0.00001 ,-0.00008 ,0.00009 - +,0.12029 ,0.02498 ,0.02116 ,0.00018 ,0.00004 ,-0.00005 ,0.00009 - +,0.11020 ,0.02267 ,0.01716 ,0.00015 ,0.00003 ,-0.00006 ,0.00009 - +,0.10130 ,0.02069 ,0.01415 ,0.00017 ,0.00002 ,-0.00005 ,0.00007 - +,0.09368 ,0.01899 ,0.01183 ,0.00017 ,0.00005 ,-0.00003 ,0.00007 - +,0.08719 ,0.01752 ,0.01000 ,0.00013 ,0.00005 ,-0.00001 ,0.00008 - +,0.08135 ,0.01624 ,0.00855 ,0.00011 ,0.00004 ,0.00000 ,0.00009 - +,0.07618 ,0.01511 ,0.00739 ,0.00010 ,0.00006 ,0.00001 ,0.00009 - +,0.07151 ,0.01410 ,0.00643 ,0.00010 ,0.00006 ,0.00001 ,0.00008 - +,0.06731 ,0.01321 ,0.00564 ,0.00010 ,0.00005 ,0.00002 ,0.00007 - +,0.06349 ,0.01242 ,0.00498 ,0.00011 ,0.00005 ,0.00002 ,0.00007 - +,0.06006 ,0.01169 ,0.00443 ,0.00010 ,0.00005 ,0.00002 ,0.00007 - +,0.05697 ,0.01103 ,0.00396 ,0.00009 ,0.00004 ,0.00002 ,0.00006 - +,0.05412 ,0.01042 ,0.00357 ,0.00008 ,0.00005 ,0.00002 ,0.00006 - +,0.05152 ,0.00987 ,0.00322 ,0.00007 ,0.00005 ,0.00002 ,0.00006 - +,0.04909 ,0.00937 ,0.00293 ,0.00008 ,0.00004 ,0.00002 ,0.00006 - +,0.04685 ,0.00892 ,0.00267 ,0.00008 ,0.00004 ,0.00001 ,0.00006/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),K=1,19)/ - + 0.13671 ,0.02760 ,0.03388 ,0.00016 ,-0.00004 ,-0.00004 ,0.00002 - +,0.12112 ,0.02418 ,0.02535 ,0.00014 ,-0.00002 ,-0.00005 ,0.00003 - +,0.10867 ,0.02144 ,0.01953 ,0.00012 ,0.00002 ,-0.00001 ,0.00005 - +,0.09831 ,0.01920 ,0.01541 ,0.00012 ,0.00001 ,-0.00002 ,0.00004 - +,0.08960 ,0.01735 ,0.01240 ,0.00010 ,0.00001 ,-0.00003 ,0.00003 - +,0.08215 ,0.01578 ,0.01014 ,0.00009 ,0.00002 ,-0.00002 ,0.00005 - +,0.07574 ,0.01444 ,0.00842 ,0.00009 ,0.00002 ,-0.00001 ,0.00005 - +,0.07016 ,0.01329 ,0.00708 ,0.00008 ,0.00002 ,0.00000 ,0.00005 - +,0.06524 ,0.01229 ,0.00602 ,0.00008 ,0.00003 ,0.00001 ,0.00007 - +,0.06082 ,0.01141 ,0.00517 ,0.00008 ,0.00002 ,0.00000 ,0.00005 - +,0.05697 ,0.01062 ,0.00448 ,0.00007 ,0.00002 ,0.00000 ,0.00004 - +,0.05352 ,0.00992 ,0.00391 ,0.00006 ,0.00002 ,0.00000 ,0.00003 - +,0.05039 ,0.00929 ,0.00344 ,0.00006 ,0.00002 ,0.00000 ,0.00003 - +,0.04758 ,0.00873 ,0.00305 ,0.00005 ,0.00002 ,0.00001 ,0.00004 - +,0.04504 ,0.00822 ,0.00272 ,0.00004 ,0.00003 ,0.00001 ,0.00004 - +,0.04265 ,0.00775 ,0.00243 ,0.00005 ,0.00002 ,0.00000 ,0.00003 - +,0.04048 ,0.00733 ,0.00219 ,0.00005 ,0.00001 ,0.00000 ,0.00002 - +,0.03850 ,0.00694 ,0.00199 ,0.00005 ,0.00002 ,0.00000 ,0.00003 - +,0.03668 ,0.00659 ,0.00181 ,0.00005 ,0.00002 ,0.00000 ,0.00003/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),K=1,19)/ - + 0.08937 ,0.01579 ,0.01800 ,0.00005 ,-0.00001 ,-0.00001 ,0.00001 - +,0.07830 ,0.01365 ,0.01309 ,0.00002 ,0.00001 ,-0.00001 ,0.00001 - +,0.06932 ,0.01197 ,0.00983 ,0.00002 ,0.00001 ,0.00000 ,0.00002 - +,0.06200 ,0.01061 ,0.00759 ,0.00002 ,0.00001 ,-0.00001 ,0.00001 - +,0.05593 ,0.00949 ,0.00599 ,0.00003 ,0.00001 ,0.00000 ,0.00002 - +,0.05083 ,0.00855 ,0.00482 ,0.00004 ,0.00002 ,0.00000 ,0.00003 - +,0.04648 ,0.00776 ,0.00393 ,0.00004 ,0.00002 ,0.00001 ,0.00003 - +,0.04271 ,0.00709 ,0.00325 ,0.00003 ,0.00001 ,0.00000 ,0.00003 - +,0.03936 ,0.00650 ,0.00273 ,0.00004 ,0.00001 ,0.00001 ,0.00002 - +,0.03655 ,0.00599 ,0.00231 ,0.00002 ,0.00002 ,0.00000 ,0.00002 - +,0.03394 ,0.00553 ,0.00198 ,0.00003 ,0.00001 ,0.00000 ,0.00002 - +,0.03164 ,0.00514 ,0.00171 ,0.00003 ,0.00001 ,0.00000 ,0.00002 - +,0.02962 ,0.00479 ,0.00149 ,0.00003 ,0.00001 ,0.00000 ,0.00002 - +,0.02780 ,0.00447 ,0.00131 ,0.00002 ,0.00002 ,0.00001 ,0.00002 - +,0.02617 ,0.00419 ,0.00116 ,0.00002 ,0.00002 ,0.00001 ,0.00002 - +,0.02468 ,0.00393 ,0.00103 ,0.00002 ,0.00002 ,0.00001 ,0.00002 - +,0.02332 ,0.00370 ,0.00092 ,0.00001 ,0.00001 ,0.00001 ,0.00002 - +,0.02206 ,0.00349 ,0.00083 ,0.00002 ,0.00001 ,0.00000 ,0.00001 - +,0.02092 ,0.00329 ,0.00075 ,0.00002 ,0.00001 ,0.00000 ,0.00001/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),K=1,19)/ - + 0.05373 ,0.00822 ,0.00872 ,0.00002 ,-0.00001 ,-0.00001 ,-0.00001 - +,0.04638 ,0.00700 ,0.00615 ,0.00001 ,-0.00001 ,-0.00002 ,-0.00001 - +,0.04049 ,0.00606 ,0.00450 ,0.00003 ,0.00000 ,-0.00001 ,0.00001 - +,0.03587 ,0.00531 ,0.00339 ,0.00002 ,0.00001 ,0.00000 ,0.00001 - +,0.03205 ,0.00470 ,0.00262 ,0.00001 ,0.00000 ,-0.00001 ,0.00001 - +,0.02885 ,0.00420 ,0.00206 ,0.00001 ,0.00001 ,-0.00001 ,0.00001 - +,0.02613 ,0.00377 ,0.00166 ,0.00001 ,0.00001 ,-0.00001 ,0.00001 - +,0.02380 ,0.00342 ,0.00135 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02183 ,0.00311 ,0.00112 ,0.00000 ,0.00001 ,0.00000 ,0.00001 - +,0.02005 ,0.00284 ,0.00093 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01851 ,0.00261 ,0.00079 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01716 ,0.00241 ,0.00068 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01597 ,0.00223 ,0.00058 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01488 ,0.00207 ,0.00051 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01390 ,0.00192 ,0.00044 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01304 ,0.00180 ,0.00039 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01226 ,0.00168 ,0.00035 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01154 ,0.00158 ,0.00031 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01088 ,0.00148 ,0.00028 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),K=1,19)/ - + 0.02872 ,0.00372 ,0.00368 ,0.00001 ,0.00000 ,-0.00001 ,-0.00001 - +,0.02444 ,0.00312 ,0.00252 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.02108 ,0.00267 ,0.00179 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01842 ,0.00231 ,0.00132 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01626 ,0.00202 ,0.00099 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01447 ,0.00179 ,0.00077 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01297 ,0.00159 ,0.00060 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01171 ,0.00143 ,0.00048 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01063 ,0.00129 ,0.00039 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00969 ,0.00117 ,0.00032 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00888 ,0.00106 ,0.00027 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00817 ,0.00097 ,0.00023 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00755 ,0.00090 ,0.00020 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00699 ,0.00082 ,0.00017 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00648 ,0.00076 ,0.00015 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00604 ,0.00071 ,0.00013 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00564 ,0.00066 ,0.00011 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00529 ,0.00061 ,0.00010 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00497 ,0.00057 ,0.00009 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),K=1,19)/ - + 0.01307 ,0.00139 ,0.00129 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01090 ,0.00115 ,0.00085 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00925 ,0.00096 ,0.00058 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00796 ,0.00082 ,0.00041 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00693 ,0.00071 ,0.00030 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00609 ,0.00062 ,0.00023 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00540 ,0.00054 ,0.00018 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00482 ,0.00048 ,0.00014 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00433 ,0.00043 ,0.00011 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00390 ,0.00039 ,0.00009 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00354 ,0.00035 ,0.00007 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00323 ,0.00032 ,0.00006 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00296 ,0.00029 ,0.00005 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00272 ,0.00026 ,0.00004 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00251 ,0.00024 ,0.00004 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00232 ,0.00022 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00215 ,0.00021 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00200 ,0.00019 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00186 ,0.00018 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),K=1,19)/ - + 0.00101 ,0.00006 ,0.00005 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00080 ,0.00005 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00065 ,0.00004 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00054 ,0.00003 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00045 ,0.00003 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00038 ,0.00002 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00033 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00028 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00025 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00022 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00019 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00017 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00015 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00014 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00012 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00011 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00010 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00009 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00008 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,4,5,0,0,5/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C -C - XSAVE=X -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(36,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M) -C 1=UV 2=DV 3=GLUE 4=(UBAR+DBAR)/2 5=CBAR 7=BBAR 6=SBAR - DO 25 I=1,7 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=1,6 - DO 30 K=1,19 - 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) - 50 FORMAT(7F10.5) - DO 40 I=1,7 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,7 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) -C... THIS SEA IS (UBAR+DBAR)/2 - SEA=G(4) - STR=G(6) - CHM=G(5) - GL =G(3) - BOT=G(7) -C - X=XSAVE -C - RETURN - END diff --git a/PDF/spdf/strkb03.F b/PDF/spdf/strkb03.F deleted file mode 100644 index 862265cfb2a..00000000000 --- a/PDF/spdf/strkb03.F +++ /dev/null @@ -1,1015 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:37 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:02 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C -C----------------------------------------------------------------------- - SUBROUTINE STRKB03(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C -C :::::::::::: MRS (B160) sea=ubar=dbar=2sbar at Q0**2 -C -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(7,NX,19),G(7),XX(NX),N0(7) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),K=1,19)/ - + 0.01663 ,0.00122 ,3.57392 ,0.25920 ,0.03063 ,0.00000 ,0.14581 - +,0.01674 ,0.00136 ,8.58057 ,0.38112 ,0.15275 ,0.00000 ,0.26793 - +,0.01686 ,0.00150 ,14.99615 ,0.54103 ,0.31282 ,0.00000 ,0.42801 - +,0.01698 ,0.00163 ,22.91016 ,0.73857 ,0.51052 ,0.00000 ,0.62572 - +,0.01710 ,0.00175 ,32.13240 ,0.97105 ,0.74314 ,0.00000 ,0.85835 - +,0.01722 ,0.00187 ,42.52112 ,1.23619 ,1.00841 ,0.09998 ,1.12363 - +,0.01735 ,0.00199 ,53.99403 ,1.53314 ,1.30549 ,0.40594 ,1.42072 - +,0.01748 ,0.00210 ,66.46404 ,1.86024 ,1.63270 ,0.74293 ,1.74795 - +,0.01760 ,0.00221 ,79.85867 ,2.21601 ,1.98858 ,1.10497 ,2.10384 - +,0.01773 ,0.00232 ,94.12425 ,2.59935 ,2.37202 ,1.49566 ,2.48729 - +,0.01785 ,0.00243,109.22322 ,3.00955 ,2.78232 ,1.91228 ,2.89761 - +,0.01798 ,0.00253,124.77539 ,3.43846 ,3.21132 ,2.34738 ,3.32662 - +,0.01811 ,0.00263,141.02074 ,3.89106 ,3.66401 ,2.80583 ,3.77933 - +,0.01823 ,0.00273,157.98694 ,4.36813 ,4.14116 ,3.28843 ,4.25649 - +,0.01835 ,0.00283,175.09639 ,4.85636 ,4.62947 ,3.78193 ,4.74481 - +,0.01847 ,0.00293,192.90254 ,5.36832 ,5.14151 ,4.29892 ,5.25686 - +,0.01860 ,0.00302,210.93199 ,5.89294 ,5.66620 ,4.82834 ,5.78156 - +,0.01872 ,0.00311,229.41586 ,6.43550 ,6.20883 ,5.37549 ,6.32420 - +,0.01884 ,0.00321,248.11922 ,6.99035 ,6.76374 ,5.93475 ,6.87913/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),K=1,19)/ - + 0.01987 ,0.00189 ,3.48030 ,0.25745 ,0.02834 ,0.00000 ,0.14346 - +,0.02010 ,0.00210 ,7.88602 ,0.36736 ,0.13840 ,0.00000 ,0.25350 - +,0.02033 ,0.00230 ,13.32102 ,0.50709 ,0.27827 ,0.00000 ,0.39337 - +,0.02055 ,0.00249 ,19.83614 ,0.67547 ,0.44678 ,0.00000 ,0.56187 - +,0.02077 ,0.00268 ,27.25333 ,0.86962 ,0.64104 ,0.00000 ,0.75613 - +,0.02098 ,0.00285 ,35.44545 ,1.08725 ,0.85878 ,0.08174 ,0.97387 - +,0.02119 ,0.00302 ,44.33810 ,1.32735 ,1.09898 ,0.32976 ,1.21407 - +,0.02140 ,0.00319 ,53.85724 ,1.58831 ,1.36004 ,0.59934 ,1.47512 - +,0.02160 ,0.00335 ,63.94284 ,1.86875 ,1.64057 ,0.88537 ,1.75566 - +,0.02180 ,0.00351 ,74.55135 ,2.16766 ,1.93956 ,1.19071 ,2.05465 - +,0.02199 ,0.00366 ,85.65233 ,2.48432 ,2.25630 ,1.51303 ,2.37139 - +,0.02219 ,0.00381 ,96.96152 ,2.81238 ,2.58444 ,1.84653 ,2.69953 - +,0.02238 ,0.00396,108.66104 ,3.15561 ,2.92775 ,2.19490 ,3.04284 - +,0.02256 ,0.00410,120.77106 ,3.51456 ,3.28676 ,2.55871 ,3.40186 - +,0.02275 ,0.00424,132.87047 ,3.87911 ,3.65138 ,2.92790 ,3.76648 - +,0.02292 ,0.00438,145.36684 ,4.25876 ,4.03110 ,3.31196 ,4.14620 - +,0.02310 ,0.00451,157.91885 ,4.64518 ,4.41758 ,3.70261 ,4.53268 - +,0.02328 ,0.00464,170.69612 ,5.04235 ,4.81481 ,4.10381 ,4.92991 - +,0.02345 ,0.00477,183.53322 ,5.44608 ,5.21859 ,4.51141 ,5.33369/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),K=1,19)/ - + 0.02361 ,0.00293 ,3.38893 ,0.25555 ,0.02606 ,0.00000 ,0.14110 - +,0.02401 ,0.00324 ,7.24667 ,0.35402 ,0.12467 ,0.00000 ,0.23968 - +,0.02439 ,0.00354 ,11.83053 ,0.47544 ,0.24621 ,0.00000 ,0.36119 - +,0.02476 ,0.00382 ,17.17000 ,0.61819 ,0.38908 ,0.00000 ,0.50403 - +,0.02510 ,0.00409 ,23.10793 ,0.77949 ,0.55048 ,0.00000 ,0.66542 - +,0.02543 ,0.00435 ,29.53680 ,0.95722 ,0.72831 ,0.06651 ,0.84323 - +,0.02576 ,0.00460 ,36.39516 ,1.15039 ,0.92156 ,0.26666 ,1.03647 - +,0.02607 ,0.00484 ,43.62386 ,1.35756 ,1.12882 ,0.48134 ,1.24371 - +,0.02638 ,0.00507 ,51.17686 ,1.57755 ,1.34888 ,0.70632 ,1.46376 - +,0.02667 ,0.00530 ,59.02162 ,1.80946 ,1.58088 ,0.94388 ,1.69574 - +,0.02696 ,0.00552 ,67.13625 ,2.05271 ,1.82420 ,1.19212 ,1.93905 - +,0.02724 ,0.00573 ,75.31053 ,2.30239 ,2.07395 ,1.44660 ,2.18878 - +,0.02752 ,0.00594 ,83.68399 ,2.56139 ,2.33302 ,1.71012 ,2.44784 - +,0.02778 ,0.00615 ,92.27327 ,2.83009 ,2.60179 ,1.98311 ,2.71660 - +,0.02805 ,0.00635,100.77278 ,3.10090 ,2.87267 ,2.25801 ,2.98746 - +,0.02830 ,0.00654,109.48404 ,3.38099 ,3.15281 ,2.54198 ,3.26759 - +,0.02856 ,0.00674,118.16200 ,3.66414 ,3.43602 ,2.82884 ,3.55079 - +,0.02880 ,0.00692,126.93192 ,3.95334 ,3.72528 ,3.12161 ,3.84004 - +,0.02905 ,0.00711,135.67859 ,4.24553 ,4.01753 ,3.41721 ,4.13228/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),K=1,19)/ - + 0.02605 ,0.00378 ,3.33642 ,0.25435 ,0.02473 ,0.00000 ,0.13971 - +,0.02657 ,0.00418 ,6.89617 ,0.34640 ,0.11692 ,0.00000 ,0.23186 - +,0.02706 ,0.00455 ,11.03525 ,0.45790 ,0.22854 ,0.00000 ,0.34344 - +,0.02753 ,0.00491 ,15.77628 ,0.58713 ,0.35789 ,0.00000 ,0.47275 - +,0.02797 ,0.00524 ,20.97647 ,0.73146 ,0.50232 ,0.00000 ,0.61715 - +,0.02839 ,0.00556 ,26.54066 ,0.88890 ,0.65986 ,0.05880 ,0.77466 - +,0.02879 ,0.00587 ,32.41582 ,1.05853 ,0.82958 ,0.23493 ,0.94435 - +,0.02918 ,0.00617 ,38.55161 ,1.23906 ,1.01019 ,0.42239 ,1.12494 - +,0.02956 ,0.00646 ,44.90993 ,1.42940 ,1.20062 ,0.61741 ,1.31534 - +,0.02993 ,0.00674 ,51.46445 ,1.62879 ,1.40009 ,0.82205 ,1.51478 - +,0.03029 ,0.00702 ,58.19797 ,1.83670 ,1.60808 ,1.03460 ,1.72275 - +,0.03064 ,0.00728 ,64.93549 ,2.04895 ,1.82039 ,1.25131 ,1.93504 - +,0.03098 ,0.00754 ,71.79694 ,2.26801 ,2.03953 ,1.47458 ,2.15415 - +,0.03130 ,0.00779 ,78.79744 ,2.49422 ,2.26581 ,1.70478 ,2.38042 - +,0.03163 ,0.00804 ,85.68484 ,2.72117 ,2.49282 ,1.93553 ,2.60741 - +,0.03194 ,0.00828 ,92.71149 ,2.95494 ,2.72666 ,2.17291 ,2.84122 - +,0.03225 ,0.00851 ,99.67647 ,3.19031 ,2.96209 ,2.41175 ,3.07663 - +,0.03255 ,0.00874,106.68533 ,3.42984 ,3.20168 ,2.65458 ,3.31620 - +,0.03285 ,0.00897,113.64450 ,3.67096 ,3.44287 ,2.89888 ,3.55737/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),K=1,19)/ - + 0.02790 ,0.00454 ,3.29953 ,0.25345 ,0.02379 ,0.00000 ,0.13873 - +,0.02852 ,0.00501 ,6.65725 ,0.34106 ,0.11155 ,0.00000 ,0.22643 - +,0.02910 ,0.00544 ,10.50232 ,0.44586 ,0.21647 ,0.00000 ,0.33130 - +,0.02964 ,0.00586 ,14.85428 ,0.56611 ,0.33684 ,0.00000 ,0.45163 - +,0.03016 ,0.00625 ,19.58089 ,0.69930 ,0.47013 ,0.00000 ,0.58488 - +,0.03065 ,0.00663 ,24.59604 ,0.84357 ,0.61450 ,0.05381 ,0.72921 - +,0.03112 ,0.00699 ,29.85248 ,0.99805 ,0.76908 ,0.21447 ,0.88375 - +,0.03158 ,0.00734 ,35.30618 ,1.16154 ,0.93266 ,0.38453 ,1.04730 - +,0.03202 ,0.00767 ,40.92424 ,1.33308 ,1.10429 ,0.56054 ,1.21889 - +,0.03244 ,0.00800 ,46.68446 ,1.51195 ,1.28324 ,0.74438 ,1.39781 - +,0.03286 ,0.00832 ,52.57297 ,1.69769 ,1.46906 ,0.93454 ,1.58360 - +,0.03326 ,0.00863 ,58.43634 ,1.88656 ,1.65801 ,1.12766 ,1.77252 - +,0.03365 ,0.00892 ,64.38243 ,2.08080 ,1.85233 ,1.32590 ,1.96681 - +,0.03403 ,0.00922 ,70.42566 ,2.28072 ,2.05232 ,1.52961 ,2.16677 - +,0.03440 ,0.00950 ,76.34630 ,2.48063 ,2.25230 ,1.73313 ,2.36672 - +,0.03476 ,0.00978 ,82.36696 ,2.68595 ,2.45769 ,1.94190 ,2.57209 - +,0.03512 ,0.01005 ,88.31326 ,2.89209 ,2.66391 ,2.15133 ,2.77827 - +,0.03546 ,0.01032 ,94.27832 ,3.10131 ,2.87320 ,2.36370 ,2.98753 - +,0.03580 ,0.01058,100.18242 ,3.31139 ,3.08334 ,2.57680 ,3.19765/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),K=1,19)/ - + 0.02940 ,0.00523 ,3.27111 ,0.25273 ,0.02307 ,0.00000 ,0.13796 - +,0.03010 ,0.00576 ,6.47723 ,0.33696 ,0.10745 ,0.00000 ,0.22228 - +,0.03076 ,0.00625 ,10.10577 ,0.43674 ,0.20736 ,0.00000 ,0.32213 - +,0.03137 ,0.00672 ,14.17469 ,0.55036 ,0.32110 ,0.00000 ,0.43582 - +,0.03195 ,0.00717 ,18.56009 ,0.67539 ,0.44624 ,0.00000 ,0.56091 - +,0.03250 ,0.00759 ,23.18274 ,0.81009 ,0.58104 ,0.05020 ,0.69568 - +,0.03303 ,0.00800 ,27.99995 ,0.95363 ,0.72469 ,0.19968 ,0.83928 - +,0.03355 ,0.00839 ,32.97229 ,1.10490 ,0.87606 ,0.35724 ,0.99060 - +,0.03404 ,0.00877 ,38.07068 ,1.26299 ,1.03424 ,0.51966 ,1.14875 - +,0.03451 ,0.00913 ,43.27600 ,1.42727 ,1.19861 ,0.68872 ,1.31308 - +,0.03497 ,0.00949 ,48.57681 ,1.59730 ,1.36873 ,0.86300 ,1.48315 - +,0.03542 ,0.00984 ,53.83475 ,1.76967 ,1.54119 ,1.03946 ,1.65558 - +,0.03586 ,0.01017 ,59.14935 ,1.94646 ,1.71805 ,1.22010 ,1.83240 - +,0.03628 ,0.01050 ,64.53444 ,2.12793 ,1.89961 ,1.40522 ,2.01392 - +,0.03670 ,0.01082 ,69.79282 ,2.30894 ,2.08070 ,1.58971 ,2.19498 - +,0.03710 ,0.01113 ,75.12625 ,2.49443 ,2.26626 ,1.77851 ,2.38050 - +,0.03749 ,0.01143 ,80.37886 ,2.68024 ,2.45214 ,1.96749 ,2.56636 - +,0.03787 ,0.01173 ,85.63525 ,2.86843 ,2.64041 ,2.15872 ,2.75459 - +,0.03825 ,0.01202 ,90.82469 ,3.05702 ,2.82907 ,2.35021 ,2.94322/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),K=1,19)/ - + 0.03448 ,0.00810 ,3.18361 ,0.25034 ,0.02083 ,0.00000 ,0.13557 - +,0.03548 ,0.00888 ,5.94530 ,0.32442 ,0.09509 ,0.00000 ,0.20974 - +,0.03641 ,0.00961 ,8.95976 ,0.40959 ,0.18043 ,0.00000 ,0.29500 - +,0.03728 ,0.01030 ,12.24325 ,0.50428 ,0.27529 ,0.00000 ,0.38977 - +,0.03810 ,0.01094 ,15.69778 ,0.60645 ,0.37760 ,0.00000 ,0.49201 - +,0.03888 ,0.01156 ,19.26447 ,0.71467 ,0.48596 ,0.04023 ,0.60030 - +,0.03962 ,0.01215 ,22.91406 ,0.82829 ,0.59972 ,0.15915 ,0.71399 - +,0.04034 ,0.01271 ,26.62021 ,0.94645 ,0.71801 ,0.28284 ,0.83221 - +,0.04103 ,0.01326 ,30.36467 ,1.06845 ,0.84014 ,0.40874 ,0.95427 - +,0.04169 ,0.01378 ,34.13672 ,1.19382 ,0.96564 ,0.53837 ,1.07971 - +,0.04233 ,0.01429 ,37.93097 ,1.32228 ,1.09422 ,0.67063 ,1.20823 - +,0.04296 ,0.01478 ,41.64873 ,1.45128 ,1.22333 ,0.80327 ,1.33728 - +,0.04356 ,0.01526 ,45.36708 ,1.58241 ,1.35458 ,0.93785 ,1.46847 - +,0.04415 ,0.01572 ,49.09877 ,1.71594 ,1.48822 ,1.07463 ,1.60205 - +,0.04472 ,0.01617 ,52.70354 ,1.84805 ,1.62045 ,1.20986 ,1.73422 - +,0.04527 ,0.01661 ,56.33026 ,1.98248 ,1.75498 ,1.34724 ,1.86870 - +,0.04581 ,0.01703 ,59.86920 ,2.11619 ,1.88879 ,1.48378 ,2.00245 - +,0.04634 ,0.01745 ,63.38312 ,2.25073 ,2.02344 ,1.62104 ,2.13705 - +,0.04685 ,0.01785 ,66.82402 ,2.38470 ,2.15751 ,1.75760 ,2.27106/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),K=1,19)/ - + 0.04031 ,0.01255 ,3.09649 ,0.24771 ,0.01861 ,0.00000 ,0.13313 - +,0.04169 ,0.01370 ,5.44927 ,0.31214 ,0.08330 ,0.00000 ,0.19770 - +,0.04298 ,0.01477 ,7.92682 ,0.38406 ,0.15548 ,0.00000 ,0.26975 - +,0.04419 ,0.01577 ,10.54670 ,0.46215 ,0.23380 ,0.00000 ,0.34795 - +,0.04533 ,0.01670 ,13.23552 ,0.54474 ,0.31662 ,0.00000 ,0.43066 - +,0.04640 ,0.01759 ,15.95269 ,0.63077 ,0.40286 ,0.03194 ,0.51679 - +,0.04743 ,0.01843 ,18.68077 ,0.71974 ,0.49203 ,0.12566 ,0.60586 - +,0.04842 ,0.01924 ,21.40430 ,0.81102 ,0.58351 ,0.22185 ,0.69723 - +,0.04937 ,0.02001 ,24.11385 ,0.90411 ,0.67679 ,0.31851 ,0.79042 - +,0.05028 ,0.02076 ,26.80518 ,0.99871 ,0.77158 ,0.41692 ,0.88511 - +,0.05116 ,0.02148 ,29.47769 ,1.09463 ,0.86768 ,0.51628 ,0.98112 - +,0.05202 ,0.02217 ,32.06215 ,1.19002 ,0.96324 ,0.61495 ,1.07659 - +,0.05285 ,0.02284 ,34.61855 ,1.28611 ,1.05951 ,0.71416 ,1.17277 - +,0.05365 ,0.02349 ,37.15828 ,1.38314 ,1.15672 ,0.81414 ,1.26988 - +,0.05443 ,0.02412 ,39.58313 ,1.47835 ,1.25209 ,0.91215 ,1.36517 - +,0.05519 ,0.02473 ,42.00209 ,1.57451 ,1.34842 ,1.01100 ,1.46141 - +,0.05592 ,0.02532 ,44.33899 ,1.66946 ,1.44352 ,1.10851 ,1.55643 - +,0.05664 ,0.02590 ,46.64023 ,1.76436 ,1.53858 ,1.20586 ,1.65141 - +,0.05734 ,0.02646 ,48.87379 ,1.85823 ,1.63260 ,1.30209 ,1.74535/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),K=1,19)/ - + 0.04426 ,0.01622 ,3.04502 ,0.24605 ,0.01732 ,0.00000 ,0.13168 - +,0.04593 ,0.01766 ,5.17238 ,0.30506 ,0.07668 ,0.00000 ,0.19087 - +,0.04749 ,0.01898 ,7.36566 ,0.36981 ,0.14174 ,0.00000 ,0.25577 - +,0.04894 ,0.02022 ,9.64400 ,0.43912 ,0.21136 ,0.00000 ,0.32524 - +,0.05031 ,0.02137 ,11.94734 ,0.51159 ,0.28411 ,0.00000 ,0.39786 - +,0.05161 ,0.02246 ,14.24476 ,0.58630 ,0.35910 ,0.02775 ,0.47271 - +,0.05285 ,0.02350 ,16.52466 ,0.66289 ,0.43595 ,0.10882 ,0.54943 - +,0.05404 ,0.02449 ,18.77705 ,0.74082 ,0.51414 ,0.19135 ,0.62749 - +,0.05518 ,0.02544 ,20.99661 ,0.81972 ,0.59329 ,0.27365 ,0.70651 - +,0.05628 ,0.02635 ,23.18216 ,0.89935 ,0.67316 ,0.35688 ,0.78626 - +,0.05734 ,0.02722 ,25.33513 ,0.97958 ,0.75363 ,0.44038 ,0.86661 - +,0.05837 ,0.02806 ,27.40013 ,1.05889 ,0.83317 ,0.52281 ,0.94604 - +,0.05936 ,0.02887 ,29.42859 ,1.13836 ,0.91286 ,0.60523 ,1.02561 - +,0.06032 ,0.02966 ,31.43127 ,1.21820 ,0.99292 ,0.68786 ,1.10556 - +,0.06126 ,0.03042 ,33.32909 ,1.29613 ,1.07106 ,0.76846 ,1.18360 - +,0.06216 ,0.03115 ,35.21237 ,1.37450 ,1.14964 ,0.84938 ,1.26207 - +,0.06305 ,0.03187 ,37.02016 ,1.45152 ,1.22687 ,0.92884 ,1.33920 - +,0.06390 ,0.03256 ,38.79109 ,1.52819 ,1.30375 ,1.00785 ,1.41597 - +,0.06474 ,0.03323 ,40.50018 ,1.60372 ,1.37947 ,1.08562 ,1.49159/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),K=1,19)/ - + 0.04747 ,0.01946 ,3.00792 ,0.24480 ,0.01642 ,0.00000 ,0.13061 - +,0.04938 ,0.02114 ,4.98036 ,0.30007 ,0.07209 ,0.00000 ,0.18609 - +,0.05116 ,0.02268 ,6.98315 ,0.35995 ,0.13236 ,0.00000 ,0.24618 - +,0.05283 ,0.02411 ,9.03669 ,0.42342 ,0.19619 ,0.00000 ,0.30984 - +,0.05439 ,0.02545 ,11.09001 ,0.48922 ,0.26233 ,0.00000 ,0.37581 - +,0.05587 ,0.02671 ,13.11840 ,0.55656 ,0.33001 ,0.02503 ,0.44332 - +,0.05729 ,0.02790 ,15.11408 ,0.62514 ,0.39890 ,0.09792 ,0.51206 - +,0.05865 ,0.02904 ,17.07043 ,0.69451 ,0.46857 ,0.17170 ,0.58159 - +,0.05995 ,0.03013 ,18.98463 ,0.76436 ,0.53872 ,0.24485 ,0.65159 - +,0.06121 ,0.03117 ,20.85732 ,0.83450 ,0.60916 ,0.31847 ,0.72188 - +,0.06242 ,0.03217 ,22.69118 ,0.90486 ,0.67979 ,0.39198 ,0.79238 - +,0.06359 ,0.03313 ,24.43915 ,0.97409 ,0.74931 ,0.46423 ,0.86175 - +,0.06472 ,0.03406 ,26.14742 ,1.04319 ,0.81867 ,0.53618 ,0.93098 - +,0.06581 ,0.03496 ,27.82605 ,1.11235 ,0.88810 ,0.60805 ,1.00028 - +,0.06688 ,0.03582 ,29.40765 ,1.17960 ,0.95560 ,0.67788 ,1.06765 - +,0.06791 ,0.03665 ,30.97102 ,1.24701 ,1.02326 ,0.74776 ,1.13519 - +,0.06891 ,0.03746 ,32.46445 ,1.31304 ,1.08954 ,0.81615 ,1.20134 - +,0.06989 ,0.03825 ,33.92172 ,1.37856 ,1.15531 ,0.88395 ,1.26700 - +,0.07084 ,0.03901 ,35.32195 ,1.44291 ,1.21990 ,0.95047 ,1.33146/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),K=1,19)/ - + 0.05065 ,0.02241 ,2.97825 ,0.24380 ,0.01573 ,0.00000 ,0.12975 - +,0.05281 ,0.02430 ,4.83071 ,0.29622 ,0.06862 ,0.00000 ,0.18242 - +,0.05481 ,0.02603 ,6.68815 ,0.35245 ,0.12528 ,0.00000 ,0.23887 - +,0.05668 ,0.02763 ,8.57244 ,0.41155 ,0.18480 ,0.00001 ,0.29819 - +,0.05843 ,0.02912 ,10.43951 ,0.47239 ,0.24604 ,0.00000 ,0.35923 - +,0.06009 ,0.03053 ,12.26922 ,0.53429 ,0.30831 ,0.02302 ,0.42132 - +,0.06168 ,0.03185 ,14.05682 ,0.59697 ,0.37135 ,0.08990 ,0.48419 - +,0.06319 ,0.03312 ,15.79816 ,0.66007 ,0.43480 ,0.15727 ,0.54746 - +,0.06465 ,0.03432 ,17.49222 ,0.72333 ,0.49841 ,0.22376 ,0.61089 - +,0.06605 ,0.03547 ,19.14058 ,0.78659 ,0.56200 ,0.29040 ,0.67432 - +,0.06740 ,0.03658 ,20.74663 ,0.84979 ,0.62553 ,0.35668 ,0.73769 - +,0.06870 ,0.03764 ,22.26955 ,0.91178 ,0.68782 ,0.42160 ,0.79983 - +,0.06996 ,0.03865 ,23.75085 ,0.97341 ,0.74977 ,0.48602 ,0.86162 - +,0.07118 ,0.03964 ,25.20041 ,1.03490 ,0.81156 ,0.55016 ,0.92326 - +,0.07236 ,0.04058 ,26.56061 ,1.09452 ,0.87147 ,0.61230 ,0.98303 - +,0.07350 ,0.04150 ,27.90082 ,1.15413 ,0.93137 ,0.67432 ,1.04278 - +,0.07461 ,0.04239 ,29.17583 ,1.21236 ,0.98988 ,0.73485 ,1.10114 - +,0.07569 ,0.04325 ,30.41588 ,1.26999 ,1.04779 ,0.79470 ,1.15891 - +,0.07674 ,0.04408 ,31.60309 ,1.32642 ,1.10449 ,0.85326 ,1.21548/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),K=1,19)/ - + 0.06287 ,0.03479 ,2.88240 ,0.24017 ,0.01361 ,0.00000 ,0.12689 - +,0.06600 ,0.03746 ,4.37957 ,0.28401 ,0.05818 ,0.00000 ,0.17111 - +,0.06889 ,0.03988 ,5.82185 ,0.32955 ,0.10440 ,0.00000 ,0.21700 - +,0.07157 ,0.04211 ,7.23546 ,0.37617 ,0.15167 ,0.00001 ,0.26395 - +,0.07408 ,0.04417 ,8.59539 ,0.42310 ,0.19921 ,0.00000 ,0.31119 - +,0.07645 ,0.04609 ,9.89378 ,0.46991 ,0.24660 ,0.01753 ,0.35830 - +,0.07869 ,0.04790 ,11.13280 ,0.51649 ,0.29375 ,0.06802 ,0.40517 - +,0.08083 ,0.04961 ,12.31415 ,0.56264 ,0.34044 ,0.11809 ,0.45160 - +,0.08287 ,0.05123 ,13.44102 ,0.60823 ,0.38656 ,0.16677 ,0.49746 - +,0.08483 ,0.05278 ,14.51778 ,0.65322 ,0.43206 ,0.21493 ,0.54270 - +,0.08671 ,0.05425 ,15.54957 ,0.69760 ,0.47694 ,0.26222 ,0.58734 - +,0.08852 ,0.05565 ,16.51038 ,0.74061 ,0.52043 ,0.30800 ,0.63059 - +,0.09026 ,0.05699 ,17.43126 ,0.78291 ,0.56321 ,0.35294 ,0.67313 - +,0.09194 ,0.05829 ,18.32045 ,0.82469 ,0.60545 ,0.39723 ,0.71514 - +,0.09356 ,0.05952 ,19.14058 ,0.86477 ,0.64598 ,0.43970 ,0.75545 - +,0.09513 ,0.06072 ,19.93983 ,0.90449 ,0.68614 ,0.48172 ,0.79539 - +,0.09665 ,0.06186 ,20.68901 ,0.94293 ,0.72501 ,0.52235 ,0.83404 - +,0.09812 ,0.06297 ,21.40933 ,0.98067 ,0.76316 ,0.56220 ,0.87199 - +,0.09955 ,0.06404 ,22.08981 ,1.01730 ,0.80021 ,0.60086 ,0.90883/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),K=1,19)/ - + 0.08195 ,0.05398 ,2.77616 ,0.23538 ,0.01154 ,0.00001 ,0.12346 - +,0.08654 ,0.05762 ,3.93953 ,0.27102 ,0.04833 ,0.00001 ,0.15968 - +,0.09072 ,0.06089 ,5.01207 ,0.30678 ,0.08516 ,0.00001 ,0.19599 - +,0.09457 ,0.06387 ,6.02426 ,0.34235 ,0.12174 ,0.00002 ,0.23207 - +,0.09814 ,0.06660 ,6.96631 ,0.37728 ,0.15763 ,0.00002 ,0.26749 - +,0.10148 ,0.06913 ,7.83887 ,0.41138 ,0.19263 ,0.01300 ,0.30204 - +,0.10464 ,0.07148 ,8.64861 ,0.44463 ,0.22677 ,0.05002 ,0.33574 - +,0.10762 ,0.07369 ,9.40205 ,0.47700 ,0.25997 ,0.08613 ,0.36853 - +,0.11046 ,0.07577 ,10.10395 ,0.50845 ,0.29224 ,0.12065 ,0.40040 - +,0.11316 ,0.07773 ,10.76056 ,0.53902 ,0.32359 ,0.15429 ,0.43136 - +,0.11574 ,0.07959 ,11.37810 ,0.56875 ,0.35408 ,0.18688 ,0.46147 - +,0.11820 ,0.08135 ,11.93906 ,0.59718 ,0.38324 ,0.21803 ,0.49027 - +,0.12056 ,0.08303 ,12.46742 ,0.62478 ,0.41156 ,0.24823 ,0.51823 - +,0.12284 ,0.08464 ,12.96973 ,0.65173 ,0.43920 ,0.27764 ,0.54552 - +,0.12501 ,0.08616 ,13.42208 ,0.67726 ,0.46541 ,0.30554 ,0.57140 - +,0.12712 ,0.08762 ,13.85691 ,0.70233 ,0.49113 ,0.33286 ,0.59679 - +,0.12915 ,0.08902 ,14.25576 ,0.72630 ,0.51575 ,0.35901 ,0.62109 - +,0.13110 ,0.09036 ,14.63343 ,0.74962 ,0.53969 ,0.38441 ,0.64472 - +,0.13299 ,0.09166 ,14.98357 ,0.77204 ,0.56271 ,0.40884 ,0.66744/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),K=1,19)/ - + 0.09805 ,0.06968 ,2.70558 ,0.23161 ,0.01036 ,0.00000 ,0.12098 - +,0.10374 ,0.07396 ,3.68421 ,0.26257 ,0.04282 ,0.00001 ,0.15270 - +,0.10888 ,0.07776 ,4.56177 ,0.29296 ,0.07461 ,0.00002 ,0.18380 - +,0.11360 ,0.08119 ,5.36945 ,0.32265 ,0.10561 ,0.00003 ,0.21415 - +,0.11796 ,0.08432 ,6.10500 ,0.35133 ,0.13552 ,0.00001 ,0.24346 - +,0.12201 ,0.08719 ,6.77301 ,0.37895 ,0.16432 ,0.01072 ,0.27167 - +,0.12581 ,0.08985 ,7.38201 ,0.40554 ,0.19203 ,0.04110 ,0.29883 - +,0.12940 ,0.09233 ,7.93880 ,0.43112 ,0.21869 ,0.07040 ,0.32495 - +,0.13278 ,0.09465 ,8.44866 ,0.45570 ,0.24431 ,0.09809 ,0.35005 - +,0.13598 ,0.09683 ,8.91769 ,0.47935 ,0.26895 ,0.12484 ,0.37420 - +,0.13904 ,0.09889 ,9.35181 ,0.50216 ,0.29272 ,0.15054 ,0.39750 - +,0.14193 ,0.10083 ,9.74138 ,0.52373 ,0.31523 ,0.17486 ,0.41954 - +,0.14470 ,0.10267 ,10.10278 ,0.54453 ,0.33692 ,0.19828 ,0.44079 - +,0.14736 ,0.10442 ,10.44182 ,0.56469 ,0.35796 ,0.22095 ,0.46139 - +,0.14988 ,0.10608 ,10.74147 ,0.58360 ,0.37772 ,0.24224 ,0.48072 - +,0.15232 ,0.10766 ,11.02680 ,0.60204 ,0.39699 ,0.26297 ,0.49957 - +,0.15466 ,0.10916 ,11.28432 ,0.61954 ,0.41528 ,0.28267 ,0.51748 - +,0.15692 ,0.11060 ,11.52519 ,0.63646 ,0.43298 ,0.30170 ,0.53478 - +,0.15909 ,0.11198 ,11.74490 ,0.65262 ,0.44991 ,0.31990 ,0.55132/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),K=1,19)/ - + 0.11276 ,0.08342 ,2.64977 ,0.22828 ,0.00952 ,0.00001 ,0.11890 - +,0.11936 ,0.08813 ,3.50216 ,0.25595 ,0.03901 ,0.00001 ,0.14748 - +,0.12528 ,0.09228 ,4.25037 ,0.28266 ,0.06741 ,0.00001 ,0.17505 - +,0.13068 ,0.09601 ,4.92602 ,0.30840 ,0.09472 ,0.00002 ,0.20158 - +,0.13565 ,0.09939 ,5.53082 ,0.33297 ,0.12077 ,0.00001 ,0.22689 - +,0.14024 ,0.10247 ,6.07136 ,0.35637 ,0.14557 ,0.00927 ,0.25101 - +,0.14454 ,0.10531 ,6.55684 ,0.37869 ,0.16922 ,0.03541 ,0.27399 - +,0.14856 ,0.10794 ,6.99441 ,0.39994 ,0.19176 ,0.06041 ,0.29589 - +,0.15235 ,0.11040 ,7.38961 ,0.42020 ,0.21324 ,0.08385 ,0.31676 - +,0.15593 ,0.11270 ,7.74844 ,0.43954 ,0.23375 ,0.10633 ,0.33669 - +,0.15933 ,0.11485 ,8.07652 ,0.45805 ,0.25340 ,0.12779 ,0.35578 - +,0.16253 ,0.11687 ,8.36649 ,0.47543 ,0.27187 ,0.14796 ,0.37370 - +,0.16558 ,0.11879 ,8.63232 ,0.49207 ,0.28957 ,0.16727 ,0.39087 - +,0.16851 ,0.12060 ,8.87903 ,0.50810 ,0.30663 ,0.18585 ,0.40743 - +,0.17128 ,0.12230 ,9.09315 ,0.52303 ,0.32255 ,0.20321 ,0.42284 - +,0.17394 ,0.12393 ,9.29529 ,0.53752 ,0.33799 ,0.22002 ,0.43780 - +,0.17649 ,0.12547 ,9.47467 ,0.55117 ,0.35258 ,0.23591 ,0.45192 - +,0.17895 ,0.12694 ,9.64059 ,0.56430 ,0.36661 ,0.25119 ,0.46551 - +,0.18130 ,0.12833 ,9.78954 ,0.57677 ,0.37997 ,0.26574 ,0.47841/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),K=1,19)/ - + 0.12652 ,0.09579 ,2.60228 ,0.22519 ,0.00889 ,0.00001 ,0.11703 - +,0.13388 ,0.10080 ,3.35985 ,0.25031 ,0.03612 ,0.00002 ,0.14322 - +,0.14043 ,0.10520 ,4.01280 ,0.27424 ,0.06199 ,0.00002 ,0.16813 - +,0.14641 ,0.10911 ,4.59355 ,0.29704 ,0.08660 ,0.00003 ,0.19184 - +,0.15185 ,0.11265 ,5.10594 ,0.31861 ,0.10986 ,0.00004 ,0.21426 - +,0.15690 ,0.11584 ,5.55688 ,0.33893 ,0.13178 ,0.00825 ,0.23539 - +,0.16155 ,0.11880 ,5.95746 ,0.35815 ,0.15253 ,0.03135 ,0.25538 - +,0.16592 ,0.12150 ,6.31284 ,0.37633 ,0.17217 ,0.05331 ,0.27429 - +,0.17002 ,0.12402 ,6.63044 ,0.39353 ,0.19076 ,0.07377 ,0.29218 - +,0.17389 ,0.12637 ,6.91598 ,0.40984 ,0.20840 ,0.09328 ,0.30917 - +,0.17755 ,0.12857 ,7.17416 ,0.42537 ,0.22522 ,0.11181 ,0.32534 - +,0.18098 ,0.13061 ,7.39810 ,0.43982 ,0.24089 ,0.12910 ,0.34040 - +,0.18424 ,0.13253 ,7.60142 ,0.45359 ,0.25585 ,0.14559 ,0.35476 - +,0.18735 ,0.13436 ,7.78855 ,0.46681 ,0.27022 ,0.16140 ,0.36856 - +,0.19029 ,0.13606 ,7.94772 ,0.47900 ,0.28353 ,0.17607 ,0.38131 - +,0.19312 ,0.13768 ,8.09668 ,0.49078 ,0.29639 ,0.19023 ,0.39364 - +,0.19581 ,0.13921 ,8.22648 ,0.50183 ,0.30849 ,0.20356 ,0.40521 - +,0.19839 ,0.14067 ,8.34547 ,0.51241 ,0.32008 ,0.21632 ,0.41630 - +,0.20085 ,0.14205 ,8.45095 ,0.52239 ,0.33105 ,0.22842 ,0.42677/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),K=1,19)/ - + 0.18740 ,0.14546 ,2.41932 ,0.21129 ,0.00690 ,0.00001 ,0.10909 - +,0.19717 ,0.15091 ,2.90024 ,0.22853 ,0.02738 ,0.00003 ,0.12796 - +,0.20570 ,0.15556 ,3.28815 ,0.24415 ,0.04598 ,0.00002 ,0.14506 - +,0.21330 ,0.15961 ,3.61275 ,0.25843 ,0.06300 ,0.00001 ,0.16072 - +,0.22009 ,0.16320 ,3.88216 ,0.27145 ,0.07855 ,0.00000 ,0.17501 - +,0.22630 ,0.16636 ,4.10729 ,0.28331 ,0.09278 ,0.00543 ,0.18806 - +,0.23196 ,0.16918 ,4.29532 ,0.29416 ,0.10587 ,0.02048 ,0.20004 - +,0.23714 ,0.17175 ,4.45305 ,0.30412 ,0.11794 ,0.03447 ,0.21105 - +,0.24196 ,0.17406 ,4.58562 ,0.31328 ,0.12910 ,0.04721 ,0.22121 - +,0.24645 ,0.17617 ,4.69804 ,0.32173 ,0.13945 ,0.05910 ,0.23062 - +,0.25062 ,0.17810 ,4.79442 ,0.32956 ,0.14910 ,0.07017 ,0.23936 - +,0.25446 ,0.17987 ,4.87002 ,0.33666 ,0.15794 ,0.08034 ,0.24732 - +,0.25807 ,0.18151 ,4.93427 ,0.34324 ,0.16618 ,0.08985 ,0.25474 - +,0.26150 ,0.18303 ,4.98996 ,0.34942 ,0.17395 ,0.09880 ,0.26170 - +,0.26467 ,0.18440 ,5.03033 ,0.35493 ,0.18101 ,0.10698 ,0.26799 - +,0.26770 ,0.18570 ,5.06592 ,0.36018 ,0.18773 ,0.11478 ,0.27399 - +,0.27052 ,0.18689 ,5.09203 ,0.36496 ,0.19395 ,0.12201 ,0.27949 - +,0.27322 ,0.18801 ,5.11295 ,0.36945 ,0.19981 ,0.12883 ,0.28466 - +,0.27576 ,0.18903 ,5.12724 ,0.37356 ,0.20524 ,0.13518 ,0.28943/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),K=1,19)/ - + 0.28820 ,0.21285 ,2.15130 ,0.18640 ,0.00486 ,-0.00010 ,0.09559 - +,0.29905 ,0.21703 ,2.38971 ,0.19578 ,0.01899 ,-0.00014 ,0.10735 - +,0.30825 ,0.22027 ,2.56119 ,0.20369 ,0.03118 ,-0.00014 ,0.11738 - +,0.31616 ,0.22294 ,2.68973 ,0.21048 ,0.04183 ,-0.00010 ,0.12611 - +,0.32304 ,0.22510 ,2.78393 ,0.21628 ,0.05113 ,-0.00010 ,0.13367 - +,0.32906 ,0.22687 ,2.85192 ,0.22125 ,0.05936 ,0.00313 ,0.14028 - +,0.33438 ,0.22838 ,2.89963 ,0.22552 ,0.06666 ,0.01196 ,0.14608 - +,0.33911 ,0.22961 ,2.93138 ,0.22921 ,0.07317 ,0.01995 ,0.15116 - +,0.34335 ,0.23063 ,2.95106 ,0.23241 ,0.07901 ,0.02705 ,0.15567 - +,0.34720 ,0.23146 ,2.96154 ,0.23518 ,0.08426 ,0.03353 ,0.15969 - +,0.35072 ,0.23214 ,2.96503 ,0.23758 ,0.08901 ,0.03940 ,0.16327 - +,0.35382 ,0.23267 ,2.95970 ,0.23957 ,0.09321 ,0.04463 ,0.16637 - +,0.35666 ,0.23311 ,2.95055 ,0.24130 ,0.09705 ,0.04942 ,0.16915 - +,0.35929 ,0.23349 ,2.93894 ,0.24283 ,0.10060 ,0.05384 ,0.17169 - +,0.36157 ,0.23374 ,2.92158 ,0.24401 ,0.10371 ,0.05783 ,0.17384 - +,0.36372 ,0.23394 ,2.90342 ,0.24507 ,0.10661 ,0.06156 ,0.17583 - +,0.36569 ,0.23402 ,2.88198 ,0.24588 ,0.10920 ,0.06492 ,0.17752 - +,0.36751 ,0.23408 ,2.85963 ,0.24658 ,0.11159 ,0.06802 ,0.17905 - +,0.36913 ,0.23411 ,2.83564 ,0.24711 ,0.11374 ,0.07085 ,0.18040/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),K=1,19)/ - + 0.37073 ,0.25654 ,1.93396 ,0.16330 ,0.00383 ,0.00001 ,0.08356 - +,0.38023 ,0.25826 ,2.05270 ,0.16839 ,0.01451 ,0.00003 ,0.09143 - +,0.38788 ,0.25928 ,2.12451 ,0.17231 ,0.02333 ,0.00001 ,0.09785 - +,0.39413 ,0.25988 ,2.16779 ,0.17540 ,0.03087 ,0.00001 ,0.10317 - +,0.39934 ,0.26012 ,2.18997 ,0.17783 ,0.03727 ,0.00000 ,0.10756 - +,0.40359 ,0.26016 ,2.19695 ,0.17964 ,0.04274 ,0.00223 ,0.11120 - +,0.40724 ,0.25992 ,2.19259 ,0.18101 ,0.04752 ,0.00821 ,0.11429 - +,0.41039 ,0.25947 ,2.18014 ,0.18202 ,0.05166 ,0.01358 ,0.11686 - +,0.41298 ,0.25897 ,2.16191 ,0.18274 ,0.05523 ,0.01823 ,0.11900 - +,0.41515 ,0.25838 ,2.13986 ,0.18321 ,0.05838 ,0.02237 ,0.12082 - +,0.41707 ,0.25768 ,2.11546 ,0.18347 ,0.06121 ,0.02607 ,0.12238 - +,0.41868 ,0.25683 ,2.08725 ,0.18351 ,0.06361 ,0.02932 ,0.12358 - +,0.41998 ,0.25600 ,2.05823 ,0.18342 ,0.06577 ,0.03228 ,0.12462 - +,0.42105 ,0.25520 ,2.02917 ,0.18324 ,0.06773 ,0.03499 ,0.12552 - +,0.42191 ,0.25426 ,1.99814 ,0.18286 ,0.06940 ,0.03733 ,0.12614 - +,0.42265 ,0.25333 ,1.96798 ,0.18246 ,0.07091 ,0.03950 ,0.12669 - +,0.42317 ,0.25240 ,1.93713 ,0.18194 ,0.07220 ,0.04144 ,0.12709 - +,0.42359 ,0.25146 ,1.90684 ,0.18138 ,0.07337 ,0.04321 ,0.12741 - +,0.42389 ,0.25047 ,1.87661 ,0.18076 ,0.07440 ,0.04480 ,0.12762/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),K=1,19)/ - + 0.43854 ,0.28513 ,1.74366 ,0.14178 ,0.00313 ,0.00004 ,0.07248 - +,0.44524 ,0.28412 ,1.79057 ,0.14419 ,0.01152 ,0.00006 ,0.07786 - +,0.45012 ,0.28278 ,1.80570 ,0.14575 ,0.01821 ,0.00008 ,0.08201 - +,0.45375 ,0.28124 ,1.80295 ,0.14669 ,0.02379 ,0.00007 ,0.08530 - +,0.45650 ,0.27949 ,1.78818 ,0.14720 ,0.02843 ,0.00010 ,0.08787 - +,0.45858 ,0.27757 ,1.76487 ,0.14736 ,0.03230 ,0.00174 ,0.08988 - +,0.45987 ,0.27571 ,1.73617 ,0.14722 ,0.03561 ,0.00604 ,0.09144 - +,0.46078 ,0.27373 ,1.70429 ,0.14686 ,0.03844 ,0.00988 ,0.09267 - +,0.46132 ,0.27171 ,1.67052 ,0.14635 ,0.04081 ,0.01313 ,0.09360 - +,0.46155 ,0.26973 ,1.63583 ,0.14571 ,0.04284 ,0.01598 ,0.09430 - +,0.46153 ,0.26780 ,1.60099 ,0.14497 ,0.04464 ,0.01852 ,0.09483 - +,0.46117 ,0.26586 ,1.56533 ,0.14410 ,0.04610 ,0.02071 ,0.09515 - +,0.46069 ,0.26392 ,1.53045 ,0.14318 ,0.04741 ,0.02267 ,0.09535 - +,0.46014 ,0.26200 ,1.49674 ,0.14224 ,0.04859 ,0.02443 ,0.09548 - +,0.45930 ,0.26007 ,1.46294 ,0.14121 ,0.04952 ,0.02593 ,0.09543 - +,0.45844 ,0.25820 ,1.43071 ,0.14019 ,0.05036 ,0.02731 ,0.09534 - +,0.45749 ,0.25631 ,1.39892 ,0.13914 ,0.05104 ,0.02853 ,0.09515 - +,0.45648 ,0.25447 ,1.36837 ,0.13808 ,0.05164 ,0.02962 ,0.09493 - +,0.45537 ,0.25266 ,1.33865 ,0.13701 ,0.05216 ,0.03058 ,0.09466/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),K=1,19)/ - + 0.49351 ,0.30261 ,1.57281 ,0.12197 ,0.00253 ,0.00009 ,0.06228 - +,0.49646 ,0.29909 ,1.57335 ,0.12268 ,0.00922 ,0.00009 ,0.06595 - +,0.49806 ,0.29535 ,1.55359 ,0.12275 ,0.01444 ,0.00004 ,0.06863 - +,0.49862 ,0.29172 ,1.52383 ,0.12242 ,0.01874 ,0.00003 ,0.07058 - +,0.49848 ,0.28815 ,1.48845 ,0.12185 ,0.02221 ,0.00004 ,0.07201 - +,0.49779 ,0.28465 ,1.44960 ,0.12105 ,0.02504 ,0.00127 ,0.07308 - +,0.49662 ,0.28125 ,1.40914 ,0.12012 ,0.02735 ,0.00451 ,0.07376 - +,0.49513 ,0.27794 ,1.36833 ,0.11904 ,0.02935 ,0.00736 ,0.07422 - +,0.49343 ,0.27467 ,1.32800 ,0.11790 ,0.03098 ,0.00972 ,0.07445 - +,0.49152 ,0.27152 ,1.28869 ,0.11672 ,0.03235 ,0.01176 ,0.07454 - +,0.48946 ,0.26851 ,1.25078 ,0.11551 ,0.03354 ,0.01359 ,0.07454 - +,0.48726 ,0.26549 ,1.21354 ,0.11425 ,0.03447 ,0.01510 ,0.07437 - +,0.48505 ,0.26256 ,1.17800 ,0.11299 ,0.03529 ,0.01645 ,0.07414 - +,0.48286 ,0.25973 ,1.14431 ,0.11174 ,0.03602 ,0.01767 ,0.07387 - +,0.48037 ,0.25701 ,1.11135 ,0.11045 ,0.03654 ,0.01871 ,0.07351 - +,0.47795 ,0.25439 ,1.08034 ,0.10921 ,0.03700 ,0.01965 ,0.07313 - +,0.47555 ,0.25179 ,1.05044 ,0.10795 ,0.03738 ,0.02043 ,0.07270 - +,0.47315 ,0.24927 ,1.02206 ,0.10673 ,0.03770 ,0.02113 ,0.07225 - +,0.47071 ,0.24683 ,0.99485 ,0.10551 ,0.03794 ,0.02172 ,0.07177/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),K=1,19)/ - + 0.54583 ,0.31275 ,1.38161 ,0.09980 ,0.00200 ,0.00009 ,0.05090 - +,0.54385 ,0.30606 ,1.34544 ,0.09920 ,0.00712 ,0.00010 ,0.05321 - +,0.54073 ,0.29980 ,1.29964 ,0.09821 ,0.01108 ,0.00007 ,0.05470 - +,0.53718 ,0.29391 ,1.25128 ,0.09706 ,0.01418 ,0.00004 ,0.05568 - +,0.53329 ,0.28834 ,1.20242 ,0.09577 ,0.01668 ,0.00005 ,0.05627 - +,0.52914 ,0.28309 ,1.15448 ,0.09440 ,0.01863 ,0.00092 ,0.05658 - +,0.52479 ,0.27810 ,1.10801 ,0.09297 ,0.02027 ,0.00333 ,0.05665 - +,0.52040 ,0.27334 ,1.06348 ,0.09152 ,0.02153 ,0.00531 ,0.05658 - +,0.51597 ,0.26880 ,1.02122 ,0.09006 ,0.02258 ,0.00695 ,0.05640 - +,0.51152 ,0.26447 ,0.98135 ,0.08860 ,0.02347 ,0.00838 ,0.05612 - +,0.50709 ,0.26035 ,0.94390 ,0.08720 ,0.02421 ,0.00961 ,0.05577 - +,0.50268 ,0.25636 ,0.90811 ,0.08580 ,0.02470 ,0.01059 ,0.05534 - +,0.49836 ,0.25253 ,0.87462 ,0.08443 ,0.02514 ,0.01149 ,0.05488 - +,0.49416 ,0.24886 ,0.84335 ,0.08311 ,0.02552 ,0.01230 ,0.05440 - +,0.48994 ,0.24533 ,0.81349 ,0.08176 ,0.02580 ,0.01292 ,0.05387 - +,0.48582 ,0.24198 ,0.78569 ,0.08047 ,0.02603 ,0.01347 ,0.05334 - +,0.48162 ,0.23876 ,0.75929 ,0.07924 ,0.02617 ,0.01396 ,0.05279 - +,0.47757 ,0.23567 ,0.73450 ,0.07803 ,0.02629 ,0.01438 ,0.05225 - +,0.47363 ,0.23267 ,0.71101 ,0.07683 ,0.02637 ,0.01474 ,0.05173/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),K=1,19)/ - + 0.58213 ,0.31285 ,1.21143 ,0.08047 ,0.00165 ,0.00012 ,0.04111 - +,0.57475 ,0.30367 ,1.15312 ,0.07925 ,0.00562 ,0.00011 ,0.04251 - +,0.56703 ,0.29525 ,1.09314 ,0.07779 ,0.00865 ,0.00015 ,0.04325 - +,0.55941 ,0.28747 ,1.03559 ,0.07628 ,0.01090 ,0.00015 ,0.04367 - +,0.55185 ,0.28031 ,0.98129 ,0.07471 ,0.01271 ,0.00018 ,0.04378 - +,0.54440 ,0.27369 ,0.93047 ,0.07317 ,0.01412 ,0.00075 ,0.04367 - +,0.53697 ,0.26759 ,0.88305 ,0.07164 ,0.01517 ,0.00251 ,0.04347 - +,0.52984 ,0.26175 ,0.83890 ,0.07009 ,0.01606 ,0.00397 ,0.04314 - +,0.52296 ,0.25620 ,0.79803 ,0.06859 ,0.01676 ,0.00512 ,0.04272 - +,0.51626 ,0.25098 ,0.76030 ,0.06715 ,0.01729 ,0.00608 ,0.04227 - +,0.50974 ,0.24608 ,0.72550 ,0.06576 ,0.01772 ,0.00687 ,0.04180 - +,0.50326 ,0.24147 ,0.69286 ,0.06438 ,0.01802 ,0.00759 ,0.04134 - +,0.49704 ,0.23706 ,0.66273 ,0.06308 ,0.01826 ,0.00819 ,0.04082 - +,0.49108 ,0.23286 ,0.63493 ,0.06185 ,0.01846 ,0.00869 ,0.04025 - +,0.48532 ,0.22873 ,0.60868 ,0.06061 ,0.01857 ,0.00912 ,0.03972 - +,0.47975 ,0.22486 ,0.58445 ,0.05943 ,0.01867 ,0.00949 ,0.03919 - +,0.47413 ,0.22126 ,0.56177 ,0.05831 ,0.01874 ,0.00981 ,0.03861 - +,0.46880 ,0.21777 ,0.54063 ,0.05723 ,0.01877 ,0.01007 ,0.03806 - +,0.46370 ,0.21433 ,0.52079 ,0.05617 ,0.01874 ,0.01029 ,0.03757/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),K=1,19)/ - + 0.60411 ,0.30572 ,1.05922 ,0.06407 ,0.00125 ,0.00006 ,0.03265 - +,0.59154 ,0.29449 ,0.98840 ,0.06258 ,0.00441 ,0.00006 ,0.03350 - +,0.57937 ,0.28436 ,0.92149 ,0.06096 ,0.00672 ,0.00002 ,0.03386 - +,0.56791 ,0.27517 ,0.86048 ,0.05932 ,0.00849 ,0.00001 ,0.03395 - +,0.55708 ,0.26679 ,0.80512 ,0.05776 ,0.00975 ,0.00000 ,0.03383 - +,0.54671 ,0.25911 ,0.75488 ,0.05621 ,0.01077 ,0.00050 ,0.03356 - +,0.53664 ,0.25213 ,0.70908 ,0.05467 ,0.01154 ,0.00184 ,0.03333 - +,0.52718 ,0.24549 ,0.66745 ,0.05324 ,0.01215 ,0.00294 ,0.03285 - +,0.51804 ,0.23934 ,0.62958 ,0.05184 ,0.01261 ,0.00379 ,0.03240 - +,0.50927 ,0.23358 ,0.59511 ,0.05051 ,0.01297 ,0.00451 ,0.03196 - +,0.50094 ,0.22811 ,0.56370 ,0.04927 ,0.01324 ,0.00515 ,0.03147 - +,0.49294 ,0.22298 ,0.53469 ,0.04805 ,0.01340 ,0.00564 ,0.03092 - +,0.48526 ,0.21816 ,0.50815 ,0.04690 ,0.01351 ,0.00603 ,0.03040 - +,0.47794 ,0.21362 ,0.48385 ,0.04581 ,0.01359 ,0.00636 ,0.02989 - +,0.47071 ,0.20927 ,0.46138 ,0.04477 ,0.01362 ,0.00659 ,0.02937 - +,0.46388 ,0.20516 ,0.44075 ,0.04377 ,0.01364 ,0.00681 ,0.02887 - +,0.45735 ,0.20116 ,0.42152 ,0.04277 ,0.01367 ,0.00703 ,0.02840 - +,0.45104 ,0.19742 ,0.40373 ,0.04184 ,0.01366 ,0.00721 ,0.02790 - +,0.44485 ,0.19389 ,0.38719 ,0.04097 ,0.01362 ,0.00735 ,0.02738/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),K=1,19)/ - + 0.61339 ,0.29330 ,0.92338 ,0.05034 ,0.00095 ,0.00003 ,0.02566 - +,0.59613 ,0.28047 ,0.84633 ,0.04880 ,0.00344 ,0.00000 ,0.02610 - +,0.58005 ,0.26907 ,0.77714 ,0.04722 ,0.00521 ,-0.00005 ,0.02623 - +,0.56517 ,0.25892 ,0.71630 ,0.04572 ,0.00647 ,-0.00001 ,0.02616 - +,0.55134 ,0.24980 ,0.66252 ,0.04423 ,0.00747 ,0.00010 ,0.02593 - +,0.53847 ,0.24141 ,0.61481 ,0.04285 ,0.00821 ,0.00043 ,0.02554 - +,0.52612 ,0.23384 ,0.57223 ,0.04149 ,0.00873 ,0.00132 ,0.02522 - +,0.51462 ,0.22672 ,0.53402 ,0.04023 ,0.00913 ,0.00212 ,0.02478 - +,0.50367 ,0.22020 ,0.49993 ,0.03903 ,0.00943 ,0.00278 ,0.02431 - +,0.49336 ,0.21408 ,0.46925 ,0.03788 ,0.00968 ,0.00330 ,0.02383 - +,0.48377 ,0.20824 ,0.44145 ,0.03680 ,0.00988 ,0.00368 ,0.02332 - +,0.47418 ,0.20310 ,0.41614 ,0.03578 ,0.00997 ,0.00401 ,0.02283 - +,0.46524 ,0.19815 ,0.39320 ,0.03479 ,0.01000 ,0.00429 ,0.02238 - +,0.45689 ,0.19342 ,0.37237 ,0.03385 ,0.01001 ,0.00453 ,0.02197 - +,0.44878 ,0.18888 ,0.35310 ,0.03301 ,0.00998 ,0.00469 ,0.02148 - +,0.44108 ,0.18464 ,0.33558 ,0.03219 ,0.00996 ,0.00485 ,0.02105 - +,0.43362 ,0.18067 ,0.31954 ,0.03134 ,0.00996 ,0.00502 ,0.02069 - +,0.42649 ,0.17692 ,0.30477 ,0.03056 ,0.00993 ,0.00513 ,0.02031 - +,0.41963 ,0.17336 ,0.29106 ,0.02984 ,0.00985 ,0.00519 ,0.01989/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),K=1,19)/ - + 0.61197 ,0.27695 ,0.80205 ,0.03901 ,0.00073 ,0.00006 ,0.01984 - +,0.59054 ,0.26298 ,0.72321 ,0.03760 ,0.00265 ,0.00004 ,0.02014 - +,0.57101 ,0.25077 ,0.65492 ,0.03619 ,0.00401 ,0.00011 ,0.02014 - +,0.55329 ,0.23993 ,0.59629 ,0.03483 ,0.00503 ,0.00008 ,0.01996 - +,0.53699 ,0.23033 ,0.54565 ,0.03352 ,0.00580 ,0.00005 ,0.01970 - +,0.52187 ,0.22173 ,0.50141 ,0.03230 ,0.00635 ,0.00030 ,0.01935 - +,0.50796 ,0.21362 ,0.46265 ,0.03116 ,0.00673 ,0.00109 ,0.01901 - +,0.49469 ,0.20646 ,0.42831 ,0.03013 ,0.00696 ,0.00162 ,0.01855 - +,0.48229 ,0.19985 ,0.39798 ,0.02912 ,0.00712 ,0.00203 ,0.01813 - +,0.47073 ,0.19368 ,0.37100 ,0.02815 ,0.00726 ,0.00239 ,0.01771 - +,0.45990 ,0.18797 ,0.34680 ,0.02725 ,0.00739 ,0.00269 ,0.01725 - +,0.44946 ,0.18263 ,0.32494 ,0.02638 ,0.00741 ,0.00295 ,0.01692 - +,0.43972 ,0.17757 ,0.30534 ,0.02557 ,0.00743 ,0.00313 ,0.01656 - +,0.43061 ,0.17279 ,0.28770 ,0.02481 ,0.00745 ,0.00327 ,0.01618 - +,0.42168 ,0.16841 ,0.27156 ,0.02413 ,0.00739 ,0.00335 ,0.01576 - +,0.41331 ,0.16427 ,0.25694 ,0.02348 ,0.00734 ,0.00345 ,0.01537 - +,0.40543 ,0.16022 ,0.24357 ,0.02282 ,0.00731 ,0.00363 ,0.01505 - +,0.39789 ,0.15646 ,0.23134 ,0.02220 ,0.00726 ,0.00374 ,0.01472 - +,0.39059 ,0.15297 ,0.22007 ,0.02164 ,0.00716 ,0.00376 ,0.01440/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),K=1,19)/ - + 0.60135 ,0.25788 ,0.69390 ,0.02975 ,0.00055 ,0.00002 ,0.01528 - +,0.57632 ,0.24334 ,0.61609 ,0.02861 ,0.00204 ,0.00011 ,0.01533 - +,0.55400 ,0.23067 ,0.55054 ,0.02733 ,0.00321 ,0.00003 ,0.01529 - +,0.53405 ,0.21944 ,0.49562 ,0.02615 ,0.00398 ,0.00010 ,0.01513 - +,0.51569 ,0.20968 ,0.44888 ,0.02511 ,0.00449 ,0.00015 ,0.01483 - +,0.49911 ,0.20079 ,0.40892 ,0.02411 ,0.00487 ,0.00034 ,0.01451 - +,0.48343 ,0.19305 ,0.37396 ,0.02320 ,0.00512 ,0.00080 ,0.01414 - +,0.46908 ,0.18578 ,0.34350 ,0.02233 ,0.00529 ,0.00119 ,0.01379 - +,0.45575 ,0.17907 ,0.31687 ,0.02147 ,0.00545 ,0.00152 ,0.01349 - +,0.44331 ,0.17293 ,0.29351 ,0.02068 ,0.00555 ,0.00180 ,0.01316 - +,0.43171 ,0.16729 ,0.27291 ,0.01998 ,0.00557 ,0.00201 ,0.01276 - +,0.42069 ,0.16202 ,0.25428 ,0.01929 ,0.00556 ,0.00216 ,0.01248 - +,0.41027 ,0.15717 ,0.23764 ,0.01867 ,0.00553 ,0.00232 ,0.01215 - +,0.40044 ,0.15271 ,0.22275 ,0.01812 ,0.00548 ,0.00248 ,0.01180 - +,0.39125 ,0.14836 ,0.20918 ,0.01753 ,0.00545 ,0.00248 ,0.01150 - +,0.38259 ,0.14431 ,0.19698 ,0.01698 ,0.00541 ,0.00250 ,0.01123 - +,0.37433 ,0.14049 ,0.18593 ,0.01646 ,0.00536 ,0.00256 ,0.01097 - +,0.36649 ,0.13696 ,0.17591 ,0.01597 ,0.00530 ,0.00261 ,0.01070 - +,0.35900 ,0.13367 ,0.16680 ,0.01551 ,0.00523 ,0.00266 ,0.01040/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),K=1,19)/ - + 0.58320 ,0.23701 ,0.59758 ,0.02235 ,0.00055 ,0.00011 ,0.01151 - +,0.55539 ,0.22213 ,0.52295 ,0.02130 ,0.00178 ,-0.00003 ,0.01164 - +,0.53069 ,0.20946 ,0.46171 ,0.02035 ,0.00257 ,0.00002 ,0.01150 - +,0.50859 ,0.19854 ,0.41087 ,0.01948 ,0.00304 ,0.00010 ,0.01134 - +,0.48893 ,0.18875 ,0.36842 ,0.01861 ,0.00348 ,0.00011 ,0.01109 - +,0.47098 ,0.18015 ,0.33249 ,0.01780 ,0.00373 ,0.00026 ,0.01083 - +,0.45454 ,0.17237 ,0.30181 ,0.01707 ,0.00392 ,0.00063 ,0.01050 - +,0.43943 ,0.16524 ,0.27533 ,0.01635 ,0.00401 ,0.00093 ,0.01027 - +,0.42538 ,0.15885 ,0.25229 ,0.01570 ,0.00408 ,0.00117 ,0.00997 - +,0.41232 ,0.15299 ,0.23208 ,0.01510 ,0.00413 ,0.00137 ,0.00965 - +,0.40019 ,0.14751 ,0.21424 ,0.01454 ,0.00416 ,0.00152 ,0.00938 - +,0.38878 ,0.14259 ,0.19864 ,0.01398 ,0.00414 ,0.00162 ,0.00912 - +,0.37826 ,0.13791 ,0.18471 ,0.01347 ,0.00411 ,0.00168 ,0.00882 - +,0.36851 ,0.13350 ,0.17225 ,0.01300 ,0.00408 ,0.00172 ,0.00851 - +,0.35908 ,0.12933 ,0.16116 ,0.01258 ,0.00402 ,0.00183 ,0.00831 - +,0.35024 ,0.12548 ,0.15123 ,0.01218 ,0.00397 ,0.00191 ,0.00811 - +,0.34182 ,0.12194 ,0.14226 ,0.01180 ,0.00394 ,0.00197 ,0.00788 - +,0.33389 ,0.11859 ,0.13409 ,0.01146 ,0.00391 ,0.00199 ,0.00766 - +,0.32639 ,0.11539 ,0.12658 ,0.01115 ,0.00386 ,0.00197 ,0.00746/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),K=1,19)/ - + 0.55867 ,0.21524 ,0.51219 ,0.01656 ,0.00043 ,0.00008 ,0.00858 - +,0.52853 ,0.20065 ,0.44198 ,0.01579 ,0.00137 ,0.00011 ,0.00861 - +,0.50214 ,0.18816 ,0.38537 ,0.01499 ,0.00199 ,0.00008 ,0.00860 - +,0.47896 ,0.17737 ,0.33943 ,0.01427 ,0.00240 ,0.00009 ,0.00844 - +,0.45825 ,0.16799 ,0.30147 ,0.01357 ,0.00269 ,0.00004 ,0.00826 - +,0.43959 ,0.15966 ,0.26973 ,0.01297 ,0.00287 ,0.00027 ,0.00798 - +,0.42263 ,0.15212 ,0.24315 ,0.01240 ,0.00294 ,0.00051 ,0.00777 - +,0.40707 ,0.14530 ,0.22015 ,0.01186 ,0.00305 ,0.00074 ,0.00750 - +,0.39265 ,0.13918 ,0.20022 ,0.01136 ,0.00314 ,0.00091 ,0.00725 - +,0.37932 ,0.13364 ,0.18299 ,0.01090 ,0.00315 ,0.00104 ,0.00704 - +,0.36706 ,0.12858 ,0.16806 ,0.01046 ,0.00310 ,0.00115 ,0.00687 - +,0.35589 ,0.12381 ,0.15495 ,0.00999 ,0.00306 ,0.00121 ,0.00661 - +,0.34532 ,0.11940 ,0.14344 ,0.00959 ,0.00303 ,0.00127 ,0.00640 - +,0.33536 ,0.11533 ,0.13326 ,0.00924 ,0.00302 ,0.00133 ,0.00623 - +,0.32593 ,0.11150 ,0.12400 ,0.00890 ,0.00300 ,0.00136 ,0.00603 - +,0.31713 ,0.10797 ,0.11579 ,0.00858 ,0.00298 ,0.00139 ,0.00585 - +,0.30881 ,0.10470 ,0.10853 ,0.00827 ,0.00297 ,0.00140 ,0.00570 - +,0.30099 ,0.10162 ,0.10194 ,0.00799 ,0.00294 ,0.00142 ,0.00554 - +,0.29360 ,0.09871 ,0.09591 ,0.00777 ,0.00287 ,0.00147 ,0.00538/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),K=1,19)/ - + 0.52880 ,0.19391 ,0.43721 ,0.01222 ,0.00019 ,-0.00013 ,0.00621 - +,0.49719 ,0.17968 ,0.37223 ,0.01162 ,0.00091 ,-0.00009 ,0.00625 - +,0.46981 ,0.16758 ,0.32073 ,0.01103 ,0.00145 ,-0.00004 ,0.00614 - +,0.44595 ,0.15720 ,0.27928 ,0.01043 ,0.00173 ,-0.00006 ,0.00613 - +,0.42488 ,0.14811 ,0.24598 ,0.00989 ,0.00202 ,-0.00007 ,0.00593 - +,0.40576 ,0.14040 ,0.21820 ,0.00939 ,0.00213 ,0.00002 ,0.00578 - +,0.38858 ,0.13327 ,0.19518 ,0.00898 ,0.00217 ,0.00023 ,0.00561 - +,0.37301 ,0.12690 ,0.17558 ,0.00854 ,0.00224 ,0.00046 ,0.00544 - +,0.35879 ,0.12115 ,0.15876 ,0.00810 ,0.00232 ,0.00056 ,0.00524 - +,0.34571 ,0.11593 ,0.14430 ,0.00770 ,0.00234 ,0.00063 ,0.00505 - +,0.33365 ,0.11118 ,0.13181 ,0.00736 ,0.00229 ,0.00074 ,0.00487 - +,0.32213 ,0.10676 ,0.12089 ,0.00717 ,0.00224 ,0.00085 ,0.00473 - +,0.31163 ,0.10270 ,0.11135 ,0.00690 ,0.00223 ,0.00090 ,0.00457 - +,0.30198 ,0.09898 ,0.10296 ,0.00659 ,0.00225 ,0.00090 ,0.00440 - +,0.29290 ,0.09543 ,0.09549 ,0.00631 ,0.00220 ,0.00093 ,0.00428 - +,0.28438 ,0.09217 ,0.08884 ,0.00608 ,0.00216 ,0.00095 ,0.00415 - +,0.27624 ,0.08915 ,0.08288 ,0.00591 ,0.00211 ,0.00097 ,0.00401 - +,0.26861 ,0.08634 ,0.07753 ,0.00572 ,0.00208 ,0.00099 ,0.00388 - +,0.26143 ,0.08371 ,0.07271 ,0.00552 ,0.00206 ,0.00099 ,0.00379/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),K=1,19)/ - + 0.49533 ,0.17201 ,0.37024 ,0.00867 ,0.00028 ,0.00016 ,0.00462 - +,0.46270 ,0.15862 ,0.31118 ,0.00823 ,0.00088 ,0.00012 ,0.00462 - +,0.43495 ,0.14711 ,0.26503 ,0.00780 ,0.00122 ,0.00008 ,0.00459 - +,0.41070 ,0.13750 ,0.22867 ,0.00737 ,0.00146 ,0.00013 ,0.00449 - +,0.38961 ,0.12913 ,0.19932 ,0.00695 ,0.00160 ,0.00010 ,0.00435 - +,0.37086 ,0.12169 ,0.17561 ,0.00659 ,0.00168 ,0.00018 ,0.00424 - +,0.35367 ,0.11517 ,0.15590 ,0.00633 ,0.00176 ,0.00032 ,0.00405 - +,0.33813 ,0.10933 ,0.13918 ,0.00601 ,0.00177 ,0.00044 ,0.00392 - +,0.32418 ,0.10400 ,0.12512 ,0.00574 ,0.00173 ,0.00052 ,0.00379 - +,0.31143 ,0.09918 ,0.11312 ,0.00547 ,0.00172 ,0.00060 ,0.00366 - +,0.29959 ,0.09484 ,0.10272 ,0.00518 ,0.00173 ,0.00069 ,0.00356 - +,0.28868 ,0.09082 ,0.09369 ,0.00493 ,0.00170 ,0.00060 ,0.00339 - +,0.27850 ,0.08716 ,0.08590 ,0.00474 ,0.00168 ,0.00063 ,0.00327 - +,0.26900 ,0.08381 ,0.07912 ,0.00460 ,0.00167 ,0.00072 ,0.00319 - +,0.26020 ,0.08066 ,0.07303 ,0.00443 ,0.00162 ,0.00070 ,0.00302 - +,0.25202 ,0.07777 ,0.06766 ,0.00427 ,0.00159 ,0.00069 ,0.00288 - +,0.24437 ,0.07508 ,0.06295 ,0.00408 ,0.00156 ,0.00069 ,0.00279 - +,0.23714 ,0.07257 ,0.05871 ,0.00394 ,0.00152 ,0.00070 ,0.00271 - +,0.23025 ,0.07019 ,0.05487 ,0.00385 ,0.00146 ,0.00072 ,0.00263/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),K=1,19)/ - + 0.45883 ,0.15175 ,0.31223 ,0.00621 ,0.00023 ,-0.00004 ,0.00311 - +,0.42624 ,0.13898 ,0.25904 ,0.00589 ,0.00055 ,-0.00007 ,0.00326 - +,0.39861 ,0.12816 ,0.21802 ,0.00558 ,0.00085 ,-0.00002 ,0.00322 - +,0.37461 ,0.11923 ,0.18632 ,0.00527 ,0.00105 ,0.00001 ,0.00311 - +,0.35384 ,0.11153 ,0.16120 ,0.00498 ,0.00109 ,-0.00004 ,0.00305 - +,0.33521 ,0.10470 ,0.14084 ,0.00477 ,0.00121 ,0.00000 ,0.00295 - +,0.31856 ,0.09871 ,0.12416 ,0.00454 ,0.00123 ,0.00016 ,0.00285 - +,0.30345 ,0.09346 ,0.11014 ,0.00431 ,0.00125 ,0.00023 ,0.00274 - +,0.28990 ,0.08866 ,0.09833 ,0.00409 ,0.00124 ,0.00027 ,0.00266 - +,0.27771 ,0.08429 ,0.08836 ,0.00387 ,0.00122 ,0.00032 ,0.00257 - +,0.26661 ,0.08035 ,0.07988 ,0.00362 ,0.00123 ,0.00040 ,0.00245 - +,0.25609 ,0.07679 ,0.07249 ,0.00349 ,0.00122 ,0.00044 ,0.00231 - +,0.24640 ,0.07352 ,0.06613 ,0.00335 ,0.00119 ,0.00047 ,0.00224 - +,0.23746 ,0.07052 ,0.06060 ,0.00320 ,0.00116 ,0.00049 ,0.00222 - +,0.22907 ,0.06774 ,0.05574 ,0.00312 ,0.00114 ,0.00049 ,0.00211 - +,0.22130 ,0.06516 ,0.05147 ,0.00303 ,0.00112 ,0.00049 ,0.00201 - +,0.21407 ,0.06275 ,0.04767 ,0.00290 ,0.00110 ,0.00051 ,0.00196 - +,0.20732 ,0.06050 ,0.04428 ,0.00279 ,0.00108 ,0.00052 ,0.00189 - +,0.20101 ,0.05838 ,0.04124 ,0.00270 ,0.00104 ,0.00051 ,0.00181/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),K=1,19)/ - + 0.42072 ,0.13187 ,0.26104 ,0.00426 ,0.00018 ,0.00007 ,0.00229 - +,0.38845 ,0.12021 ,0.21349 ,0.00405 ,0.00046 ,-0.00002 ,0.00234 - +,0.36144 ,0.11034 ,0.17815 ,0.00379 ,0.00071 ,0.00000 ,0.00231 - +,0.33803 ,0.10214 ,0.15073 ,0.00365 ,0.00086 ,0.00000 ,0.00223 - +,0.31770 ,0.09510 ,0.12931 ,0.00343 ,0.00091 ,0.00006 ,0.00222 - +,0.29981 ,0.08900 ,0.11222 ,0.00331 ,0.00093 ,0.00009 ,0.00206 - +,0.28395 ,0.08365 ,0.09809 ,0.00310 ,0.00088 ,0.00013 ,0.00203 - +,0.26984 ,0.07880 ,0.08636 ,0.00294 ,0.00089 ,0.00017 ,0.00195 - +,0.25695 ,0.07455 ,0.07664 ,0.00278 ,0.00091 ,0.00023 ,0.00186 - +,0.24514 ,0.07074 ,0.06849 ,0.00267 ,0.00090 ,0.00028 ,0.00176 - +,0.23437 ,0.06725 ,0.06155 ,0.00264 ,0.00084 ,0.00028 ,0.00164 - +,0.22463 ,0.06404 ,0.05560 ,0.00248 ,0.00085 ,0.00031 ,0.00161 - +,0.21569 ,0.06111 ,0.05047 ,0.00233 ,0.00086 ,0.00032 ,0.00156 - +,0.20745 ,0.05845 ,0.04603 ,0.00219 ,0.00088 ,0.00032 ,0.00150 - +,0.19972 ,0.05607 ,0.04216 ,0.00210 ,0.00082 ,0.00033 ,0.00144 - +,0.19255 ,0.05385 ,0.03877 ,0.00203 ,0.00078 ,0.00035 ,0.00138 - +,0.18580 ,0.05174 ,0.03577 ,0.00200 ,0.00077 ,0.00038 ,0.00134 - +,0.17957 ,0.04977 ,0.03312 ,0.00193 ,0.00075 ,0.00039 ,0.00128 - +,0.17380 ,0.04793 ,0.03077 ,0.00182 ,0.00072 ,0.00036 ,0.00122/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),K=1,19)/ - + 0.38182 ,0.11362 ,0.21676 ,0.00289 ,0.00015 ,0.00007 ,0.00160 - +,0.35051 ,0.10301 ,0.17557 ,0.00271 ,0.00039 ,-0.00001 ,0.00165 - +,0.32410 ,0.09421 ,0.14482 ,0.00266 ,0.00053 ,0.00004 ,0.00161 - +,0.30199 ,0.08678 ,0.12137 ,0.00252 ,0.00058 ,0.00004 ,0.00152 - +,0.28256 ,0.08049 ,0.10311 ,0.00239 ,0.00066 ,-0.00001 ,0.00150 - +,0.26573 ,0.07500 ,0.08872 ,0.00229 ,0.00065 ,0.00004 ,0.00143 - +,0.25079 ,0.07020 ,0.07705 ,0.00216 ,0.00061 ,0.00009 ,0.00134 - +,0.23722 ,0.06599 ,0.06745 ,0.00209 ,0.00064 ,0.00011 ,0.00128 - +,0.22531 ,0.06221 ,0.05950 ,0.00195 ,0.00065 ,0.00015 ,0.00125 - +,0.21451 ,0.05883 ,0.05286 ,0.00182 ,0.00063 ,0.00016 ,0.00122 - +,0.20443 ,0.05582 ,0.04724 ,0.00178 ,0.00059 ,0.00016 ,0.00114 - +,0.19550 ,0.05304 ,0.04247 ,0.00168 ,0.00059 ,0.00021 ,0.00110 - +,0.18715 ,0.05049 ,0.03839 ,0.00162 ,0.00059 ,0.00023 ,0.00104 - +,0.17936 ,0.04815 ,0.03489 ,0.00159 ,0.00058 ,0.00023 ,0.00097 - +,0.17244 ,0.04602 ,0.03182 ,0.00148 ,0.00055 ,0.00022 ,0.00094 - +,0.16604 ,0.04408 ,0.02915 ,0.00138 ,0.00054 ,0.00022 ,0.00091 - +,0.16003 ,0.04230 ,0.02681 ,0.00130 ,0.00056 ,0.00022 ,0.00086 - +,0.15433 ,0.04065 ,0.02473 ,0.00125 ,0.00055 ,0.00022 ,0.00083 - +,0.14888 ,0.03910 ,0.02288 ,0.00124 ,0.00053 ,0.00021 ,0.00082/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),K=1,19)/ - + 0.34262 ,0.09682 ,0.17861 ,0.00196 ,0.00009 ,0.00003 ,0.00110 - +,0.31255 ,0.08714 ,0.14278 ,0.00185 ,0.00023 ,-0.00003 ,0.00111 - +,0.28772 ,0.07924 ,0.11641 ,0.00179 ,0.00034 ,0.00001 ,0.00104 - +,0.26645 ,0.07267 ,0.09648 ,0.00171 ,0.00047 ,0.00002 ,0.00108 - +,0.24850 ,0.06698 ,0.08125 ,0.00161 ,0.00047 ,0.00004 ,0.00103 - +,0.23276 ,0.06221 ,0.06928 ,0.00152 ,0.00048 ,0.00004 ,0.00096 - +,0.21883 ,0.05799 ,0.05968 ,0.00142 ,0.00050 ,0.00005 ,0.00093 - +,0.20637 ,0.05434 ,0.05193 ,0.00135 ,0.00049 ,0.00008 ,0.00093 - +,0.19512 ,0.05110 ,0.04550 ,0.00131 ,0.00047 ,0.00012 ,0.00090 - +,0.18502 ,0.04818 ,0.04015 ,0.00126 ,0.00046 ,0.00014 ,0.00085 - +,0.17600 ,0.04556 ,0.03571 ,0.00116 ,0.00046 ,0.00014 ,0.00080 - +,0.16798 ,0.04315 ,0.03196 ,0.00105 ,0.00045 ,0.00013 ,0.00076 - +,0.16045 ,0.04098 ,0.02875 ,0.00099 ,0.00043 ,0.00013 ,0.00072 - +,0.15343 ,0.03902 ,0.02598 ,0.00097 ,0.00042 ,0.00015 ,0.00067 - +,0.14705 ,0.03718 ,0.02359 ,0.00095 ,0.00042 ,0.00017 ,0.00068 - +,0.14117 ,0.03551 ,0.02152 ,0.00092 ,0.00042 ,0.00018 ,0.00068 - +,0.13569 ,0.03400 ,0.01970 ,0.00085 ,0.00041 ,0.00016 ,0.00064 - +,0.13064 ,0.03260 ,0.01812 ,0.00080 ,0.00040 ,0.00016 ,0.00062 - +,0.12597 ,0.03129 ,0.01672 ,0.00076 ,0.00039 ,0.00017 ,0.00062/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),K=1,19)/ - + 0.30424 ,0.08155 ,0.14617 ,0.00130 ,0.00007 ,-0.00003 ,0.00070 - +,0.27597 ,0.07305 ,0.11546 ,0.00125 ,0.00013 ,-0.00004 ,0.00068 - +,0.25260 ,0.06603 ,0.09299 ,0.00122 ,0.00024 ,-0.00002 ,0.00071 - +,0.23286 ,0.06029 ,0.07636 ,0.00118 ,0.00028 ,-0.00005 ,0.00068 - +,0.21645 ,0.05540 ,0.06381 ,0.00104 ,0.00033 ,-0.00004 ,0.00068 - +,0.20167 ,0.05125 ,0.05388 ,0.00105 ,0.00034 ,-0.00002 ,0.00067 - +,0.18890 ,0.04765 ,0.04607 ,0.00099 ,0.00035 ,0.00001 ,0.00063 - +,0.17762 ,0.04445 ,0.03980 ,0.00095 ,0.00033 ,0.00006 ,0.00060 - +,0.16752 ,0.04166 ,0.03470 ,0.00087 ,0.00032 ,0.00004 ,0.00056 - +,0.15850 ,0.03917 ,0.03047 ,0.00079 ,0.00032 ,0.00004 ,0.00053 - +,0.15046 ,0.03692 ,0.02691 ,0.00074 ,0.00032 ,0.00008 ,0.00053 - +,0.14296 ,0.03487 ,0.02395 ,0.00072 ,0.00032 ,0.00008 ,0.00051 - +,0.13613 ,0.03304 ,0.02145 ,0.00070 ,0.00031 ,0.00009 ,0.00049 - +,0.12991 ,0.03140 ,0.01931 ,0.00069 ,0.00030 ,0.00011 ,0.00047 - +,0.12420 ,0.02986 ,0.01748 ,0.00065 ,0.00028 ,0.00009 ,0.00043 - +,0.11900 ,0.02846 ,0.01589 ,0.00061 ,0.00026 ,0.00008 ,0.00039 - +,0.11428 ,0.02718 ,0.01449 ,0.00054 ,0.00027 ,0.00009 ,0.00038 - +,0.10983 ,0.02601 ,0.01328 ,0.00050 ,0.00027 ,0.00009 ,0.00038 - +,0.10558 ,0.02492 ,0.01221 ,0.00049 ,0.00027 ,0.00010 ,0.00038/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),K=1,19)/ - + 0.26687 ,0.06768 ,0.11828 ,0.00085 ,0.00000 ,-0.00004 ,0.00039 - +,0.24075 ,0.06025 ,0.09217 ,0.00085 ,0.00013 ,-0.00004 ,0.00049 - +,0.21914 ,0.05431 ,0.07351 ,0.00081 ,0.00018 ,-0.00004 ,0.00045 - +,0.20109 ,0.04932 ,0.05976 ,0.00079 ,0.00016 ,-0.00003 ,0.00047 - +,0.18582 ,0.04517 ,0.04947 ,0.00076 ,0.00018 ,-0.00002 ,0.00041 - +,0.17285 ,0.04156 ,0.04151 ,0.00069 ,0.00021 ,-0.00001 ,0.00040 - +,0.16129 ,0.03852 ,0.03525 ,0.00061 ,0.00020 ,-0.00003 ,0.00037 - +,0.15110 ,0.03581 ,0.03021 ,0.00060 ,0.00022 ,-0.00002 ,0.00039 - +,0.14207 ,0.03345 ,0.02614 ,0.00057 ,0.00025 ,0.00002 ,0.00039 - +,0.13398 ,0.03135 ,0.02282 ,0.00054 ,0.00024 ,0.00005 ,0.00037 - +,0.12668 ,0.02946 ,0.02007 ,0.00054 ,0.00020 ,0.00005 ,0.00032 - +,0.12025 ,0.02776 ,0.01776 ,0.00047 ,0.00020 ,0.00006 ,0.00032 - +,0.11432 ,0.02624 ,0.01583 ,0.00042 ,0.00021 ,0.00007 ,0.00032 - +,0.10888 ,0.02488 ,0.01419 ,0.00039 ,0.00023 ,0.00008 ,0.00033 - +,0.10383 ,0.02361 ,0.01279 ,0.00038 ,0.00021 ,0.00007 ,0.00030 - +,0.09923 ,0.02246 ,0.01157 ,0.00036 ,0.00019 ,0.00007 ,0.00027 - +,0.09501 ,0.02141 ,0.01052 ,0.00032 ,0.00019 ,0.00006 ,0.00027 - +,0.09109 ,0.02044 ,0.00961 ,0.00031 ,0.00018 ,0.00006 ,0.00027 - +,0.08741 ,0.01953 ,0.00880 ,0.00031 ,0.00017 ,0.00007 ,0.00026/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),K=1,19)/ - + 0.23160 ,0.05556 ,0.09476 ,0.00056 ,-0.00002 ,-0.00006 ,0.00021 - +,0.20742 ,0.04911 ,0.07286 ,0.00059 ,0.00009 ,-0.00006 ,0.00030 - +,0.18762 ,0.04403 ,0.05736 ,0.00059 ,0.00006 ,-0.00006 ,0.00026 - +,0.17172 ,0.03977 ,0.04618 ,0.00049 ,0.00014 ,-0.00004 ,0.00029 - +,0.15797 ,0.03626 ,0.03783 ,0.00045 ,0.00012 ,-0.00003 ,0.00030 - +,0.14610 ,0.03327 ,0.03146 ,0.00045 ,0.00016 ,-0.00003 ,0.00029 - +,0.13606 ,0.03066 ,0.02648 ,0.00038 ,0.00018 ,0.00000 ,0.00028 - +,0.12693 ,0.02843 ,0.02257 ,0.00037 ,0.00017 ,0.00001 ,0.00026 - +,0.11891 ,0.02647 ,0.01940 ,0.00034 ,0.00016 ,0.00001 ,0.00025 - +,0.11179 ,0.02472 ,0.01682 ,0.00031 ,0.00016 ,0.00001 ,0.00024 - +,0.10536 ,0.02315 ,0.01470 ,0.00032 ,0.00015 ,0.00002 ,0.00021 - +,0.09968 ,0.02176 ,0.01294 ,0.00029 ,0.00016 ,0.00003 ,0.00021 - +,0.09446 ,0.02052 ,0.01147 ,0.00028 ,0.00016 ,0.00005 ,0.00022 - +,0.08967 ,0.01941 ,0.01023 ,0.00026 ,0.00015 ,0.00006 ,0.00023 - +,0.08530 ,0.01836 ,0.00918 ,0.00026 ,0.00014 ,0.00005 ,0.00021 - +,0.08132 ,0.01741 ,0.00828 ,0.00025 ,0.00014 ,0.00004 ,0.00020 - +,0.07766 ,0.01656 ,0.00749 ,0.00024 ,0.00015 ,0.00006 ,0.00020 - +,0.07430 ,0.01577 ,0.00682 ,0.00022 ,0.00015 ,0.00006 ,0.00018 - +,0.07120 ,0.01505 ,0.00623 ,0.00019 ,0.00013 ,0.00005 ,0.00016/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),K=1,19)/ - + 0.19818 ,0.04485 ,0.07492 ,0.00028 ,0.00000 ,-0.00006 ,0.00013 - +,0.17615 ,0.03945 ,0.05676 ,0.00038 ,0.00006 ,-0.00004 ,0.00018 - +,0.15892 ,0.03506 ,0.04418 ,0.00032 ,0.00007 ,-0.00004 ,0.00018 - +,0.14440 ,0.03156 ,0.03513 ,0.00029 ,0.00011 ,-0.00005 ,0.00018 - +,0.13226 ,0.02863 ,0.02853 ,0.00030 ,0.00012 ,-0.00002 ,0.00019 - +,0.12198 ,0.02615 ,0.02355 ,0.00026 ,0.00014 ,0.00000 ,0.00021 - +,0.11289 ,0.02402 ,0.01965 ,0.00025 ,0.00012 ,-0.00001 ,0.00019 - +,0.10501 ,0.02217 ,0.01658 ,0.00023 ,0.00010 ,0.00000 ,0.00016 - +,0.09803 ,0.02057 ,0.01416 ,0.00022 ,0.00011 ,0.00001 ,0.00016 - +,0.09182 ,0.01915 ,0.01221 ,0.00022 ,0.00012 ,0.00002 ,0.00017 - +,0.08630 ,0.01788 ,0.01061 ,0.00020 ,0.00011 ,0.00003 ,0.00016 - +,0.08143 ,0.01676 ,0.00929 ,0.00016 ,0.00011 ,0.00003 ,0.00016 - +,0.07700 ,0.01575 ,0.00819 ,0.00014 ,0.00011 ,0.00003 ,0.00016 - +,0.07297 ,0.01484 ,0.00727 ,0.00012 ,0.00012 ,0.00004 ,0.00015 - +,0.06925 ,0.01401 ,0.00649 ,0.00012 ,0.00011 ,0.00005 ,0.00015 - +,0.06586 ,0.01327 ,0.00583 ,0.00012 ,0.00011 ,0.00005 ,0.00014 - +,0.06270 ,0.01259 ,0.00526 ,0.00012 ,0.00011 ,0.00006 ,0.00014 - +,0.05982 ,0.01197 ,0.00477 ,0.00011 ,0.00010 ,0.00005 ,0.00014 - +,0.05719 ,0.01139 ,0.00434 ,0.00010 ,0.00010 ,0.00005 ,0.00014/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),K=1,19)/ - + 0.16730 ,0.03579 ,0.05865 ,0.00023 ,-0.00003 ,-0.00006 ,0.00005 - +,0.14795 ,0.03128 ,0.04379 ,0.00029 ,0.00001 ,-0.00007 ,0.00005 - +,0.13260 ,0.02765 ,0.03373 ,0.00023 ,0.00002 ,-0.00006 ,0.00009 - +,0.11993 ,0.02476 ,0.02657 ,0.00022 ,0.00004 ,-0.00004 ,0.00010 - +,0.10940 ,0.02237 ,0.02135 ,0.00019 ,0.00007 ,-0.00004 ,0.00012 - +,0.10043 ,0.02034 ,0.01746 ,0.00015 ,0.00008 ,-0.00003 ,0.00010 - +,0.09246 ,0.01862 ,0.01448 ,0.00019 ,0.00006 ,-0.00004 ,0.00009 - +,0.08576 ,0.01712 ,0.01215 ,0.00017 ,0.00006 ,-0.00002 ,0.00010 - +,0.07996 ,0.01583 ,0.01030 ,0.00013 ,0.00008 ,0.00000 ,0.00010 - +,0.07475 ,0.01469 ,0.00882 ,0.00010 ,0.00008 ,0.00000 ,0.00010 - +,0.06999 ,0.01369 ,0.00763 ,0.00010 ,0.00007 ,0.00000 ,0.00010 - +,0.06573 ,0.01280 ,0.00665 ,0.00011 ,0.00006 ,0.00000 ,0.00010 - +,0.06193 ,0.01199 ,0.00584 ,0.00011 ,0.00007 ,0.00002 ,0.00010 - +,0.05853 ,0.01126 ,0.00516 ,0.00010 ,0.00007 ,0.00003 ,0.00010 - +,0.05538 ,0.01061 ,0.00459 ,0.00010 ,0.00006 ,0.00002 ,0.00009 - +,0.05253 ,0.01003 ,0.00410 ,0.00009 ,0.00005 ,0.00001 ,0.00008 - +,0.04998 ,0.00948 ,0.00369 ,0.00008 ,0.00005 ,0.00001 ,0.00007 - +,0.04762 ,0.00900 ,0.00333 ,0.00007 ,0.00005 ,0.00002 ,0.00006 - +,0.04540 ,0.00855 ,0.00302 ,0.00007 ,0.00006 ,0.00002 ,0.00007/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),K=1,19)/ - + 0.13877 ,0.02785 ,0.04501 ,0.00015 ,0.00001 ,-0.00002 ,0.00005 - +,0.12216 ,0.02422 ,0.03324 ,0.00015 ,-0.00001 ,-0.00003 ,0.00005 - +,0.10894 ,0.02135 ,0.02532 ,0.00013 ,0.00003 ,0.00000 ,0.00006 - +,0.09797 ,0.01902 ,0.01976 ,0.00013 ,0.00003 ,-0.00001 ,0.00006 - +,0.08889 ,0.01712 ,0.01575 ,0.00014 ,0.00002 ,-0.00002 ,0.00005 - +,0.08131 ,0.01551 ,0.01276 ,0.00013 ,0.00004 ,-0.00001 ,0.00005 - +,0.07462 ,0.01415 ,0.01052 ,0.00015 ,0.00003 ,-0.00001 ,0.00004 - +,0.06905 ,0.01298 ,0.00876 ,0.00010 ,0.00004 ,0.00000 ,0.00006 - +,0.06410 ,0.01196 ,0.00738 ,0.00008 ,0.00005 ,0.00001 ,0.00007 - +,0.05966 ,0.01106 ,0.00628 ,0.00009 ,0.00005 ,0.00001 ,0.00006 - +,0.05569 ,0.01028 ,0.00540 ,0.00010 ,0.00005 ,0.00001 ,0.00005 - +,0.05225 ,0.00959 ,0.00468 ,0.00007 ,0.00003 ,0.00000 ,0.00004 - +,0.04911 ,0.00897 ,0.00409 ,0.00006 ,0.00003 ,0.00000 ,0.00004 - +,0.04625 ,0.00841 ,0.00359 ,0.00006 ,0.00003 ,0.00000 ,0.00004 - +,0.04367 ,0.00790 ,0.00318 ,0.00007 ,0.00003 ,0.00001 ,0.00004 - +,0.04134 ,0.00745 ,0.00283 ,0.00008 ,0.00003 ,0.00001 ,0.00004 - +,0.03922 ,0.00704 ,0.00254 ,0.00006 ,0.00003 ,0.00001 ,0.00004 - +,0.03727 ,0.00666 ,0.00229 ,0.00006 ,0.00003 ,0.00001 ,0.00004 - +,0.03549 ,0.00632 ,0.00207 ,0.00005 ,0.00003 ,0.00001 ,0.00003/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),K=1,19)/ - + 0.09089 ,0.01597 ,0.02520 ,0.00003 ,-0.00001 ,-0.00002 ,-0.00001 - +,0.07880 ,0.01370 ,0.01808 ,0.00003 ,0.00001 ,-0.00003 ,0.00003 - +,0.06934 ,0.01190 ,0.01339 ,0.00005 ,0.00001 ,-0.00002 ,0.00001 - +,0.06173 ,0.01050 ,0.01019 ,0.00005 ,0.00001 ,-0.00001 ,0.00002 - +,0.05545 ,0.00935 ,0.00794 ,0.00005 ,0.00002 ,0.00000 ,0.00003 - +,0.05028 ,0.00839 ,0.00633 ,0.00002 ,0.00002 ,-0.00001 ,0.00003 - +,0.04578 ,0.00759 ,0.00511 ,0.00004 ,0.00001 ,0.00000 ,0.00003 - +,0.04196 ,0.00690 ,0.00418 ,0.00003 ,0.00002 ,0.00000 ,0.00003 - +,0.03863 ,0.00631 ,0.00347 ,0.00002 ,0.00002 ,0.00000 ,0.00003 - +,0.03570 ,0.00580 ,0.00292 ,0.00003 ,0.00002 ,0.00000 ,0.00003 - +,0.03313 ,0.00535 ,0.00247 ,0.00003 ,0.00002 ,0.00001 ,0.00003 - +,0.03084 ,0.00496 ,0.00212 ,0.00002 ,0.00002 ,0.00001 ,0.00002 - +,0.02880 ,0.00461 ,0.00183 ,0.00003 ,0.00002 ,0.00001 ,0.00002 - +,0.02699 ,0.00430 ,0.00159 ,0.00003 ,0.00002 ,0.00001 ,0.00002 - +,0.02537 ,0.00402 ,0.00139 ,0.00001 ,0.00002 ,0.00000 ,0.00002 - +,0.02391 ,0.00376 ,0.00123 ,0.00001 ,0.00002 ,0.00000 ,0.00002 - +,0.02256 ,0.00354 ,0.00109 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02133 ,0.00333 ,0.00097 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02019 ,0.00315 ,0.00087 ,0.00001 ,0.00001 ,0.00000 ,0.00001/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),K=1,19)/ - + 0.05469 ,0.00832 ,0.01298 ,0.00002 ,-0.00001 ,-0.00001 ,-0.00001 - +,0.04677 ,0.00702 ,0.00900 ,0.00001 ,-0.00001 ,-0.00001 ,0.00000 - +,0.04064 ,0.00603 ,0.00648 ,0.00001 ,0.00000 ,-0.00001 ,0.00001 - +,0.03573 ,0.00525 ,0.00480 ,0.00002 ,0.00001 ,0.00000 ,0.00001 - +,0.03174 ,0.00462 ,0.00366 ,0.00002 ,0.00001 ,0.00000 ,0.00001 - +,0.02852 ,0.00411 ,0.00285 ,0.00000 ,0.00000 ,-0.00001 ,0.00001 - +,0.02573 ,0.00368 ,0.00226 ,0.00000 ,0.00001 ,0.00000 ,0.00001 - +,0.02335 ,0.00332 ,0.00182 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02131 ,0.00301 ,0.00148 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.01954 ,0.00275 ,0.00123 ,0.00001 ,0.00001 ,0.00001 ,0.00001 - +,0.01800 ,0.00252 ,0.00102 ,0.00001 ,0.00001 ,0.00001 ,0.00001 - +,0.01665 ,0.00231 ,0.00087 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.01546 ,0.00213 ,0.00074 ,0.00000 ,0.00001 ,0.00000 ,0.00001 - +,0.01441 ,0.00198 ,0.00064 ,0.00000 ,0.00001 ,0.00000 ,0.00001 - +,0.01344 ,0.00184 ,0.00055 ,0.00000 ,0.00000 ,0.00000 ,0.00001 - +,0.01257 ,0.00172 ,0.00048 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01179 ,0.00160 ,0.00042 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01109 ,0.00150 ,0.00037 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01045 ,0.00141 ,0.00033 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),K=1,19)/ - + 0.02926 ,0.00377 ,0.00589 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.02464 ,0.00313 ,0.00394 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.02110 ,0.00265 ,0.00275 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01832 ,0.00228 ,0.00199 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01608 ,0.00199 ,0.00148 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01427 ,0.00175 ,0.00112 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01274 ,0.00155 ,0.00087 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01146 ,0.00138 ,0.00069 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01038 ,0.00124 ,0.00055 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00944 ,0.00113 ,0.00045 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00861 ,0.00102 ,0.00037 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00790 ,0.00093 ,0.00031 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00728 ,0.00086 ,0.00026 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00673 ,0.00079 ,0.00022 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00624 ,0.00073 ,0.00019 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00580 ,0.00067 ,0.00016 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00541 ,0.00063 ,0.00014 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00506 ,0.00058 ,0.00012 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00475 ,0.00054 ,0.00011 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),K=1,19)/ - + 0.01335 ,0.00141 ,0.00225 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01102 ,0.00115 ,0.00144 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00926 ,0.00096 ,0.00097 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00791 ,0.00081 ,0.00067 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00685 ,0.00069 ,0.00049 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00599 ,0.00060 ,0.00036 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00528 ,0.00053 ,0.00027 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00470 ,0.00047 ,0.00021 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00421 ,0.00041 ,0.00016 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00379 ,0.00037 ,0.00013 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00343 ,0.00033 ,0.00011 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00311 ,0.00030 ,0.00009 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00284 ,0.00027 ,0.00007 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00261 ,0.00025 ,0.00006 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00240 ,0.00023 ,0.00005 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00221 ,0.00021 ,0.00004 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00205 ,0.00019 ,0.00004 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00191 ,0.00018 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00177 ,0.00017 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),K=1,19)/ - + 0.00104 ,0.00006 ,0.00011 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00081 ,0.00005 ,0.00006 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00065 ,0.00004 ,0.00004 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00053 ,0.00003 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00044 ,0.00003 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00037 ,0.00002 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00032 ,0.00002 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00028 ,0.00002 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00024 ,0.00001 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00021 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00018 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00016 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00015 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00013 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00012 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00011 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00010 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00009 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00008 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,4,5,0,0,5/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C -C - XSAVE=X -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(37,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M) -C 1=UV 2=DV 3=GLUE 4=(UBAR+DBAR)/2 5=CBAR 7=BBAR 6=SBAR - DO 25 I=1,7 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=1,6 - DO 30 K=1,19 - 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) - 50 FORMAT(7F10.5) - DO 40 I=1,7 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,7 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) -C... THIS SEA IS (UBAR+DBAR)/2 - SEA=G(4) - STR=G(6) - CHM=G(5) - GL =G(3) - BOT=G(7) -C - X=XSAVE -C - RETURN - END diff --git a/PDF/spdf/strkb04.F b/PDF/spdf/strkb04.F deleted file mode 100644 index 0cd1fe269bd..00000000000 --- a/PDF/spdf/strkb04.F +++ /dev/null @@ -1,1015 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:38 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:02 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C -C----------------------------------------------------------------------- - SUBROUTINE STRKB04(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C -C :::::::::::: MRS (B200) sea=ubar=dbar=2sbar at Q0**2 -C -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(7,NX,19),G(7),XX(NX),N0(7) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),K=1,19)/ - + 0.01601 ,0.00113 ,4.49284 ,0.26005 ,0.04081 ,0.00000 ,0.15134 - +,0.01614 ,0.00129 ,10.73363 ,0.42619 ,0.20718 ,0.00000 ,0.31770 - +,0.01628 ,0.00143 ,18.92397 ,0.64368 ,0.42487 ,0.00000 ,0.53538 - +,0.01642 ,0.00157 ,28.96361 ,0.90986 ,0.69123 ,0.00000 ,0.80175 - +,0.01656 ,0.00170 ,40.47527 ,1.21721 ,0.99875 ,0.03119 ,1.10928 - +,0.01671 ,0.00183 ,53.45081 ,1.56584 ,1.34753 ,0.27189 ,1.45806 - +,0.01685 ,0.00195 ,67.75037 ,1.95368 ,1.73551 ,0.69005 ,1.84605 - +,0.01699 ,0.00207 ,83.25145 ,2.37856 ,2.16052 ,1.12111 ,2.27107 - +,0.01714 ,0.00219 ,99.83801 ,2.83795 ,2.62004 ,1.59034 ,2.73059 - +,0.01728 ,0.00230,117.36977 ,3.32895 ,3.11115 ,2.08967 ,3.22171 - +,0.01742 ,0.00242,135.56931 ,3.84503 ,3.62733 ,2.61375 ,3.73791 - +,0.01756 ,0.00253,154.57655 ,4.38949 ,4.17190 ,3.16573 ,4.28248 - +,0.01770 ,0.00263,174.36885 ,4.96187 ,4.74437 ,3.74518 ,4.85497 - +,0.01784 ,0.00274,194.54811 ,5.55247 ,5.33507 ,4.34251 ,5.44567 - +,0.01798 ,0.00284,215.25745 ,6.16469 ,5.94737 ,4.96110 ,6.05798 - +,0.01811 ,0.00294,236.59496 ,6.80090 ,6.58366 ,5.60337 ,6.69428 - +,0.01825 ,0.00304,257.96826 ,7.44642 ,7.22926 ,6.25469 ,7.33989 - +,0.01838 ,0.00314,280.05762 ,8.11794 ,7.90085 ,6.93173 ,8.01148 - +,0.01851 ,0.00324,302.00146 ,8.79381 ,8.57678 ,7.61291 ,8.68743/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),K=1,19)/ - + 0.01921 ,0.00177 ,4.36862 ,0.25768 ,0.03766 ,0.00000 ,0.14824 - +,0.01947 ,0.00200 ,9.83226 ,0.40629 ,0.18645 ,0.00000 ,0.29701 - +,0.01973 ,0.00221 ,16.71713 ,0.59431 ,0.37462 ,0.00000 ,0.48518 - +,0.01998 ,0.00242 ,24.90436 ,0.81854 ,0.59898 ,0.00000 ,0.70953 - +,0.02023 ,0.00261 ,34.06500 ,1.07211 ,0.85268 ,0.02555 ,0.96323 - +,0.02047 ,0.00280 ,44.18079 ,1.35473 ,1.13541 ,0.22041 ,1.24595 - +,0.02070 ,0.00298 ,55.13132 ,1.66437 ,1.44517 ,0.55551 ,1.55571 - +,0.02093 ,0.00316 ,66.81541 ,1.99903 ,1.77992 ,0.89582 ,1.89046 - +,0.02115 ,0.00333 ,79.14085 ,2.35650 ,2.13749 ,1.26188 ,2.24803 - +,0.02137 ,0.00349 ,92.00114 ,2.73438 ,2.51545 ,1.64708 ,2.62599 - +,0.02158 ,0.00366,105.19052 ,3.12753 ,2.90870 ,2.04725 ,3.01924 - +,0.02179 ,0.00381,118.81718 ,3.53850 ,3.31974 ,2.46480 ,3.43029 - +,0.02200 ,0.00397,132.86591 ,3.96685 ,3.74817 ,2.89936 ,3.85871 - +,0.02220 ,0.00412,147.04938 ,4.40524 ,4.18662 ,3.34363 ,4.29717 - +,0.02240 ,0.00427,161.47781 ,4.85626 ,4.63771 ,3.80024 ,4.74826 - +,0.02259 ,0.00441,176.22449 ,5.32170 ,5.10322 ,4.27100 ,5.21377 - +,0.02278 ,0.00456,190.87038 ,5.79066 ,5.57224 ,4.74504 ,5.68280 - +,0.02297 ,0.00470,205.90395 ,6.27558 ,6.05722 ,5.23480 ,6.16778 - +,0.02316 ,0.00483,220.72157 ,6.76053 ,6.54223 ,5.72440 ,6.65279/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),K=1,19)/ - + 0.02293 ,0.00277 ,4.24751 ,0.25517 ,0.03454 ,0.00000 ,0.14516 - +,0.02337 ,0.00311 ,9.00519 ,0.38734 ,0.16685 ,0.00000 ,0.27744 - +,0.02380 ,0.00343 ,14.76426 ,0.54906 ,0.32868 ,0.00000 ,0.43925 - +,0.02419 ,0.00373 ,21.40784 ,0.73700 ,0.51674 ,0.00000 ,0.62729 - +,0.02458 ,0.00402 ,28.66034 ,0.94522 ,0.72505 ,0.02084 ,0.83559 - +,0.02494 ,0.00429 ,36.50473 ,1.17325 ,0.95317 ,0.17791 ,1.06369 - +,0.02529 ,0.00456 ,44.84436 ,1.41930 ,1.19931 ,0.44531 ,1.30982 - +,0.02563 ,0.00481 ,53.60062 ,1.68165 ,1.46174 ,0.71283 ,1.57223 - +,0.02596 ,0.00506 ,62.70523 ,1.95849 ,1.73865 ,0.99716 ,1.84914 - +,0.02628 ,0.00530 ,72.08049 ,2.24790 ,2.02814 ,1.29303 ,2.13861 - +,0.02660 ,0.00553 ,81.57732 ,2.54595 ,2.32626 ,1.59723 ,2.43672 - +,0.02690 ,0.00576 ,91.28162 ,2.85461 ,2.63498 ,1.91168 ,2.74543 - +,0.02720 ,0.00598,101.18562 ,3.17355 ,2.95399 ,2.23608 ,3.06444 - +,0.02749 ,0.00620,111.08437 ,3.49728 ,3.27778 ,2.56498 ,3.38822 - +,0.02777 ,0.00641,121.06349 ,3.82782 ,3.60837 ,2.90042 ,3.71880 - +,0.02804 ,0.00662,131.17966 ,4.16653 ,3.94715 ,3.24380 ,4.05756 - +,0.02832 ,0.00682,141.13792 ,4.50539 ,4.28606 ,3.58712 ,4.39647 - +,0.02858 ,0.00702,151.28998 ,4.85367 ,4.63439 ,3.93964 ,4.74479 - +,0.02884 ,0.00721,161.21408 ,5.19969 ,4.98046 ,4.28975 ,5.09085/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),K=1,19)/ - + 0.02536 ,0.00359 ,4.17797 ,0.25363 ,0.03273 ,0.00000 ,0.14336 - +,0.02594 ,0.00402 ,8.55292 ,0.37666 ,0.15589 ,0.00000 ,0.26648 - +,0.02648 ,0.00443 ,13.72686 ,0.52432 ,0.30365 ,0.00000 ,0.41422 - +,0.02698 ,0.00481 ,19.59004 ,0.69339 ,0.47282 ,0.00000 ,0.58336 - +,0.02747 ,0.00516 ,25.89842 ,0.87845 ,0.65798 ,0.01846 ,0.76849 - +,0.02792 ,0.00551 ,32.63853 ,1.07907 ,0.85868 ,0.15659 ,0.96917 - +,0.02836 ,0.00584 ,39.72789 ,1.29361 ,1.07331 ,0.39039 ,1.18377 - +,0.02879 ,0.00616 ,47.10081 ,1.52055 ,1.30032 ,0.62224 ,1.41077 - +,0.02920 ,0.00646 ,54.70134 ,1.75832 ,1.53816 ,0.86694 ,1.64859 - +,0.02959 ,0.00676 ,62.46690 ,2.00527 ,1.78518 ,1.11989 ,1.89559 - +,0.02998 ,0.00705 ,70.27524 ,2.25806 ,2.03804 ,1.37840 ,2.14843 - +,0.03035 ,0.00733 ,78.20190 ,2.51841 ,2.29845 ,1.64412 ,2.40883 - +,0.03071 ,0.00761 ,86.24289 ,2.78607 ,2.56617 ,1.91684 ,2.67653 - +,0.03107 ,0.00787 ,94.23122 ,3.05642 ,2.83658 ,2.19198 ,2.94692 - +,0.03141 ,0.00813,102.24118 ,3.33121 ,3.11143 ,2.47133 ,3.22175 - +,0.03175 ,0.00839,110.32138 ,3.61165 ,3.39192 ,2.75610 ,3.50223 - +,0.03208 ,0.00863,118.23312 ,3.89101 ,3.67133 ,3.03959 ,3.78162 - +,0.03239 ,0.00887,126.26607 ,4.17711 ,3.95749 ,3.32964 ,4.06776 - +,0.03271 ,0.00911,134.07884 ,4.46024 ,4.24067 ,3.61655 ,4.35093/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),K=1,19)/ - + 0.02721 ,0.00432 ,4.12914 ,0.25250 ,0.03145 ,0.00000 ,0.14208 - +,0.02789 ,0.00483 ,8.24512 ,0.36925 ,0.14833 ,0.00000 ,0.25892 - +,0.02853 ,0.00531 ,13.03355 ,0.50749 ,0.28667 ,0.00000 ,0.39722 - +,0.02912 ,0.00575 ,18.39163 ,0.66411 ,0.44339 ,0.00000 ,0.55391 - +,0.02968 ,0.00617 ,24.09703 ,0.83411 ,0.61349 ,0.01691 ,0.72397 - +,0.03022 ,0.00657 ,30.13980 ,1.01706 ,0.79652 ,0.14286 ,0.90698 - +,0.03073 ,0.00696 ,36.44701 ,1.21147 ,0.99101 ,0.35517 ,1.10144 - +,0.03122 ,0.00733 ,42.96191 ,1.41595 ,1.19556 ,0.56439 ,1.30597 - +,0.03169 ,0.00769 ,49.63667 ,1.62910 ,1.40879 ,0.78410 ,1.51916 - +,0.03215 ,0.00804 ,56.41800 ,1.84945 ,1.62921 ,1.01015 ,1.73956 - +,0.03259 ,0.00837 ,63.20023 ,2.07405 ,1.85388 ,1.24017 ,1.96420 - +,0.03302 ,0.00870 ,70.05295 ,2.30445 ,2.08434 ,1.47567 ,2.19464 - +,0.03344 ,0.00902 ,76.97444 ,2.54046 ,2.32042 ,1.71649 ,2.43070 - +,0.03385 ,0.00932 ,83.82050 ,2.77801 ,2.55802 ,1.95859 ,2.66828 - +,0.03424 ,0.00962 ,90.65837 ,3.01868 ,2.79876 ,2.20359 ,2.90899 - +,0.03463 ,0.00992 ,97.53215 ,3.26358 ,3.04371 ,2.45260 ,3.15393 - +,0.03500 ,0.01020,104.23604 ,3.50679 ,3.28698 ,2.69973 ,3.39717 - +,0.03537 ,0.01048,111.02315 ,3.75522 ,3.53547 ,2.95191 ,3.64564 - +,0.03573 ,0.01075,117.59990 ,4.00041 ,3.78071 ,3.20069 ,3.89086/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),K=1,19)/ - + 0.02871 ,0.00499 ,4.09152 ,0.25160 ,0.03046 ,0.00000 ,0.14109 - +,0.02948 ,0.00557 ,8.01347 ,0.36360 ,0.14258 ,0.00000 ,0.25317 - +,0.03020 ,0.00611 ,12.51871 ,0.49483 ,0.27392 ,0.00000 ,0.38447 - +,0.03087 ,0.00661 ,17.51051 ,0.64231 ,0.42151 ,0.00000 ,0.53201 - +,0.03150 ,0.00709 ,22.78313 ,0.80134 ,0.58063 ,0.01579 ,0.69110 - +,0.03210 ,0.00754 ,28.32939 ,0.97152 ,0.75090 ,0.13295 ,0.86133 - +,0.03267 ,0.00798 ,34.08382 ,1.15147 ,0.93094 ,0.32982 ,1.04133 - +,0.03322 ,0.00839 ,39.99582 ,1.33992 ,1.11946 ,0.52286 ,1.22982 - +,0.03375 ,0.00880 ,46.02385 ,1.53557 ,1.31519 ,0.72482 ,1.42552 - +,0.03426 ,0.00919 ,52.12108 ,1.73711 ,1.51680 ,0.93182 ,1.62710 - +,0.03476 ,0.00956 ,58.19353 ,1.94183 ,1.72160 ,1.14176 ,1.83186 - +,0.03523 ,0.00993 ,64.30652 ,2.15120 ,1.93104 ,1.35603 ,2.04127 - +,0.03570 ,0.01029 ,70.45978 ,2.36507 ,2.14497 ,1.57451 ,2.25518 - +,0.03615 ,0.01063 ,76.52502 ,2.57973 ,2.35970 ,1.79356 ,2.46988 - +,0.03659 ,0.01097 ,82.56435 ,2.79667 ,2.57670 ,2.01466 ,2.68686 - +,0.03702 ,0.01129 ,88.61867 ,3.01691 ,2.79700 ,2.23885 ,2.90713 - +,0.03743 ,0.01161 ,94.50508 ,3.23511 ,3.01526 ,2.46082 ,3.12536 - +,0.03784 ,0.01193,100.45096 ,3.45757 ,3.23778 ,2.68687 ,3.34785 - +,0.03824 ,0.01223,106.19576 ,3.67661 ,3.45688 ,2.90937 ,3.56692/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),K=1,19)/ - + 0.03380 ,0.00780 ,3.97568 ,0.24869 ,0.02740 ,0.00000 ,0.13803 - +,0.03490 ,0.00866 ,7.33022 ,0.34653 ,0.12540 ,0.00000 ,0.23595 - +,0.03592 ,0.00945 ,11.03598 ,0.45756 ,0.23658 ,0.00000 ,0.34706 - +,0.03686 ,0.01019 ,15.01740 ,0.57926 ,0.35840 ,0.00000 ,0.46882 - +,0.03775 ,0.01088 ,19.11707 ,0.70784 ,0.48710 ,0.01270 ,0.59746 - +,0.03859 ,0.01154 ,23.33728 ,0.84304 ,0.62242 ,0.10582 ,0.73272 - +,0.03939 ,0.01217 ,27.63356 ,0.98381 ,0.76330 ,0.26078 ,0.87354 - +,0.04016 ,0.01278 ,31.97305 ,1.12921 ,0.90880 ,0.41042 ,1.01899 - +,0.04090 ,0.01335 ,36.33020 ,1.27830 ,1.05800 ,0.56507 ,1.16813 - +,0.04161 ,0.01391 ,40.67572 ,1.43013 ,1.20993 ,0.72176 ,1.32001 - +,0.04230 ,0.01445 ,44.94588 ,1.58275 ,1.36264 ,0.87900 ,1.47267 - +,0.04296 ,0.01497 ,49.19397 ,1.73732 ,1.51731 ,1.03792 ,1.62729 - +,0.04360 ,0.01548 ,53.42380 ,1.89380 ,1.67388 ,1.19850 ,1.78381 - +,0.04422 ,0.01596 ,57.54688 ,2.04950 ,1.82968 ,1.35809 ,1.93956 - +,0.04483 ,0.01644 ,61.61209 ,2.20561 ,1.98588 ,1.51789 ,2.09571 - +,0.04541 ,0.01690 ,65.65157 ,2.36294 ,2.14330 ,1.67874 ,2.25308 - +,0.04599 ,0.01735 ,69.53961 ,2.51763 ,2.29807 ,1.83678 ,2.40781 - +,0.04654 ,0.01778 ,73.43867 ,2.67436 ,2.45489 ,1.99671 ,2.56458 - +,0.04709 ,0.01821 ,77.16974 ,2.82759 ,2.60820 ,2.15301 ,2.71785/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),K=1,19)/ - + 0.03966 ,0.01219 ,3.86019 ,0.24559 ,0.02439 ,0.00000 ,0.13497 - +,0.04119 ,0.01345 ,6.69478 ,0.33016 ,0.10918 ,0.00000 ,0.21965 - +,0.04260 ,0.01461 ,9.70655 ,0.42315 ,0.20239 ,0.00000 ,0.31275 - +,0.04391 ,0.01569 ,12.84215 ,0.52255 ,0.30199 ,0.00000 ,0.41225 - +,0.04514 ,0.01670 ,15.98720 ,0.62545 ,0.40507 ,0.01012 ,0.51524 - +,0.04629 ,0.01765 ,19.15292 ,0.73174 ,0.51154 ,0.08346 ,0.62162 - +,0.04740 ,0.01855 ,22.31244 ,0.84068 ,0.62064 ,0.20431 ,0.73064 - +,0.04846 ,0.01941 ,25.44749 ,0.95162 ,0.73175 ,0.31919 ,0.84166 - +,0.04947 ,0.02024 ,28.54494 ,1.06393 ,0.84422 ,0.43644 ,0.95405 - +,0.05045 ,0.02103 ,31.58862 ,1.17698 ,0.95743 ,0.55385 ,1.06717 - +,0.05139 ,0.02179 ,34.53687 ,1.28936 ,1.06996 ,0.67037 ,1.17962 - +,0.05229 ,0.02252 ,37.43344 ,1.40205 ,1.18281 ,0.78696 ,1.29239 - +,0.05317 ,0.02323 ,40.28442 ,1.51509 ,1.29599 ,0.90368 ,1.40550 - +,0.05402 ,0.02392 ,43.03040 ,1.62655 ,1.40760 ,1.01862 ,1.51703 - +,0.05485 ,0.02458 ,45.70935 ,1.73739 ,1.51857 ,1.13277 ,1.62793 - +,0.05565 ,0.02522 ,48.34656 ,1.84825 ,1.62957 ,1.24678 ,1.73885 - +,0.05643 ,0.02584 ,50.85667 ,1.95637 ,1.73783 ,1.35792 ,1.84704 - +,0.05718 ,0.02645 ,53.35506 ,2.06522 ,1.84682 ,1.46965 ,1.95596 - +,0.05792 ,0.02703 ,55.72005 ,2.17083 ,1.95256 ,1.57802 ,2.06163/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),K=1,19)/ - + 0.04364 ,0.01583 ,3.79181 ,0.24371 ,0.02265 ,0.00000 ,0.13317 - +,0.04548 ,0.01741 ,6.34069 ,0.32088 ,0.10012 ,0.00000 ,0.21050 - +,0.04717 ,0.01885 ,8.98723 ,0.40420 ,0.18372 ,0.00000 ,0.29397 - +,0.04875 ,0.02019 ,11.69082 ,0.49196 ,0.27174 ,0.00000 ,0.38186 - +,0.05023 ,0.02143 ,14.35955 ,0.58170 ,0.36172 ,0.00881 ,0.47172 - +,0.05163 ,0.02260 ,17.00919 ,0.67342 ,0.45367 ,0.07222 ,0.56355 - +,0.05296 ,0.02371 ,19.62163 ,0.76653 ,0.54700 ,0.17609 ,0.65678 - +,0.05423 ,0.02477 ,22.18552 ,0.86054 ,0.64124 ,0.27389 ,0.75090 - +,0.05545 ,0.02577 ,24.69341 ,0.95498 ,0.73589 ,0.37297 ,0.84545 - +,0.05662 ,0.02674 ,27.13507 ,1.04936 ,0.83048 ,0.47147 ,0.93994 - +,0.05775 ,0.02766 ,29.47906 ,1.14256 ,0.92389 ,0.56857 ,1.03323 - +,0.05884 ,0.02855 ,31.76392 ,1.23545 ,1.01698 ,0.66514 ,1.12622 - +,0.05989 ,0.02941 ,33.99680 ,1.32810 ,1.10983 ,0.76126 ,1.21898 - +,0.06091 ,0.03024 ,36.13087 ,1.41895 ,1.20087 ,0.85540 ,1.30992 - +,0.06190 ,0.03103 ,38.19913 ,1.50883 ,1.29094 ,0.94842 ,1.39989 - +,0.06286 ,0.03181 ,40.22319 ,1.59833 ,1.38061 ,1.04089 ,1.48948 - +,0.06379 ,0.03255 ,42.13570 ,1.68517 ,1.46764 ,1.13058 ,1.57641 - +,0.06470 ,0.03328 ,44.03050 ,1.77226 ,1.55491 ,1.22039 ,1.66359 - +,0.06558 ,0.03398 ,45.81139 ,1.85636 ,1.63919 ,1.30711 ,1.74777/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),K=1,19)/ - + 0.04686 ,0.01905 ,3.74238 ,0.24233 ,0.02143 ,0.00000 ,0.13189 - +,0.04897 ,0.02089 ,6.09534 ,0.31442 ,0.09387 ,0.00000 ,0.20416 - +,0.05091 ,0.02258 ,8.49807 ,0.39124 ,0.17102 ,0.00000 ,0.28116 - +,0.05271 ,0.02413 ,10.91878 ,0.47128 ,0.25138 ,0.00000 ,0.36136 - +,0.05441 ,0.02557 ,13.28029 ,0.55240 ,0.33280 ,0.00796 ,0.44264 - +,0.05600 ,0.02692 ,15.60129 ,0.63466 ,0.41535 ,0.06494 ,0.52505 - +,0.05752 ,0.02820 ,17.86908 ,0.71760 ,0.49857 ,0.15790 ,0.60813 - +,0.05897 ,0.02941 ,20.07661 ,0.80082 ,0.58205 ,0.24482 ,0.69149 - +,0.06037 ,0.03057 ,22.21991 ,0.88394 ,0.66544 ,0.33239 ,0.77474 - +,0.06170 ,0.03167 ,24.29219 ,0.96658 ,0.74833 ,0.41898 ,0.85751 - +,0.06299 ,0.03273 ,26.26810 ,1.04777 ,0.82977 ,0.50394 ,0.93883 - +,0.06423 ,0.03374 ,28.18285 ,1.12833 ,0.91058 ,0.58804 ,1.01952 - +,0.06543 ,0.03472 ,30.04391 ,1.20836 ,0.99085 ,0.67141 ,1.09966 - +,0.06659 ,0.03566 ,31.81236 ,1.28650 ,1.06923 ,0.75273 ,1.17793 - +,0.06771 ,0.03657 ,33.51753 ,1.36352 ,1.14647 ,0.83276 ,1.25506 - +,0.06880 ,0.03745 ,35.17888 ,1.43995 ,1.22313 ,0.91206 ,1.33160 - +,0.06986 ,0.03829 ,36.73981 ,1.51384 ,1.29723 ,0.98870 ,1.40560 - +,0.07088 ,0.03912 ,38.28101 ,1.58772 ,1.37134 ,1.06521 ,1.47960 - +,0.07189 ,0.03991 ,39.72142 ,1.65882 ,1.44265 ,1.13883 ,1.55080/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),K=1,19)/ - + 0.05004 ,0.02200 ,3.70284 ,0.24127 ,0.02050 ,0.00000 ,0.13088 - +,0.05242 ,0.02407 ,5.90432 ,0.30949 ,0.08912 ,0.00000 ,0.19931 - +,0.05460 ,0.02596 ,8.12151 ,0.38140 ,0.16142 ,0.00000 ,0.27142 - +,0.05663 ,0.02769 ,10.32972 ,0.45568 ,0.23606 ,0.00000 ,0.34588 - +,0.05853 ,0.02930 ,12.46370 ,0.53040 ,0.31113 ,0.00733 ,0.42079 - +,0.06032 ,0.03080 ,14.54317 ,0.60569 ,0.38674 ,0.05958 ,0.49624 - +,0.06201 ,0.03222 ,16.56013 ,0.68116 ,0.46254 ,0.14453 ,0.57188 - +,0.06363 ,0.03356 ,18.51025 ,0.75649 ,0.53818 ,0.22350 ,0.64737 - +,0.06519 ,0.03485 ,20.39203 ,0.83138 ,0.61338 ,0.30269 ,0.72241 - +,0.06668 ,0.03607 ,22.20090 ,0.90552 ,0.68781 ,0.38067 ,0.79670 - +,0.06811 ,0.03723 ,23.91515 ,0.97806 ,0.76063 ,0.45685 ,0.86938 - +,0.06949 ,0.03835 ,25.56827 ,1.04975 ,0.83261 ,0.53199 ,0.94122 - +,0.07082 ,0.03943 ,27.16791 ,1.12072 ,0.90386 ,0.60621 ,1.01233 - +,0.07210 ,0.04046 ,28.68063 ,1.18979 ,0.97320 ,0.67837 ,1.08153 - +,0.07335 ,0.04145 ,30.13300 ,1.25767 ,1.04134 ,0.74918 ,1.14954 - +,0.07456 ,0.04241 ,31.54271 ,1.32485 ,1.10878 ,0.81915 ,1.21685 - +,0.07573 ,0.04334 ,32.86098 ,1.38956 ,1.17375 ,0.88654 ,1.28169 - +,0.07686 ,0.04424 ,34.15880 ,1.45412 ,1.23856 ,0.95366 ,1.34637 - +,0.07797 ,0.04510 ,35.36456 ,1.51609 ,1.30078 ,1.01809 ,1.40847/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),K=1,19)/ - + 0.06228 ,0.03439 ,3.57390 ,0.23761 ,0.01762 ,0.00000 ,0.12762 - +,0.06572 ,0.03732 ,5.32820 ,0.29425 ,0.07492 ,0.00000 ,0.18461 - +,0.06887 ,0.03996 ,7.01875 ,0.35194 ,0.13324 ,0.00000 ,0.24262 - +,0.07178 ,0.04238 ,8.64122 ,0.40987 ,0.19175 ,0.00000 ,0.30086 - +,0.07448 ,0.04459 ,10.15988 ,0.46678 ,0.24922 ,0.00560 ,0.35805 - +,0.07702 ,0.04665 ,11.59925 ,0.52293 ,0.30591 ,0.04495 ,0.41448 - +,0.07941 ,0.04858 ,12.96087 ,0.57819 ,0.36168 ,0.10822 ,0.47000 - +,0.08169 ,0.05039 ,14.24767 ,0.63241 ,0.41640 ,0.16594 ,0.52447 - +,0.08387 ,0.05211 ,15.46353 ,0.68548 ,0.46997 ,0.22298 ,0.57779 - +,0.08595 ,0.05374 ,16.60939 ,0.73728 ,0.52224 ,0.27836 ,0.62983 - +,0.08793 ,0.05529 ,17.67403 ,0.78728 ,0.57270 ,0.33175 ,0.68006 - +,0.08984 ,0.05677 ,18.68340 ,0.83609 ,0.62196 ,0.38377 ,0.72910 - +,0.09168 ,0.05818 ,19.64497 ,0.88387 ,0.67018 ,0.43458 ,0.77710 - +,0.09345 ,0.05953 ,20.53847 ,0.92983 ,0.71657 ,0.48343 ,0.82328 - +,0.09515 ,0.06082 ,21.38339 ,0.97454 ,0.76169 ,0.53088 ,0.86820 - +,0.09680 ,0.06207 ,22.19292 ,1.01838 ,0.80594 ,0.57734 ,0.91224 - +,0.09839 ,0.06326 ,22.93652 ,1.06016 ,0.84812 ,0.62163 ,0.95422 - +,0.09994 ,0.06442 ,23.66156 ,1.10153 ,0.88988 ,0.66540 ,0.99579 - +,0.10143 ,0.06553 ,24.32249 ,1.14084 ,0.92957 ,0.70701 ,1.03528/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),K=1,19)/ - + 0.08135 ,0.05369 ,3.42820 ,0.23313 ,0.01483 ,0.00001 ,0.12397 - +,0.08638 ,0.05769 ,4.76422 ,0.27878 ,0.06156 ,0.00002 ,0.17018 - +,0.09092 ,0.06126 ,5.99074 ,0.32357 ,0.10737 ,0.00002 ,0.21549 - +,0.09510 ,0.06447 ,7.11978 ,0.36718 ,0.15194 ,0.00002 ,0.25959 - +,0.09894 ,0.06740 ,8.13843 ,0.40891 ,0.19457 ,0.00417 ,0.30178 - +,0.10252 ,0.07009 ,9.07359 ,0.44912 ,0.23564 ,0.03291 ,0.34243 - +,0.10587 ,0.07259 ,9.93197 ,0.48788 ,0.27523 ,0.07855 ,0.38160 - +,0.10905 ,0.07492 ,10.72131 ,0.52520 ,0.31334 ,0.11937 ,0.41932 - +,0.11206 ,0.07711 ,11.44887 ,0.56108 ,0.34999 ,0.15902 ,0.45560 - +,0.11492 ,0.07918 ,12.11761 ,0.59553 ,0.38520 ,0.19692 ,0.49043 - +,0.11764 ,0.08112 ,12.72341 ,0.62825 ,0.41864 ,0.23290 ,0.52350 - +,0.12023 ,0.08296 ,13.28551 ,0.65977 ,0.45086 ,0.26751 ,0.55537 - +,0.12271 ,0.08472 ,13.81061 ,0.69023 ,0.48200 ,0.30090 ,0.58618 - +,0.12508 ,0.08638 ,14.28776 ,0.71913 ,0.51155 ,0.33258 ,0.61540 - +,0.12736 ,0.08797 ,14.72963 ,0.74689 ,0.53996 ,0.36300 ,0.64349 - +,0.12955 ,0.08948 ,15.14568 ,0.77382 ,0.56752 ,0.39247 ,0.67073 - +,0.13166 ,0.09093 ,15.51767 ,0.79918 ,0.59350 ,0.42026 ,0.69641 - +,0.13370 ,0.09232 ,15.87615 ,0.82408 ,0.61900 ,0.44750 ,0.72161 - +,0.13566 ,0.09364 ,16.19437 ,0.84738 ,0.64288 ,0.47304 ,0.74520/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),K=1,19)/ - + 0.09744 ,0.06954 ,3.32937 ,0.22972 ,0.01322 ,0.00000 ,0.12146 - +,0.10367 ,0.07422 ,4.43512 ,0.26913 ,0.05408 ,0.00001 ,0.16162 - +,0.10928 ,0.07835 ,5.41879 ,0.30692 ,0.09322 ,0.00002 ,0.20009 - +,0.11437 ,0.08206 ,6.30014 ,0.34298 ,0.13056 ,0.00002 ,0.23681 - +,0.11905 ,0.08539 ,7.07526 ,0.37690 ,0.16566 ,0.00345 ,0.27132 - +,0.12338 ,0.08843 ,7.77164 ,0.40910 ,0.19899 ,0.02694 ,0.30409 - +,0.12742 ,0.09125 ,8.39816 ,0.43968 ,0.23066 ,0.06392 ,0.33522 - +,0.13122 ,0.09386 ,8.96366 ,0.46877 ,0.26080 ,0.09658 ,0.36484 - +,0.13480 ,0.09630 ,9.47487 ,0.49644 ,0.28946 ,0.12798 ,0.39301 - +,0.13817 ,0.09860 ,9.93565 ,0.52269 ,0.31668 ,0.15767 ,0.41975 - +,0.14138 ,0.10073 ,10.34595 ,0.54739 ,0.34231 ,0.18562 ,0.44492 - +,0.14442 ,0.10274 ,10.72079 ,0.57094 ,0.36676 ,0.21226 ,0.46891 - +,0.14732 ,0.10466 ,11.06559 ,0.59348 ,0.39019 ,0.23773 ,0.49190 - +,0.15010 ,0.10645 ,11.37157 ,0.61468 ,0.41223 ,0.26171 ,0.51352 - +,0.15275 ,0.10815 ,11.65018 ,0.63488 ,0.43325 ,0.28457 ,0.53414 - +,0.15529 ,0.10979 ,11.90886 ,0.65434 ,0.45350 ,0.30657 ,0.55399 - +,0.15772 ,0.11133 ,12.13562 ,0.67246 ,0.47241 ,0.32713 ,0.57251 - +,0.16006 ,0.11282 ,12.35221 ,0.69016 ,0.49086 ,0.34716 ,0.59059 - +,0.16230 ,0.11422 ,12.53773 ,0.70659 ,0.50803 ,0.36584 ,0.60738/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),K=1,19)/ - + 0.11215 ,0.08341 ,3.25005 ,0.22674 ,0.01208 ,0.00000 ,0.11940 - +,0.11937 ,0.08856 ,4.19910 ,0.26180 ,0.04892 ,0.00001 ,0.15536 - +,0.12583 ,0.09307 ,5.02315 ,0.29481 ,0.08358 ,0.00002 ,0.18921 - +,0.13165 ,0.09709 ,5.74576 ,0.32584 ,0.11617 ,0.00002 ,0.22104 - +,0.13698 ,0.10067 ,6.36874 ,0.35464 ,0.14641 ,0.00298 ,0.25056 - +,0.14188 ,0.10393 ,6.91843 ,0.38167 ,0.17481 ,0.02311 ,0.27827 - +,0.14644 ,0.10692 ,7.40455 ,0.40706 ,0.20151 ,0.05464 ,0.30432 - +,0.15071 ,0.10969 ,7.83628 ,0.43097 ,0.22667 ,0.08219 ,0.32886 - +,0.15470 ,0.11226 ,8.22041 ,0.45351 ,0.25040 ,0.10848 ,0.35200 - +,0.15846 ,0.11467 ,8.56096 ,0.47470 ,0.27276 ,0.13314 ,0.37378 - +,0.16202 ,0.11689 ,8.85890 ,0.49447 ,0.29363 ,0.15619 ,0.39410 - +,0.16538 ,0.11898 ,9.12702 ,0.51317 ,0.31341 ,0.17800 ,0.41334 - +,0.16857 ,0.12096 ,9.37016 ,0.53096 ,0.33223 ,0.19874 ,0.43164 - +,0.17162 ,0.12280 ,9.58167 ,0.54754 ,0.34982 ,0.21813 ,0.44874 - +,0.17452 ,0.12455 ,9.77109 ,0.56324 ,0.36649 ,0.23651 ,0.46492 - +,0.17730 ,0.12622 ,9.94462 ,0.57828 ,0.38246 ,0.25411 ,0.48043 - +,0.17993 ,0.12778 ,10.09286 ,0.59216 ,0.39726 ,0.27046 ,0.49477 - +,0.18248 ,0.12929 ,10.23324 ,0.60566 ,0.41165 ,0.28632 ,0.50872 - +,0.18489 ,0.13071 ,10.34933 ,0.61809 ,0.42494 ,0.30102 ,0.52158/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),K=1,19)/ - + 0.12592 ,0.09589 ,3.18175 ,0.22397 ,0.01121 ,0.00001 ,0.11758 - +,0.13397 ,0.10137 ,4.01335 ,0.25568 ,0.04500 ,0.00002 ,0.15035 - +,0.14111 ,0.10614 ,4.72093 ,0.28509 ,0.07635 ,0.00003 ,0.18074 - +,0.14756 ,0.11035 ,5.32948 ,0.31241 ,0.10546 ,0.00003 ,0.20896 - +,0.15339 ,0.11410 ,5.84684 ,0.33747 ,0.13220 ,0.00266 ,0.23487 - +,0.15873 ,0.11749 ,6.29512 ,0.36075 ,0.15706 ,0.02040 ,0.25894 - +,0.16370 ,0.12057 ,6.68490 ,0.38244 ,0.18025 ,0.04804 ,0.28139 - +,0.16833 ,0.12341 ,7.02620 ,0.40269 ,0.20194 ,0.07202 ,0.30236 - +,0.17266 ,0.12603 ,7.32565 ,0.42161 ,0.22224 ,0.09473 ,0.32198 - +,0.17673 ,0.12847 ,7.58747 ,0.43928 ,0.24124 ,0.11591 ,0.34030 - +,0.18051 ,0.13074 ,7.81245 ,0.45563 ,0.25885 ,0.13558 ,0.35729 - +,0.18410 ,0.13285 ,8.01129 ,0.47101 ,0.27544 ,0.15410 ,0.37327 - +,0.18753 ,0.13483 ,8.18881 ,0.48554 ,0.29114 ,0.17162 ,0.38839 - +,0.19075 ,0.13667 ,8.34080 ,0.49899 ,0.30573 ,0.18792 ,0.40241 - +,0.19381 ,0.13841 ,8.47423 ,0.51163 ,0.31948 ,0.20328 ,0.41561 - +,0.19675 ,0.14007 ,8.59450 ,0.52367 ,0.33259 ,0.21791 ,0.42819 - +,0.19951 ,0.14162 ,8.69373 ,0.53474 ,0.34468 ,0.23146 ,0.43976 - +,0.20218 ,0.14311 ,8.78685 ,0.54546 ,0.35638 ,0.24455 ,0.45097 - +,0.20470 ,0.14450 ,8.86086 ,0.55523 ,0.36713 ,0.25662 ,0.46123/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),K=1,19)/ - + 0.18698 ,0.14605 ,2.91377 ,0.21138 ,0.00849 ,0.00002 ,0.10993 - +,0.19768 ,0.15199 ,3.40705 ,0.23272 ,0.03319 ,0.00002 ,0.13295 - +,0.20697 ,0.15701 ,3.79499 ,0.25150 ,0.05503 ,0.00002 ,0.15328 - +,0.21517 ,0.16131 ,4.10451 ,0.26815 ,0.07447 ,0.00001 ,0.17134 - +,0.22243 ,0.16506 ,4.34824 ,0.28279 ,0.09170 ,0.00173 ,0.18726 - +,0.22899 ,0.16834 ,4.54479 ,0.29587 ,0.10719 ,0.01308 ,0.20156 - +,0.23499 ,0.17125 ,4.70355 ,0.30765 ,0.12124 ,0.03052 ,0.21447 - +,0.24046 ,0.17389 ,4.83119 ,0.31826 ,0.13399 ,0.04521 ,0.22616 - +,0.24549 ,0.17627 ,4.93406 ,0.32788 ,0.14564 ,0.05883 ,0.23678 - +,0.25017 ,0.17841 ,5.01613 ,0.33657 ,0.15626 ,0.07124 ,0.24645 - +,0.25444 ,0.18037 ,5.07756 ,0.34433 ,0.16587 ,0.08251 ,0.25514 - +,0.25844 ,0.18216 ,5.12605 ,0.35144 ,0.17472 ,0.09294 ,0.26312 - +,0.26220 ,0.18379 ,5.16429 ,0.35799 ,0.18294 ,0.10264 ,0.27051 - +,0.26572 ,0.18527 ,5.18946 ,0.36383 ,0.19040 ,0.11146 ,0.27715 - +,0.26901 ,0.18665 ,5.20695 ,0.36915 ,0.19727 ,0.11964 ,0.28325 - +,0.27210 ,0.18795 ,5.21946 ,0.37410 ,0.20370 ,0.12732 ,0.28895 - +,0.27500 ,0.18909 ,5.22135 ,0.37847 ,0.20952 ,0.13429 ,0.29404 - +,0.27779 ,0.19017 ,5.22160 ,0.38265 ,0.21508 ,0.14096 ,0.29890 - +,0.28033 ,0.19115 ,5.21468 ,0.38628 ,0.22003 ,0.14697 ,0.30319/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),K=1,19)/ - + 0.28854 ,0.21399 ,2.51511 ,0.18797 ,0.00575 ,-0.00012 ,0.09681 - +,0.30051 ,0.21842 ,2.72138 ,0.19914 ,0.02200 ,-0.00010 ,0.11052 - +,0.31056 ,0.22184 ,2.85893 ,0.20820 ,0.03556 ,-0.00010 ,0.12186 - +,0.31903 ,0.22461 ,2.95064 ,0.21566 ,0.04708 ,-0.00009 ,0.13134 - +,0.32624 ,0.22683 ,3.00675 ,0.22173 ,0.05681 ,0.00090 ,0.13922 - +,0.33259 ,0.22859 ,3.03962 ,0.22676 ,0.06523 ,0.00736 ,0.14596 - +,0.33822 ,0.23001 ,3.05504 ,0.23093 ,0.07256 ,0.01707 ,0.15172 - +,0.34316 ,0.23120 ,3.05733 ,0.23444 ,0.07899 ,0.02502 ,0.15669 - +,0.34761 ,0.23212 ,3.04997 ,0.23738 ,0.08465 ,0.03217 ,0.16097 - +,0.35149 ,0.23294 ,3.03556 ,0.23983 ,0.08963 ,0.03854 ,0.16472 - +,0.35504 ,0.23351 ,3.01388 ,0.24174 ,0.09395 ,0.04413 ,0.16784 - +,0.35825 ,0.23395 ,2.98860 ,0.24334 ,0.09786 ,0.04919 ,0.17058 - +,0.36116 ,0.23431 ,2.96111 ,0.24467 ,0.10142 ,0.05379 ,0.17301 - +,0.36369 ,0.23460 ,2.93034 ,0.24569 ,0.10447 ,0.05787 ,0.17506 - +,0.36604 ,0.23476 ,2.89814 ,0.24647 ,0.10721 ,0.06156 ,0.17682 - +,0.36823 ,0.23485 ,2.86572 ,0.24709 ,0.10971 ,0.06496 ,0.17836 - +,0.37013 ,0.23487 ,2.83100 ,0.24748 ,0.11188 ,0.06798 ,0.17965 - +,0.37191 ,0.23487 ,2.79749 ,0.24781 ,0.11393 ,0.07082 ,0.18085 - +,0.37348 ,0.23478 ,2.76237 ,0.24788 ,0.11565 ,0.07331 ,0.18175/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),K=1,19)/ - + 0.37217 ,0.25784 ,2.19449 ,0.16554 ,0.00432 ,-0.00002 ,0.08491 - +,0.38261 ,0.25960 ,2.26681 ,0.17122 ,0.01604 ,-0.00002 ,0.09364 - +,0.39088 ,0.26064 ,2.29701 ,0.17535 ,0.02547 ,0.00000 ,0.10042 - +,0.39764 ,0.26112 ,2.30155 ,0.17835 ,0.03327 ,0.00005 ,0.10581 - +,0.40312 ,0.26118 ,2.28765 ,0.18048 ,0.03956 ,0.00066 ,0.11005 - +,0.40763 ,0.26101 ,2.26334 ,0.18196 ,0.04489 ,0.00495 ,0.11344 - +,0.41138 ,0.26062 ,2.23179 ,0.18294 ,0.04935 ,0.01126 ,0.11617 - +,0.41454 ,0.26006 ,2.19584 ,0.18353 ,0.05319 ,0.01633 ,0.11836 - +,0.41720 ,0.25937 ,2.15717 ,0.18380 ,0.05649 ,0.02077 ,0.12017 - +,0.41941 ,0.25860 ,2.11684 ,0.18379 ,0.05934 ,0.02460 ,0.12157 - +,0.42116 ,0.25776 ,2.07508 ,0.18356 ,0.06172 ,0.02800 ,0.12265 - +,0.42269 ,0.25681 ,2.03361 ,0.18318 ,0.06377 ,0.03100 ,0.12349 - +,0.42402 ,0.25582 ,1.99297 ,0.18268 ,0.06556 ,0.03368 ,0.12414 - +,0.42498 ,0.25485 ,1.95228 ,0.18201 ,0.06709 ,0.03598 ,0.12458 - +,0.42578 ,0.25382 ,1.91256 ,0.18126 ,0.06845 ,0.03805 ,0.12489 - +,0.42645 ,0.25277 ,1.87431 ,0.18048 ,0.06968 ,0.03993 ,0.12511 - +,0.42684 ,0.25169 ,1.83623 ,0.17958 ,0.07063 ,0.04158 ,0.12515 - +,0.42719 ,0.25065 ,1.80013 ,0.17869 ,0.07150 ,0.04311 ,0.12515 - +,0.42739 ,0.24952 ,1.76427 ,0.17770 ,0.07223 ,0.04441 ,0.12500/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),K=1,19)/ - + 0.44112 ,0.28635 ,1.91925 ,0.14423 ,0.00333 ,0.00008 ,0.07383 - +,0.44849 ,0.28517 ,1.91689 ,0.14652 ,0.01221 ,0.00007 ,0.07936 - +,0.45386 ,0.28355 ,1.89114 ,0.14775 ,0.01909 ,0.00011 ,0.08347 - +,0.45774 ,0.28175 ,1.85302 ,0.14831 ,0.02454 ,0.00009 ,0.08647 - +,0.46062 ,0.27966 ,1.80754 ,0.14826 ,0.02891 ,0.00055 ,0.08865 - +,0.46255 ,0.27756 ,1.75906 ,0.14790 ,0.03252 ,0.00356 ,0.09025 - +,0.46385 ,0.27546 ,1.70955 ,0.14727 ,0.03542 ,0.00792 ,0.09141 - +,0.46472 ,0.27323 ,1.66023 ,0.14642 ,0.03788 ,0.01136 ,0.09220 - +,0.46515 ,0.27104 ,1.61179 ,0.14540 ,0.03994 ,0.01434 ,0.09274 - +,0.46522 ,0.26891 ,1.56469 ,0.14429 ,0.04167 ,0.01694 ,0.09305 - +,0.46496 ,0.26671 ,1.51873 ,0.14311 ,0.04305 ,0.01915 ,0.09312 - +,0.46456 ,0.26451 ,1.47483 ,0.14187 ,0.04423 ,0.02105 ,0.09309 - +,0.46402 ,0.26236 ,1.43311 ,0.14060 ,0.04525 ,0.02270 ,0.09296 - +,0.46323 ,0.26027 ,1.39285 ,0.13925 ,0.04604 ,0.02412 ,0.09271 - +,0.46227 ,0.25825 ,1.35450 ,0.13791 ,0.04672 ,0.02538 ,0.09238 - +,0.46123 ,0.25630 ,1.31822 ,0.13661 ,0.04733 ,0.02652 ,0.09202 - +,0.46004 ,0.25429 ,1.28318 ,0.13524 ,0.04778 ,0.02748 ,0.09156 - +,0.45886 ,0.25236 ,1.25028 ,0.13392 ,0.04819 ,0.02837 ,0.09111 - +,0.45759 ,0.25043 ,1.21834 ,0.13257 ,0.04847 ,0.02909 ,0.09057/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),K=1,19)/ - + 0.49719 ,0.30377 ,1.67822 ,0.12438 ,0.00261 ,0.00010 ,0.06353 - +,0.50057 ,0.29970 ,1.63198 ,0.12453 ,0.00938 ,0.00007 ,0.06698 - +,0.50227 ,0.29557 ,1.57547 ,0.12402 ,0.01455 ,0.00006 ,0.06934 - +,0.50281 ,0.29160 ,1.51617 ,0.12311 ,0.01855 ,0.00006 ,0.07082 - +,0.50263 ,0.28754 ,1.45612 ,0.12188 ,0.02166 ,0.00042 ,0.07181 - +,0.50171 ,0.28371 ,1.39809 ,0.12054 ,0.02413 ,0.00259 ,0.07238 - +,0.50034 ,0.28001 ,1.34250 ,0.11905 ,0.02612 ,0.00572 ,0.07262 - +,0.49861 ,0.27643 ,1.28970 ,0.11750 ,0.02773 ,0.00818 ,0.07265 - +,0.49670 ,0.27293 ,1.23988 ,0.11593 ,0.02904 ,0.01026 ,0.07253 - +,0.49458 ,0.26956 ,1.19299 ,0.11431 ,0.03013 ,0.01202 ,0.07227 - +,0.49226 ,0.26623 ,1.14848 ,0.11273 ,0.03097 ,0.01348 ,0.07186 - +,0.48987 ,0.26304 ,1.10688 ,0.11112 ,0.03167 ,0.01474 ,0.07140 - +,0.48745 ,0.25997 ,1.06807 ,0.10954 ,0.03225 ,0.01584 ,0.07090 - +,0.48489 ,0.25695 ,1.03138 ,0.10797 ,0.03270 ,0.01684 ,0.07037 - +,0.48228 ,0.25406 ,0.99690 ,0.10645 ,0.03306 ,0.01766 ,0.06979 - +,0.47969 ,0.25131 ,0.96463 ,0.10498 ,0.03335 ,0.01836 ,0.06918 - +,0.47695 ,0.24863 ,0.93396 ,0.10351 ,0.03354 ,0.01893 ,0.06854 - +,0.47431 ,0.24606 ,0.90539 ,0.10211 ,0.03370 ,0.01946 ,0.06791 - +,0.47170 ,0.24345 ,0.87816 ,0.10068 ,0.03380 ,0.01992 ,0.06726/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),K=1,19)/ - + 0.55096 ,0.31353 ,1.41684 ,0.10191 ,0.00199 ,0.00005 ,0.05200 - +,0.54873 ,0.30618 ,1.34043 ,0.10055 ,0.00692 ,0.00006 ,0.05375 - +,0.54542 ,0.29934 ,1.26530 ,0.09884 ,0.01053 ,0.00009 ,0.05475 - +,0.54156 ,0.29286 ,1.19467 ,0.09699 ,0.01327 ,0.00006 ,0.05520 - +,0.53718 ,0.28685 ,1.12895 ,0.09507 ,0.01542 ,0.00030 ,0.05525 - +,0.53254 ,0.28126 ,1.06861 ,0.09313 ,0.01706 ,0.00181 ,0.05512 - +,0.52790 ,0.27586 ,1.01314 ,0.09124 ,0.01831 ,0.00399 ,0.05480 - +,0.52320 ,0.27074 ,0.96221 ,0.08935 ,0.01930 ,0.00561 ,0.05435 - +,0.51836 ,0.26597 ,0.91548 ,0.08750 ,0.02009 ,0.00694 ,0.05386 - +,0.51365 ,0.26132 ,0.87239 ,0.08571 ,0.02072 ,0.00808 ,0.05332 - +,0.50885 ,0.25691 ,0.83269 ,0.08400 ,0.02117 ,0.00903 ,0.05264 - +,0.50408 ,0.25276 ,0.79614 ,0.08233 ,0.02154 ,0.00986 ,0.05197 - +,0.49942 ,0.24885 ,0.76246 ,0.08071 ,0.02184 ,0.01058 ,0.05132 - +,0.49478 ,0.24508 ,0.73112 ,0.07916 ,0.02201 ,0.01114 ,0.05063 - +,0.49031 ,0.24140 ,0.70219 ,0.07765 ,0.02217 ,0.01164 ,0.04995 - +,0.48603 ,0.23786 ,0.67548 ,0.07619 ,0.02231 ,0.01208 ,0.04928 - +,0.48157 ,0.23453 ,0.65036 ,0.07482 ,0.02233 ,0.01242 ,0.04858 - +,0.47729 ,0.23136 ,0.62709 ,0.07353 ,0.02232 ,0.01271 ,0.04791 - +,0.47311 ,0.22819 ,0.60519 ,0.07222 ,0.02229 ,0.01292 ,0.04728/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),K=1,19)/ - + 0.58840 ,0.31336 ,1.19252 ,0.08232 ,0.00155 ,0.00012 ,0.04198 - +,0.58035 ,0.30325 ,1.10228 ,0.08017 ,0.00513 ,0.00011 ,0.04273 - +,0.57196 ,0.29407 ,1.02079 ,0.07793 ,0.00780 ,0.00015 ,0.04293 - +,0.56367 ,0.28572 ,0.94834 ,0.07577 ,0.00968 ,0.00009 ,0.04278 - +,0.55531 ,0.27817 ,0.88367 ,0.07361 ,0.01110 ,0.00030 ,0.04242 - +,0.54733 ,0.27105 ,0.82621 ,0.07155 ,0.01220 ,0.00139 ,0.04192 - +,0.53953 ,0.26442 ,0.77477 ,0.06955 ,0.01305 ,0.00287 ,0.04135 - +,0.53179 ,0.25832 ,0.72860 ,0.06767 ,0.01367 ,0.00398 ,0.04072 - +,0.52444 ,0.25254 ,0.68700 ,0.06588 ,0.01413 ,0.00485 ,0.04003 - +,0.51727 ,0.24710 ,0.64942 ,0.06414 ,0.01453 ,0.00558 ,0.03939 - +,0.51018 ,0.24203 ,0.61518 ,0.06250 ,0.01476 ,0.00619 ,0.03872 - +,0.50341 ,0.23717 ,0.58408 ,0.06094 ,0.01496 ,0.00674 ,0.03805 - +,0.49696 ,0.23253 ,0.55579 ,0.05945 ,0.01512 ,0.00721 ,0.03739 - +,0.49065 ,0.22812 ,0.52987 ,0.05804 ,0.01517 ,0.00758 ,0.03673 - +,0.48449 ,0.22400 ,0.50605 ,0.05672 ,0.01519 ,0.00791 ,0.03606 - +,0.47854 ,0.22015 ,0.48417 ,0.05547 ,0.01518 ,0.00821 ,0.03540 - +,0.47278 ,0.21631 ,0.46404 ,0.05424 ,0.01515 ,0.00840 ,0.03479 - +,0.46729 ,0.21268 ,0.44551 ,0.05308 ,0.01512 ,0.00857 ,0.03421 - +,0.46182 ,0.20923 ,0.42805 ,0.05197 ,0.01504 ,0.00867 ,0.03361/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),K=1,19)/ - + 0.61131 ,0.30600 ,0.99977 ,0.06555 ,0.00115 ,0.00003 ,0.03336 - +,0.59751 ,0.29370 ,0.90558 ,0.06313 ,0.00382 ,0.00000 ,0.03348 - +,0.58441 ,0.28269 ,0.82461 ,0.06078 ,0.00573 ,0.00004 ,0.03329 - +,0.57198 ,0.27292 ,0.75514 ,0.05855 ,0.00710 ,0.00004 ,0.03289 - +,0.56022 ,0.26395 ,0.69496 ,0.05644 ,0.00811 ,0.00013 ,0.03233 - +,0.54902 ,0.25586 ,0.64268 ,0.05446 ,0.00886 ,0.00088 ,0.03174 - +,0.53830 ,0.24847 ,0.59675 ,0.05257 ,0.00945 ,0.00197 ,0.03113 - +,0.52823 ,0.24150 ,0.55620 ,0.05082 ,0.00985 ,0.00282 ,0.03049 - +,0.51863 ,0.23504 ,0.52027 ,0.04921 ,0.01013 ,0.00353 ,0.02980 - +,0.50931 ,0.22911 ,0.48822 ,0.04771 ,0.01029 ,0.00399 ,0.02918 - +,0.50046 ,0.22345 ,0.45961 ,0.04628 ,0.01046 ,0.00436 ,0.02846 - +,0.49201 ,0.21818 ,0.43368 ,0.04490 ,0.01059 ,0.00469 ,0.02784 - +,0.48395 ,0.21323 ,0.41022 ,0.04359 ,0.01066 ,0.00499 ,0.02729 - +,0.47625 ,0.20848 ,0.38904 ,0.04245 ,0.01060 ,0.00525 ,0.02664 - +,0.46885 ,0.20400 ,0.36973 ,0.04131 ,0.01060 ,0.00543 ,0.02606 - +,0.46177 ,0.19978 ,0.35211 ,0.04021 ,0.01063 ,0.00556 ,0.02554 - +,0.45489 ,0.19574 ,0.33590 ,0.03919 ,0.01056 ,0.00571 ,0.02499 - +,0.44836 ,0.19194 ,0.32107 ,0.03824 ,0.01049 ,0.00584 ,0.02448 - +,0.44191 ,0.18832 ,0.30734 ,0.03732 ,0.01043 ,0.00590 ,0.02396/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),K=1,19)/ - + 0.62141 ,0.29332 ,0.83464 ,0.05150 ,0.00081 ,0.00003 ,0.02616 - +,0.60251 ,0.27919 ,0.74237 ,0.04909 ,0.00287 ,0.00002 ,0.02596 - +,0.58504 ,0.26695 ,0.66591 ,0.04685 ,0.00423 ,-0.00007 ,0.02553 - +,0.56898 ,0.25615 ,0.60189 ,0.04480 ,0.00520 ,0.00001 ,0.02496 - +,0.55408 ,0.24644 ,0.54777 ,0.04286 ,0.00585 ,0.00015 ,0.02446 - +,0.54005 ,0.23776 ,0.50172 ,0.04109 ,0.00640 ,0.00073 ,0.02383 - +,0.52705 ,0.22981 ,0.46189 ,0.03946 ,0.00675 ,0.00151 ,0.02321 - +,0.51485 ,0.22243 ,0.42703 ,0.03800 ,0.00697 ,0.00202 ,0.02254 - +,0.50333 ,0.21567 ,0.39670 ,0.03657 ,0.00720 ,0.00242 ,0.02197 - +,0.49251 ,0.20933 ,0.36970 ,0.03527 ,0.00739 ,0.00276 ,0.02129 - +,0.48224 ,0.20333 ,0.34582 ,0.03408 ,0.00739 ,0.00304 ,0.02078 - +,0.47245 ,0.19786 ,0.32447 ,0.03294 ,0.00741 ,0.00329 ,0.02026 - +,0.46314 ,0.19283 ,0.30537 ,0.03188 ,0.00744 ,0.00349 ,0.01974 - +,0.45425 ,0.18808 ,0.28836 ,0.03089 ,0.00740 ,0.00363 ,0.01921 - +,0.44585 ,0.18352 ,0.27291 ,0.02997 ,0.00736 ,0.00376 ,0.01873 - +,0.43792 ,0.17918 ,0.25887 ,0.02911 ,0.00731 ,0.00387 ,0.01828 - +,0.43014 ,0.17517 ,0.24595 ,0.02829 ,0.00726 ,0.00396 ,0.01782 - +,0.42277 ,0.17141 ,0.23417 ,0.02752 ,0.00721 ,0.00404 ,0.01738 - +,0.41564 ,0.16780 ,0.22346 ,0.02680 ,0.00714 ,0.00409 ,0.01698/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),K=1,19)/ - + 0.62064 ,0.27660 ,0.69341 ,0.03989 ,0.00059 ,-0.00002 ,0.02024 - +,0.59706 ,0.26149 ,0.60668 ,0.03766 ,0.00211 ,0.00001 ,0.01989 - +,0.57580 ,0.24845 ,0.53661 ,0.03569 ,0.00307 ,0.00011 ,0.01938 - +,0.55661 ,0.23695 ,0.47957 ,0.03383 ,0.00381 ,0.00004 ,0.01890 - +,0.53911 ,0.22688 ,0.43185 ,0.03223 ,0.00425 ,0.00022 ,0.01823 - +,0.52287 ,0.21785 ,0.39185 ,0.03075 ,0.00460 ,0.00058 ,0.01767 - +,0.50806 ,0.20954 ,0.35769 ,0.02934 ,0.00489 ,0.00115 ,0.01712 - +,0.49417 ,0.20202 ,0.32844 ,0.02810 ,0.00501 ,0.00147 ,0.01656 - +,0.48125 ,0.19505 ,0.30314 ,0.02697 ,0.00511 ,0.00171 ,0.01603 - +,0.46906 ,0.18878 ,0.28077 ,0.02585 ,0.00515 ,0.00195 ,0.01563 - +,0.45759 ,0.18287 ,0.26121 ,0.02489 ,0.00521 ,0.00218 ,0.01512 - +,0.44689 ,0.17735 ,0.24393 ,0.02398 ,0.00523 ,0.00234 ,0.01465 - +,0.43682 ,0.17221 ,0.22857 ,0.02313 ,0.00522 ,0.00245 ,0.01420 - +,0.42706 ,0.16749 ,0.21471 ,0.02233 ,0.00524 ,0.00251 ,0.01380 - +,0.41795 ,0.16303 ,0.20237 ,0.02159 ,0.00519 ,0.00257 ,0.01340 - +,0.40943 ,0.15883 ,0.19130 ,0.02092 ,0.00511 ,0.00262 ,0.01302 - +,0.40116 ,0.15487 ,0.18111 ,0.02025 ,0.00508 ,0.00268 ,0.01267 - +,0.39336 ,0.15116 ,0.17186 ,0.01963 ,0.00506 ,0.00273 ,0.01234 - +,0.38586 ,0.14763 ,0.16351 ,0.01904 ,0.00498 ,0.00273 ,0.01202/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),K=1,19)/ - + 0.61021 ,0.25756 ,0.57286 ,0.03044 ,0.00043 ,0.00008 ,0.01549 - +,0.58291 ,0.24159 ,0.49366 ,0.02854 ,0.00150 ,0.00014 ,0.01507 - +,0.55854 ,0.22808 ,0.43100 ,0.02678 ,0.00232 ,0.00014 ,0.01459 - +,0.53689 ,0.21637 ,0.38060 ,0.02528 ,0.00277 ,0.00012 ,0.01402 - +,0.51712 ,0.20619 ,0.33956 ,0.02387 ,0.00316 ,0.00010 ,0.01359 - +,0.49947 ,0.19687 ,0.30563 ,0.02260 ,0.00348 ,0.00040 ,0.01308 - +,0.48318 ,0.18857 ,0.27708 ,0.02154 ,0.00353 ,0.00078 ,0.01257 - +,0.46804 ,0.18109 ,0.25249 ,0.02052 ,0.00363 ,0.00102 ,0.01215 - +,0.45397 ,0.17434 ,0.23146 ,0.01958 ,0.00373 ,0.00121 ,0.01172 - +,0.44074 ,0.16826 ,0.21311 ,0.01880 ,0.00369 ,0.00144 ,0.01127 - +,0.42867 ,0.16229 ,0.19724 ,0.01799 ,0.00375 ,0.00153 ,0.01089 - +,0.41719 ,0.15701 ,0.18330 ,0.01725 ,0.00373 ,0.00160 ,0.01055 - +,0.40638 ,0.15222 ,0.17099 ,0.01659 ,0.00369 ,0.00167 ,0.01023 - +,0.39640 ,0.14750 ,0.16012 ,0.01599 ,0.00369 ,0.00175 ,0.00985 - +,0.38695 ,0.14316 ,0.15039 ,0.01543 ,0.00364 ,0.00179 ,0.00950 - +,0.37804 ,0.13916 ,0.14166 ,0.01491 ,0.00357 ,0.00181 ,0.00917 - +,0.36959 ,0.13530 ,0.13378 ,0.01435 ,0.00354 ,0.00185 ,0.00895 - +,0.36165 ,0.13170 ,0.12665 ,0.01383 ,0.00352 ,0.00188 ,0.00875 - +,0.35391 ,0.12837 ,0.12015 ,0.01342 ,0.00345 ,0.00189 ,0.00849/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),K=1,19)/ - + 0.59236 ,0.23647 ,0.47062 ,0.02280 ,0.00038 ,0.00011 ,0.01176 - +,0.56158 ,0.22049 ,0.39940 ,0.02125 ,0.00122 ,0.00015 ,0.01123 - +,0.53487 ,0.20678 ,0.34459 ,0.01986 ,0.00171 ,0.00010 ,0.01085 - +,0.51134 ,0.19511 ,0.30133 ,0.01860 ,0.00212 ,0.00007 ,0.01031 - +,0.48994 ,0.18518 ,0.26632 ,0.01752 ,0.00228 ,0.00013 ,0.00996 - +,0.47095 ,0.17611 ,0.23760 ,0.01652 ,0.00245 ,0.00039 ,0.00954 - +,0.45365 ,0.16801 ,0.21371 ,0.01565 ,0.00258 ,0.00060 ,0.00911 - +,0.43773 ,0.16074 ,0.19374 ,0.01484 ,0.00263 ,0.00072 ,0.00876 - +,0.42306 ,0.15415 ,0.17653 ,0.01413 ,0.00266 ,0.00086 ,0.00840 - +,0.40934 ,0.14824 ,0.16183 ,0.01347 ,0.00273 ,0.00091 ,0.00810 - +,0.39672 ,0.14266 ,0.14920 ,0.01288 ,0.00269 ,0.00104 ,0.00778 - +,0.38507 ,0.13757 ,0.13806 ,0.01230 ,0.00265 ,0.00113 ,0.00748 - +,0.37423 ,0.13289 ,0.12821 ,0.01177 ,0.00261 ,0.00119 ,0.00720 - +,0.36383 ,0.12852 ,0.11957 ,0.01134 ,0.00258 ,0.00122 ,0.00694 - +,0.35430 ,0.12442 ,0.11194 ,0.01087 ,0.00255 ,0.00125 ,0.00670 - +,0.34549 ,0.12059 ,0.10514 ,0.01041 ,0.00251 ,0.00127 ,0.00648 - +,0.33678 ,0.11708 ,0.09895 ,0.01007 ,0.00245 ,0.00128 ,0.00630 - +,0.32858 ,0.11381 ,0.09336 ,0.00977 ,0.00240 ,0.00128 ,0.00613 - +,0.32077 ,0.11060 ,0.08840 ,0.00944 ,0.00238 ,0.00129 ,0.00591/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),K=1,19)/ - + 0.56765 ,0.21478 ,0.38406 ,0.01686 ,0.00035 ,0.00012 ,0.00873 - +,0.53457 ,0.19882 ,0.32154 ,0.01557 ,0.00100 ,0.00003 ,0.00836 - +,0.50607 ,0.18549 ,0.27392 ,0.01450 ,0.00133 ,0.00013 ,0.00789 - +,0.48082 ,0.17443 ,0.23719 ,0.01351 ,0.00150 ,0.00011 ,0.00762 - +,0.45875 ,0.16445 ,0.20789 ,0.01266 ,0.00170 ,0.00009 ,0.00719 - +,0.43893 ,0.15582 ,0.18411 ,0.01188 ,0.00183 ,0.00020 ,0.00687 - +,0.42103 ,0.14813 ,0.16449 ,0.01121 ,0.00186 ,0.00043 ,0.00655 - +,0.40466 ,0.14124 ,0.14813 ,0.01061 ,0.00187 ,0.00056 ,0.00628 - +,0.38981 ,0.13491 ,0.13426 ,0.01004 ,0.00189 ,0.00069 ,0.00603 - +,0.37598 ,0.12923 ,0.12255 ,0.00954 ,0.00194 ,0.00076 ,0.00575 - +,0.36335 ,0.12395 ,0.11233 ,0.00907 ,0.00194 ,0.00077 ,0.00552 - +,0.35160 ,0.11916 ,0.10354 ,0.00863 ,0.00191 ,0.00081 ,0.00530 - +,0.34070 ,0.11477 ,0.09590 ,0.00822 ,0.00188 ,0.00086 ,0.00510 - +,0.33061 ,0.11064 ,0.08915 ,0.00783 ,0.00187 ,0.00089 ,0.00494 - +,0.32106 ,0.10686 ,0.08316 ,0.00749 ,0.00184 ,0.00091 ,0.00477 - +,0.31206 ,0.10340 ,0.07781 ,0.00719 ,0.00180 ,0.00091 ,0.00460 - +,0.30356 ,0.10012 ,0.07306 ,0.00692 ,0.00176 ,0.00092 ,0.00442 - +,0.29560 ,0.09706 ,0.06879 ,0.00668 ,0.00171 ,0.00093 ,0.00425 - +,0.28793 ,0.09416 ,0.06491 ,0.00648 ,0.00170 ,0.00093 ,0.00415/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),K=1,19)/ - + 0.53766 ,0.19336 ,0.31148 ,0.01244 ,0.00008 ,-0.00013 ,0.00628 - +,0.50275 ,0.17809 ,0.25714 ,0.01140 ,0.00053 ,-0.00002 ,0.00599 - +,0.47334 ,0.16500 ,0.21701 ,0.01048 ,0.00090 ,-0.00007 ,0.00568 - +,0.44746 ,0.15428 ,0.18596 ,0.00974 ,0.00109 ,-0.00004 ,0.00535 - +,0.42496 ,0.14478 ,0.16172 ,0.00909 ,0.00118 ,-0.00003 ,0.00507 - +,0.40499 ,0.13649 ,0.14228 ,0.00851 ,0.00119 ,0.00008 ,0.00486 - +,0.38683 ,0.12932 ,0.12628 ,0.00798 ,0.00125 ,0.00024 ,0.00465 - +,0.37056 ,0.12275 ,0.11313 ,0.00749 ,0.00132 ,0.00032 ,0.00441 - +,0.35575 ,0.11695 ,0.10212 ,0.00705 ,0.00133 ,0.00038 ,0.00419 - +,0.34195 ,0.11167 ,0.09267 ,0.00672 ,0.00133 ,0.00043 ,0.00400 - +,0.32931 ,0.10690 ,0.08469 ,0.00637 ,0.00134 ,0.00053 ,0.00386 - +,0.31779 ,0.10251 ,0.07770 ,0.00602 ,0.00130 ,0.00056 ,0.00370 - +,0.30719 ,0.09846 ,0.07161 ,0.00571 ,0.00125 ,0.00055 ,0.00354 - +,0.29710 ,0.09476 ,0.06644 ,0.00547 ,0.00126 ,0.00057 ,0.00336 - +,0.28768 ,0.09129 ,0.06183 ,0.00525 ,0.00123 ,0.00059 ,0.00324 - +,0.27888 ,0.08807 ,0.05772 ,0.00505 ,0.00118 ,0.00061 ,0.00317 - +,0.27061 ,0.08509 ,0.05405 ,0.00487 ,0.00118 ,0.00061 ,0.00304 - +,0.26292 ,0.08233 ,0.05077 ,0.00471 ,0.00118 ,0.00061 ,0.00291 - +,0.25583 ,0.07965 ,0.04781 ,0.00450 ,0.00112 ,0.00062 ,0.00277/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),K=1,19)/ - + 0.50381 ,0.17154 ,0.24998 ,0.00881 ,0.00026 ,0.00007 ,0.00461 - +,0.46824 ,0.15676 ,0.20397 ,0.00800 ,0.00060 ,0.00008 ,0.00439 - +,0.43794 ,0.14478 ,0.17023 ,0.00737 ,0.00077 ,0.00007 ,0.00409 - +,0.41213 ,0.13449 ,0.14476 ,0.00681 ,0.00082 ,0.00013 ,0.00387 - +,0.38963 ,0.12566 ,0.12482 ,0.00631 ,0.00089 ,0.00008 ,0.00363 - +,0.36958 ,0.11814 ,0.10907 ,0.00584 ,0.00096 ,0.00016 ,0.00350 - +,0.35156 ,0.11154 ,0.09624 ,0.00549 ,0.00101 ,0.00027 ,0.00332 - +,0.33552 ,0.10550 ,0.08571 ,0.00520 ,0.00102 ,0.00035 ,0.00312 - +,0.32092 ,0.10008 ,0.07707 ,0.00490 ,0.00101 ,0.00037 ,0.00292 - +,0.30768 ,0.09539 ,0.06966 ,0.00460 ,0.00093 ,0.00042 ,0.00283 - +,0.29533 ,0.09102 ,0.06334 ,0.00438 ,0.00093 ,0.00041 ,0.00268 - +,0.28405 ,0.08700 ,0.05793 ,0.00417 ,0.00091 ,0.00039 ,0.00254 - +,0.27371 ,0.08333 ,0.05325 ,0.00395 ,0.00089 ,0.00037 ,0.00241 - +,0.26413 ,0.07999 ,0.04918 ,0.00371 ,0.00089 ,0.00040 ,0.00231 - +,0.25515 ,0.07690 ,0.04564 ,0.00355 ,0.00088 ,0.00042 ,0.00223 - +,0.24676 ,0.07403 ,0.04254 ,0.00343 ,0.00085 ,0.00044 ,0.00216 - +,0.23885 ,0.07138 ,0.03973 ,0.00330 ,0.00084 ,0.00041 ,0.00205 - +,0.23151 ,0.06893 ,0.03721 ,0.00317 ,0.00084 ,0.00039 ,0.00196 - +,0.22465 ,0.06654 ,0.03497 ,0.00306 ,0.00077 ,0.00040 ,0.00190/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),K=1,19)/ - + 0.46719 ,0.15104 ,0.19951 ,0.00631 ,0.00006 ,-0.00002 ,0.00319 - +,0.43124 ,0.13732 ,0.16090 ,0.00568 ,0.00035 ,0.00003 ,0.00303 - +,0.40108 ,0.12610 ,0.13290 ,0.00519 ,0.00048 ,0.00001 ,0.00285 - +,0.37568 ,0.11652 ,0.11205 ,0.00475 ,0.00053 ,-0.00004 ,0.00268 - +,0.35345 ,0.10847 ,0.09588 ,0.00438 ,0.00066 ,0.00004 ,0.00255 - +,0.33386 ,0.10146 ,0.08321 ,0.00408 ,0.00066 ,0.00006 ,0.00237 - +,0.31644 ,0.09534 ,0.07300 ,0.00384 ,0.00062 ,0.00008 ,0.00222 - +,0.30082 ,0.08998 ,0.06475 ,0.00360 ,0.00061 ,0.00009 ,0.00209 - +,0.28659 ,0.08522 ,0.05789 ,0.00341 ,0.00059 ,0.00014 ,0.00198 - +,0.27400 ,0.08091 ,0.05209 ,0.00315 ,0.00062 ,0.00023 ,0.00193 - +,0.26233 ,0.07693 ,0.04721 ,0.00296 ,0.00062 ,0.00023 ,0.00183 - +,0.25161 ,0.07332 ,0.04305 ,0.00282 ,0.00060 ,0.00022 ,0.00170 - +,0.24176 ,0.07004 ,0.03947 ,0.00269 ,0.00058 ,0.00022 ,0.00158 - +,0.23273 ,0.06705 ,0.03635 ,0.00255 ,0.00059 ,0.00026 ,0.00157 - +,0.22432 ,0.06428 ,0.03363 ,0.00242 ,0.00057 ,0.00026 ,0.00149 - +,0.21649 ,0.06173 ,0.03125 ,0.00231 ,0.00053 ,0.00024 ,0.00137 - +,0.20918 ,0.05935 ,0.02913 ,0.00222 ,0.00053 ,0.00023 ,0.00132 - +,0.20240 ,0.05715 ,0.02724 ,0.00214 ,0.00053 ,0.00023 ,0.00128 - +,0.19601 ,0.05516 ,0.02558 ,0.00203 ,0.00050 ,0.00024 ,0.00124/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),K=1,19)/ - + 0.42861 ,0.13126 ,0.15768 ,0.00427 ,0.00015 ,0.00006 ,0.00230 - +,0.39340 ,0.11860 ,0.12559 ,0.00380 ,0.00028 ,0.00008 ,0.00218 - +,0.36363 ,0.10824 ,0.10274 ,0.00356 ,0.00041 ,0.00006 ,0.00203 - +,0.33831 ,0.09980 ,0.08604 ,0.00325 ,0.00040 ,0.00004 ,0.00189 - +,0.31705 ,0.09245 ,0.07300 ,0.00299 ,0.00038 ,-0.00003 ,0.00176 - +,0.29830 ,0.08612 ,0.06295 ,0.00280 ,0.00042 ,0.00002 ,0.00158 - +,0.28166 ,0.08061 ,0.05495 ,0.00261 ,0.00047 ,0.00011 ,0.00148 - +,0.26668 ,0.07583 ,0.04845 ,0.00245 ,0.00048 ,0.00013 ,0.00140 - +,0.25338 ,0.07148 ,0.04309 ,0.00230 ,0.00045 ,0.00016 ,0.00129 - +,0.24149 ,0.06761 ,0.03866 ,0.00212 ,0.00041 ,0.00018 ,0.00120 - +,0.23038 ,0.06417 ,0.03491 ,0.00202 ,0.00039 ,0.00019 ,0.00119 - +,0.22031 ,0.06101 ,0.03174 ,0.00191 ,0.00038 ,0.00019 ,0.00114 - +,0.21112 ,0.05813 ,0.02903 ,0.00181 ,0.00038 ,0.00018 ,0.00107 - +,0.20253 ,0.05558 ,0.02667 ,0.00177 ,0.00038 ,0.00018 ,0.00103 - +,0.19480 ,0.05317 ,0.02462 ,0.00168 ,0.00039 ,0.00021 ,0.00099 - +,0.18778 ,0.05092 ,0.02281 ,0.00156 ,0.00039 ,0.00024 ,0.00095 - +,0.18107 ,0.04885 ,0.02122 ,0.00148 ,0.00036 ,0.00021 ,0.00090 - +,0.17484 ,0.04694 ,0.01981 ,0.00141 ,0.00033 ,0.00016 ,0.00085 - +,0.16890 ,0.04520 ,0.01857 ,0.00134 ,0.00032 ,0.00015 ,0.00081/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),K=1,19)/ - + 0.38910 ,0.11304 ,0.12356 ,0.00290 ,0.00012 ,0.00003 ,0.00154 - +,0.35474 ,0.10154 ,0.09733 ,0.00263 ,0.00022 ,0.00004 ,0.00148 - +,0.32609 ,0.09221 ,0.07892 ,0.00246 ,0.00023 ,0.00001 ,0.00129 - +,0.30211 ,0.08464 ,0.06544 ,0.00227 ,0.00024 ,-0.00001 ,0.00115 - +,0.28154 ,0.07808 ,0.05526 ,0.00211 ,0.00025 ,0.00004 ,0.00111 - +,0.26384 ,0.07245 ,0.04737 ,0.00195 ,0.00023 ,0.00006 ,0.00102 - +,0.24826 ,0.06764 ,0.04113 ,0.00176 ,0.00025 ,0.00005 ,0.00096 - +,0.23447 ,0.06330 ,0.03610 ,0.00164 ,0.00025 ,0.00008 ,0.00086 - +,0.22199 ,0.05954 ,0.03196 ,0.00155 ,0.00025 ,0.00007 ,0.00080 - +,0.21090 ,0.05615 ,0.02857 ,0.00144 ,0.00025 ,0.00008 ,0.00080 - +,0.20060 ,0.05315 ,0.02570 ,0.00134 ,0.00022 ,0.00004 ,0.00073 - +,0.19127 ,0.05042 ,0.02330 ,0.00128 ,0.00023 ,0.00005 ,0.00069 - +,0.18279 ,0.04792 ,0.02125 ,0.00123 ,0.00025 ,0.00009 ,0.00066 - +,0.17503 ,0.04564 ,0.01948 ,0.00115 ,0.00022 ,0.00008 ,0.00061 - +,0.16787 ,0.04354 ,0.01795 ,0.00111 ,0.00021 ,0.00008 ,0.00059 - +,0.16127 ,0.04160 ,0.01660 ,0.00110 ,0.00021 ,0.00007 ,0.00057 - +,0.15526 ,0.03987 ,0.01541 ,0.00101 ,0.00019 ,0.00008 ,0.00055 - +,0.14971 ,0.03828 ,0.01436 ,0.00092 ,0.00017 ,0.00009 ,0.00054 - +,0.14444 ,0.03677 ,0.01343 ,0.00087 ,0.00020 ,0.00009 ,0.00051/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),K=1,19)/ - + 0.34947 ,0.09630 ,0.09568 ,0.00194 ,0.00005 ,0.00006 ,0.00107 - +,0.31646 ,0.08594 ,0.07441 ,0.00171 ,0.00010 ,0.00002 ,0.00096 - +,0.28923 ,0.07757 ,0.05970 ,0.00157 ,0.00021 ,0.00000 ,0.00089 - +,0.26659 ,0.07075 ,0.04907 ,0.00144 ,0.00014 ,0.00000 ,0.00083 - +,0.24744 ,0.06494 ,0.04114 ,0.00133 ,0.00022 ,0.00003 ,0.00075 - +,0.23094 ,0.06001 ,0.03504 ,0.00120 ,0.00017 ,0.00002 ,0.00067 - +,0.21648 ,0.05577 ,0.03026 ,0.00108 ,0.00015 ,0.00000 ,0.00062 - +,0.20354 ,0.05207 ,0.02639 ,0.00101 ,0.00020 ,0.00000 ,0.00059 - +,0.19207 ,0.04876 ,0.02328 ,0.00094 ,0.00023 ,0.00004 ,0.00058 - +,0.18152 ,0.04587 ,0.02074 ,0.00094 ,0.00021 ,0.00006 ,0.00057 - +,0.17234 ,0.04324 ,0.01862 ,0.00087 ,0.00018 ,0.00003 ,0.00049 - +,0.16396 ,0.04089 ,0.01684 ,0.00081 ,0.00018 ,0.00003 ,0.00045 - +,0.15634 ,0.03877 ,0.01531 ,0.00075 ,0.00019 ,0.00004 ,0.00044 - +,0.14959 ,0.03680 ,0.01398 ,0.00065 ,0.00017 ,0.00006 ,0.00043 - +,0.14315 ,0.03503 ,0.01284 ,0.00063 ,0.00017 ,0.00009 ,0.00042 - +,0.13708 ,0.03343 ,0.01185 ,0.00064 ,0.00017 ,0.00012 ,0.00041 - +,0.13153 ,0.03196 ,0.01098 ,0.00060 ,0.00016 ,0.00009 ,0.00038 - +,0.12643 ,0.03061 ,0.01021 ,0.00056 ,0.00015 ,0.00006 ,0.00036 - +,0.12175 ,0.02934 ,0.00954 ,0.00053 ,0.00017 ,0.00007 ,0.00037/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),K=1,19)/ - + 0.31044 ,0.08109 ,0.07342 ,0.00133 ,0.00001 ,-0.00003 ,0.00062 - +,0.27916 ,0.07193 ,0.05647 ,0.00123 ,0.00004 ,-0.00005 ,0.00058 - +,0.25403 ,0.06465 ,0.04493 ,0.00102 ,0.00010 ,-0.00001 ,0.00057 - +,0.23286 ,0.05861 ,0.03657 ,0.00101 ,0.00007 ,-0.00006 ,0.00051 - +,0.21511 ,0.05355 ,0.03045 ,0.00093 ,0.00015 ,-0.00002 ,0.00049 - +,0.19997 ,0.04934 ,0.02584 ,0.00082 ,0.00013 ,-0.00002 ,0.00045 - +,0.18660 ,0.04569 ,0.02221 ,0.00078 ,0.00012 ,0.00003 ,0.00041 - +,0.17469 ,0.04246 ,0.01931 ,0.00074 ,0.00013 ,0.00005 ,0.00039 - +,0.16437 ,0.03966 ,0.01697 ,0.00067 ,0.00012 ,0.00002 ,0.00035 - +,0.15505 ,0.03719 ,0.01505 ,0.00065 ,0.00010 ,0.00003 ,0.00034 - +,0.14678 ,0.03499 ,0.01347 ,0.00059 ,0.00012 ,0.00005 ,0.00032 - +,0.13930 ,0.03298 ,0.01214 ,0.00054 ,0.00012 ,0.00006 ,0.00030 - +,0.13251 ,0.03115 ,0.01101 ,0.00050 ,0.00011 ,0.00006 ,0.00029 - +,0.12629 ,0.02953 ,0.01004 ,0.00046 ,0.00011 ,0.00006 ,0.00028 - +,0.12063 ,0.02805 ,0.00920 ,0.00042 ,0.00011 ,0.00006 ,0.00027 - +,0.11547 ,0.02671 ,0.00848 ,0.00038 ,0.00011 ,0.00006 ,0.00024 - +,0.11057 ,0.02547 ,0.00784 ,0.00036 ,0.00013 ,0.00005 ,0.00025 - +,0.10606 ,0.02433 ,0.00728 ,0.00034 ,0.00014 ,0.00005 ,0.00025 - +,0.10185 ,0.02328 ,0.00680 ,0.00032 ,0.00011 ,0.00004 ,0.00023/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),K=1,19)/ - + 0.27229 ,0.06740 ,0.05547 ,0.00085 ,-0.00001 ,-0.00002 ,0.00040 - +,0.24346 ,0.05939 ,0.04223 ,0.00082 ,0.00001 ,-0.00003 ,0.00035 - +,0.22024 ,0.05300 ,0.03330 ,0.00071 ,0.00006 ,0.00000 ,0.00033 - +,0.20094 ,0.04791 ,0.02692 ,0.00068 ,0.00005 ,0.00000 ,0.00034 - +,0.18475 ,0.04360 ,0.02230 ,0.00059 ,0.00005 ,-0.00001 ,0.00025 - +,0.17096 ,0.03997 ,0.01878 ,0.00054 ,0.00006 ,0.00000 ,0.00027 - +,0.15898 ,0.03686 ,0.01606 ,0.00052 ,0.00006 ,0.00001 ,0.00026 - +,0.14859 ,0.03417 ,0.01390 ,0.00045 ,0.00006 ,0.00000 ,0.00023 - +,0.13946 ,0.03181 ,0.01217 ,0.00039 ,0.00010 ,0.00001 ,0.00022 - +,0.13113 ,0.02975 ,0.01077 ,0.00034 ,0.00004 ,0.00000 ,0.00020 - +,0.12374 ,0.02786 ,0.00960 ,0.00030 ,0.00005 ,-0.00001 ,0.00018 - +,0.11699 ,0.02620 ,0.00863 ,0.00030 ,0.00006 ,-0.00001 ,0.00018 - +,0.11086 ,0.02473 ,0.00781 ,0.00032 ,0.00006 ,-0.00001 ,0.00017 - +,0.10542 ,0.02339 ,0.00711 ,0.00030 ,0.00009 ,0.00003 ,0.00018 - +,0.10043 ,0.02215 ,0.00651 ,0.00027 ,0.00009 ,0.00003 ,0.00017 - +,0.09586 ,0.02102 ,0.00598 ,0.00023 ,0.00009 ,0.00001 ,0.00016 - +,0.09157 ,0.01999 ,0.00553 ,0.00024 ,0.00009 ,0.00002 ,0.00016 - +,0.08764 ,0.01905 ,0.00513 ,0.00024 ,0.00008 ,0.00002 ,0.00015 - +,0.08401 ,0.01820 ,0.00478 ,0.00023 ,0.00008 ,0.00004 ,0.00014/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),K=1,19)/ - + 0.23633 ,0.05529 ,0.04142 ,0.00053 ,-0.00006 ,-0.00006 ,0.00020 - +,0.20996 ,0.04837 ,0.03113 ,0.00050 ,0.00001 ,-0.00004 ,0.00021 - +,0.18865 ,0.04294 ,0.02428 ,0.00046 ,-0.00003 ,-0.00008 ,0.00017 - +,0.17142 ,0.03858 ,0.01949 ,0.00036 ,0.00004 ,-0.00008 ,0.00017 - +,0.15676 ,0.03495 ,0.01602 ,0.00035 ,0.00001 ,-0.00007 ,0.00015 - +,0.14445 ,0.03189 ,0.01342 ,0.00033 ,0.00004 ,-0.00003 ,0.00013 - +,0.13379 ,0.02931 ,0.01141 ,0.00030 ,0.00004 ,-0.00001 ,0.00016 - +,0.12466 ,0.02706 ,0.00984 ,0.00024 ,0.00004 ,-0.00002 ,0.00015 - +,0.11644 ,0.02512 ,0.00859 ,0.00020 ,0.00005 ,-0.00004 ,0.00012 - +,0.10917 ,0.02336 ,0.00758 ,0.00020 ,0.00006 ,0.00000 ,0.00015 - +,0.10267 ,0.02184 ,0.00674 ,0.00019 ,0.00006 ,0.00000 ,0.00011 - +,0.09685 ,0.02047 ,0.00604 ,0.00017 ,0.00005 ,0.00001 ,0.00012 - +,0.09160 ,0.01924 ,0.00545 ,0.00016 ,0.00005 ,0.00002 ,0.00014 - +,0.08679 ,0.01814 ,0.00495 ,0.00017 ,0.00007 ,0.00002 ,0.00013 - +,0.08244 ,0.01715 ,0.00452 ,0.00016 ,0.00008 ,0.00002 ,0.00012 - +,0.07849 ,0.01624 ,0.00415 ,0.00014 ,0.00007 ,0.00002 ,0.00011 - +,0.07482 ,0.01542 ,0.00383 ,0.00013 ,0.00006 ,0.00002 ,0.00010 - +,0.07145 ,0.01467 ,0.00354 ,0.00012 ,0.00006 ,0.00002 ,0.00009 - +,0.06834 ,0.01397 ,0.00330 ,0.00012 ,0.00005 ,0.00003 ,0.00010/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),K=1,19)/ - + 0.20245 ,0.04460 ,0.03032 ,0.00030 ,-0.00002 ,-0.00003 ,0.00016 - +,0.17829 ,0.03877 ,0.02255 ,0.00032 ,-0.00003 ,-0.00008 ,0.00009 - +,0.15943 ,0.03422 ,0.01743 ,0.00025 ,0.00002 ,-0.00005 ,0.00011 - +,0.14389 ,0.03056 ,0.01386 ,0.00028 ,0.00004 ,-0.00002 ,0.00011 - +,0.13125 ,0.02757 ,0.01132 ,0.00020 ,0.00003 ,-0.00002 ,0.00012 - +,0.12040 ,0.02505 ,0.00943 ,0.00015 ,0.00004 ,-0.00003 ,0.00011 - +,0.11110 ,0.02290 ,0.00799 ,0.00012 ,0.00004 ,-0.00002 ,0.00009 - +,0.10296 ,0.02106 ,0.00687 ,0.00013 ,0.00005 ,0.00000 ,0.00008 - +,0.09588 ,0.01945 ,0.00597 ,0.00012 ,0.00006 ,0.00001 ,0.00010 - +,0.08950 ,0.01806 ,0.00524 ,0.00011 ,0.00004 ,-0.00001 ,0.00009 - +,0.08398 ,0.01683 ,0.00465 ,0.00008 ,0.00005 ,0.00002 ,0.00010 - +,0.07895 ,0.01573 ,0.00416 ,0.00007 ,0.00006 ,0.00002 ,0.00010 - +,0.07440 ,0.01474 ,0.00375 ,0.00007 ,0.00005 ,0.00002 ,0.00010 - +,0.07036 ,0.01385 ,0.00339 ,0.00008 ,0.00005 ,0.00004 ,0.00009 - +,0.06667 ,0.01306 ,0.00310 ,0.00007 ,0.00005 ,0.00004 ,0.00008 - +,0.06330 ,0.01234 ,0.00284 ,0.00007 ,0.00005 ,0.00003 ,0.00007 - +,0.06018 ,0.01168 ,0.00261 ,0.00006 ,0.00005 ,0.00003 ,0.00007 - +,0.05733 ,0.01108 ,0.00242 ,0.00006 ,0.00005 ,0.00003 ,0.00006 - +,0.05473 ,0.01054 ,0.00224 ,0.00004 ,0.00004 ,0.00002 ,0.00006/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),K=1,19)/ - + 0.17103 ,0.03560 ,0.02196 ,0.00023 ,-0.00005 ,-0.00006 ,0.00004 - +,0.14977 ,0.03072 ,0.01615 ,0.00021 ,-0.00005 ,-0.00009 ,0.00003 - +,0.13305 ,0.02694 ,0.01236 ,0.00019 ,-0.00001 ,-0.00007 ,0.00005 - +,0.11957 ,0.02395 ,0.00979 ,0.00015 ,-0.00001 ,-0.00007 ,0.00006 - +,0.10844 ,0.02148 ,0.00795 ,0.00014 ,0.00001 ,-0.00004 ,0.00007 - +,0.09900 ,0.01944 ,0.00659 ,0.00012 ,0.00003 ,-0.00004 ,0.00006 - +,0.09095 ,0.01770 ,0.00555 ,0.00012 ,0.00003 ,-0.00001 ,0.00005 - +,0.08403 ,0.01623 ,0.00476 ,0.00008 ,0.00002 ,-0.00002 ,0.00004 - +,0.07794 ,0.01494 ,0.00412 ,0.00008 ,0.00002 ,-0.00002 ,0.00004 - +,0.07253 ,0.01382 ,0.00361 ,0.00009 ,0.00002 ,0.00000 ,0.00004 - +,0.06781 ,0.01283 ,0.00320 ,0.00008 ,0.00001 ,-0.00001 ,0.00003 - +,0.06362 ,0.01196 ,0.00286 ,0.00005 ,0.00002 ,-0.00001 ,0.00004 - +,0.05986 ,0.01119 ,0.00257 ,0.00004 ,0.00002 ,0.00000 ,0.00004 - +,0.05638 ,0.01050 ,0.00232 ,0.00005 ,0.00002 ,0.00001 ,0.00004 - +,0.05326 ,0.00987 ,0.00212 ,0.00005 ,0.00002 ,0.00001 ,0.00004 - +,0.05045 ,0.00932 ,0.00194 ,0.00004 ,0.00002 ,0.00000 ,0.00004 - +,0.04788 ,0.00880 ,0.00178 ,0.00003 ,0.00002 ,0.00000 ,0.00004 - +,0.04555 ,0.00833 ,0.00164 ,0.00002 ,0.00001 ,0.00000 ,0.00003 - +,0.04335 ,0.00790 ,0.00152 ,0.00003 ,0.00002 ,0.00001 ,0.00003/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),K=1,19)/ - + 0.14201 ,0.02770 ,0.01550 ,0.00012 ,0.00000 ,-0.00002 ,0.00004 - +,0.12361 ,0.02379 ,0.01129 ,0.00014 ,-0.00001 ,-0.00002 ,0.00003 - +,0.10917 ,0.02078 ,0.00860 ,0.00013 ,-0.00001 ,-0.00002 ,0.00002 - +,0.09758 ,0.01838 ,0.00676 ,0.00010 ,-0.00002 ,-0.00003 ,0.00002 - +,0.08815 ,0.01642 ,0.00547 ,0.00007 ,-0.00001 ,-0.00002 ,0.00001 - +,0.08012 ,0.01482 ,0.00452 ,0.00006 ,0.00000 ,-0.00002 ,0.00000 - +,0.07328 ,0.01345 ,0.00380 ,0.00007 ,0.00000 ,-0.00002 ,0.00001 - +,0.06740 ,0.01228 ,0.00324 ,0.00008 ,0.00000 ,-0.00001 ,0.00001 - +,0.06234 ,0.01128 ,0.00280 ,0.00007 ,0.00000 ,-0.00001 ,0.00002 - +,0.05791 ,0.01040 ,0.00245 ,0.00006 ,0.00000 ,0.00001 ,0.00002 - +,0.05398 ,0.00964 ,0.00216 ,0.00005 ,0.00000 ,0.00001 ,0.00002 - +,0.05047 ,0.00895 ,0.00193 ,0.00004 ,0.00000 ,0.00000 ,0.00002 - +,0.04732 ,0.00835 ,0.00173 ,0.00003 ,0.00000 ,-0.00001 ,0.00001 - +,0.04447 ,0.00781 ,0.00156 ,0.00004 ,0.00001 ,0.00000 ,0.00001 - +,0.04190 ,0.00733 ,0.00142 ,0.00004 ,0.00000 ,0.00000 ,0.00001 - +,0.03959 ,0.00690 ,0.00130 ,0.00003 ,-0.00001 ,-0.00001 ,0.00002 - +,0.03748 ,0.00650 ,0.00119 ,0.00004 ,0.00000 ,0.00000 ,0.00002 - +,0.03557 ,0.00614 ,0.00110 ,0.00004 ,0.00001 ,0.00000 ,0.00002 - +,0.03380 ,0.00581 ,0.00102 ,0.00003 ,0.00000 ,0.00000 ,0.00001/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),K=1,19)/ - + 0.09304 ,0.01587 ,0.00721 ,0.00003 ,-0.00001 ,0.00000 ,0.00001 - +,0.07975 ,0.01344 ,0.00514 ,0.00003 ,0.00000 ,-0.00001 ,0.00002 - +,0.06954 ,0.01157 ,0.00384 ,0.00004 ,0.00000 ,0.00000 ,0.00000 - +,0.06139 ,0.01011 ,0.00297 ,0.00004 ,-0.00001 ,-0.00001 ,0.00001 - +,0.05493 ,0.00894 ,0.00238 ,0.00000 ,0.00001 ,-0.00001 ,0.00000 - +,0.04943 ,0.00798 ,0.00194 ,0.00001 ,0.00002 ,0.00000 ,0.00002 - +,0.04482 ,0.00718 ,0.00162 ,0.00001 ,0.00001 ,0.00001 ,0.00002 - +,0.04087 ,0.00650 ,0.00137 ,0.00002 ,0.00002 ,0.00001 ,0.00002 - +,0.03752 ,0.00592 ,0.00118 ,0.00001 ,0.00002 ,0.00000 ,0.00001 - +,0.03452 ,0.00542 ,0.00103 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.03192 ,0.00499 ,0.00090 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02965 ,0.00461 ,0.00080 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02764 ,0.00427 ,0.00071 ,0.00000 ,0.00001 ,0.00000 ,0.00001 - +,0.02581 ,0.00397 ,0.00064 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02418 ,0.00370 ,0.00058 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02273 ,0.00346 ,0.00053 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02141 ,0.00325 ,0.00049 ,0.00001 ,0.00000 ,0.00001 ,0.00001 - +,0.02022 ,0.00305 ,0.00045 ,0.00000 ,0.00000 ,0.00001 ,0.00001 - +,0.01911 ,0.00288 ,0.00041 ,0.00001 ,0.00001 ,0.00001 ,0.00001/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),K=1,19)/ - + 0.05602 ,0.00828 ,0.00300 ,0.00003 ,-0.00001 ,-0.00002 ,-0.00001 - +,0.04736 ,0.00689 ,0.00209 ,0.00001 ,0.00000 ,-0.00001 ,0.00000 - +,0.04064 ,0.00585 ,0.00154 ,0.00002 ,0.00000 ,0.00000 ,0.00000 - +,0.03550 ,0.00505 ,0.00118 ,0.00000 ,0.00000 ,-0.00001 ,0.00000 - +,0.03134 ,0.00441 ,0.00093 ,0.00000 ,0.00000 ,-0.00001 ,0.00000 - +,0.02791 ,0.00390 ,0.00075 ,0.00000 ,0.00000 ,-0.00001 ,0.00000 - +,0.02504 ,0.00347 ,0.00062 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.02265 ,0.00311 ,0.00053 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.02059 ,0.00281 ,0.00045 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01884 ,0.00256 ,0.00039 ,-0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01727 ,0.00233 ,0.00034 ,0.00000 ,0.00001 ,0.00000 ,0.00000 - +,0.01591 ,0.00214 ,0.00030 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01472 ,0.00197 ,0.00027 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01367 ,0.00182 ,0.00024 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01273 ,0.00169 ,0.00022 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01189 ,0.00157 ,0.00020 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01114 ,0.00146 ,0.00018 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01046 ,0.00137 ,0.00017 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00984 ,0.00128 ,0.00015 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),K=1,19)/ - + 0.03003 ,0.00375 ,0.00106 ,0.00002 ,0.00000 ,-0.00001 ,0.00000 - +,0.02494 ,0.00307 ,0.00073 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.02113 ,0.00257 ,0.00053 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01816 ,0.00219 ,0.00040 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01583 ,0.00189 ,0.00031 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01394 ,0.00165 ,0.00025 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01238 ,0.00145 ,0.00021 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01107 ,0.00129 ,0.00017 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00998 ,0.00116 ,0.00015 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00904 ,0.00104 ,0.00013 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00822 ,0.00094 ,0.00011 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00752 ,0.00086 ,0.00010 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00692 ,0.00078 ,0.00009 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00638 ,0.00072 ,0.00008 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00590 ,0.00066 ,0.00007 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00547 ,0.00061 ,0.00006 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00509 ,0.00057 ,0.00006 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00475 ,0.00053 ,0.00005 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00444 ,0.00049 ,0.00005 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),K=1,19)/ - + 0.01374 ,0.00141 ,0.00030 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01115 ,0.00113 ,0.00020 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00926 ,0.00092 ,0.00014 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00782 ,0.00077 ,0.00011 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00671 ,0.00066 ,0.00008 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00583 ,0.00057 ,0.00007 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00511 ,0.00049 ,0.00005 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00452 ,0.00043 ,0.00005 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00403 ,0.00038 ,0.00004 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00361 ,0.00034 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00326 ,0.00031 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00295 ,0.00028 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00268 ,0.00025 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00245 ,0.00023 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00225 ,0.00021 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00207 ,0.00019 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00191 ,0.00018 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00177 ,0.00016 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00164 ,0.00015 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),K=1,19)/ - + 0.00108 ,0.00006 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00083 ,0.00005 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00065 ,0.00004 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00053 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00043 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00036 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00031 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00026 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00023 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00020 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00017 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00015 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00013 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00012 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00011 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00010 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00009 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00008 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00007 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,4,5,0,0,5/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C -C - XSAVE=X -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(39,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M) -C 1=UV 2=DV 3=GLUE 4=(UBAR+DBAR)/2 5=CBAR 7=BBAR 6=SBAR - DO 25 I=1,7 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=1,6 - DO 30 K=1,19 - 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) - 50 FORMAT(7F10.5) - DO 40 I=1,7 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,7 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) -C... THIS SEA IS (UBAR+DBAR)/2 - SEA=G(4) - STR=G(6) - CHM=G(5) - GL =G(3) - BOT=G(7) -C - X=XSAVE -C - RETURN - END diff --git a/PDF/spdf/strkb05.F b/PDF/spdf/strkb05.F deleted file mode 100644 index 748c8d5b0d1..00000000000 --- a/PDF/spdf/strkb05.F +++ /dev/null @@ -1,1015 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:39 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:03 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C -C----------------------------------------------------------------------- - SUBROUTINE STRKB05(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C -C :::::::::::: MRS (B235) sea=ubar=dbar=2sbar at Q0**2 -C -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(7,NX,19),G(7),XX(NX),N0(7) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),K=1,19)/ - + 0.01571 ,0.00106 ,4.28544 ,0.25159 ,0.04304 ,0.00000 ,0.14820 - +,0.01585 ,0.00122 ,10.61627 ,0.42818 ,0.21989 ,0.00000 ,0.32504 - +,0.01600 ,0.00137 ,19.16457 ,0.66305 ,0.45498 ,0.00000 ,0.56012 - +,0.01616 ,0.00151 ,29.45746 ,0.94584 ,0.73797 ,0.00000 ,0.84311 - +,0.01631 ,0.00165 ,41.52361 ,1.27675 ,1.06905 ,0.00000 ,1.17419 - +,0.01647 ,0.00178 ,55.12427 ,1.65113 ,1.44360 ,0.11565 ,1.54875 - +,0.01662 ,0.00191 ,70.10855 ,2.06693 ,1.85955 ,0.52832 ,1.96469 - +,0.01678 ,0.00204 ,86.31143 ,2.52081 ,2.31357 ,0.99766 ,2.41873 - +,0.01694 ,0.00216,103.60295 ,3.00982 ,2.80271 ,1.49834 ,2.90787 - +,0.01709 ,0.00228,121.87346 ,3.53168 ,3.32469 ,2.03209 ,3.42986 - +,0.01724 ,0.00240,141.04709 ,4.08467 ,3.87779 ,2.59583 ,3.98296 - +,0.01739 ,0.00251,161.07639 ,4.66761 ,4.46084 ,3.18898 ,4.56602 - +,0.01754 ,0.00262,181.48669 ,5.26928 ,5.06261 ,3.80026 ,5.16780 - +,0.01769 ,0.00273,202.59399 ,5.89707 ,5.69049 ,4.43713 ,5.79569 - +,0.01783 ,0.00284,224.40771 ,6.55126 ,6.34477 ,5.09993 ,6.44998 - +,0.01798 ,0.00294,246.26395 ,7.21506 ,7.00865 ,5.77192 ,7.11386 - +,0.01812 ,0.00304,268.80029 ,7.90435 ,7.69802 ,6.46900 ,7.80324 - +,0.01826 ,0.00314,291.47339 ,8.60564 ,8.39938 ,7.17774 ,8.50461 - +,0.01840 ,0.00324,314.53711 ,9.32491 ,9.11871 ,7.90412 ,9.22395/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),K=1,19)/ - + 0.01888 ,0.00167 ,4.16070 ,0.24925 ,0.03969 ,0.00000 ,0.14503 - +,0.01917 ,0.00191 ,9.69975 ,0.40683 ,0.19746 ,0.00000 ,0.30278 - +,0.01944 ,0.00213 ,16.87122 ,0.60908 ,0.39987 ,0.00000 ,0.50519 - +,0.01972 ,0.00235 ,25.24316 ,0.84632 ,0.63726 ,0.00000 ,0.74256 - +,0.01998 ,0.00255 ,34.81721 ,1.11810 ,0.90916 ,0.00000 ,1.01447 - +,0.02023 ,0.00275 ,45.38509 ,1.42018 ,1.21136 ,0.09295 ,1.31666 - +,0.02048 ,0.00293 ,56.81831 ,1.75055 ,1.54183 ,0.42170 ,1.64714 - +,0.02072 ,0.00312 ,68.98438 ,2.10632 ,1.89771 ,0.79079 ,2.00301 - +,0.02096 ,0.00329 ,81.78163 ,2.48498 ,2.27646 ,1.17961 ,2.38177 - +,0.02119 ,0.00347 ,95.12801 ,2.88463 ,2.67620 ,1.58955 ,2.78151 - +,0.02142 ,0.00364,108.96863 ,3.30387 ,3.09552 ,2.01812 ,3.20083 - +,0.02164 ,0.00380,123.26973 ,3.74174 ,3.53346 ,2.46483 ,3.63878 - +,0.02186 ,0.00396,137.68819 ,4.18970 ,3.98149 ,2.92111 ,4.08681 - +,0.02208 ,0.00412,152.46057 ,4.65338 ,4.44524 ,3.39266 ,4.55056 - +,0.02228 ,0.00427,167.59599 ,5.13300 ,4.92493 ,3.87973 ,5.03025 - +,0.02249 ,0.00442,182.62357 ,5.61608 ,5.40807 ,4.36991 ,5.51340 - +,0.02269 ,0.00457,198.00436 ,6.11450 ,5.90655 ,4.87507 ,6.01188 - +,0.02289 ,0.00471,213.35815 ,6.61831 ,6.41040 ,5.38531 ,6.51574 - +,0.02309 ,0.00485,228.86781 ,7.13196 ,6.92411 ,5.90512 ,7.02945/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),K=1,19)/ - + 0.02257 ,0.00262 ,4.03928 ,0.24677 ,0.03638 ,0.00000 ,0.14187 - +,0.02306 ,0.00298 ,8.86095 ,0.38660 ,0.17633 ,0.00000 ,0.28181 - +,0.02351 ,0.00332 ,14.84878 ,0.55989 ,0.34973 ,0.00000 ,0.45519 - +,0.02394 ,0.00364 ,21.62544 ,0.75796 ,0.54791 ,0.00000 ,0.65336 - +,0.02434 ,0.00394 ,29.18390 ,0.98014 ,0.77018 ,0.00000 ,0.87562 - +,0.02473 ,0.00422 ,37.35239 ,1.22276 ,1.01288 ,0.07438 ,1.11831 - +,0.02510 ,0.00450 ,46.02846 ,1.48405 ,1.27424 ,0.33521 ,1.37966 - +,0.02546 ,0.00477 ,55.11102 ,1.76161 ,1.55188 ,0.62425 ,1.65729 - +,0.02581 ,0.00502 ,64.52583 ,2.05344 ,1.84377 ,0.92494 ,1.94918 - +,0.02615 ,0.00527 ,74.21518 ,2.35804 ,2.14843 ,1.23845 ,2.25384 - +,0.02648 ,0.00552 ,84.14223 ,2.67434 ,2.46479 ,1.56285 ,2.57019 - +,0.02680 ,0.00575 ,94.28624 ,3.00161 ,2.79212 ,1.89780 ,2.89752 - +,0.02711 ,0.00598,104.40158 ,3.33344 ,3.12400 ,2.23685 ,3.22940 - +,0.02741 ,0.00621,114.66719 ,3.67418 ,3.46479 ,2.58440 ,3.57018 - +,0.02771 ,0.00643,125.09326 ,4.02399 ,3.81465 ,2.94067 ,3.92004 - +,0.02800 ,0.00664,135.34789 ,4.37369 ,4.16440 ,3.29652 ,4.26978 - +,0.02828 ,0.00685,145.76483 ,4.73216 ,4.52291 ,3.66083 ,4.62829 - +,0.02856 ,0.00705,156.07919 ,5.09209 ,4.88289 ,4.02635 ,4.98826 - +,0.02883 ,0.00725,166.42487 ,5.45689 ,5.24773 ,4.39649 ,5.35310/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),K=1,19)/ - + 0.02499 ,0.00342 ,3.96967 ,0.24526 ,0.03445 ,0.00000 ,0.14003 - +,0.02562 ,0.00387 ,8.40320 ,0.37525 ,0.16455 ,0.00000 ,0.27010 - +,0.02619 ,0.00430 ,13.77740 ,0.53312 ,0.32252 ,0.00000 ,0.42805 - +,0.02674 ,0.00470 ,19.74977 ,0.71090 ,0.50038 ,0.00000 ,0.60590 - +,0.02725 ,0.00507 ,26.31377 ,0.90788 ,0.69744 ,0.00000 ,0.80294 - +,0.02773 ,0.00543 ,33.31931 ,1.12077 ,0.91039 ,0.06513 ,1.01588 - +,0.02819 ,0.00578 ,40.67944 ,1.34798 ,1.13767 ,0.29244 ,1.24314 - +,0.02864 ,0.00611 ,48.31024 ,1.58742 ,1.37717 ,0.54240 ,1.48263 - +,0.02907 ,0.00643 ,56.15128 ,1.83736 ,1.62717 ,0.80053 ,1.73262 - +,0.02949 ,0.00674 ,64.15742 ,2.09653 ,1.88640 ,1.06791 ,1.99184 - +,0.02989 ,0.00704 ,72.30115 ,2.36405 ,2.15396 ,1.34288 ,2.25939 - +,0.03028 ,0.00733 ,80.56773 ,2.63934 ,2.42930 ,1.62524 ,2.53472 - +,0.03067 ,0.00761 ,88.75687 ,2.91697 ,2.70699 ,1.90952 ,2.81240 - +,0.03104 ,0.00789 ,97.02061 ,3.20071 ,2.99077 ,2.19954 ,3.09617 - +,0.03139 ,0.00816,105.36964 ,3.49072 ,3.28083 ,2.49551 ,3.38622 - +,0.03175 ,0.00842,113.53455 ,3.77935 ,3.56950 ,2.78979 ,3.67487 - +,0.03209 ,0.00868,121.79201 ,4.07407 ,3.86426 ,3.08989 ,3.96963 - +,0.03243 ,0.00893,129.92789 ,4.36884 ,4.15907 ,3.38980 ,4.26443 - +,0.03275 ,0.00917,138.05397 ,4.66653 ,4.45680 ,3.69241 ,4.56215/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),K=1,19)/ - + 0.02683 ,0.00413 ,3.92084 ,0.24415 ,0.03309 ,0.00000 ,0.13873 - +,0.02757 ,0.00466 ,8.09207 ,0.36739 ,0.15643 ,0.00000 ,0.26204 - +,0.02825 ,0.00517 ,13.06263 ,0.51497 ,0.30410 ,0.00000 ,0.40968 - +,0.02888 ,0.00563 ,18.51527 ,0.67941 ,0.46861 ,0.00000 ,0.57417 - +,0.02948 ,0.00607 ,24.44534 ,0.86003 ,0.64931 ,0.00000 ,0.75485 - +,0.03004 ,0.00649 ,30.71794 ,1.05381 ,0.84315 ,0.05921 ,0.94867 - +,0.03058 ,0.00690 ,37.25661 ,1.25930 ,1.04870 ,0.26513 ,1.15421 - +,0.03110 ,0.00728 ,43.98882 ,1.47463 ,1.26409 ,0.49037 ,1.36958 - +,0.03160 ,0.00766 ,50.86322 ,1.69825 ,1.48776 ,0.72173 ,1.59323 - +,0.03208 ,0.00802 ,57.84256 ,1.92905 ,1.71861 ,0.96027 ,1.82407 - +,0.03254 ,0.00837 ,64.90501 ,2.16626 ,1.95588 ,1.20452 ,2.06131 - +,0.03299 ,0.00871 ,72.04008 ,2.40940 ,2.19906 ,1.45433 ,2.30449 - +,0.03343 ,0.00903 ,79.07454 ,2.65369 ,2.44341 ,1.70490 ,2.54881 - +,0.03386 ,0.00935 ,86.14417 ,2.90249 ,2.69226 ,1.95963 ,2.79765 - +,0.03427 ,0.00967 ,93.25969 ,3.15600 ,2.94581 ,2.21875 ,3.05119 - +,0.03467 ,0.00997,100.18959 ,3.40748 ,3.19733 ,2.47557 ,3.30270 - +,0.03506 ,0.01027,107.17564 ,3.66358 ,3.45347 ,2.73675 ,3.55882 - +,0.03544 ,0.01055,114.03403 ,3.91899 ,3.70892 ,2.99701 ,3.81425 - +,0.03582 ,0.01084,120.86346 ,4.17627 ,3.96625 ,3.25893 ,4.07156/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),K=1,19)/ - + 0.02833 ,0.00477 ,3.88325 ,0.24328 ,0.03204 ,0.00000 ,0.13772 - +,0.02916 ,0.00539 ,7.85814 ,0.36141 ,0.15027 ,0.00000 ,0.25592 - +,0.02993 ,0.00595 ,12.53256 ,0.50135 ,0.29029 ,0.00000 ,0.39591 - +,0.03064 ,0.00648 ,17.60883 ,0.65600 ,0.44503 ,0.00000 ,0.55062 - +,0.03131 ,0.00698 ,23.08447 ,0.82474 ,0.61383 ,0.00000 ,0.71940 - +,0.03194 ,0.00746 ,28.83600 ,1.00474 ,0.79390 ,0.05495 ,0.89944 - +,0.03255 ,0.00791 ,34.79494 ,1.19468 ,0.98389 ,0.24555 ,1.08941 - +,0.03312 ,0.00835 ,40.89676 ,1.39282 ,1.18210 ,0.45315 ,1.28760 - +,0.03368 ,0.00877 ,47.09708 ,1.59777 ,1.38710 ,0.66552 ,1.49258 - +,0.03422 ,0.00917 ,53.36401 ,1.80853 ,1.59792 ,0.88368 ,1.70337 - +,0.03473 ,0.00957 ,59.67972 ,2.02443 ,1.81386 ,1.10631 ,1.91930 - +,0.03523 ,0.00995 ,66.03656 ,2.24504 ,2.03453 ,1.33330 ,2.13994 - +,0.03572 ,0.01032 ,72.28004 ,2.46603 ,2.25557 ,1.56030 ,2.36097 - +,0.03619 ,0.01067 ,78.53471 ,2.69052 ,2.48011 ,1.79046 ,2.58548 - +,0.03665 ,0.01102 ,84.81154 ,2.91869 ,2.70833 ,2.02400 ,2.81369 - +,0.03710 ,0.01136 ,90.90424 ,3.14446 ,2.93414 ,2.25488 ,3.03948 - +,0.03753 ,0.01169 ,97.03088 ,3.37388 ,3.16361 ,2.48916 ,3.26893 - +,0.03796 ,0.01201,103.02873 ,3.60218 ,3.39195 ,2.72210 ,3.49725 - +,0.03837 ,0.01233,108.98671 ,3.83170 ,3.62152 ,2.95605 ,3.72679/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),K=1,19)/ - + 0.03341 ,0.00751 ,3.76771 ,0.24045 ,0.02880 ,0.00000 ,0.13461 - +,0.03459 ,0.00842 ,7.16936 ,0.34343 ,0.13189 ,0.00000 ,0.23765 - +,0.03568 ,0.00926 ,11.00938 ,0.46141 ,0.24997 ,0.00000 ,0.35568 - +,0.03668 ,0.01004 ,15.04971 ,0.58857 ,0.37723 ,0.00000 ,0.48289 - +,0.03762 ,0.01077 ,19.29665 ,0.72444 ,0.51318 ,0.00000 ,0.61880 - +,0.03851 ,0.01146 ,23.66005 ,0.86683 ,0.65565 ,0.04337 ,0.76122 - +,0.03935 ,0.01212 ,28.09384 ,1.01474 ,0.80364 ,0.19256 ,0.90918 - +,0.04016 ,0.01275 ,32.55615 ,1.16692 ,0.95590 ,0.35294 ,1.06140 - +,0.04093 ,0.01335 ,37.01991 ,1.32237 ,1.11142 ,0.51490 ,1.21688 - +,0.04168 ,0.01393 ,41.46793 ,1.48039 ,1.26952 ,0.67938 ,1.37494 - +,0.04239 ,0.01449 ,45.89276 ,1.64058 ,1.42978 ,0.84546 ,1.53515 - +,0.04308 ,0.01503 ,50.29343 ,1.80268 ,1.59195 ,1.01314 ,1.69730 - +,0.04375 ,0.01556 ,54.56339 ,1.96355 ,1.75289 ,1.17925 ,1.85819 - +,0.04440 ,0.01606 ,58.79712 ,2.12559 ,1.91500 ,1.34625 ,2.02026 - +,0.04503 ,0.01655 ,63.00609 ,2.28901 ,2.07849 ,1.51437 ,2.18372 - +,0.04564 ,0.01703 ,67.04770 ,2.44942 ,2.23896 ,1.67925 ,2.34416 - +,0.04623 ,0.01749 ,71.07954 ,2.61133 ,2.40094 ,1.84541 ,2.50610 - +,0.04681 ,0.01795 ,74.99039 ,2.77131 ,2.56099 ,2.00945 ,2.66611 - +,0.04738 ,0.01838 ,78.84502 ,2.93113 ,2.72088 ,2.17315 ,2.82596/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),K=1,19)/ - + 0.03927 ,0.01181 ,3.65290 ,0.23749 ,0.02560 ,0.00000 ,0.13152 - +,0.04090 ,0.01316 ,6.53043 ,0.32631 ,0.11459 ,0.00000 ,0.22043 - +,0.04240 ,0.01439 ,9.64846 ,0.42478 ,0.21322 ,0.00000 ,0.31898 - +,0.04379 ,0.01553 ,12.82465 ,0.52830 ,0.31689 ,0.00000 ,0.42258 - +,0.04509 ,0.01659 ,16.07530 ,0.63660 ,0.42533 ,0.00000 ,0.53095 - +,0.04631 ,0.01758 ,19.33925 ,0.74807 ,0.53693 ,0.03391 ,0.64248 - +,0.04747 ,0.01853 ,22.58934 ,0.86203 ,0.65103 ,0.14963 ,0.75651 - +,0.04858 ,0.01943 ,25.80148 ,0.97763 ,0.76675 ,0.27237 ,0.87216 - +,0.04965 ,0.02029 ,28.96214 ,1.09418 ,0.88343 ,0.39468 ,0.98878 - +,0.05067 ,0.02112 ,32.06468 ,1.21128 ,1.00065 ,0.51744 ,1.10593 - +,0.05165 ,0.02191 ,35.10886 ,1.32869 ,1.11819 ,0.64005 ,1.22341 - +,0.05259 ,0.02267 ,38.09839 ,1.44633 ,1.23595 ,0.76260 ,1.34111 - +,0.05351 ,0.02340 ,40.96114 ,1.56193 ,1.35167 ,0.88282 ,1.45676 - +,0.05439 ,0.02411 ,43.76888 ,1.67737 ,1.46723 ,1.00263 ,1.57225 - +,0.05525 ,0.02480 ,46.53241 ,1.79286 ,1.58283 ,1.12226 ,1.68780 - +,0.05608 ,0.02546 ,49.15466 ,1.90525 ,1.69534 ,1.23859 ,1.80024 - +,0.05689 ,0.02611 ,51.74867 ,2.01792 ,1.80812 ,1.35500 ,1.91296 - +,0.05767 ,0.02673 ,54.23944 ,2.12841 ,1.91873 ,1.46908 ,2.02351 - +,0.05844 ,0.02734 ,56.67404 ,2.23808 ,2.02850 ,1.58217 ,2.13323/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),K=1,19)/ - + 0.04323 ,0.01539 ,3.58518 ,0.23573 ,0.02376 ,0.00000 ,0.12973 - +,0.04521 ,0.01708 ,6.17517 ,0.31668 ,0.10494 ,0.00000 ,0.21081 - +,0.04701 ,0.01862 ,8.91422 ,0.40475 ,0.19322 ,0.00000 ,0.29899 - +,0.04869 ,0.02002 ,11.65031 ,0.49597 ,0.28465 ,0.00000 ,0.39032 - +,0.05025 ,0.02134 ,14.40541 ,0.59020 ,0.37908 ,0.00000 ,0.48465 - +,0.05172 ,0.02256 ,17.13310 ,0.68614 ,0.47521 ,0.02919 ,0.58069 - +,0.05312 ,0.02373 ,19.81555 ,0.78330 ,0.57256 ,0.12834 ,0.67795 - +,0.05445 ,0.02483 ,22.43706 ,0.88100 ,0.67043 ,0.23266 ,0.77573 - +,0.05573 ,0.02588 ,24.99033 ,0.97874 ,0.76835 ,0.33577 ,0.87356 - +,0.05696 ,0.02688 ,27.47321 ,1.07623 ,0.86602 ,0.43854 ,0.97114 - +,0.05813 ,0.02785 ,29.88857 ,1.17335 ,0.96330 ,0.54049 ,1.06834 - +,0.05927 ,0.02877 ,32.24193 ,1.27005 ,1.06018 ,0.64178 ,1.16513 - +,0.06036 ,0.02966 ,34.47665 ,1.36451 ,1.15480 ,0.74055 ,1.25967 - +,0.06142 ,0.03052 ,36.65347 ,1.45833 ,1.24879 ,0.83845 ,1.35357 - +,0.06245 ,0.03134 ,38.78255 ,1.55174 ,1.34235 ,0.93572 ,1.44706 - +,0.06344 ,0.03214 ,40.78740 ,1.64216 ,1.43293 ,1.02982 ,1.53756 - +,0.06441 ,0.03292 ,42.76015 ,1.73242 ,1.52334 ,1.12358 ,1.62789 - +,0.06535 ,0.03366 ,44.64198 ,1.82053 ,1.61161 ,1.21504 ,1.71607 - +,0.06626 ,0.03439 ,46.47165 ,1.90762 ,1.69886 ,1.30533 ,1.80324/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),K=1,19)/ - + 0.04645 ,0.01857 ,3.53637 ,0.23447 ,0.02246 ,0.00000 ,0.12847 - +,0.04870 ,0.02054 ,5.92933 ,0.31002 ,0.09831 ,0.00000 ,0.20418 - +,0.05077 ,0.02234 ,8.41583 ,0.39110 ,0.17965 ,0.00000 ,0.28540 - +,0.05269 ,0.02397 ,10.86427 ,0.47418 ,0.26300 ,0.00000 ,0.36863 - +,0.05448 ,0.02549 ,13.30040 ,0.55923 ,0.34829 ,0.00000 ,0.45381 - +,0.05616 ,0.02691 ,15.68735 ,0.64514 ,0.43444 ,0.02615 ,0.53984 - +,0.05775 ,0.02825 ,18.01306 ,0.73153 ,0.52106 ,0.11469 ,0.62635 - +,0.05927 ,0.02952 ,20.26704 ,0.81785 ,0.60761 ,0.20728 ,0.71278 - +,0.06073 ,0.03072 ,22.44556 ,0.90370 ,0.69369 ,0.29827 ,0.79876 - +,0.06213 ,0.03187 ,24.54930 ,0.98889 ,0.77910 ,0.38848 ,0.88406 - +,0.06347 ,0.03297 ,26.58261 ,1.07333 ,0.86375 ,0.47755 ,0.96861 - +,0.06476 ,0.03403 ,28.55199 ,1.15705 ,0.94768 ,0.56563 ,1.05243 - +,0.06601 ,0.03504 ,30.41013 ,1.23845 ,1.02928 ,0.65114 ,1.13393 - +,0.06721 ,0.03601 ,32.21078 ,1.31898 ,1.11002 ,0.73557 ,1.21457 - +,0.06837 ,0.03696 ,33.96370 ,1.39887 ,1.19011 ,0.81915 ,1.29456 - +,0.06950 ,0.03786 ,35.60449 ,1.47590 ,1.26734 ,0.89969 ,1.37169 - +,0.07060 ,0.03874 ,37.21265 ,1.55255 ,1.34418 ,0.97969 ,1.44844 - +,0.07166 ,0.03958 ,38.73889 ,1.62712 ,1.41894 ,1.05746 ,1.52310 - +,0.07270 ,0.04040 ,40.21678 ,1.70061 ,1.49263 ,1.13401 ,1.59669/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),K=1,19)/ - + 0.04962 ,0.02149 ,3.49738 ,0.23353 ,0.02147 ,0.00000 ,0.12749 - +,0.05216 ,0.02371 ,5.73806 ,0.30498 ,0.09326 ,0.00000 ,0.19913 - +,0.05449 ,0.02571 ,8.03282 ,0.38079 ,0.16939 ,0.00000 ,0.27511 - +,0.05664 ,0.02754 ,10.26560 ,0.45780 ,0.24670 ,0.00000 ,0.35227 - +,0.05864 ,0.02924 ,12.46565 ,0.53604 ,0.32522 ,0.00000 ,0.43066 - +,0.06052 ,0.03082 ,14.60323 ,0.61455 ,0.40402 ,0.02392 ,0.50931 - +,0.06230 ,0.03230 ,16.66962 ,0.69305 ,0.48279 ,0.10468 ,0.58795 - +,0.06400 ,0.03371 ,18.65865 ,0.77107 ,0.56109 ,0.18873 ,0.66611 - +,0.06562 ,0.03504 ,20.56854 ,0.84831 ,0.63858 ,0.27091 ,0.74348 - +,0.06718 ,0.03631 ,22.40211 ,0.92460 ,0.71513 ,0.35204 ,0.81990 - +,0.06867 ,0.03753 ,24.16449 ,0.99991 ,0.79070 ,0.43181 ,0.89534 - +,0.07010 ,0.03869 ,25.86209 ,1.07431 ,0.86534 ,0.51041 ,0.96986 - +,0.07149 ,0.03980 ,27.45621 ,1.14639 ,0.93766 ,0.58646 ,1.04207 - +,0.07282 ,0.04087 ,28.99522 ,1.21745 ,1.00896 ,0.66128 ,1.11325 - +,0.07411 ,0.04190 ,30.48828 ,1.28771 ,1.07945 ,0.73510 ,1.18362 - +,0.07536 ,0.04289 ,31.87639 ,1.35527 ,1.14724 ,0.80605 ,1.25130 - +,0.07657 ,0.04385 ,33.23264 ,1.42232 ,1.21453 ,0.87634 ,1.31847 - +,0.07775 ,0.04477 ,34.51457 ,1.48738 ,1.27981 ,0.94448 ,1.38363 - +,0.07889 ,0.04567 ,35.75165 ,1.55132 ,1.34397 ,1.01139 ,1.44769/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),K=1,19)/ - + 0.06179 ,0.03379 ,3.37123 ,0.23038 ,0.01843 ,0.00000 ,0.12441 - +,0.06547 ,0.03693 ,5.16261 ,0.28957 ,0.07820 ,0.00000 ,0.18391 - +,0.06882 ,0.03975 ,6.91377 ,0.35018 ,0.13936 ,0.00000 ,0.24481 - +,0.07190 ,0.04230 ,8.55339 ,0.41003 ,0.19973 ,0.00000 ,0.30493 - +,0.07475 ,0.04463 ,10.11749 ,0.46937 ,0.25958 ,0.00000 ,0.36453 - +,0.07741 ,0.04680 ,11.59450 ,0.52768 ,0.31836 ,0.01788 ,0.42308 - +,0.07992 ,0.04882 ,12.98613 ,0.58488 ,0.37604 ,0.07768 ,0.48053 - +,0.08231 ,0.05071 ,14.29461 ,0.64078 ,0.43239 ,0.13895 ,0.53666 - +,0.08458 ,0.05250 ,15.52417 ,0.69525 ,0.48730 ,0.19792 ,0.59135 - +,0.08674 ,0.05419 ,16.68115 ,0.74828 ,0.54076 ,0.25531 ,0.64460 - +,0.08881 ,0.05580 ,17.77272 ,0.79995 ,0.59285 ,0.31102 ,0.69648 - +,0.09079 ,0.05734 ,18.80626 ,0.85037 ,0.64368 ,0.36526 ,0.74711 - +,0.09269 ,0.05879 ,19.75838 ,0.89861 ,0.69232 ,0.41711 ,0.79555 - +,0.09452 ,0.06018 ,20.66383 ,0.94566 ,0.73977 ,0.46758 ,0.84280 - +,0.09629 ,0.06153 ,21.53035 ,0.99173 ,0.78622 ,0.51689 ,0.88906 - +,0.09799 ,0.06280 ,22.32066 ,1.03553 ,0.83039 ,0.56378 ,0.93305 - +,0.09963 ,0.06404 ,23.08412 ,1.07863 ,0.87387 ,0.60983 ,0.97634 - +,0.10122 ,0.06522 ,23.79428 ,1.12005 ,0.91565 ,0.65407 ,1.01794 - +,0.10276 ,0.06636 ,24.47107 ,1.16043 ,0.95638 ,0.69715 ,1.05849/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),K=1,19)/ - + 0.08074 ,0.05305 ,3.23068 ,0.22668 ,0.01548 ,0.00001 ,0.12107 - +,0.08612 ,0.05734 ,4.60204 ,0.27428 ,0.06409 ,0.00001 ,0.16920 - +,0.09096 ,0.06114 ,5.87570 ,0.32119 ,0.11194 ,0.00001 ,0.21659 - +,0.09536 ,0.06454 ,7.01789 ,0.36610 ,0.15774 ,0.00002 ,0.26196 - +,0.09940 ,0.06762 ,8.06763 ,0.40943 ,0.20192 ,0.00001 ,0.30572 - +,0.10316 ,0.07044 ,9.02627 ,0.45103 ,0.24433 ,0.01299 ,0.34773 - +,0.10667 ,0.07305 ,9.90259 ,0.49096 ,0.28505 ,0.05587 ,0.38806 - +,0.10998 ,0.07549 ,10.70396 ,0.52923 ,0.32406 ,0.09906 ,0.42671 - +,0.11310 ,0.07776 ,11.43771 ,0.56587 ,0.36143 ,0.13991 ,0.46371 - +,0.11606 ,0.07990 ,12.11115 ,0.60097 ,0.39724 ,0.17907 ,0.49917 - +,0.11888 ,0.08192 ,12.73175 ,0.63465 ,0.43160 ,0.21653 ,0.53320 - +,0.12157 ,0.08382 ,13.30676 ,0.66704 ,0.46466 ,0.25248 ,0.56592 - +,0.12412 ,0.08562 ,13.82238 ,0.69760 ,0.49585 ,0.28641 ,0.59680 - +,0.12657 ,0.08734 ,14.30373 ,0.72703 ,0.52592 ,0.31905 ,0.62655 - +,0.12893 ,0.08898 ,14.75668 ,0.75552 ,0.55503 ,0.35059 ,0.65535 - +,0.13119 ,0.09052 ,15.15785 ,0.78224 ,0.58234 ,0.38022 ,0.68237 - +,0.13337 ,0.09200 ,15.54004 ,0.80828 ,0.60897 ,0.40904 ,0.70870 - +,0.13545 ,0.09342 ,15.88782 ,0.83300 ,0.63426 ,0.43642 ,0.73371 - +,0.13746 ,0.09478 ,16.21324 ,0.85687 ,0.65869 ,0.46284 ,0.75786/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),K=1,19)/ - + 0.09673 ,0.06890 ,3.13674 ,0.22387 ,0.01378 ,0.00000 ,0.11883 - +,0.10340 ,0.07393 ,4.27683 ,0.26494 ,0.05623 ,0.00001 ,0.16060 - +,0.10937 ,0.07834 ,5.30167 ,0.30445 ,0.09703 ,0.00002 ,0.20077 - +,0.11473 ,0.08225 ,6.19422 ,0.34150 ,0.13530 ,0.00002 ,0.23844 - +,0.11966 ,0.08575 ,6.99441 ,0.37665 ,0.17159 ,0.00002 ,0.27416 - +,0.12419 ,0.08895 ,7.70960 ,0.40987 ,0.20589 ,0.01057 ,0.30794 - +,0.12841 ,0.09190 ,8.34956 ,0.44132 ,0.23840 ,0.04522 ,0.33992 - +,0.13235 ,0.09461 ,8.92297 ,0.47107 ,0.26916 ,0.07974 ,0.37018 - +,0.13607 ,0.09714 ,9.43685 ,0.49923 ,0.29827 ,0.11203 ,0.39882 - +,0.13958 ,0.09949 ,9.90085 ,0.52589 ,0.32587 ,0.14266 ,0.42595 - +,0.14289 ,0.10171 ,10.32203 ,0.55122 ,0.35210 ,0.17169 ,0.45174 - +,0.14603 ,0.10380 ,10.70588 ,0.57539 ,0.37713 ,0.19937 ,0.47633 - +,0.14902 ,0.10574 ,11.04231 ,0.59791 ,0.40049 ,0.22519 ,0.49927 - +,0.15187 ,0.10759 ,11.35069 ,0.61942 ,0.42283 ,0.24985 ,0.52120 - +,0.15460 ,0.10935 ,11.63615 ,0.64010 ,0.44430 ,0.27351 ,0.54228 - +,0.15719 ,0.11100 ,11.88402 ,0.65930 ,0.46427 ,0.29556 ,0.56186 - +,0.15968 ,0.11259 ,12.11747 ,0.67789 ,0.48361 ,0.31689 ,0.58083 - +,0.16207 ,0.11410 ,12.32524 ,0.69540 ,0.50186 ,0.33702 ,0.59871 - +,0.16438 ,0.11554 ,12.51643 ,0.71218 ,0.51936 ,0.35631 ,0.61585/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),K=1,19)/ - + 0.11135 ,0.08280 ,3.06218 ,0.22140 ,0.01259 ,0.00000 ,0.11699 - +,0.11908 ,0.08834 ,4.04479 ,0.25790 ,0.05083 ,0.00001 ,0.15437 - +,0.12595 ,0.09315 ,4.90600 ,0.29238 ,0.08692 ,0.00002 ,0.18968 - +,0.13209 ,0.09738 ,5.63922 ,0.32422 ,0.12026 ,0.00002 ,0.22227 - +,0.13769 ,0.10116 ,6.28367 ,0.35403 ,0.15148 ,0.00002 ,0.25279 - +,0.14282 ,0.10457 ,6.84914 ,0.38187 ,0.18064 ,0.00904 ,0.28130 - +,0.14757 ,0.10770 ,7.34629 ,0.40793 ,0.20800 ,0.03850 ,0.30802 - +,0.15200 ,0.11057 ,7.78427 ,0.43234 ,0.23363 ,0.06762 ,0.33304 - +,0.15615 ,0.11322 ,8.17015 ,0.45522 ,0.25767 ,0.09462 ,0.35650 - +,0.16005 ,0.11569 ,8.51305 ,0.47670 ,0.28028 ,0.12004 ,0.37855 - +,0.16372 ,0.11799 ,8.81956 ,0.49695 ,0.30161 ,0.14397 ,0.39934 - +,0.16719 ,0.12016 ,9.09474 ,0.51611 ,0.32181 ,0.16662 ,0.41902 - +,0.17047 ,0.12216 ,9.33093 ,0.53381 ,0.34052 ,0.18762 ,0.43722 - +,0.17359 ,0.12406 ,9.54419 ,0.55061 ,0.35829 ,0.20754 ,0.45451 - +,0.17657 ,0.12586 ,9.73890 ,0.56666 ,0.37529 ,0.22656 ,0.47103 - +,0.17938 ,0.12754 ,9.90358 ,0.58142 ,0.39097 ,0.24417 ,0.48626 - +,0.18209 ,0.12914 ,10.05697 ,0.59566 ,0.40610 ,0.26113 ,0.50094 - +,0.18468 ,0.13067 ,10.19029 ,0.60896 ,0.42027 ,0.27704 ,0.51468 - +,0.18716 ,0.13212 ,10.31081 ,0.62164 ,0.43380 ,0.29223 ,0.52779/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),K=1,19)/ - + 0.12505 ,0.09535 ,2.99865 ,0.21906 ,0.01169 ,0.00001 ,0.11537 - +,0.13367 ,0.10122 ,3.86313 ,0.25206 ,0.04674 ,0.00002 ,0.14941 - +,0.14128 ,0.10631 ,4.60471 ,0.28277 ,0.07936 ,0.00004 ,0.18109 - +,0.14805 ,0.11074 ,5.22486 ,0.31075 ,0.10911 ,0.00003 ,0.20996 - +,0.15418 ,0.11469 ,5.76002 ,0.33667 ,0.13668 ,0.00004 ,0.23671 - +,0.15978 ,0.11823 ,6.22221 ,0.36062 ,0.16218 ,0.00796 ,0.26145 - +,0.16495 ,0.12144 ,6.62214 ,0.38285 ,0.18590 ,0.03376 ,0.28442 - +,0.16974 ,0.12440 ,6.96846 ,0.40349 ,0.20794 ,0.05909 ,0.30576 - +,0.17423 ,0.12709 ,7.26977 ,0.42267 ,0.22848 ,0.08240 ,0.32562 - +,0.17842 ,0.12959 ,7.53316 ,0.44056 ,0.24766 ,0.10423 ,0.34415 - +,0.18235 ,0.13192 ,7.76433 ,0.45729 ,0.26563 ,0.12465 ,0.36151 - +,0.18607 ,0.13409 ,7.96831 ,0.47300 ,0.28255 ,0.14386 ,0.37784 - +,0.18955 ,0.13611 ,8.14085 ,0.48742 ,0.29813 ,0.16159 ,0.39283 - +,0.19286 ,0.13800 ,8.29439 ,0.50103 ,0.31285 ,0.17833 ,0.40700 - +,0.19601 ,0.13978 ,8.43273 ,0.51396 ,0.32685 ,0.19425 ,0.42047 - +,0.19897 ,0.14145 ,8.54521 ,0.52575 ,0.33968 ,0.20890 ,0.43278 - +,0.20183 ,0.14304 ,8.64857 ,0.53706 ,0.35201 ,0.22293 ,0.44459 - +,0.20455 ,0.14451 ,8.73552 ,0.54754 ,0.36348 ,0.23602 ,0.45557 - +,0.20715 ,0.14592 ,8.81301 ,0.55750 ,0.37439 ,0.24848 ,0.46601/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),K=1,19)/ - + 0.18593 ,0.14581 ,2.75243 ,0.20798 ,0.00887 ,0.00001 ,0.10842 - +,0.19742 ,0.15217 ,3.27580 ,0.23018 ,0.03450 ,0.00001 ,0.13235 - +,0.20733 ,0.15750 ,3.69016 ,0.24976 ,0.05719 ,0.00000 ,0.15350 - +,0.21592 ,0.16202 ,4.00893 ,0.26677 ,0.07703 ,0.00002 ,0.17193 - +,0.22355 ,0.16593 ,4.26638 ,0.28187 ,0.09473 ,0.00001 ,0.18832 - +,0.23038 ,0.16937 ,4.47213 ,0.29529 ,0.11060 ,0.00509 ,0.20297 - +,0.23662 ,0.17237 ,4.63749 ,0.30731 ,0.12488 ,0.02127 ,0.21613 - +,0.24226 ,0.17507 ,4.76875 ,0.31808 ,0.13780 ,0.03682 ,0.22797 - +,0.24746 ,0.17748 ,4.87407 ,0.32774 ,0.14951 ,0.05078 ,0.23867 - +,0.25223 ,0.17968 ,4.95741 ,0.33647 ,0.16017 ,0.06356 ,0.24836 - +,0.25665 ,0.18167 ,5.02320 ,0.34439 ,0.16993 ,0.07529 ,0.25720 - +,0.26078 ,0.18347 ,5.07566 ,0.35164 ,0.17895 ,0.08614 ,0.26533 - +,0.26458 ,0.18510 ,5.11152 ,0.35803 ,0.18701 ,0.09592 ,0.27255 - +,0.26815 ,0.18659 ,5.13823 ,0.36391 ,0.19449 ,0.10501 ,0.27923 - +,0.27150 ,0.18799 ,5.15808 ,0.36936 ,0.20148 ,0.11352 ,0.28545 - +,0.27463 ,0.18922 ,5.16607 ,0.37412 ,0.20772 ,0.12119 ,0.29096 - +,0.27760 ,0.19038 ,5.17111 ,0.37859 ,0.21362 ,0.12845 ,0.29616 - +,0.28034 ,0.19147 ,5.16968 ,0.38258 ,0.21899 ,0.13511 ,0.30084 - +,0.28294 ,0.19248 ,5.16440 ,0.38627 ,0.22401 ,0.14136 ,0.30519/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),K=1,19)/ - + 0.28767 ,0.21432 ,2.39222 ,0.18612 ,0.00607 ,-0.00010 ,0.09606 - +,0.30055 ,0.21902 ,2.62332 ,0.19778 ,0.02300 ,-0.00011 ,0.11034 - +,0.31126 ,0.22267 ,2.78007 ,0.20723 ,0.03716 ,-0.00010 ,0.12216 - +,0.32011 ,0.22555 ,2.88036 ,0.21480 ,0.04890 ,-0.00009 ,0.13182 - +,0.32772 ,0.22777 ,2.94563 ,0.22104 ,0.05893 ,-0.00010 ,0.13997 - +,0.33434 ,0.22957 ,2.98514 ,0.22619 ,0.06753 ,0.00276 ,0.14683 - +,0.34012 ,0.23099 ,3.00532 ,0.23044 ,0.07497 ,0.01179 ,0.15269 - +,0.34517 ,0.23216 ,3.01080 ,0.23395 ,0.08146 ,0.02025 ,0.15767 - +,0.34968 ,0.23307 ,3.00529 ,0.23687 ,0.08712 ,0.02762 ,0.16196 - +,0.35368 ,0.23380 ,2.99200 ,0.23925 ,0.09212 ,0.03419 ,0.16565 - +,0.35724 ,0.23438 ,2.97319 ,0.24121 ,0.09654 ,0.04007 ,0.16885 - +,0.36047 ,0.23484 ,2.95048 ,0.24285 ,0.10048 ,0.04536 ,0.17164 - +,0.36333 ,0.23511 ,2.92218 ,0.24406 ,0.10389 ,0.05002 ,0.17396 - +,0.36592 ,0.23530 ,2.89250 ,0.24505 ,0.10694 ,0.05427 ,0.17597 - +,0.36829 ,0.23542 ,2.86223 ,0.24589 ,0.10971 ,0.05816 ,0.17776 - +,0.37038 ,0.23544 ,2.82866 ,0.24637 ,0.11211 ,0.06156 ,0.17919 - +,0.37233 ,0.23542 ,2.79574 ,0.24676 ,0.11431 ,0.06472 ,0.18049 - +,0.37406 ,0.23535 ,2.76165 ,0.24696 ,0.11621 ,0.06756 ,0.18156 - +,0.37564 ,0.23523 ,2.72777 ,0.24705 ,0.11795 ,0.07018 ,0.18247/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),K=1,19)/ - + 0.37177 ,0.25864 ,2.10408 ,0.16441 ,0.00458 ,0.00002 ,0.08450 - +,0.38314 ,0.26041 ,2.19625 ,0.17037 ,0.01693 ,0.00003 ,0.09365 - +,0.39202 ,0.26146 ,2.24095 ,0.17474 ,0.02679 ,-0.00002 ,0.10076 - +,0.39901 ,0.26192 ,2.25233 ,0.17778 ,0.03477 ,0.00005 ,0.10627 - +,0.40468 ,0.26195 ,2.24546 ,0.17996 ,0.04130 ,0.00002 ,0.11063 - +,0.40942 ,0.26166 ,2.22580 ,0.18145 ,0.04674 ,0.00187 ,0.11411 - +,0.41319 ,0.26125 ,2.19771 ,0.18243 ,0.05132 ,0.00781 ,0.11687 - +,0.41637 ,0.26058 ,2.16409 ,0.18299 ,0.05521 ,0.01320 ,0.11909 - +,0.41901 ,0.25980 ,2.12686 ,0.18322 ,0.05847 ,0.01785 ,0.12085 - +,0.42122 ,0.25888 ,2.08777 ,0.18318 ,0.06127 ,0.02189 ,0.12223 - +,0.42305 ,0.25790 ,2.04797 ,0.18293 ,0.06370 ,0.02542 ,0.12332 - +,0.42451 ,0.25696 ,2.00821 ,0.18250 ,0.06581 ,0.02858 ,0.12419 - +,0.42564 ,0.25590 ,1.96741 ,0.18190 ,0.06754 ,0.03133 ,0.12476 - +,0.42658 ,0.25479 ,1.92753 ,0.18122 ,0.06905 ,0.03376 ,0.12517 - +,0.42737 ,0.25366 ,1.88892 ,0.18049 ,0.07039 ,0.03593 ,0.12548 - +,0.42785 ,0.25253 ,1.85027 ,0.17961 ,0.07147 ,0.03785 ,0.12559 - +,0.42826 ,0.25140 ,1.81339 ,0.17873 ,0.07245 ,0.03960 ,0.12564 - +,0.42852 ,0.25020 ,1.77709 ,0.17777 ,0.07328 ,0.04110 ,0.12555 - +,0.42864 ,0.24906 ,1.74214 ,0.17678 ,0.07400 ,0.04247 ,0.12541/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),K=1,19)/ - + 0.44158 ,0.28737 ,1.85610 ,0.14348 ,0.00361 ,0.00007 ,0.07357 - +,0.44956 ,0.28604 ,1.86922 ,0.14592 ,0.01298 ,0.00008 ,0.07950 - +,0.45525 ,0.28440 ,1.85428 ,0.14729 ,0.02019 ,0.00009 ,0.08382 - +,0.45923 ,0.28236 ,1.82130 ,0.14778 ,0.02590 ,0.00008 ,0.08687 - +,0.46215 ,0.28014 ,1.78059 ,0.14777 ,0.03041 ,0.00005 ,0.08913 - +,0.46418 ,0.27786 ,1.73562 ,0.14741 ,0.03405 ,0.00137 ,0.09080 - +,0.46546 ,0.27557 ,1.68829 ,0.14673 ,0.03708 ,0.00551 ,0.09194 - +,0.46625 ,0.27320 ,1.64046 ,0.14583 ,0.03956 ,0.00927 ,0.09274 - +,0.46658 ,0.27085 ,1.59297 ,0.14479 ,0.04160 ,0.01242 ,0.09325 - +,0.46649 ,0.26855 ,1.54666 ,0.14365 ,0.04331 ,0.01510 ,0.09352 - +,0.46618 ,0.26625 ,1.50200 ,0.14242 ,0.04475 ,0.01740 ,0.09362 - +,0.46579 ,0.26392 ,1.45920 ,0.14112 ,0.04594 ,0.01941 ,0.09359 - +,0.46497 ,0.26167 ,1.41729 ,0.13979 ,0.04686 ,0.02114 ,0.09338 - +,0.46404 ,0.25948 ,1.37754 ,0.13845 ,0.04765 ,0.02266 ,0.09310 - +,0.46302 ,0.25736 ,1.33998 ,0.13712 ,0.04835 ,0.02402 ,0.09277 - +,0.46182 ,0.25520 ,1.30352 ,0.13571 ,0.04888 ,0.02517 ,0.09233 - +,0.46061 ,0.25313 ,1.26917 ,0.13434 ,0.04934 ,0.02621 ,0.09187 - +,0.45929 ,0.25111 ,1.23608 ,0.13298 ,0.04968 ,0.02714 ,0.09138 - +,0.45792 ,0.24913 ,1.20470 ,0.13165 ,0.04996 ,0.02796 ,0.09086/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),K=1,19)/ - + 0.49841 ,0.30498 ,1.63771 ,0.12383 ,0.00281 ,0.00006 ,0.06336 - +,0.50210 ,0.30061 ,1.60289 ,0.12408 ,0.01005 ,0.00005 ,0.06710 - +,0.50392 ,0.29630 ,1.55396 ,0.12358 ,0.01557 ,0.00010 ,0.06962 - +,0.50443 ,0.29193 ,1.49785 ,0.12265 ,0.01968 ,0.00003 ,0.07117 - +,0.50409 ,0.28771 ,1.44115 ,0.12143 ,0.02291 ,0.00008 ,0.07219 - +,0.50312 ,0.28362 ,1.38530 ,0.12004 ,0.02545 ,0.00104 ,0.07279 - +,0.50162 ,0.27967 ,1.33102 ,0.11852 ,0.02754 ,0.00399 ,0.07304 - +,0.49970 ,0.27589 ,1.27907 ,0.11696 ,0.02916 ,0.00664 ,0.07305 - +,0.49757 ,0.27222 ,1.22971 ,0.11529 ,0.03050 ,0.00885 ,0.07293 - +,0.49529 ,0.26862 ,1.18314 ,0.11363 ,0.03157 ,0.01070 ,0.07264 - +,0.49287 ,0.26515 ,1.13936 ,0.11200 ,0.03241 ,0.01228 ,0.07225 - +,0.49032 ,0.26188 ,1.09831 ,0.11041 ,0.03311 ,0.01370 ,0.07179 - +,0.48759 ,0.25866 ,1.05932 ,0.10880 ,0.03361 ,0.01487 ,0.07124 - +,0.48485 ,0.25555 ,1.02284 ,0.10724 ,0.03403 ,0.01588 ,0.07067 - +,0.48213 ,0.25257 ,0.98875 ,0.10573 ,0.03438 ,0.01677 ,0.07009 - +,0.47928 ,0.24967 ,0.95627 ,0.10418 ,0.03462 ,0.01748 ,0.06944 - +,0.47652 ,0.24689 ,0.92600 ,0.10269 ,0.03482 ,0.01812 ,0.06880 - +,0.47377 ,0.24415 ,0.89730 ,0.10123 ,0.03497 ,0.01869 ,0.06813 - +,0.47103 ,0.24151 ,0.87031 ,0.09982 ,0.03506 ,0.01917 ,0.06747/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),K=1,19)/ - + 0.55309 ,0.31501 ,1.39900 ,0.10150 ,0.00220 ,0.00007 ,0.05185 - +,0.55081 ,0.30709 ,1.32944 ,0.10014 ,0.00752 ,0.00011 ,0.05386 - +,0.54743 ,0.29970 ,1.25866 ,0.09845 ,0.01147 ,0.00005 ,0.05498 - +,0.54316 ,0.29287 ,1.18944 ,0.09657 ,0.01430 ,0.00006 ,0.05547 - +,0.53858 ,0.28646 ,1.12512 ,0.09460 ,0.01652 ,0.00009 ,0.05560 - +,0.53372 ,0.28058 ,1.06557 ,0.09266 ,0.01818 ,0.00077 ,0.05545 - +,0.52873 ,0.27497 ,1.01052 ,0.09070 ,0.01951 ,0.00282 ,0.05517 - +,0.52366 ,0.26968 ,0.95968 ,0.08879 ,0.02049 ,0.00463 ,0.05472 - +,0.51851 ,0.26468 ,0.91282 ,0.08694 ,0.02127 ,0.00605 ,0.05416 - +,0.51342 ,0.25988 ,0.86968 ,0.08512 ,0.02190 ,0.00727 ,0.05355 - +,0.50844 ,0.25533 ,0.83001 ,0.08336 ,0.02240 ,0.00831 ,0.05292 - +,0.50359 ,0.25103 ,0.79355 ,0.08167 ,0.02278 ,0.00919 ,0.05226 - +,0.49863 ,0.24693 ,0.75960 ,0.08003 ,0.02299 ,0.00993 ,0.05155 - +,0.49383 ,0.24299 ,0.72824 ,0.07844 ,0.02316 ,0.01056 ,0.05087 - +,0.48920 ,0.23922 ,0.69926 ,0.07692 ,0.02330 ,0.01110 ,0.05021 - +,0.48461 ,0.23557 ,0.67216 ,0.07549 ,0.02333 ,0.01154 ,0.04945 - +,0.48015 ,0.23213 ,0.64711 ,0.07411 ,0.02334 ,0.01192 ,0.04875 - +,0.47566 ,0.22886 ,0.62363 ,0.07274 ,0.02334 ,0.01223 ,0.04812 - +,0.47132 ,0.22570 ,0.60177 ,0.07143 ,0.02331 ,0.01250 ,0.04750/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),K=1,19)/ - + 0.59154 ,0.31486 ,1.19212 ,0.08196 ,0.00172 ,0.00011 ,0.04191 - +,0.58290 ,0.30406 ,1.10493 ,0.07979 ,0.00569 ,0.00018 ,0.04283 - +,0.57418 ,0.29429 ,1.02498 ,0.07756 ,0.00857 ,0.00014 ,0.04312 - +,0.56522 ,0.28546 ,0.95231 ,0.07535 ,0.01055 ,0.00016 ,0.04298 - +,0.55652 ,0.27740 ,0.88769 ,0.07316 ,0.01207 ,0.00014 ,0.04264 - +,0.54795 ,0.27007 ,0.82998 ,0.07107 ,0.01323 ,0.00063 ,0.04221 - +,0.53981 ,0.26311 ,0.77811 ,0.06909 ,0.01403 ,0.00203 ,0.04163 - +,0.53180 ,0.25670 ,0.73143 ,0.06717 ,0.01465 ,0.00325 ,0.04099 - +,0.52392 ,0.25076 ,0.68926 ,0.06535 ,0.01513 ,0.00428 ,0.04029 - +,0.51632 ,0.24517 ,0.65117 ,0.06361 ,0.01549 ,0.00510 ,0.03962 - +,0.50908 ,0.23987 ,0.61668 ,0.06195 ,0.01573 ,0.00577 ,0.03895 - +,0.50221 ,0.23487 ,0.58536 ,0.06038 ,0.01589 ,0.00634 ,0.03826 - +,0.49535 ,0.23016 ,0.55652 ,0.05888 ,0.01599 ,0.00680 ,0.03756 - +,0.48874 ,0.22571 ,0.53025 ,0.05747 ,0.01606 ,0.00719 ,0.03687 - +,0.48239 ,0.22152 ,0.50624 ,0.05614 ,0.01610 ,0.00751 ,0.03619 - +,0.47624 ,0.21745 ,0.48403 ,0.05485 ,0.01605 ,0.00784 ,0.03555 - +,0.47035 ,0.21358 ,0.46366 ,0.05363 ,0.01601 ,0.00811 ,0.03493 - +,0.46460 ,0.20983 ,0.44482 ,0.05246 ,0.01596 ,0.00827 ,0.03431 - +,0.45905 ,0.20630 ,0.42731 ,0.05135 ,0.01590 ,0.00841 ,0.03372/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),K=1,19)/ - + 0.61515 ,0.30765 ,1.01225 ,0.06528 ,0.00122 ,0.00004 ,0.03324 - +,0.60062 ,0.29427 ,0.91794 ,0.06281 ,0.00425 ,0.00006 ,0.03360 - +,0.58659 ,0.28273 ,0.83634 ,0.06044 ,0.00641 ,0.00003 ,0.03345 - +,0.57336 ,0.27239 ,0.76535 ,0.05818 ,0.00784 ,0.00001 ,0.03304 - +,0.56093 ,0.26307 ,0.70414 ,0.05606 ,0.00888 ,0.00004 ,0.03255 - +,0.54929 ,0.25455 ,0.65085 ,0.05410 ,0.00966 ,0.00035 ,0.03190 - +,0.53817 ,0.24677 ,0.60395 ,0.05218 ,0.01028 ,0.00140 ,0.03130 - +,0.52763 ,0.23955 ,0.56248 ,0.05042 ,0.01063 ,0.00232 ,0.03067 - +,0.51747 ,0.23298 ,0.52557 ,0.04879 ,0.01090 ,0.00308 ,0.02999 - +,0.50782 ,0.22680 ,0.49271 ,0.04725 ,0.01111 ,0.00367 ,0.02932 - +,0.49866 ,0.22101 ,0.46331 ,0.04579 ,0.01126 ,0.00413 ,0.02869 - +,0.48993 ,0.21566 ,0.43688 ,0.04443 ,0.01133 ,0.00452 ,0.02807 - +,0.48154 ,0.21054 ,0.41300 ,0.04315 ,0.01139 ,0.00484 ,0.02740 - +,0.47359 ,0.20569 ,0.39138 ,0.04195 ,0.01137 ,0.00510 ,0.02679 - +,0.46606 ,0.20112 ,0.37173 ,0.04083 ,0.01131 ,0.00530 ,0.02624 - +,0.45871 ,0.19678 ,0.35364 ,0.03971 ,0.01131 ,0.00545 ,0.02567 - +,0.45168 ,0.19274 ,0.33719 ,0.03867 ,0.01128 ,0.00558 ,0.02512 - +,0.44477 ,0.18898 ,0.32219 ,0.03773 ,0.01119 ,0.00571 ,0.02457 - +,0.43821 ,0.18536 ,0.30830 ,0.03682 ,0.01109 ,0.00581 ,0.02406/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),K=1,19)/ - + 0.62611 ,0.29483 ,0.85630 ,0.05122 ,0.00093 ,0.00006 ,0.02609 - +,0.60577 ,0.27984 ,0.76143 ,0.04881 ,0.00321 ,0.00000 ,0.02601 - +,0.58726 ,0.26691 ,0.68254 ,0.04654 ,0.00475 ,0.00001 ,0.02570 - +,0.57019 ,0.25543 ,0.61608 ,0.04448 ,0.00580 ,0.00001 ,0.02515 - +,0.55450 ,0.24529 ,0.56016 ,0.04256 ,0.00652 ,0.00008 ,0.02457 - +,0.53998 ,0.23614 ,0.51235 ,0.04077 ,0.00705 ,0.00035 ,0.02404 - +,0.52643 ,0.22783 ,0.47101 ,0.03915 ,0.00741 ,0.00109 ,0.02338 - +,0.51353 ,0.22039 ,0.43510 ,0.03767 ,0.00764 ,0.00174 ,0.02271 - +,0.50162 ,0.21333 ,0.40353 ,0.03626 ,0.00780 ,0.00221 ,0.02210 - +,0.49045 ,0.20674 ,0.37571 ,0.03493 ,0.00795 ,0.00255 ,0.02149 - +,0.47983 ,0.20072 ,0.35107 ,0.03371 ,0.00806 ,0.00283 ,0.02088 - +,0.46969 ,0.19525 ,0.32910 ,0.03259 ,0.00807 ,0.00310 ,0.02031 - +,0.46007 ,0.19003 ,0.30943 ,0.03150 ,0.00804 ,0.00332 ,0.01983 - +,0.45102 ,0.18512 ,0.29171 ,0.03050 ,0.00799 ,0.00349 ,0.01934 - +,0.44252 ,0.18050 ,0.27571 ,0.02959 ,0.00794 ,0.00364 ,0.01884 - +,0.43410 ,0.17625 ,0.26131 ,0.02870 ,0.00791 ,0.00373 ,0.01837 - +,0.42616 ,0.17224 ,0.24819 ,0.02788 ,0.00786 ,0.00383 ,0.01793 - +,0.41862 ,0.16836 ,0.23609 ,0.02712 ,0.00775 ,0.00393 ,0.01753 - +,0.41146 ,0.16467 ,0.22508 ,0.02639 ,0.00767 ,0.00399 ,0.01713/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),K=1,19)/ - + 0.62579 ,0.27822 ,0.72125 ,0.03968 ,0.00068 ,0.00003 ,0.02012 - +,0.60056 ,0.26198 ,0.62992 ,0.03746 ,0.00237 ,0.00002 ,0.01990 - +,0.57808 ,0.24811 ,0.55630 ,0.03544 ,0.00351 ,0.00009 ,0.01952 - +,0.55770 ,0.23612 ,0.49585 ,0.03360 ,0.00428 ,0.00007 ,0.01899 - +,0.53926 ,0.22555 ,0.44593 ,0.03195 ,0.00481 ,0.00002 ,0.01842 - +,0.52251 ,0.21605 ,0.40404 ,0.03044 ,0.00516 ,0.00020 ,0.01786 - +,0.50699 ,0.20751 ,0.36829 ,0.02907 ,0.00543 ,0.00084 ,0.01727 - +,0.49244 ,0.19983 ,0.33741 ,0.02786 ,0.00552 ,0.00127 ,0.01670 - +,0.47912 ,0.19259 ,0.31067 ,0.02667 ,0.00564 ,0.00161 ,0.01619 - +,0.46655 ,0.18607 ,0.28741 ,0.02557 ,0.00571 ,0.00186 ,0.01573 - +,0.45476 ,0.18009 ,0.26698 ,0.02459 ,0.00575 ,0.00205 ,0.01524 - +,0.44385 ,0.17443 ,0.24890 ,0.02371 ,0.00578 ,0.00219 ,0.01471 - +,0.43318 ,0.16937 ,0.23289 ,0.02287 ,0.00569 ,0.00237 ,0.01433 - +,0.42325 ,0.16460 ,0.21862 ,0.02207 ,0.00566 ,0.00246 ,0.01392 - +,0.41398 ,0.16013 ,0.20582 ,0.02131 ,0.00567 ,0.00249 ,0.01349 - +,0.40518 ,0.15581 ,0.19419 ,0.02065 ,0.00555 ,0.00257 ,0.01310 - +,0.39686 ,0.15181 ,0.18368 ,0.02002 ,0.00546 ,0.00264 ,0.01274 - +,0.38882 ,0.14812 ,0.17409 ,0.01940 ,0.00543 ,0.00271 ,0.01238 - +,0.38120 ,0.14462 ,0.16541 ,0.01881 ,0.00538 ,0.00274 ,0.01207/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),K=1,19)/ - + 0.61599 ,0.25895 ,0.60433 ,0.03025 ,0.00055 ,0.00007 ,0.01535 - +,0.58641 ,0.24209 ,0.51904 ,0.02832 ,0.00181 ,0.00009 ,0.01510 - +,0.56089 ,0.22761 ,0.45219 ,0.02657 ,0.00264 ,0.00023 ,0.01468 - +,0.53784 ,0.21527 ,0.39823 ,0.02504 ,0.00321 ,0.00005 ,0.01422 - +,0.51726 ,0.20452 ,0.35430 ,0.02366 ,0.00360 ,0.00004 ,0.01369 - +,0.49859 ,0.19513 ,0.31809 ,0.02243 ,0.00385 ,0.00018 ,0.01319 - +,0.48181 ,0.18640 ,0.28744 ,0.02133 ,0.00399 ,0.00059 ,0.01270 - +,0.46591 ,0.17889 ,0.26151 ,0.02032 ,0.00412 ,0.00092 ,0.01221 - +,0.45125 ,0.17203 ,0.23917 ,0.01942 ,0.00411 ,0.00109 ,0.01179 - +,0.43788 ,0.16558 ,0.21998 ,0.01858 ,0.00410 ,0.00128 ,0.01138 - +,0.42544 ,0.15964 ,0.20325 ,0.01778 ,0.00414 ,0.00144 ,0.01100 - +,0.41369 ,0.15428 ,0.18842 ,0.01700 ,0.00420 ,0.00152 ,0.01068 - +,0.40275 ,0.14918 ,0.17545 ,0.01636 ,0.00418 ,0.00166 ,0.01026 - +,0.39250 ,0.14448 ,0.16402 ,0.01576 ,0.00410 ,0.00175 ,0.00990 - +,0.38288 ,0.14015 ,0.15388 ,0.01522 ,0.00397 ,0.00180 ,0.00959 - +,0.37359 ,0.13613 ,0.14466 ,0.01470 ,0.00391 ,0.00184 ,0.00930 - +,0.36489 ,0.13238 ,0.13637 ,0.01420 ,0.00386 ,0.00187 ,0.00902 - +,0.35668 ,0.12883 ,0.12886 ,0.01372 ,0.00381 ,0.00189 ,0.00874 - +,0.34898 ,0.12544 ,0.12209 ,0.01326 ,0.00378 ,0.00190 ,0.00849/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),K=1,19)/ - + 0.59823 ,0.23791 ,0.50373 ,0.02268 ,0.00040 ,0.00011 ,0.01172 - +,0.56542 ,0.22068 ,0.42589 ,0.02109 ,0.00143 ,0.00007 ,0.01126 - +,0.53693 ,0.20635 ,0.36581 ,0.01967 ,0.00200 ,0.00011 ,0.01093 - +,0.51186 ,0.19421 ,0.31863 ,0.01841 ,0.00243 ,0.00007 ,0.01053 - +,0.48971 ,0.18361 ,0.28090 ,0.01733 ,0.00268 ,0.00006 ,0.01008 - +,0.46996 ,0.17420 ,0.24995 ,0.01635 ,0.00286 ,0.00018 ,0.00964 - +,0.45164 ,0.16615 ,0.22413 ,0.01553 ,0.00293 ,0.00043 ,0.00922 - +,0.43528 ,0.15859 ,0.20249 ,0.01471 ,0.00301 ,0.00063 ,0.00882 - +,0.42020 ,0.15179 ,0.18404 ,0.01396 ,0.00305 ,0.00085 ,0.00848 - +,0.40621 ,0.14564 ,0.16828 ,0.01332 ,0.00305 ,0.00097 ,0.00812 - +,0.39326 ,0.14003 ,0.15466 ,0.01274 ,0.00302 ,0.00104 ,0.00781 - +,0.38126 ,0.13488 ,0.14274 ,0.01217 ,0.00295 ,0.00108 ,0.00761 - +,0.37023 ,0.13011 ,0.13244 ,0.01162 ,0.00291 ,0.00118 ,0.00731 - +,0.35980 ,0.12573 ,0.12329 ,0.01115 ,0.00286 ,0.00122 ,0.00705 - +,0.34996 ,0.12168 ,0.11512 ,0.01073 ,0.00281 ,0.00124 ,0.00683 - +,0.34071 ,0.11782 ,0.10788 ,0.01035 ,0.00278 ,0.00132 ,0.00657 - +,0.33206 ,0.11423 ,0.10138 ,0.00999 ,0.00274 ,0.00136 ,0.00634 - +,0.32388 ,0.11087 ,0.09548 ,0.00960 ,0.00269 ,0.00135 ,0.00616 - +,0.31612 ,0.10771 ,0.09019 ,0.00925 ,0.00266 ,0.00135 ,0.00599/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),K=1,19)/ - + 0.57396 ,0.21594 ,0.41751 ,0.01678 ,0.00036 ,0.00006 ,0.00864 - +,0.53831 ,0.19906 ,0.34744 ,0.01542 ,0.00117 ,0.00010 ,0.00838 - +,0.50801 ,0.18500 ,0.29476 ,0.01435 ,0.00155 ,0.00004 ,0.00802 - +,0.48162 ,0.17304 ,0.25378 ,0.01341 ,0.00178 ,0.00005 ,0.00765 - +,0.45843 ,0.16279 ,0.22154 ,0.01252 ,0.00199 ,0.00006 ,0.00734 - +,0.43773 ,0.15393 ,0.19543 ,0.01173 ,0.00213 ,0.00015 ,0.00705 - +,0.41906 ,0.14612 ,0.17396 ,0.01107 ,0.00215 ,0.00032 ,0.00672 - +,0.40223 ,0.13894 ,0.15615 ,0.01048 ,0.00220 ,0.00048 ,0.00638 - +,0.38685 ,0.13245 ,0.14118 ,0.00993 ,0.00218 ,0.00061 ,0.00614 - +,0.37280 ,0.12666 ,0.12840 ,0.00940 ,0.00218 ,0.00072 ,0.00589 - +,0.35993 ,0.12140 ,0.11742 ,0.00891 ,0.00217 ,0.00081 ,0.00563 - +,0.34806 ,0.11658 ,0.10796 ,0.00847 ,0.00213 ,0.00086 ,0.00538 - +,0.33660 ,0.11217 ,0.09963 ,0.00813 ,0.00216 ,0.00091 ,0.00522 - +,0.32608 ,0.10811 ,0.09235 ,0.00779 ,0.00212 ,0.00093 ,0.00502 - +,0.31639 ,0.10436 ,0.08594 ,0.00746 ,0.00204 ,0.00094 ,0.00481 - +,0.30733 ,0.10079 ,0.08025 ,0.00716 ,0.00201 ,0.00094 ,0.00463 - +,0.29882 ,0.09749 ,0.07518 ,0.00690 ,0.00197 ,0.00094 ,0.00447 - +,0.29067 ,0.09439 ,0.07063 ,0.00666 ,0.00193 ,0.00093 ,0.00433 - +,0.28301 ,0.09152 ,0.06654 ,0.00642 ,0.00189 ,0.00092 ,0.00419/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),K=1,19)/ - + 0.54390 ,0.19458 ,0.34416 ,0.01236 ,0.00015 ,-0.00010 ,0.00618 - +,0.50663 ,0.17804 ,0.28213 ,0.01126 ,0.00079 ,-0.00004 ,0.00602 - +,0.47501 ,0.16455 ,0.23639 ,0.01044 ,0.00110 ,0.00001 ,0.00567 - +,0.44807 ,0.15293 ,0.20148 ,0.00968 ,0.00126 ,-0.00003 ,0.00544 - +,0.42431 ,0.14327 ,0.17437 ,0.00903 ,0.00136 ,-0.00002 ,0.00518 - +,0.40345 ,0.13485 ,0.15276 ,0.00845 ,0.00144 ,-0.00006 ,0.00487 - +,0.38467 ,0.12741 ,0.13502 ,0.00790 ,0.00153 ,0.00017 ,0.00470 - +,0.36794 ,0.12074 ,0.12044 ,0.00741 ,0.00150 ,0.00030 ,0.00447 - +,0.35259 ,0.11478 ,0.10815 ,0.00698 ,0.00154 ,0.00035 ,0.00428 - +,0.33857 ,0.10936 ,0.09786 ,0.00664 ,0.00155 ,0.00041 ,0.00408 - +,0.32575 ,0.10448 ,0.08909 ,0.00631 ,0.00154 ,0.00046 ,0.00389 - +,0.31394 ,0.10016 ,0.08147 ,0.00596 ,0.00155 ,0.00047 ,0.00375 - +,0.30293 ,0.09603 ,0.07500 ,0.00573 ,0.00145 ,0.00055 ,0.00356 - +,0.29267 ,0.09230 ,0.06931 ,0.00548 ,0.00139 ,0.00060 ,0.00344 - +,0.28310 ,0.08891 ,0.06427 ,0.00523 ,0.00137 ,0.00065 ,0.00337 - +,0.27440 ,0.08565 ,0.05987 ,0.00500 ,0.00137 ,0.00064 ,0.00318 - +,0.26627 ,0.08265 ,0.05595 ,0.00478 ,0.00136 ,0.00062 ,0.00303 - +,0.25850 ,0.07988 ,0.05241 ,0.00457 ,0.00128 ,0.00058 ,0.00295 - +,0.25121 ,0.07729 ,0.04924 ,0.00439 ,0.00125 ,0.00057 ,0.00286/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),K=1,19)/ - + 0.51018 ,0.17253 ,0.28091 ,0.00872 ,0.00030 ,0.00012 ,0.00459 - +,0.47177 ,0.15689 ,0.22698 ,0.00797 ,0.00067 ,0.00012 ,0.00438 - +,0.43970 ,0.14411 ,0.18805 ,0.00734 ,0.00086 ,0.00007 ,0.00414 - +,0.41218 ,0.13354 ,0.15885 ,0.00679 ,0.00094 ,0.00007 ,0.00393 - +,0.38866 ,0.12442 ,0.13626 ,0.00625 ,0.00104 ,0.00007 ,0.00378 - +,0.36776 ,0.11659 ,0.11836 ,0.00585 ,0.00111 ,0.00016 ,0.00358 - +,0.34939 ,0.10973 ,0.10393 ,0.00546 ,0.00116 ,0.00026 ,0.00337 - +,0.33260 ,0.10368 ,0.09218 ,0.00515 ,0.00118 ,0.00031 ,0.00317 - +,0.31775 ,0.09814 ,0.08234 ,0.00483 ,0.00120 ,0.00034 ,0.00300 - +,0.30425 ,0.09318 ,0.07413 ,0.00452 ,0.00116 ,0.00039 ,0.00287 - +,0.29174 ,0.08877 ,0.06717 ,0.00429 ,0.00108 ,0.00041 ,0.00274 - +,0.28012 ,0.08481 ,0.06116 ,0.00415 ,0.00102 ,0.00036 ,0.00261 - +,0.26954 ,0.08123 ,0.05607 ,0.00390 ,0.00104 ,0.00040 ,0.00245 - +,0.25975 ,0.07792 ,0.05162 ,0.00371 ,0.00103 ,0.00044 ,0.00235 - +,0.25068 ,0.07485 ,0.04771 ,0.00358 ,0.00101 ,0.00046 ,0.00228 - +,0.24233 ,0.07191 ,0.04427 ,0.00342 ,0.00095 ,0.00044 ,0.00215 - +,0.23456 ,0.06922 ,0.04123 ,0.00328 ,0.00090 ,0.00042 ,0.00205 - +,0.22718 ,0.06677 ,0.03854 ,0.00314 ,0.00089 ,0.00040 ,0.00198 - +,0.22027 ,0.06449 ,0.03614 ,0.00302 ,0.00088 ,0.00040 ,0.00192/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),K=1,19)/ - + 0.47325 ,0.15204 ,0.22797 ,0.00623 ,0.00009 ,-0.00003 ,0.00321 - +,0.43461 ,0.13739 ,0.18192 ,0.00566 ,0.00038 ,-0.00002 ,0.00305 - +,0.40268 ,0.12544 ,0.14898 ,0.00520 ,0.00055 ,0.00000 ,0.00284 - +,0.37554 ,0.11557 ,0.12458 ,0.00476 ,0.00063 ,0.00002 ,0.00276 - +,0.35236 ,0.10724 ,0.10601 ,0.00439 ,0.00072 ,-0.00001 ,0.00257 - +,0.33213 ,0.10006 ,0.09139 ,0.00405 ,0.00075 ,0.00001 ,0.00243 - +,0.31403 ,0.09378 ,0.07983 ,0.00389 ,0.00075 ,0.00015 ,0.00227 - +,0.29813 ,0.08826 ,0.07026 ,0.00355 ,0.00076 ,0.00012 ,0.00215 - +,0.28375 ,0.08331 ,0.06242 ,0.00334 ,0.00073 ,0.00017 ,0.00203 - +,0.27061 ,0.07890 ,0.05593 ,0.00317 ,0.00071 ,0.00019 ,0.00192 - +,0.25865 ,0.07496 ,0.05046 ,0.00299 ,0.00072 ,0.00018 ,0.00183 - +,0.24775 ,0.07140 ,0.04581 ,0.00281 ,0.00074 ,0.00018 ,0.00177 - +,0.23776 ,0.06811 ,0.04182 ,0.00268 ,0.00072 ,0.00020 ,0.00169 - +,0.22861 ,0.06511 ,0.03838 ,0.00254 ,0.00069 ,0.00023 ,0.00160 - +,0.22020 ,0.06235 ,0.03539 ,0.00242 ,0.00066 ,0.00027 ,0.00152 - +,0.21234 ,0.05982 ,0.03275 ,0.00230 ,0.00064 ,0.00029 ,0.00146 - +,0.20504 ,0.05750 ,0.03042 ,0.00220 ,0.00062 ,0.00030 ,0.00140 - +,0.19812 ,0.05536 ,0.02835 ,0.00211 ,0.00060 ,0.00027 ,0.00133 - +,0.19170 ,0.05335 ,0.02652 ,0.00202 ,0.00058 ,0.00026 ,0.00127/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),K=1,19)/ - + 0.43433 ,0.13227 ,0.18329 ,0.00426 ,0.00017 ,0.00007 ,0.00226 - +,0.39630 ,0.11863 ,0.14439 ,0.00386 ,0.00033 ,0.00006 ,0.00214 - +,0.36484 ,0.10777 ,0.11696 ,0.00351 ,0.00047 ,-0.00009 ,0.00205 - +,0.33856 ,0.09885 ,0.09677 ,0.00321 ,0.00050 ,0.00005 ,0.00192 - +,0.31594 ,0.09125 ,0.08167 ,0.00302 ,0.00056 ,0.00001 ,0.00173 - +,0.29656 ,0.08481 ,0.06987 ,0.00280 ,0.00055 ,0.00005 ,0.00163 - +,0.27944 ,0.07919 ,0.06061 ,0.00259 ,0.00052 ,0.00006 ,0.00153 - +,0.26413 ,0.07424 ,0.05310 ,0.00242 ,0.00052 ,0.00013 ,0.00146 - +,0.25033 ,0.06987 ,0.04698 ,0.00227 ,0.00052 ,0.00013 ,0.00134 - +,0.23812 ,0.06594 ,0.04189 ,0.00212 ,0.00053 ,0.00015 ,0.00130 - +,0.22707 ,0.06242 ,0.03762 ,0.00199 ,0.00053 ,0.00018 ,0.00126 - +,0.21683 ,0.05930 ,0.03403 ,0.00189 ,0.00050 ,0.00018 ,0.00119 - +,0.20768 ,0.05647 ,0.03095 ,0.00175 ,0.00049 ,0.00021 ,0.00115 - +,0.19914 ,0.05387 ,0.02831 ,0.00165 ,0.00047 ,0.00020 ,0.00109 - +,0.19119 ,0.05147 ,0.02603 ,0.00158 ,0.00044 ,0.00017 ,0.00102 - +,0.18386 ,0.04923 ,0.02401 ,0.00154 ,0.00042 ,0.00017 ,0.00095 - +,0.17712 ,0.04719 ,0.02225 ,0.00148 ,0.00040 ,0.00018 ,0.00090 - +,0.17086 ,0.04531 ,0.02071 ,0.00141 ,0.00038 ,0.00021 ,0.00088 - +,0.16502 ,0.04359 ,0.01934 ,0.00133 ,0.00038 ,0.00021 ,0.00085/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),K=1,19)/ - + 0.39463 ,0.11389 ,0.14623 ,0.00286 ,0.00012 ,0.00005 ,0.00158 - +,0.35769 ,0.10159 ,0.11376 ,0.00258 ,0.00028 ,0.00003 ,0.00147 - +,0.32705 ,0.09184 ,0.09127 ,0.00247 ,0.00036 ,0.00001 ,0.00130 - +,0.30202 ,0.08375 ,0.07481 ,0.00225 ,0.00032 ,0.00002 ,0.00123 - +,0.28058 ,0.07695 ,0.06256 ,0.00211 ,0.00034 ,-0.00003 ,0.00113 - +,0.26237 ,0.07125 ,0.05320 ,0.00186 ,0.00035 ,0.00000 ,0.00108 - +,0.24600 ,0.06628 ,0.04583 ,0.00179 ,0.00033 ,0.00004 ,0.00099 - +,0.23178 ,0.06195 ,0.03995 ,0.00164 ,0.00032 ,0.00004 ,0.00091 - +,0.21926 ,0.05809 ,0.03515 ,0.00149 ,0.00032 ,0.00007 ,0.00087 - +,0.20771 ,0.05472 ,0.03119 ,0.00142 ,0.00033 ,0.00009 ,0.00084 - +,0.19731 ,0.05170 ,0.02791 ,0.00135 ,0.00034 ,0.00010 ,0.00081 - +,0.18820 ,0.04889 ,0.02518 ,0.00123 ,0.00031 ,0.00011 ,0.00076 - +,0.17928 ,0.04642 ,0.02280 ,0.00125 ,0.00031 ,0.00008 ,0.00069 - +,0.17139 ,0.04416 ,0.02078 ,0.00121 ,0.00029 ,0.00007 ,0.00065 - +,0.16434 ,0.04210 ,0.01904 ,0.00113 ,0.00027 ,0.00009 ,0.00061 - +,0.15778 ,0.04021 ,0.01753 ,0.00105 ,0.00025 ,0.00008 ,0.00057 - +,0.15174 ,0.03848 ,0.01621 ,0.00097 ,0.00023 ,0.00008 ,0.00055 - +,0.14612 ,0.03688 ,0.01505 ,0.00091 ,0.00025 ,0.00009 ,0.00054 - +,0.14086 ,0.03540 ,0.01402 ,0.00085 ,0.00025 ,0.00009 ,0.00053/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),K=1,19)/ - + 0.35448 ,0.09708 ,0.11549 ,0.00198 ,0.00005 ,0.00001 ,0.00102 - +,0.31886 ,0.08596 ,0.08853 ,0.00180 ,0.00014 ,0.00002 ,0.00096 - +,0.29028 ,0.07719 ,0.07005 ,0.00157 ,0.00024 ,0.00001 ,0.00089 - +,0.26652 ,0.06986 ,0.05699 ,0.00146 ,0.00024 ,0.00000 ,0.00086 - +,0.24643 ,0.06398 ,0.04726 ,0.00132 ,0.00030 ,0.00001 ,0.00081 - +,0.22913 ,0.05895 ,0.03986 ,0.00129 ,0.00024 ,-0.00001 ,0.00073 - +,0.21436 ,0.05457 ,0.03413 ,0.00112 ,0.00026 ,-0.00001 ,0.00066 - +,0.20130 ,0.05082 ,0.02953 ,0.00099 ,0.00024 ,0.00001 ,0.00063 - +,0.18929 ,0.04753 ,0.02586 ,0.00097 ,0.00023 ,0.00002 ,0.00058 - +,0.17871 ,0.04460 ,0.02285 ,0.00093 ,0.00023 ,0.00005 ,0.00055 - +,0.16937 ,0.04199 ,0.02035 ,0.00086 ,0.00023 ,0.00007 ,0.00054 - +,0.16091 ,0.03968 ,0.01826 ,0.00079 ,0.00021 ,0.00005 ,0.00052 - +,0.15318 ,0.03754 ,0.01650 ,0.00074 ,0.00022 ,0.00007 ,0.00049 - +,0.14615 ,0.03560 ,0.01500 ,0.00070 ,0.00022 ,0.00009 ,0.00047 - +,0.13974 ,0.03384 ,0.01371 ,0.00069 ,0.00022 ,0.00011 ,0.00045 - +,0.13379 ,0.03224 ,0.01259 ,0.00063 ,0.00020 ,0.00009 ,0.00041 - +,0.12833 ,0.03077 ,0.01161 ,0.00058 ,0.00019 ,0.00008 ,0.00039 - +,0.12330 ,0.02939 ,0.01075 ,0.00055 ,0.00018 ,0.00007 ,0.00038 - +,0.11861 ,0.02814 ,0.00999 ,0.00052 ,0.00018 ,0.00008 ,0.00037/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),K=1,19)/ - + 0.31515 ,0.08181 ,0.09041 ,0.00133 ,0.00003 ,-0.00003 ,0.00064 - +,0.28168 ,0.07191 ,0.06845 ,0.00119 ,0.00007 ,0.00000 ,0.00062 - +,0.25480 ,0.06416 ,0.05361 ,0.00105 ,0.00012 ,-0.00002 ,0.00057 - +,0.23277 ,0.05790 ,0.04312 ,0.00098 ,0.00015 ,0.00000 ,0.00055 - +,0.21430 ,0.05272 ,0.03549 ,0.00086 ,0.00014 ,-0.00002 ,0.00050 - +,0.19858 ,0.04835 ,0.02976 ,0.00079 ,0.00018 ,-0.00002 ,0.00047 - +,0.18481 ,0.04466 ,0.02532 ,0.00074 ,0.00019 ,0.00004 ,0.00047 - +,0.17272 ,0.04143 ,0.02180 ,0.00070 ,0.00016 ,0.00004 ,0.00040 - +,0.16206 ,0.03862 ,0.01900 ,0.00065 ,0.00015 ,0.00003 ,0.00038 - +,0.15264 ,0.03612 ,0.01671 ,0.00058 ,0.00015 ,0.00000 ,0.00036 - +,0.14418 ,0.03389 ,0.01483 ,0.00054 ,0.00015 ,-0.00001 ,0.00032 - +,0.13648 ,0.03187 ,0.01326 ,0.00057 ,0.00013 ,0.00002 ,0.00030 - +,0.12962 ,0.03013 ,0.01194 ,0.00049 ,0.00012 ,0.00003 ,0.00028 - +,0.12344 ,0.02852 ,0.01082 ,0.00044 ,0.00014 ,0.00004 ,0.00027 - +,0.11784 ,0.02702 ,0.00986 ,0.00040 ,0.00016 ,0.00006 ,0.00027 - +,0.11247 ,0.02568 ,0.00904 ,0.00040 ,0.00016 ,0.00005 ,0.00027 - +,0.10760 ,0.02447 ,0.00832 ,0.00038 ,0.00015 ,0.00005 ,0.00026 - +,0.10322 ,0.02336 ,0.00768 ,0.00033 ,0.00013 ,0.00006 ,0.00024 - +,0.09913 ,0.02233 ,0.00712 ,0.00031 ,0.00013 ,0.00007 ,0.00023/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),K=1,19)/ - + 0.27681 ,0.06790 ,0.06983 ,0.00083 ,0.00002 ,-0.00002 ,0.00042 - +,0.24556 ,0.05938 ,0.05220 ,0.00080 ,0.00002 ,-0.00003 ,0.00034 - +,0.22108 ,0.05270 ,0.04039 ,0.00071 ,0.00009 ,-0.00004 ,0.00039 - +,0.20070 ,0.04733 ,0.03224 ,0.00064 ,0.00006 ,-0.00003 ,0.00031 - +,0.18395 ,0.04290 ,0.02632 ,0.00056 ,0.00008 ,-0.00003 ,0.00028 - +,0.16959 ,0.03916 ,0.02190 ,0.00053 ,0.00008 ,-0.00003 ,0.00026 - +,0.15712 ,0.03603 ,0.01851 ,0.00052 ,0.00010 ,-0.00003 ,0.00023 - +,0.14664 ,0.03330 ,0.01588 ,0.00039 ,0.00009 ,-0.00002 ,0.00024 - +,0.13699 ,0.03093 ,0.01377 ,0.00041 ,0.00009 ,-0.00001 ,0.00021 - +,0.12855 ,0.02884 ,0.01205 ,0.00040 ,0.00009 ,-0.00001 ,0.00019 - +,0.12114 ,0.02699 ,0.01065 ,0.00035 ,0.00009 ,-0.00001 ,0.00019 - +,0.11442 ,0.02534 ,0.00949 ,0.00031 ,0.00009 ,-0.00001 ,0.00020 - +,0.10847 ,0.02383 ,0.00852 ,0.00028 ,0.00008 ,0.00001 ,0.00020 - +,0.10300 ,0.02250 ,0.00769 ,0.00026 ,0.00008 ,0.00002 ,0.00019 - +,0.09797 ,0.02131 ,0.00699 ,0.00024 ,0.00009 ,0.00003 ,0.00017 - +,0.09334 ,0.02020 ,0.00639 ,0.00023 ,0.00009 ,0.00004 ,0.00018 - +,0.08911 ,0.01920 ,0.00587 ,0.00022 ,0.00010 ,0.00004 ,0.00018 - +,0.08520 ,0.01828 ,0.00542 ,0.00022 ,0.00010 ,0.00003 ,0.00016 - +,0.08158 ,0.01744 ,0.00502 ,0.00022 ,0.00009 ,0.00003 ,0.00015/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),K=1,19)/ - + 0.24016 ,0.05578 ,0.05331 ,0.00058 ,-0.00004 ,-0.00007 ,0.00021 - +,0.21197 ,0.04834 ,0.03923 ,0.00047 ,0.00002 ,-0.00006 ,0.00020 - +,0.18938 ,0.04260 ,0.03003 ,0.00041 ,0.00002 ,-0.00007 ,0.00018 - +,0.17093 ,0.03811 ,0.02371 ,0.00041 ,0.00003 ,-0.00007 ,0.00017 - +,0.15580 ,0.03436 ,0.01918 ,0.00038 ,0.00005 ,-0.00005 ,0.00017 - +,0.14332 ,0.03123 ,0.01586 ,0.00030 ,0.00008 ,-0.00003 ,0.00020 - +,0.13220 ,0.02863 ,0.01333 ,0.00031 ,0.00009 ,0.00001 ,0.00019 - +,0.12274 ,0.02632 ,0.01135 ,0.00025 ,0.00007 ,-0.00004 ,0.00015 - +,0.11443 ,0.02435 ,0.00979 ,0.00024 ,0.00009 ,-0.00002 ,0.00017 - +,0.10695 ,0.02263 ,0.00854 ,0.00025 ,0.00009 ,0.00001 ,0.00016 - +,0.10037 ,0.02111 ,0.00752 ,0.00023 ,0.00009 ,0.00002 ,0.00015 - +,0.09470 ,0.01976 ,0.00667 ,0.00017 ,0.00009 ,0.00002 ,0.00015 - +,0.08938 ,0.01853 ,0.00598 ,0.00016 ,0.00007 ,0.00001 ,0.00014 - +,0.08458 ,0.01744 ,0.00539 ,0.00015 ,0.00007 ,0.00001 ,0.00013 - +,0.08023 ,0.01646 ,0.00488 ,0.00015 ,0.00007 ,0.00001 ,0.00011 - +,0.07627 ,0.01558 ,0.00445 ,0.00013 ,0.00007 ,0.00001 ,0.00012 - +,0.07266 ,0.01478 ,0.00408 ,0.00012 ,0.00007 ,0.00002 ,0.00012 - +,0.06930 ,0.01403 ,0.00375 ,0.00013 ,0.00007 ,0.00003 ,0.00010 - +,0.06622 ,0.01335 ,0.00347 ,0.00012 ,0.00007 ,0.00004 ,0.00010/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),K=1,19)/ - + 0.20587 ,0.04501 ,0.03998 ,0.00030 ,-0.00005 ,-0.00007 ,0.00013 - +,0.18001 ,0.03878 ,0.02903 ,0.00030 ,-0.00003 ,-0.00006 ,0.00011 - +,0.16000 ,0.03399 ,0.02194 ,0.00022 ,-0.00002 ,-0.00008 ,0.00008 - +,0.14363 ,0.03015 ,0.01716 ,0.00026 ,0.00003 ,-0.00003 ,0.00012 - +,0.13029 ,0.02707 ,0.01378 ,0.00023 ,0.00005 ,-0.00004 ,0.00011 - +,0.11908 ,0.02449 ,0.01129 ,0.00022 ,0.00007 ,-0.00002 ,0.00012 - +,0.10954 ,0.02233 ,0.00944 ,0.00017 ,0.00007 ,-0.00001 ,0.00013 - +,0.10126 ,0.02045 ,0.00799 ,0.00015 ,0.00006 ,-0.00001 ,0.00012 - +,0.09406 ,0.01887 ,0.00686 ,0.00012 ,0.00006 ,0.00000 ,0.00011 - +,0.08772 ,0.01748 ,0.00596 ,0.00010 ,0.00008 ,0.00002 ,0.00011 - +,0.08208 ,0.01624 ,0.00523 ,0.00010 ,0.00009 ,0.00003 ,0.00012 - +,0.07704 ,0.01513 ,0.00463 ,0.00010 ,0.00008 ,0.00003 ,0.00012 - +,0.07252 ,0.01417 ,0.00412 ,0.00009 ,0.00007 ,0.00003 ,0.00011 - +,0.06844 ,0.01331 ,0.00370 ,0.00007 ,0.00007 ,0.00003 ,0.00010 - +,0.06475 ,0.01253 ,0.00335 ,0.00007 ,0.00006 ,0.00002 ,0.00008 - +,0.06134 ,0.01181 ,0.00305 ,0.00008 ,0.00007 ,0.00003 ,0.00009 - +,0.05826 ,0.01117 ,0.00279 ,0.00008 ,0.00007 ,0.00003 ,0.00009 - +,0.05547 ,0.01058 ,0.00256 ,0.00007 ,0.00005 ,0.00002 ,0.00008 - +,0.05291 ,0.01005 ,0.00236 ,0.00006 ,0.00005 ,0.00002 ,0.00007/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),K=1,19)/ - + 0.17389 ,0.03591 ,0.02965 ,0.00029 ,-0.00005 ,-0.00008 ,0.00000 - +,0.15124 ,0.03071 ,0.02123 ,0.00021 ,-0.00003 ,-0.00010 ,0.00001 - +,0.13355 ,0.02674 ,0.01589 ,0.00016 ,0.00000 ,-0.00009 ,0.00005 - +,0.11932 ,0.02361 ,0.01230 ,0.00015 ,0.00002 ,-0.00003 ,0.00006 - +,0.10764 ,0.02109 ,0.00980 ,0.00015 ,0.00001 ,-0.00004 ,0.00006 - +,0.09798 ,0.01899 ,0.00799 ,0.00013 ,0.00004 ,-0.00004 ,0.00007 - +,0.08951 ,0.01727 ,0.00664 ,0.00015 ,0.00003 ,-0.00002 ,0.00005 - +,0.08245 ,0.01577 ,0.00560 ,0.00013 ,0.00003 ,-0.00001 ,0.00005 - +,0.07647 ,0.01447 ,0.00478 ,0.00007 ,0.00002 ,-0.00001 ,0.00006 - +,0.07106 ,0.01336 ,0.00414 ,0.00006 ,0.00002 ,0.00000 ,0.00005 - +,0.06625 ,0.01238 ,0.00362 ,0.00007 ,0.00003 ,0.00000 ,0.00004 - +,0.06208 ,0.01151 ,0.00319 ,0.00004 ,0.00002 ,0.00000 ,0.00006 - +,0.05815 ,0.01074 ,0.00284 ,0.00007 ,0.00003 ,0.00001 ,0.00006 - +,0.05473 ,0.01006 ,0.00255 ,0.00006 ,0.00003 ,0.00000 ,0.00005 - +,0.05171 ,0.00945 ,0.00230 ,0.00004 ,0.00002 ,-0.00001 ,0.00003 - +,0.04883 ,0.00890 ,0.00209 ,0.00005 ,0.00002 ,0.00000 ,0.00003 - +,0.04625 ,0.00839 ,0.00190 ,0.00006 ,0.00003 ,0.00000 ,0.00004 - +,0.04397 ,0.00793 ,0.00174 ,0.00005 ,0.00004 ,0.00001 ,0.00004 - +,0.04186 ,0.00751 ,0.00161 ,0.00004 ,0.00004 ,0.00001 ,0.00004/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),K=1,19)/ - + 0.14470 ,0.02798 ,0.02148 ,0.00013 ,-0.00003 ,-0.00001 ,0.00001 - +,0.12483 ,0.02379 ,0.01521 ,0.00011 ,-0.00002 ,-0.00004 ,0.00002 - +,0.10968 ,0.02063 ,0.01129 ,0.00008 ,-0.00002 ,-0.00003 ,0.00002 - +,0.09731 ,0.01813 ,0.00869 ,0.00012 ,-0.00001 ,-0.00002 ,0.00003 - +,0.08747 ,0.01610 ,0.00686 ,0.00010 ,0.00002 ,-0.00001 ,0.00003 - +,0.07916 ,0.01446 ,0.00556 ,0.00009 ,0.00001 ,-0.00002 ,0.00003 - +,0.07222 ,0.01309 ,0.00460 ,0.00008 ,0.00000 ,-0.00001 ,0.00003 - +,0.06635 ,0.01192 ,0.00386 ,0.00005 ,0.00001 ,-0.00001 ,0.00002 - +,0.06117 ,0.01091 ,0.00328 ,0.00004 ,0.00001 ,0.00000 ,0.00002 - +,0.05663 ,0.01003 ,0.00283 ,0.00004 ,0.00001 ,0.00000 ,0.00002 - +,0.05264 ,0.00928 ,0.00246 ,0.00003 ,0.00001 ,-0.00001 ,0.00002 - +,0.04911 ,0.00861 ,0.00217 ,0.00004 ,0.00001 ,0.00000 ,0.00001 - +,0.04595 ,0.00801 ,0.00192 ,0.00004 ,0.00000 ,0.00000 ,0.00001 - +,0.04315 ,0.00748 ,0.00172 ,0.00004 ,0.00000 ,-0.00001 ,0.00001 - +,0.04065 ,0.00701 ,0.00155 ,0.00002 ,-0.00001 ,-0.00002 ,0.00000 - +,0.03829 ,0.00658 ,0.00140 ,0.00003 ,0.00000 ,-0.00002 ,0.00001 - +,0.03618 ,0.00620 ,0.00128 ,0.00004 ,0.00001 ,-0.00001 ,0.00001 - +,0.03428 ,0.00584 ,0.00117 ,0.00004 ,0.00000 ,0.00000 ,0.00001 - +,0.03255 ,0.00552 ,0.00107 ,0.00004 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),K=1,19)/ - + 0.09486 ,0.01606 ,0.01058 ,0.00004 ,0.00000 ,0.00000 ,0.00001 - +,0.08066 ,0.01342 ,0.00728 ,0.00002 ,-0.00001 ,-0.00001 ,0.00002 - +,0.06974 ,0.01147 ,0.00526 ,0.00004 ,-0.00001 ,0.00000 ,0.00000 - +,0.06120 ,0.00996 ,0.00396 ,0.00004 ,0.00001 ,-0.00001 ,0.00001 - +,0.05441 ,0.00875 ,0.00308 ,0.00002 ,0.00000 ,-0.00001 ,0.00001 - +,0.04882 ,0.00777 ,0.00246 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.04411 ,0.00697 ,0.00200 ,0.00000 ,0.00001 ,0.00001 ,0.00002 - +,0.04004 ,0.00630 ,0.00166 ,0.00002 ,0.00001 ,0.00000 ,0.00002 - +,0.03662 ,0.00571 ,0.00140 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.03366 ,0.00521 ,0.00120 ,0.00000 ,0.00001 ,0.00000 ,0.00001 - +,0.03106 ,0.00478 ,0.00104 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02877 ,0.00441 ,0.00090 ,0.00001 ,0.00001 ,0.00001 ,0.00001 - +,0.02675 ,0.00407 ,0.00080 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02495 ,0.00378 ,0.00071 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02335 ,0.00352 ,0.00063 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02190 ,0.00329 ,0.00057 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02059 ,0.00308 ,0.00052 ,0.00001 ,0.00001 ,0.00000 ,0.00000 - +,0.01942 ,0.00289 ,0.00047 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01835 ,0.00272 ,0.00043 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),K=1,19)/ - + 0.05725 ,0.00838 ,0.00471 ,0.00003 ,0.00000 ,-0.00001 ,-0.00001 - +,0.04784 ,0.00689 ,0.00314 ,0.00001 ,-0.00001 ,-0.00002 ,-0.00001 - +,0.04084 ,0.00579 ,0.00221 ,0.00000 ,0.00000 ,-0.00002 ,0.00000 - +,0.03534 ,0.00497 ,0.00163 ,0.00001 ,0.00000 ,0.00000 ,0.00001 - +,0.03100 ,0.00431 ,0.00124 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.02748 ,0.00379 ,0.00098 ,0.00001 ,0.00000 ,-0.00001 ,0.00000 - +,0.02460 ,0.00336 ,0.00079 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.02214 ,0.00300 ,0.00065 ,0.00000 ,0.00001 ,0.00000 ,0.00000 - +,0.02005 ,0.00270 ,0.00054 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01827 ,0.00245 ,0.00046 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01673 ,0.00223 ,0.00039 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01541 ,0.00204 ,0.00034 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01421 ,0.00187 ,0.00030 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01317 ,0.00173 ,0.00026 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01227 ,0.00160 ,0.00024 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01143 ,0.00148 ,0.00021 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01068 ,0.00138 ,0.00019 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01002 ,0.00129 ,0.00017 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00942 ,0.00121 ,0.00016 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),K=1,19)/ - + 0.03076 ,0.00380 ,0.00180 ,0.00001 ,-0.00001 ,-0.00001 ,-0.00001 - +,0.02523 ,0.00307 ,0.00116 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.02118 ,0.00255 ,0.00080 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01808 ,0.00215 ,0.00058 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01564 ,0.00184 ,0.00043 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01371 ,0.00160 ,0.00033 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01212 ,0.00141 ,0.00027 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01081 ,0.00124 ,0.00022 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00970 ,0.00111 ,0.00018 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00876 ,0.00099 ,0.00015 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00795 ,0.00090 ,0.00013 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00725 ,0.00081 ,0.00011 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00665 ,0.00074 ,0.00010 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00611 ,0.00068 ,0.00009 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00565 ,0.00063 ,0.00008 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00523 ,0.00058 ,0.00007 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00487 ,0.00053 ,0.00006 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00453 ,0.00049 ,0.00006 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00423 ,0.00046 ,0.00005 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),K=1,19)/ - + 0.01409 ,0.00143 ,0.00056 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01129 ,0.00113 ,0.00034 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00928 ,0.00092 ,0.00023 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00778 ,0.00076 ,0.00016 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00663 ,0.00064 ,0.00012 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00572 ,0.00055 ,0.00009 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00499 ,0.00047 ,0.00007 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00439 ,0.00042 ,0.00006 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00390 ,0.00037 ,0.00005 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00348 ,0.00033 ,0.00004 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00313 ,0.00029 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00283 ,0.00026 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00257 ,0.00024 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00234 ,0.00021 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00214 ,0.00020 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00197 ,0.00018 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00182 ,0.00016 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00168 ,0.00015 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00156 ,0.00014 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),K=1,19)/ - + 0.00111 ,0.00006 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00084 ,0.00005 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00065 ,0.00004 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00052 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00043 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00035 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00030 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00025 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00022 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00019 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00016 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00014 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00013 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00011 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00010 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00009 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00008 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00007 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00007 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,4,5,0,0,5/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C -C - XSAVE=X -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(40,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M) -C 1=UV 2=DV 3=GLUE 4=(UBAR+DBAR)/2 5=CBAR 7=BBAR 6=SBAR - DO 25 I=1,7 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=1,6 - DO 30 K=1,19 - 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) - 50 FORMAT(7F10.5) - DO 40 I=1,7 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,7 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) -C... THIS SEA IS (UBAR+DBAR)/2 - SEA=G(4) - STR=G(6) - CHM=G(5) - GL =G(3) - BOT=G(7) -C - X=XSAVE -C - RETURN - END diff --git a/PDF/spdf/strkb0o.F b/PDF/spdf/strkb0o.F deleted file mode 100644 index e16a362a700..00000000000 --- a/PDF/spdf/strkb0o.F +++ /dev/null @@ -1,1014 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:41 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:03 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE STRKB0O(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - -C :::::::::::: KMRS (B0) sea=ubar=dbar=2sbar at Q0**2 - -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(7,NX,19),G(7),XX(NX),N0(7) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),K=1,19)/ - + 0.01727 ,0.00137 ,4.14718 ,0.13665 ,0.03357 ,0.00000 ,0.08600 - +,0.01763 ,0.00154 ,9.74113 ,0.28680 ,0.18390 ,0.00000 ,0.23628 - +,0.01797 ,0.00169 ,17.09975 ,0.48357 ,0.38081 ,0.00000 ,0.43315 - +,0.01828 ,0.00183 ,26.22037 ,0.72720 ,0.62457 ,0.00000 ,0.67687 - +,0.01858 ,0.00197 ,36.71242 ,1.00782 ,0.90529 ,0.01690 ,0.95757 - +,0.01886 ,0.00211 ,48.57324 ,1.32668 ,1.22422 ,0.21238 ,1.27648 - +,0.01912 ,0.00224 ,61.70306 ,1.68246 ,1.58007 ,0.60144 ,1.63232 - +,0.01938 ,0.00236 ,75.99297 ,2.07332 ,1.97098 ,0.99713 ,2.02322 - +,0.01962 ,0.00248 ,91.33727 ,2.49708 ,2.39479 ,1.43030 ,2.44703 - +,0.01986 ,0.00260,107.43649 ,2.94648 ,2.84421 ,1.88753 ,2.89645 - +,0.02009 ,0.00272,124.38155 ,3.42428 ,3.32204 ,2.37281 ,3.37428 - +,0.02031 ,0.00283,142.13774 ,3.92982 ,3.82760 ,2.88542 ,3.87985 - +,0.02053 ,0.00295,160.58954 ,4.46035 ,4.35815 ,3.42263 ,4.41040 - +,0.02074 ,0.00306,179.37915 ,5.00696 ,4.90476 ,3.97556 ,4.95702 - +,0.02095 ,0.00316,198.88515 ,5.57920 ,5.47701 ,4.55381 ,5.52928 - +,0.02115 ,0.00327,218.71463 ,6.16713 ,6.06494 ,5.14746 ,6.11722 - +,0.02134 ,0.00337,238.94661 ,6.77271 ,6.67052 ,5.75851 ,6.72282 - +,0.02153 ,0.00347,259.60815 ,7.39661 ,7.29440 ,6.38763 ,7.34672 - +,0.02172 ,0.00357,280.40967 ,8.03133 ,7.92911 ,7.02736 ,7.98144/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),K=1,19)/ - + 0.02115 ,0.00210 ,4.03986 ,0.13824 ,0.03153 ,0.00000 ,0.08549 - +,0.02166 ,0.00234 ,8.96050 ,0.27329 ,0.16660 ,0.00000 ,0.22057 - +,0.02212 ,0.00257 ,15.17996 ,0.44380 ,0.33711 ,0.00000 ,0.39110 - +,0.02255 ,0.00278 ,22.66025 ,0.64940 ,0.54270 ,0.00000 ,0.59671 - +,0.02295 ,0.00298 ,31.05817 ,0.88140 ,0.77468 ,0.01386 ,0.82873 - +,0.02333 ,0.00318 ,40.35976 ,1.14050 ,1.03376 ,0.17228 ,1.08783 - +,0.02369 ,0.00336 ,50.47510 ,1.42533 ,1.31855 ,0.48476 ,1.37266 - +,0.02404 ,0.00355 ,61.31216 ,1.73411 ,1.62730 ,0.79789 ,1.68144 - +,0.02437 ,0.00372 ,72.78514 ,2.06493 ,1.95807 ,1.13674 ,2.01225 - +,0.02469 ,0.00389 ,84.66566 ,2.41194 ,2.30504 ,1.49049 ,2.35925 - +,0.02500 ,0.00406 ,97.02478 ,2.77726 ,2.67032 ,1.86223 ,2.72456 - +,0.02529 ,0.00422,109.83669 ,3.16030 ,3.05330 ,2.25132 ,3.10758 - +,0.02558 ,0.00438,123.01701 ,3.55888 ,3.45183 ,2.65562 ,3.50615 - +,0.02586 ,0.00454,136.30722 ,3.96619 ,3.85910 ,3.06835 ,3.91345 - +,0.02613 ,0.00469,149.98785 ,4.38954 ,4.28239 ,3.49683 ,4.33678 - +,0.02640 ,0.00484,163.77657 ,4.82138 ,4.71418 ,3.93358 ,4.76860 - +,0.02666 ,0.00499,177.73506 ,5.26327 ,5.15601 ,4.38014 ,5.21047 - +,0.02691 ,0.00513,191.88643 ,5.71572 ,5.60841 ,4.83705 ,5.66290 - +,0.02715 ,0.00527,206.02808 ,6.17319 ,6.06581 ,5.29879 ,6.12035/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),K=1,19)/ - + 0.02581 ,0.00322 ,3.93502 ,0.13973 ,0.02939 ,0.00000 ,0.08490 - +,0.02649 ,0.00357 ,8.24120 ,0.26052 ,0.15004 ,0.00000 ,0.20564 - +,0.02712 ,0.00390 ,13.47276 ,0.40765 ,0.29702 ,0.00000 ,0.35270 - +,0.02769 ,0.00421 ,19.57806 ,0.58047 ,0.46971 ,0.00000 ,0.52547 - +,0.02823 ,0.00451 ,26.26634 ,0.77156 ,0.66065 ,0.01132 ,0.71650 - +,0.02874 ,0.00479 ,33.52313 ,0.98132 ,0.87028 ,0.13924 ,0.92620 - +,0.02923 ,0.00506 ,41.27425 ,1.20846 ,1.09729 ,0.38933 ,1.15329 - +,0.02969 ,0.00532 ,49.44673 ,1.45145 ,1.34015 ,0.63622 ,1.39623 - +,0.03013 ,0.00558 ,57.97556 ,1.70868 ,1.59726 ,0.90031 ,1.65340 - +,0.03056 ,0.00582 ,66.68988 ,1.97554 ,1.86399 ,1.17296 ,1.92020 - +,0.03096 ,0.00606 ,75.64777 ,2.25369 ,2.14202 ,1.45661 ,2.19830 - +,0.03136 ,0.00629 ,84.83273 ,2.54266 ,2.43087 ,1.75078 ,2.48722 - +,0.03174 ,0.00652 ,94.18532 ,2.84079 ,2.72889 ,2.05381 ,2.78530 - +,0.03211 ,0.00674,103.52109 ,3.14293 ,3.03092 ,2.36059 ,3.08739 - +,0.03247 ,0.00695,113.04878 ,3.45468 ,3.34256 ,2.67674 ,3.39909 - +,0.03282 ,0.00716,122.56744 ,3.77040 ,3.65817 ,2.99664 ,3.71476 - +,0.03316 ,0.00737,132.12633 ,4.09128 ,3.97895 ,3.32153 ,4.03560 - +,0.03349 ,0.00757,141.74492 ,4.41779 ,4.30535 ,3.65185 ,4.36206 - +,0.03381 ,0.00777,151.28378 ,4.74585 ,4.63331 ,3.98356 ,4.69007/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),K=1,19)/ - + 0.02893 ,0.00413 ,3.87473 ,0.14055 ,0.02810 ,0.00000 ,0.08453 - +,0.02974 ,0.00457 ,7.84653 ,0.25338 ,0.14069 ,0.00000 ,0.19726 - +,0.03048 ,0.00499 ,12.56228 ,0.38804 ,0.27512 ,0.00000 ,0.33181 - +,0.03116 ,0.00537 ,17.96925 ,0.54385 ,0.43071 ,0.00000 ,0.48753 - +,0.03180 ,0.00574 ,23.80748 ,0.71409 ,0.60075 ,0.01004 ,0.65767 - +,0.03240 ,0.00609 ,30.06538 ,0.89909 ,0.78555 ,0.12269 ,0.84258 - +,0.03297 ,0.00643 ,36.67871 ,1.09766 ,0.98393 ,0.34182 ,1.04106 - +,0.03352 ,0.00675 ,43.58598 ,1.30842 ,1.19452 ,0.55625 ,1.25174 - +,0.03404 ,0.00706 ,50.73314 ,1.52996 ,1.41588 ,0.78405 ,1.47320 - +,0.03454 ,0.00737 ,57.97787 ,1.75831 ,1.64406 ,1.01769 ,1.70146 - +,0.03502 ,0.00766 ,65.37230 ,1.99491 ,1.88050 ,1.25932 ,1.93799 - +,0.03548 ,0.00794 ,72.90512 ,2.23939 ,2.12482 ,1.50855 ,2.18239 - +,0.03593 ,0.00822 ,80.52847 ,2.49034 ,2.37562 ,1.76398 ,2.43327 - +,0.03637 ,0.00849 ,88.09204 ,2.74342 ,2.62854 ,2.02129 ,2.68628 - +,0.03679 ,0.00876 ,95.77158 ,3.00342 ,2.88840 ,2.28531 ,2.94621 - +,0.03720 ,0.00901,103.40367 ,3.26559 ,3.15044 ,2.55131 ,3.20832 - +,0.03759 ,0.00926,111.03078 ,3.53100 ,3.41570 ,2.82036 ,3.47366 - +,0.03798 ,0.00951,118.67154 ,3.80005 ,3.68462 ,3.09289 ,3.74265 - +,0.03836 ,0.00975,126.21417 ,4.06936 ,3.95381 ,3.36555 ,4.01190/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),K=1,19)/ - + 0.03134 ,0.00493 ,3.83235 ,0.14111 ,0.02716 ,0.00000 ,0.08427 - +,0.03225 ,0.00545 ,7.57737 ,0.24846 ,0.13420 ,0.00000 ,0.19148 - +,0.03308 ,0.00593 ,11.95233 ,0.37478 ,0.26023 ,0.00000 ,0.31766 - +,0.03385 ,0.00639 ,16.90590 ,0.51940 ,0.40458 ,0.00000 ,0.46214 - +,0.03457 ,0.00681 ,22.19968 ,0.67608 ,0.56101 ,0.00921 ,0.61870 - +,0.03524 ,0.00722 ,27.82472 ,0.84513 ,0.72981 ,0.11204 ,0.78764 - +,0.03588 ,0.00761 ,33.72424 ,1.02544 ,0.90990 ,0.31136 ,0.96785 - +,0.03649 ,0.00799 ,39.84422 ,1.21576 ,1.10000 ,0.50519 ,1.15806 - +,0.03708 ,0.00835 ,46.13820 ,1.41480 ,1.29883 ,0.71009 ,1.35700 - +,0.03764 ,0.00870 ,52.48160 ,1.61900 ,1.50283 ,0.91927 ,1.56110 - +,0.03818 ,0.00904 ,58.92308 ,1.82969 ,1.71334 ,1.13468 ,1.77170 - +,0.03870 ,0.00937 ,65.45433 ,2.04655 ,1.93001 ,1.35600 ,1.98847 - +,0.03920 ,0.00969 ,72.03506 ,2.26835 ,2.15163 ,1.58200 ,2.21019 - +,0.03969 ,0.01000 ,78.53560 ,2.49124 ,2.37434 ,1.80886 ,2.43298 - +,0.04016 ,0.01031 ,85.11166 ,2.71952 ,2.60246 ,2.04091 ,2.66118 - +,0.04061 ,0.01060 ,91.62201 ,2.94899 ,2.83177 ,2.27397 ,2.89058 - +,0.04106 ,0.01089 ,98.10550 ,3.18062 ,3.06325 ,2.50902 ,3.12214 - +,0.04149 ,0.01117,104.57967 ,3.41482 ,3.29729 ,2.74648 ,3.35626 - +,0.04191 ,0.01145,110.94926 ,3.64862 ,3.53094 ,2.98341 ,3.58998/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),K=1,19)/ - + 0.03332 ,0.00566 ,3.79968 ,0.14154 ,0.02642 ,0.00000 ,0.08406 - +,0.03432 ,0.00625 ,7.37448 ,0.24473 ,0.12925 ,0.00000 ,0.18708 - +,0.03523 ,0.00679 ,11.49857 ,0.36486 ,0.24904 ,0.00000 ,0.30705 - +,0.03607 ,0.00730 ,16.12267 ,0.50126 ,0.38513 ,0.00000 ,0.44329 - +,0.03686 ,0.00778 ,21.02475 ,0.64808 ,0.53166 ,0.00861 ,0.58997 - +,0.03759 ,0.00824 ,26.19827 ,0.80560 ,0.68892 ,0.10436 ,0.74737 - +,0.03829 ,0.00868 ,31.59203 ,0.97281 ,0.85587 ,0.28944 ,0.91445 - +,0.03896 ,0.00910 ,37.15771 ,1.14852 ,1.03133 ,0.46854 ,1.09004 - +,0.03960 ,0.00951 ,42.85422 ,1.33156 ,1.21414 ,0.65716 ,1.27297 - +,0.04021 ,0.00990 ,48.56958 ,1.51867 ,1.40102 ,0.84901 ,1.45996 - +,0.04080 ,0.01028 ,54.35023 ,1.71109 ,1.59322 ,1.04592 ,1.65227 - +,0.04137 ,0.01065 ,60.18990 ,1.90854 ,1.79047 ,1.24762 ,1.84963 - +,0.04191 ,0.01101 ,66.05362 ,2.10991 ,1.99165 ,1.45299 ,2.05090 - +,0.04244 ,0.01136 ,71.82570 ,2.31171 ,2.19326 ,1.65857 ,2.25261 - +,0.04296 ,0.01170 ,77.64796 ,2.51790 ,2.39926 ,1.86835 ,2.45870 - +,0.04345 ,0.01203 ,83.39464 ,2.72465 ,2.60584 ,2.07852 ,2.66537 - +,0.04394 ,0.01235 ,89.10205 ,2.93290 ,2.81392 ,2.29002 ,2.87354 - +,0.04441 ,0.01266 ,94.78679 ,3.14301 ,3.02386 ,2.50323 ,3.08356 - +,0.04487 ,0.01297,100.36469 ,3.35231 ,3.23300 ,2.71551 ,3.29278/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),K=1,19)/ - + 0.04020 ,0.00867 ,3.69894 ,0.14290 ,0.02408 ,0.00000 ,0.08346 - +,0.04151 ,0.00953 ,6.77438 ,0.23366 ,0.11433 ,0.00000 ,0.17397 - +,0.04270 ,0.01032 ,10.18754 ,0.33598 ,0.21618 ,0.00000 ,0.27606 - +,0.04381 ,0.01107 ,13.89920 ,0.44924 ,0.32902 ,0.00000 ,0.38911 - +,0.04483 ,0.01176 ,17.73564 ,0.56872 ,0.44810 ,0.00695 ,0.50839 - +,0.04580 ,0.01242 ,21.69847 ,0.69469 ,0.57370 ,0.08336 ,0.63418 - +,0.04672 ,0.01305 ,25.75279 ,0.82636 ,0.70503 ,0.22979 ,0.76568 - +,0.04759 ,0.01366 ,29.86649 ,0.96284 ,0.84118 ,0.36932 ,0.90200 - +,0.04842 ,0.01424 ,34.01329 ,1.10326 ,0.98130 ,0.51451 ,1.04227 - +,0.04922 ,0.01479 ,38.11441 ,1.24516 ,1.12290 ,0.66049 ,1.18401 - +,0.04999 ,0.01533 ,42.20973 ,1.38957 ,1.26704 ,0.80878 ,1.32829 - +,0.05073 ,0.01585 ,46.29869 ,1.53635 ,1.41356 ,0.95921 ,1.47494 - +,0.05145 ,0.01635 ,50.35931 ,1.68471 ,1.56166 ,1.11100 ,1.62317 - +,0.05214 ,0.01684 ,54.31206 ,1.83207 ,1.70878 ,1.26162 ,1.77041 - +,0.05281 ,0.01732 ,58.26271 ,1.98149 ,1.85798 ,1.41412 ,1.91972 - +,0.05346 ,0.01778 ,62.12411 ,2.13018 ,2.00644 ,1.56575 ,2.06830 - +,0.05409 ,0.01822 ,65.92543 ,2.27888 ,2.15493 ,1.71724 ,2.21688 - +,0.05470 ,0.01866 ,69.68102 ,2.42792 ,2.30376 ,1.86895 ,2.36582 - +,0.05530 ,0.01908 ,73.33424 ,2.57538 ,2.45103 ,2.01897 ,2.51318/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),K=1,19)/ - + 0.04833 ,0.01328 ,3.59829 ,0.14447 ,0.02168 ,0.00000 ,0.08303 - +,0.05003 ,0.01454 ,6.21379 ,0.22356 ,0.10011 ,0.00000 ,0.16179 - +,0.05158 ,0.01569 ,9.00627 ,0.31002 ,0.18599 ,0.00000 ,0.24797 - +,0.05302 ,0.01676 ,11.94959 ,0.40334 ,0.27878 ,0.00000 ,0.34102 - +,0.05436 ,0.01776 ,14.91340 ,0.49978 ,0.37474 ,0.00557 ,0.43723 - +,0.05562 ,0.01870 ,17.90746 ,0.59967 ,0.47417 ,0.06605 ,0.53689 - +,0.05682 ,0.01960 ,20.91110 ,0.70244 ,0.57653 ,0.18097 ,0.63945 - +,0.05796 ,0.02045 ,23.90559 ,0.80747 ,0.68117 ,0.28875 ,0.74429 - +,0.05904 ,0.02127 ,26.87637 ,0.91416 ,0.78749 ,0.39953 ,0.85079 - +,0.06009 ,0.02206 ,29.76994 ,1.02068 ,0.89368 ,0.50959 ,0.95715 - +,0.06109 ,0.02281 ,32.62083 ,1.12794 ,1.00060 ,0.62019 ,1.06424 - +,0.06205 ,0.02354 ,35.43228 ,1.23587 ,1.10823 ,0.73127 ,1.17202 - +,0.06298 ,0.02424 ,38.19170 ,1.34395 ,1.21602 ,0.84232 ,1.27996 - +,0.06388 ,0.02492 ,40.84555 ,1.45032 ,1.32211 ,0.95150 ,1.38618 - +,0.06475 ,0.02558 ,43.47240 ,1.55732 ,1.42885 ,1.06117 ,1.49306 - +,0.06560 ,0.02621 ,46.01302 ,1.66295 ,1.53423 ,1.16933 ,1.59856 - +,0.06642 ,0.02683 ,48.49049 ,1.76779 ,1.63883 ,1.27660 ,1.70328 - +,0.06721 ,0.02743 ,50.91679 ,1.87215 ,1.74296 ,1.38327 ,1.80752 - +,0.06799 ,0.02801 ,53.25471 ,1.97468 ,1.84527 ,1.48801 ,1.90995/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),K=1,19)/ - + 0.05382 ,0.01706 ,3.53856 ,0.14570 ,0.02026 ,0.00000 ,0.08296 - +,0.05580 ,0.01861 ,5.90028 ,0.21828 ,0.09212 ,0.00000 ,0.15519 - +,0.05762 ,0.02004 ,8.36460 ,0.29627 ,0.16946 ,0.00000 ,0.23286 - +,0.05931 ,0.02136 ,10.91359 ,0.37917 ,0.25179 ,0.00000 ,0.31548 - +,0.06087 ,0.02259 ,13.43987 ,0.46381 ,0.33590 ,0.00487 ,0.39986 - +,0.06235 ,0.02374 ,15.95744 ,0.55053 ,0.42214 ,0.05734 ,0.48634 - +,0.06375 ,0.02484 ,18.45279 ,0.63891 ,0.51007 ,0.15654 ,0.57450 - +,0.06508 ,0.02588 ,20.91368 ,0.72846 ,0.59921 ,0.24869 ,0.66384 - +,0.06635 ,0.02688 ,23.33113 ,0.81871 ,0.68907 ,0.34269 ,0.75391 - +,0.06757 ,0.02783 ,25.66345 ,0.90818 ,0.77817 ,0.43540 ,0.84319 - +,0.06874 ,0.02874 ,27.94212 ,0.99766 ,0.86732 ,0.52796 ,0.93251 - +,0.06987 ,0.02962 ,30.17204 ,1.08716 ,0.95650 ,0.62037 ,1.02185 - +,0.07096 ,0.03047 ,32.34473 ,1.17628 ,1.04531 ,0.71221 ,1.11081 - +,0.07201 ,0.03129 ,34.41817 ,1.26348 ,1.13223 ,0.80201 ,1.19787 - +,0.07302 ,0.03208 ,36.45828 ,1.35079 ,1.21926 ,0.89177 ,1.28504 - +,0.07401 ,0.03284 ,38.41805 ,1.43653 ,1.30475 ,0.97986 ,1.37066 - +,0.07496 ,0.03358 ,40.31763 ,1.52126 ,1.38923 ,1.06682 ,1.45527 - +,0.07589 ,0.03429 ,42.16774 ,1.60524 ,1.47297 ,1.15292 ,1.53913 - +,0.07679 ,0.03499 ,43.93956 ,1.68738 ,1.55489 ,1.23711 ,1.62116/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),K=1,19)/ - + 0.05816 ,0.02037 ,3.49532 ,0.14682 ,0.01926 ,0.00000 ,0.08304 - +,0.06039 ,0.02218 ,5.68253 ,0.21494 ,0.08660 ,0.00000 ,0.15078 - +,0.06243 ,0.02383 ,7.92716 ,0.28721 ,0.15819 ,0.00000 ,0.22273 - +,0.06431 ,0.02536 ,10.21717 ,0.36321 ,0.23359 ,0.00000 ,0.29843 - +,0.06607 ,0.02678 ,12.46043 ,0.44012 ,0.30994 ,0.00441 ,0.37507 - +,0.06772 ,0.02811 ,14.67355 ,0.51829 ,0.38762 ,0.05170 ,0.45300 - +,0.06929 ,0.02937 ,16.84769 ,0.59741 ,0.46627 ,0.14077 ,0.53189 - +,0.07078 ,0.03056 ,18.97456 ,0.67706 ,0.54549 ,0.22292 ,0.61133 - +,0.07221 ,0.03171 ,21.04855 ,0.75688 ,0.62492 ,0.30626 ,0.69096 - +,0.07358 ,0.03279 ,23.03528 ,0.83558 ,0.70325 ,0.38804 ,0.76948 - +,0.07489 ,0.03383 ,24.96417 ,0.91392 ,0.78124 ,0.46927 ,0.84764 - +,0.07615 ,0.03483 ,26.84091 ,0.99192 ,0.85892 ,0.55001 ,0.92549 - +,0.07736 ,0.03580 ,28.65936 ,1.06925 ,0.93595 ,0.62993 ,1.00267 - +,0.07854 ,0.03672 ,30.38464 ,1.14461 ,1.01102 ,0.70774 ,1.07789 - +,0.07967 ,0.03762 ,32.07445 ,1.21980 ,1.08593 ,0.78524 ,1.15294 - +,0.08077 ,0.03848 ,33.68941 ,1.29336 ,1.15924 ,0.86102 ,1.22637 - +,0.08184 ,0.03932 ,35.24754 ,1.36580 ,1.23144 ,0.93557 ,1.29870 - +,0.08287 ,0.04013 ,36.75883 ,1.43738 ,1.30278 ,1.00917 ,1.37016 - +,0.08388 ,0.04091 ,38.19920 ,1.50716 ,1.37235 ,1.08088 ,1.43983/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),K=1,19)/ - + 0.06205 ,0.02339 ,3.46064 ,0.14821 ,0.01849 ,0.00000 ,0.08335 - +,0.06451 ,0.02542 ,5.51269 ,0.21294 ,0.08240 ,0.00000 ,0.14767 - +,0.06677 ,0.02727 ,7.59007 ,0.28088 ,0.14963 ,0.00000 ,0.21527 - +,0.06885 ,0.02897 ,9.68558 ,0.35168 ,0.21980 ,0.00000 ,0.28577 - +,0.07078 ,0.03055 ,11.71840 ,0.42281 ,0.29036 ,0.00408 ,0.35662 - +,0.07261 ,0.03202 ,13.70769 ,0.49464 ,0.36168 ,0.04752 ,0.42820 - +,0.07433 ,0.03342 ,15.64750 ,0.56692 ,0.43349 ,0.12909 ,0.50025 - +,0.07597 ,0.03474 ,17.53214 ,0.63932 ,0.50545 ,0.20391 ,0.57243 - +,0.07754 ,0.03600 ,19.35939 ,0.71153 ,0.57726 ,0.27946 ,0.64444 - +,0.07904 ,0.03720 ,21.09874 ,0.78243 ,0.64778 ,0.35328 ,0.71515 - +,0.08048 ,0.03835 ,22.77890 ,0.85269 ,0.71769 ,0.42631 ,0.78525 - +,0.08186 ,0.03945 ,24.40553 ,0.92239 ,0.78707 ,0.49863 ,0.85479 - +,0.08320 ,0.04050 ,25.97391 ,0.99126 ,0.85564 ,0.56996 ,0.92351 - +,0.08448 ,0.04152 ,27.45506 ,1.05815 ,0.92224 ,0.63919 ,0.99025 - +,0.08573 ,0.04250 ,28.90048 ,1.12468 ,0.98850 ,0.70793 ,1.05665 - +,0.08693 ,0.04344 ,30.27596 ,1.18956 ,1.05313 ,0.77493 ,1.12141 - +,0.08809 ,0.04435 ,31.59718 ,1.25328 ,1.11662 ,0.84067 ,1.18501 - +,0.08922 ,0.04524 ,32.87344 ,1.31609 ,1.17920 ,0.90541 ,1.24771 - +,0.09032 ,0.04609 ,34.08525 ,1.37716 ,1.24006 ,0.96833 ,1.30868/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),K=1,19)/ - + 0.07640 ,0.03594 ,3.34746 ,0.15342 ,0.01608 ,0.00000 ,0.08475 - +,0.07979 ,0.03879 ,4.99865 ,0.20792 ,0.06970 ,0.00000 ,0.13883 - +,0.08288 ,0.04136 ,6.59860 ,0.26329 ,0.12432 ,0.00000 ,0.19384 - +,0.08572 ,0.04371 ,8.15442 ,0.31936 ,0.17973 ,0.00000 ,0.24959 - +,0.08836 ,0.04587 ,9.61668 ,0.37438 ,0.23418 ,0.00314 ,0.30433 - +,0.09083 ,0.04788 ,11.00886 ,0.42879 ,0.28808 ,0.03609 ,0.35849 - +,0.09317 ,0.04976 ,12.33345 ,0.48252 ,0.34135 ,0.09734 ,0.41200 - +,0.09538 ,0.05154 ,13.59177 ,0.53544 ,0.39386 ,0.15248 ,0.46472 - +,0.09749 ,0.05323 ,14.78690 ,0.58741 ,0.44546 ,0.20735 ,0.51651 - +,0.09950 ,0.05481 ,15.90138 ,0.63770 ,0.49541 ,0.26021 ,0.56663 - +,0.10142 ,0.05633 ,16.95880 ,0.68689 ,0.54430 ,0.31183 ,0.61567 - +,0.10327 ,0.05778 ,17.96573 ,0.73509 ,0.59222 ,0.36234 ,0.66374 - +,0.10504 ,0.05916 ,18.92113 ,0.78217 ,0.63905 ,0.41160 ,0.71070 - +,0.10675 ,0.06047 ,19.80765 ,0.82737 ,0.68402 ,0.45887 ,0.75578 - +,0.10839 ,0.06174 ,20.66154 ,0.87190 ,0.72833 ,0.50537 ,0.80021 - +,0.10998 ,0.06296 ,21.46149 ,0.91488 ,0.77111 ,0.55023 ,0.84309 - +,0.11151 ,0.06413 ,22.21918 ,0.95670 ,0.81275 ,0.59385 ,0.88482 - +,0.11299 ,0.06527 ,22.94193 ,0.99757 ,0.85345 ,0.63644 ,0.92560 - +,0.11443 ,0.06635 ,23.61795 ,1.03694 ,0.89267 ,0.67747 ,0.96490/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),K=1,19)/ - + 0.09672 ,0.05523 ,3.21931 ,0.16103 ,0.01368 ,0.00001 ,0.08735 - +,0.10147 ,0.05910 ,4.49238 ,0.20579 ,0.05767 ,0.00001 ,0.13175 - +,0.10577 ,0.06255 ,5.66821 ,0.24966 ,0.10091 ,0.00001 ,0.17531 - +,0.10970 ,0.06568 ,6.76590 ,0.29271 ,0.14343 ,0.00001 ,0.21811 - +,0.11334 ,0.06851 ,7.76049 ,0.33388 ,0.18418 ,0.00237 ,0.25907 - +,0.11671 ,0.07113 ,8.67746 ,0.37365 ,0.22359 ,0.02661 ,0.29867 - +,0.11988 ,0.07356 ,9.52601 ,0.41211 ,0.26176 ,0.07120 ,0.33700 - +,0.12288 ,0.07584 ,10.31033 ,0.44929 ,0.29868 ,0.11054 ,0.37405 - +,0.12572 ,0.07798 ,11.03771 ,0.48517 ,0.33435 ,0.14904 ,0.40983 - +,0.12841 ,0.07998 ,11.69819 ,0.51929 ,0.36831 ,0.18554 ,0.44388 - +,0.13096 ,0.08188 ,12.31124 ,0.55219 ,0.40106 ,0.22068 ,0.47670 - +,0.13341 ,0.08367 ,12.88351 ,0.58399 ,0.43274 ,0.25462 ,0.50844 - +,0.13576 ,0.08538 ,13.41623 ,0.61465 ,0.46331 ,0.28729 ,0.53906 - +,0.13799 ,0.08700 ,13.89722 ,0.64368 ,0.49227 ,0.31826 ,0.56806 - +,0.14014 ,0.08855 ,14.35325 ,0.67197 ,0.52049 ,0.34839 ,0.59631 - +,0.14220 ,0.09003 ,14.77248 ,0.69893 ,0.54741 ,0.37712 ,0.62326 - +,0.14418 ,0.09144 ,15.16176 ,0.72489 ,0.57335 ,0.40478 ,0.64920 - +,0.14610 ,0.09280 ,15.52645 ,0.75001 ,0.59845 ,0.43152 ,0.67432 - +,0.14794 ,0.09410 ,15.86043 ,0.77393 ,0.62238 ,0.45701 ,0.69824/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),K=1,19)/ - + 0.11288 ,0.07096 ,3.13232 ,0.16637 ,0.01227 ,0.00000 ,0.08932 - +,0.11868 ,0.07548 ,4.19566 ,0.20554 ,0.05088 ,0.00000 ,0.12822 - +,0.12390 ,0.07946 ,5.14773 ,0.24306 ,0.08800 ,0.00001 ,0.16556 - +,0.12866 ,0.08305 ,6.01318 ,0.27917 ,0.12380 ,0.00002 ,0.20153 - +,0.13301 ,0.08628 ,6.77825 ,0.31313 ,0.15755 ,0.00197 ,0.23539 - +,0.13705 ,0.08924 ,7.46987 ,0.34545 ,0.18971 ,0.02187 ,0.26764 - +,0.14080 ,0.09198 ,8.09556 ,0.37630 ,0.22047 ,0.05824 ,0.29844 - +,0.14435 ,0.09451 ,8.66505 ,0.40574 ,0.24985 ,0.08990 ,0.32785 - +,0.14769 ,0.09689 ,9.18227 ,0.43379 ,0.27789 ,0.12053 ,0.35591 - +,0.15084 ,0.09910 ,9.64342 ,0.46025 ,0.30435 ,0.14934 ,0.38236 - +,0.15382 ,0.10119 ,10.06437 ,0.48547 ,0.32962 ,0.17681 ,0.40762 - +,0.15667 ,0.10316 ,10.45148 ,0.50962 ,0.35383 ,0.20308 ,0.43180 - +,0.15939 ,0.10502 ,10.80655 ,0.53268 ,0.37697 ,0.22816 ,0.45491 - +,0.16195 ,0.10677 ,11.12072 ,0.55435 ,0.39874 ,0.25176 ,0.47662 - +,0.16442 ,0.10844 ,11.41458 ,0.57530 ,0.41980 ,0.27457 ,0.49763 - +,0.16679 ,0.11002 ,11.67926 ,0.59511 ,0.43973 ,0.29615 ,0.51750 - +,0.16905 ,0.11153 ,11.92194 ,0.61403 ,0.45878 ,0.31677 ,0.53648 - +,0.17124 ,0.11298 ,12.14672 ,0.63220 ,0.47709 ,0.33658 ,0.55472 - +,0.17333 ,0.11436 ,12.34799 ,0.64937 ,0.49441 ,0.35534 ,0.57197/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),K=1,19)/ - + 0.12721 ,0.08466 ,3.06254 ,0.17044 ,0.01127 ,0.00001 ,0.09086 - +,0.13387 ,0.08963 ,3.98219 ,0.20564 ,0.04619 ,0.00000 ,0.12593 - +,0.13984 ,0.09397 ,4.78631 ,0.23880 ,0.07919 ,0.00001 ,0.15902 - +,0.14525 ,0.09786 ,5.50219 ,0.27024 ,0.11056 ,0.00002 ,0.19043 - +,0.15017 ,0.10133 ,6.12281 ,0.29942 ,0.13977 ,0.00171 ,0.21964 - +,0.15472 ,0.10450 ,6.67424 ,0.32688 ,0.16729 ,0.01884 ,0.24714 - +,0.15892 ,0.10741 ,7.16491 ,0.35282 ,0.19335 ,0.04997 ,0.27313 - +,0.16289 ,0.11009 ,7.60462 ,0.37732 ,0.21801 ,0.07681 ,0.29772 - +,0.16661 ,0.11259 ,7.99792 ,0.40048 ,0.24135 ,0.10257 ,0.32097 - +,0.17009 ,0.11491 ,8.34277 ,0.42212 ,0.26319 ,0.12662 ,0.34271 - +,0.17339 ,0.11708 ,8.65298 ,0.44259 ,0.28389 ,0.14937 ,0.36330 - +,0.17652 ,0.11912 ,8.93436 ,0.46205 ,0.30359 ,0.17100 ,0.38288 - +,0.17950 ,0.12104 ,9.18883 ,0.48050 ,0.32229 ,0.19152 ,0.40146 - +,0.18231 ,0.12284 ,9.40956 ,0.49770 ,0.33975 ,0.21070 ,0.41880 - +,0.18500 ,0.12455 ,9.61360 ,0.51423 ,0.35656 ,0.22914 ,0.43547 - +,0.18757 ,0.12617 ,9.79406 ,0.52976 ,0.37237 ,0.24649 ,0.45114 - +,0.19002 ,0.12771 ,9.95690 ,0.54450 ,0.38739 ,0.26298 ,0.46602 - +,0.19238 ,0.12917 ,10.10555 ,0.55858 ,0.40175 ,0.27874 ,0.48024 - +,0.19463 ,0.13056 ,10.23571 ,0.57180 ,0.41526 ,0.29359 ,0.49360/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),K=1,19)/ - + 0.14038 ,0.09698 ,3.00260 ,0.17358 ,0.01050 ,0.00002 ,0.09204 - +,0.14780 ,0.10224 ,3.81398 ,0.20568 ,0.04261 ,0.00001 ,0.12416 - +,0.15436 ,0.10684 ,4.50970 ,0.23552 ,0.07255 ,0.00002 ,0.15405 - +,0.16031 ,0.11091 ,5.11817 ,0.26345 ,0.10068 ,0.00003 ,0.18209 - +,0.16567 ,0.11454 ,5.63711 ,0.28912 ,0.12660 ,0.00154 ,0.20790 - +,0.17062 ,0.11783 ,6.09092 ,0.31302 ,0.15081 ,0.01668 ,0.23196 - +,0.17521 ,0.12082 ,6.48981 ,0.33541 ,0.17352 ,0.04408 ,0.25452 - +,0.17949 ,0.12357 ,6.84049 ,0.35641 ,0.19486 ,0.06753 ,0.27568 - +,0.18348 ,0.12614 ,7.15050 ,0.37609 ,0.21492 ,0.08989 ,0.29555 - +,0.18723 ,0.12848 ,7.41871 ,0.39433 ,0.23356 ,0.11060 ,0.31399 - +,0.19076 ,0.13069 ,7.65586 ,0.41147 ,0.25111 ,0.13010 ,0.33134 - +,0.19410 ,0.13275 ,7.86800 ,0.42766 ,0.26771 ,0.14854 ,0.34774 - +,0.19728 ,0.13468 ,8.05751 ,0.44294 ,0.28342 ,0.16596 ,0.36324 - +,0.20026 ,0.13647 ,8.21889 ,0.45706 ,0.29795 ,0.18213 ,0.37757 - +,0.20312 ,0.13817 ,8.36630 ,0.47057 ,0.31188 ,0.19760 ,0.39128 - +,0.20583 ,0.13977 ,8.49387 ,0.48320 ,0.32494 ,0.21211 ,0.40412 - +,0.20841 ,0.14129 ,8.60662 ,0.49511 ,0.33727 ,0.22583 ,0.41625 - +,0.21088 ,0.14273 ,8.70760 ,0.50642 ,0.34901 ,0.23889 ,0.42779 - +,0.21324 ,0.14409 ,8.79360 ,0.51698 ,0.36000 ,0.25115 ,0.43856/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),K=1,19)/ - + 0.19755 ,0.14628 ,2.76721 ,0.18116 ,0.00807 ,0.00000 ,0.09461 - +,0.20734 ,0.15198 ,3.26343 ,0.20340 ,0.03178 ,0.00000 ,0.11759 - +,0.21590 ,0.15677 ,3.65800 ,0.22306 ,0.05290 ,0.00002 ,0.13799 - +,0.22341 ,0.16094 ,3.97958 ,0.24068 ,0.07193 ,0.00003 ,0.15634 - +,0.23013 ,0.16455 ,4.23566 ,0.25625 ,0.08887 ,0.00101 ,0.17258 - +,0.23618 ,0.16774 ,4.44390 ,0.27023 ,0.10419 ,0.01083 ,0.18723 - +,0.24169 ,0.17058 ,4.61561 ,0.28288 ,0.11813 ,0.02833 ,0.20054 - +,0.24676 ,0.17313 ,4.75545 ,0.29438 ,0.13090 ,0.04289 ,0.21267 - +,0.25148 ,0.17542 ,4.87193 ,0.30486 ,0.14261 ,0.05649 ,0.22377 - +,0.25572 ,0.17753 ,4.96143 ,0.31427 ,0.15320 ,0.06881 ,0.23376 - +,0.25972 ,0.17941 ,5.03492 ,0.32286 ,0.16295 ,0.08017 ,0.24294 - +,0.26347 ,0.18114 ,5.09485 ,0.33077 ,0.17198 ,0.09071 ,0.25141 - +,0.26695 ,0.18275 ,5.14215 ,0.33802 ,0.18033 ,0.10047 ,0.25921 - +,0.27021 ,0.18418 ,5.17558 ,0.34452 ,0.18791 ,0.10938 ,0.26626 - +,0.27330 ,0.18552 ,5.20275 ,0.35062 ,0.19505 ,0.11777 ,0.27288 - +,0.27617 ,0.18675 ,5.22071 ,0.35616 ,0.20161 ,0.12551 ,0.27893 - +,0.27885 ,0.18790 ,5.23209 ,0.36125 ,0.20769 ,0.13271 ,0.28451 - +,0.28138 ,0.18897 ,5.23857 ,0.36597 ,0.21337 ,0.13946 ,0.28972 - +,0.28379 ,0.18995 ,5.23830 ,0.37023 ,0.21857 ,0.14568 ,0.29445/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),K=1,19)/ - + 0.29190 ,0.21286 ,2.41679 ,0.17758 ,0.00558 ,-0.00012 ,0.09153 - +,0.30296 ,0.21710 ,2.63960 ,0.18955 ,0.02145 ,-0.00010 ,0.10548 - +,0.31219 ,0.22043 ,2.79302 ,0.19939 ,0.03483 ,-0.00011 ,0.11707 - +,0.32011 ,0.22308 ,2.90087 ,0.20761 ,0.04629 ,-0.00010 ,0.12694 - +,0.32694 ,0.22515 ,2.97062 ,0.21441 ,0.05609 ,0.00049 ,0.13520 - +,0.33287 ,0.22685 ,3.01607 ,0.22011 ,0.06460 ,0.00619 ,0.14232 - +,0.33810 ,0.22824 ,3.04291 ,0.22495 ,0.07204 ,0.01613 ,0.14848 - +,0.34272 ,0.22940 ,3.05549 ,0.22907 ,0.07860 ,0.02414 ,0.15384 - +,0.34687 ,0.23036 ,3.05751 ,0.23259 ,0.08444 ,0.03143 ,0.15849 - +,0.35053 ,0.23111 ,3.04944 ,0.23551 ,0.08957 ,0.03787 ,0.16252 - +,0.35386 ,0.23166 ,3.03514 ,0.23796 ,0.09411 ,0.04364 ,0.16603 - +,0.35689 ,0.23209 ,3.01668 ,0.24005 ,0.09820 ,0.04885 ,0.16912 - +,0.35964 ,0.23245 ,2.99490 ,0.24181 ,0.10190 ,0.05357 ,0.17184 - +,0.36202 ,0.23270 ,2.96853 ,0.24321 ,0.10510 ,0.05779 ,0.17413 - +,0.36422 ,0.23289 ,2.94133 ,0.24444 ,0.10805 ,0.06169 ,0.17620 - +,0.36624 ,0.23299 ,2.91178 ,0.24539 ,0.11067 ,0.06520 ,0.17800 - +,0.36807 ,0.23302 ,2.88120 ,0.24617 ,0.11303 ,0.06840 ,0.17957 - +,0.36974 ,0.23299 ,2.85024 ,0.24681 ,0.11518 ,0.07136 ,0.18096 - +,0.37127 ,0.23290 ,2.81809 ,0.24721 ,0.11708 ,0.07401 ,0.18211/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),K=1,19)/ - + 0.37025 ,0.25586 ,2.13329 ,0.16380 ,0.00425 ,0.00001 ,0.08404 - +,0.38007 ,0.25749 ,2.22498 ,0.17000 ,0.01592 ,0.00004 ,0.09297 - +,0.38785 ,0.25847 ,2.27134 ,0.17462 ,0.02538 ,0.00000 ,0.10001 - +,0.39423 ,0.25892 ,2.29030 ,0.17820 ,0.03320 ,0.00006 ,0.10573 - +,0.39942 ,0.25899 ,2.28806 ,0.18073 ,0.03969 ,0.00041 ,0.11024 - +,0.40370 ,0.25880 ,2.27386 ,0.18262 ,0.04520 ,0.00426 ,0.11394 - +,0.40730 ,0.25842 ,2.25092 ,0.18398 ,0.04986 ,0.01079 ,0.11693 - +,0.41034 ,0.25787 ,2.22219 ,0.18493 ,0.05389 ,0.01602 ,0.11941 - +,0.41293 ,0.25716 ,2.18971 ,0.18554 ,0.05728 ,0.02060 ,0.12144 - +,0.41501 ,0.25639 ,2.15360 ,0.18579 ,0.06024 ,0.02461 ,0.12302 - +,0.41671 ,0.25557 ,2.11617 ,0.18582 ,0.06281 ,0.02813 ,0.12434 - +,0.41818 ,0.25469 ,2.07845 ,0.18567 ,0.06506 ,0.03126 ,0.12541 - +,0.41947 ,0.25372 ,2.04072 ,0.18539 ,0.06701 ,0.03403 ,0.12624 - +,0.42038 ,0.25274 ,2.00225 ,0.18494 ,0.06868 ,0.03650 ,0.12684 - +,0.42117 ,0.25174 ,1.96497 ,0.18442 ,0.07017 ,0.03874 ,0.12732 - +,0.42180 ,0.25068 ,1.92783 ,0.18378 ,0.07146 ,0.04071 ,0.12763 - +,0.42224 ,0.24964 ,1.89143 ,0.18306 ,0.07255 ,0.04245 ,0.12782 - +,0.42256 ,0.24863 ,1.85607 ,0.18230 ,0.07349 ,0.04400 ,0.12792 - +,0.42275 ,0.24755 ,1.82130 ,0.18146 ,0.07432 ,0.04543 ,0.12792/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),K=1,19)/ - + 0.43578 ,0.28378 ,1.88804 ,0.14623 ,0.00340 ,0.00005 ,0.07484 - +,0.44281 ,0.28259 ,1.90397 ,0.14887 ,0.01222 ,0.00005 ,0.08057 - +,0.44791 ,0.28102 ,1.89252 ,0.15039 ,0.01928 ,0.00008 ,0.08485 - +,0.45179 ,0.27917 ,1.86632 ,0.15122 ,0.02493 ,0.00006 ,0.08811 - +,0.45447 ,0.27724 ,1.82986 ,0.15145 ,0.02949 ,0.00037 ,0.09050 - +,0.45647 ,0.27511 ,1.78863 ,0.15128 ,0.03323 ,0.00302 ,0.09232 - +,0.45782 ,0.27300 ,1.74493 ,0.15085 ,0.03636 ,0.00767 ,0.09366 - +,0.45866 ,0.27088 ,1.70028 ,0.15018 ,0.03897 ,0.01128 ,0.09464 - +,0.45918 ,0.26875 ,1.65555 ,0.14935 ,0.04119 ,0.01441 ,0.09532 - +,0.45935 ,0.26652 ,1.61059 ,0.14836 ,0.04304 ,0.01715 ,0.09577 - +,0.45913 ,0.26440 ,1.56698 ,0.14729 ,0.04457 ,0.01949 ,0.09600 - +,0.45873 ,0.26233 ,1.52497 ,0.14617 ,0.04588 ,0.02154 ,0.09608 - +,0.45825 ,0.26025 ,1.48447 ,0.14499 ,0.04699 ,0.02334 ,0.09603 - +,0.45748 ,0.25819 ,1.44486 ,0.14374 ,0.04789 ,0.02484 ,0.09587 - +,0.45664 ,0.25619 ,1.40732 ,0.14249 ,0.04867 ,0.02619 ,0.09565 - +,0.45568 ,0.25422 ,1.37106 ,0.14121 ,0.04932 ,0.02739 ,0.09533 - +,0.45467 ,0.25224 ,1.33636 ,0.13993 ,0.04985 ,0.02845 ,0.09495 - +,0.45361 ,0.25029 ,1.30328 ,0.13868 ,0.05028 ,0.02939 ,0.09453 - +,0.45240 ,0.24840 ,1.27136 ,0.13739 ,0.05065 ,0.03024 ,0.09407/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),K=1,19)/ - + 0.48966 ,0.30083 ,1.67097 ,0.12773 ,0.00269 ,0.00004 ,0.06524 - +,0.49307 ,0.29682 ,1.64066 ,0.12809 ,0.00961 ,0.00008 ,0.06887 - +,0.49487 ,0.29281 ,1.59580 ,0.12772 ,0.01494 ,0.00006 ,0.07134 - +,0.49551 ,0.28890 ,1.54534 ,0.12700 ,0.01913 ,0.00004 ,0.07306 - +,0.49544 ,0.28497 ,1.49179 ,0.12594 ,0.02237 ,0.00027 ,0.07423 - +,0.49466 ,0.28124 ,1.43847 ,0.12468 ,0.02504 ,0.00231 ,0.07491 - +,0.49349 ,0.27757 ,1.38653 ,0.12329 ,0.02720 ,0.00571 ,0.07530 - +,0.49199 ,0.27400 ,1.33632 ,0.12181 ,0.02901 ,0.00826 ,0.07542 - +,0.49024 ,0.27059 ,1.28828 ,0.12030 ,0.03046 ,0.01041 ,0.07540 - +,0.48829 ,0.26723 ,1.24211 ,0.11872 ,0.03162 ,0.01227 ,0.07517 - +,0.48610 ,0.26402 ,1.19847 ,0.11717 ,0.03255 ,0.01389 ,0.07486 - +,0.48383 ,0.26093 ,1.15737 ,0.11562 ,0.03334 ,0.01528 ,0.07450 - +,0.48152 ,0.25791 ,1.11860 ,0.11409 ,0.03402 ,0.01647 ,0.07408 - +,0.47916 ,0.25491 ,1.08153 ,0.11253 ,0.03453 ,0.01752 ,0.07355 - +,0.47677 ,0.25205 ,1.04685 ,0.11103 ,0.03496 ,0.01844 ,0.07300 - +,0.47421 ,0.24933 ,1.01394 ,0.10955 ,0.03530 ,0.01918 ,0.07242 - +,0.47169 ,0.24667 ,0.98286 ,0.10809 ,0.03556 ,0.01985 ,0.07182 - +,0.46923 ,0.24408 ,0.95356 ,0.10667 ,0.03574 ,0.02045 ,0.07121 - +,0.46669 ,0.24158 ,0.92566 ,0.10526 ,0.03587 ,0.02096 ,0.07058/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),K=1,19)/ - + 0.54223 ,0.31033 ,1.43274 ,0.10537 ,0.00202 ,0.00008 ,0.05374 - +,0.54026 ,0.30321 ,1.36843 ,0.10410 ,0.00718 ,0.00005 ,0.05569 - +,0.53738 ,0.29641 ,1.30134 ,0.10248 ,0.01106 ,0.00009 ,0.05683 - +,0.53384 ,0.29017 ,1.23647 ,0.10072 ,0.01402 ,0.00004 ,0.05741 - +,0.52986 ,0.28426 ,1.17418 ,0.09884 ,0.01633 ,0.00021 ,0.05762 - +,0.52567 ,0.27870 ,1.11605 ,0.09696 ,0.01808 ,0.00162 ,0.05758 - +,0.52134 ,0.27338 ,1.06188 ,0.09508 ,0.01947 ,0.00396 ,0.05733 - +,0.51683 ,0.26840 ,1.01153 ,0.09325 ,0.02056 ,0.00574 ,0.05698 - +,0.51229 ,0.26375 ,0.96494 ,0.09141 ,0.02151 ,0.00725 ,0.05647 - +,0.50768 ,0.25922 ,0.92139 ,0.08965 ,0.02214 ,0.00846 ,0.05592 - +,0.50312 ,0.25494 ,0.88111 ,0.08790 ,0.02268 ,0.00949 ,0.05534 - +,0.49867 ,0.25084 ,0.84386 ,0.08621 ,0.02312 ,0.01040 ,0.05473 - +,0.49432 ,0.24685 ,0.80928 ,0.08459 ,0.02345 ,0.01121 ,0.05413 - +,0.48987 ,0.24315 ,0.77692 ,0.08300 ,0.02369 ,0.01183 ,0.05344 - +,0.48555 ,0.23961 ,0.74701 ,0.08148 ,0.02389 ,0.01236 ,0.05276 - +,0.48128 ,0.23613 ,0.71902 ,0.08003 ,0.02401 ,0.01282 ,0.05207 - +,0.47710 ,0.23281 ,0.69289 ,0.07860 ,0.02409 ,0.01320 ,0.05142 - +,0.47303 ,0.22967 ,0.66848 ,0.07720 ,0.02415 ,0.01354 ,0.05081 - +,0.46901 ,0.22658 ,0.64552 ,0.07587 ,0.02416 ,0.01383 ,0.05017/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),K=1,19)/ - + 0.57955 ,0.30997 ,1.22539 ,0.08511 ,0.00166 ,0.00015 ,0.04345 - +,0.57208 ,0.30013 ,1.14330 ,0.08308 ,0.00551 ,0.00018 ,0.04433 - +,0.56428 ,0.29120 ,1.06655 ,0.08093 ,0.00833 ,0.00018 ,0.04469 - +,0.55653 ,0.28303 ,0.99682 ,0.07878 ,0.01047 ,0.00017 ,0.04467 - +,0.54878 ,0.27551 ,0.93335 ,0.07669 ,0.01198 ,0.00024 ,0.04439 - +,0.54117 ,0.26855 ,0.87603 ,0.07466 ,0.01318 ,0.00127 ,0.04398 - +,0.53361 ,0.26221 ,0.82423 ,0.07269 ,0.01411 ,0.00292 ,0.04345 - +,0.52635 ,0.25618 ,0.77728 ,0.07078 ,0.01484 ,0.00413 ,0.04288 - +,0.51937 ,0.25040 ,0.73454 ,0.06897 ,0.01539 ,0.00511 ,0.04228 - +,0.51238 ,0.24507 ,0.69551 ,0.06724 ,0.01581 ,0.00600 ,0.04160 - +,0.50563 ,0.24007 ,0.65999 ,0.06558 ,0.01613 ,0.00669 ,0.04092 - +,0.49915 ,0.23532 ,0.62757 ,0.06400 ,0.01635 ,0.00727 ,0.04026 - +,0.49295 ,0.23077 ,0.59784 ,0.06250 ,0.01648 ,0.00776 ,0.03963 - +,0.48684 ,0.22642 ,0.57034 ,0.06104 ,0.01659 ,0.00813 ,0.03897 - +,0.48092 ,0.22235 ,0.54514 ,0.05968 ,0.01667 ,0.00847 ,0.03831 - +,0.47504 ,0.21854 ,0.52181 ,0.05839 ,0.01669 ,0.00882 ,0.03764 - +,0.46945 ,0.21482 ,0.50028 ,0.05715 ,0.01667 ,0.00908 ,0.03699 - +,0.46413 ,0.21122 ,0.48036 ,0.05597 ,0.01663 ,0.00929 ,0.03638 - +,0.45886 ,0.20781 ,0.46183 ,0.05483 ,0.01657 ,0.00943 ,0.03577/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),K=1,19)/ - + 0.60289 ,0.30265 ,1.04424 ,0.06760 ,0.00122 ,0.00002 ,0.03439 - +,0.59001 ,0.29057 ,0.95472 ,0.06526 ,0.00414 ,0.00002 ,0.03477 - +,0.57767 ,0.27976 ,0.87555 ,0.06298 ,0.00628 ,0.00002 ,0.03468 - +,0.56584 ,0.27024 ,0.80645 ,0.06080 ,0.00783 ,0.00006 ,0.03439 - +,0.55466 ,0.26145 ,0.74555 ,0.05872 ,0.00896 ,0.00010 ,0.03392 - +,0.54386 ,0.25357 ,0.69209 ,0.05679 ,0.00976 ,0.00086 ,0.03337 - +,0.53370 ,0.24629 ,0.64459 ,0.05489 ,0.01040 ,0.00209 ,0.03284 - +,0.52398 ,0.23947 ,0.60224 ,0.05318 ,0.01089 ,0.00298 ,0.03216 - +,0.51460 ,0.23321 ,0.56446 ,0.05153 ,0.01124 ,0.00378 ,0.03157 - +,0.50568 ,0.22723 ,0.53036 ,0.05001 ,0.01144 ,0.00435 ,0.03088 - +,0.49708 ,0.22169 ,0.49968 ,0.04858 ,0.01162 ,0.00476 ,0.03020 - +,0.48892 ,0.21648 ,0.47204 ,0.04720 ,0.01176 ,0.00514 ,0.02956 - +,0.48122 ,0.21155 ,0.44704 ,0.04585 ,0.01188 ,0.00556 ,0.02899 - +,0.47356 ,0.20700 ,0.42403 ,0.04462 ,0.01190 ,0.00578 ,0.02838 - +,0.46631 ,0.20267 ,0.40315 ,0.04348 ,0.01189 ,0.00597 ,0.02779 - +,0.45945 ,0.19842 ,0.38413 ,0.04239 ,0.01185 ,0.00614 ,0.02721 - +,0.45275 ,0.19448 ,0.36660 ,0.04134 ,0.01180 ,0.00632 ,0.02667 - +,0.44625 ,0.19081 ,0.35043 ,0.04034 ,0.01174 ,0.00648 ,0.02615 - +,0.44001 ,0.18723 ,0.33541 ,0.03938 ,0.01168 ,0.00656 ,0.02564/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),K=1,19)/ - + 0.61410 ,0.28979 ,0.88667 ,0.05279 ,0.00092 ,0.00004 ,0.02687 - +,0.59604 ,0.27621 ,0.79580 ,0.05049 ,0.00316 ,-0.00001 ,0.02690 - +,0.57944 ,0.26417 ,0.71873 ,0.04839 ,0.00468 ,0.00004 ,0.02655 - +,0.56405 ,0.25361 ,0.65336 ,0.04632 ,0.00579 ,0.00003 ,0.02625 - +,0.54975 ,0.24410 ,0.59711 ,0.04450 ,0.00659 ,0.00017 ,0.02561 - +,0.53630 ,0.23556 ,0.54858 ,0.04275 ,0.00717 ,0.00074 ,0.02507 - +,0.52367 ,0.22775 ,0.50632 ,0.04117 ,0.00758 ,0.00148 ,0.02444 - +,0.51187 ,0.22050 ,0.46921 ,0.03970 ,0.00788 ,0.00222 ,0.02382 - +,0.50079 ,0.21372 ,0.43637 ,0.03831 ,0.00812 ,0.00275 ,0.02322 - +,0.49012 ,0.20756 ,0.40718 ,0.03696 ,0.00828 ,0.00307 ,0.02267 - +,0.48003 ,0.20183 ,0.38122 ,0.03572 ,0.00839 ,0.00337 ,0.02210 - +,0.47048 ,0.19649 ,0.35804 ,0.03457 ,0.00845 ,0.00362 ,0.02155 - +,0.46141 ,0.19150 ,0.33722 ,0.03348 ,0.00848 ,0.00382 ,0.02104 - +,0.45269 ,0.18678 ,0.31828 ,0.03250 ,0.00842 ,0.00401 ,0.02050 - +,0.44446 ,0.18233 ,0.30117 ,0.03157 ,0.00837 ,0.00418 ,0.02000 - +,0.43664 ,0.17805 ,0.28558 ,0.03066 ,0.00835 ,0.00434 ,0.01954 - +,0.42911 ,0.17405 ,0.27139 ,0.02981 ,0.00829 ,0.00442 ,0.01909 - +,0.42187 ,0.17031 ,0.25841 ,0.02902 ,0.00821 ,0.00445 ,0.01865 - +,0.41501 ,0.16668 ,0.24646 ,0.02825 ,0.00815 ,0.00449 ,0.01823/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),K=1,19)/ - + 0.61433 ,0.27330 ,0.74950 ,0.04060 ,0.00064 ,0.00002 ,0.02066 - +,0.59178 ,0.25855 ,0.66159 ,0.03854 ,0.00235 ,0.00009 ,0.02053 - +,0.57142 ,0.24576 ,0.58906 ,0.03662 ,0.00352 ,0.00010 ,0.02018 - +,0.55273 ,0.23478 ,0.52903 ,0.03494 ,0.00429 ,0.00005 ,0.01965 - +,0.53602 ,0.22461 ,0.47855 ,0.03333 ,0.00487 ,0.00011 ,0.01917 - +,0.52055 ,0.21555 ,0.43557 ,0.03187 ,0.00526 ,0.00051 ,0.01862 - +,0.50593 ,0.20758 ,0.39844 ,0.03051 ,0.00558 ,0.00115 ,0.01807 - +,0.49243 ,0.20017 ,0.36642 ,0.02924 ,0.00585 ,0.00166 ,0.01753 - +,0.47991 ,0.19326 ,0.33847 ,0.02810 ,0.00596 ,0.00194 ,0.01700 - +,0.46779 ,0.18721 ,0.31374 ,0.02702 ,0.00599 ,0.00222 ,0.01656 - +,0.45658 ,0.18141 ,0.29198 ,0.02603 ,0.00603 ,0.00243 ,0.01610 - +,0.44611 ,0.17597 ,0.27271 ,0.02511 ,0.00607 ,0.00260 ,0.01563 - +,0.43622 ,0.17090 ,0.25553 ,0.02426 ,0.00612 ,0.00276 ,0.01515 - +,0.42664 ,0.16623 ,0.24001 ,0.02348 ,0.00605 ,0.00286 ,0.01473 - +,0.41767 ,0.16185 ,0.22608 ,0.02274 ,0.00597 ,0.00293 ,0.01435 - +,0.40929 ,0.15764 ,0.21352 ,0.02202 ,0.00588 ,0.00297 ,0.01400 - +,0.40126 ,0.15371 ,0.20210 ,0.02134 ,0.00582 ,0.00300 ,0.01364 - +,0.39359 ,0.15002 ,0.19169 ,0.02068 ,0.00579 ,0.00303 ,0.01329 - +,0.38620 ,0.14655 ,0.18220 ,0.02010 ,0.00573 ,0.00303 ,0.01294/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),K=1,19)/ - + 0.60532 ,0.25406 ,0.63051 ,0.03078 ,0.00047 ,0.00016 ,0.01566 - +,0.57898 ,0.23857 ,0.54779 ,0.02902 ,0.00179 ,0.00009 ,0.01541 - +,0.55534 ,0.22556 ,0.48134 ,0.02737 ,0.00270 ,0.00009 ,0.01508 - +,0.53451 ,0.21388 ,0.42751 ,0.02596 ,0.00326 ,0.00001 ,0.01459 - +,0.51533 ,0.20398 ,0.38247 ,0.02458 ,0.00371 ,0.00014 ,0.01418 - +,0.49796 ,0.19494 ,0.34504 ,0.02336 ,0.00403 ,0.00037 ,0.01378 - +,0.48205 ,0.18679 ,0.31325 ,0.02231 ,0.00415 ,0.00087 ,0.01331 - +,0.46721 ,0.17950 ,0.28590 ,0.02135 ,0.00429 ,0.00115 ,0.01282 - +,0.45345 ,0.17287 ,0.26220 ,0.02041 ,0.00438 ,0.00141 ,0.01239 - +,0.44063 ,0.16667 ,0.24169 ,0.01955 ,0.00446 ,0.00159 ,0.01198 - +,0.42868 ,0.16095 ,0.22359 ,0.01874 ,0.00447 ,0.00170 ,0.01165 - +,0.41748 ,0.15568 ,0.20767 ,0.01802 ,0.00442 ,0.00179 ,0.01130 - +,0.40690 ,0.15083 ,0.19362 ,0.01741 ,0.00434 ,0.00191 ,0.01090 - +,0.39690 ,0.14628 ,0.18113 ,0.01681 ,0.00428 ,0.00201 ,0.01054 - +,0.38754 ,0.14205 ,0.16999 ,0.01623 ,0.00424 ,0.00209 ,0.01023 - +,0.37872 ,0.13804 ,0.16000 ,0.01565 ,0.00423 ,0.00213 ,0.00994 - +,0.37042 ,0.13429 ,0.15095 ,0.01510 ,0.00419 ,0.00216 ,0.00967 - +,0.36259 ,0.13077 ,0.14272 ,0.01458 ,0.00411 ,0.00219 ,0.00941 - +,0.35501 ,0.12747 ,0.13524 ,0.01411 ,0.00405 ,0.00221 ,0.00917/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),K=1,19)/ - + 0.58858 ,0.23307 ,0.52773 ,0.02286 ,0.00046 ,0.00014 ,0.01179 - +,0.55905 ,0.21737 ,0.45171 ,0.02143 ,0.00142 ,0.00011 ,0.01150 - +,0.53267 ,0.20451 ,0.39204 ,0.02014 ,0.00206 ,0.00009 ,0.01118 - +,0.50988 ,0.19294 ,0.34386 ,0.01901 ,0.00244 ,0.00010 ,0.01077 - +,0.48921 ,0.18294 ,0.30497 ,0.01799 ,0.00272 ,0.00003 ,0.01039 - +,0.47047 ,0.17422 ,0.27271 ,0.01699 ,0.00297 ,0.00032 ,0.01004 - +,0.45342 ,0.16638 ,0.24571 ,0.01612 ,0.00307 ,0.00064 ,0.00971 - +,0.43775 ,0.15926 ,0.22258 ,0.01539 ,0.00315 ,0.00084 ,0.00928 - +,0.42344 ,0.15270 ,0.20269 ,0.01468 ,0.00315 ,0.00099 ,0.00896 - +,0.41007 ,0.14672 ,0.18599 ,0.01403 ,0.00319 ,0.00114 ,0.00860 - +,0.39753 ,0.14135 ,0.17136 ,0.01343 ,0.00318 ,0.00125 ,0.00831 - +,0.38600 ,0.13639 ,0.15849 ,0.01285 ,0.00316 ,0.00132 ,0.00802 - +,0.37550 ,0.13171 ,0.14711 ,0.01227 ,0.00314 ,0.00135 ,0.00770 - +,0.36515 ,0.12740 ,0.13694 ,0.01183 ,0.00311 ,0.00141 ,0.00745 - +,0.35551 ,0.12337 ,0.12789 ,0.01142 ,0.00308 ,0.00146 ,0.00722 - +,0.34657 ,0.11952 ,0.11980 ,0.01100 ,0.00303 ,0.00148 ,0.00700 - +,0.33811 ,0.11600 ,0.11263 ,0.01061 ,0.00299 ,0.00151 ,0.00681 - +,0.33010 ,0.11275 ,0.10623 ,0.01024 ,0.00296 ,0.00154 ,0.00665 - +,0.32242 ,0.10966 ,0.10040 ,0.00991 ,0.00290 ,0.00153 ,0.00645/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),K=1,19)/ - + 0.56509 ,0.21132 ,0.43887 ,0.01680 ,0.00043 ,0.00004 ,0.00859 - +,0.53288 ,0.19599 ,0.37038 ,0.01564 ,0.00112 ,0.00003 ,0.00844 - +,0.50493 ,0.18314 ,0.31747 ,0.01464 ,0.00156 ,0.00002 ,0.00816 - +,0.48041 ,0.17217 ,0.27563 ,0.01374 ,0.00188 ,0.00011 ,0.00783 - +,0.45883 ,0.16239 ,0.24224 ,0.01293 ,0.00207 ,0.00006 ,0.00753 - +,0.43948 ,0.15386 ,0.21487 ,0.01221 ,0.00216 ,0.00019 ,0.00722 - +,0.42178 ,0.14637 ,0.19192 ,0.01152 ,0.00225 ,0.00043 ,0.00699 - +,0.40565 ,0.13960 ,0.17299 ,0.01093 ,0.00231 ,0.00065 ,0.00670 - +,0.39091 ,0.13345 ,0.15662 ,0.01042 ,0.00232 ,0.00079 ,0.00637 - +,0.37725 ,0.12781 ,0.14279 ,0.00995 ,0.00230 ,0.00085 ,0.00613 - +,0.36473 ,0.12267 ,0.13078 ,0.00946 ,0.00229 ,0.00091 ,0.00590 - +,0.35314 ,0.11798 ,0.12031 ,0.00900 ,0.00229 ,0.00098 ,0.00567 - +,0.34230 ,0.11368 ,0.11112 ,0.00860 ,0.00228 ,0.00106 ,0.00546 - +,0.33212 ,0.10970 ,0.10320 ,0.00825 ,0.00227 ,0.00107 ,0.00530 - +,0.32258 ,0.10602 ,0.09614 ,0.00793 ,0.00225 ,0.00107 ,0.00514 - +,0.31350 ,0.10258 ,0.08973 ,0.00762 ,0.00221 ,0.00109 ,0.00496 - +,0.30503 ,0.09931 ,0.08404 ,0.00734 ,0.00217 ,0.00110 ,0.00481 - +,0.29710 ,0.09621 ,0.07896 ,0.00708 ,0.00212 ,0.00110 ,0.00469 - +,0.28971 ,0.09333 ,0.07438 ,0.00680 ,0.00210 ,0.00112 ,0.00453/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),K=1,19)/ - + 0.53599 ,0.19001 ,0.36308 ,0.01227 ,0.00019 ,-0.00010 ,0.00614 - +,0.50198 ,0.17522 ,0.30214 ,0.01140 ,0.00069 ,-0.00003 ,0.00598 - +,0.47297 ,0.16271 ,0.25599 ,0.01059 ,0.00107 ,-0.00005 ,0.00577 - +,0.44780 ,0.15212 ,0.22012 ,0.00988 ,0.00133 ,-0.00008 ,0.00553 - +,0.42563 ,0.14289 ,0.19174 ,0.00921 ,0.00144 ,-0.00004 ,0.00541 - +,0.40582 ,0.13488 ,0.16870 ,0.00867 ,0.00158 ,0.00004 ,0.00513 - +,0.38779 ,0.12785 ,0.14980 ,0.00823 ,0.00159 ,0.00023 ,0.00491 - +,0.37181 ,0.12139 ,0.13409 ,0.00777 ,0.00163 ,0.00039 ,0.00465 - +,0.35708 ,0.11575 ,0.12072 ,0.00734 ,0.00162 ,0.00043 ,0.00443 - +,0.34344 ,0.11055 ,0.10955 ,0.00697 ,0.00162 ,0.00055 ,0.00430 - +,0.33094 ,0.10576 ,0.09990 ,0.00664 ,0.00165 ,0.00058 ,0.00414 - +,0.31945 ,0.10138 ,0.09151 ,0.00633 ,0.00165 ,0.00059 ,0.00397 - +,0.30887 ,0.09737 ,0.08419 ,0.00603 ,0.00157 ,0.00062 ,0.00379 - +,0.29894 ,0.09369 ,0.07783 ,0.00573 ,0.00158 ,0.00064 ,0.00368 - +,0.28969 ,0.09029 ,0.07222 ,0.00548 ,0.00157 ,0.00068 ,0.00357 - +,0.28097 ,0.08712 ,0.06723 ,0.00530 ,0.00149 ,0.00074 ,0.00342 - +,0.27284 ,0.08419 ,0.06279 ,0.00508 ,0.00147 ,0.00076 ,0.00331 - +,0.26525 ,0.08148 ,0.05882 ,0.00483 ,0.00147 ,0.00074 ,0.00321 - +,0.25793 ,0.07891 ,0.05527 ,0.00467 ,0.00143 ,0.00073 ,0.00308/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),K=1,19)/ - + 0.50281 ,0.16839 ,0.29770 ,0.00861 ,0.00027 ,0.00012 ,0.00453 - +,0.46791 ,0.15426 ,0.24448 ,0.00799 ,0.00061 ,0.00019 ,0.00436 - +,0.43830 ,0.14249 ,0.20482 ,0.00737 ,0.00091 ,0.00013 ,0.00422 - +,0.41277 ,0.13261 ,0.17444 ,0.00685 ,0.00100 ,0.00012 ,0.00410 - +,0.39083 ,0.12400 ,0.15050 ,0.00636 ,0.00112 ,0.00013 ,0.00381 - +,0.37090 ,0.11660 ,0.13154 ,0.00601 ,0.00121 ,0.00019 ,0.00361 - +,0.35311 ,0.11008 ,0.11607 ,0.00565 ,0.00119 ,0.00034 ,0.00350 - +,0.33704 ,0.10428 ,0.10328 ,0.00533 ,0.00127 ,0.00034 ,0.00329 - +,0.32271 ,0.09904 ,0.09247 ,0.00504 ,0.00125 ,0.00042 ,0.00315 - +,0.30922 ,0.09434 ,0.08337 ,0.00478 ,0.00121 ,0.00042 ,0.00302 - +,0.29711 ,0.09002 ,0.07573 ,0.00453 ,0.00120 ,0.00041 ,0.00287 - +,0.28599 ,0.08606 ,0.06914 ,0.00430 ,0.00119 ,0.00044 ,0.00274 - +,0.27561 ,0.08243 ,0.06334 ,0.00410 ,0.00115 ,0.00051 ,0.00264 - +,0.26603 ,0.07914 ,0.05830 ,0.00392 ,0.00115 ,0.00051 ,0.00256 - +,0.25716 ,0.07610 ,0.05388 ,0.00376 ,0.00112 ,0.00050 ,0.00246 - +,0.24884 ,0.07327 ,0.04998 ,0.00361 ,0.00105 ,0.00049 ,0.00233 - +,0.24098 ,0.07062 ,0.04655 ,0.00349 ,0.00102 ,0.00050 ,0.00222 - +,0.23356 ,0.06815 ,0.04351 ,0.00339 ,0.00101 ,0.00052 ,0.00214 - +,0.22674 ,0.06588 ,0.04075 ,0.00324 ,0.00098 ,0.00052 ,0.00207/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),K=1,19)/ - + 0.46651 ,0.14828 ,0.24279 ,0.00611 ,0.00011 ,-0.00002 ,0.00309 - +,0.43139 ,0.13494 ,0.19692 ,0.00565 ,0.00042 ,-0.00006 ,0.00294 - +,0.40181 ,0.12397 ,0.16310 ,0.00520 ,0.00060 ,-0.00004 ,0.00287 - +,0.37674 ,0.11465 ,0.13762 ,0.00476 ,0.00072 ,-0.00002 ,0.00280 - +,0.35456 ,0.10688 ,0.11783 ,0.00449 ,0.00075 ,-0.00001 ,0.00266 - +,0.33514 ,0.10011 ,0.10217 ,0.00420 ,0.00085 ,0.00009 ,0.00255 - +,0.31798 ,0.09409 ,0.08951 ,0.00397 ,0.00081 ,0.00015 ,0.00234 - +,0.30251 ,0.08874 ,0.07912 ,0.00373 ,0.00087 ,0.00020 ,0.00228 - +,0.28874 ,0.08398 ,0.07050 ,0.00345 ,0.00083 ,0.00025 ,0.00212 - +,0.27592 ,0.07975 ,0.06325 ,0.00328 ,0.00081 ,0.00031 ,0.00202 - +,0.26437 ,0.07591 ,0.05717 ,0.00308 ,0.00081 ,0.00029 ,0.00194 - +,0.25375 ,0.07243 ,0.05196 ,0.00292 ,0.00080 ,0.00028 ,0.00186 - +,0.24385 ,0.06926 ,0.04741 ,0.00282 ,0.00075 ,0.00031 ,0.00174 - +,0.23477 ,0.06629 ,0.04352 ,0.00267 ,0.00075 ,0.00033 ,0.00168 - +,0.22633 ,0.06355 ,0.04011 ,0.00254 ,0.00074 ,0.00033 ,0.00162 - +,0.21832 ,0.06103 ,0.03709 ,0.00246 ,0.00069 ,0.00032 ,0.00154 - +,0.21107 ,0.05872 ,0.03443 ,0.00236 ,0.00067 ,0.00032 ,0.00147 - +,0.20445 ,0.05660 ,0.03206 ,0.00225 ,0.00068 ,0.00034 ,0.00140 - +,0.19804 ,0.05458 ,0.02997 ,0.00215 ,0.00066 ,0.00033 ,0.00135/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),K=1,19)/ - + 0.42830 ,0.12862 ,0.19602 ,0.00412 ,0.00016 ,0.00002 ,0.00222 - +,0.39354 ,0.11649 ,0.15706 ,0.00378 ,0.00034 ,0.00007 ,0.00215 - +,0.36446 ,0.10640 ,0.12870 ,0.00351 ,0.00049 ,0.00006 ,0.00208 - +,0.33977 ,0.09806 ,0.10763 ,0.00329 ,0.00056 ,0.00006 ,0.00191 - +,0.31854 ,0.09092 ,0.09144 ,0.00298 ,0.00063 ,-0.00001 ,0.00183 - +,0.30002 ,0.08475 ,0.07868 ,0.00280 ,0.00056 ,0.00002 ,0.00170 - +,0.28333 ,0.07951 ,0.06850 ,0.00267 ,0.00059 ,0.00007 ,0.00159 - +,0.26852 ,0.07471 ,0.06019 ,0.00253 ,0.00060 ,0.00018 ,0.00151 - +,0.25520 ,0.07053 ,0.05334 ,0.00236 ,0.00058 ,0.00020 ,0.00145 - +,0.24315 ,0.06674 ,0.04762 ,0.00223 ,0.00061 ,0.00020 ,0.00133 - +,0.23237 ,0.06330 ,0.04282 ,0.00208 ,0.00058 ,0.00020 ,0.00126 - +,0.22250 ,0.06018 ,0.03873 ,0.00195 ,0.00054 ,0.00022 ,0.00122 - +,0.21332 ,0.05736 ,0.03523 ,0.00187 ,0.00049 ,0.00025 ,0.00120 - +,0.20479 ,0.05482 ,0.03222 ,0.00178 ,0.00052 ,0.00024 ,0.00116 - +,0.19694 ,0.05247 ,0.02960 ,0.00171 ,0.00053 ,0.00024 ,0.00112 - +,0.18966 ,0.05025 ,0.02732 ,0.00167 ,0.00051 ,0.00025 ,0.00107 - +,0.18281 ,0.04826 ,0.02529 ,0.00161 ,0.00048 ,0.00024 ,0.00101 - +,0.17638 ,0.04645 ,0.02349 ,0.00155 ,0.00046 ,0.00021 ,0.00096 - +,0.17064 ,0.04470 ,0.02190 ,0.00144 ,0.00047 ,0.00023 ,0.00093/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),K=1,19)/ - + 0.38899 ,0.11068 ,0.15710 ,0.00278 ,0.00012 ,0.00003 ,0.00148 - +,0.35524 ,0.09959 ,0.12436 ,0.00257 ,0.00026 ,0.00003 ,0.00142 - +,0.32728 ,0.09049 ,0.10097 ,0.00238 ,0.00032 ,0.00003 ,0.00132 - +,0.30349 ,0.08296 ,0.08359 ,0.00226 ,0.00038 ,0.00004 ,0.00121 - +,0.28309 ,0.07672 ,0.07050 ,0.00210 ,0.00034 ,0.00003 ,0.00117 - +,0.26550 ,0.07121 ,0.06023 ,0.00197 ,0.00037 ,0.00004 ,0.00110 - +,0.24996 ,0.06648 ,0.05206 ,0.00184 ,0.00038 ,0.00006 ,0.00102 - +,0.23604 ,0.06231 ,0.04551 ,0.00173 ,0.00040 ,0.00007 ,0.00098 - +,0.22383 ,0.05860 ,0.04012 ,0.00156 ,0.00040 ,0.00012 ,0.00098 - +,0.21241 ,0.05531 ,0.03563 ,0.00157 ,0.00038 ,0.00014 ,0.00090 - +,0.20248 ,0.05232 ,0.03190 ,0.00143 ,0.00037 ,0.00014 ,0.00086 - +,0.19339 ,0.04962 ,0.02876 ,0.00131 ,0.00036 ,0.00012 ,0.00082 - +,0.18483 ,0.04721 ,0.02608 ,0.00126 ,0.00036 ,0.00012 ,0.00078 - +,0.17695 ,0.04497 ,0.02376 ,0.00120 ,0.00033 ,0.00010 ,0.00074 - +,0.16979 ,0.04293 ,0.02175 ,0.00113 ,0.00031 ,0.00009 ,0.00069 - +,0.16330 ,0.04108 ,0.02002 ,0.00103 ,0.00033 ,0.00009 ,0.00064 - +,0.15711 ,0.03935 ,0.01849 ,0.00100 ,0.00031 ,0.00010 ,0.00060 - +,0.15124 ,0.03775 ,0.01715 ,0.00102 ,0.00028 ,0.00010 ,0.00057 - +,0.14596 ,0.03625 ,0.01595 ,0.00097 ,0.00026 ,0.00010 ,0.00055/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),K=1,19)/ - + 0.34945 ,0.09404 ,0.12470 ,0.00185 ,0.00011 ,0.00004 ,0.00102 - +,0.31690 ,0.08400 ,0.09733 ,0.00174 ,0.00013 ,0.00001 ,0.00093 - +,0.29020 ,0.07595 ,0.07813 ,0.00159 ,0.00019 ,0.00000 ,0.00087 - +,0.26765 ,0.06933 ,0.06402 ,0.00146 ,0.00031 ,-0.00001 ,0.00083 - +,0.24891 ,0.06370 ,0.05355 ,0.00133 ,0.00026 ,-0.00002 ,0.00077 - +,0.23250 ,0.05895 ,0.04542 ,0.00121 ,0.00030 ,0.00002 ,0.00075 - +,0.21805 ,0.05480 ,0.03899 ,0.00111 ,0.00031 ,0.00005 ,0.00070 - +,0.20509 ,0.05113 ,0.03386 ,0.00109 ,0.00030 ,0.00010 ,0.00067 - +,0.19370 ,0.04798 ,0.02969 ,0.00098 ,0.00030 ,0.00008 ,0.00062 - +,0.18322 ,0.04513 ,0.02623 ,0.00095 ,0.00028 ,0.00008 ,0.00057 - +,0.17403 ,0.04255 ,0.02338 ,0.00089 ,0.00028 ,0.00011 ,0.00057 - +,0.16569 ,0.04024 ,0.02100 ,0.00083 ,0.00027 ,0.00012 ,0.00055 - +,0.15797 ,0.03817 ,0.01896 ,0.00078 ,0.00024 ,0.00007 ,0.00052 - +,0.15093 ,0.03626 ,0.01721 ,0.00073 ,0.00023 ,0.00007 ,0.00048 - +,0.14451 ,0.03453 ,0.01570 ,0.00068 ,0.00023 ,0.00008 ,0.00045 - +,0.13864 ,0.03294 ,0.01441 ,0.00063 ,0.00023 ,0.00010 ,0.00047 - +,0.13320 ,0.03149 ,0.01328 ,0.00058 ,0.00024 ,0.00011 ,0.00046 - +,0.12817 ,0.03015 ,0.01229 ,0.00052 ,0.00024 ,0.00010 ,0.00043 - +,0.12335 ,0.02891 ,0.01141 ,0.00052 ,0.00024 ,0.00011 ,0.00042/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),K=1,19)/ - + 0.31051 ,0.07903 ,0.09809 ,0.00123 ,0.00002 ,-0.00003 ,0.00063 - +,0.27990 ,0.07018 ,0.07567 ,0.00117 ,0.00005 ,-0.00001 ,0.00061 - +,0.25483 ,0.06316 ,0.06005 ,0.00106 ,0.00013 ,-0.00007 ,0.00058 - +,0.23433 ,0.05729 ,0.04880 ,0.00093 ,0.00013 ,0.00001 ,0.00053 - +,0.21651 ,0.05247 ,0.04045 ,0.00091 ,0.00020 ,0.00003 ,0.00056 - +,0.20124 ,0.04836 ,0.03408 ,0.00085 ,0.00020 ,-0.00001 ,0.00048 - +,0.18806 ,0.04482 ,0.02909 ,0.00076 ,0.00014 ,0.00001 ,0.00043 - +,0.17605 ,0.04169 ,0.02511 ,0.00077 ,0.00015 ,0.00000 ,0.00039 - +,0.16597 ,0.03893 ,0.02192 ,0.00065 ,0.00012 ,0.00001 ,0.00036 - +,0.15666 ,0.03649 ,0.01930 ,0.00064 ,0.00017 ,0.00005 ,0.00039 - +,0.14839 ,0.03433 ,0.01713 ,0.00058 ,0.00016 ,0.00005 ,0.00036 - +,0.14084 ,0.03240 ,0.01531 ,0.00054 ,0.00016 ,0.00005 ,0.00033 - +,0.13385 ,0.03064 ,0.01377 ,0.00053 ,0.00019 ,0.00007 ,0.00034 - +,0.12757 ,0.02905 ,0.01247 ,0.00050 ,0.00018 ,0.00006 ,0.00031 - +,0.12183 ,0.02760 ,0.01136 ,0.00047 ,0.00016 ,0.00006 ,0.00029 - +,0.11651 ,0.02627 ,0.01038 ,0.00047 ,0.00015 ,0.00009 ,0.00030 - +,0.11166 ,0.02504 ,0.00953 ,0.00044 ,0.00015 ,0.00008 ,0.00030 - +,0.10721 ,0.02392 ,0.00879 ,0.00038 ,0.00015 ,0.00006 ,0.00028 - +,0.10303 ,0.02289 ,0.00815 ,0.00035 ,0.00015 ,0.00006 ,0.00027/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),K=1,19)/ - + 0.27231 ,0.06550 ,0.07610 ,0.00082 ,-0.00002 ,-0.00005 ,0.00037 - +,0.24403 ,0.05780 ,0.05797 ,0.00075 ,0.00006 ,-0.00001 ,0.00035 - +,0.22099 ,0.05174 ,0.04557 ,0.00067 ,0.00005 ,-0.00005 ,0.00035 - +,0.20209 ,0.04678 ,0.03668 ,0.00061 ,0.00007 ,-0.00003 ,0.00031 - +,0.18593 ,0.04265 ,0.03021 ,0.00057 ,0.00008 ,-0.00003 ,0.00030 - +,0.17204 ,0.03914 ,0.02522 ,0.00056 ,0.00010 ,-0.00002 ,0.00025 - +,0.16013 ,0.03610 ,0.02139 ,0.00052 ,0.00012 ,0.00000 ,0.00026 - +,0.14992 ,0.03346 ,0.01837 ,0.00043 ,0.00011 ,0.00000 ,0.00025 - +,0.14055 ,0.03116 ,0.01596 ,0.00042 ,0.00010 ,-0.00001 ,0.00025 - +,0.13230 ,0.02911 ,0.01397 ,0.00037 ,0.00009 ,-0.00001 ,0.00022 - +,0.12484 ,0.02732 ,0.01235 ,0.00035 ,0.00009 ,0.00001 ,0.00021 - +,0.11815 ,0.02571 ,0.01100 ,0.00033 ,0.00010 ,0.00002 ,0.00020 - +,0.11215 ,0.02426 ,0.00986 ,0.00030 ,0.00008 ,0.00001 ,0.00020 - +,0.10665 ,0.02293 ,0.00890 ,0.00027 ,0.00010 ,0.00001 ,0.00020 - +,0.10160 ,0.02172 ,0.00808 ,0.00025 ,0.00011 ,0.00002 ,0.00020 - +,0.09687 ,0.02065 ,0.00736 ,0.00026 ,0.00011 ,0.00004 ,0.00019 - +,0.09260 ,0.01965 ,0.00675 ,0.00025 ,0.00011 ,0.00004 ,0.00018 - +,0.08872 ,0.01872 ,0.00621 ,0.00023 ,0.00010 ,0.00002 ,0.00016 - +,0.08507 ,0.01787 ,0.00574 ,0.00022 ,0.00009 ,0.00003 ,0.00015/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),K=1,19)/ - + 0.23626 ,0.05359 ,0.05834 ,0.00053 ,-0.00008 ,-0.00006 ,0.00015 - +,0.21017 ,0.04700 ,0.04390 ,0.00049 ,-0.00003 ,-0.00004 ,0.00017 - +,0.18916 ,0.04183 ,0.03410 ,0.00043 ,-0.00001 ,-0.00009 ,0.00019 - +,0.17202 ,0.03760 ,0.02719 ,0.00039 ,0.00004 ,-0.00007 ,0.00018 - +,0.15759 ,0.03409 ,0.02214 ,0.00042 ,0.00011 ,0.00000 ,0.00022 - +,0.14558 ,0.03116 ,0.01838 ,0.00029 ,0.00010 ,-0.00004 ,0.00020 - +,0.13491 ,0.02864 ,0.01549 ,0.00028 ,0.00009 ,-0.00001 ,0.00019 - +,0.12544 ,0.02647 ,0.01321 ,0.00031 ,0.00012 ,0.00002 ,0.00018 - +,0.11727 ,0.02456 ,0.01141 ,0.00027 ,0.00011 ,0.00001 ,0.00021 - +,0.11003 ,0.02286 ,0.00994 ,0.00023 ,0.00008 ,-0.00001 ,0.00018 - +,0.10356 ,0.02138 ,0.00875 ,0.00020 ,0.00008 ,0.00000 ,0.00016 - +,0.09778 ,0.02005 ,0.00776 ,0.00018 ,0.00008 ,0.00001 ,0.00015 - +,0.09260 ,0.01886 ,0.00693 ,0.00016 ,0.00008 ,0.00002 ,0.00014 - +,0.08774 ,0.01778 ,0.00624 ,0.00015 ,0.00007 ,0.00002 ,0.00013 - +,0.08333 ,0.01682 ,0.00565 ,0.00015 ,0.00008 ,0.00003 ,0.00012 - +,0.07934 ,0.01594 ,0.00513 ,0.00014 ,0.00009 ,0.00003 ,0.00012 - +,0.07566 ,0.01513 ,0.00469 ,0.00014 ,0.00009 ,0.00003 ,0.00012 - +,0.07228 ,0.01439 ,0.00431 ,0.00014 ,0.00008 ,0.00003 ,0.00011 - +,0.06914 ,0.01370 ,0.00398 ,0.00013 ,0.00008 ,0.00004 ,0.00011/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),K=1,19)/ - + 0.20211 ,0.04314 ,0.04410 ,0.00031 ,-0.00004 ,-0.00005 ,0.00009 - +,0.17834 ,0.03761 ,0.03269 ,0.00035 ,-0.00001 ,-0.00005 ,0.00010 - +,0.15974 ,0.03321 ,0.02509 ,0.00029 ,0.00003 ,-0.00006 ,0.00011 - +,0.14445 ,0.02968 ,0.01980 ,0.00025 ,0.00002 ,-0.00008 ,0.00011 - +,0.13183 ,0.02684 ,0.01598 ,0.00020 ,0.00006 ,-0.00001 ,0.00013 - +,0.12104 ,0.02440 ,0.01316 ,0.00020 ,0.00008 ,-0.00001 ,0.00012 - +,0.11167 ,0.02232 ,0.01102 ,0.00021 ,0.00010 ,0.00002 ,0.00014 - +,0.10361 ,0.02054 ,0.00934 ,0.00017 ,0.00007 ,0.00003 ,0.00012 - +,0.09655 ,0.01898 ,0.00801 ,0.00012 ,0.00006 ,0.00000 ,0.00010 - +,0.09022 ,0.01763 ,0.00697 ,0.00013 ,0.00007 ,0.00001 ,0.00011 - +,0.08465 ,0.01643 ,0.00611 ,0.00012 ,0.00009 ,0.00003 ,0.00012 - +,0.07963 ,0.01537 ,0.00540 ,0.00011 ,0.00009 ,0.00004 ,0.00012 - +,0.07506 ,0.01441 ,0.00480 ,0.00011 ,0.00007 ,0.00002 ,0.00011 - +,0.07104 ,0.01355 ,0.00431 ,0.00009 ,0.00006 ,0.00003 ,0.00010 - +,0.06738 ,0.01277 ,0.00388 ,0.00007 ,0.00006 ,0.00004 ,0.00009 - +,0.06394 ,0.01208 ,0.00352 ,0.00007 ,0.00007 ,0.00004 ,0.00009 - +,0.06082 ,0.01144 ,0.00321 ,0.00006 ,0.00006 ,0.00004 ,0.00009 - +,0.05797 ,0.01085 ,0.00295 ,0.00006 ,0.00006 ,0.00003 ,0.00008 - +,0.05532 ,0.01032 ,0.00271 ,0.00006 ,0.00006 ,0.00002 ,0.00007/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),K=1,19)/ - + 0.17057 ,0.03434 ,0.03287 ,0.00023 ,-0.00006 ,-0.00012 ,0.00000 - +,0.14978 ,0.02973 ,0.02408 ,0.00020 ,-0.00001 ,-0.00007 ,0.00004 - +,0.13336 ,0.02610 ,0.01826 ,0.00019 ,0.00000 ,-0.00005 ,0.00006 - +,0.11991 ,0.02323 ,0.01429 ,0.00016 ,-0.00001 ,-0.00006 ,0.00005 - +,0.10893 ,0.02086 ,0.01146 ,0.00011 ,0.00003 ,-0.00004 ,0.00006 - +,0.09949 ,0.01889 ,0.00937 ,0.00011 ,0.00001 ,-0.00005 ,0.00006 - +,0.09148 ,0.01723 ,0.00779 ,0.00010 ,0.00001 ,-0.00004 ,0.00005 - +,0.08452 ,0.01579 ,0.00658 ,0.00011 ,0.00003 ,-0.00002 ,0.00005 - +,0.07842 ,0.01457 ,0.00563 ,0.00011 ,0.00003 ,-0.00002 ,0.00004 - +,0.07314 ,0.01348 ,0.00486 ,0.00008 ,0.00005 ,0.00000 ,0.00007 - +,0.06838 ,0.01252 ,0.00424 ,0.00007 ,0.00004 ,0.00001 ,0.00006 - +,0.06412 ,0.01167 ,0.00373 ,0.00006 ,0.00004 ,0.00001 ,0.00005 - +,0.06028 ,0.01093 ,0.00331 ,0.00007 ,0.00004 ,0.00001 ,0.00005 - +,0.05686 ,0.01024 ,0.00296 ,0.00007 ,0.00003 ,0.00001 ,0.00005 - +,0.05377 ,0.00963 ,0.00267 ,0.00006 ,0.00003 ,0.00001 ,0.00006 - +,0.05096 ,0.00908 ,0.00241 ,0.00006 ,0.00004 ,0.00002 ,0.00005 - +,0.04837 ,0.00858 ,0.00220 ,0.00005 ,0.00004 ,0.00001 ,0.00004 - +,0.04599 ,0.00813 ,0.00201 ,0.00004 ,0.00003 ,0.00000 ,0.00003 - +,0.04380 ,0.00771 ,0.00184 ,0.00004 ,0.00002 ,0.00000 ,0.00003/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),K=1,19)/ - + 0.14149 ,0.02665 ,0.02396 ,0.00011 ,0.00000 ,-0.00002 ,0.00003 - +,0.12338 ,0.02294 ,0.01735 ,0.00013 ,0.00001 ,-0.00001 ,0.00003 - +,0.10925 ,0.02007 ,0.01306 ,0.00011 ,0.00000 ,-0.00002 ,0.00003 - +,0.09790 ,0.01778 ,0.01014 ,0.00005 ,-0.00002 ,-0.00003 ,0.00001 - +,0.08828 ,0.01589 ,0.00806 ,0.00011 ,0.00000 ,-0.00001 ,0.00004 - +,0.08034 ,0.01434 ,0.00655 ,0.00010 ,0.00000 ,-0.00002 ,0.00002 - +,0.07354 ,0.01305 ,0.00542 ,0.00010 ,0.00000 ,-0.00001 ,0.00001 - +,0.06771 ,0.01191 ,0.00455 ,0.00010 ,0.00001 ,-0.00001 ,0.00002 - +,0.06275 ,0.01095 ,0.00387 ,0.00007 ,0.00001 ,0.00001 ,0.00003 - +,0.05825 ,0.01011 ,0.00333 ,0.00007 ,0.00001 ,0.00001 ,0.00002 - +,0.05429 ,0.00937 ,0.00290 ,0.00006 ,0.00001 ,0.00001 ,0.00003 - +,0.05078 ,0.00871 ,0.00254 ,0.00005 ,0.00001 ,0.00000 ,0.00003 - +,0.04766 ,0.00813 ,0.00225 ,0.00004 ,0.00000 ,0.00000 ,0.00001 - +,0.04480 ,0.00761 ,0.00200 ,0.00004 ,0.00001 ,0.00000 ,0.00001 - +,0.04223 ,0.00714 ,0.00180 ,0.00005 ,0.00001 ,0.00000 ,0.00002 - +,0.03991 ,0.00671 ,0.00162 ,0.00004 ,0.00001 ,0.00000 ,0.00002 - +,0.03780 ,0.00633 ,0.00147 ,0.00005 ,0.00001 ,0.00000 ,0.00002 - +,0.03586 ,0.00599 ,0.00134 ,0.00005 ,0.00001 ,0.00000 ,0.00002 - +,0.03409 ,0.00567 ,0.00123 ,0.00004 ,0.00001 ,0.00000 ,0.00002/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),K=1,19)/ - + 0.09234 ,0.01518 ,0.01197 ,0.00001 ,-0.00002 ,-0.00002 ,0.00000 - +,0.07935 ,0.01288 ,0.00842 ,0.00003 ,0.00000 ,-0.00002 ,0.00000 - +,0.06932 ,0.01110 ,0.00618 ,0.00004 ,0.00000 ,-0.00001 ,0.00002 - +,0.06130 ,0.00973 ,0.00469 ,0.00003 ,-0.00001 ,-0.00001 ,0.00000 - +,0.05485 ,0.00860 ,0.00367 ,0.00002 ,0.00001 ,0.00000 ,0.00002 - +,0.04951 ,0.00768 ,0.00293 ,0.00000 ,0.00002 ,-0.00001 ,0.00001 - +,0.04492 ,0.00692 ,0.00239 ,0.00000 ,0.00000 ,-0.00001 ,0.00001 - +,0.04094 ,0.00628 ,0.00198 ,0.00001 ,0.00001 ,-0.00001 ,0.00001 - +,0.03754 ,0.00572 ,0.00167 ,0.00002 ,0.00001 ,0.00000 ,0.00002 - +,0.03464 ,0.00524 ,0.00142 ,0.00001 ,0.00001 ,0.00000 ,0.00002 - +,0.03205 ,0.00482 ,0.00122 ,0.00001 ,0.00001 ,0.00000 ,0.00002 - +,0.02975 ,0.00446 ,0.00107 ,0.00002 ,0.00001 ,0.00000 ,0.00002 - +,0.02774 ,0.00413 ,0.00094 ,0.00002 ,0.00001 ,0.00000 ,0.00001 - +,0.02593 ,0.00384 ,0.00083 ,0.00001 ,0.00000 ,0.00000 ,0.00001 - +,0.02432 ,0.00358 ,0.00074 ,0.00000 ,0.00000 ,0.00000 ,0.00001 - +,0.02286 ,0.00335 ,0.00066 ,0.00001 ,0.00000 ,0.00000 ,0.00001 - +,0.02154 ,0.00314 ,0.00060 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02034 ,0.00296 ,0.00054 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.01924 ,0.00279 ,0.00050 ,0.00001 ,0.00001 ,0.00000 ,0.00001/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),K=1,19)/ - + 0.05534 ,0.00785 ,0.00541 ,0.00003 ,-0.00001 ,0.00000 ,0.00000 - +,0.04682 ,0.00655 ,0.00369 ,0.00001 ,-0.00001 ,-0.00002 ,-0.00001 - +,0.04035 ,0.00557 ,0.00264 ,0.00001 ,0.00000 ,-0.00001 ,0.00000 - +,0.03525 ,0.00482 ,0.00196 ,0.00002 ,0.00001 ,0.00000 ,0.00001 - +,0.03115 ,0.00421 ,0.00150 ,0.00001 ,0.00001 ,0.00000 ,0.00000 - +,0.02778 ,0.00373 ,0.00118 ,0.00000 ,0.00000 ,-0.00001 ,0.00000 - +,0.02496 ,0.00332 ,0.00095 ,0.00001 ,0.00001 ,0.00000 ,0.00000 - +,0.02260 ,0.00298 ,0.00078 ,0.00000 ,0.00001 ,0.00000 ,0.00000 - +,0.02054 ,0.00270 ,0.00065 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01880 ,0.00245 ,0.00054 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01726 ,0.00224 ,0.00047 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01591 ,0.00205 ,0.00040 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01474 ,0.00189 ,0.00035 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01369 ,0.00175 ,0.00031 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01276 ,0.00162 ,0.00027 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01191 ,0.00151 ,0.00024 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01116 ,0.00141 ,0.00022 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01048 ,0.00132 ,0.00020 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00986 ,0.00123 ,0.00018 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),K=1,19)/ - + 0.02946 ,0.00352 ,0.00211 ,0.00000 ,-0.00001 ,-0.00001 ,-0.00001 - +,0.02451 ,0.00289 ,0.00139 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.02080 ,0.00242 ,0.00097 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01793 ,0.00207 ,0.00070 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01565 ,0.00179 ,0.00053 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01378 ,0.00156 ,0.00041 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01226 ,0.00138 ,0.00032 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01099 ,0.00123 ,0.00026 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00989 ,0.00110 ,0.00021 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00897 ,0.00099 ,0.00018 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00817 ,0.00090 ,0.00015 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00747 ,0.00082 ,0.00013 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00686 ,0.00075 ,0.00011 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00633 ,0.00068 ,0.00010 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00586 ,0.00063 ,0.00009 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00544 ,0.00058 ,0.00008 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00507 ,0.00054 ,0.00007 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00473 ,0.00050 ,0.00006 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00442 ,0.00047 ,0.00006 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),K=1,19)/ - + 0.01332 ,0.00130 ,0.00067 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01085 ,0.00105 ,0.00042 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00904 ,0.00086 ,0.00028 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00764 ,0.00072 ,0.00020 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00658 ,0.00062 ,0.00015 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00572 ,0.00053 ,0.00011 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00502 ,0.00046 ,0.00009 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00444 ,0.00041 ,0.00007 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00395 ,0.00036 ,0.00006 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00355 ,0.00032 ,0.00005 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00320 ,0.00029 ,0.00004 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00290 ,0.00026 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00264 ,0.00024 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00242 ,0.00021 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00222 ,0.00020 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00204 ,0.00018 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00188 ,0.00017 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00175 ,0.00015 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00162 ,0.00014 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),K=1,19)/ - + 0.00101 ,0.00005 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00077 ,0.00004 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00061 ,0.00003 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00050 ,0.00003 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00041 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00034 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00029 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00025 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00021 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00019 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00016 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00014 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00013 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00011 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00010 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00009 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00008 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00007 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00007 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,4,5,0,0,5/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C -C - XSAVE=X -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,nx-1 - DO 20 M=1,19 -C READ(74,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M) -C 1=UV 2=DV 3=GLUE 4=(UBAR+DBAR)/2 5=CBAR 7=BBAR 6=SBAR - DO 25 I=1,7 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=1,6 - DO 30 K=1,19 - 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) - 50 FORMAT(7F10.5) - DO 40 I=1,7 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,7 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) -C... THIS SEA IS (UBAR+DBAR)/2 - SEA=G(4) - STR=G(6) - CHM=G(5) - GL =G(3) - BOT=G(7) -C - X=XSAVE -C - RETURN - END diff --git a/PDF/spdf/strkbm.F b/PDF/spdf/strkbm.F deleted file mode 100644 index 2a9d72f3cc9..00000000000 --- a/PDF/spdf/strkbm.F +++ /dev/null @@ -1,1014 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:42 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:03 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE STRKBM(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) - -C :::::::::::: KMRS (B-) sea=ubar=dbar=2sbar at Q0**2 - -#include "pdf/impdp.inc" - PARAMETER(NX=47) - PARAMETER(NTENTH=21) - DIMENSION F(7,NX,19),G(7),XX(NX),N0(7) - DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),K=1,19)/ - + 0.01543 ,0.00139 ,87.59851 ,1.08955 ,0.21425 ,0.00000 ,0.66602 - +,0.01576 ,0.00155 ,98.87466 ,1.81097 ,0.96710 ,0.00000 ,1.40331 - +,0.01606 ,0.00170,111.86394 ,2.51665 ,1.69963 ,0.00001 ,2.12252 - +,0.01634 ,0.00185,126.20959 ,3.23125 ,2.43758 ,0.00001 ,2.84889 - +,0.01661 ,0.00199,141.86433 ,3.93764 ,3.16454 ,0.04299 ,3.56563 - +,0.01687 ,0.00213,158.55537 ,4.65288 ,3.89816 ,0.50355 ,4.29012 - +,0.01712 ,0.00226,176.18196 ,5.38056 ,4.64245 ,1.36971 ,5.02614 - +,0.01735 ,0.00238,194.63626 ,6.12173 ,5.39877 ,2.17380 ,5.77490 - +,0.01758 ,0.00251,213.81973 ,6.87607 ,6.16700 ,2.99716 ,6.53621 - +,0.01780 ,0.00263,233.63725 ,7.63687 ,6.94060 ,3.82007 ,7.30341 - +,0.01802 ,0.00275,253.97437 ,8.41047 ,7.72604 ,4.65166 ,8.08292 - +,0.01823 ,0.00286,274.76807 ,9.19701 ,8.52360 ,5.49243 ,8.87496 - +,0.01843 ,0.00297,295.96973 ,9.99431 ,9.33116 ,6.34054 ,9.67738 - +,0.01863 ,0.00308,317.46948,10.79469,10.14115 ,7.18879,10.48254 - +,0.01882 ,0.00319,339.29077,11.60845,10.96396 ,8.04767,11.30082 - +,0.01901 ,0.00330,361.33130,12.42723,11.79123 ,8.90914,12.12382 - +,0.01920 ,0.00340,383.55469,13.25301,12.62503 ,9.77540,12.95358 - +,0.01938 ,0.00350,405.97192,14.08668,13.46626,10.64751,13.79099 - +,0.01956 ,0.00360,428.45654,14.92266,14.30943,11.52012,14.63053/ - DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),K=1,19)/ - + 0.01901 ,0.00212 ,62.16447 ,0.86132 ,0.15844 ,0.00000 ,0.51769 - +,0.01947 ,0.00237 ,70.73839 ,1.38684 ,0.70622 ,0.00000 ,1.05445 - +,0.01990 ,0.00259 ,80.41113 ,1.89860 ,1.23700 ,0.00001 ,1.57581 - +,0.02030 ,0.00281 ,90.93207 ,2.41499 ,1.76995 ,0.00001 ,2.10055 - +,0.02067 ,0.00301,102.23933 ,2.92388 ,2.29346 ,0.03088 ,2.61680 - +,0.02103 ,0.00321,114.15709 ,3.43711 ,2.81975 ,0.36065 ,3.13661 - +,0.02137 ,0.00339,126.61516 ,3.95704 ,3.35150 ,0.97954 ,3.66249 - +,0.02169 ,0.00358,139.53725 ,4.48425 ,3.88950 ,1.55148 ,4.19512 - +,0.02200 ,0.00376,152.85641 ,5.01844 ,4.43360 ,2.13479 ,4.73429 - +,0.02231 ,0.00393,166.49042 ,5.55455 ,4.97885 ,2.71509 ,5.27499 - +,0.02260 ,0.00410,180.37961 ,6.09720 ,5.52997 ,3.29900 ,5.82189 - +,0.02288 ,0.00426,194.48578 ,6.64658 ,6.08723 ,3.88696 ,6.37522 - +,0.02316 ,0.00442,208.77400 ,7.20110 ,6.64911 ,4.47762 ,6.93342 - +,0.02343 ,0.00458,223.15285 ,7.75504 ,7.20994 ,5.06561 ,7.49081 - +,0.02369 ,0.00473,237.67119 ,8.31621 ,7.77759 ,5.65885 ,8.05521 - +,0.02394 ,0.00488,252.24101 ,8.87836 ,8.34584 ,6.25136 ,8.62041 - +,0.02419 ,0.00503,266.84863 ,9.44307 ,8.91631 ,6.84485 ,9.18800 - +,0.02443 ,0.00517,281.50879,10.01110 ,9.48980 ,7.44022 ,9.75875 - +,0.02466 ,0.00531,296.12646,10.57833,10.06220 ,8.03348,10.32855/ - DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),K=1,19)/ - + 0.02333 ,0.00325 ,44.12167 ,0.68120 ,0.11667 ,0.00000 ,0.40262 - +,0.02397 ,0.00361 ,50.61658 ,1.06317 ,0.51414 ,0.00000 ,0.79238 - +,0.02456 ,0.00394 ,57.80898 ,1.43402 ,0.89824 ,0.00001 ,1.16990 - +,0.02510 ,0.00425 ,65.52016 ,1.80700 ,1.28276 ,0.00000 ,1.54869 - +,0.02562 ,0.00455 ,73.68420 ,2.17348 ,1.65943 ,0.02217 ,1.92029 - +,0.02610 ,0.00483 ,82.18962 ,2.54160 ,2.03666 ,0.25814 ,2.29299 - +,0.02656 ,0.00511 ,90.98741 ,2.91290 ,2.41621 ,0.70005 ,2.66843 - +,0.02700 ,0.00537,100.02547 ,3.28768 ,2.79852 ,1.10655 ,3.04700 - +,0.02743 ,0.00563,109.25896 ,3.66568 ,3.18345 ,1.51944 ,3.42847 - +,0.02783 ,0.00587,118.62006 ,4.04312 ,3.56727 ,1.92824 ,3.80911 - +,0.02823 ,0.00611,128.08334 ,4.42339 ,3.95347 ,2.33779 ,4.19236 - +,0.02861 ,0.00635,137.62727 ,4.80667 ,4.34227 ,2.74844 ,4.57840 - +,0.02898 ,0.00657,147.22745 ,5.19183 ,4.73259 ,3.15925 ,4.96615 - +,0.02934 ,0.00680,156.81100 ,5.57466 ,5.12025 ,3.56623 ,5.35139 - +,0.02968 ,0.00701,166.43471 ,5.96105 ,5.51118 ,3.97536 ,5.74005 - +,0.03002 ,0.00722,176.02678 ,6.34632 ,5.90074 ,4.38216 ,6.12747 - +,0.03035 ,0.00743,185.58670 ,6.73178 ,6.29025 ,4.78803 ,6.51495 - +,0.03067 ,0.00763,195.12933 ,7.11804 ,6.68035 ,5.19367 ,6.90313 - +,0.03099 ,0.00783,204.58507 ,7.50210 ,7.06805 ,5.59619 ,7.28901/ - DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),K=1,19)/ - + 0.02623 ,0.00417 ,36.10866 ,0.59413 ,0.09736 ,0.00000 ,0.34780 - +,0.02700 ,0.00462 ,41.62146 ,0.91075 ,0.42642 ,0.00000 ,0.67066 - +,0.02771 ,0.00503 ,47.66519 ,1.21784 ,0.74413 ,0.00001 ,0.98308 - +,0.02836 ,0.00542 ,54.09253 ,1.52613 ,1.06168 ,0.00000 ,1.29601 - +,0.02897 ,0.00579 ,60.83827 ,1.82853 ,1.37224 ,0.01825 ,1.60250 - +,0.02955 ,0.00614 ,67.81766 ,2.13154 ,1.68256 ,0.21221 ,1.90917 - +,0.03010 ,0.00648 ,74.99167 ,2.43638 ,1.99401 ,0.57497 ,2.21732 - +,0.03063 ,0.00681 ,82.31866 ,2.74323 ,2.30690 ,0.90773 ,2.52720 - +,0.03113 ,0.00712 ,89.76390 ,3.05187 ,2.62109 ,1.24489 ,2.83862 - +,0.03162 ,0.00743 ,97.26779 ,3.35910 ,2.93344 ,1.57775 ,3.14841 - +,0.03208 ,0.00772,104.81790 ,3.66777 ,3.24686 ,1.91036 ,3.45946 - +,0.03253 ,0.00801,112.40001 ,3.97807 ,3.56158 ,2.24302 ,3.77197 - +,0.03297 ,0.00829,119.99440 ,4.28904 ,3.87671 ,2.57496 ,4.08502 - +,0.03340 ,0.00856,127.53777 ,4.59722 ,4.18875 ,2.90285 ,4.39512 - +,0.03381 ,0.00883,135.08817 ,4.90753 ,4.50272 ,3.23176 ,4.70726 - +,0.03421 ,0.00908,142.58183 ,5.21611 ,4.81474 ,3.55793 ,5.01756 - +,0.03459 ,0.00934,150.02347 ,5.52406 ,5.12595 ,3.88255 ,5.32713 - +,0.03497 ,0.00958,157.42685 ,5.83198 ,5.43694 ,4.20630 ,5.63658 - +,0.03534 ,0.00982,164.73477 ,6.13733 ,5.74522 ,4.52672 ,5.94339/ - DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),K=1,19)/ - + 0.02848 ,0.00498 ,31.32516 ,0.53941 ,0.08556 ,0.00000 ,0.31368 - +,0.02935 ,0.00550 ,36.22980 ,0.81647 ,0.37321 ,0.00000 ,0.59604 - +,0.03015 ,0.00599 ,41.56996 ,1.08505 ,0.65084 ,0.00000 ,0.86914 - +,0.03090 ,0.00644 ,47.21698 ,1.35435 ,0.92801 ,0.00000 ,1.14238 - +,0.03159 ,0.00688 ,53.10727 ,1.61818 ,1.19878 ,0.01590 ,1.40968 - +,0.03224 ,0.00729 ,59.17142 ,1.88208 ,1.46889 ,0.18463 ,1.67668 - +,0.03286 ,0.00768 ,65.37616 ,2.14706 ,1.73950 ,0.49993 ,1.94448 - +,0.03346 ,0.00806 ,71.68658 ,2.41327 ,2.01085 ,0.78858 ,2.21325 - +,0.03402 ,0.00842 ,78.07365 ,2.68049 ,2.28279 ,1.08052 ,2.48283 - +,0.03457 ,0.00878 ,84.48338 ,2.94591 ,2.55256 ,1.36814 ,2.75042 - +,0.03510 ,0.00912 ,90.91040 ,3.21203 ,2.82272 ,1.65499 ,3.01855 - +,0.03561 ,0.00945 ,97.34454 ,3.47903 ,3.09348 ,1.94137 ,3.28743 - +,0.03610 ,0.00977,103.76907 ,3.74611 ,3.36408 ,2.22659 ,3.55626 - +,0.03658 ,0.01008,110.12723 ,4.01018 ,3.63145 ,2.50775 ,3.82198 - +,0.03704 ,0.01039,116.47583 ,4.27566 ,3.90003 ,2.78933 ,4.08900 - +,0.03749 ,0.01069,122.75731 ,4.53912 ,4.16642 ,3.06802 ,4.35392 - +,0.03793 ,0.01098,128.97815 ,4.80159 ,4.43165 ,3.34492 ,4.61776 - +,0.03835 ,0.01126,135.15260 ,5.06359 ,4.69628 ,3.62063 ,4.88107 - +,0.03877 ,0.01154,141.23001 ,5.32289 ,4.95807 ,3.89299 ,5.14161/ - DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),K=1,19)/ - + 0.03034 ,0.00571 ,28.05753 ,0.50062 ,0.07736 ,0.00000 ,0.28967 - +,0.03130 ,0.00630 ,32.53577 ,0.75038 ,0.33645 ,0.00000 ,0.54409 - +,0.03218 ,0.00685 ,37.38623 ,0.99245 ,0.58648 ,0.00000 ,0.79013 - +,0.03300 ,0.00737 ,42.49319 ,1.23493 ,0.83589 ,0.00000 ,1.03606 - +,0.03376 ,0.00785 ,47.79448 ,1.47225 ,1.07932 ,0.01429 ,1.27643 - +,0.03448 ,0.00831 ,53.23105 ,1.70931 ,1.32183 ,0.16572 ,1.51620 - +,0.03516 ,0.00876 ,58.77368 ,1.94698 ,1.56444 ,0.44850 ,1.75634 - +,0.03581 ,0.00918 ,64.39175 ,2.18538 ,1.80735 ,0.70695 ,1.99698 - +,0.03643 ,0.00959 ,70.06050 ,2.42430 ,2.05042 ,0.96799 ,2.23797 - +,0.03703 ,0.00999 ,75.73006 ,2.66119 ,2.29114 ,1.22475 ,2.47677 - +,0.03761 ,0.01037 ,81.39935 ,2.89833 ,2.53183 ,1.48043 ,2.71567 - +,0.03817 ,0.01074 ,87.06058 ,3.13589 ,2.77270 ,1.73532 ,2.95488 - +,0.03871 ,0.01110 ,92.69965 ,3.37316 ,3.01306 ,1.98883 ,3.19368 - +,0.03923 ,0.01145 ,98.26393 ,3.60736 ,3.25014 ,2.23829 ,3.42932 - +,0.03974 ,0.01179,103.80917 ,3.84248 ,3.48800 ,2.48782 ,3.66580 - +,0.04023 ,0.01212,109.28241 ,4.07547 ,3.72356 ,2.73442 ,3.90006 - +,0.04071 ,0.01244,114.69147 ,4.30723 ,3.95775 ,2.97909 ,4.13303 - +,0.04117 ,0.01276,120.04945 ,4.53828 ,4.19111 ,3.22240 ,4.36523 - +,0.04163 ,0.01307,125.31154 ,4.76662 ,4.42163 ,3.46241 ,4.59465/ - DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),K=1,19)/ - + 0.03681 ,0.00875 ,19.93805 ,0.39836 ,0.05648 ,0.00000 ,0.22719 - +,0.03809 ,0.00961 ,23.30977 ,0.57920 ,0.24352 ,0.00000 ,0.41110 - +,0.03927 ,0.01041 ,26.90373 ,0.75449 ,0.42408 ,0.00000 ,0.58899 - +,0.04035 ,0.01116 ,30.63655 ,0.92951 ,0.60367 ,0.00000 ,0.76628 - +,0.04137 ,0.01186 ,34.45299 ,1.10025 ,0.77844 ,0.01024 ,0.93901 - +,0.04233 ,0.01252 ,38.31819 ,1.27003 ,0.95181 ,0.11840 ,1.11056 - +,0.04324 ,0.01316 ,42.21336 ,1.43941 ,1.12443 ,0.31987 ,1.28154 - +,0.04410 ,0.01376 ,46.11893 ,1.60843 ,1.29642 ,0.50305 ,1.45203 - +,0.04493 ,0.01435 ,50.01987 ,1.77696 ,1.46768 ,0.68723 ,1.62191 - +,0.04573 ,0.01491 ,53.87808 ,1.94312 ,1.63634 ,0.86742 ,1.78930 - +,0.04650 ,0.01545 ,57.70186 ,2.10859 ,1.80413 ,1.04600 ,1.95591 - +,0.04724 ,0.01597 ,61.48924 ,2.27353 ,1.97124 ,1.22318 ,2.12192 - +,0.04795 ,0.01648 ,65.23129 ,2.43746 ,2.13719 ,1.39858 ,2.28685 - +,0.04865 ,0.01697 ,68.88826 ,2.59835 ,2.29997 ,1.57026 ,2.44867 - +,0.04931 ,0.01744 ,72.51030 ,2.75921 ,2.46262 ,1.74129 ,2.61041 - +,0.04996 ,0.01791 ,76.05589 ,2.91778 ,2.62287 ,1.90948 ,2.76981 - +,0.05060 ,0.01836 ,79.53551 ,3.07481 ,2.78148 ,2.07562 ,2.92761 - +,0.05121 ,0.01879 ,82.96065 ,3.23069 ,2.93887 ,2.24016 ,3.08424 - +,0.05181 ,0.01922 ,86.29916 ,3.38399 ,3.09360 ,2.40170 ,3.23825/ - DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),K=1,19)/ - + 0.04452 ,0.01340 ,14.18962 ,0.32013 ,0.04120 ,0.00000 ,0.18032 - +,0.04622 ,0.01466 ,16.72588 ,0.45113 ,0.17619 ,0.00000 ,0.31329 - +,0.04778 ,0.01582 ,19.38387 ,0.57814 ,0.30660 ,0.00000 ,0.44198 - +,0.04922 ,0.01690 ,22.10492 ,0.70445 ,0.43585 ,0.00000 ,0.56974 - +,0.05057 ,0.01790 ,24.84224 ,0.82719 ,0.56118 ,0.00733 ,0.69375 - +,0.05184 ,0.01885 ,27.57748 ,0.94860 ,0.68488 ,0.08446 ,0.81630 - +,0.05305 ,0.01975 ,30.29929 ,1.06906 ,0.80741 ,0.22774 ,0.93777 - +,0.05420 ,0.02061 ,32.99614 ,1.18857 ,0.92882 ,0.35726 ,1.05822 - +,0.05530 ,0.02143 ,35.66000 ,1.30706 ,1.04904 ,0.48683 ,1.17756 - +,0.05636 ,0.02222 ,38.26271 ,1.42316 ,1.16673 ,0.61286 ,1.29444 - +,0.05737 ,0.02298 ,40.81677 ,1.53812 ,1.28316 ,0.73708 ,1.41012 - +,0.05835 ,0.02371 ,43.32385 ,1.65210 ,1.39852 ,0.85973 ,1.52477 - +,0.05930 ,0.02442 ,45.77888 ,1.76477 ,1.51248 ,0.98052 ,1.63808 - +,0.06021 ,0.02509 ,48.15251 ,1.87468 ,1.62358 ,1.09805 ,1.74857 - +,0.06110 ,0.02575 ,50.48727 ,1.98407 ,1.73410 ,1.21464 ,1.85851 - +,0.06195 ,0.02639 ,52.75211 ,2.09130 ,1.84240 ,1.32868 ,1.96627 - +,0.06279 ,0.02701 ,54.95746 ,2.19695 ,1.94906 ,1.44078 ,2.07242 - +,0.06360 ,0.02761 ,57.11314 ,2.30137 ,2.05443 ,1.55132 ,2.17730 - +,0.06439 ,0.02820 ,59.19653 ,2.40351 ,2.15747 ,1.65929 ,2.27988/ - DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),K=1,19)/ - + 0.04979 ,0.01721 ,11.64411 ,0.28433 ,0.03429 ,0.00000 ,0.15913 - +,0.05180 ,0.01877 ,13.79194 ,0.39292 ,0.14593 ,0.00000 ,0.26924 - +,0.05364 ,0.02020 ,16.01756 ,0.49817 ,0.25377 ,0.00000 ,0.37578 - +,0.05535 ,0.02153 ,18.27444 ,0.60253 ,0.36038 ,0.00000 ,0.48125 - +,0.05694 ,0.02277 ,20.52110 ,0.70366 ,0.46346 ,0.00603 ,0.58335 - +,0.05844 ,0.02393 ,22.74660 ,0.80331 ,0.56486 ,0.06924 ,0.68387 - +,0.05987 ,0.02503 ,24.94313 ,0.90181 ,0.66493 ,0.18644 ,0.78314 - +,0.06123 ,0.02607 ,27.10277 ,0.99917 ,0.76373 ,0.29198 ,0.88121 - +,0.06253 ,0.02707 ,29.22079 ,1.09533 ,0.86120 ,0.39719 ,0.97802 - +,0.06377 ,0.02803 ,31.27371 ,1.18917 ,0.95625 ,0.49916 ,1.07246 - +,0.06497 ,0.02895 ,33.27548 ,1.28175 ,1.04994 ,0.59932 ,1.16559 - +,0.06613 ,0.02983 ,35.22890 ,1.37321 ,1.14245 ,0.69787 ,1.25757 - +,0.06724 ,0.03068 ,37.13069 ,1.46332 ,1.23353 ,0.79462 ,1.34816 - +,0.06832 ,0.03150 ,38.95656 ,1.55086 ,1.32198 ,0.88841 ,1.43615 - +,0.06936 ,0.03229 ,40.74455 ,1.63774 ,1.40972 ,0.98119 ,1.52345 - +,0.07037 ,0.03305 ,42.46857 ,1.72261 ,1.49540 ,1.07163 ,1.60872 - +,0.07135 ,0.03379 ,44.13872 ,1.80595 ,1.57951 ,1.16026 ,1.69244 - +,0.07230 ,0.03451 ,45.76387 ,1.88809 ,1.66237 ,1.24742 ,1.77493 - +,0.07322 ,0.03521 ,47.32567 ,1.96815 ,1.74313 ,1.33226 ,1.85534/ - DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),K=1,19)/ - + 0.05400 ,0.02055 ,10.12899 ,0.26324 ,0.03013 ,0.00000 ,0.14667 - +,0.05627 ,0.02237 ,12.03891 ,0.35837 ,0.12776 ,0.00000 ,0.24306 - +,0.05835 ,0.02403 ,13.99986 ,0.45052 ,0.22203 ,0.00000 ,0.33627 - +,0.06028 ,0.02556 ,15.97336 ,0.54164 ,0.31499 ,0.00000 ,0.42831 - +,0.06208 ,0.02699 ,17.92197 ,0.62972 ,0.40466 ,0.00524 ,0.51719 - +,0.06377 ,0.02832 ,19.83904 ,0.71626 ,0.49263 ,0.06007 ,0.60444 - +,0.06538 ,0.02958 ,21.71918 ,0.80153 ,0.57919 ,0.16159 ,0.69036 - +,0.06691 ,0.03078 ,23.55682 ,0.88557 ,0.66439 ,0.25272 ,0.77498 - +,0.06837 ,0.03193 ,25.34894 ,0.96832 ,0.74822 ,0.34333 ,0.85827 - +,0.06978 ,0.03302 ,27.07541 ,1.04883 ,0.82971 ,0.43089 ,0.93927 - +,0.07113 ,0.03406 ,28.75044 ,1.12802 ,0.90982 ,0.51666 ,1.01892 - +,0.07243 ,0.03507 ,30.37770 ,1.20605 ,0.98871 ,0.60085 ,1.09737 - +,0.07368 ,0.03603 ,31.95485 ,1.28271 ,1.06617 ,0.68329 ,1.17443 - +,0.07489 ,0.03696 ,33.46072 ,1.35697 ,1.14118 ,0.76298 ,1.24907 - +,0.07606 ,0.03786 ,34.93025 ,1.43050 ,1.21541 ,0.84163 ,1.32295 - +,0.07719 ,0.03873 ,36.34067 ,1.50213 ,1.28771 ,0.91811 ,1.39491 - +,0.07829 ,0.03956 ,37.70163 ,1.57231 ,1.35851 ,0.99289 ,1.46540 - +,0.07936 ,0.04037 ,39.02113 ,1.64131 ,1.42811 ,1.06626 ,1.53470 - +,0.08040 ,0.04116 ,40.28365 ,1.70840 ,1.49577 ,1.13751 ,1.60207/ - DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),K=1,19)/ - + 0.05783 ,0.02359 ,9.09923 ,0.25129 ,0.02732 ,0.00000 ,0.13924 - +,0.06035 ,0.02563 ,10.84759 ,0.33725 ,0.11536 ,0.00000 ,0.22624 - +,0.06266 ,0.02748 ,12.62568 ,0.42039 ,0.20025 ,0.00001 ,0.31026 - +,0.06480 ,0.02919 ,14.40164 ,0.50236 ,0.28374 ,0.00000 ,0.39300 - +,0.06679 ,0.03078 ,16.14235 ,0.58140 ,0.36412 ,0.00470 ,0.47271 - +,0.06867 ,0.03226 ,17.84392 ,0.65885 ,0.44275 ,0.05371 ,0.55075 - +,0.07045 ,0.03366 ,19.50307 ,0.73495 ,0.51992 ,0.14433 ,0.62738 - +,0.07214 ,0.03498 ,21.11630 ,0.80974 ,0.59569 ,0.22544 ,0.70266 - +,0.07376 ,0.03625 ,22.68059 ,0.88319 ,0.67004 ,0.30591 ,0.77656 - +,0.07530 ,0.03745 ,24.18106 ,0.95444 ,0.74211 ,0.38346 ,0.84822 - +,0.07679 ,0.03860 ,25.62889 ,1.02433 ,0.81278 ,0.45924 ,0.91850 - +,0.07822 ,0.03970 ,27.03003 ,1.09303 ,0.88219 ,0.53344 ,0.98756 - +,0.07960 ,0.04076 ,28.38426 ,1.16038 ,0.95022 ,0.60596 ,1.05524 - +,0.08093 ,0.04178 ,29.67018 ,1.22545 ,1.01592 ,0.67588 ,1.12063 - +,0.08222 ,0.04276 ,30.92079 ,1.28974 ,1.08081 ,0.74476 ,1.18522 - +,0.08346 ,0.04371 ,32.11519 ,1.35221 ,1.14384 ,0.81157 ,1.24797 - +,0.08467 ,0.04462 ,33.26540 ,1.41330 ,1.20547 ,0.87677 ,1.30933 - +,0.08584 ,0.04551 ,34.37848 ,1.47327 ,1.26594 ,0.94065 ,1.36955 - +,0.08698 ,0.04636 ,35.43707 ,1.53144 ,1.32460 ,1.00255 ,1.42796/ - DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),K=1,19)/ - + 0.07221 ,0.03622 ,6.55284 ,0.22231 ,0.02009 ,0.00000 ,0.12120 - +,0.07572 ,0.03908 ,7.87690 ,0.28496 ,0.08382 ,0.00000 ,0.18440 - +,0.07894 ,0.04166 ,9.18055 ,0.34522 ,0.14500 ,0.00000 ,0.24513 - +,0.08190 ,0.04402 ,10.44943 ,0.40402 ,0.20461 ,0.00000 ,0.30435 - +,0.08465 ,0.04619 ,11.66034 ,0.46023 ,0.26152 ,0.00333 ,0.36091 - +,0.08722 ,0.04820 ,12.81842 ,0.51473 ,0.31667 ,0.03774 ,0.41574 - +,0.08966 ,0.05009 ,13.92507 ,0.56774 ,0.37027 ,0.10103 ,0.46906 - +,0.09197 ,0.05187 ,14.98108 ,0.61933 ,0.42241 ,0.15713 ,0.52092 - +,0.09417 ,0.05356 ,15.98737 ,0.66951 ,0.47311 ,0.21231 ,0.57137 - +,0.09627 ,0.05515 ,16.93445 ,0.71773 ,0.52180 ,0.26502 ,0.61982 - +,0.09828 ,0.05666 ,17.83418 ,0.76461 ,0.56912 ,0.31611 ,0.66693 - +,0.10020 ,0.05811 ,18.69273 ,0.81029 ,0.61524 ,0.36574 ,0.71282 - +,0.10206 ,0.05950 ,19.51099 ,0.85471 ,0.66006 ,0.41387 ,0.75745 - +,0.10384 ,0.06082 ,20.27478 ,0.89725 ,0.70299 ,0.45989 ,0.80018 - +,0.10556 ,0.06209 ,21.00960 ,0.93897 ,0.74508 ,0.50492 ,0.84209 - +,0.10722 ,0.06331 ,21.70103 ,0.97919 ,0.78566 ,0.54827 ,0.88249 - +,0.10882 ,0.06448 ,22.35863 ,1.01823 ,0.82505 ,0.59029 ,0.92171 - +,0.11037 ,0.06561 ,22.98795 ,1.05630 ,0.86345 ,0.63120 ,0.95994 - +,0.11187 ,0.06670 ,23.57780 ,1.09294 ,0.90041 ,0.67055 ,0.99675/ - DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),K=1,19)/ - + 0.09312 ,0.05563 ,4.77718 ,0.20797 ,0.01482 ,0.00001 ,0.11138 - +,0.09811 ,0.05951 ,5.77211 ,0.25353 ,0.06091 ,0.00001 ,0.15723 - +,0.10262 ,0.06296 ,6.71132 ,0.29685 ,0.10471 ,0.00002 ,0.20080 - +,0.10677 ,0.06609 ,7.59596 ,0.33847 ,0.14680 ,0.00002 ,0.24267 - +,0.11057 ,0.06893 ,8.41127 ,0.37777 ,0.18654 ,0.00235 ,0.28219 - +,0.11411 ,0.07155 ,9.16963 ,0.41534 ,0.22452 ,0.02611 ,0.31997 - +,0.11744 ,0.07398 ,9.87563 ,0.45139 ,0.26098 ,0.06954 ,0.35624 - +,0.12059 ,0.07625 ,10.53436 ,0.48604 ,0.29604 ,0.10756 ,0.39109 - +,0.12358 ,0.07839 ,11.14739 ,0.51933 ,0.32971 ,0.14454 ,0.42457 - +,0.12639 ,0.08040 ,11.71172 ,0.55094 ,0.36171 ,0.17950 ,0.45638 - +,0.12907 ,0.08230 ,12.23657 ,0.58133 ,0.39247 ,0.21304 ,0.48696 - +,0.13164 ,0.08409 ,12.72790 ,0.61062 ,0.42213 ,0.24530 ,0.51643 - +,0.13411 ,0.08580 ,13.18744 ,0.63879 ,0.45066 ,0.27627 ,0.54479 - +,0.13645 ,0.08742 ,13.60670 ,0.66549 ,0.47771 ,0.30563 ,0.57167 - +,0.13871 ,0.08897 ,14.00438 ,0.69146 ,0.50402 ,0.33411 ,0.59781 - +,0.14087 ,0.09044 ,14.37092 ,0.71622 ,0.52913 ,0.36127 ,0.62274 - +,0.14296 ,0.09185 ,14.71360 ,0.74005 ,0.55330 ,0.38739 ,0.64674 - +,0.14497 ,0.09321 ,15.03656 ,0.76309 ,0.57667 ,0.41262 ,0.66995 - +,0.14690 ,0.09451 ,15.33336 ,0.78507 ,0.59898 ,0.43669 ,0.69209/ - DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),K=1,19)/ - + 0.11004 ,0.07143 ,4.00450 ,0.20430 ,0.01237 ,0.00000 ,0.10833 - +,0.11615 ,0.07595 ,4.83705 ,0.24184 ,0.05038 ,0.00000 ,0.14613 - +,0.12164 ,0.07994 ,5.60029 ,0.27717 ,0.08620 ,0.00000 ,0.18171 - +,0.12666 ,0.08352 ,6.30214 ,0.31074 ,0.12026 ,0.00002 ,0.21553 - +,0.13123 ,0.08676 ,6.93477 ,0.34211 ,0.15212 ,0.00188 ,0.24716 - +,0.13548 ,0.08971 ,7.51121 ,0.37182 ,0.18229 ,0.02082 ,0.27710 - +,0.13944 ,0.09244 ,8.03884 ,0.40005 ,0.21101 ,0.05527 ,0.30559 - +,0.14315 ,0.09499 ,8.52122 ,0.42693 ,0.23835 ,0.08515 ,0.33270 - +,0.14667 ,0.09736 ,8.96395 ,0.45252 ,0.26441 ,0.11399 ,0.35853 - +,0.14997 ,0.09958 ,9.36372 ,0.47663 ,0.28899 ,0.14107 ,0.38288 - +,0.15311 ,0.10165 ,9.72952 ,0.49961 ,0.31243 ,0.16686 ,0.40609 - +,0.15611 ,0.10361 ,10.06725 ,0.52160 ,0.33489 ,0.19149 ,0.42831 - +,0.15898 ,0.10546 ,10.37907 ,0.54261 ,0.35635 ,0.21502 ,0.44955 - +,0.16168 ,0.10721 ,10.65883 ,0.56234 ,0.37653 ,0.23713 ,0.46951 - +,0.16427 ,0.10889 ,10.92113 ,0.58141 ,0.39605 ,0.25848 ,0.48880 - +,0.16674 ,0.11047 ,11.15842 ,0.59949 ,0.41456 ,0.27873 ,0.50710 - +,0.16912 ,0.11198 ,11.37642 ,0.61676 ,0.43226 ,0.29807 ,0.52459 - +,0.17141 ,0.11342 ,11.57870 ,0.63335 ,0.44928 ,0.31664 ,0.54138 - +,0.17361 ,0.11478 ,11.76191 ,0.64906 ,0.46541 ,0.33426 ,0.55730/ - DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),K=1,19)/ - + 0.12517 ,0.08518 ,3.55192 ,0.20346 ,0.01088 ,0.00000 ,0.10716 - +,0.13220 ,0.09014 ,4.27919 ,0.23596 ,0.04398 ,0.00000 ,0.13998 - +,0.13847 ,0.09449 ,4.93058 ,0.26626 ,0.07492 ,0.00000 ,0.17061 - +,0.14418 ,0.09837 ,5.51836 ,0.29479 ,0.10407 ,0.00002 ,0.19945 - +,0.14935 ,0.10184 ,6.03814 ,0.32121 ,0.13113 ,0.00160 ,0.22621 - +,0.15413 ,0.10500 ,6.50409 ,0.34603 ,0.15657 ,0.01761 ,0.25134 - +,0.15857 ,0.10790 ,6.92413 ,0.36943 ,0.18060 ,0.04663 ,0.27506 - +,0.16272 ,0.11059 ,7.30260 ,0.39153 ,0.20331 ,0.07161 ,0.29747 - +,0.16663 ,0.11308 ,7.64515 ,0.41243 ,0.22482 ,0.09558 ,0.31868 - +,0.17028 ,0.11540 ,7.94962 ,0.43198 ,0.24498 ,0.11796 ,0.33854 - +,0.17375 ,0.11756 ,8.22431 ,0.45048 ,0.26409 ,0.13915 ,0.35735 - +,0.17704 ,0.11959 ,8.47479 ,0.46808 ,0.28229 ,0.15928 ,0.37524 - +,0.18019 ,0.12150 ,8.70318 ,0.48480 ,0.29959 ,0.17841 ,0.39225 - +,0.18313 ,0.12330 ,8.90458 ,0.50039 ,0.31576 ,0.19630 ,0.40813 - +,0.18595 ,0.12501 ,9.09145 ,0.51538 ,0.33132 ,0.21348 ,0.42341 - +,0.18864 ,0.12663 ,9.25763 ,0.52950 ,0.34600 ,0.22970 ,0.43782 - +,0.19122 ,0.12816 ,9.40808 ,0.54291 ,0.35997 ,0.24513 ,0.45151 - +,0.19369 ,0.12961 ,9.54587 ,0.55574 ,0.37334 ,0.25988 ,0.46460 - +,0.19605 ,0.13099 ,9.66829 ,0.56781 ,0.38596 ,0.27381 ,0.47694/ - DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),K=1,19)/ - + 0.13915 ,0.09753 ,3.24791 ,0.20339 ,0.00983 ,0.00001 ,0.10661 - +,0.14693 ,0.10279 ,3.89818 ,0.23226 ,0.03953 ,0.00001 ,0.13590 - +,0.15386 ,0.10738 ,4.46916 ,0.25897 ,0.06705 ,0.00003 ,0.16303 - +,0.16012 ,0.11144 ,4.97620 ,0.28388 ,0.09279 ,0.00003 ,0.18836 - +,0.16579 ,0.11505 ,5.41717 ,0.30680 ,0.11653 ,0.00144 ,0.21169 - +,0.17098 ,0.11833 ,5.80677 ,0.32815 ,0.13869 ,0.01543 ,0.23346 - +,0.17579 ,0.12132 ,6.15344 ,0.34814 ,0.15948 ,0.04071 ,0.25386 - +,0.18028 ,0.12407 ,6.46130 ,0.36692 ,0.17905 ,0.06234 ,0.27302 - +,0.18449 ,0.12663 ,6.73712 ,0.38455 ,0.19746 ,0.08299 ,0.29105 - +,0.18842 ,0.12896 ,6.97844 ,0.40092 ,0.21460 ,0.10215 ,0.30781 - +,0.19212 ,0.13115 ,7.19382 ,0.41634 ,0.23077 ,0.12022 ,0.32360 - +,0.19561 ,0.13321 ,7.38758 ,0.43092 ,0.24609 ,0.13732 ,0.33856 - +,0.19892 ,0.13514 ,7.56128 ,0.44470 ,0.26061 ,0.15349 ,0.35272 - +,0.20207 ,0.13692 ,7.71183 ,0.45748 ,0.27411 ,0.16856 ,0.36586 - +,0.20507 ,0.13862 ,7.85021 ,0.46971 ,0.28704 ,0.18297 ,0.37844 - +,0.20790 ,0.14022 ,7.97137 ,0.48114 ,0.29917 ,0.19649 ,0.39022 - +,0.21060 ,0.14173 ,8.07938 ,0.49196 ,0.31067 ,0.20932 ,0.40138 - +,0.21319 ,0.14317 ,8.17690 ,0.50226 ,0.32163 ,0.22155 ,0.41201 - +,0.21566 ,0.14452 ,8.26164 ,0.51189 ,0.33192 ,0.23304 ,0.42197/ - DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),K=1,19)/ - + 0.19991 ,0.14688 ,2.51370 ,0.20353 ,0.00708 ,0.00001 ,0.10529 - +,0.21019 ,0.15254 ,2.94325 ,0.22211 ,0.02785 ,0.00001 ,0.12499 - +,0.21910 ,0.15734 ,3.29408 ,0.23869 ,0.04651 ,0.00001 ,0.14261 - +,0.22699 ,0.16149 ,3.58628 ,0.25366 ,0.06346 ,0.00001 ,0.15857 - +,0.23400 ,0.16506 ,3.82377 ,0.26697 ,0.07864 ,0.00092 ,0.17283 - +,0.24029 ,0.16823 ,4.02164 ,0.27903 ,0.09249 ,0.00981 ,0.18578 - +,0.24606 ,0.17103 ,4.18708 ,0.28999 ,0.10516 ,0.02565 ,0.19761 - +,0.25132 ,0.17358 ,4.32574 ,0.30000 ,0.11681 ,0.03890 ,0.20843 - +,0.25620 ,0.17587 ,4.44281 ,0.30914 ,0.12753 ,0.05131 ,0.21837 - +,0.26066 ,0.17794 ,4.53601 ,0.31739 ,0.13733 ,0.06263 ,0.22740 - +,0.26482 ,0.17982 ,4.61448 ,0.32496 ,0.14639 ,0.07311 ,0.23572 - +,0.26871 ,0.18153 ,4.68041 ,0.33196 ,0.15482 ,0.08286 ,0.24343 - +,0.27237 ,0.18310 ,4.73461 ,0.33841 ,0.16266 ,0.09195 ,0.25057 - +,0.27573 ,0.18453 ,4.77571 ,0.34420 ,0.16978 ,0.10024 ,0.25702 - +,0.27891 ,0.18586 ,4.81074 ,0.34963 ,0.17649 ,0.10807 ,0.26309 - +,0.28189 ,0.18707 ,4.83699 ,0.35457 ,0.18270 ,0.11533 ,0.26867 - +,0.28469 ,0.18819 ,4.85647 ,0.35914 ,0.18848 ,0.12210 ,0.27384 - +,0.28733 ,0.18924 ,4.87087 ,0.36339 ,0.19390 ,0.12847 ,0.27868 - +,0.28983 ,0.19020 ,4.87910 ,0.36724 ,0.19891 ,0.13437 ,0.28311/ - DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),K=1,19)/ - + 0.29948 ,0.21337 ,2.00341 ,0.19400 ,0.00479 ,-0.00009 ,0.09933 - +,0.31092 ,0.21753 ,2.23323 ,0.20312 ,0.01858 ,-0.00009 ,0.11080 - +,0.32048 ,0.22075 ,2.39984 ,0.21075 ,0.03039 ,-0.00011 ,0.12054 - +,0.32863 ,0.22337 ,2.52366 ,0.21721 ,0.04067 ,-0.00009 ,0.12891 - +,0.33561 ,0.22543 ,2.61084 ,0.22255 ,0.04951 ,0.00041 ,0.13598 - +,0.34167 ,0.22710 ,2.67357 ,0.22710 ,0.05729 ,0.00558 ,0.14215 - +,0.34701 ,0.22845 ,2.71748 ,0.23097 ,0.06419 ,0.01467 ,0.14755 - +,0.35181 ,0.22956 ,2.74668 ,0.23426 ,0.07035 ,0.02204 ,0.15227 - +,0.35602 ,0.23048 ,2.76465 ,0.23706 ,0.07582 ,0.02874 ,0.15641 - +,0.35979 ,0.23116 ,2.77146 ,0.23938 ,0.08068 ,0.03474 ,0.15999 - +,0.36315 ,0.23172 ,2.77153 ,0.24134 ,0.08504 ,0.04016 ,0.16315 - +,0.36619 ,0.23218 ,2.76658 ,0.24300 ,0.08898 ,0.04508 ,0.16596 - +,0.36895 ,0.23254 ,2.75728 ,0.24439 ,0.09253 ,0.04954 ,0.16843 - +,0.37142 ,0.23274 ,2.74272 ,0.24546 ,0.09568 ,0.05352 ,0.17055 - +,0.37369 ,0.23289 ,2.72661 ,0.24639 ,0.09858 ,0.05721 ,0.17246 - +,0.37572 ,0.23297 ,2.70747 ,0.24710 ,0.10114 ,0.06058 ,0.17409 - +,0.37757 ,0.23298 ,2.68666 ,0.24764 ,0.10348 ,0.06367 ,0.17552 - +,0.37928 ,0.23295 ,2.66490 ,0.24805 ,0.10564 ,0.06652 ,0.17681 - +,0.38080 ,0.23286 ,2.64141 ,0.24829 ,0.10756 ,0.06908 ,0.17791/ - DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),K=1,19)/ - + 0.38126 ,0.25604 ,1.75383 ,0.17626 ,0.00377 ,-0.00001 ,0.09002 - +,0.39110 ,0.25769 ,1.87729 ,0.18041 ,0.01402 ,-0.00003 ,0.09722 - +,0.39904 ,0.25855 ,1.95327 ,0.18347 ,0.02257 ,0.00000 ,0.10300 - +,0.40550 ,0.25893 ,1.99937 ,0.18576 ,0.02969 ,0.00004 ,0.10776 - +,0.41073 ,0.25893 ,2.02176 ,0.18739 ,0.03572 ,0.00036 ,0.11154 - +,0.41500 ,0.25874 ,2.02929 ,0.18850 ,0.04080 ,0.00390 ,0.11466 - +,0.41863 ,0.25826 ,2.02614 ,0.18921 ,0.04524 ,0.00996 ,0.11726 - +,0.42159 ,0.25773 ,2.01513 ,0.18963 ,0.04909 ,0.01481 ,0.11937 - +,0.42417 ,0.25700 ,1.99859 ,0.18978 ,0.05241 ,0.01921 ,0.12111 - +,0.42618 ,0.25624 ,1.97703 ,0.18966 ,0.05528 ,0.02297 ,0.12250 - +,0.42791 ,0.25534 ,1.95286 ,0.18939 ,0.05782 ,0.02635 ,0.12363 - +,0.42935 ,0.25442 ,1.92707 ,0.18900 ,0.06005 ,0.02937 ,0.12454 - +,0.43046 ,0.25351 ,1.90000 ,0.18848 ,0.06198 ,0.03204 ,0.12527 - +,0.43137 ,0.25247 ,1.87117 ,0.18781 ,0.06365 ,0.03439 ,0.12576 - +,0.43215 ,0.25143 ,1.84276 ,0.18712 ,0.06516 ,0.03654 ,0.12616 - +,0.43271 ,0.25035 ,1.81378 ,0.18636 ,0.06648 ,0.03845 ,0.12643 - +,0.43311 ,0.24929 ,1.78487 ,0.18551 ,0.06763 ,0.04018 ,0.12659 - +,0.43340 ,0.24824 ,1.75640 ,0.18461 ,0.06865 ,0.04175 ,0.12667 - +,0.43355 ,0.24714 ,1.72789 ,0.18367 ,0.06953 ,0.04313 ,0.12664/ - DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),K=1,19)/ - + 0.44870 ,0.28373 ,1.57495 ,0.15563 ,0.00302 ,0.00010 ,0.07934 - +,0.45580 ,0.28235 ,1.62984 ,0.15670 ,0.01108 ,0.00006 ,0.08393 - +,0.46076 ,0.28076 ,1.65105 ,0.15711 ,0.01752 ,0.00008 ,0.08736 - +,0.46441 ,0.27894 ,1.65296 ,0.15709 ,0.02278 ,0.00005 ,0.08997 - +,0.46708 ,0.27688 ,1.64023 ,0.15664 ,0.02714 ,0.00031 ,0.09195 - +,0.46889 ,0.27477 ,1.61953 ,0.15599 ,0.03066 ,0.00292 ,0.09338 - +,0.47013 ,0.27260 ,1.59334 ,0.15512 ,0.03369 ,0.00730 ,0.09447 - +,0.47092 ,0.27042 ,1.56391 ,0.15407 ,0.03628 ,0.01069 ,0.09522 - +,0.47132 ,0.26823 ,1.53267 ,0.15292 ,0.03845 ,0.01372 ,0.09573 - +,0.47123 ,0.26605 ,1.49946 ,0.15171 ,0.04026 ,0.01628 ,0.09602 - +,0.47092 ,0.26389 ,1.46610 ,0.15042 ,0.04181 ,0.01851 ,0.09615 - +,0.47042 ,0.26178 ,1.43324 ,0.14910 ,0.04315 ,0.02049 ,0.09617 - +,0.46972 ,0.25973 ,1.40101 ,0.14779 ,0.04430 ,0.02226 ,0.09610 - +,0.46888 ,0.25763 ,1.36857 ,0.14640 ,0.04527 ,0.02380 ,0.09588 - +,0.46797 ,0.25560 ,1.33748 ,0.14504 ,0.04611 ,0.02518 ,0.09561 - +,0.46689 ,0.25358 ,1.30704 ,0.14366 ,0.04677 ,0.02635 ,0.09527 - +,0.46572 ,0.25162 ,1.27754 ,0.14228 ,0.04735 ,0.02740 ,0.09488 - +,0.46450 ,0.24972 ,1.24914 ,0.14093 ,0.04787 ,0.02835 ,0.09445 - +,0.46318 ,0.24784 ,1.22148 ,0.13957 ,0.04830 ,0.02919 ,0.09397/ - DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),K=1,19)/ - + 0.50376 ,0.30039 ,1.42486 ,0.13458 ,0.00247 ,0.00006 ,0.06852 - +,0.50691 ,0.29630 ,1.43301 ,0.13382 ,0.00886 ,0.00003 ,0.07139 - +,0.50837 ,0.29228 ,1.41888 ,0.13272 ,0.01387 ,0.00008 ,0.07331 - +,0.50881 ,0.28830 ,1.39365 ,0.13140 ,0.01783 ,0.00010 ,0.07465 - +,0.50845 ,0.28434 ,1.36069 ,0.12983 ,0.02108 ,0.00027 ,0.07549 - +,0.50743 ,0.28059 ,1.32444 ,0.12823 ,0.02366 ,0.00223 ,0.07594 - +,0.50600 ,0.27694 ,1.28671 ,0.12655 ,0.02578 ,0.00545 ,0.07617 - +,0.50427 ,0.27337 ,1.24866 ,0.12484 ,0.02752 ,0.00788 ,0.07618 - +,0.50246 ,0.26983 ,1.21106 ,0.12313 ,0.02895 ,0.01010 ,0.07605 - +,0.50014 ,0.26653 ,1.17374 ,0.12141 ,0.03013 ,0.01193 ,0.07577 - +,0.49778 ,0.26327 ,1.13774 ,0.11969 ,0.03113 ,0.01350 ,0.07543 - +,0.49537 ,0.26012 ,1.10329 ,0.11800 ,0.03198 ,0.01485 ,0.07501 - +,0.49290 ,0.25712 ,1.07030 ,0.11633 ,0.03269 ,0.01601 ,0.07452 - +,0.49026 ,0.25415 ,1.03831 ,0.11469 ,0.03322 ,0.01705 ,0.07399 - +,0.48765 ,0.25132 ,1.00813 ,0.11311 ,0.03367 ,0.01797 ,0.07344 - +,0.48498 ,0.24860 ,0.97914 ,0.11154 ,0.03405 ,0.01875 ,0.07284 - +,0.48235 ,0.24590 ,0.95153 ,0.11002 ,0.03434 ,0.01944 ,0.07222 - +,0.47976 ,0.24326 ,0.92533 ,0.10856 ,0.03457 ,0.02004 ,0.07160 - +,0.47706 ,0.24076 ,0.90017 ,0.10710 ,0.03474 ,0.02053 ,0.07095/ - DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),K=1,19)/ - + 0.55658 ,0.30965 ,1.25910 ,0.10983 ,0.00194 ,0.00013 ,0.05590 - +,0.55439 ,0.30227 ,1.22818 ,0.10784 ,0.00683 ,0.00005 ,0.05742 - +,0.55088 ,0.29557 ,1.18658 ,0.10575 ,0.01054 ,0.00008 ,0.05819 - +,0.54699 ,0.28926 ,1.14162 ,0.10361 ,0.01344 ,0.00004 ,0.05860 - +,0.54263 ,0.28332 ,1.09510 ,0.10148 ,0.01567 ,0.00025 ,0.05863 - +,0.53803 ,0.27776 ,1.04952 ,0.09937 ,0.01743 ,0.00156 ,0.05844 - +,0.53327 ,0.27255 ,1.00563 ,0.09729 ,0.01887 ,0.00390 ,0.05811 - +,0.52853 ,0.26749 ,0.96379 ,0.09530 ,0.01998 ,0.00566 ,0.05770 - +,0.52369 ,0.26282 ,0.92423 ,0.09336 ,0.02092 ,0.00711 ,0.05721 - +,0.51887 ,0.25827 ,0.88649 ,0.09146 ,0.02162 ,0.00833 ,0.05660 - +,0.51404 ,0.25397 ,0.85111 ,0.08963 ,0.02217 ,0.00935 ,0.05597 - +,0.50931 ,0.24988 ,0.81806 ,0.08787 ,0.02263 ,0.01026 ,0.05533 - +,0.50471 ,0.24594 ,0.78712 ,0.08617 ,0.02305 ,0.01110 ,0.05468 - +,0.50009 ,0.24218 ,0.75778 ,0.08454 ,0.02329 ,0.01171 ,0.05397 - +,0.49560 ,0.23861 ,0.73049 ,0.08298 ,0.02349 ,0.01226 ,0.05328 - +,0.49111 ,0.23518 ,0.70475 ,0.08147 ,0.02362 ,0.01275 ,0.05260 - +,0.48677 ,0.23185 ,0.68057 ,0.08000 ,0.02372 ,0.01315 ,0.05194 - +,0.48259 ,0.22862 ,0.65788 ,0.07858 ,0.02379 ,0.01348 ,0.05130 - +,0.47838 ,0.22555 ,0.63640 ,0.07721 ,0.02383 ,0.01376 ,0.05066/ - DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),K=1,19)/ - + 0.59361 ,0.30895 ,1.10907 ,0.08786 ,0.00155 ,0.00013 ,0.04479 - +,0.58554 ,0.29901 ,1.05385 ,0.08541 ,0.00533 ,0.00012 ,0.04548 - +,0.57720 ,0.29004 ,0.99655 ,0.08296 ,0.00813 ,0.00012 ,0.04560 - +,0.56892 ,0.28188 ,0.94160 ,0.08058 ,0.01025 ,0.00013 ,0.04547 - +,0.56062 ,0.27441 ,0.88927 ,0.07835 ,0.01179 ,0.00022 ,0.04512 - +,0.55254 ,0.26754 ,0.84059 ,0.07618 ,0.01300 ,0.00126 ,0.04467 - +,0.54467 ,0.26109 ,0.79564 ,0.07408 ,0.01400 ,0.00285 ,0.04412 - +,0.53711 ,0.25501 ,0.75413 ,0.07211 ,0.01472 ,0.00410 ,0.04347 - +,0.52969 ,0.24940 ,0.71589 ,0.07025 ,0.01527 ,0.00511 ,0.04281 - +,0.52254 ,0.24397 ,0.68046 ,0.06844 ,0.01572 ,0.00596 ,0.04212 - +,0.51552 ,0.23893 ,0.64780 ,0.06675 ,0.01604 ,0.00665 ,0.04141 - +,0.50873 ,0.23419 ,0.61777 ,0.06514 ,0.01629 ,0.00724 ,0.04072 - +,0.50218 ,0.22970 ,0.59011 ,0.06360 ,0.01647 ,0.00774 ,0.04005 - +,0.49581 ,0.22538 ,0.56426 ,0.06211 ,0.01658 ,0.00813 ,0.03942 - +,0.48971 ,0.22129 ,0.54047 ,0.06068 ,0.01666 ,0.00848 ,0.03880 - +,0.48378 ,0.21739 ,0.51833 ,0.05931 ,0.01672 ,0.00881 ,0.03817 - +,0.47803 ,0.21366 ,0.49775 ,0.05803 ,0.01673 ,0.00909 ,0.03754 - +,0.47247 ,0.21010 ,0.47860 ,0.05683 ,0.01668 ,0.00933 ,0.03690 - +,0.46695 ,0.20673 ,0.46072 ,0.05568 ,0.01664 ,0.00951 ,0.03628/ - DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),K=1,19)/ - + 0.61603 ,0.30141 ,0.97177 ,0.06914 ,0.00118 ,0.00004 ,0.03515 - +,0.60244 ,0.28929 ,0.90222 ,0.06661 ,0.00412 ,0.00001 ,0.03540 - +,0.58935 ,0.27863 ,0.83699 ,0.06415 ,0.00625 ,0.00003 ,0.03526 - +,0.57704 ,0.26901 ,0.77800 ,0.06186 ,0.00781 ,0.00000 ,0.03495 - +,0.56529 ,0.26026 ,0.72443 ,0.05975 ,0.00892 ,0.00009 ,0.03441 - +,0.55423 ,0.25225 ,0.67639 ,0.05772 ,0.00979 ,0.00086 ,0.03383 - +,0.54359 ,0.24493 ,0.63313 ,0.05583 ,0.01046 ,0.00208 ,0.03320 - +,0.53344 ,0.23817 ,0.59408 ,0.05402 ,0.01094 ,0.00295 ,0.03264 - +,0.52377 ,0.23196 ,0.55885 ,0.05234 ,0.01134 ,0.00371 ,0.03196 - +,0.51454 ,0.22602 ,0.52667 ,0.05078 ,0.01156 ,0.00442 ,0.03128 - +,0.50564 ,0.22053 ,0.49757 ,0.04929 ,0.01174 ,0.00486 ,0.03063 - +,0.49718 ,0.21538 ,0.47114 ,0.04788 ,0.01189 ,0.00523 ,0.03000 - +,0.48916 ,0.21049 ,0.44702 ,0.04655 ,0.01198 ,0.00562 ,0.02939 - +,0.48137 ,0.20580 ,0.42489 ,0.04529 ,0.01203 ,0.00589 ,0.02879 - +,0.47396 ,0.20141 ,0.40466 ,0.04410 ,0.01205 ,0.00611 ,0.02821 - +,0.46684 ,0.19727 ,0.38589 ,0.04296 ,0.01203 ,0.00628 ,0.02766 - +,0.45997 ,0.19333 ,0.36867 ,0.04190 ,0.01199 ,0.00642 ,0.02710 - +,0.45336 ,0.18958 ,0.35281 ,0.04090 ,0.01195 ,0.00652 ,0.02655 - +,0.44697 ,0.18603 ,0.33809 ,0.03993 ,0.01187 ,0.00661 ,0.02603/ - DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),K=1,19)/ - + 0.62597 ,0.28845 ,0.84624 ,0.05355 ,0.00093 ,0.00004 ,0.02727 - +,0.60716 ,0.27483 ,0.76939 ,0.05119 ,0.00321 ,-0.00002 ,0.02722 - +,0.58995 ,0.26272 ,0.70153 ,0.04900 ,0.00475 ,0.00001 ,0.02690 - +,0.57392 ,0.25223 ,0.64249 ,0.04696 ,0.00588 ,0.00009 ,0.02648 - +,0.55910 ,0.24275 ,0.59070 ,0.04505 ,0.00669 ,0.00022 ,0.02597 - +,0.54518 ,0.23422 ,0.54532 ,0.04331 ,0.00728 ,0.00077 ,0.02538 - +,0.53225 ,0.22641 ,0.50531 ,0.04164 ,0.00773 ,0.00159 ,0.02482 - +,0.51998 ,0.21929 ,0.46986 ,0.04011 ,0.00806 ,0.00224 ,0.02422 - +,0.50857 ,0.21256 ,0.43819 ,0.03867 ,0.00836 ,0.00271 ,0.02361 - +,0.49765 ,0.20632 ,0.41005 ,0.03739 ,0.00848 ,0.00314 ,0.02299 - +,0.48741 ,0.20050 ,0.38466 ,0.03616 ,0.00856 ,0.00343 ,0.02241 - +,0.47765 ,0.19512 ,0.36176 ,0.03498 ,0.00863 ,0.00368 ,0.02186 - +,0.46823 ,0.19018 ,0.34105 ,0.03386 ,0.00872 ,0.00391 ,0.02135 - +,0.45927 ,0.18551 ,0.32234 ,0.03285 ,0.00870 ,0.00409 ,0.02081 - +,0.45080 ,0.18112 ,0.30539 ,0.03191 ,0.00867 ,0.00426 ,0.02029 - +,0.44268 ,0.17694 ,0.28989 ,0.03103 ,0.00862 ,0.00444 ,0.01979 - +,0.43498 ,0.17295 ,0.27564 ,0.03018 ,0.00856 ,0.00453 ,0.01935 - +,0.42768 ,0.16914 ,0.26254 ,0.02936 ,0.00849 ,0.00454 ,0.01894 - +,0.42057 ,0.16558 ,0.25051 ,0.02859 ,0.00842 ,0.00462 ,0.01852/ - DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),K=1,19)/ - + 0.62507 ,0.27162 ,0.73192 ,0.04088 ,0.00072 ,0.00009 ,0.02077 - +,0.60163 ,0.25694 ,0.65287 ,0.03885 ,0.00239 ,0.00011 ,0.02067 - +,0.58059 ,0.24423 ,0.58583 ,0.03692 ,0.00360 ,0.00011 ,0.02033 - +,0.56153 ,0.23313 ,0.52924 ,0.03520 ,0.00448 ,0.00008 ,0.01980 - +,0.54412 ,0.22318 ,0.48086 ,0.03354 ,0.00508 ,0.00008 ,0.01940 - +,0.52807 ,0.21424 ,0.43937 ,0.03211 ,0.00546 ,0.00048 ,0.01886 - +,0.51323 ,0.20613 ,0.40328 ,0.03076 ,0.00577 ,0.00111 ,0.01831 - +,0.49937 ,0.19875 ,0.37160 ,0.02954 ,0.00600 ,0.00171 ,0.01772 - +,0.48615 ,0.19234 ,0.34404 ,0.02832 ,0.00614 ,0.00199 ,0.01730 - +,0.47407 ,0.18591 ,0.31950 ,0.02727 ,0.00623 ,0.00230 ,0.01676 - +,0.46275 ,0.17998 ,0.29770 ,0.02627 ,0.00626 ,0.00249 ,0.01630 - +,0.45198 ,0.17462 ,0.27833 ,0.02534 ,0.00627 ,0.00267 ,0.01588 - +,0.44161 ,0.16982 ,0.26107 ,0.02448 ,0.00629 ,0.00287 ,0.01546 - +,0.43197 ,0.16505 ,0.24537 ,0.02366 ,0.00630 ,0.00294 ,0.01503 - +,0.42290 ,0.16060 ,0.23125 ,0.02289 ,0.00628 ,0.00300 ,0.01462 - +,0.41424 ,0.15648 ,0.21846 ,0.02218 ,0.00621 ,0.00306 ,0.01423 - +,0.40598 ,0.15262 ,0.20684 ,0.02153 ,0.00612 ,0.00313 ,0.01384 - +,0.39811 ,0.14898 ,0.19625 ,0.02093 ,0.00600 ,0.00321 ,0.01347 - +,0.39058 ,0.14552 ,0.18657 ,0.02033 ,0.00595 ,0.00322 ,0.01314/ - DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),K=1,19)/ - + 0.61450 ,0.25244 ,0.62841 ,0.03079 ,0.00051 ,0.00010 ,0.01564 - +,0.58728 ,0.23712 ,0.55059 ,0.02902 ,0.00190 ,0.00012 ,0.01550 - +,0.56319 ,0.22392 ,0.48688 ,0.02740 ,0.00282 ,0.00016 ,0.01519 - +,0.54158 ,0.21255 ,0.43421 ,0.02602 ,0.00341 ,0.00010 ,0.01478 - +,0.52205 ,0.20250 ,0.39004 ,0.02470 ,0.00382 ,0.00009 ,0.01435 - +,0.50423 ,0.19359 ,0.35254 ,0.02355 ,0.00415 ,0.00046 ,0.01382 - +,0.48803 ,0.18543 ,0.32079 ,0.02243 ,0.00433 ,0.00095 ,0.01342 - +,0.47287 ,0.17818 ,0.29345 ,0.02144 ,0.00442 ,0.00129 ,0.01303 - +,0.45880 ,0.17156 ,0.26947 ,0.02053 ,0.00456 ,0.00145 ,0.01259 - +,0.44565 ,0.16542 ,0.24861 ,0.01968 ,0.00462 ,0.00165 ,0.01219 - +,0.43343 ,0.15976 ,0.23022 ,0.01890 ,0.00465 ,0.00178 ,0.01177 - +,0.42200 ,0.15455 ,0.21392 ,0.01818 ,0.00466 ,0.00191 ,0.01137 - +,0.41124 ,0.14973 ,0.19936 ,0.01750 ,0.00466 ,0.00206 ,0.01101 - +,0.40102 ,0.14525 ,0.18659 ,0.01689 ,0.00459 ,0.00215 ,0.01068 - +,0.39148 ,0.14104 ,0.17514 ,0.01632 ,0.00451 ,0.00221 ,0.01038 - +,0.38256 ,0.13699 ,0.16470 ,0.01577 ,0.00442 ,0.00220 ,0.01011 - +,0.37413 ,0.13321 ,0.15533 ,0.01523 ,0.00436 ,0.00221 ,0.00984 - +,0.36617 ,0.12968 ,0.14689 ,0.01470 ,0.00432 ,0.00224 ,0.00957 - +,0.35837 ,0.12640 ,0.13916 ,0.01424 ,0.00429 ,0.00226 ,0.00932/ - DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),K=1,19)/ - + 0.59623 ,0.23145 ,0.53546 ,0.02279 ,0.00037 ,0.00009 ,0.01174 - +,0.56581 ,0.21603 ,0.46150 ,0.02128 ,0.00158 ,-0.00001 ,0.01155 - +,0.53921 ,0.20287 ,0.40218 ,0.02004 ,0.00221 ,0.00008 ,0.01123 - +,0.51569 ,0.19152 ,0.35407 ,0.01899 ,0.00260 ,0.00008 ,0.01084 - +,0.49454 ,0.18168 ,0.31494 ,0.01802 ,0.00285 ,0.00012 ,0.01045 - +,0.47561 ,0.17287 ,0.28211 ,0.01709 ,0.00303 ,0.00035 ,0.01006 - +,0.45816 ,0.16510 ,0.25425 ,0.01624 ,0.00316 ,0.00066 ,0.00973 - +,0.44227 ,0.15800 ,0.23081 ,0.01544 ,0.00330 ,0.00085 ,0.00935 - +,0.42747 ,0.15168 ,0.21033 ,0.01475 ,0.00333 ,0.00110 ,0.00900 - +,0.41388 ,0.14565 ,0.19280 ,0.01407 ,0.00335 ,0.00114 ,0.00877 - +,0.40122 ,0.14023 ,0.17757 ,0.01348 ,0.00335 ,0.00128 ,0.00846 - +,0.38955 ,0.13525 ,0.16420 ,0.01291 ,0.00332 ,0.00140 ,0.00816 - +,0.37884 ,0.13058 ,0.15234 ,0.01234 ,0.00326 ,0.00142 ,0.00791 - +,0.36842 ,0.12632 ,0.14188 ,0.01188 ,0.00325 ,0.00150 ,0.00762 - +,0.35864 ,0.12237 ,0.13260 ,0.01145 ,0.00323 ,0.00157 ,0.00736 - +,0.34943 ,0.11866 ,0.12432 ,0.01105 ,0.00318 ,0.00161 ,0.00714 - +,0.34083 ,0.11515 ,0.11679 ,0.01066 ,0.00313 ,0.00162 ,0.00694 - +,0.33278 ,0.11185 ,0.10994 ,0.01028 ,0.00310 ,0.00162 ,0.00676 - +,0.32505 ,0.10879 ,0.10382 ,0.00993 ,0.00304 ,0.00164 ,0.00655/ - DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),K=1,19)/ - + 0.57130 ,0.20986 ,0.45268 ,0.01658 ,0.00040 ,0.00006 ,0.00860 - +,0.53839 ,0.19460 ,0.38372 ,0.01558 ,0.00111 ,0.00005 ,0.00836 - +,0.51006 ,0.18167 ,0.32981 ,0.01457 ,0.00160 ,0.00003 ,0.00818 - +,0.48504 ,0.17081 ,0.28723 ,0.01372 ,0.00195 ,0.00005 ,0.00782 - +,0.46317 ,0.16108 ,0.25261 ,0.01290 ,0.00220 ,0.00008 ,0.00753 - +,0.44311 ,0.15286 ,0.22425 ,0.01218 ,0.00233 ,0.00023 ,0.00729 - +,0.42527 ,0.14530 ,0.20045 ,0.01152 ,0.00243 ,0.00051 ,0.00703 - +,0.40900 ,0.13851 ,0.18057 ,0.01095 ,0.00247 ,0.00063 ,0.00673 - +,0.39407 ,0.13233 ,0.16383 ,0.01038 ,0.00252 ,0.00076 ,0.00650 - +,0.38013 ,0.12685 ,0.14925 ,0.00992 ,0.00250 ,0.00089 ,0.00623 - +,0.36755 ,0.12174 ,0.13658 ,0.00941 ,0.00247 ,0.00098 ,0.00603 - +,0.35580 ,0.11706 ,0.12557 ,0.00896 ,0.00244 ,0.00103 ,0.00584 - +,0.34458 ,0.11280 ,0.11598 ,0.00863 ,0.00240 ,0.00106 ,0.00560 - +,0.33440 ,0.10874 ,0.10749 ,0.00830 ,0.00240 ,0.00116 ,0.00538 - +,0.32484 ,0.10502 ,0.10002 ,0.00799 ,0.00240 ,0.00122 ,0.00519 - +,0.31562 ,0.10166 ,0.09344 ,0.00767 ,0.00237 ,0.00122 ,0.00506 - +,0.30708 ,0.09846 ,0.08749 ,0.00738 ,0.00231 ,0.00119 ,0.00489 - +,0.29915 ,0.09543 ,0.08210 ,0.00711 ,0.00221 ,0.00114 ,0.00469 - +,0.29158 ,0.09261 ,0.07723 ,0.00685 ,0.00216 ,0.00115 ,0.00455/ - DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),K=1,19)/ - + 0.54087 ,0.18863 ,0.37968 ,0.01207 ,0.00017 ,-0.00011 ,0.00607 - +,0.50635 ,0.17383 ,0.31697 ,0.01123 ,0.00076 ,-0.00009 ,0.00596 - +,0.47690 ,0.16143 ,0.26900 ,0.01047 ,0.00111 ,-0.00005 ,0.00582 - +,0.45143 ,0.15077 ,0.23153 ,0.00981 ,0.00140 ,-0.00002 ,0.00556 - +,0.42885 ,0.14169 ,0.20158 ,0.00923 ,0.00154 ,-0.00010 ,0.00533 - +,0.40888 ,0.13362 ,0.17767 ,0.00860 ,0.00173 ,0.00002 ,0.00518 - +,0.39078 ,0.12668 ,0.15761 ,0.00814 ,0.00175 ,0.00025 ,0.00491 - +,0.37456 ,0.12039 ,0.14113 ,0.00768 ,0.00174 ,0.00039 ,0.00469 - +,0.35932 ,0.11465 ,0.12699 ,0.00733 ,0.00179 ,0.00049 ,0.00452 - +,0.34590 ,0.10943 ,0.11494 ,0.00691 ,0.00175 ,0.00058 ,0.00437 - +,0.33328 ,0.10475 ,0.10465 ,0.00656 ,0.00174 ,0.00063 ,0.00423 - +,0.32159 ,0.10049 ,0.09582 ,0.00627 ,0.00173 ,0.00069 ,0.00406 - +,0.31082 ,0.09657 ,0.08817 ,0.00600 ,0.00172 ,0.00078 ,0.00386 - +,0.30066 ,0.09293 ,0.08139 ,0.00574 ,0.00169 ,0.00079 ,0.00374 - +,0.29120 ,0.08957 ,0.07541 ,0.00550 ,0.00166 ,0.00079 ,0.00363 - +,0.28231 ,0.08644 ,0.07011 ,0.00530 ,0.00163 ,0.00077 ,0.00348 - +,0.27407 ,0.08350 ,0.06542 ,0.00510 ,0.00161 ,0.00077 ,0.00334 - +,0.26640 ,0.08075 ,0.06123 ,0.00490 ,0.00158 ,0.00078 ,0.00321 - +,0.25912 ,0.07819 ,0.05747 ,0.00472 ,0.00152 ,0.00078 ,0.00309/ - DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),K=1,19)/ - + 0.50654 ,0.16707 ,0.31490 ,0.00836 ,0.00036 ,0.00012 ,0.00448 - +,0.47131 ,0.15282 ,0.25910 ,0.00781 ,0.00071 ,0.00017 ,0.00437 - +,0.44126 ,0.14122 ,0.21711 ,0.00728 ,0.00099 ,0.00010 ,0.00415 - +,0.41532 ,0.13150 ,0.18505 ,0.00678 ,0.00115 ,0.00010 ,0.00403 - +,0.39285 ,0.12299 ,0.15959 ,0.00633 ,0.00125 ,0.00005 ,0.00383 - +,0.37297 ,0.11550 ,0.13944 ,0.00598 ,0.00131 ,0.00022 ,0.00368 - +,0.35503 ,0.10899 ,0.12290 ,0.00565 ,0.00130 ,0.00031 ,0.00356 - +,0.33913 ,0.10320 ,0.10917 ,0.00524 ,0.00130 ,0.00038 ,0.00333 - +,0.32436 ,0.09807 ,0.09762 ,0.00503 ,0.00130 ,0.00041 ,0.00323 - +,0.31099 ,0.09337 ,0.08795 ,0.00472 ,0.00128 ,0.00046 ,0.00303 - +,0.29848 ,0.08915 ,0.07968 ,0.00453 ,0.00128 ,0.00049 ,0.00290 - +,0.28707 ,0.08527 ,0.07259 ,0.00434 ,0.00128 ,0.00051 ,0.00279 - +,0.27682 ,0.08165 ,0.06648 ,0.00413 ,0.00125 ,0.00051 ,0.00269 - +,0.26723 ,0.07835 ,0.06108 ,0.00388 ,0.00123 ,0.00053 ,0.00261 - +,0.25829 ,0.07534 ,0.05635 ,0.00368 ,0.00121 ,0.00054 ,0.00251 - +,0.24981 ,0.07260 ,0.05221 ,0.00356 ,0.00119 ,0.00052 ,0.00238 - +,0.24191 ,0.06999 ,0.04857 ,0.00344 ,0.00115 ,0.00052 ,0.00227 - +,0.23455 ,0.06751 ,0.04535 ,0.00333 ,0.00108 ,0.00053 ,0.00217 - +,0.22769 ,0.06522 ,0.04244 ,0.00320 ,0.00102 ,0.00054 ,0.00210/ - DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),K=1,19)/ - + 0.46927 ,0.14695 ,0.25950 ,0.00598 ,0.00013 ,-0.00008 ,0.00295 - +,0.43382 ,0.13366 ,0.21050 ,0.00551 ,0.00043 ,-0.00005 ,0.00298 - +,0.40386 ,0.12282 ,0.17449 ,0.00511 ,0.00063 ,-0.00004 ,0.00288 - +,0.37847 ,0.11367 ,0.14698 ,0.00478 ,0.00071 ,-0.00001 ,0.00269 - +,0.35640 ,0.10583 ,0.12562 ,0.00439 ,0.00086 ,0.00001 ,0.00260 - +,0.33666 ,0.09913 ,0.10873 ,0.00417 ,0.00088 ,0.00012 ,0.00251 - +,0.31938 ,0.09314 ,0.09514 ,0.00391 ,0.00089 ,0.00017 ,0.00237 - +,0.30376 ,0.08793 ,0.08394 ,0.00367 ,0.00089 ,0.00019 ,0.00225 - +,0.28964 ,0.08316 ,0.07465 ,0.00348 ,0.00088 ,0.00025 ,0.00213 - +,0.27663 ,0.07905 ,0.06696 ,0.00332 ,0.00085 ,0.00030 ,0.00205 - +,0.26490 ,0.07524 ,0.06038 ,0.00314 ,0.00086 ,0.00031 ,0.00195 - +,0.25424 ,0.07172 ,0.05474 ,0.00298 ,0.00087 ,0.00033 ,0.00186 - +,0.24445 ,0.06848 ,0.04986 ,0.00283 ,0.00085 ,0.00036 ,0.00182 - +,0.23524 ,0.06555 ,0.04568 ,0.00273 ,0.00082 ,0.00038 ,0.00172 - +,0.22676 ,0.06288 ,0.04202 ,0.00261 ,0.00078 ,0.00038 ,0.00163 - +,0.21898 ,0.06046 ,0.03880 ,0.00245 ,0.00074 ,0.00036 ,0.00157 - +,0.21169 ,0.05818 ,0.03596 ,0.00232 ,0.00074 ,0.00037 ,0.00151 - +,0.20487 ,0.05604 ,0.03345 ,0.00222 ,0.00075 ,0.00040 ,0.00146 - +,0.19838 ,0.05405 ,0.03124 ,0.00214 ,0.00071 ,0.00037 ,0.00138/ - DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),K=1,19)/ - + 0.43009 ,0.12748 ,0.21112 ,0.00400 ,0.00019 ,0.00002 ,0.00215 - +,0.39534 ,0.11524 ,0.16894 ,0.00369 ,0.00033 ,0.00007 ,0.00208 - +,0.36578 ,0.10533 ,0.13843 ,0.00350 ,0.00046 ,0.00001 ,0.00200 - +,0.34110 ,0.09703 ,0.11542 ,0.00319 ,0.00054 ,-0.00002 ,0.00190 - +,0.31934 ,0.09006 ,0.09785 ,0.00304 ,0.00061 ,0.00000 ,0.00184 - +,0.30080 ,0.08395 ,0.08407 ,0.00279 ,0.00061 ,0.00005 ,0.00172 - +,0.28407 ,0.07862 ,0.07303 ,0.00264 ,0.00066 ,0.00012 ,0.00163 - +,0.26930 ,0.07392 ,0.06397 ,0.00244 ,0.00068 ,0.00014 ,0.00157 - +,0.25601 ,0.06967 ,0.05662 ,0.00235 ,0.00064 ,0.00022 ,0.00148 - +,0.24384 ,0.06594 ,0.05046 ,0.00218 ,0.00061 ,0.00020 ,0.00143 - +,0.23282 ,0.06263 ,0.04527 ,0.00205 ,0.00062 ,0.00023 ,0.00136 - +,0.22278 ,0.05960 ,0.04086 ,0.00194 ,0.00062 ,0.00025 ,0.00128 - +,0.21358 ,0.05679 ,0.03710 ,0.00184 ,0.00058 ,0.00022 ,0.00117 - +,0.20497 ,0.05427 ,0.03384 ,0.00175 ,0.00058 ,0.00021 ,0.00117 - +,0.19705 ,0.05195 ,0.03101 ,0.00169 ,0.00057 ,0.00021 ,0.00115 - +,0.18975 ,0.04974 ,0.02855 ,0.00165 ,0.00054 ,0.00024 ,0.00110 - +,0.18302 ,0.04774 ,0.02640 ,0.00158 ,0.00053 ,0.00025 ,0.00104 - +,0.17679 ,0.04590 ,0.02450 ,0.00149 ,0.00053 ,0.00025 ,0.00099 - +,0.17091 ,0.04418 ,0.02281 ,0.00142 ,0.00051 ,0.00025 ,0.00094/ - DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),K=1,19)/ - + 0.39010 ,0.10947 ,0.17025 ,0.00268 ,0.00019 ,0.00006 ,0.00143 - +,0.35623 ,0.09848 ,0.13460 ,0.00249 ,0.00028 ,0.00002 ,0.00144 - +,0.32772 ,0.08962 ,0.10892 ,0.00237 ,0.00032 ,-0.00001 ,0.00133 - +,0.30394 ,0.08214 ,0.09000 ,0.00228 ,0.00034 ,0.00006 ,0.00124 - +,0.28366 ,0.07586 ,0.07568 ,0.00205 ,0.00039 ,0.00008 ,0.00118 - +,0.26605 ,0.07053 ,0.06443 ,0.00184 ,0.00040 ,0.00004 ,0.00115 - +,0.25030 ,0.06575 ,0.05557 ,0.00178 ,0.00037 ,0.00005 ,0.00105 - +,0.23643 ,0.06159 ,0.04843 ,0.00167 ,0.00039 ,0.00007 ,0.00098 - +,0.22394 ,0.05798 ,0.04259 ,0.00158 ,0.00043 ,0.00014 ,0.00096 - +,0.21274 ,0.05471 ,0.03780 ,0.00149 ,0.00036 ,0.00010 ,0.00089 - +,0.20253 ,0.05173 ,0.03375 ,0.00142 ,0.00037 ,0.00012 ,0.00084 - +,0.19326 ,0.04906 ,0.03032 ,0.00135 ,0.00038 ,0.00014 ,0.00079 - +,0.18482 ,0.04669 ,0.02742 ,0.00126 ,0.00034 ,0.00014 ,0.00075 - +,0.17699 ,0.04447 ,0.02494 ,0.00119 ,0.00034 ,0.00013 ,0.00071 - +,0.16982 ,0.04245 ,0.02278 ,0.00112 ,0.00034 ,0.00012 ,0.00067 - +,0.16322 ,0.04061 ,0.02089 ,0.00105 ,0.00034 ,0.00011 ,0.00066 - +,0.15707 ,0.03891 ,0.01925 ,0.00100 ,0.00032 ,0.00011 ,0.00063 - +,0.15133 ,0.03733 ,0.01783 ,0.00097 ,0.00030 ,0.00011 ,0.00058 - +,0.14601 ,0.03587 ,0.01656 ,0.00092 ,0.00027 ,0.00011 ,0.00055/ - DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),K=1,19)/ - + 0.35004 ,0.09294 ,0.13575 ,0.00180 ,0.00009 ,-0.00001 ,0.00095 - +,0.31737 ,0.08312 ,0.10571 ,0.00162 ,0.00020 ,-0.00002 ,0.00094 - +,0.29045 ,0.07514 ,0.08459 ,0.00157 ,0.00021 ,-0.00001 ,0.00086 - +,0.26790 ,0.06854 ,0.06905 ,0.00147 ,0.00030 ,-0.00001 ,0.00085 - +,0.24881 ,0.06300 ,0.05755 ,0.00133 ,0.00029 ,-0.00006 ,0.00079 - +,0.23243 ,0.05822 ,0.04867 ,0.00122 ,0.00035 ,-0.00001 ,0.00078 - +,0.21802 ,0.05416 ,0.04163 ,0.00106 ,0.00032 ,0.00002 ,0.00075 - +,0.20518 ,0.05055 ,0.03607 ,0.00105 ,0.00030 ,0.00006 ,0.00072 - +,0.19356 ,0.04737 ,0.03156 ,0.00100 ,0.00033 ,0.00009 ,0.00069 - +,0.18306 ,0.04457 ,0.02780 ,0.00098 ,0.00028 ,0.00008 ,0.00061 - +,0.17381 ,0.04206 ,0.02470 ,0.00090 ,0.00026 ,0.00009 ,0.00057 - +,0.16547 ,0.03979 ,0.02210 ,0.00083 ,0.00027 ,0.00010 ,0.00055 - +,0.15782 ,0.03771 ,0.01991 ,0.00077 ,0.00029 ,0.00011 ,0.00054 - +,0.15077 ,0.03583 ,0.01804 ,0.00075 ,0.00027 ,0.00011 ,0.00052 - +,0.14435 ,0.03412 ,0.01642 ,0.00071 ,0.00026 ,0.00012 ,0.00049 - +,0.13851 ,0.03255 ,0.01502 ,0.00064 ,0.00025 ,0.00012 ,0.00045 - +,0.13301 ,0.03110 ,0.01381 ,0.00060 ,0.00026 ,0.00012 ,0.00043 - +,0.12784 ,0.02978 ,0.01274 ,0.00057 ,0.00027 ,0.00011 ,0.00044 - +,0.12314 ,0.02855 ,0.01180 ,0.00054 ,0.00027 ,0.00012 ,0.00043/ - DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),K=1,19)/ - + 0.31041 ,0.07819 ,0.10707 ,0.00123 ,0.00000 ,-0.00004 ,0.00058 - +,0.28003 ,0.06934 ,0.08223 ,0.00107 ,0.00005 ,-0.00008 ,0.00058 - +,0.25490 ,0.06240 ,0.06511 ,0.00102 ,0.00012 ,-0.00003 ,0.00054 - +,0.23402 ,0.05671 ,0.05262 ,0.00088 ,0.00020 ,-0.00007 ,0.00055 - +,0.21610 ,0.05186 ,0.04350 ,0.00090 ,0.00016 ,-0.00004 ,0.00049 - +,0.20101 ,0.04778 ,0.03649 ,0.00083 ,0.00019 ,-0.00003 ,0.00048 - +,0.18765 ,0.04429 ,0.03103 ,0.00076 ,0.00019 ,-0.00004 ,0.00044 - +,0.17596 ,0.04117 ,0.02670 ,0.00074 ,0.00018 ,0.00001 ,0.00042 - +,0.16558 ,0.03845 ,0.02322 ,0.00069 ,0.00015 ,0.00000 ,0.00036 - +,0.15630 ,0.03605 ,0.02038 ,0.00064 ,0.00017 ,0.00003 ,0.00036 - +,0.14789 ,0.03391 ,0.01802 ,0.00062 ,0.00017 ,0.00004 ,0.00035 - +,0.14032 ,0.03199 ,0.01606 ,0.00058 ,0.00017 ,0.00005 ,0.00035 - +,0.13352 ,0.03026 ,0.01443 ,0.00053 ,0.00017 ,0.00005 ,0.00035 - +,0.12727 ,0.02869 ,0.01303 ,0.00049 ,0.00016 ,0.00006 ,0.00033 - +,0.12155 ,0.02727 ,0.01183 ,0.00046 ,0.00015 ,0.00006 ,0.00031 - +,0.11621 ,0.02597 ,0.01079 ,0.00045 ,0.00016 ,0.00005 ,0.00028 - +,0.11133 ,0.02476 ,0.00989 ,0.00043 ,0.00016 ,0.00005 ,0.00026 - +,0.10685 ,0.02364 ,0.00910 ,0.00040 ,0.00016 ,0.00006 ,0.00025 - +,0.10270 ,0.02262 ,0.00841 ,0.00039 ,0.00016 ,0.00007 ,0.00025/ - DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),K=1,19)/ - + 0.27216 ,0.06472 ,0.08318 ,0.00076 ,0.00004 ,-0.00004 ,0.00030 - +,0.24361 ,0.05712 ,0.06317 ,0.00073 ,0.00005 ,-0.00004 ,0.00031 - +,0.22060 ,0.05111 ,0.04933 ,0.00070 ,0.00008 ,0.00002 ,0.00036 - +,0.20136 ,0.04619 ,0.03956 ,0.00073 ,0.00010 ,-0.00003 ,0.00032 - +,0.18541 ,0.04214 ,0.03240 ,0.00059 ,0.00008 ,-0.00005 ,0.00027 - +,0.17174 ,0.03862 ,0.02699 ,0.00052 ,0.00010 ,-0.00004 ,0.00026 - +,0.15981 ,0.03566 ,0.02279 ,0.00048 ,0.00009 ,-0.00001 ,0.00024 - +,0.14926 ,0.03305 ,0.01948 ,0.00049 ,0.00011 ,-0.00001 ,0.00026 - +,0.14021 ,0.03079 ,0.01685 ,0.00038 ,0.00011 ,-0.00001 ,0.00023 - +,0.13194 ,0.02876 ,0.01472 ,0.00034 ,0.00009 ,-0.00003 ,0.00021 - +,0.12455 ,0.02697 ,0.01297 ,0.00031 ,0.00010 ,-0.00002 ,0.00021 - +,0.11781 ,0.02538 ,0.01151 ,0.00032 ,0.00012 ,0.00002 ,0.00021 - +,0.11158 ,0.02393 ,0.01028 ,0.00037 ,0.00013 ,0.00006 ,0.00022 - +,0.10609 ,0.02263 ,0.00927 ,0.00033 ,0.00011 ,0.00006 ,0.00020 - +,0.10110 ,0.02146 ,0.00839 ,0.00030 ,0.00011 ,0.00005 ,0.00019 - +,0.09652 ,0.02039 ,0.00762 ,0.00028 ,0.00012 ,0.00006 ,0.00020 - +,0.09227 ,0.01940 ,0.00697 ,0.00026 ,0.00011 ,0.00005 ,0.00018 - +,0.08834 ,0.01850 ,0.00640 ,0.00024 ,0.00010 ,0.00003 ,0.00016 - +,0.08473 ,0.01766 ,0.00591 ,0.00022 ,0.00009 ,0.00003 ,0.00015/ - DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),K=1,19)/ - + 0.23580 ,0.05296 ,0.06379 ,0.00047 ,0.00000 ,-0.00004 ,0.00019 - +,0.20963 ,0.04647 ,0.04767 ,0.00047 ,0.00002 ,-0.00007 ,0.00018 - +,0.18873 ,0.04129 ,0.03682 ,0.00041 ,0.00002 ,-0.00009 ,0.00024 - +,0.17139 ,0.03714 ,0.02922 ,0.00042 ,0.00007 ,-0.00007 ,0.00018 - +,0.15703 ,0.03369 ,0.02372 ,0.00037 ,0.00008 ,-0.00005 ,0.00016 - +,0.14488 ,0.03077 ,0.01959 ,0.00031 ,0.00006 ,-0.00006 ,0.00016 - +,0.13432 ,0.02826 ,0.01643 ,0.00030 ,0.00005 ,-0.00001 ,0.00019 - +,0.12494 ,0.02611 ,0.01396 ,0.00030 ,0.00007 ,-0.00001 ,0.00017 - +,0.11681 ,0.02421 ,0.01200 ,0.00029 ,0.00012 ,0.00003 ,0.00018 - +,0.10961 ,0.02256 ,0.01044 ,0.00026 ,0.00010 ,0.00002 ,0.00016 - +,0.10319 ,0.02109 ,0.00915 ,0.00022 ,0.00009 ,0.00002 ,0.00014 - +,0.09742 ,0.01978 ,0.00809 ,0.00017 ,0.00009 ,0.00003 ,0.00014 - +,0.09222 ,0.01861 ,0.00720 ,0.00014 ,0.00011 ,0.00004 ,0.00014 - +,0.08733 ,0.01755 ,0.00646 ,0.00015 ,0.00009 ,0.00003 ,0.00014 - +,0.08293 ,0.01660 ,0.00583 ,0.00016 ,0.00008 ,0.00002 ,0.00013 - +,0.07901 ,0.01571 ,0.00529 ,0.00014 ,0.00009 ,0.00004 ,0.00013 - +,0.07535 ,0.01492 ,0.00482 ,0.00013 ,0.00008 ,0.00003 ,0.00012 - +,0.07193 ,0.01420 ,0.00442 ,0.00013 ,0.00007 ,0.00002 ,0.00012 - +,0.06878 ,0.01353 ,0.00406 ,0.00013 ,0.00007 ,0.00002 ,0.00011/ - DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),K=1,19)/ - + 0.20148 ,0.04259 ,0.04800 ,0.00032 ,-0.00002 ,-0.00002 ,0.00012 - +,0.17780 ,0.03712 ,0.03538 ,0.00030 ,-0.00001 ,-0.00003 ,0.00009 - +,0.15932 ,0.03277 ,0.02700 ,0.00022 ,0.00002 ,-0.00006 ,0.00009 - +,0.14400 ,0.02932 ,0.02119 ,0.00021 ,0.00006 ,-0.00006 ,0.00014 - +,0.13120 ,0.02649 ,0.01703 ,0.00021 ,0.00008 ,-0.00002 ,0.00014 - +,0.12053 ,0.02408 ,0.01394 ,0.00017 ,0.00006 ,-0.00002 ,0.00014 - +,0.11121 ,0.02203 ,0.01162 ,0.00015 ,0.00007 ,-0.00002 ,0.00011 - +,0.10300 ,0.02027 ,0.00983 ,0.00019 ,0.00008 ,0.00001 ,0.00012 - +,0.09596 ,0.01872 ,0.00841 ,0.00015 ,0.00006 ,0.00001 ,0.00012 - +,0.08974 ,0.01739 ,0.00726 ,0.00013 ,0.00007 ,0.00003 ,0.00011 - +,0.08411 ,0.01621 ,0.00634 ,0.00013 ,0.00007 ,0.00004 ,0.00012 - +,0.07913 ,0.01517 ,0.00559 ,0.00011 ,0.00007 ,0.00004 ,0.00012 - +,0.07477 ,0.01423 ,0.00496 ,0.00009 ,0.00007 ,0.00004 ,0.00012 - +,0.07067 ,0.01338 ,0.00444 ,0.00007 ,0.00007 ,0.00003 ,0.00010 - +,0.06694 ,0.01262 ,0.00399 ,0.00006 ,0.00007 ,0.00002 ,0.00008 - +,0.06354 ,0.01193 ,0.00361 ,0.00006 ,0.00008 ,0.00003 ,0.00008 - +,0.06046 ,0.01129 ,0.00329 ,0.00006 ,0.00007 ,0.00003 ,0.00008 - +,0.05765 ,0.01071 ,0.00301 ,0.00004 ,0.00006 ,0.00002 ,0.00007 - +,0.05503 ,0.01018 ,0.00276 ,0.00005 ,0.00006 ,0.00002 ,0.00007/ - DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),K=1,19)/ - + 0.16982 ,0.03391 ,0.03567 ,0.00022 ,-0.00005 ,-0.00006 ,0.00000 - +,0.14910 ,0.02933 ,0.02591 ,0.00016 ,-0.00002 ,-0.00009 ,0.00004 - +,0.13261 ,0.02576 ,0.01955 ,0.00018 ,0.00002 ,-0.00004 ,0.00007 - +,0.11933 ,0.02290 ,0.01519 ,0.00015 ,0.00002 ,-0.00006 ,0.00005 - +,0.10818 ,0.02059 ,0.01212 ,0.00013 ,0.00002 ,-0.00004 ,0.00006 - +,0.09891 ,0.01863 ,0.00988 ,0.00011 ,0.00002 ,-0.00004 ,0.00004 - +,0.09081 ,0.01699 ,0.00817 ,0.00014 ,0.00002 ,-0.00004 ,0.00006 - +,0.08399 ,0.01558 ,0.00686 ,0.00011 ,0.00002 ,-0.00002 ,0.00005 - +,0.07803 ,0.01436 ,0.00584 ,0.00007 ,0.00005 ,0.00000 ,0.00005 - +,0.07263 ,0.01328 ,0.00504 ,0.00009 ,0.00004 ,0.00001 ,0.00007 - +,0.06789 ,0.01235 ,0.00438 ,0.00008 ,0.00004 ,0.00000 ,0.00006 - +,0.06370 ,0.01152 ,0.00384 ,0.00006 ,0.00003 ,0.00000 ,0.00005 - +,0.05995 ,0.01076 ,0.00340 ,0.00005 ,0.00003 ,0.00001 ,0.00005 - +,0.05651 ,0.01009 ,0.00304 ,0.00005 ,0.00003 ,0.00000 ,0.00005 - +,0.05340 ,0.00949 ,0.00273 ,0.00006 ,0.00003 ,0.00000 ,0.00004 - +,0.05058 ,0.00896 ,0.00246 ,0.00005 ,0.00003 ,0.00000 ,0.00004 - +,0.04801 ,0.00847 ,0.00223 ,0.00005 ,0.00002 ,0.00000 ,0.00004 - +,0.04565 ,0.00801 ,0.00204 ,0.00004 ,0.00002 ,0.00000 ,0.00004 - +,0.04349 ,0.00760 ,0.00187 ,0.00004 ,0.00002 ,0.00000 ,0.00003/ - DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),K=1,19)/ - + 0.14066 ,0.02631 ,0.02583 ,0.00011 ,-0.00001 ,-0.00003 ,0.00003 - +,0.12272 ,0.02264 ,0.01858 ,0.00009 ,0.00001 ,-0.00001 ,0.00004 - +,0.10852 ,0.01979 ,0.01388 ,0.00010 ,-0.00001 ,-0.00003 ,0.00002 - +,0.09708 ,0.01752 ,0.01071 ,0.00011 ,0.00000 ,-0.00002 ,0.00003 - +,0.08776 ,0.01570 ,0.00847 ,0.00008 ,0.00001 ,-0.00002 ,0.00002 - +,0.07982 ,0.01414 ,0.00686 ,0.00009 ,0.00001 ,-0.00001 ,0.00001 - +,0.07317 ,0.01286 ,0.00565 ,0.00008 ,0.00001 ,0.00001 ,0.00002 - +,0.06737 ,0.01175 ,0.00472 ,0.00007 ,0.00002 ,0.00000 ,0.00004 - +,0.06228 ,0.01080 ,0.00400 ,0.00007 ,0.00000 ,0.00000 ,0.00003 - +,0.05786 ,0.00997 ,0.00342 ,0.00005 ,0.00002 ,0.00000 ,0.00003 - +,0.05389 ,0.00923 ,0.00297 ,0.00006 ,0.00002 ,0.00000 ,0.00002 - +,0.05037 ,0.00859 ,0.00260 ,0.00007 ,0.00002 ,0.00000 ,0.00002 - +,0.04725 ,0.00802 ,0.00229 ,0.00006 ,0.00000 ,0.00000 ,0.00002 - +,0.04446 ,0.00750 ,0.00204 ,0.00005 ,0.00000 ,0.00000 ,0.00002 - +,0.04193 ,0.00704 ,0.00182 ,0.00004 ,0.00001 ,-0.00001 ,0.00001 - +,0.03960 ,0.00662 ,0.00164 ,0.00004 ,0.00000 ,0.00000 ,0.00001 - +,0.03749 ,0.00625 ,0.00149 ,0.00004 ,0.00000 ,0.00000 ,0.00001 - +,0.03558 ,0.00590 ,0.00136 ,0.00004 ,0.00001 ,0.00000 ,0.00001 - +,0.03383 ,0.00559 ,0.00124 ,0.00004 ,0.00001 ,0.00000 ,0.00001/ - DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),K=1,19)/ - + 0.09154 ,0.01495 ,0.01266 ,0.00003 ,-0.00002 ,-0.00002 ,0.00000 - +,0.07871 ,0.01266 ,0.00883 ,0.00003 ,-0.00001 ,-0.00001 ,0.00002 - +,0.06870 ,0.01093 ,0.00643 ,0.00003 ,0.00000 ,-0.00001 ,0.00001 - +,0.06074 ,0.00957 ,0.00486 ,0.00003 ,0.00001 ,-0.00002 ,0.00000 - +,0.05433 ,0.00847 ,0.00377 ,0.00002 ,0.00000 ,-0.00002 ,0.00001 - +,0.04900 ,0.00757 ,0.00300 ,0.00001 ,0.00002 ,0.00000 ,0.00002 - +,0.04447 ,0.00682 ,0.00244 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.04060 ,0.00618 ,0.00201 ,0.00001 ,0.00001 ,0.00000 ,0.00002 - +,0.03725 ,0.00563 ,0.00169 ,0.00000 ,0.00001 ,0.00000 ,0.00001 - +,0.03430 ,0.00515 ,0.00144 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.03174 ,0.00474 ,0.00123 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02948 ,0.00438 ,0.00107 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02745 ,0.00406 ,0.00094 ,0.00002 ,0.00001 ,0.00000 ,0.00001 - +,0.02567 ,0.00378 ,0.00083 ,0.00001 ,0.00001 ,0.00000 ,0.00000 - +,0.02408 ,0.00353 ,0.00074 ,0.00001 ,0.00001 ,0.00000 ,0.00000 - +,0.02263 ,0.00330 ,0.00066 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02132 ,0.00310 ,0.00060 ,0.00001 ,0.00001 ,0.00000 ,0.00001 - +,0.02014 ,0.00291 ,0.00054 ,0.00000 ,0.00001 ,0.00000 ,0.00001 - +,0.01905 ,0.00274 ,0.00049 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),K=1,19)/ - + 0.05476 ,0.00773 ,0.00555 ,0.00001 ,-0.00002 ,-0.00002 ,-0.00002 - +,0.04631 ,0.00644 ,0.00376 ,0.00002 ,0.00000 ,-0.00001 ,0.00000 - +,0.03992 ,0.00548 ,0.00267 ,0.00001 ,-0.00001 ,-0.00001 ,0.00000 - +,0.03487 ,0.00474 ,0.00197 ,0.00001 ,0.00000 ,0.00000 ,0.00001 - +,0.03084 ,0.00415 ,0.00150 ,0.00000 ,0.00000 ,-0.00001 ,0.00000 - +,0.02748 ,0.00367 ,0.00118 ,0.00000 ,0.00000 ,-0.00001 ,0.00000 - +,0.02471 ,0.00327 ,0.00094 ,0.00000 ,0.00000 ,-0.00001 ,0.00001 - +,0.02233 ,0.00294 ,0.00077 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.02034 ,0.00266 ,0.00064 ,0.00000 ,0.00001 ,0.00001 ,0.00001 - +,0.01857 ,0.00241 ,0.00054 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01705 ,0.00220 ,0.00046 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01573 ,0.00202 ,0.00040 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01457 ,0.00186 ,0.00035 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01352 ,0.00172 ,0.00030 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01259 ,0.00159 ,0.00027 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01177 ,0.00148 ,0.00024 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01103 ,0.00138 ,0.00022 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01036 ,0.00129 ,0.00020 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00974 ,0.00121 ,0.00018 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),K=1,19)/ - + 0.02907 ,0.00346 ,0.00207 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.02418 ,0.00284 ,0.00136 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.02051 ,0.00238 ,0.00094 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01765 ,0.00203 ,0.00068 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01541 ,0.00176 ,0.00051 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.01361 ,0.00154 ,0.00039 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01209 ,0.00135 ,0.00031 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01082 ,0.00120 ,0.00025 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00976 ,0.00108 ,0.00021 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00885 ,0.00097 ,0.00017 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00806 ,0.00088 ,0.00015 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00737 ,0.00080 ,0.00013 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00677 ,0.00073 ,0.00011 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00625 ,0.00067 ,0.00010 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00578 ,0.00062 ,0.00008 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00536 ,0.00057 ,0.00008 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00499 ,0.00053 ,0.00007 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00466 ,0.00049 ,0.00006 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00436 ,0.00046 ,0.00006 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),K=1,19)/ - + 0.01312 ,0.00128 ,0.00062 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.01068 ,0.00103 ,0.00039 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00889 ,0.00085 ,0.00026 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00754 ,0.00071 ,0.00018 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00648 ,0.00060 ,0.00014 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00563 ,0.00052 ,0.00010 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00494 ,0.00045 ,0.00008 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00437 ,0.00040 ,0.00006 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00390 ,0.00035 ,0.00005 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00349 ,0.00031 ,0.00004 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00315 ,0.00028 ,0.00004 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00285 ,0.00025 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00260 ,0.00023 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00238 ,0.00021 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00218 ,0.00019 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00201 ,0.00018 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00185 ,0.00016 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00172 ,0.00015 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00160 ,0.00014 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),K=1,19)/ - + 0.00099 ,0.00005 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00076 ,0.00004 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00060 ,0.00003 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00049 ,0.00003 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00040 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00034 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00028 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00024 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00021 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00018 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00016 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00014 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00013 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00011 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00010 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00009 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00008 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00007 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00007 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, - . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,4,5,0,0,5/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C -C - XSAVE=X -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,NX-1 - DO 20 M=1,19 -C READ(75,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), -C . F(6,N,M) -C 1=UV 2=DV 3=GLUE 4=(UBAR+DBAR)/2 5=CBAR 7=BBAR 6=SBAR - DO 25 I=1,7 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,NTENTH-1 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=1,6 - DO 30 K=1,19 - 30 F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K)) - 50 FORMAT(7F10.5) - DO 40 I=1,7 - DO 40 M=1,19 - 40 F(I,NX,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,7 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.NTENTH) GOTO 65 - IF(I.EQ.7) GOTO 65 - FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) -C... THIS SEA IS (UBAR+DBAR)/2 - SEA=G(4) - STR=G(6) - CHM=G(5) - GL =G(3) - BOT=G(7) -C - X=XSAVE -C - RETURN - END diff --git a/PDF/spdf/strmrs1.F b/PDF/spdf/strmrs1.F deleted file mode 100644 index 7240190bdd8..00000000000 --- a/PDF/spdf/strmrs1.F +++ /dev/null @@ -1,904 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:43 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:03 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE STRMRS1(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C -C :::::::::::: MARTIN ROBERTS STIRLING :::::SOFT GLUE::::107 MEV:::: -C -#include "pdf/impdp.inc" - DIMENSION F(6,42,19),G(6),XX(42),N0(6) - DATA ((F(I,1,K),I=1,6),K=1,19)/ - + 0.02658 ,0.00530 ,4.51006 ,0.17402 ,0.02442 ,0.00000 - +,0.02814 ,0.00592 ,11.18082 ,0.31122 ,0.12735 ,0.00000 - +,0.02958 ,0.00651 ,18.83687 ,0.49216 ,0.26306 ,0.00000 - +,0.03092 ,0.00707 ,26.82784 ,0.70650 ,0.42380 ,0.00000 - +,0.03217 ,0.00760 ,35.16595 ,0.94641 ,0.60696 ,0.01303 - +,0.03336 ,0.00811 ,43.71019 ,1.17914 ,0.80879 ,0.12228 - +,0.03449 ,0.00861 ,52.38245 ,1.38683 ,1.02653 ,0.37028 - +,0.03557 ,0.00909 ,60.99461 ,1.61313 ,1.25467 ,0.60412 - +,0.03661 ,0.00955 ,69.65259 ,1.85015 ,1.49412 ,0.85104 - +,0.03761 ,0.01000 ,78.34851 ,2.09751 ,1.74395 ,1.10846 - +,0.03857 ,0.01044 ,87.05826 ,2.35430 ,2.00294 ,1.37425 - +,0.03950 ,0.01087 ,95.48085 ,2.61128 ,2.26199 ,1.63973 - +,0.04039 ,0.01129,103.95073 ,2.87689 ,2.52955 ,1.91334 - +,0.04126 ,0.01170,112.30336 ,3.14597 ,2.80047 ,2.18996 - +,0.04210 ,0.01209,120.47197 ,3.41583 ,3.07205 ,2.46693 - +,0.04292 ,0.01248,128.65518 ,3.69208 ,3.34993 ,2.74994 - +,0.04371 ,0.01286,136.52747 ,3.96407 ,3.62347 ,3.02833 - +,0.04449 ,0.01324,144.46341 ,4.24324 ,3.90412 ,3.31362 - +,0.04524 ,0.01360,152.06937 ,4.51646 ,4.17873 ,3.59265/ - DATA ((F(I,2,K),I=1,6),K=1,19)/ - + 0.03648 ,0.00837 ,4.29922 ,0.17511 ,0.02249 ,0.00000 - +,0.03848 ,0.00927 ,9.62766 ,0.29571 ,0.11296 ,0.00000 - +,0.04032 ,0.01011 ,15.39951 ,0.44678 ,0.22627 ,0.00000 - +,0.04202 ,0.01091 ,21.21265 ,0.61910 ,0.35552 ,0.00000 - +,0.04360 ,0.01166 ,27.11397 ,0.80639 ,0.49851 ,0.01008 - +,0.04510 ,0.01238 ,33.02528 ,0.98383 ,0.65230 ,0.09294 - +,0.04652 ,0.01307 ,38.90810 ,1.13851 ,0.81485 ,0.27915 - +,0.04787 ,0.01374 ,44.64717 ,1.30431 ,0.98222 ,0.45130 - +,0.04916 ,0.01438 ,50.32643 ,1.47525 ,1.15518 ,0.63036 - +,0.05040 ,0.01500 ,55.94949 ,1.65118 ,1.33315 ,0.81449 - +,0.05159 ,0.01560 ,61.50812 ,1.83154 ,1.51534 ,1.00222 - +,0.05273 ,0.01619 ,66.81026 ,2.00994 ,1.69547 ,1.18760 - +,0.05383 ,0.01675 ,72.08434 ,2.19242 ,1.87957 ,1.37665 - +,0.05490 ,0.01730 ,77.22752 ,2.37548 ,2.06417 ,1.56591 - +,0.05593 ,0.01784 ,82.20232 ,2.55738 ,2.24752 ,1.75367 - +,0.05693 ,0.01836 ,87.14191 ,2.74207 ,2.43358 ,1.94392 - +,0.05790 ,0.01887 ,91.84142 ,2.92236 ,2.61517 ,2.12950 - +,0.05884 ,0.01937 ,96.54417 ,3.10610 ,2.80017 ,2.31830 - +,0.05975 ,0.01986,101.00369 ,3.28454 ,2.97979 ,2.50154/ - DATA ((F(I,3,K),I=1,6),K=1,19)/ - + 0.04988 ,0.01320 ,4.09676 ,0.17545 ,0.02044 ,0.00000 - +,0.05242 ,0.01449 ,8.28856 ,0.28015 ,0.09902 ,0.00000 - +,0.05475 ,0.01569 ,12.58587 ,0.40479 ,0.19255 ,0.00000 - +,0.05689 ,0.01682 ,16.76614 ,0.54180 ,0.29534 ,0.00000 - +,0.05888 ,0.01787 ,20.89520 ,0.68643 ,0.40579 ,0.00772 - +,0.06075 ,0.01888 ,24.93729 ,0.82027 ,0.52177 ,0.06996 - +,0.06252 ,0.01984 ,28.87984 ,0.93422 ,0.64190 ,0.20849 - +,0.06419 ,0.02075 ,32.65591 ,1.05437 ,0.76344 ,0.33405 - +,0.06579 ,0.02163 ,36.33200 ,1.17633 ,0.88711 ,0.46271 - +,0.06731 ,0.02248 ,39.91786 ,1.30010 ,1.01259 ,0.59322 - +,0.06877 ,0.02329 ,43.41414 ,1.42539 ,1.13944 ,0.72460 - +,0.07017 ,0.02408 ,46.70076 ,1.54787 ,1.26339 ,0.85283 - +,0.07151 ,0.02484 ,49.93265 ,1.67183 ,1.38875 ,0.98224 - +,0.07281 ,0.02558 ,53.04704 ,1.79496 ,1.51319 ,1.11050 - +,0.07406 ,0.02629 ,56.02382 ,1.91616 ,1.63564 ,1.23656 - +,0.07526 ,0.02699 ,58.95198 ,2.03819 ,1.75885 ,1.36321 - +,0.07643 ,0.02766 ,61.70383 ,2.15626 ,1.87806 ,1.48569 - +,0.07756 ,0.02831 ,64.43666 ,2.27576 ,1.99864 ,1.60939 - +,0.07866 ,0.02895 ,66.99721 ,2.39085 ,2.11476 ,1.72849/ - DATA ((F(I,4,K),I=1,6),K=1,19)/ - + 0.05977 ,0.01722 ,3.98157 ,0.17518 ,0.01920 ,0.00000 - +,0.06269 ,0.01881 ,7.59206 ,0.27089 ,0.09106 ,0.00000 - +,0.06535 ,0.02028 ,11.18215 ,0.38154 ,0.17413 ,0.00000 - +,0.06779 ,0.02165 ,14.60599 ,0.50059 ,0.26349 ,0.00000 - +,0.07006 ,0.02294 ,17.93402 ,0.62417 ,0.35790 ,0.00656 - +,0.07218 ,0.02415 ,21.14798 ,0.73697 ,0.45567 ,0.05893 - +,0.07417 ,0.02530 ,24.24521 ,0.83166 ,0.55574 ,0.17486 - +,0.07606 ,0.02640 ,27.17863 ,0.93057 ,0.65596 ,0.27873 - +,0.07786 ,0.02744 ,30.00604 ,1.03005 ,0.75701 ,0.38423 - +,0.07957 ,0.02845 ,32.73907 ,1.13017 ,0.85871 ,0.49038 - +,0.08121 ,0.02942 ,35.38145 ,1.23077 ,0.96076 ,0.59646 - +,0.08277 ,0.03035 ,37.84256 ,1.32842 ,1.05977 ,0.69929 - +,0.08428 ,0.03125 ,40.24571 ,1.42664 ,1.15928 ,0.80240 - +,0.08572 ,0.03212 ,42.54428 ,1.52363 ,1.25750 ,0.90402 - +,0.08711 ,0.03296 ,44.72464 ,1.61856 ,1.35358 ,1.00332 - +,0.08846 ,0.03377 ,46.85704 ,1.71366 ,1.44979 ,1.10260 - +,0.08975 ,0.03455 ,48.84508 ,1.80519 ,1.54238 ,1.19810 - +,0.09101 ,0.03532 ,50.81018 ,1.89743 ,1.63564 ,1.29414 - +,0.09222 ,0.03606 ,52.63689 ,1.98582 ,1.72500 ,1.38616/ - DATA ((F(I,5,K),I=1,6),K=1,19)/ - + 0.06788 ,0.02079 ,3.90099 ,0.17472 ,0.01829 ,0.00000 - +,0.07109 ,0.02263 ,7.13284 ,0.26420 ,0.08551 ,0.00000 - +,0.07401 ,0.02433 ,10.28053 ,0.36553 ,0.16162 ,0.00000 - +,0.07669 ,0.02589 ,13.24129 ,0.47292 ,0.24228 ,0.00000 - +,0.07917 ,0.02736 ,16.08655 ,0.58310 ,0.32647 ,0.00584 - +,0.08148 ,0.02874 ,18.80742 ,0.68268 ,0.41282 ,0.05204 - +,0.08365 ,0.03005 ,21.40671 ,0.76544 ,0.50047 ,0.15393 - +,0.08571 ,0.03129 ,23.84843 ,0.85131 ,0.58761 ,0.24448 - +,0.08766 ,0.03248 ,26.18478 ,0.93710 ,0.67491 ,0.33587 - +,0.08951 ,0.03362 ,28.42804 ,1.02294 ,0.76225 ,0.42732 - +,0.09129 ,0.03471 ,30.58345 ,1.10874 ,0.84942 ,0.51820 - +,0.09298 ,0.03575 ,32.57706 ,1.19159 ,0.93358 ,0.60588 - +,0.09460 ,0.03676 ,34.51352 ,1.27456 ,1.01778 ,0.69340 - +,0.09616 ,0.03773 ,36.35550 ,1.35614 ,1.10054 ,0.77929 - +,0.09765 ,0.03866 ,38.09268 ,1.43566 ,1.18117 ,0.86289 - +,0.09910 ,0.03957 ,39.78439 ,1.51503 ,1.26161 ,0.94616 - +,0.10049 ,0.04044 ,41.35175 ,1.59113 ,1.33873 ,1.02596 - +,0.10183 ,0.04129 ,42.89584 ,1.66760 ,1.41617 ,1.10597 - +,0.10313 ,0.04211 ,44.32220 ,1.74059 ,1.49011 ,1.18236/ - DATA ((F(I,6,K),I=1,6),K=1,19)/ - + 0.07487 ,0.02406 ,3.83898 ,0.17420 ,0.01758 ,0.00000 - +,0.07833 ,0.02611 ,6.79523 ,0.25892 ,0.08126 ,0.00000 - +,0.08146 ,0.02800 ,9.63033 ,0.35335 ,0.15223 ,0.00000 - +,0.08433 ,0.02974 ,12.26901 ,0.45229 ,0.22657 ,0.00000 - +,0.08698 ,0.03136 ,14.78229 ,0.55286 ,0.30347 ,0.00532 - +,0.08945 ,0.03289 ,17.16727 ,0.64308 ,0.38173 ,0.04717 - +,0.09177 ,0.03433 ,19.42996 ,0.71746 ,0.46066 ,0.13920 - +,0.09396 ,0.03570 ,21.54160 ,0.79424 ,0.53869 ,0.22047 - +,0.09604 ,0.03700 ,23.55028 ,0.87056 ,0.61646 ,0.30209 - +,0.09801 ,0.03824 ,25.46864 ,0.94657 ,0.69393 ,0.38340 - +,0.09989 ,0.03944 ,27.30269 ,1.02222 ,0.77092 ,0.46388 - +,0.10168 ,0.04057 ,28.98940 ,1.09499 ,0.84495 ,0.54121 - +,0.10340 ,0.04167 ,30.62100 ,1.16761 ,0.91877 ,0.61815 - +,0.10505 ,0.04273 ,32.16582 ,1.23877 ,0.99107 ,0.69340 - +,0.10663 ,0.04374 ,33.61597 ,1.30790 ,1.06129 ,0.76641 - +,0.10816 ,0.04473 ,35.02318 ,1.37672 ,1.13115 ,0.83892 - +,0.10962 ,0.04567 ,36.32019 ,1.44249 ,1.19792 ,0.90822 - +,0.11104 ,0.04659 ,37.59447 ,1.50842 ,1.26481 ,0.97751 - +,0.11241 ,0.04747 ,38.76543 ,1.57118 ,1.32848 ,1.04349/ - DATA ((F(I,7,K),I=1,6),K=1,19)/ - + 0.10111 ,0.03779 ,3.64754 ,0.17147 ,0.01530 ,0.00000 - +,0.10541 ,0.04065 ,5.84062 ,0.24185 ,0.06837 ,0.00000 - +,0.10929 ,0.04324 ,7.85311 ,0.31660 ,0.12471 ,0.00000 - +,0.11281 ,0.04561 ,9.66675 ,0.39220 ,0.18168 ,0.00000 - +,0.11605 ,0.04780 ,11.34619 ,0.46692 ,0.23897 ,0.00394 - +,0.11906 ,0.04984 ,12.90075 ,0.53237 ,0.29591 ,0.03437 - +,0.12187 ,0.05176 ,14.34254 ,0.58496 ,0.35219 ,0.10073 - +,0.12450 ,0.05356 ,15.65904 ,0.63838 ,0.40686 ,0.15816 - +,0.12699 ,0.05526 ,16.88707 ,0.69062 ,0.46048 ,0.21497 - +,0.12935 ,0.05688 ,18.03888 ,0.74190 ,0.51312 ,0.27077 - +,0.13159 ,0.05843 ,19.12154 ,0.79226 ,0.56475 ,0.32529 - +,0.13371 ,0.05989 ,20.09756 ,0.84008 ,0.61377 ,0.37703 - +,0.13574 ,0.06129 ,21.02838 ,0.88728 ,0.66211 ,0.42795 - +,0.13767 ,0.06263 ,21.89565 ,0.93302 ,0.70895 ,0.47721 - +,0.13953 ,0.06392 ,22.69609 ,0.97698 ,0.75396 ,0.52453 - +,0.14131 ,0.06516 ,23.46364 ,1.02036 ,0.79835 ,0.57111 - +,0.14301 ,0.06634 ,24.15753 ,1.06139 ,0.84034 ,0.61519 - +,0.14466 ,0.06749 ,24.83311 ,1.10221 ,0.88209 ,0.65893 - +,0.14624 ,0.06859 ,25.44145 ,1.14068 ,0.92145 ,0.70019/ - DATA ((F(I,8,K),I=1,6),K=1,19)/ - + 0.13556 ,0.05907 ,3.45303 ,0.16667 ,0.01296 ,0.00000 - +,0.14081 ,0.06291 ,5.00993 ,0.22344 ,0.05605 ,0.00000 - +,0.14552 ,0.06636 ,6.38583 ,0.28097 ,0.09968 ,0.00000 - +,0.14976 ,0.06948 ,7.58640 ,0.33717 ,0.14229 ,0.00000 - +,0.15364 ,0.07233 ,8.66505 ,0.39116 ,0.18395 ,0.00286 - +,0.15722 ,0.07496 ,9.63629 ,0.43728 ,0.22438 ,0.02451 - +,0.16054 ,0.07740 ,10.51407 ,0.47330 ,0.26351 ,0.07136 - +,0.16364 ,0.07968 ,11.29517 ,0.50930 ,0.30084 ,0.11108 - +,0.16655 ,0.08181 ,12.00702 ,0.54390 ,0.33684 ,0.14974 - +,0.16929 ,0.08383 ,12.66029 ,0.57733 ,0.37165 ,0.18716 - +,0.17188 ,0.08574 ,13.26185 ,0.60972 ,0.40531 ,0.22323 - +,0.17433 ,0.08753 ,13.79009 ,0.64002 ,0.43684 ,0.25701 - +,0.17665 ,0.08925 ,14.28506 ,0.66957 ,0.46755 ,0.28987 - +,0.17887 ,0.09087 ,14.73666 ,0.69786 ,0.49697 ,0.32130 - +,0.18097 ,0.09242 ,15.14392 ,0.72474 ,0.52492 ,0.35116 - +,0.18300 ,0.09390 ,15.52857 ,0.75100 ,0.55221 ,0.38027 - +,0.18492 ,0.09531 ,15.86650 ,0.77553 ,0.57773 ,0.40753 - +,0.18677 ,0.09667 ,16.19188 ,0.79974 ,0.60290 ,0.43435 - +,0.18853 ,0.09795 ,16.47581 ,0.82229 ,0.62637 ,0.45940/ - DATA ((F(I,9,K),I=1,6),K=1,19)/ - + 0.16029 ,0.07639 ,3.33393 ,0.16274 ,0.01159 ,0.00000 - +,0.16612 ,0.08085 ,4.57217 ,0.21193 ,0.04918 ,0.00000 - +,0.17132 ,0.08482 ,5.64489 ,0.26044 ,0.08621 ,0.00000 - +,0.17598 ,0.08837 ,6.56212 ,0.30687 ,0.12165 ,0.00000 - +,0.18022 ,0.09159 ,7.36991 ,0.35072 ,0.15571 ,0.00234 - +,0.18411 ,0.09455 ,8.08371 ,0.38758 ,0.18829 ,0.01985 - +,0.18771 ,0.09728 ,8.71726 ,0.41582 ,0.21943 ,0.05755 - +,0.19105 ,0.09981 ,9.27052 ,0.44375 ,0.24879 ,0.08912 - +,0.19418 ,0.10216 ,9.76623 ,0.47031 ,0.27681 ,0.11954 - +,0.19711 ,0.10438 ,10.21386 ,0.49571 ,0.30363 ,0.14872 - +,0.19989 ,0.10647 ,10.61967 ,0.52009 ,0.32935 ,0.17659 - +,0.20248 ,0.10841 ,10.96850 ,0.54268 ,0.35322 ,0.20249 - +,0.20495 ,0.11026 ,11.29094 ,0.56454 ,0.37629 ,0.22749 - +,0.20728 ,0.11200 ,11.58004 ,0.58530 ,0.39822 ,0.25123 - +,0.20950 ,0.11365 ,11.83560 ,0.60486 ,0.41890 ,0.27362 - +,0.21162 ,0.11524 ,12.07401 ,0.62385 ,0.43896 ,0.29532 - +,0.21363 ,0.11672 ,12.27789 ,0.64143 ,0.45758 ,0.31549 - +,0.21556 ,0.11816 ,12.47250 ,0.65870 ,0.47585 ,0.33524 - +,0.21739 ,0.11951 ,12.63697 ,0.67463 ,0.49274 ,0.35356/ - DATA ((F(I,10,K),I=1,6),K=1,19)/ - + 0.18019 ,0.09140 ,3.24638 ,0.15967 ,0.01064 ,0.00000 - +,0.18640 ,0.09626 ,4.28367 ,0.20378 ,0.04458 ,0.00000 - +,0.19190 ,0.10054 ,5.16665 ,0.24642 ,0.07736 ,0.00000 - +,0.19682 ,0.10434 ,5.90861 ,0.28659 ,0.10825 ,0.00000 - +,0.20127 ,0.10778 ,6.55111 ,0.32404 ,0.13754 ,0.00202 - +,0.20534 ,0.11091 ,7.10971 ,0.35511 ,0.16525 ,0.01696 - +,0.20909 ,0.11378 ,7.59787 ,0.37852 ,0.19147 ,0.04902 - +,0.21256 ,0.11643 ,8.01700 ,0.40149 ,0.21596 ,0.07560 - +,0.21580 ,0.11888 ,8.38684 ,0.42314 ,0.23914 ,0.10102 - +,0.21882 ,0.12118 ,8.71591 ,0.44368 ,0.26116 ,0.12522 - +,0.22168 ,0.12333 ,9.00990 ,0.46325 ,0.28213 ,0.14818 - +,0.22433 ,0.12532 ,9.25728 ,0.48122 ,0.30143 ,0.16937 - +,0.22685 ,0.12721 ,9.48303 ,0.49850 ,0.31999 ,0.18971 - +,0.22923 ,0.12898 ,9.68194 ,0.51481 ,0.33751 ,0.20891 - +,0.23147 ,0.13065 ,9.85404 ,0.53006 ,0.35393 ,0.22692 - +,0.23362 ,0.13225 ,10.01258 ,0.54479 ,0.36979 ,0.24429 - +,0.23564 ,0.13374 ,10.14397 ,0.55832 ,0.38440 ,0.26034 - +,0.23759 ,0.13518 ,10.26831 ,0.57156 ,0.39868 ,0.27599 - +,0.23942 ,0.13652 ,10.36925 ,0.58368 ,0.41180 ,0.29042/ - DATA ((F(I,11,K),I=1,6),K=1,19)/ - + 0.19709 ,0.10481 ,3.17556 ,0.15716 ,0.00994 ,0.00000 - +,0.20355 ,0.10990 ,4.07083 ,0.19750 ,0.04120 ,0.00000 - +,0.20925 ,0.11437 ,4.81936 ,0.23587 ,0.07090 ,0.00000 - +,0.21432 ,0.11830 ,5.43805 ,0.27155 ,0.09853 ,0.00000 - +,0.21890 ,0.12184 ,5.96557 ,0.30442 ,0.12445 ,0.00179 - +,0.22306 ,0.12504 ,6.41737 ,0.33138 ,0.14873 ,0.01493 - +,0.22689 ,0.12797 ,6.80638 ,0.35141 ,0.17151 ,0.04303 - +,0.23042 ,0.13064 ,7.13491 ,0.37090 ,0.19261 ,0.06613 - +,0.23369 ,0.13311 ,7.42050 ,0.38913 ,0.21244 ,0.08808 - +,0.23674 ,0.13541 ,7.67088 ,0.40631 ,0.23116 ,0.10884 - +,0.23961 ,0.13755 ,7.89130 ,0.42256 ,0.24887 ,0.12843 - +,0.24227 ,0.13953 ,8.07250 ,0.43737 ,0.26507 ,0.14641 - +,0.24479 ,0.14139 ,8.23562 ,0.45154 ,0.28056 ,0.16357 - +,0.24716 ,0.14314 ,8.37651 ,0.46482 ,0.29511 ,0.17970 - +,0.24939 ,0.14477 ,8.49538 ,0.47716 ,0.30866 ,0.19476 - +,0.25152 ,0.14633 ,8.60330 ,0.48902 ,0.32170 ,0.20921 - +,0.25351 ,0.14777 ,8.68918 ,0.49984 ,0.33364 ,0.22250 - +,0.25543 ,0.14916 ,8.76966 ,0.51038 ,0.34526 ,0.23542 - +,0.25723 ,0.15045 ,8.83133 ,0.51996 ,0.35589 ,0.24727/ - DATA ((F(I,12,K),I=1,6),K=1,19)/ - + 0.25869 ,0.15738 ,2.91357 ,0.14598 ,0.00770 ,0.00000 - +,0.26563 ,0.16259 ,3.42300 ,0.17489 ,0.03093 ,0.00000 - +,0.27164 ,0.16702 ,3.82136 ,0.20094 ,0.05188 ,0.00000 - +,0.27687 ,0.17081 ,4.12878 ,0.22410 ,0.07055 ,0.00000 - +,0.28151 ,0.17411 ,4.37361 ,0.24461 ,0.08744 ,0.00118 - +,0.28567 ,0.17702 ,4.56911 ,0.26070 ,0.10275 ,0.00962 - +,0.28942 ,0.17961 ,4.72537 ,0.27192 ,0.11668 ,0.02747 - +,0.29281 ,0.18191 ,4.84564 ,0.28256 ,0.12924 ,0.04174 - +,0.29591 ,0.18398 ,4.94122 ,0.29221 ,0.14074 ,0.05499 - +,0.29876 ,0.18586 ,5.01740 ,0.30105 ,0.15135 ,0.06726 - +,0.30140 ,0.18758 ,5.07778 ,0.30919 ,0.16116 ,0.07862 - +,0.30379 ,0.18910 ,5.11800 ,0.31636 ,0.16992 ,0.08882 - +,0.30603 ,0.19051 ,5.14964 ,0.32307 ,0.17814 ,0.09840 - +,0.30811 ,0.19180 ,5.17078 ,0.32919 ,0.18570 ,0.10725 - +,0.31003 ,0.19297 ,5.18184 ,0.33471 ,0.19260 ,0.11536 - +,0.31184 ,0.19406 ,5.18866 ,0.33992 ,0.19913 ,0.12304 - +,0.31350 ,0.19504 ,5.18563 ,0.34449 ,0.20496 ,0.12996 - +,0.31508 ,0.19596 ,5.18130 ,0.34888 ,0.21057 ,0.13661 - +,0.31652 ,0.19679 ,5.16897 ,0.35271 ,0.21557 ,0.14260/ - DATA ((F(I,13,K),I=1,6),K=1,19)/ - + 0.33630 ,0.22467 ,2.54556 ,0.12808 ,0.00546 ,0.00000 - +,0.34254 ,0.22793 ,2.75399 ,0.14618 ,0.02124 ,0.00000 - +,0.34772 ,0.23043 ,2.89400 ,0.16146 ,0.03468 ,0.00000 - +,0.35201 ,0.23235 ,2.98279 ,0.17424 ,0.04605 ,0.00000 - +,0.35566 ,0.23385 ,3.03878 ,0.18494 ,0.05589 ,0.00070 - +,0.35879 ,0.23502 ,3.07067 ,0.19271 ,0.06447 ,0.00560 - +,0.36149 ,0.23593 ,3.08466 ,0.19745 ,0.07198 ,0.01582 - +,0.36380 ,0.23660 ,3.08324 ,0.20174 ,0.07849 ,0.02372 - +,0.36581 ,0.23709 ,3.07236 ,0.20541 ,0.08426 ,0.03085 - +,0.36757 ,0.23744 ,3.05484 ,0.20858 ,0.08941 ,0.03729 - +,0.36913 ,0.23769 ,3.03252 ,0.21134 ,0.09404 ,0.04309 - +,0.37044 ,0.23778 ,3.00341 ,0.21356 ,0.09802 ,0.04817 - +,0.37162 ,0.23781 ,2.97288 ,0.21552 ,0.10165 ,0.05284 - +,0.37263 ,0.23776 ,2.93994 ,0.21718 ,0.10488 ,0.05706 - +,0.37349 ,0.23764 ,2.90472 ,0.21852 ,0.10774 ,0.06083 - +,0.37427 ,0.23748 ,2.86975 ,0.21973 ,0.11038 ,0.06433 - +,0.37489 ,0.23724 ,2.83250 ,0.22061 ,0.11264 ,0.06741 - +,0.37548 ,0.23699 ,2.79656 ,0.22144 ,0.11477 ,0.07032 - +,0.37592 ,0.23667 ,2.75898 ,0.22199 ,0.11658 ,0.07287/ - DATA ((F(I,14,K),I=1,6),K=1,19)/ - + 0.38986 ,0.26502 ,2.25105 ,0.11289 ,0.00417 ,0.00001 - +,0.39445 ,0.26549 ,2.32372 ,0.12510 ,0.01589 ,0.00000 - +,0.39795 ,0.26546 ,2.35443 ,0.13487 ,0.02548 ,0.00001 - +,0.40064 ,0.26503 ,2.35628 ,0.14263 ,0.03333 ,0.00001 - +,0.40270 ,0.26438 ,2.34140 ,0.14879 ,0.03991 ,0.00048 - +,0.40429 ,0.26355 ,2.31547 ,0.15286 ,0.04547 ,0.00379 - +,0.40548 ,0.26259 ,2.28213 ,0.15485 ,0.05021 ,0.01058 - +,0.40633 ,0.26150 ,2.24280 ,0.15653 ,0.05421 ,0.01574 - +,0.40691 ,0.26034 ,2.20087 ,0.15781 ,0.05765 ,0.02028 - +,0.40730 ,0.25915 ,2.15783 ,0.15878 ,0.06065 ,0.02431 - +,0.40752 ,0.25792 ,2.11453 ,0.15952 ,0.06327 ,0.02789 - +,0.40751 ,0.25663 ,2.06967 ,0.15991 ,0.06545 ,0.03096 - +,0.40742 ,0.25535 ,2.02616 ,0.16017 ,0.06739 ,0.03373 - +,0.40722 ,0.25405 ,1.98324 ,0.16026 ,0.06907 ,0.03619 - +,0.40689 ,0.25273 ,1.94081 ,0.16019 ,0.07050 ,0.03835 - +,0.40651 ,0.25144 ,1.90015 ,0.16005 ,0.07180 ,0.04032 - +,0.40600 ,0.25011 ,1.85973 ,0.15974 ,0.07285 ,0.04202 - +,0.40549 ,0.24884 ,1.82140 ,0.15942 ,0.07383 ,0.04362 - +,0.40488 ,0.24752 ,1.78343 ,0.15896 ,0.07461 ,0.04497/ - DATA ((F(I,15,K),I=1,6),K=1,19)/ - + 0.43076 ,0.28881 ,1.99663 ,0.09953 ,0.00327 ,0.00000 - +,0.43313 ,0.28641 ,1.99372 ,0.10793 ,0.01229 ,0.00000 - +,0.43455 ,0.28384 ,1.96706 ,0.11430 ,0.01946 ,-0.00001 - +,0.43523 ,0.28116 ,1.92584 ,0.11906 ,0.02516 ,0.00000 - +,0.43541 ,0.27848 ,1.87799 ,0.12261 ,0.02982 ,0.00034 - +,0.43521 ,0.27579 ,1.82689 ,0.12463 ,0.03366 ,0.00271 - +,0.43472 ,0.27313 ,1.77446 ,0.12516 ,0.03686 ,0.00753 - +,0.43392 ,0.27048 ,1.72124 ,0.12549 ,0.03948 ,0.01112 - +,0.43295 ,0.26787 ,1.66910 ,0.12557 ,0.04169 ,0.01424 - +,0.43186 ,0.26532 ,1.61872 ,0.12547 ,0.04356 ,0.01696 - +,0.43067 ,0.26284 ,1.57038 ,0.12522 ,0.04516 ,0.01934 - +,0.42930 ,0.26038 ,1.52297 ,0.12477 ,0.04644 ,0.02134 - +,0.42791 ,0.25800 ,1.47815 ,0.12427 ,0.04756 ,0.02313 - +,0.42645 ,0.25567 ,1.43526 ,0.12367 ,0.04849 ,0.02469 - +,0.42492 ,0.25338 ,1.39408 ,0.12299 ,0.04925 ,0.02604 - +,0.42340 ,0.25118 ,1.35525 ,0.12230 ,0.04992 ,0.02727 - +,0.42179 ,0.24899 ,1.31769 ,0.12151 ,0.05043 ,0.02829 - +,0.42023 ,0.24689 ,1.28241 ,0.12074 ,0.05090 ,0.02924 - +,0.41857 ,0.24481 ,1.24831 ,0.11989 ,0.05123 ,0.03004/ - DATA ((F(I,16,K),I=1,6),K=1,19)/ - + 0.46282 ,0.30101 ,1.77170 ,0.08767 ,0.00261 ,0.00000 - +,0.46261 ,0.29597 ,1.72363 ,0.09341 ,0.00969 ,0.00000 - +,0.46166 ,0.29110 ,1.66481 ,0.09750 ,0.01518 ,-0.00001 - +,0.46014 ,0.28641 ,1.60118 ,0.10033 ,0.01944 ,0.00000 - +,0.45827 ,0.28194 ,1.53756 ,0.10224 ,0.02284 ,0.00025 - +,0.45617 ,0.27766 ,1.47561 ,0.10302 ,0.02559 ,0.00200 - +,0.45389 ,0.27355 ,1.41604 ,0.10272 ,0.02782 ,0.00555 - +,0.45142 ,0.26959 ,1.35874 ,0.10230 ,0.02961 ,0.00814 - +,0.44886 ,0.26579 ,1.30461 ,0.10174 ,0.03107 ,0.01036 - +,0.44627 ,0.26215 ,1.25378 ,0.10107 ,0.03229 ,0.01228 - +,0.44367 ,0.25866 ,1.20616 ,0.10033 ,0.03330 ,0.01393 - +,0.44096 ,0.25527 ,1.16078 ,0.09947 ,0.03407 ,0.01530 - +,0.43830 ,0.25203 ,1.11852 ,0.09860 ,0.03473 ,0.01651 - +,0.43563 ,0.24891 ,1.07878 ,0.09770 ,0.03526 ,0.01755 - +,0.43295 ,0.24587 ,1.04129 ,0.09675 ,0.03567 ,0.01844 - +,0.43034 ,0.24298 ,1.00629 ,0.09582 ,0.03601 ,0.01923 - +,0.42768 ,0.24014 ,0.97302 ,0.09485 ,0.03624 ,0.01988 - +,0.42512 ,0.23744 ,0.94198 ,0.09391 ,0.03645 ,0.02048 - +,0.42251 ,0.23479 ,0.91242 ,0.09293 ,0.03656 ,0.02097/ - DATA ((F(I,17,K),I=1,6),K=1,19)/ - + 0.49309 ,0.30462 ,1.52396 ,0.07462 ,0.00200 ,0.00001 - +,0.48934 ,0.29672 ,1.44376 ,0.07808 ,0.00732 ,0.00000 - +,0.48520 ,0.28943 ,1.36413 ,0.08028 ,0.01133 ,0.00000 - +,0.48078 ,0.28267 ,1.28777 ,0.08156 ,0.01436 ,0.00000 - +,0.47629 ,0.27638 ,1.21672 ,0.08220 ,0.01672 ,0.00019 - +,0.47177 ,0.27051 ,1.15106 ,0.08207 ,0.01857 ,0.00142 - +,0.46725 ,0.26499 ,1.09046 ,0.08120 ,0.02004 ,0.00391 - +,0.46270 ,0.25976 ,1.03426 ,0.08030 ,0.02118 ,0.00569 - +,0.45822 ,0.25482 ,0.98261 ,0.07934 ,0.02208 ,0.00719 - +,0.45382 ,0.25016 ,0.93518 ,0.07834 ,0.02281 ,0.00847 - +,0.44952 ,0.24575 ,0.89159 ,0.07732 ,0.02339 ,0.00956 - +,0.44523 ,0.24151 ,0.85098 ,0.07626 ,0.02381 ,0.01045 - +,0.44108 ,0.23749 ,0.81368 ,0.07521 ,0.02415 ,0.01122 - +,0.43701 ,0.23367 ,0.77914 ,0.07417 ,0.02440 ,0.01187 - +,0.43300 ,0.23000 ,0.74701 ,0.07312 ,0.02457 ,0.01241 - +,0.42913 ,0.22651 ,0.71731 ,0.07211 ,0.02470 ,0.01289 - +,0.42529 ,0.22313 ,0.68949 ,0.07109 ,0.02476 ,0.01328 - +,0.42160 ,0.21992 ,0.66371 ,0.07012 ,0.02481 ,0.01362 - +,0.41793 ,0.21681 ,0.63951 ,0.06914 ,0.02479 ,0.01390/ - DATA ((F(I,18,K),I=1,6),K=1,19)/ - + 0.51395 ,0.29899 ,1.30757 ,0.06331 ,0.00153 ,0.00000 - +,0.50650 ,0.28882 ,1.21138 ,0.06521 ,0.00558 ,0.00000 - +,0.49910 ,0.27964 ,1.12333 ,0.06619 ,0.00855 ,0.00000 - +,0.49179 ,0.27130 ,1.04361 ,0.06652 ,0.01073 ,0.00000 - +,0.48468 ,0.26368 ,0.97231 ,0.06640 ,0.01240 ,0.00013 - +,0.47781 ,0.25666 ,0.90848 ,0.06577 ,0.01367 ,0.00102 - +,0.47116 ,0.25013 ,0.85110 ,0.06465 ,0.01466 ,0.00279 - +,0.46464 ,0.24404 ,0.79911 ,0.06353 ,0.01539 ,0.00405 - +,0.45835 ,0.23834 ,0.75222 ,0.06241 ,0.01596 ,0.00510 - +,0.45229 ,0.23299 ,0.70985 ,0.06129 ,0.01640 ,0.00597 - +,0.44645 ,0.22797 ,0.67146 ,0.06020 ,0.01673 ,0.00670 - +,0.44072 ,0.22321 ,0.63627 ,0.05909 ,0.01695 ,0.00730 - +,0.43524 ,0.21871 ,0.60427 ,0.05803 ,0.01712 ,0.00780 - +,0.42996 ,0.21445 ,0.57497 ,0.05699 ,0.01723 ,0.00822 - +,0.42479 ,0.21039 ,0.54803 ,0.05597 ,0.01728 ,0.00856 - +,0.41984 ,0.20656 ,0.52332 ,0.05499 ,0.01731 ,0.00886 - +,0.41497 ,0.20288 ,0.50042 ,0.05403 ,0.01729 ,0.00909 - +,0.41031 ,0.19940 ,0.47933 ,0.05311 ,0.01727 ,0.00930 - +,0.40574 ,0.19604 ,0.45972 ,0.05220 ,0.01720 ,0.00946/ - DATA ((F(I,19,K),I=1,6),K=1,19)/ - + 0.52635 ,0.28698 ,1.11822 ,0.05348 ,0.00118 ,-0.00001 - +,0.51525 ,0.27510 ,1.01591 ,0.05434 ,0.00426 ,-0.00001 - +,0.50468 ,0.26455 ,0.92665 ,0.05453 ,0.00647 ,0.00000 - +,0.49458 ,0.25511 ,0.84875 ,0.05427 ,0.00807 ,-0.00001 - +,0.48504 ,0.24657 ,0.78098 ,0.05372 ,0.00925 ,0.00009 - +,0.47598 ,0.23879 ,0.72165 ,0.05283 ,0.01014 ,0.00074 - +,0.46736 ,0.23163 ,0.66934 ,0.05162 ,0.01081 ,0.00202 - +,0.45907 ,0.22499 ,0.62280 ,0.05045 ,0.01129 ,0.00291 - +,0.45118 ,0.21883 ,0.58141 ,0.04930 ,0.01164 ,0.00365 - +,0.44364 ,0.21310 ,0.54449 ,0.04819 ,0.01190 ,0.00426 - +,0.43645 ,0.20776 ,0.51142 ,0.04712 ,0.01209 ,0.00477 - +,0.42949 ,0.20271 ,0.48147 ,0.04606 ,0.01220 ,0.00516 - +,0.42288 ,0.19798 ,0.45449 ,0.04505 ,0.01227 ,0.00549 - +,0.41654 ,0.19352 ,0.43002 ,0.04408 ,0.01230 ,0.00577 - +,0.41040 ,0.18930 ,0.40772 ,0.04314 ,0.01230 ,0.00599 - +,0.40452 ,0.18532 ,0.38740 ,0.04224 ,0.01228 ,0.00618 - +,0.39883 ,0.18152 ,0.36874 ,0.04137 ,0.01223 ,0.00632 - +,0.39341 ,0.17793 ,0.35164 ,0.04055 ,0.01217 ,0.00645 - +,0.38812 ,0.17449 ,0.33588 ,0.03974 ,0.01209 ,0.00654/ - DATA ((F(I,20,K),I=1,6),K=1,19)/ - + 0.53124 ,0.27056 ,0.95259 ,0.04498 ,0.00091 ,-0.00001 - +,0.51662 ,0.25752 ,0.85036 ,0.04514 ,0.00326 ,0.00000 - +,0.50306 ,0.24609 ,0.76416 ,0.04483 ,0.00492 ,0.00000 - +,0.49039 ,0.23596 ,0.69096 ,0.04422 ,0.00609 ,-0.00001 - +,0.47862 ,0.22689 ,0.62861 ,0.04344 ,0.00693 ,0.00007 - +,0.46760 ,0.21869 ,0.57499 ,0.04244 ,0.00755 ,0.00054 - +,0.45724 ,0.21120 ,0.52847 ,0.04124 ,0.00801 ,0.00147 - +,0.44741 ,0.20431 ,0.48767 ,0.04010 ,0.00832 ,0.00211 - +,0.43813 ,0.19795 ,0.45182 ,0.03900 ,0.00854 ,0.00263 - +,0.42935 ,0.19207 ,0.42019 ,0.03795 ,0.00869 ,0.00306 - +,0.42102 ,0.18662 ,0.39212 ,0.03696 ,0.00879 ,0.00341 - +,0.41305 ,0.18150 ,0.36697 ,0.03599 ,0.00883 ,0.00368 - +,0.40551 ,0.17672 ,0.34449 ,0.03507 ,0.00885 ,0.00391 - +,0.39833 ,0.17223 ,0.32426 ,0.03420 ,0.00885 ,0.00409 - +,0.39141 ,0.16800 ,0.30597 ,0.03336 ,0.00882 ,0.00423 - +,0.38484 ,0.16404 ,0.28941 ,0.03257 ,0.00878 ,0.00435 - +,0.37850 ,0.16026 ,0.27431 ,0.03181 ,0.00871 ,0.00444 - +,0.37248 ,0.15670 ,0.26054 ,0.03109 ,0.00865 ,0.00452 - +,0.36665 ,0.15331 ,0.24793 ,0.03039 ,0.00856 ,0.00457/ - DATA ((F(I,21,K),I=1,6),K=1,19)/ - + 0.52937 ,0.25129 ,0.80797 ,0.03764 ,0.00071 ,0.00000 - +,0.51150 ,0.23758 ,0.70975 ,0.03734 ,0.00250 ,0.00000 - +,0.49522 ,0.22569 ,0.62903 ,0.03674 ,0.00375 ,0.00000 - +,0.48025 ,0.21524 ,0.56206 ,0.03595 ,0.00460 ,0.00000 - +,0.46652 ,0.20595 ,0.50598 ,0.03506 ,0.00521 ,0.00005 - +,0.45382 ,0.19762 ,0.45846 ,0.03405 ,0.00564 ,0.00040 - +,0.44199 ,0.19007 ,0.41782 ,0.03292 ,0.00595 ,0.00108 - +,0.43087 ,0.18314 ,0.38260 ,0.03186 ,0.00615 ,0.00155 - +,0.42044 ,0.17680 ,0.35200 ,0.03085 ,0.00628 ,0.00192 - +,0.41064 ,0.17096 ,0.32523 ,0.02990 ,0.00637 ,0.00222 - +,0.40143 ,0.16557 ,0.30168 ,0.02900 ,0.00642 ,0.00246 - +,0.39264 ,0.16053 ,0.28080 ,0.02814 ,0.00643 ,0.00265 - +,0.38437 ,0.15585 ,0.26225 ,0.02734 ,0.00642 ,0.00280 - +,0.37653 ,0.15148 ,0.24567 ,0.02657 ,0.00640 ,0.00292 - +,0.36905 ,0.14737 ,0.23078 ,0.02585 ,0.00635 ,0.00301 - +,0.36198 ,0.14351 ,0.21737 ,0.02516 ,0.00631 ,0.00309 - +,0.35519 ,0.13987 ,0.20523 ,0.02450 ,0.00624 ,0.00314 - +,0.34876 ,0.13645 ,0.19421 ,0.02388 ,0.00618 ,0.00318 - +,0.34254 ,0.13320 ,0.18418 ,0.02329 ,0.00611 ,0.00321/ - DATA ((F(I,22,K),I=1,6),K=1,19)/ - + 0.52127 ,0.23038 ,0.68202 ,0.03132 ,0.00055 ,0.00000 - +,0.50051 ,0.21641 ,0.59014 ,0.03075 ,0.00192 ,0.00000 - +,0.48190 ,0.20441 ,0.51637 ,0.02998 ,0.00285 ,0.00000 - +,0.46494 ,0.19395 ,0.45627 ,0.02912 ,0.00347 ,0.00000 - +,0.44960 ,0.18472 ,0.40669 ,0.02821 ,0.00390 ,0.00004 - +,0.43551 ,0.17649 ,0.36529 ,0.02724 ,0.00420 ,0.00030 - +,0.42247 ,0.16906 ,0.33026 ,0.02621 ,0.00441 ,0.00079 - +,0.41033 ,0.16230 ,0.30023 ,0.02525 ,0.00454 ,0.00113 - +,0.39901 ,0.15614 ,0.27439 ,0.02435 ,0.00462 ,0.00139 - +,0.38846 ,0.15049 ,0.25199 ,0.02351 ,0.00467 ,0.00161 - +,0.37860 ,0.14529 ,0.23242 ,0.02272 ,0.00468 ,0.00178 - +,0.36926 ,0.14045 ,0.21522 ,0.02197 ,0.00467 ,0.00190 - +,0.36050 ,0.13598 ,0.20004 ,0.02127 ,0.00465 ,0.00200 - +,0.35222 ,0.13180 ,0.18655 ,0.02061 ,0.00462 ,0.00208 - +,0.34437 ,0.12790 ,0.17452 ,0.01999 ,0.00458 ,0.00214 - +,0.33695 ,0.12426 ,0.16373 ,0.01940 ,0.00453 ,0.00219 - +,0.32985 ,0.12082 ,0.15404 ,0.01885 ,0.00447 ,0.00222 - +,0.32314 ,0.11760 ,0.14526 ,0.01833 ,0.00442 ,0.00225 - +,0.31672 ,0.11456 ,0.13732 ,0.01783 ,0.00435 ,0.00226/ - DATA ((F(I,23,K),I=1,6),K=1,19)/ - + 0.50779 ,0.20874 ,0.57268 ,0.02592 ,0.00042 ,0.00000 - +,0.48455 ,0.19488 ,0.48856 ,0.02519 ,0.00146 ,0.00000 - +,0.46397 ,0.18306 ,0.42231 ,0.02435 ,0.00215 ,0.00000 - +,0.44544 ,0.17283 ,0.36922 ,0.02349 ,0.00261 ,0.00000 - +,0.42879 ,0.16386 ,0.32603 ,0.02261 ,0.00292 ,0.00003 - +,0.41364 ,0.15591 ,0.29039 ,0.02172 ,0.00313 ,0.00022 - +,0.39971 ,0.14878 ,0.26056 ,0.02080 ,0.00327 ,0.00058 - +,0.38683 ,0.14232 ,0.23525 ,0.01995 ,0.00335 ,0.00082 - +,0.37490 ,0.13645 ,0.21366 ,0.01917 ,0.00339 ,0.00101 - +,0.36382 ,0.13110 ,0.19508 ,0.01844 ,0.00341 ,0.00116 - +,0.35353 ,0.12619 ,0.17898 ,0.01776 ,0.00341 ,0.00128 - +,0.34383 ,0.12164 ,0.16493 ,0.01712 ,0.00340 ,0.00137 - +,0.33476 ,0.11745 ,0.15259 ,0.01652 ,0.00337 ,0.00144 - +,0.32624 ,0.11355 ,0.14170 ,0.01596 ,0.00334 ,0.00149 - +,0.31818 ,0.10992 ,0.13205 ,0.01544 ,0.00330 ,0.00153 - +,0.31060 ,0.10654 ,0.12343 ,0.01495 ,0.00326 ,0.00156 - +,0.30336 ,0.10336 ,0.11572 ,0.01449 ,0.00321 ,0.00158 - +,0.29655 ,0.10039 ,0.10878 ,0.01405 ,0.00316 ,0.00159 - +,0.29005 ,0.09758 ,0.10252 ,0.01364 ,0.00311 ,0.00160/ - DATA ((F(I,24,K),I=1,6),K=1,19)/ - + 0.48953 ,0.18704 ,0.47809 ,0.02131 ,0.00033 ,0.00001 - +,0.46428 ,0.17357 ,0.40239 ,0.02052 ,0.00111 ,0.00001 - +,0.44215 ,0.16218 ,0.34379 ,0.01968 ,0.00163 ,0.00001 - +,0.42245 ,0.15237 ,0.29754 ,0.01884 ,0.00196 ,0.00001 - +,0.40482 ,0.14383 ,0.26039 ,0.01804 ,0.00218 ,0.00003 - +,0.38894 ,0.13631 ,0.23006 ,0.01723 ,0.00233 ,0.00016 - +,0.37444 ,0.12959 ,0.20493 ,0.01643 ,0.00242 ,0.00043 - +,0.36109 ,0.12352 ,0.18380 ,0.01570 ,0.00247 ,0.00061 - +,0.34881 ,0.11804 ,0.16593 ,0.01502 ,0.00249 ,0.00074 - +,0.33745 ,0.11306 ,0.15067 ,0.01439 ,0.00250 ,0.00084 - +,0.32692 ,0.10850 ,0.13754 ,0.01382 ,0.00249 ,0.00092 - +,0.31704 ,0.10430 ,0.12615 ,0.01328 ,0.00247 ,0.00098 - +,0.30786 ,0.10044 ,0.11621 ,0.01278 ,0.00244 ,0.00103 - +,0.29929 ,0.09687 ,0.10748 ,0.01231 ,0.00241 ,0.00107 - +,0.29119 ,0.09354 ,0.09978 ,0.01187 ,0.00237 ,0.00109 - +,0.28359 ,0.09046 ,0.09294 ,0.01147 ,0.00234 ,0.00111 - +,0.27638 ,0.08757 ,0.08686 ,0.01109 ,0.00230 ,0.00112 - +,0.26962 ,0.08487 ,0.08139 ,0.01073 ,0.00226 ,0.00113 - +,0.26315 ,0.08233 ,0.07650 ,0.01039 ,0.00222 ,0.00113/ - DATA ((F(I,25,K),I=1,6),K=1,19)/ - + 0.46726 ,0.16584 ,0.39669 ,0.01739 ,0.00025 ,0.00001 - +,0.44050 ,0.15300 ,0.32954 ,0.01660 ,0.00084 ,0.00001 - +,0.41726 ,0.14221 ,0.27840 ,0.01580 ,0.00122 ,0.00001 - +,0.39675 ,0.13298 ,0.23860 ,0.01503 ,0.00146 ,0.00001 - +,0.37852 ,0.12499 ,0.20701 ,0.01431 ,0.00162 ,0.00002 - +,0.36220 ,0.11798 ,0.18148 ,0.01360 ,0.00172 ,0.00012 - +,0.34740 ,0.11175 ,0.16053 ,0.01290 ,0.00178 ,0.00031 - +,0.33385 ,0.10616 ,0.14307 ,0.01228 ,0.00180 ,0.00044 - +,0.32143 ,0.10112 ,0.12842 ,0.01171 ,0.00182 ,0.00054 - +,0.31001 ,0.09656 ,0.11599 ,0.01118 ,0.00181 ,0.00061 - +,0.29946 ,0.09240 ,0.10537 ,0.01070 ,0.00180 ,0.00066 - +,0.28961 ,0.08859 ,0.09621 ,0.01025 ,0.00178 ,0.00070 - +,0.28049 ,0.08509 ,0.08826 ,0.00984 ,0.00176 ,0.00074 - +,0.27199 ,0.08186 ,0.08132 ,0.00945 ,0.00173 ,0.00076 - +,0.26400 ,0.07886 ,0.07523 ,0.00909 ,0.00170 ,0.00077 - +,0.25652 ,0.07609 ,0.06983 ,0.00876 ,0.00167 ,0.00079 - +,0.24946 ,0.07350 ,0.06506 ,0.00845 ,0.00164 ,0.00079 - +,0.24285 ,0.07109 ,0.06079 ,0.00816 ,0.00161 ,0.00080 - +,0.23654 ,0.06882 ,0.05698 ,0.00789 ,0.00157 ,0.00080/ - DATA ((F(I,26,K),I=1,6),K=1,19)/ - + 0.44173 ,0.14556 ,0.32699 ,0.01410 ,0.00018 ,0.00000 - +,0.41392 ,0.13352 ,0.26822 ,0.01335 ,0.00062 ,-0.00001 - +,0.38998 ,0.12347 ,0.22415 ,0.01261 ,0.00090 ,0.00000 - +,0.36909 ,0.11492 ,0.19028 ,0.01191 ,0.00107 ,-0.00001 - +,0.35061 ,0.10756 ,0.16370 ,0.01128 ,0.00118 ,0.00001 - +,0.33412 ,0.10113 ,0.14245 ,0.01067 ,0.00125 ,0.00008 - +,0.31932 ,0.09545 ,0.12515 ,0.01008 ,0.00129 ,0.00022 - +,0.30578 ,0.09037 ,0.11086 ,0.00956 ,0.00130 ,0.00031 - +,0.29345 ,0.08581 ,0.09895 ,0.00908 ,0.00131 ,0.00038 - +,0.28217 ,0.08169 ,0.08892 ,0.00864 ,0.00130 ,0.00043 - +,0.27180 ,0.07796 ,0.08039 ,0.00824 ,0.00129 ,0.00047 - +,0.26213 ,0.07454 ,0.07310 ,0.00788 ,0.00127 ,0.00050 - +,0.25321 ,0.07141 ,0.06679 ,0.00754 ,0.00126 ,0.00052 - +,0.24492 ,0.06853 ,0.06131 ,0.00723 ,0.00123 ,0.00054 - +,0.23716 ,0.06588 ,0.05652 ,0.00693 ,0.00121 ,0.00055 - +,0.22993 ,0.06342 ,0.05230 ,0.00666 ,0.00118 ,0.00055 - +,0.22311 ,0.06113 ,0.04859 ,0.00641 ,0.00116 ,0.00056 - +,0.21674 ,0.05900 ,0.04527 ,0.00618 ,0.00113 ,0.00056 - +,0.21069 ,0.05701 ,0.04232 ,0.00596 ,0.00111 ,0.00055/ - DATA ((F(I,27,K),I=1,6),K=1,19)/ - + 0.41351 ,0.12642 ,0.26754 ,0.01134 ,0.00013 ,0.00000 - +,0.38518 ,0.11530 ,0.21676 ,0.01064 ,0.00046 ,-0.00001 - +,0.36099 ,0.10609 ,0.17922 ,0.00998 ,0.00067 ,0.00000 - +,0.34004 ,0.09829 ,0.15074 ,0.00937 ,0.00078 ,-0.00001 - +,0.32162 ,0.09161 ,0.12862 ,0.00882 ,0.00086 ,0.00001 - +,0.30528 ,0.08580 ,0.11110 ,0.00831 ,0.00091 ,0.00006 - +,0.29068 ,0.08070 ,0.09697 ,0.00782 ,0.00093 ,0.00016 - +,0.27740 ,0.07615 ,0.08539 ,0.00738 ,0.00094 ,0.00022 - +,0.26536 ,0.07208 ,0.07580 ,0.00699 ,0.00094 ,0.00027 - +,0.25438 ,0.06841 ,0.06778 ,0.00663 ,0.00093 ,0.00031 - +,0.24432 ,0.06511 ,0.06100 ,0.00630 ,0.00092 ,0.00033 - +,0.23499 ,0.06209 ,0.05523 ,0.00601 ,0.00091 ,0.00035 - +,0.22641 ,0.05933 ,0.05027 ,0.00573 ,0.00089 ,0.00037 - +,0.21846 ,0.05681 ,0.04598 ,0.00548 ,0.00087 ,0.00038 - +,0.21104 ,0.05448 ,0.04225 ,0.00524 ,0.00085 ,0.00038 - +,0.20415 ,0.05233 ,0.03898 ,0.00503 ,0.00083 ,0.00039 - +,0.19767 ,0.05033 ,0.03611 ,0.00483 ,0.00081 ,0.00039 - +,0.19162 ,0.04848 ,0.03355 ,0.00464 ,0.00079 ,0.00039 - +,0.18591 ,0.04676 ,0.03129 ,0.00447 ,0.00077 ,0.00038/ - DATA ((F(I,28,K),I=1,6),K=1,19)/ - + 0.38336 ,0.10866 ,0.21716 ,0.00904 ,0.00010 ,0.00000 - +,0.35505 ,0.09854 ,0.17382 ,0.00840 ,0.00034 ,0.00000 - +,0.33100 ,0.09021 ,0.14223 ,0.00783 ,0.00048 ,0.00000 - +,0.31029 ,0.08320 ,0.11853 ,0.00731 ,0.00057 ,0.00000 - +,0.29222 ,0.07722 ,0.10033 ,0.00685 ,0.00063 ,0.00000 - +,0.27627 ,0.07205 ,0.08604 ,0.00642 ,0.00065 ,0.00004 - +,0.26208 ,0.06752 ,0.07461 ,0.00602 ,0.00067 ,0.00011 - +,0.24927 ,0.06351 ,0.06532 ,0.00566 ,0.00067 ,0.00016 - +,0.23768 ,0.05992 ,0.05768 ,0.00534 ,0.00067 ,0.00019 - +,0.22715 ,0.05671 ,0.05132 ,0.00505 ,0.00066 ,0.00021 - +,0.21752 ,0.05382 ,0.04598 ,0.00479 ,0.00065 ,0.00023 - +,0.20867 ,0.05119 ,0.04146 ,0.00455 ,0.00064 ,0.00025 - +,0.20054 ,0.04880 ,0.03760 ,0.00433 ,0.00063 ,0.00026 - +,0.19302 ,0.04661 ,0.03428 ,0.00412 ,0.00061 ,0.00026 - +,0.18602 ,0.04459 ,0.03140 ,0.00394 ,0.00060 ,0.00026 - +,0.17954 ,0.04274 ,0.02889 ,0.00377 ,0.00058 ,0.00027 - +,0.17346 ,0.04102 ,0.02668 ,0.00361 ,0.00057 ,0.00027 - +,0.16781 ,0.03944 ,0.02472 ,0.00346 ,0.00055 ,0.00027 - +,0.16249 ,0.03796 ,0.02301 ,0.00333 ,0.00054 ,0.00027/ - DATA ((F(I,29,K),I=1,6),K=1,19)/ - + 0.35190 ,0.09239 ,0.17476 ,0.00714 ,0.00007 ,0.00000 - +,0.32398 ,0.08331 ,0.13821 ,0.00658 ,0.00024 ,0.00000 - +,0.30046 ,0.07588 ,0.11193 ,0.00609 ,0.00035 ,0.00000 - +,0.28032 ,0.06967 ,0.09245 ,0.00565 ,0.00041 ,0.00000 - +,0.26286 ,0.06440 ,0.07763 ,0.00526 ,0.00045 ,0.00000 - +,0.24754 ,0.05986 ,0.06611 ,0.00491 ,0.00046 ,0.00003 - +,0.23395 ,0.05590 ,0.05695 ,0.00459 ,0.00048 ,0.00008 - +,0.22175 ,0.05240 ,0.04958 ,0.00430 ,0.00048 ,0.00011 - +,0.21077 ,0.04929 ,0.04355 ,0.00404 ,0.00047 ,0.00013 - +,0.20081 ,0.04651 ,0.03857 ,0.00381 ,0.00047 ,0.00015 - +,0.19175 ,0.04402 ,0.03440 ,0.00360 ,0.00046 ,0.00016 - +,0.18345 ,0.04175 ,0.03090 ,0.00341 ,0.00045 ,0.00017 - +,0.17585 ,0.03970 ,0.02792 ,0.00323 ,0.00043 ,0.00018 - +,0.16883 ,0.03783 ,0.02537 ,0.00308 ,0.00042 ,0.00018 - +,0.16233 ,0.03611 ,0.02317 ,0.00293 ,0.00041 ,0.00018 - +,0.15632 ,0.03454 ,0.02125 ,0.00280 ,0.00040 ,0.00018 - +,0.15071 ,0.03308 ,0.01958 ,0.00267 ,0.00039 ,0.00018 - +,0.14550 ,0.03174 ,0.01810 ,0.00256 ,0.00038 ,0.00018 - +,0.14060 ,0.03049 ,0.01681 ,0.00245 ,0.00037 ,0.00018/ - DATA ((F(I,30,K),I=1,6),K=1,19)/ - + 0.31982 ,0.07767 ,0.13931 ,0.00557 ,0.00005 ,0.00000 - +,0.29268 ,0.06965 ,0.10887 ,0.00510 ,0.00018 ,0.00000 - +,0.26998 ,0.06312 ,0.08727 ,0.00469 ,0.00025 ,0.00000 - +,0.25070 ,0.05769 ,0.07144 ,0.00433 ,0.00029 ,0.00000 - +,0.23407 ,0.05310 ,0.05952 ,0.00401 ,0.00032 ,0.00000 - +,0.21956 ,0.04917 ,0.05033 ,0.00372 ,0.00033 ,0.00002 - +,0.20672 ,0.04575 ,0.04308 ,0.00346 ,0.00033 ,0.00005 - +,0.19527 ,0.04274 ,0.03729 ,0.00323 ,0.00033 ,0.00008 - +,0.18499 ,0.04008 ,0.03259 ,0.00303 ,0.00033 ,0.00009 - +,0.17572 ,0.03771 ,0.02873 ,0.00284 ,0.00032 ,0.00010 - +,0.16732 ,0.03559 ,0.02552 ,0.00268 ,0.00032 ,0.00011 - +,0.15963 ,0.03367 ,0.02284 ,0.00253 ,0.00031 ,0.00012 - +,0.15261 ,0.03194 ,0.02056 ,0.00240 ,0.00030 ,0.00012 - +,0.14615 ,0.03037 ,0.01862 ,0.00227 ,0.00029 ,0.00012 - +,0.14020 ,0.02892 ,0.01695 ,0.00216 ,0.00028 ,0.00013 - +,0.13471 ,0.02759 ,0.01550 ,0.00206 ,0.00028 ,0.00013 - +,0.12959 ,0.02637 ,0.01425 ,0.00196 ,0.00027 ,0.00013 - +,0.12484 ,0.02526 ,0.01314 ,0.00187 ,0.00026 ,0.00013 - +,0.12040 ,0.02421 ,0.01218 ,0.00179 ,0.00025 ,0.00012/ - DATA ((F(I,31,K),I=1,6),K=1,19)/ - + 0.28755 ,0.06454 ,0.10991 ,0.00430 ,0.00004 ,0.00000 - +,0.26158 ,0.05755 ,0.08488 ,0.00391 ,0.00013 ,0.00000 - +,0.24001 ,0.05188 ,0.06735 ,0.00357 ,0.00018 ,0.00000 - +,0.22180 ,0.04721 ,0.05464 ,0.00327 ,0.00021 ,0.00000 - +,0.20619 ,0.04327 ,0.04517 ,0.00301 ,0.00022 ,0.00000 - +,0.19263 ,0.03991 ,0.03792 ,0.00279 ,0.00023 ,0.00002 - +,0.18070 ,0.03700 ,0.03226 ,0.00258 ,0.00023 ,0.00004 - +,0.17009 ,0.03445 ,0.02777 ,0.00240 ,0.00023 ,0.00005 - +,0.16062 ,0.03221 ,0.02415 ,0.00224 ,0.00023 ,0.00006 - +,0.15210 ,0.03021 ,0.02119 ,0.00210 ,0.00022 ,0.00007 - +,0.14441 ,0.02843 ,0.01875 ,0.00197 ,0.00022 ,0.00008 - +,0.13739 ,0.02683 ,0.01671 ,0.00186 ,0.00021 ,0.00008 - +,0.13101 ,0.02538 ,0.01499 ,0.00175 ,0.00020 ,0.00008 - +,0.12515 ,0.02408 ,0.01353 ,0.00166 ,0.00020 ,0.00008 - +,0.11976 ,0.02288 ,0.01229 ,0.00157 ,0.00019 ,0.00008 - +,0.11482 ,0.02178 ,0.01120 ,0.00149 ,0.00019 ,0.00009 - +,0.11021 ,0.02077 ,0.01027 ,0.00142 ,0.00018 ,0.00009 - +,0.10595 ,0.01985 ,0.00946 ,0.00136 ,0.00018 ,0.00008 - +,0.10197 ,0.01899 ,0.00874 ,0.00130 ,0.00017 ,0.00008/ - DATA ((F(I,32,K),I=1,6),K=1,19)/ - + 0.25570 ,0.05296 ,0.08573 ,0.00329 ,0.00003 ,0.00000 - +,0.23121 ,0.04695 ,0.06542 ,0.00296 ,0.00009 ,0.00000 - +,0.21103 ,0.04211 ,0.05138 ,0.00268 ,0.00012 ,0.00000 - +,0.19406 ,0.03813 ,0.04131 ,0.00245 ,0.00014 ,0.00000 - +,0.17960 ,0.03481 ,0.03388 ,0.00224 ,0.00015 ,0.00000 - +,0.16712 ,0.03198 ,0.02826 ,0.00206 ,0.00016 ,0.00001 - +,0.15617 ,0.02954 ,0.02390 ,0.00191 ,0.00016 ,0.00003 - +,0.14649 ,0.02742 ,0.02045 ,0.00177 ,0.00016 ,0.00004 - +,0.13786 ,0.02555 ,0.01769 ,0.00164 ,0.00015 ,0.00004 - +,0.13014 ,0.02390 ,0.01545 ,0.00153 ,0.00015 ,0.00005 - +,0.12319 ,0.02242 ,0.01361 ,0.00144 ,0.00015 ,0.00005 - +,0.11689 ,0.02110 ,0.01209 ,0.00135 ,0.00014 ,0.00005 - +,0.11117 ,0.01991 ,0.01081 ,0.00127 ,0.00014 ,0.00005 - +,0.10593 ,0.01884 ,0.00973 ,0.00120 ,0.00013 ,0.00005 - +,0.10113 ,0.01786 ,0.00880 ,0.00113 ,0.00013 ,0.00005 - +,0.09672 ,0.01696 ,0.00801 ,0.00108 ,0.00012 ,0.00005 - +,0.09264 ,0.01615 ,0.00733 ,0.00102 ,0.00012 ,0.00006 - +,0.08887 ,0.01540 ,0.00673 ,0.00097 ,0.00011 ,0.00006 - +,0.08536 ,0.01470 ,0.00621 ,0.00092 ,0.00011 ,0.00006/ - DATA ((F(I,33,K),I=1,6),K=1,19)/ - + 0.22473 ,0.04288 ,0.06605 ,0.00247 ,0.00002 ,0.00000 - +,0.20196 ,0.03780 ,0.04980 ,0.00221 ,0.00006 ,0.00000 - +,0.18332 ,0.03372 ,0.03871 ,0.00199 ,0.00008 ,0.00000 - +,0.16776 ,0.03040 ,0.03086 ,0.00180 ,0.00010 ,0.00000 - +,0.15456 ,0.02763 ,0.02510 ,0.00164 ,0.00010 ,0.00000 - +,0.14323 ,0.02528 ,0.02079 ,0.00151 ,0.00011 ,0.00001 - +,0.13334 ,0.02327 ,0.01747 ,0.00139 ,0.00010 ,0.00001 - +,0.12462 ,0.02152 ,0.01487 ,0.00128 ,0.00010 ,0.00002 - +,0.11690 ,0.01998 ,0.01280 ,0.00119 ,0.00010 ,0.00003 - +,0.11001 ,0.01864 ,0.01113 ,0.00110 ,0.00010 ,0.00003 - +,0.10382 ,0.01744 ,0.00976 ,0.00103 ,0.00010 ,0.00003 - +,0.09823 ,0.01636 ,0.00864 ,0.00096 ,0.00009 ,0.00003 - +,0.09317 ,0.01540 ,0.00770 ,0.00091 ,0.00009 ,0.00004 - +,0.08854 ,0.01454 ,0.00691 ,0.00085 ,0.00008 ,0.00003 - +,0.08432 ,0.01375 ,0.00624 ,0.00081 ,0.00008 ,0.00003 - +,0.08046 ,0.01303 ,0.00566 ,0.00076 ,0.00008 ,0.00003 - +,0.07689 ,0.01237 ,0.00516 ,0.00072 ,0.00008 ,0.00003 - +,0.07361 ,0.01177 ,0.00473 ,0.00068 ,0.00007 ,0.00004 - +,0.07055 ,0.01122 ,0.00435 ,0.00065 ,0.00007 ,0.00003/ - DATA ((F(I,34,K),I=1,6),K=1,19)/ - + 0.19505 ,0.03421 ,0.05017 ,0.00183 ,0.00001 ,0.00000 - +,0.17420 ,0.02998 ,0.03737 ,0.00162 ,0.00004 ,0.00000 - +,0.15725 ,0.02661 ,0.02876 ,0.00145 ,0.00006 ,0.00000 - +,0.14318 ,0.02387 ,0.02272 ,0.00131 ,0.00006 ,0.00000 - +,0.13132 ,0.02160 ,0.01833 ,0.00119 ,0.00007 ,0.00000 - +,0.12118 ,0.01968 ,0.01508 ,0.00108 ,0.00007 ,0.00000 - +,0.11237 ,0.01805 ,0.01259 ,0.00099 ,0.00007 ,0.00001 - +,0.10464 ,0.01663 ,0.01065 ,0.00092 ,0.00007 ,0.00001 - +,0.09782 ,0.01540 ,0.00913 ,0.00084 ,0.00007 ,0.00002 - +,0.09176 ,0.01431 ,0.00790 ,0.00078 ,0.00006 ,0.00002 - +,0.08634 ,0.01335 ,0.00690 ,0.00073 ,0.00006 ,0.00002 - +,0.08145 ,0.01250 ,0.00609 ,0.00068 ,0.00006 ,0.00002 - +,0.07704 ,0.01173 ,0.00541 ,0.00064 ,0.00006 ,0.00002 - +,0.07303 ,0.01104 ,0.00484 ,0.00060 ,0.00005 ,0.00002 - +,0.06937 ,0.01042 ,0.00436 ,0.00056 ,0.00005 ,0.00002 - +,0.06604 ,0.00985 ,0.00394 ,0.00053 ,0.00005 ,0.00002 - +,0.06296 ,0.00933 ,0.00359 ,0.00050 ,0.00005 ,0.00002 - +,0.06014 ,0.00886 ,0.00328 ,0.00047 ,0.00005 ,0.00002 - +,0.05752 ,0.00843 ,0.00301 ,0.00045 ,0.00005 ,0.00002/ - DATA ((F(I,35,K),I=1,6),K=1,19)/ - + 0.16699 ,0.02686 ,0.03752 ,0.00133 ,0.00001 ,0.00000 - +,0.14820 ,0.02339 ,0.02761 ,0.00117 ,0.00003 ,0.00000 - +,0.13302 ,0.02065 ,0.02102 ,0.00105 ,0.00004 ,-0.00001 - +,0.12050 ,0.01843 ,0.01645 ,0.00094 ,0.00004 ,-0.00001 - +,0.11000 ,0.01661 ,0.01317 ,0.00085 ,0.00005 ,0.00000 - +,0.10107 ,0.01507 ,0.01075 ,0.00076 ,0.00005 ,0.00000 - +,0.09335 ,0.01377 ,0.00893 ,0.00070 ,0.00004 ,0.00001 - +,0.08661 ,0.01264 ,0.00751 ,0.00064 ,0.00004 ,0.00001 - +,0.08068 ,0.01166 ,0.00641 ,0.00059 ,0.00004 ,0.00001 - +,0.07543 ,0.01080 ,0.00552 ,0.00054 ,0.00004 ,0.00001 - +,0.07075 ,0.01005 ,0.00480 ,0.00050 ,0.00004 ,0.00001 - +,0.06655 ,0.00938 ,0.00422 ,0.00047 ,0.00004 ,0.00001 - +,0.06277 ,0.00878 ,0.00374 ,0.00044 ,0.00004 ,0.00001 - +,0.05935 ,0.00824 ,0.00333 ,0.00041 ,0.00004 ,0.00001 - +,0.05623 ,0.00776 ,0.00299 ,0.00039 ,0.00003 ,0.00001 - +,0.05339 ,0.00732 ,0.00270 ,0.00036 ,0.00003 ,0.00001 - +,0.05078 ,0.00692 ,0.00245 ,0.00034 ,0.00003 ,0.00001 - +,0.04840 ,0.00656 ,0.00224 ,0.00032 ,0.00003 ,0.00001 - +,0.04619 ,0.00622 ,0.00205 ,0.00031 ,0.00003 ,0.00001/ - DATA ((F(I,36,K),I=1,6),K=1,19)/ - + 0.14088 ,0.02072 ,0.02758 ,0.00095 ,0.00001 ,0.00000 - +,0.12420 ,0.01793 ,0.02003 ,0.00083 ,0.00002 ,0.00000 - +,0.11083 ,0.01574 ,0.01509 ,0.00074 ,0.00002 ,0.00000 - +,0.09987 ,0.01398 ,0.01170 ,0.00066 ,0.00002 ,-0.00001 - +,0.09073 ,0.01254 ,0.00929 ,0.00059 ,0.00003 ,0.00000 - +,0.08300 ,0.01133 ,0.00753 ,0.00053 ,0.00003 ,0.00000 - +,0.07635 ,0.01031 ,0.00621 ,0.00048 ,0.00003 ,0.00000 - +,0.07056 ,0.00943 ,0.00520 ,0.00044 ,0.00003 ,0.00001 - +,0.06550 ,0.00867 ,0.00441 ,0.00040 ,0.00003 ,0.00001 - +,0.06103 ,0.00801 ,0.00379 ,0.00037 ,0.00003 ,0.00001 - +,0.05706 ,0.00742 ,0.00328 ,0.00034 ,0.00002 ,0.00001 - +,0.05351 ,0.00691 ,0.00287 ,0.00032 ,0.00002 ,0.00001 - +,0.05032 ,0.00645 ,0.00253 ,0.00030 ,0.00002 ,0.00001 - +,0.04745 ,0.00604 ,0.00225 ,0.00028 ,0.00002 ,0.00001 - +,0.04484 ,0.00567 ,0.00202 ,0.00026 ,0.00002 ,0.00001 - +,0.04246 ,0.00533 ,0.00182 ,0.00024 ,0.00002 ,0.00001 - +,0.04029 ,0.00503 ,0.00165 ,0.00023 ,0.00002 ,0.00001 - +,0.03831 ,0.00476 ,0.00150 ,0.00022 ,0.00002 ,0.00001 - +,0.03648 ,0.00450 ,0.00137 ,0.00020 ,0.00002 ,0.00001/ - DATA ((F(I,37,K),I=1,6),K=1,19)/ - + 0.09528 ,0.01160 ,0.01401 ,0.00046 ,0.00000 ,0.00000 - +,0.08286 ,0.00991 ,0.00991 ,0.00039 ,0.00001 ,0.00000 - +,0.07304 ,0.00860 ,0.00730 ,0.00034 ,0.00001 ,0.00000 - +,0.06510 ,0.00755 ,0.00555 ,0.00030 ,0.00001 ,0.00000 - +,0.05855 ,0.00671 ,0.00434 ,0.00027 ,0.00001 ,0.00000 - +,0.05306 ,0.00601 ,0.00347 ,0.00024 ,0.00001 ,0.00000 - +,0.04839 ,0.00542 ,0.00282 ,0.00021 ,0.00001 ,0.00000 - +,0.04436 ,0.00492 ,0.00234 ,0.00019 ,0.00001 ,0.00000 - +,0.04087 ,0.00449 ,0.00196 ,0.00018 ,0.00001 ,0.00000 - +,0.03781 ,0.00412 ,0.00167 ,0.00016 ,0.00001 ,0.00000 - +,0.03511 ,0.00379 ,0.00143 ,0.00015 ,0.00001 ,0.00000 - +,0.03272 ,0.00351 ,0.00125 ,0.00014 ,0.00001 ,0.00000 - +,0.03058 ,0.00325 ,0.00109 ,0.00013 ,0.00001 ,0.00000 - +,0.02867 ,0.00303 ,0.00097 ,0.00012 ,0.00001 ,0.00000 - +,0.02694 ,0.00283 ,0.00086 ,0.00011 ,0.00001 ,0.00000 - +,0.02538 ,0.00265 ,0.00077 ,0.00010 ,0.00001 ,0.00000 - +,0.02396 ,0.00249 ,0.00070 ,0.00009 ,0.00001 ,0.00000 - +,0.02267 ,0.00234 ,0.00063 ,0.00009 ,0.00001 ,0.00000 - +,0.02149 ,0.00221 ,0.00058 ,0.00008 ,0.00001 ,0.00000/ - DATA ((F(I,38,K),I=1,6),K=1,19)/ - + 0.05931 ,0.00587 ,0.00641 ,0.00019 ,0.00000 ,0.00000 - +,0.05082 ,0.00494 ,0.00441 ,0.00016 ,0.00000 ,0.00000 - +,0.04420 ,0.00423 ,0.00317 ,0.00014 ,0.00000 ,0.00000 - +,0.03892 ,0.00367 ,0.00236 ,0.00012 ,0.00000 ,0.00000 - +,0.03462 ,0.00323 ,0.00181 ,0.00011 ,0.00000 ,0.00000 - +,0.03106 ,0.00286 ,0.00143 ,0.00009 ,0.00000 ,0.00000 - +,0.02806 ,0.00256 ,0.00115 ,0.00008 ,0.00000 ,0.00000 - +,0.02550 ,0.00230 ,0.00094 ,0.00008 ,0.00000 ,0.00000 - +,0.02329 ,0.00208 ,0.00078 ,0.00007 ,0.00000 ,0.00000 - +,0.02138 ,0.00190 ,0.00066 ,0.00006 ,0.00000 ,0.00000 - +,0.01971 ,0.00174 ,0.00056 ,0.00006 ,0.00000 ,0.00000 - +,0.01824 ,0.00159 ,0.00048 ,0.00005 ,0.00000 ,0.00000 - +,0.01694 ,0.00147 ,0.00042 ,0.00005 ,0.00000 ,0.00000 - +,0.01578 ,0.00136 ,0.00037 ,0.00004 ,0.00000 ,0.00000 - +,0.01474 ,0.00126 ,0.00033 ,0.00004 ,0.00000 ,0.00000 - +,0.01380 ,0.00117 ,0.00029 ,0.00004 ,0.00000 ,0.00000 - +,0.01296 ,0.00110 ,0.00026 ,0.00003 ,0.00000 ,0.00000 - +,0.01219 ,0.00103 ,0.00024 ,0.00003 ,0.00000 ,0.00000 - +,0.01150 ,0.00096 ,0.00022 ,0.00003 ,0.00000 ,0.00000/ - DATA ((F(I,39,K),I=1,6),K=1,19)/ - + 0.03307 ,0.00259 ,0.00255 ,0.00007 ,0.00000 ,0.00000 - +,0.02787 ,0.00214 ,0.00170 ,0.00006 ,0.00000 ,0.00000 - +,0.02387 ,0.00181 ,0.00119 ,0.00005 ,0.00000 ,0.00000 - +,0.02074 ,0.00155 ,0.00087 ,0.00004 ,0.00000 ,0.00000 - +,0.01823 ,0.00135 ,0.00065 ,0.00004 ,0.00000 ,0.00000 - +,0.01617 ,0.00118 ,0.00051 ,0.00003 ,0.00000 ,0.00000 - +,0.01445 ,0.00105 ,0.00040 ,0.00003 ,0.00000 ,0.00000 - +,0.01301 ,0.00093 ,0.00032 ,0.00003 ,0.00000 ,0.00000 - +,0.01177 ,0.00084 ,0.00027 ,0.00002 ,0.00000 ,0.00000 - +,0.01071 ,0.00075 ,0.00022 ,0.00002 ,0.00000 ,0.00000 - +,0.00979 ,0.00068 ,0.00019 ,0.00002 ,0.00000 ,0.00000 - +,0.00899 ,0.00062 ,0.00016 ,0.00002 ,0.00000 ,0.00000 - +,0.00829 ,0.00057 ,0.00014 ,0.00001 ,0.00000 ,0.00000 - +,0.00767 ,0.00052 ,0.00012 ,0.00001 ,0.00000 ,0.00000 - +,0.00711 ,0.00048 ,0.00011 ,0.00001 ,0.00000 ,0.00000 - +,0.00662 ,0.00045 ,0.00010 ,0.00001 ,0.00000 ,0.00000 - +,0.00617 ,0.00042 ,0.00009 ,0.00001 ,0.00000 ,0.00000 - +,0.00577 ,0.00039 ,0.00008 ,0.00001 ,0.00000 ,0.00000 - +,0.00541 ,0.00036 ,0.00007 ,0.00001 ,0.00000 ,0.00000/ - DATA ((F(I,40,K),I=1,6),K=1,19)/ - + 0.01577 ,0.00094 ,0.00082 ,0.00002 ,0.00000 ,0.00000 - +,0.01303 ,0.00076 ,0.00053 ,0.00002 ,0.00000 ,0.00000 - +,0.01097 ,0.00063 ,0.00036 ,0.00001 ,0.00000 ,0.00000 - +,0.00939 ,0.00053 ,0.00026 ,0.00001 ,0.00000 ,0.00000 - +,0.00813 ,0.00046 ,0.00019 ,0.00001 ,0.00000 ,0.00000 - +,0.00712 ,0.00040 ,0.00014 ,0.00001 ,0.00000 ,0.00000 - +,0.00628 ,0.00035 ,0.00011 ,0.00001 ,0.00000 ,0.00000 - +,0.00559 ,0.00031 ,0.00009 ,0.00001 ,0.00000 ,0.00000 - +,0.00501 ,0.00027 ,0.00007 ,0.00001 ,0.00000 ,0.00000 - +,0.00451 ,0.00024 ,0.00006 ,0.00001 ,0.00000 ,0.00000 - +,0.00408 ,0.00022 ,0.00005 ,0.00000 ,0.00000 ,0.00000 - +,0.00371 ,0.00020 ,0.00004 ,0.00000 ,0.00000 ,0.00000 - +,0.00339 ,0.00018 ,0.00004 ,0.00000 ,0.00000 ,0.00000 - +,0.00311 ,0.00016 ,0.00003 ,0.00000 ,0.00000 ,0.00000 - +,0.00286 ,0.00015 ,0.00003 ,0.00000 ,0.00000 ,0.00000 - +,0.00265 ,0.00014 ,0.00003 ,0.00000 ,0.00000 ,0.00000 - +,0.00245 ,0.00013 ,0.00002 ,0.00000 ,0.00000 ,0.00000 - +,0.00228 ,0.00012 ,0.00002 ,0.00000 ,0.00000 ,0.00000 - +,0.00212 ,0.00011 ,0.00002 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,41,K),I=1,6),K=1,19)/ - + 0.00142 ,0.00004 ,0.00002 ,0.00000 ,0.00000 ,0.00000 - +,0.00111 ,0.00003 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00089 ,0.00002 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00072 ,0.00002 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00060 ,0.00002 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00051 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00043 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00037 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00032 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00028 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00025 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00022 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00020 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00018 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00016 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00014 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00013 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00012 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00011 ,0.00000 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA XX/1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, 1.D-3,2.D-3,4.D-3,6.D-3, - +8.D-3, 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, .1D0,.125D0,.15D0,.175D0,. - +2D0,.225D0,.25D0,.275D0, .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,. - +45D0,.475D0, .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, .8D0, - +.9D0,1.D0/ -C -C - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-4,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,4,5,0,0/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - IF(INIT.NE.0) GOTO 50 - INIT=1 - DO 20 N=1,41 - DO 20 M=1,19 -C READ(61,1001)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F -C + (6,N,M) - DO 10 I=1,6 - 10 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,15 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=1,5 - DO 30 K=1,19 - 30 F(I,J,K)= LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K)) - DO 40 I=1,6 - DO 40 M=1,19 - 40 F(I,42,M)=ZEROD - 50 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 60 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 60 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 80 I=1,6 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) + A - + *(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.16) GOTO 70 - IF(I.EQ.6) GOTO 70 - FAC=(ONED-B)*F(I,16,M)+B*F(I,16,M+1) - - G(I)=FAC**(G(I)/FAC) - 70 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 80 CONTINUE - UPV=G(1) - DNV=G(2) - SEA=G(4) - STR=G(4) - CHM=G(5) - GL =G(3) - BOT=G(6) - RETURN - 1001 FORMAT(6F10.5) - END diff --git a/PDF/spdf/strmrs2.F b/PDF/spdf/strmrs2.F deleted file mode 100644 index 407adc832f1..00000000000 --- a/PDF/spdf/strmrs2.F +++ /dev/null @@ -1,904 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:45 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:04 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE STRMRS2(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C -C :::::::::::: MARTIN ROBERTS STIRLING :::::HARD GLUE::::250 MEV:::: -C -#include "pdf/impdp.inc" - DIMENSION F(6,42,19),G(6),XX(42),N0(6) - DATA ((F(I,1,K),I=1,6),K=1,19)/ - + 0.01809 ,0.00296 ,2.57294 ,0.14213 ,0.02321 ,0.00000 - +,0.02016 ,0.00365 ,10.62324 ,0.28639 ,0.13161 ,0.00000 - +,0.02204 ,0.00431 ,19.59578 ,0.50034 ,0.29221 ,0.00000 - +,0.02375 ,0.00493 ,28.79970 ,0.76464 ,0.49052 ,0.00000 - +,0.02534 ,0.00552 ,38.36682 ,1.07156 ,0.72076 ,0.00000 - +,0.02683 ,0.00608 ,48.05655 ,1.37781 ,0.97441 ,0.09570 - +,0.02823 ,0.00663 ,57.78336 ,1.63783 ,1.24619 ,0.40266 - +,0.02957 ,0.00715 ,67.47452 ,1.91902 ,1.53149 ,0.70030 - +,0.03084 ,0.00766 ,77.09000 ,2.20945 ,1.82702 ,1.01117 - +,0.03206 ,0.00816 ,86.60992 ,2.50854 ,2.13063 ,1.32841 - +,0.03323 ,0.00864 ,96.03069 ,2.81468 ,2.44092 ,1.65123 - +,0.03435 ,0.00911,105.35777 ,3.12702 ,2.75710 ,1.97904 - +,0.03544 ,0.00956,114.56445 ,3.44382 ,3.07745 ,2.31019 - +,0.03648 ,0.01001,123.47234 ,3.75809 ,3.39504 ,2.63786 - +,0.03750 ,0.01044,132.31548 ,4.07711 ,3.71715 ,2.96942 - +,0.03848 ,0.01086,140.98859 ,4.39660 ,4.03956 ,3.30069 - +,0.03943 ,0.01128,149.41835 ,4.71339 ,4.35908 ,3.62857 - +,0.04036 ,0.01169,157.81482 ,5.03457 ,4.68284 ,3.96024 - +,0.04125 ,0.01208,165.85399 ,5.34773 ,4.99844 ,4.28331/ - DATA ((F(I,2,K),I=1,6),K=1,19)/ - + 0.02640 ,0.00503 ,2.33417 ,0.14354 ,0.02136 ,0.00000 - +,0.02917 ,0.00609 ,8.51882 ,0.26877 ,0.11542 ,0.00000 - +,0.03166 ,0.00708 ,15.08470 ,0.44306 ,0.24623 ,0.00000 - +,0.03392 ,0.00800 ,21.61850 ,0.64926 ,0.40095 ,0.00000 - +,0.03599 ,0.00887 ,28.24802 ,0.88115 ,0.57491 ,0.00000 - +,0.03792 ,0.00969 ,34.82475 ,1.10700 ,0.76187 ,0.07013 - +,0.03974 ,0.01048 ,41.30574 ,1.29453 ,0.95820 ,0.29278 - +,0.04145 ,0.01124 ,47.65630 ,1.49401 ,1.16085 ,0.50485 - +,0.04308 ,0.01196 ,53.86237 ,1.69698 ,1.36769 ,0.72331 - +,0.04463 ,0.01266 ,59.92186 ,1.90327 ,1.57744 ,0.94340 - +,0.04611 ,0.01334 ,65.84218 ,2.11197 ,1.78930 ,1.16478 - +,0.04753 ,0.01399 ,71.63525 ,2.32263 ,2.00291 ,1.38722 - +,0.04889 ,0.01463 ,77.29030 ,2.53422 ,2.21724 ,1.60977 - +,0.05020 ,0.01524 ,82.69762 ,2.74220 ,2.42776 ,1.82797 - +,0.05146 ,0.01584 ,88.01620 ,2.95157 ,2.63953 ,2.04694 - +,0.05268 ,0.01643 ,93.18262 ,3.15962 ,2.84982 ,2.26400 - +,0.05386 ,0.01699 ,98.15425 ,3.36434 ,3.05665 ,2.47722 - +,0.05501 ,0.01755,103.07021 ,3.57053 ,3.26484 ,2.69145 - +,0.05611 ,0.01808,107.72757 ,3.77012 ,3.46633 ,2.89865/ - DATA ((F(I,3,K),I=1,6),K=1,19)/ - + 0.03838 ,0.00852 ,2.11877 ,0.14428 ,0.01938 ,0.00000 - +,0.04205 ,0.01014 ,6.83401 ,0.25155 ,0.09994 ,0.00000 - +,0.04532 ,0.01161 ,11.61351 ,0.39180 ,0.20522 ,0.00000 - +,0.04825 ,0.01297 ,16.22672 ,0.55092 ,0.32463 ,0.00000 - +,0.05093 ,0.01424 ,20.79333 ,0.72435 ,0.45476 ,0.00000 - +,0.05341 ,0.01543 ,25.22746 ,0.88930 ,0.59127 ,0.05094 - +,0.05573 ,0.01656 ,29.51372 ,1.02324 ,0.73182 ,0.21110 - +,0.05790 ,0.01764 ,33.64099 ,1.16343 ,0.87448 ,0.36098 - +,0.05996 ,0.01866 ,37.61014 ,1.30396 ,1.01798 ,0.51328 - +,0.06191 ,0.01964 ,41.42908 ,1.44492 ,1.16162 ,0.66476 - +,0.06376 ,0.02058 ,45.11005 ,1.58586 ,1.30501 ,0.81538 - +,0.06553 ,0.02149 ,48.66714 ,1.72659 ,1.44804 ,0.96512 - +,0.06722 ,0.02236 ,52.09866 ,1.86657 ,1.59015 ,1.11348 - +,0.06884 ,0.02320 ,55.33760 ,2.00286 ,1.72843 ,1.25760 - +,0.07039 ,0.02401 ,58.49226 ,2.13891 ,1.86636 ,1.40102 - +,0.07189 ,0.02480 ,61.52467 ,2.27302 ,2.00224 ,1.54206 - +,0.07333 ,0.02557 ,64.41104 ,2.40396 ,2.13484 ,1.67953 - +,0.07473 ,0.02631 ,67.24313 ,2.53496 ,2.26742 ,1.81673 - +,0.07607 ,0.02703 ,69.89406 ,2.66080 ,2.39475 ,1.94844/ - DATA ((F(I,4,K),I=1,6),K=1,19)/ - + 0.04767 ,0.01161 ,2.00305 ,0.14428 ,0.01817 ,0.00000 - +,0.05197 ,0.01365 ,6.00945 ,0.24152 ,0.09122 ,0.00000 - +,0.05577 ,0.01551 ,9.96714 ,0.36419 ,0.18333 ,0.00000 - +,0.05917 ,0.01720 ,13.71899 ,0.50010 ,0.28535 ,0.00000 - +,0.06227 ,0.01878 ,17.37830 ,0.64560 ,0.39456 ,0.00000 - +,0.06513 ,0.02025 ,20.88557 ,0.78211 ,0.50754 ,0.04206 - +,0.06778 ,0.02163 ,24.23633 ,0.89152 ,0.62255 ,0.17355 - +,0.07027 ,0.02294 ,27.42827 ,1.00496 ,0.73816 ,0.29536 - +,0.07261 ,0.02418 ,30.46782 ,1.11769 ,0.85348 ,0.41815 - +,0.07482 ,0.02536 ,33.36572 ,1.22991 ,0.96802 ,0.53937 - +,0.07692 ,0.02650 ,36.13553 ,1.34132 ,1.08157 ,0.65908 - +,0.07891 ,0.02759 ,38.79132 ,1.45187 ,1.19413 ,0.77735 - +,0.08082 ,0.02863 ,41.33440 ,1.56118 ,1.30530 ,0.89386 - +,0.08264 ,0.02963 ,43.71498 ,1.66702 ,1.41289 ,1.00643 - +,0.08438 ,0.03060 ,46.01938 ,1.77215 ,1.51966 ,1.11788 - +,0.08606 ,0.03153 ,48.21994 ,1.87527 ,1.62434 ,1.22697 - +,0.08767 ,0.03243 ,50.29971 ,1.97547 ,1.72602 ,1.33281 - +,0.08923 ,0.03331 ,52.33046 ,2.07532 ,1.82726 ,1.43800 - +,0.09072 ,0.03415 ,54.21626 ,2.17079 ,1.92406 ,1.53854/ - DATA ((F(I,5,K),I=1,6),K=1,19)/ - + 0.05552 ,0.01444 ,1.92544 ,0.14403 ,0.01729 ,0.00000 - +,0.06032 ,0.01686 ,5.48676 ,0.23438 ,0.08519 ,0.00000 - +,0.06455 ,0.01904 ,8.94324 ,0.34553 ,0.16867 ,0.00000 - +,0.06832 ,0.02101 ,12.17795 ,0.46666 ,0.25964 ,0.00000 - +,0.07174 ,0.02284 ,15.29915 ,0.59474 ,0.35581 ,0.00000 - +,0.07488 ,0.02453 ,18.26247 ,0.71376 ,0.45434 ,0.03662 - +,0.07780 ,0.02612 ,21.06924 ,0.80827 ,0.55385 ,0.15069 - +,0.08052 ,0.02762 ,23.72192 ,0.90562 ,0.65319 ,0.25560 - +,0.08308 ,0.02904 ,26.22952 ,1.00175 ,0.75168 ,0.36075 - +,0.08549 ,0.03039 ,28.60416 ,1.09693 ,0.84898 ,0.46402 - +,0.08777 ,0.03168 ,30.85960 ,1.19095 ,0.94496 ,0.56550 - +,0.08994 ,0.03291 ,33.00970 ,1.28383 ,1.03967 ,0.66532 - +,0.09201 ,0.03410 ,35.05713 ,1.37527 ,1.13283 ,0.76324 - +,0.09398 ,0.03522 ,36.96175 ,1.46344 ,1.22261 ,0.85747 - +,0.09586 ,0.03631 ,38.79694 ,1.55071 ,1.31139 ,0.95045 - +,0.09767 ,0.03736 ,40.54060 ,1.63602 ,1.39814 ,1.04114 - +,0.09940 ,0.03837 ,42.17957 ,1.71863 ,1.48210 ,1.12882 - +,0.10108 ,0.03935 ,43.77426 ,1.80070 ,1.56547 ,1.21572 - +,0.10268 ,0.04029 ,45.24585 ,1.87890 ,1.64490 ,1.29850/ - DATA ((F(I,6,K),I=1,6),K=1,19)/ - + 0.06244 ,0.01711 ,1.86779 ,0.14367 ,0.01660 ,0.00000 - +,0.06766 ,0.01985 ,5.11375 ,0.22879 ,0.08060 ,0.00000 - +,0.07224 ,0.02231 ,8.22249 ,0.33153 ,0.15780 ,0.00000 - +,0.07631 ,0.02453 ,11.10250 ,0.44210 ,0.24086 ,0.00000 - +,0.08000 ,0.02657 ,13.85794 ,0.55790 ,0.32785 ,0.00000 - +,0.08338 ,0.02846 ,16.45438 ,0.66472 ,0.41631 ,0.03285 - +,0.08651 ,0.03023 ,18.89682 ,0.74892 ,0.50510 ,0.13487 - +,0.08943 ,0.03190 ,21.19051 ,0.83521 ,0.59328 ,0.22817 - +,0.09216 ,0.03347 ,23.34607 ,0.92002 ,0.68028 ,0.32128 - +,0.09473 ,0.03496 ,25.37616 ,1.00362 ,0.76587 ,0.41234 - +,0.09716 ,0.03637 ,27.29463 ,1.08589 ,0.84998 ,0.50149 - +,0.09947 ,0.03773 ,29.11496 ,1.16686 ,0.93268 ,0.58887 - +,0.10167 ,0.03903 ,30.84052 ,1.24633 ,1.01376 ,0.67432 - +,0.10375 ,0.04026 ,32.43736 ,1.32270 ,1.09164 ,0.75629 - +,0.10575 ,0.04145 ,33.97038 ,1.39808 ,1.16845 ,0.83694 - +,0.10767 ,0.04259 ,35.42079 ,1.47155 ,1.24328 ,0.91539 - +,0.10950 ,0.04369 ,36.77806 ,1.54251 ,1.31552 ,0.99105 - +,0.11126 ,0.04476 ,38.09479 ,1.61285 ,1.38709 ,1.06585 - +,0.11295 ,0.04578 ,39.30348 ,1.67968 ,1.45509 ,1.13693/ - DATA ((F(I,7,K),I=1,6),K=1,19)/ - + 0.08952 ,0.02889 ,1.70319 ,0.14146 ,0.01439 ,0.00000 - +,0.09620 ,0.03288 ,4.11544 ,0.21108 ,0.06689 ,0.00000 - +,0.10200 ,0.03640 ,6.33652 ,0.29037 ,0.12663 ,0.00000 - +,0.10711 ,0.03954 ,8.32864 ,0.37258 ,0.18855 ,0.00000 - +,0.11170 ,0.04239 ,10.18264 ,0.45624 ,0.25155 ,0.00000 - +,0.11587 ,0.04500 ,11.88694 ,0.53167 ,0.31418 ,0.02322 - +,0.11971 ,0.04742 ,13.45386 ,0.58975 ,0.37585 ,0.09472 - +,0.12326 ,0.04967 ,14.89442 ,0.64835 ,0.43610 ,0.15898 - +,0.12656 ,0.05178 ,16.22162 ,0.70507 ,0.49468 ,0.22222 - +,0.12966 ,0.05376 ,17.44855 ,0.76023 ,0.55154 ,0.28327 - +,0.13256 ,0.05564 ,18.58812 ,0.81384 ,0.60672 ,0.34233 - +,0.13531 ,0.05741 ,19.65208 ,0.86601 ,0.66037 ,0.39957 - +,0.13791 ,0.05910 ,20.64507 ,0.91666 ,0.71242 ,0.45498 - +,0.14037 ,0.06070 ,21.54726 ,0.96483 ,0.76190 ,0.50760 - +,0.14271 ,0.06223 ,22.40225 ,1.01193 ,0.81026 ,0.55891 - +,0.14494 ,0.06369 ,23.19934 ,1.05744 ,0.85695 ,0.60839 - +,0.14707 ,0.06509 ,23.93315 ,1.10098 ,0.90162 ,0.65569 - +,0.14912 ,0.06644 ,24.63791 ,1.14384 ,0.94556 ,0.70212 - +,0.15106 ,0.06772 ,25.27208 ,1.18417 ,0.98692 ,0.74585/ - DATA ((F(I,8,K),I=1,6),K=1,19)/ - + 0.12714 ,0.04851 ,1.56201 ,0.13726 ,0.01216 ,0.00000 - +,0.13547 ,0.05412 ,3.32525 ,0.19256 ,0.05416 ,0.00000 - +,0.14261 ,0.05899 ,4.88908 ,0.25217 ,0.09937 ,0.00000 - +,0.14883 ,0.06326 ,6.24326 ,0.31186 ,0.14461 ,0.00000 - +,0.15437 ,0.06708 ,7.46538 ,0.37094 ,0.18936 ,0.00000 - +,0.15936 ,0.07054 ,8.55767 ,0.42298 ,0.23285 ,0.01615 - +,0.16390 ,0.07370 ,9.53574 ,0.46202 ,0.27487 ,0.06548 - +,0.16807 ,0.07662 ,10.41279 ,0.50079 ,0.31522 ,0.10902 - +,0.17193 ,0.07931 ,11.20191 ,0.53772 ,0.35385 ,0.15126 - +,0.17551 ,0.08183 ,11.91524 ,0.57312 ,0.39081 ,0.19148 - +,0.17885 ,0.08418 ,12.56386 ,0.60706 ,0.42622 ,0.22989 - +,0.18199 ,0.08640 ,13.15751 ,0.63968 ,0.46022 ,0.26669 - +,0.18495 ,0.08849 ,13.70079 ,0.67099 ,0.49284 ,0.30191 - +,0.18771 ,0.09044 ,14.18252 ,0.70040 ,0.52348 ,0.33500 - +,0.19034 ,0.09231 ,14.63162 ,0.72888 ,0.55313 ,0.36695 - +,0.19283 ,0.09408 ,15.04217 ,0.75611 ,0.58149 ,0.39746 - +,0.19519 ,0.09575 ,15.41160 ,0.78189 ,0.60834 ,0.42636 - +,0.19745 ,0.09736 ,15.76188 ,0.80707 ,0.63453 ,0.45450 - +,0.19958 ,0.09888 ,16.06783 ,0.83049 ,0.65893 ,0.48074/ - DATA ((F(I,9,K),I=1,6),K=1,19)/ - + 0.15521 ,0.06538 ,1.49200 ,0.13378 ,0.01088 ,0.00000 - +,0.16451 ,0.07206 ,2.94512 ,0.18137 ,0.04731 ,0.00000 - +,0.17241 ,0.07778 ,4.20519 ,0.23110 ,0.08530 ,0.00000 - +,0.17924 ,0.08273 ,5.27148 ,0.27993 ,0.12255 ,0.00000 - +,0.18527 ,0.08713 ,6.21419 ,0.32746 ,0.15880 ,0.00000 - +,0.19067 ,0.09107 ,7.04078 ,0.36874 ,0.19355 ,0.01294 - +,0.19556 ,0.09465 ,7.76753 ,0.39915 ,0.22672 ,0.05227 - +,0.20002 ,0.09792 ,8.40782 ,0.42905 ,0.25824 ,0.08661 - +,0.20412 ,0.10093 ,8.97418 ,0.45724 ,0.28812 ,0.11961 - +,0.20791 ,0.10371 ,9.47782 ,0.48401 ,0.31644 ,0.15076 - +,0.21143 ,0.10630 ,9.92860 ,0.50945 ,0.34334 ,0.18027 - +,0.21471 ,0.10872 ,10.33505 ,0.53370 ,0.36897 ,0.20833 - +,0.21779 ,0.11099 ,10.70145 ,0.55680 ,0.39337 ,0.23499 - +,0.22066 ,0.11310 ,11.02000 ,0.57831 ,0.41612 ,0.25986 - +,0.22338 ,0.11510 ,11.31317 ,0.59901 ,0.43798 ,0.28372 - +,0.22594 ,0.11699 ,11.57686 ,0.61865 ,0.45875 ,0.30637 - +,0.22835 ,0.11876 ,11.80949 ,0.63712 ,0.47829 ,0.32768 - +,0.23066 ,0.12047 ,12.02778 ,0.65505 ,0.49725 ,0.34833 - +,0.23283 ,0.12206 ,12.21320 ,0.67160 ,0.51478 ,0.36745/ - DATA ((F(I,10,K),I=1,6),K=1,19)/ - + 0.17824 ,0.08054 ,1.45078 ,0.13125 ,0.01005 ,0.00000 - +,0.18811 ,0.08794 ,2.71048 ,0.17392 ,0.04298 ,0.00000 - +,0.19645 ,0.09421 ,3.78233 ,0.21752 ,0.07652 ,0.00000 - +,0.20361 ,0.09958 ,4.67271 ,0.25965 ,0.10889 ,0.00000 - +,0.20989 ,0.10432 ,5.44688 ,0.30014 ,0.13999 ,0.00000 - +,0.21548 ,0.10854 ,6.11506 ,0.33488 ,0.16947 ,0.01101 - +,0.22051 ,0.11233 ,6.69344 ,0.36009 ,0.19734 ,0.04433 - +,0.22508 ,0.11578 ,7.19560 ,0.38468 ,0.22359 ,0.07316 - +,0.22926 ,0.11893 ,7.63313 ,0.40766 ,0.24827 ,0.10067 - +,0.23310 ,0.12182 ,8.01665 ,0.42931 ,0.27150 ,0.12646 - +,0.23665 ,0.12450 ,8.35515 ,0.44973 ,0.29341 ,0.15073 - +,0.23995 ,0.12698 ,8.65620 ,0.46907 ,0.31414 ,0.17366 - +,0.24304 ,0.12931 ,8.92378 ,0.48737 ,0.33376 ,0.19533 - +,0.24589 ,0.13145 ,9.15204 ,0.50429 ,0.35194 ,0.21542 - +,0.24859 ,0.13348 ,9.35949 ,0.52047 ,0.36931 ,0.23461 - +,0.25112 ,0.13538 ,9.54301 ,0.53574 ,0.38573 ,0.25272 - +,0.25349 ,0.13716 ,9.70169 ,0.55000 ,0.40107 ,0.26968 - +,0.25576 ,0.13886 ,9.84907 ,0.56379 ,0.41591 ,0.28604 - +,0.25787 ,0.14044 ,9.97035 ,0.57642 ,0.42954 ,0.30111/ - DATA ((F(I,11,K),I=1,6),K=1,19)/ - + 0.19799 ,0.09444 ,1.42425 ,0.12936 ,0.00946 ,0.00000 - +,0.20821 ,0.10231 ,2.54718 ,0.16856 ,0.03995 ,0.00000 - +,0.21678 ,0.10893 ,3.48620 ,0.20787 ,0.07042 ,0.00000 - +,0.22408 ,0.11455 ,4.25381 ,0.24533 ,0.09941 ,0.00000 - +,0.23045 ,0.11947 ,4.91153 ,0.28093 ,0.12694 ,0.00000 - +,0.23610 ,0.12381 ,5.47128 ,0.31114 ,0.15279 ,0.00968 - +,0.24115 ,0.12769 ,5.94914 ,0.33276 ,0.17702 ,0.03886 - +,0.24572 ,0.13120 ,6.35833 ,0.35369 ,0.19966 ,0.06391 - +,0.24987 ,0.13438 ,6.70994 ,0.37310 ,0.22081 ,0.08766 - +,0.25367 ,0.13728 ,7.01394 ,0.39126 ,0.24058 ,0.10979 - +,0.25717 ,0.13995 ,7.27861 ,0.40828 ,0.25911 ,0.13051 - +,0.26041 ,0.14242 ,7.51086 ,0.42429 ,0.27654 ,0.14997 - +,0.26342 ,0.14472 ,7.71442 ,0.43935 ,0.29295 ,0.16828 - +,0.26620 ,0.14682 ,7.88459 ,0.45318 ,0.30807 ,0.18517 - +,0.26881 ,0.14880 ,8.03728 ,0.46635 ,0.32245 ,0.20122 - +,0.27126 ,0.15065 ,8.16997 ,0.47870 ,0.33597 ,0.21632 - +,0.27353 ,0.15237 ,8.28204 ,0.49017 ,0.34855 ,0.23038 - +,0.27570 ,0.15401 ,8.38494 ,0.50121 ,0.36066 ,0.24390 - +,0.27772 ,0.15551 ,8.46639 ,0.51125 ,0.37172 ,0.25630/ - DATA ((F(I,12,K),I=1,6),K=1,19)/ - + 0.27055 ,0.15164 ,1.36293 ,0.12070 ,0.00769 ,0.00000 - +,0.28105 ,0.16009 ,2.12061 ,0.14977 ,0.03118 ,0.00000 - +,0.28961 ,0.16691 ,2.71560 ,0.17715 ,0.05321 ,0.00000 - +,0.29668 ,0.17248 ,3.17263 ,0.20204 ,0.07321 ,0.00000 - +,0.30271 ,0.17718 ,3.54220 ,0.22477 ,0.09147 ,0.00000 - +,0.30791 ,0.18120 ,3.83904 ,0.24331 ,0.10806 ,0.00629 - +,0.31245 ,0.18467 ,4.07775 ,0.25580 ,0.12315 ,0.02505 - +,0.31647 ,0.18770 ,4.26970 ,0.26757 ,0.13686 ,0.04073 - +,0.32001 ,0.19036 ,4.42418 ,0.27816 ,0.14934 ,0.05526 - +,0.32318 ,0.19272 ,4.54868 ,0.28779 ,0.16073 ,0.06852 - +,0.32604 ,0.19481 ,4.64935 ,0.29658 ,0.17117 ,0.08068 - +,0.32863 ,0.19670 ,4.73112 ,0.30464 ,0.18078 ,0.09190 - +,0.33098 ,0.19840 ,4.79675 ,0.31205 ,0.18965 ,0.10226 - +,0.33309 ,0.19989 ,4.84400 ,0.31864 ,0.19763 ,0.11164 - +,0.33503 ,0.20127 ,4.88235 ,0.32478 ,0.20509 ,0.12042 - +,0.33680 ,0.20251 ,4.91057 ,0.33040 ,0.21197 ,0.12854 - +,0.33841 ,0.20362 ,4.92845 ,0.33547 ,0.21824 ,0.13599 - +,0.33993 ,0.20466 ,4.94246 ,0.34028 ,0.22419 ,0.14305 - +,0.34127 ,0.20556 ,4.94599 ,0.34448 ,0.22949 ,0.14941/ - DATA ((F(I,13,K),I=1,6),K=1,19)/ - + 0.35927 ,0.23013 ,1.33961 ,0.10727 ,0.00612 ,0.00000 - +,0.36765 ,0.23583 ,1.79937 ,0.12752 ,0.02372 ,0.00000 - +,0.37403 ,0.23993 ,2.12601 ,0.14513 ,0.03901 ,0.00000 - +,0.37892 ,0.24286 ,2.35146 ,0.16011 ,0.05207 ,0.00000 - +,0.38281 ,0.24503 ,2.51532 ,0.17305 ,0.06340 ,0.00000 - +,0.38591 ,0.24663 ,2.63190 ,0.18291 ,0.07324 ,0.00385 - +,0.38841 ,0.24779 ,2.71295 ,0.18879 ,0.08182 ,0.01514 - +,0.39042 ,0.24859 ,2.76704 ,0.19408 ,0.08931 ,0.02427 - +,0.39203 ,0.24911 ,2.80085 ,0.19857 ,0.09589 ,0.03247 - +,0.39332 ,0.24942 ,2.81949 ,0.20243 ,0.10167 ,0.03975 - +,0.39434 ,0.24956 ,2.82687 ,0.20575 ,0.10679 ,0.04624 - +,0.39516 ,0.24957 ,2.82595 ,0.20864 ,0.11136 ,0.05209 - +,0.39579 ,0.24946 ,2.81838 ,0.21115 ,0.11545 ,0.05736 - +,0.39622 ,0.24922 ,2.80318 ,0.21319 ,0.11898 ,0.06200 - +,0.39655 ,0.24893 ,2.78528 ,0.21499 ,0.12220 ,0.06626 - +,0.39675 ,0.24856 ,2.76404 ,0.21653 ,0.12506 ,0.07010 - +,0.39683 ,0.24812 ,2.73938 ,0.21777 ,0.12757 ,0.07354 - +,0.39686 ,0.24767 ,2.71449 ,0.21889 ,0.12991 ,0.07675 - +,0.39675 ,0.24713 ,2.68604 ,0.21971 ,0.13188 ,0.07955/ - DATA ((F(I,14,K),I=1,6),K=1,19)/ - + 0.41642 ,0.27995 ,1.33591 ,0.09577 ,0.00523 ,0.00001 - +,0.42157 ,0.28126 ,1.64049 ,0.11125 ,0.01965 ,0.00001 - +,0.42496 ,0.28147 ,1.83543 ,0.12390 ,0.03152 ,0.00001 - +,0.42705 ,0.28095 ,1.95304 ,0.13406 ,0.04121 ,0.00001 - +,0.42834 ,0.28001 ,2.02602 ,0.14241 ,0.04930 ,0.00001 - +,0.42902 ,0.27878 ,2.06673 ,0.14835 ,0.05607 ,0.00276 - +,0.42922 ,0.27734 ,2.08441 ,0.15134 ,0.06178 ,0.01073 - +,0.42906 ,0.27575 ,2.08579 ,0.15388 ,0.06660 ,0.01701 - +,0.42862 ,0.27406 ,2.07567 ,0.15584 ,0.07070 ,0.02252 - +,0.42796 ,0.27230 ,2.05763 ,0.15737 ,0.07419 ,0.02731 - +,0.42713 ,0.27051 ,2.03425 ,0.15855 ,0.07719 ,0.03150 - +,0.42617 ,0.26872 ,2.00747 ,0.15944 ,0.07979 ,0.03519 - +,0.42514 ,0.26692 ,1.97831 ,0.16010 ,0.08203 ,0.03846 - +,0.42397 ,0.26509 ,1.94598 ,0.16047 ,0.08389 ,0.04128 - +,0.42275 ,0.26330 ,1.91359 ,0.16072 ,0.08554 ,0.04381 - +,0.42148 ,0.26152 ,1.88062 ,0.16081 ,0.08695 ,0.04606 - +,0.42015 ,0.25975 ,1.84693 ,0.16073 ,0.08813 ,0.04803 - +,0.41883 ,0.25803 ,1.81437 ,0.16061 ,0.08920 ,0.04985 - +,0.41741 ,0.25628 ,1.78080 ,0.16031 ,0.09002 ,0.05138/ - DATA ((F(I,15,K),I=1,6),K=1,19)/ - + 0.45715 ,0.31069 ,1.32916 ,0.08552 ,0.00456 ,0.00000 - +,0.45867 ,0.30735 ,1.52936 ,0.09777 ,0.01676 ,0.00000 - +,0.45878 ,0.30364 ,1.64025 ,0.10722 ,0.02638 ,0.00000 - +,0.45793 ,0.29974 ,1.69224 ,0.11439 ,0.03392 ,0.00000 - +,0.45652 ,0.29587 ,1.71234 ,0.11999 ,0.04001 ,0.00000 - +,0.45475 ,0.29202 ,1.71084 ,0.12363 ,0.04496 ,0.00209 - +,0.45267 ,0.28826 ,1.69492 ,0.12500 ,0.04899 ,0.00808 - +,0.45040 ,0.28455 ,1.66956 ,0.12603 ,0.05230 ,0.01270 - +,0.44797 ,0.28094 ,1.63828 ,0.12665 ,0.05502 ,0.01669 - +,0.44547 ,0.27743 ,1.60353 ,0.12697 ,0.05725 ,0.02008 - +,0.44290 ,0.27404 ,1.56703 ,0.12706 ,0.05912 ,0.02300 - +,0.44031 ,0.27077 ,1.52996 ,0.12697 ,0.06067 ,0.02553 - +,0.43774 ,0.26761 ,1.49287 ,0.12673 ,0.06198 ,0.02773 - +,0.43509 ,0.26452 ,1.45511 ,0.12631 ,0.06299 ,0.02959 - +,0.43249 ,0.26156 ,1.41866 ,0.12583 ,0.06386 ,0.03123 - +,0.42993 ,0.25868 ,1.38304 ,0.12527 ,0.06455 ,0.03267 - +,0.42735 ,0.25587 ,1.34804 ,0.12461 ,0.06509 ,0.03390 - +,0.42484 ,0.25320 ,1.31479 ,0.12395 ,0.06556 ,0.03501 - +,0.42230 ,0.25055 ,1.28183 ,0.12318 ,0.06586 ,0.03593/ - DATA ((F(I,16,K),I=1,6),K=1,19)/ - + 0.48719 ,0.32748 ,1.31487 ,0.07628 ,0.00402 ,0.00000 - +,0.48486 ,0.31979 ,1.43734 ,0.08613 ,0.01450 ,0.00000 - +,0.48161 ,0.31251 ,1.48867 ,0.09330 ,0.02245 ,0.00000 - +,0.47778 ,0.30563 ,1.49619 ,0.09841 ,0.02847 ,0.00000 - +,0.47372 ,0.29921 ,1.48206 ,0.10218 ,0.03318 ,0.00000 - +,0.46955 ,0.29316 ,1.45447 ,0.10435 ,0.03690 ,0.00164 - +,0.46528 ,0.28746 ,1.41875 ,0.10473 ,0.03983 ,0.00630 - +,0.46100 ,0.28203 ,1.37852 ,0.10486 ,0.04216 ,0.00983 - +,0.45672 ,0.27689 ,1.33621 ,0.10470 ,0.04401 ,0.01282 - +,0.45250 ,0.27201 ,1.29342 ,0.10433 ,0.04548 ,0.01532 - +,0.44834 ,0.26737 ,1.25121 ,0.10381 ,0.04666 ,0.01744 - +,0.44427 ,0.26298 ,1.21023 ,0.10319 ,0.04760 ,0.01925 - +,0.44030 ,0.25879 ,1.17069 ,0.10248 ,0.04835 ,0.02080 - +,0.43635 ,0.25476 ,1.13197 ,0.10167 ,0.04888 ,0.02208 - +,0.43254 ,0.25094 ,1.09534 ,0.10083 ,0.04931 ,0.02319 - +,0.42882 ,0.24727 ,1.06033 ,0.09996 ,0.04961 ,0.02415 - +,0.42516 ,0.24374 ,1.02668 ,0.09904 ,0.04981 ,0.02495 - +,0.42163 ,0.24038 ,0.99508 ,0.09814 ,0.04995 ,0.02566 - +,0.41812 ,0.23712 ,0.96444 ,0.09718 ,0.04999 ,0.02623/ - DATA ((F(I,17,K),I=1,6),K=1,19)/ - + 0.51376 ,0.33398 ,1.28575 ,0.06596 ,0.00346 ,0.00000 - +,0.50650 ,0.32163 ,1.33438 ,0.07352 ,0.01221 ,0.00000 - +,0.49907 ,0.31063 ,1.33205 ,0.07863 ,0.01856 ,0.00001 - +,0.49159 ,0.30073 ,1.30149 ,0.08197 ,0.02319 ,0.00000 - +,0.48434 ,0.29177 ,1.25955 ,0.08419 ,0.02668 ,0.00001 - +,0.47733 ,0.28361 ,1.21195 ,0.08517 ,0.02933 ,0.00125 - +,0.47052 ,0.27604 ,1.16206 ,0.08480 ,0.03134 ,0.00475 - +,0.46391 ,0.26904 ,1.11205 ,0.08427 ,0.03287 ,0.00735 - +,0.45753 ,0.26251 ,1.06329 ,0.08356 ,0.03402 ,0.00950 - +,0.45136 ,0.25641 ,1.01656 ,0.08273 ,0.03490 ,0.01127 - +,0.44543 ,0.25069 ,0.97228 ,0.08182 ,0.03554 ,0.01274 - +,0.43974 ,0.24533 ,0.93063 ,0.08087 ,0.03602 ,0.01397 - +,0.43426 ,0.24028 ,0.89152 ,0.07989 ,0.03636 ,0.01500 - +,0.42891 ,0.23548 ,0.85433 ,0.07886 ,0.03655 ,0.01583 - +,0.42378 ,0.23097 ,0.81975 ,0.07784 ,0.03667 ,0.01655 - +,0.41884 ,0.22668 ,0.78730 ,0.07681 ,0.03671 ,0.01714 - +,0.41403 ,0.22258 ,0.75668 ,0.07578 ,0.03668 ,0.01763 - +,0.40944 ,0.21871 ,0.72824 ,0.07479 ,0.03662 ,0.01805 - +,0.40492 ,0.21499 ,0.70117 ,0.07377 ,0.03649 ,0.01837/ - DATA ((F(I,18,K),I=1,6),K=1,19)/ - + 0.53072 ,0.32884 ,1.24418 ,0.05683 ,0.00297 ,0.00000 - +,0.51859 ,0.31280 ,1.23684 ,0.06264 ,0.01029 ,0.00000 - +,0.50709 ,0.29897 ,1.19628 ,0.06626 ,0.01541 ,0.00000 - +,0.49617 ,0.28683 ,1.14031 ,0.06836 ,0.01900 ,0.00000 - +,0.48595 ,0.27609 ,1.08109 ,0.06956 ,0.02161 ,0.00000 - +,0.47633 ,0.26645 ,1.02211 ,0.06979 ,0.02353 ,0.00096 - +,0.46720 ,0.25768 ,0.96506 ,0.06900 ,0.02492 ,0.00364 - +,0.45854 ,0.24964 ,0.91097 ,0.06812 ,0.02592 ,0.00558 - +,0.45028 ,0.24226 ,0.86035 ,0.06714 ,0.02663 ,0.00716 - +,0.44245 ,0.23541 ,0.81337 ,0.06609 ,0.02713 ,0.00844 - +,0.43499 ,0.22906 ,0.76998 ,0.06502 ,0.02746 ,0.00948 - +,0.42790 ,0.22315 ,0.73004 ,0.06394 ,0.02767 ,0.01034 - +,0.42116 ,0.21764 ,0.69323 ,0.06287 ,0.02778 ,0.01104 - +,0.41466 ,0.21244 ,0.65891 ,0.06178 ,0.02778 ,0.01160 - +,0.40847 ,0.20757 ,0.62741 ,0.06072 ,0.02774 ,0.01206 - +,0.40253 ,0.20299 ,0.59824 ,0.05968 ,0.02764 ,0.01245 - +,0.39681 ,0.19864 ,0.57112 ,0.05866 ,0.02750 ,0.01274 - +,0.39137 ,0.19455 ,0.54615 ,0.05768 ,0.02734 ,0.01299 - +,0.38607 ,0.19063 ,0.52270 ,0.05670 ,0.02714 ,0.01317/ - DATA ((F(I,19,K),I=1,6),K=1,19)/ - + 0.53973 ,0.31551 ,1.19189 ,0.04876 ,0.00254 ,0.00000 - +,0.52292 ,0.29679 ,1.14181 ,0.05320 ,0.00866 ,-0.00001 - +,0.50759 ,0.28101 ,1.07404 ,0.05571 ,0.01280 ,-0.00001 - +,0.49347 ,0.26740 ,1.00136 ,0.05694 ,0.01559 ,-0.00001 - +,0.48053 ,0.25552 ,0.93188 ,0.05746 ,0.01756 ,-0.00001 - +,0.46858 ,0.24498 ,0.86706 ,0.05723 ,0.01894 ,0.00074 - +,0.45742 ,0.23552 ,0.80723 ,0.05622 ,0.01990 ,0.00280 - +,0.44698 ,0.22693 ,0.75248 ,0.05517 ,0.02055 ,0.00428 - +,0.43715 ,0.21910 ,0.70263 ,0.05407 ,0.02097 ,0.00546 - +,0.42791 ,0.21192 ,0.65743 ,0.05295 ,0.02123 ,0.00639 - +,0.41919 ,0.20530 ,0.61648 ,0.05184 ,0.02137 ,0.00714 - +,0.41097 ,0.19919 ,0.57938 ,0.05075 ,0.02142 ,0.00774 - +,0.40319 ,0.19352 ,0.54569 ,0.04969 ,0.02139 ,0.00823 - +,0.39574 ,0.18820 ,0.51476 ,0.04863 ,0.02129 ,0.00860 - +,0.38870 ,0.18325 ,0.48669 ,0.04762 ,0.02117 ,0.00891 - +,0.38202 ,0.17860 ,0.46100 ,0.04664 ,0.02101 ,0.00915 - +,0.37560 ,0.17422 ,0.43736 ,0.04568 ,0.02082 ,0.00933 - +,0.36951 ,0.17011 ,0.41575 ,0.04477 ,0.02062 ,0.00949 - +,0.36362 ,0.16622 ,0.39569 ,0.04387 ,0.02039 ,0.00958/ - DATA ((F(I,20,K),I=1,6),K=1,19)/ - + 0.54194 ,0.29657 ,1.13115 ,0.04165 ,0.00216 ,0.00000 - +,0.52071 ,0.27611 ,1.04879 ,0.04501 ,0.00727 ,-0.00001 - +,0.50186 ,0.25914 ,0.96209 ,0.04669 ,0.01061 ,-0.00001 - +,0.48485 ,0.24472 ,0.87901 ,0.04732 ,0.01279 ,-0.00001 - +,0.46952 ,0.23228 ,0.80413 ,0.04738 ,0.01427 ,-0.00001 - +,0.45555 ,0.22135 ,0.73720 ,0.04686 ,0.01526 ,0.00058 - +,0.44265 ,0.21163 ,0.67741 ,0.04576 ,0.01592 ,0.00218 - +,0.43071 ,0.20288 ,0.62411 ,0.04466 ,0.01633 ,0.00331 - +,0.41957 ,0.19496 ,0.57662 ,0.04355 ,0.01656 ,0.00419 - +,0.40919 ,0.18775 ,0.53433 ,0.04244 ,0.01666 ,0.00487 - +,0.39947 ,0.18114 ,0.49661 ,0.04137 ,0.01668 ,0.00541 - +,0.39036 ,0.17508 ,0.46289 ,0.04033 ,0.01664 ,0.00584 - +,0.38179 ,0.16948 ,0.43264 ,0.03932 ,0.01654 ,0.00618 - +,0.37363 ,0.16426 ,0.40524 ,0.03835 ,0.01639 ,0.00643 - +,0.36597 ,0.15941 ,0.38058 ,0.03741 ,0.01623 ,0.00663 - +,0.35872 ,0.15489 ,0.35824 ,0.03652 ,0.01605 ,0.00679 - +,0.35180 ,0.15065 ,0.33787 ,0.03565 ,0.01584 ,0.00690 - +,0.34526 ,0.14668 ,0.31940 ,0.03484 ,0.01564 ,0.00698 - +,0.33896 ,0.14294 ,0.30240 ,0.03404 ,0.01542 ,0.00703/ - DATA ((F(I,21,K),I=1,6),K=1,19)/ - + 0.53815 ,0.27406 ,1.06405 ,0.03541 ,0.00184 ,0.00000 - +,0.51288 ,0.25268 ,0.95796 ,0.03791 ,0.00608 ,0.00000 - +,0.49085 ,0.23519 ,0.85876 ,0.03898 ,0.00877 ,0.00000 - +,0.47135 ,0.22050 ,0.77004 ,0.03919 ,0.01046 ,0.00000 - +,0.45399 ,0.20796 ,0.69327 ,0.03894 ,0.01157 ,0.00000 - +,0.43833 ,0.19706 ,0.62677 ,0.03827 ,0.01228 ,0.00045 - +,0.42401 ,0.18742 ,0.56890 ,0.03716 ,0.01272 ,0.00170 - +,0.41082 ,0.17882 ,0.51833 ,0.03609 ,0.01296 ,0.00256 - +,0.39864 ,0.17108 ,0.47413 ,0.03502 ,0.01307 ,0.00322 - +,0.38736 ,0.16407 ,0.43534 ,0.03398 ,0.01308 ,0.00373 - +,0.37690 ,0.15768 ,0.40121 ,0.03298 ,0.01303 ,0.00412 - +,0.36713 ,0.15184 ,0.37106 ,0.03202 ,0.01293 ,0.00443 - +,0.35798 ,0.14649 ,0.34430 ,0.03111 ,0.01280 ,0.00466 - +,0.34937 ,0.14151 ,0.32031 ,0.03023 ,0.01264 ,0.00483 - +,0.34128 ,0.13692 ,0.29891 ,0.02939 ,0.01247 ,0.00496 - +,0.33363 ,0.13265 ,0.27969 ,0.02860 ,0.01228 ,0.00506 - +,0.32639 ,0.12866 ,0.26232 ,0.02784 ,0.01209 ,0.00512 - +,0.31958 ,0.12494 ,0.24666 ,0.02712 ,0.01189 ,0.00517 - +,0.31304 ,0.12144 ,0.23238 ,0.02643 ,0.01169 ,0.00519/ - DATA ((F(I,22,K),I=1,6),K=1,19)/ - + 0.52906 ,0.24948 ,0.99213 ,0.02994 ,0.00155 ,0.00000 - +,0.50017 ,0.22792 ,0.86940 ,0.03176 ,0.00506 ,0.00000 - +,0.47543 ,0.21049 ,0.76290 ,0.03238 ,0.00722 ,0.00000 - +,0.45381 ,0.19600 ,0.67211 ,0.03230 ,0.00853 ,0.00001 - +,0.43474 ,0.18374 ,0.59606 ,0.03188 ,0.00935 ,0.00000 - +,0.41771 ,0.17315 ,0.53187 ,0.03114 ,0.00985 ,0.00036 - +,0.40229 ,0.16388 ,0.47711 ,0.03008 ,0.01013 ,0.00132 - +,0.38820 ,0.15564 ,0.43017 ,0.02906 ,0.01026 ,0.00198 - +,0.37529 ,0.14827 ,0.38974 ,0.02807 ,0.01029 ,0.00248 - +,0.36341 ,0.14163 ,0.35475 ,0.02711 ,0.01025 ,0.00285 - +,0.35241 ,0.13561 ,0.32430 ,0.02621 ,0.01016 ,0.00314 - +,0.34220 ,0.13014 ,0.29769 ,0.02535 ,0.01004 ,0.00336 - +,0.33269 ,0.12514 ,0.27431 ,0.02455 ,0.00990 ,0.00352 - +,0.32378 ,0.12052 ,0.25355 ,0.02377 ,0.00973 ,0.00363 - +,0.31545 ,0.11626 ,0.23518 ,0.02304 ,0.00956 ,0.00371 - +,0.30762 ,0.11232 ,0.21879 ,0.02234 ,0.00939 ,0.00377 - +,0.30020 ,0.10865 ,0.20410 ,0.02169 ,0.00921 ,0.00380 - +,0.29323 ,0.10524 ,0.19095 ,0.02108 ,0.00903 ,0.00383 - +,0.28661 ,0.10204 ,0.17903 ,0.02049 ,0.00885 ,0.00383/ - DATA ((F(I,23,K),I=1,6),K=1,19)/ - + 0.51526 ,0.22409 ,0.91740 ,0.02517 ,0.00130 ,0.00000 - +,0.48330 ,0.20292 ,0.78398 ,0.02647 ,0.00418 ,0.00000 - +,0.45629 ,0.18599 ,0.67425 ,0.02676 ,0.00590 ,0.00000 - +,0.43297 ,0.17206 ,0.58419 ,0.02650 ,0.00691 ,0.00001 - +,0.41259 ,0.16035 ,0.51071 ,0.02598 ,0.00751 ,0.00000 - +,0.39455 ,0.15033 ,0.45002 ,0.02522 ,0.00786 ,0.00028 - +,0.37834 ,0.14159 ,0.39918 ,0.02423 ,0.00803 ,0.00103 - +,0.36363 ,0.13388 ,0.35628 ,0.02330 ,0.00809 ,0.00153 - +,0.35023 ,0.12702 ,0.31984 ,0.02241 ,0.00807 ,0.00190 - +,0.33796 ,0.12087 ,0.28868 ,0.02155 ,0.00800 ,0.00218 - +,0.32666 ,0.11533 ,0.26185 ,0.02075 ,0.00789 ,0.00238 - +,0.31623 ,0.11030 ,0.23863 ,0.02000 ,0.00777 ,0.00254 - +,0.30655 ,0.10573 ,0.21841 ,0.01930 ,0.00763 ,0.00265 - +,0.29752 ,0.10152 ,0.20063 ,0.01863 ,0.00747 ,0.00272 - +,0.28911 ,0.09766 ,0.18500 ,0.01800 ,0.00732 ,0.00277 - +,0.28123 ,0.09409 ,0.17116 ,0.01741 ,0.00716 ,0.00281 - +,0.27380 ,0.09078 ,0.15885 ,0.01686 ,0.00700 ,0.00283 - +,0.26683 ,0.08771 ,0.14788 ,0.01634 ,0.00685 ,0.00284 - +,0.26023 ,0.08484 ,0.13801 ,0.01584 ,0.00669 ,0.00283/ - DATA ((F(I,24,K),I=1,6),K=1,19)/ - + 0.49734 ,0.19876 ,0.84120 ,0.02104 ,0.00108 ,0.00001 - +,0.46287 ,0.17844 ,0.70205 ,0.02192 ,0.00344 ,0.00001 - +,0.43405 ,0.16236 ,0.59235 ,0.02199 ,0.00479 ,0.00000 - +,0.40946 ,0.14924 ,0.50511 ,0.02161 ,0.00557 ,0.00001 - +,0.38818 ,0.13830 ,0.43552 ,0.02104 ,0.00601 ,0.00000 - +,0.36945 ,0.12900 ,0.37916 ,0.02032 ,0.00625 ,0.00023 - +,0.35277 ,0.12093 ,0.33270 ,0.01942 ,0.00634 ,0.00080 - +,0.33771 ,0.11386 ,0.29405 ,0.01858 ,0.00635 ,0.00118 - +,0.32408 ,0.10759 ,0.26162 ,0.01779 ,0.00631 ,0.00146 - +,0.31163 ,0.10201 ,0.23421 ,0.01705 ,0.00622 ,0.00166 - +,0.30024 ,0.09699 ,0.21084 ,0.01635 ,0.00611 ,0.00181 - +,0.28978 ,0.09246 ,0.19080 ,0.01570 ,0.00599 ,0.00191 - +,0.28011 ,0.08835 ,0.17349 ,0.01510 ,0.00586 ,0.00199 - +,0.27112 ,0.08459 ,0.15840 ,0.01453 ,0.00572 ,0.00204 - +,0.26277 ,0.08115 ,0.14523 ,0.01400 ,0.00558 ,0.00207 - +,0.25497 ,0.07798 ,0.13365 ,0.01350 ,0.00544 ,0.00209 - +,0.24766 ,0.07505 ,0.12341 ,0.01304 ,0.00531 ,0.00210 - +,0.24084 ,0.07234 ,0.11434 ,0.01260 ,0.00517 ,0.00210 - +,0.23437 ,0.06982 ,0.10624 ,0.01219 ,0.00504 ,0.00209/ - DATA ((F(I,25,K),I=1,6),K=1,19)/ - + 0.47592 ,0.17419 ,0.76492 ,0.01747 ,0.00089 ,0.00001 - +,0.43949 ,0.15509 ,0.62419 ,0.01803 ,0.00280 ,0.00001 - +,0.40938 ,0.14011 ,0.51710 ,0.01794 ,0.00386 ,0.00000 - +,0.38396 ,0.12799 ,0.43421 ,0.01750 ,0.00445 ,0.00001 - +,0.36212 ,0.11795 ,0.36944 ,0.01694 ,0.00477 ,0.00000 - +,0.34304 ,0.10947 ,0.31787 ,0.01626 ,0.00493 ,0.00018 - +,0.32616 ,0.10216 ,0.27600 ,0.01547 ,0.00497 ,0.00061 - +,0.31100 ,0.09578 ,0.24162 ,0.01473 ,0.00495 ,0.00090 - +,0.29735 ,0.09016 ,0.21311 ,0.01404 ,0.00489 ,0.00111 - +,0.28496 ,0.08517 ,0.18926 ,0.01341 ,0.00480 ,0.00126 - +,0.27367 ,0.08071 ,0.16913 ,0.01281 ,0.00470 ,0.00136 - +,0.26333 ,0.07669 ,0.15201 ,0.01226 ,0.00459 ,0.00144 - +,0.25382 ,0.07306 ,0.13733 ,0.01175 ,0.00447 ,0.00149 - +,0.24502 ,0.06975 ,0.12465 ,0.01127 ,0.00435 ,0.00152 - +,0.23687 ,0.06674 ,0.11365 ,0.01083 ,0.00423 ,0.00154 - +,0.22928 ,0.06397 ,0.10404 ,0.01042 ,0.00411 ,0.00155 - +,0.22218 ,0.06141 ,0.09560 ,0.01003 ,0.00400 ,0.00155 - +,0.21558 ,0.05906 ,0.08816 ,0.00967 ,0.00389 ,0.00154 - +,0.20934 ,0.05686 ,0.08156 ,0.00933 ,0.00378 ,0.00153/ - DATA ((F(I,26,K),I=1,6),K=1,19)/ - + 0.45153 ,0.15091 ,0.68978 ,0.01442 ,0.00072 ,0.00000 - +,0.41375 ,0.13327 ,0.55089 ,0.01474 ,0.00225 ,-0.00001 - +,0.38288 ,0.11956 ,0.44838 ,0.01454 ,0.00309 ,0.00000 - +,0.35702 ,0.10855 ,0.37093 ,0.01409 ,0.00352 ,-0.00001 - +,0.33497 ,0.09950 ,0.31154 ,0.01355 ,0.00375 ,0.00000 - +,0.31586 ,0.09190 ,0.26500 ,0.01293 ,0.00385 ,0.00012 - +,0.29903 ,0.08538 ,0.22776 ,0.01224 ,0.00386 ,0.00046 - +,0.28404 ,0.07971 ,0.19754 ,0.01160 ,0.00383 ,0.00068 - +,0.27057 ,0.07476 ,0.17275 ,0.01102 ,0.00376 ,0.00083 - +,0.25842 ,0.07037 ,0.15222 ,0.01048 ,0.00368 ,0.00094 - +,0.24741 ,0.06646 ,0.13505 ,0.00997 ,0.00358 ,0.00102 - +,0.23735 ,0.06296 ,0.12057 ,0.00952 ,0.00349 ,0.00107 - +,0.22812 ,0.05980 ,0.10825 ,0.00909 ,0.00339 ,0.00111 - +,0.21961 ,0.05693 ,0.09768 ,0.00870 ,0.00328 ,0.00112 - +,0.21176 ,0.05432 ,0.08858 ,0.00833 ,0.00318 ,0.00113 - +,0.20448 ,0.05194 ,0.08067 ,0.00799 ,0.00308 ,0.00114 - +,0.19770 ,0.04974 ,0.07377 ,0.00768 ,0.00299 ,0.00113 - +,0.19141 ,0.04772 ,0.06772 ,0.00738 ,0.00290 ,0.00112 - +,0.18547 ,0.04585 ,0.06238 ,0.00711 ,0.00281 ,0.00111/ - DATA ((F(I,27,K),I=1,6),K=1,19)/ - + 0.42472 ,0.12921 ,0.61667 ,0.01180 ,0.00058 ,0.00000 - +,0.38618 ,0.11318 ,0.48233 ,0.01195 ,0.00180 ,0.00000 - +,0.35500 ,0.10084 ,0.38587 ,0.01169 ,0.00244 ,0.00000 - +,0.32911 ,0.09101 ,0.31461 ,0.01124 ,0.00277 ,0.00000 - +,0.30719 ,0.08298 ,0.26090 ,0.01074 ,0.00292 ,0.00000 - +,0.28832 ,0.07627 ,0.21944 ,0.01020 ,0.00298 ,0.00009 - +,0.27180 ,0.07055 ,0.18671 ,0.00961 ,0.00298 ,0.00035 - +,0.25717 ,0.06560 ,0.16046 ,0.00907 ,0.00294 ,0.00051 - +,0.24408 ,0.06129 ,0.13915 ,0.00858 ,0.00287 ,0.00062 - +,0.23233 ,0.05749 ,0.12167 ,0.00812 ,0.00279 ,0.00070 - +,0.22172 ,0.05411 ,0.10718 ,0.00770 ,0.00271 ,0.00076 - +,0.21207 ,0.05111 ,0.09506 ,0.00733 ,0.00263 ,0.00079 - +,0.20325 ,0.04840 ,0.08482 ,0.00698 ,0.00254 ,0.00082 - +,0.19515 ,0.04595 ,0.07610 ,0.00666 ,0.00246 ,0.00083 - +,0.18769 ,0.04373 ,0.06864 ,0.00636 ,0.00238 ,0.00083 - +,0.18080 ,0.04170 ,0.06220 ,0.00608 ,0.00229 ,0.00083 - +,0.17441 ,0.03985 ,0.05661 ,0.00583 ,0.00222 ,0.00082 - +,0.16848 ,0.03814 ,0.05173 ,0.00559 ,0.00214 ,0.00082 - +,0.16291 ,0.03657 ,0.04745 ,0.00537 ,0.00207 ,0.00081/ - DATA ((F(I,28,K),I=1,6),K=1,19)/ - + 0.39605 ,0.10932 ,0.54649 ,0.00957 ,0.00046 ,-0.00001 - +,0.35733 ,0.09500 ,0.41885 ,0.00960 ,0.00142 ,0.00000 - +,0.32631 ,0.08407 ,0.32951 ,0.00932 ,0.00191 ,0.00000 - +,0.30075 ,0.07542 ,0.26483 ,0.00890 ,0.00215 ,0.00000 - +,0.27929 ,0.06840 ,0.21689 ,0.00845 ,0.00226 ,0.00000 - +,0.26090 ,0.06257 ,0.18042 ,0.00798 ,0.00229 ,0.00007 - +,0.24491 ,0.05762 ,0.15198 ,0.00748 ,0.00227 ,0.00026 - +,0.23081 ,0.05337 ,0.12943 ,0.00703 ,0.00223 ,0.00038 - +,0.21828 ,0.04967 ,0.11132 ,0.00662 ,0.00217 ,0.00047 - +,0.20705 ,0.04643 ,0.09659 ,0.00624 ,0.00210 ,0.00052 - +,0.19695 ,0.04356 ,0.08449 ,0.00590 ,0.00203 ,0.00056 - +,0.18782 ,0.04101 ,0.07444 ,0.00559 ,0.00196 ,0.00058 - +,0.17951 ,0.03873 ,0.06602 ,0.00531 ,0.00189 ,0.00060 - +,0.17189 ,0.03667 ,0.05890 ,0.00505 ,0.00182 ,0.00060 - +,0.16491 ,0.03480 ,0.05284 ,0.00481 ,0.00176 ,0.00060 - +,0.15847 ,0.03311 ,0.04764 ,0.00459 ,0.00169 ,0.00060 - +,0.15250 ,0.03156 ,0.04315 ,0.00439 ,0.00163 ,0.00060 - +,0.14699 ,0.03015 ,0.03926 ,0.00420 ,0.00157 ,0.00059 - +,0.14183 ,0.02884 ,0.03587 ,0.00402 ,0.00152 ,0.00058/ - DATA ((F(I,29,K),I=1,6),K=1,19)/ - + 0.36603 ,0.09138 ,0.47983 ,0.00770 ,0.00036 ,-0.00001 - +,0.32767 ,0.07878 ,0.36050 ,0.00764 ,0.00111 ,0.00000 - +,0.29723 ,0.06924 ,0.27895 ,0.00735 ,0.00148 ,0.00000 - +,0.27235 ,0.06175 ,0.22104 ,0.00697 ,0.00165 ,0.00000 - +,0.25160 ,0.05571 ,0.17881 ,0.00658 ,0.00173 ,0.00000 - +,0.23394 ,0.05072 ,0.14711 ,0.00618 ,0.00174 ,0.00005 - +,0.21866 ,0.04650 ,0.12270 ,0.00576 ,0.00171 ,0.00019 - +,0.20526 ,0.04290 ,0.10356 ,0.00539 ,0.00168 ,0.00028 - +,0.19340 ,0.03978 ,0.08834 ,0.00506 ,0.00162 ,0.00034 - +,0.18283 ,0.03705 ,0.07607 ,0.00475 ,0.00157 ,0.00038 - +,0.17336 ,0.03465 ,0.06607 ,0.00448 ,0.00151 ,0.00041 - +,0.16482 ,0.03252 ,0.05784 ,0.00423 ,0.00145 ,0.00042 - +,0.15709 ,0.03062 ,0.05099 ,0.00400 ,0.00139 ,0.00043 - +,0.15001 ,0.02891 ,0.04523 ,0.00380 ,0.00134 ,0.00043 - +,0.14355 ,0.02737 ,0.04036 ,0.00361 ,0.00128 ,0.00043 - +,0.13761 ,0.02597 ,0.03620 ,0.00343 ,0.00124 ,0.00043 - +,0.13212 ,0.02470 ,0.03264 ,0.00327 ,0.00119 ,0.00043 - +,0.12706 ,0.02354 ,0.02957 ,0.00312 ,0.00114 ,0.00042 - +,0.12234 ,0.02247 ,0.02691 ,0.00299 ,0.00110 ,0.00041/ - DATA ((F(I,30,K),I=1,6),K=1,19)/ - + 0.33522 ,0.07542 ,0.41730 ,0.00613 ,0.00029 ,0.00000 - +,0.29771 ,0.06451 ,0.30741 ,0.00603 ,0.00086 ,0.00000 - +,0.26825 ,0.05632 ,0.23399 ,0.00575 ,0.00113 ,0.00000 - +,0.24434 ,0.04993 ,0.18283 ,0.00541 ,0.00126 ,0.00000 - +,0.22454 ,0.04480 ,0.14609 ,0.00507 ,0.00130 ,0.00000 - +,0.20780 ,0.04059 ,0.11889 ,0.00474 ,0.00130 ,0.00004 - +,0.19338 ,0.03706 ,0.09818 ,0.00440 ,0.00128 ,0.00014 - +,0.18080 ,0.03404 ,0.08212 ,0.00410 ,0.00124 ,0.00021 - +,0.16973 ,0.03146 ,0.06948 ,0.00382 ,0.00120 ,0.00025 - +,0.15991 ,0.02920 ,0.05938 ,0.00358 ,0.00115 ,0.00028 - +,0.15114 ,0.02722 ,0.05121 ,0.00336 ,0.00111 ,0.00030 - +,0.14326 ,0.02547 ,0.04454 ,0.00316 ,0.00106 ,0.00031 - +,0.13613 ,0.02391 ,0.03902 ,0.00299 ,0.00102 ,0.00031 - +,0.12965 ,0.02251 ,0.03442 ,0.00282 ,0.00097 ,0.00031 - +,0.12374 ,0.02126 ,0.03056 ,0.00267 ,0.00093 ,0.00031 - +,0.11833 ,0.02012 ,0.02727 ,0.00254 ,0.00089 ,0.00031 - +,0.11335 ,0.01909 ,0.02447 ,0.00242 ,0.00085 ,0.00030 - +,0.10876 ,0.01815 ,0.02207 ,0.00230 ,0.00082 ,0.00029 - +,0.10450 ,0.01729 ,0.02000 ,0.00219 ,0.00079 ,0.00029/ - DATA ((F(I,31,K),I=1,6),K=1,19)/ - + 0.30401 ,0.06143 ,0.35921 ,0.00483 ,0.00022 ,0.00000 - +,0.26785 ,0.05213 ,0.25950 ,0.00470 ,0.00065 ,0.00000 - +,0.23970 ,0.04520 ,0.19431 ,0.00444 ,0.00086 ,0.00000 - +,0.21703 ,0.03983 ,0.14972 ,0.00415 ,0.00094 ,0.00000 - +,0.19839 ,0.03555 ,0.11817 ,0.00386 ,0.00097 ,0.00000 - +,0.18272 ,0.03206 ,0.09512 ,0.00359 ,0.00096 ,0.00003 - +,0.16930 ,0.02914 ,0.07778 ,0.00331 ,0.00094 ,0.00011 - +,0.15765 ,0.02666 ,0.06447 ,0.00307 ,0.00091 ,0.00015 - +,0.14744 ,0.02454 ,0.05409 ,0.00286 ,0.00087 ,0.00018 - +,0.13842 ,0.02270 ,0.04588 ,0.00267 ,0.00084 ,0.00020 - +,0.13040 ,0.02109 ,0.03930 ,0.00249 ,0.00080 ,0.00021 - +,0.12322 ,0.01967 ,0.03395 ,0.00234 ,0.00076 ,0.00022 - +,0.11676 ,0.01842 ,0.02956 ,0.00220 ,0.00073 ,0.00022 - +,0.11089 ,0.01729 ,0.02593 ,0.00207 ,0.00070 ,0.00022 - +,0.10556 ,0.01629 ,0.02290 ,0.00196 ,0.00066 ,0.00022 - +,0.10070 ,0.01538 ,0.02034 ,0.00186 ,0.00063 ,0.00022 - +,0.09622 ,0.01455 ,0.01817 ,0.00176 ,0.00060 ,0.00021 - +,0.09212 ,0.01381 ,0.01631 ,0.00167 ,0.00058 ,0.00021 - +,0.08832 ,0.01312 ,0.01472 ,0.00159 ,0.00055 ,0.00020/ - DATA ((F(I,32,K),I=1,6),K=1,19)/ - + 0.27292 ,0.04934 ,0.30587 ,0.00377 ,0.00017 ,0.00000 - +,0.23853 ,0.04153 ,0.21670 ,0.00362 ,0.00049 ,0.00000 - +,0.21197 ,0.03576 ,0.15963 ,0.00339 ,0.00064 ,0.00000 - +,0.19078 ,0.03132 ,0.12128 ,0.00314 ,0.00069 ,0.00000 - +,0.17345 ,0.02781 ,0.09454 ,0.00291 ,0.00071 ,0.00000 - +,0.15898 ,0.02495 ,0.07526 ,0.00268 ,0.00070 ,0.00002 - +,0.14664 ,0.02259 ,0.06094 ,0.00247 ,0.00068 ,0.00008 - +,0.13599 ,0.02058 ,0.05005 ,0.00228 ,0.00066 ,0.00011 - +,0.12670 ,0.01887 ,0.04165 ,0.00211 ,0.00063 ,0.00013 - +,0.11852 ,0.01739 ,0.03505 ,0.00196 ,0.00059 ,0.00014 - +,0.11128 ,0.01610 ,0.02981 ,0.00183 ,0.00057 ,0.00015 - +,0.10483 ,0.01498 ,0.02559 ,0.00171 ,0.00054 ,0.00015 - +,0.09904 ,0.01398 ,0.02215 ,0.00160 ,0.00051 ,0.00016 - +,0.09380 ,0.01309 ,0.01931 ,0.00151 ,0.00049 ,0.00015 - +,0.08905 ,0.01229 ,0.01696 ,0.00142 ,0.00046 ,0.00015 - +,0.08473 ,0.01158 ,0.01499 ,0.00134 ,0.00044 ,0.00015 - +,0.08077 ,0.01093 ,0.01333 ,0.00127 ,0.00042 ,0.00015 - +,0.07716 ,0.01034 ,0.01192 ,0.00120 ,0.00040 ,0.00014 - +,0.07380 ,0.00981 ,0.01071 ,0.00114 ,0.00039 ,0.00014/ - DATA ((F(I,33,K),I=1,6),K=1,19)/ - + 0.24235 ,0.03904 ,0.25742 ,0.00290 ,0.00012 ,0.00000 - +,0.21007 ,0.03259 ,0.17884 ,0.00275 ,0.00036 ,0.00000 - +,0.18536 ,0.02787 ,0.12959 ,0.00255 ,0.00047 ,0.00000 - +,0.16580 ,0.02426 ,0.09707 ,0.00235 ,0.00050 ,0.00000 - +,0.14992 ,0.02142 ,0.07474 ,0.00216 ,0.00051 ,0.00000 - +,0.13673 ,0.01913 ,0.05884 ,0.00198 ,0.00050 ,0.00001 - +,0.12555 ,0.01723 ,0.04716 ,0.00181 ,0.00048 ,0.00005 - +,0.11595 ,0.01564 ,0.03840 ,0.00166 ,0.00046 ,0.00007 - +,0.10761 ,0.01428 ,0.03167 ,0.00153 ,0.00044 ,0.00009 - +,0.10030 ,0.01311 ,0.02646 ,0.00142 ,0.00042 ,0.00009 - +,0.09385 ,0.01210 ,0.02234 ,0.00132 ,0.00040 ,0.00010 - +,0.08813 ,0.01122 ,0.01904 ,0.00123 ,0.00038 ,0.00010 - +,0.08301 ,0.01044 ,0.01638 ,0.00115 ,0.00036 ,0.00011 - +,0.07839 ,0.00975 ,0.01420 ,0.00108 ,0.00034 ,0.00010 - +,0.07422 ,0.00914 ,0.01240 ,0.00101 ,0.00032 ,0.00010 - +,0.07044 ,0.00858 ,0.01091 ,0.00095 ,0.00031 ,0.00010 - +,0.06699 ,0.00808 ,0.00966 ,0.00090 ,0.00029 ,0.00010 - +,0.06383 ,0.00763 ,0.00860 ,0.00085 ,0.00028 ,0.00009 - +,0.06092 ,0.00722 ,0.00770 ,0.00080 ,0.00026 ,0.00009/ - DATA ((F(I,34,K),I=1,6),K=1,19)/ - + 0.21272 ,0.03039 ,0.21391 ,0.00220 ,0.00009 ,0.00000 - +,0.18284 ,0.02516 ,0.14571 ,0.00206 ,0.00026 ,0.00000 - +,0.16017 ,0.02136 ,0.10384 ,0.00189 ,0.00033 ,0.00000 - +,0.14236 ,0.01848 ,0.07668 ,0.00173 ,0.00036 ,0.00000 - +,0.12800 ,0.01623 ,0.05829 ,0.00157 ,0.00036 ,0.00000 - +,0.11615 ,0.01442 ,0.04538 ,0.00144 ,0.00035 ,0.00001 - +,0.10616 ,0.01293 ,0.03600 ,0.00131 ,0.00033 ,0.00004 - +,0.09762 ,0.01168 ,0.02904 ,0.00120 ,0.00032 ,0.00005 - +,0.09024 ,0.01063 ,0.02375 ,0.00110 ,0.00031 ,0.00006 - +,0.08380 ,0.00972 ,0.01968 ,0.00102 ,0.00029 ,0.00006 - +,0.07814 ,0.00894 ,0.01650 ,0.00094 ,0.00027 ,0.00007 - +,0.07313 ,0.00826 ,0.01397 ,0.00087 ,0.00026 ,0.00007 - +,0.06867 ,0.00766 ,0.01194 ,0.00081 ,0.00024 ,0.00007 - +,0.06466 ,0.00714 ,0.01029 ,0.00076 ,0.00023 ,0.00007 - +,0.06105 ,0.00667 ,0.00894 ,0.00071 ,0.00022 ,0.00007 - +,0.05779 ,0.00625 ,0.00783 ,0.00067 ,0.00021 ,0.00007 - +,0.05482 ,0.00587 ,0.00690 ,0.00063 ,0.00019 ,0.00006 - +,0.05211 ,0.00553 ,0.00611 ,0.00059 ,0.00018 ,0.00006 - +,0.04963 ,0.00522 ,0.00545 ,0.00056 ,0.00018 ,0.00006/ - DATA ((F(I,35,K),I=1,6),K=1,19)/ - + 0.18431 ,0.02323 ,0.17528 ,0.00164 ,0.00006 ,0.00000 - +,0.15705 ,0.01907 ,0.11703 ,0.00151 ,0.00018 ,0.00000 - +,0.13657 ,0.01607 ,0.08200 ,0.00138 ,0.00023 ,0.00000 - +,0.12059 ,0.01382 ,0.05967 ,0.00125 ,0.00025 ,0.00000 - +,0.10780 ,0.01206 ,0.04478 ,0.00113 ,0.00025 ,0.00000 - +,0.09730 ,0.01066 ,0.03446 ,0.00102 ,0.00024 ,0.00001 - +,0.08850 ,0.00952 ,0.02705 ,0.00093 ,0.00023 ,0.00002 - +,0.08102 ,0.00856 ,0.02161 ,0.00084 ,0.00022 ,0.00004 - +,0.07459 ,0.00776 ,0.01753 ,0.00077 ,0.00021 ,0.00004 - +,0.06901 ,0.00707 ,0.01440 ,0.00071 ,0.00020 ,0.00004 - +,0.06412 ,0.00648 ,0.01198 ,0.00065 ,0.00018 ,0.00005 - +,0.05981 ,0.00597 ,0.01008 ,0.00060 ,0.00017 ,0.00005 - +,0.05598 ,0.00552 ,0.00856 ,0.00056 ,0.00016 ,0.00005 - +,0.05255 ,0.00513 ,0.00734 ,0.00052 ,0.00015 ,0.00005 - +,0.04948 ,0.00477 ,0.00634 ,0.00049 ,0.00014 ,0.00005 - +,0.04671 ,0.00446 ,0.00552 ,0.00046 ,0.00014 ,0.00004 - +,0.04419 ,0.00418 ,0.00484 ,0.00043 ,0.00013 ,0.00004 - +,0.04191 ,0.00393 ,0.00427 ,0.00040 ,0.00012 ,0.00004 - +,0.03981 ,0.00370 ,0.00379 ,0.00038 ,0.00012 ,0.00004/ - DATA ((F(I,36,K),I=1,6),K=1,19)/ - + 0.15750 ,0.01741 ,0.14145 ,0.00120 ,0.00004 ,0.00000 - +,0.13300 ,0.01417 ,0.09253 ,0.00109 ,0.00013 ,0.00000 - +,0.11477 ,0.01185 ,0.06372 ,0.00099 ,0.00016 ,0.00000 - +,0.10066 ,0.01012 ,0.04568 ,0.00089 ,0.00017 ,0.00000 - +,0.08944 ,0.00879 ,0.03383 ,0.00080 ,0.00017 ,0.00000 - +,0.08030 ,0.00773 ,0.02573 ,0.00072 ,0.00016 ,0.00001 - +,0.07268 ,0.00686 ,0.01998 ,0.00065 ,0.00015 ,0.00002 - +,0.06623 ,0.00615 ,0.01580 ,0.00058 ,0.00015 ,0.00002 - +,0.06072 ,0.00555 ,0.01270 ,0.00053 ,0.00014 ,0.00003 - +,0.05595 ,0.00504 ,0.01035 ,0.00049 ,0.00013 ,0.00003 - +,0.05179 ,0.00460 ,0.00855 ,0.00045 ,0.00012 ,0.00003 - +,0.04814 ,0.00422 ,0.00714 ,0.00041 ,0.00011 ,0.00003 - +,0.04492 ,0.00389 ,0.00602 ,0.00038 ,0.00011 ,0.00003 - +,0.04204 ,0.00360 ,0.00513 ,0.00035 ,0.00010 ,0.00003 - +,0.03946 ,0.00334 ,0.00441 ,0.00033 ,0.00009 ,0.00003 - +,0.03715 ,0.00312 ,0.00382 ,0.00031 ,0.00009 ,0.00003 - +,0.03505 ,0.00291 ,0.00333 ,0.00029 ,0.00008 ,0.00003 - +,0.03316 ,0.00273 ,0.00293 ,0.00027 ,0.00008 ,0.00003 - +,0.03142 ,0.00256 ,0.00259 ,0.00025 ,0.00007 ,0.00003/ - DATA ((F(I,37,K),I=1,6),K=1,19)/ - + 0.10953 ,0.00914 ,0.08733 ,0.00061 ,0.00002 ,0.00000 - +,0.09074 ,0.00730 ,0.05475 ,0.00054 ,0.00005 ,0.00000 - +,0.07703 ,0.00601 ,0.03637 ,0.00047 ,0.00007 ,0.00000 - +,0.06660 ,0.00506 ,0.02526 ,0.00041 ,0.00007 ,0.00000 - +,0.05843 ,0.00434 ,0.01820 ,0.00037 ,0.00007 ,0.00000 - +,0.05185 ,0.00378 ,0.01350 ,0.00033 ,0.00007 ,0.00000 - +,0.04644 ,0.00332 ,0.01025 ,0.00029 ,0.00006 ,0.00001 - +,0.04191 ,0.00295 ,0.00794 ,0.00026 ,0.00006 ,0.00001 - +,0.03808 ,0.00263 ,0.00626 ,0.00023 ,0.00006 ,0.00001 - +,0.03480 ,0.00237 ,0.00502 ,0.00021 ,0.00005 ,0.00001 - +,0.03196 ,0.00215 ,0.00408 ,0.00019 ,0.00005 ,0.00001 - +,0.02949 ,0.00196 ,0.00336 ,0.00018 ,0.00004 ,0.00001 - +,0.02732 ,0.00179 ,0.00280 ,0.00016 ,0.00004 ,0.00001 - +,0.02541 ,0.00165 ,0.00235 ,0.00015 ,0.00004 ,0.00001 - +,0.02370 ,0.00152 ,0.00200 ,0.00014 ,0.00003 ,0.00001 - +,0.02218 ,0.00141 ,0.00171 ,0.00013 ,0.00003 ,0.00001 - +,0.02082 ,0.00131 ,0.00148 ,0.00012 ,0.00003 ,0.00001 - +,0.01959 ,0.00122 ,0.00129 ,0.00011 ,0.00003 ,0.00001 - +,0.01848 ,0.00114 ,0.00113 ,0.00010 ,0.00003 ,0.00001/ - DATA ((F(I,38,K),I=1,6),K=1,19)/ - + 0.07021 ,0.00428 ,0.04936 ,0.00028 ,0.00001 ,0.00000 - +,0.05695 ,0.00335 ,0.02954 ,0.00023 ,0.00002 ,0.00000 - +,0.04747 ,0.00271 ,0.01887 ,0.00020 ,0.00002 ,0.00000 - +,0.04039 ,0.00225 ,0.01267 ,0.00017 ,0.00002 ,0.00000 - +,0.03493 ,0.00190 ,0.00886 ,0.00015 ,0.00002 ,0.00000 - +,0.03061 ,0.00164 ,0.00639 ,0.00013 ,0.00002 ,0.00000 - +,0.02710 ,0.00142 ,0.00474 ,0.00012 ,0.00002 ,0.00000 - +,0.02419 ,0.00125 ,0.00359 ,0.00010 ,0.00002 ,0.00000 - +,0.02176 ,0.00111 ,0.00278 ,0.00009 ,0.00002 ,0.00000 - +,0.01970 ,0.00099 ,0.00218 ,0.00008 ,0.00002 ,0.00000 - +,0.01794 ,0.00089 ,0.00174 ,0.00007 ,0.00002 ,0.00000 - +,0.01642 ,0.00080 ,0.00141 ,0.00007 ,0.00001 ,0.00000 - +,0.01510 ,0.00073 ,0.00116 ,0.00006 ,0.00001 ,0.00000 - +,0.01395 ,0.00067 ,0.00096 ,0.00006 ,0.00001 ,0.00000 - +,0.01293 ,0.00061 ,0.00081 ,0.00005 ,0.00001 ,0.00000 - +,0.01203 ,0.00056 ,0.00069 ,0.00005 ,0.00001 ,0.00000 - +,0.01122 ,0.00052 ,0.00059 ,0.00004 ,0.00001 ,0.00000 - +,0.01050 ,0.00048 ,0.00051 ,0.00004 ,0.00001 ,0.00000 - +,0.00985 ,0.00045 ,0.00045 ,0.00004 ,0.00001 ,0.00000/ - DATA ((F(I,39,K),I=1,6),K=1,19)/ - + 0.04023 ,0.00172 ,0.02478 ,0.00011 ,0.00000 ,0.00000 - +,0.03184 ,0.00132 ,0.01410 ,0.00009 ,0.00000 ,0.00000 - +,0.02599 ,0.00105 ,0.00862 ,0.00007 ,0.00001 ,0.00000 - +,0.02172 ,0.00085 ,0.00557 ,0.00006 ,0.00001 ,0.00000 - +,0.01848 ,0.00071 ,0.00376 ,0.00005 ,0.00001 ,0.00000 - +,0.01596 ,0.00060 ,0.00264 ,0.00005 ,0.00001 ,0.00000 - +,0.01395 ,0.00052 ,0.00190 ,0.00004 ,0.00001 ,0.00000 - +,0.01230 ,0.00045 ,0.00141 ,0.00003 ,0.00000 ,0.00000 - +,0.01094 ,0.00039 ,0.00106 ,0.00003 ,0.00000 ,0.00000 - +,0.00981 ,0.00035 ,0.00082 ,0.00003 ,0.00000 ,0.00000 - +,0.00885 ,0.00031 ,0.00064 ,0.00002 ,0.00000 ,0.00000 - +,0.00803 ,0.00028 ,0.00051 ,0.00002 ,0.00000 ,0.00000 - +,0.00733 ,0.00025 ,0.00042 ,0.00002 ,0.00000 ,0.00000 - +,0.00672 ,0.00023 ,0.00034 ,0.00002 ,0.00000 ,0.00000 - +,0.00619 ,0.00021 ,0.00029 ,0.00002 ,0.00000 ,0.00000 - +,0.00572 ,0.00019 ,0.00024 ,0.00001 ,0.00000 ,0.00000 - +,0.00531 ,0.00017 ,0.00021 ,0.00001 ,0.00000 ,0.00000 - +,0.00494 ,0.00016 ,0.00018 ,0.00001 ,0.00000 ,0.00000 - +,0.00462 ,0.00015 ,0.00016 ,0.00001 ,0.00000 ,0.00000/ - DATA ((F(I,40,K),I=1,6),K=1,19)/ - + 0.01949 ,0.00056 ,0.01050 ,0.00003 ,0.00000 ,0.00000 - +,0.01498 ,0.00042 ,0.00563 ,0.00003 ,0.00000 ,0.00000 - +,0.01193 ,0.00032 ,0.00327 ,0.00002 ,0.00000 ,0.00000 - +,0.00976 ,0.00026 ,0.00202 ,0.00002 ,0.00000 ,0.00000 - +,0.00815 ,0.00021 ,0.00131 ,0.00001 ,0.00000 ,0.00000 - +,0.00692 ,0.00018 ,0.00089 ,0.00001 ,0.00000 ,0.00000 - +,0.00595 ,0.00015 ,0.00062 ,0.00001 ,0.00000 ,0.00000 - +,0.00517 ,0.00013 ,0.00045 ,0.00001 ,0.00000 ,0.00000 - +,0.00454 ,0.00011 ,0.00033 ,0.00001 ,0.00000 ,0.00000 - +,0.00402 ,0.00010 ,0.00025 ,0.00001 ,0.00000 ,0.00000 - +,0.00358 ,0.00009 ,0.00019 ,0.00001 ,0.00000 ,0.00000 - +,0.00322 ,0.00008 ,0.00015 ,0.00001 ,0.00000 ,0.00000 - +,0.00291 ,0.00007 ,0.00012 ,0.00000 ,0.00000 ,0.00000 - +,0.00265 ,0.00006 ,0.00010 ,0.00000 ,0.00000 ,0.00000 - +,0.00243 ,0.00005 ,0.00008 ,0.00000 ,0.00000 ,0.00000 - +,0.00224 ,0.00005 ,0.00007 ,0.00000 ,0.00000 ,0.00000 - +,0.00208 ,0.00004 ,0.00006 ,0.00000 ,0.00000 ,0.00000 - +,0.00193 ,0.00004 ,0.00006 ,0.00000 ,0.00000 ,0.00000 - +,0.00181 ,0.00004 ,0.00005 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,41,K),I=1,6),K=1,19)/ - + 0.00092 ,0.00002 ,0.00068 ,0.00000 ,0.00000 ,0.00000 - +,0.00065 ,0.00001 ,0.00031 ,0.00000 ,0.00000 ,0.00000 - +,0.00050 ,0.00001 ,0.00015 ,0.00000 ,0.00000 ,0.00000 - +,0.00041 ,0.00001 ,0.00008 ,0.00000 ,0.00000 ,0.00000 - +,0.00036 ,0.00000 ,0.00005 ,0.00000 ,0.00000 ,0.00000 - +,0.00032 ,0.00000 ,0.00003 ,0.00000 ,0.00000 ,0.00000 - +,0.00031 ,0.00000 ,0.00002 ,0.00000 ,0.00000 ,0.00000 - +,0.00030 ,0.00000 ,0.00002 ,0.00000 ,0.00000 ,0.00000 - +,0.00030 ,0.00000 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00031 ,0.00000 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00032 ,0.00000 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00033 ,0.00000 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00035 ,0.00000 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00037 ,0.00000 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00039 ,0.00000 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00041 ,0.00000 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00044 ,0.00000 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00046 ,0.00000 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00049 ,0.00000 ,0.00001 ,0.00000 ,0.00000 ,0.00000/ - DATA XX/1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, 1.D-3,2.D-3,4.D-3,6.D-3, - +8.D-3, 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, .1D0,.125D0,.15D0,.175D0,. - +2D0,.225D0,.25D0,.275D0, .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,. - +45D0,.475D0, .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, .8D0, - +.9D0,1.D0/ -C -C - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-4,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,4,5,0,0/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - IF(INIT.NE.0) GOTO 50 - INIT=1 - DO 20 N=1,41 - DO 20 M=1,19 -C READ(62,1001)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F -C + (6,N,M) - DO 10 I=1,6 - 10 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,15 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=1,5 - DO 30 K=1,19 - 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K)) - DO 40 I=1,6 - DO 40 M=1,19 - 40 F(I,42,M)=ZEROD - 50 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 60 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 60 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 80 I=1,6 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) + A - + *(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.16) GOTO 70 - IF(I.EQ.6) GOTO 70 - FAC=(ONED-B)*F(I,16,M)+B*F(I,16,M+1) - - G(I)=FAC**(G(I)/FAC) - 70 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 80 CONTINUE - UPV=G(1) - DNV=G(2) - SEA=G(4) - STR=G(4) - CHM=G(5) - GL =G(3) - BOT=G(6) - RETURN - 1001 FORMAT(6F10.5) - END diff --git a/PDF/spdf/strmrs3.F b/PDF/spdf/strmrs3.F deleted file mode 100644 index 3f6989c1ac5..00000000000 --- a/PDF/spdf/strmrs3.F +++ /dev/null @@ -1,904 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:46 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:05 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE STRMRS3(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C -C :::::::::::: MARTIN ROBERTS STIRLING :::::1/RX GLUE::::178 MEV:::: -C -#include "pdf/impdp.inc" - DIMENSION F(6,42,19),G(6),XX(42),N0(6) - DATA ((F(I,1,K),I=1,6),K=1,19)/ - + 0.01991 ,0.00301 ,37.61247 ,0.19158 ,0.05991 ,0.00000 - +,0.02177 ,0.00360 ,48.71432 ,0.60423 ,0.36956 ,0.00000 - +,0.02346 ,0.00416 ,59.79593 ,1.08401 ,0.72951 ,-0.00001 - +,0.02503 ,0.00470 ,70.83472 ,1.60739 ,1.12212 ,-0.00001 - +,0.02649 ,0.00522 ,81.68164 ,2.14246 ,1.52438 ,0.00360 - +,0.02787 ,0.00572 ,92.27873 ,2.60882 ,1.92748 ,0.21683 - +,0.02917 ,0.00620,102.70128 ,2.98842 ,2.33507 ,0.70832 - +,0.03042 ,0.00667,112.91809 ,3.38626 ,2.74336 ,1.14794 - +,0.03161 ,0.00712,122.87209 ,3.77878 ,3.14760 ,1.58737 - +,0.03275 ,0.00756,132.60262 ,4.17104 ,3.55046 ,2.02207 - +,0.03385 ,0.00800,142.12730 ,4.56301 ,3.95216 ,2.45300 - +,0.03491 ,0.00842,151.46770 ,4.95490 ,4.35306 ,2.88107 - +,0.03593 ,0.00883,160.47029 ,5.33653 ,4.74308 ,3.29634 - +,0.03692 ,0.00923,169.28557 ,5.71695 ,5.13133 ,3.70819 - +,0.03788 ,0.00962,177.93842 ,6.09652 ,5.51824 ,4.11722 - +,0.03881 ,0.01001,186.24911 ,6.46455 ,5.89314 ,4.51292 - +,0.03972 ,0.01039,194.47502 ,6.83521 ,6.27029 ,4.90968 - +,0.04060 ,0.01076,202.36865 ,7.19398 ,6.63519 ,5.29309 - +,0.04145 ,0.01112,210.17598 ,7.55432 ,7.00132 ,5.67677/ - DATA ((F(I,2,K),I=1,6),K=1,19)/ - + 0.02879 ,0.00510 ,26.59572 ,0.18492 ,0.05195 ,0.00000 - +,0.03125 ,0.00601 ,34.14091 ,0.50486 ,0.29201 ,0.00000 - +,0.03348 ,0.00686 ,41.50365 ,0.85297 ,0.55317 ,-0.00001 - +,0.03553 ,0.00767 ,48.70401 ,1.22029 ,0.82872 ,0.00000 - +,0.03743 ,0.00844 ,55.65976 ,1.58802 ,1.10517 ,0.00246 - +,0.03921 ,0.00917 ,62.34918 ,1.90370 ,1.37793 ,0.14632 - +,0.04089 ,0.00987 ,68.83736 ,2.15676 ,1.65010 ,0.47576 - +,0.04248 ,0.01055 ,75.11456 ,2.41913 ,1.91968 ,0.76692 - +,0.04400 ,0.01120 ,81.15311 ,2.67527 ,2.18389 ,1.05530 - +,0.04544 ,0.01183 ,86.98904 ,2.92884 ,2.44476 ,1.33807 - +,0.04683 ,0.01245 ,92.64166 ,3.18006 ,2.70269 ,1.61611 - +,0.04817 ,0.01305 ,98.13170 ,3.42925 ,2.95811 ,1.89025 - +,0.04945 ,0.01362,103.36374 ,3.67003 ,3.20469 ,2.15423 - +,0.05069 ,0.01418,108.44261 ,3.90839 ,3.44846 ,2.41429 - +,0.05188 ,0.01473,113.38782 ,4.14471 ,3.68986 ,2.67096 - +,0.05303 ,0.01526,118.08788 ,4.37225 ,3.92218 ,2.91764 - +,0.05415 ,0.01579,122.71118 ,4.60021 ,4.15464 ,3.16366 - +,0.05524 ,0.01629,127.10344 ,4.81942 ,4.37810 ,3.39993 - +,0.05629 ,0.01679,131.42296 ,5.03854 ,4.60126 ,3.63524/ - DATA ((F(I,3,K),I=1,6),K=1,19)/ - + 0.04145 ,0.00864 ,18.81119 ,0.17781 ,0.04405 ,0.00000 - +,0.04468 ,0.01003 ,23.92880 ,0.42186 ,0.22717 ,0.00000 - +,0.04758 ,0.01131 ,28.80423 ,0.67172 ,0.41464 ,-0.00001 - +,0.05024 ,0.01251 ,33.47961 ,0.92732 ,0.60639 ,0.00000 - +,0.05268 ,0.01363 ,37.91476 ,1.17818 ,0.79501 ,0.00167 - +,0.05495 ,0.01470 ,42.10831 ,1.39041 ,0.97834 ,0.09814 - +,0.05708 ,0.01571 ,46.11510 ,1.55797 ,1.15893 ,0.31768 - +,0.05910 ,0.01668 ,49.93712 ,1.72983 ,1.33580 ,0.50940 - +,0.06101 ,0.01761 ,53.56311 ,1.89585 ,1.50739 ,0.69757 - +,0.06282 ,0.01850 ,57.02406 ,2.05864 ,1.67523 ,0.88044 - +,0.06455 ,0.01936 ,60.33830 ,2.21851 ,1.83976 ,1.05879 - +,0.06621 ,0.02019 ,63.52327 ,2.37582 ,2.00139 ,1.23329 - +,0.06780 ,0.02099 ,66.52054 ,2.52660 ,2.15619 ,1.40007 - +,0.06932 ,0.02177 ,69.40228 ,2.67479 ,2.30817 ,1.56325 - +,0.07079 ,0.02253 ,72.18347 ,2.82076 ,2.45768 ,1.72328 - +,0.07221 ,0.02325 ,74.79526 ,2.96028 ,2.60053 ,1.87604 - +,0.07358 ,0.02397 ,77.34738 ,3.09929 ,2.74269 ,2.02755 - +,0.07489 ,0.02465 ,79.74368 ,3.23205 ,2.87843 ,2.17213 - +,0.07617 ,0.02533 ,82.08623 ,3.36411 ,3.01332 ,2.31542/ - DATA ((F(I,4,K),I=1,6),K=1,19)/ - + 0.05118 ,0.01176 ,15.36541 ,0.17335 ,0.03948 ,0.00000 - +,0.05494 ,0.01352 ,19.43808 ,0.37968 ,0.19431 ,0.00000 - +,0.05831 ,0.01513 ,23.26093 ,0.58428 ,0.34784 ,-0.00001 - +,0.06138 ,0.01664 ,26.88275 ,0.79006 ,0.50225 ,0.00000 - +,0.06419 ,0.01804 ,30.27965 ,0.98985 ,0.65250 ,0.00133 - +,0.06680 ,0.01935 ,33.45757 ,1.15745 ,0.79729 ,0.07745 - +,0.06924 ,0.02060 ,36.46544 ,1.28859 ,0.93887 ,0.25007 - +,0.07153 ,0.02179 ,39.30901 ,1.42226 ,1.07661 ,0.39976 - +,0.07370 ,0.02292 ,41.98308 ,1.55059 ,1.20945 ,0.54589 - +,0.07576 ,0.02400 ,44.51529 ,1.67571 ,1.33866 ,0.68716 - +,0.07771 ,0.02505 ,46.92241 ,1.79794 ,1.46467 ,0.82427 - +,0.07959 ,0.02605 ,49.22020 ,1.91763 ,1.58788 ,0.95782 - +,0.08137 ,0.02702 ,51.36482 ,2.03179 ,1.70532 ,1.08487 - +,0.08308 ,0.02795 ,53.41396 ,2.14351 ,1.82012 ,1.20868 - +,0.08473 ,0.02885 ,55.38057 ,2.25311 ,1.93261 ,1.32964 - +,0.08631 ,0.02972 ,57.21248 ,2.35740 ,2.03963 ,1.44461 - +,0.08784 ,0.03057 ,58.99506 ,2.46097 ,2.14578 ,1.55829 - +,0.08930 ,0.03138 ,60.65567 ,2.55946 ,2.24671 ,1.66634 - +,0.09073 ,0.03218 ,62.27271 ,2.65714 ,2.34671 ,1.77310/ - DATA ((F(I,5,K),I=1,6),K=1,19)/ - + 0.05936 ,0.01462 ,13.31281 ,0.17000 ,0.03626 ,0.00000 - +,0.06355 ,0.01671 ,16.77345 ,0.35223 ,0.17304 ,0.00000 - +,0.06728 ,0.01860 ,19.98654 ,0.52925 ,0.30590 ,0.00000 - +,0.07067 ,0.02036 ,23.00337 ,0.70529 ,0.43802 ,0.00000 - +,0.07377 ,0.02199 ,25.80914 ,0.87493 ,0.56562 ,0.00113 - +,0.07663 ,0.02351 ,28.41324 ,1.01640 ,0.68788 ,0.06536 - +,0.07930 ,0.02495 ,30.86067 ,1.12639 ,0.80678 ,0.21069 - +,0.08181 ,0.02632 ,33.15881 ,1.23800 ,0.92193 ,0.33609 - +,0.08418 ,0.02762 ,35.30562 ,1.34467 ,1.03250 ,0.45803 - +,0.08642 ,0.02886 ,37.32642 ,1.44825 ,1.13963 ,0.57548 - +,0.08855 ,0.03005 ,39.23676 ,1.54905 ,1.24371 ,0.68907 - +,0.09058 ,0.03119 ,41.05107 ,1.64742 ,1.34513 ,0.79934 - +,0.09251 ,0.03229 ,42.73361 ,1.74090 ,1.44146 ,0.90390 - +,0.09436 ,0.03334 ,44.33371 ,1.83210 ,1.53533 ,1.00550 - +,0.09614 ,0.03436 ,45.86256 ,1.92130 ,1.62706 ,1.10448 - +,0.09784 ,0.03534 ,47.27785 ,2.00590 ,1.71403 ,1.19827 - +,0.09948 ,0.03630 ,48.65067 ,2.08972 ,1.80011 ,1.29080 - +,0.10106 ,0.03721 ,49.92151 ,2.16916 ,1.88168 ,1.37847 - +,0.10259 ,0.03811 ,51.15533 ,2.24779 ,1.96234 ,1.46493/ - DATA ((F(I,6,K),I=1,6),K=1,19)/ - + 0.06655 ,0.01732 ,11.91305 ,0.16728 ,0.03379 ,0.00000 - +,0.07108 ,0.01968 ,14.96129 ,0.33224 ,0.15763 ,0.00000 - +,0.07512 ,0.02182 ,17.76683 ,0.49016 ,0.27618 ,0.00000 - +,0.07877 ,0.02380 ,20.38208 ,0.64589 ,0.39309 ,0.00000 - +,0.08211 ,0.02563 ,22.79778 ,0.79511 ,0.50537 ,0.00099 - +,0.08518 ,0.02733 ,25.02550 ,0.91901 ,0.61247 ,0.05726 - +,0.08804 ,0.02894 ,27.10724 ,1.01484 ,0.71621 ,0.18430 - +,0.09072 ,0.03046 ,29.05133 ,1.11175 ,0.81630 ,0.29351 - +,0.09325 ,0.03190 ,30.85745 ,1.20404 ,0.91209 ,0.39937 - +,0.09563 ,0.03328 ,32.54926 ,1.29337 ,1.00461 ,0.50104 - +,0.09790 ,0.03459 ,34.14134 ,1.38004 ,1.09423 ,0.59909 - +,0.10006 ,0.03585 ,35.64709 ,1.46439 ,1.18133 ,0.69404 - +,0.10211 ,0.03706 ,37.03598 ,1.54431 ,1.26382 ,0.78384 - +,0.10407 ,0.03822 ,38.35164 ,1.62208 ,1.34401 ,0.87087 - +,0.10595 ,0.03934 ,39.60434 ,1.69799 ,1.42219 ,0.95549 - +,0.10775 ,0.04041 ,40.75761 ,1.76978 ,1.49612 ,1.03548 - +,0.10949 ,0.04145 ,41.87355 ,1.84077 ,1.56916 ,1.11425 - +,0.11115 ,0.04245 ,42.90091 ,1.90789 ,1.63820 ,1.18871 - +,0.11276 ,0.04342 ,43.89609 ,1.97420 ,1.70635 ,1.26201/ - DATA ((F(I,7,K),I=1,6),K=1,19)/ - + 0.09441 ,0.02922 ,8.44547 ,0.15807 ,0.02630 ,0.00000 - +,0.10016 ,0.03267 ,10.49149 ,0.27656 ,0.11540 ,0.00000 - +,0.10523 ,0.03575 ,12.32047 ,0.38603 ,0.19772 ,0.00000 - +,0.10978 ,0.03856 ,13.98449 ,0.49146 ,0.27701 ,0.00000 - +,0.11390 ,0.04114 ,15.48649 ,0.59083 ,0.35192 ,0.00066 - +,0.11766 ,0.04350 ,16.84148 ,0.67218 ,0.42240 ,0.03772 - +,0.12115 ,0.04572 ,18.08302 ,0.73404 ,0.48980 ,0.12091 - +,0.12441 ,0.04780 ,19.22073 ,0.79593 ,0.55407 ,0.19155 - +,0.12745 ,0.04975 ,20.25763 ,0.85421 ,0.61493 ,0.25936 - +,0.13031 ,0.05160 ,21.21233 ,0.91002 ,0.67311 ,0.32387 - +,0.13301 ,0.05335 ,22.09641 ,0.96365 ,0.72893 ,0.38553 - +,0.13557 ,0.05503 ,22.92018 ,1.01537 ,0.78271 ,0.44474 - +,0.13799 ,0.05661 ,23.66533 ,1.06391 ,0.83317 ,0.50026 - +,0.14030 ,0.05813 ,24.36137 ,1.11076 ,0.88183 ,0.55367 - +,0.14250 ,0.05959 ,25.01550 ,1.15613 ,0.92893 ,0.60523 - +,0.14459 ,0.06097 ,25.60562 ,1.19866 ,0.97308 ,0.65357 - +,0.14661 ,0.06232 ,26.17143 ,1.24046 ,1.01643 ,0.70089 - +,0.14853 ,0.06359 ,26.68146 ,1.27962 ,1.05706 ,0.74528 - +,0.15038 ,0.06484 ,27.17136 ,1.31810 ,1.09695 ,0.78874/ - DATA ((F(I,8,K),I=1,6),K=1,19)/ - + 0.13261 ,0.04902 ,6.00447 ,0.14755 ,0.01928 ,0.00000 - +,0.13970 ,0.05389 ,7.36176 ,0.22938 ,0.08109 ,0.00000 - +,0.14589 ,0.05817 ,8.53491 ,0.30368 ,0.13723 ,0.00000 - +,0.15139 ,0.06202 ,9.57233 ,0.37382 ,0.19023 ,0.00000 - +,0.15632 ,0.06549 ,10.48337 ,0.43890 ,0.23953 ,0.00044 - +,0.16080 ,0.06865 ,11.28363 ,0.49136 ,0.28527 ,0.02458 - +,0.16491 ,0.07158 ,11.99946 ,0.53048 ,0.32843 ,0.07846 - +,0.16872 ,0.07430 ,12.64001 ,0.56917 ,0.36907 ,0.12361 - +,0.17225 ,0.07683 ,13.20978 ,0.60514 ,0.40710 ,0.16649 - +,0.17555 ,0.07920 ,13.72279 ,0.63919 ,0.44304 ,0.20687 - +,0.17865 ,0.08143 ,14.18802 ,0.67155 ,0.47717 ,0.24508 - +,0.18157 ,0.08355 ,14.61308 ,0.70244 ,0.50972 ,0.28143 - +,0.18431 ,0.08553 ,14.98718 ,0.73110 ,0.53995 ,0.31520 - +,0.18691 ,0.08742 ,15.32987 ,0.75851 ,0.56884 ,0.34741 - +,0.18938 ,0.08922 ,15.64623 ,0.78482 ,0.59656 ,0.37826 - +,0.19171 ,0.09092 ,15.92286 ,0.80921 ,0.62229 ,0.40692 - +,0.19395 ,0.09256 ,16.18489 ,0.83303 ,0.64738 ,0.43480 - +,0.19606 ,0.09411 ,16.41321 ,0.85509 ,0.67066 ,0.46071 - +,0.19810 ,0.09560 ,16.62993 ,0.87664 ,0.69338 ,0.48593/ - DATA ((F(I,9,K),I=1,6),K=1,19)/ - + 0.16079 ,0.06604 ,4.93007 ,0.14088 ,0.01557 ,0.00000 - +,0.16866 ,0.07184 ,5.98705 ,0.20540 ,0.06458 ,0.00000 - +,0.17546 ,0.07688 ,6.87972 ,0.26393 ,0.10905 ,0.00000 - +,0.18147 ,0.08137 ,7.65352 ,0.31859 ,0.15058 ,0.00000 - +,0.18682 ,0.08538 ,8.31989 ,0.36883 ,0.18886 ,0.00034 - +,0.19165 ,0.08901 ,8.89403 ,0.40890 ,0.22406 ,0.01900 - +,0.19606 ,0.09234 ,9.39852 ,0.43835 ,0.25698 ,0.06047 - +,0.20013 ,0.09542 ,9.84202 ,0.46727 ,0.28773 ,0.09494 - +,0.20388 ,0.09825 ,10.22910 ,0.49392 ,0.31627 ,0.12744 - +,0.20736 ,0.10090 ,10.57159 ,0.51895 ,0.34305 ,0.15784 - +,0.21062 ,0.10338 ,10.87700 ,0.54255 ,0.36829 ,0.18641 - +,0.21368 ,0.10571 ,11.15162 ,0.56493 ,0.39221 ,0.21344 - +,0.21653 ,0.10788 ,11.38761 ,0.58553 ,0.41426 ,0.23838 - +,0.21922 ,0.10994 ,11.60022 ,0.60510 ,0.43521 ,0.26204 - +,0.22178 ,0.11190 ,11.79342 ,0.62377 ,0.45520 ,0.28458 - +,0.22417 ,0.11373 ,11.95740 ,0.64094 ,0.47361 ,0.30539 - +,0.22647 ,0.11549 ,12.11109 ,0.65763 ,0.49149 ,0.32555 - +,0.22863 ,0.11714 ,12.24035 ,0.67297 ,0.50797 ,0.34417 - +,0.23070 ,0.11873 ,12.36171 ,0.68788 ,0.52397 ,0.36222/ - DATA ((F(I,10,K),I=1,6),K=1,19)/ - + 0.18372 ,0.08131 ,4.29582 ,0.13664 ,0.01341 ,0.00000 - +,0.19204 ,0.08775 ,5.17341 ,0.19117 ,0.05509 ,0.00000 - +,0.19918 ,0.09329 ,5.90037 ,0.24041 ,0.09273 ,0.00000 - +,0.20545 ,0.09818 ,6.52002 ,0.28595 ,0.12755 ,0.00000 - +,0.21102 ,0.10252 ,7.04479 ,0.32745 ,0.15937 ,0.00029 - +,0.21600 ,0.10642 ,7.48919 ,0.36024 ,0.18841 ,0.01574 - +,0.22054 ,0.10997 ,7.87368 ,0.38403 ,0.21536 ,0.04997 - +,0.22469 ,0.11323 ,8.20627 ,0.40724 ,0.24037 ,0.07822 - +,0.22851 ,0.11622 ,8.49135 ,0.42848 ,0.26343 ,0.10471 - +,0.23204 ,0.11899 ,8.73954 ,0.44829 ,0.28493 ,0.12933 - +,0.23533 ,0.12157 ,8.95729 ,0.46685 ,0.30508 ,0.15237 - +,0.23840 ,0.12399 ,9.14998 ,0.48435 ,0.32407 ,0.17405 - +,0.24126 ,0.12623 ,9.31151 ,0.50033 ,0.34147 ,0.19395 - +,0.24394 ,0.12834 ,9.45453 ,0.51544 ,0.35791 ,0.21275 - +,0.24648 ,0.13034 ,9.58233 ,0.52978 ,0.37354 ,0.23058 - +,0.24885 ,0.13220 ,9.68707 ,0.54287 ,0.38784 ,0.24696 - +,0.25111 ,0.13398 ,9.78410 ,0.55554 ,0.40167 ,0.26276 - +,0.25323 ,0.13565 ,9.86214 ,0.56710 ,0.41435 ,0.27729 - +,0.25527 ,0.13725 ,9.93444 ,0.57831 ,0.42662 ,0.29133/ - DATA ((F(I,11,K),I=1,6),K=1,19)/ - + 0.20327 ,0.09531 ,3.86672 ,0.13378 ,0.01208 ,0.00000 - +,0.21184 ,0.10217 ,4.62110 ,0.18185 ,0.04904 ,0.00000 - +,0.21915 ,0.10802 ,5.23530 ,0.22479 ,0.08207 ,0.00000 - +,0.22554 ,0.11315 ,5.75088 ,0.26410 ,0.11233 ,0.00000 - +,0.23118 ,0.11768 ,6.18079 ,0.29965 ,0.13977 ,0.00025 - +,0.23620 ,0.12171 ,6.53908 ,0.32748 ,0.16464 ,0.01352 - +,0.24075 ,0.12536 ,6.84446 ,0.34743 ,0.18757 ,0.04285 - +,0.24490 ,0.12869 ,7.10446 ,0.36680 ,0.20871 ,0.06690 - +,0.24869 ,0.13173 ,7.32341 ,0.38439 ,0.22810 ,0.08934 - +,0.25218 ,0.13453 ,7.51084 ,0.40070 ,0.24607 ,0.11011 - +,0.25542 ,0.13713 ,7.67248 ,0.41589 ,0.26283 ,0.12944 - +,0.25844 ,0.13955 ,7.81311 ,0.43013 ,0.27855 ,0.14756 - +,0.26123 ,0.14178 ,7.92774 ,0.44306 ,0.29288 ,0.16412 - +,0.26385 ,0.14387 ,8.02718 ,0.45521 ,0.30635 ,0.17969 - +,0.26631 ,0.14584 ,8.11427 ,0.46669 ,0.31910 ,0.19441 - +,0.26860 ,0.14766 ,8.18249 ,0.47710 ,0.33072 ,0.20788 - +,0.27078 ,0.14940 ,8.24475 ,0.48714 ,0.34191 ,0.22083 - +,0.27281 ,0.15102 ,8.29169 ,0.49623 ,0.35211 ,0.23268 - +,0.27475 ,0.15257 ,8.33435 ,0.50502 ,0.36195 ,0.24411/ - DATA ((F(I,12,K),I=1,6),K=1,19)/ - + 0.27418 ,0.15283 ,2.81054 ,0.12271 ,0.00832 ,0.00000 - +,0.28286 ,0.16022 ,3.25839 ,0.15355 ,0.03288 ,0.00000 - +,0.29007 ,0.16629 ,3.59836 ,0.18029 ,0.05421 ,0.00000 - +,0.29622 ,0.17144 ,3.86588 ,0.20401 ,0.07317 ,0.00000 - +,0.30151 ,0.17584 ,4.07405 ,0.22486 ,0.08991 ,0.00015 - +,0.30612 ,0.17964 ,4.23506 ,0.24061 ,0.10472 ,0.00820 - +,0.31020 ,0.18298 ,4.36225 ,0.25130 ,0.11806 ,0.02578 - +,0.31384 ,0.18594 ,4.46180 ,0.26146 ,0.13009 ,0.03990 - +,0.31709 ,0.18856 ,4.53723 ,0.27045 ,0.14088 ,0.05283 - +,0.32002 ,0.19090 ,4.59492 ,0.27856 ,0.15068 ,0.06460 - +,0.32268 ,0.19302 ,4.63874 ,0.28594 ,0.15965 ,0.07537 - +,0.32512 ,0.19495 ,4.67178 ,0.29269 ,0.16791 ,0.08531 - +,0.32731 ,0.19666 ,4.69139 ,0.29865 ,0.17528 ,0.09425 - +,0.32932 ,0.19823 ,4.70391 ,0.30412 ,0.18210 ,0.10253 - +,0.33119 ,0.19968 ,4.71099 ,0.30918 ,0.18845 ,0.11025 - +,0.33286 ,0.20096 ,4.70915 ,0.31361 ,0.19410 ,0.11721 - +,0.33445 ,0.20217 ,4.70549 ,0.31783 ,0.19948 ,0.12381 - +,0.33587 ,0.20324 ,4.69484 ,0.32150 ,0.20428 ,0.12976 - +,0.33722 ,0.20425 ,4.68323 ,0.32501 ,0.20885 ,0.13544/ - DATA ((F(I,13,K),I=1,6),K=1,19)/ - + 0.35908 ,0.23149 ,2.07381 ,0.10802 ,0.00556 ,0.00000 - +,0.36588 ,0.23648 ,2.29653 ,0.12622 ,0.02126 ,0.00000 - +,0.37116 ,0.24018 ,2.44428 ,0.14120 ,0.03431 ,0.00000 - +,0.37540 ,0.24301 ,2.54528 ,0.15386 ,0.04541 ,0.00000 - +,0.37880 ,0.24516 ,2.61080 ,0.16447 ,0.05486 ,0.00009 - +,0.38157 ,0.24678 ,2.64999 ,0.17193 ,0.06292 ,0.00462 - +,0.38385 ,0.24802 ,2.67153 ,0.17640 ,0.06995 ,0.01438 - +,0.38572 ,0.24896 ,2.67960 ,0.18050 ,0.07608 ,0.02200 - +,0.38724 ,0.24962 ,2.67658 ,0.18391 ,0.08141 ,0.02881 - +,0.38849 ,0.25008 ,2.66621 ,0.18682 ,0.08611 ,0.03486 - +,0.38951 ,0.25038 ,2.65066 ,0.18931 ,0.09028 ,0.04028 - +,0.39036 ,0.25056 ,2.63157 ,0.19147 ,0.09402 ,0.04517 - +,0.39099 ,0.25058 ,2.60756 ,0.19321 ,0.09724 ,0.04948 - +,0.39149 ,0.25052 ,2.58188 ,0.19471 ,0.10015 ,0.05338 - +,0.39190 ,0.25039 ,2.55527 ,0.19601 ,0.10278 ,0.05696 - +,0.39214 ,0.25015 ,2.52589 ,0.19700 ,0.10504 ,0.06010 - +,0.39234 ,0.24989 ,2.49719 ,0.19790 ,0.10714 ,0.06303 - +,0.39240 ,0.24954 ,2.46664 ,0.19854 ,0.10893 ,0.06562 - +,0.39243 ,0.24918 ,2.43701 ,0.19913 ,0.11061 ,0.06804/ - DATA ((F(I,14,K),I=1,6),K=1,19)/ - + 0.41281 ,0.28110 ,1.73830 ,0.09621 ,0.00423 ,0.00001 - +,0.41689 ,0.28227 ,1.85630 ,0.10849 ,0.01585 ,0.00001 - +,0.41962 ,0.28252 ,1.91985 ,0.11811 ,0.02517 ,0.00001 - +,0.42145 ,0.28223 ,1.95173 ,0.12588 ,0.03285 ,0.00000 - +,0.42263 ,0.28153 ,1.96121 ,0.13209 ,0.03919 ,0.00007 - +,0.42326 ,0.28054 ,1.95514 ,0.13609 ,0.04444 ,0.00312 - +,0.42351 ,0.27938 ,1.93953 ,0.13802 ,0.04890 ,0.00964 - +,0.42349 ,0.27805 ,1.91724 ,0.13972 ,0.05269 ,0.01463 - +,0.42318 ,0.27663 ,1.88982 ,0.14097 ,0.05589 ,0.01899 - +,0.42268 ,0.27513 ,1.85966 ,0.14190 ,0.05863 ,0.02280 - +,0.42204 ,0.27358 ,1.82805 ,0.14259 ,0.06101 ,0.02615 - +,0.42131 ,0.27202 ,1.79590 ,0.14308 ,0.06308 ,0.02913 - +,0.42042 ,0.27041 ,1.76225 ,0.14333 ,0.06482 ,0.03170 - +,0.41946 ,0.26881 ,1.72896 ,0.14344 ,0.06633 ,0.03400 - +,0.41846 ,0.26723 ,1.69639 ,0.14346 ,0.06767 ,0.03607 - +,0.41735 ,0.26560 ,1.66338 ,0.14331 ,0.06877 ,0.03785 - +,0.41626 ,0.26402 ,1.63187 ,0.14312 ,0.06977 ,0.03950 - +,0.41507 ,0.26242 ,1.60025 ,0.14280 ,0.07058 ,0.04091 - +,0.41390 ,0.26087 ,1.57010 ,0.14247 ,0.07132 ,0.04223/ - DATA ((F(I,15,K),I=1,6),K=1,19)/ - + 0.45071 ,0.31143 ,1.52456 ,0.08591 ,0.00338 ,0.00000 - +,0.45176 ,0.30854 ,1.57876 ,0.09457 ,0.01248 ,0.00000 - +,0.45172 ,0.30529 ,1.59369 ,0.10100 ,0.01956 ,0.00000 - +,0.45104 ,0.30192 ,1.58769 ,0.10594 ,0.02523 ,0.00000 - +,0.44988 ,0.29851 ,1.56800 ,0.10968 ,0.02978 ,0.00004 - +,0.44837 ,0.29508 ,1.53969 ,0.11177 ,0.03347 ,0.00226 - +,0.44662 ,0.29171 ,1.50695 ,0.11236 ,0.03651 ,0.00695 - +,0.44469 ,0.28839 ,1.47157 ,0.11281 ,0.03904 ,0.01048 - +,0.44261 ,0.28512 ,1.43456 ,0.11296 ,0.04112 ,0.01351 - +,0.44045 ,0.28192 ,1.39740 ,0.11292 ,0.04285 ,0.01612 - +,0.43824 ,0.27882 ,1.36080 ,0.11273 ,0.04431 ,0.01838 - +,0.43602 ,0.27582 ,1.32523 ,0.11244 ,0.04556 ,0.02036 - +,0.43371 ,0.27285 ,1.28990 ,0.11200 ,0.04655 ,0.02204 - +,0.43142 ,0.26999 ,1.25596 ,0.11149 ,0.04740 ,0.02352 - +,0.42915 ,0.26724 ,1.22352 ,0.11094 ,0.04812 ,0.02484 - +,0.42683 ,0.26452 ,1.19172 ,0.11030 ,0.04867 ,0.02595 - +,0.42458 ,0.26191 ,1.16173 ,0.10966 ,0.04917 ,0.02697 - +,0.42229 ,0.25934 ,1.13243 ,0.10895 ,0.04953 ,0.02782 - +,0.42006 ,0.25688 ,1.10476 ,0.10825 ,0.04985 ,0.02860/ - DATA ((F(I,16,K),I=1,6),K=1,19)/ - + 0.47843 ,0.32769 ,1.36531 ,0.07671 ,0.00278 ,0.00000 - +,0.47629 ,0.32101 ,1.37634 ,0.08290 ,0.01012 ,0.00000 - +,0.47342 ,0.31456 ,1.36006 ,0.08723 ,0.01567 ,0.00000 - +,0.47019 ,0.30846 ,1.33100 ,0.09035 ,0.02000 ,0.00000 - +,0.46671 ,0.30269 ,1.29461 ,0.09253 ,0.02340 ,0.00003 - +,0.46310 ,0.29718 ,1.25443 ,0.09345 ,0.02609 ,0.00171 - +,0.45940 ,0.29195 ,1.21325 ,0.09327 ,0.02825 ,0.00522 - +,0.45567 ,0.28698 ,1.17212 ,0.09301 ,0.03000 ,0.00783 - +,0.45192 ,0.28222 ,1.13157 ,0.09255 ,0.03140 ,0.01003 - +,0.44820 ,0.27767 ,1.09245 ,0.09198 ,0.03254 ,0.01189 - +,0.44453 ,0.27334 ,1.05509 ,0.09133 ,0.03346 ,0.01349 - +,0.44094 ,0.26921 ,1.01965 ,0.09064 ,0.03423 ,0.01488 - +,0.43735 ,0.26522 ,0.98545 ,0.08985 ,0.03481 ,0.01603 - +,0.43385 ,0.26142 ,0.95316 ,0.08905 ,0.03529 ,0.01704 - +,0.43044 ,0.25779 ,0.92274 ,0.08824 ,0.03567 ,0.01792 - +,0.42704 ,0.25426 ,0.89351 ,0.08738 ,0.03594 ,0.01865 - +,0.42377 ,0.25091 ,0.86619 ,0.08654 ,0.03617 ,0.01930 - +,0.42050 ,0.24764 ,0.83995 ,0.08567 ,0.03630 ,0.01984 - +,0.41735 ,0.24453 ,0.81536 ,0.08483 ,0.03641 ,0.02033/ - DATA ((F(I,17,K),I=1,6),K=1,19)/ - + 0.50274 ,0.33350 ,1.20684 ,0.06649 ,0.00223 ,0.00000 - +,0.49654 ,0.32273 ,1.18097 ,0.07055 ,0.00797 ,0.00000 - +,0.49010 ,0.31296 ,1.13960 ,0.07311 ,0.01218 ,0.00000 - +,0.48374 ,0.30406 ,1.09324 ,0.07475 ,0.01537 ,0.00000 - +,0.47747 ,0.29592 ,1.04535 ,0.07569 ,0.01780 ,0.00002 - +,0.47131 ,0.28840 ,0.99789 ,0.07573 ,0.01966 ,0.00125 - +,0.46534 ,0.28140 ,0.95234 ,0.07500 ,0.02111 ,0.00379 - +,0.45952 ,0.27486 ,0.90905 ,0.07425 ,0.02225 ,0.00563 - +,0.45383 ,0.26872 ,0.86805 ,0.07340 ,0.02313 ,0.00717 - +,0.44833 ,0.26296 ,0.82968 ,0.07249 ,0.02381 ,0.00845 - +,0.44301 ,0.25755 ,0.79392 ,0.07157 ,0.02435 ,0.00953 - +,0.43789 ,0.25244 ,0.76067 ,0.07064 ,0.02476 ,0.01045 - +,0.43288 ,0.24758 ,0.72932 ,0.06967 ,0.02505 ,0.01120 - +,0.42805 ,0.24298 ,0.70018 ,0.06872 ,0.02527 ,0.01184 - +,0.42339 ,0.23863 ,0.67311 ,0.06779 ,0.02543 ,0.01240 - +,0.41882 ,0.23445 ,0.64753 ,0.06684 ,0.02550 ,0.01284 - +,0.41446 ,0.23050 ,0.62384 ,0.06593 ,0.02555 ,0.01324 - +,0.41016 ,0.22669 ,0.60142 ,0.06502 ,0.02555 ,0.01356 - +,0.40604 ,0.22308 ,0.58058 ,0.06414 ,0.02552 ,0.01384/ - DATA ((F(I,18,K),I=1,6),K=1,19)/ - + 0.51805 ,0.32765 ,1.07429 ,0.05748 ,0.00179 ,0.00000 - +,0.50781 ,0.31366 ,1.02381 ,0.06005 ,0.00635 ,0.00000 - +,0.49791 ,0.30136 ,0.96712 ,0.06143 ,0.00959 ,0.00000 - +,0.48856 ,0.29041 ,0.91126 ,0.06211 ,0.01198 ,0.00000 - +,0.47966 ,0.28056 ,0.85800 ,0.06229 ,0.01376 ,0.00002 - +,0.47115 ,0.27163 ,0.80801 ,0.06182 ,0.01507 ,0.00093 - +,0.46307 ,0.26345 ,0.76185 ,0.06081 ,0.01607 ,0.00281 - +,0.45535 ,0.25589 ,0.71929 ,0.05982 ,0.01682 ,0.00415 - +,0.44795 ,0.24887 ,0.68007 ,0.05878 ,0.01737 ,0.00525 - +,0.44087 ,0.24236 ,0.64409 ,0.05775 ,0.01778 ,0.00614 - +,0.43412 ,0.23629 ,0.61115 ,0.05672 ,0.01808 ,0.00689 - +,0.42770 ,0.23062 ,0.58098 ,0.05572 ,0.01830 ,0.00752 - +,0.42146 ,0.22525 ,0.55302 ,0.05472 ,0.01842 ,0.00802 - +,0.41550 ,0.22022 ,0.52733 ,0.05374 ,0.01850 ,0.00845 - +,0.40981 ,0.21549 ,0.50370 ,0.05280 ,0.01854 ,0.00881 - +,0.40429 ,0.21097 ,0.48168 ,0.05187 ,0.01852 ,0.00909 - +,0.39903 ,0.20672 ,0.46143 ,0.05098 ,0.01849 ,0.00933 - +,0.39389 ,0.20267 ,0.44250 ,0.05010 ,0.01842 ,0.00952 - +,0.38899 ,0.19885 ,0.42501 ,0.04927 ,0.01834 ,0.00969/ - DATA ((F(I,19,K),I=1,6),K=1,19)/ - + 0.52592 ,0.31367 ,0.95843 ,0.04950 ,0.00145 ,-0.00001 - +,0.51175 ,0.29737 ,0.89176 ,0.05102 ,0.00509 ,-0.00001 - +,0.49858 ,0.28330 ,0.82613 ,0.05161 ,0.00761 ,0.00000 - +,0.48641 ,0.27097 ,0.76569 ,0.05167 ,0.00942 ,-0.00001 - +,0.47506 ,0.26007 ,0.71072 ,0.05138 ,0.01072 ,0.00001 - +,0.46447 ,0.25027 ,0.66101 ,0.05062 ,0.01166 ,0.00069 - +,0.45451 ,0.24137 ,0.61629 ,0.04949 ,0.01235 ,0.00209 - +,0.44511 ,0.23327 ,0.57600 ,0.04841 ,0.01285 ,0.00308 - +,0.43623 ,0.22579 ,0.53957 ,0.04732 ,0.01320 ,0.00389 - +,0.42782 ,0.21890 ,0.50672 ,0.04625 ,0.01344 ,0.00453 - +,0.41987 ,0.21252 ,0.47707 ,0.04522 ,0.01360 ,0.00506 - +,0.41235 ,0.20659 ,0.45024 ,0.04424 ,0.01369 ,0.00549 - +,0.40511 ,0.20105 ,0.42571 ,0.04327 ,0.01373 ,0.00583 - +,0.39823 ,0.19586 ,0.40339 ,0.04234 ,0.01373 ,0.00611 - +,0.39169 ,0.19100 ,0.38304 ,0.04145 ,0.01370 ,0.00635 - +,0.38538 ,0.18641 ,0.36428 ,0.04058 ,0.01364 ,0.00653 - +,0.37940 ,0.18211 ,0.34714 ,0.03975 ,0.01357 ,0.00668 - +,0.37363 ,0.17802 ,0.33128 ,0.03895 ,0.01347 ,0.00680 - +,0.36814 ,0.17416 ,0.31670 ,0.03819 ,0.01338 ,0.00690/ - DATA ((F(I,20,K),I=1,6),K=1,19)/ - + 0.52738 ,0.29417 ,0.85483 ,0.04247 ,0.00118 ,-0.00001 - +,0.50951 ,0.27637 ,0.77798 ,0.04324 ,0.00410 ,-0.00001 - +,0.49329 ,0.26124 ,0.70781 ,0.04329 ,0.00607 ,0.00000 - +,0.47857 ,0.24816 ,0.64601 ,0.04295 ,0.00745 ,-0.00001 - +,0.46506 ,0.23669 ,0.59170 ,0.04238 ,0.00841 ,0.00001 - +,0.45260 ,0.22650 ,0.54390 ,0.04148 ,0.00908 ,0.00053 - +,0.44103 ,0.21733 ,0.50179 ,0.04032 ,0.00955 ,0.00158 - +,0.43021 ,0.20903 ,0.46453 ,0.03923 ,0.00988 ,0.00232 - +,0.42008 ,0.20144 ,0.43139 ,0.03816 ,0.01009 ,0.00291 - +,0.41056 ,0.19449 ,0.40191 ,0.03714 ,0.01022 ,0.00337 - +,0.40161 ,0.18808 ,0.37561 ,0.03616 ,0.01030 ,0.00375 - +,0.39320 ,0.18216 ,0.35207 ,0.03523 ,0.01033 ,0.00405 - +,0.38517 ,0.17667 ,0.33078 ,0.03433 ,0.01031 ,0.00428 - +,0.37758 ,0.17154 ,0.31159 ,0.03347 ,0.01027 ,0.00447 - +,0.37040 ,0.16676 ,0.29423 ,0.03266 ,0.01022 ,0.00463 - +,0.36351 ,0.16227 ,0.27837 ,0.03187 ,0.01013 ,0.00474 - +,0.35700 ,0.15808 ,0.26397 ,0.03113 ,0.01005 ,0.00484 - +,0.35075 ,0.15410 ,0.25075 ,0.03042 ,0.00995 ,0.00491 - +,0.34483 ,0.15037 ,0.23866 ,0.02974 ,0.00984 ,0.00497/ - DATA ((F(I,21,K),I=1,6),K=1,19)/ - + 0.52317 ,0.27120 ,0.76104 ,0.03628 ,0.00097 ,0.00000 - +,0.50189 ,0.25264 ,0.67850 ,0.03652 ,0.00331 ,0.00000 - +,0.48294 ,0.23703 ,0.60689 ,0.03622 ,0.00484 ,0.00000 - +,0.46595 ,0.22370 ,0.54591 ,0.03564 ,0.00589 ,0.00000 - +,0.45059 ,0.21213 ,0.49373 ,0.03491 ,0.00661 ,0.00001 - +,0.43658 ,0.20192 ,0.44883 ,0.03395 ,0.00709 ,0.00041 - +,0.42363 ,0.19282 ,0.40995 ,0.03283 ,0.00741 ,0.00121 - +,0.41167 ,0.18461 ,0.37607 ,0.03178 ,0.00763 ,0.00176 - +,0.40048 ,0.17716 ,0.34637 ,0.03079 ,0.00775 ,0.00219 - +,0.39007 ,0.17037 ,0.32027 ,0.02984 ,0.00782 ,0.00253 - +,0.38036 ,0.16416 ,0.29722 ,0.02893 ,0.00784 ,0.00280 - +,0.37128 ,0.15845 ,0.27677 ,0.02808 ,0.00783 ,0.00302 - +,0.36266 ,0.15316 ,0.25846 ,0.02727 ,0.00779 ,0.00318 - +,0.35455 ,0.14825 ,0.24209 ,0.02650 ,0.00772 ,0.00330 - +,0.34691 ,0.14370 ,0.22739 ,0.02578 ,0.00765 ,0.00340 - +,0.33963 ,0.13943 ,0.21409 ,0.02508 ,0.00757 ,0.00348 - +,0.33277 ,0.13546 ,0.20207 ,0.02443 ,0.00749 ,0.00354 - +,0.32620 ,0.13172 ,0.19111 ,0.02380 ,0.00739 ,0.00358 - +,0.31998 ,0.12821 ,0.18114 ,0.02321 ,0.00729 ,0.00361/ - DATA ((F(I,22,K),I=1,6),K=1,19)/ - + 0.51391 ,0.24629 ,0.67534 ,0.03084 ,0.00079 ,0.00000 - +,0.48961 ,0.22759 ,0.59050 ,0.03071 ,0.00267 ,0.00000 - +,0.46825 ,0.21204 ,0.51975 ,0.03019 ,0.00386 ,0.00000 - +,0.44934 ,0.19888 ,0.46112 ,0.02948 ,0.00466 ,0.00000 - +,0.43243 ,0.18755 ,0.41205 ,0.02868 ,0.00519 ,0.00001 - +,0.41709 ,0.17763 ,0.37060 ,0.02773 ,0.00554 ,0.00031 - +,0.40310 ,0.16883 ,0.33530 ,0.02667 ,0.00576 ,0.00092 - +,0.39024 ,0.16095 ,0.30491 ,0.02571 ,0.00589 ,0.00134 - +,0.37831 ,0.15384 ,0.27861 ,0.02479 ,0.00595 ,0.00165 - +,0.36726 ,0.14740 ,0.25575 ,0.02392 ,0.00597 ,0.00190 - +,0.35699 ,0.14152 ,0.23574 ,0.02312 ,0.00596 ,0.00209 - +,0.34742 ,0.13614 ,0.21814 ,0.02236 ,0.00593 ,0.00224 - +,0.33843 ,0.13118 ,0.20254 ,0.02164 ,0.00588 ,0.00235 - +,0.32999 ,0.12661 ,0.18869 ,0.02096 ,0.00582 ,0.00244 - +,0.32204 ,0.12238 ,0.17634 ,0.02033 ,0.00574 ,0.00250 - +,0.31452 ,0.11843 ,0.16523 ,0.01973 ,0.00566 ,0.00255 - +,0.30746 ,0.11475 ,0.15525 ,0.01916 ,0.00558 ,0.00259 - +,0.30072 ,0.11130 ,0.14621 ,0.01862 ,0.00549 ,0.00261 - +,0.29437 ,0.10808 ,0.13803 ,0.01811 ,0.00541 ,0.00262/ - DATA ((F(I,23,K),I=1,6),K=1,19)/ - + 0.50019 ,0.22067 ,0.59708 ,0.02608 ,0.00064 ,0.00000 - +,0.47327 ,0.20234 ,0.51250 ,0.02571 ,0.00214 ,0.00000 - +,0.44992 ,0.18726 ,0.44418 ,0.02506 ,0.00307 ,0.00000 - +,0.42945 ,0.17459 ,0.38888 ,0.02429 ,0.00368 ,0.00000 - +,0.41130 ,0.16377 ,0.34349 ,0.02347 ,0.00407 ,0.00001 - +,0.39498 ,0.15435 ,0.30578 ,0.02257 ,0.00431 ,0.00024 - +,0.38020 ,0.14605 ,0.27409 ,0.02161 ,0.00446 ,0.00070 - +,0.36669 ,0.13866 ,0.24716 ,0.02073 ,0.00454 ,0.00101 - +,0.35424 ,0.13203 ,0.22412 ,0.01991 ,0.00457 ,0.00124 - +,0.34277 ,0.12604 ,0.20428 ,0.01914 ,0.00456 ,0.00142 - +,0.33216 ,0.12061 ,0.18707 ,0.01843 ,0.00454 ,0.00156 - +,0.32232 ,0.11565 ,0.17206 ,0.01776 ,0.00450 ,0.00167 - +,0.31312 ,0.11110 ,0.15886 ,0.01714 ,0.00444 ,0.00175 - +,0.30450 ,0.10692 ,0.14723 ,0.01655 ,0.00438 ,0.00180 - +,0.29643 ,0.10307 ,0.13691 ,0.01601 ,0.00431 ,0.00184 - +,0.28882 ,0.09948 ,0.12770 ,0.01549 ,0.00424 ,0.00187 - +,0.28169 ,0.09615 ,0.11946 ,0.01501 ,0.00416 ,0.00190 - +,0.27491 ,0.09304 ,0.11206 ,0.01455 ,0.00409 ,0.00191 - +,0.26854 ,0.09014 ,0.10538 ,0.01412 ,0.00401 ,0.00191/ - DATA ((F(I,24,K),I=1,6),K=1,19)/ - + 0.48255 ,0.19522 ,0.52547 ,0.02193 ,0.00052 ,0.00001 - +,0.45346 ,0.17767 ,0.44308 ,0.02141 ,0.00171 ,0.00000 - +,0.42853 ,0.16336 ,0.37833 ,0.02069 ,0.00244 ,0.00000 - +,0.40688 ,0.15143 ,0.32700 ,0.01992 ,0.00290 ,0.00001 - +,0.38784 ,0.14129 ,0.28562 ,0.01912 ,0.00319 ,0.00001 - +,0.37085 ,0.13254 ,0.25172 ,0.01829 ,0.00335 ,0.00019 - +,0.35553 ,0.12488 ,0.22360 ,0.01744 ,0.00345 ,0.00054 - +,0.34163 ,0.11808 ,0.20000 ,0.01665 ,0.00349 ,0.00077 - +,0.32888 ,0.11201 ,0.17999 ,0.01592 ,0.00350 ,0.00094 - +,0.31721 ,0.10656 ,0.16292 ,0.01525 ,0.00348 ,0.00107 - +,0.30645 ,0.10163 ,0.14825 ,0.01463 ,0.00345 ,0.00117 - +,0.29652 ,0.09716 ,0.13556 ,0.01406 ,0.00340 ,0.00124 - +,0.28727 ,0.09306 ,0.12447 ,0.01352 ,0.00335 ,0.00130 - +,0.27865 ,0.08931 ,0.11477 ,0.01302 ,0.00329 ,0.00134 - +,0.27061 ,0.08586 ,0.10621 ,0.01256 ,0.00323 ,0.00136 - +,0.26304 ,0.08265 ,0.09863 ,0.01212 ,0.00317 ,0.00138 - +,0.25597 ,0.07970 ,0.09188 ,0.01171 ,0.00310 ,0.00139 - +,0.24926 ,0.07694 ,0.08585 ,0.01133 ,0.00304 ,0.00139 - +,0.24296 ,0.07438 ,0.08043 ,0.01097 ,0.00297 ,0.00139/ - DATA ((F(I,25,K),I=1,6),K=1,19)/ - + 0.46153 ,0.17064 ,0.46010 ,0.01833 ,0.00042 ,0.00001 - +,0.43077 ,0.15416 ,0.38134 ,0.01773 ,0.00136 ,0.00000 - +,0.40468 ,0.14085 ,0.32094 ,0.01699 ,0.00192 ,0.00000 - +,0.38221 ,0.12983 ,0.27394 ,0.01625 ,0.00227 ,0.00001 - +,0.36261 ,0.12053 ,0.23667 ,0.01550 ,0.00248 ,0.00001 - +,0.34523 ,0.11254 ,0.20655 ,0.01475 ,0.00259 ,0.00014 - +,0.32966 ,0.10559 ,0.18187 ,0.01400 ,0.00266 ,0.00041 - +,0.31560 ,0.09945 ,0.16137 ,0.01331 ,0.00267 ,0.00058 - +,0.30279 ,0.09399 ,0.14417 ,0.01268 ,0.00267 ,0.00071 - +,0.29110 ,0.08911 ,0.12962 ,0.01210 ,0.00264 ,0.00080 - +,0.28038 ,0.08472 ,0.11722 ,0.01157 ,0.00261 ,0.00087 - +,0.27051 ,0.08074 ,0.10656 ,0.01108 ,0.00257 ,0.00092 - +,0.26136 ,0.07711 ,0.09732 ,0.01062 ,0.00252 ,0.00096 - +,0.25287 ,0.07380 ,0.08929 ,0.01020 ,0.00247 ,0.00099 - +,0.24497 ,0.07077 ,0.08224 ,0.00981 ,0.00241 ,0.00100 - +,0.23757 ,0.06796 ,0.07604 ,0.00945 ,0.00236 ,0.00101 - +,0.23067 ,0.06537 ,0.07055 ,0.00911 ,0.00230 ,0.00102 - +,0.22414 ,0.06297 ,0.06566 ,0.00879 ,0.00225 ,0.00102 - +,0.21803 ,0.06074 ,0.06129 ,0.00849 ,0.00220 ,0.00101/ - DATA ((F(I,26,K),I=1,6),K=1,19)/ - + 0.43766 ,0.14743 ,0.40067 ,0.01523 ,0.00032 ,0.00000 - +,0.40573 ,0.13225 ,0.32657 ,0.01459 ,0.00107 ,0.00000 - +,0.37893 ,0.12008 ,0.27099 ,0.01388 ,0.00150 ,-0.00001 - +,0.35601 ,0.11007 ,0.22849 ,0.01318 ,0.00176 ,0.00000 - +,0.33616 ,0.10168 ,0.19528 ,0.01250 ,0.00191 ,0.00000 - +,0.31869 ,0.09451 ,0.16882 ,0.01183 ,0.00198 ,0.00010 - +,0.30314 ,0.08830 ,0.14736 ,0.01117 ,0.00202 ,0.00030 - +,0.28912 ,0.08285 ,0.12973 ,0.01059 ,0.00203 ,0.00043 - +,0.27647 ,0.07803 ,0.11507 ,0.01004 ,0.00201 ,0.00052 - +,0.26495 ,0.07372 ,0.10277 ,0.00955 ,0.00199 ,0.00059 - +,0.25442 ,0.06987 ,0.09237 ,0.00910 ,0.00196 ,0.00064 - +,0.24477 ,0.06639 ,0.08350 ,0.00869 ,0.00192 ,0.00068 - +,0.23583 ,0.06323 ,0.07586 ,0.00831 ,0.00188 ,0.00070 - +,0.22758 ,0.06035 ,0.06926 ,0.00796 ,0.00183 ,0.00072 - +,0.21995 ,0.05772 ,0.06350 ,0.00763 ,0.00179 ,0.00073 - +,0.21279 ,0.05530 ,0.05846 ,0.00733 ,0.00174 ,0.00073 - +,0.20615 ,0.05307 ,0.05401 ,0.00705 ,0.00170 ,0.00073 - +,0.19989 ,0.05100 ,0.05008 ,0.00679 ,0.00165 ,0.00073 - +,0.19405 ,0.04909 ,0.04658 ,0.00654 ,0.00161 ,0.00073/ - DATA ((F(I,27,K),I=1,6),K=1,19)/ - + 0.41147 ,0.12586 ,0.34670 ,0.01255 ,0.00026 ,0.00000 - +,0.37887 ,0.11211 ,0.27799 ,0.01192 ,0.00084 ,0.00000 - +,0.35177 ,0.10117 ,0.22750 ,0.01125 ,0.00116 ,-0.00001 - +,0.32876 ,0.09223 ,0.18952 ,0.01061 ,0.00136 ,0.00000 - +,0.30897 ,0.08478 ,0.16027 ,0.01001 ,0.00146 ,0.00000 - +,0.29166 ,0.07846 ,0.13725 ,0.00942 ,0.00151 ,0.00008 - +,0.27633 ,0.07300 ,0.11878 ,0.00886 ,0.00153 ,0.00022 - +,0.26259 ,0.06824 ,0.10376 ,0.00836 ,0.00153 ,0.00032 - +,0.25024 ,0.06403 ,0.09138 ,0.00790 ,0.00152 ,0.00039 - +,0.23904 ,0.06030 ,0.08108 ,0.00749 ,0.00149 ,0.00044 - +,0.22886 ,0.05697 ,0.07244 ,0.00711 ,0.00146 ,0.00047 - +,0.21955 ,0.05398 ,0.06511 ,0.00677 ,0.00143 ,0.00050 - +,0.21096 ,0.05126 ,0.05885 ,0.00645 ,0.00139 ,0.00051 - +,0.20306 ,0.04880 ,0.05346 ,0.00616 ,0.00135 ,0.00052 - +,0.19577 ,0.04655 ,0.04880 ,0.00590 ,0.00132 ,0.00053 - +,0.18897 ,0.04449 ,0.04473 ,0.00565 ,0.00128 ,0.00053 - +,0.18266 ,0.04260 ,0.04116 ,0.00542 ,0.00124 ,0.00053 - +,0.17674 ,0.04085 ,0.03802 ,0.00521 ,0.00121 ,0.00053 - +,0.17122 ,0.03924 ,0.03524 ,0.00501 ,0.00118 ,0.00053/ - DATA ((F(I,28,K),I=1,6),K=1,19)/ - + 0.38351 ,0.10617 ,0.29800 ,0.01027 ,0.00020 ,0.00000 - +,0.35074 ,0.09391 ,0.23513 ,0.00966 ,0.00065 ,-0.00001 - +,0.32371 ,0.08423 ,0.18981 ,0.00905 ,0.00089 ,0.00000 - +,0.30099 ,0.07638 ,0.15625 ,0.00848 ,0.00104 ,0.00000 - +,0.28150 ,0.06987 ,0.13075 ,0.00796 ,0.00111 ,0.00000 - +,0.26459 ,0.06438 ,0.11092 ,0.00745 ,0.00115 ,0.00006 - +,0.24968 ,0.05966 ,0.09519 ,0.00698 ,0.00116 ,0.00017 - +,0.23643 ,0.05555 ,0.08250 ,0.00656 ,0.00115 ,0.00024 - +,0.22451 ,0.05194 ,0.07215 ,0.00618 ,0.00113 ,0.00029 - +,0.21379 ,0.04876 ,0.06360 ,0.00583 ,0.00111 ,0.00032 - +,0.20407 ,0.04592 ,0.05648 ,0.00552 ,0.00108 ,0.00035 - +,0.19521 ,0.04338 ,0.05048 ,0.00524 ,0.00105 ,0.00036 - +,0.18707 ,0.04108 ,0.04539 ,0.00498 ,0.00102 ,0.00037 - +,0.17960 ,0.03901 ,0.04104 ,0.00474 ,0.00099 ,0.00038 - +,0.17272 ,0.03712 ,0.03728 ,0.00453 ,0.00096 ,0.00038 - +,0.16633 ,0.03539 ,0.03404 ,0.00433 ,0.00093 ,0.00038 - +,0.16042 ,0.03381 ,0.03121 ,0.00414 ,0.00090 ,0.00038 - +,0.15489 ,0.03236 ,0.02872 ,0.00397 ,0.00088 ,0.00038 - +,0.14975 ,0.03102 ,0.02653 ,0.00381 ,0.00085 ,0.00038/ - DATA ((F(I,29,K),I=1,6),K=1,19)/ - + 0.35425 ,0.08848 ,0.25426 ,0.00833 ,0.00015 ,0.00000 - +,0.32178 ,0.07771 ,0.19743 ,0.00777 ,0.00050 ,-0.00001 - +,0.29521 ,0.06928 ,0.15723 ,0.00722 ,0.00068 ,0.00000 - +,0.27305 ,0.06249 ,0.12791 ,0.00672 ,0.00079 ,0.00000 - +,0.25415 ,0.05689 ,0.10592 ,0.00627 ,0.00084 ,0.00000 - +,0.23786 ,0.05218 ,0.08902 ,0.00584 ,0.00086 ,0.00004 - +,0.22356 ,0.04816 ,0.07575 ,0.00545 ,0.00086 ,0.00012 - +,0.21091 ,0.04468 ,0.06515 ,0.00510 ,0.00086 ,0.00017 - +,0.19959 ,0.04163 ,0.05657 ,0.00478 ,0.00084 ,0.00021 - +,0.18945 ,0.03895 ,0.04955 ,0.00450 ,0.00082 ,0.00023 - +,0.18028 ,0.03657 ,0.04373 ,0.00425 ,0.00079 ,0.00025 - +,0.17197 ,0.03444 ,0.03887 ,0.00402 ,0.00077 ,0.00026 - +,0.16435 ,0.03253 ,0.03477 ,0.00381 ,0.00075 ,0.00027 - +,0.15738 ,0.03080 ,0.03128 ,0.00362 ,0.00072 ,0.00027 - +,0.15098 ,0.02924 ,0.02829 ,0.00344 ,0.00070 ,0.00027 - +,0.14506 ,0.02781 ,0.02573 ,0.00328 ,0.00067 ,0.00027 - +,0.13959 ,0.02651 ,0.02350 ,0.00314 ,0.00065 ,0.00027 - +,0.13449 ,0.02531 ,0.02155 ,0.00300 ,0.00063 ,0.00027 - +,0.12976 ,0.02421 ,0.01983 ,0.00287 ,0.00061 ,0.00027/ - DATA ((F(I,30,K),I=1,6),K=1,19)/ - + 0.32424 ,0.07279 ,0.21522 ,0.00670 ,0.00012 ,0.00000 - +,0.29249 ,0.06349 ,0.16449 ,0.00619 ,0.00038 ,0.00000 - +,0.26673 ,0.05626 ,0.12922 ,0.00571 ,0.00052 ,0.00000 - +,0.24537 ,0.05047 ,0.10389 ,0.00528 ,0.00059 ,0.00000 - +,0.22734 ,0.04572 ,0.08513 ,0.00489 ,0.00063 ,0.00000 - +,0.21182 ,0.04176 ,0.07088 ,0.00454 ,0.00064 ,0.00003 - +,0.19828 ,0.03838 ,0.05980 ,0.00422 ,0.00064 ,0.00009 - +,0.18636 ,0.03547 ,0.05104 ,0.00393 ,0.00063 ,0.00013 - +,0.17576 ,0.03294 ,0.04400 ,0.00367 ,0.00061 ,0.00015 - +,0.16627 ,0.03071 ,0.03829 ,0.00344 ,0.00060 ,0.00017 - +,0.15774 ,0.02875 ,0.03359 ,0.00324 ,0.00058 ,0.00018 - +,0.15003 ,0.02700 ,0.02970 ,0.00305 ,0.00056 ,0.00019 - +,0.14299 ,0.02543 ,0.02643 ,0.00289 ,0.00054 ,0.00019 - +,0.13657 ,0.02402 ,0.02366 ,0.00274 ,0.00052 ,0.00019 - +,0.13070 ,0.02275 ,0.02130 ,0.00260 ,0.00050 ,0.00020 - +,0.12527 ,0.02158 ,0.01929 ,0.00247 ,0.00048 ,0.00019 - +,0.12028 ,0.02052 ,0.01754 ,0.00235 ,0.00047 ,0.00019 - +,0.11564 ,0.01955 ,0.01603 ,0.00225 ,0.00045 ,0.00019 - +,0.11134 ,0.01866 ,0.01470 ,0.00215 ,0.00043 ,0.00018/ - DATA ((F(I,31,K),I=1,6),K=1,19)/ - + 0.29387 ,0.05909 ,0.18059 ,0.00533 ,0.00009 ,0.00000 - +,0.26326 ,0.05119 ,0.13584 ,0.00488 ,0.00029 ,0.00000 - +,0.23862 ,0.04508 ,0.10528 ,0.00447 ,0.00039 ,0.00000 - +,0.21833 ,0.04022 ,0.08364 ,0.00410 ,0.00044 ,0.00000 - +,0.20130 ,0.03626 ,0.06782 ,0.00378 ,0.00046 ,0.00000 - +,0.18674 ,0.03297 ,0.05593 ,0.00349 ,0.00047 ,0.00002 - +,0.17409 ,0.03018 ,0.04679 ,0.00323 ,0.00046 ,0.00007 - +,0.16301 ,0.02778 ,0.03962 ,0.00299 ,0.00046 ,0.00009 - +,0.15319 ,0.02571 ,0.03392 ,0.00279 ,0.00044 ,0.00011 - +,0.14445 ,0.02389 ,0.02932 ,0.00261 ,0.00043 ,0.00012 - +,0.13661 ,0.02229 ,0.02557 ,0.00244 ,0.00041 ,0.00013 - +,0.12955 ,0.02088 ,0.02248 ,0.00230 ,0.00040 ,0.00013 - +,0.12313 ,0.01961 ,0.01990 ,0.00217 ,0.00038 ,0.00013 - +,0.11730 ,0.01848 ,0.01773 ,0.00205 ,0.00037 ,0.00014 - +,0.11197 ,0.01745 ,0.01589 ,0.00194 ,0.00036 ,0.00014 - +,0.10706 ,0.01652 ,0.01433 ,0.00184 ,0.00034 ,0.00014 - +,0.10256 ,0.01567 ,0.01298 ,0.00175 ,0.00033 ,0.00013 - +,0.09839 ,0.01489 ,0.01182 ,0.00166 ,0.00032 ,0.00013 - +,0.09453 ,0.01418 ,0.01081 ,0.00159 ,0.00030 ,0.00013/ - DATA ((F(I,32,K),I=1,6),K=1,19)/ - + 0.26365 ,0.04729 ,0.15010 ,0.00420 ,0.00007 ,0.00000 - +,0.23452 ,0.04067 ,0.11111 ,0.00381 ,0.00021 ,0.00000 - +,0.21127 ,0.03560 ,0.08494 ,0.00346 ,0.00028 ,0.00000 - +,0.19224 ,0.03160 ,0.06668 ,0.00316 ,0.00032 ,0.00000 - +,0.17636 ,0.02835 ,0.05349 ,0.00289 ,0.00034 ,0.00000 - +,0.16289 ,0.02565 ,0.04370 ,0.00265 ,0.00034 ,0.00002 - +,0.15123 ,0.02339 ,0.03624 ,0.00244 ,0.00034 ,0.00005 - +,0.14105 ,0.02146 ,0.03045 ,0.00226 ,0.00033 ,0.00007 - +,0.13208 ,0.01978 ,0.02588 ,0.00210 ,0.00032 ,0.00008 - +,0.12413 ,0.01832 ,0.02223 ,0.00195 ,0.00030 ,0.00009 - +,0.11703 ,0.01704 ,0.01927 ,0.00183 ,0.00029 ,0.00009 - +,0.11065 ,0.01591 ,0.01684 ,0.00171 ,0.00028 ,0.00009 - +,0.10488 ,0.01490 ,0.01483 ,0.00161 ,0.00027 ,0.00009 - +,0.09964 ,0.01400 ,0.01315 ,0.00151 ,0.00026 ,0.00009 - +,0.09488 ,0.01319 ,0.01173 ,0.00143 ,0.00025 ,0.00010 - +,0.09049 ,0.01245 ,0.01053 ,0.00135 ,0.00024 ,0.00009 - +,0.08648 ,0.01179 ,0.00950 ,0.00129 ,0.00023 ,0.00009 - +,0.08278 ,0.01118 ,0.00862 ,0.00122 ,0.00022 ,0.00009 - +,0.07937 ,0.01062 ,0.00785 ,0.00116 ,0.00021 ,0.00009/ - DATA ((F(I,33,K),I=1,6),K=1,19)/ - + 0.23396 ,0.03729 ,0.12345 ,0.00326 ,0.00005 ,0.00000 - +,0.20661 ,0.03184 ,0.08992 ,0.00293 ,0.00015 ,0.00000 - +,0.18496 ,0.02770 ,0.06780 ,0.00264 ,0.00021 ,0.00000 - +,0.16738 ,0.02444 ,0.05258 ,0.00239 ,0.00023 ,0.00000 - +,0.15277 ,0.02182 ,0.04173 ,0.00218 ,0.00024 ,0.00000 - +,0.14045 ,0.01965 ,0.03377 ,0.00200 ,0.00023 ,0.00001 - +,0.12986 ,0.01785 ,0.02777 ,0.00183 ,0.00023 ,0.00003 - +,0.12066 ,0.01630 ,0.02313 ,0.00168 ,0.00023 ,0.00004 - +,0.11257 ,0.01498 ,0.01951 ,0.00156 ,0.00022 ,0.00005 - +,0.10543 ,0.01382 ,0.01665 ,0.00144 ,0.00021 ,0.00005 - +,0.09908 ,0.01281 ,0.01434 ,0.00134 ,0.00020 ,0.00006 - +,0.09339 ,0.01193 ,0.01246 ,0.00126 ,0.00019 ,0.00006 - +,0.08827 ,0.01114 ,0.01092 ,0.00118 ,0.00019 ,0.00006 - +,0.08363 ,0.01044 ,0.00963 ,0.00110 ,0.00018 ,0.00006 - +,0.07942 ,0.00981 ,0.00856 ,0.00104 ,0.00017 ,0.00006 - +,0.07556 ,0.00924 ,0.00765 ,0.00098 ,0.00016 ,0.00006 - +,0.07205 ,0.00873 ,0.00688 ,0.00093 ,0.00016 ,0.00006 - +,0.06880 ,0.00826 ,0.00622 ,0.00088 ,0.00015 ,0.00006 - +,0.06582 ,0.00783 ,0.00564 ,0.00084 ,0.00014 ,0.00006/ - DATA ((F(I,34,K),I=1,6),K=1,19)/ - + 0.20521 ,0.02891 ,0.10036 ,0.00250 ,0.00004 ,0.00000 - +,0.17989 ,0.02451 ,0.07192 ,0.00223 ,0.00011 ,0.00000 - +,0.16001 ,0.02119 ,0.05347 ,0.00199 ,0.00015 ,0.00000 - +,0.14397 ,0.01859 ,0.04095 ,0.00179 ,0.00016 ,0.00000 - +,0.13073 ,0.01651 ,0.03215 ,0.00162 ,0.00017 ,0.00000 - +,0.11963 ,0.01480 ,0.02576 ,0.00148 ,0.00016 ,0.00001 - +,0.11013 ,0.01339 ,0.02099 ,0.00135 ,0.00016 ,0.00002 - +,0.10191 ,0.01218 ,0.01735 ,0.00124 ,0.00016 ,0.00003 - +,0.09473 ,0.01115 ,0.01453 ,0.00114 ,0.00015 ,0.00003 - +,0.08841 ,0.01025 ,0.01231 ,0.00105 ,0.00015 ,0.00004 - +,0.08281 ,0.00948 ,0.01054 ,0.00098 ,0.00014 ,0.00004 - +,0.07782 ,0.00879 ,0.00910 ,0.00091 ,0.00013 ,0.00004 - +,0.07333 ,0.00819 ,0.00793 ,0.00085 ,0.00013 ,0.00004 - +,0.06928 ,0.00765 ,0.00696 ,0.00079 ,0.00012 ,0.00004 - +,0.06562 ,0.00717 ,0.00616 ,0.00075 ,0.00011 ,0.00004 - +,0.06228 ,0.00674 ,0.00548 ,0.00070 ,0.00011 ,0.00004 - +,0.05923 ,0.00635 ,0.00491 ,0.00066 ,0.00011 ,0.00004 - +,0.05644 ,0.00599 ,0.00442 ,0.00063 ,0.00010 ,0.00004 - +,0.05387 ,0.00567 ,0.00400 ,0.00060 ,0.00010 ,0.00004/ - DATA ((F(I,35,K),I=1,6),K=1,19)/ - + 0.17769 ,0.02200 ,0.08054 ,0.00189 ,0.00003 ,0.00000 - +,0.15458 ,0.01852 ,0.05676 ,0.00167 ,0.00008 ,0.00000 - +,0.13659 ,0.01590 ,0.04159 ,0.00148 ,0.00010 ,0.00000 - +,0.12217 ,0.01387 ,0.03147 ,0.00132 ,0.00011 ,0.00000 - +,0.11036 ,0.01226 ,0.02442 ,0.00119 ,0.00011 ,-0.00001 - +,0.10049 ,0.01094 ,0.01937 ,0.00108 ,0.00011 ,0.00001 - +,0.09210 ,0.00985 ,0.01564 ,0.00098 ,0.00011 ,0.00002 - +,0.08487 ,0.00893 ,0.01282 ,0.00089 ,0.00011 ,0.00002 - +,0.07859 ,0.00814 ,0.01065 ,0.00082 ,0.00010 ,0.00002 - +,0.07308 ,0.00746 ,0.00896 ,0.00075 ,0.00010 ,0.00003 - +,0.06822 ,0.00687 ,0.00762 ,0.00070 ,0.00009 ,0.00003 - +,0.06390 ,0.00636 ,0.00654 ,0.00065 ,0.00009 ,0.00003 - +,0.06004 ,0.00590 ,0.00567 ,0.00060 ,0.00008 ,0.00003 - +,0.05656 ,0.00550 ,0.00496 ,0.00056 ,0.00008 ,0.00003 - +,0.05343 ,0.00514 ,0.00436 ,0.00053 ,0.00008 ,0.00003 - +,0.05057 ,0.00482 ,0.00386 ,0.00049 ,0.00007 ,0.00003 - +,0.04798 ,0.00453 ,0.00345 ,0.00047 ,0.00007 ,0.00003 - +,0.04561 ,0.00426 ,0.00309 ,0.00044 ,0.00007 ,0.00003 - +,0.04344 ,0.00402 ,0.00279 ,0.00042 ,0.00006 ,0.00003/ - DATA ((F(I,36,K),I=1,6),K=1,19)/ - + 0.15172 ,0.01642 ,0.06371 ,0.00140 ,0.00002 ,0.00000 - +,0.13096 ,0.01371 ,0.04413 ,0.00123 ,0.00005 ,0.00000 - +,0.11492 ,0.01170 ,0.03187 ,0.00108 ,0.00007 ,0.00000 - +,0.10217 ,0.01015 ,0.02380 ,0.00096 ,0.00007 ,0.00000 - +,0.09179 ,0.00892 ,0.01825 ,0.00086 ,0.00008 ,0.00000 - +,0.08317 ,0.00792 ,0.01433 ,0.00077 ,0.00008 ,0.00000 - +,0.07587 ,0.00710 ,0.01146 ,0.00070 ,0.00007 ,0.00001 - +,0.06962 ,0.00641 ,0.00932 ,0.00063 ,0.00007 ,0.00001 - +,0.06421 ,0.00582 ,0.00768 ,0.00058 ,0.00007 ,0.00002 - +,0.05949 ,0.00531 ,0.00641 ,0.00053 ,0.00006 ,0.00002 - +,0.05534 ,0.00488 ,0.00542 ,0.00049 ,0.00006 ,0.00002 - +,0.05167 ,0.00450 ,0.00462 ,0.00045 ,0.00006 ,0.00002 - +,0.04839 ,0.00416 ,0.00399 ,0.00042 ,0.00005 ,0.00002 - +,0.04545 ,0.00387 ,0.00346 ,0.00039 ,0.00005 ,0.00002 - +,0.04281 ,0.00360 ,0.00303 ,0.00036 ,0.00005 ,0.00002 - +,0.04042 ,0.00337 ,0.00268 ,0.00034 ,0.00005 ,0.00002 - +,0.03825 ,0.00316 ,0.00238 ,0.00032 ,0.00005 ,0.00002 - +,0.03627 ,0.00297 ,0.00213 ,0.00030 ,0.00004 ,0.00002 - +,0.03446 ,0.00279 ,0.00191 ,0.00028 ,0.00004 ,0.00002/ - DATA ((F(I,37,K),I=1,6),K=1,19)/ - + 0.10533 ,0.00853 ,0.03790 ,0.00073 ,0.00000 ,0.00000 - +,0.08942 ,0.00701 ,0.02533 ,0.00062 ,0.00002 ,0.00000 - +,0.07733 ,0.00590 ,0.01773 ,0.00054 ,0.00003 ,0.00000 - +,0.06787 ,0.00505 ,0.01288 ,0.00047 ,0.00003 ,0.00000 - +,0.06027 ,0.00439 ,0.00964 ,0.00042 ,0.00003 ,0.00000 - +,0.05403 ,0.00386 ,0.00740 ,0.00037 ,0.00003 ,0.00000 - +,0.04881 ,0.00343 ,0.00581 ,0.00033 ,0.00003 ,0.00000 - +,0.04439 ,0.00307 ,0.00463 ,0.00030 ,0.00003 ,0.00000 - +,0.04060 ,0.00276 ,0.00376 ,0.00027 ,0.00003 ,0.00001 - +,0.03731 ,0.00250 ,0.00309 ,0.00025 ,0.00003 ,0.00001 - +,0.03445 ,0.00228 ,0.00257 ,0.00022 ,0.00002 ,0.00001 - +,0.03194 ,0.00209 ,0.00217 ,0.00021 ,0.00002 ,0.00001 - +,0.02971 ,0.00192 ,0.00185 ,0.00019 ,0.00002 ,0.00001 - +,0.02774 ,0.00177 ,0.00159 ,0.00018 ,0.00002 ,0.00001 - +,0.02597 ,0.00164 ,0.00138 ,0.00016 ,0.00002 ,0.00001 - +,0.02438 ,0.00153 ,0.00121 ,0.00015 ,0.00002 ,0.00001 - +,0.02295 ,0.00142 ,0.00106 ,0.00014 ,0.00002 ,0.00001 - +,0.02165 ,0.00133 ,0.00094 ,0.00013 ,0.00002 ,0.00001 - +,0.02047 ,0.00125 ,0.00084 ,0.00013 ,0.00002 ,0.00001/ - DATA ((F(I,38,K),I=1,6),K=1,19)/ - + 0.06740 ,0.00395 ,0.02070 ,0.00034 ,0.00000 ,0.00000 - +,0.05617 ,0.00319 ,0.01329 ,0.00029 ,0.00001 ,0.00000 - +,0.04780 ,0.00264 ,0.00900 ,0.00024 ,0.00001 ,0.00000 - +,0.04135 ,0.00223 ,0.00634 ,0.00021 ,0.00001 ,0.00000 - +,0.03625 ,0.00192 ,0.00462 ,0.00018 ,0.00001 ,0.00000 - +,0.03211 ,0.00167 ,0.00347 ,0.00016 ,0.00001 ,0.00000 - +,0.02870 ,0.00146 ,0.00266 ,0.00014 ,0.00001 ,0.00000 - +,0.02583 ,0.00130 ,0.00208 ,0.00013 ,0.00001 ,0.00000 - +,0.02341 ,0.00116 ,0.00166 ,0.00011 ,0.00001 ,0.00000 - +,0.02133 ,0.00104 ,0.00134 ,0.00010 ,0.00001 ,0.00000 - +,0.01953 ,0.00094 ,0.00110 ,0.00009 ,0.00001 ,0.00000 - +,0.01797 ,0.00086 ,0.00091 ,0.00008 ,0.00001 ,0.00000 - +,0.01660 ,0.00078 ,0.00077 ,0.00008 ,0.00001 ,0.00000 - +,0.01539 ,0.00072 ,0.00065 ,0.00007 ,0.00001 ,0.00000 - +,0.01431 ,0.00066 ,0.00056 ,0.00007 ,0.00001 ,0.00000 - +,0.01336 ,0.00061 ,0.00049 ,0.00006 ,0.00001 ,0.00000 - +,0.01250 ,0.00056 ,0.00043 ,0.00006 ,0.00001 ,0.00000 - +,0.01173 ,0.00053 ,0.00038 ,0.00005 ,0.00001 ,0.00000 - +,0.01103 ,0.00049 ,0.00034 ,0.00005 ,0.00001 ,0.00000/ - DATA ((F(I,39,K),I=1,6),K=1,19)/ - + 0.03856 ,0.00157 ,0.01008 ,0.00014 ,0.00000 ,0.00000 - +,0.03146 ,0.00124 ,0.00619 ,0.00012 ,0.00000 ,0.00000 - +,0.02628 ,0.00101 ,0.00403 ,0.00010 ,0.00000 ,0.00000 - +,0.02236 ,0.00084 ,0.00275 ,0.00008 ,0.00000 ,0.00000 - +,0.01931 ,0.00071 ,0.00194 ,0.00007 ,0.00000 ,0.00000 - +,0.01689 ,0.00061 ,0.00142 ,0.00006 ,0.00000 ,0.00000 - +,0.01491 ,0.00053 ,0.00106 ,0.00005 ,0.00000 ,0.00000 - +,0.01327 ,0.00047 ,0.00081 ,0.00005 ,0.00000 ,0.00000 - +,0.01190 ,0.00041 ,0.00063 ,0.00004 ,0.00000 ,0.00000 - +,0.01073 ,0.00037 ,0.00050 ,0.00004 ,0.00000 ,0.00000 - +,0.00974 ,0.00033 ,0.00041 ,0.00003 ,0.00000 ,0.00000 - +,0.00889 ,0.00030 ,0.00033 ,0.00003 ,0.00000 ,0.00000 - +,0.00814 ,0.00027 ,0.00028 ,0.00003 ,0.00000 ,0.00000 - +,0.00749 ,0.00024 ,0.00023 ,0.00002 ,0.00000 ,0.00000 - +,0.00692 ,0.00022 ,0.00020 ,0.00002 ,0.00000 ,0.00000 - +,0.00642 ,0.00020 ,0.00017 ,0.00002 ,0.00000 ,0.00000 - +,0.00597 ,0.00019 ,0.00015 ,0.00002 ,0.00000 ,0.00000 - +,0.00557 ,0.00017 ,0.00013 ,0.00002 ,0.00000 ,0.00000 - +,0.00522 ,0.00016 ,0.00012 ,0.00002 ,0.00000 ,0.00000/ - DATA ((F(I,40,K),I=1,6),K=1,19)/ - + 0.01865 ,0.00050 ,0.00414 ,0.00005 ,0.00000 ,0.00000 - +,0.01484 ,0.00039 ,0.00242 ,0.00004 ,0.00000 ,0.00000 - +,0.01213 ,0.00031 ,0.00151 ,0.00003 ,0.00000 ,0.00000 - +,0.01012 ,0.00025 ,0.00099 ,0.00002 ,0.00000 ,0.00000 - +,0.00859 ,0.00021 ,0.00067 ,0.00002 ,0.00000 ,0.00000 - +,0.00739 ,0.00018 ,0.00048 ,0.00002 ,0.00000 ,0.00000 - +,0.00643 ,0.00015 ,0.00035 ,0.00002 ,0.00000 ,0.00000 - +,0.00565 ,0.00013 ,0.00026 ,0.00001 ,0.00000 ,0.00000 - +,0.00500 ,0.00012 ,0.00020 ,0.00001 ,0.00000 ,0.00000 - +,0.00446 ,0.00010 ,0.00015 ,0.00001 ,0.00000 ,0.00000 - +,0.00400 ,0.00009 ,0.00012 ,0.00001 ,0.00000 ,0.00000 - +,0.00361 ,0.00008 ,0.00010 ,0.00001 ,0.00000 ,0.00000 - +,0.00328 ,0.00007 ,0.00008 ,0.00001 ,0.00000 ,0.00000 - +,0.00299 ,0.00007 ,0.00007 ,0.00001 ,0.00000 ,0.00000 - +,0.00274 ,0.00006 ,0.00006 ,0.00001 ,0.00000 ,0.00000 - +,0.00253 ,0.00005 ,0.00005 ,0.00001 ,0.00000 ,0.00000 - +,0.00234 ,0.00005 ,0.00005 ,0.00001 ,0.00000 ,0.00000 - +,0.00218 ,0.00004 ,0.00004 ,0.00000 ,0.00000 ,0.00000 - +,0.00203 ,0.00004 ,0.00004 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,41,K),I=1,6),K=1,19)/ - + 0.00092 ,0.00001 ,0.00026 ,0.00000 ,0.00000 ,0.00000 - +,0.00067 ,0.00001 ,0.00013 ,0.00000 ,0.00000 ,0.00000 - +,0.00052 ,0.00001 ,0.00007 ,0.00000 ,0.00000 ,0.00000 - +,0.00043 ,0.00001 ,0.00004 ,0.00000 ,0.00000 ,0.00000 - +,0.00037 ,0.00000 ,0.00003 ,0.00000 ,0.00000 ,0.00000 - +,0.00033 ,0.00000 ,0.00002 ,0.00000 ,0.00000 ,0.00000 - +,0.00030 ,0.00000 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00029 ,0.00000 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00028 ,0.00000 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00028 ,0.00000 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00028 ,0.00000 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00028 ,0.00000 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00029 ,0.00000 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00030 ,0.00000 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00031 ,0.00000 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00033 ,0.00000 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00034 ,0.00000 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00036 ,0.00000 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00037 ,0.00000 ,0.00001 ,0.00000 ,0.00000 ,0.00000/ - DATA XX/1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, 1.D-3,2.D-3,4.D-3,6.D-3, - +8.D-3, 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, .1D0,.125D0,.15D0,.175D0,. - +2D0,.225D0,.25D0,.275D0, .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,. - +45D0,.475D0, .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, .8D0, - +.9D0,1.D0/ -C -C - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-4,1.D0,5.D0,1310720.D0/ - DATA N0/3,4,5,5,0,0/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - IF(INIT.NE.0) GOTO 50 - INIT=1 - DO 20 N=1,41 - DO 20 M=1,19 -C READ(63,1001)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F -C + (6,N,M) - DO 10 I=1,6 - 10 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,15 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=1,5 - DO 30 K=1,19 - 30 F(I,J,K)= LOG(F(I,J,K))*F(I,16,K)/ LOG(F(I,16,K)) - DO 40 I=1,6 - DO 40 M=1,19 - 40 F(I,42,M)=ZEROD - 50 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 60 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 60 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 80 I=1,6 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) + A - + *(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.16) GOTO 70 - IF(I.EQ.6) GOTO 70 - FAC=(ONED-B)*F(I,16,M)+B*F(I,16,M+1) -C - G(I)=FAC**(G(I)/FAC) - 70 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 80 CONTINUE - UPV=G(1) - DNV=G(2) - SEA=G(4) - STR=G(4) - CHM=G(5) - GL =G(3) - BOT=G(6) - RETURN - 1001 FORMAT(6F10.5) - END diff --git a/PDF/spdf/strowp1.F b/PDF/spdf/strowp1.F deleted file mode 100644 index 307f72b7762..00000000000 --- a/PDF/spdf/strowp1.F +++ /dev/null @@ -1,85 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:47 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:05 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C********************************************************************* - - SUBROUTINE STROWP1(X,SCALE,UPV,DNV,SEA,STR,CHM,GL) -C :::::::::::::: OWENS SET 1 PION STRUCTURE FUNCTION ::::::::::::::: -#include "pdf/impdp.inc" -#if defined(CERNLIB_DOUBLE) - DOUBLE PRECISION DGAMMA -#endif -#include "pdf/expdp.inc" - + COW(3,5,4),TS(6),XQ(9) - -C...Expansion coefficients for up and down valence quark distributions. - DATA ((COW(IP,IS,1),IS=1,5),IP=1,3)/ - 1 4.0000D-01, 7.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, - 2 -6.2120D-02, 6.4780D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, - 3 -7.1090D-03, 1.3350D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00/ -C...Expansion coefficients for gluon distribution. - DATA ((COW(IP,IS,2),IS=1,5),IP=1,3)/ - 1 8.8800D-01, 0.0000D+00, 3.1100D+00, 6.0000D+00, 0.0000D+00, - 2 -1.8020D+00, -1.5760D+00, -1.3170D-01, 2.8010D+00, -1.7280D+01, - 3 1.8120D+00, 1.2000D+00, 5.0680D-01, -1.2160D+01, 2.0490D+01/ -C...Expansion coefficients for (up+down+strange) quark sea distribution. - DATA ((COW(IP,IS,3),IS=1,5),IP=1,3)/ - 1 9.0000D-01, 0.0000D+00, 5.0000D+00, 0.0000D+00, 0.0000D+00, - 2 -2.4280D-01, -2.1200D-01, 8.6730D-01, 1.2660D+00, 2.3820D+00, - 3 1.3860D-01, 3.6710D-03, 4.7470D-02, -2.2150D+00, 3.4820D-01/ -C...Expansion coefficients for charm quark sea distribution. - DATA ((COW(IP,IS,4),IS=1,5),IP=1,3)/ - 1 0.0000D+00, -2.2120D-02, 2.8940D+00, 0.0000D+00, 0.0000D+00, - 2 7.9280D-02, -3.7850D-01, 9.4330D+00, 5.2480D+00, 8.3880D+00, - 3 -6.1340D-02, -1.0880D-01, -1.0852D+01, -7.1870D+00, -1.1610D+01/ - - DATA ZEROD/0.D0/, ONED/1.D0/, SIXD/6.D0/ - DATA ALAM/0.2D0/, Q02/4.D0/, QMAX2/2.D3/ -C...Pion structure functions from Owens. -C...Allowed variable range: 4 GeV^2 < Q^2 < approx 2000 GeV^2. - -C...Determine set, Lambda and s expansion variable. - Q2 = SCALE*SCALE - Q2IN = MIN( QMAX2,MAX( Q02,Q2)) - SD = LOG( LOG( Q2IN/ALAM**2)/ LOG( Q02/ALAM**2)) - -C...Calculate structure functions. - DO 240 KFL=1,4 - DO 230 IS=1,5 - 230 TS(IS)=COW(1,IS,KFL)+COW(2,IS,KFL)*SD+ - & COW(3,IS,KFL)*SD*SD - IF(KFL.EQ.1) THEN -#if defined(CERNLIB_SINGLE) - DENOM = GAMMA(TS(1))*GAMMA(TS(2)+ONED)/GAMMA(TS(1)+TS(2)+ONED) -#endif -#if defined(CERNLIB_DOUBLE) - DENOM = DGAMMA(TS(1))*DGAMMA(TS(2)+ONED)/ - + DGAMMA(TS(1)+TS(2)+ONED) -#endif - XQ(KFL)=X**TS(1)*(1.-X)**TS(2)/DENOM - ELSE - XQ(KFL)=TS(1)*X**TS(2)*(1.-X)**TS(3)*(1.+TS(4)*X+TS(5)*X**2) - ENDIF - 240 CONTINUE - -C...Put into output arrays. - UPV = XQ(1) - DNV = XQ(1) - SEA = XQ(3)/SIXD - STR = XQ(3)/SIXD - CHM = XQ(4) - BOT = ZEROD - TOP = ZEROD - GL = XQ(2) -C - RETURN - END diff --git a/PDF/spdf/strowp2.F b/PDF/spdf/strowp2.F deleted file mode 100644 index 1202eba9742..00000000000 --- a/PDF/spdf/strowp2.F +++ /dev/null @@ -1,83 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:48 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:05 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C********************************************************************* - - SUBROUTINE STROWP2(X,SCALE,UPV,DNV,SEA,STR,CHM,GL) -C :::::::::::::: OWENS SET 2 PION STRUCTURE FUNCTION ::::::::::::::: -#include "pdf/impdp.inc" -#if defined(CERNLIB_DOUBLE) - DOUBLE PRECISION DGAMMA -#endif -#include "pdf/expdp.inc" - + COW(3,5,4),TS(6),XQ(9) - -C...Expansion coefficients for up and down valence quark distributions. - DATA ((COW(IP,IS,1),IS=1,5),IP=1,3)/ - 1 4.0000D-01, 6.2800D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, - 2 -5.9090D-02, 6.4360D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, - 3 -6.5240D-03, 1.4510D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00/ -C...Expansion coefficients for gluon distribution. - DATA ((COW(IP,IS,2),IS=1,5),IP=1,3)/ - 1 7.9400D-01, 0.0000D+00, 2.8900D+00, 6.0000D+00, 0.0000D+00, - 2 -9.1440D-01, -1.2370D+00, 5.9660D-01, -3.6710D+00, -8.1910D+00, - 3 5.9660D-01, 6.5820D-01, -2.5500D-01, -2.3040D+00, 7.7580D+00/ -C...Expansion coefficients for (up+down+strange) quark sea distribution. - DATA ((COW(IP,IS,3),IS=1,5),IP=1,3)/ - 1 9.0000D-01, 0.0000D+00, 5.0000D+00, 0.0000D+00, 0.0000D+00, - 2 -1.4170D-01, -1.6970D-01, -2.4740D+00, -2.5340D+00, 5.6210D-01, - 3 -1.7400D-01, -9.6230D-02, 1.5750D+00, 1.3780D+00, -2.7010D-01/ -C...Expansion coefficients for charm quark sea distribution. - DATA ((COW(IP,IS,4),IS=1,5),IP=1,3)/ - 1 0.0000D+00, -8.8200D-02, 1.9240D+00, 0.0000D+00, 0.0000D+00, - 2 6.2290D-02, -2.8920D-01, 2.4240D-01, -4.4630D+00, -8.3670D-01, - 3 -4.0990D-02, -1.0820D-01, 2.0360D+00, 5.2090D+00, -4.8400D-02/ - - DATA ZEROD/0.D0/, ONED/1.D0/, SIXD/6.D0/ - DATA ALAM/0.4D0/, Q02/4.D0/, QMAX2/2.D3/ -C...Pion structure functions from Owens. -C...Allowed variable range: 4 GeV^2 < Q^2 < approx 2000 GeV^2. - -C...Determine set, Lambda and s expansion variable. - Q2 = SCALE*SCALE - Q2IN = MIN( QMAX2,MAX( Q02,Q2)) - SD = LOG( LOG( Q2IN/ALAM**2)/ LOG( Q02/ALAM**2)) - -C...Calculate structure functions. - DO 10 KFL=1,4 - DO 20 IS=1,5 - 20 TS(IS)=COW(1,IS,KFL)+COW(2,IS,KFL)*SD+ - & COW(3,IS,KFL)*SD*SD - IF(KFL.EQ.1) THEN -#if defined(CERNLIB_SINGLE) - DENOM = GAMMA(TS(1))*GAMMA(TS(2)+ONED)/GAMMA(TS(1)+TS(2)+ONED) -#endif -#if defined(CERNLIB_DOUBLE) - DENOM = DGAMMA(TS(1))*DGAMMA(TS(2)+ONED)/ - + DGAMMA(TS(1)+TS(2)+ONED) -#endif - XQ(KFL)=X**TS(1)*(1.-X)**TS(2)/DENOM - ELSE - XQ(KFL)=TS(1)*X**TS(2)*(1.-X)**TS(3)*(1.+TS(4)*X+TS(5)*X**2) - ENDIF - 10 CONTINUE - -C...output - UPV = XQ(1) - DNV = XQ(1) - SEA = XQ(3)/SIXD - STR = XQ(3)/SIXD - CHM = XQ(4) - GL = XQ(2) -C - RETURN - END diff --git a/PDF/spdf/strpriv.F b/PDF/spdf/strpriv.F deleted file mode 100644 index 614257d4865..00000000000 --- a/PDF/spdf/strpriv.F +++ /dev/null @@ -1,40 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:49 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:05 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C - SUBROUTINE STRPRIV(X,Q2,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL) -C....................................................................... -C. -C :::::::::::: PRIVATE set of structure functions ::::::::::::::::: -C. -C....................................................................... -#include "pdf/impdp.inc" -#include "pdf/w5051p7.inc" -#include "pdf/w50517.inc" -#include "pdf/w50516.inc" - DATA ZEROD/0.D0/ - SAVE /W50516/ -C - IF (N6.LE.0) N6 = L6 - IF (FIRST) WRITE(N6,1000) - 1000 FORMAT(1H ,' This is a DUMMY private SF routine ') - UPV = ZEROD - DNV = ZEROD - USEA = ZEROD - DSEA = ZEROD - STR = ZEROD - CHM = ZEROD - BOT = ZEROD - TOP = ZEROD - GL = ZEROD - RETURN - END diff --git a/PDF/spdf/strucb.F b/PDF/spdf/strucb.F deleted file mode 100644 index c38bad53010..00000000000 --- a/PDF/spdf/strucb.F +++ /dev/null @@ -1,902 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:49 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:05 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE STRUCB(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C :::::::::::: MARTIN ROBERTS STIRLING :::::SOFT GLUE::::228 MEV::: -#include "pdf/impdp.inc" - PARAMETER(NX=42) - PARAMETER(NTENTH=21) - DIMENSION F(6,NX,19),G(6),XX(NX),N0(6) - DATA ((F(I,1,K),I=1,6),K=1,19)/ - + 0.00961 ,0.00603 ,4.74673 ,0.20606 ,0.03441 ,0.00000 - +,0.01096 ,0.00683 ,13.79210 ,0.40476 ,0.18365 ,0.00000 - +,0.01221 ,0.00756 ,23.93182 ,0.67022 ,0.38290 ,0.00000 - +,0.01339 ,0.00825 ,34.69507 ,0.98901 ,0.62211 ,-0.00001 - +,0.01450 ,0.00890 ,45.48036 ,1.33340 ,0.88709 ,0.02645 - +,0.01556 ,0.00951 ,56.38562 ,1.65006 ,1.17500 ,0.22791 - +,0.01657 ,0.01010 ,67.30421 ,1.94477 ,1.48094 ,0.56738 - +,0.01754 ,0.01067 ,78.17290 ,2.26090 ,1.80110 ,0.89956 - +,0.01848 ,0.01121 ,88.94685 ,2.58742 ,2.13237 ,1.24500 - +,0.01939 ,0.01174 ,99.56996 ,2.92240 ,2.47151 ,1.59662 - +,0.02027 ,0.01224,109.88562 ,3.25939 ,2.81239 ,1.94915 - +,0.02112 ,0.01273,120.07144 ,3.60233 ,3.15892 ,2.30653 - +,0.02195 ,0.01321,130.14627 ,3.95093 ,3.51088 ,2.66862 - +,0.02275 ,0.01367,139.88661 ,4.29705 ,3.86013 ,3.02737 - +,0.02354 ,0.01412,149.43730 ,4.64451 ,4.21053 ,3.38670 - +,0.02430 ,0.01456,158.88370 ,4.99554 ,4.56434 ,3.74894 - +,0.02505 ,0.01499,167.92317 ,5.33897 ,4.91038 ,4.10295 - +,0.02578 ,0.01541,176.96330 ,5.68844 ,5.26233 ,4.46246 - +,0.02649 ,0.01581,185.57343 ,6.02818 ,5.60442 ,4.81174/ - DATA ((F(I,2,K),I=1,6),K=1,19)/ - + 0.01488 ,0.00923 ,4.44429 ,0.20538 ,0.03121 ,0.00000 - +,0.01682 ,0.01035 ,11.49449 ,0.37597 ,0.15932 ,0.00000 - +,0.01861 ,0.01139 ,18.93008 ,0.59102 ,0.32074 ,0.00000 - +,0.02027 ,0.01235 ,26.53142 ,0.83889 ,0.50674 ,0.00000 - +,0.02183 ,0.01324 ,33.93573 ,1.09861 ,0.70655 ,0.01977 - +,0.02330 ,0.01409 ,41.24933 ,1.33160 ,0.91836 ,0.16777 - +,0.02470 ,0.01489 ,48.42468 ,1.54346 ,1.13884 ,0.41390 - +,0.02604 ,0.01565 ,55.43896 ,1.76689 ,1.36552 ,0.65015 - +,0.02733 ,0.01639 ,62.27953 ,1.99406 ,1.59645 ,0.89221 - +,0.02857 ,0.01709 ,68.92375 ,2.22392 ,1.82962 ,1.13521 - +,0.02976 ,0.01777 ,75.28267 ,2.45226 ,2.06106 ,1.37583 - +,0.03091 ,0.01842 ,81.48285 ,2.68202 ,2.29370 ,1.61702 - +,0.03202 ,0.01906 ,87.54489 ,2.91318 ,2.52755 ,1.85886 - +,0.03310 ,0.01967 ,93.33434 ,3.14044 ,2.75733 ,2.09613 - +,0.03415 ,0.02026 ,98.95088 ,3.36655 ,2.98580 ,2.33165 - +,0.03517 ,0.02084,104.45407 ,3.59311 ,3.21461 ,2.56712 - +,0.03616 ,0.02139,109.66013 ,3.81290 ,3.43650 ,2.79532 - +,0.03712 ,0.02194,114.82828 ,4.03502 ,3.66064 ,3.02544 - +,0.03806 ,0.02246,119.69576 ,4.24929 ,3.87681 ,3.24729/ - DATA ((F(I,3,K),I=1,6),K=1,19)/ - + 0.02304 ,0.01411 ,4.15990 ,0.20405 ,0.02795 ,0.00000 - +,0.02581 ,0.01570 ,9.57815 ,0.34867 ,0.13657 ,0.00000 - +,0.02834 ,0.01714 ,14.96934 ,0.52085 ,0.26585 ,0.00000 - +,0.03067 ,0.01847 ,20.27985 ,0.71142 ,0.40890 ,0.00000 - +,0.03284 ,0.01969 ,25.30734 ,0.90518 ,0.55798 ,0.01463 - +,0.03487 ,0.02084 ,30.15602 ,1.07476 ,0.71220 ,0.12235 - +,0.03679 ,0.02193 ,34.81412 ,1.22538 ,0.86947 ,0.29918 - +,0.03863 ,0.02296 ,39.28276 ,1.38157 ,1.02833 ,0.46569 - +,0.04038 ,0.02394 ,43.56674 ,1.53787 ,1.18766 ,0.63377 - +,0.04205 ,0.02488 ,47.66211 ,1.69383 ,1.34631 ,0.80017 - +,0.04365 ,0.02578 ,51.52116 ,1.84680 ,1.50179 ,0.96290 - +,0.04519 ,0.02664 ,55.23373 ,1.99896 ,1.65630 ,1.12415 - +,0.04668 ,0.02747 ,58.81915 ,2.15046 ,1.81000 ,1.28416 - +,0.04812 ,0.02827 ,62.19774 ,2.29789 ,1.95950 ,1.43958 - +,0.04950 ,0.02904 ,65.43773 ,2.44322 ,2.10678 ,1.59243 - +,0.05085 ,0.02978 ,68.58063 ,2.58765 ,2.25305 ,1.74398 - +,0.05214 ,0.03050 ,71.51546 ,2.72652 ,2.39367 ,1.88959 - +,0.05341 ,0.03120 ,74.40666 ,2.86590 ,2.53472 ,2.03538 - +,0.05463 ,0.03188 ,77.09471 ,2.99924 ,2.66964 ,2.17480/ - DATA ((F(I,4,K),I=1,6),K=1,19)/ - + 0.02974 ,0.01809 ,4.00109 ,0.20284 ,0.02601 ,0.00000 - +,0.03314 ,0.02002 ,8.60778 ,0.33320 ,0.12396 ,0.00000 - +,0.03623 ,0.02176 ,13.04550 ,0.48338 ,0.23676 ,0.00000 - +,0.03906 ,0.02336 ,17.32387 ,0.64576 ,0.35870 ,0.00000 - +,0.04168 ,0.02483 ,21.30655 ,0.80800 ,0.48358 ,0.01221 - +,0.04413 ,0.02620 ,25.09286 ,0.94795 ,0.61093 ,0.10120 - +,0.04643 ,0.02749 ,28.68440 ,1.07053 ,0.73925 ,0.24620 - +,0.04862 ,0.02871 ,32.09038 ,1.19640 ,0.86754 ,0.38121 - +,0.05070 ,0.02987 ,35.32127 ,1.32119 ,0.99503 ,0.51630 - +,0.05269 ,0.03097 ,38.37978 ,1.44468 ,1.12094 ,0.64897 - +,0.05459 ,0.03202 ,41.23372 ,1.56488 ,1.24340 ,0.77774 - +,0.05641 ,0.03302 ,43.95631 ,1.68364 ,1.36427 ,0.90449 - +,0.05816 ,0.03399 ,46.56557 ,1.80114 ,1.48376 ,1.02948 - +,0.05984 ,0.03492 ,49.00311 ,1.91478 ,1.59927 ,1.15016 - +,0.06146 ,0.03581 ,51.32353 ,2.02619 ,1.71245 ,1.26821 - +,0.06304 ,0.03668 ,53.56015 ,2.13636 ,1.82430 ,1.38466 - +,0.06455 ,0.03750 ,55.63080 ,2.24172 ,1.93125 ,1.49596 - +,0.06602 ,0.03831 ,57.66109 ,2.34703 ,2.03807 ,1.60693 - +,0.06744 ,0.03909 ,59.53226 ,2.44726 ,2.13975 ,1.71254/ - DATA ((F(I,5,K),I=1,6),K=1,19)/ - + 0.03564 ,0.02157 ,3.89144 ,0.20174 ,0.02462 ,0.00000 - +,0.03957 ,0.02378 ,7.97880 ,0.32239 ,0.11532 ,0.00000 - +,0.04311 ,0.02577 ,11.83041 ,0.45820 ,0.21738 ,0.00000 - +,0.04636 ,0.02759 ,15.48785 ,0.60265 ,0.32591 ,0.00000 - +,0.04934 ,0.02925 ,18.85153 ,0.74522 ,0.43570 ,0.01071 - +,0.05213 ,0.03080 ,22.01633 ,0.86694 ,0.54654 ,0.08821 - +,0.05475 ,0.03225 ,24.99049 ,0.97249 ,0.65729 ,0.21384 - +,0.05722 ,0.03362 ,27.78709 ,1.08010 ,0.76717 ,0.32988 - +,0.05957 ,0.03492 ,30.41948 ,1.18609 ,0.87568 ,0.44527 - +,0.06181 ,0.03616 ,32.89311 ,1.29036 ,0.98220 ,0.55793 - +,0.06394 ,0.03733 ,35.18434 ,1.39129 ,1.08525 ,0.66671 - +,0.06598 ,0.03845 ,37.35651 ,1.49051 ,1.18646 ,0.77326 - +,0.06794 ,0.03952 ,39.42613 ,1.58825 ,1.28606 ,0.87786 - +,0.06982 ,0.04055 ,41.34689 ,1.68236 ,1.38193 ,0.97842 - +,0.07163 ,0.04153 ,43.16516 ,1.77425 ,1.47549 ,1.07639 - +,0.07338 ,0.04249 ,44.90941 ,1.86479 ,1.56761 ,1.17269 - +,0.07506 ,0.04340 ,46.51332 ,1.95102 ,1.65534 ,1.26439 - +,0.07670 ,0.04429 ,48.08047 ,2.03697 ,1.74272 ,1.35553 - +,0.07826 ,0.04514 ,49.51465 ,2.11845 ,1.82558 ,1.44196/ - DATA ((F(I,6,K),I=1,6),K=1,19)/ - + 0.04100 ,0.02472 ,3.80797 ,0.20072 ,0.02353 ,0.00000 - +,0.04539 ,0.02718 ,7.52221 ,0.31405 ,0.10878 ,0.00000 - +,0.04933 ,0.02938 ,10.96498 ,0.43938 ,0.20302 ,0.00000 - +,0.05294 ,0.03138 ,14.19605 ,0.57102 ,0.30198 ,0.00000 - +,0.05624 ,0.03322 ,17.13951 ,0.69972 ,0.40114 ,0.00965 - +,0.05931 ,0.03491 ,19.88622 ,0.80871 ,0.50047 ,0.07916 - +,0.06219 ,0.03650 ,22.44836 ,0.90248 ,0.59906 ,0.19138 - +,0.06491 ,0.03800 ,24.84126 ,0.99756 ,0.69633 ,0.29439 - +,0.06749 ,0.03941 ,27.07948 ,1.09072 ,0.79188 ,0.39632 - +,0.06994 ,0.04076 ,29.17035 ,1.18194 ,0.88526 ,0.49540 - +,0.07226 ,0.04203 ,31.09544 ,1.26986 ,0.97520 ,0.59066 - +,0.07449 ,0.04324 ,32.91112 ,1.35596 ,1.06320 ,0.68361 - +,0.07663 ,0.04440 ,34.63298 ,1.44046 ,1.14949 ,0.77455 - +,0.07867 ,0.04551 ,36.22231 ,1.52155 ,1.23227 ,0.86168 - +,0.08063 ,0.04658 ,37.71980 ,1.60047 ,1.31279 ,0.94630 - +,0.08253 ,0.04761 ,39.15071 ,1.67801 ,1.39185 ,1.02925 - +,0.08435 ,0.04859 ,40.45906 ,1.75163 ,1.46691 ,1.10798 - +,0.08612 ,0.04954 ,41.73373 ,1.82482 ,1.54149 ,1.18606 - +,0.08781 ,0.05046 ,42.89342 ,1.89400 ,1.61199 ,1.25989/ - DATA ((F(I,7,K),I=1,6),K=1,19)/ - + 0.06331 ,0.03770 ,3.55598 ,0.19639 ,0.02014 ,0.00000 - +,0.06943 ,0.04107 ,6.26031 ,0.28823 ,0.08946 ,0.00000 - +,0.07486 ,0.04405 ,8.65059 ,0.38443 ,0.16203 ,0.00000 - +,0.07977 ,0.04674 ,10.81334 ,0.48166 ,0.23535 ,0.00000 - +,0.08424 ,0.04917 ,12.72425 ,0.57397 ,0.30669 ,0.00692 - +,0.08835 ,0.05140 ,14.45992 ,0.65015 ,0.37645 ,0.05595 - +,0.09219 ,0.05347 ,16.03955 ,0.71403 ,0.44427 ,0.13412 - +,0.09578 ,0.05541 ,17.48148 ,0.77772 ,0.50997 ,0.20449 - +,0.09916 ,0.05723 ,18.80179 ,0.83909 ,0.57348 ,0.27306 - +,0.10236 ,0.05894 ,20.01035 ,0.89830 ,0.63463 ,0.33875 - +,0.10537 ,0.06056 ,21.09975 ,0.95456 ,0.69274 ,0.40109 - +,0.10824 ,0.06209 ,22.10910 ,1.00898 ,0.74889 ,0.46118 - +,0.11099 ,0.06355 ,23.05072 ,1.06178 ,0.80332 ,0.51932 - +,0.11359 ,0.06493 ,23.90268 ,1.11186 ,0.85495 ,0.57442 - +,0.11608 ,0.06625 ,24.69220 ,1.16009 ,0.90466 ,0.62740 - +,0.11848 ,0.06752 ,25.43613 ,1.20704 ,0.95302 ,0.67885 - +,0.12077 ,0.06873 ,26.10156 ,1.25114 ,0.99845 ,0.72722 - +,0.12299 ,0.06990 ,26.74364 ,1.29465 ,1.04326 ,0.77481 - +,0.12510 ,0.07101 ,27.31422 ,1.33535 ,1.08519 ,0.81939/ - DATA ((F(I,8,K),I=1,6),K=1,19)/ - + 0.09748 ,0.05732 ,3.31097 ,0.18985 ,0.01676 ,0.00000 - +,0.10580 ,0.06181 ,5.20195 ,0.26198 ,0.07164 ,0.00000 - +,0.11311 ,0.06574 ,6.80476 ,0.33369 ,0.12614 ,0.00000 - +,0.11964 ,0.06922 ,8.20082 ,0.40345 ,0.17914 ,0.00000 - +,0.12550 ,0.07234 ,9.39323 ,0.46776 ,0.22923 ,0.00486 - +,0.13086 ,0.07518 ,10.44347 ,0.51936 ,0.27700 ,0.03871 - +,0.13581 ,0.07779 ,11.37206 ,0.56142 ,0.32245 ,0.09204 - +,0.14041 ,0.08021 ,12.19679 ,0.60261 ,0.36566 ,0.13906 - +,0.14471 ,0.08247 ,12.93254 ,0.64159 ,0.40671 ,0.18416 - +,0.14874 ,0.08457 ,13.58909 ,0.67860 ,0.44562 ,0.22672 - +,0.15251 ,0.08653 ,14.16474 ,0.71323 ,0.48204 ,0.26653 - +,0.15608 ,0.08838 ,14.68590 ,0.74625 ,0.51677 ,0.30442 - +,0.15947 ,0.09014 ,15.16173 ,0.77790 ,0.55002 ,0.34064 - +,0.16267 ,0.09179 ,15.58031 ,0.80750 ,0.58116 ,0.37456 - +,0.16571 ,0.09335 ,15.95924 ,0.83568 ,0.61080 ,0.40682 - +,0.16863 ,0.09485 ,16.30945 ,0.86284 ,0.63934 ,0.43784 - +,0.17138 ,0.09626 ,16.61215 ,0.88800 ,0.66584 ,0.46668 - +,0.17405 ,0.09762 ,16.90060 ,0.91263 ,0.69175 ,0.49483 - +,0.17657 ,0.09891 ,17.14687 ,0.93537 ,0.71572 ,0.52092/ - DATA ((F(I,9,K),I=1,6),K=1,19)/ - + 0.12517 ,0.07304 ,3.16782 ,0.18474 ,0.01482 ,0.00000 - +,0.13496 ,0.07825 ,4.66178 ,0.24621 ,0.06197 ,0.00000 - +,0.14348 ,0.08275 ,5.89905 ,0.30548 ,0.10740 ,0.00000 - +,0.15103 ,0.08672 ,6.95063 ,0.36186 ,0.15059 ,0.00000 - +,0.15776 ,0.09023 ,7.82827 ,0.41290 ,0.19069 ,0.00390 - +,0.16387 ,0.09341 ,8.58482 ,0.45310 ,0.22836 ,0.03080 - +,0.16948 ,0.09632 ,9.24002 ,0.48523 ,0.26372 ,0.07285 - +,0.17467 ,0.09899 ,9.81034 ,0.51634 ,0.29693 ,0.10948 - +,0.17948 ,0.10146 ,10.30921 ,0.54545 ,0.32813 ,0.14424 - +,0.18398 ,0.10376 ,10.74565 ,0.57278 ,0.35741 ,0.17673 - +,0.18816 ,0.10589 ,11.11981 ,0.59808 ,0.38455 ,0.20686 - +,0.19210 ,0.10789 ,11.45221 ,0.62199 ,0.41020 ,0.23529 - +,0.19582 ,0.10977 ,11.75034 ,0.64471 ,0.43457 ,0.26227 - +,0.19932 ,0.11153 ,12.00604 ,0.66576 ,0.45718 ,0.28733 - +,0.20263 ,0.11320 ,12.23267 ,0.68563 ,0.47855 ,0.31100 - +,0.20580 ,0.11478 ,12.43855 ,0.70464 ,0.49899 ,0.33363 - +,0.20877 ,0.11627 ,12.61033 ,0.72208 ,0.51781 ,0.35450 - +,0.21164 ,0.11770 ,12.77227 ,0.73908 ,0.53611 ,0.37476 - +,0.21434 ,0.11904 ,12.90444 ,0.75459 ,0.55289 ,0.39341/ - DATA ((F(I,10,K),I=1,6),K=1,19)/ - + 0.14920 ,0.08657 ,3.06677 ,0.18082 ,0.01351 ,0.00000 - +,0.16002 ,0.09225 ,4.31332 ,0.23524 ,0.05562 ,0.00000 - +,0.16936 ,0.09712 ,5.32473 ,0.28656 ,0.09529 ,0.00000 - +,0.17759 ,0.10138 ,6.16670 ,0.33454 ,0.13237 ,0.00000 - +,0.18488 ,0.10513 ,6.85556 ,0.37734 ,0.16632 ,0.00331 - +,0.19146 ,0.10849 ,7.43841 ,0.41053 ,0.19782 ,0.02597 - +,0.19747 ,0.11155 ,7.93402 ,0.43662 ,0.22709 ,0.06119 - +,0.20300 ,0.11435 ,8.35765 ,0.46165 ,0.25430 ,0.09156 - +,0.20810 ,0.11692 ,8.72154 ,0.48484 ,0.27966 ,0.12015 - +,0.21285 ,0.11930 ,9.03396 ,0.50643 ,0.30325 ,0.14668 - +,0.21724 ,0.12149 ,9.29576 ,0.52622 ,0.32494 ,0.17110 - +,0.22136 ,0.12353 ,9.52407 ,0.54479 ,0.34530 ,0.19399 - +,0.22524 ,0.12545 ,9.72514 ,0.56230 ,0.36451 ,0.21558 - +,0.22886 ,0.12724 ,9.89275 ,0.57839 ,0.38222 ,0.23552 - +,0.23229 ,0.12892 ,10.03788 ,0.59347 ,0.39884 ,0.25424 - +,0.23555 ,0.13052 ,10.16718 ,0.60781 ,0.41466 ,0.27204 - +,0.23860 ,0.13200 ,10.27027 ,0.62085 ,0.42911 ,0.28837 - +,0.24154 ,0.13343 ,10.36623 ,0.63350 ,0.44311 ,0.30416 - +,0.24429 ,0.13476 ,10.43972 ,0.64494 ,0.45586 ,0.31860/ - DATA ((F(I,11,K),I=1,6),K=1,19)/ - + 0.17075 ,0.09863 ,2.98778 ,0.17764 ,0.01253 ,0.00000 - +,0.18230 ,0.10462 ,4.06061 ,0.22691 ,0.05099 ,0.00000 - +,0.19221 ,0.10971 ,4.91322 ,0.27250 ,0.08656 ,0.00000 - +,0.20088 ,0.11413 ,5.60962 ,0.31451 ,0.11932 ,0.00000 - +,0.20852 ,0.11800 ,6.16891 ,0.35152 ,0.14896 ,0.00290 - +,0.21538 ,0.12145 ,6.63392 ,0.37980 ,0.17618 ,0.02261 - +,0.22161 ,0.12457 ,7.02242 ,0.40169 ,0.20124 ,0.05309 - +,0.22732 ,0.12740 ,7.34859 ,0.42253 ,0.22435 ,0.07915 - +,0.23257 ,0.13000 ,7.62366 ,0.44167 ,0.24571 ,0.10352 - +,0.23742 ,0.13238 ,7.85527 ,0.45934 ,0.26545 ,0.12599 - +,0.24190 ,0.13457 ,8.04465 ,0.47540 ,0.28347 ,0.14654 - +,0.24607 ,0.13660 ,8.20636 ,0.49036 ,0.30028 ,0.16571 - +,0.25000 ,0.13850 ,8.34583 ,0.50438 ,0.31605 ,0.18368 - +,0.25365 ,0.14026 ,8.45816 ,0.51715 ,0.33048 ,0.20019 - +,0.25709 ,0.14191 ,8.55251 ,0.52905 ,0.34396 ,0.21562 - +,0.26036 ,0.14346 ,8.63445 ,0.54029 ,0.35673 ,0.23023 - +,0.26339 ,0.14490 ,8.69555 ,0.55043 ,0.36832 ,0.24355 - +,0.26631 ,0.14628 ,8.75144 ,0.56022 ,0.37951 ,0.25640 - +,0.26903 ,0.14756 ,8.78970 ,0.56899 ,0.38962 ,0.26807/ - DATA ((F(I,12,K),I=1,6),K=1,19)/ - + 0.25682 ,0.14604 ,2.70961 ,0.16371 ,0.00951 ,0.00000 - +,0.26992 ,0.15242 ,3.31845 ,0.19769 ,0.03730 ,0.00000 - +,0.28083 ,0.15765 ,3.76570 ,0.22726 ,0.06152 ,0.00000 - +,0.29015 ,0.16206 ,4.10327 ,0.25315 ,0.08279 ,0.00000 - +,0.29815 ,0.16580 ,4.35222 ,0.27493 ,0.10126 ,0.00184 - +,0.30518 ,0.16904 ,4.54225 ,0.29062 ,0.11763 ,0.01406 - +,0.31142 ,0.17188 ,4.68676 ,0.30196 ,0.13222 ,0.03264 - +,0.31702 ,0.17440 ,4.79590 ,0.31244 ,0.14528 ,0.04809 - +,0.32207 ,0.17664 ,4.87748 ,0.32171 ,0.15703 ,0.06219 - +,0.32664 ,0.17865 ,4.93666 ,0.32998 ,0.16760 ,0.07490 - +,0.33077 ,0.18043 ,4.97491 ,0.33721 ,0.17700 ,0.08628 - +,0.33455 ,0.18205 ,5.00032 ,0.34374 ,0.18556 ,0.09669 - +,0.33805 ,0.18353 ,5.01604 ,0.34967 ,0.19343 ,0.10627 - +,0.34123 ,0.18486 ,5.01981 ,0.35486 ,0.20044 ,0.11490 - +,0.34417 ,0.18607 ,5.01640 ,0.35953 ,0.20686 ,0.12282 - +,0.34693 ,0.18719 ,5.00867 ,0.36384 ,0.21283 ,0.13021 - +,0.34942 ,0.18819 ,4.99251 ,0.36752 ,0.21809 ,0.13682 - +,0.35180 ,0.18913 ,4.97562 ,0.37102 ,0.22310 ,0.14310 - +,0.35395 ,0.18996 ,4.95183 ,0.37396 ,0.22750 ,0.14871/ - DATA ((F(I,13,K),I=1,6),K=1,19)/ - + 0.37532 ,0.20892 ,2.34398 ,0.14200 ,0.00661 ,0.00000 - +,0.38685 ,0.21359 ,2.59826 ,0.16215 ,0.02494 ,0.00000 - +,0.39591 ,0.21710 ,2.75444 ,0.17832 ,0.03986 ,0.00000 - +,0.40323 ,0.21980 ,2.84958 ,0.19151 ,0.05223 ,0.00000 - +,0.40914 ,0.22186 ,2.90002 ,0.20182 ,0.06244 ,0.00105 - +,0.41405 ,0.22347 ,2.92327 ,0.20839 ,0.07109 ,0.00787 - +,0.41817 ,0.22472 ,2.92715 ,0.21239 ,0.07847 ,0.01802 - +,0.42165 ,0.22570 ,2.91733 ,0.21586 ,0.08481 ,0.02617 - +,0.42460 ,0.22645 ,2.89795 ,0.21867 ,0.09030 ,0.03339 - +,0.42710 ,0.22702 ,2.87154 ,0.22093 ,0.09505 ,0.03972 - +,0.42918 ,0.22739 ,2.83885 ,0.22266 ,0.09911 ,0.04523 - +,0.43096 ,0.22766 ,2.80351 ,0.22405 ,0.10268 ,0.05014 - +,0.43250 ,0.22783 ,2.76679 ,0.22517 ,0.10585 ,0.05455 - +,0.43375 ,0.22789 ,2.72761 ,0.22594 ,0.10856 ,0.05843 - +,0.43481 ,0.22787 ,2.68786 ,0.22650 ,0.11095 ,0.06190 - +,0.43572 ,0.22781 ,2.64861 ,0.22692 ,0.11310 ,0.06507 - +,0.43641 ,0.22765 ,2.60799 ,0.22707 ,0.11489 ,0.06782 - +,0.43704 ,0.22748 ,2.56909 ,0.22718 ,0.11657 ,0.07041 - +,0.43746 ,0.22723 ,2.52925 ,0.22705 ,0.11794 ,0.07263/ - DATA ((F(I,14,K),I=1,6),K=1,19)/ - + 0.45722 ,0.24978 ,2.06168 ,0.12388 ,0.00497 ,0.00000 - +,0.46489 ,0.25162 ,2.15793 ,0.13678 ,0.01832 ,0.00000 - +,0.47029 ,0.25255 ,2.19391 ,0.14643 ,0.02870 ,0.00000 - +,0.47416 ,0.25289 ,2.19600 ,0.15379 ,0.03697 ,0.00000 - +,0.47683 ,0.25279 ,2.17555 ,0.15908 ,0.04354 ,0.00070 - +,0.47868 ,0.25240 ,2.14331 ,0.16185 ,0.04892 ,0.00516 - +,0.47989 ,0.25179 ,2.10379 ,0.16294 ,0.05335 ,0.01172 - +,0.48060 ,0.25103 ,2.06008 ,0.16373 ,0.05705 ,0.01686 - +,0.48093 ,0.25014 ,2.01427 ,0.16413 ,0.06014 ,0.02131 - +,0.48094 ,0.24917 ,1.96762 ,0.16424 ,0.06273 ,0.02514 - +,0.48063 ,0.24809 ,1.92021 ,0.16407 ,0.06486 ,0.02840 - +,0.48013 ,0.24698 ,1.87387 ,0.16373 ,0.06667 ,0.03125 - +,0.47949 ,0.24585 ,1.82907 ,0.16328 ,0.06823 ,0.03377 - +,0.47866 ,0.24468 ,1.78496 ,0.16266 ,0.06950 ,0.03593 - +,0.47772 ,0.24348 ,1.74238 ,0.16196 ,0.07057 ,0.03784 - +,0.47674 ,0.24230 ,1.70174 ,0.16121 ,0.07150 ,0.03955 - +,0.47558 ,0.24108 ,1.66189 ,0.16034 ,0.07221 ,0.04100 - +,0.47444 ,0.23990 ,1.62431 ,0.15949 ,0.07286 ,0.04233 - +,0.47316 ,0.23868 ,1.58749 ,0.15854 ,0.07333 ,0.04346/ - DATA ((F(I,15,K),I=1,6),K=1,19)/ - + 0.51661 ,0.27685 ,1.82201 ,0.10815 ,0.00387 ,0.00000 - +,0.51951 ,0.27556 ,1.83065 ,0.11650 ,0.01399 ,-0.00001 - +,0.52064 ,0.27375 ,1.80458 ,0.12227 ,0.02158 ,0.00000 - +,0.52063 ,0.27166 ,1.76194 ,0.12631 ,0.02744 ,0.00000 - +,0.51977 ,0.26938 ,1.71001 ,0.12885 ,0.03195 ,0.00049 - +,0.51837 ,0.26702 ,1.65522 ,0.12963 ,0.03553 ,0.00362 - +,0.51657 ,0.26462 ,1.59980 ,0.12928 ,0.03839 ,0.00816 - +,0.51448 ,0.26221 ,1.54520 ,0.12879 ,0.04071 ,0.01165 - +,0.51218 ,0.25982 ,1.49234 ,0.12809 ,0.04259 ,0.01462 - +,0.50973 ,0.25744 ,1.44158 ,0.12724 ,0.04411 ,0.01713 - +,0.50713 ,0.25506 ,1.39269 ,0.12624 ,0.04530 ,0.01923 - +,0.50446 ,0.25273 ,1.34649 ,0.12519 ,0.04629 ,0.02104 - +,0.50178 ,0.25048 ,1.30300 ,0.12411 ,0.04710 ,0.02262 - +,0.49901 ,0.24824 ,1.26150 ,0.12296 ,0.04771 ,0.02395 - +,0.49624 ,0.24606 ,1.22233 ,0.12179 ,0.04820 ,0.02509 - +,0.49351 ,0.24394 ,1.18553 ,0.12063 ,0.04860 ,0.02611 - +,0.49071 ,0.24184 ,1.15034 ,0.11942 ,0.04887 ,0.02695 - +,0.48800 ,0.23983 ,1.11745 ,0.11826 ,0.04910 ,0.02771 - +,0.48522 ,0.23781 ,1.08592 ,0.11707 ,0.04921 ,0.02834/ - DATA ((F(I,16,K),I=1,6),K=1,19)/ - + 0.55971 ,0.29391 ,1.61216 ,0.09432 ,0.00306 ,0.00000 - +,0.55754 ,0.28950 ,1.56854 ,0.09962 ,0.01091 ,-0.00001 - +,0.55423 ,0.28502 ,1.50820 ,0.10289 ,0.01661 ,0.00000 - +,0.55030 ,0.28063 ,1.44298 ,0.10487 ,0.02089 ,0.00000 - +,0.54592 ,0.27634 ,1.37692 ,0.10578 ,0.02409 ,0.00036 - +,0.54136 ,0.27219 ,1.31346 ,0.10545 ,0.02656 ,0.00263 - +,0.53667 ,0.26819 ,1.25327 ,0.10435 ,0.02849 ,0.00590 - +,0.53192 ,0.26434 ,1.19672 ,0.10321 ,0.03000 ,0.00837 - +,0.52718 ,0.26063 ,1.14394 ,0.10198 ,0.03117 ,0.01043 - +,0.52248 ,0.25705 ,1.09476 ,0.10069 ,0.03210 ,0.01216 - +,0.51777 ,0.25358 ,1.04871 ,0.09934 ,0.03279 ,0.01358 - +,0.51315 ,0.25025 ,1.00605 ,0.09800 ,0.03333 ,0.01479 - +,0.50864 ,0.24706 ,0.96654 ,0.09668 ,0.03375 ,0.01582 - +,0.50416 ,0.24396 ,0.92955 ,0.09535 ,0.03404 ,0.01667 - +,0.49979 ,0.24098 ,0.89512 ,0.09403 ,0.03424 ,0.01740 - +,0.49555 ,0.23811 ,0.86314 ,0.09276 ,0.03438 ,0.01804 - +,0.49133 ,0.23532 ,0.83302 ,0.09147 ,0.03444 ,0.01855 - +,0.48728 ,0.23265 ,0.80507 ,0.09025 ,0.03448 ,0.01901 - +,0.48323 ,0.23003 ,0.77864 ,0.08903 ,0.03444 ,0.01938/ - DATA ((F(I,17,K),I=1,6),K=1,19)/ - + 0.59603 ,0.30454 ,1.38278 ,0.07932 ,0.00233 ,0.00001 - +,0.58753 ,0.29648 ,1.30184 ,0.08207 ,0.00815 ,0.00001 - +,0.57880 ,0.28899 ,1.21971 ,0.08336 ,0.01224 ,0.00001 - +,0.57017 ,0.28205 ,1.14229 ,0.08379 ,0.01520 ,0.00001 - +,0.56166 ,0.27559 ,1.07057 ,0.08351 ,0.01734 ,0.00026 - +,0.55343 ,0.26954 ,1.00542 ,0.08245 ,0.01895 ,0.00183 - +,0.54545 ,0.26387 ,0.94625 ,0.08092 ,0.02016 ,0.00407 - +,0.53773 ,0.25853 ,0.89253 ,0.07943 ,0.02106 ,0.00573 - +,0.53027 ,0.25348 ,0.84378 ,0.07793 ,0.02174 ,0.00710 - +,0.52309 ,0.24871 ,0.79944 ,0.07646 ,0.02224 ,0.00822 - +,0.51610 ,0.24417 ,0.75886 ,0.07499 ,0.02258 ,0.00913 - +,0.50939 ,0.23986 ,0.72192 ,0.07356 ,0.02283 ,0.00988 - +,0.50294 ,0.23578 ,0.68822 ,0.07219 ,0.02299 ,0.01052 - +,0.49668 ,0.23187 ,0.65717 ,0.07085 ,0.02308 ,0.01104 - +,0.49063 ,0.22814 ,0.62864 ,0.06955 ,0.02311 ,0.01146 - +,0.48484 ,0.22460 ,0.60241 ,0.06831 ,0.02311 ,0.01183 - +,0.47916 ,0.22118 ,0.57803 ,0.06708 ,0.02305 ,0.01212 - +,0.47374 ,0.21794 ,0.55557 ,0.06593 ,0.02298 ,0.01238 - +,0.46841 ,0.21479 ,0.53462 ,0.06479 ,0.02288 ,0.01257/ - DATA ((F(I,18,K),I=1,6),K=1,19)/ - + 0.61690 ,0.30599 ,1.18362 ,0.06646 ,0.00178 ,0.00001 - +,0.60235 ,0.29478 ,1.08386 ,0.06757 ,0.00614 ,0.00001 - +,0.58859 ,0.28473 ,0.99322 ,0.06767 ,0.00910 ,0.00001 - +,0.57567 ,0.27568 ,0.91319 ,0.06720 ,0.01120 ,0.00000 - +,0.56346 ,0.26746 ,0.84262 ,0.06630 ,0.01267 ,0.00019 - +,0.55200 ,0.25991 ,0.78069 ,0.06490 ,0.01373 ,0.00130 - +,0.54116 ,0.25296 ,0.72600 ,0.06324 ,0.01450 ,0.00286 - +,0.53090 ,0.24650 ,0.67749 ,0.06166 ,0.01505 ,0.00401 - +,0.52116 ,0.24048 ,0.63431 ,0.06013 ,0.01544 ,0.00494 - +,0.51190 ,0.23485 ,0.59571 ,0.05866 ,0.01570 ,0.00569 - +,0.50304 ,0.22954 ,0.56100 ,0.05723 ,0.01587 ,0.00628 - +,0.49462 ,0.22455 ,0.52979 ,0.05587 ,0.01596 ,0.00676 - +,0.48663 ,0.21987 ,0.50164 ,0.05458 ,0.01600 ,0.00717 - +,0.47894 ,0.21542 ,0.47603 ,0.05334 ,0.01599 ,0.00749 - +,0.47159 ,0.21120 ,0.45272 ,0.05215 ,0.01595 ,0.00776 - +,0.46460 ,0.20722 ,0.43147 ,0.05102 ,0.01589 ,0.00797 - +,0.45781 ,0.20341 ,0.41194 ,0.04993 ,0.01579 ,0.00814 - +,0.45137 ,0.19981 ,0.39404 ,0.04889 ,0.01569 ,0.00828 - +,0.44510 ,0.19633 ,0.37750 ,0.04789 ,0.01557 ,0.00839/ - DATA ((F(I,19,K),I=1,6),K=1,19)/ - + 0.62534 ,0.30038 ,1.01012 ,0.05544 ,0.00136 ,0.00001 - +,0.60525 ,0.28657 ,0.90277 ,0.05550 ,0.00465 ,0.00000 - +,0.58695 ,0.27449 ,0.81125 ,0.05487 ,0.00683 ,0.00000 - +,0.57026 ,0.26381 ,0.73375 ,0.05392 ,0.00831 ,0.00000 - +,0.55486 ,0.25426 ,0.66767 ,0.05271 ,0.00933 ,0.00013 - +,0.54063 ,0.24563 ,0.61111 ,0.05121 ,0.01004 ,0.00093 - +,0.52742 ,0.23774 ,0.56221 ,0.04958 ,0.01053 ,0.00204 - +,0.51505 ,0.23050 ,0.51960 ,0.04805 ,0.01086 ,0.00284 - +,0.50346 ,0.22382 ,0.48229 ,0.04661 ,0.01108 ,0.00348 - +,0.49256 ,0.21763 ,0.44941 ,0.04523 ,0.01122 ,0.00399 - +,0.48223 ,0.21184 ,0.42019 ,0.04392 ,0.01128 ,0.00438 - +,0.47250 ,0.20643 ,0.39421 ,0.04269 ,0.01130 ,0.00470 - +,0.46332 ,0.20138 ,0.37100 ,0.04153 ,0.01128 ,0.00496 - +,0.45457 ,0.19663 ,0.35011 ,0.04043 ,0.01123 ,0.00517 - +,0.44625 ,0.19215 ,0.33124 ,0.03938 ,0.01116 ,0.00533 - +,0.43837 ,0.18794 ,0.31415 ,0.03840 ,0.01107 ,0.00546 - +,0.43078 ,0.18392 ,0.29859 ,0.03745 ,0.01097 ,0.00556 - +,0.42360 ,0.18015 ,0.28441 ,0.03657 ,0.01087 ,0.00564 - +,0.41665 ,0.17653 ,0.27141 ,0.03571 ,0.01075 ,0.00569/ - DATA ((F(I,20,K),I=1,6),K=1,19)/ - + 0.62363 ,0.28940 ,0.85892 ,0.04602 ,0.00105 ,0.00001 - +,0.59860 ,0.27357 ,0.75105 ,0.04543 ,0.00353 ,0.00000 - +,0.57637 ,0.25997 ,0.66302 ,0.04440 ,0.00513 ,0.00000 - +,0.55645 ,0.24813 ,0.59081 ,0.04321 ,0.00620 ,0.00000 - +,0.53838 ,0.23766 ,0.53080 ,0.04190 ,0.00690 ,0.00010 - +,0.52191 ,0.22831 ,0.48047 ,0.04042 ,0.00737 ,0.00067 - +,0.50677 ,0.21985 ,0.43769 ,0.03890 ,0.00769 ,0.00147 - +,0.49275 ,0.21214 ,0.40097 ,0.03750 ,0.00789 ,0.00203 - +,0.47972 ,0.20508 ,0.36923 ,0.03618 ,0.00801 ,0.00248 - +,0.46757 ,0.19859 ,0.34158 ,0.03495 ,0.00807 ,0.00283 - +,0.45615 ,0.19255 ,0.31729 ,0.03379 ,0.00808 ,0.00309 - +,0.44545 ,0.18696 ,0.29589 ,0.03271 ,0.00806 ,0.00330 - +,0.43542 ,0.18176 ,0.27692 ,0.03170 ,0.00802 ,0.00347 - +,0.42592 ,0.17688 ,0.26000 ,0.03075 ,0.00795 ,0.00360 - +,0.41693 ,0.17232 ,0.24483 ,0.02985 ,0.00787 ,0.00371 - +,0.40846 ,0.16804 ,0.23117 ,0.02902 ,0.00779 ,0.00379 - +,0.40035 ,0.16399 ,0.21883 ,0.02822 ,0.00769 ,0.00384 - +,0.39270 ,0.16019 ,0.20763 ,0.02747 ,0.00760 ,0.00389 - +,0.38534 ,0.15657 ,0.19743 ,0.02675 ,0.00750 ,0.00391/ - DATA ((F(I,21,K),I=1,6),K=1,19)/ - + 0.61354 ,0.27443 ,0.72732 ,0.03801 ,0.00080 ,-0.00001 - +,0.58427 ,0.25716 ,0.62335 ,0.03704 ,0.00268 ,0.00000 - +,0.55870 ,0.24256 ,0.54130 ,0.03583 ,0.00386 ,0.00000 - +,0.53615 ,0.22999 ,0.47573 ,0.03455 ,0.00462 ,0.00000 - +,0.51595 ,0.21898 ,0.42240 ,0.03325 ,0.00511 ,0.00007 - +,0.49772 ,0.20923 ,0.37842 ,0.03188 ,0.00543 ,0.00048 - +,0.48111 ,0.20049 ,0.34160 ,0.03051 ,0.00563 ,0.00106 - +,0.46587 ,0.19258 ,0.31038 ,0.02925 ,0.00575 ,0.00146 - +,0.45180 ,0.18539 ,0.28371 ,0.02809 ,0.00581 ,0.00177 - +,0.43877 ,0.17881 ,0.26071 ,0.02702 ,0.00583 ,0.00201 - +,0.42658 ,0.17274 ,0.24072 ,0.02602 ,0.00581 ,0.00219 - +,0.41523 ,0.16714 ,0.22324 ,0.02510 ,0.00577 ,0.00233 - +,0.40464 ,0.16196 ,0.20785 ,0.02424 ,0.00572 ,0.00245 - +,0.39467 ,0.15712 ,0.19423 ,0.02343 ,0.00565 ,0.00253 - +,0.38529 ,0.15261 ,0.18211 ,0.02268 ,0.00558 ,0.00259 - +,0.37648 ,0.14841 ,0.17125 ,0.02197 ,0.00551 ,0.00264 - +,0.36809 ,0.14444 ,0.16150 ,0.02130 ,0.00542 ,0.00267 - +,0.36020 ,0.14073 ,0.15269 ,0.02068 ,0.00534 ,0.00269 - +,0.35266 ,0.13720 ,0.14472 ,0.02009 ,0.00526 ,0.00271/ - DATA ((F(I,22,K),I=1,6),K=1,19)/ - + 0.59651 ,0.25654 ,0.61299 ,0.03120 ,0.00062 ,0.00000 - +,0.56373 ,0.23839 ,0.51562 ,0.03004 ,0.00203 ,0.00000 - +,0.53548 ,0.22324 ,0.44095 ,0.02877 ,0.00290 ,0.00000 - +,0.51087 ,0.21032 ,0.38253 ,0.02751 ,0.00345 ,0.00001 - +,0.48905 ,0.19912 ,0.33590 ,0.02628 ,0.00378 ,0.00005 - +,0.46955 ,0.18928 ,0.29802 ,0.02505 ,0.00399 ,0.00036 - +,0.45190 ,0.18052 ,0.26671 ,0.02384 ,0.00412 ,0.00077 - +,0.43582 ,0.17264 ,0.24048 ,0.02276 ,0.00419 ,0.00105 - +,0.42107 ,0.16552 ,0.21829 ,0.02176 ,0.00421 ,0.00127 - +,0.40748 ,0.15905 ,0.19934 ,0.02084 ,0.00421 ,0.00143 - +,0.39487 ,0.15310 ,0.18301 ,0.01999 ,0.00418 ,0.00156 - +,0.38319 ,0.14764 ,0.16883 ,0.01921 ,0.00414 ,0.00165 - +,0.37232 ,0.14261 ,0.15644 ,0.01849 ,0.00409 ,0.00173 - +,0.36212 ,0.13794 ,0.14555 ,0.01782 ,0.00403 ,0.00178 - +,0.35258 ,0.13360 ,0.13591 ,0.01719 ,0.00396 ,0.00182 - +,0.34366 ,0.12956 ,0.12732 ,0.01661 ,0.00389 ,0.00185 - +,0.33520 ,0.12576 ,0.11966 ,0.01606 ,0.00382 ,0.00186 - +,0.32726 ,0.12222 ,0.11276 ,0.01555 ,0.00376 ,0.00188 - +,0.31969 ,0.11888 ,0.10655 ,0.01507 ,0.00369 ,0.00188/ - DATA ((F(I,23,K),I=1,6),K=1,19)/ - + 0.57383 ,0.23675 ,0.51397 ,0.02546 ,0.00047 ,0.00000 - +,0.53826 ,0.21823 ,0.42477 ,0.02423 ,0.00153 ,0.00000 - +,0.50799 ,0.20293 ,0.35801 ,0.02300 ,0.00217 ,0.00000 - +,0.48189 ,0.19001 ,0.30678 ,0.02181 ,0.00256 ,0.00001 - +,0.45896 ,0.17890 ,0.26655 ,0.02070 ,0.00279 ,0.00004 - +,0.43862 ,0.16921 ,0.23432 ,0.01961 ,0.00293 ,0.00026 - +,0.42034 ,0.16065 ,0.20799 ,0.01858 ,0.00301 ,0.00055 - +,0.40379 ,0.15298 ,0.18618 ,0.01765 ,0.00305 ,0.00076 - +,0.38870 ,0.14610 ,0.16788 ,0.01680 ,0.00305 ,0.00091 - +,0.37487 ,0.13987 ,0.15240 ,0.01603 ,0.00303 ,0.00102 - +,0.36211 ,0.13417 ,0.13916 ,0.01532 ,0.00300 ,0.00111 - +,0.35032 ,0.12897 ,0.12775 ,0.01467 ,0.00297 ,0.00117 - +,0.33941 ,0.12419 ,0.11784 ,0.01408 ,0.00292 ,0.00122 - +,0.32922 ,0.11977 ,0.10918 ,0.01352 ,0.00287 ,0.00126 - +,0.31971 ,0.11568 ,0.10156 ,0.01301 ,0.00281 ,0.00128 - +,0.31085 ,0.11189 ,0.09480 ,0.01253 ,0.00276 ,0.00130 - +,0.30248 ,0.10834 ,0.08881 ,0.01209 ,0.00270 ,0.00130 - +,0.29466 ,0.10503 ,0.08343 ,0.01167 ,0.00265 ,0.00131 - +,0.28721 ,0.10192 ,0.07861 ,0.01129 ,0.00259 ,0.00131/ - DATA ((F(I,24,K),I=1,6),K=1,19)/ - + 0.54656 ,0.21581 ,0.42847 ,0.02063 ,0.00037 ,0.00001 - +,0.50891 ,0.19737 ,0.34822 ,0.01943 ,0.00116 ,0.00001 - +,0.47730 ,0.18227 ,0.28942 ,0.01827 ,0.00162 ,0.00001 - +,0.45023 ,0.16964 ,0.24511 ,0.01720 ,0.00190 ,0.00001 - +,0.42665 ,0.15887 ,0.21082 ,0.01621 ,0.00206 ,0.00003 - +,0.40589 ,0.14954 ,0.18369 ,0.01527 ,0.00215 ,0.00019 - +,0.38736 ,0.14133 ,0.16178 ,0.01440 ,0.00220 ,0.00041 - +,0.37068 ,0.13404 ,0.14380 ,0.01361 ,0.00221 ,0.00055 - +,0.35553 ,0.12751 ,0.12886 ,0.01291 ,0.00220 ,0.00065 - +,0.34175 ,0.12163 ,0.11630 ,0.01227 ,0.00219 ,0.00073 - +,0.32906 ,0.11629 ,0.10566 ,0.01169 ,0.00215 ,0.00079 - +,0.31739 ,0.11142 ,0.09655 ,0.01116 ,0.00212 ,0.00083 - +,0.30664 ,0.10697 ,0.08867 ,0.01067 ,0.00208 ,0.00086 - +,0.29667 ,0.10287 ,0.08183 ,0.01021 ,0.00204 ,0.00088 - +,0.28737 ,0.09909 ,0.07584 ,0.00980 ,0.00200 ,0.00090 - +,0.27872 ,0.09559 ,0.07055 ,0.00942 ,0.00195 ,0.00091 - +,0.27057 ,0.09233 ,0.06589 ,0.00906 ,0.00191 ,0.00092 - +,0.26298 ,0.08931 ,0.06171 ,0.00873 ,0.00187 ,0.00092 - +,0.25579 ,0.08646 ,0.05799 ,0.00842 ,0.00183 ,0.00091/ - DATA ((F(I,25,K),I=1,6),K=1,19)/ - + 0.51569 ,0.19443 ,0.35504 ,0.01659 ,0.00028 ,0.00001 - +,0.47670 ,0.17644 ,0.28389 ,0.01546 ,0.00087 ,0.00001 - +,0.44430 ,0.16186 ,0.23281 ,0.01441 ,0.00120 ,0.00001 - +,0.41679 ,0.14976 ,0.19493 ,0.01347 ,0.00140 ,0.00001 - +,0.39302 ,0.13951 ,0.16603 ,0.01262 ,0.00151 ,0.00002 - +,0.37222 ,0.13069 ,0.14344 ,0.01183 ,0.00157 ,0.00014 - +,0.35377 ,0.12298 ,0.12538 ,0.01109 ,0.00159 ,0.00029 - +,0.33724 ,0.11615 ,0.11070 ,0.01044 ,0.00160 ,0.00039 - +,0.32231 ,0.11008 ,0.09860 ,0.00986 ,0.00159 ,0.00047 - +,0.30879 ,0.10463 ,0.08851 ,0.00934 ,0.00157 ,0.00052 - +,0.29639 ,0.09971 ,0.08001 ,0.00887 ,0.00154 ,0.00056 - +,0.28504 ,0.09524 ,0.07278 ,0.00844 ,0.00151 ,0.00059 - +,0.27462 ,0.09116 ,0.06657 ,0.00804 ,0.00148 ,0.00061 - +,0.26499 ,0.08742 ,0.06120 ,0.00768 ,0.00144 ,0.00062 - +,0.25604 ,0.08399 ,0.05653 ,0.00735 ,0.00141 ,0.00063 - +,0.24773 ,0.08082 ,0.05242 ,0.00704 ,0.00138 ,0.00064 - +,0.23994 ,0.07787 ,0.04880 ,0.00676 ,0.00134 ,0.00064 - +,0.23270 ,0.07515 ,0.04558 ,0.00650 ,0.00131 ,0.00064 - +,0.22586 ,0.07259 ,0.04273 ,0.00625 ,0.00128 ,0.00063/ - DATA ((F(I,26,K),I=1,6),K=1,19)/ - + 0.48211 ,0.17317 ,0.29228 ,0.01325 ,0.00020 ,0.00000 - +,0.44249 ,0.15597 ,0.23005 ,0.01222 ,0.00063 ,0.00000 - +,0.40984 ,0.14214 ,0.18623 ,0.01130 ,0.00088 ,-0.00001 - +,0.38237 ,0.13075 ,0.15420 ,0.01049 ,0.00102 ,0.00000 - +,0.35881 ,0.12117 ,0.13011 ,0.00976 ,0.00109 ,0.00001 - +,0.33831 ,0.11297 ,0.11147 ,0.00910 ,0.00113 ,0.00009 - +,0.32023 ,0.10585 ,0.09673 ,0.00850 ,0.00114 ,0.00020 - +,0.30410 ,0.09958 ,0.08484 ,0.00797 ,0.00114 ,0.00027 - +,0.28963 ,0.09403 ,0.07513 ,0.00749 ,0.00113 ,0.00033 - +,0.27656 ,0.08906 ,0.06709 ,0.00707 ,0.00111 ,0.00036 - +,0.26465 ,0.08459 ,0.06036 ,0.00669 ,0.00109 ,0.00039 - +,0.25378 ,0.08055 ,0.05467 ,0.00634 ,0.00107 ,0.00041 - +,0.24383 ,0.07688 ,0.04980 ,0.00603 ,0.00104 ,0.00042 - +,0.23463 ,0.07352 ,0.04562 ,0.00574 ,0.00101 ,0.00043 - +,0.22614 ,0.07045 ,0.04200 ,0.00548 ,0.00099 ,0.00044 - +,0.21828 ,0.06762 ,0.03883 ,0.00524 ,0.00096 ,0.00044 - +,0.21094 ,0.06500 ,0.03606 ,0.00502 ,0.00094 ,0.00044 - +,0.20412 ,0.06258 ,0.03360 ,0.00481 ,0.00091 ,0.00044 - +,0.19772 ,0.06032 ,0.03141 ,0.00462 ,0.00088 ,0.00044/ - DATA ((F(I,27,K),I=1,6),K=1,19)/ - + 0.44659 ,0.15244 ,0.23884 ,0.01048 ,0.00015 ,0.00000 - +,0.40698 ,0.13627 ,0.18512 ,0.00957 ,0.00046 ,0.00000 - +,0.37463 ,0.12338 ,0.14796 ,0.00878 ,0.00064 ,-0.00001 - +,0.34761 ,0.11284 ,0.12120 ,0.00809 ,0.00074 ,0.00000 - +,0.32460 ,0.10404 ,0.10132 ,0.00748 ,0.00079 ,0.00001 - +,0.30470 ,0.09655 ,0.08611 ,0.00694 ,0.00081 ,0.00007 - +,0.28724 ,0.09007 ,0.07419 ,0.00645 ,0.00082 ,0.00014 - +,0.27175 ,0.08440 ,0.06466 ,0.00602 ,0.00081 ,0.00019 - +,0.25791 ,0.07940 ,0.05693 ,0.00564 ,0.00080 ,0.00023 - +,0.24546 ,0.07495 ,0.05058 ,0.00530 ,0.00079 ,0.00026 - +,0.23416 ,0.07096 ,0.04530 ,0.00500 ,0.00077 ,0.00028 - +,0.22390 ,0.06736 ,0.04086 ,0.00473 ,0.00075 ,0.00029 - +,0.21452 ,0.06411 ,0.03708 ,0.00448 ,0.00073 ,0.00029 - +,0.20589 ,0.06114 ,0.03385 ,0.00426 ,0.00071 ,0.00030 - +,0.19795 ,0.05843 ,0.03106 ,0.00405 ,0.00069 ,0.00030 - +,0.19062 ,0.05595 ,0.02863 ,0.00387 ,0.00067 ,0.00030 - +,0.18379 ,0.05365 ,0.02652 ,0.00369 ,0.00065 ,0.00030 - +,0.17746 ,0.05154 ,0.02464 ,0.00353 ,0.00063 ,0.00030 - +,0.17154 ,0.04957 ,0.02299 ,0.00339 ,0.00061 ,0.00030/ - DATA ((F(I,28,K),I=1,6),K=1,19)/ - + 0.40990 ,0.13265 ,0.19364 ,0.00822 ,0.00010 ,0.00000 - +,0.37089 ,0.11769 ,0.14784 ,0.00743 ,0.00033 ,-0.00001 - +,0.33932 ,0.10587 ,0.11669 ,0.00676 ,0.00046 ,-0.00001 - +,0.31310 ,0.09628 ,0.09458 ,0.00619 ,0.00053 ,-0.00001 - +,0.29097 ,0.08831 ,0.07835 ,0.00570 ,0.00056 ,0.00000 - +,0.27194 ,0.08158 ,0.06606 ,0.00525 ,0.00058 ,0.00005 - +,0.25529 ,0.07578 ,0.05652 ,0.00487 ,0.00058 ,0.00010 - +,0.24061 ,0.07074 ,0.04896 ,0.00452 ,0.00057 ,0.00013 - +,0.22757 ,0.06630 ,0.04286 ,0.00422 ,0.00056 ,0.00016 - +,0.21587 ,0.06237 ,0.03789 ,0.00395 ,0.00055 ,0.00018 - +,0.20530 ,0.05886 ,0.03380 ,0.00371 ,0.00054 ,0.00019 - +,0.19573 ,0.05571 ,0.03036 ,0.00350 ,0.00052 ,0.00020 - +,0.18701 ,0.05286 ,0.02744 ,0.00331 ,0.00051 ,0.00020 - +,0.17902 ,0.05028 ,0.02497 ,0.00314 ,0.00049 ,0.00021 - +,0.17169 ,0.04793 ,0.02284 ,0.00298 ,0.00047 ,0.00021 - +,0.16494 ,0.04578 ,0.02099 ,0.00283 ,0.00046 ,0.00021 - +,0.15867 ,0.04379 ,0.01939 ,0.00270 ,0.00044 ,0.00021 - +,0.15288 ,0.04197 ,0.01797 ,0.00258 ,0.00043 ,0.00020 - +,0.14746 ,0.04028 ,0.01673 ,0.00246 ,0.00042 ,0.00020/ - DATA ((F(I,29,K),I=1,6),K=1,19)/ - + 0.37267 ,0.11403 ,0.15564 ,0.00637 ,0.00007 ,0.00000 - +,0.33480 ,0.10042 ,0.11707 ,0.00571 ,0.00024 ,-0.00001 - +,0.30440 ,0.08975 ,0.09127 ,0.00515 ,0.00033 ,-0.00001 - +,0.27935 ,0.08116 ,0.07320 ,0.00469 ,0.00037 ,0.00000 - +,0.25834 ,0.07407 ,0.06010 ,0.00429 ,0.00039 ,0.00000 - +,0.24036 ,0.06810 ,0.05028 ,0.00393 ,0.00040 ,0.00003 - +,0.22473 ,0.06300 ,0.04272 ,0.00363 ,0.00040 ,0.00007 - +,0.21101 ,0.05857 ,0.03678 ,0.00336 ,0.00040 ,0.00009 - +,0.19886 ,0.05470 ,0.03203 ,0.00312 ,0.00039 ,0.00011 - +,0.18802 ,0.05128 ,0.02818 ,0.00291 ,0.00038 ,0.00012 - +,0.17826 ,0.04823 ,0.02502 ,0.00273 ,0.00037 ,0.00013 - +,0.16945 ,0.04551 ,0.02239 ,0.00256 ,0.00036 ,0.00014 - +,0.16146 ,0.04307 ,0.02017 ,0.00242 ,0.00035 ,0.00014 - +,0.15416 ,0.04085 ,0.01829 ,0.00228 ,0.00033 ,0.00014 - +,0.14747 ,0.03884 ,0.01668 ,0.00216 ,0.00032 ,0.00014 - +,0.14134 ,0.03700 ,0.01529 ,0.00205 ,0.00031 ,0.00014 - +,0.13566 ,0.03532 ,0.01409 ,0.00195 ,0.00030 ,0.00014 - +,0.13042 ,0.03377 ,0.01303 ,0.00186 ,0.00029 ,0.00014 - +,0.12554 ,0.03234 ,0.01210 ,0.00177 ,0.00028 ,0.00014/ - DATA ((F(I,30,K),I=1,6),K=1,19)/ - + 0.33554 ,0.09682 ,0.12392 ,0.00490 ,0.00005 ,0.00000 - +,0.29929 ,0.08463 ,0.09185 ,0.00435 ,0.00017 ,0.00000 - +,0.27043 ,0.07515 ,0.07073 ,0.00389 ,0.00023 ,0.00000 - +,0.24682 ,0.06757 ,0.05615 ,0.00351 ,0.00026 ,0.00000 - +,0.22710 ,0.06135 ,0.04568 ,0.00319 ,0.00028 ,0.00000 - +,0.21034 ,0.05615 ,0.03793 ,0.00292 ,0.00028 ,0.00002 - +,0.19586 ,0.05172 ,0.03201 ,0.00268 ,0.00028 ,0.00005 - +,0.18321 ,0.04790 ,0.02740 ,0.00247 ,0.00027 ,0.00006 - +,0.17205 ,0.04456 ,0.02373 ,0.00229 ,0.00027 ,0.00007 - +,0.16212 ,0.04163 ,0.02077 ,0.00213 ,0.00026 ,0.00008 - +,0.15323 ,0.03904 ,0.01836 ,0.00199 ,0.00025 ,0.00009 - +,0.14523 ,0.03672 ,0.01637 ,0.00186 ,0.00024 ,0.00009 - +,0.13800 ,0.03465 ,0.01469 ,0.00175 ,0.00023 ,0.00009 - +,0.13142 ,0.03278 ,0.01329 ,0.00165 ,0.00023 ,0.00009 - +,0.12540 ,0.03108 ,0.01208 ,0.00155 ,0.00022 ,0.00009 - +,0.11989 ,0.02954 ,0.01104 ,0.00147 ,0.00021 ,0.00010 - +,0.11480 ,0.02813 ,0.01015 ,0.00140 ,0.00020 ,0.00009 - +,0.11012 ,0.02684 ,0.00937 ,0.00133 ,0.00019 ,0.00009 - +,0.10578 ,0.02565 ,0.00868 ,0.00127 ,0.00019 ,0.00009/ - DATA ((F(I,31,K),I=1,6),K=1,19)/ - + 0.29901 ,0.08112 ,0.09765 ,0.00371 ,0.00004 ,0.00000 - +,0.26477 ,0.07038 ,0.07131 ,0.00326 ,0.00012 ,0.00000 - +,0.23773 ,0.06210 ,0.05425 ,0.00290 ,0.00016 ,0.00000 - +,0.21577 ,0.05551 ,0.04262 ,0.00260 ,0.00018 ,0.00000 - +,0.19755 ,0.05014 ,0.03437 ,0.00235 ,0.00019 ,0.00000 - +,0.18214 ,0.04568 ,0.02832 ,0.00214 ,0.00019 ,0.00001 - +,0.16890 ,0.04189 ,0.02374 ,0.00195 ,0.00019 ,0.00003 - +,0.15738 ,0.03864 ,0.02020 ,0.00179 ,0.00019 ,0.00004 - +,0.14726 ,0.03582 ,0.01740 ,0.00165 ,0.00018 ,0.00005 - +,0.13830 ,0.03335 ,0.01516 ,0.00153 ,0.00017 ,0.00005 - +,0.13030 ,0.03117 ,0.01335 ,0.00142 ,0.00017 ,0.00006 - +,0.12313 ,0.02923 ,0.01185 ,0.00133 ,0.00016 ,0.00006 - +,0.11667 ,0.02750 ,0.01061 ,0.00125 ,0.00016 ,0.00006 - +,0.11081 ,0.02594 ,0.00956 ,0.00117 ,0.00015 ,0.00006 - +,0.10546 ,0.02454 ,0.00867 ,0.00110 ,0.00015 ,0.00006 - +,0.10058 ,0.02327 ,0.00790 ,0.00104 ,0.00014 ,0.00006 - +,0.09609 ,0.02210 ,0.00725 ,0.00099 ,0.00013 ,0.00006 - +,0.09198 ,0.02104 ,0.00667 ,0.00094 ,0.00013 ,0.00006 - +,0.08816 ,0.02006 ,0.00617 ,0.00089 ,0.00012 ,0.00006/ - DATA ((F(I,32,K),I=1,6),K=1,19)/ - + 0.26359 ,0.06703 ,0.07607 ,0.00277 ,0.00003 ,0.00000 - +,0.23168 ,0.05771 ,0.05473 ,0.00242 ,0.00008 ,0.00000 - +,0.20668 ,0.05058 ,0.04112 ,0.00213 ,0.00011 ,0.00000 - +,0.18653 ,0.04496 ,0.03198 ,0.00190 ,0.00012 ,0.00000 - +,0.16991 ,0.04040 ,0.02556 ,0.00171 ,0.00013 ,0.00000 - +,0.15594 ,0.03663 ,0.02090 ,0.00154 ,0.00013 ,0.00001 - +,0.14400 ,0.03344 ,0.01740 ,0.00140 ,0.00013 ,0.00002 - +,0.13364 ,0.03073 ,0.01472 ,0.00128 ,0.00013 ,0.00003 - +,0.12459 ,0.02838 ,0.01262 ,0.00118 ,0.00012 ,0.00004 - +,0.11661 ,0.02633 ,0.01094 ,0.00109 ,0.00012 ,0.00004 - +,0.10951 ,0.02452 ,0.00959 ,0.00101 ,0.00011 ,0.00004 - +,0.10317 ,0.02293 ,0.00849 ,0.00094 ,0.00011 ,0.00004 - +,0.09748 ,0.02151 ,0.00757 ,0.00088 ,0.00010 ,0.00004 - +,0.09233 ,0.02024 ,0.00680 ,0.00082 ,0.00010 ,0.00004 - +,0.08765 ,0.01909 ,0.00615 ,0.00077 ,0.00009 ,0.00004 - +,0.08340 ,0.01805 ,0.00559 ,0.00073 ,0.00009 ,0.00004 - +,0.07949 ,0.01710 ,0.00511 ,0.00069 ,0.00009 ,0.00004 - +,0.07591 ,0.01625 ,0.00470 ,0.00065 ,0.00008 ,0.00004 - +,0.07260 ,0.01546 ,0.00434 ,0.00062 ,0.00008 ,0.00004/ - DATA ((F(I,33,K),I=1,6),K=1,19)/ - + 0.22968 ,0.05458 ,0.05854 ,0.00205 ,0.00002 ,0.00000 - +,0.20038 ,0.04663 ,0.04150 ,0.00176 ,0.00005 ,0.00000 - +,0.17759 ,0.04060 ,0.03080 ,0.00154 ,0.00007 ,0.00000 - +,0.15934 ,0.03589 ,0.02369 ,0.00137 ,0.00008 ,0.00000 - +,0.14441 ,0.03207 ,0.01877 ,0.00122 ,0.00008 ,0.00000 - +,0.13191 ,0.02894 ,0.01524 ,0.00110 ,0.00009 ,0.00000 - +,0.12129 ,0.02631 ,0.01260 ,0.00099 ,0.00008 ,0.00001 - +,0.11212 ,0.02407 ,0.01059 ,0.00091 ,0.00008 ,0.00001 - +,0.10414 ,0.02215 ,0.00903 ,0.00083 ,0.00008 ,0.00002 - +,0.09714 ,0.02047 ,0.00780 ,0.00076 ,0.00007 ,0.00002 - +,0.09092 ,0.01901 ,0.00681 ,0.00070 ,0.00007 ,0.00003 - +,0.08540 ,0.01772 ,0.00600 ,0.00065 ,0.00007 ,0.00003 - +,0.08046 ,0.01657 ,0.00534 ,0.00061 ,0.00007 ,0.00003 - +,0.07599 ,0.01554 ,0.00478 ,0.00057 ,0.00006 ,0.00002 - +,0.07195 ,0.01462 ,0.00431 ,0.00053 ,0.00006 ,0.00002 - +,0.06828 ,0.01380 ,0.00391 ,0.00050 ,0.00006 ,0.00003 - +,0.06493 ,0.01304 ,0.00357 ,0.00047 ,0.00006 ,0.00003 - +,0.06186 ,0.01236 ,0.00327 ,0.00044 ,0.00006 ,0.00003 - +,0.05904 ,0.01173 ,0.00301 ,0.00042 ,0.00005 ,0.00003/ - DATA ((F(I,34,K),I=1,6),K=1,19)/ - + 0.19765 ,0.04372 ,0.04441 ,0.00148 ,0.00001 ,0.00000 - +,0.17111 ,0.03707 ,0.03101 ,0.00127 ,0.00004 ,0.00000 - +,0.15065 ,0.03206 ,0.02273 ,0.00110 ,0.00005 ,0.00000 - +,0.13437 ,0.02817 ,0.01731 ,0.00097 ,0.00005 ,0.00000 - +,0.12114 ,0.02504 ,0.01359 ,0.00086 ,0.00006 ,0.00000 - +,0.11013 ,0.02249 ,0.01095 ,0.00077 ,0.00006 ,0.00000 - +,0.10081 ,0.02035 ,0.00899 ,0.00069 ,0.00005 ,0.00001 - +,0.09282 ,0.01854 ,0.00752 ,0.00063 ,0.00005 ,0.00001 - +,0.08588 ,0.01700 ,0.00638 ,0.00058 ,0.00005 ,0.00001 - +,0.07982 ,0.01565 ,0.00548 ,0.00053 ,0.00005 ,0.00001 - +,0.07447 ,0.01449 ,0.00477 ,0.00048 ,0.00005 ,0.00002 - +,0.06972 ,0.01346 ,0.00419 ,0.00045 ,0.00005 ,0.00002 - +,0.06549 ,0.01255 ,0.00371 ,0.00042 ,0.00004 ,0.00002 - +,0.06168 ,0.01174 ,0.00331 ,0.00039 ,0.00004 ,0.00002 - +,0.05825 ,0.01101 ,0.00298 ,0.00036 ,0.00004 ,0.00001 - +,0.05514 ,0.01036 ,0.00269 ,0.00034 ,0.00004 ,0.00002 - +,0.05230 ,0.00977 ,0.00245 ,0.00032 ,0.00004 ,0.00002 - +,0.04971 ,0.00924 ,0.00225 ,0.00030 ,0.00003 ,0.00002 - +,0.04734 ,0.00875 ,0.00207 ,0.00028 ,0.00003 ,0.00002/ - DATA ((F(I,35,K),I=1,6),K=1,19)/ - + 0.16776 ,0.03442 ,0.03318 ,0.00106 ,0.00001 ,0.00000 - +,0.14409 ,0.02895 ,0.02281 ,0.00089 ,0.00002 ,0.00000 - +,0.12600 ,0.02486 ,0.01651 ,0.00077 ,0.00003 ,0.00000 - +,0.11171 ,0.02171 ,0.01243 ,0.00067 ,0.00003 ,0.00000 - +,0.10017 ,0.01919 ,0.00968 ,0.00059 ,0.00003 ,0.00000 - +,0.09063 ,0.01714 ,0.00773 ,0.00053 ,0.00003 ,0.00000 - +,0.08259 ,0.01545 ,0.00631 ,0.00047 ,0.00003 ,0.00001 - +,0.07572 ,0.01402 ,0.00525 ,0.00043 ,0.00003 ,0.00001 - +,0.06979 ,0.01280 ,0.00443 ,0.00039 ,0.00003 ,0.00001 - +,0.06462 ,0.01175 ,0.00379 ,0.00035 ,0.00003 ,0.00001 - +,0.06009 ,0.01083 ,0.00328 ,0.00033 ,0.00003 ,0.00001 - +,0.05608 ,0.01003 ,0.00287 ,0.00030 ,0.00003 ,0.00001 - +,0.05251 ,0.00932 ,0.00254 ,0.00028 ,0.00003 ,0.00001 - +,0.04931 ,0.00870 ,0.00226 ,0.00026 ,0.00003 ,0.00001 - +,0.04644 ,0.00814 ,0.00202 ,0.00024 ,0.00002 ,0.00001 - +,0.04385 ,0.00763 ,0.00183 ,0.00022 ,0.00002 ,0.00001 - +,0.04148 ,0.00718 ,0.00166 ,0.00021 ,0.00002 ,0.00001 - +,0.03934 ,0.00677 ,0.00152 ,0.00020 ,0.00002 ,0.00001 - +,0.03737 ,0.00640 ,0.00139 ,0.00019 ,0.00002 ,0.00001/ - DATA ((F(I,36,K),I=1,6),K=1,19)/ - + 0.14028 ,0.02658 ,0.02436 ,0.00074 ,0.00001 ,0.00000 - +,0.11952 ,0.02217 ,0.01648 ,0.00062 ,0.00001 ,0.00000 - +,0.10378 ,0.01891 ,0.01178 ,0.00053 ,0.00002 ,0.00000 - +,0.09145 ,0.01641 ,0.00878 ,0.00046 ,0.00002 ,0.00000 - +,0.08154 ,0.01442 ,0.00677 ,0.00040 ,0.00002 ,0.00000 - +,0.07340 ,0.01282 ,0.00537 ,0.00036 ,0.00002 ,0.00000 - +,0.06658 ,0.01150 ,0.00435 ,0.00032 ,0.00002 ,0.00000 - +,0.06078 ,0.01039 ,0.00359 ,0.00028 ,0.00002 ,0.00000 - +,0.05580 ,0.00944 ,0.00302 ,0.00026 ,0.00002 ,0.00000 - +,0.05148 ,0.00864 ,0.00257 ,0.00023 ,0.00002 ,0.00000 - +,0.04769 ,0.00793 ,0.00222 ,0.00021 ,0.00002 ,0.00000 - +,0.04436 ,0.00732 ,0.00193 ,0.00020 ,0.00002 ,0.00001 - +,0.04141 ,0.00679 ,0.00170 ,0.00018 ,0.00001 ,0.00001 - +,0.03877 ,0.00631 ,0.00151 ,0.00017 ,0.00001 ,0.00001 - +,0.03641 ,0.00589 ,0.00135 ,0.00016 ,0.00001 ,0.00001 - +,0.03429 ,0.00551 ,0.00122 ,0.00015 ,0.00001 ,0.00001 - +,0.03235 ,0.00517 ,0.00110 ,0.00014 ,0.00001 ,0.00001 - +,0.03060 ,0.00486 ,0.00101 ,0.00013 ,0.00001 ,0.00001 - +,0.02900 ,0.00458 ,0.00092 ,0.00012 ,0.00001 ,0.00001/ - DATA ((F(I,37,K),I=1,6),K=1,19)/ - + 0.09310 ,0.01482 ,0.01233 ,0.00033 ,0.00000 ,0.00000 - +,0.07799 ,0.01215 ,0.00808 ,0.00027 ,0.00000 ,0.00000 - +,0.06672 ,0.01021 ,0.00562 ,0.00023 ,0.00001 ,0.00000 - +,0.05803 ,0.00874 ,0.00409 ,0.00020 ,0.00001 ,0.00000 - +,0.05114 ,0.00759 ,0.00310 ,0.00017 ,0.00001 ,0.00000 - +,0.04554 ,0.00668 ,0.00242 ,0.00015 ,0.00001 ,0.00000 - +,0.04091 ,0.00593 ,0.00193 ,0.00013 ,0.00001 ,0.00000 - +,0.03701 ,0.00531 ,0.00158 ,0.00012 ,0.00001 ,0.00000 - +,0.03369 ,0.00478 ,0.00131 ,0.00010 ,0.00001 ,0.00000 - +,0.03083 ,0.00434 ,0.00111 ,0.00009 ,0.00001 ,0.00000 - +,0.02835 ,0.00396 ,0.00095 ,0.00009 ,0.00001 ,0.00000 - +,0.02619 ,0.00363 ,0.00082 ,0.00008 ,0.00001 ,0.00000 - +,0.02428 ,0.00334 ,0.00072 ,0.00007 ,0.00001 ,0.00000 - +,0.02259 ,0.00309 ,0.00063 ,0.00007 ,0.00001 ,0.00000 - +,0.02109 ,0.00286 ,0.00056 ,0.00006 ,0.00000 ,0.00000 - +,0.01974 ,0.00266 ,0.00050 ,0.00006 ,0.00001 ,0.00000 - +,0.01853 ,0.00248 ,0.00046 ,0.00005 ,0.00001 ,0.00000 - +,0.01744 ,0.00232 ,0.00041 ,0.00005 ,0.00001 ,0.00000 - +,0.01644 ,0.00218 ,0.00038 ,0.00005 ,0.00000 ,0.00000/ - DATA ((F(I,38,K),I=1,6),K=1,19)/ - + 0.05675 ,0.00740 ,0.00563 ,0.00013 ,0.00000 ,0.00000 - +,0.04666 ,0.00596 ,0.00356 ,0.00011 ,0.00000 ,0.00000 - +,0.03928 ,0.00492 ,0.00241 ,0.00009 ,0.00000 ,0.00000 - +,0.03367 ,0.00415 ,0.00171 ,0.00008 ,0.00000 ,0.00000 - +,0.02930 ,0.00356 ,0.00127 ,0.00006 ,0.00000 ,0.00000 - +,0.02579 ,0.00310 ,0.00097 ,0.00006 ,0.00000 ,0.00000 - +,0.02292 ,0.00272 ,0.00077 ,0.00005 ,0.00000 ,0.00000 - +,0.02053 ,0.00241 ,0.00062 ,0.00004 ,0.00000 ,0.00000 - +,0.01852 ,0.00215 ,0.00051 ,0.00004 ,0.00000 ,0.00000 - +,0.01680 ,0.00194 ,0.00043 ,0.00003 ,0.00000 ,0.00000 - +,0.01532 ,0.00175 ,0.00036 ,0.00003 ,0.00000 ,0.00000 - +,0.01404 ,0.00159 ,0.00031 ,0.00003 ,0.00000 ,0.00000 - +,0.01293 ,0.00146 ,0.00027 ,0.00003 ,0.00000 ,0.00000 - +,0.01195 ,0.00134 ,0.00024 ,0.00002 ,0.00000 ,0.00000 - +,0.01108 ,0.00123 ,0.00021 ,0.00002 ,0.00000 ,0.00000 - +,0.01031 ,0.00114 ,0.00019 ,0.00002 ,0.00000 ,0.00000 - +,0.00962 ,0.00105 ,0.00017 ,0.00002 ,0.00000 ,0.00000 - +,0.00900 ,0.00098 ,0.00015 ,0.00002 ,0.00000 ,0.00000 - +,0.00844 ,0.00092 ,0.00014 ,0.00002 ,0.00000 ,0.00000/ - DATA ((F(I,39,K),I=1,6),K=1,19)/ - + 0.03085 ,0.00319 ,0.00223 ,0.00005 ,0.00000 ,0.00000 - +,0.02484 ,0.00251 ,0.00135 ,0.00004 ,0.00000 ,0.00000 - +,0.02054 ,0.00204 ,0.00089 ,0.00003 ,0.00000 ,0.00000 - +,0.01733 ,0.00169 ,0.00062 ,0.00002 ,0.00000 ,0.00000 - +,0.01486 ,0.00143 ,0.00045 ,0.00002 ,0.00000 ,0.00000 - +,0.01291 ,0.00123 ,0.00034 ,0.00002 ,0.00000 ,0.00000 - +,0.01134 ,0.00107 ,0.00026 ,0.00001 ,0.00000 ,0.00000 - +,0.01004 ,0.00093 ,0.00021 ,0.00001 ,0.00000 ,0.00000 - +,0.00896 ,0.00083 ,0.00017 ,0.00001 ,0.00000 ,0.00000 - +,0.00805 ,0.00074 ,0.00014 ,0.00001 ,0.00000 ,0.00000 - +,0.00728 ,0.00066 ,0.00012 ,0.00001 ,0.00000 ,0.00000 - +,0.00661 ,0.00059 ,0.00010 ,0.00001 ,0.00000 ,0.00000 - +,0.00604 ,0.00054 ,0.00009 ,0.00001 ,0.00000 ,0.00000 - +,0.00554 ,0.00049 ,0.00008 ,0.00001 ,0.00000 ,0.00000 - +,0.00510 ,0.00045 ,0.00007 ,0.00001 ,0.00000 ,0.00000 - +,0.00471 ,0.00041 ,0.00006 ,0.00001 ,0.00000 ,0.00000 - +,0.00436 ,0.00038 ,0.00005 ,0.00001 ,0.00000 ,0.00000 - +,0.00405 ,0.00035 ,0.00005 ,0.00000 ,0.00000 ,0.00000 - +,0.00378 ,0.00032 ,0.00004 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,40,K),I=1,6),K=1,19)/ - + 0.01426 ,0.00111 ,0.00072 ,0.00001 ,0.00000 ,0.00000 - +,0.01121 ,0.00085 ,0.00042 ,0.00001 ,0.00000 ,0.00000 - +,0.00907 ,0.00068 ,0.00026 ,0.00001 ,0.00000 ,0.00000 - +,0.00751 ,0.00055 ,0.00018 ,0.00001 ,0.00000 ,0.00000 - +,0.00633 ,0.00046 ,0.00013 ,0.00000 ,0.00000 ,0.00000 - +,0.00542 ,0.00039 ,0.00009 ,0.00000 ,0.00000 ,0.00000 - +,0.00469 ,0.00033 ,0.00007 ,0.00000 ,0.00000 ,0.00000 - +,0.00410 ,0.00029 ,0.00006 ,0.00000 ,0.00000 ,0.00000 - +,0.00362 ,0.00025 ,0.00004 ,0.00000 ,0.00000 ,0.00000 - +,0.00321 ,0.00022 ,0.00004 ,0.00000 ,0.00000 ,0.00000 - +,0.00287 ,0.00020 ,0.00003 ,0.00000 ,0.00000 ,0.00000 - +,0.00259 ,0.00018 ,0.00003 ,0.00000 ,0.00000 ,0.00000 - +,0.00234 ,0.00016 ,0.00002 ,0.00000 ,0.00000 ,0.00000 - +,0.00213 ,0.00014 ,0.00002 ,0.00000 ,0.00000 ,0.00000 - +,0.00194 ,0.00013 ,0.00002 ,0.00000 ,0.00000 ,0.00000 - +,0.00178 ,0.00012 ,0.00002 ,0.00000 ,0.00000 ,0.00000 - +,0.00163 ,0.00011 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00151 ,0.00010 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00139 ,0.00009 ,0.00001 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,41,K),I=1,6),K=1,19)/ - + 0.00115 ,0.00004 ,0.00002 ,0.00000 ,0.00000 ,0.00000 - +,0.00085 ,0.00003 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00064 ,0.00002 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00051 ,0.00002 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00041 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00033 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00028 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00023 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00020 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00017 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00014 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00013 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00011 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00010 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00009 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00008 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00007 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00006 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00005 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA XX/1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-4,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,4,5,0,0/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,41 - DO 20 M=1,19 -C READ(65,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(6,N,M) - DO 25 I=1,6 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,15 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=1,5 - DO 30 K=1,19 - 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K)) - 50 FORMAT(6F10.5) - DO 40 I=1,6 - DO 40 M=1,19 - 40 F(I,42,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,6 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.16) GOTO 65 - IF(I.EQ.6) GOTO 65 - FAC=(ONED-B)*F(I,16,M)+B*F(I,16,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - SEA=G(4) - STR=G(4) - CHM=G(5) - GL =G(3) - BOT=G(6) - RETURN - END diff --git a/PDF/spdf/struce.F b/PDF/spdf/struce.F deleted file mode 100644 index f65653a3c8a..00000000000 --- a/PDF/spdf/struce.F +++ /dev/null @@ -1,902 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:50 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:06 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C----------------------------------------------------------------------- - SUBROUTINE STRUCE(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) -C :::::::::::: MARTIN ROBERTS STIRLING :::::SOFT GLUE:::: 91 MEV::: -#include "pdf/impdp.inc" - PARAMETER(NX=42) - PARAMETER(NTENTH=21) - DIMENSION F(6,NX,19),G(6),XX(NX),N0(6) - DATA ((F(I,1,K),I=1,6),K=1,19)/ - + 0.03099 ,0.00427 ,4.49202 ,0.17286 ,0.02370 ,0.00000 - +,0.03261 ,0.00482 ,10.95195 ,0.30515 ,0.12292 ,0.00000 - +,0.03411 ,0.00534 ,18.41515 ,0.47971 ,0.25382 ,0.00000 - +,0.03550 ,0.00584 ,26.22818 ,0.68684 ,0.40914 ,0.00000 - +,0.03680 ,0.00632 ,34.35387 ,0.92069 ,0.58581 ,0.00528 - +,0.03803 ,0.00678 ,42.69341 ,1.15095 ,0.78075 ,0.09440 - +,0.03919 ,0.00723 ,51.05495 ,1.34942 ,0.98892 ,0.33188 - +,0.04031 ,0.00766 ,59.49849 ,1.56763 ,1.21000 ,0.56180 - +,0.04138 ,0.00809 ,68.00484 ,1.79810 ,1.44264 ,0.80109 - +,0.04240 ,0.00850 ,76.56488 ,2.03894 ,1.68591 ,1.05189 - +,0.04339 ,0.00890 ,84.99364 ,2.28523 ,1.93433 ,1.30694 - +,0.04434 ,0.00929 ,93.31850 ,2.53646 ,2.18758 ,1.56646 - +,0.04526 ,0.00968,101.70302 ,2.79662 ,2.44965 ,1.83445 - +,0.04615 ,0.01005,109.80914 ,3.05548 ,2.71029 ,2.10067 - +,0.04701 ,0.01042,117.92491 ,3.32077 ,2.97726 ,2.37293 - +,0.04785 ,0.01078,125.87735 ,3.58691 ,3.24500 ,2.64567 - +,0.04866 ,0.01113,133.72614 ,3.85523 ,3.51483 ,2.92027 - +,0.04945 ,0.01148,141.44716 ,4.12455 ,3.78559 ,3.19558 - +,0.05022 ,0.01182,149.05557 ,4.39499 ,4.05740 ,3.47172/ - DATA ((F(I,2,K),I=1,6),K=1,19)/ - + 0.04192 ,0.00692 ,4.28790 ,0.17391 ,0.02183 ,0.00000 - +,0.04396 ,0.00773 ,9.45952 ,0.29042 ,0.10922 ,0.00000 - +,0.04583 ,0.00850 ,15.10009 ,0.43655 ,0.21882 ,0.00000 - +,0.04756 ,0.00923 ,20.79816 ,0.60357 ,0.34408 ,0.00000 - +,0.04918 ,0.00992 ,26.56451 ,0.78669 ,0.48243 ,0.00410 - +,0.05069 ,0.01058 ,32.35019 ,0.96281 ,0.63145 ,0.07187 - +,0.05213 ,0.01122 ,38.03772 ,1.11115 ,0.78742 ,0.25076 - +,0.05350 ,0.01183 ,43.68176 ,1.27152 ,0.95017 ,0.42071 - +,0.05481 ,0.01243 ,49.27914 ,1.43832 ,1.11878 ,0.59481 - +,0.05606 ,0.01301 ,54.83238 ,1.61020 ,1.29267 ,0.77483 - +,0.05726 ,0.01357 ,60.22556 ,1.78375 ,1.46801 ,0.95559 - +,0.05841 ,0.01412 ,65.48492 ,1.95877 ,1.64472 ,1.13743 - +,0.05952 ,0.01465 ,70.72456 ,2.13813 ,1.82567 ,1.32324 - +,0.06060 ,0.01517 ,75.72868 ,2.31480 ,2.00384 ,1.50599 - +,0.06163 ,0.01567 ,80.69067 ,2.49426 ,2.18472 ,1.69120 - +,0.06263 ,0.01616 ,85.50298 ,2.67274 ,2.36454 ,1.87514 - +,0.06361 ,0.01664 ,90.20808 ,2.85123 ,2.54432 ,2.05884 - +,0.06455 ,0.01711 ,94.79483 ,3.02905 ,2.72336 ,2.24161 - +,0.06546 ,0.01757 ,99.27603 ,3.20632 ,2.90180 ,2.42362/ - DATA ((F(I,3,K),I=1,6),K=1,19)/ - + 0.05642 ,0.01120 ,4.09155 ,0.17421 ,0.01986 ,0.00000 - +,0.05896 ,0.01240 ,8.16877 ,0.27556 ,0.09591 ,0.00000 - +,0.06128 ,0.01351 ,12.37832 ,0.39645 ,0.18662 ,0.00000 - +,0.06342 ,0.01456 ,16.48587 ,0.52963 ,0.28654 ,0.00000 - +,0.06541 ,0.01555 ,20.53108 ,0.67148 ,0.39375 ,0.00315 - +,0.06727 ,0.01650 ,24.49818 ,0.80475 ,0.50650 ,0.05418 - +,0.06902 ,0.01740 ,28.32004 ,0.91441 ,0.62216 ,0.18771 - +,0.07068 ,0.01826 ,32.04518 ,1.03101 ,0.74075 ,0.31217 - +,0.07227 ,0.01910 ,35.68001 ,1.15042 ,0.86173 ,0.43768 - +,0.07378 ,0.01990 ,39.23312 ,1.27175 ,0.98476 ,0.56571 - +,0.07522 ,0.02068 ,42.63412 ,1.39271 ,1.10725 ,0.69265 - +,0.07660 ,0.02143 ,45.90637 ,1.51329 ,1.22927 ,0.81887 - +,0.07793 ,0.02216 ,49.12941 ,1.63556 ,1.35291 ,0.94649 - +,0.07921 ,0.02286 ,52.16718 ,1.75477 ,1.47341 ,1.07076 - +,0.08044 ,0.02355 ,55.14877 ,1.87476 ,1.59463 ,1.19554 - +,0.08163 ,0.02421 ,58.00841 ,1.99305 ,1.71410 ,1.31839 - +,0.08278 ,0.02486 ,60.77634 ,2.11039 ,1.83255 ,1.44006 - +,0.08389 ,0.02549 ,63.44807 ,2.22637 ,1.94960 ,1.56019 - +,0.08497 ,0.02610 ,66.03423 ,2.34115 ,2.06540 ,1.67892/ - DATA ((F(I,4,K),I=1,6),K=1,19)/ - + 0.06695 ,0.01484 ,3.97967 ,0.17393 ,0.01866 ,0.00000 - +,0.06983 ,0.01633 ,7.49570 ,0.26668 ,0.08831 ,0.00000 - +,0.07245 ,0.01772 ,11.01711 ,0.37417 ,0.16900 ,0.00000 - +,0.07486 ,0.01901 ,14.38605 ,0.49009 ,0.25601 ,0.00000 - +,0.07708 ,0.02023 ,17.65152 ,0.61151 ,0.34782 ,0.00268 - +,0.07917 ,0.02138 ,20.81090 ,0.72405 ,0.44304 ,0.04568 - +,0.08112 ,0.02248 ,23.81787 ,0.81536 ,0.53959 ,0.15763 - +,0.08298 ,0.02352 ,26.71706 ,0.91152 ,0.63758 ,0.26084 - +,0.08474 ,0.02453 ,29.51817 ,1.00912 ,0.73663 ,0.36395 - +,0.08641 ,0.02550 ,32.23175 ,1.10746 ,0.83654 ,0.46830 - +,0.08801 ,0.02643 ,34.80586 ,1.20478 ,0.93527 ,0.57099 - +,0.08954 ,0.02733 ,37.26187 ,1.30111 ,1.03294 ,0.67242 - +,0.09100 ,0.02820 ,39.66411 ,1.39819 ,1.13129 ,0.77432 - +,0.09241 ,0.02904 ,41.90923 ,1.49226 ,1.22657 ,0.87295 - +,0.09377 ,0.02985 ,44.09908 ,1.58644 ,1.32190 ,0.97146 - +,0.09507 ,0.03064 ,46.18442 ,1.67880 ,1.41535 ,1.06793 - +,0.09633 ,0.03140 ,48.19009 ,1.76996 ,1.50756 ,1.16302 - +,0.09755 ,0.03215 ,50.11394 ,1.85965 ,1.59825 ,1.25645 - +,0.09873 ,0.03287 ,51.96503 ,1.94801 ,1.68757 ,1.34840/ - DATA ((F(I,5,K),I=1,6),K=1,19)/ - + 0.07548 ,0.01811 ,3.90131 ,0.17347 ,0.01779 ,0.00000 - +,0.07862 ,0.01985 ,7.05120 ,0.26025 ,0.08299 ,0.00000 - +,0.08147 ,0.02146 ,10.14143 ,0.35880 ,0.15701 ,0.00000 - +,0.08408 ,0.02295 ,13.05752 ,0.46350 ,0.23564 ,0.00000 - +,0.08649 ,0.02436 ,15.85226 ,0.57188 ,0.31763 ,0.00239 - +,0.08874 ,0.02568 ,18.53004 ,0.67137 ,0.40184 ,0.04035 - +,0.09085 ,0.02694 ,21.05624 ,0.75129 ,0.48652 ,0.13889 - +,0.09285 ,0.02814 ,23.47272 ,0.83488 ,0.57184 ,0.22902 - +,0.09474 ,0.02928 ,25.79056 ,0.91917 ,0.65753 ,0.31847 - +,0.09654 ,0.03039 ,28.02113 ,1.00361 ,0.74345 ,0.40847 - +,0.09825 ,0.03144 ,30.12296 ,1.08672 ,0.82791 ,0.49659 - +,0.09989 ,0.03246 ,32.11586 ,1.16857 ,0.91105 ,0.58319 - +,0.10146 ,0.03344 ,34.05513 ,1.25070 ,0.99440 ,0.66982 - +,0.10296 ,0.03439 ,35.85596 ,1.32993 ,1.07479 ,0.75330 - +,0.10440 ,0.03530 ,37.60429 ,1.40895 ,1.15491 ,0.83635 - +,0.10579 ,0.03619 ,39.26022 ,1.48613 ,1.23315 ,0.91738 - +,0.10713 ,0.03705 ,40.84520 ,1.56205 ,1.31007 ,0.99696 - +,0.10843 ,0.03788 ,42.35826 ,1.63648 ,1.38547 ,1.07490 - +,0.10968 ,0.03868 ,43.80746 ,1.70958 ,1.45950 ,1.15135/ - DATA ((F(I,6,K),I=1,6),K=1,19)/ - + 0.08278 ,0.02113 ,3.84096 ,0.17295 ,0.01710 ,0.00000 - +,0.08612 ,0.02309 ,6.72403 ,0.25517 ,0.07891 ,0.00000 - +,0.08916 ,0.02489 ,9.50925 ,0.34709 ,0.14799 ,0.00000 - +,0.09193 ,0.02656 ,12.11003 ,0.44363 ,0.22054 ,0.00000 - +,0.09449 ,0.02813 ,14.58070 ,0.54267 ,0.29549 ,0.00218 - +,0.09688 ,0.02960 ,16.92995 ,0.63290 ,0.37190 ,0.03659 - +,0.09911 ,0.03099 ,19.13084 ,0.70481 ,0.44824 ,0.12569 - +,0.10122 ,0.03232 ,21.22282 ,0.77963 ,0.52473 ,0.20668 - +,0.10322 ,0.03358 ,23.21786 ,0.85470 ,0.60115 ,0.28666 - +,0.10511 ,0.03480 ,25.12762 ,0.92954 ,0.67744 ,0.36678 - +,0.10692 ,0.03596 ,26.91740 ,1.00291 ,0.75212 ,0.44489 - +,0.10864 ,0.03708 ,28.60596 ,1.07488 ,0.82534 ,0.52137 - +,0.11029 ,0.03816 ,30.24222 ,1.14684 ,0.89850 ,0.59760 - +,0.11186 ,0.03919 ,31.75365 ,1.21602 ,0.96880 ,0.67081 - +,0.11338 ,0.04019 ,33.21550 ,1.28480 ,1.03866 ,0.74342 - +,0.11484 ,0.04115 ,34.59399 ,1.35179 ,1.10668 ,0.81406 - +,0.11624 ,0.04209 ,35.90814 ,1.41749 ,1.17336 ,0.88324 - +,0.11760 ,0.04299 ,37.15768 ,1.48173 ,1.23855 ,0.95082 - +,0.11890 ,0.04387 ,38.34999 ,1.54466 ,1.30239 ,1.01694/ - DATA ((F(I,7,K),I=1,6),K=1,19)/ - + 0.10962 ,0.03407 ,3.65426 ,0.17025 ,0.01491 ,0.00000 - +,0.11367 ,0.03684 ,5.79688 ,0.23871 ,0.06653 ,0.00000 - +,0.11732 ,0.03937 ,7.77773 ,0.31167 ,0.12152 ,0.00000 - +,0.12064 ,0.04170 ,9.56922 ,0.38566 ,0.17728 ,0.00000 - +,0.12369 ,0.04385 ,11.22441 ,0.45946 ,0.23329 ,0.00162 - +,0.12651 ,0.04586 ,12.75993 ,0.52514 ,0.28907 ,0.02669 - +,0.12915 ,0.04775 ,14.16584 ,0.57617 ,0.34370 ,0.09114 - +,0.13162 ,0.04953 ,15.47449 ,0.62838 ,0.39747 ,0.14862 - +,0.13395 ,0.05123 ,16.69864 ,0.67995 ,0.45034 ,0.20446 - +,0.13616 ,0.05284 ,17.84976 ,0.73062 ,0.50236 ,0.25964 - +,0.13826 ,0.05438 ,18.90878 ,0.77962 ,0.55261 ,0.31273 - +,0.14024 ,0.05584 ,19.89053 ,0.82710 ,0.60128 ,0.36409 - +,0.14214 ,0.05725 ,20.82870 ,0.87405 ,0.64936 ,0.41471 - +,0.14395 ,0.05859 ,21.67905 ,0.91865 ,0.69505 ,0.46281 - +,0.14569 ,0.05988 ,22.49089 ,0.96257 ,0.74001 ,0.51005 - +,0.14735 ,0.06112 ,23.24431 ,1.00493 ,0.78335 ,0.55557 - +,0.14894 ,0.06231 ,23.95244 ,1.04608 ,0.82546 ,0.59975 - +,0.15048 ,0.06346 ,24.61615 ,1.08598 ,0.86628 ,0.64254 - +,0.15195 ,0.06458 ,25.24094 ,1.12473 ,0.90592 ,0.68407/ - DATA ((F(I,8,K),I=1,6),K=1,19)/ - + 0.14373 ,0.05464 ,3.46378 ,0.16556 ,0.01265 ,0.00000 - +,0.14853 ,0.05845 ,4.98715 ,0.22091 ,0.05466 ,0.00000 - +,0.15283 ,0.06189 ,6.34362 ,0.27721 ,0.09736 ,0.00000 - +,0.15671 ,0.06501 ,7.53198 ,0.33238 ,0.13919 ,0.00000 - +,0.16026 ,0.06787 ,8.59776 ,0.38588 ,0.18005 ,0.00118 - +,0.16353 ,0.07051 ,9.55987 ,0.43234 ,0.21978 ,0.01906 - +,0.16655 ,0.07297 ,10.41780 ,0.46742 ,0.25791 ,0.06470 - +,0.16939 ,0.07528 ,11.19717 ,0.50271 ,0.29474 ,0.10461 - +,0.17204 ,0.07745 ,11.90974 ,0.53700 ,0.33037 ,0.14275 - +,0.17455 ,0.07950 ,12.56570 ,0.57016 ,0.36490 ,0.17988 - +,0.17691 ,0.08144 ,13.15531 ,0.60177 ,0.39777 ,0.21513 - +,0.17914 ,0.08327 ,13.68989 ,0.63198 ,0.42919 ,0.24878 - +,0.18126 ,0.08503 ,14.19205 ,0.66150 ,0.45987 ,0.28157 - +,0.18328 ,0.08668 ,14.63562 ,0.68918 ,0.48865 ,0.31236 - +,0.18520 ,0.08827 ,15.05217 ,0.71615 ,0.51669 ,0.34229 - +,0.18703 ,0.08979 ,15.43036 ,0.74187 ,0.54342 ,0.37083 - +,0.18879 ,0.09124 ,15.77890 ,0.76661 ,0.56914 ,0.39827 - +,0.19047 ,0.09263 ,16.09903 ,0.79034 ,0.59382 ,0.42460 - +,0.19208 ,0.09397 ,16.39452 ,0.81318 ,0.61757 ,0.44992/ - DATA ((F(I,9,K),I=1,6),K=1,19)/ - + 0.16750 ,0.07172 ,3.34665 ,0.16172 ,0.01131 ,0.00000 - +,0.17274 ,0.07620 ,4.55906 ,0.20975 ,0.04802 ,0.00000 - +,0.17740 ,0.08021 ,5.61746 ,0.25731 ,0.08433 ,0.00000 - +,0.18159 ,0.08381 ,6.52647 ,0.30297 ,0.11918 ,0.00000 - +,0.18540 ,0.08709 ,7.32584 ,0.34651 ,0.15265 ,0.00097 - +,0.18890 ,0.09010 ,8.03421 ,0.38374 ,0.18473 ,0.01544 - +,0.19213 ,0.09289 ,8.65420 ,0.41130 ,0.21513 ,0.05224 - +,0.19513 ,0.09548 ,9.20768 ,0.43874 ,0.24417 ,0.08405 - +,0.19795 ,0.09791 ,9.70536 ,0.46512 ,0.27195 ,0.11411 - +,0.20059 ,0.10019 ,10.15638 ,0.49038 ,0.29863 ,0.14312 - +,0.20307 ,0.10233 ,10.55454 ,0.51423 ,0.32379 ,0.17042 - +,0.20540 ,0.10435 ,10.90926 ,0.53681 ,0.34763 ,0.19628 - +,0.20763 ,0.10627 ,11.23815 ,0.55871 ,0.37074 ,0.22129 - +,0.20972 ,0.10808 ,11.52231 ,0.57906 ,0.39224 ,0.24459 - +,0.21171 ,0.10980 ,11.78563 ,0.59875 ,0.41304 ,0.26709 - +,0.21361 ,0.11143 ,12.02012 ,0.61738 ,0.43273 ,0.28841 - +,0.21542 ,0.11299 ,12.23255 ,0.63518 ,0.45155 ,0.30877 - +,0.21715 ,0.11448 ,12.42404 ,0.65213 ,0.46949 ,0.32819 - +,0.21880 ,0.11591 ,12.59756 ,0.66834 ,0.48666 ,0.34676/ - DATA ((F(I,10,K),I=1,6),K=1,19)/ - + 0.18624 ,0.08673 ,3.26022 ,0.15870 ,0.01040 ,0.00000 - +,0.19174 ,0.09165 ,4.27629 ,0.20182 ,0.04357 ,0.00000 - +,0.19663 ,0.09602 ,5.14803 ,0.24367 ,0.07574 ,0.00000 - +,0.20100 ,0.09992 ,5.88394 ,0.28324 ,0.10615 ,0.00000 - +,0.20496 ,0.10344 ,6.52054 ,0.32048 ,0.13499 ,0.00083 - +,0.20858 ,0.10667 ,7.07574 ,0.35191 ,0.16231 ,0.01320 - +,0.21190 ,0.10963 ,7.55379 ,0.37480 ,0.18795 ,0.04454 - +,0.21499 ,0.11237 ,7.97401 ,0.39741 ,0.21221 ,0.07137 - +,0.21787 ,0.11492 ,8.34626 ,0.41895 ,0.23524 ,0.09653 - +,0.22057 ,0.11732 ,8.67884 ,0.43942 ,0.25717 ,0.12063 - +,0.22310 ,0.11955 ,8.96748 ,0.45859 ,0.27772 ,0.14315 - +,0.22547 ,0.12164 ,9.22023 ,0.47660 ,0.29705 ,0.16435 - +,0.22772 ,0.12363 ,9.45168 ,0.49396 ,0.31566 ,0.18473 - +,0.22983 ,0.12548 ,9.64720 ,0.50996 ,0.33287 ,0.20361 - +,0.23183 ,0.12724 ,9.82596 ,0.52536 ,0.34943 ,0.22174 - +,0.23373 ,0.12891 ,9.98184 ,0.53984 ,0.36501 ,0.23883 - +,0.23554 ,0.13050 ,10.12039 ,0.55358 ,0.37982 ,0.25507 - +,0.23727 ,0.13200 ,10.24263 ,0.56660 ,0.39387 ,0.27048 - +,0.23891 ,0.13344 ,10.35105 ,0.57897 ,0.40724 ,0.28515/ - DATA ((F(I,11,K),I=1,6),K=1,19)/ - + 0.20191 ,0.10027 ,3.19011 ,0.15621 ,0.00971 ,0.00000 - +,0.20759 ,0.10547 ,4.06727 ,0.19568 ,0.04029 ,0.00000 - +,0.21261 ,0.11006 ,4.80664 ,0.23338 ,0.06948 ,0.00000 - +,0.21707 ,0.11413 ,5.42080 ,0.26855 ,0.09671 ,0.00000 - +,0.22111 ,0.11779 ,5.94398 ,0.30129 ,0.12225 ,0.00074 - +,0.22479 ,0.12112 ,6.39359 ,0.32862 ,0.14622 ,0.01162 - +,0.22816 ,0.12416 ,6.77473 ,0.34822 ,0.16852 ,0.03912 - +,0.23127 ,0.12696 ,7.10482 ,0.36743 ,0.18946 ,0.06248 - +,0.23417 ,0.12955 ,7.39300 ,0.38561 ,0.20919 ,0.08423 - +,0.23688 ,0.13197 ,7.64684 ,0.40276 ,0.22786 ,0.10494 - +,0.23940 ,0.13422 ,7.86327 ,0.41870 ,0.24524 ,0.12418 - +,0.24176 ,0.13631 ,8.04939 ,0.43358 ,0.26148 ,0.14219 - +,0.24400 ,0.13830 ,8.21762 ,0.44784 ,0.27705 ,0.15943 - +,0.24609 ,0.14014 ,8.35604 ,0.46089 ,0.29136 ,0.17530 - +,0.24807 ,0.14188 ,8.48072 ,0.47338 ,0.30506 ,0.19048 - +,0.24994 ,0.14353 ,8.58675 ,0.48505 ,0.31788 ,0.20472 - +,0.25172 ,0.14508 ,8.67876 ,0.49607 ,0.33001 ,0.21820 - +,0.25341 ,0.14655 ,8.75771 ,0.50645 ,0.34146 ,0.23094 - +,0.25501 ,0.14795 ,8.82569 ,0.51626 ,0.35231 ,0.24301/ - DATA ((F(I,12,K),I=1,6),K=1,19)/ - + 0.25736 ,0.15434 ,2.92960 ,0.14516 ,0.00754 ,0.00000 - +,0.26335 ,0.15983 ,3.42882 ,0.17353 ,0.03032 ,0.00000 - +,0.26855 ,0.16453 ,3.82286 ,0.19922 ,0.05097 ,0.00000 - +,0.27310 ,0.16858 ,4.12889 ,0.22215 ,0.06944 ,0.00000 - +,0.27714 ,0.17213 ,4.37265 ,0.24269 ,0.08615 ,0.00049 - +,0.28076 ,0.17527 ,4.56829 ,0.25911 ,0.10133 ,0.00750 - +,0.28402 ,0.17806 ,4.72134 ,0.27014 ,0.11503 ,0.02503 - +,0.28698 ,0.18057 ,4.84358 ,0.28068 ,0.12755 ,0.03954 - +,0.28970 ,0.18284 ,4.94159 ,0.29038 ,0.13906 ,0.05273 - +,0.29221 ,0.18491 ,5.02053 ,0.29927 ,0.14970 ,0.06503 - +,0.29450 ,0.18678 ,5.07948 ,0.30729 ,0.15936 ,0.07623 - +,0.29660 ,0.18848 ,5.12295 ,0.31457 ,0.16821 ,0.08651 - +,0.29858 ,0.19007 ,5.15789 ,0.32140 ,0.17653 ,0.09619 - +,0.30038 ,0.19149 ,5.17823 ,0.32744 ,0.18399 ,0.10493 - +,0.30208 ,0.19282 ,5.19267 ,0.33310 ,0.19102 ,0.11317 - +,0.30366 ,0.19403 ,5.19882 ,0.33824 ,0.19747 ,0.12076 - +,0.30513 ,0.19516 ,5.19915 ,0.34298 ,0.20346 ,0.12784 - +,0.30650 ,0.19620 ,5.19427 ,0.34732 ,0.20901 ,0.13442 - +,0.30779 ,0.19716 ,5.18522 ,0.35133 ,0.21417 ,0.14058/ - DATA ((F(I,13,K),I=1,6),K=1,19)/ - + 0.32517 ,0.22561 ,2.56163 ,0.12740 ,0.00536 ,0.00000 - +,0.33064 ,0.22927 ,2.76550 ,0.14522 ,0.02088 ,0.00000 - +,0.33518 ,0.23215 ,2.90426 ,0.16036 ,0.03417 ,0.00000 - +,0.33900 ,0.23441 ,2.99339 ,0.17309 ,0.04548 ,0.00000 - +,0.34223 ,0.23622 ,3.04970 ,0.18390 ,0.05525 ,0.00029 - +,0.34502 ,0.23767 ,3.08239 ,0.19195 ,0.06380 ,0.00438 - +,0.34741 ,0.23880 ,3.09545 ,0.19663 ,0.07122 ,0.01446 - +,0.34948 ,0.23970 ,3.09551 ,0.20093 ,0.07776 ,0.02255 - +,0.35130 ,0.24041 ,3.08624 ,0.20468 ,0.08358 ,0.02968 - +,0.35290 ,0.24098 ,3.07036 ,0.20793 ,0.08879 ,0.03618 - +,0.35429 ,0.24138 ,3.04753 ,0.21067 ,0.09336 ,0.04194 - +,0.35549 ,0.24166 ,3.02004 ,0.21298 ,0.09742 ,0.04709 - +,0.35656 ,0.24187 ,2.99108 ,0.21505 ,0.10114 ,0.05185 - +,0.35747 ,0.24194 ,2.95779 ,0.21669 ,0.10435 ,0.05603 - +,0.35828 ,0.24197 ,2.92407 ,0.21815 ,0.10730 ,0.05989 - +,0.35897 ,0.24192 ,2.88873 ,0.21934 ,0.10992 ,0.06338 - +,0.35957 ,0.24182 ,2.85285 ,0.22034 ,0.11228 ,0.06656 - +,0.36008 ,0.24167 ,2.81657 ,0.22116 ,0.11440 ,0.06945 - +,0.36052 ,0.24148 ,2.78025 ,0.22183 ,0.11631 ,0.07210/ - DATA ((F(I,14,K),I=1,6),K=1,19)/ - + 0.37218 ,0.26955 ,2.26620 ,0.11228 ,0.00409 ,0.00000 - +,0.37635 ,0.27042 ,2.33667 ,0.12435 ,0.01563 ,0.00000 - +,0.37962 ,0.27073 ,2.36725 ,0.13408 ,0.02515 ,0.00000 - +,0.38213 ,0.27061 ,2.36977 ,0.14186 ,0.03296 ,0.00000 - +,0.38408 ,0.27024 ,2.35553 ,0.14814 ,0.03953 ,0.00020 - +,0.38562 ,0.26964 ,2.33036 ,0.15244 ,0.04510 ,0.00296 - +,0.38676 ,0.26885 ,2.29666 ,0.15441 ,0.04980 ,0.00969 - +,0.38763 ,0.26795 ,2.25827 ,0.15613 ,0.05383 ,0.01498 - +,0.38825 ,0.26696 ,2.21730 ,0.15749 ,0.05732 ,0.01955 - +,0.38869 ,0.26592 ,2.17520 ,0.15854 ,0.06037 ,0.02364 - +,0.38895 ,0.26480 ,2.13158 ,0.15927 ,0.06298 ,0.02720 - +,0.38904 ,0.26364 ,2.08755 ,0.15974 ,0.06521 ,0.03032 - +,0.38904 ,0.26248 ,2.04479 ,0.16009 ,0.06722 ,0.03316 - +,0.38889 ,0.26125 ,2.00153 ,0.16019 ,0.06890 ,0.03561 - +,0.38868 ,0.26003 ,1.95980 ,0.16019 ,0.07040 ,0.03784 - +,0.38838 ,0.25880 ,1.91879 ,0.16006 ,0.07169 ,0.03982 - +,0.38801 ,0.25756 ,1.87895 ,0.15984 ,0.07281 ,0.04159 - +,0.38757 ,0.25633 ,1.84025 ,0.15952 ,0.07378 ,0.04317 - +,0.38709 ,0.25510 ,1.80279 ,0.15914 ,0.07463 ,0.04460/ - DATA ((F(I,15,K),I=1,6),K=1,19)/ - + 0.40897 ,0.29618 ,2.01072 ,0.09899 ,0.00322 ,0.00000 - +,0.41139 ,0.29410 ,2.00692 ,0.10731 ,0.01211 ,0.00000 - +,0.41293 ,0.29179 ,1.98061 ,0.11369 ,0.01923 ,-0.00001 - +,0.41379 ,0.28934 ,1.94015 ,0.11850 ,0.02493 ,-0.00001 - +,0.41417 ,0.28683 ,1.89291 ,0.12217 ,0.02959 ,0.00014 - +,0.41420 ,0.28430 ,1.84244 ,0.12437 ,0.03345 ,0.00212 - +,0.41388 ,0.28173 ,1.78975 ,0.12491 ,0.03662 ,0.00691 - +,0.41334 ,0.27919 ,1.73711 ,0.12529 ,0.03928 ,0.01060 - +,0.41263 ,0.27668 ,1.68553 ,0.12544 ,0.04153 ,0.01375 - +,0.41179 ,0.27421 ,1.63563 ,0.12541 ,0.04346 ,0.01652 - +,0.41081 ,0.27177 ,1.58695 ,0.12517 ,0.04505 ,0.01890 - +,0.40971 ,0.26937 ,1.53994 ,0.12479 ,0.04638 ,0.02096 - +,0.40858 ,0.26704 ,1.49544 ,0.12435 ,0.04755 ,0.02280 - +,0.40732 ,0.26472 ,1.45217 ,0.12376 ,0.04848 ,0.02435 - +,0.40604 ,0.26248 ,1.41125 ,0.12315 ,0.04929 ,0.02576 - +,0.40471 ,0.26028 ,1.37203 ,0.12246 ,0.04996 ,0.02698 - +,0.40335 ,0.25812 ,1.33466 ,0.12173 ,0.05052 ,0.02807 - +,0.40198 ,0.25601 ,1.29901 ,0.12097 ,0.05098 ,0.02902 - +,0.40057 ,0.25395 ,1.26504 ,0.12018 ,0.05136 ,0.02986/ - DATA ((F(I,16,K),I=1,6),K=1,19)/ - + 0.43879 ,0.31050 ,1.78462 ,0.08717 ,0.00257 ,0.00000 - +,0.43903 ,0.30565 ,1.73644 ,0.09289 ,0.00956 ,0.00000 - +,0.43856 ,0.30094 ,1.67820 ,0.09701 ,0.01502 ,-0.00001 - +,0.43752 ,0.29637 ,1.61528 ,0.09991 ,0.01929 ,-0.00001 - +,0.43613 ,0.29198 ,1.55218 ,0.10192 ,0.02270 ,0.00010 - +,0.43449 ,0.28776 ,1.49068 ,0.10286 ,0.02546 ,0.00157 - +,0.43260 ,0.28367 ,1.43088 ,0.10258 ,0.02768 ,0.00509 - +,0.43057 ,0.27973 ,1.37389 ,0.10221 ,0.02950 ,0.00778 - +,0.42844 ,0.27595 ,1.32003 ,0.10171 ,0.03101 ,0.01002 - +,0.42626 ,0.27232 ,1.26940 ,0.10110 ,0.03226 ,0.01198 - +,0.42401 ,0.26880 ,1.22142 ,0.10037 ,0.03327 ,0.01364 - +,0.42170 ,0.26539 ,1.17615 ,0.09957 ,0.03409 ,0.01505 - +,0.41942 ,0.26214 ,1.13396 ,0.09875 ,0.03478 ,0.01630 - +,0.41705 ,0.25897 ,1.09383 ,0.09785 ,0.03531 ,0.01734 - +,0.41473 ,0.25592 ,1.05635 ,0.09696 ,0.03576 ,0.01826 - +,0.41239 ,0.25297 ,1.02096 ,0.09604 ,0.03610 ,0.01906 - +,0.41007 ,0.25012 ,0.98765 ,0.09511 ,0.03637 ,0.01976 - +,0.40777 ,0.24735 ,0.95624 ,0.09417 ,0.03658 ,0.02036 - +,0.40549 ,0.24468 ,0.92662 ,0.09324 ,0.03672 ,0.02088/ - DATA ((F(I,17,K),I=1,6),K=1,19)/ - + 0.46820 ,0.31579 ,1.53547 ,0.07417 ,0.00198 ,0.00001 - +,0.46533 ,0.30796 ,1.45571 ,0.07763 ,0.00723 ,0.00001 - +,0.46203 ,0.30068 ,1.37675 ,0.07989 ,0.01123 ,0.00001 - +,0.45841 ,0.29391 ,1.30100 ,0.08124 ,0.01427 ,0.00001 - +,0.45465 ,0.28758 ,1.23030 ,0.08197 ,0.01664 ,0.00009 - +,0.45081 ,0.28166 ,1.16488 ,0.08196 ,0.01852 ,0.00112 - +,0.44689 ,0.27606 ,1.10406 ,0.08113 ,0.01998 ,0.00359 - +,0.44295 ,0.27076 ,1.04795 ,0.08027 ,0.02114 ,0.00545 - +,0.43904 ,0.26576 ,0.99631 ,0.07935 ,0.02208 ,0.00698 - +,0.43520 ,0.26102 ,0.94885 ,0.07840 ,0.02284 ,0.00829 - +,0.43137 ,0.25649 ,0.90487 ,0.07740 ,0.02342 ,0.00938 - +,0.42758 ,0.25217 ,0.86417 ,0.07637 ,0.02387 ,0.01030 - +,0.42390 ,0.24808 ,0.82674 ,0.07537 ,0.02424 ,0.01110 - +,0.42022 ,0.24414 ,0.79180 ,0.07434 ,0.02449 ,0.01175 - +,0.41664 ,0.24039 ,0.75953 ,0.07333 ,0.02469 ,0.01232 - +,0.41313 ,0.23679 ,0.72946 ,0.07233 ,0.02482 ,0.01281 - +,0.40969 ,0.23334 ,0.70146 ,0.07134 ,0.02491 ,0.01322 - +,0.40632 ,0.23002 ,0.67534 ,0.07037 ,0.02495 ,0.01357 - +,0.40301 ,0.22684 ,0.65094 ,0.06942 ,0.02496 ,0.01387/ - DATA ((F(I,18,K),I=1,6),K=1,19)/ - + 0.48965 ,0.31104 ,1.31771 ,0.06289 ,0.00152 ,0.00001 - +,0.48343 ,0.30078 ,1.22226 ,0.06483 ,0.00551 ,0.00000 - +,0.47716 ,0.29150 ,1.13489 ,0.06586 ,0.00848 ,0.00000 - +,0.47084 ,0.28303 ,1.05567 ,0.06626 ,0.01068 ,0.00001 - +,0.46468 ,0.27526 ,0.98460 ,0.06622 ,0.01236 ,0.00006 - +,0.45864 ,0.26810 ,0.92084 ,0.06569 ,0.01365 ,0.00081 - +,0.45270 ,0.26141 ,0.86320 ,0.06460 ,0.01463 ,0.00257 - +,0.44690 ,0.25516 ,0.81117 ,0.06352 ,0.01539 ,0.00388 - +,0.44128 ,0.24932 ,0.76415 ,0.06244 ,0.01598 ,0.00495 - +,0.43584 ,0.24383 ,0.72161 ,0.06136 ,0.01644 ,0.00585 - +,0.43054 ,0.23865 ,0.68283 ,0.06028 ,0.01678 ,0.00659 - +,0.42536 ,0.23374 ,0.64744 ,0.05921 ,0.01702 ,0.00720 - +,0.42039 ,0.22912 ,0.61522 ,0.05818 ,0.01721 ,0.00773 - +,0.41552 ,0.22471 ,0.58553 ,0.05714 ,0.01732 ,0.00815 - +,0.41083 ,0.22053 ,0.55836 ,0.05615 ,0.01740 ,0.00852 - +,0.40627 ,0.21655 ,0.53330 ,0.05518 ,0.01742 ,0.00882 - +,0.40184 ,0.21276 ,0.51017 ,0.05423 ,0.01742 ,0.00907 - +,0.39754 ,0.20913 ,0.48877 ,0.05332 ,0.01739 ,0.00928 - +,0.39335 ,0.20566 ,0.46892 ,0.05243 ,0.01734 ,0.00946/ - DATA ((F(I,19,K),I=1,6),K=1,19)/ - + 0.50365 ,0.29920 ,1.12706 ,0.05309 ,0.00118 ,0.00000 - +,0.49400 ,0.28713 ,1.02563 ,0.05400 ,0.00422 ,0.00000 - +,0.48471 ,0.27639 ,0.93700 ,0.05425 ,0.00644 ,0.00000 - +,0.47579 ,0.26671 ,0.85948 ,0.05405 ,0.00804 ,0.00000 - +,0.46725 ,0.25795 ,0.79183 ,0.05357 ,0.00924 ,0.00005 - +,0.45911 ,0.24996 ,0.73247 ,0.05276 ,0.01014 ,0.00059 - +,0.45128 ,0.24257 ,0.67987 ,0.05157 ,0.01080 ,0.00187 - +,0.44376 ,0.23573 ,0.63315 ,0.05044 ,0.01130 ,0.00280 - +,0.43655 ,0.22937 ,0.59156 ,0.04933 ,0.01168 ,0.00355 - +,0.42967 ,0.22346 ,0.55441 ,0.04825 ,0.01196 ,0.00418 - +,0.42305 ,0.21790 ,0.52092 ,0.04718 ,0.01215 ,0.00469 - +,0.41666 ,0.21268 ,0.49076 ,0.04615 ,0.01227 ,0.00511 - +,0.41057 ,0.20778 ,0.46355 ,0.04517 ,0.01236 ,0.00546 - +,0.40466 ,0.20315 ,0.43869 ,0.04420 ,0.01239 ,0.00573 - +,0.39899 ,0.19877 ,0.41611 ,0.04328 ,0.01240 ,0.00597 - +,0.39351 ,0.19461 ,0.39548 ,0.04239 ,0.01238 ,0.00616 - +,0.38823 ,0.19067 ,0.37658 ,0.04154 ,0.01234 ,0.00632 - +,0.38314 ,0.18693 ,0.35921 ,0.04072 ,0.01228 ,0.00645 - +,0.37823 ,0.18336 ,0.34321 ,0.03992 ,0.01221 ,0.00655/ - DATA ((F(I,20,K),I=1,6),K=1,19)/ - + 0.51071 ,0.28247 ,0.96027 ,0.04461 ,0.00091 ,0.00000 - +,0.49770 ,0.26915 ,0.85896 ,0.04482 ,0.00324 ,0.00000 - +,0.48552 ,0.25745 ,0.77331 ,0.04457 ,0.00490 ,0.00000 - +,0.47410 ,0.24702 ,0.70038 ,0.04402 ,0.00607 ,0.00000 - +,0.46337 ,0.23768 ,0.63806 ,0.04331 ,0.00693 ,0.00004 - +,0.45330 ,0.22921 ,0.58435 ,0.04238 ,0.00756 ,0.00043 - +,0.44376 ,0.22146 ,0.53752 ,0.04120 ,0.00802 ,0.00137 - +,0.43468 ,0.21433 ,0.49649 ,0.04008 ,0.00834 ,0.00204 - +,0.42609 ,0.20774 ,0.46039 ,0.03902 ,0.00858 ,0.00257 - +,0.41796 ,0.20165 ,0.42849 ,0.03800 ,0.00875 ,0.00301 - +,0.41020 ,0.19596 ,0.40004 ,0.03701 ,0.00885 ,0.00337 - +,0.40277 ,0.19064 ,0.37465 ,0.03606 ,0.00890 ,0.00365 - +,0.39573 ,0.18567 ,0.35192 ,0.03516 ,0.00893 ,0.00389 - +,0.38895 ,0.18100 ,0.33134 ,0.03429 ,0.00893 ,0.00407 - +,0.38250 ,0.17660 ,0.31277 ,0.03347 ,0.00891 ,0.00422 - +,0.37629 ,0.17244 ,0.29592 ,0.03268 ,0.00886 ,0.00435 - +,0.37033 ,0.16851 ,0.28059 ,0.03193 ,0.00881 ,0.00445 - +,0.36462 ,0.16479 ,0.26658 ,0.03121 ,0.00874 ,0.00452 - +,0.35913 ,0.16126 ,0.25374 ,0.03052 ,0.00867 ,0.00458/ - DATA ((F(I,21,K),I=1,6),K=1,19)/ - + 0.51135 ,0.26256 ,0.81463 ,0.03730 ,0.00070 ,0.00000 - +,0.49515 ,0.24850 ,0.71729 ,0.03706 ,0.00248 ,0.00000 - +,0.48029 ,0.23628 ,0.63709 ,0.03651 ,0.00373 ,0.00000 - +,0.46657 ,0.22549 ,0.57027 ,0.03578 ,0.00459 ,0.00000 - +,0.45390 ,0.21590 ,0.51414 ,0.03495 ,0.00521 ,0.00002 - +,0.44212 ,0.20727 ,0.46651 ,0.03399 ,0.00565 ,0.00032 - +,0.43108 ,0.19943 ,0.42555 ,0.03288 ,0.00596 ,0.00100 - +,0.42068 ,0.19226 ,0.39008 ,0.03184 ,0.00617 ,0.00148 - +,0.41091 ,0.18568 ,0.35919 ,0.03086 ,0.00632 ,0.00187 - +,0.40174 ,0.17960 ,0.33214 ,0.02992 ,0.00642 ,0.00218 - +,0.39303 ,0.17396 ,0.30827 ,0.02904 ,0.00647 ,0.00243 - +,0.38476 ,0.16872 ,0.28712 ,0.02820 ,0.00648 ,0.00262 - +,0.37696 ,0.16385 ,0.26831 ,0.02741 ,0.00649 ,0.00278 - +,0.36951 ,0.15927 ,0.25144 ,0.02664 ,0.00646 ,0.00291 - +,0.36244 ,0.15499 ,0.23629 ,0.02592 ,0.00642 ,0.00301 - +,0.35567 ,0.15095 ,0.22263 ,0.02524 ,0.00638 ,0.00308 - +,0.34922 ,0.14715 ,0.21026 ,0.02460 ,0.00632 ,0.00315 - +,0.34306 ,0.14357 ,0.19901 ,0.02398 ,0.00626 ,0.00319 - +,0.33716 ,0.14018 ,0.18877 ,0.02339 ,0.00619 ,0.00323/ - DATA ((F(I,22,K),I=1,6),K=1,19)/ - + 0.50585 ,0.24072 ,0.68770 ,0.03101 ,0.00055 ,0.00000 - +,0.48677 ,0.22639 ,0.59670 ,0.03049 ,0.00190 ,0.00000 - +,0.46955 ,0.21404 ,0.52331 ,0.02977 ,0.00283 ,0.00000 - +,0.45384 ,0.20322 ,0.46331 ,0.02896 ,0.00347 ,0.00000 - +,0.43949 ,0.19366 ,0.41366 ,0.02810 ,0.00391 ,0.00002 - +,0.42627 ,0.18513 ,0.37210 ,0.02717 ,0.00422 ,0.00024 - +,0.41398 ,0.17741 ,0.33676 ,0.02616 ,0.00443 ,0.00073 - +,0.40251 ,0.17039 ,0.30648 ,0.02522 ,0.00457 ,0.00109 - +,0.39182 ,0.16398 ,0.28037 ,0.02434 ,0.00465 ,0.00136 - +,0.38184 ,0.15809 ,0.25768 ,0.02352 ,0.00470 ,0.00158 - +,0.37241 ,0.15266 ,0.23783 ,0.02274 ,0.00472 ,0.00175 - +,0.36352 ,0.14762 ,0.22037 ,0.02200 ,0.00472 ,0.00188 - +,0.35518 ,0.14295 ,0.20494 ,0.02131 ,0.00471 ,0.00199 - +,0.34724 ,0.13858 ,0.19120 ,0.02066 ,0.00467 ,0.00208 - +,0.33975 ,0.13451 ,0.17894 ,0.02004 ,0.00463 ,0.00214 - +,0.33261 ,0.13070 ,0.16794 ,0.01946 ,0.00459 ,0.00219 - +,0.32582 ,0.12711 ,0.15803 ,0.01891 ,0.00453 ,0.00223 - +,0.31935 ,0.12373 ,0.14907 ,0.01839 ,0.00448 ,0.00226 - +,0.31319 ,0.12054 ,0.14094 ,0.01790 ,0.00442 ,0.00228/ - DATA ((F(I,23,K),I=1,6),K=1,19)/ - + 0.49496 ,0.21801 ,0.57752 ,0.02563 ,0.00042 ,0.00000 - +,0.47336 ,0.20378 ,0.49420 ,0.02495 ,0.00145 ,0.00000 - +,0.45411 ,0.19160 ,0.42827 ,0.02417 ,0.00215 ,0.00000 - +,0.43674 ,0.18102 ,0.37522 ,0.02334 ,0.00261 ,0.00000 - +,0.42103 ,0.17173 ,0.33193 ,0.02251 ,0.00292 ,0.00002 - +,0.40666 ,0.16348 ,0.29610 ,0.02165 ,0.00314 ,0.00017 - +,0.39342 ,0.15606 ,0.26599 ,0.02075 ,0.00328 ,0.00054 - +,0.38114 ,0.14935 ,0.24043 ,0.01992 ,0.00337 ,0.00080 - +,0.36977 ,0.14324 ,0.21857 ,0.01915 ,0.00342 ,0.00099 - +,0.35920 ,0.13766 ,0.19974 ,0.01843 ,0.00345 ,0.00115 - +,0.34928 ,0.13253 ,0.18338 ,0.01776 ,0.00345 ,0.00126 - +,0.33997 ,0.12779 ,0.16909 ,0.01713 ,0.00344 ,0.00135 - +,0.33126 ,0.12341 ,0.15653 ,0.01654 ,0.00341 ,0.00143 - +,0.32302 ,0.11933 ,0.14543 ,0.01599 ,0.00338 ,0.00149 - +,0.31526 ,0.11554 ,0.13556 ,0.01547 ,0.00334 ,0.00153 - +,0.30791 ,0.11200 ,0.12676 ,0.01498 ,0.00330 ,0.00156 - +,0.30094 ,0.10868 ,0.11887 ,0.01452 ,0.00325 ,0.00158 - +,0.29432 ,0.10556 ,0.11177 ,0.01409 ,0.00321 ,0.00160 - +,0.28804 ,0.10262 ,0.10536 ,0.01368 ,0.00316 ,0.00161/ - DATA ((F(I,24,K),I=1,6),K=1,19)/ - + 0.47917 ,0.19517 ,0.48222 ,0.02104 ,0.00033 ,0.00000 - +,0.45548 ,0.18134 ,0.40718 ,0.02030 ,0.00111 ,0.00001 - +,0.43457 ,0.16960 ,0.34886 ,0.01950 ,0.00162 ,0.00000 - +,0.41592 ,0.15946 ,0.30263 ,0.01871 ,0.00196 ,0.00001 - +,0.39917 ,0.15062 ,0.26535 ,0.01793 ,0.00219 ,0.00002 - +,0.38398 ,0.14281 ,0.23481 ,0.01716 ,0.00234 ,0.00013 - +,0.37005 ,0.13582 ,0.20943 ,0.01638 ,0.00243 ,0.00040 - +,0.35725 ,0.12952 ,0.18807 ,0.01565 ,0.00248 ,0.00058 - +,0.34543 ,0.12382 ,0.16996 ,0.01499 ,0.00251 ,0.00072 - +,0.33450 ,0.11862 ,0.15445 ,0.01438 ,0.00252 ,0.00083 - +,0.32430 ,0.11386 ,0.14109 ,0.01381 ,0.00251 ,0.00092 - +,0.31478 ,0.10948 ,0.12949 ,0.01327 ,0.00250 ,0.00098 - +,0.30590 ,0.10545 ,0.11935 ,0.01278 ,0.00247 ,0.00103 - +,0.29753 ,0.10171 ,0.11044 ,0.01232 ,0.00244 ,0.00106 - +,0.28968 ,0.09824 ,0.10257 ,0.01189 ,0.00241 ,0.00109 - +,0.28226 ,0.09501 ,0.09558 ,0.01149 ,0.00237 ,0.00111 - +,0.27526 ,0.09199 ,0.08934 ,0.01111 ,0.00233 ,0.00113 - +,0.26863 ,0.08916 ,0.08374 ,0.01075 ,0.00229 ,0.00114 - +,0.26235 ,0.08650 ,0.07871 ,0.01042 ,0.00225 ,0.00114/ - DATA ((F(I,25,K),I=1,6),K=1,19)/ - + 0.45913 ,0.17283 ,0.40015 ,0.01715 ,0.00025 ,0.00000 - +,0.43382 ,0.15964 ,0.33360 ,0.01640 ,0.00084 ,0.00001 - +,0.41168 ,0.14853 ,0.28268 ,0.01564 ,0.00122 ,0.00000 - +,0.39212 ,0.13899 ,0.24287 ,0.01490 ,0.00146 ,0.00001 - +,0.37468 ,0.13073 ,0.21113 ,0.01420 ,0.00162 ,0.00001 - +,0.35897 ,0.12346 ,0.18541 ,0.01352 ,0.00173 ,0.00010 - +,0.34464 ,0.11699 ,0.16422 ,0.01285 ,0.00179 ,0.00029 - +,0.33155 ,0.11118 ,0.14656 ,0.01224 ,0.00182 ,0.00042 - +,0.31953 ,0.10594 ,0.13168 ,0.01167 ,0.00183 ,0.00052 - +,0.30845 ,0.10119 ,0.11904 ,0.01116 ,0.00183 ,0.00060 - +,0.29818 ,0.09685 ,0.10821 ,0.01068 ,0.00182 ,0.00066 - +,0.28862 ,0.09287 ,0.09887 ,0.01024 ,0.00180 ,0.00070 - +,0.27974 ,0.08922 ,0.09075 ,0.00983 ,0.00178 ,0.00074 - +,0.27140 ,0.08585 ,0.08366 ,0.00945 ,0.00175 ,0.00076 - +,0.26360 ,0.08272 ,0.07742 ,0.00910 ,0.00173 ,0.00078 - +,0.25626 ,0.07982 ,0.07190 ,0.00877 ,0.00170 ,0.00079 - +,0.24935 ,0.07711 ,0.06700 ,0.00846 ,0.00167 ,0.00080 - +,0.24283 ,0.07459 ,0.06262 ,0.00817 ,0.00163 ,0.00080 - +,0.23667 ,0.07222 ,0.05870 ,0.00790 ,0.00160 ,0.00080/ - DATA ((F(I,26,K),I=1,6),K=1,19)/ - + 0.43555 ,0.15143 ,0.32985 ,0.01388 ,0.00018 ,-0.00001 - +,0.40908 ,0.13908 ,0.27163 ,0.01316 ,0.00062 ,0.00000 - +,0.38615 ,0.12873 ,0.22772 ,0.01246 ,0.00090 ,0.00000 - +,0.36606 ,0.11992 ,0.19380 ,0.01180 ,0.00108 ,0.00000 - +,0.34825 ,0.11231 ,0.16708 ,0.01118 ,0.00119 ,0.00000 - +,0.33231 ,0.10566 ,0.14565 ,0.01060 ,0.00126 ,0.00006 - +,0.31789 ,0.09975 ,0.12813 ,0.01002 ,0.00130 ,0.00020 - +,0.30477 ,0.09448 ,0.11366 ,0.00950 ,0.00132 ,0.00030 - +,0.29276 ,0.08974 ,0.10156 ,0.00904 ,0.00133 ,0.00037 - +,0.28173 ,0.08546 ,0.09134 ,0.00861 ,0.00132 ,0.00043 - +,0.27156 ,0.08157 ,0.08264 ,0.00822 ,0.00131 ,0.00047 - +,0.26212 ,0.07801 ,0.07519 ,0.00785 ,0.00129 ,0.00050 - +,0.25338 ,0.07476 ,0.06874 ,0.00752 ,0.00127 ,0.00052 - +,0.24522 ,0.07175 ,0.06313 ,0.00721 ,0.00125 ,0.00054 - +,0.23761 ,0.06898 ,0.05822 ,0.00692 ,0.00123 ,0.00055 - +,0.23047 ,0.06641 ,0.05389 ,0.00666 ,0.00120 ,0.00055 - +,0.22376 ,0.06402 ,0.05007 ,0.00641 ,0.00118 ,0.00056 - +,0.21746 ,0.06180 ,0.04667 ,0.00618 ,0.00115 ,0.00056 - +,0.21151 ,0.05972 ,0.04363 ,0.00596 ,0.00113 ,0.00056/ - DATA ((F(I,27,K),I=1,6),K=1,19)/ - + 0.40904 ,0.13125 ,0.26991 ,0.01114 ,0.00013 ,0.00000 - +,0.38191 ,0.11986 ,0.21959 ,0.01047 ,0.00046 ,0.00000 - +,0.35861 ,0.11039 ,0.18218 ,0.00985 ,0.00067 ,0.00000 - +,0.33834 ,0.10236 ,0.15363 ,0.00926 ,0.00079 ,0.00000 - +,0.32049 ,0.09547 ,0.13138 ,0.00873 ,0.00087 ,0.00000 - +,0.30460 ,0.08947 ,0.11369 ,0.00823 ,0.00092 ,0.00004 - +,0.29030 ,0.08417 ,0.09937 ,0.00776 ,0.00094 ,0.00015 - +,0.27736 ,0.07945 ,0.08762 ,0.00733 ,0.00095 ,0.00021 - +,0.26557 ,0.07523 ,0.07787 ,0.00694 ,0.00095 ,0.00026 - +,0.25479 ,0.07143 ,0.06969 ,0.00659 ,0.00095 ,0.00030 - +,0.24488 ,0.06799 ,0.06277 ,0.00627 ,0.00094 ,0.00033 - +,0.23572 ,0.06485 ,0.05687 ,0.00598 ,0.00092 ,0.00035 - +,0.22727 ,0.06199 ,0.05179 ,0.00571 ,0.00090 ,0.00037 - +,0.21941 ,0.05935 ,0.04739 ,0.00546 ,0.00089 ,0.00038 - +,0.21210 ,0.05693 ,0.04356 ,0.00523 ,0.00087 ,0.00038 - +,0.20525 ,0.05469 ,0.04020 ,0.00501 ,0.00085 ,0.00039 - +,0.19885 ,0.05261 ,0.03724 ,0.00482 ,0.00083 ,0.00039 - +,0.19285 ,0.05068 ,0.03462 ,0.00463 ,0.00081 ,0.00039 - +,0.18720 ,0.04888 ,0.03229 ,0.00446 ,0.00079 ,0.00039/ - DATA ((F(I,28,K),I=1,6),K=1,19)/ - + 0.38036 ,0.11254 ,0.21913 ,0.00886 ,0.00009 ,-0.00001 - +,0.35305 ,0.10220 ,0.17617 ,0.00826 ,0.00034 ,-0.00001 - +,0.32979 ,0.09365 ,0.14465 ,0.00771 ,0.00048 ,0.00000 - +,0.30965 ,0.08645 ,0.12089 ,0.00721 ,0.00057 ,0.00000 - +,0.29204 ,0.08029 ,0.10257 ,0.00677 ,0.00063 ,0.00000 - +,0.27649 ,0.07496 ,0.08813 ,0.00635 ,0.00066 ,0.00003 - +,0.26252 ,0.07027 ,0.07654 ,0.00596 ,0.00068 ,0.00010 - +,0.24994 ,0.06612 ,0.06710 ,0.00561 ,0.00068 ,0.00015 - +,0.23854 ,0.06241 ,0.05931 ,0.00530 ,0.00068 ,0.00019 - +,0.22817 ,0.05909 ,0.05282 ,0.00501 ,0.00067 ,0.00021 - +,0.21867 ,0.05608 ,0.04737 ,0.00475 ,0.00066 ,0.00023 - +,0.20992 ,0.05335 ,0.04274 ,0.00452 ,0.00065 ,0.00025 - +,0.20188 ,0.05087 ,0.03877 ,0.00430 ,0.00064 ,0.00026 - +,0.19440 ,0.04859 ,0.03537 ,0.00410 ,0.00062 ,0.00026 - +,0.18748 ,0.04650 ,0.03241 ,0.00392 ,0.00061 ,0.00027 - +,0.18102 ,0.04457 ,0.02982 ,0.00375 ,0.00059 ,0.00027 - +,0.17499 ,0.04279 ,0.02755 ,0.00360 ,0.00058 ,0.00027 - +,0.16936 ,0.04114 ,0.02555 ,0.00345 ,0.00056 ,0.00027 - +,0.16407 ,0.03960 ,0.02377 ,0.00332 ,0.00055 ,0.00027/ - DATA ((F(I,29,K),I=1,6),K=1,19)/ - + 0.35006 ,0.09542 ,0.17636 ,0.00697 ,0.00007 ,-0.00001 - +,0.32301 ,0.08617 ,0.14013 ,0.00645 ,0.00024 ,0.00000 - +,0.30015 ,0.07857 ,0.11390 ,0.00598 ,0.00035 ,0.00000 - +,0.28049 ,0.07220 ,0.09434 ,0.00556 ,0.00041 ,0.00000 - +,0.26340 ,0.06678 ,0.07942 ,0.00519 ,0.00045 ,0.00000 - +,0.24839 ,0.06211 ,0.06776 ,0.00485 ,0.00047 ,0.00002 - +,0.23497 ,0.05802 ,0.05848 ,0.00453 ,0.00048 ,0.00007 - +,0.22294 ,0.05441 ,0.05097 ,0.00425 ,0.00048 ,0.00011 - +,0.21209 ,0.05120 ,0.04483 ,0.00400 ,0.00048 ,0.00013 - +,0.20225 ,0.04833 ,0.03973 ,0.00377 ,0.00047 ,0.00015 - +,0.19327 ,0.04575 ,0.03547 ,0.00357 ,0.00046 ,0.00016 - +,0.18503 ,0.04341 ,0.03188 ,0.00338 ,0.00045 ,0.00017 - +,0.17748 ,0.04128 ,0.02882 ,0.00321 ,0.00044 ,0.00018 - +,0.17049 ,0.03934 ,0.02620 ,0.00305 ,0.00043 ,0.00018 - +,0.16403 ,0.03756 ,0.02394 ,0.00291 ,0.00042 ,0.00018 - +,0.15802 ,0.03593 ,0.02196 ,0.00278 ,0.00041 ,0.00018 - +,0.15242 ,0.03442 ,0.02023 ,0.00266 ,0.00040 ,0.00018 - +,0.14721 ,0.03302 ,0.01872 ,0.00255 ,0.00039 ,0.00018 - +,0.14233 ,0.03172 ,0.01737 ,0.00244 ,0.00038 ,0.00018/ - DATA ((F(I,30,K),I=1,6),K=1,19)/ - + 0.31886 ,0.07998 ,0.14060 ,0.00544 ,0.00005 ,0.00000 - +,0.29250 ,0.07182 ,0.11042 ,0.00499 ,0.00018 ,0.00000 - +,0.27036 ,0.06516 ,0.08885 ,0.00460 ,0.00025 ,0.00000 - +,0.25146 ,0.05961 ,0.07296 ,0.00425 ,0.00030 ,0.00000 - +,0.23511 ,0.05491 ,0.06093 ,0.00394 ,0.00032 ,0.00000 - +,0.22081 ,0.05087 ,0.05163 ,0.00367 ,0.00033 ,0.00001 - +,0.20813 ,0.04736 ,0.04428 ,0.00341 ,0.00034 ,0.00005 - +,0.19679 ,0.04426 ,0.03838 ,0.00319 ,0.00034 ,0.00007 - +,0.18660 ,0.04152 ,0.03358 ,0.00299 ,0.00033 ,0.00009 - +,0.17740 ,0.03908 ,0.02963 ,0.00281 ,0.00033 ,0.00010 - +,0.16904 ,0.03688 ,0.02634 ,0.00265 ,0.00032 ,0.00011 - +,0.16139 ,0.03490 ,0.02358 ,0.00251 ,0.00031 ,0.00012 - +,0.15440 ,0.03311 ,0.02124 ,0.00237 ,0.00031 ,0.00012 - +,0.14794 ,0.03148 ,0.01924 ,0.00225 ,0.00030 ,0.00012 - +,0.14199 ,0.02999 ,0.01752 ,0.00214 ,0.00029 ,0.00012 - +,0.13649 ,0.02862 ,0.01604 ,0.00204 ,0.00028 ,0.00013 - +,0.13138 ,0.02736 ,0.01474 ,0.00195 ,0.00027 ,0.00013 - +,0.12661 ,0.02620 ,0.01360 ,0.00186 ,0.00027 ,0.00013 - +,0.12217 ,0.02512 ,0.01260 ,0.00178 ,0.00026 ,0.00012/ - DATA ((F(I,31,K),I=1,6),K=1,19)/ - + 0.28727 ,0.06623 ,0.11094 ,0.00419 ,0.00004 ,0.00000 - +,0.26197 ,0.05914 ,0.08612 ,0.00381 ,0.00012 ,0.00000 - +,0.24086 ,0.05338 ,0.06861 ,0.00349 ,0.00018 ,0.00000 - +,0.22295 ,0.04861 ,0.05584 ,0.00321 ,0.00021 ,0.00000 - +,0.20755 ,0.04460 ,0.04628 ,0.00296 ,0.00022 ,0.00000 - +,0.19415 ,0.04116 ,0.03894 ,0.00274 ,0.00023 ,0.00001 - +,0.18232 ,0.03818 ,0.03319 ,0.00254 ,0.00023 ,0.00003 - +,0.17179 ,0.03556 ,0.02860 ,0.00237 ,0.00023 ,0.00005 - +,0.16236 ,0.03325 ,0.02490 ,0.00221 ,0.00023 ,0.00006 - +,0.15388 ,0.03121 ,0.02187 ,0.00207 ,0.00022 ,0.00007 - +,0.14620 ,0.02937 ,0.01936 ,0.00195 ,0.00022 ,0.00007 - +,0.13920 ,0.02772 ,0.01727 ,0.00183 ,0.00021 ,0.00008 - +,0.13282 ,0.02623 ,0.01550 ,0.00173 ,0.00021 ,0.00008 - +,0.12695 ,0.02488 ,0.01400 ,0.00164 ,0.00020 ,0.00008 - +,0.12156 ,0.02365 ,0.01271 ,0.00156 ,0.00020 ,0.00008 - +,0.11658 ,0.02252 ,0.01160 ,0.00148 ,0.00019 ,0.00008 - +,0.11196 ,0.02148 ,0.01064 ,0.00141 ,0.00018 ,0.00008 - +,0.10768 ,0.02053 ,0.00979 ,0.00134 ,0.00018 ,0.00008 - +,0.10369 ,0.01964 ,0.00905 ,0.00128 ,0.00017 ,0.00008/ - DATA ((F(I,32,K),I=1,6),K=1,19)/ - + 0.25592 ,0.05413 ,0.08653 ,0.00318 ,0.00003 ,0.00000 - +,0.23198 ,0.04806 ,0.06638 ,0.00287 ,0.00009 ,0.00000 - +,0.21215 ,0.04316 ,0.05236 ,0.00261 ,0.00013 ,0.00000 - +,0.19542 ,0.03912 ,0.04223 ,0.00239 ,0.00014 ,0.00000 - +,0.18113 ,0.03573 ,0.03473 ,0.00219 ,0.00015 ,0.00000 - +,0.16875 ,0.03285 ,0.02903 ,0.00202 ,0.00016 ,0.00001 - +,0.15786 ,0.03037 ,0.02459 ,0.00187 ,0.00016 ,0.00003 - +,0.14821 ,0.02820 ,0.02108 ,0.00173 ,0.00016 ,0.00004 - +,0.13961 ,0.02629 ,0.01825 ,0.00161 ,0.00016 ,0.00004 - +,0.13191 ,0.02459 ,0.01596 ,0.00151 ,0.00016 ,0.00005 - +,0.12496 ,0.02308 ,0.01407 ,0.00141 ,0.00015 ,0.00005 - +,0.11864 ,0.02172 ,0.01250 ,0.00133 ,0.00014 ,0.00006 - +,0.11291 ,0.02050 ,0.01118 ,0.00125 ,0.00014 ,0.00006 - +,0.10765 ,0.01939 ,0.01007 ,0.00118 ,0.00013 ,0.00005 - +,0.10283 ,0.01839 ,0.00911 ,0.00112 ,0.00013 ,0.00005 - +,0.09838 ,0.01747 ,0.00829 ,0.00106 ,0.00012 ,0.00006 - +,0.09427 ,0.01663 ,0.00758 ,0.00101 ,0.00012 ,0.00006 - +,0.09047 ,0.01586 ,0.00697 ,0.00096 ,0.00012 ,0.00006 - +,0.08694 ,0.01515 ,0.00643 ,0.00091 ,0.00011 ,0.00006/ - DATA ((F(I,33,K),I=1,6),K=1,19)/ - + 0.22526 ,0.04364 ,0.06668 ,0.00239 ,0.00002 ,0.00000 - +,0.20294 ,0.03854 ,0.05055 ,0.00214 ,0.00006 ,0.00000 - +,0.18460 ,0.03442 ,0.03947 ,0.00193 ,0.00008 ,0.00000 - +,0.16922 ,0.03106 ,0.03156 ,0.00176 ,0.00010 ,0.00000 - +,0.15613 ,0.02825 ,0.02576 ,0.00160 ,0.00010 ,0.00000 - +,0.14487 ,0.02587 ,0.02137 ,0.00147 ,0.00011 ,0.00000 - +,0.13501 ,0.02383 ,0.01799 ,0.00136 ,0.00011 ,0.00001 - +,0.12631 ,0.02204 ,0.01534 ,0.00125 ,0.00010 ,0.00002 - +,0.11858 ,0.02048 ,0.01322 ,0.00116 ,0.00010 ,0.00003 - +,0.11169 ,0.01910 ,0.01150 ,0.00108 ,0.00010 ,0.00003 - +,0.10549 ,0.01787 ,0.01010 ,0.00101 ,0.00009 ,0.00003 - +,0.09988 ,0.01678 ,0.00894 ,0.00095 ,0.00009 ,0.00003 - +,0.09479 ,0.01579 ,0.00797 ,0.00089 ,0.00009 ,0.00004 - +,0.09014 ,0.01491 ,0.00715 ,0.00084 ,0.00009 ,0.00003 - +,0.08589 ,0.01410 ,0.00646 ,0.00079 ,0.00009 ,0.00004 - +,0.08199 ,0.01336 ,0.00586 ,0.00075 ,0.00008 ,0.00004 - +,0.07840 ,0.01269 ,0.00535 ,0.00071 ,0.00008 ,0.00004 - +,0.07507 ,0.01208 ,0.00490 ,0.00067 ,0.00008 ,0.00003 - +,0.07199 ,0.01151 ,0.00451 ,0.00064 ,0.00007 ,0.00003/ - DATA ((F(I,34,K),I=1,6),K=1,19)/ - + 0.19575 ,0.03466 ,0.05066 ,0.00176 ,0.00001 ,0.00000 - +,0.17527 ,0.03042 ,0.03795 ,0.00157 ,0.00004 ,0.00000 - +,0.15855 ,0.02703 ,0.02933 ,0.00141 ,0.00006 ,0.00000 - +,0.14462 ,0.02428 ,0.02324 ,0.00127 ,0.00007 ,0.00000 - +,0.13284 ,0.02199 ,0.01882 ,0.00115 ,0.00007 ,0.00000 - +,0.12274 ,0.02005 ,0.01551 ,0.00105 ,0.00007 ,0.00000 - +,0.11394 ,0.01840 ,0.01297 ,0.00097 ,0.00007 ,0.00000 - +,0.10621 ,0.01696 ,0.01100 ,0.00089 ,0.00007 ,0.00001 - +,0.09937 ,0.01571 ,0.00943 ,0.00082 ,0.00006 ,0.00002 - +,0.09329 ,0.01461 ,0.00817 ,0.00077 ,0.00006 ,0.00002 - +,0.08785 ,0.01363 ,0.00715 ,0.00071 ,0.00006 ,0.00002 - +,0.08293 ,0.01276 ,0.00630 ,0.00066 ,0.00006 ,0.00002 - +,0.07850 ,0.01198 ,0.00560 ,0.00062 ,0.00006 ,0.00002 - +,0.07445 ,0.01128 ,0.00501 ,0.00058 ,0.00006 ,0.00002 - +,0.07076 ,0.01064 ,0.00451 ,0.00055 ,0.00006 ,0.00002 - +,0.06739 ,0.01006 ,0.00409 ,0.00052 ,0.00005 ,0.00002 - +,0.06429 ,0.00953 ,0.00372 ,0.00049 ,0.00005 ,0.00002 - +,0.06143 ,0.00905 ,0.00340 ,0.00047 ,0.00005 ,0.00002 - +,0.05878 ,0.00861 ,0.00313 ,0.00044 ,0.00005 ,0.00002/ - DATA ((F(I,35,K),I=1,6),K=1,19)/ - + 0.16776 ,0.02707 ,0.03790 ,0.00128 ,0.00001 ,0.00000 - +,0.14928 ,0.02361 ,0.02805 ,0.00113 ,0.00003 ,0.00000 - +,0.13427 ,0.02087 ,0.02145 ,0.00101 ,0.00004 ,0.00000 - +,0.12185 ,0.01866 ,0.01685 ,0.00090 ,0.00004 ,-0.00001 - +,0.11141 ,0.01682 ,0.01353 ,0.00081 ,0.00005 ,0.00000 - +,0.10250 ,0.01528 ,0.01107 ,0.00074 ,0.00005 ,0.00000 - +,0.09477 ,0.01396 ,0.00921 ,0.00068 ,0.00005 ,0.00001 - +,0.08801 ,0.01283 ,0.00776 ,0.00062 ,0.00004 ,0.00001 - +,0.08206 ,0.01184 ,0.00662 ,0.00057 ,0.00004 ,0.00001 - +,0.07679 ,0.01098 ,0.00571 ,0.00053 ,0.00004 ,0.00001 - +,0.07208 ,0.01021 ,0.00498 ,0.00049 ,0.00004 ,0.00001 - +,0.06785 ,0.00953 ,0.00437 ,0.00046 ,0.00004 ,0.00001 - +,0.06404 ,0.00892 ,0.00387 ,0.00043 ,0.00004 ,0.00001 - +,0.06058 ,0.00838 ,0.00346 ,0.00040 ,0.00004 ,0.00001 - +,0.05743 ,0.00789 ,0.00310 ,0.00038 ,0.00003 ,0.00001 - +,0.05455 ,0.00744 ,0.00280 ,0.00035 ,0.00003 ,0.00001 - +,0.05192 ,0.00704 ,0.00254 ,0.00033 ,0.00003 ,0.00001 - +,0.04950 ,0.00667 ,0.00232 ,0.00032 ,0.00003 ,0.00001 - +,0.04726 ,0.00633 ,0.00213 ,0.00030 ,0.00003 ,0.00001/ - DATA ((F(I,36,K),I=1,6),K=1,19)/ - + 0.14163 ,0.02077 ,0.02786 ,0.00091 ,0.00001 ,0.00000 - +,0.12521 ,0.01800 ,0.02036 ,0.00080 ,0.00002 ,0.00000 - +,0.11198 ,0.01583 ,0.01541 ,0.00071 ,0.00002 ,0.00000 - +,0.10109 ,0.01408 ,0.01199 ,0.00063 ,0.00002 ,-0.00001 - +,0.09199 ,0.01264 ,0.00955 ,0.00056 ,0.00003 ,0.00000 - +,0.08426 ,0.01143 ,0.00776 ,0.00051 ,0.00003 ,0.00000 - +,0.07760 ,0.01040 ,0.00642 ,0.00046 ,0.00003 ,0.00000 - +,0.07179 ,0.00952 ,0.00538 ,0.00043 ,0.00003 ,0.00001 - +,0.06670 ,0.00876 ,0.00457 ,0.00039 ,0.00002 ,0.00001 - +,0.06220 ,0.00809 ,0.00392 ,0.00036 ,0.00003 ,0.00001 - +,0.05820 ,0.00751 ,0.00340 ,0.00033 ,0.00002 ,0.00001 - +,0.05462 ,0.00698 ,0.00298 ,0.00031 ,0.00002 ,0.00001 - +,0.05140 ,0.00652 ,0.00263 ,0.00029 ,0.00002 ,0.00001 - +,0.04849 ,0.00611 ,0.00234 ,0.00027 ,0.00002 ,0.00001 - +,0.04585 ,0.00573 ,0.00210 ,0.00025 ,0.00002 ,0.00001 - +,0.04344 ,0.00540 ,0.00189 ,0.00024 ,0.00002 ,0.00001 - +,0.04124 ,0.00509 ,0.00171 ,0.00022 ,0.00002 ,0.00001 - +,0.03923 ,0.00481 ,0.00156 ,0.00021 ,0.00002 ,0.00001 - +,0.03738 ,0.00456 ,0.00143 ,0.00020 ,0.00002 ,0.00001/ - DATA ((F(I,37,K),I=1,6),K=1,19)/ - + 0.09585 ,0.01147 ,0.01415 ,0.00043 ,0.00000 ,0.00000 - +,0.08359 ,0.00982 ,0.01008 ,0.00037 ,0.00001 ,0.00000 - +,0.07385 ,0.00853 ,0.00746 ,0.00032 ,0.00001 ,0.00000 - +,0.06595 ,0.00751 ,0.00570 ,0.00028 ,0.00001 ,0.00000 - +,0.05942 ,0.00667 ,0.00446 ,0.00025 ,0.00001 ,0.00000 - +,0.05393 ,0.00598 ,0.00357 ,0.00023 ,0.00001 ,0.00000 - +,0.04923 ,0.00540 ,0.00292 ,0.00020 ,0.00001 ,0.00000 - +,0.04519 ,0.00491 ,0.00242 ,0.00018 ,0.00001 ,0.00000 - +,0.04167 ,0.00448 ,0.00203 ,0.00017 ,0.00001 ,0.00000 - +,0.03858 ,0.00411 ,0.00173 ,0.00015 ,0.00001 ,0.00000 - +,0.03586 ,0.00379 ,0.00149 ,0.00014 ,0.00001 ,0.00000 - +,0.03343 ,0.00350 ,0.00129 ,0.00013 ,0.00001 ,0.00000 - +,0.03127 ,0.00325 ,0.00113 ,0.00012 ,0.00001 ,0.00000 - +,0.02933 ,0.00303 ,0.00100 ,0.00011 ,0.00001 ,0.00000 - +,0.02758 ,0.00283 ,0.00089 ,0.00010 ,0.00001 ,0.00000 - +,0.02600 ,0.00265 ,0.00080 ,0.00010 ,0.00001 ,0.00000 - +,0.02456 ,0.00249 ,0.00072 ,0.00009 ,0.00001 ,0.00000 - +,0.02324 ,0.00234 ,0.00066 ,0.00009 ,0.00001 ,0.00000 - +,0.02204 ,0.00221 ,0.00060 ,0.00008 ,0.00001 ,0.00000/ - DATA ((F(I,38,K),I=1,6),K=1,19)/ - + 0.05964 ,0.00572 ,0.00648 ,0.00018 ,0.00000 ,0.00000 - +,0.05125 ,0.00482 ,0.00449 ,0.00015 ,0.00000 ,0.00000 - +,0.04470 ,0.00414 ,0.00324 ,0.00013 ,0.00000 ,0.00000 - +,0.03944 ,0.00360 ,0.00243 ,0.00011 ,0.00000 ,0.00000 - +,0.03515 ,0.00316 ,0.00187 ,0.00010 ,0.00000 ,0.00000 - +,0.03158 ,0.00281 ,0.00147 ,0.00009 ,0.00000 ,0.00000 - +,0.02856 ,0.00251 ,0.00119 ,0.00008 ,0.00000 ,0.00000 - +,0.02598 ,0.00226 ,0.00097 ,0.00007 ,0.00000 ,0.00000 - +,0.02377 ,0.00205 ,0.00081 ,0.00006 ,0.00000 ,0.00000 - +,0.02184 ,0.00187 ,0.00068 ,0.00006 ,0.00000 ,0.00000 - +,0.02015 ,0.00171 ,0.00058 ,0.00005 ,0.00000 ,0.00000 - +,0.01866 ,0.00157 ,0.00050 ,0.00005 ,0.00000 ,0.00000 - +,0.01734 ,0.00145 ,0.00044 ,0.00004 ,0.00000 ,0.00000 - +,0.01616 ,0.00134 ,0.00039 ,0.00004 ,0.00000 ,0.00000 - +,0.01510 ,0.00124 ,0.00034 ,0.00004 ,0.00000 ,0.00000 - +,0.01415 ,0.00116 ,0.00030 ,0.00004 ,0.00000 ,0.00000 - +,0.01329 ,0.00108 ,0.00027 ,0.00003 ,0.00000 ,0.00000 - +,0.01251 ,0.00101 ,0.00025 ,0.00003 ,0.00000 ,0.00000 - +,0.01181 ,0.00095 ,0.00023 ,0.00003 ,0.00000 ,0.00000/ - DATA ((F(I,39,K),I=1,6),K=1,19)/ - + 0.03320 ,0.00247 ,0.00257 ,0.00007 ,0.00000 ,0.00000 - +,0.02806 ,0.00205 ,0.00173 ,0.00005 ,0.00000 ,0.00000 - +,0.02411 ,0.00174 ,0.00122 ,0.00005 ,0.00000 ,0.00000 - +,0.02099 ,0.00149 ,0.00089 ,0.00004 ,0.00000 ,0.00000 - +,0.01849 ,0.00130 ,0.00067 ,0.00003 ,0.00000 ,0.00000 - +,0.01643 ,0.00114 ,0.00052 ,0.00003 ,0.00000 ,0.00000 - +,0.01470 ,0.00101 ,0.00042 ,0.00003 ,0.00000 ,0.00000 - +,0.01324 ,0.00090 ,0.00034 ,0.00002 ,0.00000 ,0.00000 - +,0.01200 ,0.00081 ,0.00028 ,0.00002 ,0.00000 ,0.00000 - +,0.01094 ,0.00073 ,0.00023 ,0.00002 ,0.00000 ,0.00000 - +,0.01000 ,0.00066 ,0.00020 ,0.00002 ,0.00000 ,0.00000 - +,0.00919 ,0.00060 ,0.00017 ,0.00002 ,0.00000 ,0.00000 - +,0.00848 ,0.00055 ,0.00015 ,0.00001 ,0.00000 ,0.00000 - +,0.00785 ,0.00051 ,0.00013 ,0.00001 ,0.00000 ,0.00000 - +,0.00728 ,0.00047 ,0.00011 ,0.00001 ,0.00000 ,0.00000 - +,0.00678 ,0.00043 ,0.00010 ,0.00001 ,0.00000 ,0.00000 - +,0.00633 ,0.00040 ,0.00009 ,0.00001 ,0.00000 ,0.00000 - +,0.00593 ,0.00037 ,0.00008 ,0.00001 ,0.00000 ,0.00000 - +,0.00556 ,0.00035 ,0.00007 ,0.00001 ,0.00000 ,0.00000/ - DATA ((F(I,40,K),I=1,6),K=1,19)/ - + 0.01578 ,0.00088 ,0.00083 ,0.00002 ,0.00000 ,0.00000 - +,0.01309 ,0.00071 ,0.00054 ,0.00001 ,0.00000 ,0.00000 - +,0.01106 ,0.00059 ,0.00037 ,0.00001 ,0.00000 ,0.00000 - +,0.00948 ,0.00050 ,0.00026 ,0.00001 ,0.00000 ,0.00000 - +,0.00823 ,0.00043 ,0.00020 ,0.00001 ,0.00000 ,0.00000 - +,0.00721 ,0.00037 ,0.00015 ,0.00001 ,0.00000 ,0.00000 - +,0.00638 ,0.00033 ,0.00012 ,0.00001 ,0.00000 ,0.00000 - +,0.00569 ,0.00029 ,0.00009 ,0.00001 ,0.00000 ,0.00000 - +,0.00510 ,0.00026 ,0.00008 ,0.00001 ,0.00000 ,0.00000 - +,0.00460 ,0.00023 ,0.00006 ,0.00000 ,0.00000 ,0.00000 - +,0.00417 ,0.00021 ,0.00005 ,0.00000 ,0.00000 ,0.00000 - +,0.00379 ,0.00019 ,0.00004 ,0.00000 ,0.00000 ,0.00000 - +,0.00347 ,0.00017 ,0.00004 ,0.00000 ,0.00000 ,0.00000 - +,0.00318 ,0.00015 ,0.00003 ,0.00000 ,0.00000 ,0.00000 - +,0.00293 ,0.00014 ,0.00003 ,0.00000 ,0.00000 ,0.00000 - +,0.00271 ,0.00013 ,0.00003 ,0.00000 ,0.00000 ,0.00000 - +,0.00251 ,0.00012 ,0.00002 ,0.00000 ,0.00000 ,0.00000 - +,0.00233 ,0.00011 ,0.00002 ,0.00000 ,0.00000 ,0.00000 - +,0.00217 ,0.00010 ,0.00002 ,0.00000 ,0.00000 ,0.00000/ - DATA ((F(I,41,K),I=1,6),K=1,19)/ - + 0.00140 ,0.00003 ,0.00002 ,0.00000 ,0.00000 ,0.00000 - +,0.00110 ,0.00003 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00088 ,0.00002 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00072 ,0.00002 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00060 ,0.00001 ,0.00001 ,0.00000 ,0.00000 ,0.00000 - +,0.00051 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00043 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00037 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00033 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00028 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00025 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00022 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00020 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00018 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00016 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00014 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00013 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00012 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000 - +,0.00011 ,0.00001 ,0.00000 ,0.00000 ,0.00000 ,0.00000/ - DATA XX/1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, - . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, - . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, - . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, - . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, - . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, - . .8D0,.9D0,1.D0/ - DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-4,1.D0,5.D0,1310720.D0/ - DATA N0/2,5,4,5,0,0/ - DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ - DATA INIT/0/ -C - IF(INIT.NE.0) GOTO 10 - INIT=1 - DO 20 N=1,41 - DO 20 M=1,19 -C READ(64,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(6,N,M) - DO 25 I=1,6 - 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) - 20 CONTINUE - DO 30 J=1,15 - XX(J)= LOG10(XX(J))+ONEDO - DO 30 I=1,5 - DO 30 K=1,19 - 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/LOG( F(I,16,K)) - 50 FORMAT(6F10.5) - DO 40 I=1,6 - DO 40 M=1,19 - 40 F(I,42,M)=ZEROD - 10 CONTINUE - IF(X.LT.XMIN) X=XMIN - IF(X.GT.XMAX) X=XMAX - QSQ=SCALE**2 - IF(QSQ.LT.QSQMIN) QSQ=QSQMIN - IF(QSQ.GT.QSQMAX) QSQ=QSQMAX - XXX=X - IF(X.LT.PONED) XXX= LOG10(X)+ONEDO - N=0 - 70 N=N+1 - IF(XXX.GT.XX(N+1)) GOTO 70 - A=(XXX-XX(N))/(XX(N+1)-XX(N)) - RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) - B=RM-AINT(RM) - M=1+ INT(RM) - DO 60 I=1,6 - G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) - . + A*(1.D0-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) - IF(N.GE.16) GOTO 65 - IF(I.EQ.6) GOTO 65 - FAC=(ONED-B)*F(I,16,M)+B*F(I,16,M+1) - G(I)=FAC**(G(I)/FAC) - 65 CONTINUE - G(I)=G(I)*(ONED-X)**N0(I) - 60 CONTINUE - UPV=G(1) - DNV=G(2) - SEA=G(4) - STR=G(4) - CHM=G(5) - GL =G(3) - BOT=G(6) - RETURN - END diff --git a/PDF/spdf/strucor.F b/PDF/spdf/strucor.F deleted file mode 100644 index 64dc442f017..00000000000 --- a/PDF/spdf/strucor.F +++ /dev/null @@ -1,36 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:51 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:06 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C - SUBROUTINE STRUCOR(DX,DQ,DUPV,DDNV,DSEA,DSTR,DGL) -C....................................................................... -C. HIGH ENERGY STRUCTURE FUNCTIONS -C. -C :::::::::::: Owens and Reya :::::::::::::::::::::::::::: -C. Phys. Rev. D 17 (1978) 3003. -C. -C. ( LAMBDA = 500 MEV) -C....................................................................... -#include "pdf/impdp.inc" -C - QQ = DQ*DQ - CALL RXUD (DX,QQ,XUD) - CALL RXDV (DX,QQ,XDV) - CALL RXQBAR (DX,QQ,XQBAR) - CALL RXGLUE (DX,QQ,XGL) - DUPV=XUD-XDV - DDNV=XDV - DSEA=XQBAR - DSTR=DSEA - DGL =XGL - RETURN - END diff --git a/PDF/spdf/structf.F b/PDF/spdf/structf.F deleted file mode 100644 index f01f128804e..00000000000 --- a/PDF/spdf/structf.F +++ /dev/null @@ -1,87 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:55 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:06 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C -C----------------------------------------------------------------------- -C - SUBROUTINE STRUCTF(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,TOP,GL) -C -C ********************************************************************* -C * * -C * Interface to main steering routine * -C * for all sets of structure functions * -C * * -C * * -C * Input: X = x value of parton * -C * SCALE = QCD scale in GeV * -C * * -C * Output: UPV = up valence quark * -C * DNV = down valence quark * -C * SEA = sea (up and down) * -C * STR = strange quark * -C * CHM = charm quark * -C * BOT = bottom quark * -C * TOP = top quark * -C * GL = gluon * -C * * -C * * -C * The variable MODE should be, * -C * the variables NFL,LO,TMAS,QCDL4,QCDL5,XMIN,XMAX,Q2MIN,Q2MAX * -C * could be provided by the user via a call to the * -C * subroutine PDFSET at the initialization phase, where * -C * * -C * MODE = number of selected structure function * -C * (Default: MODE = 45) * -C * NFL = desired number of flavours for alpha(s) * -C * (Default: NFL = 5) * -C * LO = order of alpha(s) calculation * -C * (Default: LO = 2) * -C * TMAS = top quark mass in GeV/c**2 (optional) * -C * (Default: TMAS = 100.0D0) * -C * QCDL4 = QCD scale in GeV for four flavours * -C * QCDL5 = QCD scale in GeV for five flavours * -C * corresponding to QCDL4 * -C * XMIN = minimal allowed x value * -C * XMAX = maximal allowed x value * -C * Q2MIN = minimal allowed Q**2 value * -C * Q2MAX = maximal allowed Q**2 value * -C * * -C * for each set of structure fuction. * -C * * -C * The internal COMMON blocks * -C * * -C * COMMON/W50511/ MODE,NFL,LO,NDUMMY,TMAS * -C * COMMON/W50512/ QCDL4,QCDL5 * -C * COMMON/W50513/ XMIN,XMAX,Q2MIN,Q2MAX * -C * * -C * are filled then by the subroutine PDFSET. * -C * * -C * * -C * Note: STRUCTF returns X * parton distribution function ! * -C * * -C * * -C * Author: H. Plothow-Besch * -C * CERN-PPE, CH - 1211 Geneva 23, Switzerland * -C * * -C * Please return any problems, questions, suggestions * -C * to the author * -C * * -C ********************************************************************* -C -C -#include "pdf/impdp.inc" -C - CALL STRUCTM(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL) - SEA = (USEA + DSEA)/2. -C - RETURN - END diff --git a/PDF/spdf/structm.F b/PDF/spdf/structm.F deleted file mode 100644 index 9ad91ff4466..00000000000 --- a/PDF/spdf/structm.F +++ /dev/null @@ -1,1788 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:56 cernlib -* Version 7.04 -* -* Revision 1.2 1996/10/28 15:13:59 pdflib -* PDFLIB new version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:06 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C -C----------------------------------------------------------------------- -C - SUBROUTINE STRUCTM(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL) -C -C ********************************************************************* -C * * -C * Main steering routine for all sets of structure functions * -C * * -C * * -C * Input: X = x value of parton * -C * SCALE = QCD scale in GeV * -C * * -C * Output: UPV = up valence quark * -C * DNV = down valence quark * -C * USEA = sea (up_bar) * -C * DSEA = sea (down_bar) * -C * STR = strange quark * -C * CHM = charm quark * -C * BOT = bottom quark * -C * TOP = top quark * -C * GL = gluon * -C * * -C * * -C * The variables NPTYPE, NGROUP and NSET should be, * -C * the variables NFL, LO, TMAS and * -C * QCDL4, QCDL5, XMIN, XMAX, Q2MIN, Q2MAX * -C * could be provided by the user via a call to the * -C * subroutine PDFSET at the initialization phase, where * -C * * -C * NPTYPE = Particle type * -C * (number or character string, * -C * 1,2,3 or 'NU','PI','PH') * -C * of desired structure functions set * -C * (Default: NPTYPE = 1 or 'NU' * -C * NGROUP = author group * -C * (number or character string, * -C * 1 to 7 or i.e. 'DFLM','MRS','MT','GRV',etc) * -C * of desired structure functions set * -C * (Default: NGROUP = 5 or 'GRV') * -C * NSET = number of desired structure functions set * -C * (Default: NSET = 3) * -C * NFL = desired number of flavours for alpha(s) * -C * (Default: NFL = 5) * -C * LO = order of alpha(s) calculation * -C * (Default: LO = 2) * -C * TMAS = top quark mass in GeV/c**2 (optional) * -C * (Default: TMAS = 100.0D0) * -C * QCDL4 = QCD scale in GeV for four flavours * -C * QCDL5 = QCD scale in GeV for five flavours * -C * corresponding to QCDL4 * -C * XMIN = minimal allowed x value * -C * XMAX = maximal allowed x value * -C * Q2MIN = minimal allowed Q**2 value * -C * Q2MAX = maximal allowed Q**2 value * -C * * -C * for each set of structure fuction. * -C * * -C * The internal COMMON blocks * -C * * -C * COMMON/W50511/ NPTYPE,NGROUP,NSET,MODE,NFL,LO,TMAS * -C * COMMON/W50512/ QCDL4,QCDL5 * -C * COMMON/W50513/ XMIN,XMAX,Q2MIN,Q2MAX * -C * * -C * are filled then by the subroutine PDFSET. * -C * * -C * * -C * Note: STRUCTM returns X * parton distribution function ! * -C * * -C * * -C * Author: H. Plothow-Besch * -C * CERN-PPE, CH - 1211 Geneva 23, Switzerland * -C * * -C * Please return any problems, questions, suggestions * -C * to the author * -C * * -C ********************************************************************* -C -C -#include "pdf/impdp.inc" -C -#include "pdf/w5051p1.inc" -#include "pdf/w5051p2.inc" -#include "pdf/w5051p7.inc" -#include "pdf/w50510.inc" -#include "pdf/w50511.inc" -#include "pdf/w50512.inc" -#include "pdf/w50513.inc" -#include "pdf/w50514.inc" -#include "pdf/w50514w.inc" -#include "pdf/w50515.inc" -#include "pdf/w50516.inc" -#include "pdf/w50517.inc" -#include "pdf/w50519.inc" -#include "pdf/w505120.inc" -#include "pdf/w505121.inc" - CHARACTER*20 PARM(NCHDIM) -#include "pdf/expdp.inc" - + VAL(NCHDIM) - DATA ZEROD/0.D0/,ONED/1.D0/,TWOD/2.D0/ - SAVE /W50514/, /W50514W/, /W50516/ -C. -#include "pdf/w50511c.inc" -C. -C User wants new version (4.0 or bigger) of PDFLIB format - IF (IFLSET.NE.1) THEN - IF(FIRST) THEN - WRITE(N6,*) ' Warning : NO initialisation via PDFSET made !!' - WRITE(N6,*) - + ' ALL Parameters set to default (Nucleon PDFs) !!' - ENDIF - NPTYPE = LPTYPE - NGROUP = LGROUP - NSET = LNSET -C - PARM(1) = 'Nptype' - VAL(1) = NPTYPE - PARM(2) = 'Ngroup' - VAL(2) = NGROUP - PARM(3) = 'Nset' - VAL(3) = NSET -C - CALL PDFSET(PARM,VAL) - ENDIF -C. -C User wants old version (3.0 or less) of PDFLIB format - IF(.NOT.NEWVER) THEN - IF (MODE .GE.0 .AND. MODE .LE.MODEMX) THEN - IF(MODE.EQ.0) THEN - NPTYPE = LPTYPO - NGROUP = LGROPO - NSET = LNSETO - ELSE - NPTYPE = NPTYCR(MODE) - NGROUP = NGROCR(MODE) - NSET = NSETCR(MODE) -C Check on validity of parameter values - IF (NPTYPE.LT.0 .OR. NGROUP.LT.0 .OR. NSET.LT.0) THEN - IF(FIRST) THEN - WRITE(N6,*) ' PDFLIB : MODE value INCORRECT, MODE = ', - + MODE - WRITE(N6,*) ' Warning : MODE value set to OLD default !!' - ENDIF - NPTYPE = LPTYPO - NGROUP = LGROPO - NSET = LNSETO - ENDIF - ENDIF - ENDIF - ENDIF -C. -C... Define printer - IF(N6.LE.0) N6 = L6 -C - DUPV = ZEROD - DDNV = ZEROD - DUSEA = ZEROD - DDSEA = ZEROD - DSTR = ZEROD - DCHM = ZEROD - DBOT = ZEROD - DTOP = ZEROD - DGL = ZEROD -C - ZUPV = ZEROD - ZDNV = ZEROD - ZUSEA = ZEROD - ZDSEA = ZEROD - ZSTR = ZEROD - ZCHM = ZEROD - ZBOT = ZEROD - ZTOP = ZEROD - ZGL = ZEROD -C - DX = X - DQ = SCALE - DQ2 = SCALE*SCALE -C. - IF (DX.LE.ZEROD .OR. DX.GE.ONED) THEN - WRITE(N6,*) ' PDFLIB : Nptype = ',NPTYPE,', Ngroup = ', - + NGROUP,', Nset = ',NSET - WRITE(N6,*) - + ' Error : X value outside physical range , X = ',DX - GOTO 100 - ENDIF - WTXMIN = WTXMIN + PDFWGT - IF (DX.LT.XMIN) THEN - WXMIN = WXMIN + PDFWGT - IF(IFLPRT.GE.3) THEN - WRITE(N6,*) ' PDFLIB : Nptype = ',NPTYPE,', Ngroup = ', - + NGROUP,', Nset = ',NSET - WRITE(N6,*) - + ' Error : X value smaller allowed range , X = ',DX - ENDIF - ENDIF - WTXMAX = WTXMAX + PDFWGT - IF (DX.GT.XMAX) THEN - WXMAX = WXMAX + PDFWGT - IF(IFLPRT.GE.3) THEN - WRITE(N6,*) ' PDFLIB : Nptype = ',NPTYPE,', Ngroup = ', - + NGROUP,', Nset = ',NSET - WRITE(N6,*) - + ' Error : X value bigger allowed range , X = ',DX - ENDIF - GOTO 100 - ENDIF - WTQ2MIN = WTQ2MIN + PDFWGT - IF (DQ2.LT.Q2MIN) THEN - WQ2MIN = WQ2MIN + PDFWGT - IF(IFLPRT.GE.3) THEN - WRITE(N6,*) ' PDFLIB : Nptype = ',NPTYPE,', Ngroup = ', - + NGROUP,', Nset = ',NSET - WRITE(N6,*) - + ' Error : SCALE value smaller allowed range , Q**2 = ',DQ2 - ENDIF - ENDIF - WTQ2MAX = WTQ2MAX + PDFWGT - IF (DQ2.GT.Q2MAX) THEN - WQ2MAX = WQ2MAX + PDFWGT - IF(IFLPRT.GE.3) THEN - WRITE(N6,*) ' PDFLIB : Nptype = ',NPTYPE,', Ngroup = ', - + NGROUP,', Nset = ',NSET - WRITE(N6,*) - + ' Error : SCALE value bigger allowed range , Q**2 = ',DQ2 - ENDIF - ENDIF -C - IF (FIRST) WRITE(N6,*) ' ' - IF (FIRST) WRITE(N6,*) ' ' -C Call default structure functions set - IF (NPTYPE.EQ.0 .OR. NGROUP.EQ.0 .OR. NSET.EQ.0) THEN -C IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, -C + ', Nset = ',NSET, -C + ', for GRV Set HO Structure Functions' -C CALL GRVHO(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DTOP,DGL) -C DDSEA = DUSEA -C GOTO 100 - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set (G) (L255-MSb) Structure Functions' - CALL SFMRSG(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ENDIF -C Start with NUCLEON structure functions - IF(NPTYPE.EQ.1) THEN - IF(NGROUP.EQ.1) THEN - IF(NSET.EQ.1) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for PRIVATE Structure Functions' - CALL STRPRIV(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.2) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for BEBC Structure Functions' - CALL STRBEBC(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DGL) - DDSEA = DUSEA - DCHM=ZEROD - DBOT=ZEROD - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.3) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for OR Structure Functions' - CALL STRUCOR(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DGL) - DDSEA = DUSEA - DCHM=ZEROD - DBOT=ZEROD - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.4) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for BEP Structure Functions' - CALL STRBEP(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DGL) - DDSEA = DUSEA - DCHM=ZEROD - DBOT=ZEROD - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.5) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for GHR Structure Functions' - CALL STRGHR(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DGL) - DDSEA = DUSEA - DBOT=ZEROD - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.6) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for DO Set 1 Structure Functions' - CALL STRDO1(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DGL) - DDSEA = DUSEA - DBOT=ZEROD - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.7) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for DO Set 2 Structure Functions' - CALL STRDO2(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DGL) - DDSEA = DUSEA - DBOT=ZEROD - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.8) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for EHLQ Set 1 Structure Functions' - CALL SFEHLQ1(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DTOP,DGL) - DDSEA = DUSEA - GOTO 100 - ELSEIF(NSET.EQ.9) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for EHLQ Set 2 Structure Functions' - CALL SFEHLQ2(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DTOP,DGL) - DDSEA = DUSEA - GOTO 100 - ELSEIF(NSET.EQ.10) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for New DO Set 1.1 Structure Functions' - CALL NEWDO1(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DGL) - DDSEA = DUSEA - DBOT=ZEROD - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.GT.11) THEN - WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', Structure Functions not yet exsistent' - STOP - ENDIF - ELSEIF(NGROUP.EQ.2) THEN - IF(NSET.EQ.1) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for DFLMsoft (Valence) Structure Functions' - CALL DFLM4(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DTOP,DGL) - DDSEA = DUSEA - GOTO 100 - ELSEIF(NSET.EQ.2) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for DFLMhard (Valence) Structure Functions' - CALL DFLM5(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DTOP,DGL) - DDSEA = DUSEA - GOTO 100 - ELSEIF(NSET.EQ.3) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for DFLMsoft (Gluon) Structure Functions' - CALL DFLM6(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DTOP,DGL) - DDSEA = DUSEA - GOTO 100 - ELSEIF(NSET.EQ.4) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for DFLMhard (Gluon) Structure Functions' - CALL DFLM7(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DTOP,DGL) - DDSEA = DUSEA - GOTO 100 - ELSEIF(NSET.EQ.5) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for DFLMaverage (LO) Structure Functions' - CALL DFLM8(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DTOP,DGL) - DDSEA = DUSEA - GOTO 100 - ELSEIF(NSET.EQ.6) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for DFLMaverage (DIS) Structure Functions' - CALL DFLM9(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DTOP,DGL) - DDSEA = DUSEA - GOTO 100 - ELSEIF(NSET.EQ.7) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for DFLM160 (DIS) Structure Functions' - CALL DFLM1(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DTOP,DGL) - DDSEA = DUSEA - GOTO 100 - ELSEIF(NSET.EQ.8) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for DFLM260 (DIS) Structure Functions' - CALL DFLM2(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DTOP,DGL) - DDSEA = DUSEA - GOTO 100 - ELSEIF(NSET.EQ.9) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for DFLM360 (DIS) Structure Functions' - CALL DFLM3(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DTOP,DGL) - DDSEA = DUSEA - GOTO 100 - ELSEIF(NSET.GT.10) THEN - WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', Structure Functions not yet exsistent' - STOP - ENDIF - ELSEIF(NGROUP.EQ.3) THEN - IF(NSET.EQ.1) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set 1 (MSb) Structure Functions' - CALL STRMRS1(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.2) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set 2 (MSb) Structure Functions' - CALL STRMRS2(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.3) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set 3 (MSb) Structure Functions' - CALL STRMRS3(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.4) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set E Structure Functions' - CALL STRUCE(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.5) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set B Structure Functions' - CALL STRUCB(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.6) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set EP Structure Functions' - CALL STRCEP(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.7) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set BP Structure Functions' - CALL STRCBP(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.8) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for HMRS1 Set E Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL STRH1E(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 -C ELSEIF(NSET.EQ.9) THEN -C IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, -C + ', Nset = ',NSET, -C + ', for HMRS1 Set B Structure Functions' -C IF (FIRST) WRITE(N6,*) -C +' Warning !! : in principle, set has been retracted by the auth -C +ors !' -C FIRST = .FALSE. -C CALL STRH1B(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) -C DDSEA = DUSEA -C DTOP=ZEROD -C GOTO 100 - ELSEIF(NSET.EQ.9) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for KMRS Set B0 (190) Structure Functions (old)' - CALL STRKB0O(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.10) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for HMRS2 Set E Structure Functions' - CALL STRH2E(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.11) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for HMRS2 Set B Structure Functions' - CALL STRH2B(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.12) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for HMRS Set E+ Structure Functions' - CALL STRH3EP(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.13) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for HMRS Set E- Structure Functions' - CALL STRH3EM(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.14) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for HMRS Set E Structure Functions' - CALL STRH3E(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.15) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for HMRS Set B (190) Structure Functions' - CALL STRH3B(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.16) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for HMRS Set B (100) Structure Functions' - CALL STRH3B1(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.17) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for HMRS Set B (300) Structure Functions' - CALL STRH3B3(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.18) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for KMRS Set B- Structure Functions' - CALL STRKBM(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.19) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for KMRS Set B--R2-SH Structure Functions' - CALL SFKBMR2(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.20) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for KMRS Set B--R5-SH Structure Functions' - CALL SFKBMR5(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.21) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for KMRS Set B0 (190) updated Structure Functions' - CALL STRKB0(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.22) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set B0 (L135) Structure Functions' - CALL STRKB02(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.23) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set B0 (L160) Structure Functions' - CALL STRKB03(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.24) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set B0 (L200) Structure Functions' - CALL STRKB04(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.25) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set B0 (L235) Structure Functions' - CALL STRKB05(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.26) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set S0 (L215) Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFMRSS0(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.27) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set D0 (L215) Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFMRSD0(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.28) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set D- (L215) Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFMRSDM(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.29) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set S0p (L230-MSb) Structure Functions' - CALL SFMSBS0(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.30) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set D0p (L230-MSb) Structure Functions' - CALL SFMSBD0(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.31) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set D-p (L230-MSb) Structure Functions' - CALL SFMSBDM(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.32) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set S0p (L230-DIS) Structure Functions' - CALL SFDISS0(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.33) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set D0p (L230-DIS) Structure Functions' - CALL SFDISD0(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.34) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set D-p (L230-DIS) Structure Functions' - CALL SFDISDM(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.35) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set (H) (L230-MSb) Structure Functions' - CALL SFMSBH(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.36) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set (H) (L230-DIS) Structure Functions' - CALL SFDISH(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.37) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set (A) (L230-MSb) Structure Functions' - CALL SFMSBA(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.38) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Fit (A) (L230-MSb) Structure Functions' - CALL SFMSFA(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.39) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set (Ap) (L231-MSb) Structure Functions' - CALL SFMSAP(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.40) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Fit (Ap) (L231-MSb) Structure Functions' - CALL SFMFAP(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.41) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set (G) (L255-MSb) Structure Functions' - CALL SFMRSG(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.42) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Fit (G) (L255-MSb) Structure Functions' - CALL SFMSFG(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.43) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set (A) (L230-MSb) and low Q**2 Structure - + Functions' - IF(DQ2.GT.5.D0) - + CALL SFMSBA(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - IF(DQ2.LE.5.D0) - + CALL SFMSQA(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.44) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set (A) (L230-DIS) and low Q**2 Structure - + Functions' - IF(DQ2.GT.5.D0) - + CALL SFDISA(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - IF(DQ2.LE.5.D0) - + CALL SFDSQA(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.45) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set (Ap) (L150-MSb) Structure Functions' - CALL SFMS105(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.46) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set (Ap) (L201-MSb) Structure Functions' - CALL SFMS110(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.47) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set (Ap) (L266-MSb) Structure Functions' - CALL SFMS115(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.48) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set (Ap) (L344-MSb) Structure Functions' - CALL SFMS120(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.49) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set (Ap) (L435-MSb) Structure Functions' - CALL SFMS125(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.50) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set (Ap) (L542-MSb) Structure Functions' - CALL SFMS130(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.51) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set (J) (L344-MSb) Structure Functions' - CALL SFMRSJ(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.52) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set (Jp) (L507-MSb) Structure Functions' - CALL SFMSJP(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.53) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set (R1) (L241-MSb) Structure Functions' - CALL SFMSR1(DX,DQ2,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.54) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set (R2) (L344-MSb) Structure Functions' - CALL SFMSR2(DX,DQ2,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.55) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set (R3) (L241-MSb) Structure Functions' - CALL SFMSR3(DX,DQ2,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.56) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set (R4) (L344-MSb) Structure Functions' - CALL SFMSR4(DX,DQ2,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.57) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Fit (R1) (L241-MSb) Structure Functions' - CALL SFMFR1(DX,DQ2,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.58) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Fit (R2) (L344-MSb) Structure Functions' - CALL SFMFR2(DX,DQ2,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.GE.59) THEN - WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', Structure Functions not yet exsistent' - STOP - ENDIF - ELSEIF(NGROUP.EQ.4) THEN - IF(NSET.EQ.1) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MT Set S1 (DIS) Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFMTU1(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.2) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MT Set B1 (DIS) Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFMTU2(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.3) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MT Set B2 (DIS) Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFMTU3(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.4) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MT Set E1 (DIS) Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFMTU4(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.5) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MT Set 6 (1/2s) (DIS) Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFMTU5(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.6) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MT Set S1 (MSb) Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFMTU6(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.7) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MT Set B1 (MSb) Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFMTU7(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.8) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MT Set B2 (MSb) Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFMTU8(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.9) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MT Set E1 (MSb) Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFMTU9(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.10) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MT Set 6 (1/2s) (MSb) Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFMT10(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.11) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MT Set LO Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFMT11(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.12) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 1L (LO) Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFCTQ11(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.13) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 1M (MSb) Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFCTQ12(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.14) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 1MS (MSb) Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFCTQ13(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.15) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 1ML (MSb) Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFCTQ14(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.16) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 1D (DIS) Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFCTQ15(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.17) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 2L (LO) Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFCTQ21(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.18) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 2M (MSb) Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFCTQ22(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.19) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 2MS (MSb) Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFCTQ23(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.20) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 2MF (MSb) Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFCTQ24(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.21) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 2ML (MSb) Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFCTQ25(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.22) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 2D (DIS) Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFCTQ26(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.23) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 2pL (LO) Structure Functions' - CALL SRCTQ21(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.24) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 2pM (MSb) Structure Functions' - CALL SRCTQ22(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.25) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 2pMS (MSb) Structure Functions' - CALL SRCTQ23(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.26) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 2pMF (MSb) Structure Functions' - CALL SRCTQ24(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.27) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 2pML (MSb) Structure Functions' - CALL SRCTQ25(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.28) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 2pD (DIS) Structure Functions' - CALL SRCTQ26(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.29) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 3L (LO) Structure Functions' - CALL SFCTQ31(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.30) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 3M (MSb) Structure Functions' - CALL SFCTQ32(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.31) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 3D (DIS) Structure Functions' - CALL SFCTQ33(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.32) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 4L (LO) Structure Functions' - CALL SFCTQ41(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.33) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 4D (DIS) Structure Functions' - CALL SFCTQ42(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.34) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 4M (MSb) Structure Functions' - CALL SFCTQ43(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.35) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 4A1 (MSb) Structure Functions' - CALL SFCTQ44(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.36) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 4A2 (MSb) Structure Functions' - CALL SFCTQ45(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.37) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 4A3 (MSb) Structure Functions' - CALL SFCTQ43(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.38) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 4A4 (MSb) Structure Functions' - CALL SFCTQ46(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.39) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 4A5 (MSb) Structure Functions' - CALL SFCTQ47(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.40) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 4HJ (MSb) Structure Functions' - CALL SFCTQ48(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.41) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for CTEQ Set 4LQ (MSb) Structure Functions' - CALL SFCTQ49(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.GE.42) THEN - WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', Structure Functions not yet exsistent' - STOP - ENDIF - ELSEIF(NGROUP.EQ.5) THEN - IF(NSET.EQ.1) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for old GRV Set HO Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFGRVH(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DTOP,DGL) - DDSEA = DUSEA - GOTO 100 - ELSEIF(NSET.EQ.2) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for old GRV Set LO Structure Functions' - IF (FIRST) WRITE(N6,*) - +' Warning !! : in principle, set has been retracted by the auth - +ors !' - CALL SFGRVL(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DTOP,DGL) - DDSEA = DUSEA - GOTO 100 - ELSEIF(NSET.EQ.3) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for GRV Set HO Structure Functions' - CALL GRVHO(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DTOP,DGL) - DDSEA = DUSEA - GOTO 100 - ELSEIF(NSET.EQ.4) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for GRV Set LO Structure Functions' - CALL GRVLO(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DTOP,DGL) - DDSEA = DUSEA - GOTO 100 - ELSEIF(NSET.EQ.5) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for GRV-94 Set LO Structure Functions' - CALL GRVLO(DX,DQ,ZUPV,ZDNV,ZUSEA,ZSTR,DCHM,DBOT,DTOP,ZGL) - CALL GRV94LO(DX,DQ, - + DUPV,DDNV,DUSEA,DDSEA,DSTR,ZCHM,ZBOT,ZTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.6) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for GRV-94 Set HO (MSb) Structure Functions' - CALL GRVHO(DX,DQ,ZUPV,ZDNV,ZUSEA,ZSTR,DCHM,DBOT,DTOP,ZGL) - CALL GRV94HO(DX,DQ, - + DUPV,DDNV,DUSEA,DDSEA,DSTR,ZCHM,ZBOT,ZTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.7) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for GRV-94 Set HO (DIS) Structure Functions' - CALL GRVHO(DX,DQ,ZUPV,ZDNV,ZUSEA,ZSTR,DCHM,DBOT,DTOP,ZGL) - CALL GRV94DI(DX,DQ, - + DUPV,DDNV,DUSEA,DDSEA,DSTR,ZCHM,ZBOT,ZTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.8) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for GRSV Set LO polarized Structure Functions (standard)' - CALL GRSVL1(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DTOP,DGL) - DDSEA = DUSEA - GOTO 200 - ELSEIF(NSET.EQ.9) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for GRSV Set LO polarized Structure Functions (valence)' - CALL GRSVL2(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DTOP,DGL) - DDSEA = DUSEA - GOTO 200 - ELSEIF(NSET.EQ.10) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for GRSV Set NLO polarized Structure Functions (standard)' - CALL GRSVH1(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DTOP,DGL) - DDSEA = DUSEA - GOTO 200 - ELSEIF(NSET.EQ.11) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for GRSV Set NLO polarized Structure Functions (valence)' - CALL GRSVH2(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DTOP,DGL) - DDSEA = DUSEA - GOTO 200 - ELSEIF(NSET.GE.12) THEN - WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', Structure Functions not yet exsistent' - STOP - ENDIF - ELSEIF(NGROUP.EQ.6) THEN - IF(NSET.EQ.1) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for ABFOW Structure Functions' - CALL SFABFOW(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL) - DBOT=ZEROD - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.GE.2) THEN - WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', Structure Functions not yet exsistent' - STOP - ENDIF - ELSEIF(NGROUP.EQ.7) THEN - IF(NSET.EQ.1) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for BM Set A Structure Functions' - CALL SFBMA(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.2) THEN - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for BM Set B Structure Functions' - CALL SFBMB(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.GE.3) THEN - WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', Structure Functions not yet exsistent' - STOP - ENDIF - ELSE - WRITE(N6,*)' NUCLEON Structure function call for unknown GROUP ' - + ,NGROUP,', and unknown NSET ',NSET - STOP - ENDIF - ENDIF -C Now start PION structure functions - IF(NPTYPE.EQ.2) THEN - IF(NGROUP.EQ.1) THEN - IF(NSET.EQ.1) THEN - IF (FIRST) WRITE(N6,*) ' Pion PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for OW-P Set 1 Structure Functions' - CALL STROWP1(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DGL) - DDSEA = DUSEA - DBOT=ZEROD - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.2) THEN - IF (FIRST) WRITE(N6,*) ' Pion PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for OW-P Set 2 Structure Functions' - CALL STROWP2(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DGL) - DDSEA = DUSEA - DBOT=ZEROD - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.GE.3) THEN - WRITE(N6,*) ' Pion PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', Structure Functions not yet exsistent' - STOP - ENDIF - ELSEIF(NGROUP.EQ.2) THEN - WRITE(N6,*) ' Pion PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', Structure Functions not yet exsistent' - STOP - ELSEIF(NGROUP.EQ.3) THEN - IF(NSET.EQ.1) THEN - IF (FIRST) WRITE(N6,*) ' Pion PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for SMRS-P Set 1 Structure Functions' - CALL SMRSP31(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.2) THEN - IF (FIRST) WRITE(N6,*) ' Pion PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for SMRS-P Set 2 Structure Functions' - CALL SMRSP32(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.3) THEN - IF (FIRST) WRITE(N6,*) ' Pion PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for SMRS-P Set 3 Structure Functions' - CALL SMRSP33(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DGL) - DDSEA = DUSEA - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.GE.4) THEN - WRITE(N6,*) ' Pion PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', Structure Functions not yet exsistent' - STOP - ENDIF - ELSEIF(NGROUP.EQ.4) THEN - WRITE(N6,*) ' Pion PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', Structure Functions not yet exsistent' - STOP - ELSEIF(NGROUP.EQ.5) THEN - IF(NSET.EQ.1) THEN - IF (FIRST) WRITE(N6,*) ' Pion PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for GRV-P Set HO Structure Functions' - CALL GRVPIHO(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DTOP,DGL) - DDSEA = DUSEA - GOTO 100 - ELSEIF(NSET.EQ.2) THEN - IF (FIRST) WRITE(N6,*) ' Pion PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for GRV-P Set LO Structure Functions' - CALL GRVPILO(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DTOP,DGL) - DDSEA = DUSEA - GOTO 100 - ELSEIF(NSET.GE.3) THEN - WRITE(N6,*) ' Pion PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', Structure Functions not yet exsistent' - STOP - ENDIF - ELSEIF(NGROUP.EQ.6) THEN - IF(NSET.EQ.1) THEN - IF (FIRST) WRITE(N6,*) ' Pion PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for ABFKW-P Set 1 Structure Functions' - CALL ABFKW1(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL) - DBOT=ZEROD - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.2) THEN - IF (FIRST) WRITE(N6,*) ' Pion PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for ABFKW-P Set 2 Structure Functions' - CALL ABFKW2(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL) - DBOT=ZEROD - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.3) THEN - IF (FIRST) WRITE(N6,*) ' Pion PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for ABFKW-P Set 3 Structure Functions' - CALL ABFKW3(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL) - DBOT=ZEROD - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.GE.4) THEN - WRITE(N6,*) ' Pion PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', Structure Functions not yet exsistent' - STOP - ENDIF - ELSE - WRITE(N6,*) ' PION Structure function call for unknown GROUP ', - + NGROUP,', and unknown NSET ',NSET - STOP - ENDIF - ENDIF -C Now start PHOTON structure functions - IF(NPTYPE.EQ.3) THEN - IF(NGROUP.EQ.1) THEN - IF(NSET.EQ.1) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for DO-G Set LO Structure Functions' - CALL DOPHO1(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.2) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for DO-G Set NLL Structure Functions' - CALL DOPHO2(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.GE.3) THEN - WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', Structure Functions not yet exsistent' - STOP - ENDIF - ELSEIF(NGROUP.EQ.2) THEN - IF(NSET.EQ.1) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for DG-G Set 1 Structure Functions' - CALL DGPHO1(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.2) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for DG-G Set 2 Structure Functions' - CALL DGPHO2(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.3) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for DG-G Set 3 Structure Functions' - CALL DGPHO3(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DBOT=ZEROD - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.4) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for DG-G Set 4 Structure Functions' - CALL DGPHO4(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DBOT=ZEROD - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.GE.5) THEN - WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', Structure Functions not yet exsistent' - STOP - ENDIF - ELSEIF(NGROUP.EQ.3) THEN - IF(NSET.EQ.1) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for LAC-G Set 1 Structure Functions' - CALL SFLACG1(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.2) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for LAC-G Set 2 Structure Functions' - CALL SFLACG2(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.3) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for LAC-G Set 3 Structure Functions' - CALL SFLACG3(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.GE.4) THEN - WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', Structure Functions not yet exsistent' - STOP - ENDIF - ELSEIF(NGROUP.EQ.4) THEN - IF(NSET.EQ.1) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for GS-G Set HO Structure Functions' - CALL SFGSHO(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.2) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for GS-G LO Set 1 Structure Functions' - CALL SFGSLO1(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.3) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for GS-G LO Set 2 Structure Functions' - CALL SFGSLO2(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.4) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for GS-96-G HO Structure Functions' - CALL GS96HO(DX,DQ,DUPV,DDNV,DSTR,DCHM,DBOT,DGL) - DUSEA=DUPV - DDSEA=DDNV - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.5) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for GS-96-G LO Structure Functions' - CALL GS96LO(DX,DQ,DUPV,DDNV,DSTR,DCHM,DBOT,DGL) - DUSEA=DUPV - DDSEA=DDNV - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.GE.6) THEN - WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', Structure Functions not yet exsistent' - STOP - ENDIF - ELSEIF(NGROUP.EQ.5) THEN - IF(NSET.EQ.1) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for GRV-G Set L-HO Structure Functions' - CALL GRVGAH0(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.2) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for GRV-G Set HO Structure Functions' - CALL GRVGAHO(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.3) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for GRV-G Set LO Structure Functions' - CALL GRVGALO(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.4) THEN - IF (FIRST) THEN - WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for GRS-G Set LO Photon Structure Functions' - WRITE(N6,*) ' !! You MUST call STRUCTP ' - WRITE(N6,*) ' !! to get the INPUT parameters right !!!' - ENDIF - GOTO 100 - ELSEIF(NSET.GE.5) THEN - WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', Structure Functions not yet exsistent' - STOP - ENDIF - ELSEIF(NGROUP.EQ.6) THEN - IF(NSET.EQ.1) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for ACFGP-G Set HO Structure Functions' - CALL ACFGP1(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL) - DBOT=ZEROD - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.2) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for ACFGP-G Set HO-mc Structure Functions' - CALL ACFGP2(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL) - DBOT=ZEROD - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.3) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for AFG-G Set HO Structure Functions' - CALL SFAFG1(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL) - DBOT=ZEROD - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.GE.4) THEN - WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', Structure Functions not yet exsistent' - STOP - ENDIF - ELSEIF(NGROUP.EQ.7) THEN - WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', Structure Functions not yet exsistent' - STOP - ELSEIF(NGROUP.EQ.8) THEN - IF(NSET.EQ.1) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for WHIT-G Set 1 Structure Functions' - CALL SFWHI1(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL) - DBOT=ZEROD - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.2) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for WHIT-G Set 2 Structure Functions' - CALL SFWHI2(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL) - DBOT=ZEROD - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.3) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for WHIT-G Set 3 Structure Functions' - CALL SFWHI3(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL) - DBOT=ZEROD - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.4) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for WHIT-G Set 4 Structure Functions' - CALL SFWHI4(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL) - DBOT=ZEROD - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.5) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for WHIT-G Set 5 Structure Functions' - CALL SFWHI5(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL) - DBOT=ZEROD - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.EQ.6) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for WHIT-G Set 6 Structure Functions' - CALL SFWHI6(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DGL) - DBOT=ZEROD - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.GE.7) THEN - WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', Structure Functions not yet exsistent' - STOP - ENDIF - ELSEIF(NGROUP.EQ.9) THEN - IF(NSET.LE.8) THEN - IF (FIRST) THEN - WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for SAS Photon Structure Functions' - WRITE(N6,*) ' !! You MUST call STRUCTP ' - WRITE(N6,*) ' !! to get the INPUT parameters right !!!' - ENDIF - GOTO 100 - ELSEIF(NSET.GE.9) THEN - WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', Structure Functions not yet exsistent' - STOP - ENDIF - ELSE - WRITE(N6,*)' PHOTON Structure function call for unknown GROUP ', - + NGROUP,', and unknown NSET ',NSET - STOP - ENDIF - ENDIF - 100 IF(FIRST) WRITE(N6,*) - +' ---------------------------------------------------------------- - +------------------------------------------------' - IF (FIRST) FIRST = .FALSE. -C - UPV = MAX( ZEROD,DUPV) - DNV = MAX( ZEROD,DDNV) - USEA = MAX( ZEROD,DUSEA) - DSEA = MAX( ZEROD,DDSEA) - STR = MAX( ZEROD,DSTR) - CHM = MAX( ZEROD,DCHM) - BOT = MAX( ZEROD,DBOT) - TOP = MAX( ZEROD,DTOP) - GL = MAX( ZEROD,DGL) -C - RETURN -C - 200 IF(FIRST) WRITE(N6,*) - +' ---------------------------------------------------------------- - +------------------------------------------------' - IF (FIRST) FIRST = .FALSE. -C - UPV = DUPV - DNV = DDNV - USEA = DUSEA - DSEA = DDSEA - STR = DSTR - CHM = DCHM - BOT = DBOT - TOP = DTOP - GL = DGL -C - RETURN - END diff --git a/PDF/spdf/structp.F b/PDF/spdf/structp.F deleted file mode 100644 index 1b7773fa910..00000000000 --- a/PDF/spdf/structp.F +++ /dev/null @@ -1,374 +0,0 @@ -#include "pdf/pilot.h" -C -C----------------------------------------------------------------------- -C - SUBROUTINE STRUCTP(X,Q2,P2,IP, - + UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL) -C -C ********************************************************************* -C * * -C * Main steering routine for all sets of structure functions * -C * * -C * * -C * Input: X = x value of parton * -C * Q2 = QCD scale in GeV**2 * -C * P2 = Virtuality of the Photon in GeV**2 * -C * IP = Flag to evaluate off-shell anomalous photon * -C * component * -C * * -C * Output: UPV = up valence quark * -C * DNV = down valence quark * -C * USEA = sea (up_bar) * -C * DSEA = sea (down_bar) * -C * STR = strange quark * -C * CHM = charm quark * -C * BOT = bottom quark * -C * TOP = top quark * -C * GL = gluon * -C * * -C * * -C * The variables NPTYPE, NGROUP and NSET should be, * -C * the variables NFL, LO, TMAS and * -C * QCDL4, QCDL5, XMIN, XMAX, Q2MIN, Q2MAX * -C * could be provided by the user via a call to the * -C * subroutine PDFSET at the initialization phase, where * -C * * -C * NPTYPE = Particle type * -C * (number or character string, * -C * 1,2,3 or 'NU','PI','PH') * -C * of desired structure functions set * -C * (Default: NPTYPE = 1 or 'NU' * -C * NGROUP = author group * -C * (number or character string, * -C * 1 to 7 or i.e. 'DFLM','MRS','MT','GRV',etc) * -C * of desired structure functions set * -C * (Default: NGROUP = 5 or 'GRV') * -C * NSET = number of desired structure functions set * -C * (Default: NSET = 3) * -C * NFL = desired number of flavours for alpha(s) * -C * (Default: NFL = 5) * -C * LO = order of alpha(s) calculation * -C * (Default: LO = 2) * -C * TMAS = top quark mass in GeV/c**2 (optional) * -C * (Default: TMAS = 100.0D0) * -C * QCDL4 = QCD scale in GeV for four flavours * -C * QCDL5 = QCD scale in GeV for five flavours * -C * corresponding to QCDL4 * -C * XMIN = minimal allowed x value * -C * XMAX = maximal allowed x value * -C * Q2MIN = minimal allowed Q**2 value * -C * Q2MAX = maximal allowed Q**2 value * -C * * -C * for each set of structure fuction. * -C * * -C * The internal COMMON blocks * -C * * -C * COMMON/W50511/ NPTYPE,NGROUP,NSET,MODE,NFL,LO,TMAS * -C * COMMON/W50512/ QCDL4,QCDL5 * -C * COMMON/W50513/ XMIN,XMAX,Q2MIN,Q2MAX * -C * * -C * are filled then by the subroutine PDFSET. * -C * * -C * * -C * Note: STRUCTM returns X * parton distribution function ! * -C * * -C * * -C * Author: H. Plothow-Besch * -C * CERN-PPE, CH - 1211 Geneva 23, Switzerland * -C * * -C * Please return any problems, questions, suggestions * -C * to the author * -C * * -C ********************************************************************* -C -C -#include "pdf/impdp.inc" -C -#include "pdf/w5051p1.inc" -#include "pdf/w5051p2.inc" -#include "pdf/w5051p7.inc" -#include "pdf/w50510.inc" -#include "pdf/w50511.inc" -#include "pdf/w50512.inc" -#include "pdf/w50513.inc" -#include "pdf/w50514.inc" -#include "pdf/w50514w.inc" -#include "pdf/w50515.inc" -#include "pdf/w50516.inc" -#include "pdf/w50517.inc" -#include "pdf/w50519.inc" -#include "pdf/w505120.inc" -#include "pdf/w505121.inc" - CHARACTER*20 PARM(NCHDIM) -#include "pdf/expdp.inc" - + VAL(NCHDIM) - DATA ZEROD/0.D0/,ONED/1.D0/,TWOD/2.D0/ - SAVE /W50514/, /W50514W/, /W50516/ -C. -#include "pdf/w50511c.inc" -C. -C User wants new version (4.0 or bigger) of PDFLIB format - IF (IFLSET.NE.1) THEN - IF(FIRST) THEN - WRITE(N6,*) ' Warning : NO initialisation via PDFSET made !!' - WRITE(N6,*) - + ' ALL Parameters set to default (Nucleon PDFs) !!' - ENDIF - NPTYPE = LPTYPE - NGROUP = LGROUP - NSET = LNSET -C - PARM(1) = 'Nptype' - VAL(1) = NPTYPE - PARM(2) = 'Ngroup' - VAL(2) = NGROUP - PARM(3) = 'Nset' - VAL(3) = NSET -C - CALL PDFSET(PARM,VAL) - ENDIF -C. -C User wants old version (3.0 or less) of PDFLIB format - IF(.NOT.NEWVER) THEN - IF (MODE .GE.0 .AND. MODE .LE.MODEMX) THEN - IF(MODE.EQ.0) THEN - NPTYPE = LPTYPO - NGROUP = LGROPO - NSET = LNSETO - ELSE - NPTYPE = NPTYCR(MODE) - NGROUP = NGROCR(MODE) - NSET = NSETCR(MODE) -C Check on validity of parameter values - IF (NPTYPE.LT.0 .OR. NGROUP.LT.0 .OR. NSET.LT.0) THEN - IF(FIRST) THEN - WRITE(N6,*) ' PDFLIB : MODE value INCORRECT, MODE = ', - + MODE - WRITE(N6,*) ' Warning : MODE value set to OLD default !!' - ENDIF - NPTYPE = LPTYPO - NGROUP = LGROPO - NSET = LNSETO - ENDIF - ENDIF - ENDIF - ENDIF -C. -C... Define printer - IF(N6.LE.0) N6 = L6 -C - DUPV = ZEROD - DDNV = ZEROD - DUSEA = ZEROD - DDSEA = ZEROD - DSTR = ZEROD - DCHM = ZEROD - DBOT = ZEROD - DTOP = ZEROD - DGL = ZEROD -C - ZUPV = ZEROD - ZDNV = ZEROD - ZUSEA = ZEROD - ZDSEA = ZEROD - ZSTR = ZEROD - ZCHM = ZEROD - ZBOT = ZEROD - ZTOP = ZEROD - ZGL = ZEROD -C - DX = X - DQ = SQRT(Q2) - DQ2 = Q2 - IF (NPTYPE.EQ.3) THEN - DP2 = P2 - IP2 = IP - ELSE - DP2 = ZEROD - IP2 = 0 - ENDIF -C. - IF (DX.LE.ZEROD .OR. DX.GE.ONED) THEN - WRITE(N6,*) ' PDFLIB : Nptype = ',NPTYPE,', Ngroup = ', - + NGROUP,', Nset = ',NSET - WRITE(N6,*) - + ' Error : X value outside physical range , X = ',DX - GOTO 100 - ENDIF - WTXMIN = WTXMIN + PDFWGT - IF (DX.LT.XMIN) THEN - WXMIN = WXMIN + PDFWGT - IF(IFLPRT.GE.3) THEN - WRITE(N6,*) ' PDFLIB : Nptype = ',NPTYPE,', Ngroup = ', - + NGROUP,', Nset = ',NSET - WRITE(N6,*) - + ' Error : X value smaller allowed range , X = ',DX - ENDIF - ENDIF - WTXMAX = WTXMAX + PDFWGT - IF (DX.GT.XMAX) THEN - WXMAX = WXMAX + PDFWGT - IF(IFLPRT.GE.3) THEN - WRITE(N6,*) ' PDFLIB : Nptype = ',NPTYPE,', Ngroup = ', - + NGROUP,', Nset = ',NSET - WRITE(N6,*) - + ' Error : X value bigger allowed range , X = ',DX - ENDIF - GOTO 100 - ENDIF - WTQ2MIN = WTQ2MIN + PDFWGT - IF (DQ2.LT.Q2MIN) THEN - WQ2MIN = WQ2MIN + PDFWGT - IF(IFLPRT.GE.3) THEN - WRITE(N6,*) ' PDFLIB : Nptype = ',NPTYPE,', Ngroup = ', - + NGROUP,', Nset = ',NSET - WRITE(N6,*) - + ' Error : SCALE value smaller allowed range , Q**2 = ',DQ2 - ENDIF - ENDIF - WTQ2MAX = WTQ2MAX + PDFWGT - IF (DQ2.GT.Q2MAX) THEN - WQ2MAX = WQ2MAX + PDFWGT - IF(IFLPRT.GE.3) THEN - WRITE(N6,*) ' PDFLIB : Nptype = ',NPTYPE,', Ngroup = ', - + NGROUP,', Nset = ',NSET - WRITE(N6,*) - + ' Error : SCALE value bigger allowed range , Q**2 = ',DQ2 - ENDIF - ENDIF -C - IF (FIRST) WRITE(N6,*) ' ' - IF (FIRST) WRITE(N6,*) ' ' -C Call default structure functions set - IF (NPTYPE.EQ.0 .OR. NGROUP.EQ.0 .OR. NSET.EQ.0) THEN -C IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, -C + ', Nset = ',NSET, -C + ', for GRV Set HO Structure Functions' -C CALL GRVHO(DX,DQ,DUPV,DDNV,DUSEA,DSTR,DCHM,DBOT,DTOP,DGL) -C DDSEA = DUSEA -C GOTO 100 - IF (FIRST) WRITE(N6,*) ' Nucleon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for MRS Set (G) (L255-MSb) Structure Functions' - CALL SFMRSG(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DGL) - DTOP=ZEROD - GOTO 100 - ENDIF -C Start with NUCLEON structure functions - IF(NPTYPE.EQ.1 .OR. NPTYPE.EQ.2) THEN - CALL STRUCTM(DX,DQ, - + DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - ENDIF -C Now start PHOTON structure functions - IF(NPTYPE.EQ.3) THEN - IF(NGROUP.LE.4) THEN - CALL STRUCTM(DX,DQ, - + DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - ELSEIF(NGROUP.EQ.5) THEN - IF(NSET.LE.3) THEN - CALL STRUCTM(DX,DQ, - + DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - ELSEIF(NSET.EQ.4) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for GRS-G Set LO Structure Functions' - CALL GRVGALO(DX,DQ,ZUPV,ZDNV,ZUSEA,ZDSEA,ZSTR,DCHM,DBOT,ZGL) - CALL GRSGALO(DX,DQ2,DP2, - + DUPV,DDNV,DUSEA,DDSEA,DSTR,ZCHM,ZBOT,DGL) - DTOP=ZEROD - GOTO 100 - ELSEIF(NSET.GE.5) THEN - WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', Structure Functions not yet exsistent' - STOP - ENDIF - ELSEIF(NGROUP.GE.6 .AND. NGROUP.LE.8) THEN - CALL STRUCTM(DX,DQ, - + DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - ELSEIF(NGROUP.EQ.9) THEN - IF(NSET.EQ.1) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for SaS-G 95 Set 1D Structure Functions' - CALL SFSAS11(DX,DQ2,DP2, - + DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.2) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for SaS-G 95 Set 1M Structure Functions' - CALL SFSAS12(DX,DQ2,DP2, - + DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.3) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for SaS-G 95 Set 2D Structure Functions' - CALL SFSAS13(DX,DQ2,DP2, - + DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.4) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for SaS-G 95 Set 2M Structure Functions' - CALL SFSAS14(DX,DQ2,DP2, - + DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.5) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for SaS-G 96 Set 1D Structure Functions' - CALL SFSAS21(DX,DQ2,DP2,IP2, - + DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.6) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for SaS-G 96 Set 1M Structure Functions' - CALL SFSAS22(DX,DQ2,DP2,IP2, - + DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.7) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for SaS-G 96 Set 2D Structure Functions' - CALL SFSAS23(DX,DQ2,DP2,IP2, - + DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.EQ.8) THEN - IF (FIRST) WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', for SaS-G 96 Set 2M Structure Functions' - CALL SFSAS24(DX,DQ2,DP2,IP2, - + DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - GOTO 100 - ELSEIF(NSET.GE.9) THEN - WRITE(N6,*) ' Photon PDFs : Ngroup = ',NGROUP, - + ', Nset = ',NSET, - + ', Structure Functions not yet exsistent' - STOP - ENDIF - ELSE - WRITE(N6,*)' PHOTON Structure function call for unknown GROUP ', - + NGROUP,', and unknown NSET ',NSET - STOP - ENDIF - ENDIF - 100 IF(FIRST) WRITE(N6,*) - +' ---------------------------------------------------------------- - +------------------------------------------------' - IF (FIRST) FIRST = .FALSE. -C - UPV = MAX( ZEROD,DUPV) - DNV = MAX( ZEROD,DDNV) - USEA = MAX( ZEROD,DUSEA) - DSEA = MAX( ZEROD,DDSEA) - STR = MAX( ZEROD,DSTR) - CHM = MAX( ZEROD,DCHM) - BOT = MAX( ZEROD,DBOT) - TOP = MAX( ZEROD,DTOP) - GL = MAX( ZEROD,DGL) -C - RETURN - END diff --git a/PDF/spdf/v3.F b/PDF/spdf/v3.F deleted file mode 100644 index 17455e2819d..00000000000 --- a/PDF/spdf/v3.F +++ /dev/null @@ -1,17 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:57 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:07 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C---------------------------------------------------------------------- - FUNCTION V3(XX) - V3=XX*VALDIS(XX) - RETURN - END diff --git a/PDF/spdf/valdis.F b/PDF/spdf/valdis.F deleted file mode 100644 index b40067ed9b1..00000000000 --- a/PDF/spdf/valdis.F +++ /dev/null @@ -1,33 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:58 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:07 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -C---------------------------------------------------------------------- - FUNCTION VALDIS(XX) - COMMON/W5051I2/ Q2L - PARAMETER (Q02=0.5,ALAM2=0.045*0.045) - PARAMETER (AL0=0.7, BET0=3.21, ALPRM=-0.19, BETPRM=0.82) - - DATA ZERO/0./,HALF/0.5/,ONE/1./,TWO/2./,THRE/3./ - DATA IRAZ/0/, Q2OLD/-1./ - SAVE AV, ALPHA, BETA - - IF(Q2L.NE.Q2OLD) THEN - Q2OLD = Q2L - S = LOG( LOG( MAX( Q02,Q2L)/ALAM2)/ LOG( Q02/ALAM2)) - ALPHA = AL0 + ALPRM *S - BETA = BET0 + BETPRM*S - AV = THRE*GAMMA(ALPHA+BETA+ONE)/ - 1 (GAMMA(ALPHA)*GAMMA(BETA+ONE)) - ENDIF - VALDIS=AV * XX**ALPHA * (ONE-XX)**BETA - RETURN - END diff --git a/PDF/spdf/wate32.F b/PDF/spdf/wate32.F deleted file mode 100644 index 0cf9f04d380..00000000000 --- a/PDF/spdf/wate32.F +++ /dev/null @@ -1,64 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:58 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:07 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - SUBROUTINE WATE32 -C 32 POINT GAUSSIAN QUADRATURE ROUTINE -#include "pdf/expdp.inc" - + X(16),W(16) -#include "pdf/expdp.inc" - + XI(32),WI(32),XX(33) - COMMON/W5051I9/XI,WI,XX,NTERMS - NTERMS=32 - X(1)=0.048307665687738316235D0 - X(2)=0.144471961582796493485D0 - X(3)=0.239287362252137074545D0 - X(4)=0.331868602282127649780D0 - X(5)=0.421351276130635345364D0 - X(6)=0.506899908932229390024D0 - X(7)=0.587715757240762329041D0 - X(8)=0.663044266930215200975D0 - X(9)=0.732182118740289680387D0 - X(10)=0.794483795967942406963D0 - X(11)=0.849367613732569970134D0 - X(12)=0.896321155766052123965D0 - X(13)=0.934906075937739689171D0 - X(14)=0.964762255587506430774D0 - X(15)=0.985611511545268335400D0 - X(16)=0.997263861849481563545D0 - W(1)=0.096540088514727800567D0 - W(2)=0.095638720079274859419D0 - W(3)=0.093844399080804565639D0 - W(4)=0.091173878695763884713D0 - W(5)=0.087652093004403811143D0 - W(6)=0.083311924226946755222D0 - W(7)=0.078193895787070306472D0 - W(8)=0.072345794108848506225D0 - W(9)=0.065822222776361846838D0 - W(10)=0.058684093478535547145D0 - W(11)=0.050998059262376176196D0 - W(12)=0.042835898022226680657D0 - W(13)=0.034273862913021433103D0 - W(14)=0.025392065309262059456D0 - W(15)=0.016274394730905670605D0 - W(16)=0.007018610009470096600D0 - NTERMH = NTERMS/2 - DO 1 I=1,NTERMH - XI(I)=-X(17-I) - WI(I)=W(17-I) - XI(I+16)=X(I) - WI(I+16)=W(I) - 1 CONTINUE - DO 2 I=1,NTERMS - 2 XX(I)=0.5D0*(XI(I)+1.0D0) - XX(33)=1.0D0 - RETURN - END diff --git a/PDF/spdf/whit1g.F b/PDF/spdf/whit1g.F deleted file mode 100644 index 8d676a555b4..00000000000 --- a/PDF/spdf/whit1g.F +++ /dev/null @@ -1,84 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:59 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:10 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -c -ccccccccccccccccccccccccccccccccccccccccccccccccccccccc - DOUBLE PRECISION function WHIT1G(x,Q2) -c input: x,Q2 -c output: clg -c (gluon dist.) -ccccccccccccccccccccccccccccccccccccccccccccccccccccccc - implicit none -c arg - DOUBLE PRECISION Q2,x -c const - DOUBLE PRECISION q42it,q52it,lam42,lam52 - DOUBLE PRECISION alinv -c local - DOUBLE PRECISION A0g,B0g,C0g,A1g,AA1g,B1g,C1g - DOUBLE PRECISION s,s2,s3,s4,prsccf - DOUBLE PRECISION x1 -c parameters - parameter(lam42=0.16d0, lam52=0.091411319d0) - parameter(Q42IT=4.0d0, Q52IT=100.0d0) - parameter(alinv=137.036d0) - common /scale/ s,s2,s3,s4,prsccf -c -c begin - x1=1.0d0-x -c - if(Q2.lt.100.0d0) then -c under 100 GeV^2 -c -cccccc WHIT1 gluon (U100) -c - A0g = 2.000000d+00+s*(-3.280000d+00)+s2*( 2.894000d+00) - $ +s3*(-1.561000d+00)+s4*( 8.180000d-01) - B0g = s*(-7.610000d-01)+s2*(-4.900000d-02) - $ +s3*( 4.460000d-01) - C0g = 3.000000d+00+s*( 1.586000d+00)+s2*(-9.490000d-01) - $ +s3*( 2.425000d+00) - A1g = s*( 4.610000d-01)+s2*( 1.041000d-01) - $ +s3*(-1.753000d-02)+s4*(-2.717000d-01) - AA1g= s*( 9.680000d-03)+s2*(-4.170000d-01) - $ +s3*(-3.950000d-01)+s4*( 8.430000d-01) - B1g =-4.140000d-01+s*(-6.060000d-02)+s2*( 2.847000d-01) - $ +s3*(-5.070000d-01) - C1g = 1.244000d+00+s*( 5.880000d-01)+s2*(-1.228000d+00) - $ +s3*( 8.090000d-01) - else -c over 100 GeV^2 -c -cccccc WHIT1 gluon (O100) -c - A0g = 7.840000d-01+s*(-2.238000d+00)+s2*( 1.617000d+01) - $ +s3*(-6.250000d+01)+s4*( 8.390000d+01) - B0g =-4.030000d-01+s*(-1.307000d+00)+s2*( 8.780000d+00) - $ +s3*(-3.580000d+01)+s4*( 5.350000d+01) - C0g = 4.450000d+00+s*( 1.027000d+00)+s2*( 4.460000d+01) - $ +s3*(-1.600000d+02)+s4*( 1.816000d+02) - A1g = 3.010000d-01+s*( 1.275000d+00)+s2*(-1.563000d+00) - $ +s3*( 4.100000d+00)+s4*(-1.337000d+01) - AA1g=-1.305000d-01+s*(-1.245000d+00)+s2*( 2.438000d+00) - $ +s3*(-2.539000d+00)+s4*( 1.273000d+01) - B1g =-4.890000d-01+s*( 9.550000d-01)+s2*(-4.400000d+00) - $ +s3*( 1.022000d+01)+s4*(-1.713000d+01) - C1g = 1.331000d+00+s*(-2.481000d-01)+s2*( 1.950000d+00) - $ +s3*(-2.072000d+00) - endif -c - WHIT1G = prsccf/alinv/x* - $ ( A0g * x**B0g * x1**C0g - $ +(A1g+AA1g*x) * x**B1g * x1**C1g ) -c - return - end diff --git a/PDF/spdf/whit1q.F b/PDF/spdf/whit1q.F deleted file mode 100644 index 8bcaa09a744..00000000000 --- a/PDF/spdf/whit1q.F +++ /dev/null @@ -1,78 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:31:59 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:12 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -c -cccccccccccccccccccccccccccccc -c QPM calculation - subroutine WHIT1Q(x,r,cv,cs) -ccc INPUTS : x,r=mc^2/Q^2 -ccc OUTPUTS: cv,cs (valence- and sea- charm quark dist) -ccc cv <-- cv / ( alpha / 2PI) -ccc cs <-- cs / ( alpha_s/2PI) -c - implicit none -c arg - DOUBLE PRECISION x,r - DOUBLE PRECISION cv,cs -c CONST - DOUBLE PRECISION ec,mc - parameter(ec=2.0d0/3.0d0,mc=1.5d0) -c N=15 Gauss int. weights and points - integer GN,i - parameter(GN=15) - DOUBLE PRECISION XG(GN), XW(GN) - DATA (XG(i),i=1,GN)/6.003741d-03, - $ 3.136330d-02, 7.589671d-02, 1.377911d-01, 2.145139d-01, - $ 3.029243d-01, 3.994030d-01, 5.000000d-01, 6.005970d-01, - $ 6.970757d-01, 7.854861d-01, 8.622089d-01, 9.241033d-01, - $ 9.686367d-01, 9.939963d-01/ - DATA (XW(i),i=1,GN)/1.537662d-02, - $ 3.518302d-02, 5.357961d-02, 6.978534d-02, 8.313460d-02, - $ 9.308050d-02, 9.921574d-02, 1.012891d-01, 9.921574d-02, - $ 9.308050d-02, 8.313460d-02, 6.978534d-02, 5.357961d-02, - $ 3.518302d-02, 1.537662d-02/ -c local - DOUBLE PRECISION sum, y,z,beta,w,WHIT1G,L - parameter(L=4.0d0) - DOUBLE PRECISION x1,rx,z1,rz -c -c begin - x1=1.0d0-x - rx=4.0d0*r*x -c -c direct - beta=dsqrt(1.0d0-rx/x1) - w=x*( beta*(-1.0d0+8.0d0*x*x1-rx*x1) - $ +(x**2+x1**2+rx*(1.0d0-3.0d0*x)-0.5d0*rx**2) - $ * log( (1.0d0+beta)/(1.0d0-beta) )) - cv = 3.0d0*ec**2 * w / x -c -c resolved - sum=0.0d0 - do 10 i=1,GN - y= x+rx + (x1-rx)*XG(i)**L - z=x/y - z1=1.0d0-z - rz=4.0d0*r*z - beta=dsqrt(1.0d0-rz/z1) - w=z*( beta*(-1.0d0+8.0d0*z*z1-rz*z1) - $ +(z**2+z1**2+rz*(1.0d0-3.0d0*z)-0.5d0*rz**2) - $ * log( (1.0d0+beta)/(1.0d0-beta) )) -c - sum= sum + w * WHIT1G(y,mc**2/r)* L*XG(i)**(L-1.0d0)*XW(i) -c - 10 continue -c - cs = 0.5d0/x * (x1-rx) * sum -c - return - end diff --git a/PDF/spdf/whit2g.F b/PDF/spdf/whit2g.F deleted file mode 100644 index aed996a5cf5..00000000000 --- a/PDF/spdf/whit2g.F +++ /dev/null @@ -1,84 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:32:00 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:15 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -c -ccccccccccccccccccccccccccccccccccccccccccccccccccccccc - DOUBLE PRECISION function WHIT2G(x,Q2) -c input: x,Q2 -c output: clg -c (gluon dist.) -ccccccccccccccccccccccccccccccccccccccccccccccccccccccc - implicit none -c arg - DOUBLE PRECISION Q2,x -c const - DOUBLE PRECISION q42it,q52it,lam42,lam52 - DOUBLE PRECISION alinv -c local - DOUBLE PRECISION A0g,B0g,C0g,A1g,AA1g,B1g,C1g - DOUBLE PRECISION s,s2,s3,s4,prsccf - DOUBLE PRECISION x1 -c parameters - parameter(lam42=0.16d0, lam52=0.091411319d0) - parameter(Q42IT=4.0d0, Q52IT=100.0d0) - parameter(alinv=137.036d0) - common /scale/ s,s2,s3,s4,prsccf -c -c begin - x1=1.0d0-x -c - if(Q2.lt.100.0d0) then -c under 100 GeV^2 -c -cccccc WHIT2 gluon (U100) -c - A0g = 5.000000d+00+s*(-1.499000d+01)+s2*( 2.617000d+01) - $ +s3*(-2.530000d+01)+s4*( 1.012000d+01) - B0g = s*(-9.370000d-01)+s2*( 4.100000d-01) - $ +s3*( 3.390000d-02) - C0g = 9.000000d+00+s*( 7.090000d-01)+s2*( 3.118000d+00) - $ +s3*(-5.820000d-04) - A1g = s*( 4.610000d-01)+s2*( 1.041000d-01) - $ +s3*(-1.753000d-02)+s4*(-2.717000d-01) - AA1g= s*( 9.680000d-03)+s2*(-4.170000d-01) - $ +s3*(-3.950000d-01)+s4*( 8.430000d-01) - B1g =-4.140000d-01+s*(-6.060000d-02)+s2*( 2.847000d-01) - $ +s3*(-5.070000d-01) - C1g = 1.244000d+00+s*( 5.880000d-01)+s2*(-1.228000d+00) - $ +s3*( 8.090000d-01) - else -c over 100 GeV^2 -c -cccccc WHIT2 gluon (O100) -c - A0g = 1.095000d+00+s*(-2.388000d+00)+s2*( 9.190000d+00) - $ +s3*(-3.032000d+01)+s4*( 3.480000d+01) - B0g =-4.410000d-01+s*(-9.070000d-01)+s2*( 4.680000d+00) - $ +s3*(-1.866000d+01)+s4*( 2.717000d+01) - C0g = 1.099000d+01+s*( 4.710000d+00)+s2*( 2.801000d+01) - $ +s3*(-1.279000d+02)+s4*( 1.640000d+02) - A1g = 3.010000d-01+s*( 1.275000d+00)+s2*(-1.563000d+00) - $ +s3*( 4.100000d+00)+s4*(-1.337000d+01) - AA1g=-1.305000d-01+s*(-1.245000d+00)+s2*( 2.438000d+00) - $ +s3*(-2.539000d+00)+s4*( 1.273000d+01) - B1g =-4.890000d-01+s*( 9.550000d-01)+s2*(-4.400000d+00) - $ +s3*( 1.022000d+01)+s4*(-1.713000d+01) - C1g = 1.331000d+00+s*(-2.481000d-01)+s2*( 1.950000d+00) - $ +s3*(-2.072000d+00) - endif -c - WHIT2G = prsccf/alinv/x* - $ ( A0g * x**B0g * x1**C0g - $ +(A1g+AA1g*x) * x**B1g * x1**C1g ) -c - return - end diff --git a/PDF/spdf/whit2q.F b/PDF/spdf/whit2q.F deleted file mode 100644 index 4ea6c30acbc..00000000000 --- a/PDF/spdf/whit2q.F +++ /dev/null @@ -1,78 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:32:01 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:15 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -c -cccccccccccccccccccccccccccccc -c QPM calculation - subroutine WHIT2Q(x,r,cv,cs) -ccc INPUTS : x,r=mc^2/Q^2 -ccc OUTPUTS: cv,cs (valence- and sea- charm quark dist) -ccc cv <-- cv / ( alpha / 2PI) -ccc cs <-- cs / ( alpha_s/2PI) -c - implicit none -c arg - DOUBLE PRECISION x,r - DOUBLE PRECISION cv,cs -c CONST - DOUBLE PRECISION ec,mc - parameter(ec=2.0d0/3.0d0,mc=1.5d0) -c N=15 Gauss int. weights and points - integer GN,i - parameter(GN=15) - DOUBLE PRECISION XG(GN), XW(GN) - DATA (XG(i),i=1,GN)/6.003741d-03, - $ 3.136330d-02, 7.589671d-02, 1.377911d-01, 2.145139d-01, - $ 3.029243d-01, 3.994030d-01, 5.000000d-01, 6.005970d-01, - $ 6.970757d-01, 7.854861d-01, 8.622089d-01, 9.241033d-01, - $ 9.686367d-01, 9.939963d-01/ - DATA (XW(i),i=1,GN)/1.537662d-02, - $ 3.518302d-02, 5.357961d-02, 6.978534d-02, 8.313460d-02, - $ 9.308050d-02, 9.921574d-02, 1.012891d-01, 9.921574d-02, - $ 9.308050d-02, 8.313460d-02, 6.978534d-02, 5.357961d-02, - $ 3.518302d-02, 1.537662d-02/ -c local - DOUBLE PRECISION sum, y,z,beta,w,WHIT2G,L - parameter(L=4.0d0) - DOUBLE PRECISION x1,rx,z1,rz -c -c begin - x1=1.0d0-x - rx=4.0d0*r*x -c -c direct - beta=dsqrt(1.0d0-rx/x1) - w=x*( beta*(-1.0d0+8.0d0*x*x1-rx*x1) - $ +(x**2+x1**2+rx*(1.0d0-3.0d0*x)-0.5d0*rx**2) - $ * log( (1.0d0+beta)/(1.0d0-beta) )) - cv = 3.0d0*ec**2 * w / x -c -c resolved - sum=0.0d0 - do 10 i=1,GN - y= x+rx + (x1-rx)*XG(i)**L - z=x/y - z1=1.0d0-z - rz=4.0d0*r*z - beta=dsqrt(1.0d0-rz/z1) - w=z*( beta*(-1.0d0+8.0d0*z*z1-rz*z1) - $ +(z**2+z1**2+rz*(1.0d0-3.0d0*z)-0.5d0*rz**2) - $ * log( (1.0d0+beta)/(1.0d0-beta) )) -c - sum= sum + w * WHIT2G(y,mc**2/r)* L*XG(i)**(L-1.0d0)*XW(i) -c - 10 continue -c - cs = 0.5d0/x * (x1-rx) * sum -c - return - end diff --git a/PDF/spdf/whit3g.F b/PDF/spdf/whit3g.F deleted file mode 100644 index 8c4f562a106..00000000000 --- a/PDF/spdf/whit3g.F +++ /dev/null @@ -1,84 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:32:01 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:15 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -c -ccccccccccccccccccccccccccccccccccccccccccccccccccccccc - DOUBLE PRECISION function WHIT3G(x,Q2) -c input: x,Q2 -c output: clg -c (gluon dist.) -ccccccccccccccccccccccccccccccccccccccccccccccccccccccc - implicit none -c arg - DOUBLE PRECISION Q2,x -c const - DOUBLE PRECISION q42it,q52it,lam42,lam52 - DOUBLE PRECISION alinv -c local - DOUBLE PRECISION A0g,B0g,C0g,A1g,AA1g,B1g,C1g - DOUBLE PRECISION s,s2,s3,s4,prsccf - DOUBLE PRECISION x1 -c parameters - parameter(lam42=0.16d0, lam52=0.091411319d0) - parameter(Q42IT=4.0d0, Q52IT=100.0d0) - parameter(alinv=137.036d0) - common /scale/ s,s2,s3,s4,prsccf -c -c begin - x1=1.0d0-x -c - if(Q2.lt.100.0d0) then -c under 100 GeV^2 -c -cccccc WHIT3 gluon (U100) -c - A0g = 8.000000d+00+s*(-2.864000d+01)+s2*( 5.590000d+01) - $ +s3*(-5.760000d+01)+s4*( 2.366000d+01) - B0g = s*(-9.870000d-01)+s2*( 5.100000d-01) - $ +s3*(-6.670000d-02) - C0g = 1.500000d+01+s*( 3.310000d-01)+s2*( 3.500000d+00) - $ +s3*( 8.920000d-01) - A1g = s*( 4.610000d-01)+s2*( 1.041000d-01) - $ +s3*(-1.753000d-02)+s4*(-2.717000d-01) - AA1g= s*( 9.680000d-03)+s2*(-4.170000d-01) - $ +s3*(-3.950000d-01)+s4*( 8.430000d-01) - B1g =-4.140000d-01+s*(-6.060000d-02)+s2*( 2.847000d-01) - $ +s3*(-5.070000d-01) - C1g = 1.244000d+00+s*( 5.880000d-01)+s2*(-1.228000d+00) - $ +s3*( 8.090000d-01) - else -c over 100 GeV^2 -c -cccccc WHIT3 gluon (O100) -c - A0g = 1.270000d+00+s*(-2.817000d+00)+s2*( 5.740000d+00) - $ +s3*(-1.327000d+01)+s4*( 1.268000d+01) - B0g =-4.610000d-01+s*(-8.170000d-01)+s2*( 3.320000d+00) - $ +s3*(-1.296000d+01)+s4*( 1.893000d+01) - C0g = 1.721000d+01+s*( 1.257000d+00)+s2*( 5.050000d+01) - $ +s3*(-2.761000d+02)+s4*( 4.900000d+02) - A1g = 3.010000d-01+s*( 1.275000d+00)+s2*(-1.563000d+00) - $ +s3*( 4.100000d+00)+s4*(-1.337000d+01) - AA1g=-1.305000d-01+s*(-1.245000d+00)+s2*( 2.438000d+00) - $ +s3*(-2.539000d+00)+s4*( 1.273000d+01) - B1g =-4.890000d-01+s*( 9.550000d-01)+s2*(-4.400000d+00) - $ +s3*( 1.022000d+01)+s4*(-1.713000d+01) - C1g = 1.331000d+00+s*(-2.481000d-01)+s2*( 1.950000d+00) - $ +s3*(-2.072000d+00) - endif -c - WHIT3G = prsccf/alinv/x* - $ ( A0g * x**B0g * x1**C0g - $ +(A1g+AA1g*x) * x**B1g * x1**C1g ) -c - return - end diff --git a/PDF/spdf/whit3q.F b/PDF/spdf/whit3q.F deleted file mode 100644 index 8cdaa68d2a4..00000000000 --- a/PDF/spdf/whit3q.F +++ /dev/null @@ -1,78 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:32:02 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:16 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -c -cccccccccccccccccccccccccccccc -c QPM calculation - subroutine WHIT3Q(x,r,cv,cs) -ccc INPUTS : x,r=mc^2/Q^2 -ccc OUTPUTS: cv,cs (valence- and sea- charm quark dist) -ccc cv <-- cv / ( alpha / 2PI) -ccc cs <-- cs / ( alpha_s/2PI) -c - implicit none -c arg - DOUBLE PRECISION x,r - DOUBLE PRECISION cv,cs -c CONST - DOUBLE PRECISION ec,mc - parameter(ec=2.0d0/3.0d0,mc=1.5d0) -c N=15 Gauss int. weights and points - integer GN,i - parameter(GN=15) - DOUBLE PRECISION XG(GN), XW(GN) - DATA (XG(i),i=1,GN)/6.003741d-03, - $ 3.136330d-02, 7.589671d-02, 1.377911d-01, 2.145139d-01, - $ 3.029243d-01, 3.994030d-01, 5.000000d-01, 6.005970d-01, - $ 6.970757d-01, 7.854861d-01, 8.622089d-01, 9.241033d-01, - $ 9.686367d-01, 9.939963d-01/ - DATA (XW(i),i=1,GN)/1.537662d-02, - $ 3.518302d-02, 5.357961d-02, 6.978534d-02, 8.313460d-02, - $ 9.308050d-02, 9.921574d-02, 1.012891d-01, 9.921574d-02, - $ 9.308050d-02, 8.313460d-02, 6.978534d-02, 5.357961d-02, - $ 3.518302d-02, 1.537662d-02/ -c local - DOUBLE PRECISION sum, y,z,beta,w,WHIT3G,L - parameter(L=4.0d0) - DOUBLE PRECISION x1,rx,z1,rz -c -c begin - x1=1.0d0-x - rx=4.0d0*r*x -c -c direct - beta=dsqrt(1.0d0-rx/x1) - w=x*( beta*(-1.0d0+8.0d0*x*x1-rx*x1) - $ +(x**2+x1**2+rx*(1.0d0-3.0d0*x)-0.5d0*rx**2) - $ * log( (1.0d0+beta)/(1.0d0-beta) )) - cv = 3.0d0*ec**2 * w / x -c -c resolved - sum=0.0d0 - do 10 i=1,GN - y= x+rx + (x1-rx)*XG(i)**L - z=x/y - z1=1.0d0-z - rz=4.0d0*r*z - beta=dsqrt(1.0d0-rz/z1) - w=z*( beta*(-1.0d0+8.0d0*z*z1-rz*z1) - $ +(z**2+z1**2+rz*(1.0d0-3.0d0*z)-0.5d0*rz**2) - $ * log( (1.0d0+beta)/(1.0d0-beta) )) -c - sum= sum + w * WHIT3G(y,mc**2/r)* L*XG(i)**(L-1.0d0)*XW(i) -c - 10 continue -c - cs = 0.5d0/x * (x1-rx) * sum -c - return - end diff --git a/PDF/spdf/whit4g.F b/PDF/spdf/whit4g.F deleted file mode 100644 index e3f4abe5c5c..00000000000 --- a/PDF/spdf/whit4g.F +++ /dev/null @@ -1,84 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:32:03 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:16 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -c -ccccccccccccccccccccccccccccccccccccccccccccccccccccccc - DOUBLE PRECISION function WHIT4G(x,Q2) -c input: x,Q2 -c output: clg -c (gluon dist.) -ccccccccccccccccccccccccccccccccccccccccccccccccccccccc - implicit none -c arg - DOUBLE PRECISION Q2,x -c const - DOUBLE PRECISION q42it,q52it,lam42,lam52 - DOUBLE PRECISION alinv -c local - DOUBLE PRECISION A0g,B0g,C0g,A1g,AA1g,B1g,C1g - DOUBLE PRECISION s,s2,s3,s4,prsccf - DOUBLE PRECISION x1 -c parameters - parameter(lam42=0.16d0, lam52=0.091411319d0) - parameter(Q42IT=4.0d0, Q52IT=100.0d0) - parameter(alinv=137.036d0) - common /scale/ s,s2,s3,s4,prsccf -c -c begin - x1=1.0d0-x -c - if(Q2.lt.100.0d0) then -c under 100 GeV^2 -c -cccccc WHIT4 gluon (U100) -c - A0g = 4.000000d+00+s*(-9.400000d+00)+s2*( 1.555000d+01) - $ +s3*(-1.450000d+01)+s4*( 5.470000d+00) - B0g = s*(-1.142000d+00)+s2*( 1.034000d+00) - $ +s3*(-4.410000d-01) - C0g = 3.000000d+00+s*( 8.720000d-01)+s2*( 1.006000d+00) - $ +s3*( 3.560000d-01) - A1g = s*( 6.020000d-01)+s2*( 5.090000d-01) - $ +s3*(-2.054000d+00)+s4*( 1.392000d+00) - AA1g= s*(-9.220000d-02)+s2*(-1.899000d+00) - $ +s3*( 4.180000d+00)+s4*(-2.494000d+00) - B1g =-2.895000d-01+s*( 3.760000d-01)+s2*(-1.719000d+00) - $ +s3*( 1.116000d+00) - C1g = 1.439000d+00+s*(-5.570000d-01)+s2*( 3.660000d-01) - $ +s3*( 7.330000d-01)+s4*(-7.620000d-01) - else -c over 100 GeV^2 -c -cccccc WHIT4 gluon (O100) -c - A0g = 1.384000d+00+s*(-2.455000d+00)+s2*( 8.940000d+00) - $ +s3*(-2.906000d+01)+s4*( 3.710000d+01) - B0g =-4.420000d-01+s*(-7.190000d-01)+s2*( 2.961000d+00) - $ +s3*(-1.209000d+01)+s4*( 1.916000d+01) - C0g = 4.210000d+00+s*( 2.524000d+00)+s2*( 1.003000d+01) - $ +s3*(-1.827000d+01)+s4*( 2.162000d+00) - A1g = 2.992000d-01+s*( 1.179000d+00)+s2*(-1.915000d+00) - $ +s3*( 7.260000d+00)+s4*(-1.839000d+01) - AA1g=-1.600000d-01+s*(-1.114000d+00)+s2*( 2.939000d+00) - $ +s3*(-6.660000d+00)+s4*( 1.923000d+01) - B1g =-4.830000d-01+s*( 7.550000d-01)+s2*(-3.800000d+00) - $ +s3*( 1.075000d+01)+s4*(-1.993000d+01) - C1g = 1.297000d+00+s*(-1.669000d-01)+s2*( 1.906000d+00) - $ +s3*(-2.057000d+00) - endif -c - WHIT4G = prsccf/alinv/x* - $ ( A0g * x**B0g * x1**C0g - $ +(A1g+AA1g*x) * x**B1g * x1**C1g ) -c - return - end diff --git a/PDF/spdf/whit4q.F b/PDF/spdf/whit4q.F deleted file mode 100644 index a7955fd6f3e..00000000000 --- a/PDF/spdf/whit4q.F +++ /dev/null @@ -1,78 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:32:04 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:16 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -c -cccccccccccccccccccccccccccccc -c QPM calculation - subroutine WHIT4Q(x,r,cv,cs) -ccc INPUTS : x,r=mc^2/Q^2 -ccc OUTPUTS: cv,cs (valence- and sea- charm quark dist) -ccc cv <-- cv / ( alpha / 2PI) -ccc cs <-- cs / ( alpha_s/2PI) -c - implicit none -c arg - DOUBLE PRECISION x,r - DOUBLE PRECISION cv,cs -c CONST - DOUBLE PRECISION ec,mc - parameter(ec=2.0d0/3.0d0,mc=1.5d0) -c N=15 Gauss int. weights and points - integer GN,i - parameter(GN=15) - DOUBLE PRECISION XG(GN), XW(GN) - DATA (XG(i),i=1,GN)/6.003741d-03, - $ 3.136330d-02, 7.589671d-02, 1.377911d-01, 2.145139d-01, - $ 3.029243d-01, 3.994030d-01, 5.000000d-01, 6.005970d-01, - $ 6.970757d-01, 7.854861d-01, 8.622089d-01, 9.241033d-01, - $ 9.686367d-01, 9.939963d-01/ - DATA (XW(i),i=1,GN)/1.537662d-02, - $ 3.518302d-02, 5.357961d-02, 6.978534d-02, 8.313460d-02, - $ 9.308050d-02, 9.921574d-02, 1.012891d-01, 9.921574d-02, - $ 9.308050d-02, 8.313460d-02, 6.978534d-02, 5.357961d-02, - $ 3.518302d-02, 1.537662d-02/ -c local - DOUBLE PRECISION sum, y,z,beta,w,WHIT4G,L - parameter(L=4.0d0) - DOUBLE PRECISION x1,rx,z1,rz -c -c begin - x1=1.0d0-x - rx=4.0d0*r*x -c -c direct - beta=dsqrt(1.0d0-rx/x1) - w=x*( beta*(-1.0d0+8.0d0*x*x1-rx*x1) - $ +(x**2+x1**2+rx*(1.0d0-3.0d0*x)-0.5d0*rx**2) - $ * log( (1.0d0+beta)/(1.0d0-beta) )) - cv = 3.0d0*ec**2 * w / x -c -c resolved - sum=0.0d0 - do 10 i=1,GN - y= x+rx + (x1-rx)*XG(i)**L - z=x/y - z1=1.0d0-z - rz=4.0d0*r*z - beta=dsqrt(1.0d0-rz/z1) - w=z*( beta*(-1.0d0+8.0d0*z*z1-rz*z1) - $ +(z**2+z1**2+rz*(1.0d0-3.0d0*z)-0.5d0*rz**2) - $ * log( (1.0d0+beta)/(1.0d0-beta) )) -c - sum= sum + w * WHIT4G(y,mc**2/r)* L*XG(i)**(L-1.0d0)*XW(i) -c - 10 continue -c - cs = 0.5d0/x * (x1-rx) * sum -c - return - end diff --git a/PDF/spdf/whit5g.F b/PDF/spdf/whit5g.F deleted file mode 100644 index b9500d89374..00000000000 --- a/PDF/spdf/whit5g.F +++ /dev/null @@ -1,84 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:32:04 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:16 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -c -ccccccccccccccccccccccccccccccccccccccccccccccccccccccc - DOUBLE PRECISION function WHIT5G(x,Q2) -c input: x,Q2 -c output: clg -c (gluon dist.) -ccccccccccccccccccccccccccccccccccccccccccccccccccccccc - implicit none -c arg - DOUBLE PRECISION Q2,x -c const - DOUBLE PRECISION q42it,q52it,lam42,lam52 - DOUBLE PRECISION alinv -c local - DOUBLE PRECISION A0g,B0g,C0g,A1g,AA1g,B1g,C1g - DOUBLE PRECISION s,s2,s3,s4,prsccf - DOUBLE PRECISION x1 -c parameters - parameter(lam42=0.16d0, lam52=0.091411319d0) - parameter(Q42IT=4.0d0, Q52IT=100.0d0) - parameter(alinv=137.036d0) - common /scale/ s,s2,s3,s4,prsccf -c -c begin - x1=1.0d0-x -c - if(Q2.lt.100.0d0) then -c under 100 GeV^2 -c -cccccc WHIT5 gluon (U100) -c - A0g = 1.000000d+01+s*(-3.400000d+01)+s2*( 6.900000d+01) - $ +s3*(-7.530000d+01)+s4*( 3.230000d+01) - B0g = s*(-1.126000d+00)+s2*( 9.260000d-01) - $ +s3*(-3.930000d-01) - C0g = 9.000000d+00+s*( 4.810000d-01)+s2*( 3.200000d+00) - $ +s3*(-3.470000d-01) - A1g = s*( 6.020000d-01)+s2*( 5.090000d-01) - $ +s3*(-2.054000d+00)+s4*( 1.392000d+00) - AA1g= s*(-9.220000d-02)+s2*(-1.899000d+00) - $ +s3*( 4.180000d+00)+s4*(-2.494000d+00) - B1g =-2.895000d-01+s*( 3.760000d-01)+s2*(-1.719000d+00) - $ +s3*( 1.116000d+00) - C1g = 1.439000d+00+s*(-5.570000d-01)+s2*( 3.660000d-01) - $ +s3*( 7.330000d-01)+s4*(-7.620000d-01) - else -c over 100 GeV^2 -c -cccccc WHIT5 gluon (O100) -c - A0g = 1.995000d+00+s*(-3.260000d+00)+s2*( 1.818000d+00) - $ +s3*( 1.711000d+00)+s4*(-4.990000d+00) - B0g =-4.660000d-01+s*(-6.100000d-01)+s2*( 1.691000d+00) - $ +s3*(-6.680000d+00)+s4*( 1.019000d+01) - C0g = 1.075000d+01+s*( 5.420000d+00)+s2*( 6.550000d+00) - $ +s3*(-2.297000d+01)+s4*( 1.867000d+01) - A1g = 2.992000d-01+s*( 1.179000d+00)+s2*(-1.915000d+00) - $ +s3*( 7.260000d+00)+s4*(-1.839000d+01) - AA1g=-1.600000d-01+s*(-1.114000d+00)+s2*( 2.939000d+00) - $ +s3*(-6.660000d+00)+s4*( 1.923000d+01) - B1g =-4.830000d-01+s*( 7.550000d-01)+s2*(-3.800000d+00) - $ +s3*( 1.075000d+01)+s4*(-1.993000d+01) - C1g = 1.297000d+00+s*(-1.669000d-01)+s2*( 1.906000d+00) - $ +s3*(-2.057000d+00) - endif -c - WHIT5G = prsccf/alinv/x* - $ ( A0g * x**B0g * x1**C0g - $ +(A1g+AA1g*x) * x**B1g * x1**C1g ) -c - return - end diff --git a/PDF/spdf/whit5q.F b/PDF/spdf/whit5q.F deleted file mode 100644 index 0c1c80b3194..00000000000 --- a/PDF/spdf/whit5q.F +++ /dev/null @@ -1,78 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:32:05 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:16 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -c -cccccccccccccccccccccccccccccc -c QPM calculation - subroutine WHIT5Q(x,r,cv,cs) -ccc INPUTS : x,r=mc^2/Q^2 -ccc OUTPUTS: cv,cs (valence- and sea- charm quark dist) -ccc cv <-- cv / ( alpha / 2PI) -ccc cs <-- cs / ( alpha_s/2PI) -c - implicit none -c arg - DOUBLE PRECISION x,r - DOUBLE PRECISION cv,cs -c CONST - DOUBLE PRECISION ec,mc - parameter(ec=2.0d0/3.0d0,mc=1.5d0) -c N=15 Gauss int. weights and points - integer GN,i - parameter(GN=15) - DOUBLE PRECISION XG(GN), XW(GN) - DATA (XG(i),i=1,GN)/6.003741d-03, - $ 3.136330d-02, 7.589671d-02, 1.377911d-01, 2.145139d-01, - $ 3.029243d-01, 3.994030d-01, 5.000000d-01, 6.005970d-01, - $ 6.970757d-01, 7.854861d-01, 8.622089d-01, 9.241033d-01, - $ 9.686367d-01, 9.939963d-01/ - DATA (XW(i),i=1,GN)/1.537662d-02, - $ 3.518302d-02, 5.357961d-02, 6.978534d-02, 8.313460d-02, - $ 9.308050d-02, 9.921574d-02, 1.012891d-01, 9.921574d-02, - $ 9.308050d-02, 8.313460d-02, 6.978534d-02, 5.357961d-02, - $ 3.518302d-02, 1.537662d-02/ -c local - DOUBLE PRECISION sum, y,z,beta,w,WHIT5G,L - parameter(L=4.0d0) - DOUBLE PRECISION x1,rx,z1,rz -c -c begin - x1=1.0d0-x - rx=4.0d0*r*x -c -c direct - beta=dsqrt(1.0d0-rx/x1) - w=x*( beta*(-1.0d0+8.0d0*x*x1-rx*x1) - $ +(x**2+x1**2+rx*(1.0d0-3.0d0*x)-0.5d0*rx**2) - $ * log( (1.0d0+beta)/(1.0d0-beta) )) - cv = 3.0d0*ec**2 * w / x -c -c resolved - sum=0.0d0 - do 10 i=1,GN - y= x+rx + (x1-rx)*XG(i)**L - z=x/y - z1=1.0d0-z - rz=4.0d0*r*z - beta=dsqrt(1.0d0-rz/z1) - w=z*( beta*(-1.0d0+8.0d0*z*z1-rz*z1) - $ +(z**2+z1**2+rz*(1.0d0-3.0d0*z)-0.5d0*rz**2) - $ * log( (1.0d0+beta)/(1.0d0-beta) )) -c - sum= sum + w * WHIT5G(y,mc**2/r)* L*XG(i)**(L-1.0d0)*XW(i) -c - 10 continue -c - cs = 0.5d0/x * (x1-rx) * sum -c - return - end diff --git a/PDF/spdf/whit6g.F b/PDF/spdf/whit6g.F deleted file mode 100644 index c1b9635bb49..00000000000 --- a/PDF/spdf/whit6g.F +++ /dev/null @@ -1,84 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:32:06 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:16 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -c -ccccccccccccccccccccccccccccccccccccccccccccccccccccccc - DOUBLE PRECISION function WHIT6G(x,Q2) -c input: x,Q2 -c output: clg -c (gluon dist.) -ccccccccccccccccccccccccccccccccccccccccccccccccccccccc - implicit none -c arg - DOUBLE PRECISION Q2,x -c const - DOUBLE PRECISION q42it,q52it,lam42,lam52 - DOUBLE PRECISION alinv -c local - DOUBLE PRECISION A0g,B0g,C0g,A1g,AA1g,B1g,C1g - DOUBLE PRECISION s,s2,s3,s4,prsccf - DOUBLE PRECISION x1 -c parameters - parameter(lam42=0.16d0, lam52=0.091411319d0) - parameter(Q42IT=4.0d0, Q52IT=100.0d0) - parameter(alinv=137.036d0) - common /scale/ s,s2,s3,s4,prsccf -c -c begin - x1=1.0d0-x -c - if(Q2.lt.100.0d0) then -c under 100 GeV^2 -c -cccccc WHIT6 gluon (U100) -c - A0g = 1.600000d+01+s*(-6.100000d+01)+s2*( 1.278000d+02) - $ +s3*(-1.399000d+02)+s4*( 5.990000d+01) - B0g = s*(-1.109000d+00)+s2*( 8.450000d-01) - $ +s3*(-3.510000d-01) - C0g = 1.500000d+01+s*( 1.596000d-01)+s2*( 4.180000d+00) - $ +s3*(-1.765000d-01) - A1g = s*( 6.020000d-01)+s2*( 5.090000d-01) - $ +s3*(-2.054000d+00)+s4*( 1.392000d+00) - AA1g= s*(-9.220000d-02)+s2*(-1.899000d+00) - $ +s3*( 4.180000d+00)+s4*(-2.494000d+00) - B1g =-2.895000d-01+s*( 3.760000d-01)+s2*(-1.719000d+00) - $ +s3*( 1.116000d+00) - C1g = 1.439000d+00+s*(-5.570000d-01)+s2*( 3.660000d-01) - $ +s3*( 7.330000d-01)+s4*(-7.620000d-01) - else -c over 100 GeV^2 -c -cccccc WHIT6 gluon (O100) -c - A0g = 2.378000d+00+s*(-4.380000d+00)+s2*( 5.850000d-01) - $ +s3*( 8.340000d+00)+s4*(-9.920000d+00) - B0g =-4.790000d-01+s*(-6.070000d-01)+s2*( 1.458000d+00) - $ +s3*(-6.030000d+00)+s4*( 9.330000d+00) - C0g = 1.706000d+01+s*( 4.960000d+00)+s2*( 2.497000d+01) - $ +s3*(-1.582000d+02)+s4*( 2.954000d+02) - A1g = 2.992000d-01+s*( 1.179000d+00)+s2*(-1.915000d+00) - $ +s3*( 7.260000d+00)+s4*(-1.839000d+01) - AA1g=-1.600000d-01+s*(-1.114000d+00)+s2*( 2.939000d+00) - $ +s3*(-6.660000d+00)+s4*( 1.923000d+01) - B1g =-4.830000d-01+s*( 7.550000d-01)+s2*(-3.800000d+00) - $ +s3*( 1.075000d+01)+s4*(-1.993000d+01) - C1g = 1.297000d+00+s*(-1.669000d-01)+s2*( 1.906000d+00) - $ +s3*(-2.057000d+00) - endif -c - WHIT6G = prsccf/alinv/x* - $ ( A0g * x**B0g * x1**C0g - $ +(A1g+AA1g*x) * x**B1g * x1**C1g ) -c - return - end diff --git a/PDF/spdf/whit6q.F b/PDF/spdf/whit6q.F deleted file mode 100644 index a4345805ffd..00000000000 --- a/PDF/spdf/whit6q.F +++ /dev/null @@ -1,78 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:32:06 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:16 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" -c -cccccccccccccccccccccccccccccc -c QPM calculation - subroutine WHIT6Q(x,r,cv,cs) -ccc INPUTS : x,r=mc^2/Q^2 -ccc OUTPUTS: cv,cs (valence- and sea- charm quark dist) -ccc cv <-- cv / ( alpha / 2PI) -ccc cs <-- cs / ( alpha_s/2PI) -c - implicit none -c arg - DOUBLE PRECISION x,r - DOUBLE PRECISION cv,cs -c CONST - DOUBLE PRECISION ec,mc - parameter(ec=2.0d0/3.0d0,mc=1.5d0) -c N=15 Gauss int. weights and points - integer GN,i - parameter(GN=15) - DOUBLE PRECISION XG(GN), XW(GN) - DATA (XG(i),i=1,GN)/6.003741d-03, - $ 3.136330d-02, 7.589671d-02, 1.377911d-01, 2.145139d-01, - $ 3.029243d-01, 3.994030d-01, 5.000000d-01, 6.005970d-01, - $ 6.970757d-01, 7.854861d-01, 8.622089d-01, 9.241033d-01, - $ 9.686367d-01, 9.939963d-01/ - DATA (XW(i),i=1,GN)/1.537662d-02, - $ 3.518302d-02, 5.357961d-02, 6.978534d-02, 8.313460d-02, - $ 9.308050d-02, 9.921574d-02, 1.012891d-01, 9.921574d-02, - $ 9.308050d-02, 8.313460d-02, 6.978534d-02, 5.357961d-02, - $ 3.518302d-02, 1.537662d-02/ -c local - DOUBLE PRECISION sum, y,z,beta,w,WHIT6G,L - parameter(L=4.0d0) - DOUBLE PRECISION x1,rx,z1,rz -c -c begin - x1=1.0d0-x - rx=4.0d0*r*x -c -c direct - beta=dsqrt(1.0d0-rx/x1) - w=x*( beta*(-1.0d0+8.0d0*x*x1-rx*x1) - $ +(x**2+x1**2+rx*(1.0d0-3.0d0*x)-0.5d0*rx**2) - $ * log( (1.0d0+beta)/(1.0d0-beta) )) - cv = 3.0d0*ec**2 * w / x -c -c resolved - sum=0.0d0 - do 10 i=1,GN - y= x+rx + (x1-rx)*XG(i)**L - z=x/y - z1=1.0d0-z - rz=4.0d0*r*z - beta=dsqrt(1.0d0-rz/z1) - w=z*( beta*(-1.0d0+8.0d0*z*z1-rz*z1) - $ +(z**2+z1**2+rz*(1.0d0-3.0d0*z)-0.5d0*rz**2) - $ * log( (1.0d0+beta)/(1.0d0-beta) )) -c - sum= sum + w * WHIT6G(y,mc**2/r)* L*XG(i)**(L-1.0d0)*XW(i) -c - 10 continue -c - cs = 0.5d0/x * (x1-rx) * sum -c - return - end diff --git a/PDF/tpdf/testgam.F b/PDF/tpdf/testgam.F deleted file mode 100644 index 392c9ff9a5a..00000000000 --- a/PDF/tpdf/testgam.F +++ /dev/null @@ -1,216 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.3 1997/07/13 13:25:32 cernlib -* Import version 7.09 -* -* Revision 1.3 1997/07/02 15:03:11 pdflib -* potential bug removed in GRSGALO -* -* Revision 1.2 1996/10/28 16:10:10 pdflib -* PDFLIB new version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:17 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - PROGRAM TESTGAM -C -#include "pdf/impdp.inc" - PARAMETER (LFLPRT = 2) -#include "pdf/w5051p2.inc" -#include "pdf/w5051p7.inc" -#include "pdf/w50510.inc" -#include "pdf/w50511.inc" -#include "pdf/w50512.inc" -#include "pdf/w50513.inc" -#include "pdf/w50516.inc" -#include "pdf/w50517.inc" -#include "pdf/w505110.inc" -#include "pdf/w505120.inc" -#include "pdf/w505122.inc" -C -#include "pdf/expdp.inc" - + DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DTB,DGL, - + DQ2,DP2 -#include "pdf/expdp.inc" - + XI(32),WI(32),XX(33) - COMMON/W5051I9/XI,WI,XX,NTERMS -#include "pdf/expdp.inc" - + XV(3),ZQ(5) - CHARACTER*20 PARM(NCHDIM) -#include "pdf/expdp.inc" - + VAL(NCHDIM) -C - DATA XV/0.05D0,0.50D0,0.95D0/ - DATA ZQ/10.D0,100.D0,1000.D0,1.D+4,5.5D+5/ - DATA P2/5./ - DATA IP2/0/ - DATA FLAV/4.D0/ - DATA ALQED/137.D0/ - DATA ICALL/0/ -C - N6 = L6 - IFLPRT = LFLPRT -C -C*****adjustment of the VDM contribution******************************* - KA=1. -C*****mass of the charm quark****************************************** - CM=1.41 -C*****CHARME=0. -> no charm contribution ****************************** - CHARME=1. -C - PI=4.D0*ATAN(1.D0) - PI2=PI**2 - CF=4.D0/3.D0 - NF=INT(FLAV+0.1D0) - IF(NF.EQ.0) NF=3 - FLAVOR=FLAV - B0=11.D0-2.D0*NF/3.D0 - B1=102.D0-38.D0*NF/3.D0 - CCOEG=2.D0/9.D0 -C IF(NF.EQ.4) CCOEG=5.D0/18.D0 -C COEG=2.D0*FLAVOR*CCOEG - COEG=2.D0*FLAVOR*CCOEG - CALL WATE32 -C -C First call to PDFSET to initialize COMMON/W505120/ - PARM(1) = 'Init0' - VAL(1) = 0.D0 - CALL PDFSET(PARM,VAL) -C. -C Test new PDFLIB versions (4.0 or bigger) for Photons only - NPTYPE = 3 - DO KGRO = 1,NGRMAX - IF(NPGSMX(NPTYPE,KGRO) .EQ. 0) GOTO 500 - DO ISET=1,NPGSMX(NPTYPE,KGRO) - WRITE (N6,*) ' ========================================== - +=================================================================' - FIRST=.TRUE. - PARM(1) = 'Nptype' - VAL(1) = NPTYPE - PARM(2) = 'Ngroup' - VAL(2) = KGRO - PARM(3) = 'Nset' - VAL(3) = ISET - CALL PDFSET(PARM,VAL) -C - ICALL = 0 - Q02 = Q2MIN - OWLAM = QCDL4 - OWLAM2=OWLAM**2 - IORD = LO - 1 -* - DO 100 J=3,3 - Q2=Q02 - IF(J.GE.2) Q2=ZQ(J-1) - XTH=1.D0/(1.D0+4.D0*CM**2/Q2) - ALQ2= LOG(Q2/OWLAM2) - ALFPI= 2.D0 /(B0*ALQ2+B1* LOG(ALQ2)/B0) - DO 70 K=1,3 - X=XV(K) - DX = X - Q = SQRT(Q2) - DQ = Q - DQ2 = Q2 - DP2 = P2 - IP = IP2 - CUT=1. - IF(CHARME.LT.0.5) CUT=0. - CUTG=1. - IF(X.GT.XTH) CUT=0. - CALL STRUCTP(DX,DQ2,DP2,IP, - + DUV,DDV,DUB,DDB,DSB,DCB,DBB,DTB,DGL) - UB =DUB - DB =DDB - SB =DSB - CB =DCB - GL =DGL - F2=(4.D0* DUB + DDB + DSB)/9.D0 - F2C=4.D0/9.D0*(FLAVOR-3.D0)*DCB*CUT - F2=F2+F2C - IF(ICALL.EQ.0) THEN - ICALL = 1 - WRITE (N6,1000) Q02,P2,CHARME,CUT,IORD,OWLAM,FLAV - 1000 FORMAT(1X,' Q02= ',F7.3,' P2= ',F7.3, - + ' CHARM= ',F3.1,' CUT= ',F3.1, - + ' IORD= ',I2,' LAMBDA=',F7.4,' NF = ',F5.2) - ENDIF - IF (K.EQ.1) THEN - WRITE (N6,1001) Q2 - 1001 FORMAT(/,' Q2= ',E10.3,' GEV**2') - WRITE(N6,1002) - 1002 FORMAT(/,4X,' X',6X,'X*UB ',6X,'X*DB ',6X,'X*SB ',6X,'X*CB ' - + ,6X,'X*GL',8X,' F2 ',6X,' F2/ALPHA' - + ,5X,' F2C ',5X,' F2C/ALPHA') - ENDIF - IF(IORD)13,13,14 -14 CONTINUE - AL=0.5D0*ALFPI - AL1= LOG(1.D0-X) - XQ=F2+F2*AL*CF*(-9.D0-2.D0*PI2/3.D0+AL1*(-3.D0+2.D0*AL1)) -C WRITE(N6,1111) X,Q,F2,AL1,XQ -C1111 FORMAT(1X,' X,F2 = ',5E13.5) - XM=1.-X - XP=1.+X - DIS2=(XM**2-4.*X*XM*CM**2/Q2)*CUT - DIS=SQRT(DIS2) - YP=(XP+DIS)/2. - YM=(XP-DIS)/2. - CUTY=1. - DO 81 I=1,NTERMS - Y=0.5D0*(1.D0-X)*XI(I)+0.5D0*(1.D0+X) - XY=X/Y - AL1= LOG(1.D0-Y) - DX = XY - CALL STRUCTP(DX,DQ2,DP2,IP, - + DUV,DDV,DUB,DDB,DSB,DCB,DBB,DTB,DGL) - XQQ=(4.D0* DUB + DDB + DSB)/9.D0 - XQQ=XQQ+4.D0/9.D0*(FLAVOR-3.D0)*DCB*CUT*CUTY - F2A=F2+F2C*(CUTY-1.) - 6 C22=CF*(6.D0+4.D0*Y-2.D0*(1.D0+Y*Y)/ - + (1.D0-Y)* LOG(Y)-2.D0*(1.D0+Y)*AL1) - C23=CF*(-3.D0+4.D0*AL1)/(1.D0-Y) - COEGM=COEG+(8./9.)*(FLAVOR-3.)*CUTG*CUT - CG2=(-1.D0+8.D0*Y*(1.D0-Y)+(1.D0-2.D0*Y+2.D0*Y*Y)* - + LOG(1.D0/Y-1.D0))*COEGM - XQ=XQ +0.5D0*(1.D0-X)*WI(I)*AL*(C22*XQQ+C23*(XQQ- F2A)) - XQ=XQ +0.5D0*(1.D0-X)*WI(I)*AL*CG2*(DGL+KA*GL) -C WRITE(N6,1112) Y,AL1,C22,C23,CG2,XQQ,XQ -C1112 FORMAT(1X,' Y,C22 = ',7E13.5) - CUTG=1. - 81 CUTY=1. - COE3=3.D0*3.D0*(2.D0/27.D0)*(1.D0/(2.D0*PI*ALQED))*2.D0 - COE4=3.D0*(34.D0/81.D0)*(1.D0/(2.D0*PI*ALQED))*2.D0 - IF(NF.EQ.3) COE4=COE3 - F2=XQ+COE4*(8.D0*X*(1.D0-X)-1.D0+(1.D0-2.D0*X+2.D0*X*X)* - + LOG(1.D0/X-1.D0))*X - F2M=XQ+COE3*(8.D0*X*(1.D0-X)-1.D0+(1.D0-2.D0*X+2.D0*X*X)* - + LOG(1.D0/X-1.D0))*X - CMS=CM**2 - SC=Q2*(1.D0-X)/X - BE=4.*CMS/SC - IF(BE.GE.1.) WCM=0. - IF(BE.GE.1.) GO TO 91 - SQ=SQRT(1.-BE) - A1=((1.D0+SQ)/2.D0)**2 - A2=(1.D0-X)/X - WCM=(8.D0*(1.D0-X)*X-1.D0)*SQ+(X**2+(1.D0-X)**2)*LOG(A1*A2) - WCM=3.D0*(4.D0/9.D0)/(PI*ALQED)*X*WCM -91 CONTINUE - F2M=F2M+(4.D0/9.D0)*(FLAVOR-3.D0)*WCM*CUT - F2C=F2M - 13 F2N=F2*ALQED - F2CN=F2C*ALQED - WRITE(N6,1003)X,UB,DB,SB,CB,GL,F2,F2N,F2C,F2CN - 1003 FORMAT(1X,' ',F6.3,9E12.4) - 70 CONTINUE - 100 CONTINUE - ENDDO - WRITE(N6,*) ' ' - 500 CONTINUE - ENDDO - STOP - END diff --git a/PDF/tpdf/testgamo.F b/PDF/tpdf/testgamo.F deleted file mode 100644 index 9a1c64d12c6..00000000000 --- a/PDF/tpdf/testgamo.F +++ /dev/null @@ -1,153 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:32:51 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:17 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - PROGRAM TESTGAMO -C -#include "pdf/impdp.inc" - PARAMETER (LFLPRT = 2) -C+SEQ, W5051P2. - PARAMETER (MODEMX = 281) -#include "pdf/w5051p7.inc" -#include "pdf/w50510.inc" -#include "pdf/w50511.inc" -#include "pdf/w50512.inc" -#include "pdf/w50513.inc" -#include "pdf/w50516.inc" -#include "pdf/w50517.inc" -C -#include "pdf/expdp.inc" - + DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DTB,DGL - REAL GLUCK - COMMON/W5051I8/GLUCK -#include "pdf/expdp.inc" - + XI(32),WI(32),XX(33) - COMMON/W5051I9/XI,WI,XX,NTERMS -#include "pdf/expdp.inc" - + XV(3),ZQ(5) - DATA XV/0.05D0,0.50D0,0.95D0/ - DATA ZQ/10.D0,100.D0,1000.D0,1.D+4,5.5D+5/ - DATA FLAV/4.D0/ - DATA ALQED/137.D0/ - DATA ICALL/0/ - CHARACTER*20 PARM(20) -#include "pdf/expdp.inc" - + VAL(20) -C - N6 = L6 - IFLPRT = LFLPRT -C - IF(GLUCK.LT.0.01) GLUCK = 0. - PI=4.D0*ATAN(1.D0) - PI2=PI**2 - CF=4.D0/3.D0 - NF=INT(FLAV+0.1D0) - FLAVOR=FLAV - B0=11.D0-2.D0*NF/3.D0 - B1=102.D0-38.D0*NF/3.D0 - CCOEG=2.D0/9.D0 - IF(NF.EQ.4) CCOEG=5.D0/18.D0 - COEG=2.D0*FLAVOR*CCOEG - CALL WATE32 -C - DO 300 ISTRUC=272,272 - ICALL = 0 - FIRST=.TRUE. - VAL(1) = ISTRUC - PARM(1) = 'Mode' - IF(ISTRUC.GE.201 .AND. ISTRUC.LE.205) GOTO 300 - IF(ISTRUC.GE.208 .AND. ISTRUC.LE.209) GOTO 300 - IF(ISTRUC.GE.214 .AND. ISTRUC.LE.219) GOTO 300 - IF(ISTRUC.GE.223 .AND. ISTRUC.LE.229) GOTO 300 - IF(ISTRUC.GE.233 .AND. ISTRUC.LE.270) GOTO 300 - IF(ISTRUC.GE.274 .AND. ISTRUC.LE.279) GOTO 300 - IF(ISTRUC.GE.282 ) GOTO 300 -C - CALL PDFSET(PARM,VAL) - Q02 = Q2MIN - OWLAM = QCDL4 - OWLAM2=OWLAM**2 - IORD = LO - 1 -* - DO 100 J=3,3 - Q2=Q02 - IF(J.GE.2) Q2=ZQ(J-1) - ALQ2= LOG(Q2/OWLAM2) - ALFPI= 2.D0 /(B0*ALQ2+B1* LOG(ALQ2)/B0) - DO 70 K=1,3 - X=XV(K) - DX = X - Q = SQRT(Q2) - DQ = Q - CALL STRUCTM(DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DTB,DGL) - UB =DUB - DB =DDB - SB =DSB - CB =DCB - GL =DGL - F2=(4.D0* DUB + DDB + DSB)/9.D0*2.D0 - F2C=F2+(4.D0/9.D0)*DCB*2.D0 - IF(ICALL.EQ.0) THEN - ICALL = 1 - WRITE (N6,1000) Q02,IORD,OWLAM,GLUCK,FLAV - 1000 FORMAT(1X,' Q02= ',F7.3,' IORD= ',I2,' LAMBDA=',F7.4, - + ' GLUCK= ',F5.2,' NF = ',F5.2) - ENDIF - IF (K.EQ.1) THEN - WRITE (N6,1001) Q2 - 1001 FORMAT(/,' Q2= ',E10.3,' GEV**2') - WRITE(N6,1002) - 1002 FORMAT(/,4X,' X',6X,'X*UB ',6X,'X*DB ',6X,'X*SB ',6X,'X*CB ' - + ,6X,'X*GL',8X,' F2 ',6X,' F2/ALPHA' - + ,5X,' F2C ',5X,' F2C/ALPHA') - ENDIF - IF (GLUCK.LT..5) GOTO 5 - F2=DUV - 5 IF(IORD)13,13,14 -14 CONTINUE - AL=0.5D0*ALFPI - AL1= LOG(1.D0-X) - XQ=F2+F2*AL*CF*(-9.D0-2.D0*PI2/3.D0+AL1*(-3.D0+2.D0*AL1)) -C WRITE(N6,1111) X,Q,F2,AL1,XQ -C1111 FORMAT(1X,' X,F2 = ',5E13.5) - DO 81 I=1,NTERMS - Y=0.5D0*(1.D0-X)*XI(I)+0.5D0*(1.D0+X) - XY=X/Y - AL1= LOG(1.D0-Y) - DX = XY - CALL STRUCTM(DX,DQ,DUV,DDV,DUB,DDB,DSB,DCB,DBB,DTB,DGL) - XQQ=(4.D0* DUB + DDB + DSB)/9.D0*2.D0 - IF (GLUCK.LT..5) GOTO 6 - XQQ=DUV - 6 C22=CF*(6.D0+4.D0*Y-2.D0*(1.D0+Y*Y)/ - + (1.D0-Y)* LOG(Y)-2.D0*(1.D0+Y)*AL1) - C23=CF*(-3.D0+4.D0*AL1)/(1.D0-Y) - CG2=(-1.D0+8.D0*Y*(1.D0-Y)+(1.D0-2.D0*Y+2.D0*Y*Y)* - + LOG(1.D0/Y-1.D0))*COEG - XQ=XQ +0.5D0*(1.D0-X)*WI(I)*AL*(C22*XQQ+C23*(XQQ- F2)) - XQ=XQ +0.5D0*(1.D0-X)*WI(I)*AL*CG2*DGL -C WRITE(N6,1112) Y,AL1,C22,C23,CG2,XQQ,XQ -C1112 FORMAT(1X,' Y,C22 = ',7E13.5) - 81 CONTINUE - F2=3.D0*3.D0*(2.D0/27.D0)*(1.D0/(2.D0*PI*ALQED))*2.D0 - F2=XQ+F2*(8.D0*X*(1.D0-X)-1.D0+(1.D0-2.D0*X+2.D0*X*X)* - + LOG(1.D0/X-1.D0))*X - F2C=F2+(4.D0/9.D0)*CB*2.D0 - 13 F2N=F2*ALQED - F2CN=F2C*ALQED - WRITE(N6,1003)X,UB,DB,SB,CB,GL,F2,F2N,F2C,F2CN - 1003 FORMAT(1X,' ',F6.3,9E12.4) - 70 CONTINUE - 100 CONTINUE - WRITE(N6,*) ' ' - 300 CONTINUE - STOP - END diff --git a/PDF/tpdf/testpdf.F b/PDF/tpdf/testpdf.F deleted file mode 100644 index 8a10d801cb2..00000000000 --- a/PDF/tpdf/testpdf.F +++ /dev/null @@ -1,236 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.4 1997/07/13 13:25:32 cernlib -* Import version 7.09 -* -* Revision 1.4 1997/07/02 15:03:12 pdflib -* potential bug removed in GRSGALO -* -* Revision 1.3 1997/04/08 15:53:28 pdflib -* Lambda_QCD for CTEQ4 sets corrected -* -* Revision 1.2 1996/10/28 16:10:15 pdflib -* PDFLIB new version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:17 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - PROGRAM TESTPDF -C - PARAMETER (LFLPRT = 2) -#include "pdf/w5051p2.inc" -#include "pdf/w5051p7.inc" -#include "pdf/w50510.inc" -#include "pdf/w50511.inc" -#include "pdf/w50512.inc" -#include "pdf/w50515.inc" -#include "pdf/w50516.inc" -#include "pdf/w50517.inc" -#include "pdf/w505110.inc" -#include "pdf/w505120.inc" -#include "pdf/w505122.inc" -C -#include "pdf/expdp.inc" - + DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL, - + DQ2,DP2,ALF,ALPHAS2 - REAL X, Q, UPV, DNV, USEA, DSEA, SSEA, CSEA, BOT, TOP, GLUE - DIMENSION XX(3),Q2(3) - CHARACTER*20 PARM(NCHDIM) -#include "pdf/expdp.inc" - + VAL(NCHDIM) -C - DATA NXX,XX/3, .0005,.140,.700/ - DATA NQ2,Q2/3, 1.30,24.0,33.5/ - DATA P2/5./ - DATA IP2/0/ -C - N6 = L6 - IFLPRT = LFLPRT -C - CH1=4./9. - CH2=1./9. -C - SCAL=SQRT(Q2(2)) -C -C First call to PDFSET to initialize COMMON/W505120/ - PARM(1) = 'Init0' - VAL(1) = 0.D0 - CALL PDFSET(PARM,VAL) -C. -C Test new PDFLIB versions (4.0 or bigger) - DO KPTY = 1,NPTYMX - DO KGRO = 1,NGRMAX - IF(NPGSMX(KPTY,KGRO) .EQ. 0) GOTO 400 - DO ISET=-9,NPGSMX(KPTY,KGRO) - IF((KPTY*KGRO).NE.1 .AND. ISET.LE.0) GOTO 300 - WRITE (N6,*) ' ========================================== - +=================================================================' - FIRST=.TRUE. - IF(ISET.LE.-8) IFLSET = 0 - IF(ISET.LT.0) GOTO 50 - PARM(1) = 'Nptype' - VAL(1) = KPTY - PARM(2) = 'Ngroup' - VAL(2) = KGRO - PARM(3) = 'Nset' - VAL(3) = ISET -C... test different NSET writings - IF(ISET.GT. 5) PARM(3) = 'NSET' - IF(ISET.GT.10) PARM(3) = 'nset' - IF(ISET.GT.15) PARM(3) = 'NSet' - IF(ISET.GT.20) PARM(3) = 'nsET' -C -C... test different NSET writings and INVALID parameter settings - 50 CONTINUE - IF(ISET.GE.0) THEN - CALL PDFSET(PARM,VAL) - ELSEIF (ISET.EQ.-9) THEN - GOTO 100 - ELSEIF (ISET.EQ.-8) THEN - PARM(1) = 'dflm' - VAL(1) = 8.D0 - CALL PDFSET(PARM,VAL) - ELSEIF (ISET.EQ.-7) THEN - PARM(1) = 'GRV' - VAL(1) = 3.D0 - CALL PDFSET(PARM,VAL) - ELSEIF (ISET.EQ.-6) THEN - PARM(1) = 'abfkw' - VAL(1) = 1.D0 - CALL PDFSET(PARM,VAL) - ELSEIF (ISET.EQ.-5) THEN - PARM(1) = 'GRVph' - VAL(1) = 2.D0 - CALL PDFSET(PARM,VAL) - ELSEIF (ISET.EQ.-4) THEN - PARM(1) = 'Nptype' - VAL(1) = -1 - PARM(2) = 'Ngroup' - VAL(2) = KGRO - PARM(3) = 'Nset' - VAL(3) = ISET - CALL PDFSET(PARM,VAL) - ELSEIF (ISET.EQ.-3) THEN - PARM(1) = 'Nptype' - VAL(1) = -1 - PARM(2) = 'Ngroup' - VAL(2) = KGRO - PARM(3) = 'Nset' - VAL(3) = 0 - PARM(4) = 'QCDL4' - VAL(4) = 0.1900D0 - PARM(5) = 'QCDL5' - VAL(5) = 0.1230D0 - CALL PDFSET(PARM,VAL) - ELSEIF (ISET.EQ.-2) THEN - PARM(1) = 'Nptype' - VAL(1) = KPTY - PARM(2) = 'Ngroup' - VAL(2) = -1 - PARM(3) = 'Nset' - VAL(3) = ISET - CALL PDFSET(PARM,VAL) - ELSEIF (ISET.EQ.-1) THEN - PARM(1) = 'Nptype' - VAL(1) = KPTY - PARM(2) = 'Ngroup' - VAL(2) = KGRO - PARM(3) = 'Nset' - VAL(3) = 80 - CALL PDFSET(PARM,VAL) - ENDIF -C - DQ = SCAL - ALF = ALPHAS2(DQ) - WRITE(N6,4000) NPTYPE,NGROUP,NSET, - + SFNAME(NPTYPE,NGROUP,NSET),MODECR(NPTYPE,NGROUP,NSET) - WRITE(N6,4001) QCDL4,QCDL5,DQ,ALF - 4000 FORMAT(/,' Nptype = ',I1,' Ngroup = ',I1, - + ' Nset = ',I2,' Name = "',A8, - + '" CrMode = ',I3) - 4001 FORMAT(1H ,' QCDL4, QCDL5 = ',2F7.4, - + ' Scale = ',F8.4,' alpha(s) = ',F7.5) -C - 100 CONTINUE - DO 200 IX=1,NXX - X=XX(IX) - Q=SQRT(Q2(IX)) - DX=X - DQ=Q - IF(KPTY.EQ.3) THEN - DQ2=Q2(IX) - DP2=P2 - IP=IP2 - CALL STRUCTP(DX,DQ2,DP2,IP, - + DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - ELSE - CALL STRUCTM(DX,DQ, - + DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - ENDIF - UPV=DUPV - DNV=DDNV - USEA=DUSEA - DSEA=DDSEA - SSEA=DSTR - CSEA=DCHM - GLUE=DGL -C - FFPU = UPV + USEA - FFPUB = USEA - FFPD = DNV + DSEA - FFPDB = DSEA - FFPS = SSEA - FFPSB = SSEA - FFPC = CSEA - FFPCB = CSEA - FFNU = FFPD - FFNUB = FFPDB - FFND = FFPU - FFNDB = FFPUB - FFNS = FFPS - FFNSB = FFPSB - FFNC = FFPC - FFNCB = FFPCB - FFPGL = GLUE - SFFP=CH1*(FFPU+FFPUB+FFPC+FFPCB)+CH2*(FFPD+FFPDB+FFPS+FFPSB) - SFFN=CH1*(FFNU+FFNUB+FFNC+FFNCB)+CH2*(FFND+FFNDB+FFNS+FFNSB) - FACNP = 0. - IF (SFFP .NE. 0.) FACNP=SFFN/SFFP - UP = FFPU - UV = FFPU - FFPUB - US = FFPUB - DP = FFPD - DV = FFPD - FFPDB - DS = FFPDB - GL = FFPGL - F2P = SFFP -C - WRITE(N6,3000)X,Q2(IX),FACNP,UP,UV,US,DP,DV,GL,F2P - 3000 FORMAT(1X,' X:',F6.3,2X,'Q2:',F5.1, - 1 3X,'N/P:',F7.4,2X,'UP:',F6.3, - 1 1X,'UV:',F6.3,1X,'US:',F6.3,1X,'DP:',F6.3,1X,'DV:',F6.3, - 2 1X,'GL:',F6.3,2X,'F2P:',F7.4) -C - 200 CONTINUE -C - IF(ISET.EQ.-9) THEN - DQ = SCAL - ALF = ALPHAS2(DQ) - WRITE(N6,4000) NPTYPE,NGROUP,NSET, - + SFNAME(NPTYPE,NGROUP,NSET),MODECR(NPTYPE,NGROUP,NSET) - WRITE(N6,4001) QCDL4,QCDL5,DQ,ALF - ENDIF - CALL PDFSTA -C - 300 CONTINUE - ENDDO - 400 CONTINUE - ENDDO - ENDDO -C - STOP - END diff --git a/PDF/tpdf/testpdfo.F b/PDF/tpdf/testpdfo.F deleted file mode 100644 index 8b262d76615..00000000000 --- a/PDF/tpdf/testpdfo.F +++ /dev/null @@ -1,161 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:32:53 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:17 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - PROGRAM TESTPDFO -C - PARAMETER (LFLPRT = 2) -C+SEQ, W5051P2. - PARAMETER (MODEMX = 281) -#include "pdf/w5051p7.inc" -#include "pdf/w50510.inc" -#include "pdf/w50511.inc" -#include "pdf/w50512.inc" -#include "pdf/w50515.inc" -#include "pdf/w50516.inc" -#include "pdf/w50517.inc" -C -#include "pdf/expdp.inc" - + DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL, - + ALF,ALPHAS2 - REAL X, Q, UPV, DNV, USEA, DSEA, SSEA, CSEA, BOT, TOP, GLUE - DIMENSION XX(3),Q2(3) - CHARACTER*20 PARM(20) -#include "pdf/expdp.inc" - + VAL(20) -C - DATA NXX,XX/3, .002,.140,.700/ - DATA NQ2,Q2/3, 1.30,24.0,33.5/ -C - N6 = L6 - IFLPRT = LFLPRT -C - CH1=4./9. - CH2=1./9. -C - SCAL=SQRT(Q2(2)) -C - DO 300 ISTRUC=-3,MODEMX - FIRST=.TRUE. - IF(ISTRUC.LE.-2) IFLSET = 0 -C... test different MODE writings - IF(ISTRUC .LT. 0) GOTO 310 - PARM(1) = 'MODE' - IF(ISTRUC.GT.20) PARM(1) = 'Mode' - IF(ISTRUC.GT.30) PARM(1) = 'mode' - IF(ISTRUC.GT.40) PARM(1) = 'MOde' - IF(ISTRUC.GT.50) PARM(1) = 'moDE' - VAL(1) = ISTRUC - IF(ISTRUC.EQ. 19 ) GOTO 300 - IF(ISTRUC.GE. 48 .AND. ISTRUC.LE. 49) GOTO 300 - IF(ISTRUC.GE. 61 .AND. ISTRUC.LE. 69) GOTO 300 - IF(ISTRUC.EQ. 74 ) GOTO 300 - IF(ISTRUC.GE. 76 .AND. ISTRUC.LE. 79) GOTO 300 - IF(ISTRUC.GE. 81 .AND. ISTRUC.LE.105) GOTO 300 - IF(ISTRUC.GE.108 .AND. ISTRUC.LE.129) GOTO 300 - IF(ISTRUC.GE.133 .AND. ISTRUC.LE.171) GOTO 300 - IF(ISTRUC.GE.174 .AND. ISTRUC.LE.179) GOTO 300 - IF(ISTRUC.GE.183 .AND. ISTRUC.LE.205) GOTO 300 - IF(ISTRUC.GE.208 .AND. ISTRUC.LE.209) GOTO 300 - IF(ISTRUC.GE.214 .AND. ISTRUC.LE.219) GOTO 300 - IF(ISTRUC.GE.223 .AND. ISTRUC.LE.229) GOTO 300 - IF(ISTRUC.GE.233 .AND. ISTRUC.LE.270) GOTO 300 - IF(ISTRUC.GE.274 .AND. ISTRUC.LE.279) GOTO 300 - IF(ISTRUC.GE.282 ) GOTO 300 -C -C... test different MODE writings and INTEGER settings - 310 CONTINUE - WRITE (N6,*) ' ========================================== - +=================================================================' - IF(ISTRUC.GE.0 .AND. ISTRUC.LE.MODEMX) THEN - CALL PDFSET(PARM,VAL) - ELSEIF (ISTRUC.EQ.-3) THEN - GOTO 5 - ELSEIF (ISTRUC.EQ.-2) THEN - PARM(1) = 'MODE' - VAL(1) = 45.D0 - CALL PDFSET(PARM,VAL) - ELSEIF (ISTRUC.EQ.-1) THEN - PARM(1) = 'mode' - VAL(1) = 45.D0 - CALL PDFSET(PARM,VAL) - ENDIF -C - DQ = SCAL - ALF = ALPHAS2(DQ) - WRITE (N6,2000) MODE,QCDL4,QCDL5,DQ,ALF - 2000 FORMAT(/,' Mode = ',I3,' QCDL4, QCDL5 = ',2F7.4, - + ' SCALE = ',F7.4,' alpha(s) = ',F8.5) -C - 5 CONTINUE - DO 200 IX=1,NXX - X=XX(IX) - Q=SQRT(Q2(IX)) - DX=X - DQ=Q - CALL STRUCTM(DX,DQ,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - UPV=DUPV - DNV=DDNV - USEA=DUSEA - DSEA=DDSEA - SSEA=DSTR - CSEA=DCHM - GLUE=DGL -C - FFPU = UPV + USEA - FFPUB = USEA - FFPD = DNV + DSEA - FFPDB = DSEA - FFPS = SSEA - FFPSB = SSEA - FFPC = CSEA - FFPCB = CSEA - FFNU = FFPD - FFNUB = FFPDB - FFND = FFPU - FFNDB = FFPUB - FFNS = FFPS - FFNSB = FFPSB - FFNC = FFPC - FFNCB = FFPCB - FFPGL = GLUE - SFFP=CH1*(FFPU+FFPUB+FFPC+FFPCB)+CH2*(FFPD+FFPDB+FFPS+FFPSB) - SFFN=CH1*(FFNU+FFNUB+FFNC+FFNCB)+CH2*(FFND+FFNDB+FFNS+FFNSB) - FACNP = 0. - IF (SFFP .NE. 0.) FACNP=SFFN/SFFP - UP = FFPU - UV = FFPU - FFPUB - US = FFPUB - DP = FFPD - DV = FFPD - FFPDB - DS = FFPDB - GL = FFPGL - F2P = SFFP -C - WRITE(N6,1000)X,Q2(IX),FACNP,UP,UV,US,DP,DV,GL,F2P - 1000 FORMAT(1X,' X:',F6.3,2X,'Q2:',F5.1, - 1 3X,'N/P:',F7.4,2X,'UP:',F6.3, - 1 1X,'UV:',F6.3,1X,'US:',F6.3,1X,'DP:',F6.3,1X,'DV:',F6.3, - 2 1X,'GL:',F6.3,2X,'F2P:',F7.4) -C - 200 CONTINUE -C - IF(ISTRUC.EQ.-3) THEN - DQ = SCAL - ALF = ALPHAS2(DQ) - WRITE (N6,2000) MODE,QCDL4,QCDL5,DQ,ALF - ENDIF - CALL PDFSTA -C - 300 CONTINUE -C - STOP - END diff --git a/PDF/tpdf/testpdg.F b/PDF/tpdf/testpdg.F deleted file mode 100644 index 651cad18e16..00000000000 --- a/PDF/tpdf/testpdg.F +++ /dev/null @@ -1,212 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:32:54 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:17 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - PROGRAM TESTPDG -C - PARAMETER (LFLPRT = 2) -#include "pdf/w5051p2.inc" -#include "pdf/w5051p7.inc" -#include "pdf/w50510.inc" -#include "pdf/w50511.inc" -#include "pdf/w50512.inc" -#include "pdf/w50515.inc" -#include "pdf/w50516.inc" -#include "pdf/w50517.inc" -#include "pdf/w505110.inc" -#include "pdf/w505120.inc" -#include "pdf/w505122.inc" -C -#include "pdf/expdp.inc" - + DX,DQ,DXPDF(-6:6), - + ALF,ALPHAS2 - REAL X, Q, UPV, DNV, USEA, DSEA, SSEA, CSEA, BOT, TOP, GLUE - DIMENSION XX(3),Q2(3) - CHARACTER*20 PARM(NCHDIM) -#include "pdf/expdp.inc" - + VAL(NCHDIM) -C - DATA NXX,XX/3, .002,.140,.700/ - DATA NQ2,Q2/3, 1.30,24.0,33.5/ -C - N6 = L6 - IFLPRT = LFLPRT -C - CH1=4./9. - CH2=1./9. -C - SCAL=SQRT(Q2(2)) -C -C First call to PDFSET to initialize COMMON/W505120/ - PARM(1) = 'Init0' - VAL(1) = 0.D0 - CALL PDFSET(PARM,VAL) -C. -C Test new PDFLIB versions (4.0 or bigger) - DO KPTY = 1,NPTYMX - DO KGRO = 1,NGRMAX - IF(NPGSMX(KPTY,KGRO) .EQ. 0) GOTO 400 - DO ISET=-9,NPGSMX(KPTY,KGRO) - IF((KPTY*KGRO).NE.1 .AND. ISET.LE.0) GOTO 300 - WRITE (N6,*) ' ========================================== - +=================================================================' - FIRST=.TRUE. - IF(ISET.LE.-8) IFLSET = 0 - IF(ISET.LT.0) GOTO 50 - PARM(1) = 'Nptype' - VAL(1) = KPTY - PARM(2) = 'Ngroup' - VAL(2) = KGRO - PARM(3) = 'Nset' - VAL(3) = ISET -C... test different NSET writings - IF(ISET.GT. 5) PARM(3) = 'NSET' - IF(ISET.GT.10) PARM(3) = 'nset' - IF(ISET.GT.15) PARM(3) = 'NSet' - IF(ISET.GT.20) PARM(3) = 'nsET' -C -C... test different NSET writings and INVALID parameter settings - 50 CONTINUE - IF(ISET.GE.0) THEN - CALL PDFSET(PARM,VAL) - ELSEIF (ISET.EQ.-9) THEN - GOTO 100 - ELSEIF (ISET.EQ.-8) THEN - PARM(1) = 'dflm' - VAL(1) = 8.D0 - CALL PDFSET(PARM,VAL) - ELSEIF (ISET.EQ.-7) THEN - PARM(1) = 'GRV' - VAL(1) = 3.D0 - CALL PDFSET(PARM,VAL) - ELSEIF (ISET.EQ.-6) THEN - PARM(1) = 'abfkw' - VAL(1) = 1.D0 - CALL PDFSET(PARM,VAL) - ELSEIF (ISET.EQ.-5) THEN - PARM(1) = 'GRVph' - VAL(1) = 2.D0 - CALL PDFSET(PARM,VAL) - ELSEIF (ISET.EQ.-4) THEN - PARM(1) = 'Nptype' - VAL(1) = -1 - PARM(2) = 'Ngroup' - VAL(2) = KGRO - PARM(3) = 'Nset' - VAL(3) = ISET - CALL PDFSET(PARM,VAL) - ELSEIF (ISET.EQ.-3) THEN - PARM(1) = 'Nptype' - VAL(1) = -1 - PARM(2) = 'Ngroup' - VAL(2) = KGRO - PARM(3) = 'Nset' - VAL(3) = 0 - CALL PDFSET(PARM,VAL) - ELSEIF (ISET.EQ.-2) THEN - PARM(1) = 'Nptype' - VAL(1) = KPTY - PARM(2) = 'Ngroup' - VAL(2) = -1 - PARM(3) = 'Nset' - VAL(3) = ISET - CALL PDFSET(PARM,VAL) - ELSEIF (ISET.EQ.-1) THEN - PARM(1) = 'Nptype' - VAL(1) = KPTY - PARM(2) = 'Ngroup' - VAL(2) = KGRO - PARM(3) = 'Nset' - VAL(3) = 80 - CALL PDFSET(PARM,VAL) - ENDIF -C - DQ = SCAL - ALF = ALPHAS2(DQ) - WRITE(N6,4000) NPTYPE,NGROUP,NSET, - + SFNAME(NPTYPE,NGROUP,NSET),MODECR(NPTYPE,NGROUP,NSET) - WRITE(N6,4001) QCDL4,QCDL5,DQ,ALF - 4000 FORMAT(/,' Nptype = ',I1,' Ngroup = ',I1, - + ' Nset = ',I2,' Name = "',A8, - + '" CrMode = ',I3) - 4001 FORMAT(1H ,' QCDL4, QCDL5 = ',2F7.4, - + ' Scale = ',F8.4,' alpha(s) = ',F7.5) -C - 100 CONTINUE - DO 200 IX=1,NXX - X=XX(IX) - Q=SQRT(Q2(IX)) - DX=X - DQ=Q - CALL PFTOPDG(DX,DQ,DXPDF) - DNV=DXPDF(1) - UPV=DXPDF(2) - DSEA=DXPDF(-1) - USEA=DXPDF(-2) - SSEA=DXPDF(3) - CSEA=DXPDF(4) - GLUE=DXPDF(0) -C - FFPU = UPV - FFPUB = USEA - FFPD = DNV - FFPDB = DSEA - FFPS = SSEA - FFPSB = SSEA - FFPC = CSEA - FFPCB = CSEA - FFNU = FFPD - FFNUB = FFPDB - FFND = FFPU - FFNDB = FFPUB - FFNS = FFPS - FFNSB = FFPSB - FFNC = FFPC - FFNCB = FFPCB - FFPGL = GLUE - SFFP=CH1*(FFPU+FFPUB+FFPC+FFPCB)+CH2*(FFPD+FFPDB+FFPS+FFPSB) - SFFN=CH1*(FFNU+FFNUB+FFNC+FFNCB)+CH2*(FFND+FFNDB+FFNS+FFNSB) - FACNP = 0. - IF (SFFP .NE. 0.) FACNP=SFFN/SFFP - UP = FFPU - UV = FFPU - FFPUB - US = FFPUB - DP = FFPD - DV = FFPD - FFPDB - DS = FFPDB - GL = FFPGL - F2P = SFFP -C - WRITE(N6,3000)X,Q2(IX),FACNP,UP,UV,US,DP,DV,GL,F2P - 3000 FORMAT(1X,' X:',F6.3,2X,'Q2:',F5.1, - 1 3X,'N/P:',F7.4,2X,'UP:',F6.3, - 1 1X,'UV:',F6.3,1X,'US:',F6.3,1X,'DP:',F6.3,1X,'DV:',F6.3, - 2 1X,'GL:',F6.3,2X,'F2P:',F7.4) -C - 200 CONTINUE -C - IF(ISET.EQ.-9) THEN - DQ = SCAL - ALF = ALPHAS2(DQ) - WRITE(N6,4000) NPTYPE,NGROUP,NSET, - + SFNAME(NPTYPE,NGROUP,NSET),MODECR(NPTYPE,NGROUP,NSET) - WRITE(N6,4001) QCDL4,QCDL5,DQ,ALF - ENDIF - CALL PDFSTA -C - 300 CONTINUE - ENDDO - 400 CONTINUE - ENDDO - ENDDO -C - STOP - END diff --git a/PDF/tpdf/testpdgo.F b/PDF/tpdf/testpdgo.F deleted file mode 100644 index c3f563ad52e..00000000000 --- a/PDF/tpdf/testpdgo.F +++ /dev/null @@ -1,159 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:32:56 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:18 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - PROGRAM TESTPDGO -C - PARAMETER (LFLPRT = 2) -C+SEQ, W5051P2. - PARAMETER (MODEMX = 281) -#include "pdf/w5051p7.inc" -#include "pdf/w50510.inc" -#include "pdf/w50511.inc" -#include "pdf/w50512.inc" -#include "pdf/w50515.inc" -#include "pdf/w50516.inc" -#include "pdf/w50517.inc" -C -#include "pdf/expdp.inc" - + DX,DQ,DXPDF(-6:6), - + ALF,ALPHAS2 - REAL X, Q, UPV, DNV, USEA, DSEA, SSEA, CSEA, BOT, TOP, GLUE - DIMENSION XX(3),Q2(3) - CHARACTER*20 PARM(20) -#include "pdf/expdp.inc" - + VAL(20) -C - DATA NXX,XX/3, .002,.140,.700/ - DATA NQ2,Q2/3, 1.30,24.0,33.5/ -C - N6 = L6 - IFLPRT = LFLPRT -C - CH1=4./9. - CH2=1./9. -C - SCAL=SQRT(Q2(2)) -C - DO 300 ISTRUC=-3,MODEMX - FIRST=.TRUE. - IF(ISTRUC.LE.-2) IFLSET = 0 -C... test different MODE writings - IF(ISTRUC .LT. 0) GOTO 310 - PARM(1) = 'MODE' - IF(ISTRUC.GT.20) PARM(1) = 'Mode' - IF(ISTRUC.GT.30) PARM(1) = 'mode' - IF(ISTRUC.GT.40) PARM(1) = 'MOde' - IF(ISTRUC.GT.50) PARM(1) = 'moDE' - VAL(1) = ISTRUC - IF(ISTRUC.EQ. 19 ) GOTO 300 - IF(ISTRUC.GE. 48 .AND. ISTRUC.LE. 49) GOTO 300 - IF(ISTRUC.GE. 61 .AND. ISTRUC.LE. 69) GOTO 300 - IF(ISTRUC.EQ. 74 ) GOTO 300 - IF(ISTRUC.GE. 76 .AND. ISTRUC.LE. 79) GOTO 300 - IF(ISTRUC.GE. 81 .AND. ISTRUC.LE.105) GOTO 300 - IF(ISTRUC.GE.108 .AND. ISTRUC.LE.129) GOTO 300 - IF(ISTRUC.GE.133 .AND. ISTRUC.LE.171) GOTO 300 - IF(ISTRUC.GE.174 .AND. ISTRUC.LE.179) GOTO 300 - IF(ISTRUC.GE.183 .AND. ISTRUC.LE.205) GOTO 300 - IF(ISTRUC.GE.208 .AND. ISTRUC.LE.209) GOTO 300 - IF(ISTRUC.GE.214 .AND. ISTRUC.LE.219) GOTO 300 - IF(ISTRUC.GE.223 .AND. ISTRUC.LE.229) GOTO 300 - IF(ISTRUC.GE.233 .AND. ISTRUC.LE.270) GOTO 300 - IF(ISTRUC.GE.274 .AND. ISTRUC.LE.279) GOTO 300 - IF(ISTRUC.GE.282 ) GOTO 300 -C -C... test different MODE writings and INTEGER settings - 310 CONTINUE - IF(ISTRUC.GE.0 .AND. ISTRUC.LE.MODEMX) THEN - CALL PDFSET(PARM,VAL) - ELSEIF (ISTRUC.EQ.-3) THEN - GOTO 5 - ELSEIF (ISTRUC.EQ.-2) THEN - PARM(1) = 'MODE' - VAL(1) = 45.D0 - CALL PDFSET(PARM,VAL) - ELSEIF (ISTRUC.EQ.-1) THEN - PARM(1) = 'mode' - VAL(1) = 45.D0 - CALL PDFSET(PARM,VAL) - ENDIF -C - DQ = SCAL - ALF = ALPHAS2(DQ) - WRITE (N6,2000) MODE,QCDL4,QCDL5,DQ,ALF - 2000 FORMAT(/,' Mode = ',I3,' QCDL4, QCDL5 = ',2F7.4, - + ' SCALE = ',F7.4,' alpha(s) = ',F8.5) -C - 5 CONTINUE - DO 200 IX=1,NXX - X=XX(IX) - Q=SQRT(Q2(IX)) - DX=X - DQ=Q - CALL PFTOPDG(DX,DQ,DXPDF) - DNV=DXPDF(1) - UPV=DXPDF(2) - DSEA=DXPDF(-1) - USEA=DXPDF(-2) - SSEA=DXPDF(3) - CSEA=DXPDF(4) - GLUE=DXPDF(0) -C - FFPU = UPV - FFPUB = USEA - FFPD = DNV - FFPDB = DSEA - FFPS = SSEA - FFPSB = SSEA - FFPC = CSEA - FFPCB = CSEA - FFNU = FFPD - FFNUB = FFPDB - FFND = FFPU - FFNDB = FFPUB - FFNS = FFPS - FFNSB = FFPSB - FFNC = FFPC - FFNCB = FFPCB - FFPGL = GLUE - SFFP=CH1*(FFPU+FFPUB+FFPC+FFPCB)+CH2*(FFPD+FFPDB+FFPS+FFPSB) - SFFN=CH1*(FFNU+FFNUB+FFNC+FFNCB)+CH2*(FFND+FFNDB+FFNS+FFNSB) - FACNP = 0. - IF (SFFP .NE. 0.) FACNP=SFFN/SFFP - UP = FFPU - UV = FFPU - FFPUB - US = FFPUB - DP = FFPD - DV = FFPD - FFPDB - DS = FFPDB - GL = FFPGL - F2P = SFFP -C - WRITE(N6,1000)X,Q2(IX),FACNP,UP,UV,US,DP,DV,GL,F2P - 1000 FORMAT(1X,' X:',F6.3,2X,'Q2:',F5.1, - 1 3X,'N/P:',F7.4,2X,'UP:',F6.3, - 1 1X,'UV:',F6.3,1X,'US:',F6.3,1X,'DP:',F6.3,1X,'DV:',F6.3, - 2 1X,'GL:',F6.3,2X,'F2P:',F7.4) -C - 200 CONTINUE -C - IF(ISTRUC.EQ.-3) THEN - DQ = SCAL - ALF = ALPHAS2(DQ) - WRITE (N6,2000) MODE,QCDL4,QCDL5,DQ,ALF - ENDIF - CALL PDFSTA -C - 300 CONTINUE -C - STOP - END diff --git a/PDF/tpdf/tpdfupv.F b/PDF/tpdf/tpdfupv.F deleted file mode 100644 index 6827a2b0652..00000000000 --- a/PDF/tpdf/tpdfupv.F +++ /dev/null @@ -1,101 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:32:57 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:18 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - PROGRAM PDFUPV -C - PARAMETER (LFLPRT = 2) -#include "pdf/w5051p2.inc" -#include "pdf/w5051p7.inc" -#include "pdf/w50510.inc" -#include "pdf/w50511.inc" -#include "pdf/w505110.inc" -#include "pdf/w505120.inc" -#include "pdf/w505122.inc" -C define HBOOK settings - PARAMETER (NHBMEM = 500000) - COMMON /PAWC/ HMEM(NHBMEM) - PARAMETER (NB=900, ID= 0) -C define DOUBLE PRECISION variables for calling sequences -#include "pdf/expdp.inc" - + DX,DSCALE,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL, - + ALF,ALPHAS2 - REAL X, SCALE, UPV, DNV, USEA, DSEA, STR, CHM, BOT, TOP, GL -#include "pdf/w50516.inc" - CHARACTER*20 PARM(NCHDIM) -#include "pdf/expdp.inc" - + VAL(NCHDIM) -C - DATA SCALE/80.140/ - DATA X00/0.002/, DX0/0.001/ -C - N6 = L6 - IFLPRT = LFLPRT -C - CALL HLIMIT(NHBMEM) -C - DSCALE=SCALE -C -C First call to PDFSET to initialize COMMON/W505120/ - PARM(1) = 'Init0' - VAL(1) = 0.D0 - CALL PDFSET(PARM,VAL) -C loop over all existing sets of Nucleon structure functions (SF) - NPTYPE = 1 - NSF = 0 - DO IGR = 1,NGRMAX - IF(NPGSMX(NPTYPE,IGR).EQ.0) GOTO 30 - DO ISET = 1,NPGSMX(NPTYPE,IGR) - WRITE (N6,*) ' ============================================= - +=================================================================' - NSF = NSF + 1 -C book histograms for each set of SF separately - CALL HBOOK1(ID+NSF,'U Valence$',NB,0.0015,0.9015,0.) -C force label printing for each set of SF (not only 1st) - FIRST = .TRUE. -C select and set parameters - PARM(1) = 'Nptype' - VAL(1) = NPTYPE - PARM(2) = 'Ngroup' - VAL(2) = IGR - PARM(3) = 'Nset' - VAL(3) = ISET - CALL PDFSET(PARM,VAL) -C loop over all x bins - DO 10 I=1,NB - X= X00 + (I-1)*DX0 - DX=X - IF(X.LT.0.0015 .OR. X.GT.0.9015) GOTO 10 - CALL STRUCTM(DX,DSCALE, - + DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - UPV=DUPV - IF(X.GT.0.499 .AND. X.LE.0.500) WRITE(N6,1000) X,SCALE,UPV - 1000 FORMAT(/,' X= ',F6.4,' Q= ',F6.3,' UPV= ',F8.4) - CALL HF1(ID+NSF,X,UPV) - 10 CONTINUE -C get alpha(s) for selected set of SF at Q = SCALE - ALF = ALPHAS2(DSCALE) - WRITE(N6,4000) NPTYPE,NGROUP,NSET,SFNAME(NPTYPE,NGROUP,NSET), - + MODECR(NPTYPE,NGROUP,NSET),NSF - WRITE(N6,4001) DSCALE,ALF - 4000 FORMAT(/,' Nptype = ',I1,' Ngroup = ',I1, - + ' Nset = ',I2,' Name = "',A8, - + '" CrMode = ',I3,' HBId = ',I3) - 4001 FORMAT(1H ,' Scale = ',F8.4,' alpha(s) = ',F6.4) -C get error summary for each set of SF - CALL PDFSTA - 20 CONTINUE - ENDDO - 30 CONTINUE - ENDDO -C - STOP - END diff --git a/PDF/tpdf/tpdfupvo.F b/PDF/tpdf/tpdfupvo.F deleted file mode 100644 index 6fe52c8fab8..00000000000 --- a/PDF/tpdf/tpdfupvo.F +++ /dev/null @@ -1,84 +0,0 @@ -* -* $Id$ -* -* $Log$ -* Revision 1.1.1.2 1996/10/30 08:32:59 cernlib -* Version 7.04 -* -* Revision 1.1.1.1 1996/04/12 15:30:18 plothow -* Version 7.01 -* -* -#include "pdf/pilot.h" - PROGRAM PDFUPVO -C define loop parameters (= maximal number of available PDF sets) -C+SEQ, W5051P2. - PARAMETER (MODEMX = 281) -C define HBOOK settings - PARAMETER (NHBMEM = 500000) - COMMON /PAWC/ HMEM(NHBMEM) - PARAMETER (NB=900, ID= 0) -C define DOUBLE PRECISION variables for calling sequences -#include "pdf/expdp.inc" - + DX,DSCALE,DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL, - + ALF,ALPHAS2 - REAL X, SCALE, UPV, DNV, USEA, DSEA, STR, CHM, BOT, TOP, GL -#include "pdf/w50516.inc" - CHARACTER*20 PARM(20) -#include "pdf/expdp.inc" - + VAL(20) -C - DATA SCALE/80.140/ - DATA X00/0.002/, DX0/0.001/ -C - CALL HLIMIT(NHBMEM) -C - DSCALE=SCALE -C loop over all existing sets of proton structure functions (SF) - DO 20 ISTRUC=0,MODEMX -C skip obsolete (or non existing) sets of SF - IF(ISTRUC.EQ. 19 ) GOTO 20 - IF(ISTRUC.GE. 48 .AND. ISTRUC.LE. 49) GOTO 20 - IF(ISTRUC.GE. 61 .AND. ISTRUC.LE. 69) GOTO 20 - IF(ISTRUC.EQ. 74 ) GOTO 20 - IF(ISTRUC.GE. 76 .AND. ISTRUC.LE. 79) GOTO 20 - IF(ISTRUC.GE. 81 .AND. ISTRUC.LE.105) GOTO 20 - IF(ISTRUC.GE.108 .AND. ISTRUC.LE.119) GOTO 20 - IF(ISTRUC.GE.123 .AND. ISTRUC.LE.171) GOTO 20 - IF(ISTRUC.GE.174 .AND. ISTRUC.LE.179) GOTO 20 - IF(ISTRUC.GE.183 .AND. ISTRUC.LE.205) GOTO 20 - IF(ISTRUC.GE.208 .AND. ISTRUC.LE.209) GOTO 20 - IF(ISTRUC.GE.214 .AND. ISTRUC.LE.219) GOTO 20 - IF(ISTRUC.GE.223 .AND. ISTRUC.LE.229) GOTO 20 - IF(ISTRUC.GE.233 .AND. ISTRUC.LE.270) GOTO 20 - IF(ISTRUC.GE.274 .AND. ISTRUC.LE.279) GOTO 20 -C book histograms for each set of SF separately - CALL HBOOK1(ID+ISTRUC,'U Valence$',NB,0.0015,0.9015,0.) -C force label printing for each set of SF (not only 1st) - FIRST = .TRUE. -C select and set parameters - PARM(1) = 'Mode' - VAL(1) = ISTRUC - CALL PDFSET(PARM,VAL) -C loop over all x bins - DO 10 I=1,NB - X= X00 + (I-1)*DX0 - DX=X - IF(X.LT.0.0015 .OR. X.GT.0.9015) GOTO 10 - CALL STRUCTM(DX,DSCALE, - + DUPV,DDNV,DUSEA,DDSEA,DSTR,DCHM,DBOT,DTOP,DGL) - UPV=DUPV - IF(X.GT.0.499 .AND. X.LE.0.500) WRITE(6,1000) X,SCALE,UPV - 1000 FORMAT(/,' X= ',F6.4,' Q= ',F6.3,' UPV= ',F8.4) - CALL HF1(ID+ISTRUC,X,UPV) - 10 CONTINUE -C get alpha(s) for selected set of SF at Q = SCALE - ALF = ALPHAS2(DSCALE) - WRITE(6,1001) ISTRUC,DSCALE,ALF - 1001 FORMAT(/,' Mode = ',I3,' SCALE = ',F8.4,' alpha(s) = ',F6.4) -C get error summary for each set of SF - CALL PDFSTA - 20 CONTINUE -C - STOP - END -- 2.39.3