FORTRAN Generation
(/./ftp/cats/J/A_A/416/917)

Conversion of standardized ReadMe file for file /./ftp/cats/J/A_A/416/917 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/A+A/416/917  Revised Bologna Catalog of M31 globular clusters (Galleti+, 2004)
*================================================================================
*2MASS NIR photometry for 693 candidate globular clusters in M31 and the
*Revised Bologna Catalogue.
*    Galleti S., Federici L., Bellazzini M., Fusi Pecci F., Macrina S.
*   <Astron. Astrophys. 416, 917 (2004)>
*   =2004A&A...416..917G
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table2.dat'	! Revised Bologna Catalog for M31 globular
                             clusters candidates (positions)

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

C  J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs
      real*8        RAdeg       ! (deg) Right Ascension J2000
      real*8        DEdeg       ! (deg)     Declination J2000
C  ---------------------------------- ! (position vector(s) in degrees)

      character*14  M31         ! Name JHHMMSS+DDMMSS
      character*7   Name        ! Designation
      character*4   Bol         ! Identification from Battistini et al.,
*                                   1987A&AS...67..447B, Bol NNN or Bol DNNN
      character*4   SKHB        ! Identification from Sargent et al.,
*                                   1977AJ.....82..947S, SKHB NNN
      character*4   v_V62_      ! Identification from Vetesnik,
*                                   1962BAICz..13..180V, [V62] NNN
      integer*4     NBol        ! ? Identification from Battistini et al.,
*                                     1993A&A...272...77B, NBol NNN
      integer*4     ACH         ! ? Identification from Auriere et al.,
*                                     1992A&A...256...95A, ACH NN
      integer*4     v_CCS85_    ! ? Identification from Crampton et al.,
*                                     1985ApJ...288..494C
      integer*4     BA3         ! ? Identification from Baade & Arp,
*                                     1964ApJ...139.1027B, BA 3-NNN
      integer*4     SH          ! ? Identification from Sharov & Lyutyj,
*                                     1985PAZh...11..590S
      integer*4     v_MKK98_    ! ? Identification from Mochejska et al., 1998,
*                                     Cat. <J/AcA/48/455>, [MKK98] M 31 NNN
      integer*4     BH          ! ? Identification from Barmby & Huchra,
*                                     2001AJ....122.2458B
      integer*4     f           ! Global classification flag (G1)
      character*3   C           ! Classification from the original paper
      character*1   S           ! Spectroscopic confirmation (2)
      character*1   V           ! Confirmation via high resolution imaging (2)
      character*37  Com         ! Comment and reference (3)
      integer*4     RAh         ! (h) Right ascension (J2000)
      integer*4     RAm         ! (min) Right ascension (J2000)
      real*4        RAs         ! (s) Right ascension (J2000)
      character*1   DE_         ! Sign of Declination (J2000)
      integer*4     DEd         ! (deg) Declination (J2000)
      integer*4     DEm         ! (arcmin) Declination (J2000)
      real*4        DEs         ! (arcsec) Declination (J2000)
      character*12  Source      ! Source of the coordinates (4)
