Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/606/A147 into FORTRAN code for reading data files line by line.
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-20
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 ! (eV) Electron bound energy for the final state
real*4 RC ! (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 ! (eV) Electron bound energy for the final state
real*4 RC_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 ! (eV) Electron bound energy for the final state
real*4 RC_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 ! (eV) Electron bound energy for the final state
real*4 RC_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 ! (eV) Electron bound energy for the final state
real*4 RC_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 ! (eV) Electron bound energy for the final state
real*4 RC_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 ! (eV) Electron bound energy for the final state
real*4 RC_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 ! (eV) Electron bound energy for the final state
real*4 RC_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 ! (eV) Electron bound energy for the final state
real*4 RC_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 ! (eV) Electron bound energy for the final state
real*4 RC_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 ! (eV) Electron bound energy for the initial state
real*4 RC1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-5.001eV
real*4 RC2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.901eV
real*4 RC3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.801eV
real*4 RC4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.701eV
real*4 RC5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.601eV
real*4 RC6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.501eV
real*4 RC7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.401eV
real*4 RC8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.301eV
real*4 RC9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.201eV
real*4 RC10 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.101eV
real*4 RC11 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.001eV
real*4 RC12 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.901eV
real*4 RC13 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.801eV
real*4 RC14 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.701eV
real*4 RC15 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.601eV
real*4 RC16 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.501eV
real*4 RC17 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.401eV
real*4 RC18 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.301eV
real*4 RC19 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.201eV
real*4 RC20 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.101eV
real*4 RC21 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.001eV
real*4 RC22 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.901eV
real*4 RC23 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.801eV
real*4 RC24 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.701eV
real*4 RC25 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.601eV
real*4 RC26 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.501eV
real*4 RC27 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.401eV
real*4 RC28 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.301eV
real*4 RC29 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.201eV
real*4 RC30 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.101eV
real*4 RC31 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.001eV
real*4 RC32 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.901eV
real*4 RC33 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.801eV
real*4 RC34 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.701eV
real*4 RC35 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.601eV
real*4 RC36 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.501eV
real*4 RC37 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.401eV
real*4 RC38 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.301eV
real*4 RC39 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.201eV
real*4 RC40 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.101eV
real*4 RC41 ! (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 ! (eV) Electron bound energy for the initial state
real*4 RC1_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-5.001eV
real*4 RC2_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.901eV
real*4 RC3_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.801eV
real*4 RC4_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.701eV
real*4 RC5_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.601eV
real*4 RC6_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.501eV
real*4 RC7_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.401eV
real*4 RC8_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.301eV
real*4 RC9_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.201eV
real*4 RC10_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.101eV
real*4 RC11_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.001eV
real*4 RC12_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.901eV
real*4 RC13_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.801eV
real*4 RC14_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.701eV
real*4 RC15_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.601eV
real*4 RC16_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.501eV
real*4 RC17_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.401eV
real*4 RC18_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.301eV
real*4 RC19_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.201eV
real*4 RC20_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.101eV
real*4 RC21_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.001eV
real*4 RC22_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.901eV
real*4 RC23_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.801eV
real*4 RC24_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.701eV
real*4 RC25_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.601eV
real*4 RC26_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.501eV
real*4 RC27_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.401eV
real*4 RC28_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.301eV
real*4 RC29_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.201eV
real*4 RC30_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.101eV
real*4 RC31_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.001eV
real*4 RC32_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.901eV
real*4 RC33_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.801eV
real*4 RC34_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.701eV
real*4 RC35_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.601eV
real*4 RC36_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.501eV
real*4 RC37_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.401eV
real*4 RC38_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.301eV
real*4 RC39_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.201eV
real*4 RC40_1 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.101eV
real*4 RC41_1 ! (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 ! (eV) Electron bound energy for the initial state
real*4 RC1_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-5.001eV
real*4 RC2_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.901eV
real*4 RC3_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.801eV
real*4 RC4_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.701eV
real*4 RC5_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.601eV
real*4 RC6_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.501eV
real*4 RC7_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.401eV
real*4 RC8_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.301eV
real*4 RC9_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.201eV
real*4 RC10_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.101eV
real*4 RC11_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.001eV
real*4 RC12_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.901eV
real*4 RC13_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.801eV
real*4 RC14_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.701eV
real*4 RC15_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.601eV
real*4 RC16_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.501eV
real*4 RC17_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.401eV
real*4 RC18_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.301eV
real*4 RC19_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.201eV
real*4 RC20_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.101eV
real*4 RC21_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.001eV
real*4 RC22_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.901eV
real*4 RC23_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.801eV
real*4 RC24_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.701eV
real*4 RC25_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.601eV
real*4 RC26_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.501eV
real*4 RC27_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.401eV
real*4 RC28_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.301eV
real*4 RC29_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.201eV
real*4 RC30_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.101eV
real*4 RC31_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.001eV
real*4 RC32_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.901eV
real*4 RC33_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.801eV
real*4 RC34_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.701eV
real*4 RC35_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.601eV
real*4 RC36_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.501eV
real*4 RC37_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.401eV
real*4 RC38_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.301eV
real*4 RC39_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.201eV
real*4 RC40_2 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.101eV
real*4 RC41_2 ! (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 ! (eV) Electron bound energy for the initial state
real*4 RC1_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-5.001eV
real*4 RC2_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.901eV
real*4 RC3_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.801eV
real*4 RC4_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.701eV
real*4 RC5_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.601eV
real*4 RC6_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.501eV
real*4 RC7_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.401eV
real*4 RC8_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.301eV
real*4 RC9_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.201eV
real*4 RC10_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.101eV
real*4 RC11_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.001eV
real*4 RC12_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.901eV
real*4 RC13_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.801eV
real*4 RC14_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.701eV
real*4 RC15_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.601eV
real*4 RC16_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.501eV
real*4 RC17_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.401eV
real*4 RC18_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.301eV
real*4 RC19_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.201eV
real*4 RC20_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.101eV
real*4 RC21_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.001eV
real*4 RC22_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.901eV
real*4 RC23_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.801eV
real*4 RC24_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.701eV
real*4 RC25_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.601eV
real*4 RC26_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.501eV
real*4 RC27_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.401eV
real*4 RC28_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.301eV
real*4 RC29_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.201eV
real*4 RC30_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.101eV
real*4 RC31_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.001eV
real*4 RC32_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.901eV
real*4 RC33_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.801eV
real*4 RC34_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.701eV
real*4 RC35_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.601eV
real*4 RC36_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.501eV
real*4 RC37_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.401eV
real*4 RC38_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.301eV
real*4 RC39_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.201eV
real*4 RC40_3 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.101eV
real*4 RC41_3 ! (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 ! (eV) Electron bound energy for the initial state
real*4 RC1_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-5.001eV
real*4 RC2_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.901eV
real*4 RC3_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.801eV
real*4 RC4_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.701eV
real*4 RC5_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.601eV
real*4 RC6_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.501eV
real*4 RC7_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.401eV
real*4 RC8_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.301eV
real*4 RC9_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.201eV
real*4 RC10_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.101eV
real*4 RC11_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.001eV
real*4 RC12_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.901eV
real*4 RC13_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.801eV
real*4 RC14_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.701eV
real*4 RC15_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.601eV
real*4 RC16_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.501eV
real*4 RC17_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.401eV
real*4 RC18_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.301eV
real*4 RC19_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.201eV
real*4 RC20_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.101eV
real*4 RC21_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.001eV
real*4 RC22_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.901eV
real*4 RC23_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.801eV
real*4 RC24_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.701eV
real*4 RC25_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.601eV
real*4 RC26_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.501eV
real*4 RC27_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.401eV
real*4 RC28_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.301eV
real*4 RC29_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.201eV
real*4 RC30_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.101eV
real*4 RC31_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.001eV
real*4 RC32_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.901eV
real*4 RC33_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.801eV
real*4 RC34_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.701eV
real*4 RC35_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.601eV
real*4 RC36_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.501eV
real*4 RC37_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.401eV
real*4 RC38_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.301eV
real*4 RC39_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.201eV
real*4 RC40_4 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.101eV
real*4 RC41_4 ! (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 ! (eV) Electron bound energy for the initial state
real*4 RC1_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-5.001eV
real*4 RC2_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.901eV
real*4 RC3_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.801eV
real*4 RC4_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.701eV
real*4 RC5_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.601eV
real*4 RC6_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.501eV
real*4 RC7_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.401eV
real*4 RC8_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.301eV
real*4 RC9_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.201eV
real*4 RC10_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.101eV
real*4 RC11_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.001eV
real*4 RC12_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.901eV
real*4 RC13_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.801eV
real*4 RC14_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.701eV
real*4 RC15_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.601eV
real*4 RC16_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.501eV
real*4 RC17_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.401eV
real*4 RC18_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.301eV
real*4 RC19_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.201eV
real*4 RC20_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.101eV
real*4 RC21_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.001eV
real*4 RC22_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.901eV
real*4 RC23_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.801eV
real*4 RC24_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.701eV
real*4 RC25_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.601eV
real*4 RC26_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.501eV
real*4 RC27_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.401eV
real*4 RC28_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.301eV
real*4 RC29_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.201eV
real*4 RC30_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.101eV
real*4 RC31_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.001eV
real*4 RC32_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.901eV
real*4 RC33_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.801eV
real*4 RC34_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.701eV
real*4 RC35_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.601eV
real*4 RC36_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.501eV
real*4 RC37_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.401eV
real*4 RC38_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.301eV
real*4 RC39_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.201eV
real*4 RC40_5 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.101eV
real*4 RC41_5 ! (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 ! (eV) Electron bound energy for the initial state
real*4 RC1_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-5.001eV
real*4 RC2_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.901eV
real*4 RC3_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.801eV
real*4 RC4_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.701eV
real*4 RC5_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.601eV
real*4 RC6_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.501eV
real*4 RC7_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.401eV
real*4 RC8_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.301eV
real*4 RC9_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.201eV
real*4 RC10_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.101eV
real*4 RC11_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.001eV
real*4 RC12_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.901eV
real*4 RC13_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.801eV
real*4 RC14_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.701eV
real*4 RC15_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.601eV
real*4 RC16_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.501eV
real*4 RC17_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.401eV
real*4 RC18_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.301eV
real*4 RC19_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.201eV
real*4 RC20_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.101eV
real*4 RC21_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.001eV
real*4 RC22_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.901eV
real*4 RC23_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.801eV
real*4 RC24_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.701eV
real*4 RC25_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.601eV
real*4 RC26_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.501eV
real*4 RC27_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.401eV
real*4 RC28_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.301eV
real*4 RC29_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.201eV
real*4 RC30_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.101eV
real*4 RC31_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.001eV
real*4 RC32_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.901eV
real*4 RC33_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.801eV
real*4 RC34_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.701eV
real*4 RC35_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.601eV
real*4 RC36_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.501eV
real*4 RC37_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.401eV
real*4 RC38_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.301eV
real*4 RC39_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.201eV
real*4 RC40_6 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.101eV
real*4 RC41_6 ! (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 ! (eV) Electron bound energy for the initial state
real*4 RC1_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-5.001eV
real*4 RC2_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.901eV
real*4 RC3_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.801eV
real*4 RC4_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.701eV
real*4 RC5_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.601eV
real*4 RC6_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.501eV
real*4 RC7_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.401eV
real*4 RC8_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.301eV
real*4 RC9_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.201eV
real*4 RC10_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.101eV
real*4 RC11_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.001eV
real*4 RC12_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.901eV
real*4 RC13_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.801eV
real*4 RC14_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.701eV
real*4 RC15_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.601eV
real*4 RC16_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.501eV
real*4 RC17_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.401eV
real*4 RC18_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.301eV
real*4 RC19_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.201eV
real*4 RC20_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.101eV
real*4 RC21_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.001eV
real*4 RC22_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.901eV
real*4 RC23_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.801eV
real*4 RC24_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.701eV
real*4 RC25_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.601eV
real*4 RC26_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.501eV
real*4 RC27_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.401eV
real*4 RC28_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.301eV
real*4 RC29_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.201eV
real*4 RC30_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.101eV
real*4 RC31_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.001eV
real*4 RC32_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.901eV
real*4 RC33_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.801eV
real*4 RC34_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.701eV
real*4 RC35_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.601eV
real*4 RC36_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.501eV
real*4 RC37_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.401eV
real*4 RC38_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.301eV
real*4 RC39_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.201eV
real*4 RC40_7 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.101eV
real*4 RC41_7 ! (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 ! (eV) Electron bound energy for the initial state
real*4 RC1_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-5.001eV
real*4 RC2_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.901eV
real*4 RC3_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.801eV
real*4 RC4_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.701eV
real*4 RC5_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.601eV
real*4 RC6_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.501eV
real*4 RC7_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.401eV
real*4 RC8_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.301eV
real*4 RC9_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.201eV
real*4 RC10_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.101eV
real*4 RC11_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.001eV
real*4 RC12_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.901eV
real*4 RC13_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.801eV
real*4 RC14_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.701eV
real*4 RC15_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.601eV
real*4 RC16_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.501eV
real*4 RC17_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.401eV
real*4 RC18_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.301eV
real*4 RC19_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.201eV
real*4 RC20_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.101eV
real*4 RC21_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.001eV
real*4 RC22_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.901eV
real*4 RC23_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.801eV
real*4 RC24_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.701eV
real*4 RC25_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.601eV
real*4 RC26_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.501eV
real*4 RC27_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.401eV
real*4 RC28_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.301eV
real*4 RC29_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.201eV
real*4 RC30_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.101eV
real*4 RC31_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.001eV
real*4 RC32_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.901eV
real*4 RC33_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.801eV
real*4 RC34_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.701eV
real*4 RC35_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.601eV
real*4 RC36_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.501eV
real*4 RC37_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.401eV
real*4 RC38_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.301eV
real*4 RC39_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.201eV
real*4 RC40_8 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.101eV
real*4 RC41_8 ! (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 ! (eV) Electron bound energy for the initial state
real*4 RC1_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-5.001eV
real*4 RC2_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.901eV
real*4 RC3_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.801eV
real*4 RC4_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.701eV
real*4 RC5_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.601eV
real*4 RC6_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.501eV
real*4 RC7_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.401eV
real*4 RC8_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.301eV
real*4 RC9_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.201eV
real*4 RC10_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.101eV
real*4 RC11_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-4.001eV
real*4 RC12_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.901eV
real*4 RC13_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.801eV
real*4 RC14_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.701eV
real*4 RC15_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.601eV
real*4 RC16_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.501eV
real*4 RC17_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.401eV
real*4 RC18_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.301eV
real*4 RC19_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.201eV
real*4 RC20_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.101eV
real*4 RC21_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-3.001eV
real*4 RC22_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.901eV
real*4 RC23_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.801eV
real*4 RC24_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.701eV
real*4 RC25_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.601eV
real*4 RC26_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.501eV
real*4 RC27_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.401eV
real*4 RC28_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.301eV
real*4 RC29_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.201eV
real*4 RC30_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.101eV
real*4 RC31_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-2.001eV
real*4 RC32_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.901eV
real*4 RC33_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.801eV
real*4 RC34_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.701eV
real*4 RC35_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.601eV
real*4 RC36_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.501eV
real*4 RC37_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.401eV
real*4 RC38_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.301eV
real*4 RC39_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.201eV
real*4 RC40_9 ! (cm3/s) De-excitation rate coefficient for transition
* to state Ef=-1.101eV
real*4 RC41_9 ! (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,RC
c ..............Just test output...........
write(6,1)Ef,RC
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,RC_1
c ..............Just test output...........
write(6,2)Ef_1,RC_1
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,RC_2
c ..............Just test output...........
write(6,3)Ef_2,RC_2
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,RC_3
c ..............Just test output...........
write(6,4)Ef_3,RC_3
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,RC_4
c ..............Just test output...........
write(6,5)Ef_4,RC_4
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,RC_5
c ..............Just test output...........
write(6,6)Ef_5,RC_5
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,RC_6
c ..............Just test output...........
write(6,7)Ef_6,RC_6
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,RC_7
c ..............Just test output...........
write(6,8)Ef_7,RC_7
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,RC_8
c ..............Just test output...........
write(6,9)Ef_8,RC_8
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,RC_9
c ..............Just test output...........
write(6,10)Ef_9,RC_9
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,RC1,RC2,RC3,RC4,RC5,RC6,RC7,RC8,RC9,RC10,RC11,RC12,RC13,
+ RC14,RC15,RC16,RC17,RC18,RC19,RC20,RC21,RC22,RC23,RC24,RC25,
+ RC26,RC27,RC28,RC29,RC30,RC31,RC32,RC33,RC34,RC35,RC36,RC37,
+ RC38,RC39,RC40,RC41
c ..............Just test output...........
write(6,11)
+ Ei,RC1,RC2,RC3,RC4,RC5,RC6,RC7,RC8,RC9,RC10,RC11,RC12,RC13,
+ RC14,RC15,RC16,RC17,RC18,RC19,RC20,RC21,RC22,RC23,RC24,RC25,
+ RC26,RC27,RC28,RC29,RC30,RC31,RC32,RC33,RC34,RC35,RC36,RC37,
+ RC38,RC39,RC40,RC41
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,RC1_1,RC2_1,RC3_1,RC4_1,RC5_1,RC6_1,RC7_1,RC8_1,RC9_1,
+ RC10_1,RC11_1,RC12_1,RC13_1,RC14_1,RC15_1,RC16_1,RC17_1,
+ RC18_1,RC19_1,RC20_1,RC21_1,RC22_1,RC23_1,RC24_1,RC25_1,
+ RC26_1,RC27_1,RC28_1,RC29_1,RC30_1,RC31_1,RC32_1,RC33_1,
+ RC34_1,RC35_1,RC36_1,RC37_1,RC38_1,RC39_1,RC40_1,RC41_1
c ..............Just test output...........
write(6,12)
+ Ei_1,RC1_1,RC2_1,RC3_1,RC4_1,RC5_1,RC6_1,RC7_1,RC8_1,RC9_1,
+ RC10_1,RC11_1,RC12_1,RC13_1,RC14_1,RC15_1,RC16_1,RC17_1,
+ RC18_1,RC19_1,RC20_1,RC21_1,RC22_1,RC23_1,RC24_1,RC25_1,
+ RC26_1,RC27_1,RC28_1,RC29_1,RC30_1,RC31_1,RC32_1,RC33_1,
+ RC34_1,RC35_1,RC36_1,RC37_1,RC38_1,RC39_1,RC40_1,RC41_1
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,RC1_2,RC2_2,RC3_2,RC4_2,RC5_2,RC6_2,RC7_2,RC8_2,RC9_2,
+ RC10_2,RC11_2,RC12_2,RC13_2,RC14_2,RC15_2,RC16_2,RC17_2,
+ RC18_2,RC19_2,RC20_2,RC21_2,RC22_2,RC23_2,RC24_2,RC25_2,
+ RC26_2,RC27_2,RC28_2,RC29_2,RC30_2,RC31_2,RC32_2,RC33_2,
+ RC34_2,RC35_2,RC36_2,RC37_2,RC38_2,RC39_2,RC40_2,RC41_2
c ..............Just test output...........
write(6,13)
+ Ei_2,RC1_2,RC2_2,RC3_2,RC4_2,RC5_2,RC6_2,RC7_2,RC8_2,RC9_2,
+ RC10_2,RC11_2,RC12_2,RC13_2,RC14_2,RC15_2,RC16_2,RC17_2,
+ RC18_2,RC19_2,RC20_2,RC21_2,RC22_2,RC23_2,RC24_2,RC25_2,
+ RC26_2,RC27_2,RC28_2,RC29_2,RC30_2,RC31_2,RC32_2,RC33_2,
+ RC34_2,RC35_2,RC36_2,RC37_2,RC38_2,RC39_2,RC40_2,RC41_2
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,RC1_3,RC2_3,RC3_3,RC4_3,RC5_3,RC6_3,RC7_3,RC8_3,RC9_3,
+ RC10_3,RC11_3,RC12_3,RC13_3,RC14_3,RC15_3,RC16_3,RC17_3,
+ RC18_3,RC19_3,RC20_3,RC21_3,RC22_3,RC23_3,RC24_3,RC25_3,
+ RC26_3,RC27_3,RC28_3,RC29_3,RC30_3,RC31_3,RC32_3,RC33_3,
+ RC34_3,RC35_3,RC36_3,RC37_3,RC38_3,RC39_3,RC40_3,RC41_3
c ..............Just test output...........
write(6,14)
+ Ei_3,RC1_3,RC2_3,RC3_3,RC4_3,RC5_3,RC6_3,RC7_3,RC8_3,RC9_3,
+ RC10_3,RC11_3,RC12_3,RC13_3,RC14_3,RC15_3,RC16_3,RC17_3,
+ RC18_3,RC19_3,RC20_3,RC21_3,RC22_3,RC23_3,RC24_3,RC25_3,
+ RC26_3,RC27_3,RC28_3,RC29_3,RC30_3,RC31_3,RC32_3,RC33_3,
+ RC34_3,RC35_3,RC36_3,RC37_3,RC38_3,RC39_3,RC40_3,RC41_3
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,RC1_4,RC2_4,RC3_4,RC4_4,RC5_4,RC6_4,RC7_4,RC8_4,RC9_4,
+ RC10_4,RC11_4,RC12_4,RC13_4,RC14_4,RC15_4,RC16_4,RC17_4,
+ RC18_4,RC19_4,RC20_4,RC21_4,RC22_4,RC23_4,RC24_4,RC25_4,
+ RC26_4,RC27_4,RC28_4,RC29_4,RC30_4,RC31_4,RC32_4,RC33_4,
+ RC34_4,RC35_4,RC36_4,RC37_4,RC38_4,RC39_4,RC40_4,RC41_4
c ..............Just test output...........
write(6,15)
+ Ei_4,RC1_4,RC2_4,RC3_4,RC4_4,RC5_4,RC6_4,RC7_4,RC8_4,RC9_4,
+ RC10_4,RC11_4,RC12_4,RC13_4,RC14_4,RC15_4,RC16_4,RC17_4,
+ RC18_4,RC19_4,RC20_4,RC21_4,RC22_4,RC23_4,RC24_4,RC25_4,
+ RC26_4,RC27_4,RC28_4,RC29_4,RC30_4,RC31_4,RC32_4,RC33_4,
+ RC34_4,RC35_4,RC36_4,RC37_4,RC38_4,RC39_4,RC40_4,RC41_4
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,RC1_5,RC2_5,RC3_5,RC4_5,RC5_5,RC6_5,RC7_5,RC8_5,RC9_5,
+ RC10_5,RC11_5,RC12_5,RC13_5,RC14_5,RC15_5,RC16_5,RC17_5,
+ RC18_5,RC19_5,RC20_5,RC21_5,RC22_5,RC23_5,RC24_5,RC25_5,
+ RC26_5,RC27_5,RC28_5,RC29_5,RC30_5,RC31_5,RC32_5,RC33_5,
+ RC34_5,RC35_5,RC36_5,RC37_5,RC38_5,RC39_5,RC40_5,RC41_5
c ..............Just test output...........
write(6,16)
+ Ei_5,RC1_5,RC2_5,RC3_5,RC4_5,RC5_5,RC6_5,RC7_5,RC8_5,RC9_5,
+ RC10_5,RC11_5,RC12_5,RC13_5,RC14_5,RC15_5,RC16_5,RC17_5,
+ RC18_5,RC19_5,RC20_5,RC21_5,RC22_5,RC23_5,RC24_5,RC25_5,
+ RC26_5,RC27_5,RC28_5,RC29_5,RC30_5,RC31_5,RC32_5,RC33_5,
+ RC34_5,RC35_5,RC36_5,RC37_5,RC38_5,RC39_5,RC40_5,RC41_5
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,RC1_6,RC2_6,RC3_6,RC4_6,RC5_6,RC6_6,RC7_6,RC8_6,RC9_6,
+ RC10_6,RC11_6,RC12_6,RC13_6,RC14_6,RC15_6,RC16_6,RC17_6,
+ RC18_6,RC19_6,RC20_6,RC21_6,RC22_6,RC23_6,RC24_6,RC25_6,
+ RC26_6,RC27_6,RC28_6,RC29_6,RC30_6,RC31_6,RC32_6,RC33_6,
+ RC34_6,RC35_6,RC36_6,RC37_6,RC38_6,RC39_6,RC40_6,RC41_6
c ..............Just test output...........
write(6,17)
+ Ei_6,RC1_6,RC2_6,RC3_6,RC4_6,RC5_6,RC6_6,RC7_6,RC8_6,RC9_6,
+ RC10_6,RC11_6,RC12_6,RC13_6,RC14_6,RC15_6,RC16_6,RC17_6,
+ RC18_6,RC19_6,RC20_6,RC21_6,RC22_6,RC23_6,RC24_6,RC25_6,
+ RC26_6,RC27_6,RC28_6,RC29_6,RC30_6,RC31_6,RC32_6,RC33_6,
+ RC34_6,RC35_6,RC36_6,RC37_6,RC38_6,RC39_6,RC40_6,RC41_6
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,RC1_7,RC2_7,RC3_7,RC4_7,RC5_7,RC6_7,RC7_7,RC8_7,RC9_7,
+ RC10_7,RC11_7,RC12_7,RC13_7,RC14_7,RC15_7,RC16_7,RC17_7,
+ RC18_7,RC19_7,RC20_7,RC21_7,RC22_7,RC23_7,RC24_7,RC25_7,
+ RC26_7,RC27_7,RC28_7,RC29_7,RC30_7,RC31_7,RC32_7,RC33_7,
+ RC34_7,RC35_7,RC36_7,RC37_7,RC38_7,RC39_7,RC40_7,RC41_7
c ..............Just test output...........
write(6,18)
+ Ei_7,RC1_7,RC2_7,RC3_7,RC4_7,RC5_7,RC6_7,RC7_7,RC8_7,RC9_7,
+ RC10_7,RC11_7,RC12_7,RC13_7,RC14_7,RC15_7,RC16_7,RC17_7,
+ RC18_7,RC19_7,RC20_7,RC21_7,RC22_7,RC23_7,RC24_7,RC25_7,
+ RC26_7,RC27_7,RC28_7,RC29_7,RC30_7,RC31_7,RC32_7,RC33_7,
+ RC34_7,RC35_7,RC36_7,RC37_7,RC38_7,RC39_7,RC40_7,RC41_7
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,RC1_8,RC2_8,RC3_8,RC4_8,RC5_8,RC6_8,RC7_8,RC8_8,RC9_8,
+ RC10_8,RC11_8,RC12_8,RC13_8,RC14_8,RC15_8,RC16_8,RC17_8,
+ RC18_8,RC19_8,RC20_8,RC21_8,RC22_8,RC23_8,RC24_8,RC25_8,
+ RC26_8,RC27_8,RC28_8,RC29_8,RC30_8,RC31_8,RC32_8,RC33_8,
+ RC34_8,RC35_8,RC36_8,RC37_8,RC38_8,RC39_8,RC40_8,RC41_8
c ..............Just test output...........
write(6,19)
+ Ei_8,RC1_8,RC2_8,RC3_8,RC4_8,RC5_8,RC6_8,RC7_8,RC8_8,RC9_8,
+ RC10_8,RC11_8,RC12_8,RC13_8,RC14_8,RC15_8,RC16_8,RC17_8,
+ RC18_8,RC19_8,RC20_8,RC21_8,RC22_8,RC23_8,RC24_8,RC25_8,
+ RC26_8,RC27_8,RC28_8,RC29_8,RC30_8,RC31_8,RC32_8,RC33_8,
+ RC34_8,RC35_8,RC36_8,RC37_8,RC38_8,RC39_8,RC40_8,RC41_8
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,RC1_9,RC2_9,RC3_9,RC4_9,RC5_9,RC6_9,RC7_9,RC8_9,RC9_9,
+ RC10_9,RC11_9,RC12_9,RC13_9,RC14_9,RC15_9,RC16_9,RC17_9,
+ RC18_9,RC19_9,RC20_9,RC21_9,RC22_9,RC23_9,RC24_9,RC25_9,
+ RC26_9,RC27_9,RC28_9,RC29_9,RC30_9,RC31_9,RC32_9,RC33_9,
+ RC34_9,RC35_9,RC36_9,RC37_9,RC38_9,RC39_9,RC40_9,RC41_9
c ..............Just test output...........
write(6,20)
+ Ei_9,RC1_9,RC2_9,RC3_9,RC4_9,RC5_9,RC6_9,RC7_9,RC8_9,RC9_9,
+ RC10_9,RC11_9,RC12_9,RC13_9,RC14_9,RC15_9,RC16_9,RC17_9,
+ RC18_9,RC19_9,RC20_9,RC21_9,RC22_9,RC23_9,RC24_9,RC25_9,
+ RC26_9,RC27_9,RC28_9,RC29_9,RC30_9,RC31_9,RC32_9,RC33_9,
+ RC34_9,RC35_9,RC36_9,RC37_9,RC38_9,RC39_9,RC40_9,RC41_9
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end