Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/534/A16 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 2024-Mar-19 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/534/A16 WASP-22 and WASP-26 photometry and velocities (Anderson+, 2011) *================================================================================ *Spin-orbit measurements and refined parameters for the exoplanet systems *WASP-22 and WASP-26. * Anderson D.R., Collier Cameron A., Gillon M., Hellier C., Jehin E., * Lendl M., Queloz D., Smalley B., Triaud A.H.M.J., Vanhuysse M. * <Astron. Astrophys. 534, A16 (2011)> * =2011A&A...534A..16A C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'phot.dat' ! *WASP-22 and WASP-26 dereddened and normalised differential photometry from TRAPPIST, Euler and Oversky integer*4 nr__ parameter (nr__=1550) ! Number of records character*50 ar__ ! Full-size record real*8 HJD (nr__) ! (d) Heliocentric Julian Date (UTC) real*8 RFlux (nr__) ! Flux (relative) real*8 e_RFlux (nr__) ! Uncertainty on RFlux character*8 Inst (nr__) ! Instrument used (TRAPPIST, Euler or Oversky) character*7 Star (nr__) ! Star (WASP-22 or WASP-26) integer*4 idx (nr__) ! [1/5] Transit data-set index c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'rv.dat' ! WASP-22 and WASP-26 radial velocities measured by the HARPS spectrograph integer*4 nr__1 parameter (nr__1=64) ! Number of records character*56 ar__1 ! Full-size record real*8 BJD (nr__1) ! (d) Barycentric Julian Date (UTC) real*8 RV (nr__1) ! (km/s) Radial velocity real*8 e_RV (nr__1) ! (km/s) Radial velocity error real*8 FWHM (nr__1) ! (km/s) Full width at half maximum of the * cross-correlation function (CCF) real*8 Span (nr__1) ! (km/s) Bissector span velocity of the * cross-correlation function (CCF) character*7 Star_1 (nr__1) ! Star (WASP-22 or WASP-26) C============================================================================= C Loading file 'phot.dat' ! *WASP-22 and WASP-26 dereddened and normalised * differential photometry from TRAPPIST, Euler * and Oversky C Format for file interpretation 1 format(F13.5,1X,F8.6,1X,F8.6,1X,A8,1X,A7,1X,I1) C Effective file loading open(unit=1,status='old',file= +'phot.dat') write(6,*) '....Loading file: phot.dat' do i__=1,1550 read(1,'(A50)')ar__ read(ar__,1) + HJD(i__),RFlux(i__),e_RFlux(i__),Inst(i__),Star(i__),idx(i__) c ..............Just test output........... write(6,1) + HJD(i__),RFlux(i__),e_RFlux(i__),Inst(i__),Star(i__),idx(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'rv.dat' ! WASP-22 and WASP-26 radial velocities measured * by the HARPS spectrograph C Format for file interpretation 2 format(F14.6,1X,F8.5,1X,F7.5,1X,F7.5,1X,F8.5,1X,A7) C Effective file loading open(unit=1,status='old',file= +'rv.dat') write(6,*) '....Loading file: rv.dat' do i__=1,64 read(1,'(A56)')ar__1 read(ar__1,2) + BJD(i__),RV(i__),e_RV(i__),FWHM(i__),Span(i__),Star_1(i__) c ..............Just test output........... write(6,2) + BJD(i__),RV(i__),e_RV(i__),FWHM(i__),Span(i__),Star_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end