Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/612/A90 into FORTRAN code for loading all data files into arrays.
Note that special values are assigned to unknown or unspecified
numbers (also called NULL numbers);
when necessary, the coordinate components making up the right ascension
and declination are converted into floating-point numbers
representing these angles in degrees.
program load_ReadMe
C=============================================================================
C F77-compliant program generated by readme2f_1.81 (2015-09-23), on 2026-Aug-12
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/612/A90 Inelastic Fe+H collision data (Barklem, 2018)
*================================================================================
*Excitation and charge transfer in low-energy hydrogen atom collisions with
*neutral iron.
* Barklem P.S.
* <Astron. Astrophys. 612, A90 (2018)>
* =2018A&A...612A..90B (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Input data for calculations; full table 1
integer*4 nr__
parameter (nr__=227) ! Number of records
character*64 ar__ ! Full-size record
character*10 State (nr__) ! State label (State)
integer*4 LA (nr__) ! Electronic orbital angular momentum (L_A)
integer*4 v2SA_1 (nr__) ! Electronic spin multiplicity (2S_A+1)
integer*4 n (nr__) ! Principal quantum number for the active
* electron (n)
integer*4 l (nr__) ! Orbital angular momentum quantum number for
* the active electron (l)
integer*4 EjX (nr__) ! (cm-1) Term energy in 1/cm (E_j^X)
integer*4 Elim (nr__) ! (cm-1) Series limit energy in 1/cm (E_lim)
integer*4 Ej (nr__) ! (cm-1) Asymptotic molecular energy in 1/cm (E_j)
integer*4 Neq (nr__) ! (cm-1) Number of equivalent active electrons (N_eq)
character*11 Core (nr__) ! Label for core (Core)
integer*4 Lc (nr__) ! Core electronic orbital angular momentum (L_c)
integer*4 v2cA_1 (nr__) ! Core electronic spin multiplicity (2c_A+1)
real*4 G (nr__) ! Coefficient of fractional parentage (G)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'states.dat' ! States and their energies
integer*4 nr__1
parameter (nr__1=191) ! Number of records
character*27 ar__1 ! Full-size record
integer*4 Index (nr__1) ! Index
character*11 Label (nr__1) ! Term label
real*8 E (nr__1) ! (cm-1) Term energy in 1/cm
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'files/*' ! Individual rate coefficients files
integer*4 nr__2
parameter (nr__2=60) ! Number of records
character*2483 ar__2 ! Full-size record
real*4 Ratec1 (nr__2) ! (cm+3/s) Rate coefficient for index = 1 (1)
real*4 Ratec2 (nr__2) ! (cm+3/s) Rate coefficient for index = 2 (1)
real*4 Ratec3 (nr__2) ! (cm+3/s) Rate coefficient for index = 3 (1)
real*4 Ratec4 (nr__2) ! (cm+3/s) Rate coefficient for index = 4 (1)
real*4 Ratec5 (nr__2) ! (cm+3/s) Rate coefficient for index = 5 (1)
real*4 Ratec6 (nr__2) ! (cm+3/s) Rate coefficient for index = 6 (1)
real*4 Ratec7 (nr__2) ! (cm+3/s) Rate coefficient for index = 7 (1)
real*4 Ratec8 (nr__2) ! (cm+3/s) Rate coefficient for index = 8 (1)
real*4 Ratec9 (nr__2) ! (cm+3/s) Rate coefficient for index = 9 (1)
real*4 Ratec10 (nr__2) ! (cm+3/s) Rate coefficient for index = 10 (1)
real*4 Ratec11 (nr__2) ! (cm+3/s) Rate coefficient for index = 11 (1)
real*4 Ratec12 (nr__2) ! (cm+3/s) Rate coefficient for index = 12 (1)
real*4 Ratec13 (nr__2) ! (cm+3/s) Rate coefficient for index = 13 (1)
real*4 Ratec14 (nr__2) ! (cm+3/s) Rate coefficient for index = 14 (1)
real*4 Ratec15 (nr__2) ! (cm+3/s) Rate coefficient for index = 15 (1)
real*4 Ratec16 (nr__2) ! (cm+3/s) Rate coefficient for index = 16 (1)
real*4 Ratec17 (nr__2) ! (cm+3/s) Rate coefficient for index = 17 (1)
real*4 Ratec18 (nr__2) ! (cm+3/s) Rate coefficient for index = 18 (1)
real*4 Ratec19 (nr__2) ! (cm+3/s) Rate coefficient for index = 19 (1)
real*4 Ratec20 (nr__2) ! (cm+3/s) Rate coefficient for index = 20 (1)
real*4 Ratec21 (nr__2) ! (cm+3/s) Rate coefficient for index = 21 (1)
real*4 Ratec22 (nr__2) ! (cm+3/s) Rate coefficient for index = 22 (1)
real*4 Ratec23 (nr__2) ! (cm+3/s) Rate coefficient for index = 23 (1)
real*4 Ratec24 (nr__2) ! (cm+3/s) Rate coefficient for index = 24 (1)
real*4 Ratec25 (nr__2) ! (cm+3/s) Rate coefficient for index = 25 (1)
real*4 Ratec26 (nr__2) ! (cm+3/s) Rate coefficient for index = 26 (1)
real*4 Ratec27 (nr__2) ! (cm+3/s) Rate coefficient for index = 27 (1)
real*4 Ratec28 (nr__2) ! (cm+3/s) Rate coefficient for index = 28 (1)
real*4 Ratec29 (nr__2) ! (cm+3/s) Rate coefficient for index = 29 (1)
real*4 Ratec30 (nr__2) ! (cm+3/s) Rate coefficient for index = 30 (1)
real*4 Ratec31 (nr__2) ! (cm+3/s) Rate coefficient for index = 31 (1)
real*4 Ratec32 (nr__2) ! (cm+3/s) Rate coefficient for index = 32 (1)
real*4 Ratec33 (nr__2) ! (cm+3/s) Rate coefficient for index = 33 (1)
real*4 Ratec34 (nr__2) ! (cm+3/s) Rate coefficient for index = 34 (1)
real*4 Ratec35 (nr__2) ! (cm+3/s) Rate coefficient for index = 35 (1)
real*4 Ratec36 (nr__2) ! (cm+3/s) Rate coefficient for index = 36 (1)
real*4 Ratec37 (nr__2) ! (cm+3/s) Rate coefficient for index = 37 (1)
real*4 Ratec38 (nr__2) ! (cm+3/s) Rate coefficient for index = 38 (1)
real*4 Ratec39 (nr__2) ! (cm+3/s) Rate coefficient for index = 39 (1)
real*4 Ratec40 (nr__2) ! (cm+3/s) Rate coefficient for index = 40 (1)
real*4 Ratec41 (nr__2) ! (cm+3/s) Rate coefficient for index = 41 (1)
real*4 Ratec42 (nr__2) ! (cm+3/s) Rate coefficient for index = 42 (1)
real*4 Ratec43 (nr__2) ! (cm+3/s) Rate coefficient for index = 43 (1)
real*4 Ratec44 (nr__2) ! (cm+3/s) Rate coefficient for index = 44 (1)
real*4 Ratec45 (nr__2) ! (cm+3/s) Rate coefficient for index = 45 (1)
real*4 Ratec46 (nr__2) ! (cm+3/s) Rate coefficient for index = 46 (1)
real*4 Ratec47 (nr__2) ! (cm+3/s) Rate coefficient for index = 47 (1)
real*4 Ratec48 (nr__2) ! (cm+3/s) Rate coefficient for index = 48 (1)
real*4 Ratec49 (nr__2) ! (cm+3/s) Rate coefficient for index = 49 (1)
real*4 Ratec50 (nr__2) ! (cm+3/s) Rate coefficient for index = 50 (1)
real*4 Ratec51 (nr__2) ! (cm+3/s) Rate coefficient for index = 51 (1)
real*4 Ratec52 (nr__2) ! (cm+3/s) Rate coefficient for index = 52 (1)
real*4 Ratec53 (nr__2) ! (cm+3/s) Rate coefficient for index = 53 (1)
real*4 Ratec54 (nr__2) ! (cm+3/s) Rate coefficient for index = 54 (1)
real*4 Ratec55 (nr__2) ! (cm+3/s) Rate coefficient for index = 55 (1)
real*4 Ratec56 (nr__2) ! (cm+3/s) Rate coefficient for index = 56 (1)
real*4 Ratec57 (nr__2) ! (cm+3/s) Rate coefficient for index = 57 (1)
real*4 Ratec58 (nr__2) ! (cm+3/s) Rate coefficient for index = 58 (1)
real*4 Ratec59 (nr__2) ! (cm+3/s) Rate coefficient for index = 59 (1)
real*4 Ratec60 (nr__2) ! (cm+3/s) Rate coefficient for index = 60 (1)
real*4 Ratec61 (nr__2) ! (cm+3/s) Rate coefficient for index = 61 (1)
real*4 Ratec62 (nr__2) ! (cm+3/s) Rate coefficient for index = 62 (1)
real*4 Ratec63 (nr__2) ! (cm+3/s) Rate coefficient for index = 63 (1)
real*4 Ratec64 (nr__2) ! (cm+3/s) Rate coefficient for index = 64 (1)
real*4 Ratec65 (nr__2) ! (cm+3/s) Rate coefficient for index = 65 (1)
real*4 Ratec66 (nr__2) ! (cm+3/s) Rate coefficient for index = 66 (1)
real*4 Ratec67 (nr__2) ! (cm+3/s) Rate coefficient for index = 67 (1)
real*4 Ratec68 (nr__2) ! (cm+3/s) Rate coefficient for index = 68 (1)
real*4 Ratec69 (nr__2) ! (cm+3/s) Rate coefficient for index = 69 (1)
real*4 Ratec70 (nr__2) ! (cm+3/s) Rate coefficient for index = 70 (1)
real*4 Ratec71 (nr__2) ! (cm+3/s) Rate coefficient for index = 71 (1)
real*4 Ratec72 (nr__2) ! (cm+3/s) Rate coefficient for index = 72 (1)
real*4 Ratec73 (nr__2) ! (cm+3/s) Rate coefficient for index = 73 (1)
real*4 Ratec74 (nr__2) ! (cm+3/s) Rate coefficient for index = 74 (1)
real*4 Ratec75 (nr__2) ! (cm+3/s) Rate coefficient for index = 75 (1)
real*4 Ratec76 (nr__2) ! (cm+3/s) Rate coefficient for index = 76 (1)
real*4 Ratec77 (nr__2) ! (cm+3/s) Rate coefficient for index = 77 (1)
real*4 Ratec78 (nr__2) ! (cm+3/s) Rate coefficient for index = 78 (1)
real*4 Ratec79 (nr__2) ! (cm+3/s) Rate coefficient for index = 79 (1)
real*4 Ratec80 (nr__2) ! (cm+3/s) Rate coefficient for index = 80 (1)
real*4 Ratec81 (nr__2) ! (cm+3/s) Rate coefficient for index = 81 (1)
real*4 Ratec82 (nr__2) ! (cm+3/s) Rate coefficient for index = 82 (1)
real*4 Ratec83 (nr__2) ! (cm+3/s) Rate coefficient for index = 83 (1)
real*4 Ratec84 (nr__2) ! (cm+3/s) Rate coefficient for index = 84 (1)
real*4 Ratec85 (nr__2) ! (cm+3/s) Rate coefficient for index = 85 (1)
real*4 Ratec86 (nr__2) ! (cm+3/s) Rate coefficient for index = 86 (1)
real*4 Ratec87 (nr__2) ! (cm+3/s) Rate coefficient for index = 87 (1)
real*4 Ratec88 (nr__2) ! (cm+3/s) Rate coefficient for index = 88 (1)
real*4 Ratec89 (nr__2) ! (cm+3/s) Rate coefficient for index = 89 (1)
real*4 Ratec90 (nr__2) ! (cm+3/s) Rate coefficient for index = 90 (1)
real*4 Ratec91 (nr__2) ! (cm+3/s) Rate coefficient for index = 91 (1)
real*4 Ratec92 (nr__2) ! (cm+3/s) Rate coefficient for index = 92 (1)
real*4 Ratec93 (nr__2) ! (cm+3/s) Rate coefficient for index = 93 (1)
real*4 Ratec94 (nr__2) ! (cm+3/s) Rate coefficient for index = 94 (1)
real*4 Ratec95 (nr__2) ! (cm+3/s) Rate coefficient for index = 95 (1)
real*4 Ratec96 (nr__2) ! (cm+3/s) Rate coefficient for index = 96 (1)
real*4 Ratec97 (nr__2) ! (cm+3/s) Rate coefficient for index = 97 (1)
real*4 Ratec98 (nr__2) ! (cm+3/s) Rate coefficient for index = 98 (1)
real*4 Ratec99 (nr__2) ! (cm+3/s) Rate coefficient for index = 99 (1)
real*4 Ratec100 (nr__2) ! (cm+3/s) Rate coefficient for index =100 (1)
real*4 Ratec101 (nr__2) ! (cm+3/s) Rate coefficient for index =101 (1)
real*4 Ratec102 (nr__2) ! (cm+3/s) Rate coefficient for index =102 (1)
real*4 Ratec103 (nr__2) ! (cm+3/s) Rate coefficient for index =103 (1)
real*4 Ratec104 (nr__2) ! (cm+3/s) Rate coefficient for index =104 (1)
real*4 Ratec105 (nr__2) ! (cm+3/s) Rate coefficient for index =105 (1)
real*4 Ratec106 (nr__2) ! (cm+3/s) Rate coefficient for index =106 (1)
real*4 Ratec107 (nr__2) ! (cm+3/s) Rate coefficient for index =107 (1)
real*4 Ratec108 (nr__2) ! (cm+3/s) Rate coefficient for index =108 (1)
real*4 Ratec109 (nr__2) ! (cm+3/s) Rate coefficient for index =109 (1)
real*4 Ratec110 (nr__2) ! (cm+3/s) Rate coefficient for index =110 (1)
real*4 Ratec111 (nr__2) ! (cm+3/s) Rate coefficient for index =111 (1)
real*4 Ratec112 (nr__2) ! (cm+3/s) Rate coefficient for index =112 (1)
real*4 Ratec113 (nr__2) ! (cm+3/s) Rate coefficient for index =113 (1)
real*4 Ratec114 (nr__2) ! (cm+3/s) Rate coefficient for index =114 (1)
real*4 Ratec115 (nr__2) ! (cm+3/s) Rate coefficient for index =115 (1)
real*4 Ratec116 (nr__2) ! (cm+3/s) Rate coefficient for index =116 (1)
real*4 Ratec117 (nr__2) ! (cm+3/s) Rate coefficient for index =117 (1)
real*4 Ratec118 (nr__2) ! (cm+3/s) Rate coefficient for index =118 (1)
real*4 Ratec119 (nr__2) ! (cm+3/s) Rate coefficient for index =119 (1)
real*4 Ratec120 (nr__2) ! (cm+3/s) Rate coefficient for index =120 (1)
real*4 Ratec121 (nr__2) ! (cm+3/s) Rate coefficient for index =121 (1)
real*4 Ratec122 (nr__2) ! (cm+3/s) Rate coefficient for index =122 (1)
real*4 Ratec123 (nr__2) ! (cm+3/s) Rate coefficient for index =123 (1)
real*4 Ratec124 (nr__2) ! (cm+3/s) Rate coefficient for index =124 (1)
real*4 Ratec125 (nr__2) ! (cm+3/s) Rate coefficient for index =125 (1)
real*4 Ratec126 (nr__2) ! (cm+3/s) Rate coefficient for index =126 (1)
real*4 Ratec127 (nr__2) ! (cm+3/s) Rate coefficient for index =127 (1)
real*4 Ratec128 (nr__2) ! (cm+3/s) Rate coefficient for index =128 (1)
real*4 Ratec129 (nr__2) ! (cm+3/s) Rate coefficient for index =129 (1)
real*4 Ratec130 (nr__2) ! (cm+3/s) Rate coefficient for index =130 (1)
real*4 Ratec131 (nr__2) ! (cm+3/s) Rate coefficient for index =131 (1)
real*4 Ratec132 (nr__2) ! (cm+3/s) Rate coefficient for index =132 (1)
real*4 Ratec133 (nr__2) ! (cm+3/s) Rate coefficient for index =133 (1)
real*4 Ratec134 (nr__2) ! (cm+3/s) Rate coefficient for index =134 (1)
real*4 Ratec135 (nr__2) ! (cm+3/s) Rate coefficient for index =135 (1)
real*4 Ratec136 (nr__2) ! (cm+3/s) Rate coefficient for index =136 (1)
real*4 Ratec137 (nr__2) ! (cm+3/s) Rate coefficient for index =137 (1)
real*4 Ratec138 (nr__2) ! (cm+3/s) Rate coefficient for index =138 (1)
real*4 Ratec139 (nr__2) ! (cm+3/s) Rate coefficient for index =139 (1)
real*4 Ratec140 (nr__2) ! (cm+3/s) Rate coefficient for index =140 (1)
real*4 Ratec141 (nr__2) ! (cm+3/s) Rate coefficient for index =141 (1)
real*4 Ratec142 (nr__2) ! (cm+3/s) Rate coefficient for index =142 (1)
real*4 Ratec143 (nr__2) ! (cm+3/s) Rate coefficient for index =143 (1)
real*4 Ratec144 (nr__2) ! (cm+3/s) Rate coefficient for index =144 (1)
real*4 Ratec145 (nr__2) ! (cm+3/s) Rate coefficient for index =145 (1)
real*4 Ratec146 (nr__2) ! (cm+3/s) Rate coefficient for index =146 (1)
real*4 Ratec147 (nr__2) ! (cm+3/s) Rate coefficient for index =147 (1)
real*4 Ratec148 (nr__2) ! (cm+3/s) Rate coefficient for index =148 (1)
real*4 Ratec149 (nr__2) ! (cm+3/s) Rate coefficient for index =149 (1)
real*4 Ratec150 (nr__2) ! (cm+3/s) Rate coefficient for index =150 (1)
real*4 Ratec151 (nr__2) ! (cm+3/s) Rate coefficient for index =151 (1)
real*4 Ratec152 (nr__2) ! (cm+3/s) Rate coefficient for index =152 (1)
real*4 Ratec153 (nr__2) ! (cm+3/s) Rate coefficient for index =153 (1)
real*4 Ratec154 (nr__2) ! (cm+3/s) Rate coefficient for index =154 (1)
real*4 Ratec155 (nr__2) ! (cm+3/s) Rate coefficient for index =155 (1)
real*4 Ratec156 (nr__2) ! (cm+3/s) Rate coefficient for index =156 (1)
real*4 Ratec157 (nr__2) ! (cm+3/s) Rate coefficient for index =157 (1)
real*4 Ratec158 (nr__2) ! (cm+3/s) Rate coefficient for index =158 (1)
real*4 Ratec159 (nr__2) ! (cm+3/s) Rate coefficient for index =159 (1)
real*4 Ratec160 (nr__2) ! (cm+3/s) Rate coefficient for index =160 (1)
real*4 Ratec161 (nr__2) ! (cm+3/s) Rate coefficient for index =161 (1)
real*4 Ratec162 (nr__2) ! (cm+3/s) Rate coefficient for index =162 (1)
real*4 Ratec163 (nr__2) ! (cm+3/s) Rate coefficient for index =163 (1)
real*4 Ratec164 (nr__2) ! (cm+3/s) Rate coefficient for index =164 (1)
real*4 Ratec165 (nr__2) ! (cm+3/s) Rate coefficient for index =165 (1)
real*4 Ratec166 (nr__2) ! (cm+3/s) Rate coefficient for index =166 (1)
real*4 Ratec167 (nr__2) ! (cm+3/s) Rate coefficient for index =167 (1)
real*4 Ratec168 (nr__2) ! (cm+3/s) Rate coefficient for index =168 (1)
real*4 Ratec169 (nr__2) ! (cm+3/s) Rate coefficient for index =169 (1)
real*4 Ratec170 (nr__2) ! (cm+3/s) Rate coefficient for index =170 (1)
real*4 Ratec171 (nr__2) ! (cm+3/s) Rate coefficient for index =171 (1)
real*4 Ratec172 (nr__2) ! (cm+3/s) Rate coefficient for index =172 (1)
real*4 Ratec173 (nr__2) ! (cm+3/s) Rate coefficient for index =173 (1)
real*4 Ratec174 (nr__2) ! (cm+3/s) Rate coefficient for index =174 (1)
real*4 Ratec175 (nr__2) ! (cm+3/s) Rate coefficient for index =175 (1)
real*4 Ratec176 (nr__2) ! (cm+3/s) Rate coefficient for index =176 (1)
real*4 Ratec177 (nr__2) ! (cm+3/s) Rate coefficient for index =177 (1)
real*4 Ratec178 (nr__2) ! (cm+3/s) Rate coefficient for index =178 (1)
real*4 Ratec179 (nr__2) ! (cm+3/s) Rate coefficient for index =179 (1)
real*4 Ratec180 (nr__2) ! (cm+3/s) Rate coefficient for index =180 (1)
real*4 Ratec181 (nr__2) ! (cm+3/s) Rate coefficient for index =181 (1)
real*4 Ratec182 (nr__2) ! (cm+3/s) Rate coefficient for index =182 (1)
real*4 Ratec183 (nr__2) ! (cm+3/s) Rate coefficient for index =183 (1)
real*4 Ratec184 (nr__2) ! (cm+3/s) Rate coefficient for index =184 (1)
real*4 Ratec185 (nr__2) ! (cm+3/s) Rate coefficient for index =185 (1)
real*4 Ratec186 (nr__2) ! (cm+3/s) Rate coefficient for index =186 (1)
real*4 Ratec187 (nr__2) ! (cm+3/s) Rate coefficient for index =187 (1)
real*4 Ratec188 (nr__2) ! (cm+3/s) Rate coefficient for index =188 (1)
real*4 Ratec189 (nr__2) ! (cm+3/s) Rate coefficient for index =189 (1)
real*4 Ratec190 (nr__2) ! (cm+3/s) Rate coefficient for index =190 (1)
real*4 Ratec191 (nr__2) ! (cm+3/s) Rate coefficient for index =191 (1)
*Note (1): The files are in the form
* (row,column) = (final state, initial state),
* as defined by the labels in states.dat.
C=============================================================================
C Loading file 'table1.dat' ! Input data for calculations; full table 1
C Format for file interpretation
1 format(
+ A10,1X,I1,1X,I1,1X,I1,1X,I1,1X,I6,1X,I6,1X,I6,1X,I1,1X,A11,1X,
+ I1,1X,I1,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,227
read(1,'(A64)')ar__
read(ar__,1)
+ State(i__),LA(i__),v2SA_1(i__),n(i__),l(i__),EjX(i__),
+ Elim(i__),Ej(i__),Neq(i__),Core(i__),Lc(i__),v2cA_1(i__),
+ G(i__)
c ..............Just test output...........
write(6,1)
+ State(i__),LA(i__),v2SA_1(i__),n(i__),l(i__),EjX(i__),
+ Elim(i__),Ej(i__),Neq(i__),Core(i__),Lc(i__),v2cA_1(i__),
+ G(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'states.dat' ! States and their energies
C Format for file interpretation
2 format(I3,1X,A11,3X,F9.3)
C Effective file loading
open(unit=1,status='old',file=
+'states.dat')
write(6,*) '....Loading file: states.dat'
do i__=1,191
read(1,'(A27)')ar__1
read(ar__1,2)Index(i__),Label(i__),E(i__)
c ..............Just test output...........
write(6,2)Index(i__),Label(i__),E(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'files/*' ! Individual rate coefficients files
C Format for file interpretation
3 format(
+ 1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,
+ E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,
+ 1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,
+ E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,
+ 1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,
+ E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,
+ 1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,
+ E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,
+ 1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,
+ E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,
+ 1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,
+ E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,
+ 1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,
+ E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,
+ 1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,
+ E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,
+ 1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,
+ E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,
+ 1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,
+ E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,
+ 1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,
+ E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,
+ 1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,
+ E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,
+ 1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,
+ E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,
+ 1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,
+ E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,
+ 1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,E12.4,1X,
+ E12.4,1X,E12.4,1X,E12.4)
C Effective file loading
open(unit=1,status='old',file=
+'files/*')
write(6,*) '....Loading file: files/*'
do i__=1,60
read(1,'(A2483)')ar__2
read(ar__2,3)
+ Ratec1(i__),Ratec2(i__),Ratec3(i__),Ratec4(i__),Ratec5(i__),
+ Ratec6(i__),Ratec7(i__),Ratec8(i__),Ratec9(i__),Ratec10(i__),
+ Ratec11(i__),Ratec12(i__),Ratec13(i__),Ratec14(i__),
+ Ratec15(i__),Ratec16(i__),Ratec17(i__),Ratec18(i__),
+ Ratec19(i__),Ratec20(i__),Ratec21(i__),Ratec22(i__),
+ Ratec23(i__),Ratec24(i__),Ratec25(i__),Ratec26(i__),
+ Ratec27(i__),Ratec28(i__),Ratec29(i__),Ratec30(i__),
+ Ratec31(i__),Ratec32(i__),Ratec33(i__),Ratec34(i__),
+ Ratec35(i__),Ratec36(i__),Ratec37(i__),Ratec38(i__),
+ Ratec39(i__),Ratec40(i__),Ratec41(i__),Ratec42(i__),
+ Ratec43(i__),Ratec44(i__),Ratec45(i__),Ratec46(i__),
+ Ratec47(i__),Ratec48(i__),Ratec49(i__),Ratec50(i__),
+ Ratec51(i__),Ratec52(i__),Ratec53(i__),Ratec54(i__),
+ Ratec55(i__),Ratec56(i__),Ratec57(i__),Ratec58(i__),
+ Ratec59(i__),Ratec60(i__),Ratec61(i__),Ratec62(i__),
+ Ratec63(i__),Ratec64(i__),Ratec65(i__),Ratec66(i__),
+ Ratec67(i__),Ratec68(i__),Ratec69(i__),Ratec70(i__),
+ Ratec71(i__),Ratec72(i__),Ratec73(i__),Ratec74(i__),
+ Ratec75(i__),Ratec76(i__),Ratec77(i__),Ratec78(i__),
+ Ratec79(i__),Ratec80(i__),Ratec81(i__),Ratec82(i__),
+ Ratec83(i__),Ratec84(i__),Ratec85(i__),Ratec86(i__),
+ Ratec87(i__),Ratec88(i__),Ratec89(i__),Ratec90(i__),
+ Ratec91(i__),Ratec92(i__),Ratec93(i__),Ratec94(i__),
+ Ratec95(i__),Ratec96(i__),Ratec97(i__),Ratec98(i__),
+ Ratec99(i__),Ratec100(i__),Ratec101(i__),Ratec102(i__),
+ Ratec103(i__),Ratec104(i__),Ratec105(i__),Ratec106(i__),
+ Ratec107(i__),Ratec108(i__),Ratec109(i__),Ratec110(i__),
+ Ratec111(i__),Ratec112(i__),Ratec113(i__),Ratec114(i__),
+ Ratec115(i__),Ratec116(i__),Ratec117(i__),Ratec118(i__),
+ Ratec119(i__),Ratec120(i__),Ratec121(i__),Ratec122(i__),
+ Ratec123(i__),Ratec124(i__),Ratec125(i__),Ratec126(i__),
+ Ratec127(i__),Ratec128(i__),Ratec129(i__),Ratec130(i__),
+ Ratec131(i__),Ratec132(i__),Ratec133(i__),Ratec134(i__),
+ Ratec135(i__),Ratec136(i__),Ratec137(i__),Ratec138(i__),
+ Ratec139(i__),Ratec140(i__),Ratec141(i__),Ratec142(i__),
+ Ratec143(i__),Ratec144(i__),Ratec145(i__),Ratec146(i__),
+ Ratec147(i__),Ratec148(i__),Ratec149(i__),Ratec150(i__),
+ Ratec151(i__),Ratec152(i__),Ratec153(i__),Ratec154(i__),
+ Ratec155(i__),Ratec156(i__),Ratec157(i__),Ratec158(i__),
+ Ratec159(i__),Ratec160(i__),Ratec161(i__),Ratec162(i__),
+ Ratec163(i__),Ratec164(i__),Ratec165(i__),Ratec166(i__),
+ Ratec167(i__),Ratec168(i__),Ratec169(i__),Ratec170(i__),
+ Ratec171(i__),Ratec172(i__),Ratec173(i__),Ratec174(i__),
+ Ratec175(i__),Ratec176(i__),Ratec177(i__),Ratec178(i__),
+ Ratec179(i__),Ratec180(i__),Ratec181(i__),Ratec182(i__),
+ Ratec183(i__),Ratec184(i__),Ratec185(i__),Ratec186(i__),
+ Ratec187(i__),Ratec188(i__),Ratec189(i__),Ratec190(i__),
+ Ratec191(i__)
c ..............Just test output...........
write(6,3)
+ Ratec1(i__),Ratec2(i__),Ratec3(i__),Ratec4(i__),Ratec5(i__),
+ Ratec6(i__),Ratec7(i__),Ratec8(i__),Ratec9(i__),Ratec10(i__),
+ Ratec11(i__),Ratec12(i__),Ratec13(i__),Ratec14(i__),
+ Ratec15(i__),Ratec16(i__),Ratec17(i__),Ratec18(i__),
+ Ratec19(i__),Ratec20(i__),Ratec21(i__),Ratec22(i__),
+ Ratec23(i__),Ratec24(i__),Ratec25(i__),Ratec26(i__),
+ Ratec27(i__),Ratec28(i__),Ratec29(i__),Ratec30(i__),
+ Ratec31(i__),Ratec32(i__),Ratec33(i__),Ratec34(i__),
+ Ratec35(i__),Ratec36(i__),Ratec37(i__),Ratec38(i__),
+ Ratec39(i__),Ratec40(i__),Ratec41(i__),Ratec42(i__),
+ Ratec43(i__),Ratec44(i__),Ratec45(i__),Ratec46(i__),
+ Ratec47(i__),Ratec48(i__),Ratec49(i__),Ratec50(i__),
+ Ratec51(i__),Ratec52(i__),Ratec53(i__),Ratec54(i__),
+ Ratec55(i__),Ratec56(i__),Ratec57(i__),Ratec58(i__),
+ Ratec59(i__),Ratec60(i__),Ratec61(i__),Ratec62(i__),
+ Ratec63(i__),Ratec64(i__),Ratec65(i__),Ratec66(i__),
+ Ratec67(i__),Ratec68(i__),Ratec69(i__),Ratec70(i__),
+ Ratec71(i__),Ratec72(i__),Ratec73(i__),Ratec74(i__),
+ Ratec75(i__),Ratec76(i__),Ratec77(i__),Ratec78(i__),
+ Ratec79(i__),Ratec80(i__),Ratec81(i__),Ratec82(i__),
+ Ratec83(i__),Ratec84(i__),Ratec85(i__),Ratec86(i__),
+ Ratec87(i__),Ratec88(i__),Ratec89(i__),Ratec90(i__),
+ Ratec91(i__),Ratec92(i__),Ratec93(i__),Ratec94(i__),
+ Ratec95(i__),Ratec96(i__),Ratec97(i__),Ratec98(i__),
+ Ratec99(i__),Ratec100(i__),Ratec101(i__),Ratec102(i__),
+ Ratec103(i__),Ratec104(i__),Ratec105(i__),Ratec106(i__),
+ Ratec107(i__),Ratec108(i__),Ratec109(i__),Ratec110(i__),
+ Ratec111(i__),Ratec112(i__),Ratec113(i__),Ratec114(i__),
+ Ratec115(i__),Ratec116(i__),Ratec117(i__),Ratec118(i__),
+ Ratec119(i__),Ratec120(i__),Ratec121(i__),Ratec122(i__),
+ Ratec123(i__),Ratec124(i__),Ratec125(i__),Ratec126(i__),
+ Ratec127(i__),Ratec128(i__),Ratec129(i__),Ratec130(i__),
+ Ratec131(i__),Ratec132(i__),Ratec133(i__),Ratec134(i__),
+ Ratec135(i__),Ratec136(i__),Ratec137(i__),Ratec138(i__),
+ Ratec139(i__),Ratec140(i__),Ratec141(i__),Ratec142(i__),
+ Ratec143(i__),Ratec144(i__),Ratec145(i__),Ratec146(i__),
+ Ratec147(i__),Ratec148(i__),Ratec149(i__),Ratec150(i__),
+ Ratec151(i__),Ratec152(i__),Ratec153(i__),Ratec154(i__),
+ Ratec155(i__),Ratec156(i__),Ratec157(i__),Ratec158(i__),
+ Ratec159(i__),Ratec160(i__),Ratec161(i__),Ratec162(i__),
+ Ratec163(i__),Ratec164(i__),Ratec165(i__),Ratec166(i__),
+ Ratec167(i__),Ratec168(i__),Ratec169(i__),Ratec170(i__),
+ Ratec171(i__),Ratec172(i__),Ratec173(i__),Ratec174(i__),
+ Ratec175(i__),Ratec176(i__),Ratec177(i__),Ratec178(i__),
+ Ratec179(i__),Ratec180(i__),Ratec181(i__),Ratec182(i__),
+ Ratec183(i__),Ratec184(i__),Ratec185(i__),Ratec186(i__),
+ Ratec187(i__),Ratec188(i__),Ratec189(i__),Ratec190(i__),
+ Ratec191(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end