Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/123/295 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-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 (nr__) ! Index number of the level
character*27 Config (nr__) ! Electron configuration
integer*4 J (nr__) ! Total angular momentum of the level
real*4 ELevC (nr__) ! (2Ry) Energy levels of the present calculation
* in hartrees
real*4 ELevE (nr__) ! (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 (nr__1) ! Lower level index (see Index in table1.dat)
integer*4 UInd (nr__1) ! Upper level index (see Index in table1.dat)
real*4 CS8P (nr__1) ! Collision Strength (at 8 Ryd) from this work
real*4 CS8BD (nr__1) ! Collision Strength (at 8 Ryd) from
* Bhatia & Doschek 1996
real*4 CS16P (nr__1) ! Collision Strength (at 16 Ryd) from this work
real*4 CS16BD (nr__1) ! Collision Strength (at 16 Ryd) from
* Bhatia & Doschek 1996
real*4 CS24P (nr__1) ! Collision Strength (at 24 Ryd) from this work
real*4 CS24BD (nr__1) ! 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 (nr__2) ! Lower level index (see Index in table1.dat)
integer*4 UInd_1 (nr__2) ! Upper level index (see Index in table1.dat)
real*4 CS5 (nr__2) ! Effective Collision Strength at 5x10^5^ K
real*4 CS8 (nr__2) ! Effective Collision Strength at 5x10^5^ K
real*4 CS10 (nr__2) ! Effective Collision Strength at 10x10^5^ K
real*4 CS15 (nr__2) ! Effective Collision Strength at 15x10^5^ K
real*4 CS20 (nr__2) ! Effective Collision Strength at 20x10^5^ K
real*4 CS30 (nr__2) ! Effective Collision Strength at 30x10^5^ K
real*4 CS40 (nr__2) ! Effective Collision Strength at 40x10^5^ K
real*4 CS50 (nr__2) ! 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(i__),Config(i__),J(i__),ELevC(i__),ELevE(i__)
if(ar__(45:50) .EQ. '') ELevE(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ Index(i__),Config(i__),J(i__),ELevC(i__),ELevE(i__)
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(i__),UInd(i__),CS8P(i__),CS8BD(i__),CS16P(i__),
+ CS16BD(i__),CS24P(i__),CS24BD(i__)
c ..............Just test output...........
write(6,2)
+ LInd(i__),UInd(i__),CS8P(i__),CS8BD(i__),CS16P(i__),
+ CS16BD(i__),CS24P(i__),CS24BD(i__)
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(i__),UInd_1(i__),CS5(i__),CS8(i__),CS10(i__),CS15(i__),
+ CS20(i__),CS30(i__),CS40(i__),CS50(i__)
c ..............Just test output...........
write(6,3)
+ LInd_1(i__),UInd_1(i__),CS5(i__),CS8(i__),CS10(i__),CS15(i__),
+ CS20(i__),CS30(i__),CS40(i__),CS50(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end