FORTRAN Generation
(/./ftp/cats/J/ApJ/736/19)

Conversion of standardized ReadMe file for file /./ftp/cats/J/ApJ/736/19 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-Mar-28
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/ApJ/736/19          Kepler planetary candidates. II.          (Borucki+, 2011)
*================================================================================
*Characteristics of planetary candidates observed by Kepler.
*II. Analysis of the first four months of data.
*    Borucki W.J., Koch D.G., Basri G., Batalha N., Brown T.M., Bryson S.T.,
*    Caldwell D., Christensen-Dalsgaard J., Cochran W.D., Devore E.,
*    Dunham E.W., Gautier T.N., Geary J.C., Gilliland R., Gould A., Howell S.B.,
*    Jenkins J.M., Latham D.W., Lissauer J.J., Marcy G.W., Rowe J., Sasselov D.,
*    Boss A., Charbonneau D., Ciardi D., Doyle L., Dupree A.K., Ford E.B.,
*    Fortney J., Holman M.J., Seager S., Steffen J.H., Tarter J., Welsh W.F.,
*    Allen C., Buchhave L.A., Christiansen J.L., Clarke B.D., Das S.,
*    Desert J.-M., Endl M., Fabrycky D., Fressin F., Haas M., Horch E.,
*    Howard A., Isaacson H., Kjeldsen H., Kolodziejczak J., Kulesa C., Li J.,
*    Lucas P.W., Machalek P., McCarthy D., MacQueen P., Meibom S., Miquel T.,
*    Prsa A., Quinn S.N., Quintana E.V., Ragozzine D., Sherry W., Shporer A.,
*    Tenenbaum P., Torres G., Twicken J.D., Van Cleve J., Walkowicz L.,
*    Witteborn F.C., Still M.
*   <Astrophys. J., 736, 19 (2011)>
*   =2011ApJ...736...19B
C=============================================================================

C  Internal variables

      integer*4 i__

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table1.dat'	! Host star characteristics

      integer*4 nr__
      parameter (nr__=997)	! Number of records
      character*66 ar__   	! Full-size record

C  J2000 position composed of: RAhour DEdeg
      integer*4     KOI         ! Kepler Object of Interest number
      integer*4     KIC         ! Kepler Input Catalog identifier (Cat. V/133)
      real*4        Kp          ! (mag) Kepler magnitude
      real*4        CDPP        ! (10-6) ? Combined 6hr Differential Photometric
*                                  Precision (1)
      real*8        RAhour      ! (h) Hour of Right Ascension (J2000)
      real*8        DEdeg       ! (deg) Degree of Declination (J2000)
      integer*4     Teff        ! (K) Stellar effective temperature
      real*4        log_g       ! ([cm/s2]) Log of stellar surface gravity
      real*4        Rad         ! (Rsun) Stellar radius
      real*4        Mass        ! (Msun) Stellar mass; derived from log(g) and Rad
      character*1   f_Teff      ! [1] Atmospheric parameters from KIC (2)
*Note (1): from Quarter 3. In units of parts per million.
*Note (2): If f_Teff=1 then Teff, log(g), and Rad are derived using KIC
*     (Kepler Input Catalog, Cat. V/133) J-K color and linear interpolation
*     of luminosity class V stellar properties of Schmidt-Kaler
*     (1982BICDS..23....2S).

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table2.dat'	! List of planetary candidates and their
                             characteristics

      integer*4 nr__1
      parameter (nr__1=1297)	! Number of records
      character*178 ar__1  	! Full-size record

      integer*4     KIC_1       ! ?=0 Kepler Input Catalog Identifier (12)
      character*2   f_KOI       ! [d ] Single transit (1)
      real*8        KOI_1       ! Kepler Object of Interest number
      real*8        Dur         ! (h) Transit duration, first contact to last contact
      integer*4     Depth       ! (10-6) Transit depth at center of transit; part per
