Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/123/295 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-Sep-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/ApJS/123/295 Electron impact excitation in Fe XI (Gupta+, 1999)
*================================================================================
*Electron Impact Excitation of Fine-Structure Levels in Sulfur-like Fe XI
* Gupta G.P., Tayal S.S.
* <Astrophys. J. Suppl. Ser. 123, 295 (1999)>
* =1999ApJS..123..295G
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Comparison of calculated and experimental
energy levels of Fe XI
integer*4 nr__
parameter (nr__=38) ! Number of records
character*50 ar__ ! Full-size record
integer*4 Index ! Index number of the level
character*27 Config ! Electron configuration
integer*4 J ! Total angular momentum of the level
real*4 ELevC ! (2Ry) Energy levels of the present calculation
* in hartrees
real*4 ELevE ! (2Ry) ? Energy levels from experimental work
* in hartrees
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Collison strengths for electron excitation of
fine-structure levels in Fe XI
integer*4 nr__1
parameter (nr__1=108) ! Number of records
character*67 ar__1 ! Full-size record
integer*4 LInd ! Lower level index (see Index in table1.dat)
integer*4 UInd ! Upper level index (see Index in table1.dat)
real*4 CS8P ! Collision Strength (at 8 Ryd) from this work
real*4 CS8BD ! Collision Strength (at 8 Ryd) from
* Bhatia & Doschek 1996
real*4 CS16P ! Collision Strength (at 16 Ryd) from this work
real*4 CS16BD ! Collision Strength (at 16 Ryd) from
* Bhatia & Doschek 1996
real*4 CS24P ! Collision Strength (at 24 Ryd) from this work
real*4 CS24BD ! Collision Strength (at 24 Ryd) from
* Bhatia & Doschek 1996
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Effective Collision Strengths for Fe XI
integer*4 nr__2
parameter (nr__2=673) ! Number of records
character*87 ar__2 ! Full-size record
integer*4 LInd_1 ! Lower level index (see Index in table1.dat)
integer*4 UInd_1 ! Upper level index (see Index in table1.dat)
real*4 CS5 ! Effective Collision Strength at 5x10^5^ K
real*4 CS8 ! Effective Collision Strength at 5x10^5^ K
real*4 CS10 ! Effective Collision Strength at 10x10^5^ K
real*4 CS15 ! Effective Collision Strength at 15x10^5^ K
real*4 CS20 ! Effective Collision Strength at 20x10^5^ K
real*4 CS30 ! Effective Collision Strength at 30x10^5^ K
real*4 CS40 ! Effective Collision Strength at 40x10^5^ K
real*4 CS50 ! Effective Collision Strength at 50x10^5^ K
C=============================================================================
C Loading file 'table1.dat' ! Comparison of calculated and experimental
* energy levels of Fe XI
C Format for file interpretation
1 format(I2,4X,A27,2X,I1,1X,F6.4,1X,F6.4)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,38
read(1,'(A50)')ar__
read(ar__,1)Index,Config,J,ELevC,ELevE
if(ar__(45:50) .EQ. '') ELevE = rNULL__
c ..............Just test output...........
write(6,1)Index,Config,J,ELevC,ELevE
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Collison strengths for electron excitation of
* fine-structure levels in Fe XI
C Format for file interpretation
2 format(I1,2X,I2,4X,E7.2,3X,E7.2,3X,E7.2,3X,E7.2,3X,E7.2,3X,E7.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,108
read(1,'(A67)')ar__1
read(ar__1,2)LInd,UInd,CS8P,CS8BD,CS16P,CS16BD,CS24P,CS24BD
c ..............Just test output...........
write(6,2)LInd,UInd,CS8P,CS8BD,CS16P,CS16BD,CS24P,CS24BD
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Effective Collision Strengths for Fe XI
C Format for file interpretation
3 format(
+ I2,2X,I2,3X,E7.2,3X,E7.2,3X,E7.2,3X,E7.2,3X,E7.2,3X,E7.2,3X,
+ E7.2,3X,E7.2)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,673
read(1,'(A87)')ar__2
read(ar__2,3)
+ LInd_1,UInd_1,CS5,CS8,CS10,CS15,CS20,CS30,CS40,CS50
c ..............Just test output...........
write(6,3)
+ LInd_1,UInd_1,CS5,CS8,CS10,CS15,CS20,CS30,CS40,CS50
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end