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

Conversion of standardized ReadMe file for file /./ftp/cats/III/227 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 2017-Nov-17
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. III/227    General Catalog of galactic Carbon stars, 3d Ed.   (Alksnis+ 2001)
*================================================================================
*A general catalogue of galactic carbon stars by C.B. Stephenson. Third edition.
*     Alksnis A., Balklavs A., Dzervitis U., Eglitis I., Paupers O., Pundure I.
*    <Baltic Astronomy, 10, 1 (2001)>
*    =2001BaltA..10....1A
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'catalog.dat'	! General catalogue of galactic carbon stars

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

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

      character*9   Jname       ! Star designation (based on J2000 position)
      integer*4     CGCS        ! CGCS number (1)
      integer*4     RAh         ! (h) Right ascension (J2000.0) (2)
      integer*4     RAm         ! (min) Right ascension J2000.0)
      real*4        RAs         ! (s) Right ascension J2000.0)
      character*1   DE_         ! [-+] Declination sign
      integer*4     DEd         ! (deg) Declination J2000.0)
      integer*4     DEm         ! (arcmin) Declination J2000.0)
      integer*4     DEs         ! (arcsec) Declination J2000.0)
      character*1   l_Bmag      ! [<] limit flag on B
      real*4        Bmag        ! (mag) ? B magnitude (3)
      character*1   u_Bmag      ! [:] uncertainty flag on B
      real*4        Vmag        ! (mag) ? V magnitude (4)
      character*1   u_Vmag      ! [:] uncertainty flag on V
      real*4        irmag       ! (mag) ? red or near-IR magnitude (5)
      character*1   n_irmag     ! [rRJHKL ] IR band
      character*1   u_irmag     ! [:] uncertainty flag on ir
      real*4        GLON        ! (deg) Galactic longitude
      real*4        GLAT        ! (deg) Galactic latitude
      character*18  Sp          ! ? Spectral type (6)
      character*34  Names       ! Designations (7)
      character*8   Notes       ! ? Notes (8)
      integer*4     Pr          ! ? Precision class of the coordinates (9)
