PROGRAM ATLAS12 c 22jun05 error found by K.Bischof 43.02 PF c 27may2005 ATLAS9 abundance scaling per Fiorella Castelli c 19may2005 errors in ISOTOPES found by John Lester c 22feb2005 sign error in C1OP J.Lester c 22jun04 REAL*8 XNF,XNFP > XNF,XNFP,XNH2 F.Castelli, Trieste c 14jun04 PFGROUND replaced and call from PFSAHA changed c 07jun04 error in 43.02 PF found by John Laird c 24jul03 XKARZAS one bad number in X11 - X13 data c 24jul03 KARSAS should be KARZAS everywhere c 21jul03 SI1OP X(25),X(26),X(27) extend past col 72 K.Bischof, Vienna c 04jun03 C2OP is called by both LUKOP and HOTOP K.Bischof, Vienna c 15may03 PFGROUND returns missing for 44.00 and 44.01 K.Bischof (Vienna) c 03jan03 PFGROUND 44.01 should be -HCK C 30oct02 HEI2P1P HEI2S1P should be HEI2P1P from Shulak Denis c 25sep02 MG1OP index 13 should be 15 c 06apr02 IELION for H2O corrected in SELECTLINES c 26nov00 in NMOLEC corrected treatment of the energy density for H2 c 07jun01 ifprnt(45),infpnch(45) > ifprnt(60),ifpnch(60) 45I2 > 60I2 c revised 20jul01 John Lester found dimensions of CONTX too small C TAPE2 MOLECULAR EQUILIBRIUM CONSTANTS C TAPE5 INPUT C TAPE6 OUTPUT C TAPE7 MODEL AND OR FLUX OUTPUT C TAPE9 LINE DISTRIBUTION FUNCTION INPUT IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /ABROSS/ABROSS(kw),TAUROS(kw) COMMON /ABTOT/ABTOT(kw),ALPHA(kw) COMMON /CONV/DLTDLP(kw),HEATCP(kw),DLRDLT(kw),VELSND(kw), 1 GRDADB(kw),HSCALE(kw),FLXCNV(kw),VCONV(kw),MIXLTH, 2 OVERWT,FLXCNV0(kw),FLXCNV1(kw),IFCONV REAL*8 MIXLTH COMMON /DEPART/BHYD(kw,6),BMIN(kw),NLTEON COMMON /ELEM/ABUND(99),ATMASS(99),YABUND(99),ELEM(99) CHARACTER*2 ELEM COMMON /EDENS/EDENS(kw),IFEDNS COMMON /EXTAB/EXTAB(1001),EXTABF(1001),E1TAB(2000) COMMON /H1TAB/H0TAB(2001),H1TAB(2001),H2TAB(2001) COMMON /FILENAME/FILENAME CHARACTER*60 FILENAME COMMON /FLUX/ FLUX,FLXERR(kw),FLXDRV(kw),FLXRAD(kw) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /FRESET/WAVESET(30000),RCOSET(30000),NULO,NUHI,NUMNU,NUSTEP COMMON /HEIGHT/HEIGHT(kw) COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,IFMOL,IFREADLINES COMMON /IFOP/IFOP(20) COMMON /ITER/ ITER,IFPRNT(60),IFPNCH(60),NUMITS COMMON /JUNK/TITLE(74),FREQID(6),WLTE,XSCALE,INPUTDATA COMMON /MUS/ANGLE(20),SURFI(20),NMU COMMON /OPS/AHYD(kw),AH2P(kw),AHMIN(kw),SIGH(kw),AHE1(kw), 1 AHE2(kw),AHEMIN(kw),SIGHE(kw),ACOOL(kw),ALUKE(kw),AHOT(kw), 2 SIGEL(kw),SIGH2(kw),AHLINE(kw),ALINES(kw),SIGLIN(kw), 3 AXLINE(kw),SIGXL(kw),AXCONT(kw),SIGX(kw),SHYD(kw), 4 SHMIN(kw),SHLINE(kw),SXLINE(kw),SXCONT(kw) COMMON /OPTOT/ACONT(kw),SCONT(kw),ALINE(kw),SLINE(kw),SIGMAC(kw), 1 SIGMAL(kw) COMMON /PTOTAL/PTOTAL(kw) COMMON /PUT/PUT,IPUT COMMON /PZERO/PZERO,PCON,PRADK0,PTURB0,KNU(kw),PRADK(kw),RADEN(kw) REAL*8 KNU COMMON /RAD/ ACCRAD(kw),PRAD(kw) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TABCONT/TABCONT(kw,344),WAVETAB(344),IWAVETAB(344) COMMON /TABLOG/TABLOG(32768) COMMON /TAUSHJ/TAUNU(kw),SNU(kw),HNU(kw),JNU(kw),JMINS(kw) REAL*8 JNU,JMINS COMMON /STEPLG/STEPLG,TAU1LG,KRHOX COMMON /TEFF/TEFF,GRAV,GLOG COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, 1 IFTURB COMMON /WAVEY/WBEGIN,DELTAW,IFWAVE COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /ISOTOPE/ISOTOPE(10,2,mion) COMMON /XLINES/XLINES(kw,30000) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) COMMON /XNFDOP/XNFDOP(kw,mion),DOPPLE(kw,mion) REAL*4 XNFDOP,DOPPLE,TABCONT,TABLOG,XLINES REAL*4 EXTAB,EXTABF,E1TAB,H0TAB,H1TAB,H2TAB,VSTEPS REAL*4 ISOTOPE INTEGER*2 IELION,IELO,IGFLOG,IGR,IGS,IGW COMMON /IIIIIII/IWL,IELION,IELO,IGFLOG,IGR,IGS,IGW INTEGER*4 IIIIIII(4) EQUIVALENCE (IIIIIII(1),IWL) C K=1.38054E-16 C H=6.6256E-27 C C=2.99792458E10 C E=1.60210E-19 C ATMASS=1.660E-24 C C C INPUT SECTION C PREFIX P PRESSURE C PREFIX T TEMPERATURE C PREFIX X ABUNDANCE FRACTION C PREFIX F IONIZATION FRACTION C PREFIX R FREQUENCY INTEGRAL OR INTEGRATION COEFFICIENT C PREFIX A OR AB MASS ABSORPTION COEFFICIENT C PREFIX XNFP NUMBER DENSITY OVER PARTITION FUNCTION C ALPHA IS THE FRACTION OF OPACITY CAUSED BY SCATTERING C NLTEON=0 LTE C NLTEON=1 NLTE C BHYD STATISTICAL EQUILIBRIUM FACTOR FOR HYDROGEN C BMIN STATISTICAL EQUILIBRIUM FACTOR FOR HMINUS C ABUND CONTAINS THE NORMALLY ASSUMED ABUNDANCES C ELEM CONTAINS THE LETTER CODES FOR ELEMENTS C RCOSET HAS INTEGRATION COEFFICIENTS FOR THE FREQUENCIES IN FRESET C NUMNU NUMBER OF FREQUENCIES IN THE FREQUENCY SET C NULO NUMBER OF THE FREQUENCY AT WHICH INTEGRATION STARTS C NUHI NUMBER OF THE FREQUENCY AT WHICH INTEGRATION STOPS C IFCORR TEMPERATURE CORRECTION ON OR OFF C IFPRES PRESSURE INTEGRATION ON OR OFF C IFSURF=0 CALCULATE FLUX FOR EVERY DEPTH C IFSURF=1 CALCULATE FLUX AT SURFACE ONLY C IFSURF=2 CALCULATE INTENSITY AT SURFACE C IFSCAT=0 NO SCATTERING IN SOURCE FUNCTION SNU=BNU C IFSCAT=1 SCATTERING IN SOURCE FUNCTION SOLVE MATRIX EQUATION C IFMOL=1 SET UP EQUILIBRIUM EQUATIONS FOR NUMBER DENSITIES C IFMOL=0 ASSUME NO MOLECULES AND ITERATE FOR NUMBER DENSITIES C NUMITS NUMBER OF ITERATIONS C FREQID IS A LABEL FOR THE FREQUENCY SET C XSCALE IS A SCALING FACTOR FOR METAL ABUNDANCES C IFPRNT(I)=0 DO NOT PRINT ANYTHING FOR ITERATION I C IFPRNT(I)=1 PRINT MINIMAL SUMMARY TABLE AT END OF ITERATION C IFPRNT(I)=2 PRINT ALL FREQUENCY INDEPENDENT DATA C IFPRNT(I)=3 PRINT SNU,TAUNU,JNU,ETC. C IFPRNT(I)=4 PRINT OPACITIES C IFPNCH(I)=0 DO NOT PUNCH FOR ITERATION I C IFPNCH(I)=1 PUNCH STRUCTURE C IFPNCH(I)=2 PUNCH STRUCTURE AND SURFACE FLUX OR INTENSITY C IFPNCH(I)=5 PUNCH 2 AND MOLECULAR NUMBER DENSITIES/PART FNS C FOR IFSURF=2 HAVE NMU ANGLES C IFWAVE=1 STEP NUMNU WAVELENGTHS STARTING AT WBEGIN BY WSTEP C XABUND ARE THE ABUNDANCES USED IN THE MODEL C DO 3456 I=1,1001 EXTAB(I)=EXP(-FLOAT(I-1)) 3456 EXTABF(I)=EXP(-FLOAT(I-1)*.001) DO 3457 I=1,2000 3457 E1TAB(I)=EXPI(1,FLOAT(I)*.01) C PRETABULATE VOIGT FUNCTION C 100 STEPS PER DOPPLER WIDTH VSTEPS=200. CALL TABVOIGT(VSTEPS,2001) INPUTDATA=5 CALL PRETABLOG CALL IONPOTS OPEN(UNIT=19,TYPE='OLD',FORM='UNFORMATTED',SHARED,READONLY,ERR=8) 8 ITEMP=0 CALL BEGTIME 1 CALL READIN(1) DO 2 NELION=1,MION DO 2 J=1,NRHOX XNF(J,NELION)=0. XNFP(J,NELION)=0. 2 DOPPLE(J,NELION)=0. CALL ISOTOPES DO 2222 NELION=1,MION XMAX=0. DO 3 I=1,10 IF(ISOTOPE(I,2,NELION).GT.XMAX)THEN AMASSISO(1,NELION)=ISOTOPE(I,1,NELION) XMAX=ISOTOPE(I,2,NELION) ENDIF 3 CONTINUE C PRINT 7777,NELION,AMASSISO(1,NELION) C PRINT 7777,NELION,(ISOTOPE(I,1,NELION),I=1,10) C 2222 PRINT 7777,NELION,(ISOTOPE(I,2,NELION),I=1,10) 2222 CONTINUE 7777 FORMAT(I5,10F10.1) C NULO=1 NUHI=30000 NUSTEP=1 NUCI=11601 NULYMAN=9599 NUHEI=7027 NUHEII=3577 NUSTART=1 IF(TEFF.LT.30000.)NUSTART=NUHEII IF(TEFF.LT.13000.)NUSTART=NUHEI IF(TEFF.LT.7250.)NUSTART=NULYMAN IF(TEFF.LT.4500.)NUSTART=NUCI DO 17 NU=NULO,NUHI,NUSTEP NUMNU=NU 17 WAVESET(NU)=10.D0**(1.D0+.0001D0*(NU+NUSTART-1)) C ASSUME FLUX=0 AT WAVESET(0) RCOSET(1)=(2.99792458E17/WAVESET(1)-2.99792458E17/ 1 WAVESET(1+NUSTEP))*1.5 RCOSUM=RCOSET(1) DO 18 NU=NULO+NUSTEP,NUMNU-NUSTEP,NUSTEP RCOSET(NU)=(2.99792458E17/WAVESET(NU-NUSTEP)-2.99792458E17/ 1 WAVESET(NU+NUSTEP))*.5 18 RCOSUM=RCOSUM+RCOSET(NU) C ASSUME FLUX=0 AT WAVESET(INFINITY) OR FREQ=0 RCOSET(NUMNU)=(2.99792458E17/WAVESET(NUMNU-NUSTEP)+2.99792458E17/ 1 WAVESET(NUMNU))*.25 RCOSUM=RCOSUM+RCOSET(NUMNU) PRINT 19,RCOSUM 19 FORMAT(1PE15.8) C C ITERATION SECTION DO 100 ITERAT=1,NUMITS ITER=ITERAT C CHANGING ITEMP TELLS THE SUBROUTINES THEY HAVE A NEW TEMPERATURE ITEMP=ITEMP+ITER C IF(IFPRES.EQ.0)GO TO 12 IF(ITEMP.EQ.1)GO TO 111 C INTEGRATE EQUATION OF HYDROSTATIC EQUILIBRIUM DO 11 J=1,NRHOX P(J)=GRAV*RHOX(J)-PRAD(J)-PTURB(J)-PCON IF(P(J).GT.0.)GO TO 11 CALL W(6HJ ,DFLOAT(J),1) CALL W(6HP ,P,J) CALL W(6HPZERO ,PZERO,1) CALL W(6HACCRAD,ACCRAD,NRHOX) CALL W(6HPRAD ,PRAD,NRHOX) CALL EXIT 11 CONTINUE C 11 P(J)=PTOTAL(J)-PRAD(J)-PTURB(J) 111 PZERO=PCON+PRADK0+PTURB0 DO 112 J=1,NRHOX CHARGESQ(J)=XNE(J)*2. EXCESS=2.*XNE(J)-P(J)/TK(J) C ALLOWANCE FOR DOUBLY IONIZED HELIUM IF(EXCESS.GT.0.)CHARGESQ(J)=CHARGESQ(J)+2.*EXCESS C PTOTAL(J)=GRAV*RHOX(J) 112 PTOTAL(J)=GRAV*RHOX(J)+PZERO IFEDNS=0 CALL POPS(0.D0,1,XNE) CALL POPSALL C DO 552 NELION=1,840,10 C N9=NELION+9 C WRITE(6,554)(N,N=NELION,N9) C 554 FORMAT(10I12) C DO 552 J=1,NRHOX C 552 WRITE(6,555)J,(XNF(J,N),N=NELION,N9) C 555 FORMAT(I3,1P10E12.3) C DO 556 NELION=1,840,10 C N9=NELION+9 C WRITE(6,554)(N,N=NELION,N9) C DO 556 J=1,NRHOX C 556 WRITE(6,555)J,(XNFP(J,N),N=NELION,N9) DO 556 J=1,NRHOX WRITE(6,555)XNFP(J,841),XNFP(J,846),XNFP(J,847),XNFP(J,848), 1 XNFP(J,851),XNFP(J,853),XNFP(J,868),XNFP(J,869),XNFP(J,870), 2 XNFP(J,889),XNFP(J,895),XNFP(J,940) 555 FORMAT(1P12E10.3) 556 CONTINUE 12 CONTINUE IF(IFEDNS.EQ.1)CALL ENERGYDENSITY C DO 563 J=1,NRHOX DO 563 NELION=1,MION DOPPLE(J,NELION)=SQRT(2.*TK(J)/AMASSISO(1,NELION)/1.660E-24+ 1VTURB(J)**2)/2.99792458E10 563 XNFDOP(J,NELION)=XNFP(J,NELION)/DOPPLE(J,NELION)/RHO(J) DO 8556 J=1,NRHOX WRITE(6,555)XNFDOP(J,841),XNFDOP(J,846),XNFDOP(J,847), 1 XNFDOP(J,848),XNFDOP(J,851),XNFDOP(J,853),XNFDOP(J,868), 2 XNFDOP(J,869),XNFDOP(J,870),XNFDOP(J,889),XNFDOP(J,895), 3 XNFDOP(J,940) 8556 CONTINUE C DO 532 NELION=1,840,10 C N9=NELION+9 C WRITE(6,554)(N,N=NELION,N9) C DO 532 J=1,NRHOX C 532 WRITE(6,555)J,(DOPPLE(J,N),N=NELION,N9) C DO 536 NELION=1,840,10 C N9=NELION+9 C WRITE(6,554)(N,N=NELION,N9) C DO 536 J=1,NRHOX C 536 WRITE(6,555)J,(XNFDOP(J,N),N=NELION,N9) CALL ENDTIME CALL BEGTIME IF(ITER.EQ.1.AND.ITEMP.EQ.1)CALL KAPCONT CALL ENDTIME CALL BEGTIME IF(ITER.EQ.1.AND.IFREADLINES.EQ.1.AND.ITEMP.EQ.1)CALL SELECTLINES CALL ENDTIME IF(IFOP(15).EQ.1)THEN CALL BEGTIME IF(ITER.EQ.1.AND.ITEMP.EQ.1)CALL PRELINOP CALL ENDTIME CALL BEGTIME CALL LINOP CALL ENDTIME ENDIF IF(IFOP(17).EQ.1)THEN CALL BEGTIME CALL XLINOP CALL ENDTIME ENDIF CALL BEGTIME C C ERASE FREQUENCY INTEGRALS IF(IFCORR.EQ.1)CALL TCORR(1,0) CALL ROSS(1,0) CALL RADIAP(1,0) IF(NLTEON.EQ.1)CALL STATEQ(1,0) C C FREQUENCY INTEGRATION SECTION CALL PUTOUT(1) DO 25 NU=NULO,NUHI,NUSTEP WAVE=WAVESET(NU) FREQ=2.99792458E17/WAVE WAVENO=1.E7/WAVE RCOWT=RCOSET(NU) FREQLG=DLOG(FREQ) DO 20 J=1,NRHOX EHVKT(J)=EXP(-FREQ*HKT(J)) STIM(J)=1.-EHVKT(J) FREQ15=FREQ/1.E15 20 BNU(J)=1.47439E-2*FREQ15**3*EHVKT(J)/STIM(J) CALL KAPP DO 21 J=1,NRHOX ALINES(J)=XLINES(J,NU)*STIM(J) 21 ALINE(J)=ALINE(J)+ALINES(J) c PRINT 23,ALINES 23 FORMAT(1P10E12.3) CALL JOSH(IFSCAT,IFSURF) C IFABORT=0 DO 7654 J=1,NRHOX IF(SNU(J).LT.0.)GO TO 7653 IF(JNU(J).LT.0.)GO TO 7653 7654 CONTINUE DO 7651 J=1,NRHOX IF(HNU(J).LT.0.)GO TO 7652 7651 CONTINUE GO TO 7655 7653 IFABORT=1 C IFABORT=0 C 7652 PRINT 7657,NU,WAVE c 7657 FORMAT(I10,F15.5/5X,' ABTOT TAUNU ALPHA SNU', c 1' JNU HNU') c extends past col 72 21jul03 7657 FORMAT(I10,F15.5/5X,' ABTOT TAUNU ALPHA ', 1'SNU JNU HNU') DO 7658 J=1,NRHOX C7658 PRINT 7659,J,ABTOT(J),TAUNU(J),ALPHA(J),SNU(J),JNU(J),HNU(J) 7658 PRINT 7659,J,ABTOT(J),TAUNU(J),ALPHA(J),BNU(J),SNU(J),JNU(J), 1JMINS(J),HNU(J) 7659 FORMAT(I5,1P8E12.3) IF(IFABORT.EQ.1)CALL ABORT DO 7660 J=1,NRHOX JNU(J)=MAX(JNU(J),1.D-99) SNU(J)=MAX(SNU(J),1.D-99) 7660 HNU(J)=MAX(HNU(J),1.D-99) 7655 CONTINUE C IF(IFSURF.GT.0)GO TO 53 IF(IFCORR.EQ.1)CALL TCORR(2,RCOWT) CALL RADIAP(2,RCOWT) CALL ROSS(2,RCOWT) IF(NLTEON.EQ.1)CALL STATEQ(2,RCOWT) 53 CALL PUTOUT(4) 25 CONTINUE IF(IFSURF.GT.0)GO TO 1 C C FINISH ITERATION CALL ROSS(3,0) RX=ROSSTAB(0.D0,0.D0,0.D0) CALL RADIAP(3,0) CALL HIGH IF(IFPRES.EQ.1.AND.IFCONV.EQ.1)CALL CONVEC IF(IFCORR.EQ.1)CALL TCORR(3,0) IF(NLTEON.EQ.1)CALL STATEQ(3,0) IF(IFTURB.EQ.1)CALL TURB CALL PUTOUT(5) C 100 CONTINUE CLOSE(UNIT=12) GO TO 1 END SUBROUTINE PUTOUT(MODE) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /ABROSS/ABROSS(kw),TAUROS(kw) COMMON /ABTOT/ABTOT(kw),ALPHA(kw) COMMON /CONV/DLTDLP(kw),HEATCP(kw),DLRDLT(kw),VELSND(kw), 1 GRDADB(kw),HSCALE(kw),FLXCNV(kw),VCONV(kw),MIXLTH, 2 OVERWT,FLXCNV0(kw),FLXCNV1(kw),IFCONV REAL*8 MIXLTH COMMON /DEPART/BHYD(kw,6),BMIN(kw),NLTEON COMMON /ELEM/ABUND(99),ATMASS(99),YABUND(99),ELEM(99) CHARACTER*2 ELEM COMMON /FLUX/ FLUX,FLXERR(kw),FLXDRV(kw),FLXRAD(kw) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /FRESET/WAVESET(30000),RCOSET(30000),NULO,NUHI,NUMNU,NUSTEP COMMON /HEIGHT/HEIGHT(kw) COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,IFMOL,IFREADLINES COMMON /IFOP/IFOP(20) COMMON /ITER/ ITER,IFPRNT(60),IFPNCH(60),NUMITS COMMON /JUNK/TITLE(74),FREQID(6),WLTE,XSCALE,INPUTDATA COMMON /MUS/ANGLE(20),SURFI(20),NMU COMMON /OPS/AHYD(kw),AH2P(kw),AHMIN(kw),SIGH(kw),AHE1(kw), 1 AHE2(kw),AHEMIN(kw),SIGHE(kw),ACOOL(kw),ALUKE(kw),AHOT(kw), 2 SIGEL(kw),SIGH2(kw),AHLINE(kw),ALINES(kw),SIGLIN(kw), 3 AXLINE(kw),SIGXL(kw),AXCONT(kw),SIGX(kw),SHYD(kw), 4 SHMIN(kw),SHLINE(kw),SXLINE(kw),SXCONT(kw) COMMON /OPTOT/ACONT(kw),SCONT(kw),ALINE(kw),SLINE(kw),SIGMAC(kw), 1 SIGMAL(kw) COMMON /PTOTAL/PTOTAL(kw) COMMON /PZERO/PZERO,PCON,PRADK0,PTURB0,KNU(kw),PRADK(kw),RADEN(kw) REAL*8 KNU COMMON /PUT/PUT,IPUT COMMON /RAD/ ACCRAD(kw),PRAD(kw) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TAUSHJ/TAUNU(kw),SNU(kw),HNU(kw),JNU(kw),JMINS(kw) REAL*8 JNU,JMINS COMMON /TEFF/TEFF,GRAV,GLOG COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, 1 IFTURB COMMON /WAVEY/WBEGIN,DELTAW,IFWAVE COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) COMMON /RR/RJMINSNU(kw),RDIAGJNU(kw) DIMENSION SURFIN(20),F(20),DUMMY(kw,25),ABLOG(20) EQUIVALENCE (DUMMY(1),AHYD(1)),(F(1),STIM(1)) DATA ON,OFF/3HON ,3HOFF/ C GO TO(100,200,200,200,500),MODE C C HEADINGS 100 IF(IFPRNT(ITER).EQ.0)RETURN IFHEAD=0 NU=NULO-NUSTEP IF(IFPNCH(ITER).LT.2)RETURN WRITE(8,111)TEFF,GLOG,WLTE,TITLE 111 FORMAT(5HTEFF ,F7.0,9H GRAVITY,F8.5,1X,A4/6HTITLE ,74A1) IF(IFSURF.NE.2)RETURN WRITE(8,112)NMU,(ANGLE(MU),MU=1,NMU) 112 FORMAT(I3,' ANGLES',10F7.4/10X,10F7.4) RETURN C C INITIALIZE SUMS OVER STEPS c 200 IF(IFPRNT(ITER).LE.1)RETURN 200 NU=NU+NUSTEP HSURF=HNU(1) C DO 301 MU=1,NMU C 301 SURFIN(MU)=SURFIN(MU)+SURFI(MU)*STEPWT TAUEND=DLOG10(TAUNU(NRHOX)) IF(HSURF.LE.0.)HSURF=1.D-50 IF(IFPRNT(ITER).LE.1)GO TO 410 DO 440 JTAU1=1,NRHOX IF(TAUNU(JTAU1).GT.1.)GO TO 441 440 CONTINUE 441 CONTINUE TAUEND=DLOG10(TAUNU(NRHOX)) IF(IFSURF.NE.0.AND.IFSURF.NE.1)GO TO 405 IF(IFHEAD.EQ.0)WRITE(6,101) 101 FORMAT(1H1/////10X,4HWAVE,7X,7HHLAMBDA,7X,5HLOG H,7X,3HMAG, 1 10X,9HFREQUENCY,8X,3HHNU,10X,5HLOG H,7X,3HMAG,2X,6HTAUONE, 2 6H TAUNU) IFHEAD=1 HLAM=HSURF*FREQ/WAVE HNULG=DLOG10(HSURF) HLAMLG=DLOG10(HLAM) HLAMMG=-2.5*HLAMLG HNUMG=-2.5*HNULG C WRITE(6,1401) 1401 FORMAT(1H ) WRITE (6,401)NU,WAVE,HLAM,HLAMLG,HLAMMG,FREQ,HSURF,HNULG,HNUMG, 1JTAU1,TAUEND,NU 401 FORMAT(I6,F10.3,1PE13.4,0PF12.5,F10.3,1PE20.6,E13.4,0PF12.5,F10.3, 1I6,F6.2,I6) 405 IF(IFSURF.NE.2)GO TO 410 IF(IFHEAD.EQ.0)WRITE(6,102) 102 FORMAT(1H1/////10X,4HWAVE,5X,9HFREQUENCY,3X,12HTAUONE TAUNU, 15(17H MU INTENSITY )) IFHEAD=1 WRITE(6,406)NU,WAVE,FREQ,JTAU1,TAUEND, 1(ANGLE(MU),SURFIN(MU),MU=1,NMU) 406 FORMAT(I6,F9.3,1PE15.6,I6,0PF6.2,5(0PF7.4,1PE10.3)/ 1(42X,5(0PF7.4,1PE10.3))) 410 IF(IFPNCH(ITER).LT.2)RETURN IF(IFSURF.GT.2)RETURN IF(IFSURF.EQ.2)GO TO 415 WRITE(8,411)NU,WAVE,FREQ,HSURF 411 FORMAT(4HFLUX,I5,F9.2,1PE20.6,E13.4,E13.4,0PF10.5) IF(NU.EQ.NUHI)WRITE(8,411) RETURN C 415 WRITE(8,416)FREQ,(ANGLE(MU),SURFIN(MU),MU=1,NMU) C 416 FORMAT(9HINTENSITY,1PE15.6,1X,3(0PF6.4,1PE10.3)/ C 1(5(0PF6.4,1PE10.3))) 415 WRITE(8,416)NU,WAVE,FREQ,(SURFIN(MU),MU=1,NMU) 416 FORMAT(9HINTENSITY,I5,F9.2,1PE15.6/(1P8E10.3)) IF(NU.EQ.NUHI)WRITE(8,416) RETURN C C SUMMARIES 500 IF(IFPRNT(ITER).EQ.0)GO TO 550 C IF(IFPRNT(ITER).EQ.1)GO TO 540 WRITE(6,501)(J,RHOX(J),PTOTAL(J),PTURB(J),GRDADB(J),DLTDLP(J), 1VELSND(J),DLRDLT(J),HEATCP(J),HSCALE(J),VCONV(J),FLXCNV(J), 2J=1,NRHOX) 501 FORMAT(1H1/////132H RHOX PTOTAL PTURB GRDADB + 1 DLTDLP VELSND DLRDLT HEATCP HSCALE VCONV + 2 FLXCNV /(I3,1P11E11.3)) WRITE(6,502)FLUX 502 FORMAT(1H0108X4HFLUX1PE12.4) WRITE(6,503)(J,XNATOM(J),RADEN(J),PRADK(J),XNFP(J,1),XNFP(J,2), 1XNFP(J,3),XNFP(J,4),XNFP(J,5),VTURB(J), 2FLXCNV0(J),FLXCNV1(J),J=1,NRHOX) 503 FORMAT(1H1/////132H XNATOM RADEN PRADK XNFPH1 + 1 XNFPH2 XNFPHE1 XNFPHE2 XNFPHE3 VTURB + 2 /(I3,1P11E11.3)) CALL W(6HPRADK0,PRADK0,1) CALL W(6HXNH2 ,XNH2,NRHOX) 540 WRITE(6,541)TEFF,GLOG,TITLE,ITER 541 FORMAT(1H1//////5H TEFF,F8.0,8H LOG G,F9.5,10X,74A1,2X, 1 9HITERATION,I3) DO 539 J=1,NRHOX IF(IFCORR.EQ.0)FLXRAD(J)=FLUX-FLXCNV(J) 539 FLXCNV(J)=FLXCNV(J)/(FLXCNV(J)+FLXRAD(J)) WRITE(6,542)(J,RHOX(J),T(J),P(J),XNE(J),RHO(J),ABROSS(J), 1HEIGHT(J),TAUROS(J),FLXCNV(J),ACCRAD(J),FLXERR(J),FLXDRV(J), 2J=1,NRHOX) 542 FORMAT(132H0 ELECTRON + 1 ROSSELAND HEIGHT ROSSELAND FRACTION RADIATIVE PE 2R CENT FLUX/132H RHOX TEMP PRESSURE NUMBER DEN 3SITY MEAN (KM) DEPTH CONV FLUX ACCELERATION + 4 ERROR DERIV/(I3,1PE10.3,0PF9.1,1P8E11.3,0PF14.3,F8.3)) 550 IF(IFPNCH(ITER).EQ.0)RETURN C C PUNCHOUT A=OFF IF(IFCONV.EQ.1)A=ON B=OFF IF(IFTURB.EQ.1)B=ON C WRITE(7,552) TEFF,GLOG,WLTE,TITLE,IFOP,A,MIXLTH,B,TRBFDG, C 1TRBPOW,TRBSND,TRBCON,XSCALE,(IZ,ABUND(IZ),IZ=1,99) C 552 FORMAT(5HTEFF ,F7.0,9H GRAVITY,F8.5,1X,A4/6HTITLE ,74A1 C 1/13H OPACITY IFOP20I2/12H CONVECTION A3,F6.2,12H TURBULENCE A3, C 24F6.2/16HABUNDANCE SCALE ,F9.5,17H ABUNDANCE CHANGE,2(I2,F8.5)/ C 3(17H ABUNDANCE CHANGE,6(I3,F8.3))) CC WRITE(7,5552)(IZ,XRELATIVE(IZ),IZ=3,99) CC 5552 FORMAT(('ABUNDANCE RELATIVE',6(I3,F6.3))) C WRITE(7,554)NRHOX,(RHOX(J),T(J),P(J),XNE(J),ABROSS(J),ACCRAD(J), C 1VTURB(J),J=1,NRHOX) C 554 FORMAT(11HREAD DECK12,I3,33H RHOX,T,P,XNE,ABROSS,ACCRAD,VTURB/ C 1(1PE15.8,0PF9.1,1P5E10.3)) C WRITE(7,555)PRADK0 C 555 FORMAT(5HPRADK,1PE11.4) WRITE(7,552) TEFF,GLOG,WLTE,TITLE,IFOP,A,MIXLTH,B,TRBFDG, 1TRBPOW,TRBSND,TRBCON,XSCALE,(IZ,YABUND(IZ),IZ=1,99) C 1TRBPOW,TRBSND,TRBCON,XSCALE,(IZ,ABUND(IZ),IZ=1,2) 552 FORMAT(5HTEFF ,F7.0,9H GRAVITY,F8.5,1X,A4/6HTITLE ,74A1 1/13H OPACITY IFOP20I2/12H CONVECTION A3,F6.2,12H TURBULENCE A3, 24F6.2/16HABUNDANCE SCALE ,F9.5,17H ABUNDANCE CHANGE,2(I2,F8.5)/ 3(17H ABUNDANCE CHANGE,6(I3,F7.2))) WRITE(7,553)ELEM(1),ABUND(1), 1ELEM(2),ABUND(2),(IZ,ELEM(IZ),ABUND(IZ),XRELATIVE(IZ),IZ=3,99) 553 FORMAT(' ABUNDANCE TABLE'/' 1',A2,F10.6,' 2',A2,F10.6/ 1 (5(I5,A2,F7.3,F6.3))) WRITE(7,554)NRHOX,(RHOX(J),T(J),P(J),XNE(J),ABROSS(J),ACCRAD(J), 1VTURB(J),FLXCNV(J),VCONV(J),J=1,NRHOX) 554 FORMAT(10HREAD DECK6,I3,33H RHOX,T,P,XNE,ABROSS,ACCRAD,VTURB/ 1(1PE15.8,0PF9.1,1P7E10.3)) WRITE(7,555)PRADK0 555 FORMAT(5HPRADK,1PE11.4) IF(NLTEON.EQ.0)GO TO 560 WRITE(7,556)NRHOX,(RHOX(J),(BHYD(J,I),I=1,6),BMIN(J),J=1,NRHOX) 556 FORMAT(27HREAD DEPARTURE COEFFICIENTSI3,21H RHOX BHYD 1-6 BMIN/ 1(1PE11.4,0P7F9.4)) 560 IF(IFWAVE.EQ.1)GO TO 570 C WRITE(7,562)NUMNU,NULO,NUHI,FREQID,(NU,FRESET(NU),RCOSET(NU), C 1NU=1,NUMNU) C 562 FORMAT(16HREAD FREQUENCIES3I4,3X6A1/(I5,1P2E17.8,I5,2E17.8)) 570 WRITE(7,571)ITER 571 FORMAT(5HBEGIN,20X,10HITERATION I3,10H COMPLETED ) CLOSE(UNIT=7) RETURN END SUBROUTINE TCORR(MODE,RCOWT) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /ABROSS/ABROSS(kw),TAUROS(kw) COMMON /ABTOT/ABTOT(kw),ALPHA(kw) COMMON /CONV/DLTDLP(kw),HEATCP(kw),DLRDLT(kw),VELSND(kw), 1 GRDADB(kw),HSCALE(kw),FLXCNV(kw),VCONV(kw),MIXLTH, 2 OVERWT,FLXCNV0(kw),FLXCNV1(kw),IFCONV REAL*8 MIXLTH COMMON /DEPART/BHYD(kw,6),BMIN(kw),NLTEON COMMON /FLUX/ FLUX,FLXERR(kw),FLXDRV(kw),FLXRAD(kw) COMMON /FRESET/WAVESET(30000),RCOSET(30000),NULO,NUHI,NUMNU,NUSTEP COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /ITER/ ITER,IFPRNT(60),IFPNCH(60),NUMITS COMMON /PTOTAL/PTOTAL(kw) COMMON /PZERO/PZERO,PCON,PRADK0,PTURB0,KNU(kw),PRADK(kw),RADEN(kw) REAL*8 KNU COMMON /RAD/ ACCRAD(kw),PRAD(kw) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /STEPLG/STEPLG,TAU1LG,KRHOX COMMON /TAUSHJ/TAUNU(kw),SNU(kw),HNU(kw),JNU(kw),JMINS(kw) REAL*8 JNU,JMINS COMMON /TEFF/TEFF,GRAV,GLOG COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, 1 IFTURB COMMON /RR/RJMINSNU(kw),RDIAGJNU(kw) COMMON /TAUSTD/TAUSTD(kw) COMMON /TSMOOTH/J1SMOOTH,J2SMOOTH,WTJM1,WTJ,WTJP1,TSMOOTH(kw) DIMENSION RJMINS(kw),RDABH(kw),RDIAGJ(kw),OLDT1(kw) DIMENSION DABTOT(kw),DTDRHX(kw),HRATIO(kw),CODRHX(kw),G(kw), 1GFLUX(kw),DDLT(kw),DTAU(kw),DTFLUX(kw),DTLAMB(kw),DUM(kw), 2TINTEG(kw),DTSURF(kw),T1(kw),CNVFLX(kw),GRDEFF(kw),RHOXL(kw) DIMENSION DABROS(kw) DIMENSION TPLUS(kw),TNEW1(kw),TNEW2(kw) DIMENSION AB1(kw),PTOT1(kw),P1(kw),AB2(kw),PTOT2(kw),P2(kw) DIMENSION PPP(kw),RRR(kw),DRHOX(kw) DIMENSION PRDNEW(kw) DIMENSION DDEL(kw) DIMENSION DUM1(kw),DUM2(kw),DUM3(kw),DUM4(kw),DUM5(kw) DIMENSION DUM6(kw),DUM7(kw),DUM8(kw) DIMENSION CCCCCC(kw) C)))))))))))))))))))))))) GO TO (10,20,30),MODE C ERASE FREQUENCY INTEGRALS 10 DO 11 J=1,NRHOX RJMINS(J)=0. RDABH(J)=0. RDIAGJ(J)=0. 11 FLXRAD(J)=0. RETURN C C FREQUENCY INTEGRATION C(((((((((((((((((((((((( C 20 DO 21 J=1,NRHOX 20 CALL DERIV(RHOX,ABTOT,DABTOT,NRHOX) DO 21 J=1,NRHOX RDABH(J)=RDABH(J)+DABTOT(J)/ABTOT(J)*HNU(J)*RCOWT C)))))))))))))))))))))))) C RJMINS(J)=RJMINS(J)+ABTOT(J)*JMINS(J)*RCOWT RJMINSNU(J)=ABTOT(J)*JMINS(J)*RCOWT RJMINS(J)=RJMINS(J)+RJMINSNU(J) 21 FLXRAD(J)=FLXRAD(J)+HNU(J)*RCOWT TERM2=0. DO 24 J=1,NRHOX TERM1=TERM2 IF(J.NE.NRHOX)D=TAUNU(J+1)-TAUNU(J) D=MAX(1.D-10,D) IF(D.LE..01)GO TO 23 EX=0. IF(D.LT.10.)EX=EXPI(3,D) TERM2=.5*(D+EX-.5)/D GO TO 22 23 TERM2=(.922784335098467-DLOG(D))*D/4.+D**2/12.-D**3/96.+D**4/720. C 23 TERM2=(.922784335098467-DLOG(D))*D*(.25+D*(8.33333333333333E-2+D* C 1(1.04166666666667E-2+D*1.38888888888889E-3))) 22 DIAGJ=TERM1+TERM2 DBDT=BNU(J)*FREQ*HKT(J)/T(J)/STIM(J) IF(NUMNU.EQ.1)DBDT=FLUX*16./T(J) C 24 RDIAGJ(J)=RDIAGJ(J)+ABTOT(J)*(DIAGJ-1.)/(1.-ALPHA(J)*DIAGJ)* C 1(1.-ALPHA(J))*DBDT*RCOWT RDIAGJNU(J)=ABTOT(J)*(DIAGJ-1.)/(1.-ALPHA(J)*DIAGJ)* 1(1.-ALPHA(J))*DBDT*RCOWT 24 RDIAGJ(J)=RDIAGJ(J)+RDIAGJNU(J) RETURN C C AVRETT-KROOK TAU CORRECTION MODIFIED FOR CONVECTION 30 CALL DERIV(RHOX,T,DTDRHX,NRHOX) CALL DERIV(RHOX,DLTDLP,DDLT,NRHOX) C(((((((((((((((((((((((( CALL DERIV(RHOX,ABROSS,DABROS,NRHOX) DO 3100 J=1,NRHOX CNVFLX(J)=0. IF(IFCONV.EQ.1)CNVFLX(J)=FLXCNV(J) IF(J.LT.3)CNVFLX(J)=0. 3100 CONTINUE DO 3101 J=2,NRHOX-1 3101 CCCCCC(J)=.25*CNVFLX(J-1)+.5*CNVFLX(J)+.25*CNVFLX(J+1) DO 3102 J=2,NRHOX-1 3102 CNVFLX(J)=CCCCCC(J) DO 31 J=1,NRHOX RDABH(J)=RDABH(J)-FLXRAD(J)*DABROS(J)/ABROSS(J) C)))))))))))))))))))))))) DEL=1. D=0. IF(CNVFLX(J).GT.0..AND.FLXCNV0(J).GT.0.)THEN DEL=DLTDLP(J)-GRDADB(J) VCO=.5*MIXLTH*SQRT(MAX(-.5*PTOTAL(J)/RHO(J)*DLRDLT(J),0.D0)) FLUXCO=.5*RHO(J)*HEATCP(J)*T(J)*MIXLTH/12.5664 IF(MIXLTH.GT.0.AND.VCO.GT.0.)D=8.*5.6697E-5*T(J)**4/ 1(ABROSS(J)*HSCALE(J)*RHO(J))/(FLUXCO*12.5664)/VCO D=D**2/2. DDEL(J)=(1.+D/(D+DEL))/DEL ENDIF CNVFL=0. IF(CNVFLX(J)/FLXRAD(J).GT.1.E-3.AND.FLXCNV0(J)/FLXRAD(J).GT.1.E-3) 1CNVFL=CNVFLX(J) C 31 CODRHX(J)=(RDABH(J)+CNVFLX(J)*(DTDRHX(J)/T(J)*(1.-9.*D/(D+DEL))+ 31 CODRHX(J)=(RDABH(J)+CNVFL *(DTDRHX(J)/T(J)*(1.-9.*D/(D+DEL))+ 1 1.5*DDLT(J)/DEL*(1.+D/(D+DEL))))/(FLXRAD(J)+CNVFLX(J)* 2 1.5*DLTDLP(J)/DEL*(1.+D/(D+DEL))) CODRHX(1)=0. CODRHX(2)=0. C CALL INTEG(RHOX,CODRHX,G,NRHOX) CALL INTEG(RHOX,CODRHX,G,NRHOX,0.D0) DO 32 J=1,NRHOX G(J)=EXP(G(J)) 32 GFLUX(J)=G(J)*(FLXRAD(J)+CNVFLX(J)-FLUX)/(FLXRAD(J)+CNVFLX(J)* 1 1.5*DLTDLP(J)*DDEL(J)) C BUG C 1 1.5*DLTDLP(J)/DEL*(1.+D/(D+DEL))) C(((((((((((((((((((((((( C CALL INTEG(RHOX,GFLUX,DRHOX,NRHOX) C CALL INTEG(TAUROS,GFLUX,DTAU,NRHOX) CALL INTEG(TAUROS,GFLUX,DTAU,NRHOX,0.D0) DO 33 J=1,NRHOX C DRHOX(J)=DRHOX(J)/G(J) C DRHOX(J)=DMAX1(-TAUROS(J)/ABROSS(J)/2.,DMIN1(TAUROS(J)/ABROSS(J), C 1DRHOX(J))) C 33 DTFLUX(J)=-DRHOX(J)*DTDRHX(J) DTAU(J)=DTAU(J)/G(J) DTAU(J)=DMAX1(-TAUROS(J)/2.,DMIN1(TAUROS(J)/2.,DTAU(J))) 33 DTFLUX(J)=-DTAU(J)*DTDRHX(J)/ABROSS(J) DO 3301 J=1,NRHOX IF(TAUROS(J).GE..03)GO TO 3302 DO 3300 I=1,J 3300 DTFLUX(I)=DTFLUX(I)*.5 3301 CONTINUE 3302 CONTINUE DO 3303 J=1,NRHOX 3303 DTFLUX(J)=DMAX1(-0.04*T(J),DMIN1(0.04*T(J),DTFLUX(J))) C)))))))))))))))))))))))) DTFLUX(1)=0. DTFLUX(2)=0. C DO 41 J=1,NRHOX 41 FLXERR(J)=(FLXRAD(J)+CNVFLX(J)-FLUX)/FLUX*100. CALL DERIV(TAUROS,FLXERR,FLXDRV,NRHOX) TEFF25=TEFF/25. DO 43 J=1,NRHOX C IF(CNVFLX(J)/FLXRAD(J).LT.1.E-5)FLXDRV(J)=RJMINS(J)/ABROSS(J)/ C IF(TAUROS(J).LT.1.)FLXDRV(J)=RJMINS(J)/ABROSS(J)/ IF(CNVFLX(J)/FLXRAD(J).LT.1.E-3)FLXDRV(J)=RJMINS(J)/ABROSS(J)/ 1FLUX*100. DTLAMB(J)=-FLXDRV(J)*FLUX/100./RDIAGJ(J)*ABROSS(J) IF(CNVFLX(J)/FLXRAD(J).LT.1.E-5.AND.TAUROS(J).LT.1.)GO TO 42 C IF(TAUROS(J).LT.0.3)GO TO 42 DTLAMB(J)=0. DTLAMB(J-1)=DTLAMB(J-1)/2. DTLAMB(J-2)=DTLAMB(J-2)/2. DTLAMB(J-3)=DTLAMB(J-3)/2. DTLAMB(J-4)=DTLAMB(J-4)/2. DTLAMB(J-5)=DTLAMB(J-5)/2. C FUDGE TO AVOID VERY LARGE TEMPERATURE CORRECTIONS 42 DTLAMB(J)=DMAX1(-TEFF25,DMIN1(TEFF25,DTLAMB(J))) 43 CONTINUE C DTSUR=(FLUX-FLXRAD(1))/FLUX*.25*T(1) DTSUR=DMAX1(-TEFF25,DMIN1(TEFF25,DTSUR)) DO 45 J=1,NRHOX 45 DUM(J)=DTFLUX(J)+DTLAMB(J) C CALL INTEG(TAUROS,DUM,TINTEG,NRHOX) CALL INTEG(TAUROS,DUM,TINTEG,NRHOX,0.D0) IDUM=MAP1(TAUROS,TINTEG,NRHOX,.1D0,TONE,1) IDUM=MAP1(TAUROS,TINTEG,NRHOX,2.D0,TTWO,1) TAV=(TTWO-TONE)/2. IF(DTSUR*TAV.LE.0.)TAV=0. IF(ABS(TAV).GT.ABS(DTSUR))TAV=DTSUR DTSUR=DTSUR-TAV DO 5050 J=1,NRHOX 5050 HRATIO(J)=CNVFLX(J)/(CNVFLX(J)+FLXRAD(J)) IDUM=MAP1(TAUROS,HRATIO,NRHOX,1.D0,HRATIO1,1) DO 49 J=1,NRHOX 49 DTSURF(J)=DTSUR*(1.-HRATIO1) C DO 50 J=1,NRHOX C HRATIO(J)=CNVFLX(J)/(CNVFLX(J)+FLXRAD(J)) C C REDUCE SURFACE CORRECTION TO THE FRACTION OF RADIATIVE FLUX DTSURF(J)=DTSURF(J)*(1.-HRATIO(J)) C TRY TO GET AROUND PROBLEMS WITH H2 CONVECTION C IF(TEFF.LT.3000.)DTSURF(J)=DTSURF(J)/2. IF(TEFF.LT.3000.)DTSURF(J)=0. C 50 T1(J)=DTFLUX(J)+DTLAMB(J)+DTSURF(J) C IF(IFPRNT(ITER).LE.1)GO TO 60 IF(IFPRNT(ITER).EQ.0)GO TO 60 WRITE(6,100) (J,RHOX(J),T(J),DTLAMB(J),DTSURF(J),DTFLUX(J),T1(J), 1HRATIO(J),FLXERR(J),FLXDRV(J),J=1,NRHOX) 100 FORMAT(1H1///94H0 RHOX T DTLAMB DTSURF DTFL 1UX T1 CONV/TOTAL ERROR DERIV/ 2(I3,1PE12.4,0PF10.1,4F9.1,1X1PE11.3,1X0P2F10.3)) C 60 DO 61 J=1,NRHOX IF(IFCONV.EQ.1.AND.HRATIO(J).GT.0.)GO TO 6262 C IF(IFCONV.EQ.1.AND.HRATIO(J).GT.0.)GO TO 62 C IF(IFCONV.EQ.1.AND.J.GE.NRHOX/2)GO TO 62 IF(ITER.EQ.1)GO TO 62 IF(OLDT1(J)*T1(J).GT.0..AND.ABS(OLDT1(J)).GT.ABS(T1(J))) 1 T1(J)=T1(J)*1.25 IF(OLDT1(J)*T1(J).LT.0.)T1(J)=T1(J)*.5 GO TO 62 6262 T1(J)=T1(J)*.5 62 OLDT1(J)=T1(J) C 61 T(J)=T(J)+T1(J) 61 CONTINUE C C(((((((((((((((((((((((( C C DETERMINE RHOX CORRECTION TO MAINTAIN CONSTANT TAUROS DO 501 J=1,NRHOX TPLUS(J)=T(J)+T1(J) 501 TAUSTD(J)=10.**(TAU1LG+DFLOAT(J-1)*STEPLG) IF(TAUROS(1).GT.TAUSTD(1))THEN TAUROS(1)=TAUSTD(1) RHOXSTD=MIN(TAUSTD(1)/ABROSS(1),RHOX(1)) P(1)=RHOXSTD/RHOX(1)*P(1) PRAD(1)=RHOXSTD/RHOX(1)*PRAD(1) XNE(1)=RHOXSTD/RHOX(1)*XNE(1) RHOX(1)=RHOXSTD ENDIF IDUM=MAP1(TAUROS,T,NRHOX,TAUSTD,TNEW1,NRHOX) IDUM=MAP1(TAUROS,PRAD,NRHOX,TAUSTD,PRDNEW,NRHOX) CALL TTAUP(TNEW1,TAUSTD,AB1,PTOT1,P1,PRDNEW,PTURB, 1VTURB,GRAV,NRHOX) IDUM=MAP1(TAUROS,TPLUS,NRHOX,TAUSTD,TNEW2,NRHOX) CALL TTAUP(TNEW2,TAUSTD,AB2,PTOT2,P2,PRDNEW,PTURB, 1VTURB,GRAV,NRHOX) DO 503 J=1,NRHOX C PPP=(RHOX2-RHOX1)/RHOX1 503 PPP(J)=(PTOT2(J)-PTOT1(J))/PTOT1(J) IDUM=MAP1(TAUSTD,PPP,NRHOX,TAUROS,RRR,NRHOX) DO 505 J=1,NRHOX 505 DRHOX(J)=RRR(J)*RHOX(J) DRHOX(1)=0. DRHOX(2)=0. DRHOX(3)=0. DRHOX(4)=DRHOX(4)/16. DRHOX(5)=DRHOX(5)/8. DRHOX(6)=DRHOX(6)/4. DRHOX(7)=DRHOX(7)/2. C)))))))))))))))))))))))) C DO 65 J=1,NRHOX 65 T(J)=T(J)+T1(J) C SMOOTH TEMPERATURE DISTRIBUTION IF(J1SMOOTH.GT.0)THEN DO 3001 J=J1SMOOTH,J2SMOOTH 3001 TSMOOTH(J)=WTJM1*T(J-1)+WTJ*T(J)+WTJP1*T(J+1) DO 3002 J=J1SMOOTH,J2SMOOTH 3002 T(J)=TSMOOTH(J) ENDIF C FORCE MONOTONICITY DO 6050 I=2,NRHOX J=NRHOX+1-I T(J)=MIN(T(J),T(J+1)-1.) 6050 CONTINUE cC MINIMUM TEMPERATURE c DO 6051 J=1,NRHOX c T(J)=MAX(T(J),2089.0D0) c 6051 CONTINUE C CC FUDGES TO MAKE UP FOR BAD STARTING GUESSES C(((((((((((((((((((((((( IFUDGE=0 C)))))))))))))))))))))))) C IF(IFCONV.EQ.1)GO TO 71 C IF(ITER.GT.1)GO TO 80 C IF(FLXERR(NRHOX).LT.90..AND.FLXERR(NRHOX).GT.-50.)GO TO 80 C DO 70 J=1,NRHOX C 70 T(J)=TEFF*(.75*(.710+TAUROS(J)-.1331*EXP(-3.4488*TAUROS(J))))**.25 CC(((((((((((((((((((((((( C IFUDGE=1 CC)))))))))))))))))))))))) C GO TO 80 C 71 DO 72 J=1,NRHOX C IF(FLXERR(J).GT.1000.)GO TO 73 C 72 CONTINUE C GO TO 80 C 73 DO 74 J=1,NRHOX C GRDEFF(J)=(FLXRAD(J)*DLTDLP(J)+FLXCNV(J)*GRDADB(J))/(FLXRAD(J)+ C 1FLXCNV(J)) C IF(FLXCNV(J).GT.0.)GRDEFF(J)=DMAX1(GRDEFF(J),(1.+DLTDLP(J))/3.) C 74 RHOXL(J)=DLOG(RHOX(J)) CC CALL INTEG(RHOXL,GRDEFF,TLOG,NRHOX) C CALL INTEG(RHOXL,GRDEFF,TLOG,NRHOX,0.D0) C DO 75 JSTART=1,NRHOX C IF(FLXCNV(JSTART).GT.0.)GO TO 76 C 75 CONTINUE C GO TO 80 C 76 DO 77 J=JSTART,NRHOX C 77 T(J)=T(J-1)*EXP(TLOG(J)-TLOG(J-1)) CC(((((((((((((((((((((((( C IFUDGE=1 CC)))))))))))))))))))))))) 80 DO 81 J=1,NRHOX TK(J)=1.38054E-16*T(J) HKT(J)=6.6256E-27/TK(J) HCKT(J)=HKT(J)*2.99792458E10 TKEV(J)=8.6171E-5*T(J) 81 TLOG(J)=DLOG(T(J)) C(((((((((((((((((((((((( IF(IFUDGE.EQ.1)RETURN C CHANGE RHOX TO MAINTAIN CONSTANT TAUROS DO 91 J=1,NRHOX 91 RHOX(J)=RHOX(J)+DRHOX(J) C)))))))))))))))))))))))) IDUM=MAP1(TAUROS,RHOX,NRHOX,TAUSTD,DUM1,NRHOX) IDUM=MAP1(TAUROS,T,NRHOX,TAUSTD,DUM2,NRHOX) IDUM=MAP1(TAUROS,P,NRHOX,TAUSTD,DUM3,NRHOX) IDUM=MAP1(TAUROS,XNE,NRHOX,TAUSTD,DUM4,NRHOX) IDUM=MAP1(TAUROS,ABROSS,NRHOX,TAUSTD,DUM5,NRHOX) IDUM=MAP1(TAUROS,PRAD,NRHOX,TAUSTD,DUM6,NRHOX) IDUM=MAP1(TAUROS,VTURB,NRHOX,TAUSTD,DUM7,NRHOX) IDUM=MAP1(TAUROS,BMIN,NRHOX,TAUSTD,DUM8,NRHOX) DO 2702 J=1,NRHOX RHOX(J)=DUM1(J) T(J)=DUM2(J) TK(J)=1.38054E-16*T(J) HKT(J)=6.6256E-27/TK(J) HCKT(J)=HKT(J)*2.99792458E10 TKEV(J)=8.6171E-5*T(J) TLOG(J)=DLOG(T(J)) P(J)=DUM3(J) XNE(J)=DUM4(J) ABROSS(J)=DUM5(J) PRAD(J)=DUM6(J) PRADK(J)=PRAD(J)+PRADK0 VTURB(J)=DUM7(J) 2702 BMIN(J)=DUM8(J) DO 2704 I=1,6 IDUM=MAP1(TAUROS,BHYD(1,I),NRHOX,TAUSTD,DUM1,NRHOX) DO 2703 J=1,NRHOX 2703 BHYD(J,I)=DUM1(J) 2704 CONTINUE DO 2705 J=1,NRHOX 2705 TAUROS(J)=TAUSTD(J) RETURN END SUBROUTINE STATEQ(MODE,RCOWT) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) C THE BOUND-BOUND COLLISION RATES WERE DERIVED FROM AN ANALYTIC FIT C TO THE CROSS SECTION CALCULATIONS OF BURKE,ORMONDE AND WHITAKER, C PROC. PHYS. SOC., 1968, VOL 92, 319 C C THE CROSS SECTION USED (IN UNITS OF PI*A0**2) IS C C QIJ = 4*FIJ*(EH/E0)**2*(LOG(E/E0)/(E/E0)+.148 /(E/E0)**6) C C FIJ = OSCILLATOR STRENGTH C EH = GROUND STATE BINDING ENERGY C E0 = THRESHOLD ENERGY C D M PETERSON MAY 1968 COMMON /DEPART/BHYD(kw,6),BMIN(kw),NLTEON COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /ITER/ ITER,IFPRNT(60),IFPNCH(60),NUMITS COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TAUSHJ/TAUNU(kw),SNU(kw),HNU(kw),JNU(kw),JMINS(kw) REAL*8 JNU,JMINS COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) DIMENSION QRADIK(kw,6),QRADKI(kw,6),QRDHMK(kw),QRDKHM(kw) DIMENSION DQRAD(kw,6),DQRD(kw),TOLD(kw) DIMENSION HCONT(6),DUMMY(6) DIMENSION A(6,6),RIGHT(6),QCOLL(8,8) EQUIVALENCE (A(1),TAUNU(1)),(QCOLL(1),HNU(1)),(HCONT(1),DUMMY(1)) DIMENSION F(8,8) DATA F/8*0.,.4162,7*0.,.07910,.6408,6*0.,.02899,.1193,.8420,5*0., 1.01394,.04467,.1506,1.038,4*0.,.007800,.02209,.05585,.1794,1.231, 23*0.,.004814,.01271,.02768,.06551,.2070,1.425,2*0.,.003184,.008037 3,.01604,.03229,.07455,.2340,1.615,0./ GO TO(10,20,30),MODE C ERASE FREQUENCY INTEGRALS 10 DO 11 I=1,6 DO 11 J=1,NRHOX TOLD(J)=T(J) QRDHMK(J)=0. QRDKHM(J)=0. DQRD(J)=0. DQRAD(J,I)=0. QRADKI(J,I)=0. 11 QRADIK(J,I)=0. RETURN C FREQUENCY INTEGRALS 20 RFRWT=12.5664/6.6256E-27*RCOWT/FREQ HVC=2.*6.6256E-27*FREQ*(FREQ/2.99792458E10)**2 DO 21 N=2,6 21 HCONT(N)=COULX(N,FREQ,1.D0) HMINBF=0. IF(FREQ.GT.1.8259E14.AND.FREQ.LT.2.111E14)HMINBF= 1 3.695E-16+(-1.251E-1+1.052E13/FREQ)/FREQ IF(FREQ.GE.2.111E14)HMINBF=6.801E-20+(5.358E-3+(1.481E13+ 1(-5.519E27+4.808E41/FREQ)/FREQ)/FREQ)/FREQ DO 25 J=1,NRHOX RJ=RFRWT*JNU(J) RJE=RFRWT*EHVKT(J)*(JNU(J)+HVC) RJEDT=RJE*HKT(J)*FREQ/T(J) DO 26 I=2,6 QRADIK(J,I)=QRADIK(J,I)+HCONT(I)*RJ DQRAD(J,I)=DQRAD(J,I)+HCONT(I)*RJEDT 26 QRADKI(J,I)=QRADKI(J,I)+HCONT(I)*RJE QRDHMK(J)=QRDHMK(J)+HMINBF*RJ DQRD(J)=DQRD(J)+HMINBF*RJEDT 25 QRDKHM(J)=QRDKHM(J)+HMINBF*RJE RETURN C 30 IF(IFPRNT(ITER).GT.0)WRITE(6,201) 201 FORMAT(1H1/////36X30HHMINUS STATISTICAL EQUILIBRIUM/10X4HRHOX, 1 7X6HQELECT,6X6HQASSOC,6X6HQCHARG,6X6HQRDKHM,6X6HQRDHMK,7X4HBMIN) DO 210 J=1,NRHOX DT=T(J)-TOLD(J) THETA=5040./T(J) QELECT=10.**(-8.7)*THETA**(1.5)*XNE(J) QASSOC=10.**(-8.7)*2.*BHYD(J,1)*XNFP(J,1) QCHARG=10.**(-7.4)*THETA**.333333*XNFP(J,2) QRDKHM(J)=QRDKHM(J)+DQRD(J)*DT BMIN(J)=(QRDKHM(J)+QELECT+QASSOC+QCHARG)/ 1(QRDHMK(J)+QELECT+QASSOC+QCHARG) 210 WRITE(6,211)J,RHOX(J),QELECT,QASSOC,QCHARG,QRDKHM(J), 1QRDHMK(J),BMIN(J) 211 FORMAT(I5,1P6E12.3,0PF10.4) C IF(IFPRNT(ITER).GT.0)WRITE(6,31) 31 FORMAT(1H1/////30X83HSTATISTICAL EQUILIBRIUM RATES RATE=SIGN(AL 1OG10(DMAX1(ABS(RATE*1.E20),1.)),RATE) / 2132H0 RAD 1-K K-1 2-K K-2 3-K K-3 4-K K-4 5-K + 3K-5 6-K K-6 COLL 1-K 2-K 3-K 4-K 5-K 6-K 5-8 + 46-8 / 5132H COLL 1-2 1-3 1-4 1-5 1-6 1-7 2-3 2-4 2-5 + 62-6 2-7 3-4 3-5 3-6 3-7 4-5 4-6 4-7 5-6 5-7 + 76-7 ) C DO 120 J=1,NRHOX DT=T(J)-TOLD(J) TH=13.595/TKEV(J) DO 50 I=1,8 Y=I QCOLL(I,I)=2.2E-8*Y**3/SQRT(TH)*EXP(-TH/Y**2)*XNE(J) C QCOLL(I,I) IS THE BOUND FREE RATE IF (I.EQ.8) GO TO 50 I1=I+1 DO 40 K=I1,8 Z=K GIK=1./Y**2-1./Z**2 X0=TH*GIK Q=2.186E-10*F(I,K)/GIK**2*X0*SQRT(T(J))*(EXPI(1,X0)+.148*X0* 2EXPI(5,X0)) QCOLL(I,K)=Q*XNE(J) QCOLL(K,I)=QCOLL(I,K)*(Y/Z)**2*EXP(X0) 40 CONTINUE 50 CONTINUE DO 65 I=1,6 A(I,I)=QRADIK(J,I) QRADKI(J,I)=QRADKI(J,I)+DQRAD(J,I)*DT RIGHT(I)=QRADKI(J,I)+QCOLL(I,I)+QCOLL(I,7)+QCOLL(I,8) DO 55 K=1,8 55 A(I,I)=A(I,I)+QCOLL(I,K) IF (I.EQ.6) GO TO 65 I1=I+1 DO 60 K=I1,6 A(I,K)=-QCOLL(I,K) 60 A(K,I)=-QCOLL(K,I) 65 CONTINUE C CALL SOLVIT(A,6,RIGHT,DUMMY) DO 80 L=1,6 80 BHYD(J,L)=RIGHT(L) IF (IFPRNT(ITER).LE.1) GO TO 120 DO 90 I=1,6 QRADKI(J,I)=SIGN(DLOG10(DMAX1(ABS(QRADKI(J,I)*1.D20),1.D0)), 1QRADKI(J,I)) 90 QRADIK(J,I)=SIGN(DLOG10(DMAX1(ABS(QRADIK(J,I)*1.D20),1.D0)), 1QRADIK(J,I)) DO 95 I=1,8 DO 95 K=1,8 95 QCOLL(I,K)=SIGN(DLOG10(DMAX1(ABS(QCOLL(I,K)*1.D20),1.D0)), 1QCOLL(I,K)) WRITE (6,100) J,(QRADIK(J,I),QRADKI(J,I),I=1,6), 1(QCOLL(I,I),I=1,6),QCOLL(5,8),QCOLL(6,8) 100 FORMAT (1H0I5,12F6.2,6X8F6.2) WRITE (6,110) (QCOLL(1,K),K=2,7),(QCOLL(2,K),K=3,7),(QCOLL(3,K), 1K=4,7),(QCOLL(4,K),K=5,7),(QCOLL(5,K),K=6,7),QCOLL(6,7) 110 FORMAT (6X21F6.2) 120 CONTINUE C 160 WRITE (6,170)(J,RHOX(J),(BHYD(J,I),I=1,6),J=1,NRHOX) 170 FORMAT(1H1/////30X36HSTATISTICAL EQUILIBRIUM FOR HYDROGEN/ 1 15X4HRHOX,10X2HB1,8X2HB2,8X2HB3,8X2HB4,8X2HB5,8X2HB6/ 2(8XI2,1PE11.4,1X0P6F10.4)) C 2(8XI2,0PE11.4,1X0P6F10.4)) C RETURN END SUBROUTINE RADIAP(MODE,RCOWT) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /ABTOT/ABTOT(kw),ALPHA(kw) COMMON /FLUX/ FLUX,FLXERR(kw),FLXDRV(kw),FLXRAD(kw) COMMON /PZERO/PZERO,PCON,PRADK0,PTURB0,KNU(kw),PRADK(kw),RADEN(kw) REAL*8 KNU COMMON /RAD/ACCRAD(kw),PRAD(kw) COMMON /RHOX/RHOX(kw),NRHOX COMMON /TAUSHJ/TAUNU(kw),SNU(kw),HNU(kw),JNU(kw),JMINS(kw) REAL*8 JNU,JMINS DIMENSION H(kw) GO TO (10,20,30),MODE 10 DO 11 J=1,NRHOX H(J)=0. RADEN(J)=0. 11 ACCRAD(J)=0. PRADK0=0. RETURN 20 DO 21 J=1,NRHOX RADEN(J)=RADEN(J)+JNU(J)*RCOWT H(J)=H(J)+HNU(J)*RCOWT 21 ACCRAD(J)=ACCRAD(J)+ABTOT(J)*HNU(J)*RCOWT PRADK0=PRADK0+KNU(1)*RCOWT RETURN 30 ERRORMAX=0. DO 31 J=1,NRHOX RADEN(J)=RADEN(J)*12.5664/2.99792458E10 ACCRAD(J)=ACCRAD(J)*12.5664/2.99792458E10 C FUDGE TO KEEP MODEL FROM BLOWING UP WITH LARGE FLUX ERRORS IF(H(J)/FLUX.GT.1.)ACCRAD(J)=ACCRAD(J)*FLUX/H(J) ERRORMAX=MAX(ERRORMAX,H(J)/FLUX) 31 CONTINUE PRADK0=PRADK0*12.5664/2.99792458E10 IF(ERRORMAX.GT.1.)PRADK0=PRADK0/ERRORMAX C CALL INTEG(RHOX,ACCRAD,PRAD,NRHOX) CALL INTEG(RHOX,ACCRAD,PRAD,NRHOX,ACCRAD(1)*RHOX(1)) DO 32 J=1,NRHOX 32 PRADK(J)=PRAD(J)+PRADK0 RETURN END SUBROUTINE ROSS(MODE,RCOWT) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /ABROSS/ABROSS(kw),TAUROS(kw) COMMON /ABTOT/ABTOT(kw),ALPHA(kw) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /FRESET/WAVESET(30000),RCOSET(30000),NULO,NUHI,NUMNU,NUSTEP COMMON /RHOX/RHOX(kw),NRHOX COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP GO TO(10,20,30),MODE 10 DO 11 J=1,NRHOX 11 ABROSS(J)=0. RETURN 20 DO 21 J=1,NRHOX DBDT=BNU(J)*FREQ*HKT(J)/T(J)/STIM(J) IF(NUMNU.EQ.1)DBDT=(4.*5.6697E-5/3.14159)*T(J)**3 21 ABROSS(J)=ABROSS(J)+DBDT/ABTOT(J)*RCOWT RETURN 30 DO 31 J=1,NRHOX 31 ABROSS(J)=(4.*5.6697E-5/3.14159)*T(J)**3/ABROSS(J) CALL INTEG(RHOX,ABROSS,TAUROS,NRHOX,ABROSS(1)*RHOX(1)) RETURN END SUBROUTINE DERIV(X,F,DFDX,N) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) C ASSUMES THAT ANY ZERO IN X OCCURS AT A ENDPOINT DIMENSION X(1),F(1),DFDX(1) DFDX(1)=(F(2)-F(1))/(X(2)-X(1)) N1=N-1 DFDX(N)=(F(N)-F(N1))/(X(N)-X(N1)) IF(N.EQ.2)RETURN S=ABS(X(2)-X(1))/(X(2)-X(1)) DO 1 J=2,N1 SCALE=DMAX1(ABS(F(J-1)),ABS(F(J)),ABS(F(J+1)))/ABS(X(J)) IF(SCALE.EQ.0.)SCALE=1. D1=(F(J+1)-F(J))/(X(J+1)-X(J))/SCALE D=(F(J)-F(J-1))/(X(J)-X(J-1))/SCALE TAN1=D1/(S*SQRT(1.+D1**2)+1.) TAN=D/(S*SQRT(1.+D**2)+1.) 1 DFDX(J)=(TAN1+TAN)/(1.-TAN1*TAN)*SCALE RETURN END SUBROUTINE INTEG(X,F,FINT,N,START) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) C SUBROUTINE INTEG(X,F,FINT,N) DIMENSION X(1),F(1),FINT(1) DIMENSION A(kw),B(kw),C(kw) CALL PARCOE(F,X,A,B,C,N) FINT(1)=START C FINT(1)=(A(1)+(B(1)/2.+C(1)/3.*X(1))*X(1))*X(1) C FINT(2)=(A(1)+(B(1)/2.+C(1)/3.*X(2))*X(2))*X(2) C IF(N.EQ.2)RETURN N1=N-1 C DO 10 I=2,N1 DO 10 I=1,N1 10 FINT(I+1)=FINT(I)+(A(I)+B(I)/2.*(X(I+1)+X(I))+ 1C(I)/3.*((X(I+1)+X(I))*X(I+1)+X(I)*X(I)))*(X(I+1)-X(I)) RETURN END SUBROUTINE PARCOE(F,X,A,B,C,N) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) DIMENSION F(1),X(1),A(1),B(1),C(1) C(1)=0. B(1)=(F(2)-F(1))/(X(2)-X(1)) A(1)=F(1)-X(1)*B(1) N1=N-1 C(N)=0. B(N)=(F(N)-F(N1))/(X(N)-X(N1)) A(N)=F(N)-X(N)*B(N) IF(N.EQ.2)RETURN DO 1 J=2,N1 J1=J-1 D=(F(J)-F(J1))/(X(J)-X(J1)) C(J)=F(J+1)/((X(J+1)-X(J))*(X(J+1)-X(J1)))-F(J)/((X(J)-X(J1))* 1(X(J+1)-X(J)))+F(J1)/((X(J)-X(J1))*(X(J+1)-X(J1))) B(J)=D-(X(J)+X(J1))*C(J) 1 A(J)=F(J1)-X(J1)*D+X(J)*X(J1)*C(J) C(2)=0. B(2)=(F(3)-F(2))/(X(3)-X(2)) A(2)=F(2)-X(2)*B(2) C(3)=0. B(3)=(F(4)-F(3))/(X(4)-X(3)) A(3)=F(3)-X(3)*B(3) DO 2 J=2,N1 IF(C(J).EQ.0.)GO TO 2 J1=J+1 WT=ABS(C(J1))/(ABS(C(J1))+ABS(C(J))) A(J)=A(J1)+WT*(A(J)-A(J1)) B(J)=B(J1)+WT*(B(J)-B(J1)) C(J)=C(J1)+WT*(C(J)-C(J1)) 2 CONTINUE A(N1)=A(N) B(N1)=B(N) C(N1)=C(N) RETURN END FUNCTION MAP1(XOLD,FOLD,NOLD,XNEW,FNEW,NNEW) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) DIMENSION XOLD(1),FOLD(1),XNEW(1),FNEW(1) L=2 LL=0 DO 50 K=1,NNEW 10 IF(XNEW(K).LT.XOLD(L))GO TO 20 L=L+1 IF(L.GT.NOLD)GO TO 30 GO TO 10 20 IF(L.EQ.LL)GO TO 50 IF(L.EQ.2)GO TO 30 IF(L.EQ.3)GO TO 30 L1=L-1 IF(L.GT.LL+1.OR.L.EQ.3)GO TO 21 IF(L.GT.LL+1.OR.L.EQ.4)GO TO 21 CBAC=CFOR BBAC=BFOR ABAC=AFOR IF(L.EQ.NOLD)GO TO 22 GO TO 25 21 L2=L-2 D=(FOLD(L1)-FOLD(L2))/(XOLD(L1)-XOLD(L2)) CBAC=FOLD(L)/((XOLD(L)-XOLD(L1))*(XOLD(L)-XOLD(L2)))+ 1(FOLD(L2)/(XOLD(L)-XOLD(L2))-FOLD(L1)/(XOLD(L)-XOLD(L1)))/ 2(XOLD(L1)-XOLD(L2)) BBAC=D-(XOLD(L1)+XOLD(L2))*CBAC ABAC=FOLD(L2)-XOLD(L2)*D+XOLD(L1)*XOLD(L2)*CBAC IF(L.LT.NOLD)GO TO 25 22 C=CBAC B=BBAC A=ABAC LL=L GO TO 50 25 D=(FOLD(L)-FOLD(L1))/(XOLD(L)-XOLD(L1)) CFOR=FOLD(L+1)/((XOLD(L+1)-XOLD(L))*(XOLD(L+1)-XOLD(L1)))+ 1(FOLD(L1)/(XOLD(L+1)-XOLD(L1))-FOLD(L)/(XOLD(L+1)-XOLD(L)))/ 2(XOLD(L)-XOLD(L1)) BFOR=D-(XOLD(L)+XOLD(L1))*CFOR AFOR=FOLD(L1)-XOLD(L1)*D+XOLD(L)*XOLD(L1)*CFOR WT=0. IF(ABS(CFOR).NE.0.)WT=ABS(CFOR)/(ABS(CFOR)+ABS(CBAC)) A=AFOR+WT*(ABAC-AFOR) B=BFOR+WT*(BBAC-BFOR) C=CFOR+WT*(CBAC-CFOR) LL=L GO TO 50 30 IF(L.EQ.LL)GO TO 50 L=MIN0(NOLD,L) C=0. B=(FOLD(L)-FOLD(L-1))/(XOLD(L)-XOLD(L-1)) A=FOLD(L)-XOLD(L)*B LL=L 50 FNEW(K)=A+(B+C*XNEW(K))*XNEW(K) MAP1=LL-1 RETURN END SUBROUTINE SOLVIT(A,N,B,IPIVOT) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) C SOLVES LINEAR EQUATIONS C A IS A COMPLETELY FILLED N BY N ARRAY THAT IS DESTROYED C B IS THE RIGHT SIDE VECTOR OF LENGTH N AND RETURNS AS THE SOLUTION C IPIVOT IS A SCRATCH AREA OF LENGTH N DIMENSION A(N,N),B(N),IPIVOT(N) EQUIVALENCE (T,PIVOT,C) N1=N-1 DO 70 I=1,N1 M=I I1=I+1 DO 20 K=I1,N 20 IF(ABS(A(K,I)).GT.ABS(A(M,I)))M=K IPIVOT(I)=M IF(M.EQ.I)GO TO 40 DO 30 K=I1,N T=A(I,K) A(I,K)=A(M,K) 30 A(M,K)=T 40 PIVOT=1./A(M,I) A(M,I)=A(I,I) A(I,I)=PIVOT DO 50 K=I1,N 50 A(K,I)=A(K,I)*PIVOT DO 70 J=I1,N C=A(I,J) IF(C.EQ.0.)GO TO 70 DO 60 K=I1,N 60 A(K,J)=A(K,J)-A(K,I)*C 70 CONTINUE A(N,N)=1./A(N,N) DO 140 I=1,N1 M=IPIVOT(I) IF(M.EQ.I)GO TO 120 T=B(M) B(M)=B(I) B(I)=T 120 C=B(I) C IF(C.EQ.0.)GO TO 140 I1=I+1 DO 130 K=I1,N 130 B(K)=B(K)-A(K,I)*C 140 CONTINUE J1=N DO 160 I=1,N1 J=J1 J1=J1-1 B(J)=B(J)*A(J,J) C=B(J) C IF(C.EQ.0.)GO TO 160 DO 150 K=1,J1 150 B(K)=B(K)-A(K,J)*C 160 CONTINUE B(1)=B(1)*A(1,1) RETURN END SUBROUTINE W(A,B,N) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) DIMENSION B(1) WRITE(6,100)A,(B(I),I=1,N) 100 FORMAT(1H0,A6,1P10E12.4/(7X,10E12.4)) RETURN END FUNCTION ROSSTAB(TEMP,PRESSURE,V) C THE MICTROTURBULENT VELOCITY V IS ASSUMED TO BE CONSTANT C CALL WITH TEMP=0 AFTER COMPUTING ABROSS IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /ABROSS/ABROSS(kw),TAUROS(kw) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /ITER/ ITER,IFPRNT(60),IFPNCH(60),NUMITS COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP C ENOUGH FOR 60 ITERATIONS DIMENSION ROSS(kw*60),TABT(kw*60),TABP(kw*60) DATA NROSS/0/ IF(TEMP.GT.0.)GO TO 20 IF(NROSS.EQ.0)THEN ZEROT=LOG10(T(1)) ZEROP=LOG10(P(1)) SLOPET=LOG10(T(NRHOX))-ZEROT SLOPEP=LOG10(P(NRHOX))-ZEROP ENDIF DO 13 J=1,NRHOX NROSS=NROSS+1 TABT(NROSS)=(LOG10(T(J))-ZEROT)/SLOPET TABP(NROSS)=(LOG10(P(J))-ZEROP)/SLOPEP ROSS(NROSS)=LOG10(ABROSS(J)) 13 PRINT 1313,NROSS,T(J),TABT(NROSS),P(J),TABP(NROSS),ROSS(NROSS) 1313 FORMAT(' ROSS',I5,F10.1,F10.5,1PE12.3,0PF10.5,F10.5) ROSSTAB=0. RETURN 20 TEMPLOG=(LOG10(TEMP)-ZEROT)/SLOPET PRESSLOG=(LOG10(PRESSURE)-ZEROP)/SLOPEP C print 1320,temp,templog,pressure,presslog C1320 format(f10.1,f10.5,1pe12.3,0pf10.5) RMINPLUSPLUS=1.E30 RMINPLUSMINUS=1.E30 RMINMINUSPLUS=1.E30 RMINMINUSMINUS=1.E30 ROSSPLUSPLUS=0. ROSSPLUSMINUS=0. ROSSMINUSPLUS=0. ROSSMINUSMINUS=0. INDEXPLUSPLUS=0 INDEXPLUSMINUS=0 INDEXMINUSPLUS=0 INDEXMINUSMINUS=0 DO 21 I=1,NROSS DP=TABP(I)-PRESSLOG DT=TABT(I)-TEMPLOG RADIUS2=DT**2+DP**2 IF(DT.GE.0..AND.DP.GE.0.)THEN IF(RADIUS2.LT.RMINPLUSPLUS)THEN RMINPLUSPLUS=RADIUS2 ROSSPLUSPLUS=ROSS(I) INDEXPLUSPLUS=I GO TO 21 ENDIF ENDIF IF(DT.GE.0..AND.DP.LT.0.)THEN IF(RADIUS2.LT.RMINPLUSMINUS)THEN RMINPLUSMINUS=RADIUS2 ROSSPLUSMINUS=ROSS(I) INDEXPLUSMINUS=I GO TO 21 ENDIF ENDIF IF(DT.LT.0..AND.DP.GE.0.)THEN IF(RADIUS2.LT.RMINMINUSPLUS)THEN RMINMINUSPLUS=RADIUS2 ROSSMINUSPLUS=ROSS(I) INDEXMINUSPLUS=I GO TO 21 ENDIF ENDIF IF(DT.LT.0..AND.DP.LT.0.)THEN IF(RADIUS2.LT.RMINMINUSMINUS)THEN RMINMINUSMINUS=RADIUS2 ROSSMINUSMINUS=ROSS(I) INDEXMINUSMINUS=I ENDIF ENDIF 21 CONTINUE C print 1351,rminplusplus,rminplusminus,rminminusplus,rminminusminus C1351 FORMAT(1P4E12.3) C print 1352,rossplusplus,rossplusminus,rossminusplus,rossminusminus C1352 format(4f10.5) C print 1353,indexplusplus,indexplusminus,indexminusplus, C 1indexminusminus C1353 format(4i10) IF(INDEXPLUSPLUS.EQ.0)GO TO 30 IF(INDEXPLUSMINUS.EQ.0)GO TO 30 IF(INDEXMINUSPLUS.EQ.0)GO TO 30 IF(INDEXMINUSMINUS.EQ.0)GO TO 30 TPP=TABT(INDEXPLUSPLUS) PPP=TABP(INDEXPLUSPLUS) RPP=ROSS(INDEXPLUSPLUS) TPM=TABT(INDEXPLUSMINUS) PPM=TABP(INDEXPLUSMINUS) RPM=ROSS(INDEXPLUSMINUS) TMP=TABT(INDEXMINUSPLUS) PMP=TABP(INDEXMINUSPLUS) RMP=ROSS(INDEXMINUSPLUS) TMM=TABT(INDEXMINUSMINUS) PMM=TABP(INDEXMINUSMINUS) RMM=ROSS(INDEXMINUSMINUS) RPPMP=((TEMPLOG-TMP)*RPP+(TPP-TEMPLOG)*RMP)/(TPP-TMP) RPMMM=((TEMPLOG-TMM)*RPM+(TPM-TEMPLOG)*RMM)/(TPM-TMM) PPPMP=((TEMPLOG-TMP)*PPP+(TPP-TEMPLOG)*PMP)/(TPP-TMP) PPMMM=((TEMPLOG-TMM)*PPM+(TPM-TEMPLOG)*PMM)/(TPM-TMM) R=((PRESSLOG-PPMMM)*RPPMP+(PPPMP-PRESSLOG)*RPMMM)/(PPPMP-PPMMM) C PRINT *,R ROSSTAB=10.**R RETURN 30 RMINPLUSPLUS=SQRT(RMINPLUSPLUS)+.00001 RMINPLUSMINUS=SQRT(RMINPLUSMINUS)+.00001 RMINMINUSPLUS=SQRT(RMINMINUSPLUS)+.00001 RMINMINUSMINUS=SQRT(RMINMINUSMINUS)+.00001 RWT=(1./RMINPLUSPLUS+ 1 1./RMINPLUSMINUS+ 2 1./RMINMINUSPLUS+ 3 1./RMINMINUSMINUS) R=(ROSS(MAX(1,INDEXPLUSPLUS))/RMINPLUSPLUS+ 1 ROSS(MAX(1,INDEXPLUSMINUS))/RMINPLUSMINUS+ 2 ROSS(MAX(1,INDEXMINUSPLUS))/RMINMINUSPLUS+ 3 ROSS(MAX(1,INDEXMINUSMINUS))/RMINMINUSMINUS)/RWT C PRINT *,R ROSSTAB=10.**R RETURN END SUBROUTINE TTAUP(T,TAU,ABSTD,PTOTAL,P,PRAD,PTURB,VTURB, 1GRAV,NUMTAU) IMPLICIT REAL*8 (A-H,O-Z) C TAUS MUST HAVE LOG SPACING C ASSUMES PTOTAL=PRAD=PTURB=0 WHEN RHOX=0 DIMENSION T(1),TAU(1),ABSTD(1),PTOTAL(1),P(1),PRAD(1),PTURB(1) DIMENSION VTURB(1) DLGTAU=DLOG(TAU(2)/TAU(1)) PLOG3=0. PLOG2=0. PLOG1=0. DPLOG2=0. DPLOG1=0. C ASSUME CONSTANT OPACITY NEAR SURFACE. FIRST GUESS=.1 ABSTD(1)=.1 IF(PRAD(1).GT.0.)ABSTD(1)=DMIN1(.1D0,GRAV*TAU(1)/PRAD(1)/2.) C TO FIX PROBLEM WITH TEMPERATURE DROP AT FIRST POINT C T1=T(1) C T(1)=T(2) DO 22 J=1,NUMTAU IF(J.EQ.1)PLOG=DLOG(GRAV/ABSTD(1)*TAU(1)) IF(J.GT.1.AND.J.LE.4)PLOG=PLOG1+DPLOG1 IF(J.GT.4)PLOG=(3.*PLOG4+8.*DPLOG1-4.*DPLOG2+8.*DPLOG3)/3. ERROR=1. N=1 GO TO 21 20 IF(J.EQ.1)PNEW=DLOG(GRAV/ABSTD(1)*TAU(1)) IF(J.GT.1.AND.J.LE.4)PNEW=(PLOG+2.*PLOG1+DPLOG+DPLOG1)/3. IF(J.GT.4)PNEW=(126.*PLOG1-14.*PLOG3+9.*PLOG4+42.*DPLOG+ 1 108.*DPLOG1-54.*DPLOG2+24.*DPLOG3)/121. ERROR=ABS(PNEW-PLOG) PLOG=(PNEW+PLOG)/2. 21 PTOTAL(J)=EXP(PLOG) C P(J)=PTOTAL(J)-PRAD(J)-PTURB(J) P(J)=PTOTAL(J)+(PRAD(1)-PRAD(J))-PTURB(J) IF(P(J).LE.0.)GO TO 25 ABSTD(J)=ROSSTAB(T(J),P(J),VTURB(J)) DPLOG=GRAV/ABSTD(J)*TAU(J)/PTOTAL(J)*DLGTAU N=N+1 C IF(N.GT.1000)GO TO 25 IF(N.GT.1000)GO TO 2200 IF(ERROR.GT..00005)GO TO 20 2200 CONTINUE PLOG4=PLOG3 PLOG3=PLOG2 PLOG2=PLOG1 PLOG1=PLOG DPLOG3=DPLOG2 DPLOG2=DPLOG1 DPLOG1=DPLOG 22 CONTINUE C T(1)=T1 RETURN 25 CONTINUE CALL W(6HJ ,DFLOAT(J),1) CALL W(6HP ,P,J) CALL W(6HPTOTAL,PTOTAL,J) CALL W(6HPRAD ,PRAD,J) CALL W(6HPTURB ,PTURB,J) CALL W(6HABSTD ,ABSTD,J) CALL W(6HERROR ,ERROR,1) CALL EXIT END SUBROUTINE BLOCKE IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /ELEM/ABUND(99),ATMASS(99),YABUND(99),ELEM(99) CHARACTER*2 ELEM COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) C Grevesse,N. and Anders, E. 1988. presented at the workshop C on the "Solar Interior and Atmosphere", Tucson, Nov 15-18. C Anders, E. and Grevesse, N. 1989 Geochimica et Cosmochimica Acta, C vol. 53, pp. 197-214. C H has been defined to be -.04 instead of 12 so that the sum is 1. C 1H 2HE DATA ABUND/ 0.911,0.089, C 3Li 4Be 5B 6C 7N 8O 9F 10Ne 1-10.88,-10.89, -9.44, -3.48, -3.99, -3.11, -7.48, -3.95, C 11NA 12MG 13AL 14SI 15P 16S 17CL 18AR 2 -5.71, -4.46, -5.57, -4.49, -6.59, -4.83, -6.54, -5.48, C 19K 20CA 21SC 22TI 23V 24CR 25MN 26FE 3 -6.92, -5.68, -8.94, -7.05, -8.04, -6.37, -6.65, -4.37, C 27CO 28NI 29CU 30ZN 31GA 33GE 33AS 34SE 4 -7.12, -5.79, -7.83, -7.44, -9.16, -8.63, -9.67, -8.69, C 35BR 36KR 37RB 38SR 39Y 40ZR 41NB 42MO 5 -9.41, -8.81, -9.44, -9.14, -9.80, -9.44,-10.62,-10.12, C 43TC 44RU 45RH 46PD 47AG 48CD 49IN 50SN 6-20.00,-10.20,-10.92,-10.35,-11.10,-10.18,-10.38,-10.04, C 51SB 52TE 53I 54XE 55CS 56BA 57LA 58CE 7-11.04, -9.80,-10.53, -9.81,-10.92, -9.91,-10.82,-10.49, C 59PR 60ND 61PM 62SM 63EU 64GD 65TB 66DY 8-11.33,-10.54,-20.00,-11.04,-11.53,-10.92,-12.14,-10.94, C 67HO 68ER 69TM 70YB 71LU 72HF 73TA 74W 9-11.78,-11.11,-12.04,-10.96,-11.28,-11.16,-11.91,-10.93, C 75RE 76OS 77IR 78PT 79AU 80HG 81TL 82PB T-11.77,-10.59,-10.69,-10.24,-11.03,-10.95,-11.14,-10.19, C 83BI 84PO 85AT 86RN 87FR 88RA 89AC 90TH 1-11.33,-20.00,-20.00,-20.00,-20.00,-20.00,-20.00,-11.92, C 91PA 92U 93NP 94PU 95AM 96CM 97BK 98CF 99ES 2-20.00,-12.51,-20.00,-20.00,-20.00,-20.00,-20.00,-20.00,-20.00/ DATA ATMASS/ 1.008,4.003, 1 6.939,9.013,10.81,12.01,14.01,16.00,19.00,20.18,22.99,24.31, 2 26.98,28.09,30.98,32.07,35.45,39.95,39.10,40.08,44.96,47.90, 3 50.94,52.00,54.94,55.85,58.94,58.71,63.55,65.37,69.72,72.60, 4 74.92,78.96,79.91,83.80,85.48,87.63,88.91,91.22,92.91,95.95, 5 99.00,101.1,102.9,106.4,107.9,112.4,114.8,118.7,121.8,127.6, 6 126.9,131.3,132.9,137.4,138.9,140.1,140.9,144.3,147.0,150.4, 7 152.0,157.3,158.9,162.5,164.9,167.3,168.9,173.0,175.0,178.5, 8 181.0,183.9,186.3,190.2,192.2,195.1,197.0,200.6,204.4,207.2, 9 209.0,210.0,211.0,222.0,223.0,226.1,227.1,232.0,231.0,238.0, T 237.0,244.0,243.0,247.0,247.0,251.0,254.0/ DATA ELEM/ 'H ', 'He', 1 'Li', 'Be', 'B ', 'C ', 'N ', 'O ', 'F ', 'Ne', 'Na', 'Mg', 2 'Al', 'Si', 'P ', 'S ', 'Cl', 'Ar', 'K ', 'Ca', 'Sc', 'Ti', 3 'V ', 'Cr', 'Mn', 'Fe', 'Co', 'Ni', 'Cu', 'Zn', 'Ga', 'Ge', 4 'As', 'Se', 'Br', 'Kr', 'Rb', 'Sr', 'Y ', 'Zr', 'Nb', 'Mo', 5 'Tc', 'Ru', 'Rh', 'Pd', 'Ag', 'Cd', 'In', 'Sn', 'Sb', 'Te', 6 'I ', 'Xe', 'Cs', 'Ba', 'La', 'Ce', 'Pr', 'Nd', 'Pm', 'Sm', 7 'Eu', 'Gd', 'Tb', 'Dy', 'Ho', 'Er', 'Tm', 'Yb', 'Lu', 'Hf', 8 'Ta', 'W ', 'Re', 'Os', 'Ir', 'Pt', 'Au', 'Hg', 'Tl', 'Pb', 9 'Bi', 'Po', 'At', 'Rn', 'Fr', 'Ra', 'Ac', 'Th', 'Pa', 'U ', T 'NP', 'Pu', 'Am', 'Cm', 'Bk', 'Cf', 'Es'/ DATA XRELATIVE/99*0./ RETURN END SUBROUTINE BLOCKR IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /CONV/DLTDLP(kw),HEATCP(kw),DLRDLT(kw),VELSND(kw), 1 GRDADB(kw),HSCALE(kw),FLXCNV(kw),VCONV(kw),MIXLTH, 2 OVERWT,FLXCNV0(kw),FLXCNV1(kw),IFCONV REAL*8 MIXLTH COMMON /DEPART/BHYD(kw,6),BMIN(kw),NLTEON COMMON /FLUX/ FLUX,FLXERR(kw),FLXDRV(kw),FLXRAD(kw) COMMON /FRESET/WAVESET(30000),RCOSET(30000),NULO,NUHI,NUMNU,NUSTEP COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,IFMOL,IFREADLINES COMMON /IFOP/IFOP(20) COMMON /ITER/ ITER,IFPRNT(60),IFPNCH(60),NUMITS COMMON /JUNK/TITLE(74),FREQID(6),WLTE,XSCALE,INPUTDATA COMMON /MUS/ANGLE(20),SURFI(20),NMU COMMON /RAD/ACCRAD(kw),PRAD(kw) COMMON /RHOX/RHOX(kw),NRHOX COMMON /TSMOOTH/J1SMOOTH,J2SMOOTH,WTJM1,WTJ,WTJP1,TSMOOTH(kw) COMMON /STEPLG/STEPLG,TAU1LG,KRHOX COMMON /TEFF/TEFF,GRAV,GLOG COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, 1 IFTURB COMMON /WAVEY/WBEGIN,DELTAW,IFWAVE DATA DLTDLP,HEATCP,DLRDLT,VELSND,GRDADB,HSCALE,FLXCNV,VCONV/ 1 kw*0.,kw*0.,kw*0.,kw*0.,kw*0.,kw*0.,kw*0.,kw*0./ DATA IFCONV,MIXLTH,OVERWT/0,1.,1./ DATA BHYD,BMIN/kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1.,kw*1./ DATA NLTEON/0/ DATA FLUX/0./ DATA FLXERR,FLXDRV/kw*0.,kw*0./ DATA NUMNU/0/ DATA IFCORR,IFPRES,IFSURF,IFSCAT,IFMOL,IFREADLINES/1,1,0,1,0,0/ DATA IFOP/1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,0,0,0,0,0/ DATA IFPRNT/60*2/ DATA IFPNCH/60*0/ DATA NUMITS/0/ C DATA TITLE/74*1H / DATA TITLE/74*8H / DATA WLTE/4HLTE / DATA XSCALE/1./ DATA SURFI/20*0./,NMU/1/ DATA ACCRAD/kw*0./,PRAD/kw*0./ DATA STEPLG/.125/ DATA TAU1LG/-6.875/ C DATA TAU1LG/-5.875/ DATA KRHOX/0/ DATA NRHOX/0/ DATA TEFF/0./ DATA GRAV/0./ DATA VTURB/kw*0./ DATA PTURB/kw*0./ DATA IFTURB,TRBFDG,TRBPOW,TRBSND,TRBCON/0,0.,0.,0.,0./ DATA IFWAVE/0/ DATA J1SMOOTH,J2SMOOTH,WTJM1,WTJ,WTJP1/0,0,.3,.4,.3/ END SUBROUTINE READIN(MODE) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) C MODE=1 COMPUTE A MODEL C MODE=2 READ A PREVIOUSLY CALCULATED MODEL FOR SOME APPLICATION C MODE=20 SAME AS 2 BUT ON ENCOUNTERING END RETURN WITH NRHOX=0 COMMON /ABROSS/ABROSS(kw),TAUROS(kw) COMMON /CONV/DLTDLP(kw),HEATCP(kw),DLRDLT(kw),VELSND(kw), 1 GRDADB(kw),HSCALE(kw),FLXCNV(kw),VCONV(kw),MIXLTH, 2 OVERWT,FLXCNV0(kw),FLXCNV1(kw),IFCONV REAL*8 MIXLTH COMMON /DEPART/BHYD(kw,6),BMIN(kw),NLTEON COMMON /ELEM/ABUND(99),ATMASS(99),YABUND(99),ELEM(99) CHARACTER*2 ELEM COMMON /FILENAME/FILENAME CHARACTER*60 FILENAME COMMON /FLUX/ FLUX,FLXERR(kw),FLXDRV(kw),FLXRAD(kw) COMMON /FREE/WORD(6),NUMCOL,LETCOL,LAST,MORE,IFFAIL,MAXPOW REAL*4 WORD COMMON /FRESET/WAVESET(30000),RCOSET(30000),NULO,NUHI,NUMNU,NUSTEP COMMON /HEIGHT/HEIGHT(kw) COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,IFMOL,IFREADLINES COMMON /IFOP/IFOP(20) COMMON /ITER/ ITER,IFPRNT(60),IFPNCH(60),NUMITS COMMON /JUNK/TITLE(74),FREQID(6),WLTE,XSCALE,INPUTDATA INTEGER*4 ITITLE(148) EQUIVALENCE (ITITLE(1),TITLE(1)) REAL*4 FREQID4(12) EQUIVALENCE (FREQID(1),FREQID4(1)) COMMON /MUS/ANGLE(20),SURFI(20),NMU COMMON /PTOTAL/PTOTAL(kw) COMMON /PZERO/PZERO,PCON,PRADK0,PTURB0,KNU(kw),PRADK(kw),RADEN(kw) REAL*8 KNU COMMON /RAD/ACCRAD(kw),PRAD(kw) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /STEPLG/STEPLG,TAU1LG,KRHOX COMMON/TABTP/TABT(56),TABP(38),TABKAP(56,38,5),PKAP(38), 1TABV(5),PKAPV(5,38),IFTABK,KTAB(56,38,5),NT,NP COMMON /TEFF/TEFF,GRAV,GLOG COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, 1 IFTURB COMMON /WAVEY/WBEGIN,DELTAW,IFWAVE COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) COMMON /TAUSTD/TAUSTD(kw) COMMON /TSMOOTH/J1SMOOTH,J2SMOOTH,WTJM1,WTJ,WTJP1,TSMOOTH(kw) INTEGER CARD(132),CARD81,CCCC(133) EQUIVALENCE (CARD(1),CCCC(1)),(CARD81,CCCC(133)) REAL*8 FRESET(30000) EQUIVALENCE (FRESET(1),WAVESET(1)) DIMENSION RHOXA(kw),DUM1(kw),DUM2(kw),DUM3(kw),DUM4(kw),DUM5(kw) DIMENSION DUM6(kw),DUM7(kw),DUM8(kw) DIMENSION IFOP1(20) C H1,H2PLUS,HMINUS,HRAY,HE1,HE2,HEMINUS,HERAY,COOL,LUKE, C HOT,ELECTRON,H2RAY,HLINES,LINES,LINESCAT,XLINES,XLSCAT,XCONT,XSCAT DATA IFOP1/324,609929997,579591588,429928,11165,11166,564793810, 1 15271257,173061,636997,11527,369467847,16486929,577716835, 2 22965179,849711626,1687220147,1687711471,45152896,45946435/ DATA WWLTE,WWNLTE/4HLTE ,4HNLTE/ DATA BLANK/1H / EXP10(X)=EXP(X*2.30258509299405E0) INPUTDATA=5 C CARD81=BLANK CARD81=(1H ) LAST=133 MAXPOW=38 98 MORE=0 LETCOL=1 99 READ(INPUTDATA,1) CARD 1 FORMAT(132A1) C (M)ACHINE (I)NDEPENDENT (A)LPHAMERIC (C)ODE C BASE 37 A=1, Z=26, 0=27, 9=36 MIAC=IWORDF(CARD) NUMCOL=LETCOL C TEFF 3 IF(MIAC.EQ.1020133)GO TO 100 C GRAVITY IF(MIAC.EQ.519223721)GO TO 200 C OPACITY IF(MIAC.EQ.1070201044)GO TO 300 C KAPPA IF(MIAC.EQ.20688921)GO TO 400 C ITERATIONS IF(MIAC.EQ.661856797)GO TO 500 C MOLECULES IF(MIAC.EQ.930198669)GO TO 600 C CALCULATE IF(MIAC.EQ.210518764)GO TO 700 C ABUNDANCE IF(MIAC.EQ.74175307)GO TO 800 C PRINT IF(MIAC.EQ.30911189)GO TO 900 C PUNCH IF(MIAC.EQ.31069574)GO TO 1000 C READ IF(MIAC.EQ.918640)GO TO 1100 C LTE IF(MIAC.EQ.17173)GO TO 1200 C NLTE IF(MIAC.EQ.726315)GO TO 1300 C BEGIN IF(MIAC.EQ.4011517)GO TO 1500 C SCATTERING IF(MIAC.EQ.1323236444)GO TO 1600 C END IF(MIAC.EQ.7367)GO TO 1700 C TITLE IF(MIAC.EQ.37966926)GO TO 1800 C CONVECTION IF(MIAC.EQ.236883734)GO TO 1900 C TURBULENCE IF(MIAC.EQ.1427151802)GO TO 2000 C CHANGE RHOX IF(MIAC.EQ.223095242)GO TO 2100 C FREQUENCIES IF(MIAC.EQ.450075960)GO TO 2200 C SURFACE IF(MIAC.EQ.1357812572)GO TO 2300 C PRESSURE IF(MIAC.EQ.1143518210)GO TO 2400 C CORRECTION IF(MIAC.EQ.237080870)GO TO 2500 C WAVELENGTH IF(MIAC.EQ.1597906832)GO TO 2600 C SCALE MODEL IF(MIAC.EQ.35762836)GO TO 2700 C CALL IF(MIAC.EQ.153784)GO TO 2800 C VTURB IF(MIAC.EQ.42274019)GO TO 2900 C SMOOTH IF(MIAC.EQ.1342680354)GO TO 3000 C 9000 WRITE(6,2) CARD 2 FORMAT(21H I DO NOT UNDERSTAND /1X,131A1) CALL EXIT 97 LETCOL=MAX0(LETCOL,NUMCOL) MORE=1 MIAC=IWORDF(CARD) IF(IFFAIL.EQ.1)GO TO 98 MORE=0 GO TO 3 C************ 100 TEFF=FREEFF(CARD) FLUX=5.6697E-5/12.5664*TEFF**4 GO TO 97 C************ 200 GRAV=FREEFF(CARD) IF(GRAV.LT.10.)GRAV=EXP10(GRAV) GLOG=DLOG10(GRAV) GO TO 97 C************ 300 MIAC=IWORDF(CARD) C ON IF(MIAC.EQ.569)GO TO 380 C OFF IF(MIAC.EQ.20763)GO TO 390 C IFOP IF(MIAC.EQ.464662)GO TO 370 GO TO 9000 370 NUMCOL=LETCOL DO 371 I=1,20 371 IFOP(I)=FREEFF(CARD) GO TO 98 C ON 380 ISWCH=1 GO TO 391 C OFF 390 ISWCH=0 391 MORE=1 395 MIAC=IWORDF(CARD) IF(IFFAIL.EQ.1)GO TO 97 DO 392 I=1,20 II=I IF(MIAC.EQ.IFOP1(I))GO TO 393 392 CONTINUE GO TO 9000 393 IFOP(II)=ISWCH GO TO 395 C************ 400 GO TO 9000 C************ 500 NUMITS=FREEFF(CARD) DO 501 I=1,15 501 IFPNCH(I)=0 IFPNCH(NUMITS)=1 GO TO 97 C************ 600 MIAC=IWORDF(CARD) C ON IF(MIAC.EQ.569)GO TO 610 C OFF IF(MIAC.EQ.20763)GO TO 620 GO TO 9000 610 IFMOL=1 GO TO 97 620 IFMOL=0 GO TO 97 C************ 700 NRHOX=FREEFF(CARD) TAU1LG=FREEFF(CARD) STEPLG=FREEFF(CARD) DO 701 J=1,NRHOX TAUROS(J)=EXP10(TAU1LG+DFLOAT(J-1)*STEPLG) 701 T(J)=TEFF*(.75*(.710+TAUROS(J)-.1331*EXP(-3.4488*TAUROS(J))))**.25 702 DO 703 J=1,NRHOX XNE(J)=0. PRADK(J)=2.521E-15*DMAX1(T(J)**4,TEFF**4/2.) VTURB(J)=0. 703 PTURB(J)=0. PRADK0=PRADK(1) PCON=0. PTURB0=0. PZERO=PRADK0 DO 704 J=1,NRHOX 704 PRAD(J)=PRADK(J)-PRADK0 CALL TTAUP(T,TAUROS,ABROSS,PTOTAL,P,PRAD,PTURB, 1VTURB,GRAV,NRHOX) DO 705 J=1,NRHOX RHOX(J)=PTOTAL(J)/GRAV 705 PTOTAL(J)=PTOTAL(J)+PZERO GO TO 97 C************ 800 MIAC=IWORDF(CARD) c now C XABUND(IZ)=10.**(ABUND(IZ)+XRELATIVE(IZ)) C eventually C xabundj(j,iz)=10.**(abund(iz)+xrelative(iz))*abunddepth(j.iz) c 27may2005 ATLAS9 abundance scaling per Fiorella Castelli C SCALE (FOR READING IN A SCALED-SOLAR STARTING MODEL) IF(MIAC.EQ.35762836)GO TO 810 C CHANGE (ABUNDANCE BEFORE SCALING BY XRELATIVE, USUALLY SOLAR) IF(MIAC.EQ.223095242)GO TO 820 C ABSOLUTE (FINAL ABUNDANCE, XRELATIVE SET TO 0) IF(MIAC.EQ.74075686)GO TO 830 C RELATIVE (XRELATIVE(IZ) = [IZ] IF ABUND(IZ) IS SOLAR) IF(MIAC.EQ.1258171985)GO TO 840 C TABLE (OF ABUNDANCES AND OFFSETS=XRELATIVE, USUALLY SOLAR AND []) IF(MIAC.EQ.37537060)GO TO 850 GO TO 9000 C SCALE (FOR READING IN A SCALED-SOLAR STARTING MODEL) 810 NUMCOL=LETCOL XSCALE=FREEFF(CARD) IF(XSCALE.GT.0.)XSCALELOG=DLOG10(XSCALE) DO 811 IZ=3,99 811 XRELATIVE(IZ)=XSCALELOG GO TO 97 C CHANGE (ABUNDANCE BEFORE SCALING BY XRELATIVE, USUALLY SOLAR) 820 MORE=1 821 IZ=FREEFF(CARD) IF(IFFAIL.EQ.1)GO TO 98 ABUND(IZ)=FREEFF(CARD) IF(IZ.GT.2.AND.ABUND(IZ).GT.0.)ABUND(IZ)=DLOG10(ABUND(IZ)) GO TO 821 C ABSOLUTE (FINAL ABUNDANCE, XRELATIVE SET TO 0) 830 MORE=1 831 IZ=FREEFF(CARD) IF(IFFAIL.EQ.1)GO TO 98 ABUND(IZ)=FREEFF(CARD) IF(IZ.GT.2.AND.ABUND(IZ).GT.0.)ABUND(IZ)=DLOG10(ABUND(IZ)) XRELATIVE(IZ)=0. GO TO 831 C RELATIVE (XRELATIVE(IZ) = [IZ] IF ABUND(IZ) IS SOLAR) 840 MORE=1 841 IZ=FREEFF(CARD) IF(IFFAIL.EQ.1)GO TO 98 XRELATIVE(IZ)=FREEFF(CARD) GO TO 841 C TABLE (OF ABUNDANCES AND OFFSETS=XRELATIVE, USUALLY SOLAR AND []) 850 READ(INPUTDATA,851)ABUND(1),ABUND(2), 1 (ABUND(IZ),XRELATIVE(IZ),IZ=3,99) 851 FORMAT(7X,F10.6,10X,F10.6/(5(7X,F7.3,F6.3))) DO 852 IZ=3,99 IF(ABUND(IZ).GT.0.)ABUND(IZ)=DLOG10(ABUND(IZ)) 852 CONTINUE XSCALE=1. GO TO 98 C************ 900 DO 901 I=1,NUMITS 901 IFPRNT(I)=FREEFF(CARD) GO TO 97 C************ 1000 DO 1001 I=1,NUMITS 1001 IFPNCH(I)=FREEFF(CARD) GO TO 97 C************ 1100 MIAC=IWORDF(CARD) NUMCOL=LETCOL C FREQUENCIES IF(MIAC.EQ.450075960)GO TO 1110 C DEPARTURE COEFFICIENTS IF(MIAC.EQ.287559136)GO TO 1120 C STARTING T-TAU IF(MIAC.EQ.1355094447)GO TO 1130 C DECK IF(MIAC.EQ.209579)GO TO 1140 C DECK6 IF(MIAC.EQ.7754456)GO TO 1140 C KAPPA IF(MIAC.EQ.20688921)GO TO 1150 C MOLECULES IF(MIAC.EQ.930198669)GO TO 1160 C PUNCH IF(MIAC.EQ.31069574)GO TO 1170 C LINES IF(MIAC.EQ.22965179)GO TO 1180 GO TO 9000 C FREQUENCIES 1110 NUM=FREEFF(CARD) NULO=FREEFF(CARD) NUHI=FREEFF(CARD) NUMNU=NUM LETCOL=NUMCOL NDUMMY=IWORDF(CARD) DO 1111 I=1,6 1111 FREQID4(2*I-1)=WORD(I) NUMCOL=LETCOL DO 1112 I=1,NUMNU NU=FREEFR(CARD) FRESET(NU)=FREEFF(CARD) C PROVISION FOR READING WAVELENGTHS IF(FRESET(NU).LT.1.E7)FRESET(NU)=2.99792458E17/FRESET(NU) C PROVISION FOR READING WAVENUMBERS SCALED BY 1.E25 IF(FRESET(NU).GT.1.E20)FRESET(NU)=FRESET(NU)*(2.99792458E10/1.E25) 1112 RCOSET(NU)=FREEFF(CARD) GO TO 98 C DEPARTURE COEFFICIENTS 1120 NRHOX=FREEFF(CARD) DO 1122 J=1,NRHOX NUMCOL=1 READ(INPUTDATA,1)CARD DUMMY=FREEFF(CARD) DO 1121 I=1,6 1121 BHYD(J,I)=FREEFF(CARD) 1122 BMIN(J)=FREEFF(CARD) WLTE=WWNLTE NLTEON=1 GO TO 98 1130 NRHOX=FREEFF(CARD) DO 1131 J=1,NRHOX NUMCOL=1 READ(INPUTDATA,1)CARD TAUROS(J)=FREEFF(CARD) 1131 T(J)=FREEFF(CARD) IF(TAUROS(1).GT.0.)GO TO 702 DO 1132 J=1,NRHOX 1132 TAUROS(J)=EXP10(TAUROS(J)) GO TO 702 1140 NRHOX=FREEFF(CARD) DO 1141 J=1,NRHOX NUMCOL=1 READ(INPUTDATA,1)CARD RHOX(J)=FREEFF(CARD) T(J)=FREEFF(CARD) MORE=1 P(J)=FREEFF(CARD) XNE(J)=FREEFF(CARD) ABROSS(J)=FREEFF(CARD) C ACTUALLY ACCRAD PRAD(J)=FREEFF(CARD) VTURB(J)=FREEFF(CARD) 1141 MORE=0 IF(RHOX(1).GE.0.)GO TO 1143 DO 1142 J=1,NRHOX 1142 RHOX(J)=EXP10(RHOX(J)) 1143 PRADK0=0. PTURB0=PTURB(1) PCON=0. PZER0=PCON+PRADK0+PTURB0 IF(MIAC.NE.7754456)GO TO 98 READ(INPUTDATA,1)CARD NUMCOL=1 PRADK0=FREEFF(CARD) DO 1144 J=1,NRHOX 1144 ACCRAD(J)=PRAD(J) CALL INTEG(RHOX,ACCRAD,PRAD,NRHOX,ACCRAD(1)*RHOX(1)) DO 1145 J=1,NRHOX 1145 PRADK(J)=PRAD(J)+PRADK0 GO TO 98 1150 OPEN(UNIT=1,SHARED,TYPE='OLD',READONLY) READ(1,1)CARD WRITE(6,1151)CARD 1151 FORMAT(132A1) READ(1,1) DO 1154 IT=1,56 DO 1154 IP=1,38 READ(1,1152)(TABKAP(IT,IP,IV),IV=1,5) 1152 FORMAT(5X,5X,5F7.3) 1154 CONTINUE IFTABK=1 CLOSE(UNIT=1) GO TO 98 1160 CALL READMOL GO TO 98 C READS A FILE THAT HAS BEEN PUNCHED PREVIOUSLY EXCEPT FOR THE BEGIN CARD 1170 WRITE(FILENAME,'(60A1)')(CARD(I),I=LETCOL,70) IF(INDEX(FILENAME,'.').EQ.0)THEN OPEN(UNIT=3,STATUS='OLD',SHARED,READONLY) ELSE DO 1178 I=1,60 IF(FILENAME(I:I).NE.' ')GO TO 1179 1178 CONTINUE 1179 OPEN(UNIT=3,NAME=FILENAME(I:60),STATUS='OLD',SHARED,READONLY) ENDIF INPUTDATA=3 C READ(3,1171) TEFF,GLOG,WLTE,TITLE,IFOP,A,MIXLTH,B,TRBFDG, C 1TRBPOW,TRBSND,TRBCON,XSCALE,(IZ,ABUND(IZ),IZ=1,99) C 1171 FORMAT(5HTEFF ,F7.0,9H GRAVITY,F8.5,1X,A4/6HTITLE ,74A1/ C 1 13H OPACITY IFOP,20I2/ C 2 12H CONVECTION ,A3,F6.2,12H TURBULENCE, A3,4F6.2/ C 3 16HABUNDANCE SCALE ,F9.5,17H ABUNDANCE CHANGE,2(I2,F8.5)/ C 4(17H ABUNDANCE CHANGE,6(I3,F7.2))) C GRAV=10.**GLOG C FLUX=5.6697E-5/12.5664*TEFF**4 C IF(WLTE.EQ.4HLTE )NLTEON=0 C IF(WLTE.EQ.4HNLTE)NLTEON=1 C IF(A.EQ.3HOFF)IFCONV=0 C IF(A.EQ.3HON )IFCONV=1 C IF(B.EQ.3HOFF)IFTURB=0 C IF(B.EQ.3HON )IFTURB=1 C READ(3,1172)NRHOX,(RHOX(J),T(J),P(J),XNE(J),ABROSS(J),ACCRAD(J), C 1VTURB(J),J=1,NRHOX) C 1172 FORMAT(10HREAD DECK6,I3,33H RHOX,T,P,XNE,ABROSS,ACCRAD,VTURB/ C 1(1PE15.8,0PF9.1,1P5E10.3)) C READ(3,1173)PRADK0 C 1173 FORMAT(5HPRADK,1PE11.4) C CALL INTEG(RHOX,ACCRAD,PRAD,NRHOX,ACCRAD(1)*RHOX(1)) C DO 1177 J=1,NRHOX C 1177 PRADK(J)=PRAD(J)+PRADK0 C IF(NLTEON.EQ.1)THEN C READ(3,1174)NRHOX,(RHOX(J),(BHYD(J,I),I=1,6),BMIN(J),J=1,NRHOX) C 1174 FORMAT(27HREAD DEPARTURE COEFFICIENTSI3,21H RHOX BHYD 1-6 BMIN/ C 1(1PE11.4,0P7F9.4)) C ENDIF C READ(3,1175)ITERPUN C 1175 FORMAT(5HBEGIN,20X,10HITERATION I3,10H COMPLETED ) C INQUIRE(3,NAME=FILENAME) C FILENAME=FILENAME(INDEX(FILENAME,']')+1:60) C FILENAME=FILENAME(1:INDEX(FILENAME,'.')-1) C CLOSE(UNIT=3) GO TO 98 1180 IFREADLINES=1 GO TO 98 C************ 1200 NLTEON=0 WLTE=WWLTE DO 1202 J=1,kw DO 1201 I=1,6 1201 BHYD(J,I)=1. 1202 BMIN(J)=1. GO TO 97 C************ 1300 NLTEON=1 WLTE=WWNLTE GO TO 97 C************ 1500 IF(INPUTDATA.EQ.3)THEN CLOSE(UNIT=3) INPUTDATA=5 GO TO 98 ENDIF IF(MODE.NE.1)GO TO 1510 IF(NUMITS.EQ.0)WRITE(6,1501) IF(NRHOX.EQ.0)WRITE(6,1502) IF(TEFF.EQ.0.)WRITE(6,1504) IF(GRAV.EQ.0.)WRITE(6,1505) 1501 FORMAT(20H HOW MANY ITERATIONS) 1502 FORMAT(14H HOW MANY RHOX) 1504 FORMAT(10H WHAT TEFF) 1505 FORMAT(13H WHAT GRAVITY) IF(NUMITS.EQ.0)CALL EXIT IF(NRHOX.EQ.0)CALL EXIT IF(TEFF.EQ.0.)CALL EXIT IF(GRAV.EQ.0.)CALL EXIT 1510 CONTINUE IF(ABUND(1).LT.0.)ABUND(1)=10.**ABUND(1) IF(ABUND(2).LT.0.)ABUND(2)=10.**ABUND(2) DO 1511 IZ=3,99 IF(ABUND(IZ).GT.0.)ABUND(IZ)=DLOG10(ABUND(IZ)) 1511 CONTINUE WRITE(6,1512)TEFF,GLOG,WLTE,TITLE,ELEM(1),ABUND(1), 1ELEM(2),ABUND(2),(IZ,ELEM(IZ),ABUND(IZ),XRELATIVE(IZ),IZ=3,99) 1512 FORMAT(1H1/////5H TEFF,F7.0,8H LOG G,F8.4,3X,A4/ 17H0TITLE ,74A1/' 1',A2,F10.6,' 2',A2,F10.6/ 2(5(I5,A2,F7.3,F6.3))) DO 1514 J=1,NRHOX DO 1513 IZ=3,99 1513 XABUND(J,IZ)=10.**(ABUND(IZ)+XRELATIVE(IZ)) XABUND(J,1)=ABUND(1) XABUND(J,2)=ABUND(2) WTMOLE(J)=0. DO 1514 IZ=1,99 1514 WTMOLE(J)=WTMOLE(J)+XABUND(J,IZ)*ATMASS(IZ) YABUND(1)=ABUND(1) YABUND(2)=ABUND(2) DO 1515 IZ=3,99 1515 YABUND(IZ)=ABUND(IZ)+XRELATIVE(IZ) DO 1516 J=1,NRHOX TK(J)=1.38054E-16*T(J) HKT(J)=6.6256E-27/TK(J) HCKT(J)=HKT(J)*2.99792458E10 TKEV(J)=8.6171E-5*T(J) TLOG(J)=DLOG(T(J)) XNATOM(J)=P(J)/TK(J)-XNE(J) RHO(J)=XNATOM(J)*WTMOLE(J)*1.660E-24 IF(IFTURB.GT.0)PTURB(J)=.5*RHO(J)*VTURB(J)**2 1516 CONTINUE WRITE(6,1517)IFOP 1517 FORMAT(3H0H1I2,7H H2PLUSI2,7H HMINUSI2,5H HRAYI2,4H HE1I2, 1 4H HE2I2,8H HEMINUSI2,6H HERAYI2,5H COOLI2,5H LUKEI2/ 2 4H HOTI2,9H ELECTRONI2,6H H2RAYI2,7H HLINESI2,6H LINESI2, 3 9H LINESCATI2,7H XLINESI2,7H XLSCATI2,6H XCONTI2,6H XSCATI2) WRITE(6,1518)IFCORR,IFPRES,IFSURF,IFSCAT,IFCONV,MIXLTH,IFMOL, 1IFTURB,TRBFDG,TRBPOW,TRBSND,TRBCON 1518 FORMAT(7H0IFCORRI2,8H IFPRESI2,8H IFSURFI2,8H IFSCATI2, 1 8H IFCONVI2,8H MIXLTHF6.2,7H IFMOLI2/7H IFTURBI2, 2 8H TRBFDGF6.2,8H TRBPOWF6.2,8H TRBSNDF6.2,8H TRBCONF6.2) IF(MODE.NE.1)GO TO 1575 WRITE(6,1521)NUMITS,IFPRNT,IFPNCH 1521 FORMAT(7H NUMITS,I3/8H IFPRNT,60I2/8H IFPNCH,60I2) C IF(IFWAVE.EQ.0)GO TO 1560 C WRITE(6,1536)WBEGIN,DELTAW,NUMNU C 1536 FORMAT(7H0WBEGIN,F11.4,9H DELTAW,F7.4,8H NUMNU,I5) C GO TO 1575 C 1560 WRITE(6,1561)FREQID,NUMNU,NULO,NUHI C 1561 FORMAT(8H0FREQID ,6A1,8H NUMNU,I4,7H NULO,I4,7H NUHI,I4) C NN=(NUMNU+3)/4 C NNN=NUMNU-NN*3 C IF(NNN.LT.1)NN=1 C IF(NNN.LT.1)NNN=1 C WRITE(6,1563)((NU,FRESET(NU),RCOSET(NU),NU=I,NUMNU,NN),I=1,NNN) C 1563 FORMAT((4(I6,1P2E13.6))) C IF(NN.EQ.NNN)GO TO 1575 C NNN=NNN+1 C WRITE(6,1564)((NU,FRESET(NU),RCOSET(NU),NU=I,NUMNU,NN),I=NNN,NN) C 1564 FORMAT((3(I6,1P2E13.6))) C SUM=0. C DO 9500 NU=NULO,NUHI C 9500 SUM=SUM+RCOSET(NU) C PRINT 9501,SUM C 9501 FORMAT(1PE13.6) C 1575 CONTINUE WRITE(6,1576)(J,RHOX(J),T(J),P(J),XNE(J),ABROSS(J),PRAD(J), 1VTURB(J),(BHYD(J,I),I=1,6),BMIN(J),J=1,NRHOX) 1576 FORMAT(1H1/////8X4HRHOX,9X1HT,8X1HP,8X3HXNE,6X6HABROSS,5X4HPRAD, 1 6X5HVTURB,24X4HBHYD,25X4HBMIN/ 2(I3,1PE13.6,0PF9.1,1P5E10.3,1X,0P7F8.4)) C RETURN C************ 1600 MIAC=IWORDF(CARD) C ON IF(MIAC.EQ.569)GO TO 1610 C OFF IF(MIAC.EQ.20763)GO TO 1620 GO TO 9000 1610 IFSCAT=1 GO TO 97 1620 IFSCAT=0 GO TO 97 C************ 1700 IF(MODE.NE.20)CALL EXIT NRHOX=0 RETURN C************ 1800 DO 1801 I=1,74 III=CARD(I+6) ITITLE(2*I)=(1H ) 1801 ITITLE(2*I-1)=III C 1801 TITLE(I)=CARD(I+6) GO TO 98 C************ 1900 MIAC=IWORDF(CARD) C ON IF(MIAC.EQ.569)GO TO 1910 C OFF IF(MIAC.EQ.20763)GO TO 1920 C OVER IF(MIAC.EQ.790116)GO TO 1930 GO TO 9000 1910 IFCONV=1 NUMCOL=LETCOL MIXLTH=FREEFF(CARD) GO TO 97 1920 IFCONV=0 MIXLTH=1. DO 1921 J=1,NRHOX DLTDLP(J)=0. HEATCP(J)=0. DLRDLT(J)=0. VELSND(J)=0. GRDADB(J)=0. HSCALE(J)=0. FLXCNV(J)=0. 1921 VCONV(J)=0. GO TO 97 1930 IFCONV=1 NUMCOL=LETCOL MIXLTH=FREEFF(CARD) OVERWT=FREEFF(CARD) GO TO 97 C************ 2000 MIAC=IWORDF(CARD) C ON IF(MIAC.EQ.569)GO TO 2010 C OFF IF(MIAC.EQ.20763)GO TO 2020 GO TO 9000 2010 IFTURB=1 NUMCOL=LETCOL TRBFDG=FREEFF(CARD) TRBPOW=FREEFF(CARD) TRBSND=FREEFF(CARD) TRBCON=FREEFF(CARD) GO TO 97 2020 IFTURB=0 TRBFDG=0. TRBPOW=0. TRBSND=0. TRBCON=0. GO TO 97 C************ 2100 NNEW=FREEFF(CARD) DO 2101 J=1,NNEW 2101 RHOXA(J)=FREEFR(CARD) IDUM=MAP1(RHOX,T,NRHOX,RHOXA,DUM1,NNEW) IDUM=MAP1(RHOX,P,NRHOX,RHOXA,DUM2,NNEW) IDUM=MAP1(RHOX,XNE,NRHOX,RHOXA,DUM3,NNEW) IDUM=MAP1(RHOX,ABROSS,NRHOX,RHOXA,DUM4,NNEW) IDUM=MAP1(RHOX,VTURB,NRHOX,RHOXA,DUM5,NNEW) IDUM=MAP1(RHOX,PRAD,NRHOX,RHOXA,DUM6,NNEW) IDUM=MAP1(RHOX,BMIN,NRHOX,RHOXA,DUM7,NNEW) DO 2102 J=1,NNEW T(J)=DUM1(J) P(J)=DUM2(J) XNE(J)=DUM3(J) ABROSS(J)=DUM4(J) VTURB(J)=DUM5(J) PRAD(J)=DUM6(J) PRADK(J)=PRAD(J)+PRADK0 2102 BMIN(J)=DUM7(J) DO 2105 I=1,6 IDUM=MAP1(RHOX,BHYD(1,I),NRHOX,RHOXA,DUM1,NNEW) DO 2104 J=1,NNEW 2104 BHYD(J,I)=DUM1(J) 2105 CONTINUE NRHOX=NNEW DO 2106 J=1,NRHOX 2106 RHOX(J)=RHOXA(J) GO TO 97 C************ 2200 NUM=FREEFF(CARD) NULO=FREEFF(CARD) NUHI=FREEFF(CARD) LETCOL=NUMCOL MIAC=IWORDF(CARD) NUMNU=NUM DO 2201 I=1,6 2201 FREQID4(2*I-1)=WORD(I) CC BIG C IF(MIAC.EQ.3078)GO TO 2210 CC LITTLE C IF(MIAC.EQ.850035822)GO TO 2220 C GO TO 9000 CC FREQUENCY SET BIG CC NUMNU=337 IS CURRENT, NUMNU=331 IS OLD AND WILL WORK C 2210 DO 2211 NU=1,NUMNU C 2211 FRESET(NU)=2.99792458E17/FRESET(NU+5) C DO 2212 NU=2,NUMNU-1 C 2212 RCOSET(NU)=(FRESET(NU-1)-FRESET(NU+1))/2. C RCOSET(1)=(2.99792458E17/8.97666-FRESET(2))/2. C RCOSET(NUMNU)=FRESET(NUMNU-1)/2. C GO TO 98 CC FREQUENCY SET LITTLE CC NUMNU=1221 IS CURRENT, NUMNU=1215 IS OLD AND WILL WORK C 2220 DO 2221 NU=1,NUMNU C 2221 FRESET(NU)=2.99792458E17/FRESET(NU+342) C DO 2222 NU=2,NUMNU-1 C 2222 RCOSET(NU)=(FRESET(NU-1)-FRESET(NU+1))/2. C RCOSET(1)=(2.99792458E17/8.97666-FRESET(2))/2. C RCOSET(NUMNU)=FRESET(NUMNU-1)/2. GO TO 98 C************ 2300 MIAC=IWORDF(CARD) C INTENSITY IF(MIAC.EQ.651354309)GO TO 2310 C FLUX IF(MIAC.EQ.321147)GO TO 2320 C OFF IF(MIAC.EQ.20763)GO TO 2330 GO TO 9000 2310 NMU=FREEFF(CARD) DO 2311 MU=1,NMU 2311 ANGLE(MU)=FREEFR(CARD) IFSURF=2 GO TO 97 2320 IFSURF=1 GO TO 97 2330 IFSURF=0 GO TO 97 C************ 2400 MIAC=IWORDF(CARD) C ON IF(MIAC.EQ.569)GO TO 2410 C OFF IF(MIAC.EQ.20763)GO TO 2420 GO TO 9000 2410 IFPRES=1 GO TO 97 2420 IFPRES=0 GO TO 97 C************ 2500 MIAC=IWORDF(CARD) C ON IF(MIAC.EQ.569)GO TO 2510 C OFF IF(MIAC.EQ.20763)GO TO 2520 GO TO 9000 2510 IFCORR=1 GO TO 97 2520 IFCORR=0 DO 2521 J=1,kw FLXERR(J)=0. 2521 FLXDRV(J)=0. GO TO 97 C************ 2600 WBEGIN=FREEFF(CARD) DELTAW=FREEFF(CARD) WEND=FREEFF(CARD) IFWAVE=1 NULO=1 NUHI= INT(ABS(WEND-WBEGIN)/ABS(DELTAW)+.5)+1 NUMNU=NUHI IF(WBEGIN.LT.1.E7)GO TO 97 IF(WBEGIN.GT.1.E20)GO TO 2610 C FREQUENCY STEPS WBEGIN=2.99792458E17/WBEGIN DELTAW=2.99792458E17/DELTAW WEND=2.99792458E17/WEND GO TO 97 C WAVENUMBER STEPS SCALE BY 1.E25 2610 WBEGIN=1.E7/(WBEGIN/1.E25) DELTAW=1.E7/(DELTAW/1.E25) WEND=1.E7/(WEND/1.E25) GO TO 97 C************ C SCALING MODELS OR CHANGING RHOX SPACING TO BE UNIFORM IN TAUROS 2700 KKKKK=FREEFF(CARD) IF(KKKKK.GT.1000)THEN TEFF1=KKKKK DO 2722 J=1,NRHOX 2722 T(J)=T(J)*TEFF1/TEFF TEFF=TEFF1 FLUX=5.6697E-5/12.5664*TEFF**4 GO TO 97 ENDIF KRHOX=KKKKK TAU1LG=FREEFF(CARD) STEPLG=FREEFF(CARD) MORE=1 TEFF1=FREEFF(CARD) GNEW=FREEFF(CARD) IF(GNEW.LT.10.)GNEW=EXP10(GNEW) MORE=0 DO 2701 J=1,KRHOX 2701 TAUSTD(J)=EXP10(TAU1LG+DFLOAT(J-1)*STEPLG) C CALL INTEG(RHOX,ABROSS,TAUROS,NRHOX) CALL INTEG(RHOX,ABROSS,TAUROS,NRHOX,ABROSS(1)*RHOX(1)) C TAUROS(1)=0. TAUROS(1)=MIN(TAUROS(1),TAUSTD(1)) IDUM=MAP1(TAUROS,RHOX,NRHOX,TAUSTD,DUM1,KRHOX) IDUM=MAP1(TAUROS,T,NRHOX,TAUSTD,DUM2,KRHOX) IDUM=MAP1(TAUROS,P,NRHOX,TAUSTD,DUM3,KRHOX) IDUM=MAP1(TAUROS,XNE,NRHOX,TAUSTD,DUM4,KRHOX) IDUM=MAP1(TAUROS,ABROSS,NRHOX,TAUSTD,DUM5,KRHOX) IDUM=MAP1(TAUROS,PRAD,NRHOX,TAUSTD,DUM6,KRHOX) IDUM=MAP1(TAUROS,VTURB,NRHOX,TAUSTD,DUM7,KRHOX) IDUM=MAP1(TAUROS,BMIN,NRHOX,TAUSTD,DUM8,KRHOX) DO 2702 J=1,KRHOX RHOX(J)=DUM1(J) T(J)=DUM2(J) P(J)=DUM3(J) XNE(J)=DUM4(J) ABROSS(J)=DUM5(J) PRAD(J)=DUM6(J) PRADK(J)=PRAD(J)+PRADK0 VTURB(J)=DUM7(J) 2702 BMIN(J)=DUM8(J) DO 2704 I=1,6 IDUM=MAP1(TAUROS,BHYD(1,I),NRHOX,TAUSTD,DUM1,KRHOX) DO 2703 J=1,KRHOX 2703 BHYD(J,I)=DUM1(J) 2704 CONTINUE NRHOX=KRHOX IF(TEFF1.EQ.0.)GO TO 97 C IF(TEFF1.EQ.TEFF.AND.GNEW.EQ.GRAV)GO TO 97 IF(TEFF1.LT.TEFF+1.AND.TEFF1.GT.TEFF-1..AND. 1GNEW.LT.GRAV*1.001.AND.GNEW.GT.GRAV*.999)GO TO 97 DO 2710 J=1,NRHOX TAUROS(J)=TAUSTD(J) T(J)=T(J)*TEFF1/TEFF PTURB(J)=0. PRADK(J)=PRADK(J)*(TEFF1/TEFF)**4 2710 PRAD(J)=PRAD(J)*(TEFF1/TEFF)**4 PRADK0=PRADK0*(TEFF1/TEFF)**4 PZERO=PCON+PRADK0+PTURB0 TEFF=TEFF1 FLUX=5.6697E-5/12.5664*TEFF**4 GRAV=GNEW GLOG=DLOG10(GRAV) CALL TTAUP(T,TAUROS,ABROSS,PTOTAL,P,PRAD,PTURB, 1VTURB,GRAV,NRHOX) DO 2711 J=1,NRHOX RHOX(J)=PTOTAL(J)/GRAV 2711 PTOTAL(J)=PTOTAL(J)+PZERO C2711 RHOX(J)=PTOTAL(J)/GRAV GO TO 97 C************ 2800 CALL DUMMYR GO TO 97 C************ 2900 VNEW=FREEFF(CARD) C VTURB IN CM/S C IF VNEW=-99.E5 VTURBSTANDARD GENERATES A DEFAULT DEPTH DEPENDENT VTURB C IF VNEW.LT.0.) VTURBSTANDARD GENERATES A DEPTH DEPENDENT VTURB USING C VNEW AS THE VMAX PARAMETER IF(VNEW.LT.0.)GO TO 2903 DO 2901 J=1,NRHOX 2901 VTURB(J)=VNEW GO TO 97 2903 CALL VTURBSTANDARD(VNEW) GO TO 97 C************ C SMOOTH TEMPERTURE DISTRIBUTION 3000 J1SMOOTH=FREEFF(CARD) J2SMOOTH=FREEFF(CARD) WTJM1=FREEFF(CARD) WTJ=FREEFF(CARD) WTJP1=FREEFF(CARD) DO 3001 J=J1SMOOTH,J2SMOOTH 3001 TSMOOTH(J)=WTJM1*T(J-1)+WTJ*T(J)+WTJP1*T(J+1) DO 3002 J=J1SMOOTH,J2SMOOTH 3002 T(J)=TSMOOTH(J) GO TO 97 END SUBROUTINE DUMMYR IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) C DUMMY INPUT ROUTINE FOR MODIFYING READIN C C RETURN END FUNCTION FREEFR(CARD) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /FREE/WORD(6),NUMCOL,LETCOL,LAST,MORE,IFFAIL,MAXPOW INTEGER CARD(1),WORD COMMON /JUNK/TITLE(74),FREQID(6),WLTE,XSCALE,INPUTDATA MORE=1 FREEFR=FREEFF(CARD) IF(IFFAIL.EQ.0)RETURN L=LAST-1 READ(INPUTDATA,1)(CARD(I),I=1,L) 1 FORMAT(132A1) NUMCOL=1 FREEFR=FREEFF(CARD) RETURN END FUNCTION FREEFF(CARD) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /FREE/WORD(6),NUMCOL,LETCOL,LAST,MORE,IFFAIL,MAXPOW DIMENSION CARD(1) DIMENSION A(10) INTEGER CARD,A,C,QPT,QCM,QMI,QE,QPL,QBL,WORD DATA A/1H0,1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9/ DATA QPT/1H./,QCM/1H,/,QMI/1H-/,QE/1HE/,QPL/1H+/,QBL/1H / IFFAIL=0 IF(NUMCOL.GT.LAST)GO TO 3002 ANSWER=0. ASIGN=1. ISIGN=1 NPT=0 IF0=0 N=0 ASSIGN 100 TO NSWCH DO 1000 NCOL=NUMCOL,LAST C=CARD(NCOL) GO TO NSWCH,(100,200,300,400) 100 IF(C.EQ.QBL)GO TO 104 DO 101 I=1,10 IF(C.EQ.A(I))GO TO 102 101 CONTINUE IF(C.EQ.QPT)GO TO 103 IF(C.EQ.QCM)GO TO 104 IF(C.EQ.QMI)GO TO 105 999 ASIGN=1. ANSWER=0. NPT=0 IF0=0 N=0 ASSIGN 100 TO NSWCH GO TO 1000 102 N=N+1 ANSWER=10.*ANSWER+DFLOAT(I-1) GO TO 1000 103 ASSIGN 200 TO NSWCH GO TO 1000 104 IF(N.EQ.0)GO TO 999 FREEFF=ANSWER*ASIGN GO TO 998 105 IF(N.EQ.0)GO TO 106 GO TO 999 106 ASIGN=-1. GO TO 1000 200 DO 201 I=1,10 IF(C.EQ.A(I))GO TO 202 201 CONTINUE IF(C.EQ.QE )GO TO 203 IF(C.EQ.QMI)GO TO 304 IF(C.EQ.QPL)GO TO 303 IF(C.EQ.QBL)GO TO 204 IF(C.EQ.QCM)GO TO 204 GO TO 999 202 N=N+1 NPT=NPT+1 ANSWER=10.*ANSWER+DFLOAT(I-1) GO TO 1000 203 ASSIGN 300 TO NSWCH GO TO 1000 204 IF(N.EQ.0)GO TO 999 FREEFF=ANSWER*ASIGN/10.**NPT GO TO 998 300 DO 301 I=1,10 IF(C.EQ.A(I))GO TO 302 301 CONTINUE IF(C.EQ.QBL)GO TO 303 IF(C.EQ.QMI)GO TO 304 IF(C.EQ.QPL)GO TO 303 GO TO 999 302 NPOWER=I-1 IF0=1 310 ASSIGN 400 TO NSWCH GO TO 1000 303 NPOWER=0 GO TO 310 304 ISIGN=-1 NPOWER=0 GO TO 310 400 DO 401 I=1,10 IF(C.EQ.A(I))GO TO 402 401 CONTINUE IF(C.EQ.QCM)GO TO 403 IF(C.EQ.QBL)GO TO 403 GO TO 999 402 NPOWER=10*NPOWER+I-1 IF0=1 IF(NPOWER.GE.MAXPOW)GO TO 999 GO TO 1000 403 IF(IF0.EQ.0)GO TO 999 FREEFF=ANSWER*ASIGN*10.**(ISIGN*NPOWER-NPT) GO TO 998 1000 CONTINUE NUMCOL=LAST+1 3002 IFFAIL=1 IF(MORE.GT.0)GO TO 3000 WRITE(6,3001)(CARD(I),I=1,LAST) 3001 FORMAT(28H1FREEFF HAS READ OFF THE END/(1X131A1)) CALL EXIT 3000 FREEFF=0. RETURN 998 NUMCOL=NCOL+1 RETURN END FUNCTION IWORDF(CARD) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /FREE/WORD(6),NUMCOL,LETCOL,LAST,MORE,IFFAIL,MAXPOW DIMENSION CARD(1) DIMENSION A(36) EQUIVALENCE (QE,A(5)) INTEGER CARD,A,C,WORD,QPT,QCM,QEQ,QBL,QE DATA A/1HA,1HB,1HC,1HD,1HE,1HF,1HG,1HH,1HI,1HJ,1HK,1HL,1HM,1HN, 11HO,1HP,1HQ,1HR,1HS,1HT,1HU,1HV,1HW,1HX,1HY,1HZ,1H0,1H1,1H2,1H3, 21H4,1H5,1H6,1H7,1H8,1H9/ DATA QPT/1H./,QCM/1H,/,QEQ/1H=/,QBL/1H / DO 1 I=1,6 1 WORD(I)=QBL IFFAIL=0 IF(LETCOL.GT.LAST)GO TO 4002 N=0 C (M)ACHINE (I)NDEPENDENT (A)LPHAMERIC (C)ODE MIAC=0 ASSIGN 500 TO NSWCH DO 2000 NCOL=LETCOL,LAST C=CARD(NCOL) GO TO NSWCH,(500,600) 500 IF(C.EQ.QBL)GO TO 1999 DO 501 II=1,26 IF(C.EQ.A(II))GO TO 502 501 CONTINUE 1999 MIAC=0 N=0 ASSIGN 500 TO NSWCH GO TO 2000 502 IF(C.NE.QE )GO TO 506 IF(NCOL.EQ.1)GO TO 506 C=CARD(NCOL-1) DO 503 I=27,36 IF(C.EQ.A(I))GO TO 504 503 CONTINUE IF(C.NE.QPT)GO TO 506 504 C=CARD(NCOL+1) DO 505 I=27,36 IF(C.EQ.A(I))GO TO 1999 505 CONTINUE IF(C.EQ.QBL)GO TO 1999 506 N=N+1 MIAC=II WORD(1)=A(II) ASSIGN 600 TO NSWCH GO TO 2000 600 IF(C.EQ.QBL)GO TO 603 IF(C.EQ.QEQ)GO TO 603 IF(C.EQ.QCM)GO TO 603 DO 601 II=1,36 IF(C.EQ.A(II))GO TO 602 601 CONTINUE GO TO 1999 602 N=N+1 IF(N.GT.6)GO TO 604 MIAC=37*MIAC+II WORD(N)=A(II) 604 GO TO 2000 603 IWORDF=MIAC GO TO 998 2000 CONTINUE LETCOL=LAST+1 4002 IFFAIL=1 IF(MORE.GT.0)GO TO 4000 WRITE(6,4001)(CARD(I),I=1,LAST) 4001 FORMAT(28H1IWORDF HAS READ OFF THE END/(1X131A1)) CALL EXIT 4000 IWORDF=0 RETURN 998 LETCOL=NCOL+1 RETURN END SUBROUTINE READMOL IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) DIMENSION XCODE(8) C COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,IFMOL,IFREADLINES COMMON /IFEQUA/IFEQUA(101),KCOMPS(450),LOCJ(161),CODE(160), 1 EQUIL(6,160),IDEQUA(25),NEQUA,NUMMOL,NLOC C COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP DATA MAXMOL,MAX1,MAXEQ,MAXLOC/160,161,25,450/ C EQUILJ(MAXMOL),LOCJ(MAX1),KCOMPS(MAXLOC) C XNZ(40,MAXEQ) C EQUIL(6,MAXMOL) C EQ(MAXEQ),XN(MAXEQ),XAB(MAXEQ),DTERM(MAXEQ),DEQ(MAXEQ,MAXEQ) C EQOLD(MAXEQ) C IDEQUA(MAXEQ) C CODE(MAXMOL),XNMOL(40,MAXMOL) DATA XCODE/1.E14,1.E12,1.E10,1.E8,1.E6,1.E4,1.E2,1.E0/ C MAKE TABLE OF ALL COMPONENTS OF ALL MOLECULES C SAMPLE CODES FOR ATOMS AND MOLECULES C EXTERNAL CODE INTERNAL COMPONENTS C CARBON DIOXIDE 60808. 6,8,8 C HMINUS 100. 1,100 C NEUTRAL IRON 26. 26 C H2PLUS 101.01 1,1,101 C HYDROGEN ION 1.01 1,101 C SILICON 3+ 14.03 14,101,101,101 C IF(ITEMP.GT.0)RETURN C IF(IFMOL.EQ.0)RETURN C IF(IFPRES.EQ.0)RETURN OPEN(UNIT=2,STATUS='OLD',SHARED,READONLY) WRITE(6,10) 10 FORMAT(16H1MOLECULES INPUT) DO 11 I=1,101 11 IFEQUA(I)=0 C IF IFEQUA=1 AN EQUATION MUST BE SET UP FOR ELEMENT I KLOC=1 LOCJ(1)=1 DO 20 JMOL=1,MAX1 IF(KLOC.GT.MAXLOC)WRITE(6,199) READ(2,13)C,E1,E2,E3,E4,E5,E6 13 FORMAT(F18.2,F7.3,5E11.4) IF(C.EQ.0.)GO TO 23 WRITE(6,14)JMOL,C,E1,E2,E3,E4,E5,E6 14 FORMAT(I5,F18.2,F7.3,1P5E11.4) DO 15 II=1,8 IF(C.GE.XCODE(II))GO TO 16 15 CONTINUE CLOSE(UNIT=2) CALL EXIT 16 X=C DO 17 I=II,8 ID=X/XCODE(I)+.5 X=X-DFLOAT(ID)*XCODE(I) IF(ID.EQ.0)ID=100 IFEQUA(ID)=1 KCOMPS(KLOC)=ID 17 KLOC=KLOC+1 ION=X*100.+.5 IF(ION.LT.1)GO TO 19 IFEQUA(100)=1 IFEQUA(101)=1 DO 18 I=1,ION KCOMPS(KLOC)=101 18 KLOC=KLOC+1 19 LOCJ(JMOL+1)=KLOC CODE(JMOL)=C EQUIL(1,JMOL)=E1 EQUIL(2,JMOL)=E2 EQUIL(3,JMOL)=E3 EQUIL(4,JMOL)=E4 EQUIL(5,JMOL)=E5 20 EQUIL(6,JMOL)=E6 WRITE(6,199) 199 FORMAT(19H1TOO MANY MOLECULES) 23 NUMMOL=JMOL-1 NLOC=KLOC-1 C ASSIGN AN EQUATION NUMBER TO EACH COMPONENT C THE FIRST EQUATION IS FOR THE TOTAL NUMBER OF PARTICLES C THE FIRST VARIABLE IS XNATOM C IF ANY COMPONENT IS 100 OR 101 VARIABLE NEQUA IS XNE C AND EQUATION NEQUA IS CHARGE CONSERVATION C FOR PROGRAMMING CONVENIENCE VARIABLE NEQUA1 IS INVERSE XNE C DIMENSIONS ARE SET FOR A MAXIMUM 25 EQUATIONS IEQUA=1 DO 25 I=1,100 IF(IFEQUA(I).EQ.0)GO TO 25 IEQUA=IEQUA+1 IFEQUA(I)=IEQUA IDEQUA(IEQUA)=I 25 CONTINUE NEQUA=IEQUA NEQUA1=NEQUA+1 IFEQUA(101)=NEQUA1 NEQNEQ=NEQUA**2 DO 28 KLOC=1,NLOC ID=KCOMPS(KLOC) 28 KCOMPS(KLOC)=IFEQUA(ID) WRITE(6,29) NUMMOL,MAXMOL,NLOC,MAXLOC,NEQUA,MAXEQ 29 FORMAT(16H MOLECULES USED,I4,5H MAX,I4/ 1 16H COMPONENTS USED,I4,5H MAX,I4/ 2 16H EQUATIONS USED,I4,5H MAX,I4) CLOSE(UNIT=2) RETURN END SUBROUTINE POPS(CODE,MODE,NUMBER) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) DIMENSION NUMBER(kw,1) REAL*8 NUMBER COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,IFMOL,IFREADLINES COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) DATA ITEMP1/0/ IF(IFMOL.EQ.1)GO TO 200 IF(IFPRES.EQ.1.AND.ITEMP.NE.ITEMP1)CALL NELECT ITEMP1=ITEMP IF(CODE.EQ.0.)RETURN IF(CODE.LT.100.)GO TO 110 WRITE(6,106) 106 FORMAT(14H1MOLECULES OFF) CALL EXIT 110 IZ=CODE NION=(CODE-DFLOAT(IZ))*100.+1.5 DO 115 J=1,NRHOX CALL PFSAHA(J,IZ,NION,MODE,NUMBER) C PFSAHA RETURNS IONIZATION FRACTIONS OR IONIZATION FRACTIONS/ C PARTITION FUNCTIONS SO CONVERT TO NUMBER DENSITIES NNNN=NION IF(MODE.LT.10)NNNN=1 DO 115 ION=1,NNNN 115 NUMBER(J,ION)=NUMBER(J,ION)*XNATOM(J)*XABUND(J,IZ) RETURN 200 IF(IFPRES.EQ.1.AND.ITEMP.NE.ITEMP1)CALL NMOLEC(MODE) ITEMP1=ITEMP IF(CODE.EQ.0.)RETURN CALL MOLEC(CODE,MODE,NUMBER) RETURN END SUBROUTINE ENERGYDENSITY C ONLY FOR ATOMS AT FIRST IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /EDENS/EDENS(kw),IFEDNS COMMON /ELEM/ABUND(99),ATMASS(99),YABUND(99),ELEM(99) CHARACTER*2 ELEM COMMON /ITER/ ITER,IFPRNT(60),IFPNCH(60),NUMITS COMMON /POTION/POTION(999),POTIONSUM(999) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) DIMENSION PFPLUS(mion),PFMINUS(mion) IF(IFEDNS.EQ.0)RETURN C DO 65 J=1,NRHOX T(J)=T(J)*1.001 TK(J)=TK(J)*1.001 TKEV(J)=TKEV(J)*1.001 HCKT(J)=HCKT(J)/1.001 HKT(J)=HKT(J)/1.001 TLOG(J)=DLOG(T(J)) CALL PFSAHA(J,1,2,5,PFPLUS(1)) CALL PFSAHA(J,2,3,5,PFPLUS(3)) CALL PFSAHA(J,3,4,5,PFPLUS(6)) CALL PFSAHA(J,4,5,5,PFPLUS(10)) CALL PFSAHA(J,5,5,5,PFPLUS(15)) CALL PFSAHA(J,6,6,5,PFPLUS(21)) CALL PFSAHA(J,7,6,5,PFPLUS(28)) CALL PFSAHA(J,8,6,5,PFPLUS(36)) CALL PFSAHA(J,9,6,5,PFPLUS(45)) CALL PFSAHA(J,10,6,5,PFPLUS(55)) CALL PFSAHA(J,11,6,5,PFPLUS(66)) CALL PFSAHA(J,12,6,5,PFPLUS(78)) CALL PFSAHA(J,13,6,5,PFPLUS(91)) CALL PFSAHA(J,14,6,5,PFPLUS(105)) CALL PFSAHA(J,15,6,5,PFPLUS(120)) CALL PFSAHA(J,16,6,5,PFPLUS(136)) CALL PFSAHA(J,17,5,5,PFPLUS(153)) CALL PFSAHA(J,18,5,5,PFPLUS(171)) CALL PFSAHA(J,19,5,5,PFPLUS(190)) CALL PFSAHA(J,20,5,5,PFPLUS(210)) CALL PFSAHA(J,21,5,5,PFPLUS(231)) CALL PFSAHA(J,22,5,5,PFPLUS(253)) CALL PFSAHA(J,23,5,5,PFPLUS(276)) CALL PFSAHA(J,24,5,5,PFPLUS(300)) CALL PFSAHA(J,25,5,5,PFPLUS(325)) CALL PFSAHA(J,26,5,5,PFPLUS(351)) CALL PFSAHA(J,27,5,5,PFPLUS(378)) CALL PFSAHA(J,28,5,5,PFPLUS(406)) CALL PFSAHA(J,29,3,5,PFPLUS(435)) CALL PFSAHA(J,30,3,5,PFPLUS(465)) DO 63 IZ=31,99 63 CALL PFSAHA(J,IZ,3,5,PFPLUS(496+(IZ-31)*5)) C T(J)=T(J)/1.001*.999 TK(J)=TK(J)/1.001*.999 TKEV(J)=TKEV(J)/1.001*.999 HCKT(J)=HCKT(J)*1.001/.999 HKT(J)=HKT(J)*1.001/.999 TLOG(J)=DLOG(T(J)) CALL PFSAHA(J,1,2,5,PFMINUS(1)) CALL PFSAHA(J,2,3,5,PFMINUS(3)) CALL PFSAHA(J,3,4,5,PFMINUS(6)) CALL PFSAHA(J,4,5,5,PFMINUS(10)) CALL PFSAHA(J,5,5,5,PFMINUS(15)) CALL PFSAHA(J,6,6,5,PFMINUS(21)) CALL PFSAHA(J,7,6,5,PFMINUS(28)) CALL PFSAHA(J,8,6,5,PFMINUS(36)) CALL PFSAHA(J,9,6,5,PFMINUS(45)) CALL PFSAHA(J,10,6,5,PFMINUS(55)) CALL PFSAHA(J,11,6,5,PFMINUS(66)) CALL PFSAHA(J,12,6,5,PFMINUS(78)) CALL PFSAHA(J,13,6,5,PFMINUS(91)) CALL PFSAHA(J,14,6,5,PFMINUS(105)) CALL PFSAHA(J,15,6,5,PFMINUS(120)) CALL PFSAHA(J,16,6,5,PFMINUS(136)) CALL PFSAHA(J,17,5,5,PFMINUS(153)) CALL PFSAHA(J,18,5,5,PFMINUS(171)) CALL PFSAHA(J,19,5,5,PFMINUS(190)) CALL PFSAHA(J,20,5,5,PFMINUS(210)) CALL PFSAHA(J,21,5,5,PFMINUS(231)) CALL PFSAHA(J,22,5,5,PFMINUS(253)) CALL PFSAHA(J,23,5,5,PFMINUS(276)) CALL PFSAHA(J,24,5,5,PFMINUS(300)) CALL PFSAHA(J,25,5,5,PFMINUS(325)) CALL PFSAHA(J,26,5,5,PFMINUS(351)) CALL PFSAHA(J,27,5,5,PFMINUS(378)) CALL PFSAHA(J,28,5,5,PFMINUS(406)) CALL PFSAHA(J,29,3,5,PFMINUS(435)) CALL PFSAHA(J,30,3,5,PFMINUS(465)) DO 64 IZ=31,99 64 CALL PFSAHA(J,IZ,3,5,PFMINUS(496+(IZ-31)*5)) T(J)=T(J)/.999 TK(J)=TK(J)/.999 TKEV(J)=TKEV(J)/.999 HCKT(J)=HCKT(J)*.999 HKT(J)=HKT(J)*.999 TLOG(J)=DLOG(T(J)) XNTOT=XNE(J)+XNATOM(J) EDENS(J)=1.5*XNTOT*TK(J) DO 83 NELION=1,840 83 EDENS(J)=EDENS(J)+XNF(J,NELION)*TK(J)*(POTIONSUM(NELION)*HCKT(J)+ 1(PFPLUS(NELION)-PFMINUS(NELION))/ 2(PFPLUS(NELION)+PFMINUS(NELION)+1.E-30)*2.*500.) EDENS(J)=EDENS(J)/RHO(J) 65 CONTINUE RETURN END SUBROUTINE NELECT IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /EDENS/EDENS(kw),IFEDNS COMMON /ELEM/ABUND(99),ATMASS(99),YABUND(99),ELEM(99) CHARACTER*2 ELEM COMMON /ITER/ ITER,IFPRNT(60),IFPNCH(60),NUMITS COMMON /POTION/POTION(999),POTIONSUM(999) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) DIMENSION PFPLUS(mion),PFMINUS(mion) DO 50 J=1,NRHOX C IF(J.GT.1)XNE(J)=XNE(J-1)*P(J)/P(J-1) XNTOT=P(J)/TK(J) XNATOM(J)=XNTOT-XNE(J) ITERXNE=0 DO 20 ITERXNE=1,200 DO 19 M=1,MION 19 XNF(J,M)=0. XNENEW=0. CHARGESQUARE=0. CALL PFSAHA(J,1,2,12,XNF(1,1)) CALL PFSAHA(J,2,3,12,XNF(1,3)) CALL PFSAHA(J,3,4,12,XNF(1,6)) CALL PFSAHA(J,4,4,12,XNF(1,10)) CALL PFSAHA(J,5,4,12,XNF(1,15)) CALL PFSAHA(J,6,6,12,XNF(1,21)) CALL PFSAHA(J,7,6,12,XNF(1,28)) CALL PFSAHA(J,8,6,12,XNF(1,36)) CALL PFSAHA(J,9,6,12,XNF(1,45)) CALL PFSAHA(J,10,6,12,XNF(1,55)) CALL PFSAHA(J,11,6,12,XNF(1,66)) CALL PFSAHA(J,12,6,12,XNF(1,78)) CALL PFSAHA(J,13,6,12,XNF(1,91)) CALL PFSAHA(J,14,6,12,XNF(1,105)) CALL PFSAHA(J,15,6,12,XNF(1,120)) CALL PFSAHA(J,16,6,12,XNF(1,136)) CALL PFSAHA(J,17,5,12,XNF(1,153)) CALL PFSAHA(J,18,5,12,XNF(1,171)) CALL PFSAHA(J,19,5,12,XNF(1,190)) CALL PFSAHA(J,20,5,12,XNF(1,210)) CALL PFSAHA(J,21,5,12,XNF(1,231)) CALL PFSAHA(J,22,5,12,XNF(1,253)) CALL PFSAHA(J,23,5,12,XNF(1,276)) CALL PFSAHA(J,24,5,12,XNF(1,300)) CALL PFSAHA(J,25,5,12,XNF(1,325)) CALL PFSAHA(J,26,5,12,XNF(1,351)) CALL PFSAHA(J,27,5,12,XNF(1,378)) CALL PFSAHA(J,28,5,12,XNF(1,406)) CALL PFSAHA(J,29,3,12,XNF(1,435)) CALL PFSAHA(J,30,3,12,XNF(1,465)) NELION=0 DO 12 IZ=1,30 DO 12 ION=1,IZ+1 NELION=NELION+1 X=XNF(J,NELION) XNF(J,NELION)=XNF(J,NELION)*XNATOM(J)*XABUND(J,IZ) CHARGESQUARE=CHARGESQUARE+XNF(J,NELION)*(ION-1)**2 12 XNENEW=XNENEW+XNF(J,NELION)*(ION-1) DO 13 IZ=31,99 CALL PFSAHA(J,IZ,3,12,XNF(1,496+(IZ-31)*5)) DO 13 ION=1,5 NELION=NELION+1 X=XNF(J,NELION) XNF(J,NELION)=XNF(J,NELION)*XNATOM(J)*XABUND(J,IZ) CHARGESQUARE=CHARGESQUARE+XNF(J,NELION)*(ION-1)**2 13 XNENEW=XNENEW+XNF(J,NELION)*(ION-1) XNENEW=DMAX1(XNENEW,XNE(J)*.5) CHARGESQNEW=CHARGESQUARE+XNENEW DEBYE=SQRT(TK(J)/12.5664/4.801E-10**2/CHARGESQNEW) POTLOW=DMIN1(1.D0,1.44E-7/DEBYE) C PRINT 778,J,ITERXNE,XNENEW,XNE(J),CHARGESQNEW,DEBYE,POTLOW C 778 FORMAT(' XNE',2I5,1P5E15.5) XNENEW=(XNENEW+XNE(J))/2. ERROR=ABS((XNE(J)-XNENEW)/XNENEW) XNE(J)=XNENEW XNATOM(J)=XNTOT-XNE(J) CHARGESQ(J)=CHARGESQUARE+XNE(J) IF(ERROR.LT..0001)GO TO 40 20 CONTINUE WRITE(6,25) 25 FORMAT(22H XNE DOES NOT CONVERGE) 40 RHO(J)=XNATOM(J)*WTMOLE(J)*1.660E-24 50 CONTINUE WRITE(6,554) 554 FORMAT(3X,4X, 'RHOX',' T ',' P ', 1' XNE ',' XNATOM ',' WTMOLE ',' RHO ', 2' CHARGESQ') DO 555 J=1,NRHOX 555 WRITE(6,556)J,RHOX(J),T(J),P(J),XNE(J),XNATOM(J),WTMOLE(J), 1 RHO(J),CHARGESQ(J) 556 FORMAT(I3,1PE15.7,0PF10.1,1P6E12.3) RETURN END SUBROUTINE PFSAHA(J,IZ,NION,MODE,ANSWER) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) C MODE 1 RETURNS IONIZATION FRACTION /PARTITION FUNCTION C MODE 2 RETURNS IONIZATION FRACTION C MODE 3 RETURNS PARTITION FUNCTION C MODE 4 RETURNS NUMBER OF ELECTRONS PRODUCED C MODE 5 RETURNS ANSWER(ION)=PF ANSWER(ION+31)=IP C MODE + 10 RETURN ALL IONS TO NION. MODE ALONE RETURN NION ONLY. COMMON /DEPART/BHYD(kw,6),BMIN(kw),NLTEON COMMON /POTION/POTION(999),POTIONSUM(999) COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP C DIMENSION ANSWER(kw,6),F(6),IP(6),PART(6),POTLO(6),LOCZ(29) DIMENSION ANSWER(kw,31),F(31),IP(31),PART(31),POTLO(31),LOCZ(29) REAL*8 IP DIMENSION SCALE(4) DIMENSION NNN(6,365) DIMENSION NNN01(54),NNN02(54),NNN03(54),NNN04(54),NNN05(54) DIMENSION NNN06(54),NNN07(54),NNN08(54),NNN09(54),NNN10(54) DIMENSION NNN11(54),NNN12(54),NNN13(54),NNN14(54),NNN15(54) DIMENSION NNN16(54),NNN17(54),NNN18(54),NNN19(54),NNN20(54) DIMENSION NNN21(54),NNN22(54),NNN23(54),NNN24(54),NNN25(54) DIMENSION NNN26(54),NNN27(54),NNN28(54),NNN29(54),NNN30(54) DIMENSION NNN31(54),NNN32(54),NNN33(54),NNN34(54),NNN35(54) DIMENSION NNN36(54),NNN37(54),NNN38(54),NNN39(54),NNN40(12) EQUIVALENCE (NNN( 1),NNN01(1)),(NNN( 55),NNN02(1)) EQUIVALENCE (NNN( 109),NNN03(1)),(NNN( 163),NNN04(1)) EQUIVALENCE (NNN( 217),NNN05(1)),(NNN( 271),NNN06(1)) EQUIVALENCE (NNN( 325),NNN07(1)),(NNN( 379),NNN08(1)) EQUIVALENCE (NNN( 433),NNN09(1)),(NNN( 487),NNN10(1)) EQUIVALENCE (NNN( 541),NNN11(1)),(NNN( 595),NNN12(1)) EQUIVALENCE (NNN( 649),NNN13(1)),(NNN( 703),NNN14(1)) EQUIVALENCE (NNN( 757),NNN15(1)),(NNN( 811),NNN16(1)) EQUIVALENCE (NNN( 865),NNN17(1)),(NNN( 919),NNN18(1)) EQUIVALENCE (NNN( 973),NNN19(1)),(NNN(1027),NNN20(1)) EQUIVALENCE (NNN(1081),NNN21(1)),(NNN(1135),NNN22(1)) EQUIVALENCE (NNN(1189),NNN23(1)),(NNN(1243),NNN24(1)) EQUIVALENCE (NNN(1297),NNN25(1)),(NNN(1351),NNN26(1)) EQUIVALENCE (NNN(1405),NNN27(1)),(NNN(1459),NNN28(1)) EQUIVALENCE (NNN(1513),NNN29(1)),(NNN(1567),NNN30(1)) EQUIVALENCE (NNN(1621),NNN31(1)),(NNN(1675),NNN32(1)) EQUIVALENCE (NNN(1729),NNN33(1)),(NNN(1783),NNN34(1)) EQUIVALENCE (NNN(1837),NNN35(1)),(NNN(1891),NNN36(1)) EQUIVALENCE (NNN(1945),NNN37(1)),(NNN(1999),NNN38(1)) EQUIVALENCE (NNN(2053),NNN39(1)),(NNN(2107),NNN40(1)) DIMENSION NNN67(72) EQUIVALENCE (NNN(2119),NNN67(1)) C ( 1)( 2) ( 3)( 4) ( 5)( 6) ( 7)( 8) ( 9)(10) ( IP ) G REF DATA NNN01/ 1 200020001, 200020011, 201620881, 231228281, 378953411, 1359502, D+F 1.00 2 100010001, 100010001, 100010001, 100010001, 100010001, 1359500, G 1.01 3 100010001, 100010011, 102111241, 145022061, 363059451, 2458104, D+F 2.00 4 200020001, 200020071, 208524971, 382669341, 128222452, 5440302, D+F 2.01 5 100010001, 100010001, 100010001, 100010001, 100010001, 5440300, G 2.02 6 200020011, 201220481, 212922881, 258731081, 394251691, 538901, D+F 3.00 7 100010001, 100010201, 126225521, 67216512, 351165562, 7561907, D+F 3.01 8 200020001, 200020211, 227936571, 69610342, 137217102, 12241800, D+F 3.02 9 100010001, 100010001, 100010001, 100010001, 100010001, 12241800/ G 3.03 DATA NNN02/ 1 100010051, 104311441, 131615641, 190623681, 298037691, 931900, AEL 4.00 2 200120231, 211422771, 249627631, 309034911, 398545051, 1820600, AEL 4.01 3 100010001, 100010201, 126225521, 67216512, 351165562, 15385000, AEL 4.02 4 200020001, 200020011, 201220661, 223426161, 332644691, 21765700, AEL 4.03 5 600060001, 600560281, 608761991, 637466191, 693973361, 829500, AEL 5.00 6 100310831, 132016901, 214226411, 315736741, 419147071, 2514900, AEL 5.01 7 200721061, 233526401, 297533311, 369040481, 440747651, 3792000, AEL 5.02 8 100010001, 100010001, 100010001, 100010001, 100010001, 25929800, G 5.03 9 893292271, 96110042, 105311262, 126315202, 196126432, 1125508/ D+F 6.00 DATA NNN03/ 1 595060251, 620865751, 713280191, 95712292, 167623542, 2437501, D+F 6.01 2 105513201, 180324851, 341851341, 88416332, 296550722, 4787101, D+F 6.02 3 204922771, 262630421, 350941931, 494556971, 644872001, 6447600, D+F 6.03 4 403141851, 457051681, 594071181, 92913362, 203331152, 1452915, D+F 7.00 5 919899541, 107211512, 124914302, 182526232, 403762662, 2959202, D+F 7.01 6 596862721, 684177081, 88110342, 128317062, 239334312, 4742501, D+F 7.02 7 112816481, 240733751, 462068491, 116419932, 283736822, 7744900, D+F 7.03 8 210124681, 293634211, 391145791, 539862151, 703178471, 9786200, D+F 7.04 9 874789691, 924795711, 99410492, 115213492, 169022242, 1361307/ D+F 8.00 DATA NNN04/ 1 424151091, 622874781, 91312832, 221842502, 79914013, 3510711, D+F 8.01 2 95610702, 118113032, 149619922, 329761642, 101914173, 5488500, D+F 8.02 3 603567171, 775391141, 106612482, 143716252, 181420032, 7739300, D+F 8.03 4 124420321, 306943181, 606281181, 101712232, 142916342, 11387300, D+F 8.04 5 215026541, 323137551, 421546491, 508255151, 594863811, 13807900, AEL 8.05 6 575958511, 589859231, 595860671, 636470031, 815199581, 1741802, D+F 9.00 7 900296401, 102610802, 113912542, 152921152, 318348952, 3498003, D+F 9.01 8 469162651, 791295541, 121419552, 402686872, 154822203, 6264500, D+F 9.02 9 99511422, 129214572, 170523002, 320140922, 498458762, 8713900/ D+F 9.03 DATA NNN05/ 1 615472711, 87710602, 127215002, 172919582, 218624152, 11421300, D+F 9.04 2 135324181, 377252001, 661580261, 94410852, 122613672, 15711700, AEL 9.05 3 100010001, 100010051, 105313051, 210239461, 74013022, 2155808, D+F10.00 4 580158751, 591759741, 642687101, 159332652, 64111533, 4106907, D+F10.01 5 93510272, 110411662, 127116062, 257647882, 75110223, 6350000, D+F10.02 6 529774371, 94611322, 135816202, 188221442, 240626682, 9701900, D+F10.03 7 103312152, 140616092, 181320182, 222224262, 263128352, 12630000, AEL10.04 8 629178711, 98311802, 136715512, 173619202, 210422892, 15790900, AEL10.05 9 200020001, 200320211, 207322131, 253031421, 417657451, 513802/ D+F11.00 DATA NNN06/ 1 100010001, 100010161, 119621261, 50711872, 246445382, 4728901, D+F11.01 2 580158751, 591860351, 71813142, 321968812, 106014333, 7165000, D+F11.02 3 96910772, 116012242, 130714232, 153916552, 177118872, 9888000, D+F11.03 4 601386081, 108812932, 148916832, 187820722, 226624612, 13836900, AEL11.04 5 105712442, 144616652, 189221182, 234425702, 279630222, 17209000, AEL11.05 6 100010011, 101410621, 118414581, 204831781, 509479731, 764404, D+F12.00 7 200120051, 202921001, 226926901, 368457091, 92814872, 1503101, D+F12.01 8 100010001, 100110611, 177455431, 176546012, 99718753, 8011905, D+F12.02 9 579758751, 591459501, 600560591, 611461681, 622362781, 10928900/ AEL12.03 DATA NNN07/ 1 100511232, 120612752, 134214102, 147815462, 161416822, 14122900, AEL12.04 2 674896701, 121814462, 167018942, 211723412, 256527892, 18648900, AEL12.05 3 558857701, 583558761, 593260591, 635969541, 796790971, 598400, D+F13.00 4 100310211, 110313021, 172828201, 55311252, 215637942, 1882203, D+F13.01 5 200320201, 208622331, 250530971, 410251081, 611571211, 2844000, D+F13.02 6 100010001, 100210881, 207436531, 523168101, 838999681, 11996000, D+F13.03 7 577758651, 591259631, 604461351, 622563161, 640764981, 15377000, AEL13.04 8 103511582, 124713242, 140014772, 155316292, 170517812, 19042000, AEL13.05 9 825189211, 95210052, 106211532, 134317202, 237934082, 814913/ D+F14.00 DATA NNN08/ 1 563057761, 588160311, 631768671, 791097651, 127817282, 1634000, D+F14.01 2 101110771, 126716471, 232438081, 71914052, 262045302, 3346001, D+F14.02 3 200720521, 217224081, 284439171, 551370951, 86810262, 4513000, D+F14.03 4 100010001, 100210881, 207436531, 523168101, 838999681, 16672900, FAK14.04 5 575458521, 591459851, 610053201, 672674071, 843698661, 20510900, AEL14.05 6 402643441, 496757481, 658274401, 833492941, 103511532, 1048300, AEL15.00 7 874497931, 106011282, 119812802, 138415142, 164717802, 1972000, AEL15.01 8 564058061, 604164611, 709579551, 90410172, 112912422, 3015500, AEL15.02 9 100811411, 149720221, 280936121, 441552181, 602168241, 5135400/ AEL15.03 DATA NNN09/ 1 200420781, 227025361, 281430911, 336936471, 392542021, 6500700, AEL15.04 2 100010001, 100010001, 100010001, 100010001, 100010001, 22041300, G 15.05 3 822887891, 930697831, 102610932, 121614492, 185124742, 1035708, D+F16.00 4 443056011, 694982961, 96911522, 144218572, 227326892, 2339900, D+F16.01 5 91610392, 113512242, 136416942, 233429882, 364242962, 3500000, D+F16.02 6 560058861, 633871081, 82410052, 123314602, 168619132, 4728900, D+F16.03 7 104512901, 177025421, 375163021, 122420462, 286036742, 7250000, D+F16.04 8 202321571, 241428261, 358355061, 78310152, 124814802, 8802800, D+F16.05 9 538155931, 571657911, 598067191, 89013782, 227737172, 1300916/ D+F17.00 DATA NNN10/ 1 873396771, 104411072, 118513532, 175525872, 406763932, 2379903, D+F17.01 2 506569571, 87610522, 134421682, 439092662, 182132573, 3990006, D+F17.02 3 95110872, 120013232, 154921252, 345149322, 641378942, 5350000, D+F17.03 4 558960371, 677779341, 95311692, 138816082, 182720472, 6780000, D+F17.04 5 100010001, 100010051, 106913911, 240147261, 90716112, 1575411, D+F18.00 6 550256831, 578158781, 636585461, 151530162, 58010303, 2762007, D+F18.01 7 92110362, 112412002, 133216772, 254443722, 76512833, 4090003, D+F18.02 8 582082081, 103112292, 149920212, 309750502, 720793642, 5978900, D+F18.03 9 97111072, 123213982, 172625622, 463976582, 106413633, 7500000/ D+F18.04 DATA NNN11/ 1 200020011, 200720361, 211923291, 280137141, 525575741, 433803, D+F19.00 2 100010001, 100110341, 135929551, 79119282, 405274892, 3180905, D+F19.01 3 554657081, 581260301, 73012702, 285363872, 129023363, 4600005, D+F19.02 4 96010862, 118413212, 180836632, 90321023, 416863253, 6090000, D+F19.03 5 657793361, 119515082, 195826322, 352944302, 533162332, 8259900, D+F19.04 6 100110051, 104311741, 145919971, 294345051, 69010322, 611003, D+F20.00 7 205822781, 279234761, 427553061, 688994901, 136319772, 1186701, D+F20.01 8 100010001, 100510821, 168744821, 130232522, 69012813, 5121003, D+F20.02 9 555157161, 585662471, 82816862, 42510013, 168423663, 6700000/ D+F20.03 DATA NNN12/ 1 99411262, 123814062, 182930402, 484766392, 84310223, 8438900, D+F20.04 2 924696691, 105212282, 151219062, 240530032, 368944512, 653900, AEL21.00 3 190424662, 297634542, 391743752, 482952832, 573761912, 1280000, AEL21.01 4 976799291, 101110322, 105810882, 111911502, 118112122, 2475000, AEL21.02 5 100010001, 100510821, 168744821, 130232522, 69012813, 7390000, FAK21.03 6 555157161, 585662471, 82816862, 42510013, 168423663, 9200000, FAK21.04 7 181021172, 260333222, 430155582, 710089242, 110213293, 681900, D+F22.00 8 474659872, 721284672, 98211413, 134515623, 177919963, 1356900, D+F22.01 9 228327012, 308134272, 381143862, 534563472, 734983512, 2747000/ D+F22.02 DATA NNN13/ 1 971498311, 99210032, 102610572, 108711172, 114711782, 4324000, D+F22.03 2 100010001, 100510821, 168744821, 130232522, 69012813, 9980000, FAK22.04 3 272835172, 425851532, 632278322, 97212013, 146817723, 674000, AEL23.00 4 373954132, 743597002, 121414713, 173920143, 229225713, 1464900, AEL23.01 5 323142642, 519660272, 679975352, 824789522, 96610363, 2930900, AEL23.02 6 248329302, 324234952, 373439752, 421744582, 469949412, 4800000, AEL23.03 7 970698231, 990699881, 100710152, 102410322, 104010482, 6500000, AEL23.04 8 717277611, 92911652, 152620872, 295141952, 550468122, 676400, D+F24.00 9 71611552, 205635512, 558281952, 115315823, 205625293, 1649000/ D+F24.01 DATA NNN14/ 1 280639822, 538369722, 87610823, 129115003, 170919183, 3095000, D+F24.02 2 377150952, 616070292, 791788382, 97610683, 116012523, 5000000, D+F24.03 3 264730962, 341436462, 394042872, 463549832, 533056782, 7300000, D+F24.04 4 600060321, 629270891, 86911302, 151020222, 267534752, 743100, AEL25.00 5 739594821, 139921212, 309342852, 567372412, 97112553, 1563600, AEL25.01 6 98417472, 265535782, 454754842, 641973532, 828792212, 3369000, AEL25.02 7 328847052, 586668342, 771785912, 94710343, 112112093, 5300000, AEL25.03 8 422055132, 636770792, 779285062, 921999322, 106411363, 7600000, AEL25.04 9 197023222, 274433302, 416753952, 723799822, 139419053, 787038/ D+F26.00 DATA NNN15/ 1 409453722, 686687452, 110213823, 174322233, 286437043, 1617902, D+F26.01 2 262136422, 501167232, 87911303, 138916483, 190721673, 3064300, D+F26.02 3 98723522, 420363072, 87011423, 145117913, 215925463, 5700000, AEL26.03 4 388854482, 666275742, 846693572, 102511143, 120312923, 7900000, D+F26.04 5 199427202, 335740022, 474957182, 708090462, 118315403, 786000, D+F27.00 6 279739202, 490858232, 684582472, 104713233, 159818733, 1704900, D+F27.01 7 279836622, 461857562, 720693022, 124915873, 192522633, 3349000, D+F27.02 8 262136422, 501167232, 87911303, 138916483, 190821673, 5300000, FAK27.03 9 98723522, 420363072, 87011423, 145117913, 215925463, 8300000/ FAK27.04 DATA NNN16/ 1 227027622, 306233052, 356839222, 446052912, 652382292, 763314, D+F28.00 2 108416342, 222428472, 353944332, 577378932, 110314303, 1814900, D+F28.01 3 198724282, 293236452, 468362702, 86511123, 136016073, 3516000, D+F28.02 4 279836622, 461857562, 720693022, 124915873, 192522633, 5600000, FAK28.03 5 262136422, 501167232, 87911303, 138916483, 190721673, 7900000, FAK28.04 6 201620781, 231026761, 314737361, 450555381, 692386911, 772301, D+F29.00 7 109415761, 247938311, 58910042, 190937022, 68311693, 2028903, D+F29.01 8 897195961, 107212972, 165021182, 260230862, 356940532, 3682900, D+F29.02 9 100010001, 100410231, 108712611, 167124841, 388460411, 939102/ D+F30.00 DATA NNN17/ 1 200020021, 201620761, 223726341, 351352061, 80812472, 1796001, D+F30.01 2 100510471, 122617301, 300566361, 149924112, 332342352, 3970000, D+F30.02 3 403245601, 493151431, 529654331, 559358091, 611065171, 600000, AEL31.00 4 99710051, 104511541, 135016501, 208226431, 321837921, 2050900, AEL31.01 5 199820071, 204521391, 229124761, 266028451, 302932131, 3070000, AEL31.02 6 502665261, 755183501, 901496201, 102410942, 117912812, 787900, AEL32.00 7 422848161, 512153401, 557458941, 636270361, 794489061, 1593000, AEL32.01 8 100010261, 114613921, 175221251, 249828711, 324436181, 3421000, AEL32.02 9 403143241, 491856701, 649173781, 840396751, 113013392, 981000/ AEL33.00 DATA NNN18/ 1 593676641, 884697521, 105911572, 129515012, 180322212, 1858700, AEL33.01 2 484470541, 91510972, 125614082, 157017612, 199722912, 2829900, AEL33.02 3 630172361, 799686381, 919797221, 102810942, 117712832, 975000, AEL34.00 4 438055511, 691582151, 94510732, 121413672, 152016732, 2150000, AEL34.01 5 651982921, 94610382, 113212492, 139515462, 169718482, 3200000, AEL34.02 6 437347431, 498951671, 538559501, 74710812, 169126672, 1183910, D+F35.00 7 705183611, 93510092, 111614162, 222932532, 427652992, 2160000, D+F35.01 8 510869921, 87410312, 123116552, 236530712, 377744832, 3590000, D+F35.02 9 100010001, 100010051, 105012781, 198535971, 65911422, 1399507/ D+F36.00 DATA NNN19/ 1 461049811, 522254261, 609088131, 168935052, 68612253, 2455908, D+F36.01 2 759990901, 101911142, 129017782, 302856642, 99414333, 3690000, D+F36.02 3 200020011, 200720361, 211523021, 269434141, 459163351, 417502, D+F37.00 4 100010001, 100110321, 129524961, 61014202, 291753192, 2750004, D+F37.01 5 473650891, 533156051, 66810932, 232950852, 99915303, 4000000, D+F37.02 6 100110041, 104111741, 146019721, 281941411, 607785251, 569202, D+F38.00 7 202621931, 255331271, 384347931, 624085761, 122417632, 1102600, D+F38.01 8 100010001, 100110321, 129524961, 61014202, 291753192, 4300000, FAK38.02 9 791587851, 100012192, 155119942, 254031782, 389946932, 637900/ AEL39.00 DATA NNN20/ 1 118217102, 220827002, 319036792, 416646512, 513256072, 1223000, AEL39.01 2 92510012, 104710862, 112311612, 120212472, 132814282, 2050000, AEL39.02 3 141320802, 291439702, 531170262, 92712273, 162521053, 684000, D+F40.00 4 354454352, 724689652, 107212643, 148517093, 193321573, 1312900, D+F40.01 5 209727032, 324537052, 415446282, 510255752, 604965222, 2298000, D+F40.02 6 256636022, 465759302, 749693962, 116514243, 171520333, 687900, AEL41.00 7 335157222, 84511463, 147718363, 221826083, 299933893, 1431900, AEL41.01 8 289742562, 555768442, 819296482, 112312923, 146916533, 2503900, AEL41.02 9 703972941, 82610822, 154822682, 327244912, 571469372, 709900/ D+F42.00 DATA NNN21/ 1 75714552, 274347322, 718897632, 123414913, 174920063, 1614900, D+F42.01 2 267645462, 669890262, 115514323, 173620673, 242528083, 2714900, AEL42.02 3 90613732, 184823562, 291735332, 419949102, 565764332, 728000, AEL43.00 4 131318312, 227126932, 311735452, 397644072, 483852692, 1525900, AEL43.01 c 7jun04 error found by John Laird c 5 204721673, 234725733, 284031463, 348738613, 426546943, 3000000, AEL43.02 c 22jun05 error found by K.Bischof c 5 600460071, 607964351, 731488341, 110013701, 168420311, 3000000, AEL43.02 5 600460071, 607964351, 731488341, 110013702, 168420312, 3000000, AEL43.02 6 176824122, 318941082, 515263202, 761790472, 106112303, 736400, AEL44.00 7 221934642, 501968372, 88911173, 136316243, 189221613, 1675900, AEL44.01 8 210622722, 241025422, 267928262, 297731272, 327834282, 2846000, AEL44.02 9 148520202, 255230902, 364942462, 489656082, 638872352, 746000/ AEL45.00 DATA NNN22/ 1 153421292, 288137912, 484660322, 720187062, 101011483, 1807000, AEL45.01 2 254537212, 492362292, 770592182, 107312243, 137615273, 3104900, AEL45.02 3 115919651, 320746011, 607576761, 95011642, 141817172, 832900, AEL46.00 4 755087211, 105913442, 173122222, 282034722, 412247732, 1941900, AEL46.01 5 180223462, 289735212, 414247632, 538460052, 662672472, 3292000, AEL46.02 6 200020001, 200220141, 206422141, 257633021, 455164681, 757403, D+F47.00 7 100810581, 125817401, 260641031, 66210072, 135316982, 2148000, D+F47.01 8 795887491, 97711762, 156620252, 248329422, 340038582, 3481900, D+F47.02 9 100010001, 100410241, 109212891, 176827421, 444268771, 899003/ D+F48.00 DATA NNN23/ 1 200020021, 201720921, 233329881, 451475371, 127520782, 1690301, D+F48.01 2 100310281, 114815371, 246138311, 519265531, 791492761, 3747000, D+F48.02 3 252431921, 368440461, 433746521, 512259221, 723389021, 578400, D+F49.00 4 100110071, 104611651, 146118581, 225426511, 304734431, 1886000, D+F49.01 5 200120111, 205021611, 243628031, 317035371, 390442701, 2802900, D+F49.02 6 232637101, 488058571, 669074381, 816189091, 97210632, 734200, AEL50.00 7 286335941, 408144471, 479351961, 571862901, 686274341, 1462700, AEL50.01 8 100010251, 114013811, 175321601, 256829751, 338337901, 3049000, AEL50.02 9 404043481, 494656811, 646772781, 813490751, 101411372, 863900/ AEL51.00 DATA NNN24/ 1 303147981, 618472951, 827392621, 103711702, 131214532, 1650000, AEL51.01 2 313037601, 429347901, 536260591, 689477591, 862494881, 2529900, AEL51.02 3 526258801, 657372351, 784284071, 897095741, 102711082, 900900, AEL52.00 4 440855541, 686481251, 93810792, 125414792, 176321132, 1860000, AEL52.01 5 349054751, 699883081, 96611302, 134216202, 197724212, 2800000, AEL52.02 6 405342041, 438645621, 475751071, 587974491, 102214572, 1045404, D+F53.00 7 568567471, 773485861, 94510362, 112712182, 130914002, 1909000, D+F53.01 8 514269581, 86910562, 130716652, 215327742, 351843662, 3200000, AEL53.02 9 100010001, 100010091, 109515351, 291060661, 119621482, 1212716/ D+F54.00 DATA NNN25/ 1 414844131, 465649111, 538464651, 87112232, 158019362, 2120000, D+F54.01 2 615475101, 867797531, 112213462, 157618062, 203622662, 3209900, D+F54.02 3 200020001, 201020501, 215623871, 283536181, 462756261, 389300, D+F55.00 4 100010001, 100310371, 119016501, 269146361, 77912412, 2510000, D+F55.01 5 424445601, 481750061, 516953311, 549356551, 581759791, 3500000, D+F55.02 6 101210791, 135119351, 282340571, 574580391, 111015062, 521002, D+F56.00 7 262638611, 504160621, 698579371, 91010692, 129115952, 1000000, D+F56.01 8 100010001, 100310351, 118416321, 264945521, 76512182, 3700000, FAK56.02 9 71111992, 172323592, 312540402, 510763182, 765791012, 558000/ AEL57.00 DATA NNN26/ 1 204529582, 383647882, 582469262, 807992692, 104911723, 1106000, AEL57.01 2 94712552, 148416582, 179819212, 203621522, 227424042, 1916900, AEL57.02 3 295959132, 103515693, 215527593, 335939413, 449650223, 565000, AEL58.00 4 79718153, 289639443, 495159253, 686877533, 863794813, 1085000, AEL58.01 5 298640242, 475053692, 596965912, 725379692, 872094692, 2008000, AEL58.02 6 460693672, 158523823, 327242303, 519661563, 709379783, 541900, FAK59.00 7 455480232, 114014653, 178521013, 240927073, 299232633, 1055000, AEL59.01 8 46410533, 183826893, 354443773, 518459633, 674375243, 2320000, AEL59.02 9 139623042, 364860002, 96114603, 209828633, 373446973, 549000/ AEL60.00 DATA NNN27/ 1 460493692, 158523823, 327142303, 519661563, 709279783, 1073000, AEL60.01 2 455480232, 114014653, 178521013, 240927073, 299232633, 2000000, FAK60.02 3 131720482, 280535692, 441254492, 676583972, 103412583, 555000, AEL61.00 4 139623042, 364860002, 96114603, 209828633, 373446973, 1089900, FAK61.01 5 460493682, 158523823, 327142303, 519661563, 709279783, 2000000, FAK61.02 6 92915672, 222431062, 444763802, 89612173, 159520253, 562900, AEL62.00 7 315059662, 97114563, 204627093, 342541693, 490556383, 1106900, AEL62.01 8 269037812, 520270372, 91111273, 133915483, 172719093, 2000000, AEL62.02 9 800080571, 851699301, 127617362, 240433032, 444958442, 568000/ AEL63.00 DATA NNN28/ 1 125416052, 211828182, 375549622, 644381732, 101112213, 1125000, AEL63.01 2 800080571, 851699301, 127617362, 240433032, 444958442, 2000000, FAK63.02 3 240432982, 427555202, 708489962, 112613853, 167319843, 615900, AEL64.00 4 534793262, 139219123, 247730843, 371043333, 495055893, 1210000, AEL64.01 5 364145232, 514756362, 604864112, 673870372, 732276072, 2000000, AEL64.02 6 480767202, 89011393, 144118243, 230028753, 354142883, 584900, AEL65.00 7 480767192, 89011393, 144118243, 230028753, 354142883, 1151900, FAK65.01 8 480767202, 89011393, 144118243, 230028753, 354142883, 2000000, FAK65.02 9 343147532, 645887152, 115314793, 183322063, 257729373, 593000/ FAK66.00 DATA NNN29/ 1 343147532, 645887142, 115314793, 183322063, 257729373, 1167000, AEL66.01 2 343147532, 645887142, 115314793, 183322063, 257729373, 2000000, FAK66.02 3 222635002, 542276772, 100312353, 145716713, 187020703, 602000, FAK67.00 4 222635002, 542276772, 100312353, 145716713, 187020703, 1180000, FAK67.01 5 222635002, 542276772, 100312353, 145716713, 187020703, 2000000, AEL67.02 6 133715382, 209130152, 429859382, 79410293, 129815983, 609900, AEL68.00 7 265934782, 497877532, 120517733, 245032063, 400448073, 1193000, AEL68.01 8 265934782, 497877532, 120517733, 245032063, 400448073, 2000000, FAK68.02 9 800381111, 87510702, 147621462, 310343462, 585475982, 618000/ AEL69.00 DATA NNN30/ 1 156718872, 279244452, 678196342, 128316243, 197823443, 1205000, AEL69.01 2 93517192, 364666132, 103414613, 192624193, 293334613, 2370000, AEL69.02 3 100010011, 101310651, 118613951, 169120661, 250629971, 625000, AEL70.00 4 200120901, 270345231, 81714042, 223533112, 461959862, 1217000, AEL70.01 5 100312561, 250851931, 91914182, 198626022, 323638692, 2000000, AEL70.02 6 514664441, 759086851, 99211442, 133315612, 182721252, 609900, AEL71.00 7 125924831, 438667801, 98714112, 199727872, 380850742, 1389900, AEL71.01 8 323948621, 661297271, 158626482, 426865032, 93712843, 1900000, AEL71.02 9 659294081, 128016962, 222528952, 372047062, 585171462, 700000/ AEL72.00 DATA NNN31/ 1 99117882, 274638812, 520867322, 84410313, 123314453, 1489900, AEL72.01 2 187427702, 343739872, 448049452, 539358282, 625266642, 2329900, AEL72.02 3 65210892, 171325762, 373552252, 705192012, 116414343, 787900, AEL73.00 4 192837842, 600784802, 111113823, 165419233, 218524383, 1620000, AEL73.01 5 99117872, 274638812, 520867312, 84410313, 123314453, 2400000, FAK73.02 6 398981651, 130019172, 273438022, 516168382, 88411163, 797900, AEL74.00 7 131429482, 523279952, 111414623, 183422233, 262130233, 1770000, AEL74.01 8 192837842, 600784792, 111113823, 165419233, 218524383, 2500000, FAK74.02 9 600963001, 75910412, 150121572, 301940972, 539168952, 787000/ AEL75.00 DATA NNN32/ 1 73710852, 190731262, 464964142, 83810503, 127315053, 1660000, AEL75.01 2 131429482, 523279952, 111414623, 183422233, 262130233, 2600000, FAK75.02 3 110815502, 216829732, 398752322, 672484682, 104612673, 850000, AEL76.00 4 168225972, 362046562, 566766422, 757484612, 93010103, 1700000, AEL76.01 5 73710852, 190731262, 464964142, 83810503, 127315053, 2700000, FAK76.02 6 129117892, 239430882, 388748292, 596173252, 89510843, 910000, AEL77.00 7 110815502, 216829732, 398752322, 672484682, 104612673, 2000000, FAK77.01 8 168225972, 362046562, 566766422, 757484612, 93010103, 2800000, FAK77.02 9 158918512, 207523002, 254328242, 316335762, 407246582, 900000/ AEL78.00 DATA NNN33/ 1 98115462, 224930742, 401150612, 623475412, 89910583, 1855900, AEL78.01 2 110815502, 216829732, 398752322, 672484682, 104612673, 2900000, FAK78.02 3 203222611, 265731251, 364042301, 494958601, 702084731, 922000, AEL79.00 4 120521331, 357753801, 75310052, 130516572, 206925452, 2050000, AEL79.01 5 651780821, 108814772, 195925252, 316338622, 460853882, 3000000, AEL79.02 6 100010001, 100110111, 105211851, 152122101, 341552811, 1043002, D+F80.00 7 200320211, 210023021, 268834231, 480472341, 111416912, 1875000, D+F80.01 8 104012871, 186129471, 458664151, 82410072, 119013732, 3420000, D+F80.02 9 200420711, 222424271, 265429161, 325637371, 442853911, 610500/ AEL81.00 DATA NNN34/ 1 100010021, 101910801, 121414641, 189525811, 358949721, 2041900, AEL81.01 2 200020311, 216624611, 296337451, 489064791, 85711212, 2979900, AEL81.02 3 103411711, 147819101, 244331781, 434862751, 93113762, 741404, D+F82.00 4 204122231, 248227841, 311535621, 429153941, 651976431, 1502800, D+F82.01 5 100210131, 106812201, 154522671, 381665951, 95512512, 3192900, D+F82.02 6 400140351, 416944121, 474851591, 564362181, 690477231, 728700, AEL83.00 7 106814451, 204427341, 350744811, 586879131, 108314772, 1667900, AEL83.01 8 205523051, 264830231, 345439921, 469156001, 675281671, 2555900, AEL83.02 9 500950661, 518153561, 559058941, 628968071, 748483501, 843000/ AEL84.00 DATA NNN35/ 1 443756241, 696282451, 95411012, 128615262, 182922012, 1900000, FAK84.01 2 336953201, 682481011, 93810882, 127915272, 184622442, 2700000, FAK84.02 3 402841621, 431544771, 463148311, 520059491, 734896851, 930000, FAK85.00 4 576168741, 788387631, 96910642, 116012552, 135014462, 2000000, FAK85.01 5 490265341, 812797201, 116614322, 179622692, 285035302, 2900000, FAK85.02 6 100010001, 100010031, 102311051, 133018071, 264539391, 1074500, AEL86.00 7 402841621, 431544771, 463148311, 520059491, 734996851, 2000000, FAK86.01 8 576168741, 788387631, 96910642, 116012552, 135014462, 3000000, FAK86.02 9 200020011, 201220591, 218124481, 296538611, 488859141, 400000/ FAK87.00 DATA NNN36/ 1 100010001, 100010031, 102311051, 133018071, 264539401, 2200000, FAK87.01 2 421645151, 477449611, 511852711, 542455761, 572958821, 3300000, FAK87.02 3 100010041, 105212131, 153220271, 270435641, 460258111, 527600, AEL88.00 4 201221791, 258131471, 381645781, 546365131, 777592781, 1014400, AEL88.01 5 100010001, 100010031, 102311051, 133018071, 264539391, 3400000, FAK88.02 6 510054491, 82710872, 142718412, 232328712, 348341572, 690000, AEL89.00 7 228951571, 88513232, 183324132, 305537492, 448152402, 1210000, AEL89.01 8 723989131, 103511752, 130814352, 155416652, 177018682, 2000000, AEL89.02 9 620099241, 162725772, 391457072, 80110833, 141818023, 600000/ AEL90.00 DATA NNN37/ 1 620099241, 162725772, 391457072, 80110833, 141818023, 1200000, FAK90.01 2 620099251, 162725772, 391457072, 80110833, 141818023, 2000000, FAK90.02 3 347877992, 129318323, 240730533, 380546863, 570368573, 600000, AEL91.00 4 347877992, 129318323, 240730533, 380546863, 570368573, 1200000, FAK91.01 5 347777992, 129318323, 240730533, 380546863, 570368573, 2000000, FAK91.02 6 209530092, 450866762, 96613623, 186524763, 318839893, 600000, AEL92.00 7 209530092, 450866762, 96613623, 186524763, 318839893, 1200000, FAK92.01 8 209530092, 450866762, 96613623, 186524763, 318839893, 2000000, FAK92.02 9 209530092, 450866762, 96613623, 186524763, 318839893, 600000/ FAK93.00 DATA NNN38/ 1 209530092, 450866762, 96613623, 186524763, 318839893, 1200000, FAK93.01 2 209530092, 450866762, 96613623, 186524763, 318839893, 2000000, FAK93.02 3 209530092, 450866762, 96613623, 186524763, 318839893, 600000, FAK94.00 4 209530092, 450866762, 96613623, 186524763, 318839893, 1200000, FAK94.01 5 209530092, 450866762, 96613623, 186524763, 318839893, 2000000, FAK94.02 6 209530092, 450866762, 96613623, 186524763, 318839893, 600000, FAK95.00 7 209530092, 450866762, 96613623, 186524763, 318839893, 1200000, FAK95.01 8 209530092, 450866762, 96613623, 186524763, 318839893, 2000000, FAK95.02 9 209530092, 450866762, 96613623, 186524763, 318839893, 600000/ FAK96.00 DATA NNN39/ 1 209530092, 450866762, 96613623, 186524763, 318839893, 1200000, FAK96.01 2 209530092, 450866762, 96613623, 186524763, 318839893, 2000000, FAK96.02 3 209530092, 450866762, 96613623, 186524763, 318839893, 600000, FAK97.00 4 209530092, 450866762, 96613623, 186524763, 318839893, 1200000, FAK97.01 5 209530092, 450866762, 96613623, 186524763, 318839893, 2000000, FAK97.02 6 209530092, 450866762, 96613623, 186524763, 318839893, 600000, FAK98.00 7 209530092, 450866762, 96613623, 186524763, 318839893, 1200000, FAK98.01 8 209530092, 450866762, 96613623, 186524763, 318839893, 2000000, FAK98.02 9 209530092, 450866762, 96613623, 186524763, 318839893, 600000/ FAK99.00 DATA NNN40/ 1 209530092, 450866762, 96613623, 186524763, 318839893, 1200000, FAK99.01 2 209530092, 450866762, 96613623, 186524763, 318839893, 2000000/ FAK99.02 DATA NNN67/ 1 893292271, 96110042, 105311262, 126315202, 196126432, 1125508, D+F 6.00 2 595060251, 620865751, 713280191, 95712292, 167623542, 2437501, D+F 6.01 3 105513201, 180324851, 341851341, 88416332, 296550722, 4787101, D+F 6.02 4 204922771, 262630421, 350941931, 494556971, 644872001, 6447600, D+F 6.03 5 100010001, 100010001, 100010001, 100010001, 100010001, 39207700, G 6.04 6 200020001, 200020001, 200020001, 200020001, 200020001, 48998100, G 6.05 7 403141851, 457051681, 594071181, 92913362, 203331152, 1452915, D+F 7.00 8 919899541, 107211512, 124914302, 182526232, 403762662, 2959202, D+F 7.01 9 596862721, 684177081, 88110342, 128317062, 239334312, 4742501, D+F 7.02 T 112816481, 240733751, 462068491, 116419932, 283736822, 7744900, D+F 7.03 1 210124681, 293634211, 391145791, 539862151, 703178471, 9786200, D+F 7.04 2 100010001, 100010001, 100010001, 100010001, 100010001, 55205700/ G 7.05 DATA LOCZ/1,3,6,10,14,18,22,27,33,39,45,51,57,63,69,75,81,86,91, 196,101,106,111,116,121,126,131,136,141/ DATA SCALE/.001,.01,.1,1./ C MODE1=MODE IF(MODE1.GT.10)MODE1=MODE1-10 C LOWERING OF THE IONIZATION POTENTIAL IN VOLTS FOR UNIT ZEFF DEBYE=SQRT(TK(J)/12.5664/4.801E-10**2/CHARGESQ(J)) POTLOW=DMIN1(1.D0,1.44E-7/DEBYE) TV=TKEV(J) IF(IZ.LE.28)N=LOCZ(IZ) IF(IZ.GT.28)N=3*IZ+54 IF(IZ.LE.28)NIONS=LOCZ(IZ+1)-N IF(IZ.GT.28)NIONS=3 IF(IZ.EQ.6)N=354 IF(IZ.EQ.6)NIONS=6 IF(IZ.EQ.7)N=360 IF(IZ.EQ.7)NIONS=6 IF(IZ.GE.20.AND.IZ.LT.29)NIONS=10 NION2=MIN0(NION+2,NIONS) N=N-1 C DO 18 ION=1,NION2 Z=ION POTLO(ION)=POTLOW*Z N=N+1 NNN100=NNN(6,N)/100 C IP(ION)=DFLOAT(NNN100)/1000. IF(IZ.LE.30)INDEX=(IZ*(IZ+1))/2+ION-1 IF(IZ.GT.30)INDEX=IZ*5+341+ION-1 IP(ION)=POTION(INDEX)/8065.479 IF(IP(ION).EQ.0.)IP(ION)=POTION(INDEX-1)/8065.479 C IF(IZ.GE.20.AND.IZ.LT.29)THEN CALL PFIRON(IZ,ION,TLOG(J)/2.30258509299405, 1POTLO(ION)*8065.479,PART(ION)) GO TO 18 ENDIF C G=NNN(6,N)-NNN100*100 IF(N.EQ.1)GO TO 16 T2000=IP(ION)*2000./11. IT=MAX0(1,MIN0(9, INT(T(J)/T2000-.5))) DT=T(J)/T2000-DFLOAT(IT)-.5 PMIN=1. I=(IT+1)/2 K1=NNN(I,N)/100000 K2=NNN(I,N)-K1*100000 K3=K2/10 KSCALE=K2-K3*10 IF(MOD(IT,2).EQ.0)GO TO 12 P1=DFLOAT(K1)*SCALE(KSCALE) P2=DFLOAT(K3)*SCALE(KSCALE) IF(DT.GE.0.)GO TO 13 IF(KSCALE.GT.1)GO TO 13 KP1=P1 IF(KP1.NE. INT(P2+.5))GO TO 13 PMIN=KP1 GO TO 13 12 P1=DFLOAT(K3)*SCALE(KSCALE) K1=NNN(I+1,N)/100000 KSCALE=MOD(NNN(I+1,N),10) P2=DFLOAT(K1)*SCALE(KSCALE) 13 PART(ION)=DMAX1(PMIN,P1+(P2-P1)*DT) CCCCCCCCCC C IF(T(J).LT.T2000*1.5)THEN C NELION=(IZ-1)*6+ION C IF(PFGROUND(NELION,T(J)).GT.1)PART(ION)=PFGROUND(NELION,T(J)) C GO TO 18 C ENDIF CCCCCCCCCC C patch 14jun2004 after John Laird C in case PFGROUND is larger than PFSAHA IF(T(J).LT.T2000*2.0)THEN NELION=(IZ-1)*6+ION PART(ION)=MAX(PFGROUND(NELION,T(J)),PART(ION)) GO TO 18 ENDIF CCCCCCCCCC IF(G.EQ.0..OR.POTLO(ION).LT..1.OR.T(J).LT.T2000*4.)GO TO 18 IF(T(J).GT.(T2000*11.))TV=(T2000*11.)*8.6171E-5 D1=.1/TV 14 D2=POTLO(ION)/TV PART(ION)=PART(ION)+G*EXP(-IP(ION)/TV)*(SQRT(13.595*Z*Z/TV/D2)**3* 1(1./3.+(1.-(.5+(1./18.+D2/120.)*D2)*D2)*D2)- 2SQRT(13.595*Z*Z/TV/D1)**3* 3(1./3.+(1.-(.5+(1./18.+D1/120.)*D1)*D1)*D1)) TV=TKEV(J) GO TO 18 16 PART(1)=2.*BHYD(J,1) C IF(T(J).LT.9000.)GO TO 18 PART(1)=PART(1)+8.*BHYD(J,2)*EXP(-10.196/TV)+18.*BHYD(J,3)* 1EXP(-12.084/TV)+32.*BHYD(J,4)*EXP(-12.745/TV)+50.*BHYD(J,5)* 2EXP(-13.051/TV)+72.*BHYD(J,6)*EXP(-13.217/TV) D1=13.595/6.5/6.5/TV D2=POTLO(1)/TV GO TO 14 18 CONTINUE C 19 IF(MODE1.EQ.3)GO TO 35 IF(MODE1.EQ.5)GO TO 50 C N=N-NION2 CF=2.*2.4148E15*T(J)*SQRT(T(J))/XNE(J) DO 20 ION=2,NION2 N=N+1 20 F(ION)=CF*PART(ION)/PART(ION-1)*EXP(-(IP(ION-1)-POTLO(ION-1))/TV) F(1)=1. L=NION2+1 DO 21 ION=2,NION2 L=L-1 21 F(1)=1.+F(L)*F(1) F(1)=1./F(1) DO 22 ION=2,NION2 22 F(ION)=F(ION-1)*F(ION) C 35 IF(MODE.LT.10)GO TO 40 GO TO(23,25,27,29),MODE1 23 DO 24 ION=1,NION 24 ANSWER(J,ION)=F(ION)/PART(ION) RETURN 25 DO 26 ION=1,NION 26 ANSWER(J,ION)=F(ION) RETURN 27 DO 28 ION=1,NION 28 ANSWER(J,ION)=PART(ION) RETURN 29 ANSWER(J,1)=0. DO 30 ION=2,NION2 30 ANSWER(J,1)=ANSWER(J,1)+F(ION)*DFLOAT(ION-1) RETURN 40 GO TO(41,42,43,29),MODE1 41 ANSWER(J,1)=F(NION)/PART(NION) RETURN 42 ANSWER(J,1)=F(NION) RETURN 43 ANSWER(J,1)=PART(NION) RETURN 50 ANSWER(32,1)=0. DO 51 ION=1,NION ANSWER(ION,1)=PART(ION) 51 ANSWER(ION+32,1)=IP(ION)+ANSWER(ION+31,1) RETURN END SUBROUTINE MOLEC(CODOUT,MODE,NUMBER) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) DIMENSION NUMBER(kw,1) REAL*8 NUMBER COMMON /ELEM/ABUND(99),ATMASS(99),YABUND(99),ELEM(99) CHARACTER*2 ELEM COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,IFMOL,IFREADLINES COMMON /JUNK/TITLE(74),FREQID(6),WLTE,XSCALE,INPUTDATA COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) COMMON /XNMOL/XNMOL(kw,160) COMMON /IFEQUA/IFEQUA(101),KCOMPS(450),LOCJ(161),CODE(160), 1 EQUIL(6,160),IDEQUA(25),NEQUA,NUMMOL,NLOC COMMON /IFPOP/IFPOP DATA IREAD/0/ IF(IFPOP.EQ.2)GO TO 200 IF(IREAD.EQ.1)GO TO 200 IF(IFPRES.EQ.1)GO TO 200 READ(INPUTDATA,151)NUMMOL 151 FORMAT(I5) DO 155 JMOL=1,NUMMOL READ(INPUTDATA,152)CODE(JMOL) 152 FORMAT(F20.2) READ(INPUTDATA,153)(XNMOL(J,JMOL),J=1,NRHOX) 153 FORMAT(1P8E10.3) WRITE(6,154)CODE(JMOL),(XNMOL(J,JMOL),J=1,NRHOX) 154 FORMAT(F20.2/(1P8E10.3)) 155 CONTINUE READ(INPUTDATA,158) READ(INPUTDATA,158)(XNATOM(J),RHO(J),J=1,NRHOX) WRITE(6,158)(XNATOM(J),RHO(J),J=1,NRHOX) 158 FORMAT(1P8E10.3) READ(INPUTDATA,158) READ(INPUTDATA,158)(XNE(J),J=1,NRHOX) WRITE(6,158)(XNE(J),J=1,NRHOX) IREAD=1 200 IF(CODOUT.LT.100.)GO TO 300 DO 201 JMOL=1,NUMMOL IF(CODE(JMOL).EQ.CODOUT)GO TO 203 201 CONTINUE WRITE(6,202)CODOUT 202 FORMAT(22H1BETTER LUCK NEXT TIMEF20.2) CALL EXIT 203 DO 204 J=1,NRHOX C 204 NUMBER(J,ION)=XNMOL(J,JMOL) 204 NUMBER(J,1)=XNMOL(J,JMOL) RETURN 300 C=CODOUT NN=1 IF(MODE.EQ.11)NN=(C-DFLOAT( INT(C)))*100.+1.5 DO 321 I=1,NN DO 301 JMOL=1,NUMMOL ION=NN-I+1 IF(CODE(JMOL)+.001.GT.C.AND.CODE(JMOL)-.001.LT.C)GO TO 303 301 CONTINUE GO TO 305 303 DO 304 J=1,NRHOX 304 NUMBER(J,ION)=XNMOL(J,JMOL) GO TO 321 305 ID=CODOUT DO 311 JMOL=1,NUMMOL IF( INT(CODE(JMOL)).EQ.ID)GO TO 313 311 CONTINUE GO TO 400 313 DO 314 J=1,NRHOX 314 NUMBER(J,ION)=0. 321 C=C-.01 RETURN 400 ION=(CODOUT-DFLOAT(ID))*100.+1.5 NN=ION IF(MODE.EQ.1)NN=1 DO 401 J=1,NRHOX CALL PFSAHA(J,ID,ION,MODE,NUMBER) DO 401 I=1,NN 401 NUMBER(J,I)=NUMBER(J,I)*XNATOM(J)*XABUND(J,ID) RETURN END SUBROUTINE NMOLEC(MODE) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /EDENS/EDENS(kw),IFEDNS COMMON /ELEM/ABUND(99),ATMASS(99),YABUND(99),ELEM(99) CHARACTER*2 ELEM COMMON /ITER/ ITER,IFPRNT(60),IFPNCH(60),NUMITS COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) COMMON /XNSAVE/XNSAVE(kw,25) DIMENSION PFP(61),PFM(61),EION(30),PFPLUS(kw),PFMIN(kw) EQUIVALENCE (PFP(32),EION(1)) DIMENSION EQUILJ(160) DIMENSION XNZ(kw,25) DIMENSION EQ(25),XN(25),XAB(25),DTERM(25),DEQ(625) DIMENSION FRAC(kw,6) EQUIVALENCE (FRAC(1),DEQ(1)) DIMENSION EQOLD(25) COMMON /XNMOL/XNMOL(kw,160) COMMON /IFEQUA/IFEQUA(101),KCOMPS(450),LOCJ(161),CODE(160), 1 EQUIL(6,160),IDEQUA(25),NEQUA,NUMMOL,NLOC NEQUA1=NEQUA+1 NEQNEQ=NEQUA**2 C C THIS VERSION HAS ABUNDANCES CONSTANT WITH DEPTH J=1 DO 31 K=2,NEQUA ID=IDEQUA(K) IF(ID.LT.100)XAB(K)=DMAX1(XABUND(J,ID),1.D-20) 31 CONTINUE IF(ID.EQ.100)XAB(NEQUA)=0. XNTOT=P(1)/TK(1) XN(1)=XNTOT/2. IF(T(1).LT.4000.)XN(1)=XNTOT X=XN(1)/10. DO 32 K=2,NEQUA 32 XN(K)=X*XAB(K) IF(ID.EQ.100)XN(NEQUA)=X XNE(1)=X DO 110 J=1,NRHOX XNTOT=P(J)/TK(J) IF(J.EQ.1)GO TO 34 RATIO=P(J)/P(J-1) XNE(J)=XNE(J-1)*RATIO DO 33 K=1,NEQUA 33 XN(K)=XN(K)*RATIO 34 IF(IFEDNS.EQ.0)GO TO 3334 DO 3333 K=1,NEQUA 3333 XN(K)=XNSAVE(J,K) 3334 CONTINUE DO 37 JMOL=1,NUMMOL NCOMP=LOCJ(JMOL+1)-LOCJ(JMOL) IF(EQUIL(1,JMOL).EQ.0.)GO TO 35 ION=(CODE(JMOL)-DFLOAT( INT(CODE(JMOL))))*100.+.5 EQUILJ(JMOL)=0. IF(T(J).GT.10000.)GO TO 37 IF(CODE(JMOL).EQ.101.)THEN EQUILJ(JMOL)=EXP(4.478/TKEV(J)-4.64584E1+ 1(1.63660E-3+(-4.93992E-7+(1.11822E-10+(-1.49567E-14+ 2(1.06206E-18-3.08720E-23*T(J))*T(J))*T(J))*T(J))*T(J))*T(J)- 3 1.5*TLOG(J)) ELSE EQUILJ(JMOL)=EXP(EQUIL(1,JMOL)/TKEV(J)-EQUIL(2,JMOL)+ 1(EQUIL(3,JMOL)+(-EQUIL(4,JMOL)+(EQUIL(5,JMOL)-EQUIL(6,JMOL)* 2T(J))*T(J))*T(J))*T(J)-1.5*(DFLOAT(NCOMP-ION-ION-1))*TLOG(J)) ENDIF GO TO 37 35 IF(NCOMP.GT.1)GO TO 36 EQUILJ(JMOL)=1. GO TO 37 36 ID=CODE(JMOL) ION=NCOMP-1 CALL PFSAHA(J,ID,NCOMP,12,FRAC) EQUILJ(JMOL)=FRAC(J,NCOMP)/FRAC(J,1)*XNE(J)**ION 37 CONTINUE DO 48 K=1,NEQUA 48 EQOLD(K)=0. C C SET UP 1ST ORDER EQUATIONS FOR THE CHANGE IN NUMBER DENSITY OF C EACH ELEMENT. 50 DO 60 KL=1,NEQNEQ 60 DEQ(KL)=0. EQ(1)=-XNTOT K1=1 KK=1 DO 61 K=2,NEQUA EQ(1)=EQ(1)+XN(K) K1=K1+NEQUA C K1 IS ACTUALLY 1K DEQ(K1)=1. EQ(K)=XN(K)-XAB(K)*XN(1) KK=KK+NEQUA1 DEQ(KK)=1. 61 DEQ(K)=-XAB(K) IF(IDEQUA(NEQUA).LT.100)GO TO 62 EQ(NEQUA)=-XN(NEQUA) DEQ(NEQNEQ)=-1. 62 CONTINUE DO 99 JMOL=1,NUMMOL NCOMP=LOCJ(JMOL+1)-LOCJ(JMOL) IF(NCOMP.EQ.1)GO TO 99 TERM=EQUILJ(JMOL) LOCJ1=LOCJ(JMOL) LOCJ2=LOCJ(JMOL+1)-1 DO 80 LOCK=LOCJ1,LOCJ2 K=KCOMPS(LOCK) IF(K.EQ.NEQUA1)GO TO 79 TERM=TERM*XN(K) GO TO 80 79 TERM=TERM/XN(NEQUA) 80 CONTINUE EQ(1)=EQ(1)+TERM DO 85 LOCK=LOCJ1,LOCJ2 K=KCOMPS(LOCK) IF(K.LT.NEQUA1)GO TO 81 K=NEQUA D=-TERM/XN(K) GO TO 82 81 D=TERM/XN(K) 82 EQ(K)=EQ(K)+TERM NEQUAK=NEQUA*K-NEQUA K1=NEQUAK+1 DEQ(K1)=DEQ(K1)+D DO 83 LOCM=LOCJ1,LOCJ2 M=KCOMPS(LOCM) IF(M.EQ.NEQUA1)M=NEQUA MK=M+NEQUAK 83 DEQ(MK)=DEQ(MK)+D 85 CONTINUE C C CORRECTION TO CHARGE EQUATION FOR NEGATIVE IONS K=KCOMPS(LOCJ2) IF(IDEQUA(K).NE.100)GO TO 99 DO 95 LOCK=LOCJ1,LOCJ2 K=KCOMPS(LOCK) D=TERM/XN(K) IF(K.EQ.NEQUA)EQ(K)=EQ(K)-TERM-TERM NEQUAK=NEQUA*K-NEQUA DO 93 LOCM=LOCJ1,LOCJ2 M=KCOMPS(LOCM) IF(M.NE.NEQUA)GO TO 93 MK=M+NEQUAK DEQ(MK)=DEQ(MK)-D-D 93 CONTINUE 95 CONTINUE C 99 CONTINUE C CALL SOLVIT(DEQ,NEQUA,EQ,DTERM) IFERR=0 SCALE=100. DO 105 K=1,NEQUA RATIO=ABS(EQ(K)/XN(K)) C IF(RATIO.GT..001)IFERR=1 IF(RATIO.GT..0001)IFERR=1 IF(EQOLD(K)*EQ(K).LT.0.)EQ(K)=EQ(K)*.69 XNEQ=XN(K)-EQ(K) XN100=XN(K)/100. IF(XNEQ.LT.XN100)GO TO 101 XN100=XN(K)*100. C IF(XNEQ.GT.XN100)GO TO 102 XN(K)=XNEQ GO TO 105 101 XN(K)=XN(K)/SCALE IF(EQOLD(K)*EQ(K).LT.0.)SCALE=SQRT(SCALE) GO TO 105 C 102 XN(K)=XN100 105 EQOLD(K)=EQ(K) IF(IFERR.EQ.1)GO TO 50 C DO 107 K=1,NEQUA 107 XNZ(J,K)=XN(K) XNATOM(J)=XN(1) RHO(J)=XNATOM(J)*WTMOLE(J)*1.660E-24 IF(IDEQUA(NEQUA).EQ.100)XNE(J)=XN(NEQUA) DO 109 JMOL=1,NUMMOL NCOMP=LOCJ(JMOL+1)-LOCJ(JMOL) XNMOL(J,JMOL)=EQUILJ(JMOL) LOCJ1=LOCJ(JMOL) LOCJ2=LOCJ(JMOL+1)-1 DO 109 LOCK=LOCJ1,LOCJ2 K=KCOMPS(LOCK) IF(K.EQ.NEQUA1)GO TO 108 XNMOL(J,JMOL)=XNMOL(J,JMOL)*XN(K) GO TO 109 108 XNMOL(J,JMOL)=XNMOL(J,JMOL)/XN(NEQUA) 109 CONTINUE 110 CONTINUE IF(IFEDNS.EQ.1)GO TO 160 DO 1111 K=1,NEQUA DO 1111 J=1,NRHOX 1111 XNSAVE(J,K)=XNZ(J,K) IF(ITER.LT.NUMITS)GO TO 120 WRITE(6,112)(J,RHOX(J),T(J),P(J),XNE(J),XNATOM(J),RHO(J), 1J=1,NRHOX) 112 FORMAT(1H1,10X,4HRHOX,9X,1HT,11X,1HP,10X,3HXNE,8X,6HXNATOM, 1 8X,3HRHO/(I5,1P6E12.3)) NN=(NUMMOL/10)*10 IF(NN.LT.NUMMOL)NN=NN+10 DO 111 JMOL1=1,NN,10 JMOL10=JMOL1+9 111 WRITE(6,113)(CODE(JMOL),JMOL=JMOL1,JMOL10),(J,(XNMOL(J,JMOL), 1JMOL=JMOL1,JMOL10),J=1,NRHOX) 113 FORMAT(1H1,49X,26HMOLECULAR NUMBER DENSITIES/5X,10F12.2/ 1(I5,1P10E12.3)) 120 IF(MODE.EQ.2.OR.MODE.EQ.12)GO TO 149 DO 125 K=2,NEQUA ID=IDEQUA(K) IF(ID.EQ.100)GO TO 122 DO 121 J=1,NRHOX C CALCULATE PARTITION FUNCTIONS CALL PFSAHA(J,ID,1,3,FRAC) 121 XNZ(J,K)=XNZ(J,K)/FRAC(J,1)/1.8786E20/SQRT((ATMASS(ID)*T(J))**3) GO TO 125 122 DO 123 J=1,NRHOX 123 XNZ(J,K)=XNZ(J,K)/2./2.4148E15/T(J)/SQRT(T(J)) 125 CONTINUE DO 140 JMOL=1,NUMMOL NCOMP=LOCJ(JMOL+1)-LOCJ(JMOL) IF(EQUIL(1,JMOL).EQ.0.)GO TO 135 DO 126 J=1,NRHOX C 126 XNMOL(J,JMOL)=EXP(EQUIL(1,JMOL)/T(J)) 126 XNMOL(J,JMOL)=EXP(EQUIL(1,JMOL)/TKEV(J)) AMASS=0. LOCJ1=LOCJ(JMOL) LOCJ2=LOCJ(JMOL+1)-1 DO 130 LOCK=LOCJ1,LOCJ2 K=KCOMPS(LOCK) IF(K.EQ.NEQUA1)GO TO 128 ID=IDEQUA(K) IF(ID.LT.100)AMASS=AMASS+ATMASS(ID) DO 127 J=1,NRHOX 127 XNMOL(J,JMOL)=XNMOL(J,JMOL)*XNZ(J,K) GO TO 130 128 DO 129 J=1,NRHOX 129 XNMOL(J,JMOL)=XNMOL(J,JMOL)/XNZ(J,NEQUA) 130 CONTINUE DO 131 J=1,NRHOX 131 XNMOL(J,JMOL)=XNMOL(J,JMOL)*1.8786E20*SQRT((AMASS*T(J))**3) GO TO 140 135 ID=CODE(JMOL) DO 136 J=1,NRHOX CALL PFSAHA(J,ID,NCOMP,3,FRAC) 136 XNMOL(J,JMOL)=XNMOL(J,JMOL)/FRAC(J,1) 140 CONTINUE 149 IF(IFPNCH(ITER).NE.5)RETURN WRITE(6,150) 150 FORMAT(1H1,20X,38HNUMBER DENSITIES / PARTITION FUNCTIONS) WRITE(6,151)NUMMOL WRITE(7,151)NUMMOL 151 FORMAT(I5,10H MOLECULES) DO 155 JMOL=1,NUMMOL WRITE(6,152)CODE(JMOL),(XNMOL(J,JMOL),J=1,NRHOX) WRITE(7,152)CODE(JMOL),(XNMOL(J,JMOL),J=1,NRHOX) 152 FORMAT(F20.2/(1P8E10.3)) 155 CONTINUE WRITE(6,158)(XNATOM(J),RHO(J),J=1,NRHOX) WRITE(7,158)(XNATOM(J),RHO(J),J=1,NRHOX) 158 FORMAT(11H XNATOM,RHO/(1P8E10.3)) RETURN 160 DO 161 J=1,NRHOX XNTOT=P(J)/TK(J) 161 EDENS(J)=1.5*XNTOT*TK(J) DO 180 JMOL=1,NUMMOL NCOMP=LOCJ(JMOL+1)-LOCJ(JMOL) IF(EQUIL(1,JMOL).EQ.0.)GO TO 175 C MOLECULES DO 166 J=1,NRHOX TPLUS=T(J)*1.001 TMINUS=T(J)*.999 IF(CODE(JMOL).EQ.101.)THEN C USE ACTUAL PARTITION FUNCTION T10000=T(J)/10000. TPLUS=T10000*1.001 TMINUS=T10000*.999 PFMIN(J)=EXP(0.582145+(16.3760+(-49.4684+(112.049+(-149.953+ 1 (106.531-30.9791*TMINUS)*TMINUS)*TMINUS)*TMINUS)*TMINUS)*TMINUS) 2+1.E-30 PFPLUS(J)=EXP(0.582145+(16.3760+(-49.4684+(112.049+(-149.953+ 1 (106.531-30.9791*TPLUS)*TPLUS)*TPLUS)*TPLUS)*TPLUS)*TPLUS) 2+1.E-30 ELSE C DETERMINE PARTITION FUNCTION FROM EQUILIBRIUM CONSTANT PFPLUS(J)=EXP(-EQUIL(2,JMOL)+ 1(EQUIL(3,JMOL)+(-EQUIL(4,JMOL)+(EQUIL(5,JMOL)-EQUIL(6,JMOL)* 2TPLUS)*TPLUS)*TPLUS)*TPLUS)+1.E-30 PFMIN(J)=EXP(-EQUIL(2,JMOL)+ 1(EQUIL(3,JMOL)+(-EQUIL(4,JMOL)+(EQUIL(5,JMOL)-EQUIL(6,JMOL)* 2TMINUS)*TMINUS)*TMINUS)*TMINUS)+1.E-30 ENDIF 166 CONTINUE IF(CODE(JMOL).EQ.101.)GO TO 172 LOCJ1=LOCJ(JMOL) LOCJ2=LOCJ(JMOL+1)-1 DO 170 LOCK=LOCJ1,LOCJ2 K=KCOMPS(LOCK) IF(K.EQ.NEQUA)GO TO 168 IF(K.GT.NEQUA)GO TO 180 ID=IDEQUA(K) DO 167 J=1,NRHOX T(J)=T(J)*1.001 TK(J)=TK(J)*1.001 TKEV(J)=TKEV(J)*1.001 CALL PFSAHA(J,ID,1,3,FRAC) PFPLUS(J)=PFPLUS(J)*FRAC(J,1) T(J)=T(J)/1.001*.999 TK(J)=TK(J)/1.001*.999 TKEV(J)=TKEV(J)/1.001*.999 CALL PFSAHA(J,ID,1,3,FRAC) PFMIN(J)=PFMIN(J)*FRAC(J,1) T(J)=T(J)/.999 TK(J)=TK(J)/.999 167 TKEV(J)=TKEV(J)/.999 GO TO 170 168 CONTINUE 170 CONTINUE 172 DO 171 J=1,NRHOX 171 EDENS(J)=EDENS(J)+XNMOL(J,JMOL)*TK(J)* 1(-EQUIL(1,JMOL)/TKEV(J)+(PFPLUS(J)-PFMIN(J))/(PFPLUS(J)+ 2PFMIN(J))*2.*500.) GO TO 180 C ATOMS 175 ID=CODE(JMOL) DO 177 J=1,NRHOX T(J)=T(J)*1.001 TK(J)=TK(J)*1.001 TKEV(J)=TKEV(J)*1.001 CALL PFSAHA(J,ID,NCOMP,5,PFP) T(J)=T(J)/1.001*.999 TK(J)=TK(J)/1.001*.999 TKEV(J)=TKEV(J)/1.001*.999 CALL PFSAHA(J,ID,NCOMP,5,PFM) T(J)=T(J)/.999 TK(J)=TK(J)/.999 TKEV(J)=TKEV(J)/.999 ION=NCOMP PFP(ION)=MAX(PFP(ION),PFM(ION)) EDENS(J)=EDENS(J)+XNMOL(J,JMOL)*TK(J)* 1(EION(ION)/TKEV(J)+(PFP(ION)-PFM(ION))/(PFP(ION)+PFM(ION))* 22.*500.) 177 CONTINUE 180 CONTINUE DO 181 J=1,NRHOX 181 EDENS(J)=EDENS(J)/RHO(J) RETURN END SUBROUTINE POPSALL IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /EDENS/EDENS(kw),IFEDNS COMMON /ELEM/ABUND(99),ATMASS(99),YABUND(99),ELEM(99) CHARACTER*2 ELEM COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,IFMOL,IFREADLINES COMMON /ITER/ ITER,IFPRNT(60),IFPNCH(60),NUMITS COMMON /POTION/POTION(999),POTIONSUM(999) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) DIMENSION PFPLUS(mion),PFMINUS(mion) REAL*8 IDMOL(60),MOMASS(60) c H2 841 c HeH 842 c LiH 843 c BeH 844 c BH 845 c CH 846 c NH 847 c OH 848 c HF 849 c NaH 850 c MgH 851 c AlH 852 c SiH 853 c PH 854 c HS 855 c HCl 856 c KH 857 c CaH 858 c ScH 859 c TiH 860 c VH 861 c CrH 862 c MnH 863 c FeH 864 c CoH 865 c NiH 866 c CuH 867 c C2 868 c CN 869 c CO 870 c CF 871 c SiC 872 c CP 873 c CS 874 c N2 875 c NO 876 c NF 877 c SiN 878 c PN 879 c NS 880 c LiO 881 c BeO 882 c BO 883 c O2 884 c FO 885 c NaO 886 c MgO 887 c AlO 888 c SiO 889 c PO 890 c SO 891 c ClO 892 c CaO 893 c ScO 894 c TiO 895 c VO 896 c CrO 897 c MnO 898 c FeO 899 c CoO 900 c NiO 901 c CuO 902 c GeO 903 c SrO 904 c YO 905 c ZrO 906 c NbO 907 c Si2 908 c SiS 909 c S2 910 c TiS 911 c ZrS 912 c H2+ 913 c HeH+ 914 c LiH+ 915 c CH+ 916 c NH+ 917 c OH+ 918 c HF+ 919 c NeH+ 920 c MgH+ 921 c AlH+ 922 c SiH+ 923 c PH+ 924 c SH+ 925 c HCl+ 926 c CaH+ 927 c He2+ 928 c C2+ 929 c CN+ 930 c CO+ 931 c N2+ 932 c NO+ 933 c NS+ 934 c O2+ 935 c SiO+ 936 c PO+ 937 c SO+ 938 c S2+ 939 c H2O 940 c CO2 941 c CH2 942 c C2H 943 c C2N 944 c C3 945 c O3 946 c NO2 947 c N2O 948 c NH2 949 c HCO 950 c HCN 951 c HNO 952 c SiC2 953 c NaOH 954 c MgOH 955 c AlOH 956 c KOH 957 c CaOH 958 c AlOF 959 c AlOCl 960 c Al2O 961 c SH2 962 c CaF2 963 c CaCl2 964 c COS 965 c SiO2 966 c SO2 967 c TiO2 968 c VO2 969 c NH3 970 c CH3 971 c C2H2 972 c C3H 973 c C2N2 974 c CH4 975 c H- 976 c Li- 977 c C- 978 c O- 979 c F- 980 c Na- 981 c Al- 982 c Si- 983 c P- 984 c S- 985 c Cl- 986 c K- 987 c Sc- 988 c Ti- 989 c V- 990 c Cr- 991 c Fe- 992 c Co- 993 c Ni- 994 c Cu- 995 c C2- 996 c CH- 997 c CN- 998 c CO- 999 c N2- 1000 c NO- 1001 c OH- 1002 c O2- 1003 c S2- 1004 c SH- 1005 c H3+ 1006 C DATA MOLCODES/ C 1 8410, 8460, 8461, 8470, 8471, 8480, 8481, 8482, 8510, 8511, C 2 8512, 8530, 8531, 8532, 8680, 8681, 8682, 8690, 8691, 8692, C 3 8693, 8700, 8701, 8702, 8703, 8704, 8705, 8890, 8891, 8892, 8896/ C CALL POPS(1.01D0,12,XNF(1,1)) CALL POPS(2.02D0,12,XNF(1,3)) CALL POPS(3.03D0,12,XNF(1,6)) CALL POPS(4.04D0,12,XNF(1,10)) CALL POPS(5.05D0,12,XNF(1,15)) CALL POPS(6.05D0,12,XNF(1,21)) CALL POPS(7.05D0,12,XNF(1,28)) CALL POPS(8.05D0,12,XNF(1,36)) CALL POPS(9.05D0,12,XNF(1,45)) CALL POPS(10.05D0,12,XNF(1,55)) CALL POPS(11.05D0,12,XNF(1,66)) CALL POPS(12.05D0,12,XNF(1,78)) CALL POPS(13.05D0,12,XNF(1,91)) CALL POPS(14.05D0,12,XNF(1,105)) CALL POPS(15.05D0,12,XNF(1,120)) CALL POPS(16.05D0,12,XNF(1,136)) CALL POPS(17.04D0,12,XNF(1,153)) CALL POPS(18.04D0,12,XNF(1,171)) CALL POPS(19.04D0,12,XNF(1,190)) CALL POPS(20.04D0,12,XNF(1,210)) CALL POPS(21.04D0,12,XNF(1,231)) CALL POPS(22.04D0,12,XNF(1,253)) CALL POPS(23.04D0,12,XNF(1,276)) CALL POPS(24.04D0,12,XNF(1,300)) CALL POPS(25.04D0,12,XNF(1,325)) CALL POPS(26.04D0,12,XNF(1,351)) CALL POPS(27.04D0,12,XNF(1,378)) CALL POPS(28.04D0,12,XNF(1,406)) CALL POPS(29.02D0,12,XNF(1,435)) CALL POPS(30.02D0,12,XNF(1,465)) C CALL POPS(1.01D0,11,XNFP(1,1)) CALL POPS(2.02D0,11,XNFP(1,3)) CALL POPS(3.03D0,11,XNFP(1,6)) CALL POPS(4.04D0,11,XNFP(1,10)) CALL POPS(5.04D0,11,XNFP(1,15)) CALL POPS(6.05D0,11,XNFP(1,21)) CALL POPS(7.05D0,11,XNFP(1,28)) CALL POPS(8.05D0,11,XNFP(1,36)) CALL POPS(9.05D0,11,XNFP(1,45)) CALL POPS(10.05D0,11,XNFP(1,55)) CALL POPS(11.05D0,11,XNFP(1,66)) CALL POPS(12.05D0,11,XNFP(1,78)) CALL POPS(13.05D0,11,XNFP(1,91)) CALL POPS(14.05D0,11,XNFP(1,105)) CALL POPS(15.05D0,11,XNFP(1,120)) CALL POPS(16.05D0,11,XNFP(1,136)) CALL POPS(17.05D0,11,XNFP(1,153)) CALL POPS(18.05D0,11,XNFP(1,171)) CALL POPS(19.05D0,11,XNFP(1,190)) CALL POPS(20.09D0,11,XNFP(1,210)) CALL POPS(21.09D0,11,XNFP(1,231)) CALL POPS(22.09D0,11,XNFP(1,253)) CALL POPS(23.09D0,11,XNFP(1,276)) CALL POPS(24.09D0,11,XNFP(1,300)) CALL POPS(25.09D0,11,XNFP(1,325)) CALL POPS(26.09D0,11,XNFP(1,351)) CALL POPS(27.09D0,11,XNFP(1,378)) CALL POPS(28.09D0,11,XNFP(1,406)) CALL POPS(29.02D0,11,XNFP(1,435)) CALL POPS(30.02D0,11,XNFP(1,465)) C DO 13 IZ=31,99 CODE=IZ+.02D0 CALL POPS(CODE,11,XNFP(1,496+(IZ-31)*5)) 13 CALL POPS(CODE,12,XNF(1,496+(IZ-31)*5)) DO 14 J=1,NRHOX IF(T(J).GT.9000.)GO TO 14 XNFP(J,841)=XNFP(J,1)**2*EXP(4.478/TKEV(J)-4.64584E1+ 1(1.63660E-3+(-4.93992E-7+(1.11822E-10+(-1.49567E-14+ 2(1.06206E-18-3.08720E-23*T(J))*T(J))*T(J))*T(J))*T(J))*T(J)- 3 1.5*TLOG(J)) XNFP(J,870)=XNFP(J,21)*XNFP(J,36)*EXP(11.091/TKEV(J)-49.0414+ 1 14.0306E-4*T(J)-26.6341E-8*T(J)**2+35.382E-12*T(J)**3- 2 26.5424E-16*T(J)**4+8.32385E-20*T(J)**5-1.5*TLOG(J)) 14 CONTINUE IF(IFMOL.EQ.0)RETURN CALL POPS(101.00D0,1,XNFP(1,841)) CALL POPS(106.00D0,1,XNFP(1,846)) CALL POPS(107.00D0,1,XNFP(1,847)) CALL POPS(108.00D0,1,XNFP(1,848)) CALL POPS(112.00D0,1,XNFP(1,851)) CALL POPS(114.00D0,1,XNFP(1,853)) CALL POPS(606.00D0,1,XNFP(1,868)) CALL POPS(607.00D0,1,XNFP(1,869)) CALL POPS(608.00D0,1,XNFP(1,870)) CALL POPS(814.00D0,1,XNFP(1,889)) CALL POPS(822.00D0,1,XNFP(1,895)) CALL POPS(10108.00D0,1,XNFP(1,940)) RETURN END SUBROUTINE CONVEC IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /ABROSS/ABROSS(kw),TAUROS(kw) COMMON /CONV/DLTDLP(kw),HEATCP(kw),DLRDLT(kw),VELSND(kw), 1 GRDADB(kw),HSCALE(kw),FLXCNV(kw),VCONV(kw),MIXLTH, 2 OVERWT,FLXCNV0(kw),FLXCNV1(kw),IFCONV REAL*8 MIXLTH COMMON /EDENS/EDENS(kw),IFEDNS COMMON /FLUX/ FLUX,FLXERR(kw),FLXDRV(kw),FLXRAD(kw) COMMON /HEIGHT/HEIGHT(kw) COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,IFMOL,IFREADLINES COMMON /OPS/EDENS1(kw),EDENS2(kw),EDENS3(kw),EDENS4(kw),RHO1(kw), 1 RHO2(kw),RHO3(kw),RHO4(kw),SAVXNE(kw),SAVXNA(kw), 2 SAVRHO(kw),DILUT(kw),DUMMY(kw,13) COMMON /PTOTAL/PTOTAL(kw) COMMON /PZERO/PZERO,PCON,PRADK0,PTURB0,KNU(kw),PRADK(kw),RADEN(kw) REAL*8 KNU COMMON /RAD/ACCRAD(kw),PRAD(kw) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /TEFF/TEFF,GRAV,GLOG COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, 1 IFTURB COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) DIMENSION DTDRHX(kw),ABCONV(kw),DELTAT(kw),ROSST(kw) EQUIVALENCE (DTDRHX(1),DLTDLP(1)) DIMENSION CNVINT(kw),DELHGT(kw) CALL DERIV(RHOX,T,DTDRHX,NRHOX) C CALCULATE DERIVATIVES BY EVALUATING FUNCTIONS AT + AND - .001 IFEDNS=1 DO 10 J=1,NRHOX DILUT(J)=1.-EXP(-TAUROS(J)) C DILUT(J)=PRAD(J)/PRADK(J) SAVXNE(J)=XNE(J) SAVXNA(J)=XNATOM(J) SAVRHO(J)=RHO(J) TLOG(J)=TLOG(J)+.0009995003 T(J)=T(J)*1.001 TK(J)=TK(J)*1.001 HKT(J)=HKT(J)/1.001 HCKT(J)=HCKT(J)/1.001 10 TKEV(J)=TKEV(J)*1.001 ITEMP=ITEMP+1 CALL POPS(0.D0,1,XNE) DO 11 J=1,NRHOX C 3.*PRADK IS APPROXIMATELY RADEN THE RADIATION DENSITY C PRADK IS USED BECAUSE IT CAN BE RECONSTRUCTED FROM MODEL DECKS C WHEREAS RADEN CANNOT C RIGOROUSLY THE RADIATION FIELD SHOULD BE RECALCULATED EDENS1(J)=EDENS(J)+3.*PRADK(J)/RHO(J)*(1.+DILUT(J)*(1.001**4-1.)) C WRITE(6,6666)J,EDENS(J),EDENS1(J),PRADK(J),RHO(J),DILUT(J) RHO1(J)=RHO(J) TLOG(J)=TLOG(J)-.0009995003-.0010005003 T(J)=T(J)/1.001*.999 TK(J)=TK(J)/1.001*.999 HKT(J)=HKT(J)*1.001/.999 HCKT(J)=HCKT(J)*1.001/.999 11 TKEV(J)=TKEV(J)/1.001*.999 ITEMP=ITEMP+1 CALL POPS(0.D0,1,XNE) DO 12 J=1,NRHOX EDENS2(J)=EDENS(J)+3.*PRADK(J)/RHO(J)*(1.+DILUT(J)*(.999**4-1.)) C WRITE(6,6666)J,EDENS(J),EDENS2(J),PRADK(J),RHO(J),DILUT(J) RHO2(J)=RHO(J) TLOG(J)=TLOG(J)+.0010005003 T(J)=T(J)/.999 TK(J)=TK(J)/.999 HKT(J)=HKT(J)*.999 HCKT(J)=HCKT(J)*.999 TKEV(J)=TKEV(J)/.999 12 P(J)=P(J)*1.001 ITEMP=ITEMP+1 CALL POPS(0.D0,1,XNE) DO 13 J=1,NRHOX EDENS3(J)=EDENS(J)+3.*PRADK(J)/RHO(J) RHO3(J)=RHO(J) 13 P(J)=P(J)/1.001*.999 ITEMP=ITEMP+1 CALL POPS(0.D0,1,XNE) DO 14 J=1,NRHOX EDENS4(J)=EDENS(J)+3.*PRADK(J)/RHO(J) RHO4(J)=RHO(J) XNE(J)=SAVXNE(J) XNATOM(J)=SAVXNA(J) RHO(J)=SAVRHO(J) 14 P(J)=P(J)/.999 DO 30 J=1,NRHOX DEDT=(EDENS1(J)-EDENS2(J))/T(J)*500. DRDT=(RHO1(J)-RHO2(J))/T(J)*500. DEDPG=(EDENS3(J)-EDENS4(J))/P(J)*500. DRDPG=(RHO3(J)-RHO4(J))/P(J)*500. C C CALCULATE THERMODYNAMIC QUANTITIES AND CONVECTIVE FLUX C IGNORING PTURB AND ASSUMING PRAD PROPORTIONAL TO T**4 DPDPG=1. DPDT=4.*PRADK(J)/T(J)*DILUT(J) C DPDT=4.*PRAD(J)/T(J) DLTDLP(J)=PTOTAL(J)/T(J)/GRAV*DTDRHX(J) HEATCV=DEDT-DEDPG*DRDT/DRDPG HEATCP(J)=DEDT-DEDPG*DPDT/DPDPG-PTOTAL(J)/RHO(J)**2*(DRDT- 1DRDPG*DPDT/DPDPG) C WRITE(6,6666)J,DEDT,DEDPG,DRDT,DRDPG,DPDT,DPDPG, C 1DLTDLP(J),HEATCV,HEATCP(J) C 6666 FORMAT(I10,1P9E12.3) VELSND(J)=SQRT(MAX(HEATCP(J)/HEATCV*DPDPG/DRDPG,0.D0)) DLRDLT(J)=T(J)/RHO(J)*(DRDT-DRDPG*DPDT/DPDPG) GRDADB(J)=-PTOTAL(J)/RHO(J)/T(J)*DLRDLT(J)/HEATCP(J) HSCALE(J)=PTOTAL(J)/RHO(J)/GRAV VCONV(J)=0. FLXCNV(J)=0. ABCONV(J)=ABROSS(J) DELTAT(J)=0. ROSST(J)=0. IF(MIXLTH.EQ.0.)GO TO 30 IF(J.LT.4)GO TO 30 DEL=DLTDLP(J)-GRDADB(J) IF(DEL.LT.0.)GO TO 30 VCO=.5*MIXLTH*SQRT(MAX(-.5*PTOTAL(J)/RHO(J)*DLRDLT(J),0.D0)) IF(VCO.EQ.0.)GO TO 30 FLUXCO=.5*RHO(J)*HEATCP(J)*T(J)*MIXLTH/12.5664 ROSST(J)=ROSSTAB(T(J),P(J),VTURB(J)) OLDDELT=0. C ITERATE ON THE OPACITY ITS30=30 IF(IFCONV.EQ.0)ITS30=1 DO 29 IDELTAT=1,ITS30 C PRINT 5555,J,IDELTAT,T(J),DELTAT(J),DPLUS,ROSST(J),DMINUS, C 1ABCONV(J),ABROSS(J) DPLUS=ROSSTAB(T(J)+DELTAT(J),P(J),VTURB(J))/ROSST(J) DMINUS=ROSSTAB(T(J)-DELTAT(J),P(J),VTURB(J))/ROSST(J) C PRINT 5555,J,IDELTAT,T(J),DELTAT(J),DPLUS,ROSST(J),DMINUS, C 1ABCONV(J),ABROSS(J) C5555 FORMAT(2I5,1P7E12.3) ABCONV(J)=2./(1./DPLUS+1./DMINUS)*ABROSS(J) D=8.*5.6697E-5*T(J)**4/(ABCONV(J)*HSCALE(J)*RHO(J))/ 1(FLUXCO*12.5664)/VCO C CORRECTION FOR OPTICALLY THIN BUBBLES AFTER MIHALAS TAUB=ABCONV(J)*RHO(J)*MIXLTH*HSCALE(J) D=D*TAUB**2/(2.+TAUB**2) C D=D**2/2. DDD=(DEL/(D+DEL))**2 IF(DDD.LT..5)GO TO 24 DELTA=(1.-SQRT(1.-DDD))/DDD GO TO 26 24 DELTA=.5 TERM=.5 UP=-1. DOWN=2. 25 UP=UP+2. DOWN=DOWN+2. TERM=UP/DOWN*DDD*TERM DELTA=DELTA+TERM IF(TERM.GT.1.E-6)GO TO 25 26 DELTA=DELTA*DEL**2/(D+DEL) VCONV(J)=VCO*SQRT(DELTA) FLXCNV(J)=FLUXCO*VCONV(J)*DELTA DELTAT(J)=T(J)*MIXLTH*DELTA DELTAT(J)=DMIN1(DELTAT(J),T(J)*.15) DELTAT(J)=DELTAT(J)*.7+OLDDELT*.3 IF(DELTAT(J).LT.OLDDELT+.5.AND.DELTAT(J).GT.OLDDELT-.5)GO TO 30 OLDDELT=DELTAT(J) 29 CONTINUE 30 CONTINUE CCCCCCCCCC IF(HEATCP(NRHOX).LT.0.)CALL ABORT CCCCCCCCCC C C CC ELIMINATE ARTIFACTUAL CONVECTION ABOVE THE MAIN CONVECTION ZONE C DO 730 J=3,NRHOX C K=NRHOX+1-J C IF(FLXCNV(K).GT.0.)GO TO 731 C 730 CONTINUE C RETURN C 731 DO 732 J=1,K C L=K+1-J C IF(FLXCNV(L).EQ.0.)GO TO 733 C 732 CONTINUE C 733 DO 734 J=1,L C VCONV(J)=0. C 734 FLXCNV(J)=0. C PATCH TO REMOVE NUMERICAL ARTIFACTS INCLUDING SINGLE POINT DROPOUTS DO 7735 J=1,NRHOX/2 7735 FLXCNV(J)=0. DO 7736 J=1,NRHOX 7736 FLXCNV0(J)=FLXCNV(J) DO 7737 J=2,NRHOX-1 7737 FLXCNV(J)=.3*FLXCNV0(J-1)+.4*FLXCNV0(J)+.3*FLXCNV0(J+1) DO 735 J=1,NRHOX 735 FLXCNV0(J)=FLXCNV(J) C C C ASSUME OVERSHOOTING BY 0.5 HSCALE IF CONVECTION IS STRONG C BUT NONE IF CONVECTION IS WEAK C SETTING OVERWT=0. COMPLETE TURNS OFF OVERSHOOTING IF(OVERWT.GT.0.)THEN C WTCNV=MIN(FLXCNV(NRHOX)/FLUX,1.D0)*OVERWT C CORRECTION FROM FIORELLA CASTELLI WTCNV=0. DO 774 J=1,NRHOX 774 WTCNV=MAX(WTCNV,FLXCNV(J)/FLUX) WTCNV=MIN(WTCNV,1.D0)*OVERWT DO 776 J=1,NRHOX C DELHGT(J)=MIN(HSCALE(J)*MIXLTH*.5D-5,HEIGHT(NRHOX)-HEIGHT(J), DELHGT(J)=MIN(HSCALE(J)*.5D-5*WTCNV,HEIGHT(NRHOX)-HEIGHT(J), 1HEIGHT(J)-HEIGHT(1)) C WRITE(6,775)J,HEIGHT(J),DELHGT(J),CNVINT(J) FLXCNV0(J)=FLXCNV(J) 776 FLXCNV1(J)=0. CALL INTEG(HEIGHT,FLXCNV,CNVINT,NRHOX,0.D0) DO 777 J=NRHOX/2,NRHOX-1 IF(DELHGT(J).EQ.0.)GO TO 777 C WRITE(6,775)J,HEIGHT(J),DELHGT(J),CNVINT(J) 775 FORMAT(I5,1P3E12.3) M=MAP1(HEIGHT,CNVINT,NRHOX,HEIGHT(J)-DELHGT(J),CNV1,1) M=MAP1(HEIGHT,CNVINT,NRHOX,HEIGHT(J)+DELHGT(J),CNV2,1) FLXCNV1(J)=FLXCNV1(J)+(CNV2-CNV1)/DELHGT(J)/2. 777 CONTINUE DO 779 J=1,NRHOX 779 FLXCNV(J)=MAX(FLXCNV0(J),FLXCNV1(J)) ENDIF C PATCH TO REMOVE NUMERICAL ARTIFACTS C DO 7779 J=1,NRHOX/2 DO 7779 J=1,NRHOX/3 7779 FLXCNV(J)=0. C C RETURN END SUBROUTINE HIGH IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /ABTOT/ABTOT(kw),ALPHA(kw) COMMON /HEIGHT/HEIGHT(kw) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) DIMENSION RHOINV(kw) C EQUIVALENCE (RHOINV(1),ABTOT(1)) DO 1 J=1,NRHOX 1 RHOINV(J)=1.E-5/RHO(J) CALL INTEG(RHOX,RHOINV,HEIGHT,NRHOX,0.D0) C CALL INTEG(RHOX,RHOINV,HEIGHT,NRHOX) RETURN END SUBROUTINE VTURBSTANDARD(VNEW) PARAMETER (kw=72) IMPLICIT REAL*8 (A-H,O-Z) COMMON /ABROSS/ABROSS(kw),TAUROS(kw) COMMON /CONV/DLTDLP(kw),HEATCP(kw),DLRDLT(kw),VELSND(kw), 1 GRDADB(kw),HSCALE(kw),FLXCNV(kw),VCONV(kw),MIXLTH, 2 OVERWT,FLXCNV0(kw),FLXCNV1(kw),IFCONV REAL*8 MIXLTH COMMON /FLUX/ FLUX,FLXERR(kw),FLXDRV(kw),FLXRAD(kw) COMMON /ITER/ ITER,IFPRNT(60),IFPNCH(60),NUMITS COMMON /RHOX/RHOX(kw),NRHOX COMMON /STEPLG/STEPLG,TAU1LG,KRHOX COMMON /TAUSTD/TAUSTD(kw) COMMON /TEFF/TEFF,GRAV,GLOG COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, 1 IFTURB DIMENSION VMAXSTANDARD(13,25),VMAXSTANDARD1(13,19) DIMENSION VMAXSTANDARD2(13,6) EQUIVALENCE (VMAXSTANDARD(1,1),VMAXSTANDARD1(1,1)) EQUIVALENCE (VMAXSTANDARD(1,20),VMAXSTANDARD2(1,1)) DIMENSION VSTANDARD(30),TAUSTANDARD(30) DIMENSION TAULOG(kw) C FROM AVRETT SOLAR MODEL C DATA VSTANDARD/ 0.50E5, 0.50E5, 0.50E5, 0.51E5, 0.52E5, 0.55E5, 1 0.63E5, 0.80E5, 0.90E5, 1.00E5, 1.10E5, 1.20E5, 1.30E5, 1.40E5, 2 1.46E5, 1.52E5, 1.56E5, 1.60E5, 1.64E5, 1.68E5, 1.71E5, 1.74E5, 3 1.76E5, 1.78E5, 1.80E5, 1.81E5, 1.82E5, 1.83E5, 1.83E5, 1.83E5/ DATA TAUSTANDARD/-20.,-3.,-2.67313, -2.49296, -2.31296, -1.95636, 1 -1.60768, -1.26699, -1.10007, -0.93587, -0.77416, -0.61500, 2 -0.45564, -0.29176, -0.18673, -0.07193, 0.01186, 0.10342, 3 0.20400, 0.31605, 0.44498, 0.58875, 0.74365, 0.90604, 4 1.07181, 1.23841, 1.39979, 1.55300, 2.00000, 10.00000/ C C -1.0 -0.5 0.0 0.5 1.0 1.5 2.0 2.5 3.0 3.5 4.0 4.5 5.0 log g DATA VMAXSTANDARD1/ 1 3.3, 3.0, 2.7, 2.4, 2.1, 1.8, 1.3, 0.9, 0.6, 0.3, 0.2, 0.1, 0.1, 3000 2 4.1, 3.7, 3.3, 2.9, 2.5, 2.1, 1.6, 1.2, 0.9, 0.6, 0.3, 0.2, 0.1, 3250 3 5.2, 4.6, 4.0, 3.4, 2.9, 2.4, 1.9, 1.5, 1.2, 0.9, 0.6, 0.4, 0.2, 3500 4 6.3, 5.5, 4.7, 3.9, 3.3, 2.7, 2.2, 1.8, 1.5, 1.2, 0.9, 0.6, 0.4, 3750 5 7.3, 6.4, 5.5, 4.6, 3.7, 3.1, 2.6, 2.1, 1.8, 1.4, 1.1, 0.8, 0.6, 4000 6 8.0, 7.7, 6.4, 5.1, 4.2, 3.5, 2.9, 2.4, 2.0, 1.6, 1.3, 1.0, 0.7, 4250 7 8.0, 8.0, 7.1, 5.7, 4.7, 3.9, 3.2, 2.7, 2.3, 1.9, 1.5, 1.2, 0.9, 4500 8 8.0, 8.0, 7.9, 6.3, 5.2, 4.3, 3.6, 3.0, 2.5, 2.1, 1.7, 1.4, 1.1, 4750 9 8.0, 8.0, 8.0, 6.9, 5.6, 4.7, 4.0, 3.4, 2.8, 2.3, 1.9, 1.5, 1.2, 5000 A 0.0, 8.0, 8.0, 7.5, 6.1, 5.1, 4.4, 3.7, 3.1, 2.6, 2.1, 1.7, 1.3, 5250 1 0.0, 8.0, 8.0, 8.0, 6.6, 5.5, 4.7, 4.0, 3.4, 2.8, 2.3, 1.9, 1.5, 5500 2 0.0, 0.0, 8.0, 8.0, 7.1, 5.9, 5.0, 4.3, 3.6, 3.0, 2.5, 2.0, 1.7, 5750 3 0.0, 0.0, 8.0, 8.0, 7.6, 6.2, 5.4, 4.6, 3.9, 3.3, 2.7, 2.2, 1.9, 6000 4 0.0, 0.0, 0.0, 4.6, 8.0, 6.6, 5.7, 4.9, 4.2, 3.5, 2.9, 2.4, 2.0, 6250 5 0.0, 0.0, 0.0, 0.2, 4.3, 7.0, 6.1, 5.3, 4.4, 3.7, 3.1, 2.6, 2.2, 6500 6 0.0, 0.0, 0.0, 0.0, 0.3, 4.2, 6.4, 5.6, 4.7, 4.0, 3.3, 2.8, 2.4, 6750 7 0.0, 0.0, 0.0, 0.0, 0.0, 0.3, 3.9, 5.9, 5.0, 4.2, 3.5, 3.0, 2.6, 7000 8 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.3, 3.7, 5.2, 4.4, 3.7, 3.2, 2.8, 7250 9 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.4, 3.5, 4.7, 3.9, 3.4, 3.0/ 7500 DATA VMAXSTANDARD2/ 1 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.5, 3.4, 4.1, 3.6, 3.1, 7750 2 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.7, 3.6, 3.8, 3.3, 8000 3 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 1.1, 4.0, 3.5, 8250 4 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 1.6, 3.6, 8500 5 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 2.3, 8750 6 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0/ 9000 C VMAX IS THE NOMINAL MAXIMUM CONVECTIVE VELOCITY IN THE ATMOSPHERE C IT IS COMPUTED, FLUX-WEIGHTED, AS FOLLOWS C DO 1 J=1,NRHOX C FRAC=FLXCNV(J)/(FLXCNV(J)+FLXRAD(J)) C 1 VMAX=MAX(VMAX,FRAC*VCONV(J)) C AND THEN MASSAGED TO GET PLAUSIBLE BEHAVIOR AND TO KEEP IN THE RANGE C OF DF TABULATION 0 TO 8 KM/S C IF(VNEW.NE.-99.E5)GO TO 3 IG=(GLOG+1.0)/.5+1 IG=MIN(MAX(IG,1),12) IT=(TEFF-3000.)/250.+1. IT=MIN(MAX(IT,1),24) DELG=(GLOG-((IG-1)*.5-1.))/.5 DELT=(TEFF-((IT-1)*250.+3000.))/250. VMAX=VMAXSTANDARD(IG ,IT )*(1.-DELG)*(1.-DELT)+ 1 VMAXSTANDARD(IG+1,IT )*DELG *(1.-DELT)+ 2 VMAXSTANDARD(IG ,IT+1)*(1.-DELG)*DELT+ 3 VMAXSTANDARD(IG+1,IT+1)*DELG *DELT VMAX=VMAX*1.E5 GO TO 4 3 VMAX=ABS(VNEW) 4 DO 5 J=1,NRHOX TAUSTD(J)=10.**(TAU1LG+DFLOAT(J-1)*STEPLG) 5 TAULOG(J)=LOG10(TAUSTD(J)) 6 MM=MAP1(TAUSTANDARD,VSTANDARD,30,TAULOG,VTURB,NRHOX) DO 7 J=1,NRHOX 7 VTURB(J)=VTURB(J)*VMAX/1.83E5 RETURN END SUBROUTINE TURB IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /CONV/DLTDLP(kw),HEATCP(kw),DLRDLT(kw),VELSND(kw), 1 GRDADB(kw),HSCALE(kw),FLXCNV(kw),VCONV(kw),MIXLTH, 2 OVERWT,FLXCNV0(kw),FLXCNV1(kw),IFCONV REAL*8 MIXLTH COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, 1 IFTURB DO 10 J=1,NRHOX VTURB(J)=(TRBFDG*RHO(J)**TRBPOW+TRBSND*VELSND(J)/1.E5+TRBCON)*1.E5 10 PTURB(J)=RHO(J)*VTURB(J)**2*0.5 RETURN END SUBROUTINE KAPP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /IFOP/IFOP(20) COMMON /OPS/AHYD(kw),AH2P(kw),AHMIN(kw),SIGH(kw),AHE1(kw), 1 AHE2(kw),AHEMIN(kw),SIGHE(kw),ACOOL(kw),ALUKE(kw),AHOT(kw), 2 SIGEL(kw),SIGH2(kw),AHLINE(kw),ALINES(kw),SIGLIN(kw), 3 AXLINE(kw),SIGXL(kw),AXCONT(kw),SIGX(kw),SHYD(kw), 4 SHMIN(kw),SHLINE(kw),SXLINE(kw),SXCONT(kw) COMMON /OPTOT/ACONT(kw),SCONT(kw),ALINE(kw),SLINE(kw),SIGMAC(kw), 1 SIGMAL(kw) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) DIMENSION DUMMY(kw,25) EQUIVALENCE (AHYD(1),DUMMY(1)) DO 91 J=1,NRHOX DO 91 I=1,25 91 DUMMY(J,I)=0. IF(IFOP(1).EQ.1)CALL HOP IF(IFOP(2).EQ.1)CALL H2PLOP IF(IFOP(3).EQ.1)CALL HMINOP IF(IFOP(4).EQ.1)CALL HRAYOP IF(IFOP(5).EQ.1)CALL HE1OP IF(IFOP(6).EQ.1)CALL HE2OP IF(IFOP(7).EQ.1)CALL HEMIOP IF(IFOP(8).EQ.1)CALL HERAOP IF(IFOP(9).EQ.1)CALL COOLOP IF(IFOP(10).EQ.1)CALL LUKEOP IF(IFOP(11).EQ.1)CALL HOTOP IF(IFOP(12).EQ.1)CALL ELECOP IF(IFOP(13).EQ.1)CALL H2RAOP IF(IFOP(14).EQ.1)CALL HLINOP C IF(IFOP(15).EQ.1.AND.N.GT.0)CALL LINOP(N,NSTEPS,STEPWT) C IF(IFOP(16).EQ.1.AND.N.GT.0)CALL LINSOP(N,NSTEPS,STEPWT) C IF(IFOP(17).EQ.1.AND.N.GT.0)CALL XLINOP C IF(IFOP(18).EQ.1.AND.N.GT.0)CALL XLISOP IF(IFOP(19).EQ.1)CALL XCONOP IF(IFOP(20).EQ.1)CALL XSOP DO 100 J=1,NRHOX A=AH2P(J)+AHE1(J)+AHE2(J)+AHEMIN(J)+ACOOL(J)+ALUKE(J)+AHOT(J) ACONT(J)=A+AHYD(J)+AHMIN(J)+AXCONT(J) SCONT(J)=BNU(J) IF(ACONT(J).GT.0.)SCONT(J)=(A*BNU(J)+AHYD(J)*SHYD(J)+AHMIN(J)* 1SHMIN(J)+AXCONT(J)*SXCONT(J))/ACONT(J) ALINE(J)=AHLINE(J)+ALINES(J)+AXLINE(J) SLINE(J)=BNU(J) IF(ALINE(J).GT.0.)SLINE(J)=(AHLINE(J)*SHLINE(J)+ALINES(J)*BNU(J)+ 1AXLINE(J)*SXLINE(J))/ALINE(J) SIGMAC(J)=SIGH(J)+SIGHE(J)+SIGEL(J)+SIGH2(J)+SIGX(J) 100 SIGMAL(J)=SIGLIN(J)+SIGXL(J) RETURN END SUBROUTINE HOP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) C REQUIRES FUNCTIONS COULX AND COULFF COMMON /DEPART/BHYD(kw,6),BMIN(kw),NLTEON COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /OPS/AHYD(kw),D1(kw,19),SHYD(kw),D2(kw,4) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) DIMENSION CONT(8),BOLT(kw,8),EXLIM(kw),FREET(kw),BOLTEX(kw) DATA ITEMP1/0/ IF(ITEMP.EQ.ITEMP1)GO TO 20 ITEMP1=ITEMP DO 15 J=1,NRHOX DO 11 N=1,8 11 BOLT(J,N)=EXP(-(13.595-13.595/DFLOAT(N*N))/TKEV(J))*2.* 1DFLOAT(N*N)*XNFP(J,1)/RHO(J) DO 12 N=1,6 12 BOLT(J,N)=BOLT(J,N)*BHYD(J,N) FREET(J)=XNE(J)*XNF(J,2)/RHO(J)/SQRT(T(J)) XR=XNFP(J,1)*(2./2./13.595)*TKEV(J)/RHO(J) BOLTEX(J)=EXP(-13.427/TKEV(J))*XR 15 EXLIM(J)=EXP(-13.595/TKEV(J))*XR 20 DO 21 N=1,8 C 21 CONT(N)=COULX(N,FREQ,1.D0) 21 CONT(N)=XKARZAS(FREQ,1.D0,N,N) FREQ3=FREQ**3 CFREE=3.6919E8/FREQ3 C=2.815E29/FREQ3 DO 32 J=1,NRHOX EX=BOLTEX(J) IF(FREQ.LT.4.05933E13)EX=EXLIM(J)/EHVKT(J) H=(CONT(7)*BOLT(J,7)+CONT(8)*BOLT(J,8)+(EX-EXLIM(J))*C+ 1COULFF(J,1)*FREET(J)*CFREE)*STIM(J) S=H*BNU(J) DO 31 N=1,6 H=H+CONT(N)*BOLT(J,N)*(1.-EHVKT(J)/BHYD(J,N)) 31 S=S+CONT(N)*BOLT(J,N)*BNU(J)*STIM(J)/BHYD(J,N) AHYD(J)=H 32 SHYD(J)=S/H RETURN END FUNCTION XKARZAS(FREQ,ZEFF2,N,L) C 24jul03 XKARZAS one bad number in X11 - X13 data C 24jul03 KARSAS should be KARZAS everywhere C Karzas, W.J. and Latter, R. 1960, APJS 6, 167-212. IMPLICIT REAL*4 (A-H,O-Z) C IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) REAL*8 FREQ,ZEFF2,XKARZAS DIMENSION FREQ1(29),FREQ2(29),FREQ3(29),FREQ4(29),FREQ5(29) DIMENSION FREQ6(29),FREQ7(29),FREQ8(29),FREQ9(29),FREQ10(29) DIMENSION FREQ11(29),FREQ12(29),FREQ13(29),FREQ14(29),FREQ15(29) DIMENSION X1(29),X2(29),X3(29),X4(29),X5(29) DIMENSION X6(29),X7(29),X8(29),X9(29),X10(29) DIMENSION X11(29),X12(29),X13(29),X14(29),X15(29) DIMENSION X1s(29),X2s(29),X3s(29),X4s(29),X5s(29),X6s(29) DIMENSION X2p(29),X3p(29),X4p(29),X5p(29),X6p(29) DIMENSION X3d(29),X4d(29),X5d(29),X6d(29) DIMENSION X4f(29),X5f(29),X6f(29),X5g(29),X6g(29),X6h(29) DIMENSION FREQN(29,15),XN(29,15),XL(29,6,6),FREQN15(29) DIMENSION EKARZAS(29) EQUIVALENCE (XN(1,1),X1(1)),(FREQN(1,1),FREQ1(1)) EQUIVALENCE (XN(1,2),X2(1)),(FREQN(1,2),FREQ2(1)) EQUIVALENCE (XN(1,3),X3(1)),(FREQN(1,3),FREQ3(1)) EQUIVALENCE (XN(1,4),X4(1)),(FREQN(1,4),FREQ4(1)) EQUIVALENCE (XN(1,5),X5(1)),(FREQN(1,5),FREQ5(1)) EQUIVALENCE (XN(1,6),X6(1)),(FREQN(1,6),FREQ6(1)) EQUIVALENCE (XN(1,7),X7(1)),(FREQN(1,7),FREQ7(1)) EQUIVALENCE (XN(1,8),X8(1)),(FREQN(1,8),FREQ8(1)) EQUIVALENCE (XN(1,9),X9(1)),(FREQN(1,9),FREQ9(1)) EQUIVALENCE (XN(1,10),X10(1)),(FREQN(1,10),FREQ10(1)) EQUIVALENCE (XN(1,11),X11(1)),(FREQN(1,11),FREQ11(1)) EQUIVALENCE (XN(1,12),X12(1)),(FREQN(1,12),FREQ12(1)) EQUIVALENCE (XN(1,13),X13(1)),(FREQN(1,13),FREQ13(1)) EQUIVALENCE (XN(1,14),X14(1)),(FREQN(1,14),FREQ14(1)) EQUIVALENCE (XN(1,15),X15(1)),(FREQN(1,15),FREQ15(1)) EQUIVALENCE (XL(1,1,1),X1s(1)),(XL(1,1,2),X2s(1)) EQUIVALENCE (XL(1,1,3),X3s(1)),(XL(1,1,4),X4s(1)) EQUIVALENCE (XL(1,1,5),X5s(1)),(XL(1,1,6),X6s(1)) EQUIVALENCE (XL(1,2,2),X2p(1)),(XL(1,2,3),X3p(1)) EQUIVALENCE (XL(1,2,4),X4p(1)),(XL(1,2,5),X5p(1)) EQUIVALENCE (XL(1,2,6),X6p(1)) EQUIVALENCE (XL(1,3,3),X3d(1)),(XL(1,3,4),X4d(1)) EQUIVALENCE (XL(1,3,5),X5d(1)),(XL(1,3,6),X6d(1)) EQUIVALENCE (XL(1,4,4),X4f(1)),(XL(1,4,5),X5f(1)) EQUIVALENCE (XL(1,4,6),X6f(1)) EQUIVALENCE (XL(1,5,5),X5g(1)),(XL(1,5,6),X6g(1)) EQUIVALENCE (XL(1,6,6),X6h(1)) DATA FREQ1/ 1 19.516982, 19.164810, 18.915052, 18.563043, 18.120083, 2 17.828904, 17.521260, 17.174377, 16.931912, 16.747387, 3 16.600083, 16.377277, 16.215909, 16.094200, 15.999955, 4 15.925518, 15.866216, 15.817969, 15.745954, 15.676626, 5 15.613849, 15.562692, 15.533972, 15.525713, 15.521260, 6 15.518864, 15.518023, 15.517421, 15.516939/ DATA X1/ 1 -30.274422, -29.048572, -28.181067, -26.962272, -25.437868, 2 -24.444170, -23.404269, -22.248421, -21.454163, -20.858944, 3 -20.390346, -19.694283, -19.200905, -18.835387, -18.556686, 4 -18.339364, -18.168213, -18.030238, -17.826632, -17.633456, 5 -17.461067, -17.322353, -17.245241, -17.223162, -17.211266, 6 -17.204840, -17.202587, -17.200999, -17.199715/ DATA X1s/ 1 -30.274422, -29.048572, -28.181067, -26.962272, -25.437868, 2 -24.444170, -23.404269, -22.248421, -21.454163, -20.858944, 3 -20.390346, -19.694283, -19.200905, -18.835387, -18.556686, 4 -18.339364, -18.168213, -18.030238, -17.826632, -17.633456, 5 -17.461067, -17.322353, -17.245241, -17.223162, -17.211266, 6 -17.204840, -17.202587, -17.200999, -17.199715/ DATA FREQ2/ 1 19.516949, 19.164737, 18.914922, 18.562750, 18.119270, 2 17.827313, 17.518023, 17.167149, 16.919200, 16.727792, 3 16.572317, 16.329852, 16.145327, 15.998094, 15.876964, 4 15.775097, 15.688665, 15.613849, 15.492095, 15.358548, 5 15.215909, 15.074566, 14.979337, 14.948961, 14.931912, 6 14.922531, 14.919200, 14.916804, 14.914879/ DATA X2/ 1 -31.779474, -30.553459, -29.685827, -28.466543, -26.940432, 2 -25.943993, -24.898608, -23.729491, -22.917021, -22.298979, 3 -21.803393, -21.042629, -20.473370, -20.025469, -19.660029, 4 -19.355246, -19.098003, -18.876442, -18.517855, -18.127425, 5 -17.714170, -17.308930, -17.038908, -16.953361, -16.905447, 6 -16.879127, -16.869826, -16.863085, -16.857754/ DATA X2s/ 1 -31.177414, -29.951530, -29.083850, -27.864712, -26.339031, 2 -25.343652, -24.299685, -23.134693, -22.327692, -21.716473, 3 -21.228927, -20.487480, -19.941059, -19.517455, -19.178033, 4 -18.899376, -18.668043, -18.471683, -18.160149, -17.830286, 5 -17.492277, -17.172499, -16.965517, -16.901255, -16.865263, 6 -16.845632, -16.838714, -16.833696, -16.829681/ DATA X2p/ 1 -35.779538, -34.184208, -33.083933, -31.512708, -29.543604, 2 -28.256123, -26.903279, -25.387738, -24.333408, -23.531477, 3 -22.889415, -21.907557, -21.178842, -20.610306, -20.152156, 4 -19.774043, -19.458248, -19.189136, -18.759267, -18.299831, 5 -17.823327, -17.365980, -17.066362, -16.972218, -16.919695, 6 -16.890892, -16.880696, -16.873357, -16.867478/ DATA FREQ3/ 1 19.516943, 19.164723, 18.914898, 18.562696, 18.119119, 2 17.827018, 17.517421, 17.165797, 16.916804, 16.724064, 3 16.566974, 16.320472, 16.130898, 15.977703, 15.849803, 4 15.740463, 15.646019, 15.562696, 15.423010, 15.261631, 5 15.074579, 14.863704, 14.696235, 14.635934, 14.600123, 6 14.579728, 14.572359, 14.567017, 14.562696/ DATA X3/ 1 -32.659912, -31.433874, -30.566210, -29.346836, -27.820290, 2 -26.823453, -25.777089, -24.605440, -23.789519, -23.167057, 3 -22.666147, -21.891933, -21.306393, -20.839041, -20.451712, 4 -20.122889, -19.840361, -19.591597, -19.176587, -18.699419, 5 -18.149566, -17.533628, -17.049033, -16.875774, -16.773227, 6 -16.714935, -16.693926, -16.678663, -16.666369/ DATA X3s/ 1 -31.705705, -30.479739, -29.612265, -28.392746, -26.866974, 2 -25.871133, -24.826672, -23.659806, -22.850344, -22.235989, 3 -21.744734, -20.993964, -20.435725, -19.998364, -19.643303, 4 -19.347420, -19.097776, -18.881962, -18.529746, -18.137370, 5 -17.701228, -17.231454, -16.873769, -16.748412, -16.674666, 6 -16.633129, -16.617776, -16.606984, -16.598091/ DATA X3p/ 1 -36.234105, -34.655854, -33.538432, -31.967064, -29.997698, 2 -28.709867, -27.356451, -25.839127, -24.782259, -23.977343, 3 -23.331485, -22.340276, -21.599900, -21.017917, -20.544424, 4 -20.149344, -19.815760, -19.527654, -19.058410, -18.538322, 5 -17.967020, -17.364676, -16.918642, -16.765111, -16.675798, 6 -16.625318, -16.607492, -16.594210, -16.583614/ DATA X3d/ 1 -41.364414, -39.434006, -38.066663, -36.143204, -33.730242, 2 -32.150245, -30.487089, -28.617809, -27.311427, -26.313205, 3 -25.509946, -24.270587, -23.339149, -22.602299, -21.924436, 4 -21.493723, -21.063954, -20.691590, -20.080654, -19.397357, 5 -18.637161, -17.823176, -17.209853, -16.996234, -16.871214, 6 -16.800539, -16.775144, -16.756765, -16.741919/ DATA FREQ4/ 1 19.516941, 19.164719, 18.914889, 18.562677, 18.119066, 2 17.826915, 17.517210, 17.165323, 16.915963, 16.722752, 3 16.565089, 16.317140, 16.125732, 15.970333, 15.839881, 4 15.727658, 15.630046, 15.543267, 15.395977, 15.221861, 5 15.011789, 14.756488, 14.527662, 14.435545, 14.377277, 6 14.342650, 14.329852, 14.320471, 14.312819/ DATA X4/ 1 -33.284599, -32.058554, -31.190879, -29.971473, -28.444826, 2 -27.447836, -26.401066, -25.228582, -24.411413, -23.787317, 3 -23.284581, -22.505775, -21.914353, -21.439606, -21.044235, 4 -20.705972, -20.413135, -20.153596, -19.714525, -19.197426, 5 -18.576241, -17.824248, -17.155428, -16.887819, -16.719154, 6 -16.619216, -16.582315, -16.555295, -16.533276/ DATA X4s/ 1 -32.080641, -30.854674, -29.986801, -28.767697, -27.241693, 2 -26.245685, -25.200974, -24.033538, -23.223063, -22.607845, 3 -22.115266, -21.360872, -20.798453, -20.355878, -19.995174, 4 -19.692644, -19.435600, -19.211713, -18.841933, -18.420428, 5 -17.932110, -17.363567, -16.873130, -16.680219, -16.559751, 6 -16.488746, -16.462241, -16.443053, -16.427763/ DATA X4p/ 1 -36.585694, -35.007703, -33.890016, -32.318668, -30.349350, 2 -29.061334, -27.707618, -26.189677, -25.132040, -24.325956, 3 -23.678826, -22.684226, -21.939671, -21.352566, -20.873369, 4 -20.471723, -20.130813, -19.835172, -19.348733, -18.800381, 5 -18.178384, -17.480038, -16.904760, -16.685329, -16.550262, 6 -16.471169, -16.442151, -16.420831, -16.403759/ DATA X4d/ 1 -41.585694, -39.655304, -38.288039, -36.364454, -33.951410, 2 -32.371226, -30.707789, -28.837992, -27.530994, -26.531796, 3 -25.727043, -24.484484, -23.549206, -22.807462, -22.198909, 4 -21.686891, -21.250382, -20.870478, -20.243060, -19.532238, 5 -18.722925, -17.815346, -17.075994, -16.798160, -16.628568, 6 -16.529588, -16.493472, -16.467238, -16.445815/ DATA X4f/ 1 -47.062815, -44.780358, -43.163100, -40.887314, -38.030685, 2 -36.158301, -34.185235, -31.963719, -30.407089, -29.214529, 3 -28.252197, -26.761810, -25.634821, -24.737662, -23.998757, 4 -23.374580, -22.839980, -22.373323, -21.598611, -20.713453, 5 -19.693804, -18.530997, -17.563112, -17.193424, -16.965517, 6 -16.832288, -16.783370, -16.747717, -16.718672/ DATA FREQ5/ 1 19.516940, 19.164717, 18.914886, 18.562668, 18.119042, 2 17.826867, 17.517112, 17.165103, 16.915573, 16.722143, 3 16.564213, 16.315589, 16.123320, 15.966880, 15.835211, 4 15.721601, 15.622449, 15.533972, 15.382871, 15.202143, 5 14.979337, 14.696203, 14.420029, 14.298047, 14.215909, 6 14.164752, 14.145327, 14.130897, 14.118999/ DATA X5/ 1 -33.769146, -32.543097, -31.675417, -30.455996, -28.929303, 2 -27.932243, -26.885239, -25.712408, -24.894628, -24.269941, 3 -23.766226, -22.985245, -22.390846, -21.912586, -21.513577, 4 -21.170761, -20.873304, -20.608270, -20.156957, -19.619181, 5 -18.958075, -18.121143, -17.308727, -16.951892, -16.712503, 6 -16.563827, -16.507488, -16.465627, -16.431184/ DATA X5s/ 1 -32.371142, -31.145245, -30.277611, -29.058332, -27.532386, 2 -26.536299, -25.491539, -24.323724, -23.512880, -22.897091, 3 -22.403960, -21.648140, -21.083702, -20.638728, -20.275002, 4 -19.969127, -19.708598, -19.480857, -19.102318, -18.665521, 5 -18.148008, -17.516456, -16.921283, -16.663742, -16.492247, 6 -16.386117, -16.345903, -16.316173, -16.291778/ DATA X5p/ 1 -36.866137, -35.287883, -34.170413, -32.599199, -30.629663, 2 -29.341564, -27.987755, -26.469536, -25.411517, -24.604882, 3 -23.957191, -22.961135, -22.214481, -21.625034, -21.142933, 4 -20.738297, -20.393941, -20.094254, -19.599261, -19.036165, 5 -18.385686, -17.626125, -16.948476, -16.665818, -16.480643, 6 -16.367024, -16.324502, -16.292865, -16.266917/ DATA X5d/ 1 -41.816885, -39.886598, -38.519116, -36.595706, -34.182651, 2 -32.602365, -30.938792, -29.068803, -27.761491, -26.761551, 3 -25.956256, -24.712472, -23.775049, -23.031086, -22.420027, 4 -21.905038, -21.464940, -21.081321, -20.445565, -19.720393, 5 -18.883701, -17.916497, -17.077571, -16.738117, -16.519620, 6 -16.387033, -16.337715, -16.301341, -16.271391/ DATA X5f/ 1 -47.128880, -44.846322, -43.229046, -40.953347, -38.096716, 2 -36.224291, -34.250943, -32.029199, -30.472360, -29.279276, 3 -28.316408, -26.824527, -25.695751, -24.796176, -24.054627, 4 -23.427631, -22.889877, -22.419401, -21.636478, -20.737351, 5 -19.690904, -18.469715, -17.404053, -16.973748, -16.697901, 6 -16.531879, -16.469784, -16.423961, -16.386588/ DATA X5g/ 1 -52.894711, -50.260082, -48.392958, -45.765034, -42.464679, 2 -40.300146, -38.017153, -35.443424, -33.636754, -32.250427, 3 -31.129593, -29.389103, -28.068001, -27.012118, -26.138711, 4 -25.398332, -24.761042, -24.202462, -23.268415, -22.188504, 5 -20.919298, -19.415147, -18.073478, -17.521544, -17.163795, 6 -16.946562, -16.865194, -16.805098, -16.755865/ DATA FREQ6/ 1 19.516940, 19.164715, 18.914883, 18.562663, 18.119029, 2 17.826841, 17.517059, 17.164984, 16.915361, 16.721812, 3 16.563737, 16.314744, 16.122004, 15.964992, 15.832652, 4 15.718275, 15.618265, 15.528838, 15.375583, 15.191044, 5 14.960636, 14.659571, 14.348026, 14.199875, 14.094175, 6 14.025088, 13.998063, 13.977668, 13.960636/ DATA X6/ 1 -34.165051, -32.939000, -32.071317, -30.851888, -29.325169, 2 -28.328071, -27.280986, -26.107892, -25.289843, -24.664705, 3 -24.160564, -23.378190, -22.782394, -22.302428, -21.901012, 4 -21.555896, -21.255472, -20.987585, -20.529803, -19.979782, 5 -19.295022, -18.402541, -17.482757, -17.047424, -16.737838, 6 -16.536084, -16.457331, -16.397931, -16.348398/ DATA X6s/ 1 -32.608820, -31.382756, -30.515126, -29.295866, -27.769793, 2 -26.773814, -25.728819, -24.560932, -23.750086, -23.133811, 3 -22.640288, -21.883631, -21.318035, -20.871913, -20.506426, 4 -20.198858, -19.936428, -19.706400, -19.322760, -18.877373, 5 -18.342274, -17.669792, -16.995256, -16.680122, -16.457336, 6 -16.312694, -16.256489, -16.214113, -16.178612/ DATA X6p/ 1 -37.098169, -35.519950, -34.402525, -32.831070, -30.861699, 2 -29.573885, -28.219694, -26.701459, -25.643044, -24.836230, 3 -24.188105, -23.191275, -22.443490, -21.852666, -21.369042, 4 -20.962634, -20.616374, -20.314553, -19.814673, -19.242970, 5 -18.575541, -17.775947, -17.020568, -16.681448, -16.445735, 6 -16.294606, -16.235710, -16.191866, -16.154983/ DATA X6d/ 1 -42.024362, -40.094064, -38.726686, -36.803137, -34.390124, 2 -32.809866, -31.146180, -29.276029, -27.968300, -26.968324, 3 -26.162701, -24.918051, -23.979662, -23.234506, -22.621799, 4 -22.105162, -21.663212, -21.277514, -20.637026, -19.903484, 5 -19.050185, -18.044511, -17.129904, -16.735338, -16.467566, 6 -16.298269, -16.232977, -16.184230, -16.143922/ DATA X6f/ 1 -47.267412, -44.984913, -43.367636, -41.091842, -38.235239, 2 -36.362731, -34.389528, -32.167518, -30.610443, -29.417223, 3 -28.453971, -26.961283, -25.831491, -24.930907, -24.187725, 4 -23.559075, -23.019383, -22.547066, -21.759545, -20.852145, 5 -19.789541, -18.530522, -17.390884, -16.906727, -16.582667, 6 -16.380139, -16.302886, -16.245236, -16.197380/ DATA X6g/ 1 -52.845039, -50.210247, -48.343069, -45.715131, -42.414728, 2 -40.250164, -37.967149, -35.393156, -33.586496, -32.199833, 3 -31.078643, -29.337458, -27.969702, -26.958401, -26.083595, 4 -25.341555, -24.702345, -24.141808, -23.203287, -22.115356, 5 -20.830007, -19.288694, -17.874057, -17.268729, -16.863465, 6 -16.610369, -16.513883, -16.442010, -16.382570/ DATA X6h/ 1 -58.850334, -55.863542, -53.746437, -50.766409, -47.022317, 2 -44.565391, -41.972509, -39.046704, -36.990356, -35.410261, 3 -34.131188, -32.140740, -30.626018, -29.411767, -28.404701, 4 -27.548439, -26.808936, -26.159088, -25.067378, -23.795088, 5 -22.279431, -20.436907, -18.711058, -17.957760, -17.446882, 6 -17.124901, -17.001376, -16.909196, -16.832806/ DATA FREQ7/ 1 19.516939, 19.164715, 18.914882, 18.562661, 18.119021, 2 17.826825, 17.517027, 17.164912, 16.915233, 16.721612, 3 16.563450, 16.314234, 16.121209, 15.963850, 15.831103, 4 15.716257, 15.615723, 15.525712, 15.371128, 15.184212, 5 14.948958, 14.635891, 14.298034, 14.127792, 13.999929, 6 13.912303, 13.876929, 13.849764, 13.826742/ DATA X7/ 1 -34.499784, -33.273731, -32.406047, -31.186614, -29.659879, 2 -28.662758, -27.615624, -26.442410, -25.624138, -24.998790, 3 -24.494343, -23.711394, -23.114332, -22.633333, -22.230699, 4 -21.884181, -21.582185, -21.312152, -20.849982, -20.292819, 5 -19.593097, -18.663739, -17.663648, -17.161477, -16.785637, 6 -16.528798, -16.425342, -16.345983, -16.278790/ DATA FREQ8/ 1 19.516939, 19.164714, 18.914881, 18.562659, 18.119016, 2 17.826815, 17.517006, 17.164865, 16.915150, 16.721482, 3 16.563263, 16.313903, 16.120692, 15.963107, 15.830094, 4 15.714942, 15.614066, 15.523672, 15.368212, 15.179720, 5 14.941207, 14.619801, 14.262209, 14.073663, 13.925602, 6 13.819464, 13.775217, 13.740590, 13.710759/ DATA X8/ 1 -34.789743, -33.563690, -32.696004, -31.476568, -29.949823, 2 -28.952576, -27.905521, -26.732230, -25.913849, -25.288312, 3 -24.783697, -24.000359, -23.402741, -22.921064, -22.517235, 4 -22.169801, -21.866776, -21.595595, -21.130798, -20.568503, 5 -19.858590, -18.903358, -17.843146, -17.285660, -16.849210, 6 -16.537235, -16.407454, -16.306014, -16.218699/ DATA FREQ9/ 1 19.516939, 19.164714, 18.914881, 18.562657, 18.119012, 2 17.826808, 17.516992, 17.164833, 16.915093, 16.721394, 3 16.563135, 16.313676, 16.120337, 15.962597, 15.829401, 4 15.714039, 15.612925, 15.522267, 15.366202, 15.176613, 5 14.935812, 14.608414, 14.235819, 14.032225, 13.866132, 6 13.741981, 13.688539, 13.645876, 13.608454/ DATA X9/ 1 -35.045505, -33.819451, -32.951765, -31.732326, -30.205575, 2 -29.208318, -28.161241, -26.987832, -26.169441, -25.543807, 3 -25.039029, -24.255440, -23.657439, -23.175297, -22.770919, 4 -22.422852, -22.118723, -21.846749, -21.380133, -20.814545, 5 -20.097359, -19.123314, -18.017622, -17.414518, -16.923750, 6 -16.558183, -16.401026, -16.275647, -16.165911/ DATA FREQ10/ 1 19.516939, 19.164714, 18.914880, 18.562657, 18.119009, 2 17.826803, 17.516982, 17.164810, 16.915052, 16.721330, 3 16.563043, 16.313513, 16.120083, 15.962231, 15.828904, 4 15.713391, 15.612108, 15.521260, 15.364758, 15.174377, 5 14.931912, 14.600083, 14.215909, 13.999955, 13.817969, 6 13.676626, 13.613849, 13.562692, 13.516939/ DATA X10/ 1 -35.274293, -34.048238, -33.180551, -31.961111, -30.434355, 2 -29.437090, -28.389998, -27.216550, -26.398051, -25.772354, 3 -25.267495, -24.483312, -23.885464, -23.402587, -22.997820, 4 -22.649302, -22.344664, -22.072514, -21.604193, -21.035827, 5 -20.313639, -19.326284, -18.184568, -17.544349, -17.005732, 6 -16.588554, -16.403642, -16.253350, -16.118795/ DATA FREQ11/ 1 19.516939, 19.164713, 18.914880, 18.562656, 18.119008, 2 17.826799, 17.516974, 17.164793, 16.915022, 16.721283, 3 16.562976, 16.313392, 16.119895, 15.961961, 15.828537, 4 15.712911, 15.611502, 15.520513, 15.363687, 15.172715, 5 14.929003, 14.593814, 14.200566, 13.974434, 13.778545, 6 13.621032, 13.548931, 13.488931, 13.434153/ DATA X11/ 1 -35.481256, -34.255201, -33.387514, -32.168073, -30.641313, 2 -29.644043, -28.596939, -27.423463, -26.604924, -25.979176, 3 -25.474255, -24.689915, -24.091864, -23.608739, -23.203681, 4 -22.854826, -22.549810, -22.276842, -21.807547, -21.237407, 5 -20.511071, -19.513620, -18.342986, -17.672186, -17.092253, 6 -16.625647, -16.412652, -16.237373, -16.076228/ C 5 -20.511071, -19.513620, -18.342150, -17.667949, -17.093121, C 6 -16.627232, -16.414294, -16.237373, -16.076228/ C 25jul03 FIVE bad numbers in X11 - X13 DATA FREQ12/ 1 19.516939, 19.164713, 18.914880, 18.562655, 18.119006, 2 17.826796, 17.516969, 17.164780, 16.914999, 16.721247, 3 16.562924, 16.313301, 16.119752, 15.961755, 15.828257, 4 15.712546, 15.611041, 15.519944, 15.362870, 15.171447, 5 14.926778, 14.588984, 14.188523, 13.953966, 13.745966, 6 13.573403, 13.492115, 13.423028, 13.358576/ DATA X12/ 1 -35.670198, -34.444144, -33.576456, -32.357014, -30.830251, 2 -29.832977, -28.785864, -27.612367, -26.793798, -26.168012, 3 -25.663043, -24.878583, -24.280378, -23.797065, -23.391784, 4 -23.042673, -22.737368, -22.464078, -21.994040, -21.422148, 5 -20.692935, -19.687256, -18.494545, -17.795069, -17.182159, 6 -16.669643, -16.429381, -16.227310, -16.037494/ C 5 -20.692935, -19.687256, -18.494545, -17.795069, -17.183891, C 6 -16.673156, -16.431990, -16.227310, -16.037494/ DATA FREQ13/ 1 19.516939, 19.164713, 18.914880, 18.562655, 18.119005, 2 17.826794, 17.516964, 17.164770, 16.914981, 16.721219, 3 16.562884, 16.313230, 16.119641, 15.961595, 15.828039, 4 15.712262, 15.610681, 15.519501, 15.362233, 15.170457, 5 14.925038, 14.585188, 14.178914, 13.937343, 13.718804, 6 13.532347, 13.442104, 13.363780, 13.289052/ DATA X13/ 1 -35.844009, -34.617954, -33.750266, -32.530823, -31.004058, 2 -30.006781, -28.959661, -27.786148, -26.967555, -26.341739, 3 -25.836687, -25.051753, -24.453445, -23.969994, -23.564544, 4 -23.215236, -22.909707, -22.636559, -22.165546, -21.592592, 5 -20.861125, -19.849269, -18.640363, -17.921966, -17.273191, 6 -16.719020, -16.451969, -16.222218, -16.001878/ C 5 -20.861125, -19.849269, -18.639111, -17.918166, -17.276217, C 6 -16.722786, -16.454970, -16.222218, -16.001878/ DATA FREQ14/ 1 19.516939, 19.164713, 18.914879, 18.562655, 18.119004, 2 17.826792, 17.516961, 17.164762, 16.914967, 16.721197, 3 16.562852, 16.313173, 16.119552, 15.961468, 15.827866, 4 15.712036, 15.610396, 15.519149, 15.361728, 15.169670, 5 14.923652, 14.582152, 14.171135, 13.923684, 13.695974, 6 13.496762, 13.397869, 13.310243, 13.224682/ DATA X14/ 1 -36.004932, -34.778877, -33.911189, -32.691746, -31.164979, 2 -30.167699, -29.120574, -27.947047, -27.128436, -26.502596, 3 -25.997515, -25.212506, -24.614103, -24.130536, -23.724949, 4 -23.375482, -23.069774, -22.796032, -22.324557, -21.750758, 5 -21.017491, -20.000677, -18.777116, -18.041065, -17.364348, 6 -16.772813, -16.479089, -16.221551, -15.968930/ C 5 -21.017491, -20.000677, -18.776282, -18.037692, -17.368665, C 6 -16.776515, -16.482568, -16.221551, -15.968930/ DATA FREQ15/ 1 19.516939, 19.164713, 18.914879, 18.562654, 18.119003, 2 17.826791, 17.516958, 17.164756, 16.914956, 16.721179, 3 16.562826, 16.313127, 16.119481, 15.961365, 15.827726, 4 15.711854, 15.610166, 15.518864, 15.361319, 15.169034, 5 14.922532, 14.579688, 14.164756, 13.912343, 13.676639, 6 13.465764, 13.358576, 13.261657, 13.164756/ DATA X15/ 1 -36.154748, -34.928693, -34.061005, -32.841561, -31.314793, 2 -30.317511, -29.270382, -28.096844, -27.278218, -26.652358, 3 -26.147254, -25.362186, -24.763705, -24.280044, -23.874346, 4 -23.524751, -23.218899, -22.944996, -22.473148, -21.898667, 5 -21.163944, -20.143099, -18.907170, -18.155759, -17.454858, 6 -16.827663, -16.509932, -16.224591, -15.938340/ C 5 -21.163944, -20.143099, -18.906962, -18.152646, -17.460462, C 6 -16.832855, -16.513888, -16.224591, -15.938340/ DATA EKARZAS/10000.,4444.,2500.,1111.,400.,204.1,100.,44.44, 1 25.,16.,11.11,6.25,4.,2.778,2.041,1.562,1.235,1.,0.6944,0.4444, 2 0.25,0.1111,0.04,0.02041,0.01,0.004444,0.0025,0.001111,0./ FREQLG=LOG10(FREQ/ZEFF2) XKARZAS=0. IF(L.GE.N.OR.N.GT.6)THEN IF(N.GT.15)GO TO 5 IF(FREQLG.LT.FREQN(29,N))RETURN DO 1 I=2,29 IF(FREQLG.GT.FREQN(I,N))GO TO 2 1 CONTINUE 2 X=(FREQLG-FREQN(I,N))/(FREQN(I-1,N)-FREQN(I,N))* 1(XN(I-1,N)-XN(I,N))+XN(I,N) XKARZAS=EXP(X*2.30258509299405E0)/ZEFF2 RETURN ENDIF IF(FREQLG.LT.FREQN(29,N))RETURN DO 3 I=2,29 IF(FREQLG.GT.FREQN(I,N))GO TO 4 3 CONTINUE 4 X=(FREQLG-FREQN(I,N))/(FREQN(I-1,N)-FREQN(I,N))* 1(XL(I-1,L+1,N)-XL(I,L+1,N))+XL(I,L+1,N) XKARZAS=EXP(X*2.30258509299405E0)/ZEFF2 RETURN 5 FREQN15(29)=LOG10(109677.576*2.99792458E10/N**2) IF(FREQLG.LT.FREQN15(29))RETURN DO 6 I=2,28 FREQN15(I)=LOG10((EKARZAS(I)+1./N**2)*109677.576*2.99792458E10) IF(FREQLG.GT.FREQN15(I))GO TO 7 6 CONTINUE I=29 7 X=(FREQLG-FREQN15(I))/(FREQN15(I-1)-FREQN15(I))* 1(XN(I-1,15)-XN(I,15))+XN(I,15) XKARZAS=EXP(X*2.30258509299405E0)/ZEFF2 RETURN END FUNCTION COULX(N,FREQ,Z) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) DIMENSION A(6),B(6),C(6) DATA A/.9916,1.105,1.101,1.101,1.102,1.0986/ DATA B/2.719E13,-2.375E14,-9.863E13,-5.765E13,-3.909E13,-2.704E13/ DATA C/-2.268E30,4.077E28,1.035E28,4.593E27,2.371E27,1.229E27/ IF(FREQ.LT.Z*Z*3.28805E15/DFLOAT(N*N))GO TO 1 COULX=2.815E29/FREQ/FREQ/FREQ/DFLOAT(N**5)*Z**4 IF(N.GT.6)RETURN IF(N.EQ.1)THEN COULX=COULX*COULBF1S(FREQ,Z) RETURN ENDIF COULX=COULX*(A(N)+(B(N)+C(N)*(Z*Z/FREQ))*(Z*Z/FREQ)) RETURN 1 COULX=0. RETURN END FUNCTION COULBF1S(FREQ,Z) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) DIMENSION GAUNT1S(151) DATA GAUNT1S/ 1 0.7973,0.8094,0.8212,0.8328,0.8439,0.8548,0.8653,0.8754,0.8852, 2 0.8946,0.9035,0.9120,0.9201,0.9278,0.9351,0.9420,0.9484,0.9544, 3 0.9601,0.9653,0.9702,0.9745,0.9785,0.9820,0.9852,0.9879,0.9903, 4 0.9922,0.9938,0.9949,0.9957,0.9960,0.9960,0.9957,0.9949,0.9938, 5 0.9923,0.9905,0.9884,0.9859,0.9832,0.9801,0.9767,0.9730,0.9688, 6 0.9645,0.9598,0.9550,0.9499,0.9445,0.9389,0.9330,0.9269,0.9206, 7 0.9140,0.9071,0.9001,0.8930,0.8856,0.8781,0.8705,0.8627,0.8546, 8 0.8464,0.8381,0.8298,0.8213,0.8128,0.8042,0.7954,0.7866,0.7777, 9 0.7685,0.7593,0.7502,0.7410,0.7318,0.7226,0.7134,0.7042,0.6951, A 0.6859,0.6767,0.6675,0.6584,0.6492,0.6401,0.6310,0.6219,0.6129, 1 0.6039,0.5948,0.5859,0.5769,0.5680,0.5590,0.5502,0.5413,0.5324, 2 0.5236,0.5148,0.5063,0.4979,0.4896,0.4814,0.4733,0.4652,0.4572, 3 0.4493,0.4415,0.4337,0.4261,0.4185,0.4110,0.4035,0.3962,0.3889, 4 0.3818,0.3749,0.3680,0.3611,0.3544,0.3478,0.3413,0.3348,0.3285, 5 0.3222,0.3160,0.3099,0.3039,0.2980,0.2923,0.2866,0.2810,0.2755, 6 0.2701,0.2648,0.2595,0.2544,0.2493,0.2443,0.2394,0.2345,0.2298, 7 0.2251,0.2205,0.2160,0.2115,0.2072,0.2029,0.1987/ COULBF1S=0. IF(FREQ/Z**2.LT.3.28805E15)RETURN ELOG=LOG10(FREQ/Z**2/3.28805E15) I=ELOG/.02 I=MAX(MIN(I+1,150),1) COULBF1S=GAUNT1S(I)+ 1(GAUNT1S(I+1)-GAUNT1S(I))/.02*(ELOG-(I-1)*.02) RETURN END FUNCTION COULFF(J,NZ) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP DIMENSION Z4LOG(6),A(11,12) DATA Z4LOG/0.,1.20412,1.90849,2.40824,2.79588,3.11261/ DATA A/ 15.53,5.49,5.46,5.43,5.40,5.25,5.00,4.69,4.48,4.16,3.85, 24.91,4.87,4.84,4.80,4.77,4.63,4.40,4.13,3.87,3.52,3.27, 34.29,4.25,4.22,4.18,4.15,4.02,3.80,3.57,3.27,2.98,2.70, 43.64,3.61,3.59,3.56,3.54,3.41,3.22,2.97,2.70,2.45,2.20, 53.00,2.98,2.97,2.95,2.94,2.81,2.65,2.44,2.21,2.01,1.81, 62.41,2.41,2.41,2.41,2.41,2.32,2.19,2.02,1.84,1.67,1.50, 71.87,1.89,1.91,1.93,1.95,1.90,1.80,1.68,1.52,1.41,1.30, 81.33,1.39,1.44,1.49,1.55,1.56,1.51,1.42,1.33,1.25,1.17, 90.90,0.95,1.00,1.08,1.17,1.30,1.32,1.30,1.20,1.15,1.11, A0.55,0.58,0.62,0.70,0.85,1.01,1.15,1.18,1.15,1.11,1.08, B0.33,0.36,0.39,0.46,0.59,0.76,0.97,1.09,1.13,1.10,1.08, C0.19,0.21,0.24,0.28,0.38,0.53,0.76,0.96,1.08,1.09,1.09/ C ERROR CORRECTED 13APR88 C A0.45,0.48,0.52,0.60,0.75,0.91,1.15,1.18,1.15,1.11,1.08, C C GAMLOG=DLOG10(158000*Z*Z/T)*2 GAMLOG=10.39638-TLOG(J)/1.15129+Z4LOG(NZ) IGAM=MAX0(MIN0( INT(GAMLOG+7.),10),1) C HVKTLG=DLOG10(HVKT)*2 HVKTLG=(FREQLG-TLOG(J))/1.15129-20.63764 IHVKT=MAX0(MIN0( INT(HVKTLG+9.),11),1) P=GAMLOG-DFLOAT(IGAM-7) Q=HVKTLG-DFLOAT(IHVKT-9) COULFF=(1.-P)*((1.-Q)*A(IGAM,IHVKT)+Q*A(IGAM,IHVKT+1))+ 1P*((1.-Q)*A(IGAM+1,IHVKT)+Q*A(IGAM+1,IHVKT+1)) RETURN END SUBROUTINE H2PLOP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /DEPART/BHYD(kw,6),BMIN(kw),NLTEON COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /OPS/D1(kw),AH2P(kw),D2(kw,23) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) IF(FREQ.GT.3.28805E15)RETURN FR=-3.0233E3+(3.7797E2+(-1.82496E1+(3.9207E-1-3.1672E-3*FREQLG)* 1FREQLG)*FREQLG)*FREQLG ES=-7.342E-3+(-2.409E-15+(1.028E-30+(-4.230E-46+(1.224E-61- 1 1.351E-77*FREQ)*FREQ)*FREQ)*FREQ)*FREQ DO 10 J=1,NRHOX 10 AH2P(J)=EXP(-ES/TKEV(J)+FR)*XNFP(J,1)*2.*BHYD(J,1)*XNFP(J,2)/ 1RHO(J)*STIM(J) RETURN END SUBROUTINE HMINOP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /DEPART/BHYD(kw,6),BMIN(kw),NLTEON COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /OPS/D1(kw,2),AHMIN(kw),D2(kw,18),SHMIN(kw),D3(kw,3) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) DIMENSION WBF(85),BF(85),FFLOG(22,11),FF(11,22) DIMENSION FFBEG(11,11),FFEND(11,11),FFTT(11),WFFLOG(22) DIMENSION THETA(kw),FFTHETA(kw),THETAFF(11),WAVEK(22) EQUIVALENCE (FF(1,1),FFBEG(1,1)),(FF(1,12),FFEND(1,1)) C FROM MATHISEN (1984), AFTER WISHART(1979) AND BROAD AND REINHARDT (1976) DATA WBF/ 18.00, 19.60, 21.40, 23.60, 26.40, 29.80, 34.30, 1 40.40, 49.10, 62.60, 111.30, 112.10, 112.67, 112.95, 113.05, 2 113.10, 113.20, 113.23, 113.50, 114.40, 121.00, 139.00, 164.00, 3 175.00, 200.00, 225.00, 250.00, 275.00, 300.00, 325.00, 350.00, 4 375.00, 400.00, 425.00, 450.00, 475.00, 500.00, 525.00, 550.00, 5 575.00, 600.00, 625.00, 650.00, 675.00, 700.00, 725.00, 750.00, 6 775.00, 800.00, 825.00, 850.00, 875.00, 900.00, 925.00, 950.00, 7 975.00,1000.00,1025.00,1050.00,1075.00,1100.00,1125.00,1150.00, 8 1175.00,1200.00,1225.00,1250.00,1275.00,1300.00,1325.00,1350.00, 9 1375.00,1400.00,1425.00,1450.00,1475.00,1500.00,1525.00,1550.00, A 1575.00,1600.00,1610.00,1620.00,1630.00,1643.91/ DATA BF/ 0.067, 0.088, 0.117, 0.155, 0.206, 0.283, 0.414, 1 0.703, 1.24, 2.33, 11.60, 13.90, 24.30, 66.70, 95.00, 2 56.60, 20.00, 14.60, 8.50, 7.10, 5.43, 5.91, 7.29, 3 7.918, 9.453, 11.08, 12.75, 14.46, 16.19, 17.92, 19.65, 4 21.35, 23.02, 24.65, 26.24, 27.77, 29.23, 30.62, 31.94, 5 33.17, 34.32, 35.37, 36.32, 37.17, 37.91, 38.54, 39.07, 6 39.48, 39.77, 39.95, 40.01, 39.95, 39.77, 39.48, 39.06, 7 38.53, 37.89, 37.13, 36.25, 35.28, 34.19, 33.01, 31.72, 8 30.34, 28.87, 27.33, 25.71, 24.02, 22.26, 20.46, 18.62, 9 16.74, 14.85, 12.95, 11.07, 9.211, 7.407, 5.677, 4.052, A 2.575, 1.302, 0.8697, 0.4974, 0.1989, 0. / C Bell and Berrington J.Phys.B,vol. 20, 801-806,1987. DATA WAVEK/.50,.40,.35,.30,.25,.20,.18,.16,.14,.12,.10,.09,.08, 1 .07,.06,.05,.04,.03,.02,.01,.008,.006/ DATA THETAFF/ 1 0.5, 0.6, 0.8, 1.0, 1.2, 1.4, 1.6, 1.8, 2.0, 2.8, 3.6/ DATA FFBEG/ 1.0178,.0222,.0308,.0402,.0498,.0596,.0695,.0795,.0896, .131, .172, 1823 2.0228,.0280,.0388,.0499,.0614,.0732,.0851,.0972, .110, .160, .211, 2278 3.0277,.0342,.0476,.0615,.0760,.0908, .105, .121, .136, .199, .262, 2604 4.0364,.0447,.0616,.0789,.0966, .114, .132, .150, .169, .243, .318, 3038 5.0520,.0633,.0859, .108, .131, .154, .178, .201, .225, .321, .418, 3645 6.0791,.0959, .129, .161, .194, .227, .260, .293, .327, .463, .602, 4557 7.0965, .117, .157, .195, .234, .272, .311, .351, .390, .549, .711, 5063 8 .121, .146, .195, .241, .288, .334, .381, .428, .475, .667, .861, 5696 9 .154, .188, .249, .309, .367, .424, .482, .539, .597, .830, 1.07, 6510 A .208, .250, .332, .409, .484, .557, .630, .702, .774, 1.06, 1.36, 7595 B .293, .354, .468, .576, .677, .777, .874, .969, 1.06, 1.45, 1.83/ 9113 DATA FFEND/ 1 .358, .432, .572, .702, .825, .943, 1.06, 1.17, 1.28, 1.73, 2.17, 10126 2 .448, .539, .711, .871, 1.02, 1.16, 1.29, 1.43, 1.57, 2.09, 2.60, 11392 3 .579, .699, .924, 1.13, 1.33, 1.51, 1.69, 1.86, 2.02, 2.67, 3.31, 13019 4 .781, .940, 1.24, 1.52, 1.78, 2.02, 2.26, 2.48, 2.69, 3.52, 4.31, 15189 5 1.11, 1.34, 1.77, 2.17, 2.53, 2.87, 3.20, 3.51, 3.80, 4.92, 5.97, 18227 6 1.73, 2.08, 2.74, 3.37, 3.90, 4.50, 5.01, 5.50, 5.95, 7.59, 9.06, 22784 7 3.04, 3.65, 4.80, 5.86, 6.86, 7.79, 8.67, 9.50, 10.3, 13.2, 15.6, 30378 8 6.79, 8.16, 10.7, 13.1, 15.3, 17.4, 19.4, 21.2, 23.0, 29.5, 35.0, 45567 9 27.0, 32.4, 42.6, 51.9, 60.7, 68.9, 76.8, 84.2, 91.4, 117., 140., 91134 A 42.3, 50.6, 66.4, 80.8, 94.5, 107., 120., 131., 142., 183., 219., 113918 B 75.1, 90.0, 118., 144., 168., 191., 212., 234., 253., 325., 388./ 151890 DIMENSION XHMIN(kw) DATA ITEMP1,ISTART/0,0/ IF(ISTART.EQ.0)THEN ISTART=1 DO 2 IWAVE=1,22 C 91.134 NUMBER TAKEN FROM BELL AND BERRINGTON WFFLOG(IWAVE)=DLOG(91.134D0/WAVEK(IWAVE)) DO 2 ITHETA=1,11 2 FFLOG(IWAVE,ITHETA)=DLOG(FF(ITHETA,IWAVE)*1.E-26) ENDIF IF(ITEMP.EQ.ITEMP1)GO TO 20 ITEMP1=ITEMP DO 11 J=1,NRHOX THETA(J)=5040./T(J) C .754209 HOTOP AND LINEBERGER J.PHYS.CHEM.REF.DATA VOL 14,731-752,1985. 11 XHMIN(J)=EXP(.754209/TKEV(J))/(2.*2.4148E15*T(J)*SQRT(T(J)))* 1BMIN(J)*BHYD(J,1)*XNFP(J,1)*XNE(J) 20 WAVELOG=DLOG(WAVE) DO 21 ITHETA=1,11 CALL LINTER(WFFLOG,FFLOG(1,ITHETA),22,WAVELOG,FFTLOG,1) 21 FFTT(ITHETA)=EXP(FFTLOG)/THETAFF(ITHETA)*5040.*1.380658E-16 HMINBF=0. IF(FREQ.GT.1.82365E14)MAXWAVE=MAP1(WBF,BF,85,WAVE,HMINBF,1) C MAXT=MAP1(THETAFF,FFTT,11,THETA,FFTHETA,NRHOX) DO 31 J=1,NRHOX CALL LINTER(THETAFF,FFTT,11,THETA(J),FFTHETA(J),1) HMINFF=FFTHETA(J)*XNFP(J,1)*2.*BHYD(J,1)*XNE(J)/RHO(J) 97 FORMAT(I5,F10.4,F10.4,1PE12.4) H=HMINBF*1.E-18*(1.-EHVKT(J)/BMIN(J))*XHMIN(J)/RHO(J) AHMIN(J)=H+HMINFF 31 SHMIN(J)=(H*BNU(J)*STIM(J)/(BMIN(J)-EHVKT(J))+HMINFF*BNU(J))/ 1AHMIN(J) RETURN END SUBROUTINE LINTER(XOLD,YOLD,NOLD,XNEW,YNEW,NNEW) IMPLICIT REAL*8 (A-H,O-Z) DIMENSION XOLD(1),YOLD(1),XNEW(1),YNEW(1) C XOLD AND XNEW INCREASING IOLD=2 DO 2 INEW=1,NNEW 1 IF(XNEW(INEW).LT.XOLD(IOLD))GO TO 2 IF(IOLD.EQ.NOLD)GO TO 2 IOLD=IOLD+1 GO TO 1 2 YNEW(INEW)=YOLD(IOLD-1)+(YOLD(IOLD)-YOLD(IOLD-1))/ 1(XOLD(IOLD)-XOLD(IOLD-1))*(XNEW(INEW)-XOLD(IOLD-1)) RETURN END SUBROUTINE HRAYOP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /DEPART/BHYD(kw,6),BMIN(kw),NLTEON COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /OPS/D1(kw,3),SIGH(kw),D2(kw,21) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) W=2.99792458E18/DMIN1(FREQ,2.463D15) WW=W**2 SIG=(5.799E-13+1.422E-6/WW+2.784/(WW*WW))/(WW*WW) DO 2 J=1,NRHOX 2 SIGH(J)=SIG*XNFP(J,1)*2.*BHYD(J,1)/RHO(J) RETURN END SUBROUTINE HE1OP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) C REQUIRES FUNCTIONS COULX AND COULFF COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /OPS/D1(kw,4),AHE1(kw),D2(kw,20) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) DIMENSION CHI(10),BOLT(kw,10),EXLIM(kw),HEFREQ(10),TRANS(10),G(10) DIMENSION TRANS1S(10),TRANSN(27),BOLTN(kw,27) DIMENSION BOLTEX(kw),FREET(kw),AHE1FREE(kw),AHE1BOUND(kw) DATA G/1.,3.,1.,9.,3.,3.,1.,9.,20.,3./ DATA HEFREQ/5.945209E15,1.152844E15,.9603331E15,.8761076E15, 1 .8147104E15,.4519048E15,.4030971E15,.3821191E15,.3660215E15, 2 .3627891E15/ DATA CHI/0.,19.819,20.615,20.964,21.217,22.718,22.920,23.006, 1 23.073,23.086/ DATA ITEMP1/0/ IF(ITEMP.EQ.ITEMP1)GO TO 10 ITEMP1=ITEMP RYD=109722.273*2.99792458E10 DO 5 J=1,NRHOX DO 4 N=1,10 4 BOLT(J,N)=EXP(-CHI(N)/TKEV(J))*G(N)*XNFP(J,3)/RHO(J) DO 304 N=4,27 304 BOLTN(J,N)=EXP(-24.587*(1.-1./N**2)/TKEV(J))*4.*N**2* 1XNFP(J,3)/RHO(J) FREET(J)=XNE(J)*XNF(J,4)/RHO(J)/SQRT(T(J)) XR=XNFP(J,3)*(4./2./13.595)*TKEV(J)/RHO(J) BOLTEX(J)=EXP(-23.730/TKEV(J))*XR 5 EXLIM(J)=EXP(-24.587/TKEV(J))*XR 10 FREQ3=FREQ**3 CFREE=3.6919E8/FREQ3 C=2.815E29/FREQ3 DO 15 IMIN=1,10 IF(HEFREQ(IMIN).LE.FREQ)GO TO 16 15 CONTINUE IMIN=0 GO TO 40 16 GO TO (21,22,23,24,25,26,27,28,29,30),IMIN 21 TRANS(1)=CROSSHE(FREQ) 22 TRANS(2)=HE12s3S(FREQ) 23 TRANS(3)=HE12s1S(FREQ) 24 TRANS(4)=HE12p3P(FREQ) 25 TRANS(5)=HE12p1P(FREQ) C 1s3s 3S 26 TRANS(6)=XKARZAS(FREQ,1.236439D0,3,0) c 1s3s 1S 27 TRANS(7)=XKARZAS(FREQ,1.102898D0,3,0) c 1s3p 3P 28 TRANS(8)=XKARZAS(FREQ,1.045499D0,3,1) c 1s3d 3D+1D 29 TRANS(9)=XKARZAS(FREQ,1.001427D0,3,2) c 1s3p 1P 30 TRANS(10)=XKARZAS(FREQ,.9926D0,3,1) c HeII n=2 31 ELIM=527490.06 FREQHE=(ELIM-171135.000)*2.99792458E10 776 FORMAT(1P10E13.6) IF(FREQ.LT.FREQHE)GO TO 32 ZEFF2=FREQHE/RYD TRANS(5)=TRANS(5)+XKARZAS(FREQ,ZEFF2,1,0) FREQHE=(ELIM-169087.)*2.99792458E10 IF(FREQ.LT.FREQHE)GO TO 32 ZEFF2=FREQHE/RYD TRANS(4)=TRANS(4)+XKARZAS(FREQ,ZEFF2,1,0) FREQHE=(ELIM-166277.546)*2.99792458E10 IF(FREQ.LT.FREQHE)GO TO 32 ZEFF2=FREQHE/RYD TRANS(3)=TRANS(3)+XKARZAS(FREQ,ZEFF2,1,0) FREQHE=(ELIM-159856.069)*2.99792458E10 IF(FREQ.LT.FREQHE)GO TO 32 ZEFF2=FREQHE/RYD TRANS(2)=TRANS(2)+XKARZAS(FREQ,ZEFF2,1,0) C HeII n=3 32 ELIM=588451.59 FREQHE=(ELIM-186209.471)*2.99792458E10 IF(FREQ.LT.FREQHE)GO TO 40 ZEFF2=FREQHE/RYD TRANS(10)=TRANS(10)+XKARZAS(FREQ,ZEFF2,1,0) FREQHE=(ELIM-186101.)*2.99792458E10 IF(FREQ.LT.FREQHE)GO TO 40 ZEFF2=FREQHE/RYD TRANS(9)=TRANS(9)+XKARZAS(FREQ,ZEFF2,1,0) FREQHE=(ELIM-185564.)*2.99792458E10 IF(FREQ.LT.FREQHE)GO TO 40 ZEFF2=FREQHE/RYD TRANS(8)=TRANS(8)+XKARZAS(FREQ,ZEFF2,1,0) FREQHE=(ELIM-184864.)*2.99792458E10 IF(FREQ.LT.FREQHE)GO TO 40 ZEFF2=FREQHE/RYD TRANS(7)=TRANS(7)+XKARZAS(FREQ,ZEFF2,1,0) FREQHE=(ELIM-183236.)*2.99792458E10 IF(FREQ.LT.FREQHE)GO TO 40 ZEFF2=FREQHE/RYD TRANS(6)=TRANS(6)+XKARZAS(FREQ,ZEFF2,1,0) IF(FREQ.LT.1.25408E+16)GO TO 40 DO 34 N=4,27 ZEFF2=4.-3./N**2 34 TRANSN(N)=XKARZAS(FREQ,ZEFF2,1,0) 40 DO 45 J=1,NRHOX EX=BOLTEX(J) IF(FREQ.LT.2.055E14)EX=EXLIM(J)/EHVKT(J) HE1=(EX-EXLIM(J))*C IF(IMIN.EQ.0)GO TO 44 DO 41 N=IMIN,10 41 HE1=HE1+TRANS(N)*BOLT(J,N) IF(FREQ.LT.1.25408E+16)GO TO 44 DO 42 N=4,27 42 HE1=HE1+TRANSN(N)*BOLTN(J,N) 44 AHE1BOUND(J)=HE1*STIM(J) C AHE1FREE(J)=(COULFF(J,1)*FREET(J)*CFREE)*STIM(J) 45 AHE1(J)=(HE1+COULFF(J,1)*FREET(J)*CFREE)*STIM(J) C PRINT 777,AHE1BOUND,AHE1FREE 777 FORMAT(1P10E12.4) RETURN END FUNCTION CROSSHE(FREQ) C Marr, G.V. and West, J.B. Atomic Data and Nuclear Data Tables, c vol 18, 497-508, 1976. IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) DIMENSION W(kw),X505(92),X50(16),X20(11),X10(21) DATA X505/ 1 7.58, 7.46, 7.33, 7.19, 7.06, 6.94, 6.81, 6.68, 6.55, 6.43, 2 6.30, 6.18, 6.05, 5.93, 5.81, 5.69, 5.57, 5.45, 5.33, 5.21, 3 5.10, 4.98, 4.87, 4.76, 4.64, 4.53, 4.42, 4.31, 4.20, 4.09, 4 4.00, 3.88, 3.78, 3.68, 3.57, 3.47, 3.37, 3.27, 3.18, 3.08, 5 2.98, 2.89, 2.80, 2.70, 2.61, 2.52, 2.44, 2.35, 2.26, 2.18, 6 2.10, 2.02, 1.94, 1.86, 1.78, 1.70, 1.63, 1.55, 1.48, 1.41, 7 1.34, 1.28, 1.21, 1.14, 1.08, 1.02, .961, .903, .847, .792, 8 .738, .687, .637, .588, .542, .497, .454, .412, .373, .335, 9 .299, .265, .233, .202, .174, .147, .123, .100,.0795,.0609, A.0443,.0315/ DATA X50/.0315,.0282,.0250,.0220,.0193,.0168,.0145,.0124,.0105, 1.00885,.00736,.00604,.00489,.00389,.00303,.00231/ DATA X20/.00231,.00199,.00171,.00145,.00122,.00101,.000832, 1 .000673,.000535,.000417,.000318/ DATA X10/.000318,.000274,.000235,.000200,.000168,.000139,.000115, 1 .000093,.000074,.000057,.000044,.000032,.000023,.000016,.000010, 2.000006,.000003,.000001,.0000006,.0000003,0./ CROSSHE=0. IF(FREQ.LT.5.945209E15)RETURN WAVE=2.99792458E18/FREQ IF(WAVE.GT.50.)THEN I=93.-(WAVE-50.)/5. I=MIN(92,MAX(2,I)) CROSSHE=((WAVE-(92-I)*5-50)/5.*(X505(I-1)-X505(I))+X505(I))*1.E-18 RETURN ENDIF IF(WAVE.GT.20.)THEN I=17.-(WAVE-20.)/2. I=MIN(16,MAX(2,I)) CROSSHE=((WAVE-(16-I)*2-20)/2.*(X50(I-1)-X50(I))+X50(I))*1.E-18 RETURN ENDIF IF(WAVE.GT.10.)THEN I=12.-(WAVE-10.)/1. I=MIN(11,MAX(2,I)) CROSSHE=((WAVE-(11-I)*1-10)/1.*(X20(I-1)-X20(I))+X20(I))*1.E-18 RETURN ENDIF I=22.-WAVE/.5 I=MIN(21,MAX(2,I)) CROSSHE=((WAVE-(21-I)*.5)/.5*(X10(I-1)-X10(I))+X10(I))*1.E-18 RETURN END FUNCTION HE111S(FREQ) C FOLLOWING MATHISEN IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) DIMENSION W(64),X(64) DATA W/ 1 504.3, 501.5, 498.7, 493.3, 488.1, 480.3, 477.8, 454.0, 443.0, 2 395.0, 356.4, 348.2, 324.6, 302.0, 298.1, 275.6, 260.6, 256.2, 3 239.4, 224.6, 220., 215, 210., 205., 200., 195., 190., 4 185., 180., 175., 170., 165., 160., 155., 150., 145., 5 135., 130., 125., 120., 115., 110., 105., 100., 95., 6 90., 85., 80., 75., 70., 65., 60., 55., 50., 7 45., 40., 35., 30., 25., 20., 15., 10., 5.,0./ DATA X/ 1 7.346, 7.317, 7.259, 7.143, 7.030, 6.857, 6.800, 6.284, 6.041, 2 4.977, 4.138, 3.961, 3.474, 3.025, 2.945, 2.522, 2.259, 2.179, 3 1.901, 1.684, 1.61 , 1.53 , 1.45 , 1.38 , 1.30 , 1.22 , 1.14 , 4 1.08 , 1.02 , 0.961, 0.903, 0.847, 0.792, 0.738, 0.687, 0.637, 5 0.542, 0.497, 0.454, 0.412, 0.373, 0.335, 0.299, 0.265, 0.233, 6 0.202, 0.174, 0.147, 0.124, 0.103,0.0840,0.0676,0.0535,0.0414, 7.0311,.0266,.0158,.0104,.00637,.00349,.00161,.00054,.000083,0./ HE111S=0. IF(FREQ.LT.5.945209E15)RETURN WAVE=2.99792458E18/FREQ DO 3 I=2,64 IF(WAVE.GT.W(I))GO TO 4 3 CONTINUE 4 HE111S=((WAVE-W(I))/(W(I-1)-W(I))*(X(I-1)-X(I))+X(I))*1.E-18 RETURN END FUNCTION HE12S1S(FREQ) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) DIMENSION FREQ1S(16),X1S(16) DATA FREQ1S/ 1 15.947182, 15.913654, 15.877320, 15.837666, 15.794025, 2 15.745503, 15.690869, 15.628361, 15.555317, 15.467455, 3 15.357189, 15.289399, 15.251073, 15.209035, 15.162487, 4 14.982421/ DATA X1S/ 1 -19.635557, -19.159345, -18.958474, -18.809535, -18.676481, 2 -18.546006, -18.410962, -18.264821, -18.100205, -17.909165, 3 -17.684370, -17.557867, -17.490360, -17.417876, -17.349386, 4 -17.084441/ HE12S1S=0. IF(FREQ.LT.32033.214*2.99792458E10)RETURN IF(FREQ.GT.2.4*109722.267*2.99792458E10)GO TO 3 FREQLG=LOG10(FREQ) DO 1 I=2,16 IF(FREQLG.GT.FREQ1S(I))GO TO 2 1 CONTINUE 2 X=(FREQLG-FREQ1S(I))/(FREQ1S(I-1)-FREQ1S(I))* 1(X1S(I-1)-X1S(I))+X1S(I) HE12S1S=EXP(X*2.30258509299405E0) RETURN 3 WAVENO=FREQ/2.99792458E10 EK=(WAVENO-32033.214)/109722.267 EPS=2.*(EK-2.612316)/.00322 HE12S1S=.008175*(484940./WAVENO)**2.71*8.067E-18* 1(EPS+76.21)**2/(1.+EPS**2) RETURN END FUNCTION HE12S3S(FREQ) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) DIMENSION FREQ3S(16),X3S(16) DATA FREQ3S/ 1 15.956523, 15.923736, 15.888271, 15.849649, 15.807255, 2 15.760271, 15.707580, 15.647601, 15.577992, 15.495055, 3 15.392451, 15.330345, 15.295609, 15.257851, 15.216496, 4 15.061770/ DATA X3S/ 1 -18.426022, -18.610700, -18.593051, -18.543304, -18.465513, 2 -18.378707, -18.278574, -18.164329, -18.033346, -17.882435, 3 -17.705542, -17.605584, -17.553459, -17.500667, -17.451318, 4 -17.266686/ HE12S3S=0. IF(FREQ.LT.38454.691*2.99792458E10)RETURN IF(FREQ.GT.2.4*109722.267*2.99792458E10)GO TO 3 FREQLG=LOG10(FREQ) DO 1 I=2,16 IF(FREQLG.GT.FREQ3S(I))GO TO 2 1 CONTINUE 2 X=(FREQLG-FREQ3S(I))/(FREQ3S(I-1)-FREQ3S(I))* 1(X3S(I-1)-X3S(I))+X3S(I) HE12S3S=EXP(X*2.30258509299405E0) RETURN 3 WAVENO=FREQ/2.99792458E10 EK=(WAVENO-38454.691)/109722.267 EPS=2.*(EK-2.47898)/.000780 HE12S3S=.01521*(470310./WAVENO)**3.12*8.067E-18* 1(EPS-122.4)**2/(1.+EPS**2) RETURN END FUNCTION HE12P1P(FREQ) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) DIMENSION FREQ1P(16),X1P(16) DATA FREQ1P/ 1 15.939981, 15.905870, 15.868850, 15.828377, 15.783742, 2 15.733988, 15.677787, 15.613218, 15.537343, 15.445346, 3 15.328474, 15.255641, 15.214064, 15.168081, 15.116647, 4 14.911002/ DATA X1P/ 1 -18.798876, -19.685922, -20.011664, -20.143030, -20.091354, 2 -19.908333, -19.656788, -19.367745, -19.043016, -18.674484, 3 -18.240861, -17.989700, -17.852015, -17.702677, -17.525347, 4 -16.816344/ HE12P1P=0. IF(FREQ.LT.27175.76*2.99792458E10)RETURN IF(FREQ.GT.2.4*109722.267*2.99792458E10)GO TO 3 FREQLG=LOG10(FREQ) DO 1 I=2,16 IF(FREQLG.GT.FREQ1P(I))GO TO 2 1 CONTINUE 2 X=(FREQLG-FREQ1P(I))/(FREQ1P(I-1)-FREQ1P(I))* 1(X1P(I-1)-X1P(I))+X1P(I) HE12P1P=EXP(X*2.30258509299405E0) RETURN 3 WAVENO=FREQ/2.99792458E10 EK=(WAVENO-27175.76)/109722.267 EPS1S=2.*(EK-2.446534)/.01037 EPS1D=2.*(EK-2.59427)/.00538 CC HE12S1P=.0009487*(466750./WAVENO)**3.69*8.067E-18* HE12P1P=.0009487*(466750./WAVENO)**3.69*8.067E-18* 1((EPS1S-29.30)**2/(1.+EPS1S**2)+(EPS1D+172.4)**2/(1.+EPS1D**2)) RETURN END FUNCTION HE12P3P(FREQ) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) DIMENSION FREQ3P(16),X3P(16) DATA FREQ3P/ 1 15.943031, 15.909169, 15.872441, 15.832318, 15.788107, 2 15.738880, 15.683351, 15.619667, 15.545012, 15.454805, 3 15.340813, 15.270195, 15.230054, 15.185821, 15.136567, 4 14.942557/ DATA X3P/ 1 -19.791021, -19.697886, -19.591421, -19.471855, -19.337053, 2 -19.183958, -19.009750, -18.807990, -18.570571, -18.288361, 3 -17.943476, -17.738737, -17.624154, -17.497163, -17.403183, 4 -17.032999/ HE12P3P=0. IF(FREQ.LT.29223.753*2.99792458E10)RETURN FREQLG=LOG10(FREQ) DO 1 I=2,16 IF(FREQLG.GT.FREQ3P(I))GO TO 2 1 CONTINUE 2 X=(FREQLG-FREQ3P(I))/(FREQ3P(I-1)-FREQ3P(I))* 1(X3P(I-1)-X3P(I))+X3P(I) HE12P3P=EXP(X*2.30258509299405E0) RETURN END SUBROUTINE HE2OP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) C REQUIRES FUNCTIONS COULX AND COULFF C FREQUENCIES ARE 4X HYDROGEN,CHI ARE FOR ION POT=54.403 COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /OPS/D1(kw,5),AHE2(kw),D2(kw,19) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) DIMENSION CONT(9),BOLT(kw,9),EXLIM(kw),FREET(kw),BOLTEX(kw) C DIMENSION AHE2BOUND(kw),AHE2FREE(kw) DATA ITEMP1/0/ IF(ITEMP.EQ.ITEMP1)GO TO 20 ITEMP1=ITEMP DO 15 J=1,NRHOX DO 14 N=1,9 14 BOLT(J,N)=EXP(-(54.403-54.403/DFLOAT(N*N))/TKEV(J))*2.* 1DFLOAT(N*N)*XNFP(J,4)/RHO(J) FREET(J)=XNE(J)*XNF(J,5)/RHO(J)/SQRT(T(J)) XR=XNFP(J,4)*(2./2./13.595)*TKEV(J)/RHO(J) BOLTEX(J)=EXP(-53.859/TKEV(J))*XR 15 EXLIM(J)=EXP(-54.403/TKEV(J))*XR 20 DO 21 N=1,9 C 21 CONT(N)=COULX(N,FREQ,2.D0) 21 CONT(N)=XKARZAS(FREQ,4.D0,N,N) FREQ3=FREQ**3 CFREE=3.6919E8/FREQ3*4. C=2.815E29*2.*2./FREQ3 DO 35 J=1,NRHOX EX=BOLTEX(J) IF(FREQ.LT.1.31522E14)EX=EXLIM(J)/EHVKT(J) HE2=(EX-EXLIM(J))*C DO 31 N=1,9 31 HE2=HE2+CONT(N)*BOLT(J,N) C AHE2BOUND(J)=HE2*STIM(J) C AHE2FREE(J)=(COULFF(J,2)*CFREE*FREET(J))*STIM(J) 35 AHE2(J)=(HE2+COULFF(J,2)*CFREE*FREET(J))*STIM(J) C PRINT 777,AHE2BOUND,AHE2FREE 777 FORMAT(1P10E12.4) RETURN END SUBROUTINE HEMIOP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /OPS/D1(kw,6),AHEMIN(kw),D2(kw,18) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) A=3.397E-46+(-5.216E-31+7.039E-15/FREQ)/FREQ B=-4.116E-42+(1.067E-26+8.135E-11/FREQ)/FREQ C=5.081E-37+(-8.724E-23-5.659E-8/FREQ)/FREQ DO 3 J=1,NRHOX 3 AHEMIN(J)=(A*T(J)+B+C/T(J))*XNE(J)*XNFP(J,3)/RHO(J) RETURN END SUBROUTINE HERAOP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /OPS/D1(kw,7),SIGHE(kw),D2(kw,17) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) W=2.99792458E18/DMIN1(FREQ,5.15D15) WW=W**2 SIG=5.484E-14/WW/WW*(1.+(2.44E5+5.94E10/(WW-2.90E5))/WW)**2 DO 2 J=1,NRHOX 2 SIGHE(J)=SIG*XNFP(J,3)/RHO(J) RETURN END SUBROUTINE COOLOP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) C SI1,MG1,AL1,C1,FE1,CH,OH,H2COLL COMMON /ACOOL/AC1(kw),AMG1(kw),AAL1(kw),ASI1(kw),AFE1(kw) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /OPS/D1(kw,8),ACOOL(kw),D2(kw,16) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) REAL*8 AH2COLL(kw) IF(FREQ.GT.3.28805E15)RETURN CALL C1OP CALL MG1OP C CALL AL1OP CALL SI1OP CALL H2COLLOP(AH2COLL) DO 20 J=1,NRHOX 20 ACOOL(J)=AC1(J)+AMG1(J)+ASI1(J)+ 1(AL1OP(J)*XNFP(J,91)+FE1OP(J)*XNFP(J,351)+ 2CHOP(J)*XNFP(J,846)+OHOP(J)*XNFP(J,848))*STIM(J)/RHO(J)+ 3AH2COLL(J) C DO 20 J=1,NRHOX C 20 ACOOL(J)=(C1OP(J)*XNFP(J,21)+MG1OP(J)*XNFP(J,78)+ C 1AL1OP(J)*XNFP(J,91)+SI1OP(J)*XNFP(J,105)+FE1OP(J)*XNFP(J,351)+ C 2CHOP(J)*XNFP(J,846)+OHOP(J)*XNFP(J,848))*STIM(J)/RHO(J) RETURN END SUBROUTINE C1OP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /ACOOL/AC1(kw),AMG1(kw),AAL1(kw),ASI1(kw),AFE1(kw) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) DIMENSION ELEV(25),GLEV(25),BOLT(25,kw),X(25) DATA ELEV/ 1 79314.86, 78731.27, 78529.62, 78309.76, 78226.35, 2 77679.82, 73975.91, 72610.72, 71374.90, 70743.95, 3 69722.00, 68856.33, 61981.82, 60373.00, 21648.01, 4 10192.63, 43.42, 16.42, 0.00, 119878., 5 105798.7, 97878., 75254.93, 64088.85, 33735.20/ DATA GLEV/9.,3.,7.,15.,21.,5.,1.,5.,9.,3.,15.,3.,3.,9.,1.,5.,5., 1 3.,1.,3.,3.,5.,12.,15.,5./ DATA ITEMP1/0/ IF(ITEMP.EQ.ITEMP1)GO TO 3 ITEMP1=ITEMP DO 2 K=1,NRHOX DO 2 I=1,25 2 BOLT(I,K)=GLEV(I)*EXP(-ELEV(I)*HCKT(K)) 3 CONTINUE Z=1. FREQ3=2.815E29/FREQ/FREQ/FREQ*Z**4 Z2FREQ=1.E20*FREQ/Z**2 C ELIM=90820.42 RYD=109732.298 DO 4 I=1,25 4 X(I)=0. C C II 2P average ELIM=90862.70 C 2s2 2p3d 3P C ELEV=79314.86 IF(WAVENO.LT.ELIM-ELEV(1))GO TO 30 C GLEV=9. ZEFF2=9./RYD*(ELIM-ELEV(1)) X(1)=XKARZAS(FREQ,ZEFF2,3,2) C 2s2 2p3d 1P C ELEV=78731.27 IF(WAVENO.LT.ELIM-ELEV(2))GO TO 30 C GLEV=3. ZEFF2=9./RYD*(ELIM-ELEV(2)) X(2)=XKARZAS(FREQ,ZEFF2,3,2) C 2s2 2p3d 1F C ELEV=78529.62 IF(WAVENO.LT.ELIM-ELEV(3))GO TO 30 C GLEV=7. ZEFF2=9./RYD*(ELIM-ELEV(3)) X(3)=XKARZAS(FREQ,ZEFF2,3,2) C 2s2 2p3d 3D C ELEV=78309.76 IF(WAVENO.LT.ELIM-ELEV(4))GO TO 30 C GLEV=15. ZEFF2=9./RYD*(ELIM-ELEV(4)) X(4)=XKARZAS(FREQ,ZEFF2,3,2) C 2s2 2p3d 3F C ELEV=78226.35 IF(WAVENO.LT.ELIM-ELEV(5))GO TO 30 C GLEV=21. ZEFF2=9./RYD*(ELIM-ELEV(5)) X(5)=XKARZAS(FREQ,ZEFF2,3,2) C 2s2 2p3d 1D C ELEV=77679.82 IF(WAVENO.LT.ELIM-ELEV(6))GO TO 30 C GLEV=5. ZEFF2=9./RYD*(ELIM-ELEV(6)) X(6)=XKARZAS(FREQ,ZEFF2,3,2) C 2s2 2p3p 1S C ELEV=73975.91 IF(WAVENO.LT.ELIM-ELEV(7))GO TO 30 C GLEV=1. ZEFF2=9./RYD*(ELIM-ELEV(7)) X(7)=XKARZAS(FREQ,ZEFF2,3,1) C 2s2 2p3p 1D C ELEV=72610.72 IF(WAVENO.LT.ELIM-ELEV(8))GO TO 30 C GLEV=5. ZEFF2=9./RYD*(ELIM-ELEV(8)) X(8)=XKARZAS(FREQ,ZEFF2,3,1) C 2s2 2p3p 3P C ELEV=71374.90 IF(WAVENO.LT.ELIM-ELEV(9))GO TO 30 C GLEV=9. ZEFF2=9./RYD*(ELIM-ELEV(9)) X(9)=XKARZAS(FREQ,ZEFF2,3,1) C 2s2 2p3p 3S C ELEV=70743.95 IF(WAVENO.LT.ELIM-ELEV(10))GO TO 30 C GLEV=3. ZEFF2=9./RYD*(ELIM-ELEV(10)) X(10)=XKARZAS(FREQ,ZEFF2,3,1) C 2s2 2p3p 3D C ELEV=69722.00 IF(WAVENO.LT.ELIM-ELEV(11))GO TO 30 C GLEV=15. ZEFF2=9./RYD*(ELIM-ELEV(11)) X(11)=XKARZAS(FREQ,ZEFF2,3,1) C 2s2 2p3p 1P C ELEV=68856.33 IF(WAVENO.LT.ELIM-ELEV(12))GO TO 30 C GLEV=3. ZEFF2=9./RYD*(ELIM-ELEV(12)) X(12)=XKARZAS(FREQ,ZEFF2,3,1) C 2s2 2p3s 1P C ELEV=61981.82 IF(WAVENO.LT.ELIM-ELEV(13))GO TO 30 C GLEV=3. ZEFF2=9./RYD*(ELIM-ELEV(13)) X(13)=XKARZAS(FREQ,ZEFF2,3,0) C 2s2 2p3s 3P C ELEV=60373.00 IF(WAVENO.LT.ELIM-ELEV(14))GO TO 30 C GLEV=9. ZEFF2=9./RYD*(ELIM-ELEV(14)) X(14)=XKARZAS(FREQ,ZEFF2,3,0) C C II 2s2 2p 2P1/2 30 ELIM=90820.42 C 2s2 2p2 1S C ELEV=21648.01 IF(WAVENO.LT.ELIM-ELEV(15))GO TO 40 C GLEV=1. cC HENRY c X(15)=9.59E-18*(3.501*((ELIM-ELEV(15))/WAVENO)**1.5- c 1 2.501*((ELIM-ELEV(15))/WAVENO)**2.5)/3. C Luo, D. and Pradhan, A.K. 1989, J.Phys. B, 22, 3377-3395. c XS0=10.**(-16.80-(WAVENO-69172.400)/3.00/RYD) XS0=10.**(-16.80-(WAVENO-ELIM+ELEV(15))/3.00/RYD) EPS=(WAVENO-97700.)*2./2743. A=68.E-18 B=118.E-18 C Fit to Burke, P.G. and Taylor, K.T. 1979, J. Phys. B, 12, 2971-2984. XS1=(A*EPS+B)/(EPS**2+1.) X(15)=(XS0+XS1)*1./3. C 2s2 2p2 1D C ELEV=10192.63 IF(WAVENO.LT.ELIM-ELEV(16))GO TO 40 C GLEV=5. cC HENRY c X(16)=10.30E-18*(2.789*((ELIM-ELEV(16))/WAVENO)**1.5- c 1 1.789*((ELIM-ELEV(16))/WAVENO)**2.5)/3. C Luo, D. and Pradhan, A.K. 1989, J.Phys. B, 22, 3377-3395. C XD0=10.**(-16.80-(WAVENO-80627.760)/3.00/RYD) XD0=10.**(-16.80-(WAVENO-ELIM+ELEV(16))/3.00/RYD) C Fit to Burke, P.G. and Taylor, K.T. 1979, J. Phys. B, 12, 2971-2984. EPS=(WAVENO-93917.)*2./9230. A=22.E-18 B=26.E-18 XD1=(A*EPS+B)/(EPS**2+1.) C Fit to Burke, P.G. and Taylor, K.T. 1979, J. Phys. B, 12, 2971-2984. EPS=(WAVENO-111130.)*2./2743. A=-10.5E-18 B=46.E-18 XD2=(A*EPS+B)/(EPS**2+1.) X(16)=(XD0+XD1+XD2)*1./3. c 2s2 2p2 3P2 C ELEV=43.42 IF(WAVENO.LT.ELIM-ELEV(17))GO TO 40 C GLEV=5. cC HENRY c X(17)=12.19E-18*(3.317*((ELIM-ELEV(17))/WAVENO)**2- c 1 2.317*((ELIM-ELEV(17))/WAVENO)**3)/3. C Luo, D. and Pradhan, A.K. 1989, J.Phys. B, 22, 3377-3395. C X(17)=10.**(-16.80-(WAVENO-90777.000)/3.00/RYD)*1./3. c c sign error found by John Lester 22Feb2005 c X(17)=10.**(-16.80-(WAVENO-ELIM-ELEV(17))/3.00/RYD)*1./3. X(17)=10.**(-16.80-(WAVENO-ELIM+ELEV(17))/3.00/RYD)*1./3. c 2s2 2p2 3P1 C ELEV=16.42 IF(WAVENO.LT.ELIM-ELEV(18))GO TO 40 C GLEV=3. cC HENRY c X(18)=12.19E-18*(3.317*((ELIM-ELEV(18))/WAVENO)**2- c 1 2.317*((ELIM-ELEV(18))/WAVENO)**3)/3. C Luo, D. and Pradhan, A.K. 1989, J.Phys. B, 22, 3377-3395. C X(18)=10.**(-16.80-(WAVENO-90777.000)/3.00/RYD)/3. X(18)=10.**(-16.80-(WAVENO-ELIM+ELEV(18))/3.00/RYD)*1./3. c 2s2 2p2 3P0 C ELEV=0. IF(WAVENO.LT.ELIM-ELEV(19))GO TO 40 C GLEV=1. cC HENRY c X(19)=12.19E-18*(3.317*((ELIM-ELEV(19))/WAVENO)**2- c 1 2.317*((ELIM-ELEV(19))/WAVENO)**3)/3. C Luo, D. and Pradhan, A.K. 1989, J.Phys. B, 22, 3377-3395. C X(19)=10.**(-16.80-(WAVENO-90777.000)/3.00/RYD)/3. X(19)=10.**(-16.80-(WAVENO-ELIM+ELEV(19))/3.00/RYD)*1./3. C C C II 2s2 2p 2P3/2 40 ELIM=90820.42+63.42 C 2s2 2p2 1S C ELEV=21648.01 IF(WAVENO.LT.ELIM-ELEV(15))GO TO 50 C GLEV=1. cC HENRY c X(15)=X(15)+9.59E-18*(3.501*((ELIM-ELEV(15))/WAVENO)**1.5- c 1 2.501*((ELIM-ELEV(15))/WAVENO)**2.5)*2./3. C Luo, D. and Pradhan, A.K. 1989, J.Phys. B, 22, 3377-3395. c XS0=10.**(-16.80-(WAVENO-69172.400)/3.00/RYD) XS0=10.**(-16.80-(WAVENO-ELIM+ELEV(15))/3.00/RYD) EPS=(WAVENO-97700.)*2./2743. A=68.E-18 B=118.E-18 C Fit to Burke, P.G. and Taylor, K.T. 1979, J. Phys. B, 12, 2971-2984. XS1=(A*EPS+B)/(EPS**2+1.) X(15)=X(15)+(XS0+XS1)*2./3. C 2s2 2p2 1D C ELEV=10192.63 IF(WAVENO.LT.ELIM-ELEV(16))GO TO 50 C GLEV=5. cC HENRY c X(16)=X(16)+10.30E-18*(2.789*((ELIM-ELEV(16))/WAVENO)**1.5- c 1 1.789*((ELIM-ELEV(16))/WAVENO)**2.5)*2./3. C Luo, D. and Pradhan, A.K. 1989, J.Phys. B, 22, 3377-3395. C XD0=10.**(-16.80-(WAVENO-80627.760)/3.00/RYD) XD0=10.**(-16.80-(WAVENO-ELIM+ELEV(16))/3.00/RYD) C Fit to Burke, P.G. and Taylor, K.T. 1979, J. Phys. B, 12, 2971-2984. EPS=(WAVENO-93917.)*2./9230. A=22.E-18 B=26.E-18 XD1=(A*EPS+B)/(EPS**2+1.) C Fit to Burke, P.G. and Taylor, K.T. 1979, J. Phys. B, 12, 2971-2984. EPS=(WAVENO-111130.)*2./2743. A=-10.5E-18 B=46.E-18 XD2=(A*EPS+B)/(EPS**2+1.) X(16)=X(16)+(XD0+XD1+XD2)*2./3. c 2s2 2p2 3P2 C ELEV=43.42 IF(WAVENO.LT.ELIM-ELEV(17))GO TO 50 C GLEV=5. cC HENRY c X(17)=X(17)+12.19E-18*(3.317*((ELIM-ELEV(17))/WAVENO)**2- c 1 2.317*((ELIM-ELEV(17))/WAVENO)**3)*2./3. C Luo, D. and Pradhan, A.K. 1989, J.Phys. B, 22, 3377-3395. C X(17)=10.**(-16.80-(WAVENO-90777.000)/3.00/RYD)*2./3. X(17)=X(17)+10.**(-16.80-(WAVENO-ELIM+ELEV(17))/3.00/RYD)*2./3. c 2s2 2p2 3P1 C ELEV=16.42 IF(WAVENO.LT.ELIM-ELEV(18))GO TO 50 C GLEV=3. cC HENRY c X(18)=X(18)+12.19E-18*(3.317*((ELIM-ELEV(18))/WAVENO)**2- c 1 2.317*((ELIM-ELEV(18))/WAVENO)**3)*2./3. C Luo, D. and Pradhan, A.K. 1989, J.Phys. B, 22, 3377-3395. C X(18)=10.**(-16.80-(WAVENO-90777.000)/3.00/RYD)*2./3. X(18)=X(18)+10.**(-16.80-(WAVENO-ELIM+ELEV(18))/3.00/RYD)*2./3. c 2s2 2p2 3P0 C ELEV=0. IF(WAVENO.LT.ELIM-ELEV(19))GO TO 50 C GLEV=1. CC HENRY C X(19)=X(19)+12.19E-18*(3.317*((ELIM-ELEV(19))/WAVENO)**2- C 1 2.317*((ELIM-ELEV(19))/WAVENO)**3)*2./3. C Luo, D. and Pradhan, A.K. 1989, J.Phys. B, 22, 3377-3395. C X(19)=10.**(-16.80-(WAVENO-90777.000)/3.00/RYD)/3. X(19)=X(19)+10.**(-16.80-(WAVENO-ELIM+ELEV(19))/3.00/RYD)*2./3. C C C II 2s 2p2 4P1/2 50 ELIM=90820.42+43003.3 C 2s2p3 1P C ELEV=119878. IF(WAVENO.LT.ELIM-ELEV(20))GO TO 60 C GLEV=3. DEGEN=3 ZEFF2=4./RYD*(ELIM-ELEV(20)) X(20)=XKARZAS(FREQ,ZEFF2,2,1)*DEGEN C 2s2p3 3S C ELEV=105798.7 IF(WAVENO.LT.ELIM-ELEV(21))GO TO 60 C GLEV=3. C DEGEN=3 ZEFF2=4./RYD*(ELIM-ELEV(21)) X(21)=XKARZAS(FREQ,ZEFF2,2,1)*DEGEN C 2s2p3 1D C ELEV=97878. IF(WAVENO.LT.ELIM-ELEV(22))GO TO 60 C GLEV=5. C DEGEN=3 ZEFF2=4./RYD*(ELIM-ELEV(22)) X(22)=XKARZAS(FREQ,ZEFF2,2,1)*DEGEN C 2s2p3 3P C ELEV=75254.93 IF(WAVENO.LT.ELIM-ELEV(23))GO TO 60 C GLEV=12. C DEGEN=3 ZEFF2=4./RYD*(ELIM-ELEV(23)) X(23)=XKARZAS(FREQ,ZEFF2,2,1)*DEGEN C 2s2p3 3D C ELEV=64088.85 IF(WAVENO.LT.ELIM-ELEV(24))GO TO 60 C GLEV=15. C DEGEN=3 ZEFF2=4./RYD*(ELIM-ELEV(24)) X(24)=XKARZAS(FREQ,ZEFF2,2,1)*DEGEN C 2s2p3 5S C ELEV=33735.20 IF(WAVENO.LT.ELIM-ELEV(25))GO TO 60 C GLEV=5. C DEGEN=3 ZEFF2=4./RYD*(ELIM-ELEV(25)) X(25)=XKARZAS(FREQ,ZEFF2,2,1)*DEGEN C 60 ELIM=90820.42 GFACTOR=6. DO 100 J=1,NRHOX C N=4 TO INFINITY H=FREQ3*GFACTOR*2./2./(RYD*Z**2*HCKT(J))* 1(EXP(-MAX(ELIM-RYD*Z**2/4.**2,ELIM-WAVENO)*HCKT(J)) 2-EXP(-ELIM*HCKT(J))) C C II 2s 2p2 4P1/2 C ELIM=90820.42+43003.3 DO 90 I=1,25 90 H=H+X(I)*BOLT(I,J) 100 AC1(J)=H*XNFP(J,21)*STIM(J)/RHO(J) CONTINUE RETURN END FUNCTION SEATON(FREQ0,XSECT,POWER,A) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO SEATON=XSECT*(A+(1.-A)*(FREQ0/FREQ))* 1SQRT((FREQ0/FREQ)**( INT(2.*POWER+.01))) RETURN END SUBROUTINE MG1OP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /ACOOL/AC1(kw),AMG1(kw),AAL1(kw),ASI1(kw),AFE1(kw) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) DIMENSION ELEV(15),GLEV(15),BOLT(15,kw),X(15) DATA ELEV/ 1 54676.710, 54676.438, 54192.284, 53134.642, 49346.729, 2 47957.034, 47847.797, 46403.065, 43503.333, 41197.043, 3 35051.264, 21919.178, 21870.464, 21850.405, 0./ DATA GLEV/21.,7.,15.,5.,3.,15.,9.,5.,1.,3.,3.,5.,3.,1.,1./ DATA ITEMP1/0/ IF(ITEMP.EQ.ITEMP1)GO TO 3 ITEMP1=ITEMP DO 2 K=1,NRHOX DO 2 I=1,15 2 BOLT(I,K)=GLEV(I)*EXP(-ELEV(I)*HCKT(K)) 3 DO 4 I=1,15 4 X(I)=0. Z=1. FREQ3=2.815E29/FREQ/FREQ/FREQ*Z**4 RYD=109732.298 ELIM=61671.02 C 3s4f 3F C ELEV=54676.710 IF(WAVENO.LT.ELIM-ELEV(1))GO TO 30 C GLEV=21. ZEFF2=16./RYD*(ELIM-ELEV(1)) X(1)=XKARZAS(FREQ,ZEFF2,4,3) C 3s4f 1F C ELEV=54676.438 IF(WAVENO.LT.ELIM-ELEV(2))GO TO 30 C GLEV=7. ZEFF2=16./RYD*(ELIM-ELEV(2)) X(2)=XKARZAS(FREQ,ZEFF2,4,3) C 3s4d 3D C ELEV=54192.284 IF(WAVENO.LT.ELIM-ELEV(3))GO TO 30 C GLEV=15. ZEFF2=16./RYD*(ELIM-ELEV(3)) X(3)=XKARZAS(FREQ,ZEFF2,4,2) C 3s4d 1D C ELEV=53134.642 IF(WAVENO.LT.ELIM-ELEV(4))GO TO 30 C GLEV=5. ZEFF2=16./RYD*(ELIM-ELEV(4)) X(4)=XKARZAS(FREQ,ZEFF2,4,2) C 3s4p 1P C ELEV=49346.729 IF(WAVENO.LT.ELIM-ELEV(5))GO TO 30 C GLEV=3. ZEFF2=16./RYD*(ELIM-ELEV(5)) X(5)=XKARZAS(FREQ,ZEFF2,4,1) C 3s3d 3D C ELEV=47957.034 IF(WAVENO.LT.ELIM-ELEV(6))GO TO 30 C GLEV=15. X(6)=25.E-18*(13713.986/WAVENO)**2.7 C 3s4p 3P C ELEV=47847.797 IF(WAVENO.LT.ELIM-ELEV(7))GO TO 30 C GLEV=9. X(7)=33.8E-18*(13823.223/WAVENO)**2.8 C 3s3d 1D C ELEV=46403.065 IF(WAVENO.LT.ELIM-ELEV(8))GO TO 30 C GLEV=5. X(8)=45.E-18*(15267.955/WAVENO)**2.7 C 3s4s 1S C ELEV=43503.333 IF(WAVENO.LT.ELIM-ELEV(9))GO TO 30 C GLEV=1. X(9)=.43E-18*(18167.687/WAVENO)**2.6 C 3s4s 3S C ELEV=41197.043 IF(WAVENO.LT.ELIM-ELEV(10))GO TO 30 C GLEV=3. X(10)=2.1E-18*(20473.617/WAVENO)**2.6 C 2s3p 1P C ELEV=35051.264 IF(WAVENO.LT.ELIM-ELEV(11))GO TO 30 C GLEV=3. X(11)=16.E-18*(26619.756/WAVENO)**2.1- 1 7.8E-18*(26619.756/WAVENO)**9.5 C 3s3p 3P C ELEV=21911.178 IF(WAVENO.LT.ELIM-ELEV(12))GO TO 30 C GLEV=5. ZEFF2=9./RYD*(ELIM-ELEV(12)) X(12)=20.E-18*(39759.842/WAVENO)**2.7 X(12)= MAX (X(12),40.E-18*(39759.842/WAVENO)**14) C 3s3p 3P C ELEV=21870.464 IF(WAVENO.LT.ELIM-ELEV(13))GO TO 30 C GLEV=3. ZEFF2=9./RYD*(ELIM-ELEV(13)) X(13)=20.E-18*(39759.842/WAVENO)**2.7 X(13)= MAX (X(13),40.E-18*(39759.842/WAVENO)**14) C 3s3p 3P0 C ELEV=21850.405 IF(WAVENO.LT.ELIM-ELEV(14))GO TO 30 C GLEV=1. ZEFF2=9./RYD*(ELIM-ELEV(14)) X(14)=20.E-18*(39759.842/WAVENO)**2.7 X(14)= MAX (X(14),40.E-18*(39759.842/WAVENO)**14) C 3s2 1S C ELEV=0. C error corrected by Castelli 25Sep02 C IF(WAVENO.LT.ELIM-ELEV(13))GO TO 30 IF(WAVENO.LT.ELIM-ELEV(15))GO TO 30 C GLEV=1. X(15)=1.1E-18*((ELIM-ELEV(15))/WAVENO)**10 C 30 DO 100 J=1,NRHOX GFACTOR=2. ELIM=61671.02 C N=5 TO INFINITY H=FREQ3*GFACTOR*2./2./(RYD*Z**2*HCKT(J))* 1(EXP(-MAX(ELIM-RYD*Z**2/5.**2,ELIM-WAVENO)*HCKT(J)) 2-EXP(-ELIM*HCKT(J))) DO 90 I=1,15 90 H=H+X(I)*BOLT(I,J) 100 AMG1(J)=H*XNFP(J,78)*STIM(J)/RHO(J) RETURN END FUNCTION AL1OP(J) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) C CROSS-SECTION TIMES THE PARTITION FUNCTION COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO ELIM=48278.37 AL1OP=0. C IF(FREQ.GE.1.443E15)AL1OP=6.5E-17*(1.443E15/FREQ)**5*6. C 3s2 3p 2P3/2 IF(WAVENO.LT.(ELIM-112.061))RETURN C 3s2 3p 2P1/2 AL1OP=6.5E-17*((ELIM-112.061)/WAVENO)**5*4. IF(WAVENO.LT.ELIM)RETURN AL1OP=AL1OP+6.5E-17*(ELIM/WAVENO)**5*2. RETURN END SUBROUTINE SI1OP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /ACOOL/AC1(kw),AMG1(kw),AAL1(kw),ASI1(kw),AFE1(kw) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) DIMENSION ELEV(33),GLEV(33),BOLT(33,kw),X(33) DATA ELEV/ 1 59962.284, 59100., 59077.112, 58893.40, 58801.529, 2 58777., 57488.974, 56503.346, 54225.621, 53387.34, 3 53362.24, 51612.012, 50533.424, 50189.389, 49965.894, 4 49399.670, 49128.131, 48161.459, 47351.554, 47284.061, 5 40991.884, 39859.920, 15394.370, 6298.850, 223.157, 6 77.115, 0.000, 94000., 79664.0, 72000., 7 56698.738, 45303.310, 33326.053/ DATA GLEV/9.,56.,15.,7.,3.,28.,21.,5.,15.,3.,7.,1.,9.,5.,21., 1 3.,9.,15.,5.,3.,3.,9.,1.,5.,5.,3.,1.,3.,3.,5.,12.,15.,5./ DATA ITEMP1/0/ IF(ITEMP.EQ.ITEMP1)GO TO 3 ITEMP1=ITEMP DO 2 K=1,NRHOX DO 2 I=1,33 2 BOLT(I,K)=GLEV(I)*EXP(-ELEV(I)*HCKT(K)) 3 CONTINUE Z=1. FREQ3=2.815E29/FREQ/FREQ/FREQ*Z**4 WAVENO=FREQ/2.99792458E10 DO 4 I=1,33 4 X(I)=0. C ELIM=65747.55 C Si II 3s2 3p 2P average ELIM=65939.18 RYD=109732.298 C 3s2 3p4d 3P C ELEV=59962.284 IF(WAVENO.LT.ELIM-ELEV(1))GO TO 30 C GLEV=9. ZEFF2=16./RYD*(ELIM-ELEV(1)) X(1)=XKARZAS(FREQ,ZEFF2,4,2) C 3s2 3p4f (2P3/2)4f C ELEV=59100. IF(WAVENO.LT.ELIM-ELEV(2))GO TO 30 C GLEV=56. ZEFF2=16./RYD*(ELIM-ELEV(2)) X(2)=XKARZAS(FREQ,ZEFF2,4,3) C 3s2 3p4d 3D C ELEV=59077.112 IF(WAVENO.LT.ELIM-ELEV(3))GO TO 30 C GLEV=15. ZEFF2=16./RYD*(ELIM-ELEV(3)) X(3)=XKARZAS(FREQ,ZEFF2,4,2) C 3s2 3p4d 1F C ELEV=58893.40 IF(WAVENO.LT.ELIM-ELEV(4))GO TO 30 C GLEV=7. ZEFF2=16./RYD*(ELIM-ELEV(4)) X(4)=XKARZAS(FREQ,ZEFF2,4,2) C 3s2 3p4d 1P C ELEV=58801.529 IF(WAVENO.LT.ELIM-ELEV(5))GO TO 30 C GLEV=3. ZEFF2=16./RYD*(ELIM-ELEV(5)) X(5)=XKARZAS(FREQ,ZEFF2,4,2) C 3s2 3p4f (2P1/2)4f C ELEV=58777. IF(WAVENO.LT.ELIM-ELEV(6))GO TO 30 C GLEV=28. ZEFF2=16./RYD*(ELIM-ELEV(6)) X(6)=XKARZAS(FREQ,ZEFF2,4,3) C 3s2 3p4d 3F C ELEV=57488.974 IF(WAVENO.LT.ELIM-ELEV(7))GO TO 30 C GLEV=21. ZEFF2=16./RYD*(ELIM-ELEV(7)) X(7)=XKARZAS(FREQ,ZEFF2,4,2) C 3s2 3p4d 1D C ELEV=56503.346 IF(WAVENO.LT.ELIM-ELEV(8))GO TO 30 C GLEV=5. ZEFF2=16./RYD*(ELIM-ELEV(8)) X(8)=XKARZAS(FREQ,ZEFF2,4,2) C 3s2 3p3d 3D C ELEV=54225.621 IF(WAVENO.LT.ELIM-ELEV(9))GO TO 30 C GLEV=15. ZEFF2=9./RYD*(ELIM-ELEV(9)) X(9)=XKARZAS(FREQ,ZEFF2,3,2) C 3s2 3p3d 1P C ELEV=53387.34 IF(WAVENO.LT.ELIM-ELEV(10))GO TO 30 C GLEV=3. ZEFF2=9./RYD*(ELIM-ELEV(10)) X(10)=XKARZAS(FREQ,ZEFF2,3,2) C 3s2 3p3d 1F C ELEV=53362.24 IF(WAVENO.LT.ELIM-ELEV(11))GO TO 30 C GLEV=7. ZEFF2=9./RYD*(ELIM-ELEV(11)) X(11)=XKARZAS(FREQ,ZEFF2,3,2) C 3s2 3p4p 1S C ELEV=51612.012 IF(WAVENO.LT.ELIM-ELEV(12))GO TO 30 C GLEV=1. ZEFF2=16./RYD*(ELIM-ELEV(12)) X(12)=XKARZAS(FREQ,ZEFF2,4,1) C 3s2 3p3d 3P C ELEV=50533.424 IF(WAVENO.LT.ELIM-ELEV(13))GO TO 30 C GLEV=9. ZEFF2=9./RYD*(ELIM-ELEV(13)) X(13)=XKARZAS(FREQ,ZEFF2,3,2) C 3s2 3p4p 1D C ELEV=50189.389 IF(WAVENO.LT.ELIM-ELEV(14))GO TO 30 C GLEV=5. ZEFF2=16./RYD*(ELIM-ELEV(14)) X(14)=XKARZAS(FREQ,ZEFF2,4,1) C 3s2 3p3d 3F C ELEV=49965.894 IF(WAVENO.LT.ELIM-ELEV(15))GO TO 30 C GLEV=21. ZEFF2=9./RYD*(ELIM-ELEV(15)) X(15)=XKARZAS(FREQ,ZEFF2,3,2) C 3s2 3p4p 3S C ELEV=49399.670 IF(WAVENO.LT.ELIM-ELEV(16))GO TO 30 C GLEV=3. ZEFF2=16./RYD*(ELIM-ELEV(16)) X(16)=XKARZAS(FREQ,ZEFF2,4,1) C 3s2 3p4p 3P C ELEV=49128.131 IF(WAVENO.LT.ELIM-ELEV(17))GO TO 30 C GLEV=9. ZEFF2=16./RYD*(ELIM-ELEV(17)) X(17)=XKARZAS(FREQ,ZEFF2,4,1) C 3s2 3p4p 3D C ELEV=48161.459 IF(WAVENO.LT.ELIM-ELEV(18))GO TO 30 C GLEV=15. ZEFF2=16./RYD*(ELIM-ELEV(18)) X(18)=XKARZAS(FREQ,ZEFF2,4,1) C 3s2 3p3d 1D C ELEV=47351.554 IF(WAVENO.LT.ELIM-ELEV(19))GO TO 30 C GLEV=5. ZEFF2=9./RYD*(ELIM-ELEV(19)) X(19)=XKARZAS(FREQ,ZEFF2,3,2) C 2s2 3p4p 1P C ELEV=47284.061 IF(WAVENO.LT.ELIM-ELEV(20))GO TO 30 C GLEV=3. ZEFF2=16./RYD*(ELIM-ELEV(20)) X(20)=XKARZAS(FREQ,ZEFF2,4,1) C 3s2 3p4s 1P C ELEV=40991.884 IF(WAVENO.LT.ELIM-ELEV(21))GO TO 30 C GLEV=3. ZEFF2=16./RYD*(ELIM-ELEV(21)) X(21)=XKARZAS(FREQ,ZEFF2,4,0) C 3s2 3p4s 3P C ELEV=39859.920 IF(WAVENO.LT.ELIM-ELEV(22))GO TO 30 C GLEV=9. ZEFF2=16./RYD*(ELIM-ELEV(22)) X(22)=XKARZAS(FREQ,ZEFF2,4,0) C C Si II 3s2 3p 2P1/2 30 ELIM=65747.55 C 3s2 3p2 1S C ELEV=15394.370 IF(WAVENO.LT.ELIM-ELEV(23))GO TO 40 C GLEV=1. EPS=(WAVENO-70000.)*2./6500. C fits to Nahar, S.N. and Pradhan, A.K. J.Phys.B 26, 1109-1127, 1993. RESON1=(97.E-18*EPS+94.E-18)/(EPS**2+1.) C EPS=(WAVENO-89700.)*2./75. C RESON2=900.E-18/(EPS**2+1.) X(23)=(37.E-18*(50353.180/WAVENO)**2.40+RESON1)/3. C X(23)=46.E-18*(50353.180/WAVENO)**.5/3. C 3s2 3p2 1D C ELEV=6298.850 IF(WAVENO.LT.ELIM-ELEV(24))GO TO 40 C GLEV=5. C fits to Nahar, S.N. and Pradhan, A.K. J.Phys.B 26, 1109-1127, 1993. C IF(WAVENO.LT.59448.700)GO TO 30 EPS=(WAVENO-78600.)*2./13000. RESON1=(-10.E-18*EPS+77.E-18)/(EPS**2+1.) C EPS=(WAVENO-98000.)*2./400. C RESON2=(65.E-18*EPS+65.E-18)/(EPS**2+1.) C EPS=(WAVENO-99500.)*2./50. C RESON3=204.E-18/(EPS**2+1.) X(24)=(24.5E-18*(59448.700/WAVENO)**1.85+RESON1)/3. C X(24)=35.E-18*(59448.700/WAVENO)**3/3. C 3s2 3p2 3P2 C ELEV=223.157 IF(WAVENO.LT.ELIM-ELEV(25))GO TO 40 C GLEV=5. C fits to Nahar, S.N. and Pradhan, A.K. J.Phys.B 26, 1109-1127, 1993. C RESON1=0. C RESON2=0. C RESON3=0. C IF(WAVENO.LT.100000.)THEN C EPS=(WAVENO-92200.)*2./950. C RESON1=30.E-18*EPS/(EPS**2+1.) C ENDIF C IF(WAVENO.GT.92200.AND.WAVENO.LT.103600.)THEN C EPS=(WAVENO-100000.)*2./300. C RESON2=30.E-18*EPS/(EPS**2+1.) C ENDIF C IF(WAVENO.GT.100000.AND.WAVENO.LT.105000.)THEN C EPS=(WAVENO-103600.)*2./150. C RESON3=20.E-18*EPS/(EPS**2+1.) C ENDIF IF(WAVENO.LE.74000.)X(25)=72.E-18*(65524.393/WAVENO)**1.90/3. IF(WAVENO.GT.74000.)X(25)=93.E-18*(65524.393/WAVENO)**4.00/3. C X(25)=X(25)+(RESON1+RESON2+RESON3)/3. C X(25)=37.E-18*MIN(1.D0,(74000./WAVENO)**5)/3. C 3s2 3p2 3P1 C ELEV=77.115 IF(WAVENO.LT.ELIM-ELEV(26))GO TO 40 C GLEV=3. C fits to Nahar, S.N. and Pradhan, A.K. J.Phys.B 26, 1109-1127, 1993. C RESON1=0. C RESON2=0. C RESON3=0. C IF(WAVENO.LT.100000.)THEN C EPS=(WAVENO-92200.)*2./950. C RESON1=30.E-18*EPS/(EPS**2+1.) C ENDIF C IF(WAVENO.GT.92200.AND.WAVENO.LT.103600.)THEN C EPS=(WAVENO-100000.)*2./300. C RESON2=30.E-18*EPS/(EPS**2+1.) C ENDIF C IF(WAVENO.GT.100000.AND.WAVENO.LT.105000.)THEN C EPS=(WAVENO-103600.)*2./150. C RESON3=20.E-18*EPS/(EPS**2+1.) C ENDIF IF(WAVENO.LE.74000.)X(26)=72.E-18*(65524.393/WAVENO)**1.90*2./3. IF(WAVENO.GT.74000.)X(26)=93.E-18*(65524.393/WAVENO)**4.00*2./3. C X(26)=X(26)+(RESON1+RESON2+RESON3)*2./3. C X(26)=37.E-18*MIN(1.D0,(74000./WAVENO)**5)*2./3. C 3s2 3p2 3P0 C ELEV=0.00 IF(WAVENO.LT.ELIM-ELEV(27))GO TO 40 C GLEV=1. C fits to Nahar, S.N. and Pradhan, A.K. J.Phys.B 26, 1109-1127, 1993. C RESON1=0. C RESON2=0. C RESON3=0. C IF(WAVENO.LT.100000.)THEN C EPS=(WAVENO-92200.)*2./950. C RESON1=30.E-18*EPS/(EPS**2+1.) C ENDIF C IF(WAVENO.GT.92200.AND.WAVENO.LT.103600.)THEN C EPS=(WAVENO-100000.)*2./300. C RESON2=30.E-18*EPS/(EPS**2+1.) C ENDIF C IF(WAVENO.GT.100000.AND.WAVENO.LT.105000.)THEN C EPS=(WAVENO-103600.)*2./150. C RESON3=20.E-18*EPS/(EPS**2+1.) C ENDIF IF(WAVENO.LE.74000.)X(27)=72.E-18*(65524.393/WAVENO)**1.90/3. IF(WAVENO.GT.74000.)X(27)=93.E-18*(65524.393/WAVENO)**4.00/3. C X(27)=X(27)+(RESON1+RESON2+RESON3)/3. C X(27)=37.E-18*MIN(1.D0,(74000./WAVENO)**5)/3. C C Si II 3s2 3p 2P3/2 40 ELIM=65747.55+287.45 C 3s2 3p2 1S C ELEV=15394.370 IF(WAVENO.LT.ELIM-ELEV(23))GO TO 50 C GLEV=1. EPS=(WAVENO-70000.)*2./6500. C fits to Nahar, S.N. and Pradhan, A.K. J.Phys.B 26, 1109-1127, 1993. RESON1=(97.E-18*EPS+94.E-18)/(EPS**2+1.) C EPS=(WAVENO-89700.)*2./75. C RESON2=900.E-18/(EPS**2+1.) X(23)=X(23)+(37.E-18*(50353.180/WAVENO)**2.40+RESON1)*2./3. C X(23)=X(23)+46.E-18*(50353.180/WAVENO)**.5*2./3. C 3s2 3p2 1D C ELEV=6298.850 IF(WAVENO.LT.ELIM-ELEV(24))GO TO 50 C GLEV=5. C fits to Nahar, S.N. and Pradhan, A.K. J.Phys.B 26, 1109-1127, 1993. C IF(WAVENO.LT.59448.700)GO TO 30 EPS=(WAVENO-78600.)*2./13000. RESON1=(-10.E-18*EPS+77.E-18)/(EPS**2+1.) C EPS=(WAVENO-98000.)*2./400. C RESON2=(65.E-18*EPS+65.E-18)/(EPS**2+1.) C EPS=(WAVENO-99500.)*2./50. C RESON3=204.E-18/(EPS**2+1.) X(24)=X(24)+(24.5E-18*(59448.700/WAVENO)**1.85+RESON1)*2./3. C X(24)=X(24)+35.E-18*(59448.700/WAVENO)**3*2./3. C 3s2 3p2 3P2 C ELEV=223.157 IF(WAVENO.LT.ELIM-ELEV(25))GO TO 50 C GLEV=5. C fits to Nahar, S.N. and Pradhan, A.K. J.Phys.B 26, 1109-1127, 1993. C RESON1=0. C RESON2=0. C RESON3=0. C IF(WAVENO.LT.100000.)THEN C EPS=(WAVENO-92200.)*2./950. C RESON1=30.E-18*EPS/(EPS**2+1.) C ENDIF C IF(WAVENO.GT.92200.AND.WAVENO.LT.103600.)THEN C EPS=(WAVENO-100000.)*2./300. C RESON2=30.E-18*EPS/(EPS**2+1.) C ENDIF C IF(WAVENO.GT.100000.AND.WAVENO.LT.105000.)THEN C EPS=(WAVENO-103600.)*2./150. C RESON3=20.E-18*EPS/(EPS**2+1.) C ENDIF c IF(WAVENO.LE.74000.)X(25)=X(25)+72.E-18*(65524.393/WAVENO)**1.90*2./3. c IF(WAVENO.GT.74000.)X(25)=X(25)+93.E-18*(65524.393/WAVENO)**4.00*2./3. c extends past col 72 K. Bischoff 21jul03 IF(WAVENO.LE.74000.)X(25)= 1 X(25)+72.E-18*(65524.393/WAVENO)**1.90*2./3. IF(WAVENO.GT.74000.)X(25)= 1 X(25)+93.E-18*(65524.393/WAVENO)**4.00*2./3. C X(25)=X(25)+(RESON1+RESON2+RESON3)*2./3. C X(25)=X(25)+37.E-18*MIN(1.D0,(74000./WAVENO)**5)*2./3. C 3s2 3p2 3P1 C ELEV=77.115 IF(WAVENO.LT.ELIM-ELEV(26))GO TO 50 C GLEV=3. C fits to Nahar, S.N. and Pradhan, A.K. J.Phys.B 26, 1109-1127, 1993. C RESON1=0. C RESON2=0. C RESON3=0. C IF(WAVENO.LT.100000.)THEN C EPS=(WAVENO-92200.)*2./950. C RESON1=30.E-18*EPS/(EPS**2+1.) C ENDIF C IF(WAVENO.GT.92200.AND.WAVENO.LT.103600.)THEN C EPS=(WAVENO-100000.)*2./300. C RESON2=30.E-18*EPS/(EPS**2+1.) C ENDIF C IF(WAVENO.GT.100000.AND.WAVENO.LT.105000.)THEN C EPS=(WAVENO-103600.)*2./150. C RESON3=20.E-18*EPS/(EPS**2+1.) C ENDIF c IF(WAVENO.LE.74000.)X(26)=X(26)+72.E-18*(65524.393/WAVENO)**1.90*2./3. c IF(WAVENO.GT.74000.)X(26)=X(26)+93.E-18*(65524.393/WAVENO)**4.00*2./3. c extends past col 72 K. Bischoff 21jul03 IF(WAVENO.LE.74000.)X(26)= 1 X(26)+72.E-18*(65524.393/WAVENO)**1.90*2./3. IF(WAVENO.GT.74000.)X(26)= 1 X(26)+93.E-18*(65524.393/WAVENO)**4.00*2./3. C X(26)=X(26)+(RESON1+RESON2+RESON3)*2./3. C X(26)=37.E-18*MIN(1.D0,(74000./WAVENO)**5)*2./3. C 3s2 3p2 3P0 C ELEV=0.00 IF(WAVENO.LT.ELIM-ELEV(27))GO TO 50 C GLEV=1. C fits to Nahar, S.N. and Pradhan, A.K. J.Phys.B 26, 1109-1127, 1993. C RESON1=0. C RESON2=0. C RESON3=0. C IF(WAVENO.LT.100000.)THEN C EPS=(WAVENO-92200.)*2./950. C RESON1=30.E-18*EPS/(EPS**2+1.) C ENDIF C IF(WAVENO.GT.92200.AND.WAVENO.LT.103600.)THEN C EPS=(WAVENO-100000.)*2./300. C RESON2=30.E-18*EPS/(EPS**2+1.) C ENDIF C IF(WAVENO.GT.100000.AND.WAVENO.LT.105000.)THEN C EPS=(WAVENO-103600.)*2./150. C RESON3=20.E-18*EPS/(EPS**2+1.) C ENDIF c IF(WAVENO.LE.74000.)X(27)=X(27)+72.E-18*(65524.393/WAVENO)**1.90*2./3. c IF(WAVENO.GT.74000.)X(27)=X(27)+93.E-18*(65524.393/WAVENO)**4.00*2./3. c extends past col 72 K. Bischoff 21jul03 IF(WAVENO.LE.74000.)X(27)= 1 X(27)+72.E-18*(65524.393/WAVENO)**1.90*2./3. IF(WAVENO.GT.74000.)X(27)= 1 X(27)+93.E-18*(65524.393/WAVENO)**4.00*2./3. C X(27)=X(27)+(RESON1+RESON2+RESON3)*2./3. C X(27)=X(27)+37.E-18*MIN(1.D0,(74000./WAVENO)**5)*2./3. C C Si II 3s 3p2 4P1/2 50 ELIM=65747.5+42824.35 C 3s3p3 1P C ELEV=94000. IF(WAVENO.LT.ELIM-ELEV(28))GO TO 60 C GLEV=3. DEGEN=3. ZEFF2=9./RYD*(ELIM-ELEV(28)) X(28)=XKARZAS(FREQ,ZEFF2,3,1)*DEGEN C 3s3p3 3S c guess C ELEV=79664.0 IF(WAVENO.LT.ELIM-ELEV(29))GO TO 60 C GLEV=3. DEGEN=3. ZEFF2=9./RYD*(ELIM-ELEV(29)) X(29)=XKARZAS(FREQ,ZEFF2,3,1)*DEGEN C 3s3p3 1D c guess C ELEV=72000. IF(WAVENO.LT.ELIM-ELEV(30))GO TO 60 C GLEV=5. ZEFF2=9./RYD*(ELIM-ELEV(30)) X(30)=XKARZAS(FREQ,ZEFF2,3,1)*DEGEN C 3s3p3 3P C ELEV=56698.738 IF(WAVENO.LT.ELIM-ELEV(31))GO TO 60 C GLEV=12. ZEFF2=9./RYD*(ELIM-ELEV(31)) X(31)=XKARZAS(FREQ,ZEFF2,3,1)*DEGEN C 2s2p3 3D C ELEV=45303.310 IF(WAVENO.LT.ELIM-ELEV(32))GO TO 60 C GLEV=15. ZEFF2=9./RYD*(ELIM-ELEV(32)) X(32)=XKARZAS(FREQ,ZEFF2,3,1)*DEGEN C 2s2p3 5S C ELEV=33326.053 IF(WAVENO.LT.ELIM-ELEV(33))GO TO 60 C GLEV=5. ZEFF2=9./RYD*(ELIM-ELEV(33)) X(33)=XKARZAS(FREQ,ZEFF2,3,1)*DEGEN C 60 DO 100 J=1,NRHOX ELIM=65747.55 GFACTOR=6. C N=5 TO INFINITY H=FREQ3*GFACTOR*2./2./(RYD*Z**2*HCKT(J))* 1(EXP(-MAX(ELIM-RYD*Z**2/5.**2,ELIM-WAVENO)*HCKT(J)) 2-EXP(-ELIM*HCKT(J))) DO 90 I=1,33 90 H=H+X(I)*BOLT(I,J) 100 ASI1(J)=H*XNFP(J,105)*STIM(J)/RHO(J) RETURN END FUNCTION FE1OP(J) C CROSS-SECTION TIMES PARTITION FUNCTION IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /RHOX/RHOX(kw),NRHOX COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) DIMENSION BOLT(48,kw),G(48),E(48),WNO(48),XSECT(48) DATA G/25.,35.,21.,15.,9.,35.,33.,21.,27.,49.,9.,21.,27.,9.,9., 1 25.,33.,15.,35.,3.,5.,11.,15.,13.,15.,9.,21.,15.,21.,25.,35., 2 9.,5.,45.,27.,21.,15.,21.,15.,25.,21.,35.,5.,15.,45.,35.,55.,25./ DATA E/500.,7500.,12500.,17500.,19000.,19500.,19500.,21000., 1 22000.,23000.,23000.,24000.,24000.,24500.,24500.,26000.,26500., 2 26500.,27000.,27500.,28500.,29000.,29500.,29500.,29500.,30000., 3 31500.,31500.,33500.,33500.,34000.,34500.,34500.,35000.,35500., 4 37000.,37000.,37000.,38500.,40000.,40000.,41000.,41000.,43000., 5 43000.,43000.,43000.,44000./ DATA WNO/63500.,58500.,53500.,59500.,45000.,44500.,44500.,43000., 1 58000.,41000.,54000.,40000.,40000.,57500.,55500.,38000.,57500., 2 57500.,37000.,54500.,53500.,55000.,34500.,34500.,34500.,34000., 3 32500.,32500.,32500.,32500.,32000.,29500.,29500.,31000.,30500., 4 29000.,27000.,54000.,27500.,24000.,47000.,23000.,44000.,42000., 5 42000.,21000.,42000.,42000./ DATA ITEMP1/0/,FREQ1/0./ IF(ITEMP.EQ.ITEMP1)GO TO 20 ITEMP1=ITEMP DO 10 K=1,NRHOX DO 10 I=1,48 10 BOLT(I,K)=G(I)*EXP(-E(I)*2.99792458E10*HKT(K)) 20 IF(FREQ.EQ.FREQ1)GO TO 30 FREQ1=FREQ WAVENO=FREQ/2.99792458E10 IF(WAVENO.LT.21000.)GO TO 30 DO 25 I=1,48 XSECT(I)=0. IF(WNO(I).LT.WAVENO) 1XSECT(I)= 3.E-18/(1.+((WNO(I)+3000.-WAVENO)/WNO(I)/.1)**4) 25 CONTINUE 30 FE1OP=0. IF(WAVENO.LT.21000.)RETURN DO 35 I=1,48 35 FE1OP=FE1OP+XSECT(I)*BOLT(I,J) RETURN END FUNCTION CHOP(J) C CROSS-SECTION TIMES PARTITION FUNCTION IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /RHOX/RHOX(kw),NRHOX COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) DIMENSION CROSSCH(15,105),PARTCH(41),CROSSCHT(15) DIMENSION C1(150),C2(150),C3(150),C4(150),C5(150) DIMENSION C6(150),C7(150),C8(150),C9(150),C10(150) DIMENSION C11(75) EQUIVALENCE (CROSSCH(1, 1),C1(1)),(CROSSCH(1,11),C2(1)) EQUIVALENCE (CROSSCH(1,21),C3(1)),(CROSSCH(1,31),C4(1)) EQUIVALENCE (CROSSCH(1,41),C5(1)),(CROSSCH(1,51),C6(1)) EQUIVALENCE (CROSSCH(1,61),C7(1)),(CROSSCH(1,71),C8(1)) EQUIVALENCE (CROSSCH(1,81),C9(1)),(CROSSCH(1,91),C10(1)) EQUIVALENCE (CROSSCH(1,101),C11(1)) DATA C1/-38.000,-38.000,-38.000,-38.000,-38.000,-38.000,-38.000, 0.1 1-38.000,-38.000,-38.000,-38.000,-38.000,-38.000,-38.000,-38.000, 0.1 2 -32.727,-31.151,-30.133,-29.432,-28.925,-28.547,-28.257, 0.2 2-28.030,-27.848,-27.701,-27.580,-27.479,-27.395,-27.322,-27.261, 0.2 3 -31.588,-30.011,-28.993,-28.290,-27.784,-27.405,-27.115, 0.3 3-26.887,-26.705,-26.558,-26.437,-26.336,-26.251,-26.179,-26.117, 0.3 4 -30.407,-28.830,-27.811,-27.108,-26.601,-26.223,-25.932, 0.4 4-25.705,-25.523,-25.376,-25.255,-25.154,-25.069,-24.997,-24.935, 0.4 5 -29.513,-27.937,-26.920,-26.218,-25.712,-25.334,-25.043, 0.5 5-24.816,-24.635,-24.487,-24.366,-24.266,-24.181,-24.109,-24.047, 0.5 6 -28.910,-27.341,-26.327,-25.628,-25.123,-24.746,-24.457, 0.6 6-24.230,-24.049,-23.902,-23.782,-23.681,-23.597,-23.525,-23.464, 0.6 7 -28.517,-26.961,-25.955,-25.261,-24.760,-24.385,-24.098, 0.7 7-23.873,-23.694,-23.548,-23.429,-23.329,-23.245,-23.174,-23.113, 0.7 8 -28.213,-26.675,-25.680,-24.993,-24.497,-24.127,-23.843, 0.8 8-23.620,-23.443,-23.299,-23.181,-23.082,-22.999,-22.929,-22.869, 0.8 9 -27.942,-26.427,-25.446,-24.769,-24.280,-23.915,-23.635, 0.9 9-23.416,-23.241,-23.100,-22.983,-22.887,-22.805,-22.736,-22.677, 0.9 A -27.706,-26.210,-25.241,-24.572,-24.088,-23.728,-23.451, 1.0 A-23.235,-23.063,-22.923,-22.808,-22.713,-22.633,-22.565,-22.507/ 1.0 DATA C2/-27.475,-26.000,-25.043,-24.382,-23.905,-23.548,-23.275, 1.1 1-23.062,-22.891,-22.753,-22.640,-22.546,-22.467,-22.400,-22.343, 1.1 2 -27.221,-25.783,-24.844,-24.193,-23.723,-23.372,-23.102, 1.2 2-22.892,-22.724,-22.588,-22.476,-22.384,-22.306,-22.240,-22.184, 1.2 3 -26.863,-25.506,-24.607,-23.979,-23.523,-23.182,-22.919, 1.3 3-22.714,-22.550,-22.417,-22.309,-22.218,-22.142,-22.078,-22.023, 1.3 4 -26.685,-25.347,-24.457,-23.835,-23.382,-23.044,-22.784, 1.4 4-22.580,-22.418,-22.286,-22.178,-22.089,-22.014,-21.950,-21.896, 1.4 5 -26.085,-24.903,-24.105,-23.538,-23.120,-22.805,-22.561, 1.5 5-22.370,-22.217,-22.093,-21.991,-21.906,-21.835,-21.775,-21.723, 1.5 6 -25.902,-24.727,-23.936,-23.376,-22.964,-22.654,-22.415, 1.6 6-22.227,-22.076,-21.955,-21.855,-21.772,-21.702,-21.644,-21.593, 1.6 7 -25.215,-24.196,-23.510,-23.019,-22.655,-22.378,-22.163, 1.7 7-21.992,-21.855,-21.744,-21.653,-21.577,-21.513,-21.459,-21.412, 1.7 8 -24.914,-23.937,-23.284,-22.820,-22.475,-22.212,-22.007, 1.8 8-21.845,-21.715,-21.609,-21.522,-21.449,-21.388,-21.336,-21.292, 1.8 9 -24.519,-23.637,-23.039,-22.606,-22.281,-22.030,-21.834, 1.9 9-21.678,-21.552,-21.450,-21.365,-21.295,-21.236,-21.185,-21.142, 1.9 A -24.086,-23.222,-22.650,-22.246,-21.948,-21.722,-21.546, 2.0 A-21.407,-21.296,-21.205,-21.131,-21.070,-21.018,-20.974,-20.937/ 2.0 DATA C3/-23.850,-23.018,-22.472,-22.088,-21.805,-21.590,-21.422, 2.1 1-21.289,-21.182,-21.095,-21.024,-20.964,-20.914,-20.872,-20.835, 2.1 2 -23.136,-22.445,-21.994,-21.676,-21.440,-21.259,-21.117, 2.2 2-21.004,-20.912,-20.837,-20.775,-20.723,-20.679,-20.642,-20.611, 2.2 3 -23.199,-22.433,-21.927,-21.573,-21.314,-21.119,-20.969, 2.3 3-20.851,-20.758,-20.682,-20.621,-20.571,-20.529,-20.493,-20.463, 2.3 4 -22.696,-22.020,-21.585,-21.286,-21.071,-20.912,-20.791, 2.4 4-20.697,-20.622,-20.563,-20.514,-20.475,-20.442,-20.414,-20.391, 2.4 5 -22.119,-21.557,-21.194,-20.943,-20.761,-20.624,-20.518, 2.5 5-20.434,-20.367,-20.313,-20.268,-20.231,-20.201,-20.175,-20.153, 2.5 6 -21.855,-21.300,-20.931,-20.673,-20.485,-20.344,-20.235, 2.6 6-20.151,-20.084,-20.031,-19.988,-19.953,-19.924,-19.900,-19.880, 2.6 7 -21.126,-20.673,-20.382,-20.184,-20.044,-19.943,-19.868, 2.7 7-19.811,-19.769,-19.736,-19.710,-19.690,-19.674,-19.662,-19.652, 2.7 8 -20.502,-20.150,-19.922,-19.766,-19.657,-19.578,-19.520, 2.8 8-19.478,-19.446,-19.422,-19.404,-19.390,-19.379,-19.371,-19.365, 2.8 9 -20.030,-19.724,-19.530,-19.399,-19.309,-19.245,-19.199, 2.9 9-19.166,-19.142,-19.125,-19.112,-19.103,-19.096,-19.091,-19.088, 2.9 A -19.640,-19.364,-19.189,-19.074,-18.996,-18.943,-18.906, 3.0 A-18.881,-18.863,-18.852,-18.844,-18.839,-18.837,-18.836,-18.836/ 3.0 DATA C4/-19.333,-19.092,-18.939,-18.838,-18.770,-18.725,-18.695, 3.1 1-18.675,-18.662,-18.655,-18.651,-18.649,-18.649,-18.651,-18.653, 3.1 2 -19.070,-18.880,-18.756,-18.674,-18.621,-18.585,-18.562, 3.2 2-18.548,-18.540,-18.536,-18.536,-18.537,-18.539,-18.542,-18.546, 3.2 3 -18.851,-18.708,-18.617,-18.558,-18.521,-18.498,-18.484, 3.3 3-18.477,-18.475,-18.476,-18.478,-18.482,-18.487,-18.493,-18.498, 3.3 4 -18.709,-18.599,-18.533,-18.494,-18.471,-18.459,-18.454, 3.4 4-18.454,-18.457,-18.462,-18.469,-18.476,-18.483,-18.490,-18.498, 3.4 5 -18.656,-18.572,-18.524,-18.497,-18.485,-18.480,-18.482, 3.5 5-18.486,-18.493,-18.501,-18.510,-18.519,-18.527,-18.536,-18.544, 3.5 6 -18.670,-18.613,-18.582,-18.566,-18.561,-18.562,-18.568, 3.6 6-18.575,-18.583,-18.592,-18.601,-18.610,-18.619,-18.627,-18.635, 3.6 7 -18.728,-18.700,-18.687,-18.683,-18.685,-18.691,-18.698, 3.7 7-18.706,-18.715,-18.723,-18.731,-18.739,-18.745,-18.752,-18.758, 3.7 8 -18.839,-18.835,-18.836,-18.842,-18.849,-18.857,-18.865, 3.8 8-18.872,-18.878,-18.883,-18.888,-18.892,-18.895,-18.898,-18.900, 3.8 9 -19.034,-19.041,-19.049,-19.057,-19.064,-19.069,-19.071, 3.9 9-19.071,-19.070,-19.068,-19.065,-19.061,-19.058,-19.054,-19.051, 3.9 A -19.372,-19.378,-19.382,-19.380,-19.372,-19.359,-19.341, 4.0 A-19.321,-19.300,-19.280,-19.261,-19.243,-19.227,-19.212,-19.199/ 4.0 DATA C5/-19.780,-19.777,-19.763,-19.732,-19.686,-19.631,-19.573, 4.1 1-19.517,-19.465,-19.419,-19.379,-19.344,-19.314,-19.288,-19.265, 4.1 2 -20.151,-20.133,-20.087,-20.009,-19.911,-19.810,-19.715, 4.2 2-19.631,-19.559,-19.497,-19.446,-19.402,-19.365,-19.333,-19.306, 4.2 3 -20.525,-20.454,-20.312,-20.138,-19.970,-19.825,-19.705, 4.3 3-19.607,-19.528,-19.464,-19.411,-19.367,-19.330,-19.300,-19.274, 4.3 4 -20.869,-20.655,-20.366,-20.104,-19.894,-19.731,-19.604, 4.4 4-19.505,-19.426,-19.363,-19.312,-19.271,-19.236,-19.208,-19.184, 4.4 5 -21.179,-20.768,-20.380,-20.081,-19.856,-19.686,-19.556, 4.5 5-19.454,-19.375,-19.311,-19.260,-19.218,-19.184,-19.155,-19.131, 4.5 6 -21.167,-20.601,-20.206,-19.925,-19.719,-19.565,-19.447, 4.6 6-19.355,-19.283,-19.226,-19.180,-19.143,-19.112,-19.087,-19.066, 4.6 7 -20.918,-20.348,-19.976,-19.720,-19.536,-19.401,-19.299, 4.7 7-19.220,-19.159,-19.112,-19.073,-19.043,-19.018,-18.998,-18.981, 4.7 8 -20.753,-20.204,-19.847,-19.602,-19.427,-19.299,-19.203, 4.8 8-19.129,-19.072,-19.028,-18.993,-18.965,-18.942,-18.924,-18.909, 4.8 9 -20.456,-19.987,-19.677,-19.460,-19.302,-19.186,-19.098, 4.9 9-19.030,-18.978,-18.937,-18.904,-18.878,-18.857,-18.841,-18.827, 4.9 A -20.154,-19.734,-19.461,-19.272,-19.136,-19.035,-18.960, 5.0 A-18.902,-18.858,-18.824,-18.797,-18.775,-18.759,-18.745,-18.735/ 5.0 DATA C6/-19.941,-19.544,-19.288,-19.114,-18.992,-18.903,-18.837, 5.1 1-18.788,-18.751,-18.723,-18.701,-18.684,-18.671,-18.661,-18.654, 5.1 2 -19.657,-19.321,-19.104,-18.956,-18.853,-18.779,-18.724, 5.2 2-18.684,-18.655,-18.632,-18.615,-18.602,-18.592,-18.585,-18.579, 5.2 3 -19.388,-19.109,-18.930,-18.810,-18.725,-18.664,-18.620, 5.3 3-18.586,-18.562,-18.543,-18.529,-18.518,-18.510,-18.503,-18.498, 5.3 4 -19.201,-18.953,-18.794,-18.686,-18.611,-18.556,-18.515, 5.4 4-18.485,-18.462,-18.446,-18.433,-18.423,-18.416,-18.410,-18.406, 5.4 5 -18.923,-18.719,-18.588,-18.500,-18.439,-18.396,-18.365, 5.5 5-18.344,-18.328,-18.318,-18.311,-18.307,-18.304,-18.303,-18.302, 5.5 6 -18.614,-18.458,-18.361,-18.298,-18.258,-18.232,-18.216, 5.6 6-18.206,-18.202,-18.201,-18.202,-18.205,-18.208,-18.213,-18.218, 5.6 7 -18.419,-18.295,-18.222,-18.178,-18.153,-18.139,-18.132, 5.7 7-18.131,-18.133,-18.138,-18.143,-18.150,-18.157,-18.164,-18.172, 5.7 8 -18.296,-18.201,-18.148,-18.118,-18.101,-18.094,-18.091, 5.8 8-18.093,-18.096,-18.101,-18.107,-18.113,-18.120,-18.126,-18.132, 5.8 9 -18.021,-17.992,-17.977,-17.970,-17.967,-17.968,-17.970, 5.9 9-17.974,-17.978,-17.983,-17.989,-17.994,-18.000,-18.005,-18.011, 5.9 A -17.694,-17.686,-17.686,-17.691,-17.698,-17.708,-17.718, 6.0 A-17.729,-17.740,-17.750,-17.761,-17.771,-17.781,-17.790,-17.798/ 6.0 DATA C7/-17.374,-17.384,-17.400,-17.420,-17.440,-17.462,-17.483, 6.1 1-17.503,-17.523,-17.541,-17.558,-17.575,-17.590,-17.603,-17.616, 6.1 2 -17.169,-17.199,-17.230,-17.262,-17.293,-17.323,-17.351, 6.2 2-17.378,-17.404,-17.427,-17.449,-17.469,-17.488,-17.505,-17.520, 6.2 3 -17.151,-17.184,-17.217,-17.250,-17.282,-17.313,-17.342, 6.3 3-17.369,-17.395,-17.418,-17.440,-17.461,-17.480,-17.497,-17.513, 6.3 4 -17.230,-17.260,-17.290,-17.320,-17.348,-17.375,-17.401, 6.4 4-17.425,-17.448,-17.469,-17.489,-17.508,-17.525,-17.541,-17.556, 6.4 5 -17.379,-17.403,-17.425,-17.446,-17.467,-17.486,-17.505, 6.5 5-17.524,-17.541,-17.558,-17.574,-17.588,-17.602,-17.615,-17.627, 6.5 6 -17.596,-17.604,-17.609,-17.612,-17.616,-17.622,-17.628, 6.6 6-17.636,-17.644,-17.652,-17.661,-17.670,-17.679,-17.687,-17.695, 6.6 7 -17.846,-17.823,-17.795,-17.770,-17.750,-17.735,-17.725, 6.7 7-17.719,-17.716,-17.715,-17.716,-17.719,-17.722,-17.726,-17.730, 6.7 8 -18.089,-18.015,-17.942,-17.882,-17.836,-17.802,-17.777, 6.8 8-17.760,-17.748,-17.740,-17.736,-17.734,-17.733,-17.734,-17.736, 6.8 9 -18.299,-18.156,-18.038,-17.947,-17.881,-17.833,-17.798, 6.9 9-17.774,-17.757,-17.745,-17.738,-17.733,-17.730,-17.729,-17.729, 6.9 A -18.441,-18.243,-18.096,-17.991,-17.915,-17.860,-17.821, 7.0 A-17.792,-17.772,-17.757,-17.746,-17.738,-17.733,-17.730,-17.728/ 7.0 DATA C8/-18.474,-18.262,-18.111,-18.004,-17.926,-17.869,-17.826, 7.1 1-17.795,-17.771,-17.753,-17.740,-17.730,-17.722,-17.717,-17.713, 7.1 2 -18.387,-18.191,-18.053,-17.952,-17.878,-17.823,-17.782, 7.2 2-17.752,-17.729,-17.711,-17.698,-17.689,-17.681,-17.676,-17.672, 7.2 3 -18.161,-17.990,-17.874,-17.793,-17.736,-17.696,-17.668, 7.3 3-17.648,-17.634,-17.625,-17.619,-17.616,-17.614,-17.614,-17.615, 7.3 4 -17.908,-17.774,-17.690,-17.637,-17.604,-17.583,-17.572, 7.4 4-17.567,-17.566,-17.568,-17.571,-17.576,-17.581,-17.587,-17.593, 7.4 5 -17.681,-17.589,-17.540,-17.515,-17.506,-17.505,-17.511, 7.5 5-17.520,-17.530,-17.542,-17.554,-17.566,-17.578,-17.589,-17.600, 7.5 6 -17.647,-17.606,-17.584,-17.575,-17.573,-17.576,-17.582, 7.6 6-17.589,-17.597,-17.605,-17.614,-17.623,-17.631,-17.639,-17.646, 7.6 7 -17.300,-17.291,-17.291,-17.297,-17.307,-17.319,-17.333, 7.7 7-17.347,-17.361,-17.375,-17.389,-17.402,-17.415,-17.427,-17.438, 7.7 8 -16.786,-16.802,-16.825,-16.853,-16.883,-16.914,-16.944, 7.8 8-16.974,-17.003,-17.030,-17.055,-17.079,-17.101,-17.122,-17.141, 7.8 9 -16.489,-16.533,-16.579,-16.625,-16.670,-16.713,-16.754, 7.9 9-16.793,-16.830,-16.864,-16.896,-16.925,-16.952,-16.977,-17.000, 7.9 A -16.694,-16.724,-16.756,-16.789,-16.823,-16.856,-16.888, 8.0 A-16.919,-16.949,-16.976,-17.002,-17.026,-17.048,-17.069,-17.088/ 8.0 DATA C9/-16.935,-16.951,-16.971,-16.993,-17.016,-17.040,-17.064, 8.1 1-17.088,-17.111,-17.132,-17.153,-17.172,-17.190,-17.206,-17.222, 8.1 2 -17.200,-17.208,-17.220,-17.235,-17.251,-17.269,-17.286, 8.2 2-17.304,-17.322,-17.338,-17.354,-17.369,-17.384,-17.397,-17.409, 8.2 3 -17.597,-17.591,-17.589,-17.590,-17.594,-17.600,-17.608, 8.3 3-17.617,-17.626,-17.635,-17.645,-17.654,-17.662,-17.671,-17.679, 8.3 4 -18.166,-18.134,-18.107,-18.085,-18.068,-18.056,-18.047, 8.4 4-18.041,-18.038,-18.036,-18.035,-18.035,-18.036,-18.038,-18.039, 8.4 5 -19.000,-18.917,-18.838,-18.770,-18.714,-18.669,-18.632, 8.5 5-18.603,-18.579,-18.560,-18.545,-18.532,-18.522,-18.514,-18.507, 8.5 6 -20.313,-19.982,-19.754,-19.592,-19.472,-19.380,-19.309, 8.6 6-19.253,-19.208,-19.172,-19.143,-19.119,-19.099,-19.083,-19.069, 8.6 7 -19.751,-19.611,-19.520,-19.461,-19.423,-19.398,-19.382, 8.7 7-19.372,-19.366,-19.364,-19.363,-19.364,-19.366,-19.368,-19.371, 8.7 8 -19.581,-19.431,-19.337,-19.277,-19.240,-19.218,-19.207, 8.8 8-19.202,-19.203,-19.207,-19.212,-19.220,-19.228,-19.236,-19.245, 8.8 9 -19.685,-19.506,-19.389,-19.311,-19.258,-19.222,-19.199, 8.9 9-19.184,-19.175,-19.170,-19.168,-19.169,-19.171,-19.174,-19.177, 8.9 A -19.977,-19.756,-19.606,-19.501,-19.425,-19.370,-19.330, 9.0 A-19.300,-19.278,-19.262,-19.250,-19.241,-19.235,-19.230,-19.227/ 9.0 DATAC10/-20.445,-20.158,-19.958,-19.815,-19.711,-19.633,-19.574, 9.1 1-19.528,-19.493,-19.465,-19.442,-19.425,-19.410,-19.398,-19.389, 9.1 2 -20.980,-20.625,-20.391,-20.229,-20.110,-20.020,-19.949, 9.2 2-19.892,-19.846,-19.807,-19.775,-19.748,-19.724,-19.704,-19.687, 9.2 3 -21.404,-21.023,-20.771,-20.594,-20.461,-20.358,-20.274, 9.3 3-20.205,-20.148,-20.099,-20.058,-20.022,-19.991,-19.965,-19.942, 9.3 4 -21.309,-20.970,-20.753,-20.603,-20.495,-20.412,-20.348, 9.4 4-20.295,-20.252,-20.215,-20.185,-20.158,-20.135,-20.115,-20.098, 9.4 5 -21.221,-20.906,-20.707,-20.574,-20.480,-20.412,-20.361, 9.5 5-20.322,-20.292,-20.268,-20.249,-20.233,-20.221,-20.210,-20.201, 9.5 6 -21.441,-21.097,-20.878,-20.728,-20.623,-20.546,-20.489, 9.6 6-20.446,-20.413,-20.387,-20.368,-20.352,-20.340,-20.330,-20.322, 9.6 7 -21.668,-21.305,-21.071,-20.911,-20.797,-20.713,-20.650, 9.7 7-20.602,-20.565,-20.536,-20.514,-20.496,-20.481,-20.470,-20.460, 9.7 8 -21.926,-21.556,-21.316,-21.150,-21.031,-20.942,-20.874, 9.8 8-20.822,-20.782,-20.750,-20.724,-20.704,-20.687,-20.674,-20.663, 9.8 9 -22.319,-21.937,-21.686,-21.510,-21.380,-21.282,-21.206, 9.9 9-21.147,-21.099,-21.061,-21.031,-21.006,-20.985,-20.968,-20.954, 9.9 A -22.969,-22.561,-22.288,-22.092,-21.945,-21.832,-21.743, 10.0 A-21.672,-21.616,-21.570,-21.533,-21.503,-21.477,-21.457,-21.439/ 10.0 DATAC11/-24.001,-23.527,-23.199,-22.957,-22.772,-22.629,-22.516, 10.1 1-22.427,-22.355,-22.297,-22.250,-22.212,-22.180,-22.153,-22.131, 10.1 2 -24.233,-23.774,-23.477,-23.273,-23.128,-23.022,-22.943, 10.2 2-22.883,-22.837,-22.802,-22.774,-22.752,-22.735,-22.721,-22.710, 10.2 3 -24.550,-23.913,-23.521,-23.266,-23.094,-22.976,-22.893, 10.3 3-22.836,-22.796,-22.768,-22.750,-22.737,-22.730,-22.726,-22.725, 10.3 4 -24.301,-23.665,-23.274,-23.019,-22.848,-22.730,-22.648, 10.4 4-22.591,-22.552,-22.525,-22.507,-22.495,-22.489,-22.485,-22.485, 10.4 5 -24.519,-23.883,-23.491,-23.237,-23.065,-22.948,-22.866, 10.5 5-22.809,-22.770,-22.743,-22.724,-22.713,-22.706,-22.703,-22.702/ 10.5 DATA PARTCH/ 1 203.741, 249.643, 299.341, 353.477, 412.607, 477.237, 2 547.817, 624.786, 708.543, 799.463, 897.912, 1004.227, 3 1118.738, 1241.761, 1373.588, 1514.481, 1664.677, 1824.394, 4 1993.801, 2173.050, 2362.234, 2561.424, 2770.674, 2989.930, 5 3219.204, 3458.378, 3707.355, 3966.005, 4234.155, 4511.604, 6 4798.135, 5093.554, 5397.593, 5709.948, 6030.401, 6358.646, 7 6694.379, 7037.313, 7387.147, 7743.579, 8106.313/ DATA FREQ1/0./ 10 CHOP=0. IF(FREQ.EQ.FREQ1)GO TO 30 FREQ1=FREQ WAVENO=FREQ/2.99792458E10 EVOLT=WAVENO/8065.479 N=EVOLT*10. EN=FLOAT(N)*.1 IF(N.LT.20)RETURN IF(N.GE.105)RETURN DO 21 IT=1,15 21 CROSSCHT(IT)=(CROSSCH(IT,N)+(CROSSCH(IT,N+1)-CROSSCH(IT,N))* 1(EVOLT-EN)/.1) C PRINT 26,CROSSCHT C 26 FORMAT(3H0CH,15F8.3) 30 IF(T(J).GE.9000.)RETURN IF(N.LT.20)RETURN IF(N.GE.105)RETURN IT=(T(J)-1000.)/200.+1. IT=MAX0(IT,1) TN=FLOAT(IT)*200.+800. PART=PARTCH(IT)+(PARTCH(IT+1)-PARTCH(IT))*(T(J)-TN)/200. IT=(T(J)-2000.)/500.+1. IT=MAX0(IT,1) TN=FLOAT(IT)*500.+1500. CHOP=EXP((CROSSCHT(IT)+(CROSSCHT(IT+1)-CROSSCHT(IT))* 1(T(J)-TN)/500.)*2.30258509299405E0)*PART RETURN END FUNCTION OHOP(J) C CROSS-SECTION TIMES PARTITION FUNCTION IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /RHOX/RHOX(kw),NRHOX COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) DIMENSION CROSSOH(15,130),PARTOH(41),CROSSOHT(15) DIMENSION C1(150),C2(150),C3(150),C4(150),C5(150) DIMENSION C6(150),C7(150),C8(150),C9(150),C10(150) DIMENSION C11(150),C12(150),C13(150) EQUIVALENCE (CROSSOH(1, 1),C1(1)),(CROSSOH(1,11),C2(1)) EQUIVALENCE (CROSSOH(1,21),C3(1)),(CROSSOH(1,31),C4(1)) EQUIVALENCE (CROSSOH(1,41),C5(1)),(CROSSOH(1,51),C6(1)) EQUIVALENCE (CROSSOH(1,61),C7(1)),(CROSSOH(1,71),C8(1)) EQUIVALENCE (CROSSOH(1,81),C9(1)),(CROSSOH(1,91),C10(1)) EQUIVALENCE (CROSSOH(1,101),C11(1)) EQUIVALENCE (CROSSOH(1,111),C12(1)) EQUIVALENCE (CROSSOH(1,121),C13(1)) DATA C1/-30.855,-29.121,-27.976,-27.166,-26.566,-26.106,-25.742, 2.1 1-25.448,-25.207,-25.006,-24.836,-24.691,-24.566,-24.457,-24.363, 2.1 2 -30.494,-28.760,-27.615,-26.806,-26.206,-25.745,-25.381, 2.2 2-25.088,-24.846,-24.645,-24.475,-24.330,-24.205,-24.097,-24.002, 2.2 3 -30.157,-28.425,-27.280,-26.472,-25.872,-25.411,-25.048, 2.3 3-24.754,-24.513,-24.312,-24.142,-23.997,-23.872,-23.764,-23.669, 2.3 4 -29.848,-28.117,-26.974,-26.165,-25.566,-25.105,-24.742, 2.4 4-24.448,-24.207,-24.006,-23.836,-23.692,-23.567,-23.458,-23.364, 2.4 5 -29.567,-27.837,-26.693,-25.885,-25.286,-24.826,-24.462, 2.5 5-24.169,-23.928,-23.727,-23.557,-23.412,-23.287,-23.179,-23.084, 2.5 6 -29.307,-27.578,-26.436,-25.628,-25.029,-24.569,-24.205, 2.6 6-23.912,-23.671,-23.470,-23.300,-23.155,-23.031,-22.922,-22.828, 2.6 7 -29.068,-27.341,-26.199,-25.391,-24.792,-24.332,-23.969, 2.7 7-23.676,-23.435,-23.234,-23.064,-22.920,-22.795,-22.687,-22.592, 2.7 8 -28.820,-27.115,-25.978,-25.172,-24.574,-24.115,-23.752, 2.8 8-23.459,-23.218,-23.017,-22.848,-22.703,-22.579,-22.470,-22.376, 2.8 9 -28.540,-26.891,-25.768,-24.968,-24.372,-23.914,-23.552, 2.9 9-23.259,-23.019,-22.818,-22.649,-22.504,-22.380,-22.272,-22.177, 2.9 A -28.275,-26.681,-25.574,-24.779,-24.186,-23.729,-23.368, 3.0 A-23.076,-22.836,-22.636,-22.467,-22.322,-22.198,-22.090,-21.996/ 3.0 DATA C2/-27.993,-26.470,-25.388,-24.602,-24.014,-23.560,-23.200, 3.1 1-22.909,-22.669,-22.470,-22.301,-22.157,-22.033,-21.925,-21.831, 3.1 2 -27.698,-26.252,-25.204,-24.433,-23.851,-23.401,-23.043, 3.2 2-22.754,-22.515,-22.316,-22.148,-22.005,-21.881,-21.773,-21.679, 3.2 3 -27.398,-26.026,-25.019,-24.267,-23.696,-23.251,-22.896, 3.3 3-22.609,-22.372,-22.174,-22.007,-21.864,-21.741,-21.634,-21.540, 3.3 4 -27.100,-25.791,-24.828,-24.102,-23.543,-23.106,-22.756, 3.4 4-22.472,-22.238,-22.041,-21.875,-21.733,-21.611,-21.504,-21.411, 3.4 5 -26.807,-25.549,-24.631,-23.933,-23.391,-22.964,-22.621, 3.5 5-22.341,-22.109,-21.915,-21.751,-21.610,-21.488,-21.383,-21.290, 3.5 6 -26.531,-25.310,-24.431,-23.761,-23.238,-22.823,-22.488, 3.6 6-22.214,-21.986,-21.795,-21.633,-21.494,-21.374,-21.269,-21.178, 3.6 7 -26.239,-25.066,-24.225,-23.585,-23.082,-22.681,-22.356, 3.7 7-22.089,-21.866,-21.679,-21.520,-21.383,-21.265,-21.162,-21.072, 3.7 8 -25.945,-24.824,-24.017,-23.405,-22.923,-22.538,-22.223, 3.8 8-21.964,-21.748,-21.565,-21.410,-21.276,-21.160,-21.059,-20.970, 3.8 9 -25.663,-24.587,-23.810,-23.222,-22.761,-22.391,-22.088, 3.9 9-21.838,-21.629,-21.452,-21.300,-21.170,-21.057,-20.958,-20.872, 3.9 A -25.372,-24.350,-23.603,-23.038,-22.596,-22.241,-21.950, 4.0 A-21.710,-21.508,-21.337,-21.190,-21.064,-20.954,-20.858,-20.774/ 4.0 DATA C3/-25.076,-24.111,-23.396,-22.853,-22.429,-22.088,-21.809, 4.1 1-21.578,-21.384,-21.220,-21.078,-20.957,-20.851,-20.758,-20.676, 4.1 2 -24.779,-23.870,-23.189,-22.669,-22.261,-21.934,-21.667, 4.2 2-21.445,-21.259,-21.101,-20.965,-20.848,-20.746,-20.656,-20.578, 4.2 3 -24.486,-23.629,-22.983,-22.486,-22.095,-21.781,-21.524, 4.3 3-21.311,-21.132,-20.980,-20.850,-20.737,-20.639,-20.553,-20.478, 4.3 4 -24.183,-23.382,-22.774,-22.302,-21.928,-21.627,-21.381, 4.4 4-21.177,-21.005,-20.859,-20.734,-20.625,-20.531,-20.449,-20.376, 4.4 5 -23.867,-23.127,-22.561,-22.116,-21.761,-21.474,-21.238, 4.5 5-21.043,-20.878,-20.738,-20.617,-20.513,-20.423,-20.344,-20.274, 4.5 6 -23.538,-22.862,-22.340,-21.926,-21.592,-21.320,-21.096, 4.6 6-20.909,-20.751,-20.617,-20.502,-20.402,-20.315,-20.239,-20.172, 4.6 7 -23.234,-22.604,-22.120,-21.734,-21.422,-21.166,-20.953, 4.7 7-20.776,-20.625,-20.497,-20.387,-20.291,-20.208,-20.135,-20.071, 4.7 8 -22.934,-22.347,-21.898,-21.541,-21.250,-21.010,-20.811, 4.8 8-20.643,-20.500,-20.378,-20.273,-20.182,-20.102,-20.033,-19.971, 4.8 9 -22.637,-22.092,-21.676,-21.345,-21.075,-20.853,-20.666, 4.9 9-20.508,-20.374,-20.259,-20.159,-20.073,-19.997,-19.931,-19.872, 4.9 A -22.337,-21.835,-21.452,-21.147,-20.899,-20.693,-20.520, 5.0 A-20.373,-20.247,-20.139,-20.046,-19.964,-19.892,-19.830,-19.774/ 5.0 DATA C4/-22.049,-21.584,-21.230,-20.950,-20.721,-20.531,-20.372, 5.1 1-20.236,-20.119,-20.019,-19.931,-19.855,-19.788,-19.729,-19.676, 5.1 2 -21.768,-21.337,-21.011,-20.754,-20.544,-20.370,-20.223, 5.2 2-20.098,-19.991,-19.898,-19.817,-19.746,-19.683,-19.628,-19.579, 5.2 3 -21.494,-21.096,-20.796,-20.559,-20.367,-20.208,-20.074, 5.3 3-19.960,-19.861,-19.776,-19.701,-19.636,-19.578,-19.527,-19.482, 5.3 4 -21.233,-20.861,-20.585,-20.368,-20.193,-20.048,-19.926, 5.4 4-19.821,-19.732,-19.654,-19.586,-19.526,-19.473,-19.426,-19.384, 5.4 5 -20.983,-20.635,-20.380,-20.181,-20.021,-19.889,-19.778, 5.5 5-19.683,-19.602,-19.531,-19.469,-19.415,-19.367,-19.324,-19.286, 5.5 6 -20.743,-20.418,-20.182,-19.999,-19.853,-19.733,-19.633, 5.6 6-19.547,-19.474,-19.410,-19.354,-19.305,-19.261,-19.223,-19.189, 5.6 7 -20.515,-20.210,-19.991,-19.824,-19.690,-19.581,-19.490, 5.7 7-19.413,-19.347,-19.290,-19.240,-19.196,-19.157,-19.122,-19.092, 5.7 8 -20.297,-20.011,-19.808,-19.654,-19.532,-19.434,-19.352, 5.8 8-19.282,-19.223,-19.172,-19.127,-19.088,-19.054,-19.023,-18.996, 5.8 9 -20.090,-19.822,-19.633,-19.491,-19.381,-19.291,-19.218, 5.9 9-19.156,-19.103,-19.057,-19.018,-18.983,-18.952,-18.925,-18.901, 5.9 A -19.893,-19.642,-19.467,-19.337,-19.236,-19.155,-19.089, 6.0 A-19.034,-18.987,-18.946,-18.912,-18.881,-18.854,-18.831,-18.810/ 6.0 DATA C5/-19.705,-19.472,-19.309,-19.190,-19.098,-19.025,-18.966, 6.1 1-18.917,-18.876,-18.840,-18.810,-18.783,-18.760,-18.739,-18.721, 6.1 2 -19.527,-19.310,-19.161,-19.051,-18.968,-18.903,-18.851, 6.2 2-18.807,-18.771,-18.740,-18.713,-18.690,-18.670,-18.653,-18.637, 6.2 3 -19.357,-19.159,-19.022,-18.922,-18.847,-18.789,-18.743, 6.3 3-18.704,-18.673,-18.646,-18.623,-18.603,-18.586,-18.571,-18.558, 6.3 4 -19.195,-19.016,-18.892,-18.803,-18.736,-18.684,-18.643, 6.4 4-18.610,-18.583,-18.560,-18.540,-18.523,-18.509,-18.496,-18.485, 6.4 5 -19.042,-18.883,-18.772,-18.693,-18.634,-18.589,-18.553, 6.5 5-18.525,-18.501,-18.481,-18.465,-18.451,-18.438,-18.428,-18.419, 6.5 6 -18.894,-18.758,-18.662,-18.593,-18.542,-18.503,-18.473, 6.6 6-18.448,-18.428,-18.412,-18.398,-18.386,-18.376,-18.367,-18.359, 6.6 7 -18.752,-18.639,-18.559,-18.501,-18.458,-18.426,-18.400, 6.7 7-18.380,-18.363,-18.350,-18.338,-18.328,-18.320,-18.313,-18.306, 6.7 8 -18.611,-18.523,-18.460,-18.415,-18.381,-18.355,-18.334, 6.8 8-18.318,-18.304,-18.293,-18.284,-18.276,-18.269,-18.263,-18.258, 6.8 9 -18.471,-18.408,-18.362,-18.329,-18.304,-18.285,-18.269, 6.9 9-18.257,-18.247,-18.238,-18.231,-18.224,-18.219,-18.214,-18.210, 6.9 A -18.330,-18.290,-18.261,-18.239,-18.223,-18.211,-18.201, 7.0 A-18.192,-18.185,-18.179,-18.174,-18.169,-18.165,-18.162,-18.159/ 7.0 DATA C6/-18.190,-18.168,-18.154,-18.143,-18.135,-18.129,-18.124, 7.1 1-18.120,-18.116,-18.112,-18.109,-18.106,-18.104,-18.102,-18.100, 7.1 2 -18.055,-18.047,-18.043,-18.042,-18.040,-18.039,-18.039, 7.2 2-18.038,-18.037,-18.036,-18.035,-18.034,-18.033,-18.033,-18.032, 7.2 3 -17.929,-17.931,-17.935,-17.939,-17.943,-17.946,-17.948, 7.3 3-17.950,-17.952,-17.953,-17.955,-17.956,-17.957,-17.958,-17.959, 7.3 4 -17.818,-17.826,-17.834,-17.842,-17.849,-17.855,-17.860, 7.4 4-17.865,-17.869,-17.872,-17.875,-17.878,-17.881,-17.883,-17.886, 7.4 5 -17.724,-17.736,-17.747,-17.758,-17.767,-17.775,-17.782, 7.5 5-17.788,-17.793,-17.798,-17.803,-17.807,-17.811,-17.815,-17.819, 7.5 6 -17.651,-17.665,-17.678,-17.690,-17.701,-17.710,-17.718, 7.6 6-17.725,-17.732,-17.738,-17.744,-17.749,-17.755,-17.760,-17.765, 7.6 7 -17.601,-17.615,-17.629,-17.642,-17.653,-17.663,-17.672, 7.7 7-17.680,-17.688,-17.695,-17.701,-17.708,-17.714,-17.720,-17.726, 7.7 8 -17.572,-17.587,-17.602,-17.614,-17.626,-17.636,-17.645, 7.8 8-17.654,-17.662,-17.670,-17.677,-17.684,-17.691,-17.698,-17.704, 7.8 9 -17.565,-17.581,-17.595,-17.607,-17.619,-17.629,-17.638, 7.9 9-17.647,-17.656,-17.664,-17.671,-17.679,-17.686,-17.693,-17.700, 7.9 A -17.580,-17.594,-17.608,-17.620,-17.630,-17.640,-17.650, 8.0 A-17.658,-17.667,-17.675,-17.682,-17.690,-17.697,-17.704,-17.711/ 8.0 DATA C7/-17.613,-17.626,-17.639,-17.649,-17.659,-17.669,-17.677, 8.1 1-17.686,-17.694,-17.701,-17.709,-17.716,-17.723,-17.730,-17.737, 8.1 2 -17.663,-17.675,-17.685,-17.695,-17.703,-17.711,-17.719, 8.2 2-17.727,-17.734,-17.741,-17.748,-17.755,-17.761,-17.768,-17.774, 8.2 3 -17.728,-17.737,-17.745,-17.752,-17.759,-17.766,-17.772, 8.3 3-17.778,-17.785,-17.791,-17.797,-17.803,-17.808,-17.814,-17.820, 8.3 4 -17.803,-17.809,-17.814,-17.818,-17.823,-17.828,-17.832, 8.4 4-17.837,-17.842,-17.847,-17.852,-17.856,-17.861,-17.866,-17.871, 8.4 5 -17.884,-17.886,-17.888,-17.889,-17.891,-17.893,-17.896, 8.5 5-17.899,-17.902,-17.905,-17.908,-17.912,-17.915,-17.919,-17.922, 8.5 6 -17.966,-17.964,-17.961,-17.959,-17.958,-17.958,-17.958, 8.6 6-17.959,-17.960,-17.961,-17.963,-17.964,-17.966,-17.968,-17.970, 8.6 7 -18.040,-18.034,-18.028,-18.023,-18.019,-18.016,-18.013, 8.7 7-18.012,-18.010,-18.010,-18.009,-18.009,-18.009,-18.009,-18.010, 8.7 8 -18.096,-18.087,-18.078,-18.071,-18.065,-18.059,-18.055, 8.8 8-18.051,-18.047,-18.045,-18.042,-18.040,-18.039,-18.037,-18.036, 8.8 9 -18.125,-18.115,-18.105,-18.097,-18.089,-18.082,-18.076, 8.9 9-18.070,-18.065,-18.061,-18.057,-18.053,-18.051,-18.048,-18.046, 8.9 A -18.120,-18.112,-18.103,-18.095,-18.087,-18.079,-18.072, 9.0 A-18.066,-18.060,-18.055,-18.050,-18.046,-18.042,-18.039,-18.036/ 9.0 DATA C8/-18.083,-18.078,-18.071,-18.064,-18.057,-18.050,-18.044, 9.1 1-18.037,-18.032,-18.026,-18.022,-18.017,-18.014,-18.010,-18.007, 9.1 2 -18.025,-18.022,-18.017,-18.012,-18.006,-18.000,-17.994, 9.2 2-17.989,-17.984,-17.979,-17.975,-17.971,-17.968,-17.965,-17.963, 9.2 3 -17.957,-17.955,-17.952,-17.948,-17.943,-17.938,-17.934, 9.3 3-17.929,-17.925,-17.922,-17.918,-17.916,-17.913,-17.911,-17.910, 9.3 4 -17.890,-17.889,-17.886,-17.882,-17.879,-17.875,-17.871, 9.4 4-17.867,-17.864,-17.862,-17.860,-17.858,-17.857,-17.856,-17.855, 9.4 5 -17.831,-17.829,-17.826,-17.822,-17.819,-17.815,-17.812, 9.5 5-17.810,-17.807,-17.806,-17.804,-17.803,-17.803,-17.803,-17.803, 9.5 6 -17.786,-17.782,-17.777,-17.773,-17.769,-17.766,-17.763, 9.6 6-17.761,-17.759,-17.758,-17.757,-17.757,-17.757,-17.758,-17.759, 9.6 7 -17.753,-17.747,-17.741,-17.735,-17.731,-17.727,-17.724, 9.7 7-17.722,-17.721,-17.720,-17.720,-17.720,-17.721,-17.722,-17.724, 9.7 8 -17.733,-17.724,-17.716,-17.709,-17.703,-17.699,-17.696, 9.8 8-17.694,-17.693,-17.692,-17.692,-17.693,-17.694,-17.695,-17.697, 9.8 9 -17.723,-17.711,-17.700,-17.691,-17.685,-17.680,-17.676, 9.9 9-17.674,-17.673,-17.672,-17.673,-17.673,-17.675,-17.676,-17.678, 9.9 A -17.718,-17.702,-17.689,-17.679,-17.672,-17.667,-17.663, 10.0 A-17.660,-17.659,-17.659,-17.659,-17.660,-17.661,-17.663,-17.665/ 10.0 DATA C9/-17.713,-17.695,-17.681,-17.670,-17.662,-17.656,-17.653, 10.1 1-17.650,-17.649,-17.649,-17.649,-17.650,-17.651,-17.653,-17.655, 10.1 2 -17.705,-17.686,-17.671,-17.660,-17.652,-17.647,-17.643, 10.2 2-17.641,-17.640,-17.640,-17.640,-17.641,-17.643,-17.645,-17.647, 10.2 3 -17.690,-17.671,-17.657,-17.647,-17.640,-17.635,-17.632, 10.3 3-17.630,-17.630,-17.630,-17.631,-17.632,-17.634,-17.636,-17.639, 10.3 4 -17.667,-17.649,-17.637,-17.629,-17.623,-17.619,-17.618, 10.4 4-17.617,-17.617,-17.618,-17.619,-17.621,-17.623,-17.626,-17.628, 10.4 5 -17.635,-17.621,-17.611,-17.605,-17.601,-17.600,-17.599, 10.5 5-17.599,-17.601,-17.602,-17.604,-17.607,-17.609,-17.612,-17.615, 10.5 6 -17.596,-17.585,-17.579,-17.576,-17.575,-17.575,-17.576, 10.6 6-17.578,-17.580,-17.582,-17.585,-17.588,-17.591,-17.595,-17.598, 10.6 7 -17.550,-17.544,-17.542,-17.542,-17.544,-17.546,-17.548, 10.7 7-17.552,-17.555,-17.558,-17.562,-17.566,-17.570,-17.573,-17.577, 10.7 8 -17.501,-17.500,-17.501,-17.504,-17.508,-17.513,-17.517, 10.8 8-17.521,-17.526,-17.530,-17.535,-17.539,-17.544,-17.548,-17.553, 10.8 9 -17.449,-17.452,-17.457,-17.463,-17.470,-17.476,-17.482, 10.9 9-17.488,-17.493,-17.499,-17.504,-17.509,-17.514,-17.519,-17.524, 10.9 A -17.396,-17.403,-17.412,-17.420,-17.429,-17.437,-17.444, 11.0 A-17.451,-17.458,-17.464,-17.470,-17.476,-17.481,-17.487,-17.492/ 11.0 DATAC10/-17.344,-17.355,-17.366,-17.377,-17.387,-17.396,-17.405, 11.1 1-17.413,-17.420,-17.427,-17.434,-17.440,-17.446,-17.452,-17.458, 11.1 2 -17.295,-17.307,-17.321,-17.333,-17.345,-17.355,-17.365, 11.2 2-17.373,-17.382,-17.389,-17.397,-17.404,-17.410,-17.417,-17.423, 11.2 3 -17.249,-17.264,-17.278,-17.292,-17.304,-17.316,-17.326, 11.3 3-17.335,-17.344,-17.352,-17.360,-17.368,-17.375,-17.382,-17.389, 11.3 4 -17.209,-17.225,-17.241,-17.255,-17.268,-17.280,-17.291, 11.4 4-17.301,-17.310,-17.319,-17.327,-17.335,-17.343,-17.350,-17.357, 11.4 5 -17.177,-17.194,-17.210,-17.225,-17.239,-17.251,-17.262, 11.5 5-17.272,-17.282,-17.291,-17.300,-17.308,-17.316,-17.324,-17.331, 11.5 6 -17.154,-17.172,-17.189,-17.204,-17.218,-17.230,-17.242, 11.6 6-17.252,-17.262,-17.272,-17.280,-17.289,-17.298,-17.306,-17.314, 11.6 7 -17.144,-17.162,-17.179,-17.194,-17.208,-17.220,-17.232, 11.7 7-17.242,-17.253,-17.262,-17.271,-17.280,-17.289,-17.297,-17.306, 11.7 8 -17.146,-17.164,-17.181,-17.196,-17.210,-17.222,-17.234, 11.8 8-17.245,-17.255,-17.265,-17.274,-17.283,-17.292,-17.301,-17.309, 11.8 9 -17.163,-17.180,-17.197,-17.212,-17.225,-17.237,-17.249, 11.9 9-17.260,-17.270,-17.280,-17.289,-17.298,-17.307,-17.316,-17.325, 11.9 A -17.193,-17.211,-17.227,-17.241,-17.254,-17.266,-17.277, 12.0 A-17.288,-17.298,-17.308,-17.317,-17.327,-17.336,-17.345,-17.353/ 12.0 DATAC11/-17.239,-17.256,-17.271,-17.284,-17.297,-17.309,-17.320, 12.1 1-17.330,-17.340,-17.350,-17.359,-17.369,-17.378,-17.387,-17.395, 12.1 2 -17.299,-17.315,-17.329,-17.342,-17.354,-17.365,-17.376, 12.2 2-17.386,-17.396,-17.405,-17.415,-17.424,-17.433,-17.442,-17.451, 12.2 3 -17.373,-17.388,-17.402,-17.414,-17.425,-17.436,-17.446, 12.3 3-17.456,-17.466,-17.475,-17.484,-17.493,-17.502,-17.511,-17.520, 12.3 4 -17.462,-17.476,-17.489,-17.500,-17.511,-17.521,-17.531, 12.4 4-17.541,-17.550,-17.559,-17.569,-17.578,-17.587,-17.595,-17.604, 12.4 5 -17.567,-17.581,-17.592,-17.603,-17.613,-17.623,-17.632, 12.5 5-17.641,-17.651,-17.660,-17.669,-17.678,-17.686,-17.695,-17.704, 12.5 6 -17.689,-17.701,-17.712,-17.722,-17.732,-17.741,-17.750, 12.6 6-17.759,-17.768,-17.777,-17.786,-17.795,-17.803,-17.812,-17.821, 12.6 7 -17.829,-17.840,-17.851,-17.860,-17.869,-17.878,-17.887, 12.7 7-17.896,-17.904,-17.913,-17.922,-17.930,-17.939,-17.948,-17.956, 12.7 8 -17.988,-18.000,-18.010,-18.019,-18.028,-18.036,-18.045, 12.8 8-18.053,-18.062,-18.070,-18.079,-18.087,-18.096,-18.104,-18.112, 12.8 9 -18.171,-18.183,-18.192,-18.201,-18.210,-18.218,-18.227, 12.9 9-18.235,-18.243,-18.252,-18.260,-18.268,-18.277,-18.285,-18.293, 12.9 A -18.381,-18.393,-18.403,-18.413,-18.422,-18.430,-18.438, 13.0 A-18.447,-18.455,-18.463,-18.471,-18.479,-18.487,-18.495,-18.503/ 13.0 DATAC12/-18.625,-18.638,-18.650,-18.660,-18.669,-18.678,-18.687, 13.1 1-18.695,-18.703,-18.711,-18.719,-18.726,-18.734,-18.742,-18.750, 13.1 2 -18.912,-18.929,-18.943,-18.955,-18.966,-18.975,-18.984, 13.2 2-18.993,-19.001,-19.008,-19.016,-19.023,-19.031,-19.038,-19.045, 13.2 3 -19.260,-19.283,-19.303,-19.320,-19.333,-19.345,-19.355, 13.3 3-19.364,-19.372,-19.380,-19.387,-19.394,-19.400,-19.407,-19.413, 13.3 4 -19.704,-19.740,-19.771,-19.796,-19.816,-19.832,-19.845, 13.4 4-19.855,-19.863,-19.870,-19.876,-19.882,-19.887,-19.892,-19.897, 13.4 5 -20.339,-20.386,-20.424,-20.454,-20.476,-20.492,-20.502, 13.5 5-20.509,-20.513,-20.516,-20.518,-20.520,-20.521,-20.523,-20.524, 13.5 6 -21.052,-21.075,-21.093,-21.105,-21.114,-21.120,-21.123, 13.6 6-21.125,-21.126,-21.127,-21.128,-21.130,-21.131,-21.133,-21.135, 13.6 7 -21.174,-21.203,-21.230,-21.255,-21.278,-21.299,-21.320, 13.7 7-21.339,-21.357,-21.375,-21.392,-21.408,-21.424,-21.439,-21.454, 13.7 8 -21.285,-21.317,-21.346,-21.372,-21.395,-21.416,-21.435, 13.8 8-21.452,-21.468,-21.483,-21.497,-21.511,-21.524,-21.536,-21.548, 13.8 9 -21.396,-21.429,-21.459,-21.486,-21.511,-21.532,-21.551, 13.9 9-21.569,-21.585,-21.600,-21.614,-21.627,-21.640,-21.652,-21.663, 13.9 A -21.516,-21.549,-21.580,-21.609,-21.635,-21.658,-21.678, 14.0 A-21.696,-21.713,-21.728,-21.742,-21.755,-21.767,-21.779,-21.790/ 14.0 DATAC13/-21.651,-21.681,-21.711,-21.738,-21.763,-21.785,-21.804, 14.1 1-21.821,-21.837,-21.851,-21.864,-21.876,-21.887,-21.898,-21.908, 14.1 2 -21.810,-21.831,-21.853,-21.874,-21.893,-21.910,-21.925, 14.2 2-21.938,-21.950,-21.961,-21.971,-21.980,-21.989,-21.998,-22.006, 14.2 3 -22.009,-22.016,-22.026,-22.037,-22.048,-22.058,-22.066, 14.3 3-22.074,-22.081,-22.088,-22.094,-22.099,-22.105,-22.111,-22.117, 14.3 4 -22.353,-22.317,-22.296,-22.284,-22.276,-22.270,-22.266, 14.4 4-22.262,-22.260,-22.258,-22.257,-22.257,-22.257,-22.258,-22.259, 14.4 5 -22.705,-22.609,-22.552,-22.515,-22.488,-22.468,-22.451, 14.5 5-22.438,-22.427,-22.418,-22.410,-22.405,-22.400,-22.397,-22.395, 14.5 6 -22.889,-22.791,-22.731,-22.690,-22.659,-22.634,-22.612, 14.6 6-22.594,-22.579,-22.566,-22.555,-22.546,-22.539,-22.533,-22.528, 14.6 7 -23.211,-23.109,-23.041,-22.989,-22.945,-22.906,-22.872, 14.7 7-22.842,-22.816,-22.793,-22.774,-22.757,-22.743,-22.732,-22.722, 14.7 8 -25.312,-24.669,-24.250,-23.959,-23.746,-23.587,-23.463, 14.8 8-23.366,-23.288,-23.225,-23.173,-23.131,-23.095,-23.066,-23.041, 14.8 9 -25.394,-24.752,-24.333,-24.041,-23.829,-23.669,-23.546, 14.9 9-23.449,-23.371,-23.308,-23.256,-23.214,-23.178,-23.149,-23.124, 14.9 A -25.430,-24.787,-24.369,-24.077,-23.865,-23.705,-23.582, 15.0 A-23.484,-23.407,-23.344,-23.292,-23.249,-23.214,-23.185,-23.160/ 15.0 DATA PARTOH/ 1 145.979, 178.033, 211.618, 247.053, 284.584, 324.398, 2 366.639, 411.425, 458.854, 509.012, 561.976, 617.823, 3 676.626, 738.448, 803.363, 871.437, 942.735, 1017.330, 4 1095.284, 1176.654, 1261.510, 1349.898, 1441.875, 1537.483, 5 1636.753, 1739.733, 1846.434, 1956.883, 2071.080, 2189.029, 6 2310.724, 2436.155, 2565.283, 2698.103, 2834.571, 2974.627, 7 3118.242, 3265.366, 3415.912, 3569.837, 3727.077/ DATA FREQ1/0./ 10 OHOP=0. IF(FREQ.EQ.FREQ1)GO TO 30 FREQ1=FREQ WAVENO=FREQ/2.99792458E10 EVOLT=WAVENO/8065.479 N=EVOLT*10.-20. EN=FLOAT(N)*.1+2. IF(N.LE.0)RETURN IF(N.GE.130)RETURN DO 21 IT=1,15 21 CROSSOHT(IT)=(CROSSOH(IT,N)+(CROSSOH(IT,N+1)-CROSSOH(IT,N))* 1(EVOLT-EN)/.1) C PRINT 26,CROSSOHT C 26 FORMAT(3H0OH,15F8.3) 30 IF(T(J).GE.9000.)RETURN IF(N.LE.0)RETURN IF(N.GE.130)RETURN IT=(T(J)-1000.)/200.+1. IT=MAX0(IT,1) TN=FLOAT(IT)*200.+800. PART=PARTOH(IT)+(PARTOH(IT+1)-PARTOH(IT))*(T(J)-TN)/200. IT=(T(J)-2000.)/500.+1. IT=MAX0(IT,1) TN=FLOAT(IT)*500.+1500. OHOP=EXP((CROSSOHT(IT)+(CROSSOHT(IT+1)-CROSSOHT(IT))* 1(T(J)-TN)/500.)*2.30258509299405E0)*PART RETURN END SUBROUTINE H2COLLOP(AH2COLL) C H2-H2 and H2-He collision induced dipole C Borysow, A., Jorgensen, U.G., and Zheng, C. A&A 324, 185-195, 1997. C also www.astro.ku.dk/~aborysow IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /DEPART/BHYD(kw,6),BMIN(kw),NLTEON COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) DIMENSION AH2COLL(kw) DIMENSION H2HE(7,81),H2H2(7,81),H2HENU(7),H2H2NU(7) DIMENSION H2HE1(7,9),H2HE2(7,9),H2HE3(7,9),H2HE4(7,9),H2HE5(7,9) DIMENSION H2HE6(7,9),H2HE7(7,9),H2HE8(7,9),H2HE9(7,9) DIMENSION H2H21(7,9),H2H22(7,9),H2H23(7,9),H2H24(7,9),H2H25(7,9) DIMENSION H2H26(7,9),H2H27(7,9),H2H28(7,9),H2H29(7,9) EQUIVALENCE (H2HE(1, 1),H2HE1(1,1)),(H2HE(1,10),H2HE2(1,1)) EQUIVALENCE (H2HE(1,19),H2HE3(1,1)),(H2HE(1,28),H2HE4(1,1)) EQUIVALENCE (H2HE(1,37),H2HE5(1,1)),(H2HE(1,46),H2HE6(1,1)) EQUIVALENCE (H2HE(1,55),H2HE7(1,1)),(H2HE(1,64),H2HE8(1,1)) EQUIVALENCE (H2HE(1,73),H2HE9(1,1)) EQUIVALENCE (H2H2(1, 1),H2H21(1,1)),(H2H2(1,10),H2H22(1,1)) EQUIVALENCE (H2H2(1,19),H2H23(1,1)),(H2H2(1,28),H2H24(1,1)) EQUIVALENCE (H2H2(1,37),H2H25(1,1)),(H2H2(1,46),H2H26(1,1)) EQUIVALENCE (H2H2(1,55),H2H27(1,1)),(H2H2(1,64),H2H28(1,1)) EQUIVALENCE (H2H2(1,73),H2H29(1,1)) DATA H2H21/ 1 -46.000,-46.000,-46.000,-46.000,-46.000,-46.000,-46.000, 2 -45.350,-45.350,-45.350,-45.350,-45.350,-45.350,-45.350, 3 -44.850,-44.850,-44.850,-44.850,-44.850,-45.850,-45.850, 4 -44.375,-44.465,-44.497,-44.504,-44.502,-44.657,-44.656, 5 -44.161,-44.216,-44.249,-44.255,-44.245,-44.231,-44.227, 6 -44.160,-44.081,-44.081,-44.076,-44.063,-44.047,-44.042, 7 -44.249,-44.017,-43.966,-43.940,-43.918,-43.898,-43.891, 8 -44.450,-44.020,-43.900,-43.844,-43.806,-43.776,-43.764, 9 -44.712,-44.080,-43.881,-43.785,-43.726,-43.682,-43.662/ DATA H2H22/ 1 -45.016,-44.186,-43.902,-43.763,-43.677,-43.616,-43.586, 2 -45.308,-44.319,-43.958,-43.773,-43.659,-43.579,-43.537, 3 -45.452,-44.442,-44.034,-43.810,-43.669,-43.570,-43.514, 4 -45.306,-44.500,-44.100,-43.858,-43.697,-43.580,-43.511, 5 -45.081,-44.452,-44.111,-43.887,-43.724,-43.598,-43.518, 6 -44.801,-44.302,-44.049,-43.876,-43.734,-43.608,-43.522, 7 -44.494,-44.104,-43.945,-43.832,-43.720,-43.603,-43.516, 8 -44.177,-43.936,-43.849,-43.783,-43.704,-43.596,-43.511, 9 -44.042,-43.865,-43.807,-43.767,-43.712,-43.611,-43.527/ DATA H2H23/ 1 -44.148,-43.922,-43.846,-43.806,-43.763,-43.662,-43.578, 2 -44.293,-44.042,-43.936,-43.884,-43.843,-43.742,-43.653, 3 -44.444,-44.179,-44.052,-43.984,-43.937,-43.832,-43.739, 4 -44.594,-44.311,-44.173,-44.091,-44.033,-43.924,-43.827, 5 -44.818,-44.448,-44.292,-44.196,-44.124,-44.012,-43.910, 6 -45.097,-44.600,-44.414,-44.300,-44.210,-44.095,-43.989, 7 -45.437,-44.782,-44.548,-44.409,-44.294,-44.177,-44.068, 8 -45.771,-44.992,-44.702,-44.533,-44.391,-44.269,-44.154, 9 -46.088,-45.218,-44.873,-44.672,-44.503,-44.374,-44.251/ DATA H2H24/ 1 -46.371,-45.438,-45.046,-44.813,-44.621,-44.483,-44.351, 2 -46.554,-45.632,-45.209,-44.949,-44.738,-44.590,-44.448, 3 -46.593,-45.788,-45.352,-45.074,-44.848,-44.692,-44.542, 4 -46.513,-45.887,-45.463,-45.181,-44.950,-44.786,-44.627, 5 -46.391,-45.917,-45.542,-45.271,-45.041,-44.873,-44.707, 6 -46.197,-45.896,-45.601,-45.350,-45.124,-44.952,-44.781, 7 -46.086,-45.911,-45.664,-45.423,-45.198,-45.023,-44.848, 8 -46.127,-45.958,-45.723,-45.487,-45.265,-45.089,-44.913, 9 -46.077,-45.963,-45.755,-45.534,-45.322,-45.149,-44.973/ DATA H2H25/ 1 -46.057,-45.947,-45.770,-45.571,-45.371,-45.204,-45.030, 2 -46.122,-45.959,-45.792,-45.610,-45.422,-45.260,-45.088, 3 -46.302,-46.023,-45.840,-45.662,-45.480,-45.322,-45.149, 4 -46.560,-46.146,-45.928,-45.741,-45.557,-45.394,-45.218, 5 -46.891,-46.327,-46.058,-45.844,-45.648,-45.477,-45.292, 6 -47.245,-46.558,-46.226,-45.967,-45.753,-45.568,-45.372, 7 -47.527,-46.793,-46.408,-46.110,-45.871,-45.668,-45.457, 8 -47.729,-47.001,-46.589,-46.254,-45.992,-45.771,-45.544, 9 -47.829,-47.161,-46.750,-46.391,-46.111,-45.872,-45.630/ DATA H2H26/ 1 -47.825,-47.265,-46.879,-46.547,-46.239,-45.980,-45.719, 2 -47.740,-47.317,-46.979,-46.658,-46.345,-46.075,-45.803, 3 -47.635,-47.340,-47.055,-46.755,-46.444,-46.166,-45.882, 4 -47.593,-47.358,-47.122,-46.844,-46.536,-46.252,-45.961, 5 -47.488,-47.375,-47.178,-46.921,-46.621,-46.334,-46.036, 6 -47.517,-47.387,-47.213,-46.982,-46.696,-46.412,-46.109, 7 -47.511,-47.385,-47.234,-47.031,-46.765,-46.485,-46.180, 8 -47.601,-47.428,-47.274,-47.084,-46.834,-46.558,-46.251, 9 -47.740,-47.509,-47.339,-47.150,-46.906,-46.632,-46.322/ DATA H2H27/ 1 -48.007,-47.632,-47.429,-47.233,-46.988,-46.710,-46.395, 2 -48.371,-47.825,-47.563,-47.341,-47.081,-46.794,-46.469, 3 -48.778,-48.074,-47.739,-47.476,-47.189,-46.884,-46.547, 4 -49.170,-48.341,-47.936,-47.625,-47.304,-46.977,-46.625, 5 -49.531,-48.604,-48.136,-47.780,-47.424,-47.074,-46.704, 6 -49.869,-48.850,-48.328,-47.932,-47.543,-47.170,-46.784, 7 -50.189,-49.080,-48.510,-48.078,-47.660,-47.264,-46.863, 8 -50.496,-49.299,-48.682,-48.218,-47.774,-47.358,-46.940, 9 -50.797,-49.508,-48.847,-48.353,-47.885,-47.449,-47.018/ DATA H2H28/ 1 -51.088,-49.711,-49.008,-48.484,-47.993,-47.540,-47.094, 2 -51.374,-49.907,-49.163,-48.613,-48.100,-47.629,-47.170, 3 -51.655,-50.102,-49.317,-48.740,-48.205,-47.717,-47.246, 4 -51.931,-50.293,-49.468,-48.865,-48.309,-47.804,-47.321, 5 -52.205,-50.481,-49.617,-48.989,-48.413,-47.891,-47.396, 6 -52.475,-50.670,-49.767,-49.112,-48.516,-47.978,-47.470, 7 -52.742,-50.855,-49.915,-49.235,-48.619,-48.064,-47.545, 8 -53.010,-51.038,-50.062,-49.358,-48.721,-48.150,-47.619, 9 -53.277,-51.221,-50.209,-49.481,-48.824,-48.236,-47.692/ DATA H2H29/ 1 -53.545,-51.399,-50.353,-49.602,-48.925,-48.321,-47.765, 2 -53.812,-51.575,-50.496,-49.722,-49.026,-48.405,-47.839, 3 -54.080,-51.748,-50.634,-49.840,-49.125,-48.489,-47.911, 4 -54.347,-51.918,-50.769,-49.954,-49.222,-48.571,-47.984, 5 -54.615,-52.086,-50.900,-50.065,-49.317,-48.653,-48.055, 6 -54.882,-52.253,-51.029,-50.174,-49.411,-48.733,-48.125, 7 -55.150,-52.419,-51.158,-50.282,-49.506,-48.813,-48.196, 8 -55.417,-52.584,-51.288,-50.399,-49.642,-48.903,-48.268, 9 -55.685,-52.778,-51.420,-50.527,-49.732,-48.981,-48.338/ DATA H2HE1/ 1 -46.000,-46.000,-46.000,-46.000,-46.000,-46.000,-46.000, 2 -44.288,-44.288,-44.288,-44.288,-44.288,-44.288,-44.288, 3 -44.288,-44.142,-44.045,-43.997,-43.949,-44.900,-43.852, 4 -44.362,-44.090,-43.978,-43.901,-43.833,-43.939,-43.716, 5 -44.461,-44.114,-43.954,-43.863,-43.786,-43.717,-43.654, 6 -44.601,-44.195,-43.973,-43.875,-43.791,-43.715,-43.646, 7 -44.777,-44.292,-44.012,-43.905,-43.813,-43.732,-43.658, 8 -45.000,-44.402,-44.061,-43.946,-43.844,-43.756,-43.678, 9 -45.268,-44.530,-44.122,-43.996,-43.883,-43.786,-43.703/ DATA H2HE2/ 1 -45.562,-44.680,-44.199,-44.059,-43.932,-43.823,-43.733, 2 -45.841,-44.841,-44.289,-44.128,-43.983,-43.862,-43.766, 3 -46.012,-44.969,-44.371,-44.182,-44.017,-43.891,-43.789, 4 -45.931,-44.975,-44.394,-44.173,-43.999,-43.872,-43.779, 5 -45.621,-44.790,-44.293,-44.062,-43.905,-43.793,-43.726, 6 -45.151,-44.469,-44.084,-43.871,-43.755,-43.705,-43.666, 7 -44.620,-44.131,-43.871,-43.715,-43.640,-43.644,-43.628, 8 -44.166,-43.892,-43.748,-43.674,-43.639,-43.628,-43.625, 9 -44.023,-43.837,-43.743,-43.710,-43.691,-43.663,-43.660/ DATA H2HE3/ 1 -44.190,-43.942,-43.830,-43.782,-43.755,-43.735,-43.719, 2 -44.446,-44.120,-43.967,-43.884,-43.839,-43.807,-43.776, 3 -44.689,-44.312,-44.120,-44.011,-43.932,-43.872,-43.826, 4 -44.904,-44.491,-44.269,-44.134,-44.022,-43.941,-43.881, 5 -45.133,-44.656,-44.407,-44.244,-44.115,-44.016,-43.941, 6 -45.398,-44.824,-44.543,-44.359,-44.217,-44.098,-44.006, 7 -45.701,-45.010,-44.686,-44.481,-44.322,-44.186,-44.076, 8 -46.024,-45.221,-44.843,-44.610,-44.431,-44.275,-44.147, 9 -46.350,-45.449,-45.015,-44.747,-44.542,-44.366,-44.219/ DATA H2HE4/ 1 -46.736,-45.674,-45.189,-44.887,-44.657,-44.458,-44.294, 2 -46.993,-45.865,-45.347,-45.023,-44.771,-44.551,-44.367, 3 -47.031,-45.981,-45.469,-45.141,-44.878,-44.640,-44.437, 4 -46.787,-46.008,-45.553,-45.244,-44.979,-44.727,-44.506, 5 -46.496,-45.969,-45.618,-45.343,-45.085,-44.820,-44.579, 6 -46.310,-45.953,-45.689,-45.449,-45.198,-44.919,-44.656, 7 -46.295,-46.001,-45.787,-45.572,-45.321,-45.021,-44.732, 8 -46.434,-46.122,-45.919,-45.717,-45.453,-45.123,-44.804, 9 -46.671,-46.306,-46.085,-45.896,-45.588,-45.224,-44.873/ DATA H2HE5/ 1 -46.964,-46.539,-46.284,-46.068,-45.723,-45.320,-44.937, 2 -47.295,-46.807,-46.501,-46.241,-45.858,-45.412,-44.998, 3 -47.662,-47.097,-46.723,-46.415,-45.996,-45.500,-45.056, 4 -48.050,-47.399,-46.949,-46.583,-46.135,-45.587,-45.111, 5 -48.416,-47.683,-47.169,-46.749,-46.274,-45.671,-45.165, 6 -48.678,-47.892,-47.359,-46.907,-46.412,-45.752,-45.215, 7 -48.720,-47.963,-47.494,-47.044,-46.551,-45.828,-45.263, 8 -48.583,-47.912,-47.566,-47.160,-46.689,-45.901,-45.309, 9 -48.380,-47.807,-47.574,-47.236,-46.828,-45.972,-45.354/ DATA H2HE6/ 1 -48.164,-47.692,-47.543,-47.281,-46.953,-46.041,-45.397, 2 -47.988,-47.603,-47.513,-47.300,-47.028,-46.106,-45.438, 3 -47.874,-47.562,-47.506,-47.326,-47.085,-46.171,-45.479, 4 -47.846,-47.571,-47.518,-47.361,-47.141,-46.235,-45.519, 5 -47.827,-47.577,-47.536,-47.397,-47.194,-46.298,-45.558, 6 -47.841,-47.583,-47.548,-47.416,-47.234,-46.357,-45.596, 7 -47.949,-47.631,-47.550,-47.411,-47.253,-46.412,-45.632, 8 -48.168,-47.763,-47.580,-47.428,-47.282,-46.467,-45.668, 9 -48.442,-47.955,-47.682,-47.516,-47.360,-46.528,-45.704/ DATA H2HE7/ 1 -48.685,-48.145,-47.839,-47.654,-47.473,-46.593,-45.741, 2 -48.859,-48.310,-47.990,-47.778,-47.575,-46.655,-45.777, 3 -48.989,-48.445,-48.118,-47.878,-47.660,-46.714,-45.813, 4 -49.121,-48.560,-48.250,-47.981,-47.749,-46.773,-45.847, 5 -49.277,-48.667,-48.390,-48.094,-47.842,-46.831,-45.881, 6 -49.469,-48.778,-48.525,-48.202,-47.933,-46.888,-45.916, 7 -49.697,-48.907,-48.650,-48.303,-48.019,-46.943,-45.949, 8 -49.939,-49.059,-48.774,-48.403,-48.104,-46.996,-45.982, 9 -50.225,-49.227,-48.898,-48.504,-48.190,-47.049,-46.015/ DATA H2HE8/ 1 -50.537,-49.406,-49.016,-48.603,-48.273,-47.101,-46.048, 2 -50.831,-49.598,-49.130,-48.697,-48.354,-47.152,-46.080, 3 -50.981,-49.807,-49.239,-48.791,-48.435,-47.202,-46.112, 4 -51.106,-50.006,-49.345,-48.882,-48.514,-47.251,-46.145, 5 -51.231,-50.131,-49.445,-48.972,-48.591,-47.299,-46.176, 6 -51.356,-50.256,-49.540,-49.060,-48.667,-47.347,-46.208, 7 -51.481,-50.381,-49.629,-49.143,-48.741,-47.392,-46.239, 8 -51.606,-50.506,-49.711,-49.225,-48.813,-47.437,-46.271, 9 -51.731,-50.631,-49.787,-49.303,-48.885,-47.481,-46.302/ DATA H2HE9/ 1 -51.856,-50.756,-49.858,-49.377,-48.955,-47.523,-46.333, 2 -51.981,-50.881,-49.929,-49.449,-49.023,-47.566,-46.364, 3 -52.106,-51.006,-50.000,-49.517,-49.089,-47.607,-46.395, 4 -52.231,-51.131,-50.069,-49.581,-49.154,-47.647,-46.425, 5 -52.356,-51.256,-50.133,-49.642,-49.217,-47.687,-46.456, 6 -52.481,-51.381,-50.204,-49.699,-49.278,-47.726,-46.486, 7 -52.606,-51.506,-50.275,-49.752,-49.337,-47.765,-46.517, 8 -52.731,-51.631,-50.347,-49.803,-49.396,-47.802,-46.548, 9 -52.856,-51.756,-50.418,-49.850,-49.450,-47.839,-46.578/ DATA ITEMP1/0/ IF(ITEMP.EQ.ITEMP1)GO TO 20 ITEMP1=ITEMP DO 11 J=1,NRHOX C 11 XNH2(J)=(XNFP(J,1)*2.*BHYD(J,1))**2*EXP(4.477/TKEV(J)-4.6628E1+ C 1(1.8031E-3+(-5.0239E-7+(8.1424E-11-5.0501E-15*T(J))*T(J))*T(J))* C 2T(J)-1.5*TLOG(J)) 11 XNH2(J)=(XNFP(J,1)*2.*BHYD(J,1))**2*EXP(4.478/TKEV(J)-4.64584E1+ 1(1.63660E-3+(-4.93992E-7+(1.11822E-10+(-1.49567E-14+ 2(1.06206E-18-3.08720E-23*T(J))*T(J))*T(J))*T(J))*T(J))*T(J)- 3 1.5*TLOG(J)) C PRINT 12,XNH2 12 FORMAT(1P10E12.3) 20 WAVENO=FREQ/2.99792458E10 IF(WAVENO.GT.20000.)THEN DO 19 J=1,NRHOX 19 AH2COLL(J)=0. RETURN ENDIF NU=WAVENO/250. NU=NU+1 NU=MIN(80,NU) DELNU=(WAVENO-250.*(NU-1))/250. C NU=MIN(79,NU) C DELNU=(WAVENO-250.*NU)/250. C PRINT 12,WAVENO,DELNU DO 21 IT=1,7 H2H2NU(IT)=H2H2(IT,NU)*(1.-DELNU)+H2H2(IT,NU+1)*DELNU 21 H2HENU(IT)=H2HE(IT,NU)*(1.-DELNU)+H2HE(IT,NU+1)*DELNU C H2H2NU(IT)=H2H2(IT,NU+1)*DELNU+H2H2(IT,NU+2)*(1.-DELNU) C 21 H2HENU(IT)=H2H2(IT,NU+1)*DELNU+H2HE(IT,NU+2)*(1.-DELNU) DO 22 J=1,NRHOX IT=T(J)/1000. IT=MAX(1,MIN(6,IT)) DELT=(T(J)-1000.*IT)/1000. DELT=MAX(0.D0,MIN(1.D0,DELT)) XH2H2=H2H2NU(IT)*DELT+H2H2NU(IT+1)*(1.-DELT) XH2HE=H2HENU(IT)*DELT+H2HENU(IT+1)*(1.-DELT) C PRINT 12, XH2H2,XH2HE,XNFHE(J,1),XNH2(J),RHO(J) 22 AH2COLL(J)=(10.**XH2HE*XNF(J,3)+10.**XH2H2*XNH2(J))*XNH2(J)/ 1 RHO(J)*STIM(J) C PRINT 12, AH2COLL RETURN END SUBROUTINE LUKEOP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) C C2,SI2,MG2,CA2,N1,O1 COMMON /ALUKE/AC2(kw),AN1(kw),AO1(kw),AMG2(kw),ASI2(kw),ACA2(kw) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /OPS/D1(kw,9),ALUKE(kw),D2(kw,15) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) REAL*8 N1OP CALL C2OP CALL MG2OP CALL SI2OP DO 11 J=1,NRHOX 11 ALUKE(J)=(N1OP(J)*XNFP(J,28)+O1OP(J)*XNFP(J,36)+CA2OP(J)* 1 XNFP(J,211))*STIM(J)/RHO(J)+AC2(J)+AMG2(J)+ASI2(J) RETURN END SUBROUTINE C2OP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /ALUKE/AC2(kw),AN1(kw),AO1(kw),AMG2(kw),ASI2(kw),ACA2(kw) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) DIMENSION ELEV(34),GLEV(34),BOLT(34,kw),X(34) DATA ELEV/ 1 179073.05, 178955.94, 178495.47, 175292.30, 173347.84, 2 168978.34, 168124.17, 162522.34, 157234.07, 145550.1, 3 131731.8, 116537.65, 42.28, 202188.07, 199965.31, 4 198856.92, 198431.96, 196572.80, 195786.71, 190000., 5 188601.54, 186452.13, 184690.98, 182036.89, 181741.65, 6 177787.22, 167009.29, 110651.76, 96493.74, 74931.11, 7 43035.8, 230407.2, 150464.6, 142027.1/ DATA GLEV/18.,14.,10.,6.,2.,14.,10.,6.,1.,10.,6.,1.,3.,6.,10.,12., 1 10.,20.,28.,2.,10.,12.,4.,6.,20.,6.,12.,6.,2.,10.,12.,6.,10.,4./ DATA ITEMP1/0/ IF(ITEMP.EQ.ITEMP1)GO TO 3 ITEMP1=ITEMP DO 2 K=1,NRHOX DO 2 I=1,34 2 BOLT(I,K)=GLEV(I)*EXP(-ELEV(I)*HCKT(K)) 3 CONTINUE Z=2. FREQ3=2.815E29/FREQ/FREQ/FREQ*Z**4 RYD=109732.298 DO 4 I=1,34 4 X(I)=0. ELIM=196664.7 C 2s2 5g 2G C ELEV=179073.05 IF(WAVENO.LT.ELIM-ELEV(1))GO TO 30 C GLEV=18. ZEFF2=25./RYD*(ELIM-ELEV(1)) X(1)=XKARZAS(FREQ,ZEFF2,5,4) C 2s2 5f 2F C ELEV=178955.94 IF(WAVENO.LT.ELIM-ELEV(2))GO TO 30 C GLEV=14. ZEFF2=25./RYD*(ELIM-ELEV(2)) X(2)=XKARZAS(FREQ,ZEFF2,5,3) C 2s2 5d 2D C ELEV=178495.47 IF(WAVENO.LT.ELIM-ELEV(3))GO TO 30 C GLEV=10. ZEFF2=25./RYD*(ELIM-ELEV(3)) X(3)=XKARZAS(FREQ,ZEFF2,5,2) C 2s2 5p 2P C ELEV=175292.30 IF(WAVENO.LT.ELIM-ELEV(4))GO TO 30 C GLEV=6. ZEFF2=25./RYD*(ELIM-ELEV(4)) X(4)=XKARZAS(FREQ,ZEFF2,5,1) C 2s2 5s 2S C ELEV=173347.84 IF(WAVENO.LT.ELIM-ELEV(5))GO TO 30 C GLEV=2. ZEFF2=25./RYD*(ELIM-ELEV(5)) X(5)=XKARZAS(FREQ,ZEFF2,5,0) C 2s2 4f 2F C ELEV=168978.34 IF(WAVENO.LT.ELIM-ELEV(6))GO TO 30 C GLEV=14. ZEFF2=16./RYD*(ELIM-ELEV(6)) X(6)=XKARZAS(FREQ,ZEFF2,4,3) C 2s2 4d 2D C ELEV=168124.17 IF(WAVENO.LT.ELIM-ELEV(7))GO TO 30 C GLEV=10. ZEFF2=16./RYD*(ELIM-ELEV(7)) X(7)=XKARZAS(FREQ,ZEFF2,4,2) C 2s2 4p 2P C ELEV=162522.34 IF(WAVENO.LT.ELIM-ELEV(8))GO TO 30 C GLEV=6. ZEFF2=16./RYD*(ELIM-ELEV(8)) X(8)=XKARZAS(FREQ,ZEFF2,4,1) C 2s2 4s 2S C ELEV=157234.07 IF(WAVENO.LT.ELIM-ELEV(9))GO TO 30 C GLEV=1. ZEFF2=16./RYD*(ELIM-ELEV(9)) X(9)=XKARZAS(FREQ,ZEFF2,4,0) C 2s2 3d 2D C ELEV=145550.1 IF(WAVENO.LT.ELIM-ELEV(10))GO TO 30 C GLEV=10. ZEFF2=9./RYD*(ELIM-ELEV(10)) X(10)=XKARZAS(FREQ,ZEFF2,3,2) C 2s2 3p 2P C ELEV=131731.8 IF(WAVENO.LT.ELIM-ELEV(11))GO TO 30 C GLEV=6. ZEFF2=9./RYD*(ELIM-ELEV(11)) X(11)=XKARZAS(FREQ,ZEFF2,3,1) C 2s2 3s 2S C ELEV=116537.65 IF(WAVENO.LT.ELIM-ELEV(12))GO TO 30 C GLEV=1. ZEFF2=9./RYD*(ELIM-ELEV(12)) X(12)=XKARZAS(FREQ,ZEFF2,3,0) C IN HOTOP cC 2s2 2p 2P cC ELEV=42.28 c IF(WAVENO.LT.ELIM-ELEV(13))GO TO 30 cC GLEV=3. C ZEFF2=4./RYD*(ELIM-ELEV(13)) C X(13)=XKARZAS(FREQ,ZEFF2,2,1) C C C III 2s2p 3P0 30 ELIM=ELIM+52367.06 C 2s2p3d 2P C ELEV=202188.07 IF(WAVENO.LT.ELIM-ELEV(14))GO TO 40 C GLEV=6. ZEFF2=9./RYD*(ELIM-ELEV(14)) X(14)=XKARZAS(FREQ,ZEFF2,3,2) C 2s2p3d 2F C ELEV=199965.31 IF(WAVENO.LT.ELIM-ELEV(15))GO TO 40 C GLEV=10. ZEFF2=9./RYD*(ELIM-ELEV(15)) X(15)=XKARZAS(FREQ,ZEFF2,3,2) C 2s2p3d 4P C ELEV=198856.92 IF(WAVENO.LT.ELIM-ELEV(16))GO TO 40 C GLEV=12. ZEFF2=9./RYD*(ELIM-ELEV(16)) X(16)=XKARZAS(FREQ,ZEFF2,3,2) C 2s2p3d 2D C ELEV=198431.96 IF(WAVENO.LT.ELIM-ELEV(17))GO TO 40 C GLEV=10. ZEFF2=9./RYD*(ELIM-ELEV(17)) X(17)=XKARZAS(FREQ,ZEFF2,3,2) C 2s2p3d 4D C ELEV=196572.80 IF(WAVENO.LT.ELIM-ELEV(18))GO TO 40 C GLEV=20. ZEFF2=9./RYD*(ELIM-ELEV(18)) X(18)=XKARZAS(FREQ,ZEFF2,3,2) C 2s2p3d 4F C ELEV=195786.71 IF(WAVENO.LT.ELIM-ELEV(19))GO TO 40 C GLEV=28. ZEFF2=9./RYD*(ELIM-ELEV(19)) X(19)=XKARZAS(FREQ,ZEFF2,3,2) C 2s2p3p 2S C GUESS C ELEV=190000. IF(WAVENO.LT.ELIM-ELEV(20))GO TO 40 C GLEV=2. ZEFF2=9./RYD*(ELIM-ELEV(20)) X(20)=XKARZAS(FREQ,ZEFF2,3,1) C 2s2p3p 2D C ELEV=188601.54 IF(WAVENO.LT.ELIM-ELEV(21))GO TO 40 C GLEV=10. ZEFF2=9./RYD*(ELIM-ELEV(21)) X(21)=XKARZAS(FREQ,ZEFF2,3,1) C 2s2p3p 4P C ELEV=186452.13 IF(WAVENO.LT.ELIM-ELEV(22))GO TO 40 C GLEV=12. ZEFF2=9./RYD*(ELIM-ELEV(22)) X(22)=XKARZAS(FREQ,ZEFF2,3,1) C 2s2p3p 4S C ELEV=184690.98 IF(WAVENO.LT.ELIM-ELEV(23))GO TO 40 C GLEV=4. ZEFF2=9./RYD*(ELIM-ELEV(23)) X(23)=XKARZAS(FREQ,ZEFF2,3,1) C 2s2p3p 2P C ELEV=182036.89 IF(WAVENO.LT.ELIM-ELEV(24))GO TO 40 C GLEV=6. ZEFF2=9./RYD*(ELIM-ELEV(24)) X(24)=XKARZAS(FREQ,ZEFF2,3,1) C 2s2p3p 4D C ELEV=181741.65 IF(WAVENO.LT.ELIM-ELEV(25))GO TO 40 C GLEV=20. ZEFF2=9./RYD*(ELIM-ELEV(25)) X(25)=XKARZAS(FREQ,ZEFF2,3,1) C 2s2p3s 2P C ELEV=177787.22 IF(WAVENO.LT.ELIM-ELEV(26))GO TO 40 C GLEV=6. ZEFF2=9./RYD*(ELIM-ELEV(26)) X(26)=XKARZAS(FREQ,ZEFF2,3,0) C 2s2p3s 4P C ELEV=167009.29 IF(WAVENO.LT.ELIM-ELEV(27))GO TO 40 C GLEV=12. ZEFF2=9./RYD*(ELIM-ELEV(27)) X(27)=XKARZAS(FREQ,ZEFF2,3,0) C IN HOTOP CC 2s2p2 2P CC ELEV=110651.76 C IF(WAVENO.LT.ELIM-ELEV(28))GO TO 40C CC GLEV=6. C DEGEN=2. C ZEFF2=4./RYD*(ELIM-ELEV(28)) C X(28)=XKARZAS(FREQ,ZEFF2,2,1)*DEGEN CC 2s2p2 2S CC ELEV=96493.74 C IF(WAVENO.LT.ELIM-ELEV(29))GO TO 40 CC GLEV=2. C DEGEN=2. C ZEFF2=4./RYD*(ELIM-ELEV(29)) C X(29)=XKARZAS(FREQ,ZEFF2,2,1)*DEGEN cC 2s2p2 2D cC ELEV=74931.11 c IF(WAVENO.LT.ELIM-ELEV(30))GO TO 40 cC GLEV=10. C DEGEN=2. C ZEFF2=4./RYD*(ELIM-ELEV(30)) C X(30)=XKARZAS(FREQ,ZEFF2,2,1)*DEGEN cC 2s2p2 4P cC ELEV=43035.8 c IF(WAVENO.LT.ELIM-ELEV(31))GO TO 40 cC GLEV=12. C DEGEN=2. C ZEFF2=4./RYD*(ELIM-ELEV(31)) C X(31)=XKARZAS(FREQ,ZEFF2,2,1)*DEGEN C C C III 2s2p 1P1 40 ELIM=196664.7+102352.04 C C C III 2p2 3P0 50 ELIM=196664.7+137425.70 C 2p3 2P C ELEV=230407.2 IF(WAVENO.LT.ELIM-ELEV(32))GO TO 60 C GLEV=6. DEGEN=3. ZEFF2=4./RYD*(ELIM-ELEV(32)) X(32)=XKARZAS(FREQ,ZEFF2,2,1)*DEGEN C 2p3 2D C ELEV=150464.6 IF(WAVENO.LT.ELIM-ELEV(33))GO TO 60 C GLEV=10. C DEGEN=3. ZEFF2=4./RYD*(ELIM-ELEV(33)) X(33)=XKARZAS(FREQ,ZEFF2,2,1)*DEGEN C 2p3 4S C ELEV=142027.1 IF(WAVENO.LT.ELIM-ELEV(34))GO TO 60 C GLEV=4. C DEGEN=3. ZEFF2=4./RYD*(ELIM-ELEV(34)) X(34)=XKARZAS(FREQ,ZEFF2,2,1)*DEGEN 60 DO 100 J=1,NRHOX ELIM=196664.7 GFACTOR=1. C N=6 TO INFINITY H=FREQ3*GFACTOR*2./2./(RYD*Z**2*HCKT(J))* 1(EXP(-MAX(ELIM-RYD*Z**2/6.**2,ELIM-WAVENO)*HCKT(J)) 2-EXP(-ELIM*HCKT(J))) ELIM=ELIM+52367.06 C N=4 TO INFINITY GFACTOR=9 H=H+FREQ3*GFACTOR*2./2./(RYD*Z**2*HCKT(J))* 1(EXP(-MAX(ELIM-RYD*Z**2/4.**2,ELIM-WAVENO)*HCKT(J)) 2-EXP(-ELIM*HCKT(J))) DO 90 I=1,34 90 H=H+X(I)*BOLT(I,J) 100 AC2(J)=H*XNFP(J,22)*STIM(J)/RHO(J) RETURN END REAL*8 FUNCTION N1OP(J) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) C CROSS-SECTION TIMES PARTITION FUNCTION COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /RHOX/RHOX(kw),NRHOX COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP DIMENSION C1130(kw),C1020(kw) DATA FREQ1,ITEMP1/0.,0/ IF(ITEMP.EQ.ITEMP1)GO TO 30 ITEMP1=ITEMP DO 20 K=1,NRHOX C1130(K)=6.*EXP(-3.575/TKEV(K)) 20 C1020(K)=10.*EXP(-2.384/TKEV(K)) 30 IF(FREQ.EQ.FREQ1)GO TO 40 X1130=0. X1020=0. X853=0. IF(FREQ.GE.3.517915E15)X853= 1SEATON(3.517915D15,1.142D-17,2.D0,4.29D0) IF(FREQ.GE.2.941534E15)X1020= 1SEATON(2.941534D15,4.41D-18,1.5D0,3.85D0) IF(FREQ.GE.2.653317E15)X1130= 1SEATON(2.653317D15,4.2D-18,1.5D0,4.34D0) FREQ1=FREQ 40 N1OP=X853*4.+X1020*C1020(J)+X1130*C1130(J) RETURN END FUNCTION O1OP(J) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) C FROM DEANE PETERSON AFTER PEACH C CROSS-SECTION TIMES PARTITION FUNCTION COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO DATA FREQ1/0./ IF(FREQ.EQ.FREQ1)GO TO 1 X911=0. IF(FREQ.GE.3.28805E15)X911= 1SEATON(3.28805D15,2.94D-18,1.D0,2.66D0) FREQ1=FREQ 1 O1OP=X911*9. RETURN END SUBROUTINE MG2OP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /ALUKE/AC2(kw),AN1(kw),AO1(kw),AMG2(kw),ASI2(kw),ACA2(kw) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) DIMENSION ELEV(14),GLEV(14),BOLT(14,kw),X(14) DATA ELEV/ 1 112197., 108900., 103705.66, 103689.89, 103419.82, 2 97464.32, 92790.51, 93799.70, 93310.80, 80639.85, 3 69804.95, 71490.54, 35730.36, 0./ DATA GLEV/98.,72.,18.,14.,10.,6.,2.,14.,10.,6.,22.,10.,6.,2./ DATA ITEMP1/0/ IF(ITEMP.EQ.ITEMP1)GO TO 3 ITEMP1=ITEMP DO 2 K=1,NRHOX DO 2 I=1,14 2 BOLT(I,K)=GLEV(I)*EXP(-ELEV(I)*HCKT(K)) 3 DO 4 I=1,14 4 X(I)=0. Z=2. FREQ3=2.815E29/FREQ/FREQ/FREQ*Z**4 ELIM=121267.61 RYD=109732.298 C N=7 C ELEV=112197. IF(WAVENO.LT.ELIM-ELEV(1))GO TO 30 C GLEV=98. ZEFF2=49./RYD*(ELIM-ELEV(1)) X(1)=XKARZAS(FREQ,ZEFF2,7,7) C N=6 C ELEV=108900. IF(WAVENO.LT.ELIM-ELEV(2))GO TO 30 C GLEV=72. ZEFF2=36./RYD*(ELIM-ELEV(2)) X(2)=XKARZAS(FREQ,ZEFF2,6,6) C N=5 C 5g C ELEV=103705.66 IF(WAVENO.LT.ELIM-ELEV(3))GO TO 30 C GLEV=18. ZEFF2=25./RYD*(ELIM-ELEV(3)) X(3)=XKARZAS(FREQ,ZEFF2,5,4) c 5f C ELEV=103689.89 IF(WAVENO.LT.ELIM-ELEV(4))GO TO 30 C GLEV=14. ZEFF2=25./RYD*(ELIM-ELEV(4)) X(4)=XKARZAS(FREQ,ZEFF2,5,3) c 5d C ELEV=103419.82 IF(WAVENO.LT.ELIM-ELEV(5))GO TO 30 C GLEV=10. ZEFF2=25./RYD*(ELIM-ELEV(5)) X(5)=XKARZAS(FREQ,ZEFF2,5,2) c 5p C ELEV=97464.32 IF(WAVENO.LT.ELIM-ELEV(6))GO TO 30 C GLEV=6. ZEFF2=25./RYD*(ELIM-ELEV(6)) X(6)=XKARZAS(FREQ,ZEFF2,5,1) c 5s C ELEV=92790.51 IF(WAVENO.LT.ELIM-ELEV(7))GO TO 30 C GLEV=2. ZEFF2=25./RYD*(ELIM-ELEV(7)) X(7)=XKARZAS(FREQ,ZEFF2,5,0) C N=4 c 4f C ELEV=93799.70 IF(WAVENO.LT.ELIM-ELEV(8))GO TO 30 C GLEV=14. ZEFF2=16./RYD*(ELIM-ELEV(8)) X(8)=XKARZAS(FREQ,ZEFF2,4,3) c 4d C ELEV=93310.80 IF(WAVENO.LT.ELIM-ELEV(9))GO TO 30 C GLEV=10. ZEFF2=16./RYD*(ELIM-ELEV(9)) X(9)=XKARZAS(FREQ,ZEFF2,4,2) c 4p C ELEV=80639.85 IF(WAVENO.LT.ELIM-ELEV(10))GO TO 30 C GLEV=6. ZEFF2=16./RYD*(ELIM-ELEV(10)) X(10)=XKARZAS(FREQ,ZEFF2,4,2) c 4s C ELEV=69804.95 IF(WAVENO.LT.ELIM-ELEV(11))GO TO 30 C GLEV=22. ZEFF2=16./RYD*(ELIM-ELEV(11)) X(11)=XKARZAS(FREQ,ZEFF2,4,0) C N=3 c 3d 2D C ELEV=71490.54 IF(WAVENO.LT.ELIM-ELEV(12))GO TO 30 C GLEV=10. ZEFF2=9./RYD*(ELIM-ELEV(12)) X(12)=XKARZAS(FREQ,ZEFF2,3,2) c 3p 2P C ELEV=35730.36 IF(WAVENO.LT.ELIM-ELEV(13))GO TO 30 C GLEV=6. ZEFF2=9./RYD*(ELIM-ELEV(13)) X(13)=XKARZAS(FREQ,ZEFF2,3,1) c 3s 2S C ELEV=0. IF(WAVENO.LT.ELIM-ELEV(14))GO TO 30 C GLEV=2. X(14)=.14E-18*(6.700*((ELIM-ELEV(14))/WAVENO)**2- 1 5.700*((ELIM-ELEV(14))/WAVENO)**3) 30 DO 100 J=1,NRHOX C N=8 TO INFINITY H=FREQ3*2./2./(RYD*Z**2*HCKT(J))* 1(EXP(-MAX(ELIM-RYD*Z**2/8.**2,ELIM-WAVENO)*HCKT(J)) 2-EXP(-ELIM*HCKT(J))) DO 90 I=1,14 90 H=H+X(I)*BOLT(I,J) 100 AMG2(J)=H*XNFP(J,79)*STIM(J)/RHO(J) RETURN END SUBROUTINE SI2OP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /ALUKE/AC2(kw),AN1(kw),AO1(kw),AMG2(kw),ASI2(kw),ACA2(kw) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) DIMENSION BOLTN(kw),INDEXT(kw),TFRAC(kw) DIMENSION ELEV(46),GLEV(46),X(46),NLEV(46),LLEV(46) DIMENSION ZEFF2LEV(46),ELIM(46),TLEV(46),BOLT3s2(51),BOLT3s3p(51) DIMENSION XTAB(200,51),HCKTTAB(51),BOLT(44,51) DATA ITEMP1/0/ IF(XTAB(1,1).NE.0.)GO TO 200 Z=2. RYD=109732.298 C 3s2 5g 2G ELIM(1)=131838.4 ELEV(1)=114177.4 TLEV(1)= 17661.0 GLEV(1)=18. LLEV(1)=4 NLEV(1)=5 C 3s2 5f 2F ELIM(2)=131838.4 ELEV(2)=113760.48 TLEV(2)= 18077.92 GLEV(2)=14. LLEV(2)=3 NLEV(2)=5 C 3s2 5d 2D ELIM(3)=131838.4 ELEV(3)=112394.92 TLEV(3)= 19443.48 GLEV(3)=10. LLEV(3)=2 NLEV(3)=5 C 3s2 5p 2P ELIM(4)=131838.4 ELEV(4)=103877.34 TLEV(4)= 27961.06 GLEV(4)=6. LLEV(4)=1 NLEV(4)=5 C 3s2 5s 2S ELIM(5)=131838.4 ELEV(5)= 97972.35 TLEV(5)= 33866.05 GLEV(5)=2. LLEV(5)=0 NLEV(5)=5 C 3s2 4f 2F ELIM(6)=131838.4 ELEV(6)=103556.36 TLEV(6)= 28282.04 GLEV(6)=14. LLEV(6)=3 NLEV(6)=4 C 3s2 4d 2D ELIM(7)=131838.4 ELEV(7)=101024.09 TLEV(7)= 30814.31 GLEV(7)=10. LLEV(7)=2 NLEV(7)=4 C 3s2 4p 2P ELIM(8)=131838.4 ELEV(8)= 81231.57 TLEV(8)= 50606.83 GLEV(8)=6. LLEV(8)=1 NLEV(8)=4 C 3s2 3d 2D ELIM(9)=131838.4 ELEV(9)= 79348.67 TLEV(9)= 52489.73 GLEV(9)=10. LLEV(9)=2 NLEV(9)=3 C 3s2 4s 2S ELIM(10)=131838.4 ELEV(10)= 65500.73 TLEV(10)= 66337.67 GLEV(10)=1. LLEV(10)=0 NLEV(10)=4 C 3s2 3p 2P ELIM(11)=131838.4 ELEV(11)= 191.55 TLEV(11)=131646.85 GLEV(11)=6. LLEV(11)=1 NLEV(11)=3 C C SI III 3s3p 3P0 ELIM=131838.4+52724.69=184563.09 C 3s3p4f 4D ELIM(12)=184563.09 ELEV(12)=157396.6 TLEV(12)= 27166.49 GLEV(12)=20. LLEV(12)=3 NLEV(12)=4 C 3s3p4f 2D ELIM(13)=184563.09 ELEV(13)=157188.8 TLEV(13)= 27374.29 GLEV(13)=10. LLEV(13)=3 NLEV(13)=4 C 3s3p4f 2G ELIM(14)=184563.09 ELEV(14)=156838.9 TLEV(14)= 27724.19 GLEV(14)=18. LLEV(14)=3 NLEV(14)=4 C 3s3p4f 4G ELIM(15)=184563.09 ELEV(15)=156836.9 TLEV(15)= 27726.19 GLEV(15)=36. LLEV(15)=3 NLEV(15)=4 C 3s3p4f 4F ELIM(16)=184563.09 ELEV(16)=155663.4 TLEV(16)= 28899.69 GLEV(16)=28. LLEV(16)=3 NLEV(16)=4 C 3s3p4f 2F ELIM(17)=184563.09 ELEV(17)=155593.7 TLEV(17)= 28969.39 GLEV(17)=10. LLEV(17)=3 NLEV(17)=4 C 3s3p4d 2F ELIM(18)=184563.09 C GUESS ELEV(18)=155555. TLEV(18)= 29008.09 GLEV(18)=10. LLEV(18)=2 NLEV(18)=4 C 3s3p4d 2P ELIM(19)=184563.09 ELEV(19)=153523.1 TLEV(19)= 31039.99 GLEV(19)=6. LLEV(19)=2 NLEV(19)=4 C 3s3p4d 4P ELIM(20)=184563.09 ELEV(20)=153147.2 TLEV(20)= 31415.89 GLEV(20)=12. LLEV(20)=2 NLEV(20)=4 C 3s3p4p 2S ELIM(21)=184563.09 ELEV(21)=152977.0 TLEV(21)= 31586.09 GLEV(21)=2. LLEV(21)=1 NLEV(21)=4 C 3s3p4d 4D ELIM(22)=184563.09 ELEV(22)=152480.7 TLEV(22)= 32082.39 GLEV(22)=20. LLEV(22)=2 NLEV(22)=4 C 3s3p4d 4F ELIM(23)=184563.09 ELEV(23)=151245.1 TLEV(23)= 33317.99 GLEV(23)=28. LLEV(23)=2 NLEV(23)=4 C 3s3p4d 2D ELIM(24)=184563.09 ELEV(24)=149905.6 TLEV(24)= 34657.49 GLEV(24)=10. LLEV(24)=2 NLEV(24)=4 C 3s3p4p 2D ELIM(25)=184563.09 ELEV(25)=140696. TLEV(25)= 43867.09 GLEV(25)=10. LLEV(25)=1 NLEV(25)=4 C 3s3p4p 4S ELIM(26)=184563.09 ELEV(26)=134905.34 TLEV(26)= 49657.75 GLEV(26)=4. LLEV(26)=1 NLEV(26)=4 C 3s3p4p 4P ELIM(27)=184563.09 ELEV(27)=134136.03 TLEV(27)= 50427.06 GLEV(27)=12. LLEV(27)=1 NLEV(27)=4 C 3s3p4p 2P ELIM(28)=184563.09 ELEV(28)=132648.5 TLEV(28)= 51914.59 GLEV(28)=6. LLEV(28)=1 NLEV(28)=4 C 3s3p4p 4D ELIM(29)=184563.09 ELEV(29)=132012.27 TLEV(29)= 52550.82 GLEV(29)=20. LLEV(29)=1 NLEV(29)=4 C 3s3p3d 2F ELIM(30)=184563.09 ELEV(30)=131815.5 TLEV(30)= 52747.59 GLEV(30)=10. LLEV(30)=2 NLEV(30)=3 C 3s3p3d 2P ELIM(31)=184563.09 ELEV(31)=126250.9 TLEV(31)= 58312.19 GLEV(31)=6. LLEV(31)=2 NLEV(31)=3 C 3s3p3d 4P ELIM(32)=184563.09 ELEV(32)=124595.5 TLEV(32)= 59967.59 GLEV(32)=12. LLEV(32)=2 NLEV(32)=3 C 3s3p3d 4D ELIM(33)=184563.09 ELEV(33)=124373.8 TLEV(33)= 60189.29 GLEV(33)=20. LLEV(33)=2 NLEV(33)=3 C 3s3p4s 2P ELIM(34)=184563.09 ELEV(34)=121541.76 TLEV(34)= 63021.33 GLEV(34)=6. LLEV(34)=0 NLEV(34)=4 C 3s3p4s 4P ELIM(35)=184563.09 ELEV(35)=117058.95 TLEV(35)= 67504.14 GLEV(35)=12. LLEV(35)=0 NLEV(35)=4 C 3s3p3d 4F ELIM(36)=184563.09 ELEV(36)=114415.54 TLEV(36)= 70147.55 GLEV(36)=28. LLEV(36)=2 NLEV(36)=3 C 3s3p3d 2D ELIM(37)=184563.09 ELEV(37)=108804.1 TLEV(37)= 75758.99 GLEV(37)=10. LLEV(37)=2 NLEV(37)=3 C 3s3p2 2P ELIM(38)=184563.09 ELEV(38)= 83937.09 TLEV(38)=100526.00 GLEV(38)=6. LLEV(38)=1 NLEV(38)=3 C DEGEN=2. C 3s3p2 2S ELIM(39)=184563.09 ELEV(39)= 76665.61 TLEV(39)=107897.48 GLEV(39)=2. LLEV(39)=1 NLEV(39)=3 C DEGEN=2. C 3s3p2 2D ELIM(40)=184563.09 ELEV(40)= 55319.11 TLEV(40)=129243.98 GLEV(40)=10. LLEV(40)=1 NLEV(40)=3 C DEGEN=2. C 3s3p2 4P ELIM(41)=184563.09 ELEV(41)= 43002.27 TLEV(41)=141560.82 GLEV(41)=12. LLEV(41)=1 NLEV(41)=3 C DEGEN=2. C C Si III 3s3p 1P1 ELIM=131838.4+102352.04=234190.44 C C Si III 3p2 3P0 ELIM=131838.4+122214.52=254052.92 C 3p3 2P ELIM(42)=254052.92 ELEV(42)=143990.0 TLEV(42)=110052.92 GLEV(42)=6. LLEV(42)=1 NLEV(42)=3 C DEGEN=3. C 3p3 2D ELIM(43)=254052.92 ELEV(43)=135300.5 TLEV(43)=118752.42 GLEV(43)=10. LLEV(43)=1 NLEV(43)=3 C DEGEN=3. C 3p3 4S ELIM(44)=254052.92 ELEV(44)=123033.6 TLEV(44)=131019.32 GLEV(44)=4. LLEV(44)=1 NLEV(44)=3 C DEGEN=3. C C 3s2 nl n=6-inf ELIM(45)=131838.4 ELEV(45)=119645.92 TLEV(45)=12192.48 C TLEV(45)=RYD*Z**2/NLEV(45)**2 GLEV(45)=1. LLEV(45)=0 NLEV(45)=6 C 3s3p nl n=5-inf ELIM(46)=184563.09 ELEV(46)=167005.92 TLEV(46)= 17557.17 C TLEV(46)=RYD*Z**2/NLEV(46)**2 GLEV(46)=9. LLEV(46)=0 NLEV(46)=5 DO 1 I=1,44 1 ZEFF2LEV(I)=NLEV(I)**2/RYD*TLEV(I) DO 2 K=1,51 TTAB=10.**(3.48+K*.02) HCKTTAB(K)=6.6256E-27*2.99792458E10/1.38054E-16/TTAB BOLT3s2(K)=EXP(-ELIM(1)*HCKTTAB(K)) BOLT3s3p(K)=EXP(-ELIM(12)*HCKTTAB(K)) DO 2 I=1,44 2 BOLT(I,K)=GLEV(I)*EXP(-ELEV(I)*HCKTTAB(K)) Z=2. DO 100 NU=1,200 WNOTAB=NU*1000. FREQTAB=WNOTAB*2.99792458E10 FREQ3=2.815E29/FREQTAB/FREQTAB/FREQTAB*Z**4 DO 20 I=1,11 IF(WNOTAB.LT.TLEV(I))GO TO 30 20 X(I)=XKARZAS(FREQTAB,ZEFF2LEV(I),NLEV(I),LLEV(I)) 30 DO 31 I=12,37 IF(WNOTAB.LT.TLEV(I))GO TO 40 31 X(I)=XKARZAS(FREQTAB,ZEFF2LEV(I),NLEV(I),LLEV(I)) 40 DO 41 I=38,41 IF(WNOTAB.LT.TLEV(I))GO TO 50 41 X(I)=XKARZAS(FREQTAB,ZEFF2LEV(I),NLEV(I),LLEV(I))*2. 50 DO 51 I=42,44 IF(WNOTAB.LT.TLEV(I))GO TO 60 51 X(I)=XKARZAS(FREQTAB,ZEFF2LEV(I),NLEV(I),LLEV(I))*3. 60 DO 90 K=1,51 C GFACTOR=1. C ELIM=131838.4 C N=6 TO INFINITY H=FREQ3*GLEV(45)*2./2./(RYD*Z**2*HCKTTAB(K))* 1(EXP(-MAX(ELEV(45),ELIM(45)-WNOTAB)*HCKTTAB(K)) 2-BOLT3s2(K)) C 12192.48 C SI III 3s3p 3P0 C ELIM=ELIM+52724.69 C N=5 TO INFINITY C GFACTOR=9. H=H+FREQ3*GLEV(46)*2./2./(RYD*Z**2*HCKTTAB(K))* 1(EXP(-MAX(ELEV(46),ELIM(46)-WNOTAB)*HCKTTAB(K)) 2-BOLT3s3p(K)) DO 80 I=1,44 80 H=H+X(I)*BOLT(I,K) 90 XTAB(NU,K)=LOG(H) 100 CONTINUE C 200 IF(ITEMP.EQ.ITEMP1)GO TO 300 ITEMP1=ITEMP DO 201 J=1,NRHOX BOLTN(J)=(GLEV(45)*EXP(-ELIM(45)*HCKT(J))+ 1 GLEV(46)*EXP(-ELIM(46)*HCKT(J)))/(RYD*Z**2*HCKT(J)) TLOG10=TLOG(J)/2.30258509299405E0 IT=(TLOG10-3.48)/.02 IT=MAX(MIN(IT,50),1) INDEXT(J)=IT 201 TFRAC(J)=(TLOG10-3.48-IT*.02)/.02 300 IF(WAVENO.LT.12192.48)GO TO 310 IW=WAVENO*.001 IW=MAX(MIN(IW,199),1) WFRAC=(WAVENO-IW*1000.)/1000. DO 301 J=1,NRHOX IT=INDEXT(J) H=(XTAB(IW ,IT )*(1.-TFRAC(J))+ 1 XTAB(IW ,IT+1)*TFRAC(J))*(1.-WFRAC)+ 2 (XTAB(IW+1,IT )*(1.-TFRAC(J))+ 3 XTAB(IW+1,IT+1)*TFRAC(J))*WFRAC 301 ASI2(J)=EXP(H)*XNFP(J,106)*STIM(J)/RHO(J) RETURN C C Si III 3s2 ELIM=131838.4 N=6 TO INFINITY C SI III 3s3p 3P0 ELIM=184563.09 N=5 TO INFINITY 310 FREQ3=2.815E29/FREQ/FREQ/FREQ*Z**4 DO 311 J=1,NRHOX H=FREQ3*(1./EHVKT(J)-1.)*BOLTN(J) 311 ASI2(J)=H*XNFP(J,106)*STIM(J)/RHO(J) RETURN END C SUBROUTINE SI2OP C IMPLICIT REAL*8 (A-H,O-Z) C PARAMETER (kw=72,mion=1006) C COMMON /ALUKE/AC2(kw),AN1(kw),AO1(kw),AMG2(kw),ASI2(kw),ACA2(kw) C COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO C COMMON /RHOX/RHOX(kw),NRHOX C COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) C COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP C COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) C DIMENSION ELEV(44),GLEV(44),BOLT(44,kw),X(44) C DATA ELEV/ C 1 114177.4, 113760.48, 112394.92, 103877.34, 97972.35, C 2 103556.36, 101024.09, 81231.57, 79348.67, 65500.73, C 3 191.55, 157396.6, 157188.8, 156838.9, 156836.9, C 4 155663.4, 155593.7, 155555., 153523.1, 153147.2, C 5 152977.0, 152480.7, 151245.1, 149905.6, 140696., C 6 134905.34, 134136.03, 132648.5, 132012.27, 131815.5, C 7 126250.9, 124595.5, 124373.8, 121541.76, 117058.95, C 8 114415.54, 108804.1, 83937.09, 76665.61, 55319.11, C 9 43002.27, 143990.0, 135300.5, 123033.6/ C DATA GLEV/18.,14.,10.,6.,2.,14.,10.,6.,10.,1.,6.,20.,10.,18., C 1 36.,28.,10.,10.,6.,12.,2.,20.,28.,10.,10.,4.,12.,6.,20.,10., C 2 6.,12.,20.,6.,12.,28.,10.,6.,2.,10.,12.,6.,10.,4./ C DATA ITEMP1/0/ C IF(ITEMP.EQ.ITEMP1)GO TO 3 C ITEMP1=ITEMP C DO 2 K=1,NRHOX C DO 2 I=1,44 C 2 BOLT(I,K)=GLEV(I)*EXP(-ELEV(I)*HCKT(K)) C 3 CONTINUE C DO 4 I=1,44 C 4 X(I)=0. C Z=2. C FREQ3=2.815E29/FREQ/FREQ/FREQ*Z**4 C RYD=109732.298 C ELIM=131838.4 CC 3s2 5g 2G ELEV=114177.4 GLEV=18. C IF(WAVENO.LT.ELIM-ELEV(1))GO TO 30 C ZEFF2=25./RYD*(ELIM-ELEV(1)) C X(1)=XKARZAS(FREQ,ZEFF2,5,4) CC 3s2 5f 2F ELEV=113760.48 GLEV=14. C IF(WAVENO.LT.ELIM-ELEV(2))GO TO 30 C ZEFF2=25./RYD*(ELIM-ELEV(2)) C X(2)=XKARZAS(FREQ,ZEFF2,5,3) CC 3s2 5d 2D ELEV=112394.92 GLEV=10. C IF(WAVENO.LT.ELIM-ELEV(3))GO TO 30 C ZEFF2=25./RYD*(ELIM-ELEV(3)) C X(3)=XKARZAS(FREQ,ZEFF2,5,2) CC 3s2 5p 2P ELEV=103877.34 GLEV=6. C IF(WAVENO.LT.ELIM-ELEV(4))GO TO 30 C ZEFF2=25./RYD*(ELIM-ELEV(4)) C X(4)=XKARZAS(FREQ,ZEFF2,5,1) CC 3s2 5s 2S ELEV=97972.35 GLEV=2. C IF(WAVENO.LT.ELIM-ELEV(5))GO TO 30 C ZEFF2=25./RYD*(ELIM-ELEV(5)) C X(5)=XKARZAS(FREQ,ZEFF2,5,0) CC 3s2 4f 2F ELEV=103556.36 GLEV=14. C IF(WAVENO.LT.ELIM-ELEV(6))GO TO 30 C ZEFF2=16./RYD*(ELIM-ELEV(6)) C X(6)=XKARZAS(FREQ,ZEFF2,4,3) CC 3s2 4d 2D ELEV=101024.09 GLEV=10. C IF(WAVENO.LT.ELIM-ELEV(7))GO TO 30 C ZEFF2=16./RYD*(ELIM-ELEV(7)) C X(7)=XKARZAS(FREQ,ZEFF2,4,2) CC 3s2 4p 2P ELEV=81231.57 GLEV=6. C IF(WAVENO.LT.ELIM-ELEV(8))GO TO 30 C ZEFF2=16./RYD*(ELIM-ELEV(8)) C X(8)=XKARZAS(FREQ,ZEFF2,4,1) CC 3s2 3d 2D ELEV=79348.67 GLEV=10. C IF(WAVENO.LT.ELIM-ELEV(9))GO TO 30 C ZEFF2=9./RYD*(ELIM-ELEV(9)) C X(9)=XKARZAS(FREQ,ZEFF2,3,2) CC 3s2 4s 2S ELEV=65500.73 GLEV=1. C IF(WAVENO.LT.ELIM-ELEV(10))GO TO 30 C ZEFF2=16./RYD*(ELIM-ELEV(10)) C X(10)=XKARZAS(FREQ,ZEFF2,4,0) CC 3s2 3p 2P ELEV=191.55 GLEV=6. C IF(WAVENO.LT.ELIM-ELEV(11))GO TO 30 C ZEFF2=9./RYD*(ELIM-ELEV(11)) C X(11)=XKARZAS(FREQ,ZEFF2,3,1) CC SI III 3s3p 3P0 C 30 ELIM=ELIM+52724.69 CC 3s3p4f 4D CC ELEV=157396.6 C IF(WAVENO.LT.ELIM-ELEV(12))GO TO 40 CC GLEV=20. C ZEFF2=16./RYD*(ELIM-ELEV(12)) C X(12)=XKARZAS(FREQ,ZEFF2,4,3) CC 3s3p4f 2D CC ELEV=157188.8 C IF(WAVENO.LT.ELIM-ELEV(13))GO TO 40 CC GLEV=10. C ZEFF2=16./RYD*(ELIM-ELEV(13)) C X(13)=XKARZAS(FREQ,ZEFF2,4,3) CC 3s3p4f 2G CC ELEV=156838.9 C IF(WAVENO.LT.ELIM-ELEV(14))GO TO 40 CC GLEV=18. C ZEFF2=16./RYD*(ELIM-ELEV(14)) C X(14)=XKARZAS(FREQ,ZEFF2,4,3) CC 3s3p4f 4G CC ELEV=156836.9 C IF(WAVENO.LT.ELIM-ELEV(15))GO TO 40 CC GLEV=36. C ZEFF2=16./RYD*(ELIM-ELEV(15)) C X(15)=XKARZAS(FREQ,ZEFF2,4,3) CC 3s3p4f 4F CC ELEV=155663.4 C IF(WAVENO.LT.ELIM-ELEV(16))GO TO 40 CC GLEV=28. C ZEFF2=16./RYD*(ELIM-ELEV(16)) C X(16)=XKARZAS(FREQ,ZEFF2,4,3) CC 3s3p4f 2F CC ELEV=155593.7 C IF(WAVENO.LT.ELIM-ELEV(17))GO TO 40 CC GLEV=10. C ZEFF2=16./RYD*(ELIM-ELEV(17)) C X(17)=XKARZAS(FREQ,ZEFF2,4,3) CC 3s3p4d 2F CC GUESS CC ELEV=155555. C IF(WAVENO.LT.ELIM-ELEV(18))GO TO 40 CC GLEV=10. C ZEFF2=16./RYD*(ELIM-ELEV(18)) C X(18)=XKARZAS(FREQ,ZEFF2,4,2) CC 3s3p4d 2P CC ELEV=153523.1 C IF(WAVENO.LT.ELIM-ELEV(19))GO TO 40 CC GLEV=6. C ZEFF2=16./RYD*(ELIM-ELEV(19)) C X(19)=XKARZAS(FREQ,ZEFF2,4,2) CC 3s3p4d 4P CC ELEV=153147.2 C IF(WAVENO.LT.ELIM-ELEV(20))GO TO 40 CC GLEV=12. C ZEFF2=16./RYD*(ELIM-ELEV(20)) C X(20)=XKARZAS(FREQ,ZEFF2,4,2) CC 3s3p4p 2S CC ELEV=152977.0 C IF(WAVENO.LT.ELIM-ELEV(21))GO TO 40 CC GLEV=2. C ZEFF2=16./RYD*(ELIM-ELEV(21)) C X(21)=XKARZAS(FREQ,ZEFF2,4,2) CC 3s3p4d 4D CC ELEV=152480.7 C IF(WAVENO.LT.ELIM-ELEV(22))GO TO 40 CC GLEV=20. C ZEFF2=16./RYD*(ELIM-ELEV(22)) C X(22)=XKARZAS(FREQ,ZEFF2,4,2) CC 3s3p4d 4F CC ELEV=151245.1 C IF(WAVENO.LT.ELIM-ELEV(23))GO TO 40 CC GLEV=28. C ZEFF2=16./RYD*(ELIM-ELEV(23)) C X(23)=XKARZAS(FREQ,ZEFF2,4,2) CC 3s3p4d 2D CC ELEV=149905.6 C IF(WAVENO.LT.ELIM-ELEV(24))GO TO 40 CC GLEV=10. C ZEFF2=16./RYD*(ELIM-ELEV(24)) C X(24)=XKARZAS(FREQ,ZEFF2,4,2) CC 3s3p4p 2D CC ELEV=140696. C IF(WAVENO.LT.ELIM-ELEV(25))GO TO 40 CC GLEV=10. C ZEFF2=16./RYD*(ELIM-ELEV(25)) C X(25)=XKARZAS(FREQ,ZEFF2,4,1) CC 3s3p4p 4S CC ELEV=134905.34 C IF(WAVENO.LT.ELIM-ELEV(26))GO TO 40 CC GLEV=4. C ZEFF2=16./RYD*(ELIM-ELEV(26)) C X(26)=XKARZAS(FREQ,ZEFF2,4,1) CC 3s3p4p 4P CC ELEV=134136.03 C IF(WAVENO.LT.ELIM-ELEV(27))GO TO 40 CC GLEV=12. C ZEFF2=16./RYD*(ELIM-ELEV(27)) C X(27)=XKARZAS(FREQ,ZEFF2,4,1) CC 3s3p4p 2P CC ELEV=132648.5 C IF(WAVENO.LT.ELIM-ELEV(28))GO TO 40 CC GLEV=6. C ZEFF2=16./RYD*(ELIM-ELEV(28)) C X(28)=XKARZAS(FREQ,ZEFF2,4,1) CC 3s3p4p 4D CC ELEV=132012.27 C IF(WAVENO.LT.ELIM-ELEV(29))GO TO 40 CC GLEV=20. C ZEFF2=16./RYD*(ELIM-ELEV(29)) C X(29)=XKARZAS(FREQ,ZEFF2,4,1) CC 3s3p3d 2F CC ELEV=131815.5 C IF(WAVENO.LT.ELIM-ELEV(30))GO TO 40 CC GLEV=10. C ZEFF2=9./RYD*(ELIM-ELEV(30)) C X(30)=XKARZAS(FREQ,ZEFF2,3,2) CC 3s3p3d 2P CC ELEV=126250.9 C IF(WAVENO.LT.ELIM-ELEV(31))GO TO 40 CC GLEV=6. C ZEFF2=16./RYD*(ELIM-ELEV(31)) C X(31)=XKARZAS(FREQ,ZEFF2,3,2) CC 3s3p3d 4P CC ELEV=124595.5 C IF(WAVENO.LT.ELIM-ELEV(32))GO TO 40 CC GLEV=12. C ZEFF2=9./RYD*(ELIM-ELEV(32)) C X(32)=XKARZAS(FREQ,ZEFF2,3,2) CC 3s3p3d 4D CC ELEV=124373.8 C IF(WAVENO.LT.ELIM-ELEV(33))GO TO 40 CC GLEV=20. C ZEFF2=9./RYD*(ELIM-ELEV(33)) C X(33)=XKARZAS(FREQ,ZEFF2,3,2) CC 3s3p4s 2P CC ELEV=121541.76 C IF(WAVENO.LT.ELIM-ELEV(34))GO TO 40 CC GLEV=6. C ZEFF2=16./RYD*(ELIM-ELEV(34)) C X(34)=XKARZAS(FREQ,ZEFF2,4,0) CC 3s3p4s 4P CC ELEV=117058.95 C IF(WAVENO.LT.ELIM-ELEV(35))GO TO 40 CC GLEV=12. C ZEFF2=16./RYD*(ELIM-ELEV(35)) C X(35)=XKARZAS(FREQ,ZEFF2,4,0) CC 3s3p3d 4F CC ELEV=114415.54 C IF(WAVENO.LT.ELIM-ELEV(36))GO TO 40 CC GLEV=28. C ZEFF2=9./RYD*(ELIM-ELEV(36)) C X(36)=XKARZAS(FREQ,ZEFF2,3,2) CC 3s3p3d 2D CC ELEV=108804.1 C IF(WAVENO.LT.ELIM-ELEV(37))GO TO 40 CC GLEV=10. C ZEFF2=9./RYD*(ELIM-ELEV(37)) C X(37)=XKARZAS(FREQ,ZEFF2,3,2) CC 3s3p2 2P CC ELEV=83937.09 C IF(WAVENO.LT.ELIM-ELEV(38))GO TO 40 CC GLEV=6. C DEGEN=2. C ZEFF2=9./RYD*(ELIM-ELEV(38)) C X(38)=XKARZAS(FREQ,ZEFF2,3,1)*DEGEN CC 3s3p2 2S CC ELEV=76665.61 C IF(WAVENO.LT.ELIM-ELEV(39))GO TO 40 CC GLEV=2. C ZEFF2=9./RYD*(ELIM-ELEV(39)) C X(39)=XKARZAS(FREQ,ZEFF2,3,1)*DEGEN CC 3s3p2 2D CC ELEV=55319.11 C IF(WAVENO.LT.ELIM-ELEV(40))GO TO 40 CC GLEV=10. C ZEFF2=9./RYD*(ELIM-ELEV(40)) C X(40)=XKARZAS(FREQ,ZEFF2,3,1)*DEGEN CC 3s3p2 4P CC ELEV=43002.27 C IF(WAVENO.LT.ELIM-ELEV(41))GO TO 40 CC GLEV=12. C ZEFF2=9./RYD*(ELIM-ELEV(41)) C X(41)=XKARZAS(FREQ,ZEFF2,3,1)*DEGEN CC CC Si III 3s3p 1P1 C 40 ELIM=196664.7+102352.04 CC CC Si III 3p2 3P0 C 50 ELIM=131838.4+122214.52 CC 3p3 2P CC ELEV=143990.0 C IF(WAVENO.LT.ELIM-ELEV(42))GO TO 60 CC GLEV=6. C DEGEN=3. C ZEFF2=9./RYD*(ELIM-ELEV(42)) C X(42)=XKARZAS(FREQ,ZEFF2,3,1)*DEGEN CC 3p3 2D CC ELEV=135300.5 C IF(WAVENO.LT.ELIM-ELEV(43))GO TO 60 CC GLEV=10. C ZEFF2=9./RYD*(ELIM-ELEV(43)) C X(43)=XKARZAS(FREQ,ZEFF2,3,1)*DEGEN CC 3p3 4S CC ELEV=123033.6 C IF(WAVENO.LT.ELIM-ELEV(44))GO TO 60 CC GLEV=4. C ZEFF2=9./RYD*(ELIM-ELEV(44)) C X(44)=XKARZAS(FREQ,ZEFF2,3,1)*DEGEN C 60 DO 100 J=1,NRHOX C GFACTOR=1. C ELIM=131838.4 CC N=6 TO INFINITY C H=FREQ3*GFACTOR*2./2./(RYD*Z**2*HCKT(J))* C 1(EXP(-MAX(ELIM-RYD*Z**2/6.**2,ELIM-WAVENO)*HCKT(J)) C 2-EXP(-ELIM*HCKT(J))) CC SI III 3s3p 3P0 C ELIM=ELIM+52724.69 CC N=5 TO INFINITY C GFACTOR=9. C H=H+FREQ3*GFACTOR*2./2./(RYD*Z**2*HCKT(J))* C 1(EXP(-MAX(ELIM-RYD*Z**2/5.**2,ELIM-WAVENO)*HCKT(J)) C 2-EXP(-ELIM*HCKT(J))) C DO 90 I=1,44 C 90 H=H+X(I)*BOLT(I,J) C 100 ASI2(J)=H*XNFP(J,106)*STIM(J)/RHO(J) C RETURN C END FUNCTION CA2OP(J) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) C CROSS-SECTION TIMES THE PARTITION FUNCTION COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /RHOX/RHOX(kw),NRHOX COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP DIMENSION C1218(kw),C1420(kw) DATA FREQ1,ITEMP1/0.,0/ IF(ITEMP.EQ.ITEMP1)GO TO 30 ITEMP1=ITEMP DO 20 K=1,NRHOX C1218(K)=10.*EXP(-1.697/TKEV(K)) 20 C1420(K)=6.*EXP(-3.142/TKEV(K)) 30 IF(FREQ.EQ.FREQ1)GO TO 40 X1420=0. X1218=0. X1044=0. IF(FREQ.GE.2.870454E15)X1044=5.4E-20*(2.870454E15/FREQ)**3 IF(FREQ.GE.2.460127E15)X1218=1.64E-17*SQRT(2.460127E15/FREQ) IF(FREQ.GE.2.110779E15)X1420= 1SEATON(2.110779D15,4.13D-18,3.D0,.69D0) FREQ1=FREQ 40 CA2OP=X1044*2.+X1218*C1218(J)+X1420*C1420(J) RETURN END SUBROUTINE HOTOP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /OPS/D1(kw,10),AHOT(kw),D2(kw,14) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) DIMENSION AC2OP(kw),AC3OP(kw),AC4OP(kw) DIMENSION AN2OP(kw),AN3OP(kw),AN4OP(kw),AN5OP(kw) DIMENSION AO2OP(kw),AO3OP(kw),AO4OP(kw),AO5OP(kw),AO6OP(kw) DIMENSION A(420) DIMENSION A1(63),A2(63),A3(63),A4(63),A5(63),A6(63),A7(42) EQUIVALENCE (A(1),A1(1)),(A(64),A2(1)),(A(127),A3(1)) EQUIVALENCE (A(190),A4(1)),(A(253),A5(1)),(A(316),A6(1)) EQUIVALENCE (A(379),A7(1)) DATA A1/ 1 4.149945E15, 6.90E-18, 1.000, 6., 6., 13.71, 22., 6.01 2 4.574341E15, 2.50E-18, 1.000, 4., 2., 11.96, 22., 6.01 3 5.220770E15, 1.08E-17, 1.000, 4., 10., 9.28, 22., 6.01 4 5.222307E15, 5.35E-18, 3.769, 2., 1., 0.00, 55., 10.00 5 5.892577E15, 4.60E-18, 1.950, 6., 6., 0.00, 22., 6.01 6 6.177022E15, 3.50E-18, 1.000, 4., 12., 5.33, 22., 6.01 7 6.181062E15, 6.75E-18, 3.101, 5., 1., 4.05, 29., 7.01 8 6.701879E15, 6.65E-18, 2.789, 5., 5., 1.90, 29., 7.01 9 7.158382E15, 6.65E-18, 2.860, 6., 9., 0.00, 29./ 7.01 DATA A2/ 1 7.284488E15, 3.43E-18, 4.174, 5., 6., 5.02, 37., 8.01 2 7.693612E15, 3.53E-18, 3.808, 5., 10., 3.33, 37., 8.01 3 7.885955E15, 2.32E-18, 3.110, 5., 6., 5.02, 37., 8.01 4 8.295079E15, 3.97E-18, 3.033, 5., 10., 3.33, 37., 8.01 5 8.497686E15, 7.32E-18, 3.837, 5., 4., 0.00, 37., 8.01 6 8.509966E15, 2.00E-18, 1.750, 7., 3., 12.69, 23., 6.02 7 8.572854E15, 1.68E-18, 3.751, 5., 6., 5.02, 37., 8.01 8 9.906370E15, 4.16E-18, 2.717, 3., 6., 0.00, 56., 10.01 9 1.000693E16, 2.40E-18, 1.750, 7., 9., 6.50, 23./ 6.02 DATA A3/ 1 1.046078E16, 4.80E-18, 1.000, 4., 10., 12.53, 30., 7.02 2 1.067157E16, 2.71E-18, 2.148, 3., 6., 0.00, 56., 10.01 3 1.146734E16, 2.06E-18, 1.626, 6., 6., 0.00, 30., 7.02 4 1.156813E16, 5.20E-19, 2.126, 3., 6., 0.00, 56., 10.01 5 1.157840E16, 9.10E-19, 4.750, 4., 1., 0.00, 23., 6.02 6 1.177220E16, 5.30E-18, 1.000, 4., 12., 7.10, 30., 7.02 7 1.198813E16, 3.97E-18, 2.780, 6., 1., 5.35, 38., 8.02 8 1.325920E16, 3.79E-18, 2.777, 6., 5., 2.51, 38., 8.02 9 1.327649E16, 3.65E-18, 2.014, 6., 9., 0.00, 38./ 8.02 DATA A4/ 1 1.361466E16, 7.00E-18, 1.000, 2., 5., 7.48, 38., 8.02 2 1.365932E16, 9.30E-19, 1.500, 7., 6., 8.00, 24., 6.03 3 1.481487E16, 1.10E-18, 1.750, 7., 3., 16.20, 31., 7.03 4 1.490032E16, 5.49E-18, 3.000, 5., 1., 6.91, 57., 10.02 5 1.533389E16, 1.80E-18, 2.277, 4., 9., 0.00, 57., 10.02 6 1.559452E16, 8.70E-19, 3.000, 6., 2., 0.00, 24., 6.03 7 1.579688E16, 4.17E-18, 2.074, 4., 5., 3.20, 57., 10.02 8 1.643205E16, 1.39E-18, 2.792, 5., 5., 3.20, 57., 10.02 9 1.656208E16, 2.50E-18, 2.346, 5., 9., 0.00, 57./ 10.02 DATA A5/ 1 1.671401E16, 1.30E-18, 1.750, 7., 9., 8.35, 31., 7.03 2 1.719725E16, 1.48E-18, 2.225, 5., 9., 0.00, 57., 10.02 3 1.737839E16, 2.70E-18, 1.000, 4., 10., 15.74, 39., 8.03 4 1.871079E16, 1.27E-18, .831, 6., 6., 0.00, 39., 8.03 5 1.873298E16, 9.10E-19, 3.000, 4., 1., 0.00, 31., 7.03 6 1.903597E16, 2.90E-18, 1.000, 4., 12., 8.88, 39., 8.03 7 2.060738E16, 4.60E-18, 1.000, 3., 12., 22.84, 58., 10.03 8 2.125492E16, 5.90E-19, 1.000, 6., 6., 9.99, 32., 7.04 9 2.162610E16, 1.69E-18, 1.937, 5., 6., 7.71, 58./ 10.03 DATA A6/ 1 2.226127E16, 1.69E-18, 1.841, 5., 10., 5.08, 58., 10.03 2 2.251163E16, 9.30E-19, 2.455, 6., 6., 7.71, 58., 10.03 3 2.278001E16, 7.90E-19, 1.000, 6., 9., 10.20, 40., 8.04 4 2.317678E16, 1.65E-18, 2.277, 6., 10., 5.08, 58., 10.03 5 2.348946E16, 3.11E-18, 1.963, 6., 4., 0.00, 58., 10.03 6 2.351911E16, 7.30E-19, 1.486, 5., 6., 7.71, 58., 10.03 7 2.366973E16, 5.00E-19, 1.000, 4., 2., 0.00, 32., 7.04 8 2.507544E16, 6.90E-19, 1.000, 6., 3., 19.69, 40., 8.04 9 2.754065E16, 7.60E-19, 1.000, 2., 1., 0.00, 40./ 8.04 DATA A7/ 1 2.864850E16, 1.54E-18, 2.104, 6., 1., 7.92, 59., 10.04 2 2.965598E16, 1.53E-18, 2.021, 6., 5., 3.76, 59., 10.04 3 3.054151E16, 1.40E-18, 1.471, 6., 9., 0.00, 59., 10.04 4 3.085141E16, 2.80E-18, 1.000, 4., 5., 11.01, 59., 10.04 5 3.339687E16, 3.60E-19, 1.000, 6., 2., 0.00, 41., 8.05 6 3.818757E16, 4.90E-19, 1.145, 6., 6., 0.00, 60./ 10.05 DATA NUM/60/ C IF(FREQ.LT.A(1))RETURN C C FREE-FREE C,N,O,NE,MG,SI,S,FE I-V DO 200 J=1,NRHOX FREE=COULFF(J,1)*1.**2*(XNF(J,22)+XNF(J,29)+XNF(J,37)+XNF(J,56)+ 1 XNF(J,79)+XNF(J,106)+XNF(J,137)+XNF(J,352))+ 2 COULFF(J,2)*2.**2*(XNF(J,23)+XNF(J,30)+XNF(J,38)+XNF(J,57)+ 3 XNF(J,80)+XNF(J,107)+XNF(J,138)+XNF(J,353))+ 4 COULFF(J,3)*3.**2*(XNF(J,24)+XNF(J,31)+XNF(J,39)+XNF(J,58)+ 5 XNF(J,81)+XNF(J,108)+XNF(J,139)+XNF(J,354))+ 6 COULFF(J,4)*4.**2*(XNF(J,25)+XNF(J,32)+XNF(J,40)+XNF(J,59)+ 7 XNF(J,82)+XNF(J,109)+XNF(J,140)+XNF(J,355))+ 8 COULFF(J,5)*5.**2*(XNF(J,26)+XNF(J,33)+XNF(J,41)+XNF(J,60)+ 9 XNF(J,83)+XNF(J,110)+XNF(J,141)+XNF(J,356)) 200 AHOT(J)=FREE*3.6919E8/FREQ**3*XNE(J)/SQRT(T(J)) C C DO 700 J=1,NRHOX AC2OP(J)=0. AC3OP(J)=0. AC4OP(J)=0. AN2OP(J)=0. AN3OP(J)=0. AN4OP(J)=0. AN5OP(J)=0. AO2OP(J)=0. AO3OP(J)=0. AO4OP(J)=0. AO5OP(J)=0. AO6OP(J)=0. 700 CONTINUE c 4jun03 C2OP is called by both LUKOP and HOTOP K.Bischoff, Vienna C CALL C2OP(AC2OP) CALL C3OP(AC3OP) CALL C4OP(AC4OP) CALL N2OP(AN2OP) CALL N3OP(AN3OP) CALL N4OP(AN4OP) CALL N5OP(AN5OP) CALL O2OP(AO2OP) CALL O3OP(AO3OP) CALL O4OP(AO4OP) CALL O5OP(AO5OP) CALL O6OP(AO6OP) DO 701 J=1,NRHOX 701 AHOT(J)=AHOT(J)+ 1 AC2OP(J)+AC3OP(J)+AC4OP(J)+ 2 AN2OP(J)+AN3OP(J)+AN4OP(J)+AN5OP(J)+ 3 AO2OP(J)+AO3OP(J)+AO4OP(J)+AO5OP(J)+AO6OP(J) C C L=-6 DO 20 I=1,NUM L=L+7 IF(FREQ.LT.A(L))GO TO 20 XSECT=A(L+1)*(A(L+2)+(A(L)/FREQ)-A(L+2)*(A(L)/FREQ))* 1 SQRT((A(L)/FREQ)** INT(A(L+3))) ID=A(L+6) DO 10 J=1,NRHOX XX=XSECT*XNFP(J,ID)*A(L+4) IF(XX.GT.AHOT(J)/100.)AHOT(J)=AHOT(J)+XX/EXP(A(L+5)/TKEV(J)) 10 CONTINUE 20 CONTINUE DO 30 J=1,NRHOX 30 AHOT(J)=AHOT(J)*STIM(J)/RHO(J) RETURN END SUBROUTINE C3OP(AC3OP) RETURN END SUBROUTINE C4OP(AC4OP) RETURN END SUBROUTINE N2OP(AN2OP) RETURN END SUBROUTINE N3OP(AN3OP) RETURN END SUBROUTINE N4OP(AN4OP) RETURN END SUBROUTINE N5OP(AN5OP) RETURN END SUBROUTINE O2OP(AO2OP) RETURN END SUBROUTINE O3OP(AO3OP) RETURN END SUBROUTINE O4OP(AO4OP) RETURN END SUBROUTINE O5OP(AO5OP) RETURN END SUBROUTINE O6OP(AO6OP) RETURN END SUBROUTINE ELECOP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /OPS/D1(kw,11),SIGEL(kw),D2(kw,13) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) DO 1 J=1,NRHOX 1 SIGEL(J)=.6653E-24*XNE(J)/RHO(J) RETURN END SUBROUTINE H2RAOP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /DEPART/BHYD(kw,6),BMIN(kw),NLTEON COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /OPS/D1(kw,12),SIGH2(kw),D2(kw,12) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) DATA ITEMP1/0/ IF(ITEMP.EQ.ITEMP1)GO TO 20 ITEMP1=ITEMP DO 11 J=1,NRHOX XNH2(J)=0. IF(T(J).GT.10000.)GO TO 11 C 11 XNH2(J)=(XNFP(J,1)*2.*BHYD(J,1))**2*EXP(4.477/TKEV(J)-4.6628E1+ C 1(1.8031E-3+(-5.0239E-7+(8.1424E-11-5.0501E-15*T(J))*T(J))*T(J))* C 2T(J)-1.5*TLOG(J))/RHO(J) XNH2(J)=(XNFP(J,1)*2.*BHYD(J,1))**2*EXP(4.478/TKEV(J)-4.64584E1+ 1(1.63660E-3+(-4.93992E-7+(1.11822E-10+(-1.49567E-14+ 2(1.06206E-18-3.08720E-23*T(J))*T(J))*T(J))*T(J))*T(J))*T(J)- 3 1.5*TLOG(J)) 11 CONTINUE 20 W=2.99792458E18/DMIN1(FREQ,2.922D15) WW=W**2 SIG=(8.14E-13+1.28E-6/WW+1.61/(WW*WW))/(WW*WW) DO 21 J=1,NRHOX C 21 SIGH2(J)=SIG*XNH2(J) C error found by k. bischof 14sep2004 21 SIGH2(J)=SIG*XNH2(J)/RHO(J) RETURN END SUBROUTINE HLINOP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) C REQUIRES STARK AND COULX COMMON /DEPART/BHYD(kw,6),BMIN(kw),NLTEON COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /OPS/D1(kw,13),AHLINE(kw),D2(kw,8),SHLINE(kw),D3(kw,2) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) DIMENSION BOLT(kw,4),MLAST(kw) DATA ITEMP1/0/ IF(ITEMP.EQ.ITEMP1)GO TO 20 DO 10 J=1,NRHOX MLAST(J)=1100./XNE(J)**.133333333 DO 10 N=1,4 10 BOLT(J,N)=EXP(-(13.595-13.595/DFLOAT(N*N))/TKEV(J))*2.* 1DFLOAT(N*N)*BHYD(J,N)*XNFP(J,1)/RHO(J) ITEMP1=ITEMP 20 N=SQRT(3.28805E15/FREQ) IF(N.EQ.0.OR.N.GT.4)RETURN GO TO (21,22,30,30),N 21 IF(FREQ.LT.2.E15)RETURN GO TO 30 22 IF(FREQ.LT.4.44E14)RETURN 30 MFREQ=SQRT(3.28805E15/(3.28805E15/DFLOAT(N*N)-FREQ)) DO 50 J=1,NRHOX M1=MFREQ M2=M1+1 M1=MAX0(M1,N+1) H=0. S=0. IF(M1.LE.6)GO TO 39 IF(M1.GT.MLAST(J))GO TO 45 M1=M1-1 M2=M2+3 IF(N.LT.4.OR.M1.GT.8)GO TO 39 H=STARK(3,4,J)*(1.-EHVKT(J)*BHYD(J,4)/BHYD(J,3))*BOLT(J,3) S=H*BNU(J)*STIM(J)/(BHYD(J,3)/BHYD(J,4)-EHVKT(J)) 39 DO 40 M=M1,M2 BHYDJM=1. IF(M.LE.6)BHYDJM=BHYD(J,M) C ASSUMING FREQ APROXIMATELY FREQNM A=STARK(N,M,J)*(1.-EHVKT(J)*BHYDJM/BHYD(J,N))*BOLT(J,N) H=H+A 40 S=S+A*BNU(J)*STIM(J)/(BHYD(J,N)/BHYDJM-EHVKT(J)) AHLINE(J)=H SHLINE(J)=S/H GO TO 50 45 AHLINE(J)=COULX(N,3.28806E15/DFLOAT(N*N),1.D0)*(1.-EHVKT(J)/ 1BHYD(J,N))*BOLT(J,N) SHLINE(J)=BNU(J)*STIM(J)/(BHYD(J,N)-EHVKT(J)) 50 CONTINUE RETURN END FUNCTION STARK(N,M,J) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP DIMENSION F0(kw) DIMENSION KNMTAB(5,4),FSTARK(10,4) REAL*8 NN,MM,IMPACT,KNM,KNMTAB DATA KNMTAB/.000356,.000523,.00109,.00149,.00225,.0125,.0177,.028, 1.0348,.0493,.124,.171,.223,.261,.342,.683,.866,1.02,1.19,1.46/ DATA FSTARK/.1387,.07910,.02126,.01394,.006462,.004814,.002779, 1 .002216,.001443,.001201,.3921,.1193,.03766,.02209,.01139, 2 .008036,.005007,.003850,.002658,.002151,.6103,.1506,.04931, 3 .02768,.01485,.01023,.006588,.004996,.003542,.002838,.8163,.1788, 4 .05985,.03189,.01762,.01196,.007825,.005882,.004233,.003375/ C IF YOUR RYDBERG IS DIFFERENT YOU MAY GET LINES IN STRANGE PLACES DATA RYD/3.28805E15/ DATA ITEMP1/0/ EXINT(X)=-DLOG(X)-.57516+(.97996-(.21654-(.033572-(.0029222- 1 1.05439E-4*X)*X)*X)*X)*X IF(ITEMP.EQ.ITEMP1)GO TO 20 DO 10 K=1,NRHOX 10 F0(K)=1.25E-9*XNE(K)**.6666667 ITEMP1=ITEMP 20 XN=N XM=M X=XN/XM XX=X**2 NN=N*N MM=M*M MMINN=M-N IF(MMINN.GT.5)GO TO 21 KNM=KNMTAB(MMINN,N) GO TO 22 21 KNM=5.5E-5*(NN*MM)**2/(MM-NN) 22 IF(MMINN.GT.10)GO TO 23 FNM=FSTARK(MMINN,N) GO TO 30 23 FNM=FSTARK(10,N)*((20.*XN+100.)/(XN+10.)/XM/(1.-XX))**3 30 FREQNM=RYD*(1./NN-1./MM) DEL=ABS(FREQ-FREQNM) DBETA=2.99792458E18/FREQNM**2/F0(J)/KNM BETA=DBETA*DEL Y1=MM*DEL*HKT(J)/2. Y2=(3.14159*3.14159/2./.0265384/2.99792458E10)*DEL**2/XNE(J) QSTAT=1.5+.5*(Y1**2-1.384)/(Y1**2+1.384) IMPACT=0. IF(Y1.GT.8..OR.Y1.GE.Y2)GO TO 40 EXY2=0. IF(Y2.LE.8.)EXY2=EXINT(Y2) IMPACT=1.438*SQRT(Y1*(1.-XX))*(.4*EXP(-Y1)+EXINT(Y1)-.5*EXY2) 40 IF(BETA.GT.20.)GO TO 45 PROF=8./(80.+BETA**3) RATIO=QSTAT+IMPACT GO TO 50 45 PROF=1.5/BETA/BETA/SQRT(BETA) DIOI=6.28*1.48E-25*(2.*MM*RYD/DEL)*XNE(J)*(SQRT(2.*MM*RYD/DEL)* 1(1.3*QSTAT+.30*IMPACT)-3.9*RYD*HKT(J)) RATIO=QSTAT*DMIN1(1.+DIOI,1.25D0)+IMPACT 50 STARK=.0265384*FNM*PROF*DBETA*RATIO RETURN END SUBROUTINE LINSOP(J,NSTEPS,STEPWT) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /OPS/D1(kw,15),SIGLIN(kw),D2(kw,9) C DUMMY FOR LINE ABSORPTION DISTRIBUTION FUNCTIONS S=J RETURN END SUBROUTINE PRELINOP IMPLICIT REAL*4 (A-H,O-Z) PARAMETER (kw=72,mion=1006) PARAMETER (kw1=kw+1) REAL*8 ABUND,ATMASS,YABUND REAL*8 FREQ,FREQLG,EHVKT,STIM,BNU,WAVE,WAVENO REAL*8 RHOX,P,XNE,XNATOM,RHO,CHARGESQ REAL*8 WAVETAB REAL*8 T,TKEV,TK,HKT,HCKT,TLOG REAL*8 XABUND,WTMOLE,XISO,AMASSISO,XRELATIVE REAL*8 WAVESET,RCOSET,RATIOLG,WLVAC REAL*8 XNF,XNFP,XNH2 COMMON /ELEM/ABUND(99),ATMASS(99),YABUND(99),ELEM(99) CHARACTER*2 ELEM COMMON /EXTAB/EXTAB(1001),EXTABF(1001),E1TAB(2000) COMMON /H1TAB/H0TAB(2001),H1TAB(2001),H2TAB(2001) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /FRESET/WAVESET(30000),RCOSET(30000),NULO,NUHI,NUMNU,NUSTEP COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TABCONT/TABCONT(kw,344),WAVETAB(344),IWAVETAB(344) COMMON /TABLOG/TABLOG(32768) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) COMMON /XNFDOP/XNFDOP(kw,mion),DOPPLE(kw,mion) INTEGER*2 IELION,IELO,IGFLOG,IGR,IGS,IGW COMMON /IIIIIII/IWL,IELION,IELO,IGFLOG,IGR,IGS,IGW COMMON /WWWWWWW/WLVAC,NELION,CGF,ELO,GAMMAR,GAMMAS,GAMMAW REAL*8 WWWWWWW(4) INTEGER*4 IIIIIII(4) EQUIVALENCE (IIIIIII(1),IWL),(WWWWWWW(1),WLVAC) REAL*4 HCKT4(kw) FASTEX(X)=EXTAB(INT(X)+1)*EXTABF(INT((X-REAL(INT(X)))*1000.+1.5)) OPEN(UNIT=12,TYPE='OLD',FORM='UNFORMATTED',SHARED,READONLY, 1RECORDTYPE='FIXED',RECL=4) OPEN(UNIT=13,TYPE='NEW',FORM='UNFORMATTED', 1RECORDTYPE='FIXED',RECL=8,DISPOSE='DELETE') RATIOLG=LOG(1.D0+1.D0/2000000.D0) DO 1 J=1,NRHOX 1 HCKT4(J)=HCKT(J) NUCONT=1 LINEUSED=0 START=WAVESET(NULO)-1. STOP=WAVESET(NUHI)+1. DO 600 LINE=1,500000000 READ(12,END=601)IIIIIII IF(MOD(LINE,100000).EQ.1) 1PRINT 8888,LINE,IWL,IELION,IELO,IGFLOG,IGR,IGS,IGW 8888 FORMAT(8I15) 570 IF(IWL.LT.IWAVETAB(NUCONT))GO TO 571 C PRINT 8888,IWL,LINE,NU,IWAVETAB(NUCONT) NUCONT=NUCONT+1 GO TO 570 C LINECEN=.026538/1.77245*GF*EXP(-ELO/HCKT)*STIM*XNFP/RHO/DOPPLE/FREQ 571 NELION=ABS(IELION/10) WLVAC=EXP(IWL*RATIOLG) IF(WLVAC.LT.START)GO TO 600 IF(WLVAC.GT.STOP)GO TO 600 CGF=.026538/1.77245/2.99792458E17*WLVAC*TABLOG(IGFLOG) ELO=TABLOG(IELO) DO 580 J=8,NRHOX,8 CENTER=CGF*XNFDOP(J,NELION) IF(CENTER.LT.TABCONT(J,NUCONT))GO TO 580 CENTER=CENTER*FASTEX(ELO*HCKT4(J)) IF(CENTER.LT.TABCONT(J,NUCONT))GO TO 580 GAMMAR=TABLOG(IGR)*WLVAC/12.5664/2.99792458E17 GAMMAS=TABLOG(IGS)*WLVAC/12.5664/2.99792458E17 GAMMAW=TABLOG(IGW)*WLVAC/12.5664/2.99792458E17 GO TO 581 580 CONTINUE GO TO 600 581 WRITE(13)WWWWWWW LINEUSED=LINEUSED+1 600 CONTINUE 601 PRINT 8888,LINE,LINEUSED CLOSE(UNIT=12) RETURN END SUBROUTINE LINOP1 IMPLICIT REAL*4 (A-H,O-Z) PARAMETER (kw=72,mion=1006) PARAMETER (kw1=kw+1) REAL*8 ABUND,ATMASS,YABUND REAL*8 FREQ,FREQLG,EHVKT,STIM,BNU,WAVE,WAVENO REAL*8 RHOX,P,XNE,XNATOM,RHO,CHARGESQ REAL*8 WAVETAB REAL*8 T,TKEV,TK,HKT,HCKT,TLOG REAL*8 XABUND,WTMOLE,XISO,AMASSISO,XRELATIVE REAL*8 WAVESET,RCOSET,RATIOLG,WLVAC REAL*8 XNF,XNFP,XNH2 COMMON /ELEM/ABUND(99),ATMASS(99),YABUND(99),ELEM(99) CHARACTER*2 ELEM COMMON /EXTAB/EXTAB(1001),EXTABF(1001),E1TAB(2000) COMMON /H1TAB/H0TAB(2001),H1TAB(2001),H2TAB(2001) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /FRESET/WAVESET(30000),RCOSET(30000),NULO,NUHI,NUMNU,NUSTEP COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TABCONT/TABCONT(kw,344),WAVETAB(344),IWAVETAB(344) COMMON /TABLOG/TABLOG(32768) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XLINES/XLINES(kw,30000) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) COMMON /XNFDOP/XNFDOP(kw,mion),DOPPLE(kw,mion) INTEGER*2 IELION,IELO,IGFLOG,IGR,IGS,IGW COMMON /IIIIIII/IWL,IELION,IELO,IGFLOG,IGR,IGS,IGW COMMON /WWWWWWW/WLVAC,NELION,CGF,ELO,GAMMAR,GAMMAS,GAMMAW REAL*8 WWWWWWW(4) INTEGER*4 IIIIIII(4) EQUIVALENCE (IIIIIII(1),IWL),(WWWWWWW(1),WLVAC) INTEGER*4 IFJ(kw1) REAL*4 TXNXN(kw),XNE4(kw),HCKT4(kw) FASTEX(X)=EXTAB(INT(X)+1)*EXTABF(INT((X-REAL(INT(X)))*1000.+1.5)) IFJ(1)=0 RATIOLG=LOG(1.D0+1.D0/2000000.D0) DO 9 NU=1,NUMNU DO 9 J=1,NRHOX 9 XLINES(J,NU)=0. DO 10 J=1,NRHOX XNE4(J)=XNE(J) HCKT4(J)=HCKT(J) 10 TXNXN(J)=(XNF(J,1)+.42*XNF(J,3)+.85*XNF(J,841))*(T(J)/10000.)**.3 NUCONT=1 NU=1 REWIND 12 LINEUSED=0 DO 600 LINE=1,500000000 READ(12,END=601)IIIIIII IF(MOD(LINE,100000).EQ.1) 1PRINT 8888,LINE,IWL,IELION,IELO,IGFLOG,IGR,IGS,IGW 8888 FORMAT(8I15) 570 IF(IWL.LT.IWAVETAB(NUCONT))GO TO 571 C PRINT 8888,IWL,LINE,NU,IWAVETAB(NUCONT) NUCONT=NUCONT+1 GO TO 570 C LINECEN=.026538/1.77245*GF*EXP(-ELO/HCKT)*STIM*XNFP/RHO/DOPPLE/FREQ 571 NELION=ABS(IELION/10) WLVAC=EXP(IWL*RATIOLG) 572 IF(WLVAC.LT.WAVESET(NU))GO TO 573 NU=NU+1 IF(NU.LT.NUMNU)GO TO 572 C THE LAST POINT MAY BE MISSING BLUE LINE WINGS GO TO 601 573 CGF=.026538/1.77245/2.99792458E17*WLVAC*TABLOG(IGFLOG) ELO=TABLOG(IELO) ADAMP=0. C IF(MOD(LINE,10000).EQ.1) C 1PRINT 3333,LINE,NU,WLVAC,WAVESET(NU),CGF,ELO,GAMMAR,GAMMAS,GAMMAW 3333 FORMAT(2I10,2F12.6,1P5E12.3) IFLINE=0 DO 580 J=8,NRHOX,8 IFJ(J+1)=0 CENTER=CGF*XNFDOP(J,NELION) IF(CENTER.LT.TABCONT(J,NUCONT))GO TO 580 CENTER=CENTER*FASTEX(ELO*HCKT4(J)) IF(CENTER.LT.TABCONT(J,NUCONT))GO TO 580 IFJ(J+1)=1 IFLINE=1 IF(ADAMP.EQ.0.)THEN GAMMAR=TABLOG(IGR)*WLVAC/12.5664/2.99792458E17 GAMMAS=TABLOG(IGS)*WLVAC/12.5664/2.99792458E17 GAMMAW=TABLOG(IGW)*WLVAC/12.5664/2.99792458E17 ENDIF ADAMP=(GAMMAR+GAMMAS*XNE4(J)+GAMMAW*TXNXN(J))/DOPPLE(J,NELION) DOPWAVE=DOPPLE(J,NELION)*WLVAC IF(ADAMP.GT..20)GO TO 575 C RED WING DO 557 IW=NU,MIN(NU+100,NUMNU) VVOIGT=SNGL(WAVESET(IW)-WLVAC)/DOPWAVE IF(VVOIGT.GT.10.)THEN CV=CENTER*.5642*ADAMP/VVOIGT**2 ELSE IV=VVOIGT*200.+1.5 CV=CENTER*((H2TAB(IV)*ADAMP+H1TAB(IV))*ADAMP+H0TAB(IV)) ENDIF XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 558 557 CONTINUE C BLUE WING 558 DO 559 I=1,100 IW=NU-I IF(IW.LE.0)GO TO 580 VVOIGT=SNGL(WLVAC-WAVESET(IW))/DOPWAVE IF(VVOIGT.GT.10.)THEN CV=CENTER*.5642*ADAMP/VVOIGT**2 ELSE IV=VVOIGT*200.+1.5 CV=CENTER*((H2TAB(IV)*ADAMP+H1TAB(IV))*ADAMP+H0TAB(IV)) ENDIF XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 580 559 CONTINUE GO TO 580 C RED WING 575 DO 577 IW=NU,MIN(NU+100,NUMNU) CV=CENTER*VOIGT(SNGL(WAVESET(IW)-WLVAC)/DOPWAVE,ADAMP) XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 578 577 CONTINUE C BLUE WING 578 DO 579 I=1,100 IW=NU-I IF(IW.LE.0)GO TO 580 CV=CENTER*VOIGT(SNGL(WLVAC-WAVESET(IW))/DOPWAVE,ADAMP) XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 580 579 CONTINUE 580 CONTINUE 581 DO 591 K=8,NRHOX,8 IF(IFJ(K-7)+IFJ(K+1).EQ.0)GO TO 591 DO 590 J=K-7,K-1 CENTER=CGF*XNFDOP(J,NELION) IF(CENTER.LT.TABCONT(J,NUCONT))GO TO 590 CENTER=CENTER*FASTEX(ELO*HCKT4(J)) IF(CENTER.LT.TABCONT(J,NUCONT))GO TO 590 ADAMP=(GAMMAR+GAMMAS*XNE4(J)+GAMMAW*TXNXN(J))/DOPPLE(J,NELION) DOPWAVE=DOPPLE(J,NELION)*WLVAC IF(ADAMP.GT..20)GO TO 585 C RED WING DO 567 IW=NU,MIN(NU+100,NUMNU) VVOIGT=SNGL(WAVESET(IW)-WLVAC)/DOPWAVE IF(VVOIGT.GT.10.)THEN CV=CENTER*.5642*ADAMP/VVOIGT**2 ELSE IV=VVOIGT*200.+1.5 CV=CENTER*((H2TAB(IV)*ADAMP+H1TAB(IV))*ADAMP+H0TAB(IV)) ENDIF XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 568 567 CONTINUE C BLUE WING 568 DO 569 I=1,100 IW=NU-I IF(IW.LE.0)GO TO 590 VVOIGT=SNGL(WLVAC-WAVESET(IW))/DOPWAVE IF(VVOIGT.GT.10.)THEN CV=CENTER*.5642*ADAMP/VVOIGT**2 ELSE IV=VVOIGT*200.+1.5 CV=CENTER*((H2TAB(IV)*ADAMP+H1TAB(IV))*ADAMP+H0TAB(IV)) ENDIF XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 590 569 CONTINUE GO TO 590 C RED WING 585 DO 587 IW=NU,MIN(NU+100,NUMNU) CV=CENTER*VOIGT(SNGL(WAVESET(IW)-WLVAC)/DOPWAVE,ADAMP) XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 588 587 CONTINUE C BLUE WING 588 DO 589 I=1,100 IW=NU-I IF(IW.LE.0)GO TO 590 CV=CENTER*VOIGT(SNGL(WLVAC-WAVESET(IW))/DOPWAVE,ADAMP) XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 590 589 CONTINUE 590 CONTINUE 591 CONTINUE IF(IFLINE.EQ.1)THEN WRITE(13)WWWWWWW LINEUSED=LINEUSED+1 ENDIF 600 CONTINUE 601 CONTINUE PRINT 8888,LINE,LINEUSED CLOSE(UNIT=12) RETURN END SUBROUTINE LINOP IMPLICIT REAL*4 (A-H,O-Z) PARAMETER (kw=72,mion=1006) PARAMETER (kw1=kw+1) REAL*8 ABUND,ATMASS,YABUND REAL*8 FREQ,FREQLG,EHVKT,STIM,BNU,WAVE,WAVENO REAL*8 RHOX,P,XNE,XNATOM,RHO,CHARGESQ REAL*8 WAVETAB REAL*8 T,TKEV,TK,HKT,HCKT,TLOG REAL*8 XABUND,WTMOLE,XISO,AMASSISO,XRELATIVE REAL*8 WAVESET,RCOSET,RATIOLG,WLVAC REAL*8 XNF,XNFP,XNH2 COMMON /ELEM/ABUND(99),ATMASS(99),YABUND(99),ELEM(99) CHARACTER*2 ELEM COMMON /EXTAB/EXTAB(1001),EXTABF(1001),E1TAB(2000) COMMON /H1TAB/H0TAB(2001),H1TAB(2001),H2TAB(2001) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /FRESET/WAVESET(30000),RCOSET(30000),NULO,NUHI,NUMNU,NUSTEP COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TABCONT/TABCONT(kw,344),WAVETAB(344),IWAVETAB(344) COMMON /TABLOG/TABLOG(32768) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XLINES/XLINES(kw,30000) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) COMMON /XNFDOP/XNFDOP(kw,mion),DOPPLE(kw,mion) INTEGER*2 IELION,IELO,IGFLOG,IGR,IGS,IGW COMMON /IIIIIII/IWL,IELION,IELO,IGFLOG,IGR,IGS,IGW COMMON /WWWWWWW/WLVAC,NELION,CGF,ELO,GAMMAR,GAMMAS,GAMMAW REAL*8 WWWWWWW(4) INTEGER*4 IIIIIII(4) EQUIVALENCE (IIIIIII(1),IWL),(WWWWWWW(1),WLVAC) INTEGER*4 IFJ(kw1) REAL*4 TXNXN(kw),XNE4(kw),HCKT4(kw) FASTEX(X)=EXTAB(INT(X)+1)*EXTABF(INT((X-REAL(INT(X)))*1000.+1.5)) IFJ(1)=0 DO 9 NU=1,NUMNU DO 9 J=1,NRHOX 9 XLINES(J,NU)=0. DO 10 J=1,NRHOX XNE4(J)=XNE(J) HCKT4(J)=HCKT(J) 10 TXNXN(J)=(XNF(J,1)+.42*XNF(J,3)+.85*XNF(J,841))*(T(J)/10000.)**.3 NUCONT=1 NU=1 REWIND 13 DO 600 LINE=1,500000000 READ(13,END=601)WWWWWWW IF(MOD(LINE,100000).EQ.1) 1PRINT 8889,LINE,WLVAC,NELION,CGF,ELO,GAMMAR,GAMMAS,GAMMAW 8889 FORMAT(I10,F15.4,I10,1P5E12.3) 8888 FORMAT(8I15) 570 IF(WLVAC.LT.WAVETAB(NUCONT))GO TO 572 NUCONT=NUCONT+1 GO TO 570 C LINECEN=.026538/1.77245*GF*EXP(-ELO/HCKT)*STIM*XNFP/RHO/DOPPLE/FREQ 572 IF(WLVAC.LT.WAVESET(NU))GO TO 573 NU=NU+1 IF(NU.LT.NUMNU)GO TO 572 C THE LAST POINT MAY BE MISSING BLUE LINE WINGS GO TO 601 573 DO 580 J=8,NRHOX,8 IFJ(J+1)=0 CENTER=CGF*XNFDOP(J,NELION) IF(CENTER.LT.TABCONT(J,NUCONT))GO TO 580 CENTER=CENTER*FASTEX(ELO*HCKT4(J)) IF(CENTER.LT.TABCONT(J,NUCONT))GO TO 580 IFJ(J+1)=1 ADAMP=(GAMMAR+GAMMAS*XNE4(J)+GAMMAW*TXNXN(J))/DOPPLE(J,NELION) DOPWAVE=DOPPLE(J,NELION)*WLVAC IF(ADAMP.GT..20)GO TO 575 C RED WING DO 557 IW=NU,MIN(NU+100,NUMNU) VVOIGT=SNGL(WAVESET(IW)-WLVAC)/DOPWAVE IF(VVOIGT.GT.10.)THEN CV=CENTER*.5642*ADAMP/VVOIGT**2 ELSE IV=VVOIGT*200.+1.5 CV=CENTER*((H2TAB(IV)*ADAMP+H1TAB(IV))*ADAMP+H0TAB(IV)) ENDIF XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 558 557 CONTINUE C BLUE WING 558 DO 559 I=1,100 IW=NU-I IF(IW.LE.0)GO TO 580 VVOIGT=SNGL(WLVAC-WAVESET(IW))/DOPWAVE IF(VVOIGT.GT.10.)THEN CV=CENTER*.5642*ADAMP/VVOIGT**2 ELSE IV=VVOIGT*200.+1.5 CV=CENTER*((H2TAB(IV)*ADAMP+H1TAB(IV))*ADAMP+H0TAB(IV)) ENDIF XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 580 559 CONTINUE GO TO 580 C RED WING 575 DO 577 IW=NU,MIN(NU+100,NUMNU) CV=CENTER*VOIGT(SNGL(WAVESET(IW)-WLVAC)/DOPWAVE,ADAMP) XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 578 577 CONTINUE C BLUE WING 578 DO 579 I=1,100 IW=NU-I IF(IW.LE.0)GO TO 580 CV=CENTER*VOIGT(SNGL(WLVAC-WAVESET(IW))/DOPWAVE,ADAMP) XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 580 579 CONTINUE 580 CONTINUE 581 DO 591 K=8,NRHOX,8 IF(IFJ(K-7)+IFJ(K+1).EQ.0)GO TO 591 DO 590 J=K-7,K-1 CENTER=CGF*XNFDOP(J,NELION) IF(CENTER.LT.TABCONT(J,NUCONT))GO TO 590 CENTER=CENTER*FASTEX(ELO*HCKT4(J)) IF(CENTER.LT.TABCONT(J,NUCONT))GO TO 590 ADAMP=(GAMMAR+GAMMAS*XNE4(J)+GAMMAW*TXNXN(J))/DOPPLE(J,NELION) DOPWAVE=DOPPLE(J,NELION)*WLVAC IF(ADAMP.GT..20)GO TO 585 C RED WING DO 567 IW=NU,MIN(NU+100,NUMNU) VVOIGT=SNGL(WAVESET(IW)-WLVAC)/DOPWAVE IF(VVOIGT.GT.10.)THEN CV=CENTER*.5642*ADAMP/VVOIGT**2 ELSE IV=VVOIGT*200.+1.5 CV=CENTER*((H2TAB(IV)*ADAMP+H1TAB(IV))*ADAMP+H0TAB(IV)) ENDIF XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 568 567 CONTINUE C BLUE WING 568 DO 569 I=1,100 IW=NU-I IF(IW.LE.0)GO TO 590 VVOIGT=SNGL(WLVAC-WAVESET(IW))/DOPWAVE IF(VVOIGT.GT.10.)THEN CV=CENTER*.5642*ADAMP/VVOIGT**2 ELSE IV=VVOIGT*200.+1.5 CV=CENTER*((H2TAB(IV)*ADAMP+H1TAB(IV))*ADAMP+H0TAB(IV)) ENDIF XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 590 569 CONTINUE GO TO 590 C RED WING 585 DO 587 IW=NU,MIN(NU+100,NUMNU) CV=CENTER*VOIGT(SNGL(WAVESET(IW)-WLVAC)/DOPWAVE,ADAMP) XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 588 587 CONTINUE C BLUE WING 588 DO 589 I=1,100 IW=NU-I IF(IW.LE.0)GO TO 590 CV=CENTER*VOIGT(SNGL(WLVAC-WAVESET(IW))/DOPWAVE,ADAMP) XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 590 589 CONTINUE 590 CONTINUE 591 CONTINUE 600 CONTINUE 601 CONTINUE PRINT 8888,LINE RETURN END SUBROUTINE XLISOP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /OPS/D1(kw,17),SIGXL(kw),D2(kw,7) C DUMMY LINE SCATTERING ROUTINE RETURN END SUBROUTINE XCONOP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /OPS/D1(kw,18),AXCONT(kw),D2(kw,5),SXCONT(kw) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, 1 IFTURB DO 25 J=1,NRHOX AXCONT(J)=ROSSTAB(T(J),P(J),VTURB(J)) 25 SXCONT(J)=5.667E-5/12.5664*T(J)**4*4. RETURN END SUBROUTINE XSOP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /OPS/D1(kw,19),SIGX(kw),D2(kw,5) C DUMMY SCATTERING ROUTINE RETURN END SUBROUTINE JOSH(IFSCAT,IFSURF) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) C IFSCAT=1 SOLVE INTEGRAL EQUATION FOR SOURCE FUNCTION C IFSCAT=0 SET SNU=SBAR C IFSURF=0 CALCULATE J AND H C IFSURF=1 CALCULATE SURFACE FLUX C IFSURF=2 CALCULATE SURFACE SPECIFIC INTENSITY COMMON /ABTOT/ABTOT(kw),ALPHA(kw) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /MATX/COEFJ(51,51),COEFH(51,51),XTAU(51),NXTAU REAL*4 COEFJ,COEFH,XTAU COMMON /MUS/ANGLE(20),SURFI(20),NMU COMMON /OPTOT/ACONT(kw),SCONT(kw),ALINE(kw),SLINE(kw),SIGMAC(kw), 1 SIGMAL(kw) COMMON /PRD/PRDDOP,PRDPOW,ITPRD,NITPRD,SIGPRD(kw),NUPRD,LINPRD COMMON /PZERO/PZERO,PCON,PRAD0,PTURB0,KNU(kw),PRADK(kw),RADEN(kw) REAL*8 KNU COMMON /RHOX/RHOX(kw),NRHOX COMMON /TAUSHJ/TAUNU(kw),SNU(kw),HNU(kw),JNU(kw),JMINS(kw) REAL*8 JNU,JMINS REAL*4 XS(51),XSBAR(51),XALPHA(51),DIAG(51),XH(51),XJS(51) REAL*4 CK(51),CH(51),DELXS,ERRORX,XJ,XBETA(51),XK REAL*8 XSBAR8(51),XALPHA8(51),XS8(51),XH8(51),XJS8(51),XTAU8(51) REAL*8 XBETA8(51) REAL*8 BETA(kw) REAL*8 A(kw),B(kw),C(kw),SNUBAR(kw),CTWO(kw),B2CT(kw),B2CT1(kw) REAL*8 EXTAU(51,20),NEW DATA CH/ 1 7.15528131E-07, 1.49142693E-06, 1.52106577E-06, 2.98150826E-06, 2 5.33941056E-06, 9.13329677E-06, 1.61715943E-05, 2.97035986E-05, 3 5.33166603E-05, 9.11154202E-05, 1.61084638E-04, 2.95118050E-04, 4 5.27450291E-04, 8.67939554E-04, 1.61498412E-03, 2.50720908E-03, 5 3.20994272E-03, 5.61912498E-03, 8.60872678E-03, 1.04706492E-02, 6 1.33110350E-02, 1.62635669E-02, 1.90288834E-02, 2.18877215E-02, 7 2.36015432E-02, 2.10819542E-02, 1.80345085E-02, 1.64786074E-02, 8 1.49382707E-02, 1.19676525E-02, 9.90213640E-03, 8.17766134E-03, 8 6.11252524E-03, 4.84035723E-03, 3.06078210E-03, 2.40512565E-03, 9 2.01712688E-03, 1.33288081E-03, 7.83530239E-04, 4.31428343E-04, T 1.76504589E-04, 4.75738016E-05, 1.65963702E-05, 5.41117970E-06, 1 2.08043571E-06, 7.11612643E-07, 8.08788982E-08, 1.95130507E-08, 3 4.33638281E-09, 8.87765583E-10, 3.90236420E-11/ DATA CK/ 1 3.57771910E-07, 7.45730404E-07, 7.60575176E-07, 1.49091113E-06, 2 2.67016185E-06, 4.56793896E-06, 8.08956065E-06, 1.48632944E-05, 3 2.66928291E-05, 4.56529851E-05, 8.08134864E-05, 1.48363324E-04, 4 2.66052346E-04, 4.39771306E-04, 8.25088180E-04, 1.29440730E-03, 5 1.67680858E-03, 2.98973685E-03, 4.68314718E-03, 5.84855257E-03, 6 7.64854718E-03, 9.63155832E-03, 1.16419578E-02, 1.38551742E-02, 7 1.54840983E-02, 1.42877987E-02, 1.25930300E-02, 1.17983138E-02, 8 1.09717194E-02, 8.98320694E-03, 7.59950886E-03, 6.38808031E-03, 9 4.86854184E-03, 3.91568616E-03, 2.51398841E-03, 2.00142385E-03, T 1.70069211E-03, 1.14058319E-03, 6.80292083E-04, 3.80097074E-04, 1 1.57705377E-04, 4.31706540E-05, 1.51795348E-05, 4.98576401E-06, 2 1.92979223E-06, 6.63957223E-07, 7.65236692E-08, 1.84933668E-08, 3 4.12596224E-09, 8.47334369E-10, 3.81791959E-11/ DATA XTAU8/0.,.0000032,.0000056,.00001,.000018,.000032,.000056, 1.0001,.00018,.00032,.00056,.001,.0018,.0032,.0056,.01,.016,.025, 2.042,.065,.096,.139,.196,.273,.375,.5,.63,.78,.95,1.15,1.35,1.6, 3 1.85,2.15,2.45,2.75,3.15,3.65,4.25,5.0,6.,7.,8.,9.,10.,11.5, 4 13.,14.5,16.,18.,20./ DATA EXTAU/1020*0./ DO 10 J=1,NRHOX ABTOT(J)=ACONT(J)+ALINE(J)+SIGMAC(J)+SIGMAL(J) ALPHA(J)=(SIGMAC(J)+SIGMAL(J))/ABTOT(J) C ALPHA(J)=(SIGMAC(J)+SIGMAL(J)+SIGPRD(J))/ABTOT(J) C BETA(J)=(ACONT(J)+ALINE(J))/ABTOT(J) 10 SNUBAR(J)=(ACONT(J)*SCONT(J)+ALINE(J)*SLINE(J))/ 1(ACONT(J)+ALINE(J)) CALL INTEG(RHOX,ABTOT,TAUNU,NRHOX,ABTOT(1)*RHOX(1)) MAXJ=0 IF(IFSCAT.EQ.1)GO TO 30 C DO 20 J=1,NRHOX 20 SNU(J)=SNUBAR(J) IF(IFSURF.EQ.2)GO TO 70 MAXJ=MAP1(TAUNU,SNU,NRHOX,XTAU8,XS8,NXTAU) DO 22 L=1,NXTAU 22 XS(L)=XS8(L) IF(IFSURF.EQ.1)GO TO 60 DO 21 J=1,NRHOX 21 ALPHA(J)=0. C 30 IF(TAUNU(1).GT.XTAU8(NXTAU))MAXJ=1 IF(MAXJ.EQ.1)GO TO 401 MAXJ=MAP1(TAUNU,SNUBAR,NRHOX,XTAU8,XSBAR8,NXTAU) MAXJ=MAP1(TAUNU,ALPHA,NRHOX,XTAU8,XALPHA8,NXTAU) C MAXJ=MAP1(TAUNU,BETA,NRHOX,XTAU8,XBETA8,NXTAU) DO 31 L=1,NXTAU C IN CASE OF BAD INTERPOLATION XALPHA(L)=MAX(XALPHA8(L),0.D0) XSBAR(L)=MAX(XSBAR8(L),1.D-38) C XBETA(L)=MAX(XBETA8(L),0.D0) IF(XTAU8(L).LT.TAUNU(1))THEN XSBAR(L)=MAX(SNUBAR(1),1.D-38) XALPHA(L)=MAX(ALPHA(1),0.D0) C XBETA(L)=MAX(BETA(1),0.D0) ENDIF XS(L)=XSBAR(L) DIAG(L)=1.-XALPHA(L)*COEFJ(L,L) C 31 XSBAR(L)=XBETA(L)*XSBAR(L) 31 XSBAR(L)=(1.-XALPHA(L))*XSBAR(L) C THE LIMIT ON DO 34, THE MAXIMUM NUMBER OF ITERATIONS, IS ARBITRARY DO 34 L=1,NXTAU IFERR=0 K=NXTAU+1 DO 33 KK=1,NXTAU K=K-1 DELXS=0. DO 32 M=1,NXTAU 32 DELXS=DELXS+COEFJ(K,M)*XS(M) DELXS=(DELXS*XALPHA(K)+XSBAR(K)-XS(K))/DIAG(K) ERRORX=ABS(DELXS/XS(K)) IF(ERRORX.GT..00001)IFERR=1 33 XS(K)=MAX(XS(K)+DELXS,1.E-38) 39 IF(IFERR.EQ.0)GO TO 35 34 CONTINUE C 35 IF(IFSURF.EQ.1)GO TO 60 DO 305 M=1,NXTAU 305 XS8(M)=XS(M) IF(IFSURF.EQ.2)GO TO 670 MDUMMY=MAP1(XTAU8,XS8,NXTAU,TAUNU,SNU,MAXJ) IF(MAXJ.EQ.NRHOX)GO TO 46 401 MAXJ1=MAXJ+1 IF(MAXJ.EQ.1)MAXJ1=1 DO 40 J=MAXJ1,NRHOX 40 SNU(J)=SNUBAR(J) M=MAX0(MAXJ-1,1) NM1=NRHOX-M+1 NMJ=NRHOX-MAXJ+1 C THE LIMIT ON DO 45 IS ARBITRARY DO 45 L=1,NXTAU ERROR=0. IFNEG=0 DO 442 J=M,NRHOX IF(SNU(J).LE.0.)THEN IFNEG=1 DO 440 JJ=M,NRHOX SNUBAR(JJ)=BNU(JJ) 440 SNU(JJ)=BNU(JJ) GO TO 441 ENDIF 442 CONTINUE 441 CONTINUE CALL DERIV(TAUNU(M),SNU(M),HNU(M),NM1) DO 444 J=M,NRHOX IF(HNU(J).LE.0.)THEN IFNEG=1 DO 443 JJ=M,NRHOX SNUBAR(JJ)=BNU(JJ) 443 SNU(JJ)=BNU(JJ) CALL DERIV(TAUNU(M),SNU(M),HNU(M),NM1) GO TO 445 ENDIF 444 CONTINUE 445 CONTINUE DO 41 J=M,NRHOX 41 HNU(J)=HNU(J)/3. CALL DERIV(TAUNU(MAXJ),HNU(MAXJ),JMINS(MAXJ),NMJ) DO 43 J=MAXJ1,NRHOX IF(IFNEG.EQ.1)JMINS(J)=0.0 JNU(J)=JMINS(J)+SNU(J) C SNEW=BETA(J)*SNUBAR(J)+ALPHA(J)*JNU(J) SNEW=(1.-ALPHA(J))*SNUBAR(J)+ALPHA(J)*JNU(J) ERROR=ABS(SNEW-SNU(J))/SNEW+ERROR 43 SNU(J)=SNEW IF(ERROR.LT..00001)GO TO 46 45 CONTINUE 46 IF(IFSURF.EQ.2)GO TO 70 IF(MAXJ.EQ.1)THEN KNU(1)=JNU(1)/3. RETURN ENDIF C 50 DO 51 L=1,NXTAU XJS(L)=-XS(L) DO 501 M=1,NXTAU 501 XJS(L)=XJS(L)+COEFJ(L,M)*XS(M) XJS8(L)=XJS(L) XH(L)=0. DO 502 M=1,NXTAU 502 XH(L)=XH(L)+COEFH(L,M)*XS(M) 51 XH8(L)=XH(L) MDUMMY=MAP1(XTAU8,XJS8,NXTAU,TAUNU,JMINS,MAXJ) MDUMMY=MAP1(XTAU8,XH8,NXTAU,TAUNU,HNU,MAXJ) XK=0. DO 52 M=1,NXTAU 52 XK=XK+CK(M)*XS(M) KNU(1)=XK DO 53 J=1,MAXJ SNU(J)=MAX(SNU(J),1.D-38) 53 JNU(J)=MAX(JMINS(J)+SNU(J),1.D-38) RETURN C 60 XH(1)=0. DO 61 M=1,NXTAU 61 XH(1)=XH(1)+CH(M)*XS(M) HNU(1)=XH(1) RETURN C C ASSUMES REAL*8 AND LARGE EXPONENT RANGE 670 CALL PARCOE(XS8,XTAU8,A,B,C,NXTAU) N1=NXTAU-1 DO 671 J=1,NXTAU CTWO(J)=C(J)*2. 671 B2CT(J)=B(J)+CTWO(J)*XTAU8(J) DO 672 J=1,N1 672 B2CT1(J)=B(J)+CTWO(J)*XTAU8(J+1) IF(EXTAU(1,1).EQ.0.)THEN DO 673 MU=1,NMU DO 673 J=1,NXTAU TANGLE=XTAU8(J)/ANGLE(MU) IF(TANGLE.LT.300.)EXTAU(J,MU)=EXP(-TANGLE) 673 CONTINUE ENDIF DO 675 MU=1,NMU SURFI(MU)=0. DO 674 J=1,N1 IF(EXTAU(J,MU).EQ.0.)GO TO 675 674 SURFI(MU)=SURFI(MU)+ 1EXTAU(J,MU)*(XS8(J)+(B2CT(J)+CTWO(J)*ANGLE(MU))*ANGLE(MU))- 2EXTAU(J+1,MU)*(XS8(J+1)+(B2CT1(J)+CTWO(J)*ANGLE(MU))*ANGLE(MU)) SURFI(MU)=SURFI(MU)+EXTAU(NXTAU,MU)*(XS8(NXTAU)+(B2CT(NXTAU)+ 1CTWO(NXTAU)*ANGLE(MU))*ANGLE(MU)) 675 CONTINUE RETURN C 70 CALL PARCOE(SNU,TAUNU,A,B,C,NRHOX) N1=NRHOX-1 DO 71 J=1,NRHOX CTWO(J)=C(J)*2. 71 B2CT(J)=B(J)+CTWO(J)*TAUNU(J) DO 710 J=1,N1 710 B2CT1(J)=B(J)+CTWO(J)*TAUNU(J+1) DO 75 MU=1,NMU OLD=1. SUM=0. DO 73 J=1,N1 TANGLE=TAUNU(J+1)/ANGLE(MU) NEW=EXP(-TANGLE) D=TANGLE-TAUNU(J)/ANGLE(MU) IF(D.LE..03)GO TO 72 SUM=SUM+OLD*(SNU(J)+(B2CT(J)+CTWO(J)*ANGLE(MU))*ANGLE(MU))- 1 NEW*(SNU(J+1)+(B2CT1(J)+CTWO(J)*ANGLE(MU))*ANGLE(MU)) C REAL*4 C IF(TANGLE.LT.50.)GO TO 73 C REAL*8 G-FLOATING IF(TANGLE.LT.300.)GO TO 73 SURFI(MU)=SUM GO TO 75 72 DDDDD=1. IF(D.GT..001)DDDDD=((((D/9.+1.)*D/8.+1.)*D/7.+1.)*D/6.+1.)*D/5.+1. SUM=SUM+NEW*(SNU(J)+(SNU(J)+B2CT(J)*ANGLE(MU)+(SNU(J)+(B2CT(J)+ 1CTWO(J)*ANGLE(MU))*ANGLE(MU))*(DDDDD*D/4.+1.)*D/3.)*D/2.)*D 73 OLD=NEW SURFI(MU)=SUM+OLD*(SNU(NRHOX)+(B2CT(NRHOX)+CTWO(NRHOX)*ANGLE(MU))* 1ANGLE(MU)) 75 CONTINUE RETURN END SUBROUTINE BLOCKJ COMMON /MATX/CJ(2601),CH(2601),XTAU(51),NXTAU DIMENSION CJ 1(36),CJ 2(36),CJ 3(36),CJ 4(36),CJ 5(36) DIMENSION CJ 6(36),CJ 7(36),CJ 8(36),CJ 9(36),CJ 10(36) DIMENSION CJ 11(36),CJ 12(36),CJ 13(36),CJ 14(36),CJ 15(36) DIMENSION CJ 16(36),CJ 17(36),CJ 18(36),CJ 19(36),CJ 20(36) DIMENSION CJ 21(36),CJ 22(36),CJ 23(36),CJ 24(36),CJ 25(36) DIMENSION CJ 26(36),CJ 27(36),CJ 28(36),CJ 29(36),CJ 30(36) DIMENSION CJ 31(36),CJ 32(36),CJ 33(36),CJ 34(36),CJ 35(36) DIMENSION CJ 36(36),CJ 37(36),CJ 38(36),CJ 39(36),CJ 40(36) DIMENSION CJ 41(36),CJ 42(36),CJ 43(36),CJ 44(36),CJ 45(36) DIMENSION CJ 46(36),CJ 47(36),CJ 48(36),CJ 49(36),CJ 50(36) DIMENSION CJ 51(36),CJ 52(36),CJ 53(36),CJ 54(36),CJ 55(36) DIMENSION CJ 56(36),CJ 57(36),CJ 58(36),CJ 59(36),CJ 60(36) DIMENSION CJ 61(36),CJ 62(36),CJ 63(36),CJ 64(36),CJ 65(36) DIMENSION CJ 66(36),CJ 67(36),CJ 68(36),CJ 69(36),CJ 70(36) DIMENSION CJ 71(36),CJ 72(36),CJ 73( 9) EQUIVALENCE (CJ 1(1),CJ ( 1)),(CJ 2(1),CJ ( 37)) EQUIVALENCE (CJ 3(1),CJ ( 73)),(CJ 4(1),CJ ( 109)) EQUIVALENCE (CJ 5(1),CJ ( 145)),(CJ 6(1),CJ ( 181)) EQUIVALENCE (CJ 7(1),CJ ( 217)),(CJ 8(1),CJ ( 253)) EQUIVALENCE (CJ 9(1),CJ ( 289)),(CJ 10(1),CJ ( 325)) EQUIVALENCE (CJ 11(1),CJ ( 361)),(CJ 12(1),CJ ( 397)) EQUIVALENCE (CJ 13(1),CJ ( 433)),(CJ 14(1),CJ ( 469)) EQUIVALENCE (CJ 15(1),CJ ( 505)),(CJ 16(1),CJ ( 541)) EQUIVALENCE (CJ 17(1),CJ ( 577)),(CJ 18(1),CJ ( 613)) EQUIVALENCE (CJ 19(1),CJ ( 649)),(CJ 20(1),CJ ( 685)) EQUIVALENCE (CJ 21(1),CJ ( 721)),(CJ 22(1),CJ ( 757)) EQUIVALENCE (CJ 23(1),CJ ( 793)),(CJ 24(1),CJ ( 829)) EQUIVALENCE (CJ 25(1),CJ ( 865)),(CJ 26(1),CJ ( 901)) EQUIVALENCE (CJ 27(1),CJ ( 937)),(CJ 28(1),CJ ( 973)) EQUIVALENCE (CJ 29(1),CJ (1009)),(CJ 30(1),CJ (1045)) EQUIVALENCE (CJ 31(1),CJ (1081)),(CJ 32(1),CJ (1117)) EQUIVALENCE (CJ 33(1),CJ (1153)),(CJ 34(1),CJ (1189)) EQUIVALENCE (CJ 35(1),CJ (1225)),(CJ 36(1),CJ (1261)) EQUIVALENCE (CJ 37(1),CJ (1297)),(CJ 38(1),CJ (1333)) EQUIVALENCE (CJ 39(1),CJ (1369)),(CJ 40(1),CJ (1405)) EQUIVALENCE (CJ 41(1),CJ (1441)),(CJ 42(1),CJ (1477)) EQUIVALENCE (CJ 43(1),CJ (1513)),(CJ 44(1),CJ (1549)) EQUIVALENCE (CJ 45(1),CJ (1585)),(CJ 46(1),CJ (1621)) EQUIVALENCE (CJ 47(1),CJ (1657)),(CJ 48(1),CJ (1693)) EQUIVALENCE (CJ 49(1),CJ (1729)),(CJ 50(1),CJ (1765)) EQUIVALENCE (CJ 51(1),CJ (1801)),(CJ 52(1),CJ (1837)) EQUIVALENCE (CJ 53(1),CJ (1873)),(CJ 54(1),CJ (1909)) EQUIVALENCE (CJ 55(1),CJ (1945)),(CJ 56(1),CJ (1981)) EQUIVALENCE (CJ 57(1),CJ (2017)),(CJ 58(1),CJ (2053)) EQUIVALENCE (CJ 59(1),CJ (2089)),(CJ 60(1),CJ (2125)) EQUIVALENCE (CJ 61(1),CJ (2161)),(CJ 62(1),CJ (2197)) EQUIVALENCE (CJ 63(1),CJ (2233)),(CJ 64(1),CJ (2269)) EQUIVALENCE (CJ 65(1),CJ (2305)),(CJ 66(1),CJ (2341)) EQUIVALENCE (CJ 67(1),CJ (2377)),(CJ 68(1),CJ (2413)) EQUIVALENCE (CJ 69(1),CJ (2449)),(CJ 70(1),CJ (2485)) EQUIVALENCE (CJ 71(1),CJ (2521)),(CJ 72(1),CJ (2557)) EQUIVALENCE (CJ 73(1),CJ (2593)) DATA CJ 1/ 1 9.79744820E-06, 8.96296860E-06, 8.35934549E-06, 7.89335126E-06, 2 7.44161783E-06, 7.01338932E-06, 6.60406268E-06, 6.18398056E-06, 3 5.76053476E-06, 5.34734829E-06, 4.94621727E-06, 4.53113519E-06, 4 4.11083148E-06, 3.69997631E-06, 3.30117385E-06, 2.88937415E-06, 5 2.55730770E-06, 2.24433006E-06, 1.88506336E-06, 1.58859300E-06, 6 1.33086897E-06, 1.09505641E-06, 8.86720269E-07, 6.98736456E-07, 7 5.33933743E-07, 4.00542516E-07, 3.06250782E-07, 2.30467716E-07, 8 1.70827079E-07, 1.22755304E-07, 8.97411915E-08, 6.17573521E-08, 9 4.31436590E-08, 2.84810947E-08, 1.90445828E-08, 1.28647073E-08/ DATA CJ 2/ 1 7.72163607E-09, 4.14498085E-09, 2.00041016E-09, 8.21655030E-10, 2 2.57654521E-10, 8.26321572E-11, 2.69513765E-11, 8.90661828E-12, 3 2.97449037E-12, 5.83155356E-13, 1.16051514E-13, 2.33699420E-14, 4 4.75155459E-15, 5.75016867E-16, 7.03774182E-17, 1.84495605E-05, 5 2.04340585E-05, 1.83893753E-05, 1.67455934E-05, 1.56681842E-05, 6 1.47030431E-05, 1.38123877E-05, 1.29157909E-05, 1.20215185E-05, 7 1.11539807E-05, 1.03144214E-05, 9.44721432E-06, 8.57000031E-06, 8 7.71299640E-06, 6.88139393E-06, 6.02284144E-06, 5.33058911E-06, 9 4.67816358E-06, 3.92926961E-06, 3.31128764E-06, 2.77407705E-06/ DATA CJ 3/ 1 2.28254302E-06, 1.84828352E-06, 1.45644794E-06, 1.11293201E-06, 2 8.34890799E-07, 6.38348903E-07, 4.80386613E-07, 3.56071674E-07, 3 2.55870903E-07, 1.87056331E-07, 1.28726866E-07, 8.99285240E-08, 4 5.93659104E-08, 3.96964700E-08, 2.68151550E-08, 1.60949529E-08, 5 8.63978399E-09, 4.16964794E-09, 1.71265479E-09, 5.37054134E-10, 6 1.72238158E-10, 5.61773464E-11, 1.85649208E-11, 6.20001617E-12, 7 1.21552673E-12, 2.41897316E-13, 4.87122141E-14, 9.90412136E-15, 8 1.19856284E-15, 1.46694406E-16, 1.73787847E-05, 1.87918674E-05, 9 2.08999830E-05, 1.83387653E-05, 1.62807705E-05, 1.51671131E-05/ DATA CJ 4/ 1 1.41811027E-05, 1.32240507E-05, 1.22888417E-05, 1.13916825E-05, 2 1.05286937E-05, 9.64030881E-06, 8.74342375E-06, 7.86815095E-06, 3 7.01932516E-06, 6.14328580E-06, 5.43706123E-06, 4.77153058E-06, 4 4.00764123E-06, 3.37730951E-06, 2.82937491E-06, 2.32803523E-06, 5 1.88511642E-06, 1.48546973E-06, 1.13510730E-06, 8.51525287E-07, 6 6.51067057E-07, 4.89957364E-07, 3.63165556E-07, 2.60968439E-07, 7 1.90782877E-07, 1.31291340E-07, 9.17200485E-08, 6.05485677E-08, 8 4.04872778E-08, 2.73493468E-08, 1.64155829E-08, 8.81189759E-09, 9 4.25271133E-09, 1.74677236E-09, 5.47752673E-10, 1.75669266E-10/ DATA CJ 5/ 1 5.72964369E-11, 1.89347458E-11, 6.32352422E-12, 1.23974071E-12, 2 2.46716040E-13, 4.96825863E-14, 1.01014163E-14, 1.22243878E-15, 3 1.49616625E-16, 3.25551939E-05, 3.36923300E-05, 3.51339037E-05, 4 3.88807453E-05, 3.39978572E-05, 3.01736404E-05, 2.80557516E-05, 5 2.60587444E-05, 2.41623827E-05, 2.23709199E-05, 2.06616637E-05, 6 1.89100581E-05, 1.71462550E-05, 1.54274129E-05, 1.37618090E-05, 7 1.20435652E-05, 1.06587206E-05, 9.35383616E-06, 7.85622517E-06, 8 6.62051755E-06, 5.54637186E-06, 4.56358554E-06, 3.69533249E-06, 9 2.91191152E-06, 2.22510520E-06, 1.66920873E-06, 1.27625797E-06/ DATA CJ 6/ 1 9.60441144E-07, 7.11896566E-07, 5.11564087E-07, 3.73982533E-07, 2 2.57364048E-07, 1.79794324E-07, 1.18690371E-07, 7.93652009E-08, 3 5.36115600E-08, 3.21786438E-08, 1.72735185E-08, 8.33637456E-09, 4 3.42410898E-09, 1.07373157E-09, 3.44355456E-10, 1.12315261E-10, 5 3.71168073E-11, 1.23956785E-11, 2.43019968E-12, 4.83624689E-13, 6 9.73902009E-14, 1.98012828E-14, 2.39628331E-15, 2.93285700E-16, 7 5.51439894E-05, 5.61737699E-05, 5.70971222E-05, 5.97158543E-05, 8 6.64856520E-05, 5.78678247E-05, 5.11761113E-05, 4.71765037E-05, 9 4.35390905E-05, 4.02099897E-05, 3.70855896E-05, 3.39125099E-05/ DATA CJ 7/ 1 3.07335362E-05, 2.76442550E-05, 2.46552200E-05, 2.15743729E-05, 2 1.90924626E-05, 1.67544242E-05, 1.40714918E-05, 1.18579707E-05, 3 9.93395930E-06, 8.17364957E-06, 6.61851880E-06, 5.21535125E-06, 4 3.98524025E-06, 2.98960335E-06, 2.28581302E-06, 1.72017429E-06, 5 1.27502343E-06, 9.16222511E-07, 6.69810519E-07, 4.60944116E-07, 6 3.22015062E-07, 2.12576632E-07, 1.42144487E-07, 9.60192338E-08, 7 5.76324937E-08, 3.09371550E-08, 1.49305800E-08, 6.13263252E-09, 8 1.92306956E-09, 6.16745755E-10, 2.01158282E-10, 6.64767407E-11, 9 2.22008383E-11, 4.35252215E-12, 8.66178627E-13, 1.74427211E-13/ DATA CJ 8/ 1 3.54643725E-14, 4.29177646E-15, 5.25278713E-16, 8.91694801E-05, 2 9.01232630E-05, 9.09107328E-05, 9.25454757E-05, 9.72160435E-05, 3 1.08952038E-04, 9.40609395E-05, 8.21386656E-05, 7.52804540E-05, 4 6.92140241E-05, 6.36798786E-05, 5.81457739E-05, 5.26491551E-05, 5 4.73328076E-05, 4.22021470E-05, 3.69215245E-05, 3.26707758E-05, 6 2.86680627E-05, 2.40761116E-05, 2.02882014E-05, 1.69960157E-05, 7 1.39841085E-05, 1.13233607E-05, 8.92267193E-06, 6.81810177E-06, 8 5.11470759E-06, 3.91063057E-06, 2.94291447E-06, 2.18133635E-06, 9 1.56749018E-06, 1.14592288E-06, 7.88590043E-07, 5.50907755E-07/ DATA CJ 9/ 1 3.63678755E-07, 2.43182435E-07, 1.64270749E-07, 9.85982526E-08, 2 5.29275745E-08, 2.55433660E-08, 1.04917571E-08, 3.29000168E-09, 3 1.05513294E-09, 3.44142921E-10, 1.13728830E-10, 3.79813302E-11, 4 7.44632040E-12, 1.48186329E-12, 2.98411029E-13, 6.06726381E-14, 5 7.34239348E-15, 8.98649491E-16, 1.48734554E-04, 1.49668443E-04, 6 1.50406412E-04, 1.51853966E-04, 1.54848007E-04, 1.63105701E-04, 7 1.83690606E-04, 1.57030317E-04, 1.35729830E-04, 1.23968355E-04, 8 1.13534508E-04, 1.03387927E-04, 9.34668387E-05, 8.39522065E-05, 9 7.48117928E-05, 6.54283214E-05, 5.78852350E-05, 5.07874030E-05/ DATA CJ 10/ 1 4.26485228E-05, 3.59366977E-05, 3.01041834E-05, 2.47687422E-05, 2 2.00556632E-05, 1.58034172E-05, 1.20757841E-05, 9.05877784E-06, 3 6.92617657E-06, 5.21222091E-06, 3.86337217E-06, 2.77618035E-06, 4 2.02953927E-06, 1.39666621E-06, 9.75707553E-07, 6.44107267E-07, 5 4.30697222E-07, 2.90937554E-07, 1.74625805E-07, 9.37391181E-08, 6 4.52393852E-08, 1.85817455E-08, 5.82685384E-09, 1.86872322E-09, 7 6.09503895E-10, 2.01422551E-10, 6.72678568E-11, 1.31880025E-11, 8 2.62449257E-12, 5.28508532E-13, 1.07455822E-13, 1.30039311E-14, 9 1.59157564E-15, 2.56079901E-04, 2.57031747E-04, 2.57766555E-04/ DATA CJ 11/ 1 2.59163661E-04, 2.61888194E-04, 2.67327121E-04, 2.81742190E-04, 2 3.19354058E-04, 2.70603482E-04, 2.32425980E-04, 2.11306977E-04, 3 1.91402222E-04, 1.72512615E-04, 1.54685828E-04, 1.37706011E-04, 4 1.20357383E-04, 1.06446541E-04, 9.33741396E-05, 7.83973100E-05, 5 6.60530846E-05, 5.53292123E-05, 4.55210463E-05, 3.68579859E-05, 6 2.90425875E-05, 2.21917680E-05, 1.66471758E-05, 1.27280184E-05, 7 9.57827123E-06, 7.09951281E-06, 5.10161560E-06, 3.72954698E-06, 8 2.56655106E-06, 1.79298202E-06, 1.18362336E-06, 7.91455799E-07, 9 5.34630571E-07, 3.20894151E-07, 1.72255713E-07, 8.31321299E-08/ DATA CJ 12/ 1 3.41458713E-08, 1.07074315E-08, 3.43396440E-09, 1.12002317E-09, 2 3.70133495E-10, 1.23611166E-10, 2.42342125E-11, 4.82275355E-12, 3 9.71184154E-13, 1.97460132E-13, 2.38959340E-14, 2.92466775E-15, 4 4.28478665E-04, 4.29422059E-04, 4.30140918E-04, 4.31484994E-04, 5 4.34020658E-04, 4.38774835E-04, 4.48007289E-04, 4.74192413E-04, 6 5.41887598E-04, 4.55714167E-04, 3.88809223E-04, 3.48834385E-04, 7 3.12498533E-04, 2.79274664E-04, 2.48145828E-04, 2.16625539E-04, 8 1.91470492E-04, 1.67889720E-04, 1.40916781E-04, 1.18707073E-04, 9 9.94231585E-05, 8.17917639E-05, 6.62222043E-05, 5.21781154E-05/ DATA CJ 13/ 1 3.98685750E-05, 2.99067370E-05, 2.28655892E-05, 1.72069282E-05, 2 1.27538260E-05, 9.16465428E-06, 6.69979937E-06, 4.61055441E-06, 3 3.22090046E-06, 2.12624430E-06, 1.42175560E-06, 9.60397422E-07, 4 5.76444952E-07, 3.09434371E-07, 1.49335410E-07, 6.13382136E-08, 5 1.92343401E-08, 6.16860678E-09, 2.01195275E-09, 6.64888375E-10, 6 2.22048435E-10, 4.35329925E-11, 8.66332015E-12, 1.74457896E-12, 7 3.54705773E-13, 4.29252289E-14, 5.25369629E-15, 6.81346346E-04, 8 6.82255817E-04, 6.82943987E-04, 6.84219429E-04, 6.86585612E-04, 9 6.90881586E-04, 6.98754285E-04, 7.15098144E-04, 7.61797141E-04/ DATA CJ 14/ 1 8.79148726E-04, 7.30251735E-04, 6.11067411E-04, 5.42551059E-04, 2 4.82001904E-04, 4.26857355E-04, 3.71876578E-04, 3.28350939E-04, 3 2.87718988E-04, 2.41367155E-04, 2.03264175E-04, 1.70210809E-04, 4 1.40006824E-04, 1.13344596E-04, 8.93004808E-05, 6.82295010E-05, 5 5.11791622E-05, 3.91286652E-05, 2.94446879E-05, 2.18241298E-05, 6 1.56821832E-05, 1.14643071E-05, 7.88923736E-06, 5.51132513E-06, 7 3.63822025E-06, 2.43275575E-06, 1.64332221E-06, 9.86342258E-07, 8 5.29464043E-07, 2.55522410E-07, 1.04953205E-07, 3.29109410E-08, 9 1.05547740E-08, 3.44253802E-09, 1.13765089E-09, 3.79933350E-10/ DATA CJ 15/ 1 7.44864964E-11, 1.48232305E-11, 2.98503002E-12, 6.06912361E-13, 2 7.34463078E-14, 8.98921998E-15, 1.11484772E-03, 1.11575700E-03, 3 1.11644237E-03, 1.11770657E-03, 1.12003104E-03, 1.12418195E-03, 4 1.13155813E-03, 1.14602725E-03, 1.17595605E-03, 1.25851233E-03, 5 1.46433575E-03, 1.19777795E-03, 9.84898023E-04, 8.67486801E-04, 6 7.63496933E-04, 6.62669548E-04, 5.84007289E-04, 5.11122829E-04, 7 4.28377739E-04, 3.60559179E-04, 3.01823315E-04, 2.48203963E-04, 8 2.00902454E-04, 1.58263961E-04, 1.20908862E-04, 9.06877167E-05, 9 6.93314047E-05, 5.21706171E-05, 3.86672514E-05, 2.77844799E-05/ DATA CJ 16/ 1 2.03112075E-05, 1.39770538E-05, 9.76407481E-06, 6.44553426E-06, 2 4.30987268E-06, 2.91128982E-06, 1.74737828E-06, 9.37977549E-07, 3 4.52670223E-07, 1.85928420E-07, 5.83025562E-08, 1.86979588E-08, 4 6.09849176E-09, 2.01535459E-09, 6.73052396E-10, 1.31952557E-10, 5 2.62592423E-11, 5.28794933E-12, 1.07513735E-12, 1.30108980E-13, 6 1.59242422E-14, 1.87645118E-03, 1.87738833E-03, 1.87809318E-03, 7 1.87938984E-03, 1.88176229E-03, 1.88596108E-03, 1.89330275E-03, 8 1.90726205E-03, 1.93448596E-03, 1.98883781E-03, 2.13292357E-03, 9 2.50895650E-03, 2.02160072E-03, 1.64022652E-03, 1.42967764E-03/ DATA CJ 17/ 1 1.23180309E-03, 1.08166934E-03, 9.44527709E-04, 7.90233024E-04, 2 6.64466714E-04, 5.55869126E-04, 4.56912546E-04, 3.69718850E-04, 3 2.91182454E-04, 2.22414806E-04, 1.66800680E-04, 1.27509362E-04, 4 9.59420089E-05, 7.11054588E-05, 5.10907704E-05, 3.73475053E-05, 5 2.56997018E-05, 1.79528489E-05, 1.18509126E-05, 7.92410055E-06, 6 5.35260374E-06, 3.21262703E-06, 1.72448625E-06, 8.32230538E-07, 7 3.41823776E-07, 1.07186229E-07, 3.43749330E-08, 1.12115909E-08, 8 3.70504943E-09, 1.23734148E-09, 2.42580742E-10, 4.82746345E-11, 9 9.72126355E-12, 1.97650655E-12, 2.39188535E-13, 2.92745938E-14/ DATA CJ 18/ 1 3.05596719E-03, 3.05690144E-03, 3.05760323E-03, 3.05889229E-03, 2 3.06124422E-03, 3.06538575E-03, 3.07256282E-03, 3.08598245E-03, 3 3.11130067E-03, 3.15877520E-03, 3.25098448E-03, 3.51262193E-03, 4 4.18929515E-03, 3.32802567E-03, 2.66019874E-03, 2.26255826E-03, 5 1.97241133E-03, 1.71470116E-03, 1.42979273E-03, 1.19998887E-03, 6 1.00267078E-03, 8.23483583E-04, 6.65943148E-04, 5.24251321E-04, 7 4.00308105E-04, 3.00140478E-04, 2.29403448E-04, 1.72588821E-04, 8 1.27898063E-04, 9.18898504E-05, 6.71676646E-05, 4.62170248E-05, 9 3.22840871E-05, 2.13103008E-05, 1.42486670E-05, 9.62450663E-06/ DATA CJ 19/ 1 5.77646456E-06, 3.10053265E-06, 1.49631817E-06, 6.14572206E-07, 2 1.92708225E-07, 6.18011032E-08, 2.01565561E-08, 6.66099210E-09, 3 2.22449327E-09, 4.36107753E-10, 8.67867310E-11, 1.74765026E-11, 4 3.55326822E-12, 4.29999393E-13, 5.26279611E-14, 4.58905399E-03, 5 4.58994482E-03, 4.59061355E-03, 4.59184086E-03, 4.59407675E-03, 6 4.59800330E-03, 4.60477562E-03, 4.61732873E-03, 4.64062203E-03, 7 4.68292875E-03, 4.76051134E-03, 4.92176307E-03, 5.38442458E-03, 8 6.54922376E-03, 5.03719066E-03, 3.84919968E-03, 3.34188460E-03, 9 2.88688751E-03, 2.39518284E-03, 2.00456361E-03, 1.67194936E-03/ DATA CJ 20/ 1 1.37143155E-03, 1.10808371E-03, 8.71743749E-04, 6.65317431E-04, 2 4.98659080E-04, 3.81044905E-04, 2.86621113E-04, 2.12371138E-04, 3 1.52561656E-04, 1.11506092E-04, 7.67190760E-05, 5.35872980E-05, 4 3.53701589E-05, 2.36483834E-05, 1.59731092E-05, 9.58640571E-06, 5 5.14549598E-06, 2.48305034E-06, 1.01981189E-06, 3.19766809E-07, 6 1.02546081E-07, 3.34450069E-08, 1.10521721E-08, 3.69092105E-09, 7 7.23588135E-10, 1.43994616E-10, 2.89963727E-11, 5.89541038E-12, 8 7.13428630E-13, 8.73165412E-14, 7.63344239E-03, 7.63436095E-03, 9 7.63505020E-03, 7.63631460E-03, 7.63861604E-03, 7.64265143E-03/ DATA CJ 21/ 1 7.64959272E-03, 7.66239614E-03, 7.68593738E-03, 7.72797518E-03, 2 7.80267307E-03, 7.94918588E-03, 8.25219168E-03, 9.08595967E-03, 3 1.11718179E-02, 8.50948584E-03, 6.67067668E-03, 5.66624412E-03, 4 4.63749691E-03, 3.85370081E-03, 3.20032500E-03, 2.61728999E-03, 5 2.11034644E-03, 1.65770792E-03, 1.26373000E-03, 9.46397409E-04, 6 7.22788157E-04, 5.43449520E-04, 4.02532513E-04, 2.89087221E-04, 7 2.11247909E-04, 1.45315957E-04, 1.01486491E-04, 6.69768382E-05, 8 4.47757942E-05, 3.02408867E-05, 1.81477045E-05, 9.73991532E-06, 9 4.69979281E-06, 1.93010363E-06, 6.05148839E-07, 1.94054898E-07/ DATA CJ 22/ 1 6.32876542E-08, 2.09132360E-08, 6.98388223E-09, 1.36911508E-09, 2 2.72448318E-10, 5.48621737E-11, 1.11541473E-11, 1.34978709E-12, 3 1.65198131E-13, 1.06716479E-02, 1.06724962E-02, 1.06731327E-02, 4 1.06743000E-02, 1.06764237E-02, 1.06801444E-02, 1.06865355E-02, 5 1.06982944E-02, 1.07198145E-02, 1.07579188E-02, 1.08245983E-02, 6 1.09515714E-02, 1.11999257E-02, 1.16984658E-02, 1.30537716E-02, 7 1.64947744E-02, 1.24602153E-02, 9.56746194E-03, 7.64827637E-03, 8 6.27825452E-03, 5.17676322E-03, 4.21361197E-03, 3.38651398E-03, 9 2.65388823E-03, 2.01962478E-03, 1.51059058E-03, 1.15272726E-03/ DATA CJ 23/ 1 8.66154710E-04, 6.41233882E-04, 4.60319778E-04, 3.36269473E-04, 2 2.31249862E-04, 1.61465725E-04, 1.06538851E-04, 7.12127109E-05, 3 4.80898278E-05, 2.88550145E-05, 1.54845115E-05, 7.47082608E-06, 4 3.06775966E-06, 9.61734204E-07, 3.08377280E-07, 1.00565701E-07, 5 3.32300398E-08, 1.10965833E-08, 2.17526303E-09, 4.32852492E-10, 6 8.71597423E-11, 1.77202052E-11, 2.14430323E-12, 2.62432019E-13, 7 1.24208536E-02, 1.24215406E-02, 1.24220560E-02, 1.24230012E-02, 8 1.24247202E-02, 1.24277306E-02, 1.24328975E-02, 1.24423905E-02, 9 1.24597184E-02, 1.24902550E-02, 1.25432456E-02, 1.26425720E-02/ DATA CJ 24/ 1 1.28308312E-02, 1.31867664E-02, 1.38836281E-02, 1.61371087E-02, 2 2.09342998E-02, 1.50640284E-02, 1.04396460E-02, 8.52366488E-03, 3 6.96923411E-03, 5.63914478E-03, 4.51383247E-03, 3.52682352E-03, 4 2.67803436E-03, 1.99989867E-03, 1.52453504E-03, 1.14460280E-03, 5 8.46833440E-04, 6.07587365E-04, 4.43675885E-04, 3.05000337E-04, 6 2.12901324E-04, 1.40441165E-04, 9.38549059E-05, 6.33698772E-05, 7 3.80168928E-05, 2.03976823E-05, 9.83979455E-06, 4.03995811E-06, 8 1.26634031E-06, 4.06007089E-07, 1.32393704E-07, 4.37443103E-08, 9 1.46069081E-08, 2.86322161E-09, 5.69721947E-10, 1.14715681E-10/ DATA CJ 25/ 1 2.33218140E-11, 2.82205447E-12, 3.45369833E-13, 1.94810935E-02, 2 1.94818503E-02, 1.94824179E-02, 1.94834588E-02, 1.94853517E-02, 3 1.94886657E-02, 1.94943513E-02, 1.95047890E-02, 1.95238140E-02, 4 1.95572554E-02, 1.96150267E-02, 1.97224258E-02, 1.99228219E-02, 5 2.02906364E-02, 2.09790973E-02, 2.24766315E-02, 2.59060675E-02, 6 3.37894606E-02, 2.36650522E-02, 1.67865205E-02, 1.34852146E-02, 7 1.07554640E-02, 8.52894897E-03, 6.62031125E-03, 5.00327821E-03, 8 3.72392321E-03, 2.83262704E-03, 2.12313739E-03, 1.56873156E-03, 9 1.12430016E-03, 8.20332823E-04, 5.63506593E-04, 3.93125304E-04/ DATA CJ 26/ 1 2.59191151E-04, 1.73143499E-04, 1.16866620E-04, 7.00863842E-05, 2 3.75917115E-05, 1.81285895E-05, 7.44097441E-06, 2.33174953E-06, 3 7.47439487E-07, 2.43692177E-07, 8.05085341E-08, 2.68803496E-08, 4 5.26840946E-09, 1.04820661E-09, 2.11044554E-10, 4.29029307E-11, 5 5.19111983E-12, 6.35267562E-13, 2.68144794E-02, 2.68152340E-02, 6 2.68158000E-02, 2.68168377E-02, 2.68187248E-02, 2.68220282E-02, 7 2.68276939E-02, 2.68380900E-02, 2.68570222E-02, 2.68902478E-02, 8 2.69474868E-02, 2.70533594E-02, 2.72490323E-02, 2.76017887E-02, 9 2.82397420E-02, 2.95368461E-02, 3.16415686E-02, 3.66967999E-02/ DATA CJ 27/ 1 4.98810707E-02, 3.43114781E-02, 2.40016204E-02, 1.87161429E-02, 2 1.45996143E-02, 1.12081149E-02, 8.40567489E-03, 6.22335553E-03, 3 4.71782027E-03, 3.52695811E-03, 2.60069160E-03, 1.86076446E-03, 4 1.35601978E-03, 9.30420718E-04, 6.48541490E-04, 4.27250986E-04, 5 2.85234445E-04, 1.92429775E-04, 1.15342167E-04, 6.18339132E-05, 6 2.98055973E-05, 1.22285626E-05, 3.83040581E-06, 1.22745361E-06, 7 4.00099709E-07, 1.32156222E-07, 4.41179135E-08, 8.64532737E-09, 8 1.71983935E-09, 3.46231251E-10, 7.03783355E-11, 8.51470572E-12, 9 1.04191002E-12, 2.93105845E-02, 2.93111926E-02, 2.93116486E-02/ DATA CJ 28/ 1 2.93124848E-02, 2.93140052E-02, 2.93166665E-02, 2.93212301E-02, 2 2.93296012E-02, 2.93448369E-02, 2.93715472E-02, 2.94174786E-02, 3 2.95021568E-02, 2.96577012E-02, 2.99349550E-02, 3.04259264E-02, 4 3.13820917E-02, 3.28196439E-02, 3.52993354E-02, 4.37293513E-02, 5 6.16813834E-02, 4.10710605E-02, 2.73272861E-02, 2.08412122E-02, 6 1.57078159E-02, 1.16349995E-02, 8.54306269E-03, 6.44256291E-03, 7 4.79727031E-03, 3.52654009E-03, 2.51682379E-03, 1.83075442E-03, 8 1.25402197E-03, 8.72988704E-04, 5.74439671E-04, 3.83149531E-04, 9 2.58298944E-04, 1.54704606E-04, 8.28739739E-05, 3.99203092E-05/ DATA CJ 29/ 1 1.63679751E-05, 5.12384714E-06, 1.64119506E-06, 5.34777682E-07, 2 1.76593238E-07, 5.89393441E-08, 1.15466876E-08, 2.29654360E-09, 3 4.62254965E-10, 9.39497631E-11, 1.13648268E-11, 1.39050368E-12, 4 3.38719415E-02, 3.38724916E-02, 3.38729041E-02, 3.38736604E-02, 5 3.38750357E-02, 3.38774427E-02, 3.38815700E-02, 3.38891395E-02, 6 3.39029120E-02, 3.39270440E-02, 3.39685030E-02, 3.40448073E-02, 7 3.41845344E-02, 3.44321947E-02, 3.48663543E-02, 3.56957363E-02, 8 3.69034406E-02, 3.89082216E-02, 4.34786937E-02, 5.48837934E-02, 9 7.92311401E-02, 5.11201902E-02, 3.29130965E-02, 2.41709942E-02/ DATA CJ 30/ 1 1.75449024E-02, 1.27168996E-02, 9.51480609E-03, 7.04353074E-03, 2 5.15471899E-03, 3.66546818E-03, 2.65931636E-03, 1.81718603E-03, 3 1.26276077E-03, 8.29549046E-04, 5.52603530E-04, 3.72158022E-04, 4 2.22659715E-04, 1.19153630E-04, 5.73421433E-05, 2.34905250E-05, 5 7.34723417E-06, 2.35189262E-06, 7.65991588E-07, 2.52849277E-07, 6 8.43647141E-08, 1.65217439E-08, 3.28511655E-09, 6.61088474E-10, 7 1.34336273E-10, 1.62470060E-11, 1.98752421E-12, 3.78705822E-02, 8 3.78710789E-02, 3.78714514E-02, 3.78721343E-02, 3.78733761E-02, 9 3.78755493E-02, 3.78792755E-02, 3.78861088E-02, 3.78985392E-02/ DATA CJ 31/ 1 3.79203122E-02, 3.79576958E-02, 3.80264251E-02, 3.81520308E-02, 2 3.83738644E-02, 3.87602803E-02, 3.94896661E-02, 4.05309718E-02, 3 4.22050142E-02, 4.58079989E-02, 5.18680175E-02, 6.69949177E-02, 4 9.99650283E-02, 6.22151021E-02, 3.79264661E-02, 2.68360813E-02, 5 1.90636001E-02, 1.40947336E-02, 1.03444628E-02, 7.52188726E-03, 6 5.32118372E-03, 3.84637814E-03, 2.61953759E-03, 1.81578530E-03, 7 1.19014956E-03, 7.91436695E-04, 5.32265138E-04, 3.17985329E-04, 8 1.69927045E-04, 8.16723406E-05, 3.34177509E-05, 1.04402136E-05, 9 3.33917358E-06, 1.08684559E-06, 3.58580423E-07, 1.19593740E-07/ DATA CJ 32/ 1 2.34095416E-08, 4.65290141E-09, 9.36054907E-10, 1.90163622E-10, 2 2.29927543E-11, 2.81213504E-12, 4.07045732E-02, 4.07050138E-02, 3 4.07053442E-02, 4.07059501E-02, 4.07070517E-02, 4.07089796E-02, 4 4.07122849E-02, 4.07183460E-02, 4.07293704E-02, 4.07486759E-02, 5 4.07818096E-02, 4.08426810E-02, 4.09537773E-02, 4.11495151E-02, 6 4.14890357E-02, 4.21248963E-02, 4.30212543E-02, 4.44338295E-02, 7 4.73542676E-02, 5.19486346E-02, 5.96595030E-02, 8.00440021E-02, 8 1.23805652E-01, 7.36099127E-02, 4.22094370E-02, 2.93020252E-02, 9 2.12632345E-02, 1.53999160E-02, 1.10899988E-02, 7.78581980E-03/ DATA CJ 33/ 1 5.59792888E-03, 3.79408528E-03, 2.62063726E-03, 1.71219569E-03, 2 1.13580719E-03, 7.62385553E-04, 4.54536615E-04, 2.42425104E-04, 3 1.16311835E-04, 4.75131868E-05, 1.48204245E-05, 4.73468735E-06, 4 1.53971465E-06, 5.07644565E-07, 1.69215319E-07, 3.31005873E-08, 5 6.57573986E-09, 1.32234067E-09, 2.68548744E-10, 3.24584914E-11, 6 3.96867843E-12, 4.32342833E-02, 4.32346787E-02, 4.32349753E-02, 7 4.32355189E-02, 4.32365074E-02, 4.32382374E-02, 4.32412033E-02, 8 4.32466417E-02, 4.32565325E-02, 4.32738504E-02, 4.33035646E-02, 9 4.33581273E-02, 4.34576211E-02, 4.36326376E-02, 4.39353696E-02/ DATA CJ 34/ 1 4.44994366E-02, 4.52881489E-02, 4.65156962E-02, 4.89934064E-02, 2 5.27270383E-02, 5.86246340E-02, 6.89792766E-02, 9.55178919E-02, 3 1.53805931E-01, 8.72665990E-02, 4.81287151E-02, 3.42518696E-02, 4 2.42867642E-02, 1.72256496E-02, 1.19534085E-02, 8.52602534E-03, 5 5.73789848E-03, 3.94296355E-03, 2.56435298E-03, 1.69519482E-03, 6 1.13475697E-03, 6.74616532E-04, 3.58827677E-04, 1.71739540E-04, 7 6.99968308E-05, 2.17862780E-05, 6.94913635E-06, 2.25715388E-06, 8 7.43486392E-07, 2.47641764E-07, 4.83984298E-08, 9.60806708E-09, 9 1.93104607E-09, 3.91989428E-10, 4.73549560E-11, 5.78776151E-12/ DATA CJ 35/ 1 4.32087632E-02, 4.32091029E-02, 4.32093576E-02, 4.32098246E-02, 2 4.32106738E-02, 4.32121598E-02, 4.32147075E-02, 4.32193789E-02, 3 4.32278743E-02, 4.32427472E-02, 4.32682614E-02, 4.33150958E-02, 4 4.34004438E-02, 4.35504092E-02, 4.38093044E-02, 4.42899816E-02, 5 4.49583505E-02, 4.59898809E-02, 4.80394281E-02, 5.10451508E-02, 6 5.55906118E-02, 6.30744680E-02, 7.57836932E-02, 1.10123496E-01, 7 1.85653774E-01, 1.03646665E-01, 5.94714146E-02, 4.05637117E-02, 8 2.79429568E-02, 1.89929637E-02, 1.33657202E-02, 8.89196126E-03, 9 6.06091784E-03, 3.91386910E-03, 2.57362900E-03, 1.71569689E-03/ DATA CJ 36/ 1 1.01565207E-03, 5.38061069E-04, 2.56602824E-04, 1.04242060E-04, 2 3.23436807E-05, 1.02933846E-05, 3.33770653E-06, 1.09794325E-06, 3 3.65311742E-07, 7.13048076E-08, 1.41415068E-08, 2.83995095E-09, 4 5.76120933E-10, 6.95510376E-11, 8.49584676E-12, 3.61991027E-02, 5 3.61993546E-02, 3.61995435E-02, 3.61998898E-02, 3.62005195E-02, 6 3.62016216E-02, 3.62035109E-02, 3.62069750E-02, 3.62132746E-02, 7 3.62243025E-02, 3.62432184E-02, 3.62779330E-02, 3.63411687E-02, 8 3.64521995E-02, 3.66436361E-02, 3.69982490E-02, 3.74895600E-02, 9 3.82437785E-02, 3.97276968E-02, 4.18684883E-02, 4.50254746E-02/ DATA CJ 37/ 1 5.00133841E-02, 5.80103385E-02, 7.21340556E-02, 1.13025502E-01, 2 1.99418938E-01, 1.09586908E-01, 5.94793914E-02, 3.95984015E-02, 3 2.61425920E-02, 1.80656790E-02, 1.18401639E-02, 7.98800065E-03, 4 5.11311185E-03, 3.34058255E-03, 2.21597730E-03, 1.30517128E-03, 5 6.88176910E-04, 3.26823531E-04, 1.32263645E-04, 4.08905223E-05, 6 1.29798657E-05, 4.20064215E-06, 1.37970996E-06, 4.58502450E-07, 7 8.93659154E-08, 1.77037640E-08, 3.55218722E-09, 7.20086542E-10, 8 8.68632550E-11, 1.06039398E-11, 2.93072216E-02, 2.93074062E-02, 9 2.93075447E-02, 2.93077986E-02, 2.93082602E-02, 2.93090679E-02/ DATA CJ 38/ 1 2.93104528E-02, 2.93129919E-02, 2.93176092E-02, 2.93256917E-02, 2 2.93395542E-02, 2.93649910E-02, 2.94113137E-02, 2.94926082E-02, 3 2.96326546E-02, 2.98916735E-02, 3.02496816E-02, 3.07973230E-02, 4 3.18679302E-02, 3.33963795E-02, 3.56156824E-02, 3.90380654E-02, 5 4.43148129E-02, 5.31920594E-02, 6.91640591E-02, 1.16575775E-01, 6 2.09934433E-01, 1.12013093E-01, 5.82642687E-02, 3.70523334E-02, 7 2.49076025E-02, 1.59750451E-02, 1.06254412E-02, 6.72152469E-03, 8 4.35445309E-03, 2.87016476E-03, 1.67963537E-03, 8.80394242E-04, 9 4.15953076E-04, 1.67551113E-04, 5.15743081E-05, 1.63204537E-05/ DATA CJ 39/ 1 5.26947577E-06, 1.72764130E-06, 5.73294937E-07, 1.11549698E-07, 2 2.20694579E-08, 4.42352504E-09, 8.95959064E-10, 1.07979712E-10, 3 1.31720886E-11, 2.56383409E-02, 2.56384908E-02, 2.56386032E-02, 4 2.56388093E-02, 2.56391840E-02, 2.56398398E-02, 2.56409641E-02, 5 2.56430254E-02, 2.56467737E-02, 2.56533350E-02, 2.56645878E-02, 6 2.56852340E-02, 2.57228259E-02, 2.57887774E-02, 2.59023307E-02, 7 2.61121441E-02, 2.64017019E-02, 2.68436483E-02, 2.77041846E-02, 8 2.89248481E-02, 3.06808077E-02, 3.33507344E-02, 3.73782881E-02, 9 4.39205671E-02, 5.52858594E-02, 7.56826005E-02, 1.25832006E-01/ DATA CJ 40/ 1 2.30642137E-01, 1.18332498E-01, 5.71643469E-02, 3.76047112E-02, 2 2.34557191E-02, 1.53226318E-02, 9.55330997E-03, 6.12663729E-03, 3 4.00811123E-03, 2.32818065E-03, 1.21213576E-03, 5.69369511E-04, 4 2.28164697E-04, 6.98955884E-05, 2.20433677E-05, 7.09934098E-06, 5 2.32303675E-06, 7.69668743E-07, 1.49486186E-07, 2.95334964E-08, 6 5.91300771E-09, 1.19656261E-09, 1.44067978E-10, 1.75607129E-11, 7 2.22761665E-02, 2.22762878E-02, 2.22763789E-02, 2.22765457E-02, 8 2.22768492E-02, 2.22773802E-02, 2.22782905E-02, 2.22799595E-02, 9 2.22829944E-02, 2.22883068E-02, 2.22974173E-02, 2.23141315E-02/ DATA CJ 41/ 1 2.23445596E-02, 2.23979289E-02, 2.24897765E-02, 2.26593445E-02, 2 2.28930634E-02, 2.32491203E-02, 2.39401206E-02, 2.49151104E-02, 3 2.63070342E-02, 2.83995587E-02, 3.15019911E-02, 3.64043040E-02, 4 4.45264732E-02, 5.81378958E-02, 7.88629990E-02, 1.36137259E-01, 5 2.57211631E-01, 1.30192772E-01, 6.63608831E-02, 3.93311909E-02, 6 2.48502333E-02, 1.51148435E-02, 9.53662310E-03, 6.16693160E-03, 7 3.54233209E-03, 1.82616568E-03, 8.50690362E-04, 3.38428996E-04, 8 1.02988259E-04, 3.23302532E-05, 1.03769100E-05, 3.38662021E-06, 9 1.11972018E-06, 2.16945941E-07, 4.27817069E-08, 8.55290917E-09/ DATA CJ 42/ 1 1.72871725E-09, 2.07874878E-10, 2.53124541E-11, 1.72345593E-02, 2 1.72346481E-02, 1.72347146E-02, 1.72348367E-02, 1.72350586E-02, 3 1.72354470E-02, 1.72361127E-02, 1.72373334E-02, 1.72395531E-02, 4 1.72434383E-02, 1.72501011E-02, 1.72623239E-02, 1.72845732E-02, 5 1.73235899E-02, 1.73907151E-02, 1.75145682E-02, 1.76851231E-02, 6 1.79446101E-02, 1.84470178E-02, 1.91532719E-02, 2.01562308E-02, 7 2.16523609E-02, 2.38450945E-02, 2.72488293E-02, 3.27267114E-02, 8 4.14736368E-02, 5.40800824E-02, 7.55433816E-02, 1.36071502E-01, 9 2.66937747E-01, 1.30878244E-01, 5.70704857E-02, 3.54810703E-02/ DATA CJ 43/ 1 2.10071223E-02, 1.30176391E-02, 8.31203265E-03, 4.71755468E-03, 2 2.40684877E-03, 1.11154500E-03, 4.38918146E-04, 1.32672849E-04, 3 4.14559690E-05, 1.32607288E-05, 4.31651874E-06, 1.42423313E-06, 4 2.75284873E-07, 5.41870348E-08, 1.08174709E-08, 2.18388654E-09, 5 2.62281135E-10, 3.19056755E-11, 1.37799601E-02, 1.37800274E-02, 6 1.37800778E-02, 1.37801704E-02, 1.37803386E-02, 1.37806330E-02, 7 1.37811376E-02, 1.37820629E-02, 1.37837454E-02, 1.37866904E-02, 8 1.37917405E-02, 1.38010045E-02, 1.38178664E-02, 1.38474308E-02, 9 1.38982799E-02, 1.39920548E-02, 1.41210902E-02, 1.43171872E-02/ DATA CJ 44/ 1 1.46961074E-02, 1.52270987E-02, 1.59778404E-02, 1.70905750E-02, 2 1.87061758E-02, 2.11789725E-02, 2.50716330E-02, 3.10732443E-02, 3 3.92866830E-02, 5.24646620E-02, 7.45948113E-02, 1.44921051E-01, 4 2.88593785E-01, 1.37313825E-01, 6.35764233E-02, 3.58313861E-02, 5 2.14391887E-02, 1.33813743E-02, 7.44208358E-03, 3.73383866E-03, 6 1.70148693E-03, 6.64396181E-04, 1.98863645E-04, 6.17263113E-05, 7 1.96498532E-05, 6.37293608E-06, 2.09672615E-06, 4.03929604E-07, 8 7.93103504E-08, 1.58017896E-08, 3.18509708E-09, 3.81879489E-10, 9 4.63921497E-11, 1.10836014E-02, 1.10836534E-02, 1.10836924E-02/ DATA CJ 45/ 1 1.10837639E-02, 1.10838939E-02, 1.10841214E-02, 1.10845115E-02, 2 1.10852267E-02, 1.10865271E-02, 1.10888033E-02, 1.10927065E-02, 3 1.10998664E-02, 1.11128976E-02, 1.11357432E-02, 1.11750288E-02, 4 1.12474539E-02, 1.13470595E-02, 1.14983165E-02, 1.17902001E-02, 5 1.21983629E-02, 1.27737467E-02, 1.36229698E-02, 1.48484789E-02, 6 1.67074935E-02, 1.95944437E-02, 2.39552086E-02, 2.97559740E-02, 7 3.86981296E-02, 5.32679383E-02, 8.05305435E-02, 1.50256705E-01, 8 3.10028330E-01, 1.43359269E-01, 5.79514507E-02, 3.41359790E-02, 9 2.07888262E-02, 1.13072749E-02, 5.57200234E-03, 2.50380051E-03/ DATA CJ 46/ 1 9.66527996E-04, 2.86446076E-04, 8.83262559E-05, 2.79849270E-05, 2 9.04393983E-06, 2.96723592E-06, 5.69809173E-07, 1.11611337E-07, 3 2.21956566E-08, 4.46712809E-09, 5.34730172E-10, 6.48783939E-11, 4 8.05345169E-03, 8.05348793E-03, 8.05351512E-03, 8.05356495E-03, 5 8.05365555E-03, 8.05381410E-03, 8.05408592E-03, 8.05458428E-03, 6 8.05549048E-03, 8.05707659E-03, 8.05979643E-03, 8.06478541E-03, 7 8.07386492E-03, 8.08978091E-03, 8.11714522E-03, 8.16757597E-03, 8 8.23689741E-03, 8.34208772E-03, 8.54480995E-03, 8.82771009E-03, 9 9.22537505E-03, 9.80990903E-03, 1.06485399E-02, 1.19099547E-02/ DATA CJ 47/ 1 1.38442261E-02, 1.67118796E-02, 2.04310483E-02, 2.59634497E-02, 2 3.44927631E-02, 4.92459652E-02, 7.17143792E-02, 1.53427244E-01, 3 3.26514616E-01, 1.45742764E-01, 6.13074379E-02, 3.60649980E-02, 4 1.88174151E-02, 8.98850140E-03, 3.94809638E-03, 1.49719844E-03, 5 4.37206538E-04, 1.33525468E-04, 4.20207143E-05, 1.35118440E-05, 6 4.41591581E-06, 8.44260219E-07, 1.64822984E-07, 3.26934692E-08, 7 6.56642250E-09, 7.84314417E-10, 9.49969176E-11, 6.23899214E-03, 8 6.23901934E-03, 6.23903975E-03, 6.23907716E-03, 6.23914519E-03, 9 6.23926423E-03, 6.23946831E-03, 6.23984247E-03, 6.24052283E-03/ DATA CJ 48/ 1 6.24171365E-03, 6.24375562E-03, 6.24750111E-03, 6.25431728E-03, 2 6.26626487E-03, 6.28680368E-03, 6.32464677E-03, 6.37664705E-03, 3 6.45551338E-03, 6.60736780E-03, 6.81898452E-03, 7.11587158E-03, 4 7.55107120E-03, 8.17302480E-03, 9.10333057E-03, 1.05183121E-02, 5 1.25918504E-02, 1.52408962E-02, 1.91039365E-02, 2.48947623E-02, 6 3.45085256E-02, 4.88880645E-02, 7.83625393E-02, 1.60081234E-01, 7 3.50633150E-01, 1.58268933E-01, 6.90948156E-02, 3.39747806E-02, 8 1.55020551E-02, 6.60454805E-03, 2.44930269E-03, 7.02699419E-04, 9 2.12238793E-04, 6.62828734E-05, 2.11942671E-05, 6.89702873E-06/ DATA CJ 49/ 1 1.31225577E-06, 2.55272620E-07, 5.04948874E-08, 1.01195427E-08, 2 1.20591545E-09, 1.45796071E-10, 3.86282087E-03, 3.86283723E-03, 3 3.86284949E-03, 3.86287197E-03, 3.86291285E-03, 3.86298440E-03, 4 3.86310704E-03, 3.86333191E-03, 3.86374079E-03, 3.86445644E-03, 5 3.86568359E-03, 3.86793446E-03, 3.87203051E-03, 3.87920970E-03, 6 3.89154986E-03, 3.91428208E-03, 3.94550854E-03, 3.99284634E-03, 7 4.08391991E-03, 4.21067527E-03, 4.38819654E-03, 4.64778015E-03, 8 5.01747072E-03, 5.56772337E-03, 6.39868712E-03, 7.60416847E-03, 9 9.12449772E-03, 1.13047814E-02, 1.44977905E-02, 1.96168808E-02/ DATA CJ 50/ 1 2.68935185E-02, 4.08571483E-02, 6.32813848E-02, 1.50625472E-01, 2 3.39572661E-01, 1.48214255E-01, 4.93249265E-02, 2.20913623E-02, 3 9.10755191E-03, 3.29653797E-03, 9.28076731E-04, 2.77064012E-04, 4 8.58448019E-05, 2.72917711E-05, 8.84251505E-06, 1.67419032E-06, 5 3.24506159E-07, 6.40121059E-08, 1.28003362E-08, 1.52186166E-09, 6 1.83661677E-10, 2.98227701E-03, 2.98228934E-03, 2.98229858E-03, 7 2.98231552E-03, 2.98234633E-03, 2.98240025E-03, 2.98249267E-03, 8 2.98266213E-03, 2.98297027E-03, 2.98350958E-03, 2.98443436E-03, 9 2.98613057E-03, 2.98921719E-03, 2.99462686E-03, 3.00392462E-03/ DATA CJ 51/ 1 3.02104965E-03, 3.04456802E-03, 3.08020825E-03, 3.14873479E-03, 2 3.24401847E-03, 3.37728863E-03, 3.57180598E-03, 3.84811665E-03, 3 4.25788866E-03, 4.87350005E-03, 5.76017191E-03, 6.86845602E-03, 4 8.44008711E-03, 1.07075673E-02, 1.42674113E-02, 1.91878660E-02, 5 2.82561307E-02, 4.26527329E-02, 7.23734657E-02, 1.66053959E-01, 6 3.70990169E-01, 1.46316337E-01, 4.02698622E-02, 1.66654154E-02, 7 5.85171602E-03, 1.60804097E-03, 4.73088651E-04, 1.45155849E-04, 8 4.58264260E-05, 1.47698909E-05, 2.78019464E-06, 5.36593606E-07, 9 1.05505562E-07, 2.10437806E-08, 2.49526484E-09, 3.00506659E-10/ DATA CJ 52/ 1 2.45811060E-03, 2.45812052E-03, 2.45812796E-03, 2.45814160E-03, 2 2.45816641E-03, 2.45820983E-03, 2.45828425E-03, 2.45842070E-03, 3 2.45866882E-03, 2.45910309E-03, 2.45984773E-03, 2.46121352E-03, 4 2.46369880E-03, 2.46805437E-03, 2.47553979E-03, 2.48932478E-03, 5 2.50825196E-03, 2.53692541E-03, 2.59202576E-03, 2.66857395E-03, 6 2.77551117E-03, 2.93133156E-03, 3.15215542E-03, 3.47856747E-03, 7 3.96667106E-03, 4.66523184E-03, 5.53158490E-03, 6.74834637E-03, 8 8.48186839E-03, 1.11569348E-02, 1.47721717E-02, 2.12195479E-02, 9 3.09773686E-02, 5.02403557E-02, 8.47913144E-02, 1.81191796E-01/ DATA CJ 53/ 1 4.35742447E-01, 1.57375913E-01, 3.77857605E-02, 1.33290042E-02, 2 3.53494257E-03, 1.01785399E-03, 3.07954790E-04, 9.62707958E-05, 3 3.08028604E-05, 5.75212773E-06, 1.10383599E-06, 2.16097638E-07, 4 4.29560091E-08, 5.07558302E-09, 6.09587246E-10, 1.59316061E-03, 5 1.59316688E-03, 1.59317159E-03, 1.59318020E-03, 1.59319588E-03, 6 1.59322330E-03, 1.59327032E-03, 1.59335653E-03, 1.59351327E-03, 7 1.59378762E-03, 1.59425804E-03, 1.59512085E-03, 1.59669084E-03, 8 1.59944218E-03, 1.60417019E-03, 1.61287589E-03, 1.62482628E-03, 9 1.64292426E-03, 1.67768186E-03, 1.72592489E-03, 1.79323589E-03/ DATA CJ 54/ 1 1.89114489E-03, 2.02956203E-03, 2.23347321E-03, 2.53694524E-03, 2 2.96846806E-03, 3.49945234E-03, 4.23810820E-03, 5.27764154E-03, 3 6.85566320E-03, 8.94419422E-03, 1.25605380E-02, 1.78083775E-02, 4 2.75074712E-02, 4.34318231E-02, 6.94569400E-02, 1.80213811E-01, 5 4.82085871E-01, 1.59332134E-01, 2.91552500E-02, 7.98884103E-03, 6 2.23838591E-03, 6.64530586E-04, 2.04998005E-04, 6.49535002E-05, 7 1.20017500E-05, 2.28581804E-06, 4.44969147E-07, 8.80630041E-08, 8 1.03581918E-08, 1.23968941E-09, 9.19353157E-04, 9.19356689E-04, 9 9.19359338E-04, 9.19364194E-04, 9.19373024E-04, 9.19388477E-04/ DATA CJ 55/ 1 9.19414967E-04, 9.19463536E-04, 9.19551848E-04, 9.19706417E-04, 2 9.19971453E-04, 9.20457558E-04, 9.21342061E-04, 9.22892046E-04, 3 9.25555409E-04, 9.30458801E-04, 9.37188357E-04, 9.47376741E-04, 4 9.66933632E-04, 9.94056491E-04, 1.03185805E-03, 1.08675904E-03, 5 1.16420985E-03, 1.27797277E-03, 1.44658757E-03, 1.68503220E-03, 6 1.97650300E-03, 2.37877954E-03, 2.93932288E-03, 3.77931108E-03, 7 4.87354280E-03, 6.72829417E-03, 9.34450658E-03, 1.39897358E-02, 8 2.12049787E-02, 3.26161983E-02, 5.81647722E-02, 1.80163994E-01, 9 5.28527592E-01, 1.49377768E-01, 1.15278749E-02, 4.59015236E-03/ DATA CJ 56/ 1 1.38941231E-03, 4.28560071E-04, 1.35327423E-04, 2.48657102E-05, 2 4.71313230E-06, 9.13883767E-07, 1.80285390E-07, 2.11329971E-08, 3 2.52237838E-09, 4.97079819E-04, 4.97081685E-04, 4.97083085E-04, 4 4.97085651E-04, 4.97090317E-04, 4.97098482E-04, 4.97112480E-04, 5 4.97138144E-04, 4.97184809E-04, 4.97266483E-04, 4.97406528E-04, 6 4.97663382E-04, 4.98130737E-04, 4.98949688E-04, 5.00356809E-04, 7 5.02947077E-04, 5.06501374E-04, 5.11881044E-04, 5.22202627E-04, 8 5.36506913E-04, 5.56423251E-04, 5.85308796E-04, 6.25981209E-04, 9 6.85566078E-04, 7.73559903E-04, 8.97395372E-04, 1.04790530E-03/ DATA CJ 57/ 1 1.25423681E-03, 1.53936087E-03, 1.96212602E-03, 2.50592714E-03, 2 3.41272196E-03, 4.66542054E-03, 6.82886520E-03, 1.00691970E-02, 3 1.49757493E-02, 2.58195605E-02, 5.09895938E-02, 1.82142093E-01, 4 6.01661913E-01, 1.50263934E-01, 1.58288354E-02, 5.51672004E-03, 5 1.65384948E-03, 5.09052680E-04, 9.09755702E-05, 1.69166221E-05, 6 3.23492020E-06, 6.31498526E-07, 7.32461577E-08, 8.67314425E-09, 7 1.99897580E-04, 1.99898314E-04, 1.99898865E-04, 1.99899876E-04, 8 1.99901713E-04, 1.99904927E-04, 1.99910438E-04, 1.99920541E-04, 9 1.99938912E-04, 1.99971066E-04, 2.00026199E-04, 2.00127316E-04/ DATA CJ 58/ 1 2.00311299E-04, 2.00633683E-04, 2.01187569E-04, 2.02207070E-04, 2 2.03605772E-04, 2.05722301E-04, 2.09781451E-04, 2.15403274E-04, 3 2.23223904E-04, 2.34552788E-04, 2.50477950E-04, 2.73755006E-04, 4 3.08022036E-04, 3.56046650E-04, 4.14131503E-04, 4.93307223E-04, 5 6.01961696E-04, 7.61675253E-04, 9.65031926E-04, 1.29979774E-03, 6 1.75495195E-03, 2.52510301E-03, 3.64908014E-03, 5.29931482E-03, 7 8.79054164E-03, 1.67919264E-02, 3.55701775E-02, 1.66679011E-01, 8 6.41873216E-01, 1.58308363E-01, 1.77085013E-02, 6.03634025E-03, 9 1.80763238E-03, 3.11806787E-04, 5.65880157E-05, 1.06367396E-05/ DATA CJ 59/ 1 2.05017106E-06, 2.34827287E-07, 2.75486735E-08, 5.28818603E-05, 2 5.28820503E-05, 5.28821928E-05, 5.28824541E-05, 5.28829291E-05, 3 5.28837603E-05, 5.28851853E-05, 5.28877980E-05, 5.28925486E-05, 4 5.29008632E-05, 5.29151200E-05, 5.29412674E-05, 5.29888416E-05, 5 5.30722006E-05, 5.32154105E-05, 5.34789783E-05, 5.38405186E-05, 6 5.43874713E-05, 5.54359909E-05, 5.68872122E-05, 5.89042335E-05, 7 6.18224554E-05, 6.59176796E-05, 7.18895835E-05, 8.06530367E-05, 8 9.28834987E-05, 1.07603823E-04, 1.27556001E-04, 1.54750330E-04, 9 1.94387175E-04, 2.44363059E-04, 3.25638255E-04, 4.34517962E-04/ DATA CJ 60/ 1 6.15363065E-04, 8.73306817E-04, 1.24206340E-03, 1.99323939E-03, 2 3.61586646E-03, 7.36911421E-03, 1.44074720E-02, 1.54062035E-01, 3 6.33582634E-01, 1.56936612E-01, 1.73635032E-02, 5.93902443E-03, 4 9.83219604E-04, 1.72819923E-04, 3.17727814E-05, 6.02693095E-06, 5 6.79784799E-07, 7.88643246E-08, 1.82807098E-05, 1.82807748E-05, 6 1.82808235E-05, 1.82809129E-05, 1.82810753E-05, 1.82813597E-05, 7 1.82818471E-05, 1.82827408E-05, 1.82843657E-05, 1.82872098E-05, 8 1.82920863E-05, 1.83010300E-05, 1.83173026E-05, 1.83458148E-05, 9 1.83947973E-05, 1.84849417E-05, 1.86085855E-05, 1.87956191E-05/ DATA CJ 61/ 1 1.91541013E-05, 1.96501256E-05, 2.03392769E-05, 2.13358157E-05, 2 2.27332848E-05, 2.47691753E-05, 2.77527835E-05, 3.19096345E-05, 3 3.69028889E-05, 4.36557463E-05, 5.28355375E-05, 6.61732519E-05, 4 8.29308083E-05, 1.10059853E-04, 1.46252852E-04, 2.06020283E-04, 5 2.90747496E-04, 4.11136869E-04, 6.54752904E-04, 1.17836636E-03, 6 2.40810384E-03, 5.96195264E-03, 1.74408453E-02, 1.57214854E-01, 7 6.34718148E-01, 1.61430142E-01, 2.17755787E-02, 3.57256008E-03, 8 5.94303637E-04, 1.05566722E-04, 1.95664621E-05, 2.16074217E-06, 9 2.47019226E-07, 5.90993561E-06, 5.90995641E-06, 5.90997201E-06/ DATA CJ 62/ 1 5.91000062E-06, 5.91005263E-06, 5.91014365E-06, 5.91029968E-06, 2 5.91058575E-06, 5.91110593E-06, 5.91201634E-06, 5.91357737E-06, 3 5.91644034E-06, 5.92164933E-06, 5.93077618E-06, 5.94645523E-06, 4 5.97530877E-06, 6.01488215E-06, 6.07473829E-06, 6.18944359E-06, 5 6.34811763E-06, 6.56849358E-06, 6.88701017E-06, 7.33337610E-06, 6 7.98307221E-06, 8.93403352E-06, 1.02568260E-05, 1.18428606E-05, 7 1.39833327E-05, 1.68858911E-05, 2.10905717E-05, 2.63556257E-05, 8 3.48481793E-05, 4.61177632E-05, 6.46293202E-05, 9.07018097E-05, 9 1.27489574E-04, 2.01259458E-04, 3.57792631E-04, 7.19204235E-04/ DATA CJ 63/ 1 1.74517798E-03, 5.82749688E-03, 1.69669437E-02, 1.55348802E-01, 2 6.23701145E-01, 1.43451922E-01,-3.48187206E-03, 6.67723197E-04, 3 1.48321433E-04, 2.94977261E-05, 3.38985522E-06, 3.95018156E-07, 4 2.25483171E-06, 2.25483958E-06, 2.25484548E-06, 2.25485630E-06, 5 2.25487597E-06, 2.25491039E-06, 2.25496940E-06, 2.25507759E-06, 6 2.25527431E-06, 2.25561862E-06, 2.25620898E-06, 2.25729171E-06, 7 2.25926164E-06, 2.26271320E-06, 2.26864252E-06, 2.27955359E-06, 8 2.29451754E-06, 2.31714912E-06, 2.36051277E-06, 2.42048496E-06, 9 2.50375229E-06, 2.62405024E-06, 2.79253700E-06, 3.03758083E-06/ DATA CJ 64/ 1 3.39586922E-06, 3.89356224E-06, 4.48935327E-06, 5.29197530E-06, 2 6.37805708E-06, 7.94736586E-06, 9.90683609E-06, 1.30567384E-05, 3 1.72201765E-05, 2.40272738E-05, 3.35631444E-05, 4.69403195E-05, 4 7.35652864E-05, 1.29461927E-04, 2.56623835E-04, 6.10103049E-04, 5 1.98016924E-03, 6.61162926E-03, 1.97409592E-02, 1.66436919E-01, 6 6.81084221E-01, 1.26300556E-01,-4.66188632E-04, 8.88047485E-04, 7 1.80476316E-04, 2.02474567E-05, 2.30519837E-06, 7.66178811E-07, 8 7.66181465E-07, 7.66183455E-07, 7.66187103E-07, 7.66193736E-07, 9 7.66205345E-07, 7.66225246E-07, 7.66261733E-07, 7.66328077E-07/ DATA CJ 65/ 1 7.66444192E-07, 7.66643289E-07, 7.67008435E-07, 7.67672784E-07, 2 7.68836788E-07, 7.70836355E-07, 7.74515824E-07, 7.79561768E-07, 3 7.87192752E-07, 8.01812442E-07, 8.22027724E-07, 8.50088062E-07, 4 8.90613005E-07, 9.47343962E-07, 1.02979830E-06, 1.15025096E-06, 5 1.31737793E-06, 1.51718372E-06, 1.78595349E-06, 2.14900946E-06, 6 2.67250263E-06, 3.32462241E-06, 4.37002472E-06, 5.74739251E-06, 7 7.99091094E-06, 1.11202703E-05, 1.54900517E-05, 2.41361492E-05, 8 4.21368915E-05, 8.26176837E-05, 1.93279196E-04, 6.10921593E-04, 9 1.98181686E-03, 6.63905502E-03, 2.11121110E-02, 1.47647210E-01/ DATA CJ 66/ 1 7.41809339E-01, 1.33790339E-01, 5.01487182E-04, 1.04568765E-03, 2 1.20288596E-04, 1.34382316E-05, 8.57088619E-08, 8.57091533E-08, 3 8.57093719E-08, 8.57097727E-08, 8.57105014E-08, 8.57117766E-08, 4 8.57139628E-08, 8.57179708E-08, 8.57252587E-08, 8.57380140E-08, 5 8.57598846E-08, 8.57999953E-08, 8.58729720E-08, 8.60008310E-08, 6 8.62204624E-08, 8.66245821E-08, 8.71787179E-08, 8.80165955E-08, 7 8.96213548E-08, 9.18393144E-08, 9.49161071E-08, 9.93558454E-08, 8 1.05563824E-07, 1.14572453E-07, 1.27704487E-07, 1.45874719E-07, 9 1.67529054E-07, 1.96553240E-07, 2.35594091E-07, 2.91602843E-07/ DATA CJ 67/ 1 3.60979046E-07, 4.71448010E-07, 6.15864232E-07, 8.48941386E-07, 2 1.17061211E-06, 1.61468936E-06, 2.48048153E-06, 4.24535627E-06, 3 8.09776422E-06, 1.81670384E-05, 5.32821613E-05, 1.54559697E-04, 4 4.28901135E-04, 9.55275430E-04,-3.76288900E-03, 1.28758626E-01, 5 7.30925185E-01, 1.35950613E-01, 3.50239034E-03, 7.39490102E-04, 6 7.93709107E-05, 2.06439653E-08, 2.06440354E-08, 2.06440880E-08, 7 2.06441844E-08, 2.06443596E-08, 2.06446663E-08, 2.06451920E-08, 8 2.06461559E-08, 2.06479084E-08, 2.06509758E-08, 2.06562352E-08, 9 2.06658810E-08, 2.06834303E-08, 2.07141775E-08, 2.07669938E-08/ DATA CJ 68/ 1 2.08641748E-08, 2.09974301E-08, 2.11989155E-08, 2.15848062E-08, 2 2.21181348E-08, 2.28579477E-08, 2.39254208E-08, 2.54179319E-08, 3 2.75835584E-08, 3.07400247E-08, 3.51068015E-08, 4.03100133E-08, 4 4.72828475E-08, 5.66603189E-08, 7.01107091E-08, 8.67680891E-08, 5 1.13287218E-07, 1.47950783E-07, 2.03890911E-07, 2.81096290E-07, 6 3.87699179E-07, 5.95628575E-07, 1.01992811E-06, 1.94824133E-06, 7 4.38748695E-06, 1.30179794E-05, 3.88485065E-05, 1.16417342E-04, 8 3.47961738E-04, 1.00762108E-03, 2.73564972E-04, 1.32228865E-01, 9 7.23792490E-01, 1.23663010E-01,-9.29885927E-03,-1.23193146E-04/ DATA CJ 69/ 1 4.56812442E-09, 4.56813986E-09, 4.56815144E-09, 4.56817267E-09, 2 4.56821126E-09, 4.56827881E-09, 4.56839460E-09, 4.56860689E-09, 3 4.56899290E-09, 4.56966849E-09, 4.57082688E-09, 4.57295137E-09, 4 4.57681661E-09, 4.58358866E-09, 4.59522127E-09, 4.61662468E-09, 5 4.64597233E-09, 4.69034496E-09, 4.77532270E-09, 4.89275528E-09, 6 5.05562923E-09, 5.29059184E-09, 5.61901966E-09, 6.09538996E-09, 7 6.78936667E-09, 7.74882510E-09, 8.89123179E-09, 1.04209298E-08, 8 1.24762158E-08, 1.54208935E-08, 1.90632192E-08, 2.48537007E-08, 9 3.24104017E-08, 4.45831096E-08, 6.13489390E-08, 8.44499966E-08/ DATA CJ 70/ 1 1.29392210E-07, 2.20783682E-07, 4.19850164E-07, 9.39902731E-07, 2 2.76543520E-06, 8.18408673E-06, 2.43693695E-05, 7.29812344E-05, 3 2.19196312E-04, 1.10653705E-03, 8.66793851E-04, 1.36464968E-01, 4 7.60579030E-01, 1.08315064E-01,-7.14703041E-03, 9.32044857E-10, 5 9.32047995E-10, 9.32050349E-10, 9.32054664E-10, 9.32062510E-10, 6 9.32076240E-10, 9.32099779E-10, 9.32142934E-10, 9.32221403E-10, 7 9.32358740E-10, 9.32594222E-10, 9.33026093E-10, 9.33811827E-10, 8 9.35188459E-10, 9.37553133E-10, 9.41903948E-10, 9.47869514E-10, 9 9.56888953E-10, 9.74161074E-10, 9.98027764E-10, 1.03112604E-09/ DATA CJ 71/ 1 1.07886618E-09, 1.14558244E-09, 1.24232345E-09, 1.38320084E-09, 2 1.57787370E-09, 1.80953521E-09, 2.11953699E-09, 2.53574655E-09, 3 3.13154835E-09, 3.86780770E-09, 5.03700719E-09, 6.56094325E-09, 4 9.01229904E-09, 1.23833002E-08, 1.70205327E-08, 2.60240567E-08, 5 4.42839754E-08, 8.39202093E-08, 1.86998871E-07, 5.46516447E-07, 6 1.60572524E-06, 4.74612620E-06, 1.41224686E-05, 4.23264569E-05, 7 2.22304979E-04, 1.15531950E-03, 2.47181017E-03, 1.20822713E-01, 8 8.05702466E-01, 1.42819359E-02, 3.98573562E-11, 3.98574863E-11, 9 3.98575839E-11, 3.98577629E-11, 3.98580882E-11, 3.98586575E-11/ DATA CJ 72/ 1 3.98596336E-11, 3.98614230E-11, 3.98646767E-11, 3.98703713E-11, 2 3.98801355E-11, 3.98980426E-11, 3.99306215E-11, 3.99876986E-11, 3 4.00857347E-11, 4.02660912E-11, 4.05133383E-11, 4.08870542E-11, 4 4.16023791E-11, 4.25901010E-11, 4.39585256E-11, 4.59296366E-11, 5 4.86791694E-11, 5.26561680E-11, 5.84281163E-11, 6.63696338E-11, 6 7.57734928E-11, 8.82877885E-11, 1.04980903E-10, 1.28693399E-10, 7 1.57746760E-10, 2.03423868E-10, 2.62280518E-10, 3.55705134E-10, 8 4.82255574E-10, 6.53598367E-10, 9.79681374E-10, 1.62290687E-09, 9 2.96780567E-09, 6.28523094E-09, 1.69238753E-08, 4.47834951E-08/ DATA CJ 73/ 1 1.15119869E-07, 2.80762913E-07, 6.12865151E-07, 7.29517944E-07, 2-1.85281351E-05,-3.70871197E-04,-9.85146118E-03, 9.43947195E-02, 3 9.92892411E-01/ DATA XTAU/0.,.0000032,.0000056,.00001,.000018, A.000032,.000056,.0001,.00018,.00032, 1.00056,.001,.0018,.0032,.0056,.01,.016,.025,.042,.065, 2.096,.139,.196,.273,.375,.5,.63,.78,.95,1.15,1.35,1.6,1.85,2.15, 32.45,2.75,3.15,3.65,4.25,5.0,6.,7.,8.,9.,10.,11.5,13.,14.5,16., 4 18.,20./ DATA NXTAU/51/ END SUBROUTINE BLOCKH COMMON /MATX/CJ(2601),CH(2601),XTAU(51),NXTAU DIMENSION CH 1(36),CH 2(36),CH 3(36),CH 4(36),CH 5(36) DIMENSION CH 6(36),CH 7(36),CH 8(36),CH 9(36),CH 10(36) DIMENSION CH 11(36),CH 12(36),CH 13(36),CH 14(36),CH 15(36) DIMENSION CH 16(36),CH 17(36),CH 18(36),CH 19(36),CH 20(36) DIMENSION CH 21(36),CH 22(36),CH 23(36),CH 24(36),CH 25(36) DIMENSION CH 26(36),CH 27(36),CH 28(36),CH 29(36),CH 30(36) DIMENSION CH 31(36),CH 32(36),CH 33(36),CH 34(36),CH 35(36) DIMENSION CH 36(36),CH 37(36),CH 38(36),CH 39(36),CH 40(36) DIMENSION CH 41(36),CH 42(36),CH 43(36),CH 44(36),CH 45(36) DIMENSION CH 46(36),CH 47(36),CH 48(36),CH 49(36),CH 50(36) DIMENSION CH 51(36),CH 52(36),CH 53(36),CH 54(36),CH 55(36) DIMENSION CH 56(36),CH 57(36),CH 58(36),CH 59(36),CH 60(36) DIMENSION CH 61(36),CH 62(36),CH 63(36),CH 64(36),CH 65(36) DIMENSION CH 66(36),CH 67(36),CH 68(36),CH 69(36),CH 70(36) DIMENSION CH 71(36),CH 72(36),CH 73( 9) EQUIVALENCE (CH 1(1),CH ( 1)),(CH 2(1),CH ( 37)) EQUIVALENCE (CH 3(1),CH ( 73)),(CH 4(1),CH ( 109)) EQUIVALENCE (CH 5(1),CH ( 145)),(CH 6(1),CH ( 181)) EQUIVALENCE (CH 7(1),CH ( 217)),(CH 8(1),CH ( 253)) EQUIVALENCE (CH 9(1),CH ( 289)),(CH 10(1),CH ( 325)) EQUIVALENCE (CH 11(1),CH ( 361)),(CH 12(1),CH ( 397)) EQUIVALENCE (CH 13(1),CH ( 433)),(CH 14(1),CH ( 469)) EQUIVALENCE (CH 15(1),CH ( 505)),(CH 16(1),CH ( 541)) EQUIVALENCE (CH 17(1),CH ( 577)),(CH 18(1),CH ( 613)) EQUIVALENCE (CH 19(1),CH ( 649)),(CH 20(1),CH ( 685)) EQUIVALENCE (CH 21(1),CH ( 721)),(CH 22(1),CH ( 757)) EQUIVALENCE (CH 23(1),CH ( 793)),(CH 24(1),CH ( 829)) EQUIVALENCE (CH 25(1),CH ( 865)),(CH 26(1),CH ( 901)) EQUIVALENCE (CH 27(1),CH ( 937)),(CH 28(1),CH ( 973)) EQUIVALENCE (CH 29(1),CH (1009)),(CH 30(1),CH (1045)) EQUIVALENCE (CH 31(1),CH (1081)),(CH 32(1),CH (1117)) EQUIVALENCE (CH 33(1),CH (1153)),(CH 34(1),CH (1189)) EQUIVALENCE (CH 35(1),CH (1225)),(CH 36(1),CH (1261)) EQUIVALENCE (CH 37(1),CH (1297)),(CH 38(1),CH (1333)) EQUIVALENCE (CH 39(1),CH (1369)),(CH 40(1),CH (1405)) EQUIVALENCE (CH 41(1),CH (1441)),(CH 42(1),CH (1477)) EQUIVALENCE (CH 43(1),CH (1513)),(CH 44(1),CH (1549)) EQUIVALENCE (CH 45(1),CH (1585)),(CH 46(1),CH (1621)) EQUIVALENCE (CH 47(1),CH (1657)),(CH 48(1),CH (1693)) EQUIVALENCE (CH 49(1),CH (1729)),(CH 50(1),CH (1765)) EQUIVALENCE (CH 51(1),CH (1801)),(CH 52(1),CH (1837)) EQUIVALENCE (CH 53(1),CH (1873)),(CH 54(1),CH (1909)) EQUIVALENCE (CH 55(1),CH (1945)),(CH 56(1),CH (1981)) EQUIVALENCE (CH 57(1),CH (2017)),(CH 58(1),CH (2053)) EQUIVALENCE (CH 59(1),CH (2089)),(CH 60(1),CH (2125)) EQUIVALENCE (CH 61(1),CH (2161)),(CH 62(1),CH (2197)) EQUIVALENCE (CH 63(1),CH (2233)),(CH 64(1),CH (2269)) EQUIVALENCE (CH 65(1),CH (2305)),(CH 66(1),CH (2341)) EQUIVALENCE (CH 67(1),CH (2377)),(CH 68(1),CH (2413)) EQUIVALENCE (CH 69(1),CH (2449)),(CH 70(1),CH (2485)) EQUIVALENCE (CH 71(1),CH (2521)),(CH 72(1),CH (2557)) EQUIVALENCE (CH 73(1),CH (2593)) DATA CH 1/ 1 7.15528120E-07,-7.63679981E-07,-7.15500186E-07,-7.15459313E-07, 2-7.15399161E-07,-7.15312983E-07,-7.15165254E-07,-7.14858701E-07, 3-7.14382582E-07,-7.13607800E-07,-7.12377050E-07,-7.10300825E-07, 4-7.06860448E-07,-7.01420388E-07,-6.93063611E-07,-6.79532139E-07, 5-6.63270842E-07,-6.41769994E-07,-6.06941637E-07,-5.67254987E-07, 6-5.22282879E-07,-4.70473751E-07,-4.14388755E-07,-3.53840218E-07, 7-2.91560381E-07,-2.33727889E-07,-1.88154634E-07,-1.48244615E-07, 8-1.14444272E-07,-8.53987435E-08,-6.43470333E-08,-4.56539380E-08, 9-3.26942276E-08,-2.21150989E-08,-1.50875635E-08,-1.03652019E-08/ DATA CH 2/ 1-6.33939388E-09,-3.46859459E-09,-1.70493170E-09,-7.13016572E-10, 2-2.27726935E-10,-7.40657549E-11,-2.44269562E-11,-8.14546806E-12, 3-2.74070206E-12,-5.42231753E-13,-1.08693370E-13,-2.20183137E-14, 4-4.49889022E-15,-5.47402692E-16,-6.72957970E-17, 1.49142688E-06, 5-3.90281313E-07,-1.61431531E-06,-1.49134752E-06,-1.49120973E-06, 6-1.49097554E-06,-1.49063560E-06,-1.49006119E-06,-1.48907404E-06, 7-1.48745761E-06,-1.48489081E-06,-1.48056166E-06,-1.47338907E-06, 8-1.46204838E-06,-1.44462816E-06,-1.41642180E-06,-1.38252570E-06, 9-1.33770838E-06,-1.26511114E-06,-1.18238754E-06,-1.08864711E-06/ DATA CH 3/ 1-9.80655730E-07,-8.63751857E-07,-7.37544289E-07,-6.07728094E-07, 2-4.87182021E-07,-3.92189148E-07,-3.09000744E-07,-2.38547359E-07, 3-1.78004914E-07,-1.34124776E-07,-9.51609333E-08,-6.81477476E-08, 4-4.60966417E-08,-3.14484678E-08,-2.16051921E-08,-1.32138108E-08, 5-7.22992635E-09,-3.55375351E-09,-1.48620912E-09,-4.74673171E-10, 6-1.54382378E-10,-5.09154535E-11,-1.69783820E-11,-5.71270866E-12, 7-1.13022573E-12,-2.26560028E-13,-4.58948851E-14,-9.37746872E-15, 8-1.14100396E-15,-1.40271087E-16, 1.52106578E-06, 1.68212841E-06, 9 4.09944249E-07,-1.75645270E-06,-1.52097046E-06,-1.52073553E-06/ DATA CH 4/ 1-1.52034786E-06,-1.51978995E-06,-1.51877481E-06,-1.51712012E-06, 2-1.51449942E-06,-1.51008118E-06,-1.50276284E-06,-1.49119345E-06, 3-1.47342353E-06,-1.44465254E-06,-1.41007905E-06,-1.36436695E-06, 4-1.29032132E-06,-1.20594808E-06,-1.11033885E-06,-1.00019498E-06, 5-8.80961299E-07,-7.52238763E-07,-6.19835885E-07,-4.96887979E-07, 6-4.00002484E-07,-3.15156696E-07,-2.43299681E-07,-1.81551082E-07, 7-1.36796756E-07,-9.70566781E-08,-6.95053428E-08,-4.70149442E-08, 8-3.20749578E-08,-2.20355911E-08,-1.34770434E-08,-7.37395328E-09, 9-3.62454737E-09,-1.51581560E-09,-4.84129008E-10,-1.57457780E-10/ DATA CH 5/ 1-5.19297218E-11,-1.73166017E-11,-5.82650912E-12,-1.15274044E-12, 2-2.31073221E-13,-4.68091342E-14,-9.56427242E-15,-1.16373329E-15, 3-1.43065350E-16, 2.98150821E-06, 2.98161961E-06, 3.02985925E-06, 4 5.50707149E-07,-3.40191479E-06,-2.98116452E-06,-2.98048320E-06, 5-2.97927252E-06,-2.97725646E-06,-2.97401344E-06,-2.96886903E-06, 6-2.96020082E-06,-2.94584763E-06,-2.92316158E-06,-2.88832120E-06, 7-2.83191590E-06,-2.76413769E-06,-2.67452550E-06,-2.52937199E-06, 8-2.36397499E-06,-2.17655345E-06,-1.96064093E-06,-1.72691069E-06, 9-1.47458038E-06,-1.21503614E-06,-9.74026455E-07,-7.84106027E-07/ DATA CH 6/ 1-6.17786634E-07,-4.76928629E-07,-3.55885746E-07,-2.68155970E-07, 2-1.90255412E-07,-1.36247871E-07,-9.21610475E-08,-6.28749313E-08, 3-4.31952603E-08,-2.64183673E-08,-1.44547867E-08,-7.10501576E-09, 4-2.97137592E-09,-9.49013288E-10,-3.08656397E-10,-1.01795161E-10, 5-3.39448415E-11,-1.14214051E-11,-2.25965748E-12,-4.52960874E-13, 6-9.17575200E-14,-1.87483472E-14,-2.28120596E-15,-2.80443572E-16, 7 5.33941059E-06, 5.33959050E-06, 5.33971838E-06, 5.46288397E-06, 8 9.45594076E-07,-5.99346507E-06,-5.33838396E-06,-5.33622077E-06, 9-5.33261638E-06,-5.32678301E-06,-5.31753886E-06,-5.30199406E-06/ DATA CH 7/ 1-5.27626139E-06,-5.23560527E-06,-5.17318158E-06,-5.07213438E-06, 2-4.95072325E-06,-4.79020869E-06,-4.53021687E-06,-4.23397287E-06, 3-3.89828536E-06,-3.51157189E-06,-3.09294861E-06,-2.64101390E-06, 4-2.17616046E-06,-1.74450433E-06,-1.40435137E-06,-1.10646897E-06, 5-8.54188854E-07,-6.37398304E-07,-4.80272397E-07,-3.40750911E-07, 6-2.44022354E-07,-1.65062027E-07,-1.12610054E-07,-7.73634273E-08, 7-4.73157247E-08,-2.58887527E-08,-1.27251939E-08,-5.32177962E-09, 8-1.69969699E-09,-5.52808151E-10,-1.82316613E-10,-6.07956998E-11, 9-2.04558995E-11,-4.04707848E-12,-8.11259273E-13,-1.64338996E-13/ DATA CH 8/ 1-3.35785494E-14,-4.08567126E-15,-5.02278278E-16, 9.13329675E-06, 2 9.13358176E-06, 9.13380306E-06, 9.13420159E-06, 9.37031962E-06, 3 1.47104366E-06,-1.03630349E-05,-9.13025211E-06,-9.12398505E-06, 4-9.11390737E-06,-9.09802697E-06,-9.07135096E-06,-9.02725015E-06, 5-8.95762338E-06,-8.85075952E-06,-8.67781716E-06,-8.47005078E-06, 6-8.19539043E-06,-7.75053819E-06,-7.24367751E-06,-6.66934449E-06, 7-6.00772113E-06,-5.29151194E-06,-4.51831779E-06,-3.72302663E-06, 8-2.98453429E-06,-2.40259068E-06,-1.89296597E-06,-1.46135960E-06, 9-1.09047012E-06,-8.21656389E-07,-5.82960842E-07,-4.17476248E-07/ DATA CH 9/ 1-2.82389890E-07,-1.92654440E-07,-1.32354098E-07,-8.09481724E-08, 2-4.42906997E-08,-2.17703641E-08,-9.10454075E-09,-2.90785360E-09, 3-9.45747879E-10,-3.11908427E-10,-1.04009658E-10,-3.49960749E-11, 4-6.92376506E-12,-1.38790687E-12,-2.81152041E-13,-5.74463594E-14, 5-6.98978740E-15,-8.59300205E-16, 1.61715949E-05, 1.61720720E-05, 6 1.61724330E-05, 1.61730963E-05, 1.61743243E-05, 1.65968833E-05, 7 3.13002612E-06,-1.85271744E-05,-1.61620847E-05,-1.61440014E-05, 8-1.61156455E-05,-1.60681414E-05,-1.59898028E-05,-1.58662617E-05, 9-1.56767807E-05,-1.53702665E-05,-1.50021225E-05,-1.45155180E-05/ DATA CH 10/ 1-1.37274731E-05,-1.28296443E-05,-1.18123413E-05,-1.06404566E-05, 2-9.37191392E-06,-8.00246045E-06,-6.59388527E-06,-5.28591985E-06, 3-4.25522842E-06,-3.35262610E-06,-2.58820551E-06,-1.93132270E-06, 4-1.45522738E-06,-1.03247504E-06,-7.39386642E-07,-5.00136599E-07, 5-3.41207244E-07,-2.34410137E-07,-1.43365879E-07,-7.84424320E-08, 6-3.85570653E-08,-1.61248655E-08,-5.15003730E-09,-1.67499319E-09, 7-5.52413963E-10,-1.84209108E-10,-6.19807297E-11,-1.22625154E-11, 8-2.45808833E-12,-4.97941514E-13,-1.01741831E-13,-1.23794385E-14, 9-1.52188503E-15, 2.97035986E-05, 2.97044194E-05, 2.97050368E-05/ DATA CH 11/ 1 2.97061753E-05, 2.97082586E-05, 2.97119611E-05, 3.03723299E-05, 2 5.59251004E-06,-3.39127760E-05,-2.96749188E-05,-2.96219260E-05, 3-2.95338145E-05,-2.93890504E-05,-2.91612567E-05,-2.88123315E-05, 4-2.82483380E-05,-2.75712512E-05,-2.66765293E-05,-2.52278235E-05, 5-2.35775061E-05,-2.17077264E-05,-1.95539426E-05,-1.72226003E-05, 6-1.47058714E-05,-1.21172992E-05,-9.71365644E-06,-7.81957905E-06, 7-6.16090061E-06,-4.75616197E-06,-3.54904619E-06,-2.67415660E-06, 8-1.89729441E-06,-1.35870797E-06,-9.19057204E-07,-6.27005937E-07, 9-4.30754070E-07,-2.63450092E-07,-1.44146186E-07,-7.08525779E-08/ DATA CH 12/ 1-2.96310732E-08,-9.46370616E-09,-3.07796454E-09,-1.01511437E-09, 2-3.38501999E-10,-1.13895526E-10,-2.25335364E-11,-4.51696914E-12, 3-9.15014236E-13,-1.86960114E-13,-2.27483682E-14,-2.79660454E-15, 4 5.33166603E-05, 5.33180333E-05, 5.33190646E-05, 5.33209602E-05, 5 5.33244220E-05, 5.33305318E-05, 5.33411700E-05, 5.45903715E-05, 6 9.45344212E-06,-5.98750523E-05,-5.32379559E-05,-5.30766673E-05, 7-5.28137644E-05,-5.24019279E-05,-5.17726607E-05,-5.07570460E-05, 8-4.95388096E-05,-4.79297869E-05,-4.53254263E-05,-4.23593245E-05, 9-3.89992680E-05,-3.51292236E-05,-3.09404208E-05,-2.64187551E-05/ DATA CH 13/ 1-2.17681883E-05,-1.74499821E-05,-1.40472898E-05,-1.10675313E-05, 2-8.54399479E-06,-6.37549656E-06,-4.80383043E-06,-3.40827054E-06, 3-2.44075547E-06,-1.65097143E-06,-1.12633544E-06,-7.73792885E-07, 4-4.73252449E-07,-2.58938632E-07,-1.27276602E-07,-5.32279265E-08, 5-1.70001466E-08,-5.52910028E-09,-1.82349841E-09,-6.08066807E-10, 6-2.04595667E-10,-4.04779745E-11,-8.11402352E-12,-1.64367808E-12, 7-3.35844075E-13,-4.08638019E-14,-5.02365045E-15, 9.11154221E-05, 8 9.11176038E-05, 9.11192420E-05, 9.11222497E-05, 9.11277327E-05, 9 9.11373748E-05, 9.11540492E-05, 9.11851448E-05, 9.35975830E-05/ DATA CH 14/ 1 1.47063950E-05,-1.03462574E-04,-9.08852267E-05,-9.04268484E-05, 2-8.97143077E-05,-8.86303398E-05,-8.68853564E-05,-8.47952605E-05, 3-8.20369956E-05,-7.75751291E-05,-7.24955321E-05,-6.67426582E-05, 4-6.01176981E-05,-5.29478997E-05,-4.52090066E-05,-3.72500018E-05, 5-2.98601473E-05,-2.40372258E-05,-1.89381774E-05,-1.46199094E-05, 6-1.09092379E-05,-8.21988044E-06,-5.83189075E-06,-4.17635691E-06, 7-2.82495145E-06,-1.92724820E-06,-1.32401640E-06,-8.09767079E-07, 8-4.43060175E-07,-2.17777566E-07,-9.10757716E-08,-2.90880576E-08, 9-9.46053242E-09,-3.12008024E-09,-1.04042571E-09,-3.50070669E-10/ DATA CH 15/ 1-6.92592007E-11,-1.38833572E-11,-2.81238403E-12,-5.74639184E-13, 2-6.99191232E-14,-8.59560278E-15, 1.61084635E-04, 1.61088204E-04, 3 1.61090883E-04, 1.61095798E-04, 1.61104749E-04, 1.61120458E-04, 4 1.61147526E-04, 1.61197628E-04, 1.61290476E-04, 1.65663482E-04, 5 3.12833434E-05,-1.84767463E-04,-1.60383520E-04,-1.59095632E-04, 6-1.57151752E-04,-1.54037373E-04,-1.50316849E-04,-1.45414273E-04, 7-1.37492118E-04,-1.28479528E-04,-1.18276734E-04,-1.06530685E-04, 8-9.38212441E-05,-8.01050512E-05,-6.60003185E-05,-5.29053047E-05, 9-4.25875346E-05,-3.35527875E-05,-2.59017163E-05,-1.93273550E-05/ DATA CH 16/ 1-1.45626021E-05,-1.03318579E-05,-7.39883160E-06,-5.00464369E-06, 2-3.41426413E-06,-2.34558186E-06,-1.43454739E-06,-7.84901321E-07, 3-3.85800856E-07,-1.61343209E-07,-5.15300229E-08,-1.67594408E-08, 4-5.52724107E-09,-1.84311601E-09,-6.20149585E-10,-1.22692260E-10, 5-2.45942378E-11,-4.98210441E-12,-1.01796509E-12,-1.23860554E-13, 6-1.52269488E-14, 2.95118060E-04, 2.95124067E-04, 2.95128573E-04, 7 2.95136840E-04, 2.95151884E-04, 2.95178258E-04, 2.95223609E-04, 8 2.95307219E-04, 2.95460872E-04, 2.95735401E-04, 3.02765668E-04, 9 5.58676964E-05,-3.37573852E-04,-2.93054973E-04,-2.89397464E-04/ DATA CH 17/ 1-2.83590510E-04,-2.76688687E-04,-2.67619889E-04,-2.52994639E-04, 2-2.36378122E-04,-2.17582125E-04,-1.95954621E-04,-1.72562085E-04, 3-1.47323476E-04,-1.21375266E-04,-9.72882826E-05,-7.83117813E-05, 4-6.16962878E-05,-4.76263106E-05,-3.55369461E-05,-2.67755473E-05, 5-1.89963282E-05,-1.36034154E-05,-9.20135573E-06,-6.27727001E-06, 6-4.31241145E-06,-2.63742438E-06,-1.44303115E-06,-7.09283125E-07, 7-2.96621802E-07,-9.47346057E-08,-3.08109284E-08,-1.01613469E-08, 8-3.38839182E-09,-1.14008132E-09,-2.25556130E-10,-4.52136250E-11, 9-9.15898950E-12,-1.87139993E-12,-2.27701364E-13,-2.79926878E-14/ DATA CH 18/ 1 5.27450267E-04, 5.27460048E-04, 5.27467385E-04, 5.27480841E-04, 2 5.27505322E-04, 5.27548208E-04, 5.27621863E-04, 5.27757350E-04, 3 5.28005233E-04, 5.28444089E-04, 5.29212981E-04, 5.42982886E-04, 4 9.43257257E-05,-5.94289096E-04,-5.21949862E-04,-5.11218873E-04, 5-4.98593747E-04,-4.82097985E-04,-4.55597512E-04,-4.25563821E-04, 6-3.91641331E-04,-3.52647471E-04,-3.10500866E-04,-2.65051281E-04, 7-2.18341644E-04,-1.74994619E-04,-1.40851146E-04,-1.10959921E-04, 8-8.56508809E-05,-6.39065263E-05,-4.81490961E-05,-3.41589441E-05, 9-2.44608124E-05,-1.65448705E-05,-1.12868617E-05,-7.75380763E-06/ DATA CH 19/ 1-4.74205493E-06,-2.59450211E-06,-1.27523489E-06,-5.33293310E-07, 2-1.70319442E-07,-5.53929789E-08,-1.82682443E-08,-6.09165942E-09, 3-2.04962735E-09,-4.05499382E-10,-8.12834463E-11,-1.64656199E-11, 4-3.36430424E-12,-4.09347595E-13,-5.03233504E-14, 8.67939526E-04, 5 8.67954213E-04, 8.67965230E-04, 8.67985431E-04, 8.68022175E-04, 6 8.68086519E-04, 8.68196952E-04, 8.68399838E-04, 8.68770152E-04, 7 8.69422777E-04, 8.70555855E-04, 8.72685043E-04, 9.00316828E-04, 8 1.18726820E-04,-1.05068040E-03,-8.51640282E-04,-8.30180005E-04, 9-8.02328563E-04,-7.57838031E-04,-7.07603820E-04,-6.50991942E-04/ DATA CH 20/ 1-5.86013815E-04,-5.15855799E-04,-4.40257134E-04,-3.62606802E-04, 2-2.90576808E-04,-2.33857067E-04,-1.84211669E-04,-1.42183646E-04, 3-1.06079989E-04,-7.99196360E-05,-5.66953416E-05,-4.05972023E-05, 4-2.74581721E-05,-1.87312937E-05,-1.28676222E-05,-7.86932554E-06, 5-4.30539149E-06,-2.11610499E-06,-8.84915842E-07,-2.82610874E-07, 6-9.19117308E-08,-3.03114320E-08,-1.01074120E-08,-3.40075163E-09, 7-6.72798403E-10,-1.34862967E-10,-2.73190325E-11,-5.58186980E-12, 8-6.79162392E-13,-8.34926889E-14, 1.61498414E-03, 1.61500857E-03, 9 1.61502689E-03, 1.61506049E-03, 1.61512159E-03, 1.61522856E-03/ DATA CH 21/ 1 1.61541206E-03, 1.61574893E-03, 1.61636286E-03, 1.61744182E-03, 2 1.61930543E-03, 1.62277036E-03, 1.62924770E-03, 1.68333458E-03, 3 3.60899758E-04,-1.82730765E-03,-1.58410667E-03,-1.52899488E-03, 4-1.44234855E-03,-1.34546950E-03,-1.23689296E-03,-1.11271628E-03, 5-9.78971597E-04,-8.35109934E-04,-6.87538020E-04,-5.50779439E-04, 6-4.43161682E-04,-3.49011624E-04,-2.69337615E-04,-2.00915634E-04, 7-1.51349791E-04,-1.07355641E-04,-7.68658545E-05,-5.19840976E-05, 8-3.54597507E-05,-2.43579442E-05,-1.48953901E-05,-8.14890300E-06, 9-4.00495346E-06,-1.67469957E-06,-5.34808728E-07,-1.73924801E-07/ DATA CH 22/ 1-5.73564345E-08,-1.91250993E-08,-6.43470743E-09,-1.27299579E-09, 2-2.55167484E-10,-5.16880700E-11,-1.05608383E-11,-1.28494760E-12, 3-1.57962724E-13, 2.50720905E-03, 2.50724320E-03, 2.50726881E-03, 4 2.50731578E-03, 2.50740118E-03, 2.50755068E-03, 2.50780708E-03, 5 2.50827754E-03, 2.50913426E-03, 2.51063770E-03, 2.51322757E-03, 6 2.51801809E-03, 2.52687709E-03, 2.54289614E-03, 2.63774332E-03, 7 1.76260415E-04,-2.78126196E-03,-2.45704320E-03,-2.31262955E-03, 8-2.15394575E-03,-1.97774832E-03,-1.77739883E-03,-1.56245308E-03, 9-1.33188374E-03,-1.09584644E-03,-8.77427902E-04,-7.05726344E-04/ DATA CH 23/ 1-5.55621605E-04,-4.28668973E-04,-3.19696027E-04,-2.40783539E-04, 2-1.70762699E-04,-1.22247776E-04,-8.26646695E-05,-5.63817215E-05, 3-3.87261829E-05,-2.36795672E-05,-1.29532571E-05,-6.36557648E-06, 4-2.66157673E-06,-8.49889370E-07,-2.76373703E-07,-9.11370404E-08, 5-3.03877430E-08,-1.02237148E-08,-2.02250217E-09,-4.05390165E-10, 6-8.21157965E-11,-1.67774240E-11,-2.04127682E-12,-2.50935807E-13, 7 3.20994276E-03, 3.20998251E-03, 3.21001232E-03, 3.21005698E-03, 8 3.21016637E-03, 3.21034034E-03, 3.21063867E-03, 3.21118592E-03, 9 3.21218201E-03, 3.21392850E-03, 3.21693250E-03, 3.22247328E-03/ DATA CH 24/ 1 3.23266196E-03, 3.25087011E-03, 3.28333413E-03, 3.52880121E-03, 2 2.90599435E-04,-3.99201557E-03,-3.07880403E-03,-2.86239707E-03, 3-2.62426711E-03,-2.35540482E-03,-2.06836350E-03,-1.76152461E-03, 4-1.44821000E-03,-1.15882208E-03,-9.31623746E-04,-7.33184814E-04, 5-5.65473991E-04,-4.21599458E-04,-3.17461291E-04,-2.25092147E-04, 6-1.61113538E-04,-1.08927603E-04,-7.42843836E-05,-5.10170507E-05, 7-3.11911486E-05,-1.70601847E-05,-8.38286988E-06,-3.50466057E-06, 8-1.11897755E-06,-3.63847665E-07,-1.19974679E-07,-4.00009634E-08, 9-1.34574290E-08,-2.66207243E-09,-5.33563710E-10,-1.08075026E-10/ DATA CH 25/ 1-2.20806555E-11,-2.68642989E-12,-3.30236900E-13, 5.61912502E-03, 2 5.61918736E-03, 5.61923412E-03, 5.61931984E-03, 5.61947572E-03, 3 5.61974854E-03, 5.62021633E-03, 5.62107432E-03, 5.62263546E-03, 4 5.62537113E-03, 5.63007179E-03, 5.63872596E-03, 5.65458361E-03, 5 5.68273038E-03, 5.73223829E-03, 5.82772200E-03, 6.17039808E-03, 6 1.43639190E-03,-6.68103918E-03,-5.37711410E-03,-4.91201049E-03, 7-4.39582996E-03,-3.85110759E-03,-3.27335460E-03,-2.68668446E-03, 8-2.14696473E-03,-1.72437761E-03,-1.35598680E-03,-1.04510471E-03, 9-7.78728323E-04,-5.86104634E-04,-4.15382293E-04,-2.97210854E-04/ DATA CH 26/ 1-2.00873337E-04,-1.36950183E-04,-9.40333957E-05,-5.74765590E-05, 2-3.14294076E-05,-1.54399049E-05,-6.45358275E-06,-2.06005782E-06, 3-6.69737788E-07,-2.20809596E-07,-7.36127593E-08,-2.47632234E-08, 4-4.89800939E-09,-9.81635331E-10,-1.98820044E-10,-4.06183901E-11, 5-4.94151282E-12,-6.07419294E-13, 8.60872637E-03, 8.60881218E-03, 6 8.60887654E-03, 8.60899453E-03, 8.60920907E-03, 8.60958456E-03, 7 8.61022836E-03, 8.61140900E-03, 8.61355681E-03, 8.61731911E-03, 8 8.62377964E-03, 8.63565978E-03, 8.65738046E-03, 8.69577446E-03, 9 8.76277550E-03, 8.88981793E-03, 9.07314195E-03, 9.60580772E-03/ DATA CH 27/ 1 5.68967448E-04,-1.02680807E-02,-8.28490183E-03,-7.37632354E-03, 2-6.43680808E-03,-5.45363991E-03,-4.46443150E-03,-3.56017279E-03, 3-2.85517842E-03,-2.24242398E-03,-1.72651510E-03,-1.28528029E-03, 4-9.66674652E-04,-6.84627687E-04,-4.89594200E-04,-3.30726916E-04, 5-2.25387410E-04,-1.54703712E-04,-9.45251600E-05,-5.16691993E-05, 6-2.53739882E-05,-1.06022757E-05,-3.38323341E-06,-1.09963342E-06, 7-3.62473002E-07,-1.20820939E-07,-4.06387087E-08,-8.03682131E-09, 8-1.61050138E-09,-3.26157577E-10,-6.66275604E-11,-8.10497456E-12, 9-9.96203776E-13, 1.04706488E-02, 1.04707426E-02, 1.04708129E-02/ DATA CH 28/ 1 1.04709419E-02, 1.04711764E-02, 1.04715868E-02, 1.04722905E-02, 2 1.04735808E-02, 1.04759277E-02, 1.04800379E-02, 1.04870926E-02, 3 1.05000549E-02, 1.05237187E-02, 1.05654328E-02, 1.06378618E-02, 4 1.07738115E-02, 1.09663337E-02, 1.12726017E-02, 1.26399636E-02, 5 1.00257118E-03,-1.32448573E-02,-1.02003884E-02,-8.84301595E-03, 6-7.45329555E-03,-6.07603131E-03,-4.82977802E-03,-3.86459789E-03, 7-3.02952045E-03,-2.32888278E-03,-1.73132600E-03,-1.30078168E-03, 8-9.20311543E-04,-6.57610360E-04,-4.43884672E-04,-3.02318135E-04, 9-2.07403662E-04,-1.26655650E-04,-6.91945397E-05,-3.39630183E-05/ DATA CH 29/ 1-1.41841204E-05,-4.52398956E-06,-1.46986400E-06,-4.84372815E-07, 2-1.61415718E-07,-5.42826409E-08,-1.07326218E-08,-2.15032417E-09, 3-4.35418135E-10,-8.89365256E-11,-1.08173327E-11,-1.32944308E-12, 4 1.33110352E-02, 1.33111436E-02, 1.33112249E-02, 1.33113740E-02, 5 1.33116450E-02, 1.33121192E-02, 1.33129323E-02, 1.33144233E-02, 6 1.33171350E-02, 1.33218831E-02, 1.33300305E-02, 1.33449935E-02, 7 1.33722851E-02, 1.34203163E-02, 1.35034721E-02, 1.36586923E-02, 8 1.38764431E-02, 1.42174069E-02, 1.49161828E-02, 1.68840513E-02, 9 1.68049676E-03,-1.75585958E-02,-1.31968210E-02,-1.10288702E-02/ DATA CH 30/ 1-8.93226417E-03,-7.06568073E-03,-5.63477235E-03,-4.40515439E-03, 2-3.37877289E-03,-2.50692076E-03,-1.88069912E-03,-1.32869378E-03, 3-9.48354161E-04,-6.39452497E-04,-4.35142460E-04,-2.98317864E-04, 4-1.82035567E-04,-9.93745215E-05,-4.87418148E-05,-2.03423910E-05, 5-6.48375458E-06,-2.10552910E-06,-6.93572266E-07,-2.31057278E-07, 6-7.76821776E-08,-1.53542835E-08,-3.07552806E-09,-6.22636771E-10, 7-1.27155755E-10,-1.54631131E-11,-1.90012484E-12, 1.62635669E-02, 8 1.62636881E-02, 1.62637789E-02, 1.62639456E-02, 1.62642486E-02, 9 1.62647788E-02, 1.62656879E-02, 1.62673547E-02, 1.62703861E-02/ DATA CH 31/ 1 1.62756934E-02, 1.62847988E-02, 1.63015153E-02, 1.63319866E-02, 2 1.63855544E-02, 1.64781138E-02, 1.66502535E-02, 1.68902874E-02, 3 1.72624926E-02, 1.80097009E-02, 1.91301740E-02, 2.20507234E-02, 4 1.60598467E-03,-2.29301685E-02,-1.64041170E-02,-1.31520191E-02, 5-1.03269818E-02,-8.19508155E-03,-6.38158993E-03,-4.87910449E-03, 6-3.61017455E-03,-2.70275023E-03,-1.90566618E-03,-1.35806528E-03, 7-9.14371740E-04,-6.21497638E-04,-4.25669633E-04,-2.59477519E-04, 8-1.41505510E-04,-6.93399826E-05,-2.89124421E-05,-9.20687979E-06, 9-2.98779009E-06,-9.83669747E-07,-3.27560755E-07,-1.10088386E-07/ DATA CH 32/ 1-2.17503608E-08,-4.35523904E-09,-8.81474870E-10,-1.79975890E-10, 2-2.18811141E-11,-2.68824340E-12, 1.90288838E-02, 1.90290141E-02, 3 1.90291117E-02, 1.90292909E-02, 1.90296165E-02, 1.90301864E-02, 4 1.90311635E-02, 1.90329549E-02, 1.90362129E-02, 1.90419163E-02, 5 1.90517000E-02, 1.90696574E-02, 1.91023759E-02, 1.91598480E-02, 6 1.92590133E-02, 1.94429574E-02, 1.96983785E-02, 2.00918628E-02, 7 2.08715613E-02, 2.20119512E-02, 2.37371486E-02, 2.83114149E-02, 8 2.46456465E-03,-2.93002107E-02,-1.96758212E-02,-1.52741478E-02, 9-1.20287271E-02,-9.31144019E-03,-7.08564280E-03,-5.22193919E-03/ DATA CH 33/ 1-3.89775767E-03,-2.74046750E-03,-1.94871813E-03,-1.30935747E-03, 2-8.88519151E-04,-6.07746487E-04,-3.69934554E-04,-2.01457063E-04, 3-9.85867634E-05,-4.10554077E-05,-1.30573022E-05,-4.23335105E-06, 4-1.39273145E-06,-4.63507528E-07,-1.55703706E-07,-3.07449815E-08, 5-6.15350944E-09,-1.24497731E-09,-2.54117234E-10,-3.08848439E-11, 6-3.79339169E-12, 2.18877223E-02, 2.18878607E-02, 2.18879644E-02, 7 2.18881547E-02, 2.18885006E-02, 2.18891059E-02, 2.18901436E-02, 8 2.18920464E-02, 2.18955065E-02, 2.19015636E-02, 2.19119529E-02, 9 2.19310185E-02, 2.19657448E-02, 2.20267078E-02, 2.21317887E-02/ DATA CH 34/ 1 2.23263409E-02, 2.25956922E-02, 2.30087684E-02, 2.38202866E-02, 2 2.49891583E-02, 2.67122164E-02, 2.94459970E-02, 3.60952709E-02, 3 2.92743075E-03,-3.73647840E-02,-2.38681375E-02,-1.85748279E-02, 4-1.42447859E-02,-1.07616185E-02,-7.88376564E-03,-5.85888497E-03, 5-4.10243568E-03,-2.90808105E-03,-1.94826632E-03,-1.31904346E-03, 6-9.00545180E-04,-5.47062546E-04,-2.97330725E-04,-1.45238774E-04, 7-6.03779764E-05,-1.91696902E-05,-6.20711878E-06,-2.04005630E-06, 8-6.78401904E-07,-2.27744155E-07,-4.49348897E-08,-8.98804938E-09, 9-1.81755780E-09,-3.70836723E-10,-4.50505020E-11,-5.53125955E-12/ DATA CH 35/ 1 2.36015431E-02, 2.36016814E-02, 2.36017851E-02, 2.36019752E-02, 2 2.36023209E-02, 2.36029258E-02, 2.36039630E-02, 2.36058645E-02, 3 2.36093224E-02, 2.36153754E-02, 2.36257567E-02, 2.36448050E-02, 4 2.36794912E-02, 2.37403567E-02, 2.38451879E-02, 2.40390035E-02, 5 2.43067409E-02, 2.47159813E-02, 2.55150365E-02, 2.66539649E-02, 6 2.83052241E-02, 3.08509749E-02, 3.47923899E-02, 4.46119530E-02, 7 3.20503910E-03,-4.47187614E-02,-2.99247790E-02,-2.25420281E-02, 8-1.68110438E-02,-1.21916112E-02,-8.99598614E-03,-6.25826949E-03, 9-4.41481615E-03,-2.94457279E-03,-1.98669550E-03,-1.35260584E-03/ DATA CH 36/ 1-8.19247514E-04,-4.43981117E-04,-2.16298007E-04,-8.96923905E-05, 2-2.84065921E-05,-9.18119435E-06,-3.01326406E-06,-1.00090450E-06, 3-3.35701359E-07,-6.61622460E-08,-1.32225530E-08,-2.67198497E-09, 4-5.44850998E-10,-6.61487149E-11,-8.11753486E-12, 2.10819534E-02, 5 2.10820692E-02, 2.10821561E-02, 2.10823154E-02, 2.10826050E-02, 6 2.10831118E-02, 2.10839807E-02, 2.10855737E-02, 2.10884705E-02, 7 2.10935411E-02, 2.11022372E-02, 2.11181919E-02, 2.11472395E-02, 8 2.11981948E-02, 2.12859096E-02, 2.14479200E-02, 2.16713789E-02, 9 2.20121631E-02, 2.26748079E-02, 2.36128573E-02, 2.49588564E-02/ DATA CH 37/ 1 2.69994181E-02, 3.00695593E-02, 3.50546660E-02, 4.82036877E-02, 2-7.97111783E-04,-4.87438566E-02,-3.09328678E-02,-2.26544845E-02, 3-1.62047269E-02,-1.18463299E-02,-8.17351975E-03,-5.73132332E-03, 4-3.80196984E-03,-2.55452966E-03,-1.73345966E-03,-1.04625341E-03, 5-5.65090551E-04,-2.74450106E-04,-1.13476006E-04,-3.58373195E-05, 6-1.15586552E-05,-3.78744381E-06,-1.25645208E-06,-4.20972316E-07, 7-8.28645553E-08,-1.65443178E-08,-3.34060400E-09,-6.80748360E-10, 8-8.25891906E-11,-1.01292468E-11, 1.80345087E-02, 1.80346025E-02, 9 1.80346728E-02, 1.80348018E-02, 1.80350362E-02, 1.80354466E-02/ DATA CH 38/ 1 1.80361500E-02, 1.80374397E-02, 1.80397849E-02, 1.80438900E-02, 2 1.80509298E-02, 1.80638448E-02, 1.80873553E-02, 1.81285880E-02, 3 1.81995382E-02, 1.83304906E-02, 1.85109119E-02, 1.87856137E-02, 4 1.93181999E-02, 2.00685569E-02, 2.11377479E-02, 2.27412677E-02, 5 2.51123942E-02, 2.88515368E-02, 3.50495187E-02, 5.16632021E-02, 6 3.00500586E-03,-5.10502016E-02,-3.11834652E-02,-2.18472301E-02, 7-1.57558003E-02,-1.07467788E-02,-7.47494351E-03,-4.92345064E-03, 8-3.29037961E-03,-2.22343494E-03,-1.33610350E-03,-7.18622045E-04, 9-3.47694325E-04,-1.43252461E-04,-4.50864884E-05,-1.45053799E-05/ DATA CH 39/ 1-4.74387966E-06,-1.57134883E-06,-5.25827462E-07,-1.03351743E-07, 2-2.06108848E-08,-4.15785767E-09,-8.46641867E-10,-1.02630428E-10, 3-1.25787831E-11, 1.64786075E-02, 1.64786895E-02, 1.64787510E-02, 4 1.64788638E-02, 1.64790690E-02, 1.64794279E-02, 1.64800433E-02, 5 1.64811715E-02, 1.64832231E-02, 1.64868141E-02, 1.64929723E-02, 6 1.65042692E-02, 1.65248325E-02, 1.65608906E-02, 1.66229198E-02, 7 1.67373508E-02, 1.68948904E-02, 1.71344875E-02, 1.75980955E-02, 8 1.82492013E-02, 1.91727468E-02, 2.05483911E-02, 2.25612944E-02, 9 2.56821454E-02, 3.07104584E-02, 3.88090757E-02, 5.60828824E-02/ DATA CH 40/ 1 1.38016993E-03,-5.70339351E-02,-3.20806211E-02,-2.27479574E-02, 2-1.52901387E-02,-1.05291477E-02,-6.87599889E-03,-4.56641458E-03, 3-3.07072472E-03,-1.83601908E-03,-9.82842417E-04,-4.73524685E-04, 4-1.94334826E-04,-6.09350428E-05,-1.95508802E-05,-6.38070901E-06, 5-2.11005760E-06,-7.05164855E-07,-1.38381964E-07,-2.75628064E-08, 6-5.55478372E-09,-1.13017307E-09,-1.36879731E-10,-1.67645870E-11, 7 1.49382707E-02, 1.49383419E-02, 1.49383954E-02, 1.49384934E-02, 8 1.49386716E-02, 1.49389835E-02, 1.49395182E-02, 1.49404985E-02, 9 1.49422810E-02, 1.49454010E-02, 1.49507513E-02, 1.49605658E-02/ DATA CH 41/ 1 1.49784293E-02, 1.50097490E-02, 1.50636142E-02, 1.51629417E-02, 2 1.52995974E-02, 1.55072323E-02, 1.59083061E-02, 1.64700506E-02, 3 1.72637549E-02, 1.84392393E-02, 2.01445276E-02, 2.27531418E-02, 4 2.68624659E-02, 3.32277631E-02, 4.20505558E-02, 6.32993021E-02, 5 4.77638112E-03,-6.19856622E-02,-3.71436880E-02,-2.42903955E-02, 6-1.64402688E-02,-1.05882308E-02,-6.96335960E-03,-4.64839913E-03, 7-2.75889880E-03,-1.46685643E-03,-7.02504829E-04,-2.86746026E-04, 8-8.94499336E-05,-2.85938507E-05,-9.30594132E-06,-3.07068166E-06, 9-1.02437882E-06,-2.00603757E-07,-3.98910777E-08,-8.02885662E-09/ DATA CH 42/ 1-1.63180516E-09,-1.97406377E-10,-2.41552084E-11, 1.19676523E-02, 2 1.19677075E-02, 1.19677488E-02, 1.19678247E-02, 1.19679626E-02, 3 1.19682039E-02, 1.19686175E-02, 1.19693759E-02, 1.19707550E-02, 4 1.19731688E-02, 1.19773080E-02, 1.19849008E-02, 1.19987195E-02, 5 1.20229452E-02, 1.20646023E-02, 1.21413936E-02, 1.22469917E-02, 6 1.24073222E-02, 1.27166280E-02, 1.31489715E-02, 1.37581127E-02, 7 1.46565416E-02, 1.59520156E-02, 1.79155963E-02, 2.09638003E-02, 8 2.55738576E-02, 3.17370854E-02, 4.13539855E-02, 6.47330583E-02, 9-3.13002439E-03,-6.64300268E-02,-3.38972397E-02,-2.25383908E-02/ DATA CH 43/ 1-1.42927434E-02,-9.29930308E-03,-6.15889710E-03,-3.62688409E-03, 2-1.91468013E-03,-9.11336795E-04,-3.69930636E-04,-1.14801546E-04, 3-3.65621381E-05,-1.18661438E-05,-3.90696388E-06,-1.30108568E-06, 4-2.54265702E-07,-5.04812466E-08,-1.01473767E-08,-2.06022904E-09, 5-2.48953995E-10,-3.04351150E-11, 9.90213654E-03, 9.90218064E-03, 6 9.90221371E-03, 9.90227434E-03, 9.90238459E-03, 9.90257751E-03, 7 9.90290825E-03, 9.90351464E-03, 9.90461728E-03, 9.90654721E-03, 8 9.90985662E-03, 9.91592702E-03, 9.92697457E-03, 9.94634027E-03, 9 9.97963508E-03, 1.00409936E-02, 1.01253323E-02, 1.02533023E-02/ DATA CH 44/ 1 1.04998993E-02, 1.08439750E-02, 1.13275447E-02, 1.20382071E-02, 2 1.30576130E-02, 1.45908932E-02, 1.69430759E-02, 2.04359677E-02, 3 2.49835860E-02, 3.18044908E-02, 4.24883980E-02, 7.17810122E-02, 4 8.67332704E-03,-6.89895852E-02,-3.75877207E-02,-2.31267135E-02, 5-1.47569239E-02,-9.64269831E-03,-5.60654549E-03,-2.92702753E-03, 6-1.38022587E-03,-5.55694562E-04,-1.71160116E-04,-5.42248495E-05, 7-1.75297441E-05,-5.75424343E-06,-1.91162598E-06,-3.72520712E-07, 8-7.37975875E-08,-1.48084838E-08,-3.00232238E-09,-3.62241875E-10, 9-4.42306309E-11, 8.17766125E-03, 8.17769672E-03, 8.17772332E-03/ DATA CH 45/ 1 8.17777209E-03, 8.17786076E-03, 8.17801593E-03, 8.17828196E-03, 2 8.17876969E-03, 8.17965656E-03, 8.18120883E-03, 8.18387062E-03, 3 8.18875298E-03, 8.19763809E-03, 8.21321213E-03, 8.23998502E-03, 4 8.28931430E-03, 8.35709735E-03, 8.45989986E-03, 8.65784069E-03, 5 8.93367940E-03, 9.32067034E-03, 9.88797957E-03, 1.06988496E-02, 6 1.19121548E-02, 1.37590627E-02, 1.64702835E-02, 1.99453256E-02, 7 2.50435890E-02, 3.27774721E-02, 4.59347375E-02, 7.42013248E-02, 8-3.84440691E-03,-7.61316789E-02,-3.61005009E-02,-2.25876634E-02, 9-1.45415779E-02,-8.33864216E-03,-4.30235527E-03,-2.00920297E-03/ DATA CH 46/ 1-8.02224334E-04,-2.45245798E-04,-7.72927354E-05,-2.48915407E-05, 2-8.14674445E-06,-2.70011013E-06,-5.24735849E-07,-1.03734098E-07, 3-2.07811051E-08,-4.20755327E-09,-5.06922737E-10,-6.18247845E-11, 4 6.11252521E-03, 6.11255098E-03, 6.11257031E-03, 6.11260575E-03, 5 6.11267017E-03, 6.11278293E-03, 6.11297622E-03, 6.11333061E-03, 6 6.11397502E-03, 6.11510290E-03, 6.11703692E-03, 6.12058433E-03, 7 6.12703979E-03, 6.13835434E-03, 6.15780263E-03, 6.19362889E-03, 8 6.24284199E-03, 6.31744633E-03, 6.46097742E-03, 6.66074206E-03, 9 6.94051524E-03, 7.34963242E-03, 7.93233789E-03, 8.79983611E-03/ DATA CH 47/ 1 1.01105399E-02, 1.20139653E-02, 1.44190263E-02, 1.78794221E-02, 2 2.29776191E-02, 3.12457639E-02, 4.32092822E-02, 8.03682628E-02, 3 7.96504037E-03,-7.77435659E-02,-3.82082769E-02,-2.39372959E-02, 4-1.33928966E-02,-6.77602270E-03,-3.11640595E-03,-1.22867876E-03, 5-3.71486061E-04,-1.16205869E-04,-3.72204288E-05,-1.21315871E-05, 6-4.00773967E-06,-7.75921754E-07,-1.52950062E-07,-3.05712348E-08, 7-6.17843471E-09,-7.42915499E-10,-9.04651545E-11, 4.84035718E-03, 8 4.84037714E-03, 4.84039212E-03, 4.84041957E-03, 4.84046948E-03, 9 4.84055683E-03, 4.84070657E-03, 4.84098112E-03, 4.84148033E-03/ DATA CH 48/ 1 4.84235409E-03, 4.84385235E-03, 4.84660042E-03, 4.85160115E-03, 2 4.86036555E-03, 4.87542922E-03, 4.90317432E-03, 4.94127798E-03, 3 4.99902191E-03, 5.11005101E-03, 5.26444026E-03, 5.48039520E-03, 4 5.79563422E-03, 6.24351713E-03, 6.90795579E-03, 7.90675700E-03, 5 9.34685632E-03, 1.11498855E-02, 1.37134602E-02, 1.74284831E-02, 6 2.33075143E-02, 3.15464164E-02, 4.71303961E-02, 8.31860584E-02, 7-1.39809080E-03,-8.27387920E-02,-4.26914313E-02,-2.30114305E-02, 8-1.13291684E-02,-5.10872289E-03,-1.98326793E-03,-5.91887189E-04, 9-1.83572375E-04,-5.84402378E-05,-1.89608675E-05,-6.24146835E-06/ DATA CH 49/ 1-1.20342928E-06,-2.36485698E-07,-4.71534551E-08,-9.51109020E-09, 2-1.14126675E-09,-1.38742936E-10, 3.06078216E-03, 3.06079452E-03, 3 3.06080379E-03, 3.06082079E-03, 3.06085169E-03, 3.06090577E-03, 4 3.06099849E-03, 3.06116847E-03, 3.06147755E-03, 3.06201853E-03, 5 3.06294614E-03, 3.06464754E-03, 3.06774352E-03, 3.07316939E-03, 6 3.08249429E-03, 3.09966707E-03, 3.12324631E-03, 3.15896846E-03, 7 3.22761787E-03, 3.32299780E-03, 3.45626012E-03, 3.65047653E-03, 8 3.92579238E-03, 4.33292826E-03, 4.94215751E-03, 5.81499105E-03, 9 6.89908541E-03, 8.42487188E-03, 1.06056083E-02, 1.39880458E-02/ DATA CH 50/ 1 1.85952310E-02, 2.69222098E-02, 3.97570231E-02, 8.17551485E-02, 2-2.09131453E-03,-8.11066235E-02,-3.25775813E-02,-1.56223141E-02, 3-6.89366661E-03,-2.63175306E-03,-7.74659828E-04,-2.38122772E-04, 4-7.53309275E-05,-2.43267140E-05,-7.97870666E-06,-1.53201107E-06, 5-3.00117305E-07,-5.96957156E-08,-1.20174531E-08,-1.43902739E-09, 6-1.74654400E-10, 2.40512571E-03, 2.40513525E-03, 2.40514241E-03, 7 2.40515553E-03, 2.40517939E-03, 2.40522114E-03, 2.40529272E-03, 8 2.40542396E-03, 2.40566258E-03, 2.40608023E-03, 2.40679639E-03, 9 2.40810991E-03, 2.41050005E-03, 2.41468874E-03, 2.42188700E-03/ DATA CH 51/ 1 2.43514190E-03, 2.45333866E-03, 2.48089982E-03, 2.53384359E-03, 2 2.60735450E-03, 2.70997012E-03, 2.85933438E-03, 3.07069863E-03, 3 3.38249757E-03, 3.84744668E-03, 4.51040248E-03, 5.32899596E-03, 4 6.47276667E-03, 8.09200038E-03, 1.05707708E-02, 1.38891885E-02, 5 1.97365176E-02, 2.84560234E-02, 4.53047976E-02, 8.93548007E-02, 6 1.14633644E-02,-8.50321604E-02,-2.84309792E-02,-1.22811274E-02, 7-4.58861788E-03,-1.32715400E-03,-4.03446003E-04,-1.26653331E-04, 8-4.06694747E-05,-1.32809492E-05,-2.53758515E-06,-4.95287716E-07, 9-9.82372640E-08,-1.97315428E-08,-2.35709284E-09,-2.85539273E-10/ DATA CH 52/ 1 2.01712685E-03, 2.01713472E-03, 2.01714062E-03, 2.01715144E-03, 2 2.01717110E-03, 2.01720552E-03, 2.01726451E-03, 2.01737268E-03, 3 2.01756936E-03, 2.01791361E-03, 2.01850388E-03, 2.01958652E-03, 4 2.02155648E-03, 2.02500871E-03, 2.03094102E-03, 2.04186369E-03, 5 2.05685634E-03, 2.07955939E-03, 2.12315372E-03, 2.18364614E-03, 6 2.26801810E-03, 2.39068326E-03, 2.56398272E-03, 2.81904874E-03, 7 3.19818241E-03, 3.73643021E-03, 4.39752935E-03, 5.31530603E-03, 8 6.60386497E-03, 8.55456517E-03, 1.11290500E-02, 1.55742879E-02, 9 2.20122110E-02, 3.39250844E-02, 5.36878777E-02, 9.95979074E-02/ DATA CH 53/ 1 7.38783044E-03,-9.50072179E-02,-2.79356771E-02,-1.01851683E-02, 2-2.87000689E-03,-8.58470434E-04,-2.66568783E-04,-8.49241131E-05, 3-2.75671564E-05,-5.23211420E-06,-1.01618882E-06,-2.00793527E-07, 4-4.02097603E-08,-4.78825897E-09,-5.78618369E-10, 1.33288084E-03, 5 1.33288594E-03, 1.33288976E-03, 1.33289677E-03, 1.33290952E-03, 6 1.33293182E-03, 1.33297006E-03, 1.33304017E-03, 1.33316764E-03, 7 1.33339075E-03, 1.33377332E-03, 1.33447498E-03, 1.33575171E-03, 8 1.33798900E-03, 1.34183333E-03, 1.34891082E-03, 1.35862388E-03, 9 1.37332860E-03, 1.40155268E-03, 1.44069144E-03, 1.49523153E-03/ DATA CH 54/ 1 1.57442635E-03, 1.68611825E-03, 1.85011482E-03, 2.09306390E-03, 2 2.43641543E-03, 2.85584007E-03, 3.43430215E-03, 4.23973960E-03, 3 5.44579212E-03, 7.01592436E-03, 9.67657467E-03, 1.34312915E-02, 4 2.01127759E-02, 3.05514315E-02, 4.72151598E-02, 1.06374254E-01, 5 6.17009581E-03,-9.96689690E-02,-2.29826081E-02,-6.35395069E-03, 6-1.86016685E-03,-5.69117121E-04,-1.79391630E-04,-5.77685069E-05, 7-1.08675594E-05,-2.09713305E-06,-4.12348604E-07,-8.22550044E-08, 8-9.75547377E-09,-1.17513816E-09, 7.83530263E-04, 7.83533205E-04, 9 7.83535411E-04, 7.83539456E-04, 7.83546811E-04, 7.83559683E-04/ DATA CH 55/ 1 7.83581748E-04, 7.83622204E-04, 7.83695764E-04, 7.83824512E-04, 2 7.84045274E-04, 7.84450168E-04, 7.85186888E-04, 7.86477851E-04, 3 7.88695987E-04, 7.92779208E-04, 7.98382125E-04, 8.06862583E-04, 4 8.23133638E-04, 8.45683544E-04, 8.77081467E-04, 9.22621229E-04, 5 9.86747741E-04, 1.08070159E-03, 1.21947081E-03, 1.41480537E-03, 6 1.65228363E-03, 1.97796366E-03, 2.42825567E-03, 3.09645031E-03, 7 3.95688231E-03, 5.39401252E-03, 7.38417265E-03, 1.08343660E-02, 8 1.60328684E-02, 2.39734579E-02, 4.17194172E-02, 1.11167234E-01, 9 8.12147389E-03,-1.03787203E-01,-1.21664585E-02,-3.86675215E-03/ DATA CH 56/ 1-1.18915115E-03,-3.73896986E-04,-1.19964593E-04,-2.24513332E-05, 2-4.31383088E-06,-8.45232000E-07,-1.68121328E-07,-1.98775513E-08, 3-2.38852128E-09, 4.31428330E-04, 4.31429921E-04, 4.31431114E-04, 4 4.31433301E-04, 4.31437277E-04, 4.31444237E-04, 4.31456167E-04, 5 4.31478041E-04, 4.31517814E-04, 4.31587425E-04, 4.31706786E-04, 6 4.31925702E-04, 4.32324019E-04, 4.33021975E-04, 4.34221142E-04, 7 4.36428406E-04, 4.39456738E-04, 4.44039416E-04, 4.52828828E-04, 8 4.65003230E-04, 4.81941729E-04, 5.06483608E-04, 5.40992089E-04, 9 5.91451062E-04, 6.65773945E-04, 7.70012232E-04, 8.96197259E-04/ DATA CH 57/ 1 1.06838152E-03, 1.30498580E-03, 1.65337178E-03, 2.09788586E-03, 2 2.83167264E-03, 3.83295521E-03, 5.53558430E-03, 8.03725864E-03, 3 1.17425654E-02, 1.96937155E-02, 3.83110605E-02, 1.16965943E-01, 4 1.70596981E-02,-1.04676812E-01,-1.49791483E-02,-4.61490244E-03, 5-1.41336984E-03,-4.44019379E-04,-8.12146998E-05,-1.53549240E-05, 6-2.97292628E-06,-5.85942629E-07,-6.86335825E-08,-8.18846903E-09, 7 1.76504596E-04, 1.76505236E-04, 1.76505716E-04, 1.76506595E-04, 8 1.76508194E-04, 1.76510993E-04, 1.76515791E-04, 1.76524587E-04, 9 1.76540581E-04, 1.76568575E-04, 1.76616575E-04, 1.76704609E-04/ DATA CH 58/ 1 1.76864784E-04, 1.77145446E-04, 1.77627631E-04, 1.78515097E-04, 2 1.79732531E-04, 1.81574490E-04, 1.85106158E-04, 1.89995492E-04, 3 1.96793481E-04, 2.06633635E-04, 2.20451953E-04, 2.40621411E-04, 4 2.70257059E-04, 3.11687506E-04, 3.61652140E-04, 4.29533409E-04, 5 5.22318426E-04, 6.58041955E-04, 8.29891879E-04, 1.11086753E-03, 6 1.48978818E-03, 2.12459025E-03, 3.04004297E-03, 4.36637098E-03, 7 7.12331778E-03, 1.32969150E-02, 2.85096991E-02, 1.11666537E-01, 8-4.21396883E-03,-1.10284816E-01,-1.64598789E-02,-5.04576505E-03, 9-1.54500498E-03,-2.74412953E-04,-5.08407627E-05,-9.70061455E-06/ DATA CH 59/ 1-1.89099014E-06,-2.19067018E-07,-2.59202504E-08, 4.75737999E-05, 2 4.75739692E-05, 4.75740961E-05, 4.75743288E-05, 4.75747518E-05, 3 4.75754922E-05, 4.75767614E-05, 4.75790884E-05, 4.75833196E-05, 4 4.75907252E-05, 4.76034231E-05, 4.76267115E-05, 4.76690835E-05, 5 4.77433262E-05, 4.78708713E-05, 4.81055985E-05, 4.84275557E-05, 6 4.89145775E-05, 4.98480482E-05, 5.11396923E-05, 5.29342760E-05, 7 5.55293882E-05, 5.91687194E-05, 6.44709356E-05, 7.22419364E-05, 8 8.30697594E-05, 9.60776780E-05, 1.13671693E-04, 1.37592294E-04, 9 1.72353366E-04, 2.16035135E-04, 2.86792225E-04, 3.81147735E-04/ DATA CH 60/ 1 5.37033212E-04, 7.58041404E-04, 1.07204934E-03, 1.70711650E-03, 2 3.06896932E-03, 6.23597647E-03, 1.46455423E-02, 1.10928995E-01, 3 3.32637354E-04,-1.09275276E-01,-1.61840066E-02,-4.96436691E-03, 4-8.49428119E-04,-1.53251063E-04,-2.87008566E-05,-5.51873468E-06, 5-6.30811811E-07,-7.39041184E-08, 1.65963707E-05, 1.65964292E-05, 6 1.65964730E-05, 1.65965535E-05, 1.65966997E-05, 1.65969557E-05, 7 1.65973944E-05, 1.65981988E-05, 1.65996615E-05, 1.66022215E-05, 8 1.66066110E-05, 1.66146615E-05, 1.66293089E-05, 1.66549730E-05, 9 1.66990618E-05, 1.67801970E-05, 1.68914772E-05, 1.70597947E-05/ DATA CH 61/ 1 1.73823576E-05, 1.78285817E-05, 1.84483554E-05, 1.93441974E-05, 2 2.05997413E-05, 2.24274540E-05, 2.51031596E-05, 2.88259537E-05, 3 3.32908189E-05, 3.93183762E-05, 4.74950377E-05, 5.93453073E-05, 4 7.41919140E-05, 9.81549891E-05, 1.29978323E-04, 1.82300609E-04, 5 2.56075790E-04, 3.60299807E-04, 5.69642755E-04, 1.01491888E-03, 6 2.04637231E-03, 4.98400307E-03, 1.62482170E-02, 1.09495330E-01, 7 4.87780468E-04,-1.07070311E-01,-1.85042259E-02,-2.99110492E-03, 8-5.16537201E-04,-9.40606513E-05,-1.77389579E-05,-1.99116462E-06, 9-2.30294703E-07, 5.41117987E-06, 5.41119878E-06, 5.41121296E-06/ DATA CH 62/ 1 5.41123897E-06, 5.41128625E-06, 5.41136899E-06, 5.41151083E-06, 2 5.41177089E-06, 5.41224376E-06, 5.41307138E-06, 5.41449045E-06, 3 5.41709305E-06, 5.42182829E-06, 5.43012499E-06, 5.44437766E-06, 4 5.47060549E-06, 5.50657593E-06, 5.56097877E-06, 5.66522125E-06, 5 5.80939544E-06, 6.00958333E-06, 6.29882216E-06, 6.70396889E-06, 6 7.29329526E-06, 8.15515016E-06, 9.35265992E-06, 1.07866473E-05, 7 1.27191268E-05, 1.53351846E-05, 1.91171055E-05, 2.38419814E-05, 8 3.14425618E-05, 4.14968487E-05, 5.79511291E-05, 8.10274507E-05, 9 1.13439313E-04, 1.78053573E-04, 3.14022833E-04, 6.24374131E-04/ DATA CH 63/ 1 1.49124696E-03, 4.87119183E-03, 1.58675957E-02, 1.08112412E-01, 2-5.64721193E-03,-1.07343941E-01,-1.38176932E-03,-6.67356397E-04, 3-1.37885383E-04,-2.72730427E-05,-3.15302305E-06,-3.70214196E-07, 4 2.08043565E-06, 2.08044287E-06, 2.08044828E-06, 2.08045820E-06, 5 2.08047624E-06, 2.08050781E-06, 2.08056193E-06, 2.08066115E-06, 6 2.08084156E-06, 2.08115733E-06, 2.08169875E-06, 2.08269172E-06, 7 2.08449834E-06, 2.08766372E-06, 2.09310134E-06, 2.10310735E-06, 8 2.11682952E-06, 2.13758185E-06, 2.17734083E-06, 2.23231940E-06, 9 2.30863775E-06, 2.41886513E-06, 2.57318772E-06, 2.79751407E-06/ DATA CH 64/ 1 3.12527806E-06, 3.58015346E-06, 4.12411732E-06, 4.85605468E-06, 2 5.84511401E-06, 7.27185995E-06, 9.05002713E-06, 1.19022183E-05, 3 1.56626318E-05, 2.17926082E-05, 3.03508050E-05, 4.23131053E-05, 4 6.60120571E-05, 1.15442162E-04, 2.26886841E-04, 5.32684722E-04, 5 1.69371530E-03, 5.52770775E-03, 1.80892239E-02, 1.16234750E-01, 6 2.76168404E-02,-9.53568850E-02,-2.93943754E-03,-8.38438697E-04, 7-1.65138689E-04,-1.86290604E-05,-2.14192535E-06, 7.11612643E-07, 8 7.11615095E-07, 7.11616934E-07, 7.11620305E-07, 7.11626435E-07, 9 7.11637161E-07, 7.11655550E-07, 7.11689265E-07, 7.11750569E-07/ DATA CH 65/ 1 7.11857863E-07, 7.12041833E-07, 7.12379237E-07, 7.12993109E-07, 2 7.14068666E-07, 7.15916272E-07, 7.19316041E-07, 7.23978257E-07, 3 7.31028596E-07, 7.44534757E-07, 7.63207949E-07, 7.89123296E-07, 4 8.26541566E-07, 8.78906601E-07, 9.54982163E-07, 1.06605075E-06, 5 1.22003998E-06, 1.40397899E-06, 1.65116303E-06, 1.98467729E-06, 6 2.46491486E-06, 3.06223933E-06, 4.01807902E-06, 5.27484361E-06, 7 7.31698881E-06, 1.01576386E-05, 1.41127191E-05, 2.19093204E-05, 8 3.80573906E-05, 7.41150532E-05, 1.71687225E-04, 5.33923293E-04, 9 1.69603350E-03, 5.53819650E-03, 1.83971155E-02, 1.02940053E-01/ DATA CH 66/ 1-6.16317670E-03,-1.00741788E-01,-3.73960779E-03,-9.74975681E-04, 2-1.09756316E-04,-1.23812238E-05, 8.08788948E-08, 8.08791690E-08, 3 8.08793747E-08, 8.08797519E-08, 8.08804375E-08, 8.08816375E-08, 4 8.08836946E-08, 8.08874661E-08, 8.08943238E-08, 8.09063263E-08, 5 8.09269060E-08, 8.09646492E-08, 8.10333184E-08, 8.11536300E-08, 6 8.13602954E-08, 8.17405538E-08, 8.22619620E-08, 8.30503349E-08, 7 8.45602162E-08, 8.66469097E-08, 8.95413560E-08, 9.37174735E-08, 8 9.95558916E-08, 1.08026390E-07, 1.20370367E-07, 1.37443819E-07, 9 1.57782504E-07, 1.85030552E-07, 2.21662610E-07, 2.74182728E-07/ DATA CH 67/ 1 3.39193538E-07, 4.42631225E-07, 5.77739664E-07, 7.95587506E-07, 2 1.09593305E-06, 1.51015281E-06, 2.31679844E-06, 3.95882473E-06, 3 7.53797472E-06, 1.68839094E-05, 4.95306923E-05, 1.44789965E-04, 4 4.15382842E-04, 1.09942732E-03, 1.31208811E-03, 1.02365061E-01, 5 4.70799162E-04,-9.82089711E-02,-5.38213464E-03,-6.63214122E-04, 6-7.19592889E-05, 1.95130503E-08, 1.95131164E-08, 1.95131659E-08, 7 1.95132568E-08, 1.95134219E-08, 1.95137110E-08, 1.95142064E-08, 8 1.95151148E-08, 1.95167666E-08, 1.95196575E-08, 1.95246144E-08, 9 1.95337053E-08, 1.95502450E-08, 1.95792233E-08, 1.96290007E-08/ DATA CH 68/ 1 1.97205891E-08, 1.98461735E-08, 2.00360556E-08, 2.03997073E-08, 2 2.09022661E-08, 2.15993323E-08, 2.26049996E-08, 2.40108548E-08, 3 2.60502724E-08, 2.90218592E-08, 3.31312256E-08, 3.80255045E-08, 4 4.45810213E-08, 5.33920847E-08, 6.60213059E-08, 8.16498384E-08, 5 1.06509044E-07, 1.38970511E-07, 1.91297283E-07, 2.63424155E-07, 6 3.62884506E-07, 5.56570399E-07, 9.50953805E-07, 1.81143275E-06, 7 4.06430324E-06, 1.19959897E-05, 3.56109619E-05, 1.06274847E-04, 8 3.17923256E-04, 9.41771985E-04, 3.54841289E-03, 9.95277362E-02, 9-4.11990696E-03,-9.78057270E-02, 3.72452157E-03, 5.71822715E-05/ DATA CH 69/ 1 4.33638262E-09, 4.33639724E-09, 4.33640820E-09, 4.33642830E-09, 2 4.33646485E-09, 4.33652880E-09, 4.33663844E-09, 4.33683946E-09, 3 4.33720496E-09, 4.33784467E-09, 4.33894153E-09, 4.34095316E-09, 4 4.34461307E-09, 4.35102535E-09, 4.36203991E-09, 4.38230594E-09, 5 4.41009364E-09, 4.45210675E-09, 4.53256276E-09, 4.64374017E-09, 6 4.79792631E-09, 5.02033171E-09, 5.33116143E-09, 5.78191679E-09, 7 6.43840166E-09, 7.34571416E-09, 8.42561144E-09, 9.87098040E-09, 8 1.18119837E-08, 1.45912712E-08, 1.80267803E-08, 2.34843331E-08, 9 3.06004650E-08, 4.20522909E-08, 5.78080613E-08, 7.94929896E-08/ DATA CH 70/ 1 1.21621788E-07, 2.07132769E-07, 3.92943235E-07, 8.76821801E-07, 2 2.56764760E-06, 7.55935688E-06, 2.23853323E-05, 6.66856982E-05, 3 1.99641258E-04, 1.02807083E-03, 4.04552113E-03, 1.02726581E-01, 4 1.79886089E-02,-8.60501553E-02, 2.60616271E-03, 8.87765567E-10, 5 8.87768549E-10, 8.87770786E-10, 8.87774887E-10, 8.87782344E-10, 6 8.87795393E-10, 8.87817763E-10, 8.87858776E-10, 8.87933351E-10, 7 8.88063871E-10, 8.88287666E-10, 8.88698102E-10, 8.89444837E-10, 8 8.90753137E-10, 8.93000426E-10, 8.97135224E-10, 9.02804526E-10, 9 9.11375875E-10, 9.27789361E-10, 9.50468423E-10, 9.81917510E-10/ DATA CH 71/ 1 1.02727458E-09, 1.09065231E-09, 1.18253624E-09, 1.31630906E-09, 2 1.50110859E-09, 1.72094560E-09, 2.01501193E-09, 2.40965166E-09, 3 2.97428145E-09, 3.67162075E-09, 4.77827845E-09, 6.21961604E-09, 4 8.53612265E-09, 1.17186469E-08, 1.60922937E-08, 2.45737478E-08, 5 4.17468094E-08, 7.89451660E-08, 1.75412258E-07, 5.10501814E-07, 6 1.49282957E-06, 4.38903313E-06, 1.29827929E-05, 3.86624380E-05, 7 2.01282979E-04, 1.05423514E-03, 4.64098366E-03, 9.04415425E-02, 8-1.89214643E-03,-1.71716873E-01, 3.90236429E-11, 3.90237704E-11, 9 3.90238661E-11, 3.90240415E-11, 3.90243603E-11, 3.90249183E-11/ DATA CH 72/ 1 3.90258750E-11, 3.90276288E-11, 3.90308179E-11, 3.90363993E-11, 2 3.90459694E-11, 3.90635206E-11, 3.90954520E-11, 3.91513949E-11, 3 3.92474829E-11, 3.94242567E-11, 3.96665942E-11, 4.00328934E-11, 4 4.07340360E-11, 4.17022052E-11, 4.30435973E-11, 4.49758834E-11, 5 4.76714763E-11, 5.15708862E-11, 5.72310912E-11, 6.50204295E-11, 6 7.42462624E-11, 8.65270039E-11, 1.02913995E-10, 1.26201174E-10, 7 1.54746928E-10, 1.99652158E-10, 2.57554840E-10, 3.49544435E-10, 8 4.74280527E-10, 6.43363594E-10, 9.65652637E-10, 1.60290389E-09, 9 2.94005367E-09, 6.25723494E-09, 1.70097397E-08, 4.56909069E-08/ DATA CH 73/ 1 1.20421289E-07, 3.07324137E-07, 7.38632443E-07, 2.00511821E-06, 2-4.66809104E-06,-1.85535655E-04,-4.04881136E-03, 8.50154847E-02, 3 1.69140724E-01/ END SUBROUTINE ABORT PARAMETER (SS$_ABORT='002C'X) CALL LIB$STOP(%VAL(SS$_ABORT)) END SUBROUTINE IONPOTS C C Moore, C.E., NSRDS-NBS 34,1970,22pp. C Sugar, J. and Corliss, C. JPCRD, 14, Supp.2, 1985. K-Ni C Sugar, J. and Musgrove, A., JPCRD, 19,527-616,1990. Cu C Kaufman, V., Sugar, J., and Joshi, Y.N. JOSAB, 5, 619-622, 1988. I V C AEL, rare-earth elements, 1978,NSRDS-NBS 60,411pp. C Kelley,R.L. and Harrison, D.E, Atomic Data 3,177-193,1971. Ga V C Martin,W.C. et al. ,JPCRDa,3,771-780,1974. Ac I-Es I C Guess 55.02 56.02 73.01 73.02 74.01 74.02 75.01 75.02 76.01 76.01 C Guess 77.01 77.02 78.02 79.02 84.01 84.02 85.00 85.01 85.02 86.01 86.02 C Guess 87.00 87.01 87.02 88.02 89.02 91.01 91.02 92.01 92.02 93.01 93.02 C Guess 94.01 94.02 95.01 95.02 96.01 96.02 97.01 97.02 98.01 98.02 C Guess 99.01 99.02 IMPLICIT REAL*8 (A-H,O-Z) COMMON /POTION/POTION(999),POTIONSUM(999) DIMENSION POTH ( 2),POTHe( 3),POTLi( 4),POTBe( 5),POTB ( 6) DIMENSION POTC ( 7),POTN ( 8),POTO ( 9),POTF( 10),POTNe(11) DIMENSION POTNa(12),POTMg(13),POTAl(14),POTSi(15),POTP (16) DIMENSION POTS (17),POTCl(18),POTAr(19),POTK (20),POTCa(21) DIMENSION POTSc(22),POTTi(23),POTV (24),POTCr(25),POTMn(26) DIMENSION POTFe(27),POTCo(28),POTNi(29),POTCu(30),POTZn(31) DIMENSION POTGa(5),POTGe(5),POTAs(5),POTSe(5),POTBr(5) DIMENSION POTKr(5),POTRb(5),POTSr(5),POTY (5),POTZr(5) DIMENSION POTNb(5),POTMo(5),POTTc(5),POTRu(5),POTRh(5) DIMENSION POTPd(5),POTAg(5),POTCd(5),POTIn(5),POTSn(5) DIMENSION POTSb(5),POTTe(5),POTI (5),POTXe(5),POTCs(5) DIMENSION POTBa(5),POTLa(5),POTCe(5),POTPr(5),POTNd(5) DIMENSION POTPm(5),POTSm(5),POTEu(5),POTGd(5),POTTb(5) DIMENSION POTDy(5),POTHo(5),POTEr(5),POTTm(5),POTYb(5) DIMENSION POTLu(5),POTHf(5),POTTa(5),POTW (5),POTRe(5) DIMENSION POTOs(5),POTIr(5),POTPt(5),POTAu(5),POTHg(5) DIMENSION POTTl(5),POTPb(5),POTBi(5),POTPo(5),POTAt(5) DIMENSION POTRn(5),POTFr(5),POTRa(5),POTAc(5),POTTh(5) DIMENSION POTPa(5),POTU (5),POTNp(5),POTPu(5),POTAm(5) DIMENSION POTCm(5),POTBk(5),POTCf(5),POTEs(5) EQUIVALENCE (POTION( 1),POTH (1)) EQUIVALENCE (POTION( 3),POTHe(1)) EQUIVALENCE (POTION( 6),POTLi(1)) EQUIVALENCE (POTION( 10),POTBe(1)) EQUIVALENCE (POTION( 15),POTB (1)) EQUIVALENCE (POTION( 21),POTC (1)) EQUIVALENCE (POTION( 28),POTN (1)) EQUIVALENCE (POTION( 36),POTO (1)) EQUIVALENCE (POTION( 45),POTF (1)) EQUIVALENCE (POTION( 55),POTNe(1)) EQUIVALENCE (POTION( 66),POTNa(1)) EQUIVALENCE (POTION( 78),POTMg(1)) EQUIVALENCE (POTION( 91),POTAl(1)) EQUIVALENCE (POTION(105),POTSi(1)) EQUIVALENCE (POTION(120),POTP (1)) EQUIVALENCE (POTION(136),POTS (1)) EQUIVALENCE (POTION(153),POTCl(1)) EQUIVALENCE (POTION(171),POTAr(1)) EQUIVALENCE (POTION(190),POTK (1)) EQUIVALENCE (POTION(210),POTCa(1)) EQUIVALENCE (POTION(231),POTSc(1)) EQUIVALENCE (POTION(253),POTTi(1)) EQUIVALENCE (POTION(276),POTV (1)) EQUIVALENCE (POTION(300),POTCr(1)) EQUIVALENCE (POTION(325),POTMn(1)) EQUIVALENCE (POTION(351),POTFe(1)) EQUIVALENCE (POTION(378),POTCo(1)) EQUIVALENCE (POTION(406),POTNi(1)) EQUIVALENCE (POTION(435),POTCu(1)) EQUIVALENCE (POTION(465),POTZn(1)) EQUIVALENCE (POTION(496),POTGa(1)) EQUIVALENCE (POTION(501),POTGe(1)) EQUIVALENCE (POTION(506),POTAs(1)) EQUIVALENCE (POTION(511),POTSe(1)) EQUIVALENCE (POTION(516),POTBr(1)) EQUIVALENCE (POTION(521),POTKr(1)) EQUIVALENCE (POTION(526),POTRb(1)) EQUIVALENCE (POTION(531),POTSr(1)) EQUIVALENCE (POTION(536),POTY (1)) EQUIVALENCE (POTION(541),POTZr(1)) EQUIVALENCE (POTION(546),POTNb(1)) EQUIVALENCE (POTION(551),POTMo(1)) EQUIVALENCE (POTION(556),POTTc(1)) EQUIVALENCE (POTION(561),POTRu(1)) EQUIVALENCE (POTION(566),POTRh(1)) EQUIVALENCE (POTION(571),POTPd(1)) EQUIVALENCE (POTION(576),POTAg(1)) EQUIVALENCE (POTION(581),POTCd(1)) EQUIVALENCE (POTION(586),POTIn(1)) EQUIVALENCE (POTION(591),POTSn(1)) EQUIVALENCE (POTION(596),POTSb(1)) EQUIVALENCE (POTION(601),POTTe(1)) EQUIVALENCE (POTION(606),POTI (1)) EQUIVALENCE (POTION(611),POTXe(1)) EQUIVALENCE (POTION(616),POTCs(1)) EQUIVALENCE (POTION(621),POTBa(1)) EQUIVALENCE (POTION(626),POTLa(1)) EQUIVALENCE (POTION(631),POTCe(1)) EQUIVALENCE (POTION(636),POTPr(1)) EQUIVALENCE (POTION(641),POTNd(1)) EQUIVALENCE (POTION(646),POTPm(1)) EQUIVALENCE (POTION(651),POTSm(1)) EQUIVALENCE (POTION(656),POTEu(1)) EQUIVALENCE (POTION(661),POTGd(1)) EQUIVALENCE (POTION(666),POTTb(1)) EQUIVALENCE (POTION(671),POTDy(1)) EQUIVALENCE (POTION(676),POTHo(1)) EQUIVALENCE (POTION(681),POTEr(1)) EQUIVALENCE (POTION(686),POTTm(1)) EQUIVALENCE (POTION(691),POTYb(1)) EQUIVALENCE (POTION(696),POTLu(1)) EQUIVALENCE (POTION(701),POTHf(1)) EQUIVALENCE (POTION(706),POTTa(1)) EQUIVALENCE (POTION(711),POTW (1)) EQUIVALENCE (POTION(716),POTRe(1)) EQUIVALENCE (POTION(721),POTOs(1)) EQUIVALENCE (POTION(726),POTIr(1)) EQUIVALENCE (POTION(731),POTPt(1)) EQUIVALENCE (POTION(736),POTAu(1)) EQUIVALENCE (POTION(741),POTHg(1)) EQUIVALENCE (POTION(746),POTTl(1)) EQUIVALENCE (POTION(751),POTPb(1)) EQUIVALENCE (POTION(756),POTBi(1)) EQUIVALENCE (POTION(761),POTPo(1)) EQUIVALENCE (POTION(766),POTAt(1)) EQUIVALENCE (POTION(771),POTRn(1)) EQUIVALENCE (POTION(776),POTFr(1)) EQUIVALENCE (POTION(781),POTRa(1)) EQUIVALENCE (POTION(786),POTAc(1)) EQUIVALENCE (POTION(791),POTTh(1)) EQUIVALENCE (POTION(796),POTPa(1)) EQUIVALENCE (POTION(801),POTU (1)) EQUIVALENCE (POTION(806),POTNp(1)) EQUIVALENCE (POTION(811),POTPu(1)) EQUIVALENCE (POTION(816),POTAm(1)) EQUIVALENCE (POTION(821),POTCm(1)) EQUIVALENCE (POTION(826),POTBk(1)) EQUIVALENCE (POTION(831),POTCf(1)) EQUIVALENCE (POTION(836),POTEs(1)) DATA POTH / 109678.764,0./ DATA POTHe/ 198310.76 , 438908.85 ,0./ DATA POTLi/ 43487.150, 610079.0 , 987660.1 ,0./ DATA POTBe/ 75192.07 , 146882.86 ,1241259.4 , 1756018.7, 0./ DATA POTB / 66928.10 , 202887.4 , 305931.1 ,2092001.4,2744105.1, 1 0./ DATA POTC / 90820.42 , 196664.7 , 386241.0 , 520178.4,3162395. , 1 3952061.4, 0./ DATA POTN / 117225.4 , 238750.5 , 382704. , 624866. , 789537.2, 1 4452758. ,5380089., 0./ DATA POTO / 109837.02 , 283240. , 443086. , 624383.8, 918657. , 1 1114008. ,5963135.,7028393., 0./ DATA POTF / 140524.5 , 282058.6 , 505777. , 702830. , 921430. , 1 1267622. ,1493629.,7693810.,8897240., 0./ DATA POTNe/ 173929.70 , 330391.0 , 511800. , 783300. ,1018000. , 1 1273800. ,1671792.,1928462.,9645005.,10986876.,0./ DATA POTNa/ 41449.44 , 381395. , 577800. , 797800. ,1116200. , 1 1388500. ,1681500., 2130800., 2418700.,11817061., 2 13297676.,0./ DATA POTMg/ 61671.02 , 121267.61 , 646410. , 881100. ,1139400. , 1 1504300. , 1814300. , 2144700. , 2645200., 2964400., 2 14210261., 15829951. , 0./ DATA POTAl/ 48278.37 , 151860.4 , 229445.71, 967800. ,1239800. , 1 1536300. , 1947300. , 2295400. , 2663400., 3214800., 2 3565600. , 16825022. , 18584138., 0./ DATA POTSi/ 65747.5 , 131838.4 , 270139.3 , 364093.1,1345100. , 1 1653900. , 1988400. , 2445300. , 2831900., 3237800., 2 3839800. , 4222400. , 19661693., 21560630., 0./ DATA POTP / 84580. , 159100. , 243400. , 414312.4, 524460. , 1 1777900. , 2123100. , 2495600. , 2998300., 3423900., 2 3868100. , 4520100. , 4935000., 22720766.,24759942., 3 0./ DATA POTS / 83558.0 , 188200. , 280900. , 381541.4, 586200. , 1 710184. , 2265900. , 2647400. , 3057700., 3606100., 2 4071400. , 4554300. , 5255900. , 5703600.,26002663., 3 28182535., 0./ DATA POTCl/ 104591.0 , 192070. , 319500. , 431226. , 547000. , 1 782600. , 921051. , 2809100. , 3226700., 3674900., 2 4268900. , 4774700. , 5296700. , 6047200., 6528300., 3 29507950., 31829012. , 0./ DATA POTAr/ 127109.9 , 222848.2 , 328600. , 482400. , 605100. , 1 734040. , 1002730. , 1157080. , 3407300., 3860900., 2 4347000. , 4986600. , 5533800. , 6095500., 6894200., 3 7404400. , 33237173. , 35699936., 0./ DATA POTK / 35009.814, 255100. , 369450. , 491300. , 666700. , 1 802000. , 948200. , 1249200. , 1418063., 4063000., 2 4555000., 5077000. , 5764000. , 6345000., 6945000., 3 7810000., 8344200. , 37188200.,39795750., 0./ DATA POTCa/ 49305.95 , 95751.87 , 410642. , 542600. , 681600. , 1 877400. , 1026000. , 1187600. , 1520640., 1704047., 2 4774000. , 5301000. , 5861000. , 6595000., 7215000., 3 7860000. , 8770000. , 9338000. ,41366000.,44117410., 4 0./ DATA POTSc/ 52922.0 , 103237.1 , 199677.37, 592732. , 741000. , 1 892700. , 1113000. , 1275000. , 1452000., 1816200., 2 2015060. , 5543900. , 6103000. , 6701000., 7481000., 3 8140000. , 8820000. , 9780000. ,10388200.,45770000., 4 48665520., 0./ DATA POTTi/ 55010. , 109494. , 221735.6 , 348973.3, 800900. , 1 964100. , 1136000. , 1374000. , 1549000.,1741500. , 2 2137900. , 2351080. , 6354300. , 6961000.,7597000. , 3 8420000. , 9120000. , 9850000. ,10860000.,11497000., 4 50401000., 53440800. , 0./ DATA POTV / 54360. , 118200. , 236410. , 376730. , 526532. , 1 1033400. , 1215000. , 1399000. , 1660000., 1859000., 2 2062000. , 2485000. , 2712250. , 7227000., 7870000., 3 8549000. , 9420000. , 10160000.,10930000.,11990000., 4 12660000., 55259000. , 58443900., 0./ DATA POTCr/ 54575.6 , 132966. , 249700. , 396500. , 560200. , 1 731020. , 1291900. , 1490000. , 1688000., 1971000., 2 2184000. , 2404000. , 2862000. , 3098520., 8151000., 3 8850000. , 9560000. , 10480000.,11260000.,12070000., 4 13180000.,13882000. , 60344000.,63675900., 0./ DATA POTMn/ 59959.4 , 126145.0 , 271550. , 413000. , 584000. , 1 771100. , 961440. , 1569000. , 1789000., 2003000., 2 2307000. , 2536000. , 2771000. , 3250000., 3509820., 3 9152000. , 9872000. , 10620000.,11590000.,12410000., 4 13260000.,14420000. , 15162000.,65660000.,69137400., 5 0./ DATA POTFe/ 63737. , 130563. , 247220. , 442000. , 605000. , 1 799000. , 1008000. , 1218380. , 1884000., 2114000., 2 2341000. , 2668000. , 2912000. , 3163000., 3686000., 3 3946280. , 10180000. , 10985000.,11850000.,12708000., 4 13620000., 14510000. , 15797000.,16500000.,71203000., 5 74829600., 0./ DATA POTCo/ 63400. , 137795. , 270200. , 413500. , 641000. , 1 823000. , 1040000. , 1273000. , 1501300., 2221000., 2 2460000. , 2710000. , 3057000. , 3315000., 3580000., 3 4129200. , 4408500. , 11269000.,12135000.,12930000., 4 13990000., 14890000. , 15820000.,17090000.,17897000., 5 76979000., 80753200. , 0./ DATA POTNi/ 61600. , 146541.56 , 283800. , 443000. , 613500. , 1 870000. , 1070000. , 1310000. , 1560000., 1812000., 2 2589000. , 2840000. , 3100000. , 3470000., 3740000., 3 4020000. , 2606000. , 4896200. ,12430000.,13290000., 4 14160000., 15280000. , 16220000.,17190000.,18510000., 5 19351000., 82984000. , 86909400., 0./ DATA POTCu/ 62317.44 , 163669.2 , 297140. , 462800. , 644000. , 1 831000. , 1120000. , 1340000. , 1605000., 1870000., 2 2140000. , 2975000. , 3234000. , 3508000., 3903000., 3 4194000. , 4493000. , 5105000. , 5408660.,13630000., 4 14550000., 15450000. , 16620000.,17600000.,18620000., 5 19986000., 20870000. , 89224060.,93299090., 0./ DATA POTZn/ 75768.10 , 144892.6 , 320390. , 479100. , 666000. , 1 871000. , 1081000. , 1403000. , 1637000., 1920000., 2 2210000. , 2507000. , 3385000. , 3662000., 3952000., 3 4372000. , 4670000. , 4993000. , 5630000., 5952000., 4 14969000., 16000000. , 17000000.,18000000.,19000000., 5 20000000., 21000000. , 22000000.,93000000.,99000000., 6 0./ DATA POTGa/ 48387.63 , 165458. , 247700. , 517600. , 726000. / DATA POTGe/ 63715. , 128521.3 , 276036. , 368701. , 753800. / DATA POTAs/ 79165. , 150290. , 228670. , 404369. , 505136. / DATA POTSe/ 78658.22 , 170900. , 248583. , 346375. , 551000. / DATA POTBr/ 95284.8 , 175870. , 289529. , 381600. , 481600. / DATA POTKr/ 112914.5 , 196474.8 , 298020. , 423600. , 522000. / DATA POTRb/ 33690.81 , 220048. , 320000. , 424400. , 572800. / DATA POTSr/ 45932.0 , 88964.0 , 351800. , 460000. , 577700. / DATA POTY / 51447. , 98690. , 165500. , 498600. , 621200. / DATA POTZr/ 55145. , 105900. , 185400. , 276970. , 657600. / DATA POTNb/ 55511. , 115500. , 202000. , 308600. , 407700. / DATA POTMo/ 57260. , 130300. , 219100. , 374180. , 493360. / DATA POTTc/ 58700. , 123100. , 238300. , 0. , 0. / DATA POTRu/ 59410. , 135200. , 229600. , 0. , 0. / DATA POTRh/ 60197. , 145800. , 250500. , 0. , 0. / DATA POTPd/ 67236. , 156700. , 265600. , 0. , 0. / DATA POTAg/ 61106.50 , 173300. , 280900. , 0. , 0. / DATA POTCd/ 72538.8 , 136374.74 , 302300. , 0. , 0. / DATA POTIn/ 46670.11 , 152195. , 226100. , 439000. , 0. / DATA POTSn/ 59231.8 , 118017.0 , 246020.0 , 328550. , 583000. / DATA POTSb/ 69700. , 133327.5 , 204248. , 356156. , 449300. / DATA POTTe/ 72667. , 150000. , 225500. , 301776. , 473900. / DATA POTI / 84295.1 , 154304. , 266000. , 0. , 415510. / DATA POTXe/ 97834.0 , 171068.4 , 259089. , 0. , 0. / DATA POTCs/ 31406.432, 202263. , 280000. , 0. , 0. / DATA POTBa/ 42035.14 , 80686.87 , 300000. , 0. , 0. / DATA POTLa/ 44981. , 89200. , 154675. , 402900. , 497000. / DATA POTCe/ 44672. , 87500. , 162903. , 296470. , 528700. / DATA POTPr/ 44070. , 85100. , 174407. , 314400. , 464000. / DATA POTNd/ 44562. , 86500. , 178600. , 326000. , 0. / DATA POTPm/ 44800. , 87900. , 180000. , 331000. , 0. / DATA POTSm/ 45519. , 89300. , 189000. , 334000. , 0. / DATA POTEu/ 45734.9 , 90665. , 201000. , 344000. , 0. / DATA POTGd/ 49603. , 97500. , 166400. , 355000. , 0. / DATA POTTb/ 47295. , 92900. , 176700. , 317500. , 0. / DATA POTDy/ 47900. , 94100. , 183800. , 334000. , 0. / DATA POTHo/ 48567. , 95200. , 184200. , 343000. , 0. / DATA POTEr/ 49262. , 96200. , 183400. , 344000. , 0. / DATA POTTm/ 49879.8 , 97200. , 191000. , 344000. , 0. / DATA POTYb/ 50441.0 , 98269. , 202070. , 351300. , 0. / DATA POTLu/ 43762.39 , 112000. , 169049. , 364960. , 538700. / DATA POTHf/ 56600. , 120000. , 187800. , 268500. , 0. / DATA POTTa/ 63600. , 131000. , 194000. , 0. , 0. / DATA POTW / 64400. , 143000. , 202000. , 0. , 0. / DATA POTRe/ 63530. , 134000. , 210000. , 0. , 0. / DATA POTOs/ 70450. , 137000. , 218000. , 0. , 0. / DATA POTIr/ 73000. , 161000. , 226000. , 0. , 0. / DATA POTPt/ 72300. , 149723. , 234000. , 0. , 0. / DATA POTAu/ 74410. , 165000. , 242000. , 0. , 0. / DATA POTHg/ 84184.1 , 151280. , 276000. , 0. , 0. / DATA POTTl/ 49266.7 , 164765. , 240600. , 0. , 0. / DATA POTPb/ 59819.4 , 121243. , 257592. , 341350. , 555000. / DATA POTBi/ 58790. , 134600. , 206180. , 365500. , 451700. / DATA POTPo/ 67885.3 , 153000. , 218000. , 0. , 0. / DATA POTAt/ 75000. , 161000. , 242000. , 0. , 0. / DATA POTRn/ 86692.5 , 161000. , 242000. , 0. , 0. / DATA POTFr/ 32000. , 177000. , 266000. , 0. , 0. / DATA POTRa/ 42577.35 , 81842.31 , 274000. , 0. , 0. / DATA POTAc/ 41700. , 97300. , 161000. , 0. , 0. / DATA POTTh/ 49000. , 93000. , 161000. , 231900. , 0. / DATA POTPa/ 47500. , 95000. , 161000. , 0. , 0. / DATA POTU / 48800. , 95000. , 161000. , 0. , 0. / DATA POTNp/ 49900. , 95000. , 161000. , 0. , 0. / DATA POTPu/ 48900. , 95000. , 161000. , 0. , 0. / DATA POTAm/ 48300. , 95000. , 161000. , 0. , 0. / DATA POTCm/ 48600. , 95000. , 161000. , 0. , 0. / DATA POTBk/ 50200. , 95000. , 161000. , 0. , 0. / DATA POTCf/ 50800. , 95000. , 161000. , 0. , 0. / DATA POTEs/ 51800. , 95000. , 161000. , 0. , 0. / NELION=0 DO 63 IZ=1,30 NELION=NELION+1 POTIONSUM(NELION)=0. DO 63 ION=2,IZ+1 NELION=NELION+1 63 POTIONSUM(NELION)=POTION(NELION-1)+POTIONSUM(NELION-1) DO 64 IZ=31,99 NELION=NELION+1 POTIONSUM(NELION)=0. NELION=NELION+1 POTIONSUM(NELION)=POTION(NELION-1)+POTIONSUM(NELION-1) NELION=NELION+1 POTIONSUM(NELION)=POTION(NELION-1)+POTIONSUM(NELION-1) NELION=NELION+1 POTIONSUM(NELION)=POTION(NELION-1)+POTIONSUM(NELION-1) NELION=NELION+1 64 POTIONSUM(NELION)=POTION(NELION-1)+POTIONSUM(NELION-1) RETURN END SUBROUTINE ISOTOPES C C c H 1 2 c He 3 4 5 c Li 6 7 8 9 c Be 10 11 12 13 14 c B 15 16 17 18 19 20 c C 21 22 23 24 25 26 27 c N 28 29 30 31 32 33 34 35 c O 36 37 38 39 40 41 42 43 44 c F 45 46 47 48 49 50 51 52 53 54 c Ne 55 56 57 58 59 60 61 62 63 64 65 c Na 66 67 68 69 70 71 72 73 74 75 76 77 c Mg 78 79 80 81 82 83 84 85 86 87 88 89 90 c Al 91 92 93 94 95 96 97 98 99 100 101 102 103 104 c Si 105 106 107 108 109 110 111 112 113 114 115 115 117 118 119 c P 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 c S 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 c Cl 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 c Ar 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 c K 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 c Ca 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 c Sc 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 c Ti 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 c V 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 c Cr 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 c Mn 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 c Fe 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 c Co 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 c Ni 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 c Cu 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 c Zn 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 c Ga 496 497 498 499 500 c Ge 501 502 503 504 505 c As 506 507 508 509 510 c Se 511 512 513 514 515 c Br 516 517 518 519 520 c Kr 521 522 523 524 525 c Rb 526 527 528 529 530 c Sr 531 532 533 534 535 c Y 536 537 538 539 540 c Zr 541 542 543 544 545 c Nb 546 547 548 549 550 c Mo 551 552 553 554 555 c Tc 556 557 558 559 560 c Ru 561 562 563 564 565 c Rh 566 567 568 569 570 c Pd 571 572 573 574 575 c Ag 576 577 578 579 580 c Cd 581 582 583 584 585 c In 586 587 588 589 590 c Sn 591 592 593 594 595 c Sb 596 597 598 599 600 c Te 601 602 603 604 605 c I 606 607 608 609 610 c Xe 611 612 613 614 615 c Cs 616 617 618 619 620 c Ba 621 622 623 624 625 c La 626 627 628 629 630 c Ce 631 632 633 634 635 c Pr 636 637 638 639 640 c Nd 641 642 643 644 645 c Pm 646 647 648 649 650 c Sm 651 652 653 654 655 c Eu 656 657 658 659 660 c Gd 661 662 663 664 665 c Tb 666 667 668 669 670 c Dy 671 672 673 674 675 c Ho 676 677 678 679 680 c Er 681 682 683 684 685 c Tm 686 687 688 689 690 c Yb 691 692 693 694 695 c Lu 696 697 698 699 700 c Hf 701 702 703 704 705 c Ta 706 707 708 709 710 c W 711 712 713 714 715 c Re 716 717 718 719 720 c Os 721 722 723 724 725 c Ir 726 727 728 729 730 c Pt 731 732 733 734 735 c Au 736 737 738 739 740 c Hg 741 742 743 744 745 c Tl 746 747 748 749 750 c Pb 751 752 753 754 755 c Bi 756 757 758 759 760 c Po 761 762 763 764 765 c At 766 767 768 769 770 c Rn 771 772 773 774 775 c Fr 776 777 778 779 780 c Ra 781 782 783 784 785 c Ac 786 787 788 789 790 c Th 791 792 793 794 795 c Pa 796 797 798 799 800 c U 801 802 803 804 805 c Np 806 807 808 809 810 c Pu 811 812 813 814 815 c Am 816 817 818 819 820 c Cm 821 822 823 824 825 c Bk 826 827 828 829 830 c Cf 831 832 833 834 835 c Es 836 837 838 839 840 c H2 841 c HeH 842 c LiH 843 c BeH 844 c BH 845 c CH 846 c NH 847 c OH 848 c HF 849 c NaH 850 c MgH 851 c AlH 852 c SiH 853 c PH 854 c HS 855 c HCl 856 c KH 857 c CaH 858 c ScH 859 c TiH 860 c VH 861 c CrH 862 c MnH 863 c FeH 864 c CoH 865 c NiH 866 c CuH 867 c C2 868 c CN 869 c CO 870 c CF 871 c SiC 872 c CP 873 c CS 874 c N2 875 c NO 876 c NF 877 c SiN 878 c PN 879 c NS 880 c LiO 881 c BeO 882 c BO 883 c O2 884 c FO 885 c NaO 886 c MgO 887 c AlO 888 c SiO 889 c PO 890 c SO 891 c ClO 892 c CaO 893 c ScO 894 c TiO 895 c VO 896 c CrO 897 c MnO 898 c FeO 899 c CoO 900 c NiO 901 c CuO 902 c GeO 903 c SrO 904 c YO 905 c ZrO 906 c NbO 907 c Si2 908 c SiS 909 c S2 910 c TiS 911 c ZrS 912 c H2+ 913 c HeH+ 914 c LiH+ 915 c CH+ 916 c NH+ 917 c OH+ 918 c HF+ 919 c NeH+ 920 c MgH+ 921 c AlH+ 922 c SiH+ 923 c PH+ 924 c SH+ 925 c HCl+ 926 c CaH+ 927 c He2+ 928 c C2+ 929 c CN+ 930 c CO+ 931 c N2+ 932 c NO+ 933 c NS+ 934 c O2+ 935 c SiO+ 936 c PO+ 937 c SO+ 938 c S2+ 939 c H2O 940 c CO2 941 c CH2 942 c C2H 943 c C2N 944 c C3 945 c O3 946 c NO2 947 c N2O 948 c NH2 949 c HCO 950 c HCN 951 c HNO 952 c SiC2 953 c NaOH 954 c MgOH 955 c AlOH 956 c KOH 957 c CaOH 958 c AlOF 959 c AlOCl 960 c Al2O 961 c SH2 962 c CaF2 963 c CaCl2 964 c COS 965 c SiO2 966 c SO2 967 c TiO2 968 c VO2 969 c NH3 970 c CH3 971 c C2H2 972 c C3H 973 c C2N2 974 c CH4 975 c H- 976 c Li- 977 c C- 978 c O- 979 c F- 980 c Na- 981 c Al- 982 c Si- 983 c P- 984 c S- 985 c Cl- 986 c K- 987 c Sc- 988 c Ti- 989 c V- 990 c Cr- 991 c Fe- 992 c Co- 993 c Ni- 994 c Cu- 995 c C2- 996 c CH- 997 c CN- 998 c CO- 999 c N2- 1000 c NO- 1001 c OH- 1002 c O2- 1003 c S2- 1004 c SH- 1005 c H3+ 1006 c C IMPLICIT REAL*4 (A-I,O-Z) PARAMETER (kw=72,mion=1006) COMMON/ISOTOPE/ISOTOPE(10,2,mion) DIMENSION ISOION(20,265) INTEGER I,IZ,ION DIMENSION IsoH (20),IsoHe(20),IsoLi(20),IsoBe(20),IsoB (20) DIMENSION IsoC (20),IsoN (20),IsoO (20),IsoF (20),IsoNe(20) DIMENSION IsoNa(20),IsoMg(20),IsoAl(20),IsoSi(20),IsoP (20) DIMENSION IsoS (20),IsoCl(20),IsoAr(20),IsoK (20),IsoCa(20) DIMENSION IsoSc(20),IsoTi(20),IsoV (20),IsoCr(20),IsoMn(20) DIMENSION IsoFe(20),IsoCo(20),IsoNi(20),IsoCu(20),IsoZn(20) DIMENSION IsoGa(20),IsoGe(20),IsoAs(20),IsoSe(20),IsoBr(20) DIMENSION IsoKr(20),IsoRb(20),IsoSr(20),IsoY (20),IsoZr(20) DIMENSION IsoNb(20),IsoMo(20),IsoTc(20),IsoRu(20),IsoRh(20) DIMENSION IsoPd(20),IsoAg(20),IsoCd(20),IsoIn(20),IsoSn(20) DIMENSION IsoSb(20),IsoTe(20),IsoI (20),IsoXe(20),IsoCs(20) DIMENSION IsoBa(20),IsoLa(20),IsoCe(20),IsoPr(20),IsoNd(20) DIMENSION IsoPm(20),IsoSm(20),IsoEu(20),IsoGd(20),IsoTb(20) DIMENSION IsoDy(20),IsoHo(20),IsoEr(20),IsoTm(20),IsoYb(20) DIMENSION IsoLu(20),IsoHf(20),IsoTa(20),IsoW (20),IsoRe(20) DIMENSION IsoOs(20),IsoIr(20),IsoPt(20),IsoAu(20),IsoHg(20) DIMENSION IsoTl(20),IsoPb(20),IsoBi(20),IsoPo(20),IsoAt(20) DIMENSION IsoRn(20),IsoFr(20),IsoRa(20),IsoAc(20),IsoTh(20) DIMENSION IsoPa(20),IsoU (20),IsoNp(20),IsoPu(20),IsoAm(20) DIMENSION IsoCm(20),IsoBk(20),IsoCf(20),IsoEs(20) DIMENSION IsoH2 (20),IsoHeH(20),IsoLiH(20),IsoBeH(20),IsoBH (20) DIMENSION IsoCH (20),IsoNH (20),IsoOH (20),Iso_HF(20),IsoNaH(20) DIMENSION IsoMgH(20),IsoAlH(20),IsoSiH(20),IsoPH (20),IsoSH (20) DIMENSION IsoHCl(20),IsoKH (20),IsoCaH(20),IsoScH(20),IsoTiH(20) DIMENSION IsoVH (20),IsoCrH(20),IsoMnH(20),IsoFeH(20),IsoCoH(20) DIMENSION IsoNiH(20),IsoCuH(20),IsoLiO(20),IsoBeO(20),IsoBO (20) DIMENSION Iso_CO(20),Iso_NO(20),IsoO2 (20),IsoFO (20),IsoNaO(20) DIMENSION IsoMgO(20),IsoAlO(20),IsoSiO(20),Iso_PO(20),IsoSO (20) DIMENSION IsoClO(20),IsoCaO(20),IsoScO(20),IsoTiO(20),IsoVO (20) DIMENSION IsoCrO(20),IsoMnO(20),IsoFeO(20),IsoCoO(20),IsoNiO(20) DIMENSION IsoCuO(20),IsoSrO(20),IsoYO (20),IsoZrO(20),IsoC2 (20) DIMENSION IsoN2 (20),IsoSi2(20),IsoS2 (20),Iso_CS(20),IsoSiC(20) DIMENSION IsoSiN(20),IsoSiS(20),IsoZrS(20),Iso_CF(20),IsoPN (20) DIMENSION IsoNS (20),IsoTiS(20),IsoNbO(20),IsoCP (20),IsoNF (20) DIMENSION IsoCN (20),IsoGeO(20),IsoHe2(20),IsoNeH(20) DIMENSION IsoH2plus (20),IsoHeHplus(20),IsoLiHplus(20) DIMENSION IsoCHplus (20),IsoNHplus (20),IsoOHplus (20) DIMENSION Iso_HFplus(20),IsoNeHplus(20) DIMENSION IsoMgHplus(20),IsoAlHplus(20),IsoSiHplus(20) DIMENSION IsoPHplus (20),IsoSHplus (20),IsoHClplus(20) DIMENSION IsoCaHplus(20),IsoHe2plus(20),IsoC2plus (20) DIMENSION IsoN2plus (20),IsoO2plus (20),IsoS2plus (20) DIMENSION Iso_COplus(20),IsoCNplus (20),IsoSiOplus(20) DIMENSION IsoSOplus (20),Iso_NOplus(20),IsoNSplus (20) DIMENSION Iso_POplus(20) DIMENSION IsoH2O (20),IsoCO2(20),IsoCH2(20),IsoC2H (20) DIMENSION IsoC3 (20),IsoO3 (20),IsoNO2(20),IsoN2O (20) DIMENSION IsoNH2 (20),IsoHCO(20),IsoHCN(20),IsoHNO (20) DIMENSION IsoSiC2(20),IsoNH3(20),IsoCH3(20),IsoC2H2(20) DIMENSION IsoC3H (20),IsoCH4(20),IsoVO2(20),IsoC2N2(20) DIMENSION IsoTiO2(20),IsoSO2(20),IsoCOS(20),IsoSiO2(20) DIMENSION IsoCaF2(20),IsoSH2(20),IsoKOH(20),IsoAl2O(20) DIMENSION IsoAlOF(20),IsoC2N(20),IsoCaOH(20),IsoAlOH(20) DIMENSION IsoMgOH(20),IsoNaOH(20),IsoAlOCl(20),IsoCaCl2(20) DIMENSION IsoHminus (20),IsoLiminus(20),IsoCminus (20) DIMENSION IsoOminus (20),IsoFminus (20),IsoNaminus(20) DIMENSION IsoAlminus(20),IsoSiminus(20),IsoPminus (20) DIMENSION IsoSminus (20),IsoClminus(20),IsoKminus (20) DIMENSION IsoScminus(20),IsoTiminus(20),IsoVminus (20) DIMENSION IsoCrminus(20),IsoFeminus(20),IsoCominus(20) DIMENSION IsoNiminus(20),IsoCuminus(20),IsoC2minus(20) DIMENSION IsoCHminus(20),IsoCNminus(20),Iso_COminus(20) DIMENSION IsoN2minus(20),Iso_NOminus(20),IsoOHminus(20) DIMENSION IsoO2minus(20),IsoS2minus(20),IsoSHminus(20) DIMENSION IsoH3plus(20) EQUIVALENCE (IsoION( 1),IsoH (1)) EQUIVALENCE (IsoION( 21),IsoHe(1)) EQUIVALENCE (IsoION( 41),IsoLi(1)) EQUIVALENCE (IsoION( 61),IsoBe(1)) EQUIVALENCE (IsoION( 81),IsoB (1)) EQUIVALENCE (IsoION(101),IsoC (1)) EQUIVALENCE (IsoION(121),IsoN (1)) EQUIVALENCE (IsoION(141),IsoO (1)) EQUIVALENCE (IsoION(161),IsoF (1)) EQUIVALENCE (IsoION(181),IsoNe(1)) EQUIVALENCE (IsoION(201),IsoNa(1)) EQUIVALENCE (IsoION(221),IsoMg(1)) EQUIVALENCE (IsoION(241),IsoAl(1)) EQUIVALENCE (IsoION(261),IsoSi(1)) EQUIVALENCE (IsoION(281),IsoP (1)) EQUIVALENCE (IsoION(301),IsoS (1)) EQUIVALENCE (IsoION(321),IsoCl(1)) EQUIVALENCE (IsoION(341),IsoAr(1)) EQUIVALENCE (IsoION(361),IsoK (1)) EQUIVALENCE (IsoION(381),IsoCa(1)) EQUIVALENCE (IsoION(401),IsoSc(1)) EQUIVALENCE (IsoION(421),IsoTi(1)) EQUIVALENCE (IsoION(441),IsoV (1)) EQUIVALENCE (IsoION(461),IsoCr(1)) EQUIVALENCE (IsoION(481),IsoMn(1)) EQUIVALENCE (IsoION(501),IsoFe(1)) EQUIVALENCE (IsoION(521),IsoCo(1)) EQUIVALENCE (IsoION(541),IsoNi(1)) EQUIVALENCE (IsoION(561),IsoCu(1)) EQUIVALENCE (IsoION(581),IsoZn(1)) EQUIVALENCE (IsoION(601),IsoGa(1)) EQUIVALENCE (IsoION(621),IsoGe(1)) EQUIVALENCE (IsoION(641),IsoAs(1)) EQUIVALENCE (IsoION(661),IsoSe(1)) EQUIVALENCE (IsoION(681),IsoBr(1)) EQUIVALENCE (IsoION(701),IsoKr(1)) EQUIVALENCE (IsoION(721),IsoRb(1)) EQUIVALENCE (IsoION(741),IsoSr(1)) EQUIVALENCE (IsoION(761),IsoY (1)) EQUIVALENCE (IsoION(781),IsoZr(1)) EQUIVALENCE (IsoION(801),IsoNb(1)) EQUIVALENCE (IsoION(821),IsoMo(1)) EQUIVALENCE (IsoION(841),IsoTc(1)) EQUIVALENCE (IsoION(861),IsoRu(1)) EQUIVALENCE (IsoION(881),IsoRh(1)) EQUIVALENCE (IsoION(901),IsoPd(1)) EQUIVALENCE (IsoION(921),IsoAg(1)) EQUIVALENCE (IsoION(941),IsoCd(1)) EQUIVALENCE (IsoION(961),IsoIn(1)) EQUIVALENCE (IsoION(981),IsoSn(1)) EQUIVALENCE (IsoION(1001),IsoSb(1)) EQUIVALENCE (IsoION(1021),IsoTe(1)) EQUIVALENCE (IsoION(1041),IsoI (1)) EQUIVALENCE (IsoION(1061),IsoXe(1)) EQUIVALENCE (IsoION(1081),IsoCs(1)) EQUIVALENCE (IsoION(1101),IsoBa(1)) EQUIVALENCE (IsoION(1121),IsoLa(1)) EQUIVALENCE (IsoION(1141),IsoCe(1)) EQUIVALENCE (IsoION(1161),IsoPr(1)) EQUIVALENCE (IsoION(1181),IsoNd(1)) EQUIVALENCE (IsoION(1201),IsoPm(1)) EQUIVALENCE (IsoION(1221),IsoSm(1)) EQUIVALENCE (IsoION(1241),IsoEu(1)) EQUIVALENCE (IsoION(1261),IsoGd(1)) EQUIVALENCE (IsoION(1281),IsoTb(1)) EQUIVALENCE (IsoION(1301),IsoDy(1)) EQUIVALENCE (IsoION(1321),IsoHo(1)) EQUIVALENCE (IsoION(1341),IsoEr(1)) EQUIVALENCE (IsoION(1361),IsoTm(1)) EQUIVALENCE (IsoION(1381),IsoYb(1)) EQUIVALENCE (IsoION(1401),IsoLu(1)) EQUIVALENCE (IsoION(1421),IsoHf(1)) EQUIVALENCE (IsoION(1441),IsoTa(1)) EQUIVALENCE (IsoION(1461),IsoW (1)) EQUIVALENCE (IsoION(1481),IsoRe(1)) EQUIVALENCE (IsoION(1501),IsoOs(1)) EQUIVALENCE (IsoION(1521),IsoIr(1)) EQUIVALENCE (IsoION(1541),IsoPt(1)) EQUIVALENCE (IsoION(1561),IsoAu(1)) EQUIVALENCE (IsoION(1581),IsoHg(1)) EQUIVALENCE (IsoION(1601),IsoTl(1)) EQUIVALENCE (IsoION(1621),IsoPb(1)) EQUIVALENCE (IsoION(1641),IsoBi(1)) EQUIVALENCE (IsoION(1661),IsoPo(1)) EQUIVALENCE (IsoION(1681),IsoAt(1)) EQUIVALENCE (IsoION(1701),IsoRn(1)) EQUIVALENCE (IsoION(1721),IsoFr(1)) EQUIVALENCE (IsoION(1741),IsoRa(1)) EQUIVALENCE (IsoION(1761),IsoAc(1)) EQUIVALENCE (IsoION(1781),IsoTh(1)) EQUIVALENCE (IsoION(1801),IsoPa(1)) EQUIVALENCE (IsoION(1821),IsoU (1)) EQUIVALENCE (IsoION(1841),IsoNp(1)) EQUIVALENCE (IsoION(1861),IsoPu(1)) EQUIVALENCE (IsoION(1881),IsoAm(1)) EQUIVALENCE (IsoION(1901),IsoCm(1)) EQUIVALENCE (IsoION(1921),IsoBk(1)) EQUIVALENCE (IsoION(1941),IsoCf(1)) EQUIVALENCE (IsoION(1961),IsoEs(1)) EQUIVALENCE (IsoION(1981),IsoH2 (1)) EQUIVALENCE (IsoION(2001),IsoHeH(1)) EQUIVALENCE (IsoION(2021),IsoLiH(1)) EQUIVALENCE (IsoION(2041),IsoBeH(1)) EQUIVALENCE (IsoION(2061),IsoBH (1)) EQUIVALENCE (IsoION(2081),IsoCH (1)) EQUIVALENCE (IsoION(2101),IsoNH (1)) EQUIVALENCE (IsoION(2121),IsoOH (1)) EQUIVALENCE (IsoION(2141),Iso_HF(1)) EQUIVALENCE (IsoION(2161),IsoNaH(1)) EQUIVALENCE (IsoION(2181),IsoMgH(1)) EQUIVALENCE (IsoION(2201),IsoAlH(1)) EQUIVALENCE (IsoION(2221),IsoSiH(1)) EQUIVALENCE (IsoION(2241),IsoPH (1)) EQUIVALENCE (IsoION(2261),IsoSH (1)) EQUIVALENCE (IsoION(2281),IsoHCl(1)) EQUIVALENCE (IsoION(2301),IsoKH (1)) EQUIVALENCE (IsoION(2321),IsoCaH(1)) EQUIVALENCE (IsoION(2341),IsoScH(1)) EQUIVALENCE (IsoION(2361),IsoTiH(1)) EQUIVALENCE (IsoION(2381),IsoVH (1)) EQUIVALENCE (IsoION(2401),IsoCrH(1)) EQUIVALENCE (IsoION(2421),IsoMnH(1)) EQUIVALENCE (IsoION(2441),IsoFeH(1)) EQUIVALENCE (IsoION(2461),IsoCoH(1)) EQUIVALENCE (IsoION(2481),IsoNiH(1)) EQUIVALENCE (IsoION(2501),IsoCuH(1)) EQUIVALENCE (IsoION(2521),IsoC2(1)) EQUIVALENCE (IsoION(2541),IsoCN(1)) EQUIVALENCE (IsoION(2561),Iso_CO(1)) EQUIVALENCE (IsoION(2581),Iso_CF(1)) EQUIVALENCE (IsoION(2601),IsoSiC(1)) EQUIVALENCE (IsoION(2621),IsoCP(1)) EQUIVALENCE (IsoION(2641),Iso_CS(1)) EQUIVALENCE (IsoION(2661),IsoN2(1)) EQUIVALENCE (IsoION(2681),Iso_NO(1)) EQUIVALENCE (IsoION(2701),IsoNF(1)) EQUIVALENCE (IsoION(2721),IsoSiN(1)) EQUIVALENCE (IsoION(2741),IsoPN(1)) EQUIVALENCE (IsoION(2761),IsoNS(1)) EQUIVALENCE (IsoION(2781),IsoLiO(1)) EQUIVALENCE (IsoION(2801),IsoBeO(1)) EQUIVALENCE (IsoION(2821),IsoBO (1)) EQUIVALENCE (IsoION(2841),IsoO2 (1)) EQUIVALENCE (IsoION(2861),IsoFO (1)) EQUIVALENCE (IsoION(2881),IsoNaO(1)) EQUIVALENCE (IsoION(2901),IsoMgO(1)) EQUIVALENCE (IsoION(2921),IsoAlO(1)) EQUIVALENCE (IsoION(2941),IsoSiO(1)) EQUIVALENCE (IsoION(2961),Iso_PO(1)) EQUIVALENCE (IsoION(2981),IsoSO (1)) EQUIVALENCE (IsoION(3001),IsoClO(1)) EQUIVALENCE (IsoION(3021),IsoCaO(1)) EQUIVALENCE (IsoION(3041),IsoScO(1)) EQUIVALENCE (IsoION(3061),IsoTiO(1)) EQUIVALENCE (IsoION(3081),IsoVO (1)) EQUIVALENCE (IsoION(3101),IsoCrO(1)) EQUIVALENCE (IsoION(3121),IsoMnO(1)) EQUIVALENCE (IsoION(3141),IsoFeO(1)) EQUIVALENCE (IsoION(3161),IsoCoO(1)) EQUIVALENCE (IsoION(3181),IsoNiO(1)) EQUIVALENCE (IsoION(3201),IsoCuO(1)) EQUIVALENCE (IsoION(3221),IsoGeO(1)) EQUIVALENCE (IsoION(3241),IsoSrO(1)) EQUIVALENCE (IsoION(3261),IsoYO (1)) EQUIVALENCE (IsoION(3281),IsoZrO(1)) EQUIVALENCE (IsoION(3301),IsoNbO(1)) EQUIVALENCE (IsoION(3321),IsoSi2(1)) EQUIVALENCE (IsoION(3341),IsoSiS(1)) EQUIVALENCE (IsoION(3361),IsoS2 (1)) EQUIVALENCE (IsoION(3381),IsoTiS(1)) EQUIVALENCE (IsoION(3401),IsoZrS(1)) EQUIVALENCE (IsoION(3421),IsoH2plus (1)) EQUIVALENCE (IsoION(3441),IsoHeHplus(1)) EQUIVALENCE (IsoION(3461),IsoLiHplus(1)) EQUIVALENCE (IsoION(3481),IsoCHplus (1)) EQUIVALENCE (IsoION(3501),IsoNHplus (1)) EQUIVALENCE (IsoION(3521),IsoOHplus (1)) EQUIVALENCE (IsoION(3541),Iso_HFplus(1)) EQUIVALENCE (IsoION(3561),IsoNeHplus(1)) EQUIVALENCE (IsoION(3581),IsoMgHplus(1)) EQUIVALENCE (IsoION(3601),IsoAlHplus(1)) EQUIVALENCE (IsoION(3621),IsoSiHplus(1)) EQUIVALENCE (IsoION(3641),IsoPHplus (1)) EQUIVALENCE (IsoION(3661),IsoSHplus (1)) EQUIVALENCE (IsoION(3681),IsoHClplus(1)) EQUIVALENCE (IsoION(3701),IsoCaHplus(1)) EQUIVALENCE (IsoION(3721),IsoHe2plus(1)) EQUIVALENCE (IsoION(3741),IsoC2plus (1)) EQUIVALENCE (IsoION(3761),IsoCNplus (1)) EQUIVALENCE (IsoION(3781),Iso_COplus (1)) EQUIVALENCE (IsoION(3801),IsoN2plus (1)) EQUIVALENCE (IsoION(3821),Iso_NOplus (1)) EQUIVALENCE (IsoION(3841),IsoNSplus (1)) EQUIVALENCE (IsoION(3861),IsoO2plus (1)) EQUIVALENCE (IsoION(3881),IsoSiOplus(1)) EQUIVALENCE (IsoION(3901),Iso_POplus(1)) EQUIVALENCE (IsoION(3921),IsoSOplus (1)) EQUIVALENCE (IsoION(3941),IsoS2plus (1)) EQUIVALENCE (IsoION(3961),IsoH2O (1)) EQUIVALENCE (IsoION(3981),IsoCO2 (1)) EQUIVALENCE (IsoION(4001),IsoCH2 (1)) EQUIVALENCE (IsoION(4021),IsoC2H (1)) EQUIVALENCE (IsoION(4041),IsoC2N (1)) EQUIVALENCE (IsoION(4061),IsoC3 (1)) EQUIVALENCE (IsoION(4081),IsoO3 (1)) EQUIVALENCE (IsoION(4101),IsoNO2 (1)) EQUIVALENCE (IsoION(4121),IsoN2O (1)) EQUIVALENCE (IsoION(4141),IsoNH2 (1)) EQUIVALENCE (IsoION(4161),IsoHCO (1)) EQUIVALENCE (IsoION(4181),IsoHCN (1)) EQUIVALENCE (IsoION(4201),IsoHNO (1)) EQUIVALENCE (IsoION(4221),IsoSiC2 (1)) EQUIVALENCE (IsoION(4241),IsoNaOH (1)) EQUIVALENCE (IsoION(4261),IsoMgOH (1)) EQUIVALENCE (IsoION(4281),IsoAlOH (1)) EQUIVALENCE (IsoION(4301),IsoKOH (1)) EQUIVALENCE (IsoION(4321),IsoCaOH (1)) EQUIVALENCE (IsoION(4341),IsoAlOF (1)) EQUIVALENCE (IsoION(4361),IsoAlOCl(1)) EQUIVALENCE (IsoION(4381),IsoAl2O (1)) EQUIVALENCE (IsoION(4401),IsoSH2 (1)) EQUIVALENCE (IsoION(4421),IsoCaF2 (1)) EQUIVALENCE (IsoION(4441),IsoCaCl2(1)) EQUIVALENCE (IsoION(4461),IsoCOS (1)) EQUIVALENCE (IsoION(4481),IsoSiO2 (1)) EQUIVALENCE (IsoION(4501),IsoSO2 (1)) EQUIVALENCE (IsoION(4521),IsoTiO2 (1)) EQUIVALENCE (IsoION(4541),IsoVO2 (1)) EQUIVALENCE (IsoION(4561),IsoNH3 (1)) EQUIVALENCE (IsoION(4581),IsoCH3 (1)) EQUIVALENCE (IsoION(4601),IsoC2H2 (1)) EQUIVALENCE (IsoION(4621),IsoC3H (1)) EQUIVALENCE (IsoION(4641),IsoC2N2 (1)) EQUIVALENCE (IsoION(4661),IsoCH4 (1)) EQUIVALENCE (IsoION(4681),IsoHminus (1)) EQUIVALENCE (IsoION(4701),IsoLiminus(1)) EQUIVALENCE (IsoION(4721),IsoCminus (1)) EQUIVALENCE (IsoION(4741),IsoOminus (1)) EQUIVALENCE (IsoION(4761),IsoFminus (1)) EQUIVALENCE (IsoION(4781),IsoNaminus(1)) EQUIVALENCE (IsoION(4801),IsoAlminus(1)) EQUIVALENCE (IsoION(4821),IsoSiminus(1)) EQUIVALENCE (IsoION(4841),IsoPminus (1)) EQUIVALENCE (IsoION(4861),IsoSminus (1)) EQUIVALENCE (IsoION(4881),IsoClminus(1)) EQUIVALENCE (IsoION(4901),IsoKminus (1)) EQUIVALENCE (IsoION(4921),IsoScminus(1)) EQUIVALENCE (IsoION(4941),IsoTiminus(1)) EQUIVALENCE (IsoION(4961),IsoVminus (1)) EQUIVALENCE (IsoION(4981),IsoCrminus(1)) EQUIVALENCE (IsoION(5001),IsoFeminus(1)) EQUIVALENCE (IsoION(5021),IsoCominus(1)) EQUIVALENCE (IsoION(5041),IsoNiminus(1)) EQUIVALENCE (IsoION(5061),IsoCuminus(1)) EQUIVALENCE (IsoION(5081),IsoC2minus(1)) EQUIVALENCE (IsoION(5101),IsoCHminus(1)) EQUIVALENCE (IsoION(5121),IsoCNminus(1)) EQUIVALENCE (IsoION(5141),Iso_COminus(1)) EQUIVALENCE (IsoION(5161),IsoN2minus(1)) EQUIVALENCE (IsoION(5181),Iso_NOminus(1)) EQUIVALENCE (IsoION(5201),IsoOHminus(1)) EQUIVALENCE (IsoION(5221),IsoO2minus(1)) EQUIVALENCE (IsoION(5241),IsoS2minus(1)) EQUIVALENCE (IsoION(5261),IsoSHminus(1)) EQUIVALENCE (IsoION(5281),IsoH3plus(1)) C DATA IsoH / 1., 2., 3., 0.,0.,0.,0.,0.,0.,0., 1 .99999, .00001, 0., 0.,0.,0.,0.,0.,0.,0./ DATA IsoHe/ 3., 4., 0.,0.,0.,0.,0.,0.,0.,0., 1 .00000138, .99999862, 0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoLi/ 6., 7., 0.,0.,0.,0.,0.,0.,0.,0., 1 .075, .925, 0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoBe/ 9., 0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1., 0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoB / 10., 11., 0.,0.,0.,0.,0.,0.,0.,0., 1 .199, .801, 0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoC / 12., 13., 14., 0.,0.,0.,0.,0.,0.,0., 1 .9890, .0110, 0., 0.,0.,0.,0.,0.,0.,0./ DATA IsoN / 14., 15., 0.,0.,0.,0.,0.,0.,0.,0., 1 .9963, .0037, 0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoO / 16., 17., 18., 0.,0.,0.,0.,0.,0.,0., 1 .9976, .0004, .0020, 0.,0.,0.,0.,0.,0.,0./ DATA IsoF / 19., 0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1., 0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoNe/ 20., 21., 22., 0.,0.,0.,0.,0.,0.,0., 1 .9048, .0027, .0925, 0.,0.,0.,0.,0.,0.,0./ DATA IsoNa/ 23., 0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1., 0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoMg/ 24., 25., 26., 0.,0.,0.,0.,0.,0.,0., 1 .7899, .1000, .1101, 0.,0.,0.,0.,0.,0.,0./ DATA IsoAl/ 27., 0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1., 0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoSi/ 28., 29., 30., 0.,0.,0.,0.,0.,0.,0., 1 .9223, .0467, .0310, 0.,0.,0.,0.,0.,0.,0./ DATA IsoP / 31., 0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1., 0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoS / 32., 33., 34., 36., 0.,0.,0.,0.,0.,0., 1 .9502, .0075, .0421, .0002, 0.,0.,0.,0.,0.,0./ DATA IsoCl/ 35., 37., 0.,0.,0.,0.,0.,0.,0.,0., 1 .7577, .2423, 0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoAr/ 36., 38., 40., 0.,0.,0.,0.,0.,0.,0., 1 .00337, .00063, .99600, 0.,0.,0.,0.,0.,0.,0./ DATA IsoK / 39., 40., 41., 0.,0.,0.,0.,0.,0.,0., 1 .932581, .000117, .067302, 0.,0.,0.,0.,0.,0.,0./ DATA IsoCa/ 40., 42., 43., 44., 46., 48.,0.,0.,0.,0., 1 .96941,.00647,.00135,.02086,.00004,.00187,0.,0.,0.,0./ DATA IsoSc/ 45., 0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1., 0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoTi/ 46., 47., 48., 49., 50., 0.,0.,0.,0.,0., 1 .080, .073, .738, .055, .054, 0.,0.,0.,0.,0./ DATA IsoV / 50., 51., 0.,0.,0.,0.,0.,0.,0.,0., 1 .0025, .9975, 0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoCr/ 50., 52., 53., 54., 0.,0.,0.,0.,0.,0., 1 .04345, .8379, .0950, .02365, 0.,0.,0.,0.,0.,0./ DATA IsoMn/ 55., 0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1., 0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoFe/ 54., 56., 57., 58., 0.,0.,0.,0.,0.,0., 1 .059, .9172, .021, .0028, 0.,0.,0.,0.,0.,0./ DATA IsoCo/ 59., 0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1., 0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoNi/ 58., 60., 61., 62., 64., 0.,0.,0.,0.,0., 1 .6827, .2610, .0113, .0359, .0091, 0.,0.,0.,0.,0./ DATA IsoCu/ 63., 65., 0.,0.,0.,0.,0.,0.,0.,0., 1 .6917, .3083, 0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoZn/ 64., 66., 67., 68., 70., 0.,0.,0.,0.,0., 1 .486, .279, .041, .188, .006, 0.,0.,0.,0.,0./ DATA IsoGa/ 69., 71., 0.,0.,0.,0.,0.,0.,0.,0., 1 .6011, .3989, 0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoGe/ 70., 72., 73., 74., 76., 0.,0.,0.,0.,0., 1 .205, .274, .078, .365, .078, 0.,0.,0.,0.,0./ DATA IsoAs/ 75., 0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1., 0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoSe/ 74., 76., 77., 78., 80., 82., 0.,0.,0.,0., 1 .009, .091, .076, .236, .499, .089, 0.,0.,0.,0./ DATA IsoBr/ 79., 81., 0.,0.,0.,0.,0.,0.,0.,0., 1 .5069, .4931, 0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoKr/ 78., 80., 82., 83., 84., 86., 0.,0.,0.,0., 1 .035, .0225, .116, .115, .570, .173, 0.,0.,0.,0./ DATA IsoRb/ 85., 87., 0.,0.,0.,0.,0.,0.,0.,0., 1 .7216, .2784, 0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoSr/ 84., 86., 87., 88., 0.,0.,0.,0.,0.,0., 1 .0056, .0986, .0700, .8258, 0.,0.,0.,0.,0.,0./ DATA IsoY / 89., 0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1., 0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoZr/ 90., 91., 92., 94., 96., 0.,0.,0.,0.,0., 1 .5145, .1122, .1715, .1738, .0280, 0.,0.,0.,0.,0./ DATA IsoNb/ 93., 0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1., 0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoMo/ 92., 94., 95., 96., 97., 98., 100.,0.,0.,0., 1 .1484, .0925, .1592, .1668,.0955,.2413,.0963,0.,0.,0./ DATA IsoTc/ 98.,0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1.,0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoRu/ 96., 98., 99., 100., 101., 102., 104., 0.,0.,0., 1 .0554, .0186, .127, .126, .171, .316, .186, 0.,0.,0./ DATA IsoRh/ 103., 0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1., 0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoPd/ 102., 104., 105., 106., 108., 110., 0.,0.,0.,0., 1 .0102, .1114, .2233, .2733, .2646, .1172, 0.,0.,0.,0./ DATA IsoAg/ 107., 109., 0.,0.,0.,0.,0.,0.,0.,0., 1 .51839, .48161, 0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoCd/ 106., 108., 110., 111., 112., 113., 114., 116.,0.,0., 1 .0125,.0089,.1249,.1280,.2413,.1222,.2873,.0749,0.,0./ DATA IsoIn/ 113., 115., 0.,0.,0.,0.,0.,0.,0.,0., 1 .043, .957, 0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoSn/112.,114.,115.,116.,117.,118.,119.,120.,122.,124., 1 .0097,.0065,.0036,.1453,.0768,.2422,.0858,.3259,.0463,.0579/ DATA IsoSb/ 121., 123., 0.,0.,0.,0.,0.,0.,0.,0., 1 .574, .426, 0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoTe/ 120., 122., 123., 124., 125., 126., 128., 130.,0.,0., 1 .00095,.0259,.00905,.0479,.0712,.1893,.3170,.3387,0.,0./ DATA IsoI / 127., 0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1., 0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoXe/ 124., 126., 128., 129.,130.,131.,132.,134.,136.,0., 1 .0010, .0009, .0191, .264,.041,.212,.269,.104,.089,0./ DATA IsoCs/ 133., 0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1., 0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoBa/ 130., 132., 134., 135., 136., 137., 138.,0.,0.,0., 1 .00106,.00101,.0242,.06593,.0785,.1123,.7170,0.,0.,0./ DATA IsoLa/ 138., 139., 0.,0.,0.,0.,0.,0.,0.,0., 1 .00090, .99910, 0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoCe/ 136., 138., 140., 142., 0.,0.,0.,0.,0.,0., 1 .0019, .0025, .8843, .1113, 0.,0.,0.,0.,0.,0./ DATA IsoPr/ 141., 0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1., 0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoNd/ 142., 143., 144., 145., 146., 148., 150.,0.,0.,0., 1 .2713, .1218, .2380, .0830, .1719,.0576,.0564,0.,0.,0./ DATA IsoPm/ 145.,0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1.,0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoSm/ 144., 147., 148., 149., 150., 152., 154., 0.,0.,0., 1 .031, .150, .113, .138, .074, .267, .227, 0.,0.,0./ DATA IsoEu/ 151., 153., 0.,0.,0.,0.,0.,0.,0.,0., 1 .478, .522, 0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoGd/ 152., 154., 155., 156., 157., 158., 160.,0.,0.,0., 1 .0020, .0218, .1480, .2047, .1565,.2484,.2186,0.,0.,0./ DATA IsoTb/ 159., 0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1., 0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoDy/ 156., 158., 160., 161., 162., 163., 164., 0.,0.,0., 1 .0006, .0010, .0234, .189, .255, .249, .282, 0.,0.,0./ DATA IsoHo/ 165., 0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1., 0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoEr/ 162., 164., 166., 167., 168., 170., 0.,0.,0.,0., 1 .0014, .0161, .336, .2295, .268, .149, 0.,0.,0.,0./ DATA IsoTm/ 169., 0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1., 0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoYb/ 168., 170., 171., 172., 173., 174., 176.,0.,0.,0., 1 .0013, .0305, .143, .219, .1612, .318, .127,0.,0.,0./ DATA IsoLu/ 175., 176., 0.,0.,0.,0.,0.,0.,0.,0., 1 .9741, .0259, 0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoHf/ 174., 176., 177., 178., 179., 180.,0.,0.,0.,0., 1 .00162,.05206,.18606,.27297,.13629,.35100,0.,0.,0.,0./ DATA IsoTa/ 180., 181., 0.,0.,0.,0.,0.,0.,0.,0., 1 .00012, .99988, 0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoW / 180., 182., 183., 184., 186., 0.,0.,0.,0.,0., 1 .0012, .263, .1428, .307, .286, 0.,0.,0.,0.,0./ DATA IsoRe/ 185., 187., 0.,0.,0.,0.,0.,0.,0.,0., 1 .3740, .6260, 0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoOs/ 184., 186., 187., 188., 189., 190., 192., 0.,0.,0., 1 .0002, .0158, .016, .133, .161, .264, .410, 0.,0.,0./ DATA IsoIr/ 191., 193., 0.,0.,0.,0.,0.,0.,0.,0., 1 .373, .627, 0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoPt/ 190., 192., 194., 195., 196., 198., 0.,0.,0.,0., 1 .0001, .0079, .329, .338, .253, .072, 0.,0.,0.,0./ DATA IsoAu/ 197., 0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1., 0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoHg/ 196., 198., 199., 200., 201., 202., 204., 0.,0.,0., 1 .0015, .100, .169, .231, .132, .298, .0685, 0.,0.,0./ DATA IsoTl/ 203., 205., 0.,0.,0.,0.,0.,0.,0.,0., 1 .2952, .7048, 0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoPb/ 204., 206., 207., 208., 0.,0.,0.,0.,0.,0., 1 .014, .241, .221, .524, 0.,0.,0.,0.,0.,0./ DATA IsoBi/ 209., 0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1., 0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoPo/ 209.,0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1.,0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoAt/ 210.,0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1.,0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoRn/ 222.,0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1.,0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoFr/ 223.,0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1.,0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoRa/ 226.,0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1.,0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoAc/ 227.,0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1.,0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoTh/ 232., 0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1., 0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoPa/ 231.,0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1.,0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoU / 234., 235., 238., 0.,0.,0.,0.,0.,0.,0., 1 .000055, .00720, .992745, 0.,0.,0.,0.,0.,0.,0./ DATA IsoNp/ 237.,0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1.,0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoPu/ 244.,0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1.,0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoAm/ 243.,0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1.,0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoCm/ 247.,0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1.,0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoBk/ 247.,0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1.,0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoCf/ 251.,0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1.,0.,0.,0.,0.,0.,0.,0.,0.,0./ DATA IsoEs/ 252.,0.,0.,0.,0.,0.,0.,0.,0.,0., 1 1.,0.,0.,0.,0.,0.,0.,0.,0.,0./ C C H2 HD HT D2 DT T2 DATA IsoH2/2.,3.,4.,4.,5.,6.,0.,0.,0.,0.,10*0./ C C 3HeH HeH 3HeD HeD DATA IsoHeH/4.,5.,5.,6.,0.,0.,0.,0.,0.,0.,10*0./ C C 6LiH 7LiH 6LiD 7LiD DATA IsoLiH/7.,8.,8.,9.,0.,0.,0.,0.,0.,0.,10*0./ C C 9BeH DATA IsoBeH/10.,0.,0.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 10BH 11BH DATA IsoBH/11.,12.,0.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 12CH 13CH 12CD 13CD DATA IsoCH/13.,14.,14.,15.,0.,0.,0.,0.,0.,0.,10*0./ C C 14NH 15NH 14ND 15ND DATA IsoNH/15.,16.,0.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 16OH 17OH 18OH 16OD 17OD 18OD DATA IsoOH/17.,18.,19.,18.,19.,20.,0.,0.,0.,0.,10*0./ C C H19F DATA Iso_HF/20.,0.,0.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 20NeH 21NeH 22NeH DATA IsoNeH/21.,22.,23.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 23NaH DATA IsoNaH/24.,0.,0.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 24MgH 25MgH 26MgH DATA IsoMgH/25.,26.,27.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 27AlH DATA IsoAlH/28.,0.,0.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 28SiH 29SiH 30SiH DATA IsoSiH/29.,30.,31.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 31PH DATA IsoPH/32.,0.,0.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 32SH 33SH 34SH 36SH DATA IsoSH/33.,34.,35.,37.,0.,0.,0.,0.,0.,0.,10*0./ C C H35Cl H37Cl DATA IsoHCl/36.,38.,0.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 39KH 40KH 41KH DATA IsoKH/40.,41.,42.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 40CaH 42CaH 43CaH 44CaH 46CaH 48CaH DATA IsoCaH/41.,43.,44.,45.,47.,49.,0.,0.,0.,0.,10*0./ C C 45ScH DATA IsoScH/46.,0.,0.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 46TiH 47TiH 48TiH 49TiH 50TiH DATA IsoTiH/46.,47.,48.,49.,50.,0.,0.,0.,0.,0.,10*0./ C C 50VH 51VH DATA IsoVH/51.,52.,0.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 50CrH 52CrH 53CrH 54CrH DATA IsoCrH/51.,53.,54.,55.,0.,0.,0.,0.,0.,0.,10*0./ C C 55MnH DATA IsoMnH/56.,0.,0.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 54FeH 56FeH 57FeH 58FeH DATA IsoFeH/55.,57.,58.,59.,0.,0.,0.,0.,0.,0.,10*0./ C C 59CoH DATA IsoCoH/60.,0.,0.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 58NiH 60NiH 61NiH 62NiH 64NiH DATA IsoNiH/59.,61.,62.,63.,65.,0.,0.,0.,0.,0.,10*0./ C C 63CuH 65CuH DATA IsoCuH/64., 66.,0.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 3He3He 3He4He 4He4He DATA IsoHe2/6.,7.,8.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 12C12C 12C13C 13C13C DATA IsoC2/24.,25.,26.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 12C14N 13C14N 12C15N 13C15N DATA IsoCN/26.,27.,27.,28.,0.,0.,0.,0.,0.,0.,10*0./ C C 12C16O 13C16O 12C17O 13C17O 12C18O 13C18O DATA Iso_CO/28.,29.,29.,30.,30.,31.,0.,0.,0.,0.,10*0./ C C 12C19F 13C19F DATA Iso_CF/31.,32.,0.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 28Si12C 28Si13C 29Si12C 29Si13C 30Si12C 30Si13C DATA IsoSiC/40.,41.,41.,42.,42.,43.,0.,0.,0.,0.,10*0./ C C 12C31P 13C31P DATA IsoCP/43.,44.,0.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 12C32S 12C33S 12C34S 12C36S 13C32S 13C33S 13C34S 13C36S DATA Iso_CS/44.,45.,46.,48.,45.,46.,47.,49.,0.,0.,10*0./ C C 14N14N 14N15N 15N15N DATA IsoN2/28.,29.,30.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 14N16O 15N16O 14N17O 15N17O 14N18O 15N18O DATA Iso_NO/30.,31.,31.,32.,32.,33.,0.,0.,0.,0.,10*0./ C C 14N19F 15N19F DATA ISONF/33.,34.,0.,0.,0.,0.,0.,0.,0.,0,10*0./ C C 28Si14N 28Si15N 29Si14N 29Si15N 30Si14N 30Si15N DATA IsoSiN/42.,43.,43.,44.,44.,45.,0.,0.,0.,0.,10*0./ C C 31P14N 31P15N DATA ISOPN/45.,46.,0.,0.,0.,0.,0.,0.,0.,0,10*0./ C C 14N32S 14S33S 14S34S 14N36S 15N32S 15N33S 15N34S 15N36S DATA IsoNS/46.,47.,48.,50.,47.,48.,49.,51.,0.,0.,10*0./ C C 6Li16O 7Li16O 6Li18O 7Li18O DATA IsoLiO/22.,23.,24.,25.,0.,0.,0.,0.,0.,0.,10*0./ C C 9Be16O 9B17O 9B18O DATA IsoBeO/25.,26.,27.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 10B16O 11B16O 10B17O 11B17O 10B18O 11B18O DATA IsoBO/26.,27.,27.,28.,28., 29.,0.,0.,0.,0.,10*0./ C C 16O2 16O17O 16O18O 17O2 17O18O 18O2 DATA IsoO2/32.,33.,34.,34.,35.,36.,0.,0.,0.,0.,10*0./ C C 19F16O 19F17O 19F18O DATA IsoFO/35.,36.,37.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 23Na16O 23Na17O 23Na18O DATA IsoNaO/39.,40.,41.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 24Mg16O 25Mg16O 26Mg16O 24Mg17O 25Mg17O 26Mg17O 24Mg18O 25Mg18O 26Mg18O DATA IsoMgO/40.,41.,42.,41.,42.,43.,42.,43.,44.,0.,10*0./ C C 27Al16O 27Al17O 27Al18O DATA IsoAlO/43.,44.,45.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 28Si16O 29Si16O 30Si16O 28Si17O 29Si17O 30Si17O 28Si18O 29Si18O 30Si18O DATA IsoSiO/44.,45.,46.,45.,46.,47.,46.,47.,48.,0.,10*0./ C C 31P16O 31P17O 31P18O DATA Iso_PO/47.,48.,49.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 32S160 33S16O 34S16O 36S16O 32S17O 33S17O 34S17O 32S18O 33S18O 34S18O DATA IsoSO/48.,49.,50.,52.,49.,50.,51.,50.,51.,52.,10*0./ C C 35Cl16O 37Cl16O 35Cl17O 37Cl17O 35Cl18O 37Cl18O DATA IsoClO/51.,53.,52.,54.,53.,55.,0.,0.,0.,0.,10*0./ C C 40Ca16O 42Ca16O 43Ca16O 44Ca16O 46Ca16O 48Ca16O C 40Ca17O 40Ca18O 42Ca18O 44Ca18O DATA IsoCaO/56.,58.,59.,60.,62.,64.,57.,58.,60.,62.,10*0./ C C 45Sc16O 45Sc17O 45Sc18O DATA IsoScO/61.,62.,63.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 46Ti16O 47Ti16O 48Ti16O 49Ti16O 50Ti16O C 48Ti17O 46Ti18O 47Ti18O 48Ti18O 49Ti18O DATA IsoTiO/62.,63.,64.,65.,66.,65.,64.,65.,66.,67.,10*0./ C C 50V160 51V16O 50V17O 51V17O 50V18O 51V180 DATA IsoVO/66.,67.,67.,68.,68.,69.,0.,0.,0.,0.,10*0./ C C 50Cr16O 52Cr16O 53Cr16O 54Cr16O 52Cr17O 53Cr17O C 50Cr18O 52Cr18O 53Cr18O 54Cr18O DATA IsoCrO/66.,68.,69.,70.,69.,70.,68.,70.,71.,72.,10*0./ C C 53Mn16O 53Mn17O 53Mn18O DATA IsoMnO/69.,70.,71.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 54Fe16O 56Fe16O 57Fe16O 58Fe16O 54Fe17O 56Fe17O C 54Fe18O 56Fe18O 57Fe18O 58Fe18O DATA IsoFeO/70.,72.,73.,74.,71.,73.,72.,74.,75.,76.,10*0./ C C 59Co16O 59Co17O 59Co18O DATA IsoCoO/75.,76.,77.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 58Ni16O 60Ni16O 61Ni16O 62Ni16O 64Ni16O C 58Ni17O 60Ni17O 58Ni18O 60Ni18O 62Ni18O DATA IsoNiO/74.,76.,77.,78.,80.,75.,77.,76.,78.,80.,10*0./ C C 63Cu16O 65Cu16O 63Cu17O 65Cu17O 63Cu18O 65Cu18O DATA IsoCuO/79.,81.,80.,82.,81.,83.,0.,0.,0.,0.,10*0./ C C 70Ge16O 72Ge16O 73Ge16O 74Ge16O 76Ge16O C 70Ge18O 72Ge18O 73Ge18O 74Ge18O 76Ge18O DATA IsoGeO/86.,88.,89.,90.,92.,88.,90.,91.,92.,94.,10*0./ C C 84Sr16O 86Sr16O 87Sr16O 88Sr16O C 86Sr17O 87Sr17O 88Sr17O 86Sr18O 87Sr18O 88Sr18O DATA IsoSrO/100.,102.,103.,104.,103.,104.,105.,104.,105.,106., 1 10*0./ C C 89Y16O 89Y17O 89Y18O DATA IsoYO/105.,106.,107.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 90Zr16O 91Zr16O 92Zr16O 94Zr16O 96Zr16O C 90Zr17O 90Zr18O 91Zr18O 92Zr18O 94Zr18O DATA IsoZrO/106.,107.,108.,110.,112.,107.,108.,109.,110.,112., 1 10*0./ C C 93Nb16O 93Nb17O 93Nb18O DATA ISONbO/109.,110.,111.,0.,0.,0.,0.,0.,0.,0.,10*0./ C C 28Si28Si 28Si29Si 28Si30Si 29Si29Si 29Si30Si 30Si30Si DATA IsoSi2/56.,57.,58.,58.,59.,60.,0.,0.,0.,0.,10*0./ C C 28Si32S 28Si33S 28Si34S 28Si36S 29Si32S C 29Si33S 29Si34S 30Si32S 30Si33S 30Si34S DATA IsoSiS/60.,61.,62.,63.,61.,62.,63.,62.,63.,64.,10*0./ C C 32S32S 32S33S 32S34S 32S36S 33S33S 33S34S 33S36S 34S34S 34S36S 36S36S DATA IsoS2/64.,65.,66.,68.,66.,67.,69.,68.,70.,72.,10*0./ C C 46Ti32S 47Ti32S 48Ti32S 49Ti32S 50Ti32S C 48Ti33S 46Ti34S 47Ti34S 48Ti34S 49Ti34S DATA IsoTiS/78.,79.,80.,81.,82.,81.,80.,81.,82.,83.,10*0./ C C 90Zr32S 91Zr32S 92Zr32S 94Zr32S 96Zr32S C 90Zr33S 90Zr34S 91Zr34S 92Zr34S 94Zr34S DATA IsoZrS/122.,123.,124.,126.,128.,123.,124.,125.,126.,128., 1 10*0./ C C H216O H217O H218O HD16O HD17O HD18O D216O D217O D218O DATA IsoH2O/18.,19.,20.,19.,20.,21.,20.,21.,22.,0.,10*0./ C C 12C16O2 13C16O2 12C16O17O 13C16O17O 12C16O18O C 13C16O18O 12C17O18O 12C17O2 12C18O2 13C18O2 DATA IsoCO2/44.,45.,45.,46.,46.,47.,47.,46.,48.,49.,10*0./ C C 12CH2 13CH2 12CHD 13CHD 12CD2 13CD2 DATA IsoCH2/14.,15.,15.,16.,16.,17.,0.,0.,0.,0.,1.,9*0./ C C 12C2H 12C13CH 13C2H 12C2D 12C13CD 13C2D DATA IsoC2H/25.,26.,27.,26.,27.,28.,0.,0.,0.,0.,1.,9*0./ C C 12C12C14N 12C13C14N 13C13C14N 12C12C15N 12C13C15N 13C13C15N DATA IsoC2N/38.,39.,40.,39.,40.,41.,0.,0.,0.,0.,1.,9*0./ C C 12C3 12C213C 12C13C2 13C3 DATA IsoC3/36.,37.,38.,39.,0.,0.,0.,0.,0.,0.,1.,9*0./ C 16O3 16O16O17O 16O16O18O 16O17O17O 16O17O18O C 16O18O18O 17O3 17O17O18O 17O18O18O 18O3 DATA IsoO3/48.,49.,50.,50.,51.,52.,51.,52.,53.,54.,1.,9*0./ C C 14N16O2 15N16O2 14N16O17O 15N16N17O 14N16O18O 15N16O18O C 14N18O2 15N18O2 14N17O18O 15N17N18O DATA IsoNO2/46.,47.,47.,48.,48.,49.,50.,51.,49.,50.,1.,9*0./ C C 14N216O 14N15N16O 15N216O 14N217O 14N15N17O 15N217O C 14N218O 14N15N18O 15N218O DATA IsoN2O/44.,45.,46.,45.,46.,47.,46.,47.,48.,0.,1.,9*0./ C C 14NH2 15NH2 14NHD 15NHD 14ND2 15ND2 DATA IsoNH2/16.,17.,17.,18.,18.,19.,0.,0.,0.,0.,1.,9*0./ C C H12C16O H13C16O H12C17O H13C17O H12C18O C H13C180 D12C16O D13C16O D12C18O D13C18O DATA IsoHCO/29.,30.,30.,31.,31.,32.,30.,30.,32.,33.,1.,9*0./ C C H12C14N H13C14N H12C15N H13C15N C D12C14N D13C14N D12C15N D13C15N DATA IsoHCN/27.,28.,28.,29.,28.,29.,29.,30.,0.,0.,1.,9*0./ C C H14N16O H15N16O H14N17O H15N17O H14N18O H15N18O C D14N16O D15N16O D14N17O D14N18O DATA IsoHNO/31.,32.,32.,33.,33.,34.,32.,33.,33.,34.,1.,9*0./ C C 28SI12C2 29SI12C2 30SI2C2 28SI12C13C 29SI12C13C 30SI2C13C C 28SI13C2 29SI13C2 30SI3C2 DATA IsoSiC2/52.,53.,54.,53.,54.,55.,54.,55.,56.,0.,1.,9*0./ C C 23Na16OH 23Na17OH 23Na18OH 23Na16OD 23Na17OD 23Na18OD DATA IsoNaOH/40.,41.,42.,41.,42.,43.,0.,0.,0.,0.,1.,9*0./ C C 24Mg16OH 25Mg16OH 26Mg16OH 24Mg17OH 25Mg17OH 26Mg17OH C 24Mg18OH 25Mg18OH 26Mg18OH 24Mg16OD DATA IsoMgOH/41.,42.,43.,42.,43.,44.,43.,44.,45.,42.,1.,9*0./ C C 27Al16OH 27Al17OH 27Al18OH 27Al16OD 27Al17OD 27Al18OD DATA IsoAlOH/44.,45.,46.,45.,46.,47.,0.,0.,0.,0.,1.,9*0./ C C 39K16OH 40K16OH 41K16OH 39K17OH 40K17OH C 41K17OH 39K18OH 40K18OH 41K18OH 39K16OD DATA IsoKOH/56.,57.,58.,57.,58.,59.,58.,59.,60.,57.,1.,9*0./ C C 40Ca16OH 42Ca16OH 43Ca16OH 44Ca16OH 46Ca16OH 48Ca16OH C 40Ca17OH 40Ca18OH 42Ca18OH 44Ca18OH DATA IsoCaOH/57.,59.,60.,61.,63.,65.,58.,59.,61.,63.,1.,9*0./ C C 27Al16O19F 27Al17O19F 27Al18O19F DATA IsoAlOF/62.,63.,64.,0.,0.,0.,0.,0.,0.,0.,1.,9*0./ C C 27Al16O35Cl 27Al17O35Cl 27Al18O35Cl C 27Al16O37Cl 27Al17O37Cl 27Al18O37Cl DATA IsoAlOCl/78.,79.,80.,80.,81.,82.,0.,0.,0.,0.,1.,9*0./ C 27Al216O 27Al217O 27Al218O DATA IsoAl2O/66.,67.,68.,0.,0.,0.,0.,0.,0.,0.,1.,9*0./ C C 32SH2 33SH2 34SH2 36SH2 32SHD 33SHD 34SHD 36SHD 32SD2 34SD2 DATA IsoSH2/34.,35.,36.,38.,35.,36.,37.,39.,36.,38.,1.,9*0./ C C 41Ca19F2 42Ca19F2 43Ca19F2 44Ca19F2 46Ca19F2 48Ca19F2 DATA IsoCaF2/79.,80.,81.,82.,84.,86.,0.,0.,0.,0.,1.,9*0./ C C 40Ca35Cl2 42Ca35Cl2 43Ca35Cl2 44Ca35Cl2 48Ca35Cl2 C 40Ca37Cl2 42Ca37Cl2 43Ca37Cl2 44Ca37Cl2 48Ca37Cl2 DATA IsoCaCl2/110.,112.,113.,114.,118.,112.,114.,115.,116.,120., 1 1.,9*0./ C C 12C16O32S 13C16O32S 12C18O32S 13C18O32S 12C16O33S C 13C16033S 12C16O34S 13C16O34S 12C17O32S 13C17O32S DATA IsoCOS/60.,61.,62.,63.,61.,62.,62.,63.,61.,62.,1.,9*0./ C C 28SII16O2 29SI16O2 30SI16O2 28SII16O18O 29SI16O18O C 30SI16O18O 28SII16O17O 29SI16O17O 30SI16O17O 28SII18O2 DATA IsoSiO2/60.,61.,62.,62.,63.,64.,61.,62.,63.,64.,1.,9*0./ C C 32S16O2 33S16O2 34S16O2 36S16O2 32S16O17O C 33S16O17O 34S16O17O 32S16O18O 33S16O18O 34S16O18O DATA IsoSO2/64.,65.,66.,68.,65.,66.,67.,66.,67.,68.,1.,9*0./ C C 46Ti16O2 47Ti16O2 48Ti16O2 49Ti16O2 50Ti16O2 C 48Ti16O17O 46Ti16O18O 47Ti16O18O 48Ti16O18O 49Ti16O18O DATA IsoTiO2 /78.,79.,80.,81.,82.,81.,80.,81.,82.,83.,1.,9*0./ C C 50V16O2 51V16O2 50V16O17O 51V16O17O 50V16O18O C 51V16O18O 50V18O2 51V18O2 50V17O18O 51V17O18O DATA IsoVO2/82.,83.,83.,84.,84.,85.,86.,87.,85.,86.,1.,9*0./ C C 14NH3 15NH3 14NH2D 15NH2D 14NHD2 15NHD2 14ND3 15ND3 DATA IsoNH3/17.,18.,18.,19.,19.,20.,20.,21.,0.,0.,1.,9*0./ C C 12CH3 13CH3 12CH2D 13CH2D 12CHD2 13CHD2 12CD3 13CD3 DATA IsoCH3/15.,16.,16.,17.,17.,18.,18.,19.,0.,0.,1.,9*0./ C C 12C2H2 12C13CH2 13C2H2 12C2HD 12C13CHD 13C2HD C 12C2D2 12C13CD2 13C2D2 DATA IsoC2H2/26.,27.,28.,27.,28.,29.,28.,29.,30.,0.,1.,9*0./ C C 12C3H 12C213CH 12C13C2H 13C3H 12C3D 12C213CD 12C13C2D 13C3D DATA IsoC3H/37.,38.,39.,40.,38.,39.,40.,41.,0.,0.,1.,9*0./ C C 12C214N2 12C13C14N2 13C214N2 12C214N15N 12C13C14N15N C 13C214N15N 12C215N2 12C13C15N2 13C215N2 DATA IsoC2N2/60.,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.,9*0./ C C 12CH4 13CH4 12CH3D 13CH3D 12CH2D2 13CH2D2 C 12CHD3 13CHD3 12CD4 13CD4 DATA IsoCH4/16.,17.,17.,18.,18.,19.,19.,20.,20.,21.,1.,9*0./ C C H3+ H2D+ HD2+ D3+ DATA IsoH3plus/3.,4.,5.,6.,16*0./ C C H2 HD HT D2 DT T2 IsoH2(11)=IsoH(11)*IsoH(11) IsoH2(12)=IsoH(11)*IsoH(12)*2. IsoH2(13)=IsoH(11)*IsoH(13)*2. IsoH2(14)=IsoH(12)*IsoH(12) IsoH2(15)=IsoH(12)*IsoH(13)*2. IsoH2(16)=IsoH(13)*IsoH(13) C C 3HeH HeH HeD IsoHeH(11)=IsoHe(11)*IsoH(11) IsoHeH(12)=IsoHe(12)*IsoH(11) IsoHeH(13)=IsoHe(12)*IsoH(12) C C 6LiH 7LiH 6LiD 7LiD IsoLiH(11)=IsoLi(11)*IsoH(11) IsoLiH(12)=IsoLi(12)*IsoH(11) IsoLiH(13)=IsoLi(11)*IsoH(12) IsoLiH(14)=IsoLi(12)*IsoH(12) C C 9BeH IsoBeH(11)=IsoBe(11) C C 10BH 11BH IsoBH(11)=IsoB(11) IsoBH(12)=IsoB(12) C C 12CH 13CH 12CD IsoCH(11)=IsoC(11)*IsoH(11) IsoCH(12)=IsoC(12)*IsoH(11) IsoCH(13)=IsoC(11)*IsoH(12) C C 14NH 15NH IsoNH(11)=IsoN(11) IsoNH(12)=IsoN(12) C C 16OH 17OH 18OH IsoOH(11)=IsoO(11) IsoOH(12)=IsoO(12) IsoOH(13)=IsoO(13) C C H19F Iso_HF(11)=IsoF(11) C C 20NeH 21NeH 22NeH IsoNeH(11)=IsoNe(11) IsoNeH(12)=IsoNe(12) IsoNeH(13)=IsoNe(13) C C 23NaH IsoNaH(11)=IsoNa(11) C C 24MgH 25MgH 26MgH IsoMgH(11)=IsoMg(11) IsoMgH(12)=IsoMg(12) IsoMgH(13)=IsoMg(13) C C 27AlH IsoAlH(11)=IsoAl(11) C C 28SiH 29SiH 30SiH IsoSiH(11)=IsoSi(11) IsoSiH(12)=IsoSi(12) IsoSiH(13)=IsoSi(13) C C 31PH IsoPH(11)=IsoP(11) C C 32SH 33SH 34SH 36SH IsoSH(11)=IsoS(11) IsoSH(12)=IsoS(12) IsoSH(13)=IsoS(13) IsoSH(14)=IsoS(14) C C H35Cl H37Cl IsoHCl(11)=IsoCl(11) IsoHCl(12)=IsoCl(12) C C 39KH 40KH 41KH IsoKH(11)=ISOK(11) IsoKH(12)=ISOK(12) IsoKH(13)=ISOK(13) C C 40CaH 42CaH 43CaH 44CaH 46CaH 48CaH IsoCaH(11)=IsoCa(11) IsoCaH(12)=IsoCa(12) IsoCaH(13)=IsoCa(13) IsoCaH(14)=IsoCa(14) IsoCaH(15)=IsoCa(15) IsoCaH(16)=IsoCa(16) C C 45ScH IsoScH(11)=IsoSc(11) C C 46TiH 47TiH 48TiH 49TiH 50TiH IsoTiH(11)=IsoTi(11) IsoTiH(12)=IsoTi(12) IsoTiH(13)=IsoTi(13) IsoTiH(14)=IsoTi(14) IsoTiH(15)=IsoTi(15) C C 50VH 51VH IsoVH(11)=IsoV(11) IsoVH(12)=IsoV(12) C C 50CrH 52CrH 53CrH 54CrH IsoCrH(11)=IsoCr(11) IsoCrH(12)=IsoCr(12) IsoCrH(13)=IsoCr(13) IsoCrH(14)=IsoCr(14) C C 55MnH IsoMnH(11)=IsoMn(11) C C 54FeH 56FeH 57FeH 58FeH IsoFeH(11)=IsoFe(11) IsoFeH(12)=IsoFe(12) IsoFeH(13)=IsoFe(13) IsoFeH(14)=IsoFe(14) C C 59CoH IsoCoH(11)=IsoCo(11) C C 58NiH 60NiH 61NiH 62NiH 64NiH IsoNiH(11)=IsoNi(11) IsoNiH(12)=IsoNi(12) IsoNiH(13)=IsoNi(13) IsoNiH(14)=IsoNi(14) IsoNiH(15)=IsoNi(15) C C 63CuH 65CuH IsoCuH(11)=IsoCu(11) IsoCuH(12)=IsoCu(12) C C 12C12C 12C13C 13C13C IsoC2(11)=IsoC(11)**2 IsoC2(12)=IsoC(11)*IsoC(12)*2. IsoC2(13)=IsoC(12)**2 C C 12C16O 13C16O 12C17O 13C17O 12C18O 13C18O Iso_CO(11)=IsoC(11)*IsoO(11) Iso_CO(12)=IsoC(12)*IsoO(11) Iso_CO(13)=IsoC(11)*IsoO(12) Iso_CO(14)=IsoC(12)*IsoO(12) Iso_CO(15)=IsoC(11)*IsoO(13) Iso_CO(16)=IsoC(12)*IsoO(13) C C 12C14N 13C14N 12C15N 13C15N IsoCN(11)=IsoC(11)*IsoN(11) IsoCN(12)=IsoC(12)*IsoN(11) IsoCN(13)=IsoC(11)*IsoN(12) IsoCN(14)=IsoC(12)*IsoN(12) C C 12C19F 13C19F Iso_CF(11)=IsoC(11)*IsoF(11) Iso_CF(12)=IsoC(12)*IsoF(11) C C 28Si12C 28Si13C 29Si12C 29Si13C 30Si12C 30Si13C IsoSiC(11)=IsoSi(11)*IsoC(11) IsoSiC(12)=IsoSi(11)*IsoC(12) IsoSiC(13)=IsoSi(12)*IsoC(11) IsoSiC(14)=IsoSi(12)*IsoC(12) IsoSiC(15)=IsoSi(13)*IsoC(11) IsoSiC(16)=IsoSi(13)*IsoC(12) C C 12C31P 13C31P IsoCP(11)=IsoC(11)*IsoP(11) IsoCP(12)=IsoC(12)*IsoP(11) C C 12C32S 12C33S 12C34S 12C36S 13C32S 13C33S 13C34S 13C36S Iso_CS(11)=IsoC(11)*IsoS(11) Iso_CS(12)=IsoC(11)*IsoS(12) Iso_CS(13)=IsoC(11)*IsoS(13) Iso_CS(14)=IsoC(11)*IsoS(14) Iso_CS(15)=IsoC(12)*IsoS(11) Iso_CS(16)=IsoC(12)*IsoS(12) Iso_CS(17)=IsoC(12)*IsoS(13) Iso_CS(18)=IsoC(12)*IsoS(14) C C 14N14N 14N15N 15N15N IsoN2(11)=IsoN(11)**2 IsoN2(12)=IsoN(11)*IsoN(12)*2. IsoN2(13)=IsoN(12)**2 C C 14N16O 15N16O 14N17O 15N17O 14N18O 15N18O Iso_NO(11)=IsoN(11)*IsoO(11) Iso_NO(12)=IsoN(12)*IsoO(11) Iso_NO(13)=IsoN(11)*IsoO(12) Iso_NO(14)=IsoN(12)*IsoO(12) Iso_NO(15)=IsoN(11)*IsoO(13) Iso_NO(16)=IsoN(12)*IsoO(13) C C 14N19F 15N19F IsoNF(11)=IsoN(11)*IsoF(11) IsoNF(12)=IsoN(12)*IsoF(11) C C 28Si14N 28Si15N 29Si14N 29Si15N 30Si14N 30Si15N IsoSiN(11)=IsoSi(11)*IsoN(11) IsoSiN(12)=IsoSi(11)*IsoN(12) IsoSiN(13)=IsoSi(12)*IsoN(11) IsoSiN(14)=IsoSi(12)*IsoN(12) IsoSiN(15)=IsoSi(13)*IsoN(11) IsoSiN(16)=IsoSi(13)*IsoN(12) C C 31P14N 31P15N IsoPN(11)=IsoP(11)*IsoN(11) IsoPN(12)=IsoP(11)*IsoN(12) C C 14N32S 14S33S 14S34S 14N36S 15N32S 15N33S 15N34S 15N36S IsoNS(11)=IsoN(11)*IsoS(11) IsoNS(12)=IsoN(11)*IsoS(12) IsoNS(13)=IsoN(11)*IsoS(13) IsoNS(14)=IsoN(11)*IsoS(14) IsoNS(15)=IsoN(12)*IsoS(11) IsoNS(16)=IsoN(12)*IsoS(12) IsoNS(17)=IsoN(12)*IsoS(13) IsoNS(18)=IsoN(12)*IsoS(14) C C 6Li16O 7Li16O 6Li18O 7Li18O IsoLiO(11)=IsoLi(11)*IsoO(11) IsoLiO(12)=IsoLi(12)*IsoO(11) IsoLiO(13)=IsoLi(11)*IsoO(13) IsoLiO(14)=IsoLi(12)*IsoO(13) C C 9Be16O 9Be17O 9Be18O IsoBeO(11)=IsoBe(11)*IsoO(11) IsoBeO(12)=IsoBe(11)*IsoO(12) IsoBeO(13)=IsoBe(11)*IsoO(13) C C 10B16O 11B16O 10B17O 11B17O 10B18O 11B18O IsoBO(11)=IsoB(11)*IsoO(11) IsoBO(12)=IsoB(12)*IsoO(11) IsoBO(13)=IsoB(11)*IsoO(12) IsoBO(14)=IsoB(12)*IsoO(12) IsoBO(15)=IsoB(11)*IsoO(13) IsoBO(16)=IsoB(12)*IsoO(13) C C 16O2 16O17O 16O18O 17O2 17O18O 18O2 IsoO2(11)=IsoO(11)**2 IsoO2(12)=IsoO(11)*IsoO(12)*2. IsoO2(13)=IsoO(11)*IsoO(13)*2. IsoO2(14)=IsoO(12)**2 IsoO2(15)=IsoO(12)*IsoO(13)*2. IsoO2(16)=IsoO(13)**2 C C 19F16O 19F17O 19F18O IsoFO(11)=IsoF(11)*IsoO(11) IsoFO(12)=IsoF(11)*IsoO(12) IsoFO(13)=IsoF(11)*IsoO(13) C C 23Na16O 23Na17O 23Na18O IsoNaO(11)=IsoNa(11)*IsoO(11) IsoNaO(12)=IsoNa(11)*IsoO(12) IsoNaO(13)=IsoNa(11)*IsoO(13) C C 24Mg16O 25Mg16O 26Mg16O 24Mg17O 25Mg17O 26Mg17O 24Mg18O 25Mg18O 26Mg18O IsoMgO(11)=IsoMg(11)*IsoO(11) IsoMgO(12)=IsoMg(12)*IsoO(11) IsoMgO(13)=IsoMg(13)*IsoO(11) IsoMgO(14)=IsoMg(11)*IsoO(12) IsoMgO(15)=IsoMg(12)*IsoO(12) IsoMgO(16)=IsoMg(13)*IsoO(12) IsoMgO(17)=IsoMg(11)*IsoO(13) IsoMgO(18)=IsoMg(12)*IsoO(13) IsoMgO(19)=IsoMg(13)*IsoO(13) C C 27Al16O 27Al17O 27Al18O IsoAlO(11)=IsoAl(11)*IsoO(11) IsoAlO(12)=IsoAl(11)*IsoO(12) IsoAlO(13)=IsoAl(11)*IsoO(13) C C 28Si16O 29Si16O 30Si16O 28Si17O 29Si17O 30Si17O 28Si18O 29Si18O 30Si18O IsoSiO(11)=IsoSi(11)*IsoO(11) IsoSiO(12)=IsoSi(12)*IsoO(11) IsoSiO(13)=IsoSi(13)*IsoO(11) IsoSiO(14)=IsoSi(11)*IsoO(12) IsoSiO(15)=IsoSi(12)*IsoO(12) IsoSiO(16)=IsoSi(13)*IsoO(12) IsoSiO(17)=IsoSi(11)*IsoO(13) IsoSiO(18)=IsoSi(12)*IsoO(13) IsoSiO(19)=IsoSi(13)*IsoO(13) C C 31P16O 31P17O 31P18O Iso_PO(11)=IsoP(11)*IsoO(11) Iso_PO(12)=IsoP(11)*IsoO(12) Iso_PO(13)=IsoP(11)*IsoO(13) C C 32S160 33S16O 34S16O 36S16O 32S17O 33S17O 34S17O 32S18O 32S18O 32S18O IsoSO(11)=IsoS(11)*IsoO(11) IsoSO(12)=IsoS(12)*IsoO(11) IsoSO(13)=IsoS(13)*IsoO(11) IsoSO(14)=IsoS(14)*IsoO(11) IsoSO(15)=IsoS(11)*IsoO(12) IsoSO(16)=IsoS(12)*IsoO(12) IsoSO(17)=IsoS(13)*IsoO(12) IsoSO(18)=IsoS(11)*IsoO(13) IsoSO(19)=IsoS(12)*IsoO(13) IsoSO(20)=IsoS(13)*IsoO(13) C C 35Cl16O 37Cl16O 35Cl17O 37Cl17O 35Cl18O 37Cl18O IsoClO(11)=IsoCl(11)*IsoO(11) IsoClO(12)=IsoCl(12)*IsoO(11) IsoClO(13)=IsoCl(11)*IsoO(12) IsoClO(14)=IsoCl(12)*IsoO(12) IsoClO(15)=IsoCl(11)*IsoO(13) IsoClO(16)=IsoCl(12)*IsoO(13) C C 40Ca16O 42Ca16O 43Ca16O 44Ca16O 46Ca16O 48Ca16O C 40Ca17O 40Ca18O 42Ca18O 44Ca18O IsoCaO(11)=IsoCa(11)*IsoO(11) IsoCaO(12)=IsoCa(12)*IsoO(11) IsoCaO(13)=IsoCa(13)*IsoO(11) IsoCaO(14)=IsoCa(14)*IsoO(11) IsoCaO(15)=IsoCa(15)*IsoO(11) IsoCaO(16)=IsoCa(16)*IsoO(11) IsoCaO(17)=IsoCa(11)*IsoO(12) IsoCaO(18)=IsoCa(11)*IsoO(13) IsoCaO(19)=IsoCa(12)*IsoO(13) IsoCaO(20)=IsoCa(14)*IsoO(13) C C 45Sc16O 45Sc17O 45Sc18O IsoScO(11)=IsoSc(11)*IsoO(11) IsoScO(12)=IsoSc(11)*IsoO(12) IsoScO(13)=IsoSc(11)*IsoO(13) C C 46Ti16O 47Ti16O 48Ti16O 49Ti16O 50Ti16O C 48Ti17O 46Ti18O 47Ti18O 48Ti18O 49Ti18O IsoTiO(11)=IsoTi(11)*IsoO(11) IsoTiO(12)=IsoTi(12)*IsoO(11) IsoTiO(13)=IsoTi(13)*IsoO(11) IsoTiO(14)=IsoTi(14)*IsoO(11) IsoTiO(15)=IsoTi(15)*IsoO(11) IsoTiO(16)=IsoTi(13)*IsoO(12) IsoTiO(17)=IsoTi(11)*IsoO(13) IsoTiO(18)=IsoTi(12)*IsoO(13) IsoTiO(19)=IsoTi(13)*IsoO(13) IsoTiO(20)=IsoTi(14)*IsoO(13) C C 50V160 51V16O 50V17O 51V17O 50V18O 51V180 IsoVO(11)=IsoV(11)*IsoO(11) IsoVO(12)=IsoV(12)*IsoO(11) IsoVO(13)=IsoV(11)*IsoO(12) IsoVO(14)=IsoV(12)*IsoO(12) IsoVO(15)=IsoV(11)*IsoO(13) IsoVO(16)=IsoV(12)*IsoO(13) C C 50Cr16O 52Cr16O 53Cr16O 54Cr16O 52Cr17O 53Cr17O C 50Cr18O 52Cr18O 53Cr18O 54Cr18O IsoCrO(11)=IsoCr(11)*IsoO(11) IsoCrO(12)=IsoCr(12)*IsoO(11) IsoCrO(13)=IsoCr(13)*IsoO(11) IsoCrO(14)=IsoCr(14)*IsoO(11) IsoCrO(15)=IsoCr(12)*IsoO(12) IsoCrO(16)=IsoCr(13)*IsoO(12) IsoCrO(17)=IsoCr(11)*IsoO(13) IsoCrO(18)=IsoCr(12)*IsoO(13) IsoCrO(19)=IsoCr(13)*IsoO(13) IsoCrO(20)=IsoCr(14)*IsoO(13) C C 53Mn16O 53Mn17O 53Mn18O IsoMnO(11)=IsoMn(11)*IsoO(11) IsoMnO(12)=IsoMn(11)*IsoO(12) IsoMnO(13)=IsoMn(11)*IsoO(13) C C 54Fe16O 56Fe16O 57Fe16O 58Fe16O 54Fe17O 56Fe17O C 54Fe18O 56Fe18O 57Fe18O 58Fe18O IsoFeO(11)=IsoFe(11)*IsoO(11) IsoFeO(12)=IsoFe(12)*IsoO(11) IsoFeO(13)=IsoFe(13)*IsoO(11) IsoFeO(14)=IsoFe(14)*IsoO(11) IsoFeO(15)=IsoFe(11)*IsoO(12) IsoFeO(16)=IsoFe(12)*IsoO(12) IsoFeO(17)=IsoFe(11)*IsoO(13) IsoFeO(18)=IsoFe(12)*IsoO(13) IsoFeO(19)=IsoFe(13)*IsoO(13) IsoFeO(20)=IsoFe(14)*IsoO(13) C C 57Co16O 57Co17O 57Co18O IsoCoO(11)=IsoCo(11)*IsoO(11) IsoCoO(12)=IsoCo(11)*IsoO(12) IsoCoO(13)=IsoCo(11)*IsoO(13) C C 58Ni16O 60Ni16O 61Ni16O 62Ni16O 64Ni16O C 58Ni17O 60Ni17O 58Ni18O 60Ni18O 62Ni18O IsoNiO(11)=IsoNi(11)*IsoO(11) IsoNiO(12)=IsoNi(12)*IsoO(11) IsoNiO(13)=IsoNi(13)*IsoO(11) IsoNiO(14)=IsoNi(14)*IsoO(11) IsoNiO(15)=IsoNi(15)*IsoO(11) IsoNiO(16)=IsoNi(11)*IsoO(12) IsoNiO(17)=IsoNi(12)*IsoO(12) IsoNiO(18)=IsoNi(11)*IsoO(13) IsoNiO(19)=IsoNi(12)*IsoO(13) IsoNiO(20)=IsoNi(14)*IsoO(13) C C 63Cu16O 65Cu16O 63Cu17O 65Cu17O 63Cu18O 65Cu18O IsoCuO(11)=IsoCu(11)*IsoO(11) IsoCuO(12)=IsoCu(12)*IsoO(11) IsoCuO(13)=IsoCu(11)*IsoO(12) IsoCuO(14)=IsoCu(12)*IsoO(12) IsoCuO(15)=IsoCu(11)*IsoO(13) IsoCuO(16)=IsoCu(12)*IsoO(13) C C 70Ge16O 72Ge16O 73Ge16O 74Ge16O 76Ge16O C 70Ge18O 72Ge18O 73Ge18O 74Ge18O 76Ge18O IsoGeO(11)=IsoGe(11)*IsoO(11) IsoGeO(12)=IsoGe(12)*IsoO(11) IsoGeO(13)=IsoGe(13)*IsoO(11) IsoGeO(14)=IsoGe(14)*IsoO(11) IsoGeO(15)=IsoGe(15)*IsoO(11) IsoGeO(16)=IsoGe(11)*IsoO(12) IsoGeO(17)=IsoGe(12)*IsoO(12) IsoGeO(18)=IsoGe(13)*IsoO(12) IsoGeO(19)=IsoGe(14)*IsoO(12) IsoGeO(20)=IsoGe(15)*IsoO(12) C C 84Sr16O 86Sr16O 87Sr16O 88Sr16O C 86Sr17O 87Sr17O 88Sr17O 86Sr18O 87Sr18O 88Sr18O IsoSrO(11)=IsoSr(11)*IsoO(11) IsoSrO(12)=IsoSr(12)*IsoO(11) IsoSrO(13)=IsoSr(13)*IsoO(11) IsoSrO(14)=IsoSr(14)*IsoO(11) IsoSrO(15)=IsoSr(12)*IsoO(12) IsoSrO(16)=IsoSr(13)*IsoO(12) IsoSrO(17)=IsoSr(14)*IsoO(13) IsoSrO(18)=IsoSr(12)*IsoO(13) IsoSrO(19)=IsoSr(13)*IsoO(13) IsoSrO(20)=IsoSr(14)*IsoO(13) C C 89Y16O 89Y17O 89Y18O IsoYO(11)=IsoY(11)*IsoO(11) IsoYO(12)=IsoY(11)*IsoO(12) IsoYO(13)=IsoY(11)*IsoO(13) C C 90Zr16O 91Zr16O 92Zr16O 94Zr16O 96Zr16O C 90Zr17O 90Zr18O 91Zr18O 92Zr18O 94Zr18O IsoZrO(11)=IsoZr(11)*IsoO(11) IsoZrO(12)=IsoZr(12)*IsoO(11) IsoZrO(13)=IsoZr(13)*IsoO(11) IsoZrO(14)=IsoZr(14)*IsoO(11) IsoZrO(15)=IsoZr(15)*IsoO(11) IsoZrO(16)=IsoZr(11)*IsoO(12) IsoZrO(17)=IsoZr(11)*IsoO(13) IsoZrO(18)=IsoZr(12)*IsoO(13) IsoZrO(19)=IsoZr(13)*IsoO(13) IsoZrO(20)=IsoZr(14)*IsoO(13) C C 93Nb16O 93Nb17O 93Nb18O IsoNbO(11)=IsoNb(11)*IsoO(11) IsoNbO(12)=IsoNb(11)*IsoO(12) IsoNbO(13)=IsoNb(11)*IsoO(13) C C 3He2 3He4He 4He2 IsoHe2(11)=IsoHe(11)**2 IsoHe2(12)=IsoHe(11)*IsoHe(12)*2. IsoHe2(13)=IsoHe(12)**2 C C 28Si28Si 28Si29Si 28Si30Si 29Si29Si 29Si30Si 30Si30Si IsoSi2(11)=IsoSi(11)**2 c 19may05 error found by John Lester c IsoSi2(12)=IsoSi(11)*IsoSi(13)*2. IsoSi2(12)=IsoSi(11)*IsoSi(12)*2. IsoSi2(13)=IsoSi(11)*IsoSi(13)*2. IsoSi2(14)=IsoSi(12)**2 IsoSi2(15)=IsoSi(12)*IsoSi(13)*2. IsoSi2(16)=IsoSi(13)**2 C C 28Si32S 28Si33S 28Si34S 28Si36S 29Si32S C 29Si33S 29Si34S 30Si32S 30Si33S 30Si34S IsoSiS(11)=IsoSi(11)*IsoS(11) IsoSiS(12)=IsoSi(11)*IsoS(12) IsoSiS(13)=IsoSi(11)*IsoS(13) IsoSiS(14)=IsoSi(11)*IsoS(14) IsoSiS(15)=IsoSi(12)*IsoS(11) IsoSiS(16)=IsoSi(12)*IsoS(12) IsoSiS(17)=IsoSi(12)*IsoS(13) IsoSiS(18)=IsoSi(13)*IsoS(11) IsoSiS(19)=IsoSi(13)*IsoS(12) IsoSiS(20)=IsoSi(13)*IsoS(13) C C 32S32S 32S33S 32S34S 32S36S 33S33S 33S34S 33S36S 34S34S 34S36S 36S36S IsoS2(11)=IsoS(11)**2 c 19may2005 error by by John Lester c IsoS2(12)=IsoS(11)*IsoS(12) c IsoS2(13)=IsoS(11)*IsoS(13) c IsoS2(14)=IsoS(11)*IsoS(14) c IsoS2(15)=IsoS(12)**2 c IsoS2(16)=IsoS(12)*IsoS(13) c IsoS2(17)=IsoS(12)*IsoS(14) c IsoS2(18)=IsoS(13)**2 c IsoS2(19)=IsoS(13)*IsoS(14) IsoS2(12)=IsoS(11)*IsoS(12)*2. IsoS2(13)=IsoS(11)*IsoS(13)*2. IsoS2(14)=IsoS(11)*IsoS(14)*2. IsoS2(15)=IsoS(12)**2 IsoS2(16)=IsoS(12)*IsoS(13)*2. IsoS2(17)=IsoS(12)*IsoS(14)*2. IsoS2(18)=IsoS(13)**2 IsoS2(19)=IsoS(13)*IsoS(14)*2. IsoS2(20)=IsoS(14)**2 C C 46Ti32S 47Ti32S 48Ti32S 49Ti32S 50Ti32S C 48Ti33S 46Ti34S 47Ti34S 48Ti34S 49Ti34S IsoTiS(11)=IsoTi(11)*IsoS(11) IsoTiS(12)=IsoTi(12)*IsoS(11) IsoTiS(13)=IsoTi(13)*IsoS(11) IsoTiS(14)=IsoTi(14)*IsoS(11) IsoTiS(15)=IsoTi(15)*IsoS(11) IsoTiS(16)=IsoTi(13)*IsoS(12) IsoTiS(17)=IsoTi(11)*IsoS(13) IsoTiS(18)=IsoTi(12)*IsoS(13) IsoTiS(19)=IsoTi(13)*IsoS(13) IsoTiS(20)=IsoTi(14)*IsoS(13) C C 90Zr32S 91Zr32S 92Zr32S 94Zr32S 96Zr32S C 90Zr33S 90Zr34S 91Zr34S 92Zr34S 94Zr34S IsoZrS(11)=IsoZr(11)*IsoS(11) IsoZrS(12)=IsoZr(12)*IsoS(11) IsoZrS(13)=IsoZr(13)*IsoS(11) IsoZrS(14)=IsoZr(14)*IsoS(11) IsoZrS(15)=IsoZr(15)*IsoS(11) IsoZrS(16)=IsoZr(11)*IsoS(12) IsoZrS(17)=IsoZr(11)*IsoS(13) IsoZrS(18)=IsoZr(12)*IsoS(13) IsoZrS(19)=IsoZr(13)*IsoS(13) IsoZrS(20)=IsoZr(14)*IsoS(13) C C H216O H217O H218O HD16O HD17O HD18O D216O D217O D218O IsoH2O(11)=IsoH(11)**2*IsoO(11) IsoH2O(12)=IsoH(11)**2*IsoO(12) IsoH2O(13)=IsoH(11)**2*IsoO(13) IsoH2O(14)=IsoH(11)*IsoH(12)*IsoO(11)*2. IsoH2O(15)=IsoH(11)*IsoH(12)*IsoO(12)*2. IsoH2O(16)=IsoH(11)*IsoH(12)*IsoO(13)*2. c 19may2005 error found by John Lester c IsoH2O(17)=IsoH(12)*IsoO(11) c IsoH2O(18)=IsoH(12)*IsoO(12) c IsoH2O(19)=IsoH(12)*IsoO(13) IsoH2O(17)=IsoH(12)**2*IsoO(11) IsoH2O(18)=IsoH(12)**2*IsoO(12) IsoH2O(19)=IsoH(12)**2*IsoO(13) C C 12C16O2 13C16O2 12C16O17O 13C16O17O 12C16O18O C 13C16O18O 12C17O18O 12C17O2 12C18O2 13C18O2 IsoCO2(11)=IsoC(11)*IsoO(11)**2 IsoCO2(12)=IsoC(12)*IsoO(11)**2 IsoCO2(13)=IsoC(11)*IsoO(11)*IsoO(12)*2. IsoCO2(14)=IsoC(12)*IsoO(11)*IsoO(12)*2. IsoCO2(15)=IsoC(11)*IsoO(11)*IsoO(13)*2. IsoCO2(16)=IsoC(12)*IsoO(11)*IsoO(13)*2. IsoCO2(17)=IsoC(11)*IsoO(12)*IsoO(13)*2. IsoCO2(18)=IsoC(11)*IsoO(12)**2 IsoCO2(19)=IsoC(11)*IsoO(13)**2 IsoCO2(20)=IsoC(12)*IsoO(13)**2 C C H3+ H2D+ HD2+ D3+ IsoH3plus(11)=IsoH(11)**3 IsoH3plus(12)=IsoH(11)**2*IsoH(12) IsoH3plus(13)=IsoH(11)*IsoH(12) IsoH3plus(14)=IsoH(12)**3 C C PUT THE REST OF TRIATOMICS HERE C C C DO 2 I=1,20 IsoH2plus(I)=IsoH2(I) IsoHeHplus(I)=IsoHeH(I) IsoLiHplus(I)=IsoLiH(I) IsoCHplus(I)=IsoCH(I) IsoNHplus(I)=IsoNH(I) IsoOHplus(I)=IsoOH(I) Iso_HFplus(I)=Iso_HF(I) IsoNeHplus(I)=IsoNeH(I) IsoMgHplus(I)=IsoMgH(I) IsoAlHplus(I)=IsoAlH(I) IsoSiHplus(I)=IsoSiH(I) IsoPHplus(I)=IsoPH(I) IsoSHplus(I)=IsoSH(I) IsoHClplus(I)=IsoHCl(I) IsoHe2plus(I)=IsoHe2(I) IsoCaHplus(I)=IsoCaH(I) IsoC2plus(I)=IsoC2(I) Iso_NOplus(I)=Iso_NO(I) IsoNSplus(i)=IsoNS(I) IsoN2plus(I)=IsoN2(I) IsoO2plus(I)=IsoO2(I) IsoS2plus(I)=IsoS2(I) Iso_COplus(I)=Iso_CO(I) IsoCNplus(I)=IsoCN(I) IsoSiOplus(I)=IsoSiO(I) Iso_POplus(I)=Iso_PO(I) IsoSOplus(I)=IsoSO(I) IsoHminus(I)=IsoH(I) IsoLiminus(I)=IsoLi(I) IsoCminus(I)=IsoC(I) IsoOminus(I)=IsoO(I) IsoFminus(I)=IsoF(I) IsoNaminus(I)=IsoNa(I) IsoAlminus(I)=IsoAl(I) IsoSiminus(I)=IsoSi(I) IsoPminus(I)=IsoP(I) IsoSminus(I)=IsoS(I) IsoClminus(I)=IsoCl(I) IsoKminus(I)=IsoK(I) IsoScminus(I)=IsoSc(I) IsoTiminus(I)=IsoTi(I) IsoVminus(I)=IsoV(I) IsoCrminus(I)=IsoCr(I) IsoFeminus(I)=IsoFe(I) IsoCominus(I)=IsoCo(I) IsoNiminus(I)=IsoNi(I) IsoCuminus(I)=IsoCu(I) IsoC2minus(I)=IsoC2(I) IsoCHminus(I)=IsoCH(I) IsoCNminus(I)=IsoCN(I) Iso_COminus(I)=Iso_CO(I) IsoN2minus(I)=IsoN2(I) Iso_NOminus(I)=Iso_NO(I) IsoOHminus(I)=IsoOH(I) IsoO2minus(I)=IsoO2(I) IsoS2minus(I)=IsoS2(I) IsoSHminus(I)=IsoSH(I) 2 CONTINUE C N=0 DO 3 IZ=1,30 DO 3 ION=1,IZ+1 N=N+1 DO 3 I=1,10 ISOTOPE(I,1,N)=ISOION(I,IZ) 3 ISOTOPE(I,2,N)=ISOION(I+10,IZ) DO 4 IZ=31,99 DO 4 ION=1,5 N=N+1 DO 4 I=1,10 ISOTOPE(I,1,N)=ISOION(I,IZ) 4 ISOTOPE(I,2,N)=ISOION(I+10,IZ) DO 5 IZ=100,265 N=N+1 DO 5 I=1,10 ISOTOPE(I,1,N)=ISOION(I,IZ) 5 ISOTOPE(I,2,N)=ISOION(I+10,IZ) C DO 6 IZ=1,265 C 6 print 77,iz,(isoion(i,iz), i=1,10) C 77 format(i5,10f10.1) C DO 7 N=1,MION C 7 PRINT 77,N,(ISOTOPE(I,1,N),I=1,10) RETURN END SUBROUTINE KAPCONT IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /FRESET/WAVESET(30000),RCOSET(30000),NULO,NUHI,NUMNU,NUSTEP COMMON /IFOP/IFOP(20) COMMON /OPTOT/ACONT(kw),SCONT(kw),ALINE(kw),SLINE(kw),SIGMAC(kw), 1 SIGMAL(kw) COMMON /RHOX/RHOX(kw),NRHOX COMMON /TABCONT/TABCONT(kw,344),WAVETAB(344),IWAVETAB(344) REAL*4 TABCONT COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP DIMENSION WBIG1(152),WBIG2(152),WBIG3(39) EQUIVALENCE (WAVETAB(1),WBIG1(1)),(WAVETAB(153),WBIG2(1)) EQUIVALENCE (WAVETAB(305),WBIG3(1)) DATA WBIG1/ 1 9.09, 9.35, 9.61, 9.77, 9.96, 10.20, 10.38, 10.56, 2 10.77, 11.04, 11.40, 11.78, 12.13, 12.48, 12.71, 12.84, 3 13.05, 13.24, 13.39, 13.66, 13.98, 14.33, 14.72, 15.10, 4 15.52, 15.88, 16.20, 16.60, 17.03, 17.34, 17.68, 18.02, 5 18.17, 18.61, 19.10, 19.39, 19.84, 20.18, 20.50, 21.05, 6 21.62, 21.98, 22.30, 22.68, 23.00, 23.40, 24.00, 24.65, 7 25.24, 25.68, 26.00, 26.40, 26.85, 27.35, 27.85, 28.40, 8 29.0, 29.6, 30.1, 30.8, 31.8, 32.8, 33.8, 34.8, 9 35.7, 36.6, 37.5, 38.5, 39.5, 40.5, 41.4, 42.2, A 43.0, 44.1, 45.1, 46.0, 47.0, 48.0, 49.0, 50.0, 1 50.6, 51.4, 53.0, 55.0, 56.7, 58.5, 60.5, 62.5, 2 64.5, 66.3, 68.0, 70.0, 71.6, 73.0, 75.0, 77.0, 3 79.0, 81.0, 83.0, 85.0, 87.0, 89.0, 90.6, 92.6, 4 96.0, 100.0, 104.0, 108.0, 111.5, 114.5, 118.0, 122.0, 5 126.0, 130.0, 134.0, 138.0, 142.0, 146.0, 150.0, 154.0, 6 160.0, 165.0, 169.0, 173.0, 177.5, 182.0, 186.0, 190.5, 7 195.0, 200.0, 204.5, 208.5, 212.5, 217.5, 222.5, 227.5, 8 232.5, 237.5, 242.5, 248.0, 253.0, 257.5, 262.5, 267.5, 9 272.5, 277.5, 282.5, 287.5, 295.0, 305.0, 315.0, 325.0/ DATA WBIG2/ 1 335.0, 345.0, 355.0, 362.0, 367.0, 375.0, 385.0, 395.0, 2 405.0, 415.0, 425.0, 435.0, 455.0, 465.0, 475.0, 485.0, 3 495.0, 505.0, 515.0, 525.0, 535.0, 545.0, 555.0, 565.0, 4 575.0, 585.0, 595.0, 605.0, 615.0, 625.0, 635.0, 645.0, 5 655.0, 665.0, 675.0, 685.0, 695.0, 705.0, 715.0, 725.0, 6 735.0, 745.0, 755.0, 765.0, 775.0, 785.0, 795.0, 805.0, 7 815.0, 825.0, 835.0, 845.0, 855.0, 865.0, 875.0, 885.0, 8 895.0, 905.0, 915.0, 925.0, 935.0, 945.0, 955.0, 965.0, 9 975.0, 985.0, 995.0, 1012.5, 1037.5, 1062.5, 1087.5, 1112.5, A 1137.5, 1162.5, 1187.5, 1212.5, 1237.5, 1262.5, 1287.5, 1312.5, 1 1337.5, 1362.5, 1387.5, 1412.5, 1442.0, 1467.0, 1487.5, 1512.5, 2 1537.5, 1562.5, 1587.5, 1620.0, 1660.0, 1700.0, 1740.0, 1780.0, 3 1820., 1860., 1900., 1940., 1980., 2025., 2075., 2125., 4 2175., 2225., 2265., 2290., 2325., 2375., 2425., 2475., 5 2525., 2575., 2625., 2675., 2725., 2775., 2825., 2875., 6 2925., 2975., 3025., 3075., 3125., 3175., 3240., 3340., 7 3450., 3550., 3650., 3750., 3850., 3950., 4050., 4150., 8 4250., 4350., 4450., 4550., 4650., 4750., 4850., 4950., 9 5050., 5150., 5250., 5350., 5450., 5550., 5650., 5750./ DATA WBIG3/ 1 5850., 5950., 6050., 6150., 6250., 6350., 6500., 6700., 2 6900., 7100., 7300., 7500., 7700., 7900., 8100., 8300., 3 8500., 8700., 8900., 9100., 9300., 9500., 9700., 9900., 4 10000., 20000., 40000., 60000., 80000.,100000.,120000.,140000., 5160000.,200000.,240000.,280000.,320000.,360000.,400000/ RATIOLG=LOG(1.D0+1.D0/2000000.D0) IWAVETAB(344)=2**30 DO 25 NU=1,343 WAVE=WAVETAB(NU) IWAVETAB(NU)=DLOG(WAVE)/RATIOLG+.5 FREQ=2.99792458D17/WAVETAB(NU) WAVENO=1.D7/WAVETAB(NU) FREQLG=DLOG(FREQ) DO 20 J=1,NRHOX ACONT(J)=1.E10 SCONT(J)=0. EHVKT(J)=EXP(-FREQ*HKT(J)) STIM(J)=1.-EHVKT(J) FREQ15=FREQ/1.E15 20 BNU(J)=1.47439E-2*FREQ15**3*EHVKT(J)/STIM(J) N=0 IF(WAVE.GT.WAVESET(NULO))CALL KAPP(N,NSTEPS,STEPWT) DO 25 J=1,NRHOX TABCONT(J,NU)=(ACONT(J)+SIGMAC(J))*.001/STIM(J) 25 CONTINUE DO 250 J=1,NRHOX 250 TABCONT(J,344)=TABCONT(J,343) WAVETAB(344)=WAVETAB(343) DO 30 NU=1,343,10 NU9=MIN(NU+9,343) WRITE(6,26)(WAVETAB(N),N=NU,NU9) 26 FORMAT(5X,10F12.2) DO 27 J=1,NRHOX 27 WRITE(6,28)J,(TABCONT(J,N),N=NU,NU9) 28 FORMAT(I5,1P10E12.3) 30 CONTINUE RETURN END SUBROUTINE PRETABLOG REAL*4 TABLOG COMMON /TABLOG/TABLOG(32768) DO 1 I=1,32768 1 TABLOG(I)=10.**((I-16384)*.001) RETURN END SUBROUTINE SELECTLINES IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) COMMON /ABROSS/ABROSS(kw),TAUROS(kw) COMMON /ABTOT/ABTOT(kw),ALPHA(kw) COMMON /CONV/DLTDLP(kw),HEATCP(kw),DLRDLT(kw),VELSND(kw), 1 GRDADB(kw),HSCALE(kw),FLXCNV(kw),VCONV(kw),MIXLTH, 2 OVERWT,FLXCNV0(kw),FLXCNV1(kw),IFCONV REAL*8 MIXLTH COMMON /DEPART/BHYD(kw,6),BMIN(kw),NLTEON COMMON /ELEM/ABUND(99),ATMASS(99),YABUND(99),ELEM(99) CHARACTER*2 ELEM COMMON /EDENS/EDENS(kw),IFEDNS COMMON /FILENAME/FILENAME CHARACTER*60 FILENAME COMMON /FLUX/ FLUX,FLXERR(kw),FLXDRV(kw),FLXRAD(kw) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /FRESET/WAVESET(30000),RCOSET(30000),NULO,NUHI,NUMNU,NUSTEP COMMON /HEIGHT/HEIGHT(kw) COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,IFMOL,IFREADLINES COMMON /IFOP/IFOP(20) COMMON /ITER/ ITER,IFPRNT(60),IFPNCH(60),NUMITS COMMON /JUNK/TITLE(74),FREQID(6),WLTE,XSCALE,INPUTDATA COMMON /MUS/ANGLE(20),SURFI(20),NMU COMMON /OPS/AHYD(kw),AH2P(kw),AHMIN(kw),SIGH(kw),AHE1(kw), 1 AHE2(kw),AHEMIN(kw),SIGHE(kw),ACOOL(kw),ALUKE(kw),AHOT(kw), 2 SIGEL(kw),SIGH2(kw),AHLINE(kw),ALINES(kw),SIGLIN(kw), 3 AXLINE(kw),SIGXL(kw),AXCONT(kw),SIGX(kw),SHYD(kw), 4 SHMIN(kw),SHLINE(kw),SXLINE(kw),SXCONT(kw) COMMON /OPTOT/ACONT(kw),SCONT(kw),ALINE(kw),SLINE(kw),SIGMAC(kw), 1 SIGMAL(kw) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TABCONT/TABCONT(kw,344),WAVETAB(344),IWAVETAB(344) COMMON /TABLOG/TABLOG(32768) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, 1 IFTURB COMMON /WAVEY/WBEGIN,DELTAW,IFWAVE COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XLINES/XNFDOPMAX(mion,344) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) COMMON /XNFDOP/XNFDOP(kw,mion),DOPPLE(kw,mion) REAL*4 XNFDOP,DOPPLE,XNFDOPMAX,TABCONT,TABLOG INTEGER*2 IELION,IELO,IGFLOG,IGR,IGS,IGW COMMON /IIIIIII/IWL,IELION,IELO,IGFLOG,IGR,IGS,IGW INTEGER*4 IIIIIII(4) EQUIVALENCE (IWL,IIIIIII(1)) DIMENSION MOLCODES(31),ISOX(31),NALL(99) DATA MOLCODES/ 1 8410, 8460, 8461, 8470, 8471, 8480, 8481, 8482, 8510, 8511, 2 8512, 8530, 8531, 8532, 8680, 8681, 8682, 8690, 8691, 8692, 3 8693, 8700, 8701, 8702, 8703, 8704, 8705, 8890, 8891, 8892, 8896/ DATA NALL/99*0/ C DO 575 NU=1,344 DO 575 NELION=1,MION XNFDOPMAX(NELION,NU)=0. DO 575 J=1,NRHOX 575 XNFDOPMAX(NELION,NU)=MAX(XNFDOPMAX(NELION,NU), 1 XNFDOP(J,NELION)/TABCONT(J,NU)) C PRINT 5554,WAVETAB(100) C 5554 FORMAT(F12.2) C DO 5556 NELION=1,MION C 5556 PRINT 5555,NELION,XNFDOPMAX(NELION,100) C 5555 FORMAT(I5,1PE12.3) C N12=0 N22=0 N32=0 N42=0 N52=0 NU=1 C OPEN(UNIT=18,TYPE='NEW',FORM='UNFORMATTED', C 1RECORDTYPE='FIXED',RECL=4) C C LOWLINES OPEN(UNIT=12,TYPE='NEW',FORM='UNFORMATTED', 1RECORDTYPE='FIXED',RECL=4) OPEN(UNIT=11,TYPE='OLD',FORM='UNFORMATTED',SHARED,READONLY, 1RECORDTYPE='FIXED',RECL=4,ERR=669) DO 580 LINE=1,50000000 READ(11,END=581)IIIIIII IF(MOD(LINE,100000).EQ.1) 1WRITE(6,8889)LINE,IWL,IELION,IELO,IGFLOG,IGR,IGS,IGW 8889 FORMAT(8I15) C READ(11)IWL,IELION,IELO,IGFLOG,IGR,IGS,IGW C WRITE(12)IWL,IELION,IELO,IGFLOG,IGR,IGS,IGW 570 IF(IWL.LT.IWAVETAB(NU))GO TO 571 C PRINT 8880,IWL,LINE,NU,IWAVETAB(NU) FREQ=2.99792458E17/WAVETAB(NU) NU=NU+1 GO TO 570 C LINECEN=.026538/1.77245*GF*EXP(-ELO/HCKT)*STIM*XNFP/RHO/DOPPLE/FREQ C WLVAC=EXP(IWL*RATIOLG) C GF=TABLOG(IGFLOG) 571 NELION=ABS(IELION/10) IF(XNFDOPMAX(NELION,NU).EQ.0)GO TO 580 CENRATIO=.026538/1.77245*TABLOG(IGFLOG)*XNFDOPMAX(NELION,NU)/FREQ IF(CENRATIO.LT.1.)GO TO 580 IF(CENRATIO*EXP(-TABLOG(IELO)*HCKT(NRHOX)).LT.1.)GO TO 580 WRITE(12)IIIIIII IF(MOD(LINE,100000).EQ.1) 1WRITE(6,8889)LINE,IWL,IELION,IELO,IGFLOG,IGR,IGS,IGW N12=N12+1 580 CONTINUE 581 CONTINUE WRITE(6,8889)LINE,IWL,IELION,IELO,IGFLOG,IGR,IGS,IGW PRINT 8881,N12 8881 FORMAT(I12,' LINES FROM LOWLINES') CLOSE(UNIT=11) C C HILINES 669 OPEN(UNIT=21,TYPE='OLD',FORM='UNFORMATTED',SHARED,READONLY, 1RECORDTYPE='FIXED',RECL=4,ERR=769) NU=1 DO 680 LINE=1,50000000 READ(21,END=681)IIIIIII 670 IF(IWL.LT.IWAVETAB(NU))GO TO 671 FREQ=2.99792458E17/WAVETAB(NU) NU=NU+1 GO TO 670 671 NELION=ABS(IELION/10) IF(XNFDOPMAX(NELION,NU).EQ.0)GO TO 680 CENRATIO=.026538/1.77245*TABLOG(IGFLOG)*XNFDOPMAX(NELION,NU)/FREQ IF(CENRATIO.LT.1.)GO TO 680 IF(CENRATIO*EXP(-TABLOG(IELO)*HCKT(NRHOX)).LT.1.)GO TO 680 WRITE(12)IIIIIII IF(MOD(LINE,100000).EQ.1) 1WRITE(6,8889)LINE,IWL,IELION,IELO,IGFLOG,IGR,IGS,IGW N22=N22+1 680 CONTINUE 681 CONTINUE WRITE(6,8889)LINE,IWL,IELION,IELO,IGFLOG,IGR,IGS,IGW PRINT 8882,N22 8882 FORMAT(I12,' LINES FROM HILINES') CLOSE(UNIT=21) C C DIATOMICS 769 OPEN(UNIT=31,TYPE='OLD',FORM='UNFORMATTED',SHARED,READONLY, 1RECORDTYPE='FIXED',RECL=4,ERR=869) NU=1 C H2 ISOX(01)=-0 C 12CH ISOX(02)=-005 C 13CH ISOX(03)=-1955 C 14NH ISOX(04)=-002 C 15NH ISOX(05)=-2444 C 16OH ISOX(06)=-001 C 17OH ISOX(07)=-3398 C 18OH ISOX(08)=-2690 C 24MgH ISOX(09)=-105 C 25MgH ISOX(10)=-996 C 26MgH ISOX(11)=-947 C 28SiH ISOX(12)=-035 C 29SiH ISOX(13)=-1331 C 30SiH ISOX(14)=-1516 C 12C12C ISOX(15)=-005-005 C 12C13C ISOX(16)=-005-1955 C 13C13C ISOX(17)=-1955-1955 C 12C14N ISOX(18)=-005-002 C 13C14N ISOX(19)=-1955-002 C 12C15N ISOX(20)=-005-2444 C 13C15N ISOX(21)=-1955-2444 C 12C16O ISOX(22)=-005-001 C 13C16O ISOX(23)=-1955-001 C 12C17O ISOX(24)=-005-3398 C 13C17O ISOX(25)=-1955-3398 C 12C18O ISOX(26)=-005-2690 C 13C18O ISOX(27)=-1955-2690 C 28Si16O ISOX(28)=-001-035 C 29SI16O ISOX(29)=-001-1331 C 30SI16O ISOX(30)=-001-1516 C 28Si18O ISOX(31)=-2690-035 MOLCODEOLD=0 DO 780 LINE=1,50000000 READ(31,END=781)IIIIIII 770 IF(IWL.LT.IWAVETAB(NU))GO TO 771 FREQ=2.99792458E17/WAVETAB(NU) NU=NU+1 GO TO 770 771 MOLCODE=ABS(IELION) KGFLOG=IGFLOG C GAMMAS=0 IGS=1 IF(MOLCODE.EQ.MOLCODEOLD)GO TO 8 MOLCODEOLD=MOLCODE DO 7 IMOL=1,31 IF(MOLCODE.EQ.MOLCODES(IMOL))GO TO 8 7 CONTINUE PRINT 9,N,IIIIIII 9 FORMAT(9I12) CALL ABORT 8 IGFLOG=MAX(KGFLOG+ISOX(IMOL),1) NELION=ABS(IELION/10) IF(XNFDOPMAX(NELION,NU).EQ.0)GO TO 780 CENRATIO=.026538/1.77245*TABLOG(IGFLOG)*XNFDOPMAX(NELION,NU)/FREQ IF(CENRATIO.LT.1.)GO TO 780 IF(CENRATIO*EXP(-TABLOG(IELO)*HCKT(NRHOX)).LT.1.)GO TO 780 WRITE(12)IIIIIII IF(MOD(LINE,100000).EQ.1) 1WRITE(6,8889)LINE,IWL,IELION,IELO,IGFLOG,IGR,IGS,IGW N32=N32+1 780 CONTINUE 781 CONTINUE WRITE(6,8889)LINE,IWL,IELION,IELO,IGFLOG,IGR,IGS,IGW PRINT 8883,N32 8883 FORMAT(I12,' LINES FROM DIATOMICS') CLOSE(UNIT=31) C C TIO 869 OPEN(UNIT=41,TYPE='OLD',FORM='UNFORMATTED',SHARED,READONLY, 1RECORDTYPE='FIXED',BLOCKSIZE=8000,RECL=4,ERR=1869) NU=1 DO 880 LINE=1,50000000 READ(41,END=881)IIIIIII 870 IF(IWL.LT.IWAVETAB(NU))GO TO 871 FREQ=2.99792458E17/WAVETAB(NU) NU=NU+1 GO TO 870 871 KGFLOG=IGFLOG ISO=ABS(IELION)-8949 GO TO (811,812,813,814,815),ISO C 46TiO 811 IGFLOG=MAX(KGFLOG-1101,1) GO TO 816 C 47TiO 812 IGFLOG=MAX(KGFLOG-1138,1) GO TO 816 C 48TiO 813 IGFLOG=MAX(KGFLOG-131,1) GO TO 816 C 49TiO 814 IGFLOG=MAX(KGFLOG-1259,1) GO TO 816 C 50TiO 815 IGFLOG=MAX(KGFLOG-1272,1) C 816 NELION=ABS(IELION/10) 816 NELION=895 IF(XNFDOPMAX(NELION,NU).EQ.0)GO TO 880 CENRATIO=.026538/1.77245*TABLOG(IGFLOG)*XNFDOPMAX(NELION,NU)/FREQ IF(CENRATIO.LT.1.)GO TO 880 IF(CENRATIO*EXP(-TABLOG(IELO)*HCKT(NRHOX)).LT.1.)GO TO 880 C GAMMAS=0. IGS=1 C LOG GAMMAW=-7 IGW=9384 WRITE(12)IIIIIII IF(MOD(LINE,100000).EQ.1) 1WRITE(6,8889)LINE,IWL,IELION,IELO,IGFLOG,IGR,IGS,IGW N42=N42+1 880 CONTINUE 881 CONTINUE WRITE(6,8889)LINE,IWL,IELION,IELO,IGFLOG,IGR,IGS,IGW PRINT 8884,N42 8884 FORMAT(I12,' LINES FROM TIOLINES') CLOSE(UNIT=41) C C H2O 1869 OPEN(UNIT=51,TYPE='OLD',FORM='UNFORMATTED',SHARED,READONLY, 1RECORDTYPE='FIXED',RECL=2,ERR=2869) NU=1 DO 1880 LINE=1,65912356 READ(51)IWL,IELO,IGFLOG 1870 IF(IWL.LT.IWAVETAB(NU))GO TO 1871 FREQ=2.99792458E17/WAVETAB(NU) C GAMMAR=2.223E13/WLVAC**2*.001 GAMMAR=2.474E-22*FREQ**2*.001 GR=LOG10(GAMMAR) IGR=GR*1000.+16384.5 NU=NU+1 GO TO 1870 1871 ISO=1 IF(IELO.GT.0.AND.IGFLOG.GT.0)GO TO 1819 ISO=2 IF(IELO.GT.0)GO TO 1819 ISO=3 IF(IGFLOG.GT.0)GO TO 1819 ISO=4 1819 IELION=9399+ISO IELION=-IELION ELO=ABS(IELO) KGFLOG=ABS(IGFLOG) GO TO (1811,1812,1813,1814),ISO C 1H1H16O 1811 IGFLOG=MAX(KGFLOG-001,1) GO TO 1816 C 1H1H17O 1812 IGFLOG=MAX(KGFLOG-3398,1) GO TO 1816 C 1H1H18O 1813 IGFLOG=MAX(KGFLOG-2690,1) GO TO 1816 C 1H2H16O 1814 IGFLOG=MAX(KGFLOG-5000,1) C 816 NELION=ABS(IELION/10) 1816 NELION=940 IF(XNFDOPMAX(NELION,NU).EQ.0)GO TO 1880 CENRATIO=.026538/1.77245*TABLOG(IGFLOG)*XNFDOPMAX(NELION,NU)/FREQ IF(CENRATIO.LT.1.)GO TO 1880 IF(CENRATIO*EXP(-ELO*HCKT(NRHOX)).LT.1.)GO TO 1880 IELO=LOG10(ELO)*1000.+16384.5 IGS=1 IGW=9384 C GAMMAS=0. IGS=1 C LOG GAMMAW=-7 IGW=9384 WRITE(12)IIIIIII IF(MOD(LINE,100000).EQ.1) 1WRITE(6,8889)LINE,IWL,IELION,IELO,IGFLOG,IGR,IGS,IGW N52=N52+1 1880 CONTINUE WRITE(6,8889)LINE,IWL,IELION,IELO,IGFLOG,IGR,IGS,IGW PRINT 1884,N52 1884 FORMAT(I12,' LINES FROM H2OFAST') CLOSE(UNIT=51) C C H3+ 2869 OPEN(UNIT=61,TYPE='OLD',FORM='UNFORMATTED',SHARED,READONLY, 1RECORDTYPE='FIXED',BLOCKSIZE=8000,RECL=4,ERR=1882) NU=1 DO 2880 LINE=1,50000000 READ(61,END=2881)IIIIIII 2870 IF(IWL.LT.IWAVETAB(NU))GO TO 2871 FREQ=2.99792458E17/WAVETAB(NU) NU=NU+1 GO TO 2870 2871 KGFLOG=IGFLOG 2815 IGFLOG=MAX(KGFLOG-1272,1) C2816 NELION=ABS(IELION/10) 2816 NELION=895 IF(XNFDOPMAX(NELION,NU).EQ.0)GO TO 2880 CENRATIO=.026538/1.77245*TABLOG(IGFLOG)*XNFDOPMAX(NELION,NU)/FREQ IF(CENRATIO.LT.1.)GO TO 2880 IF(CENRATIO*EXP(-TABLOG(IELO)*HCKT(NRHOX)).LT.1.)GO TO 2880 C GAMMAS=0. IGS=1 C LOG GAMMAW=-7 IGW=9384 WRITE(12)IIIIIII N62=N62+1 2880 CONTINUE 2881 CONTINUE PRINT 2884,N62 2884 FORMAT(I10,' LINES FROM H3PLUS') CLOSE(UNIT=61) C C1882 N18=N12+N22+N32+N42+N52+N62 C PRINT 8888,N18 1882 PRINT 8888,N12 8888 FORMAT(I12,' LINES TOTAL') C IF(N18.EQ.0)GO TO 999 C NALL(12)=N12 C NALL(22)=N22 C NALL(32)=N32 C NALL(42)=N42 C NALL(52)=N52 C DO 888 ITAPE=12,52,10 C IF(NALL(ITAPE).EQ.0)GO TO 888 C REWIND ITAPE C DO 883 I=1,NALL(ITAPE) C READ(ITAPE)IIIIIII C 883 WRITE(18)IIIIIII C CLOSE(UNIT=ITAPE,DISPOSE='DELETE') C 888 CONTINUE C CLOSE(UNIT=18) C TAPE18 MUST BE SORTED 999 CALL EXIT RETURN END FUNCTION MAP4(XOLD,FOLD,NOLD,XNEW,FNEW,NNEW) DIMENSION XOLD(1),FOLD(1),XNEW(1),FNEW(1) L=2 LL=0 DO 50 K=1,NNEW 10 IF(XNEW(K).LT.XOLD(L))GO TO 20 L=L+1 IF(L.GT.NOLD)GO TO 30 GO TO 10 20 IF(L.EQ.LL)GO TO 50 IF(L.EQ.2)GO TO 30 L1=L-1 IF(L.GT.LL+1.OR.L.EQ.3)GO TO 21 CBAC=CFOR BBAC=BFOR ABAC=AFOR IF(L.EQ.NOLD)GO TO 22 GO TO 25 21 L2=L-2 D=(FOLD(L1)-FOLD(L2))/(XOLD(L1)-XOLD(L2)) CBAC=FOLD(L)/((XOLD(L)-XOLD(L1))*(XOLD(L)-XOLD(L2)))+ 1(FOLD(L2)/(XOLD(L)-XOLD(L2))-FOLD(L1)/(XOLD(L)-XOLD(L1)))/ 2(XOLD(L1)-XOLD(L2)) BBAC=D-(XOLD(L1)+XOLD(L2))*CBAC ABAC=FOLD(L2)-XOLD(L2)*D+XOLD(L1)*XOLD(L2)*CBAC IF(L.LT.NOLD)GO TO 25 22 C=CBAC B=BBAC A=ABAC LL=L GO TO 50 25 D=(FOLD(L)-FOLD(L1))/(XOLD(L)-XOLD(L1)) CFOR=FOLD(L+1)/((XOLD(L+1)-XOLD(L))*(XOLD(L+1)-XOLD(L1)))+ 1(FOLD(L1)/(XOLD(L+1)-XOLD(L1))-FOLD(L)/(XOLD(L+1)-XOLD(L)))/ 2(XOLD(L)-XOLD(L1)) BFOR=D-(XOLD(L)+XOLD(L1))*CFOR AFOR=FOLD(L1)-XOLD(L1)*D+XOLD(L)*XOLD(L1)*CFOR WT=0. IF(ABS(CFOR).NE.0.)WT=ABS(CFOR)/(ABS(CFOR)+ABS(CBAC)) A=AFOR+WT*(ABAC-AFOR) B=BFOR+WT*(BBAC-BFOR) C=CFOR+WT*(CBAC-CFOR) LL=L GO TO 50 30 IF(L.EQ.LL)GO TO 50 L=AMIN0(NOLD,L) C=0. B=(FOLD(L)-FOLD(L-1))/(XOLD(L)-XOLD(L-1)) A=FOLD(L)-XOLD(L)*B LL=L 50 FNEW(K)=A+(B+C*XNEW(K))*XNEW(K) MAP4=LL-1 RETURN END SUBROUTINE TABVOIGT(VSTEPS,N) COMMON /H1TAB/H0TAB(2001),H1TAB(2001),H2TAB(2001) DIMENSION TABVI(81),TABH1(81) DATA TABVI/0.,.1,.2,.3,.4,.5,.6,.7,.8,.9,1.,1.1,1.2,1.3,1.4,1.5, 11.6,1.7,1.8,1.9,2.,2.1,2.2,2.3,2.4,2.5,2.6,2.7,2.8,2.9,3.,3.1,3.2, 2 3.3,3.4,3.5,3.6,3.7,3.8,3.9,4.0,4.2,4.4,4.6,4.8,5.0,5.2,5.4,5.6, 3 5.8,6.0,6.2,6.4,6.6,6.8,7.0,7.2,7.4,7.6,7.8,8.0,8.2,8.4,8.6,8.8, 4 9.0,9.2,9.4,9.6,9.8,10.0,10.2,10.4,10.6,10.8,11.0,11.2,11.4,11.6, 5 11.8,12.0/ DATA TABH1/-1.12838,-1.10596,-1.04048,-.93703,-.80346,-.64945, 1-.48552,-.32192,-.16772,-.03012,.08594,.17789,.24537,.28981, 2.31394,.32130,.31573,.30094,.28027,.25648,.231726,.207528,.184882, 3.164341,.146128,.130236,.116515,.104739,.094653,.086005,.078565, 4 .072129,.066526,.061615,.057281,.053430,.049988,.046894,.044098, 5 .041561,.039250,.035195,.031762,.028824,.026288,.024081,.022146, 6 .020441,.018929,.017582,.016375,.015291,.014312,.013426,.012620, 7 .0118860,.0112145,.0105990,.0100332,.0095119,.0090306,.0085852, 8 .0081722,.0077885,.0074314,.0070985,.0067875,.0064967,.0062243, 9 .0059688,.0057287,.0055030,.0052903,.0050898,.0049006,.0047217, T .0045526,.0043924,.0042405,.0040964,.0039595/ C PRETABULATE VOIGT FUNCTION C 100 STEPS PER DOPPLER WIDTH GIVES 2 PER CENT ACCURACY DO 1 I=1,N 1 H0TAB(I)=FLOAT(I-1)/VSTEPS CALL MAP4(TABVI,TABH1,81,H0TAB,H1TAB,N) DO 2 I=1,N VV=(FLOAT(I-1)/VSTEPS)**2 H0TAB(I)=EXP(-VV) 2 H2TAB(I)=H0TAB(I)-(VV+VV)*H0TAB(I) RETURN END SUBROUTINE XLINOP IMPLICIT REAL*4 (A-H,O-Z) PARAMETER (kw=72,mion=1006) PARAMETER (kw1=kw+1) REAL*8 ABUND,ATMASS,YABUND REAL*8 FREQ,FREQLG,EHVKT,STIM,BNU,WAVE,WAVENO REAL*8 RHOX,P,XNE,XNATOM,RHO,CHARGESQ REAL*8 VTURB,PTURB,TRBFDG,TRBCON,TRBPOW,TRBSND REAL*8 T,TKEV,TK,HKT,HCKT,TLOG REAL*8 XABUND,WTMOLE,XISO,AMASSISO,XRELATIVE REAL*8 WAVESET,RCOSET,RATIOLG,WLVAC REAL*8 XNF,XNFP,XNH2 REAL*8 WAVETAB COMMON /ELEM/ABUND(99),ATMASS(99),YABUND(99),ELEM(99) CHARACTER*2 ELEM COMMON /EXTAB/EXTAB(1001),EXTABF(1001),E1TAB(2000) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw),WAVE,WAVENO COMMON /FRESET/WAVESET(30000),RCOSET(30000),NULO,NUHI,NUMNU,NUSTEP COMMON /H1TAB/H0TAB(2001),H1TAB(2001),H2TAB(2001) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TABCONT/TABCONT(kw,344),WAVETAB(344),IWAVETAB(344) COMMON /TABLOG/TABLOG(32768) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, 1 IFTURB COMMON /XABUND/XABUND(kw,99),WTMOLE(kw),XRELATIVE(99) COMMON /XISO/XISO(10,mion),AMASSISO(10,mion) COMMON /XLINES/XLINES(kw,30000) COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) COMMON /XNFDOP/XNFDOP(kw,mion),DOPPLE(kw,mion) REAL*4 TXNXN(kw),BSTIM(kw),EMERGE(kw),XNE4(kw),HCKT4(kw) INTEGER*4 IFJ(kw1) REAL NSTARK,NDOPP,NMERGE EQUIVALENCE (GAMMAS,ASHORE),(GAMMAW,BSHORE) EQUIVALENCE (GF,G,CGF),(TYPE,NLAST),(GAMMAR,XSECT,GAUNT) INTEGER TYPE REAL*8 WCON,WMERGE,WSHIFT,CONTX DIMENSION BOLTH(kw,10),EH(10) DIMENSION CONTX(25,16) DATA EH/ 0., 82259.105, 97492.302,102823.893,105291.651, 1 106632.160,107440.444,107965.051,108324.720,108581.988/ DATA CONTX/ 1 109678.764,27419.659,12186.462,6854.871,4387.113, 1.00 2 3046.604,2238.320,1713.711,1354.044,1096.776,15*0., 3 198310.760,38454.691,32033.214,29223.753,27175.760, 2.00 4 15073.868,0.,0.,0.,0.,15*0., 5 438908.850,109726.529,48766.491,27430.925,17555.715, 2.01 6 12191.437,0.,0.,0.,0.,15*0., 7 90883.840,90867.420,90840.420,90820.420,90804.000, 6.00 8 90777.000,80691.180,80627.760,69235.820,69172.400,15*0., 9 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,15*0., 6.01 A 61671.020,39820.615,39800.556,39759.842,21*0., 12.00 1 25*0., 12.01 2 48278.370,48166.309,0.,0.,0.,0.,0.,0.,0.,0.,15*0., 13.00 3 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,15*0., 13.01 4 66035.000,65957.885,65811.843,65747.550,65670.435, 14.00 5 65524.393,59736.150,59448.700,50640.630,50553.180,15*0., 6 25*0., 14.01 7 25*0.,25*0., 20.00,01 8 25*0.,25*0., 8.,11. 9 25*0./ 5. DATA ITEMP1/0/ FASTEX(X)=EXTAB(INT(X)+1)*EXTABF(INT((X-REAL(INT(X)))*1000.+1.5)) RATIOLG=LOG(1.D0+1.D0/2000000.D0) DO 10 J=1,NRHOX TXNXN(J)=(XNF(J,1)+.42*XNF(J,3)+.85*XNF(J,841))*(T(J)/10000.)**.3 C C FOR NEUTRALS FOR IONS NSTARK=NSTARK*Z**.25 NDOPP=NDOPP*Z**(2./3.) C EMERGE=EMERGE*Z**2 C NSTARK=1194./XNE(J)**.125 C EMPIRICAL NSTARK=1600./XNE(J)**(2./15.) C NSTARK=NSTARK+10. C VDOPP=SQRT(2.*TK(K)/1.660E-24/28.+(VTURB(J)+TURBV)**2) C NDOPP=(3.289842E8*WLBEG/VDOPP)**(1./3.) C NMERGE=AMIN1(NSTARK,NDOPP) NMERGE=NSTARK XNE4(J)=XNE(J) HCKT4(J)=HCKT(J) DO 9 NBLO=1,10 9 BOLTH(J,NBLO)=EXP(-EH(NBLO)*HCKT4(J))*XNFDOP(J,1) 10 EMERGE(J)=109737.312/NMERGE**2 C REWIND 19 NUCONT=1 NU=1 DO 900 LINE=1,100000 READ(19,END=901)WLVAC,ELO,GF,NBLO,NBUP,NELION,TYPE,NCON,NELIONX, 1GAMMAR,GAMMAS,GAMMAW,IWL 7777 FORMAT(2F15.5) C IF(MOD(LINE,100000).EQ.1) C 1WRITE(6,8889)LINE,IWL,IELION,IELO,IGFLOG,IGR,IGS,IGW C 1GAMMAR,GAMMAS,GAMMAW,IWL 20 IF(IWL.LT.IWAVETAB(NUCONT))GO TO 22 C PRINT 8888,IWL,LINE,NU,IWAVETAB(NUCONT) 8888 FORMAT(8I15) NUCONT=NUCONT+1 GO TO 20 22 IF(WLVAC.LT.WAVESET(NU))GO TO 23 NU=NU+1 IF(NU.LT.NUMNU)GO TO 22 GO TO 901 23 IF(TYPE.EQ.2)GO TO 500 IF(TYPE.EQ.0)GO TO 200 IF(TYPE.EQ.-1)GO TO 600 IF(TYPE.EQ.1)GO TO 700 IF(TYPE.EQ.3)GO TO 300 C C MERGED CONTINUUM Z=1. IF(NELION.EQ.4)Z=2. WSHIFT=1.E7/(1.E7/WLVAC-109737.312*Z**2/FLOAT(NLAST**2)) XSECTG=GF PRINT 3333,LINE,NU,WLVAC,WAVESET(NU),CGF,ELO,GAMMAR,GAMMAS, 2 GAMMAW,NELION DO 191 J=1,NRHOX WMERGE=1.E7/(1.E7/WLVAC-EMERGE(J)*Z**2) WMAX=MAX(WMERGE,WSHIFT) CON=XSECTG*XNFP(J,NELION)*FASTEX(ELO*HCKT4(J))/RHO(J) DO 190 IW=NU,NU+1000 IF(WMAX.LT.WAVESET(IW))GO TO 191 190 XLINES(J,IW)=XLINES(J,IW)+CON 191 CONTINUE GO TO 900 C C NORMAL LINE 200 CONTINUE IF(MOD(LINE,1000).EQ.1) 1PRINT 3333,LINE,NU,WLVAC,WAVESET(NU),CGF,ELO,GAMMAR,GAMMAS, 2 GAMMAW,NELION 3333 FORMAT(2I10,2F12.6,1P5E12.3,I10) DO 280 J=8,NRHOX,8 IFJ(J+1)=0 CENTER=CGF*XNFDOP(J,NELION) IF(CENTER.LT.TABCONT(J,NUCONT))GO TO 280 CENTER=CENTER*FASTEX(ELO*HCKT4(J)) IF(CENTER.LT.TABCONT(J,NUCONT))GO TO 280 IFJ(J+1)=1 ADAMP=(GAMMAR+GAMMAS*XNE4(J)+GAMMAW*TXNXN(J))/DOPPLE(J,NELION) DOPWAVE=DOPPLE(J,NELION)*WLVAC WCON=0. IF(NCON.GT.10)NCON=0 IF(NCON.GT.0)WCON=1.E7/(CONTX(NCON,NELIONX)-EMERGE(J)) IF(WLVAC.LT.WCON)GO TO 280 IF(ADAMP.GT..20)GO TO 275 C RED WING DO 257 IW=NU,MIN(NU+2000,NUMNU) VVOIGT=SNGL(WAVESET(IW)-WLVAC)/DOPWAVE IF(VVOIGT.GT.10.)THEN CV=CENTER*.5642*ADAMP/VVOIGT**2 ELSE IV=VVOIGT*200.+1.5 CV=CENTER*((H2TAB(IV)*ADAMP+H1TAB(IV))*ADAMP+H0TAB(IV)) ENDIF XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 258 257 CONTINUE C BLUE WING 258 DO 259 I=1,2000 IW=NU-I IF(IW.LE.0)GO TO 280 IF(WAVESET(IW).LT.WCON)GO TO 280 VVOIGT=SNGL(WLVAC-WAVESET(IW))/DOPWAVE IF(VVOIGT.GT.10.)THEN CV=CENTER*.5642*ADAMP/VVOIGT**2 ELSE IV=VVOIGT*200.+1.5 CV=CENTER*((H2TAB(IV)*ADAMP+H1TAB(IV))*ADAMP+H0TAB(IV)) ENDIF XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 280 259 CONTINUE GO TO 280 C RED WING 275 DO 277 IW=NU,MIN(NU+2000,NUMNU) CV=CENTER*VOIGT(SNGL(WAVESET(IW)-WLVAC)/DOPWAVE,ADAMP) XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 278 277 CONTINUE C BLUE WING 278 DO 279 I=1,2000 IW=NU-I IF(IW.LE.0)GO TO 280 IF(WAVESET(IW).LT.WCON)GO TO 280 CV=CENTER*VOIGT(SNGL(WLVAC-WAVESET(IW))/DOPWAVE,ADAMP) XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 280 279 CONTINUE 280 CONTINUE 281 DO 291 K=8,NRHOX,8 IF(IFJ(K-7)+IFJ(K+1).EQ.0)GO TO 291 DO 290 J=K-7,K-1 CENTER=CGF*XNFDOP(J,NELION) IF(CENTER.LT.TABCONT(J,NUCONT))GO TO 290 CENTER=CENTER*FASTEX(ELO*HCKT4(J)) IF(CENTER.LT.TABCONT(J,NUCONT))GO TO 290 ADAMP=(GAMMAR+GAMMAS*XNE4(J)+GAMMAW*TXNXN(J))/DOPPLE(J,NELION) DOPWAVE=DOPPLE(J,NELION)*WLVAC WCON=0. IF(NCON.GT.10)NCON=0 IF(NCON.GT.0)WCON=1.E7/(CONTX(NCON,NELIONX)-EMERGE(J)) IF(WLVAC.LT.WCON)GO TO 290 IF(ADAMP.GT..20)GO TO 285 C RED WING DO 267 IW=NU,MIN(NU+2000,NUMNU) VVOIGT=SNGL(WAVESET(IW)-WLVAC)/DOPWAVE IF(VVOIGT.GT.10.)THEN CV=CENTER*.5642*ADAMP/VVOIGT**2 ELSE IV=VVOIGT*200.+1.5 CV=CENTER*((H2TAB(IV)*ADAMP+H1TAB(IV))*ADAMP+H0TAB(IV)) ENDIF XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 268 267 CONTINUE C BLUE WING 268 DO 269 I=1,2000 IW=NU-I IF(IW.LE.0)GO TO 290 IF(WAVESET(IW).LT.WCON)GO TO 290 VVOIGT=SNGL(WLVAC-WAVESET(IW))/DOPWAVE IF(VVOIGT.GT.10.)THEN CV=CENTER*.5642*ADAMP/VVOIGT**2 ELSE IV=VVOIGT*200.+1.5 CV=CENTER*((H2TAB(IV)*ADAMP+H1TAB(IV))*ADAMP+H0TAB(IV)) ENDIF XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 290 269 CONTINUE GO TO 290 C RED WING 285 DO 287 IW=NU,MIN(NU+2000,NUMNU) CV=CENTER*VOIGT(SNGL(WAVESET(IW)-WLVAC)/DOPWAVE,ADAMP) XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 288 287 CONTINUE C BLUE WING 288 DO 289 I=1,2000 IW=NU-I IF(IW.LE.0)GO TO 290 IF(WAVESET(IW).LT.WCON)GO TO 290 CV=CENTER*VOIGT(SNGL(WLVAC-WAVESET(IW))/DOPWAVE,ADAMP) XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 290 289 CONTINUE 290 CONTINUE 291 CONTINUE GO TO 900 C C PRD LINE 300 GO TO 200 C C CORONAL LINE 500 GO TO 900 C C HYDROGEN LINE 600 DO 680 J=1,NRHOX CENTER=CGF*BOLTH(J,NBLO) IF(CENTER.LT.TABCONT(J,NUCONT))GO TO 680 WCON=1.E7/(CONTX(NCON,1)-EMERGE(J)) C RED WING DO 677 IW=NU,MIN(NU+2000,NUMNU) IF(WAVESET(IW).LT.WCON)GO TO 677 FREQ=2.99792458E17/WAVESET(IW) CV=CENTER*HPROF4(NBLO,NBUP,J,SNGL(WAVESET(IW)-WLVAC)) XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 678 677 CONTINUE C BLUE WING 678 DO 679 I=1,2000 IW=NU-I IF(IW.LE.0)GO TO 680 IF(WAVESET(IW).LT.WCON)GO TO 680 FREQ=2.99792458E17/WAVESET(IW) CV=CENTER*HPROF4(NBLO,NBUP,J,SNGL(WAVESET(IW)-WLVAC)) XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 680 679 CONTINUE 680 CONTINUE GO TO 900 C C AUTOIONIZING LINE 700 FRELIN=2.99792458E17/WLVAC DO 780 J=1,NRHOX CENTER=BSHORE*G*XNFP(J,NELION)/RHO(J) IF(CENTER.LT.TABCONT(J,NUCONT))GO TO 780 CENTER=CENTER*FASTEX(ELO*HCKT4(J)) IF(CENTER.LT.TABCONT(J,NUCONT))GO TO 780 C RED WING DO 777 IW=NU,MIN(NU+2000,NUMNU) EPSIL=2.*(2.99792458E17/WAVESET(IW)-FRELIN)/GAMMAR CV=CENTER*(ASHORE*EPSIL+BSHORE)/(EPSIL**2+1.)/BSHORE XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 778 777 CONTINUE C BLUE WING 778 DO 779 I=1,2000 IW=MAX(NU-I,1) EPSIL=2.*(2.99792458E17/WAVESET(IW)-FRELIN)/GAMMAR CV=CENTER*(ASHORE*EPSIL+BSHORE)/(EPSIL**2+1.)/BSHORE XLINES(J,IW)=XLINES(J,IW)+CV IF(CV.LT.TABCONT(J,NUCONT))GO TO 780 779 CONTINUE 780 CONTINUE GO TO 900 C 900 CONTINUE 901 RETURN END FUNCTION HFNM(N,M) C CALCULATES HYDROGEN OSCILLATOR STRENGTHS DATA NSTR/0/,MSTR/0/ HFNM=0. IF(M.LE.N)RETURN IF(N.EQ.NSTR)GO TO 10 XN=N GINF=.2027/XN**.71 GCA=.124/XN FKN=XN*1.9603 WTC=.45-2.4/XN**3*(XN-1.) NSTR=N GO TO 15 10 IF(M.EQ.MSTR)GO TO 20 15 XM=M XMN=M-N FK=FKN*(XM/(XMN*(XM+XN)))**3 XMN12=XMN**1.2 WT=(XMN12-1.)/(XMN12+WTC) FNM=FK*(1.-WT*GINF-(.222+GCA/XM)*(1.-WT)) MSTR=M 20 HFNM=FNM RETURN END FUNCTION VCSE1F(X) C ROUGH, BUT ARRANGED TO BE FAST. X.GE.0 COMMON /EXTAB/EXTAB(1001),EXTABF(1001),E1TAB(2000) FASTEX(X)=EXTAB(INT(X)+1)*EXTABF(INT((X-REAL(INT(X)))*1000.+1.5)) VCSE1F=0. IF(X.LE.0.)RETURN IF(X.GT..01)GO TO 10 VCSE1F=-ALOG(X)-.577215+X RETURN 10 IF(X.GT.1.)GO TO 20 VCSE1F=-ALOG(X)-.57721566+X*(.99999193+X*(-.24991055+X*(.05519968+ 1X*(-.00976004+X*.00107857)))) RETURN 20 IF(X.GT.30.)RETURN C VCSE1F=(X*(X+2.334733)+.25062)/(X*(X+3.330657)+1.681534)/X*EXP(-X) VCSE1F=(X*(X+2.334733)+.25062)/(X*(X+3.330657)+1.681534)/X* 1FASTEX(X) RETURN END FUNCTION SOFBET(B,P,N,M) C GENERATES S(BETA,P) FOR HYDROGEN LINES. THE ALPHA AND BETA LINES C OF THE FIRST THREE SERIES ARE EXGLICITLY INCLUDED AND THE H18 C PROFILE IS USED FOR THE REST. C C THESE PROFILES HAVE BEEN RENORMALIZED TO FULL OSCILLATOR STRENGTH C C STORAGE FOR CORRECTIONS (P,BETA,IND),(P,IND),(P,IND) DIMENSION PROPBM(5,15,7),C(5,7),D(5,7) DIMENSION PP(5),BETA(15) DIMENSION PROB1(75),PROB2(75),PROB3(75),PROB4(75),PROB5(75) DIMENSION PROB6(75),PROB7(75) DIMENSION C1(5),C2(5),C3(5),C4(5),C5(5),C6(5),C7(5) DIMENSION D1(5),D2(5),D3(5),D4(5),D5(5),D6(5),D7(5) EQUIVALENCE (PROPBM(1),PROB1(1)),(PROPBM(76),PROB2(1)) EQUIVALENCE (PROPBM(151),PROB3(1)),(PROPBM(226),PROB4(1)) EQUIVALENCE (PROPBM(301),PROB5(1)),(PROPBM(376),PROB6(1)) EQUIVALENCE (PROPBM(451),PROB7(1)) EQUIVALENCE (C(1),C1(1)),(C(6),C2(1)),(C(11),C3(1)),(C(16),C4(1)) EQUIVALENCE (C(21),C5(1)),(C(26),C6(1)),(C(31),C7(1)) EQUIVALENCE (D(1),D1(1)),(D(6),D2(1)),(D(11),D3(1)),(D(16),D4(1)) EQUIVALENCE (D(21),D5(1)),(D(26),D6(1)),(D(31),D7(1)) C LYMAN ALPHA DATA PROB1/ 1-.980,-.967,-.948,-.918,-.873,-.968,-.949,-.921,-.879,-.821, 2-.950,-.922,-.883,-.830,-.764,-.922,-.881,-.830,-.770,-.706, 3-.877,-.823,-.763,-.706,-.660,-.806,-.741,-.682,-.640,-.625, 4-.691,-.628,-.588,-.577,-.599,-.511,-.482,-.484,-.514,-.568, 5-.265,-.318,-.382,-.455,-.531,-.013,-.167,-.292,-.394,-.478, 6 .166,-.056,-.216,-.332,-.415, .251, .035,-.122,-.237,-.320, 7 .221, .059,-.068,-.168,-.247, .160, .055,-.037,-.118,-.189, 8 .110, .043,-.022,-.085,-.147/ DATA C1 /-18.396, 84.674,-96.273, 3.927, 55.191/ DATA D1 / 11.801, 9.079, -.651,-11.071,-26.545/ C LYMAN BETA DATA PROB2/ 1-.242, .060, .379, .671, .894, .022, .314, .569, .746, .818, 2 .273, .473, .605, .651, .607, .432, .484, .489, .442, .343, 3 .434, .366, .294, .204, .091, .304, .184, .079,-.025,-.135, 4 .167, .035,-.082,-.189,-.290, .085,-.061,-.183,-.287,-.374, 5 .032,-.127,-.249,-.344,-.418,-.024,-.167,-.275,-.357,-.420, 6-.061,-.170,-.257,-.327,-.384,-.047,-.124,-.192,-.252,-.306, 7-.043,-.092,-.142,-.190,-.238,-.038,-.070,-.107,-.146,-.187, 8-.030,-.049,-.075,-.106,-.140/ DATA C2 / 95.740, 18.489, 14.902, 24.466, 42.456/ DATA D2 / -6.665, -7.136,-10.605,-15.882,-23.632/ C BALMER ALPHA DATA PROB3/ 1-.484,-.336,-.206,-.111,-.058,-.364,-.264,-.192,-.154,-.144, 2-.299,-.268,-.250,-.244,-.246,-.319,-.333,-.337,-.336,-.337, 3-.397,-.414,-.415,-.413,-.420,-.456,-.455,-.451,-.456,-.478, 4-.446,-.441,-.446,-.469,-.512,-.358,-.381,-.415,-.463,-.522, 5-.214,-.288,-.360,-.432,-.503,-.063,-.196,-.304,-.394,-.468, 6 .063,-.108,-.237,-.334,-.409, .151,-.019,-.148,-.245,-.319, 7 .149, .016,-.091,-.177,-.246, .115, .023,-.056,-.126,-.189, 8 .078, .021,-.036,-.091,-.145/ DATA C3 /-25.088,145.882,-50.165, 7.902, 51.003/ DATA D3 / 7.872, 5.592, -2.716,-12.180,-25.661/ C BALMER BETA DATA PROB4/ 1-.082, .163, .417, .649, .829, .096, .316, .515, .660, .729, 2 .242, .393, .505, .556, .534, .320, .373, .394, .369, .290, 3 .308, .274, .226, .152, .048, .232, .141, .052,-.046,-.154, 4 .148, .020,-.094,-.200,-.299, .083,-.070,-.195,-.299,-.385, 5 .031,-.130,-.253,-.348,-.422,-.023,-.167,-.276,-.359,-.423, 6-.053,-.165,-.254,-.326,-.384,-.038,-.119,-.190,-.251,-.306, 7-.034,-.088,-.140,-.190,-.239,-.032,-.066,-.103,-.144,-.186, 8-.027,-.048,-.075,-.106,-.142/ DATA C4 / 93.783, 10.066, 9.224, 20.685, 40.136/ DATA D4 / -5.918, -6.501,-10.130,-15.588,-23.570/ C PASCHEN ALPHA DATA PROB5/ 1-.819,-.759,-.689,-.612,-.529,-.770,-.707,-.638,-.567,-.498, 2-.721,-.659,-.595,-.537,-.488,-.671,-.617,-.566,-.524,-.497, 3-.622,-.582,-.547,-.523,-.516,-.570,-.545,-.526,-.521,-.537, 4-.503,-.495,-.496,-.514,-.551,-.397,-.418,-.448,-.492,-.547, 5-.246,-.315,-.384,-.453,-.522,-.080,-.210,-.316,-.406,-.481, 6 .068,-.107,-.239,-.340,-.418, .177,-.006,-.143,-.246,-.324, 7 .184, .035,-.082,-.174,-.249, .146, .042,-.046,-.123,-.190, 8 .103, .036,-.027,-.088,-.146/ DATA C5 /-19.819, 94.981,-79.606, 3.159, 52.106/ DATA D5 / 10.938, 8.028, -1.267,-11.375,-26.047/ C PASCHEN BETA DATA PROB6/ 1-.073, .169, .415, .636, .809, .102, .311, .499, .639, .710, 2 .232, .372, .479, .531, .514, .294, .349, .374, .354, .279, 3 .278, .253, .212, .142, .040, .215, .130, .044,-.051,-.158, 4 .141, .015,-.097,-.202,-.300, .080,-.072,-.196,-.299,-.385, 5 .029,-.130,-.252,-.347,-.421,-.022,-.166,-.275,-.359,-.423, 6-.050,-.164,-.253,-.325,-.384,-.035,-.118,-.189,-.252,-.306, 7-.032,-.087,-.139,-.190,-.240,-.029,-.064,-.102,-.143,-.185, 8-.025,-.046,-.074,-.106,-.142/ DATA C6 /111.107, 11.910, 9.857, 21.371, 41.006/ DATA D6 / -5.899, -6.381,-10.044,-15.574,-23.644/ C BALMER 18 DATA PROB7/ 1 .005, .128, .260, .389, .504, .004, .109, .220, .318, .389, 2-.007, .079, .162, .222, .244,-.018, .041, .089, .106, .080, 3-.026,-.003, .003,-.023,-.086,-.025,-.048,-.087,-.148,-.234, 4-.008,-.085,-.165,-.251,-.343, .018,-.111,-.223,-.321,-.407, 5 .032,-.130,-.255,-.354,-.431, .014,-.148,-.269,-.359,-.427, 6-.005,-.140,-.243,-.323,-.386, .005,-.095,-.178,-.248,-.307, 7-.002,-.068,-.129,-.187,-.241,-.007,-.049,-.094,-.139,-.186, 8-.010,-.036,-.067,-.103,-.143/ DATA C7 /511.318, 1.532, 4.044, 19.266, 41.812/ DATA D7 / -6.070, -4.528, -8.759,-14.984,-23.956/ DATA PP/0.,.2,.4,.6,.8/ DATA BETA/1.,1.259,1.585,1.995,2.512,3.162,3.981,5.012,6.310,7.943 1,10.,12.59,15.85,19.95,25.12/ CORR=1. B2=B*B SB=SQRT(B) IF(B.GT.500.)GO TO 40 INDX=7 MMN=M-N IF(N.LE.3.AND.MMN.LE.2)INDX=2*(N-1)+MMN C DETERMINE RELEVANT DEBYE RANGE IM=MIN0(INT(5.*P)+1,4) IP=IM+1 WTPP=5.*(P-PP(IM)) WTPM=1.-WTPP IF(B.GT.25.12)GO TO 30 DO 10 J=2,15 IF(B.LE.BETA(J))GO TO 20 10 CONTINUE 20 JM=J-1 JP=J WTBP=(B-BETA(JM))/(BETA(JP)-BETA(JM)) WTBM=1.-WTBP CBP=PROPBM(IP,JP,INDX)*WTPP+PROPBM(IM,JP,INDX)*WTPM CBM=PROPBM(IP,JM,INDX)*WTPP+PROPBM(IM,JM,INDX)*WTPM CORR=1.+CBP*WTBP+CBM*WTBM C GET INNER APPROXIMATE PROFILE PR1=0. PR2=0. WT=AMAX1(AMIN1(.5*(10.-B),1.),0.) IF(B.LE.10.)PR1=8./(83.+(2.+.95*B2)*B) IF(B.GE.8.)PR2=(1.5/SB+27./B2)/B2 SOFBET=(PR1*WT+PR2*(1.-WT))*CORR RETURN C ASYMPTOTIC PARTS 30 CC=C(IP,INDX)*WTPP+C(IM,INDX)*WTPM DD=D(IP,INDX)*WTPP+D(IM,INDX)*WTPM CORR=1.+DD/(CC+B*SB) 40 SOFBET=(1.5/SB+27./B2)/B2*CORR RETURN END FUNCTION HPROF4(N,M,J,DELW) C FUNCTION HPROFL(N,M,J,DELW) C VERSION FINE STRUCTURE LIKE GENERAL BUT APPROXIMATELY INCLUDES FINE C STRUCTURE IN THE DOPPLER CORES. EXACT PATTERN C IS USED FOR ALPHA LINES, M INFINITE PATTERN C IS USED FOR ALL OTHER LINES. C FROM DEANE PETERSON C REQUIRES VCSE1F AND SOFBET VCSEIF REPLACED BY FASTE1 PARAMETER (kw=72,mion=1006) REAL*8 FREQ,FREQLG,EHVKT,STIM,BNU,WAVE,WAVENO REAL*8 RHOX,P,XNE,XNATOM,RHO,CHARGESQ REAL*8 VTURB,PTURB,TRBFDG,TRBCON,TRBPOW,TRBSND REAL*8 T,TKEV,TK,HKT,HCKT,TLOG REAL*8 XNF,XNFP,XNH2 COMMON /EXTAB/EXTAB(1001),EXTABF(1001),E1TAB(2000) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw),CHARGESQ(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),HCKT(kw),TLOG(kw),ITEMP COMMON /XNF/XNF(kw,mion),XNFP(kw,mion),XNH2(kw) COMMON /XNFDOP/XNFDOP(kw,mion),DOPPLE(kw,mion) DIMENSION PP(kw),FO(kw),GCON1(kw),GCON2(kw),Y1B(kw),Y1S(kw), 1C1D(kw),C2D(kw),Y1WTM(2,2),XKNMTB(4,3),T3NHE(kw),EXP4492T(kw) DIMENSION STCOMP(5,4),STALPH(34),ISTAL(4),LNGHAL(4),STWTAL(34), 1STCPWT(5,4),LNCOMP(4),FINEST(14),FINSWT(14) REAL*4 LORWING REAL*4 CUTOFFH2PLUS(111),CUTOFFH2(91) DATA XKNMTB/.0001716,.009019,.1001,.5820,.0005235,.01772,.171,.866 1,.0008912,.02507,.223,1.02/ DATA Y1WTM/1.E18,1.E17,1.E16,1.E14/ DATA ITEMP1/0/,N1/0/,M1/0/,RYDH/3.2880515E15/ C FINE STRUCTURE COMPONENTS FOR ALPHA LINES IN FREQ*10**-7 DATA STALPH/-730.,370.,188.,515.,327.,619.,-772.,-473.,-369.,120., 1256.,162.,285.,-161.,-38.3,6.82,-174.,-147.,-101.,-77.5,55.,126., 275.,139.,-60.,3.7,27.,-69.,-42.,-18.,-5.5,-9.1,-33.,-24./ C ALPHA COMPONENT WEIGHTS DATA STWTAL/1.,2.,1.,2.,1.,2.,1.,2.,3.,1.,2.,1.,2.,1.,4.,6.,1.,2., 13.,4.,1.,2.,1.,2.,1.,4.,6.,1.,7.,6.,4.,4.,4.,5./ DATA ISTAL/1,3,10,21/, LNGHAL/2,7,11,14/ C FINE STRUCTURE FOR M.EQ.INFINITY IN FREQ*10**-7 DATA STCOMP/0.,0.,0.,0.,0.,468.,576.,-522.,0.,0.,260.,290.,-33., 1-140.,0.0,140.,150.,18.,-27.,-51./ C WEIGHTS DATA STCPWT/1.,0.,0.,0.,0.,1.,1.,2.,0.,0.,1.,1.,4.,3.,0.,1.,1., 14.,6.,4./ DATA LNCOMP/1,3,4,5/ C LYMAN ALPHA QUASI H2+ CUTOFF C DELTA WAVENO = -15000+100*(N-1) N=1,111 UP TO -4000 DATA CUTOFFH2PLUS/ 1-15.14,-15.06,-14.97,-14.88,-14.80,-14.71,-14.62,-14.53, 2-14.44,-14.36,-14.27,-14.18,-14.09,-14.01,-13.92,-13.83, 3-13.74,-13.65,-13.57,-13.48,-13.39,-13.30,-13.21,-13.13, 4-13.04,-12.95,-12.86,-12.77,-12.69,-12.60,-12.51,-12.40, 5-12.29,-12.15,-12.02,-11.90,-11.76,-11.63,-11.53,-11.41, 6-11.30,-11.22,-11.15,-11.09,-11.07,-11.06,-11.07,-11.09, 7-11.12,-11.16,-11.19,-11.21,-11.24,-11.27,-11.30,-11.33, 8-11.36,-11.39,-11.42,-11.45,-11.48,-11.48,-11.48,-11.48, 9-11.48,-11.48,-11.48,-11.48,-11.48,-11.48,-11.48,-11.48, A-11.48,-11.48,-11.48,-11.48,-11.41,-11.40,-11.39,-11.38, 1-11.37,-11.36,-11.35,-11.34,-11.33,-11.32,-11.30,-11.29, 2-11.28,-11.27,-11.27,-11.27,-11.26,-11.25,-11.24,-11.23, 3-11.22,-11.21,-11.20,-11.19,-11.18,-11.17,-11.15,-11.14, 4-11.13,-11.12,-11.11,-11.10,-11.09,-11.08,-11.07/ C DATA CUTOFFH2PLUS/ C 1-17.15,-17.00,-16.86,-16.71,-16.56,-16.41,-16.27,-16.12, C 2-15.97,-15.82,-15.68,-15.53,-15.38,-15.23,-15.09,-14.94, C 3-14.79,-14.64,-14.50,-14.35,-14.20,-14.05,-13.91,-13.76, C 4-13.61,-13.46,-13.32,-13.17,-13.02,-12.87,-12.73,-12.58, C 5-12.43,-12.28,-12.14,-11.99,-11.85,-11.72,-11.60,-11.49, C 6-11.40,-11.36,-11.335,-11.33,-11.33,-11.335,-11.35,-11.37, C 7-11.40,-11.42,-11.45,-11.48,-11.52,-11.55,-11.59,-11.61, C 8-11.61,-11.61,-11.60,-11.59,-11.58,-11.57,-11.56,-11.55, C 9-11.54,-11.53,-11.52,-11.51,-11.49,-11.48,-11.47,-11.46, C A-11.45,-11.44,-11.43,-11.42,-11.41,-11.40,-11.39,-11.38, C 1-11.37,-11.36,-11.35,-11.34,-11.33,-11.32,-11.30,-11.29, C 2-11.28,-11.27,-11.26,-11.25,-11.24,-11.23,-11.22,-11.21, C 3-11.20,-11.19,-11.18,-11.17,-11.16,-11.15,-11.13,-11.12, C 4-11.11,-11.10,-11.09,-11.08,-11.07,-11.06,-11.05/ C LYMAN ALPHA QUASI H2 CUTOFF C DELTA WAVENO = -22000+200*(N-1) N=1,91 -4000 DATA CUTOFFH2/ 1-13.43,-13.32,-13.21,-13.10,-12.98,-12.86,-12.79,-12.72, 2-12.65,-12.58,-12.51,-12.47,-12.45,-12.45,-12.48,-12.51, 3-12.53,-12.56,-12.59,-12.62,-12.65,-12.69,-12.73,-12.77, 4-12.81,-12.85,-12.87,-12.89,-12.90,-12.90,-12.90,-12.90, 5-12.90,-12.90,-12.90,-12.90,-12.90,-12.90,-12.90,-12.90, 6-12.90,-12.90,-12.90,-12.90,-12.90,-12.90,-12.90,-12.90, 7-12.90,-12.90,-12.90,-12.90,-12.90,-12.90,-12.90,-12.90, 8-12.90,-12.90,-12.90,-12.90,-12.90,-12.90,-12.90,-12.90, 9-12.90,-12.90,-12.90,-12.90,-12.90,-12.90,-12.89,-12.88, A-12.87,-12.86,-12.85,-12.84,-12.83,-12.81,-12.80,-12.79, 1-12.78,-12.76,-12.74,-12.72,-12.70,-12.68,-12.65,-12.62, 2-12.59,-12.56,-12.53/ C DATA CUTOFFH2/ C 1-13.87,-13.73,-13.59,-13.45,-13.31,-13.17,-13.05,-12.93, C 2-12.83,-12.74,-12.67,-12.63,-12.60,-12.60,-12.63,-12.65, C 3-12.67,-12.69,-12.71,-12.73,-12.75,-12.77,-12.79,-12.81, C 4-12.83,-12.85,-12.86,-12.87,-12.87,-12.86,-12.85,-12.84, C 5-12.83,-12.82,-12.80,-12.79,-12.78,-12.77,-12.76,-12.75, C 6-12.74,-12.72,-12.71,-12.70,-12.69,-12.68,-12.67,-12.66, C 7-12.64,-12.63,-12.62,-12.61,-12.60,-12.59,-12.58,-12.57, C 8-12.55,-12.54,-12.53,-12.52,-12.51,-12.50,-12.49,-12.47, C 9-12.46,-12.45,-12.44,-12.43,-12.42,-12.41,-12.39,-12.38, C A-12.37,-12.36,-12.35,-12.34,-12.33,-12.31,-12.30,-12.29, C 1-12.28,-12.26,-12.24,-12.22,-12.20,-12.18,-12.15,-12.12, C 2-12.09,-12.06,-12.03/ C FASTEX(X)=EXTAB(INT(X)+1)*EXTABF(INT((X-REAL(INT(X)))*1000.+1.5)) IF(ITEMP.EQ.ITEMP1)GO TO 20 C SET UP DEPTH VECTORS ITEMP1=ITEMP DO 10 K=1,NRHOX XNE16=XNE(K)**.1666667 PP(K)=XNE16*.08989/SQRT(T(K)) FO(K)=XNE16**4*1.25E-9 Y1B(K)=2./(1.+.012/T(K)*SQRT(XNE(K)/T(K))) T4=T(K)/10000. T43=T4**.3 Y1S(K)=T43/XNE16 T3NHE(K)=T43*XNFP(K,3) C1D(K)=FO(K)*78940./T(K) C2D(K)=FO(K)**2/5.96E-23/XNE(K) GCON1(K)=.2+.09*SQRT(T4)/(1.+XNE(K)/1.E13) GCON2(K)=.2/(1.+XNE(K)/1.E15) EXP4492T(K)=EXP(-4492./T(K)) 10 CONTINUE C SET UP FOR THIS LINE 20 IF(N.EQ.N1.AND.M.EQ.M1)GO TO 30 N1=N M1=M MMN=M-N XN=N XN2=XN*XN XM=M XM2=XM*XM XMN2=XM2*XN2 XM2MN2=XM2-XN2 GNM=XM2MN2/XMN2 IF(MMN.LE.3.AND.N.LE.4)XKNM=XKNMTB(N,MMN) IF(MMN.GT.3.OR.N.GT.4)XKNM=5.5E-5/GNM*XMN2/(1.+.13/FLOAT(MMN)) Y1NUM=320. IF(M.EQ.2)Y1NUM=550. IF(M.EQ.3)Y1NUM=380. Y1WHT=1.E13 IF(MMN.LE.3)Y1WHT=1.E14 IF(MMN.LE.2.AND.N.LE.2)Y1WHT=Y1WTM(N,MMN) FREQNM=RYDH*GNM DBETA=2.99792458E18/FREQNM**2/XKNM WAVENM=2.99792458E18/FREQNM C1CON=XKNM/WAVENM*GNM*XM2MN2 C2CON=(XKNM/WAVENM)**2 RADAMP=1.389E9/XM**4.53/(1.+5./XM2/XM) IF(N.NE.1)RADAMP=RADAMP+1.389E9/XN**4.53/(1.+5./XN2/XN) RADAMP=RADAMP/FREQNM RESONT=HFNM(1,M)/XM/(1.-1./XM2) IF(N.NE.1)RESONT=RESONT+HFNM(1,N)/XN/(1.-1./XN2) C FUDGE TO BASCHEK*2 C RESONT=HFNM(1,M)/XM/(1.-1./XM2)*XM/3.*.791*2. C IF(N.NE.1)RESONT=RESONT+HFNM(1,N)/XN/(1.-1./XN2)*XN/3.*.791*2. C 2 IS FOR CONVERTING XNFPH TO XNFH C RESONT=RESONT*5.593E-24/GNM*2. C RESONT=RESONT*5.593E-24/GNM C error in constant corrected 26nov95 RESONT=RESONT*3.92E-24/GNM VDW=4.45E-26/GNM*(XM2*(7.*XM2+5.))**.4 HWVDW=VDW*T3NHE(J) HWRAD=RADAMP STARK=1.6678E-18*FREQNM*XKNM C FINE STRUCTURE COMPONENTS C IF(N.GT.4.OR.M.GT.10)THEN IFINS=1 FINEST(1)=0. FINSWT(1)=1. GO TO 30 ENDIF C IF(MMN.EQ.1)GO TO 22 C USE M.EQ.INF STRUCTURE IFINS=LNCOMP(N) DO 21 I=1,IFINS FINEST(I)=STCOMP(I,N)*1.E7 FINSWT(I)=STCPWT(I,N)/XN2 21 CONTINUE GO TO 30 C FOR ALPHA LINES 22 IFINS=LNGHAL(N) IPOS=ISTAL(N) DO 23 I=1,IFINS K=IPOS-1+I FINEST(I)=STALPH(K)*1.E7 FINSWT(I)=STWTAL(K)/XN2/3. 23 CONTINUE C NOW DO THIS DEPTH C 30 DEL=-10.*DELW/WAVENM*FREQNM error C FREQ=FREQNM+DEL C WAVENM IN A DELW IN NM 30 WL=WAVENM+DELW*10. FREQ=2.99792458E18/WL DEL=ABS(FREQ-FREQNM) C WL IN NM WL=WL/10. C THESE HALF-WIDTHS ARE REALLY DNU/NU HWSTK=STARK*FO(J) HWVDW=VDW*T3NHE(J) HWRAD=RADAMP HWRES=RESONT*XNF(J,1) HWLOR=RESONT*XNF(J,1)+VDW*T3NHE(J)+RADAMP C SPECIFY LARGEST HALF WIDTH IN CASE OF CORE CALC C NWID=1, DOPPLER =2, LORENTZ =3, STARK NWID=1 IF(DOPPLE(J,1).GE.HWSTK.AND.DOPPLE(J,1).GE.HWLOR)GO TO 31 NWID=2 IF(HWLOR.GE.HWSTK)GO TO 31 NWID=3 31 HFWID=FREQNM*AMAX1(DOPPLE(J,1),HWLOR,HWSTK) C SETS FLAG IF IN A LINE CORE C HPROFL=0. HPROF4=0. IFCORE=0 IF(ABS(DEL).LE.HFWID)IFCORE=1 DOP=FREQNM*DOPPLE(J,1) IF(IFCORE.EQ.1)GO TO (32,40,50),NWID C C DO DOPPLER C PUT FINE STRUCTURE IN DOPPLER CORE 32 DO 33 I=1,IFINS D=ABS(FREQ-FREQNM-FINEST(I))/DOP C IF(D.LE.7.)HPROF4=HPROF4+EXP(-D*D)/1.77245/DOP*FINSWT(I) C IF(D.LE.7.)HPROFL=HPROFL+EXP(-D*D)/1.77245/DOP*FINSWT(I) C SAME NORMALIZATION AS VOIGT FUNCTION IF(D.LE.7.)HPROF4=HPROF4+FASTEX(D*D)*FINSWT(I) 33 CONTINUE IF(IFCORE.EQ.1)RETURN C C DO LORENTZ 40 IF(N.NE.1)GO TO 48 IF(M.NE.2)GO TO 48 C Lyman alpha C near center IF(FREQ.GT.(82259.105-4000.)*2.99792458E10)THEN c modify old resonance broadening to match at 4000 cm-1 HWRES=HWRES*4. HWLOR=HWRES+HWVDW+HWRAD HHW=FREQNM*HWLOR HPROFRES=HWRES/3.14159/(DEL**2+HHW**2)*1.77245*DOP GO TO 44 ENDIF C only far red wing C Data from N.F. Allard, March 1997 C Insert Lyman alpha cutoff a la N.F. Allard and D. Koester, A&A, 258, C 464-468. 1992. CUTOFF=0. IF(FREQ.LT.50000.*2.99792458E10)GO TO 43 C TABULATED AT 200 CM-1 SPACING SPACING=200.*2.99792458E10 FREQ22000=(82259.105-22000.)*2.99792458E10 IF(FREQ.LT.FREQ22000)THEN CUTOFF=(CUTOFFH2(2)-CUTOFFH2(1))/SPACING*(FREQ-FREQ22000)+ 1CUTOFFH2(1) ELSE ICUT=(FREQ-FREQ22000)/SPACING CUTFREQ=ICUT*SPACING+FREQ22000 CUTOFF=(CUTOFFH2(ICUT+2)-CUTOFFH2(ICUT+1))/SPACING* 1(FREQ-CUTFREQ)+CUTOFFH2(ICUT+1) ENDIF CUTOFF=(10.**(CUTOFF-14.))*XNFP(J,1)*2./2.99792458E10 43 HPROFRES=CUTOFF*1.77245*DOP C 44 HPROFRAD=HWRAD*FREQNM/3.14159/(DEL**2+HHW**2)*1.77245*DOP C CORRECTION TO LORENTZ PROFILE ALLER P.164 NOT USED C HPROFRAD=HPROFRAD*4.*FREQ**2/(FREQ**2+FREQNM**2) C CROSSOVER FROM ABSORPTION TO RAYLEIGH SCATTTERING IN HRAYOP IF(FREQ.LE.2.463E15)HPROFRAD=0. C HPROFVDW=HWVDW*FREQNM/3.14159/(DEL**2+HHW**2)*1.77245*DOP C VAN DER WAALS CUTOFF FOR HE AND FOR H2 C GUESS BOTH 60000 CM-1 = 1.8E15 HZ IF(FREQ.LT.1.8E15)HPROFVDW=0. HPROFLOR=HPROFRES+HPROFRAD+HPROFVDW HPROF4=HPROF4+HPROFLOR IF(IFCORE.EQ.1)RETURN GO TO 50 C C not Lyman alpha 48 HHW=FREQNM*HWLOR HPROFLOR=HHW/3.14159/(DEL**2+HHW**2)*1.77245*DOP HPROF4=HPROF4+HPROFLOR IF(IFCORE.EQ.1)RETURN C C DO STARK 50 WTY1=1./(1.+XNE(J)/Y1WHT) Y1SCAL=Y1NUM*Y1S(J)*WTY1+Y1B(J)*(1.-WTY1) C1=C1D(J)*C1CON*Y1SCAL C2=C2D(J)*C2CON G1=6.77*SQRT(C1) GNOT=G1*AMAX1(0.,.2114+ALOG(SQRT(C2)/C1))*(1.-GCON1(J)-GCON2(J)) BETA=ABS(DEL)/FO(J)*DBETA Y1=C1*BETA Y2=C2*BETA**2 GAM=GNOT C IF(Y2.LE..001)GO TO 51 IF(Y2.LE.1.E-4.AND.Y1.LE.1.E-5)GO TO 51 C GAM=G1*(.5*EXP(-AMIN1(80.,Y1))+VCSE1F(Y1)-.5*VCSE1F(Y2))* C GAM=G1*(.5*FASTEX(AMIN1(80.,Y1))+VCSE1F(Y1)-.5*VCSE1F(Y2))* GAM=G1*(.5*FASTEX(AMIN1(80.,Y1))+FASTE1(Y1)-.5*FASTE1(Y2))* 1(1.-GCON1(J)/(1.+(90.*Y1)**3)-GCON2(J)/(1.+2000.*Y1)) IF(GAM.LE.1.E-20)GAM=0. 51 PRQS=SOFBET(BETA,PP(J),N,M) IF(M.GT.2)GO TO 53 C ASSUME QUASISTATIC PROFILE IS HALF PROTONS, HALF ELECTRONS PRQS=PRQS*.5 CUTOFF=0. C LYMAN ALPHA QUASI H2+ CUTOFF C Data from N.F. Allard, March 1997 IF(FREQ.LT.(82259.105-20000.)*2.99792458E10)GO TO 53 IF(FREQ.GT.(82259.105-4000.)*2.99792458E10)GO TO 52 C TABULATED AT 100 CM-1 SPACING FREQ15000=(82259.105-15000.)*2.99792458E10 SPACING=100.*2.99792458E10 IF(FREQ.LT.FREQ15000)THEN CUTOFF=(CUTOFFH2PLUS(2)-CUTOFFH2PLUS(1))/SPACING* 1(FREQ-FREQ15000)+CUTOFFH2PLUS(1) ELSE ICUT=(FREQ-FREQ15000)/SPACING CUTFREQ=ICUT*SPACING+FREQ15000 CUTOFF=(CUTOFFH2PLUS(ICUT+2)-CUTOFFH2PLUS(ICUT+1))/ 1SPACING*(FREQ-CUTFREQ)+CUTOFFH2PLUS(ICUT+1) ENDIF CUTOFF=(10.**(CUTOFF-14.))/2.99792458E10*XNF(J,2) HPROF4=HPROF4+CUTOFF*1.77245*DOP GO TO 53 52 BETA4000=4000.*2.99792458E10/FO(J)*DBETA PRQSP4000=SOFBET(BETA4000,PP(J),N,M)*.5/FO(J)*DBETA CUTOFF4000=(10.**(-11.07-14.))/2.99792458E10*XNF(J,2) HPROF4=HPROF4+CUTOFF4000/PRQSP4000*PRQS/FO(J)*DBETA*1.77245*DOP 53 F=0. IF(GAM.GT.0.)F=GAM/3.14159/(GAM**2+BETA**2) P1=(.9*Y1)**2 FNS=(P1+.03*SQRT(Y1))/(P1+1.) C SAME NORMALIZATION AS VOIGT FUNCTION HPROF4=HPROF4+(PRQS*(1.+FNS)+F)/FO(J)*DBETA*1.77245*DOP RETURN END SUBROUTINE HE2LIN RETURN END FUNCTION VOIGT(V,A) C FAST VOIGT COMMON /H1TAB/H0TAB(2001),H1TAB(2001),H2TAB(2001) IV=V*200.+1.5 IF(A.LT..2)GO TO 10 IF(A.GT.1.4)GO TO 2 IF(A+V.GT.3.2)GO TO 2 VV=V*V HH1=H1TAB(IV)+H0TAB(IV)*1.12838 HH2=H2TAB(IV)+HH1*1.12838-H0TAB(IV) HH3=(1.-H2TAB(IV))*.37613-HH1*.66667*VV+HH2*1.12838 HH4=(3.*HH3-HH1)*.37613+H0TAB(IV)*.66667*VV*VV VOIGT=((((HH4*A+HH3)*A+HH2)*A+HH1)*A+H0TAB(IV))* 1 (((-.122727278*A+.532770573)*A-.96284325)*A+.979895032) RETURN 2 AA=A*A VV=V*V U=(AA+VV)*1.4142 VOIGT=A*.79788/U IF(A.GT.100.)RETURN AAU=AA/U VVU=VV/U UU=U*U VOIGT= A((((AAU-10.*VVU)*AAU*3.+15.*VVU*VVU)+3.*VV-AA)/UU+1.)*VOIGT C A ((((AA-10.*VV)*AA*3.+15.*VV*VV)/UU+3.*VV-AA)/UU+1.)*A*.79788/U RETURN 10 IF(V.GT.10.)GO TO 12 11 VOIGT=(H2TAB(IV)*A+H1TAB(IV))*A+H0TAB(IV) RETURN 12 VOIGT=.5642*A/V**2 RETURN END FUNCTION FASTE1(X) COMMON /EXTAB/EXTAB(1001),EXTABF(1001),E1TAB(2000) C DO 3457 I=1,2000 C3457 E1TAB(I)=EXPI(1,FLOAT(I)*.01) FASTE1=0. IF(X.GT.20)RETURN IF(X.LT..5)GO TO 1 FASTE1=E1TAB(IFIX(X*100.+.5)) RETURN 1 IF(X.LE.0.)RETURN FASTE1=(1.-.22464*X)*X-ALOG(X)-.57721 RETURN END FUNCTION EXPI(N,X) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=72,mion=1006) C EXPONENTIAL INTEGRAL FOR POSITIVE ARGUMENTS AFTER CODY AND C THACHER, MATH. OF COMP.,22,641(1968) DATA X1/-1.E20/ DATA A0,A1,A2,A3,A4,A5,B0,B1,B2,B3,B4/ 1-44178.5471728217,57721.7247139444,9938.31388962037, 2 1842.11088668000,101.093806161906,5.03416184097568, 3 76537.3323337614,32597.1881290275,6106.10794245759, 4 635.419418378382,37.2298352833327/ DATA C0,C1,C2,C3,C4,C5,C6,D1,D2,D3,D4,D5,D6/ 1 4.65627107975096E-7, 2 .999979577051595,9.04161556946329,24.3784088791317, 3 23.0192559391333,6.90522522784444,.430967839469389, 4 10.0411643829054,32.4264210695138,41.2807841891424, 5 20.4494785013794,3.31909213593302,.103400130404874/ DATA E0,E1,E2,E3,E4,E5,E6,F1,F2,F3,F4,F5,F6/ 1-.999999999998447,-26.6271060431811,-241.055827097015, 2-895.927957772937,-1298.85688746484,-545.374158883133, 3-5.66575206533869, 28.6271060422192, 292.310039388533, 4 1332.78537748257, 2777.61949509163, 2404.01713225909, 5 631.657483280800/ IF(X.EQ.X1)GO TO 40 EX=EXP(-X) X1=X IF(X.GT.4.)GO TO 10 IF(X.GT.1.)GO TO 20 IF(X.GT.0.)GO TO 30 EX1=0. GO TO 40 10 EX1=(EX+EX*(E0+(E1+(E2+(E3+(E4+(E5+E6/X)/X)/X)/X)/X)/X)/ 1 (X+ F1+(F2+(F3+(F4+(F5+F6/X)/X)/X)/X)/X))/X GO TO 40 20 EX1=EX*(C6+(C5+(C4+(C3+(C2+(C1+C0*X)*X)*X)*X)*X)*X)/ 1 (D6+(D5+(D4+(D3+(D2+(D1+X)*X)*X)*X)*X)*X) GO TO 40 30 EX1=(A0+(A1+(A2+(A3+(A4+A5*X)*X)*X)*X)*X)/ 1 (B0+(B1+(B2+(B3+(B4+X)*X)*X)*X)*X)-DLOG(X) 40 EXPI=EX1 IF(N.EQ.1)RETURN N1=N-1 DO 41 I=1,N1 41 EXPI=(EX-X*EXPI)/DFLOAT(I) RETURN END SUBROUTINE PFIRON(NELEM,ION,TLOG8,POTLOW8,PF) REAL*8 TLOG8,POTLOW8,PF DIMENSION POTLO(7),POTLOLOG(7) DIMENSION PFTAB(7,56,10,9),P63(63,560) EQUIVALENCE (PFTAB(1,1,1,1),P63(1,1)) DIMENSION PF001(63),PF002(63),PF003(63),PF004(63),PF005(63) DIMENSION PF006(63),PF007(63),PF008(63),PF009(63),PF010(63) DIMENSION PF011(63),PF012(63),PF013(63),PF014(63),PF015(63) DIMENSION PF016(63),PF017(63),PF018(63),PF019(63),PF020(63) DIMENSION PF021(63),PF022(63),PF023(63),PF024(63),PF025(63) DIMENSION PF026(63),PF027(63),PF028(63),PF029(63),PF030(63) DIMENSION PF031(63),PF032(63),PF033(63),PF034(63),PF035(63) DIMENSION PF036(63),PF037(63),PF038(63),PF039(63),PF040(63) DIMENSION PF041(63),PF042(63),PF043(63),PF044(63),PF045(63) DIMENSION PF046(63),PF047(63),PF048(63),PF049(63),PF050(63) DIMENSION PF051(63),PF052(63),PF053(63),PF054(63),PF055(63) DIMENSION PF056(63),PF057(63),PF058(63),PF059(63),PF060(63) DIMENSION PF061(63),PF062(63),PF063(63),PF064(63),PF065(63) DIMENSION PF066(63),PF067(63),PF068(63),PF069(63),PF070(63) DIMENSION PF071(63),PF072(63),PF073(63),PF074(63),PF075(63) DIMENSION PF076(63),PF077(63),PF078(63),PF079(63),PF080(63) DIMENSION PF081(63),PF082(63),PF083(63),PF084(63),PF085(63) DIMENSION PF086(63),PF087(63),PF088(63),PF089(63),PF090(63) DIMENSION PF091(63),PF092(63),PF093(63),PF094(63),PF095(63) DIMENSION PF096(63),PF097(63),PF098(63),PF099(63),PF100(63) DIMENSION PF101(63),PF102(63),PF103(63),PF104(63),PF105(63) DIMENSION PF106(63),PF107(63),PF108(63),PF109(63),PF110(63) DIMENSION PF111(63),PF112(63),PF113(63),PF114(63),PF115(63) DIMENSION PF116(63),PF117(63),PF118(63),PF119(63),PF120(63) DIMENSION PF121(63),PF122(63),PF123(63),PF124(63),PF125(63) DIMENSION PF126(63),PF127(63),PF128(63),PF129(63),PF130(63) DIMENSION PF131(63),PF132(63),PF133(63),PF134(63),PF135(63) DIMENSION PF136(63),PF137(63),PF138(63),PF139(63),PF140(63) DIMENSION PF141(63),PF142(63),PF143(63),PF144(63),PF145(63) DIMENSION PF146(63),PF147(63),PF148(63),PF149(63),PF150(63) DIMENSION PF151(63),PF152(63),PF153(63),PF154(63),PF155(63) DIMENSION PF156(63),PF157(63),PF158(63),PF159(63),PF160(63) DIMENSION PF161(63),PF162(63),PF163(63),PF164(63),PF165(63) DIMENSION PF166(63),PF167(63),PF168(63),PF169(63),PF170(63) DIMENSION PF171(63),PF172(63),PF173(63),PF174(63),PF175(63) DIMENSION PF176(63),PF177(63),PF178(63),PF179(63),PF180(63) DIMENSION PF181(63),PF182(63),PF183(63),PF184(63),PF185(63) DIMENSION PF186(63),PF187(63),PF188(63),PF189(63),PF190(63) DIMENSION PF191(63),PF192(63),PF193(63),PF194(63),PF195(63) DIMENSION PF196(63),PF197(63),PF198(63),PF199(63),PF200(63) DIMENSION PF201(63),PF202(63),PF203(63),PF204(63),PF205(63) DIMENSION PF206(63),PF207(63),PF208(63),PF209(63),PF210(63) DIMENSION PF211(63),PF212(63),PF213(63),PF214(63),PF215(63) DIMENSION PF216(63),PF217(63),PF218(63),PF219(63),PF220(63) DIMENSION PF221(63),PF222(63),PF223(63),PF224(63),PF225(63) DIMENSION PF226(63),PF227(63),PF228(63),PF229(63),PF230(63) DIMENSION PF231(63),PF232(63),PF233(63),PF234(63),PF235(63) DIMENSION PF236(63),PF237(63),PF238(63),PF239(63),PF240(63) DIMENSION PF241(63),PF242(63),PF243(63),PF244(63),PF245(63) DIMENSION PF246(63),PF247(63),PF248(63),PF249(63),PF250(63) DIMENSION PF251(63),PF252(63),PF253(63),PF254(63),PF255(63) DIMENSION PF256(63),PF257(63),PF258(63),PF259(63),PF260(63) DIMENSION PF261(63),PF262(63),PF263(63),PF264(63),PF265(63) DIMENSION PF266(63),PF267(63),PF268(63),PF269(63),PF270(63) DIMENSION PF271(63),PF272(63),PF273(63),PF274(63),PF275(63) DIMENSION PF276(63),PF277(63),PF278(63),PF279(63),PF280(63) DIMENSION PF281(63),PF282(63),PF283(63),PF284(63),PF285(63) DIMENSION PF286(63),PF287(63),PF288(63),PF289(63),PF290(63) DIMENSION PF291(63),PF292(63),PF293(63),PF294(63),PF295(63) DIMENSION PF296(63),PF297(63),PF298(63),PF299(63),PF300(63) DIMENSION PF301(63),PF302(63),PF303(63),PF304(63),PF305(63) DIMENSION PF306(63),PF307(63),PF308(63),PF309(63),PF310(63) DIMENSION PF311(63),PF312(63),PF313(63),PF314(63),PF315(63) DIMENSION PF316(63),PF317(63),PF318(63),PF319(63),PF320(63) DIMENSION PF321(63),PF322(63),PF323(63),PF324(63),PF325(63) DIMENSION PF326(63),PF327(63),PF328(63),PF329(63),PF330(63) DIMENSION PF331(63),PF332(63),PF333(63),PF334(63),PF335(63) DIMENSION PF336(63),PF337(63),PF338(63),PF339(63),PF340(63) DIMENSION PF341(63),PF342(63),PF343(63),PF344(63),PF345(63) DIMENSION PF346(63),PF347(63),PF348(63),PF349(63),PF350(63) DIMENSION PF351(63),PF352(63),PF353(63),PF354(63),PF355(63) DIMENSION PF356(63),PF357(63),PF358(63),PF359(63),PF360(63) DIMENSION PF361(63),PF362(63),PF363(63),PF364(63),PF365(63) DIMENSION PF366(63),PF367(63),PF368(63),PF369(63),PF370(63) DIMENSION PF371(63),PF372(63),PF373(63),PF374(63),PF375(63) DIMENSION PF376(63),PF377(63),PF378(63),PF379(63),PF380(63) DIMENSION PF381(63),PF382(63),PF383(63),PF384(63),PF385(63) DIMENSION PF386(63),PF387(63),PF388(63),PF389(63),PF390(63) DIMENSION PF391(63),PF392(63),PF393(63),PF394(63),PF395(63) DIMENSION PF396(63),PF397(63),PF398(63),PF399(63),PF400(63) DIMENSION PF401(63),PF402(63),PF403(63),PF404(63),PF405(63) DIMENSION PF406(63),PF407(63),PF408(63),PF409(63),PF410(63) DIMENSION PF411(63),PF412(63),PF413(63),PF414(63),PF415(63) DIMENSION PF416(63),PF417(63),PF418(63),PF419(63),PF420(63) DIMENSION PF421(63),PF422(63),PF423(63),PF424(63),PF425(63) DIMENSION PF426(63),PF427(63),PF428(63),PF429(63),PF430(63) DIMENSION PF431(63),PF432(63),PF433(63),PF434(63),PF435(63) DIMENSION PF436(63),PF437(63),PF438(63),PF439(63),PF440(63) DIMENSION PF441(63),PF442(63),PF443(63),PF444(63),PF445(63) DIMENSION PF446(63),PF447(63),PF448(63),PF449(63),PF450(63) DIMENSION PF451(63),PF452(63),PF453(63),PF454(63),PF455(63) DIMENSION PF456(63),PF457(63),PF458(63),PF459(63),PF460(63) DIMENSION PF461(63),PF462(63),PF463(63),PF464(63),PF465(63) DIMENSION PF466(63),PF467(63),PF468(63),PF469(63),PF470(63) DIMENSION PF471(63),PF472(63),PF473(63),PF474(63),PF475(63) DIMENSION PF476(63),PF477(63),PF478(63),PF479(63),PF480(63) DIMENSION PF481(63),PF482(63),PF483(63),PF484(63),PF485(63) DIMENSION PF486(63),PF487(63),PF488(63),PF489(63),PF490(63) DIMENSION PF491(63),PF492(63),PF493(63),PF494(63),PF495(63) DIMENSION PF496(63),PF497(63),PF498(63),PF499(63),PF500(63) DIMENSION PF501(63),PF502(63),PF503(63),PF504(63),PF505(63) DIMENSION PF506(63),PF507(63),PF508(63),PF509(63),PF510(63) DIMENSION PF511(63),PF512(63),PF513(63),PF514(63),PF515(63) DIMENSION PF516(63),PF517(63),PF518(63),PF519(63),PF520(63) DIMENSION PF521(63),PF522(63),PF523(63),PF524(63),PF525(63) DIMENSION PF526(63),PF527(63),PF528(63),PF529(63),PF530(63) DIMENSION PF531(63),PF532(63),PF533(63),PF534(63),PF535(63) DIMENSION PF536(63),PF537(63),PF538(63),PF539(63),PF540(63) DIMENSION PF541(63),PF542(63),PF543(63),PF544(63),PF545(63) DIMENSION PF546(63),PF547(63),PF548(63),PF549(63),PF550(63) DIMENSION PF551(63),PF552(63),PF553(63),PF554(63),PF555(63) DIMENSION PF556(63),PF557(63),PF558(63),PF559(63),PF560(63) EQUIVALENCE (PF001(1),P63(001,1)),(PF002(1),P63(1,002)) EQUIVALENCE (PF003(1),P63(1,003)),(PF004(1),P63(1,004)) EQUIVALENCE (PF005(1),P63(1,005)),(PF006(1),P63(1,006)) EQUIVALENCE (PF007(1),P63(1,007)),(PF008(1),P63(1,008)) EQUIVALENCE (PF009(1),P63(1,009)),(PF010(1),P63(1,010)) EQUIVALENCE (PF011(1),P63(1,011)),(PF012(1),P63(1,012)) EQUIVALENCE (PF013(1),P63(1,013)),(PF014(1),P63(1,014)) EQUIVALENCE (PF015(1),P63(1,015)),(PF016(1),P63(1,016)) EQUIVALENCE (PF017(1),P63(1,017)),(PF018(1),P63(1,018)) EQUIVALENCE (PF019(1),P63(1,019)),(PF020(1),P63(1,020)) EQUIVALENCE (PF021(1),P63(1,021)),(PF022(1),P63(1,022)) EQUIVALENCE (PF023(1),P63(1,023)),(PF024(1),P63(1,024)) EQUIVALENCE (PF025(1),P63(1,025)),(PF026(1),P63(1,026)) EQUIVALENCE (PF027(1),P63(1,027)),(PF028(1),P63(1,028)) EQUIVALENCE (PF029(1),P63(1,029)),(PF030(1),P63(1,030)) EQUIVALENCE (PF031(1),P63(1,031)),(PF032(1),P63(1,032)) EQUIVALENCE (PF033(1),P63(1,033)),(PF034(1),P63(1,034)) EQUIVALENCE (PF035(1),P63(1,035)),(PF036(1),P63(1,036)) EQUIVALENCE (PF037(1),P63(1,037)),(PF038(1),P63(1,038)) EQUIVALENCE (PF039(1),P63(1,039)),(PF040(1),P63(1,040)) EQUIVALENCE (PF041(1),P63(1,041)),(PF042(1),P63(1,042)) EQUIVALENCE (PF043(1),P63(1,043)),(PF044(1),P63(1,044)) EQUIVALENCE (PF045(1),P63(1,045)),(PF046(1),P63(1,046)) EQUIVALENCE (PF047(1),P63(1,047)),(PF048(1),P63(1,048)) EQUIVALENCE (PF049(1),P63(1,049)),(PF050(1),P63(1,050)) EQUIVALENCE (PF051(1),P63(1,051)),(PF052(1),P63(1,052)) EQUIVALENCE (PF053(1),P63(1,053)),(PF054(1),P63(1,054)) EQUIVALENCE (PF055(1),P63(1,055)),(PF056(1),P63(1,056)) EQUIVALENCE (PF057(1),P63(1,057)),(PF058(1),P63(1,058)) EQUIVALENCE (PF059(1),P63(1,059)),(PF060(1),P63(1,060)) EQUIVALENCE (PF061(1),P63(1,061)),(PF062(1),P63(1,062)) EQUIVALENCE (PF063(1),P63(1,063)),(PF064(1),P63(1,064)) EQUIVALENCE (PF065(1),P63(1,065)),(PF066(1),P63(1,066)) EQUIVALENCE (PF067(1),P63(1,067)),(PF068(1),P63(1,068)) EQUIVALENCE (PF069(1),P63(1,069)),(PF070(1),P63(1,070)) EQUIVALENCE (PF071(1),P63(1,071)),(PF072(1),P63(1,072)) EQUIVALENCE (PF073(1),P63(1,073)),(PF074(1),P63(1,074)) EQUIVALENCE (PF075(1),P63(1,075)),(PF076(1),P63(1,076)) EQUIVALENCE (PF077(1),P63(1,077)),(PF078(1),P63(1,078)) EQUIVALENCE (PF079(1),P63(1,079)),(PF080(1),P63(1,080)) EQUIVALENCE (PF081(1),P63(1,081)),(PF082(1),P63(1,082)) EQUIVALENCE (PF083(1),P63(1,083)),(PF084(1),P63(1,084)) EQUIVALENCE (PF085(1),P63(1,085)),(PF086(1),P63(1,086)) EQUIVALENCE (PF087(1),P63(1,087)),(PF088(1),P63(1,088)) EQUIVALENCE (PF089(1),P63(1,089)),(PF090(1),P63(1,090)) EQUIVALENCE (PF091(1),P63(1,091)),(PF092(1),P63(1,092)) EQUIVALENCE (PF093(1),P63(1,093)),(PF094(1),P63(1,094)) EQUIVALENCE (PF095(1),P63(1,095)),(PF096(1),P63(1,096)) EQUIVALENCE (PF097(1),P63(1,097)),(PF098(1),P63(1,098)) EQUIVALENCE (PF099(1),P63(1,099)),(PF100(1),P63(1,100)) EQUIVALENCE (PF101(1),P63(1,101)),(PF102(1),P63(1,102)) EQUIVALENCE (PF103(1),P63(1,103)),(PF104(1),P63(1,104)) EQUIVALENCE (PF105(1),P63(1,105)),(PF106(1),P63(1,106)) EQUIVALENCE (PF107(1),P63(1,107)),(PF108(1),P63(1,108)) EQUIVALENCE (PF109(1),P63(1,109)),(PF110(1),P63(1,110)) EQUIVALENCE (PF111(1),P63(1,111)),(PF112(1),P63(1,112)) EQUIVALENCE (PF113(1),P63(1,113)),(PF114(1),P63(1,114)) EQUIVALENCE (PF115(1),P63(1,115)),(PF116(1),P63(1,116)) EQUIVALENCE (PF117(1),P63(1,117)),(PF118(1),P63(1,118)) EQUIVALENCE (PF119(1),P63(1,119)),(PF120(1),P63(1,120)) EQUIVALENCE (PF121(1),P63(1,121)),(PF122(1),P63(1,122)) EQUIVALENCE (PF123(1),P63(1,123)),(PF124(1),P63(1,124)) EQUIVALENCE (PF125(1),P63(1,125)),(PF126(1),P63(1,126)) EQUIVALENCE (PF127(1),P63(1,127)),(PF128(1),P63(1,128)) EQUIVALENCE (PF129(1),P63(1,129)),(PF130(1),P63(1,130)) EQUIVALENCE (PF131(1),P63(1,131)),(PF132(1),P63(1,132)) EQUIVALENCE (PF133(1),P63(1,133)),(PF134(1),P63(1,134)) EQUIVALENCE (PF135(1),P63(1,135)),(PF136(1),P63(1,136)) EQUIVALENCE (PF137(1),P63(1,137)),(PF138(1),P63(1,138)) EQUIVALENCE (PF139(1),P63(1,139)),(PF140(1),P63(1,140)) EQUIVALENCE (PF141(1),P63(1,141)),(PF142(1),P63(1,142)) EQUIVALENCE (PF143(1),P63(1,143)),(PF144(1),P63(1,144)) EQUIVALENCE (PF145(1),P63(1,145)),(PF146(1),P63(1,146)) EQUIVALENCE (PF147(1),P63(1,147)),(PF148(1),P63(1,148)) EQUIVALENCE (PF149(1),P63(1,149)),(PF150(1),P63(1,150)) EQUIVALENCE (PF151(1),P63(1,151)),(PF152(1),P63(1,152)) EQUIVALENCE (PF153(1),P63(1,153)),(PF154(1),P63(1,154)) EQUIVALENCE (PF155(1),P63(1,155)),(PF156(1),P63(1,156)) EQUIVALENCE (PF157(1),P63(1,157)),(PF158(1),P63(1,158)) EQUIVALENCE (PF159(1),P63(1,159)),(PF160(1),P63(1,160)) EQUIVALENCE (PF161(1),P63(1,161)),(PF162(1),P63(1,162)) EQUIVALENCE (PF163(1),P63(1,163)),(PF164(1),P63(1,164)) EQUIVALENCE (PF165(1),P63(1,165)),(PF166(1),P63(1,166)) EQUIVALENCE (PF167(1),P63(1,167)),(PF168(1),P63(1,168)) EQUIVALENCE (PF169(1),P63(1,169)),(PF170(1),P63(1,170)) EQUIVALENCE (PF171(1),P63(1,171)),(PF172(1),P63(1,172)) EQUIVALENCE (PF173(1),P63(1,173)),(PF174(1),P63(1,174)) EQUIVALENCE (PF175(1),P63(1,175)),(PF176(1),P63(1,176)) EQUIVALENCE (PF177(1),P63(1,177)),(PF178(1),P63(1,178)) EQUIVALENCE (PF179(1),P63(1,179)),(PF180(1),P63(1,180)) EQUIVALENCE (PF181(1),P63(1,181)),(PF182(1),P63(1,182)) EQUIVALENCE (PF183(1),P63(1,183)),(PF184(1),P63(1,184)) EQUIVALENCE (PF185(1),P63(1,185)),(PF186(1),P63(1,186)) EQUIVALENCE (PF187(1),P63(1,187)),(PF188(1),P63(1,188)) EQUIVALENCE (PF189(1),P63(1,189)),(PF190(1),P63(1,190)) EQUIVALENCE (PF191(1),P63(1,191)),(PF192(1),P63(1,192)) EQUIVALENCE (PF193(1),P63(1,193)),(PF194(1),P63(1,194)) EQUIVALENCE (PF195(1),P63(1,195)),(PF196(1),P63(1,196)) EQUIVALENCE (PF197(1),P63(1,197)),(PF198(1),P63(1,198)) EQUIVALENCE (PF199(1),P63(1,199)),(PF200(1),P63(1,200)) EQUIVALENCE (PF201(1),P63(1,201)),(PF202(1),P63(1,202)) EQUIVALENCE (PF203(1),P63(1,203)),(PF204(1),P63(1,204)) EQUIVALENCE (PF205(1),P63(1,205)),(PF206(1),P63(1,206)) EQUIVALENCE (PF207(1),P63(1,207)),(PF208(1),P63(1,208)) EQUIVALENCE (PF209(1),P63(1,209)),(PF210(1),P63(1,210)) EQUIVALENCE (PF211(1),P63(1,211)),(PF212(1),P63(1,212)) EQUIVALENCE (PF213(1),P63(1,213)),(PF214(1),P63(1,214)) EQUIVALENCE (PF215(1),P63(1,215)),(PF216(1),P63(1,216)) EQUIVALENCE (PF217(1),P63(1,217)),(PF218(1),P63(1,218)) EQUIVALENCE (PF219(1),P63(1,219)),(PF220(1),P63(1,220)) EQUIVALENCE (PF221(1),P63(1,221)),(PF222(1),P63(1,222)) EQUIVALENCE (PF223(1),P63(1,223)),(PF224(1),P63(1,224)) EQUIVALENCE (PF225(1),P63(1,225)),(PF226(1),P63(1,226)) EQUIVALENCE (PF227(1),P63(1,227)),(PF228(1),P63(1,228)) EQUIVALENCE (PF229(1),P63(1,229)),(PF230(1),P63(1,230)) EQUIVALENCE (PF231(1),P63(1,231)),(PF232(1),P63(1,232)) EQUIVALENCE (PF233(1),P63(1,233)),(PF234(1),P63(1,234)) EQUIVALENCE (PF235(1),P63(1,235)),(PF236(1),P63(1,236)) EQUIVALENCE (PF237(1),P63(1,237)),(PF238(1),P63(1,238)) EQUIVALENCE (PF239(1),P63(1,239)),(PF240(1),P63(1,240)) EQUIVALENCE (PF241(1),P63(1,241)),(PF242(1),P63(1,242)) EQUIVALENCE (PF243(1),P63(1,243)),(PF244(1),P63(1,244)) EQUIVALENCE (PF245(1),P63(1,245)),(PF246(1),P63(1,246)) EQUIVALENCE (PF247(1),P63(1,247)),(PF248(1),P63(1,248)) EQUIVALENCE (PF249(1),P63(1,249)),(PF250(1),P63(1,250)) EQUIVALENCE (PF251(1),P63(1,251)),(PF252(1),P63(1,252)) EQUIVALENCE (PF253(1),P63(1,253)),(PF254(1),P63(1,254)) EQUIVALENCE (PF255(1),P63(1,255)),(PF256(1),P63(1,256)) EQUIVALENCE (PF257(1),P63(1,257)),(PF258(1),P63(1,258)) EQUIVALENCE (PF259(1),P63(1,259)),(PF260(1),P63(1,260)) EQUIVALENCE (PF261(1),P63(1,261)),(PF262(1),P63(1,262)) EQUIVALENCE (PF263(1),P63(1,263)),(PF264(1),P63(1,264)) EQUIVALENCE (PF265(1),P63(1,265)),(PF266(1),P63(1,266)) EQUIVALENCE (PF267(1),P63(1,267)),(PF268(1),P63(1,268)) EQUIVALENCE (PF269(1),P63(1,269)),(PF270(1),P63(1,270)) EQUIVALENCE (PF271(1),P63(1,271)),(PF272(1),P63(1,272)) EQUIVALENCE (PF273(1),P63(1,273)),(PF274(1),P63(1,274)) EQUIVALENCE (PF275(1),P63(1,275)),(PF276(1),P63(1,276)) EQUIVALENCE (PF277(1),P63(1,277)),(PF278(1),P63(1,278)) EQUIVALENCE (PF279(1),P63(1,279)),(PF280(1),P63(1,280)) EQUIVALENCE (PF281(1),P63(1,281)),(PF282(1),P63(1,282)) EQUIVALENCE (PF283(1),P63(1,283)),(PF284(1),P63(1,284)) EQUIVALENCE (PF285(1),P63(1,285)),(PF286(1),P63(1,286)) EQUIVALENCE (PF287(1),P63(1,287)),(PF288(1),P63(1,288)) EQUIVALENCE (PF289(1),P63(1,289)),(PF290(1),P63(1,290)) EQUIVALENCE (PF291(1),P63(1,291)),(PF292(1),P63(1,292)) EQUIVALENCE (PF293(1),P63(1,293)),(PF294(1),P63(1,294)) EQUIVALENCE (PF295(1),P63(1,295)),(PF296(1),P63(1,296)) EQUIVALENCE (PF297(1),P63(1,297)),(PF298(1),P63(1,298)) EQUIVALENCE (PF299(1),P63(1,299)),(PF300(1),P63(1,300)) EQUIVALENCE (PF301(1),P63(1,301)),(PF302(1),P63(1,302)) EQUIVALENCE (PF303(1),P63(1,303)),(PF304(1),P63(1,304)) EQUIVALENCE (PF305(1),P63(1,305)),(PF306(1),P63(1,306)) EQUIVALENCE (PF307(1),P63(1,307)),(PF308(1),P63(1,308)) EQUIVALENCE (PF309(1),P63(1,309)),(PF310(1),P63(1,310)) EQUIVALENCE (PF311(1),P63(1,311)),(PF312(1),P63(1,312)) EQUIVALENCE (PF313(1),P63(1,313)),(PF314(1),P63(1,314)) EQUIVALENCE (PF315(1),P63(1,315)),(PF316(1),P63(1,316)) EQUIVALENCE (PF317(1),P63(1,317)),(PF318(1),P63(1,318)) EQUIVALENCE (PF319(1),P63(1,319)),(PF320(1),P63(1,320)) EQUIVALENCE (PF321(1),P63(1,321)),(PF322(1),P63(1,322)) EQUIVALENCE (PF323(1),P63(1,323)),(PF324(1),P63(1,324)) EQUIVALENCE (PF325(1),P63(1,325)),(PF326(1),P63(1,326)) EQUIVALENCE (PF327(1),P63(1,327)),(PF328(1),P63(1,328)) EQUIVALENCE (PF329(1),P63(1,329)),(PF330(1),P63(1,330)) EQUIVALENCE (PF331(1),P63(1,331)),(PF332(1),P63(1,332)) EQUIVALENCE (PF333(1),P63(1,333)),(PF334(1),P63(1,334)) EQUIVALENCE (PF335(1),P63(1,335)),(PF336(1),P63(1,336)) EQUIVALENCE (PF337(1),P63(1,337)),(PF338(1),P63(1,338)) EQUIVALENCE (PF339(1),P63(1,339)),(PF340(1),P63(1,340)) EQUIVALENCE (PF341(1),P63(1,341)),(PF342(1),P63(1,342)) EQUIVALENCE (PF343(1),P63(1,343)),(PF344(1),P63(1,344)) EQUIVALENCE (PF345(1),P63(1,345)),(PF346(1),P63(1,346)) EQUIVALENCE (PF347(1),P63(1,347)),(PF348(1),P63(1,348)) EQUIVALENCE (PF349(1),P63(1,349)),(PF350(1),P63(1,350)) EQUIVALENCE (PF351(1),P63(1,351)),(PF352(1),P63(1,352)) EQUIVALENCE (PF353(1),P63(1,353)),(PF354(1),P63(1,354)) EQUIVALENCE (PF355(1),P63(1,355)),(PF356(1),P63(1,356)) EQUIVALENCE (PF357(1),P63(1,357)),(PF358(1),P63(1,358)) EQUIVALENCE (PF359(1),P63(1,359)),(PF360(1),P63(1,360)) EQUIVALENCE (PF361(1),P63(1,361)),(PF362(1),P63(1,362)) EQUIVALENCE (PF363(1),P63(1,363)),(PF364(1),P63(1,364)) EQUIVALENCE (PF365(1),P63(1,365)),(PF366(1),P63(1,366)) EQUIVALENCE (PF367(1),P63(1,367)),(PF368(1),P63(1,368)) EQUIVALENCE (PF369(1),P63(1,369)),(PF370(1),P63(1,370)) EQUIVALENCE (PF371(1),P63(1,371)),(PF372(1),P63(1,372)) EQUIVALENCE (PF373(1),P63(1,373)),(PF374(1),P63(1,374)) EQUIVALENCE (PF375(1),P63(1,375)),(PF376(1),P63(1,376)) EQUIVALENCE (PF377(1),P63(1,377)),(PF378(1),P63(1,378)) EQUIVALENCE (PF379(1),P63(1,379)),(PF380(1),P63(1,380)) EQUIVALENCE (PF381(1),P63(1,381)),(PF382(1),P63(1,382)) EQUIVALENCE (PF383(1),P63(1,383)),(PF384(1),P63(1,384)) EQUIVALENCE (PF385(1),P63(1,385)),(PF386(1),P63(1,386)) EQUIVALENCE (PF387(1),P63(1,387)),(PF388(1),P63(1,388)) EQUIVALENCE (PF389(1),P63(1,389)),(PF390(1),P63(1,390)) EQUIVALENCE (PF391(1),P63(1,391)),(PF392(1),P63(1,392)) EQUIVALENCE (PF393(1),P63(1,393)),(PF394(1),P63(1,394)) EQUIVALENCE (PF395(1),P63(1,395)),(PF396(1),P63(1,396)) EQUIVALENCE (PF397(1),P63(1,397)),(PF398(1),P63(1,398)) EQUIVALENCE (PF399(1),P63(1,399)),(PF400(1),P63(1,400)) EQUIVALENCE (PF401(1),P63(1,401)),(PF402(1),P63(1,402)) EQUIVALENCE (PF403(1),P63(1,403)),(PF404(1),P63(1,404)) EQUIVALENCE (PF405(1),P63(1,405)),(PF406(1),P63(1,406)) EQUIVALENCE (PF407(1),P63(1,407)),(PF408(1),P63(1,408)) EQUIVALENCE (PF409(1),P63(1,409)),(PF410(1),P63(1,410)) EQUIVALENCE (PF411(1),P63(1,411)),(PF412(1),P63(1,412)) EQUIVALENCE (PF413(1),P63(1,413)),(PF414(1),P63(1,414)) EQUIVALENCE (PF415(1),P63(1,415)),(PF416(1),P63(1,416)) EQUIVALENCE (PF417(1),P63(1,417)),(PF418(1),P63(1,418)) EQUIVALENCE (PF419(1),P63(1,419)),(PF420(1),P63(1,420)) EQUIVALENCE (PF421(1),P63(1,421)),(PF422(1),P63(1,422)) EQUIVALENCE (PF423(1),P63(1,423)),(PF424(1),P63(1,424)) EQUIVALENCE (PF425(1),P63(1,425)),(PF426(1),P63(1,426)) EQUIVALENCE (PF427(1),P63(1,427)),(PF428(1),P63(1,428)) EQUIVALENCE (PF429(1),P63(1,429)),(PF430(1),P63(1,430)) EQUIVALENCE (PF431(1),P63(1,431)),(PF432(1),P63(1,432)) EQUIVALENCE (PF433(1),P63(1,433)),(PF434(1),P63(1,434)) EQUIVALENCE (PF435(1),P63(1,435)),(PF436(1),P63(1,436)) EQUIVALENCE (PF437(1),P63(1,437)),(PF438(1),P63(1,438)) EQUIVALENCE (PF439(1),P63(1,439)),(PF440(1),P63(1,440)) EQUIVALENCE (PF441(1),P63(1,441)),(PF442(1),P63(1,442)) EQUIVALENCE (PF443(1),P63(1,443)),(PF444(1),P63(1,444)) EQUIVALENCE (PF445(1),P63(1,445)),(PF446(1),P63(1,446)) EQUIVALENCE (PF447(1),P63(1,447)),(PF448(1),P63(1,448)) EQUIVALENCE (PF449(1),P63(1,449)),(PF450(1),P63(1,450)) EQUIVALENCE (PF451(1),P63(1,451)),(PF452(1),P63(1,452)) EQUIVALENCE (PF453(1),P63(1,453)),(PF454(1),P63(1,454)) EQUIVALENCE (PF455(1),P63(1,455)),(PF456(1),P63(1,456)) EQUIVALENCE (PF457(1),P63(1,457)),(PF458(1),P63(1,458)) EQUIVALENCE (PF459(1),P63(1,459)),(PF460(1),P63(1,460)) EQUIVALENCE (PF461(1),P63(1,461)),(PF462(1),P63(1,462)) EQUIVALENCE (PF463(1),P63(1,463)),(PF464(1),P63(1,464)) EQUIVALENCE (PF465(1),P63(1,465)),(PF466(1),P63(1,466)) EQUIVALENCE (PF467(1),P63(1,467)),(PF468(1),P63(1,468)) EQUIVALENCE (PF469(1),P63(1,469)),(PF470(1),P63(1,470)) EQUIVALENCE (PF471(1),P63(1,471)),(PF472(1),P63(1,472)) EQUIVALENCE (PF473(1),P63(1,473)),(PF474(1),P63(1,474)) EQUIVALENCE (PF475(1),P63(1,475)),(PF476(1),P63(1,476)) EQUIVALENCE (PF477(1),P63(1,477)),(PF478(1),P63(1,478)) EQUIVALENCE (PF479(1),P63(1,479)),(PF480(1),P63(1,480)) EQUIVALENCE (PF481(1),P63(1,481)),(PF482(1),P63(1,482)) EQUIVALENCE (PF483(1),P63(1,483)),(PF484(1),P63(1,484)) EQUIVALENCE (PF485(1),P63(1,485)),(PF486(1),P63(1,486)) EQUIVALENCE (PF487(1),P63(1,487)),(PF488(1),P63(1,488)) EQUIVALENCE (PF489(1),P63(1,489)),(PF490(1),P63(1,490)) EQUIVALENCE (PF491(1),P63(1,491)),(PF492(1),P63(1,492)) EQUIVALENCE (PF493(1),P63(1,493)),(PF494(1),P63(1,494)) EQUIVALENCE (PF495(1),P63(1,495)),(PF496(1),P63(1,496)) EQUIVALENCE (PF497(1),P63(1,497)),(PF498(1),P63(1,498)) EQUIVALENCE (PF499(1),P63(1,499)),(PF500(1),P63(1,500)) EQUIVALENCE (PF501(1),P63(1,501)),(PF502(1),P63(1,502)) EQUIVALENCE (PF503(1),P63(1,503)),(PF504(1),P63(1,504)) EQUIVALENCE (PF505(1),P63(1,505)),(PF506(1),P63(1,506)) EQUIVALENCE (PF507(1),P63(1,507)),(PF508(1),P63(1,508)) EQUIVALENCE (PF509(1),P63(1,509)),(PF510(1),P63(1,510)) EQUIVALENCE (PF511(1),P63(1,511)),(PF512(1),P63(1,512)) EQUIVALENCE (PF513(1),P63(1,513)),(PF514(1),P63(1,514)) EQUIVALENCE (PF515(1),P63(1,515)),(PF516(1),P63(1,516)) EQUIVALENCE (PF517(1),P63(1,517)),(PF518(1),P63(1,518)) EQUIVALENCE (PF519(1),P63(1,519)),(PF520(1),P63(1,520)) EQUIVALENCE (PF521(1),P63(1,521)),(PF522(1),P63(1,522)) EQUIVALENCE (PF523(1),P63(1,523)),(PF524(1),P63(1,524)) EQUIVALENCE (PF525(1),P63(1,525)),(PF526(1),P63(1,526)) EQUIVALENCE (PF527(1),P63(1,527)),(PF528(1),P63(1,528)) EQUIVALENCE (PF529(1),P63(1,529)),(PF530(1),P63(1,530)) EQUIVALENCE (PF531(1),P63(1,531)),(PF532(1),P63(1,532)) EQUIVALENCE (PF533(1),P63(1,533)),(PF534(1),P63(1,534)) EQUIVALENCE (PF535(1),P63(1,535)),(PF536(1),P63(1,536)) EQUIVALENCE (PF537(1),P63(1,537)),(PF538(1),P63(1,538)) EQUIVALENCE (PF539(1),P63(1,539)),(PF540(1),P63(1,540)) EQUIVALENCE (PF541(1),P63(1,541)),(PF542(1),P63(1,542)) EQUIVALENCE (PF543(1),P63(1,543)),(PF544(1),P63(1,544)) EQUIVALENCE (PF545(1),P63(1,545)),(PF546(1),P63(1,546)) EQUIVALENCE (PF547(1),P63(1,547)),(PF548(1),P63(1,548)) EQUIVALENCE (PF549(1),P63(1,549)),(PF550(1),P63(1,550)) EQUIVALENCE (PF551(1),P63(1,551)),(PF552(1),P63(1,552)) EQUIVALENCE (PF553(1),P63(1,553)),(PF554(1),P63(1,554)) EQUIVALENCE (PF555(1),P63(1,555)),(PF556(1),P63(1,556)) EQUIVALENCE (PF557(1),P63(1,557)),(PF558(1),P63(1,558)) EQUIVALENCE (PF559(1),P63(1,559)),(PF560(1),P63(1,560)) DATA PF001/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 4 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 5 1.002, 1.002, 1.002, 1.002, 1.002, 1.002, 1.001, 6 1.002, 1.002, 1.002, 1.002, 1.002, 1.002, 1.002, 7 1.004, 1.004, 1.004, 1.004, 1.004, 1.004, 1.003, 8 1.005, 1.005, 1.005, 1.005, 1.005, 1.005, 1.004, 9 1.007, 1.007, 1.007, 1.007, 1.007, 1.007, 1.006/ DATA PF002/ 1 1.010, 1.010, 1.010, 1.010, 1.010, 1.010, 1.009, 2 1.015, 1.015, 1.015, 1.015, 1.015, 1.015, 1.012, 3 1.020, 1.020, 1.020, 1.020, 1.020, 1.020, 1.016, 4 1.027, 1.027, 1.027, 1.027, 1.027, 1.027, 1.021, 5 1.036, 1.036, 1.036, 1.036, 1.036, 1.036, 1.028, 6 1.048, 1.048, 1.048, 1.048, 1.048, 1.048, 1.036, 7 1.064, 1.064, 1.064, 1.064, 1.064, 1.063, 1.046, 8 1.083, 1.083, 1.083, 1.083, 1.083, 1.082, 1.059, 9 1.107, 1.107, 1.107, 1.107, 1.106, 1.106, 1.074/ DATA PF003/ 1 1.137, 1.137, 1.136, 1.136, 1.136, 1.134, 1.092, 2 1.173, 1.173, 1.173, 1.172, 1.172, 1.169, 1.113, 3 1.245, 1.244, 1.243, 1.242, 1.240, 1.235, 1.151, 4 1.341, 1.340, 1.336, 1.333, 1.330, 1.321, 1.198, 5 1.470, 1.467, 1.460, 1.454, 1.447, 1.430, 1.256, 6 1.643, 1.638, 1.623, 1.610, 1.596, 1.566, 1.324, 7 1.877, 1.866, 1.837, 1.810, 1.785, 1.733, 1.405, 8 2.193, 2.172, 2.117, 2.067, 2.022, 1.934, 1.498, 9 2.623, 2.584, 2.484, 2.393, 2.314, 2.174, 1.604/ DATA PF004/ 1 3.208, 3.139, 2.963, 2.805, 2.673, 2.455, 1.723, 2 4.003, 3.886, 3.586, 3.323, 3.109, 2.780, 1.856, 3 5.079, 4.886, 4.396, 3.969, 3.634, 3.151, 2.001, 4 7.740, 7.327, 6.292, 5.407, 4.743, 3.874, 2.271, 5 11.943, 11.130, 9.114, 7.417, 6.196, 4.732, 2.573, 6 18.324, 16.837, 13.185, 10.154, 8.052, 5.718, 2.901, 7 27.604, 25.059, 18.856, 13.773, 10.361, 6.824, 3.252, 8 40.529, 36.419, 26.474, 18.417, 13.161, 8.037, 3.618, 9 57.791, 51.489, 36.344, 24.194, 16.470, 9.338, 3.994/ DATA PF005/ 1 79.950, 70.728, 48.693, 31.173, 20.285, 10.708, 4.375, 2 107.373, 94.424, 63.648, 39.369, 24.584, 12.126, 4.755, 3 140.190, 122.667, 81.214, 48.743, 29.320, 13.570, 5.129, 4 178.280, 155.336, 101.281, 59.203, 34.433, 15.022, 5.494, 5 221.284, 192.109, 123.627, 70.616, 39.851, 16.463, 5.847, 6 268.640, 232.499, 147.943, 82.815, 45.493, 17.877, 6.184, 7 319.634, 275.893, 173.857, 95.612, 51.276, 19.251, 6.505, 8 373.448, 321.597, 200.957, 108.812, 57.120, 20.573, 6.807, 9 429.222, 368.884, 228.823, 122.221, 62.948, 21.836, 7.090/ DATA PF006/ 1 486.101, 417.035, 257.045, 135.655, 68.694, 23.033, 7.355, 2 543.273, 465.369, 285.238, 148.949, 74.299, 24.160, 7.600, 3 600.000, 513.270, 313.063, 161.960, 79.715, 25.215, 7.826, 4 655.640, 560.204, 340.224, 174.566, 84.903, 26.198, 8.034, 5 709.651, 605.723, 366.480, 186.673, 89.835, 27.109, 8.226, 6 761.599, 649.468, 391.641, 198.207, 94.492, 27.949, 8.400, 7 811.155, 691.168, 415.563, 209.116, 98.862, 28.722, 8.559, 8 858.081, 730.629, 438.150, 219.370, 102.941, 29.431, 8.704, 9 902.226, 767.732, 459.345, 228.952, 106.728, 30.078, 8.835/ DATA PF007/ 1 943.513, 802.414, 479.121, 237.861, 110.229, 30.668, 8.954, 2 981.926, 834.668, 497.484, 246.106, 113.453, 31.205, 9.062, 3 2.001, 2.001, 2.001, 2.001, 2.001, 2.001, 2.001, 4 2.001, 2.001, 2.001, 2.001, 2.001, 2.001, 2.001, 5 2.002, 2.002, 2.002, 2.002, 2.002, 2.002, 2.002, 6 2.003, 2.003, 2.003, 2.003, 2.003, 2.003, 2.003, 7 2.004, 2.004, 2.004, 2.004, 2.004, 2.004, 2.004, 8 2.006, 2.006, 2.006, 2.006, 2.006, 2.006, 2.006, 9 2.008, 2.008, 2.008, 2.008, 2.008, 2.008, 2.008/ DATA PF008/ 1 2.011, 2.011, 2.011, 2.011, 2.011, 2.011, 2.011, 2 2.015, 2.015, 2.015, 2.015, 2.015, 2.015, 2.015, 3 2.020, 2.020, 2.020, 2.020, 2.020, 2.020, 2.020, 4 2.026, 2.026, 2.026, 2.026, 2.026, 2.026, 2.026, 5 2.034, 2.034, 2.034, 2.034, 2.034, 2.034, 2.034, 6 2.044, 2.044, 2.044, 2.044, 2.044, 2.044, 2.044, 7 2.057, 2.057, 2.057, 2.057, 2.057, 2.057, 2.057, 8 2.072, 2.072, 2.072, 2.072, 2.072, 2.072, 2.072, 9 2.090, 2.090, 2.090, 2.090, 2.090, 2.090, 2.090/ DATA PF009/ 1 2.111, 2.111, 2.111, 2.111, 2.111, 2.111, 2.111, 2 2.137, 2.137, 2.137, 2.137, 2.137, 2.137, 2.137, 3 2.166, 2.166, 2.166, 2.166, 2.166, 2.166, 2.166, 4 2.201, 2.201, 2.201, 2.201, 2.201, 2.201, 2.201, 5 2.262, 2.262, 2.262, 2.262, 2.262, 2.262, 2.262, 6 2.337, 2.337, 2.337, 2.337, 2.337, 2.337, 2.337, 7 2.426, 2.426, 2.426, 2.426, 2.426, 2.426, 2.426, 8 2.532, 2.532, 2.532, 2.532, 2.532, 2.532, 2.532, 9 2.654, 2.654, 2.654, 2.654, 2.654, 2.654, 2.654/ DATA PF010/ 1 2.795, 2.795, 2.795, 2.795, 2.795, 2.795, 2.795, 2 2.956, 2.956, 2.956, 2.956, 2.955, 2.955, 2.955, 3 3.136, 3.136, 3.136, 3.136, 3.136, 3.136, 3.135, 4 3.337, 3.337, 3.337, 3.337, 3.337, 3.337, 3.336, 5 3.561, 3.561, 3.561, 3.561, 3.560, 3.559, 3.557, 6 3.986, 3.986, 3.986, 3.985, 3.982, 3.979, 3.974, 7 4.487, 4.487, 4.487, 4.486, 4.476, 4.465, 4.450, 8 5.091, 5.091, 5.090, 5.087, 5.055, 5.024, 4.988, 9 5.845, 5.845, 5.843, 5.835, 5.749, 5.668, 5.587/ DATA PF011/ 1 6.839, 6.839, 6.834, 6.812, 6.603, 6.418, 6.251, 2 8.210, 8.210, 8.199, 8.150, 7.690, 7.298, 6.981, 3 10.161, 10.161, 10.137, 10.036, 9.104, 8.342, 7.778, 4 12.952, 12.952, 12.906, 12.712, 10.968, 9.588, 8.644, 5 16.896, 16.896, 16.813, 16.467, 13.414, 11.073, 9.579, 6 22.330, 22.330, 22.190, 21.610, 16.582, 12.830, 10.579, 7 29.582, 29.582, 29.360, 28.441, 20.599, 14.885, 11.641, 8 38.941, 38.941, 38.605, 37.219, 25.564, 17.251, 12.756, 9 50.615, 50.615, 50.129, 48.131, 31.540, 19.929, 13.915/ DATA PF012/ 1 64.715, 64.715, 64.040, 61.273, 38.543, 22.903, 15.106, 2 81.239, 81.239, 80.334, 76.633, 46.543, 26.147, 16.318, 3 100.071, 100.071, 98.896, 94.102, 55.463, 29.620, 17.537, 4 120.997, 120.997, 119.513, 113.476, 65.190, 33.278, 18.750, 5 143.719, 143.719, 141.894, 134.478, 75.583, 37.068, 19.947, 6 167.885, 167.885, 165.689, 156.781, 86.480, 40.937, 21.115, 7 193.110, 193.110, 190.520, 180.032, 97.715, 44.833, 22.246, 8 219.001, 219.001, 216.001, 203.870, 109.124, 48.709, 23.333, 9 245.178, 245.178, 241.759, 227.946, 120.549, 52.521, 24.369/ DATA PF013/ 1 271.290, 271.290, 267.447, 251.942, 131.852, 56.232, 25.351, 2 297.023, 297.023, 292.759, 275.570, 142.909, 59.812, 26.274, 3 322.110, 322.110, 317.432, 298.590, 153.619, 63.237, 27.139, 4 346.332, 346.332, 341.251, 320.802, 163.900, 66.488, 27.944, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF014/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF015/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF016/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF017/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 8 1.003, 1.003, 1.003, 1.003, 1.003, 1.003, 1.003, 9 1.010, 1.010, 1.010, 1.010, 1.010, 1.010, 1.010/ DATA PF018/ 1 1.029, 1.029, 1.029, 1.029, 1.029, 1.028, 1.027, 2 1.076, 1.076, 1.076, 1.076, 1.076, 1.072, 1.068, 3 1.189, 1.189, 1.189, 1.189, 1.189, 1.171, 1.156, 4 1.448, 1.448, 1.448, 1.448, 1.448, 1.386, 1.336, 5 2.015, 2.015, 2.015, 2.015, 2.015, 1.829, 1.679, 6 3.192, 3.192, 3.192, 3.192, 3.192, 2.692, 2.302, 7 5.496, 5.496, 5.496, 5.496, 5.495, 4.291, 3.371, 8 9.727, 9.727, 9.727, 9.727, 9.726, 7.090, 5.113, 9 17.025, 17.025, 17.025, 17.025, 17.022, 11.723, 7.814/ DATA PF019/ 1 28.861, 28.861, 28.861, 28.861, 28.855, 18.980, 11.805, 2 46.977, 46.977, 46.977, 46.977, 46.967, 29.767, 17.438, 3 73.250, 73.250, 73.250, 73.250, 73.233, 45.030, 25.055, 4 109.508, 109.508, 109.508, 109.508, 109.482, 65.657, 34.949, 5 157.338, 157.338, 157.338, 157.338, 157.299, 92.388, 47.334, 6 217.901, 217.901, 217.901, 217.901, 217.847, 125.722, 62.321, 7 4.234, 4.234, 4.234, 4.234, 4.234, 4.234, 4.234, 8 4.257, 4.257, 4.257, 4.257, 4.257, 4.257, 4.257, 9 4.282, 4.282, 4.282, 4.282, 4.282, 4.282, 4.282/ DATA PF020/ 1 4.308, 4.308, 4.308, 4.308, 4.308, 4.308, 4.308, 2 4.335, 4.335, 4.335, 4.335, 4.335, 4.335, 4.335, 3 4.363, 4.363, 4.363, 4.363, 4.363, 4.363, 4.363, 4 4.392, 4.392, 4.392, 4.392, 4.392, 4.392, 4.392, 5 4.422, 4.422, 4.422, 4.422, 4.422, 4.422, 4.422, 6 4.453, 4.453, 4.453, 4.453, 4.453, 4.453, 4.453, 7 4.484, 4.484, 4.484, 4.484, 4.484, 4.484, 4.484, 8 4.516, 4.516, 4.516, 4.516, 4.516, 4.516, 4.516, 9 4.548, 4.548, 4.548, 4.548, 4.548, 4.548, 4.548/ DATA PF021/ 1 4.581, 4.581, 4.581, 4.581, 4.581, 4.581, 4.581, 2 4.615, 4.615, 4.615, 4.615, 4.615, 4.615, 4.615, 3 4.648, 4.648, 4.648, 4.648, 4.648, 4.648, 4.648, 4 4.682, 4.682, 4.682, 4.682, 4.682, 4.682, 4.682, 5 4.716, 4.716, 4.716, 4.716, 4.716, 4.716, 4.716, 6 4.749, 4.749, 4.749, 4.749, 4.749, 4.749, 4.749, 7 4.783, 4.783, 4.783, 4.783, 4.783, 4.783, 4.783, 8 4.817, 4.817, 4.817, 4.817, 4.817, 4.817, 4.817, 9 4.867, 4.867, 4.867, 4.867, 4.867, 4.867, 4.867/ DATA PF022/ 1 4.917, 4.917, 4.917, 4.917, 4.917, 4.917, 4.917, 2 4.966, 4.966, 4.966, 4.966, 4.966, 4.966, 4.966, 3 5.014, 5.014, 5.014, 5.014, 5.014, 5.014, 5.014, 4 5.061, 5.061, 5.061, 5.061, 5.061, 5.061, 5.061, 5 5.107, 5.107, 5.107, 5.107, 5.107, 5.107, 5.107, 6 5.152, 5.152, 5.152, 5.152, 5.152, 5.152, 5.152, 7 5.195, 5.195, 5.195, 5.195, 5.195, 5.195, 5.195, 8 5.237, 5.237, 5.237, 5.237, 5.237, 5.237, 5.237, 9 5.277, 5.277, 5.277, 5.277, 5.277, 5.277, 5.277/ DATA PF023/ 1 5.341, 5.341, 5.341, 5.341, 5.341, 5.341, 5.341, 2 5.400, 5.400, 5.400, 5.400, 5.400, 5.400, 5.400, 3 5.456, 5.456, 5.456, 5.456, 5.456, 5.456, 5.456, 4 5.507, 5.507, 5.507, 5.507, 5.507, 5.507, 5.507, 5 5.554, 5.554, 5.554, 5.554, 5.554, 5.554, 5.554, 6 5.597, 5.597, 5.597, 5.597, 5.597, 5.597, 5.597, 7 5.637, 5.637, 5.637, 5.637, 5.637, 5.637, 5.637, 8 5.674, 5.674, 5.674, 5.674, 5.674, 5.674, 5.674, 9 5.708, 5.708, 5.708, 5.708, 5.708, 5.708, 5.708/ DATA PF024/ 1 5.743, 5.743, 5.743, 5.743, 5.743, 5.743, 5.743, 2 5.782, 5.782, 5.782, 5.782, 5.782, 5.782, 5.782, 3 5.837, 5.837, 5.837, 5.837, 5.837, 5.837, 5.837, 4 5.926, 5.926, 5.926, 5.926, 5.926, 5.926, 5.926, 5 6.084, 6.084, 6.084, 6.084, 6.084, 6.083, 6.083, 6 6.374, 6.374, 6.374, 6.374, 6.373, 6.372, 6.368, 7 6.909, 6.909, 6.909, 6.908, 6.906, 6.902, 6.884, 8 7.897, 7.897, 7.896, 7.895, 7.886, 7.872, 7.809, 9 9.718, 9.718, 9.717, 9.712, 9.683, 9.637, 9.440/ DATA PF025/ 1 13.044, 13.044, 13.041, 13.027, 12.942, 12.813, 12.266, 2 18.991, 18.991, 18.982, 18.946, 18.727, 18.400, 17.045, 3 29.280, 29.280, 29.258, 29.174, 28.669, 27.918, 24.875, 4 46.353, 46.353, 46.308, 46.128, 45.061, 43.487, 37.230, 5 73.396, 73.396, 73.306, 72.954, 70.877, 67.832, 55.938, 6 114.209, 114.209, 114.046, 113.406, 109.642, 104.162, 83.077, 7 172.942, 172.942, 172.665, 171.574, 165.183, 155.929, 120.806, 8 253.710, 253.710, 253.264, 251.510, 241.265, 226.503, 171.153, 9 5.678, 5.678, 5.678, 5.678, 5.678, 5.678, 5.678/ DATA PF026/ 1 5.733, 5.733, 5.733, 5.733, 5.733, 5.733, 5.733, 2 5.790, 5.790, 5.790, 5.790, 5.790, 5.790, 5.790, 3 5.849, 5.849, 5.849, 5.849, 5.849, 5.849, 5.849, 4 5.910, 5.910, 5.910, 5.910, 5.910, 5.910, 5.910, 5 5.972, 5.972, 5.972, 5.972, 5.972, 5.972, 5.972, 6 6.035, 6.035, 6.035, 6.035, 6.035, 6.035, 6.035, 7 6.099, 6.099, 6.099, 6.099, 6.099, 6.099, 6.099, 8 6.165, 6.165, 6.165, 6.165, 6.165, 6.165, 6.165, 9 6.231, 6.231, 6.231, 6.231, 6.231, 6.231, 6.231/ DATA PF027/ 1 6.298, 6.298, 6.298, 6.298, 6.298, 6.298, 6.298, 2 6.365, 6.365, 6.365, 6.365, 6.365, 6.365, 6.365, 3 6.433, 6.433, 6.433, 6.433, 6.433, 6.433, 6.433, 4 6.501, 6.501, 6.501, 6.501, 6.501, 6.501, 6.501, 5 6.570, 6.570, 6.570, 6.570, 6.570, 6.570, 6.570, 6 6.639, 6.639, 6.639, 6.639, 6.639, 6.639, 6.639, 7 6.708, 6.708, 6.708, 6.708, 6.708, 6.708, 6.708, 8 6.777, 6.777, 6.777, 6.777, 6.777, 6.777, 6.777, 9 6.847, 6.847, 6.847, 6.847, 6.847, 6.847, 6.847/ DATA PF028/ 1 6.917, 6.917, 6.917, 6.917, 6.917, 6.917, 6.917, 2 7.023, 7.023, 7.023, 7.023, 7.023, 7.023, 7.023, 3 7.130, 7.130, 7.130, 7.130, 7.130, 7.130, 7.130, 4 7.239, 7.239, 7.239, 7.239, 7.239, 7.239, 7.239, 5 7.350, 7.350, 7.350, 7.350, 7.350, 7.350, 7.350, 6 7.463, 7.463, 7.463, 7.463, 7.463, 7.463, 7.463, 7 7.579, 7.579, 7.579, 7.579, 7.579, 7.579, 7.579, 8 7.699, 7.699, 7.699, 7.699, 7.699, 7.699, 7.699, 9 7.822, 7.822, 7.822, 7.822, 7.822, 7.822, 7.822/ DATA PF029/ 1 7.950, 7.950, 7.950, 7.950, 7.950, 7.950, 7.950, 2 8.082, 8.082, 8.082, 8.082, 8.082, 8.082, 8.082, 3 8.312, 8.312, 8.312, 8.312, 8.312, 8.312, 8.312, 4 8.555, 8.555, 8.555, 8.555, 8.555, 8.555, 8.555, 5 8.811, 8.811, 8.811, 8.811, 8.811, 8.811, 8.811, 6 9.078, 9.078, 9.078, 9.078, 9.078, 9.078, 9.078, 7 9.355, 9.355, 9.355, 9.355, 9.355, 9.355, 9.355, 8 9.641, 9.641, 9.641, 9.641, 9.641, 9.641, 9.641, 9 9.932, 9.932, 9.932, 9.932, 9.932, 9.932, 9.932/ DATA PF030/ 1 10.226, 10.226, 10.226, 10.226, 10.226, 10.226, 10.226, 2 10.523, 10.523, 10.523, 10.523, 10.523, 10.523, 10.523, 3 10.821, 10.821, 10.821, 10.821, 10.821, 10.821, 10.821, 4 11.125, 11.125, 11.125, 11.125, 11.125, 11.125, 11.125, 5 11.443, 11.443, 11.443, 11.443, 11.443, 11.443, 11.443, 6 11.792, 11.792, 11.792, 11.792, 11.792, 11.792, 11.792, 7 12.207, 12.207, 12.207, 12.207, 12.207, 12.207, 12.207, 8 12.740, 12.740, 12.740, 12.740, 12.740, 12.740, 12.740, 9 13.484, 13.484, 13.484, 13.484, 13.484, 13.484, 13.483/ DATA PF031/ 1 14.582, 14.582, 14.582, 14.582, 14.582, 14.581, 14.577, 2 16.277, 16.276, 16.275, 16.275, 16.274, 16.269, 16.252, 3 18.975, 18.972, 18.968, 18.967, 18.963, 18.945, 18.883, 4 23.372, 23.363, 23.347, 23.345, 23.332, 23.274, 23.076, 5 30.624, 30.598, 30.553, 30.545, 30.508, 30.342, 29.788, 6 42.569, 42.500, 42.384, 42.364, 42.268, 41.846, 40.458, 7 61.936, 61.776, 61.506, 61.459, 61.235, 60.265, 57.122, 8 92.494, 92.154, 91.580, 91.481, 91.008, 88.967, 82.453, 9 139.043, 138.378, 137.254, 137.060, 136.138, 132.180, 119.707/ DATA PF032/ 1 207.208, 205.997, 203.952, 203.601, 201.928, 194.787, 172.533, 2 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 3 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 5 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 6 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 7 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 8 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 9 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000/ DATA PF033/ 1 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 2 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 3 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 5 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 6 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 7 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 8 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 9 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001/ DATA PF034/ 1 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 2 4.003, 4.003, 4.003, 4.003, 4.003, 4.003, 4.003, 3 4.004, 4.004, 4.004, 4.004, 4.004, 4.004, 4.004, 4 4.007, 4.007, 4.007, 4.007, 4.007, 4.007, 4.007, 5 4.012, 4.012, 4.012, 4.012, 4.012, 4.012, 4.012, 6 4.018, 4.018, 4.018, 4.018, 4.018, 4.018, 4.018, 7 4.028, 4.028, 4.028, 4.028, 4.028, 4.028, 4.028, 8 4.041, 4.041, 4.041, 4.041, 4.041, 4.041, 4.041, 9 4.060, 4.060, 4.060, 4.060, 4.060, 4.060, 4.060/ DATA PF035/ 1 4.085, 4.085, 4.085, 4.085, 4.085, 4.085, 4.085, 2 4.118, 4.118, 4.118, 4.118, 4.118, 4.118, 4.118, 3 4.160, 4.160, 4.160, 4.160, 4.160, 4.160, 4.160, 4 4.213, 4.213, 4.213, 4.213, 4.213, 4.213, 4.213, 5 4.329, 4.329, 4.329, 4.329, 4.329, 4.329, 4.329, 6 4.488, 4.488, 4.488, 4.488, 4.488, 4.488, 4.488, 7 4.696, 4.696, 4.696, 4.696, 4.696, 4.696, 4.696, 8 4.957, 4.957, 4.957, 4.957, 4.957, 4.957, 4.957, 9 5.276, 5.276, 5.276, 5.276, 5.276, 5.276, 5.276/ DATA PF036/ 1 5.654, 5.654, 5.654, 5.654, 5.654, 5.654, 5.654, 2 6.089, 6.089, 6.089, 6.089, 6.089, 6.089, 6.089, 3 6.579, 6.579, 6.579, 6.579, 6.579, 6.579, 6.579, 4 7.119, 7.119, 7.119, 7.119, 7.119, 7.119, 7.119, 5 7.705, 7.705, 7.705, 7.705, 7.705, 7.705, 7.705, 6 8.332, 8.332, 8.332, 8.332, 8.332, 8.332, 8.332, 7 9.000, 9.000, 9.000, 9.000, 9.000, 9.000, 9.000, 8 9.712, 9.712, 9.712, 9.712, 9.712, 9.712, 9.712, 9 10.484, 10.484, 10.484, 10.484, 10.484, 10.484, 10.484/ DATA PF037/ 1 11.340, 11.340, 11.340, 11.340, 11.340, 11.340, 11.340, 2 12.326, 12.326, 12.326, 12.326, 12.326, 12.326, 12.326, 3 13.518, 13.518, 13.518, 13.518, 13.518, 13.518, 13.518, 4 15.028, 15.028, 15.028, 15.028, 15.028, 15.028, 15.027, 5 17.035, 17.035, 17.035, 17.035, 17.034, 17.034, 17.033, 6 19.821, 19.821, 19.821, 19.821, 19.821, 19.819, 19.815, 7 23.845, 23.845, 23.844, 23.843, 23.842, 23.838, 23.822, 8 29.849, 29.848, 29.846, 29.844, 29.838, 29.825, 29.774, 9 39.023, 39.021, 39.016, 39.010, 38.992, 38.952, 38.804/ DATA PF038/ 1 53.190, 53.185, 53.171, 53.156, 53.109, 53.004, 52.625, 2 74.988, 74.975, 74.941, 74.906, 74.795, 74.550, 73.669, 3 107.977, 107.948, 107.876, 107.799, 107.560, 107.035, 105.170, 4 2.283, 2.283, 2.283, 2.283, 2.283, 2.283, 2.283, 5 2.374, 2.374, 2.374, 2.374, 2.374, 2.374, 2.374, 6 2.469, 2.469, 2.469, 2.469, 2.469, 2.469, 2.469, 7 2.567, 2.567, 2.567, 2.567, 2.567, 2.567, 2.567, 8 2.668, 2.668, 2.668, 2.668, 2.668, 2.668, 2.668, 9 2.773, 2.773, 2.773, 2.773, 2.773, 2.773, 2.773/ DATA PF039/ 1 2.880, 2.880, 2.880, 2.880, 2.880, 2.880, 2.880, 2 2.990, 2.990, 2.990, 2.990, 2.990, 2.990, 2.990, 3 3.102, 3.102, 3.102, 3.102, 3.102, 3.102, 3.102, 4 3.217, 3.217, 3.217, 3.217, 3.217, 3.217, 3.217, 5 3.334, 3.334, 3.334, 3.334, 3.334, 3.334, 3.334, 6 3.452, 3.452, 3.452, 3.452, 3.452, 3.452, 3.452, 7 3.573, 3.573, 3.573, 3.573, 3.573, 3.573, 3.573, 8 3.694, 3.694, 3.694, 3.694, 3.694, 3.694, 3.694, 9 3.817, 3.817, 3.817, 3.817, 3.817, 3.817, 3.817/ DATA PF040/ 1 3.941, 3.941, 3.941, 3.941, 3.941, 3.941, 3.941, 2 4.066, 4.066, 4.066, 4.066, 4.066, 4.066, 4.066, 3 4.192, 4.192, 4.192, 4.192, 4.192, 4.192, 4.192, 4 4.318, 4.318, 4.318, 4.318, 4.318, 4.318, 4.318, 5 4.445, 4.445, 4.445, 4.445, 4.445, 4.445, 4.445, 6 4.635, 4.635, 4.635, 4.635, 4.635, 4.635, 4.635, 7 4.826, 4.826, 4.826, 4.826, 4.826, 4.826, 4.826, 8 5.017, 5.017, 5.017, 5.017, 5.017, 5.017, 5.017, 9 5.209, 5.209, 5.209, 5.209, 5.209, 5.209, 5.209/ DATA PF041/ 1 5.401, 5.401, 5.401, 5.401, 5.401, 5.401, 5.401, 2 5.593, 5.593, 5.593, 5.593, 5.593, 5.593, 5.593, 3 5.787, 5.787, 5.787, 5.787, 5.787, 5.787, 5.787, 4 5.981, 5.981, 5.981, 5.981, 5.981, 5.981, 5.981, 5 6.177, 6.177, 6.177, 6.177, 6.177, 6.177, 6.177, 6 6.374, 6.374, 6.374, 6.374, 6.374, 6.374, 6.374, 7 6.707, 6.707, 6.707, 6.707, 6.707, 6.707, 6.707, 8 7.046, 7.046, 7.046, 7.046, 7.046, 7.046, 7.046, 9 7.391, 7.391, 7.391, 7.391, 7.391, 7.391, 7.391/ DATA PF042/ 1 7.743, 7.743, 7.743, 7.743, 7.743, 7.743, 7.743, 2 8.099, 8.099, 8.099, 8.099, 8.099, 8.099, 8.099, 3 8.460, 8.460, 8.460, 8.460, 8.460, 8.460, 8.460, 4 8.825, 8.825, 8.825, 8.825, 8.825, 8.825, 8.825, 5 9.193, 9.193, 9.193, 9.193, 9.193, 9.193, 9.193, 6 9.563, 9.563, 9.563, 9.563, 9.563, 9.563, 9.563, 7 9.940, 9.940, 9.940, 9.940, 9.940, 9.940, 9.940, 8 10.327, 10.327, 10.327, 10.327, 10.327, 10.327, 10.327, 9 10.733, 10.733, 10.733, 10.733, 10.733, 10.733, 10.733/ DATA PF043/ 1 11.171, 11.171, 11.171, 11.171, 11.171, 11.171, 11.171, 2 11.662, 11.662, 11.662, 11.662, 11.662, 11.662, 11.662, 3 12.233, 12.233, 12.233, 12.233, 12.233, 12.233, 12.233, 4 12.922, 12.922, 12.922, 12.922, 12.922, 12.922, 12.922, 5 13.783, 13.783, 13.783, 13.783, 13.783, 13.783, 13.783, 6 14.889, 14.889, 14.889, 14.889, 14.889, 14.889, 14.889, 7 16.345, 16.345, 16.345, 16.345, 16.345, 16.345, 16.345, 8 18.301, 18.301, 18.301, 18.301, 18.301, 18.301, 18.301, 9 20.976, 20.976, 20.976, 20.976, 20.976, 20.976, 20.976/ DATA PF044/ 1 24.698, 24.697, 24.697, 24.697, 24.697, 24.696, 24.695, 2 29.957, 29.956, 29.956, 29.956, 29.956, 29.953, 29.949, 3 37.491, 37.488, 37.488, 37.488, 37.488, 37.477, 37.465, 4 48.370, 48.362, 48.362, 48.362, 48.361, 48.333, 48.300, 5 64.090, 64.068, 64.068, 64.068, 64.067, 63.999, 63.919, 6 2.206, 2.206, 2.206, 2.206, 2.206, 2.206, 2.206, 7 2.235, 2.235, 2.235, 2.235, 2.235, 2.235, 2.235, 8 2.267, 2.267, 2.267, 2.267, 2.267, 2.267, 2.267, 9 2.302, 2.302, 2.302, 2.302, 2.302, 2.302, 2.302/ DATA PF045/ 1 2.339, 2.339, 2.339, 2.339, 2.339, 2.339, 2.339, 2 2.379, 2.379, 2.379, 2.379, 2.379, 2.379, 2.379, 3 2.421, 2.421, 2.421, 2.421, 2.421, 2.421, 2.421, 4 2.466, 2.466, 2.466, 2.466, 2.466, 2.466, 2.466, 5 2.514, 2.514, 2.514, 2.514, 2.514, 2.514, 2.514, 6 2.563, 2.563, 2.563, 2.563, 2.563, 2.563, 2.563, 7 2.615, 2.615, 2.615, 2.615, 2.615, 2.615, 2.615, 8 2.669, 2.669, 2.669, 2.669, 2.669, 2.669, 2.669, 9 2.725, 2.725, 2.725, 2.725, 2.725, 2.725, 2.725/ DATA PF046/ 1 2.783, 2.783, 2.783, 2.783, 2.783, 2.783, 2.783, 2 2.843, 2.843, 2.843, 2.843, 2.843, 2.843, 2.843, 3 2.904, 2.904, 2.904, 2.904, 2.904, 2.904, 2.904, 4 2.967, 2.967, 2.967, 2.967, 2.967, 2.967, 2.967, 5 3.031, 3.031, 3.031, 3.031, 3.031, 3.031, 3.031, 6 3.095, 3.095, 3.095, 3.095, 3.095, 3.095, 3.095, 7 3.161, 3.161, 3.161, 3.161, 3.161, 3.161, 3.161, 8 3.261, 3.261, 3.261, 3.261, 3.261, 3.261, 3.261, 9 3.362, 3.362, 3.362, 3.362, 3.362, 3.362, 3.362/ DATA PF047/ 1 3.464, 3.464, 3.464, 3.464, 3.464, 3.464, 3.464, 2 3.565, 3.565, 3.565, 3.565, 3.565, 3.565, 3.565, 3 3.666, 3.666, 3.666, 3.666, 3.666, 3.666, 3.666, 4 3.767, 3.767, 3.767, 3.767, 3.767, 3.767, 3.767, 5 3.866, 3.866, 3.866, 3.866, 3.866, 3.866, 3.866, 6 3.963, 3.963, 3.963, 3.963, 3.963, 3.963, 3.963, 7 4.059, 4.059, 4.059, 4.059, 4.059, 4.059, 4.059, 8 4.152, 4.152, 4.152, 4.152, 4.152, 4.152, 4.152, 9 4.302, 4.302, 4.302, 4.302, 4.302, 4.302, 4.302/ DATA PF048/ 1 4.445, 4.445, 4.445, 4.445, 4.445, 4.445, 4.445, 2 4.579, 4.579, 4.579, 4.579, 4.579, 4.579, 4.579, 3 4.705, 4.705, 4.705, 4.705, 4.705, 4.705, 4.705, 4 4.823, 4.823, 4.823, 4.823, 4.823, 4.823, 4.823, 5 4.933, 4.933, 4.933, 4.933, 4.933, 4.933, 4.933, 6 5.035, 5.035, 5.035, 5.035, 5.035, 5.035, 5.035, 7 5.132, 5.132, 5.132, 5.132, 5.132, 5.132, 5.132, 8 5.226, 5.226, 5.226, 5.226, 5.226, 5.226, 5.226, 9 5.323, 5.323, 5.323, 5.323, 5.323, 5.323, 5.323/ DATA PF049/ 1 5.427, 5.427, 5.427, 5.427, 5.427, 5.427, 5.427, 2 5.549, 5.549, 5.549, 5.549, 5.549, 5.549, 5.549, 3 5.701, 5.701, 5.701, 5.701, 5.701, 5.701, 5.701, 4 5.898, 5.898, 5.898, 5.898, 5.898, 5.898, 5.898, 5 6.157, 6.157, 6.157, 6.157, 6.157, 6.157, 6.157, 6 6.498, 6.498, 6.498, 6.498, 6.498, 6.498, 6.498, 7 6.949, 6.949, 6.949, 6.949, 6.949, 6.949, 6.949, 8 7.540, 7.540, 7.540, 7.540, 7.540, 7.540, 7.540, 9 8.316, 8.316, 8.316, 8.316, 8.316, 8.316, 8.316/ DATA PF050/ 1 9.333, 9.333, 9.333, 9.333, 9.333, 9.333, 9.333, 2 10.673, 10.673, 10.673, 10.673, 10.673, 10.673, 10.673, 3 12.449, 12.449, 12.449, 12.449, 12.449, 12.449, 12.449, 4 14.822, 14.822, 14.822, 14.822, 14.822, 14.822, 14.821, 5 18.016, 18.016, 18.016, 18.015, 18.015, 18.014, 18.012, 6 22.346, 22.346, 22.346, 22.344, 22.343, 22.341, 22.333, 7 28.243, 28.243, 28.243, 28.240, 28.237, 28.230, 28.209, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF051/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF052/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF053/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF054/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 9 1.002, 1.002, 1.002, 1.002, 1.002, 1.002, 1.002/ DATA PF055/ 1 1.005, 1.005, 1.005, 1.005, 1.005, 1.005, 1.005, 2 1.012, 1.012, 1.012, 1.012, 1.012, 1.012, 1.012, 3 1.024, 1.024, 1.024, 1.024, 1.024, 1.024, 1.024, 4 1.047, 1.047, 1.047, 1.047, 1.047, 1.047, 1.047, 5 1.084, 1.084, 1.084, 1.084, 1.084, 1.084, 1.084, 6 1.142, 1.142, 1.142, 1.142, 1.142, 1.142, 1.142, 7 1.228, 1.228, 1.228, 1.228, 1.228, 1.228, 1.228, 8 1.350, 1.350, 1.350, 1.350, 1.350, 1.350, 1.350, 9 1.517, 1.517, 1.517, 1.517, 1.517, 1.517, 1.517/ DATA PF056/ 1 1.739, 1.739, 1.739, 1.739, 1.739, 1.739, 1.739, 2 2.028, 2.028, 2.028, 2.028, 2.028, 2.028, 2.028, 3 2.400, 2.400, 2.400, 2.400, 2.400, 2.400, 2.400, 4 2.876, 2.876, 2.876, 2.876, 2.876, 2.876, 2.876, 5 3.482, 3.482, 3.482, 3.482, 3.482, 3.482, 3.482, 6 4.256, 4.256, 4.256, 4.256, 4.256, 4.256, 4.256, 7 5.249, 5.249, 5.249, 5.249, 5.249, 5.249, 5.248, 8 6.533, 6.533, 6.533, 6.533, 6.533, 6.532, 6.532, 9 8.219, 8.219, 8.218, 8.218, 8.218, 8.216, 8.215/ DATA PF057/ 1 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 3 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 4 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 5 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 6 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 7 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 8 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 9 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000/ DATA PF058/ 1 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 3 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 4 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 5 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 6 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 7 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 8 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 9 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000/ DATA PF059/ 1 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 3 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 4 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 5 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 6 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 7 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 8 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 9 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000/ DATA PF060/ 1 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 3 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 4 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 5 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 6 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 7 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 8 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 9 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000/ DATA PF061/ 1 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 2.000, 3 2.001, 2.001, 2.001, 2.001, 2.001, 2.001, 2.001, 4 2.002, 2.002, 2.002, 2.002, 2.002, 2.002, 2.002, 5 2.004, 2.004, 2.004, 2.004, 2.004, 2.004, 2.004, 6 2.010, 2.010, 2.010, 2.010, 2.010, 2.010, 2.010, 7 2.020, 2.020, 2.020, 2.020, 2.020, 2.020, 2.020, 8 2.037, 2.037, 2.037, 2.037, 2.037, 2.037, 2.037, 9 2.064, 2.064, 2.064, 2.064, 2.064, 2.064, 2.064/ DATA PF062/ 1 2.105, 2.105, 2.105, 2.105, 2.105, 2.105, 2.105, 2 2.165, 2.165, 2.165, 2.165, 2.165, 2.165, 2.165, 3 2.246, 2.246, 2.246, 2.246, 2.246, 2.246, 2.246, 4 2.353, 2.353, 2.353, 2.353, 2.353, 2.353, 2.353, 5 2.491, 2.491, 2.491, 2.491, 2.491, 2.491, 2.491, 6 2.663, 2.663, 2.663, 2.663, 2.663, 2.663, 2.663, 7 2.874, 2.874, 2.874, 2.874, 2.874, 2.874, 2.874, 8 3.128, 3.128, 3.128, 3.128, 3.128, 3.128, 3.128, 9 3.430, 3.430, 3.430, 3.430, 3.430, 3.430, 3.430/ DATA PF063/ 1 3.787, 3.787, 3.787, 3.787, 3.787, 3.787, 3.787, 2 4.211, 4.211, 4.211, 4.211, 4.211, 4.211, 4.211, 3 9.354, 9.354, 9.354, 9.354, 9.354, 9.354, 9.354, 4 9.387, 9.387, 9.387, 9.387, 9.387, 9.387, 9.387, 5 9.421, 9.421, 9.421, 9.421, 9.421, 9.421, 9.421, 6 9.457, 9.457, 9.457, 9.457, 9.457, 9.457, 9.457, 7 9.495, 9.495, 9.495, 9.495, 9.495, 9.495, 9.495, 8 9.537, 9.537, 9.537, 9.537, 9.537, 9.537, 9.537, 9 9.584, 9.584, 9.584, 9.584, 9.584, 9.584, 9.584/ DATA PF064/ 1 9.637, 9.637, 9.637, 9.637, 9.637, 9.637, 9.637, 2 9.699, 9.699, 9.699, 9.699, 9.699, 9.699, 9.698, 3 9.772, 9.772, 9.772, 9.772, 9.772, 9.772, 9.770, 4 9.858, 9.858, 9.858, 9.858, 9.858, 9.858, 9.855, 5 9.960, 9.960, 9.960, 9.960, 9.960, 9.960, 9.957, 6 10.083, 10.082, 10.082, 10.082, 10.082, 10.082, 10.077, 7 10.229, 10.229, 10.229, 10.229, 10.229, 10.229, 10.220, 8 10.403, 10.403, 10.403, 10.403, 10.403, 10.403, 10.390, 9 10.611, 10.611, 10.611, 10.611, 10.611, 10.610, 10.592/ DATA PF065/ 1 10.858, 10.858, 10.858, 10.858, 10.857, 10.856, 10.829, 2 11.150, 11.150, 11.150, 11.149, 11.149, 11.147, 11.108, 3 11.494, 11.494, 11.493, 11.492, 11.491, 11.488, 11.433, 4 11.898, 11.897, 11.896, 11.895, 11.892, 11.887, 11.809, 5 12.634, 12.634, 12.629, 12.626, 12.621, 12.609, 12.483, 6 13.561, 13.559, 13.548, 13.541, 13.529, 13.503, 13.303, 7 14.722, 14.717, 14.693, 14.675, 14.649, 14.599, 14.289, 8 16.177, 16.167, 16.112, 16.074, 16.019, 15.926, 15.457, 9 18.008, 17.987, 17.870, 17.792, 17.683, 17.517, 16.822/ DATA PF066/ 1 20.329, 20.285, 20.051, 19.897, 19.690, 19.404, 18.397, 2 23.296, 23.212, 22.763, 22.472, 22.095, 21.620, 20.191, 3 27.127, 26.973, 26.148, 25.621, 24.963, 24.200, 22.210, 4 32.117, 31.843, 30.389, 29.471, 28.364, 27.175, 24.459, 5 38.653, 38.183, 35.717, 34.176, 32.377, 30.578, 26.934, 6 54.380, 53.319, 47.808, 44.423, 40.654, 37.275, 31.551, 7 78.870, 76.678, 65.393, 58.565, 51.278, 45.346, 36.743, 8 116.106, 111.918, 90.544, 77.783, 64.665, 54.864, 42.444, 9 170.857, 163.400, 125.634, 103.350, 81.194, 65.852, 48.570/ DATA PF067/ 1 248.339, 235.867, 173.143, 136.519, 101.164, 78.280, 55.027, 2 353.721, 333.997, 235.411, 178.384, 124.757, 92.065, 61.714, 3 491.573, 461.898, 314.381, 229.759, 152.010, 107.070, 68.531, 4 665.346, 622.639, 411.369, 291.073, 182.806, 123.117, 75.382, 5 876.975, 817.898, 526.913, 362.321, 216.879, 139.995, 82.182, 6 1126.658, 1047.769, 660.704, 443.051, 253.832, 157.477, 88.852, 7 1412.836, 1310.754, 811.612, 532.405, 293.168, 175.325, 95.330, 8 1732.350, 1603.906, 977.792, 629.193, 334.323, 193.308, 101.564, 9 2080.733, 1923.106,1156.840, 731.982, 376.702, 211.209, 107.513/ DATA PF068/ 1 2452.574, 2263.394,1345.978, 839.197, 419.712, 228.834, 113.150, 2 2841.920, 2619.331,1542.244, 949.224, 462.790, 246.011, 118.455, 3 3242.643, 2985.336,1742.662,1060.485, 505.420, 262.602, 123.419, 4 3648.772, 3355.984,1944.389,1171.511, 547.151, 278.493, 128.039, 5 4054.742, 3726.227,2144.821,1280.989, 587.605, 293.601, 132.320, 6 4455.578, 4091.563,2341.668,1387.789, 626.476, 307.869, 136.270, 7 4847.004, 4448.129,2532.996,1490.979, 663.531, 321.261, 139.900, 8 5225.494, 4792.746,2717.237,1589.826, 698.605, 333.763, 143.226, 9 5588.269, 5122.915,2893.184,1683.784, 731.590, 345.377, 146.264/ DATA PF069/ 1 5933.259, 5436.779,3059.966,1772.481, 762.435, 356.119, 149.031, 2 6259.042, 5733.071,3217.014,1855.695, 791.131, 366.015, 151.546, 3 6564.769, 6011.041,3364.020,1933.335, 817.704, 375.099, 153.827, 4 6850.075, 6270.376,3500.899,2005.419, 842.212, 383.413, 155.891, 5 15.556, 15.556, 15.556, 15.556, 15.556, 15.556, 15.556, 6 15.791, 15.791, 15.791, 15.791, 15.791, 15.791, 15.791, 7 16.041, 16.041, 16.041, 16.041, 16.041, 16.041, 16.041, 8 16.305, 16.305, 16.305, 16.305, 16.305, 16.305, 16.305, 9 16.584, 16.584, 16.584, 16.584, 16.584, 16.584, 16.584/ DATA PF070/ 1 16.878, 16.878, 16.878, 16.878, 16.878, 16.878, 16.878, 2 17.189, 17.189, 17.189, 17.189, 17.189, 17.189, 17.189, 3 17.515, 17.515, 17.515, 17.515, 17.515, 17.515, 17.515, 4 17.859, 17.859, 17.859, 17.859, 17.859, 17.859, 17.859, 5 18.219, 18.219, 18.219, 18.219, 18.219, 18.219, 18.219, 6 18.596, 18.596, 18.596, 18.596, 18.596, 18.596, 18.596, 7 18.990, 18.990, 18.990, 18.990, 18.990, 18.990, 18.990, 8 19.402, 19.402, 19.402, 19.402, 19.402, 19.402, 19.402, 9 19.832, 19.832, 19.832, 19.832, 19.832, 19.832, 19.832/ DATA PF071/ 1 20.280, 20.280, 20.280, 20.280, 20.280, 20.280, 20.280, 2 20.746, 20.746, 20.746, 20.746, 20.746, 20.746, 20.746, 3 21.230, 21.230, 21.230, 21.230, 21.230, 21.230, 21.230, 4 21.732, 21.732, 21.732, 21.732, 21.732, 21.732, 21.732, 5 22.254, 22.254, 22.254, 22.254, 22.254, 22.254, 22.254, 6 22.794, 22.794, 22.794, 22.794, 22.794, 22.794, 22.794, 7 23.641, 23.641, 23.641, 23.641, 23.641, 23.641, 23.641, 8 24.534, 24.534, 24.534, 24.534, 24.534, 24.534, 24.534, 9 25.473, 25.473, 25.473, 25.473, 25.473, 25.473, 25.473/ DATA PF072/ 1 26.461, 26.461, 26.461, 26.461, 26.461, 26.461, 26.461, 2 27.501, 27.501, 27.501, 27.501, 27.501, 27.501, 27.501, 3 28.598, 28.598, 28.598, 28.598, 28.598, 28.598, 28.597, 4 29.754, 29.754, 29.754, 29.754, 29.754, 29.754, 29.753, 5 30.976, 30.976, 30.976, 30.976, 30.976, 30.976, 30.974, 6 32.271, 32.271, 32.271, 32.271, 32.270, 32.269, 32.266, 7 33.647, 33.647, 33.647, 33.647, 33.645, 33.642, 33.635, 8 36.156, 36.156, 36.156, 36.156, 36.145, 36.132, 36.110, 9 39.018, 39.018, 39.018, 39.018, 38.976, 38.931, 38.862/ DATA PF073/ 1 42.411, 42.411, 42.411, 42.409, 42.271, 42.128, 41.943, 2 46.669, 46.669, 46.669, 46.665, 46.260, 45.863, 45.412, 3 52.393, 52.392, 52.392, 52.382, 51.324, 50.338, 49.341, 4 60.565, 60.564, 60.564, 60.540, 58.053, 55.830, 53.805, 5 72.662, 72.661, 72.661, 72.608, 67.280, 62.695, 58.880, 6 90.709, 90.706, 90.706, 90.600, 80.095, 71.350, 64.635, 7 117.238, 117.232, 117.232, 117.035, 97.795, 82.245, 71.122, 8 155.145, 155.135, 155.135, 154.792, 121.798, 95.819, 78.368, 9 207.440, 207.424, 207.424, 206.863, 153.505, 112.455, 86.372/ DATA PF074/ 1 276.943, 276.918, 276.918, 276.047, 194.150, 132.429, 95.097, 2 365.969, 365.932, 365.932, 364.643, 244.663, 155.882, 104.478, 3 476.062, 476.010, 476.010, 474.181, 305.559, 182.799, 114.419, 4 607.823, 607.751, 607.751, 605.255, 376.879, 213.005, 124.807, 5 760.843, 760.746, 760.746, 757.453, 458.184, 246.185, 135.512, 6 933.747, 933.622, 933.622, 929.404, 548.596, 281.905, 146.401, 7 1124.328, 1124.172,1124.172,1118.914, 646.881, 319.652, 157.341, 8 1329.741, 1329.550,1329.550,1323.151, 751.544, 358.862, 168.207, 9 1546.723, 1546.495,1546.495,1538.872, 860.944, 398.963, 178.885/ DATA PF075/ 1 1771.815, 1771.547,1771.547,1762.637, 973.389, 439.396, 189.277, 2 2001.563, 2001.254,2001.254,1991.015,1087.234, 479.645, 199.302, 3 2232.679, 2232.328,2232.328,2220.738,1200.942, 519.249, 208.895, 4 2462.169, 2461.775,2461.775,2448.832,1313.141, 557.815, 218.007, 5 2687.408, 2686.972,2686.972,2672.690,1422.651, 595.020, 226.606, 6 2906.191, 2905.714,2905.714,2890.122,1528.502, 630.610, 234.672, 7 9.237, 9.237, 9.237, 9.237, 9.237, 9.237, 9.237, 8 9.269, 9.269, 9.269, 9.269, 9.269, 9.269, 9.269, 9 9.300, 9.300, 9.300, 9.300, 9.300, 9.300, 9.300/ DATA PF076/ 1 9.329, 9.329, 9.329, 9.329, 9.329, 9.329, 9.329, 2 9.358, 9.358, 9.358, 9.358, 9.358, 9.358, 9.358, 3 9.385, 9.385, 9.385, 9.385, 9.385, 9.385, 9.385, 4 9.411, 9.411, 9.411, 9.411, 9.411, 9.411, 9.411, 5 9.437, 9.437, 9.437, 9.437, 9.437, 9.437, 9.437, 6 9.461, 9.461, 9.461, 9.461, 9.461, 9.461, 9.461, 7 9.484, 9.484, 9.484, 9.484, 9.484, 9.484, 9.484, 8 9.506, 9.506, 9.506, 9.506, 9.506, 9.506, 9.506, 9 9.528, 9.528, 9.528, 9.528, 9.528, 9.528, 9.528/ DATA PF077/ 1 9.548, 9.548, 9.548, 9.548, 9.548, 9.548, 9.548, 2 9.568, 9.568, 9.568, 9.568, 9.568, 9.568, 9.568, 3 9.587, 9.587, 9.587, 9.587, 9.587, 9.587, 9.587, 4 9.605, 9.605, 9.605, 9.605, 9.605, 9.605, 9.605, 5 9.622, 9.622, 9.622, 9.622, 9.622, 9.622, 9.622, 6 9.639, 9.639, 9.639, 9.639, 9.639, 9.639, 9.639, 7 9.655, 9.655, 9.655, 9.655, 9.655, 9.655, 9.655, 8 9.670, 9.670, 9.670, 9.670, 9.670, 9.670, 9.670, 9 9.693, 9.693, 9.693, 9.693, 9.693, 9.693, 9.693/ DATA PF078/ 1 9.714, 9.714, 9.714, 9.714, 9.714, 9.714, 9.714, 2 9.735, 9.735, 9.735, 9.735, 9.735, 9.735, 9.735, 3 9.755, 9.755, 9.755, 9.755, 9.755, 9.755, 9.755, 4 9.775, 9.775, 9.775, 9.775, 9.775, 9.775, 9.775, 5 9.795, 9.795, 9.795, 9.795, 9.795, 9.795, 9.795, 6 9.816, 9.816, 9.816, 9.816, 9.816, 9.816, 9.816, 7 9.837, 9.837, 9.837, 9.837, 9.837, 9.837, 9.837, 8 9.859, 9.859, 9.859, 9.859, 9.859, 9.859, 9.859, 9 9.883, 9.883, 9.883, 9.883, 9.883, 9.883, 9.883/ DATA PF079/ 1 9.927, 9.927, 9.927, 9.927, 9.927, 9.927, 9.927, 2 9.979, 9.979, 9.979, 9.979, 9.979, 9.979, 9.979, 3 10.039, 10.039, 10.039, 10.039, 10.039, 10.039, 10.039, 4 10.112, 10.112, 10.112, 10.112, 10.112, 10.112, 10.111, 5 10.199, 10.199, 10.199, 10.199, 10.199, 10.199, 10.198, 6 10.305, 10.305, 10.305, 10.305, 10.305, 10.305, 10.304, 7 10.439, 10.439, 10.439, 10.439, 10.439, 10.437, 10.435, 8 10.615, 10.615, 10.615, 10.615, 10.615, 10.607, 10.599, 9 10.857, 10.857, 10.857, 10.857, 10.857, 10.832, 10.810/ DATA PF080/ 1 11.216, 11.216, 11.216, 11.216, 11.216, 11.144, 11.087, 2 11.774, 11.774, 11.774, 11.774, 11.774, 11.592, 11.455, 3 12.664, 12.664, 12.664, 12.664, 12.664, 12.248, 11.950, 4 14.076, 14.076, 14.076, 14.076, 14.076, 13.210, 12.614, 5 16.266, 16.266, 16.266, 16.266, 16.266, 14.599, 13.493, 6 19.542, 19.542, 19.542, 19.542, 19.542, 16.553, 14.635, 7 24.247, 24.247, 24.247, 24.247, 24.247, 19.219, 16.085, 8 30.728, 30.728, 30.728, 30.728, 30.728, 22.733, 17.878, 9 39.295, 39.295, 39.295, 39.295, 39.295, 27.209, 20.037/ DATA PF081/ 1 50.193, 50.193, 50.193, 50.193, 50.193, 32.723, 22.568, 2 63.569, 63.569, 63.569, 63.569, 63.569, 39.308, 25.462, 3 79.455, 79.455, 79.455, 79.455, 79.455, 46.945, 28.692, 4 97.769, 97.769, 97.769, 97.769, 97.769, 55.571, 32.220, 5 118.322, 118.322, 118.322, 118.322, 118.322, 65.078, 35.994, 6 140.832, 140.832, 140.832, 140.832, 140.832, 75.330, 39.958, 7 164.953, 164.953, 164.953, 164.953, 164.953, 86.164, 44.052, 8 190.298, 190.298, 190.298, 190.298, 190.298, 97.412, 48.216, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF082/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF083/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF084/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF085/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF086/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 4 1.002, 1.002, 1.002, 1.002, 1.002, 1.002, 1.002, 5 1.006, 1.006, 1.006, 1.006, 1.006, 1.006, 1.006, 6 1.015, 1.015, 1.015, 1.015, 1.015, 1.015, 1.015, 7 1.039, 1.039, 1.039, 1.039, 1.039, 1.039, 1.038, 8 1.089, 1.089, 1.089, 1.089, 1.089, 1.089, 1.089, 9 1.195, 1.195, 1.195, 1.195, 1.195, 1.195, 1.191/ DATA PF087/ 1 1.408, 1.408, 1.408, 1.408, 1.408, 1.408, 1.392, 2 1.831, 1.831, 1.831, 1.831, 1.830, 1.829, 1.775, 3 2.656, 2.656, 2.656, 2.656, 2.655, 2.649, 2.485, 4 4.233, 4.233, 4.233, 4.232, 4.229, 4.214, 3.769, 5 7.146, 7.146, 7.146, 7.143, 7.137, 7.097, 6.017, 6 12.293, 12.293, 12.293, 12.286, 12.272, 12.184, 9.799, 7 20.942, 20.942, 20.942, 20.927, 20.897, 20.716, 15.886, 8 34.722, 34.722, 34.722, 34.693, 34.636, 34.293, 25.233, 9 55.558, 55.558, 55.558, 55.507, 55.403, 54.796, 38.927/ DATA PF088/ 1 85.515, 85.515, 85.515, 85.429, 85.256, 84.245, 58.092, 2 4.102, 4.102, 4.102, 4.102, 4.102, 4.102, 4.102, 3 4.116, 4.116, 4.116, 4.116, 4.116, 4.116, 4.116, 4 4.132, 4.132, 4.132, 4.132, 4.132, 4.132, 4.132, 5 4.149, 4.149, 4.149, 4.149, 4.149, 4.149, 4.149, 6 4.168, 4.168, 4.168, 4.168, 4.168, 4.168, 4.168, 7 4.188, 4.188, 4.188, 4.188, 4.188, 4.188, 4.188, 8 4.209, 4.209, 4.209, 4.209, 4.209, 4.209, 4.209, 9 4.231, 4.231, 4.231, 4.231, 4.231, 4.231, 4.231/ DATA PF089/ 1 4.255, 4.255, 4.255, 4.255, 4.255, 4.255, 4.255, 2 4.279, 4.279, 4.279, 4.279, 4.279, 4.279, 4.279, 3 4.305, 4.305, 4.305, 4.305, 4.305, 4.305, 4.305, 4 4.332, 4.332, 4.332, 4.332, 4.332, 4.332, 4.332, 5 4.360, 4.360, 4.360, 4.360, 4.360, 4.360, 4.360, 6 4.389, 4.389, 4.389, 4.389, 4.389, 4.389, 4.389, 7 4.419, 4.419, 4.419, 4.419, 4.419, 4.419, 4.419, 8 4.449, 4.449, 4.449, 4.449, 4.449, 4.449, 4.449, 9 4.481, 4.481, 4.481, 4.481, 4.481, 4.481, 4.481/ DATA PF090/ 1 4.513, 4.513, 4.513, 4.513, 4.513, 4.513, 4.513, 2 4.545, 4.545, 4.545, 4.545, 4.545, 4.545, 4.545, 3 4.578, 4.578, 4.578, 4.578, 4.578, 4.578, 4.578, 4 4.628, 4.628, 4.628, 4.628, 4.628, 4.628, 4.628, 5 4.678, 4.678, 4.678, 4.678, 4.678, 4.678, 4.678, 6 4.729, 4.729, 4.729, 4.729, 4.729, 4.729, 4.729, 7 4.780, 4.780, 4.780, 4.780, 4.780, 4.780, 4.780, 8 4.830, 4.830, 4.830, 4.830, 4.830, 4.830, 4.830, 9 4.880, 4.880, 4.880, 4.880, 4.880, 4.880, 4.880/ DATA PF091/ 1 4.930, 4.930, 4.930, 4.930, 4.930, 4.930, 4.930, 2 4.979, 4.979, 4.979, 4.979, 4.979, 4.979, 4.979, 3 5.027, 5.027, 5.027, 5.027, 5.027, 5.027, 5.027, 4 5.073, 5.073, 5.073, 5.073, 5.073, 5.073, 5.073, 5 5.149, 5.149, 5.149, 5.149, 5.149, 5.149, 5.149, 6 5.220, 5.220, 5.220, 5.220, 5.220, 5.220, 5.220, 7 5.287, 5.287, 5.287, 5.287, 5.287, 5.287, 5.287, 8 5.350, 5.350, 5.350, 5.350, 5.350, 5.350, 5.350, 9 5.409, 5.409, 5.409, 5.409, 5.409, 5.409, 5.409/ DATA PF092/ 1 5.464, 5.464, 5.464, 5.464, 5.464, 5.464, 5.464, 2 5.515, 5.515, 5.515, 5.515, 5.515, 5.515, 5.515, 3 5.561, 5.561, 5.561, 5.561, 5.561, 5.561, 5.561, 4 5.604, 5.604, 5.604, 5.604, 5.604, 5.604, 5.604, 5 5.645, 5.645, 5.645, 5.645, 5.645, 5.645, 5.645, 6 5.684, 5.684, 5.684, 5.684, 5.684, 5.684, 5.684, 7 5.726, 5.726, 5.726, 5.726, 5.726, 5.726, 5.726, 8 5.779, 5.779, 5.779, 5.779, 5.779, 5.779, 5.779, 9 5.858, 5.858, 5.858, 5.858, 5.858, 5.858, 5.858/ DATA PF093/ 1 5.990, 5.990, 5.990, 5.990, 5.990, 5.990, 5.990, 2 6.221, 6.221, 6.221, 6.221, 6.221, 6.221, 6.221, 3 6.622, 6.622, 6.622, 6.622, 6.622, 6.622, 6.621, 4 7.315, 7.315, 7.315, 7.315, 7.315, 7.314, 7.311, 5 8.505, 8.505, 8.505, 8.505, 8.504, 8.502, 8.490, 6 10.554, 10.554, 10.553, 10.551, 10.549, 10.542, 10.500, 7 14.092, 14.092, 14.088, 14.082, 14.075, 14.055, 13.924, 8 20.178, 20.177, 20.168, 20.151, 20.130, 20.074, 19.717, 9 30.487, 30.485, 30.462, 30.420, 30.368, 30.230, 29.357/ DATA PF094/ 1 47.479, 47.474, 47.423, 47.327, 47.210, 46.900, 44.965, 2 74.482, 74.472, 74.366, 74.167, 73.927, 73.290, 69.356, 3 115.643, 115.624, 115.421, 115.040, 114.581, 113.371, 105.967, 4 5.346, 5.346, 5.346, 5.346, 5.346, 5.346, 5.346, 5 5.386, 5.386, 5.386, 5.386, 5.386, 5.386, 5.386, 6 5.428, 5.428, 5.428, 5.428, 5.428, 5.428, 5.428, 7 5.472, 5.472, 5.472, 5.472, 5.472, 5.472, 5.472, 8 5.519, 5.519, 5.519, 5.519, 5.519, 5.519, 5.519, 9 5.568, 5.568, 5.568, 5.568, 5.568, 5.568, 5.568/ DATA PF095/ 1 5.620, 5.620, 5.620, 5.620, 5.620, 5.620, 5.620, 2 5.673, 5.673, 5.673, 5.673, 5.673, 5.673, 5.673, 3 5.729, 5.729, 5.729, 5.729, 5.729, 5.729, 5.729, 4 5.786, 5.786, 5.786, 5.786, 5.786, 5.786, 5.786, 5 5.846, 5.846, 5.846, 5.846, 5.846, 5.846, 5.846, 6 5.906, 5.906, 5.906, 5.906, 5.906, 5.906, 5.906, 7 5.969, 5.969, 5.969, 5.969, 5.969, 5.969, 5.969, 8 6.032, 6.032, 6.032, 6.032, 6.032, 6.032, 6.032, 9 6.097, 6.097, 6.097, 6.097, 6.097, 6.097, 6.097/ DATA PF096/ 1 6.163, 6.163, 6.163, 6.163, 6.163, 6.163, 6.163, 2 6.230, 6.230, 6.230, 6.230, 6.230, 6.230, 6.230, 3 6.298, 6.298, 6.298, 6.298, 6.298, 6.298, 6.298, 4 6.367, 6.367, 6.367, 6.367, 6.367, 6.367, 6.367, 5 6.437, 6.437, 6.437, 6.437, 6.437, 6.437, 6.437, 6 6.543, 6.543, 6.543, 6.543, 6.543, 6.543, 6.543, 7 6.651, 6.651, 6.651, 6.651, 6.651, 6.651, 6.651, 8 6.762, 6.762, 6.762, 6.762, 6.762, 6.762, 6.762, 9 6.874, 6.874, 6.874, 6.874, 6.874, 6.874, 6.874/ DATA PF097/ 1 6.989, 6.989, 6.989, 6.989, 6.989, 6.989, 6.989, 2 7.106, 7.106, 7.106, 7.106, 7.106, 7.106, 7.106, 3 7.227, 7.227, 7.227, 7.227, 7.227, 7.227, 7.227, 4 7.351, 7.351, 7.351, 7.351, 7.351, 7.351, 7.351, 5 7.479, 7.479, 7.479, 7.479, 7.479, 7.479, 7.479, 6 7.611, 7.611, 7.611, 7.611, 7.611, 7.611, 7.611, 7 7.842, 7.842, 7.842, 7.842, 7.842, 7.842, 7.842, 8 8.085, 8.085, 8.085, 8.085, 8.085, 8.085, 8.085, 9 8.341, 8.341, 8.341, 8.341, 8.341, 8.341, 8.341/ DATA PF098/ 1 8.610, 8.610, 8.610, 8.610, 8.610, 8.610, 8.610, 2 8.890, 8.890, 8.890, 8.890, 8.890, 8.890, 8.890, 3 9.180, 9.180, 9.180, 9.180, 9.180, 9.180, 9.180, 4 9.477, 9.477, 9.477, 9.477, 9.477, 9.477, 9.477, 5 9.780, 9.780, 9.780, 9.780, 9.780, 9.780, 9.780, 6 10.085, 10.085, 10.085, 10.085, 10.085, 10.085, 10.085, 7 10.392, 10.392, 10.392, 10.392, 10.392, 10.392, 10.392, 8 10.700, 10.700, 10.700, 10.700, 10.700, 10.700, 10.700, 9 11.012, 11.012, 11.012, 11.012, 11.012, 11.012, 11.012/ DATA PF099/ 1 11.336, 11.336, 11.336, 11.336, 11.336, 11.336, 11.336, 2 11.687, 11.687, 11.687, 11.687, 11.687, 11.687, 11.687, 3 12.096, 12.096, 12.096, 12.096, 12.096, 12.096, 12.096, 4 12.612, 12.612, 12.612, 12.612, 12.612, 12.612, 12.612, 5 13.314, 13.314, 13.314, 13.314, 13.314, 13.314, 13.314, 6 14.321, 14.321, 14.321, 14.321, 14.321, 14.321, 14.320, 7 15.820, 15.820, 15.820, 15.820, 15.820, 15.820, 15.818, 8 18.107, 18.107, 18.107, 18.107, 18.107, 18.105, 18.098, 9 21.666, 21.666, 21.666, 21.666, 21.665, 21.656, 21.632/ DATA PF100/ 1 27.301, 27.301, 27.300, 27.299, 27.296, 27.267, 27.184, 2 36.327, 36.325, 36.323, 36.320, 36.312, 36.225, 35.980, 3 50.809, 50.804, 50.799, 50.791, 50.769, 50.538, 49.898, 4 73.811, 73.798, 73.785, 73.767, 73.715, 73.162, 71.656, 5 109.561, 109.532, 109.504, 109.465, 109.352, 108.149, 104.921, 6 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 7 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 8 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 9 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000/ DATA PF101/ 1 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 2 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 3 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 5 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 6 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 7 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 8 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 9 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000/ DATA PF102/ 1 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 2 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 3 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 5 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 6 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 7 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 8 4.003, 4.003, 4.003, 4.003, 4.003, 4.003, 4.003, 9 4.006, 4.006, 4.006, 4.006, 4.006, 4.006, 4.006/ DATA PF103/ 1 4.009, 4.009, 4.009, 4.009, 4.009, 4.009, 4.009, 2 4.015, 4.015, 4.015, 4.015, 4.015, 4.015, 4.015, 3 4.023, 4.023, 4.023, 4.023, 4.023, 4.023, 4.023, 4 4.035, 4.035, 4.035, 4.035, 4.035, 4.035, 4.035, 5 4.051, 4.051, 4.051, 4.051, 4.051, 4.051, 4.051, 6 4.072, 4.072, 4.072, 4.072, 4.072, 4.072, 4.072, 7 4.101, 4.101, 4.101, 4.101, 4.101, 4.101, 4.101, 8 4.139, 4.139, 4.139, 4.139, 4.139, 4.139, 4.139, 9 4.224, 4.224, 4.224, 4.224, 4.224, 4.224, 4.224/ DATA PF104/ 1 4.346, 4.346, 4.346, 4.346, 4.346, 4.346, 4.346, 2 4.510, 4.510, 4.510, 4.510, 4.510, 4.510, 4.510, 3 4.723, 4.723, 4.723, 4.723, 4.723, 4.723, 4.723, 4 4.990, 4.990, 4.990, 4.990, 4.990, 4.990, 4.990, 5 5.316, 5.316, 5.316, 5.316, 5.316, 5.316, 5.316, 6 5.699, 5.699, 5.699, 5.699, 5.699, 5.699, 5.699, 7 6.140, 6.140, 6.140, 6.140, 6.140, 6.140, 6.140, 8 6.635, 6.635, 6.635, 6.635, 6.635, 6.635, 6.635, 9 7.179, 7.179, 7.179, 7.179, 7.179, 7.179, 7.179/ DATA PF105/ 1 7.768, 7.768, 7.768, 7.768, 7.768, 7.768, 7.768, 2 8.398, 8.398, 8.398, 8.398, 8.398, 8.398, 8.398, 3 9.067, 9.067, 9.067, 9.067, 9.067, 9.067, 9.067, 4 9.779, 9.779, 9.779, 9.779, 9.779, 9.779, 9.779, 5 10.549, 10.549, 10.549, 10.549, 10.549, 10.549, 10.549, 6 11.401, 11.401, 11.401, 11.401, 11.401, 11.401, 11.401, 7 12.382, 12.382, 12.382, 12.382, 12.382, 12.382, 12.382, 8 13.562, 13.562, 13.562, 13.562, 13.562, 13.562, 13.562, 9 15.049, 15.049, 15.049, 15.049, 15.049, 15.049, 15.049/ DATA PF106/ 1 17.007, 17.007, 17.007, 17.007, 17.007, 17.007, 17.007, 2 19.682, 19.682, 19.682, 19.682, 19.682, 19.682, 19.682, 3 23.456, 23.456, 23.456, 23.455, 23.455, 23.454, 23.453, 4 28.929, 28.929, 28.929, 28.928, 28.927, 28.923, 28.919, 5 37.054, 37.054, 37.054, 37.051, 37.047, 37.035, 37.022, 6 49.314, 49.314, 49.313, 49.306, 49.294, 49.259, 49.219, 7 67.932, 67.930, 67.929, 67.910, 67.878, 67.784, 67.681, 8 1.740, 1.740, 1.740, 1.740, 1.740, 1.740, 1.740, 9 1.807, 1.807, 1.807, 1.807, 1.807, 1.807, 1.807/ DATA PF107/ 1 1.877, 1.877, 1.877, 1.877, 1.877, 1.877, 1.877, 2 1.952, 1.952, 1.952, 1.952, 1.952, 1.952, 1.952, 3 2.030, 2.030, 2.030, 2.030, 2.030, 2.030, 2.030, 4 2.112, 2.112, 2.112, 2.112, 2.112, 2.112, 2.112, 5 2.197, 2.197, 2.197, 2.197, 2.197, 2.197, 2.197, 6 2.286, 2.286, 2.286, 2.286, 2.286, 2.286, 2.286, 7 2.379, 2.379, 2.379, 2.379, 2.379, 2.379, 2.379, 8 2.475, 2.475, 2.475, 2.475, 2.475, 2.475, 2.475, 9 2.575, 2.575, 2.575, 2.575, 2.575, 2.575, 2.575/ DATA PF108/ 1 2.677, 2.677, 2.677, 2.677, 2.677, 2.677, 2.677, 2 2.783, 2.783, 2.783, 2.783, 2.783, 2.783, 2.783, 3 2.892, 2.892, 2.892, 2.892, 2.892, 2.892, 2.892, 4 3.004, 3.004, 3.004, 3.004, 3.004, 3.004, 3.004, 5 3.118, 3.118, 3.118, 3.118, 3.118, 3.118, 3.118, 6 3.234, 3.234, 3.234, 3.234, 3.234, 3.234, 3.234, 7 3.352, 3.352, 3.352, 3.352, 3.352, 3.352, 3.352, 8 3.473, 3.473, 3.473, 3.473, 3.473, 3.473, 3.473, 9 3.595, 3.595, 3.595, 3.595, 3.595, 3.595, 3.595/ DATA PF109/ 1 3.782, 3.782, 3.782, 3.782, 3.782, 3.782, 3.782, 2 3.971, 3.971, 3.971, 3.971, 3.971, 3.971, 3.971, 3 4.163, 4.163, 4.163, 4.163, 4.163, 4.163, 4.163, 4 4.358, 4.358, 4.358, 4.358, 4.358, 4.358, 4.358, 5 4.554, 4.554, 4.554, 4.554, 4.554, 4.554, 4.554, 6 4.752, 4.752, 4.752, 4.752, 4.752, 4.752, 4.752, 7 4.952, 4.952, 4.952, 4.952, 4.952, 4.952, 4.952, 8 5.154, 5.154, 5.154, 5.154, 5.154, 5.154, 5.154, 9 5.358, 5.358, 5.358, 5.358, 5.358, 5.358, 5.358/ DATA PF110/ 1 5.564, 5.564, 5.564, 5.564, 5.564, 5.564, 5.564, 2 5.912, 5.912, 5.912, 5.912, 5.912, 5.912, 5.912, 3 6.267, 6.267, 6.267, 6.267, 6.267, 6.267, 6.267, 4 6.628, 6.628, 6.628, 6.628, 6.628, 6.628, 6.628, 5 6.996, 6.996, 6.996, 6.996, 6.996, 6.996, 6.996, 6 7.370, 7.370, 7.370, 7.370, 7.370, 7.370, 7.370, 7 7.750, 7.750, 7.750, 7.750, 7.750, 7.750, 7.750, 8 8.134, 8.134, 8.134, 8.134, 8.134, 8.134, 8.134, 9 8.521, 8.521, 8.521, 8.521, 8.521, 8.521, 8.521/ DATA PF111/ 1 8.910, 8.910, 8.910, 8.910, 8.910, 8.910, 8.910, 2 9.301, 9.301, 9.301, 9.301, 9.301, 9.301, 9.301, 3 9.697, 9.697, 9.697, 9.697, 9.697, 9.697, 9.697, 4 10.102, 10.102, 10.102, 10.102, 10.102, 10.102, 10.102, 5 10.526, 10.526, 10.526, 10.526, 10.526, 10.526, 10.526, 6 10.980, 10.980, 10.980, 10.980, 10.980, 10.980, 10.980, 7 11.485, 11.485, 11.485, 11.485, 11.485, 11.485, 11.485, 8 12.070, 12.070, 12.070, 12.070, 12.070, 12.070, 12.070, 9 12.771, 12.771, 12.771, 12.771, 12.771, 12.771, 12.771/ DATA PF112/ 1 13.642, 13.642, 13.642, 13.642, 13.642, 13.642, 13.642, 2 14.755, 14.755, 14.755, 14.755, 14.755, 14.755, 14.755, 3 16.211, 16.211, 16.211, 16.211, 16.211, 16.211, 16.211, 4 18.151, 18.151, 18.151, 18.151, 18.151, 18.151, 18.151, 5 20.779, 20.779, 20.779, 20.779, 20.779, 20.779, 20.778, 6 24.385, 24.385, 24.385, 24.385, 24.385, 24.385, 24.384, 7 29.401, 29.401, 29.401, 29.401, 29.400, 29.399, 29.397, 8 36.459, 36.459, 36.459, 36.458, 36.456, 36.453, 36.444, 9 46.484, 46.484, 46.482, 46.479, 46.474, 46.466, 46.438/ DATA PF113/ 1 2.076, 2.076, 2.076, 2.076, 2.076, 2.076, 2.076, 2 2.090, 2.090, 2.090, 2.090, 2.090, 2.090, 2.090, 3 2.107, 2.107, 2.107, 2.107, 2.107, 2.107, 2.107, 4 2.126, 2.126, 2.126, 2.126, 2.126, 2.126, 2.126, 5 2.148, 2.148, 2.148, 2.148, 2.148, 2.148, 2.148, 6 2.171, 2.171, 2.171, 2.171, 2.171, 2.171, 2.171, 7 2.197, 2.197, 2.197, 2.197, 2.197, 2.197, 2.197, 8 2.226, 2.226, 2.226, 2.226, 2.226, 2.226, 2.226, 9 2.257, 2.257, 2.257, 2.257, 2.257, 2.257, 2.257/ DATA PF114/ 1 2.291, 2.291, 2.291, 2.291, 2.291, 2.291, 2.291, 2 2.327, 2.327, 2.327, 2.327, 2.327, 2.327, 2.327, 3 2.366, 2.366, 2.366, 2.366, 2.366, 2.366, 2.366, 4 2.408, 2.408, 2.408, 2.408, 2.408, 2.408, 2.408, 5 2.452, 2.452, 2.452, 2.452, 2.452, 2.452, 2.452, 6 2.499, 2.499, 2.499, 2.499, 2.499, 2.499, 2.499, 7 2.548, 2.548, 2.548, 2.548, 2.548, 2.548, 2.548, 8 2.599, 2.599, 2.599, 2.599, 2.599, 2.599, 2.599, 9 2.652, 2.652, 2.652, 2.652, 2.652, 2.652, 2.652/ DATA PF115/ 1 2.708, 2.708, 2.708, 2.708, 2.708, 2.708, 2.708, 2 2.765, 2.765, 2.765, 2.765, 2.765, 2.765, 2.765, 3 2.855, 2.855, 2.855, 2.855, 2.855, 2.855, 2.855, 4 2.947, 2.947, 2.947, 2.947, 2.947, 2.947, 2.947, 5 3.043, 3.043, 3.043, 3.043, 3.043, 3.043, 3.043, 6 3.141, 3.141, 3.141, 3.141, 3.141, 3.141, 3.141, 7 3.240, 3.240, 3.240, 3.240, 3.240, 3.240, 3.240, 8 3.341, 3.341, 3.341, 3.341, 3.341, 3.341, 3.341, 9 3.443, 3.443, 3.443, 3.443, 3.443, 3.443, 3.443/ DATA PF116/ 1 3.544, 3.544, 3.544, 3.544, 3.544, 3.544, 3.544, 2 3.646, 3.646, 3.646, 3.646, 3.646, 3.646, 3.646, 3 3.746, 3.746, 3.746, 3.746, 3.746, 3.746, 3.746, 4 3.911, 3.911, 3.911, 3.911, 3.911, 3.911, 3.911, 5 4.071, 4.071, 4.071, 4.071, 4.071, 4.071, 4.071, 6 4.224, 4.224, 4.224, 4.224, 4.224, 4.224, 4.224, 7 4.371, 4.371, 4.371, 4.371, 4.371, 4.371, 4.371, 8 4.510, 4.510, 4.510, 4.510, 4.510, 4.510, 4.510, 9 4.641, 4.641, 4.641, 4.641, 4.641, 4.641, 4.641/ DATA PF117/ 1 4.763, 4.763, 4.763, 4.763, 4.763, 4.763, 4.763, 2 4.879, 4.879, 4.879, 4.879, 4.879, 4.879, 4.879, 3 4.988, 4.988, 4.988, 4.988, 4.988, 4.988, 4.988, 4 5.094, 5.094, 5.094, 5.094, 5.094, 5.094, 5.094, 5 5.202, 5.202, 5.202, 5.202, 5.202, 5.202, 5.202, 6 5.319, 5.319, 5.319, 5.319, 5.319, 5.319, 5.319, 7 5.452, 5.452, 5.452, 5.452, 5.452, 5.452, 5.452, 8 5.616, 5.616, 5.616, 5.616, 5.616, 5.616, 5.616, 9 5.824, 5.824, 5.824, 5.824, 5.824, 5.824, 5.824/ DATA PF118/ 1 6.096, 6.096, 6.096, 6.096, 6.096, 6.096, 6.096, 2 6.452, 6.452, 6.452, 6.452, 6.452, 6.452, 6.452, 3 6.921, 6.921, 6.921, 6.921, 6.921, 6.921, 6.921, 4 7.538, 7.538, 7.538, 7.538, 7.538, 7.538, 7.538, 5 8.347, 8.347, 8.347, 8.347, 8.347, 8.347, 8.347, 6 9.412, 9.412, 9.412, 9.412, 9.412, 9.412, 9.412, 7 10.816, 10.816, 10.816, 10.816, 10.816, 10.816, 10.816, 8 12.672, 12.672, 12.672, 12.672, 12.672, 12.672, 12.672, 9 15.136, 15.136, 15.136, 15.136, 15.136, 15.136, 15.136/ DATA PF119/ 1 18.418, 18.418, 18.418, 18.418, 18.418, 18.417, 18.417, 2 22.807, 22.807, 22.807, 22.806, 22.806, 22.804, 22.803, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF120/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF121/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF122/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF123/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 5 1.002, 1.002, 1.002, 1.002, 1.002, 1.002, 1.002, 6 1.006, 1.006, 1.006, 1.006, 1.006, 1.006, 1.006, 7 1.013, 1.013, 1.013, 1.013, 1.013, 1.013, 1.013, 8 1.026, 1.026, 1.026, 1.026, 1.026, 1.026, 1.026, 9 1.050, 1.050, 1.050, 1.050, 1.050, 1.050, 1.050/ DATA PF124/ 1 1.089, 1.089, 1.089, 1.089, 1.089, 1.089, 1.089, 2 1.150, 1.150, 1.150, 1.150, 1.150, 1.150, 1.150, 3 1.239, 1.239, 1.239, 1.239, 1.239, 1.239, 1.239, 4 1.366, 1.366, 1.366, 1.366, 1.366, 1.366, 1.366, 5 1.538, 1.538, 1.538, 1.538, 1.538, 1.538, 1.538, 6 1.767, 1.767, 1.767, 1.767, 1.767, 1.767, 1.767, 7 2.064, 2.064, 2.064, 2.064, 2.064, 2.064, 2.064, 8 2.447, 2.447, 2.447, 2.447, 2.447, 2.447, 2.447, 9 2.936, 2.936, 2.936, 2.936, 2.936, 2.936, 2.936/ DATA PF125/ 1 3.559, 3.559, 3.559, 3.559, 3.559, 3.559, 3.559, 2 4.352, 4.352, 4.352, 4.352, 4.352, 4.352, 4.352, 3 5.362, 5.362, 5.362, 5.362, 5.362, 5.362, 5.362, 4 6.658, 6.658, 6.658, 6.658, 6.658, 6.658, 6.657, 5 18.535, 18.535, 18.535, 18.535, 18.535, 18.535, 18.535, 6 18.752, 18.752, 18.752, 18.752, 18.752, 18.752, 18.752, 7 18.985, 18.985, 18.985, 18.985, 18.985, 18.985, 18.985, 8 19.235, 19.235, 19.235, 19.235, 19.235, 19.235, 19.235, 9 19.507, 19.507, 19.507, 19.507, 19.507, 19.507, 19.507/ DATA PF126/ 1 19.804, 19.804, 19.804, 19.804, 19.804, 19.804, 19.803, 2 20.128, 20.128, 20.128, 20.128, 20.128, 20.128, 20.128, 3 20.484, 20.484, 20.484, 20.484, 20.484, 20.484, 20.484, 4 20.877, 20.877, 20.877, 20.877, 20.877, 20.877, 20.876, 5 21.312, 21.312, 21.312, 21.312, 21.312, 21.312, 21.310, 6 21.793, 21.793, 21.793, 21.793, 21.793, 21.793, 21.790, 7 22.327, 22.327, 22.327, 22.327, 22.327, 22.327, 22.321, 8 22.920, 22.920, 22.920, 22.920, 22.920, 22.920, 22.911, 9 23.581, 23.581, 23.581, 23.581, 23.581, 23.581, 23.566/ DATA PF127/ 1 24.318, 24.317, 24.317, 24.317, 24.317, 24.317, 24.293, 2 25.139, 25.139, 25.139, 25.139, 25.139, 25.138, 25.101, 3 26.056, 26.056, 26.056, 26.055, 26.055, 26.054, 25.997, 4 27.081, 27.081, 27.080, 27.080, 27.079, 27.077, 26.991, 5 28.227, 28.227, 28.226, 28.225, 28.224, 28.220, 28.093, 6 29.511, 29.510, 29.508, 29.506, 29.503, 29.496, 29.312, 7 31.733, 31.730, 31.724, 31.719, 31.713, 31.697, 31.383, 8 34.379, 34.372, 34.356, 34.342, 34.328, 34.294, 33.775, 9 37.545, 37.529, 37.488, 37.457, 37.425, 37.356, 36.524/ DATA PF128/ 1 41.362, 41.325, 41.232, 41.160, 41.092, 40.958, 39.662, 2 46.010, 45.929, 45.726, 45.572, 45.434, 45.185, 43.220, 3 51.744, 51.574, 51.154, 50.842, 50.574, 50.131, 47.224, 4 58.920, 58.584, 57.756, 57.154, 56.655, 55.895, 51.695, 5 68.042, 67.404, 65.844, 64.730, 63.839, 62.583, 56.648, 6 79.799, 78.639, 75.824, 73.844, 72.314, 70.303, 62.092, 7 95.116, 93.090, 88.205, 84.822, 82.286, 79.164, 68.025, 8 131.993, 127.261, 115.968, 108.320, 102.854, 96.755, 78.982, 9 189.917, 179.842, 156.008, 140.187, 129.345, 118.258, 91.202/ DATA PF129/ 1 279.274, 259.512, 213.134, 182.893, 162.928, 144.026, 104.554, 2 412.955, 376.930, 292.988, 239.112, 204.704, 174.276, 118.868, 3 605.594, 544.075, 401.634, 311.493, 255.591, 209.058, 133.941, 4 872.307, 773.192, 544.990, 402.378, 316.216, 248.241, 149.555, 5 1227.144, 1075.526, 728.194, 513.542, 386.834, 291.515, 165.489, 6 1681.515, 1460.060, 955.010, 645.975, 467.280, 338.413, 181.529, 7 2242.879, 1932.476,1227.386, 799.750, 556.974, 388.337, 197.474, 8 2913.895, 2494.504,1545.219, 973.996, 654.956, 440.605, 213.148, 9 3692.133, 3143.729,1906.344,1166.966, 759.962, 494.488, 228.399/ DATA PF130/ 1 4570.325, 3873.835,2306.737,1376.177, 870.513, 549.252, 243.103, 2 5537.061, 4675.195,2740.862,1598.609, 985.009, 604.189, 257.162, 3 6577.779, 5535.696,3202.113,1830.909,1101.824, 658.649, 270.507, 4 7675.888, 6441.655,3683.277,2069.608,1219.385, 712.055, 283.088, 5 8813.880, 7378.722,4176.982,2311.297,1336.234, 763.916, 294.879, 6 9974.329, 8332.684,4676.071,2552.781,1451.076, 813.833, 305.870, 711140.706, 9290.118,5173.903,2791.186,1562.802, 861.495, 316.067, 812297.992,10238.870,5664.560,3024.025,1670.504, 906.677, 325.486, 913433.066,11168.362,6142.975,3249.236,1773.475, 949.232, 334.153/ DATA PF131/ 114534.923,12069.755,6604.986,3465.182,1871.195, 989.078, 342.101, 215594.715,12935.977,7047.331,3670.636,1963.316,1026.195, 349.368, 316605.689,13761.657,7467.596,3864.749,2049.642,1060.606, 355.993, 417563.033,14543.000,7864.145,4047.004,2130.106,1092.375, 362.018, 518463.662,15277.609,8236.023,4217.170,2204.748,1121.595, 367.486, 619305.992,15964.296,8582.854,4375.258,2273.691,1148.380, 372.439, 7 38.022, 38.022, 38.022, 38.022, 38.022, 38.022, 38.022, 8 38.750, 38.750, 38.750, 38.750, 38.750, 38.750, 38.750, 9 39.484, 39.484, 39.484, 39.484, 39.484, 39.484, 39.484/ DATA PF132/ 1 40.226, 40.226, 40.226, 40.226, 40.226, 40.226, 40.226, 2 40.979, 40.979, 40.979, 40.979, 40.979, 40.979, 40.979, 3 41.744, 41.744, 41.744, 41.744, 41.744, 41.744, 41.744, 4 42.525, 42.525, 42.525, 42.525, 42.525, 42.525, 42.525, 5 43.324, 43.324, 43.324, 43.324, 43.324, 43.324, 43.324, 6 44.144, 44.144, 44.144, 44.144, 44.144, 44.144, 44.144, 7 44.987, 44.987, 44.987, 44.987, 44.987, 44.987, 44.987, 8 45.858, 45.858, 45.858, 45.858, 45.858, 45.858, 45.858, 9 46.759, 46.759, 46.759, 46.759, 46.759, 46.759, 46.759/ DATA PF133/ 1 47.694, 47.694, 47.694, 47.694, 47.694, 47.694, 47.694, 2 48.666, 48.666, 48.666, 48.666, 48.666, 48.666, 48.666, 3 49.680, 49.680, 49.680, 49.680, 49.680, 49.680, 49.680, 4 50.737, 50.737, 50.737, 50.737, 50.737, 50.737, 50.737, 5 51.842, 51.842, 51.842, 51.842, 51.842, 51.842, 51.842, 6 52.999, 52.999, 52.999, 52.999, 52.999, 52.999, 52.999, 7 54.210, 54.210, 54.210, 54.210, 54.210, 54.210, 54.210, 8 55.479, 55.479, 55.479, 55.479, 55.479, 55.479, 55.479, 9 57.497, 57.497, 57.497, 57.497, 57.497, 57.497, 57.497/ DATA PF134/ 1 59.663, 59.663, 59.663, 59.663, 59.663, 59.663, 59.663, 2 61.987, 61.987, 61.987, 61.987, 61.987, 61.987, 61.987, 3 64.480, 64.480, 64.480, 64.480, 64.480, 64.480, 64.480, 4 67.153, 67.153, 67.153, 67.153, 67.153, 67.153, 67.153, 5 70.018, 70.018, 70.018, 70.018, 70.018, 70.018, 70.018, 6 73.090, 73.090, 73.090, 73.090, 73.090, 73.089, 73.089, 7 76.384, 76.384, 76.384, 76.384, 76.384, 76.384, 76.382, 8 79.922, 79.922, 79.922, 79.922, 79.921, 79.920, 79.917, 9 83.727, 83.727, 83.727, 83.727, 83.725, 83.722, 83.714/ DATA PF135/ 1 90.755, 90.754, 90.753, 90.751, 90.743, 90.729, 90.700, 2 98.839, 98.834, 98.829, 98.823, 98.790, 98.735, 98.637, 3 108.368, 108.349, 108.330, 108.305, 108.188, 108.001, 107.715, 4 120.040, 119.979, 119.915, 119.832, 119.465, 118.908, 118.165, 5 135.100, 134.923, 134.737, 134.498, 133.480, 132.004, 130.261, 6 155.641, 155.178, 154.698, 154.087, 151.558, 148.041, 144.306, 7 184.928, 183.842, 182.720, 181.313, 175.620, 167.995, 160.616, 8 227.649, 225.327, 222.938, 219.975, 208.243, 193.040, 179.489, 9 289.974, 285.401, 280.716, 274.963, 252.616, 224.490, 201.173/ DATA PF136/ 1 379.341, 370.978, 362.438, 352.045, 312.358, 263.685, 225.833, 2 503.946, 489.622, 475.040, 457.435, 391.218, 311.854, 253.527, 3 671.989, 648.851, 625.359, 597.197, 492.698, 369.980, 284.190, 4 890.806, 855.330, 819.397, 776.590, 619.657, 438.676, 317.631, 5 1166.042, 1114.119,1061.638, 999.469, 773.984, 518.105, 353.545, 6 1500.997, 1428.085,1354.530,1267.829, 956.367, 607.950, 391.531, 7 1896.253, 1797.579,1698.203,1581.585,1166.211, 707.437, 431.118, 8 2349.607, 2220.389,2090.450,1938.569,1401.687, 815.395, 471.797, 9 2856.289, 2691.965,2526.945,2334.740,1659.898, 930.348, 513.050/ DATA PF137/ 1 3409.402, 3205.824,3001.630,2764.543,1937.127,1050.626, 554.371, 2 4000.496, 3754.096,3507.214,3221.363,2229.114,1174.468, 595.294, 3 4620.192, 4328.088,4035.693,3697.988,2531.345,1300.124, 635.399, 4 5258.777, 4918.842,4578.856,4187.058,2839.308,1425.932, 674.331, 5 5906.731, 5517.603,5128.711,4681.440,3148.710,1550.382, 711.798, 6 6555.144, 6116.202,5677.823,5174.525,3455.635,1672.155, 747.570, 7 7196.013, 6707.324,6219.556,5660.435,3756.653,1790.145, 781.484, 8 7822.429, 7284.672,6748.215,6134.143,4048.877,1903.465, 813.428, 9 17.922, 17.922, 17.922, 17.922, 17.922, 17.922, 17.922/ DATA PF138/ 1 18.052, 18.052, 18.052, 18.052, 18.052, 18.052, 18.052, 2 18.181, 18.181, 18.181, 18.181, 18.181, 18.181, 18.181, 3 18.307, 18.307, 18.307, 18.307, 18.307, 18.307, 18.307, 4 18.432, 18.432, 18.432, 18.432, 18.432, 18.432, 18.432, 5 18.556, 18.556, 18.556, 18.556, 18.556, 18.556, 18.556, 6 18.680, 18.680, 18.680, 18.680, 18.680, 18.680, 18.680, 7 18.804, 18.804, 18.804, 18.804, 18.804, 18.804, 18.804, 8 18.930, 18.930, 18.930, 18.930, 18.930, 18.930, 18.930, 9 19.057, 19.057, 19.057, 19.057, 19.057, 19.057, 19.057/ DATA PF139/ 1 19.188, 19.188, 19.188, 19.188, 19.188, 19.188, 19.188, 2 19.322, 19.322, 19.322, 19.322, 19.322, 19.322, 19.322, 3 19.460, 19.460, 19.460, 19.460, 19.460, 19.460, 19.460, 4 19.604, 19.604, 19.604, 19.604, 19.604, 19.604, 19.604, 5 19.753, 19.753, 19.753, 19.753, 19.753, 19.753, 19.753, 6 19.910, 19.910, 19.910, 19.910, 19.910, 19.910, 19.910, 7 20.074, 20.074, 20.074, 20.074, 20.074, 20.074, 20.074, 8 20.247, 20.247, 20.247, 20.247, 20.247, 20.247, 20.247, 9 20.429, 20.429, 20.429, 20.429, 20.429, 20.429, 20.429/ DATA PF140/ 1 20.620, 20.620, 20.620, 20.620, 20.620, 20.620, 20.620, 2 20.928, 20.928, 20.928, 20.928, 20.928, 20.928, 20.928, 3 21.260, 21.260, 21.260, 21.260, 21.260, 21.260, 21.260, 4 21.619, 21.619, 21.619, 21.619, 21.619, 21.619, 21.619, 5 22.006, 22.006, 22.006, 22.006, 22.006, 22.006, 22.006, 6 22.420, 22.420, 22.420, 22.420, 22.420, 22.420, 22.420, 7 22.864, 22.864, 22.864, 22.864, 22.864, 22.864, 22.864, 8 23.336, 23.336, 23.336, 23.336, 23.336, 23.336, 23.336, 9 23.837, 23.837, 23.837, 23.837, 23.837, 23.837, 23.837/ DATA PF141/ 1 24.366, 24.366, 24.366, 24.366, 24.366, 24.366, 24.366, 2 24.924, 24.924, 24.924, 24.924, 24.924, 24.924, 24.924, 3 25.917, 25.917, 25.917, 25.917, 25.917, 25.917, 25.917, 4 26.991, 26.991, 26.991, 26.991, 26.991, 26.991, 26.991, 5 28.149, 28.149, 28.149, 28.149, 28.149, 28.149, 28.149, 6 29.397, 29.397, 29.397, 29.397, 29.397, 29.397, 29.397, 7 30.750, 30.750, 30.750, 30.750, 30.750, 30.750, 30.749, 8 32.227, 32.227, 32.227, 32.227, 32.227, 32.226, 32.225, 9 33.865, 33.865, 33.865, 33.865, 33.865, 33.861, 33.856/ DATA PF142/ 1 35.729, 35.729, 35.729, 35.729, 35.729, 35.712, 35.692, 2 37.946, 37.946, 37.946, 37.946, 37.946, 37.882, 37.812, 3 40.753, 40.753, 40.753, 40.753, 40.752, 40.550, 40.340, 4 44.589, 44.589, 44.589, 44.589, 44.588, 44.021, 43.461, 5 50.202, 50.202, 50.202, 50.202, 50.200, 48.779, 47.435, 6 58.771, 58.771, 58.771, 58.771, 58.766, 55.544, 52.611, 7 71.993, 71.993, 71.993, 71.993, 71.981, 65.299, 59.417, 8 92.103, 92.103, 92.103, 92.103, 92.079, 79.276, 68.337, 9 121.793, 121.793, 121.793, 121.793, 121.751, 98.893, 79.877/ DATA PF143/ 1 164.030, 164.030, 164.030, 164.030, 163.957, 125.641, 94.508, 2 221.774, 221.774, 221.774, 221.774, 221.656, 160.935, 112.621, 3 297.668, 297.668, 297.668, 297.668, 297.487, 205.960, 134.477, 4 393.741, 393.741, 393.741, 393.741, 393.476, 261.533, 160.177, 5 511.174, 511.174, 511.174, 511.174, 510.802, 328.012, 189.649, 6 650.169, 650.169, 650.169, 650.169, 649.666, 405.252, 222.650, 7 809.931, 809.931, 809.931, 809.931, 809.272, 492.621, 258.791, 8 988.744, 988.744, 988.744, 988.744, 987.907, 589.059, 297.568, 9 1184.138, 1184.138,1184.138,1184.138,1183.100, 693.169, 338.400/ DATA PF144/ 1 1393.089, 1393.089,1393.089,1393.089,1391.833, 803.329, 380.665, 2 8.612, 8.612, 8.612, 8.612, 8.612, 8.612, 8.612, 3 8.667, 8.667, 8.667, 8.667, 8.667, 8.667, 8.667, 4 8.720, 8.720, 8.720, 8.720, 8.720, 8.720, 8.720, 5 8.771, 8.771, 8.771, 8.771, 8.771, 8.771, 8.771, 6 8.821, 8.821, 8.821, 8.821, 8.821, 8.821, 8.821, 7 8.868, 8.868, 8.868, 8.868, 8.868, 8.868, 8.868, 8 8.914, 8.914, 8.914, 8.914, 8.914, 8.914, 8.914, 9 8.959, 8.959, 8.959, 8.959, 8.959, 8.959, 8.959/ DATA PF145/ 1 9.001, 9.001, 9.001, 9.001, 9.001, 9.001, 9.001, 2 9.043, 9.043, 9.043, 9.043, 9.043, 9.043, 9.043, 3 9.082, 9.082, 9.082, 9.082, 9.082, 9.082, 9.082, 4 9.120, 9.120, 9.120, 9.120, 9.120, 9.120, 9.120, 5 9.157, 9.157, 9.157, 9.157, 9.157, 9.157, 9.157, 6 9.192, 9.192, 9.192, 9.192, 9.192, 9.192, 9.192, 7 9.226, 9.226, 9.226, 9.226, 9.226, 9.226, 9.226, 8 9.259, 9.259, 9.259, 9.259, 9.259, 9.259, 9.259, 9 9.290, 9.290, 9.290, 9.290, 9.290, 9.290, 9.290/ DATA PF146/ 1 9.320, 9.320, 9.320, 9.320, 9.320, 9.320, 9.320, 2 9.349, 9.349, 9.349, 9.349, 9.349, 9.349, 9.349, 3 9.377, 9.377, 9.377, 9.377, 9.377, 9.377, 9.377, 4 9.416, 9.416, 9.416, 9.416, 9.416, 9.416, 9.416, 5 9.453, 9.453, 9.453, 9.453, 9.453, 9.453, 9.453, 6 9.488, 9.488, 9.488, 9.488, 9.488, 9.488, 9.488, 7 9.521, 9.521, 9.521, 9.521, 9.521, 9.521, 9.521, 8 9.552, 9.552, 9.552, 9.552, 9.552, 9.552, 9.552, 9 9.581, 9.581, 9.581, 9.581, 9.581, 9.581, 9.581/ DATA PF147/ 1 9.608, 9.608, 9.608, 9.608, 9.608, 9.608, 9.608, 2 9.633, 9.633, 9.633, 9.633, 9.633, 9.633, 9.633, 3 9.657, 9.657, 9.657, 9.657, 9.657, 9.657, 9.657, 4 9.679, 9.679, 9.679, 9.679, 9.679, 9.679, 9.679, 5 9.713, 9.713, 9.713, 9.713, 9.713, 9.713, 9.713, 6 9.744, 9.744, 9.744, 9.744, 9.744, 9.744, 9.744, 7 9.772, 9.772, 9.772, 9.772, 9.772, 9.772, 9.772, 8 9.797, 9.797, 9.797, 9.797, 9.797, 9.797, 9.797, 9 9.821, 9.821, 9.821, 9.821, 9.821, 9.821, 9.821/ DATA PF148/ 1 9.844, 9.844, 9.844, 9.844, 9.844, 9.844, 9.844, 2 9.867, 9.867, 9.867, 9.867, 9.867, 9.867, 9.867, 3 9.894, 9.894, 9.894, 9.894, 9.894, 9.894, 9.894, 4 9.926, 9.926, 9.926, 9.926, 9.926, 9.926, 9.926, 5 9.969, 9.969, 9.969, 9.969, 9.969, 9.969, 9.968, 6 10.027, 10.027, 10.027, 10.027, 10.027, 10.027, 10.026, 7 10.115, 10.115, 10.115, 10.115, 10.115, 10.115, 10.111, 8 10.255, 10.255, 10.255, 10.255, 10.255, 10.254, 10.243, 9 10.492, 10.492, 10.492, 10.492, 10.492, 10.492, 10.457/ DATA PF149/ 1 10.910, 10.910, 10.910, 10.910, 10.910, 10.910, 10.814, 2 11.646, 11.646, 11.646, 11.646, 11.646, 11.645, 11.409, 3 12.913, 12.913, 12.913, 12.913, 12.913, 12.911, 12.383, 4 15.011, 15.011, 15.011, 15.011, 15.011, 15.007, 13.925, 5 18.325, 18.325, 18.325, 18.325, 18.325, 18.316, 16.267, 6 23.306, 23.306, 23.306, 23.306, 23.306, 23.290, 19.670, 7 30.440, 30.440, 30.440, 30.440, 30.440, 30.413, 24.398, 8 40.198, 40.198, 40.198, 40.198, 40.198, 40.155, 30.699, 9 52.986, 52.986, 52.986, 52.986, 52.986, 52.919, 38.767/ DATA PF150/ 1 69.098, 69.098, 69.098, 69.098, 69.098, 69.001, 48.728, 2 88.684, 88.684, 88.684, 88.684, 88.684, 88.550, 60.620, 3 111.735, 111.735, 111.735, 111.735, 111.735, 111.555, 74.396, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF151/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF152/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF153/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF154/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 1.001/ DATA PF155/ 1 1.004, 1.004, 1.004, 1.004, 1.004, 1.004, 1.004, 2 1.012, 1.012, 1.012, 1.012, 1.012, 1.012, 1.012, 3 1.031, 1.031, 1.031, 1.031, 1.031, 1.031, 1.031, 4 1.072, 1.072, 1.072, 1.072, 1.072, 1.072, 1.072, 5 1.153, 1.153, 1.153, 1.153, 1.153, 1.153, 1.153, 6 1.308, 1.308, 1.308, 1.308, 1.308, 1.308, 1.308, 7 1.594, 1.594, 1.594, 1.594, 1.594, 1.593, 1.592, 8 2.115, 2.115, 2.115, 2.114, 2.113, 2.112, 2.107, 9 3.061, 3.061, 3.060, 3.059, 3.055, 3.050, 3.034/ DATA PF156/ 1 4.768, 4.767, 4.766, 4.762, 4.751, 4.734, 4.686, 2 7.800, 7.797, 7.794, 7.783, 7.753, 7.708, 7.583, 3 13.030, 13.023, 13.015, 12.989, 12.918, 12.810, 12.514, 4 21.713, 21.699, 21.682, 21.624, 21.468, 21.233, 20.597, 5 35.504, 35.476, 35.442, 35.325, 35.010, 34.541, 33.282, 6 4.036, 4.036, 4.036, 4.036, 4.036, 4.036, 4.036, 7 4.043, 4.043, 4.043, 4.043, 4.043, 4.043, 4.043, 8 4.051, 4.051, 4.051, 4.051, 4.051, 4.051, 4.051, 9 4.061, 4.061, 4.061, 4.061, 4.061, 4.061, 4.061/ DATA PF157/ 1 4.071, 4.071, 4.071, 4.071, 4.071, 4.071, 4.071, 2 4.082, 4.082, 4.082, 4.082, 4.082, 4.082, 4.082, 3 4.095, 4.095, 4.095, 4.095, 4.095, 4.095, 4.095, 4 4.109, 4.109, 4.109, 4.109, 4.109, 4.109, 4.109, 5 4.124, 4.124, 4.124, 4.124, 4.124, 4.124, 4.124, 6 4.141, 4.141, 4.141, 4.141, 4.141, 4.141, 4.141, 7 4.159, 4.159, 4.159, 4.159, 4.159, 4.159, 4.159, 8 4.178, 4.178, 4.178, 4.178, 4.178, 4.178, 4.178, 9 4.199, 4.199, 4.199, 4.199, 4.199, 4.199, 4.199/ DATA PF158/ 1 4.220, 4.220, 4.220, 4.220, 4.220, 4.220, 4.220, 2 4.243, 4.243, 4.243, 4.243, 4.243, 4.243, 4.243, 3 4.267, 4.267, 4.267, 4.267, 4.267, 4.267, 4.267, 4 4.293, 4.293, 4.293, 4.293, 4.293, 4.293, 4.293, 5 4.319, 4.319, 4.319, 4.319, 4.319, 4.319, 4.319, 6 4.347, 4.347, 4.347, 4.347, 4.347, 4.347, 4.347, 7 4.375, 4.375, 4.375, 4.375, 4.375, 4.375, 4.375, 8 4.420, 4.420, 4.420, 4.420, 4.420, 4.420, 4.420, 9 4.466, 4.466, 4.466, 4.466, 4.466, 4.466, 4.466/ DATA PF159/ 1 4.513, 4.513, 4.513, 4.513, 4.513, 4.513, 4.513, 2 4.562, 4.562, 4.562, 4.562, 4.562, 4.562, 4.562, 3 4.612, 4.612, 4.612, 4.612, 4.612, 4.612, 4.612, 4 4.662, 4.662, 4.662, 4.662, 4.662, 4.662, 4.662, 5 4.713, 4.713, 4.713, 4.713, 4.713, 4.713, 4.713, 6 4.764, 4.764, 4.764, 4.764, 4.764, 4.764, 4.764, 7 4.814, 4.814, 4.814, 4.814, 4.814, 4.814, 4.814, 8 4.865, 4.865, 4.865, 4.865, 4.865, 4.865, 4.865, 9 4.947, 4.947, 4.947, 4.947, 4.947, 4.947, 4.947/ DATA PF160/ 1 5.027, 5.027, 5.027, 5.027, 5.027, 5.027, 5.027, 2 5.105, 5.105, 5.105, 5.105, 5.105, 5.105, 5.105, 3 5.178, 5.178, 5.178, 5.178, 5.178, 5.178, 5.178, 4 5.248, 5.248, 5.248, 5.248, 5.248, 5.248, 5.248, 5 5.314, 5.314, 5.314, 5.314, 5.314, 5.314, 5.314, 6 5.375, 5.375, 5.375, 5.375, 5.375, 5.375, 5.375, 7 5.432, 5.432, 5.432, 5.432, 5.432, 5.432, 5.432, 8 5.485, 5.485, 5.485, 5.485, 5.485, 5.485, 5.485, 9 5.535, 5.535, 5.535, 5.535, 5.535, 5.535, 5.535/ DATA PF161/ 1 5.581, 5.581, 5.581, 5.581, 5.581, 5.581, 5.581, 2 5.625, 5.625, 5.625, 5.625, 5.625, 5.625, 5.625, 3 5.672, 5.672, 5.672, 5.672, 5.672, 5.672, 5.672, 4 5.727, 5.727, 5.727, 5.727, 5.727, 5.727, 5.727, 5 5.806, 5.806, 5.806, 5.806, 5.806, 5.806, 5.806, 6 5.934, 5.934, 5.934, 5.934, 5.934, 5.934, 5.934, 7 6.149, 6.149, 6.149, 6.149, 6.149, 6.149, 6.149, 8 6.516, 6.516, 6.516, 6.516, 6.516, 6.516, 6.516, 9 7.131, 7.131, 7.131, 7.131, 7.131, 7.131, 7.131/ DATA PF162/ 1 8.151, 8.151, 8.151, 8.151, 8.151, 8.151, 8.150, 2 9.831, 9.831, 9.831, 9.831, 9.831, 9.830, 9.826, 3 12.606, 12.606, 12.606, 12.605, 12.604, 12.601, 12.588, 4 17.212, 17.212, 17.212, 17.210, 17.207, 17.196, 17.155, 5 24.862, 24.862, 24.862, 24.858, 24.848, 24.818, 24.700, 6 37.447, 37.447, 37.445, 37.437, 37.410, 37.334, 37.036, 7 57.715, 57.715, 57.711, 57.691, 57.629, 57.454, 56.773, 8 5.150, 5.150, 5.150, 5.150, 5.150, 5.150, 5.150, 9 5.173, 5.173, 5.173, 5.173, 5.173, 5.173, 5.173/ DATA PF163/ 1 5.199, 5.199, 5.199, 5.199, 5.199, 5.199, 5.199, 2 5.227, 5.227, 5.227, 5.227, 5.227, 5.227, 5.227, 3 5.258, 5.258, 5.258, 5.258, 5.258, 5.258, 5.258, 4 5.291, 5.291, 5.291, 5.291, 5.291, 5.291, 5.291, 5 5.327, 5.327, 5.327, 5.327, 5.327, 5.327, 5.327, 6 5.365, 5.365, 5.365, 5.365, 5.365, 5.365, 5.365, 7 5.406, 5.406, 5.406, 5.406, 5.406, 5.406, 5.406, 8 5.450, 5.450, 5.450, 5.450, 5.450, 5.450, 5.450, 9 5.496, 5.496, 5.496, 5.496, 5.496, 5.496, 5.496/ DATA PF164/ 1 5.544, 5.544, 5.544, 5.544, 5.544, 5.544, 5.544, 2 5.595, 5.595, 5.595, 5.595, 5.595, 5.595, 5.595, 3 5.648, 5.648, 5.648, 5.648, 5.648, 5.648, 5.648, 4 5.703, 5.703, 5.703, 5.703, 5.703, 5.703, 5.703, 5 5.760, 5.760, 5.760, 5.760, 5.760, 5.760, 5.760, 6 5.818, 5.818, 5.818, 5.818, 5.818, 5.818, 5.818, 7 5.879, 5.879, 5.879, 5.879, 5.879, 5.879, 5.879, 8 5.942, 5.942, 5.942, 5.942, 5.942, 5.942, 5.942, 9 6.006, 6.006, 6.006, 6.006, 6.006, 6.006, 6.006/ DATA PF165/ 1 6.105, 6.105, 6.105, 6.105, 6.105, 6.105, 6.105, 2 6.207, 6.207, 6.207, 6.207, 6.207, 6.207, 6.207, 3 6.313, 6.313, 6.313, 6.313, 6.313, 6.313, 6.313, 4 6.421, 6.421, 6.421, 6.421, 6.421, 6.421, 6.421, 5 6.533, 6.533, 6.533, 6.533, 6.533, 6.533, 6.533, 6 6.648, 6.648, 6.648, 6.648, 6.648, 6.648, 6.648, 7 6.767, 6.767, 6.767, 6.767, 6.767, 6.767, 6.767, 8 6.890, 6.890, 6.890, 6.890, 6.890, 6.890, 6.890, 9 7.016, 7.016, 7.016, 7.016, 7.016, 7.016, 7.016/ DATA PF166/ 1 7.147, 7.147, 7.147, 7.147, 7.147, 7.147, 7.147, 2 7.375, 7.375, 7.375, 7.375, 7.375, 7.375, 7.375, 3 7.616, 7.616, 7.616, 7.616, 7.616, 7.616, 7.616, 4 7.871, 7.871, 7.871, 7.871, 7.871, 7.871, 7.871, 5 8.140, 8.140, 8.140, 8.140, 8.140, 8.140, 8.140, 6 8.421, 8.421, 8.421, 8.421, 8.421, 8.421, 8.421, 7 8.714, 8.714, 8.714, 8.714, 8.714, 8.714, 8.714, 8 9.017, 9.017, 9.017, 9.017, 9.017, 9.017, 9.017, 9 9.326, 9.326, 9.326, 9.326, 9.326, 9.326, 9.326/ DATA PF167/ 1 9.641, 9.641, 9.641, 9.641, 9.641, 9.641, 9.641, 2 9.958, 9.958, 9.958, 9.958, 9.958, 9.958, 9.958, 3 10.275, 10.275, 10.275, 10.275, 10.275, 10.275, 10.275, 4 10.594, 10.594, 10.594, 10.594, 10.594, 10.594, 10.594, 5 10.915, 10.915, 10.915, 10.915, 10.915, 10.915, 10.915, 6 11.247, 11.247, 11.247, 11.247, 11.247, 11.247, 11.247, 7 11.605, 11.605, 11.605, 11.605, 11.605, 11.605, 11.605, 8 12.019, 12.019, 12.019, 12.019, 12.019, 12.019, 12.019, 9 12.537, 12.537, 12.537, 12.537, 12.537, 12.537, 12.537/ DATA PF168/ 1 13.234, 13.234, 13.234, 13.234, 13.234, 13.234, 13.234, 2 14.225, 14.225, 14.225, 14.225, 14.225, 14.225, 14.225, 3 15.678, 15.678, 15.678, 15.678, 15.678, 15.678, 15.678, 4 17.850, 17.850, 17.850, 17.850, 17.850, 17.850, 17.849, 5 21.135, 21.135, 21.135, 21.135, 21.135, 21.134, 21.132, 6 26.162, 26.162, 26.162, 26.162, 26.160, 26.159, 26.149, 7 33.937, 33.937, 33.937, 33.935, 33.931, 33.926, 33.891, 8 46.051, 46.051, 46.051, 46.045, 46.033, 46.019, 45.913, 9 64.933, 64.933, 64.931, 64.915, 64.884, 64.845, 64.562/ DATA PF169/ 1 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 2 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 3 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 5 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 6 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 7 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 8 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 9 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000/ DATA PF170/ 1 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 2 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 3 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 5 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 6 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 7 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 8 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 9 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000/ DATA PF171/ 1 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 2 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 3 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 4 4.003, 4.003, 4.003, 4.003, 4.003, 4.003, 4.003, 5 4.005, 4.005, 4.005, 4.005, 4.005, 4.005, 4.005, 6 4.008, 4.008, 4.008, 4.008, 4.008, 4.008, 4.008, 7 4.013, 4.013, 4.013, 4.013, 4.013, 4.013, 4.013, 8 4.020, 4.020, 4.020, 4.020, 4.020, 4.020, 4.020, 9 4.030, 4.030, 4.030, 4.030, 4.030, 4.030, 4.030/ DATA PF172/ 1 4.045, 4.045, 4.045, 4.045, 4.045, 4.045, 4.045, 2 4.065, 4.065, 4.065, 4.065, 4.065, 4.065, 4.065, 3 4.091, 4.091, 4.091, 4.091, 4.091, 4.091, 4.091, 4 4.154, 4.154, 4.154, 4.154, 4.154, 4.154, 4.154, 5 4.246, 4.246, 4.246, 4.246, 4.246, 4.246, 4.246, 6 4.375, 4.375, 4.375, 4.375, 4.375, 4.375, 4.375, 7 4.549, 4.549, 4.549, 4.549, 4.549, 4.549, 4.549, 8 4.772, 4.772, 4.772, 4.772, 4.772, 4.772, 4.772, 9 5.051, 5.051, 5.051, 5.051, 5.051, 5.051, 5.051/ DATA PF173/ 1 5.387, 5.387, 5.387, 5.387, 5.387, 5.387, 5.387, 2 5.781, 5.781, 5.781, 5.781, 5.781, 5.781, 5.781, 3 6.232, 6.232, 6.232, 6.232, 6.232, 6.232, 6.232, 4 6.736, 6.736, 6.736, 6.736, 6.736, 6.736, 6.736, 5 7.288, 7.288, 7.288, 7.288, 7.288, 7.288, 7.288, 6 7.884, 7.884, 7.884, 7.884, 7.884, 7.884, 7.884, 7 8.519, 8.519, 8.519, 8.519, 8.519, 8.519, 8.519, 8 9.193, 9.193, 9.193, 9.193, 9.193, 9.193, 9.193, 9 9.911, 9.911, 9.911, 9.911, 9.911, 9.911, 9.911/ DATA PF174/ 1 10.688, 10.688, 10.688, 10.688, 10.688, 10.688, 10.688, 2 11.553, 11.553, 11.553, 11.553, 11.553, 11.553, 11.553, 3 12.553, 12.553, 12.553, 12.553, 12.553, 12.553, 12.553, 4 13.763, 13.763, 13.763, 13.763, 13.763, 13.763, 13.763, 5 15.292, 15.292, 15.292, 15.292, 15.292, 15.292, 15.292, 6 17.301, 17.301, 17.301, 17.301, 17.301, 17.301, 17.301, 7 20.027, 20.027, 20.027, 20.027, 20.027, 20.027, 20.027, 8 23.820, 23.820, 23.820, 23.820, 23.820, 23.820, 23.820, 9 29.218, 29.218, 29.218, 29.218, 29.218, 29.217, 29.215/ DATA PF175/ 1 37.046, 37.046, 37.046, 37.046, 37.045, 37.043, 37.035, 2 48.576, 48.576, 48.576, 48.575, 48.573, 48.566, 48.542, 3 1.176, 1.176, 1.176, 1.176, 1.176, 1.176, 1.176, 4 1.202, 1.202, 1.202, 1.202, 1.202, 1.202, 1.202, 5 1.231, 1.231, 1.231, 1.231, 1.231, 1.231, 1.231, 6 1.262, 1.262, 1.262, 1.262, 1.262, 1.262, 1.262, 7 1.296, 1.296, 1.296, 1.296, 1.296, 1.296, 1.296, 8 1.334, 1.334, 1.334, 1.334, 1.334, 1.334, 1.334, 9 1.374, 1.374, 1.374, 1.374, 1.374, 1.374, 1.374/ DATA PF176/ 1 1.418, 1.418, 1.418, 1.418, 1.418, 1.418, 1.418, 2 1.466, 1.466, 1.466, 1.466, 1.466, 1.466, 1.466, 3 1.517, 1.517, 1.517, 1.517, 1.517, 1.517, 1.517, 4 1.571, 1.571, 1.571, 1.571, 1.571, 1.571, 1.571, 5 1.630, 1.630, 1.630, 1.630, 1.630, 1.630, 1.630, 6 1.692, 1.692, 1.692, 1.692, 1.692, 1.692, 1.692, 7 1.758, 1.758, 1.758, 1.758, 1.758, 1.758, 1.758, 8 1.828, 1.828, 1.828, 1.828, 1.828, 1.828, 1.828, 9 1.903, 1.903, 1.903, 1.903, 1.903, 1.903, 1.903/ DATA PF177/ 1 1.981, 1.981, 1.981, 1.981, 1.981, 1.981, 1.981, 2 2.063, 2.063, 2.063, 2.063, 2.063, 2.063, 2.063, 3 2.149, 2.149, 2.149, 2.149, 2.149, 2.149, 2.149, 4 2.239, 2.239, 2.239, 2.239, 2.239, 2.239, 2.239, 5 2.380, 2.380, 2.380, 2.380, 2.380, 2.380, 2.380, 6 2.531, 2.531, 2.531, 2.531, 2.531, 2.531, 2.531, 7 2.689, 2.689, 2.689, 2.689, 2.689, 2.689, 2.689, 8 2.854, 2.854, 2.854, 2.854, 2.854, 2.854, 2.854, 9 3.027, 3.027, 3.027, 3.027, 3.027, 3.027, 3.027/ DATA PF178/ 1 3.206, 3.206, 3.206, 3.206, 3.206, 3.206, 3.206, 2 3.391, 3.391, 3.391, 3.391, 3.391, 3.391, 3.391, 3 3.582, 3.582, 3.582, 3.582, 3.582, 3.582, 3.582, 4 3.778, 3.778, 3.778, 3.778, 3.778, 3.778, 3.778, 5 3.980, 3.980, 3.980, 3.980, 3.980, 3.980, 3.980, 6 4.327, 4.327, 4.327, 4.327, 4.327, 4.327, 4.327, 7 4.686, 4.686, 4.686, 4.686, 4.686, 4.686, 4.686, 8 5.058, 5.058, 5.058, 5.058, 5.058, 5.058, 5.058, 9 5.442, 5.442, 5.442, 5.442, 5.442, 5.442, 5.442/ DATA PF179/ 1 5.837, 5.837, 5.837, 5.837, 5.837, 5.837, 5.837, 2 6.241, 6.241, 6.241, 6.241, 6.241, 6.241, 6.241, 3 6.655, 6.655, 6.655, 6.655, 6.655, 6.655, 6.655, 4 7.075, 7.075, 7.075, 7.075, 7.075, 7.075, 7.075, 5 7.501, 7.501, 7.501, 7.501, 7.501, 7.501, 7.501, 6 7.932, 7.932, 7.932, 7.932, 7.932, 7.932, 7.932, 7 8.368, 8.368, 8.368, 8.368, 8.368, 8.368, 8.368, 8 8.811, 8.811, 8.811, 8.811, 8.811, 8.811, 8.811, 9 9.265, 9.265, 9.265, 9.265, 9.265, 9.265, 9.265/ DATA PF180/ 1 9.739, 9.739, 9.739, 9.739, 9.739, 9.739, 9.739, 2 10.245, 10.245, 10.245, 10.245, 10.245, 10.245, 10.245, 3 10.805, 10.805, 10.805, 10.805, 10.805, 10.805, 10.805, 4 11.447, 11.447, 11.447, 11.447, 11.447, 11.447, 11.447, 5 12.209, 12.209, 12.209, 12.209, 12.209, 12.209, 12.209, 6 13.145, 13.145, 13.145, 13.145, 13.145, 13.145, 13.145, 7 14.331, 14.331, 14.331, 14.331, 14.331, 14.331, 14.331, 8 15.869, 15.869, 15.869, 15.869, 15.869, 15.869, 15.869, 9 17.903, 17.903, 17.903, 17.903, 17.903, 17.903, 17.903/ DATA PF181/ 1 20.634, 20.634, 20.634, 20.634, 20.634, 20.634, 20.634, 2 24.348, 24.348, 24.348, 24.348, 24.348, 24.348, 24.348, 3 29.454, 29.454, 29.454, 29.454, 29.454, 29.453, 29.452, 4 36.541, 36.540, 36.540, 36.540, 36.540, 36.538, 36.534, 5 2.022, 2.022, 2.022, 2.022, 2.022, 2.022, 2.022, 6 2.028, 2.028, 2.028, 2.028, 2.028, 2.028, 2.028, 7 2.035, 2.035, 2.035, 2.035, 2.035, 2.035, 2.035, 8 2.043, 2.043, 2.043, 2.043, 2.043, 2.043, 2.043, 9 2.053, 2.053, 2.053, 2.053, 2.053, 2.053, 2.053/ DATA PF182/ 1 2.065, 2.065, 2.065, 2.065, 2.065, 2.065, 2.065, 2 2.078, 2.078, 2.078, 2.078, 2.078, 2.078, 2.078, 3 2.093, 2.093, 2.093, 2.093, 2.093, 2.093, 2.093, 4 2.110, 2.110, 2.110, 2.110, 2.110, 2.110, 2.110, 5 2.129, 2.129, 2.129, 2.129, 2.129, 2.129, 2.129, 6 2.151, 2.151, 2.151, 2.151, 2.151, 2.151, 2.151, 7 2.175, 2.175, 2.175, 2.175, 2.175, 2.175, 2.175, 8 2.201, 2.201, 2.201, 2.201, 2.201, 2.201, 2.201, 9 2.230, 2.230, 2.230, 2.230, 2.230, 2.230, 2.230/ DATA PF183/ 1 2.262, 2.262, 2.262, 2.262, 2.262, 2.262, 2.262, 2 2.296, 2.296, 2.296, 2.296, 2.296, 2.296, 2.296, 3 2.333, 2.333, 2.333, 2.333, 2.333, 2.333, 2.333, 4 2.372, 2.372, 2.372, 2.372, 2.372, 2.372, 2.372, 5 2.414, 2.414, 2.414, 2.414, 2.414, 2.414, 2.414, 6 2.459, 2.459, 2.459, 2.459, 2.459, 2.459, 2.459, 7 2.530, 2.530, 2.530, 2.530, 2.530, 2.530, 2.530, 8 2.607, 2.607, 2.607, 2.607, 2.607, 2.607, 2.607, 9 2.688, 2.688, 2.688, 2.688, 2.688, 2.688, 2.688/ DATA PF184/ 1 2.774, 2.774, 2.774, 2.774, 2.774, 2.774, 2.774, 2 2.864, 2.864, 2.864, 2.864, 2.864, 2.864, 2.864, 3 2.957, 2.957, 2.957, 2.957, 2.957, 2.957, 2.957, 4 3.052, 3.052, 3.052, 3.052, 3.052, 3.052, 3.052, 5 3.151, 3.151, 3.151, 3.151, 3.151, 3.151, 3.151, 6 3.250, 3.250, 3.250, 3.250, 3.250, 3.250, 3.250, 7 3.351, 3.351, 3.351, 3.351, 3.351, 3.351, 3.351, 8 3.520, 3.520, 3.520, 3.520, 3.520, 3.520, 3.520, 9 3.689, 3.689, 3.689, 3.689, 3.689, 3.689, 3.689/ DATA PF185/ 1 3.855, 3.855, 3.855, 3.855, 3.855, 3.855, 3.855, 2 4.017, 4.017, 4.017, 4.017, 4.017, 4.017, 4.017, 3 4.173, 4.173, 4.173, 4.173, 4.173, 4.173, 4.173, 4 4.322, 4.322, 4.322, 4.322, 4.322, 4.322, 4.322, 5 4.464, 4.464, 4.464, 4.464, 4.464, 4.464, 4.464, 6 4.598, 4.598, 4.598, 4.598, 4.598, 4.598, 4.598, 7 4.725, 4.725, 4.725, 4.725, 4.725, 4.725, 4.725, 8 4.846, 4.846, 4.846, 4.846, 4.846, 4.846, 4.846, 9 4.965, 4.965, 4.965, 4.965, 4.965, 4.965, 4.965/ DATA PF186/ 1 5.085, 5.085, 5.085, 5.085, 5.085, 5.085, 5.085, 2 5.214, 5.214, 5.214, 5.214, 5.214, 5.214, 5.214, 3 5.361, 5.361, 5.361, 5.361, 5.361, 5.361, 5.361, 4 5.540, 5.540, 5.540, 5.540, 5.540, 5.540, 5.540, 5 5.764, 5.764, 5.764, 5.764, 5.764, 5.764, 5.764, 6 6.054, 6.054, 6.054, 6.054, 6.054, 6.054, 6.054, 7 6.430, 6.430, 6.430, 6.430, 6.430, 6.430, 6.430, 8 6.920, 6.920, 6.920, 6.920, 6.920, 6.920, 6.920, 9 7.559, 7.559, 7.559, 7.559, 7.559, 7.559, 7.559/ DATA PF187/ 1 8.392, 8.392, 8.392, 8.392, 8.392, 8.392, 8.392, 2 9.482, 9.482, 9.482, 9.482, 9.482, 9.482, 9.482, 3 10.912, 10.912, 10.912, 10.912, 10.912, 10.912, 10.912, 4 12.796, 12.796, 12.796, 12.796, 12.796, 12.796, 12.796, 5 15.289, 15.289, 15.289, 15.289, 15.289, 15.289, 15.289, 6 18.600, 18.600, 18.600, 18.600, 18.600, 18.600, 18.599, 7 28.964, 28.964, 28.964, 28.964, 28.964, 28.964, 28.964, 8 29.653, 29.653, 29.653, 29.653, 29.653, 29.653, 29.653, 9 30.355, 30.355, 30.355, 30.355, 30.355, 30.355, 30.355/ DATA PF188/ 1 31.070, 31.070, 31.070, 31.070, 31.070, 31.070, 31.070, 2 31.800, 31.800, 31.800, 31.800, 31.800, 31.800, 31.800, 3 32.546, 32.546, 32.546, 32.546, 32.546, 32.546, 32.546, 4 33.311, 33.311, 33.311, 33.311, 33.311, 33.311, 33.310, 5 34.097, 34.097, 34.097, 34.097, 34.097, 34.097, 34.096, 6 34.909, 34.909, 34.909, 34.909, 34.909, 34.909, 34.907, 7 35.752, 35.752, 35.752, 35.752, 35.752, 35.752, 35.748, 8 36.630, 36.630, 36.630, 36.630, 36.630, 36.630, 36.624, 9 37.550, 37.550, 37.550, 37.550, 37.550, 37.550, 37.541/ DATA PF189/ 1 38.521, 38.521, 38.521, 38.521, 38.521, 38.521, 38.506, 2 39.552, 39.552, 39.552, 39.552, 39.552, 39.552, 39.528, 3 40.654, 40.654, 40.654, 40.654, 40.654, 40.653, 40.616, 4 41.839, 41.839, 41.839, 41.839, 41.839, 41.838, 41.781, 5 43.122, 43.122, 43.122, 43.122, 43.121, 43.120, 43.035, 6 44.520, 44.520, 44.520, 44.519, 44.519, 44.516, 44.389, 7 46.051, 46.051, 46.051, 46.050, 46.049, 46.043, 45.858, 8 47.737, 47.737, 47.737, 47.735, 47.733, 47.723, 47.456, 9 50.611, 50.611, 50.610, 50.607, 50.601, 50.579, 50.128/ DATA PF190/ 1 53.988, 53.987, 53.985, 53.976, 53.962, 53.917, 53.177, 2 57.987, 57.984, 57.978, 57.958, 57.927, 57.835, 56.657, 3 62.755, 62.749, 62.736, 62.690, 62.624, 62.447, 60.620, 4 68.478, 68.466, 68.437, 68.341, 68.207, 67.879, 65.116, 5 75.387, 75.362, 75.304, 75.111, 74.852, 74.270, 70.189, 6 83.777, 83.728, 83.614, 83.246, 82.765, 81.770, 75.878, 7 94.015, 93.923, 93.710, 93.038, 92.180, 90.537, 82.211, 8 106.560, 106.394, 106.013, 104.833, 103.363, 100.737, 89.209, 9 121.977, 121.688, 121.031, 119.037, 116.606, 112.538, 96.882/ DATA PF191/ 1 155.960, 155.291, 153.784, 149.355, 144.131, 136.206, 111.159, 2 203.772, 202.360, 199.205, 190.182, 179.852, 165.480, 127.228, 3 270.211, 267.461, 261.364, 244.355, 225.380, 200.934, 144.936, 4 360.723, 355.745, 344.776, 314.845, 282.220, 242.947, 164.067, 5 480.987, 472.537, 454.025, 404.496, 351.604, 291.656, 184.354, 6 636.365, 622.824, 593.310, 515.716, 434.350, 346.924, 205.502, 7 831.318, 810.702, 765.974, 650.205, 530.755, 408.348, 227.205, 8 1068.885, 1038.900, 974.113, 808.736, 640.542, 475.277, 249.159, 9 1350.316, 1308.446,1218.309, 991.052, 762.864, 546.865, 271.081/ DATA PF192/ 1 1674.905, 1618.524,1497.540,1195.859, 896.369, 622.124, 292.715, 2 2040.034, 1966.531,1809.259,1420.927,1039.299, 699.986, 313.839, 3 2441.398, 2348.296,2149.603,1663.266,1189.613, 779.369, 334.269, 4 2873.361, 2758.428,2513.703,1919.352,1345.124, 859.220, 353.857, 5 3329.382, 3190.712,2896.046,2185.359,1503.617, 938.566, 372.495, 6 3802.459, 3638.530,3290.825,2457.389,1662.961,1016.538, 390.104, 7 4285.530, 4095.237,3692.263,2731.665,1821.191,1092.393, 406.640, 8 4771.823, 4554.478,4094.883,3004.685,1976.565,1165.521, 422.080, 9 5255.115, 5010.436,4493.705,3273.332,2127.600,1235.444, 436.426/ DATA PF193/ 1 5729.917, 5457.992,4884.378,3534.940,2273.087,1301.811, 449.696, 2 6191.573, 5892.818,5263.250,3787.321,2412.088,1364.386, 461.922, 3 6636.300, 6311.411,5627.389,4028.763,2543.918,1423.035, 473.146, 4 7061.173, 6711.069,5974.558,4258.007,2668.125,1477.713, 483.416, 5 7464.068, 7089.847,6303.169,4474.204,2784.458,1528.443, 492.789, 6 7843.587, 7446.475,6612.213,4676.869,2892.842,1575.309, 501.319, 7 8198.964, 7780.273,6901.181,4865.822,2993.341,1618.440, 509.066, 8 8529.971, 8091.061,7169.988,5041.141,3086.134,1657.997, 516.086, 9 26.527, 26.527, 26.527, 26.527, 26.527, 26.527, 26.527/ DATA PF194/ 1 27.124, 27.124, 27.124, 27.124, 27.124, 27.124, 27.124, 2 27.742, 27.742, 27.742, 27.742, 27.742, 27.742, 27.742, 3 28.381, 28.381, 28.381, 28.381, 28.381, 28.381, 28.381, 4 29.042, 29.042, 29.042, 29.042, 29.042, 29.042, 29.042, 5 29.727, 29.727, 29.727, 29.727, 29.727, 29.727, 29.727, 6 30.436, 30.436, 30.436, 30.436, 30.436, 30.436, 30.436, 7 31.172, 31.172, 31.172, 31.172, 31.172, 31.172, 31.172, 8 31.936, 31.936, 31.936, 31.936, 31.936, 31.936, 31.936, 9 32.732, 32.732, 32.732, 32.732, 32.732, 32.732, 32.732/ DATA PF195/ 1 33.562, 33.562, 33.562, 33.562, 33.562, 33.562, 33.562, 2 34.431, 34.431, 34.431, 34.431, 34.431, 34.431, 34.431, 3 35.342, 35.342, 35.342, 35.342, 35.342, 35.342, 35.342, 4 36.301, 36.301, 36.301, 36.301, 36.301, 36.301, 36.301, 5 37.312, 37.312, 37.312, 37.312, 37.312, 37.312, 37.312, 6 38.382, 38.382, 38.382, 38.382, 38.382, 38.382, 38.382, 7 39.518, 39.518, 39.518, 39.518, 39.518, 39.518, 39.518, 8 40.725, 40.725, 40.725, 40.725, 40.725, 40.725, 40.725, 9 42.012, 42.012, 42.012, 42.012, 42.012, 42.012, 42.012/ DATA PF196/ 1 43.387, 43.387, 43.387, 43.387, 43.387, 43.387, 43.387, 2 45.631, 45.631, 45.631, 45.631, 45.631, 45.631, 45.631, 3 48.121, 48.121, 48.121, 48.121, 48.121, 48.121, 48.121, 4 50.887, 50.887, 50.887, 50.887, 50.887, 50.887, 50.887, 5 53.962, 53.962, 53.962, 53.962, 53.962, 53.962, 53.962, 6 57.379, 57.379, 57.379, 57.379, 57.379, 57.379, 57.379, 7 61.172, 61.172, 61.172, 61.172, 61.172, 61.172, 61.172, 8 65.380, 65.380, 65.380, 65.380, 65.380, 65.380, 65.380, 9 70.040, 70.040, 70.040, 70.040, 70.039, 70.039, 70.039/ DATA PF197/ 1 75.194, 75.194, 75.194, 75.194, 75.194, 75.193, 75.191, 2 80.890, 80.890, 80.890, 80.890, 80.889, 80.888, 80.883, 3 91.742, 91.742, 91.741, 91.741, 91.736, 91.729, 91.710, 4 104.592, 104.590, 104.589, 104.588, 104.563, 104.531, 104.462, 5 119.955, 119.947, 119.942, 119.937, 119.837, 119.715, 119.496, 6 138.688, 138.661, 138.641, 138.624, 138.274, 137.877, 137.259, 7 162.267, 162.180, 162.117, 162.063, 161.004, 159.859, 158.297, 8 193.182, 192.939, 192.762, 192.612, 189.769, 186.828, 183.251, 9 235.426, 234.815, 234.373, 234.002, 227.139, 220.324, 212.825/ DATA PF198/ 1 294.951, 293.562, 292.561, 291.731, 276.683, 262.263, 247.739, 2 379.953, 377.068, 374.994, 373.291, 342.993, 314.867, 288.660, 3 500.805, 495.268, 491.297, 488.070, 431.535, 380.513, 336.130, 4 669.541, 659.643, 652.560, 646.852, 548.278, 461.514, 390.489, 5 898.911, 882.298, 870.434, 860.945, 699.154, 559.875, 451.826, 6 1201.122, 1174.768,1155.980,1141.055, 889.433, 677.055, 519.947, 7 1586.509, 1546.746,1518.445,1496.097,1123.113, 813.776, 594.375, 8 2062.332, 2004.965,1964.190,1932.166,1402.448, 969.920, 674.380, 9 2631.943, 2552.410,2495.950,2451.821,1727.664,1144.515, 759.023/ DATA PF199/ 1 3294.384, 3187.969,3112.512,3053.783,2096.908,1335.801, 847.223, 2 4044.477, 3906.535,3808.817,3733.052,2506.408,1541.374, 937.818, 3 4873.314, 4699.476,4576.439,4481.367,2950.798,1758.360,1029.634, 4 5769.029, 5555.398,5404.315,5287.924,3423.548,1983.616,1121.540, 5 6717.742, 6461.028,6279.603,6140.213,3917.429,2213.916,1212.491, 6 7704.516, 7402.132,7188.564,7024.873,4424.971,2446.116,1301.561, 7 8714.251, 8364.358,8117.373,7928.473,4938.856,2677.288,1387.960, 8 9732.430, 9333.938,9052.787,8838.166,5452.236,2904.817,1471.049, 910745.700,10298.233,9982.668,9742.185,5958.966,3126.453,1550.328/ DATA PF200/ 111742.262,11246.095,10896.32,10630.17, 6453.75, 3340.35, 1625.44, 2 22.450, 22.450, 22.450, 22.450, 22.450, 22.450, 22.450, 3 22.668, 22.668, 22.668, 22.668, 22.668, 22.668, 22.668, 4 22.880, 22.880, 22.880, 22.880, 22.880, 22.880, 22.880, 5 23.088, 23.088, 23.088, 23.088, 23.088, 23.088, 23.088, 6 23.292, 23.292, 23.292, 23.292, 23.292, 23.292, 23.292, 7 23.493, 23.493, 23.493, 23.493, 23.493, 23.493, 23.493, 8 23.692, 23.692, 23.692, 23.692, 23.692, 23.692, 23.692, 9 23.889, 23.889, 23.889, 23.889, 23.889, 23.889, 23.889/ DATA PF201/ 1 24.087, 24.087, 24.087, 24.087, 24.087, 24.087, 24.087, 2 24.286, 24.286, 24.286, 24.286, 24.286, 24.286, 24.286, 3 24.488, 24.488, 24.488, 24.488, 24.488, 24.488, 24.488, 4 24.695, 24.695, 24.695, 24.695, 24.695, 24.695, 24.695, 5 24.909, 24.909, 24.909, 24.909, 24.909, 24.909, 24.909, 6 25.131, 25.131, 25.131, 25.131, 25.131, 25.131, 25.131, 7 25.365, 25.365, 25.365, 25.365, 25.365, 25.365, 25.365, 8 25.612, 25.612, 25.612, 25.612, 25.612, 25.612, 25.612, 9 25.875, 25.875, 25.875, 25.875, 25.875, 25.875, 25.875/ DATA PF202/ 1 26.156, 26.156, 26.156, 26.156, 26.156, 26.156, 26.156, 2 26.458, 26.458, 26.458, 26.458, 26.458, 26.458, 26.458, 3 26.783, 26.783, 26.783, 26.783, 26.783, 26.783, 26.783, 4 27.320, 27.320, 27.320, 27.320, 27.320, 27.320, 27.320, 5 27.924, 27.924, 27.924, 27.924, 27.924, 27.924, 27.924, 6 28.603, 28.603, 28.603, 28.603, 28.603, 28.603, 28.603, 7 29.363, 29.363, 29.363, 29.363, 29.363, 29.363, 29.363, 8 30.212, 30.212, 30.212, 30.212, 30.212, 30.212, 30.212, 9 31.156, 31.156, 31.156, 31.156, 31.156, 31.156, 31.156/ DATA PF203/ 1 32.198, 32.198, 32.198, 32.198, 32.198, 32.198, 32.198, 2 33.344, 33.344, 33.344, 33.344, 33.344, 33.344, 33.344, 3 34.597, 34.597, 34.597, 34.597, 34.597, 34.597, 34.597, 4 35.960, 35.960, 35.960, 35.960, 35.960, 35.960, 35.960, 5 38.481, 38.481, 38.481, 38.481, 38.481, 38.481, 38.481, 6 41.326, 41.326, 41.326, 41.326, 41.326, 41.326, 41.326, 7 44.511, 44.511, 44.511, 44.511, 44.511, 44.511, 44.511, 8 48.060, 48.060, 48.060, 48.060, 48.060, 48.060, 48.060, 9 52.010, 52.010, 52.010, 52.010, 52.010, 52.010, 52.010/ DATA PF204/ 1 56.423, 56.423, 56.423, 56.423, 56.423, 56.423, 56.423, 2 61.395, 61.395, 61.395, 61.395, 61.395, 61.395, 61.395, 3 67.095, 67.095, 67.095, 67.095, 67.095, 67.095, 67.093, 4 73.831, 73.831, 73.831, 73.830, 73.830, 73.830, 73.822, 5 82.195, 82.195, 82.195, 82.194, 82.194, 82.192, 82.162, 6 93.328, 93.328, 93.327, 93.324, 93.321, 93.315, 93.214, 7 109.315, 109.315, 109.310, 109.300, 109.292, 109.270, 108.977, 8 133.704, 133.704, 133.691, 133.662, 133.639, 133.578, 132.816, 9 172.048, 172.047, 172.015, 171.941, 171.881, 171.731, 169.945/ DATA PF205/ 1 232.299, 232.297, 232.223, 232.052, 231.915, 231.576, 227.763, 2 324.880, 324.876, 324.719, 324.359, 324.071, 323.372, 315.872, 3 462.289, 462.281, 461.974, 461.273, 460.717, 459.385, 445.679, 4 658.216, 658.201, 657.643, 656.375, 655.373, 653.006, 629.548, 5 926.273, 926.247, 925.299, 923.147, 921.455, 917.502, 879.632, 6 1278.553, 1278.513,1276.989,1273.542,1270.843,1264.601,1206.563, 7 1724.272, 1724.210,1721.885,1716.639,1712.547,1703.168,1618.256, 8 2268.715, 2268.625,2265.238,2257.610,2251.679,2238.197,2119.001, 9 2912.655, 2912.528,2907.792,2897.143,2888.889,2870.258,2708.990/ DATA PF206/ 1 3652.272, 3652.100,3645.714,3631.377,3620.294,3595.438,3384.303, 2 4479.541, 4479.316,4470.981,4452.293,4437.882,4405.744,4137.300, 3 5382.976, 5382.692,5372.122,5348.455,5330.243,5289.835,4957.322, 4 16.025, 16.025, 16.025, 16.025, 16.025, 16.025, 16.025, 5 16.208, 16.208, 16.208, 16.208, 16.208, 16.208, 16.208, 6 16.387, 16.387, 16.387, 16.387, 16.387, 16.387, 16.387, 7 16.561, 16.561, 16.561, 16.561, 16.561, 16.561, 16.561, 8 16.732, 16.732, 16.732, 16.732, 16.732, 16.732, 16.732, 9 16.899, 16.899, 16.899, 16.899, 16.899, 16.899, 16.899/ DATA PF207/ 1 17.063, 17.063, 17.063, 17.063, 17.063, 17.063, 17.063, 2 17.223, 17.223, 17.223, 17.223, 17.223, 17.223, 17.223, 3 17.381, 17.381, 17.381, 17.381, 17.381, 17.381, 17.381, 4 17.536, 17.536, 17.536, 17.536, 17.536, 17.536, 17.536, 5 17.691, 17.691, 17.691, 17.691, 17.691, 17.691, 17.691, 6 17.844, 17.844, 17.844, 17.844, 17.844, 17.844, 17.844, 7 17.996, 17.996, 17.996, 17.996, 17.996, 17.996, 17.996, 8 18.150, 18.150, 18.150, 18.150, 18.150, 18.150, 18.150, 9 18.304, 18.304, 18.304, 18.304, 18.304, 18.304, 18.304/ DATA PF208/ 1 18.460, 18.460, 18.460, 18.460, 18.460, 18.460, 18.460, 2 18.619, 18.619, 18.619, 18.619, 18.619, 18.619, 18.619, 3 18.781, 18.781, 18.781, 18.781, 18.781, 18.781, 18.781, 4 18.948, 18.948, 18.948, 18.948, 18.948, 18.948, 18.948, 5 19.120, 19.120, 19.120, 19.120, 19.120, 19.120, 19.120, 6 19.390, 19.390, 19.390, 19.390, 19.390, 19.390, 19.390, 7 19.676, 19.676, 19.676, 19.676, 19.676, 19.676, 19.676, 8 19.981, 19.981, 19.981, 19.981, 19.981, 19.981, 19.981, 9 20.306, 20.306, 20.306, 20.306, 20.306, 20.306, 20.306/ DATA PF209/ 1 20.655, 20.655, 20.655, 20.655, 20.655, 20.655, 20.655, 2 21.027, 21.027, 21.027, 21.027, 21.027, 21.027, 21.027, 3 21.425, 21.425, 21.425, 21.425, 21.425, 21.425, 21.425, 4 21.848, 21.848, 21.848, 21.848, 21.848, 21.848, 21.848, 5 22.296, 22.296, 22.296, 22.296, 22.296, 22.296, 22.296, 6 22.770, 22.770, 22.770, 22.770, 22.770, 22.770, 22.770, 7 23.612, 23.612, 23.612, 23.612, 23.612, 23.612, 23.612, 8 24.515, 24.515, 24.515, 24.515, 24.515, 24.515, 24.515, 9 25.468, 25.468, 25.468, 25.468, 25.468, 25.468, 25.468/ DATA PF210/ 1 26.463, 26.463, 26.463, 26.463, 26.463, 26.463, 26.463, 2 27.488, 27.488, 27.488, 27.488, 27.488, 27.488, 27.488, 3 28.535, 28.535, 28.535, 28.535, 28.535, 28.535, 28.535, 4 29.597, 29.597, 29.597, 29.597, 29.597, 29.597, 29.597, 5 30.673, 30.673, 30.673, 30.673, 30.673, 30.673, 30.673, 6 31.769, 31.769, 31.769, 31.769, 31.769, 31.769, 31.769, 7 32.899, 32.899, 32.899, 32.899, 32.899, 32.899, 32.899, 8 34.094, 34.094, 34.094, 34.094, 34.094, 34.094, 34.092, 9 35.409, 35.409, 35.409, 35.409, 35.409, 35.409, 35.399/ DATA PF211/ 1 36.952, 36.952, 36.952, 36.952, 36.952, 36.952, 36.910, 2 38.929, 38.929, 38.929, 38.929, 38.929, 38.928, 38.783, 3 41.731, 41.730, 41.730, 41.729, 41.729, 41.727, 41.289, 4 46.057, 46.055, 46.055, 46.053, 46.053, 46.047, 44.874, 5 53.066, 53.062, 53.062, 53.056, 53.056, 53.043, 50.220, 6 64.522, 64.512, 64.512, 64.498, 64.498, 64.469, 58.296, 7 82.878, 82.858, 82.858, 82.829, 82.829, 82.770, 70.369, 8 111.261, 111.221, 111.221, 111.166, 111.166, 111.053, 87.961, 9 153.311, 153.238, 153.238, 153.140, 153.140, 152.940, 112.747/ DATA PF212/ 1 212.892, 212.769, 212.769, 212.603, 212.603, 212.272, 146.405, 2 293.715, 293.520, 293.520, 293.256, 293.256, 292.735, 190.434, 3 398.933, 398.636, 398.636, 398.236, 398.236, 397.459, 245.997, 4 530.780, 530.350, 530.350, 529.771, 529.771, 528.658, 313.775, 5 690.322, 689.724, 689.724, 688.919, 688.919, 687.387, 393.899, 6 7.902, 7.902, 7.902, 7.902, 7.902, 7.902, 7.902, 7 7.978, 7.978, 7.978, 7.978, 7.978, 7.978, 7.978, 8 8.052, 8.052, 8.052, 8.052, 8.052, 8.052, 8.052, 9 8.125, 8.125, 8.125, 8.125, 8.125, 8.125, 8.125/ DATA PF213/ 1 8.195, 8.195, 8.195, 8.195, 8.195, 8.195, 8.195, 2 8.263, 8.263, 8.263, 8.263, 8.263, 8.263, 8.263, 3 8.329, 8.329, 8.329, 8.329, 8.329, 8.329, 8.329, 4 8.393, 8.393, 8.393, 8.393, 8.393, 8.393, 8.393, 5 8.455, 8.455, 8.455, 8.455, 8.455, 8.455, 8.455, 6 8.515, 8.515, 8.515, 8.515, 8.515, 8.515, 8.515, 7 8.573, 8.573, 8.573, 8.573, 8.573, 8.573, 8.573, 8 8.630, 8.630, 8.630, 8.630, 8.630, 8.630, 8.630, 9 8.684, 8.684, 8.684, 8.684, 8.684, 8.684, 8.684/ DATA PF214/ 1 8.736, 8.736, 8.736, 8.736, 8.736, 8.736, 8.736, 2 8.787, 8.787, 8.787, 8.787, 8.787, 8.787, 8.787, 3 8.836, 8.836, 8.836, 8.836, 8.836, 8.836, 8.836, 4 8.883, 8.883, 8.883, 8.883, 8.883, 8.883, 8.883, 5 8.929, 8.929, 8.929, 8.929, 8.929, 8.929, 8.929, 6 8.972, 8.972, 8.972, 8.972, 8.972, 8.972, 8.972, 7 9.015, 9.015, 9.015, 9.015, 9.015, 9.015, 9.015, 8 9.075, 9.075, 9.075, 9.075, 9.075, 9.075, 9.075, 9 9.132, 9.132, 9.132, 9.132, 9.132, 9.132, 9.132/ DATA PF215/ 1 9.186, 9.186, 9.186, 9.186, 9.186, 9.186, 9.186, 2 9.237, 9.237, 9.237, 9.237, 9.237, 9.237, 9.237, 3 9.284, 9.284, 9.284, 9.284, 9.284, 9.284, 9.284, 4 9.329, 9.329, 9.329, 9.329, 9.329, 9.329, 9.329, 5 9.372, 9.372, 9.372, 9.372, 9.372, 9.372, 9.372, 6 9.412, 9.412, 9.412, 9.412, 9.412, 9.412, 9.412, 7 9.449, 9.449, 9.449, 9.449, 9.449, 9.449, 9.449, 8 9.484, 9.484, 9.484, 9.484, 9.484, 9.484, 9.484, 9 9.538, 9.538, 9.538, 9.538, 9.538, 9.538, 9.538/ DATA PF216/ 1 9.586, 9.586, 9.586, 9.586, 9.586, 9.586, 9.586, 2 9.630, 9.630, 9.630, 9.630, 9.630, 9.630, 9.630, 3 9.669, 9.669, 9.669, 9.669, 9.669, 9.669, 9.669, 4 9.704, 9.704, 9.704, 9.704, 9.704, 9.704, 9.704, 5 9.736, 9.736, 9.736, 9.736, 9.736, 9.736, 9.736, 6 9.764, 9.764, 9.764, 9.764, 9.764, 9.764, 9.764, 7 9.790, 9.790, 9.790, 9.790, 9.790, 9.790, 9.790, 8 9.813, 9.813, 9.813, 9.813, 9.813, 9.813, 9.813, 9 9.835, 9.835, 9.835, 9.835, 9.835, 9.835, 9.835/ DATA PF217/ 1 9.857, 9.857, 9.857, 9.857, 9.857, 9.857, 9.857, 2 9.882, 9.882, 9.882, 9.882, 9.882, 9.882, 9.882, 3 9.914, 9.914, 9.914, 9.914, 9.914, 9.914, 9.914, 4 9.966, 9.966, 9.966, 9.966, 9.966, 9.966, 9.966, 5 10.058, 10.058, 10.058, 10.058, 10.058, 10.058, 10.058, 6 10.231, 10.231, 10.231, 10.231, 10.231, 10.231, 10.229, 7 10.557, 10.557, 10.557, 10.557, 10.556, 10.555, 10.549, 8 11.153, 11.153, 11.152, 11.152, 11.150, 11.148, 11.130, 9 12.200, 12.200, 12.198, 12.198, 12.194, 12.188, 12.139/ DATA PF218/ 1 13.961, 13.961, 13.956, 13.956, 13.947, 13.932, 13.813, 2 16.788, 16.788, 16.776, 16.776, 16.755, 16.721, 16.463, 3 21.118, 21.118, 21.093, 21.093, 21.051, 20.980, 20.463, 4 27.460, 27.460, 27.412, 27.412, 27.332, 27.196, 26.236, 5 36.356, 36.356, 36.271, 36.271, 36.128, 35.889, 34.220, 6 48.338, 48.338, 48.195, 48.195, 47.956, 47.557, 44.828, 7 63.868, 63.868, 63.641, 63.641, 63.264, 62.636, 58.404, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF219/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF220/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF221/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF222/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF223/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 6 1.004, 1.004, 1.004, 1.004, 1.004, 1.004, 1.004, 7 1.012, 1.012, 1.012, 1.012, 1.012, 1.012, 1.012, 8 1.031, 1.031, 1.031, 1.031, 1.031, 1.031, 1.031, 9 1.070, 1.070, 1.070, 1.070, 1.070, 1.070, 1.070/ DATA PF224/ 1 1.148, 1.148, 1.148, 1.148, 1.148, 1.148, 1.148, 2 1.293, 1.293, 1.293, 1.293, 1.293, 1.293, 1.293, 3 1.553, 1.553, 1.553, 1.553, 1.553, 1.553, 1.553, 4 2.007, 2.007, 2.007, 2.007, 2.007, 2.007, 2.007, 5 2.794, 2.794, 2.794, 2.794, 2.794, 2.794, 2.794, 6 4.157, 4.156, 4.156, 4.156, 4.156, 4.155, 4.155, 7 6.503, 6.503, 6.502, 6.502, 6.501, 6.499, 6.498, 8 10.492, 10.491, 10.490, 10.490, 10.486, 10.481, 10.479, 9 17.115, 17.112, 17.110, 17.110, 17.101, 17.087, 17.084/ DATA PF225/ 1 4.010, 4.010, 4.010, 4.010, 4.010, 4.010, 4.010, 2 4.013, 4.013, 4.013, 4.013, 4.013, 4.013, 4.013, 3 4.016, 4.016, 4.016, 4.016, 4.016, 4.016, 4.016, 4 4.020, 4.020, 4.020, 4.020, 4.020, 4.020, 4.020, 5 4.025, 4.025, 4.025, 4.025, 4.025, 4.025, 4.025, 6 4.030, 4.030, 4.030, 4.030, 4.030, 4.030, 4.030, 7 4.036, 4.036, 4.036, 4.036, 4.036, 4.036, 4.036, 8 4.044, 4.044, 4.044, 4.044, 4.044, 4.044, 4.044, 9 4.052, 4.052, 4.052, 4.052, 4.052, 4.052, 4.052/ DATA PF226/ 1 4.061, 4.061, 4.061, 4.061, 4.061, 4.061, 4.061, 2 4.071, 4.071, 4.071, 4.071, 4.071, 4.071, 4.071, 3 4.083, 4.083, 4.083, 4.083, 4.083, 4.083, 4.083, 4 4.096, 4.096, 4.096, 4.096, 4.096, 4.096, 4.096, 5 4.110, 4.110, 4.110, 4.110, 4.110, 4.110, 4.110, 6 4.125, 4.125, 4.125, 4.125, 4.125, 4.125, 4.125, 7 4.142, 4.142, 4.142, 4.142, 4.142, 4.142, 4.142, 8 4.160, 4.160, 4.160, 4.160, 4.160, 4.160, 4.160, 9 4.179, 4.179, 4.179, 4.179, 4.179, 4.179, 4.179/ DATA PF227/ 1 4.200, 4.200, 4.200, 4.200, 4.200, 4.200, 4.200, 2 4.221, 4.221, 4.221, 4.221, 4.221, 4.221, 4.221, 3 4.256, 4.256, 4.256, 4.256, 4.256, 4.256, 4.256, 4 4.294, 4.294, 4.294, 4.294, 4.294, 4.294, 4.294, 5 4.334, 4.334, 4.334, 4.334, 4.334, 4.334, 4.334, 6 4.377, 4.377, 4.377, 4.377, 4.377, 4.377, 4.377, 7 4.421, 4.421, 4.421, 4.421, 4.421, 4.421, 4.421, 8 4.467, 4.467, 4.467, 4.467, 4.467, 4.467, 4.467, 9 4.515, 4.515, 4.515, 4.515, 4.515, 4.515, 4.515/ DATA PF228/ 1 4.564, 4.564, 4.564, 4.564, 4.564, 4.564, 4.564, 2 4.613, 4.613, 4.613, 4.613, 4.613, 4.613, 4.613, 3 4.664, 4.664, 4.664, 4.664, 4.664, 4.664, 4.664, 4 4.748, 4.748, 4.748, 4.748, 4.748, 4.748, 4.748, 5 4.833, 4.833, 4.833, 4.833, 4.833, 4.833, 4.833, 6 4.916, 4.916, 4.916, 4.916, 4.916, 4.916, 4.916, 7 4.997, 4.997, 4.997, 4.997, 4.997, 4.997, 4.997, 8 5.075, 5.075, 5.075, 5.075, 5.075, 5.075, 5.075, 9 5.151, 5.151, 5.151, 5.151, 5.151, 5.151, 5.151/ DATA PF229/ 1 5.222, 5.222, 5.222, 5.222, 5.222, 5.222, 5.222, 2 5.289, 5.289, 5.289, 5.289, 5.289, 5.289, 5.289, 3 5.352, 5.352, 5.352, 5.352, 5.352, 5.352, 5.352, 4 5.411, 5.411, 5.411, 5.411, 5.411, 5.411, 5.411, 5 5.466, 5.466, 5.466, 5.466, 5.466, 5.466, 5.466, 6 5.517, 5.517, 5.517, 5.517, 5.517, 5.517, 5.517, 7 5.567, 5.567, 5.567, 5.567, 5.567, 5.567, 5.567, 8 5.618, 5.618, 5.618, 5.618, 5.618, 5.618, 5.618, 9 5.677, 5.677, 5.677, 5.677, 5.677, 5.677, 5.677/ DATA PF230/ 1 5.758, 5.758, 5.758, 5.758, 5.758, 5.758, 5.758, 2 5.885, 5.885, 5.885, 5.885, 5.885, 5.885, 5.885, 3 6.096, 6.096, 6.096, 6.096, 6.096, 6.096, 6.096, 4 6.454, 6.454, 6.454, 6.454, 6.454, 6.454, 6.454, 5 7.050, 7.050, 7.050, 7.050, 7.050, 7.050, 7.050, 6 8.026, 8.026, 8.026, 8.026, 8.026, 8.026, 8.026, 7 9.607, 9.607, 9.607, 9.607, 9.607, 9.607, 9.606, 8 12.154, 12.154, 12.154, 12.154, 12.154, 12.153, 12.151, 9 16.263, 16.263, 16.263, 16.262, 16.261, 16.258, 16.252/ DATA PF231/ 1 22.903, 22.903, 22.901, 22.900, 22.896, 22.885, 22.868, 2 33.601, 33.600, 33.594, 33.592, 33.579, 33.547, 33.499, 3 5.053, 5.053, 5.053, 5.053, 5.053, 5.053, 5.053, 4 5.065, 5.065, 5.065, 5.065, 5.065, 5.065, 5.065, 5 5.077, 5.077, 5.077, 5.077, 5.077, 5.077, 5.077, 6 5.092, 5.092, 5.092, 5.092, 5.092, 5.092, 5.092, 7 5.109, 5.109, 5.109, 5.109, 5.109, 5.109, 5.109, 8 5.128, 5.128, 5.128, 5.128, 5.128, 5.128, 5.128, 9 5.149, 5.149, 5.149, 5.149, 5.149, 5.149, 5.149/ DATA PF232/ 1 5.173, 5.173, 5.173, 5.173, 5.173, 5.173, 5.173, 2 5.198, 5.198, 5.198, 5.198, 5.198, 5.198, 5.198, 3 5.227, 5.227, 5.227, 5.227, 5.227, 5.227, 5.227, 4 5.258, 5.258, 5.258, 5.258, 5.258, 5.258, 5.258, 5 5.291, 5.291, 5.291, 5.291, 5.291, 5.291, 5.291, 6 5.327, 5.327, 5.327, 5.327, 5.327, 5.327, 5.327, 7 5.366, 5.366, 5.366, 5.366, 5.366, 5.366, 5.366, 8 5.407, 5.407, 5.407, 5.407, 5.407, 5.407, 5.407, 9 5.451, 5.451, 5.451, 5.451, 5.451, 5.451, 5.451/ DATA PF233/ 1 5.497, 5.497, 5.497, 5.497, 5.497, 5.497, 5.497, 2 5.546, 5.546, 5.546, 5.546, 5.546, 5.546, 5.546, 3 5.597, 5.597, 5.597, 5.597, 5.597, 5.597, 5.597, 4 5.650, 5.650, 5.650, 5.650, 5.650, 5.650, 5.650, 5 5.735, 5.735, 5.735, 5.735, 5.735, 5.735, 5.735, 6 5.824, 5.824, 5.824, 5.824, 5.824, 5.824, 5.824, 7 5.918, 5.918, 5.918, 5.918, 5.918, 5.918, 5.918, 8 6.017, 6.017, 6.017, 6.017, 6.017, 6.017, 6.017, 9 6.119, 6.119, 6.119, 6.119, 6.119, 6.119, 6.119/ DATA PF234/ 1 6.227, 6.227, 6.227, 6.227, 6.227, 6.227, 6.227, 2 6.339, 6.339, 6.339, 6.339, 6.339, 6.339, 6.339, 3 6.455, 6.455, 6.455, 6.455, 6.455, 6.455, 6.455, 4 6.576, 6.576, 6.576, 6.576, 6.576, 6.576, 6.576, 5 6.702, 6.702, 6.702, 6.702, 6.702, 6.702, 6.702, 6 6.923, 6.923, 6.923, 6.923, 6.923, 6.923, 6.923, 7 7.158, 7.158, 7.158, 7.158, 7.158, 7.158, 7.158, 8 7.408, 7.408, 7.408, 7.408, 7.408, 7.408, 7.408, 9 7.674, 7.674, 7.674, 7.674, 7.674, 7.674, 7.674/ DATA PF235/ 1 7.953, 7.953, 7.953, 7.953, 7.953, 7.953, 7.953, 2 8.247, 8.247, 8.247, 8.247, 8.247, 8.247, 8.247, 3 8.551, 8.551, 8.551, 8.551, 8.551, 8.551, 8.551, 4 8.866, 8.866, 8.866, 8.866, 8.866, 8.866, 8.866, 5 9.187, 9.187, 9.187, 9.187, 9.187, 9.187, 9.187, 6 9.514, 9.514, 9.514, 9.514, 9.514, 9.514, 9.514, 7 9.842, 9.842, 9.842, 9.842, 9.842, 9.842, 9.842, 8 10.170, 10.170, 10.170, 10.170, 10.170, 10.170, 10.170, 9 10.499, 10.499, 10.499, 10.499, 10.499, 10.499, 10.499/ DATA PF236/ 1 10.829, 10.829, 10.829, 10.829, 10.829, 10.829, 10.829, 2 11.169, 11.169, 11.169, 11.169, 11.169, 11.169, 11.169, 3 11.534, 11.534, 11.534, 11.534, 11.534, 11.534, 11.534, 4 11.953, 11.953, 11.953, 11.953, 11.953, 11.953, 11.953, 5 12.472, 12.472, 12.472, 12.472, 12.472, 12.472, 12.472, 6 13.169, 13.169, 13.169, 13.169, 13.169, 13.169, 13.169, 7 14.156, 14.156, 14.156, 14.156, 14.156, 14.156, 14.156, 8 15.603, 15.603, 15.603, 15.603, 15.603, 15.603, 15.603, 9 17.762, 17.762, 17.762, 17.762, 17.762, 17.762, 17.762/ DATA PF237/ 1 21.013, 21.013, 21.013, 21.013, 21.013, 21.013, 21.013, 2 25.942, 25.942, 25.942, 25.942, 25.941, 25.941, 25.940, 3 33.459, 33.459, 33.459, 33.458, 33.457, 33.456, 33.452, 4 44.982, 44.982, 44.982, 44.979, 44.975, 44.969, 44.958, 5 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 6 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 7 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 8 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 9 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000/ DATA PF238/ 1 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 2 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 3 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 5 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 6 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 7 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 8 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 9 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000/ DATA PF239/ 1 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 2 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 3 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 5 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 6 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 7 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 8 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 9 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 4.002/ DATA PF240/ 1 4.004, 4.004, 4.004, 4.004, 4.004, 4.004, 4.004, 2 4.007, 4.007, 4.007, 4.007, 4.007, 4.007, 4.007, 3 4.012, 4.012, 4.012, 4.012, 4.012, 4.012, 4.012, 4 4.018, 4.018, 4.018, 4.018, 4.018, 4.018, 4.018, 5 4.028, 4.028, 4.028, 4.028, 4.028, 4.028, 4.028, 6 4.042, 4.042, 4.042, 4.042, 4.042, 4.042, 4.042, 7 4.060, 4.060, 4.060, 4.060, 4.060, 4.060, 4.060, 8 4.106, 4.106, 4.106, 4.106, 4.106, 4.106, 4.106, 9 4.176, 4.176, 4.176, 4.176, 4.176, 4.176, 4.176/ DATA PF241/ 1 4.278, 4.278, 4.278, 4.278, 4.278, 4.278, 4.278, 2 4.418, 4.418, 4.418, 4.418, 4.418, 4.418, 4.418, 3 4.604, 4.604, 4.604, 4.604, 4.604, 4.604, 4.604, 4 4.841, 4.841, 4.841, 4.841, 4.841, 4.841, 4.841, 5 5.134, 5.134, 5.134, 5.134, 5.134, 5.134, 5.134, 6 5.485, 5.485, 5.485, 5.485, 5.485, 5.485, 5.485, 7 5.894, 5.894, 5.894, 5.894, 5.894, 5.894, 5.894, 8 6.358, 6.358, 6.358, 6.358, 6.358, 6.358, 6.358, 9 6.874, 6.874, 6.874, 6.874, 6.874, 6.874, 6.874/ DATA PF242/ 1 7.436, 7.436, 7.436, 7.436, 7.436, 7.436, 7.436, 2 8.040, 8.040, 8.040, 8.040, 8.040, 8.040, 8.040, 3 8.682, 8.682, 8.682, 8.682, 8.682, 8.682, 8.682, 4 9.363, 9.363, 9.363, 9.363, 9.363, 9.363, 9.363, 5 10.088, 10.088, 10.088, 10.088, 10.088, 10.088, 10.088, 6 10.875, 10.875, 10.875, 10.875, 10.875, 10.875, 10.875, 7 11.754, 11.754, 11.754, 11.754, 11.754, 11.754, 11.754, 8 12.778, 12.778, 12.778, 12.778, 12.778, 12.778, 12.778, 9 14.025, 14.025, 14.025, 14.025, 14.025, 14.025, 14.025/ DATA PF243/ 1 15.611, 15.611, 15.611, 15.611, 15.611, 15.611, 15.611, 2 17.707, 17.707, 17.707, 17.707, 17.707, 17.707, 17.707, 3 20.556, 20.556, 20.556, 20.556, 20.556, 20.556, 20.556, 4 24.515, 24.515, 24.515, 24.515, 24.515, 24.515, 24.515, 5 30.111, 30.111, 30.111, 30.111, 30.111, 30.111, 30.111, 6 38.133, 38.133, 38.133, 38.133, 38.133, 38.133, 38.132, 7 1.176, 1.176, 1.176, 1.176, 1.176, 1.176, 1.176, 8 1.202, 1.202, 1.202, 1.202, 1.202, 1.202, 1.202, 9 1.231, 1.231, 1.231, 1.231, 1.231, 1.231, 1.231/ DATA PF244/ 1 1.262, 1.262, 1.262, 1.262, 1.262, 1.262, 1.262, 2 1.296, 1.296, 1.296, 1.296, 1.296, 1.296, 1.296, 3 1.334, 1.334, 1.334, 1.334, 1.334, 1.334, 1.334, 4 1.374, 1.374, 1.374, 1.374, 1.374, 1.374, 1.374, 5 1.418, 1.418, 1.418, 1.418, 1.418, 1.418, 1.418, 6 1.466, 1.466, 1.466, 1.466, 1.466, 1.466, 1.466, 7 1.517, 1.517, 1.517, 1.517, 1.517, 1.517, 1.517, 8 1.571, 1.571, 1.571, 1.571, 1.571, 1.571, 1.571, 9 1.630, 1.630, 1.630, 1.630, 1.630, 1.630, 1.630/ DATA PF245/ 1 1.692, 1.692, 1.692, 1.692, 1.692, 1.692, 1.692, 2 1.758, 1.758, 1.758, 1.758, 1.758, 1.758, 1.758, 3 1.828, 1.828, 1.828, 1.828, 1.828, 1.828, 1.828, 4 1.903, 1.903, 1.903, 1.903, 1.903, 1.903, 1.903, 5 1.981, 1.981, 1.981, 1.981, 1.981, 1.981, 1.981, 6 2.063, 2.063, 2.063, 2.063, 2.063, 2.063, 2.063, 7 2.149, 2.149, 2.149, 2.149, 2.149, 2.149, 2.149, 8 2.239, 2.239, 2.239, 2.239, 2.239, 2.239, 2.239, 9 2.380, 2.380, 2.380, 2.380, 2.380, 2.380, 2.380/ DATA PF246/ 1 2.531, 2.531, 2.531, 2.531, 2.531, 2.531, 2.531, 2 2.689, 2.689, 2.689, 2.689, 2.689, 2.689, 2.689, 3 2.854, 2.854, 2.854, 2.854, 2.854, 2.854, 2.854, 4 3.027, 3.027, 3.027, 3.027, 3.027, 3.027, 3.027, 5 3.206, 3.206, 3.206, 3.206, 3.206, 3.206, 3.206, 6 3.391, 3.391, 3.391, 3.391, 3.391, 3.391, 3.391, 7 3.582, 3.582, 3.582, 3.582, 3.582, 3.582, 3.582, 8 3.778, 3.778, 3.778, 3.778, 3.778, 3.778, 3.778, 9 3.980, 3.980, 3.980, 3.980, 3.980, 3.980, 3.980/ DATA PF247/ 1 4.327, 4.327, 4.327, 4.327, 4.327, 4.327, 4.327, 2 4.686, 4.686, 4.686, 4.686, 4.686, 4.686, 4.686, 3 5.058, 5.058, 5.058, 5.058, 5.058, 5.058, 5.058, 4 5.442, 5.442, 5.442, 5.442, 5.442, 5.442, 5.442, 5 5.837, 5.837, 5.837, 5.837, 5.837, 5.837, 5.837, 6 6.241, 6.241, 6.241, 6.241, 6.241, 6.241, 6.241, 7 6.654, 6.654, 6.654, 6.654, 6.654, 6.654, 6.654, 8 7.074, 7.074, 7.074, 7.074, 7.074, 7.074, 7.074, 9 7.499, 7.499, 7.499, 7.499, 7.499, 7.499, 7.499/ DATA PF248/ 1 7.927, 7.927, 7.927, 7.927, 7.927, 7.927, 7.927, 2 8.358, 8.358, 8.358, 8.358, 8.358, 8.358, 8.358, 3 8.792, 8.792, 8.792, 8.792, 8.792, 8.792, 8.792, 4 9.230, 9.230, 9.230, 9.230, 9.230, 9.230, 9.230, 5 9.679, 9.679, 9.679, 9.679, 9.679, 9.679, 9.679, 6 10.148, 10.148, 10.148, 10.148, 10.148, 10.148, 10.148, 7 10.651, 10.651, 10.651, 10.651, 10.651, 10.651, 10.651, 8 11.210, 11.210, 11.210, 11.210, 11.210, 11.210, 11.210, 9 11.856, 11.856, 11.856, 11.856, 11.856, 11.856, 11.856/ DATA PF249/ 1 12.631, 12.631, 12.631, 12.631, 12.631, 12.631, 12.631, 2 13.593, 13.593, 13.593, 13.593, 13.593, 13.593, 13.593, 3 14.822, 14.822, 14.822, 14.822, 14.822, 14.822, 14.822, 4 16.428, 16.428, 16.428, 16.428, 16.428, 16.428, 16.428, 5 18.563, 18.563, 18.563, 18.563, 18.563, 18.563, 18.563, 6 21.438, 21.438, 21.438, 21.438, 21.438, 21.438, 21.438, 7 25.346, 25.346, 25.346, 25.346, 25.346, 25.346, 25.346, 8 30.698, 30.698, 30.698, 30.698, 30.698, 30.698, 30.698, 9 7.123, 7.123, 7.123, 7.123, 7.123, 7.123, 7.123/ DATA PF250/ 1 7.157, 7.157, 7.157, 7.157, 7.157, 7.157, 7.157, 2 7.199, 7.199, 7.199, 7.199, 7.199, 7.199, 7.199, 3 7.249, 7.249, 7.249, 7.249, 7.249, 7.249, 7.249, 4 7.310, 7.310, 7.310, 7.310, 7.310, 7.310, 7.309, 5 7.380, 7.380, 7.380, 7.380, 7.380, 7.380, 7.380, 6 7.463, 7.463, 7.463, 7.463, 7.463, 7.463, 7.463, 7 7.560, 7.560, 7.560, 7.560, 7.560, 7.560, 7.559, 8 7.671, 7.671, 7.671, 7.671, 7.671, 7.671, 7.669, 9 7.798, 7.798, 7.798, 7.798, 7.798, 7.798, 7.795/ DATA PF251/ 1 7.943, 7.943, 7.943, 7.943, 7.943, 7.943, 7.938, 2 8.107, 8.107, 8.107, 8.107, 8.107, 8.107, 8.099, 3 8.293, 8.293, 8.293, 8.293, 8.293, 8.293, 8.278, 4 8.501, 8.501, 8.501, 8.501, 8.501, 8.501, 8.479, 5 8.735, 8.735, 8.735, 8.735, 8.735, 8.735, 8.700, 6 8.998, 8.998, 8.998, 8.998, 8.998, 8.998, 8.945, 7 9.292, 9.292, 9.292, 9.292, 9.292, 9.292, 9.213, 8 9.623, 9.623, 9.623, 9.623, 9.623, 9.622, 9.506, 9 9.995, 9.995, 9.995, 9.995, 9.994, 9.992, 9.826/ DATA PF252/ 1 10.414, 10.414, 10.414, 10.414, 10.412, 10.409, 10.172, 2 11.148, 11.148, 11.148, 11.148, 11.145, 11.138, 10.747, 3 12.040, 12.040, 12.039, 12.038, 12.032, 12.017, 11.389, 4 13.131, 13.131, 13.129, 13.127, 13.112, 13.083, 12.105, 5 14.480, 14.478, 14.475, 14.469, 14.438, 14.381, 12.898, 6 16.157, 16.154, 16.146, 16.135, 16.073, 15.966, 13.773, 7 18.256, 18.250, 18.234, 18.211, 18.091, 17.899, 14.733, 8 20.893, 20.880, 20.849, 20.805, 20.583, 20.253, 15.782, 9 24.210, 24.187, 24.128, 24.048, 23.654, 23.104, 16.922/ DATA PF253/ 1 28.384, 28.342, 28.236, 28.094, 27.422, 26.536, 18.155, 2 33.621, 33.549, 33.365, 33.123, 32.017, 30.634, 19.482, 3 45.393, 45.226, 44.803, 44.262, 41.897, 39.176, 21.900, 4 62.161, 61.807, 60.920, 59.810, 55.151, 50.172, 24.566, 5 85.505, 84.813, 83.099, 80.991, 72.467, 63.928, 27.460, 6 117.147, 115.892, 112.806, 109.073, 94.466, 80.650, 30.555, 7 158.815, 156.679, 151.467, 145.256, 121.644, 100.420, 33.812, 8 212.068, 208.639, 200.326, 190.546, 154.315, 123.189, 37.193, 9 278.133, 272.905, 260.299, 245.642, 192.573, 148.775, 40.653/ DATA PF254/ 1 357.757, 350.143, 331.876, 310.855, 236.276, 176.883, 44.148, 2 451.119, 440.473, 415.049, 386.061, 285.054, 207.124, 47.638, 3 557.795, 543.443, 509.306, 470.702, 338.335, 239.048, 51.082, 4 676.789, 658.058, 613.669, 563.837, 395.393, 272.170, 54.449, 5 806.615, 782.869, 726.773, 664.207, 455.393, 306.002, 57.708, 6 945.415, 916.078, 846.969, 770.336, 517.447, 340.073, 60.837, 7 1091.092, 1055.670, 972.439, 880.623, 580.664, 373.950, 63.818, 8 1241.441, 1199.539,1101.308, 993.441, 644.187, 407.250, 66.639, 9 1394.271, 1345.602,1231.737,1107.214, 707.233, 439.645, 69.291/ DATA PF255/ 1 1547.507, 1491.892,1362.008,1220.483, 769.109, 470.869, 71.771, 2 1699.264, 1636.625,1490.574,1331.950, 829.228, 500.716, 74.078, 3 1847.894, 1778.252,1616.103,1440.505, 887.111, 529.034, 76.214, 4 1992.015, 1915.474,1737.489,1545.237, 942.390, 555.723, 78.185, 5 2130.518, 2047.254,1853.855,1645.434, 994.797, 580.726, 79.996, 6 2262.556, 2172.804,1964.547,1740.572,1044.155, 604.024, 81.655, 7 2387.530, 2291.570,2069.111,1830.298,1090.370, 625.631, 83.170, 8 2505.057, 2403.204,2167.272,1914.408,1133.414, 645.584, 84.549, 9 2614.947, 2507.537,2258.912,1992.830,1173.316, 663.939, 85.803/ DATA PF256/ 1 2717.167, 2604.550,2344.038,2065.593,1210.150, 680.766, 86.941, 2 6.006, 6.006, 6.006, 6.006, 6.006, 6.006, 6.006, 3 6.010, 6.010, 6.010, 6.010, 6.010, 6.010, 6.010, 4 6.014, 6.014, 6.014, 6.014, 6.014, 6.014, 6.014, 5 6.019, 6.019, 6.019, 6.019, 6.019, 6.019, 6.019, 6 6.027, 6.027, 6.027, 6.027, 6.027, 6.027, 6.027, 7 6.038, 6.038, 6.038, 6.038, 6.038, 6.038, 6.038, 8 6.051, 6.051, 6.051, 6.051, 6.051, 6.051, 6.051, 9 6.069, 6.069, 6.069, 6.069, 6.069, 6.069, 6.069/ DATA PF257/ 1 6.091, 6.091, 6.091, 6.091, 6.091, 6.091, 6.091, 2 6.119, 6.119, 6.119, 6.119, 6.119, 6.119, 6.119, 3 6.155, 6.155, 6.155, 6.155, 6.155, 6.155, 6.155, 4 6.200, 6.200, 6.200, 6.200, 6.200, 6.200, 6.200, 5 6.254, 6.254, 6.254, 6.254, 6.254, 6.254, 6.254, 6 6.321, 6.321, 6.321, 6.321, 6.321, 6.321, 6.321, 7 6.402, 6.402, 6.402, 6.402, 6.402, 6.402, 6.402, 8 6.500, 6.500, 6.500, 6.500, 6.500, 6.500, 6.500, 9 6.618, 6.618, 6.618, 6.618, 6.618, 6.618, 6.618/ DATA PF258/ 1 6.758, 6.758, 6.758, 6.758, 6.758, 6.758, 6.758, 2 6.924, 6.924, 6.924, 6.924, 6.924, 6.924, 6.924, 3 7.119, 7.119, 7.119, 7.119, 7.119, 7.119, 7.119, 4 7.479, 7.479, 7.479, 7.479, 7.479, 7.479, 7.479, 5 7.933, 7.933, 7.933, 7.933, 7.933, 7.933, 7.933, 6 8.504, 8.504, 8.504, 8.504, 8.504, 8.504, 8.504, 7 9.215, 9.215, 9.215, 9.215, 9.215, 9.215, 9.215, 8 10.096, 10.096, 10.096, 10.096, 10.096, 10.096, 10.096, 9 11.181, 11.181, 11.181, 11.181, 11.181, 11.181, 11.181/ DATA PF259/ 1 12.513, 12.513, 12.513, 12.513, 12.513, 12.513, 12.513, 2 14.136, 14.136, 14.136, 14.136, 14.136, 14.136, 14.136, 3 16.105, 16.105, 16.105, 16.105, 16.105, 16.105, 16.105, 4 18.483, 18.483, 18.483, 18.482, 18.482, 18.482, 18.482, 5 23.546, 23.546, 23.546, 23.546, 23.546, 23.545, 23.541, 6 30.334, 30.334, 30.333, 30.333, 30.331, 30.327, 30.309, 7 39.351, 39.351, 39.350, 39.349, 39.340, 39.321, 39.253, 8 51.284, 51.283, 51.277, 51.273, 51.236, 51.166, 50.941, 9 67.117, 67.112, 67.093, 67.077, 66.948, 66.714, 66.060/ DATA PF260/ 1 88.325, 88.308, 88.249, 88.197, 87.804, 87.119, 85.423, 2 117.134, 117.085, 116.919, 116.777, 115.715, 113.930, 109.961, 3 156.815, 156.694, 156.277, 155.923, 153.348, 149.158, 140.677, 4 211.945, 211.668, 210.724, 209.929, 204.257, 195.290, 178.592, 5 288.513, 287.935, 285.980, 284.341, 272.876, 255.207, 224.644, 6 393.796, 392.683, 388.941, 385.821, 364.351, 332.009, 279.596, 7 535.941, 533.947, 527.272, 521.733, 484.180, 428.742, 343.941, 8 723.292, 719.938, 708.758, 699.518, 637.709, 548.081, 417.828, 9 963.543, 958.211, 940.507, 925.928, 829.560, 692.026, 501.025/ DATA PF261/ 1 1262.881, 1254.821,1228.152,1206.264,1063.095, 861.645, 592.923, 2 1625.255, 1613.609,1575.186,1543.743,1340.007,1056.922, 692.566, 3 2051.899, 2035.730,1982.529,1939.106,1660.089,1276.726, 798.722, 4 2541.153, 2519.491,2448.388,2390.489,2021.221,1518.888, 909.960, 5 3088.595, 3060.483,2968.406,2893.582,2419.537,1780.368,1024.743, 6 3687.426, 3651.963,3536.029,3441.993,2849.748,2057.487,1141.511, 7 4329.026, 4285.406,4143.046,4027.765,3305.545,2346.179,1258.757, 8 5003.596, 4951.136,4780.188,4641.959,3780.035,2642.238,1375.085, 9 5700.796, 5638.959,5437.725,5275.221,4266.161,2941.538,1489.255/ DATA PF262/ 1 6410.329, 6338.731,6106.012,5918.300,4757.061,3240.214,1600.207, 2 7122.420, 7040.831,6775.921,6562.465,5246.354,3534.790,1707.073, 3 7828.173, 7736.510,7439.175,7199.813,5728.346,3822.262,1809.177, 4 19.811, 19.811, 19.811, 19.811, 19.811, 19.811, 19.811, 5 20.011, 20.011, 20.011, 20.011, 20.011, 20.011, 20.011, 6 20.206, 20.206, 20.206, 20.206, 20.206, 20.206, 20.206, 7 20.394, 20.394, 20.394, 20.394, 20.394, 20.394, 20.394, 8 20.577, 20.577, 20.577, 20.577, 20.577, 20.577, 20.577, 9 20.754, 20.754, 20.754, 20.754, 20.754, 20.754, 20.754/ DATA PF263/ 1 20.926, 20.926, 20.926, 20.926, 20.926, 20.926, 20.926, 2 21.093, 21.093, 21.093, 21.093, 21.093, 21.093, 21.093, 3 21.256, 21.256, 21.256, 21.256, 21.256, 21.256, 21.256, 4 21.415, 21.415, 21.415, 21.415, 21.415, 21.415, 21.415, 5 21.572, 21.572, 21.572, 21.572, 21.572, 21.572, 21.572, 6 21.727, 21.727, 21.727, 21.727, 21.727, 21.727, 21.727, 7 21.882, 21.882, 21.882, 21.882, 21.882, 21.882, 21.882, 8 22.038, 22.038, 22.038, 22.038, 22.038, 22.038, 22.038, 9 22.196, 22.196, 22.196, 22.196, 22.196, 22.196, 22.196/ DATA PF264/ 1 22.360, 22.360, 22.360, 22.360, 22.360, 22.360, 22.360, 2 22.531, 22.531, 22.531, 22.531, 22.531, 22.531, 22.531, 3 22.711, 22.711, 22.711, 22.711, 22.711, 22.711, 22.711, 4 22.905, 22.905, 22.905, 22.905, 22.905, 22.905, 22.905, 5 23.115, 23.115, 23.115, 23.115, 23.115, 23.115, 23.115, 6 23.468, 23.468, 23.468, 23.468, 23.468, 23.468, 23.468, 7 23.878, 23.878, 23.878, 23.878, 23.878, 23.878, 23.878, 8 24.361, 24.361, 24.361, 24.361, 24.361, 24.361, 24.361, 9 24.932, 24.932, 24.932, 24.932, 24.932, 24.932, 24.932/ DATA PF265/ 1 25.607, 25.607, 25.607, 25.607, 25.607, 25.607, 25.607, 2 26.403, 26.403, 26.403, 26.403, 26.403, 26.403, 26.403, 3 27.337, 27.337, 27.337, 27.337, 27.337, 27.337, 27.337, 4 28.424, 28.424, 28.424, 28.424, 28.424, 28.424, 28.424, 5 29.681, 29.681, 29.681, 29.681, 29.681, 29.681, 29.681, 6 31.123, 31.123, 31.123, 31.123, 31.123, 31.123, 31.123, 7 33.975, 33.975, 33.975, 33.975, 33.975, 33.975, 33.975, 8 37.444, 37.444, 37.444, 37.444, 37.444, 37.444, 37.444, 9 41.593, 41.593, 41.593, 41.593, 41.593, 41.593, 41.593/ DATA PF266/ 1 46.493, 46.493, 46.493, 46.493, 46.493, 46.493, 46.493, 2 52.230, 52.230, 52.230, 52.230, 52.230, 52.230, 52.230, 3 58.922, 58.922, 58.922, 58.922, 58.922, 58.921, 58.921, 4 66.740, 66.740, 66.740, 66.740, 66.739, 66.737, 66.733, 5 75.952, 75.952, 75.951, 75.950, 75.946, 75.933, 75.914, 6 87.001, 86.999, 86.997, 86.991, 86.974, 86.917, 86.839, 7 100.669, 100.662, 100.656, 100.632, 100.567, 100.351, 100.077, 8 118.374, 118.351, 118.328, 118.249, 118.030, 117.331, 116.488, 9 142.640, 142.572, 142.502, 142.267, 141.625, 139.630, 137.332/ DATA PF267/ 1 177.738, 177.556, 177.370, 176.751, 175.073, 169.993, 164.377, 2 230.398, 229.961, 229.518, 228.050, 224.102, 212.416, 199.958, 3 310.396, 309.446, 308.483, 305.316, 296.852, 272.296, 246.951, 4 430.781, 428.882, 426.960, 420.673, 403.971, 356.375, 308.638, 5 607.516, 603.995, 600.437, 588.854, 558.242, 472.393, 388.456, 6 858.470, 852.368, 846.205, 826.240, 773.710, 628.481, 489.667, 7 1201.849, 1191.885,1181.832,1149.396,1064.397, 832.366, 615.004, 8 1654.310, 1638.886,1623.334,1573.347,1442.822,1090.522, 766.348, 9 2229.096, 2206.327,2183.387,2109.890,1918.590,1407.425, 944.499/ DATA PF268/ 1 2934.518, 2902.301,2869.861,2766.233,2497.277,1785.028,1149.065, 2 3773.008, 3729.110,3684.934,3544.182,3179.798,2222.521,1378.478, 3 4740.848, 4683.014,4624.842,4439.926,3962.293,2716.399,1630.131, 4 5828.546, 5754.602,5680.259,5444.426,4836.504,3260.778,1900.585, 5 7021.723, 6929.676,6837.166,6544.247,5790.527,3847.903,2185.835, 6 19.764, 19.764, 19.764, 19.764, 19.764, 19.764, 19.764, 7 20.053, 20.053, 20.053, 20.053, 20.053, 20.053, 20.053, 8 20.334, 20.334, 20.334, 20.334, 20.334, 20.334, 20.334, 9 20.610, 20.610, 20.610, 20.610, 20.610, 20.610, 20.610/ DATA PF269/ 1 20.879, 20.879, 20.879, 20.879, 20.879, 20.879, 20.879, 2 21.142, 21.142, 21.142, 21.142, 21.142, 21.142, 21.142, 3 21.399, 21.399, 21.399, 21.399, 21.399, 21.399, 21.399, 4 21.650, 21.650, 21.650, 21.650, 21.650, 21.650, 21.650, 5 21.897, 21.897, 21.897, 21.897, 21.897, 21.897, 21.897, 6 22.139, 22.139, 22.139, 22.139, 22.139, 22.139, 22.139, 7 22.378, 22.378, 22.378, 22.378, 22.378, 22.378, 22.378, 8 22.614, 22.614, 22.614, 22.614, 22.614, 22.614, 22.614, 9 22.848, 22.848, 22.848, 22.848, 22.848, 22.848, 22.848/ DATA PF270/ 1 23.082, 23.082, 23.082, 23.082, 23.082, 23.082, 23.082, 2 23.318, 23.318, 23.318, 23.318, 23.318, 23.318, 23.318, 3 23.555, 23.555, 23.555, 23.555, 23.555, 23.555, 23.555, 4 23.798, 23.798, 23.798, 23.798, 23.798, 23.798, 23.798, 5 24.046, 24.046, 24.046, 24.046, 24.046, 24.046, 24.046, 6 24.303, 24.303, 24.303, 24.303, 24.303, 24.303, 24.303, 7 24.570, 24.570, 24.570, 24.570, 24.570, 24.570, 24.570, 8 24.996, 24.996, 24.996, 24.996, 24.996, 24.996, 24.996, 9 25.459, 25.459, 25.459, 25.459, 25.459, 25.459, 25.459/ DATA PF271/ 1 25.968, 25.968, 25.968, 25.968, 25.968, 25.968, 25.968, 2 26.530, 26.530, 26.530, 26.530, 26.530, 26.530, 26.530, 3 27.156, 27.156, 27.156, 27.156, 27.156, 27.156, 27.156, 4 27.851, 27.851, 27.851, 27.851, 27.851, 27.851, 27.851, 5 28.625, 28.625, 28.625, 28.625, 28.625, 28.625, 28.625, 6 29.483, 29.483, 29.483, 29.483, 29.483, 29.483, 29.483, 7 30.430, 30.430, 30.430, 30.430, 30.430, 30.430, 30.430, 8 31.472, 31.472, 31.472, 31.472, 31.472, 31.472, 31.472, 9 33.425, 33.425, 33.425, 33.425, 33.425, 33.425, 33.425/ DATA PF272/ 1 35.652, 35.652, 35.652, 35.652, 35.652, 35.652, 35.652, 2 38.150, 38.150, 38.150, 38.150, 38.150, 38.150, 38.150, 3 40.906, 40.906, 40.906, 40.906, 40.906, 40.906, 40.906, 4 43.900, 43.900, 43.900, 43.900, 43.900, 43.900, 43.900, 5 47.108, 47.108, 47.108, 47.108, 47.108, 47.108, 47.108, 6 50.509, 50.509, 50.509, 50.509, 50.509, 50.509, 50.509, 7 54.086, 54.086, 54.086, 54.086, 54.086, 54.086, 54.086, 8 57.841, 57.841, 57.841, 57.841, 57.841, 57.841, 57.841, 9 61.795, 61.795, 61.795, 61.795, 61.795, 61.795, 61.794/ DATA PF273/ 1 66.012, 66.012, 66.012, 66.012, 66.012, 66.011, 66.009, 2 70.622, 70.621, 70.621, 70.621, 70.619, 70.616, 70.606, 3 75.873, 75.872, 75.872, 75.872, 75.863, 75.850, 75.803, 4 82.248, 82.245, 82.243, 82.243, 82.209, 82.158, 81.985, 5 90.661, 90.648, 90.643, 90.641, 90.526, 90.360, 89.804, 6 102.787, 102.748, 102.732, 102.729, 102.387, 101.904, 100.337, 7 121.508, 121.405, 121.360, 121.352, 120.453, 119.202, 115.254, 8 151.404, 151.156, 151.049, 151.030, 148.899, 145.976, 136.985, 9 199.164, 198.625, 198.392, 198.350, 193.751, 187.524, 168.799/ DATA PF274/ 1 273.743, 272.663, 272.196, 272.112, 262.983, 250.767, 214.758, 2 386.115, 384.109, 383.242, 383.087, 366.265, 343.992, 279.499, 3 548.578, 545.097, 543.591, 543.324, 514.323, 476.280, 367.860, 4 773.679, 767.986, 765.526, 765.089, 717.965, 656.664, 484.405, 5 1072.906, 1064.084,1060.271,1059.596, 986.963, 893.175, 632.924, 6 1455.419, 1442.382,1436.749,1435.753,1328.947,1191.941, 815.999, 7 1926.998, 1908.533,1900.557,1899.149,1748.542,1556.482,1034.709, 8 14.034, 14.034, 14.034, 14.034, 14.034, 14.034, 14.034, 9 14.260, 14.260, 14.260, 14.260, 14.260, 14.260, 14.260/ DATA PF275/ 1 14.483, 14.483, 14.483, 14.483, 14.483, 14.483, 14.483, 2 14.701, 14.701, 14.701, 14.701, 14.701, 14.701, 14.701, 3 14.916, 14.916, 14.916, 14.916, 14.916, 14.916, 14.916, 4 15.126, 15.126, 15.126, 15.126, 15.126, 15.126, 15.126, 5 15.332, 15.332, 15.332, 15.332, 15.332, 15.332, 15.332, 6 15.535, 15.535, 15.535, 15.535, 15.535, 15.535, 15.535, 7 15.733, 15.733, 15.733, 15.733, 15.733, 15.733, 15.733, 8 15.928, 15.928, 15.928, 15.928, 15.928, 15.928, 15.928, 9 16.119, 16.119, 16.119, 16.119, 16.119, 16.119, 16.119/ DATA PF276/ 1 16.308, 16.308, 16.308, 16.308, 16.308, 16.308, 16.308, 2 16.493, 16.493, 16.493, 16.493, 16.493, 16.493, 16.493, 3 16.676, 16.676, 16.676, 16.676, 16.676, 16.676, 16.676, 4 16.858, 16.858, 16.858, 16.858, 16.858, 16.858, 16.858, 5 17.038, 17.038, 17.038, 17.038, 17.038, 17.038, 17.038, 6 17.217, 17.217, 17.217, 17.217, 17.217, 17.217, 17.217, 7 17.397, 17.397, 17.397, 17.397, 17.397, 17.397, 17.397, 8 17.577, 17.577, 17.577, 17.577, 17.577, 17.577, 17.577, 9 17.759, 17.759, 17.759, 17.759, 17.759, 17.759, 17.759/ DATA PF277/ 1 18.037, 18.037, 18.037, 18.037, 18.037, 18.037, 18.037, 2 18.322, 18.322, 18.322, 18.322, 18.322, 18.322, 18.322, 3 18.618, 18.618, 18.618, 18.618, 18.618, 18.618, 18.618, 4 18.928, 18.928, 18.928, 18.928, 18.928, 18.928, 18.928, 5 19.253, 19.253, 19.253, 19.253, 19.253, 19.253, 19.253, 6 19.597, 19.597, 19.597, 19.597, 19.597, 19.597, 19.597, 7 19.962, 19.962, 19.962, 19.962, 19.962, 19.962, 19.962, 8 20.348, 20.348, 20.348, 20.348, 20.348, 20.348, 20.348, 9 20.758, 20.758, 20.758, 20.758, 20.758, 20.758, 20.758/ DATA PF278/ 1 21.192, 21.192, 21.192, 21.192, 21.192, 21.192, 21.192, 2 21.968, 21.968, 21.968, 21.968, 21.968, 21.968, 21.968, 3 22.811, 22.811, 22.811, 22.811, 22.811, 22.811, 22.811, 4 23.714, 23.714, 23.714, 23.714, 23.714, 23.714, 23.714, 5 24.671, 24.671, 24.671, 24.671, 24.671, 24.671, 24.671, 6 25.670, 25.670, 25.670, 25.670, 25.670, 25.670, 25.670, 7 26.702, 26.702, 26.702, 26.702, 26.702, 26.702, 26.702, 8 27.753, 27.753, 27.753, 27.753, 27.753, 27.753, 27.753, 9 28.812, 28.812, 28.812, 28.812, 28.812, 28.812, 28.812/ DATA PF279/ 1 29.869, 29.869, 29.869, 29.869, 29.869, 29.869, 29.869, 2 30.916, 30.916, 30.916, 30.916, 30.916, 30.916, 30.916, 3 31.948, 31.948, 31.948, 31.948, 31.948, 31.948, 31.948, 4 32.967, 32.967, 32.967, 32.967, 32.967, 32.967, 32.967, 5 33.984, 33.984, 33.984, 33.984, 33.984, 33.984, 33.984, 6 35.025, 35.025, 35.025, 35.025, 35.025, 35.025, 35.024, 7 36.147, 36.147, 36.147, 36.147, 36.147, 36.147, 36.145, 8 37.462, 37.462, 37.462, 37.462, 37.462, 37.462, 37.455, 9 39.188, 39.188, 39.188, 39.187, 39.187, 39.186, 39.160/ DATA PF280/ 1 41.725, 41.725, 41.725, 41.723, 41.723, 41.720, 41.633, 2 45.780, 45.780, 45.779, 45.775, 45.775, 45.764, 45.517, 3 52.511, 52.511, 52.508, 52.497, 52.497, 52.468, 51.839, 4 63.676, 63.673, 63.666, 63.641, 63.641, 63.572, 62.125, 5 81.733, 81.728, 81.713, 81.658, 81.658, 81.510, 78.470, 6 109.854, 109.843, 109.813, 109.703, 109.703, 109.412, 103.519, 7 151.788, 151.769, 151.713, 151.509, 151.509, 150.974, 140.345, 8 211.601, 211.569, 211.471, 211.118, 211.118, 210.200, 192.220, 9 293.300, 293.247, 293.087, 292.511, 292.511, 291.025, 262.301/ DATA PF281/ 1 7.141, 7.141, 7.141, 7.141, 7.141, 7.141, 7.141, 2 7.234, 7.234, 7.234, 7.234, 7.234, 7.234, 7.234, 3 7.325, 7.325, 7.325, 7.325, 7.325, 7.325, 7.325, 4 7.414, 7.414, 7.414, 7.414, 7.414, 7.414, 7.414, 5 7.502, 7.502, 7.502, 7.502, 7.502, 7.502, 7.502, 6 7.588, 7.588, 7.588, 7.588, 7.588, 7.588, 7.588, 7 7.672, 7.672, 7.672, 7.672, 7.672, 7.672, 7.672, 8 7.754, 7.754, 7.754, 7.754, 7.754, 7.754, 7.754, 9 7.834, 7.834, 7.834, 7.834, 7.834, 7.834, 7.834/ DATA PF282/ 1 7.912, 7.912, 7.912, 7.912, 7.912, 7.912, 7.912, 2 7.988, 7.988, 7.988, 7.988, 7.988, 7.988, 7.988, 3 8.062, 8.062, 8.062, 8.062, 8.062, 8.062, 8.062, 4 8.134, 8.134, 8.134, 8.134, 8.134, 8.134, 8.134, 5 8.204, 8.204, 8.204, 8.204, 8.204, 8.204, 8.204, 6 8.272, 8.272, 8.272, 8.272, 8.272, 8.272, 8.272, 7 8.338, 8.338, 8.338, 8.338, 8.338, 8.338, 8.338, 8 8.401, 8.401, 8.401, 8.401, 8.401, 8.401, 8.401, 9 8.463, 8.463, 8.463, 8.463, 8.463, 8.463, 8.463/ DATA PF283/ 1 8.523, 8.523, 8.523, 8.523, 8.523, 8.523, 8.523, 2 8.581, 8.581, 8.581, 8.581, 8.581, 8.581, 8.581, 3 8.664, 8.664, 8.664, 8.664, 8.664, 8.664, 8.664, 4 8.743, 8.743, 8.743, 8.743, 8.743, 8.743, 8.743, 5 8.818, 8.818, 8.818, 8.818, 8.818, 8.818, 8.818, 6 8.889, 8.889, 8.889, 8.889, 8.889, 8.889, 8.889, 7 8.957, 8.957, 8.957, 8.957, 8.957, 8.957, 8.957, 8 9.020, 9.020, 9.020, 9.020, 9.020, 9.020, 9.020, 9 9.080, 9.080, 9.080, 9.080, 9.080, 9.080, 9.080/ DATA PF284/ 1 9.137, 9.137, 9.137, 9.137, 9.137, 9.137, 9.137, 2 9.191, 9.191, 9.191, 9.191, 9.191, 9.191, 9.191, 3 9.241, 9.241, 9.241, 9.241, 9.241, 9.241, 9.241, 4 9.319, 9.319, 9.319, 9.319, 9.319, 9.319, 9.319, 5 9.389, 9.389, 9.389, 9.389, 9.389, 9.389, 9.389, 6 9.452, 9.452, 9.452, 9.452, 9.452, 9.452, 9.452, 7 9.509, 9.509, 9.509, 9.509, 9.509, 9.509, 9.509, 8 9.561, 9.561, 9.561, 9.561, 9.561, 9.561, 9.561, 9 9.607, 9.607, 9.607, 9.607, 9.607, 9.607, 9.607/ DATA PF285/ 1 9.648, 9.648, 9.648, 9.648, 9.648, 9.648, 9.648, 2 9.685, 9.685, 9.685, 9.685, 9.685, 9.685, 9.685, 3 9.719, 9.719, 9.719, 9.719, 9.719, 9.719, 9.719, 4 9.749, 9.749, 9.749, 9.749, 9.749, 9.749, 9.749, 5 9.776, 9.776, 9.776, 9.776, 9.776, 9.776, 9.776, 6 9.801, 9.801, 9.801, 9.801, 9.801, 9.801, 9.801, 7 9.825, 9.825, 9.825, 9.825, 9.825, 9.825, 9.825, 8 9.853, 9.853, 9.853, 9.853, 9.853, 9.853, 9.853, 9 9.891, 9.891, 9.891, 9.891, 9.891, 9.891, 9.891/ DATA PF286/ 1 9.959, 9.959, 9.959, 9.959, 9.959, 9.959, 9.959, 2 10.087, 10.087, 10.087, 10.087, 10.087, 10.087, 10.087, 3 10.332, 10.332, 10.332, 10.332, 10.332, 10.332, 10.332, 4 10.786, 10.786, 10.786, 10.786, 10.786, 10.786, 10.786, 5 11.584, 11.584, 11.584, 11.584, 11.584, 11.584, 11.584, 6 12.927, 12.927, 12.927, 12.927, 12.927, 12.927, 12.925, 7 15.089, 15.089, 15.089, 15.089, 15.089, 15.087, 15.084, 8 18.433, 18.433, 18.433, 18.433, 18.433, 18.429, 18.421, 9 23.418, 23.418, 23.418, 23.418, 23.418, 23.409, 23.393/ DATA PF287/ 1 30.592, 30.592, 30.592, 30.592, 30.592, 30.574, 30.540, 2 40.566, 40.566, 40.566, 40.566, 40.566, 40.532, 40.470, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF288/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF289/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF290/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF291/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF292/ 1 1.002, 1.002, 1.002, 1.002, 1.002, 1.002, 1.002, 2 1.005, 1.005, 1.005, 1.005, 1.005, 1.005, 1.005, 3 1.013, 1.013, 1.013, 1.013, 1.013, 1.013, 1.013, 4 1.033, 1.033, 1.033, 1.033, 1.033, 1.033, 1.033, 5 1.076, 1.076, 1.076, 1.076, 1.076, 1.076, 1.076, 6 1.158, 1.158, 1.158, 1.158, 1.158, 1.158, 1.158, 7 1.310, 1.310, 1.310, 1.310, 1.310, 1.310, 1.310, 8 1.576, 1.576, 1.576, 1.576, 1.576, 1.576, 1.576, 9 2.031, 2.031, 2.031, 2.031, 2.031, 2.031, 2.031/ DATA PF293/ 1 2.796, 2.796, 2.796, 2.796, 2.796, 2.796, 2.796, 2 4.073, 4.073, 4.073, 4.073, 4.073, 4.073, 4.073, 3 6.191, 6.191, 6.191, 6.191, 6.191, 6.191, 6.191, 4 9.673, 9.673, 9.673, 9.673, 9.673, 9.673, 9.672, 5 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 6 4.003, 4.003, 4.003, 4.003, 4.003, 4.003, 4.003, 7 4.004, 4.004, 4.004, 4.004, 4.004, 4.004, 4.004, 8 4.005, 4.005, 4.005, 4.005, 4.005, 4.005, 4.005, 9 4.007, 4.007, 4.007, 4.007, 4.007, 4.007, 4.007/ DATA PF294/ 1 4.009, 4.009, 4.009, 4.009, 4.009, 4.009, 4.009, 2 4.011, 4.011, 4.011, 4.011, 4.011, 4.011, 4.011, 3 4.014, 4.014, 4.014, 4.014, 4.014, 4.014, 4.014, 4 4.018, 4.018, 4.018, 4.018, 4.018, 4.018, 4.018, 5 4.022, 4.022, 4.022, 4.022, 4.022, 4.022, 4.022, 6 4.027, 4.027, 4.027, 4.027, 4.027, 4.027, 4.027, 7 4.033, 4.033, 4.033, 4.033, 4.033, 4.033, 4.033, 8 4.040, 4.040, 4.040, 4.040, 4.040, 4.040, 4.040, 9 4.047, 4.047, 4.047, 4.047, 4.047, 4.047, 4.047/ DATA PF295/ 1 4.056, 4.056, 4.056, 4.056, 4.056, 4.056, 4.056, 2 4.066, 4.066, 4.066, 4.066, 4.066, 4.066, 4.066, 3 4.077, 4.077, 4.077, 4.077, 4.077, 4.077, 4.077, 4 4.089, 4.089, 4.089, 4.089, 4.089, 4.089, 4.089, 5 4.102, 4.102, 4.102, 4.102, 4.102, 4.102, 4.102, 6 4.117, 4.117, 4.117, 4.117, 4.117, 4.117, 4.117, 7 4.141, 4.141, 4.141, 4.141, 4.141, 4.141, 4.141, 8 4.169, 4.169, 4.169, 4.169, 4.169, 4.169, 4.169, 9 4.199, 4.199, 4.199, 4.199, 4.199, 4.199, 4.199/ DATA PF296/ 1 4.232, 4.232, 4.232, 4.232, 4.232, 4.232, 4.232, 2 4.268, 4.268, 4.268, 4.268, 4.268, 4.268, 4.268, 3 4.306, 4.306, 4.306, 4.306, 4.306, 4.306, 4.306, 4 4.347, 4.347, 4.347, 4.347, 4.347, 4.347, 4.347, 5 4.390, 4.390, 4.390, 4.390, 4.390, 4.390, 4.390, 6 4.435, 4.435, 4.435, 4.435, 4.435, 4.435, 4.435, 7 4.482, 4.482, 4.482, 4.482, 4.482, 4.482, 4.482, 8 4.563, 4.563, 4.563, 4.563, 4.563, 4.563, 4.563, 9 4.646, 4.646, 4.646, 4.646, 4.646, 4.646, 4.646/ DATA PF297/ 1 4.730, 4.730, 4.730, 4.730, 4.730, 4.730, 4.730, 2 4.815, 4.815, 4.815, 4.815, 4.815, 4.815, 4.815, 3 4.898, 4.898, 4.898, 4.898, 4.898, 4.898, 4.898, 4 4.980, 4.980, 4.980, 4.980, 4.980, 4.980, 4.980, 5 5.059, 5.059, 5.059, 5.059, 5.059, 5.059, 5.059, 6 5.135, 5.135, 5.135, 5.135, 5.135, 5.135, 5.135, 7 5.207, 5.207, 5.207, 5.207, 5.207, 5.207, 5.207, 8 5.275, 5.275, 5.275, 5.275, 5.275, 5.275, 5.275, 9 5.339, 5.339, 5.339, 5.339, 5.339, 5.339, 5.339/ DATA PF298/ 1 5.399, 5.399, 5.399, 5.399, 5.399, 5.399, 5.399, 2 5.456, 5.456, 5.456, 5.456, 5.456, 5.456, 5.456, 3 5.511, 5.511, 5.511, 5.511, 5.511, 5.511, 5.511, 4 5.567, 5.567, 5.567, 5.567, 5.567, 5.567, 5.567, 5 5.633, 5.633, 5.633, 5.633, 5.633, 5.633, 5.633, 6 5.723, 5.723, 5.723, 5.723, 5.723, 5.723, 5.723, 7 5.862, 5.862, 5.862, 5.862, 5.862, 5.862, 5.862, 8 6.092, 6.092, 6.092, 6.092, 6.092, 6.092, 6.092, 9 6.476, 6.476, 6.476, 6.476, 6.476, 6.476, 6.476/ DATA PF299/ 1 7.110, 7.110, 7.110, 7.110, 7.110, 7.110, 7.110, 2 8.138, 8.138, 8.138, 8.138, 8.138, 8.138, 8.138, 3 9.780, 9.780, 9.780, 9.780, 9.780, 9.780, 9.780, 4 12.381, 12.381, 12.381, 12.381, 12.381, 12.381, 12.380, 5 16.487, 16.487, 16.487, 16.487, 16.486, 16.486, 16.483, 6 22.965, 22.965, 22.965, 22.965, 22.963, 22.961, 22.953, 7 5.015, 5.015, 5.015, 5.015, 5.015, 5.015, 5.015, 8 5.019, 5.019, 5.019, 5.019, 5.019, 5.019, 5.019, 9 5.025, 5.025, 5.025, 5.025, 5.025, 5.025, 5.025/ DATA PF300/ 1 5.031, 5.031, 5.031, 5.031, 5.031, 5.031, 5.031, 2 5.038, 5.038, 5.038, 5.038, 5.038, 5.038, 5.038, 3 5.047, 5.047, 5.047, 5.047, 5.047, 5.047, 5.047, 4 5.057, 5.057, 5.057, 5.057, 5.057, 5.057, 5.057, 5 5.069, 5.069, 5.069, 5.069, 5.069, 5.069, 5.069, 6 5.083, 5.083, 5.083, 5.083, 5.083, 5.083, 5.083, 7 5.098, 5.098, 5.098, 5.098, 5.098, 5.098, 5.098, 8 5.116, 5.116, 5.116, 5.116, 5.116, 5.116, 5.116, 9 5.136, 5.136, 5.136, 5.136, 5.136, 5.136, 5.136/ DATA PF301/ 1 5.158, 5.158, 5.158, 5.158, 5.158, 5.158, 5.158, 2 5.182, 5.182, 5.182, 5.182, 5.182, 5.182, 5.182, 3 5.209, 5.209, 5.209, 5.209, 5.209, 5.209, 5.209, 4 5.239, 5.239, 5.239, 5.239, 5.239, 5.239, 5.239, 5 5.271, 5.271, 5.271, 5.271, 5.271, 5.271, 5.271, 6 5.306, 5.306, 5.306, 5.306, 5.306, 5.306, 5.306, 7 5.343, 5.343, 5.343, 5.343, 5.343, 5.343, 5.343, 8 5.383, 5.383, 5.383, 5.383, 5.383, 5.383, 5.383, 9 5.448, 5.448, 5.448, 5.448, 5.448, 5.448, 5.448/ DATA PF302/ 1 5.519, 5.519, 5.519, 5.519, 5.519, 5.519, 5.519, 2 5.596, 5.596, 5.596, 5.596, 5.596, 5.596, 5.596, 3 5.678, 5.678, 5.678, 5.678, 5.678, 5.678, 5.678, 4 5.766, 5.766, 5.766, 5.766, 5.766, 5.766, 5.766, 5 5.860, 5.860, 5.860, 5.860, 5.860, 5.860, 5.860, 6 5.959, 5.959, 5.959, 5.959, 5.959, 5.959, 5.959, 7 6.064, 6.064, 6.064, 6.064, 6.064, 6.064, 6.064, 8 6.175, 6.175, 6.175, 6.175, 6.175, 6.175, 6.175, 9 6.291, 6.291, 6.291, 6.291, 6.291, 6.291, 6.291/ DATA PF303/ 1 6.497, 6.497, 6.497, 6.497, 6.497, 6.497, 6.497, 2 6.720, 6.720, 6.720, 6.720, 6.720, 6.720, 6.720, 3 6.960, 6.960, 6.960, 6.960, 6.960, 6.960, 6.960, 4 7.217, 7.217, 7.217, 7.217, 7.217, 7.217, 7.217, 5 7.491, 7.491, 7.491, 7.491, 7.491, 7.491, 7.491, 6 7.780, 7.780, 7.780, 7.780, 7.780, 7.780, 7.780, 7 8.084, 8.084, 8.084, 8.084, 8.084, 8.084, 8.084, 8 8.400, 8.400, 8.400, 8.400, 8.400, 8.400, 8.400, 9 8.725, 8.725, 8.725, 8.725, 8.725, 8.725, 8.725/ DATA PF304/ 1 9.058, 9.058, 9.058, 9.058, 9.058, 9.058, 9.058, 2 9.395, 9.395, 9.395, 9.395, 9.395, 9.395, 9.395, 3 9.734, 9.734, 9.734, 9.734, 9.734, 9.734, 9.734, 4 10.074, 10.074, 10.074, 10.074, 10.074, 10.074, 10.074, 5 10.415, 10.415, 10.415, 10.415, 10.415, 10.415, 10.415, 6 10.761, 10.761, 10.761, 10.761, 10.761, 10.761, 10.761, 7 11.124, 11.124, 11.124, 11.124, 11.124, 11.124, 11.124, 8 11.526, 11.526, 11.526, 11.526, 11.526, 11.526, 11.526, 9 12.004, 12.004, 12.004, 12.004, 12.004, 12.004, 12.004/ DATA PF305/ 1 12.617, 12.617, 12.617, 12.617, 12.617, 12.617, 12.617, 2 13.455, 13.455, 13.455, 13.455, 13.455, 13.455, 13.455, 3 14.646, 14.646, 14.646, 14.646, 14.646, 14.646, 14.646, 4 16.373, 16.373, 16.373, 16.373, 16.373, 16.373, 16.373, 5 18.899, 18.899, 18.899, 18.899, 18.899, 18.899, 18.899, 6 22.607, 22.607, 22.607, 22.607, 22.607, 22.607, 22.607, 7 28.067, 28.067, 28.067, 28.067, 28.067, 28.067, 28.067, 8 36.143, 36.143, 36.143, 36.143, 36.143, 36.143, 36.142, 9 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000/ DATA PF306/ 1 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 2 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 3 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 5 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 6 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 7 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 8 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 9 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000/ DATA PF307/ 1 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 2 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 3 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 5 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 6 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 7 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 8 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 9 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000/ DATA PF308/ 1 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 2 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 3 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 5 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 6 4.004, 4.004, 4.004, 4.004, 4.004, 4.004, 4.004, 7 4.007, 4.007, 4.007, 4.007, 4.007, 4.007, 4.007, 8 4.011, 4.011, 4.011, 4.011, 4.011, 4.011, 4.011, 9 4.018, 4.018, 4.018, 4.018, 4.018, 4.018, 4.018/ DATA PF309/ 1 4.027, 4.027, 4.027, 4.027, 4.027, 4.027, 4.027, 2 4.040, 4.040, 4.040, 4.040, 4.040, 4.040, 4.040, 3 4.074, 4.074, 4.074, 4.074, 4.074, 4.074, 4.074, 4 4.127, 4.127, 4.127, 4.127, 4.127, 4.127, 4.127, 5 4.207, 4.207, 4.207, 4.207, 4.207, 4.207, 4.207, 6 4.320, 4.320, 4.320, 4.320, 4.320, 4.320, 4.320, 7 4.474, 4.474, 4.474, 4.474, 4.474, 4.474, 4.474, 8 4.676, 4.676, 4.676, 4.676, 4.676, 4.676, 4.676, 9 4.930, 4.930, 4.930, 4.930, 4.930, 4.930, 4.930/ DATA PF310/ 1 5.241, 5.241, 5.241, 5.241, 5.241, 5.241, 5.241, 2 5.609, 5.609, 5.609, 5.609, 5.609, 5.609, 5.609, 3 6.034, 6.034, 6.034, 6.034, 6.034, 6.034, 6.034, 4 6.513, 6.513, 6.513, 6.513, 6.513, 6.513, 6.513, 5 7.043, 7.043, 7.043, 7.043, 7.043, 7.043, 7.043, 6 7.617, 7.617, 7.617, 7.617, 7.617, 7.617, 7.617, 7 8.230, 8.230, 8.230, 8.230, 8.230, 8.230, 8.230, 8 8.881, 8.881, 8.881, 8.881, 8.881, 8.881, 8.881, 9 9.571, 9.571, 9.571, 9.571, 9.571, 9.571, 9.571/ DATA PF311/ 1 10.308, 10.308, 10.308, 10.308, 10.308, 10.308, 10.308, 2 11.111, 11.111, 11.111, 11.111, 11.111, 11.111, 11.111, 3 12.018, 12.018, 12.018, 12.018, 12.018, 12.018, 12.018, 4 13.085, 13.085, 13.085, 13.085, 13.085, 13.085, 13.085, 5 14.400, 14.400, 14.400, 14.400, 14.400, 14.400, 14.400, 6 16.090, 16.090, 16.090, 16.090, 16.090, 16.090, 16.090, 7 18.338, 18.338, 18.338, 18.338, 18.338, 18.338, 18.338, 8 21.407, 21.407, 21.407, 21.407, 21.407, 21.407, 21.407, 9 25.671, 25.671, 25.671, 25.671, 25.671, 25.671, 25.671/ DATA PF312/ 1 31.675, 31.675, 31.675, 31.675, 31.675, 31.675, 31.675, 2 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 3 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 4 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 5 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 6 6.002, 6.002, 6.002, 6.002, 6.002, 6.002, 6.002, 7 6.003, 6.003, 6.003, 6.003, 6.003, 6.003, 6.003, 8 6.005, 6.005, 6.005, 6.005, 6.005, 6.005, 6.005, 9 6.008, 6.008, 6.008, 6.008, 6.008, 6.008, 6.008/ DATA PF313/ 1 6.012, 6.012, 6.012, 6.012, 6.012, 6.012, 6.012, 2 6.018, 6.018, 6.018, 6.018, 6.018, 6.018, 6.018, 3 6.026, 6.026, 6.026, 6.026, 6.026, 6.026, 6.026, 4 6.037, 6.037, 6.037, 6.037, 6.037, 6.037, 6.037, 5 6.052, 6.052, 6.052, 6.052, 6.052, 6.052, 6.052, 6 6.072, 6.072, 6.072, 6.072, 6.072, 6.072, 6.072, 7 6.099, 6.099, 6.099, 6.099, 6.099, 6.099, 6.098, 8 6.134, 6.134, 6.134, 6.134, 6.134, 6.134, 6.133, 9 6.180, 6.180, 6.180, 6.180, 6.180, 6.180, 6.177/ DATA PF314/ 1 6.239, 6.239, 6.239, 6.239, 6.239, 6.239, 6.234, 2 6.314, 6.314, 6.314, 6.314, 6.314, 6.313, 6.305, 3 6.408, 6.408, 6.408, 6.408, 6.408, 6.407, 6.394, 4 6.596, 6.596, 6.595, 6.595, 6.595, 6.593, 6.567, 5 6.854, 6.853, 6.853, 6.853, 6.852, 6.847, 6.799, 6 7.204, 7.204, 7.204, 7.203, 7.200, 7.189, 7.103, 7 7.675, 7.675, 7.674, 7.672, 7.666, 7.643, 7.494, 8 8.302, 8.302, 8.300, 8.294, 8.282, 8.237, 7.987, 9 9.132, 9.130, 9.127, 9.114, 9.090, 9.004, 8.598/ DATA PF315/ 1 10.223, 10.220, 10.212, 10.187, 10.138, 9.983, 9.343, 2 11.651, 11.645, 11.630, 11.579, 11.488, 11.217, 10.237, 3 13.511, 13.499, 13.471, 13.376, 13.210, 12.754, 11.293, 4 15.923, 15.901, 15.850, 15.679, 15.390, 14.649, 12.523, 5 21.582, 21.527, 21.398, 20.980, 20.308, 18.759, 14.986, 6 30.063, 29.936, 29.644, 28.717, 27.292, 24.296, 17.986, 7 42.469, 42.205, 41.600, 39.717, 36.928, 31.533, 21.527, 8 60.113, 59.603, 58.448, 54.905, 49.829, 40.711, 25.589, 9 84.432, 83.517, 81.458, 75.232, 66.578, 52.018, 30.131/ DATA PF316/ 1 116.866, 115.326, 111.881, 101.592, 87.667, 65.561, 35.090, 2 158.718, 156.268, 150.819, 134.718, 113.438, 81.357, 40.394, 3 211.006, 207.301, 199.099, 175.103, 144.047, 99.328, 45.958, 4 274.350, 268.992, 257.184, 222.938, 179.438, 119.302, 51.698, 5 348.890, 341.448, 325.109, 278.089, 219.348, 141.031, 57.527, 6 434.272, 424.298, 402.474, 340.101, 263.326, 164.209, 63.366, 7 529.671, 516.721, 488.474, 408.240, 310.770, 188.489, 69.143, 8 633.863, 617.521, 581.972, 481.550, 360.973, 213.511, 74.796, 9 745.325, 725.217, 681.583, 558.924, 413.171, 238.916, 80.273/ DATA PF317/ 1 862.342, 838.153, 785.776, 639.177, 466.585, 264.365, 85.531, 2 983.119, 954.599, 892.963, 721.118, 520.464, 289.550, 90.540, 3 1105.879, 1072.850,1001.590, 803.602, 574.112, 314.201, 95.277, 4 1228.942, 1191.296,1110.200, 885.577, 626.909, 338.093, 99.728, 5 1350.785, 1308.483,1217.483, 966.114, 678.328, 361.045, 103.888, 6 1470.083, 1423.148,1322.304,1044.427, 727.935, 382.920, 107.755, 7 1585.725, 1534.235,1423.725,1119.873, 775.393, 403.620, 111.334, 8 1696.824, 1640.903,1520.998,1191.959, 820.451, 423.082, 114.632, 9 1802.704, 1742.513,1613.566,1260.322, 862.944, 441.278, 117.662/ DATA PF318/ 1 1902.888, 1838.618,1701.037,1324.725, 902.774, 458.201, 120.434, 2 1997.075, 1928.938,1783.177,1385.037, 939.908, 473.870, 122.965, 3 2085.118, 2013.338,1859.876,1441.219, 974.360, 488.318, 125.269, 4 7.008, 7.008, 7.008, 7.008, 7.008, 7.008, 7.008, 5 7.012, 7.012, 7.012, 7.012, 7.012, 7.012, 7.012, 6 7.016, 7.016, 7.016, 7.016, 7.016, 7.016, 7.016, 7 7.021, 7.021, 7.021, 7.021, 7.021, 7.021, 7.021, 8 7.028, 7.028, 7.028, 7.028, 7.028, 7.028, 7.028, 9 7.037, 7.037, 7.037, 7.037, 7.037, 7.037, 7.037/ DATA PF319/ 1 7.048, 7.048, 7.048, 7.048, 7.048, 7.048, 7.048, 2 7.062, 7.062, 7.062, 7.062, 7.062, 7.062, 7.062, 3 7.079, 7.079, 7.079, 7.079, 7.079, 7.079, 7.079, 4 7.100, 7.100, 7.100, 7.100, 7.100, 7.100, 7.100, 5 7.126, 7.126, 7.126, 7.126, 7.126, 7.126, 7.126, 6 7.158, 7.158, 7.158, 7.158, 7.158, 7.158, 7.158, 7 7.196, 7.196, 7.196, 7.196, 7.196, 7.196, 7.196, 8 7.242, 7.242, 7.242, 7.242, 7.242, 7.242, 7.242, 9 7.296, 7.296, 7.296, 7.296, 7.296, 7.296, 7.296/ DATA PF320/ 1 7.360, 7.360, 7.360, 7.360, 7.360, 7.360, 7.360, 2 7.435, 7.435, 7.435, 7.435, 7.435, 7.435, 7.435, 3 7.523, 7.523, 7.523, 7.523, 7.523, 7.523, 7.523, 4 7.626, 7.626, 7.626, 7.626, 7.626, 7.626, 7.626, 5 7.745, 7.745, 7.745, 7.745, 7.745, 7.745, 7.745, 6 7.961, 7.961, 7.961, 7.961, 7.961, 7.961, 7.961, 7 8.230, 8.230, 8.230, 8.230, 8.230, 8.230, 8.230, 8 8.564, 8.564, 8.564, 8.564, 8.564, 8.564, 8.564, 9 8.977, 8.977, 8.977, 8.977, 8.977, 8.977, 8.977/ DATA PF321/ 1 9.489, 9.489, 9.489, 9.489, 9.489, 9.489, 9.489, 2 10.123, 10.123, 10.123, 10.123, 10.123, 10.123, 10.123, 3 10.909, 10.909, 10.909, 10.909, 10.909, 10.909, 10.909, 4 11.882, 11.882, 11.882, 11.882, 11.882, 11.882, 11.882, 5 13.084, 13.084, 13.084, 13.084, 13.084, 13.083, 13.083, 6 14.565, 14.565, 14.565, 14.565, 14.565, 14.565, 14.564, 7 17.822, 17.822, 17.822, 17.822, 17.821, 17.820, 17.818, 8 22.368, 22.368, 22.368, 22.367, 22.366, 22.361, 22.350, 9 28.652, 28.651, 28.650, 28.648, 28.641, 28.622, 28.583/ DATA PF322/ 1 37.272, 37.265, 37.261, 37.255, 37.229, 37.161, 37.039, 2 49.043, 49.019, 49.006, 48.987, 48.900, 48.692, 48.349, 3 65.099, 65.028, 64.990, 64.932, 64.683, 64.117, 63.257, 4 87.015, 86.823, 86.723, 86.572, 85.936, 84.551, 82.599, 5 116.918, 116.457, 116.218, 115.860, 114.392, 111.318, 107.262, 6 157.560, 156.554, 156.033, 155.262, 152.170, 145.912, 138.119, 7 212.291, 210.274, 209.232, 207.705, 201.699, 189.905, 175.953, 8 284.914, 281.165, 279.231, 276.424, 265.568, 244.820, 221.361, 9 379.407, 372.890, 369.538, 364.706, 346.308, 311.978, 274.690/ DATA PF323/ 1 499.550, 488.886, 483.411, 475.572, 446.129, 392.351, 335.979, 2 648.525, 631.984, 623.506, 611.439, 566.670, 486.433, 404.938, 3 828.534, 804.072, 791.555, 773.830, 708.790, 594.169, 480.965, 4 1040.529, 1005.861, 988.148, 963.179, 872.449, 714.932, 563.181, 5 1284.073, 1236.770,1212.631,1178.745,1056.676, 847.559, 650.498, 6 1557.351, 1494.951,1463.145,1418.658,1259.640, 990.438, 741.686, 7 1857.310, 1777.438,1736.767,1680.068,1478.787,1141.620, 835.452, 8 2179.909, 2080.380,2029.747,1959.362,1711.034,1298.948, 930.508, 9 2520.412, 2399.322,2337.770,2252.428,1952.973,1460.186,1025.630/ DATA PF324/ 1 2873.715, 2729.501,2656.246,2554.915,2201.084,1623.137,1119.703, 2 3234.634, 3066.114,2980.568,2862.477,2451.914,1785.734,1211.747, 3 3598.172, 3404.556,3306.327,3170.977,2702.226,1946.112,1300.940, 4 3959.710, 3740.594,3629.485,3476.636,2949.111,2102.654,1386.619, 5 4315.152, 4070.492,3946.486,3776.144,3190.051,2254.014,1468.278, 6 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 7 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 8 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 9 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000/ DATA PF325/ 1 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 2 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 3 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 4 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 5 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 7 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 8 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 9 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 6.001/ DATA PF326/ 1 6.002, 6.002, 6.002, 6.002, 6.002, 6.002, 6.002, 2 6.003, 6.003, 6.003, 6.003, 6.003, 6.003, 6.003, 3 6.004, 6.004, 6.004, 6.004, 6.004, 6.004, 6.004, 4 6.007, 6.007, 6.007, 6.007, 6.007, 6.007, 6.007, 5 6.010, 6.010, 6.010, 6.010, 6.010, 6.010, 6.010, 6 6.015, 6.015, 6.015, 6.015, 6.015, 6.015, 6.015, 7 6.021, 6.021, 6.021, 6.021, 6.021, 6.021, 6.021, 8 6.037, 6.037, 6.037, 6.037, 6.037, 6.037, 6.037, 9 6.061, 6.061, 6.061, 6.061, 6.061, 6.061, 6.061/ DATA PF327/ 1 6.098, 6.098, 6.098, 6.098, 6.098, 6.098, 6.098, 2 6.154, 6.154, 6.154, 6.154, 6.154, 6.154, 6.154, 3 6.234, 6.234, 6.234, 6.234, 6.234, 6.234, 6.234, 4 6.349, 6.349, 6.349, 6.349, 6.349, 6.349, 6.349, 5 6.508, 6.508, 6.508, 6.508, 6.508, 6.508, 6.508, 6 6.724, 6.724, 6.724, 6.724, 6.724, 6.724, 6.724, 7 7.012, 7.012, 7.012, 7.012, 7.012, 7.012, 7.012, 8 7.390, 7.390, 7.390, 7.390, 7.390, 7.390, 7.390, 9 8.271, 8.271, 8.271, 8.271, 8.271, 8.271, 8.271/ DATA PF328/ 1 9.558, 9.558, 9.558, 9.558, 9.558, 9.558, 9.558, 2 11.370, 11.370, 11.370, 11.370, 11.370, 11.370, 11.370, 3 13.842, 13.842, 13.842, 13.842, 13.842, 13.842, 13.842, 4 17.128, 17.128, 17.128, 17.128, 17.128, 17.128, 17.128, 5 21.406, 21.406, 21.406, 21.406, 21.406, 21.406, 21.406, 6 26.899, 26.899, 26.899, 26.899, 26.899, 26.898, 26.897, 7 33.902, 33.902, 33.902, 33.902, 33.901, 33.897, 33.890, 8 42.848, 42.847, 42.846, 42.844, 42.838, 42.820, 42.789, 9 54.423, 54.423, 54.417, 54.408, 54.380, 54.306, 54.184/ DATA PF329/ 1 69.802, 69.798, 69.779, 69.743, 69.638, 69.372, 68.955, 2 91.026, 91.014, 90.950, 90.833, 90.494, 89.665, 88.417, 3 121.592, 121.557, 121.371, 121.034, 120.073, 117.785, 114.472, 4 167.185, 167.095, 166.615, 165.752, 163.320, 157.659, 149.749, 5 236.428, 236.219, 235.104, 233.108, 227.543, 214.855, 197.666, 6 341.417, 340.971, 338.608, 334.394, 322.756, 296.704, 262.369, 7 497.755, 496.883, 492.266, 484.060, 461.599, 412.136, 348.511, 8 723.929, 722.343, 713.956, 699.095, 658.737, 571.146, 460.881, 9 1039.969, 1037.265,1022.990, 997.759, 929.721, 783.952, 603.935/ DATA PF330/ 1 1465.575, 1461.226,1438.293,1397.852,1289.481,1059.963, 781.305, 2 2018.013, 2011.370,1976.380,1914.800,1750.707,1406.727, 995.368, 3 2710.155, 2700.464,2649.475,2559.900,2322.394,1829.055,1246.958, 4 3548.996, 3535.428,3464.108,3339.013,3008.798,2328.452,1535.239, 5 4534.858, 4516.543,4420.358,4251.890,3808.940,2902.921,1857.764, 6 5661.329, 5637.401,5511.833,5292.182,4716.685,3547.139,2210.678, 7 6915.891, 6885.525,6726.283,6448.041,5721.321,4252.933,2589.032, 8 17.582, 17.582, 17.582, 17.582, 17.582, 17.582, 17.582, 9 17.846, 17.846, 17.846, 17.846, 17.846, 17.846, 17.846/ DATA PF331/ 1 18.103, 18.103, 18.103, 18.103, 18.103, 18.103, 18.103, 2 18.354, 18.354, 18.354, 18.354, 18.354, 18.354, 18.354, 3 18.598, 18.598, 18.598, 18.598, 18.598, 18.598, 18.598, 4 18.835, 18.835, 18.835, 18.835, 18.835, 18.835, 18.835, 5 19.066, 19.066, 19.066, 19.066, 19.066, 19.066, 19.066, 6 19.290, 19.290, 19.290, 19.290, 19.290, 19.290, 19.290, 7 19.507, 19.507, 19.507, 19.507, 19.507, 19.507, 19.507, 8 19.719, 19.719, 19.719, 19.719, 19.719, 19.719, 19.719, 9 19.924, 19.924, 19.924, 19.924, 19.924, 19.924, 19.924/ DATA PF332/ 1 20.124, 20.124, 20.124, 20.124, 20.124, 20.124, 20.124, 2 20.319, 20.319, 20.319, 20.319, 20.319, 20.319, 20.319, 3 20.510, 20.510, 20.510, 20.510, 20.510, 20.510, 20.510, 4 20.696, 20.696, 20.696, 20.696, 20.696, 20.696, 20.696, 5 20.880, 20.880, 20.880, 20.880, 20.880, 20.880, 20.880, 6 21.061, 21.061, 21.061, 21.061, 21.061, 21.061, 21.061, 7 21.243, 21.243, 21.243, 21.243, 21.243, 21.243, 21.243, 8 21.425, 21.425, 21.425, 21.425, 21.425, 21.425, 21.425, 9 21.611, 21.611, 21.611, 21.611, 21.611, 21.611, 21.611/ DATA PF333/ 1 21.899, 21.899, 21.899, 21.899, 21.899, 21.899, 21.899, 2 22.208, 22.208, 22.208, 22.208, 22.208, 22.208, 22.208, 3 22.547, 22.547, 22.547, 22.547, 22.547, 22.547, 22.547, 4 22.928, 22.928, 22.928, 22.928, 22.928, 22.928, 22.928, 5 23.365, 23.365, 23.365, 23.365, 23.365, 23.365, 23.365, 6 23.872, 23.872, 23.872, 23.872, 23.872, 23.872, 23.872, 7 24.464, 24.464, 24.464, 24.464, 24.464, 24.464, 24.464, 8 25.158, 25.158, 25.158, 25.158, 25.158, 25.158, 25.158, 9 25.970, 25.970, 25.970, 25.970, 25.970, 25.970, 25.970/ DATA PF334/ 1 26.915, 26.915, 26.915, 26.915, 26.915, 26.915, 26.915, 2 28.831, 28.831, 28.831, 28.831, 28.831, 28.831, 28.831, 3 31.225, 31.225, 31.225, 31.225, 31.225, 31.225, 31.225, 4 34.150, 34.150, 34.150, 34.150, 34.150, 34.150, 34.150, 5 37.640, 37.640, 37.640, 37.640, 37.640, 37.640, 37.640, 6 41.714, 41.714, 41.714, 41.714, 41.714, 41.714, 41.714, 7 46.375, 46.375, 46.375, 46.375, 46.375, 46.375, 46.375, 8 51.614, 51.614, 51.614, 51.614, 51.614, 51.614, 51.614, 9 57.419, 57.419, 57.419, 57.419, 57.419, 57.419, 57.419/ DATA PF335/ 1 63.790, 63.790, 63.790, 63.790, 63.790, 63.790, 63.790, 2 70.753, 70.753, 70.753, 70.753, 70.753, 70.753, 70.753, 3 78.395, 78.395, 78.395, 78.395, 78.395, 78.394, 78.392, 4 86.906, 86.906, 86.905, 86.904, 86.902, 86.899, 86.887, 5 96.668, 96.667, 96.663, 96.656, 96.648, 96.632, 96.577, 6 108.433, 108.427, 108.412, 108.384, 108.348, 108.285, 108.068, 7 123.653, 123.631, 123.578, 123.477, 123.349, 123.127, 122.397, 8 145.054, 144.982, 144.815, 144.500, 144.102, 143.424, 141.265, 9 177.466, 177.267, 176.804, 175.933, 174.843, 173.004, 167.329/ DATA PF336/ 1 228.856, 228.360, 227.211, 225.054, 222.378, 217.906, 204.477, 2 311.317, 310.201, 307.616, 302.778, 296.818, 286.941, 258.004, 3 441.695, 439.394, 434.071, 424.131, 411.963, 391.950, 334.585, 4 641.489, 637.103, 626.970, 608.086, 585.102, 547.548, 441.979, 5 935.823, 928.028, 910.043, 876.586, 836.073, 770.263, 588.445, 6 1351.488, 1338.476,1308.487,1252.784,1185.640,1077.140, 781.968, 7 1914.345, 1893.802,1846.501,1758.762,1653.430,1484.014,1029.405, 8 2646.519, 2615.658,2544.657,2413.119,2255.778,2003.756,1335.700, 9 3563.888, 3519.532,3417.562,3228.859,3003.863,2644.803,1703.317/ DATA PF337/ 1 16.969, 16.969, 16.969, 16.969, 16.969, 16.969, 16.969, 2 17.308, 17.308, 17.308, 17.308, 17.308, 17.308, 17.308, 3 17.643, 17.643, 17.643, 17.643, 17.643, 17.643, 17.643, 4 17.973, 17.973, 17.973, 17.973, 17.973, 17.973, 17.973, 5 18.298, 18.298, 18.298, 18.298, 18.298, 18.298, 18.298, 6 18.617, 18.617, 18.617, 18.617, 18.617, 18.617, 18.617, 7 18.931, 18.931, 18.931, 18.931, 18.931, 18.931, 18.931, 8 19.239, 19.239, 19.239, 19.239, 19.239, 19.239, 19.239, 9 19.541, 19.541, 19.541, 19.541, 19.541, 19.541, 19.541/ DATA PF338/ 1 19.838, 19.838, 19.838, 19.838, 19.838, 19.838, 19.838, 2 20.129, 20.129, 20.129, 20.129, 20.129, 20.129, 20.129, 3 20.415, 20.415, 20.415, 20.415, 20.415, 20.415, 20.415, 4 20.696, 20.696, 20.696, 20.696, 20.696, 20.696, 20.696, 5 20.973, 20.973, 20.973, 20.973, 20.973, 20.973, 20.973, 6 21.247, 21.247, 21.247, 21.247, 21.247, 21.247, 21.247, 7 21.518, 21.518, 21.518, 21.518, 21.518, 21.518, 21.518, 8 21.788, 21.788, 21.788, 21.788, 21.788, 21.788, 21.788, 9 22.058, 22.058, 22.058, 22.058, 22.058, 22.058, 22.058/ DATA PF339/ 1 22.328, 22.328, 22.328, 22.328, 22.328, 22.328, 22.328, 2 22.602, 22.602, 22.602, 22.602, 22.602, 22.602, 22.602, 3 23.021, 23.021, 23.021, 23.021, 23.021, 23.021, 23.021, 4 23.456, 23.456, 23.456, 23.456, 23.456, 23.456, 23.456, 5 23.915, 23.915, 23.915, 23.915, 23.915, 23.915, 23.915, 6 24.406, 24.406, 24.406, 24.406, 24.406, 24.406, 24.406, 7 24.937, 24.937, 24.937, 24.937, 24.937, 24.937, 24.937, 8 25.517, 25.517, 25.517, 25.517, 25.517, 25.517, 25.517, 9 26.153, 26.153, 26.153, 26.153, 26.153, 26.153, 26.153/ DATA PF340/ 1 26.854, 26.854, 26.854, 26.854, 26.854, 26.854, 26.854, 2 27.629, 27.629, 27.629, 27.629, 27.629, 27.629, 27.629, 3 28.482, 28.482, 28.482, 28.482, 28.482, 28.482, 28.482, 4 30.099, 30.099, 30.099, 30.099, 30.099, 30.099, 30.099, 5 31.973, 31.973, 31.973, 31.973, 31.973, 31.973, 31.973, 6 34.117, 34.117, 34.117, 34.117, 34.117, 34.117, 34.117, 7 36.530, 36.530, 36.530, 36.530, 36.530, 36.530, 36.530, 8 39.204, 39.204, 39.204, 39.204, 39.204, 39.204, 39.204, 9 42.121, 42.121, 42.121, 42.121, 42.121, 42.121, 42.121/ DATA PF341/ 1 45.253, 45.253, 45.253, 45.253, 45.253, 45.253, 45.253, 2 48.570, 48.570, 48.570, 48.570, 48.570, 48.570, 48.570, 3 52.038, 52.038, 52.038, 52.038, 52.038, 52.038, 52.038, 4 55.623, 55.623, 55.623, 55.623, 55.623, 55.623, 55.623, 5 59.295, 59.295, 59.295, 59.295, 59.295, 59.295, 59.295, 6 63.037, 63.037, 63.037, 63.037, 63.037, 63.037, 63.037, 7 66.856, 66.856, 66.856, 66.856, 66.856, 66.856, 66.856, 8 70.791, 70.791, 70.791, 70.791, 70.791, 70.791, 70.790, 9 74.951, 74.951, 74.951, 74.951, 74.951, 74.950, 74.946/ DATA PF342/ 1 79.561, 79.561, 79.561, 79.561, 79.559, 79.554, 79.538, 2 85.072, 85.072, 85.072, 85.072, 85.063, 85.044, 84.978, 3 92.353, 92.353, 92.353, 92.352, 92.322, 92.254, 92.028, 4 103.009, 103.009, 103.009, 103.006, 102.910, 102.702, 102.025, 5 119.821, 119.819, 119.819, 119.810, 119.548, 118.981, 117.179, 6 147.257, 147.252, 147.252, 147.231, 146.584, 145.200, 140.888, 7 191.936, 191.924, 191.924, 191.877, 190.430, 187.367, 177.980, 8 262.857, 262.831, 262.831, 262.734, 259.770, 253.552, 234.773, 9 371.251, 371.201, 371.201, 371.017, 365.399, 353.711, 318.872/ DATA PF343/ 1 529.958, 529.868, 529.868, 529.542, 519.609, 499.097, 438.662, 2 752.369, 752.220, 752.220, 751.675, 735.169, 701.308, 602.566, 3 12.040, 12.040, 12.040, 12.040, 12.040, 12.040, 12.040, 4 12.289, 12.289, 12.289, 12.289, 12.289, 12.289, 12.289, 5 12.537, 12.537, 12.537, 12.537, 12.537, 12.537, 12.537, 6 12.783, 12.783, 12.783, 12.783, 12.783, 12.783, 12.783, 7 13.027, 13.027, 13.027, 13.027, 13.027, 13.027, 13.027, 8 13.268, 13.268, 13.268, 13.268, 13.268, 13.268, 13.268, 9 13.507, 13.507, 13.507, 13.507, 13.507, 13.507, 13.507/ DATA PF344/ 1 13.742, 13.742, 13.742, 13.742, 13.742, 13.742, 13.742, 2 13.975, 13.975, 13.975, 13.975, 13.975, 13.975, 13.975, 3 14.204, 14.204, 14.204, 14.204, 14.204, 14.204, 14.204, 4 14.430, 14.430, 14.430, 14.430, 14.430, 14.430, 14.430, 5 14.652, 14.652, 14.652, 14.652, 14.652, 14.652, 14.652, 6 14.872, 14.872, 14.872, 14.872, 14.872, 14.872, 14.872, 7 15.088, 15.088, 15.088, 15.088, 15.088, 15.088, 15.088, 8 15.302, 15.302, 15.302, 15.302, 15.302, 15.302, 15.302, 9 15.513, 15.513, 15.513, 15.513, 15.513, 15.513, 15.513/ DATA PF345/ 1 15.721, 15.721, 15.721, 15.721, 15.721, 15.721, 15.721, 2 15.928, 15.928, 15.928, 15.928, 15.928, 15.928, 15.928, 3 16.134, 16.134, 16.134, 16.134, 16.134, 16.134, 16.134, 4 16.338, 16.338, 16.338, 16.338, 16.338, 16.338, 16.338, 5 16.645, 16.645, 16.645, 16.645, 16.645, 16.645, 16.645, 6 16.954, 16.954, 16.954, 16.954, 16.954, 16.954, 16.954, 7 17.266, 17.266, 17.266, 17.266, 17.266, 17.266, 17.266, 8 17.586, 17.586, 17.586, 17.586, 17.586, 17.586, 17.586, 9 17.915, 17.915, 17.915, 17.915, 17.915, 17.915, 17.915/ DATA PF346/ 1 18.256, 18.256, 18.256, 18.256, 18.256, 18.256, 18.256, 2 18.612, 18.612, 18.612, 18.612, 18.612, 18.612, 18.612, 3 18.985, 18.985, 18.985, 18.985, 18.985, 18.985, 18.985, 4 19.377, 19.377, 19.377, 19.377, 19.377, 19.377, 19.377, 5 19.790, 19.790, 19.790, 19.790, 19.790, 19.790, 19.790, 6 20.526, 20.526, 20.526, 20.526, 20.526, 20.526, 20.526, 7 21.327, 21.327, 21.327, 21.327, 21.327, 21.327, 21.327, 8 22.191, 22.191, 22.191, 22.191, 22.191, 22.191, 22.191, 9 23.115, 23.115, 23.115, 23.115, 23.115, 23.115, 23.115/ DATA PF347/ 1 24.091, 24.091, 24.091, 24.091, 24.091, 24.091, 24.091, 2 25.110, 25.110, 25.110, 25.110, 25.110, 25.110, 25.110, 3 26.161, 26.161, 26.161, 26.161, 26.161, 26.161, 26.161, 4 27.233, 27.233, 27.233, 27.233, 27.233, 27.233, 27.233, 5 28.313, 28.313, 28.313, 28.313, 28.313, 28.313, 28.313, 6 29.391, 29.391, 29.391, 29.391, 29.391, 29.391, 29.391, 7 30.455, 30.455, 30.455, 30.455, 30.455, 30.455, 30.455, 8 31.498, 31.498, 31.498, 31.498, 31.498, 31.498, 31.498, 9 32.513, 32.513, 32.513, 32.513, 32.513, 32.513, 32.513/ DATA PF348/ 1 33.499, 33.499, 33.499, 33.499, 33.499, 33.499, 33.499, 2 34.465, 34.465, 34.465, 34.465, 34.465, 34.465, 34.465, 3 35.436, 35.436, 35.436, 35.436, 35.436, 35.436, 35.436, 4 36.466, 36.466, 36.466, 36.466, 36.466, 36.466, 36.466, 5 37.667, 37.667, 37.667, 37.667, 37.667, 37.667, 37.666, 6 39.247, 39.247, 39.246, 39.246, 39.246, 39.246, 39.244, 7 41.574, 41.574, 41.574, 41.574, 41.573, 41.572, 41.565, 8 45.281, 45.281, 45.281, 45.279, 45.276, 45.274, 45.250, 9 51.395, 51.395, 51.394, 51.390, 51.382, 51.374, 51.307/ DATA PF349/ 1 61.500, 61.500, 61.496, 61.486, 61.465, 61.444, 61.275, 2 77.883, 77.883, 77.874, 77.849, 77.801, 77.753, 77.366, 3 103.622, 103.622, 103.604, 103.550, 103.447, 103.345, 102.538, 4 142.555, 142.555, 142.520, 142.414, 142.213, 142.014, 140.459, 5 6.388, 6.388, 6.388, 6.388, 6.388, 6.388, 6.388, 6 6.489, 6.489, 6.489, 6.489, 6.489, 6.489, 6.489, 7 6.589, 6.589, 6.589, 6.589, 6.589, 6.589, 6.589, 8 6.689, 6.689, 6.689, 6.689, 6.689, 6.689, 6.689, 9 6.788, 6.788, 6.788, 6.788, 6.788, 6.788, 6.788/ DATA PF350/ 1 6.886, 6.886, 6.886, 6.886, 6.886, 6.886, 6.886, 2 6.983, 6.983, 6.983, 6.983, 6.983, 6.983, 6.983, 3 7.078, 7.078, 7.078, 7.078, 7.078, 7.078, 7.078, 4 7.172, 7.172, 7.172, 7.172, 7.172, 7.172, 7.172, 5 7.264, 7.264, 7.264, 7.264, 7.264, 7.264, 7.264, 6 7.355, 7.355, 7.355, 7.355, 7.355, 7.355, 7.355, 7 7.444, 7.444, 7.444, 7.444, 7.444, 7.444, 7.444, 8 7.531, 7.531, 7.531, 7.531, 7.531, 7.531, 7.531, 9 7.616, 7.616, 7.616, 7.616, 7.616, 7.616, 7.616/ DATA PF351/ 1 7.699, 7.699, 7.699, 7.699, 7.699, 7.699, 7.699, 2 7.781, 7.781, 7.781, 7.781, 7.781, 7.781, 7.781, 3 7.860, 7.860, 7.860, 7.860, 7.860, 7.860, 7.860, 4 7.938, 7.938, 7.938, 7.938, 7.938, 7.938, 7.938, 5 8.013, 8.013, 8.013, 8.013, 8.013, 8.013, 8.013, 6 8.086, 8.086, 8.086, 8.086, 8.086, 8.086, 8.086, 7 8.192, 8.192, 8.192, 8.192, 8.192, 8.192, 8.192, 8 8.294, 8.294, 8.294, 8.294, 8.294, 8.294, 8.294, 9 8.391, 8.391, 8.391, 8.391, 8.391, 8.391, 8.391/ DATA PF352/ 1 8.483, 8.483, 8.483, 8.483, 8.483, 8.483, 8.483, 2 8.571, 8.571, 8.571, 8.571, 8.571, 8.571, 8.571, 3 8.655, 8.655, 8.655, 8.655, 8.655, 8.655, 8.655, 4 8.735, 8.735, 8.735, 8.735, 8.735, 8.735, 8.735, 5 8.810, 8.810, 8.810, 8.810, 8.810, 8.810, 8.810, 6 8.882, 8.882, 8.882, 8.882, 8.882, 8.882, 8.882, 7 8.949, 8.949, 8.949, 8.949, 8.949, 8.949, 8.949, 8 9.054, 9.054, 9.054, 9.054, 9.054, 9.054, 9.054, 9 9.149, 9.149, 9.149, 9.149, 9.149, 9.149, 9.149/ DATA PF353/ 1 9.236, 9.236, 9.236, 9.236, 9.236, 9.236, 9.236, 2 9.314, 9.314, 9.314, 9.314, 9.314, 9.314, 9.314, 3 9.384, 9.384, 9.384, 9.384, 9.384, 9.384, 9.384, 4 9.448, 9.448, 9.448, 9.448, 9.448, 9.448, 9.448, 5 9.506, 9.506, 9.506, 9.506, 9.506, 9.506, 9.506, 6 9.557, 9.557, 9.557, 9.557, 9.557, 9.557, 9.557, 7 9.604, 9.604, 9.604, 9.604, 9.604, 9.604, 9.604, 8 9.646, 9.646, 9.646, 9.646, 9.646, 9.646, 9.646, 9 9.683, 9.683, 9.683, 9.683, 9.683, 9.683, 9.683/ DATA PF354/ 1 9.717, 9.717, 9.717, 9.717, 9.717, 9.717, 9.717, 2 9.748, 9.748, 9.748, 9.748, 9.748, 9.748, 9.748, 3 9.777, 9.777, 9.777, 9.777, 9.777, 9.777, 9.777, 4 9.809, 9.809, 9.809, 9.809, 9.809, 9.809, 9.809, 5 9.851, 9.851, 9.851, 9.851, 9.851, 9.851, 9.851, 6 9.921, 9.921, 9.921, 9.921, 9.921, 9.921, 9.921, 7 10.051, 10.051, 10.051, 10.051, 10.051, 10.051, 10.051, 8 10.296, 10.296, 10.296, 10.296, 10.296, 10.296, 10.296, 9 10.740, 10.740, 10.740, 10.740, 10.740, 10.740, 10.739/ DATA PF355/ 1 11.506, 11.506, 11.505, 11.505, 11.505, 11.505, 11.504, 2 12.764, 12.764, 12.764, 12.764, 12.764, 12.762, 12.759, 3 14.746, 14.746, 14.745, 14.745, 14.745, 14.738, 14.729, 4 17.758, 17.758, 17.758, 17.758, 17.755, 17.738, 17.710, 5 22.207, 22.207, 22.206, 22.206, 22.199, 22.154, 22.084, 6 28.615, 28.615, 28.611, 28.611, 28.595, 28.492, 28.333, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF356/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF357/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF358/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF359/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF360/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 6 1.002, 1.002, 1.002, 1.002, 1.002, 1.002, 1.002, 7 1.006, 1.006, 1.006, 1.006, 1.006, 1.006, 1.006, 8 1.016, 1.016, 1.016, 1.016, 1.016, 1.016, 1.016, 9 1.039, 1.039, 1.039, 1.039, 1.039, 1.039, 1.039/ DATA PF361/ 1 1.088, 1.088, 1.088, 1.088, 1.088, 1.088, 1.088, 2 1.181, 1.181, 1.181, 1.181, 1.181, 1.181, 1.181, 3 1.349, 1.349, 1.349, 1.349, 1.349, 1.349, 1.349, 4 1.642, 1.642, 1.642, 1.642, 1.642, 1.642, 1.642, 5 2.134, 2.134, 2.134, 2.134, 2.134, 2.134, 2.134, 6 2.948, 2.948, 2.948, 2.948, 2.948, 2.948, 2.948, 7 4.273, 4.273, 4.273, 4.273, 4.273, 4.273, 4.273, 8 6.412, 6.412, 6.412, 6.412, 6.412, 6.412, 6.412, 9 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000/ DATA PF362/ 1 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 2 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 3 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 5 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 6 4.003, 4.003, 4.003, 4.003, 4.003, 4.003, 4.003, 7 4.004, 4.004, 4.004, 4.004, 4.004, 4.004, 4.004, 8 4.005, 4.005, 4.005, 4.005, 4.005, 4.005, 4.005, 9 4.007, 4.007, 4.007, 4.007, 4.007, 4.007, 4.007/ DATA PF363/ 1 4.009, 4.009, 4.009, 4.009, 4.009, 4.009, 4.009, 2 4.011, 4.011, 4.011, 4.011, 4.011, 4.011, 4.011, 3 4.014, 4.014, 4.014, 4.014, 4.014, 4.014, 4.014, 4 4.017, 4.017, 4.017, 4.017, 4.017, 4.017, 4.017, 5 4.021, 4.021, 4.021, 4.021, 4.021, 4.021, 4.021, 6 4.026, 4.026, 4.026, 4.026, 4.026, 4.026, 4.026, 7 4.032, 4.032, 4.032, 4.032, 4.032, 4.032, 4.032, 8 4.039, 4.039, 4.039, 4.039, 4.039, 4.039, 4.039, 9 4.046, 4.046, 4.046, 4.046, 4.046, 4.046, 4.046/ DATA PF364/ 1 4.055, 4.055, 4.055, 4.055, 4.055, 4.055, 4.055, 2 4.069, 4.069, 4.069, 4.069, 4.069, 4.069, 4.069, 3 4.087, 4.087, 4.087, 4.087, 4.087, 4.087, 4.087, 4 4.107, 4.107, 4.107, 4.107, 4.107, 4.107, 4.107, 5 4.130, 4.130, 4.130, 4.130, 4.130, 4.130, 4.130, 6 4.156, 4.156, 4.156, 4.156, 4.156, 4.156, 4.156, 7 4.185, 4.185, 4.185, 4.185, 4.185, 4.185, 4.185, 8 4.217, 4.217, 4.217, 4.217, 4.217, 4.217, 4.217, 9 4.252, 4.252, 4.252, 4.252, 4.252, 4.252, 4.252/ DATA PF365/ 1 4.289, 4.289, 4.289, 4.289, 4.289, 4.289, 4.289, 2 4.329, 4.329, 4.329, 4.329, 4.329, 4.329, 4.329, 3 4.400, 4.400, 4.400, 4.400, 4.400, 4.400, 4.400, 4 4.477, 4.477, 4.477, 4.477, 4.477, 4.477, 4.477, 5 4.557, 4.557, 4.557, 4.557, 4.557, 4.557, 4.557, 6 4.640, 4.640, 4.640, 4.640, 4.640, 4.640, 4.640, 7 4.725, 4.725, 4.725, 4.725, 4.725, 4.725, 4.725, 8 4.809, 4.809, 4.809, 4.809, 4.809, 4.809, 4.809, 9 4.893, 4.893, 4.893, 4.893, 4.893, 4.893, 4.893/ DATA PF366/ 1 4.975, 4.975, 4.975, 4.975, 4.975, 4.975, 4.975, 2 5.054, 5.054, 5.054, 5.054, 5.054, 5.054, 5.054, 3 5.130, 5.130, 5.130, 5.130, 5.130, 5.130, 5.130, 4 5.203, 5.203, 5.203, 5.203, 5.203, 5.203, 5.203, 5 5.271, 5.271, 5.271, 5.271, 5.271, 5.271, 5.271, 6 5.336, 5.336, 5.336, 5.336, 5.336, 5.336, 5.336, 7 5.397, 5.397, 5.397, 5.397, 5.397, 5.397, 5.397, 8 5.458, 5.458, 5.458, 5.458, 5.458, 5.458, 5.458, 9 5.520, 5.520, 5.520, 5.520, 5.520, 5.520, 5.520/ DATA PF367/ 1 5.595, 5.595, 5.595, 5.595, 5.595, 5.595, 5.595, 2 5.697, 5.697, 5.697, 5.697, 5.697, 5.697, 5.697, 3 5.856, 5.856, 5.856, 5.856, 5.856, 5.856, 5.856, 4 6.117, 6.117, 6.117, 6.117, 6.117, 6.117, 6.117, 5 6.550, 6.550, 6.550, 6.550, 6.550, 6.550, 6.550, 6 7.257, 7.257, 7.257, 7.257, 7.257, 7.257, 7.257, 7 8.393, 8.393, 8.393, 8.393, 8.393, 8.393, 8.393, 8 10.190, 10.190, 10.190, 10.190, 10.190, 10.190, 10.190, 9 13.002, 13.002, 13.002, 13.002, 13.002, 13.002, 13.002/ DATA PF368/ 1 17.374, 17.374, 17.374, 17.374, 17.374, 17.374, 17.374, 2 5.003, 5.003, 5.003, 5.003, 5.003, 5.003, 5.003, 3 5.005, 5.005, 5.005, 5.005, 5.005, 5.005, 5.005, 4 5.006, 5.006, 5.006, 5.006, 5.006, 5.006, 5.006, 5 5.008, 5.008, 5.008, 5.008, 5.008, 5.008, 5.008, 6 5.011, 5.011, 5.011, 5.011, 5.011, 5.011, 5.011, 7 5.014, 5.014, 5.014, 5.014, 5.014, 5.014, 5.014, 8 5.018, 5.018, 5.018, 5.018, 5.018, 5.018, 5.018, 9 5.023, 5.023, 5.023, 5.023, 5.023, 5.023, 5.023/ DATA PF369/ 1 5.029, 5.029, 5.029, 5.029, 5.029, 5.029, 5.029, 2 5.036, 5.036, 5.036, 5.036, 5.036, 5.036, 5.036, 3 5.045, 5.045, 5.045, 5.045, 5.045, 5.045, 5.045, 4 5.054, 5.054, 5.054, 5.054, 5.054, 5.054, 5.054, 5 5.066, 5.066, 5.066, 5.066, 5.066, 5.066, 5.066, 6 5.079, 5.079, 5.079, 5.079, 5.079, 5.079, 5.079, 7 5.094, 5.094, 5.094, 5.094, 5.094, 5.094, 5.094, 8 5.112, 5.112, 5.112, 5.112, 5.112, 5.112, 5.112, 9 5.131, 5.131, 5.131, 5.131, 5.131, 5.131, 5.131/ DATA PF370/ 1 5.153, 5.153, 5.153, 5.153, 5.153, 5.153, 5.153, 2 5.177, 5.177, 5.177, 5.177, 5.177, 5.177, 5.177, 3 5.203, 5.203, 5.203, 5.203, 5.203, 5.203, 5.203, 4 5.248, 5.248, 5.248, 5.248, 5.248, 5.248, 5.248, 5 5.298, 5.298, 5.298, 5.298, 5.298, 5.298, 5.298, 6 5.355, 5.355, 5.355, 5.355, 5.355, 5.355, 5.355, 7 5.418, 5.418, 5.418, 5.418, 5.418, 5.418, 5.418, 8 5.488, 5.488, 5.488, 5.488, 5.488, 5.488, 5.488, 9 5.563, 5.563, 5.563, 5.563, 5.563, 5.563, 5.563/ DATA PF371/ 1 5.646, 5.646, 5.646, 5.646, 5.646, 5.646, 5.646, 2 5.734, 5.734, 5.734, 5.734, 5.734, 5.734, 5.734, 3 5.830, 5.830, 5.830, 5.830, 5.830, 5.830, 5.830, 4 5.931, 5.931, 5.931, 5.931, 5.931, 5.931, 5.931, 5 6.116, 6.116, 6.116, 6.116, 6.116, 6.116, 6.116, 6 6.319, 6.319, 6.319, 6.319, 6.319, 6.319, 6.319, 7 6.542, 6.542, 6.542, 6.542, 6.542, 6.542, 6.542, 8 6.784, 6.784, 6.784, 6.784, 6.784, 6.784, 6.784, 9 7.045, 7.045, 7.045, 7.045, 7.045, 7.045, 7.045/ DATA PF372/ 1 7.325, 7.325, 7.325, 7.325, 7.325, 7.325, 7.325, 2 7.622, 7.622, 7.622, 7.622, 7.622, 7.622, 7.622, 3 7.934, 7.934, 7.934, 7.934, 7.934, 7.934, 7.934, 4 8.259, 8.259, 8.259, 8.259, 8.259, 8.259, 8.259, 5 8.595, 8.595, 8.595, 8.595, 8.595, 8.595, 8.595, 6 8.938, 8.938, 8.938, 8.938, 8.938, 8.938, 8.938, 7 9.285, 9.285, 9.285, 9.285, 9.285, 9.285, 9.285, 8 9.635, 9.635, 9.635, 9.635, 9.635, 9.635, 9.635, 9 9.984, 9.984, 9.984, 9.984, 9.984, 9.984, 9.984/ DATA PF373/ 1 10.336, 10.336, 10.336, 10.336, 10.336, 10.336, 10.336, 2 10.693, 10.693, 10.693, 10.693, 10.693, 10.693, 10.693, 3 11.069, 11.069, 11.069, 11.069, 11.069, 11.069, 11.069, 4 11.487, 11.487, 11.487, 11.487, 11.487, 11.487, 11.487, 5 11.987, 11.987, 11.987, 11.987, 11.987, 11.987, 11.987, 6 12.633, 12.633, 12.633, 12.633, 12.633, 12.633, 12.633, 7 13.520, 13.520, 13.520, 13.520, 13.520, 13.520, 13.520, 8 14.787, 14.787, 14.787, 14.787, 14.787, 14.787, 14.787, 9 16.631, 16.631, 16.631, 16.631, 16.631, 16.631, 16.631/ DATA PF374/ 1 19.338, 19.338, 19.338, 19.338, 19.338, 19.338, 19.338, 2 23.317, 23.317, 23.317, 23.317, 23.317, 23.317, 23.317, 3 29.168, 29.168, 29.168, 29.168, 29.168, 29.168, 29.168, 4 19.692, 19.692, 19.692, 19.692, 19.692, 19.692, 19.692, 5 19.946, 19.946, 19.946, 19.946, 19.946, 19.946, 19.946, 6 20.207, 20.207, 20.207, 20.207, 20.207, 20.207, 20.207, 7 20.476, 20.476, 20.476, 20.476, 20.476, 20.476, 20.476, 8 20.754, 20.754, 20.754, 20.754, 20.754, 20.754, 20.754, 9 21.044, 21.044, 21.044, 21.044, 21.044, 21.044, 21.044/ DATA PF375/ 1 21.348, 21.348, 21.348, 21.348, 21.348, 21.348, 21.348, 2 21.667, 21.667, 21.667, 21.667, 21.667, 21.667, 21.667, 3 22.004, 22.004, 22.004, 22.004, 22.004, 22.004, 22.004, 4 22.362, 22.362, 22.362, 22.362, 22.362, 22.362, 22.361, 5 22.742, 22.742, 22.742, 22.742, 22.742, 22.742, 22.742, 6 23.148, 23.148, 23.148, 23.148, 23.148, 23.148, 23.148, 7 23.584, 23.584, 23.584, 23.584, 23.584, 23.584, 23.583, 8 24.052, 24.052, 24.052, 24.052, 24.052, 24.052, 24.051, 9 24.557, 24.557, 24.557, 24.557, 24.557, 24.557, 24.556/ DATA PF376/ 1 25.105, 25.105, 25.105, 25.105, 25.105, 25.104, 25.103, 2 25.699, 25.699, 25.699, 25.699, 25.699, 25.699, 25.696, 3 26.347, 26.347, 26.347, 26.347, 26.347, 26.347, 26.341, 4 27.056, 27.056, 27.056, 27.056, 27.056, 27.056, 27.047, 5 27.834, 27.834, 27.834, 27.834, 27.834, 27.833, 27.818, 6 29.153, 29.153, 29.153, 29.153, 29.152, 29.150, 29.120, 7 30.689, 30.689, 30.688, 30.688, 30.686, 30.681, 30.624, 8 32.490, 32.490, 32.490, 32.488, 32.484, 32.472, 32.367, 9 34.619, 34.619, 34.617, 34.612, 34.602, 34.576, 34.389/ DATA PF377/ 1 37.152, 37.151, 37.147, 37.136, 37.112, 37.057, 36.737, 2 40.188, 40.186, 40.176, 40.151, 40.098, 39.989, 39.455, 3 43.856, 43.851, 43.829, 43.775, 43.664, 43.456, 42.594, 4 48.322, 48.310, 48.266, 48.154, 47.934, 47.554, 46.202, 5 53.803, 53.780, 53.693, 53.474, 53.056, 52.388, 50.323, 6 60.584, 60.539, 60.374, 59.965, 59.205, 58.074, 55.000, 7 75.805, 75.685, 75.248, 74.190, 72.301, 69.778, 64.126, 8 98.002, 97.715, 96.675, 94.205, 89.953, 84.791, 75.012, 9 130.393, 129.764, 127.511, 122.253, 113.490, 103.711, 87.706/ DATA PF378/ 1 177.139, 175.874, 171.388, 161.078, 144.378, 127.086, 102.180, 2 243.218, 240.863, 232.575, 213.785, 184.112, 155.358, 118.325, 3 334.109, 330.010, 315.685, 283.604, 234.070, 188.811, 135.966, 4 455.302, 448.584, 425.258, 373.577, 295.363, 227.535, 154.871, 5 611.734, 601.300, 565.276, 486.228, 368.703, 271.406, 174.770, 6 807.227, 791.780, 738.715, 623.266, 454.314, 320.086, 195.372, 7 1044.045, 1022.131, 947.188, 785.378, 551.886, 373.050, 216.382, 8 1322.623, 1292.694,1190.753, 972.138, 660.596, 429.620, 237.516, 9 1641.501, 1601.988,1467.884,1182.028, 779.169, 489.011, 258.512/ DATA PF379/ 1 1997.454, 1946.842,1775.611,1412.573, 905.981, 550.380, 279.137, 2 2385.781, 2322.673,2109.771,1660.539,1039.170, 612.874, 299.192, 3 2800.685, 2723.862,2465.345,1922.183,1176.761, 675.671, 318.517, 4 3235.699, 3144.159,2836.810,2193.498,1316.775, 738.010, 336.985, 5 3684.095, 3577.077,3218.484,2470.447,1457.320, 799.216, 354.504, 6 4139.252, 4016.247,3604.823,2749.161,1596.668, 858.711, 371.014, 7 4594.948, 4455.693,3990.657,3026.088,1733.297, 916.026, 386.479, 8 5045.575, 4890.036,4371.358,3298.094,1865.923, 970.793, 400.889, 9 5486.275, 5314.625,4742.944,3562.522,1993.507,1022.743, 414.254/ DATA PF380/ 1 5913.008, 5725.597,5102.129,3817.216,2115.252,1071.699, 426.594, 2 6322.559, 6119.885,5446.320,4060.508,2230.584,1117.562, 437.947, 3 6712.506, 6495.185,5773.589,4291.191,2339.131,1160.300, 448.355, 4 7081.158, 6849.892,6082.609,4508.468,2440.699,1199.938, 457.867, 5 7427.471, 7183.025,6372.590,4711.909,2535.242,1236.543, 466.539, 6 28.795, 28.795, 28.795, 28.795, 28.795, 28.795, 28.795, 7 29.467, 29.467, 29.467, 29.467, 29.467, 29.467, 29.467, 8 30.148, 30.148, 30.148, 30.148, 30.148, 30.148, 30.148, 9 30.838, 30.838, 30.838, 30.838, 30.838, 30.838, 30.838/ DATA PF381/ 1 31.536, 31.536, 31.536, 31.536, 31.536, 31.536, 31.536, 2 32.244, 32.244, 32.244, 32.244, 32.244, 32.244, 32.244, 3 32.960, 32.960, 32.960, 32.960, 32.960, 32.960, 32.960, 4 33.685, 33.685, 33.685, 33.685, 33.685, 33.685, 33.685, 5 34.419, 34.419, 34.419, 34.419, 34.419, 34.419, 34.419, 6 35.163, 35.163, 35.163, 35.163, 35.163, 35.163, 35.163, 7 35.918, 35.918, 35.918, 35.918, 35.918, 35.918, 35.918, 8 36.684, 36.684, 36.684, 36.684, 36.684, 36.684, 36.684, 9 37.463, 37.463, 37.463, 37.463, 37.463, 37.463, 37.463/ DATA PF382/ 1 38.257, 38.257, 38.257, 38.257, 38.257, 38.257, 38.257, 2 39.067, 39.067, 39.067, 39.067, 39.067, 39.067, 39.067, 3 39.896, 39.896, 39.896, 39.896, 39.896, 39.896, 39.896, 4 40.746, 40.746, 40.746, 40.746, 40.746, 40.746, 40.746, 5 41.622, 41.622, 41.622, 41.622, 41.622, 41.622, 41.622, 6 42.526, 42.526, 42.526, 42.526, 42.526, 42.526, 42.526, 7 43.464, 43.464, 43.464, 43.464, 43.464, 43.464, 43.464, 8 44.946, 44.946, 44.946, 44.946, 44.946, 44.946, 44.946, 9 46.536, 46.536, 46.536, 46.536, 46.536, 46.536, 46.536/ DATA PF383/ 1 48.258, 48.258, 48.258, 48.258, 48.258, 48.258, 48.258, 2 50.140, 50.140, 50.140, 50.140, 50.140, 50.140, 50.140, 3 52.215, 52.215, 52.215, 52.215, 52.215, 52.215, 52.215, 4 54.519, 54.519, 54.519, 54.519, 54.519, 54.519, 54.519, 5 57.093, 57.093, 57.093, 57.093, 57.093, 57.093, 57.093, 6 59.980, 59.980, 59.980, 59.980, 59.980, 59.980, 59.980, 7 63.230, 63.230, 63.230, 63.230, 63.230, 63.230, 63.230, 8 66.899, 66.899, 66.899, 66.899, 66.899, 66.899, 66.898, 9 74.112, 74.112, 74.112, 74.112, 74.112, 74.111, 74.106/ DATA PF384/ 1 83.002, 83.001, 83.001, 83.001, 83.000, 82.995, 82.973, 2 94.020, 94.020, 94.019, 94.017, 94.011, 93.992, 93.908, 3 107.809, 107.808, 107.805, 107.798, 107.774, 107.702, 107.427, 4 125.325, 125.321, 125.311, 125.283, 125.202, 124.972, 124.182, 5 148.022, 148.009, 147.979, 147.893, 147.652, 146.997, 144.970, 6 178.080, 178.046, 177.962, 177.730, 177.089, 175.428, 170.728, 7 218.642, 218.557, 218.348, 217.784, 216.257, 212.447, 202.492, 8 273.973, 273.782, 273.317, 272.067, 268.757, 260.770, 241.323, 9 349.483, 349.092, 348.139, 345.601, 339.005, 323.554, 288.212/ DATA PF385/ 1 451.527, 450.783, 448.978, 444.209, 432.010, 404.187, 343.967, 2 586.971, 585.651, 582.463, 574.095, 552.992, 505.991, 409.120, 3 762.573, 760.375, 755.081, 741.267, 706.876, 631.869, 483.847, 4 984.275, 980.811, 972.491, 950.899, 897.749, 783.975, 567.932, 5 1256.523, 1251.328,1238.881,1206.728,1128.386, 963.442, 660.764, 6 1581.735, 1574.280,1556.456,1510.608,1399.902,1170.229, 761.380, 7 1960.002, 1949.714,1925.169,1862.267,1711.600,1403.095, 868.532, 8 2389.037, 2375.329,2342.684,2259.302,2061.006,1659.686, 980.774, 9 2864.368, 2846.665,2804.572,2697.378,2444.077,1936.729,1096.548/ DATA PF386/ 1 3379.718, 3357.483,3304.687,3170.596,2855.531,2230.276,1214.278, 2 3927.498, 3900.254,3835.646,3671.942,3289.242,2535.981,1332.443, 3 4499.342, 4466.691,4389.345,4193.779,3738.651,2849.364,1449.637, 4 5086.626, 5048.257,4957.457,4728.301,4197.145,3166.042,1564.612, 5 5680.920, 5636.616,5531.863,5267.938,4658.378,3481.920,1676.303, 6 6274.347, 6223.984,6104.999,5805.663,5116.521,3793.322,1783.843, 7 6859.847, 6803.388,6670.097,6335.215,5566.429,4097.083,1886.555, 8 19.261, 19.261, 19.261, 19.261, 19.261, 19.261, 19.261, 9 19.464, 19.464, 19.464, 19.464, 19.464, 19.464, 19.464/ DATA PF387/ 1 19.661, 19.661, 19.661, 19.661, 19.661, 19.661, 19.661, 2 19.854, 19.854, 19.854, 19.854, 19.854, 19.854, 19.854, 3 20.041, 20.041, 20.041, 20.041, 20.041, 20.041, 20.041, 4 20.224, 20.224, 20.224, 20.224, 20.224, 20.224, 20.224, 5 20.402, 20.402, 20.402, 20.402, 20.402, 20.402, 20.402, 6 20.575, 20.575, 20.575, 20.575, 20.575, 20.575, 20.575, 7 20.743, 20.743, 20.743, 20.743, 20.743, 20.743, 20.743, 8 20.908, 20.908, 20.908, 20.908, 20.908, 20.908, 20.908, 9 21.068, 21.068, 21.068, 21.068, 21.068, 21.068, 21.068/ DATA PF388/ 1 21.225, 21.225, 21.225, 21.225, 21.225, 21.225, 21.225, 2 21.378, 21.378, 21.378, 21.378, 21.378, 21.378, 21.378, 3 21.530, 21.530, 21.530, 21.530, 21.530, 21.530, 21.530, 4 21.680, 21.680, 21.680, 21.680, 21.680, 21.680, 21.680, 5 21.830, 21.830, 21.830, 21.830, 21.830, 21.830, 21.830, 6 21.981, 21.981, 21.981, 21.981, 21.981, 21.981, 21.981, 7 22.135, 22.135, 22.135, 22.135, 22.135, 22.135, 22.135, 8 22.294, 22.294, 22.294, 22.294, 22.294, 22.294, 22.294, 9 22.459, 22.459, 22.459, 22.459, 22.459, 22.459, 22.459/ DATA PF389/ 1 22.726, 22.726, 22.726, 22.726, 22.726, 22.726, 22.726, 2 23.024, 23.024, 23.024, 23.024, 23.024, 23.024, 23.024, 3 23.364, 23.364, 23.364, 23.364, 23.364, 23.364, 23.364, 4 23.759, 23.759, 23.759, 23.759, 23.759, 23.759, 23.759, 5 24.225, 24.225, 24.225, 24.225, 24.225, 24.225, 24.225, 6 24.777, 24.777, 24.777, 24.777, 24.777, 24.777, 24.777, 7 25.431, 25.431, 25.431, 25.431, 25.431, 25.431, 25.431, 8 26.206, 26.206, 26.206, 26.206, 26.206, 26.206, 26.206, 9 27.118, 27.118, 27.118, 27.118, 27.118, 27.118, 27.118/ DATA PF390/ 1 28.186, 28.186, 28.186, 28.186, 28.186, 28.186, 28.186, 2 30.360, 30.360, 30.360, 30.360, 30.360, 30.360, 30.360, 3 33.097, 33.097, 33.097, 33.097, 33.097, 33.097, 33.097, 4 36.482, 36.482, 36.482, 36.482, 36.482, 36.482, 36.482, 5 40.609, 40.609, 40.609, 40.609, 40.609, 40.609, 40.609, 6 45.595, 45.595, 45.595, 45.595, 45.595, 45.595, 45.595, 7 51.603, 51.603, 51.603, 51.603, 51.603, 51.603, 51.602, 8 58.864, 58.864, 58.864, 58.864, 58.863, 58.862, 58.859, 9 67.724, 67.724, 67.723, 67.723, 67.720, 67.716, 67.702/ DATA PF391/ 1 78.710, 78.708, 78.705, 78.703, 78.690, 78.673, 78.620, 2 92.634, 92.626, 92.616, 92.607, 92.558, 92.497, 92.314, 3 110.769, 110.742, 110.706, 110.678, 110.517, 110.321, 109.772, 4 135.082, 135.003, 134.897, 134.814, 134.347, 133.797, 132.334, 5 168.539, 168.329, 168.052, 167.835, 166.633, 165.251, 161.745, 6 215.393, 214.896, 214.239, 213.730, 210.934, 207.795, 200.156, 7 281.384, 280.310, 278.897, 277.806, 271.875, 265.351, 250.055, 8 373.723, 371.591, 368.790, 366.640, 355.047, 342.525, 314.118, 9 500.793, 496.864, 491.713, 487.776, 466.708, 444.317, 394.990/ DATA PF392/ 1 671.547, 664.773, 655.906, 649.156, 613.275, 575.691, 495.019, 2 894.678, 883.673, 869.285, 858.370, 800.700, 741.067, 615.993, 3 1177.698, 1160.735,1138.586,1121.837,1033.806, 943.819, 758.925, 4 1526.072, 1501.128,1468.594,1444.062,1315.727,1185.876, 923.911, 5 1942.576, 1907.403,1861.573,1827.101,1647.523,1467.471,1110.095, 6 2426.952, 2379.173,2316.973,2270.293,2028.027,1787.082,1315.723, 7 2975.893, 2913.118,2831.460,2770.299,2453.929,2141.550,1538.276, 8 3583.340, 3503.275,3399.197,3321.382,2920.061,2526.343,1774.664, 9 4240.993, 4141.541,4012.342,3915.899,3419.813,2935.906,2021.435/ DATA PF393/ 1 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 2 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 3 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 4 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 5 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 7 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 8 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 9 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000/ DATA PF394/ 1 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 2 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 3 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 4 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 5 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 7 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 8 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 9 6.002, 6.002, 6.002, 6.002, 6.002, 6.002, 6.002/ DATA PF395/ 1 6.003, 6.003, 6.003, 6.003, 6.003, 6.003, 6.003, 2 6.004, 6.004, 6.004, 6.004, 6.004, 6.004, 6.004, 3 6.008, 6.008, 6.008, 6.008, 6.008, 6.008, 6.008, 4 6.015, 6.015, 6.015, 6.015, 6.015, 6.015, 6.015, 5 6.026, 6.026, 6.026, 6.026, 6.026, 6.026, 6.026, 6 6.043, 6.043, 6.043, 6.043, 6.043, 6.043, 6.043, 7 6.071, 6.071, 6.071, 6.071, 6.071, 6.071, 6.071, 8 6.114, 6.114, 6.114, 6.114, 6.114, 6.114, 6.114, 9 6.176, 6.176, 6.176, 6.176, 6.176, 6.176, 6.176/ DATA PF396/ 1 6.267, 6.267, 6.267, 6.267, 6.267, 6.267, 6.267, 2 6.394, 6.394, 6.394, 6.394, 6.394, 6.394, 6.394, 3 6.569, 6.569, 6.569, 6.569, 6.569, 6.569, 6.569, 4 7.005, 7.005, 7.005, 7.005, 7.005, 7.005, 7.005, 5 7.684, 7.684, 7.684, 7.684, 7.684, 7.684, 7.684, 6 8.697, 8.697, 8.697, 8.697, 8.697, 8.697, 8.697, 7 10.140, 10.140, 10.140, 10.140, 10.140, 10.140, 10.140, 8 12.118, 12.118, 12.118, 12.118, 12.118, 12.118, 12.118, 9 14.733, 14.733, 14.733, 14.733, 14.733, 14.733, 14.733/ DATA PF397/ 1 18.079, 18.079, 18.079, 18.079, 18.079, 18.079, 18.079, 2 22.240, 22.240, 22.240, 22.240, 22.240, 22.240, 22.240, 3 27.293, 27.293, 27.293, 27.293, 27.293, 27.293, 27.293, 4 33.317, 33.317, 33.317, 33.317, 33.317, 33.316, 33.316, 5 40.419, 40.419, 40.419, 40.419, 40.418, 40.418, 40.418, 6 48.781, 48.780, 48.780, 48.780, 48.779, 48.777, 48.773, 7 58.739, 58.738, 58.737, 58.733, 58.730, 58.722, 58.701, 8 70.943, 70.937, 70.931, 70.916, 70.902, 70.863, 70.773, 9 86.649, 86.626, 86.603, 86.542, 86.490, 86.338, 86.006/ DATA PF398/ 1 108.252, 108.172, 108.095, 107.889, 107.714, 107.209, 106.144, 2 140.109, 139.870, 139.641, 139.028, 138.511, 137.042, 134.035, 3 189.665, 189.033, 188.425, 186.807, 185.453, 181.642, 174.059, 4 268.697, 267.191, 265.743, 261.899, 258.702, 249.795, 232.499, 5 394.354, 391.085, 387.948, 379.636, 372.763, 353.778, 317.712, 6 589.551, 583.033, 576.782, 560.258, 546.660, 509.392, 439.960, 7 882.376, 870.316, 858.762, 828.276, 803.299, 735.314, 610.833, 8 1304.331, 1283.464,1263.487,1210.863,1167.920,1051.749, 842.299, 9 1887.589, 1853.575,1821.030,1735.431,1665.822,1478.548,1145.514/ DATA PF399/ 1 2661.691, 2609.112,2558.835,2426.773,2319.714,2033.093,1529.593, 2 3650.253, 3572.739,3498.656,3304.293,3147.168,2728.338,2000.570, 3 15.218, 15.218, 15.218, 15.218, 15.218, 15.218, 15.218, 4 15.531, 15.531, 15.531, 15.531, 15.531, 15.531, 15.531, 5 15.839, 15.839, 15.839, 15.839, 15.839, 15.839, 15.839, 6 16.142, 16.142, 16.142, 16.142, 16.142, 16.142, 16.142, 7 16.438, 16.438, 16.438, 16.438, 16.438, 16.438, 16.438, 8 16.728, 16.728, 16.728, 16.728, 16.728, 16.728, 16.728, 9 17.012, 17.012, 17.012, 17.012, 17.012, 17.012, 17.012/ DATA PF400/ 1 17.290, 17.290, 17.290, 17.290, 17.290, 17.290, 17.290, 2 17.561, 17.561, 17.561, 17.561, 17.561, 17.561, 17.561, 3 17.826, 17.826, 17.826, 17.826, 17.826, 17.826, 17.826, 4 18.084, 18.084, 18.084, 18.084, 18.084, 18.084, 18.084, 5 18.336, 18.336, 18.336, 18.336, 18.336, 18.336, 18.336, 6 18.582, 18.582, 18.582, 18.582, 18.582, 18.582, 18.582, 7 18.821, 18.821, 18.821, 18.821, 18.821, 18.821, 18.821, 8 19.054, 19.054, 19.054, 19.054, 19.054, 19.054, 19.054, 9 19.281, 19.281, 19.281, 19.281, 19.281, 19.281, 19.281/ DATA PF401/ 1 19.503, 19.503, 19.503, 19.503, 19.503, 19.503, 19.503, 2 19.721, 19.721, 19.721, 19.721, 19.721, 19.721, 19.721, 3 19.935, 19.935, 19.935, 19.935, 19.935, 19.935, 19.935, 4 20.146, 20.146, 20.146, 20.146, 20.146, 20.146, 20.146, 5 20.460, 20.460, 20.460, 20.460, 20.460, 20.460, 20.460, 6 20.775, 20.775, 20.775, 20.775, 20.775, 20.775, 20.775, 7 21.098, 21.098, 21.098, 21.098, 21.098, 21.098, 21.098, 8 21.437, 21.437, 21.437, 21.437, 21.437, 21.437, 21.437, 9 21.801, 21.801, 21.801, 21.801, 21.801, 21.801, 21.801/ DATA PF402/ 1 22.203, 22.203, 22.203, 22.203, 22.203, 22.203, 22.203, 2 22.654, 22.654, 22.654, 22.654, 22.654, 22.654, 22.654, 3 23.169, 23.169, 23.169, 23.169, 23.169, 23.169, 23.169, 4 23.763, 23.763, 23.763, 23.763, 23.763, 23.763, 23.763, 5 24.453, 24.453, 24.453, 24.453, 24.453, 24.453, 24.453, 6 25.859, 25.859, 25.859, 25.859, 25.859, 25.859, 25.859, 7 27.649, 27.649, 27.649, 27.649, 27.649, 27.649, 27.649, 8 29.893, 29.893, 29.893, 29.893, 29.893, 29.893, 29.893, 9 32.647, 32.647, 32.647, 32.647, 32.647, 32.647, 32.647/ DATA PF403/ 1 35.951, 35.951, 35.951, 35.951, 35.951, 35.951, 35.951, 2 39.830, 39.830, 39.830, 39.830, 39.830, 39.830, 39.830, 3 44.287, 44.287, 44.287, 44.287, 44.287, 44.287, 44.287, 4 49.307, 49.307, 49.307, 49.307, 49.307, 49.307, 49.307, 5 54.859, 54.859, 54.859, 54.859, 54.859, 54.859, 54.859, 6 60.898, 60.898, 60.898, 60.898, 60.898, 60.898, 60.898, 7 67.374, 67.374, 67.374, 67.374, 67.374, 67.374, 67.374, 8 74.245, 74.245, 74.245, 74.245, 74.245, 74.245, 74.245, 9 81.494, 81.494, 81.494, 81.494, 81.494, 81.494, 81.494/ DATA PF404/ 1 89.160, 89.160, 89.160, 89.159, 89.159, 89.159, 89.158, 2 97.379, 97.379, 97.379, 97.378, 97.378, 97.375, 97.371, 3 106.480, 106.480, 106.479, 106.475, 106.472, 106.459, 106.435, 4 117.148, 117.148, 117.141, 117.123, 117.110, 117.056, 116.955, 5 130.762, 130.762, 130.733, 130.664, 130.616, 130.416, 130.052, 6 149.982, 149.981, 149.888, 149.660, 149.506, 148.862, 147.721, 7 179.660, 179.657, 179.389, 178.734, 178.292, 176.466, 173.310, 8 228.024, 228.018, 227.327, 225.646, 224.519, 219.898, 212.084, 9 307.932, 307.917, 306.314, 302.420, 299.823, 289.250, 271.719/ DATA PF405/ 1 437.809, 437.777, 434.385, 426.152, 420.687, 398.576, 362.553, 2 641.858, 641.796, 635.178, 619.132, 608.526, 565.851, 497.404, 3 949.185, 949.072, 937.065, 907.982, 888.831, 812.151, 690.860, 4 1391.783, 1391.591,1371.175,1321.762,1289.334,1160.059, 958.090, 5 14.270, 14.270, 14.270, 14.270, 14.270, 14.270, 14.270, 6 14.631, 14.631, 14.631, 14.631, 14.631, 14.631, 14.631, 7 14.992, 14.992, 14.992, 14.992, 14.992, 14.992, 14.992, 8 15.350, 15.350, 15.350, 15.350, 15.350, 15.350, 15.350, 9 15.707, 15.707, 15.707, 15.707, 15.707, 15.707, 15.707/ DATA PF406/ 1 16.061, 16.061, 16.061, 16.061, 16.061, 16.061, 16.061, 2 16.411, 16.411, 16.411, 16.411, 16.411, 16.411, 16.411, 3 16.759, 16.759, 16.759, 16.759, 16.759, 16.759, 16.759, 4 17.102, 17.102, 17.102, 17.102, 17.102, 17.102, 17.102, 5 17.441, 17.441, 17.441, 17.441, 17.441, 17.441, 17.441, 6 17.776, 17.776, 17.776, 17.776, 17.776, 17.776, 17.776, 7 18.106, 18.106, 18.106, 18.106, 18.106, 18.106, 18.106, 8 18.432, 18.432, 18.432, 18.432, 18.432, 18.432, 18.432, 9 18.753, 18.753, 18.753, 18.753, 18.753, 18.753, 18.753/ DATA PF407/ 1 19.069, 19.069, 19.069, 19.069, 19.069, 19.069, 19.069, 2 19.382, 19.382, 19.382, 19.382, 19.382, 19.382, 19.382, 3 19.691, 19.691, 19.691, 19.691, 19.691, 19.691, 19.691, 4 19.997, 19.997, 19.997, 19.997, 19.997, 19.997, 19.997, 5 20.300, 20.300, 20.300, 20.300, 20.300, 20.300, 20.300, 6 20.602, 20.602, 20.602, 20.602, 20.602, 20.602, 20.602, 7 21.056, 21.056, 21.056, 21.056, 21.056, 21.056, 21.056, 8 21.512, 21.512, 21.512, 21.512, 21.512, 21.512, 21.512, 9 21.979, 21.979, 21.979, 21.979, 21.979, 21.979, 21.979/ DATA PF408/ 1 22.461, 22.461, 22.461, 22.461, 22.461, 22.461, 22.461, 2 22.965, 22.965, 22.965, 22.965, 22.965, 22.965, 22.965, 3 23.500, 23.500, 23.500, 23.500, 23.500, 23.500, 23.500, 4 24.073, 24.073, 24.073, 24.073, 24.073, 24.073, 24.073, 5 24.693, 24.693, 24.693, 24.693, 24.693, 24.693, 24.693, 6 25.368, 25.368, 25.368, 25.368, 25.368, 25.368, 25.368, 7 26.107, 26.107, 26.107, 26.107, 26.107, 26.107, 26.107, 8 27.499, 27.499, 27.499, 27.499, 27.499, 27.499, 27.499, 9 29.119, 29.119, 29.119, 29.119, 29.119, 29.119, 29.119/ DATA PF409/ 1 30.989, 30.989, 30.989, 30.989, 30.989, 30.989, 30.989, 2 33.124, 33.124, 33.124, 33.124, 33.124, 33.124, 33.124, 3 35.525, 35.525, 35.525, 35.525, 35.525, 35.525, 35.525, 4 38.187, 38.187, 38.187, 38.187, 38.187, 38.187, 38.187, 5 41.093, 41.093, 41.093, 41.093, 41.093, 41.093, 41.093, 6 44.218, 44.218, 44.218, 44.218, 44.218, 44.218, 44.218, 7 47.531, 47.531, 47.531, 47.531, 47.531, 47.531, 47.531, 8 50.998, 50.998, 50.998, 50.998, 50.998, 50.998, 50.998, 9 54.581, 54.581, 54.581, 54.581, 54.581, 54.581, 54.581/ DATA PF410/ 1 58.240, 58.240, 58.240, 58.240, 58.240, 58.240, 58.240, 2 61.941, 61.941, 61.941, 61.941, 61.941, 61.941, 61.941, 3 65.657, 65.657, 65.657, 65.657, 65.657, 65.657, 65.657, 4 69.379, 69.379, 69.379, 69.379, 69.379, 69.379, 69.379, 5 73.126, 73.126, 73.126, 73.126, 73.126, 73.126, 73.126, 6 76.978, 76.978, 76.978, 76.978, 76.977, 76.977, 76.977, 7 81.117, 81.117, 81.117, 81.117, 81.117, 81.117, 81.114, 8 85.922, 85.921, 85.921, 85.921, 85.920, 85.919, 85.903, 9 92.113, 92.113, 92.112, 92.111, 92.108, 92.103, 92.042/ DATA PF411/ 1 101.024, 101.023, 101.021, 101.016, 101.006, 100.987, 100.785, 2 114.980, 114.978, 114.970, 114.956, 114.925, 114.869, 114.276, 3 137.804, 137.798, 137.778, 137.739, 137.655, 137.505, 135.955, 4 175.347, 175.331, 175.283, 175.190, 174.988, 174.630, 170.978, 5 235.900, 235.866, 235.759, 235.555, 235.113, 234.335, 226.500, 6 330.304, 330.235, 330.019, 329.607, 328.721, 327.165, 311.692, 7 10.200, 10.200, 10.200, 10.200, 10.200, 10.200, 10.200, 8 10.448, 10.448, 10.448, 10.448, 10.448, 10.448, 10.448, 9 10.698, 10.698, 10.698, 10.698, 10.698, 10.698, 10.698/ DATA PF412/ 1 10.949, 10.949, 10.949, 10.949, 10.949, 10.949, 10.949, 2 11.201, 11.201, 11.201, 11.201, 11.201, 11.201, 11.201, 3 11.453, 11.453, 11.453, 11.453, 11.453, 11.453, 11.453, 4 11.705, 11.705, 11.705, 11.705, 11.705, 11.705, 11.705, 5 11.956, 11.956, 11.956, 11.956, 11.956, 11.956, 11.956, 6 12.207, 12.207, 12.207, 12.207, 12.207, 12.207, 12.207, 7 12.456, 12.456, 12.456, 12.456, 12.456, 12.456, 12.456, 8 12.704, 12.704, 12.704, 12.704, 12.704, 12.704, 12.704, 9 12.951, 12.951, 12.951, 12.951, 12.951, 12.951, 12.951/ DATA PF413/ 1 13.195, 13.195, 13.195, 13.195, 13.195, 13.195, 13.195, 2 13.437, 13.437, 13.437, 13.437, 13.437, 13.437, 13.437, 3 13.676, 13.676, 13.676, 13.676, 13.676, 13.676, 13.676, 4 13.914, 13.914, 13.914, 13.914, 13.914, 13.914, 13.914, 5 14.149, 14.149, 14.149, 14.149, 14.149, 14.149, 14.149, 6 14.382, 14.382, 14.382, 14.382, 14.382, 14.382, 14.382, 7 14.613, 14.613, 14.613, 14.613, 14.613, 14.613, 14.613, 8 14.843, 14.843, 14.843, 14.843, 14.843, 14.843, 14.843, 9 15.185, 15.185, 15.185, 15.185, 15.185, 15.185, 15.185/ DATA PF414/ 1 15.525, 15.525, 15.525, 15.525, 15.525, 15.525, 15.525, 2 15.865, 15.865, 15.865, 15.865, 15.865, 15.865, 15.865, 3 16.208, 16.208, 16.208, 16.208, 16.208, 16.208, 16.208, 4 16.556, 16.556, 16.556, 16.556, 16.556, 16.556, 16.556, 5 16.910, 16.910, 16.910, 16.910, 16.910, 16.910, 16.910, 6 17.274, 17.274, 17.274, 17.274, 17.274, 17.274, 17.274, 7 17.649, 17.649, 17.649, 17.649, 17.649, 17.649, 17.649, 8 18.039, 18.039, 18.039, 18.039, 18.039, 18.039, 18.039, 9 18.446, 18.446, 18.446, 18.446, 18.446, 18.446, 18.446/ DATA PF415/ 1 19.165, 19.165, 19.165, 19.165, 19.165, 19.165, 19.165, 2 19.942, 19.942, 19.942, 19.942, 19.942, 19.942, 19.942, 3 20.780, 20.780, 20.780, 20.780, 20.780, 20.780, 20.780, 4 21.679, 21.679, 21.679, 21.679, 21.679, 21.679, 21.679, 5 22.635, 22.635, 22.635, 22.635, 22.635, 22.635, 22.635, 6 23.641, 23.641, 23.641, 23.641, 23.641, 23.641, 23.641, 7 24.689, 24.689, 24.689, 24.689, 24.689, 24.689, 24.689, 8 25.767, 25.767, 25.767, 25.767, 25.767, 25.767, 25.767, 9 26.865, 26.865, 26.865, 26.865, 26.865, 26.865, 26.865/ DATA PF416/ 1 27.971, 27.971, 27.971, 27.971, 27.971, 27.971, 27.971, 2 29.072, 29.072, 29.072, 29.072, 29.072, 29.072, 29.072, 3 30.159, 30.159, 30.159, 30.159, 30.159, 30.159, 30.159, 4 31.222, 31.222, 31.222, 31.222, 31.222, 31.222, 31.222, 5 32.255, 32.255, 32.255, 32.255, 32.255, 32.255, 32.255, 6 33.255, 33.255, 33.255, 33.255, 33.255, 33.255, 33.255, 7 34.228, 34.228, 34.228, 34.228, 34.228, 34.228, 34.228, 8 35.198, 35.198, 35.198, 35.198, 35.198, 35.198, 35.198, 9 36.217, 36.217, 36.217, 36.217, 36.217, 36.217, 36.217/ DATA PF417/ 1 37.388, 37.388, 37.388, 37.388, 37.388, 37.388, 37.388, 2 38.889, 38.889, 38.889, 38.889, 38.889, 38.889, 38.889, 3 41.016, 41.016, 41.016, 41.016, 41.016, 41.016, 41.016, 4 44.230, 44.230, 44.230, 44.230, 44.230, 44.229, 44.228, 5 49.242, 49.242, 49.242, 49.242, 49.242, 49.241, 49.238, 6 57.126, 57.126, 57.126, 57.126, 57.126, 57.124, 57.115, 7 69.461, 69.461, 69.461, 69.461, 69.461, 69.455, 69.431, 8 88.474, 88.474, 88.474, 88.474, 88.474, 88.459, 88.400, 9 5.695, 5.695, 5.695, 5.695, 5.695, 5.695, 5.695/ DATA PF418/ 1 5.794, 5.794, 5.794, 5.794, 5.794, 5.794, 5.794, 2 5.894, 5.894, 5.894, 5.894, 5.894, 5.894, 5.894, 3 5.995, 5.995, 5.995, 5.995, 5.995, 5.995, 5.995, 4 6.096, 6.096, 6.096, 6.096, 6.096, 6.096, 6.096, 5 6.198, 6.198, 6.198, 6.198, 6.198, 6.198, 6.198, 6 6.299, 6.299, 6.299, 6.299, 6.299, 6.299, 6.299, 7 6.401, 6.401, 6.401, 6.401, 6.401, 6.401, 6.401, 8 6.502, 6.502, 6.502, 6.502, 6.502, 6.502, 6.502, 9 6.602, 6.602, 6.602, 6.602, 6.602, 6.602, 6.602/ DATA PF419/ 1 6.702, 6.702, 6.702, 6.702, 6.702, 6.702, 6.702, 2 6.801, 6.801, 6.801, 6.801, 6.801, 6.801, 6.801, 3 6.899, 6.899, 6.899, 6.899, 6.899, 6.899, 6.899, 4 6.995, 6.995, 6.995, 6.995, 6.995, 6.995, 6.995, 5 7.090, 7.090, 7.090, 7.090, 7.090, 7.090, 7.090, 6 7.184, 7.184, 7.184, 7.184, 7.184, 7.184, 7.184, 7 7.276, 7.276, 7.276, 7.276, 7.276, 7.276, 7.276, 8 7.366, 7.366, 7.366, 7.366, 7.366, 7.366, 7.366, 9 7.455, 7.455, 7.455, 7.455, 7.455, 7.455, 7.455/ DATA PF420/ 1 7.542, 7.542, 7.542, 7.542, 7.542, 7.542, 7.542, 2 7.669, 7.669, 7.669, 7.669, 7.669, 7.669, 7.669, 3 7.791, 7.791, 7.791, 7.791, 7.791, 7.791, 7.791, 4 7.909, 7.909, 7.909, 7.909, 7.909, 7.909, 7.909, 5 8.023, 8.023, 8.023, 8.023, 8.023, 8.023, 8.023, 6 8.131, 8.131, 8.131, 8.131, 8.131, 8.131, 8.131, 7 8.236, 8.236, 8.236, 8.236, 8.236, 8.236, 8.236, 8 8.335, 8.335, 8.335, 8.335, 8.335, 8.335, 8.335, 9 8.430, 8.430, 8.430, 8.430, 8.430, 8.430, 8.430/ DATA PF421/ 1 8.521, 8.521, 8.521, 8.521, 8.521, 8.521, 8.521, 2 8.607, 8.607, 8.607, 8.607, 8.607, 8.607, 8.607, 3 8.741, 8.741, 8.741, 8.741, 8.741, 8.741, 8.741, 4 8.864, 8.864, 8.864, 8.864, 8.864, 8.864, 8.864, 5 8.977, 8.977, 8.977, 8.977, 8.977, 8.977, 8.977, 6 9.079, 9.079, 9.079, 9.079, 9.079, 9.079, 9.079, 7 9.172, 9.172, 9.172, 9.172, 9.172, 9.172, 9.172, 8 9.256, 9.256, 9.256, 9.256, 9.256, 9.256, 9.256, 9 9.332, 9.332, 9.332, 9.332, 9.332, 9.332, 9.332/ DATA PF422/ 1 9.401, 9.401, 9.401, 9.401, 9.401, 9.401, 9.401, 2 9.463, 9.463, 9.463, 9.463, 9.463, 9.463, 9.463, 3 9.519, 9.519, 9.519, 9.519, 9.519, 9.519, 9.519, 4 9.570, 9.570, 9.570, 9.570, 9.570, 9.570, 9.570, 5 9.615, 9.615, 9.615, 9.615, 9.615, 9.615, 9.615, 6 9.656, 9.656, 9.656, 9.656, 9.656, 9.656, 9.656, 7 9.693, 9.693, 9.693, 9.693, 9.693, 9.693, 9.693, 8 9.729, 9.729, 9.729, 9.729, 9.729, 9.729, 9.729, 9 9.767, 9.767, 9.767, 9.767, 9.767, 9.767, 9.767/ DATA PF423/ 1 9.817, 9.817, 9.817, 9.817, 9.817, 9.817, 9.817, 2 9.899, 9.899, 9.899, 9.899, 9.899, 9.899, 9.899, 3 10.047, 10.047, 10.047, 10.047, 10.047, 10.047, 10.047, 4 10.319, 10.319, 10.319, 10.319, 10.319, 10.319, 10.319, 5 10.801, 10.801, 10.801, 10.801, 10.801, 10.801, 10.801, 6 11.615, 11.615, 11.615, 11.615, 11.615, 11.615, 11.615, 7 12.918, 12.918, 12.918, 12.918, 12.918, 12.918, 12.918, 8 14.914, 14.914, 14.914, 14.914, 14.914, 14.914, 14.914, 9 17.857, 17.857, 17.857, 17.857, 17.857, 17.857, 17.857/ DATA PF424/ 1 22.076, 22.076, 22.076, 22.076, 22.076, 22.076, 22.076, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF425/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF426/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF427/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF428/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF429/ 1 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 2 1.003, 1.003, 1.003, 1.003, 1.003, 1.003, 1.003, 3 1.008, 1.008, 1.008, 1.008, 1.008, 1.008, 1.008, 4 1.021, 1.021, 1.021, 1.021, 1.021, 1.021, 1.021, 5 1.049, 1.049, 1.049, 1.049, 1.049, 1.049, 1.049, 6 1.107, 1.107, 1.107, 1.107, 1.107, 1.107, 1.107, 7 1.217, 1.217, 1.217, 1.217, 1.217, 1.217, 1.217, 8 1.413, 1.413, 1.413, 1.413, 1.413, 1.413, 1.413, 9 1.748, 1.748, 1.748, 1.748, 1.748, 1.748, 1.748/ DATA PF430/ 1 2.305, 2.305, 2.305, 2.305, 2.305, 2.305, 2.305, 2 3.213, 3.213, 3.213, 3.213, 3.213, 3.213, 3.213, 3 4.669, 4.669, 4.669, 4.669, 4.669, 4.669, 4.669, 4 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 5 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 6 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 7 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 8 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 9 4.000, 4.000, 4.000, 4.000, 4.000, 4.000, 4.000/ DATA PF431/ 1 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 2 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 3 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4.001, 4 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 5 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 4.002, 6 4.003, 4.003, 4.003, 4.003, 4.003, 4.003, 4.003, 7 4.004, 4.004, 4.004, 4.004, 4.004, 4.004, 4.004, 8 4.005, 4.005, 4.005, 4.005, 4.005, 4.005, 4.005, 9 4.007, 4.007, 4.007, 4.007, 4.007, 4.007, 4.007/ DATA PF432/ 1 4.009, 4.009, 4.009, 4.009, 4.009, 4.009, 4.009, 2 4.011, 4.011, 4.011, 4.011, 4.011, 4.011, 4.011, 3 4.014, 4.014, 4.014, 4.014, 4.014, 4.014, 4.014, 4 4.018, 4.018, 4.018, 4.018, 4.018, 4.018, 4.018, 5 4.022, 4.022, 4.022, 4.022, 4.022, 4.022, 4.022, 6 4.030, 4.030, 4.030, 4.030, 4.030, 4.030, 4.030, 7 4.040, 4.040, 4.040, 4.040, 4.040, 4.040, 4.040, 8 4.051, 4.051, 4.051, 4.051, 4.051, 4.051, 4.051, 9 4.066, 4.066, 4.066, 4.066, 4.066, 4.066, 4.066/ DATA PF433/ 1 4.083, 4.083, 4.083, 4.083, 4.083, 4.083, 4.083, 2 4.102, 4.102, 4.102, 4.102, 4.102, 4.102, 4.102, 3 4.125, 4.125, 4.125, 4.125, 4.125, 4.125, 4.125, 4 4.150, 4.150, 4.150, 4.150, 4.150, 4.150, 4.150, 5 4.178, 4.178, 4.178, 4.178, 4.178, 4.178, 4.178, 6 4.209, 4.209, 4.209, 4.209, 4.209, 4.209, 4.209, 7 4.268, 4.268, 4.268, 4.268, 4.268, 4.268, 4.268, 8 4.333, 4.333, 4.333, 4.333, 4.333, 4.333, 4.333, 9 4.405, 4.405, 4.405, 4.405, 4.405, 4.405, 4.405/ DATA PF434/ 1 4.482, 4.482, 4.482, 4.482, 4.482, 4.482, 4.482, 2 4.562, 4.562, 4.562, 4.562, 4.562, 4.562, 4.562, 3 4.645, 4.645, 4.645, 4.645, 4.645, 4.645, 4.645, 4 4.730, 4.730, 4.730, 4.730, 4.730, 4.730, 4.730, 5 4.815, 4.815, 4.815, 4.815, 4.815, 4.815, 4.815, 6 4.898, 4.898, 4.898, 4.898, 4.898, 4.898, 4.898, 7 4.980, 4.980, 4.980, 4.980, 4.980, 4.980, 4.980, 8 5.059, 5.059, 5.059, 5.059, 5.059, 5.059, 5.059, 9 5.135, 5.135, 5.135, 5.135, 5.135, 5.135, 5.135/ DATA PF435/ 1 5.207, 5.207, 5.207, 5.207, 5.207, 5.207, 5.207, 2 5.276, 5.276, 5.276, 5.276, 5.276, 5.276, 5.276, 3 5.343, 5.343, 5.343, 5.343, 5.343, 5.343, 5.343, 4 5.409, 5.409, 5.409, 5.409, 5.409, 5.409, 5.409, 5 5.481, 5.481, 5.481, 5.481, 5.481, 5.481, 5.481, 6 5.571, 5.571, 5.571, 5.571, 5.571, 5.571, 5.571, 7 5.698, 5.698, 5.698, 5.698, 5.698, 5.698, 5.698, 8 5.899, 5.899, 5.899, 5.899, 5.899, 5.899, 5.899, 9 6.225, 6.225, 6.225, 6.225, 6.225, 6.225, 6.225/ DATA PF436/ 1 6.758, 6.758, 6.758, 6.758, 6.758, 6.758, 6.758, 2 7.615, 7.615, 7.615, 7.615, 7.615, 7.615, 7.615, 3 8.967, 8.967, 8.967, 8.967, 8.967, 8.967, 8.967, 4 11.068, 11.068, 11.068, 11.068, 11.068, 11.068, 11.068, 5 14.299, 14.299, 14.299, 14.299, 14.299, 14.299, 14.299, 6 19.784, 19.784, 19.784, 19.784, 19.784, 19.784, 19.784, 7 20.312, 20.312, 20.312, 20.312, 20.312, 20.312, 20.312, 8 20.859, 20.859, 20.859, 20.859, 20.859, 20.859, 20.859, 9 21.426, 21.426, 21.426, 21.426, 21.426, 21.426, 21.426/ DATA PF437/ 1 22.013, 22.013, 22.013, 22.013, 22.013, 22.013, 22.013, 2 22.621, 22.621, 22.621, 22.621, 22.621, 22.621, 22.621, 3 23.249, 23.249, 23.249, 23.249, 23.249, 23.249, 23.249, 4 23.898, 23.898, 23.898, 23.898, 23.898, 23.898, 23.898, 5 24.568, 24.568, 24.568, 24.568, 24.568, 24.568, 24.568, 6 25.260, 25.260, 25.260, 25.260, 25.260, 25.260, 25.260, 7 25.974, 25.974, 25.974, 25.974, 25.974, 25.974, 25.974, 8 26.711, 26.711, 26.711, 26.711, 26.711, 26.711, 26.711, 9 27.472, 27.472, 27.472, 27.472, 27.472, 27.472, 27.472/ DATA PF438/ 1 28.259, 28.259, 28.259, 28.259, 28.259, 28.259, 28.258, 2 29.073, 29.073, 29.073, 29.073, 29.073, 29.073, 29.071, 3 29.915, 29.915, 29.915, 29.915, 29.915, 29.915, 29.913, 4 30.790, 30.790, 30.790, 30.790, 30.790, 30.790, 30.786, 5 31.699, 31.699, 31.699, 31.699, 31.699, 31.699, 31.693, 6 32.647, 32.647, 32.647, 32.647, 32.647, 32.647, 32.637, 7 33.639, 33.639, 33.639, 33.639, 33.639, 33.638, 33.623, 8 35.222, 35.222, 35.222, 35.221, 35.221, 35.220, 35.190, 9 36.940, 36.940, 36.940, 36.939, 36.938, 36.935, 36.879/ DATA PF439/ 1 38.827, 38.826, 38.825, 38.823, 38.821, 38.813, 38.713, 2 40.923, 40.921, 40.918, 40.912, 40.908, 40.891, 40.717, 3 43.283, 43.279, 43.270, 43.257, 43.247, 43.212, 42.919, 4 45.978, 45.969, 45.948, 45.920, 45.896, 45.826, 45.349, 5 49.103, 49.083, 49.038, 48.977, 48.929, 48.794, 48.039, 6 52.786, 52.745, 52.651, 52.526, 52.431, 52.184, 51.021, 7 57.198, 57.116, 56.930, 56.686, 56.507, 56.070, 54.326, 8 62.566, 62.410, 62.058, 61.603, 61.280, 60.537, 57.983, 9 74.490, 74.075, 73.146, 71.974, 71.179, 69.513, 64.926/ DATA PF440/ 1 91.899, 90.906, 88.704, 85.980, 84.201, 80.776, 73.002, 2 117.605, 115.444, 110.690, 104.914, 101.270, 94.752, 82.253, 3 155.353, 151.030, 141.591, 130.304, 123.396, 111.822, 92.670, 4 209.746, 201.726, 184.332, 163.824, 151.609, 132.290, 104.188, 5 285.982, 272.070, 242.077, 207.158, 186.853, 156.342, 116.697, 6 389.417, 366.688, 317.945, 261.831, 229.891, 184.022, 130.048, 7 525.025, 489.822, 414.682, 329.040, 281.211, 215.225, 144.061, 8 696.846, 644.856, 534.351, 409.514, 340.964, 249.700, 158.543, 9 907.519, 833.923, 678.082, 503.418, 408.937, 287.064, 173.295/ DATA PF441/ 1 1157.969, 1057.653, 845.941, 610.325, 484.564, 326.835, 188.123, 2 1447.303, 1315.095,1036.905, 729.245, 566.971, 368.460, 202.848, 3 1772.887, 1603.800,1248.955, 858.708, 655.040, 411.352, 217.310, 4 2130.591, 1920.048,1479.247, 996.877, 747.490, 454.921, 231.373, 5 2515.138, 2259.153,1724.339,1141.683, 842.962, 498.602, 244.925, 6 2920.507, 2615.817,1980.439,1290.955, 940.092, 541.878, 257.878, 7 3340.336, 2984.477,2243.638,1442.538,1037.576, 584.289, 270.167, 8 3768.277, 3359.616,2510.115,1594.395,1134.221, 625.449, 281.750, 9 4198.305, 3736.013,2776.304,1744.674,1228.977, 665.042, 292.603/ DATA PF442/ 1 4624.931, 4108.937,3039.010,1891.763,1320.956, 702.826, 302.718, 2 5043.356, 4474.264,3295.479,2034.311,1409.440, 738.624, 312.101, 3 5449.547, 4828.543,3543.436,2171.235,1493.876, 772.324, 320.766, 4 5840.258, 5169.008,3781.086,2301.713,1573.868, 803.865, 328.740, 5 6213.005, 5493.558,4007.089,2425.162,1649.158, 833.233, 336.051, 6 6566.016, 5800.704,4220.523,2541.218,1719.610, 860.449, 342.734, 7 6898.153, 6089.505,4420.834,2649.700,1785.194, 885.567, 348.827, 8 16.529, 16.529, 16.529, 16.529, 16.529, 16.529, 16.529, 9 17.012, 17.012, 17.012, 17.012, 17.012, 17.012, 17.012/ DATA PF443/ 1 17.518, 17.518, 17.518, 17.518, 17.518, 17.518, 17.518, 2 18.047, 18.047, 18.047, 18.047, 18.047, 18.047, 18.047, 3 18.599, 18.599, 18.599, 18.599, 18.599, 18.599, 18.599, 4 19.175, 19.175, 19.175, 19.175, 19.175, 19.175, 19.175, 5 19.774, 19.774, 19.774, 19.774, 19.774, 19.774, 19.774, 6 20.398, 20.398, 20.398, 20.398, 20.398, 20.398, 20.398, 7 21.046, 21.046, 21.046, 21.046, 21.046, 21.046, 21.046, 8 21.719, 21.719, 21.719, 21.719, 21.719, 21.719, 21.719, 9 22.417, 22.417, 22.417, 22.417, 22.417, 22.417, 22.417/ DATA PF444/ 1 23.140, 23.140, 23.140, 23.140, 23.140, 23.140, 23.140, 2 23.890, 23.890, 23.890, 23.890, 23.890, 23.890, 23.890, 3 24.666, 24.666, 24.666, 24.666, 24.666, 24.666, 24.666, 4 25.470, 25.470, 25.470, 25.470, 25.470, 25.470, 25.470, 5 26.302, 26.302, 26.302, 26.302, 26.302, 26.302, 26.302, 6 27.163, 27.163, 27.163, 27.163, 27.163, 27.163, 27.163, 7 28.055, 28.055, 28.055, 28.055, 28.055, 28.055, 28.055, 8 28.980, 28.980, 28.980, 28.980, 28.980, 28.980, 28.980, 9 29.938, 29.938, 29.938, 29.938, 29.938, 29.938, 29.938/ DATA PF445/ 1 31.442, 31.442, 31.442, 31.442, 31.442, 31.442, 31.442, 2 33.035, 33.035, 33.035, 33.035, 33.035, 33.035, 33.035, 3 34.726, 34.726, 34.726, 34.726, 34.726, 34.726, 34.726, 4 36.525, 36.525, 36.525, 36.525, 36.525, 36.525, 36.525, 5 38.446, 38.446, 38.446, 38.446, 38.446, 38.446, 38.446, 6 40.502, 40.502, 40.502, 40.502, 40.502, 40.502, 40.502, 7 42.710, 42.710, 42.710, 42.710, 42.710, 42.710, 42.710, 8 45.091, 45.091, 45.091, 45.091, 45.091, 45.091, 45.091, 9 47.665, 47.665, 47.665, 47.665, 47.665, 47.665, 47.665/ DATA PF446/ 1 50.459, 50.459, 50.459, 50.459, 50.459, 50.459, 50.459, 2 55.690, 55.690, 55.690, 55.690, 55.690, 55.689, 55.687, 3 61.801, 61.801, 61.801, 61.801, 61.800, 61.797, 61.788, 4 69.059, 69.059, 69.058, 69.057, 69.050, 69.036, 69.000, 5 77.874, 77.873, 77.870, 77.866, 77.834, 77.779, 77.653, 6 88.917, 88.910, 88.901, 88.884, 88.767, 88.577, 88.191, 7 103.302, 103.280, 103.251, 103.195, 102.823, 102.243, 101.201, 8 122.872, 122.807, 122.722, 122.559, 121.516, 119.950, 117.419, 9 150.532, 150.362, 150.142, 149.725, 147.107, 143.313, 137.720/ DATA PF447/ 1 190.603, 190.204, 189.690, 188.723, 182.779, 174.429, 163.082, 2 249.049, 248.195, 247.100, 245.055, 232.710, 215.841, 194.510, 3 333.482, 331.801, 329.651, 325.666, 301.984, 270.411, 232.947, 4 452.844, 449.767, 445.846, 438.623, 396.300, 341.095, 279.177, 5 616.752, 611.480, 604.779, 592.508, 521.497, 430.657, 333.727, 6 834.601, 826.081, 815.279, 795.598, 682.972, 541.368, 396.801, 7 1114.555, 1101.488,1084.955,1054.971, 885.080, 674.737, 468.247, 8 1462.625, 1443.495,1419.335,1375.699,1130.626, 831.330, 547.551, 9 1881.966, 1855.096,1821.218,1760.252,1420.534,1010.680, 633.882/ DATA PF448/ 1 2372.506, 2336.133,2290.344,2208.208,1753.721,1211.323, 726.144, 2 2930.938, 2883.298,2823.402,2716.274,2127.186,1430.914, 823.062, 3 3551.027, 3490.434,3414.342,3278.596,2536.280,1666.416, 923.259, 4 4224.162, 4149.082,4054.899,3887.262,2975.083,1914.330,1025.338, 5 4940.042, 4849.157,4735.253,4532.930,3436.855,2170.923,1127.946, 6 5687.411, 5579.654,5444.719,5205.476,3914.474,2432.440,1229.835, 7 6454.747, 6329.332,6172.401,5894.611,4400.839,2695.291,1329.894, 8 7230.861, 7087.282,6907.743,6590.391,4889.205,2956.181,1427.175, 9 8005.359, 7843.387,7640.966,7283.632,5373.430,3212.212,1520.902/ DATA PF449/ 1 17.797, 17.797, 17.797, 17.797, 17.797, 17.797, 17.797, 2 18.083, 18.083, 18.083, 18.083, 18.083, 18.083, 18.083, 3 18.368, 18.368, 18.368, 18.368, 18.368, 18.368, 18.368, 4 18.650, 18.650, 18.650, 18.650, 18.650, 18.650, 18.650, 5 18.930, 18.930, 18.930, 18.930, 18.930, 18.930, 18.930, 6 19.207, 19.207, 19.207, 19.207, 19.207, 19.207, 19.207, 7 19.481, 19.481, 19.481, 19.481, 19.481, 19.481, 19.481, 8 19.752, 19.752, 19.752, 19.752, 19.752, 19.752, 19.752, 9 20.021, 20.021, 20.021, 20.021, 20.021, 20.021, 20.021/ DATA PF450/ 1 20.286, 20.286, 20.286, 20.286, 20.286, 20.286, 20.286, 2 20.549, 20.549, 20.549, 20.549, 20.549, 20.549, 20.549, 3 20.809, 20.809, 20.809, 20.809, 20.809, 20.809, 20.809, 4 21.068, 21.068, 21.068, 21.068, 21.068, 21.068, 21.068, 5 21.326, 21.326, 21.326, 21.326, 21.326, 21.326, 21.326, 6 21.583, 21.583, 21.583, 21.583, 21.583, 21.583, 21.583, 7 21.842, 21.842, 21.842, 21.842, 21.842, 21.842, 21.842, 8 22.102, 22.102, 22.102, 22.102, 22.102, 22.102, 22.102, 9 22.366, 22.366, 22.366, 22.366, 22.366, 22.366, 22.366/ DATA PF451/ 1 22.634, 22.634, 22.634, 22.634, 22.634, 22.634, 22.634, 2 22.909, 22.909, 22.909, 22.909, 22.909, 22.909, 22.909, 3 23.339, 23.339, 23.339, 23.339, 23.339, 23.339, 23.339, 4 23.795, 23.795, 23.795, 23.795, 23.795, 23.795, 23.795, 5 24.285, 24.285, 24.285, 24.285, 24.285, 24.285, 24.285, 6 24.817, 24.817, 24.817, 24.817, 24.817, 24.817, 24.817, 7 25.401, 25.401, 25.401, 25.401, 25.401, 25.401, 25.401, 8 26.044, 26.044, 26.044, 26.044, 26.044, 26.044, 26.044, 9 26.756, 26.756, 26.756, 26.756, 26.756, 26.756, 26.756/ DATA PF452/ 1 27.546, 27.546, 27.546, 27.546, 27.546, 27.546, 27.546, 2 28.421, 28.421, 28.421, 28.421, 28.421, 28.421, 28.421, 3 29.390, 29.390, 29.390, 29.390, 29.390, 29.390, 29.390, 4 31.236, 31.236, 31.236, 31.236, 31.236, 31.236, 31.236, 5 33.407, 33.407, 33.407, 33.407, 33.407, 33.407, 33.407, 6 35.948, 35.948, 35.948, 35.948, 35.948, 35.948, 35.948, 7 38.921, 38.921, 38.921, 38.921, 38.921, 38.921, 38.921, 8 42.415, 42.415, 42.415, 42.415, 42.415, 42.415, 42.415, 9 46.561, 46.561, 46.561, 46.561, 46.561, 46.561, 46.560/ DATA PF453/ 1 51.557, 51.557, 51.557, 51.556, 51.556, 51.556, 51.555, 2 57.701, 57.701, 57.700, 57.699, 57.699, 57.696, 57.691, 3 65.452, 65.452, 65.450, 65.445, 65.444, 65.429, 65.406, 4 75.543, 75.541, 75.533, 75.512, 75.506, 75.445, 75.351, 5 89.176, 89.171, 89.139, 89.060, 89.038, 88.820, 88.504, 6 108.367, 108.353, 108.247, 107.992, 107.918, 107.241, 106.307, 7 136.433, 136.392, 136.087, 135.358, 135.151, 133.290, 130.833, 8 178.598, 178.491, 177.710, 175.850, 175.329, 170.749, 164.928, 9 242.584, 242.337, 240.530, 236.249, 235.060, 224.835, 212.281/ DATA PF454/ 1 339.003, 338.480, 334.662, 325.661, 323.183, 302.265, 277.352, 2 481.306, 480.286, 472.853, 455.397, 450.628, 411.038, 365.145, 3 685.190, 683.339, 669.880, 638.377, 629.830, 559.923, 480.809, 4 967.419, 964.272, 941.422, 888.106, 873.729, 757.688, 629.139, 5 1344.232, 1339.181,1302.561,1217.344,1194.491,1012.195, 814.050, 6 1829.603, 1821.902,1766.146,1636.714,1602.174,1329.519,1038.122, 7 2433.646, 2422.432,2341.335,2153.481,2103.569,1713.232,1302.284, 8 3161.450, 3145.774,3032.527,2770.706,2701.411,2163.980,1605.683, 9 4012.485, 3991.357,3838.855,3486.883,3394.048,2679.379,1945.741/ DATA PF455/ 1 4980.635, 4953.066,4754.242,4296.060,4175.583,3254.227,2318.375, 2 6054.767, 6019.822,5767.974,5188.396,5036.416,3880.956,2718.328, 3 17.424, 17.424, 17.424, 17.424, 17.424, 17.424, 17.424, 4 17.662, 17.662, 17.662, 17.662, 17.662, 17.662, 17.662, 5 17.897, 17.897, 17.897, 17.897, 17.897, 17.897, 17.897, 6 18.128, 18.128, 18.128, 18.128, 18.128, 18.128, 18.128, 7 18.355, 18.355, 18.355, 18.355, 18.355, 18.355, 18.355, 8 18.577, 18.577, 18.577, 18.577, 18.577, 18.577, 18.577, 9 18.795, 18.795, 18.795, 18.795, 18.795, 18.795, 18.795/ DATA PF456/ 1 19.009, 19.009, 19.009, 19.009, 19.009, 19.009, 19.009, 2 19.218, 19.218, 19.218, 19.218, 19.218, 19.218, 19.218, 3 19.422, 19.422, 19.422, 19.422, 19.422, 19.422, 19.422, 4 19.621, 19.621, 19.621, 19.621, 19.621, 19.621, 19.621, 5 19.815, 19.815, 19.815, 19.815, 19.815, 19.815, 19.815, 6 20.006, 20.006, 20.006, 20.006, 20.006, 20.006, 20.006, 7 20.191, 20.191, 20.191, 20.191, 20.191, 20.191, 20.191, 8 20.373, 20.373, 20.373, 20.373, 20.373, 20.373, 20.373, 9 20.552, 20.552, 20.552, 20.552, 20.552, 20.552, 20.552/ DATA PF457/ 1 20.727, 20.727, 20.727, 20.727, 20.727, 20.727, 20.727, 2 20.900, 20.900, 20.900, 20.900, 20.900, 20.900, 20.900, 3 21.072, 21.072, 21.072, 21.072, 21.072, 21.072, 21.072, 4 21.244, 21.244, 21.244, 21.244, 21.244, 21.244, 21.244, 5 21.504, 21.504, 21.504, 21.504, 21.504, 21.504, 21.504, 6 21.773, 21.773, 21.773, 21.773, 21.773, 21.773, 21.773, 7 22.058, 22.058, 22.058, 22.058, 22.058, 22.058, 22.058, 8 22.368, 22.368, 22.368, 22.368, 22.368, 22.368, 22.368, 9 22.713, 22.713, 22.713, 22.713, 22.713, 22.713, 22.713/ DATA PF458/ 1 23.105, 23.105, 23.105, 23.105, 23.105, 23.105, 23.105, 2 23.558, 23.558, 23.558, 23.558, 23.558, 23.558, 23.558, 3 24.086, 24.086, 24.086, 24.086, 24.086, 24.086, 24.086, 4 24.705, 24.705, 24.705, 24.705, 24.705, 24.705, 24.705, 5 25.430, 25.430, 25.430, 25.430, 25.430, 25.430, 25.430, 6 26.918, 26.918, 26.918, 26.918, 26.918, 26.918, 26.918, 7 28.818, 28.818, 28.818, 28.818, 28.818, 28.818, 28.818, 8 31.194, 31.194, 31.194, 31.194, 31.194, 31.194, 31.194, 9 34.098, 34.098, 34.098, 34.098, 34.098, 34.098, 34.098/ DATA PF459/ 1 37.567, 37.567, 37.567, 37.567, 37.567, 37.567, 37.567, 2 41.625, 41.625, 41.625, 41.625, 41.625, 41.625, 41.625, 3 46.284, 46.284, 46.284, 46.284, 46.284, 46.284, 46.284, 4 51.552, 51.552, 51.552, 51.552, 51.552, 51.552, 51.552, 5 57.449, 57.449, 57.449, 57.449, 57.449, 57.449, 57.449, 6 64.032, 64.032, 64.032, 64.032, 64.032, 64.032, 64.032, 7 71.428, 71.428, 71.428, 71.428, 71.428, 71.427, 71.427, 8 79.892, 79.892, 79.891, 79.891, 79.890, 79.887, 79.883, 9 89.888, 89.888, 89.887, 89.884, 89.879, 89.866, 89.847/ DATA PF460/ 1 102.237, 102.235, 102.230, 102.217, 102.196, 102.144, 102.070, 2 118.341, 118.335, 118.316, 118.269, 118.194, 118.012, 117.764, 3 140.547, 140.529, 140.469, 140.323, 140.089, 139.532, 138.801, 4 172.630, 172.579, 172.413, 172.007, 171.365, 169.857, 167.944, 5 220.347, 220.221, 219.808, 218.803, 217.222, 213.553, 209.047, 6 291.930, 291.647, 290.716, 288.458, 284.932, 276.830, 267.157, 7 398.315, 397.730, 395.812, 391.168, 383.959, 367.544, 348.433, 8 552.936, 551.819, 548.166, 539.335, 525.699, 494.899, 459.835, 9 770.983, 768.998, 762.510, 746.852, 722.784, 668.816, 608.588/ DATA PF461/ 1 1068.169, 1064.853,1054.026,1027.940, 988.005, 899.037, 801.493, 2 1459.168, 1453.931,1436.844,1395.729,1333.019,1194.112,1044.197, 3 1956.016, 1948.144,1922.483,1860.811,1767.051,1560.429,1340.543, 4 2566.728, 2555.409,2518.538,2430.020,2295.835,2001.477,1692.115, 5 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 7 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 8 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 9 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000/ DATA PF462/ 1 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 2 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 3 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 4 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 5 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 7 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 8 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 9 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000/ DATA PF463/ 1 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 2 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 3 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 4 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 5 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 6 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 7 6.002, 6.002, 6.002, 6.002, 6.002, 6.002, 6.002, 8 6.004, 6.004, 6.004, 6.004, 6.004, 6.004, 6.004, 9 6.008, 6.008, 6.008, 6.008, 6.008, 6.008, 6.008/ DATA PF464/ 1 6.014, 6.014, 6.014, 6.014, 6.014, 6.014, 6.014, 2 6.024, 6.024, 6.024, 6.024, 6.024, 6.024, 6.024, 3 6.042, 6.042, 6.042, 6.042, 6.042, 6.042, 6.042, 4 6.068, 6.068, 6.068, 6.068, 6.068, 6.068, 6.068, 5 6.109, 6.109, 6.109, 6.109, 6.109, 6.109, 6.109, 6 6.170, 6.170, 6.170, 6.170, 6.170, 6.170, 6.170, 7 6.258, 6.258, 6.258, 6.258, 6.258, 6.258, 6.258, 8 6.489, 6.489, 6.489, 6.489, 6.489, 6.489, 6.489, 9 6.875, 6.875, 6.875, 6.875, 6.875, 6.875, 6.875/ DATA PF465/ 1 7.485, 7.485, 7.485, 7.485, 7.485, 7.485, 7.485, 2 8.405, 8.405, 8.405, 8.405, 8.405, 8.405, 8.405, 3 9.729, 9.729, 9.729, 9.729, 9.729, 9.729, 9.729, 4 11.560, 11.560, 11.560, 11.560, 11.560, 11.560, 11.560, 5 14.000, 14.000, 14.000, 14.000, 14.000, 14.000, 14.000, 6 17.141, 17.141, 17.141, 17.141, 17.141, 17.141, 17.141, 7 21.059, 21.059, 21.059, 21.059, 21.059, 21.059, 21.059, 8 25.807, 25.807, 25.807, 25.807, 25.807, 25.807, 25.807, 9 31.415, 31.415, 31.415, 31.415, 31.415, 31.415, 31.415/ DATA PF466/ 1 37.894, 37.894, 37.894, 37.894, 37.894, 37.894, 37.894, 2 45.250, 45.250, 45.250, 45.250, 45.250, 45.250, 45.250, 3 53.515, 53.515, 53.515, 53.515, 53.515, 53.514, 53.514, 4 62.795, 62.795, 62.795, 62.795, 62.794, 62.793, 62.791, 5 73.365, 73.365, 73.365, 73.363, 73.358, 73.350, 73.341, 6 85.838, 85.837, 85.837, 85.828, 85.805, 85.765, 85.724, 7 101.506, 101.502, 101.499, 101.465, 101.370, 101.210, 101.052, 8 122.955, 122.940, 122.933, 122.812, 122.479, 121.928, 121.397, 9 155.081, 155.035, 155.011, 154.643, 153.624, 151.963, 150.400/ DATA PF467/ 1 206.521, 206.396, 206.331, 205.331, 202.580, 198.139, 194.041, 2 291.354, 291.048, 290.890, 288.456, 281.782, 271.115, 261.441, 3 430.654, 429.976, 429.626, 424.248, 409.545, 386.249, 365.452, 4 653.340, 651.960, 651.251, 640.348, 610.626, 563.892, 522.750, 5 995.774, 993.177, 991.843, 971.378, 915.720, 828.803, 753.232, 6 1499.805, 1495.243,1492.901,1457.028,1359.676,1208.574,1078.643, 7 12.805, 12.805, 12.805, 12.805, 12.805, 12.805, 12.805, 8 13.147, 13.147, 13.147, 13.147, 13.147, 13.147, 13.147, 9 13.487, 13.487, 13.487, 13.487, 13.487, 13.487, 13.487/ DATA PF468/ 1 13.823, 13.823, 13.823, 13.823, 13.823, 13.823, 13.823, 2 14.157, 14.157, 14.157, 14.157, 14.157, 14.157, 14.157, 3 14.486, 14.486, 14.486, 14.486, 14.486, 14.486, 14.486, 4 14.811, 14.811, 14.811, 14.811, 14.811, 14.811, 14.811, 5 15.131, 15.131, 15.131, 15.131, 15.131, 15.131, 15.131, 6 15.446, 15.446, 15.446, 15.446, 15.446, 15.446, 15.446, 7 15.756, 15.756, 15.756, 15.756, 15.756, 15.756, 15.756, 8 16.061, 16.061, 16.061, 16.061, 16.061, 16.061, 16.061, 9 16.359, 16.359, 16.359, 16.359, 16.359, 16.359, 16.359/ DATA PF469/ 1 16.652, 16.652, 16.652, 16.652, 16.652, 16.652, 16.652, 2 16.939, 16.939, 16.939, 16.939, 16.939, 16.939, 16.939, 3 17.219, 17.219, 17.219, 17.219, 17.219, 17.219, 17.219, 4 17.493, 17.493, 17.493, 17.493, 17.493, 17.493, 17.493, 5 17.761, 17.761, 17.761, 17.761, 17.761, 17.761, 17.761, 6 18.024, 18.024, 18.024, 18.024, 18.024, 18.024, 18.024, 7 18.280, 18.280, 18.280, 18.280, 18.280, 18.280, 18.280, 8 18.532, 18.532, 18.532, 18.532, 18.532, 18.532, 18.532, 9 18.900, 18.900, 18.900, 18.900, 18.900, 18.900, 18.900/ DATA PF470/ 1 19.261, 19.261, 19.261, 19.261, 19.261, 19.261, 19.261, 2 19.617, 19.617, 19.617, 19.617, 19.617, 19.617, 19.617, 3 19.975, 19.975, 19.975, 19.975, 19.975, 19.975, 19.975, 4 20.340, 20.340, 20.340, 20.340, 20.340, 20.340, 20.340, 5 20.720, 20.720, 20.720, 20.720, 20.720, 20.720, 20.720, 6 21.125, 21.125, 21.125, 21.125, 21.125, 21.125, 21.125, 7 21.567, 21.567, 21.567, 21.567, 21.567, 21.567, 21.567, 8 22.058, 22.058, 22.058, 22.058, 22.058, 22.058, 22.058, 9 22.612, 22.612, 22.612, 22.612, 22.612, 22.612, 22.612/ DATA PF471/ 1 23.720, 23.720, 23.720, 23.720, 23.720, 23.720, 23.720, 2 25.123, 25.123, 25.123, 25.123, 25.123, 25.123, 25.123, 3 26.896, 26.896, 26.896, 26.896, 26.896, 26.896, 26.896, 4 29.109, 29.109, 29.109, 29.109, 29.109, 29.109, 29.109, 5 31.820, 31.820, 31.820, 31.820, 31.820, 31.820, 31.820, 6 35.075, 35.075, 35.075, 35.075, 35.075, 35.075, 35.075, 7 38.900, 38.900, 38.900, 38.900, 38.900, 38.900, 38.900, 8 43.302, 43.302, 43.302, 43.302, 43.302, 43.302, 43.302, 9 48.268, 48.268, 48.268, 48.268, 48.268, 48.268, 48.268/ DATA PF472/ 1 53.768, 53.768, 53.768, 53.768, 53.768, 53.768, 53.768, 2 59.753, 59.753, 59.753, 59.753, 59.753, 59.753, 59.753, 3 66.163, 66.163, 66.163, 66.163, 66.163, 66.163, 66.163, 4 72.930, 72.930, 72.930, 72.930, 72.930, 72.930, 72.930, 5 79.989, 79.989, 79.989, 79.989, 79.989, 79.989, 79.989, 6 87.289, 87.289, 87.289, 87.289, 87.289, 87.289, 87.289, 7 94.819, 94.819, 94.819, 94.819, 94.819, 94.819, 94.818, 8 102.638, 102.638, 102.638, 102.638, 102.638, 102.637, 102.636, 9 110.943, 110.943, 110.943, 110.943, 110.942, 110.940, 110.934/ DATA PF473/ 1 120.188, 120.188, 120.188, 120.188, 120.184, 120.172, 120.144, 2 131.315, 131.315, 131.315, 131.315, 131.301, 131.251, 131.135, 3 146.202, 146.202, 146.201, 146.201, 146.152, 145.972, 145.568, 4 168.391, 168.390, 168.388, 168.387, 168.232, 167.676, 166.442, 5 204.150, 204.147, 204.141, 204.139, 203.711, 202.188, 198.855, 6 263.755, 263.747, 263.733, 263.729, 262.669, 258.930, 250.850, 7 362.699, 362.681, 362.648, 362.639, 360.266, 351.940, 334.145, 8 522.406, 522.369, 522.302, 522.283, 517.411, 500.416, 464.455, 9 11.863, 11.863, 11.863, 11.863, 11.863, 11.863, 11.863/ DATA PF474/ 1 12.214, 12.214, 12.214, 12.214, 12.214, 12.214, 12.214, 2 12.569, 12.569, 12.569, 12.569, 12.569, 12.569, 12.569, 3 12.927, 12.927, 12.927, 12.927, 12.927, 12.927, 12.927, 4 13.287, 13.287, 13.287, 13.287, 13.287, 13.287, 13.287, 5 13.648, 13.648, 13.648, 13.648, 13.648, 13.648, 13.648, 6 14.010, 14.010, 14.010, 14.010, 14.010, 14.010, 14.010, 7 14.372, 14.372, 14.372, 14.372, 14.372, 14.372, 14.372, 8 14.734, 14.734, 14.734, 14.734, 14.734, 14.734, 14.734, 9 15.094, 15.094, 15.094, 15.094, 15.094, 15.094, 15.094/ DATA PF475/ 1 15.453, 15.453, 15.453, 15.453, 15.453, 15.453, 15.453, 2 15.810, 15.810, 15.810, 15.810, 15.810, 15.810, 15.810, 3 16.165, 16.165, 16.165, 16.165, 16.165, 16.165, 16.165, 4 16.516, 16.516, 16.516, 16.516, 16.516, 16.516, 16.516, 5 16.865, 16.865, 16.865, 16.865, 16.865, 16.865, 16.865, 6 17.210, 17.210, 17.210, 17.210, 17.210, 17.210, 17.210, 7 17.553, 17.553, 17.553, 17.553, 17.553, 17.553, 17.553, 8 17.892, 17.892, 17.892, 17.892, 17.892, 17.892, 17.892, 9 18.228, 18.228, 18.228, 18.228, 18.228, 18.228, 18.228/ DATA PF476/ 1 18.561, 18.561, 18.561, 18.561, 18.561, 18.561, 18.561, 2 19.058, 19.058, 19.058, 19.058, 19.058, 19.058, 19.058, 3 19.553, 19.553, 19.553, 19.553, 19.553, 19.553, 19.553, 4 20.049, 20.049, 20.049, 20.049, 20.049, 20.049, 20.049, 5 20.550, 20.550, 20.550, 20.550, 20.550, 20.550, 20.550, 6 21.063, 21.063, 21.063, 21.063, 21.063, 21.063, 21.063, 7 21.592, 21.592, 21.592, 21.592, 21.592, 21.592, 21.592, 8 22.146, 22.146, 22.146, 22.146, 22.146, 22.146, 22.146, 9 22.731, 22.731, 22.731, 22.731, 22.731, 22.731, 22.731/ DATA PF477/ 1 23.356, 23.356, 23.356, 23.356, 23.356, 23.356, 23.356, 2 24.029, 24.029, 24.029, 24.029, 24.029, 24.029, 24.029, 3 25.279, 25.279, 25.279, 25.279, 25.279, 25.279, 25.279, 4 26.721, 26.721, 26.721, 26.721, 26.721, 26.721, 26.721, 5 28.386, 28.386, 28.386, 28.386, 28.386, 28.386, 28.386, 6 30.297, 30.297, 30.297, 30.297, 30.297, 30.297, 30.297, 7 32.469, 32.469, 32.469, 32.469, 32.469, 32.469, 32.469, 8 34.904, 34.904, 34.904, 34.904, 34.904, 34.904, 34.904, 9 37.597, 37.597, 37.597, 37.597, 37.597, 37.597, 37.597/ DATA PF478/ 1 40.532, 40.532, 40.532, 40.532, 40.532, 40.532, 40.532, 2 43.686, 43.686, 43.686, 43.686, 43.686, 43.686, 43.686, 3 47.028, 47.028, 47.028, 47.028, 47.028, 47.028, 47.028, 4 50.522, 50.522, 50.522, 50.522, 50.522, 50.522, 50.522, 5 54.131, 54.131, 54.131, 54.131, 54.131, 54.131, 54.131, 6 57.814, 57.814, 57.814, 57.814, 57.814, 57.814, 57.814, 7 61.534, 61.534, 61.534, 61.534, 61.534, 61.534, 61.534, 8 65.255, 65.255, 65.255, 65.255, 65.255, 65.255, 65.255, 9 68.953, 68.953, 68.953, 68.953, 68.953, 68.953, 68.953/ DATA PF479/ 1 72.624, 72.624, 72.624, 72.624, 72.624, 72.624, 72.624, 2 76.305, 76.305, 76.305, 76.305, 76.305, 76.305, 76.305, 3 80.103, 80.103, 80.103, 80.103, 80.103, 80.103, 80.103, 4 84.254, 84.254, 84.254, 84.254, 84.254, 84.254, 84.254, 5 89.213, 89.213, 89.213, 89.213, 89.212, 89.212, 89.211, 6 95.801, 95.801, 95.801, 95.801, 95.800, 95.799, 95.796, 7 105.459, 105.459, 105.458, 105.458, 105.455, 105.449, 105.439, 8 120.611, 120.611, 120.609, 120.608, 120.597, 120.578, 120.549, 9 145.168, 145.168, 145.161, 145.158, 145.128, 145.076, 144.996/ DATA PF480/ 1 185.079, 185.079, 185.061, 185.054, 184.979, 184.851, 184.655, 2 8.647, 8.647, 8.647, 8.647, 8.647, 8.647, 8.647, 3 8.872, 8.872, 8.872, 8.872, 8.872, 8.872, 8.872, 4 9.101, 9.101, 9.101, 9.101, 9.101, 9.101, 9.101, 5 9.334, 9.334, 9.334, 9.334, 9.334, 9.334, 9.334, 6 9.572, 9.572, 9.572, 9.572, 9.572, 9.572, 9.572, 7 9.814, 9.814, 9.814, 9.814, 9.814, 9.814, 9.814, 8 10.058, 10.058, 10.058, 10.058, 10.058, 10.058, 10.058, 9 10.305, 10.305, 10.305, 10.305, 10.305, 10.305, 10.305/ DATA PF481/ 1 10.555, 10.555, 10.555, 10.555, 10.555, 10.555, 10.555, 2 10.806, 10.806, 10.806, 10.806, 10.806, 10.806, 10.806, 3 11.058, 11.058, 11.058, 11.058, 11.058, 11.058, 11.058, 4 11.311, 11.311, 11.311, 11.311, 11.311, 11.311, 11.311, 5 11.564, 11.564, 11.564, 11.564, 11.564, 11.564, 11.564, 6 11.817, 11.817, 11.817, 11.817, 11.817, 11.817, 11.817, 7 12.070, 12.070, 12.070, 12.070, 12.070, 12.070, 12.070, 8 12.323, 12.323, 12.323, 12.323, 12.323, 12.323, 12.323, 9 12.574, 12.574, 12.574, 12.574, 12.574, 12.574, 12.574/ DATA PF482/ 1 12.825, 12.825, 12.825, 12.825, 12.825, 12.825, 12.825, 2 13.074, 13.074, 13.074, 13.074, 13.074, 13.074, 13.074, 3 13.323, 13.323, 13.323, 13.323, 13.323, 13.323, 13.323, 4 13.693, 13.693, 13.693, 13.693, 13.693, 13.693, 13.693, 5 14.062, 14.062, 14.062, 14.062, 14.062, 14.062, 14.062, 6 14.430, 14.430, 14.430, 14.430, 14.430, 14.430, 14.430, 7 14.798, 14.798, 14.798, 14.798, 14.798, 14.798, 14.798, 8 15.168, 15.168, 15.168, 15.168, 15.168, 15.168, 15.168, 9 15.541, 15.541, 15.541, 15.541, 15.541, 15.541, 15.541/ DATA PF483/ 1 15.920, 15.920, 15.920, 15.920, 15.920, 15.920, 15.920, 2 16.308, 16.308, 16.308, 16.308, 16.308, 16.308, 16.308, 3 16.705, 16.705, 16.705, 16.705, 16.705, 16.705, 16.705, 4 17.116, 17.116, 17.116, 17.116, 17.116, 17.116, 17.116, 5 17.833, 17.833, 17.833, 17.833, 17.833, 17.833, 17.833, 6 18.600, 18.600, 18.600, 18.600, 18.600, 18.600, 18.600, 7 19.424, 19.424, 19.424, 19.424, 19.424, 19.424, 19.424, 8 20.306, 20.306, 20.306, 20.306, 20.306, 20.306, 20.306, 9 21.246, 21.246, 21.246, 21.246, 21.246, 21.246, 21.246/ DATA PF484/ 1 22.241, 22.241, 22.241, 22.241, 22.241, 22.241, 22.241, 2 23.284, 23.284, 23.284, 23.284, 23.284, 23.284, 23.284, 3 24.366, 24.366, 24.366, 24.366, 24.366, 24.366, 24.366, 4 25.476, 25.476, 25.476, 25.476, 25.476, 25.476, 25.476, 5 26.603, 26.603, 26.603, 26.603, 26.603, 26.603, 26.603, 6 27.735, 27.735, 27.735, 27.735, 27.735, 27.735, 27.735, 7 28.861, 28.861, 28.861, 28.861, 28.861, 28.861, 28.861, 8 29.970, 29.970, 29.970, 29.970, 29.970, 29.970, 29.970, 9 31.053, 31.053, 31.053, 31.053, 31.053, 31.053, 31.053/ DATA PF485/ 1 32.104, 32.104, 32.104, 32.104, 32.104, 32.104, 32.104, 2 33.121, 33.121, 33.121, 33.121, 33.121, 33.121, 33.121, 3 34.110, 34.110, 34.110, 34.110, 34.110, 34.110, 34.110, 4 35.096, 35.096, 35.096, 35.096, 35.096, 35.096, 35.096, 5 36.132, 36.132, 36.132, 36.132, 36.132, 36.132, 36.132, 6 37.320, 37.320, 37.320, 37.320, 37.320, 37.320, 37.320, 7 38.833, 38.833, 38.833, 38.833, 38.833, 38.833, 38.833, 8 40.940, 40.940, 40.940, 40.940, 40.940, 40.940, 40.940, 9 44.038, 44.038, 44.038, 44.038, 44.038, 44.038, 44.038/ DATA PF486/ 1 48.700, 48.700, 48.700, 48.700, 48.700, 48.700, 48.700, 2 55.748, 55.748, 55.748, 55.748, 55.748, 55.748, 55.748, 3 66.359, 66.359, 66.359, 66.359, 66.359, 66.359, 66.359, 4 5.109, 5.109, 5.109, 5.109, 5.109, 5.109, 5.109, 5 5.197, 5.197, 5.197, 5.197, 5.197, 5.197, 5.197, 6 5.287, 5.287, 5.287, 5.287, 5.287, 5.287, 5.287, 7 5.379, 5.379, 5.379, 5.379, 5.379, 5.379, 5.379, 8 5.474, 5.474, 5.474, 5.474, 5.474, 5.474, 5.474, 9 5.570, 5.570, 5.570, 5.570, 5.570, 5.570, 5.570/ DATA PF487/ 1 5.668, 5.668, 5.668, 5.668, 5.668, 5.668, 5.668, 2 5.767, 5.767, 5.767, 5.767, 5.767, 5.767, 5.767, 3 5.866, 5.866, 5.866, 5.866, 5.866, 5.866, 5.866, 4 5.967, 5.967, 5.967, 5.967, 5.967, 5.967, 5.967, 5 6.068, 6.068, 6.068, 6.068, 6.068, 6.068, 6.068, 6 6.170, 6.170, 6.170, 6.170, 6.170, 6.170, 6.170, 7 6.272, 6.272, 6.272, 6.272, 6.272, 6.272, 6.272, 8 6.373, 6.373, 6.373, 6.373, 6.373, 6.373, 6.373, 9 6.474, 6.474, 6.474, 6.474, 6.474, 6.474, 6.474/ DATA PF488/ 1 6.575, 6.575, 6.575, 6.575, 6.575, 6.575, 6.575, 2 6.675, 6.675, 6.675, 6.675, 6.675, 6.675, 6.675, 3 6.774, 6.774, 6.774, 6.774, 6.774, 6.774, 6.774, 4 6.872, 6.872, 6.872, 6.872, 6.872, 6.872, 6.872, 5 6.969, 6.969, 6.969, 6.969, 6.969, 6.969, 6.969, 6 7.111, 7.111, 7.111, 7.111, 7.111, 7.111, 7.111, 7 7.251, 7.251, 7.251, 7.251, 7.251, 7.251, 7.251, 8 7.387, 7.387, 7.387, 7.387, 7.387, 7.387, 7.387, 9 7.518, 7.518, 7.518, 7.518, 7.518, 7.518, 7.518/ DATA PF489/ 1 7.646, 7.646, 7.646, 7.646, 7.646, 7.646, 7.646, 2 7.769, 7.769, 7.769, 7.769, 7.769, 7.769, 7.769, 3 7.888, 7.888, 7.888, 7.888, 7.888, 7.888, 7.888, 4 8.002, 8.002, 8.002, 8.002, 8.002, 8.002, 8.002, 5 8.112, 8.112, 8.112, 8.112, 8.112, 8.112, 8.112, 6 8.217, 8.217, 8.217, 8.217, 8.217, 8.217, 8.217, 7 8.382, 8.382, 8.382, 8.382, 8.382, 8.382, 8.382, 8 8.534, 8.534, 8.534, 8.534, 8.534, 8.534, 8.534, 9 8.674, 8.674, 8.674, 8.674, 8.674, 8.674, 8.674/ DATA PF490/ 1 8.803, 8.803, 8.803, 8.803, 8.803, 8.803, 8.803, 2 8.921, 8.921, 8.921, 8.921, 8.921, 8.921, 8.921, 3 9.028, 9.028, 9.028, 9.028, 9.028, 9.028, 9.028, 4 9.126, 9.126, 9.126, 9.126, 9.126, 9.126, 9.126, 5 9.214, 9.214, 9.214, 9.214, 9.214, 9.214, 9.214, 6 9.294, 9.294, 9.294, 9.294, 9.294, 9.294, 9.294, 7 9.367, 9.367, 9.367, 9.367, 9.367, 9.367, 9.367, 8 9.432, 9.432, 9.432, 9.432, 9.432, 9.432, 9.432, 9 9.491, 9.491, 9.491, 9.491, 9.491, 9.491, 9.491/ DATA PF491/ 1 9.545, 9.545, 9.545, 9.545, 9.545, 9.545, 9.545, 2 9.593, 9.593, 9.593, 9.593, 9.593, 9.593, 9.593, 3 9.637, 9.637, 9.637, 9.637, 9.637, 9.637, 9.637, 4 9.679, 9.679, 9.679, 9.679, 9.679, 9.679, 9.679, 5 9.725, 9.725, 9.725, 9.725, 9.725, 9.725, 9.725, 6 9.787, 9.787, 9.787, 9.787, 9.787, 9.787, 9.787, 7 9.886, 9.886, 9.886, 9.886, 9.886, 9.886, 9.886, 8 10.063, 10.063, 10.063, 10.063, 10.063, 10.063, 10.063, 9 10.381, 10.381, 10.381, 10.381, 10.381, 10.381, 10.381/ DATA PF492/ 1 10.932, 10.932, 10.932, 10.932, 10.932, 10.932, 10.932, 2 11.841, 11.841, 11.841, 11.841, 11.841, 11.841, 11.841, 3 13.264, 13.264, 13.264, 13.264, 13.264, 13.264, 13.263, 4 15.389, 15.388, 15.388, 15.388, 15.388, 15.388, 15.388, 5 18.444, 18.444, 18.444, 18.444, 18.443, 18.443, 18.442, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF493/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF494/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF495/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF496/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 7 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 8 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 9 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000/ DATA PF497/ 1 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 2 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 3 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 4 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 5 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 6 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 1.001, 7 1.003, 1.003, 1.003, 1.003, 1.003, 1.003, 1.003, 8 1.009, 1.009, 1.009, 1.009, 1.009, 1.009, 1.009, 9 1.024, 1.024, 1.024, 1.024, 1.024, 1.024, 1.024/ DATA PF498/ 1 1.057, 1.057, 1.057, 1.057, 1.057, 1.057, 1.057, 2 1.122, 1.122, 1.122, 1.122, 1.122, 1.122, 1.122, 3 1.245, 1.245, 1.245, 1.245, 1.245, 1.245, 1.245, 4 1.463, 1.463, 1.463, 1.463, 1.463, 1.463, 1.463, 5 1.838, 1.838, 1.838, 1.838, 1.838, 1.838, 1.838, 6 2.462, 2.462, 2.462, 2.462, 2.462, 2.462, 2.462, 7 3.477, 3.477, 3.477, 3.477, 3.477, 3.477, 3.477, 8 23.091, 23.091, 23.091, 23.091, 23.091, 23.091, 23.091, 9 23.504, 23.504, 23.504, 23.504, 23.504, 23.504, 23.504/ DATA PF499/ 1 23.919, 23.919, 23.919, 23.919, 23.919, 23.919, 23.919, 2 24.335, 24.335, 24.335, 24.335, 24.335, 24.335, 24.335, 3 24.752, 24.752, 24.752, 24.752, 24.752, 24.752, 24.752, 4 25.168, 25.168, 25.168, 25.168, 25.168, 25.168, 25.168, 5 25.584, 25.584, 25.584, 25.584, 25.584, 25.584, 25.584, 6 25.999, 25.999, 25.999, 25.999, 25.999, 25.999, 25.999, 7 26.413, 26.413, 26.413, 26.413, 26.413, 26.413, 26.413, 8 26.826, 26.826, 26.826, 26.826, 26.826, 26.826, 26.825, 9 27.236, 27.236, 27.236, 27.236, 27.236, 27.236, 27.236/ DATA PF500/ 1 27.646, 27.646, 27.646, 27.646, 27.646, 27.646, 27.645, 2 28.053, 28.053, 28.053, 28.053, 28.053, 28.053, 28.053, 3 28.459, 28.459, 28.459, 28.459, 28.459, 28.459, 28.458, 4 28.864, 28.864, 28.864, 28.864, 28.864, 28.864, 28.863, 5 29.269, 29.269, 29.269, 29.269, 29.269, 29.269, 29.267, 6 29.674, 29.674, 29.674, 29.674, 29.674, 29.674, 29.670, 7 30.081, 30.081, 30.081, 30.081, 30.081, 30.081, 30.075, 8 30.491, 30.491, 30.491, 30.491, 30.491, 30.491, 30.481, 9 30.906, 30.906, 30.906, 30.906, 30.906, 30.906, 30.890/ DATA PF501/ 1 31.544, 31.544, 31.543, 31.543, 31.543, 31.542, 31.513, 2 32.209, 32.209, 32.208, 32.208, 32.207, 32.206, 32.154, 3 32.917, 32.917, 32.915, 32.914, 32.912, 32.909, 32.820, 4 33.689, 33.688, 33.684, 33.680, 33.676, 33.669, 33.522, 5 34.551, 34.550, 34.540, 34.530, 34.521, 34.507, 34.271, 6 35.543, 35.539, 35.517, 35.496, 35.475, 35.448, 35.080, 7 36.715, 36.706, 36.660, 36.615, 36.572, 36.523, 35.962, 8 38.138, 38.121, 38.027, 37.937, 37.854, 37.764, 36.934, 9 39.907, 39.874, 39.693, 39.519, 39.366, 39.212, 38.009/ DATA PF502/ 1 42.152, 42.090, 41.753, 41.436, 41.163, 40.906, 39.203, 2 47.430, 47.270, 46.408, 45.612, 44.958, 44.400, 41.496, 3 55.626, 55.252, 53.261, 51.455, 50.025, 48.912, 44.215, 4 68.318, 67.522, 63.323, 59.572, 56.704, 54.643, 47.401, 5 87.592, 86.029, 77.865, 70.669, 65.336, 61.766, 51.073, 6 115.984, 113.135, 98.364, 85.506, 76.232, 70.408, 55.225, 7 156.323, 151.457, 126.403, 104.834, 89.647, 80.635, 59.832, 8 211.487, 203.646, 163.525, 129.320, 105.747, 92.448, 64.846, 9 284.104, 272.109, 211.065, 159.474, 124.591, 105.776, 70.201/ DATA PF503/ 1 376.258, 358.738, 270.004, 195.591, 146.122, 120.488, 75.824, 2 489.252, 464.694, 340.851, 237.710, 170.168, 136.398, 81.633, 3 623.454, 590.271, 423.582, 285.608, 196.459, 153.282, 87.545, 4 778.255, 734.863, 517.637, 338.815, 224.642, 170.891, 93.482, 5 952.132, 897.021, 621.972, 396.652, 254.310, 188.969, 99.371, 6 1142.785, 1074.586, 735.147, 458.285, 285.026, 207.264, 105.148, 7 1347.333, 1264.871, 855.442, 522.782, 316.350, 225.537, 110.757, 8 1562.531, 1464.861, 980.976, 589.175, 347.855, 243.577, 116.156, 9 1784.982, 1671.409,1109.826, 656.508, 379.152, 261.196, 121.309/ DATA PF504/ 1 2011.326, 1881.411,1240.121, 723.879, 409.894, 278.241, 126.192, 2 2238.393, 2091.940,1370.126, 790.477, 439.785, 294.590, 130.789, 3 2463.316, 2300.356,1498.291, 855.594, 468.584, 310.148, 135.092, 4 2683.600, 2504.369,1623.289, 918.642, 496.104, 324.853, 139.098, 5 2897.165, 2702.067,1744.027, 979.152, 522.209, 338.664, 142.810, 6 3102.347, 2891.927,1859.649,1036.770, 546.808, 351.564, 146.236, 7 3297.885, 3072.798,1969.520,1091.248, 569.850, 363.552, 149.386, 8 3482.889, 3243.870,2073.208,1142.431, 591.321, 374.644, 152.272, 9 3656.800, 3404.640,2170.460,1190.248, 611.231, 384.865, 154.908/ DATA PF505/ 1 7.470, 7.470, 7.470, 7.470, 7.470, 7.470, 7.470, 2 7.555, 7.555, 7.555, 7.555, 7.555, 7.555, 7.555, 3 7.644, 7.644, 7.644, 7.644, 7.644, 7.644, 7.644, 4 7.739, 7.739, 7.739, 7.739, 7.739, 7.739, 7.739, 5 7.839, 7.839, 7.839, 7.839, 7.839, 7.839, 7.839, 6 7.946, 7.946, 7.946, 7.946, 7.946, 7.946, 7.946, 7 8.061, 8.061, 8.061, 8.061, 8.061, 8.061, 8.061, 8 8.185, 8.185, 8.185, 8.185, 8.185, 8.185, 8.185, 9 8.319, 8.319, 8.319, 8.319, 8.319, 8.319, 8.319/ DATA PF506/ 1 8.464, 8.464, 8.464, 8.464, 8.464, 8.464, 8.464, 2 8.622, 8.622, 8.622, 8.622, 8.622, 8.622, 8.622, 3 8.794, 8.794, 8.794, 8.794, 8.794, 8.794, 8.794, 4 8.981, 8.981, 8.981, 8.981, 8.981, 8.981, 8.981, 5 9.185, 9.185, 9.185, 9.185, 9.185, 9.185, 9.185, 6 9.406, 9.406, 9.406, 9.406, 9.406, 9.406, 9.406, 7 9.647, 9.647, 9.647, 9.647, 9.647, 9.647, 9.647, 8 9.908, 9.908, 9.908, 9.908, 9.908, 9.908, 9.908, 9 10.192, 10.192, 10.192, 10.192, 10.192, 10.192, 10.192/ DATA PF507/ 1 10.498, 10.498, 10.498, 10.498, 10.498, 10.498, 10.498, 2 10.828, 10.828, 10.828, 10.828, 10.828, 10.828, 10.828, 3 11.372, 11.372, 11.372, 11.372, 11.372, 11.372, 11.372, 4 11.976, 11.976, 11.976, 11.976, 11.976, 11.976, 11.976, 5 12.645, 12.645, 12.645, 12.645, 12.645, 12.645, 12.645, 6 13.381, 13.381, 13.381, 13.381, 13.381, 13.381, 13.381, 7 14.187, 14.187, 14.187, 14.187, 14.187, 14.187, 14.187, 8 15.067, 15.067, 15.067, 15.067, 15.067, 15.067, 15.067, 9 16.024, 16.024, 16.024, 16.024, 16.024, 16.024, 16.024/ DATA PF508/ 1 17.062, 17.062, 17.062, 17.062, 17.062, 17.062, 17.062, 2 18.185, 18.185, 18.185, 18.185, 18.185, 18.185, 18.185, 3 19.400, 19.400, 19.400, 19.400, 19.400, 19.400, 19.400, 4 21.649, 21.649, 21.649, 21.649, 21.649, 21.648, 21.648, 5 24.226, 24.226, 24.226, 24.225, 24.225, 24.224, 24.223, 6 27.219, 27.219, 27.218, 27.218, 27.216, 27.212, 27.204, 7 30.778, 30.778, 30.776, 30.773, 30.764, 30.749, 30.717, 8 35.168, 35.165, 35.161, 35.148, 35.111, 35.054, 34.948, 9 40.857, 40.847, 40.830, 40.785, 40.657, 40.471, 40.161/ DATA PF509/ 1 48.664, 48.634, 48.581, 48.442, 48.056, 47.522, 46.719, 2 59.971, 59.887, 59.740, 59.363, 58.332, 56.961, 55.081, 3 76.962, 76.753, 76.390, 75.471, 72.997, 69.816, 65.801, 4 102.850, 102.378, 101.566, 99.531, 94.134, 87.400, 79.499, 5 141.993, 141.024, 139.359, 135.224, 124.407, 111.266, 96.811, 6 199.838, 197.994, 194.838, 187.063, 166.959, 143.113, 118.337, 7 282.625, 279.356, 273.773, 260.122, 225.195, 184.635, 144.568, 8 396.889, 391.441, 382.159, 359.616, 302.471, 237.352, 175.837, 9 548.806, 540.218, 525.618, 490.365, 401.744, 302.437, 212.270/ DATA PF510/ 1 743.527, 730.643, 708.780, 656.268, 525.235, 380.578, 253.772, 2 984.581, 966.084, 934.754, 859.851, 674.174, 471.897, 300.026, 3 1273.473, 1247.945,1204.769,1101.975, 848.652, 575.925, 350.520, 4 1609.516, 1575.496,1518.034,1381.737,1047.603, 691.641, 404.588, 5 1989.891, 1945.947,1871.815,1696.554,1268.901, 817.559, 461.452, 6 2409.916, 2354.713,2261.686,2042.402,1509.546, 951.847, 520.281, 7 2863.455, 2795.806,2681.915,2414.155,1765.907,1092.459, 580.234, 8 3343.391, 3262.303,3125.904,2805.977,2033.980,1237.262, 640.502, 9 3842.120, 3746.821,3586.638,3211.708,2309.640,1384.155, 700.338/ DATA PF511/ 1 4351.992, 4241.940,4057.085,3625.212,2588.854,1531.161, 759.085, 2 4865.683, 4740.569,4530.540,4040.665,2867.860,1676.494, 816.181, 3 12.790, 12.790, 12.790, 12.790, 12.790, 12.790, 12.790, 4 12.985, 12.985, 12.985, 12.985, 12.985, 12.985, 12.985, 5 13.181, 13.181, 13.181, 13.181, 13.181, 13.181, 13.181, 6 13.378, 13.378, 13.378, 13.378, 13.378, 13.378, 13.378, 7 13.576, 13.576, 13.576, 13.576, 13.576, 13.576, 13.576, 8 13.773, 13.773, 13.773, 13.773, 13.773, 13.773, 13.773, 9 13.971, 13.971, 13.971, 13.971, 13.971, 13.971, 13.971/ DATA PF512/ 1 14.169, 14.169, 14.169, 14.169, 14.169, 14.169, 14.169, 2 14.366, 14.366, 14.366, 14.366, 14.366, 14.366, 14.366, 3 14.562, 14.562, 14.562, 14.562, 14.562, 14.562, 14.562, 4 14.758, 14.758, 14.758, 14.758, 14.758, 14.758, 14.758, 5 14.953, 14.953, 14.953, 14.953, 14.953, 14.953, 14.953, 6 15.148, 15.148, 15.148, 15.148, 15.148, 15.148, 15.148, 7 15.342, 15.342, 15.342, 15.342, 15.342, 15.342, 15.342, 8 15.537, 15.537, 15.537, 15.537, 15.537, 15.537, 15.537, 9 15.731, 15.731, 15.731, 15.731, 15.731, 15.731, 15.731/ DATA PF513/ 1 15.925, 15.925, 15.925, 15.925, 15.925, 15.925, 15.925, 2 16.120, 16.120, 16.120, 16.120, 16.120, 16.120, 16.120, 3 16.317, 16.317, 16.317, 16.317, 16.317, 16.317, 16.317, 4 16.515, 16.515, 16.515, 16.515, 16.515, 16.515, 16.515, 5 16.818, 16.818, 16.818, 16.818, 16.818, 16.818, 16.818, 6 17.128, 17.128, 17.128, 17.128, 17.128, 17.128, 17.128, 7 17.448, 17.448, 17.448, 17.448, 17.448, 17.448, 17.448, 8 17.780, 17.780, 17.780, 17.780, 17.780, 17.780, 17.780, 9 18.127, 18.127, 18.127, 18.127, 18.127, 18.127, 18.127/ DATA PF514/ 1 18.492, 18.492, 18.492, 18.492, 18.492, 18.492, 18.492, 2 18.876, 18.876, 18.876, 18.876, 18.876, 18.876, 18.876, 3 19.282, 19.282, 19.282, 19.282, 19.282, 19.282, 19.282, 4 19.712, 19.712, 19.712, 19.712, 19.712, 19.712, 19.712, 5 20.168, 20.168, 20.168, 20.168, 20.168, 20.168, 20.168, 6 20.994, 20.994, 20.994, 20.994, 20.994, 20.994, 20.994, 7 21.917, 21.917, 21.917, 21.917, 21.917, 21.917, 21.917, 8 22.958, 22.958, 22.958, 22.958, 22.958, 22.958, 22.958, 9 24.155, 24.155, 24.155, 24.155, 24.155, 24.155, 24.155/ DATA PF515/ 1 25.564, 25.564, 25.564, 25.564, 25.564, 25.564, 25.564, 2 27.271, 27.271, 27.271, 27.271, 27.271, 27.271, 27.271, 3 29.401, 29.401, 29.401, 29.401, 29.401, 29.401, 29.400, 4 32.137, 32.137, 32.137, 32.137, 32.137, 32.136, 32.133, 5 35.751, 35.751, 35.751, 35.750, 35.749, 35.742, 35.731, 6 40.667, 40.664, 40.663, 40.660, 40.655, 40.626, 40.577, 7 47.580, 47.570, 47.564, 47.554, 47.531, 47.421, 47.245, 8 57.683, 57.650, 57.627, 57.593, 57.517, 57.153, 56.595, 9 73.016, 72.914, 72.847, 72.743, 72.517, 71.459, 69.906/ DATA PF516/ 1 96.943, 96.667, 96.487, 96.207, 95.611, 92.875, 89.002, 2 134.675, 134.009, 133.573, 132.901, 131.485, 125.098, 116.359, 3 193.714, 192.249, 191.293, 189.824, 186.761, 173.166, 155.111, 4 284.002, 281.046, 279.121, 276.171, 270.082, 243.427, 208.951, 5 417.663, 412.136, 408.543, 403.055, 391.820, 343.245, 281.879, 6 608.239, 598.586, 592.320, 582.774, 563.380, 480.452, 377.852, 7 869.510, 853.643, 843.356, 827.722, 796.172, 662.595, 500.372, 8 1214.077, 1189.368,1173.366,1149.100,1100.420, 896.125, 652.085, 9 1651.956, 1615.287,1591.563,1555.656,1484.006,1185.663, 834.473/ DATA PF517/ 1 2189.430, 2137.298,2103.600,2052.684,1951.568,1533.453,1047.668, 2 2828.329, 2756.996,2710.924,2641.417,2503.962,1939.108,1290.422, 3 3565.824, 3471.490,3410.605,3318.877,3138.160,2399.623,1560.212, 4 4394.699, 4273.682,4195.626,4078.169,3847.539,2909.659,1853.454, 5 15.654, 15.654, 15.654, 15.654, 15.654, 15.654, 15.654, 6 15.938, 15.938, 15.938, 15.938, 15.938, 15.938, 15.938, 7 16.224, 16.224, 16.224, 16.224, 16.224, 16.224, 16.224, 8 16.512, 16.512, 16.512, 16.512, 16.512, 16.512, 16.512, 9 16.801, 16.801, 16.801, 16.801, 16.801, 16.801, 16.801/ DATA PF518/ 1 17.091, 17.091, 17.091, 17.091, 17.091, 17.091, 17.091, 2 17.380, 17.380, 17.380, 17.380, 17.380, 17.380, 17.380, 3 17.669, 17.669, 17.669, 17.669, 17.669, 17.669, 17.669, 4 17.957, 17.957, 17.957, 17.957, 17.957, 17.957, 17.957, 5 18.244, 18.244, 18.244, 18.244, 18.244, 18.244, 18.244, 6 18.529, 18.529, 18.529, 18.529, 18.529, 18.529, 18.529, 7 18.813, 18.813, 18.813, 18.813, 18.813, 18.813, 18.813, 8 19.095, 19.095, 19.095, 19.095, 19.095, 19.095, 19.095, 9 19.375, 19.375, 19.375, 19.375, 19.375, 19.375, 19.375/ DATA PF519/ 1 19.654, 19.654, 19.654, 19.654, 19.654, 19.654, 19.654, 2 19.932, 19.932, 19.932, 19.932, 19.932, 19.932, 19.932, 3 20.209, 20.209, 20.209, 20.209, 20.209, 20.209, 20.209, 4 20.486, 20.486, 20.486, 20.486, 20.486, 20.486, 20.486, 5 20.763, 20.763, 20.763, 20.763, 20.763, 20.763, 20.763, 6 21.043, 21.043, 21.043, 21.043, 21.043, 21.043, 21.043, 7 21.468, 21.468, 21.468, 21.468, 21.468, 21.468, 21.468, 8 21.905, 21.905, 21.905, 21.905, 21.905, 21.905, 21.905, 9 22.359, 22.359, 22.359, 22.359, 22.359, 22.359, 22.359/ DATA PF520/ 1 22.836, 22.836, 22.836, 22.836, 22.836, 22.836, 22.836, 2 23.345, 23.345, 23.345, 23.345, 23.345, 23.345, 23.345, 3 23.892, 23.892, 23.892, 23.892, 23.892, 23.892, 23.892, 4 24.487, 24.487, 24.487, 24.487, 24.487, 24.487, 24.487, 5 25.136, 25.136, 25.136, 25.136, 25.136, 25.136, 25.136, 6 25.849, 25.849, 25.849, 25.849, 25.849, 25.849, 25.849, 7 26.633, 26.633, 26.633, 26.633, 26.633, 26.633, 26.633, 8 28.116, 28.116, 28.116, 28.116, 28.116, 28.116, 28.116, 9 29.843, 29.843, 29.843, 29.843, 29.843, 29.843, 29.843/ DATA PF521/ 1 31.831, 31.831, 31.831, 31.831, 31.831, 31.831, 31.831, 2 34.091, 34.091, 34.091, 34.091, 34.091, 34.091, 34.091, 3 36.622, 36.622, 36.622, 36.622, 36.622, 36.622, 36.622, 4 39.418, 39.418, 39.418, 39.418, 39.418, 39.418, 39.418, 5 42.472, 42.472, 42.472, 42.472, 42.472, 42.472, 42.472, 6 45.782, 45.782, 45.782, 45.782, 45.782, 45.782, 45.782, 7 49.368, 49.368, 49.368, 49.368, 49.368, 49.368, 49.368, 8 53.289, 53.289, 53.289, 53.289, 53.289, 53.289, 53.289, 9 57.670, 57.670, 57.670, 57.670, 57.670, 57.670, 57.670/ DATA PF522/ 1 62.749, 62.749, 62.749, 62.749, 62.748, 62.747, 62.744, 2 68.942, 68.941, 68.940, 68.940, 68.934, 68.931, 68.915, 3 76.976, 76.972, 76.970, 76.967, 76.941, 76.926, 76.855, 4 88.130, 88.117, 88.107, 88.094, 87.995, 87.937, 87.674, 5 104.659, 104.614, 104.582, 104.536, 104.202, 104.009, 103.164, 6 130.458, 130.323, 130.227, 130.092, 129.104, 128.543, 126.146, 7 171.947, 171.589, 171.333, 170.975, 168.381, 166.926, 160.859, 8 239.038, 238.182, 237.572, 236.720, 230.581, 227.184, 213.297, 9 345.913, 344.052, 342.726, 340.885, 327.657, 320.423, 291.375/ DATA PF523/ 1 511.278, 507.561, 504.915, 501.251, 475.034, 460.842, 404.766, 2 757.814, 750.928, 746.029, 739.266, 691.028, 665.155, 564.370, 3 1110.723, 1098.790,1090.308,1078.630, 995.569, 951.382, 781.425, 4 1595.503, 1576.024,1562.192,1543.187,1408.373,1337.173,1066.397, 5 2235.316, 2205.172,2183.780,2154.448,1946.862,1837.937,1427.834, 6 3048.406, 3003.921,2972.371,2929.188,2624.204,2465.094,1871.380, 7 15.655, 15.655, 15.655, 15.655, 15.655, 15.655, 15.655, 8 15.911, 15.911, 15.911, 15.911, 15.911, 15.911, 15.911, 9 16.166, 16.166, 16.166, 16.166, 16.166, 16.166, 16.166/ DATA PF524/ 1 16.419, 16.419, 16.419, 16.419, 16.419, 16.419, 16.419, 2 16.670, 16.670, 16.670, 16.670, 16.670, 16.670, 16.670, 3 16.918, 16.918, 16.918, 16.918, 16.918, 16.918, 16.918, 4 17.164, 17.164, 17.164, 17.164, 17.164, 17.164, 17.164, 5 17.406, 17.406, 17.406, 17.406, 17.406, 17.406, 17.406, 6 17.645, 17.645, 17.645, 17.645, 17.645, 17.645, 17.645, 7 17.881, 17.881, 17.881, 17.881, 17.881, 17.881, 17.881, 8 18.112, 18.112, 18.112, 18.112, 18.112, 18.112, 18.112, 9 18.340, 18.340, 18.340, 18.340, 18.340, 18.340, 18.340/ DATA PF525/ 1 18.563, 18.563, 18.563, 18.563, 18.563, 18.563, 18.563, 2 18.782, 18.782, 18.782, 18.782, 18.782, 18.782, 18.782, 3 18.997, 18.997, 18.997, 18.997, 18.997, 18.997, 18.997, 4 19.207, 19.207, 19.207, 19.207, 19.207, 19.207, 19.207, 5 19.414, 19.414, 19.414, 19.414, 19.414, 19.414, 19.414, 6 19.616, 19.616, 19.616, 19.616, 19.616, 19.616, 19.616, 7 19.816, 19.816, 19.816, 19.816, 19.816, 19.816, 19.816, 8 20.012, 20.012, 20.012, 20.012, 20.012, 20.012, 20.012, 9 20.302, 20.302, 20.302, 20.302, 20.302, 20.302, 20.302/ DATA PF526/ 1 20.590, 20.590, 20.590, 20.590, 20.590, 20.590, 20.590, 2 20.881, 20.881, 20.881, 20.881, 20.881, 20.881, 20.881, 3 21.180, 21.180, 21.180, 21.180, 21.180, 21.180, 21.180, 4 21.494, 21.494, 21.494, 21.494, 21.494, 21.494, 21.494, 5 21.832, 21.832, 21.832, 21.832, 21.832, 21.832, 21.832, 6 22.205, 22.205, 22.205, 22.205, 22.205, 22.205, 22.205, 7 22.624, 22.624, 22.624, 22.624, 22.624, 22.624, 22.624, 8 23.103, 23.103, 23.103, 23.103, 23.103, 23.103, 23.103, 9 23.655, 23.655, 23.655, 23.655, 23.655, 23.655, 23.655/ DATA PF527/ 1 24.784, 24.784, 24.784, 24.784, 24.784, 24.784, 24.784, 2 26.234, 26.234, 26.234, 26.234, 26.234, 26.234, 26.234, 3 28.080, 28.080, 28.080, 28.080, 28.080, 28.080, 28.080, 4 30.387, 30.387, 30.387, 30.387, 30.387, 30.387, 30.387, 5 33.208, 33.208, 33.208, 33.208, 33.208, 33.208, 33.208, 6 36.583, 36.583, 36.583, 36.583, 36.583, 36.583, 36.583, 7 40.533, 40.533, 40.533, 40.533, 40.533, 40.533, 40.533, 8 45.059, 45.059, 45.059, 45.059, 45.059, 45.059, 45.059, 9 50.147, 50.147, 50.147, 50.147, 50.147, 50.147, 50.147/ DATA PF528/ 1 55.766, 55.766, 55.766, 55.766, 55.766, 55.766, 55.766, 2 61.881, 61.881, 61.881, 61.881, 61.881, 61.881, 61.881, 3 68.462, 68.462, 68.462, 68.462, 68.462, 68.462, 68.462, 4 75.511, 75.511, 75.511, 75.511, 75.511, 75.511, 75.511, 5 83.097, 83.097, 83.097, 83.097, 83.097, 83.097, 83.096, 6 91.415, 91.414, 91.414, 91.414, 91.413, 91.411, 91.410, 7 100.880, 100.880, 100.877, 100.876, 100.872, 100.863, 100.855, 8 112.301, 112.298, 112.288, 112.280, 112.264, 112.222, 112.188, 9 127.166, 127.156, 127.118, 127.087, 127.025, 126.868, 126.741/ DATA PF529/ 1 148.137, 148.106, 147.977, 147.873, 147.668, 147.156, 146.753, 2 179.776, 179.683, 179.307, 179.003, 178.408, 176.937, 175.804, 3 229.476, 229.232, 228.252, 227.463, 225.923, 222.157, 219.311, 4 308.435, 307.861, 305.560, 303.711, 300.117, 291.411, 284.946, 5 432.375, 431.147, 426.223, 422.272, 414.627, 396.251, 382.820, 6 621.674, 619.251, 609.551, 601.781, 586.799, 551.041, 525.266, 7 900.626, 896.191, 878.439, 864.241, 836.949, 772.229, 726.149, 8 1295.791, 1288.186,1257.766,1233.468,1186.895,1077.070, 999.733, 9 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000/ DATA PF530/ 1 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 2 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 3 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 4 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 5 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 7 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 8 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 9 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000/ DATA PF531/ 1 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 2 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 3 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 4 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 5 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 7 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 8 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 9 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000/ DATA PF532/ 1 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 6.000, 2 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 3 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 6.001, 4 6.002, 6.002, 6.002, 6.002, 6.002, 6.002, 6.002, 5 6.005, 6.005, 6.005, 6.005, 6.005, 6.005, 6.005, 6 6.009, 6.009, 6.009, 6.009, 6.009, 6.009, 6.009, 7 6.016, 6.016, 6.016, 6.016, 6.016, 6.016, 6.016, 8 6.028, 6.028, 6.028, 6.028, 6.028, 6.028, 6.028, 9 6.048, 6.048, 6.048, 6.048, 6.048, 6.048, 6.048/ DATA PF533/ 1 6.078, 6.078, 6.078, 6.078, 6.078, 6.078, 6.078, 2 6.124, 6.124, 6.124, 6.124, 6.124, 6.124, 6.124, 3 6.251, 6.251, 6.251, 6.251, 6.251, 6.251, 6.251, 4 6.478, 6.478, 6.478, 6.478, 6.478, 6.478, 6.478, 5 6.857, 6.857, 6.857, 6.857, 6.857, 6.857, 6.857, 6 7.457, 7.457, 7.457, 7.457, 7.457, 7.457, 7.457, 7 8.362, 8.362, 8.362, 8.362, 8.362, 8.362, 8.362, 8 9.667, 9.667, 9.667, 9.667, 9.667, 9.667, 9.667, 9 11.476, 11.476, 11.476, 11.476, 11.476, 11.476, 11.476/ DATA PF534/ 1 13.889, 13.889, 13.889, 13.889, 13.889, 13.889, 13.889, 2 16.998, 16.998, 16.998, 16.998, 16.998, 16.998, 16.998, 3 20.881, 20.881, 20.881, 20.881, 20.881, 20.881, 20.881, 4 25.588, 25.588, 25.588, 25.588, 25.588, 25.588, 25.588, 5 31.142, 31.142, 31.142, 31.142, 31.142, 31.142, 31.142, 6 37.538, 37.538, 37.538, 37.538, 37.538, 37.538, 37.538, 7 44.746, 44.746, 44.746, 44.746, 44.746, 44.746, 44.746, 8 52.723, 52.723, 52.723, 52.723, 52.723, 52.723, 52.723, 9 61.438, 61.438, 61.438, 61.438, 61.438, 61.438, 61.438/ DATA PF535/ 1 70.913, 70.913, 70.913, 70.913, 70.912, 70.912, 70.911, 2 81.293, 81.293, 81.293, 81.292, 81.292, 81.290, 81.285, 3 92.989, 92.989, 92.989, 92.985, 92.982, 92.976, 92.949, 4 106.945, 106.945, 106.945, 106.926, 106.911, 106.884, 106.765, 5 125.159, 125.159, 125.158, 125.084, 125.027, 124.924, 124.475, 6 151.611, 151.609, 151.607, 151.357, 151.168, 150.828, 149.363, 7 193.715, 193.708, 193.704, 192.970, 192.414, 191.429, 187.228, 8 264.259, 264.239, 264.230, 262.312, 260.864, 258.318, 247.576, 9 383.518, 383.471, 383.449, 378.937, 375.537, 369.603, 344.801/ DATA PF536/ 1 580.962, 580.860, 580.814, 571.141, 563.864, 551.249, 498.964, 2 10.541, 10.541, 10.541, 10.541, 10.541, 10.541, 10.541, 3 10.886, 10.886, 10.886, 10.886, 10.886, 10.886, 10.886, 4 11.234, 11.234, 11.234, 11.234, 11.234, 11.234, 11.234, 5 11.581, 11.581, 11.581, 11.581, 11.581, 11.581, 11.581, 6 11.929, 11.929, 11.929, 11.929, 11.929, 11.929, 11.929, 7 12.276, 12.276, 12.276, 12.276, 12.276, 12.276, 12.276, 8 12.622, 12.622, 12.622, 12.622, 12.622, 12.622, 12.622, 9 12.966, 12.966, 12.966, 12.966, 12.966, 12.966, 12.966/ DATA PF537/ 1 13.308, 13.308, 13.308, 13.308, 13.308, 13.308, 13.308, 2 13.647, 13.647, 13.647, 13.647, 13.647, 13.647, 13.647, 3 13.983, 13.983, 13.983, 13.983, 13.983, 13.983, 13.983, 4 14.315, 14.315, 14.315, 14.315, 14.315, 14.315, 14.315, 5 14.643, 14.643, 14.643, 14.643, 14.643, 14.643, 14.643, 6 14.966, 14.966, 14.966, 14.966, 14.966, 14.966, 14.966, 7 15.285, 15.285, 15.285, 15.285, 15.285, 15.285, 15.285, 8 15.598, 15.598, 15.598, 15.598, 15.598, 15.598, 15.598, 9 15.906, 15.906, 15.906, 15.906, 15.906, 15.906, 15.906/ DATA PF538/ 1 16.209, 16.209, 16.209, 16.209, 16.209, 16.209, 16.209, 2 16.506, 16.506, 16.506, 16.506, 16.506, 16.506, 16.506, 3 16.798, 16.798, 16.798, 16.798, 16.798, 16.798, 16.798, 4 17.225, 17.225, 17.225, 17.225, 17.225, 17.225, 17.225, 5 17.641, 17.641, 17.641, 17.641, 17.641, 17.641, 17.641, 6 18.048, 18.048, 18.048, 18.048, 18.048, 18.048, 18.048, 7 18.448, 18.448, 18.448, 18.448, 18.448, 18.448, 18.448, 8 18.845, 18.845, 18.845, 18.845, 18.845, 18.845, 18.845, 9 19.244, 19.244, 19.244, 19.244, 19.244, 19.244, 19.244/ DATA PF539/ 1 19.653, 19.653, 19.653, 19.653, 19.653, 19.653, 19.653, 2 20.079, 20.079, 20.079, 20.079, 20.079, 20.079, 20.079, 3 20.532, 20.532, 20.532, 20.532, 20.532, 20.532, 20.532, 4 21.026, 21.026, 21.026, 21.026, 21.026, 21.026, 21.026, 5 21.972, 21.972, 21.972, 21.972, 21.972, 21.972, 21.972, 6 23.134, 23.134, 23.134, 23.134, 23.134, 23.134, 23.134, 7 24.587, 24.587, 24.587, 24.587, 24.587, 24.587, 24.587, 8 26.408, 26.408, 26.408, 26.408, 26.408, 26.408, 26.408, 9 28.666, 28.666, 28.666, 28.666, 28.666, 28.666, 28.666/ DATA PF540/ 1 31.425, 31.425, 31.425, 31.425, 31.425, 31.425, 31.425, 2 34.728, 34.728, 34.728, 34.728, 34.728, 34.728, 34.728, 3 38.606, 38.606, 38.606, 38.606, 38.606, 38.606, 38.606, 4 43.065, 43.065, 43.065, 43.065, 43.065, 43.065, 43.065, 5 48.094, 48.094, 48.094, 48.094, 48.094, 48.094, 48.094, 6 53.661, 53.661, 53.661, 53.661, 53.661, 53.661, 53.661, 7 59.717, 59.717, 59.717, 59.717, 59.717, 59.717, 59.717, 8 66.197, 66.197, 66.197, 66.197, 66.197, 66.197, 66.197, 9 73.026, 73.026, 73.026, 73.026, 73.026, 73.026, 73.026/ DATA PF541/ 1 80.126, 80.126, 80.126, 80.126, 80.126, 80.126, 80.126, 2 87.418, 87.418, 87.418, 87.418, 87.418, 87.418, 87.418, 3 94.843, 94.843, 94.843, 94.843, 94.843, 94.843, 94.843, 4 102.373, 102.373, 102.373, 102.373, 102.373, 102.373, 102.373, 5 110.050, 110.050, 110.050, 110.050, 110.050, 110.050, 110.050, 6 118.043, 118.043, 118.043, 118.043, 118.043, 118.043, 118.040, 7 126.756, 126.756, 126.756, 126.756, 126.754, 126.753, 126.741, 8 137.050, 137.050, 137.050, 137.050, 137.039, 137.038, 136.984, 9 150.652, 150.652, 150.651, 150.650, 150.608, 150.604, 150.407/ DATA PF542/ 1 170.855, 170.854, 170.853, 170.850, 170.713, 170.698, 170.072, 2 203.565, 203.563, 203.561, 203.550, 203.160, 203.117, 201.360, 3 258.613, 258.607, 258.601, 258.574, 257.579, 257.469, 253.063, 4 9.538, 9.538, 9.538, 9.538, 9.538, 9.538, 9.538, 5 9.852, 9.852, 9.852, 9.852, 9.852, 9.852, 9.852, 6 10.173, 10.173, 10.173, 10.173, 10.173, 10.173, 10.173, 7 10.502, 10.502, 10.502, 10.502, 10.502, 10.502, 10.502, 8 10.837, 10.837, 10.837, 10.837, 10.837, 10.837, 10.837, 9 11.178, 11.178, 11.178, 11.178, 11.178, 11.178, 11.178/ DATA PF543/ 1 11.524, 11.524, 11.524, 11.524, 11.524, 11.524, 11.524, 2 11.875, 11.875, 11.875, 11.875, 11.875, 11.875, 11.875, 3 12.230, 12.230, 12.230, 12.230, 12.230, 12.230, 12.230, 4 12.588, 12.588, 12.588, 12.588, 12.588, 12.588, 12.588, 5 12.948, 12.948, 12.948, 12.948, 12.948, 12.948, 12.948, 6 13.311, 13.311, 13.311, 13.311, 13.311, 13.311, 13.311, 7 13.675, 13.675, 13.675, 13.675, 13.675, 13.675, 13.675, 8 14.039, 14.039, 14.039, 14.039, 14.039, 14.039, 14.039, 9 14.404, 14.404, 14.404, 14.404, 14.404, 14.404, 14.404/ DATA PF544/ 1 14.769, 14.769, 14.769, 14.769, 14.769, 14.769, 14.769, 2 15.133, 15.133, 15.133, 15.133, 15.133, 15.133, 15.133, 3 15.496, 15.496, 15.496, 15.496, 15.496, 15.496, 15.496, 4 15.857, 15.857, 15.857, 15.857, 15.857, 15.857, 15.857, 5 16.218, 16.218, 16.218, 16.218, 16.218, 16.218, 16.218, 6 16.755, 16.755, 16.755, 16.755, 16.755, 16.755, 16.755, 7 17.290, 17.290, 17.290, 17.290, 17.290, 17.290, 17.290, 8 17.824, 17.824, 17.824, 17.824, 17.824, 17.824, 17.824, 9 18.360, 18.360, 18.360, 18.360, 18.360, 18.360, 18.360/ DATA PF545/ 1 18.899, 18.899, 18.899, 18.899, 18.899, 18.899, 18.899, 2 19.448, 19.448, 19.448, 19.448, 19.448, 19.448, 19.448, 3 20.010, 20.010, 20.010, 20.010, 20.010, 20.010, 20.010, 4 20.592, 20.592, 20.592, 20.592, 20.592, 20.592, 20.592, 5 21.202, 21.202, 21.202, 21.202, 21.202, 21.202, 21.202, 6 21.846, 21.846, 21.846, 21.846, 21.846, 21.846, 21.846, 7 23.018, 23.018, 23.018, 23.018, 23.018, 23.018, 23.018, 8 24.347, 24.347, 24.347, 24.347, 24.347, 24.347, 24.347, 9 25.866, 25.866, 25.866, 25.866, 25.866, 25.866, 25.866/ DATA PF546/ 1 27.608, 27.608, 27.608, 27.608, 27.608, 27.608, 27.608, 2 29.596, 29.596, 29.596, 29.596, 29.596, 29.596, 29.596, 3 31.843, 31.843, 31.843, 31.843, 31.843, 31.843, 31.843, 4 34.353, 34.353, 34.353, 34.353, 34.353, 34.353, 34.353, 5 37.120, 37.120, 37.120, 37.120, 37.120, 37.120, 37.120, 6 40.127, 40.127, 40.127, 40.127, 40.127, 40.127, 40.127, 7 43.351, 43.351, 43.351, 43.351, 43.351, 43.351, 43.351, 8 46.760, 46.760, 46.760, 46.760, 46.760, 46.760, 46.760, 9 50.319, 50.319, 50.319, 50.319, 50.319, 50.319, 50.319/ DATA PF547/ 1 53.988, 53.988, 53.988, 53.988, 53.988, 53.988, 53.988, 2 57.726, 57.726, 57.726, 57.726, 57.726, 57.726, 57.726, 3 61.494, 61.494, 61.494, 61.494, 61.494, 61.494, 61.494, 4 65.255, 65.255, 65.255, 65.255, 65.255, 65.255, 65.255, 5 68.983, 68.983, 68.983, 68.983, 68.983, 68.983, 68.983, 6 72.666, 72.666, 72.666, 72.666, 72.666, 72.666, 72.666, 7 76.329, 76.329, 76.329, 76.329, 76.329, 76.329, 76.329, 8 80.060, 80.060, 80.060, 80.060, 80.060, 80.060, 80.060, 9 84.053, 84.053, 84.053, 84.053, 84.053, 84.053, 84.053/ DATA PF548/ 1 88.676, 88.676, 88.676, 88.676, 88.676, 88.676, 88.676, 2 94.564, 94.564, 94.564, 94.564, 94.564, 94.564, 94.563, 3 102.781, 102.781, 102.781, 102.781, 102.781, 102.779, 102.777, 4 115.070, 115.070, 115.070, 115.069, 115.068, 115.064, 115.057, 5 134.233, 134.233, 134.233, 134.231, 134.229, 134.214, 134.194, 6 7.464, 7.464, 7.464, 7.464, 7.464, 7.464, 7.464, 7 7.652, 7.652, 7.652, 7.652, 7.652, 7.652, 7.652, 8 7.848, 7.848, 7.848, 7.848, 7.848, 7.848, 7.848, 9 8.050, 8.050, 8.050, 8.050, 8.050, 8.050, 8.050/ DATA PF549/ 1 8.259, 8.259, 8.259, 8.259, 8.259, 8.259, 8.259, 2 8.474, 8.474, 8.474, 8.474, 8.474, 8.474, 8.474, 3 8.695, 8.695, 8.695, 8.695, 8.695, 8.695, 8.695, 4 8.922, 8.922, 8.922, 8.922, 8.922, 8.922, 8.922, 5 9.153, 9.153, 9.153, 9.153, 9.153, 9.153, 9.153, 6 9.389, 9.389, 9.389, 9.389, 9.389, 9.389, 9.389, 7 9.629, 9.629, 9.629, 9.629, 9.629, 9.629, 9.629, 8 9.872, 9.872, 9.872, 9.872, 9.872, 9.872, 9.872, 9 10.119, 10.119, 10.119, 10.119, 10.119, 10.119, 10.119/ DATA PF550/ 1 10.368, 10.368, 10.368, 10.368, 10.368, 10.368, 10.368, 2 10.620, 10.620, 10.620, 10.620, 10.620, 10.620, 10.620, 3 10.873, 10.873, 10.873, 10.873, 10.873, 10.873, 10.873, 4 11.128, 11.128, 11.128, 11.128, 11.128, 11.128, 11.128, 5 11.384, 11.384, 11.384, 11.384, 11.384, 11.384, 11.384, 6 11.641, 11.641, 11.641, 11.641, 11.641, 11.641, 11.641, 7 11.899, 11.899, 11.899, 11.899, 11.899, 11.899, 11.899, 8 12.286, 12.286, 12.286, 12.286, 12.286, 12.286, 12.286, 9 12.675, 12.675, 12.675, 12.675, 12.675, 12.675, 12.675/ DATA PF551/ 1 13.065, 13.065, 13.065, 13.065, 13.065, 13.065, 13.065, 2 13.456, 13.456, 13.456, 13.456, 13.456, 13.456, 13.456, 3 13.850, 13.850, 13.850, 13.850, 13.850, 13.850, 13.850, 4 14.247, 14.247, 14.247, 14.247, 14.247, 14.247, 14.247, 5 14.650, 14.650, 14.650, 14.650, 14.650, 14.650, 14.650, 6 15.059, 15.059, 15.059, 15.059, 15.059, 15.059, 15.059, 7 15.477, 15.477, 15.477, 15.477, 15.477, 15.477, 15.477, 8 15.905, 15.905, 15.905, 15.905, 15.905, 15.905, 15.905, 9 16.648, 16.648, 16.648, 16.648, 16.648, 16.648, 16.648/ DATA PF552/ 1 17.433, 17.433, 17.433, 17.433, 17.433, 17.433, 17.433, 2 18.269, 18.269, 18.269, 18.269, 18.269, 18.269, 18.269, 3 19.161, 19.161, 19.161, 19.161, 19.161, 19.161, 19.161, 4 20.108, 20.108, 20.108, 20.108, 20.108, 20.108, 20.108, 5 21.111, 21.111, 21.111, 21.111, 21.111, 21.111, 21.111, 6 22.165, 22.165, 22.165, 22.165, 22.165, 22.165, 22.165, 7 23.262, 23.262, 23.262, 23.262, 23.262, 23.262, 23.262, 8 24.394, 24.394, 24.394, 24.394, 24.394, 24.394, 24.394, 9 25.548, 25.548, 25.548, 25.548, 25.548, 25.548, 25.548/ DATA PF553/ 1 26.715, 26.715, 26.715, 26.715, 26.715, 26.715, 26.715, 2 27.880, 27.880, 27.880, 27.880, 27.880, 27.880, 27.880, 3 29.034, 29.034, 29.034, 29.034, 29.034, 29.034, 29.034, 4 30.166, 30.166, 30.166, 30.166, 30.166, 30.166, 30.166, 5 31.267, 31.267, 31.267, 31.267, 31.267, 31.267, 31.267, 6 32.332, 32.332, 32.332, 32.332, 32.332, 32.332, 32.332, 7 33.358, 33.358, 33.358, 33.358, 33.358, 33.358, 33.358, 8 34.354, 34.354, 34.354, 34.354, 34.354, 34.354, 34.354, 9 35.348, 35.348, 35.348, 35.348, 35.348, 35.348, 35.348/ DATA PF554/ 1 36.396, 36.396, 36.396, 36.396, 36.396, 36.396, 36.396, 2 37.608, 37.608, 37.608, 37.608, 37.608, 37.608, 37.608, 3 39.157, 39.157, 39.157, 39.157, 39.157, 39.157, 39.157, 4 41.311, 41.311, 41.311, 41.311, 41.311, 41.311, 41.311, 5 44.442, 44.442, 44.442, 44.442, 44.442, 44.442, 44.442, 6 49.065, 49.065, 49.065, 49.065, 49.065, 49.065, 49.065, 7 55.870, 55.870, 55.870, 55.870, 55.870, 55.870, 55.870, 8 4.672, 4.672, 4.672, 4.672, 4.672, 4.672, 4.672, 9 4.742, 4.742, 4.742, 4.742, 4.742, 4.742, 4.742/ DATA PF555/ 1 4.815, 4.815, 4.815, 4.815, 4.815, 4.815, 4.815, 2 4.892, 4.892, 4.892, 4.892, 4.892, 4.892, 4.892, 3 4.972, 4.972, 4.972, 4.972, 4.972, 4.972, 4.972, 4 5.055, 5.055, 5.055, 5.055, 5.055, 5.055, 5.055, 5 5.141, 5.141, 5.141, 5.141, 5.141, 5.141, 5.141, 6 5.229, 5.229, 5.229, 5.229, 5.229, 5.229, 5.229, 7 5.320, 5.320, 5.320, 5.320, 5.320, 5.320, 5.320, 8 5.413, 5.413, 5.413, 5.413, 5.413, 5.413, 5.413, 9 5.508, 5.508, 5.508, 5.508, 5.508, 5.508, 5.508/ DATA PF556/ 1 5.605, 5.605, 5.605, 5.605, 5.605, 5.605, 5.605, 2 5.703, 5.703, 5.703, 5.703, 5.703, 5.703, 5.703, 3 5.802, 5.802, 5.802, 5.802, 5.802, 5.802, 5.802, 4 5.903, 5.903, 5.903, 5.903, 5.903, 5.903, 5.903, 5 6.004, 6.004, 6.004, 6.004, 6.004, 6.004, 6.004, 6 6.105, 6.105, 6.105, 6.105, 6.105, 6.105, 6.105, 7 6.207, 6.207, 6.207, 6.207, 6.207, 6.207, 6.207, 8 6.308, 6.308, 6.308, 6.308, 6.308, 6.308, 6.308, 9 6.410, 6.410, 6.410, 6.410, 6.410, 6.410, 6.410/ DATA PF557/ 1 6.561, 6.561, 6.561, 6.561, 6.561, 6.561, 6.561, 2 6.711, 6.711, 6.711, 6.711, 6.711, 6.711, 6.711, 3 6.858, 6.858, 6.858, 6.858, 6.858, 6.858, 6.858, 4 7.003, 7.003, 7.003, 7.003, 7.003, 7.003, 7.003, 5 7.145, 7.145, 7.145, 7.145, 7.145, 7.145, 7.145, 6 7.284, 7.284, 7.284, 7.284, 7.284, 7.284, 7.284, 7 7.419, 7.419, 7.419, 7.419, 7.419, 7.419, 7.419, 8 7.549, 7.549, 7.549, 7.549, 7.549, 7.549, 7.549, 9 7.676, 7.676, 7.676, 7.676, 7.676, 7.676, 7.676/ DATA PF558/ 1 7.798, 7.798, 7.798, 7.798, 7.798, 7.798, 7.798, 2 7.992, 7.992, 7.992, 7.992, 7.992, 7.992, 7.992, 3 8.173, 8.173, 8.173, 8.173, 8.173, 8.173, 8.173, 4 8.341, 8.341, 8.341, 8.341, 8.341, 8.341, 8.341, 5 8.496, 8.496, 8.496, 8.496, 8.496, 8.496, 8.496, 6 8.640, 8.640, 8.640, 8.640, 8.640, 8.640, 8.640, 7 8.771, 8.771, 8.771, 8.771, 8.771, 8.771, 8.771, 8 8.892, 8.892, 8.892, 8.892, 8.892, 8.892, 8.892, 9 9.001, 9.001, 9.001, 9.001, 9.001, 9.001, 9.001/ DATA PF559/ 1 9.101, 9.101, 9.101, 9.101, 9.101, 9.101, 9.101, 2 9.192, 9.192, 9.192, 9.192, 9.192, 9.192, 9.192, 3 9.275, 9.275, 9.275, 9.275, 9.275, 9.275, 9.275, 4 9.349, 9.349, 9.349, 9.349, 9.349, 9.349, 9.349, 5 9.416, 9.416, 9.416, 9.416, 9.416, 9.416, 9.416, 6 9.477, 9.477, 9.477, 9.477, 9.477, 9.477, 9.477, 7 9.532, 9.532, 9.532, 9.532, 9.532, 9.532, 9.532, 8 9.583, 9.583, 9.583, 9.583, 9.583, 9.583, 9.583, 9 9.633, 9.633, 9.633, 9.633, 9.633, 9.633, 9.633/ DATA PF560/ 1 9.689, 9.689, 9.689, 9.689, 9.689, 9.689, 9.689, 2 9.766, 9.766, 9.766, 9.766, 9.766, 9.766, 9.766, 3 9.891, 9.891, 9.891, 9.891, 9.891, 9.891, 9.891, 4 10.111, 10.111, 10.111, 10.111, 10.111, 10.111, 10.111, 5 10.499, 10.499, 10.499, 10.499, 10.499, 10.499, 10.499, 6 11.155, 11.155, 11.155, 11.155, 11.155, 11.155, 11.155, 7 12.209, 12.209, 12.209, 12.209, 12.209, 12.209, 12.209, 8 13.817, 13.817, 13.817, 13.817, 13.817, 13.817, 13.817, 9 16.163, 16.163, 16.163, 16.163, 16.163, 16.163, 16.163/ DATA POTLO/500.,1000.,2000.,4000.,8000.,16000.,32000./ DATA POTLOLOG/2.69897,3.,3.30103,3.60206,3.90309,4.20412,4.50515/ C IF(PFTAB(1,1,1,1).EQ.0.)THEN C OPEN(UNIT=4,FILE='KU2A:[KURUCZ.SYNTHE]PFIRON.DAT', C 1STATUS='OLD',SHARED,READONLY) C READ(4,1)PFTAB C 1 FORMAT(26X,7F10.3) C ENDIF C123456789012345678901234567890 C 20.09 56 199526. 4.211 4.211 4.211 4.211 4.211 4.211 4.211 TLOG=TLOG8 POTLOW=POTLOW8 IF(TLOG.GT.4.)GO TO 20 IF(TLOG.LT.3.7)GO TO 10 IT=(TLOG-3.7)/.03+21. F=(TLOG-(IT-21)*.03-3.7)/.03 GO TO 30 10 IT=(TLOG-3.32)/.02+2. IT=MAX(IT,2) F=(TLOG-(IT-2)*.02-3.32)/.02 GO TO 30 20 IT=(TLOG-4.0)/.05+31. IT=MIN(IT,56) F=(TLOG-(IT-31)*.05-4.)/.05 30 LOW=1 IF(POTLOW.LT.POTLO(LOW))GO TO 32 DO 31 LOW=2,7 IF(POTLOW.LT.POTLO(LOW))GO TO 35 31 CONTINUE LOW=7 32 PF=F*PFTAB(LOW,IT,ION,NELEM-19)+ 1 (1.-F)*PFTAB(LOW,IT-1,ION,NELEM-19) RETURN 35 P=(LOG10(POTLOW)-POTLOLOG(LOW-1))/.30103 PF=P*(F*PFTAB(LOW,IT,ION,NELEM-19)+ 1 (1.-F)*PFTAB(LOW,IT-1,ION,NELEM-19))+ 2 (1.-P)*(F*PFTAB(LOW-1,IT,ION,NELEM-19)+ 3 (1.-F)*PFTAB(LOW-1,IT-1,ION,NELEM-19)) RETURN END SUBROUTINE BEGTIME C WRITES OUT ELAPSED SYSTEM ACCOUNTING MESSAGE PARAMETER (SS$_ABORT='002C'X) IF(.NOT.LIB$INIT_TIMER())CALL LIB$STOP(%VAL(SS$_ABORT)) RETURN ENTRY ENDTIME IF(.NOT.LIB$SHOW_TIMER())CALL LIB$STOP(%VAL(SS$_ABORT)) RETURN END FUNCTION PFGROUND(NELION,T) C 14jun2004 additional levels added that are above the ground term but c populated at low temperatures C La up still missing C FOR H-K, CU-BA PARAMETER (HCK=6.6256E-27*2.99792458E10/1.38054E-16) IMPLICIT REAL*8 (A-H,O-Z) IF(NELION.LE.114)THEN GO TO (1,2,2,2,2,2,7,8,9,9,9,9,13,14,15,16,16,16,19,20,21,22, 1 23,23,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42, 2 43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62, 3 63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82, 4 83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102, 5 103,104,105,106,107,108,109,110,111,112,113,114),NELION C 1.00 1 PFGROUND=2. RETURN C 1.01 2 PFGROUND=1. RETURN C 2.00 7 PFGROUND=1. RETURN C 2.01 8 PFGROUND=2. RETURN C 2.02 9 PFGROUND=1. RETURN C 3.00 13 PFGROUND=2. RETURN C 3.01 14 PFGROUND=1. RETURN C 3.02 15 PFGROUND=2. RETURN C 3.03 16 PFGROUND=1. RETURN C 4.00 19 PFGROUND=1. RETURN C 4.01 20 PFGROUND=2. RETURN C 4.02 21 PFGROUND=1. RETURN C 4.03 22 PFGROUND=2. RETURN C 4.04 23 PFGROUND=1. C 5.00 25 PFGROUND=2.+4.*EXP(-HCK/T*15.254) RETURN C 5.01 26 PFGROUND=1.+1.*EXP(-HCK/T*37336.7)+3.*EXP(-HCK/T*37342.4)+ 15.*EXP(-HCK/T* 37358.3)+3.*EXP(-HCK/T*73396.60) RETURN C 5.02 27 PFGROUND=2.+2.*EXP(-HCK/T*48358.40)+4.*EXP(-HCK/T*48392.50) RETURN C 5.03 28 PFGROUND=1. RETURN C 5.04 29 PFGROUND=2. RETURN C 5.05 30 PFGROUND=1. RETURN C 6.00 31 PFGROUND=1.+3.*EXP(-HCK/T*16.40)+5.*EXP(-HCK/T*43.40)+ 1 5.*EXP(-HCK/T*10192.63) RETURN C 6.01 32 PFGROUND=2.+4.*EXP(-HCK/T*63.42) RETURN C 6.02 33 PFGROUND=1. RETURN C 6.03 34 PFGROUND=2.+2.*EXP(-HCK/T*64484.0)+4.*EXP(-HCK/T*64591.7) RETURN C 6.04 35 PFGROUND=1. RETURN C 6.05 36 PFGROUND=2. RETURN C 7.00 37 PFGROUND=4. RETURN C 7.01 38 PFGROUND=1.+3.*EXP(-HCK/T*48.7)+5.*EXP(-HCK/T*130.8)+ 1 5.*EXP(-HCK/T*15316.2) RETURN C 7.02 39 PFGROUND=2.+4.*EXP(-HCK/T*174.4) RETURN C 7.03 40 PFGROUND=1. RETURN C 7.04 41 PFGROUND=2.+2.*EXP(-HCK/T*80463.2)+4.*EXP(-HCK/T*80721.9) RETURN C 7.05 42 PFGROUND=1. RETURN C 8.00 43 PFGROUND=5.+3.*EXP(-HCK/T*158.265)+EXP(-HCK/T*226.977) RETURN C 8.01 44 PFGROUND=4.+6.*EXP(-HCK/T*26810.55)+4.*EXP(-HCK/T*26830.57) RETURN C 8.02 45 PFGROUND=1.+3.*EXP(-HCK/T*113.178)+5.*EXP(-HCK/T*306.174)+ 1 5.*EXP(-HCK/T*20273.27)+1.*EXP(-HCK/T*43185.74)+ 2 5.*EXP(-HCK/T*60324.79) RETURN C 8.03 46 PFGROUND=2.+4.*EXP(-HCK/T*385.9)+2.*EXP(-HCK/T*71439.8)+ 1 4.*EXP(-HCK/T*71570.1)+6.*EXP(-HCK/T*71755.5) RETURN C 8.04 47 PFGROUND=1.+1.*EXP(-HCK/T*81942.5)+3.*EXP(-HCK/T*82078.6)+ 1 5.*EXP(-HCK/T*82385.3) RETURN C 8.05 48 PFGROUND=2.+2.*EXP(-HCK/T*96375.0)+4.*EXP(-HCK/T*96907.5) RETURN C 9.00 49 PFGROUND=4.+2.*EXP(-HCK/T*404.1) RETURN C 9.01 50 PFGROUND=5.+3.*EXP(-HCK/T*341.0)+EXP(-HCK/T*489.9)+ 1 5.*EXP(-HCK/T*20873.4)+1.*EXP(-HCK/T*44918.1) RETURN C 9.02 51 PFGROUND=4.+6.*EXP(-HCK/T*34087.4)+4.*EXP(-HCK/T*34123.2)+ 1 4.*EXP(-HCK/T*51561.4)+2.*EXP(-HCK/T*51560.6) RETURN C 9.03 52 PFGROUND=1.+3.*EXP(-HCK/T*225.2)+5.*EXP(-HCK/T*612.2)+ 1 5.*EXP(-HCK/T*25238.2)+1.*EXP(-HCK/T*53541.2)+ 2 5.*EXP(-HCK/T*74194.7) RETURN C 9.04 53 PFGROUND=2.+4.*EXP(-HCK/T*744.5)+ 1 2.*EXP(-HCK/T*85790.2)+4.*EXP(-HCK/T*86043.5)+ 2 6.*EXP(-HCK/T*86407.0) RETURN C 9.05 54 PFGROUND=1.+1.*EXP(-HCK/T*96590.)+3.*EXP(-HCK/T*96850.)+ 1 5.*(-HCK/T*97427.) RETURN C 10.00 55 PFGROUND=1. RETURN C 10.01 56 PFGROUND=4.+2.*EXP(-HCK/T*780.45) RETURN C 10.02 57 PFGROUND=5.+3.*EXP(-HCK/T*642.9)+EXP(-HCK/T*920.4)+ 1 4.*EXP(-HCK/T*96907.5)+5.*EXP(-HCK/T*25840.8)+ 2 1.*EXP(-HCK/T*55750.6) RETURN C 10.03 58 PFGROUND=4.+6.*EXP(-HCK/T*41234.6)+4.*EXP(-HCK/T*41279.5)+ 1 2.*EXP(-HCK/T*62434.6)+4.*EXP(-HCK/T*62441.3) RETURN C 10.04 59 PFGROUND=1.+3.*EXP(-HCK/T*414.)+5.*EXP(-HCK/T*1112.)+ 1 5.*EXP(-HCK/T*30291.5)+1.*EXP(-HCK/T*63913.6)+ 2 5.*EXP(-HCK/T*88360.) RETURN C 10.05 60 PFGROUND=2.+4.*EXP(-HCK/T*1310.)+2.*EXP(-HCK/T*100261.)+ 1 4.*EXP(-HCK/T*100704.)+6.*EXP(-HCK/T*101347.) RETURN C 11.00 61 PFGROUND=2. RETURN C 11.01 62 PFGROUND=1. RETURN C 11.02 63 PFGROUND=4.+2.*EXP(-HCK/T*780.45) RETURN C 11.03 64 PFGROUND=5.+3.*EXP(-HCK/T*642.9)+EXP(-HCK/T*920.4)+ 1 5.*EXP(-HCK/T*30839.8)+1.*EXP(-HCK/T*66496.) RETURN C 11.04 65 PFGROUND=4.+6.*EXP(-HCK/T*48330.)+4.*EXP(-HCK/T*48366.)+ 1 2.*EXP(-HCK/T*73218.)+4.*EXP(-HCK/T*73255.) RETURN C 11.05 66 PFGROUND=1.+3.*EXP(-HCK/T*414.)+5.*EXP(-HCK/T*1112.)+ 1 5.*EXP(-HCK/T*35498.)+1.*EXP(-HCK/T*74414.) RETURN C 12.00 67 PFGROUND=1. RETURN C 12.01 68 PFGROUND=2. RETURN C 12.02 69 PFGROUND=1. RETURN C 12.03 70 PFGROUND=4.+2.*EXP(-HCK/T*2238.) RETURN C 12.04 71 PFGROUND=5.+3.*EXP(-HCK/T*1782.1)+EXP(-HCK/T*2521.8)+ 1 5.*EXP(-HCK/T*35926.)+1.*EXP(-HCK/T*77279.) RETURN C 12.05 72 PFGROUND=4.+6.*EXP(-HCK/T*55356.)+4.*EXP(-HCK/T*55372.8)+ 1 2.*EXP(-HCK/T*83920.0)+4.*EXP(-HCK/T*84028.4) RETURN C 13.00 73 PFGROUND=2.+4.*EXP(-HCK/T*112.061) RETURN C 13.01 74 PFGROUND=1. RETURN C 13.02 75 PFGROUND=2. RETURN C 13.03 76 PFGROUND=1. RETURN C 13.04 77 PFGROUND=4.+2.*EXP(-HCK/T*3442.) RETURN C 13.05 78 PFGROUND=5.+3.*EXP(-HCK/T*2732.)+EXP(-HCK/T*3829.)+ 1 5.*EXP(-HCK/T*41167.)+1.*EXP(-HCK/T*88213.) RETURN C 14.00 79 PFGROUND=1.+3.*EXP(-HCK/T*77.115)+5.*EXP(-HCK/T*223.157)+ 1 5.*EXP(-HCK/T*6298.850) RETURN C 14.01 80 PFGROUND=2.+4.*EXP(-HCK/T*287.32)+2.*EXP(-HCK/T*42824.35)+ 1 4.*EXP(-HCK/T*42932.68)+6.*EXP(-HCK/T*43107.97) RETURN C 14.02 81 PFGROUND=1.+1.*EXP(-HCK/T*52724.69)+3.*EXP(-HCK/T*52853.28)+ 1 5.*EXP(-HCK/T*53115.01)+3.*EXP(-HCK/T*82884.41) RETURN C 14.03 82 PFGROUND=2. RETURN C 14.04 83 PFGROUND=1. RETURN C 14.05 84 PFGROUND=4.+2.*EXP(-HCK/T*5090.) RETURN C 15.00 85 PFGROUND=4. RETURN C 15.01 86 PFGROUND=1.+3.*EXP(-HCK/T*164.90)+5.*EXP(-HCK/T*469.12)+ 1 5.*EXP(-HCK/T*8882.31)+1.*EXP(-HCK/T*21575.63) RETURN C 15.02 87 PFGROUND=2.+4.*EXP(-HCK/T*559.14)+2.*EXP(-HCK/T*56021.67)+ 1 4.*EXP(-HCK/T*57125.98)+6.*EXP(-HCK/T*57454.00)+ 2 4.*EXP(-HCK/T*74916.85)+6.*EXP(-HCK/T*74945.86) RETURN C 15.03 88 PFGROUND=1.+1.*EXP(-HCK/T*67918.03)+3.*EXP(-HCK/T*68146.48)+ 1 5.*EXP(-HCK/T*68615.17) RETURN C 15.04 89 PFGROUND=2.+2.*EXP(-HCK/T*88651.87)+4.*EXP(-HCK/T*89447.25) RETURN C 15.05 90 PFGROUND=1. RETURN C 16.00 91 PFGROUND=5.+3.*EXP(-HCK/T*396.055)+EXP(-HCK/T*573.640)+ 1 5.*EXP(-HCK/T*9238.609) RETURN C 16.01 92 PFGROUND=4.+4.*EXP(-HCK/T*14852.94)+6.*EXP(-HCK/T*14884.73)+ 1 2.*EXP(-HCK/T*24524.83)+4.*EXP(-HCK/T*24571.54) RETURN C 16.02 93 PFGROUND=1.+3.*EXP(-HCK/T*298.69)+5.*EXP(-HCK/T*833.08)+ 1 5.*EXP(-HCK/T*11322.7)+1.*EXP(-HCK/T*27161.0) RETURN C 16.03 94 PFGROUND=2.+4.*EXP(-HCK/T*951.43)+2.*EXP(-HCK/T*71184.1)+ 1 4.*EXP(-HCK/T*71528.7)+6.*EXP(-HCK/T*72074.4)+ 2 4.*EXP(-HCK/T*94103.1)+6.*EXP(-HCK/T*94150.4) RETURN C 16.04 95 PFGROUND=1.+1.*EXP(-HCK/T*83024.0)+3.*EXP(-HCK/T*83393.5)+ 1 5.*EXP(-HCK/T*84155.2) RETURN C 16.05 96 PFGROUND=2. RETURN C 17.00 97 PFGROUND=4.+2.*EXP(-HCK/T*882.36) RETURN C 17.01 98 PFGROUND=5.+3.*EXP(-HCK/T*696.1)+EXP(-HCK/T*996.4)+ 1 5.*EXP(-HCK/T*11653.58)+1.*EXP(-HCK/T*27878.02) RETURN C 17.02 99 PFGROUND=4.+4.*EXP(-HCK/T*18053.)+6.*EXP(-HCK/T*18118.6)+ 1 2.*EXP(-HCK/T*29812.)+4.*EXP(-HCK/T*29907.) RETURN C 17.03 100 PFGROUND=1.+3.*EXP(-HCK/T*491.)+5.*EXP(-HCK/T*1341.)+ 1 5.*EXP(-HCK/T*13767.6)+1.*EXP(-HCK/T*32547.8)+ 2 5.*EXP(-HCK/T*65000.) RETURN C 17.04 101 PFGROUND=2.+4.*EXP(-HCK/T*1490.8)+2.*EXP(-HCK/T*86000.)+ 1 4.*EXP(-HCK/T*86538.)+6.*EXP(-HCK/T*87381.) RETURN C 17.05 102 PFGROUND=1.+1.*EXP(-HCK/T*97405.)+3.*EXP(-HCK/T*97958.)+ 1 5.*EXP(-HCK/T*99123.) RETURN C 18.00 103 PFGROUND=1. RETURN C 18.01 104 PFGROUND=4.+2.*EXP(-HCK/T*1431.41) RETURN C 18.02 105 PFGROUND=5.+3.*EXP(-HCK/T*1112.1)+EXP(-HCK/T*1570.2)+ 1 5.*EXP(-HCK/T*14010.004)+1.*EXP(-HCK/T*33265.724) RETURN C 18.03 106 PFGROUND=4.+4.*EXP(-HCK/T*21090.4)+6.*EXP(-HCK/T*21219.3)+ 1 2.*EXP(-HCK/T*34855.5)+4.*EXP(-HCK/T*35032.6) RETURN C 18.04 107 PFGROUND=1.+3.*EXP(-HCK/T*765.)+5.*EXP(-HCK/T*2030.)+ 1 5.*EXP(-HCK/T*16298.9)+1.*EXP(-HCK/T*37912.0)+ 2 5.*EXP(-HCK/T*84100.0) RETURN C 18.05 108 PFGROUND=2.+4.*EXP(-HCK/T*2208.) RETURN C 19.00 109 PFGROUND=2. RETURN C 19.01 110 PFGROUND=1. RETURN C 19.02 111 PFGROUND=4.+2.*EXP(-HCK/T*2166.) RETURN C 19.03 112 PFGROUND=5.+3.*EXP(-HCK/T*1673.)+EXP(-HCK/T*2325.)+ 1 5.*EXP(-HCK/T*16384.1)+EXP(-HCK/T*38546.3) RETURN C 19.04 113 PFGROUND=4.+4.*EXP(-HCK/T*24012.5)+6.*EXP(-HCK/T*24249.6)+ 1 2.*EXP(-HCK/T*39758.1)+4.*EXP(-HCK/T*40080.2) RETURN C 19.05 114 PFGROUND=1.+3.*EXP(-HCK/T*1132.)+5.*EXP(-HCK/T*2924.)+ 1 5.*EXP(-HCK/T*18977.8)+1.*EXP(-HCK/T*43358.8) RETURN ENDIF IF(NELION.GT.114.AND.NELION.LT.169)THEN C THESE ARE IRON GROUP ELEMENTS TO BE READ FROM PFIRON PFGROUND=1. RETURN ENDIF IF(NELION.GT.168.AND.NELION.LT.337)THEN GO TO (169,170,171,2,2,2,175,176,177,2,2,2,181,182,183,2,2,2, 1 187,188,189,2,2,2,193,194,195,2,2,2,199,200,201,2,2,2, 2 205,206,207,2,2,2,211,212,213,2,2,2,217,218,219,2,2,2, 3 223,224,225,2,2,2,229,230,231,2,2,2,235,236,237,2,2,2, 4 241,242,243,2,2,2,247,248,249,2,2,2,253,254,255,2,2,2, 5 259,260,261,2,2,2,265,266,267,2,2,2,271,272,273,2,2,2, 6 277,278,279,2,2,2,283,284,285,2,2,2,289,290,291,2,2,2, 7 295,296,297,2,2,2,301,302,303,2,2,2,307,308,309,2,2,2, 8 313,314,315,2,2,2,319,320,321,2,2,2,325,326,327,2,2,2, 9 331,332,333,2,2,2),NELION-168 C 29.00 169 PFGROUND=2. RETURN C 29.01 170 PFGROUND=1. RETURN C 29.02 171 PFGROUND=6.+4.*EXP(-HCK/T*2071.8) RETURN C 30.00 175 PFGROUND=1. RETURN C 30.01 176 PFGROUND=2. RETURN C 30.02 177 PFGROUND=1. RETURN C 31.00 181 PFGROUND=2.+4.*EXP(-HCK/T*826.19) RETURN C 31.01 182 PFGROUND=1. RETURN C 31.02 183 PFGROUND=2. RETURN C 32.00 187 PFGROUND=1.+3.*EXP(-HCK/T*557.134)+5.*EXP(-HCK/T*1409.961)+ 1 5.*EXP(-HCK/T*7125.299) RETURN C 32.01 188 PFGROUND=2.+4.*EXP(-HCK/T*1767.356) RETURN C 32.02 189 PFGROUND=1. RETURN C 33.00 193 PFGROUND=4. RETURN C 33.01 194 PFGROUND=1.+3.*EXP(-HCK/T*1061.)+5.*EXP(-HCK/T*2538.) RETURN C 33.02 195 PFGROUND=2.+4.*EXP(-HCK/T*2940.) RETURN C 34.00 199 PFGROUND=5.+3.*EXP(-HCK/T*1989.49)+EXP(-HCK/T*2534.35)+ 1 5.*EXP(-HCK/T*9576.149)+1.*EXP(-HCK/T*22446.202) RETURN C 34.01 200 PFGROUND=4.+4.*EXP(-HCK/T*13168.2)+6.*EXP(-HCK/T*13784.4)+ 1 2.*EXP(-HCK/T*23038.3)+4.*EXP(-HCK/T*23894.8) RETURN C 34.02 201 PFGROUND=1.+3.*EXP(-HCK/T*1741.)+5.*EXP(-HCK/T*3937.)+ 1 5.*EXP(-HCK/T*13032.)+1.*EXP(-HCK/T*28430.) RETURN C 35.00 205 PFGROUND=4.+2.*EXP(-HCK/T*3685.24) RETURN C 35.01 206 PFGROUND=5.+3.*EXP(-HCK/T*3136.4)+EXP(-HCK/T*3837.5)+ 1 5.*EXP(-HCK/T*12089.1) RETURN C 35.02 207 PFGROUND=4.+4.*EXP(-HCK/T*15042.0)+6.*EXP(-HCK/T*16301.0)+ 1 2.*EXP(-HCK/T*26915.0)+4.*EXP(-HCK/T*28579.0) RETURN C 36.00 211 PFGROUND=1. RETURN C 36.01 212 PFGROUND=4.+2.*EXP(-HCK/T*5371.) RETURN C 36.02 213 PFGROUND=5.+3.*EXP(-HCK/T*3136.4)+EXP(-HCK/T*3837.5)+ 1 5.*EXP(-HCK/T*14644.3)+1.*EXP(-HCK/T*33079.6) RETURN C 37.00 217 PFGROUND=2. RETURN C 37.01 218 PFGROUND=1. RETURN C 37.02 219 PFGROUND=4.+2.*EXP(-HCK/T*7380.) RETURN C 38.00 223 PFGROUND=1. RETURN C 38.01 224 PFGROUND=2.+4.*EXP(-HCK/T*14555.50)+6.*EXP(-HCK/T*14836.24) RETURN C 38.02 225 PFGROUND=1. RETURN C 39.00 229 PFGROUND=4.+6.*EXP(-HCK/T*530.36) RETURN C 39.01 230 PFGROUND=1.+3.*EXP(-HCK/T*840.198)+5.*EXP(-HCK/T*1045.076)+ 1 7.*EXP(-HCK/T*1449.752)+5.*EXP(-HCK/T*3296.280)+ 2 5.*EXP(-HCK/T*8003.126)+7.*EXP(-HCK/T*8328.039)+ 3 9.*EXP(-HCK/T*8743.322) RETURN C 39.02 231 PFGROUND=4.+6.*EXP(-HCK/T*724.15)+2.*EXP(-HCK/T*7467.10) RETURN C 40.00 235 PFGROUND=5.+7.*EXP(-HCK/T*570.41)+9.*EXP(-HCK/T*1240.84)+ 1 1.*EXP(-HCK/T*4196.85)+3.*EXP(-HCK/T*4376.28)+ 2 5.*EXP(-HCK/T*4186.11)+3.*EXP(-HCK/T*4870.53)+ 3 5.*EXP(-HCK/T*5023.41)+7.*EXP(-HCK/T*5249.07)+ 4 9.*EXP(-HCK/T*5540.54)+11.*EXP(-HCK/T*5888.93)+ 5 5.*EXP(-HCK/T*5101.68)+9.*EXP(-HCK/T*8057.30) RETURN C 40.01 236 PFGROUND=4.+6.*EXP(-HCK/T*314.67)+8.*EXP(-HCK/T*763.44)+ 1 10.*EXP(-HCK/T*1322.91)+4.*EXP(-HCK/T*2572.21)+ 2 6.*EXP(-HCK/T*2895.00)+8.*EXP(-HCK/T*3299.58)+ 3 10.*EXP(-HCK/T*3757.63)+4.*EXP(-HCK/T*4247.97)+ 4 6.*EXP(-HCK/T*4505.30)+2.*EXP(-HCK/T*5723.78)+ 5 4.*EXP(-HCK/T*6111.16)+6.*EXP(-HCK/T*5752.55)+ 6 8.*EXP(-HCK/T*6467.10)+2.*EXP(-HCK/T*7512.61)+ 7 4.*EXP(-HCK/T*7736.05)+6.*EXP(-HCK/T*8058.27)+ 8 8.*EXP(-HCK/T*7837.49)+10.*EXP(-HCK/T*8152.57)+ 9 2.*EXP(-HCK/T*9553.13)+4.*EXP(-HCK/T*9742.80)+ A 6.*EXP(-HCK/T*9968.75) RETURN C 40.02 237 PFGROUND=5.+7.*EXP(-HCK/T*681.2)+9.*EXP(-HCK/T*1485.8)+ 1 5.*EXP(-HCK/T*5742.8)+1.*EXP(-HCK/T*8062.7)+ 2 3.*EXP(-HCK/T*8327.0)+5.*EXP(-HCK/T*8839.7)+ 3 9.*EXP(-HCK/T*11049.9)+1.*EXP(-HCK/T*23974.9)+ 4 3.*EXP(-HCK/T*18400.8)+5.*EXP(-HCK/T*18804.7)+ 5 7.*EXP(-HCK/T*19535.3)+5.*EXP(-HCK/T*25066.9)+ 6 1.*EXP(-HCK/T*36473.7) RETURN C 41.00 241 PFGROUND=2.+4.*EXP(-HCK/T*154.19)+6.*EXP(-HCK/T*391.99)+ 1 8.*EXP(-HCK/T*695.25)+10.*EXP(-HCK/T*1050.26)+ 2 4.*EXP(-HCK/T*1142.79)+6.*EXP(-HCK/T*1586.90)+ 3 8.*EXP(-HCK/T*2154.11)+10.*EXP(-HCK/T*2805.36)+ 4 2.*EXP(-HCK/T*4998.17)+4.*EXP(-HCK/T*5297.92)+ 5 6.*EXP(-HCK/T*5965.45)+2.*EXP(-HCK/T*8410.90)+ 6 4.*EXP(-HCK/T*8705.32)+6.*EXP(-HCK/T*9043.14)+ 7 8.*EXP(-HCK/T*9497.52)+8.*EXP(-HCK/T*8827.00)+ 8 10.*EXP(-HCK/T*9328.88)+4.*EXP(-HCK/T*9439.08)+ 9 6.*EXP(-HCK/T*10237.51) RETURN C 41.01 242 PFGROUND=1.+3.*EXP(-HCK/T*158.99)+5.*EXP(-HCK/T*438.38)+ 1 7.*EXP(-HCK/T*801.38)+9.*EXP(-HCK/T*1224.87)+ 2 3.*EXP(-HCK/T*2356.76)+5.*EXP(-HCK/T*2629.07)+ 3 7.*EXP(-HCK/T*3029.57)+9.*EXP(-HCK/T*3542.50)+ 4 11.*EXP(-HCK/T*4146.00)+1.*EXP(-HCK/T*5562.26)+ 5 3.*EXP(-HCK/T*6192.33)+5.*EXP(-HCK/T*7261.33)+ 6 5.*EXP(-HCK/T*7505.78)+7.*EXP(-HCK/T*7900.65)+ 7 9.*EXP(-HCK/T*8320.40)+9.*EXP(-HCK/T*9509.67)+ 8 11.*EXP(-HCK/T*9812.56)+13.*EXP(-HCK/T*10186.41) RETURN C 41.02 243 PFGROUND=4.+6.*EXP(-HCK/T*515.8)+8.*EXP(-HCK/T*1176.6)+ 1 10.*EXP(-HCK/T*1939.0)+ 2 2.*EXP(-HCK/T*8664.3)+4.*EXP(-HCK/T*8607.5)+ 3 6.*EXP(-HCK/T*9593.7)+8.*EXP(-HCK/T*9236.1)+ 4 10.*EXP(-HCK/T*9804.5)+4.*EXP(-HCK/T*10912.2)+ 5 6.*EXP(-HCK/T*13094.0)+10.*EXP(-HCK/T*12916.0)+ 6 12.*EXP(-HCK/T*13263.8)+6.*EXP(-HCK/T*19975.0)+ 7 8.*EXP(-HCK/T*19861.0)+4.*EXP(-HCK/T*25220.2)+ 8 6.*EXP(-HCK/T*25735.2)+8.*EXP(-HCK/T*26463.7)+ 9 10.*EXP(-HCK/T*27373.5) RETURN C 42.00 247 PFGROUND=7. RETURN C 42.01 248 PFGROUND=6. RETURN C 42.02 249 PFGROUND=1.+3.*EXP(-HCK/T*243.10)+5.*EXP(-HCK/T*669.60)+ 1 7.*EXP(-HCK/T*1225.20)+9.*EXP(-HCK/T*1873.80) RETURN C 43.00 C 7jun04 corrected by John Laird second term is low C 253 PFGROUND=6. 253 PFGROUND=6. +10.*EXP(-HCK/T*2572.89)+8.*EXP(-HCK/T*3250.91)+ 1 6.*EXP(-HCK/T*3700.54)+4.*EXP(-HCK/T*4002.57)+ 2 2.*EXP(-HCK/T*4178.75) RETURN C 43.01 C 7jun04 corrected by John Laird second term is low C 254 PFGROUND=7. 254 PFGROUND=7. +9.*EXP(-HCK/T*3461.27)+7.*EXP(-HCK/T*4217.17)+ 1 5.*EXP(-HCK/T*4669.22)+3.*EXP(-HCK/T*4961.14)+ 2 1.*EXP(-HCK/T*5100.98) RETURN C 43.02 255 PFGROUND=6. RETURN C 44.00 259 PFGROUND=11.+9.*EXP(-HCK/T*1190.64)+7.*EXP(-HCK/T*2091.54)+ 1 5.*EXP(-HCK/T*2713.24)+3.*EXP(-HCK/T*3105.49)+ 2 9.*EXP(-HCK/T*6545.03)+7.*EXP(-HCK/T*8084.12)+ 3 5.*EXP(-HCK/T*9183.66)+9.*EXP(-HCK/T*7483.07)+ 4 7.*EXP(-HCK/T*8575.42)+5.*EXP(-HCK/T*9057.64)+ 5 3.*EXP(-HCK/T*9072.98)+1.*EXP(-HCK/T*8492.37)+ 6 7.*EXP(-HCK/T*8770.93)+5.*EXP(-HCK/T*8043.69)+ 7 3.*EXP(-HCK/T*9620.29)+9.*EXP(-HCK/T*9120.63) RETURN C 44.01 c 4jan03 corrected by John Lester 260 PFGROUND=10.+8.*EXP(-HCK/T*1523.1)+6.*EXP(-HCK/T*2493.9)+ 1 4.*EXP(-HCK/T*3104.2)+6.*EXP(-HCK/T*8256.7)+ 2 4.*EXP(-HCK/T*8477.4)+2.*EXP(-HCK/T*9373.4)+ 3 10.*EXP(-HCK/T*9151.6) c 1 4.*EXP(HCK/T*3104.2) c corrected by Katherina Bischof RETURN C 44.02 261 PFGROUND=9.+7.*EXP(-HCK/T*1158.8)+5.*EXP(-HCK/T*1826.3)+ 1 3.*EXP(-HCK/T*2266.3)+EXP(-HCK/T*2476.0)+ 2 7.*EXP(-HCK/T*27162.8)+5.*EXP(-HCK/T*41111.7) RETURN C 45.00 265 PFGROUND=10.+8.*EXP(-HCK/T*1529.97)+6.*EXP(-HCK/T*2598.03)+ 1 4.*EXP(-HCK/T*3472.68)+6.*EXP(-HCK/T*3309.86)+ 2 4.*EXP(-HCK/T*5657.97)+8.*EXP(-HCK/T*5690.97)+ 3 6.*EXP(-HCK/T*7791.23)+6.*EXP(-HCK/T*9221.22) RETURN C 45.01 266 PFGROUND=9.+7.*EXP(-HCK/T*2401.3)+5.*EXP(-HCK/T*3580.7)+ 1 5.*EXP(-HCK/T*8164.4)+1.*EXP(-HCK/T*10760.8)+ 2 3.*EXP(-HCK/T*10515.0)+5.*EXP(-HCK/T*11643.7)+ 3 9.*EXP(-HCK/T*14855.4)+11.*EXP(-HCK/T*16884.8)+ 4 9.*EXP(-HCK/T*18540.4)+7.*EXP(-HCK/T*19792.4) RETURN C 45.02 267 PFGROUND=10.+8.*EXP(-HCK/T*2147.8)+6.*EXP(-HCK/T*3485.7)+ 1 4.*EXP(-HCK/T*4322.0)+6.*EXP(-HCK/T*11062.3)+ 2 4.*EXP(-HCK/T*10997.1)+2.*EXP(-HCK/T*12469.8)+ 3 10.*EXP(-HCK/T*14044.0)+8.*EXP(-HCK/T*15256.8)+ 4 4.*EXP(-HCK/T*16870.7)+2.*EXP(-HCK/T*18303.7)+ 5 12.*EXP(-HCK/T*19490.2)+6.*EXP(-HCK/T*19528.5) RETURN C 46.00 271 PFGROUND=1.+7.*EXP(-HCK/T*6564.11)+5.*EXP(-HCK/T*7754.99) RETURN C 46.01 272 PFGROUND=6.+4.*EXP(-HCK/T*3539.2) RETURN C 46.02 273 PFGROUND=9.+7.*EXP(-HCK/T*3229.3)+5.*EXP(-HCK/T*4687.5)+ 1 5.*EXP(-HCK/T*10229.3)+3.*EXP(-HCK/T*13468.9)+ 2 1.*EXP(-HCK/T*13697.5)+5.*EXP(-HCK/T*14634.4)+ 3 9.*EXP(-HCK/T*17879.3) RETURN C 47.00 277 PFGROUND=2. RETURN C 47.01 278 PFGROUND=1. RETURN C 47.02 279 PFGROUND=6.+4.*EXP(-HCK/T*4607.) RETURN C 48.00 283 PFGROUND=1. RETURN C 48.01 284 PFGROUND=2. RETURN C 48.02 285 PFGROUND=1. RETURN C 49.00 289 PFGROUND=2.+4.*EXP(-HCK/T*2212.598) RETURN C 49.01 290 PFGROUND=1. RETURN C 49.02 291 PFGROUND=2. RETURN C 50.00 295 PFGROUND=1.+3.*EXP(-HCK/T*1691.8)+5.*EXP(-HCK/T*3427.7)+ 1 5.*EXP(-HCK/T*6513.0) RETURN C 50.01 296 PFGROUND=2.+4.*EXP(-HCK/T*4251.4) RETURN C 50.02 297 PFGROUND=1. RETURN C 51.00 301 PFGROUND=4.+4.*EXP(-HCK/T*8512.1)+6.*EXP(-HCK/T*9854.1) RETURN C 51.01 302 PFGROUND=1.+3.*EXP(-HCK/T*3055.0)+5.*EXP(-HCK/T*5659.0) RETURN C 51.02 303 PFGROUND=2.+4.*EXP(-HCK/T*6576.) RETURN C 52.00 307 PFGROUND=5.+3.*EXP(-HCK/T*4750.712)+EXP(-HCK/T*4706.5) RETURN C 52.01 308 PFGROUND=4.+4.*EXP(-HCK/T*10222.385)+6.*EXP(-HCK/T*12421.854)+ 1 2.*EXP(-HCK/T*20546.591)+4.*EXP(-HCK/T*24032.2) RETURN C 52.02 309 PFGROUND=1.+3.*EXP(-HCK/T*4756.5)+5.*EXP(-HCK/T*8166.9)+ 1 5.*EXP(-HCK/T*17358.) RETURN C 53.00 313 PFGROUND=4.+2.*EXP(-HCK/T*7063.15) RETURN C 53.01 314 PFGROUND=5.+3.*EXP(-HCK/T*7087.0)+EXP(-HCK/T*6447.9)+ 1 5.*EXP(-HCK/T*13727.2)+1.*EXP(-HCK/T*29501.3) RETURN C 53.02 315 PFGROUND=4.+4.*EXP(-HCK/T*11711.2)+6.*EXP(-HCK/T*14901.9)+ 1 2.*EXP(-HCK/T*24299.3)+4.*EXP(-HCK/T*29636.8) RETURN C 54.00 319 PFGROUND=1. RETURN C 54.01 320 PFGROUND=4.+2.*EXP(-HCK/T*10537.01) RETURN C 54.02 321 PFGROUND=5.+3.*EXP(-HCK/T*9794.36)+EXP(-HCK/T*8130.08)+ 1 5.*EXP(-HCK/T*17098.73)+1.*EXP(-HCK/T*36102.94) RETURN C 55.00 325 PFGROUND=2. RETURN C 55.01 326 PFGROUND=1. RETURN C 55.02 327 PFGROUND=4.+2.*EXP(-HCK/T*13884.) RETURN C 56.00 331 PFGROUND=1. RETURN C 56.01 332 PFGROUND=2.+4.*EXP(-HCK/T*4873.852)+6.*EXP(-HCK/T*5674.807) RETURN C 56.02 333 PFGROUND=1. RETURN ENDIF C IF(NELION.GT.336)THEN C THESE CAN HAVE LOW EXCITED LEVELS PFGROUND=1. RETURN END