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