Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/153/117 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-Apr-19
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/153/117 KOIs companions from high-resolution imaging (Hirsch+, 2017)
*================================================================================
*Assessing the effect of stellar companions from high-resolution imaging of
*Kepler Objects of Interest.
* Hirsch L.A., Ciardi D.R., Howard A.W., Everett M.E., Furlan E., Saylors M.,
* Horch E.P., Howell S.B., Teske J., Marcy G.W.
* <Astron. J., 153, 117-117 (2017)>
* =2017AJ....153..117H (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Observed companions of the KOI host sample
integer*4 nr__
parameter (nr__=176) ! Number of records
character*79 ar__ ! Full-size record
integer*4 KOI ! Kepler Object of Interest (KOI) number (1)
character*1 m_KOI ! [BC] Companion identifier (B or C) (1)
real*4 Sep ! (arcsec) [0.04/2] Separation (companion relative to
* primary) (1)
real*4 e_Sep ! (arcsec) [0.05/0.15] Uncertainty in Sep (1)
real*4 PA ! (deg) [1.7/357.8] Position angle (companion relative
* to primary), from North through East (1)
real*4 e_PA ! (deg) [1/5.16] Uncertainty in PA (1)
real*4 Dmag ! (mag) [-0.3/6.9]? Magnitude difference, Kepler band
* ({Delta}Kp) (2)
real*4 e_Dmag ! (mag) [0/1.31]? Uncertainty in Dmag (2)
real*4 Coff ! [0/30.1] Average color offset, in {sigma}
* unit (3)
real*4 e_Coff ! [0.07/24.2]? Uncertainty in Coff, in {sigma} (3)
real*4 Bckg ! (%) [6.54e-06/10.9]? Background probability (4)
real*4 Bound ! (%) [0.94/18.64]? System bound probability (4)
character*9 System ! System designation (either Bound, Unbound, or
* Uncertain) (3)
character*2 Note ! Notes on system (5)
*Note (1): From the imaging compilation paper of Furlan et al. 2017
* (Cat. J/AJ/153/71). It is important to note that the term "companion" is
* used here to describe any star detected angularly nearby a KOI host star.
* It is not used to imply physical association. Instead, we will refer to
* physical binary or multiple systems as "bound" companions, and unphysical,
* line-of-sight alignments as "unbound" or "background" companions.
*Note (2): The magnitude difference in the Kepler bandpass between the primary
* and companion, taken from Furlan et al. 2017 (Cat. J/AJ/153/71), submitted
* for uncertain and unbound companions, and from this paper's isochrone models
* for the bound companions.
*Note (3): The Color Offset (Coff) indicates the difference, in units of the
* model and measurement uncertainty {sigma}, between the modeled and observed
* colors of the companion. Better agreement means the companion is more
* likely to be physically bound. The error quoted for color offset is the
* standard deviation of the color offset, which describes the variation in
* the color offset among several different filter pairs. Systems with only
* a single color measurement have no reported standard deviation. Systems
* with poor agreement have higher color offset standard deviation, and are
* likely to be reclassified as "Uncertain" for the Designation.
*Note (4): Background probability and bound probability refer to the analysis
* using TRILEGAL galaxy models (Girardi et al. 2005A&A...436..895G) and
* solar neighborhood stellar multiplicity statistics (Raghavan et al. 2010,
* Cat. J/ApJS/190/1) respectively, as described in Section 3.2.
*Note (5): Notes on additional companions to individual systems, marked with
* letters, are from Appendix A.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! *Radius correction factors
integer*4 nr__1
parameter (nr__1=169) ! Number of records
character*63 ar__1 ! Full-size record
integer*4 KOI_1 ! [5/7587] Kepler Object of Interest (KOI) number
integer*4 Ncomp ! [1/4] Number of companions detected within
* 2'' (1)
real*4 Dmag2 ! (mag) [-0.21/7.25] Magnitude difference, Kepler band
* for the secondary companion ({Delta}Kp_21_)
real*4 Dmag3 ! (mag) [0.35/7.26]? Magnitude difference, Kepler band
* for the tertiary companion ({Delta}Kp_31_)
real*8 Planet ! KOI of planetary candidate or confirmed planet
real*4 Rp ! (Rgeo) [0.51/33.62] Previous best estimate of the
* planet radius (R_p_) (2)
real*4 e_Rp ! (Rgeo) [0.04/1.95]? Uncertainty in Rp (2)
character*12 r_Rp ! Literature reference for Rp (3)
real*4 XR1 ! [1/1.8] Calculated radius correction factor,
* assuming the planet orbits the primary
* (X_R1_) (4)
real*4 XR2 ! [1.2/5.1]? Calculated radius correction factor,
* assuming the planet orbits the secondary
* (X_R2_) (4)
*Note (1):
* Three target KOI hosts have more than 2 companions within 2'', which we
* include in the dilution correction analysis. These are:
* KOI-387 (dmag-kep-41=7.58mag);
* KOI-2032 (dmag-kep-41=0.32mag);
* and KOI-3049 (dmag-kep-41=7.48mag, dmag-kep-51=4.92mag).
* Only one target, KOI-652, has 2 bound companions within 2'', allowing
* calculation of X_R3_ in this system. KOI-652 has XR-3=2.657.
*Note (2): Previous best estimate of the planet radius, either from the Kepler
* pipeline for planet candidates, or from the Exoplanet Archive
* (http://exoplanetarchive.ipac.caltech.edu/index.html) where literature
* sources are given in the following column for the confirmed planets.
*Note (3): Literature sources for the confirmed planets are defined as follows:
* Morton2016 = Morton et al. 2016 (Cat. J/ApJ/822/86);
* Rowe2014 = Rowe et al. 2014 (Cat. J/ApJ/784/45);
* VanEylen2015 = Van Eylen & Albrecht (2015ApJ...808..126V);
* Xie2013a = Xie 2013 (Cat. J/ApJS/208/22);
* Xie2014 = Xie 2014 (Cat. J/ApJS/210/25).
*Note (4):
* For stellar multiple systems, the ratio of the true planet radius to the
* assumed single radius can be estimated as:
* X_R_=[R_p_(true)/R_p_(single)]=(R_t_/R_1_)[(F_tot_/F_t_)^1/2^] (1),
* where:
* R_t_ and F_t_ = Radius and Kepler bandpass flux from the transited star;
* F_tot_ = Kepler bandpass flux from all stars within the Kepler
* aperture;
* R_1_ = Radius of the assumed-single primary KOI star (Ciardi et
* al. 2015ApJ...805...16C).
* Note that Equation (1) only provides an estimate of the radius correction
* factor for a given system (see Section 5 in the paper for more details).
* Without significant observational follow-up, we cannot fully assess which
* star in a stellar multiple system is the planet host. We therefore
* calculate X_Rn_, the planet correction factor assuming the planet host star
* is the nth component of the system, for each of our bound systems. In all
* cases but one, n=1 or 2, where the planets may orbit either the primary or
* bound companion.
* An indeterminate value for X_R2_ indicates a system in which we have
* too little information to calculate the radius correction factor because
* the system is uncertain or unbound, and we have no accurate estimate of the
* companion's stellar radius.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'notes.dat' ! Notes
integer*4 nr__2
parameter (nr__2=40) ! Number of records
character*336 ar__2 ! Full-size record
character*2 Code ! Note code
character*333 Note_1 ! Notes
C=============================================================================
C Loading file 'table1.dat' ! Observed companions of the KOI host sample
C Format for file interpretation
1 format(
+ I4,1X,A1,1X,F4.2,1X,F4.2,1X,F6.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,
+ F5.2,1X,F5.2,1X,E8.2,1X,F5.2,1X,A9,1X,A2)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,176
read(1,'(A79)')ar__
read(ar__,1)
+ KOI,m_KOI,Sep,e_Sep,PA,e_PA,Dmag,e_Dmag,Coff,e_Coff,Bckg,
+ Bound,System,Note
if(ar__(30:34) .EQ. '') Dmag = rNULL__
if(ar__(36:39) .EQ. '') e_Dmag = rNULL__
if(ar__(47:51) .EQ. '') e_Coff = rNULL__
if(ar__(53:60) .EQ. '') Bckg = rNULL__
if(ar__(62:66) .EQ. '') Bound = rNULL__
c ..............Just test output...........
write(6,1)
+ KOI,m_KOI,Sep,e_Sep,PA,e_PA,Dmag,e_Dmag,Coff,e_Coff,Bckg,
+ Bound,System,Note
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! *Radius correction factors
C Format for file interpretation
2 format(
+ I4,1X,I1,1X,F5.2,1X,F4.2,1X,F7.2,1X,F6.3,1X,F5.3,1X,A12,1X,
+ F5.3,1X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,169
read(1,'(A63)')ar__1
read(ar__1,2)
+ KOI_1,Ncomp,Dmag2,Dmag3,Planet,Rp,e_Rp,r_Rp,XR1,XR2
if(ar__1(14:17) .EQ. '') Dmag3 = rNULL__
if(ar__1(34:38) .EQ. '') e_Rp = rNULL__
if(ar__1(59:63) .EQ. '') XR2 = rNULL__
c ..............Just test output...........
write(6,2)
+ KOI_1,Ncomp,Dmag2,Dmag3,Planet,Rp,e_Rp,r_Rp,XR1,XR2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'notes.dat' ! Notes
C Format for file interpretation
3 format(A2,1X,A333)
C Effective file loading
open(unit=1,status='old',file=
+'notes.dat')
write(6,*) '....Loading file: notes.dat'
do i__=1,40
read(1,'(A336)')ar__2
read(ar__2,3)Code,Note_1
c ..............Just test output...........
write(6,3)Code,Note_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end