Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/612/A90 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-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 ! State label (State)
integer*4 LA ! Electronic orbital angular momentum (L_A)
integer*4 v2SA_1 ! Electronic spin multiplicity (2S_A+1)
integer*4 n ! Principal quantum number for the active
* electron (n)
integer*4 l ! Orbital angular momentum quantum number for
* the active electron (l)
integer*4 EjX ! (cm-1) Term energy in 1/cm (E_j^X)
integer*4 Elim ! (cm-1) Series limit energy in 1/cm (E_lim)
integer*4 Ej ! (cm-1) Asymptotic molecular energy in 1/cm (E_j)
integer*4 Neq ! (cm-1) Number of equivalent active electrons (N_eq)
character*11 Core ! Label for core (Core)
integer*4 Lc ! Core electronic orbital angular momentum (L_c)
integer*4 v2cA_1 ! Core electronic spin multiplicity (2c_A+1)
real*4 G ! 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 ! Index
character*11 Label ! Term label
real*8 E ! (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 ! (cm+3/s) Rate coefficient for index = 1 (1)
real*4 Ratec2 ! (cm+3/s) Rate coefficient for index = 2 (1)
real*4 Ratec3 ! (cm+3/s) Rate coefficient for index = 3 (1)
real*4 Ratec4 ! (cm+3/s) Rate coefficient for index = 4 (1)
real*4 Ratec5 ! (cm+3/s) Rate coefficient for index = 5 (1)
real*4 Ratec6 ! (cm+3/s) Rate coefficient for index = 6 (1)
real*4 Ratec7 ! (cm+3/s) Rate coefficient for index = 7 (1)
real*4 Ratec8 ! (cm+3/s) Rate coefficient for index = 8 (1)
real*4 Ratec9 ! (cm+3/s) Rate coefficient for index = 9 (1)
real*4 Ratec10 ! (cm+3/s) Rate coefficient for index = 10 (1)
real*4 Ratec11 ! (cm+3/s) Rate coefficient for index = 11 (1)
real*4 Ratec12 ! (cm+3/s) Rate coefficient for index = 12 (1)
real*4 Ratec13 ! (cm+3/s) Rate coefficient for index = 13 (1)
real*4 Ratec14 ! (cm+3/s) Rate coefficient for index = 14 (1)
real*4 Ratec15 ! (cm+3/s) Rate coefficient for index = 15 (1)
real*4 Ratec16 ! (cm+3/s) Rate coefficient for index = 16 (1)
real*4 Ratec17 ! (cm+3/s) Rate coefficient for index = 17 (1)
real*4 Ratec18 ! (cm+3/s) Rate coefficient for index = 18 (1)
real*4 Ratec19 ! (cm+3/s) Rate coefficient for index = 19 (1)
real*4 Ratec20 ! (cm+3/s) Rate coefficient for index = 20 (1)
real*4 Ratec21 ! (cm+3/s) Rate coefficient for index = 21 (1)
real*4 Ratec22 ! (cm+3/s) Rate coefficient for index = 22 (1)
real*4 Ratec23 ! (cm+3/s) Rate coefficient for index = 23 (1)
real*4 Ratec24 ! (cm+3/s) Rate coefficient for index = 24 (1)
real*4 Ratec25 ! (cm+3/s) Rate coefficient for index = 25 (1)
real*4 Ratec26 ! (cm+3/s) Rate coefficient for index = 26 (1)
real*4 Ratec27 ! (cm+3/s) Rate coefficient for index = 27 (1)
real*4 Ratec28 ! (cm+3/s) Rate coefficient for index = 28 (1)
real*4 Ratec29 ! (cm+3/s) Rate coefficient for index = 29 (1)
real*4 Ratec30 ! (cm+3/s) Rate coefficient for index = 30 (1)
real*4 Ratec31 ! (cm+3/s) Rate coefficient for index = 31 (1)
real*4 Ratec32 ! (cm+3/s) Rate coefficient for index = 32 (1)
real*4 Ratec33 ! (cm+3/s) Rate coefficient for index = 33 (1)
real*4 Ratec34 ! (cm+3/s) Rate coefficient for index = 34 (1)
real*4 Ratec35 ! (cm+3/s) Rate coefficient for index = 35 (1)
real*4 Ratec36 ! (cm+3/s) Rate coefficient for index = 36 (1)
real*4 Ratec37 ! (cm+3/s) Rate coefficient for index = 37 (1)
real*4 Ratec38 ! (cm+3/s) Rate coefficient for index = 38 (1)
real*4 Ratec39 ! (cm+3/s) Rate coefficient for index = 39 (1)
real*4 Ratec40 ! (cm+3/s) Rate coefficient for index = 40 (1)
real*4 Ratec41 ! (cm+3/s) Rate coefficient for index = 41 (1)
real*4 Ratec42 ! (cm+3/s) Rate coefficient for index = 42 (1)
real*4 Ratec43 ! (cm+3/s) Rate coefficient for index = 43 (1)
real*4 Ratec44 ! (cm+3/s) Rate coefficient for index = 44 (1)
real*4 Ratec45 ! (cm+3/s) Rate coefficient for index = 45 (1)
real*4 Ratec46 ! (cm+3/s) Rate coefficient for index = 46 (1)
real*4 Ratec47 ! (cm+3/s) Rate coefficient for index = 47 (1)
real*4 Ratec48 ! (cm+3/s) Rate coefficient for index = 48 (1)
real*4 Ratec49 ! (cm+3/s) Rate coefficient for index = 49 (1)
real*4 Ratec50 ! (cm+3/s) Rate coefficient for index = 50 (1)
real*4 Ratec51 ! (cm+3/s) Rate coefficient for index = 51 (1)
real*4 Ratec52 ! (cm+3/s) Rate coefficient for index = 52 (1)
real*4 Ratec53 ! (cm+3/s) Rate coefficient for index = 53 (1)
real*4 Ratec54 ! (cm+3/s) Rate coefficient for index = 54 (1)
real*4 Ratec55 ! (cm+3/s) Rate coefficient for index = 55 (1)
real*4 Ratec56 ! (cm+3/s) Rate coefficient for index = 56 (1)
real*4 Ratec57 ! (cm+3/s) Rate coefficient for index = 57 (1)
real*4 Ratec58 ! (cm+3/s) Rate coefficient for index = 58 (1)
real*4 Ratec59 ! (cm+3/s) Rate coefficient for index = 59 (1)
real*4 Ratec60 ! (cm+3/s) Rate coefficient for index = 60 (1)
real*4 Ratec61 ! (cm+3/s) Rate coefficient for index = 61 (1)
real*4 Ratec62 ! (cm+3/s) Rate coefficient for index = 62 (1)
real*4 Ratec63 ! (cm+3/s) Rate coefficient for index = 63 (1)
real*4 Ratec64 ! (cm+3/s) Rate coefficient for index = 64 (1)
real*4 Ratec65 ! (cm+3/s) Rate coefficient for index = 65 (1)
real*4 Ratec66 ! (cm+3/s) Rate coefficient for index = 66 (1)
real*4 Ratec67 ! (cm+3/s) Rate coefficient for index = 67 (1)
real*4 Ratec68 ! (cm+3/s) Rate coefficient for index = 68 (1)
real*4 Ratec69 ! (cm+3/s) Rate coefficient for index = 69 (1)
real*4 Ratec70 ! (cm+3/s) Rate coefficient for index = 70 (1)
real*4 Ratec71 ! (cm+3/s) Rate coefficient for index = 71 (1)
real*4 Ratec72 ! (cm+3/s) Rate coefficient for index = 72 (1)
real*4 Ratec73 ! (cm+3/s) Rate coefficient for index = 73 (1)
real*4 Ratec74 ! (cm+3/s) Rate coefficient for index = 74 (1)
real*4 Ratec75 ! (cm+3/s) Rate coefficient for index = 75 (1)
real*4 Ratec76 ! (cm+3/s) Rate coefficient for index = 76 (1)
real*4 Ratec77 ! (cm+3/s) Rate coefficient for index = 77 (1)
real*4 Ratec78 ! (cm+3/s) Rate coefficient for index = 78 (1)
real*4 Ratec79 ! (cm+3/s) Rate coefficient for index = 79 (1)
real*4 Ratec80 ! (cm+3/s) Rate coefficient for index = 80 (1)
real*4 Ratec81 ! (cm+3/s) Rate coefficient for index = 81 (1)
real*4 Ratec82 ! (cm+3/s) Rate coefficient for index = 82 (1)
real*4 Ratec83 ! (cm+3/s) Rate coefficient for index = 83 (1)
real*4 Ratec84 ! (cm+3/s) Rate coefficient for index = 84 (1)
real*4 Ratec85 ! (cm+3/s) Rate coefficient for index = 85 (1)
real*4 Ratec86 ! (cm+3/s) Rate coefficient for index = 86 (1)
real*4 Ratec87 ! (cm+3/s) Rate coefficient for index = 87 (1)
real*4 Ratec88 ! (cm+3/s) Rate coefficient for index = 88 (1)
real*4 Ratec89 ! (cm+3/s) Rate coefficient for index = 89 (1)
real*4 Ratec90 ! (cm+3/s) Rate coefficient for index = 90 (1)
real*4 Ratec91 ! (cm+3/s) Rate coefficient for index = 91 (1)
real*4 Ratec92 ! (cm+3/s) Rate coefficient for index = 92 (1)
real*4 Ratec93 ! (cm+3/s) Rate coefficient for index = 93 (1)
real*4 Ratec94 ! (cm+3/s) Rate coefficient for index = 94 (1)
real*4 Ratec95 ! (cm+3/s) Rate coefficient for index = 95 (1)
real*4 Ratec96 ! (cm+3/s) Rate coefficient for index = 96 (1)
real*4 Ratec97 ! (cm+3/s) Rate coefficient for index = 97 (1)
real*4 Ratec98 ! (cm+3/s) Rate coefficient for index = 98 (1)
real*4 Ratec99 ! (cm+3/s) Rate coefficient for index = 99 (1)
real*4 Ratec100 ! (cm+3/s) Rate coefficient for index =100 (1)
real*4 Ratec101 ! (cm+3/s) Rate coefficient for index =101 (1)
real*4 Ratec102 ! (cm+3/s) Rate coefficient for index =102 (1)
real*4 Ratec103 ! (cm+3/s) Rate coefficient for index =103 (1)
real*4 Ratec104 ! (cm+3/s) Rate coefficient for index =104 (1)
real*4 Ratec105 ! (cm+3/s) Rate coefficient for index =105 (1)
real*4 Ratec106 ! (cm+3/s) Rate coefficient for index =106 (1)
real*4 Ratec107 ! (cm+3/s) Rate coefficient for index =107 (1)
real*4 Ratec108 ! (cm+3/s) Rate coefficient for index =108 (1)
real*4 Ratec109 ! (cm+3/s) Rate coefficient for index =109 (1)
real*4 Ratec110 ! (cm+3/s) Rate coefficient for index =110 (1)
real*4 Ratec111 ! (cm+3/s) Rate coefficient for index =111 (1)
real*4 Ratec112 ! (cm+3/s) Rate coefficient for index =112 (1)
real*4 Ratec113 ! (cm+3/s) Rate coefficient for index =113 (1)
real*4 Ratec114 ! (cm+3/s) Rate coefficient for index =114 (1)
real*4 Ratec115 ! (cm+3/s) Rate coefficient for index =115 (1)
real*4 Ratec116 ! (cm+3/s) Rate coefficient for index =116 (1)
real*4 Ratec117 ! (cm+3/s) Rate coefficient for index =117 (1)
real*4 Ratec118 ! (cm+3/s) Rate coefficient for index =118 (1)
real*4 Ratec119 ! (cm+3/s) Rate coefficient for index =119 (1)
real*4 Ratec120 ! (cm+3/s) Rate coefficient for index =120 (1)
real*4 Ratec121 ! (cm+3/s) Rate coefficient for index =121 (1)
real*4 Ratec122 ! (cm+3/s) Rate coefficient for index =122 (1)
real*4 Ratec123 ! (cm+3/s) Rate coefficient for index =123 (1)
real*4 Ratec124 ! (cm+3/s) Rate coefficient for index =124 (1)
real*4 Ratec125 ! (cm+3/s) Rate coefficient for index =125 (1)
real*4 Ratec126 ! (cm+3/s) Rate coefficient for index =126 (1)
real*4 Ratec127 ! (cm+3/s) Rate coefficient for index =127 (1)
real*4 Ratec128 ! (cm+3/s) Rate coefficient for index =128 (1)
real*4 Ratec129 ! (cm+3/s) Rate coefficient for index =129 (1)
real*4 Ratec130 ! (cm+3/s) Rate coefficient for index =130 (1)
real*4 Ratec131 ! (cm+3/s) Rate coefficient for index =131 (1)
real*4 Ratec132 ! (cm+3/s) Rate coefficient for index =132 (1)
real*4 Ratec133 ! (cm+3/s) Rate coefficient for index =133 (1)
real*4 Ratec134 ! (cm+3/s) Rate coefficient for index =134 (1)
real*4 Ratec135 ! (cm+3/s) Rate coefficient for index =135 (1)
real*4 Ratec136 ! (cm+3/s) Rate coefficient for index =136 (1)
real*4 Ratec137 ! (cm+3/s) Rate coefficient for index =137 (1)
real*4 Ratec138 ! (cm+3/s) Rate coefficient for index =138 (1)
real*4 Ratec139 ! (cm+3/s) Rate coefficient for index =139 (1)
real*4 Ratec140 ! (cm+3/s) Rate coefficient for index =140 (1)
real*4 Ratec141 ! (cm+3/s) Rate coefficient for index =141 (1)
real*4 Ratec142 ! (cm+3/s) Rate coefficient for index =142 (1)
real*4 Ratec143 ! (cm+3/s) Rate coefficient for index =143 (1)
real*4 Ratec144 ! (cm+3/s) Rate coefficient for index =144 (1)
real*4 Ratec145 ! (cm+3/s) Rate coefficient for index =145 (1)
real*4 Ratec146 ! (cm+3/s) Rate coefficient for index =146 (1)
real*4 Ratec147 ! (cm+3/s) Rate coefficient for index =147 (1)
real*4 Ratec148 ! (cm+3/s) Rate coefficient for index =148 (1)
real*4 Ratec149 ! (cm+3/s) Rate coefficient for index =149 (1)
real*4 Ratec150 ! (cm+3/s) Rate coefficient for index =150 (1)
real*4 Ratec151 ! (cm+3/s) Rate coefficient for index =151 (1)
real*4 Ratec152 ! (cm+3/s) Rate coefficient for index =152 (1)
real*4 Ratec153 ! (cm+3/s) Rate coefficient for index =153 (1)
real*4 Ratec154 ! (cm+3/s) Rate coefficient for index =154 (1)
real*4 Ratec155 ! (cm+3/s) Rate coefficient for index =155 (1)
real*4 Ratec156 ! (cm+3/s) Rate coefficient for index =156 (1)
real*4 Ratec157 ! (cm+3/s) Rate coefficient for index =157 (1)
real*4 Ratec158 ! (cm+3/s) Rate coefficient for index =158 (1)
real*4 Ratec159 ! (cm+3/s) Rate coefficient for index =159 (1)
real*4 Ratec160 ! (cm+3/s) Rate coefficient for index =160 (1)
real*4 Ratec161 ! (cm+3/s) Rate coefficient for index =161 (1)
real*4 Ratec162 ! (cm+3/s) Rate coefficient for index =162 (1)
real*4 Ratec163 ! (cm+3/s) Rate coefficient for index =163 (1)
real*4 Ratec164 ! (cm+3/s) Rate coefficient for index =164 (1)
real*4 Ratec165 ! (cm+3/s) Rate coefficient for index =165 (1)
real*4 Ratec166 ! (cm+3/s) Rate coefficient for index =166 (1)
real*4 Ratec167 ! (cm+3/s) Rate coefficient for index =167 (1)
real*4 Ratec168 ! (cm+3/s) Rate coefficient for index =168 (1)
real*4 Ratec169 ! (cm+3/s) Rate coefficient for index =169 (1)
real*4 Ratec170 ! (cm+3/s) Rate coefficient for index =170 (1)
real*4 Ratec171 ! (cm+3/s) Rate coefficient for index =171 (1)
real*4 Ratec172 ! (cm+3/s) Rate coefficient for index =172 (1)
real*4 Ratec173 ! (cm+3/s) Rate coefficient for index =173 (1)
real*4 Ratec174 ! (cm+3/s) Rate coefficient for index =174 (1)
real*4 Ratec175 ! (cm+3/s) Rate coefficient for index =175 (1)
real*4 Ratec176 ! (cm+3/s) Rate coefficient for index =176 (1)
real*4 Ratec177 ! (cm+3/s) Rate coefficient for index =177 (1)
real*4 Ratec178 ! (cm+3/s) Rate coefficient for index =178 (1)
real*4 Ratec179 ! (cm+3/s) Rate coefficient for index =179 (1)
real*4 Ratec180 ! (cm+3/s) Rate coefficient for index =180 (1)
real*4 Ratec181 ! (cm+3/s) Rate coefficient for index =181 (1)
real*4 Ratec182 ! (cm+3/s) Rate coefficient for index =182 (1)
real*4 Ratec183 ! (cm+3/s) Rate coefficient for index =183 (1)
real*4 Ratec184 ! (cm+3/s) Rate coefficient for index =184 (1)
real*4 Ratec185 ! (cm+3/s) Rate coefficient for index =185 (1)
real*4 Ratec186 ! (cm+3/s) Rate coefficient for index =186 (1)
real*4 Ratec187 ! (cm+3/s) Rate coefficient for index =187 (1)
real*4 Ratec188 ! (cm+3/s) Rate coefficient for index =188 (1)
real*4 Ratec189 ! (cm+3/s) Rate coefficient for index =189 (1)
real*4 Ratec190 ! (cm+3/s) Rate coefficient for index =190 (1)
real*4 Ratec191 ! (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,LA,v2SA_1,n,l,EjX,Elim,Ej,Neq,Core,Lc,v2cA_1,G
c ..............Just test output...........
write(6,1)
+ State,LA,v2SA_1,n,l,EjX,Elim,Ej,Neq,Core,Lc,v2cA_1,G
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,Label,E
c ..............Just test output...........
write(6,2)Index,Label,E
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,Ratec2,Ratec3,Ratec4,Ratec5,Ratec6,Ratec7,Ratec8,
+ Ratec9,Ratec10,Ratec11,Ratec12,Ratec13,Ratec14,Ratec15,
+ Ratec16,Ratec17,Ratec18,Ratec19,Ratec20,Ratec21,Ratec22,
+ Ratec23,Ratec24,Ratec25,Ratec26,Ratec27,Ratec28,Ratec29,
+ Ratec30,Ratec31,Ratec32,Ratec33,Ratec34,Ratec35,Ratec36,
+ Ratec37,Ratec38,Ratec39,Ratec40,Ratec41,Ratec42,Ratec43,
+ Ratec44,Ratec45,Ratec46,Ratec47,Ratec48,Ratec49,Ratec50,
+ Ratec51,Ratec52,Ratec53,Ratec54,Ratec55,Ratec56,Ratec57,
+ Ratec58,Ratec59,Ratec60,Ratec61,Ratec62,Ratec63,Ratec64,
+ Ratec65,Ratec66,Ratec67,Ratec68,Ratec69,Ratec70,Ratec71,
+ Ratec72,Ratec73,Ratec74,Ratec75,Ratec76,Ratec77,Ratec78,
+ Ratec79,Ratec80,Ratec81,Ratec82,Ratec83,Ratec84,Ratec85,
+ Ratec86,Ratec87,Ratec88,Ratec89,Ratec90,Ratec91,Ratec92,
+ Ratec93,Ratec94,Ratec95,Ratec96,Ratec97,Ratec98,Ratec99,
+ Ratec100,Ratec101,Ratec102,Ratec103,Ratec104,Ratec105,
+ Ratec106,Ratec107,Ratec108,Ratec109,Ratec110,Ratec111,
+ Ratec112,Ratec113,Ratec114,Ratec115,Ratec116,Ratec117,
+ Ratec118,Ratec119,Ratec120,Ratec121,Ratec122,Ratec123,
+ Ratec124,Ratec125,Ratec126,Ratec127,Ratec128,Ratec129,
+ Ratec130,Ratec131,Ratec132,Ratec133,Ratec134,Ratec135,
+ Ratec136,Ratec137,Ratec138,Ratec139,Ratec140,Ratec141,
+ Ratec142,Ratec143,Ratec144,Ratec145,Ratec146,Ratec147,
+ Ratec148,Ratec149,Ratec150,Ratec151,Ratec152,Ratec153,
+ Ratec154,Ratec155,Ratec156,Ratec157,Ratec158,Ratec159,
+ Ratec160,Ratec161,Ratec162,Ratec163,Ratec164,Ratec165,
+ Ratec166,Ratec167,Ratec168,Ratec169,Ratec170,Ratec171,
+ Ratec172,Ratec173,Ratec174,Ratec175,Ratec176,Ratec177,
+ Ratec178,Ratec179,Ratec180,Ratec181,Ratec182,Ratec183,
+ Ratec184,Ratec185,Ratec186,Ratec187,Ratec188,Ratec189,
+ Ratec190,Ratec191
c ..............Just test output...........
write(6,3)
+ Ratec1,Ratec2,Ratec3,Ratec4,Ratec5,Ratec6,Ratec7,Ratec8,
+ Ratec9,Ratec10,Ratec11,Ratec12,Ratec13,Ratec14,Ratec15,
+ Ratec16,Ratec17,Ratec18,Ratec19,Ratec20,Ratec21,Ratec22,
+ Ratec23,Ratec24,Ratec25,Ratec26,Ratec27,Ratec28,Ratec29,
+ Ratec30,Ratec31,Ratec32,Ratec33,Ratec34,Ratec35,Ratec36,
+ Ratec37,Ratec38,Ratec39,Ratec40,Ratec41,Ratec42,Ratec43,
+ Ratec44,Ratec45,Ratec46,Ratec47,Ratec48,Ratec49,Ratec50,
+ Ratec51,Ratec52,Ratec53,Ratec54,Ratec55,Ratec56,Ratec57,
+ Ratec58,Ratec59,Ratec60,Ratec61,Ratec62,Ratec63,Ratec64,
+ Ratec65,Ratec66,Ratec67,Ratec68,Ratec69,Ratec70,Ratec71,
+ Ratec72,Ratec73,Ratec74,Ratec75,Ratec76,Ratec77,Ratec78,
+ Ratec79,Ratec80,Ratec81,Ratec82,Ratec83,Ratec84,Ratec85,
+ Ratec86,Ratec87,Ratec88,Ratec89,Ratec90,Ratec91,Ratec92,
+ Ratec93,Ratec94,Ratec95,Ratec96,Ratec97,Ratec98,Ratec99,
+ Ratec100,Ratec101,Ratec102,Ratec103,Ratec104,Ratec105,
+ Ratec106,Ratec107,Ratec108,Ratec109,Ratec110,Ratec111,
+ Ratec112,Ratec113,Ratec114,Ratec115,Ratec116,Ratec117,
+ Ratec118,Ratec119,Ratec120,Ratec121,Ratec122,Ratec123,
+ Ratec124,Ratec125,Ratec126,Ratec127,Ratec128,Ratec129,
+ Ratec130,Ratec131,Ratec132,Ratec133,Ratec134,Ratec135,
+ Ratec136,Ratec137,Ratec138,Ratec139,Ratec140,Ratec141,
+ Ratec142,Ratec143,Ratec144,Ratec145,Ratec146,Ratec147,
+ Ratec148,Ratec149,Ratec150,Ratec151,Ratec152,Ratec153,
+ Ratec154,Ratec155,Ratec156,Ratec157,Ratec158,Ratec159,
+ Ratec160,Ratec161,Ratec162,Ratec163,Ratec164,Ratec165,
+ Ratec166,Ratec167,Ratec168,Ratec169,Ratec170,Ratec171,
+ Ratec172,Ratec173,Ratec174,Ratec175,Ratec176,Ratec177,
+ Ratec178,Ratec179,Ratec180,Ratec181,Ratec182,Ratec183,
+ Ratec184,Ratec185,Ratec186,Ratec187,Ratec188,Ratec189,
+ Ratec190,Ratec191
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end