Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/399/799 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-Apr-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/399/799 Effective collision strengths for Fe XI trans. (Aggarwal+, 2003)
*================================================================================
*Effective collision strengths for transitions in Fe XI
* Aggarwal K.M., Keenan F.P.
* <Astron. Astrophys. 399, 799 (2003)>
* =2003A&A...399..799A
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! State definitions and energy levels (in Ry)
for S-like Fe XI
integer*4 nr__
parameter (nr__=48) ! Number of records
character*60 ar__ ! Full-size record
integer*4 Index (nr__) ! Index number of the level
character*30 Config (nr__) ! Electronic configuration
character*10 Level (nr__) ! Level
real*4 ELevE (nr__) ! (Ry) ? Expected energy level (Shirai et al., 1990,
* J. Phys. Chem. Ref. Data, 19, 127)
real*4 ELev (nr__) ! (Ry) Present results for energy level
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Collision strengths for transitions in Fe XI
integer*4 nr__1
parameter (nr__1=1128) ! Number of records
character*95 ar__1 ! Full-size record
integer*4 i (nr__1) ! i lower level index of the transition
integer*4 j (nr__1) ! j upper level index of the transition
real*4 CS10_0 (nr__1) ! Collision strength at 10.0 Ry
real*4 CS20_0 (nr__1) ! Collision strength at 20.0 Ry
real*4 CS30_0 (nr__1) ! Collision strength at 30.0 Ry
real*4 CS40_0 (nr__1) ! Collision strength at 40.0 Ry
real*4 CS50_0 (nr__1) ! Collision strength at 50.0 Ry
real*4 CS60_0 (nr__1) ! Collision strength at 60.0 Ry
real*4 CS70_0 (nr__1) ! Collision strength at 70.0 Ry
real*4 CS80_0 (nr__1) ! Collision strength at 80.0 Ry
real*4 CS90_0 (nr__1) ! Collision strength at 90.0 Ry
real*4 CS100_0 (nr__1) ! Collision strength at 100.0 Ry
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Effective Collision Strengths for Transitions
in Fe XI.
integer*4 nr__2
parameter (nr__2=1121) ! Number of records
character*104 ar__2 ! Full-size record
integer*4 i_1 (nr__2) ! i lower level index of the transition
integer*4 j_1 (nr__2) ! j upper level index of the transition
real*4 ECS4_00 (nr__2) ! Effective collision strength at logTe=4.00K (G1)
real*4 ECS4_30 (nr__2) ! Effective collision strength at logTe=4.30K (G1)
real*4 ECS4_70 (nr__2) ! Effective collision strength at logTe=4.70K (G1)
real*4 ECS4_85 (nr__2) ! Effective collision strength at logTe=4.85K (G1)
real*4 ECS5_00 (nr__2) ! Effective collision strength at logTe=5.00K (G1)
real*4 ECS5_30 (nr__2) ! Effective collision strength at logTe=5.30K (G1)
real*4 ECS5_70 (nr__2) ! Effective collision strength at logTe=5.70K (G1)
real*4 ECS5_85 (nr__2) ! Effective collision strength at logTe=5.85K (G1)
real*4 ECS6_00 (nr__2) ! Effective collision strength at logTe=6.00K (G1)
real*4 ECS6_30 (nr__2) ! Effective collision strength at logTe=6.30K (G1)
real*4 ECS6_70 (nr__2) ! Effective collision strength at logTe=6.70K (G1)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Comparison between our present DARC and earlier
BPRM (GT: Gupta & Tayal, 1999ApJ...510.1078G and
1999ApJS..123..295G) effective collision strengths
({gamma}) for some transitions of Fe XI.
integer*4 nr__3
parameter (nr__3=14) ! Number of records
character*62 ar__3 ! Full-size record
integer*4 i_2 (nr__3) ! i lower level index of the transition
integer*4 j_2 (nr__3) ! j upper level index of the transition
real*4 DARC5_5 (nr__3) ! Effective collision strength at 5x10^5^ K
* from DARC (G1)
real*4 DARC1_6 (nr__3) ! Effective collision strength at 1x10^6^ K
* from DARC (G1)
real*4 DARC2_6 (nr__3) ! Effective collision strength at 2x10^6^ K
* from DARC (G1)
real*4 DARC5_6 (nr__3) ! Effective collision strength at 5x10^6^ K
* from DARC (G1)
real*4 GT5_5 (nr__3) ! GT Effective collision strength at 5x10^5^ K
* from Gupta and Tayal (G1) (1)
real*4 GT1_6 (nr__3) ! GT Effective collision strength at 1x10^6^ K
* from Gupta and Tayal (G1) (1)
real*4 GT2_6 (nr__3) ! GT Effective collision strength at 2x10^6^ K
* from Gupta and Tayal (G1) (1)
real*4 GT5_6 (nr__3) ! GT Effective collision strength at 5x10^6^ K
* from Gupta and Tayal (G1) (1)
*Note (1): Gupta and Tayal, 1999ApJ...510.1078G and 1999, Cat. <J/ApJS/123/295>.
C=============================================================================
C Loading file 'table1.dat' ! State definitions and energy levels (in Ry)
* for S-like Fe XI
C Format for file interpretation
1 format(I2,1X,A30,1X,A10,2X,F6.4,2X,F6.4)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,48
read(1,'(A60)')ar__
read(ar__,1)
+ Index(i__),Config(i__),Level(i__),ELevE(i__),ELev(i__)
if(ar__(47:52) .EQ. '') ELevE(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ Index(i__),Config(i__),Level(i__),ELevE(i__),ELev(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Collision strengths for transitions in Fe XI
C Format for file interpretation
2 format(
+ I2,1X,I2,1X,E8.4,1X,E8.4,1X,E8.4,1X,E8.4,1X,E8.4,1X,E8.4,1X,
+ E8.4,1X,E8.4,1X,E8.4,1X,E8.4)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,1128
read(1,'(A95)')ar__1
read(ar__1,2)
+ i(i__),j(i__),CS10_0(i__),CS20_0(i__),CS30_0(i__),CS40_0(i__),
+ CS50_0(i__),CS60_0(i__),CS70_0(i__),CS80_0(i__),CS90_0(i__),
+ CS100_0(i__)
c ..............Just test output...........
write(6,2)
+ i(i__),j(i__),CS10_0(i__),CS20_0(i__),CS30_0(i__),CS40_0(i__),
+ CS50_0(i__),CS60_0(i__),CS70_0(i__),CS80_0(i__),CS90_0(i__),
+ CS100_0(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Effective Collision Strengths for Transitions
* in Fe XI.
C Format for file interpretation
3 format(
+ I2,1X,I2,1X,E8.4,1X,E8.4,1X,E8.4,1X,E8.4,1X,E8.4,1X,E8.4,1X,
+ E8.4,1X,E8.4,1X,E8.4,1X,E8.4,1X,E8.4)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,1121
read(1,'(A104)')ar__2
read(ar__2,3)
+ i_1(i__),j_1(i__),ECS4_00(i__),ECS4_30(i__),ECS4_70(i__),
+ ECS4_85(i__),ECS5_00(i__),ECS5_30(i__),ECS5_70(i__),
+ ECS5_85(i__),ECS6_00(i__),ECS6_30(i__),ECS6_70(i__)
c ..............Just test output...........
write(6,3)
+ i_1(i__),j_1(i__),ECS4_00(i__),ECS4_30(i__),ECS4_70(i__),
+ ECS4_85(i__),ECS5_00(i__),ECS5_30(i__),ECS5_70(i__),
+ ECS5_85(i__),ECS6_00(i__),ECS6_30(i__),ECS6_70(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Comparison between our present DARC and earlier
* BPRM (GT: Gupta & Tayal, 1999ApJ...510.1078G and
* 1999ApJS..123..295G) effective collision strengths
* ({gamma}) for some transitions of Fe XI.
C Format for file interpretation
4 format(
+ I2,1X,I2,1X,E8.4,1X,E8.4,1X,E8.4,1X,E8.4,1X,F4.2,1X,F4.2,1X,
+ F4.2,1X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,14
read(1,'(A62)')ar__3
read(ar__3,4)
+ i_2(i__),j_2(i__),DARC5_5(i__),DARC1_6(i__),DARC2_6(i__),
+ DARC5_6(i__),GT5_5(i__),GT1_6(i__),GT2_6(i__),GT5_6(i__)
c ..............Just test output...........
write(6,4)
+ i_2(i__),j_2(i__),DARC5_5(i__),DARC1_6(i__),DARC2_6(i__),
+ DARC5_6(i__),GT5_5(i__),GT1_6(i__),GT2_6(i__),GT5_6(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end