Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/275/101 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-20
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/275/101 Chemical evolution of the galactic disk I. (Edvardsson+ 1993)
*================================================================================
*The chemical evolution of the galactic disk I. Analysis and results
* Edvardsson B., Andersen J., Gustafsson B., Lambert D.L., Nissen P.E.,
* Tomkin J.
* <Astron. Astrophys. 275, 101 (1993)>
* =1993A&A...275..101E (SIMBAD/NED RefCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table8.dat' ! Atomic line data and solar equivalent widths
integer*4 nr__
parameter (nr__=86) ! Number of records
character*44 ar__ ! Full-size record
character*5 Element ! Line identification: chemical element and
* ionization stage
real*8 Lambda ! (0.1nm) Wavelength (Angstroms)
real*4 E ! (eV) Line excitation energy
real*4 log_gf ! Log gf (oscillator strength)
real*4 Factor ! Enhancement factor to the
* "classical van der Waals damping Gamma_6"
real*4 Damping ! (Hz) Radiation damping constant
real*4 W ! (0.1pm) Solar flux spectrum equivalent width
* (milliAngstrom). (1)
character*1 Source ! for Solar equivalent width:
* E=ESO spectrum,
* M=McDonald spectrum
*Note (1): the measured equivalent widths were corrected for 1%
* scattered light by multiplication by the factor 1.01 as
* described in Sect.2 of Paper (1993A&AS..102..603E)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'stars.dat' ! Fundamental data and chemical abundances
of 14 species for the programme stars
integer*4 nr__1
parameter (nr__1=189) ! Number of records
character*180 ar__1 ! Full-size record
character*9 Name ! Star catalogue, HR or HD
integer*4 Teff ! (K) Effective temperature
real*4 log_g ! ([cm/s2]) Logarithmic surface gravity
real*4 v_Me_H_ ! ([Sun]) overall photometric metallicity derived for
* the stars, normalized on the Sun (1)
character*1 u__Me_H_ ! Uncertainty flag (:) on Me/H (2)
real*4 v_Fe_H_ ! ([Sun]) resulting spectroscopic iron abundance
* (derived from lines of Fe I),
* normalized to the Sun
real*4 R ! (pc) Heliocentric distance
real*4 U ! (km/s) Heliocentric velocity (U is positive towards
* the galactic anti-centre),
real*4 V ! (km/s) Heliocentric velocity (V is positive in the
* direction of circular motion)
real*4 W_1 ! (km/s) Heliocentric velocity (W is positive towards
* the galactic north pole)
real*4 Rp ! (kpc) Perigalactic distance
real*4 Rm ! (kpc) Straight mean of the perigalactic and the
* apogalactic distances
real*4 Zmax ! (kpc) Maximum distance from the galactic plane
real*4 e_1 ! Orbital eccentricity as projected on the
* galactic plane
real*4 log_age ! ([Ga]) ? Logarithm of the stellar age (in Gigayears)
* determined from isochrones (3)
character*3 Rem ! Remarks (4)
real*4 v_FeI_H_ ! ([Sun]) Chemical abundance (normalized to the Sun)
real*4 v_OI_H_ ! ([Sun]) ? Chemical abundance (normalized to the Sun)
real*4 v_NaI_H_ ! ([Sun]) ? Chemical abundance (normalized to the Sun)
real*4 v_MgI_H_ ! ([Sun]) ? Chemical abundance (normalized to the Sun)
real*4 v_AlI_H_ ! ([Sun]) ? Chemical abundance (normalized to the Sun)
real*4 v_SiI_H_ ! ([Sun]) ? Chemical abundance (normalized to the Sun)
real*4 v_CaI_H_ ! ([Sun]) ? Chemical abundance (normalized to the Sun)
real*4 v_TiI_H_ ! ([Sun]) ? Chemical abundance (normalized to the Sun)
real*4 v_FeII_H_ ! ([Sun]) ? Chemical abundance (normalized to the Sun)
real*4 v_NiI_H_ ! ([Sun]) ? Chemical abundance (normalized to the Sun)
real*4 v_YII_H_ ! ([Sun]) ? Chemical abundance (normalized to the Sun)
real*4 v_ZrII_H_ ! ([Sun]) ? Chemical abundance (normalized to the Sun)
real*4 v_BaII_H_ ! ([Sun]) ? Chemical abundance (normalized to the Sun)
real*4 v_NdII_H_ ! ([Sun]) ? Chemical abundance (normalized to the Sun)
real*4 v_alpha_H_ ! ([Sun]) = 0.25([Mg/H] + [Si/H] + [Ca/H] + [Ti/H])
*Note (1): [Me/H] values closer to the resulting [Fe/H] values were
* used for the models of 15 stars, cf. Sect.3.1.1.
*Note (2): [Me/H] values for these 15 are given with a colon
* corresponding to parentheses in the printed version
*Note (3): this parameter is missing for 7 stars
*Note (4): the following symbols are used:
* SB = spectroscopic binaries (with possibly uncertain distances),
* pm = stars with uncertainties in proper motions significantly
* above 0.005 arcsecs per year
* h = possible hook stars (for which the ages may be
* underestimated by 0.15 dex).
C=============================================================================
C Loading file 'table8.dat' ! Atomic line data and solar equivalent widths
C Format for file interpretation
1 format(A5,1X,F7.2,1X,F5.2,1X,F5.2,1X,F3.1,1X,E6.2,1X,F5.1,1X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table8.dat')
write(6,*) '....Loading file: table8.dat'
do i__=1,86
read(1,'(A44)')ar__
read(ar__,1)Element,Lambda,E,log_gf,Factor,Damping,W,Source
c ..............Just test output...........
write(6,1)Element,Lambda,E,log_gf,Factor,Damping,W,Source
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'stars.dat' ! Fundamental data and chemical abundances
* of 14 species for the programme stars
C Format for file interpretation
2 format(
+ A9,1X,I4,1X,F4.2,1X,F5.2,A1,F6.2,1X,F5.1,1X,F6.1,1X,F6.1,1X,
+ F6.1,1X,F5.2,1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,A3,1X,F5.2,1X,
+ F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,
+ 1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'stars.dat')
write(6,*) '....Loading file: stars.dat'
do i__=1,189
read(1,'(A180)')ar__1
read(ar__1,2)
+ Name,Teff,log_g,v_Me_H_,u__Me_H_,v_Fe_H_,R,U,V,W_1,Rp,Rm,Zmax,
+ e_1,log_age,Rem,v_FeI_H_,v_OI_H_,v_NaI_H_,v_MgI_H_,v_AlI_H_,
+ v_SiI_H_,v_CaI_H_,v_TiI_H_,v_FeII_H_,v_NiI_H_,v_YII_H_,
+ v_ZrII_H_,v_BaII_H_,v_NdII_H_,v_alpha_H_
if(ar__1(83:86) .EQ. '') log_age = rNULL__
if(ar__1(98:102) .EQ. '') v_OI_H_ = rNULL__
if(ar__1(104:108) .EQ. '') v_NaI_H_ = rNULL__
if(ar__1(110:114) .EQ. '') v_MgI_H_ = rNULL__
if(ar__1(116:120) .EQ. '') v_AlI_H_ = rNULL__
if(ar__1(122:126) .EQ. '') v_SiI_H_ = rNULL__
if(ar__1(128:132) .EQ. '') v_CaI_H_ = rNULL__
if(ar__1(134:138) .EQ. '') v_TiI_H_ = rNULL__
if(ar__1(140:144) .EQ. '') v_FeII_H_ = rNULL__
if(ar__1(146:150) .EQ. '') v_NiI_H_ = rNULL__
if(ar__1(152:156) .EQ. '') v_YII_H_ = rNULL__
if(ar__1(158:162) .EQ. '') v_ZrII_H_ = rNULL__
if(ar__1(164:168) .EQ. '') v_BaII_H_ = rNULL__
if(ar__1(170:174) .EQ. '') v_NdII_H_ = rNULL__
c ..............Just test output...........
write(6,2)
+ Name,Teff,log_g,v_Me_H_,u__Me_H_,v_Fe_H_,R,U,V,W_1,Rp,Rm,Zmax,
+ e_1,log_age,Rem,v_FeI_H_,v_OI_H_,v_NaI_H_,v_MgI_H_,v_AlI_H_,
+ v_SiI_H_,v_CaI_H_,v_TiI_H_,v_FeII_H_,v_NiI_H_,v_YII_H_,
+ v_ZrII_H_,v_BaII_H_,v_NdII_H_,v_alpha_H_
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end