Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/410/527 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 2024-Apr-19
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/410/527 Abundances in the Galactic disk (Bensby+, 2003)
*================================================================================
*Elemental abundance trends in the Galactic thin and thick disks as traced by
*nearby F and G dwarf stars
* Bensby T., Feltzing S., Lundstrom I.
* <Astron. Astrophys. 410, 527 (2003)>
* =2003A&A...410..527B
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Atomic line data
integer*4 nr__
parameter (nr__=425) ! Number of records
character*56 ar__ ! Full-size record
character*2 Elem ! Element
integer*4 Ion ! Ionisation (1=neutral, 2=ionised)
real*8 Lambda ! (0.1nm) Wavelength
real*4 LE ! (eV) Lower excitation potential
real*4 dG6 ! Correction factor to Unsoeld damping
character*1 DMP ! [SU] U: Unsoeld damping, S: Barklem damping
real*4 gammaRad ! (s-1) Radiation damping
real*4 loggf ! Oscillator strength
character*7 r_loggf ! Reference for loggf (see refs.dat)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Elemental abundances
integer*4 nr__1
parameter (nr__1=67) ! Number of records
character*243 ar__1 ! Full-size record
integer*4 HIP ! Hipparcos catalogue number
integer*4 Mem ! [1,3] Stellar population membership (1)
real*4 FeI ! Mean abundance [FeI/H]
real*4 e_FeI ! Spread in [FeI/H] (2)
integer*4 o_FeI ! Number of lines used
real*4 FeII ! Mean abundance [FeII/H]
real*4 e_FeII ! Spread in [FeII/H] (2)
integer*4 o_FeII ! Number of lines used
real*4 NaI ! Mean abundance [NaI/H]
real*4 e_NaI ! Spread in [NaI/H] (2)
integer*4 o_NaI ! Number of lines used
real*4 MgI ! Mean abundance [MgI/H]
real*4 e_MgI ! Spread in [MgI/H] (2)
integer*4 o_MgI ! Number of lines used
real*4 AlI ! Mean abundance [AlI/H]
real*4 e_AlI ! Spread in [AlI/H] (2)
integer*4 o_AlI ! Number of lines used
real*4 SiI ! Mean abundance [SiI/H]
real*4 e_SiI ! Spread in [SiI/H] (2)
integer*4 o_SiI ! Number of lines used
real*4 CaI ! Mean abundance [CaI/H]
real*4 e_CaI ! Spread in [CaI/H] (2)
integer*4 o_CaI ! Number of lines used
real*4 TiI ! Mean abundance [TiI/H]
real*4 e_TiI ! Spread in [TiI/H] (2)
integer*4 o_TiI ! Number of lines used
real*4 TiII ! Mean abundance [TiII/H]
real*4 e_TiII ! Spread in [TiII/H] (2)
integer*4 o_TiII ! Number of lines used
real*4 CrI ! Mean abundance [CrI/H]
real*4 e_CrI ! Spread in [CrI/H] (2)
integer*4 o_CrI ! Number of lines used
real*4 CrII ! Mean abundance [CrII/H]
real*4 e_CrII ! Spread in [CrII/H] (2)
integer*4 o_CrII ! Number of lines used
real*4 NiI ! Mean abundance [NiI/H]
real*4 e_NiI ! Spread in [NiI/H] (2)
integer*4 o_NiI ! Number of lines used
real*4 ZnI ! Mean abundance [ZnI/H]
real*4 e_ZnI ! Spread in [ZnI/H] (2)
integer*4 o_ZnI ! Number of lines used
*Note (1): Stellar population membership:
* 1 = Thin disk star
* 2 = Thick disk star
* 3 = The Sun
*Note (2): Spread is the line-to-line scatter from individual lines
* (i.e. the 1 sigma standard deviation)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'refs.dat' ! References for log gf-values in table3.dat
integer*4 nr__2
parameter (nr__2=37) ! Number of records
character*165 ar__2 ! Full-size record
character*4 Ref ! Abbreviation for the reference
character*19 BibCode ! Bibcode
character*132 Aut ! Author's name
C=============================================================================
C Loading file 'table3.dat' ! Atomic line data
C Format for file interpretation
1 format(
+ A2,2X,I1,2X,F8.3,2X,F5.3,2X,F4.2,2X,A1,2X,E7.5,2X,F5.2,2X,A7)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,425
read(1,'(A56)')ar__
read(ar__,1)Elem,Ion,Lambda,LE,dG6,DMP,gammaRad,loggf,r_loggf
c ..............Just test output...........
write(6,1)Elem,Ion,Lambda,LE,dG6,DMP,gammaRad,loggf,r_loggf
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! Elemental abundances
C Format for file interpretation
2 format(
+ I6,2X,I1,2X,F5.2,2X,F4.2,2X,I3,2X,F5.2,2X,F4.2,2X,I3,2X,F5.2,
+ 2X,F4.2,2X,I3,2X,F5.2,2X,F4.2,2X,I3,2X,F5.2,2X,F4.2,2X,I3,2X,
+ F5.2,2X,F4.2,2X,I3,2X,F5.2,2X,F4.2,2X,I3,2X,F5.2,2X,F4.2,2X,
+ I3,2X,F5.2,2X,F4.2,2X,I3,2X,F5.2,2X,F4.2,2X,I3,2X,F5.2,2X,
+ F4.2,2X,I3,2X,F5.2,2X,F4.2,2X,I3,2X,F5.2,2X,F4.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,67
read(1,'(A243)')ar__1
read(ar__1,2)
+ HIP,Mem,FeI,e_FeI,o_FeI,FeII,e_FeII,o_FeII,NaI,e_NaI,o_NaI,
+ MgI,e_MgI,o_MgI,AlI,e_AlI,o_AlI,SiI,e_SiI,o_SiI,CaI,e_CaI,
+ o_CaI,TiI,e_TiI,o_TiI,TiII,e_TiII,o_TiII,CrI,e_CrI,o_CrI,CrII,
+ e_CrII,o_CrII,NiI,e_NiI,o_NiI,ZnI,e_ZnI,o_ZnI
c ..............Just test output...........
write(6,2)
+ HIP,Mem,FeI,e_FeI,o_FeI,FeII,e_FeII,o_FeII,NaI,e_NaI,o_NaI,
+ MgI,e_MgI,o_MgI,AlI,e_AlI,o_AlI,SiI,e_SiI,o_SiI,CaI,e_CaI,
+ o_CaI,TiI,e_TiI,o_TiI,TiII,e_TiII,o_TiII,CrI,e_CrI,o_CrI,CrII,
+ e_CrII,o_CrII,NiI,e_NiI,o_NiI,ZnI,e_ZnI,o_ZnI
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'refs.dat' ! References for log gf-values in table3.dat
C Format for file interpretation
3 format(1X,A4,7X,A19,2X,A132)
C Effective file loading
open(unit=1,status='old',file=
+'refs.dat')
write(6,*) '....Loading file: refs.dat'
do i__=1,37
read(1,'(A165)')ar__2
read(ar__2,3)Ref,BibCode,Aut
c ..............Just test output...........
write(6,3)Ref,BibCode,Aut
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end