Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/575/A61 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-May-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/575/A61 WASP-20b and WASP-28b photometry and RV (Anderson+, 2015)
*================================================================================
*WASP-20b and WASP-28b: a hot Saturn and a hot Jupiter in near-aligned orbits
*around solar-type stars.
* Anderson D.R., Collier Cameron A., Hellier C., Lendl M., Lister T.A.,
* Maxted P.F.L., Queloz D., Smalley B., Smith A.M.S., Triaud A.H.M.J.,
* Brown D.J.A., Gillon M., Neveu-VanMalle M., Pepe F., Pollacco D.,
* Segransan D., Udry S., West R.G., Wheatley P.J.
* <Astron. Astrophys. 575, A61 (2015)>
* =2015A&A...575A..61A
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! CORALIE and HARPS radial velocities
integer*4 nr__
parameter (nr__=178) ! Number of records
character*57 ar__ ! Full-size record
integer*4 Set ! Index of dataset
integer*4 WASP ! [20,28] WASP star number (20 or 28)
character*7 Spect ! (d) Spectrograph (CORALIE or HARPS)
real*8 BJD ! Barycentric Julian Date (UTC) at mid-exposure
* (BJD-2450000)
real*8 RV ! (km/s) [1.2/24.4] Radial velocity
real*8 e_RV ! (km/s) [0.001/0.065] Error on radial velocity
real*8 BSpan ! (km/s) [-0.05/0.16] Bisector Span
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! FTN and EulerCam photometry
integer*4 nr__1
parameter (nr__1=1031) ! Number of records
character*61 ar__1 ! Full-size record
integer*4 Set_1 ! Index of dataset
integer*4 WASP_1 ! [20,28] WASP star number (20 or 28)
character*8 Imager ! Imager name (EulerCam or FTN)
character*8 Filter ! Filter (Gunn-r or Sloan-z')
real*8 BJD_1 ! (d) Barycentric Julian Date (UTC) at mid-exposure
* (BJD-2450000)
real*8 NFlux ! [0.978/1.007] Normalised flux
real*8 e_NFlux ! [0.0005/0.0037] Normalised flux error
C=============================================================================
C Loading file 'table2.dat' ! CORALIE and HARPS radial velocities
C Format for file interpretation
1 format(I1,6X,I2,2X,A7,1X,F11.6,2X,F8.5,1X,F7.5,1X,F8.5)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,178
read(1,'(A57)')ar__
read(ar__,1)Set,WASP,Spect,BJD,RV,e_RV,BSpan
c ..............Just test output...........
write(6,1)Set,WASP,Spect,BJD,RV,e_RV,BSpan
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! FTN and EulerCam photometry
C Format for file interpretation
2 format(I1,6X,I2,2X,A8,1X,A8,4X,F11.6,1X,F8.6,1X,F8.6)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,1031
read(1,'(A61)')ar__1
read(ar__1,2)Set_1,WASP_1,Imager,Filter,BJD_1,NFlux,e_NFlux
c ..............Just test output...........
write(6,2)Set_1,WASP_1,Imager,Filter,BJD_1,NFlux,e_NFlux
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end