PROGRAM ATLAS9 c revised 6aug93 C TAPE1 ROSSELAND OPACITY TABLES TO BE READ IF ABUNDANCE NOT 1X SOLAR 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=99) COMMON /ABROSS/ABROSS(kw),TAUROS(kw) COMMON /ABTOT/ABTOT(kw),ALPHA(kw) C COMMON /BIGLIT/WAVELIT(1213),WAVEBIG(329) COMMON /BIGLIT/WAVEDF(1213,2) COMMON /CONT/ABTOTC(kw),ALPHAC(kw),TAUNUC(kw),SNUC(kw),HNUC(kw), 1 JNUC(kw),JMINSC(kw),RESIDC(kw) REAL*8 JNUC,JMINSC 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),ELEM(99) 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) COMMON /FRESET/FRESET(1563),RCOSET(1563),NULO,NUHI,NUMNU COMMON /HEIGHT/HEIGHT(kw) COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,TAUSCAT,IFMOL COMMON /IFOP/IFOP(20) COMMON /IONS/XNFPH(kw,2),XNFPHE(kw,3),XNFH(kw,2),XNFHE(kw,3) COMMON /ITER/ ITER,IFPRNT(15),IFPNCH(15),NUMITS COMMON /JUNK/TITLE(74),FREQID(6),WLTE,XSCALE 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) 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),TLOG(kw),ITEMP COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, 1 IFTURB COMMON /WAVEY/WBEGIN,DELTAW,IFWAVE COMMON /XABUND/XABUND(99),WTMOLE COMMON /XNF/XNFC(kw,6),XNFN(kw,6),XNFO(kw,6),XNFNE(kw,6), 1 XNFMG(kw,6),XNFSI(kw,6),XNFS(kw,6),XNFFE(kw,5) COMMON /XNFP/XNFPC(kw,4),XNFPN(kw,5),XNFPO(kw,6),XNFPNE(kw,6), 1 XNFPAL(kw,1),XNFPMG(kw,2),XNFPSI(kw,2),XNFPCA(kw,2), 2 XNFPFE(kw,1),XNFPCH(kw),XNFPOH(kw) DIMENSION PART(kw,6) C K=1.38054E-16 C H=6.6256E-27 C C=2.997925E10 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 ITEMP=0 C BDFXXXBIG OR BDFXXXLIT C OPEN(UNIT=9,FORM='UNFORMATTED',STATUS='OLD',READONLY,SHARED) C BDFXXXBIG0,1,2,4,8 OR BDFXXXLIT0,1,2,4,8 C OPEN(UNIT=20,FORM='UNFORMATTED',STATUS='OLD',READONLY,SHARED) C OPEN(UNIT=21,FORM='UNFORMATTED',STATUS='OLD',READONLY,SHARED) C OPEN(UNIT=22,FORM='UNFORMATTED',STATUS='OLD',READONLY,SHARED) C OPEN(UNIT=24,FORM='UNFORMATTED',STATUS='OLD',READONLY,SHARED) C OPEN(UNIT=28,FORM='UNFORMATTED',STATUS='OLD',READONLY,SHARED) C C FILES BLOCKED FOR CDROM C BDFXXXBIG OR BDFXXXLIT OPEN(UNIT=9,FORM='UNFORMATTED',STATUS='OLD',READONLY,SHARED, 1 RECORDTYPE='FIXED',RECL=7056) C BDFXXXBIG0,1,2,4,8 OR BDFXXXLIT0,1,2,4,8 C OPEN(UNIT=20,FORM='UNFORMATTED',STATUS='OLD',READONLY,SHARED, C 1 RECORDTYPE='FIXED',RECL=7056) C OPEN(UNIT=21,FORM='UNFORMATTED',STATUS='OLD',READONLY,SHARED, C 1 RECORDTYPE='FIXED',RECL=7056) C OPEN(UNIT=22,FORM='UNFORMATTED',STATUS='OLD',READONLY,SHARED, C 1 RECORDTYPE='FIXED',RECL=7056) C OPEN(UNIT=24,FORM='UNFORMATTED',STATUS='OLD',READONLY,SHARED, C 1 RECORDTYPE='FIXED',RECL=7056) C OPEN(UNIT=28,FORM='UNFORMATTED',STATUS='OLD',READONLY,SHARED, C 1 RECORDTYPE='FIXED',RECL=7056) 1 CALL READIN(1) C CALL READMOL 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 C INTEGRATE EQUATION OF HYDROSTATIC EQUILIBRIUM PZERO=PCON+PRADK0+PTURB0 DO 11 J=1,NRHOX C PTOTAL(J)=GRAV*RHOX(J) PTOTAL(J)=GRAV*RHOX(J)+PZERO 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 111 CONTINUE C 11 P(J)=PTOTAL(J)-PRAD(J)-PTURB(J) IFEDNS=0 CALL POPS(0.D0,1,XNE) 12 CONTINUE CALL POPS(1.01D0,11,XNFPH) CALL POPS(2.02D0,11,XNFPHE) CALL POPS(6.03D0,11,XNFPC) CALL POPS(7.04D0,11,XNFPN) CALL POPS(8.05D0,11,XNFPO) CALL POPS(10.05D0,11,XNFPNE) CALL POPS(12.01D0,11,XNFPMG) CALL POPS(13.00D0,11,XNFPAL) CALL POPS(14.01D0,11,XNFPSI) CALL POPS(20.01D0,11,XNFPCA) CALL POPS(26.00D0,11,XNFPFE) IF(IFMOL.EQ.0)THEN CALL POPS(1.01D0,12,XNFH) CALL POPS(2.02D0,12,XNFHE) CALL POPS(6.05D0,12,XNFC) CALL POPS(7.05D0,12,XNFN) CALL POPS(8.05D0,12,XNFO) CALL POPS(10.05D0,12,XNFNE) CALL POPS(12.05D0,12,XNFMG) CALL POPS(14.05D0,12,XNFSI) CALL POPS(16.05D0,12,XNFS) CALL POPS(26.04D0,12,XNFFE) ENDIF IF(IFMOL.EQ.1)THEN CALL POPS(106.00D0,11,XNFPCH) CALL POPS(108.00D0,11,XNFPOH) C CALL W(6HXNFPCH,XNFPCH,NRHOX) C CALL W(6HXNFPOH,XNFPOH,NRHOX) C THE POPS WILL NOT RETURN NUMBER DENSITIES WHEN MOLECULES ARE ON C SO WE COMPUTE NUMBER DENSITIES/PART FUNCTIONS AND PART FUNCTIONS CALL POPS(6.05D0,11,XNFC) CALL POPS(7.05D0,11,XNFN) CALL POPS(8.05D0,11,XNFO) CALL POPS(10.05D0,11,XNFNE) CALL POPS(12.05D0,11,XNFMG) CALL POPS(14.05D0,11,XNFSI) CALL POPS(16.05D0,11,XNFS) CALL POPS(26.04D0,11,XNFFE) DO 444 J=1,NRHOX CALL PFSAHA(J,1,1,3,PART) XNFH(J,1)=XNFPH(J,1)*PART(J,1) XNFH(J,2)=XNFPH(J,2) CALL PFSAHA(J,2,2,13,PART) XNFHE(J,1)=XNFPHE(J,1)*PART(J,1) XNFHE(J,2)=XNFPHE(J,2)*PART(J,2) XNFHE(J,3)=XNFPHE(J,3) CALL PFSAHA(J,6,6,13,PART) XNFC(J,1)=XNFC(J,1)*PART(J,1) XNFC(J,2)=XNFC(J,2)*PART(J,2) XNFC(J,3)=XNFC(J,3)*PART(J,3) XNFC(J,4)=XNFC(J,4)*PART(J,4) XNFC(J,5)=XNFC(J,5)*PART(J,5) XNFC(J,6)=XNFC(J,6)*PART(J,6) CALL PFSAHA(J,7,6,13,PART) XNFN(J,1)=XNFN(J,1)*PART(J,1) XNFN(J,2)=XNFN(J,2)*PART(J,2) XNFN(J,3)=XNFN(J,3)*PART(J,3) XNFN(J,4)=XNFN(J,4)*PART(J,4) XNFN(J,5)=XNFN(J,5)*PART(J,5) XNFN(J,6)=XNFN(J,6)*PART(J,6) CALL PFSAHA(J,8,6,13,PART) XNFO(J,1)=XNFO(J,1)*PART(J,1) XNFO(J,2)=XNFO(J,2)*PART(J,2) XNFO(J,3)=XNFO(J,3)*PART(J,3) XNFO(J,4)=XNFO(J,4)*PART(J,4) XNFO(J,5)=XNFO(J,5)*PART(J,5) XNFO(J,6)=XNFO(J,6)*PART(J,6) CALL PFSAHA(J,10,6,13,PART) XNFNE(J,1)=XNFNE(J,1)*PART(J,1) XNFNE(J,2)=XNFNE(J,2)*PART(J,2) XNFNE(J,3)=XNFNE(J,3)*PART(J,3) XNFNE(J,4)=XNFNE(J,4)*PART(J,4) XNFNE(J,5)=XNFNE(J,5)*PART(J,5) XNFNE(J,6)=XNFNE(J,6)*PART(J,6) CALL PFSAHA(J,12,6,13,PART) XNFMG(J,1)=XNFMG(J,1)*PART(J,1) XNFMG(J,2)=XNFMG(J,2)*PART(J,2) XNFMG(J,3)=XNFMG(J,3)*PART(J,3) XNFMG(J,4)=XNFMG(J,4)*PART(J,4) XNFMG(J,5)=XNFMG(J,5)*PART(J,5) XNFMG(J,6)=XNFMG(J,6)*PART(J,6) CALL PFSAHA(J,14,6,13,PART) XNFSI(J,1)=XNFSI(J,1)*PART(J,1) XNFSI(J,2)=XNFSI(J,2)*PART(J,2) XNFSI(J,3)=XNFSI(J,3)*PART(J,3) XNFSI(J,4)=XNFSI(J,4)*PART(J,4) XNFSI(J,5)=XNFSI(J,5)*PART(J,5) XNFSI(J,6)=XNFSI(J,6)*PART(J,6) CALL PFSAHA(J,16,6,13,PART) XNFS(J,1)=XNFS(J,1)*PART(J,1) XNFS(J,2)=XNFS(J,2)*PART(J,2) XNFS(J,3)=XNFS(J,3)*PART(J,3) XNFS(J,4)=XNFS(J,4)*PART(J,4) XNFS(J,5)=XNFS(J,5)*PART(J,5) XNFS(J,6)=XNFS(J,6)*PART(J,6) CALL PFSAHA(J,26,5,13,PART) XNFFE(J,1)=XNFFE(J,1)*PART(J,1) XNFFE(J,2)=XNFFE(J,2)*PART(J,2) XNFFE(J,3)=XNFFE(J,3)*PART(J,3) XNFFE(J,4)=XNFFE(J,4)*PART(J,4) XNFFE(J,5)=XNFFE(J,5)*PART(J,5) 444 CONTINUE ENDIF C CALL PUTOUT(1) 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 DO 25 NU=NULO,NUHI IF(IFWAVE.EQ.0)GO TO 21 IF(WBEGIN.GT.1.E10)GO TO 210 WAVE=WBEGIN+DFLOAT(NU-NULO)*DELTAW FREQ=2.997925E17/WAVE RCO=ABS(DELTAW/WAVE*FREQ) GO TO 22 C EQUALLY SPACED FREQUENCIES 210 FREQ=WBEGIN+DFLOAT(NU-NULO)*DELTAW RCO=DELTAW GO TO 22 21 FREQ=FRESET(NU) RCO=RCOSET(NU) 22 FREQLG=DLOG(FREQ) DO 20 J=1,NRHOX EHVKT(J)=EXP(-FREQ*HKT(J)) STIM(J)=1.-EHVKT(J) C 20 BNU(J)=1.47439E-47*FREQ**3*EHVKT(J)/STIM(J) C FOR UNDERFLOW ON UNIVAC FREQ15=FREQ/1.E15 20 BNU(J)=1.47439E-2*FREQ15**3*EHVKT(J)/STIM(J) IF(IFOP(15).EQ.1)GO TO 60 IF(IFOP(16).EQ.1)GO TO 60 CALL PUTOUT(2) N=1 CALL KAPP(N,NSTEPS,STEPWT) CALL JOSH(IFSCAT,IFSURF) C DO 7654 J=1,NRHOX IF(SNU(J).LT.0.)CALL ABORT IF(JNU(J).LT.0.)CALL ABORT IF(HNU(J).LT.0.)CALL ABORT 7654 CONTINUE C RCOWT=RCO*STEPWT 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) C THIS PASSES VALUE OF STEPWT TO PUTOUT 53 PUT=STEPWT IPUT=NSTEPS CALL PUTOUT(3) CALL PUTOUT(4) GO TO 25 C 60 N=0 CALL KAPP(N,NSTEPS,STEPWT) CALL JOSH(IFSCAT,IFSURF) IF(IFSURF.EQ.2)HNU(1)=SURFI(1) IF(IFSURF.EQ.2)CONTIN=SURFI(1) IF(IFSURF.LT.2)CONTIN=HNU(1) PUT=CONTIN CALL PUTOUT(2) IF(IFSURF.GT.0)GO TO 700 DO 70 J=1,NRHOX ABTOTC(J)=ABTOT(J) ALPHAC(J)=ALPHA(J) TAUNUC(J)=TAUNU(J) SNUC(J)=SNU(J) HNUC(J)=HNU(J) JNUC(J)=JNU(J) JMINSC(J)=JMINS(J) 70 RESIDC(J)=0. 700 SUMWT=0. RESIDC(1)=0. C N=1 GO TO 72 C 24 N=N+1 C if(n.gt.1)go to 72 IF(RESIDC(1).GT..9995)GO TO 79 IF(RESIDC(1).GT..998.AND.IFSURF.GT.0)GO TO 79 IF(IFSURF.GT.0)GO TO 72 DO 71 J=1,NRHOX IF(RESIDC(J).LT..998 )GO TO 72 C IF(RESIDC(J).LT..999 )GO TO 72 71 CONTINUE 79 STEPWT=1.-SUMWT N=N+1 IF(STEPWT.LT..0001)STEPWT=0. N=NSTEPS+1 RESIDC(1)=1. IF(IFSURF.EQ.1)HNU(1)=CONTIN IF(IFSURF.EQ.2)SURFI(1)=CONTIN IF(IFSURF.GT.0)GO TO 770 DO 75 J=1,NRHOX ABTOT(J)=ABTOTC(J) ALPHA(J)=ALPHAC(J) TAUNU(J)=TAUNUC(J) SNU(J)=SNUC(J) HNU(J)=HNUC(J) JNU(J)=JNUC(J) 75 JMINS(J)=JMINSC(J) GO TO 76 72 CALL LINOP(N,NSTEPS,STEPWT) DO 73 J=1,NRHOX 73 ALINE(J)=ALINES(J) CALL JOSH(IFSCAT,IFSURF) IF(IFSURF.EQ.2)HNU(1)=SURFI(1) RESIDC(1)=1. IF(IFSURF.EQ.1.AND.CONTIN.GT.0.)RESIDC(1)=HNU(1)/CONTIN IF(IFSURF.EQ.2.AND.CONTIN.GT.0.)RESIDC(1)=SURFI(1)/CONTIN IF(IFSURF.GT.0)GO TO 770 76 DO 77 J=1,NRHOX RESIDC(J)=1. IF(HNUC(J).GT.0.)RESIDC(J)=HNU(J)/HNUC(J) 77 CONTINUE 770 SUMWT=SUMWT+STEPWT 78 RCOWT=RCO*STEPWT C IF(STEPWT.EQ.0.)GO TO 23 IF(IFSURF.GT.0)GO TO 23 IF(IFCORR.EQ.1)CALL TCORR(2,RCOWT) CALL RADIAP(2,RCOWT) CALL ROSS(2,RCOWT) IF(NLTEON.EQ.1)CALL STATEQ(2,RCOWT) C THIS PASSES VALUE OF STEPWT TO PUTOUT 23 PUT=STEPWT IPUT=NSTEPS CALL PUTOUT(3) IF(N.LT.NSTEPS)GO TO 24 IF(N.EQ.NSTEPS)GO TO 79 CALL PUTOUT(4) 25 CONTINUE IF(IFSURF.GT.0)GO TO 1 C C FINISH ITERATION CALL ROSS(3,0) CALL HIGH IF(IFPRES.EQ.1.AND.IFCONV.EQ.1)CALL CONVEC CALL RADIAP(3,0) 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 GO TO 1 END SUBROUTINE PUTOUT(MODE) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) 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),ELEM(99) COMMON /FLUX/ FLUX,FLXERR(kw),FLXDRV(kw),FLXRAD(kw) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) COMMON /FRESET/FRESET(1563),RCOSET(1563),NULO,NUHI,NUMNU COMMON /HEIGHT/HEIGHT(kw) COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,TAUSCAT,IFMOL COMMON /IFOP/IFOP(20) COMMON /IONS/XNFPH(kw,2),XNFPHE(kw,3),XNFH(kw,2),XNFHE(kw,3) COMMON /ITER/ ITER,IFPRNT(15),IFPNCH(15),NUMITS COMMON /JUNK/TITLE(74),FREQID(6),WLTE,XSCALE 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) 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),TLOG(kw),ITEMP COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, 1 IFTURB COMMON /WAVEY/WBEGIN,DELTAW,IFWAVE COMMON /XABUND/XABUND(99),WTMOLE COMMON /RR/RJMINSNU(kw),RDIAGJNU(kw) DIMENSION SURFIN(20),F(20),DUMMY(kw,25),ABLOG(20) EQUIVALENCE (DUMMY(1,1),AHYD(1)),(F(1),STIM(1)) DATA ON,OFF/3HON ,3HOFF/ C GO TO(100,200,300,400,500),MODE C C HEADINGS 100 IF(IFPRNT(ITER).EQ.0)RETURN IFHEAD=0 NU=NULO-1 IF(IFPNCH(ITER).LT.2)RETURN WRITE(7,111)TEFF,GLOG,WLTE,TITLE 111 FORMAT(5HTEFF ,F7.0,9H GRAVITY,F8.5,1X,A4/6HTITLE ,74A1) IF(IFSURF.NE.2)RETURN WRITE(7,112)NMU,(ANGLE(MU),MU=1,NMU) 112 FORMAT(I3,' ANGLES',10F7.4/10X,10F7.4) RETURN C C INITIALIZE SUMS OVER STEPS 200 HSURF=0. C HNU(1)=0. WAVE=2.997925E17/FREQ NU=NU+1 DO 201 MU=1,NMU 201 SURFIN(MU)=0. N=0 CONTIN=PUT RETURN C C SUM OVER STEPS AND STEP DEPENDENT QUANTITIES 300 N=N+1 NSTEPS=IPUT STEPWT=PUT HSURF=HSURF+HNU(1)*STEPWT DO 301 MU=1,NMU 301 SURFIN(MU)=SURFIN(MU)+SURFI(MU)*STEPWT IF(IFPRNT(ITER).EQ.0)RETURN IF(NSTEPS.EQ.1)GO TO 310 IF(IFHEAD.EQ.0)WRITE(6,101) IFHEAD=1 C IF(N.EQ.1)WRITE(6,303) IF(N.EQ.1.AND.IFPRNT(ITER).GT.1)WRITE(6,303) 303 FORMAT(1H0) RESID=1. IF(CONTIN.GT.0.)RESID=HNU(1)/CONTIN HNULG=DLOG10(DMAX1(HNU(1),1.D-50)) C HNULG=DLOG10(DMAX1(HNU(1),1.D-30)) C HNULG=DLOG10(HNU(1)) HNUMG=-2.5*HNULG DO 340 JTAU1=1,NRHOX IF(TAUNU(JTAU1).GT.1.)GO TO 341 340 CONTINUE 341 CONTINUE C RHOX1=DLOG10(RHOX1) C IDUM=MAP1(TAUNU,RHOX,NRHOX,1.D0,RHOX1,1) TAUEND=DLOG10(TAUNU(NRHOX)) IF(IFPRNT(ITER).GT.1) 1WRITE(6,305)STEPWT,HNU(1),HNULG,HNUMG,RESID,JTAU1,TAUEND 305 FORMAT(61X,F10.8,1PE13.4,0PF12.5,F10.3,F9.5,I6,F6.2) 310 IF(IFPRNT(ITER).EQ.4)GO TO 320 IF(IFPRNT(ITER).NE.3)RETURN WRITE(6,312)WAVE,FREQ,(J,RHOX(J),TAUNU(J),ABTOT(J), 1ALPHA(J),BNU(J),SNU(J),JNU(J),JMINS(J),HNU(J), 2RJMINSNU(J),RDIAGJNU(J),J=1,NRHOX) C 1ALPHA(J),BNU(J),SNU(J),JNU(J),JMINS(J),HNU(J),J=1,NRHOX) 312 FORMAT(1H1//6X,10HWAVELENGTH,F9.3,3X,9HFREQUENCY,1PE13.6/ 1/12X,4HRHOX,7X,5HTAUNU,6X,5HABTOT,5X,5HALPHA,8X,3HBNU,8X,3HSNU, 2 8X,3HJNU,7X,5HJMINS,7X,3HHNU/(5X,I3,1P11E11.3)) C 2 8X,3HJNU,7X,5HJMINS,7X,3HHNU/(6X,I2,1P9E11.3)) RETURN 320 WRITE(6,321) 321 FORMAT( 126H1 AHYD AH2P AHMIN SIGH AHE1 AHE2 AHEMIN SIGHE 1 ACOOL ALUKE AHOT SIGEL SIGH2 AHLINEALINESSIGLINAXLINE SIGXLAXCONT 2 SIGX) DO 325 J=1,NRHOX DO 322 I=1,20 ABLOG(I)=0. IF(DUMMY(J,I).GT.1.E-99)ABLOG(I)=DLOG10(DUMMY(J,I)) 322 CONTINUE 325 WRITE(6,326)J,ABLOG,J 326 FORMAT(I4,2X,20F6.2,1X,I3) RETURN C C PRINT SUMS OVER STEPS C 400 IF(IFPRNT(ITER).EQ.0)RETURN 400 IF(NSTEPS.EQ.1)CONTIN=HSURF IF(CONTIN.GT.0.)RESID=HSURF/CONTIN IF(HSURF.LE.0.)HSURF=1.D-50 C IF(HSURF.LE.0.)HSURF=1.E-30 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 C IDUM=MAP1(TAUNU,RHOX,NRHOX,1.D0,RHOX1,1) C RHOX1=DLOG10(RHOX1) TAUEND=DLOG10(TAUNU(NRHOX)) IF(NSTEPS.GT.1)JTAU1=0 IF(NSTEPS.GT.1)TAUEND=0. 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,10X,6HTAUONE, 2 6H TAUNU) IFHEAD=1 HLAM=HSURF*FREQ/WAVE HNULG=DLOG10(HSURF) HLAMLG=DLOG10(HLAM) HLAMMG=-2.5*HLAMLG HNUMG=-2.5*HNULG WRITE(6,1401) 1401 FORMAT(1H ) WRITE (6,401)NU,WAVE,HLAM,HLAMLG,HLAMMG,FREQ,HSURF,HNULG,HNUMG, 1RESID,JTAU1,TAUEND,NU 401 FORMAT(I6,F10.3,1PE13.4,0PF12.5,F10.3,1PE20.6,E13.4,0PF12.5,F10.3, 1F9.5,I6,F6.2,I5) 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(7,411)NU,WAVE,FREQ,HSURF,CONTIN,RESID 411 FORMAT(4HFLUX,I5,F9.2,1PE20.6,E13.4,E13.4,0PF10.5) IF(NU.EQ.NUHI)WRITE(7,411) RETURN C 415 WRITE(7,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(7,416)NU,WAVE,FREQ,(SURFIN(MU),MU=1,NMU) 416 FORMAT(9HINTENSITY,I5,F9.2,1PE15.6/(1P8E10.3)) IF(NU.EQ.NUHI)WRITE(7,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 /(I4,1P11E11.3)) WRITE(6,502)FLUX 502 FORMAT(1H0,108X,4HFLUX,1PE12.4) WRITE(6,503)(J,XNATOM(J),RADEN(J),PRADK(J),XNFPH(J,1),XNFPH(J,2), 1XNFPHE(J,1),XNFPHE(J,2),XNFPHE(J,3),VTURB(J), 2FLXCNV0(J),FLXCNV1(J),J=1,NRHOX) 503 FORMAT(1H1/////132H XNATOM RADEN PRADK XNFPH1 + 1 XNFPH2 XNFPHE1 XNFPHE2 XNFPHE3 VTURB + 2 /(I4,1P11E11.3)) CALL W(6HPRADK0,PRADK0,1) 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 D 3ENSITY MEAN (KM) DEPTH CONV FLUX ACCELERATION + 4 ERROR DERIV/(I4,1PE10.3,0PF9.1,1P8E11.3,0PF12.3,F9.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 WRITE(7,552) TEFF,GLOG,WLTE,TITLE,IFOP,A,MIXLTH,B,TRBFDG, 1TRBPOW,TRBSND,TRBCON,XSCALE,(IZ,ABUND(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,554)NRHOX,(RHOX(J),T(J),P(J),XNE(J),ABROSS(J),ACCRAD(J), 1VTURB(J),J=1,NRHOX) 554 FORMAT(10HREAD DECK6,I3,33H RHOX,T,P,XNE,ABROSS,ACCRAD,VTURB/ 1(1PE15.8,0PF9.1,1P5E10.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=99) 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/FRESET(1563),RCOSET(1563),NULO,NUHI,NUMNU COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) COMMON /ITER/ ITER,IFPRNT(15),IFPNCH(15),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) 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),TLOG(kw),ITEMP COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, 1 IFTURB COMMON /RR/RJMINSNU(kw),RDIAGJNU(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 TAUSTD(kw),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) 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 31 J=1,NRHOX RDABH(J)=RDABH(J)-FLXRAD(J)*DABROS(J)/ABROSS(J) C)))))))))))))))))))))))) CNVFLX(J)=0. DEL=1. D=0. IF(IFCONV.EQ.1)CNVFLX(J)=FLXCNV(J) IF(J.LT.3)CNVFLX(J)=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 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 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///95H0 RHOX T DTLAMB DTSURF DTF 1LUX T1 CONV/TOTAL ERROR DERIV/ 2(I4,1PE12.4,0PF10.1,4F9.1,1X,1PE11.3,1X,0P2F10.3)) C 60 DO 61 J=1,NRHOX IF(IFCONV.EQ.1.AND.HRATIO(J).GT.0.)GO TO 62 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 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 FORCE MONOTONICITY DO 6050 I=2,NRHOX J=NRHOX+1-I T(J)=MIN(T(J),T(J+1)-1.) 6050 CONTINUE C MINIMUM TEMPERATURE DO 6051 J=1,NRHOX T(J)=MAX(T(J),2089.0D0) 6051 CONTINUE C CC FUDGES TO MAKE UP FOR BAD STARTING GUESSES CC(((((((((((((((((((((((( IFUDGE=0 CC)))))))))))))))))))))))) 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) 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) 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=99) 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) COMMON /IONS/XNFPH(kw,2),XNFPHE(kw,3),XNFH(kw,2),XNFHE(kw,3) COMMON /ITER/ ITER,IFPRNT(15),IFPNCH(15),NUMITS COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(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),TLOG(kw),ITEMP 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,1),TAUNU(1)),(QCOLL(1,1),HNU(1)) EQUIVALENCE (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.997925E10)**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)*XNFPH(J,1) QCHARG=10.**(-7.4)*THETA**.333333*XNFPH(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=99) 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 DO 31 J=1,NRHOX RADEN(J)=RADEN(J)*12.5664/2.997925E10 ACCRAD(J)=ACCRAD(J)*12.5664/2.997925E10 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) 31 CONTINUE PRADK0=PRADK0*12.5664/2.997925E10 IF(H(1)/FLUX.GT.1.)PRADK0=PRADK0*FLUX/H(1) 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=99) COMMON /ABROSS/ABROSS(kw),TAUROS(kw) COMMON /ABTOT/ABTOT(kw),ALPHA(kw) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) COMMON /FRESET/FRESET(1563),RCOSET(1563),NULO,NUHI,NUMNU COMMON /RHOX/RHOX(kw),NRHOX COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(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=99) 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=99) 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=99) 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=99) 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=99) 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 FUNCTION EXPI(N,X) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) 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 W(A,B,N) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) 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(T,P,V) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) C ROSSELAND OPACITY FOR SDSC 1X DISTRIBUTION FUNCTIONS COMMON/TABTP/TABT(56),TABP(38),TABKAP(56,38,5),PKAP(38), 1TABV(5),PKAPV(5,38),IFTABK,KTAB(56,38,5),NT,NP DIMENSION K0TAB01(56),K0TAB02(56),K0TAB03(56),K0TAB04(56) DIMENSION K0TAB05(56),K0TAB06(56),K0TAB07(56),K0TAB08(56) DIMENSION K0TAB09(56),K0TAB10(56),K0TAB11(56),K0TAB12(56) DIMENSION K0TAB13(56),K0TAB14(56),K0TAB15(56),K0TAB16(56) DIMENSION K0TAB17(56),K0TAB18(56),K0TAB19(56),K0TAB20(56) DIMENSION K0TAB21(56),K0TAB22(56),K0TAB23(56),K0TAB24(56) DIMENSION K0TAB25(56),K0TAB26(56),K0TAB27(56),K0TAB28(56) DIMENSION K0TAB29(56),K0TAB30(56),K0TAB31(56),K0TAB32(56) DIMENSION K0TAB33(56),K0TAB34(56),K0TAB35(56),K0TAB36(56) DIMENSION K0TAB37(56),K0TAB38(56) DIMENSION K1TAB01(56),K1TAB02(56),K1TAB03(56),K1TAB04(56) DIMENSION K1TAB05(56),K1TAB06(56),K1TAB07(56),K1TAB08(56) DIMENSION K1TAB09(56),K1TAB10(56),K1TAB11(56),K1TAB12(56) DIMENSION K1TAB13(56),K1TAB14(56),K1TAB15(56),K1TAB16(56) DIMENSION K1TAB17(56),K1TAB18(56),K1TAB19(56),K1TAB20(56) DIMENSION K1TAB21(56),K1TAB22(56),K1TAB23(56),K1TAB24(56) DIMENSION K1TAB25(56),K1TAB26(56),K1TAB27(56),K1TAB28(56) DIMENSION K1TAB29(56),K1TAB30(56),K1TAB31(56),K1TAB32(56) DIMENSION K1TAB33(56),K1TAB34(56),K1TAB35(56),K1TAB36(56) DIMENSION K1TAB37(56),K1TAB38(56) DIMENSION K2TAB01(56),K2TAB02(56),K2TAB03(56),K2TAB04(56) DIMENSION K2TAB05(56),K2TAB06(56),K2TAB07(56),K2TAB08(56) DIMENSION K2TAB09(56),K2TAB10(56),K2TAB11(56),K2TAB12(56) DIMENSION K2TAB13(56),K2TAB14(56),K2TAB15(56),K2TAB16(56) DIMENSION K2TAB17(56),K2TAB18(56),K2TAB19(56),K2TAB20(56) DIMENSION K2TAB21(56),K2TAB22(56),K2TAB23(56),K2TAB24(56) DIMENSION K2TAB25(56),K2TAB26(56),K2TAB27(56),K2TAB28(56) DIMENSION K2TAB29(56),K2TAB30(56),K2TAB31(56),K2TAB32(56) DIMENSION K2TAB33(56),K2TAB34(56),K2TAB35(56),K2TAB36(56) DIMENSION K2TAB37(56),K2TAB38(56) DIMENSION K4TAB01(56),K4TAB02(56),K4TAB03(56),K4TAB04(56) DIMENSION K4TAB05(56),K4TAB06(56),K4TAB07(56),K4TAB08(56) DIMENSION K4TAB09(56),K4TAB10(56),K4TAB11(56),K4TAB12(56) DIMENSION K4TAB13(56),K4TAB14(56),K4TAB15(56),K4TAB16(56) DIMENSION K4TAB17(56),K4TAB18(56),K4TAB19(56),K4TAB20(56) DIMENSION K4TAB21(56),K4TAB22(56),K4TAB23(56),K4TAB24(56) DIMENSION K4TAB25(56),K4TAB26(56),K4TAB27(56),K4TAB28(56) DIMENSION K4TAB29(56),K4TAB30(56),K4TAB31(56),K4TAB32(56) DIMENSION K4TAB33(56),K4TAB34(56),K4TAB35(56),K4TAB36(56) DIMENSION K4TAB37(56),K4TAB38(56) DIMENSION K8TAB01(56),K8TAB02(56),K8TAB03(56),K8TAB04(56) DIMENSION K8TAB05(56),K8TAB06(56),K8TAB07(56),K8TAB08(56) DIMENSION K8TAB09(56),K8TAB10(56),K8TAB11(56),K8TAB12(56) DIMENSION K8TAB13(56),K8TAB14(56),K8TAB15(56),K8TAB16(56) DIMENSION K8TAB17(56),K8TAB18(56),K8TAB19(56),K8TAB20(56) DIMENSION K8TAB21(56),K8TAB22(56),K8TAB23(56),K8TAB24(56) DIMENSION K8TAB25(56),K8TAB26(56),K8TAB27(56),K8TAB28(56) DIMENSION K8TAB29(56),K8TAB30(56),K8TAB31(56),K8TAB32(56) DIMENSION K8TAB33(56),K8TAB34(56),K8TAB35(56),K8TAB36(56) DIMENSION K8TAB37(56),K8TAB38(56) C EQUIVALENCE (KTAB(001),KTAB01(1)),(KTAB(057),KTAB02(1)) C EQUIVALENCE (KTAB(113),KTAB03(1)),(KTAB(169),KTAB04(1)) C EQUIVALENCE (KTAB(225),KTAB05(1)),(KTAB(281),KTAB06(1)) C EQUIVALENCE (KTAB(337),KTAB07(1)),(KTAB(393),KTAB08(1)) C EQUIVALENCE (KTAB(449),KTAB09(1)),(KTAB(505),KTAB10(1)) C EQUIVALENCE (KTAB(561),KTAB11(1)),(KTAB(617),KTAB12(1)) C EQUIVALENCE (KTAB(673),KTAB13(1)),(KTAB(729),KTAB14(1)) C EQUIVALENCE (KTAB(785),KTAB15(1)),(KTAB(841),KTAB16(1)) C EQUIVALENCE (KTAB(897),KTAB17(1)),(KTAB(953),KTAB18(1)) C EQUIVALENCE (KTAB(1009),KTAB19(1)),(KTAB(1065),KTAB20(1)) C EQUIVALENCE (KTAB(1121),KTAB21(1)),(KTAB(1177),KTAB22(1)) C EQUIVALENCE (KTAB(1233),KTAB23(1)),(KTAB(1289),KTAB24(1)) C EQUIVALENCE (KTAB(1345),KTAB25(1)),(KTAB(1401),KTAB26(1)) C EQUIVALENCE (KTAB(1457),KTAB27(1)),(KTAB(1513),KTAB28(1)) C EQUIVALENCE (KTAB(1569),KTAB29(1)),(KTAB(1625),KTAB30(1)) C EQUIVALENCE (KTAB(1681),KTAB31(1)),(KTAB(1737),KTAB32(1)) C EQUIVALENCE (KTAB(1793),KTAB33(1)),(KTAB(1849),KTAB34(1)) C EQUIVALENCE (KTAB(1905),KTAB35(1)),(KTAB(1961),KTAB36(1)) C EQUIVALENCE (KTAB(2017),KTAB37(1)),(KTAB(2073),KTAB38(1)) EQUIVALENCE (KTAB(1, 1,1),K0TAB01(1)),(KTAB(1, 2,1),K0TAB02(1)) EQUIVALENCE (KTAB(1, 3,1),K0TAB03(1)),(KTAB(1, 4,1),K0TAB04(1)) EQUIVALENCE (KTAB(1, 5,1),K0TAB05(1)),(KTAB(1, 6,1),K0TAB06(1)) EQUIVALENCE (KTAB(1, 7,1),K0TAB07(1)),(KTAB(1, 8,1),K0TAB08(1)) EQUIVALENCE (KTAB(1, 9,1),K0TAB09(1)),(KTAB(1,10,1),K0TAB10(1)) EQUIVALENCE (KTAB(1,11,1),K0TAB11(1)),(KTAB(1,12,1),K0TAB12(1)) EQUIVALENCE (KTAB(1,13,1),K0TAB13(1)),(KTAB(1,14,1),K0TAB14(1)) EQUIVALENCE (KTAB(1,15,1),K0TAB15(1)),(KTAB(1,16,1),K0TAB16(1)) EQUIVALENCE (KTAB(1,17,1),K0TAB17(1)),(KTAB(1,18,1),K0TAB18(1)) EQUIVALENCE (KTAB(1,19,1),K0TAB19(1)),(KTAB(1,20,1),K0TAB20(1)) EQUIVALENCE (KTAB(1,21,1),K0TAB21(1)),(KTAB(1,22,1),K0TAB22(1)) EQUIVALENCE (KTAB(1,23,1),K0TAB23(1)),(KTAB(1,24,1),K0TAB24(1)) EQUIVALENCE (KTAB(1,25,1),K0TAB25(1)),(KTAB(1,26,1),K0TAB26(1)) EQUIVALENCE (KTAB(1,27,1),K0TAB27(1)),(KTAB(1,28,1),K0TAB28(1)) EQUIVALENCE (KTAB(1,29,1),K0TAB29(1)),(KTAB(1,30,1),K0TAB30(1)) EQUIVALENCE (KTAB(1,31,1),K0TAB31(1)),(KTAB(1,32,1),K0TAB32(1)) EQUIVALENCE (KTAB(1,33,1),K0TAB33(1)),(KTAB(1,34,1),K0TAB34(1)) EQUIVALENCE (KTAB(1,35,1),K0TAB35(1)),(KTAB(1,36,1),K0TAB36(1)) EQUIVALENCE (KTAB(1,37,1),K0TAB37(1)),(KTAB(1,38,1),K0TAB38(1)) EQUIVALENCE (KTAB(1, 1,2),K1TAB01(1)),(KTAB(1, 2,2),K1TAB02(1)) EQUIVALENCE (KTAB(1, 3,2),K1TAB03(1)),(KTAB(1, 4,2),K1TAB04(1)) EQUIVALENCE (KTAB(1, 5,2),K1TAB05(1)),(KTAB(1, 6,2),K1TAB06(1)) EQUIVALENCE (KTAB(1, 7,2),K1TAB07(1)),(KTAB(1, 8,2),K1TAB08(1)) EQUIVALENCE (KTAB(1, 9,2),K1TAB09(1)),(KTAB(1,10,2),K1TAB10(1)) EQUIVALENCE (KTAB(1,11,2),K1TAB11(1)),(KTAB(1,12,2),K1TAB12(1)) EQUIVALENCE (KTAB(1,13,2),K1TAB13(1)),(KTAB(1,14,2),K1TAB14(1)) EQUIVALENCE (KTAB(1,15,2),K1TAB15(1)),(KTAB(1,16,2),K1TAB16(1)) EQUIVALENCE (KTAB(1,17,2),K1TAB17(1)),(KTAB(1,18,2),K1TAB18(1)) EQUIVALENCE (KTAB(1,19,2),K1TAB19(1)),(KTAB(1,20,2),K1TAB20(1)) EQUIVALENCE (KTAB(1,21,2),K1TAB21(1)),(KTAB(1,22,2),K1TAB22(1)) EQUIVALENCE (KTAB(1,23,2),K1TAB23(1)),(KTAB(1,24,2),K1TAB24(1)) EQUIVALENCE (KTAB(1,25,2),K1TAB25(1)),(KTAB(1,26,2),K1TAB26(1)) EQUIVALENCE (KTAB(1,27,2),K1TAB27(1)),(KTAB(1,28,2),K1TAB28(1)) EQUIVALENCE (KTAB(1,29,2),K1TAB29(1)),(KTAB(1,30,2),K1TAB30(1)) EQUIVALENCE (KTAB(1,31,2),K1TAB31(1)),(KTAB(1,32,2),K1TAB32(1)) EQUIVALENCE (KTAB(1,33,2),K1TAB33(1)),(KTAB(1,34,2),K1TAB34(1)) EQUIVALENCE (KTAB(1,35,2),K1TAB35(1)),(KTAB(1,36,2),K1TAB36(1)) EQUIVALENCE (KTAB(1,37,2),K1TAB37(1)),(KTAB(1,38,2),K1TAB38(1)) EQUIVALENCE (KTAB(1, 1,3),K2TAB01(1)),(KTAB(1, 2,3),K2TAB02(1)) EQUIVALENCE (KTAB(1, 3,3),K2TAB03(1)),(KTAB(1, 4,3),K2TAB04(1)) EQUIVALENCE (KTAB(1, 5,3),K2TAB05(1)),(KTAB(1, 6,3),K2TAB06(1)) EQUIVALENCE (KTAB(1, 7,3),K2TAB07(1)),(KTAB(1, 8,3),K2TAB08(1)) EQUIVALENCE (KTAB(1, 9,3),K2TAB09(1)),(KTAB(1,10,3),K2TAB10(1)) EQUIVALENCE (KTAB(1,11,3),K2TAB11(1)),(KTAB(1,12,3),K2TAB12(1)) EQUIVALENCE (KTAB(1,13,3),K2TAB13(1)),(KTAB(1,14,3),K2TAB14(1)) EQUIVALENCE (KTAB(1,15,3),K2TAB15(1)),(KTAB(1,16,3),K2TAB16(1)) EQUIVALENCE (KTAB(1,17,3),K2TAB17(1)),(KTAB(1,18,3),K2TAB18(1)) EQUIVALENCE (KTAB(1,19,3),K2TAB19(1)),(KTAB(1,20,3),K2TAB20(1)) EQUIVALENCE (KTAB(1,21,3),K2TAB21(1)),(KTAB(1,22,3),K2TAB22(1)) EQUIVALENCE (KTAB(1,23,3),K2TAB23(1)),(KTAB(1,24,3),K2TAB24(1)) EQUIVALENCE (KTAB(1,25,3),K2TAB25(1)),(KTAB(1,26,3),K2TAB26(1)) EQUIVALENCE (KTAB(1,27,3),K2TAB27(1)),(KTAB(1,28,3),K2TAB28(1)) EQUIVALENCE (KTAB(1,29,3),K2TAB29(1)),(KTAB(1,30,3),K2TAB30(1)) EQUIVALENCE (KTAB(1,31,3),K2TAB31(1)),(KTAB(1,32,3),K2TAB32(1)) EQUIVALENCE (KTAB(1,33,3),K2TAB33(1)),(KTAB(1,34,3),K2TAB34(1)) EQUIVALENCE (KTAB(1,35,3),K2TAB35(1)),(KTAB(1,36,3),K2TAB36(1)) EQUIVALENCE (KTAB(1,37,3),K2TAB37(1)),(KTAB(1,38,3),K2TAB38(1)) EQUIVALENCE (KTAB(1, 1,4),K4TAB01(1)),(KTAB(1, 2,4),K4TAB02(1)) EQUIVALENCE (KTAB(1, 3,4),K4TAB03(1)),(KTAB(1, 4,4),K4TAB04(1)) EQUIVALENCE (KTAB(1, 5,4),K4TAB05(1)),(KTAB(1, 6,4),K4TAB06(1)) EQUIVALENCE (KTAB(1, 7,4),K4TAB07(1)),(KTAB(1, 8,4),K4TAB08(1)) EQUIVALENCE (KTAB(1, 9,4),K4TAB09(1)),(KTAB(1,10,4),K4TAB10(1)) EQUIVALENCE (KTAB(1,11,4),K4TAB11(1)),(KTAB(1,12,4),K4TAB12(1)) EQUIVALENCE (KTAB(1,13,4),K4TAB13(1)),(KTAB(1,14,4),K4TAB14(1)) EQUIVALENCE (KTAB(1,15,4),K4TAB15(1)),(KTAB(1,16,4),K4TAB16(1)) EQUIVALENCE (KTAB(1,17,4),K4TAB17(1)),(KTAB(1,18,4),K4TAB18(1)) EQUIVALENCE (KTAB(1,19,4),K4TAB19(1)),(KTAB(1,20,4),K4TAB20(1)) EQUIVALENCE (KTAB(1,21,4),K4TAB21(1)),(KTAB(1,22,4),K4TAB22(1)) EQUIVALENCE (KTAB(1,23,4),K4TAB23(1)),(KTAB(1,24,4),K4TAB24(1)) EQUIVALENCE (KTAB(1,25,4),K4TAB25(1)),(KTAB(1,26,4),K4TAB26(1)) EQUIVALENCE (KTAB(1,27,4),K4TAB27(1)),(KTAB(1,28,4),K4TAB28(1)) EQUIVALENCE (KTAB(1,29,4),K4TAB29(1)),(KTAB(1,30,4),K4TAB30(1)) EQUIVALENCE (KTAB(1,31,4),K4TAB31(1)),(KTAB(1,32,4),K4TAB32(1)) EQUIVALENCE (KTAB(1,33,4),K4TAB33(1)),(KTAB(1,34,4),K4TAB34(1)) EQUIVALENCE (KTAB(1,35,4),K4TAB35(1)),(KTAB(1,36,4),K4TAB36(1)) EQUIVALENCE (KTAB(1,37,4),K4TAB37(1)),(KTAB(1,38,4),K4TAB38(1)) EQUIVALENCE (KTAB(1, 1,5),K8TAB01(1)),(KTAB(1, 2,5),K8TAB02(1)) EQUIVALENCE (KTAB(1, 3,5),K8TAB03(1)),(KTAB(1, 4,5),K8TAB04(1)) EQUIVALENCE (KTAB(1, 5,5),K8TAB05(1)),(KTAB(1, 6,5),K8TAB06(1)) EQUIVALENCE (KTAB(1, 7,5),K8TAB07(1)),(KTAB(1, 8,5),K8TAB08(1)) EQUIVALENCE (KTAB(1, 9,5),K8TAB09(1)),(KTAB(1,10,5),K8TAB10(1)) EQUIVALENCE (KTAB(1,11,5),K8TAB11(1)),(KTAB(1,12,5),K8TAB12(1)) EQUIVALENCE (KTAB(1,13,5),K8TAB13(1)),(KTAB(1,14,5),K8TAB14(1)) EQUIVALENCE (KTAB(1,15,5),K8TAB15(1)),(KTAB(1,16,5),K8TAB16(1)) EQUIVALENCE (KTAB(1,17,5),K8TAB17(1)),(KTAB(1,18,5),K8TAB18(1)) EQUIVALENCE (KTAB(1,19,5),K8TAB19(1)),(KTAB(1,20,5),K8TAB20(1)) EQUIVALENCE (KTAB(1,21,5),K8TAB21(1)),(KTAB(1,22,5),K8TAB22(1)) EQUIVALENCE (KTAB(1,23,5),K8TAB23(1)),(KTAB(1,24,5),K8TAB24(1)) EQUIVALENCE (KTAB(1,25,5),K8TAB25(1)),(KTAB(1,26,5),K8TAB26(1)) EQUIVALENCE (KTAB(1,27,5),K8TAB27(1)),(KTAB(1,28,5),K8TAB28(1)) EQUIVALENCE (KTAB(1,29,5),K8TAB29(1)),(KTAB(1,30,5),K8TAB30(1)) EQUIVALENCE (KTAB(1,31,5),K8TAB31(1)),(KTAB(1,32,5),K8TAB32(1)) EQUIVALENCE (KTAB(1,33,5),K8TAB33(1)),(KTAB(1,34,5),K8TAB34(1)) EQUIVALENCE (KTAB(1,35,5),K8TAB35(1)),(KTAB(1,36,5),K8TAB36(1)) EQUIVALENCE (KTAB(1,37,5),K8TAB37(1)),(KTAB(1,38,5),K8TAB38(1)) DATA NT,NP,NV/56,38,5/ DATA TABV/0.D5,1.D5,2.D5,4.D5,8.D5/ DATA TABT/ 1 3.320,3.340,3.360,3.380,3.400,3.420,3.440,3.460,3.480,3.500, 2 3.520,3.540,3.560,3.580,3.600,3.620,3.640,3.660,3.680,3.700, 3 3.730,3.760,3.790,3.820,3.850,3.880,3.910,3.940,3.970,4.000, 4 4.050,4.100,4.150,4.200,4.250,4.300,4.350,4.400,4.450,4.500, 5 4.550,4.600,4.650,4.700,4.750,4.800,4.850,4.900,4.950,5.000, 6 5.050,5.100,5.150,5.200,5.250,5.300/ DATA TABP/ -2.000,-1.500,-1.000, -.500, 0.000, .500, 1.000, 1 1.250, 1.500, 1.750, 2.000, 2.250, 2.500, 2.750, 3.000, 3.200, 2 3.400, 3.600, 3.800, 4.000, 4.200, 4.400, 4.600, 4.800, 5.000, 3 5.200, 5.400, 5.600, 5.800, 6.000, 6.250, 6.500, 6.750, 7.000, 4 7.250, 7.500, 7.750, 8.000/ DATA K0TAB01/ -2.000 1-5201,-5133,-5045,-4888,-4694,-4508,-4360,-4257,-4197,-4170, -2.000 2-4154,-4122,-4029,-3840,-3576,-3270,-2942,-2604,-2265,-1932, -2.000 3-1450,-1011, -685, -549, -519, -520, -526, -531, -527, -513, -2.000 4 -492, -482, -482, -487, -482, -472, -448, -440, -435, -434, -2.000 5 -435, -431, -428, -428, -429, -428, -428, -430, -433, -434, -2.000 6 -432, -427, -418, -405, -386, -360/ -2.000 DATA K0TAB02/ -1.500 1-5234,-5146,-5078,-4967,-4796,-4606,-4433,-4302,-4213,-4164, -1.500 2-4144,-4125,-4076,-3947,-3728,-3450,-3142,-2818,-2490,-2162, -1.500 3-1681,-1227, -834, -592, -515, -504, -511, -520, -525, -518, -1.500 4 -490, -478, -473, -480, -479, -470, -451, -437, -432, -429, -1.500 5 -432, -429, -426, -425, -427, -427, -425, -427, -432, -433, -1.500 6 -432, -427, -418, -405, -386, -360/ -1.500 DATA K0TAB03/ -1.000 1-5278,-5167,-5089,-5010,-4878,-4701,-4517,-4358,-4241,-4164, -1.000 2-4127,-4111,-4087,-4014,-3851,-3611,-3326,-3020,-2703,-2383, -1.000 3-1907,-1446,-1019, -682, -517, -479, -483, -497, -509, -513, -1.000 4 -489, -474, -463, -469, -473, -467, -453, -433, -429, -424, -1.000 5 -427, -427, -424, -422, -424, -425, -423, -424, -430, -433, -1.000 6 -432, -427, -418, -405, -386, -360/ -1.000 DATA K0TAB04/ -0.500 1-5322,-5193,-5093,-5019,-4924,-4775,-4594,-4417,-4271,-4167, -0.500 2-4104,-4078,-4065,-4032,-3931,-3740,-3487,-3201,-2899,-2589, -0.500 3-2121,-1658,-1212, -815, -542, -439, -429, -449, -472, -489, -0.500 4 -485, -466, -453, -453, -463, -460, -449, -430, -424, -419, -0.500 5 -421, -423, -422, -419, -420, -422, -422, -421, -426, -431, -0.500 6 -431, -426, -418, -405, -386, -360/ -0.500 DATA K0TAB05/ 0.000 1-5347,-5214,-5093,-5002,-4923,-4808,-4644,-4459,-4288,-4154, 0.000 2-4063,-4015,-4002,-3993,-3947,-3818,-3606,-3347,-3063,-2767, 0.000 3-2311,-1850,-1394, -960, -599, -392, -339, -356, -393, -429, 0.000 4 -461, -449, -440, -433, -444, -448, -440, -425, -416, -413, 0.000 5 -413, -418, -418, -416, -415, -419, -419, -417, -421, -428, 0.000 6 -430, -426, -418, -405, -386, -360/ 0.000 DATA K0TAB06/ 0.500 1-5350,-5206,-5071,-4959,-4872,-4779,-4641,-4462,-4274,-4108, 0.500 2-3985,-3908,-3878,-3879,-3872,-3808,-3654,-3430,-3170,-2892, 0.500 3-2455,-2002,-1542,-1086, -667, -352, -210, -200, -244, -303, 0.500 4 -388, -408, -412, -406, -416, -426, -424, -413, -404, -403, 0.500 5 -402, -409, -413, -412, -409, -413, -416, -414, -415, -424, 0.500 6 -428, -426, -418, -405, -386, -360/ 0.500 DATA K0TAB07/ 1.000 1-5342,-5161,-5008,-4874,-4767,-4677,-4564,-4403,-4212,-4021, 1.000 2-3862,-3748,-3686,-3673,-3684,-3674,-3590,-3415,-3184,-2926, 1.000 3-2515,-2080,-1628,-1167, -716, -323, -63, 18, -11, -84, 1.000 4 -228, -313, -346, -360, -372, -392, -395, -389, -382, -387, 1.000 5 -388, -396, -405, -407, -405, -406, -411, -410, -409, -418, 1.000 6 -425, -424, -417, -405, -386, -360/ 1.000 DATA K0TAB08/ 1.250 1-5336,-5130,-4960,-4812,-4692,-4595,-4491,-4343,-4156,-3959, 1.250 2-3784,-3651,-3569,-3540,-3549,-3555,-3505,-3361,-3148,-2902, 1.250 3-2504,-2083,-1640,-1182, -726, -307, 4, 142, 134, 61, 1.250 4 -106, -232, -289, -322, -341, -366, -374, -371, -366, -373, 1.250 5 -378, -387, -398, -403, -402, -402, -408, -408, -406, -414, 1.250 6 -423, -423, -417, -405, -386, -360/ 1.250 DATA K0TAB09/ 1.500 1-5330,-5098,-4903,-4739,-4602,-4495,-4394,-4259,-4080,-3882, 1.500 2-3694,-3543,-3440,-3391,-3390,-3406,-3385,-3276,-3085,-2851, 1.500 3-2467,-2059,-1628,-1179, -722, -288, 66, 266, 296, 230, 1.500 4 44, -124, -211, -268, -297, -333, -349, -347, -344, -354, 1.500 5 -365, -376, -391, -398, -398, -397, -404, -406, -403, -409, 1.500 6 -420, -422, -417, -405, -386, -360/ 1.500 DATA K0TAB10/ 1.750 1-5319,-5067,-4843,-4657,-4501,-4379,-4274,-4149,-3983,-3787, 1.750 2-3592,-3425,-3304,-3234,-3217,-3232,-3232,-3158,-2995,-2776, 1.750 3-2406,-2011,-1594,-1157, -706, -264, 121, 379, 461, 415, 1.750 4 222, 15, -109, -193, -241, -288, -316, -318, -316, -327, 1.750 5 -347, -362, -380, -391, -394, -392, -398, -403, -400, -404, 1.750 6 -416, -420, -416, -405, -386, -360/ 1.750 DATA K0TAB11/ 2.000 1-5305,-5039,-4785,-4571,-4392,-4249,-4137,-4018,-3865,-3677, 2.000 2-3478,-3299,-3160,-3070,-3034,-3040,-3052,-3012,-2880,-2680, 2.000 3-2326,-1943,-1541,-1117, -676, -233, 172, 479, 621, 609, 2.000 4 423, 183, 15, -96, -168, -228, -273, -283, -280, -291, 2.000 5 -321, -342, -366, -382, -388, -386, -392, -399, -397, -398, 2.000 6 -412, -418, -415, -404, -386, -360/ 2.000 DATA K0TAB12/ 2.250 1-5286,-5010,-4731,-4484,-4281,-4115,-3987,-3868,-3727,-3550, 2.250 2-3354,-3167,-3013,-2905,-2848,-2840,-2854,-2840,-2743,-2566, 2.250 3-2229,-1859,-1470,-1062, -634, -196, 219, 562, 764, 799, 2.250 4 636, 379, 168, 27, -75, -151, -214, -237, -237, -246, 2.250 5 -283, -315, -346, -369, -380, -381, -384, -393, -393, -393, 2.250 6 -406, -415, -414, -404, -386, -360/ 2.250 DATA K0TAB13/ 2.500 1-5261,-4981,-4682,-4404,-4171,-3980,-3831,-3707,-3574,-3410, 2.500 2-3221,-3030,-2864,-2738,-2662,-2636,-2644,-2647,-2585,-2436, 2.500 3-2121,-1764,-1388, -994, -580, -152, 266, 633, 887, 980, 2.500 4 857, 595, 344, 173, 39, -55, -140, -180, -186, -191, 2.500 5 -233, -278, -319, -352, -369, -373, -375, -386, -388, -387, 2.500 6 -399, -412, -412, -403, -385, -360/ 2.500 DATA K0TAB14/ 2.750 1-5229,-4950,-4637,-4331,-4068,-3851,-3678,-3540,-3409,-3258, 2.750 2-3079,-2889,-2714,-2574,-2480,-2435,-2431,-2440,-2407,-2291, 2.750 3-2003,-1659,-1295, -915, -517, -101, 313, 694, 987, 1138, 2.750 4 1076, 824, 546, 344, 179, 60, -43, -106, -123, -127, 2.750 5 -166, -226, -281, -326, -353, -363, -365, -377, -382, -381, 2.750 6 -391, -407, -410, -402, -385, -360/ 2.750 DATA K0TAB15/ 3.000 1-5190,-4915,-4594,-4268,-3974,-3729,-3530,-3373,-3238,-3096, 3.000 2-2931,-2746,-2566,-2413,-2302,-2237,-2218,-2225,-2214,-2131, 3.000 3-1876,-1548,-1196, -829, -445, -44, 363, 750, 1071, 1275, 3.000 4 1289, 1059, 765, 532, 342, 197, 73, -14, -47, -53, 3.000 5 -84, -158, -228, -291, -331, -350, -353, -365, -375, -374, 3.000 6 -382, -400, -407, -401, -384, -359/ 3.000 DATA K0TAB16/ 3.200 1-5152,-4882,-4559,-4221,-3907,-3640,-3420,-3245,-3101,-2962, 3.200 2-2806,-2627,-2447,-2287,-2163,-2085,-2051,-2051,-2049,-1992, 3.200 3-1767,-1454,-1111, -754, -382, 6, 406, 792, 1128, 1364, 3.200 4 1447, 1246, 952, 697, 493, 324, 185, 77, 27, 14, 3.200 5 -9, -88, -173, -251, -305, -334, -341, -353, -366, -367, 3.200 6 -374, -394, -403, -399, -384, -359/ 3.200 DATA K0TAB17/ 3.400 1-5109,-4844,-4523,-4178,-3847,-3559,-3318,-3122,-2965,-2825, 3.400 2-2677,-2507,-2328,-2163,-2028,-1936,-1888,-1877,-1879,-1844, 3.400 3-1653,-1357,-1024, -677, -315, 61, 451, 834, 1178, 1441, 3.400 4 1595, 1431, 1145, 870, 653, 465, 311, 184, 115, 92, 3.400 5 74, -6, -104, -200, -271, -313, -327, -338, -356, -360, 3.400 6 -365, -386, -399, -397, -383, -359/ 3.400 DATA K0TAB18/ 3.600 1-5060,-4802,-4483,-4136,-3794,-3486,-3224,-3008,-2835,-2689, 3.600 2-2545,-2384,-2208,-2040,-1897,-1791,-1729,-1707,-1707,-1688, 3.600 3-1533,-1256, -934, -596, -245, 120, 498, 876, 1224, 1507, 3.600 4 1726, 1611, 1339, 1053, 825, 621, 452, 308, 218, 182, 3.600 5 165, 90, -21, -135, -227, -284, -309, -321, -342, -350, 3.600 6 -355, -376, -393, -394, -381, -358/ 3.600 DATA K0TAB19/ 3.800 1-5005,-4753,-4440,-4093,-3744,-3420,-3139,-2903,-2711,-2554, 3.800 2-2412,-2258,-2088,-1918,-1768,-1651,-1575,-1540,-1533,-1524, 3.800 3-1404,-1151, -842, -513, -172, 182, 549, 919, 1268, 1563, 3.800 4 1840, 1784, 1535, 1243, 1004, 790, 608, 450, 339, 286, 3.800 5 265, 200, 76, -53, -168, -245, -285, -301, -324, -338, 3.800 6 -343, -364, -386, -390, -380, -357/ 3.800 DATA K0TAB20/ 4.000 1-4943,-4700,-4392,-4050,-3698,-3362,-3063,-2808,-2596,-2425, 4.000 2-2279,-2130,-1966,-1798,-1642,-1515,-1426,-1377,-1362,-1356, 4.000 3-1270,-1042, -746, -427, -95, 247, 603, 964, 1310, 1614, 4.000 4 1939, 1946, 1726, 1437, 1187, 967, 774, 605, 475, 404, 4.000 5 376, 320, 190, 43, -95, -196, -253, -276, -303, -323, 4.000 6 -330, -350, -377, -386, -377, -356/ 4.000 DATA K0TAB21/ 4.200 1-4886,-4650,-4348,-4011,-3658,-3313,-2999,-2726,-2495,-2306, 4.200 2-2150,-2003,-1844,-1677,-1519,-1384,-1282,-1220,-1193,-1185, 4.200 3-1125, -927, -647, -338, -16, 316, 661, 1011, 1352, 1659, 4.200 4 2021, 2094, 1913, 1635, 1377, 1155, 953, 776, 632, 542, 4.200 5 500, 452, 320, 157, -3, -130, -209, -245, -275, -302, 4.200 6 -314, -334, -365, -379, -373, -354/ 4.200 DATA K0TAB22/ 4.400 1-4822,-4596,-4299,-3969,-3619,-3269,-2942,-2652,-2403,-2195, 4.400 2-2026,-1877,-1722,-1558,-1397,-1255,-1143,-1067,-1028,-1015, 4.400 3 -974, -807, -545, -247, 65, 387, 721, 1061, 1395, 1702, 4.400 4 2092, 2227, 2094, 1834, 1569, 1346, 1138, 956, 800, 693, 4.400 5 637, 593, 464, 288, 105, -49, -153, -206, -241, -276, 4.400 6 -294, -314, -350, -371, -369, -351/ 4.400 DATA K0TAB23/ 4.600 1-4753,-4539,-4247,-3925,-3580,-3229,-2893,-2588,-2321,-2096, 4.600 2-1911,-1754,-1601,-1439,-1278,-1130,-1009, -920, -868, -846, 4.600 3 -816, -680, -438, -152, 149, 462, 784, 1113, 1440, 1744, 4.600 4 2152, 2343, 2267, 2031, 1766, 1541, 1331, 1145, 980, 860, 4.600 5 788, 741, 622, 435, 232, 50, -82, -156, -200, -243, 4.600 6 -268, -290, -331, -359, -362, -347/ 4.600 DATA K0TAB24/ 4.800 1-4679,-4481,-4193,-3879,-3541,-3192,-2850,-2532,-2250,-2007, 4.800 2-1805,-1637,-1481,-1321,-1159,-1008, -878, -779, -713, -680, 4.800 3 -652, -546, -327, -55, 237, 539, 850, 1168, 1486, 1786, 4.800 4 2205, 2443, 2428, 2225, 1967, 1739, 1530, 1340, 1171, 1039, 4.800 5 953, 898, 790, 596, 377, 169, 6, -93, -150, -201, 4.800 6 -236, -262, -306, -344, -353, -342/ 4.800 DATA K0TAB25/ 5.000 1-4596,-4421,-4135,-3828,-3498,-3154,-2810,-2483,-2187,-1928, 5.000 2-1709,-1526,-1365,-1205,-1043, -889, -752, -642, -564, -519, 5.000 3 -487, -406, -212, 45, 327, 619, 919, 1226, 1535, 1828, 5.000 4 2254, 2529, 2575, 2413, 2168, 1937, 1730, 1539, 1367, 1224, 5.000 5 1126, 1061, 964, 767, 536, 304, 112, -17, -90, -150, 5.000 6 -197, -228, -275, -324, -341, -335/ 5.000 DATA K0TAB26/ 5.200 1-4505,-4358,-4074,-3774,-3452,-3114,-2771,-2439,-2132,-1859, 5.200 2-1624,-1426,-1255,-1092, -929, -772, -630, -511, -421, -364, 5.200 3 -323, -258, -90, 151, 421, 703, 992, 1288, 1586, 1872, 5.200 4 2299, 2601, 2705, 2594, 2371, 2140, 1937, 1745, 1572, 1424, 5.200 5 1312, 1234, 1142, 950, 708, 459, 240, 79, -16, -88, 5.200 6 -146, -186, -237, -295, -324, -324/ 5.200 DATA K0TAB27/ 5.400 1-4403,-4293,-4011,-3715,-3403,-3072,-2733,-2399,-2083,-1798, 5.400 2-1548,-1334,-1151, -983, -818, -658, -511, -384, -284, -214, 5.400 3 -159, -105, 36, 259, 518, 789, 1068, 1353, 1641, 1918, 5.400 4 2342, 2664, 2819, 2764, 2569, 2344, 2143, 1952, 1778, 1625, 5.400 5 1503, 1412, 1322, 1138, 889, 626, 383, 193, 70, -14, 5.400 6 -85, -135, -190, -260, -301, -309/ 5.400 DATA K0TAB28/ 5.600 1-4287,-4226,-3945,-3654,-3349,-3027,-2694,-2360,-2039,-1743, 5.600 2-1480,-1252,-1056, -880, -712, -549, -397, -264, -154, -72, 5.600 3 -2, 48, 168, 372, 617, 878, 1146, 1421, 1698, 1967, 5.600 4 2385, 2721, 2917, 2920, 2762, 2549, 2349, 2162, 1988, 1832, 5.600 5 1701, 1598, 1503, 1330, 1076, 804, 542, 326, 174, 73, 5.600 6 -11, -74, -134, -213, -270, -289/ 5.600 DATA K0TAB29/ 5.800 1-4156,-4157,-3878,-3590,-3291,-2978,-2652,-2321,-1998,-1695, 5.800 2-1421,-1180, -970, -785, -612, -445, -289, -149, -31, 61, 5.800 3 147, 202, 303, 488, 720, 970, 1228, 1492, 1759, 2019, 5.800 4 2429, 2772, 3001, 3060, 2948, 2754, 2557, 2373, 2200, 2043, 5.800 5 1906, 1791, 1686, 1523, 1269, 990, 716, 477, 297, 175, 5.800 6 76, 0, -68, -155, -229, -262/ 5.800 DATA K0TAB30/ 6.000 1-4006,-4087,-3809,-3524,-3231,-2926,-2607,-2282,-1959,-1652, 6.000 2-1369,-1116, -893, -698, -518, -347, -186, -39, 86, 189, 6.000 3 293, 355, 442, 607, 826, 1065, 1314, 1567, 1824, 2073, 6.000 4 2474, 2821, 3075, 3185, 3123, 2954, 2763, 2584, 2412, 2255, 6.000 5 2111, 1986, 1871, 1715, 1465, 1183, 898, 641, 435, 292, 6.000 6 178, 85, 9, -85, -177, -227/ 6.000 DATA K0TAB31/ 6.250 1-3785,-3999,-3721,-3439,-3151,-2855,-2547,-2230,-1911,-1602, 6.250 2-1311,-1046, -810, -601, -412, -234, -66, 87, 222, 336, 6.250 3 459, 534, 611, 753, 955, 1182, 1420, 1662, 1907, 2145, 6.250 4 2533, 2880, 3155, 3315, 3321, 3196, 3025, 2852, 2684, 2524, 6.250 5 2378, 2242, 2111, 1956, 1713, 1425, 1135, 865, 636, 464, 6.250 6 330, 217, 123, 20, -90, -166/ 6.250 DATA K0TAB32/ 6.500 1-3518,-3908,-3631,-3351,-3068,-2779,-2481,-2174,-1862,-1554, 6.500 2-1259, -986, -738, -516, -316, -132, 41, 203, 348, 472, 6.500 3 614, 707, 782, 904, 1087, 1303, 1531, 1762, 1995, 2222, 6.500 4 2595, 2939, 3227, 3428, 3496, 3426, 3279, 3117, 2954, 2793, 6.500 5 2643, 2499, 2355, 2195, 1962, 1671, 1377, 1100, 853, 655, 6.500 6 503, 370, 259, 148, 19, -84/ 6.500 DATA K0TAB33/ 6.750 1-3195,-3818,-3541,-3263,-2983,-2700,-2410,-2113,-1810,-1506, 6.750 2-1212, -933, -676, -443, -233, -41, 138, 308, 462, 597, 6.750 3 757, 868, 949, 1056, 1221, 1423, 1640, 1861, 2084, 2300, 6.750 4 2659, 2999, 3295, 3522, 3643, 3633, 3525, 3384, 3230, 3071, 6.750 5 2915, 2761, 2604, 2436, 2210, 1919, 1619, 1334, 1075, 867, 6.750 6 699, 552, 420, 296, 155, 24/ 6.750 DATA K0TAB34/ 7.000 1-2989,-3727,-3450,-3174,-2897,-2618,-2336,-2048,-1754,-1457, 7.000 2-1166, -885, -622, -380, -160, 39, 225, 400, 563, 708, 7.000 3 887, 1018, 1111, 1211, 1358, 1546, 1752, 1964, 2176, 2384, 7.000 4 2729, 3061, 3361, 3607, 3771, 3820, 3758, 3640, 3501, 3349, 7.000 5 3191, 3028, 2857, 2666, 2447, 2168, 1867, 1581, 1315, 1085, 7.000 6 899, 746, 602, 466, 315, 159/ 7.000 DATA K0TAB35/ 7.250 1-2880,-3636,-3360,-3084,-2810,-2535,-2258,-1978,-1693,-1406, 7.250 2-1119, -840, -574, -326, -98, 109, 300, 480, 650, 805, 7.250 3 1002, 1152, 1262, 1362, 1497, 1673, 1868, 2071, 2274, 2472, 7.250 4 2803, 3128, 3428, 3686, 3880, 3978, 3969, 3885, 3770, 3629, 7.250 5 3472, 3303, 3120, 2914, 2688, 2411, 2108, 1821, 1556, 1320, 7.250 6 1124, 959, 799, 647, 494, 322/ 7.250 DATA K0TAB36/ 7.500 1-2775,-3545,-3270,-2995,-2722,-2451,-2179,-1906,-1629,-1351, 7.500 2-1072, -796, -531, -279, -45, 169, 367, 551, 725, 887, 7.500 3 1100, 1272, 1401, 1509, 1636, 1801, 1987, 2181, 2375, 2565, 7.500 4 2884, 3200, 3498, 3764, 3979, 4120, 4162, 4117, 4025, 3902, 7.500 5 3751, 3578, 3383, 3163, 2929, 2658, 2354, 2066, 1800, 1561, 7.500 6 1356, 1186, 1017, 853, 688, 502/ 7.500 DATA K0TAB37/ 7.750 1-2674,-3454,-3180,-2907,-2636,-2367,-2099,-1831,-1563,-1292, 7.750 2-1021, -752, -489, -236, 1, 221, 423, 612, 789, 955, 7.750 3 1181, 1371, 1521, 1643, 1770, 1928, 2107, 2294, 2481, 2664, 7.750 4 2971, 3277, 3571, 3841, 4071, 4240, 4327, 4326, 4265, 4166, 7.750 5 4027, 3853, 3650, 3416, 3169, 2898, 2596, 2305, 2040, 1801, 7.750 6 1592, 1416, 1244, 1071, 897, 704/ 7.750 DATA K0TAB38/ 8.000 1-2576,-3364,-3092,-2820,-2550,-2283,-2019,-1756,-1494,-1232, 8.000 2 -969, -706, -448, -197, 41, 265, 472, 664, 844, 1013, 8.000 3 1247, 1453, 1624, 1764, 1898, 2053, 2228, 2410, 2589, 2766, 8.000 4 3063, 3361, 3650, 3920, 4160, 4353, 4478, 4520, 4492, 4415, 8.000 5 4293, 4124, 3914, 3669, 3410, 3136, 2840, 2548, 2282, 2043, 8.000 6 1831, 1650, 1476, 1297, 1116, 920/ 8.000 DATA K1TAB01/ -2.000 1-5189,-5123,-5036,-4880,-4687,-4501,-4354,-4252,-4192,-4166, -2.000 2-4151,-4120,-4027,-3838,-3574,-3268,-2940,-2602,-2264,-1930, -2.000 3-1449,-1009, -684, -547, -517, -518, -525, -530, -526, -512, -2.000 4 -491, -480, -481, -486, -482, -472, -448, -440, -435, -434, -2.000 5 -434, -431, -428, -428, -429, -428, -427, -430, -433, -434, -2.000 6 -432, -427, -418, -405, -386, -360/ -2.000 DATA K1TAB02/ -1.500 1-5220,-5134,-5068,-4957,-4788,-4598,-4426,-4295,-4207,-4159, -1.500 2-4139,-4122,-4074,-3946,-3726,-3448,-3140,-2816,-2487,-2160, -1.500 3-1680,-1225, -832, -590, -512, -502, -509, -518, -523, -517, -1.500 4 -489, -477, -471, -479, -479, -470, -451, -437, -432, -429, -1.500 5 -432, -429, -426, -425, -427, -427, -425, -427, -432, -433, -1.500 6 -432, -427, -418, -405, -386, -360/ -1.500 DATA K1TAB03/ -1.000 1-5263,-5152,-5076,-5000,-4869,-4693,-4509,-4350,-4233,-4158, -1.000 2-4121,-4107,-4084,-4012,-3849,-3609,-3324,-3017,-2700,-2380, -1.000 3-1905,-1444,-1017, -680, -515, -476, -480, -495, -507, -511, -1.000 4 -488, -473, -461, -468, -473, -466, -452, -433, -429, -424, -1.000 5 -427, -427, -424, -421, -424, -425, -423, -424, -429, -432, -1.000 6 -431, -426, -418, -405, -386, -360/ -1.000 DATA K1TAB04/ -0.500 1-5306,-5177,-5079,-5007,-4914,-4765,-4585,-4408,-4262,-4159, -0.500 2-4096,-4072,-4061,-4029,-3928,-3738,-3484,-3198,-2895,-2586, -0.500 3-2118,-1656,-1210, -813, -540, -437, -427, -446, -470, -487, -0.500 4 -483, -465, -451, -452, -462, -459, -448, -429, -423, -419, -0.500 5 -421, -423, -422, -419, -420, -422, -421, -421, -426, -431, -0.500 6 -431, -426, -418, -405, -386, -360/ -0.500 DATA K1TAB05/ 0.000 1-5332,-5197,-5076,-4988,-4910,-4796,-4633,-4449,-4278,-4144, 0.000 2-4053,-4007,-3996,-3988,-3943,-3815,-3603,-3344,-3060,-2763, 0.000 3-2308,-1847,-1392, -958, -597, -390, -336, -352, -389, -426, 0.000 4 -459, -447, -438, -431, -443, -447, -439, -424, -415, -412, 0.000 5 -412, -418, -418, -416, -414, -418, -419, -417, -421, -428, 0.000 6 -430, -426, -418, -405, -386, -360/ 0.000 DATA K1TAB06/ 0.500 1-5335,-5189,-5053,-4942,-4857,-4766,-4628,-4450,-4262,-4097, 0.500 2-3974,-3897,-3869,-3872,-3866,-3804,-3651,-3426,-3166,-2887, 0.500 3-2450,-1998,-1539,-1084, -665, -350, -208, -197, -240, -299, 0.500 4 -385, -406, -409, -403, -414, -425, -423, -412, -403, -403, 0.500 5 -402, -409, -413, -412, -409, -413, -416, -414, -415, -424, 0.500 6 -428, -425, -418, -405, -386, -360/ 0.500 DATA K1TAB07/ 1.000 1-5327,-5144,-4990,-4855,-4750,-4662,-4550,-4390,-4199,-4009, 1.000 2-3849,-3736,-3674,-3663,-3677,-3669,-3585,-3410,-3179,-2921, 1.000 3-2509,-2076,-1624,-1163, -714, -320, -61, 21, -8, -80, 1.000 4 -225, -310, -343, -357, -370, -390, -394, -388, -381, -386, 1.000 5 -388, -396, -404, -407, -404, -406, -411, -410, -409, -418, 1.000 6 -425, -424, -417, -405, -386, -360/ 1.000 DATA K1TAB08/ 1.250 1-5321,-5113,-4941,-4793,-4674,-4580,-4476,-4328,-4142,-3946, 1.250 2-3771,-3639,-3557,-3530,-3540,-3549,-3500,-3356,-3143,-2897, 1.250 3-2498,-2077,-1636,-1179, -723, -305, 6, 144, 138, 65, 1.250 4 -102, -228, -286, -319, -338, -364, -373, -369, -365, -372, 1.250 5 -378, -387, -398, -402, -401, -401, -407, -408, -406, -414, 1.250 6 -423, -423, -417, -405, -386, -360/ 1.250 DATA K1TAB09/ 1.500 1-5315,-5081,-4885,-4719,-4583,-4479,-4379,-4245,-4066,-3868, 1.500 2-3681,-3530,-3428,-3380,-3381,-3399,-3379,-3270,-3080,-2845, 1.500 3-2461,-2053,-1624,-1175, -719, -285, 68, 268, 299, 234, 1.500 4 48, -120, -208, -264, -294, -331, -348, -346, -342, -353, 1.500 5 -365, -375, -390, -397, -398, -396, -403, -406, -403, -409, 1.500 6 -420, -422, -417, -405, -386, -360/ 1.500 DATA K1TAB10/ 1.750 1-5304,-5050,-4825,-4638,-4482,-4363,-4259,-4135,-3969,-3774, 1.750 2-3579,-3412,-3292,-3223,-3208,-3224,-3225,-3153,-2989,-2770, 1.750 3-2400,-2005,-1589,-1153, -703, -261, 123, 381, 464, 418, 1.750 4 226, 19, -105, -189, -238, -285, -314, -316, -314, -326, 1.750 5 -346, -361, -379, -390, -394, -392, -398, -402, -400, -404, 1.750 6 -416, -420, -416, -405, -386, -360/ 1.750 DATA K1TAB11/ 2.000 1-5291,-5022,-4767,-4551,-4372,-4233,-4122,-4005,-3851,-3664, 2.000 2-3466,-3287,-3148,-3059,-3024,-3032,-3046,-3006,-2874,-2674, 2.000 3-2319,-1937,-1535,-1113, -673, -230, 174, 481, 624, 612, 2.000 4 427, 187, 19, -92, -163, -225, -271, -281, -278, -290, 2.000 5 -320, -341, -365, -382, -388, -386, -392, -398, -396, -398, 2.000 6 -412, -418, -415, -404, -386, -360/ 2.000 DATA K1TAB12/ 2.250 1-5272,-4994,-4713,-4466,-4263,-4099,-3973,-3856,-3714,-3538, 2.250 2-3343,-3156,-3001,-2894,-2839,-2831,-2847,-2833,-2736,-2559, 2.250 3-2223,-1853,-1465,-1058, -630, -194, 221, 564, 766, 802, 2.250 4 640, 383, 172, 31, -70, -148, -212, -235, -235, -244, 2.250 5 -282, -314, -345, -369, -380, -380, -384, -393, -392, -393, 2.250 6 -406, -415, -413, -404, -385, -360/ 2.250 DATA K1TAB13/ 2.500 1-5248,-4965,-4665,-4386,-4154,-3964,-3818,-3695,-3562,-3399, 2.500 2-3211,-3020,-2853,-2728,-2653,-2627,-2637,-2641,-2578,-2430, 2.500 3-2114,-1757,-1382, -990, -577, -149, 268, 635, 889, 982, 2.500 4 861, 599, 348, 177, 43, -50, -137, -178, -183, -189, 2.500 5 -231, -277, -318, -351, -369, -373, -375, -386, -388, -387, 2.500 6 -399, -412, -412, -403, -385, -360/ 2.500 DATA K1TAB14/ 2.750 1-5216,-4934,-4620,-4315,-4052,-3837,-3666,-3529,-3399,-3248, 2.750 2-3070,-2880,-2705,-2565,-2471,-2427,-2423,-2433,-2400,-2284, 2.750 3-1996,-1653,-1290, -911, -513, -98, 316, 696, 990, 1141, 2.750 4 1079, 828, 550, 348, 184, 64, -40, -103, -120, -125, 2.750 5 -164, -225, -280, -326, -353, -363, -365, -376, -382, -380, 2.750 6 -391, -406, -409, -402, -385, -360/ 2.750 DATA K1TAB15/ 3.000 1-5178,-4900,-4579,-4253,-3960,-3717,-3519,-3364,-3229,-3088, 3.000 2-2922,-2738,-2558,-2405,-2294,-2229,-2210,-2218,-2207,-2125, 3.000 3-1869,-1541,-1190, -824, -441, -41, 366, 752, 1074, 1277, 3.000 4 1292, 1063, 769, 535, 347, 201, 77, -11, -44, -50, 3.000 5 -82, -157, -227, -290, -330, -349, -352, -365, -375, -373, 3.000 6 -381, -400, -406, -400, -384, -359/ 3.000 DATA K1TAB16/ 3.200 1-5141,-4868,-4545,-4207,-3895,-3630,-3411,-3236,-3093,-2954, 3.200 2-2798,-2620,-2440,-2280,-2156,-2078,-2044,-2044,-2042,-1985, 3.200 3-1760,-1448,-1106, -750, -378, 9, 408, 794, 1130, 1366, 3.200 4 1450, 1250, 956, 701, 497, 328, 188, 80, 30, 17, 3.200 5 -7, -87, -171, -250, -304, -333, -341, -352, -366, -367, 3.200 6 -373, -393, -403, -399, -384, -359/ 3.200 DATA K1TAB17/ 3.400 1-5099,-4832,-4510,-4166,-3837,-3550,-3310,-3115,-2959,-2818, 3.400 2-2670,-2501,-2322,-2156,-2022,-1929,-1881,-1871,-1873,-1837, 3.400 3-1646,-1351,-1019, -672, -311, 64, 453, 836, 1180, 1443, 3.400 4 1597, 1434, 1148, 874, 657, 468, 315, 187, 117, 95, 3.400 5 76, -4, -103, -199, -271, -312, -327, -338, -355, -359, 3.400 6 -364, -385, -399, -397, -383, -359/ 3.400 DATA K1TAB18/ 3.600 1-5050,-4791,-4472,-4125,-3784,-3477,-3217,-3002,-2829,-2683, 3.600 2-2539,-2378,-2203,-2034,-1891,-1785,-1723,-1700,-1700,-1681, 3.600 3-1526,-1250, -929, -591, -241, 123, 501, 878, 1226, 1509, 3.600 4 1728, 1614, 1343, 1056, 828, 624, 456, 311, 221, 185, 3.600 5 167, 92, -20, -133, -226, -284, -308, -321, -342, -350, 3.600 6 -354, -376, -393, -394, -381, -358/ 3.600 DATA K1TAB19/ 3.800 1-4996,-4744,-4430,-4084,-3736,-3413,-3133,-2898,-2706,-2550, 3.800 2-2407,-2253,-2083,-1913,-1763,-1646,-1570,-1534,-1527,-1518, 3.800 3-1398,-1145, -836, -508, -167, 185, 552, 921, 1270, 1565, 3.800 4 1842, 1786, 1538, 1246, 1007, 793, 611, 453, 342, 289, 3.800 5 267, 201, 78, -52, -167, -245, -284, -300, -324, -338, 3.800 6 -343, -364, -386, -390, -379, -357/ 3.800 DATA K1TAB20/ 4.000 1-4937,-4692,-4384,-4042,-3691,-3356,-3058,-2804,-2592,-2421, 4.000 2-2274,-2126,-1962,-1793,-1638,-1511,-1421,-1372,-1356,-1350, 4.000 3-1263,-1036, -741, -422, -91, 251, 606, 967, 1312, 1616, 4.000 4 1941, 1948, 1728, 1439, 1189, 969, 777, 607, 477, 407, 4.000 5 378, 322, 191, 44, -94, -195, -252, -275, -302, -322, 4.000 6 -329, -350, -377, -386, -377, -356/ 4.000 DATA K1TAB21/ 4.200 1-4879,-4642,-4340,-4004,-3652,-3309,-2995,-2722,-2492,-2303, 4.200 2-2147,-2000,-1841,-1673,-1515,-1379,-1277,-1214,-1187,-1179, 4.200 3-1119, -921, -641, -333, -12, 320, 663, 1014, 1355, 1661, 4.200 4 2023, 2096, 1915, 1638, 1379, 1157, 955, 778, 634, 545, 4.200 5 502, 454, 322, 159, -2, -129, -208, -244, -274, -301, 4.200 6 -313, -333, -365, -379, -373, -354/ 4.200 DATA K1TAB22/ 4.400 1-4815,-4589,-4292,-3962,-3613,-3265,-2939,-2649,-2401,-2193, 4.400 2-2024,-1874,-1718,-1554,-1393,-1250,-1138,-1061,-1022,-1008, 4.400 3 -967, -801, -539, -242, 69, 391, 724, 1063, 1397, 1704, 4.400 4 2093, 2229, 2096, 1836, 1571, 1348, 1140, 958, 801, 695, 4.400 5 639, 594, 466, 290, 106, -48, -153, -205, -241, -275, 4.400 6 -293, -314, -350, -371, -369, -351/ 4.400 DATA K1TAB23/ 4.600 1-4747,-4533,-4240,-3919,-3575,-3226,-2890,-2586,-2320,-2094, 4.600 2-1909,-1752,-1597,-1435,-1274,-1126,-1004, -915, -863, -840, 4.600 3 -809, -674, -433, -148, 153, 465, 787, 1116, 1442, 1746, 4.600 4 2154, 2345, 2268, 2033, 1768, 1543, 1333, 1146, 982, 861, 4.600 5 790, 743, 624, 437, 234, 51, -81, -156, -200, -242, 4.600 6 -268, -290, -331, -359, -362, -347/ 4.600 DATA K1TAB24/ 4.800 1-4672,-4475,-4186,-3873,-3536,-3188,-2847,-2530,-2249,-2006, 4.800 2-1804,-1635,-1479,-1319,-1157,-1005, -875, -775, -709, -676, 4.800 3 -648, -541, -322, -50, 241, 543, 853, 1171, 1488, 1787, 4.800 4 2207, 2444, 2429, 2226, 1968, 1741, 1532, 1341, 1173, 1040, 4.800 5 955, 899, 792, 597, 378, 170, 7, -93, -150, -200, 4.800 6 -236, -262, -306, -343, -353, -342/ 4.800 DATA K1TAB25/ 5.000 1-4590,-4414,-4129,-3822,-3494,-3150,-2807,-2481,-2185,-1927, 5.000 2-1707,-1524,-1363,-1203,-1041, -886, -750, -639, -561, -515, 5.000 3 -484, -401, -207, 49, 331, 623, 922, 1229, 1537, 1830, 5.000 4 2255, 2530, 2576, 2414, 2169, 1938, 1732, 1540, 1368, 1225, 5.000 5 1127, 1063, 965, 768, 537, 305, 113, -17, -90, -150, 5.000 6 -196, -227, -275, -323, -341, -335/ 5.000 DATA K1TAB26/ 5.200 1-4499,-4351,-4069,-3768,-3448,-3111,-2769,-2437,-2130,-1857, 5.200 2-1622,-1424,-1253,-1090, -927, -770, -628, -509, -419, -361, 5.200 3 -319, -254, -86, 154, 424, 706, 995, 1290, 1588, 1874, 5.200 4 2300, 2602, 2706, 2595, 2372, 2141, 1938, 1746, 1573, 1424, 5.200 5 1313, 1235, 1143, 951, 709, 460, 240, 80, -16, -87, 5.200 6 -145, -185, -237, -295, -324, -324/ 5.200 DATA K1TAB27/ 5.400 1-4397,-4287,-4005,-3711,-3398,-3069,-2731,-2397,-2081,-1796, 5.400 2-1546,-1332,-1150, -982, -817, -657, -509, -382, -282, -211, 5.400 3 -157, -102, 40, 263, 521, 792, 1070, 1355, 1643, 1920, 5.400 4 2343, 2665, 2820, 2765, 2570, 2345, 2143, 1953, 1779, 1626, 5.400 5 1504, 1413, 1323, 1139, 890, 627, 383, 194, 70, -13, 5.400 6 -85, -135, -189, -259, -301, -309/ 5.400 DATA K1TAB28/ 5.600 1-4282,-4220,-3940,-3650,-3345,-3024,-2691,-2358,-2037,-1742, 5.600 2-1479,-1251,-1055, -879, -711, -548, -396, -262, -152, -70, 5.600 3 0, 50, 170, 375, 620, 881, 1149, 1423, 1700, 1969, 5.600 4 2386, 2721, 2918, 2921, 2763, 2550, 2350, 2162, 1989, 1832, 5.600 5 1702, 1599, 1503, 1331, 1077, 805, 543, 326, 175, 73, 5.600 6 -11, -73, -133, -213, -270, -289/ 5.600 DATA K1TAB29/ 5.800 1-4151,-4152,-3873,-3586,-3288,-2975,-2650,-2319,-1996,-1694, 5.800 2-1420,-1179, -969, -784, -611, -444, -287, -147, -29, 63, 5.800 3 149, 204, 306, 491, 723, 973, 1231, 1494, 1761, 2020, 5.800 4 2430, 2773, 3002, 3061, 2948, 2754, 2557, 2374, 2200, 2044, 5.800 5 1906, 1791, 1686, 1524, 1270, 991, 716, 478, 298, 176, 5.800 6 76, 0, -67, -155, -229, -262/ 5.800 DATA K1TAB30/ 6.000 1-4002,-4082,-3804,-3520,-3227,-2923,-2605,-2280,-1958,-1650, 6.000 2-1367,-1114, -892, -696, -517, -346, -184, -38, 88, 190, 6.000 3 295, 357, 444, 610, 828, 1068, 1316, 1569, 1825, 2075, 6.000 4 2475, 2822, 3076, 3186, 3124, 2954, 2764, 2584, 2412, 2255, 6.000 5 2112, 1987, 1871, 1716, 1465, 1183, 899, 642, 435, 293, 6.000 6 178, 85, 10, -84, -176, -227/ 6.000 DATA K1TAB31/ 6.250 1-3782,-3993,-3716,-3435,-3148,-2852,-2545,-2228,-1910,-1600, 6.250 2-1310,-1045, -809, -600, -411, -233, -65, 88, 224, 337, 6.250 3 460, 536, 613, 756, 957, 1185, 1422, 1664, 1909, 2147, 6.250 4 2534, 2881, 3155, 3316, 3321, 3197, 3025, 2853, 2684, 2525, 6.250 5 2378, 2243, 2112, 1956, 1713, 1426, 1136, 866, 636, 464, 6.250 6 330, 217, 124, 21, -90, -166/ 6.250 DATA K1TAB32/ 6.500 1-3516,-3904,-3627,-3348,-3066,-2777,-2479,-2172,-1860,-1553, 6.500 2-1258, -985, -737, -515, -315, -131, 42, 205, 350, 474, 6.500 3 616, 709, 784, 906, 1089, 1305, 1532, 1764, 1997, 2223, 6.500 4 2596, 2940, 3228, 3428, 3496, 3426, 3279, 3117, 2954, 2793, 6.500 5 2643, 2499, 2355, 2195, 1963, 1672, 1378, 1101, 853, 655, 6.500 6 504, 371, 259, 149, 19, -84/ 6.500 DATA K1TAB33/ 6.750 1-3193,-3813,-3537,-3260,-2981,-2698,-2409,-2111,-1808,-1505, 6.750 2-1211, -932, -675, -442, -232, -40, 139, 309, 463, 599, 6.750 3 759, 870, 951, 1059, 1223, 1425, 1642, 1863, 2085, 2302, 6.750 4 2660, 2999, 3295, 3522, 3643, 3633, 3525, 3384, 3230, 3071, 6.750 5 2915, 2761, 2605, 2436, 2210, 1919, 1620, 1335, 1076, 867, 6.750 6 700, 552, 421, 297, 155, 24/ 6.750 DATA K1TAB34/ 7.000 1-2988,-3722,-3447,-3171,-2894,-2616,-2334,-2046,-1752,-1456, 7.000 2-1165, -884, -621, -379, -159, 40, 226, 401, 564, 710, 7.000 3 889, 1020, 1113, 1213, 1360, 1549, 1754, 1966, 2178, 2385, 7.000 4 2729, 3062, 3361, 3608, 3771, 3820, 3758, 3640, 3502, 3349, 7.000 5 3191, 3029, 2857, 2666, 2447, 2168, 1867, 1581, 1316, 1085, 7.000 6 900, 746, 602, 466, 315, 159/ 7.000 DATA K1TAB35/ 7.250 1-2878,-3632,-3357,-3082,-2807,-2533,-2257,-1977,-1692,-1404, 7.250 2-1118, -839, -573, -325, -97, 110, 302, 482, 651, 806, 7.250 3 1003, 1154, 1264, 1364, 1499, 1675, 1870, 2073, 2275, 2473, 7.250 4 2804, 3129, 3428, 3687, 3880, 3978, 3969, 3885, 3770, 3629, 7.250 5 3472, 3303, 3120, 2914, 2688, 2411, 2108, 1822, 1556, 1321, 7.250 6 1124, 960, 799, 647, 494, 323/ 7.250 DATA K1TAB36/ 7.500 1-2773,-3541,-3267,-2993,-2720,-2449,-2177,-1904,-1628,-1349, 7.500 2-1070, -795, -529, -278, -44, 170, 368, 552, 726, 888, 7.500 3 1102, 1273, 1403, 1511, 1638, 1803, 1989, 2183, 2377, 2567, 7.500 4 2885, 3200, 3498, 3764, 3980, 4120, 4162, 4117, 4025, 3902, 7.500 5 3751, 3578, 3383, 3163, 2929, 2658, 2355, 2066, 1800, 1561, 7.500 6 1357, 1187, 1017, 853, 688, 503/ 7.500 DATA K1TAB37/ 7.750 1-2672,-3450,-3177,-2904,-2634,-2365,-2097,-1830,-1561,-1291, 7.750 2-1020, -751, -488, -235, 2, 222, 425, 613, 790, 957, 7.750 3 1183, 1373, 1523, 1645, 1772, 1930, 2109, 2296, 2482, 2665, 7.750 4 2972, 3278, 3572, 3841, 4071, 4241, 4327, 4327, 4265, 4166, 7.750 5 4027, 3853, 3650, 3416, 3169, 2898, 2596, 2305, 2040, 1801, 7.750 6 1592, 1416, 1244, 1071, 897, 705/ 7.750 DATA K1TAB38/ 8.000 1-2574,-3360,-3089,-2817,-2548,-2282,-2017,-1755,-1493,-1230, 8.000 2 -968, -705, -447, -196, 42, 266, 473, 665, 845, 1015, 8.000 3 1249, 1455, 1626, 1766, 1900, 2055, 2230, 2411, 2591, 2768, 8.000 4 3064, 3361, 3650, 3920, 4160, 4353, 4478, 4520, 4492, 4415, 8.000 5 4293, 4124, 3914, 3669, 3410, 3136, 2840, 2548, 2282, 2043, 8.000 6 1831, 1650, 1476, 1297, 1116, 920/ 8.000 DATA K2TAB01/ -2.000 1-5171,-5106,-5020,-4865,-4673,-4489,-4342,-4241,-4182,-4158, -2.000 2-4146,-4116,-4025,-3836,-3572,-3266,-2937,-2599,-2261,-1927, -2.000 3-1446,-1006, -680, -543, -513, -514, -522, -527, -524, -510, -2.000 4 -489, -478, -479, -485, -481, -471, -447, -439, -434, -433, -2.000 5 -434, -430, -428, -428, -429, -428, -427, -430, -433, -434, -2.000 6 -432, -426, -418, -405, -386, -360/ -2.000 DATA K2TAB02/ -1.500 1-5200,-5115,-5050,-4941,-4773,-4584,-4413,-4283,-4195,-4149, -1.500 2-4132,-4117,-4070,-3943,-3724,-3446,-3137,-2813,-2484,-2156, -1.500 3-1676,-1222, -829, -586, -508, -497, -505, -515, -520, -514, -1.500 4 -487, -474, -468, -477, -478, -469, -449, -436, -431, -428, -1.500 5 -431, -429, -426, -424, -426, -426, -425, -427, -432, -433, -1.500 6 -431, -426, -418, -405, -386, -360/ -1.500 DATA K2TAB03/ -1.000 1-5242,-5131,-5057,-4981,-4852,-4677,-4494,-4337,-4220,-4145, -1.000 2-4111,-4099,-4079,-4008,-3846,-3605,-3320,-3013,-2696,-2376, -1.000 3-1901,-1440,-1013, -677, -510, -471, -475, -490, -503, -508, -1.000 4 -485, -469, -457, -465, -471, -464, -450, -432, -428, -423, -1.000 5 -426, -426, -423, -421, -423, -425, -423, -424, -429, -432, -1.000 6 -431, -426, -418, -405, -386, -360/ -1.000 DATA K2TAB04/ -0.500 1-5285,-5154,-5057,-4986,-4894,-4747,-4569,-4392,-4247,-4144, -0.500 2-4082,-4061,-4053,-4023,-3924,-3734,-3480,-3193,-2890,-2581, -0.500 3-2113,-1651,-1206, -809, -536, -431, -421, -440, -464, -482, -0.500 4 -479, -461, -447, -448, -459, -458, -446, -427, -422, -418, -0.500 5 -420, -422, -421, -418, -419, -422, -421, -420, -425, -431, -0.500 6 -431, -426, -418, -405, -386, -360/ -0.500 DATA K2TAB05/ 0.000 1-5311,-5173,-5052,-4964,-4889,-4776,-4614,-4431,-4260,-4127, 0.000 2-4037,-3992,-3984,-3980,-3937,-3809,-3598,-3338,-3054,-2757, 0.000 3-2302,-1842,-1387, -954, -592, -385, -330, -346, -383, -420, 0.000 4 -454, -443, -432, -425, -440, -445, -437, -422, -414, -411, 0.000 5 -411, -417, -418, -415, -414, -418, -419, -416, -420, -428, 0.000 6 -430, -426, -418, -405, -386, -360/ 0.000 DATA K2TAB06/ 0.500 1-5313,-5165,-5027,-4916,-4833,-4743,-4606,-4429,-4241,-4076, 0.500 2-3954,-3879,-3853,-3859,-3857,-3798,-3644,-3420,-3159,-2880, 0.500 3-2443,-1992,-1533,-1079, -661, -346, -202, -191, -233, -292, 0.500 4 -379, -400, -403, -397, -410, -422, -420, -410, -401, -401, 0.500 5 -401, -408, -412, -411, -408, -412, -415, -413, -415, -424, 0.500 6 -428, -425, -418, -405, -386, -360/ 0.500 DATA K2TAB07/ 1.000 1-5305,-5120,-4963,-4827,-4724,-4637,-4525,-4366,-4175,-3986, 1.000 2-3827,-3715,-3654,-3646,-3664,-3659,-3577,-3403,-3171,-2912, 1.000 3-2500,-2067,-1617,-1157, -709, -316, -57, 27, 0, -72, 1.000 4 -217, -303, -336, -349, -363, -386, -391, -384, -378, -384, 1.000 5 -386, -395, -403, -406, -403, -405, -410, -409, -408, -417, 1.000 6 -425, -424, -417, -405, -386, -360/ 1.000 DATA K2TAB08/ 1.250 1-5300,-5088,-4915,-4765,-4647,-4555,-4451,-4303,-4118,-3922, 1.250 2-3748,-3616,-3536,-3511,-3526,-3538,-3491,-3348,-3135,-2887, 1.250 3-2489,-2068,-1628,-1172, -718, -300, 11, 150, 145, 73, 1.250 4 -94, -221, -278, -310, -330, -359, -369, -366, -362, -370, 1.250 5 -376, -385, -397, -402, -401, -400, -407, -407, -405, -413, 1.250 6 -422, -423, -417, -405, -386, -360/ 1.250 DATA K2TAB09/ 1.500 1-5294,-5057,-4859,-4691,-4555,-4454,-4355,-4219,-4042,-3844, 1.500 2-3658,-3507,-3406,-3360,-3365,-3386,-3369,-3261,-3070,-2836, 1.500 3-2451,-2043,-1615,-1168, -713, -280, 73, 273, 305, 242, 1.500 4 57, -112, -200, -256, -285, -325, -344, -342, -339, -350, 1.500 5 -362, -374, -389, -396, -397, -395, -403, -405, -402, -408, 1.500 6 -420, -422, -416, -405, -386, -360/ 1.500 DATA K2TAB10/ 1.750 1-5284,-5027,-4799,-4610,-4455,-4337,-4235,-4111,-3944,-3750, 1.750 2-3556,-3390,-3270,-3203,-3191,-3210,-3214,-3143,-2979,-2760, 1.750 3-2389,-1994,-1580,-1145, -696, -256, 128, 386, 470, 426, 1.750 4 236, 28, -97, -180, -228, -278, -309, -312, -310, -323, 1.750 5 -343, -359, -378, -389, -393, -391, -397, -402, -399, -403, 1.750 6 -416, -420, -416, -404, -386, -360/ 1.750 DATA K2TAB11/ 2.000 1-5271,-4999,-4742,-4525,-4345,-4207,-4099,-3982,-3828,-3641, 2.000 2-3444,-3266,-3127,-3039,-3006,-3017,-3034,-2996,-2864,-2663, 2.000 3-2308,-1926,-1526,-1105, -666, -225, 179, 485, 629, 619, 2.000 4 436, 197, 28, -82, -153, -216, -265, -276, -273, -286, 2.000 5 -317, -339, -364, -380, -387, -385, -391, -398, -395, -397, 2.000 6 -411, -418, -415, -404, -385, -360/ 2.000 DATA K2TAB12/ 2.250 1-5253,-4972,-4689,-4441,-4237,-4075,-3950,-3834,-3692,-3517, 2.250 2-3322,-3136,-2982,-2875,-2822,-2817,-2834,-2822,-2725,-2548, 2.250 3-2211,-1842,-1455,-1049, -623, -188, 226, 568, 771, 809, 2.250 4 649, 393, 181, 41, -60, -138, -206, -230, -230, -240, 2.250 5 -279, -311, -343, -367, -379, -379, -383, -392, -391, -392, 2.250 6 -405, -415, -413, -404, -385, -360/ 2.250 DATA K2TAB13/ 2.500 1-5229,-4944,-4642,-4363,-4130,-3941,-3797,-3675,-3542,-3380, 2.500 2-3192,-3002,-2835,-2710,-2636,-2612,-2624,-2629,-2567,-2418, 2.500 3-2103,-1746,-1372, -981, -570, -144, 273, 640, 894, 989, 2.500 4 869, 608, 358, 186, 54, -40, -129, -173, -178, -184, 2.500 5 -228, -274, -316, -350, -368, -372, -374, -385, -387, -386, 2.500 6 -398, -411, -412, -403, -385, -360/ 2.500 DATA K2TAB14/ 2.750 1-5199,-4914,-4599,-4293,-4031,-3816,-3647,-3512,-3381,-3230, 2.750 2-3053,-2864,-2689,-2549,-2456,-2412,-2411,-2421,-2389,-2272, 2.750 3-1984,-1641,-1279, -902, -506, -92, 321, 701, 994, 1146, 2.750 4 1087, 837, 559, 357, 194, 75, -32, -97, -114, -120, 2.750 5 -160, -222, -277, -324, -351, -362, -364, -375, -381, -379, 2.750 6 -390, -406, -409, -402, -385, -359/ 2.750 DATA K2TAB15/ 3.000 1-5162,-4881,-4558,-4232,-3941,-3699,-3502,-3348,-3214,-3072, 3.000 2-2907,-2723,-2543,-2391,-2279,-2216,-2198,-2206,-2195,-2113, 3.000 3-1857,-1530,-1180, -815, -434, -34, 371, 757, 1078, 1282, 3.000 4 1299, 1072, 778, 544, 356, 212, 86, -5, -38, -44, 3.000 5 -78, -153, -223, -288, -329, -348, -351, -364, -373, -372, 3.000 6 -381, -400, -406, -400, -384, -359/ 3.000 DATA K2TAB16/ 3.200 1-5126,-4850,-4525,-4189,-3877,-3613,-3396,-3223,-3079,-2940, 3.200 2-2785,-2607,-2427,-2267,-2143,-2065,-2032,-2032,-2031,-1973, 3.200 3-1748,-1436,-1095, -741, -371, 16, 414, 799, 1134, 1371, 3.200 4 1457, 1257, 964, 709, 506, 338, 198, 87, 36, 23, 3.200 5 -2, -83, -168, -247, -303, -332, -340, -351, -365, -366, 3.200 6 -373, -393, -402, -399, -383, -359/ 3.200 DATA K2TAB17/ 3.400 1-5084,-4816,-4492,-4148,-3821,-3535,-3297,-3103,-2947,-2806, 3.400 2-2659,-2489,-2310,-2145,-2010,-1917,-1869,-1859,-1861,-1826, 3.400 3-1634,-1339,-1008, -663, -304, 71, 459, 841, 1185, 1448, 3.400 4 1603, 1442, 1156, 881, 665, 478, 324, 194, 124, 101, 3.400 5 81, 0, -99, -196, -269, -311, -325, -337, -354, -358, 3.400 6 -363, -385, -398, -397, -383, -359/ 3.400 DATA K2TAB18/ 3.600 1-5037,-4776,-4456,-4110,-3770,-3465,-3206,-2992,-2819,-2673, 3.600 2-2529,-2368,-2193,-2024,-1880,-1774,-1712,-1689,-1689,-1669, 3.600 3-1514,-1238, -918, -582, -233, 130, 507, 883, 1231, 1513, 3.600 4 1734, 1621, 1350, 1063, 835, 633, 465, 318, 227, 192, 3.600 5 173, 96, -16, -130, -223, -282, -307, -320, -340, -349, 3.600 6 -353, -375, -393, -394, -381, -358/ 3.600 DATA K2TAB19/ 3.800 1-4985,-4731,-4416,-4070,-3724,-3402,-3124,-2890,-2698,-2541, 3.800 2-2398,-2245,-2074,-1904,-1754,-1636,-1559,-1523,-1516,-1506, 3.800 3-1386,-1133, -825, -498, -159, 192, 558, 926, 1274, 1569, 3.800 4 1847, 1792, 1544, 1252, 1013, 800, 619, 459, 348, 296, 3.800 5 273, 206, 82, -49, -164, -243, -282, -299, -322, -336, 3.800 6 -342, -363, -385, -390, -379, -357/ 3.800 DATA K2TAB20/ 4.000 1-4926,-4680,-4372,-4031,-3681,-3347,-3050,-2796,-2585,-2414, 4.000 2-2267,-2119,-1955,-1786,-1630,-1502,-1411,-1362,-1345,-1339, 4.000 3-1252,-1024, -730, -412, -83, 258, 612, 972, 1317, 1620, 4.000 4 1945, 1953, 1734, 1445, 1195, 976, 784, 614, 483, 413, 4.000 5 384, 327, 196, 48, -91, -193, -251, -274, -301, -321, 4.000 6 -328, -349, -377, -385, -377, -356/ 4.000 DATA K2TAB21/ 4.200 1-4869,-4631,-4329,-3993,-3643,-3300,-2988,-2716,-2485,-2297, 4.200 2-2141,-1994,-1835,-1667,-1508,-1372,-1269,-1206,-1178,-1169, 4.200 3-1108, -910, -631, -323, -3, 327, 670, 1019, 1359, 1665, 4.200 4 2027, 2101, 1920, 1643, 1384, 1163, 962, 784, 639, 550, 4.200 5 508, 459, 326, 163, 0, -126, -207, -243, -273, -300, 4.200 6 -312, -332, -364, -379, -373, -354/ 4.200 DATA K2TAB22/ 4.400 1-4805,-4578,-4281,-3952,-3605,-3258,-2932,-2643,-2395,-2187, 4.400 2-2019,-1869,-1714,-1549,-1388,-1245,-1132,-1055,-1014,-1000, 4.400 3 -958, -790, -529, -232, 77, 398, 730, 1069, 1402, 1708, 4.400 4 2097, 2233, 2101, 1841, 1575, 1353, 1146, 964, 806, 700, 4.400 5 645, 599, 470, 294, 110, -45, -151, -204, -239, -274, 4.400 6 -292, -312, -349, -370, -368, -351/ 4.400 DATA K2TAB23/ 4.600 1-4737,-4522,-4230,-3909,-3567,-3219,-2884,-2580,-2315,-2089, 4.600 2-1904,-1748,-1594,-1432,-1270,-1122, -999, -909, -856, -833, 4.600 3 -801, -664, -423, -138, 162, 473, 793, 1121, 1447, 1750, 4.600 4 2157, 2348, 2272, 2037, 1772, 1547, 1338, 1151, 986, 866, 4.600 5 795, 747, 627, 440, 237, 54, -79, -154, -198, -241, 4.600 6 -267, -289, -330, -359, -362, -347/ 4.600 DATA K2TAB24/ 4.800 1-4663,-4465,-4177,-3864,-3528,-3182,-2842,-2525,-2244,-2002, 4.800 2-1800,-1631,-1476,-1315,-1153,-1001, -870, -769, -703, -669, 4.800 3 -639, -531, -313, -41, 249, 550, 860, 1176, 1493, 1792, 4.800 4 2210, 2447, 2432, 2230, 1972, 1744, 1536, 1346, 1177, 1044, 4.800 5 959, 903, 795, 601, 382, 173, 10, -91, -148, -199, 4.800 6 -234, -261, -305, -343, -353, -342/ 4.800 DATA K2TAB25/ 5.000 1-4581,-4404,-4119,-3814,-3486,-3144,-2802,-2477,-2182,-1923, 5.000 2-1704,-1521,-1360,-1200,-1037, -882, -745, -634, -555, -509, 5.000 3 -476, -393, -199, 58, 339, 630, 929, 1234, 1542, 1834, 5.000 4 2258, 2533, 2579, 2417, 2172, 1941, 1735, 1543, 1371, 1228, 5.000 5 1130, 1066, 968, 771, 540, 308, 115, -15, -88, -148, 5.000 6 -195, -226, -274, -323, -341, -335/ 5.000 DATA K2TAB26/ 5.200 1-4490,-4342,-4059,-3760,-3441,-3105,-2764,-2433,-2127,-1854, 5.200 2-1619,-1421,-1251,-1087, -924, -766, -624, -504, -414, -355, 5.200 3 -312, -246, -78, 162, 432, 713, 1001, 1296, 1593, 1878, 5.200 4 2303, 2604, 2708, 2597, 2375, 2144, 1941, 1748, 1575, 1427, 5.200 5 1316, 1238, 1146, 954, 712, 463, 243, 82, -14, -86, 5.200 6 -144, -184, -236, -295, -323, -323/ 5.200 DATA K2TAB27/ 5.400 1-4388,-4277,-3997,-3703,-3392,-3063,-2726,-2393,-2078,-1793, 5.400 2-1543,-1330,-1147, -979, -814, -653, -506, -379, -277, -207, 5.400 3 -151, -96, 47, 270, 528, 799, 1076, 1360, 1647, 1924, 5.400 4 2346, 2667, 2822, 2767, 2572, 2346, 2145, 1955, 1782, 1628, 5.400 5 1506, 1415, 1325, 1141, 893, 630, 386, 196, 72, -12, 5.400 6 -83, -133, -188, -258, -300, -309/ 5.400 DATA K2TAB28/ 5.600 1-4274,-4211,-3932,-3642,-3338,-3019,-2687,-2354,-2034,-1739, 5.600 2-1476,-1248,-1052, -877, -708, -545, -393, -259, -148, -66, 5.600 3 4, 56, 177, 381, 627, 887, 1155, 1428, 1705, 1972, 5.600 4 2389, 2723, 2919, 2922, 2764, 2551, 2351, 2164, 1990, 1834, 5.600 5 1703, 1601, 1505, 1333, 1080, 808, 545, 329, 177, 75, 5.600 6 -9, -72, -132, -212, -269, -289/ 5.600 DATA K2TAB29/ 5.800 1-4144,-4143,-3865,-3579,-3282,-2970,-2645,-2316,-1993,-1691, 5.800 2-1417,-1176, -967, -782, -609, -441, -285, -144, -26, 66, 5.800 3 154, 209, 311, 496, 729, 979, 1236, 1499, 1765, 2024, 5.800 4 2433, 2775, 3003, 3062, 2950, 2756, 2559, 2375, 2202, 2045, 5.800 5 1908, 1793, 1688, 1526, 1272, 994, 719, 480, 300, 177, 5.800 6 78, 1, -66, -154, -228, -262/ 5.800 DATA K2TAB30/ 6.000 1-3995,-4074,-3796,-3513,-3222,-2918,-2601,-2277,-1955,-1648, 6.000 2-1365,-1112, -890, -694, -515, -343, -182, -35, 91, 194, 6.000 3 299, 362, 449, 615, 833, 1073, 1321, 1573, 1829, 2078, 6.000 4 2478, 2824, 3077, 3187, 3125, 2955, 2764, 2585, 2414, 2256, 6.000 5 2113, 1988, 1873, 1718, 1468, 1186, 901, 643, 437, 294, 6.000 6 180, 87, 11, -83, -176, -226/ 6.000 DATA K2TAB31/ 6.250 1-3776,-3986,-3709,-3429,-3143,-2848,-2541,-2225,-1907,-1598, 6.250 2-1307,-1043, -807, -597, -408, -231, -63, 91, 227, 341, 6.250 3 464, 540, 618, 761, 962, 1190, 1427, 1669, 1912, 2150, 6.250 4 2536, 2882, 3156, 3317, 3322, 3197, 3026, 2853, 2685, 2526, 6.250 5 2379, 2243, 2113, 1957, 1715, 1428, 1138, 868, 638, 466, 6.250 6 331, 218, 125, 22, -89, -165/ 6.250 DATA K2TAB32/ 6.500 1-3511,-3896,-3621,-3342,-3061,-2773,-2475,-2169,-1858,-1550, 6.500 2-1256, -983, -735, -513, -313, -129, 45, 207, 353, 477, 6.500 3 620, 713, 789, 911, 1094, 1310, 1537, 1768, 2000, 2226, 6.500 4 2598, 2941, 3229, 3429, 3497, 3427, 3280, 3118, 2955, 2794, 6.500 5 2643, 2500, 2356, 2196, 1964, 1673, 1379, 1102, 855, 657, 6.500 6 505, 372, 260, 150, 20, -83/ 6.500 DATA K2TAB33/ 6.750 1-3189,-3806,-3531,-3255,-2976,-2694,-2405,-2108,-1806,-1503, 6.750 2-1208, -930, -673, -440, -230, -38, 142, 311, 466, 602, 6.750 3 763, 874, 956, 1064, 1228, 1430, 1646, 1867, 2089, 2305, 6.750 4 2662, 3001, 3296, 3523, 3644, 3634, 3525, 3384, 3230, 3072, 6.750 5 2916, 2761, 2605, 2437, 2211, 1921, 1621, 1336, 1077, 868, 6.750 6 701, 553, 422, 298, 156, 25/ 6.750 DATA K2TAB34/ 7.000 1-2985,-3716,-3441,-3166,-2890,-2613,-2331,-2043,-1750,-1454, 7.000 2-1162, -882, -619, -377, -157, 42, 228, 404, 567, 713, 7.000 3 893, 1024, 1118, 1218, 1365, 1553, 1759, 1970, 2182, 2388, 7.000 4 2731, 3063, 3362, 3608, 3772, 3820, 3758, 3640, 3502, 3349, 7.000 5 3191, 3029, 2857, 2667, 2448, 2169, 1869, 1583, 1317, 1086, 7.000 6 901, 747, 603, 467, 316, 160/ 7.000 DATA K2TAB35/ 7.250 1-2876,-3625,-3351,-3077,-2804,-2530,-2254,-1974,-1690,-1402, 7.250 2-1116, -837, -571, -323, -95, 112, 304, 484, 654, 809, 7.250 3 1007, 1158, 1269, 1369, 1504, 1679, 1875, 2077, 2279, 2476, 7.250 4 2806, 3130, 3429, 3687, 3880, 3979, 3969, 3885, 3770, 3629, 7.250 5 3472, 3303, 3120, 2914, 2688, 2412, 2110, 1823, 1557, 1322, 7.250 6 1125, 960, 800, 648, 495, 323/ 7.250 DATA K2TAB36/ 7.500 1-2771,-3535,-3262,-2989,-2717,-2446,-2175,-1902,-1626,-1347, 7.500 2-1068, -793, -527, -276, -41, 173, 370, 555, 729, 892, 7.500 3 1106, 1277, 1407, 1516, 1643, 1807, 1993, 2187, 2381, 2570, 7.500 4 2887, 3202, 3499, 3764, 3980, 4120, 4162, 4117, 4025, 3902, 7.500 5 3751, 3578, 3383, 3164, 2929, 2659, 2356, 2068, 1802, 1562, 7.500 6 1357, 1187, 1018, 854, 689, 503/ 7.500 DATA K2TAB37/ 7.750 1-2670,-3445,-3172,-2900,-2630,-2362,-2095,-1828,-1559,-1289, 7.750 2-1018, -749, -486, -233, 4, 224, 427, 616, 793, 960, 7.750 3 1186, 1377, 1528, 1650, 1777, 1935, 2113, 2300, 2486, 2668, 7.750 4 2973, 3279, 3573, 3841, 4071, 4241, 4327, 4327, 4265, 4167, 7.750 5 4027, 3854, 3650, 3417, 3169, 2898, 2597, 2306, 2041, 1802, 7.750 6 1592, 1417, 1244, 1072, 897, 705/ 7.750 DATA K2TAB38/ 8.000 1-2572,-3355,-3084,-2813,-2545,-2279,-2015,-1753,-1491,-1228, 8.000 2 -965, -703, -445, -193, 45, 268, 476, 668, 848, 1018, 8.000 3 1253, 1459, 1630, 1770, 1905, 2060, 2234, 2415, 2594, 2771, 8.000 4 3066, 3362, 3651, 3921, 4160, 4353, 4478, 4520, 4492, 4415, 8.000 5 4293, 4124, 3914, 3669, 3410, 3137, 2841, 2549, 2283, 2044, 8.000 6 1831, 1651, 1477, 1297, 1116, 920/ 8.000 DATA K4TAB01/ -2.000 1-5141,-5078,-4993,-4840,-4650,-4468,-4323,-4223,-4165,-4145, -2.000 2-4137,-4110,-4021,-3833,-3568,-3261,-2932,-2594,-2255,-1921, -2.000 3-1439,-1000, -673, -535, -505, -506, -515, -522, -520, -507, -2.000 4 -484, -471, -473, -482, -478, -468, -444, -437, -432, -431, -2.000 5 -432, -429, -426, -426, -427, -426, -425, -428, -432, -433, -2.000 6 -431, -426, -417, -404, -385, -359/ -2.000 DATA K4TAB02/ -1.500 1-5168,-5084,-5021,-4913,-4747,-4561,-4391,-4262,-4175,-4131, -1.500 2-4118,-4108,-4064,-3938,-3719,-3441,-3131,-2807,-2477,-2149, -1.500 3-1669,-1215, -821, -578, -498, -487, -496, -507, -514, -509, -1.500 4 -482, -467, -461, -473, -475, -465, -446, -434, -429, -426, -1.500 5 -429, -427, -424, -422, -425, -425, -423, -425, -431, -432, -1.500 6 -431, -426, -417, -405, -385, -359/ -1.500 DATA K4TAB03/ -1.000 1-5209,-5097,-5024,-4951,-4823,-4650,-4469,-4313,-4197,-4123, -1.000 2-4092,-4086,-4070,-4002,-3841,-3600,-3314,-3006,-2688,-2368, -1.000 3-1893,-1433,-1006, -668, -501, -460, -463, -480, -494, -501, -1.000 4 -479, -461, -448, -459, -467, -460, -446, -429, -425, -421, -1.000 5 -424, -424, -422, -419, -421, -423, -421, -422, -428, -431, -1.000 6 -431, -426, -417, -404, -385, -359/ -1.000 DATA K4TAB04/ -0.500 1-5252,-5119,-5021,-4952,-4862,-4716,-4540,-4365,-4220,-4118, -0.500 2-4058,-4041,-4039,-4014,-3917,-3727,-3473,-3185,-2882,-2572, -0.500 3-2104,-1643,-1198, -801, -527, -420, -408, -427, -453, -472, -0.500 4 -471, -452, -435, -438, -454, -453, -441, -423, -419, -415, -0.500 5 -417, -420, -419, -416, -417, -420, -419, -418, -424, -430, -0.500 6 -430, -426, -417, -405, -385, -359/ -0.500 DATA K4TAB05/ 0.000 1-5278,-5137,-5014,-4926,-4852,-4740,-4580,-4398,-4228,-4096, 0.000 2-4007,-3965,-3963,-3965,-3927,-3801,-3590,-3329,-3044,-2746, 0.000 3-2291,-1832,-1378, -945, -584, -375, -318, -331, -368, -407, 0.000 4 -443, -433, -420, -413, -432, -439, -431, -416, -410, -407, 0.000 5 -408, -414, -415, -413, -411, -416, -417, -414, -419, -427, 0.000 6 -429, -425, -417, -404, -385, -359/ 0.000 DATA K4TAB06/ 0.500 1-5280,-5129,-4988,-4876,-4793,-4704,-4567,-4391,-4205,-4041, 0.500 2-3919,-3845,-3824,-3838,-3842,-3785,-3633,-3409,-3147,-2867, 0.500 3-2429,-1979,-1522,-1070, -652, -337, -191, -177, -217, -276, 0.500 4 -365, -388, -389, -381, -398, -415, -413, -402, -395, -397, 0.500 5 -397, -405, -409, -409, -406, -410, -413, -411, -413, -422, 0.500 6 -427, -425, -417, -404, -385, -359/ 0.500 DATA K4TAB07/ 1.000 1-5272,-5083,-4924,-4785,-4681,-4595,-4483,-4323,-4134,-3945, 1.000 2-3787,-3676,-3619,-3617,-3642,-3642,-3563,-3389,-3157,-2897, 1.000 3-2484,-2052,-1603,-1146, -699, -307, -47, 39, 14, -55, 1.000 4 -199, -287, -320, -331, -347, -376, -382, -375, -371, -378, 1.000 5 -381, -390, -400, -403, -401, -402, -408, -407, -406, -415, 1.000 6 -424, -423, -417, -404, -385, -359/ 1.000 DATA K4TAB08/ 1.250 1-5267,-5053,-4876,-4724,-4605,-4512,-4407,-4259,-4074,-3880, 1.250 2-3707,-3577,-3499,-3479,-3500,-3518,-3475,-3333,-3119,-2871, 1.250 3-2472,-2051,-1613,-1159, -707, -291, 20, 161, 159, 90, 1.250 4 -75, -203, -261, -291, -312, -347, -360, -356, -353, -363, 1.250 5 -370, -381, -393, -399, -398, -398, -404, -405, -403, -411, 1.250 6 -421, -422, -416, -404, -385, -359/ 1.250 DATA K4TAB09/ 1.500 1-5261,-5022,-4820,-4650,-4513,-4411,-4311,-4175,-3998,-3802, 1.500 2-3616,-3467,-3367,-3325,-3337,-3364,-3351,-3245,-3054,-2819, 1.500 3-2432,-2025,-1599,-1154, -702, -270, 82, 284, 319, 259, 1.500 4 77, -92, -181, -235, -264, -310, -333, -331, -329, -343, 1.500 5 -356, -368, -385, -393, -394, -392, -400, -402, -399, -406, 1.500 6 -418, -421, -416, -404, -385, -359/ 1.500 DATA K4TAB10/ 1.750 1-5253,-4993,-4762,-4571,-4413,-4295,-4192,-4067,-3901,-3708, 1.750 2-3515,-3350,-3232,-3168,-3161,-3187,-3195,-3125,-2962,-2742, 1.750 3-2370,-1975,-1563,-1130, -684, -246, 137, 396, 483, 442, 1.750 4 256, 49, -77, -158, -205, -260, -297, -301, -299, -314, 1.750 5 -336, -353, -373, -386, -389, -387, -394, -399, -396, -401, 1.750 6 -414, -419, -415, -404, -385, -359/ 1.750 DATA K4TAB11/ 2.000 1-5241,-4966,-4706,-4486,-4305,-4167,-4058,-3940,-3786,-3601, 2.000 2-3405,-3227,-3090,-3004,-2975,-2992,-3013,-2977,-2846,-2644, 2.000 3-2288,-1906,-1508,-1089, -653, -214, 188, 495, 641, 635, 2.000 4 457, 219, 49, -59, -128, -195, -251, -264, -261, -276, 2.000 5 -309, -332, -358, -376, -384, -381, -388, -395, -392, -395, 2.000 6 -410, -417, -414, -404, -385, -359/ 2.000 DATA K4TAB12/ 2.250 1-5224,-4940,-4654,-4404,-4199,-4036,-3912,-3795,-3653,-3478, 2.250 2-3285,-3100,-2947,-2842,-2791,-2791,-2812,-2802,-2706,-2529, 2.250 3-2191,-1822,-1437,-1033, -610, -177, 236, 578, 783, 823, 2.250 4 669, 415, 203, 64, -33, -114, -189, -216, -216, -229, 2.250 5 -269, -303, -337, -362, -375, -375, -380, -389, -388, -389, 2.250 6 -403, -414, -413, -403, -385, -359/ 2.250 DATA K4TAB13/ 2.500 1-5203,-4914,-4609,-4328,-4094,-3905,-3762,-3640,-3507,-3345, 2.500 2-3158,-2969,-2803,-2679,-2606,-2586,-2602,-2609,-2548,-2398, 2.500 3-2082,-1726,-1353, -964, -555, -132, 283, 649, 905, 1002, 2.500 4 888, 630, 379, 210, 81, -13, -110, -158, -162, -171, 2.500 5 -217, -265, -309, -344, -364, -368, -370, -382, -384, -382, 2.500 6 -396, -410, -411, -402, -385, -359/ 2.500 DATA K4TAB14/ 2.750 1-5174,-4886,-4567,-4260,-3998,-3783,-3615,-3480,-3349,-3199, 2.750 2-3022,-2834,-2660,-2521,-2429,-2387,-2388,-2400,-2369,-2252, 2.750 3-1963,-1621,-1260, -885, -491, -80, 331, 710, 1005, 1159, 2.750 4 1104, 858, 581, 380, 220, 102, -10, -81, -98, -105, 2.750 5 -148, -211, -269, -317, -347, -358, -360, -372, -378, -376, 2.750 6 -388, -404, -408, -401, -384, -359/ 2.750 DATA K4TAB15/ 3.000 1-5138,-4854,-4529,-4202,-3911,-3669,-3474,-3321,-3186,-3044, 3.000 2-2880,-2697,-2518,-2365,-2254,-2191,-2175,-2185,-2175,-2092, 3.000 3-1836,-1509,-1160, -798, -419, -22, 382, 766, 1088, 1293, 3.000 4 1315, 1091, 798, 565, 381, 240, 109, 12, -21, -27, 3.000 5 -65, -142, -214, -280, -323, -344, -347, -360, -370, -369, 3.000 6 -378, -398, -405, -400, -384, -359/ 3.000 DATA K4TAB16/ 3.200 1-5103,-4825,-4498,-4160,-3849,-3586,-3371,-3198,-3055,-2916, 3.200 2-2761,-2584,-2404,-2244,-2120,-2042,-2010,-2011,-2010,-1953, 3.200 3-1727,-1415,-1076, -723, -355, 29, 424, 809, 1144, 1382, 3.200 4 1471, 1276, 984, 729, 528, 365, 222, 106, 54, 41, 3.200 5 12, -70, -157, -239, -297, -327, -335, -347, -361, -362, 3.200 6 -369, -391, -401, -398, -383, -358/ 3.200 DATA K4TAB17/ 3.400 1-5063,-4792,-4466,-4122,-3795,-3511,-3274,-3081,-2925,-2785, 3.400 2-2637,-2468,-2290,-2124,-1989,-1896,-1848,-1839,-1841,-1805, 3.400 3-1613,-1318, -988, -645, -288, 84, 470, 851, 1195, 1459, 3.400 4 1616, 1458, 1174, 900, 686, 503, 348, 213, 141, 120, 3.400 5 97, 12, -87, -187, -262, -306, -321, -333, -350, -354, 3.400 6 -360, -382, -397, -396, -382, -358/ 3.400 DATA K4TAB18/ 3.600 1-5018,-4753,-4431,-4085,-3747,-3443,-3186,-2973,-2801,-2654, 3.600 2-2511,-2350,-2175,-2005,-1861,-1754,-1692,-1669,-1669,-1649, 3.600 3-1492,-1217, -898, -564, -217, 144, 519, 893, 1241, 1524, 3.600 4 1746, 1636, 1366, 1080, 854, 655, 488, 337, 245, 211, 3.600 5 190, 110, -3, -120, -216, -276, -302, -315, -336, -345, 3.600 6 -349, -372, -391, -393, -381, -357/ 3.600 DATA K4TAB19/ 3.800 1-4967,-4710,-4393,-4048,-3703,-3383,-3107,-2874,-2683,-2526, 3.800 2-2383,-2229,-2058,-1888,-1737,-1618,-1541,-1504,-1497,-1486, 3.800 3-1365,-1112, -805, -480, -143, 206, 570, 937, 1284, 1579, 3.800 4 1858, 1805, 1559, 1268, 1030, 820, 640, 478, 365, 314, 3.800 5 291, 220, 95, -38, -156, -237, -277, -294, -318, -332, 3.800 6 -338, -360, -384, -389, -379, -356/ 3.800 DATA K4TAB20/ 4.000 1-4910,-4662,-4352,-4011,-3662,-3331,-3035,-2783,-2572,-2401, 4.000 2-2254,-2106,-1942,-1772,-1615,-1485,-1394,-1343,-1327,-1320, 4.000 3-1231,-1003, -710, -394, -66, 272, 625, 983, 1327, 1630, 4.000 4 1956, 1965, 1748, 1459, 1209, 993, 804, 631, 498, 430, 4.000 5 402, 341, 209, 60, -82, -186, -245, -269, -296, -317, 4.000 6 -324, -345, -375, -384, -376, -355/ 4.000 DATA K4TAB21/ 4.200 1-4853,-4613,-4310,-3974,-3625,-3285,-2974,-2704,-2474,-2286, 4.200 2-2130,-1983,-1823,-1655,-1495,-1357,-1254,-1189,-1160,-1151, 4.200 3-1088, -889, -610, -304, 13, 342, 683, 1030, 1369, 1675, 4.200 4 2037, 2111, 1932, 1655, 1397, 1178, 979, 800, 653, 566, 4.200 5 525, 473, 339, 175, 11, -119, -201, -237, -268, -296, 4.200 6 -308, -329, -362, -377, -372, -353/ 4.200 DATA K4TAB22/ 4.400 1-4790,-4561,-4263,-3935,-3588,-3244,-2920,-2633,-2385,-2178, 4.400 2-2009,-1860,-1704,-1539,-1377,-1232,-1118,-1039, -998, -982, 4.400 3 -938, -770, -509, -213, 95, 413, 743, 1080, 1412, 1718, 4.400 4 2106, 2242, 2111, 1852, 1587, 1365, 1160, 978, 819, 714, 4.400 5 660, 613, 483, 307, 121, -36, -144, -198, -234, -270, 4.400 6 -287, -308, -347, -369, -368, -351/ 4.400 DATA K4TAB23/ 4.600 1-4722,-4505,-4213,-3892,-3552,-3206,-2873,-2571,-2306,-2081, 4.600 2-1896,-1739,-1586,-1423,-1260,-1110, -986, -895, -841, -816, 4.600 3 -783, -645, -403, -120, 179, 488, 807, 1133, 1457, 1759, 4.600 4 2166, 2357, 2281, 2047, 1782, 1557, 1350, 1164, 997, 877, 4.600 5 809, 760, 639, 453, 249, 63, -72, -148, -193, -236, 4.600 6 -262, -284, -327, -357, -361, -347/ 4.600 DATA K4TAB24/ 4.800 1-4647,-4448,-4159,-3847,-3513,-3169,-2831,-2516,-2236,-1994, 4.800 2-1792,-1624,-1468,-1307,-1144, -991, -859, -757, -689, -654, 4.800 3 -622, -513, -294, -23, 266, 566, 873, 1188, 1503, 1801, 4.800 4 2218, 2455, 2440, 2238, 1980, 1753, 1546, 1357, 1187, 1054, 4.800 5 970, 915, 806, 612, 393, 183, 17, -85, -142, -194, 4.800 6 -230, -256, -302, -341, -352, -341/ 4.800 DATA K4TAB25/ 5.000 1-4565,-4388,-4103,-3798,-3472,-3132,-2792,-2468,-2174,-1916, 5.000 2-1697,-1515,-1354,-1193,-1030, -874, -735, -623, -543, -495, 5.000 3 -461, -376, -181, 75, 355, 645, 942, 1246, 1552, 1843, 5.000 4 2266, 2540, 2586, 2424, 2179, 1948, 1743, 1552, 1380, 1236, 5.000 5 1139, 1076, 978, 782, 552, 318, 124, -8, -82, -143, 5.000 6 -190, -221, -270, -321, -340, -334/ 5.000 DATA K4TAB26/ 5.200 1-4475,-4326,-4043,-3745,-3427,-3093,-2754,-2425,-2120,-1848, 5.200 2-1613,-1416,-1245,-1081, -917, -759, -615, -495, -403, -343, 5.200 3 -299, -231, -61, 179, 448, 728, 1015, 1308, 1604, 1887, 5.200 4 2310, 2611, 2714, 2603, 2381, 2150, 1947, 1756, 1583, 1434, 5.200 5 1324, 1247, 1154, 963, 723, 473, 252, 89, -8, -80, 5.200 6 -139, -179, -232, -292, -322, -323/ 5.200 DATA K4TAB27/ 5.400 1-4374,-4261,-3981,-3688,-3379,-3052,-2716,-2385,-2071,-1787, 5.400 2-1538,-1325,-1142, -974, -808, -647, -499, -370, -268, -196, 5.400 3 -139, -82, 62, 286, 543, 813, 1090, 1372, 1658, 1933, 5.400 4 2353, 2673, 2827, 2772, 2577, 2351, 2151, 1961, 1788, 1634, 5.400 5 1512, 1422, 1332, 1150, 903, 640, 395, 203, 79, -6, 5.400 6 -78, -128, -184, -256, -299, -308/ 5.400 DATA K4TAB28/ 5.600 1-4260,-4195,-3917,-3628,-3326,-3008,-2678,-2346,-2028,-1733, 5.600 2-1471,-1243,-1048, -872, -703, -539, -386, -251, -140, -57, 5.600 3 15, 69, 190, 396, 641, 901, 1168, 1440, 1715, 1981, 5.600 4 2396, 2729, 2924, 2926, 2768, 2555, 2355, 2169, 1995, 1839, 5.600 5 1708, 1606, 1511, 1340, 1089, 818, 554, 336, 183, 81, 5.600 6 -5, -67, -128, -209, -268, -288/ 5.600 DATA K4TAB29/ 5.800 1-4131,-4128,-3851,-3566,-3270,-2960,-2637,-2308,-1987,-1686, 5.800 2-1413,-1172, -963, -777, -604, -436, -279, -138, -18, 75, 5.800 3 164, 220, 324, 510, 742, 992, 1249, 1510, 1775, 2032, 5.800 4 2439, 2779, 3007, 3065, 2953, 2759, 2562, 2379, 2206, 2049, 5.800 5 1912, 1798, 1693, 1532, 1280, 1003, 727, 487, 306, 183, 5.800 6 83, 6, -61, -151, -226, -261/ 5.800 DATA K4TAB30/ 6.000 1-3983,-4059,-3783,-3501,-3210,-2908,-2593,-2270,-1949,-1642, 6.000 2-1360,-1108, -886, -690, -510, -339, -176, -29, 98, 201, 6.000 3 307, 372, 460, 627, 845, 1085, 1332, 1584, 1839, 2086, 6.000 4 2484, 2828, 3080, 3189, 3127, 2957, 2767, 2588, 2416, 2259, 6.000 5 2116, 1991, 1877, 1723, 1475, 1194, 909, 650, 443, 300, 6.000 6 184, 91, 15, -80, -173, -225/ 6.000 DATA K4TAB31/ 6.250 1-3766,-3972,-3696,-3417,-3132,-2838,-2533,-2218,-1901,-1593, 6.250 2-1303,-1039, -803, -593, -404, -226, -57, 97, 233, 348, 6.250 3 473, 550, 629, 772, 974, 1201, 1438, 1679, 1922, 2158, 6.250 4 2542, 2886, 3159, 3319, 3324, 3199, 3028, 2855, 2687, 2528, 6.250 5 2381, 2246, 2116, 1961, 1721, 1435, 1145, 874, 644, 471, 6.250 6 336, 222, 129, 26, -87, -164/ 6.250 DATA K4TAB32/ 6.500 1-3502,-3883,-3608,-3331,-3051,-2764,-2468,-2163,-1852,-1545, 6.500 2-1251, -979, -731, -509, -309, -124, 50, 213, 359, 484, 6.500 3 628, 723, 800, 922, 1106, 1321, 1548, 1778, 2009, 2234, 6.500 4 2603, 2945, 3231, 3431, 3499, 3428, 3281, 3119, 2956, 2795, 6.500 5 2645, 2501, 2358, 2199, 1968, 1680, 1386, 1108, 860, 662, 6.500 6 510, 375, 264, 154, 23, -81/ 6.500 DATA K4TAB33/ 6.750 1-3182,-3793,-3520,-3244,-2967,-2686,-2398,-2103,-1800,-1498, 6.750 2-1204, -926, -669, -436, -226, -33, 147, 317, 472, 609, 6.750 3 771, 883, 967, 1075, 1240, 1441, 1657, 1877, 2098, 2312, 6.750 4 2668, 3004, 3298, 3524, 3645, 3635, 3526, 3385, 3232, 3073, 6.750 5 2917, 2763, 2607, 2439, 2214, 1926, 1627, 1342, 1082, 873, 6.750 6 705, 557, 425, 301, 159, 27/ 6.750 DATA K4TAB34/ 7.000 1-2979,-3704,-3430,-3157,-2882,-2605,-2325,-2038,-1745,-1449, 7.000 2-1158, -878, -615, -373, -153, 46, 233, 409, 573, 720, 7.000 3 901, 1033, 1129, 1229, 1377, 1565, 1770, 1980, 2191, 2396, 7.000 4 2737, 3067, 3364, 3610, 3773, 3821, 3759, 3641, 3502, 3350, 7.000 5 3192, 3030, 2858, 2669, 2450, 2173, 1874, 1587, 1321, 1090, 7.000 6 905, 750, 606, 471, 319, 162/ 7.000 DATA K4TAB35/ 7.250 1-2870,-3614,-3341,-3068,-2796,-2523,-2248,-1969,-1685,-1398, 7.250 2-1112, -833, -568, -319, -91, 116, 309, 490, 660, 816, 7.250 3 1015, 1167, 1279, 1380, 1516, 1691, 1886, 2087, 2288, 2484, 7.250 4 2811, 3134, 3432, 3689, 3881, 3979, 3970, 3885, 3770, 3629, 7.250 5 3473, 3304, 3121, 2916, 2690, 2415, 2114, 1827, 1561, 1325, 7.250 6 1128, 963, 802, 651, 497, 325/ 7.250 DATA K4TAB36/ 7.500 1-2766,-3524,-3252,-2981,-2710,-2440,-2169,-1897,-1621,-1343, 7.500 2-1064, -789, -524, -272, -37, 177, 375, 560, 735, 898, 7.500 3 1113, 1287, 1418, 1527, 1655, 1818, 2004, 2197, 2389, 2577, 7.500 4 2892, 3205, 3501, 3766, 3981, 4121, 4162, 4117, 4025, 3903, 7.500 5 3751, 3579, 3384, 3164, 2930, 2661, 2359, 2071, 1805, 1565, 7.500 6 1360, 1190, 1020, 856, 691, 505/ 7.500 DATA K4TAB37/ 7.750 1-2666,-3434,-3164,-2893,-2624,-2357,-2090,-1823,-1555,-1285, 7.750 2-1014, -745, -482, -229, 8, 229, 432, 621, 799, 967, 7.750 3 1194, 1386, 1538, 1660, 1788, 1945, 2124, 2309, 2494, 2675, 7.750 4 2978, 3282, 3575, 3843, 4072, 4241, 4328, 4327, 4265, 4167, 7.750 5 4027, 3854, 3650, 3417, 3170, 2900, 2600, 2309, 2044, 1804, 7.750 6 1595, 1419, 1246, 1074, 899, 707/ 7.750 DATA K4TAB38/ 8.000 1-2568,-3345,-3076,-2807,-2539,-2274,-2010,-1748,-1486,-1224, 8.000 2 -961, -699, -440, -189, 49, 273, 481, 674, 855, 1025, 8.000 3 1261, 1468, 1640, 1781, 1916, 2071, 2244, 2425, 2602, 2777, 8.000 4 3071, 3365, 3653, 3922, 4161, 4354, 4478, 4521, 4492, 4415, 8.000 5 4293, 4124, 3914, 3670, 3411, 3138, 2843, 2551, 2286, 2046, 8.000 6 1833, 1652, 1479, 1299, 1118, 922/ 8.000 DATA K8TAB01/ -2.000 1-5105,-5043,-4959,-4808,-4620,-4441,-4297,-4198,-4143,-4128, -2.000 2-4125,-4102,-4015,-3828,-3563,-3255,-2926,-2586,-2247,-1912, -2.000 3-1430, -990, -662, -522, -491, -493, -503, -513, -513, -500, -2.000 4 -477, -460, -464, -477, -474, -462, -440, -434, -429, -428, -2.000 5 -429, -425, -422, -421, -422, -422, -421, -425, -430, -431, -2.000 6 -429, -424, -416, -403, -384, -358/ -2.000 DATA K8TAB02/ -1.500 1-5132,-5046,-4984,-4877,-4713,-4529,-4362,-4234,-4149,-4108, -1.500 2-4102,-4097,-4056,-3932,-3713,-3434,-3124,-2798,-2468,-2139, -1.500 3-1659,-1204, -810, -565, -483, -471, -481, -494, -504, -501, -1.500 4 -473, -455, -448, -466, -469, -459, -440, -429, -425, -422, -1.500 5 -425, -423, -419, -418, -420, -420, -418, -421, -427, -430, -1.500 6 -429, -424, -416, -403, -384, -358/ -1.500 DATA K8TAB03/ -1.000 1-5172,-5058,-4984,-4912,-4785,-4614,-4435,-4280,-4166,-4095, -1.000 2-4068,-4069,-4058,-3993,-3833,-3592,-3305,-2997,-2678,-2357, -1.000 3-1881,-1421, -994, -655, -485, -442, -445, -463, -480, -489, -1.000 4 -468, -448, -432, -448, -460, -453, -438, -423, -420, -416, -1.000 5 -420, -420, -417, -414, -416, -418, -416, -417, -424, -429, -1.000 6 -429, -424, -416, -403, -384, -358/ -1.000 DATA K8TAB04/ -0.500 1-5215,-5079,-4978,-4909,-4820,-4676,-4501,-4327,-4184,-4083, -0.500 2-4027,-4016,-4021,-4001,-3906,-3717,-3462,-3174,-2869,-2558, -0.500 3-2091,-1629,-1185, -788, -512, -403, -388, -406, -434, -456, -0.500 4 -458, -438, -417, -423, -444, -444, -431, -415, -413, -409, -0.500 5 -412, -415, -414, -410, -412, -414, -413, -413, -420, -427, -0.500 6 -428, -424, -416, -403, -384, -358/ -0.500 DATA K8TAB05/ 0.000 1-5240,-5096,-4970,-4880,-4806,-4695,-4536,-4355,-4186,-4054, 0.000 2-3968,-3930,-3936,-3946,-3912,-3788,-3577,-3315,-3029,-2731, 0.000 3-2275,-1817,-1364, -932, -571, -360, -299, -309, -345, -385, 0.000 4 -425, -415, -399, -391, -418, -428, -419, -406, -402, -400, 0.000 5 -401, -408, -410, -407, -405, -410, -411, -408, -414, -423, 0.000 6 -427, -424, -416, -403, -384, -358/ 0.000 DATA K8TAB06/ 0.500 1-5243,-5087,-4943,-4828,-4743,-4653,-4517,-4341,-4155,-3992, 0.500 2-3872,-3801,-3786,-3808,-3820,-3768,-3617,-3393,-3130,-2848, 0.500 3-2410,-1961,-1505,-1054, -638, -322, -174, -155, -192, -250, 0.500 4 -341, -366, -366, -354, -378, -401, -399, -388, -385, -387, 0.500 5 -388, -398, -403, -403, -399, -404, -407, -404, -407, -418, 0.500 6 -424, -423, -415, -403, -384, -358/ 0.500 DATA K8TAB07/ 1.000 1-5235,-5042,-4878,-4737,-4630,-4540,-4427,-4267,-4078,-3891, 1.000 2-3734,-3625,-3571,-3577,-3611,-3619,-3543,-3370,-3137,-2876, 1.000 3-2461,-2030,-1583,-1128, -683, -292, -31, 58, 38, -27, 1.000 4 -170, -260, -293, -299, -318, -357, -366, -358, -356, -366, 1.000 5 -370, -381, -392, -396, -393, -395, -401, -400, -399, -410, 1.000 6 -421, -421, -415, -403, -384, -358/ 1.000 DATA K8TAB08/ 1.250 1-5230,-5012,-4831,-4676,-4553,-4457,-4350,-4201,-4016,-3823, 1.250 2-3651,-3523,-3449,-3435,-3466,-3492,-3452,-3312,-3098,-2848, 1.250 3-2447,-2027,-1590,-1139, -690, -276, 35, 179, 182, 118, 1.250 4 -44, -173, -231, -257, -279, -325, -343, -337, -336, -350, 1.250 5 -358, -371, -385, -391, -390, -390, -397, -398, -395, -405, 1.250 6 -418, -420, -415, -403, -384, -358/ 1.250 DATA K8TAB09/ 1.500 1-5225,-4982,-4776,-4603,-4462,-4357,-4253,-4115,-3939,-3744, 1.500 2-3559,-3412,-3315,-3279,-3299,-3335,-3326,-3222,-3031,-2794, 1.500 3-2407,-2000,-1575,-1133, -684, -255, 97, 301, 341, 286, 1.500 4 109, -60, -149, -198, -226, -284, -314, -311, -309, -327, 1.500 5 -342, -357, -375, -385, -386, -384, -392, -395, -391, -400, 1.500 6 -414, -419, -414, -403, -384, -358/ 1.500 DATA K8TAB10/ 1.750 1-5217,-4954,-4720,-4525,-4364,-4242,-4136,-4008,-3842,-3651, 1.750 2-3459,-3296,-3180,-3121,-3121,-3154,-3168,-3100,-2937,-2716, 1.750 3-2343,-1949,-1538,-1108, -665, -229, 152, 412, 503, 468, 1.750 4 289, 83, -42, -119, -163, -229, -275, -279, -277, -296, 1.750 5 -321, -339, -363, -377, -381, -378, -386, -391, -388, -394, 1.750 6 -410, -416, -413, -402, -384, -358/ 1.750 DATA K8TAB11/ 2.000 1-5206,-4928,-4665,-4442,-4258,-4116,-4005,-3883,-3729,-3545, 2.000 2-3351,-3175,-3039,-2956,-2934,-2958,-2984,-2951,-2821,-2618, 2.000 3-2260,-1879,-1482,-1066, -633, -197, 203, 511, 660, 659, 2.000 4 490, 254, 85, -19, -83, -158, -226, -241, -236, -256, 2.000 5 -292, -316, -346, -366, -375, -372, -379, -387, -383, -387, 2.000 6 -404, -414, -412, -402, -384, -358/ 2.000 DATA K8TAB12/ 2.250 1-5191,-4903,-4615,-4362,-4154,-3989,-3862,-3742,-3599,-3426, 2.250 2-3234,-3051,-2899,-2797,-2750,-2756,-2782,-2775,-2680,-2502, 2.250 3-2163,-1794,-1410,-1009, -589, -159, 251, 593, 800, 846, 2.250 4 701, 451, 240, 105, 13, -71, -159, -191, -190, -206, 2.250 5 -250, -286, -323, -351, -365, -365, -370, -380, -379, -380, 2.250 6 -397, -410, -410, -401, -384, -358/ 2.250 DATA K8TAB13/ 2.500 1-5170,-4879,-4571,-4287,-4051,-3861,-3716,-3592,-3457,-3296, 2.500 2-3111,-2923,-2759,-2636,-2567,-2551,-2571,-2581,-2521,-2371, 2.500 3-2053,-1697,-1326, -940, -534, -114, 299, 664, 922, 1023, 2.500 4 919, 666, 417, 250, 129, 33, -76, -130, -134, -145, 2.500 5 -196, -245, -292, -331, -353, -357, -360, -373, -374, -373, 2.500 6 -389, -406, -409, -401, -383, -358/ 2.500 DATA K8TAB14/ 2.750 1-5143,-4852,-4531,-4221,-3958,-3743,-3573,-3437,-3305,-3155, 2.750 2-2980,-2793,-2620,-2482,-2392,-2353,-2357,-2372,-2341,-2224, 2.750 3-1934,-1592,-1233, -860, -470, -62, 347, 725, 1021, 1178, 2.750 4 1133, 892, 617, 418, 267, 152, 28, -50, -67, -76, 2.750 5 -124, -189, -250, -303, -335, -346, -349, -362, -368, -366, 2.750 6 -380, -400, -406, -399, -383, -358/ 2.750 DATA K8TAB15/ 3.000 1-5109,-4822,-4494,-4165,-3873,-3632,-3436,-3283,-3148,-3006, 3.000 2-2843,-2660,-2482,-2330,-2219,-2159,-2145,-2156,-2147,-2064, 3.000 3-1806,-1480,-1132, -773, -397, -3, 398, 782, 1104, 1312, 3.000 4 1341, 1124, 833, 602, 424, 290, 152, 45, 10, 5, 3.000 5 -38, -117, -193, -264, -310, -332, -335, -349, -360, -358, 3.000 6 -369, -392, -402, -398, -382, -357/ 3.000 DATA K8TAB16/ 3.200 1-5076,-4794,-4464,-4125,-3814,-3552,-3337,-3164,-3021,-2881, 3.200 2-2727,-2551,-2371,-2211,-2088,-2011,-1981,-1983,-1982,-1924, 3.200 3-1697,-1385,-1048, -698, -333, 48, 441, 824, 1160, 1400, 3.200 4 1495, 1306, 1017, 764, 569, 412, 265, 140, 87, 76, 3.200 5 40, -44, -134, -221, -282, -315, -323, -336, -351, -351, 3.200 6 -360, -385, -398, -396, -381, -357/ 3.200 DATA K8TAB17/ 3.400 1-5037,-4762,-4434,-4088,-3762,-3479,-3244,-3051,-2896,-2755, 3.400 2-2608,-2439,-2261,-2095,-1959,-1866,-1820,-1811,-1813,-1777, 3.400 3-1583,-1288, -960, -619, -265, 104, 488, 867, 1210, 1476, 3.400 4 1638, 1487, 1205, 932, 723, 547, 392, 249, 175, 156, 3.400 5 128, 40, -62, -166, -245, -292, -307, -321, -340, -343, 3.400 6 -349, -376, -393, -393, -380, -357/ 3.400 DATA K8TAB18/ 3.600 1-4993,-4726,-4401,-4054,-3716,-3414,-3159,-2947,-2775,-2629, 3.600 2-2485,-2324,-2149,-1979,-1834,-1727,-1664,-1642,-1642,-1621, 3.600 3-1463,-1187, -869, -537, -194, 164, 537, 910, 1257, 1540, 3.600 4 1766, 1662, 1395, 1110, 887, 696, 531, 373, 277, 247, 3.600 5 222, 138, 23, -97, -197, -262, -288, -302, -325, -333, 3.600 6 -338, -365, -387, -390, -379, -356/ 3.600 DATA K8TAB19/ 3.800 1-4943,-4684,-4365,-4019,-3674,-3357,-3082,-2851,-2660,-2504, 3.800 2-2361,-2207,-2036,-1865,-1712,-1593,-1515,-1478,-1470,-1459, 3.800 3-1336,-1082, -776, -453, -119, 228, 589, 954, 1300, 1596, 3.800 4 1877, 1829, 1585, 1295, 1060, 856, 680, 513, 396, 350, 3.800 5 325, 249, 123, -13, -136, -221, -263, -280, -306, -320, 3.800 6 -326, -352, -379, -386, -377, -355/ 3.800 DATA K8TAB20/ 4.000 1-4888,-4638,-4326,-3984,-3636,-3307,-3014,-2763,-2553,-2383, 4.000 2-2236,-2087,-1922,-1751,-1593,-1462,-1369,-1318,-1300,-1293, 4.000 3-1202, -973, -680, -367, -42, 294, 644, 1000, 1343, 1646, 4.000 4 1973, 1987, 1772, 1483, 1235, 1024, 840, 665, 528, 464, 4.000 5 437, 370, 238, 87, -59, -168, -230, -254, -284, -305, 4.000 6 -311, -336, -369, -381, -374, -354/ 4.000 DATA K8TAB21/ 4.200 1-4831,-4590,-4284,-3948,-3600,-3263,-2954,-2686,-2458,-2270, 4.200 2-2114,-1966,-1806,-1637,-1475,-1336,-1231,-1166,-1136,-1125, 4.200 3-1059, -859, -581, -277, 38, 364, 702, 1048, 1386, 1691, 4.200 4 2053, 2130, 1954, 1678, 1420, 1204, 1011, 831, 681, 597, 4.200 5 559, 502, 368, 203, 35, -99, -184, -222, -255, -283, 4.200 6 -295, -318, -356, -374, -370, -352/ 4.200 DATA K8TAB22/ 4.400 1-4768,-4537,-4238,-3910,-3565,-3223,-2902,-2617,-2371,-2165, 4.400 2-1996,-1846,-1689,-1523,-1359,-1214,-1097,-1017, -975, -957, 4.400 3 -911, -741, -480, -186, 120, 436, 764, 1098, 1429, 1734, 4.400 4 2122, 2259, 2130, 1872, 1607, 1388, 1188, 1006, 844, 741, 4.400 5 691, 641, 510, 335, 147, -15, -127, -182, -220, -257, 4.400 6 -274, -297, -339, -364, -365, -349/ 4.400 DATA K8TAB23/ 4.600 1-4700,-4482,-4189,-3868,-3529,-3186,-2856,-2556,-2293,-2069, 4.600 2-1885,-1727,-1573,-1409,-1244,-1094, -968, -875, -819, -793, 4.600 3 -756, -617, -375, -92, 205, 512, 828, 1152, 1474, 1776, 4.600 4 2181, 2372, 2298, 2064, 1799, 1576, 1373, 1189, 1020, 901, 4.600 5 837, 787, 665, 481, 276, 87, -53, -131, -178, -223, 4.600 6 -248, -272, -319, -352, -358, -345/ 4.600 DATA K8TAB24/ 4.800 1-4626,-4425,-4136,-3824,-3491,-3150,-2814,-2502,-2224,-1983, 4.800 2-1782,-1613,-1457,-1295,-1130, -976, -842, -739, -669, -632, 4.800 3 -598, -486, -266, 4, 292, 589, 895, 1207, 1521, 1817, 4.800 4 2233, 2468, 2455, 2253, 1996, 1769, 1565, 1378, 1207, 1074, 4.800 5 994, 939, 830, 639, 421, 208, 37, -67, -126, -181, 4.800 6 -216, -243, -292, -335, -348, -339/ 4.800 DATA K8TAB25/ 5.000 1-4544,-4365,-4079,-3775,-3451,-3113,-2776,-2455,-2163,-1906, 5.000 2-1688,-1505,-1343,-1182,-1018, -861, -721, -607, -524, -475, 5.000 3 -437, -350, -154, 102, 381, 669, 964, 1266, 1570, 1859, 5.000 4 2280, 2552, 2598, 2437, 2193, 1962, 1758, 1570, 1398, 1253, 5.000 5 1158, 1097, 998, 807, 579, 344, 145, 9, -64, -129, 5.000 6 -177, -207, -260, -314, -336, -332/ 5.000 DATA K8TAB26/ 5.200 1-4453,-4303,-4020,-3723,-3407,-3075,-2739,-2412,-2109,-1839, 5.200 2-1604,-1407,-1236,-1072, -907, -747, -602, -480, -387, -325, 5.200 3 -278, -207, -35, 205, 473, 752, 1037, 1328, 1621, 1903, 5.200 4 2324, 2622, 2725, 2614, 2392, 2161, 1960, 1771, 1598, 1448, 5.200 5 1340, 1265, 1173, 986, 749, 499, 274, 108, 9, -65, 5.200 6 -126, -165, -220, -285, -318, -320/ 5.200 DATA K8TAB27/ 5.400 1-4353,-4239,-3959,-3667,-3359,-3035,-2702,-2373,-2061,-1778, 5.400 2-1530,-1317,-1134, -965, -799, -637, -487, -357, -254, -180, 5.400 3 -120, -60, 86, 310, 568, 836, 1112, 1392, 1676, 1949, 5.400 4 2366, 2684, 2836, 2781, 2586, 2361, 2161, 1973, 1801, 1646, 5.400 5 1524, 1438, 1348, 1169, 927, 666, 418, 222, 97, 9, 5.400 6 -65, -114, -171, -247, -294, -305/ 5.400 DATA K8TAB28/ 5.600 1-4239,-4173,-3895,-3607,-3307,-2991,-2664,-2335,-2018,-1725, 5.600 2-1463,-1236,-1040, -864, -695, -530, -376, -240, -127, -42, 5.600 3 32, 89, 213, 419, 665, 924, 1189, 1459, 1733, 1997, 5.600 4 2408, 2738, 2932, 2934, 2776, 2563, 2363, 2178, 2006, 1849, 5.600 5 1718, 1619, 1525, 1356, 1111, 842, 577, 355, 202, 97, 5.600 6 8, -53, -114, -200, -262, -285/ 5.600 DATA K8TAB29/ 5.800 1-4111,-4106,-3829,-3546,-3252,-2944,-2623,-2297,-1978,-1677, 5.800 2-1405,-1165, -956, -770, -596, -428, -269, -127, -6, 88, 5.800 3 180, 239, 344, 531, 764, 1014, 1270, 1530, 1793, 2048, 5.800 4 2451, 2789, 3014, 3072, 2959, 2765, 2568, 2386, 2215, 2058, 5.800 5 1920, 1808, 1705, 1546, 1300, 1026, 750, 506, 324, 200, 5.800 6 97, 19, -48, -141, -220, -257/ 5.800 DATA K8TAB30/ 6.000 1-3965,-4038,-3762,-3482,-3193,-2893,-2580,-2259,-1940,-1634, 6.000 2-1353,-1101, -879, -683, -503, -331, -168, -19, 109, 214, 6.000 3 322, 389, 479, 647, 866, 1105, 1352, 1603, 1856, 2101, 6.000 4 2495, 2836, 3087, 3194, 3132, 2962, 2771, 2593, 2423, 2266, 6.000 5 2122, 1999, 1887, 1734, 1491, 1215, 930, 669, 460, 317, 6.000 6 198, 104, 29, -69, -166, -221/ 6.000 DATA K8TAB31/ 6.250 1-3750,-3951,-3677,-3399,-3116,-2824,-2521,-2208,-1892,-1585, 6.250 2-1296,-1032, -797, -587, -398, -219, -49, 106, 244, 360, 6.250 3 487, 567, 648, 792, 994, 1222, 1458, 1697, 1938, 2172, 6.250 4 2552, 2894, 3165, 3323, 3328, 3203, 3032, 2859, 2692, 2534, 6.250 5 2386, 2252, 2123, 1970, 1735, 1453, 1165, 892, 660, 487, 6.250 6 350, 235, 142, 37, -79, -159/ 6.250 DATA K8TAB32/ 6.500 1-3489,-3863,-3590,-3315,-3036,-2751,-2457,-2153,-1844,-1538, 6.500 2-1245, -972, -725, -503, -303, -117, 58, 222, 369, 496, 6.500 3 642, 739, 818, 942, 1126, 1341, 1567, 1795, 2025, 2248, 6.500 4 2613, 2952, 3237, 3434, 3502, 3431, 3283, 3122, 2959, 2799, 6.500 5 2649, 2506, 2363, 2206, 1979, 1695, 1404, 1125, 875, 676, 6.500 6 523, 387, 276, 165, 31, -76/ 6.500 DATA K8TAB33/ 6.750 1-3172,-3775,-3502,-3229,-2953,-2674,-2388,-2093,-1792,-1491, 6.750 2-1198, -920, -663, -430, -220, -26, 154, 325, 482, 620, 6.750 3 784, 899, 984, 1094, 1260, 1461, 1676, 1895, 2114, 2326, 6.750 4 2678, 3012, 3304, 3528, 3648, 3637, 3529, 3387, 3234, 3076, 6.750 5 2920, 2766, 2611, 2444, 2223, 1938, 1643, 1357, 1096, 886, 6.750 6 718, 567, 436, 313, 168, 33/ 6.750 DATA K8TAB34/ 7.000 1-2971,-3686,-3414,-3142,-2869,-2594,-2315,-2029,-1737,-1442, 7.000 2-1152, -872, -610, -368, -147, 53, 240, 417, 582, 731, 7.000 3 914, 1049, 1146, 1248, 1397, 1585, 1789, 1998, 2207, 2410, 7.000 4 2747, 3074, 3370, 3613, 3775, 3823, 3761, 3642, 3504, 3352, 7.000 5 3194, 3032, 2861, 2673, 2457, 2183, 1887, 1601, 1334, 1101, 7.000 6 916, 760, 615, 481, 328, 168/ 7.000 DATA K8TAB35/ 7.250 1-2863,-3597,-3326,-3055,-2785,-2513,-2239,-1961,-1678,-1391, 7.250 2-1106, -827, -562, -313, -85, 123, 316, 498, 669, 827, 7.250 3 1028, 1183, 1296, 1399, 1535, 1711, 1905, 2105, 2304, 2498, 7.250 4 2821, 3141, 3436, 3692, 3883, 3981, 3971, 3887, 3772, 3631, 7.250 5 3474, 3306, 3123, 2919, 2695, 2424, 2125, 1839, 1573, 1335, 7.250 6 1138, 972, 810, 660, 506, 332/ 7.250 DATA K8TAB36/ 7.500 1-2760,-3508,-3239,-2969,-2700,-2431,-2161,-1890,-1615,-1336, 7.500 2-1058, -783, -518, -266, -31, 184, 383, 569, 745, 909, 7.500 3 1126, 1301, 1435, 1545, 1674, 1838, 2023, 2214, 2405, 2591, 7.500 4 2901, 3212, 3506, 3769, 3983, 4122, 4163, 4118, 4026, 3904, 7.500 5 3753, 3580, 3386, 3167, 2934, 2667, 2368, 2081, 1815, 1574, 7.500 6 1368, 1197, 1026, 864, 699, 512/ 7.500 DATA K8TAB37/ 7.750 1-2660,-3420,-3151,-2882,-2615,-2348,-2083,-1816,-1548,-1279, 7.750 2-1008, -739, -476, -223, 14, 236, 440, 630, 809, 978, 7.750 3 1207, 1401, 1555, 1679, 1807, 1964, 2142, 2326, 2510, 2688, 7.750 4 2987, 3289, 3579, 3846, 4073, 4242, 4328, 4328, 4266, 4168, 7.750 5 4028, 3855, 3652, 3419, 3173, 2905, 2607, 2318, 2052, 1812, 7.750 6 1602, 1425, 1252, 1080, 906, 713/ 7.750 DATA K8TAB38/ 8.000 1-2563,-3332,-3064,-2797,-2531,-2267,-2004,-1742,-1480,-1218, 8.000 2 -955, -693, -434, -183, 56, 280, 489, 683, 864, 1036, 8.000 3 1274, 1483, 1657, 1799, 1934, 2089, 2262, 2441, 2617, 2790, 8.000 4 3079, 3371, 3657, 3925, 4163, 4355, 4479, 4521, 4492, 4415, 8.000 5 4294, 4125, 3915, 3671, 3413, 3141, 2848, 2558, 2293, 2053, 8.000 6 1839, 1658, 1483, 1303, 1123, 927/ 8.000 DATA IFTABK,TSAVE,VSAVE/0,0.,-1./ EXP10(X)=EXP(X*2.30258509299405E0) IF(IFTABK.EQ.1)GO TO 20 IFTABK=1 DO 13 IV=1,NV DO 13 IP=1,NP DO 13 IT=1,NT 13 TABKAP(IT,IP,IV)=DFLOAT(KTAB(IT,IP,IV))/1000. 20 IF(T.EQ.TSAVE.AND.V.EQ.VSAVE)GO TO 30 TSAVE=T VSAVE=V TLOG=DLOG10(T) TLOG=MAX(TLOG,TABT(1)) DO 25 IP=1,NP DO 24 IV=1,NV IDUM=MAP1(TABT,TABKAP(1,IP,IV),NT,TLOG,PKAPV(IV,IP),1) 24 CONTINUE IDUM=MAP1(TABV,PKAPV(1,IP),NV,V,PKAP(IP),1) 25 CONTINUE 30 PLOG=DLOG10(P) PLOG=MAX(PLOG,TABP(1)) IDUM=MAP1(TABP,PKAP,NP,PLOG,ABLOG,1) ROSSTAB=EXP10(ABLOG) RETURN END SUBROUTINE TTAUP(T,TAU,ABSTD,PTOTAL,P,PRAD,PTURB,VTURB, 1GRAV,NUMTAU) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) 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 IF(N.GT.1000)GO TO 25 IF(ERROR.GT..00005)GO TO 20 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=99) COMMON /ELEM/ABUND(99),ATMASS(99),ELEM(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 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/ 2HH , 2HHE, 1 2HLI, 2HBE, 2HB , 2HC , 2HN , 2HO , 2HF , 2HNE, 2HNA, 2HMG, 2 2HAL, 2HSI, 2HP , 2HS , 2HCL, 2HAR, 2HK , 2HCA, 2HSC, 2HTI, 3 2HV , 2HCR, 2HMN, 2HFE, 2HCO, 2HNI, 2HCU, 2HZN, 2HGA, 2HGE, 4 2HAS, 2HSE, 2HBR, 2HKR, 2HRB, 2HSR, 2HY , 2HZR, 2HNB, 2HMO, 5 2HTC, 2HRU, 2HRH, 2HPD, 2HAG, 2HCD, 2HIN, 2HSN, 2HSB, 2HTE, 6 2HI , 2HXE, 2HCS, 2HBA, 2HLA, 2HCE, 2HPR, 2HND, 2HPM, 2HSM, 7 2HEU, 2HGD, 2HTB, 2HDY, 2HHO, 2HER, 2HTM, 2HYB, 2HLU, 2HHF, 8 2HTA, 2HW , 2HRE, 2HOS, 2HIR, 2HPT, 2HAU, 2HHG, 2HTL, 2HPB, 9 2HBI, 2HPO, 2HAT, 2HRN, 2HFR, 2HRA, 2HAC, 2HTH, 2HPA, 2HU , T 2HNP, 2HPU, 2HAM, 2HCM, 2HBK, 2HCF, 2HES/ RETURN END SUBROUTINE BLOCKR IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) 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/FRESET(1563),RCOSET(1563),NULO,NUHI,NUMNU C DIMENSION WBIG(331) DIMENSION WBIG(337) DIMENSION WBIG1(152),WBIG2(152),WBIG3(33) EQUIVALENCE (WBIG(1),WBIG1(1)),(WBIG(153),WBIG2(1)) EQUIVALENCE (WBIG(305),WBIG3(1)) C DIMENSION WLIT(1215) DIMENSION WLIT(1221) DIMENSION WLIT1(152),WLIT2(152),WLIT3(154),WLIT4(152),WLIT5(152) C DIMENSION WLIT6(152),WLIT7(152),WLIT8(149) DIMENSION WLIT6(152),WLIT7(152),WLIT8(155) EQUIVALENCE (WLIT(1),WLIT1(1)),(WLIT(153),WLIT2(1)) EQUIVALENCE (WLIT(305),WLIT3(1)),(WLIT(459),WLIT4(1)) EQUIVALENCE (WLIT(611),WLIT5(1)),(WLIT(763),WLIT6(1)) EQUIVALENCE (WLIT(915),WLIT7(1)),(WLIT(1067),WLIT8(1)) EQUIVALENCE (FRESET(6),WBIG(1)),(FRESET(343),WLIT(1)) COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,TAUSCAT,IFMOL COMMON /IFOP/IFOP(20) COMMON /IONS/XNFPH(kw,2),XNFPHE(kw,3),XNFH(kw,2),XNFHE(kw,3) COMMON /ITER/ ITER,IFPRNT(15),IFPNCH(15),NUMITS COMMON /JUNK/TITLE(74),FREQID(6),WLTE,XSCALE COMMON /MUS/ANGLE(20),SURFI(20),NMU COMMON /RAD/ACCRAD(kw),PRAD(kw) COMMON /RHOX/RHOX(kw),NRHOX 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 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., 5 60000., 80000.,100000.,120000.,140000.,160000./ DATA WLIT1/ 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.2, 52.0, 53.0, 54.0, 55.0, 56.0, 57.0, 2 58.0, 59.0, 60.0, 61.0, 62.0, 63.0, 64.0, 65.0, 3 65.8, 66.5, 67.5, 68.5, 69.5, 70.5, 71.6, 72.6, 4 73.5, 74.5, 75.5, 76.5, 77.5, 78.5, 79.5, 80.5, 5 81.5, 82.5, 83.5, 84.5, 85.5, 86.5, 87.5, 88.5, 6 89.5, 90.5, 91.5, 92.5, 93.5, 94.5, 95.5, 96.5, 7 97.5, 98.5, 99.5, 100.5, 101.5, 102.5, 103.5, 104.5, 8 105.5, 106.5, 107.5, 108.5, 109.5, 110.5, 111.5, 112.5, 9 113.5, 114.5, 115.5, 116.5, 117.5, 118.5, 119.5, 120.5/ DATA WLIT2/ 1 121.5, 122.5, 123.5, 124.5, 125.5, 126.5, 127.5, 128.5, 2 129.5, 130.5, 131.5, 132.5, 133.5, 134.5, 135.5, 136.5, 3 137.5, 138.5, 139.5, 140.5, 141.5, 142.5, 143.5, 144.2, 4 144.7, 145.5, 146.5, 147.5, 148.5, 149.5, 150.5, 151.2, 5 151.7, 152.5, 153.5, 154.5, 155.5, 156.5, 157.5, 158.5, 6 159.5, 160.5, 161.5, 162.5, 163.5, 164.5, 165.5, 166.5, 7 167.2, 167.7, 168.5, 169.5, 170.5, 171.5, 172.5, 173.5, 8 174.5, 175.5, 176.5, 177.5, 178.5, 179.5, 180.5, 181.5, 9 182.5, 183.5, 184.5, 185.5, 186.5, 187.5, 188.5, 189.5, A 190.5, 191.5, 192.5, 193.5, 194.5, 195.5, 196.7, 197.6, 1 198.4, 199.5, 200.5, 201.5, 202.5, 203.5, 204.5, 205.5, 2 206.5, 207.4, 207.8, 208.5, 209.5, 210.5, 211.5, 212.5, 3 213.5, 214.5, 215.5, 216.5, 217.5, 218.5, 219.5, 220.5, 4 221.5, 222.5, 223.5, 224.5, 225.5, 226.5, 227.5, 228.5, 5 229.5, 230.5, 231.5, 232.5, 233.5, 234.5, 235.5, 236.5, 6 237.5, 238.5, 239.5, 240.5, 241.5, 242.5, 243.5, 244.5, 7 245.5, 246.5, 247.5, 248.5, 249.5, 250.5, 251.3, 251.8, 8 252.5, 253.5, 254.5, 255.5, 256.5, 257.5, 258.5, 259.5, 9 260.5, 261.5, 262.5, 263.5, 264.5, 265.5, 266.5, 267.5/ DATA WLIT3/ 1 268.5, 269.5, 270.5, 271.5, 272.5, 273.5, 274.5, 275.5, 2 276.5, 277.5, 278.5, 279.5, 280.5, 281.5, 282.5, 283.5, 3 284.5, 285.5, 286.5, 287.5, 288.5, 289.5, 291.0, 293.0, 4 295.0, 297.0, 299.0, 301.0, 303.0, 305.0, 307.0, 309.0, 5 311.0, 313.0, 315.0, 317.0, 319.0, 321.0, 323.0, 325.0, 6 327.0, 329.0, 331.0, 333.0, 335.0, 337.0, 339.0, 341.0, 7 343.0, 345.0, 347.0, 349.0, 351.0, 353.0, 355.0, 357.0, 8 359.0, 361.0, 363.0, 364.0, 365.,367.,369., 371.0, 373.0, 9 375.0, 377.,379.,381., 383.0, 385.0, 387.0, 389.0, 391.0, A 393.0, 395.0, 397.0, 399.0, 401.0, 403.0, 405.0, 407.0, 1 409.0, 411.0, 413.0, 415.0, 417.0, 419.0, 421.0, 423.0, 2 425.0, 427.0, 429.0, 431.0, 433.0, 435.0, 437.0, 439.0, 3 441.0, 443.0, 445.0, 447.0, 449.0, 451.0, 453.0, 455.0, 4 457.0, 459.0, 461.0, 463.0, 465.0, 467.0, 469.0, 471.0, 5 473.0, 475.0, 477.0, 479.0, 481.0, 483.0, 485.0, 487.0, 6 489.0, 491.0, 493.0, 495.0, 497.0, 499.0, 501.0, 503.0, 7 505.0, 507.0, 509.0, 511.0, 513.0, 515.0, 517.0, 519.0, 8 521.0, 523.0, 525.0, 527.0, 529.0, 531.0, 533.0, 535.0, 9 537.0, 539.0, 541.0, 543.0, 545.0, 547.0, 549.0, 551.0/ DATA WLIT4/ 1 553.0, 555.0, 557.0, 559.0, 561.0, 563.0, 565.0, 567.0, 2 569.0, 571.0, 573.0, 575.0, 577.0, 579.0, 581.0, 583.0, 3 585.0, 587.0, 589.0, 591.0, 593.0, 595.0, 597.0, 599.0, 4 601.0, 603.0, 605.0, 607.0, 609.0, 611.0, 613.0, 615.0, 5 617.0, 619.0, 621.0, 623.0, 625.0, 627.0, 629.0, 631.0, 6 633.0, 635.0, 637.0, 639.0, 641.0, 643.0, 645.0, 647.0, 7 649.0, 651.0, 653.0, 655.0, 657.0, 659.0, 661.0, 663.0, 8 665.0, 667.0, 669.0, 671.0, 673.0, 675.0, 677.0, 679.0, 9 681.0, 683.0, 685.0, 687.0, 689.0, 691.0, 693.0, 695.0, A 697.0, 699.0, 701.0, 703.0, 705.0, 707.0, 709.0, 711.0, 1 713.0, 715.0, 717.0, 719.0, 721.0, 723.0, 725.0, 727.0, 2 729.0, 731.0, 733.0, 735.0, 737.0, 739.0, 741.0, 743.0, 3 745.0, 747.0, 749.0, 751.0, 753.0, 755.0, 757.0, 759.0, 4 761.0, 763.0, 765.0, 767.0, 769.0, 771.0, 773.0, 775.0, 5 777.0, 779.0, 781.0, 783.0, 785.0, 787.0, 789.0, 791.0, 6 793.0, 795.0, 797.0, 799.0, 801.0, 803.0, 805.0, 807.0, 7 809.0, 811.0, 813.0, 815.0, 817.0, 819.0, 821.0, 823.0, 8 825.0, 827.0, 829.0, 831.0, 833.0, 835.0, 837.0, 839.0, 9 841.0, 843.0, 845.0, 847.0, 849.0, 851.0, 853.0, 855.0/ DATA WLIT5/ 1 857.0, 859.0, 861.0, 863.0, 865.0, 867.0, 869.0, 871.0, 2 873.0, 875.0, 877.0, 879.0, 881.0, 883.0, 885.0, 887.0, 3 889.0, 891.0, 893.0, 895.0, 897.0, 899.0, 901.0, 903.0, 4 905.0, 907.0, 909.0, 911.0, 913.0, 915.0, 917.0, 919.0, 5 921.0, 923.0, 925.0, 927.0, 929.0, 931.0, 933.0, 935.0, 6 937.0, 939.0, 941.0, 943.0, 945.0, 947.0, 949.0, 951.0, 7 953.0, 955.0, 957.0, 959.0, 961.0, 963.0, 965.0, 967.0, 8 969.0, 971.0, 973.0, 975.0, 977.0, 979.0, 981.0, 983.0, 9 985.0, 987.0, 989.0, 991.0, 993.0, 995.0, 997.0, 999.0, A 1002.5, 1007.5, 1012.5, 1017.5, 1022.5, 1027.5, 1032.5, 1037.5, 1 1042.5, 1047.5, 1052.5, 1057.5, 1062.5, 1067.5, 1072.5, 1077.5, 2 1082.5, 1087.5, 1092.5, 1097.5, 1102.5, 1107.5, 1112.5, 1117.5, 3 1122.5, 1127.5, 1132.5, 1137.5, 1142.5, 1147.5, 1152.5, 1157.5, 4 1162.5, 1167.5, 1172.5, 1177.5, 1182.5, 1187.5, 1192.5, 1197.5, 5 1202.5, 1207.5, 1212.5, 1217.5, 1222.5, 1227.5, 1232.5, 1237.5, 6 1242.5, 1247.5, 1252.5, 1257.5, 1262.5, 1267.5, 1272.5, 1277.5, 7 1282.5, 1287.5, 1292.5, 1297.5, 1302.5, 1307.5, 1312.5, 1317.5, 8 1322.5, 1327.5, 1332.5, 1337.5, 1342.5, 1347.5, 1352.5, 1357.5, 9 1362.5, 1367.5, 1372.5, 1377.5, 1382.5, 1387.5, 1392.5, 1397.5/ DATA WLIT6/ 1 1402.5, 1407.5, 1412.5, 1417.5, 1422.5, 1427.5, 1432.5, 1437.5, 2 1442.5, 1447.5, 1452.5, 1457.0, 1462.0, 1467.5, 1472.5, 1477.5, 3 1482.5, 1487.5, 1492.5, 1497.5, 1502.5, 1507.5, 1512.5, 1517.5, 4 1522.5, 1527.5, 1532.5, 1537.5, 1542.5, 1547.5, 1552.5, 1557.5, 5 1562.5, 1567.5, 1572.5, 1577.5, 1582.5, 1587.5, 1592.5, 1597.5, 6 1605., 1615., 1625., 1635., 1645., 1655., 1665., 1675., 7 1685., 1695., 1705., 1715., 1725., 1735., 1745., 1755., 8 1765., 1775., 1785., 1795., 1805., 1815., 1825., 1835., 9 1845., 1855., 1865., 1875., 1885., 1895., 1905., 1915., A 1925., 1935., 1945., 1955., 1965., 1975., 1985., 1995., 1 2005., 2015., 2025., 2035., 2045., 2055., 2065., 2075., 2 2085., 2095., 2105., 2115., 2125., 2135., 2145., 2155., 3 2165., 2175., 2185., 2195., 2205., 2215., 2225., 2235., 4 2245., 2255., 2265., 2275., 2285., 2295., 2305., 2315., 5 2325., 2335., 2345., 2355., 2365., 2375., 2385., 2395., 6 2405., 2415., 2425., 2435., 2445., 2455., 2465., 2475., 7 2485., 2495., 2505., 2515., 2525., 2535., 2545., 2555., 8 2565., 2575., 2585., 2595., 2605., 2615., 2625., 2635., 9 2645., 2655., 2665., 2675., 2685., 2695., 2705., 2715./ DATA WLIT7/ 1 2725., 2735., 2745., 2755., 2765., 2775., 2785., 2795., 2 2805., 2815., 2825., 2835., 2845., 2855., 2865., 2875., 3 2885., 2895., 2905., 2915., 2925., 2935., 2945., 2955., 4 2965., 2975., 2985., 2995., 3005., 3015., 3025., 3035., 5 3045., 3055., 3065., 3075., 3085., 3095., 3105., 3115., 6 3125., 3135., 3145., 3155., 3165., 3175., 3185., 3195., 7 3210., 3230., 3250., 3270., 3290., 3310., 3330., 3350., 8 3370., 3390., 3410., 3430., 3450., 3470., 3490., 3510., 9 3530., 3550., 3570., 3590., 3610., 3630., 3650., 3670., A 3690., 3710., 3730., 3750., 3770., 3790., 3810., 3830., 1 3850., 3870., 3890., 3910., 3930., 3950., 3970., 3990., 2 4010., 4030., 4050., 4070., 4090., 4110., 4130., 4150., 3 4170., 4190., 4210., 4230., 4250., 4270., 4290., 4310., 4 4330., 4350., 4370., 4390., 4410., 4430., 4450., 4470., 5 4490., 4510., 4530., 4550., 4570., 4590., 4610., 4630., 6 4650., 4670., 4690., 4710., 4730., 4750., 4770., 4790., 7 4810., 4830., 4850., 4870., 4890., 4910., 4930., 4950., 8 4970., 4990., 5010., 5030., 5050., 5070., 5090., 5110., 9 5130., 5150., 5170., 5190., 5210., 5230., 5250., 5270./ DATA WLIT8/ 1 5290., 5310., 5330., 5350., 5370., 5390., 5410., 5430., 2 5450., 5470., 5490., 5510., 5530., 5550., 5570., 5590., 3 5610., 5630., 5650., 5670., 5690., 5710., 5730., 5750., 4 5770., 5790., 5810., 5830., 5850., 5870., 5890., 5910., 5 5930., 5950., 5970., 5990., 6010., 6030., 6050., 6070., 6 6090., 6110., 6130., 6150., 6170., 6190., 6210., 6230., 7 6250., 6270., 6290., 6310., 6330., 6350., 6370., 6390., 8 6420., 6460., 6500., 6540., 6580., 6620., 6660., 6700., 9 6740., 6780., 6820., 6860., 6900., 6940., 6980., 7020., A 7060., 7100., 7140., 7180., 7220., 7260., 7300., 7340., 1 7380., 7420., 7460., 7500., 7540., 7580., 7620., 7660., 2 7700., 7740., 7780., 7820., 7860., 7900., 7940., 7980., 3 8020., 8060., 8100., 8140., 8180., 8220., 8260., 8300., 4 8340., 8380., 8420., 8460., 8500., 8540., 8580., 8620., 5 8660., 8700., 8740., 8780., 8820., 8860., 8900., 8940., 6 8980., 9020., 9060., 9100., 9140., 9180., 9220., 9260., 7 9300., 9340., 9380., 9420., 9460.,9500.,9540.,9580.,9620., 8 9660., 9700.,9740.,9780.,9820.,9860.,9900.,9940.,9980.,10020., 9 20000., 40000., 60000., 80000.,100000.,120000.,140000.,160000./ C 7 9300., 9340., 9380., 9420., 9460., 9500., 9540., 9580., C 8 9620., 9660., 9700., 9740., 9780., 9820., 9860., 9900., C 9 9940., 9980., 10020. ,20000., 40000./ DATA IFCORR,IFPRES,IFSURF,IFSCAT,TAUSCAT,IFMOL/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 XNFPH,XNFPHE/kw*0.,kw*0.,kw*0.,kw*0.,kw*0./ DATA IFPRNT/2,2,2,2,2,2,2,2,2,2,2,2,2,2,2/ DATA IFPNCH/0,0,0,0,0,0,0,0,0,0,0,0,0,0,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/-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/ END SUBROUTINE READIN(MODE) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) 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),ELEM(99) 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/FRESET(1563),RCOSET(1563),NULO,NUHI,NUMNU COMMON /HEIGHT/HEIGHT(kw) COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,TAUSCAT,IFMOL COMMON /IFOP/IFOP(20) COMMON /ITER/ ITER,IFPRNT(15),IFPNCH(15),NUMITS COMMON /JUNK/TITLE(74),FREQID(6),WLTE,XSCALE 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) 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),TLOG(kw),ITEMP COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, 1 IFTURB COMMON /WAVEY/WBEGIN,DELTAW,IFWAVE COMMON /XABUND/XABUND(99),WTMOLE INTEGER CARD(80),CARD81,CCCC(81) EQUIVALENCE (CARD(1),CCCC(1)),(CARD81,CCCC(81)) DIMENSION RHOXA(kw),DUM1(kw),DUM2(kw),DUM3(kw),DUM4(kw),DUM5(kw) DIMENSION DUM6(kw),DUM7(kw),DUM8(kw),TAUSTD(kw),TSMOOTH(kw) C EQUIVALENCE (DUM1(1),DLTDLP(1)),(DUM2(1),HEATCP(1)) C EQUIVALENCE (DUM3(1),DLRDLT(1)),(DUM4(1),VELSND(1)) C EQUIVALENCE (DUM5(1),GRDADB(1)),(DUM6(1),HSCALE(1)) C EQUIVALENCE (DUM7(1),FLXCNV(1)),(RHOXA(1),VCONV(1),DUM8(1)) C EQUIVALENCE (TAUSTD(1),XNATOM(1)) 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) C CARD81=BLANK CARD81=(1H ) LAST=81 MAXPOW=38 98 MORE=0 LETCOL=1 99 READ(5,1) CARD 1 FORMAT(80A1) 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 80A1) 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 SCALE IF(MIAC.EQ.35762836)GO TO 810 C CHANGE (SOLAR ABUNDANCE BEFORE SCALING) IF(MIAC.EQ.223095242)GO TO 820 C ABSOLUTE (FINAL ABUNDANCE AFTER SCALING) IF(MIAC.EQ.74075686)GO TO 830 GO TO 9000 810 NUMCOL=LETCOL XSCALE=FREEFF(CARD) GO TO 97 820 MORE=1 821 IZ=FREEFF(CARD) IF(IFFAIL.EQ.1)GO TO 98 ABUND(IZ)=FREEFF(CARD) GO TO 821 830 MORE=1 831 IZ=FREEFF(CARD) IF(IFFAIL.EQ.1)GO TO 98 ABUND(IZ)=FREEFF(CARD) IF(IZ.GT.2)ABUND(IZ)=ABUND(IZ)/XSCALE GO TO 831 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 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.997925E17/FRESET(NU) C PROVISION FOR READING WAVENUMBERS SCALED BY 1.E25 IF(FRESET(NU).GT.1.E20)FRESET(NU)=FRESET(NU)*(2.997925E10/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(5,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(5,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(5,1)CARD RHOX(J)=FREEFF(CARD) T(J)=FREEFF(CARD) MORE=1 P(J)=FREEFF(CARD) XNE(J)=FREEFF(CARD) ABROSS(J)=FREEFF(CARD) 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 CALL INTEG(RHOX,ABROSS,TAUROS,NRHOX,ABROSS(1)*RHOX(1)) IF(MIAC.NE.7754456)GO TO 98 READ(5,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(80A1) 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 READ(3,1171) TEFF,GLOG,WLTE,TITLE,IFOP,A,MIXLTH,B,TRBFDG, 1TRBPOW,TRBSND,TRBCON,XSCALE,(IZ,ABUND(IZ),IZ=1,99) 1171 FORMAT(5HTEFF ,F7.0,9H GRAVITY,F8.5,1X,A4/6HTITLE ,74A1/ 1 13H OPACITY IFOP,20I2/ 2 12H CONVECTION ,A3,F6.2,12H TURBULENCE, A3,4F6.2/ 3 16HABUNDANCE SCALE ,F9.5,17H ABUNDANCE CHANGE,2(I2,F8.5)/ 4(17H ABUNDANCE CHANGE,6(I3,F7.2))) GRAV=10.**GLOG FLUX=5.6697E-5/12.5664*TEFF**4 IF(WLTE.EQ.4HLTE )NLTEON=0 IF(WLTE.EQ.4HNLTE)NLTEON=1 IF(A.EQ.3HOFF)IFCONV=0 IF(A.EQ.3HON )IFCONV=1 IF(B.EQ.3HOFF)IFTURB=0 IF(B.EQ.3HON )IFTURB=1 READ(3,1172)NRHOX,(RHOX(J),T(J),P(J),XNE(J),ABROSS(J),ACCRAD(J), 1VTURB(J),J=1,NRHOX) 1172 FORMAT(10HREAD DECK6,I3,33H RHOX,T,P,XNE,ABROSS,ACCRAD,VTURB/ 1(1PE15.8,0PF9.1,1P5E10.3)) READ(3,1173)PRADK0 1173 FORMAT(5HPRADK,1PE11.4) CALL INTEG(RHOX,ACCRAD,PRAD,NRHOX,ACCRAD(1)*RHOX(1)) DO 1177 J=1,NRHOX 1177 PRADK(J)=PRAD(J)+PRADK0 IF(NLTEON.EQ.1)THEN READ(3,1174)NRHOX,(RHOX(J),(BHYD(J,I),I=1,6),BMIN(J),J=1,NRHOX) 1174 FORMAT(27HREAD DEPARTURE COEFFICIENTSI3,21H RHOX BHYD 1-6 BMIN/ 1(1PE11.4,0P7F9.4)) ENDIF READ(3,1175)ITERPUN 1175 FORMAT(5HBEGIN,20X,10HITERATION I3,10H COMPLETED ) INQUIRE(3,NAME=FILENAME) FILENAME=FILENAME(INDEX(FILENAME,']')+1:60) FILENAME=FILENAME(1:INDEX(FILENAME,'.')-1) CLOSE(UNIT=3) 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(MODE.NE.1)GO TO 1510 IF(NUMITS.EQ.0)WRITE(6,1501) IF(NRHOX.EQ.0)WRITE(6,1502) IF(NUMNU.EQ.0)WRITE(6,1503) 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) 1503 FORMAT(21H HOW MANY FREQUENCIES) 1504 FORMAT(10H WHAT TEFF) 1505 FORMAT(13H WHAT GRAVITY) IF(NUMITS.EQ.0)CALL EXIT IF(NRHOX.EQ.0)CALL EXIT IF(NUMNU.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)=EXP10(ABUND(1)) IF(ABUND(2).LT.0.)ABUND(2)=EXP10(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,XSCALE, 1(ELEM(IZ),ABUND(IZ),IZ=1,99) 1512 FORMAT(1H1/////5H TEFF,F7.0,8H LOG G,F8.4,3X,A4/ 17H0TITLE ,74A1/7H0XSCALE,F10.6,2(3X,A2,F8.5)/(10(1X,A2,F6.2))) DO 1513 IZ=3,99 1513 XABUND(IZ)=EXP10(ABUND(IZ))*XSCALE XABUND(1)=ABUND(1) XABUND(2)=ABUND(2) WTMOLE=0. DO 1514 IZ=1,99 1514 WTMOLE=WTMOLE+XABUND(IZ)*ATMASS(IZ) DO 1516 J=1,NRHOX TK(J)=1.38054E-16*T(J) HKT(J)=6.6256E-27/TK(J) 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*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,TAUSCAT,IFCONV,MIXLTH, 1IFMOL,IFTURB,TRBFDG,TRBPOW,TRBSND,TRBCON 1518 FORMAT(7H0IFCORR,I2,8H IFPRES,I2,8H IFSURF,I2,8H IFSCAT,I2, 1 9H TAUSCAT,1PE10.2, 2 8H IFCONV,I2,8H MIXLTH,0PF6.2,7H IFMOL,I2/7H IFTURB,I2, 3 8H TRBFDG,F6.2,8H TRBPOW,F6.2,8H TRBSND,F6.2,8H TRBCON,F6.2) IF(MODE.NE.1)GO TO 1575 WRITE(6,1521)NUMITS,IFPRNT,IFPNCH 1521 FORMAT(7H NUMITS,I3,8H IFPRNT,15I2,8H IFPNCH,15I2) IF(IFWAVE.EQ.0)GO TO 1560 WRITE(6,1536)WBEGIN,DELTAW,NUMNU 1536 FORMAT(7H0WBEGIN,F11.4,9H DELTAW,F7.4,8H NUMNU,I5) GO TO 1575 1560 WRITE(6,1561)FREQID,NUMNU,NULO,NUHI 1561 FORMAT(8H0FREQID ,6A1,8H NUMNU,I4,7H NULO,I4,7H NUHI,I4) NN=(NUMNU+3)/4 NNN=NUMNU-NN*3 IF(NNN.LT.1)NN=1 IF(NNN.LT.1)NNN=1 WRITE(6,1563)((NU,FRESET(NU),RCOSET(NU),NU=I,NUMNU,NN),I=1,NNN) 1563 FORMAT((4(I6,1P2E13.6))) IF(NN.EQ.NNN)GO TO 1575 NNN=NNN+1 WRITE(6,1564)((NU,FRESET(NU),RCOSET(NU),NU=I,NUMNU,NN),I=NNN,NN) 1564 FORMAT((3(I6,1P2E13.6))) SUM=0. DO 9500 NU=NULO,NUHI 9500 SUM=SUM+RCOSET(NU) PRINT 9501,SUM 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/////9X,4HRHOX,9X,1HT,8X,1HP,8X,3HXNE,6X,6HABROSS, 1 5X,4HPRAD,6X,5HVTURB,23X,4HBHYD,25X,4HBMIN/ 2(I4,1PE13.6,0PF9.1,1P5E10.3,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 C LINES IF(MIAC.EQ.22965179)GO TO 1630 GO TO 9000 1610 IFSCAT=1 GO TO 97 1620 IFSCAT=0 GO TO 97 1630 IFSCAT=1 NUMCOL=LETCOL TAUSCAT=FREEFF(CARD) 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) C BIG IF(MIAC.EQ.3078)GO TO 2210 C LITTLE IF(MIAC.EQ.850035822)GO TO 2220 GO TO 9000 C FREQUENCY SET BIG C NUMNU=337 IS CURRENT, NUMNU=331 IS OLD AND WILL WORK 2210 DO 2211 NU=1,NUMNU 2211 FRESET(NU)=2.997925E17/FRESET(NU+5) DO 2212 NU=2,NUMNU-1 2212 RCOSET(NU)=(FRESET(NU-1)-FRESET(NU+1))/2. RCOSET(1)=(2.997925E17/8.97666-FRESET(2))/2. RCOSET(NUMNU)=FRESET(NUMNU-1)/2. GO TO 98 C FREQUENCY SET LITTLE C NUMNU=1221 IS CURRENT, NUMNU=1215 IS OLD AND WILL WORK 2220 DO 2221 NU=1,NUMNU 2221 FRESET(NU)=2.997925E17/FRESET(NU+342) DO 2222 NU=2,NUMNU-1 2222 RCOSET(NU)=(FRESET(NU-1)-FRESET(NU+1))/2. RCOSET(1)=(2.997925E17/8.97666-FRESET(2))/2. 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.997925E17/WBEGIN DELTAW=2.997925E17/DELTAW WEND=2.997925E17/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 KRHOX=FREEFF(CARD) 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) CALL INTEG(RHOX,ABROSS,TAUROS,NRHOX,ABROSS(1)*RHOX(1)) 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 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 DO 2901 J=1,NRHOX 2901 VTURB(J)=VNEW GO TO 97 C************ C SMOOTH TEMPERTURE DISTRIBUTION 3000 J1=FREEFF(CARD) J2=FREEFF(CARD) WTJM1=FREEFF(CARD) WTJ=FREEFF(CARD) WTJP1=FREEFF(CARD) DO 3001 J=J1,J2 3001 TSMOOTH(J)=WTJM1*T(J-1)+WTJ*T(J)+WTJP1*T(J+1) DO 3002 J=J1,J2 3002 T(J)=TSMOOTH(J) GO TO 97 END SUBROUTINE DUMMYR IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) C DUMMY INPUT ROUTINE FOR MODIFYING READIN C C RETURN END FUNCTION FREEFR(CARD) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) COMMON /FREE/WORD(6),NUMCOL,LETCOL,LAST,MORE,IFFAIL,MAXPOW INTEGER CARD(1),WORD MORE=1 FREEFR=FREEFF(CARD) IF(IFFAIL.EQ.0)RETURN L=LAST-1 READ(5,1)(CARD(I),I=1,L) 1 FORMAT(80A1) NUMCOL=1 FREEFR=FREEFF(CARD) RETURN END FUNCTION FREEFF(CARD) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) 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/(1X80A1)) CALL EXIT 3000 FREEFF=0. RETURN 998 NUMCOL=NCOL+1 RETURN END FUNCTION IWORDF(CARD) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) 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/(1X80A1)) CALL EXIT 4000 IWORDF=0 RETURN 998 LETCOL=NCOL+1 RETURN END SUBROUTINE READMOL IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) DIMENSION XCODE(8) C COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,TAUSCAT,IFMOL 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),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=99) DIMENSION NUMBER(kw,1) REAL*8 NUMBER COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,TAUSCAT,IFMOL COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP COMMON /XABUND/XABUND(99),WTMOLE 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(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 NELECT IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) COMMON /EDENS/EDENS(kw),IFEDNS COMMON /ELEM/ABUND(99),ATMASS(99),ELEM(99) COMMON /ITER/ ITER,IFPRNT(15),IFPNCH(15),NUMITS COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP COMMON /XABUND/XABUND(99),WTMOLE DIMENSION ELEC(kw),E(10),X(10),MASK(10),NELEMZ(10),NIONZ(10) DIMENSION XNUMB(kw,3),PFPLUS(13),PFMIN(13),EION(7) EQUIVALENCE (ELEC(1),XNUMB(1,1)),(PFPLUS(7),EION(1)) DATA NELEMZ/1,2,6,11,12,13,14,19,20,26/ DATA NIONZ/2,3,2,2,2,2,2,2,2,2/,NZ/10/ IF(ITER.LT.NUMITS)GO TO 406 IF(IFEDNS.EQ.1)GO TO 407 DO 401 I=1,NZ NELEM=NELEMZ(I) 401 E(I)=ELEM(NELEM) WRITE(6,402)(E(I),I=1,NZ),(E(I),I=1,NZ) 402 FORMAT(1H1////50X,22HELECTRON CONTRIBUTIONS/3X,20(4X,A2)) 406 XNE(1)=P(1)/TK(1)/2. 407 DO 500 J=1,NRHOX IF(J.GT.1.AND.IFEDNS.EQ.0)XNE(J)=XNE(J-1)*P(J)/P(J-1) XNTOT=P(J)/TK(J) XNATOM(J)=XNTOT-XNE(J) DO 1 I=1,NZ 1 MASK(I)=1 DO 20 L=1,200 XNENEW=0. DO 11 I=1,NZ IF(MASK(I).EQ.0)GO TO 11 IZ=NELEMZ(I) NION=NIONZ(I) CALL PFSAHA(J,IZ,NION,4,ELEC) E(I)=ELEC(J) X(I)=ELEC(J)*XNATOM(J)*XABUND(IZ) XNENEW=XNENEW+X(I) 11 CONTINUE XNENEW=(XNENEW+XNE(J))/2. ERROR=ABS((XNE(J)-XNENEW)/XNENEW) XNE(J)=XNENEW XNATOM(J)=XNTOT-XNE(J) IF(ERROR.LT..0005)GO TO 400 IF(J.EQ.1)GO TO 20 X1=.00001*XNE(J) IF(ERROR.LT..05)X1=X1*10. DO 12 I=1,NZ IF(X(I).LT.X1)MASK(I)=0 12 CONTINUE 20 CONTINUE WRITE(6,250) 250 FORMAT(22H XNE DOES NOT CONVERGE) CALL EXIT 400 RHO(J)=XNATOM(J)*WTMOLE*1.660E-24 IF(IFEDNS.EQ.0)GO TO 33 EDENS(J)=1.5*XNTOT*TK(J) DO 411 I=1,NZ IZ=NELEMZ(I) NION=NIONZ(I) T(J)=T(J)*1.001 TK(J)=TK(J)*1.001 TKEV(J)=TKEV(J)*1.001 CALL PFSAHA(J,IZ,NION,5,PFPLUS) T(J)=T(J)/1.001*.999 TK(J)=TK(J)/1.001*.999 TKEV(J)=TKEV(J)/1.001*.999 CALL PFSAHA(J,IZ,NION,5,PFMIN) T(J)=T(J)/.999 TK(J)=TK(J)/.999 TKEV(J)=TKEV(J)/.999 CALL PFSAHA(J,IZ,NION,12,XNUMB) DO 410 ION=1,NION XNUMB(J,ION)=XNUMB(J,ION)*XNATOM(J)*XABUND(IZ) 410 EDENS(J)=EDENS(J)+XNUMB(J,ION)*TK(J)*(EION(ION)/TKEV(J)+ 1(PFPLUS(ION)-PFMIN(ION))/(PFPLUS(ION)+PFMIN(ION))*2.*500.) 411 CONTINUE EDENS(J)=EDENS(J)/RHO(J) GO TO 500 33 IF(ITER.LT.NUMITS)GO TO 500 DO 403 I=1,NZ 403 X(I)=X(I)/XNE(J) WRITE(6,404)J,(X(I),I=1,NZ),(E(I),I=1,NZ) 404 FORMAT(I4,20F6.3) 500 CONTINUE RETURN END SUBROUTINE PFSAHA(J,IZ,NION,MODE,ANSWER) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) 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+7)=IP C MODE + 10 RETURN ALL IONS TO NION. MODE ALONE RETURN NION ONLY. COMMON /DEPART/BHYD(kw,6),BMIN(kw),NLTEON COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP DIMENSION ANSWER(kw,6),F(6),IP(6),PART(6),POTLO(6),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, 1),NNN01(1)),(NNN(1, 10),NNN02(1)) EQUIVALENCE (NNN(1, 19),NNN03(1)),(NNN(1, 28),NNN04(1)) EQUIVALENCE (NNN(1, 37),NNN05(1)),(NNN(1, 46),NNN06(1)) EQUIVALENCE (NNN(1, 55),NNN07(1)),(NNN(1, 64),NNN08(1)) EQUIVALENCE (NNN(1, 73),NNN09(1)),(NNN(1, 82),NNN10(1)) EQUIVALENCE (NNN(1, 91),NNN11(1)),(NNN(1,100),NNN12(1)) EQUIVALENCE (NNN(1,109),NNN13(1)),(NNN(1,118),NNN14(1)) EQUIVALENCE (NNN(1,127),NNN15(1)),(NNN(1,136),NNN16(1)) EQUIVALENCE (NNN(1,145),NNN17(1)),(NNN(1,154),NNN18(1)) EQUIVALENCE (NNN(1,163),NNN19(1)),(NNN(1,172),NNN20(1)) EQUIVALENCE (NNN(1,181),NNN21(1)),(NNN(1,190),NNN22(1)) EQUIVALENCE (NNN(1,199),NNN23(1)),(NNN(1,208),NNN24(1)) EQUIVALENCE (NNN(1,217),NNN25(1)),(NNN(1,226),NNN26(1)) EQUIVALENCE (NNN(1,235),NNN27(1)),(NNN(1,244),NNN28(1)) EQUIVALENCE (NNN(1,253),NNN29(1)),(NNN(1,262),NNN30(1)) EQUIVALENCE (NNN(1,271),NNN31(1)),(NNN(1,280),NNN32(1)) EQUIVALENCE (NNN(1,289),NNN33(1)),(NNN(1,298),NNN34(1)) EQUIVALENCE (NNN(1,307),NNN35(1)),(NNN(1,316),NNN36(1)) EQUIVALENCE (NNN(1,325),NNN37(1)),(NNN(1,334),NNN38(1)) EQUIVALENCE (NNN(1,343),NNN39(1)),(NNN(1,352),NNN40(1)) DIMENSION NNN67(72) EQUIVALENCE (NNN(1,354),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 100611232, 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, 610063201, 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, 82410062, 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 100110061, 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 100610471, 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 223725352, 280830972, 340937362, 406844002, 473150632, 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 5 204721673, 234725733, 284031463, 348738613, 426546943, 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, 75310062, 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 510064491, 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 CHARGE=XNE(J)*2. EXCESS=2.*XNE(J)-P(J)/TK(J) C ALLOWANCE FOR DOUBLY IONIZED HELIUM IF(EXCESS.GT.0.)CHARGE=CHARGE+2.*EXCESS DEBYE=SQRT(TK(J)/2.8965E-18/CHARGE) C DEBYE=SQRT(TK(J)/12.5664/4.801E-10**2/CHARGE) 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 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 IP(ION)=DFLOAT(NNN100)/1000. 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) 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 C THE AMIN IS FOR ANY UNFORTUNATE WHO HAS A 360 20 F(ION)=CF*PART(ION)/PART(ION-1)* 1EXP(-DMIN1((IP(ION-1)-POTLO(ION-1))/TV,100.D0)) 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(7,1)=0. DO 51 ION=1,NION ANSWER(ION,1)=PART(ION) 51 ANSWER(ION+7,1)=IP(ION)+ANSWER(ION+6,1) RETURN END SUBROUTINE MOLEC(CODOUT,MODE,NUMBER) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) DIMENSION NUMBER(kw,1) REAL*8 NUMBER COMMON /ELEM/ABUND(99),ATMASS(99),ELEM(99) COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,TAUSCAT,IFMOL COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP COMMON /XABUND/XABUND(99),WTMOLE 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(5,151)NUMMOL 151 FORMAT(I5) DO 155 JMOL=1,NUMMOL READ(5,152)CODE(JMOL) 152 FORMAT(F20.2) READ(5,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(5,158) READ(5,158)(XNATOM(J),RHO(J),J=1,NRHOX) WRITE(6,158)(XNATOM(J),RHO(J),J=1,NRHOX) 158 FORMAT(1P8E10.3) READ(5,158) READ(5,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(ID) RETURN END SUBROUTINE NMOLEC(MODE) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) COMMON /EDENS/EDENS(kw),IFEDNS COMMON /ELEM/ABUND(99),ATMASS(99),ELEM(99) COMMON /ITER/ ITER,IFPRNT(15),IFPNCH(15),NUMITS COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP COMMON /XABUND/XABUND(99),WTMOLE COMMON /XNSAVE/XNSAVE(kw,25) DIMENSION PFP(13),PFM(13),EION(7),PFPLUS(kw),PFMIN(kw) EQUIVALENCE (PFP(7),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,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 30 DO 31 K=2,NEQUA ID=IDEQUA(K) IF(ID.LT.100)XAB(K)=DMAX1(XABUND(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 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)) 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)) IF(RATIO.GT..001)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*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 DO 166 J=1,NRHOX TPLUS=T(J)*1.001 TMINUS=T(J)*.999 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 166 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 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 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 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 EDENS(J)=EDENS(J)+XNMOL(J,JMOL)*TK(J)* 1(EION(ION)/TKEV(J)+(PFP(ION)-PFM(ION))/(PFP(ION)+PFP(ION))* 22.*500.) 177 CONTINUE 180 CONTINUE DO 181 J=1,NRHOX 181 EDENS(J)=EDENS(J)/RHO(J) RETURN END SUBROUTINE CONVEC IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) 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,TAUSCAT,IFMOL COMMON /IONS/XNFPH(kw,2),XNFPHE(kw,3),XNFH(kw,2),XNFHE(kw,3) 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) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP COMMON /TEFF/TEFF,GRAV,GLOG COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, 1 IFTURB COMMON /XABUND/XABUND(99),WTMOLE 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 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 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 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) C WRITE(6,6666)J,DEDT,DEDPG,DRDT,DRDPG,DPDT,DPDPG C 6666 FORMAT(I10,1P6E12.3) 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) VELSND(J)=SQRT(HEATCP(J)/HEATCV*DPDPG/DRDPG) 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 DPLUS=ROSSTAB(T(J)+DELTAT(J),P(J),VTURB(J))/ROSST(J) DMINUS=ROSSTAB(T(J)-DELTAT(J),P(J),VTURB(J))/ROSST(J) ABCONV(J)=2./(1./DPLUS+1./DMINUS)*ABROSS(J) C PRINT 5555,J,IDELTAT,T(J),DELTAT(J),DPLUS,ROSST(J),DMINUS, C 1ABCONV(J),ABROSS(J) 5555 FORMAT(2I5,1P7E12.3) 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 FLXCNV(J)=MAX(FLXCNV(J),0.D0) 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 C C C ELIMINATE ARTIFACTUAL CONVECTION ABOVE THE MAIN CONVECTION ZONE DO 730 J=3,NRHOX K=NRHOX+1-J IF(FLXCNV(K).GT.0.)GO TO 731 730 CONTINUE RETURN 731 DO 732 J=1,K L=K+1-J IF(FLXCNV(L).EQ.0.)GO TO 733 732 CONTINUE 733 DO 734 J=1,L VCONV(J)=0. 734 FLXCNV(J)=0. 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 WTCNV=MIN(FLXCNV(NRHOX)/FLUX,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 FLXCNV1(J)=MAX(FLXCNV1(J),0.D0) FLXCNV0(J)=MAX(FLXCNV0(J),0.D0) 779 FLXCNV(J)=MAX(FLXCNV0(J),FLXCNV1(J)) ENDIF C PATCH TO REMOVE NUMERICAL ARTIFACTS DO 7779 J=1,NRHOX/2 7779 FLXCNV(J)=0. C C RETURN END SUBROUTINE HIGH IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) 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) 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 TURB IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) 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) 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(N,NSTEPS,STEPWT) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) 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) DIMENSION DUMMY(kw,25) EQUIVALENCE (AHYD(1),DUMMY(1,1)) STEPWT=1. NSTEPS=1 IF(N.GT.1)GO TO 200 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.AND.N.GT.0)CALL HLINOP IF(IFOP(15).EQ.1.AND.N.GT.0)CALL LINOP(N,NSTEPS,STEPWT) IF(IFOP(16).EQ.1.AND.N.GT.0)CALL LINSOP(N,NSTEPS,STEPWT) IF(IFOP(17).EQ.1.AND.N.GT.0)CALL XLINOP 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 200 IF(IFOP(15).EQ.1)CALL LINOP(N,NSTEPS,STEPWT) IF(IFOP(16).EQ.1)CALL LINSOP(N,NSTEPS,STEPWT) DO 201 J=1,NRHOX ALINE(J)=AHLINE(J)+ALINES(J)+AXLINE(J) IF(ALINE(J).GT.0.)SLINE(J)=(AHLINE(J)*SHLINE(J)+ALINES(J)*BNU(J)+ 1AXLINE(J)*SXLINE(J))/ALINE(J) 201 SIGMAL(J)=SIGLIN(J)+SIGXL(J) RETURN END SUBROUTINE HOP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) C REQUIRES FUNCTIONS COULX AND COULFF COMMON /DEPART/BHYD(kw,6),BMIN(kw),NLTEON COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) COMMON /IONS/XNFPH(kw,2),XNFPHE(kw,3),XNFH(kw,2),XNFHE(kw,3) 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) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP 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)*XNFPH(J,1)/RHO(J) DO 12 N=1,6 12 BOLT(J,N)=BOLT(J,N)*BHYD(J,N) FREET(J)=XNE(J)*XNFH(J,2)/RHO(J)/SQRT(T(J)) XR=XNFPH(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)=XKARSAS(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 XKARSAS(FREQ,ZEFF2,N,L) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) 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 EKARSAS(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.342150, -17.667949, -17.093121, 6 -16.627232, -16.414294, -16.237373, -16.076228/ 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.183891, 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.639111, -17.918166, -17.276217, 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.776282, -18.037692, -17.368650, 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.906962, -18.152646, -17.460462, 6 -16.832855, -16.513888, -16.224591, -15.938340/ DATA EKARSAS/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) XKARSAS=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) XKARSAS=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) XKARSAS=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((EKARSAS(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) XKARSAS=EXP(X*2.30258509299405E0)/ZEFF2 RETURN END FUNCTION COULX(N,FREQ,Z) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) 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=99) 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=99) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(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=99) COMMON /DEPART/BHYD(kw,6),BMIN(kw),NLTEON COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) COMMON /IONS/XNFPH(kw,2),XNFPHE(kw,3),XNFH(kw,2),XNFHE(kw,3) COMMON /OPS/D1(kw),AH2P(kw),D2(kw,23) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP 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)*XNFPH(J,1)*2.*BHYD(J,1)*XNFPH(J,2)/ 1RHO(J)*STIM(J) RETURN END SUBROUTINE HMINOP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) COMMON /DEPART/BHYD(kw,6),BMIN(kw),NLTEON COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) COMMON /IONS/XNFPH(kw,2),XNFPHE(kw,3),XNFH(kw,2),XNFHE(kw,3) 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) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP 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)*XNFPH(J,1)*XNE(J) 20 WAVE=2.99792458E17/FREQ 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)*XNFPH(J,1)*2.*BHYD(J,1)*XNE(J)/RHO(J) 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=99) COMMON /DEPART/BHYD(kw,6),BMIN(kw),NLTEON COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) COMMON /IONS/XNFPH(kw,2),XNFPHE(kw,3),XNFH(kw,2),XNFHE(kw,3) 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) WAVE=2.997925E18/DMIN1(FREQ,2.463D15) WW=WAVE**2 SIG=(5.799E-13+1.422E-6/WW+2.784/(WW*WW))/(WW*WW) DO 2 J=1,NRHOX 2 SIGH(J)=SIG*XNFPH(J,1)*2.*BHYD(J,1)/RHO(J) RETURN END SUBROUTINE HE1OP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) C REQUIRES FUNCTIONS COULX AND COULFF COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) COMMON /IONS/XNFPH(kw,2),XNFPHE(kw,3),XNFH(kw,2),XNFHE(kw,3) 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) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP 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)*XNFPHE(J,1)/RHO(J) DO 304 N=4,27 304 BOLTN(J,N)=EXP(-24.587*(1.-1./N**2)/TKEV(J))*4.*N**2* 1XNFPHE(J,1)/RHO(J) FREET(J)=XNE(J)*XNFHE(J,2)/RHO(J)/SQRT(T(J)) XR=XNFPHE(J,1)*(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)=XKARSAS(FREQ,1.236439D0,3,0) c 1s3s 1S 27 TRANS(7)=XKARSAS(FREQ,1.102898D0,3,0) c 1s3p 3P 28 TRANS(8)=XKARSAS(FREQ,1.045499D0,3,1) c 1s3d 3D+1D 29 TRANS(9)=XKARSAS(FREQ,1.001427D0,3,2) c 1s3p 1P 30 TRANS(10)=XKARSAS(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)+XKARSAS(FREQ,ZEFF2,1,0) FREQHE=(ELIM-169087.)*2.99792458E10 IF(FREQ.LT.FREQHE)GO TO 32 ZEFF2=FREQHE/RYD TRANS(4)=TRANS(4)+XKARSAS(FREQ,ZEFF2,1,0) FREQHE=(ELIM-166277.546)*2.99792458E10 IF(FREQ.LT.FREQHE)GO TO 32 ZEFF2=FREQHE/RYD TRANS(3)=TRANS(3)+XKARSAS(FREQ,ZEFF2,1,0) FREQHE=(ELIM-159856.069)*2.99792458E10 IF(FREQ.LT.FREQHE)GO TO 32 ZEFF2=FREQHE/RYD TRANS(2)=TRANS(2)+XKARSAS(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)+XKARSAS(FREQ,ZEFF2,1,0) FREQHE=(ELIM-186101.)*2.99792458E10 IF(FREQ.LT.FREQHE)GO TO 40 ZEFF2=FREQHE/RYD TRANS(9)=TRANS(9)+XKARSAS(FREQ,ZEFF2,1,0) FREQHE=(ELIM-185564.)*2.99792458E10 IF(FREQ.LT.FREQHE)GO TO 40 ZEFF2=FREQHE/RYD TRANS(8)=TRANS(8)+XKARSAS(FREQ,ZEFF2,1,0) FREQHE=(ELIM-184864.)*2.99792458E10 IF(FREQ.LT.FREQHE)GO TO 40 ZEFF2=FREQHE/RYD TRANS(7)=TRANS(7)+XKARSAS(FREQ,ZEFF2,1,0) FREQHE=(ELIM-183236.)*2.99792458E10 IF(FREQ.LT.FREQHE)GO TO 40 ZEFF2=FREQHE/RYD TRANS(6)=TRANS(6)+XKARSAS(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)=XKARSAS(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) 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=99) 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=99) 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=99) 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=99) 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=99) 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 HE12S1P=.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=99) 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=99) 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) COMMON /IONS/XNFPH(kw,2),XNFPHE(kw,3),XNFH(kw,2),XNFHE(kw,3) 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) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP DIMENSION CONT(9),BOLT(kw,9),EXLIM(kw),FREET(kw),BOLTEX(kw) 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)*XNFPHE(J,2)/RHO(J) FREET(J)=XNE(J)*XNFHE(J,3)/RHO(J)/SQRT(T(J)) XR=XNFPHE(J,2)*(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)=XKARSAS(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) AHE2BOUND(J)=HE2*STIM(J) 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=99) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) COMMON /IONS/XNFPH(kw,2),XNFPHE(kw,3),XNFH(kw,2),XNFHE(kw,3) 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) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP 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)*XNFPHE(J,1)/RHO(J) RETURN END SUBROUTINE HERAOP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) COMMON /IONS/XNFPH(kw,2),XNFPHE(kw,3),XNFH(kw,2),XNFHE(kw,3) 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) WAVE=2.997925E18/DMIN1(FREQ,5.15D15) WW=WAVE**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*XNFPHE(J,1)/RHO(J) RETURN END SUBROUTINE COOLOP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) C SI1,MG1,AL1,C1,FE1 COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) 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) COMMON /XNFP/XNFPC(kw,4),XNFPN(kw,5),XNFPO(kw,6),XNFPNE(kw,6), 1 XNFPAL(kw,1),XNFPMG(kw,2),XNFPSI(kw,2),XNFPCA(kw,2), 2 XNFPFE(kw,1),XNFPCH(kw),XNFPOH(kw) REAL*8 MG1OP IF(FREQ.GT.3.28805E15)RETURN DO 20 J=1,NRHOX 20 ACOOL(J)=(C1OP(J)*XNFPC(J,1)+MG1OP(J)*XNFPMG(J,1)+ 1AL1OP(J)*XNFPAL(J,1)+SI1OP(J)*XNFPSI(J,1)+FE1OP(J)*XNFPFE(J,1)+ 2CHOP(J)*XNFPCH(J)+OHOP(J)*XNFPOH(J))*STIM(J)/RHO(J) RETURN END FUNCTION C1OP(J) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) C CROSS-SECTION TIMES THE PARTITION FUNCTION COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) COMMON /RHOX/RHOX(kw),NRHOX COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP DIMENSION C1240(kw),C1444(kw) DATA FREQ1,ITEMP1/0.,0/ IF(ITEMP.EQ.ITEMP1)GO TO 30 ITEMP1=ITEMP DO 20 K=1,NRHOX C1240(K)=5.*EXP(-1.264/TKEV(K)) 20 C1444(K)=EXP(-2.683/TKEV(K)) 30 IF(FREQ.EQ.FREQ1)GO TO 40 X1444=0. X1240=0. X1100=0. IF(FREQ.GE.2.7254E15)X1100= 1SEATON(2.7254D15,1.219D-17,2.D0,3.317D0) IF(FREQ.GE.2.4196E15)X1240= 1SEATON(2.4196D15,1.03D-17,1.5D0,2.789D0) IF(FREQ.GE.2.0761E15)X1444= 1SEATON(2.0761D15,9.59D-18,1.5D0,3.501D0) FREQ1=FREQ 40 C1OP=X1100*9.+X1240*C1240(J)+X1444*C1444(J) RETURN END FUNCTION SEATON(FREQ0,XSECT,POWER,A) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) SEATON=XSECT*(A+(1.-A)*(FREQ0/FREQ))* 1SQRT((FREQ0/FREQ)**( INT(2.*POWER+.01))) RETURN END FUNCTION MG1OP(J) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) C CROSS-SECTION TIMES THE PARTITION FUNCTION COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) COMMON /RHOX/RHOX(kw),NRHOX COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP REAL*8 MG1OP DIMENSION FLOG(9),FREQMG(7),PEACH(7,15),X(7),TLG(7),DT(kw),NT(kw) DATA PEACH/ C 4000 5000 6000 7000 8000 9000 10000 WAVE(A) 1 -42.474, -42.350, -42.109, -41.795, -41.467, -41.159, -40.883, 1500 2 -41.808, -41.735, -41.582, -41.363, -41.115, -40.866, -40.631, 1550 3 -41.273, -41.223, -41.114, -40.951, -40.755, -40.549, -40.347, 1621 4 -45.583, -44.008, -42.957, -42.205, -41.639, -41.198, -40.841, 1622 5 -44.324, -42.747, -41.694, -40.939, -40.370, -39.925, -39.566, 2513 6 -50.969, -48.388, -46.630, -45.344, -44.355, -43.568, -42.924, 2514 7 -50.633, -48.026, -46.220, -44.859, -43.803, -42.957, -42.264, 3756 8 -53.028, -49.643, -47.367, -45.729, -44.491, -43.520, -42.736, 3757 9 -51.785, -48.352, -46.050, -44.393, -43.140, -42.157, -41.363, 6549 T -52.285, -48.797, -46.453, -44.765, -43.486, -42.480, -41.668, 6550 1 -52.028, -48.540, -46.196, -44.507, -43.227, -42.222, -41.408, 7234 2 -52.384, -48.876, -46.513, -44.806, -43.509, -42.488, -41.660, 7235 3 -52.363, -48.856, -46.493, -44.786, -43.489, -42.467, -41.639, 7291 4 -54.704, -50.772, -48.107, -46.176, -44.707, -43.549, -42.611, 7292 5 -54.359, -50.349, -47.643, -45.685, -44.198, -43.027, -42.418/ 9000 DATA FREQMG/1.9341452E15,1.8488510E15,1.1925797E15,7.9804046E14, 1 4.5772110E14,4.1440977E14,4.1113514E14/ DATA FLOG/35.23123,35.19844,35.15334,34.71490,34.31318,33.75728, 1 33.65788,33.64994,33.43947/ DATA TLG/8.29405,8.51719,8.69951,8.85367,8.98720,9.10498,9.21034/ DATA FREQ1,ITEMP1/0.,0/ IF(ITEMP.EQ.ITEMP1)GO TO 20 ITEMP1=ITEMP DO 11 K=1,NRHOX N=MAX0(MIN0(6, INT(T(K)/1000.)-3),1) NT(K)=N 11 DT(K)=(TLOG(K)-TLG(N))/(TLG(N+1)-TLG(N)) GO TO 21 20 IF(FREQ.EQ.FREQ1)GO TO 30 21 FREQ1=FREQ DO 22 N=1,7 IF(FREQ.GT.FREQMG(N))GO TO 23 22 CONTINUE N=8 23 D=(FREQLG-FLOG(N))/(FLOG(N+1)-FLOG(N)) IF(N.GT.2)N=2*N-2 D1=1.-D DO 24 IT=1,7 24 X(IT)=PEACH(IT,N+1)*D+PEACH(IT,N)*D1 30 N=NT(J) MG1OP=EXP(X(N)*(1.-DT(J))+X(N+1)*DT(J)) RETURN END FUNCTION AL1OP(J) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) C CROSS-SECTION TIMES THE PARTITION FUNCTION COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) AL1OP=0. IF(FREQ.GE.1.443E15)AL1OP=6.5E-17*(1.443E15/FREQ)**5*6. RETURN END FUNCTION SI1OP(J) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) C CROSS-SECTION TIMES THE PARTITION FUNCTION COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) COMMON /RHOX/RHOX(kw),NRHOX COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP DIMENSION FLOG(11),FREQSI(9),X(9),TLG(9),DT(kw),NT(kw) DIMENSION PEACH(9,19) DATA PEACH/ C 4000 5000 6000 7000 8000 9000 10000 11000 12000 WAVE(A) 1 38.136,38.138,38.140,38.141,38.143,38.144,38.144,38.145,38.145, 1200 2 37.834,37.839,37.843,37.847,37.850,37.853,37.855,37.857,37.858, 1400 3 37.898,37.898,37.897,37.897,37.897,37.896,37.895,37.895,37.894, 1519 4 40.737,40.319,40.047,39.855,39.714,39.604,39.517,39.445,39.385, 1520 5 40.581,40.164,39.893,39.702,39.561,39.452,39.366,39.295,39.235, 1676 6 45.521,44.456,43.753,43.254,42.878,42.580,42.332,42.119,41.930, 1677 7 45.520,44.455,43.752,43.251,42.871,42.569,42.315,42.094,41.896, 1978 8 55.068,51.783,49.553,47.942,46.723,45.768,44.997,44.360,43.823, 1979 9 53.868,50.369,48.031,46.355,45.092,44.104,43.308,42.652,42.100, 5379 T 54.133,50.597,48.233,46.539,45.261,44.262,43.456,42.790,42.230, 5380 1 54.051,50.514,48.150,46.454,45.176,44.175,43.368,42.702,42.141, 5624 2 54.442,50.854,48.455,46.733,45.433,44.415,43.592,42.912,42.340, 5625 3 54.320,50.722,48.313,46.583,45.277,44.251,43.423,42.738,42.160, 6260 4 55.691,51.965,49.444,47.615,46.221,45.119,44.223,43.478,42.848, 6261 5 55.661,51.933,49.412,47.582,46.188,45.085,44.189,43.445,42.813, 6349 6 55.973,52.193,49.630,47.769,46.349,45.226,44.314,43.555,42.913, 6350 7 55.922,52.141,49.577,47.715,46.295,45.172,44.259,43.500,42.858, 6491 8 56.828,52.821,50.110,48.146,46.654,45.477,44.522,43.730,43.061, 6492 9 56.657,52.653,49.944,47.983,46.491,45.315,44.360,43.569,42.901/ 6900 C 3P,1D,1S,1D,3D,3F,1D,3P DATA FREQSI/2.1413750E15,1.9723165E15,1.7879689E15,1.5152920E15, 1 5.5723927E14,5.3295914E14,4.7886458E14,4.7216422E14,4.6185133E14/ DATA FLOG/35.45438,35.30022,35.21799,35.11986,34.95438,33.95402, 1 33.90947,33.80244,33.78835,33.76626,33.70518/ DATA TLG/8.29405,8.51719,8.69951,8.85367,8.98720,9.10498,9.21034, 1 9.30565,9.39266/ DATA FREQ1,ITEMP1/0.,0/ IF(ITEMP.EQ.ITEMP1)GO TO 20 ITEMP1=ITEMP DO 11 K=1,NRHOX N=MAX0(MIN0(8, INT(T(K)/1000.)-3),1) NT(K)=N 11 DT(K)=(TLOG(K)-TLG(N))/(TLG(N+1)-TLG(N)) GO TO 21 20 IF(FREQ.EQ.FREQ1)GO TO 30 21 FREQ1=FREQ DO 22 N=1,9 IF(FREQ.GT.FREQSI(N))GO TO 23 22 CONTINUE N=10 23 D=(FREQLG-FLOG(N))/(FLOG(N+1)-FLOG(N)) IF(N.GT.2)N=2*N-2 D1=1.-D DO 24 IT=1,9 24 X(IT)=PEACH(IT,N+1)*D+PEACH(IT,N)*D1 30 N=NT(J) SI1OP=EXP(-(X(N)*(1.-DT(J))+X(N+1)*DT(J)))*9. RETURN END FUNCTION FE1OP(J) C CROSS-SECTION TIMES PARTITION FUNCTION IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) COMMON /RHOX/RHOX(kw),NRHOX COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(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=99) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) COMMON /RHOX/RHOX(kw),NRHOX COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(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=99) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) COMMON /RHOX/RHOX(kw),NRHOX COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(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 LUKEOP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) C SI2,MG2,CA2,N1,O1 COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) 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) COMMON /XNFP/XNFPC(kw,4),XNFPN(kw,5),XNFPO(kw,6),XNFPNE(kw,6), 1 XNFPAL(kw,1),XNFPMG(kw,2),XNFPSI(kw,2),XNFPCA(kw,2), 2 XNFPFE(kw,1),XNFPCH(kw),XNFPOH(kw) REAL*8 N1OP,MG2OP DO 11 J=1,NRHOX 11 ALUKE(J)=(N1OP(J)*XNFPN(J,1)+O1OP(J)*XNFPO(J,1)+MG2OP(J)* 1XNFPMG(J,2)+SI2OP(J)*XNFPSI(J,2)+CA2OP(J)*XNFPCA(J,2))* 2STIM(J)/RHO(J) RETURN END FUNCTION N1OP(J) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) C CROSS-SECTION TIMES PARTITION FUNCTION COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) COMMON /RHOX/RHOX(kw),NRHOX COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP REAL*8 N1OP 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=99) C FROM DEANE PETERSON AFTER PEACH C CROSS-SECTION TIMES PARTITION FUNCTION COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) 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 FUNCTION MG2OP(J) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) C CROSS-SECTION TIMES PARTITION FUNCTION COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) COMMON /RHOX/RHOX(kw),NRHOX COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP REAL MG2OP DIMENSION C1169(kw) DATA FREQ1,ITEMP1/0.,0/ IF(ITEMP.EQ.ITEMP1)GO TO 30 ITEMP1=ITEMP DO 20 K=1,NRHOX 20 C1169(K)=6.*EXP(-4.43/TKEV(K)) 30 IF(FREQ.EQ.FREQ1)GO TO 40 X1169=0. X824=0. IF(FREQ.GE.3.635492E15)X824= 1SEATON(3.635492D15,1.40D-19,4.D0,6.7D0) IF(FREQ.GE.2.564306E15)X1169=5.11E-19*(2.564306E15/FREQ)**3 FREQ1=FREQ 40 MG2OP=X824*2.+X1169*C1169(J) RETURN END FUNCTION SI2OP(J) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) C CROSS-SECTION TIMES THE PARTITION FUNCTION COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) COMMON /RHOX/RHOX(kw),NRHOX COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP DIMENSION FLOG(9),FREQSI(7),PEACH(6,14),X(6),TLG(6),DT(kw),NT(kw) DATA PEACH/ C 10000 12000 14000 16000 18000 20000 WAVE(A) 1 -43.8941, -43.8941, -43.8941, -43.8941, -43.8941, -43.8941, 500 2 -42.2444, -42.2444, -42.2444, -42.2444, -42.2444, -42.2444, 600 3 -40.6054, -40.6054, -40.6054, -40.6054, -40.6054, -40.6054, 759 4 -54.2389, -52.2906, -50.8799, -49.8033, -48.9485, -48.2490, 760 5 -50.4108, -48.4892, -47.1090, -46.0672, -45.2510, -44.5933, 1905 6 -52.0936, -50.0741, -48.5999, -47.4676, -46.5649, -45.8246, 1906 7 -51.9548, -49.9371, -48.4647, -47.3340, -46.4333, -45.6947, 1975 8 -54.2407, -51.7319, -49.9178, -48.5395, -47.4529, -46.5709, 1976 9 -52.7355, -50.2218, -48.4059, -47.0267, -45.9402, -45.0592, 3245 T -53.5387, -50.9189, -49.0200, -47.5750, -46.4341, -45.5082, 3246 1 -53.2417, -50.6234, -48.7252, -47.2810, -46.1410, -45.2153, 3576 2 -53.5097, -50.8535, -48.9263, -47.4586, -46.2994, -45.3581, 3577 3 -54.0561, -51.2365, -49.1980, -47.6497, -46.4302, -45.4414, 3900 4 -53.8469, -51.0256, -48.9860, -47.4368, -46.2162, -45.2266/ 4200 DATA FREQSI/4.9965417E15,3.9466738E15,1.5736321E15,1.5171539E15, 1 9.2378947E14,8.3825004E14,7.6869872E14/ C 2P,2D,2P,2D,2P DATA FLOG/36.32984,36.14752,35.91165,34.99216,34.95561,34.45951, 1 34.36234,34.27572,34.20161/ DATA TLG/9.21034,9.39266,9.54681,9.68034,9.79813,9.90349/ DATA FREQ1,ITEMP1/0.,0/ IF(ITEMP.EQ.ITEMP1)GO TO 20 ITEMP1=ITEMP DO 11 K=1,NRHOX N=MAX0(MIN0(5, INT(T(K)/2000.)-4),1) NT(K)=N 11 DT(K)=(TLOG(K)-TLG(N))/(TLG(N+1)-TLG(N)) GO TO 21 20 IF(FREQ.EQ.FREQ1)GO TO 30 21 FREQ1=FREQ DO 22 N=1,7 IF(FREQ.GT.FREQSI(N))GO TO 23 22 CONTINUE N=8 23 D=(FREQLG-FLOG(N))/(FLOG(N+1)-FLOG(N)) IF(N.GT.2)N=2*N-2 IF(N.EQ.14)N=13 D1=1.-D DO 24 IT=1,6 24 X(IT)=PEACH(IT,N+1)*D+PEACH(IT,N)*D1 30 N=NT(J) SI2OP=EXP(X(N)*(1.-DT(J))+X(N+1)*DT(J))*6. RETURN END FUNCTION CA2OP(J) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) C CROSS-SECTION TIMES THE PARTITION FUNCTION COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) COMMON /RHOX/RHOX(kw),NRHOX COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(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=99) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) 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) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP COMMON /XNF/XNFC(kw,6),XNFN(kw,6),XNFO(kw,6),XNFNE(kw,6), 1 XNFMG(kw,6),XNFSI(kw,6),XNFS(kw,6),XNFFE(kw,5) C COMMON /XNFP/XNFPC(kw,4),XNFPN(kw,5),XNFPO(kw,6),XNFPNE(kw,6), COMMON /XNFP/XNFP(kw,21), 1 XNFPAL(kw,1),XNFPMG(kw,2),XNFPSI(kw,2),XNFPCA(kw,2), 2 XNFPFE(kw,1),XNFPCH(kw),XNFPOH(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, 2., 6.01 2 4.574341E15, 2.50E-18, 1.000, 4., 2., 11.96, 2., 6.01 3 5.220770E15, 1.08E-17, 1.000, 4., 10., 9.28, 2., 6.01 4 5.222307E15, 5.35E-18, 3.769, 2., 1., 0.00, 16., 10.00 5 5.892577E15, 4.60E-18, 1.950, 6., 6., 0.00, 2., 6.01 6 6.177022E15, 3.50E-18, 1.000, 4., 12., 5.33, 2., 6.01 7 6.181062E15, 6.75E-18, 3.101, 5., 1., 4.05, 6., 7.01 8 6.701879E15, 6.65E-18, 2.789, 5., 5., 1.90, 6., 7.01 9 7.158382E15, 6.65E-18, 2.860, 6., 9., 0.00, 6./ 7.01 DATA A2/ 1 7.284488E15, 3.43E-18, 4.174, 5., 6., 5.02, 11., 8.01 2 7.693612E15, 3.53E-18, 3.808, 5., 10., 3.33, 11., 8.01 3 7.885955E15, 2.32E-18, 3.110, 5., 6., 5.02, 11., 8.01 4 8.295079E15, 3.97E-18, 3.033, 5., 10., 3.33, 11., 8.01 5 8.497686E15, 7.32E-18, 3.837, 5., 4., 0.00, 11., 8.01 6 8.509966E15, 2.00E-18, 1.750, 7., 3., 12.69, 3., 6.02 7 8.572854E15, 1.68E-18, 3.751, 5., 6., 5.02, 11., 8.01 8 9.906370E15, 4.16E-18, 2.717, 3., 6., 0.00, 17., 10.01 9 1.000693E16, 2.40E-18, 1.750, 7., 9., 6.50, 3./ 6.02 DATA A3/ 1 1.046078E16, 4.80E-18, 1.000, 4., 10., 12.53, 7., 7.02 2 1.067157E16, 2.71E-18, 2.148, 3., 6., 0.00, 17., 10.01 3 1.146734E16, 2.06E-18, 1.626, 6., 6., 0.00, 7., 7.02 4 1.156813E16, 5.20E-19, 2.126, 3., 6., 0.00, 17., 10.01 5 1.157840E16, 9.10E-19, 4.750, 4., 1., 0.00, 3., 6.02 6 1.177220E16, 5.30E-18, 1.000, 4., 12., 7.10, 7., 7.02 7 1.198813E16, 3.97E-18, 2.780, 6., 1., 5.35, 12., 8.02 8 1.325920E16, 3.79E-18, 2.777, 6., 5., 2.51, 12., 8.02 9 1.327649E16, 3.65E-18, 2.014, 6., 9., 0.00, 12./ 8.02 DATA A4/ 1 1.361466E16, 7.00E-18, 1.000, 2., 5., 7.48, 12., 8.02 2 1.365932E16, 9.30E-19, 1.500, 7., 6., 8.00, 4., 6.03 3 1.481487E16, 1.10E-18, 1.750, 7., 3., 16.20, 8., 7.03 4 1.490032E16, 5.49E-18, 3.000, 5., 1., 6.91, 18., 10.02 5 1.533389E16, 1.80E-18, 2.277, 4., 9., 0.00, 18., 10.02 6 1.559452E16, 8.70E-19, 3.000, 6., 2., 0.00, 4., 6.03 7 1.579688E16, 4.17E-18, 2.074, 4., 5., 3.20, 18., 10.02 8 1.643205E16, 1.39E-18, 2.792, 5., 5., 3.20, 18., 10.02 9 1.656208E16, 2.50E-18, 2.346, 5., 9., 0.00, 18./ 10.02 DATA A5/ 1 1.671401E16, 1.30E-18, 1.750, 7., 9., 8.35, 8., 7.03 2 1.719725E16, 1.48E-18, 2.225, 5., 9., 0.00, 18., 10.02 3 1.737839E16, 2.70E-18, 1.000, 4., 10., 15.74, 13., 8.03 4 1.871079E16, 1.27E-18, .831, 6., 6., 0.00, 13., 8.03 5 1.873298E16, 9.10E-19, 3.000, 4., 1., 0.00, 8., 7.03 6 1.903597E16, 2.90E-18, 1.000, 4., 12., 8.88, 13., 8.03 7 2.060738E16, 4.60E-18, 1.000, 3., 12., 22.84, 19., 10.03 8 2.125492E16, 5.90E-19, 1.000, 6., 6., 9.99, 9., 7.04 9 2.162610E16, 1.69E-18, 1.937, 5., 6., 7.71, 19./ 10.03 DATA A6/ 1 2.226127E16, 1.69E-18, 1.841, 5., 10., 5.08, 19., 10.03 2 2.251163E16, 9.30E-19, 2.455, 6., 6., 7.71, 19., 10.03 3 2.278001E16, 7.90E-19, 1.000, 6., 9., 10.20, 14., 8.04 4 2.317678E16, 1.65E-18, 2.277, 6., 10., 5.08, 19., 10.03 5 2.348946E16, 3.11E-18, 1.963, 6., 4., 0.00, 19., 10.03 6 2.351911E16, 7.30E-19, 1.486, 5., 6., 7.71, 19., 10.03 7 2.366973E16, 5.00E-19, 1.000, 4., 2., 0.00, 9., 7.04 8 2.507544E16, 6.90E-19, 1.000, 6., 3., 19.69, 14., 8.04 9 2.754065E16, 7.60E-19, 1.000, 2., 1., 0.00, 14./ 8.04 DATA A7/ 1 2.864850E16, 1.54E-18, 2.104, 6., 1., 7.92, 20., 10.04 2 2.965598E16, 1.53E-18, 2.021, 6., 5., 3.76, 20., 10.04 3 3.054151E16, 1.40E-18, 1.471, 6., 9., 0.00, 20., 10.04 4 3.085141E16, 2.80E-18, 1.000, 4., 5., 11.01, 20., 10.04 5 3.339687E16, 3.60E-19, 1.000, 6., 2., 0.00, 15., 8.05 6 3.818757E16, 4.90E-19, 1.145, 6., 6., 0.00, 21./ 10.05 DATA NUM/60/ C IF(FREQ.LT.A(1))RETURN C C FREE-FREE DO 200 J=1,NRHOX FREE=COULFF(J,1)*1.**2*(XNFC(J,2)+XNFN(J,2)+XNFO(J,2)+XNFNE(J,2)+ 1 XNFMG(J,2)+XNFSI(J,2)+XNFS(J,2)+XNFFE(J,2))+ 2 COULFF(J,2)*2.**2*(XNFC(J,3)+XNFN(J,3)+XNFO(J,3)+XNFNE(J,3)+ 3 XNFMG(J,3)+XNFSI(J,3)+XNFS(J,3)+XNFFE(J,3))+ 4 COULFF(J,3)*3.**2*(XNFC(J,4)+XNFN(J,4)+XNFO(J,4)+XNFNE(J,4)+ 5 XNFMG(J,4)+XNFSI(J,4)+XNFS(J,4)+XNFFE(J,4))+ 6 COULFF(J,4)*4.**2*(XNFC(J,5)+XNFN(J,5)+XNFO(J,5)+XNFNE(J,5)+ 7 XNFMG(J,5)+XNFSI(J,5)+XNFS(J,5)+XNFFE(J,5))+ 8 COULFF(J,5)*5.**2*(XNFC(J,6)+XNFN(J,6)+XNFO(J,6)+XNFNE(J,6)+ 9 XNFMG(J,6)+XNFSI(J,6)+XNFS(J,6) ) 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 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 C2OP(AC2OP) 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=99) 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) 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=99) COMMON /DEPART/BHYD(kw,6),BMIN(kw),NLTEON COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) COMMON /IONS/XNFPH(kw,2),XNFPHE(kw,3),XNFH(kw,2),XNFHE(kw,3) 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) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP DIMENSION XNH2(kw) DATA ITEMP1/0/ IF(ITEMP.EQ.ITEMP1)GO TO 20 ITEMP1=ITEMP DO 11 J=1,NRHOX 11 XNH2(J)=(XNFPH(J,1)*2.*BHYD(J,1))**2*EXP(4.477/TKEV(J)-4.6628E1+ 1(1.8031E-3+(-5.0239E-7+(8.1424E-11-5.0501E-15*T(J))*T(J))*T(J))* 2T(J)-1.5*TLOG(J))/RHO(J) 20 WAVE=2.997925E18/DMIN1(FREQ,2.922D15) WW=WAVE**2 SIG=(8.14E-13+1.28E-6/WW+1.61/(WW*WW))/(WW*WW) DO 21 J=1,NRHOX 21 SIGH2(J)=SIG*XNH2(J) RETURN END SUBROUTINE HLINOP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) C REQUIRES STARK AND COULX COMMON /DEPART/BHYD(kw,6),BMIN(kw),NLTEON COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) COMMON /IONS/XNFPH(kw,2),XNFPHE(kw,3),XNFH(kw,2),XNFHE(kw,3) 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) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP 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)*XNFPH(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=99) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(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.997925E18/FREQNM**2/F0(J)/KNM BETA=DBETA*DEL Y1=MM*DEL*HKT(J)/2. Y2=(3.14159*3.14159/2./.0265384/2.997925E10)*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 LINOP(N,NSTEPS,STEPWT) C READS A BIG DF FILE INTO MEMORY TO MINIMIZE IO C ASSUMES THAT VTURB IS CONSTANT AND THAT THE DF FILE IS GIVEN C ONLY FOR THAT VTURB IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) COMMON /ABROSS/ABROSS(kw),TAUROS(kw) C COMMON /BIGLIT/WAVELIT(1213),WAVEBIG(329) COMMON /BIGLIT/WAVEDF(1213,2) COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,TAUSCAT,IFMOL COMMON /JUNK/TITLE(74),FREQID(6),WLTE,XSCALE COMMON /OPS/D1(kw,14),ALINES(kw),SIGLIN(kw),D2(kw,9) COMMON /RHOX/RHOX(kw),NRHOX COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, 1 IFTURB C INTEGER*2 KAP(21,56,12,5) INTEGER*2 KAP(21,56,12),KAPWL(21,56,12,328) CDROM BYTE KAPBYTE(2,21,56,12),ONEBYTE CDROM EQUIVALENCE (KAPBYTE(1,1,1,1),KAP(1,1,1)) DIMENSION WLBEG(328),WLEND(328) DIMENSION WT(12) REAL*4 CO1(kw),CO2(kw),CO3(kw),CO4(kw),CO5(kw),CO6(kw),A DIMENSION IPJ(kw),ITJ(kw),IVJ(kw),FSCAT(kw) DIMENSION TABT(56),TABP(21),TABV(5) DATA TABT/ 3.32,3.34,3.36,3.38,3.40,3.42,3.44,3.46,3.48,3.50,3.52, 1 3.54,3.56,3.58,3.60,3.62,3.64,3.66,3.68,3.70,3.73,3.76,3.79,3.82, 2 3.85,3.88,3.91,3.94,3.97,4.00,4.05,4.10,4.15,4.20,4.25,4.30,4.35, 3 4.40,4.45,4.50,4.55,4.60,4.65,4.70,4.75,4.80,4.85,4.90,4.95,5.00, 4 5.05,5.10,5.15,5.20,5.25,5.30/ DATA TABP/-2.,-1.5,-1.,-.5,0.,.5,1.,1.5,2.,2.5, 1 3.,3.5,4.,4.5,5.,5.5,6.,6.5,7.0,7.5,8.0/ DATA TABV/0.,1.D5,2.D5,4.D5,8.D5/ DATA ITEMP1/0/ DATA IREAD/0/ DATA TENLOG/2.30258509299405E0/ IF(ITEMP.EQ.ITEMP1)GO TO 20 ITEMP1=ITEMP IF(IREAD.EQ.0)THEN IREAD=1 DO 5 IWL=1,328 C READ(9)WLBEG(IWL),WLEND(IWL),KAP READ(9)KAP WLBEG(IWL)=WAVEDF(IWL,2) WLEND(IWL)=WAVEDF(IWL+1,2) DO 5 IP=1,21 DO 5 IT=1,56 DO 5 ISTEP=1,12 C SOME COMPUTERS REQUIRE BYTE REVERSAL C ONEBYTE=KAPBYTE(1,IP,IT,ISTEP) C KAPBYTE(1,IP,IT,ISTEP)=KAPBYTE(2,IP,IT,ISTEP) C KAPBYTE(2,IP,IT,ISTEP)=ONEBYTE KAPWL(IP,IT,ISTEP,IWL)=KAP(IP,IT,ISTEP) 5 CONTINUE WLEND(328)=1000000. CLOSE(UNIT=9) ENDIF 7 DO 19 J=1,NRHOX TL=DMIN1(DMAX1(TLOG(J)/TENLOG,3.32D0),5.3D0) DO 10 IT=2,56 IF(TL.LT.TABT(IT))GO TO 11 10 CONTINUE IT=56 11 PLOG=DMIN1(DMAX1(DLOG10(P(J)),-2.D0),8.0D0) DO 12 IP=2,21 IF(PLOG.LT.TABP(IP))GO TO 13 12 CONTINUE IP=21 13 CONTINUE C 13 VTUR=DMIN1(DMAX1(VTURB(J),0.D5),8.0D5) C DO 14 IV=2,5 C IF(VTUR.LT.TABV(IV))GO TO 15 C 14 CONTINUE C IV=5 15 IPJ(J)=IP ITJ(J)=IT C IVJ(J)=IV X=(TL-TABT(IT-1))/(TABT(IT)-TABT(IT-1)) Y=(PLOG-TABP(IP-1))/(TABP(IP)-TABP(IP-1)) C Z=(VTUR-TABV(IV-1))/(TABV(IV)-TABV(IV-1)) CO1(J)=(1.-X)*(1.-Y)*TENLOG*.001 CO2(J)=(1.-X)*Y*TENLOG*.001 CO3(J)=X*(1.-Y)*TENLOG*.001 CO4(J)=X*Y*TENLOG*.001 C CO5(J)=Z C CO6(J)=1.-Z C THE STEPS HAVE BEEN SCALED BY 1000 FSCAT(J)=0. IF(TAUSCAT.GT.0.)FSCAT(J)=EXP(-TAUROS(J)/TAUSCAT) 19 CONTINUE WT(1)=1./60. WT(2)=2./60. WT(3)=3./60. WT(4)=6./60. WT(5)=6./60. WT(6)=6./60. WT(7)=6./60. WT(8)=6./60. WT(9)=6./60. WT(10)=6./60. WT(11)=6./60. WT(12)=6./60. C REWIND 9 IWL=1 C WLEND=0. 20 WAVE=2.997925E17/FREQ 21 IF(WAVE.LT.WLEND(IWL))GO TO 22 C READ(9)WLBEG,WLEND,KAP C IF(WLEND.GT.9999.)WLEND=1000000. IWL=IWL+1 GO TO 21 22 NSTEPS=12 N12=13-N 222 STEPWT=WT(N) C DO 25 J=1,NRHOX IT=ITJ(J) IP=IPJ(J) C IV=IVJ(J) C A=EXP((CO1(J)*KAP(IP-1,IT-1,N12,IV )+ C 1 CO2(J)*KAP(IP ,IT-1,N12,IV )+ C 2 CO3(J)*KAP(IP-1,IT ,N12,IV )+ C 3 CO4(J)*KAP(IP ,IT ,N12,IV ))*CO5(J)+ C 4 (CO1(J)*KAP(IP-1,IT-1,N12,IV-1)+ C 5 CO2(J)*KAP(IP ,IT-1,N12,IV-1)+ C 6 CO3(J)*KAP(IP-1,IT ,N12,IV-1)+ C 7 CO4(J)*KAP(IP ,IT ,N12,IV-1))*CO6(J)) C A=EXP( CO1(J)*KAP(IP-1,IT-1,N12)+ C 1 CO2(J)*KAP(IP ,IT-1,N12)+ C 2 CO3(J)*KAP(IP-1,IT ,N12)+ C 3 CO4(J)*KAP(IP ,IT ,N12)) A=EXP( CO1(J)*KAPWL(IP-1,IT-1,N12,IWL)+ 1 CO2(J)*KAPWL(IP ,IT-1,N12,IWL)+ 2 CO3(J)*KAPWL(IP-1,IT ,N12,IWL)+ 3 CO4(J)*KAPWL(IP ,IT ,N12,IWL)) SIGLIN(J)=FSCAT(J)*A 25 ALINES(J)=(1.-FSCAT(J))*A RETURN END C SUBROUTINE LINOP(N,NSTEPS,STEPWT) CC READS A BIG OR LIT DF FILE ONE WAVELENGTH AT A TIME CC ASSUMES THAT VTURB IS CONSTANT AND THAT THE OPACITY FILE IS GIVEN CC ONLY FOR THAT VTURB C IMPLICIT REAL*8 (A-H,O-Z) C PARAMETER (kw=99) C COMMON /ABROSS/ABROSS(kw),TAUROS(kw) CC COMMON /BIGLIT/WAVELIT(1213),WAVEBIG(329) C COMMON /BIGLIT/WAVEDF(1213,2) C COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) C COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,TAUSCAT,IFMOL C COMMON /JUNK/TITLE(74),FREQID(6),WLTE,XSCALE C COMMON /OPS/D1(kw,14),ALINES(kw),SIGLIN(kw),D2(kw,9) C COMMON /RHOX/RHOX(kw),NRHOX C COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw) C COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP C COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, C 1 IFTURB CC INTEGER*2 KAP(21,56,12,5) C INTEGER*2 KAP(21,56,12) CCDROM BYTE KAPBYTE(2,14112),ONEBYTE CCDROM EQUIVALENCE (KAPBYTE(1,1),KAP(1,1,1)) C CHARACTER*3 IDFREQ C DIMENSION WT(12) C REAL*4 CO1(kw),CO2(kw),CO3(kw),CO4(kw),CO5(kw),CO6(kw),A C DIMENSION IPJ(kw),ITJ(kw),IVJ(kw),FSCAT(kw) C DIMENSION TABT(56),TABP(21),TABV(5) C DATA TABT/ 3.32,3.34,3.36,3.38,3.40,3.42,3.44,3.46,3.48,3.50,3.52, C 1 3.54,3.56,3.58,3.60,3.62,3.64,3.66,3.68,3.70,3.73,3.76,3.79,3.82, C 2 3.85,3.88,3.91,3.94,3.97,4.00,4.05,4.10,4.15,4.20,4.25,4.30,4.35, C 3 4.40,4.45,4.50,4.55,4.60,4.65,4.70,4.75,4.80,4.85,4.90,4.95,5.00, C 4 5.05,5.10,5.15,5.20,5.25,5.30/ C DATA TABP/-2.,-1.5,-1.,-.5,0.,.5,1.,1.5,2.,2.5, C 1 3.,3.5,4.,4.5,5.,5.5,6.,6.5,7.0,7.5,8.0/ C DATA TABV/0.,1.D5,2.D5,4.D5,8.D5/ C DATA ITEMP1/0/ C DATA TENLOG/2.30258509299405E0/ C IF(ITEMP.EQ.ITEMP1)GO TO 20 C ITEMP1=ITEMP C DO 19 J=1,NRHOX C TL=DMIN1(DMAX1(TLOG(J)/TENLOG,3.32D0),5.3D0) C DO 10 IT=2,56 C IF(TL.LT.TABT(IT))GO TO 11 C 10 CONTINUE C IT=56 C 11 PLOG=DMIN1(DMAX1(DLOG10(P(J)),-2.D0),8.0D0) C DO 12 IP=2,21 C IF(PLOG.LT.TABP(IP))GO TO 13 C 12 CONTINUE C IP=21 C 13 CONTINUE CC 13 VTUR=DMIN1(DMAX1(VTURB(J),0.D5),8.0D5) CC DO 14 IV=2,5 CC IF(VTUR.LT.TABV(IV))GO TO 15 CC 14 CONTINUE CC IV=5 C 15 IPJ(J)=IP C ITJ(J)=IT CC IVJ(J)=IV C X=(TL-TABT(IT-1))/(TABT(IT)-TABT(IT-1)) C Y=(PLOG-TABP(IP-1))/(TABP(IP)-TABP(IP-1)) CC Z=(VTUR-TABV(IV-1))/(TABV(IV)-TABV(IV-1)) C CO1(J)=(1.-X)*(1.-Y)*TENLOG*.001 C CO2(J)=(1.-X)*Y*TENLOG*.001 C CO3(J)=X*(1.-Y)*TENLOG*.001 C CO4(J)=X*Y*TENLOG*.001 CC CO5(J)=Z CC CO6(J)=1.-Z CC THE STEPS HAVE BEEN SCALED BY 1000 C FSCAT(J)=0. C IF(TAUSCAT.GT.0.)FSCAT(J)=EXP(-TAUROS(J)/TAUSCAT) C 19 CONTINUE C WT(1)=1./60. C WT(2)=2./60. C WT(3)=3./60. C WT(4)=6./60. C WT(5)=6./60. C WT(6)=6./60. C WT(7)=6./60. C WT(8)=6./60. C WT(9)=6./60. C WT(10)=6./60. C WT(11)=6./60. C WT(12)=6./60. C REWIND 9 C WRITE(IDFREQ,'(3A1)')FREQID(1),FREQID(2),FREQID(3) C IF(IDFREQ.EQ.'BIG')IBIGLIT=2 C IF(IDFREQ.EQ.'LIT')IBIGLIT=1 C IWLREAD=0 C WLEND=0. C 20 WAVE=2.997925E17/FREQ C 21 IF(WAVE.LT.WLEND)GO TO 22 CC READ(9)WLBEG,WLEND,KAP C IF(WLEND.GT.9999.)WLEND=1000000. C IWLREAD=IWLREAD+1 C WLBEG=WAVEDF(IWLREAD,IBIGLIT) C WLEND=WAVEDF(IWLREAD+1,IBIGLIT) C READ(9)KAP CCC SOME COMPUTERS REQUIRE BYTE ROTATION CC DO 2222 I=1,14112 CC ONEBYTE=KAPBYTE(1,I) CC KAPBYTE(1,I)=KAPBYTE(2,I) CC 2222 KAPBYTE(2,I)=ONEBYTE C GO TO 21 C 22 NSTEPS=12 C N12=13-N C 222 STEPWT=WT(N) CC C DO 25 J=1,NRHOX C IT=ITJ(J) C IP=IPJ(J) CC IV=IVJ(J) CC A=EXP((CO1(J)*KAP(IP-1,IT-1,N12,IV )+ CC 1 CO2(J)*KAP(IP ,IT-1,N12,IV )+ CC 2 CO3(J)*KAP(IP-1,IT ,N12,IV )+ CC 3 CO4(J)*KAP(IP ,IT ,N12,IV ))*CO5(J)+ CC 4 (CO1(J)*KAP(IP-1,IT-1,N12,IV-1)+ CC 5 CO2(J)*KAP(IP ,IT-1,N12,IV-1)+ CC 6 CO3(J)*KAP(IP-1,IT ,N12,IV-1)+ CC 7 CO4(J)*KAP(IP ,IT ,N12,IV-1))*CO6(J)) C A=EXP( CO1(J)*KAP(IP-1,IT-1,N12)+ C 1 CO2(J)*KAP(IP ,IT-1,N12)+ C 2 CO3(J)*KAP(IP-1,IT ,N12)+ C 3 CO4(J)*KAP(IP ,IT ,N12)) C SIGLIN(J)=FSCAT(J)*A C 25 ALINES(J)=(1.-FSCAT(J))*A C RETURN C END C SUBROUTINE LINOP(N,NSTEPS,STEPWT) CC READS 5 BIG OR LIT DF FILES FOR VTURB 0,1,2,4,8 ONE WAVELENGTH AT A TIME CC INTERPOLATES TO AN ARBITRARY VTURB C IMPLICIT REAL*8 (A-H,O-Z) C PARAMETER (kw=99) C COMMON /ABROSS/ABROSS(kw),TAUROS(kw) CC COMMON /BIGLIT/WAVELIT(1213),WAVEBIG(329) C COMMON /BIGLIT/WAVEDF(1213,2) C COMMON /FREQ/FREQ,FREQLG,EHVKT(kw),STIM(kw),BNU(kw) C COMMON /IF/IFCORR,IFPRES,IFSURF,IFSCAT,TAUSCAT,IFMOL C COMMON /JUNK/TITLE(74),FREQID(6),WLTE,XSCALE C COMMON /OPS/D1(kw,14),ALINES(kw),SIGLIN(kw),D2(kw,9) C COMMON /RHOX/RHOX(kw),NRHOX C COMMON /STATE/P(kw),XNE(kw),XNATOM(kw),RHO(kw) C COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(kw),TLOG(kw),ITEMP C COMMON /TURBPR/VTURB(kw),PTURB(kw),TRBFDG,TRBCON,TRBPOW,TRBSND, C 1 IFTURB C INTEGER*2 KAP(21,56,12,5),KAP0(21,56,12),KAP1(21,56,12) C INTEGER*2 KAP2(21,56,12),KAP4(21,56,12),KAP8(21,56,12) C EQUIVALENCE (KAP(1,1,1,1),KAP0(1,1,1)) C EQUIVALENCE (KAP(1,1,1,2),KAP1(1,1,1)) C EQUIVALENCE (KAP(1,1,1,3),KAP2(1,1,1)) C EQUIVALENCE (KAP(1,1,1,4),KAP4(1,1,1)) C EQUIVALENCE (KAP(1,1,1,5),KAP8(1,1,1)) CCDROM BYTE KAPBYTE(2,70560),ONEBYTE CCDROM EQUIVALENCE (KAPBYTE(1,1),KAP(1,1,1,1)) C CHARACTER*3 IDFREQ C DIMENSION WT(12) C REAL*4 CO1(kw),CO2(kw),CO3(kw),CO4(kw),CO5(kw),CO6(kw),A C DIMENSION IPJ(kw),ITJ(kw),IVJ(kw),FSCAT(kw) C DIMENSION TABT(56),TABP(21),TABV(5) C DATA TABT/ 3.32,3.34,3.36,3.38,3.40,3.42,3.44,3.46,3.48,3.50,3.52, C 1 3.54,3.56,3.58,3.60,3.62,3.64,3.66,3.68,3.70,3.73,3.76,3.79,3.82, C 2 3.85,3.88,3.91,3.94,3.97,4.00,4.05,4.10,4.15,4.20,4.25,4.30,4.35, C 3 4.40,4.45,4.50,4.55,4.60,4.65,4.70,4.75,4.80,4.85,4.90,4.95,5.00, C 4 5.05,5.10,5.15,5.20,5.25,5.30/ C DATA TABP/-2.,-1.5,-1.,-.5,0.,.5,1.,1.5,2.,2.5, C 1 3.,3.5,4.,4.5,5.,5.5,6.,6.5,7.0,7.5,8.0/ C DATA TABV/0.,1.D5,2.D5,4.D5,8.D5/ C DATA ITEMP1/0/ C DATA TENLOG/2.30258509299405E0/ C IF(ITEMP.EQ.ITEMP1)GO TO 20 C ITEMP1=ITEMP C DO 19 J=1,NRHOX C TL=DMIN1(DMAX1(TLOG(J)/TENLOG,3.32D0),5.3D0) C DO 10 IT=2,56 C IF(TL.LT.TABT(IT))GO TO 11 C 10 CONTINUE C IT=56 C 11 PLOG=DMIN1(DMAX1(DLOG10(P(J)),-2.D0),8.0D0) C DO 12 IP=2,21 C IF(PLOG.LT.TABP(IP))GO TO 13 C 12 CONTINUE C IP=21 C 13 VTUR=DMIN1(DMAX1(VTURB(J),0.D5),8.0D5) C DO 14 IV=2,5 C IF(VTUR.LT.TABV(IV))GO TO 15 C 14 CONTINUE C IV=5 C 15 IPJ(J)=IP C ITJ(J)=IT C IVJ(J)=IV C X=(TL-TABT(IT-1))/(TABT(IT)-TABT(IT-1)) C Y=(PLOG-TABP(IP-1))/(TABP(IP)-TABP(IP-1)) C Z=(VTUR-TABV(IV-1))/(TABV(IV)-TABV(IV-1)) C CO1(J)=(1.-X)*(1.-Y)*TENLOG*.001 C CO2(J)=(1.-X)*Y*TENLOG*.001 C CO3(J)=X*(1.-Y)*TENLOG*.001 C CO4(J)=X*Y*TENLOG*.001 C CO5(J)=Z C CO6(J)=1.-Z CC THE STEPS HAVE BEEN SCALED BY 1000 C FSCAT(J)=0. C IF(TAUSCAT.GT.0.)FSCAT(J)=EXP(-TAUROS(J)/TAUSCAT) C 19 CONTINUE C WT(1)=1./60. C WT(2)=2./60. C WT(3)=3./60. C WT(4)=6./60. C WT(5)=6./60. C WT(6)=6./60. C WT(7)=6./60. C WT(8)=6./60. C WT(9)=6./60. C WT(10)=6./60. C WT(11)=6./60. C WT(12)=6./60. C REWIND 20 C REWIND 21 C REWIND 22 C REWIND 24 C REWIND 28 C WRITE(IDFREQ,'(3A1)')FREQID(1),FREQID(2),FREQID(3) C IF(IDFREQ.EQ.'BIG')IBIGLIT=2 C IF(IDFREQ.EQ.'LIT')IBIGLIT=1 C IWLREAD=0 C WLEND=0. C 20 WAVE=2.997925E17/FREQ C 21 IF(WAVE.LT.WLEND)GO TO 22 CC READ(20)WLBEG,WLEND,KAP0 CC READ(21)WLBEG,WLEND,KAP1 CC READ(22)WLBEG,WLEND,KAP2 CC READ(24)WLBEG,WLEND,KAP4 CC READ(28)WLBEG,WLEND,KAP8 C IF(WLEND.GT.9999.)WLEND=1000000. C IWLREAD=IWLREAD+1 C WLBEG=WAVEDF(IWLREAD,IBIGLIT) C WLEND=WAVEDF(IWLREAD+1,IBIGLIT) C READ(20)KAP0 C READ(21)KAP1 C READ(22)KAP2 C READ(24)KAP4 C READ(28)KAP8 CCC IF COMPUTER REQUIRES BYTE ROTATION CC DO 2222 I=1,70560 CC ONEBYTE=KAPBYTE(1,I) CC KAPBYTE(1,I)=KAPBYTE(2,I) CC 2222 KAPBYTE(2,I)=ONEBYTE C GO TO 21 C 22 NSTEPS=12 C N12=13-N C 222 STEPWT=WT(N) CC C DO 25 J=1,NRHOX C IT=ITJ(J) C IP=IPJ(J) C IV=IVJ(J) C A=EXP((CO1(J)*KAP(IP-1,IT-1,N12,IV )+ C 1 CO2(J)*KAP(IP ,IT-1,N12,IV )+ C 2 CO3(J)*KAP(IP-1,IT ,N12,IV )+ C 3 CO4(J)*KAP(IP ,IT ,N12,IV ))*CO5(J)+ C 4 (CO1(J)*KAP(IP-1,IT-1,N12,IV-1)+ C 5 CO2(J)*KAP(IP ,IT-1,N12,IV-1)+ C 6 CO3(J)*KAP(IP-1,IT ,N12,IV-1)+ C 7 CO4(J)*KAP(IP ,IT ,N12,IV-1))*CO6(J)) C SIGLIN(J)=FSCAT(J)*A C 25 ALINES(J)=(1.-FSCAT(J))*A C RETURN C END SUBROUTINE BLOCKBIG IMPLICIT REAL*8 (A-H,O-Z) C COMMON /BIGLIT/WAVELIT(1213),WAVEBIG(329) COMMON /BIGLIT/WAVELIT(1213),WAVEBIG(1213) C REAL*8 BIGA(95),BIGB(125),BIGC(109) REAL*8 BIGA(95),BIGB(125),BIGC(993) REAL*8 LITA(95),LITB(190),LITC(190),LITD(190),LITE(190) REAL*8 LITF(190),LITG(168) EQUIVALENCE (WAVEBIG(1),BIGA(1)),(WAVEBIG(96),BIGB(1)) EQUIVALENCE (WAVEBIG(221),BIGC(1)) EQUIVALENCE (WAVELIT(1),LITA(1)),(WAVELIT(96),LITB(1)) EQUIVALENCE (WAVELIT(286),LITC(1)),(WAVELIT(476),LITD(1)) EQUIVALENCE (WAVELIT(666),LITE(1)),(WAVELIT(856),LITF(1)) EQUIVALENCE (WAVELIT(1046),LITG(1)) DATA BIGA/ 1 8.97666, 9.2, 9.5, 9.71730, 9.81590, 2 10.10901, 10.3, 10.46451, 10.65, 10.88545, 3 11.2, 11.6, 11.95562, 12.3, 12.66565, 4 12.74676, 12.93504, 13.16033, 13.31723, 13.46700, 5 13.86253, 14.10462, 14.54782, 14.9, 15.3, 6 15.74874, 16.00346, 16.4, 16.8, 17.25088, 7 17.43258, 17.93660, 18.10114, 18.24438, 18.97796, 8 19.22422, 19.55098, 20.11987, 20.23592, 20.8, 9 21.3, 21.94783, 22.01983, 22.58070, 22.78377, A 23.2, 23.65221, 24.3, 25.00744, 25.46614, 1 25.89239, 26.14316, 26.6, 27.1, 27.6, 2 28.09263, 28.65871, 29.3, 29.95849, 30.26260, 3 31.3, 32.3, 33.3, 34.3, 35.27931, 4 36.14100, 37., 38.01600, 38.96642, 40., 5 41., 41.87992, 42.5, 43.5, 44.73260, 6 45.5, 46.5, 47.5, 48.50178, 49.5, 7 50.42590, 50.87630, 52., 54., 56., 8 57.40614, 59.5, 61.5, 63.5, 65.53786, 9 67., 69., 71., 72.24011, 74./ DATA BIGB/ 1 76., 78., 80., 82., 84., 2 86., 88., 90., 91.17535, 94., 3 98., 102., 106., 110.03056, 113., 4 116., 120., 123.92928, 128., 132., 5 136., 140., 144.43391, 148., 151.43485, 6 157., 162.15072, 167.40282, 171., 175., 7 180., 184., 188., 193., 197.46990, 8 202., 207.13210, 210., 215., 220., 9 225., 230., 235., 240., 245., A 251.12621, 255., 260., 265., 270., 1 275., 280., 285., 290., 300., 2 310., 320., 330., 340., 350., 3 360., 364.70183, 370., 380., 390., 4 400., 410., 420., 430., 450., 460., 470., 480., 490., 500., 5 510., 520., 530., 540., 550., 560., 570., 580., 590., 600., 6 610., 620., 630., 640., 650., 660., 670., 680., 690., 700., 7 710., 720., 730., 740., 750., 760., 770., 780., 790., 800., 8 810.,820.58271,830.,840., 850., 860., 870., 880., 890., 900., 9 910., 920., 930., 940., 950., 960., 970., 980., 990.,1000./ DATA BIGC/ 1 1025.,1050.,1075.,1100.,1125.,1150.,1175.,1200.,1225.,1250., 2 1275.,1300.,1325.,1350.,1375.,1400.,1425.,1458.81670,1475.,1500., 3 1525.,1550.,1575.,1600.,1640.,1680.,1720.,1760.,1800.,1840., 4 1880.,1920.,1960.,2000.,2050.,2100.,2150.,2200.,2250.,2279.40330, 5 2300.,2350.,2400.,2450.,2500.,2550.,2600.,2650.,2700.,2750., 6 2800.,2850.,2900.,2950.,3000.,3050.,3100.,3150.,3200.,3282.34320, 7 3400.,3500.,3600.,3700.,3800.,3900.,4000.,4100.,4200.,4300., 8 4400.,4500.,4600.,4700.,4800.,4900.,5000.,5100.,5200.,5300., 9 5400.,5500.,5600.,5700.,5800.,5900.,6000.,6100.,6200.,6300., A 6400.,6600.,6800.,7000.,7200.,7400.,7600.,7800.,8000.,8200., 1 8400.,8600.,8800.,9000.,9200.,9400.,9600.,9800.,10000000., 2 884*0./ DATA LITA/ 1 8.97666, 9.2, 9.5, 9.71730, 9.81590, 2 10.10901, 10.3, 10.46451, 10.65000, 10.88545, 3 11.2, 11.6, 11.95562, 12.3, 12.66565, 4 12.74676, 12.93504, 13.16033, 13.31723, 13.46700, 5 13.86253, 14.10462, 14.54782, 14.9, 15.3, 6 15.74874, 16.00346, 16.4, 16.8, 17.25088, 7 17.43258, 17.93660, 18.10114, 18.24438, 18.97796, 8 19.22422, 19.55098, 20.11987, 20.23592, 20.8, 9 21.3, 21.94783, 22.01983, 22.58070, 22.78377, A 23.2, 23.65221, 24.3, 25.00744, 25.46614, 1 25.89239, 26.14316, 26.6, 27.1, 27.6, 2 28.09263, 28.65871, 29.3, 29.95849, 30.26260, 3 31.3, 32.3, 33.3, 34.3, 35.27931, 4 36.14100, 37., 38.01600, 38.96642, 40., 5 41., 41.87992, 42.5, 43.5, 44.73260, 6 45.5, 46.5, 47.5, 48.50178, 49.5, 7 50.42590, 50.87630, 51.5, 52.5, 53.5, 8 54.5, 55.5, 56.5, 57.40614, 58.5, 9 59.5, 60.5, 61.5, 62.5, 63.5/ DATA LITB/ 1 64.5, 65.53786, 66., 67., 68., 69., 70., 71., 72.24011, 73., 2 74., 75., 76., 77., 78., 79., 80., 81., 82., 83., 3 84., 85., 86., 87., 88., 89., 90., 91.17535, 92., 93., 4 94., 95., 96., 97., 98., 99., 100., 101., 102., 103., 5 104., 105., 106., 107., 108., 109., 110.03056, 111., 112., 113., 6 114., 115., 116., 117., 118., 119., 120., 121., 122., 123., 7 123.92928, 125., 126., 127., 128., 129., 130., 131., 132., 133., 8 134., 135., 136., 137., 138., 139., 140., 141., 142., 143., 9 144.,144.43391,145.,146.,147.,148.,149.,150.,151.,151.43485, A 152., 153., 154., 155., 156., 157., 158., 159., 160., 161., 1 162.15072,163.,164.,165.,166.,167.,167.40282,168.,169.,170., 2 171., 172., 173., 174., 175., 176., 177., 178., 179., 180., 3 181., 182., 183., 184., 185., 186., 187., 188., 189., 190., 4 191.,192.,193.,194.,195.,196.,197.46990,197.81149,199.,200., 5 201.,202.,203.,204.,205.,206.,207.13210,207.61400,208.,209., 6 210., 211., 212., 213., 214., 215., 216., 217., 218., 219., 7 220., 221., 222., 223., 224., 225., 226., 227., 228., 229., 8 230., 231., 232., 233., 234., 235., 236., 237., 238., 239., 9 240., 241., 242., 243., 244., 245., 246., 247., 248., 249./ DATA LITC/ 1 250.,251.12621,251.51005,252.,253.,254.,255.,256.,257.,258., 2 259., 260., 261., 262., 263., 264., 265., 266., 267., 268., 3 269., 270., 271., 272., 273., 274., 275., 276., 277., 278., 4 279., 280., 281., 282., 283., 284., 285., 286., 287., 288., 5 289., 290., 292., 294., 296., 298., 300., 302., 304., 306., 6 308., 310., 312., 314., 316., 318., 320., 322., 324., 326., 7 328., 330., 332., 334., 336., 338., 340., 342., 344., 346., 8 348., 350., 352., 354., 356., 358., 360., 362., 364., 364.70183, 9 366., 368., 370., 372., 374., 376., 378., 380., 382., 384., A 386., 388., 390., 392., 394., 396., 398., 400., 402., 404., 1 406., 408., 410., 412., 414., 416., 418., 420., 422., 424., 2 426., 428., 430., 432., 434., 436., 438., 440., 442., 444., 3 446., 448., 450., 452., 454., 456., 458., 460., 462., 464., 4 466., 468., 470., 472., 474., 476., 478., 480., 482., 484., 5 486., 488., 490., 492., 494., 496., 498., 500., 502., 504., 6 506., 508., 510., 512., 514., 516., 518., 520., 522., 524., 7 526., 528., 530., 532., 534., 536., 538., 540., 542., 544., 8 546., 548., 550., 552., 554., 556., 558., 560., 562., 564., 9 566., 568., 570., 572., 574., 576., 578., 580., 582., 584./ DATA LITD/ 1 586., 588., 590., 592., 594., 596., 598., 600., 602., 604., 2 606., 608., 610., 612., 614., 616., 618., 620., 622., 624., 3 626., 628., 630., 632., 634., 636., 638., 640., 642., 644., 4 646., 648., 650., 652., 654., 656., 658., 660., 662., 664., 5 666., 668., 670., 672., 674., 676., 678., 680., 682., 684., 6 686., 688., 690., 692., 694., 696., 698., 700., 702., 704., 7 706., 708., 710., 712., 714., 716., 718., 720., 722., 724., 8 726., 728., 730., 732., 734., 736., 738., 740., 742., 744., 9 746., 748., 750., 752., 754., 756., 758., 760., 762., 764., A 766., 768., 770., 772., 774., 776., 778., 780., 782., 784., 1 786., 788., 790., 792., 794., 796., 798., 800., 802., 804., 2 806., 808., 810., 812., 814., 816., 818., 820.58271, 822., 824., 3 826., 828., 830., 832., 834., 836., 838., 840., 842., 844., 4 846., 848., 850., 852., 854., 856., 858., 860., 862., 864., 5 866., 868., 870., 872., 874., 876., 878., 880., 882., 884., 6 886., 888., 890., 892., 894., 896., 898., 900., 902., 904., 7 906., 908., 910., 912., 914., 916., 918., 920., 922., 924., 8 926., 928., 930., 932., 934., 936., 938., 940., 942., 944., 9 946., 948., 950., 952., 954., 956., 958., 960., 962., 964./ DATA LITE/ 1 966., 968., 970., 972., 974., 976., 978., 980., 982., 984., 2 986., 988., 990., 992., 994., 996., 998.,1000.,1005.,1010., 3 1015.,1020.,1025.,1030.,1035.,1040.,1045.,1050.,1055.,1060., 4 1065.,1070.,1075.,1080.,1085.,1090.,1095.,1100.,1105.,1110., 5 1115.,1120.,1125.,1130.,1135.,1140.,1145.,1150.,1155.,1160., 6 1165.,1170.,1175.,1180.,1185.,1190.,1195.,1200.,1205.,1210., 7 1215.,1220.,1225.,1230.,1235.,1240.,1245.,1250.,1255.,1260., 8 1265.,1270.,1275.,1280.,1285.,1290.,1295.,1300.,1305.,1310., 9 1315.,1320.,1325.,1330.,1335.,1340.,1345.,1350.,1355.,1360., A 1365.,1370.,1375.,1380.,1385.,1390.,1395.,1400.,1405.,1410., 1 1415.,1420.,1425.,1430.,1435.,1440.,1445.,1450.,1455.,1458.81670, 2 1465.,1470.,1475.,1480.,1485.,1490.,1495.,1500.,1505.,1510., 3 1515.,1520.,1525.,1530.,1535.,1540.,1545.,1550.,1555.,1560., 4 1565.,1570.,1575.,1580.,1585.,1590.,1595.,1600.,1610.,1620., 5 1630.,1640.,1650.,1660.,1670.,1680.,1690.,1700.,1710.,1720., 6 1730.,1740.,1750.,1760.,1770.,1780.,1790.,1800.,1810.,1820., 7 1830.,1840.,1850.,1860.,1870.,1880.,1890.,1900.,1910.,1920., 8 1930.,1940.,1950.,1960.,1970.,1980.,1990.,2000.,2010.,2020., 9 2030.,2040.,2050.,2060.,2070.,2080.,2090.,2100.,2110.,2120./ DATA LITF/ 1 2130.,2140.,2150.,2160.,2170.,2180.,2190.,2200.,2210.,2220., 2 2230.,2240.,2250.,2260.,2270.,2279.40330,2290.,2300.,2310.,2320., 3 2330.,2340.,2350.,2360.,2370.,2380.,2390.,2400.,2410.,2420., 4 2430.,2440.,2450.,2460.,2470.,2480.,2490.,2500.,2510.,2520., 5 2530.,2540.,2550.,2560.,2570.,2580.,2590.,2600.,2610.,2620., 6 2630.,2640.,2650.,2660.,2670.,2680.,2690.,2700.,2710.,2720., 7 2730.,2740.,2750.,2760.,2770.,2780.,2790.,2800.,2810.,2820., 8 2830.,2840.,2850.,2860.,2870.,2880.,2890.,2900.,2910.,2920., 9 2930.,2940.,2950.,2960.,2970.,2980.,2990.,3000.,3010.,3020., A 3030.,3040.,3050.,3060.,3070.,3080.,3090.,3100.,3110.,3120., 1 3130.,3140.,3150.,3160.,3170.,3180.,3190.,3200.,3220.,3240., 2 3260.,3282.34820,3300.,3320.,3340.,3360.,3380.,3400.,3420.,3440., 3 3460.,3480.,3500.,3520.,3540.,3560.,3580.,3600.,3620.,3640., 4 3660.,3680.,3700.,3720.,3740.,3760.,3780.,3800.,3820.,3840., 5 3860.,3880.,3900.,3920.,3940.,3960.,3980.,4000.,4020.,4040., 6 4060.,4080.,4100.,4120.,4140.,4160.,4180.,4200.,4220.,4240., 7 4260.,4280.,4300.,4320.,4340.,4360.,4380.,4400.,4420.,4440., 8 4460.,4480.,4500.,4520.,4540.,4560.,4580.,4600.,4620.,4640., 9 4660.,4680.,4700.,4720.,4740.,4760.,4780.,4800.,4820.,4840./ DATA LITG/ 1 4860.,4880.,4900.,4920.,4940.,4960.,4980.,5000.,5020.,5040., 2 5060.,5080.,5100.,5120.,5140.,5160.,5180.,5200.,5220.,5240., 3 5260.,5280.,5300.,5320.,5340.,5360.,5380.,5400.,5420.,5440., 4 5460.,5480.,5500.,5520.,5540.,5560.,5580.,5600.,5620.,5640., 5 5660.,5680.,5700.,5720.,5740.,5760.,5780.,5800.,5820.,5840., 6 5860.,5880.,5900.,5920.,5940.,5960.,5980.,6000.,6020.,6040., 7 6060.,6080.,6100.,6120.,6140.,6160.,6180.,6200.,6220.,6240., 8 6260.,6280.,6300.,6320.,6340.,6360.,6380.,6400.,6440.,6480., 9 6520.,6560.,6600.,6640.,6680.,6720.,6760.,6800.,6840.,6880., A 6920.,6960.,7000.,7040.,7080.,7120.,7160.,7200.,7240.,7280., 1 7320.,7360.,7400.,7440.,7480.,7520.,7560.,7600.,7640.,7680., 2 7720.,7760.,7800.,7840.,7880.,7920.,7960.,8000.,8040.,8080., 3 8120.,8160.,8200.,8240.,8280.,8320.,8360.,8400.,8440.,8480., 4 8520.,8560.,8600.,8640.,8680.,8720.,8760.,8800.,8840.,8880., 5 8920.,8960.,9000.,9040.,9080.,9120.,9160.,9200.,9240.,9280., 6 9320.,9360.,9400.,9440.,9480.,9520.,9560.,9600.,9640.,9680., 7 9720.,9760.,9800.,9840.,9880.,9920.,9960.,10000000./ RETURN END SUBROUTINE LINSOP(J,NSTEPS,STEPWT) IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) COMMON /OPS/D1(kw,15),SIGLIN(kw),D2(kw,9) C DUMMY FOR LINE ABSORPTION DISTRIBUTION FUNCTIONS S=J RETURN END SUBROUTINE XLINOP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) COMMON /OPS/D1(kw,16),AXLINE(kw),D2(kw,6),SXLINE(kw),D3(kw) C DUMMY LINE OPACITY ROUTINE RETURN END SUBROUTINE XLISOP IMPLICIT REAL*8 (A-H,O-Z) PARAMETER (kw=99) 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=99) 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) COMMON /TEMP/T(kw),TKEV(kw),TK(kw),HKT(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=99) 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=99) 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 /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. CALL DERIV(TAUNU(M),SNU(M),HNU(M),NM1) 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 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 53 JNU(J)=JMINS(J)+SNU(J) 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.92410065E-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.10063265E-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.31006873E-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.10069853E-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.12610064E-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.21006698E-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.11006760E-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