Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/406/987 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/406/987 Elemental abundances of three CP stars (Pintado+, 2003)
*================================================================================
*Elemental abundance analyses with the EBASIM spectrograph of the 2.1-m CASLEO
*Observatory Telescope.
*I. The late B and early A stars xi Octantis, alpha Sextantis, and 68 Taurus.
* Pintado O.I., Adelman S.J.
* <Astron. Astrophys. 406, 987 (2003)>
* =2003A&A...406..987P
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'abund.dat' ! Atomic abundances (table5 to table7)
integer*4 nr__
parameter (nr__=75) ! Number of records
character*35 ar__ ! Full-size record
character*9 Name (nr__) ! Star name
character*6 Ion (nr__) ! Ion
character*2 Element (nr__) ! Element (identical to bytes 13-14)
real*4 log_Nel_H (nr__) ! Derived abundance of Element
real*4 e_log_Nel_H(nr__) ! ? rms uncertainty on log(Nel/H)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! The Elemental Abundances of {xi} Oct
integer*4 nr__1
parameter (nr__1=217) ! Number of records
character*42 ar__1 ! Full-size record
character*6 Ion_1 (nr__1) ! Ion designation
character*5 Mult (nr__1) ! Multiplet number
real*8 lambda (nr__1) ! (0.1nm) Wavelength
real*4 loggf (nr__1) ! Oscillator strength
character*2 r_loggf (nr__1) ! Reference for loggf (1)
integer*4 EW (nr__1) ! (0.1nm) Equivalent width
real*4 logN_H (nr__1) ! ([---]) Elemental abundance logN/H
*Note (1): gf-value references:
* BG = Biemont et al. (1989A&A...209..391B) for V II,
* Biemont et al. (1981ApJ...248..867B) for Zr II
* BK = Biemont et al. (1982ApJ...261..736H)
* FW = Fuhr & Wiese (1990, in Lide, D. R. ed, CRC Handbook of Chemistry
* and Physics, CRC Press, Cleveland, OH))
* GB = Grevesse et al. (1981, in Upper Main Seq. Chem. Pec. Stars.,
* 23rd Liege 81, P. 211)
* HL = Hannaford et al. (1982ApJ...261..736H)
* JK = Joensson et al. (1984, Phys. Review A, 30, 2429)
* KF = Klose, Fuhr, & Wiese (2002, J. Phys. Chem. Ref. Data, 31, 217)
* KP = Kurucz & Peytremann (1975, Cat. <VI/10>)
* KX = Kurucz & Bell (1995, in Astrophysical Applications of Powerful
* New Databases, eds. S. J. Adelman and W. L. Wiese
* (ASP, San Francisco), ASP Conf. Ser. 78, 205)
* LA = Lanz & Artru (1985, Phys. Scripta, 32, 155)
* LD = Lawler & Dakin (1989, JOSA B, 6, 1457)
* MC = Magazzu & Cowley (1986ApJ...308..254M)
* MF = Fuhr, Martin & Wiese (1988, J. Phys. Chem. Ref. Data 15,
* Suppl. 4) and Martin, Fuhr & Wiese (1988, J. Phys. Chem. Ref.
* Data 15, Suppl. 3), Cat. <VI/72>
* WF = Wise, Fuhr & Deters (1996, J. Phys. Chem. Ref. Data,
* Monograph 6)
* WM = Wiese & Martin (1980, SRDS-NBS 68. Part 2, US Government
* Printing Office, Washington, DC.)
* WS = Wiese, Smith & Glennon (1966, NSRDS-NBS 4, US Government
* Printing, Office, Washington, DC and 1969, NSRDS-NBS,
* Washington, D.C., US Department of Commerce, National Bureau
* of Standards) and
* Wiese, Smith & Miles (1969, NSRDS-NBS, Washington, D.C.:
* US Department of Commerce, National Bureau of Standards)
* WV = Ward (1985MNRAS.213...71W)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! The Elemental Abundances of {alpha} Sex
integer*4 nr__2
parameter (nr__2=366) ! Number of records
character*42 ar__2 ! Full-size record
character*6 Ion_2 (nr__2) ! Ion designation
character*5 Mult_1 (nr__2) ! Multiplet number
real*8 lambda_1 (nr__2) ! (0.1nm) Wavelength
real*4 loggf_1 (nr__2) ! Oscillator strength
character*2 r_loggf_1 (nr__2) ! Reference for loggf (1)
integer*4 EW_1 (nr__2) ! (0.1nm) Equivalent width
real*4 logN_H_1 (nr__2) ! ([---]) Elemental abundance logN/H
*Note (1): gf-value references:
* BG = Biemont et al. (1989A&A...209..391B) for V II,
* Biemont et al. (1981ApJ...248..867B) for Zr II
* BK = Biemont et al. (1982ApJ...261..736H)
* FW = Fuhr & Wiese (1990, in Lide, D. R. ed, CRC Handbook of Chemistry
* and Physics, CRC Press, Cleveland, OH))
* GB = Grevesse et al. (1981, in Upper Main Seq. Chem. Pec. Stars.,
* 23rd Liege 81, P. 211)
* HL = Hannaford et al. (1982ApJ...261..736H)
* JK = Joensson et al. (1984, Phys. Review A, 30, 2429)
* KF = Klose, Fuhr, & Wiese (2002, J. Phys. Chem. Ref. Data, 31, 217)
* KP = Kurucz & Peytremann (1975, Cat. <VI/10>)
* KX = Kurucz & Bell (1995, in Astrophysical Applications of Powerful
* New Databases, eds. S. J. Adelman and W. L. Wiese
* (ASP, San Francisco), ASP Conf. Ser. 78, 205)
* LA = Lanz & Artru (1985, Phys. Scripta, 32, 155)
* LD = Lawler & Dakin (1989, JOSA B, 6, 1457)
* MC = Magazzu & Cowley (1986ApJ...308..254M)
* MF = Fuhr, Martin & Wiese (1988, J. Phys. Chem. Ref. Data 15,
* Suppl. 4) and Martin, Fuhr & Wiese (1988, J. Phys. Chem. Ref.
* Data 15, Suppl. 3), Cat. <VI/72>
* WF = Wise, Fuhr & Deters (1996, J. Phys. Chem. Ref. Data,
* Monograph 6)
* WM = Wiese & Martin (1980, SRDS-NBS 68. Part 2, US Government
* Printing Office, Washington, DC.)
* WS = Wiese, Smith & Glennon (1966, NSRDS-NBS 4, US Government
* Printing, Office, Washington, DC and 1969, NSRDS-NBS,
* Washington, D.C., US Department of Commerce, National Bureau
* of Standards) and
* Wiese, Smith & Miles (1969, NSRDS-NBS, Washington, D.C.:
* US Department of Commerce, National Bureau of Standards)
* WV = Ward (1985MNRAS.213...71W)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7.dat' ! The Elemental Abundances of 68 Tau
integer*4 nr__3
parameter (nr__3=976) ! Number of records
character*42 ar__3 ! Full-size record
character*6 Ion_3 (nr__3) ! Ion designation
character*5 Mult_2 (nr__3) ! Multiplet number
real*8 lambda_2 (nr__3) ! (0.1nm) Wavelength
real*4 loggf_2 (nr__3) ! Oscillator strength
character*2 r_loggf_2 (nr__3) ! Reference for loggf (1)
integer*4 EW_2 (nr__3) ! (0.1nm) Equivalent width
real*4 logN_H_2 (nr__3) ! ([---]) Elemental abundance logN/H
*Note (1): gf-value references:
* BG = Biemont et al. (1989A&A...209..391B) for V II,
* Biemont et al. (1981ApJ...248..867B) for Zr II
* BK = Biemont et al. (1982ApJ...261..736H)
* FW = Fuhr & Wiese (1990, in Lide, D. R. ed, CRC Handbook of Chemistry
* and Physics, CRC Press, Cleveland, OH))
* GB = Grevesse et al. (1981, in Upper Main Seq. Chem. Pec. Stars.,
* 23rd Liege 81, P. 211)
* HL = Hannaford et al. (1982ApJ...261..736H)
* JK = Joensson et al. (1984, Phys. Review A, 30, 2429)
* KF = Klose, Fuhr, & Wiese (2002, J. Phys. Chem. Ref. Data, 31, 217)
* KP = Kurucz & Peytremann (1975, Cat. <VI/10>)
* KX = Kurucz & Bell (1995, in Astrophysical Applications of Powerful
* New Databases, eds. S. J. Adelman and W. L. Wiese
* (ASP, San Francisco), ASP Conf. Ser. 78, 205)
* LA = Lanz & Artru (1985, Phys. Scripta, 32, 155)
* LD = Lawler & Dakin (1989, JOSA B, 6, 1457)
* MC = Magazzu & Cowley (1986ApJ...308..254M)
* MF = Fuhr, Martin & Wiese (1988, J. Phys. Chem. Ref. Data 15,
* Suppl. 4) and Martin, Fuhr & Wiese (1988, J. Phys. Chem. Ref.
* Data 15, Suppl. 3), Cat. <VI/72>
* WF = Wise, Fuhr & Deters (1996, J. Phys. Chem. Ref. Data,
* Monograph 6)
* WM = Wiese & Martin (1980, SRDS-NBS 68. Part 2, US Government
* Printing Office, Washington, DC.)
* WS = Wiese, Smith & Glennon (1966, NSRDS-NBS 4, US Government
* Printing, Office, Washington, DC and 1969, NSRDS-NBS,
* Washington, D.C., US Department of Commerce, National Bureau
* of Standards) and
* Wiese, Smith & Miles (1969, NSRDS-NBS, Washington, D.C.:
* US Department of Commerce, National Bureau of Standards)
* WV = Ward (1985MNRAS.213...71W)
C=============================================================================
C Loading file 'abund.dat' ! Atomic abundances (table5 to table7)
C Format for file interpretation
1 format(A9,3X,A6,1X,A2,4X,F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'abund.dat')
write(6,*) '....Loading file: abund.dat'
do i__=1,75
read(1,'(A35)')ar__
read(ar__,1)
+ Name(i__),Ion(i__),Element(i__),log_Nel_H(i__),
+ e_log_Nel_H(i__)
if(ar__(32:35) .EQ. '') e_log_Nel_H(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ Name(i__),Ion(i__),Element(i__),log_Nel_H(i__),
+ e_log_Nel_H(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! The Elemental Abundances of {xi} Oct
C Format for file interpretation
2 format(A6,1X,A5,3X,F7.2,1X,F5.2,1X,A2,1X,I3,1X,F6.2)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,217
read(1,'(A42)')ar__1
read(ar__1,2)
+ Ion_1(i__),Mult(i__),lambda(i__),loggf(i__),r_loggf(i__),
+ EW(i__),logN_H(i__)
c ..............Just test output...........
write(6,2)
+ Ion_1(i__),Mult(i__),lambda(i__),loggf(i__),r_loggf(i__),
+ EW(i__),logN_H(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! The Elemental Abundances of {alpha} Sex
C Format for file interpretation
3 format(A6,1X,A5,3X,F7.2,1X,F5.2,1X,A2,1X,I3,1X,F6.2)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,366
read(1,'(A42)')ar__2
read(ar__2,3)
+ Ion_2(i__),Mult_1(i__),lambda_1(i__),loggf_1(i__),
+ r_loggf_1(i__),EW_1(i__),logN_H_1(i__)
c ..............Just test output...........
write(6,3)
+ Ion_2(i__),Mult_1(i__),lambda_1(i__),loggf_1(i__),
+ r_loggf_1(i__),EW_1(i__),logN_H_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7.dat' ! The Elemental Abundances of 68 Tau
C Format for file interpretation
4 format(A6,1X,A5,3X,F7.2,1X,F5.2,1X,A2,1X,I3,1X,F6.2)
C Effective file loading
open(unit=1,status='old',file=
+'table7.dat')
write(6,*) '....Loading file: table7.dat'
do i__=1,976
read(1,'(A42)')ar__3
read(ar__3,4)
+ Ion_3(i__),Mult_2(i__),lambda_2(i__),loggf_2(i__),
+ r_loggf_2(i__),EW_2(i__),logN_H_2(i__)
c ..............Just test output...........
write(6,4)
+ Ion_3(i__),Mult_2(i__),lambda_2(i__),loggf_2(i__),
+ r_loggf_2(i__),EW_2(i__),logN_H_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end