Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/381/500 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/381/500 Eu abundances in F and G disk stars (Koch+, 2002)
*================================================================================
*Eu abundances in F and G disk stars.
* Koch A., Edvardsson B.
* <Astron. Astrophys. 381, 500 (2002)>
* =2002A&A...381..500K
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Isotopic and hyperfine structure line components
for the 4129.7{AA} Eu II line
integer*4 nr__
parameter (nr__=32) ! Number of records
character*24 ar__ ! Full-size record
real*8 Wavel ! (0.1nm) Wavelength [Angstroems]
integer*4 Isotop ! [151,153] Mass number, 151 or 153
real*4 loggf ! Relative log gf assuming isotope ratio 50/50
real*4 EW ! (0.1pm) Solar equivalent width [milliAngstroems]
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! Eu abundances for the programme stars, and
Fe abundances and ages
integer*4 nr__1
parameter (nr__1=74) ! Number of records
character*33 ar__1 ! Full-size record
character*2 Cat ! Catalogue, HR or HD
integer*4 No ! Entry number in the catalogue
real*4 v_Eu_H_ ! Ratio [Eu/H] (from Eu II 4129.7{AA}) (1)
real*4 v_Fe_H_ ! Ratio [Fe/H] (from Fe II, from Edvardsson et
* al., 1993, Cat. <J/A+A/275/101>) (1)
real*4 v_Eu_Fe_ ! Ratio [Eu/Fe] (= [Eu/H]-[Fe/H]) (1) (3)
real*4 logAge ! ([Gyr]) ? log (stellar age/1Gyr) (3) (2)
*Note (1): [X/Y] = log(N(X)/N(Y))star - log(N(X)/N(Y))Sun where N(X)/N(Y)
* is the ratio of the total number densities of elements X and Y
* in the stellar and solar atmospheres
*Note (2): Ages for five stars are undetermined, then the field is left blank
*Note (3): Fe abundances and ages from Edvardsson B, Andersen J., Gustafsson B.,
* Lambert D.L., Nissen P.E., Tomkin J. 1993, Cat. <J/A+A/275/101>
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Homogenized and merged abundance data for the
present sample and the data of Woolf V.M.,
Tomkin J., and Lambert D.L. 1995ApJ...453..660W,
Fe abundances and ages
integer*4 nr__2
parameter (nr__2=125) ! Number of records
character*33 ar__2 ! Full-size record
character*2 Cat_1 ! Catalogue, HR or HD
integer*4 No_1 ! Entry number in the catalogue
real*4 v_Eu_H__1 ! Ratio [Eu/H] (from Eu II 4129.7{AA}) (1)
real*4 v_Fe_H__1 ! Ratio [Fe/H] (from Fe II, from Edvardsson et
* al., 1993, Cat. <J/A+A/275/101>) (1)
real*4 v_Eu_Fe__1 ! Ratio [Eu/Fe] (= [Eu/H]-[Fe/H]) (1) (3)
real*4 logAge_1 ! ([Gyr]) ? log (stellar age/1Gyr) (3) (2)
*Note (1): [X/Y] = log(N(X)/N(Y))star - log(N(X)/N(Y))Sun where N(X)/N(Y)
* is the ratio of the total number densities of elements X and Y
* in the stellar and solar atmospheres
*Note (2): Ages for five stars are undetermined, then the field is left blank
*Note (3): Fe abundances and ages from Edvardsson B, Andersen J., Gustafsson B.,
* Lambert D.L., Nissen P.E., Tomkin J. 1993, Cat. <J/A+A/275/101>
C=============================================================================
C Loading file 'table2.dat' ! Isotopic and hyperfine structure line components
* for the 4129.7{AA} Eu II line
C Format for file interpretation
1 format(F9.4,1X,I3,1X,F6.3,1X,F3.1)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,32
read(1,'(A24)')ar__
read(ar__,1)Wavel,Isotop,loggf,EW
c ..............Just test output...........
write(6,1)Wavel,Isotop,loggf,EW
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! Eu abundances for the programme stars, and
* Fe abundances and ages
C Format for file interpretation
2 format(A2,1X,I6,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,74
read(1,'(A33)')ar__1
read(ar__1,2)Cat,No,v_Eu_H_,v_Fe_H_,v_Eu_Fe_,logAge
if(ar__1(29:33) .EQ. '') logAge = rNULL__
c ..............Just test output...........
write(6,2)Cat,No,v_Eu_H_,v_Fe_H_,v_Eu_Fe_,logAge
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! Homogenized and merged abundance data for the
* present sample and the data of Woolf V.M.,
* Tomkin J., and Lambert D.L. 1995ApJ...453..660W,
* Fe abundances and ages
C Format for file interpretation
3 format(A2,1X,I6,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,125
read(1,'(A33)')ar__2
read(ar__2,3)
+ Cat_1,No_1,v_Eu_H__1,v_Fe_H__1,v_Eu_Fe__1,logAge_1
if(ar__2(29:33) .EQ. '') logAge_1 = rNULL__
c ..............Just test output...........
write(6,3)
+ Cat_1,No_1,v_Eu_H__1,v_Fe_H__1,v_Eu_Fe__1,logAge_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end