Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/164/88 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-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/AJ/164/88 THYME. VIII. MELANGE-3 candidate members (Barber+, 2022)
*================================================================================
*Transit Hunt for Young and Maturing Exoplanets (THYME).
*VIII. A Pleiades-age Association Harboring Two Transiting Planetary Systems from
*Kepler.
* Barber M.G., Mann A.W., Bush J.L., Tofflemire B.M., Kraus A.L.,
* Krolikowski D.M., Vanderburg A., Fields M.J., Newton E.R., Owens D.A.,
* Thao Pa C.
* <Astron. J., 164, 88 (2022)>
* =2022AJ....164...88B
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! Candidate members of MELANGE-3
integer*4 nr__
parameter (nr__=1006) ! Number of records
character*120 ar__ ! Full-size record
C J2016 position composed of: RAdeg DEdeg
integer*8 Gaia (nr__) ! Gaia EDR3 identifier
real*8 RAdeg (nr__) ! (deg) [279/302] Right Ascension (J2016)
real*8 DEdeg (nr__) ! (deg) [30/47] Declination (J2016)
real*4 Gmag (nr__) ! (mag) [7.67/20.4] Gaia EDR3 G band magnitude
real*4 Voff (nr__) ! (km/s) [0/5] Tangential velocity offset
character*4 SpType (nr__) ! Spectral type (1)
character*1 TESS_ (nr__) ! Has TESS light curve? (2)
character*1 Kepler_ (nr__) ! Has Kepler light curve? (2)
real*4 plx (nr__) ! (mas) [2.66/3.61] Parallax
real*4 e_plx (nr__) ! (mas) [0.009/0.5] Uncertainty in plx
real*4 Prot (nr__) ! (d) [0.16/44.5]? Rotational period
real*4 e_Prot (nr__) ! (d) [0.003/6]? Uncertainty in Prot
character*7 r_Prot (nr__) ! Reference flag on Prot (3)
character*1 l_Li (nr__) ! [<] Limit flag on Li
real*4 Li (nr__) ! (10-13m) [20/206]? LiI 6708{AA} equivalent width (mA)
real*4 e_Li (nr__) ! (10-13m) [9/21]? Uncertainty in mA
real*4 RVel (nr__) ! (km/s) [-71.7/18.4]? Radial velocity
real*4 e_RVel (nr__) ! (km/s) [0.02/18]? Uncertainty in RVel
integer*4 r_RVel (nr__) ! [5/9]? Reference flag on RVel (4)
*Note (1): Assigned based on the star's B_P_-R_P_ color and the table from
* Pecaut & Mamajek, 2013, J/ApJS/208/9.
*Note (2): Of sufficient quality for running the Notch transit-search pipeline.
*Note (3): References as follows:
* 1 = McQuillan+, 2013, J/MNRAS/432/1203 and 2014, J/ApJS/211/24M
* 2 = Nielsen+, 2013, J/A+A/557/L10
* 3 = Santos+, 2021, J/ApJS/255/17 and 2019, J/ApJS/244/21
* 4 = This work.
*Note (4): References as follows:
* 5 = Coude
* 6 = LAMOSTDR5
* 7 = Gaia DR2
* 8 = APOGEE DR16
* 9 = CKS
C=============================================================================
C Loading file 'table5.dat' ! Candidate members of MELANGE-3
C Format for file interpretation
1 format(
+ I19,1X,F9.5,1X,F8.5,1X,F6.3,1X,F5.3,1X,A4,1X,A1,1X,A1,1X,F5.3,
+ 1X,F5.3,1X,F6.3,1X,F5.3,1X,A7,1X,A1,F5.1,1X,F4.1,1X,F6.2,1X,
+ F5.2,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,1006
read(1,'(A120)')ar__
read(ar__,1)
+ Gaia(i__),RAdeg(i__),DEdeg(i__),Gmag(i__),Voff(i__),
+ SpType(i__),TESS_(i__),Kepler_(i__),plx(i__),e_plx(i__),
+ Prot(i__),e_Prot(i__),r_Prot(i__),l_Li(i__),Li(i__),e_Li(i__),
+ RVel(i__),e_RVel(i__),r_RVel(i__)
if(ar__(74:79) .EQ. '') Prot(i__) = rNULL__
if(ar__(81:85) .EQ. '') e_Prot(i__) = rNULL__
if(ar__(96:100) .EQ. '') Li(i__) = rNULL__
if(ar__(102:105) .EQ. '') e_Li(i__) = rNULL__
if(ar__(107:112) .EQ. '') RVel(i__) = rNULL__
if(ar__(114:118) .EQ. '') e_RVel(i__) = rNULL__
if(ar__(120:120) .EQ. '') r_RVel(i__) = iNULL__
c ..............Just test output...........
write(6,1)
+ Gaia(i__),RAdeg(i__),DEdeg(i__),Gmag(i__),Voff(i__),
+ SpType(i__),TESS_(i__),Kepler_(i__),plx(i__),e_plx(i__),
+ Prot(i__),e_Prot(i__),r_Prot(i__),l_Li(i__),Li(i__),e_Li(i__),
+ RVel(i__),e_RVel(i__),r_RVel(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end