FORTRAN Generation
(/./ftp/cats/J/AJ/153/195)

Conversion of standardized ReadMe file for file /./ftp/cats/J/AJ/153/195 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-28
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/AJ/153/195 Photometry of multiple stars at NAOR&ASV in 2015 (Cvetkovic+, 2017)
*================================================================================
*CCD measurements of double and multiple stars at NAO Rozhen and ASV in 2015.
*    Cvetkovic Z., Pavlovic R., Boeva S.
*    <Astron. J., 153, 195 (2017)>
*    =2017AJ....153..195C    (SIMBAD/NED BibCode)
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table2.dat'	! CCD measurements of double stars

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

      character*11  WDS         ! WDS designation (HHMMm+DDMM, J2000)
      character*11  Disc        ! Discoverer designation
      real*8        Epoch       ! (yr) Epoch of observation (Besselian year)
      real*4        Sep         ! (arcsec) [1.52/201.56] Angular separation {rho}
      real*4        e_Sep       ! (arcsec) [0/0.71] Standard deviation in Sep
      real*4        PA          ! (deg) [0.1/359.89] Position angle {theta} (1)
      real*4        e_PA        ! (deg) [0/2.96] Standard deviation in PA
      real*4        DBmag       ! (mag) [0/7.18]? Differential B band magnitude (2)
      real*4        e_DBmag     ! (mag) [0/0.29]? Standard deviation in DBmag
      real*4        DVmag       ! (mag) [0/6.79]? Differential V band magnitude (2)
      real*4        e_DVmag     ! (mag) [0.01/1.04]? Standard deviation in DVmag
      real*4        v_O_C_Sep   ! (arcsec) [-0.99/3.22]? Angular separation (O-C)
*                                   residual (only in table 3)
      real*4        v_O_C_PA    ! (arcsec) [-3.4/2.4]? Position angle (O-C) residual
*                                   (only in table 3)
      character*28  Ref         ! Reference (only in table 3) (3)
      character*11  Camera      ! Camera used (Apogee Alta or VersArray)
      character*1   Note        ! [F] Additional source note (only in table 2)
*                                   (4)
*Note (1): The position angle has not been corrected for precession and it is
*          thus based on the equinox for the epoch of observation.
*Note (2): Between the components of pairs determined using IRAF. In some cases
*          the images of stars were obtained with too few counts in either or
*          both filters so that we could not determine the magnitude difference.
*Note (3): Reference as follows:
*  Chang (1972)                 = 1972AJ.....77..759C
*  Docobo et al. (2008)         = 2008A&A...478..187D
*  Eggenberger (2008)           = 2008A&A...482..631E
*  Hartkopf and Mason (2011a)   = 2011, J/AJ/142/56
*  Hartkopf and Mason (2011b)   = 2011IAUDS.175....1H
*  Hartkopf and Mason (2014)    = 2014IAUDS.183....1H
*  Heintz (1987)                = 1987PASP...99.1084H
*  Heintz (1988)                = 1988A&A....72..543H
*  Heintz (1990)                = 1990AJ.....99..420H
*  Heintz (1994)                = 1994, J/AJ/108/2338
*  Heintz (1996)                = 1996AJ....111..408H
*  Heintz (1997)                = 1997ApJS..111..335H
*  Hopmann (1964)               = 1964AnWie..26....1H
*  Hopmann (1970)               = 1970OAWMN.178..217H
*  Hopmann (1973)               = 1973OAWMN.181..301H
*  Kiselev et al. (1997)        = 1997ASSL..223..377K
*  Kiselev et al. (2009)        = 2009ARep...53..126K
*  Kiselev et al. (2012)        = 2012ARep...56..524K
*  Kiyaeva et al. (1998)        = 1998AstL...24..753K
*  Kiyaeva et al. (2001)        = 2001, J/PAZh/27/456
*  Kiyaeva et al. (2010)        = 2010AstL...36..204K
*  Kiyaeva et al. (2014)        = 2014AstL...58..835K
*  L                            = lin1.html...Catalog
*    Catalog of Rectilinear Elements:
*    http://www.usno.navy.mil/USNO/astrometry/optical-IR-prod/wds/lin1
*  Ling (2011)                  = 2011IAUDS.174....1L
*  Ling (2013)                  = 2013IAUDS.179....1L
*  Ling (2016)                  = 2016IAUDS.188....1L
*  Mante (2004)                 = 2004IAUDS.153....1M
*  Mason and Hartkopf (2014)    = 2014IAUDS.184....1M
*  Mason et al. (2004)          = 2004, J/AJ/127/539
*  Novakovic (2007)             = 2007BaltA..16..435N
*  Olevic (2002)                = 2002IAUDS.146....2O
*  Olevic and Cvetkovic (2003)  = 2003IAUDS.150....1O
*  Olevic and Jovanovic (2001)  = 2001SerAJ.163....5O
*  Olevic and Popovic (2000)    = 2000IAUDS.141....2O
*  Popovic and Pavlovic (1995)  = 1995BABel.151...45P
*  Popovic and Pavlovic (1996)  = 1996BABel.153...57P
*  Prieur et al. (2012)         = 2012MNRAS.422.1057P
*  Raghavan et al. (2009)       = 2009ApJ...690..394R
*  Rica et al. (2012)           = 2012MNRAS.419..197R
*  Riddle et al. (2015)         = 2015, J/ApJ/799/4
*  Romanenko and Kiselev (2014) = 2014ARep...58...30R
*  Scardia et al. (2011)        = 2011AN....332..508S
*  Seymour et al. (2002)        = 2002, J/AJ/123/1023
*  Soderhjelm (1999)            = 1999, J/A+A/341/121
*  Zirm (2008)                  = 2008IAUDS.166....1Z
*Note (4): Note as follows:
*   F = First resolution; e.g. one of 8 new pairs.

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

