FORTRAN Generation
(/./ftp/cats/III/184)

Conversion of standardized ReadMe file for file /./ftp/cats/III/184 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.8, on 2014-Aug-27
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__=-1.e37)     	! NULL real number
      parameter  (iNULL__=-2147483647)	! NULL int  number

C=============================================================================
Cat. III/184      3rd Bibliog. Cat. of Stellar Radial Vel. (Barbier-Brossat+, 1994)
*================================================================================
*Troisieme Catalogue Bibliographique de Vitesses Radiales Stellaires
*     Barbier-Brossat M., Petit M., Figon P.
*    <Astron. Astrophys. Suppl. Ser. 108, 603 (1994)>
*    =1994A&AS..108..603B
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'catalog.dat'	! Third bibliographic catalogue of
                               stellar radial velocities

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

      real*8        RA_         ! (deg) Right Ascension 1950
      real*8        Dec         ! (deg)     Declination 1950
      integer*4     HD          ! [1/358431]? HD number
      character*1   m_HD        ! Multiplicity index on HD (1)
      character*11  DM          ! DM identification (BD, CP, or CD number)
      character*1   m_DM        ! Multiplicity index on DM (1)
      character*3   WEB         ! [WEB ] "Catalogue de synthese" reference (2)
      character*17  OtherName   ! Other designations
      integer*4     RAh         ! (h) Right ascension 1950
      real*4        RAm         ! (min) Right ascension 1950
      character*1   u_RAm       ! [*] Uncertainty flag on right ascension
      character*1   DE_         ! Declination sign
      integer*4     DEd         ! (deg) Declination 1950
      integer*4     DEm         ! (arcmin) Declination 1950
      character*1   n_Vmag      ! [*V] 'V' for Variable;
*                                  '*' if Vmag is a B or photographic magnitude
      real*4        Vmag        ! (mag) []? V magnitude (B or photographic magnitude
*                                                   if n_Vmag = *)
      character*1   u_Vmag      ! [:*] uncertainty flag on Vmag;  * indicates
*                                      very uncertain (::) value
      character*10  Sp          ! Spectral type
      real*8        RV          ! (km/s) []? Heliocentric radial velocity
      character*2   u_RV        ! [: ] Uncertainty flag on RV
*                                    (an unexplained * exists for HD 49212)
      character*1   q_RV        ! [ABCDE*:] Quality from A (very good)
*                                                     to E (very poor)
      integer*4     o_RV        ! []? Number of (new) measurements
      character*4   Rem         ! Remark (3)
      character*4   Disp        ! (0.1nm/mm) Dispersion (4)
      character*13  Ref         ! Reference as Journal Code, Volume, Page (5)
      character*4   Year        ! Year of publication
      character*1   Rem2        ! Remarks. '*' indicates remark in note (6)
