Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/536/A71 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-Mar-29 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/536/A71 Atmospheric parameters of nearby giant stars (Jones+, 2011) *================================================================================ *Study of the impact of the post-MS evolution of the host star on the orbits of *close-in planets. *I. Sample definition and physical properties. * Jones M.I., Jenkins J.S., Rojo P., Melo C.H.F. * <Astron. Astrophys. 536, A71 (2011)> * =2011A&A...536A..71J C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Spectroscopic atmospheric parameters for all of our targets integer*4 nr__ parameter (nr__=164) ! Number of records character*86 ar__ ! Full-size record integer*4 HIP ! The Hipparcos identification number (1) real*4 B_V ! (mag) Hipparcos B-V color index (1) real*4 Vmag ! (mag) Hipparcos apparent V magnitude (1) real*4 plx ! (mas) Hipparcos parallax (2) real*4 e_plx ! (mas) Error in parallax (2) real*4 AV ! (mag) Visual extinction (3) integer*4 Teff ! (K) Effective temperature real*4 logg ! ([cm/s2]) Spectroscopic surface gravity real*4 vt ! (km/s) Microturbulent velocity {xi} real*4 v_Fe_H_ ! ([Sun]) Iron abundance relative to the sun real*4 e__Fe_H_ ! ([Sun]) Error in [Fe/H] real*4 logL ! ([Lsun]) Logarithmic absolute luminosity real*4 Mass ! (Msun) Mass derived from spectral parameters and * evolutionary tracks (4) real*4 Rad ! (Rsun) Stellar radius (4) character*3 St ! [RGB HB] Evolutionary status (Red Giant * or Horizontal Branch star) real*4 vsini ! (km/s) Projected rotational velocity *Note (1): Hipparcos catalogue. Perryman et al. (1997A&A...323L..49P, Cat. I/239) *Note (2): Improved reduction of Hipparcos data. * van Leeuwen (2007A&A...474..653V, Cat. I/311) *Note (3): Computed from Arenou et al. (1992A&A...258..104A) 3-D extinction maps. *Note (4): Physical parameters derived comparing the position in the HR * diagram with evolutionary tracks from Salasnich et al. (2000, Cat. * J/A+A/361/1023) C============================================================================= C Loading file 'table1.dat' ! Spectroscopic atmospheric parameters for all of * our targets C Format for file interpretation 1 format( + I6,1X,F4.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.3,1X,I4,1X,F4.2,1X, + F4.2,1X,F5.2,1X,F4.2,1X,F5.3,1X,F4.2,1X,F6.3,1X,A3,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,164 read(1,'(A86)')ar__ read(ar__,1) + HIP,B_V,Vmag,plx,e_plx,AV,Teff,logg,vt,v_Fe_H_,e__Fe_H_,logL, + Mass,Rad,St,vsini c ..............Just test output........... write(6,1) + HIP,B_V,Vmag,plx,e_plx,AV,Teff,logg,vt,v_Fe_H_,e__Fe_H_,logL, + Mass,Rad,St,vsini c .......End.of.Just test output........... end do close(1) C============================================================================= stop end