C  Declarations for 'table3.dat'	! CCD measurements of system with orbits or
                                rectilinear solutions

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

      character*11  WDS_1       ! WDS designation (HHMMm+DDMM, J2000)
      character*11  Disc_1      ! Discoverer designation
      real*8        Epoch_1     ! (yr) Epoch of observation (Besselian year)
      real*4        Sep_1       ! (arcsec) [1.52/201.56] Angular separation {rho}
      real*4        e_Sep_1     ! (arcsec) [0/0.71] Standard deviation in Sep
      real*4        PA_1        ! (deg) [0.1/359.89] Position angle {theta} (1)
      real*4        e_PA_1      ! (deg) [0/2.96] Standard deviation in PA
      real*4        DBmag_1     ! (mag) [0/7.18]? Differential B band magnitude (2)
      real*4        e_DBmag_1   ! (mag) [0/0.29]? Standard deviation in DBmag
      real*4        DVmag_1     ! (mag) [0/6.79]? Differential V band magnitude (2)
      real*4        e_DVmag_1   ! (mag) [0.01/1.04]? Standard deviation in DVmag
      real*4        v_O_C_Sep_1 ! (arcsec) [-0.99/3.22]? Angular separation (O-C)
*                                   residual (only in table 3)
      real*4        v_O_C_PA_1  ! (arcsec) [-3.4/2.4]? Position angle (O-C) residual
*                                   (only in table 3)
      character*28  Ref_1       ! Reference (only in table 3) (3)
      character*11  Camera_1    ! Camera used (Apogee Alta or VersArray)
      character*1   Note_1      ! [F] Additional source note (only in table 2)
