FORTRAN Generation
(/./ftp/cats/VII/118)

Conversion of standardized ReadMe file for file /./ftp/cats/VII/118 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 2018-Sep-21
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. VII/118               NGC 2000.0            (Sky Publishing, ed. Sinnott 1988)
*================================================================================
*NGC 2000.0, The Complete New General Catalogue and Index Catalogue
*of Nebulae and Star Clusters by J.L.E. Dreyer
*     Sinnott, R.W. (edited by)
*    <Sky Publishing Corporation and Cambridge University Press (1988)>
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'ngc2000.dat'	! The NGC 2000.0 Catalogue

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

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

      character*5   Name        ! NGC or IC designation (preceded by I)
      character*3   Type        ! Object classification (1)
      integer*4     RAh         ! (h) Right Ascension B2000 (hours)
      real*4        RAm         ! (min) Right Ascension B2000 (minutes)
      character*1   DE_         ! Declination B2000 (sign)
      integer*4     DEd         ! (deg) Declination B2000 (degrees)
      integer*4     DEm         ! (arcmin) Declination B2000 (minutes)
      character*1   Source      ! Source of entry (2)
      character*3   Const       ! Constellation
      character*1   l_size      ! [<] Limit on Size
      real*4        size        ! (arcmin) ? Largest dimension
      real*4        mag         ! (mag) ? Integrated magnitude, visual or photographic
*                                      (see n_mag)
      character*1   n_mag       ! [p] 'p' if mag is photographic (blue)
      character*50  Desc        ! Description of the object (3)
