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