*                                   (4)
*Note (1): The position angle has not been corrected for precession and it is
*          thus based on the equinox for the epoch of observation.
*Note (2): Between the components of pairs determined using IRAF. In some cases
*          the images of stars were obtained with too few counts in either or
*          both filters so that we could not determine the magnitude difference.
*Note (3): Reference as follows:
*  Chang (1972)                 = 1972AJ.....77..759C
*  Docobo et al. (2008)         = 2008A&A...478..187D
*  Eggenberger (2008)           = 2008A&A...482..631E
*  Hartkopf and Mason (2011a)   = 2011, J/AJ/142/56
*  Hartkopf and Mason (2011b)   = 2011IAUDS.175....1H
*  Hartkopf and Mason (2014)    = 2014IAUDS.183....1H
*  Heintz (1987)                = 1987PASP...99.1084H
*  Heintz (1988)                = 1988A&A....72..543H
*  Heintz (1990)                = 1990AJ.....99..420H
*  Heintz (1994)                = 1994, J/AJ/108/2338
*  Heintz (1996)                = 1996AJ....111..408H
*  Heintz (1997)                = 1997ApJS..111..335H
*  Hopmann (1964)               = 1964AnWie..26....1H
*  Hopmann (1970)               = 1970OAWMN.178..217H
*  Hopmann (1973)               = 1973OAWMN.181..301H
*  Kiselev et al. (1997)        = 1997ASSL..223..377K
*  Kiselev et al. (2009)        = 2009ARep...53..126K
*  Kiselev et al. (2012)        = 2012ARep...56..524K
*  Kiyaeva et al. (1998)        = 1998AstL...24..753K
*  Kiyaeva et al. (2001)        = 2001, J/PAZh/27/456
*  Kiyaeva et al. (2010)        = 2010AstL...36..204K
*  Kiyaeva et al. (2014)        = 2014AstL...58..835K
*  L                            = lin1.html...Catalog
*    Catalog of Rectilinear Elements:
*    http://www.usno.navy.mil/USNO/astrometry/optical-IR-prod/wds/lin1
*  Ling (2011)                  = 2011IAUDS.174....1L
*  Ling (2013)                  = 2013IAUDS.179....1L
*  Ling (2016)                  = 2016IAUDS.188....1L
*  Mante (2004)                 = 2004IAUDS.153....1M
*  Mason and Hartkopf (2014)    = 2014IAUDS.184....1M
*  Mason et al. (2004)          = 2004, J/AJ/127/539
*  Novakovic (2007)             = 2007BaltA..16..435N
*  Olevic (2002)                = 2002IAUDS.146....2O
*  Olevic and Cvetkovic (2003)  = 2003IAUDS.150....1O
*  Olevic and Jovanovic (2001)  = 2001SerAJ.163....5O
*  Olevic and Popovic (2000)    = 2000IAUDS.141....2O
*  Popovic and Pavlovic (1995)  = 1995BABel.151...45P
*  Popovic and Pavlovic (1996)  = 1996BABel.153...57P
*  Prieur et al. (2012)         = 2012MNRAS.422.1057P
*  Raghavan et al. (2009)       = 2009ApJ...690..394R
*  Rica et al. (2012)           = 2012MNRAS.419..197R
*  Riddle et al. (2015)         = 2015, J/ApJ/799/4
*  Romanenko and Kiselev (2014) = 2014ARep...58...30R
*  Scardia et al. (2011)        = 2011AN....332..508S
*  Seymour et al. (2002)        = 2002, J/AJ/123/1023
*  Soderhjelm (1999)            = 1999, J/A+A/341/121
*  Zirm (2008)                  = 2008IAUDS.166....1Z
*Note (4): Note as follows:
*   F = First resolution; e.g. one of 8 new pairs.

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

C  Declarations for 'table7.dat'	! Measurements and residuals (in {rho} and
                                {theta}) from our linear solutions for all five
                                pairs

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

      character*9   Name        ! Pair name
      real*8        Epoch_2     ! (yr) Epoch of observation (Besselian year)
      real*4        Sep_2       ! (arcmin) [1.75/10.37] Angular separation {rho}
      real*4        PA_2        ! (deg) [29.63/340.64] Position angle {theta}
      real*4        v_O_C_Sep_2 ! (arcmin) [-5.29/0.98] Angular separation (O-C) residual
      real*4        v_O_C_PA_2  ! (deg) [-9/3.9] Position angle (O-C) residual
      character*10  Ref_2       ! Reference (1)
*Note (1): This paper or reference from the Washington database (Cat. B/wds).

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

C  Loading file 'table2.dat'	! CCD measurements of double stars

