Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/533/A141 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/533/A141 Stellar parameters for 582 HARPS FGK stars (Sousa+, 2011)
*================================================================================
*Spectroscopic stellar parameters for 582 FGK stars in the HARPS volume limited
*sample. Revising the metallicity-planet correlation.
* Sousa S.G., Santos N.C., Israelian G., Mayor M., Udry S.
* <Astron. Astrophys. 533, A141 (2011)>
* =2011A&A...533A.141S
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Stellar parameters for the metal poor sample
integer*4 nr__
parameter (nr__=582) ! Number of records
character*127 ar__ ! Full-size record
character*9 Name (nr__) ! Star's identifier
integer*4 Teff (nr__) ! (K) Effective Temperature
integer*4 e_Teff (nr__) ! (K) Error on Teff (precision error)
integer*4 E_Teff_1 (nr__) ! (K) Error on Teff (includes systematics error)
real*4 logg (nr__) ! ([cm/s2]) Surface gravity
real*4 e_logg (nr__) ! ([cm/s2]) Error on logg (precision error)
real*4 E_logg_1 (nr__) ! ([cm/s2]) Error on logg (includes systematics error)
real*4 Vtur (nr__) ! (km/s) Turbulence speed {xi}
real*4 e_Vtur (nr__) ! (km/s) Error on Vtur
real*4 v_Fe_H_ (nr__) ! Iron abundance [Fe/H]
real*4 e__Fe_H_ (nr__) ! Error on [Fe/H] (precision error)
real*4 E__Fe_H__1 (nr__) ! Error on [Fe/H] (includes systematics error)
integer*4 N1 (nr__) ! Number of FeI lines used
integer*4 N2 (nr__) ! Number of FeII lines used
real*4 M1 (nr__) ! (Msun) Estimation of the stellar mass using
* Hipparcos parallax
real*8 e_M1 (nr__) ! (Msun) Error on M1
real*4 M2 (nr__) ! (Msun) Estimation of the stellar mass using
* Padova Web interface
real*4 e_M2 (nr__) ! (Msun) Error on M2
real*4 plx (nr__) ! (mas) Hipparcos parallax
real*4 e_plx (nr__) ! (mas) Error on Hipparcos parallax
real*8 logL (nr__) ! ([Lsun]) Luminosity (log scale)
real*4 e_logL (nr__) ! ([Lsun]) Error in luminosity (in log scale)
character*3 pl_ (nr__) ! [yes/no ] "yes" or "no" for planet detected
* or not
C=============================================================================
C Loading file 'table1.dat' ! Stellar parameters for the metal poor sample
C Format for file interpretation
1 format(
+ A9,1X,I4,1X,I3,1X,I3,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,
+ 1X,F5.2,1X,F4.2,1X,F4.2,1X,I3,1X,I2,1X,F6.4,1X,F7.5,1X,F5.3,
+ 1X,F5.3,1X,F5.2,1X,F4.2,1X,F7.4,1X,F6.4,1X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,582
read(1,'(A127)')ar__
read(ar__,1)
+ Name(i__),Teff(i__),e_Teff(i__),E_Teff_1(i__),logg(i__),
+ e_logg(i__),E_logg_1(i__),Vtur(i__),e_Vtur(i__),v_Fe_H_(i__),
+ e__Fe_H_(i__),E__Fe_H__1(i__),N1(i__),N2(i__),M1(i__),
+ e_M1(i__),M2(i__),e_M2(i__),plx(i__),e_plx(i__),logL(i__),
+ e_logL(i__),pl_(i__)
c ..............Just test output...........
write(6,1)
+ Name(i__),Teff(i__),e_Teff(i__),E_Teff_1(i__),logg(i__),
+ e_logg(i__),E_logg_1(i__),Vtur(i__),e_Vtur(i__),v_Fe_H_(i__),
+ e__Fe_H_(i__),E__Fe_H__1(i__),N1(i__),N2(i__),M1(i__),
+ e_M1(i__),M2(i__),e_M2(i__),plx(i__),e_plx(i__),logL(i__),
+ e_logL(i__),pl_(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end