Conversion of standardized ReadMe file for
file /./ftp/cats/J/other/AstBu/72.51 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-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/other/AstBu/72.51 LAMOST stars radii, masses, luminosities (Sichevskij, 2017) *================================================================================ *Estimates of the radii, masses, and luminosities of LAMOST stars. * Sichevskij S.G. * <Astrophys. Bull., 72, 51-57 (2017)> * =2017AstBu..72...51S (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Estimates of the radii, masses, and luminosities for A, FGK-type stars from the LAMOST DR2 catalog integer*4 nr__ parameter (nr__=700480) ! Number of records character*166 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 specId (nr__) ! LAMOST unique Spectra ID character*19 Target (nr__) ! Target Designation (JHHMMSS.ss+DDMMSS.s) real*8 RAdeg (nr__) ! (deg) Right Ascension (J2000) real*8 DEdeg (nr__) ! (deg) Declination (J2000) integer*4 Teff (nr__) ! (K) Effective temperature (1) integer*4 e_Teff (nr__) ! (K) Uncertainty of Effective temperature real*4 logg (nr__) ! ([cm/s2]) Surface gravity (1) real*4 e_logg (nr__) ! ([cm/s2]) Uncertainty of Surface gravity real*4 v_Fe_H_ (nr__) ! ([-]) Metallicity (1) real*4 e__Fe_H_ (nr__) ! ([-]) Uncertainty of Metallicity integer*4 Teffu (nr__) ! (K) Uncorrected Effective temperature (2) real*4 loggu (nr__) ! ([cm/s2]) Uncorrected Surface gravity (2) real*4 v_Fe_H_u (nr__) ! ([-]) Uncorrected Metallicity (2) real*4 Rad (nr__) ! (Rsun) Radius real*4 RadQ1 (nr__) ! (Rsun) Lower limit of Radius real*4 RadQ3 (nr__) ! (Rsun) Upper limit of Radius real*4 Mass (nr__) ! (Msun) Mass real*4 MassQ1 (nr__) ! (Msun) Lower limit of Mass real*4 MassQ3 (nr__) ! (Msun) Upper limit of Mass real*4 Lum (nr__) ! ([Lsun]) Luminosity real*4 LumQ1 (nr__) ! ([Lsun]) Lower limit of Luminosity real*4 LumQ3 (nr__) ! ([Lsun]) Upper limit of Luminosity real*4 Kd (nr__) ! [0/1] Confidence coefficient (3) *Note (1): The atmospheric characteristics of a star (temperature, surface * gravity, and metallicity) were corrected with account for the empirical * dependences obtained by the authors of the paper (Wang et al., * 2016AJ....152....6W, Cat. J/AJ/152/6) *Note (2): The atmospheric characteristics of a star (temperature, surface * gravity, and metallicity) from LAMOST DR2 catalogs (Luo et al., 2016, * Cat. V/149) *Note (3): Confidence coefficient (Kd) allows us to characterize the * quality of the interval estimates: the closer Kd is to one, the greater * the confidence in the interval estimate. For example, Kd=0.5 means * that only 50% of the atmospheric properties of the star, generated to * compute the interval estimate, fall into the range of evolutionary * estimates, and in the case of Kd=1.0, 100% will be within the mentioned * range. C============================================================================= C Loading file 'table1.dat' ! Estimates of the radii, masses, and luminosities * for A, FGK-type stars from the LAMOST DR2 catalog C Format for file interpretation 1 format( + I9,1X,A19,1X,F14.10,1X,F13.10,1X,I4,1X,I3,1X,F5.3,1X,F5.3,1X, + F6.3,1X,F5.3,1X,I4,1X,F5.3,1X,F6.3,1X,F5.2,1X,F5.2,1X,F5.2,1X, + F4.2,1X,F4.2,1X,F4.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,700480 read(1,'(A166)')ar__ read(ar__,1) + specId(i__),Target(i__),RAdeg(i__),DEdeg(i__),Teff(i__), + e_Teff(i__),logg(i__),e_logg(i__),v_Fe_H_(i__),e__Fe_H_(i__), + Teffu(i__),loggu(i__),v_Fe_H_u(i__),Rad(i__),RadQ1(i__), + RadQ3(i__),Mass(i__),MassQ1(i__),MassQ3(i__),Lum(i__), + LumQ1(i__),LumQ3(i__),Kd(i__) c ..............Just test output........... write(6,1) + specId(i__),Target(i__),RAdeg(i__),DEdeg(i__),Teff(i__), + e_Teff(i__),logg(i__),e_logg(i__),v_Fe_H_(i__),e__Fe_H_(i__), + Teffu(i__),loggu(i__),v_Fe_H_u(i__),Rad(i__),RadQ1(i__), + RadQ3(i__),Mass(i__),MassQ1(i__),MassQ3(i__),Lum(i__), + LumQ1(i__),LumQ3(i__),Kd(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end