FORTRAN Generation
(/./ftp/cats/J/PASP/129/F4401)

Conversion of standardized ReadMe file for file /./ftp/cats/J/PASP/129/F4401 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-29
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/PASP/129/F4401  HAT-P-3b and TrES-3b light curves and Mid-times (Ricci+, 2017)
*================================================================================
*Multi-filter transit observations of HAT-P-3b and TrES-3b with multiple
*northern hemisphere telescopes.
*    Ricci D., Sada P.V., Navarro-Meza S., Lopez-Valdivia R., Michel R.,
*    Fox Machado L., Ramon-Fox F.G., Ayala-Loera C., Brown Sevilla S.,
*    Reyes-Ruiz M., La Camera A., Righi C., Cabona L., Tosi S., Truant N.,
*    Peterson S.W., Prieto-Arranz J., Velasco S., Palle E., H.Deeg.
*    <Publ. Astron. Soc. Pac. 129, 064401 (2017)>
*    =2017PASP..129f4401R        (SIMBAD/NED BibCode)
C=============================================================================

C  Internal variables

      integer*4 i__

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'hatp3bmt.dat'	! HAT-P-3b Mid-times

      integer*4 nr__
      parameter (nr__=14)	! Number of records
      character*73 ar__   	! Full-size record

      real*8        Tmid        ! (d) Mid-time in BJD_TBD
      real*8        e_Tmid      ! (d) Mid-time error
      integer*4     Nper        ! Number of periods since reference Tmid
      integer*4     Label       ! Custom label number associated to telescopes
      character*8   Tel         ! Telescope name
      character*10  Date        ! ("date") UT date
      character*2   Filt        ! [B I Ic JH R Rc V z] Filter used for observation
      character*8   Object      ! Object name
      character*12  FileName    ! Name of the file with photometry

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tres3bmt.dat'	! TrES-3b  Mid-times

      integer*4 nr__1
      parameter (nr__1=28)	! Number of records
      character*73 ar__1  	! Full-size record

      real*8        Tmid_1      ! (d) Mid-time in BJD_TBD
      real*8        e_Tmid_1    ! (d) Mid-time error
      integer*4     Nper_1      ! Number of periods since reference Tmid
      integer*4     Label_1     ! Custom label number associated to telescopes
      character*8   Tel_1       ! Telescope name
      character*10  Date_1      ! ("date") UT date
      character*2   Filt_1      ! [B I Ic JH R Rc V z] Filter used for observation
      character*8   Object_1    ! Object name
      character*12  FileName_1  ! Name of the file with photometry

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'hatp3bb.dat'	! HAT-P-3b Light curve, B filter

      integer*4 nr__2
      parameter (nr__2=244)	! Number of records
      character*53 ar__2  	! Full-size record

      real*8        Phase       ! Phase of the transit
      real*8        Flux        ! Normalized flux
      real*8        Model       ! Model
      real*8        Res         ! Residuals
      real*8        e_Flux      ! Flux error

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'hatp3bi.dat'	! HAT-P-3b Light curve, I filter

      integer*4 nr__3
      parameter (nr__3=130)	! Number of records
      character*53 ar__3  	! Full-size record

      real*8        Phase_1     ! Phase of the transit
      real*8        Flux_1      ! Normalized flux
      real*8        Model_1     ! Model
      real*8        Res_1       ! Residuals
      real*8        e_Flux_1    ! Flux error

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'hatp3bic.dat'	! HAT-P-3b Light curve, Ic filter

      integer*4 nr__4
      parameter (nr__4=107)	! Number of records
      character*53 ar__4  	! Full-size record

      real*8        Phase_2     ! Phase of the transit
      real*8        Flux_2      ! Normalized flux
      real*8        Model_2     ! Model
      real*8        Res_2       ! Residuals
      real*8        e_Flux_2    ! Flux error

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'hatp3bjh.dat'	! HAT-P-3b Light curve, JH filter

      integer*4 nr__5
      parameter (nr__5=132)	! Number of records
      character*53 ar__5  	! Full-size record

      real*8        Phase_3     ! Phase of the transit
      real*8        Flux_3      ! Normalized flux
      real*8        Model_3     ! Model
      real*8        Res_3       ! Residuals
      real*8        e_Flux_3    ! Flux error

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'hatp3br.dat'	! HAT-P-3b Light curve, R filter

      integer*4 nr__6
      parameter (nr__6=118)	! Number of records
      character*53 ar__6  	! Full-size record

      real*8        Phase_4     ! Phase of the transit
      real*8        Flux_4      ! Normalized flux
      real*8        Model_4     ! Model
      real*8        Res_4       ! Residuals
      real*8        e_Flux_4    ! Flux error

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'hatp3bv.dat'	! HAT-P-3b Light curve, V filter

      integer*4 nr__7
      parameter (nr__7=198)	! Number of records
      character*53 ar__7  	! Full-size record

      real*8        Phase_5     ! Phase of the transit
      real*8        Flux_5      ! Normalized flux
      real*8        Model_5     ! Model
      real*8        Res_5       ! Residuals
      real*8        e_Flux_5    ! Flux error

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'hatp3bz.dat'	! HAT-P-3b Light curve, z filter

      integer*4 nr__8
      parameter (nr__8=186)	! Number of records
      character*53 ar__8  	! Full-size record

      real*8        Phase_6     ! Phase of the transit
      real*8        Flux_6      ! Normalized flux
      real*8        Model_6     ! Model
      real*8        Res_6       ! Residuals
      real*8        e_Flux_6    ! Flux error

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tres3bi.dat'	! TrES-3b  Light curve, I filter

      integer*4 nr__9
      parameter (nr__9=77)	! Number of records
      character*53 ar__9  	! Full-size record

      real*8        Phase_7     ! Phase of the transit
      real*8        Flux_7      ! Normalized flux
      real*8        Model_7     ! Model
      real*8        Res_7       ! Residuals
      real*8        e_Flux_7    ! Flux error

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tres3bic.dat'	! TrES-3b  Light curve, Ic filter

      integer*4 nr__10
      parameter (nr__10=78)	! Number of records
      character*53 ar__10 	! Full-size record

      real*8        Phase_8     ! Phase of the transit
      real*8        Flux_8      ! Normalized flux
      real*8        Model_8     ! Model
      real*8        Res_8       ! Residuals
      real*8        e_Flux_8    ! Flux error

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tres3br.dat'	! TrES-3b  Light curve, R filter

      integer*4 nr__11
      parameter (nr__11=82)	! Number of records
      character*53 ar__11 	! Full-size record

      real*8        Phase_9     ! Phase of the transit
      real*8        Flux_9      ! Normalized flux
      real*8        Model_9     ! Model
      real*8        Res_9       ! Residuals
      real*8        e_Flux_9    ! Flux error

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tres3brc.dat'	! TrES-3b  Light curve, Rc filter

      integer*4 nr__12
      parameter (nr__12=78)	! Number of records
      character*53 ar__12 	! Full-size record

      real*8        Phase_10    ! Phase of the transit
      real*8        Flux_10     ! Normalized flux
      real*8        Model_10    ! Model
      real*8        Res_10      ! Residuals
      real*8        e_Flux_10   ! Flux error

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tres3bv.dat'	! TrES-3b  Light curve, V filter

      integer*4 nr__13
      parameter (nr__13=74)	! Number of records
      character*53 ar__13 	! Full-size record

      real*8        Phase_11    ! Phase of the transit
      real*8        Flux_11     ! Normalized flux
      real*8        Model_11    ! Model
      real*8        Res_11      ! Residuals
      real*8        e_Flux_11   ! Flux error

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tres3bz.dat'	! TrES-3b  Light curve, z filter

      integer*4 nr__14
      parameter (nr__14=71)	! Number of records
      character*53 ar__14 	! Full-size record

      real*8        Phase_12    ! Phase of the transit
      real*8        Flux_12     ! Normalized flux
      real*8        Model_12    ! Model
      real*8        Res_12      ! Residuals
      real*8        e_Flux_12   ! Flux error

