Conversion of standardized ReadMe file for
file /./ftp/cats/II/219 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. II/219 New Catalogue of Suspected Variable Stars Supplement (Kazarovets+ 1998)
*================================================================================
*New Catalogue of Suspected Variable Stars. Supplement - Version 1.0
* Kazarovets E.V., Durlevich O.V., Samus N.N.
* <Institute of Astronomy of Russian Academy of Sciences and
* Sternberg Astronomical Institute (1988)>
* =1998IBVS.4655....1K
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'nsvs.dat' ! The NSV Supplement Catalog
integer*4 nr__
parameter (nr__=11206) ! Number of records
character*114 ar__ ! Full-size record
C 1950.0 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg (nr__) ! (deg) Right Ascension 1950.0
real*8 DEdeg (nr__) ! (deg) Declination 1950.0
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 NSV (nr__) ! [15001/26206]+ NSV number
character*1 RemFlag (nr__) ! *[*] indicates a remark in file remark.dat
integer*4 RAh (nr__) ! (h) Hours RA, equinox 1950.0
integer*4 RAm (nr__) ! (min) Minutes RA, equinox 1950.0
real*4 RAs (nr__) ! (s) Seconds RA, equinox 1950.0
character*1 DE_ (nr__) ! Sign Dec, equinox 1950.0
integer*4 DEd (nr__) ! (deg) Degrees Dec, equinox 1950.0
integer*4 DEm (nr__) ! (arcmin) Minutes Dec, equinox 1950.0
integer*4 DEs (nr__) ! (arcsec) Seconds Dec, equinox 1950.0
character*1 u_DEs (nr__) ! *[:*] accuracy flags
integer*4 RA2000h (nr__) ! (h) Hours RA, equinox 2000.0
integer*4 RA2000m (nr__) ! (min) Minutes RA, equinox 2000.0
real*4 RA2000s (nr__) ! (s) Seconds RA, equinox 2000.0
character*1 DE2000_ (nr__) ! Sign Dec, equinox 2000.0
integer*4 DE2000d (nr__) ! (deg) Degrees Dec, equinox 2000.0
integer*4 DE2000m (nr__) ! (arcmin) Minutes Dec, equinox 2000.0
integer*4 DE2000s (nr__) ! (arcsec) Seconds Dec, equinox 2000.0
character*6 VarType (nr__) ! *Type of variability
character*1 l_magMax (nr__) ! [><] "<" if magMax is a bright limit,
* ">" if magMax is a faint limit,
real*4 magMax (nr__) ! (mag) *? Magnitude at maximum brightness
character*1 u_magMax (nr__) ! [:]Uncertainty flag on magMax
character*2 l_magMin (nr__) ! [><( ] "(" if magMin is an amplitude;
* with "><" prefix, the amplitude in
* the table is a lower or upper limit
real*4 magMin (nr__) ! (mag) *? Minimum magnitude or amplitude
character*1 n_magMin (nr__) ! *The photometric system for amplitudes
character*1 f_magMin (nr__) ! [)] ")" if magMin is an amplitude
character*1 u_magMin (nr__) ! Uncertainty flag (:) on magMin or amplitude
character*2 magCode (nr__) ! *The photometric system for magnitudes and
* amplitudes
character*4 r_NSV (nr__) ! *Reference to a study of the star
* (see file refs.dat)
character*4 Ref2 (nr__) ! *Chart reference (see file refs.dat)
character*15 SpType1 (nr__) ! *Spectral type
character*8 SpType2 (nr__) ! Spectral type from HD catalog in brackets
character*9 VarName (nr__) ! *Designation in GCVS
*Note on RemFlag: There are several data fields that can contain
* asterisks. These signify that more complete information will be found
* in the remarks to the published catalog. The remarks are machine
* readable, they do contain much supplemental information. There, one
* will find information covering situations like, e.g.:
*
* 1. The discoverer of the light variability is not the author of the
* paper cited in the variability reference, or is one of several
* authors of the paper cited. In these cases, discoverers' names are
* given in original transcriptions of the remarks.
*
* 2. The most important additional information about a star, although
* the NSV Supplement compilers did not intend to present complete
* bibliographies for any catalogued stars.
*
* 3. Remarks for visual binaries giving visual magnitudes for the
* individual components A and B, angular separations, and position
* angles for faint components (or semimajor axis of a relative orbit
* and period of orbital motion). Then, data for other components are
* given where applicable. (Combined magnitudes are generally reported
* in the machine-readable table.)
*Note on u_DEs: The actual accuracy of coordinates is indicated with
* the symbols: (:) means right ascensions accurate to one second of
* time and declinations accurate to one tenth of an arcminute;
* (*) means declinations accurate to one arcminute.
*Note on magMax, magMin: The star's magnitude in minimum and maximum
* brightness. Instead of the magnitude in minimum, the star's amplitude
* of variation may be indicated (in brackets). Magnitudes are reported
* to hundredths if the observations are photoelectric or CCD, to tenths
* or whole magnitudes if they are not. If only an amplitude has been
* measured photoelectrically, then the maximum magnitude is generally
* given to tenths only and the minimum is reported to hundredths.
*Note on n_magMin and magCode: The photometric system in which magMin
* and magMax are reported. The main codes are V (visual, photovisual,
* or Johnson's V), B (Johnson's B) and P (photographic magnitudes). The
* designations u, v, b, y refer to the Stroemgren system. The symbols
* Ic, Rc mean magnitudes in Cousins' I, R system; Hp, T - in Hipparcos
* and Tycho mission systems; J, H, K, L, M - infrared magnitudes.
*Note on VarType: Type of variability. The system of variable star
* classification corresponds to the GCVS4, with six additions (ZZO, AM,
* R, BE, LBV, BLBOO) introduced in the Name-Lists 67-72 and in the GCVS
* vol.V. Brief descriptions only are given here:
*
* ACV, ACVO Alpha2 Canum Venaticorum
* ACYG Alpha Cygni
* BCEP, BCEPS Beta Cephei
* BE Be
* BL BL Lacertae
* BY BY Draconis
* CEP Cepheid
* CST constant
* CW W Virginis
* DCEP Delta Cephei
* DSCT, DSCTC Delta Scuti
* E eclipsing
* EA Algol (Beta Persei)
* EB Beta Lyrae
* EW W Ursae Majoris
* ELL ellipsoidal
* FKCOM FK Comae Berenices
* FU FU Orionis
* GAL galaxy
* GCAS Gamma Cassiopejae
* I irregular
* IA, INA white irregular
* IB, INB red irregular
* IN irregular in a nebula
* IT, INT irregular of the T Tauri type
* IS, ISA rapid irregular
* L slow
* LB slow red
* LBV long-period pulsating B star
* M Mira (Omicron Ceti) type
* N Nova
* NL nova-like
* NR recurrent Nova
* QSO quasistellar object
* RR RR Lyrae
* RS RS Canum Venaticorum
* RV RV Tauri
* S rapid
* SN supernova
* SR, SRA, SRB, SRD semiregular
* SXARI SX Arietis
* SXPHE SX Phoenicis
* UG U Geminorum
* UGSS SS Cygni
* UV UV Ceti
* VAR variable
* WR Wolf-Rayet star
* XM X-ray system with a strong magnetic field
* XNA X-ray nova-like
* ZAND Z Camelopardalis
* ZZA, ZZO ZZ Ceti
*Note on r_NSV: The four digits give the number in the list of references
* contained in the catalog, which is generally the first publication
* announcing the possible variability.
*Note on Ref2: The coding for the numbers is similar to that used in
* the variability references described above, except that there are also
* letter codes. These are references to papers containing
* identification chart or photograph of the field with the suspected
* variable marked. If the cited paper does not contain a chart, but the
* star is catalogued in one of the Durchmusterungen (BD,CD,CPD) or in the
* Hubble Space Telescop Guide Star Catalog (GSC), then corresponding
* letter codes DM or GSC are given.
*Note on SpType1: Spectral types, subtypes and luminosity
* classes are given. More detailed classification information is given
* in the remarks to the catalog. Also the following symbols are used:
* AF A-F
* cont continuum
* e emission spectrum
* ea e sub alpha
* FG F-G
* KM K-M
* * see Sp type in remarks
*Note on VarName:
* The alternative name of the variable. All necessary information on
* the star is to be found under that alternative name in Cat. <II/214>
* (file gcvs.dat)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ident.dat' ! Identifications
integer*4 nr__1
parameter (nr__1=39175) ! Number of records
character*99 ar__1 ! Full-size record
integer*4 NSV_1 (nr__1) ! [15001/26206]+= NSV number
character*91 ID (nr__1) ! *Identifications
*Note on ID: all identifications needed to find the star in the papers
* with the first (or independent) announcement of the discovery of its
* variability. References to these papers (see file refs.dat) are given
* in square brackets after the corresponding identification. The name
* of the discoverer accompanies the reference only in the case of its
* being different from the name of the author(s) of the paper referred
* to. Designations of components of double or multiple system: A, B,
* C, ..., A1, A2, ..., p - preceding, f - following, s - southern, n -
* northern. The transliterations of greek letters are used: alpha,
* beta, gamma,..., omega, etc., kappa 2, omicr 1. Different
* identifications of the same star with catalogs and lists are separated
* with equality sings (=). Symbol (?) marks the doubtful
* identification. The following catalogs abbreviations are used (abbreviated
* names for some of them are presented):
*
* Bayer - Greek and Roman letters in the Bayer Atlas,
* Flamsteed - Baily, F. 1835, "Association of J.Flamsteed, British Catalogue
* of Stars".
* BS (HR) - Hoffleit, D. (with the collaboration of Jaschek, C.) 1982, "The
* Bright Stars Catalogue" (New Haven: Yale University Observatory) (HR
* numbers are adopted from Pickering, E. C., 1908, "Harvard Revised
* Photometry", Ann. Astron. Obs. Harvard College 50).
* (See Cat. <V/50>)
* HD - Cannon, A. J. and Pickering, E. C. 1918-1924, "The Henry Draper
* Catalogue", Ann. Astron. Obs. Harvard College 91-99.
* (See Cat. <III/135>)
* BD - Argelander, F. 1859-62, "Bonner Sternverzeichniss. Erste bis dritte
* Sektion", Astronomische Beobachtungen auf der Sternwarte der Koeniglichen
* Rhein. Friedrich-Wilhelms-Universitaet zu Bonn, Bande 3-5. Revision of
* Argelander's first edition: Schoenfeld, E. 1886, "Bonner
* Sternverzeichniss", Vierte Sektion, Astronomische Beobachtungen auf der
* Sternwarte der Koeniglichen Rheinischen Friedrich-Wilhelms-Universitaet zu
* Bonn 8, Part IV (Bonn: Adolph Marcus); Kuestner, F. 1903, "Bonner
* Durchmusterung des Noerdlichen Himmels, zweite berichtigte Auflage",
* Bonn Universitaets-Sternwarte.
* (See Cats <I/122> and <I/119>)
* CoD - Thome, J. M. 1892-1932, "Cordoba Durchmusterung, Resultados del
* Observatorio Nacional Argentino" 16 (1892, Part I: -22 to -32 Degrees), 17
* (1894, Part II: -32 to -42 Degrees), 18 (1900, Part III: -42 to -52
* Degrees), 21 (Part I) (1914, Part IV, -52 to -62 Degrees), 21 (Part II)
* (1932, Part V: -61 to -90 Degrees).
* (See Cat. <I/114>)
* CPD - Gill, D. and Kapteyn, J. C. 1895-1900, "Cape Photographic
* Durchmusterung", Ann. Cape Obs. 3 (1895, Part I: zones -18 to -37); 4
* (1897, Part II: zones -38 to -52); 5 (1900, Part III: zones -53 to -89).
* (See Cat. <I/108>)
* GSC - Lasker, B. M., et al. 1990, "The Guide Star Catalog. I. Astronomical
* Foundations and Image Processing", A. J. 99, 2019; The Space Telescope
* Science Institute 1992, "The Guide Star Catalog Version 1.1 (An all-sky
* astrometric and photometric catalog to support the operation of the
* Hubble Space Telescope)" on two CD-ROMs.
* (See Cat. <I/220>)
* HIP - European Space Agency 1997, "The Hipparcos and Tycho Catalogues",
* SP-1200, Vols. 1-17.
* (See Cat. <I/239>)
* SAO - Smithsonian Astrophysical Observatory Staff 1966, "Star Catalog.
* Positions and Proper Motions of 258,997 Stars for the Epoch and Equinox of
* 1950.0", Publ. of the Smithsonian Institution of Washington, D.C., No.
* 4652. (See Cat. <I/131>)
* ADS - Aitken, R. G. 1932, "New General Catalogue of Double Stars within 120
* Degrees of the North Pole", Carnegie Institution of Washington, Publ.
* no. 417 (Washington, D.C.: Carnegie Institution of Washington).
* IDS - Jefers, H. M., Van den Bos, W. H., Greeby, F. M. 1963, "Index
* Catalogue of Visual Double Stars", Publ. Lick Obs. 21.
* BDS - Burnham, S. W. 1906, "A General Catalogue of Double Stars within 120
* Degrees of the North Pole", Carnegie Institution of Washington, Publ.
* No. 5 (Washington, D.C.: Carnegie Institution of Washington).
* CCDM - Dommanget, J., Nys, O. 1994, "The Catalogue of Components of Double
* and Multiple Stars", Comm. Obs. R. de Belg., Serie A No.115
* (catalog CDS <I/211>).
* IRC - Neugebauer, G. and Leighton, R. B. 1969, "Two-Micron Sky Survey, A
* Preliminary Catalog", NASA SP-3047 (Washington, D.C.: National Aeronautics
* and Space Adminstration).
* (See Cat. <II/2>)
* AFGL/RAFGL - Walker, R. G., Price, S. D. 1975, "Air Force Cambridge Research
* Laboratory Infrared Sky Survey", U.S. Air Force Report No. AFCRL-TR-0373;
* Price, S. D., Walker, R. G. 1976 "The AFGL Four Color Infrared Sky
* Survey", AFGL-TR-0208, and 1977 "The AFGL Four Color Infrared Sky Survey
* Supplement", AFGL-TR-0160.
* IRAS - The Joint IRAS Science Working Group 1988, "Infrared Astronomical
* Satellite (IRAS) catalogs and atlases" 2-6, NASA RP-1190
* (Washington, D.C.: National Aeronautics and Space Adminstration).
* (See Cat. <II/125>)
* MWC - Merrill, P. W., Sunford, R. F., Burwell, C. G. 1933-1949, "Mount
* Wilson Catalogue of stars of classes B and A whose spectra have bright
* hydrogen lines", P.A.S.P. 45, 306; P.A.S.P 54, 107; Ap. J. 78, 87; Ap. J.
* 98, 153; Ap. J. 110, 387.
* AS - Merrill, P. W., Burwell, C. G. 1950, "Additional stars whose spectra
* have a bright H Alpha line", Ap. J. 112, 72.
* LkHa - Herbig, G. H., et al. 1954-1974, Lists of emission-line stars.
* MHa - Mount Wilson H Alpha-emission line stars, see references for MWC and
* AS.
* He-3 - Henize, K. G. 1976, "Observations of Southern Emission-Line Stars",
* Ap. J. Suppl. 30, 491.
* HRC/HBC - Herbig, G. H., Robbin Bell, K. 1988, "Third Catalog of
* Emission-Line Stars of the Orion Population", Lick Obs. Bull No.1111.
* Wray - Wray, J. D. 1966, "A study of H Alpha-emission objects in the
* Southern Milky Way", Table XV-XIX, Univ. Microfilm Inc., Ann Arbor,
* Michigan.
* LS - Hardorp, J., et al. 1959-1971, "Luminous Stars in the Northern Milky Way"
* I-VI, Hamburger Sternwarte - Warner and Swasey Obs., Hamburg-Bergedorf.
* (See Cat. <III/76>)
* LSS - Stephenson, C. B., Sanduleak, N. 1971, "Luminous Stars in the
* Southern Milky Way", Publ. Warner and Swasey Obs. 1, No.1.
* (See Cat. <III/43>)
* CCS - Stephenson, C. B. 1973, "A General Catalogue of Cool Carbon Stars",
* Publ. Warner and Swasey Obs. 1, No.4.
* (See Cat. <III/156>)
* Hen - Unpublished list of C-stars by K.G.Henize (given in CCS),
* CSS - Stephenson, C. B. 1976, "A General Catalogue of S Stars", Publ.
* Warner and Swasey Obs. 2, No.2.
* (See Cat. <III/60>)
* WR - Van der Hucht, K. A., et al. 1981, "The Sixth Catalogue of Galactic
* Wolf-Rayer Stars", Space Sci. Rev. 28, 227.
* PG - Green, R. F., et al. 1986, "Cataclysmic Variable Candidates from the
* Palomar Green Survey", Ap. J. Suppl. 61, 305.
* (See Cat. <II/207>)
* WD - McCook, G. P., Sion, E. M. 1987, "A Catalogue of Spectroscopically
* Identified White Dwarfs", Ap. J. Suppl. 65, 603.
* (See Cat. <III/129>)
* G - Giclas, H. L., et al. 1971-1979, "Lowell Proper Motion Survey" (red
* dwarfs), Lowell Obs. Bull., Flagstaff, Arizona.
* GD - Giclas, H. L., et al. 1980, "Lowell Proper Motion Survey" (white
* dwarfs), Lowell Obs. Bull. 8, 157.
* Eg/Gr - Eggen, O. J., Greenstein, J. L. 1965-1977, "Spectra, Colors,
* Luminosities and Motions of the White Dwarfs", Ap. J. 141, 83; Ap. J. 142,
* 925; Ap. J. 150, 927; Ap. J. 158, 281; Ap. J. 162, L55; Ap. J. 189, L131;
* Ap. J. 196, L117; Ap. J. 207, L119; Ap. J. 218, L21.
* Gliese - Gliese, W. 1969, "Catalogue of Nearby Stars", Veroeff. Astron.
* Rechen-Inst. Heidelberg Nr.22; Gliese, W., Jahreiss, H. 1979, "Nearby star
* data published 1969-1978", Astron. Astrophys. Suppl. 38, 423.
* (See Cat. <V/70>)
* He-2 - Henize, K. J. 1964, An extended list of southern planetary nebulae;
* see PK Nomenclature.
* PK - Perek, L., Kohoutek, L. 1967, "Catalogue of Galactic Planetary
* Nebulae", Academia Publishing House of the Czechoslovak Academy of
* Sciences.
* NGC - Dreyer, J. L. E. 1888, "New General Catalogue of Nebulae and Clusters
* of Stars", Mem. Roy. Astron. Soc. 49, Part I (reprinted 1962, London: Royal
* Astronomical Society); Sulentic, J. W. and Tifft, W. G. 1973, "The Revised
* New General Catalogue of Nonstellar Astronomical Objects" (Tucson: The
* University of Arizona Press).
* (See Cat. <VII/118>)
* LHS - Luyten, W. J. 1976, "A Catalog of Stars with Proper Motion exceeding
* 0".5 annually", Publ. of Univ. of Minnesota, Minneapolis, Minnesota;
* Luyten, W. J., Albers, H. 1979, "An Atlas of Identification Chart for LHS
* Stars", Publ. of Univ. of Minnesota, Minneapolis, Minnesota.
* (See Cat. <I/87>)
* LTT - Luyten, W. J. 1957, "Catalogue of 9867 Stars in the Southern
* Hemisphere with Proper Motion exceeding 0".2 annually"; Luyten, W. J. 1961,
* "Catalogue of 7127 Stars in the Northern Hemisphere with Proper Motion
* exceeding 0".2 annually", The Lund Press, Minneapolis, Minnesota.
* LFT - Luyten, W. J. 1955, "A Catalog of 1849 Stars with Proper Motion
* exceeding 0.5" annually", The Lund Press, Minneapolis, Minnesota.
* L - Luyten, W. J. 1941, "Proper Motion Survey with the fourty-eight inch
* Schmidt Telescope", XXI, XXV, XXIX, Publ. of Univ. of Minnesota.
* LP - Luyten, W. J. 1963-1981, "Proper Motion Survey with the 48 inch Schmidt
* Telescope", Publ. of Univ. of Minnesota, Minneapolis, fasc. 1-57.
* LDS - Luyten, W. J. 1943, "Catalogue of 832 Double Stars with Common Proper
* Motion in the Southern Hemisphere", Publ. Astron. Obs. Univ. Minnesota
* 3, No. 3, 33.
* BPM - Luyten, W. J. 1963, "Bruce Proper Motion Survey. The general
* catalogue. Vol. I, II", Publ. of Univ. of Minnesota, Minneapolis,
* Minnesota.
* Ross - Ross, F. E. 1925-1939, "New Proper Motion Stars", eleven successive
* lists, A. J. Vol. 36 to 48.
* Vys - Vyssotsky, A. N., et al. 1943-1958, "Dwarf M Stars Found
* Spectrophotometrically", A. J. 61, 201; A. J. 63, 211; Ap. J. 97, 381;
* Ap. J. 104, 234; Ap. J. 116, 117.
* Wolf - Wolf, M. 1919, "Katalog von 1053 starken bewegten Fixsternen",
* Veroeff. Sternwarte zu Heidelberg 7, No. 10, 195; and numerous lists in
* Astron. Nachr. 209 to 236, 1919 to 1929.
* OH - OH sources designated by their galactic co-ordinates.
* HII - Hertzsprung, E. 1947, "Catalogue de 3259 Etoiles dans les Pleiades",
* Ann. Sterrewacht Leiden 19, part 1A.
* Par - Parenago, P. P. 1954, "A List of Star in the Region of the Orion
* Nebula", Trudy Sternberg Astron. Inst. Vol. 25.
* HV - Preliminary designations of variables discovered at Harvard
* Observatory.
* S - Preliminary designations of variables discovered at Sonneberg
* Observatory.
* SVS - Soviet variable stars (preliminary designations of Soviet-discovered
* variables).
* VV - Preliminary designations of variables discovered at Vatican.
* VES - Lists of the Vatican H Alpha-emission line stars.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'remark.dat' ! Remarks
integer*4 nr__2
parameter (nr__2=6195) ! Number of records
character*80 ar__2 ! Full-size record
integer*4 NSV_2 (nr__2) ! [15001/26206]+= NSV number
character*74 Text (nr__2) ! *Text of remark
*Note on Text: See Note on RemFlag (nsvs.dat) and Note on ID (ident.dat).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'refs.dat' ! References
integer*4 nr__3
parameter (nr__3=2784) ! Number of records
character*80 ar__3 ! Full-size record
integer*4 Ref (nr__3) ! [1,2022]+= Reference number
character*75 Text_1 (nr__3) ! *Text of reference
*Note on Text: We attempted to give Latin transliterations of
* Russan-language names of astronomical periodicals and books. We did
* not try to unify the Latin spelling of names with Cyrillic (or
* other) original forms, but simply tried to reproduce the Latin
* transcriptions in the publications referred to.
* When several lines are needed, the reference number is repeated.
* The "bibcode", if known, is added at the beginning of the text.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'nsv.dat' ! *New Suspected Variables (Kukarkin et al. 1982)
integer*4 nr__4
parameter (nr__4=14811) ! Number of records
character*89 ar__4 ! Full-size record
C 1950.0 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg_1 (nr__4) ! (deg) Right Ascension 1950.0
real*8 DEdeg_1 (nr__4) ! (deg) Declination 1950.0
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 NSV_3 (nr__4) ! [1,14811]+= NSV number
character*1 m_NSV (nr__4) ! *NSV letter suffix
character*1 u_NSV (nr__4) ! [-]Dubitancy flag
* if a star's variability seems doubtful
* or erroneous to the catalog compilers
character*1 NoteFlag1 (nr__4) ! *[*] Notes in published catalog
integer*4 RAh_1 (nr__4) ! (h) *? Hours RA, equinox 1950.0
integer*4 RAm_1 (nr__4) ! (min) *? Minutes RA, equinox 1950.0
real*4 RAs_1 (nr__4) ! (s) *? Seconds RA, equinox 1950.0
character*1 DE__1 (nr__4) ! *? Sign Dec, equinox 1950.0
integer*4 DEd_1 (nr__4) ! (deg) *? Degrees Dec, equinox 1950.0
integer*4 DEm_1 (nr__4) ! (arcmin) *? Minutes Dec, equinox 1950.0
integer*4 DEs_1 (nr__4) ! (arcsec) *? Seconds Dec, equinox 1950.0
character*1 u_DEs_1 (nr__4) ! *[:*] accuracy flags
character*5 VarType_1 (nr__4) ! *Type of variability
real*4 magMax_1 (nr__4) ! (mag) *? Magnitude at maximum brightness
character*1 u_magMax_1 (nr__4) ! [:] Uncertainty flag on magMax
character*2 l_magMin_1 (nr__4) ! [><( ] "<" if magMin is a bright limit
* "(" if magMin is an amplitude; with
* "><" prefix, the amplitude in the
* table is a lower or upper limit.
real*4 magMin_1 (nr__4) ! (mag) *? Minimum magnitude or amplitude
character*2 u_magMin_1 (nr__4) ! [st:] a light amplitude is reported for
* the minimum and it is given in steps
* Uncertainty flag (:) on magMin
character*1 f_magMin_1 (nr__4) ! [)] ")" if magMin is an amplitude
character*1 magCode_1 (nr__4) ! *The photometric system for magnitudes
character*7 Ref1 (nr__4) ! *Reference to a study of the star
* see the document by Kukarkin et al.(1982)
character*9 Desig (nr__4) ! *Designation in paper Ref1
character*2 SpType (nr__4) ! *Spectral type
character*6 Ref2_1 (nr__4) ! *Chart reference
* see the document by Kukarkin et al.(1982)
character*10 VarName_1 (nr__4) ! *Designation in GCVS
character*1 NoteFlag2 (nr__4) ! *[*] Notes in catalog GCVS Vol.V
*Note on m_NSV: The letter "A" is present for one star, NSV 10360A,
* which is a completely different object from NSV 10360.
*Note on NoteFlag1: see the document by Kukarkin et al.(1982)
* There are several data fields that can contain asterisks. These signify
* that more complete information will be found in the remarks to the
* published catalog. The remarks are, unfortunately, not machine
* readable, but they do contain much supplemental information. There, one
* will find information covering situations like, e.g.:
* 1. The discoverer of the light variability is not the author of the
* paper cited in the variability reference, or is one of several authors
* of the paper cited. In these cases, discoverers' names are given
* in original transcriptions of the remarks.
* 2. The most important additional information about a star, although the
* NSV compilers did not intend to present complete bibliographies for any
* catalogued stars.
* 3. Remarks for visual binaries (in parentheses following the number of a
* star in the corresponding catalog) giving visual magnitudes for the
* individual components A and B, angular separations, and position angles
* for faint components (or semimajor axis of a relative orbit and period
* of orbital motion). Data for other components are then given where
* applicable. (Combined magnitudes are generally reported in the
* machine-readable table.)
*Note on RAh, RAm, RAs, DE-, DEd, DEm, DEs:
* The position is also listed when the variable is equivalent to a GCVS
* star (column VarName).
*Note on u_DEs:
* The actual accuracy of coordinates is indicated with the symbols:
* (:) means right ascensions accurate to one second of time and
* declinations accurate to one tenth of an arcminute;
* (*) means declinations accurate to one arcminute.
*Note on VarType: type of variability (see file ...\III\vartype.txt).
* The system of variable star classification corresponds to the GCVS4,
* with six additions (ZZO, AM, R, BE, LBV, BLBOO) introduced in the
* Name-Lists 67- 72 and in the GCVS vol.V. (see "Note on VarType" section
* above)
*Note on magMax, magMin: Magnitudes are reported to hundredths if the
* observations are photoelectric, to tenths or whole magnitudes if they
* are not. If only an amplitude has been measured photoelectrically, then
* the maximum magnitude is generally given to tenths only and the minimum
* is reported to hundredths.
*Note on magCode: the photometric system in which magMin and magMax are
* reported (see also Note on n_magMax, n_magMin). The main codes are P
* (photographic magnitudes) and V (visual, photovisual, or Johnson's V).
* See also the documents by Kholopov et al. (1985-1988) or Warren (1988).
*Note on Ref1: Usually a 6-digit number coding, as a rule, the reference to the
* announcement of the discovery of variability. The first two digits give the
* year (in the 20th century) when the announcement was published (blank
* for the 19th century). The next four digits give the number in the list
* of references contained in the published catalog, which is generally the
* first publication announcing the possible variability. The numbers are
* followed by a letter code in most cases (byte 75) with the following
* meanings:
* K: the cited paper contains a chart or photograph of
* the field with the suspected variable marked.
* D: the cited paper does not contain a chart, but the
* star is catalogued in one of the Durchmusterungen
* (DM) (BD,CD,CPD).
*Note on Desig: The identification of the suspected variable in the
* paper referenced above. DM numbers are given without a prefix, the
* standard naming convention of "The Henry Draper Catalogue" being used
* (BD for zones +89 to -22; CD for -23 to -51; CP for -52 to -89).
* Some identifications are given by coordinate designations, a 6-digit
* number consisting of hours, minutes, and seconds (or tenths of a minute)
* of time and degrees of declination with sign included. An asterisk (*)
* signifies that a designation is given in the remarks to the published
* catalog.
* Stars are sometimes designated with numbers from the catalogs of Zinner
* (ZI, 1929) and Prager (PR, 1934, 1937) because the original discovery
* publications were not available to the NSV compilers. The catalogs of
* Zinner and Prager give detailed references to early observations of such
* stars.
*Note on SpType: Spectral types and subtypes only are given.
* Most luminosity classes are III to V, but if a star is a supergiant,
* more detailed classification information is given in the remarks to the
* published catalog. The following symbols are used:
* AF A-F
* AM Am
* AP Ap
* BE Be
* E emission spectrum
* EA e sub alpha
* EV variable emission in spectrum
* FG F-G
* KM K-M
* OF Of
* PD Pd
* T characteristics of T Tauri stars
*Note on Ref2: The coding for the numbers is similar to that used
* in the variability references described above, except that there are no
* letter codes. These are references to papers containing identification
* charts if no charts are given in the papers cited for the variability
* references.
*Note on VarName, NoteFlag2:
* 1) The alternative name of the variable. All necessary information on
* the star is to be found under that alternative name, in the iii.zip and
* nl.zip files.
* 2) The star's name in the GCVS Vol. V (see the file v.zip, where the
* explanation of the designations is also given). In this case, the
* symbol "*" in column 89 means the presence of remarks in Vol. V.
C=============================================================================
C Loading file 'nsvs.dat' ! The NSV Supplement Catalog
C Format for file interpretation
1 format(
+ I5,A1,1X,I2,I2,F4.1,A1,I2,I2,I2,A1,1X,I2,I2,F4.1,A1,I2,I2,I2,
+ 1X,A6,1X,A1,F5.2,A1,1X,A2,F6.3,A1,A1,A1,1X,A2,1X,A4,1X,A4,1X,
+ A15,1X,A8,1X,A9)
C Effective file loading
open(unit=1,status='old',file=
+'nsvs.dat')
write(6,*) '....Loading file: nsvs.dat'
do i__=1,11206
read(1,'(A114)')ar__
read(ar__,1)
+ NSV(i__),RemFlag(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),
+ DEd(i__),DEm(i__),DEs(i__),u_DEs(i__),RA2000h(i__),
+ RA2000m(i__),RA2000s(i__),DE2000_(i__),DE2000d(i__),
+ DE2000m(i__),DE2000s(i__),VarType(i__),l_magMax(i__),
+ magMax(i__),u_magMax(i__),l_magMin(i__),magMin(i__),
+ n_magMin(i__),f_magMin(i__),u_magMin(i__),magCode(i__),
+ r_NSV(i__),Ref2(i__),SpType1(i__),SpType2(i__),VarName(i__)
if(ar__(49:53) .EQ. '') magMax(i__) = rNULL__
if(ar__(58:63) .EQ. '') magMin(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(RAs(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAs(i__)/240.
if(DEd(i__) .GE. 0) DEdeg(i__)=DEd(i__)
if(DEm(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEm(i__)/60.
if(DEs(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEs(i__)/3600.
if(DE_(i__).EQ.'-'.AND.DEdeg(i__).GE.0) DEdeg(i__)=-DEdeg(i__)
c ..............Just test output...........
write(6,1)
+ NSV(i__),RemFlag(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),
+ DEd(i__),DEm(i__),DEs(i__),u_DEs(i__),RA2000h(i__),
+ RA2000m(i__),RA2000s(i__),DE2000_(i__),DE2000d(i__),
+ DE2000m(i__),DE2000s(i__),VarType(i__),l_magMax(i__),
+ magMax(i__),u_magMax(i__),l_magMin(i__),magMin(i__),
+ n_magMin(i__),f_magMin(i__),u_magMin(i__),magCode(i__),
+ r_NSV(i__),Ref2(i__),SpType1(i__),SpType2(i__),VarName(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 'ident.dat' ! Identifications
C Format for file interpretation
2 format(I5,3X,A91)
C Effective file loading
open(unit=1,status='old',file=
+'ident.dat')
write(6,*) '....Loading file: ident.dat'
do i__=1,39175
read(1,'(A99)')ar__1
read(ar__1,2)NSV_1(i__),ID(i__)
c ..............Just test output...........
write(6,2)NSV_1(i__),ID(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'remark.dat' ! Remarks
C Format for file interpretation
3 format(I5,1X,A74)
C Effective file loading
open(unit=1,status='old',file=
+'remark.dat')
write(6,*) '....Loading file: remark.dat'
do i__=1,6195
read(1,'(A80)')ar__2
read(ar__2,3)NSV_2(i__),Text(i__)
c ..............Just test output...........
write(6,3)NSV_2(i__),Text(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'refs.dat' ! References
C Format for file interpretation
4 format(I4,1X,A75)
C Effective file loading
open(unit=1,status='old',file=
+'refs.dat')
write(6,*) '....Loading file: refs.dat'
do i__=1,2784
read(1,'(A80)')ar__3
read(ar__3,4)Ref(i__),Text_1(i__)
c ..............Just test output...........
write(6,4)Ref(i__),Text_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'nsv.dat' ! *New Suspected Variables (Kukarkin et al. 1982)
C Format for file interpretation
5 format(
+ I5,A1,A1,A1,I2,I2,F4.1,A1,I2,I2,I2,A1,A5,1X,F5.2,A1,1X,A2,
+ F6.3,A2,A1,A1,1X,A7,1X,A9,1X,A2,1X,A6,1X,A10,A1)
C Effective file loading
open(unit=1,status='old',file=
+'nsv.dat')
write(6,*) '....Loading file: nsv.dat'
do i__=1,14811
read(1,'(A89)')ar__4
read(ar__4,5)
+ NSV_3(i__),m_NSV(i__),u_NSV(i__),NoteFlag1(i__),RAh_1(i__),
+ RAm_1(i__),RAs_1(i__),DE__1(i__),DEd_1(i__),DEm_1(i__),
+ DEs_1(i__),u_DEs_1(i__),VarType_1(i__),magMax_1(i__),
+ u_magMax_1(i__),l_magMin_1(i__),magMin_1(i__),u_magMin_1(i__),
+ f_magMin_1(i__),magCode_1(i__),Ref1(i__),Desig(i__),
+ SpType(i__),Ref2_1(i__),VarName_1(i__),NoteFlag2(i__)
if(ar__4(9:10) .EQ. '') RAh_1(i__) = iNULL__
if(ar__4(11:12) .EQ. '') RAm_1(i__) = iNULL__
if(ar__4(13:16) .EQ. '') RAs_1(i__) = rNULL__
if(ar__4(18:19) .EQ. '') DEd_1(i__) = iNULL__
if(ar__4(20:21) .EQ. '') DEm_1(i__) = iNULL__
if(ar__4(22:23) .EQ. '') DEs_1(i__) = iNULL__
if(ar__4(31:35) .EQ. '') magMax_1(i__) = rNULL__
if(ar__4(40:45) .EQ. '') magMin_1(i__) = rNULL__
RAdeg_1(i__) = rNULL__
DEdeg_1(i__) = rNULL__
c Derive coordinates RAdeg_1 and DEdeg_1 from input data
c (RAdeg_1 and DEdeg_1 are set to rNULL__ when unknown)
if(RAh_1(i__) .GT. -180) RAdeg_1(i__)=RAh_1(i__)*15.
if(RAm_1(i__) .GT. -180) RAdeg_1(i__)=RAdeg_1(i__)+RAm_1(i__)/4.
if(RAs_1(i__) .GT. -180) RAdeg_1(i__)=RAdeg_1(i__)+RAs_1(i__)/240.
if(DEd_1(i__) .GE. 0) DEdeg_1(i__)=DEd_1(i__)
if(DEm_1(i__) .GE. 0) DEdeg_1(i__)=DEdeg_1(i__)+DEm_1(i__)/60.
if(DEs_1(i__) .GE. 0) DEdeg_1(i__)=DEdeg_1(i__)+DEs_1(i__)/3600.
if(DE__1(i__).EQ.'-'.AND.DEdeg_1(i__).GE.0) DEdeg_1(i__)=-DEdeg_1(i__)
c ..............Just test output...........
write(6,5)
+ NSV_3(i__),m_NSV(i__),u_NSV(i__),NoteFlag1(i__),RAh_1(i__),
+ RAm_1(i__),RAs_1(i__),DE__1(i__),DEd_1(i__),DEm_1(i__),
+ DEs_1(i__),u_DEs_1(i__),VarType_1(i__),magMax_1(i__),
+ u_magMax_1(i__),l_magMin_1(i__),magMin_1(i__),u_magMin_1(i__),
+ f_magMin_1(i__),magCode_1(i__),Ref1(i__),Desig(i__),
+ SpType(i__),Ref2_1(i__),VarName_1(i__),NoteFlag2(i__)
write(6,'(6H Pos: 2F8.4)') RAdeg_1(i__),DEdeg_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end