Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/631/A80 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 2026-Jun-13
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/631/A80 Mn lines 3D NLTE formation in late-type stars (Bergemann+, 2019)
*================================================================================
*Observational constraints on the origin of the elements.
*I. 3D NLTE formation of Mn lines in late-type stars.
* Bergemann M., Gallagher A.G., Eitner P., Bautista M., Collet R.,
* Yakovleva S., Mayriedl A., Plez B., Carlsson M., Leenaarts J., Belyaev A.K.,
* Hansen C.
* <Astron. Astrophys. 631, A80 (2019)>
* =2019A&A...631A..80B (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ri1000.dat' ! MnH model rate coefficients at T=1000K
integer*4 nr__
parameter (nr__=72) ! Number of records
character*733 ar__ ! Full-size record
character*13 RateIni (nr__) ! Initial state of MnI in collisions
* with H or ionic state
real*4 Rate1 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^6^S ) + H
real*4 Rate2 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^6^D ) + H
real*4 Rate3 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^4^D ) + H
real*4 Rate4 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^6^P*) + H
real*4 Rate5 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^4^G ) + H
real*4 Rate6 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(b ^4^D ) + H
real*4 Rate7 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^4^P*) + H
real*4 Rate8 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^6^P*) + H
real*4 Rate9 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(b ^4^G ) + H
real*4 Rate10 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^6^S ) + H
real*4 Rate11 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^6^D ) + H
real*4 Rate12 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^6^P*) + H
real*4 Rate13 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^6^F*) + H
real*4 Rate14 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(f ^6^S ) + H
real*4 Rate15 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^4^S ) + H
real*4 Rate16 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^6^P*) + H
real*4 Rate17 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^4^H*) + H
real*4 Rate18 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^4^F*) + H
real*4 Rate19 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(x ^6^F*) + H
real*4 Rate20 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(g ^6^S ) + H
real*4 Rate21 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(x ^4^P*) + H
real*4 Rate22 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(u ^6^P*) + H
real*4 Rate23 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(f ^6^D ) + H
real*4 Rate24 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^6^F*) + H
real*4 Rate25 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^6^P*) + H
real*4 Rate26 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(h ^6^S ) + H
real*4 Rate27 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(g ^6^D ) + H
real*4 Rate28 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^4^P*) + H
real*4 Rate29 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^6^F*) + H
real*4 Rate30 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(r ^6^P*) + H
real*4 Rate31 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(h ^6^D ) + H
real*4 Rate32 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^4^P*) + H
real*4 Rate33 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(s ^6^P*) + H
real*4 Rate34 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(i ^6^D ) + H
real*4 Rate35 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(u ^6^F*) + H
real*4 Rate36 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(q ^6^P*) + H
real*4 Rate37 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^4^P*) + H
real*4 Rate38 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^6^F*) + H
real*4 Rate39 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(p ^6^P*) + H
real*4 Rate40 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(o ^6^P*) + H
real*4 Rate41 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(11p ^6^P*) + H
real*4 Rate42 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(12p ^6^P*) + H
real*4 Rate43 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(13p ^6^P*) + H
real*4 Rate44 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(14p ^6^P*) + H
real*4 Rate45 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(15p ^6^P*) + H
real*4 Rate46 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(16p ^6^P*) + H
real*4 Rate47 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(17p ^6^P*) + H
real*4 Rate48 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(18p ^6^P*) + H
real*4 Rate49 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(19p ^6^P*) + H
real*4 Rate50 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(20p ^6^P*) + H
real*4 Rate51 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(21p ^6^P*) + H
real*4 Rate52 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(22p ^6^P*) + H
real*4 Rate53 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(23p ^6^P*) + H
real*4 Rate54 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(24p ^6^P*) + H
real*4 Rate55 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(25p ^6^P*) + H
real*4 Rate56 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(26p ^6^P*) + H
real*4 Rate57 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(27p ^6^P*) + H
real*4 Rate58 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(28p ^6^P*) + H
real*4 Rate59 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(29p ^6^P*) + H
real*4 Rate60 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(30p ^6^P*) + H
real*4 Rate61 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(31p ^6^P*) + H
real*4 Rate62 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(32p ^6^P*) + H
real*4 Rate63 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(33p ^6^P*) + H
real*4 Rate64 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(34p ^6^P*) + H
real*4 Rate65 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(35p ^6^P*) + H
real*4 Rate66 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(36p ^6^P*) + H
real*4 Rate67 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(37p ^6^P*) + H
real*4 Rate68 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(38p ^6^P*) + H
real*4 Rate69 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(39p ^6^P*) + H
real*4 Rate70 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(40p ^6^P*) + H
real*4 Rate71 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnI(41p ^6^P*) + H
real*4 Rate72 (nr__) ! (cm+3/s) Rate coefficient for transition
* to MnII + H^-^
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ri2000.dat' ! MnH model rate coefficients at T=2000K
integer*4 nr__1
parameter (nr__1=72) ! Number of records
character*733 ar__1 ! Full-size record
character*13 RateIni_1 (nr__1) ! Initial state of MnI in collisions
* with H or ionic state
real*4 Rate1_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^6^S ) + H
real*4 Rate2_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^6^D ) + H
real*4 Rate3_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^4^D ) + H
real*4 Rate4_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^6^P*) + H
real*4 Rate5_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^4^G ) + H
real*4 Rate6_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(b ^4^D ) + H
real*4 Rate7_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^4^P*) + H
real*4 Rate8_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^6^P*) + H
real*4 Rate9_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(b ^4^G ) + H
real*4 Rate10_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^6^S ) + H
real*4 Rate11_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^6^D ) + H
real*4 Rate12_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^6^P*) + H
real*4 Rate13_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^6^F*) + H
real*4 Rate14_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(f ^6^S ) + H
real*4 Rate15_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^4^S ) + H
real*4 Rate16_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^6^P*) + H
real*4 Rate17_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^4^H*) + H
real*4 Rate18_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^4^F*) + H
real*4 Rate19_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(x ^6^F*) + H
real*4 Rate20_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(g ^6^S ) + H
real*4 Rate21_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(x ^4^P*) + H
real*4 Rate22_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(u ^6^P*) + H
real*4 Rate23_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(f ^6^D ) + H
real*4 Rate24_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^6^F*) + H
real*4 Rate25_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^6^P*) + H
real*4 Rate26_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(h ^6^S ) + H
real*4 Rate27_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(g ^6^D ) + H
real*4 Rate28_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^4^P*) + H
real*4 Rate29_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^6^F*) + H
real*4 Rate30_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(r ^6^P*) + H
real*4 Rate31_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(h ^6^D ) + H
real*4 Rate32_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^4^P*) + H
real*4 Rate33_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(s ^6^P*) + H
real*4 Rate34_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(i ^6^D ) + H
real*4 Rate35_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(u ^6^F*) + H
real*4 Rate36_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(q ^6^P*) + H
real*4 Rate37_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^4^P*) + H
real*4 Rate38_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^6^F*) + H
real*4 Rate39_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(p ^6^P*) + H
real*4 Rate40_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(o ^6^P*) + H
real*4 Rate41_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(11p ^6^P*) + H
real*4 Rate42_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(12p ^6^P*) + H
real*4 Rate43_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(13p ^6^P*) + H
real*4 Rate44_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(14p ^6^P*) + H
real*4 Rate45_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(15p ^6^P*) + H
real*4 Rate46_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(16p ^6^P*) + H
real*4 Rate47_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(17p ^6^P*) + H
real*4 Rate48_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(18p ^6^P*) + H
real*4 Rate49_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(19p ^6^P*) + H
real*4 Rate50_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(20p ^6^P*) + H
real*4 Rate51_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(21p ^6^P*) + H
real*4 Rate52_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(22p ^6^P*) + H
real*4 Rate53_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(23p ^6^P*) + H
real*4 Rate54_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(24p ^6^P*) + H
real*4 Rate55_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(25p ^6^P*) + H
real*4 Rate56_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(26p ^6^P*) + H
real*4 Rate57_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(27p ^6^P*) + H
real*4 Rate58_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(28p ^6^P*) + H
real*4 Rate59_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(29p ^6^P*) + H
real*4 Rate60_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(30p ^6^P*) + H
real*4 Rate61_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(31p ^6^P*) + H
real*4 Rate62_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(32p ^6^P*) + H
real*4 Rate63_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(33p ^6^P*) + H
real*4 Rate64_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(34p ^6^P*) + H
real*4 Rate65_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(35p ^6^P*) + H
real*4 Rate66_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(36p ^6^P*) + H
real*4 Rate67_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(37p ^6^P*) + H
real*4 Rate68_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(38p ^6^P*) + H
real*4 Rate69_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(39p ^6^P*) + H
real*4 Rate70_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(40p ^6^P*) + H
real*4 Rate71_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnI(41p ^6^P*) + H
real*4 Rate72_1 (nr__1) ! (cm+3/s) Rate coefficient for transition
* to MnII + H^-^
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ri3000.dat' ! MnH model rate coefficients at T=3000K
integer*4 nr__2
parameter (nr__2=72) ! Number of records
character*733 ar__2 ! Full-size record
character*13 RateIni_2 (nr__2) ! Initial state of MnI in collisions
* with H or ionic state
real*4 Rate1_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^6^S ) + H
real*4 Rate2_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^6^D ) + H
real*4 Rate3_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^4^D ) + H
real*4 Rate4_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^6^P*) + H
real*4 Rate5_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^4^G ) + H
real*4 Rate6_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(b ^4^D ) + H
real*4 Rate7_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^4^P*) + H
real*4 Rate8_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^6^P*) + H
real*4 Rate9_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(b ^4^G ) + H
real*4 Rate10_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^6^S ) + H
real*4 Rate11_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^6^D ) + H
real*4 Rate12_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^6^P*) + H
real*4 Rate13_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^6^F*) + H
real*4 Rate14_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(f ^6^S ) + H
real*4 Rate15_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^4^S ) + H
real*4 Rate16_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^6^P*) + H
real*4 Rate17_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^4^H*) + H
real*4 Rate18_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^4^F*) + H
real*4 Rate19_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(x ^6^F*) + H
real*4 Rate20_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(g ^6^S ) + H
real*4 Rate21_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(x ^4^P*) + H
real*4 Rate22_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(u ^6^P*) + H
real*4 Rate23_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(f ^6^D ) + H
real*4 Rate24_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^6^F*) + H
real*4 Rate25_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^6^P*) + H
real*4 Rate26_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(h ^6^S ) + H
real*4 Rate27_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(g ^6^D ) + H
real*4 Rate28_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^4^P*) + H
real*4 Rate29_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^6^F*) + H
real*4 Rate30_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(r ^6^P*) + H
real*4 Rate31_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(h ^6^D ) + H
real*4 Rate32_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^4^P*) + H
real*4 Rate33_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(s ^6^P*) + H
real*4 Rate34_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(i ^6^D ) + H
real*4 Rate35_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(u ^6^F*) + H
real*4 Rate36_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(q ^6^P*) + H
real*4 Rate37_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^4^P*) + H
real*4 Rate38_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^6^F*) + H
real*4 Rate39_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(p ^6^P*) + H
real*4 Rate40_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(o ^6^P*) + H
real*4 Rate41_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(11p ^6^P*) + H
real*4 Rate42_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(12p ^6^P*) + H
real*4 Rate43_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(13p ^6^P*) + H
real*4 Rate44_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(14p ^6^P*) + H
real*4 Rate45_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(15p ^6^P*) + H
real*4 Rate46_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(16p ^6^P*) + H
real*4 Rate47_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(17p ^6^P*) + H
real*4 Rate48_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(18p ^6^P*) + H
real*4 Rate49_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(19p ^6^P*) + H
real*4 Rate50_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(20p ^6^P*) + H
real*4 Rate51_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(21p ^6^P*) + H
real*4 Rate52_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(22p ^6^P*) + H
real*4 Rate53_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(23p ^6^P*) + H
real*4 Rate54_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(24p ^6^P*) + H
real*4 Rate55_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(25p ^6^P*) + H
real*4 Rate56_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(26p ^6^P*) + H
real*4 Rate57_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(27p ^6^P*) + H
real*4 Rate58_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(28p ^6^P*) + H
real*4 Rate59_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(29p ^6^P*) + H
real*4 Rate60_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(30p ^6^P*) + H
real*4 Rate61_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(31p ^6^P*) + H
real*4 Rate62_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(32p ^6^P*) + H
real*4 Rate63_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(33p ^6^P*) + H
real*4 Rate64_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(34p ^6^P*) + H
real*4 Rate65_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(35p ^6^P*) + H
real*4 Rate66_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(36p ^6^P*) + H
real*4 Rate67_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(37p ^6^P*) + H
real*4 Rate68_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(38p ^6^P*) + H
real*4 Rate69_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(39p ^6^P*) + H
real*4 Rate70_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(40p ^6^P*) + H
real*4 Rate71_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnI(41p ^6^P*) + H
real*4 Rate72_2 (nr__2) ! (cm+3/s) Rate coefficient for transition
* to MnII + H^-^
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ri4000.dat' ! MnH model rate coefficients at T=4000K
integer*4 nr__3
parameter (nr__3=72) ! Number of records
character*733 ar__3 ! Full-size record
character*13 RateIni_3 (nr__3) ! Initial state of MnI in collisions
* with H or ionic state
real*4 Rate1_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^6^S ) + H
real*4 Rate2_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^6^D ) + H
real*4 Rate3_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^4^D ) + H
real*4 Rate4_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^6^P*) + H
real*4 Rate5_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^4^G ) + H
real*4 Rate6_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(b ^4^D ) + H
real*4 Rate7_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^4^P*) + H
real*4 Rate8_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^6^P*) + H
real*4 Rate9_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(b ^4^G ) + H
real*4 Rate10_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^6^S ) + H
real*4 Rate11_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^6^D ) + H
real*4 Rate12_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^6^P*) + H
real*4 Rate13_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^6^F*) + H
real*4 Rate14_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(f ^6^S ) + H
real*4 Rate15_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^4^S ) + H
real*4 Rate16_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^6^P*) + H
real*4 Rate17_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^4^H*) + H
real*4 Rate18_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^4^F*) + H
real*4 Rate19_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(x ^6^F*) + H
real*4 Rate20_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(g ^6^S ) + H
real*4 Rate21_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(x ^4^P*) + H
real*4 Rate22_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(u ^6^P*) + H
real*4 Rate23_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(f ^6^D ) + H
real*4 Rate24_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^6^F*) + H
real*4 Rate25_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^6^P*) + H
real*4 Rate26_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(h ^6^S ) + H
real*4 Rate27_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(g ^6^D ) + H
real*4 Rate28_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^4^P*) + H
real*4 Rate29_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^6^F*) + H
real*4 Rate30_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(r ^6^P*) + H
real*4 Rate31_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(h ^6^D ) + H
real*4 Rate32_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^4^P*) + H
real*4 Rate33_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(s ^6^P*) + H
real*4 Rate34_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(i ^6^D ) + H
real*4 Rate35_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(u ^6^F*) + H
real*4 Rate36_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(q ^6^P*) + H
real*4 Rate37_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^4^P*) + H
real*4 Rate38_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^6^F*) + H
real*4 Rate39_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(p ^6^P*) + H
real*4 Rate40_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(o ^6^P*) + H
real*4 Rate41_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(11p ^6^P*) + H
real*4 Rate42_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(12p ^6^P*) + H
real*4 Rate43_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(13p ^6^P*) + H
real*4 Rate44_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(14p ^6^P*) + H
real*4 Rate45_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(15p ^6^P*) + H
real*4 Rate46_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(16p ^6^P*) + H
real*4 Rate47_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(17p ^6^P*) + H
real*4 Rate48_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(18p ^6^P*) + H
real*4 Rate49_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(19p ^6^P*) + H
real*4 Rate50_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(20p ^6^P*) + H
real*4 Rate51_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(21p ^6^P*) + H
real*4 Rate52_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(22p ^6^P*) + H
real*4 Rate53_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(23p ^6^P*) + H
real*4 Rate54_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(24p ^6^P*) + H
real*4 Rate55_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(25p ^6^P*) + H
real*4 Rate56_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(26p ^6^P*) + H
real*4 Rate57_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(27p ^6^P*) + H
real*4 Rate58_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(28p ^6^P*) + H
real*4 Rate59_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(29p ^6^P*) + H
real*4 Rate60_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(30p ^6^P*) + H
real*4 Rate61_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(31p ^6^P*) + H
real*4 Rate62_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(32p ^6^P*) + H
real*4 Rate63_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(33p ^6^P*) + H
real*4 Rate64_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(34p ^6^P*) + H
real*4 Rate65_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(35p ^6^P*) + H
real*4 Rate66_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(36p ^6^P*) + H
real*4 Rate67_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(37p ^6^P*) + H
real*4 Rate68_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(38p ^6^P*) + H
real*4 Rate69_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(39p ^6^P*) + H
real*4 Rate70_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(40p ^6^P*) + H
real*4 Rate71_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnI(41p ^6^P*) + H
real*4 Rate72_3 (nr__3) ! (cm+3/s) Rate coefficient for transition
* to MnII + H^-^
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ri5000.dat' ! MnH model rate coefficients at T=5000K
integer*4 nr__4
parameter (nr__4=72) ! Number of records
character*733 ar__4 ! Full-size record
character*13 RateIni_4 (nr__4) ! Initial state of MnI in collisions
* with H or ionic state
real*4 Rate1_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^6^S ) + H
real*4 Rate2_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^6^D ) + H
real*4 Rate3_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^4^D ) + H
real*4 Rate4_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^6^P*) + H
real*4 Rate5_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^4^G ) + H
real*4 Rate6_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(b ^4^D ) + H
real*4 Rate7_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^4^P*) + H
real*4 Rate8_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^6^P*) + H
real*4 Rate9_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(b ^4^G ) + H
real*4 Rate10_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^6^S ) + H
real*4 Rate11_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^6^D ) + H
real*4 Rate12_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^6^P*) + H
real*4 Rate13_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^6^F*) + H
real*4 Rate14_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(f ^6^S ) + H
real*4 Rate15_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^4^S ) + H
real*4 Rate16_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^6^P*) + H
real*4 Rate17_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^4^H*) + H
real*4 Rate18_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^4^F*) + H
real*4 Rate19_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(x ^6^F*) + H
real*4 Rate20_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(g ^6^S ) + H
real*4 Rate21_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(x ^4^P*) + H
real*4 Rate22_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(u ^6^P*) + H
real*4 Rate23_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(f ^6^D ) + H
real*4 Rate24_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^6^F*) + H
real*4 Rate25_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^6^P*) + H
real*4 Rate26_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(h ^6^S ) + H
real*4 Rate27_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(g ^6^D ) + H
real*4 Rate28_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^4^P*) + H
real*4 Rate29_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^6^F*) + H
real*4 Rate30_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(r ^6^P*) + H
real*4 Rate31_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(h ^6^D ) + H
real*4 Rate32_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^4^P*) + H
real*4 Rate33_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(s ^6^P*) + H
real*4 Rate34_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(i ^6^D ) + H
real*4 Rate35_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(u ^6^F*) + H
real*4 Rate36_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(q ^6^P*) + H
real*4 Rate37_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^4^P*) + H
real*4 Rate38_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^6^F*) + H
real*4 Rate39_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(p ^6^P*) + H
real*4 Rate40_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(o ^6^P*) + H
real*4 Rate41_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(11p ^6^P*) + H
real*4 Rate42_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(12p ^6^P*) + H
real*4 Rate43_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(13p ^6^P*) + H
real*4 Rate44_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(14p ^6^P*) + H
real*4 Rate45_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(15p ^6^P*) + H
real*4 Rate46_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(16p ^6^P*) + H
real*4 Rate47_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(17p ^6^P*) + H
real*4 Rate48_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(18p ^6^P*) + H
real*4 Rate49_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(19p ^6^P*) + H
real*4 Rate50_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(20p ^6^P*) + H
real*4 Rate51_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(21p ^6^P*) + H
real*4 Rate52_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(22p ^6^P*) + H
real*4 Rate53_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(23p ^6^P*) + H
real*4 Rate54_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(24p ^6^P*) + H
real*4 Rate55_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(25p ^6^P*) + H
real*4 Rate56_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(26p ^6^P*) + H
real*4 Rate57_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(27p ^6^P*) + H
real*4 Rate58_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(28p ^6^P*) + H
real*4 Rate59_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(29p ^6^P*) + H
real*4 Rate60_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(30p ^6^P*) + H
real*4 Rate61_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(31p ^6^P*) + H
real*4 Rate62_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(32p ^6^P*) + H
real*4 Rate63_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(33p ^6^P*) + H
real*4 Rate64_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(34p ^6^P*) + H
real*4 Rate65_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(35p ^6^P*) + H
real*4 Rate66_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(36p ^6^P*) + H
real*4 Rate67_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(37p ^6^P*) + H
real*4 Rate68_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(38p ^6^P*) + H
real*4 Rate69_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(39p ^6^P*) + H
real*4 Rate70_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(40p ^6^P*) + H
real*4 Rate71_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnI(41p ^6^P*) + H
real*4 Rate72_4 (nr__4) ! (cm+3/s) Rate coefficient for transition
* to MnII + H^-^
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ri6000.dat' ! MnH model rate coefficients at T=6000K
integer*4 nr__5
parameter (nr__5=72) ! Number of records
character*733 ar__5 ! Full-size record
character*13 RateIni_5 (nr__5) ! Initial state of MnI in collisions
* with H or ionic state
real*4 Rate1_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^6^S ) + H
real*4 Rate2_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^6^D ) + H
real*4 Rate3_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^4^D ) + H
real*4 Rate4_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^6^P*) + H
real*4 Rate5_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^4^G ) + H
real*4 Rate6_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(b ^4^D ) + H
real*4 Rate7_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^4^P*) + H
real*4 Rate8_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^6^P*) + H
real*4 Rate9_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(b ^4^G ) + H
real*4 Rate10_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^6^S ) + H
real*4 Rate11_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^6^D ) + H
real*4 Rate12_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^6^P*) + H
real*4 Rate13_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^6^F*) + H
real*4 Rate14_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(f ^6^S ) + H
real*4 Rate15_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^4^S ) + H
real*4 Rate16_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^6^P*) + H
real*4 Rate17_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^4^H*) + H
real*4 Rate18_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^4^F*) + H
real*4 Rate19_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(x ^6^F*) + H
real*4 Rate20_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(g ^6^S ) + H
real*4 Rate21_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(x ^4^P*) + H
real*4 Rate22_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(u ^6^P*) + H
real*4 Rate23_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(f ^6^D ) + H
real*4 Rate24_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^6^F*) + H
real*4 Rate25_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^6^P*) + H
real*4 Rate26_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(h ^6^S ) + H
real*4 Rate27_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(g ^6^D ) + H
real*4 Rate28_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^4^P*) + H
real*4 Rate29_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^6^F*) + H
real*4 Rate30_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(r ^6^P*) + H
real*4 Rate31_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(h ^6^D ) + H
real*4 Rate32_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^4^P*) + H
real*4 Rate33_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(s ^6^P*) + H
real*4 Rate34_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(i ^6^D ) + H
real*4 Rate35_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(u ^6^F*) + H
real*4 Rate36_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(q ^6^P*) + H
real*4 Rate37_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^4^P*) + H
real*4 Rate38_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^6^F*) + H
real*4 Rate39_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(p ^6^P*) + H
real*4 Rate40_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(o ^6^P*) + H
real*4 Rate41_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(11p ^6^P*) + H
real*4 Rate42_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(12p ^6^P*) + H
real*4 Rate43_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(13p ^6^P*) + H
real*4 Rate44_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(14p ^6^P*) + H
real*4 Rate45_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(15p ^6^P*) + H
real*4 Rate46_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(16p ^6^P*) + H
real*4 Rate47_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(17p ^6^P*) + H
real*4 Rate48_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(18p ^6^P*) + H
real*4 Rate49_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(19p ^6^P*) + H
real*4 Rate50_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(20p ^6^P*) + H
real*4 Rate51_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(21p ^6^P*) + H
real*4 Rate52_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(22p ^6^P*) + H
real*4 Rate53_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(23p ^6^P*) + H
real*4 Rate54_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(24p ^6^P*) + H
real*4 Rate55_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(25p ^6^P*) + H
real*4 Rate56_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(26p ^6^P*) + H
real*4 Rate57_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(27p ^6^P*) + H
real*4 Rate58_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(28p ^6^P*) + H
real*4 Rate59_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(29p ^6^P*) + H
real*4 Rate60_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(30p ^6^P*) + H
real*4 Rate61_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(31p ^6^P*) + H
real*4 Rate62_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(32p ^6^P*) + H
real*4 Rate63_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(33p ^6^P*) + H
real*4 Rate64_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(34p ^6^P*) + H
real*4 Rate65_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(35p ^6^P*) + H
real*4 Rate66_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(36p ^6^P*) + H
real*4 Rate67_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(37p ^6^P*) + H
real*4 Rate68_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(38p ^6^P*) + H
real*4 Rate69_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(39p ^6^P*) + H
real*4 Rate70_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(40p ^6^P*) + H
real*4 Rate71_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnI(41p ^6^P*) + H
real*4 Rate72_5 (nr__5) ! (cm+3/s) Rate coefficient for transition
* to MnII + H^-^
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ri7000.dat' ! MnH model rate coefficients at T=7000K
integer*4 nr__6
parameter (nr__6=72) ! Number of records
character*733 ar__6 ! Full-size record
character*13 RateIni_6 (nr__6) ! Initial state of MnI in collisions
* with H or ionic state
real*4 Rate1_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^6^S ) + H
real*4 Rate2_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^6^D ) + H
real*4 Rate3_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^4^D ) + H
real*4 Rate4_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^6^P*) + H
real*4 Rate5_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^4^G ) + H
real*4 Rate6_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(b ^4^D ) + H
real*4 Rate7_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^4^P*) + H
real*4 Rate8_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^6^P*) + H
real*4 Rate9_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(b ^4^G ) + H
real*4 Rate10_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^6^S ) + H
real*4 Rate11_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^6^D ) + H
real*4 Rate12_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^6^P*) + H
real*4 Rate13_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^6^F*) + H
real*4 Rate14_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(f ^6^S ) + H
real*4 Rate15_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^4^S ) + H
real*4 Rate16_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^6^P*) + H
real*4 Rate17_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^4^H*) + H
real*4 Rate18_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^4^F*) + H
real*4 Rate19_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(x ^6^F*) + H
real*4 Rate20_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(g ^6^S ) + H
real*4 Rate21_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(x ^4^P*) + H
real*4 Rate22_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(u ^6^P*) + H
real*4 Rate23_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(f ^6^D ) + H
real*4 Rate24_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^6^F*) + H
real*4 Rate25_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^6^P*) + H
real*4 Rate26_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(h ^6^S ) + H
real*4 Rate27_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(g ^6^D ) + H
real*4 Rate28_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^4^P*) + H
real*4 Rate29_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^6^F*) + H
real*4 Rate30_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(r ^6^P*) + H
real*4 Rate31_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(h ^6^D ) + H
real*4 Rate32_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^4^P*) + H
real*4 Rate33_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(s ^6^P*) + H
real*4 Rate34_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(i ^6^D ) + H
real*4 Rate35_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(u ^6^F*) + H
real*4 Rate36_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(q ^6^P*) + H
real*4 Rate37_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^4^P*) + H
real*4 Rate38_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^6^F*) + H
real*4 Rate39_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(p ^6^P*) + H
real*4 Rate40_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(o ^6^P*) + H
real*4 Rate41_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(11p ^6^P*) + H
real*4 Rate42_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(12p ^6^P*) + H
real*4 Rate43_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(13p ^6^P*) + H
real*4 Rate44_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(14p ^6^P*) + H
real*4 Rate45_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(15p ^6^P*) + H
real*4 Rate46_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(16p ^6^P*) + H
real*4 Rate47_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(17p ^6^P*) + H
real*4 Rate48_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(18p ^6^P*) + H
real*4 Rate49_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(19p ^6^P*) + H
real*4 Rate50_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(20p ^6^P*) + H
real*4 Rate51_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(21p ^6^P*) + H
real*4 Rate52_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(22p ^6^P*) + H
real*4 Rate53_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(23p ^6^P*) + H
real*4 Rate54_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(24p ^6^P*) + H
real*4 Rate55_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(25p ^6^P*) + H
real*4 Rate56_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(26p ^6^P*) + H
real*4 Rate57_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(27p ^6^P*) + H
real*4 Rate58_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(28p ^6^P*) + H
real*4 Rate59_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(29p ^6^P*) + H
real*4 Rate60_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(30p ^6^P*) + H
real*4 Rate61_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(31p ^6^P*) + H
real*4 Rate62_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(32p ^6^P*) + H
real*4 Rate63_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(33p ^6^P*) + H
real*4 Rate64_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(34p ^6^P*) + H
real*4 Rate65_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(35p ^6^P*) + H
real*4 Rate66_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(36p ^6^P*) + H
real*4 Rate67_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(37p ^6^P*) + H
real*4 Rate68_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(38p ^6^P*) + H
real*4 Rate69_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(39p ^6^P*) + H
real*4 Rate70_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(40p ^6^P*) + H
real*4 Rate71_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnI(41p ^6^P*) + H
real*4 Rate72_6 (nr__6) ! (cm+3/s) Rate coefficient for transition
* to MnII + H^-^
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ri8000.dat' ! MnH model rate coefficients at T=8000K
integer*4 nr__7
parameter (nr__7=72) ! Number of records
character*733 ar__7 ! Full-size record
character*13 RateIni_7 (nr__7) ! Initial state of MnI in collisions
* with H or ionic state
real*4 Rate1_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^6^S ) + H
real*4 Rate2_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^6^D ) + H
real*4 Rate3_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^4^D ) + H
real*4 Rate4_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^6^P*) + H
real*4 Rate5_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^4^G ) + H
real*4 Rate6_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(b ^4^D ) + H
real*4 Rate7_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^4^P*) + H
real*4 Rate8_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^6^P*) + H
real*4 Rate9_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(b ^4^G ) + H
real*4 Rate10_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^6^S ) + H
real*4 Rate11_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^6^D ) + H
real*4 Rate12_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^6^P*) + H
real*4 Rate13_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^6^F*) + H
real*4 Rate14_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(f ^6^S ) + H
real*4 Rate15_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^4^S ) + H
real*4 Rate16_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^6^P*) + H
real*4 Rate17_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^4^H*) + H
real*4 Rate18_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^4^F*) + H
real*4 Rate19_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(x ^6^F*) + H
real*4 Rate20_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(g ^6^S ) + H
real*4 Rate21_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(x ^4^P*) + H
real*4 Rate22_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(u ^6^P*) + H
real*4 Rate23_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(f ^6^D ) + H
real*4 Rate24_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^6^F*) + H
real*4 Rate25_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^6^P*) + H
real*4 Rate26_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(h ^6^S ) + H
real*4 Rate27_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(g ^6^D ) + H
real*4 Rate28_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^4^P*) + H
real*4 Rate29_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^6^F*) + H
real*4 Rate30_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(r ^6^P*) + H
real*4 Rate31_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(h ^6^D ) + H
real*4 Rate32_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^4^P*) + H
real*4 Rate33_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(s ^6^P*) + H
real*4 Rate34_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(i ^6^D ) + H
real*4 Rate35_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(u ^6^F*) + H
real*4 Rate36_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(q ^6^P*) + H
real*4 Rate37_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^4^P*) + H
real*4 Rate38_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^6^F*) + H
real*4 Rate39_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(p ^6^P*) + H
real*4 Rate40_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(o ^6^P*) + H
real*4 Rate41_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(11p ^6^P*) + H
real*4 Rate42_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(12p ^6^P*) + H
real*4 Rate43_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(13p ^6^P*) + H
real*4 Rate44_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(14p ^6^P*) + H
real*4 Rate45_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(15p ^6^P*) + H
real*4 Rate46_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(16p ^6^P*) + H
real*4 Rate47_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(17p ^6^P*) + H
real*4 Rate48_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(18p ^6^P*) + H
real*4 Rate49_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(19p ^6^P*) + H
real*4 Rate50_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(20p ^6^P*) + H
real*4 Rate51_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(21p ^6^P*) + H
real*4 Rate52_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(22p ^6^P*) + H
real*4 Rate53_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(23p ^6^P*) + H
real*4 Rate54_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(24p ^6^P*) + H
real*4 Rate55_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(25p ^6^P*) + H
real*4 Rate56_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(26p ^6^P*) + H
real*4 Rate57_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(27p ^6^P*) + H
real*4 Rate58_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(28p ^6^P*) + H
real*4 Rate59_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(29p ^6^P*) + H
real*4 Rate60_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(30p ^6^P*) + H
real*4 Rate61_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(31p ^6^P*) + H
real*4 Rate62_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(32p ^6^P*) + H
real*4 Rate63_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(33p ^6^P*) + H
real*4 Rate64_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(34p ^6^P*) + H
real*4 Rate65_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(35p ^6^P*) + H
real*4 Rate66_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(36p ^6^P*) + H
real*4 Rate67_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(37p ^6^P*) + H
real*4 Rate68_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(38p ^6^P*) + H
real*4 Rate69_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(39p ^6^P*) + H
real*4 Rate70_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(40p ^6^P*) + H
real*4 Rate71_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnI(41p ^6^P*) + H
real*4 Rate72_7 (nr__7) ! (cm+3/s) Rate coefficient for transition
* to MnII + H^-^
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ri9000.dat' ! MnH model rate coefficients at T=9000K
integer*4 nr__8
parameter (nr__8=72) ! Number of records
character*733 ar__8 ! Full-size record
character*13 RateIni_8 (nr__8) ! Initial state of MnI in collisions
* with H or ionic state
real*4 Rate1_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^6^S ) + H
real*4 Rate2_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^6^D ) + H
real*4 Rate3_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^4^D ) + H
real*4 Rate4_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^6^P*) + H
real*4 Rate5_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^4^G ) + H
real*4 Rate6_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(b ^4^D ) + H
real*4 Rate7_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^4^P*) + H
real*4 Rate8_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^6^P*) + H
real*4 Rate9_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(b ^4^G ) + H
real*4 Rate10_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^6^S ) + H
real*4 Rate11_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^6^D ) + H
real*4 Rate12_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^6^P*) + H
real*4 Rate13_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^6^F*) + H
real*4 Rate14_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(f ^6^S ) + H
real*4 Rate15_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^4^S ) + H
real*4 Rate16_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^6^P*) + H
real*4 Rate17_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^4^H*) + H
real*4 Rate18_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^4^F*) + H
real*4 Rate19_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(x ^6^F*) + H
real*4 Rate20_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(g ^6^S ) + H
real*4 Rate21_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(x ^4^P*) + H
real*4 Rate22_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(u ^6^P*) + H
real*4 Rate23_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(f ^6^D ) + H
real*4 Rate24_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^6^F*) + H
real*4 Rate25_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^6^P*) + H
real*4 Rate26_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(h ^6^S ) + H
real*4 Rate27_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(g ^6^D ) + H
real*4 Rate28_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^4^P*) + H
real*4 Rate29_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^6^F*) + H
real*4 Rate30_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(r ^6^P*) + H
real*4 Rate31_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(h ^6^D ) + H
real*4 Rate32_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^4^P*) + H
real*4 Rate33_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(s ^6^P*) + H
real*4 Rate34_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(i ^6^D ) + H
real*4 Rate35_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(u ^6^F*) + H
real*4 Rate36_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(q ^6^P*) + H
real*4 Rate37_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^4^P*) + H
real*4 Rate38_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^6^F*) + H
real*4 Rate39_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(p ^6^P*) + H
real*4 Rate40_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(o ^6^P*) + H
real*4 Rate41_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(11p ^6^P*) + H
real*4 Rate42_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(12p ^6^P*) + H
real*4 Rate43_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(13p ^6^P*) + H
real*4 Rate44_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(14p ^6^P*) + H
real*4 Rate45_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(15p ^6^P*) + H
real*4 Rate46_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(16p ^6^P*) + H
real*4 Rate47_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(17p ^6^P*) + H
real*4 Rate48_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(18p ^6^P*) + H
real*4 Rate49_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(19p ^6^P*) + H
real*4 Rate50_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(20p ^6^P*) + H
real*4 Rate51_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(21p ^6^P*) + H
real*4 Rate52_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(22p ^6^P*) + H
real*4 Rate53_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(23p ^6^P*) + H
real*4 Rate54_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(24p ^6^P*) + H
real*4 Rate55_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(25p ^6^P*) + H
real*4 Rate56_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(26p ^6^P*) + H
real*4 Rate57_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(27p ^6^P*) + H
real*4 Rate58_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(28p ^6^P*) + H
real*4 Rate59_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(29p ^6^P*) + H
real*4 Rate60_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(30p ^6^P*) + H
real*4 Rate61_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(31p ^6^P*) + H
real*4 Rate62_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(32p ^6^P*) + H
real*4 Rate63_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(33p ^6^P*) + H
real*4 Rate64_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(34p ^6^P*) + H
real*4 Rate65_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(35p ^6^P*) + H
real*4 Rate66_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(36p ^6^P*) + H
real*4 Rate67_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(37p ^6^P*) + H
real*4 Rate68_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(38p ^6^P*) + H
real*4 Rate69_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(39p ^6^P*) + H
real*4 Rate70_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(40p ^6^P*) + H
real*4 Rate71_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnI(41p ^6^P*) + H
real*4 Rate72_8 (nr__8) ! (cm+3/s) Rate coefficient for transition
* to MnII + H^-^
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ri10000.dat' ! MnH model rate coefficients at T=10000K
integer*4 nr__9
parameter (nr__9=72) ! Number of records
character*733 ar__9 ! Full-size record
character*13 RateIni_9 (nr__9) ! Initial state of MnI in collisions
* with H or ionic state
real*4 Rate1_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^6^S ) + H
real*4 Rate2_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^6^D ) + H
real*4 Rate3_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^4^D ) + H
real*4 Rate4_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^6^P*) + H
real*4 Rate5_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(a ^4^G ) + H
real*4 Rate6_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(b ^4^D ) + H
real*4 Rate7_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^4^P*) + H
real*4 Rate8_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^6^P*) + H
real*4 Rate9_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(b ^4^G ) + H
real*4 Rate10_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^6^S ) + H
real*4 Rate11_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^6^D ) + H
real*4 Rate12_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^6^P*) + H
real*4 Rate13_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^6^F*) + H
real*4 Rate14_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(f ^6^S ) + H
real*4 Rate15_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(e ^4^S ) + H
real*4 Rate16_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^6^P*) + H
real*4 Rate17_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(z ^4^H*) + H
real*4 Rate18_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(y ^4^F*) + H
real*4 Rate19_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(x ^6^F*) + H
real*4 Rate20_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(g ^6^S ) + H
real*4 Rate21_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(x ^4^P*) + H
real*4 Rate22_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(u ^6^P*) + H
real*4 Rate23_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(f ^6^D ) + H
real*4 Rate24_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^6^F*) + H
real*4 Rate25_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^6^P*) + H
real*4 Rate26_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(h ^6^S ) + H
real*4 Rate27_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(g ^6^D ) + H
real*4 Rate28_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(w ^4^P*) + H
real*4 Rate29_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^6^F*) + H
real*4 Rate30_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(r ^6^P*) + H
real*4 Rate31_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(h ^6^D ) + H
real*4 Rate32_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^4^P*) + H
real*4 Rate33_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(s ^6^P*) + H
real*4 Rate34_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(i ^6^D ) + H
real*4 Rate35_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(u ^6^F*) + H
real*4 Rate36_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(q ^6^P*) + H
real*4 Rate37_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(v ^4^P*) + H
real*4 Rate38_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(t ^6^F*) + H
real*4 Rate39_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(p ^6^P*) + H
real*4 Rate40_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(o ^6^P*) + H
real*4 Rate41_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(11p ^6^P*) + H
real*4 Rate42_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(12p ^6^P*) + H
real*4 Rate43_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(13p ^6^P*) + H
real*4 Rate44_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(14p ^6^P*) + H
real*4 Rate45_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(15p ^6^P*) + H
real*4 Rate46_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(16p ^6^P*) + H
real*4 Rate47_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(17p ^6^P*) + H
real*4 Rate48_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(18p ^6^P*) + H
real*4 Rate49_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(19p ^6^P*) + H
real*4 Rate50_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(20p ^6^P*) + H
real*4 Rate51_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(21p ^6^P*) + H
real*4 Rate52_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(22p ^6^P*) + H
real*4 Rate53_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(23p ^6^P*) + H
real*4 Rate54_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(24p ^6^P*) + H
real*4 Rate55_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(25p ^6^P*) + H
real*4 Rate56_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(26p ^6^P*) + H
real*4 Rate57_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(27p ^6^P*) + H
real*4 Rate58_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(28p ^6^P*) + H
real*4 Rate59_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(29p ^6^P*) + H
real*4 Rate60_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(30p ^6^P*) + H
real*4 Rate61_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(31p ^6^P*) + H
real*4 Rate62_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(32p ^6^P*) + H
real*4 Rate63_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(33p ^6^P*) + H
real*4 Rate64_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(34p ^6^P*) + H
real*4 Rate65_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(35p ^6^P*) + H
real*4 Rate66_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(36p ^6^P*) + H
real*4 Rate67_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(37p ^6^P*) + H
real*4 Rate68_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(38p ^6^P*) + H
real*4 Rate69_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(39p ^6^P*) + H
real*4 Rate70_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(40p ^6^P*) + H
real*4 Rate71_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnI(41p ^6^P*) + H
real*4 Rate72_9 (nr__9) ! (cm+3/s) Rate coefficient for transition
* to MnII + H^-^
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'rii1000.dat' ! MnH+ model rate coefficients at T=1000K
integer*4 nr__10
parameter (nr__10=43) ! Number of records
character*442 ar__10 ! Full-size record
character*12 RateIni_10 (nr__10) ! initial state of MnII in collisions
* with H or ionic state
real*4 Rate1_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^7^S ) + H
real*4 Rate2_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^S ) + H
real*4 Rate3_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^D ) + H
real*4 Rate4_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^G ) + H
real*4 Rate5_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(b ^5^D ) + H
real*4 Rate6_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^7^P*) + H
real*4 Rate7_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^P*) + H
real*4 Rate8_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^H*) + H
real*4 Rate9_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^F*) + H
real*4 Rate10_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^5^P*) + H
real*4 Rate11_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^5^F*) + H
real*4 Rate12_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^5^P*) + H
real*4 Rate13_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^S ) + H
real*4 Rate14_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^S ) + H
real*4 Rate15_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^D ) + H
real*4 Rate16_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^5^F*) + H
real*4 Rate17_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^D ) + H
real*4 Rate18_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^7^P*) + H
real*4 Rate19_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(v ^5^P*) + H
real*4 Rate20_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^S ) + H
real*4 Rate21_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^S ) + H
real*4 Rate22_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^7^F*) + H
real*4 Rate23_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^F*) + H
real*4 Rate24_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^D ) + H
real*4 Rate25_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^D ) + H
real*4 Rate26_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^G ) + H
real*4 Rate27_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^I ) + H
real*4 Rate28_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^D ) + H
real*4 Rate29_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^7^S ) + H
real*4 Rate30_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^7^F*) + H
real*4 Rate31_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^F*) + H
real*4 Rate32_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^S ) + H
real*4 Rate33_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^G ) + H
real*4 Rate34_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^G ) + H
real*4 Rate35_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^7^D ) + H
real*4 Rate36_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(s ^5^F*) + H
real*4 Rate37_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(h ^7^S ) + H
real*4 Rate38_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^7^F*) + H
real*4 Rate39_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^G ) + H
real*4 Rate40_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^G ) + H
real*4 Rate41_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^F*) + H
real*4 Rate42_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnII(h ^5^D ) + H
real*4 Rate43_10 (nr__10) ! (cm+3/s) Rate coefficient for transition
* to MnIII + H^-^
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'rii2000.dat' ! MnH+ model rate coefficients at T=2000K
integer*4 nr__11
parameter (nr__11=43) ! Number of records
character*442 ar__11 ! Full-size record
character*12 RateIni_11 (nr__11) ! initial state of MnII in collisions
* with H or ionic state
real*4 Rate1_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^7^S ) + H
real*4 Rate2_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^S ) + H
real*4 Rate3_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^D ) + H
real*4 Rate4_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^G ) + H
real*4 Rate5_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(b ^5^D ) + H
real*4 Rate6_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^7^P*) + H
real*4 Rate7_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^P*) + H
real*4 Rate8_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^H*) + H
real*4 Rate9_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^F*) + H
real*4 Rate10_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^5^P*) + H
real*4 Rate11_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^5^F*) + H
real*4 Rate12_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^5^P*) + H
real*4 Rate13_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^S ) + H
real*4 Rate14_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^S ) + H
real*4 Rate15_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^D ) + H
real*4 Rate16_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^5^F*) + H
real*4 Rate17_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^D ) + H
real*4 Rate18_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^7^P*) + H
real*4 Rate19_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(v ^5^P*) + H
real*4 Rate20_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^S ) + H
real*4 Rate21_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^S ) + H
real*4 Rate22_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^7^F*) + H
real*4 Rate23_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^F*) + H
real*4 Rate24_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^D ) + H
real*4 Rate25_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^D ) + H
real*4 Rate26_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^G ) + H
real*4 Rate27_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^I ) + H
real*4 Rate28_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^D ) + H
real*4 Rate29_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^7^S ) + H
real*4 Rate30_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^7^F*) + H
real*4 Rate31_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^F*) + H
real*4 Rate32_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^S ) + H
real*4 Rate33_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^G ) + H
real*4 Rate34_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^G ) + H
real*4 Rate35_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^7^D ) + H
real*4 Rate36_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(s ^5^F*) + H
real*4 Rate37_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(h ^7^S ) + H
real*4 Rate38_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^7^F*) + H
real*4 Rate39_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^G ) + H
real*4 Rate40_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^G ) + H
real*4 Rate41_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^F*) + H
real*4 Rate42_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnII(h ^5^D ) + H
real*4 Rate43_11 (nr__11) ! (cm+3/s) Rate coefficient for transition
* to MnIII + H^-^
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'rii3000.dat' ! MnH+ model rate coefficients at T=3000K
integer*4 nr__12
parameter (nr__12=43) ! Number of records
character*442 ar__12 ! Full-size record
character*12 RateIni_12 (nr__12) ! initial state of MnII in collisions
* with H or ionic state
real*4 Rate1_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^7^S ) + H
real*4 Rate2_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^S ) + H
real*4 Rate3_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^D ) + H
real*4 Rate4_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^G ) + H
real*4 Rate5_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(b ^5^D ) + H
real*4 Rate6_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^7^P*) + H
real*4 Rate7_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^P*) + H
real*4 Rate8_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^H*) + H
real*4 Rate9_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^F*) + H
real*4 Rate10_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^5^P*) + H
real*4 Rate11_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^5^F*) + H
real*4 Rate12_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^5^P*) + H
real*4 Rate13_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^S ) + H
real*4 Rate14_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^S ) + H
real*4 Rate15_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^D ) + H
real*4 Rate16_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^5^F*) + H
real*4 Rate17_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^D ) + H
real*4 Rate18_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^7^P*) + H
real*4 Rate19_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(v ^5^P*) + H
real*4 Rate20_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^S ) + H
real*4 Rate21_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^S ) + H
real*4 Rate22_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^7^F*) + H
real*4 Rate23_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^F*) + H
real*4 Rate24_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^D ) + H
real*4 Rate25_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^D ) + H
real*4 Rate26_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^G ) + H
real*4 Rate27_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^I ) + H
real*4 Rate28_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^D ) + H
real*4 Rate29_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^7^S ) + H
real*4 Rate30_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^7^F*) + H
real*4 Rate31_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^F*) + H
real*4 Rate32_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^S ) + H
real*4 Rate33_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^G ) + H
real*4 Rate34_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^G ) + H
real*4 Rate35_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^7^D ) + H
real*4 Rate36_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(s ^5^F*) + H
real*4 Rate37_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(h ^7^S ) + H
real*4 Rate38_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^7^F*) + H
real*4 Rate39_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^G ) + H
real*4 Rate40_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^G ) + H
real*4 Rate41_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^F*) + H
real*4 Rate42_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnII(h ^5^D ) + H
real*4 Rate43_12 (nr__12) ! (cm+3/s) Rate coefficient for transition
* to MnIII + H^-^
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'rii4000.dat' ! MnH+ model rate coefficients at T=4000K
integer*4 nr__13
parameter (nr__13=43) ! Number of records
character*442 ar__13 ! Full-size record
character*12 RateIni_13 (nr__13) ! initial state of MnII in collisions
* with H or ionic state
real*4 Rate1_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^7^S ) + H
real*4 Rate2_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^S ) + H
real*4 Rate3_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^D ) + H
real*4 Rate4_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^G ) + H
real*4 Rate5_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(b ^5^D ) + H
real*4 Rate6_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^7^P*) + H
real*4 Rate7_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^P*) + H
real*4 Rate8_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^H*) + H
real*4 Rate9_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^F*) + H
real*4 Rate10_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^5^P*) + H
real*4 Rate11_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^5^F*) + H
real*4 Rate12_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^5^P*) + H
real*4 Rate13_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^S ) + H
real*4 Rate14_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^S ) + H
real*4 Rate15_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^D ) + H
real*4 Rate16_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^5^F*) + H
real*4 Rate17_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^D ) + H
real*4 Rate18_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^7^P*) + H
real*4 Rate19_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(v ^5^P*) + H
real*4 Rate20_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^S ) + H
real*4 Rate21_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^S ) + H
real*4 Rate22_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^7^F*) + H
real*4 Rate23_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^F*) + H
real*4 Rate24_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^D ) + H
real*4 Rate25_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^D ) + H
real*4 Rate26_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^G ) + H
real*4 Rate27_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^I ) + H
real*4 Rate28_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^D ) + H
real*4 Rate29_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^7^S ) + H
real*4 Rate30_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^7^F*) + H
real*4 Rate31_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^F*) + H
real*4 Rate32_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^S ) + H
real*4 Rate33_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^G ) + H
real*4 Rate34_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^G ) + H
real*4 Rate35_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^7^D ) + H
real*4 Rate36_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(s ^5^F*) + H
real*4 Rate37_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(h ^7^S ) + H
real*4 Rate38_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^7^F*) + H
real*4 Rate39_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^G ) + H
real*4 Rate40_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^G ) + H
real*4 Rate41_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^F*) + H
real*4 Rate42_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnII(h ^5^D ) + H
real*4 Rate43_13 (nr__13) ! (cm+3/s) Rate coefficient for transition
* to MnIII + H^-^
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'rii5000.dat' ! MnH+ model rate coefficients at T=5000K
integer*4 nr__14
parameter (nr__14=43) ! Number of records
character*442 ar__14 ! Full-size record
character*12 RateIni_14 (nr__14) ! initial state of MnII in collisions
* with H or ionic state
real*4 Rate1_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^7^S ) + H
real*4 Rate2_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^S ) + H
real*4 Rate3_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^D ) + H
real*4 Rate4_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^G ) + H
real*4 Rate5_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(b ^5^D ) + H
real*4 Rate6_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^7^P*) + H
real*4 Rate7_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^P*) + H
real*4 Rate8_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^H*) + H
real*4 Rate9_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^F*) + H
real*4 Rate10_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^5^P*) + H
real*4 Rate11_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^5^F*) + H
real*4 Rate12_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^5^P*) + H
real*4 Rate13_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^S ) + H
real*4 Rate14_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^S ) + H
real*4 Rate15_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^D ) + H
real*4 Rate16_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^5^F*) + H
real*4 Rate17_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^D ) + H
real*4 Rate18_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^7^P*) + H
real*4 Rate19_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(v ^5^P*) + H
real*4 Rate20_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^S ) + H
real*4 Rate21_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^S ) + H
real*4 Rate22_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^7^F*) + H
real*4 Rate23_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^F*) + H
real*4 Rate24_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^D ) + H
real*4 Rate25_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^D ) + H
real*4 Rate26_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^G ) + H
real*4 Rate27_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^I ) + H
real*4 Rate28_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^D ) + H
real*4 Rate29_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^7^S ) + H
real*4 Rate30_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^7^F*) + H
real*4 Rate31_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^F*) + H
real*4 Rate32_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^S ) + H
real*4 Rate33_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^G ) + H
real*4 Rate34_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^G ) + H
real*4 Rate35_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^7^D ) + H
real*4 Rate36_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(s ^5^F*) + H
real*4 Rate37_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(h ^7^S ) + H
real*4 Rate38_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^7^F*) + H
real*4 Rate39_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^G ) + H
real*4 Rate40_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^G ) + H
real*4 Rate41_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^F*) + H
real*4 Rate42_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnII(h ^5^D ) + H
real*4 Rate43_14 (nr__14) ! (cm+3/s) Rate coefficient for transition
* to MnIII + H^-^
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'rii6000.dat' ! MnH+ model rate coefficients at T=6000K
integer*4 nr__15
parameter (nr__15=43) ! Number of records
character*442 ar__15 ! Full-size record
character*12 RateIni_15 (nr__15) ! initial state of MnII in collisions
* with H or ionic state
real*4 Rate1_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^7^S ) + H
real*4 Rate2_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^S ) + H
real*4 Rate3_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^D ) + H
real*4 Rate4_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^G ) + H
real*4 Rate5_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(b ^5^D ) + H
real*4 Rate6_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^7^P*) + H
real*4 Rate7_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^P*) + H
real*4 Rate8_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^H*) + H
real*4 Rate9_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^F*) + H
real*4 Rate10_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^5^P*) + H
real*4 Rate11_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^5^F*) + H
real*4 Rate12_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^5^P*) + H
real*4 Rate13_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^S ) + H
real*4 Rate14_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^S ) + H
real*4 Rate15_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^D ) + H
real*4 Rate16_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^5^F*) + H
real*4 Rate17_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^D ) + H
real*4 Rate18_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^7^P*) + H
real*4 Rate19_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(v ^5^P*) + H
real*4 Rate20_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^S ) + H
real*4 Rate21_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^S ) + H
real*4 Rate22_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^7^F*) + H
real*4 Rate23_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^F*) + H
real*4 Rate24_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^D ) + H
real*4 Rate25_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^D ) + H
real*4 Rate26_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^G ) + H
real*4 Rate27_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^I ) + H
real*4 Rate28_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^D ) + H
real*4 Rate29_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^7^S ) + H
real*4 Rate30_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^7^F*) + H
real*4 Rate31_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^F*) + H
real*4 Rate32_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^S ) + H
real*4 Rate33_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^G ) + H
real*4 Rate34_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^G ) + H
real*4 Rate35_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^7^D ) + H
real*4 Rate36_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(s ^5^F*) + H
real*4 Rate37_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(h ^7^S ) + H
real*4 Rate38_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^7^F*) + H
real*4 Rate39_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^G ) + H
real*4 Rate40_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^G ) + H
real*4 Rate41_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^F*) + H
real*4 Rate42_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnII(h ^5^D ) + H
real*4 Rate43_15 (nr__15) ! (cm+3/s) Rate coefficient for transition
* to MnIII + H^-^
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'rii7000.dat' ! MnH+ model rate coefficients at T=7000K
integer*4 nr__16
parameter (nr__16=43) ! Number of records
character*442 ar__16 ! Full-size record
character*12 RateIni_16 (nr__16) ! initial state of MnII in collisions
* with H or ionic state
real*4 Rate1_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^7^S ) + H
real*4 Rate2_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^S ) + H
real*4 Rate3_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^D ) + H
real*4 Rate4_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^G ) + H
real*4 Rate5_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(b ^5^D ) + H
real*4 Rate6_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^7^P*) + H
real*4 Rate7_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^P*) + H
real*4 Rate8_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^H*) + H
real*4 Rate9_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^F*) + H
real*4 Rate10_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^5^P*) + H
real*4 Rate11_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^5^F*) + H
real*4 Rate12_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^5^P*) + H
real*4 Rate13_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^S ) + H
real*4 Rate14_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^S ) + H
real*4 Rate15_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^D ) + H
real*4 Rate16_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^5^F*) + H
real*4 Rate17_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^D ) + H
real*4 Rate18_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^7^P*) + H
real*4 Rate19_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(v ^5^P*) + H
real*4 Rate20_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^S ) + H
real*4 Rate21_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^S ) + H
real*4 Rate22_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^7^F*) + H
real*4 Rate23_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^F*) + H
real*4 Rate24_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^D ) + H
real*4 Rate25_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^D ) + H
real*4 Rate26_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^G ) + H
real*4 Rate27_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^I ) + H
real*4 Rate28_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^D ) + H
real*4 Rate29_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^7^S ) + H
real*4 Rate30_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^7^F*) + H
real*4 Rate31_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^F*) + H
real*4 Rate32_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^S ) + H
real*4 Rate33_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^G ) + H
real*4 Rate34_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^G ) + H
real*4 Rate35_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^7^D ) + H
real*4 Rate36_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(s ^5^F*) + H
real*4 Rate37_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(h ^7^S ) + H
real*4 Rate38_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^7^F*) + H
real*4 Rate39_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^G ) + H
real*4 Rate40_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^G ) + H
real*4 Rate41_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^F*) + H
real*4 Rate42_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnII(h ^5^D ) + H
real*4 Rate43_16 (nr__16) ! (cm+3/s) Rate coefficient for transition
* to MnIII + H^-^
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'rii8000.dat' ! MnH+ model rate coefficients at T=8000K
integer*4 nr__17
parameter (nr__17=43) ! Number of records
character*442 ar__17 ! Full-size record
character*12 RateIni_17 (nr__17) ! initial state of MnII in collisions
* with H or ionic state
real*4 Rate1_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^7^S ) + H
real*4 Rate2_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^S ) + H
real*4 Rate3_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^D ) + H
real*4 Rate4_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^G ) + H
real*4 Rate5_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(b ^5^D ) + H
real*4 Rate6_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^7^P*) + H
real*4 Rate7_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^P*) + H
real*4 Rate8_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^H*) + H
real*4 Rate9_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^F*) + H
real*4 Rate10_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^5^P*) + H
real*4 Rate11_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^5^F*) + H
real*4 Rate12_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^5^P*) + H
real*4 Rate13_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^S ) + H
real*4 Rate14_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^S ) + H
real*4 Rate15_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^D ) + H
real*4 Rate16_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^5^F*) + H
real*4 Rate17_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^D ) + H
real*4 Rate18_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^7^P*) + H
real*4 Rate19_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(v ^5^P*) + H
real*4 Rate20_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^S ) + H
real*4 Rate21_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^S ) + H
real*4 Rate22_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^7^F*) + H
real*4 Rate23_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^F*) + H
real*4 Rate24_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^D ) + H
real*4 Rate25_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^D ) + H
real*4 Rate26_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^G ) + H
real*4 Rate27_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^I ) + H
real*4 Rate28_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^D ) + H
real*4 Rate29_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^7^S ) + H
real*4 Rate30_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^7^F*) + H
real*4 Rate31_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^F*) + H
real*4 Rate32_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^S ) + H
real*4 Rate33_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^G ) + H
real*4 Rate34_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^G ) + H
real*4 Rate35_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^7^D ) + H
real*4 Rate36_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(s ^5^F*) + H
real*4 Rate37_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(h ^7^S ) + H
real*4 Rate38_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^7^F*) + H
real*4 Rate39_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^G ) + H
real*4 Rate40_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^G ) + H
real*4 Rate41_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^F*) + H
real*4 Rate42_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnII(h ^5^D ) + H
real*4 Rate43_17 (nr__17) ! (cm+3/s) Rate coefficient for transition
* to MnIII + H^-^
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'rii9000.dat' ! MnH+ model rate coefficients at T=9000K
integer*4 nr__18
parameter (nr__18=43) ! Number of records
character*442 ar__18 ! Full-size record
character*12 RateIni_18 (nr__18) ! initial state of MnII in collisions
* with H or ionic state
real*4 Rate1_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^7^S ) + H
real*4 Rate2_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^S ) + H
real*4 Rate3_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^D ) + H
real*4 Rate4_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^G ) + H
real*4 Rate5_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(b ^5^D ) + H
real*4 Rate6_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^7^P*) + H
real*4 Rate7_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^P*) + H
real*4 Rate8_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^H*) + H
real*4 Rate9_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^F*) + H
real*4 Rate10_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^5^P*) + H
real*4 Rate11_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^5^F*) + H
real*4 Rate12_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^5^P*) + H
real*4 Rate13_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^S ) + H
real*4 Rate14_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^S ) + H
real*4 Rate15_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^D ) + H
real*4 Rate16_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^5^F*) + H
real*4 Rate17_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^D ) + H
real*4 Rate18_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^7^P*) + H
real*4 Rate19_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(v ^5^P*) + H
real*4 Rate20_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^S ) + H
real*4 Rate21_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^S ) + H
real*4 Rate22_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^7^F*) + H
real*4 Rate23_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^F*) + H
real*4 Rate24_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^D ) + H
real*4 Rate25_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^D ) + H
real*4 Rate26_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^G ) + H
real*4 Rate27_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^I ) + H
real*4 Rate28_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^D ) + H
real*4 Rate29_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^7^S ) + H
real*4 Rate30_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^7^F*) + H
real*4 Rate31_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^F*) + H
real*4 Rate32_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^S ) + H
real*4 Rate33_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^G ) + H
real*4 Rate34_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^G ) + H
real*4 Rate35_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^7^D ) + H
real*4 Rate36_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(s ^5^F*) + H
real*4 Rate37_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(h ^7^S ) + H
real*4 Rate38_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^7^F*) + H
real*4 Rate39_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^G ) + H
real*4 Rate40_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^G ) + H
real*4 Rate41_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^F*) + H
real*4 Rate42_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnII(h ^5^D ) + H
real*4 Rate43_18 (nr__18) ! (cm+3/s) Rate coefficient for transition
* to MnIII + H^-^
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'rii10000.dat' ! MnH+ model rate coefficients at T=10000K
integer*4 nr__19
parameter (nr__19=43) ! Number of records
character*442 ar__19 ! Full-size record
character*12 RateIni_19 (nr__19) ! initial state of MnII in collisions
* with H or ionic state
real*4 Rate1_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^7^S ) + H
real*4 Rate2_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^S ) + H
real*4 Rate3_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^D ) + H
real*4 Rate4_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(a ^5^G ) + H
real*4 Rate5_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(b ^5^D ) + H
real*4 Rate6_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^7^P*) + H
real*4 Rate7_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^P*) + H
real*4 Rate8_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^H*) + H
real*4 Rate9_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^5^F*) + H
real*4 Rate10_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^5^P*) + H
real*4 Rate11_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^5^F*) + H
real*4 Rate12_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^5^P*) + H
real*4 Rate13_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^S ) + H
real*4 Rate14_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^S ) + H
real*4 Rate15_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^D ) + H
real*4 Rate16_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^5^F*) + H
real*4 Rate17_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^D ) + H
real*4 Rate18_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^7^P*) + H
real*4 Rate19_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(v ^5^P*) + H
real*4 Rate20_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^S ) + H
real*4 Rate21_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^S ) + H
real*4 Rate22_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(z ^7^F*) + H
real*4 Rate23_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^F*) + H
real*4 Rate24_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^D ) + H
real*4 Rate25_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^D ) + H
real*4 Rate26_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^G ) + H
real*4 Rate27_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^5^I ) + H
real*4 Rate28_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^D ) + H
real*4 Rate29_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^7^S ) + H
real*4 Rate30_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(y ^7^F*) + H
real*4 Rate31_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^F*) + H
real*4 Rate32_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^S ) + H
real*4 Rate33_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(e ^7^G ) + H
real*4 Rate34_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^5^G ) + H
real*4 Rate35_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^7^D ) + H
real*4 Rate36_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(s ^5^F*) + H
real*4 Rate37_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(h ^7^S ) + H
real*4 Rate38_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(x ^7^F*) + H
real*4 Rate39_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(f ^7^G ) + H
real*4 Rate40_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^G ) + H
real*4 Rate41_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(g ^5^F*) + H
real*4 Rate42_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnII(h ^5^D ) + H
real*4 Rate43_19 (nr__19) ! (cm+3/s) Rate coefficient for transition
* to MnIII + H^-^
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'xsectdbl.dat' ! Total photoionization cross section for MnI levels
integer*4 nr__20
parameter (nr__20=323200) ! Number of records
character*53 ar__20 ! Full-size record
integer*4 v2S_1 (nr__20) ! State's multiplicity (2S+1)
integer*4 L (nr__20) ! State's orbital angular momentum (L)
integer*4 P (nr__20) ! State's parity
integer*4 CF (nr__20) ! Configuration number
real*4 E0 (nr__20) ! (Ry) State's energy relative to the ground state
* of Mn^+^
integer*4 N (nr__20) ! Number of energies in the cross section
real*4 Eph (nr__20) ! (Ry) ? Photon energy
real*4 PCR (nr__20) ! ? Photoionization cross section (Mb)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'xsectoct.dat' ! Total photoionization cross section for MnI levels
integer*4 nr__21
parameter (nr__21=207072) ! Number of records
character*53 ar__21 ! Full-size record
integer*4 v2S_1_1 (nr__21) ! State's multiplicity (2S+1)
integer*4 L_1 (nr__21) ! State's orbital angular momentum (L)
integer*4 P_1 (nr__21) ! State's parity
integer*4 CF_1 (nr__21) ! Configuration number
real*4 E0_1 (nr__21) ! (Ry) State's energy relative to the ground state
* of Mn^+^
integer*4 N_1 (nr__21) ! Number of energies in the cross section
real*4 Eph_1 (nr__21) ! (Ry) ? Photon energy
real*4 PCR_1 (nr__21) ! ? Photoionization cross section (Mb)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'xsectqrt.dat' ! Total photoionization cross section for MnI levels
integer*4 nr__22
parameter (nr__22=272710) ! Number of records
character*53 ar__22 ! Full-size record
integer*4 v2S_1_2 (nr__22) ! State's multiplicity (2S+1)
integer*4 L_2 (nr__22) ! State's orbital angular momentum (L)
integer*4 P_2 (nr__22) ! State's parity
integer*4 CF_2 (nr__22) ! Configuration number
real*4 E0_2 (nr__22) ! (Ry) State's energy relative to the ground state
* of Mn^+^
integer*4 N_2 (nr__22) ! Number of energies in the cross section
real*4 Eph_2 (nr__22) ! (Ry) ? Photon energy
real*4 PCR_2 (nr__22) ! ? Photoionization cross section (Mb)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'xsectsxt.dat' ! Total photoionization cross section for MnI levels
integer*4 nr__23
parameter (nr__23=563601) ! Number of records
character*53 ar__23 ! Full-size record
integer*4 v2S_1_3 (nr__23) ! State's multiplicity (2S+1)
integer*4 L_3 (nr__23) ! State's orbital angular momentum (L)
integer*4 P_3 (nr__23) ! State's parity
integer*4 CF_3 (nr__23) ! Configuration number
real*4 E0_3 (nr__23) ! (Ry) State's energy relative to the ground state
* of Mn^+^
integer*4 N_3 (nr__23) ! Number of energies in the cross section
real*4 Eph_3 (nr__23) ! (Ry) ? Photon energy
real*4 PCR_3 (nr__23) ! ? Photoionization cross section (Mb)
C=============================================================================
C Loading file 'ri1000.dat' ! MnH model rate coefficients at T=1000K
C Format for file interpretation
1 format(
+ A13,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,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=
+'ri1000.dat')
write(6,*) '....Loading file: ri1000.dat'
do i__=1,72
read(1,'(A733)')ar__
read(ar__,1)
+ RateIni(i__),Rate1(i__),Rate2(i__),Rate3(i__),Rate4(i__),
+ Rate5(i__),Rate6(i__),Rate7(i__),Rate8(i__),Rate9(i__),
+ Rate10(i__),Rate11(i__),Rate12(i__),Rate13(i__),Rate14(i__),
+ Rate15(i__),Rate16(i__),Rate17(i__),Rate18(i__),Rate19(i__),
+ Rate20(i__),Rate21(i__),Rate22(i__),Rate23(i__),Rate24(i__),
+ Rate25(i__),Rate26(i__),Rate27(i__),Rate28(i__),Rate29(i__),
+ Rate30(i__),Rate31(i__),Rate32(i__),Rate33(i__),Rate34(i__),
+ Rate35(i__),Rate36(i__),Rate37(i__),Rate38(i__),Rate39(i__),
+ Rate40(i__),Rate41(i__),Rate42(i__),Rate43(i__),Rate44(i__),
+ Rate45(i__),Rate46(i__),Rate47(i__),Rate48(i__),Rate49(i__),
+ Rate50(i__),Rate51(i__),Rate52(i__),Rate53(i__),Rate54(i__),
+ Rate55(i__),Rate56(i__),Rate57(i__),Rate58(i__),Rate59(i__),
+ Rate60(i__),Rate61(i__),Rate62(i__),Rate63(i__),Rate64(i__),
+ Rate65(i__),Rate66(i__),Rate67(i__),Rate68(i__),Rate69(i__),
+ Rate70(i__),Rate71(i__),Rate72(i__)
c ..............Just test output...........
write(6,1)
+ RateIni(i__),Rate1(i__),Rate2(i__),Rate3(i__),Rate4(i__),
+ Rate5(i__),Rate6(i__),Rate7(i__),Rate8(i__),Rate9(i__),
+ Rate10(i__),Rate11(i__),Rate12(i__),Rate13(i__),Rate14(i__),
+ Rate15(i__),Rate16(i__),Rate17(i__),Rate18(i__),Rate19(i__),
+ Rate20(i__),Rate21(i__),Rate22(i__),Rate23(i__),Rate24(i__),
+ Rate25(i__),Rate26(i__),Rate27(i__),Rate28(i__),Rate29(i__),
+ Rate30(i__),Rate31(i__),Rate32(i__),Rate33(i__),Rate34(i__),
+ Rate35(i__),Rate36(i__),Rate37(i__),Rate38(i__),Rate39(i__),
+ Rate40(i__),Rate41(i__),Rate42(i__),Rate43(i__),Rate44(i__),
+ Rate45(i__),Rate46(i__),Rate47(i__),Rate48(i__),Rate49(i__),
+ Rate50(i__),Rate51(i__),Rate52(i__),Rate53(i__),Rate54(i__),
+ Rate55(i__),Rate56(i__),Rate57(i__),Rate58(i__),Rate59(i__),
+ Rate60(i__),Rate61(i__),Rate62(i__),Rate63(i__),Rate64(i__),
+ Rate65(i__),Rate66(i__),Rate67(i__),Rate68(i__),Rate69(i__),
+ Rate70(i__),Rate71(i__),Rate72(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ri2000.dat' ! MnH model rate coefficients at T=2000K
C Format for file interpretation
2 format(
+ A13,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,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=
+'ri2000.dat')
write(6,*) '....Loading file: ri2000.dat'
do i__=1,72
read(1,'(A733)')ar__1
read(ar__1,2)
+ RateIni_1(i__),Rate1_1(i__),Rate2_1(i__),Rate3_1(i__),
+ Rate4_1(i__),Rate5_1(i__),Rate6_1(i__),Rate7_1(i__),
+ Rate8_1(i__),Rate9_1(i__),Rate10_1(i__),Rate11_1(i__),
+ Rate12_1(i__),Rate13_1(i__),Rate14_1(i__),Rate15_1(i__),
+ Rate16_1(i__),Rate17_1(i__),Rate18_1(i__),Rate19_1(i__),
+ Rate20_1(i__),Rate21_1(i__),Rate22_1(i__),Rate23_1(i__),
+ Rate24_1(i__),Rate25_1(i__),Rate26_1(i__),Rate27_1(i__),
+ Rate28_1(i__),Rate29_1(i__),Rate30_1(i__),Rate31_1(i__),
+ Rate32_1(i__),Rate33_1(i__),Rate34_1(i__),Rate35_1(i__),
+ Rate36_1(i__),Rate37_1(i__),Rate38_1(i__),Rate39_1(i__),
+ Rate40_1(i__),Rate41_1(i__),Rate42_1(i__),Rate43_1(i__),
+ Rate44_1(i__),Rate45_1(i__),Rate46_1(i__),Rate47_1(i__),
+ Rate48_1(i__),Rate49_1(i__),Rate50_1(i__),Rate51_1(i__),
+ Rate52_1(i__),Rate53_1(i__),Rate54_1(i__),Rate55_1(i__),
+ Rate56_1(i__),Rate57_1(i__),Rate58_1(i__),Rate59_1(i__),
+ Rate60_1(i__),Rate61_1(i__),Rate62_1(i__),Rate63_1(i__),
+ Rate64_1(i__),Rate65_1(i__),Rate66_1(i__),Rate67_1(i__),
+ Rate68_1(i__),Rate69_1(i__),Rate70_1(i__),Rate71_1(i__),
+ Rate72_1(i__)
c ..............Just test output...........
write(6,2)
+ RateIni_1(i__),Rate1_1(i__),Rate2_1(i__),Rate3_1(i__),
+ Rate4_1(i__),Rate5_1(i__),Rate6_1(i__),Rate7_1(i__),
+ Rate8_1(i__),Rate9_1(i__),Rate10_1(i__),Rate11_1(i__),
+ Rate12_1(i__),Rate13_1(i__),Rate14_1(i__),Rate15_1(i__),
+ Rate16_1(i__),Rate17_1(i__),Rate18_1(i__),Rate19_1(i__),
+ Rate20_1(i__),Rate21_1(i__),Rate22_1(i__),Rate23_1(i__),
+ Rate24_1(i__),Rate25_1(i__),Rate26_1(i__),Rate27_1(i__),
+ Rate28_1(i__),Rate29_1(i__),Rate30_1(i__),Rate31_1(i__),
+ Rate32_1(i__),Rate33_1(i__),Rate34_1(i__),Rate35_1(i__),
+ Rate36_1(i__),Rate37_1(i__),Rate38_1(i__),Rate39_1(i__),
+ Rate40_1(i__),Rate41_1(i__),Rate42_1(i__),Rate43_1(i__),
+ Rate44_1(i__),Rate45_1(i__),Rate46_1(i__),Rate47_1(i__),
+ Rate48_1(i__),Rate49_1(i__),Rate50_1(i__),Rate51_1(i__),
+ Rate52_1(i__),Rate53_1(i__),Rate54_1(i__),Rate55_1(i__),
+ Rate56_1(i__),Rate57_1(i__),Rate58_1(i__),Rate59_1(i__),
+ Rate60_1(i__),Rate61_1(i__),Rate62_1(i__),Rate63_1(i__),
+ Rate64_1(i__),Rate65_1(i__),Rate66_1(i__),Rate67_1(i__),
+ Rate68_1(i__),Rate69_1(i__),Rate70_1(i__),Rate71_1(i__),
+ Rate72_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ri3000.dat' ! MnH model rate coefficients at T=3000K
C Format for file interpretation
3 format(
+ A13,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,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=
+'ri3000.dat')
write(6,*) '....Loading file: ri3000.dat'
do i__=1,72
read(1,'(A733)')ar__2
read(ar__2,3)
+ RateIni_2(i__),Rate1_2(i__),Rate2_2(i__),Rate3_2(i__),
+ Rate4_2(i__),Rate5_2(i__),Rate6_2(i__),Rate7_2(i__),
+ Rate8_2(i__),Rate9_2(i__),Rate10_2(i__),Rate11_2(i__),
+ Rate12_2(i__),Rate13_2(i__),Rate14_2(i__),Rate15_2(i__),
+ Rate16_2(i__),Rate17_2(i__),Rate18_2(i__),Rate19_2(i__),
+ Rate20_2(i__),Rate21_2(i__),Rate22_2(i__),Rate23_2(i__),
+ Rate24_2(i__),Rate25_2(i__),Rate26_2(i__),Rate27_2(i__),
+ Rate28_2(i__),Rate29_2(i__),Rate30_2(i__),Rate31_2(i__),
+ Rate32_2(i__),Rate33_2(i__),Rate34_2(i__),Rate35_2(i__),
+ Rate36_2(i__),Rate37_2(i__),Rate38_2(i__),Rate39_2(i__),
+ Rate40_2(i__),Rate41_2(i__),Rate42_2(i__),Rate43_2(i__),
+ Rate44_2(i__),Rate45_2(i__),Rate46_2(i__),Rate47_2(i__),
+ Rate48_2(i__),Rate49_2(i__),Rate50_2(i__),Rate51_2(i__),
+ Rate52_2(i__),Rate53_2(i__),Rate54_2(i__),Rate55_2(i__),
+ Rate56_2(i__),Rate57_2(i__),Rate58_2(i__),Rate59_2(i__),
+ Rate60_2(i__),Rate61_2(i__),Rate62_2(i__),Rate63_2(i__),
+ Rate64_2(i__),Rate65_2(i__),Rate66_2(i__),Rate67_2(i__),
+ Rate68_2(i__),Rate69_2(i__),Rate70_2(i__),Rate71_2(i__),
+ Rate72_2(i__)
c ..............Just test output...........
write(6,3)
+ RateIni_2(i__),Rate1_2(i__),Rate2_2(i__),Rate3_2(i__),
+ Rate4_2(i__),Rate5_2(i__),Rate6_2(i__),Rate7_2(i__),
+ Rate8_2(i__),Rate9_2(i__),Rate10_2(i__),Rate11_2(i__),
+ Rate12_2(i__),Rate13_2(i__),Rate14_2(i__),Rate15_2(i__),
+ Rate16_2(i__),Rate17_2(i__),Rate18_2(i__),Rate19_2(i__),
+ Rate20_2(i__),Rate21_2(i__),Rate22_2(i__),Rate23_2(i__),
+ Rate24_2(i__),Rate25_2(i__),Rate26_2(i__),Rate27_2(i__),
+ Rate28_2(i__),Rate29_2(i__),Rate30_2(i__),Rate31_2(i__),
+ Rate32_2(i__),Rate33_2(i__),Rate34_2(i__),Rate35_2(i__),
+ Rate36_2(i__),Rate37_2(i__),Rate38_2(i__),Rate39_2(i__),
+ Rate40_2(i__),Rate41_2(i__),Rate42_2(i__),Rate43_2(i__),
+ Rate44_2(i__),Rate45_2(i__),Rate46_2(i__),Rate47_2(i__),
+ Rate48_2(i__),Rate49_2(i__),Rate50_2(i__),Rate51_2(i__),
+ Rate52_2(i__),Rate53_2(i__),Rate54_2(i__),Rate55_2(i__),
+ Rate56_2(i__),Rate57_2(i__),Rate58_2(i__),Rate59_2(i__),
+ Rate60_2(i__),Rate61_2(i__),Rate62_2(i__),Rate63_2(i__),
+ Rate64_2(i__),Rate65_2(i__),Rate66_2(i__),Rate67_2(i__),
+ Rate68_2(i__),Rate69_2(i__),Rate70_2(i__),Rate71_2(i__),
+ Rate72_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ri4000.dat' ! MnH model rate coefficients at T=4000K
C Format for file interpretation
4 format(
+ A13,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,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=
+'ri4000.dat')
write(6,*) '....Loading file: ri4000.dat'
do i__=1,72
read(1,'(A733)')ar__3
read(ar__3,4)
+ RateIni_3(i__),Rate1_3(i__),Rate2_3(i__),Rate3_3(i__),
+ Rate4_3(i__),Rate5_3(i__),Rate6_3(i__),Rate7_3(i__),
+ Rate8_3(i__),Rate9_3(i__),Rate10_3(i__),Rate11_3(i__),
+ Rate12_3(i__),Rate13_3(i__),Rate14_3(i__),Rate15_3(i__),
+ Rate16_3(i__),Rate17_3(i__),Rate18_3(i__),Rate19_3(i__),
+ Rate20_3(i__),Rate21_3(i__),Rate22_3(i__),Rate23_3(i__),
+ Rate24_3(i__),Rate25_3(i__),Rate26_3(i__),Rate27_3(i__),
+ Rate28_3(i__),Rate29_3(i__),Rate30_3(i__),Rate31_3(i__),
+ Rate32_3(i__),Rate33_3(i__),Rate34_3(i__),Rate35_3(i__),
+ Rate36_3(i__),Rate37_3(i__),Rate38_3(i__),Rate39_3(i__),
+ Rate40_3(i__),Rate41_3(i__),Rate42_3(i__),Rate43_3(i__),
+ Rate44_3(i__),Rate45_3(i__),Rate46_3(i__),Rate47_3(i__),
+ Rate48_3(i__),Rate49_3(i__),Rate50_3(i__),Rate51_3(i__),
+ Rate52_3(i__),Rate53_3(i__),Rate54_3(i__),Rate55_3(i__),
+ Rate56_3(i__),Rate57_3(i__),Rate58_3(i__),Rate59_3(i__),
+ Rate60_3(i__),Rate61_3(i__),Rate62_3(i__),Rate63_3(i__),
+ Rate64_3(i__),Rate65_3(i__),Rate66_3(i__),Rate67_3(i__),
+ Rate68_3(i__),Rate69_3(i__),Rate70_3(i__),Rate71_3(i__),
+ Rate72_3(i__)
c ..............Just test output...........
write(6,4)
+ RateIni_3(i__),Rate1_3(i__),Rate2_3(i__),Rate3_3(i__),
+ Rate4_3(i__),Rate5_3(i__),Rate6_3(i__),Rate7_3(i__),
+ Rate8_3(i__),Rate9_3(i__),Rate10_3(i__),Rate11_3(i__),
+ Rate12_3(i__),Rate13_3(i__),Rate14_3(i__),Rate15_3(i__),
+ Rate16_3(i__),Rate17_3(i__),Rate18_3(i__),Rate19_3(i__),
+ Rate20_3(i__),Rate21_3(i__),Rate22_3(i__),Rate23_3(i__),
+ Rate24_3(i__),Rate25_3(i__),Rate26_3(i__),Rate27_3(i__),
+ Rate28_3(i__),Rate29_3(i__),Rate30_3(i__),Rate31_3(i__),
+ Rate32_3(i__),Rate33_3(i__),Rate34_3(i__),Rate35_3(i__),
+ Rate36_3(i__),Rate37_3(i__),Rate38_3(i__),Rate39_3(i__),
+ Rate40_3(i__),Rate41_3(i__),Rate42_3(i__),Rate43_3(i__),
+ Rate44_3(i__),Rate45_3(i__),Rate46_3(i__),Rate47_3(i__),
+ Rate48_3(i__),Rate49_3(i__),Rate50_3(i__),Rate51_3(i__),
+ Rate52_3(i__),Rate53_3(i__),Rate54_3(i__),Rate55_3(i__),
+ Rate56_3(i__),Rate57_3(i__),Rate58_3(i__),Rate59_3(i__),
+ Rate60_3(i__),Rate61_3(i__),Rate62_3(i__),Rate63_3(i__),
+ Rate64_3(i__),Rate65_3(i__),Rate66_3(i__),Rate67_3(i__),
+ Rate68_3(i__),Rate69_3(i__),Rate70_3(i__),Rate71_3(i__),
+ Rate72_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ri5000.dat' ! MnH model rate coefficients at T=5000K
C Format for file interpretation
5 format(
+ A13,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,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=
+'ri5000.dat')
write(6,*) '....Loading file: ri5000.dat'
do i__=1,72
read(1,'(A733)')ar__4
read(ar__4,5)
+ RateIni_4(i__),Rate1_4(i__),Rate2_4(i__),Rate3_4(i__),
+ Rate4_4(i__),Rate5_4(i__),Rate6_4(i__),Rate7_4(i__),
+ Rate8_4(i__),Rate9_4(i__),Rate10_4(i__),Rate11_4(i__),
+ Rate12_4(i__),Rate13_4(i__),Rate14_4(i__),Rate15_4(i__),
+ Rate16_4(i__),Rate17_4(i__),Rate18_4(i__),Rate19_4(i__),
+ Rate20_4(i__),Rate21_4(i__),Rate22_4(i__),Rate23_4(i__),
+ Rate24_4(i__),Rate25_4(i__),Rate26_4(i__),Rate27_4(i__),
+ Rate28_4(i__),Rate29_4(i__),Rate30_4(i__),Rate31_4(i__),
+ Rate32_4(i__),Rate33_4(i__),Rate34_4(i__),Rate35_4(i__),
+ Rate36_4(i__),Rate37_4(i__),Rate38_4(i__),Rate39_4(i__),
+ Rate40_4(i__),Rate41_4(i__),Rate42_4(i__),Rate43_4(i__),
+ Rate44_4(i__),Rate45_4(i__),Rate46_4(i__),Rate47_4(i__),
+ Rate48_4(i__),Rate49_4(i__),Rate50_4(i__),Rate51_4(i__),
+ Rate52_4(i__),Rate53_4(i__),Rate54_4(i__),Rate55_4(i__),
+ Rate56_4(i__),Rate57_4(i__),Rate58_4(i__),Rate59_4(i__),
+ Rate60_4(i__),Rate61_4(i__),Rate62_4(i__),Rate63_4(i__),
+ Rate64_4(i__),Rate65_4(i__),Rate66_4(i__),Rate67_4(i__),
+ Rate68_4(i__),Rate69_4(i__),Rate70_4(i__),Rate71_4(i__),
+ Rate72_4(i__)
c ..............Just test output...........
write(6,5)
+ RateIni_4(i__),Rate1_4(i__),Rate2_4(i__),Rate3_4(i__),
+ Rate4_4(i__),Rate5_4(i__),Rate6_4(i__),Rate7_4(i__),
+ Rate8_4(i__),Rate9_4(i__),Rate10_4(i__),Rate11_4(i__),
+ Rate12_4(i__),Rate13_4(i__),Rate14_4(i__),Rate15_4(i__),
+ Rate16_4(i__),Rate17_4(i__),Rate18_4(i__),Rate19_4(i__),
+ Rate20_4(i__),Rate21_4(i__),Rate22_4(i__),Rate23_4(i__),
+ Rate24_4(i__),Rate25_4(i__),Rate26_4(i__),Rate27_4(i__),
+ Rate28_4(i__),Rate29_4(i__),Rate30_4(i__),Rate31_4(i__),
+ Rate32_4(i__),Rate33_4(i__),Rate34_4(i__),Rate35_4(i__),
+ Rate36_4(i__),Rate37_4(i__),Rate38_4(i__),Rate39_4(i__),
+ Rate40_4(i__),Rate41_4(i__),Rate42_4(i__),Rate43_4(i__),
+ Rate44_4(i__),Rate45_4(i__),Rate46_4(i__),Rate47_4(i__),
+ Rate48_4(i__),Rate49_4(i__),Rate50_4(i__),Rate51_4(i__),
+ Rate52_4(i__),Rate53_4(i__),Rate54_4(i__),Rate55_4(i__),
+ Rate56_4(i__),Rate57_4(i__),Rate58_4(i__),Rate59_4(i__),
+ Rate60_4(i__),Rate61_4(i__),Rate62_4(i__),Rate63_4(i__),
+ Rate64_4(i__),Rate65_4(i__),Rate66_4(i__),Rate67_4(i__),
+ Rate68_4(i__),Rate69_4(i__),Rate70_4(i__),Rate71_4(i__),
+ Rate72_4(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ri6000.dat' ! MnH model rate coefficients at T=6000K
C Format for file interpretation
6 format(
+ A13,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,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=
+'ri6000.dat')
write(6,*) '....Loading file: ri6000.dat'
do i__=1,72
read(1,'(A733)')ar__5
read(ar__5,6)
+ RateIni_5(i__),Rate1_5(i__),Rate2_5(i__),Rate3_5(i__),
+ Rate4_5(i__),Rate5_5(i__),Rate6_5(i__),Rate7_5(i__),
+ Rate8_5(i__),Rate9_5(i__),Rate10_5(i__),Rate11_5(i__),
+ Rate12_5(i__),Rate13_5(i__),Rate14_5(i__),Rate15_5(i__),
+ Rate16_5(i__),Rate17_5(i__),Rate18_5(i__),Rate19_5(i__),
+ Rate20_5(i__),Rate21_5(i__),Rate22_5(i__),Rate23_5(i__),
+ Rate24_5(i__),Rate25_5(i__),Rate26_5(i__),Rate27_5(i__),
+ Rate28_5(i__),Rate29_5(i__),Rate30_5(i__),Rate31_5(i__),
+ Rate32_5(i__),Rate33_5(i__),Rate34_5(i__),Rate35_5(i__),
+ Rate36_5(i__),Rate37_5(i__),Rate38_5(i__),Rate39_5(i__),
+ Rate40_5(i__),Rate41_5(i__),Rate42_5(i__),Rate43_5(i__),
+ Rate44_5(i__),Rate45_5(i__),Rate46_5(i__),Rate47_5(i__),
+ Rate48_5(i__),Rate49_5(i__),Rate50_5(i__),Rate51_5(i__),
+ Rate52_5(i__),Rate53_5(i__),Rate54_5(i__),Rate55_5(i__),
+ Rate56_5(i__),Rate57_5(i__),Rate58_5(i__),Rate59_5(i__),
+ Rate60_5(i__),Rate61_5(i__),Rate62_5(i__),Rate63_5(i__),
+ Rate64_5(i__),Rate65_5(i__),Rate66_5(i__),Rate67_5(i__),
+ Rate68_5(i__),Rate69_5(i__),Rate70_5(i__),Rate71_5(i__),
+ Rate72_5(i__)
c ..............Just test output...........
write(6,6)
+ RateIni_5(i__),Rate1_5(i__),Rate2_5(i__),Rate3_5(i__),
+ Rate4_5(i__),Rate5_5(i__),Rate6_5(i__),Rate7_5(i__),
+ Rate8_5(i__),Rate9_5(i__),Rate10_5(i__),Rate11_5(i__),
+ Rate12_5(i__),Rate13_5(i__),Rate14_5(i__),Rate15_5(i__),
+ Rate16_5(i__),Rate17_5(i__),Rate18_5(i__),Rate19_5(i__),
+ Rate20_5(i__),Rate21_5(i__),Rate22_5(i__),Rate23_5(i__),
+ Rate24_5(i__),Rate25_5(i__),Rate26_5(i__),Rate27_5(i__),
+ Rate28_5(i__),Rate29_5(i__),Rate30_5(i__),Rate31_5(i__),
+ Rate32_5(i__),Rate33_5(i__),Rate34_5(i__),Rate35_5(i__),
+ Rate36_5(i__),Rate37_5(i__),Rate38_5(i__),Rate39_5(i__),
+ Rate40_5(i__),Rate41_5(i__),Rate42_5(i__),Rate43_5(i__),
+ Rate44_5(i__),Rate45_5(i__),Rate46_5(i__),Rate47_5(i__),
+ Rate48_5(i__),Rate49_5(i__),Rate50_5(i__),Rate51_5(i__),
+ Rate52_5(i__),Rate53_5(i__),Rate54_5(i__),Rate55_5(i__),
+ Rate56_5(i__),Rate57_5(i__),Rate58_5(i__),Rate59_5(i__),
+ Rate60_5(i__),Rate61_5(i__),Rate62_5(i__),Rate63_5(i__),
+ Rate64_5(i__),Rate65_5(i__),Rate66_5(i__),Rate67_5(i__),
+ Rate68_5(i__),Rate69_5(i__),Rate70_5(i__),Rate71_5(i__),
+ Rate72_5(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ri7000.dat' ! MnH model rate coefficients at T=7000K
C Format for file interpretation
7 format(
+ A13,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,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=
+'ri7000.dat')
write(6,*) '....Loading file: ri7000.dat'
do i__=1,72
read(1,'(A733)')ar__6
read(ar__6,7)
+ RateIni_6(i__),Rate1_6(i__),Rate2_6(i__),Rate3_6(i__),
+ Rate4_6(i__),Rate5_6(i__),Rate6_6(i__),Rate7_6(i__),
+ Rate8_6(i__),Rate9_6(i__),Rate10_6(i__),Rate11_6(i__),
+ Rate12_6(i__),Rate13_6(i__),Rate14_6(i__),Rate15_6(i__),
+ Rate16_6(i__),Rate17_6(i__),Rate18_6(i__),Rate19_6(i__),
+ Rate20_6(i__),Rate21_6(i__),Rate22_6(i__),Rate23_6(i__),
+ Rate24_6(i__),Rate25_6(i__),Rate26_6(i__),Rate27_6(i__),
+ Rate28_6(i__),Rate29_6(i__),Rate30_6(i__),Rate31_6(i__),
+ Rate32_6(i__),Rate33_6(i__),Rate34_6(i__),Rate35_6(i__),
+ Rate36_6(i__),Rate37_6(i__),Rate38_6(i__),Rate39_6(i__),
+ Rate40_6(i__),Rate41_6(i__),Rate42_6(i__),Rate43_6(i__),
+ Rate44_6(i__),Rate45_6(i__),Rate46_6(i__),Rate47_6(i__),
+ Rate48_6(i__),Rate49_6(i__),Rate50_6(i__),Rate51_6(i__),
+ Rate52_6(i__),Rate53_6(i__),Rate54_6(i__),Rate55_6(i__),
+ Rate56_6(i__),Rate57_6(i__),Rate58_6(i__),Rate59_6(i__),
+ Rate60_6(i__),Rate61_6(i__),Rate62_6(i__),Rate63_6(i__),
+ Rate64_6(i__),Rate65_6(i__),Rate66_6(i__),Rate67_6(i__),
+ Rate68_6(i__),Rate69_6(i__),Rate70_6(i__),Rate71_6(i__),
+ Rate72_6(i__)
c ..............Just test output...........
write(6,7)
+ RateIni_6(i__),Rate1_6(i__),Rate2_6(i__),Rate3_6(i__),
+ Rate4_6(i__),Rate5_6(i__),Rate6_6(i__),Rate7_6(i__),
+ Rate8_6(i__),Rate9_6(i__),Rate10_6(i__),Rate11_6(i__),
+ Rate12_6(i__),Rate13_6(i__),Rate14_6(i__),Rate15_6(i__),
+ Rate16_6(i__),Rate17_6(i__),Rate18_6(i__),Rate19_6(i__),
+ Rate20_6(i__),Rate21_6(i__),Rate22_6(i__),Rate23_6(i__),
+ Rate24_6(i__),Rate25_6(i__),Rate26_6(i__),Rate27_6(i__),
+ Rate28_6(i__),Rate29_6(i__),Rate30_6(i__),Rate31_6(i__),
+ Rate32_6(i__),Rate33_6(i__),Rate34_6(i__),Rate35_6(i__),
+ Rate36_6(i__),Rate37_6(i__),Rate38_6(i__),Rate39_6(i__),
+ Rate40_6(i__),Rate41_6(i__),Rate42_6(i__),Rate43_6(i__),
+ Rate44_6(i__),Rate45_6(i__),Rate46_6(i__),Rate47_6(i__),
+ Rate48_6(i__),Rate49_6(i__),Rate50_6(i__),Rate51_6(i__),
+ Rate52_6(i__),Rate53_6(i__),Rate54_6(i__),Rate55_6(i__),
+ Rate56_6(i__),Rate57_6(i__),Rate58_6(i__),Rate59_6(i__),
+ Rate60_6(i__),Rate61_6(i__),Rate62_6(i__),Rate63_6(i__),
+ Rate64_6(i__),Rate65_6(i__),Rate66_6(i__),Rate67_6(i__),
+ Rate68_6(i__),Rate69_6(i__),Rate70_6(i__),Rate71_6(i__),
+ Rate72_6(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ri8000.dat' ! MnH model rate coefficients at T=8000K
C Format for file interpretation
8 format(
+ A13,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,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=
+'ri8000.dat')
write(6,*) '....Loading file: ri8000.dat'
do i__=1,72
read(1,'(A733)')ar__7
read(ar__7,8)
+ RateIni_7(i__),Rate1_7(i__),Rate2_7(i__),Rate3_7(i__),
+ Rate4_7(i__),Rate5_7(i__),Rate6_7(i__),Rate7_7(i__),
+ Rate8_7(i__),Rate9_7(i__),Rate10_7(i__),Rate11_7(i__),
+ Rate12_7(i__),Rate13_7(i__),Rate14_7(i__),Rate15_7(i__),
+ Rate16_7(i__),Rate17_7(i__),Rate18_7(i__),Rate19_7(i__),
+ Rate20_7(i__),Rate21_7(i__),Rate22_7(i__),Rate23_7(i__),
+ Rate24_7(i__),Rate25_7(i__),Rate26_7(i__),Rate27_7(i__),
+ Rate28_7(i__),Rate29_7(i__),Rate30_7(i__),Rate31_7(i__),
+ Rate32_7(i__),Rate33_7(i__),Rate34_7(i__),Rate35_7(i__),
+ Rate36_7(i__),Rate37_7(i__),Rate38_7(i__),Rate39_7(i__),
+ Rate40_7(i__),Rate41_7(i__),Rate42_7(i__),Rate43_7(i__),
+ Rate44_7(i__),Rate45_7(i__),Rate46_7(i__),Rate47_7(i__),
+ Rate48_7(i__),Rate49_7(i__),Rate50_7(i__),Rate51_7(i__),
+ Rate52_7(i__),Rate53_7(i__),Rate54_7(i__),Rate55_7(i__),
+ Rate56_7(i__),Rate57_7(i__),Rate58_7(i__),Rate59_7(i__),
+ Rate60_7(i__),Rate61_7(i__),Rate62_7(i__),Rate63_7(i__),
+ Rate64_7(i__),Rate65_7(i__),Rate66_7(i__),Rate67_7(i__),
+ Rate68_7(i__),Rate69_7(i__),Rate70_7(i__),Rate71_7(i__),
+ Rate72_7(i__)
c ..............Just test output...........
write(6,8)
+ RateIni_7(i__),Rate1_7(i__),Rate2_7(i__),Rate3_7(i__),
+ Rate4_7(i__),Rate5_7(i__),Rate6_7(i__),Rate7_7(i__),
+ Rate8_7(i__),Rate9_7(i__),Rate10_7(i__),Rate11_7(i__),
+ Rate12_7(i__),Rate13_7(i__),Rate14_7(i__),Rate15_7(i__),
+ Rate16_7(i__),Rate17_7(i__),Rate18_7(i__),Rate19_7(i__),
+ Rate20_7(i__),Rate21_7(i__),Rate22_7(i__),Rate23_7(i__),
+ Rate24_7(i__),Rate25_7(i__),Rate26_7(i__),Rate27_7(i__),
+ Rate28_7(i__),Rate29_7(i__),Rate30_7(i__),Rate31_7(i__),
+ Rate32_7(i__),Rate33_7(i__),Rate34_7(i__),Rate35_7(i__),
+ Rate36_7(i__),Rate37_7(i__),Rate38_7(i__),Rate39_7(i__),
+ Rate40_7(i__),Rate41_7(i__),Rate42_7(i__),Rate43_7(i__),
+ Rate44_7(i__),Rate45_7(i__),Rate46_7(i__),Rate47_7(i__),
+ Rate48_7(i__),Rate49_7(i__),Rate50_7(i__),Rate51_7(i__),
+ Rate52_7(i__),Rate53_7(i__),Rate54_7(i__),Rate55_7(i__),
+ Rate56_7(i__),Rate57_7(i__),Rate58_7(i__),Rate59_7(i__),
+ Rate60_7(i__),Rate61_7(i__),Rate62_7(i__),Rate63_7(i__),
+ Rate64_7(i__),Rate65_7(i__),Rate66_7(i__),Rate67_7(i__),
+ Rate68_7(i__),Rate69_7(i__),Rate70_7(i__),Rate71_7(i__),
+ Rate72_7(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ri9000.dat' ! MnH model rate coefficients at T=9000K
C Format for file interpretation
9 format(
+ A13,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,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=
+'ri9000.dat')
write(6,*) '....Loading file: ri9000.dat'
do i__=1,72
read(1,'(A733)')ar__8
read(ar__8,9)
+ RateIni_8(i__),Rate1_8(i__),Rate2_8(i__),Rate3_8(i__),
+ Rate4_8(i__),Rate5_8(i__),Rate6_8(i__),Rate7_8(i__),
+ Rate8_8(i__),Rate9_8(i__),Rate10_8(i__),Rate11_8(i__),
+ Rate12_8(i__),Rate13_8(i__),Rate14_8(i__),Rate15_8(i__),
+ Rate16_8(i__),Rate17_8(i__),Rate18_8(i__),Rate19_8(i__),
+ Rate20_8(i__),Rate21_8(i__),Rate22_8(i__),Rate23_8(i__),
+ Rate24_8(i__),Rate25_8(i__),Rate26_8(i__),Rate27_8(i__),
+ Rate28_8(i__),Rate29_8(i__),Rate30_8(i__),Rate31_8(i__),
+ Rate32_8(i__),Rate33_8(i__),Rate34_8(i__),Rate35_8(i__),
+ Rate36_8(i__),Rate37_8(i__),Rate38_8(i__),Rate39_8(i__),
+ Rate40_8(i__),Rate41_8(i__),Rate42_8(i__),Rate43_8(i__),
+ Rate44_8(i__),Rate45_8(i__),Rate46_8(i__),Rate47_8(i__),
+ Rate48_8(i__),Rate49_8(i__),Rate50_8(i__),Rate51_8(i__),
+ Rate52_8(i__),Rate53_8(i__),Rate54_8(i__),Rate55_8(i__),
+ Rate56_8(i__),Rate57_8(i__),Rate58_8(i__),Rate59_8(i__),
+ Rate60_8(i__),Rate61_8(i__),Rate62_8(i__),Rate63_8(i__),
+ Rate64_8(i__),Rate65_8(i__),Rate66_8(i__),Rate67_8(i__),
+ Rate68_8(i__),Rate69_8(i__),Rate70_8(i__),Rate71_8(i__),
+ Rate72_8(i__)
c ..............Just test output...........
write(6,9)
+ RateIni_8(i__),Rate1_8(i__),Rate2_8(i__),Rate3_8(i__),
+ Rate4_8(i__),Rate5_8(i__),Rate6_8(i__),Rate7_8(i__),
+ Rate8_8(i__),Rate9_8(i__),Rate10_8(i__),Rate11_8(i__),
+ Rate12_8(i__),Rate13_8(i__),Rate14_8(i__),Rate15_8(i__),
+ Rate16_8(i__),Rate17_8(i__),Rate18_8(i__),Rate19_8(i__),
+ Rate20_8(i__),Rate21_8(i__),Rate22_8(i__),Rate23_8(i__),
+ Rate24_8(i__),Rate25_8(i__),Rate26_8(i__),Rate27_8(i__),
+ Rate28_8(i__),Rate29_8(i__),Rate30_8(i__),Rate31_8(i__),
+ Rate32_8(i__),Rate33_8(i__),Rate34_8(i__),Rate35_8(i__),
+ Rate36_8(i__),Rate37_8(i__),Rate38_8(i__),Rate39_8(i__),
+ Rate40_8(i__),Rate41_8(i__),Rate42_8(i__),Rate43_8(i__),
+ Rate44_8(i__),Rate45_8(i__),Rate46_8(i__),Rate47_8(i__),
+ Rate48_8(i__),Rate49_8(i__),Rate50_8(i__),Rate51_8(i__),
+ Rate52_8(i__),Rate53_8(i__),Rate54_8(i__),Rate55_8(i__),
+ Rate56_8(i__),Rate57_8(i__),Rate58_8(i__),Rate59_8(i__),
+ Rate60_8(i__),Rate61_8(i__),Rate62_8(i__),Rate63_8(i__),
+ Rate64_8(i__),Rate65_8(i__),Rate66_8(i__),Rate67_8(i__),
+ Rate68_8(i__),Rate69_8(i__),Rate70_8(i__),Rate71_8(i__),
+ Rate72_8(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ri10000.dat' ! MnH model rate coefficients at T=10000K
C Format for file interpretation
10 format(
+ A13,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,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=
+'ri10000.dat')
write(6,*) '....Loading file: ri10000.dat'
do i__=1,72
read(1,'(A733)')ar__9
read(ar__9,10)
+ RateIni_9(i__),Rate1_9(i__),Rate2_9(i__),Rate3_9(i__),
+ Rate4_9(i__),Rate5_9(i__),Rate6_9(i__),Rate7_9(i__),
+ Rate8_9(i__),Rate9_9(i__),Rate10_9(i__),Rate11_9(i__),
+ Rate12_9(i__),Rate13_9(i__),Rate14_9(i__),Rate15_9(i__),
+ Rate16_9(i__),Rate17_9(i__),Rate18_9(i__),Rate19_9(i__),
+ Rate20_9(i__),Rate21_9(i__),Rate22_9(i__),Rate23_9(i__),
+ Rate24_9(i__),Rate25_9(i__),Rate26_9(i__),Rate27_9(i__),
+ Rate28_9(i__),Rate29_9(i__),Rate30_9(i__),Rate31_9(i__),
+ Rate32_9(i__),Rate33_9(i__),Rate34_9(i__),Rate35_9(i__),
+ Rate36_9(i__),Rate37_9(i__),Rate38_9(i__),Rate39_9(i__),
+ Rate40_9(i__),Rate41_9(i__),Rate42_9(i__),Rate43_9(i__),
+ Rate44_9(i__),Rate45_9(i__),Rate46_9(i__),Rate47_9(i__),
+ Rate48_9(i__),Rate49_9(i__),Rate50_9(i__),Rate51_9(i__),
+ Rate52_9(i__),Rate53_9(i__),Rate54_9(i__),Rate55_9(i__),
+ Rate56_9(i__),Rate57_9(i__),Rate58_9(i__),Rate59_9(i__),
+ Rate60_9(i__),Rate61_9(i__),Rate62_9(i__),Rate63_9(i__),
+ Rate64_9(i__),Rate65_9(i__),Rate66_9(i__),Rate67_9(i__),
+ Rate68_9(i__),Rate69_9(i__),Rate70_9(i__),Rate71_9(i__),
+ Rate72_9(i__)
c ..............Just test output...........
write(6,10)
+ RateIni_9(i__),Rate1_9(i__),Rate2_9(i__),Rate3_9(i__),
+ Rate4_9(i__),Rate5_9(i__),Rate6_9(i__),Rate7_9(i__),
+ Rate8_9(i__),Rate9_9(i__),Rate10_9(i__),Rate11_9(i__),
+ Rate12_9(i__),Rate13_9(i__),Rate14_9(i__),Rate15_9(i__),
+ Rate16_9(i__),Rate17_9(i__),Rate18_9(i__),Rate19_9(i__),
+ Rate20_9(i__),Rate21_9(i__),Rate22_9(i__),Rate23_9(i__),
+ Rate24_9(i__),Rate25_9(i__),Rate26_9(i__),Rate27_9(i__),
+ Rate28_9(i__),Rate29_9(i__),Rate30_9(i__),Rate31_9(i__),
+ Rate32_9(i__),Rate33_9(i__),Rate34_9(i__),Rate35_9(i__),
+ Rate36_9(i__),Rate37_9(i__),Rate38_9(i__),Rate39_9(i__),
+ Rate40_9(i__),Rate41_9(i__),Rate42_9(i__),Rate43_9(i__),
+ Rate44_9(i__),Rate45_9(i__),Rate46_9(i__),Rate47_9(i__),
+ Rate48_9(i__),Rate49_9(i__),Rate50_9(i__),Rate51_9(i__),
+ Rate52_9(i__),Rate53_9(i__),Rate54_9(i__),Rate55_9(i__),
+ Rate56_9(i__),Rate57_9(i__),Rate58_9(i__),Rate59_9(i__),
+ Rate60_9(i__),Rate61_9(i__),Rate62_9(i__),Rate63_9(i__),
+ Rate64_9(i__),Rate65_9(i__),Rate66_9(i__),Rate67_9(i__),
+ Rate68_9(i__),Rate69_9(i__),Rate70_9(i__),Rate71_9(i__),
+ Rate72_9(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'rii1000.dat' ! MnH+ model rate coefficients at T=1000K
C Format for file interpretation
11 format(
+ A12,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,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=
+'rii1000.dat')
write(6,*) '....Loading file: rii1000.dat'
do i__=1,43
read(1,'(A442)')ar__10
read(ar__10,11)
+ RateIni_10(i__),Rate1_10(i__),Rate2_10(i__),Rate3_10(i__),
+ Rate4_10(i__),Rate5_10(i__),Rate6_10(i__),Rate7_10(i__),
+ Rate8_10(i__),Rate9_10(i__),Rate10_10(i__),Rate11_10(i__),
+ Rate12_10(i__),Rate13_10(i__),Rate14_10(i__),Rate15_10(i__),
+ Rate16_10(i__),Rate17_10(i__),Rate18_10(i__),Rate19_10(i__),
+ Rate20_10(i__),Rate21_10(i__),Rate22_10(i__),Rate23_10(i__),
+ Rate24_10(i__),Rate25_10(i__),Rate26_10(i__),Rate27_10(i__),
+ Rate28_10(i__),Rate29_10(i__),Rate30_10(i__),Rate31_10(i__),
+ Rate32_10(i__),Rate33_10(i__),Rate34_10(i__),Rate35_10(i__),
+ Rate36_10(i__),Rate37_10(i__),Rate38_10(i__),Rate39_10(i__),
+ Rate40_10(i__),Rate41_10(i__),Rate42_10(i__),Rate43_10(i__)
c ..............Just test output...........
write(6,11)
+ RateIni_10(i__),Rate1_10(i__),Rate2_10(i__),Rate3_10(i__),
+ Rate4_10(i__),Rate5_10(i__),Rate6_10(i__),Rate7_10(i__),
+ Rate8_10(i__),Rate9_10(i__),Rate10_10(i__),Rate11_10(i__),
+ Rate12_10(i__),Rate13_10(i__),Rate14_10(i__),Rate15_10(i__),
+ Rate16_10(i__),Rate17_10(i__),Rate18_10(i__),Rate19_10(i__),
+ Rate20_10(i__),Rate21_10(i__),Rate22_10(i__),Rate23_10(i__),
+ Rate24_10(i__),Rate25_10(i__),Rate26_10(i__),Rate27_10(i__),
+ Rate28_10(i__),Rate29_10(i__),Rate30_10(i__),Rate31_10(i__),
+ Rate32_10(i__),Rate33_10(i__),Rate34_10(i__),Rate35_10(i__),
+ Rate36_10(i__),Rate37_10(i__),Rate38_10(i__),Rate39_10(i__),
+ Rate40_10(i__),Rate41_10(i__),Rate42_10(i__),Rate43_10(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'rii2000.dat' ! MnH+ model rate coefficients at T=2000K
C Format for file interpretation
12 format(
+ A12,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,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=
+'rii2000.dat')
write(6,*) '....Loading file: rii2000.dat'
do i__=1,43
read(1,'(A442)')ar__11
read(ar__11,12)
+ RateIni_11(i__),Rate1_11(i__),Rate2_11(i__),Rate3_11(i__),
+ Rate4_11(i__),Rate5_11(i__),Rate6_11(i__),Rate7_11(i__),
+ Rate8_11(i__),Rate9_11(i__),Rate10_11(i__),Rate11_11(i__),
+ Rate12_11(i__),Rate13_11(i__),Rate14_11(i__),Rate15_11(i__),
+ Rate16_11(i__),Rate17_11(i__),Rate18_11(i__),Rate19_11(i__),
+ Rate20_11(i__),Rate21_11(i__),Rate22_11(i__),Rate23_11(i__),
+ Rate24_11(i__),Rate25_11(i__),Rate26_11(i__),Rate27_11(i__),
+ Rate28_11(i__),Rate29_11(i__),Rate30_11(i__),Rate31_11(i__),
+ Rate32_11(i__),Rate33_11(i__),Rate34_11(i__),Rate35_11(i__),
+ Rate36_11(i__),Rate37_11(i__),Rate38_11(i__),Rate39_11(i__),
+ Rate40_11(i__),Rate41_11(i__),Rate42_11(i__),Rate43_11(i__)
c ..............Just test output...........
write(6,12)
+ RateIni_11(i__),Rate1_11(i__),Rate2_11(i__),Rate3_11(i__),
+ Rate4_11(i__),Rate5_11(i__),Rate6_11(i__),Rate7_11(i__),
+ Rate8_11(i__),Rate9_11(i__),Rate10_11(i__),Rate11_11(i__),
+ Rate12_11(i__),Rate13_11(i__),Rate14_11(i__),Rate15_11(i__),
+ Rate16_11(i__),Rate17_11(i__),Rate18_11(i__),Rate19_11(i__),
+ Rate20_11(i__),Rate21_11(i__),Rate22_11(i__),Rate23_11(i__),
+ Rate24_11(i__),Rate25_11(i__),Rate26_11(i__),Rate27_11(i__),
+ Rate28_11(i__),Rate29_11(i__),Rate30_11(i__),Rate31_11(i__),
+ Rate32_11(i__),Rate33_11(i__),Rate34_11(i__),Rate35_11(i__),
+ Rate36_11(i__),Rate37_11(i__),Rate38_11(i__),Rate39_11(i__),
+ Rate40_11(i__),Rate41_11(i__),Rate42_11(i__),Rate43_11(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'rii3000.dat' ! MnH+ model rate coefficients at T=3000K
C Format for file interpretation
13 format(
+ A12,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,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=
+'rii3000.dat')
write(6,*) '....Loading file: rii3000.dat'
do i__=1,43
read(1,'(A442)')ar__12
read(ar__12,13)
+ RateIni_12(i__),Rate1_12(i__),Rate2_12(i__),Rate3_12(i__),
+ Rate4_12(i__),Rate5_12(i__),Rate6_12(i__),Rate7_12(i__),
+ Rate8_12(i__),Rate9_12(i__),Rate10_12(i__),Rate11_12(i__),
+ Rate12_12(i__),Rate13_12(i__),Rate14_12(i__),Rate15_12(i__),
+ Rate16_12(i__),Rate17_12(i__),Rate18_12(i__),Rate19_12(i__),
+ Rate20_12(i__),Rate21_12(i__),Rate22_12(i__),Rate23_12(i__),
+ Rate24_12(i__),Rate25_12(i__),Rate26_12(i__),Rate27_12(i__),
+ Rate28_12(i__),Rate29_12(i__),Rate30_12(i__),Rate31_12(i__),
+ Rate32_12(i__),Rate33_12(i__),Rate34_12(i__),Rate35_12(i__),
+ Rate36_12(i__),Rate37_12(i__),Rate38_12(i__),Rate39_12(i__),
+ Rate40_12(i__),Rate41_12(i__),Rate42_12(i__),Rate43_12(i__)
c ..............Just test output...........
write(6,13)
+ RateIni_12(i__),Rate1_12(i__),Rate2_12(i__),Rate3_12(i__),
+ Rate4_12(i__),Rate5_12(i__),Rate6_12(i__),Rate7_12(i__),
+ Rate8_12(i__),Rate9_12(i__),Rate10_12(i__),Rate11_12(i__),
+ Rate12_12(i__),Rate13_12(i__),Rate14_12(i__),Rate15_12(i__),
+ Rate16_12(i__),Rate17_12(i__),Rate18_12(i__),Rate19_12(i__),
+ Rate20_12(i__),Rate21_12(i__),Rate22_12(i__),Rate23_12(i__),
+ Rate24_12(i__),Rate25_12(i__),Rate26_12(i__),Rate27_12(i__),
+ Rate28_12(i__),Rate29_12(i__),Rate30_12(i__),Rate31_12(i__),
+ Rate32_12(i__),Rate33_12(i__),Rate34_12(i__),Rate35_12(i__),
+ Rate36_12(i__),Rate37_12(i__),Rate38_12(i__),Rate39_12(i__),
+ Rate40_12(i__),Rate41_12(i__),Rate42_12(i__),Rate43_12(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'rii4000.dat' ! MnH+ model rate coefficients at T=4000K
C Format for file interpretation
14 format(
+ A12,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,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=
+'rii4000.dat')
write(6,*) '....Loading file: rii4000.dat'
do i__=1,43
read(1,'(A442)')ar__13
read(ar__13,14)
+ RateIni_13(i__),Rate1_13(i__),Rate2_13(i__),Rate3_13(i__),
+ Rate4_13(i__),Rate5_13(i__),Rate6_13(i__),Rate7_13(i__),
+ Rate8_13(i__),Rate9_13(i__),Rate10_13(i__),Rate11_13(i__),
+ Rate12_13(i__),Rate13_13(i__),Rate14_13(i__),Rate15_13(i__),
+ Rate16_13(i__),Rate17_13(i__),Rate18_13(i__),Rate19_13(i__),
+ Rate20_13(i__),Rate21_13(i__),Rate22_13(i__),Rate23_13(i__),
+ Rate24_13(i__),Rate25_13(i__),Rate26_13(i__),Rate27_13(i__),
+ Rate28_13(i__),Rate29_13(i__),Rate30_13(i__),Rate31_13(i__),
+ Rate32_13(i__),Rate33_13(i__),Rate34_13(i__),Rate35_13(i__),
+ Rate36_13(i__),Rate37_13(i__),Rate38_13(i__),Rate39_13(i__),
+ Rate40_13(i__),Rate41_13(i__),Rate42_13(i__),Rate43_13(i__)
c ..............Just test output...........
write(6,14)
+ RateIni_13(i__),Rate1_13(i__),Rate2_13(i__),Rate3_13(i__),
+ Rate4_13(i__),Rate5_13(i__),Rate6_13(i__),Rate7_13(i__),
+ Rate8_13(i__),Rate9_13(i__),Rate10_13(i__),Rate11_13(i__),
+ Rate12_13(i__),Rate13_13(i__),Rate14_13(i__),Rate15_13(i__),
+ Rate16_13(i__),Rate17_13(i__),Rate18_13(i__),Rate19_13(i__),
+ Rate20_13(i__),Rate21_13(i__),Rate22_13(i__),Rate23_13(i__),
+ Rate24_13(i__),Rate25_13(i__),Rate26_13(i__),Rate27_13(i__),
+ Rate28_13(i__),Rate29_13(i__),Rate30_13(i__),Rate31_13(i__),
+ Rate32_13(i__),Rate33_13(i__),Rate34_13(i__),Rate35_13(i__),
+ Rate36_13(i__),Rate37_13(i__),Rate38_13(i__),Rate39_13(i__),
+ Rate40_13(i__),Rate41_13(i__),Rate42_13(i__),Rate43_13(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'rii5000.dat' ! MnH+ model rate coefficients at T=5000K
C Format for file interpretation
15 format(
+ A12,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,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=
+'rii5000.dat')
write(6,*) '....Loading file: rii5000.dat'
do i__=1,43
read(1,'(A442)')ar__14
read(ar__14,15)
+ RateIni_14(i__),Rate1_14(i__),Rate2_14(i__),Rate3_14(i__),
+ Rate4_14(i__),Rate5_14(i__),Rate6_14(i__),Rate7_14(i__),
+ Rate8_14(i__),Rate9_14(i__),Rate10_14(i__),Rate11_14(i__),
+ Rate12_14(i__),Rate13_14(i__),Rate14_14(i__),Rate15_14(i__),
+ Rate16_14(i__),Rate17_14(i__),Rate18_14(i__),Rate19_14(i__),
+ Rate20_14(i__),Rate21_14(i__),Rate22_14(i__),Rate23_14(i__),
+ Rate24_14(i__),Rate25_14(i__),Rate26_14(i__),Rate27_14(i__),
+ Rate28_14(i__),Rate29_14(i__),Rate30_14(i__),Rate31_14(i__),
+ Rate32_14(i__),Rate33_14(i__),Rate34_14(i__),Rate35_14(i__),
+ Rate36_14(i__),Rate37_14(i__),Rate38_14(i__),Rate39_14(i__),
+ Rate40_14(i__),Rate41_14(i__),Rate42_14(i__),Rate43_14(i__)
c ..............Just test output...........
write(6,15)
+ RateIni_14(i__),Rate1_14(i__),Rate2_14(i__),Rate3_14(i__),
+ Rate4_14(i__),Rate5_14(i__),Rate6_14(i__),Rate7_14(i__),
+ Rate8_14(i__),Rate9_14(i__),Rate10_14(i__),Rate11_14(i__),
+ Rate12_14(i__),Rate13_14(i__),Rate14_14(i__),Rate15_14(i__),
+ Rate16_14(i__),Rate17_14(i__),Rate18_14(i__),Rate19_14(i__),
+ Rate20_14(i__),Rate21_14(i__),Rate22_14(i__),Rate23_14(i__),
+ Rate24_14(i__),Rate25_14(i__),Rate26_14(i__),Rate27_14(i__),
+ Rate28_14(i__),Rate29_14(i__),Rate30_14(i__),Rate31_14(i__),
+ Rate32_14(i__),Rate33_14(i__),Rate34_14(i__),Rate35_14(i__),
+ Rate36_14(i__),Rate37_14(i__),Rate38_14(i__),Rate39_14(i__),
+ Rate40_14(i__),Rate41_14(i__),Rate42_14(i__),Rate43_14(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'rii6000.dat' ! MnH+ model rate coefficients at T=6000K
C Format for file interpretation
16 format(
+ A12,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,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=
+'rii6000.dat')
write(6,*) '....Loading file: rii6000.dat'
do i__=1,43
read(1,'(A442)')ar__15
read(ar__15,16)
+ RateIni_15(i__),Rate1_15(i__),Rate2_15(i__),Rate3_15(i__),
+ Rate4_15(i__),Rate5_15(i__),Rate6_15(i__),Rate7_15(i__),
+ Rate8_15(i__),Rate9_15(i__),Rate10_15(i__),Rate11_15(i__),
+ Rate12_15(i__),Rate13_15(i__),Rate14_15(i__),Rate15_15(i__),
+ Rate16_15(i__),Rate17_15(i__),Rate18_15(i__),Rate19_15(i__),
+ Rate20_15(i__),Rate21_15(i__),Rate22_15(i__),Rate23_15(i__),
+ Rate24_15(i__),Rate25_15(i__),Rate26_15(i__),Rate27_15(i__),
+ Rate28_15(i__),Rate29_15(i__),Rate30_15(i__),Rate31_15(i__),
+ Rate32_15(i__),Rate33_15(i__),Rate34_15(i__),Rate35_15(i__),
+ Rate36_15(i__),Rate37_15(i__),Rate38_15(i__),Rate39_15(i__),
+ Rate40_15(i__),Rate41_15(i__),Rate42_15(i__),Rate43_15(i__)
c ..............Just test output...........
write(6,16)
+ RateIni_15(i__),Rate1_15(i__),Rate2_15(i__),Rate3_15(i__),
+ Rate4_15(i__),Rate5_15(i__),Rate6_15(i__),Rate7_15(i__),
+ Rate8_15(i__),Rate9_15(i__),Rate10_15(i__),Rate11_15(i__),
+ Rate12_15(i__),Rate13_15(i__),Rate14_15(i__),Rate15_15(i__),
+ Rate16_15(i__),Rate17_15(i__),Rate18_15(i__),Rate19_15(i__),
+ Rate20_15(i__),Rate21_15(i__),Rate22_15(i__),Rate23_15(i__),
+ Rate24_15(i__),Rate25_15(i__),Rate26_15(i__),Rate27_15(i__),
+ Rate28_15(i__),Rate29_15(i__),Rate30_15(i__),Rate31_15(i__),
+ Rate32_15(i__),Rate33_15(i__),Rate34_15(i__),Rate35_15(i__),
+ Rate36_15(i__),Rate37_15(i__),Rate38_15(i__),Rate39_15(i__),
+ Rate40_15(i__),Rate41_15(i__),Rate42_15(i__),Rate43_15(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'rii7000.dat' ! MnH+ model rate coefficients at T=7000K
C Format for file interpretation
17 format(
+ A12,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,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=
+'rii7000.dat')
write(6,*) '....Loading file: rii7000.dat'
do i__=1,43
read(1,'(A442)')ar__16
read(ar__16,17)
+ RateIni_16(i__),Rate1_16(i__),Rate2_16(i__),Rate3_16(i__),
+ Rate4_16(i__),Rate5_16(i__),Rate6_16(i__),Rate7_16(i__),
+ Rate8_16(i__),Rate9_16(i__),Rate10_16(i__),Rate11_16(i__),
+ Rate12_16(i__),Rate13_16(i__),Rate14_16(i__),Rate15_16(i__),
+ Rate16_16(i__),Rate17_16(i__),Rate18_16(i__),Rate19_16(i__),
+ Rate20_16(i__),Rate21_16(i__),Rate22_16(i__),Rate23_16(i__),
+ Rate24_16(i__),Rate25_16(i__),Rate26_16(i__),Rate27_16(i__),
+ Rate28_16(i__),Rate29_16(i__),Rate30_16(i__),Rate31_16(i__),
+ Rate32_16(i__),Rate33_16(i__),Rate34_16(i__),Rate35_16(i__),
+ Rate36_16(i__),Rate37_16(i__),Rate38_16(i__),Rate39_16(i__),
+ Rate40_16(i__),Rate41_16(i__),Rate42_16(i__),Rate43_16(i__)
c ..............Just test output...........
write(6,17)
+ RateIni_16(i__),Rate1_16(i__),Rate2_16(i__),Rate3_16(i__),
+ Rate4_16(i__),Rate5_16(i__),Rate6_16(i__),Rate7_16(i__),
+ Rate8_16(i__),Rate9_16(i__),Rate10_16(i__),Rate11_16(i__),
+ Rate12_16(i__),Rate13_16(i__),Rate14_16(i__),Rate15_16(i__),
+ Rate16_16(i__),Rate17_16(i__),Rate18_16(i__),Rate19_16(i__),
+ Rate20_16(i__),Rate21_16(i__),Rate22_16(i__),Rate23_16(i__),
+ Rate24_16(i__),Rate25_16(i__),Rate26_16(i__),Rate27_16(i__),
+ Rate28_16(i__),Rate29_16(i__),Rate30_16(i__),Rate31_16(i__),
+ Rate32_16(i__),Rate33_16(i__),Rate34_16(i__),Rate35_16(i__),
+ Rate36_16(i__),Rate37_16(i__),Rate38_16(i__),Rate39_16(i__),
+ Rate40_16(i__),Rate41_16(i__),Rate42_16(i__),Rate43_16(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'rii8000.dat' ! MnH+ model rate coefficients at T=8000K
C Format for file interpretation
18 format(
+ A12,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,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=
+'rii8000.dat')
write(6,*) '....Loading file: rii8000.dat'
do i__=1,43
read(1,'(A442)')ar__17
read(ar__17,18)
+ RateIni_17(i__),Rate1_17(i__),Rate2_17(i__),Rate3_17(i__),
+ Rate4_17(i__),Rate5_17(i__),Rate6_17(i__),Rate7_17(i__),
+ Rate8_17(i__),Rate9_17(i__),Rate10_17(i__),Rate11_17(i__),
+ Rate12_17(i__),Rate13_17(i__),Rate14_17(i__),Rate15_17(i__),
+ Rate16_17(i__),Rate17_17(i__),Rate18_17(i__),Rate19_17(i__),
+ Rate20_17(i__),Rate21_17(i__),Rate22_17(i__),Rate23_17(i__),
+ Rate24_17(i__),Rate25_17(i__),Rate26_17(i__),Rate27_17(i__),
+ Rate28_17(i__),Rate29_17(i__),Rate30_17(i__),Rate31_17(i__),
+ Rate32_17(i__),Rate33_17(i__),Rate34_17(i__),Rate35_17(i__),
+ Rate36_17(i__),Rate37_17(i__),Rate38_17(i__),Rate39_17(i__),
+ Rate40_17(i__),Rate41_17(i__),Rate42_17(i__),Rate43_17(i__)
c ..............Just test output...........
write(6,18)
+ RateIni_17(i__),Rate1_17(i__),Rate2_17(i__),Rate3_17(i__),
+ Rate4_17(i__),Rate5_17(i__),Rate6_17(i__),Rate7_17(i__),
+ Rate8_17(i__),Rate9_17(i__),Rate10_17(i__),Rate11_17(i__),
+ Rate12_17(i__),Rate13_17(i__),Rate14_17(i__),Rate15_17(i__),
+ Rate16_17(i__),Rate17_17(i__),Rate18_17(i__),Rate19_17(i__),
+ Rate20_17(i__),Rate21_17(i__),Rate22_17(i__),Rate23_17(i__),
+ Rate24_17(i__),Rate25_17(i__),Rate26_17(i__),Rate27_17(i__),
+ Rate28_17(i__),Rate29_17(i__),Rate30_17(i__),Rate31_17(i__),
+ Rate32_17(i__),Rate33_17(i__),Rate34_17(i__),Rate35_17(i__),
+ Rate36_17(i__),Rate37_17(i__),Rate38_17(i__),Rate39_17(i__),
+ Rate40_17(i__),Rate41_17(i__),Rate42_17(i__),Rate43_17(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'rii9000.dat' ! MnH+ model rate coefficients at T=9000K
C Format for file interpretation
19 format(
+ A12,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,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=
+'rii9000.dat')
write(6,*) '....Loading file: rii9000.dat'
do i__=1,43
read(1,'(A442)')ar__18
read(ar__18,19)
+ RateIni_18(i__),Rate1_18(i__),Rate2_18(i__),Rate3_18(i__),
+ Rate4_18(i__),Rate5_18(i__),Rate6_18(i__),Rate7_18(i__),
+ Rate8_18(i__),Rate9_18(i__),Rate10_18(i__),Rate11_18(i__),
+ Rate12_18(i__),Rate13_18(i__),Rate14_18(i__),Rate15_18(i__),
+ Rate16_18(i__),Rate17_18(i__),Rate18_18(i__),Rate19_18(i__),
+ Rate20_18(i__),Rate21_18(i__),Rate22_18(i__),Rate23_18(i__),
+ Rate24_18(i__),Rate25_18(i__),Rate26_18(i__),Rate27_18(i__),
+ Rate28_18(i__),Rate29_18(i__),Rate30_18(i__),Rate31_18(i__),
+ Rate32_18(i__),Rate33_18(i__),Rate34_18(i__),Rate35_18(i__),
+ Rate36_18(i__),Rate37_18(i__),Rate38_18(i__),Rate39_18(i__),
+ Rate40_18(i__),Rate41_18(i__),Rate42_18(i__),Rate43_18(i__)
c ..............Just test output...........
write(6,19)
+ RateIni_18(i__),Rate1_18(i__),Rate2_18(i__),Rate3_18(i__),
+ Rate4_18(i__),Rate5_18(i__),Rate6_18(i__),Rate7_18(i__),
+ Rate8_18(i__),Rate9_18(i__),Rate10_18(i__),Rate11_18(i__),
+ Rate12_18(i__),Rate13_18(i__),Rate14_18(i__),Rate15_18(i__),
+ Rate16_18(i__),Rate17_18(i__),Rate18_18(i__),Rate19_18(i__),
+ Rate20_18(i__),Rate21_18(i__),Rate22_18(i__),Rate23_18(i__),
+ Rate24_18(i__),Rate25_18(i__),Rate26_18(i__),Rate27_18(i__),
+ Rate28_18(i__),Rate29_18(i__),Rate30_18(i__),Rate31_18(i__),
+ Rate32_18(i__),Rate33_18(i__),Rate34_18(i__),Rate35_18(i__),
+ Rate36_18(i__),Rate37_18(i__),Rate38_18(i__),Rate39_18(i__),
+ Rate40_18(i__),Rate41_18(i__),Rate42_18(i__),Rate43_18(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'rii10000.dat' ! MnH+ model rate coefficients at T=10000K
C Format for file interpretation
20 format(
+ A12,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,E10.2,
+ E10.2,E10.2,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=
+'rii10000.dat')
write(6,*) '....Loading file: rii10000.dat'
do i__=1,43
read(1,'(A442)')ar__19
read(ar__19,20)
+ RateIni_19(i__),Rate1_19(i__),Rate2_19(i__),Rate3_19(i__),
+ Rate4_19(i__),Rate5_19(i__),Rate6_19(i__),Rate7_19(i__),
+ Rate8_19(i__),Rate9_19(i__),Rate10_19(i__),Rate11_19(i__),
+ Rate12_19(i__),Rate13_19(i__),Rate14_19(i__),Rate15_19(i__),
+ Rate16_19(i__),Rate17_19(i__),Rate18_19(i__),Rate19_19(i__),
+ Rate20_19(i__),Rate21_19(i__),Rate22_19(i__),Rate23_19(i__),
+ Rate24_19(i__),Rate25_19(i__),Rate26_19(i__),Rate27_19(i__),
+ Rate28_19(i__),Rate29_19(i__),Rate30_19(i__),Rate31_19(i__),
+ Rate32_19(i__),Rate33_19(i__),Rate34_19(i__),Rate35_19(i__),
+ Rate36_19(i__),Rate37_19(i__),Rate38_19(i__),Rate39_19(i__),
+ Rate40_19(i__),Rate41_19(i__),Rate42_19(i__),Rate43_19(i__)
c ..............Just test output...........
write(6,20)
+ RateIni_19(i__),Rate1_19(i__),Rate2_19(i__),Rate3_19(i__),
+ Rate4_19(i__),Rate5_19(i__),Rate6_19(i__),Rate7_19(i__),
+ Rate8_19(i__),Rate9_19(i__),Rate10_19(i__),Rate11_19(i__),
+ Rate12_19(i__),Rate13_19(i__),Rate14_19(i__),Rate15_19(i__),
+ Rate16_19(i__),Rate17_19(i__),Rate18_19(i__),Rate19_19(i__),
+ Rate20_19(i__),Rate21_19(i__),Rate22_19(i__),Rate23_19(i__),
+ Rate24_19(i__),Rate25_19(i__),Rate26_19(i__),Rate27_19(i__),
+ Rate28_19(i__),Rate29_19(i__),Rate30_19(i__),Rate31_19(i__),
+ Rate32_19(i__),Rate33_19(i__),Rate34_19(i__),Rate35_19(i__),
+ Rate36_19(i__),Rate37_19(i__),Rate38_19(i__),Rate39_19(i__),
+ Rate40_19(i__),Rate41_19(i__),Rate42_19(i__),Rate43_19(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'xsectdbl.dat' ! Total photoionization cross section for MnI levels
C Format for file interpretation
21 format(I1,1X,I1,1X,I1,1X,I2,1X,E13.7,1X,I4,1X,E14.9,2X,E9.5)
C Effective file loading
open(unit=1,status='old',file=
+'xsectdbl.dat')
write(6,*) '....Loading file: xsectdbl.dat'
do i__=1,323200
read(1,'(A53)')ar__20
read(ar__20,21)
+ v2S_1(i__),L(i__),P(i__),CF(i__),E0(i__),N(i__),Eph(i__),
+ PCR(i__)
if(ar__20(29:42) .EQ. '') Eph(i__) = rNULL__
if(ar__20(45:53) .EQ. '') PCR(i__) = rNULL__
c ..............Just test output...........
write(6,21)
+ v2S_1(i__),L(i__),P(i__),CF(i__),E0(i__),N(i__),Eph(i__),
+ PCR(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'xsectoct.dat' ! Total photoionization cross section for MnI levels
C Format for file interpretation
22 format(I1,1X,I1,1X,I1,1X,I2,1X,E13.7,1X,I4,1X,E14.9,2X,E9.5)
C Effective file loading
open(unit=1,status='old',file=
+'xsectoct.dat')
write(6,*) '....Loading file: xsectoct.dat'
do i__=1,207072
read(1,'(A53)')ar__21
read(ar__21,22)
+ v2S_1_1(i__),L_1(i__),P_1(i__),CF_1(i__),E0_1(i__),N_1(i__),
+ Eph_1(i__),PCR_1(i__)
if(ar__21(29:42) .EQ. '') Eph_1(i__) = rNULL__
if(ar__21(45:53) .EQ. '') PCR_1(i__) = rNULL__
c ..............Just test output...........
write(6,22)
+ v2S_1_1(i__),L_1(i__),P_1(i__),CF_1(i__),E0_1(i__),N_1(i__),
+ Eph_1(i__),PCR_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'xsectqrt.dat' ! Total photoionization cross section for MnI levels
C Format for file interpretation
23 format(I1,1X,I1,1X,I1,1X,I2,1X,E13.7,1X,I4,1X,E14.9,2X,E9.5)
C Effective file loading
open(unit=1,status='old',file=
+'xsectqrt.dat')
write(6,*) '....Loading file: xsectqrt.dat'
do i__=1,272710
read(1,'(A53)')ar__22
read(ar__22,23)
+ v2S_1_2(i__),L_2(i__),P_2(i__),CF_2(i__),E0_2(i__),N_2(i__),
+ Eph_2(i__),PCR_2(i__)
if(ar__22(29:42) .EQ. '') Eph_2(i__) = rNULL__
if(ar__22(45:53) .EQ. '') PCR_2(i__) = rNULL__
c ..............Just test output...........
write(6,23)
+ v2S_1_2(i__),L_2(i__),P_2(i__),CF_2(i__),E0_2(i__),N_2(i__),
+ Eph_2(i__),PCR_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'xsectsxt.dat' ! Total photoionization cross section for MnI levels
C Format for file interpretation
24 format(I1,1X,I1,1X,I1,1X,I2,1X,E13.7,1X,I4,1X,E14.9,2X,E9.5)
C Effective file loading
open(unit=1,status='old',file=
+'xsectsxt.dat')
write(6,*) '....Loading file: xsectsxt.dat'
do i__=1,563601
read(1,'(A53)')ar__23
read(ar__23,24)
+ v2S_1_3(i__),L_3(i__),P_3(i__),CF_3(i__),E0_3(i__),N_3(i__),
+ Eph_3(i__),PCR_3(i__)
if(ar__23(29:42) .EQ. '') Eph_3(i__) = rNULL__
if(ar__23(45:53) .EQ. '') PCR_3(i__) = rNULL__
c ..............Just test output...........
write(6,24)
+ v2S_1_3(i__),L_3(i__),P_3(i__),CF_3(i__),E0_3(i__),N_3(i__),
+ Eph_3(i__),PCR_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end