*Note (1): This is the number from the first column of the catalog from the
*    2nd edition (CGCCS, Cat. <III/156>). We have not introduced a new
*    running number to avoid overcrowding of identifiers for an object. For
*    new entries the running numbers begin with No. 6001 and are given in
*    the sequence of R.A. (J2000).
*Note (2):
*    In case of multiple finding lists, the coordinates are averages from
*    multiple sources, heavily weighted in favour of the most accurate, if
*    any. When Ste (for Stephenson) is included among the designations,
*    the star has almost invariably been measured for position at the
*    Warner and Swasey Obs. on one or even more objective-prism plates,
*    with a resulting precision of 1-2". The astrometric reduction
*    procedure used by Stephenson is explained in Publs. Warner and Swasey
*    Obs. Vol. 2, No. 4, Sec. II. More than 2000 stars of the catalog have
*    post CCCS position determinations done at the Warner and Swasey
*    Observatory.
*
*    The coordinates are given to 0.1 sec in RA and 1 arcsec in DEC,
*    notwithstanding the precision class of the position of the object.
*    The estimated precision of the coordinates is indicated in the last
*    column. For many stars of CGCCS the equatorial coordinates have been
*    improved on the basis of new determinations, e.g., by Aaronson et al.
*    (1989ApJS...70..637A, 1990ApJS...73..841A), MacConnell (2000, Priv.
*    Comm.), Maehara & Soyano (1988AnTok..22...59M, 1990PNAOJ...1..207M),
*    Soyano & Maehara (1991PNAOJ...2..203M, 1993PNAOJ...3..259S,
*    1999PNAOJ...5..149S).
*
*    For more than 300 carbon stars equatorial coordinates were taken from
*    the Hipparcos Catalogue (<I/239>) after approximation to the format of
*    this catalog. These stars can be recognized as bright stars with the
*    highest precision class 0 in the last column of the catalog.
*Note (3):
*    B magnitudes essentially all come from photographic plates; thousands
*    of them are based only upon an average plate calibration used for an
*    entire survey. Thus the magnitudes are almost never accurate to 0.1
*    mag, to which they are commonly given, and errors of over a whole
*    magnitude should be common, even discounting variability.
*Note (4):
*    V magnitudes essentially all come from photographic plates; For some
*    stars V magnitudes from Paupers et al. (1993BaltA...2..268P) are used.
*Note (5):
*    The infrared magnitudes are normally the sort defined by a Kodak
*    N-type photographic plate exposed through a filter similar to the
*    Schott RG8 or 695 filter. Such infrared magnitudes are close to the
*    system of Kron & Smith (1951ApJ...113..324K), and have now been
*    published for several thousand carbon stars.
*Note (6):
*    This column displays the earliest more reliable determinations of
*    spectral type in the R/N notation. Here also are classifications in
*    the scheme of Morgan & Keenan (1941ApJ....94..501K); this scheme is
*    still a good compact description of the spectrum. Sources of quoted
*    classifications are coded here in parentheses.
*
*    Below we list abbreviations for papers consisting mainly of
*    reobservation of stars selected from finding lists:
*
*        Bidun   Bidelman, unpublished.
*        De      Dean (1976AJ.....81..364D).
*        HD, HDE Henry Draper Catalogue and the extensions (Cat. <III/135>).
*                The second extension, HA 112, is cited as CannMay49..
*        Her52   Herbig (1952, Trans. I.A.U., Vol. 8, 807).
*        IRAS C  Little-Marenin et al. (1987AJ.....93..663L)
*        K-M     Keenan & Morgan (1941ApJ....94..501K)
*        Lund21  Lundmark (1921PASP...33..314).
*        San41   Sanford (1941PASP...53..291S).
*        San     Sanford (1944ApJ....99..145S).
*        Sh      Shane (1928, Bull. Lick Obs., 13, 123).
*        War     Warner (1963MNRAS.126...61W).
*        WPB     Bidelman (1954ApJS....1..175B).
*        Yam     Yamashita (1972AnTok..13..169Y, 1975AnTok..15...47Y).
*
*    Carbon star candidates in this column are marked by lower case c
*    (Guglielmo et al., 1998A&A...334..609G and references therein).
*Note (7):
*    This column gives the star's occurence in various finding lists,
*    including unpublished ones. Some CCCS stars repeated here are still
*    called unpublished, which means only that I had no reference to a
*    separate publication when the CCCS went to press. For some of those
*    stars, the CCCS is the only place they have been published; for
*    others, they have since appeared in separate lists by their
*    discoverers. In the latter case I have sometimes changed the
*    discoverer designation to reflect separate subsequent publication, and
*    sometimes not; in the great majority of cases, CCCS stars there called
*    unpublished have since been confirmed in other surveys.
*
*    There are finding lists with no special concentration on carbon stars.
*    These are the Bright Star Catalog number, cited, as in all editions of
*    the Bright Star Catalog, as an HR number (and usually put at the head
*    of the list); HD or HDE numbers (listed as a number without other
*    characters); BD or CD numbers in a notation close to the usual one;
*    and the GCVS designation. The intent was to give CD numbers only if
*    the CD magnitude is 9.5 or brighter. Any CPD (Cape Photographic
*    Durchmusterung) nos. in the catalog are inadvertent unless spelled out
*    as such, a fact due to the circumstance that carbon stars are red
*    stars and the CD is red-biased, not only relative to the CPD but even,
*    though this does not appear to be widely known, relative to the BD.
*
*    Other finding lists: an explanation for the coding of these are in the
*    "lists.dat" file. The largest unpublished lists are by Stephenson
*    (Ste), a combination of stars now published in the CCCS and infrared
*    survey products appearing in the present catalog; Sanduleak (Sndlk),
*    whose entries are almost exclusively confined to CCCS stars; Victor
*    Blanco (VB); and MacConnell (MacCon). Although there are several
*    published MacConnell lists cited here, some of the MacCons may have
*    since become separately published; but see also the special note under
*    MacCon in the lists.dat file.
*
*    Coding: Whenever a number appears separated from the initial part of
*    the designation by a blank space, the number is a published one
*    assigned by the corresponding discoverer, hyphens if any separating
*    table numbers from numbers within tables. Numbers following alphabetic
*    abbreviations without a blank space represent the year of publication
*    where this was for some reason helpful to me (generally, where the
*    same author has produced more than one paper). So "Kurt88 4" means
*    star No. 4 in a table of carbon stars in Westerlund (1988,
*    Astrofizika, 29, 405).
*
*    The meaning of the abbreviations are in the "lists.dat" file.
*    Here some comments on some abbreviations:
*
*      D  : The Dearborn Observatory objective-prism surveys for red stars.
*           The carbon stars thus found were abstracted as lists of
*           exclusively carbon stars, in the papers just cited, and were
*           duplicated in longer lists containing all red stars found; the
*           D numbers given in the catalog refer to the short lists, with one
*           or two exceptions spelled out in the notes to the table.
*
*           The notes also refer in other contexts to the "longer" Dearborn
*           lists, with the meaning just explained. The "short" list numbers
*           for carbon stars are continuous from paper to paper.
*
*     Hen : Rybski (1972, unpublished). Most of the carbon stars discussed by
*           Rybski were found on objective-prism plates by Henize, and by
*           him assigned the numbers which Rybski refers to as Hen numbers
*           and Stephenson quote in the catalog. There is no connection between
*           these Hen numbers and others occurring in the literature -- even
*           in the case of the occasional Hen numbers for carbon stars cited
*           by Wray (1966, unpublished), who however, also assigns his own
*           numbers and which are quoted in the catalog as Wray.
*
*    Krum : L.E. Krumenaker, unpublished. At Warner and Swasey we had by 1972
*           taken duplicate objective-prism plates of the northern Milky Way
*           for about half of the fields surveyed by Hamburg in the
*           Hamburg-Cleveland survey for luminous stars in the Northern
*           Milky Way. Although carbon stars were identified and measured
*           for position by the Hamburg  workers, and eventually published
*           (Hardorp et al., 1973A&A....22..129H), the Hamburg limiting
*           magnitude for carbon stars was not very faint (cf. Hardorp et
*           al., 1973A&A....22..129H ). Hence Krumenaker searched for carbon
*           stars on the new Case material already mentioned. On the other
*           hand, the mag. limit for R/N classification is already fairly
*           uniform between Hamburg and Cleveland (Stephenson,
*           1989PW&SO...3...53S).
*
*     Kub : W.R. Kubinec, unpublished. These carbon stars are discussed by
*           Kbinec, without position data, in 1989PW&SO...3...53S. He
*           measured the approximate positions specially for the catalog.
*
* NassCol : The numerical C types quoted from this paper are defined in the
*           paper; they essentially describe the CN strength, and the
*           redness, of the spectrum in the infrared.
*Note (8):
*    Four symbols were introduced in the CCCS and are retained here:
*
*  (1) An asterisk indicates that the catalog equates two or more data in
*      literal contradiction to one or more papers cited; for example, a much
*      later paper may be reporting a new carbon star already so identified
*      in a much earlier paper, which implies that perhaps there are two
*      carbon stars in the area. This was a natural flag to use in the CCCS,
*      where carbon stars were mainly reported in a few large and well-known
*      surveys. It is no longer natural now, where the main pre-publication
*      comparison has been with the CCCS, and there have meanwhile been many
*      relatively short lists. Thus, I have added few if any new asterisks.
*      Finally, a single asterisk meant that my fusing of two or more reports
*      was based on coordinates alone, without any plate re-examination. In
*      fact, many or most of these cases have now been routinely re-examined
*      through later, systematic, surveys; but I have retained the asterisk
*      to show the historical order.
*
*  (2) A double asterisk means the same as a single one, except that I have
*      specially re-examined plates with the identification problem in mind.
*      As in (1), many of these have been further checked routinely by later,
*      systematic surveys, where the finding of only one star allows the
*      strong presumption that only one carbon star is involved. There are
*      few or no new double asterisks in the present edition.
*
*  (3) A plus sign signals a GCVS identification made by me by comparing an
*      objective prism plate with a published identification chart. These,
*      too, are mostly holdovers from the CCCS, because the host of more
*      accurate coordinates for carbon stars in the present edition usually
*      restricts any challenge to identifying a carbon star with a GCVS
*      cool-giant variability type to the question (at least on deep plates):
*      is there any other banded spectrum near the carbon star?
*
*  (4) An R signals further remarks at the end of the catalog.
*
*    The object of the remarks is twofold. First, remarks are intended as
*    an extension to the entries Designations and Spectrum of the catalog
*    comprising matter for which there was no place in the catalog. Second,
*    remarks contain information about considerable disagreement in the
*    position of a star determined by different authors or cases when there
*    is some doubt if the data refer to the same star. We repeat
*    Stephenson's remarks, although in a shortened form, in which he
*    confirms discoveries or points to certain spectral and photometric
*    peculiarities (outstanding spectral lines and bands, very red color
*    etc.). Also we indicate the cases when a carbon star lies in the sky
*    within boundaries of some star clusters and note conclusions about the
*    membership, if possible. Also the stars with such distinguishing
*    features as circumstellar silicate envelopes, detached gas and dust
*    shells, maser emission, binarity and bipolar molecular outflows are
*    marked.
*Note (9):
*    Estimated precision class of the equatorial coordinates of the star:
*     0-1 for +/-0.1 arcsec,
*       2 for +/-1 arcsec,
*       3 for +/-0.1 arcmin.
*    Values of the precision class have been estimated by comparing
*    coordinates of the stars determined by different authors. The highest
*    precision class 0 was assigned only to the positions determined by
*    Hipparcos, by MacConnell (2000, Priv. Comm) and for dwarf carbon stars.

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

