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