Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/457/4205 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-Apr-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/MNRAS/457/4205 WASP-22, WASP-41, WASP-42, WASP-55 (Southworth+, 2016)
*================================================================================
*High-precision photometry by telescope defocussing.
*VIII. WASP-22, WASP-41, WASP-42 and WASP-55.
* Southworth J., Tregloan-reed J., Andersen M.I., Calchi Novati S.,
* Ciceri S., Colque J.P., D'ago G., Dominik M., Evans D.F., Gu S.-H.,
* Herrera-Cordova A., Hinse T.C., Jorgensen U.G., Juncher D., Kuffmeier M.,
* Mancini L., Peixinho N., Popovas A., Rabus M., Skottfelt J., Tronsgaard R.,
* Unda-Sanzana E., Wang X.-B., Wertz O., Alsubai K.A., Andersen J.M.,
* Bozza V., Bramich D.M., Burgdorf M., Damerdji Y., Diehl C., Elyiv A.,
* Figuera Jaimes R., Haugbolle T., Hundertmark M., Kains N., Kerins E.,
* Korhonen H., Liebig C., Mathiasen M., Penny M.T., Rahvar S., Scarpetta G.,
* Schmidt R.W., Snodgrass C., Starkey D., Surdej J., Vilela C., Von Essen C.,
* Wang Y.
* <Mon. Not. R. Astron. Soc., 457, 4205-4217 (2016)>
* =2016MNRAS.457.4205S (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'wasp22.dat' ! Photometry of WASP-22
integer*4 nr__
parameter (nr__=1252) ! Number of records
character*47 ar__ ! Full-size record
character*6 Tel ! Telescope used for the observations
character*4 Filt ! [I R none] Filter used for the observation
real*8 BJD ! (d) Barycentric JD for the midpoint of
* observation (TDB)
real*8 dmag ! (mag) Differential magnitude in that filter
real*8 e_dmag ! (mag) Measurement error of the differential magnitude
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'wasp41.dat' ! Photometry of WASP-41
integer*4 nr__1
parameter (nr__1=910) ! Number of records
character*47 ar__1 ! Full-size record
character*6 Tel_1 ! Telescope used for the observations
character*4 Filt_1 ! [I R none] Filter used for the observation
real*8 BJD_1 ! (d) Barycentric JD for the midpoint of
* observation (TDB)
real*8 dmag_1 ! (mag) Differential magnitude in that filter
real*8 e_dmag_1 ! (mag) Measurement error of the differential magnitude
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'wasp42.dat' ! Photometry of WASP-42
integer*4 nr__2
parameter (nr__2=468) ! Number of records
character*47 ar__2 ! Full-size record
character*6 Tel_2 ! Telescope used for the observations
character*4 Filt_2 ! [I R none] Filter used for the observation
real*8 BJD_2 ! (d) Barycentric JD for the midpoint of
* observation (TDB)
real*8 dmag_2 ! (mag) Differential magnitude in that filter
real*8 e_dmag_2 ! (mag) Measurement error of the differential magnitude
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'wasp55.dat' ! Photometry of WASP-55
integer*4 nr__3
parameter (nr__3=540) ! Number of records
character*47 ar__3 ! Full-size record
character*6 Tel_3 ! Telescope used for the observations
character*4 Filt_3 ! [I R none] Filter used for the observation
real*8 BJD_3 ! (d) Barycentric JD for the midpoint of
* observation (TDB)
real*8 dmag_3 ! (mag) Differential magnitude in that filter
real*8 e_dmag_3 ! (mag) Measurement error of the differential magnitude
C=============================================================================
C Loading file 'wasp22.dat' ! Photometry of WASP-22
C Format for file interpretation
1 format(A6,1X,A4,1X,F14.6,1X,F10.7,1X,F9.7)
C Effective file loading
open(unit=1,status='old',file=
+'wasp22.dat')
write(6,*) '....Loading file: wasp22.dat'
do i__=1,1252
read(1,'(A47)')ar__
read(ar__,1)Tel,Filt,BJD,dmag,e_dmag
c ..............Just test output...........
write(6,1)Tel,Filt,BJD,dmag,e_dmag
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'wasp41.dat' ! Photometry of WASP-41
C Format for file interpretation
2 format(A6,1X,A4,1X,F14.6,1X,F10.7,1X,F9.7)
C Effective file loading
open(unit=1,status='old',file=
+'wasp41.dat')
write(6,*) '....Loading file: wasp41.dat'
do i__=1,910
read(1,'(A47)')ar__1
read(ar__1,2)Tel_1,Filt_1,BJD_1,dmag_1,e_dmag_1
c ..............Just test output...........
write(6,2)Tel_1,Filt_1,BJD_1,dmag_1,e_dmag_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'wasp42.dat' ! Photometry of WASP-42
C Format for file interpretation
3 format(A6,1X,A4,1X,F14.6,1X,F10.7,1X,F9.7)
C Effective file loading
open(unit=1,status='old',file=
+'wasp42.dat')
write(6,*) '....Loading file: wasp42.dat'
do i__=1,468
read(1,'(A47)')ar__2
read(ar__2,3)Tel_2,Filt_2,BJD_2,dmag_2,e_dmag_2
c ..............Just test output...........
write(6,3)Tel_2,Filt_2,BJD_2,dmag_2,e_dmag_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'wasp55.dat' ! Photometry of WASP-55
C Format for file interpretation
4 format(A6,1X,A4,1X,F14.6,1X,F10.7,1X,F9.7)
C Effective file loading
open(unit=1,status='old',file=
+'wasp55.dat')
write(6,*) '....Loading file: wasp55.dat'
do i__=1,540
read(1,'(A47)')ar__3
read(ar__3,4)Tel_3,Filt_3,BJD_3,dmag_3,e_dmag_3
c ..............Just test output...........
write(6,4)Tel_3,Filt_3,BJD_3,dmag_3,e_dmag_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end