C  Format for file interpretation

    1 format(
     +  A11,1X,A11,1X,F9.4,1X,F6.2,1X,F4.2,1X,F6.2,1X,F4.2,1X,F4.2,1X,
     +  F4.2,1X,F4.2,1X,F4.2,1X,F5.2,1X,F4.1,1X,A28,1X,A11,1X,A1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table2.dat')
      write(6,*) '....Loading file: table2.dat'
      do i__=1,687
        read(1,'(A131)')ar__
        read(ar__,1)
     +  WDS,Disc,Epoch,Sep,e_Sep,PA,e_PA,DBmag,e_DBmag,DVmag,e_DVmag,
     +  v_O_C_Sep,v_O_C_PA,Ref,Camera,Note
        if(ar__(59:62) .EQ. '') DBmag = rNULL__
        if(ar__(64:67) .EQ. '') e_DBmag = rNULL__
        if(ar__(69:72) .EQ. '') DVmag = rNULL__
        if(ar__(74:77) .EQ. '') e_DVmag = rNULL__
        if(ar__(79:83) .EQ. '') v_O_C_Sep = rNULL__
        if(ar__(85:88) .EQ. '') v_O_C_PA = rNULL__
c    ..............Just test output...........
        write(6,1)
     +  WDS,Disc,Epoch,Sep,e_Sep,PA,e_PA,DBmag,e_DBmag,DVmag,e_DVmag,
     +  v_O_C_Sep,v_O_C_PA,Ref,Camera,Note
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table3.dat'	! CCD measurements of system with orbits or
*                                rectilinear solutions

C  Format for file interpretation

    2 format(
     +  A11,1X,A11,1X,F9.4,1X,F6.2,1X,F4.2,1X,F6.2,1X,F4.2,1X,F4.2,1X,
     +  F4.2,1X,F4.2,1X,F4.2,1X,F5.2,1X,F4.1,1X,A28,1X,A11,1X,A1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table3.dat')
      write(6,*) '....Loading file: table3.dat'
      do i__=1,143
        read(1,'(A131)')ar__1
        read(ar__1,2)
     +  WDS_1,Disc_1,Epoch_1,Sep_1,e_Sep_1,PA_1,e_PA_1,DBmag_1,
     +  e_DBmag_1,DVmag_1,e_DVmag_1,v_O_C_Sep_1,v_O_C_PA_1,Ref_1,
     +  Camera_1,Note_1
        if(ar__1(59:62) .EQ. '') DBmag_1 = rNULL__
        if(ar__1(64:67) .EQ. '') e_DBmag_1 = rNULL__
        if(ar__1(69:72) .EQ. '') DVmag_1 = rNULL__
        if(ar__1(74:77) .EQ. '') e_DVmag_1 = rNULL__
        if(ar__1(79:83) .EQ. '') v_O_C_Sep_1 = rNULL__
        if(ar__1(85:88) .EQ. '') v_O_C_PA_1 = rNULL__
c    ..............Just test output...........
        write(6,2)
     +  WDS_1,Disc_1,Epoch_1,Sep_1,e_Sep_1,PA_1,e_PA_1,DBmag_1,
     +  e_DBmag_1,DVmag_1,e_DVmag_1,v_O_C_Sep_1,v_O_C_PA_1,Ref_1,
     +  Camera_1,Note_1
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table7.dat'	! Measurements and residuals (in {rho} and
*                                {theta}) from our linear solutions for all five
*                                pairs

C  Format for file interpretation

    3 format(A9,1X,F9.4,1X,F6.3,1X,F6.2,1X,F5.2,1X,F4.1,1X,A10)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table7.dat')
      write(6,*) '....Loading file: table7.dat'
      do i__=1,66
        read(1,'(A55)')ar__2
        read(ar__2,3)
     +  Name,Epoch_2,Sep_2,PA_2,v_O_C_Sep_2,v_O_C_PA_2,Ref_2
c    ..............Just test output...........
        write(6,3)
     +  Name,Epoch_2,Sep_2,PA_2,v_O_C_Sep_2,v_O_C_PA_2,Ref_2
c    .......End.of.Just test output...........
      end do
      close(1)

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