Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/592/A87 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-Oct-11
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 (nr__) ! Star's identifier
integer*4 Teff (nr__) ! (K) Effective Temperature
integer*4 e_Teff (nr__) ! (K) rms uncertainty on Teff
real*4 logg (nr__) ! ([cm/s2]) Surface gravity
real*4 e_logg (nr__) ! ([cm/s2]) Surface gravity
real*4 v_Fe_H_ (nr__) ! ([Sun]) Metallicity
real*4 e__Fe_H_ (nr__) ! ([Sun]) rms uncertainty on [Fe/H]
real*4 Vtur (nr__) ! (km/s) Turbulence velocity
real*4 e_Vtur (nr__) ! (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 (nr__1) ! Star's identifier
real*4 v_CI_H_ (nr__1) ! ([Sun]) Abundance [CI/H]
real*4 e__CI_H_ (nr__1) ! ([Sun]) rms uncertainty of [CI/H]
real*4 v_OI_H_ (nr__1) ! ([Sun]) Abundance [OI/H]
real*4 e__OI_H_ (nr__1) ! ([Sun]) rms uncertainty of [OI/H]
real*4 v_NaI_H_ (nr__1) ! ([Sun]) Abundance [NaI/H]
real*4 e__NaI_H_ (nr__1) ! ([Sun]) rms uncertainty of [NaI/H]
real*4 v_MgI_H_ (nr__1) ! ([Sun]) Abundance [MgI/H]
real*4 e__MgI_H_ (nr__1) ! ([Sun]) rms uncertainty of [MgI/H]
real*4 v_AlI_H_ (nr__1) ! ([Sun]) Abundance [AlI/H]
real*4 e__AlI_H_ (nr__1) ! ([Sun]) rms uncertainty of [AlI/H]
real*4 v_SiI_H_ (nr__1) ! ([Sun]) Abundance [SiI/H]
real*4 e__SiI_H_ (nr__1) ! ([Sun]) rms uncertainty of [SiI/H]
real*4 v_SI_H_ (nr__1) ! ([Sun]) Abundance [SI/H]
real*4 e__SI_H_ (nr__1) ! ([Sun]) rms uncertainty of [SI/H]
real*4 v_CaI_H_ (nr__1) ! ([Sun]) Abundance [CaI/H]
real*4 e__CaI_H_ (nr__1) ! ([Sun]) rms uncertainty of [CaI/H]
real*4 v_ScII_H_ (nr__1) ! ([Sun]) Abundance [ScII/H]
real*4 e__ScII_H_ (nr__1) ! ([Sun]) rms uncertainty of [ScII/H]
real*4 v_Ti_H_ (nr__1) ! ([Sun]) Abundance [Ti/H]
real*4 e__Ti_H_ (nr__1) ! ([Sun]) rms uncertainty of [Ti/H]
real*4 v_VI_H_ (nr__1) ! ([Sun]) Abundance [VI/H]
real*4 e__VI_H_ (nr__1) ! ([Sun]) rms uncertainty of [VI/H]
real*4 v_CrI_H_ (nr__1) ! ([Sun]) Abundance [CrI/H]
real*4 e__CrI_H_ (nr__1) ! ([Sun]) rms uncertainty of [CrI/H]
real*4 v_MnI_H_ (nr__1) ! ([Sun]) Abundance [MnI/H]
real*4 e__MnI_H_ (nr__1) ! ([Sun]) rms uncertainty of [MnI/H]
real*4 v_FeI_H_ (nr__1) ! ([Sun]) Abundance [FeI/H]
real*4 e__FeI_H_ (nr__1) ! ([Sun]) rms uncertainty of [FeI/H]
real*4 v_CoI_H_ (nr__1) ! ([Sun]) Abundance [CoI/H]
real*4 e__CoI_H_ (nr__1) ! ([Sun]) rms uncertainty of [CoI/H]
real*4 v_NiI_H_ (nr__1) ! ([Sun]) Abundance [NiI/H]
real*4 e__NiI_H_ (nr__1) ! ([Sun]) rms uncertainty of [NiI/H]
real*4 v_CuI_H_ (nr__1) ! ([Sun]) Abundance [CuI/H]
real*4 e__CuI_H_ (nr__1) ! ([Sun]) rms uncertainty of [CuI/H]
real*4 v_ZnI_H_ (nr__1) ! ([Sun]) Abundance [ZnI/H]
real*4 e__ZnI_H_ (nr__1) ! ([Sun]) rms uncertainty of [ZnI/H]
real*4 v_SrI_H_ (nr__1) ! ([Sun]) ? Abundance [SrI/H]
real*4 e__SrI_H_ (nr__1) ! ([Sun]) ? rms uncertainty of [SrI/H]
real*4 v_YII_H_ (nr__1) ! ([Sun]) Abundance [YII/H]
real*4 e__YII_H_ (nr__1) ! ([Sun]) rms uncertainty of [YII/H]
real*4 v_ZrII_H_ (nr__1) ! ([Sun]) Abundance [ZrII/H]
real*4 e__ZrII_H_ (nr__1) ! ([Sun]) rms uncertainty of [ZrII/H]
real*4 v_BaII_H_ (nr__1) ! ([Sun]) Abundance [BaII/H]
real*4 e__BaII_H_ (nr__1) ! ([Sun]) rms uncertainty of [BaII/H]
real*4 v_CeII_H_ (nr__1) ! ([Sun]) ? Abundance [CeII/H]
real*4 e__CeII_H_ (nr__1) ! ([Sun]) ? rms uncertainty of [CeII/H]
real*4 v_NdII_H_ (nr__1) ! ([Sun]) ? Abundance [NdII/H]
real*4 e__NdII_H_ (nr__1) ! ([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(i__),Teff(i__),e_Teff(i__),logg(i__),e_logg(i__),
+ v_Fe_H_(i__),e__Fe_H_(i__),Vtur(i__),e_Vtur(i__)
c ..............Just test output...........
write(6,1)
+ Star(i__),Teff(i__),e_Teff(i__),logg(i__),e_logg(i__),
+ v_Fe_H_(i__),e__Fe_H_(i__),Vtur(i__),e_Vtur(i__)
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(i__),v_CI_H_(i__),e__CI_H_(i__),v_OI_H_(i__),
+ e__OI_H_(i__),v_NaI_H_(i__),e__NaI_H_(i__),v_MgI_H_(i__),
+ e__MgI_H_(i__),v_AlI_H_(i__),e__AlI_H_(i__),v_SiI_H_(i__),
+ e__SiI_H_(i__),v_SI_H_(i__),e__SI_H_(i__),v_CaI_H_(i__),
+ e__CaI_H_(i__),v_ScII_H_(i__),e__ScII_H_(i__),v_Ti_H_(i__),
+ e__Ti_H_(i__),v_VI_H_(i__),e__VI_H_(i__),v_CrI_H_(i__),
+ e__CrI_H_(i__),v_MnI_H_(i__),e__MnI_H_(i__),v_FeI_H_(i__),
+ e__FeI_H_(i__),v_CoI_H_(i__),e__CoI_H_(i__),v_NiI_H_(i__),
+ e__NiI_H_(i__),v_CuI_H_(i__),e__CuI_H_(i__),v_ZnI_H_(i__),
+ e__ZnI_H_(i__),v_SrI_H_(i__),e__SrI_H_(i__),v_YII_H_(i__),
+ e__YII_H_(i__),v_ZrII_H_(i__),e__ZrII_H_(i__),v_BaII_H_(i__),
+ e__BaII_H_(i__),v_CeII_H_(i__),e__CeII_H_(i__),v_NdII_H_(i__),
+ e__NdII_H_(i__)
if(ar__1(244:249) .EQ. '') v_SrI_H_(i__) = rNULL__
if(ar__1(252:256) .EQ. '') e__SrI_H_(i__) = rNULL__
if(ar__1(297:302) .EQ. '') v_CeII_H_(i__) = rNULL__
if(ar__1(305:309) .EQ. '') e__CeII_H_(i__) = rNULL__
if(ar__1(311:316) .EQ. '') v_NdII_H_(i__) = rNULL__
if(ar__1(319:323) .EQ. '') e__NdII_H_(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ Star_1(i__),v_CI_H_(i__),e__CI_H_(i__),v_OI_H_(i__),
+ e__OI_H_(i__),v_NaI_H_(i__),e__NaI_H_(i__),v_MgI_H_(i__),
+ e__MgI_H_(i__),v_AlI_H_(i__),e__AlI_H_(i__),v_SiI_H_(i__),
+ e__SiI_H_(i__),v_SI_H_(i__),e__SI_H_(i__),v_CaI_H_(i__),
+ e__CaI_H_(i__),v_ScII_H_(i__),e__ScII_H_(i__),v_Ti_H_(i__),
+ e__Ti_H_(i__),v_VI_H_(i__),e__VI_H_(i__),v_CrI_H_(i__),
+ e__CrI_H_(i__),v_MnI_H_(i__),e__MnI_H_(i__),v_FeI_H_(i__),
+ e__FeI_H_(i__),v_CoI_H_(i__),e__CoI_H_(i__),v_NiI_H_(i__),
+ e__NiI_H_(i__),v_CuI_H_(i__),e__CuI_H_(i__),v_ZnI_H_(i__),
+ e__ZnI_H_(i__),v_SrI_H_(i__),e__SrI_H_(i__),v_YII_H_(i__),
+ e__YII_H_(i__),v_ZrII_H_(i__),e__ZrII_H_(i__),v_BaII_H_(i__),
+ e__BaII_H_(i__),v_CeII_H_(i__),e__CeII_H_(i__),v_NdII_H_(i__),
+ e__NdII_H_(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end