C=============================================================================

C  Loading file 'hatp3bmt.dat'	! HAT-P-3b Mid-times

C  Format for file interpretation

    1 format(
     +  F13.5,1X,F7.5,1X,I4,1X,I1,1X,A8,1X,A10,1X,A2,1X,A8,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'hatp3bmt.dat')
      write(6,*) '....Loading file: hatp3bmt.dat'
      do i__=1,14
        read(1,'(A73)')ar__
        read(ar__,1)
     +  Tmid,e_Tmid,Nper,Label,Tel,Date,Filt,Object,FileName
c    ..............Just test output...........
        write(6,1)
     +  Tmid,e_Tmid,Nper,Label,Tel,Date,Filt,Object,FileName
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tres3bmt.dat'	! TrES-3b  Mid-times

C  Format for file interpretation

    2 format(
     +  F13.5,1X,F7.5,1X,I4,1X,I1,1X,A8,1X,A10,1X,A2,1X,A8,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tres3bmt.dat')
      write(6,*) '....Loading file: tres3bmt.dat'
      do i__=1,28
        read(1,'(A73)')ar__1
        read(ar__1,2)
     +  Tmid_1,e_Tmid_1,Nper_1,Label_1,Tel_1,Date_1,Filt_1,Object_1,
     +  FileName_1
c    ..............Just test output...........
        write(6,2)
     +  Tmid_1,e_Tmid_1,Nper_1,Label_1,Tel_1,Date_1,Filt_1,Object_1,
     +  FileName_1
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'hatp3bb.dat'	! HAT-P-3b Light curve, B filter

C  Format for file interpretation

    3 format(F11.8,1X,F10.8,1X,F10.8,1X,F11.8,1X,F7.5)

C  Effective file loading

      open(unit=1,status='old',file=
     +'hatp3bb.dat')
      write(6,*) '....Loading file: hatp3bb.dat'
      do i__=1,244
        read(1,'(A53)')ar__2
        read(ar__2,3)Phase,Flux,Model,Res,e_Flux
c    ..............Just test output...........
        write(6,3)Phase,Flux,Model,Res,e_Flux
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'hatp3bi.dat'	! HAT-P-3b Light curve, I filter

C  Format for file interpretation

    4 format(F11.8,1X,F10.8,1X,F10.8,1X,F11.8,1X,F7.5)

C  Effective file loading

      open(unit=1,status='old',file=
     +'hatp3bi.dat')
      write(6,*) '....Loading file: hatp3bi.dat'
      do i__=1,130
        read(1,'(A53)')ar__3
        read(ar__3,4)Phase_1,Flux_1,Model_1,Res_1,e_Flux_1
c    ..............Just test output...........
        write(6,4)Phase_1,Flux_1,Model_1,Res_1,e_Flux_1
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'hatp3bic.dat'	! HAT-P-3b Light curve, Ic filter

C  Format for file interpretation

    5 format(F11.8,1X,F10.8,1X,F10.8,1X,F11.8,1X,F7.5)

C  Effective file loading

      open(unit=1,status='old',file=
     +'hatp3bic.dat')
      write(6,*) '....Loading file: hatp3bic.dat'
      do i__=1,107
        read(1,'(A53)')ar__4
        read(ar__4,5)Phase_2,Flux_2,Model_2,Res_2,e_Flux_2
c    ..............Just test output...........
        write(6,5)Phase_2,Flux_2,Model_2,Res_2,e_Flux_2
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'hatp3bjh.dat'	! HAT-P-3b Light curve, JH filter

C  Format for file interpretation

    6 format(F11.8,1X,F10.8,1X,F10.8,1X,F11.8,1X,F7.5)

C  Effective file loading

      open(unit=1,status='old',file=
     +'hatp3bjh.dat')
      write(6,*) '....Loading file: hatp3bjh.dat'
      do i__=1,132
        read(1,'(A53)')ar__5
        read(ar__5,6)Phase_3,Flux_3,Model_3,Res_3,e_Flux_3
c    ..............Just test output...........
        write(6,6)Phase_3,Flux_3,Model_3,Res_3,e_Flux_3
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'hatp3br.dat'	! HAT-P-3b Light curve, R filter

C  Format for file interpretation

    7 format(F11.8,1X,F10.8,1X,F10.8,1X,F11.8,1X,F7.5)

C  Effective file loading

      open(unit=1,status='old',file=
     +'hatp3br.dat')
      write(6,*) '....Loading file: hatp3br.dat'
      do i__=1,118
        read(1,'(A53)')ar__6
        read(ar__6,7)Phase_4,Flux_4,Model_4,Res_4,e_Flux_4
c    ..............Just test output...........
        write(6,7)Phase_4,Flux_4,Model_4,Res_4,e_Flux_4
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'hatp3bv.dat'	! HAT-P-3b Light curve, V filter

C  Format for file interpretation

    8 format(F11.8,1X,F10.8,1X,F10.8,1X,F11.8,1X,F7.5)

C  Effective file loading

      open(unit=1,status='old',file=
     +'hatp3bv.dat')
      write(6,*) '....Loading file: hatp3bv.dat'
      do i__=1,198
        read(1,'(A53)')ar__7
        read(ar__7,8)Phase_5,Flux_5,Model_5,Res_5,e_Flux_5
c    ..............Just test output...........
        write(6,8)Phase_5,Flux_5,Model_5,Res_5,e_Flux_5
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'hatp3bz.dat'	! HAT-P-3b Light curve, z filter

C  Format for file interpretation

    9 format(F11.8,1X,F10.8,1X,F10.8,1X,F11.8,1X,F7.5)

C  Effective file loading

      open(unit=1,status='old',file=
     +'hatp3bz.dat')
      write(6,*) '....Loading file: hatp3bz.dat'
      do i__=1,186
        read(1,'(A53)')ar__8
        read(ar__8,9)Phase_6,Flux_6,Model_6,Res_6,e_Flux_6
c    ..............Just test output...........
        write(6,9)Phase_6,Flux_6,Model_6,Res_6,e_Flux_6
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tres3bi.dat'	! TrES-3b  Light curve, I filter

C  Format for file interpretation

   10 format(F11.8,1X,F10.8,1X,F10.8,1X,F11.8,1X,F7.5)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tres3bi.dat')
      write(6,*) '....Loading file: tres3bi.dat'
      do i__=1,77
        read(1,'(A53)')ar__9
        read(ar__9,10)Phase_7,Flux_7,Model_7,Res_7,e_Flux_7
c    ..............Just test output...........
        write(6,10)Phase_7,Flux_7,Model_7,Res_7,e_Flux_7
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tres3bic.dat'	! TrES-3b  Light curve, Ic filter

C  Format for file interpretation

   11 format(F11.8,1X,F10.8,1X,F10.8,1X,F11.8,1X,F7.5)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tres3bic.dat')
      write(6,*) '....Loading file: tres3bic.dat'
      do i__=1,78
        read(1,'(A53)')ar__10
        read(ar__10,11)Phase_8,Flux_8,Model_8,Res_8,e_Flux_8
c    ..............Just test output...........
        write(6,11)Phase_8,Flux_8,Model_8,Res_8,e_Flux_8
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tres3br.dat'	! TrES-3b  Light curve, R filter

C  Format for file interpretation

   12 format(F11.8,1X,F10.8,1X,F10.8,1X,F11.8,1X,F7.5)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tres3br.dat')
      write(6,*) '....Loading file: tres3br.dat'
      do i__=1,82
        read(1,'(A53)')ar__11
        read(ar__11,12)Phase_9,Flux_9,Model_9,Res_9,e_Flux_9
c    ..............Just test output...........
        write(6,12)Phase_9,Flux_9,Model_9,Res_9,e_Flux_9
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tres3brc.dat'	! TrES-3b  Light curve, Rc filter

C  Format for file interpretation

   13 format(F11.8,1X,F10.8,1X,F10.8,1X,F11.8,1X,F7.5)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tres3brc.dat')
      write(6,*) '....Loading file: tres3brc.dat'
      do i__=1,78
        read(1,'(A53)')ar__12
        read(ar__12,13)Phase_10,Flux_10,Model_10,Res_10,e_Flux_10
c    ..............Just test output...........
        write(6,13)Phase_10,Flux_10,Model_10,Res_10,e_Flux_10
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tres3bv.dat'	! TrES-3b  Light curve, V filter

C  Format for file interpretation

   14 format(F11.8,1X,F10.8,1X,F10.8,1X,F11.8,1X,F7.5)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tres3bv.dat')
      write(6,*) '....Loading file: tres3bv.dat'
      do i__=1,74
        read(1,'(A53)')ar__13
        read(ar__13,14)Phase_11,Flux_11,Model_11,Res_11,e_Flux_11
c    ..............Just test output...........
        write(6,14)Phase_11,Flux_11,Model_11,Res_11,e_Flux_11
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tres3bz.dat'	! TrES-3b  Light curve, z filter

C  Format for file interpretation

   15 format(F11.8,1X,F10.8,1X,F10.8,1X,F11.8,1X,F7.5)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tres3bz.dat')
      write(6,*) '....Loading file: tres3bz.dat'
      do i__=1,71
        read(1,'(A53)')ar__14
        read(ar__14,15)Phase_12,Flux_12,Model_12,Res_12,e_Flux_12
c    ..............Just test output...........
        write(6,15)Phase_12,Flux_12,Model_12,Res_12,e_Flux_12
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================
      stop
      end