*Note (2): Confirmation flags:
*    [C] - Cluster;
*    [G] - Galaxy;
*    [S] - Star;
*    [H] - H II Region.
*Note (3): References (see refs.dat file), comments and/or HST archive
*    frame file name.
*Note (4): Source of the coordinates:
*    [*] DSS-II;
*    [#] HST-WCS; HST archive frame file name.
*    [1] (B005) -
*    [3] (B208) -
*    [6] (B453) -
*    [7] (B472) -
*   [11] (B257D) - coordinates from Perrett et al., 2002AJ....123.2490P;
*    [2] (B064) - coordinates from Barmby et al., 2000AJ....119..727B;
*    [4] (B284) - coordinates from Battistini et al., 1980A&AS...42..357B.
*        The corresponding object identified in the finding chart in
*        Battistini et al., 1980A&AS...42..357B has however different
*        coordinates, i.e.  00:44:56.69 +41:00:56.6;
*    [5] (B288) - the coordinates in Battistini et al.,
*        1980A&AS...42..357B are incorrect;
*    [8] (B190D) - coordinates from Sargent et al., 1977AJ.....82..947S,
*        but the corresponding object identified on the finding chart in
*        HD81 has different coordinates, i.e. 00:40:17.54 +41:39:19.97;
*    [9] (G083) - coordinates from SG77, but the corresponding object
*        identified on the finding chart in HD81 has different
*        coordinates, i.e. 00:41:08.89 +41:09:50.15;
*   [10] (B142) - coordinates from the finding chart in Battistini et al.,
*        1980A&AS...42..357B, but the corresponding object in tab. III
*        has different coordinates, i.e. 00:42:59.29 +41:20:41.78.

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

C  Declarations for 'table3.dat'	! Photometry data for M31 globular clusters and
                             candidates

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

      character*7   Name_1      ! Designation
      integer*4     f_1         ! Flag of the real nature of the entry (G1)
      real*8        Umag        ! (mag) ? U magnitude
      character*1   f_Umag      ! [* +] Indicates a F300W instead of standard
*                                         U-band magnitudes (2)
      real*8        Bmag        ! (mag) ? B magnitude
      character*1   f_Bmag      ! [#*] Flag of B magnitudes (2)
      real*8        Vmag        ! (mag) ? V magnitude
      character*1   f_Vmag      ! [#'"*] Flag of V magnitudes (2)
      character*1   u_Vmag      ! Uncertainty flag on Vmag
      real*8        Rmag        ! (mag) ? R magnitude
      character*1   f_Rmag      ! [*] Flag of R magnitudes (2)
      real*8        Imag        ! (mag) ? I magnitude
      character*1   f_Imag      ! [*] Flag of I magnitudes (2)
      real*8        Jmag        ! (mag) ? J magnitude
      real*8        Hmag        ! (mag) ? H magnitude
      real*8        Kmag        ! (mag) ? K magnitude
      character*37  Source_1    ! Optical source and NIR pre-2MASS (3)
*Note (2): Flags for magnitude:
*    [*] U,B,V,R photographic magnitudes (Battistini et al.,
*        1987A&AS...67..447B) transformed to the CCD U,B, V,R magnitudes
*        of Barmby et al., 2000AJ....119..727B; unpublished I
*        photographic magnitudes measured on a Tautenburg plate as in
*        Battistini et al., 1987A&AS...67..447B (FFP), reported to the
*        Barmby et al., 2000AJ....119..727B I magnitudes;
*    [#] B,V photographic magnitudes, Buonanno et al.,
*        1982A&AS...47..451B, (tab. II);
*    ['] V magnitude obtained by eye, Battistini et al.,
*        1980A&AS...42..357B, (tab. V);
*    ["] (B109D) - Reed et al. (1994AJ....107..555R): B=15.473, V=15.131,
*        R=14.666, they probably measured a near brightest star.
*Note (3): See refs.dat file for reference codes.
*    "p2" indicates objects with significant differences between 2MASS
*    photometry and pre-2MASS photometry (in a few case there are another
*    source near the object).

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

C  Declarations for 'table4.dat'	! Photometry data for objects that are not clusters

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

      character*7   Name_2      ! Designation
      integer*4     f_2         ! Flag of the real nature of the entry (G1)
      real*8        Umag_1      ! (mag) ? U magnitude
      character*1   f_Umag_1    ! [* +] Indicates a F300W instead of standard
*                                         U-band magnitudes (2)
      real*8        Bmag_1      ! (mag) ? B magnitude
      character*1   f_Bmag_1    ! [#*] Flag of B magnitudes (2)
      real*8        Vmag_1      ! (mag) ? V magnitude
      character*1   f_Vmag_1    ! [#'"*] Flag of V magnitudes (2)
      character*1   u_Vmag_1    ! Uncertainty flag on Vmag
      real*8        Rmag_1      ! (mag) ? R magnitude
      character*1   f_Rmag_1    ! [*] Flag of R magnitudes (2)
      real*8        Imag_1      ! (mag) ? I magnitude
      character*1   f_Imag_1    ! [*] Flag of I magnitudes (2)
      real*8        Jmag_1      ! (mag) ? J magnitude
      real*8        Hmag_1      ! (mag) ? H magnitude
      real*8        Kmag_1      ! (mag) ? K magnitude
      character*37  Source_2    ! Optical source and NIR pre-2MASS (3)
*Note (2): Flags for magnitude:
*    [*] U,B,V,R photographic magnitudes (Battistini et al.,
*        1987A&AS...67..447B) transformed to the CCD U,B, V,R magnitudes
*        of Barmby et al., 2000AJ....119..727B; unpublished I
*        photographic magnitudes measured on a Tautenburg plate as in
*        Battistini et al., 1987A&AS...67..447B (FFP), reported to the
*        Barmby et al., 2000AJ....119..727B I magnitudes;
*    [#] B,V photographic magnitudes, Buonanno et al.,
*        1982A&AS...47..451B, (tab. II);
*    ['] V magnitude obtained by eye, Battistini et al.,
*        1980A&AS...42..357B, (tab. V);
*    ["] (B109D) - Reed et al. (1994AJ....107..555R): B=15.473, V=15.131,
*        R=14.666, they probably measured a near brightest star.
*Note (3): See refs.dat file for reference codes.
*    "p2" indicates objects with significant differences between 2MASS
*    photometry and pre-2MASS photometry (in a few case there are another
*    source near the object).

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

C  Declarations for 'refs.dat'	! References

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

      character*5   Ref         ! Reference code (1)
      character*19  BibCode     ! Bibcode
      character*19  Aut         ! Author's name
      character*25  Com_1       ! Comments
*Note (1): B87: tabVII contains objects that are probably non-clusters

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

C  Loading file 'table2.dat'	! Revised Bologna Catalog for M31 globular
*                             clusters candidates (positions)

C  Format for file interpretation

    1 format(
     +  3X,A14,1X,A7,2X,A4,1X,A4,1X,A4,1X,I4,2X,I3,1X,I4,I3,I3,I4,I3,
     +  2X,I1,1X,A3,A1,1X,A1,4X,A37,3X,I2,1X,I2,1X,F6.3,1X,A1,I2,1X,
     +  I2,1X,F5.2,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table2.dat')
      write(6,*) '....Loading file: table2.dat'
      do i__=1,1164
        read(1,'(A161)')ar__
        read(ar__,1)
     +  M31,Name,Bol,SKHB,v_V62_,NBol,ACH,v_CCS85_,BA3,SH,v_MKK98_,BH,
     +  f,C,S,V,Com,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Source
        if(ar__(43:46) .EQ. '') NBol = iNULL__
        if(ar__(49:51) .EQ. '') ACH = iNULL__
        if(ar__(53:56) .EQ. '') v_CCS85_ = iNULL__
        if(ar__(57:59) .EQ. '') BA3 = iNULL__
        if(ar__(60:62) .EQ. '') SH = iNULL__
        if(ar__(63:66) .EQ. '') v_MKK98_ = iNULL__
        if(ar__(67:69) .EQ. '') BH = iNULL__
        RAdeg = rNULL__
        DEdeg = rNULL__
c  Derive coordinates RAdeg and DEdeg from input data
c  (RAdeg and DEdeg are set to rNULL__ when unknown)
        if(RAh .GT. -180) RAdeg=RAh*15.
        if(RAm .GT. -180) RAdeg=RAdeg+RAm/4.
        if(RAs .GT. -180) RAdeg=RAdeg+RAs/240.
        if(DEd .GE. 0) DEdeg=DEd
        if(DEm .GE. 0) DEdeg=DEdeg+DEm/60.
        if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600.
        if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
c    ..............Just test output...........
        write(6,1)
     +  M31,Name,Bol,SKHB,v_V62_,NBol,ACH,v_CCS85_,BA3,SH,v_MKK98_,BH,
     +  f,C,S,V,Com,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Source
        write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table3.dat'	! Photometry data for M31 globular clusters and
*                             candidates

C  Format for file interpretation

    2 format(
     +  A7,1X,I2,2X,F7.3,A1,1X,F7.3,A1,2X,F7.3,A1,A1,1X,F7.3,A1,2X,
     +  F7.3,A1,2X,F7.3,2X,F7.3,2X,F7.3,5X,A37)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table3.dat')
      write(6,*) '....Loading file: table3.dat'
      do i__=1,1035
        read(1,'(A128)')ar__1
        read(ar__1,2)
     +  Name_1,f_1,Umag,f_Umag,Bmag,f_Bmag,Vmag,f_Vmag,u_Vmag,Rmag,
     +  f_Rmag,Imag,f_Imag,Jmag,Hmag,Kmag,Source_1
        if(ar__1(13:19) .EQ. '') Umag = rNULL__
        if(ar__1(22:28) .EQ. '') Bmag = rNULL__
        if(ar__1(32:38) .EQ. '') Vmag = rNULL__
        if(ar__1(42:48) .EQ. '') Rmag = rNULL__
        if(ar__1(52:58) .EQ. '') Imag = rNULL__
        if(ar__1(62:68) .EQ. '') Jmag = rNULL__
        if(ar__1(71:77) .EQ. '') Hmag = rNULL__
        if(ar__1(80:86) .EQ. '') Kmag = rNULL__
c    ..............Just test output...........
        write(6,2)
     +  Name_1,f_1,Umag,f_Umag,Bmag,f_Bmag,Vmag,f_Vmag,u_Vmag,Rmag,
     +  f_Rmag,Imag,f_Imag,Jmag,Hmag,Kmag,Source_1
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table4.dat'	! Photometry data for objects that are not clusters

C  Format for file interpretation

    3 format(
     +  A7,1X,I2,2X,F7.3,A1,1X,F7.3,A1,2X,F7.3,A1,A1,1X,F7.3,A1,2X,
     +  F7.3,A1,2X,F7.3,2X,F7.3,2X,F7.3,5X,A37)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table4.dat')
      write(6,*) '....Loading file: table4.dat'
      do i__=1,129
        read(1,'(A128)')ar__2
        read(ar__2,3)
     +  Name_2,f_2,Umag_1,f_Umag_1,Bmag_1,f_Bmag_1,Vmag_1,f_Vmag_1,
     +  u_Vmag_1,Rmag_1,f_Rmag_1,Imag_1,f_Imag_1,Jmag_1,Hmag_1,Kmag_1,
     +  Source_2
        if(ar__2(13:19) .EQ. '') Umag_1 = rNULL__
        if(ar__2(22:28) .EQ. '') Bmag_1 = rNULL__
        if(ar__2(32:38) .EQ. '') Vmag_1 = rNULL__
        if(ar__2(42:48) .EQ. '') Rmag_1 = rNULL__
        if(ar__2(52:58) .EQ. '') Imag_1 = rNULL__
        if(ar__2(62:68) .EQ. '') Jmag_1 = rNULL__
        if(ar__2(71:77) .EQ. '') Hmag_1 = rNULL__
        if(ar__2(80:86) .EQ. '') Kmag_1 = rNULL__
c    ..............Just test output...........
        write(6,3)
     +  Name_2,f_2,Umag_1,f_Umag_1,Bmag_1,f_Bmag_1,Vmag_1,f_Vmag_1,
     +  u_Vmag_1,Rmag_1,f_Rmag_1,Imag_1,f_Imag_1,Jmag_1,Hmag_1,Kmag_1,
     +  Source_2
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'refs.dat'	! References

C  Format for file interpretation

    4 format(A5,2X,A19,A19,2X,A25)

C  Effective file loading

      open(unit=1,status='old',file=
     +'refs.dat')
      write(6,*) '....Loading file: refs.dat'
      do i__=1,56
        read(1,'(A72)')ar__3
        read(ar__3,4)Ref,BibCode,Aut,Com_1
c    ..............Just test output...........
        write(6,4)Ref,BibCode,Aut,Com_1
c    .......End.of.Just test output...........
      end do
      close(1)

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