*Note (1): the field is coded as follows:
*     Gx  = Galaxy
*     OC  = Open star cluster
*     Gb  = Globular star cluster, usually in the Milky Way Galaxy
*     Nb  = Bright emission or reflection nebula
*     Pl  = Planetary nebula
*     C+N = Cluster associated with nebulosity
*     Ast = Asterism or group of a few stars
*     Kt  = Knot  or  nebulous  region  in  an  external galaxy
*     *** = Triple star
*     D*  = Double star
*     *   = Single star
*     ?   = Uncertain type or may not exist
*         = (blank) Unidentified at the place given, or type unknown
*     -   = Object called nonexistent in the RNGC (Sulentic and Tifft 1973)
*     PD  = Photographic plate defect
*Note (2): sources that have been used to correct or update
*    modern data in NGC 2000.0 (type, positions, magnitude, and size).
*    Uppercase letters denote special NGC and IC errata lists, which have
*    usually been accorded more weight than the source catalogues
*    themselves. In parentheses after each citation is the number of times
*    it has been used to update NGC entries (first number) and those in
*    the IC (second number).
*    A = Archinal, Brent A. Version 4.0 of an unpublished list of errata to
*        the RNGC, dated March 19, 1987. (110,0)
*    a = Arp, H., "Atlas of Peculiar Galaxies", 1966ApJS...14....1A (1,2)
*        (Catalog <VII/74>)
*    c = Corwin, Harold G., Jr., A. de Vaucouleurs, and G. de Vaucouleurs,
*        "Southern Galaxy Catalogue", Austin, Texas: University of Texas
*        Monographs in Astronomy No. 4, 1985. (152,564)
*        (Catalog <VII/116>)
*    d = Dreyer, J.L.E., New General Catalogue of Nebulae and Clusters of
*        Stars (1888), Index Catalogue (1895), Second Index Catalogue (1908).
*        London: Royal Astronomical Society, 1953. (28,2157)
*    D = Dreyer, J.L.E., ibid. Errata on pages 237, 281-283, and 366-378.
*        (158,28)
*    F = Skiff, Brian, private communication of February 27, 1988.  (93,36)
*    h = Holmberg, E., "A Study of Double and Multiple Galaxies",
*        Lund Annals, 6, 1937. (13,2)
*    k = Karachentsev, I.D., "A Catalogue of Isolated Pairs of Galaxies
*        in the Northern Hemisphere"; also, Karachentseva, V.E.,
*        "A Catalog of Isolated Galaxies." Astrofiz. Issled. Izv. Spetz.
*        Astrofiz., 7, 3, 1972, and 8, 3, 1973. (0,4)
*        (Catalogs <VII/77>, <VII/82>, <VII/83>)
*    m = Vorontsov-Velyaminov, B.A., and V.P. Arhipova,
*        "Morphological Catalog of Galaxies", Parts I-V.
*        Moscow: Moscow State University, 1962-74. (9,679)
*        (Catalogs <VII/62> and <VII/100>)
*    n = Reinmuth, K., "Photographische Positionsbestimmung von NebelRecken"
*        Veroff der Sternwarte zu Heidelberg, several papers, 1916-40. (0,4)
*    o = Alter, G., B. Balazs, and J. Ruprecht, Catalogue of Star Clusters
*        and Associations, 2nd edition.  Budapest: Akademiai Kiado, 1970. (5,0)
*        (Catalogs <VII/5>, <VII/44> and <VII/101>)
*    r = Sulentic, Jack W., and William G. Tifft, "The Revised New General
*        Catalogue of Nonstellar Astronomical Objects (RNGC)".
*        Tucson, Arizona:University of Arizona Press, 1973. (4016,0)
*        (Catalog <VII/1>)
*    s = Hirshfeld, Alan, and Roger W. Sinnott, eds., Sky Catalogue 2000.0,
*        Vol.2, Cambridge, Massachusetts:
*        Sky Publishing Corp. and Cambridge University Press, 1985. (3098,238)
*    t = Tully, R.B., "Nearby Galaxies Catalog". New York: Cambridge
*        University Press, 1988.
*        A preliminary version on magnetic tape (1981) was used here. (23,17)
*        (Catalog <VII/145>)
*    u = Nilson P.N., Uppsala Ceneral Catalogue of Galaxies.
*        Uppsala: Uppsala Astronomical Observatory, 1973. (15,543)
*        (Catalog <VII/26>)
*    v = de Vaucouleurs, G., A. de Vaucouleurs, and H.C. Corvin, Jr.,
*        Second Reference Catalogue of Bright Galaxies. Austin, Texas,
*        University of Texas Press, 1976.(118,206)
*        (Catalog <VII/112>)
*    x = Dixon, R.S., and George Sonneborn, "A Master List of Nonstellar
*        Optical Astronomical Objects (MOL)".  Columbus, Ohio,
*        Ohio State University Press, 1980.
*        It should be noted that most of the information for codes
*        a,h,k,m,n,o,u and z was extracted from the magnetic-tape
*        version of this catalogue.
*        The x code refers to IC objects identified in a literature
*        search by these authors. (0,526)
*    z = Zwicky, F., E. Herzog, and P. Wild, "Catalogue of Galaxies and
*        Clusters of Galaxies", Vol.I. Pasadena, Calif., California Institute
*        of Technology, 1961. Also, successive volumes through 1968. (1,380)
*        (Catalog <VII/49>)
*Note (3): description of the object, as given by Dreyer or
*     corrected by him, in a coded or abbreviated form. The abbreviations
*     and their combination are fully described in the introduction
*     to the published catalog.
*     ab       = about
*     alm      = almost
*     am       = among
*     annul    = annular or ring nebula
*     att      = attached
*     b        = brighter
*     bet      = between
*     biN      = binuclear
*     bn       = brightest to n side
*     bs       = brightest to s side
*     bp       = brightest to p side
*     bf       = brightest to f side
*     B        = bright
*     c        = considerably
*     chev     = chevelure
*     co       = coarse, coarsely
*     com      = cometic (cometary form)
*     comp     = companion
*     conn     = connected
*     cont     = in contact
*     C        = compressed
*     Cl       = cluster
*     d        = diameter
*     def      = defined
*     dif      = diffused
*     diffic   = difficult
*     dist     = distance, or distant
*     D        = double
*     e        = extremely, excessively
*     ee       = most extremely
*     er       = easily resolvable
*     exc      = excentric
*     E        = extended
*     f        = following (eastward)
*     F        = faint
*     g        = gradually
*     glob.    = globular
*     gr       = group
*     i        = irregular
*     iF       = irregular figure
*     inv      = involved, involving
*     l        = little (adv.); long (adj.)
*     L        = large
*     m        = much
*     m        = magnitude
*     M        = middle, or in the middle
*     n        = north
*     neb      = nebula
*     nebs     = nebulous
*     neby     = nebulosity
*     nf       = north following
*     np       = north preceding
*     ns       = north-south
*     nr       = near
*     N        = nucleus, or to a nucleus
*     p        = preceding (westward)
*     pf       = preceding-following
*     p        = pretty (adv., before F. B. L, S)
*     pg       = pretty gradually
*     pm       = pretty much
*     ps       = pretty suddenly
*     plan     = planetary nebula (same as PN)
*     prob     = probably
*     P        = poor (sparse) in stars
*     PN       = planetary nebula
*     r        = resolvable (mottled, not resolved)
*     rr       = partially resolved, some stars seen
*     rrr      = well resolved, clearly consisting of stars
*     R        = round
*     RR       = exactly round
*     Ri       = rich in stars
*     s        = suddenly (abruptly)
*     s        = south
*     sf       = south following
*     sp       = south preceding
*     sc       = scattered
*     sev      = several
*     st       = stars (pl.)
*     st 9...  = stars of 9th magnitude and fainter
*     st 9..13 = stars of mag. 9 to 13
*     stell    = stellar, pointlike
*     susp     = suspected
*     S        = small in angular size
*     S*       = small (faint) star
*     trap     = trapezium
*     triangle = triangle, forms a triangle with
*     triN     = trinuclear
*     v        = very
*     vv       = _very_
*     var      = variable
*     *        = a single star
*     *10      = a star of 10th magnitude
*     *7-8     = star of mag. 7 or 8
*     **       = double star (same as D*)
*     ***      = triple star
*     !        = remarkable
*     !!       = very much so
*     !!!      = a magnificent or otherwise interesting object

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

