CDS.headStuff2
FORTRAN Generation
Conversion of standardized ReadMe file for
catalog 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 2024-Apr-23 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