Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/649/A26 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-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 ! (d) Barycentric Julian date (TDB)
real*8 Flux ! Detrended normalised flux
real*8 e_Flux ! 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 ! (d) Barycentric Julian date (TDB)
real*8 Flux_1 ! Detrended normalised flux
real*8 e_Flux_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 ! (d) Barycentric Julian date (TDB)
real*8 Flux_2 ! Detrended normalised flux
real*8 e_Flux_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 ! (d) Barycentric Julian date (TDB)
real*8 Flux_3 ! Detrended normalised flux
real*8 e_Flux_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 ! (d) Barycentric Julian date (BJD-2450000)
real*8 Flux_4 ! Normalised flux
real*8 e_Flux_4 ! Normalised flux error
real*8 xshift ! X shift
real*8 yshift ! Y shift
real*8 Roll ! Roll parameter
real*8 Contam ! Contamination parameter
real*8 Bckg ! Background parameter
real*4 Smear ! Smearing parameter
real*8 deltaT ! 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 ! (d) Barycentric Julian date (BJD-2450000)
real*8 Flux_5 ! Normalised flux
real*8 e_Flux_5 ! Normalised flux error
real*8 xshift_1 ! X shift
real*8 yshift_1 ! Y shift
real*8 Roll_1 ! Roll parameter
real*8 Contam_1 ! Contamination parameter
real*8 Bckg_1 ! Background parameter
real*4 Smear_1 ! Smearing parameter
real*8 deltaT_1 ! 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 ! (d) Barycentric Julian date (BJD-2450000)
real*8 Flux_6 ! Normalised flux
real*8 e_Flux_6 ! Normalised flux error
real*8 xshift_2 ! X shift
real*8 yshift_2 ! Y shift
real*8 Roll_2 ! Roll parameter
real*8 Contam_2 ! Contamination parameter
real*8 Bckg_2 ! Background parameter
real*4 Smear_2 ! Smearing parameter
real*8 deltaT_2 ! 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 ! (d) Barycentric Julian date (BJD-2450000)
real*8 Flux_7 ! Normalised flux
real*8 e_Flux_7 ! Normalised flux error
real*8 xshift_3 ! X shift
real*8 yshift_3 ! Y shift
real*8 Roll_3 ! Roll parameter
real*8 Contam_3 ! Contamination parameter
real*8 Bckg_3 ! Background parameter
real*4 Smear_3 ! Smearing parameter
real*8 deltaT_3 ! 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 ! (d) Binned barycentric Julain date (BJD-2450000)
real*8 DFlux ! Binned differential flux
real*8 e_DFlux ! 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 ! (d) Barycentric Julian date (TDB)
real*8 Flux_8 ! Detrended normalised flux
real*8 e_Flux_8 ! 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 ! (d) Barycentric Julian date (TDB)
real*8 Flux_9 ! Detrended normalised flux
real*8 e_Flux_9 ! 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 ! (d) Barycentric Julian date (TDB)
real*8 Flux_10 ! Normalised target flux
real*8 e_Flux_10 ! Normalised target flux error
real*8 DFlux_1 ! Normalised detrended target flux
real*8 AirmassM ! Airmass detrend model
real*8 Model ! Transit Model
real*8 Airmass ! Airmass
integer*4 ID ! 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 ! (d) Barycentric Julian date (TDB)
real*8 Flux_11 ! Normalised target flux
real*8 e_Flux_11 ! Normalised target flux error
real*8 DFlux_2 ! Normalised detrended target flux
real*8 AirmassM_1 ! Airmass detrend model
real*8 Model_1 ! Transit Model
real*8 Airmass_1 ! Airmass
integer*4 ID_1 ! 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 ! Reduced Julian date (JD-2400000)
real*8 RV ! (km/s) Radial velocity
real*8 e_RV ! (km/s) Radial velocity error
real*8 FWHM ! FWHM of the CCF
real*8 e_FWHM ! FWHM of the CCF error
real*8 BISspan ! Bisector span of the CCF
real*8 e_BISspan ! Bisector span of the CCF error
real*8 Contrast ! Contrast of the CCF
real*8 e_Contrast ! Contrast of the CCF error
real*8 SMW ! Mount-Wilson S index
real*8 e_SMW ! Mount-Wilson S index error
real*8 Ha ! H{alpha} activity index
real*8 e_Ha ! H{alpha} activity index error
real*8 Na ! Na activity index
real*8 e_Na ! Na activity index error
real*8 Ca ! Ca activity index
real*8 e_Ca ! Ca activity index error
real*8 RHK ! logR'HK activity index
real*8 e_RHK ! logR'HK activity index error
real*8 BERV ! 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 ! (d) Barycentric Julian date (TDB)
real*8 Flux_12 ! Detrended normalised flux
real*8 e_Flux_12 ! 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,Flux,e_Flux
c ..............Just test output...........
write(6,1)BJD,Flux,e_Flux
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,Flux_1,e_Flux_1
c ..............Just test output...........
write(6,2)BJD_1,Flux_1,e_Flux_1
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,Flux_2,e_Flux_2
c ..............Just test output...........
write(6,3)BJD_2,Flux_2,e_Flux_2
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,Flux_3,e_Flux_3
c ..............Just test output...........
write(6,4)BJD_3,Flux_3,e_Flux_3
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,Flux_4,e_Flux_4,xshift,yshift,Roll,Contam,Bckg,Smear,
+ deltaT
c ..............Just test output...........
write(6,5)
+ BJD_4,Flux_4,e_Flux_4,xshift,yshift,Roll,Contam,Bckg,Smear,
+ deltaT
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,Flux_5,e_Flux_5,xshift_1,yshift_1,Roll_1,Contam_1,
+ Bckg_1,Smear_1,deltaT_1
c ..............Just test output...........
write(6,6)
+ BJD_5,Flux_5,e_Flux_5,xshift_1,yshift_1,Roll_1,Contam_1,
+ Bckg_1,Smear_1,deltaT_1
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,Flux_6,e_Flux_6,xshift_2,yshift_2,Roll_2,Contam_2,
+ Bckg_2,Smear_2,deltaT_2
c ..............Just test output...........
write(6,7)
+ BJD_6,Flux_6,e_Flux_6,xshift_2,yshift_2,Roll_2,Contam_2,
+ Bckg_2,Smear_2,deltaT_2
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,Flux_7,e_Flux_7,xshift_3,yshift_3,Roll_3,Contam_3,
+ Bckg_3,Smear_3,deltaT_3
c ..............Just test output...........
write(6,8)
+ BJD_7,Flux_7,e_Flux_7,xshift_3,yshift_3,Roll_3,Contam_3,
+ Bckg_3,Smear_3,deltaT_3
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,DFlux,e_DFlux
c ..............Just test output...........
write(6,9)BJD_8,DFlux,e_DFlux
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,Flux_8,e_Flux_8
c ..............Just test output...........
write(6,10)BJD_9,Flux_8,e_Flux_8
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,Flux_9,e_Flux_9
c ..............Just test output...........
write(6,11)BJD_10,Flux_9,e_Flux_9
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,Flux_10,e_Flux_10,DFlux_1,AirmassM,Model,Airmass,ID
c ..............Just test output...........
write(6,12)
+ BJD_11,Flux_10,e_Flux_10,DFlux_1,AirmassM,Model,Airmass,ID
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,Flux_11,e_Flux_11,DFlux_2,AirmassM_1,Model_1,Airmass_1,
+ ID_1
c ..............Just test output...........
write(6,13)
+ BJD_12,Flux_11,e_Flux_11,DFlux_2,AirmassM_1,Model_1,Airmass_1,
+ ID_1
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,RV,e_RV,FWHM,e_FWHM,BISspan,e_BISspan,Contrast,e_Contrast,
+ SMW,e_SMW,Ha,e_Ha,Na,e_Na,Ca,e_Ca,RHK,e_RHK,BERV
c ..............Just test output...........
write(6,14)
+ RJD,RV,e_RV,FWHM,e_FWHM,BISspan,e_BISspan,Contrast,e_Contrast,
+ SMW,e_SMW,Ha,e_Ha,Na,e_Na,Ca,e_Ca,RHK,e_RHK,BERV
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,Flux_12,e_Flux_12
c ..............Just test output...........
write(6,15)BJD_13,Flux_12,e_Flux_12
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end