Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/787/47 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-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/787/47 106 Kepler ultra-short-period planets (Sanchis-Ojeda+, 2014) *================================================================================ *A study of the shortest-period planets found with Kepler. * Sanchis-Ojeda R., Rappaport S., Winn J.N., Kotson M.C., Levine A., * El Mellah I. * <Astrophys. J., 787, 47 (2014)> * =2014ApJ...787...47S (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Characteristics of the 106 USP Planet Candidates Discovered in the Kepler Data integer*4 nr__ parameter (nr__=106) ! Number of records character*148 ar__ ! Full-size record character*1 Group (nr__) ! [ABC] Planet candidate group (1) character*8 KIC (nr__) ! KIC number (KIC NNNNNNNN in Simbad) real*8 KOI (nr__) ! KOI number (KOI -NNNN.NN in Simbad) (2) real*4 Kpmag (nr__) ! (mag) Kepler magnitude integer*4 Teff (nr__) ! (K) Effective temperature integer*4 E_Teff (nr__) ! (K) Upper limit uncertainty in Teff integer*4 e_Teff_1 (nr__) ! (K) Lower limit uncertainty in Teff real*4 logg (nr__) ! ([cm/s2]) Surface gravity real*4 E_logg (nr__) ! ([cm/s2]) Upper limit uncertainty in logg real*4 e_logg_1 (nr__) ! ([cm/s2]) Lower limit uncertainty in logg real*4 R_ (nr__) ! (Rsun) Stellar radius real*4 E_R_ (nr__) ! (Rsun) Upper limit uncertainty in R* real*4 e_R__1 (nr__) ! (Rsun) Lower limit uncertainty in R* real*8 Porb (nr__) ! (d) Orbital period real*8 t0 (nr__) ! (d) The midtransit time (BJD-2454900) integer*4 Depth (nr__) ! (ppm) Transit depth integer*4 E_Depth (nr__) ! (ppm) Upper limit uncertainty in Depth integer*4 e_Depth_1 (nr__) ! (ppm) Lower limit uncertainty in Depth real*4 Dur (nr__) ! (h) Transit duration real*4 E_Dur (nr__) ! (h) Upper limit uncertainty in Dur real*4 e_Dur_1 (nr__) ! (h) Lower limit uncertainty in Dur real*4 a_R_ (nr__) ! The inverse transit probability real*4 E_a_R_ (nr__) ! Upper limit uncertainty in a/R* real*4 e_a_R__1 (nr__) ! Lower limit uncertainty in a/R* real*4 Rp (nr__) ! (Rgeo) Planet radius real*4 E_Rp (nr__) ! (Rgeo) Upper limit uncertainty in Rp real*4 e_Rp_1 (nr__) ! (Rgeo) Lower limit uncertainty in Rp *Note (1): Group as follows: * A = New planet candidates. These objects either emerged from our search for * the first time, or appear on the KOI list as false positives but that we * consider to be viable candidates; * B = The 69 KOIs that passed our false positive tests (Akeson et al. * 2013PASP..125..989A); * C = 19 other candidates that were discovered by other authors * (Ofir & Dreizler 2013, J/A+A/555/A58; Huang et al. 2013, * J/MNRAS/429/2001; Jackson et al. 2013ApJ...779..165J). *Note (2): Planets discovered transiting stars with other KOI planets with no * KOI number assigned are labeled with the KOI of the star followed by * a dot and two zeros. C============================================================================= C Loading file 'table1.dat' ! Characteristics of the 106 USP Planet Candidates * Discovered in the Kepler Data C Format for file interpretation 1 format( + A1,1X,A8,1X,F7.2,1X,F4.1,1X,I4,1X,I3,1X,I3,1X,F4.2,1X,F4.2,1X, + F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F10.8,1X,F11.6,1X,I4,1X,I2,1X, + I2,1X,F5.3,1X,F5.3,1X,F5.3,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X, + F4.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,106 read(1,'(A148)')ar__ read(ar__,1) + Group(i__),KIC(i__),KOI(i__),Kpmag(i__),Teff(i__),E_Teff(i__), + e_Teff_1(i__),logg(i__),E_logg(i__),e_logg_1(i__),R_(i__), + E_R_(i__),e_R__1(i__),Porb(i__),t0(i__),Depth(i__), + E_Depth(i__),e_Depth_1(i__),Dur(i__),E_Dur(i__),e_Dur_1(i__), + a_R_(i__),E_a_R_(i__),e_a_R__1(i__),Rp(i__),E_Rp(i__), + e_Rp_1(i__) c ..............Just test output........... write(6,1) + Group(i__),KIC(i__),KOI(i__),Kpmag(i__),Teff(i__),E_Teff(i__), + e_Teff_1(i__),logg(i__),E_logg(i__),e_logg_1(i__),R_(i__), + E_R_(i__),e_R__1(i__),Porb(i__),t0(i__),Depth(i__), + E_Depth(i__),e_Depth_1(i__),Dur(i__),E_Dur(i__),e_Dur_1(i__), + a_R_(i__),E_a_R_(i__),e_a_R__1(i__),Rp(i__),E_Rp(i__), + e_Rp_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end