*Note (1): Uppercase letters are used for visual double stars,
*     lowercase letters for spectroscopic double stars. In the second case,
*     the letter 'a' has been replaced by the letter 'i' . The symbol '/'
*     indicates that the measure concerns 2 stars with consecutive HD
*     numbers or that the radial velocity is relative to the measure of the
*     2 components of the same star.
*Note (2): Letters W, E and B are related to the "Catalogue General de Synthese"
*     realised from the catalogues of Wilson, Evans and Batten
*     (catalog III/190)
*Note (3): Abbreviations used:
*     CEPH =  Cepheid. The mean velocity is then provided.
*     DBL, TRI, QUAD, MUL = double, triple, quadruple, multiple star respectively
*     DE =   eclipsing binary
*     DS, DS1, DS2 = spectroscopic binary, with 1 or 2 line systems
*     EM =   velocity calculated from emission lines
*     ORB =  orbit; the star systemic velocity is provided
*               (unexplained 'E' for Cyg X-1)
*     RRLY = RR Lyrae star. The RR lyrae star gravity center is provided
*     STND = IAU standard star
*     VAR =  variable radial velocity, according to the author.
*Note (4): Dispersion used for the radial velocity determination.
*     If the published velocity is the mean of several velocities obtained
*     with very different dispersions, there is no value of the dispersion.
*     Otherwise, we mention the lowest dispersion used preceded by the
*     symbol <.
*     COR: velocities are measured with a correlation spectrophotometer
*Note (5): List of abbreviations used for the Journals:
*     AA     = Acta Astronomica
*     AAP    = Astronomy and Astrophysics
*     AAPS   = Astronomy and Astrophysics Supplement Series
*     AAOB   = Abastumani Astrophysical Observatory Bulletin
*     AFA    = Arkiv fur Astrophysik
*     AJ     = Astronomical Journal
*     AN     = Astronomische Nachrichten
*     AP     = Astrophysics (URSS)
*     APJ    = Astrophysical Journal
*     APJS   = Astrophysical Journal Supplement Series
*     ASS    = Astrophysics and Space Science
*     AT     = Annals of the Tokyo Astronomical Observatory
*     BAAA   = Boletin de la Asociacion Argentina de Astronomia
*     BAAS   = Bulletin of the American Astronomical Society
*     BAIC   = Bulletin of the Astronomical Institutes of Czechoslovakia
*     BOTT   = Boletin de Los Observatorios Tonantzintla y Tacubaya
*     CAO    = Bulletin de l'Observatoire de Crimee
*     CRAS   = Comptes Rendus de l'Academie des Sciences, Paris
*     DAO    = Publications of the Dominion Astrophysical Observatory
*     HA     = Highlights os Astronomy
*     IAUS   = International Astronomical Union Symposium
*     IBVS   = Information Bulletin on Variable Stars
*     JAA    = Journal of Astrophysics and Astronomy (Inde)
*     JO     = Journal des Observateurs
*     MAG    = Mittelungen Astronomische Gesellschaft
*     MAKL   = Mededelingen van Het Astronomich Institut van de Katholieke
*                    Universiteit Leuven
*     MEM    = Memoirs of the Royal Astronomical Society
*     MES    = The Messenger (ESO)
*     MN     = Monthly Notices of the Royal Astronomical Society
*     MNAS   = Monthly Notices of the Astronomical Society of Sotuh Africa
*     MSAI   = Memorie della Societa Astronomica Italiana
*     OBS    = The Observatory
*     PASJ   = Publications of the Astronomical Society of Japan
*     PASA   = Publications of the Astronomical Society of Australia
*     PASP   = Publications of the Astronomical Society of Pacific
*     PCAO   = Publication Crimean Astrophysical Observatory
*     PDDO   = Publications of the David Dunlap Observatory
*     POAS   = Publications de l'Observatoire Astronomique de Strasbourg
*     POCC   = Observatorio Astronomico Nacional, Cerro Calan, Publicaciones
*     POGB   = Publications de l'Observatoire de Geneve, Serie B
*     RASC   = Journal of the Royal Astronomical Society of Canada
*     RASV   = Ricerche Astronomiche Specola Vaticana
*     RGOA   = Royal Greenwich Observatory Annals
*     RMAA   = Revista Mexicana de Astronomia y Astrofisica
*     ROB    = Royal Observatory Bulletin
*     SA     = Soviet Astronomy
*     SAL    = Soviet Astronomy - Letters
*     SAOC   = South African Astronomical Observatory Circulars
*     VA     = Vistas in Astronomy
*Note (6): Remarks:
*   * Ma 260 in AAP 17, 253-1972. We deleted the BD identification given by the
*      author because it doesn't correspond to the star coordinates
*   * LTT 664 = CD-44 334 instead of CD-44 344 in AJ 84, 1553-1979
*   * Fl 770 in POAS 2, 1-1972. The published coordinates don't correspond to
*      those of star CP-74 106. We deleted this identification.
*   * HD 11154 = HR 530 instead of HD 11155 in APJS 62, 147
*   * HD 22484 = BD-0 572 instead of BD+0 572 in AAPS 71, 253
*   * vB 188 instead of vB 178 in AJ 88, 844-1983 from published coordinates
*   * HD 36486 in APJ 214, 759-1977. The systemic velocity +118.3 published seems
*      wrong compared with other publications. This velocity might be +18.3
*   * Gl  234A instead of 243A in APJS 314, 272-1987
*   * NGC 2287 c4  =  HD 49105 in AAPS 62, 301-1985. The coordinates and the
*      spectral type published in the paper don't correspond to those of HD.
*      We deleted this identification.
*   * HD 86612 instead of HD 86162 in AAPS 63, 87-1986
*   * CC Com in PASP 89, 684-1977. The coordinates are different from those of
*      the "Catalogue d'Etoiles Variables" by Kukarkin.
*   * HD 112211 instead of 12211 in AJ 89, 1897-1984
*   * HD 119191 instead of 19191 in AJ 89, 1897-1984
*   * CD-29 10863 instead of CD-20 10863 in AJ 89, 1897-1984
*   * HD 129981 instead of HD 129881 in MN 159, 67-1972
*   * HD 151985 instead of 151895 in APJS 64, 487-1982
*   * Case 437 in AJ 81, 364-176. We adopted the coordinates from Case catalogue
*      which differ slightly from the published ones.
*   * CD-23 13997 instead of CP-23 13997 in MN 158, 85-1972
*   * CD-23 13998 instead of CP-23 13998 in MN 158, 85-1972
*   * CD-35 12911 in POCC 2, 40-1970. The author coordinates differ from
*      those indicated in SIMBAD, which we have adopted.
*   * APJS 73, 843-1990. There is some confusion between the corresponding
*      numbers.
*        cya 51=CCS 2866=nb 201;
*        cya 50=CCS 2862=nb 202;
*        cya 77=CCS 2873;
*        cya 76=CCS 2874
*   * BD+15  4915 instead of BD+15  4914 in PASP 97, 1086-1985

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

