FORTRAN Generation
(/./ftp/cats/J/other/Obs/136.168)

Conversion of standardized ReadMe file for file /./ftp/cats/J/other/Obs/136.168 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/other/Obs/136.168       Early observations of M13 variables   (Osborn,+, 2016)
*================================================================================
*Early 20th-Century visual observations of M13 variable stars.
*    Osborn W., Barnard E.E.
*    <The Observatory 136, 168 (2016)>
*    =2016Obs...136..168O        (SIMBAD/NED BibCode)
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table1.dat'	! Barnard's published observations of Variable 2

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

      character*12  Date        ! Local date of observation
      character*5   Time        ! ("h:m") Local time of observation (hh:mm)
      real*4        dmag        ! (mag) ? Variable to comparison star magnitude difference
      character*3   n_dmag      ! [Max ] Note on dmag
      real*8        HJD         ! (d) Derived heliocentric Julian Date
      real*4        Vmag        ! (mag) Derived approximate V magnitude

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

C  Declarations for 'table2.dat'	! Barnard's unpublished observations of Var. 2

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

      character*12  Date_1      ! Local date of observation
      character*5   Time_1      ! ("h:m") Local time of observation (hh:mm)
      real*4        dmag_1      ! (mag) ? Variable to comparison star magnitude difference
      character*1   u_dmag      ! [?] Uncertainty flag on dmag
      character*31  n_dmag_1    ! Note on dmag
      real*8        HJD_1       ! (d) Derived heliocentric Julian Date
      real*4        Vmag_1      ! (mag) Derived approximate V magnitude of Variable 2

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

C  Declarations for 'table3.dat'	! Additional unpublished observations of Var. 2

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

      character*12  Date_2      ! Local date of observation
      character*5   Time_2      ! ("h:m") Local time of observation (hh:mm)
      real*4        dmag_2      ! (mag) ? Variable to comparison star magnitude difference
      character*1   u_dmag_1    ! [?] Uncertainty flag on dmag
      character*7   n_dmag_2    ! Note on dmag
      real*8        HJD_2       ! (d) Derived heliocentric Julian Date
      real*4        Vmag_2      ! (mag) Derived approximate V magnitude of Variable 2
      character*11  Notes       ! Notes

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

C  Declarations for 'table4.dat'	! Later observations of Var. 2 and Var. 1

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

      character*12  Date_3      ! Local date of observation
      real*8        HJD_3       ! (d) ? Derived heliocentric Julian Date
      real*4        V2          ! (mag) ? Derived approximate V magnitude of V2
      real*4        V1_841      ! (mag) ? Derived V magnitude of Var 1 (L841 comparison)
      real*4        V1_np       ! (mag) ? Derived V magnitude of Var 1 (np comparison)
      integer*4     Notes_1     ! [1/2]? How sidereal time used in computing HJD (1)
*Note (1): How sidereal time used in computing HJD flag as follows:
*   1 = Barnard gave both local time and sideral time. Both used in deriving HJD.
*   2 = Barnard gave only sideral time.

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

C  Declarations for 'table5.dat'	! Approximate V magnitudes from plates

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

      character*6   Plate       ! Yerkes 40-inch refractor plate number
      character*11  Date_4      ! Local date of observation
      character*19  Time_3      ! Listed exposure time of plate (hh:mm)
      real*8        HJD_4       ! (d) Derived heliocentric Julian Date
      real*4        V2mag       ! (mag) Derived approximate V magnitude of Variable 2
      real*4        V1mag       ! Derived approximate V magnitude of Variable 1

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

C  Loading file 'table1.dat'	! Barnard's published observations of Variable 2

C  Format for file interpretation

    1 format(A12,2X,A5,4X,F3.1,A3,1X,F11.3,4X,F4.1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table1.dat')
      write(6,*) '....Loading file: table1.dat'
      do i__=1,37
        read(1,'(A49)')ar__
        read(ar__,1)Date,Time,dmag,n_dmag,HJD,Vmag
        if(ar__(24:26) .EQ. '') dmag = rNULL__
c    ..............Just test output...........
        write(6,1)Date,Time,dmag,n_dmag,HJD,Vmag
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table2.dat'	! Barnard's unpublished observations of Var. 2

C  Format for file interpretation

    2 format(A12,2X,A5,3X,F4.2,A1,1X,A31,1X,F11.3,3X,F4.1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table2.dat')
      write(6,*) '....Loading file: table2.dat'
      do i__=1,75
        read(1,'(A78)')ar__1
        read(ar__1,2)Date_1,Time_1,dmag_1,u_dmag,n_dmag_1,HJD_1,Vmag_1
        if(ar__1(23:26) .EQ. '') dmag_1 = rNULL__
c    ..............Just test output...........
        write(6,2)Date_1,Time_1,dmag_1,u_dmag,n_dmag_1,HJD_1,Vmag_1
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table3.dat'	! Additional unpublished observations of Var. 2

C  Format for file interpretation

    3 format(A12,2X,A5,3X,F4.2,A1,A7,1X,F11.3,2X,F4.1,2X,A11)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table3.dat')
      write(6,*) '....Loading file: table3.dat'
      do i__=1,56
        read(1,'(A65)')ar__2
        read(ar__2,3)
     +  Date_2,Time_2,dmag_2,u_dmag_1,n_dmag_2,HJD_2,Vmag_2,Notes
        if(ar__2(23:26) .EQ. '') dmag_2 = rNULL__
c    ..............Just test output...........
        write(6,3)
     +  Date_2,Time_2,dmag_2,u_dmag_1,n_dmag_2,HJD_2,Vmag_2,Notes
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table4.dat'	! Later observations of Var. 2 and Var. 1

C  Format for file interpretation

    4 format(A12,3X,F11.3,3X,F4.1,3X,F4.1,3X,F4.1,3X,I1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table4.dat')
      write(6,*) '....Loading file: table4.dat'
      do i__=1,111
        read(1,'(A51)')ar__3
        read(ar__3,4)Date_3,HJD_3,V2,V1_841,V1_np,Notes_1
        if(ar__3(16:26) .EQ. '') HJD_3 = rNULL__
        if(ar__3(30:33) .EQ. '') V2 = rNULL__
        if(ar__3(37:40) .EQ. '') V1_841 = rNULL__
        if(ar__3(44:47) .EQ. '') V1_np = rNULL__
        if(ar__3(51:51) .EQ. '') Notes_1 = iNULL__
c    ..............Just test output...........
        write(6,4)Date_3,HJD_3,V2,V1_841,V1_np,Notes_1
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table5.dat'	! Approximate V magnitudes from plates

C  Format for file interpretation

    5 format(A6,2X,A11,2X,A19,3X,F11.3,3X,F5.2,3X,F5.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table5.dat')
      write(6,*) '....Loading file: table5.dat'
      do i__=1,9
        read(1,'(A70)')ar__4
        read(ar__4,5)Plate,Date_4,Time_3,HJD_4,V2mag,V1mag
c    ..............Just test output...........
        write(6,5)Plate,Date_4,Time_3,HJD_4,V2mag,V1mag
c    .......End.of.Just test output...........
      end do
      close(1)

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