Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/677/A162 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 2026-Oct-05
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/677/A162 Pleiades bonafide single stars (Brandner+, 2023)
*================================================================================
*Benchmarking Gaia DR3 APSIS with the Hyades and Pleiades open clusters.
* Brandner W., Calissendorff P., Kopytova T.
* <Astron. Astrophys. 677, A162 (2023)>
* =2023A&A...677A.162B (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Astrophysical parameters of bona fide single
stars in the Pleiades open cluster
integer*4 nr__
parameter (nr__=910) ! Number of records
character*183 ar__ ! Full-size record
C Position composed of: RAdeg DEdeg (Epoch=2016.0)
integer*8 GaiaDR3 (nr__) ! Gaia DR3 source_id (1)
real*8 RAdeg (nr__) ! (deg) Barycentric right ascension (ICRS)
* at Ep=2016.0 (1)
real*8 DEdeg (nr__) ! (deg) Barycentric declination (ICRS)
* at Ep=2016.0 (1)
real*8 dpgeo (nr__) ! (pc) Median photogeometric distance posterior (2)
real*8 b_dpgeo (nr__) ! (pc) 16th quantile photogeometric distance
* posterior (2)
real*8 B_dpgeo_1 (nr__) ! (pc) 84th quantile photogeometric distance
* posterior (2)
real*8 Gmag (nr__) ! (mag) Gaia G magnitude (1)
real*4 e_Gmag (nr__) ! (mag) Gaia G magnitude uncertainty (1)
real*8 BPmag (nr__) ! (mag) Gaia BP magnitude (1)
real*4 e_BPmag (nr__) ! (mag) Gaia BP magnitude uncertainty (1)
real*8 RPmag (nr__) ! (mag) Gaia RP magnitude (1)
real*4 e_RPmag (nr__) ! (mag) Gaia RP magnitude uncertainty (1)
real*4 Mass (nr__) ! (Msun) Mass (3)
real*4 e_Mass (nr__) ! (Msun) Mass uncertainty (3)
real*4 logT (nr__) ! ([K]) log Effective temperature (3)
real*4 e_logT (nr__) ! ([K]) log Effective temperature uncertainty (3)
real*8 logL (nr__) ! ([Lsun]) log Luminosity (3)
real*4 e_logL (nr__) ! ([Lsun]) log Luminosity uncertainty (3)
real*4 logg (nr__) ! ([cm/s2]) Surface gravity (3)
real*4 e_logg (nr__) ! ([cm/s2]) Surface gravity uncertainty (3)
*Note (1): according to Gaia DR3, Cat. I/355.
*Note (2): photo-geometric distance posteriors are according to
* Bailer-jones et al., 2021AJ....161..147B, Cat. I/352.
*Note (3): stellar astrophysical parameters are based on PARSEC 1.2S for
* logAge[yr]=8.10+/-0.07, [M/H]=+0.13+/-0.03, Av=0.12mag
C=============================================================================
C Loading file 'table2.dat' ! Astrophysical parameters of bona fide single
* stars in the Pleiades open cluster
C Format for file interpretation
1 format(
+ 3X,I19,1X,F10.6,1X,F10.6,1X,F7.3,1X,F7.3,1X,F7.3,2X,F7.4,2X,
+ F6.4,2X,F7.4,2X,F6.4,2X,F7.4,2X,F6.4,2X,F6.4,2X,F6.4,2X,F6.4,
+ 2X,F6.4,1X,F7.4,2X,F6.4,2X,F6.4,2X,F6.4)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,910
read(1,'(A183)')ar__
read(ar__,1)
+ GaiaDR3(i__),RAdeg(i__),DEdeg(i__),dpgeo(i__),b_dpgeo(i__),
+ B_dpgeo_1(i__),Gmag(i__),e_Gmag(i__),BPmag(i__),e_BPmag(i__),
+ RPmag(i__),e_RPmag(i__),Mass(i__),e_Mass(i__),logT(i__),
+ e_logT(i__),logL(i__),e_logL(i__),logg(i__),e_logg(i__)
c ..............Just test output...........
write(6,1)
+ GaiaDR3(i__),RAdeg(i__),DEdeg(i__),dpgeo(i__),b_dpgeo(i__),
+ B_dpgeo_1(i__),Gmag(i__),e_Gmag(i__),BPmag(i__),e_BPmag(i__),
+ RPmag(i__),e_RPmag(i__),Mass(i__),e_Mass(i__),logT(i__),
+ e_logT(i__),logL(i__),e_logL(i__),logg(i__),e_logg(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end