Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/399/799 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-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 ! Index number of the level
character*30 Config ! Electronic configuration
character*10 Level ! Level
real*4 ELevE ! (Ry) ? Expected energy level (Shirai et al., 1990,
* J. Phys. Chem. Ref. Data, 19, 127)
real*4 ELev ! (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 ! i lower level index of the transition
integer*4 j ! j upper level index of the transition
real*4 CS10_0 ! Collision strength at 10.0 Ry
real*4 CS20_0 ! Collision strength at 20.0 Ry
real*4 CS30_0 ! Collision strength at 30.0 Ry
real*4 CS40_0 ! Collision strength at 40.0 Ry
real*4 CS50_0 ! Collision strength at 50.0 Ry
real*4 CS60_0 ! Collision strength at 60.0 Ry
real*4 CS70_0 ! Collision strength at 70.0 Ry
real*4 CS80_0 ! Collision strength at 80.0 Ry
real*4 CS90_0 ! Collision strength at 90.0 Ry
real*4 CS100_0 ! 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 ! i lower level index of the transition
integer*4 j_1 ! j upper level index of the transition
real*4 ECS4_00 ! Effective collision strength at logTe=4.00K (G1)
real*4 ECS4_30 ! Effective collision strength at logTe=4.30K (G1)
real*4 ECS4_70 ! Effective collision strength at logTe=4.70K (G1)
real*4 ECS4_85 ! Effective collision strength at logTe=4.85K (G1)
real*4 ECS5_00 ! Effective collision strength at logTe=5.00K (G1)
real*4 ECS5_30 ! Effective collision strength at logTe=5.30K (G1)
real*4 ECS5_70 ! Effective collision strength at logTe=5.70K (G1)
real*4 ECS5_85 ! Effective collision strength at logTe=5.85K (G1)
real*4 ECS6_00 ! Effective collision strength at logTe=6.00K (G1)
real*4 ECS6_30 ! Effective collision strength at logTe=6.30K (G1)
real*4 ECS6_70 ! 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 ! i lower level index of the transition
integer*4 j_2 ! j upper level index of the transition
real*4 DARC5_5 ! Effective collision strength at 5x10^5^ K
* from DARC (G1)
real*4 DARC1_6 ! Effective collision strength at 1x10^6^ K
* from DARC (G1)
real*4 DARC2_6 ! Effective collision strength at 2x10^6^ K
* from DARC (G1)
real*4 DARC5_6 ! Effective collision strength at 5x10^6^ K
* from DARC (G1)
real*4 GT5_5 ! GT Effective collision strength at 5x10^5^ K
* from Gupta and Tayal (G1) (1)
real*4 GT1_6 ! GT Effective collision strength at 1x10^6^ K
* from Gupta and Tayal (G1) (1)
real*4 GT2_6 ! GT Effective collision strength at 2x10^6^ K
* from Gupta and Tayal (G1) (1)
real*4 GT5_6 ! 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,Config,Level,ELevE,ELev
if(ar__(47:52) .EQ. '') ELevE = rNULL__
c ..............Just test output...........
write(6,1)Index,Config,Level,ELevE,ELev
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,j,CS10_0,CS20_0,CS30_0,CS40_0,CS50_0,CS60_0,CS70_0,CS80_0,
+ CS90_0,CS100_0
c ..............Just test output...........
write(6,2)
+ i,j,CS10_0,CS20_0,CS30_0,CS40_0,CS50_0,CS60_0,CS70_0,CS80_0,
+ CS90_0,CS100_0
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,j_1,ECS4_00,ECS4_30,ECS4_70,ECS4_85,ECS5_00,ECS5_30,
+ ECS5_70,ECS5_85,ECS6_00,ECS6_30,ECS6_70
c ..............Just test output...........
write(6,3)
+ i_1,j_1,ECS4_00,ECS4_30,ECS4_70,ECS4_85,ECS5_00,ECS5_30,
+ ECS5_70,ECS5_85,ECS6_00,ECS6_30,ECS6_70
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,j_2,DARC5_5,DARC1_6,DARC2_6,DARC5_6,GT5_5,GT1_6,GT2_6,
+ GT5_6
c ..............Just test output...........
write(6,4)
+ i_2,j_2,DARC5_5,DARC1_6,DARC2_6,DARC5_6,GT5_5,GT1_6,GT2_6,
+ GT5_6
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end