Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/531/A24 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 2024-Mar-28 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/531/A24 WASP-23 photometric and radial velocity data (Triaud+, 2011) *================================================================================ *WASP-23b: a transiting hot Jupiter around a K dwarf and its Rossiter-McLaughlin *effect. * Triaud A.H.M.J., Queloz D., Hellier C., Gillon M., Smalley B., Hebb L., * Collier Cameron A., Anderson D., Boisse I., Hebrard G., Jehin E., * Lister T., Lovis C., Maxted P.F.L., Pepe F., Pollacco D., Segransan D., * Simpson E., Udry S., West R. * <Astron. Astrophys. 531, A24 (2011)> * =2011A&A...531A..24T C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'lc1.dat' ! WASP-South R band photometry integer*4 nr__ parameter (nr__=3684) ! Number of records character*35 ar__ ! Full-size record real*8 BJD ! (d) Barycentric Julian Date real*8 Flux ! Normalised flux real*8 e_Flux ! ?=9.999999 1 {sigma} error bar on the flux c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'lc2.dat' ! WASP-South R band photometry integer*4 nr__1 parameter (nr__1=7139) ! Number of records character*35 ar__1 ! Full-size record real*8 BJD_1 ! (d) Barycentric Julian Date real*8 Flux_1 ! Normalised flux real*8 e_Flux_1 ! ?=9.999999 1 {sigma} error bar on the flux c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'lc3.dat' ! Euler z band photometry integer*4 nr__2 parameter (nr__2=252) ! Number of records character*35 ar__2 ! Full-size record real*8 BJD_2 ! (d) Barycentric Julian Date real*8 Flux_2 ! Normalised flux real*8 e_Flux_2 ! ?=9.999999 1 {sigma} error bar on the flux c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'lc4.dat' ! Euler Gunn R band photometry integer*4 nr__3 parameter (nr__3=183) ! Number of records character*35 ar__3 ! Full-size record real*8 BJD_3 ! (d) Barycentric Julian Date real*8 Flux_3 ! Normalised flux real*8 e_Flux_3 ! ?=9.999999 1 {sigma} error bar on the flux c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'lc5.dat' ! FTS z' band photometry integer*4 nr__4 parameter (nr__4=215) ! Number of records character*35 ar__4 ! Full-size record real*8 BJD_4 ! (d) Barycentric Julian Date real*8 Flux_4 ! Normalised flux real*8 e_Flux_4 ! ?=9.999999 1 {sigma} error bar on the flux c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'lc6.dat' ! TRAPPIST I+z band photometry integer*4 nr__5 parameter (nr__5=264) ! Number of records character*35 ar__5 ! Full-size record real*8 BJD_5 ! (d) Barycentric Julian Date real*8 Flux_5 ! Normalised flux real*8 e_Flux_5 ! ?=9.999999 1 {sigma} error bar on the flux c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'lc7.dat' ! TRAPPIST I+z band photometry integer*4 nr__6 parameter (nr__6=235) ! Number of records character*35 ar__6 ! Full-size record real*8 BJD_6 ! (d) Barycentric Julian Date real*8 Flux_6 ! Normalised flux real*8 e_Flux_6 ! ?=9.999999 1 {sigma} error bar on the flux c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'rv1.dat' ! CORALIE Radial velocities integer*4 nr__7 parameter (nr__7=38) ! Number of records character*57 ar__7 ! Full-size record real*8 BJD_7 ! (d) Barycentric Julian Date real*8 RV ! (km/s) Radial velocity real*8 e_RV ! (km/s) 1 {sigma} photon noise error bars on RV real*8 Span ! (km/s) Span of the bissector slopes real*8 FWHM ! (km/s) Full Width Half Maximum of the Cross * Correlation Function integer*4 ExpTime ! (s) Exposure time c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'rv2.dat' ! HARPS Radial velocities integer*4 nr__8 parameter (nr__8=35) ! Number of records character*57 ar__8 ! Full-size record real*8 BJD_8 ! (d) Barycentric Julian Date real*8 RV_1 ! (km/s) Radial velocity real*8 e_RV_1 ! (km/s) 1 {sigma} photon noise error bars on RV real*8 Span_1 ! (km/s) Span of the bissector slopes real*8 FWHM_1 ! (km/s) Full Width Half Maximum of the Cross * Correlation Function integer*4 ExpTime_1 ! (s) Exposure time C============================================================================= C Loading file 'lc1.dat' ! WASP-South R band photometry C Format for file interpretation 1 format(F15.7,2X,F8.6,2X,F8.6) C Effective file loading open(unit=1,status='old',file= +'lc1.dat') write(6,*) '....Loading file: lc1.dat' do i__=1,3684 read(1,'(A35)')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 'lc2.dat' ! WASP-South R band photometry C Format for file interpretation 2 format(F15.7,2X,F8.6,2X,F8.6) C Effective file loading open(unit=1,status='old',file= +'lc2.dat') write(6,*) '....Loading file: lc2.dat' do i__=1,7139 read(1,'(A35)')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 'lc3.dat' ! Euler z band photometry C Format for file interpretation 3 format(F15.7,2X,F8.6,2X,F8.6) C Effective file loading open(unit=1,status='old',file= +'lc3.dat') write(6,*) '....Loading file: lc3.dat' do i__=1,252 read(1,'(A35)')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 'lc4.dat' ! Euler Gunn R band photometry C Format for file interpretation 4 format(F15.7,2X,F8.6,2X,F8.6) C Effective file loading open(unit=1,status='old',file= +'lc4.dat') write(6,*) '....Loading file: lc4.dat' do i__=1,183 read(1,'(A35)')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 'lc5.dat' ! FTS z' band photometry C Format for file interpretation 5 format(F15.7,2X,F8.6,2X,F8.6) C Effective file loading open(unit=1,status='old',file= +'lc5.dat') write(6,*) '....Loading file: lc5.dat' do i__=1,215 read(1,'(A35)')ar__4 read(ar__4,5)BJD_4,Flux_4,e_Flux_4 c ..............Just test output........... write(6,5)BJD_4,Flux_4,e_Flux_4 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'lc6.dat' ! TRAPPIST I+z band photometry C Format for file interpretation 6 format(F15.7,2X,F8.6,2X,F8.6) C Effective file loading open(unit=1,status='old',file= +'lc6.dat') write(6,*) '....Loading file: lc6.dat' do i__=1,264 read(1,'(A35)')ar__5 read(ar__5,6)BJD_5,Flux_5,e_Flux_5 c ..............Just test output........... write(6,6)BJD_5,Flux_5,e_Flux_5 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'lc7.dat' ! TRAPPIST I+z band photometry C Format for file interpretation 7 format(F15.7,2X,F8.6,2X,F8.6) C Effective file loading open(unit=1,status='old',file= +'lc7.dat') write(6,*) '....Loading file: lc7.dat' do i__=1,235 read(1,'(A35)')ar__6 read(ar__6,7)BJD_6,Flux_6,e_Flux_6 c ..............Just test output........... write(6,7)BJD_6,Flux_6,e_Flux_6 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'rv1.dat' ! CORALIE Radial velocities C Format for file interpretation 8 format(F14.6,2X,F7.5,2X,F7.5,2X,F8.5,2X,F7.5,2X,I4) C Effective file loading open(unit=1,status='old',file= +'rv1.dat') write(6,*) '....Loading file: rv1.dat' do i__=1,38 read(1,'(A57)')ar__7 read(ar__7,8)BJD_7,RV,e_RV,Span,FWHM,ExpTime c ..............Just test output........... write(6,8)BJD_7,RV,e_RV,Span,FWHM,ExpTime c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'rv2.dat' ! HARPS Radial velocities C Format for file interpretation 9 format(F14.6,2X,F7.5,2X,F7.5,2X,F8.5,2X,F7.5,2X,I4) C Effective file loading open(unit=1,status='old',file= +'rv2.dat') write(6,*) '....Loading file: rv2.dat' do i__=1,35 read(1,'(A57)')ar__8 read(ar__8,9)BJD_8,RV_1,e_RV_1,Span_1,FWHM_1,ExpTime_1 c ..............Just test output........... write(6,9)BJD_8,RV_1,e_RV_1,Span_1,FWHM_1,ExpTime_1 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end