Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/523/A71 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 2024-Apr-16
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/523/A71 A and F stars abundances in the Hyades (Gebran+, 2010)
*================================================================================
*Chemical composition of A and F dwarfs members of the Hyades open cluster.
* Gebran M., Vick M., Monier R., Fossati L.
* <Astron. Astrophys. 523, A71 (2010)>
* =2010A&A...523A..71G
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! Abundances relative to hydrogen and to the solar
value, for 16 A stars and Procyon
integer*4 nr__
parameter (nr__=17) ! Number of records
character*179 ar__ ! Full-size record
character*7 Name (nr__) ! HD number or name of the A star
character*6 SpType (nr__) ! Spectral type of the A star
real*4 CI (nr__) ! ([Sun]) Abundance of the element in dex for CI
real*4 e_C (nr__) ! ([Sun]) Uncertainty on the C abundance in dex
real*4 OI (nr__) ! ([Sun]) Abundance of the element in dex for OI
real*4 e_O (nr__) ! ([Sun]) Uncertainty on the O abundance in dex
real*4 NaI (nr__) ! ([Sun]) Abundance of the element in dex for NaI
real*4 e_Na (nr__) ! ([Sun]) Uncertainty on the Na abundance in dex
real*4 MgII (nr__) ! ([Sun]) Abundance of the element in dex for MgII
real*4 e_Mg (nr__) ! ([Sun]) Uncertainty on the Mg abundance in dex
real*4 SiII (nr__) ! ([Sun]) Abundance of the element in dex for SiII
real*4 e_Si (nr__) ! ([Sun]) Uncertainty on the Si abundance in dex
real*4 CaII (nr__) ! ([Sun]) Abundance of the element in dex for CaII
real*4 e_Ca (nr__) ! ([Sun]) Uncertainty on the Ca abundance in dex
real*4 ScII (nr__) ! ([Sun]) Abundance of the element in dex for ScII
real*4 e_Sc (nr__) ! ([Sun]) Uncertainty on the Sc abundance in dex
real*4 TiII (nr__) ! ([Sun]) Abundance of the element in dex for TiII
real*4 e_Ti (nr__) ! ([Sun]) Uncertainty on the TI abundance in dex
real*4 CrII (nr__) ! ([Sun]) Abundance of the element in dex for CrII
real*4 e_Cr (nr__) ! ([Sun]) Uncertainty on the Cr abundance in dex
real*4 MnI (nr__) ! ([Sun]) Abundance of the element in dex for MnI
real*4 e_Mn (nr__) ! ([Sun]) Uncertainty on the Mn abundance in dex
real*4 FeII (nr__) ! ([Sun]) Abundance of the element in dex for FeII
real*4 e_Fe (nr__) ! ([Sun]) Uncertainty on the Fe abundance in dex
real*4 NiI (nr__) ! ([Sun]) Abundance of the element in dex for NiI
real*4 e_Ni (nr__) ! ([Sun]) Uncertainty on the Ni abundance in dex
real*4 SrII (nr__) ! ([Sun]) Abundance of the element in dex for SrII
real*4 e_Sr (nr__) ! ([Sun]) Uncertainty on the Sr abundance in dex
real*4 YII (nr__) ! ([Sun]) Abundance of the element in dex for YII
real*4 e_Y (nr__) ! ([Sun]) Uncertainty on the Y abundance in dex
real*4 ZrII (nr__) ! ([Sun]) Abundance of the element in dex for ZrII
real*4 e_Zr (nr__) ! ([Sun]) Uncertainty on the Zr abundance in dex
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Abundances relative to hydrogen and to the solar
value, for 28 F stars
integer*4 nr__1
parameter (nr__1=28) ! Number of records
character*123 ar__1 ! Full-size record
character*7 Name_1 (nr__1) ! HD number of the F star
character*6 SpType_1 (nr__1) ! Spectral type of the F star
real*4 CI_1 (nr__1) ! ([Sun]) ? Abundance of the element in dex for CI
real*4 e_C_1 (nr__1) ! ([Sun]) ? Uncertainty on the C abundance in dex
real*4 OI_1 (nr__1) ! ([Sun]) Abundance of the element in dex for OI
real*4 e_O_1 (nr__1) ! ([Sun]) Uncertainty on the O abundance in dex
real*4 NaI_1 (nr__1) ! ([Sun]) ? Abundance of the element in dex for NaI
real*4 e_Na_1 (nr__1) ! ([Sun]) ? Uncertainty on the Na abundance in dex
real*4 MgI (nr__1) ! ([Sun]) ? Abundance of the element in dex for MgI
real*4 e_Mg_1 (nr__1) ! ([Sun]) ? Uncertainty on the Mg abundance in dex
real*4 SiII_1 (nr__1) ! ([Sun]) ? Abundance of the element in dex for SiII
real*4 e_Si_1 (nr__1) ! ([Sun]) ? Uncertainty on the Si abundance in dex
real*4 CaII_1 (nr__1) ! ([Sun]) ? Abundance of the element in dex for CaII
real*4 e_Ca_1 (nr__1) ! ([Sun]) ? Uncertainty on the Ca abundance in dex
real*4 ScII_1 (nr__1) ! ([Sun]) ? Abundance of the element in dex for ScII
real*4 e_Sc_1 (nr__1) ! ([Sun]) ? Uncertainty on the Sc abundance in dex
real*4 FeI (nr__1) ! ([Sun]) Abundance of the element in dex for FeI
real*4 e_Fe_1 (nr__1) ! ([Sun]) Uncertainty on the Fe abundance in dex
real*4 NiI_1 (nr__1) ! ([Sun]) Abundance of the element in dex for NiI
real*4 e_Ni_1 (nr__1) ! ([Sun]) Uncertainty on the Ni abundance in dex
real*4 YII_1 (nr__1) ! ([Sun]) ? Abundance of the element in dex for YII
real*4 e_Y_1 (nr__1) ! ([Sun]) ? Uncertainty on the Y abundance in dex
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7.dat' ! Absolute parameters for the observed stars
integer*4 nr__2
parameter (nr__2=44) ! Number of records
character*49 ar__2 ! Full-size record
character*7 Name_2 (nr__2) ! HD number or name of the star
real*4 Lum (nr__2) ! (solLum) Luminosity of the star in solar value
real*4 e_Lum (nr__2) ! (solLum) Uncertainty on the luminosity
real*4 logTe (nr__2) ! ([K]) Logarithmic of the effective temperature
real*4 e_logTe (nr__2) ! ([K]) Uncertainty on the temperature
real*4 Mass (nr__2) ! (solMass) Mass of the star in solar value
real*4 e_Mass (nr__2) ! (solMass) Uncertainty on the Mass of the star
real*4 fAge (nr__2) ! Fractional age of the star (fraction of time
* spent on the Main Sequence)
real*4 e_fAge (nr__2) ! Uncertainty on the Fractional age of the star
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table8.dat' ! Elemental abundances for each chemical element
for A and F stars
integer*4 nr__3
parameter (nr__3=1561) ! Number of records
character*31 ar__3 ! Full-size record
character*7 Name_3 (nr__3) ! HD number or name of the star
character*2 El (nr__3) ! Element
real*8 lambda (nr__3) ! (0.1nm) Wavelength of the analyzed element
integer*4 lambda2 (nr__3) ! (0.1nm) ? Second wavelength value when interval
real*4 logsEl (nr__3) ! ([-]) Absolute abundance of the element in the star
* (log(X/H)+12)
C=============================================================================
C Loading file 'table5.dat' ! Abundances relative to hydrogen and to the solar
* value, for 16 A stars and Procyon
C Format for file interpretation
1 format(
+ A7,1X,A6,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,
+ F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,
+ 1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,
+ F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,
+ 1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,17
read(1,'(A179)')ar__
read(ar__,1)
+ Name(i__),SpType(i__),CI(i__),e_C(i__),OI(i__),e_O(i__),
+ NaI(i__),e_Na(i__),MgII(i__),e_Mg(i__),SiII(i__),e_Si(i__),
+ CaII(i__),e_Ca(i__),ScII(i__),e_Sc(i__),TiII(i__),e_Ti(i__),
+ CrII(i__),e_Cr(i__),MnI(i__),e_Mn(i__),FeII(i__),e_Fe(i__),
+ NiI(i__),e_Ni(i__),SrII(i__),e_Sr(i__),YII(i__),e_Y(i__),
+ ZrII(i__),e_Zr(i__)
c ..............Just test output...........
write(6,1)
+ Name(i__),SpType(i__),CI(i__),e_C(i__),OI(i__),e_O(i__),
+ NaI(i__),e_Na(i__),MgII(i__),e_Mg(i__),SiII(i__),e_Si(i__),
+ CaII(i__),e_Ca(i__),ScII(i__),e_Sc(i__),TiII(i__),e_Ti(i__),
+ CrII(i__),e_Cr(i__),MnI(i__),e_Mn(i__),FeII(i__),e_Fe(i__),
+ NiI(i__),e_Ni(i__),SrII(i__),e_Sr(i__),YII(i__),e_Y(i__),
+ ZrII(i__),e_Zr(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! Abundances relative to hydrogen and to the solar
* value, for 28 F stars
C Format for file interpretation
2 format(
+ A7,1X,A6,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,
+ 1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,
+ F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,28
read(1,'(A123)')ar__1
read(ar__1,2)
+ Name_1(i__),SpType_1(i__),CI_1(i__),e_C_1(i__),OI_1(i__),
+ e_O_1(i__),NaI_1(i__),e_Na_1(i__),MgI(i__),e_Mg_1(i__),
+ SiII_1(i__),e_Si_1(i__),CaII_1(i__),e_Ca_1(i__),ScII_1(i__),
+ e_Sc_1(i__),FeI(i__),e_Fe_1(i__),NiI_1(i__),e_Ni_1(i__),
+ YII_1(i__),e_Y_1(i__)
if(ar__1(15:19) .EQ. '') CI_1(i__) = rNULL__
if(ar__1(21:24) .EQ. '') e_C_1(i__) = rNULL__
if(ar__1(37:41) .EQ. '') NaI_1(i__) = rNULL__
if(ar__1(43:46) .EQ. '') e_Na_1(i__) = rNULL__
if(ar__1(48:52) .EQ. '') MgI(i__) = rNULL__
if(ar__1(54:57) .EQ. '') e_Mg_1(i__) = rNULL__
if(ar__1(59:63) .EQ. '') SiII_1(i__) = rNULL__
if(ar__1(65:68) .EQ. '') e_Si_1(i__) = rNULL__
if(ar__1(70:74) .EQ. '') CaII_1(i__) = rNULL__
if(ar__1(76:79) .EQ. '') e_Ca_1(i__) = rNULL__
if(ar__1(81:85) .EQ. '') ScII_1(i__) = rNULL__
if(ar__1(87:90) .EQ. '') e_Sc_1(i__) = rNULL__
if(ar__1(114:118) .EQ. '') YII_1(i__) = rNULL__
if(ar__1(120:123) .EQ. '') e_Y_1(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ Name_1(i__),SpType_1(i__),CI_1(i__),e_C_1(i__),OI_1(i__),
+ e_O_1(i__),NaI_1(i__),e_Na_1(i__),MgI(i__),e_Mg_1(i__),
+ SiII_1(i__),e_Si_1(i__),CaII_1(i__),e_Ca_1(i__),ScII_1(i__),
+ e_Sc_1(i__),FeI(i__),e_Fe_1(i__),NiI_1(i__),e_Ni_1(i__),
+ YII_1(i__),e_Y_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7.dat' ! Absolute parameters for the observed stars
C Format for file interpretation
3 format(
+ A7,1X,F4.2,1X,F4.2,1X,F5.3,1X,F5.3,1X,F4.2,1X,F4.2,1X,F4.2,1X,
+ F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table7.dat')
write(6,*) '....Loading file: table7.dat'
do i__=1,44
read(1,'(A49)')ar__2
read(ar__2,3)
+ Name_2(i__),Lum(i__),e_Lum(i__),logTe(i__),e_logTe(i__),
+ Mass(i__),e_Mass(i__),fAge(i__),e_fAge(i__)
c ..............Just test output...........
write(6,3)
+ Name_2(i__),Lum(i__),e_Lum(i__),logTe(i__),e_logTe(i__),
+ Mass(i__),e_Mass(i__),fAge(i__),e_fAge(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table8.dat' ! Elemental abundances for each chemical element
* for A and F stars
C Format for file interpretation
4 format(A7,1X,A2,1X,F8.3,1X,I4,2X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table8.dat')
write(6,*) '....Loading file: table8.dat'
do i__=1,1561
read(1,'(A31)')ar__3
read(ar__3,4)
+ Name_3(i__),El(i__),lambda(i__),lambda2(i__),logsEl(i__)
if(ar__3(21:24) .EQ. '') lambda2(i__) = iNULL__
c ..............Just test output...........
write(6,4)
+ Name_3(i__),El(i__),lambda(i__),lambda2(i__),logsEl(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end