Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/606/A147 into FORTRAN code for loading all data files into arrays.
Note that special values are assigned to unknown or unspecified
numbers (also called NULL numbers);
when necessary, the coordinate components making up the right ascension
and declination are converted into floating-point numbers
representing these angles in degrees.
program load_ReadMe
C=============================================================================
C F77-compliant program generated by readme2f_1.81 (2015-09-23), on 2024-Apr-19
C=============================================================================
* This code was generated from the ReadMe file documenting a catalogue
* according to the "Standard for Documentation of Astronomical Catalogues"
* currently in use by the Astronomical Data Centers (CDS, ADC, A&A)
* (see full documentation at URL http://vizier.u-strasbg.fr/doc/catstd.htx)
* Please report problems or questions to
C=============================================================================
implicit none
* Unspecified or NULL values, generally corresponding to blank columns,
* are assigned one of the following special values:
* rNULL__ for unknown or NULL floating-point values
* iNULL__ for unknown or NULL integer values
real*4 rNULL__
integer*4 iNULL__
parameter (rNULL__=--2147483648.) ! NULL real number
parameter (iNULL__=(-2147483647-1)) ! NULL int number
integer idig ! testing NULL number
C=============================================================================
Cat. J/A+A/606/A147 Heavy particle-hydrogen collisions (Belyaev+, 2017)
*================================================================================
*Estimating inelastic heavy-particle-hydrogen collision data.
*I. Simplified model and application to potassium-hydrogen collisions.
* Belyaev A.K., Yakovleva S.A.
* <Astron. Astrophys. 606, A147 (2017)>
* =2017A&A...606A.147B (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'n1000.dat' ! Neutralization rate coefficients at T=1000K
integer*4 nr__
parameter (nr__=81) ! Number of records
character*20 ar__ ! Full-size record
real*4 Ef (nr__) ! (eV) Electron bound energy for the final state
real*4 RC (nr__) ! (cm3/s) Neutralization rate coefficient for transition
* to state Ef
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'n2000.dat' ! Neutralization rate coefficients at T=2000K
integer*4 nr__1
parameter (nr__1=81) ! Number of records
character*20 ar__1 ! Full-size record
real*4 Ef_1 (nr__1) ! (eV) Electron bound energy for the final state
real*4 RC_1 (nr__1) ! (cm3/s) Neutralization rate coefficient for transition
* to state Ef
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'n3000.dat' ! Neutralization rate coefficients at T=3000K
integer*4 nr__2
parameter (nr__2=81) ! Number of records
character*20 ar__2 ! Full-size record
real*4 Ef_2 (nr__2) ! (eV) Electron bound energy for the final state
real*4 RC_2 (nr__2) ! (cm3/s) Neutralization rate coefficient for transition
* to state Ef
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'n4000.dat' ! Neutralization rate coefficients at T=4000K
integer*4 nr__3
parameter (nr__3=81) ! Number of records
character*20 ar__3 ! Full-size record
real*4 Ef_3 (nr__3) ! (eV) Electron bound energy for the final state
real*4 RC_3 (nr__3) ! (cm3/s) Neutralization rate coefficient for transition
* to state Ef
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'n5000.dat' ! Neutralization rate coefficients at T=5000K
integer*4 nr__4
parameter (nr__4=81) ! Number of records
character*20 ar__4 ! Full-size record
real*4 Ef_4 (nr__4) ! (eV) Electron bound energy for the final state
real*4 RC_4 (nr__4) ! (cm3/s) Neutralization rate coefficient for transition
* to state Ef
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'n6000.dat' ! Neutralization rate coefficients at T=6000K
integer*4 nr__5
parameter (nr__5=81) ! Number of records
character*20 ar__5 ! Full-size record
real*4 Ef_5 (nr__5) ! (eV) Electron bound energy for the final state
real*4 RC_5 (nr__5) ! (cm3/s) Neutralization rate coefficient for transition
* to state Ef
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'n7000.dat' ! Neutralization rate coefficients at T=7000K
integer*4 nr__6
parameter (nr__6=81) ! Number of records
character*20 ar__6 ! Full-size record
real*4 Ef_6 (nr__6) ! (eV) Electron bound energy for the final state
real*4 RC_6 (nr__6) ! (cm3/s) Neutralization rate coefficient for transition
* to state Ef
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'n8000.dat' ! Neutralization rate coefficients at T=8000K
integer*4 nr__7
parameter (nr__7=81) ! Number of records
character*20 ar__7 ! Full-size record
real*4 Ef_7 (nr__7) ! (eV) Electron bound energy for the final state
real*4 RC_7 (nr__7) ! (cm3/s) Neutralization rate coefficient for transition
* to state Ef
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'n9000.dat' ! Neutralization rate coefficients at T=9000K
integer*4 nr__8
parameter (nr__8=81) ! Number of records
character*20 ar__8 ! Full-size record
real*4 Ef_8 (nr__8) ! (eV) Electron bound energy for the final state
real*4 RC_8 (nr__8) ! (cm3/s) Neutralization rate coefficient for transition
* to state Ef
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'n10000.dat' ! Neutralization rate coefficients at T=10000K
integer*4 nr__9
parameter (nr__9=81) ! Number of records
character*20 ar__9 ! Full-size record
real*4 Ef_9 (nr__9) ! (eV) Electron bound energy for the final state
real*4 RC_9 (nr__9) ! (cm3/s) Neutralization rate coefficient for transition
* to state Ef
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'd1000.dat' ! De-excitation rate coefficients at T=1000K
integer*4 nr__10
parameter (nr__10=41) ! Number of records
character*420 ar__10 ! Full-size record
real*4 Ei (nr__10) ! (eV) Electron bound energy for the initial state
real*4 RC1 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-5.001eV
real*4 RC2 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.901eV
real*4 RC3 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.801eV
real*4 RC4 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.701eV
real*4 RC5 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.601eV
real*4 RC6 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.501eV
real*4 RC7 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.401eV
real*4 RC8 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.301eV
real*4 RC9 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.201eV
real*4 RC10 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.101eV
real*4 RC11 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.001eV
real*4 RC12 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.901eV
real*4 RC13 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.801eV
real*4 RC14 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.701eV
real*4 RC15 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.601eV
real*4 RC16 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.501eV
real*4 RC17 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.401eV
real*4 RC18 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.301eV
real*4 RC19 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.201eV
real*4 RC20 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.101eV
real*4 RC21 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.001eV
real*4 RC22 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.901eV
real*4 RC23 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.801eV
real*4 RC24 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.701eV
real*4 RC25 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.601eV
real*4 RC26 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.501eV
real*4 RC27 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.401eV
real*4 RC28 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.301eV
real*4 RC29 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.201eV
real*4 RC30 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.101eV
real*4 RC31 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.001eV
real*4 RC32 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.901eV
real*4 RC33 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.801eV
real*4 RC34 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.701eV
real*4 RC35 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.601eV
real*4 RC36 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.501eV
real*4 RC37 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.401eV
real*4 RC38 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.301eV
real*4 RC39 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.201eV
real*4 RC40 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.101eV
real*4 RC41 (nr__10) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.001eV
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'd2000.dat' ! De-excitation rate coefficients at T=2000K
integer*4 nr__11
parameter (nr__11=41) ! Number of records
character*420 ar__11 ! Full-size record
real*4 Ei_1 (nr__11) ! (eV) Electron bound energy for the initial state
real*4 RC1_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-5.001eV
real*4 RC2_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.901eV
real*4 RC3_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.801eV
real*4 RC4_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.701eV
real*4 RC5_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.601eV
real*4 RC6_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.501eV
real*4 RC7_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.401eV
real*4 RC8_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.301eV
real*4 RC9_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.201eV
real*4 RC10_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.101eV
real*4 RC11_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.001eV
real*4 RC12_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.901eV
real*4 RC13_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.801eV
real*4 RC14_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.701eV
real*4 RC15_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.601eV
real*4 RC16_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.501eV
real*4 RC17_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.401eV
real*4 RC18_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.301eV
real*4 RC19_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.201eV
real*4 RC20_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.101eV
real*4 RC21_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.001eV
real*4 RC22_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.901eV
real*4 RC23_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.801eV
real*4 RC24_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.701eV
real*4 RC25_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.601eV
real*4 RC26_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.501eV
real*4 RC27_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.401eV
real*4 RC28_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.301eV
real*4 RC29_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.201eV
real*4 RC30_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.101eV
real*4 RC31_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.001eV
real*4 RC32_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.901eV
real*4 RC33_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.801eV
real*4 RC34_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.701eV
real*4 RC35_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.601eV
real*4 RC36_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.501eV
real*4 RC37_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.401eV
real*4 RC38_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.301eV
real*4 RC39_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.201eV
real*4 RC40_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.101eV
real*4 RC41_1 (nr__11) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.001eV
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'd3000.dat' ! De-excitation rate coefficients at T=3000K
integer*4 nr__12
parameter (nr__12=41) ! Number of records
character*420 ar__12 ! Full-size record
real*4 Ei_2 (nr__12) ! (eV) Electron bound energy for the initial state
real*4 RC1_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-5.001eV
real*4 RC2_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.901eV
real*4 RC3_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.801eV
real*4 RC4_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.701eV
real*4 RC5_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.601eV
real*4 RC6_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.501eV
real*4 RC7_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.401eV
real*4 RC8_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.301eV
real*4 RC9_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.201eV
real*4 RC10_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.101eV
real*4 RC11_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.001eV
real*4 RC12_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.901eV
real*4 RC13_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.801eV
real*4 RC14_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.701eV
real*4 RC15_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.601eV
real*4 RC16_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.501eV
real*4 RC17_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.401eV
real*4 RC18_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.301eV
real*4 RC19_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.201eV
real*4 RC20_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.101eV
real*4 RC21_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.001eV
real*4 RC22_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.901eV
real*4 RC23_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.801eV
real*4 RC24_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.701eV
real*4 RC25_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.601eV
real*4 RC26_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.501eV
real*4 RC27_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.401eV
real*4 RC28_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.301eV
real*4 RC29_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.201eV
real*4 RC30_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.101eV
real*4 RC31_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.001eV
real*4 RC32_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.901eV
real*4 RC33_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.801eV
real*4 RC34_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.701eV
real*4 RC35_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.601eV
real*4 RC36_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.501eV
real*4 RC37_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.401eV
real*4 RC38_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.301eV
real*4 RC39_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.201eV
real*4 RC40_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.101eV
real*4 RC41_2 (nr__12) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.001eV
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'd4000.dat' ! De-excitation rate coefficients at T=4000K
integer*4 nr__13
parameter (nr__13=41) ! Number of records
character*420 ar__13 ! Full-size record
real*4 Ei_3 (nr__13) ! (eV) Electron bound energy for the initial state
real*4 RC1_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-5.001eV
real*4 RC2_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.901eV
real*4 RC3_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.801eV
real*4 RC4_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.701eV
real*4 RC5_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.601eV
real*4 RC6_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.501eV
real*4 RC7_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.401eV
real*4 RC8_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.301eV
real*4 RC9_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.201eV
real*4 RC10_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.101eV
real*4 RC11_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.001eV
real*4 RC12_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.901eV
real*4 RC13_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.801eV
real*4 RC14_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.701eV
real*4 RC15_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.601eV
real*4 RC16_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.501eV
real*4 RC17_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.401eV
real*4 RC18_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.301eV
real*4 RC19_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.201eV
real*4 RC20_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.101eV
real*4 RC21_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.001eV
real*4 RC22_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.901eV
real*4 RC23_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.801eV
real*4 RC24_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.701eV
real*4 RC25_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.601eV
real*4 RC26_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.501eV
real*4 RC27_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.401eV
real*4 RC28_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.301eV
real*4 RC29_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.201eV
real*4 RC30_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.101eV
real*4 RC31_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.001eV
real*4 RC32_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.901eV
real*4 RC33_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.801eV
real*4 RC34_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.701eV
real*4 RC35_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.601eV
real*4 RC36_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.501eV
real*4 RC37_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.401eV
real*4 RC38_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.301eV
real*4 RC39_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.201eV
real*4 RC40_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.101eV
real*4 RC41_3 (nr__13) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.001eV
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'd5000.dat' ! De-excitation rate coefficients at T=5000K
integer*4 nr__14
parameter (nr__14=41) ! Number of records
character*420 ar__14 ! Full-size record
real*4 Ei_4 (nr__14) ! (eV) Electron bound energy for the initial state
real*4 RC1_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-5.001eV
real*4 RC2_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.901eV
real*4 RC3_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.801eV
real*4 RC4_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.701eV
real*4 RC5_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.601eV
real*4 RC6_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.501eV
real*4 RC7_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.401eV
real*4 RC8_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.301eV
real*4 RC9_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.201eV
real*4 RC10_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.101eV
real*4 RC11_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.001eV
real*4 RC12_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.901eV
real*4 RC13_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.801eV
real*4 RC14_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.701eV
real*4 RC15_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.601eV
real*4 RC16_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.501eV
real*4 RC17_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.401eV
real*4 RC18_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.301eV
real*4 RC19_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.201eV
real*4 RC20_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.101eV
real*4 RC21_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.001eV
real*4 RC22_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.901eV
real*4 RC23_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.801eV
real*4 RC24_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.701eV
real*4 RC25_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.601eV
real*4 RC26_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.501eV
real*4 RC27_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.401eV
real*4 RC28_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.301eV
real*4 RC29_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.201eV
real*4 RC30_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.101eV
real*4 RC31_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.001eV
real*4 RC32_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.901eV
real*4 RC33_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.801eV
real*4 RC34_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.701eV
real*4 RC35_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.601eV
real*4 RC36_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.501eV
real*4 RC37_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.401eV
real*4 RC38_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.301eV
real*4 RC39_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.201eV
real*4 RC40_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.101eV
real*4 RC41_4 (nr__14) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.001eV
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'd6000.dat' ! De-excitation rate coefficients at T=6000K
integer*4 nr__15
parameter (nr__15=41) ! Number of records
character*420 ar__15 ! Full-size record
real*4 Ei_5 (nr__15) ! (eV) Electron bound energy for the initial state
real*4 RC1_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-5.001eV
real*4 RC2_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.901eV
real*4 RC3_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.801eV
real*4 RC4_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.701eV
real*4 RC5_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.601eV
real*4 RC6_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.501eV
real*4 RC7_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.401eV
real*4 RC8_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.301eV
real*4 RC9_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.201eV
real*4 RC10_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.101eV
real*4 RC11_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.001eV
real*4 RC12_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.901eV
real*4 RC13_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.801eV
real*4 RC14_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.701eV
real*4 RC15_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.601eV
real*4 RC16_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.501eV
real*4 RC17_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.401eV
real*4 RC18_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.301eV
real*4 RC19_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.201eV
real*4 RC20_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.101eV
real*4 RC21_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.001eV
real*4 RC22_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.901eV
real*4 RC23_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.801eV
real*4 RC24_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.701eV
real*4 RC25_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.601eV
real*4 RC26_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.501eV
real*4 RC27_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.401eV
real*4 RC28_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.301eV
real*4 RC29_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.201eV
real*4 RC30_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.101eV
real*4 RC31_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.001eV
real*4 RC32_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.901eV
real*4 RC33_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.801eV
real*4 RC34_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.701eV
real*4 RC35_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.601eV
real*4 RC36_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.501eV
real*4 RC37_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.401eV
real*4 RC38_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.301eV
real*4 RC39_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.201eV
real*4 RC40_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.101eV
real*4 RC41_5 (nr__15) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.001eV
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'd7000.dat' ! De-excitation rate coefficients at T=7000K
integer*4 nr__16
parameter (nr__16=41) ! Number of records
character*420 ar__16 ! Full-size record
real*4 Ei_6 (nr__16) ! (eV) Electron bound energy for the initial state
real*4 RC1_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-5.001eV
real*4 RC2_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.901eV
real*4 RC3_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.801eV
real*4 RC4_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.701eV
real*4 RC5_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.601eV
real*4 RC6_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.501eV
real*4 RC7_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.401eV
real*4 RC8_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.301eV
real*4 RC9_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.201eV
real*4 RC10_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.101eV
real*4 RC11_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.001eV
real*4 RC12_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.901eV
real*4 RC13_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.801eV
real*4 RC14_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.701eV
real*4 RC15_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.601eV
real*4 RC16_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.501eV
real*4 RC17_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.401eV
real*4 RC18_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.301eV
real*4 RC19_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.201eV
real*4 RC20_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.101eV
real*4 RC21_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.001eV
real*4 RC22_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.901eV
real*4 RC23_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.801eV
real*4 RC24_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.701eV
real*4 RC25_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.601eV
real*4 RC26_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.501eV
real*4 RC27_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.401eV
real*4 RC28_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.301eV
real*4 RC29_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.201eV
real*4 RC30_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.101eV
real*4 RC31_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.001eV
real*4 RC32_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.901eV
real*4 RC33_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.801eV
real*4 RC34_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.701eV
real*4 RC35_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.601eV
real*4 RC36_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.501eV
real*4 RC37_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.401eV
real*4 RC38_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.301eV
real*4 RC39_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.201eV
real*4 RC40_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.101eV
real*4 RC41_6 (nr__16) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.001eV
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'd8000.dat' ! De-excitation rate coefficients at T=8000K
integer*4 nr__17
parameter (nr__17=41) ! Number of records
character*420 ar__17 ! Full-size record
real*4 Ei_7 (nr__17) ! (eV) Electron bound energy for the initial state
real*4 RC1_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-5.001eV
real*4 RC2_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.901eV
real*4 RC3_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.801eV
real*4 RC4_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.701eV
real*4 RC5_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.601eV
real*4 RC6_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.501eV
real*4 RC7_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.401eV
real*4 RC8_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.301eV
real*4 RC9_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.201eV
real*4 RC10_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.101eV
real*4 RC11_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.001eV
real*4 RC12_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.901eV
real*4 RC13_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.801eV
real*4 RC14_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.701eV
real*4 RC15_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.601eV
real*4 RC16_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.501eV
real*4 RC17_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.401eV
real*4 RC18_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.301eV
real*4 RC19_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.201eV
real*4 RC20_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.101eV
real*4 RC21_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.001eV
real*4 RC22_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.901eV
real*4 RC23_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.801eV
real*4 RC24_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.701eV
real*4 RC25_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.601eV
real*4 RC26_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.501eV
real*4 RC27_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.401eV
real*4 RC28_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.301eV
real*4 RC29_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.201eV
real*4 RC30_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.101eV
real*4 RC31_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.001eV
real*4 RC32_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.901eV
real*4 RC33_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.801eV
real*4 RC34_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.701eV
real*4 RC35_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.601eV
real*4 RC36_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.501eV
real*4 RC37_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.401eV
real*4 RC38_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.301eV
real*4 RC39_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.201eV
real*4 RC40_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.101eV
real*4 RC41_7 (nr__17) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.001eV
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'd9000.dat' ! De-excitation rate coefficients at T=9000K
integer*4 nr__18
parameter (nr__18=41) ! Number of records
character*420 ar__18 ! Full-size record
real*4 Ei_8 (nr__18) ! (eV) Electron bound energy for the initial state
real*4 RC1_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-5.001eV
real*4 RC2_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.901eV
real*4 RC3_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.801eV
real*4 RC4_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.701eV
real*4 RC5_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.601eV
real*4 RC6_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.501eV
real*4 RC7_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.401eV
real*4 RC8_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.301eV
real*4 RC9_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.201eV
real*4 RC10_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.101eV
real*4 RC11_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.001eV
real*4 RC12_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.901eV
real*4 RC13_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.801eV
real*4 RC14_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.701eV
real*4 RC15_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.601eV
real*4 RC16_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.501eV
real*4 RC17_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.401eV
real*4 RC18_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.301eV
real*4 RC19_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.201eV
real*4 RC20_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.101eV
real*4 RC21_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.001eV
real*4 RC22_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.901eV
real*4 RC23_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.801eV
real*4 RC24_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.701eV
real*4 RC25_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.601eV
real*4 RC26_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.501eV
real*4 RC27_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.401eV
real*4 RC28_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.301eV
real*4 RC29_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.201eV
real*4 RC30_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.101eV
real*4 RC31_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.001eV
real*4 RC32_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.901eV
real*4 RC33_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.801eV
real*4 RC34_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.701eV
real*4 RC35_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.601eV
real*4 RC36_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.501eV
real*4 RC37_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.401eV
real*4 RC38_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.301eV
real*4 RC39_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.201eV
real*4 RC40_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.101eV
real*4 RC41_8 (nr__18) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.001eV
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'd10000.dat' ! De-excitation rate coefficients at T=10000K
integer*4 nr__19
parameter (nr__19=41) ! Number of records
character*420 ar__19 ! Full-size record
real*4 Ei_9 (nr__19) ! (eV) Electron bound energy for the initial state
real*4 RC1_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-5.001eV
real*4 RC2_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.901eV
real*4 RC3_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.801eV
real*4 RC4_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.701eV
real*4 RC5_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.601eV
real*4 RC6_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.501eV
real*4 RC7_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.401eV
real*4 RC8_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.301eV
real*4 RC9_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.201eV
real*4 RC10_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.101eV
real*4 RC11_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.001eV
real*4 RC12_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.901eV
real*4 RC13_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.801eV
real*4 RC14_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.701eV
real*4 RC15_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.601eV
real*4 RC16_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.501eV
real*4 RC17_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.401eV
real*4 RC18_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.301eV
real*4 RC19_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.201eV
real*4 RC20_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.101eV
real*4 RC21_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.001eV
real*4 RC22_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.901eV
real*4 RC23_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.801eV
real*4 RC24_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.701eV
real*4 RC25_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.601eV
real*4 RC26_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.501eV
real*4 RC27_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.401eV
real*4 RC28_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.301eV
real*4 RC29_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.201eV
real*4 RC30_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.101eV
real*4 RC31_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.001eV
real*4 RC32_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.901eV
real*4 RC33_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.801eV
real*4 RC34_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.701eV
real*4 RC35_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.601eV
real*4 RC36_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.501eV
real*4 RC37_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.401eV
real*4 RC38_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.301eV
real*4 RC39_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.201eV
real*4 RC40_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.101eV
real*4 RC41_9 (nr__19) ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.001eV
C=============================================================================
C Loading file 'n1000.dat' ! Neutralization rate coefficients at T=1000K
C Format for file interpretation
1 format(E10.2,E10.2)
C Effective file loading
open(unit=1,status='old',file=
+'n1000.dat')
write(6,*) '....Loading file: n1000.dat'
do i__=1,81
read(1,'(A20)')ar__
read(ar__,1)Ef(i__),RC(i__)
c ..............Just test output...........
write(6,1)Ef(i__),RC(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'n2000.dat' ! Neutralization rate coefficients at T=2000K
C Format for file interpretation
2 format(E10.2,E10.2)
C Effective file loading
open(unit=1,status='old',file=
+'n2000.dat')
write(6,*) '....Loading file: n2000.dat'
do i__=1,81
read(1,'(A20)')ar__1
read(ar__1,2)Ef_1(i__),RC_1(i__)
c ..............Just test output...........
write(6,2)Ef_1(i__),RC_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'n3000.dat' ! Neutralization rate coefficients at T=3000K
C Format for file interpretation
3 format(E10.2,E10.2)
C Effective file loading
open(unit=1,status='old',file=
+'n3000.dat')
write(6,*) '....Loading file: n3000.dat'
do i__=1,81
read(1,'(A20)')ar__2
read(ar__2,3)Ef_2(i__),RC_2(i__)
c ..............Just test output...........
write(6,3)Ef_2(i__),RC_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'n4000.dat' ! Neutralization rate coefficients at T=4000K
C Format for file interpretation
4 format(E10.2,E10.2)
C Effective file loading
open(unit=1,status='old',file=
+'n4000.dat')
write(6,*) '....Loading file: n4000.dat'
do i__=1,81
read(1,'(A20)')ar__3
read(ar__3,4)Ef_3(i__),RC_3(i__)
c ..............Just test output...........
write(6,4)Ef_3(i__),RC_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'n5000.dat' ! Neutralization rate coefficients at T=5000K
C Format for file interpretation
5 format(E10.2,E10.2)
C Effective file loading
open(unit=1,status='old',file=
+'n5000.dat')
write(6,*) '....Loading file: n5000.dat'
do i__=1,81
read(1,'(A20)')ar__4
read(ar__4,5)Ef_4(i__),RC_4(i__)
c ..............Just test output...........
write(6,5)Ef_4(i__),RC_4(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'n6000.dat' ! Neutralization rate coefficients at T=6000K
C Format for file interpretation
6 format(E10.2,E10.2)
C Effective file loading
open(unit=1,status='old',file=
+'n6000.dat')
write(6,*) '....Loading file: n6000.dat'
do i__=1,81
read(1,'(A20)')ar__5
read(ar__5,6)Ef_5(i__),RC_5(i__)
c ..............Just test output...........
write(6,6)Ef_5(i__),RC_5(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'n7000.dat' ! Neutralization rate coefficients at T=7000K
C Format for file interpretation
7 format(E10.2,E10.2)
C Effective file loading
open(unit=1,status='old',file=
+'n7000.dat')
write(6,*) '....Loading file: n7000.dat'
do i__=1,81
read(1,'(A20)')ar__6
read(ar__6,7)Ef_6(i__),RC_6(i__)
c ..............Just test output...........
write(6,7)Ef_6(i__),RC_6(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'n8000.dat' ! Neutralization rate coefficients at T=8000K
C Format for file interpretation
8 format(E10.2,E10.2)
C Effective file loading
open(unit=1,status='old',file=
+'n8000.dat')
write(6,*) '....Loading file: n8000.dat'
do i__=1,81
read(1,'(A20)')ar__7
read(ar__7,8)Ef_7(i__),RC_7(i__)
c ..............Just test output...........
write(6,8)Ef_7(i__),RC_7(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'n9000.dat' ! Neutralization rate coefficients at T=9000K
C Format for file interpretation
9 format(E10.2,E10.2)
C Effective file loading
open(unit=1,status='old',file=
+'n9000.dat')
write(6,*) '....Loading file: n9000.dat'
do i__=1,81
read(1,'(A20)')ar__8
read(ar__8,9)Ef_8(i__),RC_8(i__)
c ..............Just test output...........
write(6,9)Ef_8(i__),RC_8(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'n10000.dat' ! Neutralization rate coefficients at T=10000K
C Format for file interpretation
10 format(E10.2,E10.2)
C Effective file loading
open(unit=1,status='old',file=
+'n10000.dat')
write(6,*) '....Loading file: n10000.dat'
do i__=1,81
read(1,'(A20)')ar__9
read(ar__9,10)Ef_9(i__),RC_9(i__)
c ..............Just test output...........
write(6,10)Ef_9(i__),RC_9(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'd1000.dat' ! De-excitation rate coefficients at T=1000K
C Format for file interpretation
11 format(
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2)
C Effective file loading
open(unit=1,status='old',file=
+'d1000.dat')
write(6,*) '....Loading file: d1000.dat'
do i__=1,41
read(1,'(A420)')ar__10
read(ar__10,11)
+ Ei(i__),RC1(i__),RC2(i__),RC3(i__),RC4(i__),RC5(i__),RC6(i__),
+ RC7(i__),RC8(i__),RC9(i__),RC10(i__),RC11(i__),RC12(i__),
+ RC13(i__),RC14(i__),RC15(i__),RC16(i__),RC17(i__),RC18(i__),
+ RC19(i__),RC20(i__),RC21(i__),RC22(i__),RC23(i__),RC24(i__),
+ RC25(i__),RC26(i__),RC27(i__),RC28(i__),RC29(i__),RC30(i__),
+ RC31(i__),RC32(i__),RC33(i__),RC34(i__),RC35(i__),RC36(i__),
+ RC37(i__),RC38(i__),RC39(i__),RC40(i__),RC41(i__)
c ..............Just test output...........
write(6,11)
+ Ei(i__),RC1(i__),RC2(i__),RC3(i__),RC4(i__),RC5(i__),RC6(i__),
+ RC7(i__),RC8(i__),RC9(i__),RC10(i__),RC11(i__),RC12(i__),
+ RC13(i__),RC14(i__),RC15(i__),RC16(i__),RC17(i__),RC18(i__),
+ RC19(i__),RC20(i__),RC21(i__),RC22(i__),RC23(i__),RC24(i__),
+ RC25(i__),RC26(i__),RC27(i__),RC28(i__),RC29(i__),RC30(i__),
+ RC31(i__),RC32(i__),RC33(i__),RC34(i__),RC35(i__),RC36(i__),
+ RC37(i__),RC38(i__),RC39(i__),RC40(i__),RC41(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'd2000.dat' ! De-excitation rate coefficients at T=2000K
C Format for file interpretation
12 format(
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2)
C Effective file loading
open(unit=1,status='old',file=
+'d2000.dat')
write(6,*) '....Loading file: d2000.dat'
do i__=1,41
read(1,'(A420)')ar__11
read(ar__11,12)
+ Ei_1(i__),RC1_1(i__),RC2_1(i__),RC3_1(i__),RC4_1(i__),
+ RC5_1(i__),RC6_1(i__),RC7_1(i__),RC8_1(i__),RC9_1(i__),
+ RC10_1(i__),RC11_1(i__),RC12_1(i__),RC13_1(i__),RC14_1(i__),
+ RC15_1(i__),RC16_1(i__),RC17_1(i__),RC18_1(i__),RC19_1(i__),
+ RC20_1(i__),RC21_1(i__),RC22_1(i__),RC23_1(i__),RC24_1(i__),
+ RC25_1(i__),RC26_1(i__),RC27_1(i__),RC28_1(i__),RC29_1(i__),
+ RC30_1(i__),RC31_1(i__),RC32_1(i__),RC33_1(i__),RC34_1(i__),
+ RC35_1(i__),RC36_1(i__),RC37_1(i__),RC38_1(i__),RC39_1(i__),
+ RC40_1(i__),RC41_1(i__)
c ..............Just test output...........
write(6,12)
+ Ei_1(i__),RC1_1(i__),RC2_1(i__),RC3_1(i__),RC4_1(i__),
+ RC5_1(i__),RC6_1(i__),RC7_1(i__),RC8_1(i__),RC9_1(i__),
+ RC10_1(i__),RC11_1(i__),RC12_1(i__),RC13_1(i__),RC14_1(i__),
+ RC15_1(i__),RC16_1(i__),RC17_1(i__),RC18_1(i__),RC19_1(i__),
+ RC20_1(i__),RC21_1(i__),RC22_1(i__),RC23_1(i__),RC24_1(i__),
+ RC25_1(i__),RC26_1(i__),RC27_1(i__),RC28_1(i__),RC29_1(i__),
+ RC30_1(i__),RC31_1(i__),RC32_1(i__),RC33_1(i__),RC34_1(i__),
+ RC35_1(i__),RC36_1(i__),RC37_1(i__),RC38_1(i__),RC39_1(i__),
+ RC40_1(i__),RC41_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'd3000.dat' ! De-excitation rate coefficients at T=3000K
C Format for file interpretation
13 format(
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2)
C Effective file loading
open(unit=1,status='old',file=
+'d3000.dat')
write(6,*) '....Loading file: d3000.dat'
do i__=1,41
read(1,'(A420)')ar__12
read(ar__12,13)
+ Ei_2(i__),RC1_2(i__),RC2_2(i__),RC3_2(i__),RC4_2(i__),
+ RC5_2(i__),RC6_2(i__),RC7_2(i__),RC8_2(i__),RC9_2(i__),
+ RC10_2(i__),RC11_2(i__),RC12_2(i__),RC13_2(i__),RC14_2(i__),
+ RC15_2(i__),RC16_2(i__),RC17_2(i__),RC18_2(i__),RC19_2(i__),
+ RC20_2(i__),RC21_2(i__),RC22_2(i__),RC23_2(i__),RC24_2(i__),
+ RC25_2(i__),RC26_2(i__),RC27_2(i__),RC28_2(i__),RC29_2(i__),
+ RC30_2(i__),RC31_2(i__),RC32_2(i__),RC33_2(i__),RC34_2(i__),
+ RC35_2(i__),RC36_2(i__),RC37_2(i__),RC38_2(i__),RC39_2(i__),
+ RC40_2(i__),RC41_2(i__)
c ..............Just test output...........
write(6,13)
+ Ei_2(i__),RC1_2(i__),RC2_2(i__),RC3_2(i__),RC4_2(i__),
+ RC5_2(i__),RC6_2(i__),RC7_2(i__),RC8_2(i__),RC9_2(i__),
+ RC10_2(i__),RC11_2(i__),RC12_2(i__),RC13_2(i__),RC14_2(i__),
+ RC15_2(i__),RC16_2(i__),RC17_2(i__),RC18_2(i__),RC19_2(i__),
+ RC20_2(i__),RC21_2(i__),RC22_2(i__),RC23_2(i__),RC24_2(i__),
+ RC25_2(i__),RC26_2(i__),RC27_2(i__),RC28_2(i__),RC29_2(i__),
+ RC30_2(i__),RC31_2(i__),RC32_2(i__),RC33_2(i__),RC34_2(i__),
+ RC35_2(i__),RC36_2(i__),RC37_2(i__),RC38_2(i__),RC39_2(i__),
+ RC40_2(i__),RC41_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'd4000.dat' ! De-excitation rate coefficients at T=4000K
C Format for file interpretation
14 format(
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2)
C Effective file loading
open(unit=1,status='old',file=
+'d4000.dat')
write(6,*) '....Loading file: d4000.dat'
do i__=1,41
read(1,'(A420)')ar__13
read(ar__13,14)
+ Ei_3(i__),RC1_3(i__),RC2_3(i__),RC3_3(i__),RC4_3(i__),
+ RC5_3(i__),RC6_3(i__),RC7_3(i__),RC8_3(i__),RC9_3(i__),
+ RC10_3(i__),RC11_3(i__),RC12_3(i__),RC13_3(i__),RC14_3(i__),
+ RC15_3(i__),RC16_3(i__),RC17_3(i__),RC18_3(i__),RC19_3(i__),
+ RC20_3(i__),RC21_3(i__),RC22_3(i__),RC23_3(i__),RC24_3(i__),
+ RC25_3(i__),RC26_3(i__),RC27_3(i__),RC28_3(i__),RC29_3(i__),
+ RC30_3(i__),RC31_3(i__),RC32_3(i__),RC33_3(i__),RC34_3(i__),
+ RC35_3(i__),RC36_3(i__),RC37_3(i__),RC38_3(i__),RC39_3(i__),
+ RC40_3(i__),RC41_3(i__)
c ..............Just test output...........
write(6,14)
+ Ei_3(i__),RC1_3(i__),RC2_3(i__),RC3_3(i__),RC4_3(i__),
+ RC5_3(i__),RC6_3(i__),RC7_3(i__),RC8_3(i__),RC9_3(i__),
+ RC10_3(i__),RC11_3(i__),RC12_3(i__),RC13_3(i__),RC14_3(i__),
+ RC15_3(i__),RC16_3(i__),RC17_3(i__),RC18_3(i__),RC19_3(i__),
+ RC20_3(i__),RC21_3(i__),RC22_3(i__),RC23_3(i__),RC24_3(i__),
+ RC25_3(i__),RC26_3(i__),RC27_3(i__),RC28_3(i__),RC29_3(i__),
+ RC30_3(i__),RC31_3(i__),RC32_3(i__),RC33_3(i__),RC34_3(i__),
+ RC35_3(i__),RC36_3(i__),RC37_3(i__),RC38_3(i__),RC39_3(i__),
+ RC40_3(i__),RC41_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'd5000.dat' ! De-excitation rate coefficients at T=5000K
C Format for file interpretation
15 format(
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2)
C Effective file loading
open(unit=1,status='old',file=
+'d5000.dat')
write(6,*) '....Loading file: d5000.dat'
do i__=1,41
read(1,'(A420)')ar__14
read(ar__14,15)
+ Ei_4(i__),RC1_4(i__),RC2_4(i__),RC3_4(i__),RC4_4(i__),
+ RC5_4(i__),RC6_4(i__),RC7_4(i__),RC8_4(i__),RC9_4(i__),
+ RC10_4(i__),RC11_4(i__),RC12_4(i__),RC13_4(i__),RC14_4(i__),
+ RC15_4(i__),RC16_4(i__),RC17_4(i__),RC18_4(i__),RC19_4(i__),
+ RC20_4(i__),RC21_4(i__),RC22_4(i__),RC23_4(i__),RC24_4(i__),
+ RC25_4(i__),RC26_4(i__),RC27_4(i__),RC28_4(i__),RC29_4(i__),
+ RC30_4(i__),RC31_4(i__),RC32_4(i__),RC33_4(i__),RC34_4(i__),
+ RC35_4(i__),RC36_4(i__),RC37_4(i__),RC38_4(i__),RC39_4(i__),
+ RC40_4(i__),RC41_4(i__)
c ..............Just test output...........
write(6,15)
+ Ei_4(i__),RC1_4(i__),RC2_4(i__),RC3_4(i__),RC4_4(i__),
+ RC5_4(i__),RC6_4(i__),RC7_4(i__),RC8_4(i__),RC9_4(i__),
+ RC10_4(i__),RC11_4(i__),RC12_4(i__),RC13_4(i__),RC14_4(i__),
+ RC15_4(i__),RC16_4(i__),RC17_4(i__),RC18_4(i__),RC19_4(i__),
+ RC20_4(i__),RC21_4(i__),RC22_4(i__),RC23_4(i__),RC24_4(i__),
+ RC25_4(i__),RC26_4(i__),RC27_4(i__),RC28_4(i__),RC29_4(i__),
+ RC30_4(i__),RC31_4(i__),RC32_4(i__),RC33_4(i__),RC34_4(i__),
+ RC35_4(i__),RC36_4(i__),RC37_4(i__),RC38_4(i__),RC39_4(i__),
+ RC40_4(i__),RC41_4(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'd6000.dat' ! De-excitation rate coefficients at T=6000K
C Format for file interpretation
16 format(
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2)
C Effective file loading
open(unit=1,status='old',file=
+'d6000.dat')
write(6,*) '....Loading file: d6000.dat'
do i__=1,41
read(1,'(A420)')ar__15
read(ar__15,16)
+ Ei_5(i__),RC1_5(i__),RC2_5(i__),RC3_5(i__),RC4_5(i__),
+ RC5_5(i__),RC6_5(i__),RC7_5(i__),RC8_5(i__),RC9_5(i__),
+ RC10_5(i__),RC11_5(i__),RC12_5(i__),RC13_5(i__),RC14_5(i__),
+ RC15_5(i__),RC16_5(i__),RC17_5(i__),RC18_5(i__),RC19_5(i__),
+ RC20_5(i__),RC21_5(i__),RC22_5(i__),RC23_5(i__),RC24_5(i__),
+ RC25_5(i__),RC26_5(i__),RC27_5(i__),RC28_5(i__),RC29_5(i__),
+ RC30_5(i__),RC31_5(i__),RC32_5(i__),RC33_5(i__),RC34_5(i__),
+ RC35_5(i__),RC36_5(i__),RC37_5(i__),RC38_5(i__),RC39_5(i__),
+ RC40_5(i__),RC41_5(i__)
c ..............Just test output...........
write(6,16)
+ Ei_5(i__),RC1_5(i__),RC2_5(i__),RC3_5(i__),RC4_5(i__),
+ RC5_5(i__),RC6_5(i__),RC7_5(i__),RC8_5(i__),RC9_5(i__),
+ RC10_5(i__),RC11_5(i__),RC12_5(i__),RC13_5(i__),RC14_5(i__),
+ RC15_5(i__),RC16_5(i__),RC17_5(i__),RC18_5(i__),RC19_5(i__),
+ RC20_5(i__),RC21_5(i__),RC22_5(i__),RC23_5(i__),RC24_5(i__),
+ RC25_5(i__),RC26_5(i__),RC27_5(i__),RC28_5(i__),RC29_5(i__),
+ RC30_5(i__),RC31_5(i__),RC32_5(i__),RC33_5(i__),RC34_5(i__),
+ RC35_5(i__),RC36_5(i__),RC37_5(i__),RC38_5(i__),RC39_5(i__),
+ RC40_5(i__),RC41_5(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'd7000.dat' ! De-excitation rate coefficients at T=7000K
C Format for file interpretation
17 format(
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2)
C Effective file loading
open(unit=1,status='old',file=
+'d7000.dat')
write(6,*) '....Loading file: d7000.dat'
do i__=1,41
read(1,'(A420)')ar__16
read(ar__16,17)
+ Ei_6(i__),RC1_6(i__),RC2_6(i__),RC3_6(i__),RC4_6(i__),
+ RC5_6(i__),RC6_6(i__),RC7_6(i__),RC8_6(i__),RC9_6(i__),
+ RC10_6(i__),RC11_6(i__),RC12_6(i__),RC13_6(i__),RC14_6(i__),
+ RC15_6(i__),RC16_6(i__),RC17_6(i__),RC18_6(i__),RC19_6(i__),
+ RC20_6(i__),RC21_6(i__),RC22_6(i__),RC23_6(i__),RC24_6(i__),
+ RC25_6(i__),RC26_6(i__),RC27_6(i__),RC28_6(i__),RC29_6(i__),
+ RC30_6(i__),RC31_6(i__),RC32_6(i__),RC33_6(i__),RC34_6(i__),
+ RC35_6(i__),RC36_6(i__),RC37_6(i__),RC38_6(i__),RC39_6(i__),
+ RC40_6(i__),RC41_6(i__)
c ..............Just test output...........
write(6,17)
+ Ei_6(i__),RC1_6(i__),RC2_6(i__),RC3_6(i__),RC4_6(i__),
+ RC5_6(i__),RC6_6(i__),RC7_6(i__),RC8_6(i__),RC9_6(i__),
+ RC10_6(i__),RC11_6(i__),RC12_6(i__),RC13_6(i__),RC14_6(i__),
+ RC15_6(i__),RC16_6(i__),RC17_6(i__),RC18_6(i__),RC19_6(i__),
+ RC20_6(i__),RC21_6(i__),RC22_6(i__),RC23_6(i__),RC24_6(i__),
+ RC25_6(i__),RC26_6(i__),RC27_6(i__),RC28_6(i__),RC29_6(i__),
+ RC30_6(i__),RC31_6(i__),RC32_6(i__),RC33_6(i__),RC34_6(i__),
+ RC35_6(i__),RC36_6(i__),RC37_6(i__),RC38_6(i__),RC39_6(i__),
+ RC40_6(i__),RC41_6(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'd8000.dat' ! De-excitation rate coefficients at T=8000K
C Format for file interpretation
18 format(
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2)
C Effective file loading
open(unit=1,status='old',file=
+'d8000.dat')
write(6,*) '....Loading file: d8000.dat'
do i__=1,41
read(1,'(A420)')ar__17
read(ar__17,18)
+ Ei_7(i__),RC1_7(i__),RC2_7(i__),RC3_7(i__),RC4_7(i__),
+ RC5_7(i__),RC6_7(i__),RC7_7(i__),RC8_7(i__),RC9_7(i__),
+ RC10_7(i__),RC11_7(i__),RC12_7(i__),RC13_7(i__),RC14_7(i__),
+ RC15_7(i__),RC16_7(i__),RC17_7(i__),RC18_7(i__),RC19_7(i__),
+ RC20_7(i__),RC21_7(i__),RC22_7(i__),RC23_7(i__),RC24_7(i__),
+ RC25_7(i__),RC26_7(i__),RC27_7(i__),RC28_7(i__),RC29_7(i__),
+ RC30_7(i__),RC31_7(i__),RC32_7(i__),RC33_7(i__),RC34_7(i__),
+ RC35_7(i__),RC36_7(i__),RC37_7(i__),RC38_7(i__),RC39_7(i__),
+ RC40_7(i__),RC41_7(i__)
c ..............Just test output...........
write(6,18)
+ Ei_7(i__),RC1_7(i__),RC2_7(i__),RC3_7(i__),RC4_7(i__),
+ RC5_7(i__),RC6_7(i__),RC7_7(i__),RC8_7(i__),RC9_7(i__),
+ RC10_7(i__),RC11_7(i__),RC12_7(i__),RC13_7(i__),RC14_7(i__),
+ RC15_7(i__),RC16_7(i__),RC17_7(i__),RC18_7(i__),RC19_7(i__),
+ RC20_7(i__),RC21_7(i__),RC22_7(i__),RC23_7(i__),RC24_7(i__),
+ RC25_7(i__),RC26_7(i__),RC27_7(i__),RC28_7(i__),RC29_7(i__),
+ RC30_7(i__),RC31_7(i__),RC32_7(i__),RC33_7(i__),RC34_7(i__),
+ RC35_7(i__),RC36_7(i__),RC37_7(i__),RC38_7(i__),RC39_7(i__),
+ RC40_7(i__),RC41_7(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'd9000.dat' ! De-excitation rate coefficients at T=9000K
C Format for file interpretation
19 format(
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2)
C Effective file loading
open(unit=1,status='old',file=
+'d9000.dat')
write(6,*) '....Loading file: d9000.dat'
do i__=1,41
read(1,'(A420)')ar__18
read(ar__18,19)
+ Ei_8(i__),RC1_8(i__),RC2_8(i__),RC3_8(i__),RC4_8(i__),
+ RC5_8(i__),RC6_8(i__),RC7_8(i__),RC8_8(i__),RC9_8(i__),
+ RC10_8(i__),RC11_8(i__),RC12_8(i__),RC13_8(i__),RC14_8(i__),
+ RC15_8(i__),RC16_8(i__),RC17_8(i__),RC18_8(i__),RC19_8(i__),
+ RC20_8(i__),RC21_8(i__),RC22_8(i__),RC23_8(i__),RC24_8(i__),
+ RC25_8(i__),RC26_8(i__),RC27_8(i__),RC28_8(i__),RC29_8(i__),
+ RC30_8(i__),RC31_8(i__),RC32_8(i__),RC33_8(i__),RC34_8(i__),
+ RC35_8(i__),RC36_8(i__),RC37_8(i__),RC38_8(i__),RC39_8(i__),
+ RC40_8(i__),RC41_8(i__)
c ..............Just test output...........
write(6,19)
+ Ei_8(i__),RC1_8(i__),RC2_8(i__),RC3_8(i__),RC4_8(i__),
+ RC5_8(i__),RC6_8(i__),RC7_8(i__),RC8_8(i__),RC9_8(i__),
+ RC10_8(i__),RC11_8(i__),RC12_8(i__),RC13_8(i__),RC14_8(i__),
+ RC15_8(i__),RC16_8(i__),RC17_8(i__),RC18_8(i__),RC19_8(i__),
+ RC20_8(i__),RC21_8(i__),RC22_8(i__),RC23_8(i__),RC24_8(i__),
+ RC25_8(i__),RC26_8(i__),RC27_8(i__),RC28_8(i__),RC29_8(i__),
+ RC30_8(i__),RC31_8(i__),RC32_8(i__),RC33_8(i__),RC34_8(i__),
+ RC35_8(i__),RC36_8(i__),RC37_8(i__),RC38_8(i__),RC39_8(i__),
+ RC40_8(i__),RC41_8(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'd10000.dat' ! De-excitation rate coefficients at T=10000K
C Format for file interpretation
20 format(
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2)
C Effective file loading
open(unit=1,status='old',file=
+'d10000.dat')
write(6,*) '....Loading file: d10000.dat'
do i__=1,41
read(1,'(A420)')ar__19
read(ar__19,20)
+ Ei_9(i__),RC1_9(i__),RC2_9(i__),RC3_9(i__),RC4_9(i__),
+ RC5_9(i__),RC6_9(i__),RC7_9(i__),RC8_9(i__),RC9_9(i__),
+ RC10_9(i__),RC11_9(i__),RC12_9(i__),RC13_9(i__),RC14_9(i__),
+ RC15_9(i__),RC16_9(i__),RC17_9(i__),RC18_9(i__),RC19_9(i__),
+ RC20_9(i__),RC21_9(i__),RC22_9(i__),RC23_9(i__),RC24_9(i__),
+ RC25_9(i__),RC26_9(i__),RC27_9(i__),RC28_9(i__),RC29_9(i__),
+ RC30_9(i__),RC31_9(i__),RC32_9(i__),RC33_9(i__),RC34_9(i__),
+ RC35_9(i__),RC36_9(i__),RC37_9(i__),RC38_9(i__),RC39_9(i__),
+ RC40_9(i__),RC41_9(i__)
c ..............Just test output...........
write(6,20)
+ Ei_9(i__),RC1_9(i__),RC2_9(i__),RC3_9(i__),RC4_9(i__),
+ RC5_9(i__),RC6_9(i__),RC7_9(i__),RC8_9(i__),RC9_9(i__),
+ RC10_9(i__),RC11_9(i__),RC12_9(i__),RC13_9(i__),RC14_9(i__),
+ RC15_9(i__),RC16_9(i__),RC17_9(i__),RC18_9(i__),RC19_9(i__),
+ RC20_9(i__),RC21_9(i__),RC22_9(i__),RC23_9(i__),RC24_9(i__),
+ RC25_9(i__),RC26_9(i__),RC27_9(i__),RC28_9(i__),RC29_9(i__),
+ RC30_9(i__),RC31_9(i__),RC32_9(i__),RC33_9(i__),RC34_9(i__),
+ RC35_9(i__),RC36_9(i__),RC37_9(i__),RC38_9(i__),RC39_9(i__),
+ RC40_9(i__),RC41_9(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end