Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/649/A26 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-Sep-08
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/A+A/649/A26 TOI-178 six transiting planets (Leleu+, 2021)
*================================================================================
*Six transiting planets and a chain of Laplace resonances in TOI-178.
* Leleu A., Alibert Y., Hara N.C., Hooton M.J., Wilson T.G., Robutel P.,
* Delisle J.-B., Laskar J., Hoyer S., Lovis C., Bryant E.M., Ducrot E.,
* Cabrera J., Delrez L., Acton J. S., Adibekyan V., Allart R.,
* Allende Prieto C., Alonso R., Alves D. Anderson D.R., Angerhausen D.,
* Anglada Escude G., Asquier J., Barrado D., Barros S.C.C., Baumjohann W.,
* Bayliss D., Beck M., Beck T., Bekkelien A., Benz W., Billot N., Bonfanti A.,
* Bonfils X., Bouchy F., Bourrier V., Boue G., Brandeker A., Broeg C.,
* Buder M., Burdanov A., Burleigh M.R., Barczy T., Cameron A.C.,
* Chamberlain S., Charnoz S., Cooke B.F., Corral Van Damme C., Correia A.C.M.,
* Cristiani S., Damasso M., Davies M. B., Deleuil M., Demangeon O.D.S.,
* Demory B.-O., Di Marcantonio P., Di Persio G., Dumusque X., Ehrenreich D.,
* Erikson A., Figueira P., Fortier A., Fossati L., Fridlund M., Futyan D.,
* Gandolfi D., Garcia Munoz A., Garcia L. J., Gill S., Gillen E., Gillon M.,
* Goad M. R., Gonzalez Hernandez J.I., Guedel M., Guenther M.N., Haldemann J.,
* Henderson B., Heng K., Hogan A. E., Isaak K., Jehin E., Jenkins J.S.,
* Jordan A., Kiss L., Kristiansen M.H., Lam K., Lavie B.,
* Lecavelier des Etangs A., Lendl M., Lillo-Box J., Lo Curto G., Magrin D.,
* Martins C.J.A.P., Maxted P.F.L., McCormac J., Mehner A., Micela G.,
* Molaro P., Moyano M., Murray C.A., Nascimbeni V., Nunes N.J., Olofsson G.,
* Osborn H.P., Oshagh M., Ottensamer R., Pagano I., Palle E., Pedersen P.P.,
* Pepe F.A., Persson C.M., Peter G., Piotto G., Polenta G., Pollacco D.,
* Poretti E., Pozuelos F.J., Queloz D., Ragazzoni R., Rando N., Ratti F.,
* Rauer H., Raynard L., Rebolo R., Reimers C., Ribas I., Santos N.C.,
* Scandariato G., Schneider J., Sebastian D., Sestovic M., Simon A.E.,
* Smith A.M.S., Sousa S.G., Sozzetti A., Steller M., Suarez Mascareno A.,
* Szabo Gy. M., Segransan D., Thomas N., Thompson S., Tilbrook R.H.,
* Triaud A., Turner O., Udry S., Van Grootel V., Venus H., Verrecchia F.,
* Vines J.I., Walton N.A., West R.G., Wheatley P.J., Wolter D.,
* Zapatero Osorio M.R.
* <Astron. Astrophys. 649, A26 (2021)>
* =2021A&A...649A..26L (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ch1_det.dat' ! CHEOPS visit 1 detrended fluxes
integer*4 nr__
parameter (nr__=3202) ! Number of records
character*59 ar__ ! Full-size record
real*8 BJD (nr__) ! (d) Barycentric Julian date (TDB)
real*8 Flux (nr__) ! Detrended normalised flux
real*8 e_Flux (nr__) ! rms uncertainty on detrended normalised flux
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ch2_det.dat' ! CHEOPS visit 2 detrended fluxes
integer*4 nr__1
parameter (nr__1=5555) ! Number of records
character*59 ar__1 ! Full-size record
real*8 BJD_1 (nr__1) ! (d) Barycentric Julian date (TDB)
real*8 Flux_1 (nr__1) ! Detrended normalised flux
real*8 e_Flux_1 (nr__1) ! rms uncertainty on detrended normalised flux
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ch3_det.dat' ! CHEOPS visit 3 detrended fluxes
integer*4 nr__2
parameter (nr__2=551) ! Number of records
character*59 ar__2 ! Full-size record
real*8 BJD_2 (nr__2) ! (d) Barycentric Julian date (TDB)
real*8 Flux_2 (nr__2) ! Detrended normalised flux
real*8 e_Flux_2 (nr__2) ! rms uncertainty on detrended normalised flux
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ch4_det.dat' ! CHEOPS visit 4 detrended fluxes
integer*4 nr__3
parameter (nr__3=392) ! Number of records
character*59 ar__3 ! Full-size record
real*8 BJD_3 (nr__3) ! (d) Barycentric Julian date (TDB)
real*8 Flux_3 (nr__3) ! Detrended normalised flux
real*8 e_Flux_3 (nr__3) ! rms uncertainty on detrended normalised flux
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ch1_raw.dat' ! CHEOPS visit 1 raw data
integer*4 nr__4
parameter (nr__4=3252) ! Number of records
character*201 ar__4 ! Full-size record
real*8 BJD_4 (nr__4) ! (d) Barycentric Julian date (BJD-2450000)
real*8 Flux_4 (nr__4) ! Normalised flux
real*8 e_Flux_4 (nr__4) ! Normalised flux error
real*8 xshift (nr__4) ! X shift
real*8 yshift (nr__4) ! Y shift
real*8 Roll (nr__4) ! Roll parameter
real*8 Contam (nr__4) ! Contamination parameter
real*8 Bckg (nr__4) ! Background parameter
real*4 Smear (nr__4) ! Smearing parameter
real*8 deltaT (nr__4) ! Time span
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ch2_raw.dat' ! CHEOPS visit 2 raw data
integer*4 nr__5
parameter (nr__5=5653) ! Number of records
character*201 ar__5 ! Full-size record
real*8 BJD_5 (nr__5) ! (d) Barycentric Julian date (BJD-2450000)
real*8 Flux_5 (nr__5) ! Normalised flux
real*8 e_Flux_5 (nr__5) ! Normalised flux error
real*8 xshift_1 (nr__5) ! X shift
real*8 yshift_1 (nr__5) ! Y shift
real*8 Roll_1 (nr__5) ! Roll parameter
real*8 Contam_1 (nr__5) ! Contamination parameter
real*8 Bckg_1 (nr__5) ! Background parameter
real*4 Smear_1 (nr__5) ! Smearing parameter
real*8 deltaT_1 (nr__5) ! Time span
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ch3_raw.dat' ! CHEOPS visit 3 raw data
integer*4 nr__6
parameter (nr__6=559) ! Number of records
character*201 ar__6 ! Full-size record
real*8 BJD_6 (nr__6) ! (d) Barycentric Julian date (BJD-2450000)
real*8 Flux_6 (nr__6) ! Normalised flux
real*8 e_Flux_6 (nr__6) ! Normalised flux error
real*8 xshift_2 (nr__6) ! X shift
real*8 yshift_2 (nr__6) ! Y shift
real*8 Roll_2 (nr__6) ! Roll parameter
real*8 Contam_2 (nr__6) ! Contamination parameter
real*8 Bckg_2 (nr__6) ! Background parameter
real*4 Smear_2 (nr__6) ! Smearing parameter
real*8 deltaT_2 (nr__6) ! Time span
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ch4_raw.dat' ! CHEOPS visit 4 raw data
integer*4 nr__7
parameter (nr__7=424) ! Number of records
character*201 ar__7 ! Full-size record
real*8 BJD_7 (nr__7) ! (d) Barycentric Julian date (BJD-2450000)
real*8 Flux_7 (nr__7) ! Normalised flux
real*8 e_Flux_7 (nr__7) ! Normalised flux error
real*8 xshift_3 (nr__7) ! X shift
real*8 yshift_3 (nr__7) ! Y shift
real*8 Roll_3 (nr__7) ! Roll parameter
real*8 Contam_3 (nr__7) ! Contamination parameter
real*8 Bckg_3 (nr__7) ! Background parameter
real*4 Smear_3 (nr__7) ! Smearing parameter
real*8 deltaT_3 (nr__7) ! Time span
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'spec.dat' ! SPECULOOS data
integer*4 nr__8
parameter (nr__8=36) ! Number of records
character*59 ar__8 ! Full-size record
real*8 BJD_8 (nr__8) ! (d) Binned barycentric Julain date (BJD-2450000)
real*8 DFlux (nr__8) ! Binned differential flux
real*8 e_DFlux (nr__8) ! Binned differential flux error
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ng1_det.dat' ! NGTS visit 1 detrended fluxes
integer*4 nr__9
parameter (nr__9=13943) ! Number of records
character*59 ar__9 ! Full-size record
real*8 BJD_9 (nr__9) ! (d) Barycentric Julian date (TDB)
real*8 Flux_8 (nr__9) ! Detrended normalised flux
real*8 e_Flux_8 (nr__9) ! rms uncertainty on detrended normalised flux
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ng2_det.dat' ! NGTS visit 2 detrended fluxes
integer*4 nr__10
parameter (nr__10=12840) ! Number of records
character*59 ar__10 ! Full-size record
real*8 BJD_10 (nr__10) ! (d) Barycentric Julian date (TDB)
real*8 Flux_9 (nr__10) ! Detrended normalised flux
real*8 e_Flux_9 (nr__10) ! rms uncertainty on detrended normalised flux
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ng1_raw.dat' ! *NGTS visit 1 raw data on night UT 10/09/2019
integer*4 nr__11
parameter (nr__11=13943) ! Number of records
character*87 ar__11 ! Full-size record
real*8 BJD_11 (nr__11) ! (d) Barycentric Julian date (TDB)
real*8 Flux_10 (nr__11) ! Normalised target flux
real*8 e_Flux_10 (nr__11) ! Normalised target flux error
real*8 DFlux_1 (nr__11) ! Normalised detrended target flux
real*8 AirmassM (nr__11) ! Airmass detrend model
real*8 Model (nr__11) ! Transit Model
real*8 Airmass (nr__11) ! Airmass
integer*4 ID (nr__11) ! Action IDs
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ng2_raw.dat' ! *NGTS visit 2 raw data on night UT 11/10/2019
integer*4 nr__12
parameter (nr__12=12840) ! Number of records
character*87 ar__12 ! Full-size record
real*8 BJD_12 (nr__12) ! (d) Barycentric Julian date (TDB)
real*8 Flux_11 (nr__12) ! Normalised target flux
real*8 e_Flux_11 (nr__12) ! Normalised target flux error
real*8 DFlux_2 (nr__12) ! Normalised detrended target flux
real*8 AirmassM_1 (nr__12) ! Airmass detrend model
real*8 Model_1 (nr__12) ! Transit Model
real*8 Airmass_1 (nr__12) ! Airmass
integer*4 ID_1 (nr__12) ! Action IDs
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'espresso.dat' ! ESPRESSO data
integer*4 nr__13
parameter (nr__13=46) ! Number of records
character*202 ar__13 ! Full-size record
real*8 RJD (nr__13) ! Reduced Julian date (JD-2400000)
real*8 RV (nr__13) ! (km/s) Radial velocity
real*8 e_RV (nr__13) ! (km/s) Radial velocity error
real*8 FWHM (nr__13) ! FWHM of the CCF
real*8 e_FWHM (nr__13) ! FWHM of the CCF error
real*8 BISspan (nr__13) ! Bisector span of the CCF
real*8 e_BISspan (nr__13) ! Bisector span of the CCF error
real*8 Contrast (nr__13) ! Contrast of the CCF
real*8 e_Contrast (nr__13) ! Contrast of the CCF error
real*8 SMW (nr__13) ! Mount-Wilson S index
real*8 e_SMW (nr__13) ! Mount-Wilson S index error
real*8 Ha (nr__13) ! H{alpha} activity index
real*8 e_Ha (nr__13) ! H{alpha} activity index error
real*8 Na (nr__13) ! Na activity index
real*8 e_Na (nr__13) ! Na activity index error
real*8 Ca (nr__13) ! Ca activity index
real*8 e_Ca (nr__13) ! Ca activity index error
real*8 RHK (nr__13) ! logR'HK activity index
real*8 e_RHK (nr__13) ! logR'HK activity index error
real*8 BERV (nr__13) ! Barycentric Earth radial velocity
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tess_det.dat' ! TESS sector 2 detrended fluxes
integer*4 nr__14
parameter (nr__14=18316) ! Number of records
character*59 ar__14 ! Full-size record
real*8 BJD_13 (nr__14) ! (d) Barycentric Julian date (TDB)
real*8 Flux_12 (nr__14) ! Detrended normalised flux
real*8 e_Flux_12 (nr__14) ! rms uncertainty on detrended normalised flux
C=============================================================================
C Loading file 'ch1_det.dat' ! CHEOPS visit 1 detrended fluxes
C Format for file interpretation
1 format(F18.10,1X,F18.16,1X,F21.19)
C Effective file loading
open(unit=1,status='old',file=
+'ch1_det.dat')
write(6,*) '....Loading file: ch1_det.dat'
do i__=1,3202
read(1,'(A59)')ar__
read(ar__,1)BJD(i__),Flux(i__),e_Flux(i__)
c ..............Just test output...........
write(6,1)BJD(i__),Flux(i__),e_Flux(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ch2_det.dat' ! CHEOPS visit 2 detrended fluxes
C Format for file interpretation
2 format(F18.10,1X,F18.16,1X,F21.19)
C Effective file loading
open(unit=1,status='old',file=
+'ch2_det.dat')
write(6,*) '....Loading file: ch2_det.dat'
do i__=1,5555
read(1,'(A59)')ar__1
read(ar__1,2)BJD_1(i__),Flux_1(i__),e_Flux_1(i__)
c ..............Just test output...........
write(6,2)BJD_1(i__),Flux_1(i__),e_Flux_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ch3_det.dat' ! CHEOPS visit 3 detrended fluxes
C Format for file interpretation
3 format(F18.10,1X,F18.16,1X,F21.19)
C Effective file loading
open(unit=1,status='old',file=
+'ch3_det.dat')
write(6,*) '....Loading file: ch3_det.dat'
do i__=1,551
read(1,'(A59)')ar__2
read(ar__2,3)BJD_2(i__),Flux_2(i__),e_Flux_2(i__)
c ..............Just test output...........
write(6,3)BJD_2(i__),Flux_2(i__),e_Flux_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ch4_det.dat' ! CHEOPS visit 4 detrended fluxes
C Format for file interpretation
4 format(F18.10,1X,F18.16,1X,F21.19)
C Effective file loading
open(unit=1,status='old',file=
+'ch4_det.dat')
write(6,*) '....Loading file: ch4_det.dat'
do i__=1,392
read(1,'(A59)')ar__3
read(ar__3,4)BJD_3(i__),Flux_3(i__),e_Flux_3(i__)
c ..............Just test output...........
write(6,4)BJD_3(i__),Flux_3(i__),e_Flux_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ch1_raw.dat' ! CHEOPS visit 1 raw data
C Format for file interpretation
5 format(
+ F17.12,1X,F18.16,1X,F21.19,1X,F17.15,1X,F17.14,1X,F20.16,1X,
+ F22.20,1X,F20.11,1X,E22.17,1X,F18.15)
C Effective file loading
open(unit=1,status='old',file=
+'ch1_raw.dat')
write(6,*) '....Loading file: ch1_raw.dat'
do i__=1,3252
read(1,'(A201)')ar__4
read(ar__4,5)
+ BJD_4(i__),Flux_4(i__),e_Flux_4(i__),xshift(i__),yshift(i__),
+ Roll(i__),Contam(i__),Bckg(i__),Smear(i__),deltaT(i__)
c ..............Just test output...........
write(6,5)
+ BJD_4(i__),Flux_4(i__),e_Flux_4(i__),xshift(i__),yshift(i__),
+ Roll(i__),Contam(i__),Bckg(i__),Smear(i__),deltaT(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ch2_raw.dat' ! CHEOPS visit 2 raw data
C Format for file interpretation
6 format(
+ F17.12,1X,F18.16,1X,F21.19,1X,F17.15,1X,F17.14,1X,F20.16,1X,
+ F22.20,1X,F20.11,1X,E22.17,1X,F18.15)
C Effective file loading
open(unit=1,status='old',file=
+'ch2_raw.dat')
write(6,*) '....Loading file: ch2_raw.dat'
do i__=1,5653
read(1,'(A201)')ar__5
read(ar__5,6)
+ BJD_5(i__),Flux_5(i__),e_Flux_5(i__),xshift_1(i__),
+ yshift_1(i__),Roll_1(i__),Contam_1(i__),Bckg_1(i__),
+ Smear_1(i__),deltaT_1(i__)
c ..............Just test output...........
write(6,6)
+ BJD_5(i__),Flux_5(i__),e_Flux_5(i__),xshift_1(i__),
+ yshift_1(i__),Roll_1(i__),Contam_1(i__),Bckg_1(i__),
+ Smear_1(i__),deltaT_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ch3_raw.dat' ! CHEOPS visit 3 raw data
C Format for file interpretation
7 format(
+ F17.12,1X,F18.16,1X,F21.19,1X,F17.15,1X,F17.14,1X,F20.16,1X,
+ F22.20,1X,F20.11,1X,E22.17,1X,F18.15)
C Effective file loading
open(unit=1,status='old',file=
+'ch3_raw.dat')
write(6,*) '....Loading file: ch3_raw.dat'
do i__=1,559
read(1,'(A201)')ar__6
read(ar__6,7)
+ BJD_6(i__),Flux_6(i__),e_Flux_6(i__),xshift_2(i__),
+ yshift_2(i__),Roll_2(i__),Contam_2(i__),Bckg_2(i__),
+ Smear_2(i__),deltaT_2(i__)
c ..............Just test output...........
write(6,7)
+ BJD_6(i__),Flux_6(i__),e_Flux_6(i__),xshift_2(i__),
+ yshift_2(i__),Roll_2(i__),Contam_2(i__),Bckg_2(i__),
+ Smear_2(i__),deltaT_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ch4_raw.dat' ! CHEOPS visit 4 raw data
C Format for file interpretation
8 format(
+ F17.12,1X,F18.16,1X,F21.19,1X,F17.15,1X,F17.14,1X,F20.16,1X,
+ F22.20,1X,F20.11,1X,E22.17,1X,F18.15)
C Effective file loading
open(unit=1,status='old',file=
+'ch4_raw.dat')
write(6,*) '....Loading file: ch4_raw.dat'
do i__=1,424
read(1,'(A201)')ar__7
read(ar__7,8)
+ BJD_7(i__),Flux_7(i__),e_Flux_7(i__),xshift_3(i__),
+ yshift_3(i__),Roll_3(i__),Contam_3(i__),Bckg_3(i__),
+ Smear_3(i__),deltaT_3(i__)
c ..............Just test output...........
write(6,8)
+ BJD_7(i__),Flux_7(i__),e_Flux_7(i__),xshift_3(i__),
+ yshift_3(i__),Roll_3(i__),Contam_3(i__),Bckg_3(i__),
+ Smear_3(i__),deltaT_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'spec.dat' ! SPECULOOS data
C Format for file interpretation
9 format(F17.12,1X,F18.16,1X,F22.20)
C Effective file loading
open(unit=1,status='old',file=
+'spec.dat')
write(6,*) '....Loading file: spec.dat'
do i__=1,36
read(1,'(A59)')ar__8
read(ar__8,9)BJD_8(i__),DFlux(i__),e_DFlux(i__)
c ..............Just test output...........
write(6,9)BJD_8(i__),DFlux(i__),e_DFlux(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ng1_det.dat' ! NGTS visit 1 detrended fluxes
C Format for file interpretation
10 format(F18.10,1X,F18.16,1X,F21.19)
C Effective file loading
open(unit=1,status='old',file=
+'ng1_det.dat')
write(6,*) '....Loading file: ng1_det.dat'
do i__=1,13943
read(1,'(A59)')ar__9
read(ar__9,10)BJD_9(i__),Flux_8(i__),e_Flux_8(i__)
c ..............Just test output...........
write(6,10)BJD_9(i__),Flux_8(i__),e_Flux_8(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ng2_det.dat' ! NGTS visit 2 detrended fluxes
C Format for file interpretation
11 format(F18.10,1X,F18.16,1X,F21.19)
C Effective file loading
open(unit=1,status='old',file=
+'ng2_det.dat')
write(6,*) '....Loading file: ng2_det.dat'
do i__=1,12840
read(1,'(A59)')ar__10
read(ar__10,11)BJD_10(i__),Flux_9(i__),e_Flux_9(i__)
c ..............Just test output...........
write(6,11)BJD_10(i__),Flux_9(i__),e_Flux_9(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ng1_raw.dat' ! *NGTS visit 1 raw data on night UT 10/09/2019
C Format for file interpretation
12 format(
+ F16.8,1X,F10.8,1X,F10.8,1X,F10.8,1X,F10.8,1X,F10.8,1X,F8.6,1X,
+ I6)
C Effective file loading
open(unit=1,status='old',file=
+'ng1_raw.dat')
write(6,*) '....Loading file: ng1_raw.dat'
do i__=1,13943
read(1,'(A87)')ar__11
read(ar__11,12)
+ BJD_11(i__),Flux_10(i__),e_Flux_10(i__),DFlux_1(i__),
+ AirmassM(i__),Model(i__),Airmass(i__),ID(i__)
c ..............Just test output...........
write(6,12)
+ BJD_11(i__),Flux_10(i__),e_Flux_10(i__),DFlux_1(i__),
+ AirmassM(i__),Model(i__),Airmass(i__),ID(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ng2_raw.dat' ! *NGTS visit 2 raw data on night UT 11/10/2019
C Format for file interpretation
13 format(
+ F16.8,1X,F10.8,1X,F10.8,1X,F10.8,1X,F10.8,1X,F10.8,1X,F8.6,1X,
+ I6)
C Effective file loading
open(unit=1,status='old',file=
+'ng2_raw.dat')
write(6,*) '....Loading file: ng2_raw.dat'
do i__=1,12840
read(1,'(A87)')ar__12
read(ar__12,13)
+ BJD_12(i__),Flux_11(i__),e_Flux_11(i__),DFlux_2(i__),
+ AirmassM_1(i__),Model_1(i__),Airmass_1(i__),ID_1(i__)
c ..............Just test output...........
write(6,13)
+ BJD_12(i__),Flux_11(i__),e_Flux_11(i__),DFlux_2(i__),
+ AirmassM_1(i__),Model_1(i__),Airmass_1(i__),ID_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'espresso.dat' ! ESPRESSO data
C Format for file interpretation
14 format(
+ F18.12,1X,F12.6,1X,F8.6,1X,F11.6,1X,F8.6,1X,F10.6,1X,F8.6,1X,
+ F9.6,1X,F8.6,1X,F8.6,1X,F8.6,1X,F8.6,1X,F8.6,1X,F8.6,1X,F8.6,
+ 1X,F8.6,1X,F8.6,1X,F9.6,1X,F8.6,1X,F10.6)
C Effective file loading
open(unit=1,status='old',file=
+'espresso.dat')
write(6,*) '....Loading file: espresso.dat'
do i__=1,46
read(1,'(A202)')ar__13
read(ar__13,14)
+ RJD(i__),RV(i__),e_RV(i__),FWHM(i__),e_FWHM(i__),BISspan(i__),
+ e_BISspan(i__),Contrast(i__),e_Contrast(i__),SMW(i__),
+ e_SMW(i__),Ha(i__),e_Ha(i__),Na(i__),e_Na(i__),Ca(i__),
+ e_Ca(i__),RHK(i__),e_RHK(i__),BERV(i__)
c ..............Just test output...........
write(6,14)
+ RJD(i__),RV(i__),e_RV(i__),FWHM(i__),e_FWHM(i__),BISspan(i__),
+ e_BISspan(i__),Contrast(i__),e_Contrast(i__),SMW(i__),
+ e_SMW(i__),Ha(i__),e_Ha(i__),Na(i__),e_Na(i__),Ca(i__),
+ e_Ca(i__),RHK(i__),e_RHK(i__),BERV(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tess_det.dat' ! TESS sector 2 detrended fluxes
C Format for file interpretation
15 format(F18.10,1X,F18.16,1X,F21.19)
C Effective file loading
open(unit=1,status='old',file=
+'tess_det.dat')
write(6,*) '....Loading file: tess_det.dat'
do i__=1,18316
read(1,'(A59)')ar__14
read(ar__14,15)BJD_13(i__),Flux_12(i__),e_Flux_12(i__)
c ..............Just test output...........
write(6,15)BJD_13(i__),Flux_12(i__),e_Flux_12(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end