Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/589/A115 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-18 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/589/A115 Na and Al abundances of 1303 stars (Smiljanic+, 2016) *================================================================================ *The Gaia-ESO Survey: Sodium and aluminium abundances in giants and dwarfs - *Implications for stellar and Galactic chemical evolution. * Smiljanic R., Romano D., Bragaglia A., Donati P., Magrini L., Friel E., * Jacobson H., Randich S., Ventura P., Lind K., Bergemann M., Nordlander T., * Morel T., Pancino E., Tautvaisiene G., Adibekyan V., Tosi M., Vallenari A., * Gilmore G., Bensby T., Francois P., Koposov S., Lanzafame A. C., * Recio-Blanco A., Bayo A., Carraro G., Casey A. R., Costado M. T., * Franciosini E., Heiter U., Hill V., Hourihane A., Jofre P., Lardo C., * de Laverny P., Lewis J., Monaco L., Morbidelli L., Sacco G. G., * Sbordone L., Sousa S. G., Worley C. C., Zaggia S. * <Astron. Astrophys. 589, A115 (2016)> * =2016A&A...589A.115S (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Atmospheric parameters and abundances integer*4 nr__ parameter (nr__=1303) ! Number of records character*133 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg character*16 GES_ID ! Gaia-ESO identification index character*11 Field ! *Field where the star was observed real*8 RAdeg ! (deg) ? Right ascension (J2000) real*8 DEdeg ! (deg) ? Declination (J2000) integer*4 Teff ! (K) Effective temperature integer*4 s_Teff ! (K) Dispersion of multiple Teff measurements integer*4 o_Teff ! Number of different pipelines providing * Teff measurements real*4 logg ! ([cm/s2]) Logarithm of the surface gravity real*4 s_logg ! ([cm/s2]) Dispersion of multiple logg measurements integer*4 o_logg ! Number of different pipelines providing * logg measurements real*4 v_Fe_H_ ! ([Sun]) *Metallicity real*4 s__Fe_H_ ! ([Sun]) Dispersion of multiple [Fe/H] measurements integer*4 o__Fe_H_ ! Number of different pipelines providing * [Fe/H] measurements real*4 Xi ! (km/s) ? Microturbulence velocity real*4 s_Xi ! (km/s) ? Dispersion of multiple Xi measurements integer*4 o_Xi ! ? Number of different pipelines providing * Xi measurements real*4 A_Na ! ([-]) *? Abundance of Na in LTE real*4 s_A_Na ! ([-]) ? Dispersion of multiple A(Na) measurements integer*4 o_A_Na ! ? Number of different pipelines providing * A(Na) measurements real*4 A_Na_NLTE ! ([-]) *? Abundance of Na in non-LTE real*4 A_Al ! ([-]) *? Abundance of Al in LTE real*4 s_A_Al ! ([-]) ? Dispersion of multiple A(Al) measurements integer*4 o_A_Al ! ? Number of different pipelines providing * A(Al) measurements *Note on Field: * One of the following possibilities: * The name of the open cluster in which field the star was observed * A name of the star, in case of a bright star observed for calibration * purposes * GES MW, indicating that the star is part of one of the Gaia-ESO Milky Way * fields (solar neighbourhood, Bulge line of sight, or CoRoT fields). *Note on [Fe/H]: * For the solar reference iron abundance, the value A(Fe) = 7.45 from * Grevesse et al. (2007SSRv..130..105G) is adopted. *Note on A(Na), A(Al), and A(Na)NLTE: * The logarithmic abundance by number on a scale where the number of hydrogen * atoms is 10+12. C============================================================================= C Loading file 'table1.dat' ! Atmospheric parameters and abundances C Format for file interpretation 1 format( + A16,1X,A11,1X,F10.6,1X,F10.6,1X,I4,1X,I3,1X,I2,1X,F4.2,1X, + F4.2,1X,I2,1X,F5.2,1X,F4.2,1X,I2,1X,F4.2,1X,F4.2,1X,I2,1X, + F4.2,1X,F4.2,1X,I2,1X,F4.2,1X,F4.2,1X,F4.2,1X,I2) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,1303 read(1,'(A133)')ar__ read(ar__,1) + GES_ID,Field,RAdeg,DEdeg,Teff,s_Teff,o_Teff,logg,s_logg, + o_logg,v_Fe_H_,s__Fe_H_,o__Fe_H_,Xi,s_Xi,o_Xi,A_Na,s_A_Na, + o_A_Na,A_Na_NLTE,A_Al,s_A_Al,o_A_Al if(ar__(30:39) .EQ. '') RAdeg = rNULL__ if(ar__(41:50) .EQ. '') DEdeg = rNULL__ if(ar__(91:94) .EQ. '') Xi = rNULL__ if(ar__(96:99) .EQ. '') s_Xi = rNULL__ if(ar__(101:102) .EQ. '') o_Xi = iNULL__ if(ar__(104:107) .EQ. '') A_Na = rNULL__ if(ar__(109:112) .EQ. '') s_A_Na = rNULL__ if(ar__(114:115) .EQ. '') o_A_Na = iNULL__ if(ar__(117:120) .EQ. '') A_Na_NLTE = rNULL__ if(ar__(122:125) .EQ. '') A_Al = rNULL__ if(ar__(127:130) .EQ. '') s_A_Al = rNULL__ if(ar__(132:133) .EQ. '') o_A_Al = iNULL__ c ..............Just test output........... write(6,1) + GES_ID,Field,RAdeg,DEdeg,Teff,s_Teff,o_Teff,logg,s_logg, + o_logg,v_Fe_H_,s__Fe_H_,o__Fe_H_,Xi,s_Xi,o_Xi,A_Na,s_A_Na, + o_A_Na,A_Na_NLTE,A_Al,s_A_Al,o_A_Al c .......End.of.Just test output........... end do close(1) C============================================================================= stop end