C  Loading file 'catalog.dat'	! Third bibliographic catalogue of
*                               stellar radial velocities

C  Format for file interpretation

    1 format(
     +  I6,A1,1X,A11,A1,1X,A3,1X,A17,1X,I2,1X,F4.1,A1,A1,I2,1X,I2,1X,
     +  A1,F5.2,A1,A10,1X,F7.2,A2,1X,A1,1X,I3,1X,A4,1X,A4,1X,A13,A4,
     +  1X,A1)

C  Effective file loading

      open(unit=1,file='catalog.dat', status='old')
      write(6,*) '....Loading file: catalog.dat'
      do i__=1,43821
        read(1,'(A121)')ar__
        read(ar__,1)
     +  HD,m_HD,DM,m_DM,WEB,OtherName,RAh,RAm,u_RAm,DE_,DEd,DEm,
     +  n_Vmag,Vmag,u_Vmag,Sp,RV,u_RV,q_RV,o_RV,Rem,Disp,Ref,Year,Rem2
        if(ar__(1:6) .EQ. '') HD = iNULL__
        if(ar__(60:64) .EQ. '') Vmag = rNULL__
        if(ar__(77:83) .EQ. '') RV = rNULL__
        if(ar__(89:91) .EQ. '') o_RV = iNULL__
c       Derive coordinates RA_ and Dec from input data
c       (RA_ and Dec are set to rNULL_ when unknown)
        RA_ = RAh
        if(RAh .GE. 0) RA_=RAh*15.
        if(RAm .GE. 0) RA_=RA_+RAm/4.
        Dec = DEd
        if(DEm .GE. 0) Dec=Dec+DEm/60.
        if(DE_.EQ.'-'.AND.Dec.GE.0) Dec=-Dec
c    ..............Just test output...........
        write(6,1)
     +  HD,m_HD,DM,m_DM,WEB,OtherName,RAh,RAm,u_RAm,DE_,DEd,DEm,
     +  n_Vmag,Vmag,u_Vmag,Sp,RV,u_RV,q_RV,o_RV,Rem,Disp,Ref,Year,Rem2
        write(6,'(6H Pos: 2F8.4)') RA_,Dec
c    .......End.of.Just test output...........
      end do
      close(1)

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