*                                million
      real*4        SNR         ! Total SNR of all transits detected (2)
      real*8        t0          ! (d) Time of a transit center; BJD-2454900 (3)
      real*8        e_t0        ! (d) Uncertainty in t0
      real*8        Per         ! (d) Average interval between transits (3)
      real*8        e_Per       ! (d) ? Uncertainty in Per
      real*8        a_R_        ! Ratio of semi-major axis to stellar radius (4)
      real*8        e_a_R_      ! ? Uncertainty in a/R*
      real*8        r_R_        ! Ratio of planet radius to stellar radius
      real*8        e_r_R_      ! ? Uncertainty in r/R*
      real*4        b           ! ? Impact parameter of transit (5)
      real*4        e_b         ! ? Uncertainty in b
      real*4        Rad_1       ! (Rgeo) Planetary radius; in Earth radii=6378 km
      real*4        a           ! (AU) Semi-major axis of orbit (6)
      integer*4     Teq         ! (K) Equilibrium temperature of planet (7)
      real*4        Prob        ! ? Probability of background eclipsing binary (8)
      integer*4     Vet         ! Vetting flag (1=best) (9)
      character*9   FOP         ! Follow-up observation description (10)
      character*1   Note        ! Note flag (11)
*Note (1):
*    dd = KOI was detected on the basis of a single transit with the period
*         derived from the transit duration and stellar radius.
*Note (2): Where SNR=Depth/(Std*sqrt(N)) where Std is the standard deviation
*          of all data outside of transits.
*Note (3): Based on a linear fit to all observed transits.
*Note (4): Assuming zero eccentricity, a parameter derived from the lightcurve.
*          Note for planets in non-circular orbits, a/R* is the scaled
*          planet-star separation at the time of transit.
*Note (5): Note that there is a strong co-variance between b and a/R*.
*Note (6): Based on Newton's generalization of Kepler's third law and the
*          stellar mass in Appendix 1.
*Note (7): See main text.
*Note (8): Confused with planet's host star (see text for discussion).
*Note (9): Vetting flag as follows:
*    1 = Confirmed and published planet;
*    2 = Strong probability candidate, cleanly passes tests that were applied;
*    3 = Moderate probability candidate, not all tests cleanly passed but no
*        definite test failures;
*    4 = Insufficient follow-up to perform full suite of vetting tests.
*Note (10): Follow-up observation code as follows:
*    1 = Reconnaissance spectra taken;
*    2 = Adaptive optics observations taken;
*    3 = Speckle observations taken;
*    4 = 10m/s RV spectra taken;
*    5 = 2m/s RV spectra taken.
*Note (11):
*    1 = note on this KOI or its host star in notes.dat file.
*Note (12): the KIC number was added at CDS from
*      http://archive.stsci.edu/kepler/planet_candidates.html
*      (60 KOI numbers could not be found)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table4.dat'	! Very probable false positives

      integer*4 nr__2
      parameter (nr__2=498)	! Number of records
      character*164 ar__2  	! Full-size record

      real*8        KOI_2       ! Kepler Object of Interest number
      integer*4     KIC_2       ! Kepler Input Catalog Identifier (Cat. V/133)
      real*8        t0_1        ! (d) Time of a transit center; BJD-2454900 (1)
      real*8        Per_1       ! (d) Average interval between transits (1)
      integer*4     Depth_1     ! (10-6) Transit depth at center of transit; part per
*                                 million
      real*4        SNR_1       ! Total SNR of all transits detected
      character*110 Com         ! Comment(s) (2)
*Note (1): Based on a linear fit to all observed transits.
*Note (2): Comment use the abbreviations:
*         APO = Active pixel offset. The pixel that actually dims during a
*               transit is offset from the position of the target star implying
*               a background variable star.
* Double star = There is within 4" an object evident in images that has not been
*               ruled out as the source of the transit.
*    V-shaped = The transit light curve is "V" shaped, a possible indication of
*               an eclipsing binary.
*    Odd-even = Transit depths are alternately deeper and shallower, an
*               indication of an eclipsing binary
* Occultation = Evidence of secondary eclipse, implying possible EB or self
*               luminous planet.
*         SB1 = Single-line eclipsing binary star. RV varies by over 1km/s in
*               low SNR reconnaissance spectra. Double lines not seen.
*         SB2 = Double-line eclipsing binary. Double lines seen in spectrum.

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'notes.dat'	! Notes (table 3 of the paper)

      integer*4 nr__3
      parameter (nr__3=76)	! Number of records
      character*80 ar__3  	! Full-size record

      real*8        KOI_3       ! Kepler Object Identifier number (NNNN.NN)
      character*72  Note_1      ! Text of note

