FORTRAN Generation
(/./ftp/cats/J/AJ/134/825)

Conversion of standardized ReadMe file for file /./ftp/cats/J/AJ/134/825 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/AJ/134/825       BVI photometry in M55 (NGC 6809)         (Vargas+, 2007)
*================================================================================
*Evolved stars in the galactic globular cluster M 55 (NGC 6809).
*    Vargas Alvarez C.A., Sandquist E.L.
*   <Astron. J., 134, 825-834 (2007)>
*   =2007AJ....134..825V
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'stars.dat'	! Stars list

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

      character*3   ID          ! Identification number from this study (1)
      real*8        oRA         ! (arcsec) Right Ascension offset from cluster center (2)
      real*8        oDE         ! (arcsec) Declination offset from cluster center (2)
*Note (1): Stars classification is related to star ID:
*      V1 to V13 = RR Lyr
*       1 to 268 = HB (horizontal branch) star
*     269 to 312 = AGB (asymptotic giant branch)
*     313 to 653 = RGB (red giant branch)
*     Stars are identified in Simbad as
*     Cl* NGC 6809 VS VNN and Cl* NGC 6809 VS NNN
*Note (2): The positions we tabulate are given in arcseconds from the center
*     of the cluster (taken to be 19:39:49.40-30:47:43.5 (J2000.0)), with
*     the x position being the RA offset and the y position being the DE
*     offset (positive being higher RA and DE).

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

C  Declarations for 'table2.dat'	! The interior stars in M 55

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

      character*3   ID_1        ! Identification number from this study (1)
      character*5   ID2         ! Identification number from the original study
      real*4        Bmag        ! (mag) The B band magnitude (3)
      real*4        e_Bmag      ! (mag) ? Error in Bmag
      real*4        Vmag        ! (mag) The V band magnitude (3)
      real*4        e_Vmag      ! (mag) ? Error in Vmag
      real*4        Imag        ! (mag) ? The I band magnitude
      real*4        e_Imag      ! (mag) ? Error in Imag
      character*3   Cat         ! Catalog photometry (4)
      character*14  Spc         ! Star observed in other studies (5)
*Note (1): The first row is the compilated photometry in scaled to the M97
*     photometry. The following rows with the same ID is the same star with
*     the photometry detected in the original study.
*Note (3): The Stromgren photometry from Richter et al.(1999A&A...350..476R)
*     was reported in the columns for the B and V band magnitudes. The
*     Stromgren b band is listed under the B band, and the Stromgren y band
*     is listed under the V band column.
*Note (4): Catalogues as follows:
*    VS  = Vargas Alvarez & Sandquist, this paper
*    L77 = Lee (1977A&AS...29....1L)
*    M97 = Mandushev et al. (1997AJ....114.1060M)
*    O99 = Olech et al. (1999AJ....118..442O)
*    P01 = Pych et al. (2001A&A...367..148P)
*    R99 = Richter et al. (1999A&A...350..476R)
*Note (5): References as follows:
*   B90  = Briley et al. (1990ApJ...359..307B)
*   B93  = Briley et al. (1993AJ....106..142B)
*   SN82 = Smith & Norris (1982ApJ...254..149S)
*   W81  = Webbink (1981ApJS...45..259W)

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

C  Loading file 'stars.dat'	! Stars list

C  Format for file interpretation

    1 format(A3,1X,F7.2,1X,F7.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'stars.dat')
      write(6,*) '....Loading file: stars.dat'
      do i__=1,666
        read(1,'(A19)')ar__
        read(ar__,1)ID,oRA,oDE
c    ..............Just test output...........
        write(6,1)ID,oRA,oDE
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table2.dat'	! The interior stars in M 55

C  Format for file interpretation

    2 format(
     +  A3,1X,A5,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,
     +  A3,1X,A14)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table2.dat')
      write(6,*) '....Loading file: table2.dat'
      do i__=1,1988
        read(1,'(A67)')ar__1
        read(ar__1,2)
     +  ID_1,ID2,Bmag,e_Bmag,Vmag,e_Vmag,Imag,e_Imag,Cat,Spc
        if(ar__1(18:22) .EQ. '') e_Bmag = rNULL__
        if(ar__1(31:35) .EQ. '') e_Vmag = rNULL__
        if(ar__1(37:42) .EQ. '') Imag = rNULL__
        if(ar__1(44:48) .EQ. '') e_Imag = rNULL__
c    ..............Just test output...........
        write(6,2)
     +  ID_1,ID2,Bmag,e_Bmag,Vmag,e_Vmag,Imag,e_Imag,Cat,Spc
c    .......End.of.Just test output...........
      end do
      close(1)

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