Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/657/A52 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-Jun-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/657/A52 CHEOPS transit light curves of WASP-103 b (Barros+, 2022)
*================================================================================
*Detection of the tidal deformation of WASP-103b at 3 sigma with CHEOPS.
* Barros S., Akinsanmi B., Boue G., Smith A.M.S., Laskar J., Ulmer-Moll S.,
* Lillo-Box J., Queloz D., Collier Cameron A., Sousa S.G., Ehrenreich D.,
* Hooton M.J., Bruno G., Demory B.-O., Correia A.C.M., Demangeon O.D.S.,
* Wilson T.G., Bonfanti A., Hoyer S., Alibert Y., Alonso R.,
* Anglada Escude G., Barbato D., Barczy T., Barrado D., Baumjohann W.,
* Beck M., Beck T., Benz W., Bergomi M., Billot N., Bonfils X., Bouchy F.,
* Brandeker A., Broeg C., Cabrera J., Cessa V., Charnoz S., Damme C.C.V.,
* Davies M.B., Deleuil M., Deline A., Delrez L., Erikson A., Fortier A.,
* Fossati L., Fridlund M., Gandolfi D., Garcia Munoz A., Gillon M., Guedel M.,
* Isaak K.G., Heng K., Kiss L., Lecavelier des Etangs A., Lendl M., Lovis C.,
* Magrin D., Nascimbeni V., Maxted P.F.L., Olofsson G., Ottensamer R.,
* Pagano I., Palle E., Parviainen H., Peter G., Piotto G., Pollacco D.,
* Ragazzoni R., Rando N., Rauer H., Ribas I., Santos N.C., Scandariato G.,
* Segransan D., Simon A.E., Steller M., Szabo Gy.M., Thomas N., Udry S.,
* Ulmer B., Van Grootel V., Walton N.A.
* <Astron. Astrophys. 657, A52 (2022)>
* =2022A&A...657A..52B (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'lccorr.dat' ! Detrended CHEOPS photometry of WASP-103
integer*4 nr__
parameter (nr__=5172) ! Number of records
character*78 ar__ ! Full-size record
real*8 BJD ! (d) Barycentric Julian Date (BJD-2400000)
real*8 Flux ! Normalized flux
real*8 e_Flux ! Normalized flux error
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'lcraw.dat' ! Raw CHEOPS photometry of WASP-103
integer*4 nr__1
parameter (nr__1=5221) ! Number of records
character*78 ar__1 ! Full-size record
real*8 BJD_1 ! (d) Barycentric Julian Date (BJD-2400000)
real*8 Flux_1 ! Normalized flux
real*8 e_Flux_1 ! Normalized flux error
C=============================================================================
C Loading file 'lccorr.dat' ! Detrended CHEOPS photometry of WASP-103
C Format for file interpretation
1 format(F26.20,6X,F22.20,2X,F22.20)
C Effective file loading
open(unit=1,status='old',file=
+'lccorr.dat')
write(6,*) '....Loading file: lccorr.dat'
do i__=1,5172
read(1,'(A78)')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 'lcraw.dat' ! Raw CHEOPS photometry of WASP-103
C Format for file interpretation
2 format(F26.20,6X,F22.20,2X,F22.20)
C Effective file loading
open(unit=1,status='old',file=
+'lcraw.dat')
write(6,*) '....Loading file: lcraw.dat'
do i__=1,5221
read(1,'(A78)')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=============================================================================
stop
end