C  Declarations for 'names.dat'	! Index of Messier and common names

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

      character*35  Object      ! Common name (including Messier numbers)
      character*5   Name_1      ! *NGC or IC name, as in ngc2000.dat
      character*28  Comment     ! Text of comment, if any
*Note on Name: this field may be blank for Messier objects without
*     NGC or IC counterparts.
*     when one object corresponds to several entries in ngc2000,
*     the Object is repeated (e.g. Copeland's Septet appears 7 times)

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

C  Loading file 'ngc2000.dat'	! The NGC 2000.0 Catalogue

C  Format for file interpretation

    1 format(
     +  A5,1X,A3,1X,I2,1X,F4.1,2X,A1,I2,1X,I2,1X,A1,2X,A3,A1,F5.1,2X,
     +  F4.1,A1,1X,A50)

C  Effective file loading

      open(unit=1,status='old',file=
     +'ngc2000.dat')
      write(6,*) '....Loading file: ngc2000.dat'
      do i__=1,13226
        read(1,'(A96)')ar__
        read(ar__,1)
     +  Name,Type,RAh,RAm,DE_,DEd,DEm,Source,Const,l_size,size,mag,
     +  n_mag,Desc
        if(ar__(34:38) .EQ. '') size = rNULL__
        if(ar__(41:44) .EQ. '') mag = rNULL__
        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(DEd .GE. 0) DEdeg=DEd
        if(DEm .GE. 0) DEdeg=DEdeg+DEm/60.
        if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
c    ..............Just test output...........
        write(6,1)
     +  Name,Type,RAh,RAm,DE_,DEd,DEm,Source,Const,l_size,size,mag,
     +  n_mag,Desc
        write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'names.dat'	! Index of Messier and common names

C  Format for file interpretation

    2 format(A35,1X,A5,1X,A28)

C  Effective file loading

      open(unit=1,status='old',file=
     +'names.dat')
      write(6,*) '....Loading file: names.dat'
      do i__=1,227
        read(1,'(A70)')ar__1
        read(ar__1,2)Object,Name_1,Comment
c    ..............Just test output...........
        write(6,2)Object,Name_1,Comment
c    .......End.of.Just test output...........
      end do
      close(1)

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