C  Declarations for 'remarks.dat'	! Individual remarks

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

      character*9   Jname_1     ! Star designation (based on J2000 position)
      integer*4     CGCS_1      ! CGCS number, as in catalog.dat file
      character*64  Rem         ! Text of the remark

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

C  Declarations for 'lists.dat'	! Abbreviations and References

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

      character*15  Code        ! Reference list abbreviation, or blank
      character*19  BibCode     ! BibCode
      character*25  Aut         ! Author names
      character*130 Com         ! Comments

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

C  Loading file 'catalog.dat'	! General catalogue of galactic carbon stars

C  Format for file interpretation

    1 format(
     +  A9,2X,I4,2X,I2,1X,I2,1X,F4.1,2X,A1,I2,1X,I2,1X,I2,2X,A1,F4.1,
     +  A1,2X,F4.1,A1,2X,F4.1,A1,A1,2X,F5.1,1X,F5.1,2X,A18,A34,A8,I1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'catalog.dat')
      write(6,*) '....Loading file: catalog.dat'
      do i__=1,6891
        read(1,'(A137)')ar__
        read(ar__,1)
     +  Jname,CGCS,RAh,RAm,RAs,DE_,DEd,DEm,DEs,l_Bmag,Bmag,u_Bmag,
     +  Vmag,u_Vmag,irmag,n_irmag,u_irmag,GLON,GLAT,Sp,Names,Notes,Pr
        if(ar__(42:45) .EQ. '') Bmag = rNULL__
        if(ar__(49:52) .EQ. '') Vmag = rNULL__
        if(ar__(56:59) .EQ. '') irmag = rNULL__
        if(ar__(137:137) .EQ. '') Pr = 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)
     +  Jname,CGCS,RAh,RAm,RAs,DE_,DEd,DEm,DEs,l_Bmag,Bmag,u_Bmag,
     +  Vmag,u_Vmag,irmag,n_irmag,u_irmag,GLON,GLAT,Sp,Names,Notes,Pr
        write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'remarks.dat'	! Individual remarks

C  Format for file interpretation

    2 format(A9,2X,I4,1X,A64)

C  Effective file loading

      open(unit=1,status='old',file=
     +'remarks.dat')
      write(6,*) '....Loading file: remarks.dat'
      do i__=1,1867
        read(1,'(A80)')ar__1
        read(ar__1,2)Jname_1,CGCS_1,Rem
c    ..............Just test output...........
        write(6,2)Jname_1,CGCS_1,Rem
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'lists.dat'	! Abbreviations and References

C  Format for file interpretation

    3 format(A15,1X,A19,1X,A25,1X,A130)

C  Effective file loading

      open(unit=1,status='old',file=
     +'lists.dat')
      write(6,*) '....Loading file: lists.dat'
      do i__=1,278
        read(1,'(A192)')ar__2
        read(ar__2,3)Code,BibCode,Aut,Com
c    ..............Just test output...........
        write(6,3)Code,BibCode,Aut,Com
c    .......End.of.Just test output...........
      end do
      close(1)

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