Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/592/A87 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 2026-Oct-14
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/592/A87 Chemical abundances of solar analogues (Adibekyan+, 2016)
*================================================================================
*Abundance trend with condensation temperature for stars with
*different Galactic birth places.
* Adibekyan V., Delgado-Mena E., Figueira P., Sousa S.G., Santos N.C.,
* Gonzalez Hernandez J.I., Minchev I., Faria J.P., Israelian G.,
* Harutyunyan G., Suarez-Andres L., Hakobyan A.A.
* <Astron. Astrophys. 592, A87 (2016)>
* =2016A&A...592A..87A (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'param.dat' ! Stellar parameters of the stars
integer*4 nr__
parameter (nr__=39) ! Number of records
character*48 ar__ ! Full-size record
character*8 Star ! Star's identifier
integer*4 Teff ! (K) Effective Temperature
integer*4 e_Teff ! (K) rms uncertainty on Teff
real*4 logg ! ([cm/s2]) Surface gravity
real*4 e_logg ! ([cm/s2]) Surface gravity
real*4 v_Fe_H_ ! ([Sun]) Metallicity
real*4 e__Fe_H_ ! ([Sun]) rms uncertainty on [Fe/H]
real*4 Vtur ! (km/s) Turbulence velocity
real*4 e_Vtur ! (km/s) rms uncertainty on Turbulence velocity
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'abund.dat' ! Abundances for each star and element
integer*4 nr__1
parameter (nr__1=39) ! Number of records
character*323 ar__1 ! Full-size record
character*8 Star_1 ! Star's identifier
real*4 v_CI_H_ ! ([Sun]) Abundance [CI/H]
real*4 e__CI_H_ ! ([Sun]) rms uncertainty of [CI/H]
real*4 v_OI_H_ ! ([Sun]) Abundance [OI/H]
real*4 e__OI_H_ ! ([Sun]) rms uncertainty of [OI/H]
real*4 v_NaI_H_ ! ([Sun]) Abundance [NaI/H]
real*4 e__NaI_H_ ! ([Sun]) rms uncertainty of [NaI/H]
real*4 v_MgI_H_ ! ([Sun]) Abundance [MgI/H]
real*4 e__MgI_H_ ! ([Sun]) rms uncertainty of [MgI/H]
real*4 v_AlI_H_ ! ([Sun]) Abundance [AlI/H]
real*4 e__AlI_H_ ! ([Sun]) rms uncertainty of [AlI/H]
real*4 v_SiI_H_ ! ([Sun]) Abundance [SiI/H]
real*4 e__SiI_H_ ! ([Sun]) rms uncertainty of [SiI/H]
real*4 v_SI_H_ ! ([Sun]) Abundance [SI/H]
real*4 e__SI_H_ ! ([Sun]) rms uncertainty of [SI/H]
real*4 v_CaI_H_ ! ([Sun]) Abundance [CaI/H]
real*4 e__CaI_H_ ! ([Sun]) rms uncertainty of [CaI/H]
real*4 v_ScII_H_ ! ([Sun]) Abundance [ScII/H]
real*4 e__ScII_H_ ! ([Sun]) rms uncertainty of [ScII/H]
real*4 v_Ti_H_ ! ([Sun]) Abundance [Ti/H]
real*4 e__Ti_H_ ! ([Sun]) rms uncertainty of [Ti/H]
real*4 v_VI_H_ ! ([Sun]) Abundance [VI/H]
real*4 e__VI_H_ ! ([Sun]) rms uncertainty of [VI/H]
real*4 v_CrI_H_ ! ([Sun]) Abundance [CrI/H]
real*4 e__CrI_H_ ! ([Sun]) rms uncertainty of [CrI/H]
real*4 v_MnI_H_ ! ([Sun]) Abundance [MnI/H]
real*4 e__MnI_H_ ! ([Sun]) rms uncertainty of [MnI/H]
real*4 v_FeI_H_ ! ([Sun]) Abundance [FeI/H]
real*4 e__FeI_H_ ! ([Sun]) rms uncertainty of [FeI/H]
real*4 v_CoI_H_ ! ([Sun]) Abundance [CoI/H]
real*4 e__CoI_H_ ! ([Sun]) rms uncertainty of [CoI/H]
real*4 v_NiI_H_ ! ([Sun]) Abundance [NiI/H]
real*4 e__NiI_H_ ! ([Sun]) rms uncertainty of [NiI/H]
real*4 v_CuI_H_ ! ([Sun]) Abundance [CuI/H]
real*4 e__CuI_H_ ! ([Sun]) rms uncertainty of [CuI/H]
real*4 v_ZnI_H_ ! ([Sun]) Abundance [ZnI/H]
real*4 e__ZnI_H_ ! ([Sun]) rms uncertainty of [ZnI/H]
real*4 v_SrI_H_ ! ([Sun]) ? Abundance [SrI/H]
real*4 e__SrI_H_ ! ([Sun]) ? rms uncertainty of [SrI/H]
real*4 v_YII_H_ ! ([Sun]) Abundance [YII/H]
real*4 e__YII_H_ ! ([Sun]) rms uncertainty of [YII/H]
real*4 v_ZrII_H_ ! ([Sun]) Abundance [ZrII/H]
real*4 e__ZrII_H_ ! ([Sun]) rms uncertainty of [ZrII/H]
real*4 v_BaII_H_ ! ([Sun]) Abundance [BaII/H]
real*4 e__BaII_H_ ! ([Sun]) rms uncertainty of [BaII/H]
real*4 v_CeII_H_ ! ([Sun]) ? Abundance [CeII/H]
real*4 e__CeII_H_ ! ([Sun]) ? rms uncertainty of [CeII/H]
real*4 v_NdII_H_ ! ([Sun]) ? Abundance [NdII/H]
real*4 e__NdII_H_ ! ([Sun]) ? rms uncertainty of [NdII/H]
C=============================================================================
C Loading file 'param.dat' ! Stellar parameters of the stars
C Format for file interpretation
1 format(
+ A8,1X,I4,1X,I3,1X,F4.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'param.dat')
write(6,*) '....Loading file: param.dat'
do i__=1,39
read(1,'(A48)')ar__
read(ar__,1)
+ Star,Teff,e_Teff,logg,e_logg,v_Fe_H_,e__Fe_H_,Vtur,e_Vtur
c ..............Just test output...........
write(6,1)
+ Star,Teff,e_Teff,logg,e_logg,v_Fe_H_,e__Fe_H_,Vtur,e_Vtur
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'abund.dat' ! Abundances for each star and element
C Format for file interpretation
2 format(
+ A8,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,
+ F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,
+ 1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,
+ F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,
+ 1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,2X,
+ F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,
+ 2X,F5.3,1X,F6.3,2X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'abund.dat')
write(6,*) '....Loading file: abund.dat'
do i__=1,39
read(1,'(A323)')ar__1
read(ar__1,2)
+ Star_1,v_CI_H_,e__CI_H_,v_OI_H_,e__OI_H_,v_NaI_H_,e__NaI_H_,
+ v_MgI_H_,e__MgI_H_,v_AlI_H_,e__AlI_H_,v_SiI_H_,e__SiI_H_,
+ v_SI_H_,e__SI_H_,v_CaI_H_,e__CaI_H_,v_ScII_H_,e__ScII_H_,
+ v_Ti_H_,e__Ti_H_,v_VI_H_,e__VI_H_,v_CrI_H_,e__CrI_H_,v_MnI_H_,
+ e__MnI_H_,v_FeI_H_,e__FeI_H_,v_CoI_H_,e__CoI_H_,v_NiI_H_,
+ e__NiI_H_,v_CuI_H_,e__CuI_H_,v_ZnI_H_,e__ZnI_H_,v_SrI_H_,
+ e__SrI_H_,v_YII_H_,e__YII_H_,v_ZrII_H_,e__ZrII_H_,v_BaII_H_,
+ e__BaII_H_,v_CeII_H_,e__CeII_H_,v_NdII_H_,e__NdII_H_
if(ar__1(244:249) .EQ. '') v_SrI_H_ = rNULL__
if(ar__1(252:256) .EQ. '') e__SrI_H_ = rNULL__
if(ar__1(297:302) .EQ. '') v_CeII_H_ = rNULL__
if(ar__1(305:309) .EQ. '') e__CeII_H_ = rNULL__
if(ar__1(311:316) .EQ. '') v_NdII_H_ = rNULL__
if(ar__1(319:323) .EQ. '') e__NdII_H_ = rNULL__
c ..............Just test output...........
write(6,2)
+ Star_1,v_CI_H_,e__CI_H_,v_OI_H_,e__OI_H_,v_NaI_H_,e__NaI_H_,
+ v_MgI_H_,e__MgI_H_,v_AlI_H_,e__AlI_H_,v_SiI_H_,e__SiI_H_,
+ v_SI_H_,e__SI_H_,v_CaI_H_,e__CaI_H_,v_ScII_H_,e__ScII_H_,
+ v_Ti_H_,e__Ti_H_,v_VI_H_,e__VI_H_,v_CrI_H_,e__CrI_H_,v_MnI_H_,
+ e__MnI_H_,v_FeI_H_,e__FeI_H_,v_CoI_H_,e__CoI_H_,v_NiI_H_,
+ e__NiI_H_,v_CuI_H_,e__CuI_H_,v_ZnI_H_,e__ZnI_H_,v_SrI_H_,
+ e__SrI_H_,v_YII_H_,e__YII_H_,v_ZrII_H_,e__ZrII_H_,v_BaII_H_,
+ e__BaII_H_,v_CeII_H_,e__CeII_H_,v_NdII_H_,e__NdII_H_
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end