Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/240/17 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 2026-Jul-20
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/ApJS/240/17 Exoplanets in the Antarctic sky. II. 116 candidates (Zhang+, 2019)
*================================================================================
*Exoplanets in the Antarctic sky.
*II. 116 transiting exoplanet candidates found by AST3-II (CHESPA) within the
*southern CVZ of TESS.
* Zhang H., Yu Z., Liang E., Yang M., Ashley M.C.B., Cui X., Du F., Fu J.,
* Gong X., Gu B., Hu Yi, Jiang P., Liu H., Lawrence J., Liu Q., Li X., Li Z.,
* Ma B., Mould J., Shang Z., Suntzeff N.B., Tao C., Tian Q., Tinney C.G.,
* Uddin S.A., Wang L., Wang S., Wang X., Wei P., Wright D., Wu X.,
* Wittenmyer R.A., Xu L., Yang S.-H., Yu Ce, Yuan X., Zheng J., Zhou H.,
* Zhou J.-L., Zhu Z.
* <Astrophys. J. Suppl. Ser., 240, 17 (2019)>
* =2019ApJS..240...17Z
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Fitted parameters of exoplanet candidates
from AST3-II observations in 2016
integer*4 nr__
parameter (nr__=222) ! Number of records
character*92 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
real*8 RAdeg (nr__) ! (deg) Target right ascension (J2000)
real*8 DEdeg (nr__) ! (deg) Target declination (J2000)
real*4 imag (nr__) ! (mag) [7.5/15.4] APASS/Sloan i-band AB magnitude
real*8 Epoch (nr__) ! (d) [1477.6/1530.3] Epoch; JD-2456000
real*4 Per (nr__) ! (d) [0.2/6] Observed period of transit signal
real*4 dmag (nr__) ! (mag) [0.002/0.07] Transit depth in Sloan i-band magnitude
real*4 Tdur (nr__) ! (h) [0.3/6.3] Observed transit duration
real*4 SRN (nr__) ! [5/22.1] Signal-to-Red-Noise-Ratio of the
* transit event
real*4 Rp_R_ (nr__) ! [0.03/0.3] Ratio, planet fitted radius to host star
* radius (1)
real*4 a_R_ (nr__) ! [1.5/27.6] Ratio, planet fitted semi-major axis
* to host star radius
real*4 Inc (nr__) ! (deg) [86.9/93.1] Fitted inclination
real*4 eta (nr__) ! [0.4/1.8] Ratio, observed transit duration to
* the theoretical duration: {eta}=T_dur_/T_theory_
character*3 Label (nr__) ! Label(s) (G1)
*Note (1): The fit is based the model given
* by Mandel & Agol (2002ApJ...580L.171M).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Stellar properties of exoplanet candidates
from AST3-II observations in 2016
integer*4 nr__1
parameter (nr__1=222) ! Number of records
character*110 ar__1 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
real*8 RAdeg_1 (nr__1) ! (deg) Target right ascension (J2000)
real*8 DEdeg_1 (nr__1) ! (deg) Target declination (J2000)
integer*4 TIC (nr__1) ! [41087772/453098052]? TESS Input Catalog ID (1)
integer*4 Flag (nr__1) ! [0/1] CTL flag (1= also present in the Candidate
* Target List of TESS) (1)
integer*8 Gaia (nr__1) ! ? Gaia DR2 identifier (2)
real*4 imag_1 (nr__1) ! (mag) [7.5/15.4] APASS/Sloan i-band AB magnitude
real*4 Tmag (nr__1) ! (mag) [6.5/14]? TESS magnitude (1)
real*4 rpmag (nr__1) ! (mag) [6.5/14.1]? Gaia RP magnitude (2)
real*4 R_tic (nr__1) ! (Rsun) [0.1/23.1]? Stellar radii, TESS input catalog (1)
real*4 R_gaia (nr__1) ! (Rsun) [0.5/105]? Stellar radius, Gaia DR2 (2)
real*4 R_her (nr__1) ! (Rsun) [0.4/100.5]? Stellar radius, TESS-HERMES survey (3)
real*4 M_tic (nr__1) ! (Msun) [0.1/2.4]? Stellar mass, TESS Input Catalog (1)
real*4 Per_1 (nr__1) ! (d) [0.2/6] Observed period of transit signal
real*4 Rp_R__1 (nr__1) ! [0.03/0.3] Ratio, planet radius to host star radius
character*3 Label_1 (nr__1) ! Label(s) (G1)
*Note (1): TESS Input Catalog (TIC): Stassun+, 2018, J/AJ/156/102
*Note (2): Gaia DR2: Gaia Collaboration, 2018, I/345 ;
* <<Gaia DR2 NNNNNNNNNNNNNNNNNNN> in Simbad.
*Note (3): TESS-HERMES survey: Sharma+ 2018MNRAS.473.2004S
C=============================================================================
C Loading file 'table2.dat' ! Fitted parameters of exoplanet candidates
* from AST3-II observations in 2016
C Format for file interpretation
1 format(
+ 6X,F8.4,F8.4,1X,F5.2,1X,F11.6,1X,F6.4,1X,F5.3,1X,F5.3,1X,F4.1,
+ 1X,F5.3,1X,F6.3,1X,F5.2,1X,F4.2,1X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,222
read(1,'(A92)')ar__
read(ar__,1)
+ RAdeg(i__),DEdeg(i__),imag(i__),Epoch(i__),Per(i__),dmag(i__),
+ Tdur(i__),SRN(i__),Rp_R_(i__),a_R_(i__),Inc(i__),eta(i__),
+ Label(i__)
c ..............Just test output...........
write(6,1)
+ RAdeg(i__),DEdeg(i__),imag(i__),Epoch(i__),Per(i__),dmag(i__),
+ Tdur(i__),SRN(i__),Rp_R_(i__),a_R_(i__),Inc(i__),eta(i__),
+ Label(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Stellar properties of exoplanet candidates
* from AST3-II observations in 2016
C Format for file interpretation
2 format(
+ F8.4,F8.4,1X,I9,1X,I1,1X,I19,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,
+ 1X,F6.2,1X,F6.2,1X,F6.4,1X,F6.4,1X,F5.3,1X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,222
read(1,'(A110)')ar__1
read(ar__1,2)
+ RAdeg_1(i__),DEdeg_1(i__),TIC(i__),Flag(i__),Gaia(i__),
+ imag_1(i__),Tmag(i__),rpmag(i__),R_tic(i__),R_gaia(i__),
+ R_her(i__),M_tic(i__),Per_1(i__),Rp_R__1(i__),Label_1(i__)
if(ar__1(18:26) .EQ. '') TIC(i__) = iNULL__
if(ar__1(30:48) .EQ. '') Gaia(i__) = iNULL__
if(ar__1(56:60) .EQ. '') Tmag(i__) = rNULL__
if(ar__1(62:66) .EQ. '') rpmag(i__) = rNULL__
if(ar__1(68:72) .EQ. '') R_tic(i__) = rNULL__
if(ar__1(74:79) .EQ. '') R_gaia(i__) = rNULL__
if(ar__1(81:86) .EQ. '') R_her(i__) = rNULL__
if(ar__1(88:93) .EQ. '') M_tic(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ RAdeg_1(i__),DEdeg_1(i__),TIC(i__),Flag(i__),Gaia(i__),
+ imag_1(i__),Tmag(i__),rpmag(i__),R_tic(i__),R_gaia(i__),
+ R_her(i__),M_tic(i__),Per_1(i__),Rp_R__1(i__),Label_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end