C=============================================================================

C  Loading file 'table1.dat'	! Host star characteristics

C  Format for file interpretation

    1 format(
     +  I4,1X,I8,1X,F6.3,1X,F6.1,1X,F8.5,1X,F7.4,1X,I4,1X,F4.2,1X,
     +  F4.2,1X,F4.2,1X,A1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table1.dat')
      write(6,*) '....Loading file: table1.dat'
      do i__=1,997
        read(1,'(A66)')ar__
        read(ar__,1)
     +  KOI,KIC,Kp,CDPP,RAhour,DEdeg,Teff,log_g,Rad,Mass,f_Teff
        if(ar__(22:27) .EQ. '') CDPP = rNULL__
c    ..............Just test output...........
        write(6,1)
     +  KOI,KIC,Kp,CDPP,RAhour,DEdeg,Teff,log_g,Rad,Mass,f_Teff
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'table2.dat'	! List of planetary candidates and their
*                             characteristics

C  Format for file interpretation

    2 format(
     +  I8,1X,A2,1X,F7.2,1X,F7.4,1X,I6,1X,F6.1,1X,F9.5,1X,F7.5,1X,
     +  F13.7,1X,F12.7,1X,F11.6,1X,F11.6,1X,F7.5,1X,F7.5,1X,F6.4,1X,
     +  F5.3,1X,F5.1,1X,F5.3,1X,I4,1X,E7.2,1X,I1,1X,A9,1X,A1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table2.dat')
      write(6,*) '....Loading file: table2.dat'
      do i__=1,1297
        read(1,'(A178)')ar__1
        read(ar__1,2)
     +  KIC_1,f_KOI,KOI_1,Dur,Depth,SNR,t0,e_t0,Per,e_Per,a_R_,e_a_R_,
     +  r_R_,e_r_R_,b,e_b,Rad_1,a,Teq,Prob,Vet,FOP,Note
        if(ar__1(75:86) .EQ. '') e_Per = rNULL__
        if(ar__1(100:110) .EQ. '') e_a_R_ = rNULL__
        if(ar__1(120:126) .EQ. '') e_r_R_ = rNULL__
        if(ar__1(128:133) .EQ. '') b = rNULL__
        if(ar__1(135:139) .EQ. '') e_b = rNULL__
        if(ar__1(158:164) .EQ. '') Prob = rNULL__
c    ..............Just test output...........
        write(6,2)
     +  KIC_1,f_KOI,KOI_1,Dur,Depth,SNR,t0,e_t0,Per,e_Per,a_R_,e_a_R_,
     +  r_R_,e_r_R_,b,e_b,Rad_1,a,Teq,Prob,Vet,FOP,Note
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'table4.dat'	! Very probable false positives

C  Format for file interpretation

    3 format(F7.2,1X,I8,1X,F9.5,1X,F10.6,3X,I6,1X,F6.1,1X,A110)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table4.dat')
      write(6,*) '....Loading file: table4.dat'
      do i__=1,498
        read(1,'(A164)')ar__2
        read(ar__2,3)KOI_2,KIC_2,t0_1,Per_1,Depth_1,SNR_1,Com
c    ..............Just test output...........
        write(6,3)KOI_2,KIC_2,t0_1,Per_1,Depth_1,SNR_1,Com
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'notes.dat'	! Notes (table 3 of the paper)

C  Format for file interpretation

    4 format(F7.2,1X,A72)

C  Effective file loading

      open(unit=1,status='old',file=
     +'notes.dat')
      write(6,*) '....Loading file: notes.dat'
      do i__=1,76
        read(1,'(A80)')ar__3
        read(ar__3,4)KOI_3,Note_1
c    ..............Just test output...........
        write(6,4)KOI_3,Note_1
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================
      stop
      end