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.
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-Jul-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