Conversion of standardized ReadMe file for
file /./ftp/cats/VII/118 into FORTRAN code for loading all data files into arrays.
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 2026-Jul-20
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)>
* =1997yCat.7118....0S
* =1988cngc.book.....S
* =1895MmRAS..51..185D
* +1989Sci...246.1066D
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*99 ar__ ! Full-size record
C B2000 position composed of: RAh RAm DE- DEd DEm
real*8 RAdeg (nr__) ! (deg) Right Ascension B2000
real*8 DEdeg (nr__) ! (deg) Declination B2000
C ---------------------------------- ! (position vector(s) in degrees)
character*5 Name (nr__) ! NGC or IC designation (preceded by I)
character*3 Type (nr__) ! Object classification (1)
integer*4 RAh (nr__) ! (h) Right Ascension B2000 (hours)
real*4 RAm (nr__) ! (min) Right Ascension B2000 (minutes)
character*1 DE_ (nr__) ! Declination B2000 (sign)
integer*4 DEd (nr__) ! (deg) Declination B2000 (degrees)
integer*4 DEm (nr__) ! (arcmin) Declination B2000 (minutes)
character*1 Source (nr__) ! Source of entry (2)
character*3 Const (nr__) ! Constellation
character*1 l_size (nr__) ! [<] Limit on Size
real*4 size (nr__) ! (arcmin) ? Largest dimension
real*4 mag (nr__) ! (mag) ? Integrated magnitude, visual or photographic
* (see n_mag)
character*1 n_mag (nr__) ! [p] 'p' if mag is photographic (blue)
character*53 Desc (nr__) ! 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 (nr__1) ! Common name (including Messier numbers)
character*5 Name_1 (nr__1) ! *NGC or IC name, as in ngc2000.dat
character*28 Comment (nr__1) ! 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,A53)
C Effective file loading
open(unit=1,status='old',file=
+'ngc2000.dat')
write(6,*) '....Loading file: ngc2000.dat'
do i__=1,13226
read(1,'(A99)')ar__
read(ar__,1)
+ Name(i__),Type(i__),RAh(i__),RAm(i__),DE_(i__),DEd(i__),
+ DEm(i__),Source(i__),Const(i__),l_size(i__),size(i__),
+ mag(i__),n_mag(i__),Desc(i__)
if(ar__(34:38) .EQ. '') size(i__) = rNULL__
if(ar__(41:44) .EQ. '') mag(i__) = rNULL__
RAdeg(i__) = rNULL__
DEdeg(i__) = rNULL__
c Derive coordinates RAdeg and DEdeg from input data
c (RAdeg and DEdeg are set to rNULL__ when unknown)
if(RAh(i__) .GT. -180) RAdeg(i__)=RAh(i__)*15.
if(RAm(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAm(i__)/4.
if(DEd(i__) .GE. 0) DEdeg(i__)=DEd(i__)
if(DEm(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEm(i__)/60.
if(DE_(i__).EQ.'-'.AND.DEdeg(i__).GE.0) DEdeg(i__)=-DEdeg(i__)
c ..............Just test output...........
write(6,1)
+ Name(i__),Type(i__),RAh(i__),RAm(i__),DE_(i__),DEd(i__),
+ DEm(i__),Source(i__),Const(i__),l_size(i__),size(i__),
+ mag(i__),n_mag(i__),Desc(i__)
write(6,'(6H Pos: 2F8.4)') RAdeg(i__),DEdeg(i__)
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(i__),Name_1(i__),Comment(i__)
c ..............Just test output...........
write(6,2)Object(i__),Name_1(i__),Comment(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end