Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/158/38 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 2026-May-15
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/158/38 New substellar discoveries from Kepler and K2 (Carmichael+, 2019)
*================================================================================
*New substellar discoveries from Kepler and K2: is there a brown dwarf desert?
* Carmichael T.W., Latham D.W., Vanderburg A.M.
* <Astron. J., 158, 38 (2019)>
* =2019AJ....158...38C (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7.dat' ! List of published transiting brown dwarfs
as of March 2019
integer*4 nr__
parameter (nr__=23) ! Number of records
character*136 ar__ ! Full-size record
character*14 Name ! System identifier
character*1 m_Name ! [abc] Multiplicity index on Name
character*1 Flag1 ! [abcdefg] Flag on Name (G1)
real*8 Per ! (d) [1.218/166.788] Orbital period
real*4 Mass ! (Mjup) [11.79/95.1] Brown dwarf mass
real*4 e_Mass ! (Mjup) [0.59/6.8] Uncertainty in Mass
real*4 R ! (Rjup) [0.757/6.5] Brown dwarf radius
real*4 e_R ! (Rjup) [0.015/0.53] Uncertainty in R
character*1 l_e ! Limit flag on e
real*4 e ! [0/0.689] Eccentricity
character*1 f_e ! [a] Flag indicating an adopted value on e
real*4 e_e ! [0.0002/0.057]? Uncertainty in e
real*4 Mp_ ! (Msun) [0.188/1.78]? Primary stellar mass
real*4 Ms_ ! (Msun) [0.3]? Secondary stellar mass
real*4 e_Mp_ ! (Msun) [0.015/0.12]? Uncertainty in Mp*
real*4 Rp_ ! (Rsun) [0.21/1.881]? Primary stellar radius
real*4 e_Rp_ ! (Rsun) [0.005/0.31]? Uncertainty in Rp*
integer*4 Teff ! (K) [3100/7930]? Stellar effective temperature
integer*4 e_Teff ! (K) [40/820]? Uncertainty in Teff
real*4 v_Fe_H_ ! ([Sun]) [-0.24/0.44]? Metallicity
real*4 e__Fe_H_ ! ([Sun]) [0.053/0.25]? Uncertainty in [Fe/H]
character*19 Bibcode1 ! Bibcode of reference
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table8.dat' ! Additional information on published transiting
brown dwarfs
integer*4 nr__1
parameter (nr__1=22) ! Number of records
character*97 ar__1 ! Full-size record
C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg ! (deg) Right Ascension J2000
real*8 DEdeg ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
character*14 Name_1 ! System identifier
character*1 Flag2 ! [bcd] Flag on Name (G1)
integer*4 RAh ! (h) ? Hour of Right Ascension (J2000)
integer*4 RAm ! (min) ? Minute of Right Ascension (J2000)
real*4 RAs ! (s) ? Second of Right Ascension (J2000)
character*1 DE_ ! Sign of the Declination (J2000)
integer*4 DEd ! (deg) ? Degree of Declination (J2000)
integer*4 DEm ! (arcmin) ? Arcminute of Declination (J2000)
real*4 DEs ! (arcsec) ? Arcsecond of Declination (J2000)
real*4 Vmag ! (mag) [9.8/18.73]? V band magnitude
real*4 Gmag ! (mag) [14.35/18.94]? G-band magnitude from the Gaia
* mission (Cat. I/345)
character*23 Ref ! Reference
character*19 Bibcode2 ! Bibcode of the reference
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Multi-order relative radial velocities
of CWW 89A from TRES
integer*4 nr__2
parameter (nr__2=18) ! Number of records
character*27 ar__2 ! Full-size record
real*8 BJD ! (d) [6799.92/8430.98] Barycentric Julian Date
* (BJD-2450000)
real*8 RV ! (m/s) [-8260.62/11493.66] Radial velocity
real*4 e_RV ! (m/s) [35.97/389.48] Uncertainty in RV
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Multi-order relative radial velocity
measurements of EPIC 212036875 from TRES
integer*4 nr__3
parameter (nr__3=14) ! Number of records
character*27 ar__3 ! Full-size record
real*8 BJD_1 ! (d) [6799.92/8430.98] Barycentric Julian Date
* (BJD-2450000)
real*8 RV_1 ! (m/s) [-8260.62/11493.66] Radial velocity
real*4 e_RV_1 ! (m/s) [35.97/389.48] Uncertainty in RV
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Multi-order relative radial velocity
measurements of KOI-607 from TRES
integer*4 nr__4
parameter (nr__4=14) ! Number of records
character*27 ar__4 ! Full-size record
real*8 BJD_2 ! (d) [6799.92/8430.98] Barycentric Julian Date
* (BJD-2450000)
real*8 RV_2 ! (m/s) [-8260.62/11493.66] Radial velocity
real*4 e_RV_2 ! (m/s) [35.97/389.48] Uncertainty in RV
C=============================================================================
C Loading file 'table7.dat' ! List of published transiting brown dwarfs
* as of March 2019
C Format for file interpretation
1 format(
+ A14,A1,1X,A1,1X,F7.3,1X,F5.2,1X,F4.2,1X,F5.3,1X,F5.3,1X,A1,
+ F6.4,1X,A1,1X,F6.4,1X,F5.3,1X,F4.2,1X,F5.3,1X,F5.3,1X,F5.3,1X,
+ I4,1X,I3,1X,F6.3,1X,F5.3,1X,A19)
C Effective file loading
open(unit=1,status='old',file=
+'table7.dat')
write(6,*) '....Loading file: table7.dat'
do i__=1,23
read(1,'(A136)')ar__
read(ar__,1)
+ Name,m_Name,Flag1,Per,Mass,e_Mass,R,e_R,l_e,e,f_e,e_e,Mp_,Ms_,
+ e_Mp_,Rp_,e_Rp_,Teff,e_Teff,v_Fe_H_,e__Fe_H_,Bibcode1
if(ar__(60:65) .EQ. '') e_e = rNULL__
if(ar__(67:71) .EQ. '') Mp_ = rNULL__
if(ar__(73:76) .EQ. '') Ms_ = rNULL__
if(ar__(78:82) .EQ. '') e_Mp_ = rNULL__
if(ar__(84:88) .EQ. '') Rp_ = rNULL__
if(ar__(90:94) .EQ. '') e_Rp_ = rNULL__
if(ar__(96:99) .EQ. '') Teff = iNULL__
if(ar__(101:103) .EQ. '') e_Teff = iNULL__
if(ar__(105:110) .EQ. '') v_Fe_H_ = rNULL__
if(ar__(112:116) .EQ. '') e__Fe_H_ = rNULL__
c ..............Just test output...........
write(6,1)
+ Name,m_Name,Flag1,Per,Mass,e_Mass,R,e_R,l_e,e,f_e,e_e,Mp_,Ms_,
+ e_Mp_,Rp_,e_Rp_,Teff,e_Teff,v_Fe_H_,e__Fe_H_,Bibcode1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table8.dat' ! Additional information on published transiting
* brown dwarfs
C Format for file interpretation
2 format(
+ A14,1X,A1,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F5.2,1X,F5.2,
+ 1X,F5.2,1X,A23,1X,A19)
C Effective file loading
open(unit=1,status='old',file=
+'table8.dat')
write(6,*) '....Loading file: table8.dat'
do i__=1,22
read(1,'(A97)')ar__1
read(ar__1,2)
+ Name_1,Flag2,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Vmag,Gmag,Ref,
+ Bibcode2
if(ar__1(18:19) .EQ. '') RAh = iNULL__
if(ar__1(21:22) .EQ. '') RAm = iNULL__
if(ar__1(24:28) .EQ. '') RAs = rNULL__
if(ar__1(31:32) .EQ. '') DEd = iNULL__
if(ar__1(34:35) .EQ. '') DEm = iNULL__
if(ar__1(37:41) .EQ. '') DEs = rNULL__
if(ar__1(43:47) .EQ. '') Vmag = rNULL__
if(ar__1(49:53) .EQ. '') Gmag = rNULL__
RAdeg = rNULL__
DEdeg = rNULL__
c Derive coordinates RAdeg and DEdeg from input data
c (RAdeg and DEdeg are set to rNULL__ when unknown)
if(RAh .GT. -180) RAdeg=RAh*15.
if(RAm .GT. -180) RAdeg=RAdeg+RAm/4.
if(RAs .GT. -180) RAdeg=RAdeg+RAs/240.
if(DEd .GE. 0) DEdeg=DEd
if(DEm .GE. 0) DEdeg=DEdeg+DEm/60.
if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600.
if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
c ..............Just test output...........
write(6,2)
+ Name_1,Flag2,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Vmag,Gmag,Ref,
+ Bibcode2
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Multi-order relative radial velocities
* of CWW 89A from TRES
C Format for file interpretation
3 format(F11.6,1X,F8.2,1X,F6.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,18
read(1,'(A27)')ar__2
read(ar__2,3)BJD,RV,e_RV
c ..............Just test output...........
write(6,3)BJD,RV,e_RV
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Multi-order relative radial velocity
* measurements of EPIC 212036875 from TRES
C Format for file interpretation
4 format(F11.6,1X,F8.2,1X,F6.2)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,14
read(1,'(A27)')ar__3
read(ar__3,4)BJD_1,RV_1,e_RV_1
c ..............Just test output...........
write(6,4)BJD_1,RV_1,e_RV_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Multi-order relative radial velocity
* measurements of KOI-607 from TRES
C Format for file interpretation
5 format(F11.6,1X,F8.2,1X,F6.2)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,14
read(1,'(A27)')ar__4
read(ar__4,5)BJD_2,RV_2,e_RV_2
c ..............Just test output...........
write(6,5)BJD_2,RV_2,e_RV_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end