Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/643/A46 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/643/A46 Fe2+ K shell mult. photoionization cross sections (Kucas+, 2020)
*================================================================================
*Multiple photoionization cross sections for Fe2+ K shell.
* Kucas S., Kyniene A., Masys S., Jonauskas V.
* <Astron. Astrophys. 643, A46 (2020)>
* =2020A&A...643A..46K (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Photoionization cross sections to Fe^3+^
integer*4 nr__
parameter (nr__=241) ! Number of records
character*517 ar__ ! Full-size record
integer*4 E ! (eV) Energy
real*4 ECS0 ! (10-20cm2) Cross section for level with index 0
real*4 ECS1 ! (10-20cm2) Cross section for level with index 1
real*4 ECS2 ! (10-20cm2) Cross section for level with index 2
real*4 ECS3 ! (10-20cm2) Cross section for level with index 3
real*4 ECS4 ! (10-20cm2) Cross section for level with index 4
real*4 ECS5 ! (10-20cm2) Cross section for level with index 5
real*4 ECS6 ! (10-20cm2) Cross section for level with index 6
real*4 ECS7 ! (10-20cm2) Cross section for level with index 7
real*4 ECS8 ! (10-20cm2) Cross section for level with index 8
real*4 ECS9 ! (10-20cm2) Cross section for level with index 9
real*4 ECS10 ! (10-20cm2) Cross section for level with index 10
real*4 ECS11 ! (10-20cm2) Cross section for level with index 11
real*4 ECS12 ! (10-20cm2) Cross section for level with index 12
real*4 ECS13 ! (10-20cm2) Cross section for level with index 13
real*4 ECS14 ! (10-20cm2) Cross section for level with index 14
real*4 ECS15 ! (10-20cm2) Cross section for level with index 15
real*4 ECS16 ! (10-20cm2) Cross section for level with index 16
real*4 ECS17 ! (10-20cm2) Cross section for level with index 17
real*4 ECS18 ! (10-20cm2) Cross section for level with index 18
real*4 ECS19 ! (10-20cm2) Cross section for level with index 19
real*4 ECS20 ! (10-20cm2) Cross section for level with index 20
real*4 ECS21 ! (10-20cm2) Cross section for level with index 21
real*4 ECS22 ! (10-20cm2) Cross section for level with index 22
real*4 ECS23 ! (10-20cm2) Cross section for level with index 23
real*4 ECS24 ! (10-20cm2) Cross section for level with index 24
real*4 ECS25 ! (10-20cm2) Cross section for level with index 25
real*4 ECS26 ! (10-20cm2) Cross section for level with index 26
real*4 ECS27 ! (10-20cm2) Cross section for level with index 27
real*4 ECS28 ! (10-20cm2) Cross section for level with index 28
real*4 ECS29 ! (10-20cm2) Cross section for level with index 29
real*4 ECS30 ! (10-20cm2) Cross section for level with index 30
real*4 ECS31 ! (10-20cm2) Cross section for level with index 31
real*4 ECS32 ! (10-20cm2) Cross section for level with index 32
real*4 ECS33 ! (10-20cm2) Cross section for level with index 33
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Photoionization cross sections to Fe^4+^
integer*4 nr__1
parameter (nr__1=241) ! Number of records
character*517 ar__1 ! Full-size record
integer*4 E_1 ! (eV) Energy
real*4 ECS0_1 ! (10-20cm2) Cross section for level with index 0
real*4 ECS1_1 ! (10-20cm2) Cross section for level with index 1
real*4 ECS2_1 ! (10-20cm2) Cross section for level with index 2
real*4 ECS3_1 ! (10-20cm2) Cross section for level with index 3
real*4 ECS4_1 ! (10-20cm2) Cross section for level with index 4
real*4 ECS5_1 ! (10-20cm2) Cross section for level with index 5
real*4 ECS6_1 ! (10-20cm2) Cross section for level with index 6
real*4 ECS7_1 ! (10-20cm2) Cross section for level with index 7
real*4 ECS8_1 ! (10-20cm2) Cross section for level with index 8
real*4 ECS9_1 ! (10-20cm2) Cross section for level with index 9
real*4 ECS10_1 ! (10-20cm2) Cross section for level with index 10
real*4 ECS11_1 ! (10-20cm2) Cross section for level with index 11
real*4 ECS12_1 ! (10-20cm2) Cross section for level with index 12
real*4 ECS13_1 ! (10-20cm2) Cross section for level with index 13
real*4 ECS14_1 ! (10-20cm2) Cross section for level with index 14
real*4 ECS15_1 ! (10-20cm2) Cross section for level with index 15
real*4 ECS16_1 ! (10-20cm2) Cross section for level with index 16
real*4 ECS17_1 ! (10-20cm2) Cross section for level with index 17
real*4 ECS18_1 ! (10-20cm2) Cross section for level with index 18
real*4 ECS19_1 ! (10-20cm2) Cross section for level with index 19
real*4 ECS20_1 ! (10-20cm2) Cross section for level with index 20
real*4 ECS21_1 ! (10-20cm2) Cross section for level with index 21
real*4 ECS22_1 ! (10-20cm2) Cross section for level with index 22
real*4 ECS23_1 ! (10-20cm2) Cross section for level with index 23
real*4 ECS24_1 ! (10-20cm2) Cross section for level with index 24
real*4 ECS25_1 ! (10-20cm2) Cross section for level with index 25
real*4 ECS26_1 ! (10-20cm2) Cross section for level with index 26
real*4 ECS27_1 ! (10-20cm2) Cross section for level with index 27
real*4 ECS28_1 ! (10-20cm2) Cross section for level with index 28
real*4 ECS29_1 ! (10-20cm2) Cross section for level with index 29
real*4 ECS30_1 ! (10-20cm2) Cross section for level with index 30
real*4 ECS31_1 ! (10-20cm2) Cross section for level with index 31
real*4 ECS32_1 ! (10-20cm2) Cross section for level with index 32
real*4 ECS33_1 ! (10-20cm2) Cross section for level with index 33
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Photoionization cross sections to Fe^5+^
integer*4 nr__2
parameter (nr__2=241) ! Number of records
character*517 ar__2 ! Full-size record
integer*4 E_2 ! (eV) Energy
real*4 ECS0_2 ! (10-20cm2) Cross section for level with index 0
real*4 ECS1_2 ! (10-20cm2) Cross section for level with index 1
real*4 ECS2_2 ! (10-20cm2) Cross section for level with index 2
real*4 ECS3_2 ! (10-20cm2) Cross section for level with index 3
real*4 ECS4_2 ! (10-20cm2) Cross section for level with index 4
real*4 ECS5_2 ! (10-20cm2) Cross section for level with index 5
real*4 ECS6_2 ! (10-20cm2) Cross section for level with index 6
real*4 ECS7_2 ! (10-20cm2) Cross section for level with index 7
real*4 ECS8_2 ! (10-20cm2) Cross section for level with index 8
real*4 ECS9_2 ! (10-20cm2) Cross section for level with index 9
real*4 ECS10_2 ! (10-20cm2) Cross section for level with index 10
real*4 ECS11_2 ! (10-20cm2) Cross section for level with index 11
real*4 ECS12_2 ! (10-20cm2) Cross section for level with index 12
real*4 ECS13_2 ! (10-20cm2) Cross section for level with index 13
real*4 ECS14_2 ! (10-20cm2) Cross section for level with index 14
real*4 ECS15_2 ! (10-20cm2) Cross section for level with index 15
real*4 ECS16_2 ! (10-20cm2) Cross section for level with index 16
real*4 ECS17_2 ! (10-20cm2) Cross section for level with index 17
real*4 ECS18_2 ! (10-20cm2) Cross section for level with index 18
real*4 ECS19_2 ! (10-20cm2) Cross section for level with index 19
real*4 ECS20_2 ! (10-20cm2) Cross section for level with index 20
real*4 ECS21_2 ! (10-20cm2) Cross section for level with index 21
real*4 ECS22_2 ! (10-20cm2) Cross section for level with index 22
real*4 ECS23_2 ! (10-20cm2) Cross section for level with index 23
real*4 ECS24_2 ! (10-20cm2) Cross section for level with index 24
real*4 ECS25_2 ! (10-20cm2) Cross section for level with index 25
real*4 ECS26_2 ! (10-20cm2) Cross section for level with index 26
real*4 ECS27_2 ! (10-20cm2) Cross section for level with index 27
real*4 ECS28_2 ! (10-20cm2) Cross section for level with index 28
real*4 ECS29_2 ! (10-20cm2) Cross section for level with index 29
real*4 ECS30_2 ! (10-20cm2) Cross section for level with index 30
real*4 ECS31_2 ! (10-20cm2) Cross section for level with index 31
real*4 ECS32_2 ! (10-20cm2) Cross section for level with index 32
real*4 ECS33_2 ! (10-20cm2) Cross section for level with index 33
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! Photoionization cross sections to Fe^6+^
integer*4 nr__3
parameter (nr__3=241) ! Number of records
character*517 ar__3 ! Full-size record
integer*4 E_3 ! (eV) Energy
real*4 ECS0_3 ! (10-20cm2) Cross section for level with index 0
real*4 ECS1_3 ! (10-20cm2) Cross section for level with index 1
real*4 ECS2_3 ! (10-20cm2) Cross section for level with index 2
real*4 ECS3_3 ! (10-20cm2) Cross section for level with index 3
real*4 ECS4_3 ! (10-20cm2) Cross section for level with index 4
real*4 ECS5_3 ! (10-20cm2) Cross section for level with index 5
real*4 ECS6_3 ! (10-20cm2) Cross section for level with index 6
real*4 ECS7_3 ! (10-20cm2) Cross section for level with index 7
real*4 ECS8_3 ! (10-20cm2) Cross section for level with index 8
real*4 ECS9_3 ! (10-20cm2) Cross section for level with index 9
real*4 ECS10_3 ! (10-20cm2) Cross section for level with index 10
real*4 ECS11_3 ! (10-20cm2) Cross section for level with index 11
real*4 ECS12_3 ! (10-20cm2) Cross section for level with index 12
real*4 ECS13_3 ! (10-20cm2) Cross section for level with index 13
real*4 ECS14_3 ! (10-20cm2) Cross section for level with index 14
real*4 ECS15_3 ! (10-20cm2) Cross section for level with index 15
real*4 ECS16_3 ! (10-20cm2) Cross section for level with index 16
real*4 ECS17_3 ! (10-20cm2) Cross section for level with index 17
real*4 ECS18_3 ! (10-20cm2) Cross section for level with index 18
real*4 ECS19_3 ! (10-20cm2) Cross section for level with index 19
real*4 ECS20_3 ! (10-20cm2) Cross section for level with index 20
real*4 ECS21_3 ! (10-20cm2) Cross section for level with index 21
real*4 ECS22_3 ! (10-20cm2) Cross section for level with index 22
real*4 ECS23_3 ! (10-20cm2) Cross section for level with index 23
real*4 ECS24_3 ! (10-20cm2) Cross section for level with index 24
real*4 ECS25_3 ! (10-20cm2) Cross section for level with index 25
real*4 ECS26_3 ! (10-20cm2) Cross section for level with index 26
real*4 ECS27_3 ! (10-20cm2) Cross section for level with index 27
real*4 ECS28_3 ! (10-20cm2) Cross section for level with index 28
real*4 ECS29_3 ! (10-20cm2) Cross section for level with index 29
real*4 ECS30_3 ! (10-20cm2) Cross section for level with index 30
real*4 ECS31_3 ! (10-20cm2) Cross section for level with index 31
real*4 ECS32_3 ! (10-20cm2) Cross section for level with index 32
real*4 ECS33_3 ! (10-20cm2) Cross section for level with index 33
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Photoionization cross sections to Fe^7+^
integer*4 nr__4
parameter (nr__4=241) ! Number of records
character*517 ar__4 ! Full-size record
integer*4 E_4 ! (eV) Energy
real*4 ECS0_4 ! (10-20cm2) Cross section for level with index 0
real*4 ECS1_4 ! (10-20cm2) Cross section for level with index 1
real*4 ECS2_4 ! (10-20cm2) Cross section for level with index 2
real*4 ECS3_4 ! (10-20cm2) Cross section for level with index 3
real*4 ECS4_4 ! (10-20cm2) Cross section for level with index 4
real*4 ECS5_4 ! (10-20cm2) Cross section for level with index 5
real*4 ECS6_4 ! (10-20cm2) Cross section for level with index 6
real*4 ECS7_4 ! (10-20cm2) Cross section for level with index 7
real*4 ECS8_4 ! (10-20cm2) Cross section for level with index 8
real*4 ECS9_4 ! (10-20cm2) Cross section for level with index 9
real*4 ECS10_4 ! (10-20cm2) Cross section for level with index 10
real*4 ECS11_4 ! (10-20cm2) Cross section for level with index 11
real*4 ECS12_4 ! (10-20cm2) Cross section for level with index 12
real*4 ECS13_4 ! (10-20cm2) Cross section for level with index 13
real*4 ECS14_4 ! (10-20cm2) Cross section for level with index 14
real*4 ECS15_4 ! (10-20cm2) Cross section for level with index 15
real*4 ECS16_4 ! (10-20cm2) Cross section for level with index 16
real*4 ECS17_4 ! (10-20cm2) Cross section for level with index 17
real*4 ECS18_4 ! (10-20cm2) Cross section for level with index 18
real*4 ECS19_4 ! (10-20cm2) Cross section for level with index 19
real*4 ECS20_4 ! (10-20cm2) Cross section for level with index 20
real*4 ECS21_4 ! (10-20cm2) Cross section for level with index 21
real*4 ECS22_4 ! (10-20cm2) Cross section for level with index 22
real*4 ECS23_4 ! (10-20cm2) Cross section for level with index 23
real*4 ECS24_4 ! (10-20cm2) Cross section for level with index 24
real*4 ECS25_4 ! (10-20cm2) Cross section for level with index 25
real*4 ECS26_4 ! (10-20cm2) Cross section for level with index 26
real*4 ECS27_4 ! (10-20cm2) Cross section for level with index 27
real*4 ECS28_4 ! (10-20cm2) Cross section for level with index 28
real*4 ECS29_4 ! (10-20cm2) Cross section for level with index 29
real*4 ECS30_4 ! (10-20cm2) Cross section for level with index 30
real*4 ECS31_4 ! (10-20cm2) Cross section for level with index 31
real*4 ECS32_4 ! (10-20cm2) Cross section for level with index 32
real*4 ECS33_4 ! (10-20cm2) Cross section for level with index 33
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7.dat' ! Photoionization cross sections to Fe^8+^
integer*4 nr__5
parameter (nr__5=241) ! Number of records
character*517 ar__5 ! Full-size record
integer*4 E_5 ! (eV) Energy
real*4 ECS0_5 ! (10-20cm2) Cross section for level with index 0
real*4 ECS1_5 ! (10-20cm2) Cross section for level with index 1
real*4 ECS2_5 ! (10-20cm2) Cross section for level with index 2
real*4 ECS3_5 ! (10-20cm2) Cross section for level with index 3
real*4 ECS4_5 ! (10-20cm2) Cross section for level with index 4
real*4 ECS5_5 ! (10-20cm2) Cross section for level with index 5
real*4 ECS6_5 ! (10-20cm2) Cross section for level with index 6
real*4 ECS7_5 ! (10-20cm2) Cross section for level with index 7
real*4 ECS8_5 ! (10-20cm2) Cross section for level with index 8
real*4 ECS9_5 ! (10-20cm2) Cross section for level with index 9
real*4 ECS10_5 ! (10-20cm2) Cross section for level with index 10
real*4 ECS11_5 ! (10-20cm2) Cross section for level with index 11
real*4 ECS12_5 ! (10-20cm2) Cross section for level with index 12
real*4 ECS13_5 ! (10-20cm2) Cross section for level with index 13
real*4 ECS14_5 ! (10-20cm2) Cross section for level with index 14
real*4 ECS15_5 ! (10-20cm2) Cross section for level with index 15
real*4 ECS16_5 ! (10-20cm2) Cross section for level with index 16
real*4 ECS17_5 ! (10-20cm2) Cross section for level with index 17
real*4 ECS18_5 ! (10-20cm2) Cross section for level with index 18
real*4 ECS19_5 ! (10-20cm2) Cross section for level with index 19
real*4 ECS20_5 ! (10-20cm2) Cross section for level with index 20
real*4 ECS21_5 ! (10-20cm2) Cross section for level with index 21
real*4 ECS22_5 ! (10-20cm2) Cross section for level with index 22
real*4 ECS23_5 ! (10-20cm2) Cross section for level with index 23
real*4 ECS24_5 ! (10-20cm2) Cross section for level with index 24
real*4 ECS25_5 ! (10-20cm2) Cross section for level with index 25
real*4 ECS26_5 ! (10-20cm2) Cross section for level with index 26
real*4 ECS27_5 ! (10-20cm2) Cross section for level with index 27
real*4 ECS28_5 ! (10-20cm2) Cross section for level with index 28
real*4 ECS29_5 ! (10-20cm2) Cross section for level with index 29
real*4 ECS30_5 ! (10-20cm2) Cross section for level with index 30
real*4 ECS31_5 ! (10-20cm2) Cross section for level with index 31
real*4 ECS32_5 ! (10-20cm2) Cross section for level with index 32
real*4 ECS33_5 ! (10-20cm2) Cross section for level with index 33
C=============================================================================
C Loading file 'table2.dat' ! Photoionization cross sections to Fe^3+^
C Format for file interpretation
1 format(
+ I7,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,
+ E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,
+ E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,
+ E15.3,E15.3,E15.3,E15.3,E15.3)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,241
read(1,'(A517)')ar__
read(ar__,1)
+ E,ECS0,ECS1,ECS2,ECS3,ECS4,ECS5,ECS6,ECS7,ECS8,ECS9,ECS10,
+ ECS11,ECS12,ECS13,ECS14,ECS15,ECS16,ECS17,ECS18,ECS19,ECS20,
+ ECS21,ECS22,ECS23,ECS24,ECS25,ECS26,ECS27,ECS28,ECS29,ECS30,
+ ECS31,ECS32,ECS33
c ..............Just test output...........
write(6,1)
+ E,ECS0,ECS1,ECS2,ECS3,ECS4,ECS5,ECS6,ECS7,ECS8,ECS9,ECS10,
+ ECS11,ECS12,ECS13,ECS14,ECS15,ECS16,ECS17,ECS18,ECS19,ECS20,
+ ECS21,ECS22,ECS23,ECS24,ECS25,ECS26,ECS27,ECS28,ECS29,ECS30,
+ ECS31,ECS32,ECS33
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Photoionization cross sections to Fe^4+^
C Format for file interpretation
2 format(
+ I7,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,
+ E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,
+ E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,
+ E15.3,E15.3,E15.3,E15.3,E15.3)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,241
read(1,'(A517)')ar__1
read(ar__1,2)
+ E_1,ECS0_1,ECS1_1,ECS2_1,ECS3_1,ECS4_1,ECS5_1,ECS6_1,ECS7_1,
+ ECS8_1,ECS9_1,ECS10_1,ECS11_1,ECS12_1,ECS13_1,ECS14_1,ECS15_1,
+ ECS16_1,ECS17_1,ECS18_1,ECS19_1,ECS20_1,ECS21_1,ECS22_1,
+ ECS23_1,ECS24_1,ECS25_1,ECS26_1,ECS27_1,ECS28_1,ECS29_1,
+ ECS30_1,ECS31_1,ECS32_1,ECS33_1
c ..............Just test output...........
write(6,2)
+ E_1,ECS0_1,ECS1_1,ECS2_1,ECS3_1,ECS4_1,ECS5_1,ECS6_1,ECS7_1,
+ ECS8_1,ECS9_1,ECS10_1,ECS11_1,ECS12_1,ECS13_1,ECS14_1,ECS15_1,
+ ECS16_1,ECS17_1,ECS18_1,ECS19_1,ECS20_1,ECS21_1,ECS22_1,
+ ECS23_1,ECS24_1,ECS25_1,ECS26_1,ECS27_1,ECS28_1,ECS29_1,
+ ECS30_1,ECS31_1,ECS32_1,ECS33_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Photoionization cross sections to Fe^5+^
C Format for file interpretation
3 format(
+ I7,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,
+ E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,
+ E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,
+ E15.3,E15.3,E15.3,E15.3,E15.3)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,241
read(1,'(A517)')ar__2
read(ar__2,3)
+ E_2,ECS0_2,ECS1_2,ECS2_2,ECS3_2,ECS4_2,ECS5_2,ECS6_2,ECS7_2,
+ ECS8_2,ECS9_2,ECS10_2,ECS11_2,ECS12_2,ECS13_2,ECS14_2,ECS15_2,
+ ECS16_2,ECS17_2,ECS18_2,ECS19_2,ECS20_2,ECS21_2,ECS22_2,
+ ECS23_2,ECS24_2,ECS25_2,ECS26_2,ECS27_2,ECS28_2,ECS29_2,
+ ECS30_2,ECS31_2,ECS32_2,ECS33_2
c ..............Just test output...........
write(6,3)
+ E_2,ECS0_2,ECS1_2,ECS2_2,ECS3_2,ECS4_2,ECS5_2,ECS6_2,ECS7_2,
+ ECS8_2,ECS9_2,ECS10_2,ECS11_2,ECS12_2,ECS13_2,ECS14_2,ECS15_2,
+ ECS16_2,ECS17_2,ECS18_2,ECS19_2,ECS20_2,ECS21_2,ECS22_2,
+ ECS23_2,ECS24_2,ECS25_2,ECS26_2,ECS27_2,ECS28_2,ECS29_2,
+ ECS30_2,ECS31_2,ECS32_2,ECS33_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! Photoionization cross sections to Fe^6+^
C Format for file interpretation
4 format(
+ I7,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,
+ E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,
+ E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,
+ E15.3,E15.3,E15.3,E15.3,E15.3)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,241
read(1,'(A517)')ar__3
read(ar__3,4)
+ E_3,ECS0_3,ECS1_3,ECS2_3,ECS3_3,ECS4_3,ECS5_3,ECS6_3,ECS7_3,
+ ECS8_3,ECS9_3,ECS10_3,ECS11_3,ECS12_3,ECS13_3,ECS14_3,ECS15_3,
+ ECS16_3,ECS17_3,ECS18_3,ECS19_3,ECS20_3,ECS21_3,ECS22_3,
+ ECS23_3,ECS24_3,ECS25_3,ECS26_3,ECS27_3,ECS28_3,ECS29_3,
+ ECS30_3,ECS31_3,ECS32_3,ECS33_3
c ..............Just test output...........
write(6,4)
+ E_3,ECS0_3,ECS1_3,ECS2_3,ECS3_3,ECS4_3,ECS5_3,ECS6_3,ECS7_3,
+ ECS8_3,ECS9_3,ECS10_3,ECS11_3,ECS12_3,ECS13_3,ECS14_3,ECS15_3,
+ ECS16_3,ECS17_3,ECS18_3,ECS19_3,ECS20_3,ECS21_3,ECS22_3,
+ ECS23_3,ECS24_3,ECS25_3,ECS26_3,ECS27_3,ECS28_3,ECS29_3,
+ ECS30_3,ECS31_3,ECS32_3,ECS33_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! Photoionization cross sections to Fe^7+^
C Format for file interpretation
5 format(
+ I7,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,
+ E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,
+ E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,
+ E15.3,E15.3,E15.3,E15.3,E15.3)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,241
read(1,'(A517)')ar__4
read(ar__4,5)
+ E_4,ECS0_4,ECS1_4,ECS2_4,ECS3_4,ECS4_4,ECS5_4,ECS6_4,ECS7_4,
+ ECS8_4,ECS9_4,ECS10_4,ECS11_4,ECS12_4,ECS13_4,ECS14_4,ECS15_4,
+ ECS16_4,ECS17_4,ECS18_4,ECS19_4,ECS20_4,ECS21_4,ECS22_4,
+ ECS23_4,ECS24_4,ECS25_4,ECS26_4,ECS27_4,ECS28_4,ECS29_4,
+ ECS30_4,ECS31_4,ECS32_4,ECS33_4
c ..............Just test output...........
write(6,5)
+ E_4,ECS0_4,ECS1_4,ECS2_4,ECS3_4,ECS4_4,ECS5_4,ECS6_4,ECS7_4,
+ ECS8_4,ECS9_4,ECS10_4,ECS11_4,ECS12_4,ECS13_4,ECS14_4,ECS15_4,
+ ECS16_4,ECS17_4,ECS18_4,ECS19_4,ECS20_4,ECS21_4,ECS22_4,
+ ECS23_4,ECS24_4,ECS25_4,ECS26_4,ECS27_4,ECS28_4,ECS29_4,
+ ECS30_4,ECS31_4,ECS32_4,ECS33_4
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7.dat' ! Photoionization cross sections to Fe^8+^
C Format for file interpretation
6 format(
+ I7,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,
+ E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,
+ E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,E15.3,
+ E15.3,E15.3,E15.3,E15.3,E15.3)
C Effective file loading
open(unit=1,status='old',file=
+'table7.dat')
write(6,*) '....Loading file: table7.dat'
do i__=1,241
read(1,'(A517)')ar__5
read(ar__5,6)
+ E_5,ECS0_5,ECS1_5,ECS2_5,ECS3_5,ECS4_5,ECS5_5,ECS6_5,ECS7_5,
+ ECS8_5,ECS9_5,ECS10_5,ECS11_5,ECS12_5,ECS13_5,ECS14_5,ECS15_5,
+ ECS16_5,ECS17_5,ECS18_5,ECS19_5,ECS20_5,ECS21_5,ECS22_5,
+ ECS23_5,ECS24_5,ECS25_5,ECS26_5,ECS27_5,ECS28_5,ECS29_5,
+ ECS30_5,ECS31_5,ECS32_5,ECS33_5
c ..............Just test output...........
write(6,6)
+ E_5,ECS0_5,ECS1_5,ECS2_5,ECS3_5,ECS4_5,ECS5_5,ECS6_5,ECS7_5,
+ ECS8_5,ECS9_5,ECS10_5,ECS11_5,ECS12_5,ECS13_5,ECS14_5,ECS15_5,
+ ECS16_5,ECS17_5,ECS18_5,ECS19_5,ECS20_5,ECS21_5,ECS22_5,
+ ECS23_5,ECS24_5,ECS25_5,ECS26_5,ECS27_5,ECS28_5,ECS29_5,
+ ECS30_5,ECS31_5,ECS32_5,ECS33_5
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end