Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/153/71 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-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/71 Kepler follow-up observation program. I. Imaging (Furlan+, 2017)
*================================================================================
*The Kepler follow-up observation program. I. A catalog of companions to Kepler
*stars from high-resolution imaging.
* Furlan E., Ciardi D.R., Everett M.E., Saylors M., Teske J.K., Horch E.P.,
* Howell S.B., van Belle G.T., Hirsch L.A., Gautier T.N., Adams E.R.,
* Barrado D., Cartier K.M.S., Dressing C.D., Dupree A.K., Gilliland R.L.,
* Lillo-Box J., Lucas P.W., Wang J.
* <Astron. J., 153, 71-71 (2017)>
* =2017AJ....153...71F (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! High-resolution imaging observations of KOI
host stars
integer*4 nr__
parameter (nr__=11) ! Number of records
character*93 ar__ ! Full-size record
character*12 Fac (nr__) ! Facility telescope
real*4 Size (nr__) ! (m) Mirror size
character*6 Tel (nr__) ! Telescope short code used in other tables (G1)
character*8 Inst (nr__) ! Instrument used (G2)
character*17 Band (nr__) ! Bands/filters of the observations
real*4 PSF (nr__) ! (arcsec) ? Typical width of the Point Spread Function (PSF)
integer*4 Nkoi (nr__) ! Number of KOI host stars observed at each facility
character*31 Ref (nr__) ! References where the data are published (1)
*Note (1): The reference codes are defined as follows:
* A12 = Adams et al. 2012 (Cat. J/AJ/144/42);
* A13 = Adams et al. (2013AJ....146....9A);
* D14 = Dressing et al. (2014AJ....148...78D);
* W15a = Wang et al. (2015ApJ...806..248W);
* W15b = Wang et al. (2015ApJ...813..130W);
* G15 = Gilliland et al. (2015AJ....149...24G);
* C15 = Cartier et al. (2015ApJ...804...97C);
* H12 = Horch et al. (2012AJ....144..165H);
* H14 = Horch et al (2014ApJ...795...60H);
* E15 = Everett et al. (2015AJ....149...55E);
* H11 = Howell et al. 2011 (Cat. J/AJ/142/19);
* L14 = Law et al. 2014 (Cat. J/ApJ/791/35);
* B16 = Baranec et al. 2016 (Cat. J/AJ/152/18);
* Z16 = Ziegler et al. (2016arXiv160503584Z);
* LB12 = Lillo-Box et al. 2012 (Cat. J/A+A/546/A10);
* LB14 = Lillo-Box et al. 2014 (Cat. J/A+A/566/A103);
* K16 = Kraus et al. 2016 (Cat. J/AJ/152/8).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Summary of KOI host stars observed with
high-resolution imaging techniques
integer*4 nr__1
parameter (nr__1=3557) ! Number of records
character*104 ar__1 ! Full-size record
integer*4 KOI (nr__1) ! [1/7591] Kepler Object of Interest number of
* the star
integer*4 KIC (nr__1) ! [757450/12885212] Kepler Input Catalog
* identifier of the star
integer*4 Ncp (nr__1) ! [0/6] Number of confirmed planets
integer*4 Npc (nr__1) ! [0/4] Number of planet candidates
integer*4 Nfp (nr__1) ! [0/5] Number of false positives
real*8 Rp (nr__1) ! (Rgeo) [0/200346] Radius of the smallest planet in
* the system (R_p,min_) (1)
real*8 Kmin (nr__1) ! [1.01/7591.01] KOI number of the smallest
* planet in system
integer*4 Teq (nr__1) ! (K) [0/14225] Equilibrium temperature of the
* coolest planet in the system (1)
real*8 Kcool (nr__1) ! [1.01/7591.01] KOI number of the coolest
* planet in system
real*4 Kpmag (nr__1) ! (mag) [6.9/18.8] Kepler magnitude of the KOI host star
real*4 Vmag (nr__1) ! (mag) [7.5/19.6]?=99.99 V band magnitude of KOI host
real*4 Ksmag (nr__1) ! (mag) [4.7/16.1]?=99.99 Ks band magnitude of KOI host
character*35 Tel_1 (nr__1) ! Telescope code(s) (see also table1) (G1)
*Note (1): Note that if a system contains both planets and false positives, only
* the planets are used to determine the smallest planet radius and lowest
* equilibrium temperature.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Summary of high-resolution imaging observations
of KOI host stars
integer*4 nr__2
parameter (nr__2=8332) ! Number of records
character*67 ar__2 ! Full-size record
integer*4 KOI_1 (nr__2) ! [1/7591] Kepler Object of Interest number of the
* star
integer*4 KIC_1 (nr__2) ! [757450/12885212] Kepler Input Catalog identifier
* the star
character*6 Tel_2 (nr__2) ! Telescope where the images were taken (either
* CAHA, DCT, Gem, HST, Keck, LBT, Lick, MMT,
* Pal1.5, Pal5, or WIYN) (G1)
character*8 Inst_1 (nr__2) ! Instrument used (ARIES, AstraLux, DSSI, IRCAL,
* LMIRCam, NIRC2, NIRI, PHARO, Robo-AO,
* or WFC3) (G2)
character*8 Flt (nr__2) ! Filter/band of the observation (447nm, 562nm,
* 692nm, 880nm, Br-gamma, F555W, F775W, H, J, K',
* Kcont, Ks, L', LP600, i', r', or z')
real*4 PSF_1 (nr__2) ! (arcsec) [0/1]?=99.99 Typical width of the stellar Point
* Spread Function (PSF)
real*4 Dmag (nr__2) ! (mag) [0/9.01]?=99.99 Typical sensitivity in magnitudes
* (usually 5{sigma}) at a certain separation from
* the primary star ({Delta}m) (1)
real*4 Sep (nr__2) ! (arcsec) [0.03/1]?=99.99 Separation from primary star for
* magnitude sensitivity Dmag (d_{Delta}m_)
character*10 Date (nr__2) ! ("Y:M:D") Observation date
*Note (1): Sensitivity curves with {Delta}m values measured at a range of
* separations are available on the Community Follow-Up Observation Program
* (CFOP) website at https://exofop.ipac.caltech.edu/cfop.php
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table8.dat' ! Relative photometry ({Delta}m), separations and
position angles for companions to KOI host
stars
integer*4 nr__3
parameter (nr__3=2297) ! Number of records
character*248 ar__3 ! Full-size record
integer*4 KOI_2 (nr__3) ! [1/7606] Kepler Object of Interest (KOI) number
* of the host star
character*1 m_KOI (nr__3) ! [BCDEFGH] The identifier we assigned to each
* companion star ("B" for the first companion,
* "C" for the second companion, etc.) (1)
integer*4 KIC1 (nr__3) ! [1161345/12785320] Kepler Input Catalog (KIC)
* identifier of the primary star
* (KICID_prim_) (2)
integer*4 KIC2 (nr__3) ! [1161345/12785320] Kepler Input Catalog (KIC)
* identifier of the companion ("secondary")
* star (KICID_sec_) (2)
character*5 f_KIC2 (nr__3) ! Flag for blended KIC2 (blend) (3)
real*4 Sep_1 (nr__3) ! (arcsec) [0.016/4] Separation of the companion relative
* to the primary (d)
real*4 e_Sep (nr__3) ! (arcsec) [0.05/0.45] Uncertainty in Sep
real*4 PA (nr__3) ! (deg) Position angle (from North through East)
* of the companion relative to the primary
real*4 e_PA (nr__3) ! (deg) [1/7.1] Uncertainty in PA
real*4 DUmag (nr__3) ! (mag) [-1.9/4.4]?=99.99 Magnitude difference in
* U-band (4)
real*4 e_DUmag (nr__3) ! (mag) [0.02/0.17]?=99.99 Uncertainty in DUmag
real*4 DBmag (nr__3) ! (mag) [-1.6/6.6]?=99.99 Magnitude difference in
* B-band (4)
real*4 e_DBmag (nr__3) ! (mag) [0.025/0.18]?=99.99 Uncertainty in DBmag
real*4 DVmag (nr__3) ! (mag) [-1.32/6.3]?=99.99 Magnitude difference in
* V-band (4)
real*4 e_DVmag (nr__3) ! (mag) [0.018/0.15]?=99.99 Uncertainty in DVmag
real*4 DF555W (nr__3) ! (mag) [0.16/11.61]?=99.99 Magnitude difference in
* F555W band (4)
real*4 e_DF555W (nr__3) ! (mag) [0.023/1.1]?=99.99 Uncertainty in DF555W
real*4 DF775W (nr__3) ! (mag) [0.16/10]?=99.99 Magnitude difference in F775W
* band (4)
real*4 e_DF775W (nr__3) ! (mag) [0.016/0.175]?=99.99 Uncertainty in DF775W
real*4 Dimag (nr__3) ! (mag) [0.01/9.3]?=99.99 Magnitude difference
* i'-band (4)
real*4 e_Dimag (nr__3) ! (mag) [0.01/1.6]?=99.99 Uncertainty in Dimag
real*4 Dzmag (nr__3) ! (mag) [0.084/5.71]?=99.99 Magnitude difference in
* z'-band (4)
real*4 e_Dzmag (nr__3) ! (mag) [0.01/0.35]?=99.99 Uncertainty in Dzmag
real*4 DLP600 (nr__3) ! (mag) [-0.36/7.22]?=99.99 Magnitude difference in
* LP600 band (4)
real*4 e_DLP600 (nr__3) ! (mag) [0.02/0.66]?=99.99 Uncertainty in DLP600
real*4 D562nm (nr__3) ! (mag) [0/4.24]?=99.99 Magnitude difference in 562nm
* band (4)
real*4 e_D562nm (nr__3) ! (mag) [0.15/0.39]?=99.99 Uncertainty in D562nm
real*4 D692nm (nr__3) ! (mag) [0.12/6.7]?=99.99 Magnitude difference in 692nm
* band (4)
real*4 e_D692nm (nr__3) ! (mag) [0.15/0.28]?=99.99 Uncertainty in D692nm
real*4 D880nm (nr__3) ! (mag) [0.01/5.8]?=99.99 Magnitude difference in 880nm
* band (4)
real*4 e_D880nm (nr__3) ! (mag) [0.15/0.84]?=99.99 Uncertainty in D880nm
real*4 DJmag (nr__3) ! (mag) [-2.51/9.29]?=99.99 Magnitude difference in
* J-band (4)
real*4 e_DJmag (nr__3) ! (mag) [0.01/0.97]?=99.99 Uncertainty in DJmag
real*4 DHmag (nr__3) ! (mag) [-2.1/7.39]?=99.99 Magnitude difference in
* H-band (4)
real*4 e_DHmag (nr__3) ! (mag) [0.024/0.18]?=99.99 Uncertainty in DHmag
real*4 DKmag (nr__3) ! (mag) [-1.61/10.54]?=99.99 Magnitude difference in
* K-band (4)
real*4 e_DKmag (nr__3) ! (mag) [0.01/0.63]?=99.99 Uncertainty in DKmag
*Note (1): 330 KOI host stars have two or more companions stars. We assign an
* identifier to each companion, choosing letters "B" to "H" for the first to
* seventh companion star. This nomenclature does not imply that the
* companions are actually bound (they could be background stars or galaxies
* that are just by chance aligned with a KOI host star); it is used to
* uniquely identify each companion star.
*Note (2): In most cases, the two KIC identifiers are the same, since the stars
* are not resolved in the KIC, but for 78 wide companions (>=2'' from the
* primary), both objects can be found in the KIC.
*Note (3): A flag of "blend" means that the companion star is not a distinct
* source in the KIC and thus blended with the KIC source of the primary star.
*Note (4): Difference in magnitude between the primary and the companion star
* ({Delta}m=m_secondary_-m_primary_).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table9.dat' ! Planet radius correction factors assuming
planets orbit the primary stars, derived from
{Delta}m measurements in various bands, and
weighted average
integer*4 nr__4
parameter (nr__4=1903) ! Number of records
character*170 ar__4 ! Full-size record
integer*4 KOI_3 (nr__4) ! [1/7606] Kepler Object of Interest number
character*1 m_KOI_1 (nr__4) ! [BCD] Companion identifier (B...; as defined
* in table8) of the star assumed to host the
* planets
real*8 HST (nr__4) ! [1/8.43]?=0 Planet radius correction factor from
* {Delta}m measurements in F555W,F775W bands (1)
real*4 e_HST (nr__4) ! [0/2.16]?=0 Uncertainty in HST
real*8 i_ (nr__4) ! [1/7.37]?=0 Planet Radius Correction Factor from
* {Delta}m measurements in i' band (1)
real*4 e_i_ (nr__4) ! [0/5.1]?=0 Uncertainty in i'
real*8 v692nm (nr__4) ! [1.001/5.33]?=0 Planet Radius Correction Factor
* from {Delta}m measurements in 692nm band (1)
real*4 e_692nm (nr__4) ! [0.0001/1.39]?=0 Uncertainty in 692nm
real*8 LP600 (nr__4) ! [1/5.73]?=0 Planet Radius Correction Factor from
* {Delta}m measurements in LP600 band (1)
real*4 e_LP600 (nr__4) ! [0/1.53]?=0 Uncertainty in LP600
real*8 J (nr__4) ! [-46.27/10.51]?=0 Planet Radius Correction Factor
* from {Delta}m measurements in J band (1)
real*4 e_J (nr__4) ! [0/20.62]?=0 Uncertainty in J
real*8 K (nr__4) ! [1/49.26]?=0 Planet Radius Correction Factor from
* {Delta}m measurements in K band (1)
real*4 e_K (nr__4) ! [0/21.94]?=0 Uncertainty in K
real*8 JK1 (nr__4) ! [1/6.6]?=0 Planet Radius Correction Factor,
* J-K (dwarf) (1)
real*4 e_JK1 (nr__4) ! [0/77.72]?=0 Uncertainty in JK1
real*8 JK2 (nr__4) ! [-1.06/6.85]?=0 Planet Radius Correction Factor,
* J-K (giant) (1)
real*4 e_JK2 (nr__4) ! [0/4.1]?=0 Uncertainty in JK2
real*8 Avg (nr__4) ! [1/49.26]?=0 Weighted average of the correction
* factors
real*8 e_Avg (nr__4) ! [0.0001/22]?=0 Uncertainty in Avg
*Note (1):
* Radius correction factors calculated as shown in Equation 5 or
* Equation 7, derived from {Delta}m measurements in different bands converted
* to {Delta}Kp values (see Section 4.3 for details).
* We calculated factors to revise the planet radii to take the flux dilution
* into account. Since the measurements were done in different filters at
* different telescopes, and there are uncertainties in converting them to
* {Delta}K_p_, the derived correction factors are expected to differ
* somewhat.
* Moreover, there are some cases in which a star has more than one companion,
* and not all companions are detected in all bands (for example, a faint
* companion close to the primary star is only detected in a Keck AO image,
* while a brighter companion at a larger distance is only measured in a UKIRT
* image).
* Therefore, radius correction factors, which depend on the sum of the
* {Delta}m_i_ values of the companion stars, are different for different
* bands for these stars.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table10.dat' ! Planet radius correction factors assuming
planets orbit the brightest companion stars,
derived from {Delta}m measurements in various
bands, and weighted average
integer*4 nr__5
parameter (nr__5=1903) ! Number of records
character*170 ar__5 ! Full-size record
integer*4 KOI_4 (nr__5) ! [1/7606] Kepler Object of Interest number
character*1 m_KOI_2 (nr__5) ! [BCD] Companion identifier (B...; as defined
* in table8) of the star assumed to host the
* planets
real*8 HST_1 (nr__5) ! [1/8.43]?=0 Planet radius correction factor from
* {Delta}m measurements in F555W,F775W bands (1)
real*4 e_HST_1 (nr__5) ! [0/2.16]?=0 Uncertainty in HST
real*8 i__1 (nr__5) ! [1/7.37]?=0 Planet Radius Correction Factor from
* {Delta}m measurements in i' band (1)
real*4 e_i__1 (nr__5) ! [0/5.1]?=0 Uncertainty in i'
real*8 v692nm_1 (nr__5) ! [1.001/5.33]?=0 Planet Radius Correction Factor
* from {Delta}m measurements in 692nm band (1)
real*4 e_692nm_1 (nr__5) ! [0.0001/1.39]?=0 Uncertainty in 692nm
real*8 LP600_1 (nr__5) ! [1/5.73]?=0 Planet Radius Correction Factor from
* {Delta}m measurements in LP600 band (1)
real*4 e_LP600_1 (nr__5) ! [0/1.53]?=0 Uncertainty in LP600
real*8 J_1 (nr__5) ! [-46.27/10.51]?=0 Planet Radius Correction Factor
* from {Delta}m measurements in J band (1)
real*4 e_J_1 (nr__5) ! [0/20.62]?=0 Uncertainty in J
real*8 K_1 (nr__5) ! [1/49.26]?=0 Planet Radius Correction Factor from
* {Delta}m measurements in K band (1)
real*4 e_K_1 (nr__5) ! [0/21.94]?=0 Uncertainty in K
real*8 JK1_1 (nr__5) ! [1/6.6]?=0 Planet Radius Correction Factor,
* J-K (dwarf) (1)
real*4 e_JK1_1 (nr__5) ! [0/77.72]?=0 Uncertainty in JK1
real*8 JK2_1 (nr__5) ! [-1.06/6.85]?=0 Planet Radius Correction Factor,
* J-K (giant) (1)
real*4 e_JK2_1 (nr__5) ! [0/4.1]?=0 Uncertainty in JK2
real*8 Avg_1 (nr__5) ! [1/49.26]?=0 Weighted average of the correction
* factors
real*8 e_Avg_1 (nr__5) ! [0.0001/22]?=0 Uncertainty in Avg
*Note (1):
* Radius correction factors calculated as shown in Equation 5 or
* Equation 7, derived from {Delta}m measurements in different bands converted
* to {Delta}Kp values (see Section 4.3 for details).
* We calculated factors to revise the planet radii to take the flux dilution
* into account. Since the measurements were done in different filters at
* different telescopes, and there are uncertainties in converting them to
* {Delta}K_p_, the derived correction factors are expected to differ
* somewhat.
* Moreover, there are some cases in which a star has more than one companion,
* and not all companions are detected in all bands (for example, a faint
* companion close to the primary star is only detected in a Keck AO image,
* while a brighter companion at a larger distance is only measured in a UKIRT
* image).
* Therefore, radius correction factors, which depend on the sum of the
* {Delta}m_i_ values of the companion stars, are different for different
* bands for these stars.
C=============================================================================
C Loading file 'table1.dat' ! High-resolution imaging observations of KOI
* host stars
C Format for file interpretation
1 format(A12,1X,F4.1,1X,A6,1X,A8,1X,A17,1X,F4.2,1X,I4,1X,A31)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,11
read(1,'(A93)')ar__
read(ar__,1)
+ Fac(i__),Size(i__),Tel(i__),Inst(i__),Band(i__),PSF(i__),
+ Nkoi(i__),Ref(i__)
if(ar__(53:56) .EQ. '') PSF(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ Fac(i__),Size(i__),Tel(i__),Inst(i__),Band(i__),PSF(i__),
+ Nkoi(i__),Ref(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Summary of KOI host stars observed with
* high-resolution imaging techniques
C Format for file interpretation
2 format(
+ I4,1X,I8,1X,I1,1X,I1,1X,I1,1X,F8.1,1X,F7.2,1X,I5,1X,F7.2,1X,
+ F5.2,1X,F5.2,1X,F5.2,1X,A35)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,3557
read(1,'(A104)')ar__1
read(ar__1,2)
+ KOI(i__),KIC(i__),Ncp(i__),Npc(i__),Nfp(i__),Rp(i__),
+ Kmin(i__),Teq(i__),Kcool(i__),Kpmag(i__),Vmag(i__),Ksmag(i__),
+ Tel_1(i__)
c ..............Just test output...........
write(6,2)
+ KOI(i__),KIC(i__),Ncp(i__),Npc(i__),Nfp(i__),Rp(i__),
+ Kmin(i__),Teq(i__),Kcool(i__),Kpmag(i__),Vmag(i__),Ksmag(i__),
+ Tel_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Summary of high-resolution imaging observations
* of KOI host stars
C Format for file interpretation
3 format(
+ I4,1X,I8,1X,A6,1X,A8,1X,A8,1X,F5.2,1X,F5.2,1X,F5.2,1X,A10)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,8332
read(1,'(A67)')ar__2
read(ar__2,3)
+ KOI_1(i__),KIC_1(i__),Tel_2(i__),Inst_1(i__),Flt(i__),
+ PSF_1(i__),Dmag(i__),Sep(i__),Date(i__)
c ..............Just test output...........
write(6,3)
+ KOI_1(i__),KIC_1(i__),Tel_2(i__),Inst_1(i__),Flt(i__),
+ PSF_1(i__),Dmag(i__),Sep(i__),Date(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table8.dat' ! Relative photometry ({Delta}m), separations and
* position angles for companions to KOI host
* stars
C Format for file interpretation
4 format(
+ I4,1X,A1,1X,I8,1X,I8,1X,A5,1X,F5.3,1X,F5.3,1X,F5.1,1X,F3.1,1X,
+ F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,
+ 1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,
+ F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,
+ 1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table8.dat')
write(6,*) '....Loading file: table8.dat'
do i__=1,2297
read(1,'(A248)')ar__3
read(ar__3,4)
+ KOI_2(i__),m_KOI(i__),KIC1(i__),KIC2(i__),f_KIC2(i__),
+ Sep_1(i__),e_Sep(i__),PA(i__),e_PA(i__),DUmag(i__),
+ e_DUmag(i__),DBmag(i__),e_DBmag(i__),DVmag(i__),e_DVmag(i__),
+ DF555W(i__),e_DF555W(i__),DF775W(i__),e_DF775W(i__),
+ Dimag(i__),e_Dimag(i__),Dzmag(i__),e_Dzmag(i__),DLP600(i__),
+ e_DLP600(i__),D562nm(i__),e_D562nm(i__),D692nm(i__),
+ e_D692nm(i__),D880nm(i__),e_D880nm(i__),DJmag(i__),
+ e_DJmag(i__),DHmag(i__),e_DHmag(i__),DKmag(i__),e_DKmag(i__)
c ..............Just test output...........
write(6,4)
+ KOI_2(i__),m_KOI(i__),KIC1(i__),KIC2(i__),f_KIC2(i__),
+ Sep_1(i__),e_Sep(i__),PA(i__),e_PA(i__),DUmag(i__),
+ e_DUmag(i__),DBmag(i__),e_DBmag(i__),DVmag(i__),e_DVmag(i__),
+ DF555W(i__),e_DF555W(i__),DF775W(i__),e_DF775W(i__),
+ Dimag(i__),e_Dimag(i__),Dzmag(i__),e_Dzmag(i__),DLP600(i__),
+ e_DLP600(i__),D562nm(i__),e_D562nm(i__),D692nm(i__),
+ e_D692nm(i__),D880nm(i__),e_D880nm(i__),DJmag(i__),
+ e_DJmag(i__),DHmag(i__),e_DHmag(i__),DKmag(i__),e_DKmag(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table9.dat' ! Planet radius correction factors assuming
* planets orbit the primary stars, derived from
* {Delta}m measurements in various bands, and
* weighted average
C Format for file interpretation
5 format(
+ I4,1X,A1,1X,F7.5,1X,E9.3,1X,F7.5,1X,E9.3,1X,F7.5,1X,E9.3,1X,
+ F7.5,1X,E9.3,1X,F9.5,1X,E9.3,1X,F8.5,1X,E9.3,1X,F7.5,1X,E9.3,
+ 1X,F8.5,1X,E9.3,1X,F7.4,1X,F7.4)
C Effective file loading
open(unit=1,status='old',file=
+'table9.dat')
write(6,*) '....Loading file: table9.dat'
do i__=1,1903
read(1,'(A170)')ar__4
read(ar__4,5)
+ KOI_3(i__),m_KOI_1(i__),HST(i__),e_HST(i__),i_(i__),e_i_(i__),
+ v692nm(i__),e_692nm(i__),LP600(i__),e_LP600(i__),J(i__),
+ e_J(i__),K(i__),e_K(i__),JK1(i__),e_JK1(i__),JK2(i__),
+ e_JK2(i__),Avg(i__),e_Avg(i__)
c ..............Just test output...........
write(6,5)
+ KOI_3(i__),m_KOI_1(i__),HST(i__),e_HST(i__),i_(i__),e_i_(i__),
+ v692nm(i__),e_692nm(i__),LP600(i__),e_LP600(i__),J(i__),
+ e_J(i__),K(i__),e_K(i__),JK1(i__),e_JK1(i__),JK2(i__),
+ e_JK2(i__),Avg(i__),e_Avg(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table10.dat' ! Planet radius correction factors assuming
* planets orbit the brightest companion stars,
* derived from {Delta}m measurements in various
* bands, and weighted average
C Format for file interpretation
6 format(
+ I4,1X,A1,1X,F7.5,1X,E9.3,1X,F7.5,1X,E9.3,1X,F7.5,1X,E9.3,1X,
+ F7.5,1X,E9.3,1X,F9.5,1X,E9.3,1X,F8.5,1X,E9.3,1X,F7.5,1X,E9.3,
+ 1X,F8.5,1X,E9.3,1X,F7.4,1X,F7.4)
C Effective file loading
open(unit=1,status='old',file=
+'table10.dat')
write(6,*) '....Loading file: table10.dat'
do i__=1,1903
read(1,'(A170)')ar__5
read(ar__5,6)
+ KOI_4(i__),m_KOI_2(i__),HST_1(i__),e_HST_1(i__),i__1(i__),
+ e_i__1(i__),v692nm_1(i__),e_692nm_1(i__),LP600_1(i__),
+ e_LP600_1(i__),J_1(i__),e_J_1(i__),K_1(i__),e_K_1(i__),
+ JK1_1(i__),e_JK1_1(i__),JK2_1(i__),e_JK2_1(i__),Avg_1(i__),
+ e_Avg_1(i__)
c ..............Just test output...........
write(6,6)
+ KOI_4(i__),m_KOI_2(i__),HST_1(i__),e_HST_1(i__),i__1(i__),
+ e_i__1(i__),v692nm_1(i__),e_692nm_1(i__),LP600_1(i__),
+ e_LP600_1(i__),J_1(i__),e_J_1(i__),K_1(i__),e_K_1(i__),
+ JK1_1(i__),e_JK1_1(i__),JK2_1(i__),e_JK2_1(i__),Avg_1(i__),
+ e_Avg_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end